Removed extra spaces from some more exception messages

tabemann · Mar 12, 2022 · 4034bbf · 4034bbf
1 parent 662ed37
commit 4034bbf
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 8 deletions.
diff --git a/src/common/forth/basic.fs b/src/common/forth/basic.fs
@@ -2129,7 +2129,7 @@ commit-flash
 : do-flash-validate-dict ( -- )
   flash-end flash-here - 1024 < flash-dict-warned @ not and if
     true flash-dict-warned !
-    space ." flash dictionary space is running low (<1K left)" cr
+    ." flash dictionary space is running low (<1K left)" cr
   then
 ;
 

diff --git a/src/common/forth/map.fs b/src/common/forth/map.fs
@@ -109,7 +109,7 @@ begin-module map
   \ Destination map does not match key size, value size, hash function, or
   \ equals function of the source map exception
   : x-dest-map-not-match ( -- )
-    space ." destination map does not match source map" cr
+    ." destination map does not match source map" cr
   ;
 
   \ Index contains no entry

diff --git a/src/common/forth/multicore.fs b/src/common/forth/multicore.fs
@@ -33,7 +33,7 @@ begin-module multicore
   -1 constant slock-spinlock
 
   \ Spinlock out of range exception
-  : x-spinlock-out-of-range space ." spinlock out of range" cr ;
+  : x-spinlock-out-of-range ( -- ) ." spinlock out of range" cr ;
 
   \ Core out of range exception
   : x-core-out-of-range ( -- ) ." core out of range" cr ;

diff --git a/src/common/forth/task.fs b/src/common/forth/task.fs
@@ -1423,7 +1423,9 @@ begin-module task
       main-task @ task-dict-end main-task @ actual-here - 1024 <
       ram-dict-warned @ not and if
 	true ram-dict-warned !
-	space ." RAM dictionary space is running low (<1K left)" cr
+	display-red
+	." RAM dictionary space is running low (<1K left)" cr
+	display-normal
       then
       saved-validate-dict @ ?execute
     ;
@@ -1449,13 +1451,11 @@ begin-module task
     [then]
 
     \ Core already has a main task spawned exception
-    : x-main-already-launched ( -- )
-      space ." core already has main task" cr
-    ;
+    : x-main-already-launched ( -- ) ." core already has main task" cr ;
 
     \ Auxiliary cores can only be launched from core 0
     : x-core-can-only-be-launched-from-core-0 ( -- )
-      space ." core can only be launched from core 0" cr
+      ." core can only be launched from core 0" cr
     ;
 
     \ Launch an auxiliary core with a task