parser: make scan-class assert result is a classoid like it used to.

diff --git a/core/parser/parser.factor b/core/parser/parser.factor
index 9b9900f4d6ef26590ff0faa25df04e15e4673117..5b581bce6111b1e98cf908168be06839932c3762 100644 (file)
--- 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 {