End of first display:
Add ))) to close up (mark-leaves-with-red-depth ...
))) to close up (number-leaves ...
newpair ==> make-pair
(set! val (* saved-n val))(set! val (* saved-n val))a-program ==> cps-a-programconst-exp ==> cps-const-exp
var-exp ==> cps-var-exp
apply-procedure/k : Proc * ExpVal * Cont -> ExpVal.cps- should precede let-exp, letrec-exp,
if-exp, and call-exp.
>>,
leading to exp_n>> K) >>)>> leading to >>) >>)
<<'s and >>'s.>> to the next term following an equal signK.
cps-of-diff-exp, butcps-of-sum-exp. So, we need the type:cps-of-sum-exp : Listof (InpExp) * SimpleExp -> TfExp
letrec-body.InpExp. Here is what the type should say.;; cps-of-letrec-exp :Listof(Listof(Var)) * Listof(InpExp) * InpExp * SimpleExp -> TfExp
apply-procedure ==> apply-procedure/k
apply-procedure ==> apply-procedure/k
optype ==> otype
Last modified: Sun Jan 12 22:38:08 Eastern Standard Time 2014