More macro tests
parent
b494a18b9e
commit
35e2bb8711
|
@ -7,8 +7,8 @@ IN: lisp.test
|
|||
[
|
||||
init-env
|
||||
|
||||
"#f" [ f ] lisp-define
|
||||
"#t" [ t ] lisp-define
|
||||
[ f ] "#f" lisp-define
|
||||
[ t ] "#t" lisp-define
|
||||
|
||||
"+" "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
|
||||
] unit-test
|
||||
|
||||
{ t } [
|
||||
T{ lisp-symbol f "if" } lisp-macro?
|
||||
] unit-test
|
||||
|
||||
{ 1 } [
|
||||
"(if #t 1 2)" lisp-eval
|
||||
] unit-test
|
||||
|
|
Loading…
Reference in New Issue