From 81d8f76300dc676370bc5808ad226c9c04aa813f Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Mon, 6 May 1991 22:46:10 +0000 Subject: [PATCH] Add compiler:intersperse-rtl-in-lap? --- v7/src/compiler/base/switch.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/base/switch.scm b/v7/src/compiler/base/switch.scm index 9a5b7e1b6..d39c6d8db 100644 --- 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)) @@ -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) -- 2.25.1