On this page:
class/  c
absent
->m
->*m
case->m
->dm
object/  c
instanceof/  c
object-contract
mixin-contract
make-mixin-contract
is-a?/  c
implementation?/  c
subclass?/  c

6.7 Object and Class Contracts

syntax

(class/c maybe-opaque member-spec ...)

 
maybe-opaque = 
  | #:opaque
     
member-spec = method-spec
  | (field field-spec ...)
  | (init field-spec ...)
  | (init-field field-spec ...)
  | (inherit method-spec ...)
  | (inherit-field field-spec ...)
  | (super method-spec ...)
  | (inner method-spec ...)
  | (override method-spec ...)
  | (augment method-spec ...)
  | (augride method-spec ...)
  | (absent absent-spec ...)
     
method-spec = method-id
  | (method-id method-contract-expr)
     
field-spec = field-id
  | (field-id contract-expr)
     
absent-spec = method-id
  | (field field-id ...)
Produces a contract for a class.

There are two major categories of contracts listed in a class/c form: external and internal contracts. External contracts govern behavior when an object is instantiated from a class or when methods or fields are accessed via an object of that class. Internal contracts govern behavior when method or fields are accessed within the class hierarchy. This separation allows for stronger contracts for class clients and weaker contracts for subclasses.

Method contracts must contain an additional initial argument which corresponds to the implicit this parameter of the method. This allows for contracts which discuss the state of the object when the method is called (or, for dependent contracts, in other parts of the contract). Alternative contract forms, such as ->m, are provided as a shorthand for writing method contracts.

Methods and fields listed in an absent clause must not be present in the class.

A class contract can be specified to be opaque with the #:opaque keyword. An opaque class contract will only accept a class that defines exactly the methods and fields specified by the contract. A contract error is raised if the contracted class contains any methods or fields that are not specified.

The external contracts are as follows:

