From 369ce444161626d49ee220b9b286881a4b081bf7 Mon Sep 17 00:00:00 2001
From: Vincent St-Amour <stamourv@racket-lang.org>
Date: Thu, 24 Jun 2010 10:14:50 -0400
Subject: [PATCH] Made the default nbody benchmark unsafe.

---
 collects/tests/racket/benchmarks/shootout/nbody.rkt | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/collects/tests/racket/benchmarks/shootout/nbody.rkt b/collects/tests/racket/benchmarks/shootout/nbody.rkt
index 619e43f8e4..b942019498 100644
--- a/collects/tests/racket/benchmarks/shootout/nbody.rkt
+++ b/collects/tests/racket/benchmarks/shootout/nbody.rkt
@@ -17,8 +17,14 @@ Correct output N = 1000 is
 -0.169087605
 |#
 
-(require racket/cmdline
-         racket/flonum)
+(require racket/require racket/require-syntax (for-syntax racket/base))
+(define-require-syntax overriding-in
+  (syntax-rules () [(_ R1 R2) (combine-in R2 (subtract-in R1 R2))]))
+(require (overriding-in
+          racket/flonum
+          (filtered-in (lambda (name) (regexp-replace #rx"unsafe-" name ""))
+                       racket/unsafe/ops))
+         racket/cmdline)
 
 ;; ------------------------------
 ;; define planetary masses, initial positions & velocity