From ac4a607a0ce0db040720672c12618e80a86d4221 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 23 Nov 1994 20:03:26 +0000 Subject: [PATCH] Make compile by procedures dump the filename in every compiled code block, rather than the symbol 'RECURSIVE. --- v8/src/compiler/base/toplev.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/v8/src/compiler/base/toplev.scm b/v8/src/compiler/base/toplev.scm index d02c0b817..c961f8934 100644 --- 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) -- 2.25.1