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