diff --git a/collects/typed-scheme/utils/require-contract.ss b/collects/typed-scheme/utils/require-contract.ss index b7f89075..266f7e62 100644 --- a/collects/typed-scheme/utils/require-contract.ss +++ b/collects/typed-scheme/utils/require-contract.ss @@ -12,7 +12,7 @@ [(_ name expr) (syntax-case (local-expand/capture-lifts #'expr 'expression - (list #'define-values)) + null #;(list #'define-values)) (begin define-values) [(begin (define-values (n) e) e*) #`(begin (define-values (n) e)