Implement 5.24

misc/sicp-eceval-support.scm

@@ -98,6 +98,7 @@
 ;;; cond-support
 (define (cond? exp) (tagged-list? exp 'cond))
 (define (cond-clauses exp) (cdr exp))
+(define (cond-first-clause exp) (car exp))
 (define (cond-else-clause? clause)
   (eq? (cond-predicate clause) 'else))
 (define (cond-predicate clause) (car clause))