summaryrefslogtreecommitdiff
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
parent2ae87f26a8f84a16944f9fcdd0bbcae45939a509 (diff)
downloadguile-70a4404429e198f37f52ddf73f6d9336277ed54c.tar.gz
Changes from arch/CVS synchronization
-rw-r--r--srfi/ChangeLog5
-rw-r--r--srfi/srfi-69.scm2
-rw-r--r--test-suite/ChangeLog5
-rw-r--r--test-suite/tests/srfi-69.test3
4 files changed, 14 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."
diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog
index 38b4b56ad..72a2491bc 100644
--- a/test-suite/ChangeLog
+++ b/test-suite/ChangeLog
@@ -1,3 +1,8 @@
+2007-12-13 Stephen Compall <s11@member.fsf.org>
+
+ * tests/srfi-69.test (SRFI-69)[can use all arguments, including
+ size]: New test.
+
2007-12-03 Stephen Compall <s11@member.fsf.org>
* tests/srfi-69.test: New file.
diff --git a/test-suite/tests/srfi-69.test b/test-suite/tests/srfi-69.test
index 7f1fa4471..1d240d28c 100644
--- a/test-suite/tests/srfi-69.test
+++ b/test-suite/tests/srfi-69.test
@@ -102,4 +102,7 @@ case-insensitive strings to `equal?'-tested values."
(and (= 1 (hash-table-size ht))
(lset= equal? '((b . 53)) (hash-table->alist ht)))))
+ (pass-if "can use all arguments, including size"
+ (hash-table? (make-hash-table equal? hash #:weak 'key 31)))
+
)