From ed37ed6b707d194e372884ce13360bb97e0a1dd3 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 15 Jan 2010 08:30:26 +1300
Subject: [PATCH] parser: make 'CONSTANT: foo<newline>3' work in the listener

---
 core/parser/parser.factor | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/core/parser/parser.factor b/core/parser/parser.factor
index d920e1fc73..1433289f0a 100644
--- a/core/parser/parser.factor
+++ b/core/parser/parser.factor
@@ -55,8 +55,11 @@ ERROR: staging-violation word ;
     execute( accum -- accum ) ;
 
 : scan-object ( -- object )
-    scan-word dup parsing-word?
-    [ V{ } clone swap execute-parsing first ] when ;
+    scan-word {
+        { [ dup not ] [ unexpected-eof ] }
+        { [ dup parsing-word? ] [ V{ } clone swap execute-parsing first ] }
+        [ ]
+    } cond  ;
 
 : parse-step ( accum end -- accum ? )
     scan-word {