MUDDLE/muddle.init

   1         "BOOTSTRAP FOR DYNAMIC FLOADER"
   2
   3 "Expects floader to be FLOADYN > DSK:MUDDLE;
   4 FLODYN must SETG RERR to the function it must be
   5 for real floading.  The RERR here calls the new one
   6 after FLOADing it."
   7
   8
   9 ELSE!- MUTS!- PPRINT!- FRAMES!- FRM!- PPRINF!- MMED!- XMED!- MEDDLE!-
  10
  11 <BLOCK <SETG NDYN!- (<MOBLIST NDYN!- 37> <ROOT>)>>
  12
  13 <SETG REAL.ERROR ,ERROR>
  14
  15 <DEFINE DYNERROR ERRACT ("TUPLE" TUPP) <EVAL <RERR .TUPP>>>
  16
  17 <DEFINE RERR (TR)
  18          <COND (<AND <==? 3 <LENGTH .TR>>
  19                      <==? UNBOUND-VARIABLE!-ERRORS <1 .TR>>
  20                      <==? VALUE <3 .TR>>>
  21                 <FLOAD "FLODYN" ">" "DSK" "MUDDLE">
  22                 <RERR .TR>)
  23               (ELSE <FORM REAL.ERROR !.TR>)>>
  24
  25 "Function to allow user library OBLIST specification.
  26 In here so INIT files can use it."
  27
  28 <DEFINE FLOB!- ("OPTIONAL" (OBL ,NDYN)) <SETG USEROB .OBL>>
  29
  30 <FLOB>
  31
  32 <SETG ERROR ,DYNERROR>
  33
  34 <ENDBLOCK>
  35 <TERPRI>
  36 <PRINC "ARDS? ">
  37 <COND (<MEMQ <READCHR> '![!"Y !"y]> <READCHR> <PUT .OUTCHAN 13 75>)
  38         (<PUT .OUTCHAN 13 98>)>
  39
  40 \f\ 3\f\ 3\ 3\ 3ð`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\að`Á\83\a