From 8b52357e88b8923b159001dc209cb01b066ec33e Mon Sep 17 00:00:00 2001 From: Noah Lavine Date: Mon, 31 Jan 2011 14:58:15 -0500 Subject: [PATCH] peg: hygiene in cg-range * module/ice-9/peg.scm (cg-range): Use cggl-syn and cggr-syn. --- module/ice-9/peg.scm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/module/ice-9/peg.scm b/module/ice-9/peg.scm index 7d96ae003..9cc4b72c4 100644 --- a/module/ice-9/peg.scm +++ b/module/ice-9/peg.scm @@ -224,14 +224,14 @@ (strlen (syntax strlen)) (at (syntax at)) (c (syntax c))) - (datum->syntax for-syntax - (cggl for-syntax str strlen at - `(let ((,c (string-ref ,str ,at))) - (if (and - (char>=? ,c ,start) - (char<=? ,c ,end)) - ,(cggr for-syntax accum 'cg-range `(string ,c) `(+ ,at 1)) - #f)))))) + (cggl-syn for-syntax str strlen at + #`(let ((#,c (string-ref #,str #,at))) + (if (and + (char>=? #,c #,start) + (char<=? #,c #,end)) + #,(cggr-syn for-syntax accum 'cg-range + #`(string #,c) #`(+ #,at 1)) + #f))))) ;; Filters the accum argument to peg-sexp-compile for buildings like string ;; literals (since we don't want to tag them with their name if we're doing an