From 14469b7c69feb0f2c5b8a093f19fe2a548b31c5b Mon Sep 17 00:00:00 2001
From: "Greg J. Badros" <gjb@cs.washington.edu>
Date: Thu, 20 Jan 2000 20:58:30 +0000
Subject: [PATCH] * format.scm: Use (variable-set! (builtin-variable 'format))
 to re-define format to be format:format (instead of just define, which
 interacts poorly with the module system).  Thanks to Shuji Narazaki for this
 change.

---
 ice-9/format.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ice-9/format.scm b/ice-9/format.scm
index fce2737ce..40f20b3da 100644
--- a/ice-9/format.scm
+++ b/ice-9/format.scm
@@ -1670,7 +1670,9 @@
 
 (define format:abort (lambda () (error "error in format")))
 
-(define format format:format)
+;;(define format format:format)
+;; Thanks to Shuji Narazaki
+(variable-set! (builtin-variable 'format) format:format)
 
 ;; If this is not possible then a continuation is used to recover
 ;; properly from a format error. In this case format returns #f.