racket: Fix build

%ci:no-build
2022-09-17 14:06:35 +09:00 · 2022-09-17 14:06:35 +09:00 · 8bca4ef246
parent 831c7604c3
commit 8bca4ef246
1 changed files with 11 additions and 0 deletions
--- a/packages/racket/collects-compiler-private-xform.rkt.patch.beforehostbuild
+++ b/packages/racket/collects-compiler-private-xform.rkt.patch.beforehostbuild
@ -0,0 +1,11 @@
+--- a/collects/compiler/private/xform.rkt
+++ b/collects/compiler/private/xform.rkt
+@@ -506,7 +506,7 @@
+         (when recorded-cpp-in
+           ;; Skip over common part:
+           (let loop ([lpos 1])
+-            (let ([pl (read-bytes-line recorded-cpp-in 'any)])
+            (let ([pl (skip-to-interesting-line recorded-cpp-in)])
+               (unless (eof-object? pl)
+                 (let ([l (skip-to-interesting-line (car cpp-process))])
+                   (unless (equal? pl l)