Make compile by procedures dump the filename in every compiled code

block, rather than the symbol 'RECURSIVE.

diff --git a/v8/src/compiler/base/toplev.scm b/v8/src/compiler/base/toplev.scm
index d02c0b817f6a8e41d724c825ec90f7a8a358c088..c961f893483d3d2899a468d79d992492d42c0520 100644 (file)
--- a/v8/src/compiler/base/toplev.scm
+++ b/v8/src/compiler/base/toplev.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: toplev.scm,v 1.2 1994/11/23 03:18:44 adams Exp $
+$Id: toplev.scm,v 1.3 1994/11/23 20:03:26 gjr Exp $
 
 Copyright (c) 1988-1994 Massachusetts Institute of Technology
 
@@ -254,7 +254,10 @@ MIT in each case. |#
                      rtl-output-port
                      lap-output-port)
   (initialize-machine-register-map!)
-  (fluid-let ((*info-output-filename* info-output-pathname)
+  (fluid-let ((*info-output-filename*
+              (if (memq info-output-pathname '(KEEP RECURSIVE))
+                  *info-output-filename*
+                  info-output-pathname))
              (*rtl-output-port* rtl-output-port)
              (*lap-output-port* lap-output-port)
              (*kmp-output-port* kmp-output-port)