fixed CoefficientsOfUnreducedNumeratorOfHilbertPoincareSeries

following suggestion in Singular/Singular#1227 (comment)
homalg-project · Jun 20, 2024 · 5c1193c · 5c1193c
1 parent d57aa10
commit 5c1193c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/RingsForHomalg/PackageInfo.g b/RingsForHomalg/PackageInfo.g
@@ -11,7 +11,7 @@ SetPackageInfo( rec(
 
 PackageName := "RingsForHomalg",
 Subtitle := "Dictionaries of external rings",
-Version := "2023.11-02",
+Version := "2024.06-01",
 Date := (function ( ) if IsBound( GAPInfo.SystemEnvironment.GAP_PKG_RELEASE_DATE ) then return GAPInfo.SystemEnvironment.GAP_PKG_RELEASE_DATE; else return Concatenation( ~.Version{[ 1 .. 4 ]}, "-", ~.Version{[ 6, 7 ]}, "-01" ); fi; end)( ),
 License := "GPL-2.0-or-later",
 

diff --git a/RingsForHomalg/gap/SingularTools.gi b/RingsForHomalg/gap/SingularTools.gi
@@ -576,9 +576,9 @@ BindGlobal( "CommonHomalgTableForSingularTools",
                            Error( "Singular (<= 3-1-3) does not handle nontrivial free direct summands correctly\n" );
                        fi;
                        ## the only case of a free direct summand we allowed to send to Singular (<= 3-1-3)
-                       hilb := homalgSendBlocking( [ "hilb(std(", mat, "),1)" ], "need_output", "HilbertPoincareSeries" );
+                       hilb := homalgSendBlocking( [ "string(hilb(std(", mat, "),1))" ], "need_output", "HilbertPoincareSeries" );
                    else
-                       hilb := homalgSendBlocking( [ "hilb(", mat, ",1)" ], "need_output", "HilbertPoincareSeries" );
+                       hilb := homalgSendBlocking( [ "string(hilb(", mat, ",1))" ], "need_output", "HilbertPoincareSeries" );
                    fi;
 
                    hilb := StringToIntList( hilb );