From 359035362a57e544b7a5dc6b83f92652e436a13f Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 3 Apr 2008 11:14:19 +0000
Subject: [PATCH] 2^30 optimizer test

svn: r9146
---
 collects/tests/mzscheme/optimize.ss | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/collects/tests/mzscheme/optimize.ss b/collects/tests/mzscheme/optimize.ss
index 94a7b5e61a..a7f394d7eb 100644
--- a/collects/tests/mzscheme/optimize.ss
+++ b/collects/tests/mzscheme/optimize.ss
@@ -185,6 +185,7 @@
     (bin #f '< 100 100)
     (bin #t '< -200 100)
     (bin #f '< 100 -200)
+    (bin #t '< 1 (expt 2 30))
 
     (bin #t '<= 100 200)
     (bin #f '<= 200 100)
@@ -197,6 +198,7 @@
     (bin #f '> 100 100)
     (bin #f '> -200 100)
     (bin #t '> 100 -200)
+    (bin #f '> 1 (expt 2 30))
 
     (bin #f '>= 100 200)
     (bin #t '>= 200 100)