- (emit "movq ~a, ~a(%rbp)"
- (param-register i) (* (- wordsize) i)))
- (range 1 (length args)))
+ (begin
+ (emit "movq ~a, %rbx" (param-register (+ 1 i)))
+ (emit "movq %rbx, ~a(%rbp)"
+ (* (- wordsize)
+ (+ (length captured) i)))))
+ (range 0 (length args)))