Moving VALUE: into unicode.syntax.backend

db4
Daniel Ehrenberg 2008-04-30 19:39:54 -05:00
parent 3ac4931969
commit eac64bccab
3 changed files with 10 additions and 10 deletions

View File

@ -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

View File

@ -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 ;

View File

@ -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 ;