More refactorings to extra/lisp in the wake of peg changes
parent
7678676455
commit
70bb6b71ee
|
@ -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 ;
|
||||
|
||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
|
||||
|
|
Loading…
Reference in New Issue