[Guile-commits] GNU Guile branch, stable-2.0, updated. v2.0.6-14-g6c92200

[Ludovic Courtès]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=6c9220064d987deee813cfd933d50353d14d4c0f

The branch, stable-2.0 has been updated
       via  6c9220064d987deee813cfd933d50353d14d4c0f (commit)
      from  b908768a7ec79f78def344c464186a51f55b69e8 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 6c9220064d987deee813cfd933d50353d14d4c0f
Author: Ludovic Courtès <address@hidden>
Date:   Tue Aug 21 00:36:50 2012 +0200

    Micro-optimize (ice-9 format).
    
    * module/ice-9/format.scm (format): Use `call-with-output-string'
      instead of `with-output-to-string'.

-----------------------------------------------------------------------

Summary of changes:
 module/ice-9/format.scm |   14 +++++++-------
 1 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/module/ice-9/format.scm b/module/ice-9/format.scm
index d038ace..eed8cbb 100644
--- a/module/ice-9/format.scm
+++ b/module/ice-9/format.scm
@@ -427,15 +427,15 @@
                      (case modifier
                        ((at)
                         (format:out-str
-                         (with-output-to-string 
-                           (lambda ()
-                             (truncated-print (next-arg)
+                         (call-with-output-string
+                           (lambda (p)
+                             (truncated-print (next-arg) p
                                               #:width width)))))
                        ((colon-at)
                         (format:out-str
-                         (with-output-to-string 
-                           (lambda ()
-                             (truncated-print (next-arg)
+                         (call-with-output-string
+                           (lambda (p)
+                             (truncated-print (next-arg) p
                                               #:width
                                               (max (- width
                                                       output-col)
@@ -779,7 +779,7 @@
     (define (format:obj->str obj slashify)
       (let ((res (if slashify
                      (object->string obj)
-                     (with-output-to-string (lambda () (display obj))))))
+                     (call-with-output-string (lambda (p) (display obj p))))))
         (if (and format:read-proof (string-prefix? "#<" res))
             (object->string res)
             res)))


hooks/post-receive
-- 
GNU Guile