From 2786c32f93f07889df122f3e21fa36451d077364 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Fri, 28 Jul 1995 14:25:11 +0000
Subject: [PATCH] Added kludge to get around a gratuitous name change between
 7.4 and 8.0

---
 v7/src/pcsample/load.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/v7/src/pcsample/load.scm b/v7/src/pcsample/load.scm
index 8a8f85812..995fe8f6e 100644
--- a/v7/src/pcsample/load.scm
+++ b/v7/src/pcsample/load.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: load.scm,v 1.1 1995/07/28 14:14:08 adams Exp $
+$Id: load.scm,v 1.2 1995/07/28 14:25:11 adams Exp $
 
 Copyright (c) 1995 Massachusetts Institute of Technology
 
@@ -36,6 +36,15 @@ MIT in each case. |#
 
 (declare (usual-integrations))
 
+;; This kludge keeps the 7.4 and 8.0 sources the same:
+
+(let ((compiler-info (->environment '(runtime compiler-info))))
+  (if (environment-bound? compiler-info 'COMPILED-ENTRY/FILENAME)
+      (in-package compiler-info
+	(define compiled-entry/filename-and-index compiled-entry/filename)
+	(define compiled-code-block/filename-and-index
+	  compiled-code-block/filename))))
+
 (package/system-loader "pcs" '() 'QUERY)
 (add-system! (make-system "PC Sampler" 1 0 '()))
 
-- 
2.25.1