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

Fixing multiline error

db4
Daniel Ehrenberg 2009-01-21 00:44:43 -06:00
parent 272b919fb7
commit ef569240d0
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/multiline/multiline-tests.factor
View File

@ -16,3 +16,6 @@ bar
world"> ] unit-test world"> ] unit-test
[ "hello" "world" ] [ <" hello"> <" world"> ] unit-test [ "hello" "world" ] [ <" hello"> <" world"> ] unit-test
[ "\nhi" ] [ <"
hi"> ] unit-test

7
basis/multiline/multiline.factor
View File

@ -30,9 +30,10 @@ PRIVATE>
:: (parse-multiline-string) ( i end -- j ) :: (parse-multiline-string) ( i end -- j )
lexer get line-text>> :> text lexer get line-text>> :> text
text [ text [
end text i start* end text i start* [| j |
[| j | i j text subseq % j end length + ] [ i j text subseq % j end length +
text i tail % CHAR: \n , ] [
text i short tail % CHAR: \n ,
lexer get next-line lexer get next-line
0 end (parse-multiline-string) 0 end (parse-multiline-string)
] if* ] if*