From 91263905d390d4162184880743d3c4e5cbbe395a Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 11 Apr 2008 12:54:51 -0500
Subject: [PATCH] cond/case

---
 extra/unicode/breaks/breaks.factor | 2 +-
 extra/unicode/case/case.factor     | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/unicode/breaks/breaks.factor b/extra/unicode/breaks/breaks.factor
index 7bb5776e78..54bf766f52 100644
--- a/extra/unicode/breaks/breaks.factor
+++ b/extra/unicode/breaks/breaks.factor
@@ -43,7 +43,7 @@ CATEGORY: (extend) Me Mn ;
         { [ dup jamo? ] [ jamo-class ] }
         { [ dup grapheme-control? ] [ control-class ] }
         { [ extend? ] [ Extend ] }
-        { [ t ] [ Any ] }
+        [ Any ]
     } cond ;
 
 : init-grapheme-table ( -- table )
diff --git a/extra/unicode/case/case.factor b/extra/unicode/case/case.factor
index 06d22f0f63..d0506a6a46 100755
--- a/extra/unicode/case/case.factor
+++ b/extra/unicode/case/case.factor
@@ -51,7 +51,7 @@ SYMBOL: locale ! Just casing locale, or overall?
             drop dot-over =
             dup CHAR: i HEX: 131 ? ,
         ] }
-        { [ t ] [ , drop f ] }
+        [ , drop f ]
     } cond ;
 
 : turk>lower ( string -- lower-i )