~ chicken-core (chicken-5) f1dbd72e6ac025d45b15e9208a977bbe37feacdb

commit f1dbd72e6ac025d45b15e9208a977bbe37feacdb
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue May 11 13:14:08 2010 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue May 11 13:14:08 2010 +0200

    correct version patching in chicken.h

diff --git a/chicken.h b/chicken.h
index 563c0f8f..ef23d6d2 100644
--- a/chicken.h
+++ b/chicken.h
@@ -36,8 +36,8 @@
 #ifndef ___CHICKEN
 #define ___CHICKEN
 
-#define C_MAJOR_VERSION       4
-#define C_MINOR_VERSION       5
+#define C_MAJOR_VERSION   4
+#define C_MINOR_VERSION   4
 
 /*
  * N.B. This file MUST not rely upon "chicken-config.h"
diff --git a/scripts/setversion b/scripts/setversion
index 5fa3e22f..a46d7290 100644
--- a/scripts/setversion
+++ b/scripts/setversion
@@ -39,10 +39,14 @@ exec csi -s "$0" "$@"
   (string-match (rx "(\\d+)\\.(\\d+)\\.(\\d+)(.*)") v) )
 
 (define (main args)
-  (let ((major #f)
-	(minor #f))
+  (let ((major (##sys#fudge 41))
+	(minor (##sys#fudge 43)))
     (cond ((member "-set" args) =>
-	   (lambda (a) (set! buildversion (cadr a))) )
+	   (lambda (a)
+	     (set! buildversion (cadr a))
+	     (let ((b (parse-version buildversion)))
+	       (set! major (cadr b))
+	       (set! minor (caddr b)))))
 	  ((not (member "-noinc" args))
 	   (let* ((v (parse-version buildversion))
 		  (maj (cadr v))