Changeset 4028


Ignore:
Timestamp:
Nov 7, 2008, 8:30:09 PM (12 years ago)
Author:
orlov
Message:
File:
1 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/compiler/refal/org/refal/plus/compiler/rfp_asail2asail.rf

    r3956 r4028  
    6060  /*empty*/ (e.asail) $iter {
    6161    e.head <Remove_Unreachable2 e.tail>;
    62   } :: e.head (e.tail), e.tail : /*empty*/ =
    63   e.head;
     62  } :: e.head (e.tail),
     63  e.tail : \{
     64    /*empty*/ =
     65      {
     66        <GetR &Last_Breaks> : (e.breaks),
     67          <Put &Last_Breaks (e.breaks "Normal-Exit")>;;
     68      },
     69      e.head;
     70    Stop_here = e.head;
     71  };
    6472
    6573Remove_Unreachable2 {
     
    135143    (ERROR e) = t1;
    136144    FATAL = t1;
    137   } :: e1, e1 ();
     145  } :: e1, e1 (Stop_here);
    138146  t1 e2 = t1 (e2);
    139   /*empty*/ =
    140     {
    141       <GetR &Last_Breaks> : (e.breaks),
    142         <Put &Last_Breaks (e.breaks "Normal-Exit")>;;
    143     } :: e1, e1 ();
    144147};
    145148
Note: See TracChangeset for help on using the changeset viewer.