01/01: tcc-boot0: Update

[guix-commits]

janneke pushed a commit to branch wip-bootstrap
in repository guix.

commit d4c3d5486ce932d87f54757fde2c1c49bea83dcb
Author: Jan Nieuwenhuizen <address@hidden>
Date:   Wed Dec 5 23:20:36 2018 +0100

    tcc-boot0: Update
---
 gnu/packages/commencement.scm | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm
index f7a326a..4eccfbc 100644
--- a/gnu/packages/commencement.scm
+++ b/gnu/packages/commencement.scm
@@ -235,7 +235,7 @@
              (variable "LIBRARY_PATH")
              (files '("share/mes/lib"))))))))
 
-(define tcc-boot0
+(define-public tcc-boot0
   ;; Pristine tcc cannot be built by MesCC, we are keeping a delta of 11
   ;; patches.  In a very early and rough form they were presented to the
   ;; TinyCC developers, who at the time showed no interest in supporting the
@@ -244,12 +244,20 @@
   ;; mature, this package should use the 0.9.27 sources (or later).
   (let ((version "0.9.26")
         (revision "5")
-        (commit "9408a31f88dbd8727e99483d7db19ded0ddcfb24"))
+        (commit "2d0dfe6924af9c5fe6fb71fa23f8bfe578fadea7"))
     (package-with-bootstrap-guile
      (package
        (inherit tcc)
        (name "tcc-boot0")
        (version (string-append version "-" revision "." (string-take commit 
7)))
+       ;; (source (origin
+       ;;           (method url-fetch)
+       ;;           (uri (string-append "https://gitlab.com/janneke/tinycc";
+       ;;                               "/-/archive/" commit
+       ;;                               "/tinycc-" commit ".tar.gz"))
+       ;;           (sha256
+       ;;            (base32
+       ;;             
"1y056iwjlzk1vs2rx70ypc50g94xjxca3qr7lfd8k9051arfw12j"))))
        (source (origin
                  (method url-fetch)
                  (uri (string-append
@@ -257,7 +265,7 @@
                        "tinycc-" commit ".tar"))
                  (sha256
                   (base32
-                   "1pf9d2vcdklg2kd3i1bvplh4fc8iagzmwvh8gk2apamyhras2qnw"))))
+                   "0xmghjzcfk2i8387smhf173w1jl4ri7j9zabvy6wank8xq6dhwkj"))))
        (build-system gnu-build-system)
        (supported-systems '("i686-linux" "x86_64-linux"))
        (inputs '())