35 lines
703 B
Scheme
35 lines
703 B
Scheme
(load "util.scm")
|
|
(load "misc/sicp-regsim.scm")
|
|
(load "misc/sicp-eceval.scm")
|
|
|
|
(define the-global-environment (setup-environment))
|
|
(set-register-contents! eceval 'exp '(if false 1 2))
|
|
(start eceval)
|
|
(assert (get-register-contents eceval 'val) 2)
|
|
|
|
(display "\nex-5.23 - derived-expressions\n")
|
|
|
|
(set-register-contents! eceval 'exp
|
|
'(cond
|
|
((= 1 2) 0)
|
|
((= 2 3) 1)
|
|
((= 0 4) 2)
|
|
(else 3)))
|
|
(start eceval)
|
|
(assert (get-register-contents eceval 'val) 3)
|
|
|
|
(set-register-contents! eceval 'exp
|
|
'(begin
|
|
(define (square x) (* x x))
|
|
(let ((y (square 3)))
|
|
y)))
|
|
(start eceval)
|
|
(assert (get-register-contents eceval 'val) 9)
|
|
|
|
|
|
(display "\nex-5.24 \n")
|
|
|
|
|
|
(display "\nex-5.25\n")
|
|
|