lisp message callback passing

(define (kons x y)
    (define (dispatch m)
        (if m
            x
            y))
    dispatch)

(define (kar pair) (pair #t))
(define (kdr pair) (pair #f))

;; VS

(define (kons x y)
    (lambda (m)
        (m x y)))

(define (kar pair)
    (lambda (p q) p))

(define (kdr pair)
    (lambda (p q) q))