path: root/js/games/nluqo.github.io/~bh/61a-pages/Lectures/2.1/cons.scm

; implementation of pairs as functions

(define (cons x y)
  (lambda (which)
    (cond ((equal? which 'car) x)
	  ((equal? which 'cdr) y)
	  (else (error "Bad message to CONS" which)) )))


(define (car pair)
  (pair 'car))

(define (cdr pair)
  (pair 'cdr))