From 34898c9b9113641c8130a5e2f25bbf8f0c0486c5 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Thu, 20 Sep 2001 13:26:56 +0000
Subject: [PATCH] Added missing export of regexp-fold-right.

---
 scsh/rx/packages.scm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/scsh/rx/packages.scm b/scsh/rx/packages.scm
index 9059149..d914424 100644
--- a/scsh/rx/packages.scm
+++ b/scsh/rx/packages.scm
@@ -150,12 +150,12 @@
 			      &opt (proc (:exact-integer :value) :value)
 			      :exact-integer)
 		      :value))
-   (regexp-fold (proc (:value (proc (:value :exact-integer :value) :value)
-			      :value
-			      :string
-			      &opt (proc (:exact-integer :value) :value)
-			      :exact-integer)
-		      :value))
+   (regexp-fold-right (proc (:value (proc (:value :exact-integer :value) :value)
+				    :value
+				    :string
+				    &opt (proc (:exact-integer :value) :value)
+				    :exact-integer)
+			    :value))
    (regexp-for-each (proc (:value (proc (:value) :unspecific)
 				  :string &opt :exact-integer)
 			  :unspecific))))