Artifact a3fedd275e699e052c3c6af5cbadf1e2222e32fe:

• File srfi/tests/multi-dimensional-arrays--arlib.sps — part of check-in [75d1b77428] at 2018-12-09 15:35:27 on branch trunk — fixed bug for in args-fold.sls thanks to anonymous (user: aldo size: 766)

#!r6rs
;; Copyright (c) 2009 Derick Eddington.  All rights reserved.  Licensed under an
;; MIT-style license.  My license is in the file named LICENSE from the original
;; collection this file is distributed with.  If this file is redistributed with
;; some other collection, my license must also be included.

(import
  (rnrs)
  (surfage s25 multi-dimensional-arrays)
  (surfage s25 multi-dimensional-arrays arlib)
  (surfage s78 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" "s25") "list.scm"))

(check-report)