From 39689ae4e7c482c92b8bf4ba6ac41279532c00c3 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Tue, 1 Dec 2009 21:14:24 +0000 Subject: [PATCH] Elaborate in this comment. svn: r17152 --- collects/syntax/module-reader.ss | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/syntax/module-reader.ss b/collects/syntax/module-reader.ss index a84fb571a4..a66b1248cb 100644 --- a/collects/syntax/module-reader.ss +++ b/collects/syntax/module-reader.ss @@ -184,8 +184,10 @@ (- (or (syntax-position modpath) (add1 pos)) pos))) v))] - ;; Since there are users that wrap with #%module-begin in their reader, - ;; we need to avoid double-wrapping. + ;; Since there are users that wrap with #%module-begin in their reader + ;; or wrapper1 functions, we need to avoid double-wrapping. Having to + ;; do this for #lang readers should be considered deprecated, and + ;; hopefully one day we'll move to just doing it unilaterally. [wrapped-body (if (contains-#%module-begin body) body (let ([wrapped `(#%module-begin . ,body)])