summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Court`es2006-07-19 09:19:25 +0000
committerLudovic Court`es2006-07-19 09:19:25 +0000
commit38e70d3b21d07a172bd4d8e491006b405fc9388e (patch)
tree3d485f7d6da910296f64e0d45d95af1e976cb9a7
parentebdec9bd1cdf236d7826d0641da46dc9ddf9fc5b (diff)
downloadskribilo-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.scm4
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")