gopher: make default selector the menu.

2014-12-17 14:30:31 -08:00 · 2014-12-17 14:30:31 -08:00 · 979b3b6ab1
parent ac9c983c93
commit 979b3b6ab1
1 changed files with 2 additions and 2 deletions
--- 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 -- )