steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

``swap drop`` is ``nip``.

db4
John Benediktsson 2014-08-05 10:30:07 -07:00
parent fec182d2d8
commit 87433a4585
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/formatting/formatting.factor
View File

@ -20,7 +20,7 @@ IN: formatting
{ {
{ CHAR: - [ [ 1 - ] dip remove-nth "-" prepend ] } { CHAR: - [ [ 1 - ] dip remove-nth "-" prepend ] }
{ CHAR: + [ [ 1 - ] dip remove-nth "+" prepend ] } { CHAR: + [ [ 1 - ] dip remove-nth "+" prepend ] }
[ drop swap drop ] [ drop nip ]
} case } case
] [ drop ] if ] [ drop ] if
] when ; ] when ;

4
basis/game/input/xinput/xinput.factor
View File

@ -114,8 +114,8 @@ M: xinput-game-input-backend instance-id
if ; if ;
M: xinput-game-input-backend read-controller M: xinput-game-input-backend read-controller
XINPUT_STATE <struct> [ XInputGetState ] keep XINPUT_STATE <struct> [ XInputGetState drop ] keep
swap drop fill-controller-state ; fill-controller-state ;
M: xinput-game-input-backend calibrate-controller drop ; M: xinput-game-input-backend calibrate-controller drop ;

2
extra/images/tga/tga.factor
View File

@ -58,7 +58,7 @@ ERROR: bad-tga-unsupported ;
read ; inline read ; inline
: read-color-map ( type length elt-size -- color-map ) : read-color-map ( type length elt-size -- color-map )
pick 1 = [ 8 align 8 / * read ] [ 2drop f ] if swap drop ; inline pick 1 = [ 8 align 8 / * read ] [ 2drop f ] if nip ; inline
: read-image-data ( width height depth -- image-data ) : read-image-data ( width height depth -- image-data )
8 align 8 / * * read ; inline 8 align 8 / * * read ; inline