steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
core/parser/parser.factor
View File

@ -104,8 +104,11 @@ ERROR: staging-violation word ;
V{ } clone swap execute-parsing first V{ } clone swap execute-parsing first
] when ; ] when ;
ERROR: classoid-expected object ;
: scan-class ( -- class ) : scan-class ( -- class )
scan-object \ f or ; scan-object \ f or
dup classoid? [ classoid-expected ] unless ;
: parse-until-step ( accum end -- accum ? ) : parse-until-step ( accum end -- accum ? )
?scan-datum { ?scan-datum {