sequences: swap stack arguments for start/start*/subseq?.

[factor.git] / basis / multiline / multiline.factor

diff --git a/basis/multiline/multiline.factor b/basis/multiline/multiline.factor
index 1c2c1d462dfac8ba3a856db332fa941c76dcb9db..3a645a15ed51e33d66c5bf6bd2aac5cfbc1dac94 100644 (file)
--- a/basis/multiline/multiline.factor
+++ b/basis/multiline/multiline.factor
@@ -42,7 +42,7 @@ SYNTAX: STRING:
 :: (scan-multiline-string) ( i end lexer -- j )
     lexer line-text>> :> text
     lexer still-parsing? [
-        end text i start* [| j |
+        text end i start* [| j |
             i j text subseq % j end length +
         ] [
             text i short tail % CHAR: \n ,