Рассахариватель не удивляется функциям с суффиксами (#255)

bmstu-iu9 · May 15, 2020 · 9061567 · 9061567
1 parent 91c461a
commit 9061567
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/compiler/Desugaring.ref b/src/compiler/Desugaring.ref
@@ -4,7 +4,7 @@ $INCLUDE "LibraryEx";
 $EXTERN Pass-UnCondition;
 
 *$FROM TreeUtils
-$EXTERN NewVarName, CreateContext, CreateSpecPatternForContext;
+$EXTERN NewVarName, AddSuffix, CreateContext, CreateSpecPatternForContext;
 
 
 $ENTRY Desugar {
@@ -351,7 +351,7 @@ Pass-NameNestedFuncs {
         (Function s.ScopeClass (e.Name) e.Body) =
           (Function
             s.ScopeClass (e.Name)
-            <NameNestedBody (e.Name SUF) e.Body>
+            <NameNestedBody (<AddSuffix e.Name ()>) e.Body>
           );
 
         t.OtherProgramElement = t.OtherProgramElement;