Предположим, у меня есть что-то вроде этого:

(define pair (cons 1 (lambda (x) (* x x))

Если я хочу вернуть передний объект пары, я делаю это:

(car pair)

И он возвращает 1. Однако, когда объект является процедурой, я не получаю точное описание этого. Другими словами:

(cdr pair)

возвращается#<procedure> и нет(lambda (x) (*x x)).

Как я могу это исправить?