webbrowser.windows: calling absolute-path doesnt work on urls (#1759)

diff --git a/basis/webbrowser/webbrowser-tests.factor b/basis/webbrowser/webbrowser-tests.factor
index 1bc174907fce79633fe447852772d75af284aeb2..5d51db71d1dce1013c7f32fe03669e977ae6a57d 100644 (file)
--- a/basis/webbrowser/webbrowser-tests.factor
+++ b/basis/webbrowser/webbrowser-tests.factor
@@ -1,4 +1,4 @@
-USING: io.pathnames tools.test ;
+USING: io.pathnames tools.test urls ;
 IN: webbrowser
 
 { t } [ "http://reddit.com" url-string? ] unit-test
@@ -8,3 +8,4 @@ IN: webbrowser
 { f } [ 123 url-string? ] unit-test
 
 { } [ "" absolute-path open-item ] unit-test
+{ } [ URL" http://www.google.com" open-item ] unit-test

diff --git a/basis/webbrowser/windows/windows.factor b/basis/webbrowser/windows/windows.factor
index 705de35b9ca5a2297d3826633c3a41a05b1ee3a7..7a7a7dee9914e85f161bcd359b74eaaf89e9edc4 100644 (file)
--- a/basis/webbrowser/windows/windows.factor
+++ b/basis/webbrowser/windows/windows.factor
@@ -1,9 +1,8 @@
 ! Copyright (C) 2011 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license
-USING: io.pathnames kernel present system webbrowser windows.shell32
-windows.user32 ;
+USING: kernel present system webbrowser windows.shell32 windows.user32 ;
 IN: webbrowser.windows
 
 M: windows open-item ( item -- )
-    absolute-path [ f "open" ] dip present f f
+    [ f "open" ] dip present f f
     SW_SHOWNORMAL ShellExecute drop ;