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

Cleanup cond()

Browse Source
This commit is contained in:
David Schmenk 2024-07-11 11:37:08 -07:00
parent 52d4c08f36
commit c2cac963b6
1 changed files with 1 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -527,7 +527,7 @@ export def eval_expr(expr)#1
break
elsif expr_car=>lambda // DEFINEd lambda S-expression
expr = enter_lambda(expr_car=>lambda, expr=>cdr)
elsif expr_car == sym_cond
elsif expr_car == sym_cond // Inline cond() evaluation
expr = expr=>cdr
while expr
if eval_expr(expr=>car=>car) == @pred_true
@ -619,16 +619,6 @@ def natv_quote(expr)
return expr=>car
end
def natv_cond(expr)
while expr
if eval_expr(expr=>car=>car) == @pred_true
return eval_expr(expr=>car=>cdr=>car)
fin
expr = expr=>cdr
loop
return NULL
end
def natv_label(expr)
var valptr