More lint fixes.

extra/chipmunk/ffi/ffi.factor

@@ -530,7 +530,7 @@ TYPED: cpArbiterGetNormal ( arb: cpArbiter i -- n: cpVect )
         [ contacts>> swap void* <c-direct-array> ] bi nth cpContact memory>struct n>>
     ]
     [
-        drop swappedColl>> 0 = [ ] [ cpvneg ] if
+        drop swappedColl>> 0 = [ cpvneg ] unless
     ] 2bi ; inline
 
 TYPED: cpArbiterGetPoint ( arb: cpArbiter i -- p: cpVect )

extra/readline/readline.factor

@@ -10,7 +10,7 @@ IN: readline
     [
         readline.ffi:readline [
             |free utf8 alien>string [
-                [ ] [ readline.ffi:add_history ] if-empty
+                [ readline.ffi:add_history ] unless-empty
             ] keep
         ] [ f ] if*
     ] with-destructors ;

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 ;
 

extra/site-watcher/site-watcher.factor

@@ -34,7 +34,7 @@ SYMBOL: running-site-watcher
     send-site-email ;
 
 : send-reports ( seq -- )
-    [ ] [ [ send-report ] each ] if-empty ;
+    [ [ send-report ] each ] unless-empty ;
 
 PRIVATE>
 

extra/smalltalk/classes/classes.factor

@@ -13,7 +13,7 @@ classes [ H{ } clone ] initialize
 ERROR: no-class name ;
 
 : lookup-class ( class -- class )
-    classes get ?at [ ] [ no-class ] if ;
+    classes get ?at [ no-class ] unless ;
 
 : define-class ( class superclass ivars -- class-word )
     [ create-class ] [ lookup-class ] [ ] tri*
@@ -22,4 +22,4 @@ ERROR: no-class name ;
 : define-foreign ( class name -- )
     classes get set-at ;
 
-tuple "Object" define-foreign
+tuple "Object" define-foreign