From 18d5d0c869b0d553c00fc07ef19d6e2e5107fbc2 Mon Sep 17 00:00:00 2001
From: crc <crc@noemail.net>
Date: Tue, 29 Oct 2019 17:24:48 +0000
Subject: [PATCH] 2019.10 release

FossilOrigin-Name: 62c4f7366af0f0898c32381ab5eb6cda812ec26d15c3462676a55c59b8840bcf
---
 example/Atua-WWW.retro          |   3 ++-
 example/publish-examples.retro  |   9 +++++++++
 ngaImage                        | Bin 41992 -> 41992 bytes
 source/interfaces/retro-image.c |   2 +-
 source/rx.muri                  |   4 ++--
 5 files changed, 14 insertions(+), 4 deletions(-)

diff --git a/example/Atua-WWW.retro b/example/Atua-WWW.retro
index 0d6e547..c8605d5 100755
--- a/example/Atua-WWW.retro
+++ b/example/Atua-WWW.retro
@@ -1,4 +1,4 @@
-#!/usr/bin/retro
+#!/usr/bin/env retro
 
 # Atua-WWW: A Gopher Server for the Web
 
@@ -166,6 +166,7 @@ These are just simple accessor words to aid in overall readability.
     '.md    [ 'text/markdown            ] s:case
     '.htm   [ 'text/html                ] s:case
     '.html  [ 'text/html                ] s:case
+    '.retro.html  [ 'text/html                ] s:case
     '.css   [ 'text/css                 ] s:case
     '.c     [ 'text/plain               ] s:case
     '.h     [ 'text/plain               ] s:case
diff --git a/example/publish-examples.retro b/example/publish-examples.retro
index 4e5cb8f..095cb84 100755
--- a/example/publish-examples.retro
+++ b/example/publish-examples.retro
@@ -55,6 +55,15 @@ FILE-PATH 'index.html s:append file:W file:open !FID
 @FID file:close
 ~~~
 
+# Generate gophermap
+
+~~~
+FILE-PATH 'gophermap s:append file:W file:open !FID
+'Examples\n\n s:format s:put
+  [ dir? &drop [ dup '0%s\texamples/%s.html\n s:format s:put ] choose ] unix:for-each-file
+@FID file:close
+~~~
+
 # Generate HTML Files
 
 ~~~
diff --git a/ngaImage b/ngaImage
index 3d0015c498660b8d5125b83c4009e0bc16b31705..c997a773cf58d5b0f190bfb5a81571526ba82e42 100644
GIT binary patch
delta 28
icmeA;!PIerNsy79f#E+8)M_v=FlsU|Y}+XKeK7!*_X?W;

delta 28
icmeA;!PIerNsy79f#E+8)M_v=FlsU|Y~3jMeK7!*@(P*&

diff --git a/source/interfaces/retro-image.c b/source/interfaces/retro-image.c
index 616ab45..c497e4d 100644
--- a/source/interfaces/retro-image.c
+++ b/source/interfaces/retro-image.c
@@ -3,7 +3,7 @@
 #define CELL int32_t
 #endif
 CELL ngaImageCells = 16119;
-CELL ngaImage[] = { 1793,15449,16096,16118,201909,0,10,1,10,2,10,3,10,4,10,5,10,6,10,
+CELL ngaImage[] = { 1793,15449,16096,16118,201910,0,10,1,10,2,10,3,10,4,10,5,10,6,10,
                        7,10,8,10,9,10,10,10,11,10,12,10,13,10,14,10,15,10,16,10,
                        17,10,18,10,19,10,20,10,21,10,22,10,23,10,24,10,25,10,68223234,1,
                        2575,85000450,1,656912,140,139,268505089,64,63,135205121,64,10,101384453,0,9,10,2049,57,25,459011,
diff --git a/source/rx.muri b/source/rx.muri
index 99fd1af..bd97e80 100644
--- a/source/rx.muri
+++ b/source/rx.muri
@@ -1,7 +1,7 @@
     ____  _   _
     || \\ \\ //
     ||_//  )x(
-    || \\ // \\ 2019.9
+    || \\ // \\ 2019.10
     a minimalist forth for nga
 
 *Rx* (*retro experimental*) is a minimal Forth implementation
@@ -147,7 +147,7 @@ r 9999
 d 1536
 
 : Version
-d 201909
+d 201910
 ~~~
 
 Both of these are pointers. `Dictionary` points to the most