Fixing Unicode bootstrap issue (hopefully)
parent
58df6dad6f
commit
8d8efb6dce
|
@ -1,5 +0,0 @@
|
||||||
USING: strings.parser kernel namespaces unicode unicode.data ;
|
|
||||||
IN: bootstrap.unicode
|
|
||||||
|
|
||||||
[ name>char [ "Invalid character" throw ] unless* ]
|
|
||||||
name>char-hook set-global
|
|
|
@ -1,6 +1,6 @@
|
||||||
! Copyright (C) 2008 Daniel Ehrenberg.
|
! Copyright (C) 2008 Daniel Ehrenberg.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: unicode.data sequences sequences.next namespaces make
|
USING: unicode.data sequences sequences.next namespaces make unicode.syntax
|
||||||
unicode.normalize math unicode.categories combinators unicode.syntax
|
unicode.normalize math unicode.categories combinators unicode.syntax
|
||||||
assocs strings splitting kernel accessors unicode.breaks fry ;
|
assocs strings splitting kernel accessors unicode.breaks fry ;
|
||||||
IN: unicode.case
|
IN: unicode.case
|
||||||
|
|
|
@ -4,7 +4,8 @@ USING: combinators.short-circuit assocs math kernel sequences
|
||||||
io.files hashtables quotations splitting grouping arrays io
|
io.files hashtables quotations splitting grouping arrays io
|
||||||
math.parser hash2 math.order byte-arrays words namespaces words
|
math.parser hash2 math.order byte-arrays words namespaces words
|
||||||
compiler.units parser io.encodings.ascii values interval-maps
|
compiler.units parser io.encodings.ascii values interval-maps
|
||||||
ascii sets combinators locals math.ranges sorting make io.encodings.utf8 ;
|
ascii sets combinators locals math.ranges sorting make
|
||||||
|
strings.parser io.encodings.utf8 ;
|
||||||
IN: unicode.data
|
IN: unicode.data
|
||||||
|
|
||||||
VALUE: simple-lower
|
VALUE: simple-lower
|
||||||
|
@ -218,3 +219,6 @@ SYMBOL: interned
|
||||||
|
|
||||||
: load-script ( filename -- table )
|
: load-script ( filename -- table )
|
||||||
ascii <file-reader> parse-script process-script ;
|
ascii <file-reader> parse-script process-script ;
|
||||||
|
|
||||||
|
[ name>char [ "Invalid character" throw ] unless* ]
|
||||||
|
name>char-hook set-global
|
||||||
|
|
Loading…
Reference in New Issue