6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-01-09 13:33:26 +00:00
Code Issues Projects Releases Wiki Activity

Update value of NIL

Browse Source
This commit is contained in:
David Schmenk 2024-07-07 08:32:46 -07:00
parent d481bfaad1
commit 4e876b7a64
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/toolsrc/drawl.pla
View File

@ -537,7 +537,7 @@ def natv_atom(atom)
end
def natv_eq(expr)
return eval_atom(eval_expr(expr=>car)) == eval_atom(eval_expr(expr=>cdr=>car)) ?? @pred_true :: @pred_false
return eval_expr(expr=>car) == eval_expr(expr=>cdr=>car) ?? @pred_true :: @pred_false
end
def natv_cons(expr)
@ -688,9 +688,9 @@ end
//
def install_defaults#0
new_assoc(new_sym("NIL"), NULL)
new_assoc(new_sym("T"), @pred_true)
new_assoc(new_sym("F"), @pred_false)
new_assoc(new_sym("NIL"), @pred_false)
sym_lambda = new_sym("LAMBDA")
sym_quote = new_sym("QUOTE")
sym_quote=>natv = @natv_quote)
@ -802,6 +802,6 @@ parse_cmdline
install_defaults
while not quit
putln; print_expr(eval_expr(readfn()))
gc_trigger--; if gc_trigger == 0; gc; gc_trigger = GC_RESET; fin
//gc_trigger--; if gc_trigger == 0; gc; gc_trigger = GC_RESET; fin
loop
done