diff --git a/collects/mzlib/private/contract.ss b/collects/mzlib/private/contract.ss index c0c49114d3..455b06c5ed 100644 --- a/collects/mzlib/private/contract.ss +++ b/collects/mzlib/private/contract.ss @@ -95,7 +95,7 @@ add struct contracts for immutable structs? stx (syntax id))] [(name arg ...) - (syntax + (syntax/loc stx ((begin-lifted (-contract contract-id id