From 0167ab0614e70c5f5e1d92ce6fe140f386c4690d Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Tue, 21 Jun 2016 17:05:15 -0700 Subject: [PATCH] modern: fix data-map!( -- ) parsing. --- core/modern/modern.factor | 2 +- core/modern/out/out-tests.factor | 6 +++++- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/core/modern/modern.factor b/core/modern/modern.factor index e09017ed72..af002e9e15 100644 --- a/core/modern/modern.factor +++ b/core/modern/modern.factor @@ -417,7 +417,7 @@ ERROR: closing-tag-required lexer tag ; ! Words like append! and suffix! are allowed for now. : read-exclamation ( lexer slice -- obj ) dup { [ "!" sequence= ] [ "#!" sequence= ] } 1|| - [ take-comment ] [ merge-lex-til-whitespace make-tag-literal ] if ; + [ take-comment ] [ >>partial [ 1 + ] change-n lex-factor ] if ; : read-backtick ( lexer opening -- obj ) diff --git a/core/modern/out/out-tests.factor b/core/modern/out/out-tests.factor index 9c1ee060e7..aa2c90d79f 100644 --- a/core/modern/out/out-tests.factor +++ b/core/modern/out/out-tests.factor @@ -73,4 +73,8 @@ in: modern.out.tests { t } [ "lol[==[abc]==]" rewrite-same-string ] unit-test { t } [ "![==[abc]==]" rewrite-same-string ] unit-test -{ t } [ "( :union{ fixnum bignum } -- )" rewrite-same-string ] unit-test \ No newline at end of file +{ t } [ "( :union{ fixnum bignum } -- )" rewrite-same-string ] unit-test +{ t } [ "data-map!( int -- float[2] )" rewrite-same-string ] unit-test +{ t } [ "a!" rewrite-same-string ] unit-test +{ t } [ "!" rewrite-same-string ] unit-test +{ t } [ "!a" rewrite-same-string ] unit-test