mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-09 10:50:27 +02:00
Code Activity

* format.scm: Use (variable-set! (builtin-variable 'format)) to

Browse source 
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:
Greg J. Badros 2000-01-20 20:58:30 +00:00
parent a177af3496
commit 14469b7c69
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/format.scm
View file

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