fix stack effect
parent
5e4506c987
commit
bbf0a8d266
|
@ -6,7 +6,7 @@ IN: classes.parser
|
||||||
: save-class-location ( class -- )
|
: save-class-location ( class -- )
|
||||||
location remember-class ;
|
location remember-class ;
|
||||||
|
|
||||||
: create-class-in ( word -- word )
|
: create-class-in ( string -- word )
|
||||||
current-vocab create
|
current-vocab create
|
||||||
dup save-class-location
|
dup save-class-location
|
||||||
dup predicate-word dup set-word save-location ;
|
dup predicate-word dup set-word save-location ;
|
||||||
|
|
Loading…
Reference in New Issue