gopher.cli: adding home command

diff --git a/extra/gopher/cli/cli.factor b/extra/gopher/cli/cli.factor
index e43d4097d6a8696e6f45922207a1932aa4a74a6c..f74863d577964acefb54167ac3e90f5ed65adeb9 100644 (file)
--- a/extra/gopher/cli/cli.factor
+++ b/extra/gopher/cli/cli.factor
@@ -198,6 +198,11 @@ CONSTANT: COMMANDS {
         { quot [ gopher-shell ] }
         { help "'cat' the most recent gopher URL through a shell." }
         { abbrevs { "!" } } }
+    T{ command
+        { name "home" }
+        { quot [ drop DEFAULT-URL gopher-go ] }
+        { help "Go to the default gopher URL" }
+        { abbrevs f } }
     T{ command
         { name "quit" }
         { quot [ drop gopher-quit ] }