diff options
Diffstat (limited to 'src/interp/c-util.boot')
| -rw-r--r-- | src/interp/c-util.boot | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot index ab80ac63..17d630b4 100644 --- a/src/interp/c-util.boot +++ b/src/interp/c-util.boot @@ -1620,8 +1620,10 @@ transformToBackendCode x == -- Make it explicitly a sequence of statements if it is not a one liner. body := body is [stmt] and - (atom stmt or stmt.op = "SEQ" or not CONTAINED("EXIT",stmt)) => - body + (atom stmt + or stmt.op in '(SEQ LET LET_*) + or not CONTAINED("EXIT",stmt)) => + body [simplifySEQ ["SEQ",:body]] $FluidVars := removeDuplicates nreverse $FluidVars $LocalVars := S_-(S_-(removeDuplicates nreverse $LocalVars,$FluidVars), |