crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix bug in glossary server

Browse source 
FossilOrigin-Name: 0520f0b94f546ac0ac9e80fbbf8176f5296aafd01ded206523b32ef3cfaafa87
This commit is contained in:
crc 2019-05-01 19:46:45 +00:00
parent f3dd6271bf
commit b11f2e5dc5
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
glossary.forth
View file

@ -704,13 +704,13 @@ And then the actual top level server.
:handle-http
page-header
&Selector ASCII:SPACE s:tokenize #1 a:nth fetch
&Selector ASCII:SPACE s:tokenize #1 a:th fetch
dup s:length #1 eq?
[ drop http:list-words ]
[ n:inc s:to-number http:display ] choose ;
:handle-gopher
&Selector ASCII:SPACE s:tokenize #1 a:nth fetch
&Selector ASCII:SPACE s:tokenize #1 a:th fetch
s:chop s:keep dup s:put !Target gopher:display ;
---reveal---