[plt-dev] coding

On May 14, 2010, at 9:43 AM, Matthias Felleisen wrote:

>
> (define (stress-test split)
>  (define n 20000)
>  (define l (build-list n add1))
>  (define _ (begin (collect-garbage) (collect-garbage)))
>  (define x
>    (time
>     (for/list ((i (in-range n)))
>       (define-values (x y) (split-at-right l i))
>       (length y))))
>  (void))


Sam pointed out my crucial error: when you abstract, use check syntax.  
(In case you can't see it, there's a hard-linked call to split-at- 
right not the parameter split.)