From 46b0e8d44fedf3c1c17915a71ad95465bd5f5b9e Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 28 Oct 2019 19:28:49 -0500
Subject: [PATCH] modern: fix # standalone

---
 extra/modern/modern.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/modern/modern.factor b/extra/modern/modern.factor
index 59a55a04cb..3046271bfa 100644
--- 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 ;