From 4eb59a4241bdc613d61ae7cc9c5f4d19e2748242 Mon Sep 17 00:00:00 2001 From: Brad Nelson Date: Thu, 25 Feb 2021 22:54:28 -0800 Subject: [PATCH] Changed to 'cold, fixed site. --- ueforth/Makefile | 2 +- ueforth/common/filetools.fs | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/ueforth/Makefile b/ueforth/Makefile index 0f46ce7..b89695b 100644 --- a/ueforth/Makefile +++ b/ueforth/Makefile @@ -288,7 +288,7 @@ $(DEPLOY)/app.yaml: $(ARDUINO)/ESP32forth.zip \ cp -r $(WINDOWS)/uEf64.exe $(DEPLOY)/downloads/uEf64.exe cp -r $(RES)/eforth.ico $(DEPLOY)/downloads/favicon.ico cp site/.gcloudignore $(DEPLOY) - cat site/ESPForth.html | \ + cat site/ESP32Forth.html | \ sed "s/{{VERSION}}/${VERSION}/g" | \ sed "s/{{REVISION}}/${REVISION}/g" > $(DEPLOY)/ESP32Forth.html cat site/windows.html | \ diff --git a/ueforth/common/filetools.fs b/ueforth/common/filetools.fs index 6566365..40017b5 100644 --- a/ueforth/common/filetools.fs +++ b/ueforth/common/filetools.fs @@ -10,7 +10,7 @@ $4000 constant growth-gap here growth-gap + growth-gap 1- + growth-gap 1- invert and constant saving-base : park-heap ( -- a ) saving-base ; : park-forth ( -- a ) saving-base cell+ ; -: bootword ( -- a ) saving-base 2 cells + ; 0 bootword ! +: 'cold ( -- a ) saving-base 2 cells + ; 0 'cold ! : save-name 'heap @ park-heap ! @@ -25,7 +25,7 @@ here growth-gap + growth-gap 1- + growth-gap 1- invert and constant saving-base r> close-file throw park-heap @ 'heap ! park-forth @ forth-wordlist ! - bootword @ dup if execute else drop then ; + 'cold @ dup if execute else drop then ; defer remember-filename : default-remember-filename s" myforth" ; @@ -36,7 +36,7 @@ forth definitions also internals : save ( "name" -- ) bl parse save-name ; : restore ( "name" -- ) bl parse restore-name ; : remember remember-filename save-name ; -: startup: ( "name" ) ' bootword ! remember ; +: startup: ( "name" ) ' 'cold ! remember ; : revive remember-filename restore-name ; : reset remember-filename delete-file throw ;