remove >r r>
parent
8f175ca58a
commit
35f01b1577
|
@ -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 )
|
||||
|
|
|
@ -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 )
|
||||
|
|
Loading…
Reference in New Issue