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.

---
--- a/collects/compiler/private/cm-minimal.rkt
+++ b/collects/compiler/private/cm-minimal.rkt
@@ -6,6 +6,7 @@
          racket/list
          racket/path
          racket/promise
+         racket/string
          file/sha1
          setup/cross-system
          compiler/compilation-path
@@ -268,7 +269,8 @@
                (trace-printf "newer src... ~a > ~a" path-time path-zo-time)
                (maybe-compile-zo deps path->mode roots path orig-path read-src-syntax up-to-date collection-cache new-seen
                                  #:trying-sha1? sha1-only?)]
-              [(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 for ~a..." difference path)
                     (maybe-compile-zo deps path->mode roots path orig-path read-src-syntax up-to-date collection-cache new-seen
@@ -1012,5 +1014,9 @@
       #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)))
+
 ;; Make sure `recompile-from` is machine-independent so that
 ;; recompilation makes sense.
 ;; The compilation lock must is held for the source of `recompile-from`.t' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=8b6b097714962beeb675cad6425b2417dc564dab'>root</a>/<a href='/guix/log/gnu?id=8b6b097714962beeb675cad6425b2417dc564dab'>gnu</a>/<a href='/guix/log/gnu/packages?id=8b6b097714962beeb675cad6425b2417dc564dab'>packages</a>/<a href='/guix/log/gnu/packages/connman.scm?id=8b6b097714962beeb675cad6425b2417dc564dab'>connman.scm</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/gnu/packages/connman.scm?id=8b6b097714962beeb675cad6425b2417dc564dab&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-09-19 11:19:49 +0300'>2022-09-19</span></td><td><a href='/guix/commit/gnu/packages/connman.scm?id=f9ada7fdc4d4dad63a3bbb4a43bbb3f8441f0c60'>gnu: connman: Patch CVE-2022-32392, CVE-2022-32293.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/connman.scm (connman)[source]: Add patches.
* gnu/packages/patches/connman-CVE-2022-32292.patch,
gnu/packages/patches/connman-CVE-2022-32293-pt1.patch,
gnu/packages/patches/connman-CVE-2022-32293-pt1.patch: New files.
* gnu/local.mk (dist_patch_DATA): Register them.
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2022-07-31 21:55:48 -0400'>2022-07-31</span></td><td><a href='/guix/commit/gnu/packages/connman.scm?id=eef8e2ec46c4155980815e00a394428c0c3de075'>gnu: qttools: Rename to qttools-5.</a><span class='msg-avail'>...<span class='msg-tooltip'>Automated with:

  git grep -l qttools | xargs sed 's/\bqttools\b/\0-5/g' -i
  git checkout NEWS
</span></span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2022-07-06 12:44:13 +0300'>2022-07-06</span></td><td><a href='/guix/commit/gnu/packages/connman.scm?id=8760decca72c2b720734b04517b8d3daef3b484d'>gnu: connman: Fix cross-compilation.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/connman.scm (connman): Fix cross-compilation.
  [arguments]: Use G-Expressions. Set path to binaries at
  `#:configure-flags'.

Signed-off-by: Efraim Flashner &lt;efraim@flashner.co.il&gt;
</span></span></td><td>Jean-Pierre De Jesus DIAZ</td></tr>