16 lines
431 B
Factor
16 lines
431 B
Factor
|
! Copyright (C) 2008 Slava Pestov.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: parser words kernel classes compiler.units lexer ;
|
||
|
|
IN: classes.parser
|
||
|
|
|
||
|
|
: save-class-location ( class -- )
|
||
|
|
location remember-class ;
|
||
|
|
|
||
|
|
: create-class-in ( word -- word )
|
||
|
|
current-vocab create
|
||
|
|
dup save-class-location
|
||
|
|
dup predicate-word dup set-word save-location ;
|
||
|
|
|
||
|
|
: CREATE-CLASS ( -- word )
|
||
|
|
scan create-class-in ;
|