2019.10 release

FossilOrigin-Name: 62c4f7366af0f0898c32381ab5eb6cda812ec26d15c3462676a55c59b8840bcf

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

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

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,

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