Up to Ch 8.

sandinmyjoints · Nov 30, 2012 · efc6909 · efc6909
1 parent 0774f61
commit efc6909
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/source.ss b/source.ss
@@ -631,3 +631,19 @@
       (cons
        (build (second (car rel)) (first (car rel)))
        (revrel (cdr rel)))))))
+
+
+;;; 122
+(define fullfun?
+  ;; My fullfun?
+  (lambda (fun)
+    (and (fun? fun) (fun? (revrel fun)))))
+
+;;; 122
+(define fullfun?
+  ;; TLS's
+  (lambda (fun)
+    (fun? (revrel fun))))
+
+;;; Chapter 8
+