From 6851b16b3932a0ee057e0423c3a587279726a082 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@oberon.local>
Date: Fri, 1 Feb 2008 18:36:20 -0600
Subject: [PATCH] Remove dan's make*

---
 extra/unicode/case/case.factor           | 15 ++++++++-------
 extra/unicode/normalize/normalize.factor | 11 -----------
 2 files changed, 8 insertions(+), 18 deletions(-)

diff --git a/extra/unicode/case/case.factor b/extra/unicode/case/case.factor
index 96ae9a790b..ee9e2a0381 100755
--- a/extra/unicode/case/case.factor
+++ b/extra/unicode/case/case.factor
@@ -1,5 +1,6 @@
-USING: kernel unicode.data sequences sequences.next namespaces assocs.lib
-unicode.normalize math unicode.categories combinators assocs ;
+USING: kernel unicode.data sequences sequences.next namespaces
+assocs.lib unicode.normalize math unicode.categories combinators
+assocs ;
 IN: unicode.case
 
 : ch>lower ( ch -- lower ) simple-lower at-default ;
@@ -20,7 +21,7 @@ SYMBOL: locale ! Just casing locale, or overall?
     [ swap dot-over = over "ij" member? and swap , ] if ;
 
 : lithuanian>upper ( string -- lower )
-    [ f swap [ lithuanian-ch>upper ] each-next drop ] "" make* ;
+    [ f swap [ lithuanian-ch>upper ] each-next drop ] "" make ;
 
 : mark-above? ( ch -- ? )
     combining-class 230 = ;
@@ -32,14 +33,14 @@ SYMBOL: locale ! Just casing locale, or overall?
     dup , "IJ" member? swap mark-above? and [ dot-over , ] when ;
 
 : lithuanian>lower ( string -- lower )
-    [ [ lithuanian-ch>lower ] each-next ] "" make* ;
+    [ [ lithuanian-ch>lower ] each-next ] "" make ;
 
 : turk-ch>upper ( ch -- )
     dup CHAR: i = 
     [ drop CHAR: I , dot-over , ] [ , ] if ;
 
 : turk>upper ( string -- upper-i )
-    [ [ turk-ch>upper ] each ] "" make* ;
+    [ [ turk-ch>upper ] each ] "" make ;
 
 : turk-ch>lower ( ? next ch -- ? )
     {
@@ -52,7 +53,7 @@ SYMBOL: locale ! Just casing locale, or overall?
     } cond ;
 
 : turk>lower ( string -- lower-i )
-    [ f swap [ turk-ch>lower ] each-next drop ] "" make* ;
+    [ f swap [ turk-ch>lower ] each-next drop ] "" make ;
 
 : word-boundary ( prev char -- new ? )
     dup non-starter? [ drop dup ] when
@@ -76,7 +77,7 @@ SYMBOL: locale ! Just casing locale, or overall?
                 [ -rot nip call , ] ?if
             ] 2keep
         ] each 2drop
-    ] "" make* ; inline
+    ] "" make ; inline
 
 : >lower ( string -- lower )
     i-dot? [ turk>lower ] when
diff --git a/extra/unicode/normalize/normalize.factor b/extra/unicode/normalize/normalize.factor
index b018d115f8..47637e8330 100644
--- a/extra/unicode/normalize/normalize.factor
+++ b/extra/unicode/normalize/normalize.factor
@@ -2,17 +2,6 @@ USING: sequences namespaces unicode.data kernel combinators.lib
 math arrays ;
 IN: unicode.normalize
 
-! Utility word--probably unnecessary
-: make* ( seq quot exemplar -- newseq )
-    ! quot has access to original seq on stack
-    ! this just makes the new-resizable the same length as seq
-    [
-        [
-            pick length swap new-resizable
-            [ building set call ] keep
-        ] keep like
-    ] with-scope ; inline
-
 ! Conjoining Jamo behavior
 
 : hangul-base HEX: ac00 ; inline