+ (($ $fun body)
+ ,(adapt-exp 1 k src (build-cps-exp
+ ($fun ,(fix-arities* body dfg)))))
+ (($ $rec names syms funs)
+ ;; Assume $rec expressions have the correct arity.
+ ($continue k src
+ ($rec names syms (map (lambda (fun)
+ (rewrite-cps-exp fun
+ (($ $fun body)
+ ($fun ,(fix-arities* body dfg)))))
+ funs))))