~ chicken-core (chicken-5) 8b1afe9cd72e1a152926215f3bb730709a5c4e91


commit 8b1afe9cd72e1a152926215f3bb730709a5c4e91
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Wed Aug 7 21:16:49 2013 +0200
Commit:     Peter Bex <peter.bex@xs4all.nl>
CommitDate: Wed Aug 7 21:16:49 2013 +0200

    Fix 'setversion' script; make it executable and restore the 'huh' variable's item in the list returned by version parser

diff --git a/scripts/setversion b/scripts/setversion
old mode 100644
new mode 100755
index a05988ee..01660086
--- a/scripts/setversion
+++ b/scripts/setversion
@@ -35,7 +35,8 @@ exec csi -s "$0" "$@"
     (list (irregex-match-substring m 0)
 	  (irregex-match-substring m 1)
 	  (irregex-match-substring m 2)
-	  (irregex-match-substring m 3))))
+	  (irregex-match-substring m 3)
+	  (irregex-match-substring m 4))))
 
 (define (main args)
   (let ((major (##sys#fudge 41))
Trap