Make `(srfi srfi-35)' visible through `cond-expand'.

diff --git a/NEWS b/NEWS
index 9d4560d4acdfff550b1fb8c76e61ca38c910ce1c..1e5a44abe7b54c871b631d93a33e14a384aefd4a 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -38,6 +38,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 cd696de630b84b2669d2ef5c2b91d731044f4bff..6343dd73a7a16c692d3768bcbf8bf375e76a567e 100644 (file)
--- a/srfi/ChangeLog
+++ b/srfi/ChangeLog
@@ -1,3 +1,7 @@
+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'.

diff --git a/srfi/srfi-35.scm b/srfi/srfi-35.scm
index c9e25ce129097e6521683252e43572993fd260cd..203546625c06d392071c99dbaf6f2bddbf19b708 100644 (file)
--- 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))
+
 \f
 ;;;
 ;;; Condition types.

diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog
index 9a2a63a97faf0aa09a1a5a67af22f5a518d16b92..67c28035de9d8f6d4e9db67ab8f2eb4f0e46ae40 100644 (file)
--- a/test-suite/ChangeLog
+++ b/test-suite/ChangeLog
@@ -1,3 +1,7 @@
+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'.

diff --git a/test-suite/tests/srfi-35.test b/test-suite/tests/srfi-35.test
index ec7a104c3852c002792b74241acc19cb722e425a..83efd61d96a7f41dcc77de89923a3f5307c60b46 100644 (file)
--- 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
@@ -22,6 +22,12 @@
   :use-module (test-suite lib)
   :use-module (srfi srfi-35))
 
+\f
+(with-test-prefix "cond-expand"
+  (pass-if "srfi-35"
+    (cond-expand (srfi-35 #t)
+                 (else    #f))))
+
 \f
 (with-test-prefix "condition types"
   (pass-if "&condition"
@@ -308,3 +314,7 @@
   (pass-if "(c2-b v5)"
     (equal? (c2-b v5) "b2")))
 
+
+;;; Local Variables:
+;;; coding: latin-1
+;;; End: