From ed85ff20999a718cf49666eb57a955d8651a64a3 Mon Sep 17 00:00:00 2001
From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 15 Jul 1997 16:33:38 +0000
Subject: [PATCH] Change to get rid of minor difference between 7.4 and 8.0
 versions of unpars.scm:

Renamed
  COMPILED-ENTRY/FILENAME	-> COMPILED-ENTRY/FILENAME-AND-INDEX
  COMPILED-CODE-BLOCK/FILENAME	-> COMPILED-CODE-BLOCK/FILENAME-AND-INDEX
---
 v7/src/runtime/infutl.scm  | 8 ++++----
 v7/src/runtime/runtime.pkg | 6 +++---
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/v7/src/runtime/infutl.scm b/v7/src/runtime/infutl.scm
index 2a9798a7b..ac60584c3 100644
--- a/v7/src/runtime/infutl.scm
+++ b/v7/src/runtime/infutl.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: infutl.scm,v 1.58 1995/07/17 20:10:43 adams Exp $
+$Id: infutl.scm,v 1.59 1997/07/15 16:33:38 adams Exp $
 
 Copyright (c) 1988-94 Massachusetts Institute of Technology
 
@@ -184,10 +184,10 @@ MIT in each case. |#
       (compiled-entry/offset (compiled-closure->entry entry))
       (compiled-code-address->offset entry)))
 
-(define (compiled-entry/filename entry)
-  (compiled-code-block/filename (compiled-entry/block entry)))
+(define (compiled-entry/filename-and-index entry)
+  (compiled-code-block/filename-and-index (compiled-entry/block entry)))
 
-(define (compiled-code-block/filename block)
+(define (compiled-code-block/filename-and-index block)
   (let loop ((info (compiled-code-block/debugging-info block)))
     (cond ((string? info) (values (canonicalize-debug-info-filename info) #f))
 	  ((not (pair? info)) (values false false))
diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 38443af3d..5f932bc2d 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.284 1997/07/15 05:16:12 adams Exp $
+$Id: runtime.pkg,v 14.285 1997/07/15 16:33:29 adams Exp $
 
 Copyright (c) 1988-97 Massachusetts Institute of Technology
 
@@ -333,10 +333,8 @@ MIT in each case. |#
   (export ()
 	  *save-uncompressed-files?*
 	  *uncompressed-file-lifetime*
-	  compiled-code-block/filename
 	  compiled-entry/block
 	  compiled-entry/dbg-object
-	  compiled-entry/filename
 	  compiled-entry/offset
 	  compiled-expression/scode
 	  compiled-procedure/name
@@ -387,6 +385,8 @@ MIT in each case. |#
 	  dbg-procedure/block
 	  dbg-procedure/source-code
 	  dbg-expression?)
+  (export (runtime unparser)
+	  compiled-entry/filename-and-index)
   (export (runtime compress)
 	  uncompress-internal)
   (initialization (initialize-package!)))
-- 
2.25.1