From ac2b6ae964ef4c347d601b0f6df3297b5207853d Mon Sep 17 00:00:00 2001
From: Felix Martin <mail@felixm.de>
Date: Thu, 4 Mar 2021 13:57:31 -0500
Subject: [PATCH] Answer 4.70

---
 ex-4_70-79.scm | 24 ++++++++++++++++++++++++
 ex-4_70-xx.scm |  7 -------
 2 files changed, 24 insertions(+), 7 deletions(-)
 create mode 100644 ex-4_70-79.scm
 delete mode 100644 ex-4_70-xx.scm

diff --git a/ex-4_70-79.scm b/ex-4_70-79.scm
new file mode 100644
index 0000000..29df4ea
--- /dev/null
+++ b/ex-4_70-79.scm
@@ -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")
diff --git a/ex-4_70-xx.scm b/ex-4_70-xx.scm
deleted file mode 100644
index 0368ce8..0000000
--- a/ex-4_70-xx.scm
+++ /dev/null
@@ -1,7 +0,0 @@
-(load "util.scm")
-(load "misc/sicp-query.scm")
-
-(initialize-data-base microshaft-data-base)
-
-(display "\nex-4.70\n")
-