core/words/symbol/symbol.factor

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