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

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
basis/windows

2
basis/windows/com/wrapper/wrapper.factor
View File

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

4
basis/windows/time/time.factor
View File

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