Racket uses checksums to test if it needs to recompile its source
files to bytecode.  If Racket is updated by grafting, the source and
bytecode files get updated, but the checksum stays the same.  Since
the checksum no longer matches the source file, Racket tries to
regenerate the bytecode and write it to the store, causing errors
because the store is immutable.  This patch makes Racket ignore
checksums for files in the store.

See <https://debbugs.gnu.org/30680> for details.
---
 collects/compiler/private/cm-minimal.rkt | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/collects/compiler/private/cm-minimal.rkt b/collects/compiler/private/cm-minimal.rkt
index a5a5407..15af6b8 100644
--- a/collects/compiler/private/cm-minimal.rkt
+++ b/collects/compiler/private/cm-minimal.rkt
@@ -7,6 +7,7 @@
          racket/list
          racket/path
          racket/promise
+         racket/string
          openssl/sha1
          setup/collects
          compiler/compilation-path
@@ -543,6 +544,10 @@
       #f
       (list src-hash recorded-hash)))
 
+(define (store-reference? path)
+  (let ([store-prefix (or (getenv "NIX_STORE") "/gnu/store")])
+    (string-prefix? (path->string path) store-prefix)))
+
 (define (rkt->ss p)
   (if (path-has-extension? p #".rkt")
       (path-replace-extension p #".ss")
@@ -595,7 +600,8 @@
               (trace-printf "newer src... ~a > ~a" path-time path-zo-time)
               ;; If `sha1-only?', then `maybe-compile-zo' returns a #f or thunk:
               (maybe-compile-zo sha1-only? deps path->mode roots path orig-path read-src-syntax up-to-date collection-cache new-seen)]
-             [(different-source-sha1-and-dep-recorded path deps)
+             [(and (not (store-reference? path))
+                   (different-source-sha1-and-dep-recorded path deps))
               => (lambda (difference)
                    (trace-printf "different src hash... ~a" difference)
                    ;; If `sha1-only?', then `maybe-compile-zo' returns a #f or thunk:
-- 
2.18.0

?id=1dc4c043beb479e06a95a54a2475025890f51cfc'>root</a>/<a href='/guix/log/nix?id=1dc4c043beb479e06a95a54a2475025890f51cfc'>nix</a>/<a href='/guix/log/nix/libstore?id=1dc4c043beb479e06a95a54a2475025890f51cfc'>libstore</a>/<a href='/guix/log/nix/libstore/globals.hh?id=1dc4c043beb479e06a95a54a2475025890f51cfc'>globals.hh</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/nix/libstore/globals.hh?id=1dc4c043beb479e06a95a54a2475025890f51cfc&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2019-02-04 00:03:30 +0100'>2019-02-04</span></td><td><a href='/guix/commit/nix/libstore/globals.hh?id=65d13e3043d90382f79b1780e06dc671ae451edf'>daemon: Remove unused 'NIX_DATA_DIR' environment variable.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-10-15 22:40:35 +0200'>2018-10-15</span></td><td><a href='/guix/commit/nix/libstore/globals.hh?id=6ef61cc4c30e94acbd7437f19c893f63a7112267'>daemon: Support multiplexed build output.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-10-02 23:08:30 +0200'>2018-10-02</span></td><td><a href='/guix/commit/nix/libstore/globals.hh?id=c577ac194afb4c9df76f9955aeb6118aafac6c34'>daemon: Remove unused 'Settings' fields.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-03-30 23:42:07 +0200'>2018-03-30</span></td><td><a href='/guix/commit/nix/libstore/globals.hh?id=c7589cce8d3f9fcb7769e424f341dba8fb3545d0'>daemon: Remove dead code.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-01-07 23:47:22 +0100'>2018-01-07</span></td><td><a href='/guix/commit/nix/libstore/globals.hh?id=f997137d0e2eba27bb1e2b282ee19ea474c41e12'>daemon: Make libbz2 an optional dependency.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-01-07 23:47:22 +0100'>2018-01-07</span></td><td><a href='/guix/commit/nix/libstore/globals.hh?id=29a686688674dc875775305312513405fa396a06'>daemon: Add gzip log compression.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-12-09 15:46:09 +0100'>2016-12-09</span></td><td><a href='/guix/commit/nix/libstore/globals.hh?id=2608e40988ba8cf51723fe0d21bdedf6b3997c9c'>daemon: Set ownership of kept build directories to the calling user.</a><span class='msg-avail'>...</span></td><td>Hartmut Goebel</td></tr>
<tr><td><span title='2015-12-08 23:58:12 +0100'>2015-12-08</span></td><td><a href='/guix/commit/nix/libstore/globals.hh?id=b23b4d394a39b60188ed74ecdf1027bc7dd5b9b3'>daemon: Allow builds to be repeated.</a><span class='msg-avail'>...</span></td><td>Eelco Dolstra</td></tr>