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

Remove superfluous END-VEC parameter to CRE-SEARCH.

This commit is contained in:
sperber 2002-02-22 10:25:42 +00:00
parent dce89b2fa8
commit 68aa82c4e7
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scsh/rx/re-high.scm
View File

@ -46,10 +46,9 @@
(define (regexp-search re str . maybe-start) (define (regexp-search re str . maybe-start)
(let* ((tsm (re-tsm re)) (let* ((tsm (re-tsm re))
(svec (make-vector (+ 1 tsm) #f)) (mvec (make-vector (+ 1 tsm) #f))
(evec (make-vector (+ 1 tsm) #f))
(cre (compile-regexp re))) (cre (compile-regexp re)))
(cre-search cre svec evec str (:optional maybe-start 0)))) (cre-search cre mvec str (:optional maybe-start 0))))
(define (regexp-search? re str . maybe-start) (define (regexp-search? re str . maybe-start)

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

@ -70,7 +70,7 @@
;;; 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 ;; ### we do not look at START yet
(define (cre-search cre start-vec end-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)
#f #f
@ -85,7 +85,7 @@
(make-regexp-match str (make-regexp-match str
(translate-submatches ret (translate-submatches ret
(cre:tvec cre) (cre:tvec cre)
start-vec)))))))) match-vec))))))))
(define (translate-submatches matches trans-vec match-vec) (define (translate-submatches matches trans-vec match-vec)
(let ((n-virtual-submatches (vector-length trans-vec))) (let ((n-virtual-submatches (vector-length trans-vec)))