From 663697f058beb6ed98167a23aaba81d2d272a370 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Sun, 18 Dec 2016 04:13:37 +0100
Subject: [PATCH] webbrowser.windows: calling absolute-path doesnt work on urls
 (#1759)

---
 basis/webbrowser/webbrowser-tests.factor | 3 ++-
 basis/webbrowser/windows/windows.factor  | 5 ++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/basis/webbrowser/webbrowser-tests.factor b/basis/webbrowser/webbrowser-tests.factor
index 1bc174907f..5d51db71d1 100644
--- 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 705de35b9c..7a7a7dee99 100644
--- 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 ;