core/classes/parser/parser.factor

   1 ! Copyright (C) 2008, 2010 Slava Pestov.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: classes compiler.units kernel parser vocabs.parser words ;
   4 IN: classes.parser
   5
   6 : save-class-location ( class -- )
   7     location remember-class ;
   8
   9 : create-class ( string vocab -- word )
  10     create-word
  11     dup t "defining-class" set-word-prop
  12     dup set-last-word
  13     dup save-class-location
  14     dup create-predicate-word save-location ;
  15
  16 : create-class-in ( string -- word )
  17     current-vocab create-class ;
  18
  19 : scan-new-class ( -- word )
  20     scan-word-name create-class-in ;