Fix lisp unit tests

2008-07-11 11:34:12 +12:00 · 2008-07-11 11:34:12 +12:00 · 59857a455b
parent d808d49f68
commit 59857a455b
1 changed files with 1 additions and 1 deletions
--- a/extra/lisp/lisp.factor
+++ b/extra/lisp/lisp.factor
@ -99,7 +99,7 @@ PRIVATE>
    uncons [ list>seq [ ] like ] [ lookup-macro lambda-rewrite call ] bi* call compile-form call ;
    
 : lisp-string>factor ( str -- quot )
-    lisp-expr parse-result-ast compile-form ;
+    lisp-expr compile-form ;
    
 : lisp-eval ( str -- * )    
  lisp-string>factor call ;