From 0346968c7441d785a47ea3369659a734ca9c78db Mon Sep 17 00:00:00 2001 From: crc Date: Fri, 20 Oct 2017 13:37:36 +0000 Subject: [PATCH] use s:const in Atua FossilOrigin-Name: a7bfb1b8925733a03972bd71906e26ad996064ebc4755ee7cfe64b9ac2651fb3 --- example/Atua-WWW.forth | 6 +++--- example/Atua.forth | 12 ++++++------ 2 files changed, 9 insertions(+), 9 deletions(-) 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