diff --git a/build/dirs.scm b/build/dirs.scm index 2cf6a94..592f3ab 100644 --- a/build/dirs.scm +++ b/build/dirs.scm @@ -8,7 +8,8 @@ -mindepth 1 -type d ! -name CVS - ! -name rt-modules))) + ! -name rt-modules + ! -name sequences))) (define scsh-dirs (run/strings (find scsh diff --git a/s48/args-fold/load.scm b/s48/args-fold/packages.scm similarity index 100% rename from s48/args-fold/load.scm rename to s48/args-fold/packages.scm diff --git a/s48/args-fold/pkg-def.scm b/s48/args-fold/pkg-def.scm index 79d9091..ede7194 100644 --- a/s48/args-fold/pkg-def.scm +++ b/s48/args-fold/pkg-def.scm @@ -1,8 +1,12 @@ (define-package "srfi-37" (0 4) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) + (install-file "packages.scm" 'scheme) (install-file "args-fold.scm" 'scheme)) diff --git a/s48/banana/load.scm b/s48/banana/packages.scm similarity index 100% rename from s48/banana/load.scm rename to s48/banana/packages.scm diff --git a/s48/banana/pkg-def.scm b/s48/banana/pkg-def.scm index b345cd0..eb05977 100644 --- a/s48/banana/pkg-def.scm +++ b/s48/banana/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "banana" (0 1) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/s48/binary-parse/load.scm b/s48/binary-parse/packages.scm similarity index 100% rename from s48/binary-parse/load.scm rename to s48/binary-parse/packages.scm diff --git a/s48/binary-parse/pkg-def.scm b/s48/binary-parse/pkg-def.scm index 14da078..4bde92c 100644 --- a/s48/binary-parse/pkg-def.scm +++ b/s48/binary-parse/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "binary-parse" (0 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/s48/cml/load.scm b/s48/cml/packages.scm similarity index 100% rename from s48/cml/load.scm rename to s48/cml/packages.scm diff --git a/s48/cml/pkg-def.scm b/s48/cml/pkg-def.scm index d12c1f1..9bdec30 100644 --- a/s48/cml/pkg-def.scm +++ b/s48/cml/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "cml" (0 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/s48/concurrency/load.scm b/s48/concurrency/packages.scm similarity index 100% rename from s48/concurrency/load.scm rename to s48/concurrency/packages.scm diff --git a/s48/concurrency/pkg-def.scm b/s48/concurrency/pkg-def.scm index e9667eb..770760e 100644 --- a/s48/concurrency/pkg-def.scm +++ b/s48/concurrency/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "concurrency" (0 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/s48/continuation-data-type/load.scm b/s48/continuation-data-type/packages.scm similarity index 100% rename from s48/continuation-data-type/load.scm rename to s48/continuation-data-type/packages.scm diff --git a/s48/continuation-data-type/pkg-def.scm b/s48/continuation-data-type/pkg-def.scm index ca28ca4..c4c491e 100644 --- a/s48/continuation-data-type/pkg-def.scm +++ b/s48/continuation-data-type/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "continuation-data-type" (0 1) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/s48/exceptions/load.scm b/s48/exceptions/packages.scm similarity index 100% rename from s48/exceptions/load.scm rename to s48/exceptions/packages.scm diff --git a/s48/exceptions/pkg-def.scm b/s48/exceptions/pkg-def.scm index 3114658..a025d82 100644 --- a/s48/exceptions/pkg-def.scm +++ b/s48/exceptions/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "exceptions" (0 1) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) (install-file "restart.scm" 'scheme) diff --git a/s48/heap-images/load.scm b/s48/heap-images/packages.scm similarity index 100% rename from s48/heap-images/load.scm rename to s48/heap-images/packages.scm diff --git a/s48/heap-images/pkg-def.scm b/s48/heap-images/pkg-def.scm index c788c1e..a423c26 100644 --- a/s48/heap-images/pkg-def.scm +++ b/s48/heap-images/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "heap-images" (0 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/s48/intsets/load.scm b/s48/intsets/packages.scm similarity index 100% rename from s48/intsets/load.scm rename to s48/intsets/packages.scm diff --git a/s48/intsets/pkg-def.scm b/s48/intsets/pkg-def.scm index 1ab087f..de23e6c 100644 --- a/s48/intsets/pkg-def.scm +++ b/s48/intsets/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "intsets" (0 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/s48/krims/load.scm b/s48/krims/packages.scm similarity index 100% rename from s48/krims/load.scm rename to s48/krims/packages.scm diff --git a/s48/krims/pkg-def.scm b/s48/krims/pkg-def.scm index 7e75b7b..da4e7b7 100644 --- a/s48/krims/pkg-def.scm +++ b/s48/krims/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "krims" (0 1) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/s48/module-system/load.scm b/s48/module-system/packages.scm similarity index 100% rename from s48/module-system/load.scm rename to s48/module-system/packages.scm diff --git a/s48/module-system/pkg-def.scm b/s48/module-system/pkg-def.scm index d7dc702..ed84bcc 100644 --- a/s48/module-system/pkg-def.scm +++ b/s48/module-system/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "module-system" (0 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/s48/procedure-tables/load.scm b/s48/procedure-tables/packages.scm similarity index 100% rename from s48/procedure-tables/load.scm rename to s48/procedure-tables/packages.scm diff --git a/s48/procedure-tables/pkg-def.scm b/s48/procedure-tables/pkg-def.scm index 17eea7f..764fbb3 100644 --- a/s48/procedure-tables/pkg-def.scm +++ b/s48/procedure-tables/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "procedure-tables" (0 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/s48/profile/load.scm b/s48/profile/packages.scm similarity index 100% rename from s48/profile/load.scm rename to s48/profile/packages.scm diff --git a/s48/profile/pkg-def.scm b/s48/profile/pkg-def.scm index 94e6564..7d9518f 100644 --- a/s48/profile/pkg-def.scm +++ b/s48/profile/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "profile" (0 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/s48/srfi-10/load.scm b/s48/srfi-10/packages.scm similarity index 100% rename from s48/srfi-10/load.scm rename to s48/srfi-10/packages.scm diff --git a/s48/srfi-10/pkg-def.scm b/s48/srfi-10/pkg-def.scm index 503076c..ba4810b 100644 --- a/s48/srfi-10/pkg-def.scm +++ b/s48/srfi-10/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "srfi-10" (0 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/scsh/afs/load.scm b/scsh/afs/packages.scm similarity index 100% rename from scsh/afs/load.scm rename to scsh/afs/packages.scm diff --git a/scsh/afs/pkg-def.scm b/scsh/afs/pkg-def.scm index 1d6ac11..04084ac 100644 --- a/scsh/afs/pkg-def.scm +++ b/scsh/afs/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "afs" (0 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/scsh/base64/load.scm b/scsh/base64/packages.scm similarity index 100% rename from scsh/base64/load.scm rename to scsh/base64/packages.scm diff --git a/scsh/base64/pkg-def.scm b/scsh/base64/pkg-def.scm index e79e276..15b52a4 100644 --- a/scsh/base64/pkg-def.scm +++ b/scsh/base64/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "base64" (0 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/scsh/bytio/load.scm b/scsh/bytio/packages.scm similarity index 100% rename from scsh/bytio/load.scm rename to scsh/bytio/packages.scm diff --git a/scsh/bytio/pkg-def.scm b/scsh/bytio/pkg-def.scm index 954571c..9f82c3a 100644 --- a/scsh/bytio/pkg-def.scm +++ b/scsh/bytio/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "bytio" (0 1) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/scsh/dir-streams/load.scm b/scsh/dir-streams/packages.scm similarity index 100% rename from scsh/dir-streams/load.scm rename to scsh/dir-streams/packages.scm diff --git a/scsh/dir-streams/pkg-def.scm b/scsh/dir-streams/pkg-def.scm index e902789..c7c4a59 100644 --- a/scsh/dir-streams/pkg-def.scm +++ b/scsh/dir-streams/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "dir-streams" (0 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/scsh/file-mode/load.scm b/scsh/file-mode/packages.scm similarity index 100% rename from scsh/file-mode/load.scm rename to scsh/file-mode/packages.scm diff --git a/scsh/file-mode/pkg-def.scm b/scsh/file-mode/pkg-def.scm index 3c4b556..a3971dd 100644 --- a/scsh/file-mode/pkg-def.scm +++ b/scsh/file-mode/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "file-mode" (0 1) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/scsh/image-info/load.scm b/scsh/image-info/packages.scm similarity index 100% rename from scsh/image-info/load.scm rename to scsh/image-info/packages.scm diff --git a/scsh/image-info/pkg-def.scm b/scsh/image-info/pkg-def.scm index 62a2cbd..b039c6f 100644 --- a/scsh/image-info/pkg-def.scm +++ b/scsh/image-info/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "image-info" (1 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/scsh/interaction/load.scm b/scsh/interaction/packages.scm similarity index 100% rename from scsh/interaction/load.scm rename to scsh/interaction/packages.scm diff --git a/scsh/interaction/pkg-def.scm b/scsh/interaction/pkg-def.scm index add514a..7928b48 100644 --- a/scsh/interaction/pkg-def.scm +++ b/scsh/interaction/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "interaction" (0 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/scsh/pps/load.scm b/scsh/pps/packages.scm similarity index 100% rename from scsh/pps/load.scm rename to scsh/pps/packages.scm diff --git a/scsh/pps/pkg-def.scm b/scsh/pps/pkg-def.scm index d62904a..1a340d2 100644 --- a/scsh/pps/pkg-def.scm +++ b/scsh/pps/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "pps" (0 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/scsh/scsh-packages/pkg-def.scm b/scsh/scsh-packages/pkg-def.scm index 055652a..16e1bf6 100644 --- a/scsh/scsh-packages/pkg-def.scm +++ b/scsh/scsh-packages/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "scsh-packages" (0 0) () - ; (install-file "load.scm" 'base) + ;(write-to-load-script + ; `((config) + ; (load ,(absolute-file-name "packages.scm" + ; (get-directory 'scheme #f))))) ; (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/scsh/sequences/load.scm b/scsh/sequences/packages.scm similarity index 100% rename from scsh/sequences/load.scm rename to scsh/sequences/packages.scm diff --git a/scsh/sequences/pkg-def.scm b/scsh/sequences/pkg-def.scm index 582bc3c..f36d182 100644 --- a/scsh/sequences/pkg-def.scm +++ b/scsh/sequences/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "sequences" (1 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/scsh/tiff/load.scm b/scsh/tiff/packages.scm similarity index 100% rename from scsh/tiff/load.scm rename to scsh/tiff/packages.scm diff --git a/scsh/tiff/pkg-def.scm b/scsh/tiff/pkg-def.scm index f38b1b6..607e237 100644 --- a/scsh/tiff/pkg-def.scm +++ b/scsh/tiff/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "tiff" (1 0) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc) diff --git a/scsh/treaps/load.scm b/scsh/treaps/packages.scm similarity index 100% rename from scsh/treaps/load.scm rename to scsh/treaps/packages.scm diff --git a/scsh/treaps/pkg-def.scm b/scsh/treaps/pkg-def.scm index 5039ca6..d7d33ac 100644 --- a/scsh/treaps/pkg-def.scm +++ b/scsh/treaps/pkg-def.scm @@ -1,7 +1,10 @@ (define-package "treaps" (0 1) () - (install-file "load.scm" 'base) + (write-to-load-script + `((config) + (load ,(absolute-file-name "packages.scm" + (get-directory 'scheme #f))))) (install-file "README" 'doc) (install-file "NEWS" 'doc) (install-string (COPYING) "COPYING" 'doc)