Fix soundex

2008-07-15 20:57:56 -05:00 · 2008-07-15 20:57:56 -05:00 · 19919bb130
parent 2a1f6885fb
commit 19919bb130
2 changed files with 3 additions and 2 deletions
--- a/extra/soundex/soundex-tests.factor
+++ b/extra/soundex/soundex-tests.factor
@ -2,3 +2,4 @@ IN: soundex.tests
 USING: soundex tools.test ;

 [ "S162" ] [ "supercalifrag" soundex ] unit-test
+[ "M000" ] [ "M" soundex ] unit-test
--- a/extra/soundex/soundex.factor
+++ b/extra/soundex/soundex.factor
@ -25,8 +25,8 @@ TR: soundex-tr
        [ first>upper ]
        [
            soundex-tr
-            trim-first
-            remove-duplicates
+            [ "" ] [ trim-first ] if-empty
+            [ "" ] [ remove-duplicates ] if-empty
            remove-zeroes
        ] bi
        pad-4