factor: port changes.

basis/io/encodings/8-bit/8-bit.factor

@@ -43,6 +43,7 @@ M: 8-bit decode-char
 PRIVATE>
 
 SYNTAX: \8-BIT: scan-token scan-token scan-token load-encoding ;
+>>
 
 8-BIT: cp424 IBM424 CP424
 8-BIT: cp437 IBM437 CP437
@@ -95,4 +96,3 @@ SYNTAX: \8-BIT: scan-token scan-token scan-token load-encoding ;
 8-BIT: windows-1256 windows-1256 CP1256
 8-BIT: windows-1257 windows-1257 CP1257
 8-BIT: windows-1258 windows-1258 CP1258
->>>>>>> origin/master

extra/dbf/dbf.factor

@@ -149,20 +149,20 @@ STRUCT: dbf-field-header
     { index-field-flag uint8_t } ;
 
 : read-field-headers ( -- field-headers )
-    [ read1 dup { CHAR: \r CHAR: \n f } member? not ] [
+    [ read1 dup { char: \r char: \n f } member? not ] [
         dbf-field-header heap-size 1 - read swap prefix
         dbf-field-header memory>struct
     ] produce nip ;
 
 : check-field-header ( field-header -- field-header )
     dup type>> {
-        { CHAR: I [ dup length>> 4 assert= ] }
+        { char: I [ dup length>> 4 assert= ] }
-        { CHAR: L [ dup length>> 1 assert= ] }
+        { char: L [ dup length>> 1 assert= ] }
-        { CHAR: O [ dup length>> 8 assert= ] }
+        { char: O [ dup length>> 8 assert= ] }
-        { CHAR: Y [ dup length>> 8 assert= ] }
+        { char: Y [ dup length>> 8 assert= ] }
-        { CHAR: D [ dup length>> 8 assert= ] }
+        { char: D [ dup length>> 8 assert= ] }
-        { CHAR: T [ dup length>> 8 assert= ] }
+        { char: T [ dup length>> 8 assert= ] }
-        { CHAR: M [ dup length>> 10 assert= ] }
+        { char: M [ dup length>> 10 assert= ] }
         [ drop ]
     } case ;
 
@@ -176,7 +176,7 @@ TUPLE: record deleted? values ;
 : read-records ( field-headers -- records )
     [ read1 dup { 0x1a f } member? not ]
     [
-        CHAR: * = over [
+        char: * = over [
             [ length>> read ]
             [ type>> parse-field ] bi
         ] map record boa
@@ -229,7 +229,7 @@ ERROR: illegal-logical value ;
 
 : parse-numeric ( byte-array -- n )
     [ "\r\n\t *" member? ] trim
-    H{ { CHAR: , CHAR: . } } substitute string>number ;
+    H{ { char: , char: . } } substitute string>number ;
 
 : parse-double ( byte-array -- n )
     dup length 8 assert= le> bits>double ;
@@ -245,27 +245,27 @@ ERROR: unsupported-field-type type ;
 
 : parse-field ( byte-array type -- data )
     {
-        { CHAR: \0 [ ] }
+        { char: \0 [ ] }
-        { CHAR: 2  [ parse-short ] }
+        { char: 2  [ parse-short ] }
-        { CHAR: 4  [ parse-int ] }
+        { char: 4  [ parse-int ] }
-        { CHAR: 8  [ parse-double ] }
+        { char: 8  [ parse-double ] }
-        { CHAR: C  [ parse-string ] }
+        { char: C  [ parse-string ] }
-        { CHAR: D  [ parse-date ] }
+        { char: D  [ parse-date ] }
-        { CHAR: F  [ parse-float ] }
+        { char: F  [ parse-float ] }
-        { CHAR: I  [ parse-int ] }
+        { char: I  [ parse-int ] }
-        { CHAR: L  [ parse-logical ] }
+        { char: L  [ parse-logical ] }
-        { CHAR: N  [ parse-numeric ] }
+        { char: N  [ parse-numeric ] }
-        { CHAR: O  [ parse-double ] }
+        { char: O  [ parse-double ] }
-        { CHAR: V  [ parse-string ] }
+        { char: V  [ parse-string ] }
-        { CHAR: Y  [ parse-currency ] }
+        { char: Y  [ parse-currency ] }
-        { CHAR: @  [ parse-timestamp ] }
+        { char: @  [ parse-timestamp ] }
-        ! { CHAR: +  [ parse-autoincrement ] }
+        ! { char: +  [ parse-autoincrement ] }
-        ! { CHAR: M  [ parse-memo ] }
+        ! { char: M  [ parse-memo ] }
-        ! { CHAR: T  [ parse-datetime ] }
+        ! { char: T  [ parse-datetime ] }
-        ! { CHAR: B  [ parse-double? ] } ! (only on dbversion in [0x30, 0x31, 0x32])
+        ! { char: B  [ parse-double? ] } ! (only on dbversion in [0x30, 0x31, 0x32])
-        ! { CHAR: G  [ parse-general ] }
+        ! { char: G  [ parse-general ] }
-        ! { CHAR: P  [ parse-picture ] }
+        ! { char: P  [ parse-picture ] }
-        ! { CHAR: Q  [ parse-varbinary ] }
+        ! { char: Q  [ parse-varbinary ] }
         [ unsupported-field-type ]
     } case ;
 

extra/images/png/png.factor

@@ -6,7 +6,7 @@ images.loader io io.binary io.encodings.ascii
 io.encodings.binary io.encodings.latin1 io.encodings.string
 io.streams.byte-array io.streams.throwing kernel locals math
 math.bitwise math.functions sequences sorting ;
-QUALIFIED: bitstreams
+QUALIFIED-WITH: bitstreams bs
 IN: images.png
 
 SINGLETON: png-image

extra/minesweeper/minesweeper.factor

@@ -191,7 +191,7 @@ M: grid-gadget pref-dim*
         h 58 >= [
             h 58 - w [ 32 /i ] bi@ :> ( row col )
             gadget cells>> row col cell-at [
-                mined?>> COLOR: black COLOR: white ? gl-color
+                mined?>> color: black color: white ? gl-color
                 { 0 0 } { 1 1 } gl-fill-rect
             ] when*
         ] when