From 24582b8cb0b459f16303f800d1adc5d1e371c2f9 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Tue, 1 Dec 2009 20:34:42 +0000 Subject: [PATCH 1/2] Changes so far. svn: r17146 original commit: a22d201d85036e8d964d8c3eea08deb66199dbac --- collects/scribble/lp-include.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/scribble/lp-include.ss b/collects/scribble/lp-include.ss index dfc75496..09a32621 100644 --- a/collects/scribble/lp-include.ss +++ b/collects/scribble/lp-include.ss @@ -7,8 +7,8 @@ (provide lp-include) (define-syntax (module stx) - (syntax-case stx () - [(module name base body ...) + (syntax-case stx (#%module-begin) + [(module name base (#%module-begin body ...)) (begin #'(begin body ...))])) From f5f0b9b3353e67571c817a5b0d60543e304c51a6 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Tue, 1 Dec 2009 20:36:38 +0000 Subject: [PATCH 2/2] Revert previous bad addition to trunk, forgot to switch first. svn: r17147 original commit: 53eb309b75b334f09ef7aaa6329d7d5cc83b9aed --- collects/scribble/lp-include.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/scribble/lp-include.ss b/collects/scribble/lp-include.ss index 09a32621..dfc75496 100644 --- a/collects/scribble/lp-include.ss +++ b/collects/scribble/lp-include.ss @@ -7,8 +7,8 @@ (provide lp-include) (define-syntax (module stx) - (syntax-case stx (#%module-begin) - [(module name base (#%module-begin body ...)) + (syntax-case stx () + [(module name base body ...) (begin #'(begin body ...))]))