UnboundImpl.mesa
Copyright Ó 1988, 1991 by Xerox Corporation. All rights reserved.
Andy Litman March 7, 1988 4:00:46 pm PST
DIRECTORY
RuntimeError;
UnboundImpl: CEDAR PROGRAM
IMPORTS RuntimeError
EXPORTS
~ BEGIN
RegisterUnboundSignaller: PROC[proc: PROC ANY RETURNS ANY] =
TRUSTED MACHINE CODE { "XR←RegisterUnboundSignaller" };
UnboundSignaller: PROC[dest: PROC ANY RETURNS ANY]
RETURNS[PROC ANY RETURNS ANY] = {
RETURN[SIGNAL RuntimeError.UnboundProcedureFault[dest]] };
RegisterUnboundSignaller[UnboundSignaller];
END.