(format): Use 'monitor' properly. Not the definition

needs to be restricted, the actual function needs to be.

diff --git a/ice-9/format.scm b/ice-9/format.scm
index 38a132b..e84c2f6 100644 (file)
--- a/ice-9/format.scm
+++ b/ice-9/format.scm
@@ -1726,7 +1726,7 @@
 
 (define format:abort (lambda () (error "error in format")))
 
-(define format (monitor format:format))
+(define (format . args) (monitor (apply format:format args)))
 
 ;; Thanks to Shuji Narazaki
 (module-set! the-root-module 'format format)