Moving VALUE: into unicode.syntax.backend
parent
3ac4931969
commit
eac64bccab
|
@ -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
|
||||
|
||||
|
|
|
@ -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 ;
|
||||
|
|
|
@ -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 ;
|
Loading…
Reference in New Issue