steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/functors/functors.factor
View File

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

6
basis/locals/parser/parser.factor
View File

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