From d4e3946ba224caf0561826fbf968390847996874 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Wed, 25 Aug 2010 10:52:32 -0600
Subject: [PATCH] Adding apply stress test from Will M. Farr

---
 collects/tests/stress/racket/apply.rkt | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 collects/tests/stress/racket/apply.rkt

diff --git a/collects/tests/stress/racket/apply.rkt b/collects/tests/stress/racket/apply.rkt
new file mode 100644
index 0000000000..e9810ae735
--- /dev/null
+++ b/collects/tests/stress/racket/apply.rkt
@@ -0,0 +1,7 @@
+#lang racket/base
+(require tests/stress/stress)
+
+(fit "apply to atoms"
+     23
+     (lambda (n)
+       (apply void (build-list (expt 2 n) (λ (x) x)))))
\ No newline at end of file