steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

factor: CHAR: ; -> CHAR: \;

modern-harvey2
Doug Coleman 2017-08-26 10:52:47 -05:00
parent eb173e2caa
commit 6c5bc17c58
10 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/sequences/parser/parser-tests.factor
View File

@ -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

2
basis/xml/tests/state-parser-tests.factor
View File

@ -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

2
extra/cuesheet/cuesheet.factor
View File

@ -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 ;

2
extra/fjsc/fjsc.factor
View File

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

2
extra/flip-text/flip-text.factor
View File

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

2
extra/gopher/gopher.factor
View File

@ -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 )

4
extra/ini-file/ini-file.factor
View File

@ -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: = "\\=" }

2
extra/metar/metar.factor
View File

@ -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>

2
extra/modern/slices/slices.factor
View File

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

2
extra/morse/morse.factor
View File

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