diff options
author | Ludovic Courtès <ludo@gnu.org> | 2007-12-13 12:27:37 +0000 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2007-12-13 12:27:37 +0000 |
commit | 70a4404429e198f37f52ddf73f6d9336277ed54c (patch) | |
tree | 346aed2d97a7136ea724966e165d51263503b1df | |
parent | 2ae87f26a8f84a16944f9fcdd0bbcae45939a509 (diff) | |
download | guile-70a4404429e198f37f52ddf73f6d9336277ed54c.tar.gz |
Changes from arch/CVS synchronization
-rw-r--r-- | srfi/ChangeLog | 5 | ||||
-rw-r--r-- | srfi/srfi-69.scm | 2 | ||||
-rw-r--r-- | test-suite/ChangeLog | 5 | ||||
-rw-r--r-- | test-suite/tests/srfi-69.test | 3 |
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))) + ) |