peg: cg-peg-any does not use cggl

* module/ice-9/peg.scm (cg-peg-any): Don't use cggl.

diff --git a/module/ice-9/peg.scm b/module/ice-9/peg.scm
index 041636d..555ad85 100644 (file)
--- a/module/ice-9/peg.scm
+++ b/module/ice-9/peg.scm
@@ -152,10 +152,11 @@ return EXP."
 ;; Generates code for matching any character.
 ;; E.g.: (cg-peg-any syntax 'body)
 (define (cg-peg-any for-syntax accum)
-  (cggl for-syntax #'str #'strlen #'at
-        (cggr for-syntax accum
-              'cg-peg-any #`(substring str at (+ at 1))
-              #`(+ at 1))))
+  #`(lambda (str len pos)
+      (and (< pos len)
+           #,(cggr for-syntax accum
+                   'cg-peg-any #`(substring str pos (+ pos 1))
+                   #`(+ pos 1)))))
 
 ;; Generates code for matching a range of characters between start and end.
 ;; E.g.: (cg-range syntax #\a #\z 'body)