remove dead code, add copyright

diff --git a/basis/unicode/breaks/breaks.factor b/basis/unicode/breaks/breaks.factor
index 6aa3e606473104000688dcdfbea27d4760cf94a0..0f2e12119de141fe8eb9b0d4b06cd729ad8013af 100644 (file)
--- a/basis/unicode/breaks/breaks.factor
+++ b/basis/unicode/breaks/breaks.factor
@@ -1,3 +1,5 @@
+! Copyright (C) 2008 Daniel Ehrenberg.
+! See http://factorcode.org/license.txt for BSD license.
 USING: combinators.short-circuit unicode.categories kernel math
 combinators splitting sequences math.parser io.files io assocs
 arrays namespaces make math.ranges unicode.normalize values

diff --git a/basis/unicode/case/case.factor b/basis/unicode/case/case.factor
index 5e961e2d6795a9c15be505765680cf2f118d0aa1..3def7b5f4812212f4067267c500beea7c6d1dfcd 100644 (file)
--- a/basis/unicode/case/case.factor
+++ b/basis/unicode/case/case.factor
@@ -1,3 +1,5 @@
+! Copyright (C) 2008 Daniel Ehrenberg.
+! See http://factorcode.org/license.txt for BSD license.
 USING: unicode.data sequences sequences.next namespaces make
 unicode.normalize math unicode.categories combinators
 assocs strings splitting kernel accessors ;
@@ -70,17 +72,6 @@ SYMBOL: locale ! Just casing locale, or overall?
 : final-sigma ( string -- string )
     HEX: 3A3 over member? [ sigma-map ] when ;
 
-! : map-case ( string string-quot char-quot -- case )
-!     [
-!         rot [
-!             -rot [
-!                 rot dup special-casing at
-!                 [ -rot drop call % ]
-!                 [ -rot nip call , ] ?if
-!             ] 2keep
-!         ] each 2drop
-!     ] "" make ; inline
-
 : map-case ( string string-quot char-quot -- case )
     [
         [

diff --git a/basis/unicode/categories/categories.factor b/basis/unicode/categories/categories.factor
index 4ba96fb9c48bf1b9aab1f0afc45d75b70c44c298..0464e31b125063b60fa21489d8865b055efd60b4 100644 (file)
--- a/basis/unicode/categories/categories.factor
+++ b/basis/unicode/categories/categories.factor
@@ -1,3 +1,5 @@
+! Copyright (C) 2008 Daniel Ehrenberg.
+! See http://factorcode.org/license.txt for BSD license.
 USING: unicode.syntax ;
 IN: unicode.categories
 

diff --git a/basis/unicode/collation/collation.factor b/basis/unicode/collation/collation.factor
index 65786ede5dcb7b43b50b9075ed5cedcb58b536e4..7f445b8513c9b91496114099fdd403ea81602bda 100644 (file)
--- a/basis/unicode/collation/collation.factor
+++ b/basis/unicode/collation/collation.factor
@@ -1,3 +1,5 @@
+! Copyright (C) 2008 Daniel Ehrenberg.\r
+! See http://factorcode.org/license.txt for BSD license.\r
 USING: combinators.short-circuit sequences io.files\r
 io.encodings.ascii kernel values splitting accessors math.parser\r
 ascii io assocs strings math namespaces make sorting combinators\r

diff --git a/basis/unicode/data/data.factor b/basis/unicode/data/data.factor
index cd54b93f2a258bb1b255647db5c03baf68600c58..31d0be799f194bb6ea1dd7947ac0b66bd6653f70 100644 (file)
--- a/basis/unicode/data/data.factor
+++ b/basis/unicode/data/data.factor
@@ -1,3 +1,5 @@
+! Copyright (C) 2008 Daniel Ehrenberg.
+! See http://factorcode.org/license.txt for BSD license.
 USING: combinators.short-circuit assocs math kernel sequences
 io.files hashtables quotations splitting grouping arrays
 math.parser hash2 math.order byte-arrays words namespaces words

diff --git a/basis/unicode/normalize/normalize.factor b/basis/unicode/normalize/normalize.factor
index 53a38faed4eee9c9db67eda0f9d01272e545d15c..8d6f6e888a69b9d806048e9c6fe92e83fc426646 100644 (file)
--- a/basis/unicode/normalize/normalize.factor
+++ b/basis/unicode/normalize/normalize.factor
@@ -1,3 +1,5 @@
+! Copyright (C) 2008 Daniel Ehrenberg.
+! See http://factorcode.org/license.txt for BSD license.
 USING: sequences namespaces make unicode.data kernel math arrays
 locals sorting.insertion accessors ;
 IN: unicode.normalize

diff --git a/basis/unicode/script/script.factor b/basis/unicode/script/script.factor
index 103beb4d2a0d1c24c5865d15ee94870366f2d506..96917971280bc20d7aa7db32150b9806d516f421 100644 (file)
--- a/basis/unicode/script/script.factor
+++ b/basis/unicode/script/script.factor
@@ -1,3 +1,5 @@
+! Copyright (C) 2008 Daniel Ehrenberg.
+! See http://factorcode.org/license.txt for BSD license.
 USING: accessors values kernel sequences assocs io.files
 io.encodings ascii math.ranges io splitting math.parser 
 namespaces make byte-arrays locals math sets io.encodings.ascii

diff --git a/basis/unicode/syntax/syntax.factor b/basis/unicode/syntax/syntax.factor
index 1ba76fd380a5aa68ad4dc0b35de6d33d7ce4cf97..bf4610ab0da69b5e161f87234137c65d70f69051 100644 (file)
--- a/basis/unicode/syntax/syntax.factor
+++ b/basis/unicode/syntax/syntax.factor
@@ -1,3 +1,5 @@
+! Copyright (C) 2008 Daniel Ehrenberg.
+! See http://factorcode.org/license.txt for BSD license.
 USING: unicode.data kernel math sequences parser lexer
 bit-arrays namespaces make sequences.private arrays quotations
 assocs classes.predicate math.order eval ;