From 6c5bc17c582b46538739298b3cf32467796e3915 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 26 Aug 2017 10:52:47 -0500
Subject: [PATCH] factor: CHAR: ; -> CHAR: \;

---
 basis/sequences/parser/parser-tests.factor | 2 +-
 basis/xml/tests/state-parser-tests.factor  | 2 +-
 extra/cuesheet/cuesheet.factor             | 2 +-
 extra/fjsc/fjsc.factor                     | 2 +-
 extra/flip-text/flip-text.factor           | 2 +-
 extra/gopher/gopher.factor                 | 2 +-
 extra/ini-file/ini-file.factor             | 4 ++--
 extra/metar/metar.factor                   | 2 +-
 extra/modern/slices/slices.factor          | 2 +-
 extra/morse/morse.factor                   | 2 +-
 10 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/basis/sequences/parser/parser-tests.factor b/basis/sequences/parser/parser-tests.factor
index 50ae22b3dd..f441cd6434 100644
--- a/basis/sequences/parser/parser-tests.factor
+++ b/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
 
diff --git a/basis/xml/tests/state-parser-tests.factor b/basis/xml/tests/state-parser-tests.factor
index 550378fea0..c6c051283a 100644
--- a/basis/xml/tests/state-parser-tests.factor
+++ b/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
diff --git a/extra/cuesheet/cuesheet.factor b/extra/cuesheet/cuesheet.factor
index 8f5b86a599..7138c77812 100644
--- a/extra/cuesheet/cuesheet.factor
+++ b/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 ;
diff --git a/extra/fjsc/fjsc.factor b/extra/fjsc/fjsc.factor
index 52e865b784..c8d397dc53 100644
--- a/extra/fjsc/fjsc.factor
+++ b/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 ]
diff --git a/extra/flip-text/flip-text.factor b/extra/flip-text/flip-text.factor
index 94cd5ae1f8..2699ec9183 100644
--- a/extra/flip-text/flip-text.factor
+++ b/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: \}   }
diff --git a/extra/gopher/gopher.factor b/extra/gopher/gopher.factor
index 9bef920f1e..50dba7a0e1 100644
--- a/extra/gopher/gopher.factor
+++ b/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 )
diff --git a/extra/ini-file/ini-file.factor b/extra/ini-file/ini-file.factor
index f0a66f77b7..6a8f2d893a 100644
--- a/extra/ini-file/ini-file.factor
+++ b/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: =    "\\="  }
diff --git a/extra/metar/metar.factor b/extra/metar/metar.factor
index fc6df7b008..eef5b97256 100644
--- a/extra/metar/metar.factor
+++ b/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>
 
diff --git a/extra/modern/slices/slices.factor b/extra/modern/slices/slices.factor
index ff4c2cb2c0..2aefa1a2c4 100644
--- a/extra/modern/slices/slices.factor
+++ b/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' )
diff --git a/extra/morse/morse.factor b/extra/morse/morse.factor
index 5432bd7855..26e16fc2a3 100755
--- a/extra/morse/morse.factor
+++ b/extra/morse/morse.factor
@@ -66,7 +66,7 @@ CONSTANT: morse-code-table $[
         { CHAR: \) "-.--.-" }
         { CHAR: & ".-..."  }
         { CHAR: \: "---..." }
-        { CHAR: ; "-.-.-." }
+        { CHAR: \; "-.-.-." }
         { CHAR: = "-...- " }
         { CHAR: + ".-.-."  }
         { CHAR: - "-....-" }