scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed broken cre-search? interface.

This commit is contained in:
mainzelm 2001-10-05 08:27:26 +00:00
parent 9552e7900a
commit 2359057f89
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scsh/rx/re-low.scm
View File

@ -85,7 +85,7 @@
(make-regexp-match str (make-regexp-match str
(list->vector ret)))))))) (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. (let ((re-str (cre:string cre))) ;; RE-STR = #F => empty match.
(if (not re-str) (if (not re-str)
#f #f