Commit 280e5a70 authored by simonmar's avatar simonmar
Browse files

[project @ 2001-02-16 09:53:51 by simonmar]

deLam the contents of an _scc_: they don't disappear at code
generation time.
parent 1c9b9d38
......@@ -172,6 +172,11 @@ coreSatExprFloat (Let bind body)
coreSatExprFloat body `thenUs` \ (floats, new_body) ->
returnUs (new_bind:floats, new_body)
coreSatExprFloat (Note n@(SCC _) expr)
= coreSatAnExpr expr `thenUs` \ expr ->
deLam expr `thenUs` \ expr ->
returnUs ([], Note n expr)
coreSatExprFloat (Note other_note expr)
= coreSatExprFloat expr `thenUs` \ (floats, expr) ->
returnUs (floats, Note other_note expr)
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment