blob: 6d06fb6510e83ebb474e74053f9755221b64bee3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#!/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)
(for-each (lambda (file)
(when (file-exists? file)
(display (with-input-from-file file expand-port))
(newline)))
args))
(main (command-line-arguments))
|
