1;; This allocates several large objects directly in the heap via the
2;; toplevel entry point, for a total of about 10MB on 64-bit machines.
3;; This guards against regressions in heap reallocation (#1221).
4
5(define-syntax generate-literals
6  (ir-macro-transformer
7    (lambda (i r c)
8      (let lp ((i 0)
9	       (exprs '()))
10	(if (= i 1000)
11	    (cons 'begin exprs)
12	    (lp (add1 i)
13		(cons `(define ,(gensym)
14			 (quote ,(make-vector 1000))) exprs)))))))
15
16(generate-literals)
17