]> birchwood-abbey.net Git - mit-scheme.git/commitdiff
Fix up make.com's debug data pathname too.
authorTaylor R Campbell <campbell+mit-scheme@mumble.net>
Tue, 7 Jul 2020 18:29:32 +0000 (18:29 +0000)
committerTaylor R Campbell <campbell+mit-scheme@mumble.net>
Tue, 7 Jul 2020 18:41:44 +0000 (18:41 +0000)
(cherry picked from commit 7716736ab12ed9eb0a01303b39a182e65831b44b)

src/runtime/make.scm

index a79206ba78fe7d29236e91bb8a2c425bb7f472cd..8eb56215422c952464a9107cbe1574726cf67b58 100644 (file)
@@ -501,7 +501,11 @@ USA.
                    (let ((object (cdr entry)))
                      (fasload/update-debugging-info! object (car entry))
                      (load/purification-root object)))
-                 fasload-purification-queue)))))))
+                 (cons (cons (if (compiled-code-address? (lambda (x) x))
+                                 "make.com"
+                                 "make.bin")
+                             define-multiple)
+                       fasload-purification-queue))))))))
   (lexical-assignment (->environment '(runtime garbage-collector))
                      'gc-boot-loading?
                      #f)