/[cmucl]/src/compiler/ir1opt.lisp
ViewVC logotype

Diff of /src/compiler/ir1opt.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.46 by ram, Thu Jun 4 17:48:53 1992 UTC revision 1.47 by wlott, Wed Jul 22 23:22:33 1992 UTC
# Line 1214  Line 1214 
1214                     leaf var))                     leaf var))
1215                  t)))))                  t)))))
1216         ((and (null (rest (leaf-refs var)))         ((and (null (rest (leaf-refs var)))
1217                 (not *byte-compiling*)
1218               (substitute-single-use-continuation arg var)))               (substitute-single-use-continuation arg var)))
1219         (t         (t
1220          (propagate-to-refs var (continuation-type arg))))))          (propagate-to-refs var (continuation-type arg))))))

Legend:
Removed from v.1.46  
changed lines
  Added in v.1.47

  ViewVC Help
Powered by ViewVC 1.1.5