#!/bin/sh
exec scsh -lel install-lib/load.scm -dm -o install-commander-s -e install-program-main -s "$0" "$@"
!#

(define-structure install-commander-s (export install-program-main)
  (open scheme-with-scsh
	install-lib)
  (begin
    (define commander-s-template #<<END
#!/bin/sh
exec scsh -lel afs/load.scm -lel pps/load.scm -lel module-system/load.scm -lel interaction/load.scm -lel cml/load.scm -lm ~a/debug-packages.scm -lel scsh-ncurses-0.2/load.scm -lm ~a/nuit-packages.scm -m nuit -s "$0"
!#
(nuit)

END
)

(define-program "commander-s" (0 1) ((install-lib-version (1 1)))
  (install-directory-contents "scheme" 'scheme)
  (install-string (format #f commander-s-template 
			  (get-directory 'scheme #f) (get-directory 'scheme #f))
		  "commander-s"
		  'bin
		  "."
		  #o555))))