[project @ 2002-01-24 16:55:04 by sewardj]
authorsewardj <unknown>
Thu, 24 Jan 2002 16:55:04 +0000 (16:55 +0000)
committersewardj <unknown>
Thu, 24 Jan 2002 16:55:04 +0000 (16:55 +0000)
commitd8ef45a3126bf72d09e1eae91d45de66e9ab37af
tree1dfe9ba3a5399fe82b71822650efd4e43bc3d3ad
parent373fabef9643b4e1d0284fe10d5a3c3308fd4acb
[project @ 2002-01-24 16:55:04 by sewardj]
This is one of those commits where the commit message is hundreds of
times, in bytes, larger than the fix.  If you count pixels, it's
probably more like thousands of times larger, since the fix involves
adding a missing apostrophe.

In compiling let bindings, when filtering the free vars of each RHS
against the supplied on-stack environment p, filter against p after it
has been augmented with the binders in this let (viz, p'), rather than
before.  Without this, letrec-bound binders can never "get started" in
the environment.

This fixes the HEAD crash for [(i,1) | i <- [1]].  Stable branch
is ok since the free-var machinery works a different way there.
ghc/compiler/ghci/ByteCodeGen.lhs