}
@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);