~ chicken-core (chicken-5) 92bd67d6ce8389d65b199dab53cd84bae99ea05b

commit 92bd67d6ce8389d65b199dab53cd84bae99ea05b
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Dec 16 15:26:04 2016 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Dec 16 15:26:04 2016 +0100

    egg-download: avoid using ##sys#fudge

diff --git a/egg-download.scm b/egg-download.scm
index 45c327b3..64eb2b41 100644
--- a/egg-download.scm
+++ b/egg-download.scm
@@ -245,7 +245,7 @@
   (receive (host port locn) (deconstruct-url url)
     (let* ((locn (conc locn
                        "?name=" egg
-                       "&release=" (##sys#fudge 41)
+                       "&release=" major-version
                        (if version (string-append "&version=" version) "")
                        "&mode=default"
                        (if tests "&tests=yes" "")))
diff --git a/egg-environment.scm b/egg-environment.scm
index ef8c87b9..f3f94cef 100644
--- a/egg-environment.scm
+++ b/egg-environment.scm
@@ -19,6 +19,7 @@ EOF
 (define debugbuild (foreign-value "DEBUG_CHICKEN" bool))
 (define cross-chicken (feature? #:cross-chicken))
 (define binary-version (foreign-value "C_BINARY_VERSION" int))
+(define major-version (foreign-value "C_MAJOR_VERSION" int))
 
 (define default-cc (foreign-value "C_TARGET_CC" c-string))
 (define default-cxx (foreign-value "C_TARGET_CXX" c-string))