*

1 files changed, 26 insertions, 0 deletions

diff --git a/js/games/nluqo.github.io/~bh/61a-pages/Lectures/errors b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/errors
new file mode 100644
index 0000000..825b0ec
--- /dev/null
+++ b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/errors
@@ -0,0 +1,26 @@
+
+
+(define (list-of-squares nums)
+  (define (square (car nums))
+    (* (car nums) (car nums)))
+  (if (null? nums)
+      nil
+      (cons (square (car nums))
+	    (list-of-squares (cdr nums)))))
+
+
+
+
+(set! (cdr x) nil)
+
+
+
+
+
+(define (assq sym alis)
+  (cond ((null? alis) nil)
+	((eq? sym (caar alis))
+	 (car alis))
+	(else
+	 (set! alis (cdr alis))
+	 (assq sym alis))))