From 1af9072d739efcc86c118fad7382029ec2a9d666 Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Fri, 11 Feb 2000 04:48:07 +0000
Subject: [PATCH] * format.scm (format): Reintroduce (define format
 format:format) so that the binding in the public interface of the module will
 be OK.

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

diff --git a/ice-9/format.scm b/ice-9/format.scm
index 40f20b3da..8ef9a75b6 100644
--- a/ice-9/format.scm
+++ b/ice-9/format.scm
@@ -1670,9 +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)
+(variable-set! (builtin-variable '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.