Add compiler:intersperse-rtl-in-lap?

diff --git a/v7/src/compiler/base/switch.scm b/v7/src/compiler/base/switch.scm
index 9a5b7e1b6b092db91006e5b551e78ed393bfbde9..d39c6d8dbb69b7a8fd2b0e8ae4aa05c41c17d660 100644 (file)
--- a/v7/src/compiler/base/switch.scm
+++ b/v7/src/compiler/base/switch.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/switch.scm,v 4.15 1990/05/03 15:05:05 jinx Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/switch.scm,v 4.16 1991/05/06 22:46:10 jinx Exp $
 
-Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
+Copyright (c) 1988-1991 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -33,6 +33,7 @@ promotional, or sales literature without prior written consent from
 MIT in each case. |#
 
 ;;;; Compiler Option Switches
+;;; package: (compiler)
 
 (declare (usual-integrations))
 \f
@@ -56,6 +57,7 @@ MIT in each case. |#
 (define compiler:open-code-primitives? true)
 (define compiler:generate-rtl-files? false)
 (define compiler:generate-lap-files? false)
+(define compiler:intersperse-rtl-in-lap? true)
 (define compiler:generate-range-checks? false)
 (define compiler:generate-type-checks? false)
 (define compiler:open-code-flonum-checks? false)