v0.6.1

Bigger dictionary Ask user to wait for init Minor cleanup
philburk · Oct 16, 2024 · 01f88ad · 01f88ad
1 parent 54cf92d
commit 01f88ad
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 3 deletions.
diff --git a/hmsl/fth/make_hmsl.fth b/hmsl/fth/make_hmsl.fth
@@ -23,5 +23,8 @@ include fth/load_hmsl.fth
 
 ." Block AUTO.INIT that is called by SAVE-FORTH" cr
 1 2 3 4 5 6
+\ Make the memory areas bigger.
+700000 headers-size !
+1500000 code-size !
 c" pforth.dic" save-forth
 6 0 DO drop LOOP
diff --git a/hmsl/fth/obobject.fth b/hmsl/fth/obobject.fth
@@ -69,7 +69,7 @@ DoubleList OBJ-DYN-LIST  \ list of dynamically alloced objs
 
 : ODH.INIT obj-dyn-list dll.newlist ;
 
-: OB.INIT  ." OB.INIT" cr ob.init odh.init ;
+: OB.INIT  ob.init odh.init ;
 : AUTO.INIT  auto.init ob.init ;
 
 ( declare methods for object, define OBJECT class )

diff --git a/hmsl/fth/startup.fth b/hmsl/fth/startup.fth
@@ -9,7 +9,8 @@ ANEW TASK-STARTUP
 : HMSL.INIT.ASK  ( -- , Ask if user wants to HMSL.INIT )
     hmsl.copyright
     ." Do you want to initialize HMSL? (probably Yes)" Y/N cr
-    IF hmsl.init
+    IF ." Wait a few seconds then hit the ENTER key." cr
+        hmsl.init
     ELSE ob.init
     THEN
 ;

diff --git a/native/juce/Source/Main.cpp b/native/juce/Source/Main.cpp
@@ -14,7 +14,7 @@
 #include "Terminal.h"
 #include "ForthThread.h"
 
-#define HMSL_VERSION "v0.6.0"
+#define HMSL_VERSION "v0.6.1"
 
 //==============================================================================
 class ProtoHMSLApplication  : public JUCEApplication