fix interpreter's handling of optional else of if statement (#323)

This commit is contained in:
Jeremy G. Siek
2021-03-02 13:04:49 -05:00
committed by GitHub
parent b2c9203143
commit 5457916abb
3 changed files with 24 additions and 6 deletions
@@ -1177,12 +1177,14 @@ void HandleValue() {
// -> { { then_stmt :: C, E, F } :: S, H}
frame->todo.Pop(2);
frame->todo.Push(MakeStmtAct(stmt->u.if_stmt.then_stmt));
} else {
} else if (stmt->u.if_stmt.else_stmt) {
// { {false :: if ([]) then_stmt else else_stmt :: C, E, F} ::
// S, H}
// -> { { else_stmt :: C, E, F } :: S, H}
frame->todo.Pop(2);
frame->todo.Push(MakeStmtAct(stmt->u.if_stmt.else_stmt));
} else {
frame->todo.Pop(2);
}
break;
case StatementKind::While: