; 2.1.3 (define (cons x y) (define (dispatch m) (cond ((= m 0) x) ((= m 1) y) (else (error "error")))) dispatch) (define (car z) (z 0)) (define (cdr z) (z 1))
; 2.1.3 (define (cons x y) (define (dispatch m) (cond ((= m 0) x) ((= m 1) y) (else (error "error")))) dispatch) (define (car z) (z 0)) (define (cdr z) (z 1))