From 979b3b6ab1eccfbe1b3a78b226ddae788c03226b Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 17 Dec 2014 14:30:31 -0800
Subject: [PATCH] gopher: make default selector the menu.

---
 extra/gopher/gopher.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/gopher/gopher.factor b/extra/gopher/gopher.factor
index c5dec8b18e..feb609efd8 100644
--- a/extra/gopher/gopher.factor
+++ b/extra/gopher/gopher.factor
@@ -93,8 +93,8 @@ ERROR: not-a-gopher-url url ;
     dup protocol>> "gopher" = [ not-a-gopher-url ] unless {
         [ host>> ]
         [ port>> 70 or <inet> binary ]
-        [ path>> rest ]
-        [ query>> assoc>query url-decode "?" glue ]
+        [ path>> rest [ "1/" ] when-empty ]
+        [ query>> [ assoc>query url-decode "?" glue ] when* ]
     } cleave '[ _ get-selector ] with-client ;
 
 : gopher. ( url -- )