Fixing lisp for changes to peg
parent
4013d5059a
commit
7678676455
|
@ -86,12 +86,9 @@ PRIVATE>
|
||||||
{ [ dup lisp-symbol? ] [ '[ , lookup-var ] ] }
|
{ [ dup lisp-symbol? ] [ '[ , lookup-var ] ] }
|
||||||
[ 1quotation ]
|
[ 1quotation ]
|
||||||
} cond ;
|
} cond ;
|
||||||
|
|
||||||
: lisp-string>factor ( str -- quot )
|
|
||||||
lisp-expr compile-form ;
|
|
||||||
|
|
||||||
: lisp-eval ( str -- * )
|
: lisp-eval ( str -- * )
|
||||||
lisp-string>factor call ;
|
lisp-expr convert-form call ;
|
||||||
|
|
||||||
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue