diff options
author | Noah Lavine <nlavine@haverford.edu> | 2011-01-31 14:56:02 -0500 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-01-16 10:11:31 +0100 |
commit | febe6dadab4e85a6d794646dc80df0cdeba7259c (patch) | |
tree | 93c05723da964180ccf2aaef5641674f5b4a3030 /module/ice-9/peg.scm | |
parent | 6f6c7d15a28af03f268d2dcbbb1f7c7fb0401a6d (diff) | |
download | guile-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.scm | 8 |
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) |