On Mon, Mar 25, 2024 at 03:41:51PM +0100, Ralf Hemmecke wrote:
> Hello,
>
> does somebody see my error? I don't understand why the function "nicer" does
> not work, but the individual commands on the input do.
> What I also find strange is that the error message for "nicer" changes in
> the end.
As I wrote, this is a bug in FriCAS. The attached patch seem to
fix the problem
--
Waldek Hebisch
--
You received this message because you are subscribed to the Google Groups
"FriCAS - computer algebra system" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to fricas-devel+unsubscr...@googlegroups.com.
To view this discussion on the web visit
https://groups.google.com/d/msgid/fricas-devel/ZgJOBnH-oAnaJlv8%40fricas.org.
diff --git a/src/interp/i-toplev.boot b/src/interp/i-toplev.boot
index fdf1058..6aaa8e5 100644
--- a/src/interp/i-toplev.boot
+++ b/src/interp/i-toplev.boot
@@ -266,6 +266,10 @@ interpret(x, posnForm) ==
--type analyzes and evaluates expression x, returns object
$env:local := [[NIL]]
$genValue:local := true --evaluate all generated code
+ $compilingMap : local := false
+ $definingMap : local := false
+ $minivector : local := NIL
+ $insideCompileBodyIfTrue : local := false
-- counter used to limit recursion depth during resolve
$resolve_level : local := 0
interpret1(x,nil,posnForm)
