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%2FBindStatement.java;h=22f7f39078e83720dda5947b2c99f3a3bfce249f;hp=654ff1093f1fb6192425a2d0b0d3b296dcea1e39;hb=82a87b8535628d47d9c381e1a3a2296fb67c7fd0;hpb=b4ad5dec5012b96765e6bb85f990500d2b376a96

diff --git a/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/elaboration/expressions/block/BindStatement.java b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/elaboration/expressions/block/BindStatement.java
index 654ff1093..22f7f3907 100644
--- a/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/elaboration/expressions/block/BindStatement.java
+++ b/bundles/org.simantics.scl.compiler/src/org/simantics/scl/compiler/elaboration/expressions/block/BindStatement.java
@@ -17,10 +17,8 @@ public class BindStatement extends Statement {
     }
 
     @Override
-    public Expression toExpression(EnvironmentalContext context, boolean monadic, Expression in) {
-        //if(!monadic)
-        //    context.getErrorLog().log(location, "Bind statements are allowed only in mdo-blocks.");
-        return new EBind(location, pattern, value, in);
+    public Expression toExpression(EnvironmentalContext context, BlockType blockType, Expression in) {
+        return new EBind(location, blockType, pattern, value, in);
     }
     
     @Override