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

Remove obsolete comment about START argument to CRE-SEARCH not being 

supported.
This commit is contained in:
sperber 2002-02-22 10:27:07 +00:00
parent 68aa82c4e7
commit de0de38bb6
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -69,7 +69,6 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; cre-search returns match info; cre-search? is just a predicate. ;;; cre-search returns match info; cre-search? is just a predicate.
;; ### we do not look at START yet
(define (cre-search cre match-vec str start) (define (cre-search cre match-vec 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)