Fix for `when` blocks with a single expression inside

1 files changed, 4 insertions, 0 deletions

diff --git a/src/compile/promotions.c b/src/compile/promotions.c
index b3cbb361..93ad5338 100644
--- a/src/compile/promotions.c
+++ b/src/compile/promotions.c
@@ -127,6 +127,10 @@ Text_t compile_to_type(env_t *env, ast_t *ast, type_t *t) {
         env = with_enum_scope(env, t);
     }
 
+    if (ast->tag == Block && Match(ast, Block)->statements && !Match(ast, Block)->statements->next) {
+        ast = Match(ast, Block)->statements->ast;
+    }
+
     if (ast->tag == Int && is_numeric_type(non_optional(t))) {
         return compile_int_to_type(env, ast, t);
     } else if (ast->tag == Num && t->tag == NumType) {