More lint fixes.
parent
4919339721
commit
3582e9c168
|
@ -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 )
|
||||||
|
|
|
@ -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 ;
|
||||||
|
|
|
@ -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 ;
|
||||||
|
|
||||||
|
|
|
@ -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>
|
||||||
|
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue