(library (srfi n5 tests) (export) (import (except (rnrs base) let) (srfi n78) (srfi n5)) (check (let (fibonacci (n 10) (i 0) (f0 0) (f1 1)) (if (= i n) f0 (fibonacci n (+ i 1) f1 (+ f0 f1)))) => 55) (check (let (blast (port #f) . (x (+ 1 2) 4 5)) (if (null? x) 'just-a-silly-contrived-example (begin ;(write (car x) port) (apply blast port (cdr x))))) => 'just-a-silly-contrived-example) (check-report))