STRING: now defines an inline word

db4
Slava Pestov 2008-02-12 15:52:47 -06:00
parent af62d8b126
commit 3e29bc8150
1 changed files with 1 additions and 1 deletions

View File

@ -16,7 +16,7 @@ IN: multiline
: 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