summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--NEWS1
-rw-r--r--srfi/ChangeLog4
-rw-r--r--srfi/srfi-35.scm4
-rw-r--r--test-suite/ChangeLog4
-rw-r--r--test-suite/tests/srfi-35.test12
5 files changed, 23 insertions, 2 deletions
diff --git a/NEWS b/NEWS
index 5cd1b74c5..f45d0aefe 100644
--- a/NEWS
+++ b/NEWS
@@ -69,6 +69,7 @@ would trigger an unbound variable error for `match:andmap'.
Previously, parsing short option names of argument-less options would
lead to a stack overflow.
+** `(srfi srfi-35)' is now visible through `cond-expand'
** Fixed type-checking for the second argument of `eval'
** Fixed `struct-ref' and `struct-set!' on "light structs"
** Honor struct field access rights in GOOPS
diff --git a/srfi/ChangeLog b/srfi/ChangeLog
index f431f6eca..d93ac8232 100644
--- a/srfi/ChangeLog
+++ b/srfi/ChangeLog
@@ -1,5 +1,9 @@
2008-04-26 Ludovic Courtès <ludo@gnu.org>
+ * srfi-35.scm: Provide `srfi-35' through `cond-expand-provide'.
+
+2008-04-26 Ludovic Courtès <ludo@gnu.org>
+
* Makefile.am (srfi_DATA): Add `srfi-88.scm'.
* srfi-88.scm: New file.
diff --git a/srfi/srfi-35.scm b/srfi/srfi-35.scm
index c9e25ce12..203546625 100644
--- a/srfi/srfi-35.scm
+++ b/srfi/srfi-35.scm
@@ -1,6 +1,6 @@
;;; srfi-35.scm --- Conditions
-;; Copyright (C) 2007 Free Software Foundation, Inc.
+;; Copyright (C) 2007, 2008 Free Software Foundation, Inc.
;;
;; This library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public
@@ -37,6 +37,8 @@
&serious serious-condition?
&error error?))
+(cond-expand-provide (current-module) '(srfi-35))
+
;;;
;;; Condition types.
diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog
index 3c8987c1e..f3c075c4d 100644
--- a/test-suite/ChangeLog
+++ b/test-suite/ChangeLog
@@ -1,5 +1,9 @@
2008-04-26 Ludovic Courtès <ludo@gnu.org>
+ * tests/srfi-35.test (cond-expand): New test.
+
+2008-04-26 Ludovic Courtès <ludo@gnu.org>
+
* Makefile.am (SCM_TESTS): Add `tests/srfi-88.test'.
* tests/srfi-88.test: New file.
diff --git a/test-suite/tests/srfi-35.test b/test-suite/tests/srfi-35.test
index ec7a104c3..83efd61d9 100644
--- a/test-suite/tests/srfi-35.test
+++ b/test-suite/tests/srfi-35.test
@@ -1,7 +1,7 @@
;;;; srfi-35.test --- Test suite for SRFI-35 -*- Scheme -*-
;;;; Ludovic Courtès <ludo@gnu.org>
;;;;
-;;;; Copyright (C) 2007 Free Software Foundation, Inc.
+;;;; Copyright (C) 2007, 2008 Free Software Foundation, Inc.
;;;;
;;;; This program is free software; you can redistribute it and/or modify
;;;; it under the terms of the GNU General Public License as published by
@@ -23,6 +23,12 @@
:use-module (srfi srfi-35))
+(with-test-prefix "cond-expand"
+ (pass-if "srfi-35"
+ (cond-expand (srfi-35 #t)
+ (else #f))))
+
+
(with-test-prefix "condition types"
(pass-if "&condition"
(condition-type? &condition))
@@ -308,3 +314,7 @@
(pass-if "(c2-b v5)"
(equal? (c2-b v5) "b2")))
+
+;;; Local Variables:
+;;; coding: latin-1
+;;; End: