webbrowser: rename url-like to url-string.

diff --git a/basis/webbrowser/webbrowser-tests.factor b/basis/webbrowser/webbrowser-tests.factor
index 75bcd59fd27818a3e915356c0f21fe6a4a1c26bf..5e95d40199efaf29c264aa9220acf5f3b4191c4b 100644 (file)
--- a/basis/webbrowser/webbrowser-tests.factor
+++ b/basis/webbrowser/webbrowser-tests.factor
@@ -1,7 +1,7 @@
 USING: tools.test ;
 IN: webbrowser
 
-{ t } [ "http://reddit.com" url-like? ] unit-test
-{ t } [ "https://reddit.com" url-like? ] unit-test
-{ f } [ "ftp://reddit.com" url-like? ] unit-test
-{ f } [ 123 url-like? ] unit-test
+{ t } [ "http://reddit.com" url-string? ] unit-test
+{ t } [ "https://reddit.com" url-string? ] unit-test
+{ f } [ "ftp://reddit.com" url-string? ] unit-test
+{ f } [ 123 url-string? ] unit-test

diff --git a/basis/webbrowser/webbrowser.factor b/basis/webbrowser/webbrowser.factor
index 1f76f2e2245384bc1c90885fa2cca6ca828bce2b..abad160f2ddaf15fe2c7ccbb420d2b8b3635dcdc 100644 (file)
--- a/basis/webbrowser/webbrowser.factor
+++ b/basis/webbrowser/webbrowser.factor
@@ -19,7 +19,7 @@ HOOK: open-file os ( path -- )
 
 [ url? ] \ open-url H{ } define-operation
 
-PREDICATE: url-like < string
+PREDICATE: url-string < string
     { [ "http://" head? ] [ "https://" head? ] } 1|| ;
 
-[ url-like? ] \ open-url H{ } define-operation
+[ url-string? ] \ open-url H{ } define-operation