locals.parser: move parse-binding to functors.

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 ]

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 ;