From f95ec523f7b71700db6298d827a7239e0b0d31b4 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Sat, 2 Feb 2008 13:09:23 -0600
Subject: [PATCH] Removed obsolete vocabs

---
 extra/macros/zoo/authors.txt  |  1 -
 extra/macros/zoo/zoo.factor   | 38 -----------------------------------
 extra/strings/lib/authors.txt |  1 -
 extra/strings/lib/lib.factor  | 14 -------------
 extra/strings/lib/tags.txt    |  1 -
 5 files changed, 55 deletions(-)
 delete mode 100755 extra/macros/zoo/authors.txt
 delete mode 100644 extra/macros/zoo/zoo.factor
 delete mode 100755 extra/strings/lib/authors.txt
 delete mode 100644 extra/strings/lib/lib.factor
 delete mode 100644 extra/strings/lib/tags.txt

diff --git a/extra/macros/zoo/authors.txt b/extra/macros/zoo/authors.txt
deleted file mode 100755
index 6cfd5da273..0000000000
--- a/extra/macros/zoo/authors.txt
+++ /dev/null
@@ -1 +0,0 @@
-Eduardo Cavazos
diff --git a/extra/macros/zoo/zoo.factor b/extra/macros/zoo/zoo.factor
deleted file mode 100644
index 21edc39f19..0000000000
--- a/extra/macros/zoo/zoo.factor
+++ /dev/null
@@ -1,38 +0,0 @@
-
-USING: kernel quotations arrays sequences sequences.private macros ;
-
-IN: macros.zoo
-
-! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-! MACRO: narray ( n -- quot )
-!     dup [ f <array> ] curry
-!     swap <reversed> [
-!         [ swap [ set-nth-unsafe ] keep ] curry
-!     ] map concat append ;
-
-! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-! MACRO: map-call-with ( quots -- )
-!   [ [ [ keep ] curry ] map concat ] keep length [ nip narray ] curry compose ;
-
-! MACRO: map-call-with2 ( quots -- )
-!   dup >r
-!   [ [ 2dup >r >r ] swap append [ r> r> ] append ] map concat
-!   [ 2drop ] append
-!   r> length [ narray ] curry append ;
-
-! MACRO: map-exec-with ( words -- ) [ 1quotation ] map [ map-call-with ] curry ;
-
-! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-! Conceptual implementation:
-
-! : pcall ( seq quots -- seq ) [ call ] 2map ;
-
-! MACRO: pcall ( quots -- )
-!   [ [ unclip ] swap append ] map
-!   [ [ r> swap add >r ] append ] map
-!   concat
-!   [ { } >r ] swap append ! pre
-!   [ drop r> ] append ;   ! post
diff --git a/extra/strings/lib/authors.txt b/extra/strings/lib/authors.txt
deleted file mode 100755
index 6cfd5da273..0000000000
--- a/extra/strings/lib/authors.txt
+++ /dev/null
@@ -1 +0,0 @@
-Eduardo Cavazos
diff --git a/extra/strings/lib/lib.factor b/extra/strings/lib/lib.factor
deleted file mode 100644
index 223fdb2090..0000000000
--- a/extra/strings/lib/lib.factor
+++ /dev/null
@@ -1,14 +0,0 @@
-USING: math arrays sequences kernel splitting strings ;
-IN: strings.lib
-
-: char>digit ( c -- i ) 48 - ;
-
-: string>digits ( s -- seq ) [ char>digit ] { } map-as ;
-
-: >Upper ( str -- str )
-    dup empty? [
-        unclip ch>upper 1string swap append
-    ] unless ;
-
-: >Upper-dashes ( str -- str )
-    "-" split [ >Upper ] map "-" join ;
diff --git a/extra/strings/lib/tags.txt b/extra/strings/lib/tags.txt
deleted file mode 100644
index 42d711b32b..0000000000
--- a/extra/strings/lib/tags.txt
+++ /dev/null
@@ -1 +0,0 @@
-collections