remove >r r>

db4
Doug Coleman 2008-12-14 01:34:58 -06:00
parent 8f175ca58a
commit 35f01b1577
2 changed files with 3 additions and 3 deletions

View File

@ -123,7 +123,7 @@ unless
: (make-callbacks) ( implementations -- sequence )
dup [ first ] map (make-iunknown-methods)
[ >r >r first2 r> r> swap (make-interface-callbacks) ]
[ [ first2 ] 2dip swap (make-interface-callbacks) ]
curry map-index ;
: (malloc-wrapped-object) ( wrapper -- wrapped-object )

View File

@ -28,8 +28,8 @@ IN: windows.time
: windows-time>FILETIME ( n -- FILETIME )
"FILETIME" <c-object>
[
[ >r HEX: ffffffff bitand r> set-FILETIME-dwLowDateTime ] 2keep
>r -32 shift r> set-FILETIME-dwHighDateTime
[ 32 bits set-FILETIME-dwLowDateTime ] 2keep
[ -32 shift ] dip set-FILETIME-dwHighDateTime
] keep ;
: timestamp>FILETIME ( timestamp -- FILETIME/f )