From 70a4404429e198f37f52ddf73f6d9336277ed54c Mon Sep 17 00:00:00 2001 From: =?utf8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 13 Dec 2007 12:27:37 +0000 Subject: [PATCH] Changes from arch/CVS synchronization --- srfi/ChangeLog | 5 +++++ srfi/srfi-69.scm | 2 +- test-suite/ChangeLog | 5 +++++ test-suite/tests/srfi-69.test | 3 +++ 4 files changed, 14 insertions(+), 1 deletion(-) 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 + + * srfi-69.scm (without-keyword-args): Use `cdr' instead of + `rest'. + 2007-12-03 Stephen Compall * 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 + + * tests/srfi-69.test (SRFI-69)[can use all arguments, including + size]: New test. + 2007-12-03 Stephen Compall * 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))) + ) -- 2.20.1