6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-08-09 01:25:00 +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
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 end
export def eval_expr(expr)#1 export def eval_expr(expr)#1
var curl, expr_car var alist_enter, curl, expr_car
if gc_pull > GC_TRIGGER; gc; fin if gc_pull > GC_TRIGGER; gc; fin
alist_enter = assoc_list
curl = NULL // Current lambda curl = NULL // Current lambda
if trace if trace
puts("EVAL: "); print_expr(expr); putln puts("EVAL: "); print_expr(expr); putln
@@ -924,6 +925,7 @@ export def eval_expr(expr)#1
break break
fin fin
loop loop
assoc_list = alist_enter // Unwind assoc_list
if trace if trace
puts("RESULT: "); print_expr(expr); putln puts("RESULT: "); print_expr(expr); putln
fin fin