From d813b36d00df004faede52594db38f732b5e7cd1 Mon Sep 17 00:00:00 2001 From: Doug Torrance Date: Tue, 19 Aug 2025 17:50:14 -0400 Subject: [PATCH] Use legacy Smith normal form The Smith normal form behavior was updated in Macaulay2 1.25.05, which causes the tests to fail. The legacy behavior is still available using the unexported preSmithNormalForm, so we use that instead. --- inst/server/m2rserverscript.m2 | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/inst/server/m2rserverscript.m2 b/inst/server/m2rserverscript.m2 index d10a3bf..1ff685f 100644 --- a/inst/server/m2rserverscript.m2 +++ b/inst/server/m2rserverscript.m2 @@ -25,6 +25,11 @@ m2rintinout << "1.0.0" << "\n" << flush; m2rintlog(concatenate("Connection received on port ", toString m2rintopenport)); m2rintlog(""); +-- use legacy smith normal form +if Core#"private dictionary"#?"preSmithNormalForm" then ( + mthd := value Core#"private dictionary"#"preSmithNormalForm"; + smithNormalForm Matrix := lookup(mthd, Matrix)) + while true do ( --while (not isReady m2rintinout) do ( -- run "sleep 0.05";