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

(format): Wrap a monitor around format:format since it is not

Browse source 
thread-safe.
This commit is contained in:
Marius Vollmer 2002-11-03 19:14:08 +00:00
parent bb11cbf4eb
commit d02655f717
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

@ -13,6 +13,7 @@
(define-module (ice-9 format) (define-module (ice-9 format)
:use-module (ice-9 and-let-star) :use-module (ice-9 and-let-star)
:use-module (ice-9 threads)
:autoload (ice-9 pretty-print) (pretty-print)) :autoload (ice-9 pretty-print) (pretty-print))
(export format (export format
@ -1725,7 +1726,8 @@
(define format:abort (lambda () (error "error in format"))) (define format:abort (lambda () (error "error in format")))
(define format format:format) (define format (monitor format:format))
;; Thanks to Shuji Narazaki ;; Thanks to Shuji Narazaki
(module-set! the-root-module 'format format) (module-set! the-root-module 'format format)