From 551e079da8572c3c83613f3d38ea4474c6071767 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 20 May 2020 20:26:02 -0700
Subject: [PATCH] webbrowser: adding MAIN.

---
 basis/webbrowser/webbrowser.factor | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/basis/webbrowser/webbrowser.factor b/basis/webbrowser/webbrowser.factor
index a712fb1f5a..9b6986d710 100644
--- a/basis/webbrowser/webbrowser.factor
+++ b/basis/webbrowser/webbrowser.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2011 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license
-USING: accessors io.pathnames kernel sequences strings system
-ui.operations urls vocabs ;
+USING: accessors command-line io.pathnames kernel namespaces
+sequences strings system ui.operations urls vocabs ;
 IN: webbrowser
 
 HOOK: open-item os ( item -- )
@@ -15,3 +15,8 @@ PREDICATE: url-string < string >url protocol>> >boolean ;
 
 [ pathname? ] \ open-item H{ } define-operation
 [ [ url? ] [ url-string? ] bi or ] \ open-url H{ } define-operation
+
+: webbrowser-main ( -- )
+    command-line get [ open-url ] each ;
+
+MAIN: webbrowser-main