~ chicken-core (chicken-5) 8e60475c6ae413d3d5c7cf20e35176e954658d31

commit 8e60475c6ae413d3d5c7cf20e35176e954658d31
Author:     Kooda <kooda@upyum.com>
AuthorDate: Fri Apr 17 10:53:54 2020 +0200
Commit:     Kooda <kooda@upyum.com>
CommitDate: Fri Apr 17 10:53:54 2020 +0200

    Change the spelling "non-immediate object" to "block object" in various error messages

diff --git a/library.scm b/library.scm
index 199057f7..e645ae71 100644
--- a/library.scm
+++ b/library.scm
@@ -4644,7 +4644,7 @@ EOF
 			       (outchr port #\)) )
 			    (outchr port #\space)
 			    (out (##sys#slot x i)) ) ) ) ) )
-		(else (##sys#error "unprintable non-immediate object encountered")))))
+		(else (##sys#error "unprintable block object encountered")))))
       (##sys#void))))
 
 (define ##sys#procedure->string 
@@ -5424,7 +5424,7 @@ EOF
 	((24) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a structure of the required type" args))
 	((25) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a blob" args))
 	((26) (apply ##sys#signal-hook #:type-error loc "locative refers to reclaimed object" args))
-	((27) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a non-immediate value" args))
+	((27) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a block object" args))
 	((28) (apply ##sys#signal-hook #:type-error loc "bad argument type - not a number vector" args))
 	((29) (apply ##sys#signal-hook #:type-error loc "bad argument type - not an integer" args))
 	((30) (apply ##sys#signal-hook #:type-error loc "bad argument type - not an unsigned integer" args))
diff --git a/lolevel.scm b/lolevel.scm
index 4c5cb4f7..112df6ad 100644
--- a/lolevel.scm
+++ b/lolevel.scm
@@ -98,7 +98,7 @@ EOF
 	  [else
 	   (##sys#signal-hook
 	    #:type-error loc
-	    "bad argument type - not an a-list of non-immediate objects" x) ] ) ) )
+	    "bad argument type - not an a-list of block objects" x) ] ) ) )
 
 (define (##sys#check-generic-structure x . loc)
   (unless (%record-structure? x)
diff --git a/runtime.c b/runtime.c
index 8e049623..e1ecd668 100644
--- a/runtime.c
+++ b/runtime.c
@@ -1812,7 +1812,7 @@ void barf(int code, char *loc, ...)
     break;
 
   case C_BAD_ARGUMENT_TYPE_NO_BLOCK_ERROR:
-    msg = C_text("bad argument type - not a non-immediate value");
+    msg = C_text("bad argument type - not a object");
     c = 1;
     break;