Live Life Link

1
(define (procedure-name arg1)
2
  (display "Testing: ")
3
  (display arg1)
4
  (newline)
5
  ...
6
  )

1
1. 定义一个过程
2
(define (double x)
3
  (lambda (x)
4
    (f (f x))))
5

6
2. 查看(double)过程:
7
1 ]=> (pp double)
8
(named-lambda (double f)
9
  (lambda (x)
10
      (f (f x))))
11
  ;Unspecified return value
12

13
3. 查看(double x)过程:
14
1 ]=> (pp (double square))
15
(lambda (x)
16
  (f (f x)))
17
  ;Unspecified return value