Fix soundex

diff --git a/extra/soundex/soundex-tests.factor b/extra/soundex/soundex-tests.factor
index df6338c4ecba46226a9d7c8c65342ddda15ed0b6..f4bd18e34b4c3d54a973445ed8c88b99e2c21e02 100644 (file)
--- 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

diff --git a/extra/soundex/soundex.factor b/extra/soundex/soundex.factor
index c82825d8140ab4ff1867a58173e7c08e5bdafea6..23d5ee4d4cc2b60e892004c34c009e099fa019f7 100644 (file)
--- 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