modern: fix # standalone

2019-10-28 19:28:49 -05:00 · 2019-10-28 19:28:49 -05:00 · 46b0e8d44f
parent dc1cb5b7d1
commit 46b0e8d44f
1 changed files with 2 additions and 2 deletions
--- a/extra/modern/modern.factor
+++ b/extra/modern/modern.factor
@ -334,8 +334,8 @@ MACRO:: read-matched ( ch -- quot: ( string n tag -- string n' slice' ) )

 ! #{ } turned off, foo# not turned off
 : read-turnoff ( string n slice -- string n' obj )
-    dup { [ "#" head? ] [ "#" sequence= not ] } 1&&  [
-        [ lex-factor ] dip swap 2array
+    dup "#" head? [
+        [ lex-factor ] dip swap [ 2array ] when* ! ``{ # foo }`` or ``#`` standalone
    ] [
        merge-slice-til-whitespace
    ] if ;