steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

More macro tests

db4
James Cash 2008-06-05 18:14:43 -04:00
parent b494a18b9e
commit 35e2bb8711
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/lisp/lisp-tests.factor
View File

@ -7,8 +7,8 @@ IN: lisp.test
[ [
init-env init-env
"#f" [ f ] lisp-define [ f ] "#f" lisp-define
"#t" [ t ] lisp-define [ t ] "#t" lisp-define
"+" "math" "+" define-primitive "+" "math" "+" define-primitive
"-" "math" "-" define-primitive "-" "math" "-" define-primitive
@ -35,6 +35,10 @@ IN: lisp.test
"(defmacro if (pred tr fl) (quasiquote (cond ((unquote pred) (unquote tr)) (#t (unquote fl)))))" lisp-eval "(defmacro if (pred tr fl) (quasiquote (cond ((unquote pred) (unquote tr)) (#t (unquote fl)))))" lisp-eval
] unit-test ] unit-test
{ t } [
T{ lisp-symbol f "if" } lisp-macro?
] unit-test
{ 1 } [ { 1 } [
"(if #t 1 2)" lisp-eval "(if #t 1 2)" lisp-eval
] unit-test ] unit-test