factor/core/classes/parser/parser.factor

! Copyright (C) 2008, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: parser vocabs.parser words kernel classes compiler.units lexer ;
IN: classes.parser

: save-class-location ( class -- )
    location remember-class ;

: create-class-in ( string -- word )
    current-vocab create
    dup set-word
    dup save-class-location
    dup create-predicate-word save-location ;

: scan-new-class ( -- word )
    scan-word-name create-class-in ;