case/cond

[factor.git] / extra / rot13 / rot13.factor

diff --git a/extra/rot13/rot13.factor b/extra/rot13/rot13.factor
index bf5105f334647ad6b48d4ced966532bcb59cd767..6663381522aeb2fbcde56cd4f2b526184c1cd0f7 100644 (file)
--- a/extra/rot13/rot13.factor
+++ b/extra/rot13/rot13.factor
@@ -9,7 +9,7 @@ IN: rot13
     {
         { [ dup letter? ] [ CHAR: a rotate ] }
         { [ dup LETTER? ] [ CHAR: A rotate ] }
-        { [ t ] [ ] }
+        [ ]
     } cond ;
 
 : rot13 ( string -- string ) [ rot-letter ] map ;