(define (foo a b) (+ 1 a b))

(procedure-source foo)
;; returns: (lambda (a b) (+ 1 a b))