diff options
| author | Keith Packard <keithp@keithp.com> | 2017-11-16 18:46:03 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2017-11-16 18:46:03 -0800 |
| commit | 2e58b6c380bc6440490c47650fbf11d45b3f2e72 (patch) | |
| tree | fa7711cbb8e94e7bb486395cc8af5a3015c093c5 /src/lisp/ao_lisp_builtin.txt | |
| parent | 0ced351c8f4449f7086b04e42c822d649f040d1f (diff) | |
altos/lisp: More schemisms
Add 'if'.
setq -> set!, but doesn't define new variables
def -> define
Add pair? and list?
Add eq? and eqv? as aliases for =
Signed-off-by: Keith Packard <keithp@keithp.com>
Diffstat (limited to 'src/lisp/ao_lisp_builtin.txt')
| -rw-r--r-- | src/lisp/ao_lisp_builtin.txt | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/lisp/ao_lisp_builtin.txt b/src/lisp/ao_lisp_builtin.txt index 02320df0..2b891dba 100644 --- a/src/lisp/ao_lisp_builtin.txt +++ b/src/lisp/ao_lisp_builtin.txt @@ -11,7 +11,7 @@ lambda last lambda length nlambda quote lambda set -macro setq +macro setq set! nlambda cond nlambda progn nlambda while @@ -22,7 +22,7 @@ lexpr minus - lexpr times * lexpr divide / lexpr mod % -lexpr equal = +lexpr equal = eq? eqv? lexpr less < lexpr greater > lexpr less_equal <= @@ -38,3 +38,5 @@ lambda call_cc call/cc lambda collect lambda nullp null? lambda not +lambda listp list? +lambda pairp pair? |