mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-17 19:52:26 +02:00
Code Activity

Changes from arch/CVS synchronization

Browse source
This commit is contained in:
Ludovic Courtès 2006-10-26 07:25:24 +00:00
parent a5dc80238f
commit d7bfc0c998
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test-suite/ChangeLog
View file

@ -1,3 +1,8 @@
2006-10-26 Ludovic Courtès <ludovic.courtes@laas.fr>
* tests/srfi-14.test (Latin-1)[char-set:punctuation]: Fixed a
typo: `thrown' instead of `throw'.
2006-10-05 Kevin Ryde <user42@zip.com.au> 2006-10-05 Kevin Ryde <user42@zip.com.au>
* tests/ftw.test: New file. * tests/ftw.test: New file.

2
test-suite/tests/srfi-14.test
View file

@ -290,7 +290,7 @@
(pass-if "char-set:punctuation (membership)" (pass-if "char-set:punctuation (membership)"
(if (not %latin1) (if (not %latin1)
(thrown 'unresolved) (throw 'unresolved)
(let ((punctuation (char-set->list char-set:punctuation))) (let ((punctuation (char-set->list char-set:punctuation)))
(every? (lambda (8-bit-char) (every? (lambda (8-bit-char)
(memq 8-bit-char punctuation)) (memq 8-bit-char punctuation))