From fb759a7d9bcf38ba26c2dfb4e293446f8849b741 Mon Sep 17 00:00:00 2001
From: crc <crc@noemail.net>
Date: Mon, 9 Nov 2020 21:11:24 +0000
Subject: [PATCH] examples: atua-www now ignores ?... in the GET request

FossilOrigin-Name: 2fab147726db8d4c78385466b81dda70c57dd3e1de73727a52de00f4468ed99d
---
 example/Atua-WWW.retro | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/example/Atua-WWW.retro b/example/Atua-WWW.retro
index 8f2c36f..4ffa737 100755
--- a/example/Atua-WWW.retro
+++ b/example/Atua-WWW.retro
@@ -64,7 +64,7 @@ it checks for. This suffices for a Gopher server though.
 
 ~~~
 :eol? (c-f)
-  [ ASCII:CR eq? ] [ ASCII:LF eq? ] [ ASCII:SPACE eq? ] tri or or ;
+  [ [ ASCII:CR eq? ] [ ASCII:LF eq? ] [ ASCII:SPACE eq? ] tri or or ] [ $? eq? ] bi or ;
 :s:get (a-)
   buffer:set
   [ c:get dup buffer:add eol? not ] while ;
@@ -270,6 +270,7 @@ The `gopher:icon` displays an indicator for menu items.
 ~~~
 :gopher:get-selector (-)
   &Selector s:get &Selector s:get ;
+
 (Rewrite_This:_It's_too_big)
 :gopher:file-for-request (-s)
   &Mode v:off