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=0089e935905635ad71914b4349e246147a548d88;hp=557dbbc882b66bd6dccf8bfa6bc0ca79395a30db;hb=82a87b8535628d47d9c381e1a3a2296fb67c7fd0;hpb=b4ad5dec5012b96765e6bb85f990500d2b376a96

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 557dbbc88..0089e9359 100644
--- 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
@@ -18,10 +18,10 @@ public class GuardStatement extends Statement {
     }
 
     @Override
-    public Expression toExpression(EnvironmentalContext context, boolean monadic, Expression in) {
-        if(monadic) {
+    public Expression toExpression(EnvironmentalContext context, BlockType blockType, Expression in) {
+        if(blockType != BlockType.Normal) {
             Variable var = new Variable("_");
-            return new EBind(location, new EVariable(location, var), value, in);
+            return new EBind(location, blockType, new EVariable(location, var), value, in);
         }
         else
             return new ESimpleLet(location, null, value, in);