1:":"; exec mzscheme -r $0 "$@"
2:
3:(require (lib "vector-lib.ss" "srfi" "43"))
4:
5:(define load-file
6: (lambda (fname)
7: (printf "Loading file: ~a\n" fname)
8: (call-with-input-file fname
9: (lambda (p)
10: (read-string (file-size fname) p)))))
11:
12:
13:;;; main steps
14:(begin
15: (vector-for-each (lambda (i fname)
16: (printf "~a\n" (load-file fname)))
17: argv))