Don't split line between POSTPONE: and a parsing word

diff --git a/library/prettyprint/backend.factor b/library/prettyprint/backend.factor
index 72a62a4a2f57cdda248fecc4534d9969c70e9ae0..46ed2b961bf442e5e3df6ced83008150f15304a2 100644 (file)
--- a/library/prettyprint/backend.factor
+++ b/library/prettyprint/backend.factor
@@ -20,7 +20,11 @@ M: byte-array pprint* drop "( byte array )" text ;
     dup word-name swap word-style styled-text ;
 
 M: word pprint*
-    dup parsing? [ \ POSTPONE: pprint-word ] when pprint-word ;
+    dup parsing? [
+        H{ } <flow \ POSTPONE: pprint-word pprint-word block>
+    ] [
+        pprint-word
+    ] if ;
 
 M: real pprint* number>string text ;