diff options
| author | Noah Lavine <nlavine@haverford.edu> | 2011-01-31 14:56:02 -0500 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2011-03-24 21:10:02 +0100 |
| commit | 714fbfd49561e8eac8976118075a545ae4d5f49f (patch) | |
| tree | 494271e1e9904609bc2415bd87fb69fa845dd776 | |
| parent | 9f722d26099ed4c1cfadfda532f25e4a106f691a (diff) | |
| download | guile-714fbfd49561e8eac8976118075a545ae4d5f49f.tar.gz | |
peg: hygiene in cg-peg-any
* module/ice-9/peg.scm (cg-peg-any): Use cggl-syn and cggr-syn.
| -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) |