migrated to svn revision 33108

[simantics/platform.git] / bundles / org.simantics.scl.compiler / src / org / simantics / scl / compiler / elaboration / expressions / block / GuardStatement.java

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 23733e9c179f412c6f57960beaf2c42526cdc2db..59aa3ebe2b2e777e2ba614477712de1b695d4e75 100755 (executable)
--- 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 {
 \r
     @Override\r
     public Expression toExpression(EnvironmentalContext context, boolean monadic, Expression in) {\r
-        Variable var = new Variable("_");\r
-        if(monadic)\r
+        if(monadic) {\r
+            Variable var = new Variable("_");\r
             return new EBind(location, new EVariable(location, var), value, in);\r
+        }\r
         else\r
-            return new ESimpleLet(location, var, value, in);\r
+            return new ESimpleLet(location, null, value, in);\r
     }\r
     \r
     @Override\r