25 lines
569 B
Scheme
25 lines
569 B
Scheme
|
(load "util.scm")
|
||
|
|
(load "misc/sicp-query.scm")
|
||
|
|
|
||
|
|
(initialize-data-base microshaft-data-base)
|
||
|
|
|
||
|
|
(display "\nex-4.70 let-in-add-assertion\n")
|
||
|
|
|
||
|
|
; If we assigned to THE-ASSERTIONS directly then the new stream would reference
|
||
|
|
; itself and we would get an endless stream of the current assertion.
|
||
|
|
(display "[answered]\n")
|
||
|
|
|
||
|
|
(display "\nex-4.71\n")
|
||
|
|
|
||
|
|
; ... continue with 4.4.4.6
|
||
|
|
|
||
|
|
(display "\nex-4.72\n")
|
||
|
|
|
||
|
|
;(display "\nex-4.73\n")
|
||
|
|
;(display "\nex-4.74\n")
|
||
|
|
;(display "\nex-4.75\n")
|
||
|
|
;(display "\nex-4.76\n")
|
||
|
|
;(display "\nex-4.77\n")
|
||
|
|
;(display "\nex-4.78\n")
|
||
|
|
;(display "\nex-4.79\n")
|