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

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

diff --git a/s48/banana/AUTHORS b/s48/banana/AUTHORS
index 7468301..f14e445 100644
--- a/s48/banana/AUTHORS
+++ b/s48/banana/AUTHORS
@@ -1 +1 @@
-Taylor Campbell
+Copyright (c) 2003 Taylor Campbell
diff --git a/s48/banana/NEWS b/s48/banana/NEWS
new file mode 100644
index 0000000..f54a97c
--- /dev/null
+++ b/s48/banana/NEWS
@@ -0,0 +1,2 @@
+version 0.1
+* New package system.
diff --git a/s48/banana/interfaces.scm b/s48/banana/load.scm
similarity index 82%
rename from s48/banana/interfaces.scm
rename to s48/banana/load.scm
index 21423e0..b29ae94 100644
--- a/s48/banana/interfaces.scm
+++ b/s48/banana/load.scm
@@ -43,3 +43,18 @@
    ;; Generally just for debugging or manual testing.
    (prettify-byte (proc (:exact-integer) :string))
    (prettify-byte-vector (proc (:value) :string))))
+
+(define-structures ((banana banana-interface)
+                    (banana-extras banana-extras-interface))
+  (open scheme
+        define-record-types
+        conditions
+        exceptions
+        signals
+        handle
+        bitwise
+        byte-vectors
+        ascii
+        srfi-1
+        srfi-6)
+  (files banana))
diff --git a/s48/banana/packages.scm b/s48/banana/packages.scm
deleted file mode 100644
index f504882..0000000
--- a/s48/banana/packages.scm
+++ /dev/null
@@ -1,14 +0,0 @@
-(define-structures ((banana banana-interface)
-                    (banana-extras banana-extras-interface))
-  (open scheme
-        define-record-types
-        conditions
-        exceptions
-        signals
-        handle
-        bitwise
-        byte-vectors
-        ascii
-        srfi-1
-        srfi-6)
-  (files banana))
diff --git a/s48/banana/pkg-def.scm b/s48/banana/pkg-def.scm
new file mode 100644
index 0000000..13bcc7d
--- /dev/null
+++ b/s48/banana/pkg-def.scm
@@ -0,0 +1,7 @@
+(define-package "banana"
+  (0 1)
+  ()
+  (install-file "load.scm" 'base)
+  (install-file "README" 'doc)
+  (install-string (COPYING) "COPYING" 'doc)
+  (install-file "banana.scm" 'scheme))