diff options
| author | bnewbold <bnewbold@eta.mit.edu> | 2009-02-26 02:34:44 -0500 |
|---|---|---|
| committer | bnewbold <bnewbold@eta.mit.edu> | 2009-02-26 02:34:44 -0500 |
| commit | 842bc7139addff134be97208a69e56283dbb5aeb (patch) | |
| tree | e4962f71d4613f6ec5c91534765ade2a9b088137 /ps04_combinators_amb/utils.scm | |
| parent | 9c30a98e42445ddd73066990a12218b0c52118fd (diff) | |
| download | 6.945-842bc7139addff134be97208a69e56283dbb5aeb.tar.gz 6.945-842bc7139addff134be97208a69e56283dbb5aeb.zip | |
ps4 stuff
Diffstat (limited to 'ps04_combinators_amb/utils.scm')
| -rw-r--r-- | ps04_combinators_amb/utils.scm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/ps04_combinators_amb/utils.scm b/ps04_combinators_amb/utils.scm new file mode 100644 index 0000000..cac9281 --- /dev/null +++ b/ps04_combinators_amb/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) |