From bf44e9d93dd3a654d7ffb1dc600fccb209b49461 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Mon, 2 Feb 2004 10:49:10 +0000
Subject: [PATCH] Add generation of load.scm

---
 pkg-def.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/pkg-def.scm b/pkg-def.scm
index a7505ff..c5d077c 100644
--- a/pkg-def.scm
+++ b/pkg-def.scm
@@ -2,8 +2,16 @@
   (install-directory-contents "scheme" 'scheme)
   (install-directory "web-server" 'misc-shared)
   (install-directory-contents "doc" 'doc)
+
   (let ((doc-dir (get-directory 'doc #t))
         (misc-shared-dir (get-directory 'misc-shared #t)))
     (create-symlink (string-append doc-dir "/html")
                     (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))))
 )