Added kludge to get around a gratuitous name change between 7.4 and 8.0

diff --git a/v7/src/pcsample/load.scm b/v7/src/pcsample/load.scm
index 8a8f85812c4b8c7553ba760ed14f6680bf320534..995fe8f6e83e0c4891c708b8a08d86ad19ad6a87 100644 (file)
--- 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))
 \f
+;; 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 '()))