/core/words/symbol/symbol.factor

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