Answer 4.70

main
Felix Martin 2021-03-04 13:57:31 -05:00
parent ea4a51aca1
commit ac2b6ae964
2 changed files with 24 additions and 7 deletions

24
ex-4_70-79.scm Normal file
View File

@ -0,0 +1,24 @@
(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")

View File

@ -1,7 +0,0 @@
(load "util.scm")
(load "misc/sicp-query.scm")
(initialize-data-base microshaft-data-base)
(display "\nex-4.70\n")