From 35f01b15772b60c715c10c61d1408cc15d5a57f5 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 14 Dec 2008 01:34:58 -0600 Subject: [PATCH] remove >r r> --- basis/windows/com/wrapper/wrapper.factor | 2 +- basis/windows/time/time.factor | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/windows/com/wrapper/wrapper.factor b/basis/windows/com/wrapper/wrapper.factor index 710feeec4d..813d8315ac 100755 --- a/basis/windows/com/wrapper/wrapper.factor +++ b/basis/windows/com/wrapper/wrapper.factor @@ -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 ) diff --git a/basis/windows/time/time.factor b/basis/windows/time/time.factor index 5e23f8cc01..5ffc62680e 100644 --- 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" [ - [ >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 ) -- 2.34.1