suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix a macro problem in "racket/private/string.rkt".

Browse Source 
`port-success-k' is used in a single place, and instead of a simple
`lambda' expression it was used with (and ... (lambda ...)), which lead
to duplication of code.  Instead, move the question into the
`regexp-loop' macro.  (The compiled zo file is indeed smaller after this
change.)
This commit is contained in:
Eli Barzilay 2012-03-11 19:51:28 -04:00
parent 14084d560d
commit f538c2e076
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/racket/private/string.rkt
View File

@ -229,7 +229,7 @@
(let* ([mstart (caar m)]
[mend (cdar m)]
[0-ok? (not (= mstart mend))])
(if port-success-k
(if (and port-success-k (input-port? string))
(port-success-k
(lambda (acc new-start new-end)
(loop acc new-start new-end ipre 0-ok?))
@ -247,12 +247,11 @@
;; port-success-k: need to shift index of rest as reading; cannot
;; do a tail call without adding another state variable to the
;; regexp loop, so this remains inefficient
(and (input-port? string)
(lambda (loop acc start end mstart mend)
(append (map (lambda (p)
(cons (+ mend (car p)) (+ mend (cdr p))))
(loop '() 0 (and end (- end mend))))
(cons (cons mstart mend) acc))))
(lambda (loop acc start end mstart mend)
(append (map (lambda (p)
(cons (+ mend (car p)) (+ mend (cdr p))))
(loop '() 0 (and end (- end mend))))
(cons (cons mstart mend) acc)))
;; other port functions: use string case
#f #f
;; flags