From 4af1876ebfc1947d154f1cffc3885bb3c732f7ea Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 30 Aug 2016 12:00:52 +0200
Subject: [PATCH] gnu: squeak-vm: Make builds bit-reproducible.

* gnu/packages/smalltalk.scm (squeak-vm)[source]: Add 'snippet'.
---
 gnu/packages/smalltalk.scm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/smalltalk.scm b/gnu/packages/smalltalk.scm
index 414c17b46c..675ca0ce5e 100644
--- a/gnu/packages/smalltalk.scm
+++ b/gnu/packages/smalltalk.scm
@@ -87,7 +87,19 @@ (define-public squeak-vm
                            "Squeak-" version "-src.tar.gz"))
        (sha256
         (base32
-         "0bpwbnpy2sb4gylchfx50sha70z36bwgdxraym4vrr93l8pd3dix"))))
+         "0bpwbnpy2sb4gylchfx50sha70z36bwgdxraym4vrr93l8pd3dix"))
+       (modules '((guix build utils)))
+       (snippet
+        ;; Make builds bit-reproducible.
+        '(begin
+           (substitute* "unix/cmake/verstamp"
+             (("vm_date=.*")
+              "vm_date = \"1970-01-01\";\n")
+             (("ux_version=.*")
+              "ux_version = \"GNU\";\n"))
+           (substitute* "unix/vm/config.cmake"
+             (("\\(VM_BUILD_STRING.*")
+              "(VM_BUILD_STRING \\\"Built with GNU Guix\\\")"))))))
     (inputs
      `(("alsa-lib" ,alsa-lib)
        ("dbus" ,dbus)