<mdl.comp>/mudhak.mud.2

   1
   2 <FLOAD "PS:<COMPIL>MUDREF.NBIN">
   3
   4 <DEFINE BEGIN-MHACK ()
   5         <SET READ-TABLE <SETG READ-TABLE
   6                           <COND (<GASSIGNED? READ-TABLE> ,READ-TABLE)
   7                                 (ELSE <IVECTOR 128 0>)>>>
   8         <PUT .READ-TABLE <+ <ASCII !"|> 1> ,MUDREFIN>
   9         <PRINTTYPE MUDREF!-OP ,OUTPUT-MUDREF>
  10         T>
  11
  12 <DEFINE END-MHACK ()
  13         <PUT ,READ-TABLE <+ <ASCII !"|> 1> 0>
  14         <PRINTTYPE MUDREF!-OP ,PRINT>
  15         T>
  16
  17  \f