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