;;;; format-synch.scm
;;;; Kon Lovett, Jan '18

(module format-synch

(;export
  format)

(import scheme chicken)
(use
  (srfi 18)
  (rename format (format single-format))
  synch)

(define *FORMAT-MUTEX* (make-mutex 'format-synch))

(define (format dst fmt . args)
  (apply-synch *FORMAT-MUTEX* single-format dst fmt args) )

) ;format-synch