Changeset 2026 for to-imperative/trunk/compiler/rfp_compile.rf

Timestamp:

Jul 16, 2006, 6:26:16 PM (15 years ago)

Author:

orlov

Message:

• Fixed old bug in the compiler.

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

File:

• to-imperative/trunk/compiler/rfp_compile.rf (modified) (1 diff)

to-imperative/trunk/compiler/rfp_compile.rf

@@ -531 +531 @@
   /*
    * In case of = clear the failures stack up to the closest source.
+   * Don't clear last fail after it for <R 0 v.fails> continue to work.
    */
   (CUTALL) e.Snt =
     {
-      v.fails : $r v.earlier-fails (Comp Source) e = v.earlier-fails;
+      v.fails : $r v.earlier-fails (Comp Source) t.fail e =
+        v.earlier-fails (Comp Source) t.fail;
       <L 0 v.fails>;
     } :: v.fails,