;;;  BUG.P
 
 
/*  This file defines a routine for calling "bug" from Pop-11. See
    BUG.PL for an explanation.
*/
 
 
define bug( Message );
    lvars Message;
    if stacklength() > 1 then
        prolog_invoke( prolog_maketerm( Message.consword, (), "bug", 2 ) )
    else
        prolog_invoke( prolog_maketerm( Message.consword, "bug", 1 ) )
    endif;
enddefine;