From 6d4a3667875a55a6516ad425611708f84a7f7597 Mon Sep 17 00:00:00 2001 From: James Cash Date: Wed, 18 Jun 2008 15:08:42 -0400 Subject: [PATCH] Fixing definitions for lisp tests --- extra/lisp/lisp-tests.factor | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/extra/lisp/lisp-tests.factor b/extra/lisp/lisp-tests.factor index 7e51008ea0..8946575300 100644 --- a/extra/lisp/lisp-tests.factor +++ b/extra/lisp/lisp-tests.factor @@ -8,11 +8,13 @@ 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 + "<" "math" "<" define-primitive + ">" "math" ">" define-primitive "cons" "lists" "cons" define-primitive "car" "lists" "car" define-primitive @@ -49,6 +51,10 @@ IN: lisp.test "(cond (#f \"a\") (#t \"b\"))" lisp-eval ] unit-test + { "b" } [ + "(cond ((< 1 2) \"b\") (#t \"a\"))" lisp-eval + ] unit-test + { 5 } [ "(begin (+ 1 4))" lisp-eval ] unit-test