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)
|
