mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-20 02:30:23 +02:00
Code Activity

Micro-optimize (ice-9 format).

Browse source 
* module/ice-9/format.scm (format): Use `call-with-output-string'
  instead of `with-output-to-string'.
This commit is contained in:
Ludovic Courtès 2012-08-21 00:36:50 +02:00
parent b908768a7e
commit 6c9220064d
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
module/ice-9/format.scm
View file

@ -427,15 +427,15 @@
(case modifier (case modifier
((at) ((at)
(format:out-str (format:out-str
(with-output-to-string (call-with-output-string
(lambda () (lambda (p)
(truncated-print (next-arg) (truncated-print (next-arg) p
#:width width))))) #:width width)))))
((colon-at) ((colon-at)
(format:out-str (format:out-str
(with-output-to-string (call-with-output-string
(lambda () (lambda (p)
(truncated-print (next-arg) (truncated-print (next-arg) p
#:width #:width
(max (- width (max (- width
output-col) output-col)
@ -779,7 +779,7 @@
(define (format:obj->str obj slashify) (define (format:obj->str obj slashify)
(let ((res (if slashify (let ((res (if slashify
(object->string obj) (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)) (if (and format:read-proof (string-prefix? "#<" res))
(object->string res) (object->string res)
res))) res)))