mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-07-09 19:00:27 +02:00
* 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.
This commit is contained in:
parent
a177af3496
commit
14469b7c69
1 changed files with 3 additions and 1 deletions
|
@ -1670,7 +1670,9 @@
|
||||||
|
|
||||||
(define format:abort (lambda () (error "error in format")))
|
(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
|
;; If this is not possible then a continuation is used to recover
|
||||||
;; properly from a format error. In this case format returns #f.
|
;; properly from a format error. In this case format returns #f.
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue