This preview shows pages 1–2. Sign up to view the full content.
This preview has intentionally blurred sections. Sign up to view the full version.View Full Document
Unformatted text preview: ;;((self-evaluating? exp) exp) ;; OLD ((choose-exp? exp) (eval-choose (cdr exp) success fail)) (else (error "UNKNOWN expression")))) (define (self-evaluating? exp) (or (number? exp) (eq? exp 'aye) (eq? exp 'nay))) (define (choose-exp? exp) (and (list? exp) (eq? (car exp) 'choose))) (define (eval-choose exps success fail) (if (null? exps) (fail) (mc-eval (car exps) (lambda (val fail2) (success val fail2)) (lambda () (eval-choose (cdr exps) success fail))))) (start-loop)...
View Full Document
This note was uploaded on 11/30/2010 for the course EECS 21281 taught by Professor Harvey during the Spring '10 term at University of California, Berkeley.
- Spring '10