13 |
|
|
14 |
(define-module (ice-9 format) |
(define-module (ice-9 format) |
15 |
:use-module (ice-9 and-let-star) |
:use-module (ice-9 and-let-star) |
16 |
|
:use-module (ice-9 threads) |
17 |
:autoload (ice-9 pretty-print) (pretty-print)) |
:autoload (ice-9 pretty-print) (pretty-print)) |
18 |
|
|
19 |
(export format |
(export format |
1726 |
|
|
1727 |
(define format:abort (lambda () (error "error in format"))) |
(define format:abort (lambda () (error "error in format"))) |
1728 |
|
|
1729 |
(define format format:format) |
(define format (monitor format:format)) |
1730 |
|
|
1731 |
;; Thanks to Shuji Narazaki |
;; Thanks to Shuji Narazaki |
1732 |
(module-set! the-root-module 'format format) |
(module-set! the-root-module 'format format) |
1733 |
|
|