From 2359057f8908dc7576bbb22ef5859eb4bc6618d3 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Fri, 5 Oct 2001 08:27:26 +0000
Subject: [PATCH] Fixed broken cre-search? interface.

---
 scsh/rx/re-low.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scsh/rx/re-low.scm b/scsh/rx/re-low.scm
index e824659..aa33ac2 100644
--- a/scsh/rx/re-low.scm
+++ b/scsh/rx/re-low.scm
@@ -85,7 +85,7 @@
 		(make-regexp-match str 
 				   (list->vector ret))))))))
 
-(define (cre-search? cre start-vec end-vec str start)
+(define (cre-search? cre str start)
   (let ((re-str (cre:string cre)))	;; RE-STR = #F => empty match.
     (if (not re-str)
 	#f