problem set 3 files

1 files changed, 17 insertions, 0 deletions

diff --git a/ps03_evalapply/utils.scm b/ps03_evalapply/utils.scm
new file mode 100644
index 0000000..cac9281
--- /dev/null
+++ b/ps03_evalapply/utils.scm
@@ -0,0 +1,17 @@
+(declare (usual-integrations))
+
+
+(define (identity x) x)
+
+(define (any? x) #t)
+
+
+(define ((compose f g) x) (f (g x)))
+
+
+;;; This is to keep the Scheme printer from going into an infinite
+;;; loop if you try to print a circular data structure, such as an
+;;; environment
+
+(set! *unparser-list-depth-limit* 10)
+(set! *unparser-list-breadth-limit* 10)