summaryrefslogtreecommitdiff
path: root/srfi
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
parent2ae87f26a8f84a16944f9fcdd0bbcae45939a509 (diff)
downloadguile-70a4404429e198f37f52ddf73f6d9336277ed54c.tar.gz
Changes from arch/CVS synchronization
Diffstat (limited to 'srfi')
-rw-r--r--srfi/ChangeLog5
-rw-r--r--srfi/srfi-69.scm2
2 files changed, 6 insertions, 1 deletions
diff --git a/srfi/ChangeLog b/srfi/ChangeLog
index 401dfee22..ecb7679a2 100644
--- a/srfi/ChangeLog
+++ b/srfi/ChangeLog
@@ -1,3 +1,8 @@
+2007-12-13 Stephen Compall <s11@member.fsf.org>
+
+ * srfi-69.scm (without-keyword-args): Use `cdr' instead of
+ `rest'.
+
2007-12-03 Stephen Compall <s11@member.fsf.org>
* srfi-69.scm: New file.
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."