Release 0.17.1.

* configure (VERSION): Update to 0.17.1.
(main): Likewise.
* configure.sh (VERSION): Likewise.
* build-aux/GNUmakefile.in (gen-announce): Likewise.
* guix/git/mes.scm (mes, mes.git): Likewise.

build-aux/GNUmakefile.in

@@ -325,7 +325,7 @@ gen-announce:
 	../gnulib/build-aux/announce-gen\
 	    --release-type=beta\
 	    --package-name=mes\
-	    --previous-version='0.16 '\
+	    --previous-version='0.17 '\
             --current-version=$(VERSION)\
 	    --gpg-key-id=$(GPG_KEY_ID)\
 	    --url-directory=https://ftp.gnu.org/gnu/mes\

configure

@@ -61,7 +61,7 @@ exec ${guile} -L . --no-auto-compile -e '(configure)' -s "$0" ${1+"$@"}
 
 (define *shell* "sh")
 (define PACKAGE "mes")
-(define VERSION "0.17")
+(define VERSION "0.17.1")
 
 ;;; Utility
 (define (logf port string . rest)
@@ -355,10 +355,10 @@ Some influential environment variables:
                              (make-dep "guix" '(0 13) #:optional? #t)
                              (make-dep "bash" '(2 0) #:optional? #t)
                              (make-dep "guile-tools" '(2 0))
-                             (make-dep "mes-seed" '(0 17) #:optional? #t
+                             (make-dep "mes-seed" '(0 17 1) #:optional? #t
                                        #:commands (list (string-append mes-seed "/refresh.sh"))
                                        #:file-name mes-seed)
-                             (make-dep "tinycc-seed" '(0 17) #:optional? #t
+                             (make-dep "tinycc-seed" '(0 17 1) #:optional? #t
                                        #:commands (list (string-append tinycc-seed "/refresh.sh"))
                                        #:file-name tinycc-seed)
                              (make-dep "cc" '(2 95) #:commands '("gcc"))

configure.sh

@@ -20,7 +20,7 @@
 
 set -e
 
-VERSION=0.17
+VERSION=0.17.1
 
 # parse --prefix=prefix
 cmdline=$(echo "$@")

guix/git/mes.scm

@@ -111,14 +111,14 @@ hex2 linker.")
 
 (define-public mes
   (let ((triplet "i686-unknown-linux-gnu")
-        (version "0.17"))
+        (version "0.17.1"))
     (package
       (name "mes")
       (version version)
       (source (origin
                 (method url-fetch)
                 (uri (string-append
-                      "https://alpha.gnu.org/pub/gnu/mes/mes-" version ".tar.gz"))
+                      "https://ftp.gnu.org/pub/gnu/mes/mes-" version ".tar.gz"))
                 (sha256
                  (base32 #!mes!# "1j32x4zqy2cqjlg9m35f2411mwac2b0p5ch4hm99gddmfbxzgyhg"))))
       (build-system gnu-build-system)
@@ -158,7 +158,7 @@ Guile-] Scheme interpreter prototype in C and a Nyacc-based C compiler in
       (license gpl3+))))
 
 (define-public mes.git
- (let ((version "0.17")
+ (let ((version "0.17.1")
         (revision "0")
         (commit (read-string (open-pipe "git show HEAD | head -1 | cut -d ' ' -f 2" OPEN_READ))))
     (package