From 44bdaf3963ddeb8c5f19c683871480f8371c15c1 Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Wed, 18 Aug 2004 00:26:18 +0000
Subject: [PATCH] Add cond-expand-provide srfi-8, since this module provides
 that feature.

---
 ice-9/receive.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ice-9/receive.scm b/ice-9/receive.scm
index 56e5ecc45..9d704d6e7 100644
--- a/ice-9/receive.scm
+++ b/ice-9/receive.scm
@@ -1,6 +1,6 @@
 ;;;; SRFI-8
 
-;;; Copyright (C) 2000, 2001 Free Software Foundation, Inc.
+;;; Copyright (C) 2000, 2001, 2004 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
@@ -49,3 +49,5 @@
 (define-macro (receive vars vals . body)
   `(call-with-values (lambda () ,vals)
      (lambda ,vars ,@body)))
+
+(cond-expand-provide (current-module) '(srfi-8))