diff --git a/src/renamer.fs b/src/renamer.fs index 5edb23ad..e2d05c3b 100644 --- a/src/renamer.fs +++ b/src/renamer.fs @@ -317,8 +317,7 @@ module private RenamerImpl = | Default -> () let renCase env (l, sl) = renLabel l - renList env renStmt sl |> ignore - env + renList env renStmt sl renExpr env e renList env renCase cl |> ignore env diff --git a/tests/unit/switch.expected b/tests/unit/switch.expected index ac2e4b2b..48b746c5 100644 --- a/tests/unit/switch.expected +++ b/tests/unit/switch.expected @@ -37,8 +37,8 @@ float G() float k=2.4; return i+k; case 43: - float i=4.3; - return i+3.4; + float G=4.3; + return G+3.4; default: return 0.; }