core/words/symbol/symbol.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: kernel sequences accessors definitions
   4 words words.constant ;
   5 IN: words.symbol
   6
   7 PREDICATE: symbol < constant ( obj -- ? )
   8     [ def>> ] [ [ ] curry ] bi sequence= ;
   9
  10 M: symbol definer drop \ SYMBOL: f ;
  11
  12 M: symbol definition drop f ;
  13
  14 : define-symbol ( word -- )
  15     dup define-constant ;