fix macro-introduced define-values-for-syntax in HtDP languages

svn: r12080
2008-10-21 11:26:35 +00:00 · 2008-10-21 11:26:35 +00:00 · d8a5a4e1c6
commit d8a5a4e1c6
parent facb6648bb
1 changed files with 1 additions and 1 deletions
--- 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