core/classes/parser/parser.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: parser vocabs.parser words kernel classes compiler.units lexer ;
   4 IN: classes.parser
   5
   6 : save-class-location ( class -- )
   7     location remember-class ;
   8
   9 : create-class-in ( word -- word )
  10     current-vocab create
  11     dup save-class-location
  12     dup predicate-word dup set-word save-location ;
  13
  14 : CREATE-CLASS ( -- word )
  15     scan create-class-in ;