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

Clean up *T* to match manual

Browse Source
This commit is contained in:
David Schmenk 2024-07-24 09:28:17 -07:00
parent f404affcd0
commit 6ef1e26249
2 changed files with 7 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
images/apple/DRAWL.po
View File

Binary file not shown.

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

@ -4,8 +4,6 @@ include "inc/fpstr.plh"
const TYPE_MASK = $70
const NIL = $00
const BOOL_FALSE = $00
const BOOL_TRUE = $01
const CONS_TYPE = $10
const SYM_TYPE = $20
const SYM_LEN = $0F
@ -69,9 +67,8 @@ var float_list = NULL
var float_free = NULL
var sym_list = NULL
var sym_nil, sym_quote, sym_lambda, sym_funarg, sym_set
var sym_nil, sym_true, sym_quote, sym_lambda, sym_funarg, sym_set
var sym_cond, sym_if, sym_label, sym_for, sym_space, sym_cr
res[t_elem] pred_true = 0, 0, BOOL_TRUE
predef print_expr(expr)#0
predef eval_expr(expr)#1
@ -358,9 +355,6 @@ def print_atom(atom)#0
puts("NIL")
else
when atom->type & TYPE_MASK
is NIL
puts(atom->type ?? "*T*" :: "NIL")
break
is NUM_TYPE
when atom->type
is NUM_INT
@ -970,7 +964,7 @@ end
//
export def bool_pred(bool)
return bool ?? @pred_true :: NULL
return bool ?? sym_true :: NULL
end
def natv_atom(symptr, expr)
@ -1299,12 +1293,14 @@ end
// Install default functions
//
new_sym("T")=>apval = @pred_true ^ NULL_HACK
sym_nil = new_sym("NIL")
sym_nil=>apval = NULL_HACK
sym_true = new_sym("*T*")
sym_true=>apval = sym_true ^ NULL_HACK
new_sym("T")=>apval = sym_true ^ NULL_HACK
new_sym("F")=>apval = NULL_HACK
sym_space = new_sym("SPACE")
sym_cr = new_sym("CR")
sym_nil = new_sym("NIL")
sym_nil=>apval = NULL_HACK
sym_lambda = new_sym("LAMBDA")
sym_funarg = new_sym("FUNARG")
sym_cond = new_sym("COND")