-;; Some simple procedures useful for implementation testing.
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Standard Library Procedures and Macros ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-; Basic iterative summation. Run this on large numbers to
-; test garbage collection and tail-call optimization.
-(define (sum n)
-
- (define (sum-iter total count maxcount)
- (if (> count maxcount)
- total
- (sum-iter (+ total count) (+ count 1) maxcount)))
-
- (sum-iter 0 1 n))
-
-; Recursive summation. Use this to compare with tail call
-; optimized iterative algorithm.
-(define (sum-recurse n)
- (if (= n 0)
- 0
- (+ n (sum-recurse (- n 1)))))
+;; LISTS
(define (null? args)
(eq? args ()))
(car lists)
(join (car lists) (apply append (cdr lists))))))
-; Macro definitions
+
+;; LIBRARY FORMS
(define-macro (let value . body )
(list (list 'lambda (list (car value)) body)) (cdr value))
+
+;; TESTING
+
+; Basic iterative summation. Run this on large numbers to
+; test garbage collection and tail-call optimization.
+(define (sum n)
+
+ (define (sum-iter total count maxcount)
+ (if (> count maxcount)
+ total
+ (sum-iter (+ total count) (+ count 1) maxcount)))
+
+ (sum-iter 0 1 n))
+
+; Recursive summation. Use this to compare with tail call
+; optimized iterative algorithm.
+(define (sum-recurse n)
+ (if (= n 0)
+ 0
+ (+ n (sum-recurse (- n 1)))))