+(define (codegen-closure label captured si env)
+;; (define (codegen-closure label captured si env)
+;; (let* ((stack-offsets (map (lambda (x) (- si (* x wordsize))))
+;; (range 0 (length captured)))
+;; (inner-si (- si (* (length captured) wordsize))))
+;; (for-each (lambda (var-name new-offset)
+;; (emit "movq ~a(%rbp), ~a(%rbp)" ; todo: do we need to copy this?
+;; (cdr (assoc var-name env))
+;; new-offset))
+;; captured
+;; stack-offsets)
+;; )