]> gitweb.factorcode.org Git - factor.git/commitdiff
Merge branch 'master' of git://factorcode.org/git/factor into unicode
authorDaniel Ehrenberg <ehrenbed@carleton.edu>
Thu, 14 Feb 2008 01:01:44 +0000 (19:01 -0600)
committerDaniel Ehrenberg <ehrenbed@carleton.edu>
Thu, 14 Feb 2008 01:01:44 +0000 (19:01 -0600)
1  2 
extra/multiline/multiline.factor

index adf8863ae1fbbca5f9ff762084805aeb77a155e0,4d777605cff9ace91f159833d20bfbc13e2a3d80..d32c11dd06ced1c87fbba785a4b53cc956ae2cea
@@@ -19,16 -16,14 +19,16 @@@ IN: multilin
  
  : STRING:
      CREATE dup reset-generic
-     parse-here 1quotation define ; parsing
+     parse-here 1quotation define-inline ; parsing
  
  : (parse-multiline-string) ( start-index end-text -- end-index )
 -    lexer get lexer-line-text 2dup start
 -    [ rot dupd >r >r swap subseq % r> r> length + ] [
 -        rot tail % "\n" % 0
 -        lexer get next-line swap (parse-multiline-string)
 -    ] if* ;
 +    lexer get lexer-line-text [
 +        2dup start
 +        [ rot dupd >r >r swap subseq % r> r> length + ] [
 +            rot tail % "\n" % 0
 +            lexer get next-line swap (parse-multiline-string)
 +        ] if*
 +    ] [ nip unexpected-eof ] if* ;
  
  : parse-multiline-string ( end-text -- str )
      [