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 <l...@gnu.org> 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
