diff options
| author | Ludovic Court`es | 2006-07-19 09:19:25 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2006-07-19 09:19:25 +0000 |
| commit | 38e70d3b21d07a172bd4d8e491006b405fc9388e (patch) | |
| tree | 3d485f7d6da910296f64e0d45d95af1e976cb9a7 | |
| parent | ebdec9bd1cdf236d7826d0641da46dc9ddf9fc5b (diff) | |
| download | skribilo-38e70d3b21d07a172bd4d8e491006b405fc9388e.tar.gz skribilo-38e70d3b21d07a172bd4d8e491006b405fc9388e.tar.lz skribilo-38e70d3b21d07a172bd4d8e491006b405fc9388e.zip | |
compat: Optimized `hashtable->list'.
* src/guile/skribilo/utils/compat.scm (hashtable->list): Optimized a bit.
git-archimport-id: lcourtes@laas.fr--2005-libre/skribilo--devo--1.2--patch-11
| -rw-r--r-- | src/guile/skribilo/utils/compat.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/guile/skribilo/utils/compat.scm b/src/guile/skribilo/utils/compat.scm index cf97258..d24dd6f 100644 --- a/src/guile/skribilo/utils/compat.scm +++ b/src/guile/skribilo/utils/compat.scm @@ -248,8 +248,8 @@ (hash-set! table key init-value) (set-cdr! handle (update-proc (cdr handle)))))) -(define-public hashtable->list (lambda (h) - (map cdr (hash-map->list cons h)))) +(define-public (hashtable->list h) + (hash-map->list (lambda (key val) val) h)) (define-public (find-runtime-type obj) (cond ((string? obj) "string") |