Move closures, fries and set-n to unmaintained

diff --git a/extra/closures/closures.factor b/extra/closures/closures.factor
deleted file mode 100644 (file)
index faa8ec0..0000000
--- a/extra/closures/closures.factor
+++ /dev/null
@@ -1,13 +0,0 @@
-USING: assocs io.pathnames fry namespaces namespaces.private kernel sequences parser hashtables ;
-IN: closures
-SYMBOL: |
-
-! Selective Binding
-: delayed-bind-with ( vars quot -- quot' ) '[ _ dup [ get ] map zip >hashtable [ _ bind ] curry ] ;
-SYNTAX: C[ | parse-until parse-quotation delayed-bind-with append! ;
-! Common ones
-SYNTAX: DIR[ parse-quotation { current-directory } swap delayed-bind-with append! ;
-
-! Namespace Binding
-: bind-to-namespace ( quot -- quot' ) '[ namespace [ _ bind ] curry ] ;
-SYNTAX: NS[ parse-quotation bind-to-namespace append! ;

diff --git a/extra/fries/authors.txt b/extra/fries/authors.txt
deleted file mode 100644 (file)
index ce0899f..0000000
--- a/extra/fries/authors.txt
+++ /dev/null
@@ -1 +0,0 @@
-Sam Anklesaria
\ No newline at end of file

diff --git a/extra/fries/fries.factor b/extra/fries/fries.factor
deleted file mode 100644 (file)
index 3f970a8..0000000
--- a/extra/fries/fries.factor
+++ /dev/null
@@ -1,17 +0,0 @@
-USING: arrays vectors combinators effects kernel math sequences splitting
-strings.parser parser fry sequences.extras ;
-
-! a b c glue => acb
-! c b a [ append ] dip prepend
-
-IN: fries
-: str-fry ( str on -- quot ) split
-    [ unclip-last [ [ [ append ] [ prepend ] bi* ] reduce-r ] 2curry ]
-    [ length 1 - 1 <effect> [ call-effect ] 2curry ] bi ;
-: gen-fry ( str on -- quot ) split
-    [ unclip-last [ [ [ 1array ] [ append ] [ prepend ] tri* ] reduce-r ] 2curry ]
-    [ length 1 - 1 <effect> [ call-effect ] 2curry ] bi ;
-
-SYNTAX: i" parse-string rest "_" str-fry append! ;
-SYNTAX: i{ \ } parse-until >array { _ } gen-fry append! ;
-SYNTAX: iV{ \ } parse-until >vector V{ _ } gen-fry append! ;

diff --git a/extra/fries/summary.txt b/extra/fries/summary.txt
deleted file mode 100644 (file)
index 44e9456..0000000
--- a/extra/fries/summary.txt
+++ /dev/null
@@ -1 +0,0 @@
-Generalized Frying
\ No newline at end of file

diff --git a/extra/set-n/set-n.factor b/extra/set-n/set-n.factor
deleted file mode 100644 (file)
index 0807b76..0000000
--- a/extra/set-n/set-n.factor
+++ /dev/null
@@ -1,9 +0,0 @@
-USING: accessors assocs fry generalizations kernel locals math
-namespaces parser sequences shuffle words effects.parser ;
-IN: set-n
-: get* ( var n -- val ) namestack dup length rot - head assoc-stack ;
-
-: set* ( val var n -- ) 1 + namestack [ length swap - ] keep nth set-at ;
-
-! dynamic lambda
-SYNTAX: :| (:) dup in>> dup length [ spin '[ _ narray _ swap zip _ bind ] ] 2curry dip define-declared ;

diff --git a/unmaintained/closures/closures.factor b/unmaintained/closures/closures.factor
new file mode 100644 (file)
index 0000000..faa8ec0
--- /dev/null
+++ b/unmaintained/closures/closures.factor
@@ -0,0 +1,13 @@
+USING: assocs io.pathnames fry namespaces namespaces.private kernel sequences parser hashtables ;
+IN: closures
+SYMBOL: |
+
+! Selective Binding
+: delayed-bind-with ( vars quot -- quot' ) '[ _ dup [ get ] map zip >hashtable [ _ bind ] curry ] ;
+SYNTAX: C[ | parse-until parse-quotation delayed-bind-with append! ;
+! Common ones
+SYNTAX: DIR[ parse-quotation { current-directory } swap delayed-bind-with append! ;
+
+! Namespace Binding
+: bind-to-namespace ( quot -- quot' ) '[ namespace [ _ bind ] curry ] ;
+SYNTAX: NS[ parse-quotation bind-to-namespace append! ;

diff --git a/unmaintained/fries/authors.txt b/unmaintained/fries/authors.txt
new file mode 100644 (file)
index 0000000..ce0899f
--- /dev/null
+++ b/unmaintained/fries/authors.txt
@@ -0,0 +1 @@
+Sam Anklesaria
\ No newline at end of file

diff --git a/unmaintained/fries/fries.factor b/unmaintained/fries/fries.factor
new file mode 100644 (file)
index 0000000..3f970a8
--- /dev/null
+++ b/unmaintained/fries/fries.factor
@@ -0,0 +1,17 @@
+USING: arrays vectors combinators effects kernel math sequences splitting
+strings.parser parser fry sequences.extras ;
+
+! a b c glue => acb
+! c b a [ append ] dip prepend
+
+IN: fries
+: str-fry ( str on -- quot ) split
+    [ unclip-last [ [ [ append ] [ prepend ] bi* ] reduce-r ] 2curry ]
+    [ length 1 - 1 <effect> [ call-effect ] 2curry ] bi ;
+: gen-fry ( str on -- quot ) split
+    [ unclip-last [ [ [ 1array ] [ append ] [ prepend ] tri* ] reduce-r ] 2curry ]
+    [ length 1 - 1 <effect> [ call-effect ] 2curry ] bi ;
+
+SYNTAX: i" parse-string rest "_" str-fry append! ;
+SYNTAX: i{ \ } parse-until >array { _ } gen-fry append! ;
+SYNTAX: iV{ \ } parse-until >vector V{ _ } gen-fry append! ;

diff --git a/unmaintained/fries/summary.txt b/unmaintained/fries/summary.txt
new file mode 100644 (file)
index 0000000..44e9456
--- /dev/null
+++ b/unmaintained/fries/summary.txt
@@ -0,0 +1 @@
+Generalized Frying
\ No newline at end of file

diff --git a/unmaintained/set-n/set-n.factor b/unmaintained/set-n/set-n.factor
new file mode 100644 (file)
index 0000000..0807b76
--- /dev/null
+++ b/unmaintained/set-n/set-n.factor
@@ -0,0 +1,9 @@
+USING: accessors assocs fry generalizations kernel locals math
+namespaces parser sequences shuffle words effects.parser ;
+IN: set-n
+: get* ( var n -- val ) namestack dup length rot - head assoc-stack ;
+
+: set* ( val var n -- ) 1 + namestack [ length swap - ] keep nth set-at ;
+
+! dynamic lambda
+SYNTAX: :| (:) dup in>> dup length [ spin '[ _ narray _ swap zip _ bind ] ] 2curry dip define-declared ;