15.4.231  src/lib/compiler/back/low/control/lowhalf-error-message.pkg

## lowhalf-error-message.pkg

# Compiled by:
#     src/lib/compiler/back/low/lib/control.lib



api Lowhalf_Error_Msg {

   exception ERROR;
    print:       String -> Void;
    impossible:  String -> X;
    error:       (String, String) -> X;
};

package lowhalf_error_message: (weak) Lowhalf_Error_Msg {               # Lowhalf_Error_Msg     is from   src/lib/compiler/back/low/control/lowhalf-error-message.pkg

    exception ERROR;

    print
        =
        fn s =  file::write (file::stdout, s);

    fun impossible msg
        =
        {   apply print ["Error: Lowhalfd bug: ", msg, "\n"];
            file::flush file::stdout;
            raise exception ERROR;
        };

    fun error (module, msg)
        =
        impossible (module + "." + msg);
};




## COPYRIGHT (c) 2002 Bell Labs, Lucent Technologies
## Subsequent changes by Jeff Prothero Copyright (c) 2010-2012,
## released under Gnu Public Licence version 3.