locals.parser: move parse-binding to functors.

diff --git a/basis/functors/functors.factor b/basis/functors/functors.factor
index 5f5b13a4278bc63158577f14f6f9bc22942c2152..d6233dadcc6f46065215e08ff2e12338c7a807d3 100644 (file)
--- a/basis/functors/functors.factor
+++ b/basis/functors/functors.factor
@@ -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 ]

diff --git a/basis/locals/parser/parser.factor b/basis/locals/parser/parser.factor
index 3036bcb7cb44f92016b064b64c4c4c2cafd5453b..1a48822d203745adda8701701c327b441cc34d1e 100644 (file)
--- a/basis/locals/parser/parser.factor
+++ b/basis/locals/parser/parser.factor
@@ -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 ;