remove >r r>

[factor.git] / basis / windows / time / time.factor

diff --git a/basis/windows/time/time.factor b/basis/windows/time/time.factor
index 5e23f8cc01e29df59b7dc96bc6239976d6fb88fe..5ffc62680e3566b3e9df8b30d5f84060d0fd8c5b 100644 (file)
--- a/basis/windows/time/time.factor
+++ b/basis/windows/time/time.factor
@@ -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 )