Moving VALUE: into unicode.syntax.backend

diff --git a/extra/unicode/breaks/breaks.factor b/extra/unicode/breaks/breaks.factor
index ee3c8729c4bb1171f93ca7e0993ffef5359399b2..2117567e9f92fba8c98dd1b8408e6798f2561fa0 100644 (file)
--- a/extra/unicode/breaks/breaks.factor
+++ b/extra/unicode/breaks/breaks.factor
@@ -1,6 +1,6 @@
 USING: unicode.categories kernel math combinators splitting
 sequences math.parser io.files io assocs arrays namespaces
-math.ranges unicode.normalize
+math.ranges unicode.normalize unicode.syntax.backend
 unicode.syntax unicode.data compiler.units alien.syntax io.encodings.ascii ;
 IN: unicode.breaks
 

diff --git a/extra/unicode/data/data.factor b/extra/unicode/data/data.factor
index 58d836464c6963666162067509c2d1c2916ba8f5..b1e6fc5f8ba7a1831d7f9fb0f91ec5b51cb3f35b 100755 (executable)
--- a/extra/unicode/data/data.factor
+++ b/extra/unicode/data/data.factor
@@ -1,16 +1,8 @@
 USING: assocs math kernel sequences io.files hashtables
-quotations splitting arrays math.parser hash2
+quotations splitting arrays math.parser hash2 unicode.syntax.backend
 byte-arrays words namespaces words compiler.units parser io.encodings.ascii  ;
 IN: unicode.data
 
-<<
-: VALUE:
-    CREATE-WORD { f } clone [ first ] curry define ; parsing
-
-: set-value ( value word -- )
-    word-def first set-first ;
->>
-
 ! Convenience functions
 : ?between? ( n/f from to -- ? )
     pick [ between? ] [ 3drop f ] if ;

diff --git a/extra/unicode/syntax/backend/backend.factor b/extra/unicode/syntax/backend/backend.factor
new file mode 100644 (file)
index 0000000..d1065da
--- /dev/null
+++ b/extra/unicode/syntax/backend/backend.factor
@@ -0,0 +1,8 @@
+USING: kernel parser sequences definitions ;
+IN: unicode.syntax.backend
+
+: VALUE:
+    CREATE-WORD { f } clone [ first ] curry define ; parsing
+
+: set-value ( value word -- )
+    word-def first set-first ;