[racket-dev] [plt] Push #22081: master branch updated

At Wed, 26 Jan 2011 17:07:32 -0500, eli at racket-lang.org wrote:
> +    (let ([n0 (! n)])
> +      (unless (exact-nonnegative-integer? n)
> +        (raise-type-error 'take "non-negative exact integer" 0 n l))

Still committing changes with no tests.

Still broken:

 > (list-ref (take (car (list 1)) (list 2)) 0) 
 take: expects type <non-negative exact integer> as 1st argument, given:
 #<promise!1>; other arguments were: '(2)