*

1 files changed, 12 insertions, 0 deletions

diff --git a/js/games/nluqo.github.io/~bh/61a-pages/Lectures/3.2/prev4.scm b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/3.2/prev4.scm
new file mode 100644
index 0000000..fdb4876
--- /dev/null
+++ b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/3.2/prev4.scm
@@ -0,0 +1,12 @@
+(define make-previous
+  (let ((glob 'first-time))
+    (lambda ()
+      (let ((old 'first-time))
+	(lambda (arg)
+	  (let ((result (list old glob)))
+	    (set! old arg)
+	    (set! glob arg)
+	    result))))))
+
+
+