diff --git a/example/Atua-WWW.forth b/example/Atua-WWW.forth index aecbb8b..2f0c814 100755 --- a/example/Atua-WWW.forth +++ b/example/Atua-WWW.forth @@ -35,10 +35,10 @@ Atua needs to know: - The maximum file size ```` -'/home/crc/atua s:keep 'PATH const -'/gophermap s:keep 'DEFAULT-INDEX const +'/home/crc/atua 'PATH s:const +'/gophermap 'DEFAULT-INDEX s:const #1024 'MAX-SELECTOR-LENGTH const -#65535 #4 * 'MAX-FILE-SIZE const +#65535 #8 * 'MAX-FILE-SIZE const ```` # I/O Words diff --git a/example/Atua.forth b/example/Atua.forth index 877cc28..aac8c28 100755 --- a/example/Atua.forth +++ b/example/Atua.forth @@ -31,12 +31,12 @@ Atua needs to know: - The maximum file size ```` -'/home/crc/atua s:keep 'PATH const -'/gophermap s:keep 'DEFAULT-INDEX const -#1024 'MAX-SELECTOR-LENGTH const -#1000000 #4 * 'MAX-FILE-SIZE const -'forthworks.com s:keep 'SERVER const -'70 s:keep 'PORT const +'/home/crc/atua 'PATH s:const +'/gophermap 'DEFAULT-INDEX s:const +#1024 'MAX-SELECTOR-LENGTH const +#1000000 #4 * 'MAX-FILE-SIZE const +'forthworks.com 'SERVER s:const +'70 'PORT s:const ```` # I/O Words