From 635749a50b87da69393346d740318bb6b04fc648 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 6 Mar 2008 17:10:17 -0600 Subject: [PATCH] move nmake to namespaces.lib --- extra/db/types/types.factor | 27 --------------------------- 1 file changed, 27 deletions(-) diff --git a/extra/db/types/types.factor b/extra/db/types/types.factor index c2aa825db8..023c72cd2d 100755 --- a/extra/db/types/types.factor +++ b/extra/db/types/types.factor @@ -153,33 +153,6 @@ TUPLE: no-sql-modifier ; [ lookup-modifier ] map " " join dup empty? [ " " swap append ] unless ; -SYMBOL: building-seq -: get-building-seq ( n -- seq ) - building-seq get nth ; - -: n, get-building-seq push ; -: n% get-building-seq push-all ; -: n# >r number>string r> n% ; - -: 0, 0 n, ; -: 0% 0 n% ; -: 0# 0 n# ; -: 1, 1 n, ; -: 1% 1 n% ; -: 1# 1 n# ; -: 2, 2 n, ; -: 2% 2 n% ; -: 2# 2 n# ; - -: nmake ( quot exemplars -- seqs ) - dup length dup zero? [ 1+ ] when - [ - [ - [ drop 1024 swap new-resizable ] 2map - [ building-seq set call ] keep - ] 2keep >r [ like ] 2map r> firstn - ] with-scope ; - HOOK: bind% db ( spec -- ) TUPLE: no-slot-named ;