ps03_evalapply/kons.scm


1
2
3
4
5
6
7
8
9
10
11
12

;;; A valuable special form -- the nonstrict version of CONS:

(define (kons? exp)
  (and (pair? exp)
       (eq? (car exp) 'kons)))

(defhandler eval
  (lambda (expression environment)
    (cons (delay-memo (cadr expression) environment)
	  (delay-memo (caddr expression) environment)))
  kons?)