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

locals-and-roots
John Benediktsson 2016-04-13 16:41:48 -07:00
parent a7814b9358
commit 950f42eedd
1 changed files with 4 additions and 1 deletions

View File

@ -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 {