X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=blobdiff_plain;f=bundles%2Forg.simantics.scl.compiler%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Felaboration%2Fexpressions%2Fblock%2FGuardStatement.java;h=4dda0d307c9f67e7d7b8ca1ce75163c3730ecc49;hp=23733e9c179f412c6f57960beaf2c42526cdc2db;hb=593a8f75d9dbc363234002dc500c346afbeba040;hpb=969bd23cab98a79ca9101af33334000879fb60c5

diff --git a/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/elaboration/expressions/block/GuardStatement.java b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/elaboration/expressions/block/GuardStatement.java
index 23733e9c1..4dda0d307 100755
--- a/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/elaboration/expressions/block/GuardStatement.java
+++ b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/elaboration/expressions/block/GuardStatement.java
@@ -19,11 +19,12 @@ public class GuardStatement extends Statement {
 
     @Override
     public Expression toExpression(EnvironmentalContext context, boolean monadic, Expression in) {
-        Variable var = new Variable("_");
-        if(monadic)
+        if(monadic) {
+            Variable var = new Variable("_");
             return new EBind(location, new EVariable(location, var), value, in);
+        }
         else
-            return new ESimpleLet(location, var, value, in);
+            return new ESimpleLet(location, null, value, in);
     }
     
     @Override
@@ -52,4 +53,9 @@ public class GuardStatement extends Statement {
     public void accept(StatementVisitor visitor) {
         visitor.visit(this);
     }
+
+    @Override
+    public StatementGroup getStatementGroup() {
+        return null;
+    }
 }