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

Remove a rot usage

db4
Slava Pestov 2009-02-16 21:13:49 -06:00
parent 6a89e4ee3b
commit 60d96b56ce
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/windows/shell32/shell32.factor
View File

@ -86,7 +86,7 @@ FUNCTION: HINSTANCE ShellExecuteW ( HWND hwnd, LPCTSTR lpOperation, LPCTSTR lpFi
ALIAS: ShellExecute ShellExecuteW ALIAS: ShellExecute ShellExecuteW
: open-in-explorer ( dir -- ) : 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 ) : shell32-directory ( n -- str )
f swap f SHGFP_TYPE_DEFAULT f swap f SHGFP_TYPE_DEFAULT