From 25156e2434cf5c1a46e6a1f5064ab2147d0d8466 Mon Sep 17 00:00:00 2001
From: Peter Bex <peter@more-magic.net>
Date: Sat, 11 Aug 2018 12:10:50 +0200
Subject: Port to CHICKEN 5 (with backwards compat in CHICKEN 4)

---
 README                                      |  2 +-
 pseudo-meta-egg-info.chicken-5.release-info |  3 +++
 pseudo-meta-egg-info.egg                    |  8 ++++++++
 pseudo-meta-egg-info.release-info           |  1 +
 pseudo-meta-egg-info.scm                    | 14 ++++++++++++--
 pseudo-meta-egg-info.setup                  |  2 +-
 6 files changed, 26 insertions(+), 4 deletions(-)
 create mode 100644 pseudo-meta-egg-info.chicken-5.release-info
 create mode 100644 pseudo-meta-egg-info.egg

diff --git a/README b/README
index 0a70eab..5302324 100644
--- a/README
+++ b/README
@@ -30,7 +30,7 @@ for each revision, with the revision number as its name:
 
 You can use it like this:
 
-(use spiffy spiffy-uri-match pseudo-meta-egg-info)
+(import spiffy spiffy-uri-match pseudo-meta-egg-info)
 
 ;; Trailing slash is mandatory here!
 ;; The {chicken-release} placeholder gets replaced by the major CHICKEN version.
diff --git a/pseudo-meta-egg-info.chicken-5.release-info b/pseudo-meta-egg-info.chicken-5.release-info
new file mode 100644
index 0000000..4b3f291
--- /dev/null
+++ b/pseudo-meta-egg-info.chicken-5.release-info
@@ -0,0 +1,3 @@
+(repo git "http://code.more-magic.net/{egg-name}")
+(uri targz "http://code.more-magic.net/{egg-name}/snapshot/{egg-name}-{egg-release}.tar.gz")
+(release "1.1")
diff --git a/pseudo-meta-egg-info.egg b/pseudo-meta-egg-info.egg
new file mode 100644
index 0000000..a3384a8
--- /dev/null
+++ b/pseudo-meta-egg-info.egg
@@ -0,0 +1,8 @@
+;;;; pseudo-meta-egg-info.meta -*- Scheme -*-
+
+((synopsis "Provide automatically generated release-info and a pseudo-\"meta\"-file for eggs in svn")
+ (category egg-tools)
+ (author "Peter Bex")
+ (dependencies spiffy uri-common svn-client)
+ (license "Public Domain")
+ (components (extension pseudo-meta-egg-info)))
diff --git a/pseudo-meta-egg-info.release-info b/pseudo-meta-egg-info.release-info
index 5206cc0..466a58b 100644
--- a/pseudo-meta-egg-info.release-info
+++ b/pseudo-meta-egg-info.release-info
@@ -4,3 +4,4 @@
 (release "0.1.1")
 (release "0.2")
 (release "1.0")
+(release "1.1")
\ No newline at end of file
diff --git a/pseudo-meta-egg-info.scm b/pseudo-meta-egg-info.scm
index e97da9d..a77ec2f 100644
--- a/pseudo-meta-egg-info.scm
+++ b/pseudo-meta-egg-info.scm
@@ -7,9 +7,19 @@
 (module pseudo-meta-egg-info
   (egg-repo release-info files-list)
 
-(import chicken scheme)
-(use extras data-structures spiffy intarweb uri-common svn-client)
+(import scheme) ;; Hack to get cond-expand in CHICKEN 4
+  
+(cond-expand
+  (chicken-4
+   (import chicken)
+   (use extras data-structures spiffy intarweb uri-common svn-client))
+  (chicken-5
+   (import (chicken base) (chicken string) (chicken format)
+           spiffy intarweb uri-common svn-client)))
 
+;; When missing, we default to 4 for backwards compat reasons.  This
+;; should probably never be changed (at best, we can completely remove
+;; it at some point)
 (define *default-chicken-release* "4")
 
 (define egg-repo
diff --git a/pseudo-meta-egg-info.setup b/pseudo-meta-egg-info.setup
index 142b038..0ef850b 100644
--- a/pseudo-meta-egg-info.setup
+++ b/pseudo-meta-egg-info.setup
@@ -1,3 +1,3 @@
 ;;;; pseudo-meta-egg-info.setup -*- Scheme -*-
 
-(standard-extension "pseudo-meta-egg-info" "1.0")
+(standard-extension "pseudo-meta-egg-info" "1.1")
-- 
cgit v1.2.3