diff --git a/basis/webbrowser/webbrowser-tests.factor b/basis/webbrowser/webbrowser-tests.factor index 75bcd59fd2..5e95d40199 100644 --- 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 1f76f2e224..abad160f2d 100644 --- 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