summaryrefslogtreecommitdiff
path: root/srfi/srfi-69.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2007-12-13 12:27:37 +0000
committerLudovic Courtès <ludo@gnu.org>2007-12-13 12:27:37 +0000
commit70a4404429e198f37f52ddf73f6d9336277ed54c (patch)
tree346aed2d97a7136ea724966e165d51263503b1df /srfi/srfi-69.scm
parent2ae87f26a8f84a16944f9fcdd0bbcae45939a509 (diff)
downloadguile-70a4404429e198f37f52ddf73f6d9336277ed54c.tar.gz
Changes from arch/CVS synchronization
Diffstat (limited to 'srfi/srfi-69.scm')
-rw-r--r--srfi/srfi-69.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/srfi/srfi-69.scm b/srfi/srfi-69.scm
index c000c2911..7da560b1b 100644
--- a/srfi/srfi-69.scm
+++ b/srfi/srfi-69.scm
@@ -143,7 +143,7 @@ follow them."
(cond ((null? rest-list) (reverse! acc))
((keyword? (first rest-list))
(lp acc (cddr rest-list)))
- (else (lp (cons (first rest-list) acc) (rest rest-list))))))
+ (else (lp (cons (first rest-list) acc) (cdr rest-list))))))
(define (guile-ht-ctor weakness)
"Answer the Guile HT constructor for the given WEAKNESS."