steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gopher: make default selector the menu.

db4
John Benediktsson 2014-12-17 14:30:31 -08:00
parent ac9c983c93
commit 979b3b6ab1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/gopher/gopher.factor
View File

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