scsh-conservatory
/
commander-s
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Minor fix for header output

This commit is contained in:
mainzelm 2005-10-04 14:47:11 +00:00
parent a45ef09bdb
commit 2eab10324f
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
install.scm
View File

@ -15,9 +15,10 @@ exec scsh -lel install-lib/load.scm -dm -o install-commander-s -e install-progra
(define image-header (define image-header
(format #f "#!~a/scsh/scshvm \\\n-o ~a/scsh/scshvm -i\n" (lib-dir) (lib-dir))) (format #f "#!~a/scsh/scshvm \\\n-o ~a/scsh/scshvm -i\n" (lib-dir) (lib-dir)))
(with-current-output-port (with-output-to-file
(open-output-file "commander-s.header") "commander-s.header"
(display image-header)) (lambda ()
(display image-header)))
(dump-scsh-program (dump-scsh-program
(lambda a (nuit)) "commander-s.image") (lambda a (nuit)) "commander-s.image")