6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-04-10 23:41:35 +00:00
Code Issues Projects Releases Wiki Activity

Add COND

Browse Source
This commit is contained in:
David Schmenk 2024-07-05 19:25:33 -07:00
parent 5396298b50
commit 86f2140b80
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/toolsrc/drawl.pla
View File

@ -457,10 +457,13 @@ def natv_cdr(expr)
return NULL
end
def natv_evcon(expr)
var conds
conds = expr=>cdr
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
@ -585,7 +588,7 @@ def install_defaults#0
new_sym("CONS")=>natv = @natv_cons)
new_sym("ATOM")=>natv = @natv_atom)
new_sym("EQ")=>natv = @natv_eq)
new_sym("COND")=>natv = @natv_evcon)
new_sym("COND")=>natv = @natv_cond)
new_sym("SET")=>natv = @natv_set)
new_sym("SETQ")=>natv = @natv_setq)
new_sym("NULL")=>natv = @natv_null)