From 60d96b56cec0ed84364b840cb489c4dad7a47190 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 16 Feb 2009 21:13:49 -0600
Subject: [PATCH] Remove a rot usage

---
 basis/windows/shell32/shell32.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/windows/shell32/shell32.factor b/basis/windows/shell32/shell32.factor
index 6d1c7b1a36..c8dbe4b91c 100644
--- a/basis/windows/shell32/shell32.factor
+++ b/basis/windows/shell32/shell32.factor
@@ -86,7 +86,7 @@ FUNCTION: HINSTANCE ShellExecuteW ( HWND hwnd, LPCTSTR lpOperation, LPCTSTR lpFi
 ALIAS: ShellExecute ShellExecuteW
 
 : open-in-explorer ( dir -- )
-    f "open" rot (normalize-path) f f SW_SHOWNORMAL ShellExecute drop ;
+    [ f "open" ] dip (normalize-path) f f SW_SHOWNORMAL ShellExecute drop ;
 
 : shell32-directory ( n -- str )
     f swap f SHGFP_TYPE_DEFAULT