<mimc.mim>/em.mud.1

   1 <DEFINE EMACRO (OBJ "AUX" (ERR <GET ERROR!-INTERRUPTS INTERRUPT>) TEM)
   2         <COND (.ERR <OFF .ERR>)>
   3         <ON "ERROR"
   4             <FUNCTION (FR "TUPLE" T)
   5                     <COND (<AND <GASSIGNED? MACACT> <LEGAL? ,MACACT>>
   6                            <DISMISS [!.T] ,MACACT>)
   7                           (ELSE <APPLY ,<PARSE "OVALRET!-COMBAT!-"> " ">)>>
   8             100>
   9         <COND (<TYPE? <SET TEM
  10                            <PROG MACACT () #DECL ((MACACT) <SPECIAL ANY>)
  11                                  <SETG MACACT .MACACT>
  12                                  (<EXPAND .OBJ>)>>
  13                       VECTOR>
  14                <OFF "ERROR">
  15                <COND (.ERR <EVENT .ERR>)>
  16                <ERROR " MACRO EXPANSION LOSSAGE " !.TEM>)
  17               (ELSE <OFF "ERROR"> <AND .ERR <EVENT .ERR>> <1 .TEM>)>>