From d0d0fbdd7f7b018123d8751478271c76a43df500 Mon Sep 17 00:00:00 2001
From: Anthony Carrico <acarrico@memebeam.org>
Date: Wed, 10 Mar 2004 16:18:16 +0000
Subject: [PATCH] Changed to new package system.

---
 s48/args-fold/AUTHORS                      | 2 +-
 s48/args-fold/NEWS                         | 2 ++
 s48/args-fold/{interfaces.scm => load.scm} | 5 +++++
 s48/args-fold/packages.scm                 | 4 ----
 s48/args-fold/pkg-def.scm                  | 7 +++++++
 5 files changed, 15 insertions(+), 5 deletions(-)
 create mode 100644 s48/args-fold/NEWS
 rename s48/args-fold/{interfaces.scm => load.scm} (62%)
 delete mode 100644 s48/args-fold/packages.scm
 create mode 100644 s48/args-fold/pkg-def.scm

diff --git a/s48/args-fold/AUTHORS b/s48/args-fold/AUTHORS
index aaa0f16..b0a8eda 100644
--- a/s48/args-fold/AUTHORS
+++ b/s48/args-fold/AUTHORS
@@ -1 +1 @@
-Anthony Carrico
+Copyright (c) 2004 Anthony Carrico
diff --git a/s48/args-fold/NEWS b/s48/args-fold/NEWS
new file mode 100644
index 0000000..eedaa26
--- /dev/null
+++ b/s48/args-fold/NEWS
@@ -0,0 +1,2 @@
+version 0.4
+* New package system.
diff --git a/s48/args-fold/interfaces.scm b/s48/args-fold/load.scm
similarity index 62%
rename from s48/args-fold/interfaces.scm
rename to s48/args-fold/load.scm
index 988e4eb..5799e71 100644
--- a/s48/args-fold/interfaces.scm
+++ b/s48/args-fold/load.scm
@@ -7,3 +7,8 @@
    option-optional-arg?
    option-processor
    args-fold))
+
+(define-structure srfi-37
+  srfi-37-interface
+  (open scheme srfi-9 srfi-11)
+  (files args-fold))
diff --git a/s48/args-fold/packages.scm b/s48/args-fold/packages.scm
deleted file mode 100644
index 0bf8418..0000000
--- a/s48/args-fold/packages.scm
+++ /dev/null
@@ -1,4 +0,0 @@
-(define-structure srfi-37
-  srfi-37-interface
-  (open scheme srfi-9 srfi-11)
-  (files args-fold))
diff --git a/s48/args-fold/pkg-def.scm b/s48/args-fold/pkg-def.scm
new file mode 100644
index 0000000..cd01650
--- /dev/null
+++ b/s48/args-fold/pkg-def.scm
@@ -0,0 +1,7 @@
+(define-package "srfi-37"
+  (0 6)
+  ()
+  (install-file "load.scm" 'base)
+  (install-file "README" 'doc)
+  (install-string (COPYING) "COPYING" 'doc)
+  (install-file "args-fold.scm" 'scheme))