From d5074b473cceea3f051ea27eb05cfb797b7d788e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 26 Oct 2006 07:20:59 +0000 Subject: [PATCH] Changes from arch/CVS synchronization --- test-suite/ChangeLog | 5 +++++ test-suite/tests/srfi-14.test | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog index a35e29704..803cb44aa 100644 --- a/test-suite/ChangeLog +++ b/test-suite/ChangeLog @@ -1,3 +1,8 @@ +2006-10-26 Ludovic Courtès + + * tests/srfi-14.test (Latin-1)[char-set:punctuation]: Fixed a + typo: `thrown' instead of `throw'. + 2006-10-05 Kevin Ryde * tests/ftw.test: New file. diff --git a/test-suite/tests/srfi-14.test b/test-suite/tests/srfi-14.test index 5c3a3f509..fc6307149 100644 --- a/test-suite/tests/srfi-14.test +++ b/test-suite/tests/srfi-14.test @@ -290,7 +290,7 @@ (pass-if "char-set:punctuation (membership)" (if (not %latin1) - (thrown 'unresolved) + (throw 'unresolved) (let ((punctuation (char-set->list char-set:punctuation))) (every? (lambda (8-bit-char) (memq 8-bit-char punctuation))