Moving VALUE: into unicode.syntax.backend
parent
3ac4931969
commit
eac64bccab
|
@ -1,6 +1,6 @@
|
||||||
USING: unicode.categories kernel math combinators splitting
|
USING: unicode.categories kernel math combinators splitting
|
||||||
sequences math.parser io.files io assocs arrays namespaces
|
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 ;
|
unicode.syntax unicode.data compiler.units alien.syntax io.encodings.ascii ;
|
||||||
IN: unicode.breaks
|
IN: unicode.breaks
|
||||||
|
|
||||||
|
|
|
@ -1,16 +1,8 @@
|
||||||
USING: assocs math kernel sequences io.files hashtables
|
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 ;
|
byte-arrays words namespaces words compiler.units parser io.encodings.ascii ;
|
||||||
IN: unicode.data
|
IN: unicode.data
|
||||||
|
|
||||||
<<
|
|
||||||
: VALUE:
|
|
||||||
CREATE-WORD { f } clone [ first ] curry define ; parsing
|
|
||||||
|
|
||||||
: set-value ( value word -- )
|
|
||||||
word-def first set-first ;
|
|
||||||
>>
|
|
||||||
|
|
||||||
! Convenience functions
|
! Convenience functions
|
||||||
: ?between? ( n/f from to -- ? )
|
: ?between? ( n/f from to -- ? )
|
||||||
pick [ between? ] [ 3drop f ] if ;
|
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