~ chicken-core (chicken-5) 6f95195f4840fe8e1342356b648036713a59e93e

commit 6f95195f4840fe8e1342356b648036713a59e93e
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Dec 21 22:53:53 2012 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Dec 21 22:53:53 2012 +0100

    register feature-identifier 64bit when running on a 64-bit CPU (suggested by Kon Lovett)

diff --git a/library.scm b/library.scm
index 569c9f5c..ab7b612b 100644
--- a/library.scm
+++ b/library.scm
@@ -3725,6 +3725,7 @@ EOF
 (when (##sys#fudge 24) (set! ##sys#features (cons #:dload ##sys#features)))
 (when (##sys#fudge 28) (set! ##sys#features (cons #:ptables ##sys#features)))
 (when (##sys#fudge 39) (set! ##sys#features (cons #:cross-chicken ##sys#features)))
+(when (##sys#fudge 3) (set! ##sys#features (cons #:64bit ##sys#features)))
 
 (set! ##sys#features
   (let ((major (##sys#string-append "chicken-" (##sys#number->string (##sys#fudge 41)))))