diff --git a/scsh/rx/re-low.scm b/scsh/rx/re-low.scm index 7ed5dc3..32be47d 100644 --- a/scsh/rx/re-low.scm +++ b/scsh/rx/re-low.scm @@ -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)