]> gitweb.factorcode.org Git - factor.git/commitdiff
remove dead code
authorDoug Coleman <doug.coleman@gmail.com>
Fri, 16 Jan 2009 18:43:44 +0000 (12:43 -0600)
committerDoug Coleman <doug.coleman@gmail.com>
Fri, 16 Jan 2009 18:43:44 +0000 (12:43 -0600)
basis/windows/shell32/shell32.factor

index acb0cd279b96f7cfdf940f08cfba568dc0a632a1..6d1c7b1a366b8946872f93c2d622ddea5fc7a113 100644 (file)
@@ -2,8 +2,8 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: alien alien.c-types alien.strings alien.syntax
 combinators io.encodings.utf16n io.files io.pathnames kernel
-windows windows.com windows.com.syntax windows.ole32
-windows.user32 ;
+windows windows.com windows.com.syntax windows.user32
+windows.ole32 ;
 IN: windows.shell32
 
 CONSTANT: CSIDL_DESKTOP HEX: 00
@@ -88,9 +88,6 @@ ALIAS: ShellExecute ShellExecuteW
 : open-in-explorer ( dir -- )
     f "open" rot (normalize-path) f f SW_SHOWNORMAL ShellExecute drop ;
 
-: shell32-error ( n -- )
-    ole32-error ; inline
-
 : shell32-directory ( n -- str )
     f swap f SHGFP_TYPE_DEFAULT
     MAX_UNICODE_PATH "ushort" <c-array>