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 {