diff options
| -rw-r--r-- | ChangeLog | 17 | ||||
| -rw-r--r-- | src/guile/skribilo/utils/strings.scm | 6 |
2 files changed, 20 insertions, 3 deletions
@@ -2,6 +2,23 @@ # arch-tag: automatic-ChangeLog--skribilo@sv.gnu.org--2006/skribilo--devo--1.2 # +2007-03-28 08:45:48 GMT Ludovic Court`es <ludovic.courtes@laas.fr> patch-69 + + Summary: + Slightly optimized `make-string-replace'. + Revision: + skribilo--devo--1.2--patch-69 + + * src/guile/skribilo/utils/strings.scm (%make-general-string-replace): + Removed the `let'... + + modified files: + ChangeLog src/guile/skribilo/utils/strings.scm + + new patches: + lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-28 + + 2007-03-28 08:44:53 GMT Ludovic Court`es <ludovic.courtes@laas.fr> patch-68 Summary: 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))))) |