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

diff --git a/v7/src/runtime/infutl.scm b/v7/src/runtime/infutl.scm
index 2a9798a7b1c0f2176e93531884ba3d9710ba2dc5..ac60584c3b79f12039350764632d19b60c17b571 100644 (file)
--- 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 38443af3da06ddde2e9d711cc4e35914a6d7aa20..5f932bc2dd4977711ef61196d6778b8b33c0a4cd 100644 (file)
--- 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!)))