More macro tests
parent
b494a18b9e
commit
35e2bb8711
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue