extra/const/const.factor

   1 USING: kernel parser words sequences ;
   2 IN: const
   3
   4 : define-const ( word value -- )
   5     [ parsed ] curry dupd define-compound
   6     t "parsing" set-word-prop ;
   7
   8 : CONST:
   9     CREATE scan-word dup parsing?
  10     [ execute dup pop ] when define-const ; parsing
  11
  12 : define-enum ( words -- )
  13     dup length [ define-const ] 2each ;
  14
  15 : ENUM:
  16     ";" parse-tokens [ create-in ] map define-enum ; parsing