rex: DEBUG-EVAL in stepA, not for macros

asarhaddon · Oct 9, 2024 · 8c8a46b · 8c8a46b
1 parent 107a74f
commit 8c8a46b
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/impls/rexx/stepA_mal.rexx b/impls/rexx/stepA_mal.rexx
@@ -129,6 +129,11 @@ eval: procedure expose values. env. err /* eval(ast) */
   ast = arg(1)
   env_idx = arg(2)
   do forever
+
+    debug_eval = obj_type(env_get(env_idx, "DEBUG-EVAL"))
+    if  debug_eval <> "ERR" & debug_eval <> "nill" & debug_eval <> "fals" then,
+        call lineout , ("EVAL: " || print(ast))
+
     if \list?(ast) then return eval_ast(ast, env_idx)
     ast = macroexpand(ast, env_idx)
     if \list?(ast) then return eval_ast(ast, env_idx)