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

Happily, Stephen's earlier change actually started a test suite, so
adding more tests should be easy to do.

Robby

On Wed, Jan 26, 2011 at 4:58 PM, Matthew Flatt <mflatt at cs.utah.edu> wrote:
> 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)
>
> _________________________________________________
>  For list-related administrative tasks:
>  http://lists.racket-lang.org/listinfo/dev
>