Artifact 344518862f0d2b899411793ef2d2fed925741faa:

• File srfi/s78/lightweight-testing/compat.ypsilon.sls — part of check-in [80c8c83034] at 2016-07-07 18:11:39 on branch trunk — initial import (user: ovenpasta@pizzahack.eu size: 586)

;; 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.

(library (srfi s78 lightweight-testing compat)
  (export
    check:write)
  (import
    (rnrs)
    (only (core) pretty-print))

  (define check:write
    (case-lambda
      ((x) (check:write x (current-output-port)))
      ((x p)
       (pretty-print x p)
       (newline p))))
)