6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-04-05 03:37:43 +00:00
Code Issues Projects Releases Wiki Activity

Unwind assoc_list but still bug with LABEL

Browse Source
This commit is contained in:
David Schmenk 2024-07-20 11:28:01 -07:00
parent 27b11725d0
commit d019030e78
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/lisp/s-expr.pla
View File

@ -849,9 +849,10 @@ def eval_funarg(funarg, argvals)
end
export def eval_expr(expr)#1
var curl, expr_car
var alist_enter, curl, expr_car
if gc_pull > GC_TRIGGER; gc; fin
alist_enter = assoc_list
curl = NULL // Current lambda
if trace
puts("EVAL: "); print_expr(expr); putln
@ -924,6 +925,7 @@ export def eval_expr(expr)#1
break
fin
loop
assoc_list = alist_enter // Unwind assoc_list
if trace
puts("RESULT: "); print_expr(expr); putln
fin