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

View File

@ -69,7 +69,6 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; 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)
(let ((re-str (cre:string cre))) ;; RE-STR = #F => empty match.
(if (not re-str)