From 5800483dfd7d82d991c0f6aa44c91b43abae0fd2 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 3 Oct 1998 16:16:44 +0000
Subject: [PATCH] .

original commit: cc9de5c6e96ecc1ce364290bb02d387b963a19a5
---
 collects/compiler/sig.ss | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/collects/compiler/sig.ss b/collects/compiler/sig.ss
index e268f43852..f132c86afc 100644
--- a/collects/compiler/sig.ss
+++ b/collects/compiler/sig.ss
@@ -38,6 +38,15 @@
 
    max-inline-size      ; max size of inlined procedures
 
+   disable-interrupts   ; #t => UNSAFE: turn off breaking, stack
+                        ; overflow, and thread switching;
+                        ; default = #f
+   unsafe               ; #t => UNSAFE: omit some type checks
+                        ; default = #f
+   fixnum-arithmetic    ; #t => UNSAFE: don't check for overflow or
+                        ; underflow for fixnum arithmetic;
+                        ; default = #f
+
    propagate-constants  ; default = #t
    assume-primitives    ; #t => car = #%car; default = #f
    stupid               ; allow obvious non-syntactic errors;