#!/bin/sh
#| -*- scheme -*-
exec csi -ss "$0" "$@"
CHICKEN-SCRATCH: here-doc templating for CHICKEN scheme
(C) Case Duckworth <acdw@acdw.net>
License: BSD-3.  See COPYING for details.
|#

(import chicken-scratch
        (chicken file)
        (chicken process-context))

(define (main args)
  ;; XXX: handle standard input piping
  ;; XXX: Must have an #(import chicken-scratch at the beginning)
  (for-each (lambda (file)
              (when (file-exists? file)
                (display (with-input-from-file file expand-port))
                (newline)))
            args))

(main (command-line-arguments))