From 3d09e6f82fd2bae223fde1f5579b3ade8f5fdc26 Mon Sep 17 00:00:00 2001 From: James Cash Date: Sat, 7 Jun 2008 22:32:54 -0400 Subject: [PATCH] Adding test for quasiquote --- extra/lisp/lisp-tests.factor | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/extra/lisp/lisp-tests.factor b/extra/lisp/lisp-tests.factor index 14b91aa58b..9d85355f2e 100644 --- a/extra/lisp/lisp-tests.factor +++ b/extra/lisp/lisp-tests.factor @@ -1,6 +1,6 @@ ! Copyright (C) 2008 James Cash ! See http://factorcode.org/license.txt for BSD license. -USING: lisp lisp.parser tools.test sequences math kernel parser arrays ; +USING: lisp lisp.parser tools.test sequences math kernel parser arrays lists ; IN: lisp.test @@ -29,6 +29,10 @@ IN: lisp.test "((lambda (x y z) (+ x (- y z))) 40 3 1)" lisp-eval ] unit-test + { { 1 2 3 4 } } [ + "((lambda (x y) (quasiquote (1 (unquote x) 3 (unquote y)))) 2 4)" lisp-eval list>seq + ] unit-test + { T{ lisp-symbol f "if" } } [ "(defmacro if (pred tr fl) (quasiquote (cond ((unquote pred) (unquote tr)) (#t (unquote fl)))))" lisp-eval ] unit-test