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 <mfl...@cs.utah.edu> wrote: > At Wed, 26 Jan 2011 17:07:32 -0500, e...@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 > _________________________________________________ For list-related administrative tasks: http://lists.racket-lang.org/listinfo/dev
