From 14469b7c69feb0f2c5b8a093f19fe2a548b31c5b Mon Sep 17 00:00:00 2001 From: "Greg J. Badros" 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.