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

classes.parser: add a create-class word.

db4
Doug Coleman 2015-08-23 13:32:24 -07:00
parent 92e576e544
commit de4e42b6ca
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
core/classes/parser/parser.factor
View File

@ -6,12 +6,15 @@ IN: classes.parser
: save-class-location ( class -- ) : save-class-location ( class -- )
location remember-class ; location remember-class ;
: create-class-in ( string -- word ) : create-class ( string vocab -- word )
current-vocab create-word create-word
dup t "defining-class" set-word-prop dup t "defining-class" set-word-prop
dup set-last-word dup set-last-word
dup save-class-location dup save-class-location
dup create-predicate-word save-location ; dup create-predicate-word save-location ;
: create-class-in ( string -- word )
current-vocab create-class ;
: scan-new-class ( -- word ) : scan-new-class ( -- word )
scan-word-name create-class-in ; scan-word-name create-class-in ;