mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

Changes from arch/CVS synchronization

Browse source
This commit is contained in:
Ludovic Courtès 2007-12-13 12:27:37 +00:00
parent 2ae87f26a8
commit 70a4404429
4 changed files with 14 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
srfi/ChangeLog
View file

@ -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> 2007-12-03 Stephen Compall <s11@member.fsf.org>
* srfi-69.scm: New file. * srfi-69.scm: New file.

2
srfi/srfi-69.scm
View file

@ -143,7 +143,7 @@ follow them."
(cond ((null? rest-list) (reverse! acc)) (cond ((null? rest-list) (reverse! acc))
((keyword? (first rest-list)) ((keyword? (first rest-list))
(lp acc (cddr 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) (define (guile-ht-ctor weakness)
"Answer the Guile HT constructor for the given WEAKNESS." "Answer the Guile HT constructor for the given WEAKNESS."

5
test-suite/ChangeLog
View file

@ -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> 2007-12-03 Stephen Compall <s11@member.fsf.org>
* tests/srfi-69.test: New file. * tests/srfi-69.test: New file.

3
test-suite/tests/srfi-69.test
View file

@ -102,4 +102,7 @@ case-insensitive strings to `equal?'-tested values."
(and (= 1 (hash-table-size ht)) (and (= 1 (hash-table-size ht))
(lset= equal? '((b . 53)) (hash-table->alist 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)))
) )