mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 13:30:26 +02:00
Code Activity

peg: cg-string improvement

Browse source 
* module/ice-9/peg.scm (cg-string): Use the more efficient string= with
  range args, rather than string=? and substring.
This commit is contained in:
Andy Wingo 2011-02-18 10:42:13 +01:00
parent 87c3ef2f95
commit 990b24b254
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/ice-9/peg.scm
View file

@ -144,8 +144,7 @@ return EXP."
(define (cg-string for-syntax match accum) (define (cg-string for-syntax match accum)
(let ((len (string-length match))) (let ((len (string-length match)))
(cggl for-syntax #'str #'strlen #'at (cggl for-syntax #'str #'strlen #'at
#`(if (string=? (substring str at (min (+ at #,len) strlen)) #`(if (string= str #,match at (min (+ at #,len) strlen))
#,match)
#,(cggr for-syntax accum 'cg-string match #,(cggr for-syntax accum 'cg-string match
#`(+ at #,len)) #`(+ at #,len))
#f)))) #f))))