From 3b0ba65f69d73dc155ff56e66898f9a8cf569a8c Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Thu, 1 Jul 1993 03:12:19 +0000
Subject: [PATCH] Add compiler:assume-safe-fixnums?

---
 v7/src/compiler/base/switch.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/v7/src/compiler/base/switch.scm b/v7/src/compiler/base/switch.scm
index 87925e7f7..fd7612f47 100644
--- a/v7/src/compiler/base/switch.scm
+++ b/v7/src/compiler/base/switch.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: switch.scm,v 4.22 1993/02/25 02:07:00 gjr Exp $
+$Id: switch.scm,v 4.23 1993/07/01 03:12:19 gjr Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -68,6 +68,7 @@ MIT in each case. |#
 ;; This only works in the C back end, right now
 (define compiler:compress-top-level? false)
 (define compiler:avoid-scode? true)
+(define compiler:assume-safe-fixnums? true)
 ;; The switch COMPILER:OPEN-CODE-FLOATING-POINT-ARITHMETIC? is in machin.scm.
 
 ;;; Nary switches
-- 
2.25.1