From fcfe941d8f5b07500af5655aefc30a2d4babbdc9 Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Tue, 27 Mar 2007 15:14:28 +0000
Subject: Slightly optimized `make-string-replace'.
* src/guile/skribilo/utils/strings.scm (%make-general-string-replace):
Removed the `let'...
git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-28
---
src/guile/skribilo/utils/strings.scm | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/guile/skribilo/utils/strings.scm b/src/guile/skribilo/utils/strings.scm
index e8e8f8f..379464d 100644
--- a/src/guile/skribilo/utils/strings.scm
+++ b/src/guile/skribilo/utils/strings.scm
@@ -111,7 +111,7 @@
(define (%make-general-string-replace lst)
;; The general version
- (let ((chars (make-hash-table)))
+ (let ((chars (make-hash-table 200)))
;; Setup a hash table equivalent to LST.
(for-each (lambda (chr)
@@ -124,8 +124,8 @@
(lambda (str)
(let ((out (open-output-string)))
(string-for-each (lambda (ch)
- (let ((res (hashq-ref chars ch #f)))
- (display (if res res ch) out)))
+ (display (or (hashq-ref chars ch #f) ch)
+ out))
str)
(get-output-string out)))))
--
cgit v1.2.3