diff --git a/collects/scheme/private/contract.ss b/collects/scheme/private/contract.ss index 08cd1023e4..9375ec245f 100644 --- a/collects/scheme/private/contract.ss +++ b/collects/scheme/private/contract.ss @@ -655,7 +655,6 @@ improve method arity mismatch contract violation error messages? [id (identifier? #'id) #'id])]) - ;(printf "id ~s ~s\n" #'id-ref (syntax->datum #'id-ref)) (syntax-local-introduce (syntax-local-lift-expression #`(-contract contract-id