From d8a5a4e1c64a8620451d2c76cc0b8b320fc568b1 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 21 Oct 2008 11:26:35 +0000 Subject: [PATCH] fix macro-introduced define-values-for-syntax in HtDP languages svn: r12080 --- collects/lang/private/contracts/contracts-module-begin.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/lang/private/contracts/contracts-module-begin.ss b/collects/lang/private/contracts/contracts-module-begin.ss index ac2c2764a5..637a1834a2 100644 --- a/collects/lang/private/contracts/contracts-module-begin.ss +++ b/collects/lang/private/contracts/contracts-module-begin.ss @@ -144,7 +144,7 @@ [_ (raise-syntax-error 'contract "internal error.5")]))) (define local-expand-stop-list - (list 'contract 'define-values 'define-syntaxes '#%require + (list 'contract 'define-values 'define-syntaxes 'define-values-for-syntax '#%require '#%provide 'define-data '#%app '#%datum 'define-struct 'begin 'begin0)) ;; parse-contract-expressions