Исправление недочетов

bmstu-iu9 · Mar 5, 2018 · 0c90f23 · 0c90f23
1 parent 6d0a2a3
commit 0c90f23
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/src/compiler/HighLevelRASL.sref b/src/compiler/HighLevelRASL.sref
@@ -41,6 +41,19 @@ $ENTRY HighLevelRASL {
     <Map
       {
         (#Function s.ScopeClass (e.Name) #Sentences e.Sentences) =
+          <Map
+            {
+              ((e.Pattern) e.Conditions (e.Result))
+                = <Map
+                    {
+                      (#Condition (e.Name) (e.Result^) (e.Pattern^))
+                        = (#CmdEnum #GN-Local e.Name);
+                    }
+                    e.Conditions
+                  >;
+            }
+            e.Sentences
+          >
           <HighLevelRASL-Function
             <GenSentenceFunc s.Joint>
             <GenResultFuncs s.OptResult>