factor: use more ?if and ?unless

[factor.git] / basis / xmode / keyword-map / keyword-map.factor

diff --git a/basis/xmode/keyword-map/keyword-map.factor b/basis/xmode/keyword-map/keyword-map.factor
index da5545b698b77c44c6eb6c8c787209848080ad76..9f2376b1e204f539fa06e28236751a1db488c501 100644 (file)
--- a/basis/xmode/keyword-map/keyword-map.factor
+++ b/basis/xmode/keyword-map/keyword-map.factor
@@ -34,9 +34,9 @@ M: keyword-map >alist
     keys union-all [ alpha? ] reject sort ;
 
 : keyword-map-no-word-sep* ( keyword-map -- str )
-    dup no-word-sep>> [ ] [
+    [ no-word-sep>> ] [
         dup (keyword-map-no-word-sep) >>no-word-sep
         keyword-map-no-word-sep*
-    ] ?if-old ;
+    ] ?unless ;
 
 INSTANCE: keyword-map assoc