diff --git a/pkgs/compatibility-lib/mzlib/contract.rkt b/pkgs/compatibility-lib/mzlib/contract.rkt index 114832b..3d02916 100644 --- a/pkgs/compatibility-lib/mzlib/contract.rkt +++ b/pkgs/compatibility-lib/mzlib/contract.rkt @@ -191,4 +191,19 @@ (provide build-flat-contract) (require racket/contract/combinator) -(provide (all-from-out racket/contract/combinator)) +;; exports from racket/contract/combinator as of 5.3.5 +(provide blame-add-unknown-context blame-context blame-contract blame-fmt->-string blame-negative + blame-original? blame-positive blame-replace-negative blame-source blame-swap blame-swapped? + blame-update blame-value blame? build-chaperone-contract-property build-compound-type-name + build-contract-property build-flat-contract-property chaperone-contract-property? + coerce-chaperone-contract coerce-chaperone-contracts coerce-contract coerce-contract/f + coerce-contracts coerce-flat-contract coerce-flat-contracts contract-first-order + contract-first-order-passes? contract-property? contract-stronger? contract-struct-exercise + contract-struct-generate current-blame-format eq-contract-val eq-contract? equal-contract-val + equal-contract? exn:fail:contract:blame-object exn:fail:contract:blame? + flat-contract-property? impersonator-prop:contracted make-chaperone-contract make-contract + make-exn:fail:contract:blame make-flat-contract prop:chaperone-contract prop:contract + prop:contracted prop:flat-contract prop:opt-chaperone-contract + prop:opt-chaperone-contract-get-test prop:opt-chaperone-contract? raise-blame-error + skip-projection-wrapper? struct:exn:fail:contract:blame define/final-prop + exn:fail:contract:blame blame-add-context define/subexpression-pos-prop)