More lint fixes.

[factor.git] / extra / roles / roles.factor

diff --git a/extra/roles/roles.factor b/extra/roles/roles.factor
index 3a58be9830aa51686eb54e0e6867e394aab73233..46da7fb54953880e19fae40e535d4dc110406189 100644 (file)
--- a/extra/roles/roles.factor
+++ b/extra/roles/roles.factor
@@ -20,7 +20,8 @@ PREDICATE: role < mixin-class
     } case ;
 
 : slot-name ( name/array -- name )
-    dup string? [ ] [ first ] if ;
+    dup string? [ first ] unless ;
+
 : slot-names ( array -- names )
     [ slot-name ] map ;