fix let floating inward of whole program
fix let floating inward of whole program

darcs-hash:20060720041449-1a7c6-9700501173a67e32a226af11678dc72c1d3a48bd

kirbyfan64/jhc,kirbyfan64/jhc,kirbyfan64/jhc,kirbyfan64/jhc