From eac64bccab46a11de5f3459fd208b4899bb6a52c Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <ehrenbed@carleton.edu>
Date: Wed, 30 Apr 2008 19:39:54 -0500
Subject: [PATCH] Moving VALUE: into unicode.syntax.backend

---
 extra/unicode/breaks/breaks.factor          |  2 +-
 extra/unicode/data/data.factor              | 10 +---------
 extra/unicode/syntax/backend/backend.factor |  8 ++++++++
 3 files changed, 10 insertions(+), 10 deletions(-)
 create mode 100644 extra/unicode/syntax/backend/backend.factor

diff --git a/extra/unicode/breaks/breaks.factor b/extra/unicode/breaks/breaks.factor
index ee3c8729c4..2117567e9f 100644
--- 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 58d836464c..b1e6fc5f8b 100755
--- 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
index 0000000000..d1065da5c8
--- /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 ;