summaryrefslogtreecommitdiffstats
path: root/ps03_evalapply/utils.scm
blob: cac9281a1466139f1688e16b12fe63d842f94220 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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)