15.4.1084  src/lib/std/src/exceptions-guts.pkg

## exceptions-guts.pkg

# Compiled by:
#     src/lib/std/src/standard-core.sublib

###                "In the first place, God made idiots.
###                 That was for practice.
###                 Then he made school boards."
###
###                                     -- Mark Twain

# NB: Normally we avoid plural package names
# (except for collections); we use one here
# only becase 'exception' is a Mythryl reserved word.

# This package gets 'include'd by:
#
#     src/lib/std/exceptions.pkg

package   exceptions_guts
: (weak)  Exceptions_Guts                               # Exceptions_Guts       is from   src/lib/std/src/exceptions-guts.api
{
    Void = Void;
    Exception = Exception;

    exception BIND                = BIND;
    exception MATCH               = MATCH;
    exception INDEX_OUT_OF_BOUNDS = INDEX_OUT_OF_BOUNDS;
    exception SIZE                = SIZE;
    exception OVERFLOW            = OVERFLOW;
    exception BAD_CHAR            = BAD_CHAR;
    exception DOMAIN              = DOMAIN;
    exception SPAN                = SPAN;
    exception DIE                 = DIE;

    exception DIVIDE_BY_ZERO = DIVIDE_BY_ZERO;


    Order == Order;

#    my ! = !

    (:=) =  (:=);


#    fun f o g = \\ x => f (g x)
#    fun a then b = a

    (o) = (o);

    (then) = (then);

    ignore = ignore;

}; #  package exceptions



## COPYRIGHT (c) 1995 AT&T Bell Laboratories.
## Subsequent changes by Jeff Prothero Copyright (c) 2010-2015,
## released per terms of SMLNJ-COPYRIGHT.