From 950f42eedd06929a83736cf48e4aab54d77859db Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 13 Apr 2016 16:41:48 -0700
Subject: [PATCH] parser: make scan-class assert result is a classoid like it
 used to.

---
 core/parser/parser.factor | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/core/parser/parser.factor b/core/parser/parser.factor
index 9b9900f4d6..5b581bce61 100644
--- a/core/parser/parser.factor
+++ b/core/parser/parser.factor
@@ -104,8 +104,11 @@ ERROR: staging-violation word ;
         V{ } clone swap execute-parsing first
     ] when ;
 
+ERROR: classoid-expected object ;
+
 : scan-class ( -- class )
-    scan-object \ f or ;
+    scan-object \ f or
+    dup classoid? [ classoid-expected ] unless ;
 
 : parse-until-step ( accum end -- accum ? )
     ?scan-datum {