X-Git-Url: https://git.rkrishnan.org/?p=sicp.git;a=blobdiff_plain;f=src%2Fsicp%2Fex4_33.rkt;fp=src%2Fsicp%2Fex4_33.rkt;h=bfe42a59c07d16a00c2582ba6dfc57d96bc52ba7;hp=0000000000000000000000000000000000000000;hb=8e18b28ac38e3b69b68a416545924d3de69ba512;hpb=554d8c6596c08583783b44d5c86fad0d1e76420b

diff --git a/src/sicp/ex4_33.rkt b/src/sicp/ex4_33.rkt
new file mode 100644
index 0000000..bfe42a5
--- /dev/null
+++ b/src/sicp/ex4_33.rkt
@@ -0,0 +1,18 @@
+#lang racket
+
+(require "eval-4.33.rkt")
+
+(define env1 (make-environment))
+(eval '(define (cons a b)
+              (lambda (m) (m a b)))
+           env1)
+(eval '(define (car z)
+              (z (lambda (a b) a)))
+           env1)
+(eval '(define (cdr z)
+              (z (lambda (a b) b)))
+           env1)
+
+
+(force-it (eval '(car (quote (1 2 3))) env1))
+(force-it (eval '(car (quote (a b c))) env1))
\ No newline at end of file