srfi-34 cond-expand

srfi-34 cond-expand

[Kevin Ryde]

[-- Attachment #1: Type: text/plain, Size: 235 bytes --]

Am I right that all srfi modules should announce themselves with
cond-expand?  srfi-34 doesn't seem to do so currently.

        * srfi-34.scm: Add cond-expand-provide srf-34.

        * tests/srfi-34.test: Check cond-expand srfi-34.


[-- Attachment #2: srfi-34.scm.cond-expand.diff --]
[-- Type: text/plain, Size: 304 bytes --]

--- srfi-34.scm.~1.1.~	2003-04-30 10:06:33.000000000 +1000
+++ srfi-34.scm	2003-07-17 07:58:22.000000000 +1000
@@ -31,6 +31,8 @@
 	    raise)
   #:export-syntax (guard))
 
+(cond-expand-provide (current-module) '(srfi-34))
+
 (define throw-key 'srfi-34)
 
 (define (with-exception-handler handler thunk)

[-- Attachment #3: srfi-34.test.cond-expand.diff --]
[-- Type: text/plain, Size: 338 bytes --]

--- srfi-34.test.~1.1.~	2003-04-30 10:06:33.000000000 +1000
+++ srfi-34.test	2003-07-17 07:57:18.000000000 +1000
@@ -37,6 +37,10 @@
 
 (with-test-prefix "SRFI 34"
 
+  (pass-if "cond-expand"
+    (cond-expand (srfi-34 #t)
+		 (else    #f)))
+
   (pass-if "example 1"
 	   (expr-prints-and-evals-to?
 	    '(call-with-current-continuation

[-- Attachment #4: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Guile-devel mailing list
Guile-devel@gnu.org
http://mail.gnu.org/mailman/listinfo/guile-devel