summaryrefslogtreecommitdiff
path: root/module/ice-9/peg.scm
diff options
context:
space:
mode:
authorNoah Lavine <nlavine@haverford.edu>2011-01-31 14:56:02 -0500
committerAndy Wingo <wingo@pobox.com>2013-01-16 10:11:31 +0100
commitfebe6dadab4e85a6d794646dc80df0cdeba7259c (patch)
tree93c05723da964180ccf2aaef5641674f5b4a3030 /module/ice-9/peg.scm
parent6f6c7d15a28af03f268d2dcbbb1f7c7fb0401a6d (diff)
downloadguile-febe6dadab4e85a6d794646dc80df0cdeba7259c.tar.gz
peg: hygiene in cg-peg-any
* module/ice-9/peg.scm (cg-peg-any): Use cggl-syn and cggr-syn.
Diffstat (limited to 'module/ice-9/peg.scm')
-rw-r--r--module/ice-9/peg.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/module/ice-9/peg.scm b/module/ice-9/peg.scm
index e8dc0ef83..7d96ae003 100644
--- a/module/ice-9/peg.scm
+++ b/module/ice-9/peg.scm
@@ -212,10 +212,10 @@
(let ((str (syntax str))
(strlen (syntax strlen))
(at (syntax at)))
- (datum->syntax for-syntax
- (cggl for-syntax str strlen at
- (cggr for-syntax accum
- 'cg-peg-any `(substring ,str ,at (+ ,at 1)) `(+ ,at 1))))))
+ (cggl-syn for-syntax str strlen at
+ (cggr-syn for-syntax accum
+ 'cg-peg-any #`(substring #,str #,at (+ #,at 1))
+ #`(+ #,at 1)))))
;; Generates code for matching a range of characters between start and end.
;; E.g.: (cg-range syntax #\a #\z 'body)