Fix lisp unit tests

diff --git a/extra/lisp/lisp.factor b/extra/lisp/lisp.factor
index 1dd285ed7c04013c1d98ae03af37946916ae2379..bc425df12cfec109b8fe02385613cf6c9442e5a7 100644 (file)
--- 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 ;