/[guile]/guile/guile-core/ice-9/format.scm
ViewVC logotype

Diff of /guile/guile-core/ice-9/format.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.15 by mvo, Thu May 9 19:37:37 2002 UTC revision 1.16 by mvo, Sun Nov 3 19:14:08 2002 UTC
# Line 13  Line 13 
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
# Line 1725  Line 1726 
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    

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26