1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#!r6rs
;; Copyright 2009 Derick Eddington. My MIT-style license is in the file named
;; LICENSE from the original collection this file is distributed with.
(import
(rnrs)
(srfi :25 multi-dimensional-arrays)
(srfi :25 multi-dimensional-arrays arlib)
(srfi :78 lightweight-testing)
(srfi private include))
(define-syntax past (syntax-rules () ((_ . r) (begin))))
(let-syntax ((or
(syntax-rules (error)
((_ expr (error msg))
(check expr => #T))
((_ . r) (or . r)))))
(include/resolve ("srfi" "%3a25") "list.scm"))
(check-report)
|
