#lang scribble/doc @(require scribble/manual scribblings/icons (for-label scheme/base "../science-with-graphics.ss")) @title[#:tag "error-handling"]{Error Handling} @local-table-of-contents[] This chapter describes how error handling is performed in the PLT Scheme Science Collection and its error handling conventions. @section{Contracts} @(margin-note magnify "For more information, see " @link["http://docs.plt-scheme.org/reference/contracts.html"]{Contracts} " in the PLT Scheme Reference Manual or " @link["http://docs.plt-scheme.org/guide/contracts.html"]{Contracts} " in the PLT Scheme Guide.") The PLT Scheme Science Collection uses contracts to define and enforce the interfaces for all of the functions provided by the modules in the collection. This ensures that all calls to these functions are checked for proper number and type of arguments (and results), as well as range checking and interargument constraints, where practical. All of the function definitions in the manual include a specification of the contract for the function. The following examples show some of the different contract specifications for functions and how to interpret them. All of these examples are from the statistics module (@filepath{statistics.ss}). @subsection{Fixed Number of Arguments with a Single Result} @bold{Example:} @scheme[mean] from the statistics module. @schemeblock[ (provide/contract (mean (-> (vectorof real?) real?))) ] This contract specifies a function with one argument that must match the contract @scheme[(vectorof real?)] and returns a single result that must match the contract @scheme[real?]. @verbatim{ > (require (planet williams/science/statistics)) > (mean #(1 2 3 4)) 2.5 > (mean #(1 2 5 a)) top-level broke the contract (-> (vectorof real?) real?) on mean; expected <(vectorof real?)>, given: #(1 2 5 a) } @subsection{Multiple Lambda Forms (@scheme[case-lambda])} @bold{Example:} @scheme[variance] from the statistics module. @(margin-note "PLT Schme 4.0 introduced direct support of optional arguments in " @scheme[lambda]". At some point, the uses of multiple lambda forms to specify optional arguments will be converted to single " @scheme[lambda] " forms with optional arguments.") @schemeblock[ (provide/contract (variance (case-> (-> (vectorof real?) real? (>=/c 0.0)) (-> (vectorof real?) (>=/c 0.0))))) ] The contract specifies multiple lambda forms using @scheme[case->]. The first case specifies a function with two arguments, @scheme[data] and @scheme[mu], that must match the contracts @scheme[(vectorof real?)] and @scheme[real?] and returns a single value that must match the contract @scheme[(>=/c 0.0)]. The second case specifies a function with a single argument, @scheme[data] that muct match the contract @scheme[(vectorof real?)] and returns a single result that must match the contract @scheme[(>=/c 0.0)]. @verbatim{ > (require (planet williams/science/statistics)) > (variance #(1 2 3 4)) 1.6666666666666665 > (variance #(1 2 3 4) 2.5) 1.6666666666666665 > (variance #(1 2 3 4) 'a) top-level broke the contract (case-> (-> (vectorof real?) real? (>=/c 0.0)) (-> (vectorof real?) (>=/c 0.0))) on variance; expected , given: a }} @subsection{Interparameter Constraints} @bold{Example:} @scheme[weighted-mean] from the statistics module. @schemeblock[ (provide/contract (weighted-mean (-> ((w (vectorof real?)) (data (and/c (vectorof real?) (lambda (x) (= (vector-length w) (vector-length data))))))))) ] The contract specified a function that takes two arguments. The first argument, @scheme[w] must be a vector of real numbers. The second argument, @scheme[data], must be a vector of real numbers that must be the same length as @scheme[w]. The function returns one result that must match the contract @scheme[real?]. @verbatim{ > (require (planet williams/science/statistics)) > (weighted-mean #(1 2 3 4) #(4 3 2 1)) 2.0 > (weighted-mean #(1 2 3 4) #(4 3 2)) top-level broke the contract (->r ((w ...) (data ...)) ...) on weighted-mean; expected <(and/c (vectorof real?) ...\0\statistics.ss:152:21)>, given: #(4 3 2) } @section{Infinities and Not-a-Number} PLT Scheme provides @scheme[+inf.0] (positive infinity), @scheme[-inf.0] (negative infinity), @scheme[+nan.0] (not-a-number), and @scheme[-nan.0] (same as @scheme[+nan.0]). In general these are contagious and are passed as the result in subsequent numerical computations. However, operations with infinities and zero (both exact and inecact) can give non-intuitive results. For example: @itemize{ @item{@scheme[(* 0 +inf.0)] → 0} @item{@scheme[(/ 0 +inf.0)] → 0} @item{@scheme[(/ 0 -inf.0)] → 0} @item{@scheme[(* 0.0 +inf.0)] → @scheme[+nan.0]} @item{@scheme[(/ 0.0 -inf.0)] → -0.0} } Note that some of these may break naÏve algorithms. The PLT Scheme Science Collection uses infinities to represent overflow---@scheme[+inf.0] for positive overflow and @scheme[-inf.0] for negative overflow. This is used in cases where the arguments to the function are within the range of the function, but the (absolute value of) result is too large to be represented. For example, @scheme[(gamma 200.0)] → @scheme[+inf.0]. The PLT Scheme Science Collection uses inexact zero to represent underflow---@scheme[0.0] for positive underflow and @scheme[-0.0] for negative underflow. This is used in cases where the arguments to the function are within the range of the function, but the (absolute value of) the result is too small to be represented. The PLT Scheme Science Collection uses @scheme[+nan.0] for domain errors---where the arguments match the contract, but the value cannot be computed. For example @scheme[(gamma 0.0)] → @scheme[+nan.0]. @section{Exceptions} In PLT Scheme, an @tech{exception} is a change in control flow, typically as the result of an error. The PLT Scheme Science Collection attempts to catch as many errors as possible using contracts. Contracts raise exceptions when violated. The PLT Scheme Science Collection may raise exceptions for errors other than underflow, overflow, and domain errors. Also, the underlying functions and/or modules used by the science collection may raise exceptions, as may errors in the implementation.