~ chicken-core (chicken-5) 99de2ba699997ff980d8f8066c7c53415a419aed

commit 99de2ba699997ff980d8f8066c7c53415a419aed
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Oct 6 06:10:58 2010 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Oct 6 06:10:58 2010 -0400

    bumped version to 4.6.3

diff --git a/README b/README
index 8b9e22b8..651b6760 100644
--- a/README
+++ b/README
@@ -6,7 +6,7 @@
   (c) 2008-2010, The Chicken Team
   (c) 2000-2007, Felix L. Winkelmann
 
-  version 4.6.2
+  version 4.6.3
 
 
  1. Introduction
diff --git a/buildversion b/buildversion
index 3208b090..7962f0fc 100644
--- a/buildversion
+++ b/buildversion
@@ -1 +1 @@
-4.6.2
\ No newline at end of file
+4.6.3
\ No newline at end of file
diff --git a/manual/The User's Manual b/manual/The User's Manual
index a2d4c678..65c47a9f 100644
--- a/manual/The User's Manual	
+++ b/manual/The User's Manual	
@@ -6,7 +6,7 @@
 <img style="float:right; border-left:1px solid #ccc;border-bottom:1px solid #ccc;margin-left:1em;" src="http://www.call-with-current-continuation.org/chicken4.png" alt="Stylized picture of a chicken"/>
 </nowiki>
 
-This is the manual for Chicken Scheme, version 4.6.2
+This is the manual for Chicken Scheme, version 4.6.3
 
 ; [[Getting started]] : What is CHICKEN and how do I use it?
 
diff --git a/scripts/setversion b/scripts/setversion
index d751ee66..61023772 100644
--- a/scripts/setversion
+++ b/scripts/setversion
@@ -3,7 +3,7 @@
 exec csi -s "$0" "$@"
 |#
 
-(use srfi-1 utils posix)
+(use srfi-1 utils posix irregex)
 
 (define buildversion (->string (car (read-file "buildversion"))))
 (define buildbinaryversion (car (read-file "buildbinaryversion")))
@@ -32,7 +32,11 @@ exec csi -s "$0" "$@"
 	   (system* "mv ~S ~S" tmp which) ) ) ) )
 
 (define (parse-version v)
-  (string-match (irregex "(\\d+)\\.(\\d+)\\.(\\d+)(.*)") v) )
+  (let ((m (irregex-match "(\\d+)\\.(\\d+)\\.(\\d+)(.*)" v)))
+    (list (irregex-match-substring m 0)
+	  (irregex-match-substring m 1)
+	  (irregex-match-substring m 2)
+	  (irregex-match-substring m 3))))
 
 (define (main args)
   (let ((major (##sys#fudge 41))
diff --git a/version.scm b/version.scm
index a107ba7e..88088203 100644
--- a/version.scm
+++ b/version.scm
@@ -1 +1 @@
-(define-constant +build-version+ "4.6.2")
+(define-constant +build-version+ "4.6.3")