Miroirs/retroforth
1
0
Fork 0
mirror of https://git.sr.ht/~crc_/retroforth synced 2024-11-16 19:48:56 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

atua: now properly restrict selector length

Browse source 
FossilOrigin-Name: 4c6a2e8c09b35f9e14c3d382b7819df9e0c2033f0ffa5b18986056066a5c1a10
This commit is contained in:
crc 2019-01-02 16:38:33 +00:00
parent 352a53abfe
commit b125b23e1e
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
example/Atua.forth
View file

@ -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