* boot-9.scm expect.scm, syncase.scm: Switch to new style

`simple-format' message strings: substitute ~A for %s, and ~S for
%S.

* boot-9.scm:  Added (define format simple-format) to expose that
primitive via the simpler name until format.scm is loaded.

ice-9/boot-9.scm

@@ -43,6 +43,9 @@
 ;;; presumably deprecated.
 (define feature? provided?)
 
+;;; let format alias simple-format until the more complete version is loaded
+(define format simple-format)
+
 
 ;;; {R4RS compliance}
 
@@ -591,10 +594,10 @@
   (save-stack)
   (if (null? args)
       (scm-error 'misc-error #f "?" #f #f)
-      (let loop ((msg "%s")
+      (let loop ((msg "~A")
 		 (rest (cdr args)))
 	(if (not (null? rest))
-	    (loop (string-append msg " %S")
+	    (loop (string-append msg " ~S")
 		  (cdr rest))
 	    (scm-error 'misc-error #f msg args #f)))))
 

ice-9/expect.scm

@@ -82,7 +82,7 @@
 					       2))
 				       (scm-error 'misc-error
 						  "expect"
-						  "bad recipient: %S"
+						  "bad recipient: ~S"
 						  (list (car exprs))
 						  #f)
 				       `((apply ,(cadar exprs)

ice-9/syncase.scm

@@ -87,7 +87,7 @@
   (start-stack 'syncase-stack
 	       (scm-error 'misc-error
 			  who
-			  "%s %S"
+			  "~A ~S"
 			  (list why what)
 			  '())))