From b125b23e1ef7666f83a042945023236892669b21 Mon Sep 17 00:00:00 2001
From: crc <crc@noemail.net>
Date: Wed, 2 Jan 2019 16:38:33 +0000
Subject: [PATCH] atua: now properly restrict selector length

FossilOrigin-Name: 4c6a2e8c09b35f9e14c3d382b7819df9e0c2033f0ffa5b18986056066a5c1a10
---
 example/Atua.forth | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/example/Atua.forth b/example/Atua.forth
index 616a8e7..c181b3a 100755
--- a/example/Atua.forth
+++ b/example/Atua.forth
@@ -64,7 +64,7 @@ it checks for. This suffices for a Gopher server though.
   [ ASCII:CR eq? ] [ ASCII:LF eq? ] [ ASCII:HT eq? ] tri or or ;
 :s:get (a-)
   buffer:set
-  [ c:get dup buffer:add eol? not ] while ;
+  #0 [ n:inc c:get dup buffer:add eol? not over #255 lt? and ] while drop ;
 ~~~
 
 # Gopher Namespace