From db950ffbdf0cc267e3254255e5d3daefd06392fa Mon Sep 17 00:00:00 2001 From: bnewbold Date: Tue, 24 Feb 2009 19:53:41 -0500 Subject: problem set 3 files --- ps03_evalapply/utils.scm | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 ps03_evalapply/utils.scm (limited to 'ps03_evalapply/utils.scm') 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) -- cgit v1.2.3