The internal contracts restrict the behavior of method calls made between classes and their subclasses; such calls are not controlled by the class contracts described above.
  • A method contract tagged with inherit describes the behavior of the method when invoked directly (i.e., via inherit) in any subclass of the contracted class. This contract, like external method contracts, applies until the contracted class’s method implementation is no longer the entry point for dynamic dispatch.

    Examples:

    > (new (class woody+c%
             (inherit draw)
             (super-new)
             (printf "woody sez: “~a”\n" (draw "evil dr porkchop"))))

    woody sez: “reach for the sky, evil dr porkchop”

    (object:eval:82:0 ...)

    > (define/contract woody+c-inherit%
        (class/c (inherit [draw (->m symbol? string?)]))
        woody+c%)
    > (new (class woody+c-inherit%
             (inherit draw)
             (printf "woody sez: ~a\n" (draw "evil dr porkchop"))))

    draw: contract violation

      expected: symbol?

      given: "evil dr porkchop"

      in: the 1st argument of

          the draw method in

          (class/c

           (inherit (draw (->m symbol? string?))))

      contract from: (definition woody+c-inherit%)

      contract on: woody+c-inherit%

      blaming: top-level

      at: eval:83.0

  • A method contract tagged with super describes the behavior of method-id when called by the super form in a subclass. This contract only affects super calls in subclasses which call the contract class’s implementation of method-id.

    This example shows how to extend the draw method so that if it is passed two arguments, it combines two calls to the original draw method, but with a contract the controls how the super methods must be invoked.

    Examples:

    > (define/contract woody2+c%
        (class/c (super [draw (->m symbol? string?)]))
        (class woody%
          (define/override draw
            (case-lambda
              [(a) (super draw a)]
              [(a b) (string-append (super draw a)
                                    " and "
                                    (super draw b))]))
          (super-new)))
    > (send (new woody2+c%) draw 'evil-dr-porkchop  'zurg)

    "reach for the sky, evil-dr-porkchop and reach for the sky, zurg"

    > (send (new woody2+c%) draw "evil dr porkchop" "zurg")

    "reach for the sky, evil dr porkchop and reach for the sky, zurg"

    The last call signals an error blaming woody2% because there is no contract checking the initial draw call.

  • A method contract tagged with inner describes the behavior the class expects of an augmenting method in a subclass. This contract affects any implementations of method-id in subclasses which can be called via inner from the contracted class. This means a subclass which implements method-id via augment or overment stop future subclasses from being affected by the contract, since further extension cannot be reached via the contracted class.

  • A method contract tagged with override describes the behavior expected by the contracted class for method-id when called directly (i.e. by the application (method-id ...)). This form can only be used if overriding the method in subclasses will change the entry point to the dynamic dispatch chain (i.e., the method has never been augmentable).

    This time, instead of overriding draw to support two arguments, we can make a new method, draw2 that takes the two arguments and calls draw. We also add a contract to make sure that overriding draw doesn’t break draw2.

    Examples:

    > (define/contract woody2+override/c%
        (class/c (override [draw (->m symbol? string?)]))
        (class woody+c%
          (inherit draw)
          (define/public (draw2 a b)
            (string-append (draw a)
                           " and "
                           (draw b)))
          (super-new)))
    (define woody2+broken-draw
      (class woody2+override/c%
        (define/override (draw x)
          'not-a-string)
        (super-new)))
    > (send (new woody2+broken-draw) draw2
            'evil-dr-porkchop
            'zurg)

    draw: broke its contract

      promised: string?

      produced: 'not-a-string

      in: the range of

          the draw method in

          (class/c

           (override (draw (->m symbol? string?))))

      contract from:

          (definition woody2+override/c%)

      contract on: woody2+override/c%

      blaming: top-level

      at: eval:88.0

  • A method contract tagged with either augment or augride describes the behavior provided by the contracted class for method-id when called directly from subclasses. These forms can only be used if the method has previously been augmentable, which means that no augmenting or overriding implementation will change the entry point to the dynamic dispatch chain. augment is used when subclasses can augment the method, and augride is used when subclasses can override the current augmentation.

  • A field contract tagged with inherit-field describes the behavior of the value contained in that field when accessed directly (i.e., via inherit-field) in any subclass of the contracted class. Since fields may be mutated, these contracts are checked on any access and/or mutation of the field that occurs in such subclasses.

syntax

(absent method-id ...)

See class/c; use outside of a class/c form is a syntax error.

syntax

(->m dom ... range)

Similar to ->, except that the domain of the resulting contract contains one more element than the stated domain, where the first (implicit) argument is contracted with any/c. This contract is useful for writing simpler method contracts when no properties of this need to be checked.

syntax

(->*m (mandatory-dom ...) (optional-dom ...) rest range)

Similar to ->*, except that the mandatory domain of the resulting contract contains one more element than the stated domain, where the first (implicit) argument is contracted with any/c. This contract is useful for writing simpler method contracts when no properties of this need to be checked.

syntax

(case->m (-> dom ... rest range) ...)

Similar to case->, except that the mandatory domain of each case of the resulting contract contains one more element than the stated domain, where the first (implicit) argument is contracted with any/c. This contract is useful for writing simpler method contracts when no properties of this need to be checked.

syntax

(->dm (mandatory-dependent-dom ...)
      (optional-dependent-dom ...)
      dependent-rest
      pre-cond
      dep-range)
Similar to ->d, except that the mandatory domain of the resulting contract contains one more element than the stated domain, where the first (implicit) argument is contracted with any/c. In addition, this is appropriately bound in the body of the contract. This contract is useful for writing simpler method contracts when no properties of this need to be checked.

syntax

(object/c member-spec ...)

 
member-spec = method-spec
  | (field field-spec ...)
     
method-spec = method-id
  | (method-id method-contract)
     
field-spec = field-id
  | (field-id contract-expr)
Produces a contract for an object.

Unlike the older form object-contract, but like class/c, arbitrary contract expressions are allowed. Also, method contracts for object/c follow those for class/c. An object wrapped with object/c behaves as if its class had been wrapped with the equivalent class/c contract.

procedure

(instanceof/c class-contract)  contract?

  class-contract : contract?
Produces a contract for an object, where the object is an instance of a class that conforms to class-contract.

syntax

(object-contract member-spec ...)

 
member-spec = (method-id method-contract)
  | (field field-id contract-expr)
     
method-contract = (-> dom ... range)
  | 
(->* (mandatory-dom ...)
     (optional-dom ...)
     rest
     range)
  | 
(->d (mandatory-dependent-dom ...)
     (optional-dependent-dom ...)
     dependent-rest
     pre-cond
     dep-range)
     
dom = dom-expr
  | keyword dom-expr
     
range = range-expr
  | (values range-expr ...)
  | any
     
mandatory-dom = dom-expr
  | keyword dom-expr
     
optional-dom = dom-expr
  | keyword dom-expr
     
rest = 
  | #:rest rest-expr
     
mandatory-dependent-dom = [id dom-expr]
  | keyword [id dom-expr]
     
optional-dependent-dom = [id dom-expr]
  | keyword [id dom-expr]
     
dependent-rest = 
  | #:rest id rest-expr
     
pre-cond = 
  | #:pre-cond boolean-expr
     
dep-range = any
  | [id range-expr] post-cond
  | (values [id range-expr] ...) post-cond
     
post-cond = 
  | #:post-cond boolean-expr
Produces a contract for an object.

Each of the contracts for a method has the same semantics as the corresponding function contract, but the syntax of the method contract must be written directly in the body of the object-contract—much like the way that methods in class definitions use the same syntax as regular function definitions, but cannot be arbitrary procedures. Unlike the method contracts for class/c, the implicit this argument is not part of the contract. To allow for the use of this in dependent contracts, ->d contracts implicitly bind this to the object itself.

A function contract that recognizes mixins. It guarantees that the input to the function is a class and the result of the function is a subclass of the input.

procedure

(make-mixin-contract type ...)  contract?

  type : (or/c class? interface?)
Produces a function contract that guarantees the input to the function is a class that implements/subclasses each type, and that the result of the function is a subclass of the input.

procedure

(is-a?/c type)  flat-contract?

  type : (or/c class? interface?)
Accepts a class or interface and returns a flat contract that recognizes objects that instantiate the class/interface.

procedure

(implementation?/c interface)  flat-contract?

  interface : interface?
Returns a flat contract that recognizes classes that implement interface.

procedure

(subclass?/c class)  flat-contract?

  class : class?
Returns a flat contract that recognizes classes that are subclasses of class.