From 452f59759ac00b38d602a0a5b417ac57e235d2a2 Mon Sep 17 00:00:00 2001 From: James Cash Date: Thu, 19 Jun 2008 14:32:46 -0400 Subject: [PATCH] Minor changes to lisp --- extra/lisp/lisp.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/extra/lisp/lisp.factor b/extra/lisp/lisp.factor index 15b8b15b91..802b236b25 100644 --- a/extra/lisp/lisp.factor +++ b/extra/lisp/lisp.factor @@ -64,7 +64,7 @@ PRIVATE> cdr [ car ] keep [ convert-lambda ] [ car name>> ] bi define-lisp-macro 1quotation ; : macro-expand ( cons -- quot ) - uncons [ list>seq >quotation ] [ lookup-macro call ] bi* call call convert-form ; + uncons [ list>seq >quotation ] [ lookup-macro call ] bi* call convert-form ; : form-dispatch ( cons lisp-symbol -- quot ) name>> @@ -129,7 +129,7 @@ M: no-such-var summary drop "No such variable" ; dup lisp-symbol? [ lookup-var ] when curry call ; inline : define-primitive ( name vocab word -- ) - swap lookup 1quotation '[ , compose call ] swap lisp-define ; ! '[ , compose call ] swap lisp-define ; + swap lookup 1quotation '[ , compose call ] swap lisp-define ; : lookup-macro ( lisp-symbol -- lambda ) name>> macro-env get at ;