Если я правильно понимаю, вам нужна функция print-function такая, что после
(define (foo x) (cons x x))
она будет вести себя как
> (print-function foo)
(lambda (x) (cons x x))
Стандартная схема не имеет возможности для этого,Причина в том, что реализации Схемы могут и, как правило, компилируют функции в другое представление (байт-код, машинный код).
Некоторые Схемы могут сохранять определение функции;проверьте руководство по реализации.