From 50706e947553f9b060b7b6fec775f43cb4bc132d Mon Sep 17 00:00:00 2001
From: Jim Blandy <jimb@red-bean.com>
Date: Sun, 2 May 1999 17:27:05 +0000
Subject: [PATCH] * boot-9.scm (provided?): New function.

---
 ice-9/boot-9.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 355afb7ea..edf06ceac 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -34,6 +34,12 @@
   (if (not (memq sym *features*))
       (set! *features* (cons sym *features*))))
 
+;;; Return #t iff FEATURE is available to this Guile interpreter.
+;;; In SLIB, provided? also checks to see if the module is available.
+;;; We should do that too, but don't.
+(define (provided? feature)
+  (and (memq feature *features*) #t))
+
 
 ;;; {R4RS compliance}