More lint fixes.

db4
John Benediktsson 2011-10-16 21:23:21 -07:00
parent 4919339721
commit 3582e9c168
5 changed files with 7 additions and 6 deletions

View File

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

View File

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

View File

@ -20,7 +20,8 @@ PREDICATE: role < mixin-class
} case ; } case ;
: slot-name ( name/array -- name ) : slot-name ( name/array -- name )
dup string? [ ] [ first ] if ; dup string? [ first ] unless ;
: slot-names ( array -- names ) : slot-names ( array -- names )
[ slot-name ] map ; [ slot-name ] map ;

View File

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

View File

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