[Scsh-checkins] CVS: scsh-0.6/scsh/rx re-low.scm,1.7,1.8

[Martin Gasbichler <mainzelm@users.sourceforge.net>]

Update of /cvsroot/scsh/scsh-0.6/scsh/rx
In directory usw-pr-cvs1:/tmp/cvs-serv15131

Modified Files:
        re-low.scm 
Log Message:
Fixed broken cre-search? interface.


Index: re-low.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/rx/re-low.scm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** re-low.scm  2001/10/01 15:19:08     1.7
--- re-low.scm  2001/10/05 08:27:26     1.8
***************
*** 86,90 ****
                                   (list->vector ret))))))))
  
! (define (cre-search? cre start-vec end-vec str start)
    (let ((re-str (cre:string cre)))    ;; RE-STR = #F => empty match.
      (if (not re-str)
--- 86,90 ----
                                   (list->vector ret))))))))
  
! (define (cre-search? cre str start)
    (let ((re-str (cre:string cre)))    ;; RE-STR = #F => empty match.
      (if (not re-str)