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

rename a couple more words

db4
Doug Coleman 2009-09-24 19:47:44 -05:00
parent c0294195e6
commit 9963213900
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
core/strings/parser/parser.factor
View File

@ -74,7 +74,7 @@ name>char-hook [
<PRIVATE
: lexer-before ( i -- before )
: lexer-subseq ( i -- before )
[
[
lexer get
@ -102,7 +102,7 @@ ERROR: escaped-char-expected ;
escaped-char-expected
] if ;
: rest-begins? ( string -- ? )
: lexer-head? ( string -- ? )
[
lexer get [ line-text>> ] [ column>> ] bi tail-slice
] dip head? ;
@ -141,11 +141,11 @@ ERROR: escaped-char-expected ;
DEFER: (parse-multiline-string)
: parse-found-token ( i string token -- )
[ lexer-before % ] dip
[ lexer-subseq % ] dip
CHAR: \ = [
lexer get [ next-char , ] [ next-char , ] bi (parse-multiline-string)
] [
dup rest-begins? [
dup lexer-head? [
end-string-parse
] [
lexer get next-char , (parse-multiline-string)