From febe6dadab4e85a6d794646dc80df0cdeba7259c Mon Sep 17 00:00:00 2001 From: Noah Lavine Date: Mon, 31 Jan 2011 14:56:02 -0500 Subject: [PATCH] peg: hygiene in cg-peg-any * module/ice-9/peg.scm (cg-peg-any): Use cggl-syn and cggr-syn. --- module/ice-9/peg.scm | 8 ++++---- 1 file 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)