Do not delete fg-noop nodes that are still needed. In the following
authorChris Hanson <org/chris-hanson/cph>
Wed, 20 Jul 1988 00:10:01 +0000 (00:10 +0000)
committerChris Hanson <org/chris-hanson/cph>
Wed, 20 Jul 1988 00:10:01 +0000 (00:10 +0000)
commit472310c5735fd8da5b31cab3d1401e6f99c0ccef
treedba2adf43ae12205cb962db3e1ea59f63fd0d522
parenteb253b7b3cc83501f0668d013bdfe7660a42e555
Do not delete fg-noop nodes that are still needed.  In the following
example, the entry node of the continuation passed to `bar' is needed
because it is referenced by the subproblem object for the let:

(let ((cos-total
       (begin (bar)
      cos7)))
  cos-total)
v7/src/compiler/fggen/fggen.scm
v7/src/compiler/machines/bobcat/make.scm-68040