When accessing `block-procedure', make sure it is a procedure before
authorChris Hanson <org/chris-hanson/cph>
Wed, 21 Mar 1990 02:12:51 +0000 (02:12 +0000)
committerChris Hanson <org/chris-hanson/cph>
Wed, 21 Mar 1990 02:12:51 +0000 (02:12 +0000)
commit37c985c2fb2cbee5f648a21ec47b9ddf4694eea5
tree0c7cec7410d25f659af6a6960e02bf63a7966641
parent12d046129919e6acdb8fd7bb747b1bcdcfc178b9
When accessing `block-procedure', make sure it is a procedure before
using it as such; it might be an expression instead.
v7/src/compiler/fgopt/closan.scm
v7/src/compiler/fgopt/sideff.scm
v7/src/compiler/machines/bobcat/make.scm-68040
v7/src/compiler/rtlgen/rgstmt.scm