Merge qualified, alias, symbols, constants into core

[factor.git] / core / words / words.factor

diff --git a/core/words/words.factor b/core/words/words.factor
index f0beab180919b13017886c251ee96ac61d520be2..c75711ea39c4e6217ac55776cc16547fa9803b91 100644 (file)
--- a/core/words/words.factor
+++ b/core/words/words.factor
@@ -28,11 +28,6 @@ PREDICATE: deferred < word ( obj -- ? )
 M: deferred definer drop \ DEFER: f ;
 M: deferred definition drop f ;
 
-PREDICATE: symbol < word ( obj -- ? )
-    [ def>> ] [ [ ] curry ] bi sequence= ;
-M: symbol definer drop \ SYMBOL: f ;
-M: symbol definition drop f ;
-
 PREDICATE: primitive < word ( obj -- ? )
     [ def>> [ do-primitive ] tail? ]
     [ sub-primitive>> >boolean ]
@@ -195,9 +190,6 @@ SYMBOL: visited
 : define-inline ( word def effect -- )
     [ define-declared ] [ 2drop make-inline ] 3bi ;
 
-: define-symbol ( word -- )
-    dup [ ] curry (( -- word )) define-inline ;
-
 GENERIC: reset-word ( word -- )
 
 M: word reset-word