Fixing basis -> extra dependencies

[factor.git] / extra / namespaces / lib / lib.factor

diff --git a/extra/namespaces/lib/lib.factor b/extra/namespaces/lib/lib.factor
index da9fde9d791033060a973da5b21aafbff60f28d5..ae0887e45a5a10a854dcc587197862e99b708a88 100755 (executable)
--- a/extra/namespaces/lib/lib.factor
+++ b/extra/namespaces/lib/lib.factor
@@ -16,45 +16,6 @@ IN: namespaces.lib
 
 : set* ( val var -- ) namestack* set-assoc-stack ;
 
-SYMBOL: building-seq 
-: get-building-seq ( n -- seq )
-    building-seq get nth ;
-
-: n, ( obj n -- ) get-building-seq push ;
-: n% ( seq n -- ) get-building-seq push-all ;
-: n# ( num n -- ) >r number>string r> n% ;
-
-: 0, ( obj -- ) 0 n, ;
-: 0% ( seq -- ) 0 n% ;
-: 0# ( num -- ) 0 n# ;
-: 1, ( obj -- ) 1 n, ;
-: 1% ( seq -- ) 1 n% ;
-: 1# ( num -- ) 1 n# ;
-: 2, ( obj -- ) 2 n, ;
-: 2% ( seq -- ) 2 n% ;
-: 2# ( num -- ) 2 n# ;
-: 3, ( obj -- ) 3 n, ;
-: 3% ( seq -- ) 3 n% ;
-: 3# ( num -- ) 3 n# ;
-: 4, ( obj -- ) 4 n, ;
-: 4% ( seq -- ) 4 n% ;
-: 4# ( num -- ) 4 n# ;
-
-MACRO: finish-nmake ( exemplars -- )
-    length [ firstn ] curry ;
-
-:: nmake ( quot exemplars -- )
-    [
-        exemplars
-        [ 0 swap new-resizable ] map
-        building-seq set
-
-        quot call
-
-        building-seq get
-        exemplars [ [ like ] 2map ] [ finish-nmake ] bi
-    ] with-scope ; inline
-
 : make-object ( quot class -- object )
     new [ <mirror> swap bind ] keep ; inline