factor: CHAR: ; -> CHAR: \;

basis/sequences/parser/parser-tests.factor

@@ -13,7 +13,7 @@ IN: sequences.parser.tests
 { "foo" ";bar" }
 [
     "foo;bar" [
-        [ CHAR: ; take-until-object ] [ take-rest ] bi
+        [ CHAR: \; take-until-object ] [ take-rest ] bi
     ] parse-sequence
 ] unit-test
 

basis/xml/tests/state-parser-tests.factor

@@ -13,6 +13,6 @@ IN: xml.test.state
 [ "hello" ] [ "hello" [ take-rest ] string-parse ] unit-test
 [ 2 3 ] [ "12\n123" [ take-rest drop get-line get-column ] string-parse ] unit-test
 [ "hi" " how are you?" ] [ "hi how are you?" [ [ blank? ] take-until take-rest ] string-parse ] unit-test
-[ "foo" ";bar" ] [ "foo;bar" [ CHAR: ; take-char take-rest ] string-parse ] unit-test
+[ "foo" ";bar" ] [ "foo;bar" [ CHAR: \; take-char take-rest ] string-parse ] unit-test
 [ "foo " " bar" ] [ "foo and bar" [ "and" take-string take-rest ] string-parse ] unit-test
 [ "baz" ] [ " \n\t baz" [ pass-blank take-rest ] string-parse ] unit-test

extra/cuesheet/cuesheet.factor

@@ -55,7 +55,7 @@ ERROR: unknown-syntax syntax ;
 <PRIVATE
 
 : trim-comments ( str -- str' )
-    dup [ CHAR: ; = ] find drop [ head ] when* ;
+    dup [ CHAR: \; = ] find drop [ head ] when* ;
 
 : trim-quotes ( str -- str' )
     [ CHAR: \" = ] trim ;

extra/fjsc/fjsc.factor

@@ -33,7 +33,7 @@ TUPLE: ast-hashtable elements ;
         {
             [ blank? not ]
             [ CHAR: \" = not ]
-            [ CHAR: ; = not ]
+            [ CHAR: \; = not ]
             [ LETTER? not ]
             [ letter? not ]
             [ identifier-middle? not ]

extra/flip-text/flip-text.factor

@@ -73,7 +73,7 @@ CONSTANT: CHARS H{
     { CHAR: \!   0x00A1 }
     { CHAR: \"   0x201E }
     { CHAR: .   0x02D9 }
-    { CHAR: ;   0x061B }
+    { CHAR: \;   0x061B }
     { CHAR: \[   CHAR: \]   }
     { CHAR: \(   CHAR: \)   }
     { CHAR: \{   CHAR: \}   }

extra/gopher/gopher.factor

@@ -36,7 +36,7 @@ CONSTANT: A_QUERY CHAR: q
 CONSTANT: A_GIF CHAR: g
 CONSTANT: A_WWW CHAR: w
 CONSTANT: A_PLUS_IMAGE CHAR: \:
-CONSTANT: A_PLUS_MOVIE CHAR: ;
+CONSTANT: A_PLUS_MOVIE CHAR: \;
 CONSTANT: A_PLUS_SOUND CHAR: <
 
 : gopher-get ( selector -- item-type byte-array )

extra/ini-file/ini-file.factor

@@ -22,7 +22,7 @@ IN: ini-file
         { CHAR: \"   CHAR: \" }
         { CHAR: \\  CHAR: \\ }
         { CHAR: ?   CHAR: ? }
-        { CHAR: ;   CHAR: ; }
+        { CHAR: \;   CHAR: \; }
         { CHAR: \[   CHAR: \[ }
         { CHAR: \]   CHAR: \] }
         { CHAR: =   CHAR: = }
@@ -53,7 +53,7 @@ USE: xml.entities
         { CHAR: \"    "\\\"" }
         { CHAR: \\   "\\\\" }
         { CHAR: ?    "\\?"  }
-        { CHAR: ;    "\\;"  }
+        { CHAR: \;    "\\;"  }
         { CHAR: \[    "\\["  }
         { CHAR: \]    "\\]"  }
         { CHAR: =    "\\="  }

extra/metar/metar.factor

@@ -41,7 +41,7 @@ ERROR: bad-location str ;
 
 : stations-data ( -- seq )
     URL" http://tgftp.nws.noaa.gov/data/nsd_cccc.txt"
-    http-get nip CHAR: ; [ string>csv ] with-delimiter ;
+    http-get nip CHAR: \; [ string>csv ] with-delimiter ;
 
 PRIVATE>
 

extra/modern/slices/slices.factor

@@ -13,7 +13,7 @@ IN: modern.slices
         { CHAR: \[ CHAR: \] }
         { CHAR: \{ CHAR: \} }
         { CHAR: < CHAR: > }
-        { CHAR: \: CHAR: ; }
+        { CHAR: \: CHAR: \; }
     } ?at drop ;
 
 : matching-delimiter-string ( string -- string' )

extra/morse/morse.factor

@@ -66,7 +66,7 @@ CONSTANT: morse-code-table $[
         { CHAR: \) "-.--.-" }
         { CHAR: & ".-..."  }
         { CHAR: \: "---..." }
-        { CHAR: ; "-.-.-." }
+        { CHAR: \; "-.-.-." }
         { CHAR: = "-...- " }
         { CHAR: + ".-.-."  }
         { CHAR: - "-....-" }