From e8a662ea1ba9d6503b75d52d9756c6fe55571cd6 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Tue, 27 Jan 2004 09:51:36 +0000
Subject: [PATCH] Re-add interface of SRFI-42, which was accidentally removed
 on the last commit.

---
 scheme/more-interfaces.scm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/scheme/more-interfaces.scm b/scheme/more-interfaces.scm
index 14b1dd9..d8fa56a 100644
--- a/scheme/more-interfaces.scm
+++ b/scheme/more-interfaces.scm
@@ -648,3 +648,23 @@
    option-optional-arg?
    option-processor
    args-fold))
+
+(define-interface srfi-42-interface
+  (export ((do-ec
+	    list-ec append-ec
+	    string-ec string-append-ec
+	    vector-ec vector-of-length-ec
+	    sum-ec product-ec
+	    min-ec max-ec
+	    any?-ec every?-ec
+	    first-ec last-ec
+	    fold-ec fold3-ec) :syntax)
+	  ((:
+	    :list :string :vector
+	    :integers
+	    :range :real-range :char-range
+	    :port
+	    :dispatched) :syntax)
+	  ((:do :let :parallel :while :until) :syntax)
+	  :-dispatch-ref :-dispatch-set! make-initial-:-dispatch 
+	  (:generator-proc :syntax)))
\ No newline at end of file