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

Add generation of load.scm

This commit is contained in:
mainzelm 2004-02-02 10:49:10 +00:00
parent 7668a290dc
commit bf44e9d93d
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkg-def.scm
View File

@ -2,8 +2,16 @@
(install-directory-contents "scheme" 'scheme) (install-directory-contents "scheme" 'scheme)
(install-directory "web-server" 'misc-shared) (install-directory "web-server" 'misc-shared)
(install-directory-contents "doc" 'doc) (install-directory-contents "doc" 'doc)
(let ((doc-dir (get-directory 'doc #t)) (let ((doc-dir (get-directory 'doc #t))
(misc-shared-dir (get-directory 'misc-shared #t))) (misc-shared-dir (get-directory 'misc-shared #t)))
(create-symlink (string-append doc-dir "/html") (create-symlink (string-append doc-dir "/html")
(string-append misc-shared-dir "/web-server/root/htdocs/sunet-manual"))) (string-append misc-shared-dir "/web-server/root/htdocs/sunet-manual")))
(let ((scheme-dir (get-directory 'scheme #t)))
(write-to-load-script
`((user)
(config)
(load ,(string-append scheme-dir "/packages.scm"))
(user))))
) )