Fixed broken cre-search? interface.

2001-10-05 08:27:26 +00:00 · 2001-10-05 08:27:26 +00:00 · 2359057f89
parent 9552e7900a
commit 2359057f89
1 changed files with 1 additions and 1 deletions
--- 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