locals.parser: move parse-binding to functors.

locals-and-roots
John Benediktsson 2016-03-15 10:34:07 -07:00
parent 1aeae66370
commit 51bafaeda4
2 changed files with 6 additions and 6 deletions

View File

@ -141,6 +141,12 @@ DEFER: ;FUNCTOR delimiter
<PRIVATE
: parse-binding ( end -- pair/f )
scan-token {
{ [ 2dup = ] [ 2drop f ] }
[ nip scan-object 2array ]
} cond ;
: (parse-bindings) ( end -- words )
[ dup parse-binding dup ]
[ first2 [ make-local ] dip 2array ]

View File

@ -62,12 +62,6 @@ SINGLETON: lambda-parser
M: lambda-parser parse-quotation ( -- quotation )
H{ } clone (parse-lambda) ;
: parse-binding ( end -- pair/f )
scan-token {
{ [ 2dup = ] [ 2drop f ] }
[ nip scan-object 2array ]
} cond ;
: parse-let ( -- form )
H{ } clone (parse-lambda) <let> ?rewrite-closures ;