Changeset 2026


Ignore:
Timestamp:
Jul 16, 2006, 6:26:16 PM (14 years ago)
Author:
orlov
Message:
  • Fixed old bug in the compiler.

samples/Syntax/block5.rf test passes at last.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/compiler/rfp_compile.rf

    r1950 r2026  
    531531  /*
    532532   * In case of = clear the failures stack up to the closest source.
     533   * Don't clear last fail after it for <R 0 v.fails> continue to work.
    533534   */
    534535  (CUTALL) e.Snt =
    535536    {
    536       v.fails : $r v.earlier-fails (Comp Source) e = v.earlier-fails;
     537      v.fails : $r v.earlier-fails (Comp Source) t.fail e =
     538        v.earlier-fails (Comp Source) t.fail;
    537539      <L 0 v.fails>;
    538540    } :: v.fails,
Note: See TracChangeset for help on using the changeset viewer.