From bf30cf54b0c35ce8654c4a53f8d282d1d9c298f6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=D0=9C=D0=B0=D0=B7=D0=B4=D0=B0=D0=B9=D1=89=D0=B8=D0=BA?=
 <a.v.konovalov87@mail.ru>
Date: Thu, 11 Aug 2016 23:13:05 +0300
Subject: [PATCH] =?UTF-8?q?=D0=A0=D0=B5=D1=84=D0=B0=D0=BA=D1=82=D0=BE?=
 =?UTF-8?q?=D1=80=D0=B8=D0=BD=D0=B3,=20=D1=83=D0=BF=D1=80=D0=BE=D1=89?=
 =?UTF-8?q?=D0=B0=D1=8E=D1=89=D0=B8=D0=B9=20=D0=B4=D0=B0=D0=BB=D1=8C=D0=BD?=
 =?UTF-8?q?=D0=B5=D0=B9=D1=88=D1=83=D1=8E=20=D1=80=D0=B0=D0=B1=D0=BE=D1=82?=
 =?UTF-8?q?=D1=83=20(#46)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/compiler/LowLevelRASL.sref | 43 ++++++++++++++++++++--------------
 1 file changed, 25 insertions(+), 18 deletions(-)

diff --git a/src/compiler/LowLevelRASL.sref b/src/compiler/LowLevelRASL.sref
index 94e9ae4b..5ea2e8e7 100644
--- a/src/compiler/LowLevelRASL.sref
+++ b/src/compiler/LowLevelRASL.sref
@@ -1,5 +1,5 @@
 //FROM LibraryEx
-$EXTERN Map, Fetch, Max, Inc, Compare, MapReduce;
+$EXTERN Map, Fetch, Max, Seq, Inc, Compare, MapReduce;
 
 //FROM Library
 $EXTERN Add, StrFromInt;
@@ -467,24 +467,31 @@ Function-Body {
 }
 
 Function-Interpret {
-  e.Commands =
-    <PrepareOpenEStack
-      <OutlineConstants
-        (0 /* функции */)
-        (0 /* идентификаторы */)
-        (0 /* большие числа */)
-        (0 /* строки */)
-        (#CmdInitRAA)
-        <PrepareInterpretCommands e.Commands>
-        (#CmdFinRAA)
+  e.FunctionBody =
+    <Fetch
+      e.FunctionBody
+      <Seq
+        ConvertInterpretCommands
+        {
+          e.FunctionBody^ =
+            (#CmdInitRAA)
+            e.FunctionBody
+            (#CmdFinRAA);
+        }
+        (OutlineConstants
+          (0 /* функции */)
+          (0 /* идентификаторы */)
+          (0 /* большие числа */)
+          (0 /* строки */)
+        )
+        PrepareOpenEStack
+        {
+          e.FunctionBody^ =
+            e.FunctionBody
+            (#CmdiRunInterpret);
+        }
       >
-    >
-    (#CmdiRunInterpret);
-}
-
-PrepareInterpretCommands {
-  e.Commands =
-    <ConvertInterpretCommands e.Commands>;
+    >;
 }
 
 ConvertInterpretCommands {