More refactorings to extra/lisp in the wake of peg changes

diff --git a/extra/lisp/lisp.factor b/extra/lisp/lisp.factor
index ee5db27842bdc1ee818955c49ecce49384dc0684..a3f207ec854023bea314ad395692df7d65454c1b 100644 (file)
--- a/extra/lisp/lisp.factor
+++ b/extra/lisp/lisp.factor
@@ -86,9 +86,12 @@ PRIVATE>
       { [ dup lisp-symbol? ] [ '[ , lookup-var ] ] }
      [ 1quotation ]
     } cond ;
+
+: lisp-string>factor ( str -- quot )
+    lisp-expr convert-form ;
     
-: lisp-eval ( str -- * )    
-    lisp-expr convert-form call ;
+: lisp-eval ( str -- * )
+    lisp-string>factor call ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!