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=59aa3ebe2b2e777e2ba614477712de1b695d4e75;hp=23733e9c179f412c6f57960beaf2c42526cdc2db;hb=9a175feb652b2b7bba7afa540831b9076be3c10e;hpb=0b72d3e4ec886838314ffeba0fa201e32c0aae3e

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..59aa3ebe2 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