mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-03 10:40:21 +02:00
Code Activity

* format.scm (format): Reintroduce (define format format:format)

Browse source 
so that the binding in the public interface of the module will be OK.
This commit is contained in:
Mikael Djurfeldt 2000-02-11 04:48:07 +00:00
parent 11a5232f86
commit 1af9072d73
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/format.scm
View file

@ -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.