For some reason I get an error when attempting to run my scsh script
from the command-line even though I have been using this script for
about 3 months now... could someone tell me what is wrong?
#!/home/metaperl/install/scheme48/bin/scsh \
-o let-opt -e main -s
!#
(define base-dump "base-dump")
(define tar-file (string-append base-dump ".tar"))
(define gz-file (string-append tar-file ".gz"))
(define file-path:build-root
(lambda (root . leaf)
(if (> (length leaf) 0)
(format #f "~a/~a" root (car leaf))
root)))
(define root
(lambda leaf
(let ((R "/cygdrive/c"))
(if (> (length leaf) 0)
(file-path:build-root R (car leaf))
R))))
(chdir (root))
(define mydocs (root "Documents and Settings/metaperl/My Documents"))
(define cyg-home (root "cygwin/home/metaperl"))
(define hosts
(list
"tmb452@dunx1.irt.drexel.edu"
"metaperl@urth.org"
"princepawn@perlmonk.org"
"metaperl@eskimo.com"))
(chdir mydocs)
(define mydocs-files
(list
"hacks/scheme/source-code-documenters.scm"))
(define mydocs-files-fixed
(map
(lambda (F) (file-path:build-root mydocs F))
mydocs-files))
(chdir cyg-home)
(define cyg-home-files
(append
(list
".bashrc"
"sbin/netdump"
"hacks/scheme/transpose.scm"
"psl/teaching/M.Ed-Schools/drexel-sla-ref.doc"
"psl/teaching/M.Ed-Schools/drexel-stmtofpurpose.sxw"
"psl/metaphysics/kriya-questions.txt"
"psl/diary.scm"
"winhome/Documents and Settings/metaperl/My
Documents/counting-principle.sxi"
)
(glob "psl/teaching/Praxis/study-questions/*.scm")
(glob "hacks/masonstar/*.scm")
(glob "psl/mydocs/*.tm")
))
(define cyg-home-files-fixed
(map (lambda (F) (file-path:build-root cyg-home F))
cyg-home-files))
(define (main args)
(let* (
(backup-files (append mydocs-files-fixed cyg-home-files-fixed))
)
(run (tar cvf ,tar-file ,@backup-files))
(run (gzip --best --force ,tar-file))
(for-each
(lambda (host)
(let ( (scp-host (string-append host ":")) )
(run (scp ,gz-file ,scp-host))))
hosts)))
|