suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix lazy take bug -- invariant being tested on unforced argument

Browse Source
This commit is contained in:
Stephen Chang 2011-01-30 12:10:47 -05:00
parent bc5ab1e031
commit 808361b789
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/lazy/lazy.rkt
View File

@ -576,8 +576,8 @@
(define* (take n l)
(let ([n0 (! n)])
(unless (exact-nonnegative-integer? n)
(raise-type-error 'take "non-negative exact integer" 0 n l))
(unless (exact-nonnegative-integer? n0)
(raise-type-error 'take "non-negative exact integer" 0 n0 l))
(let loop ([n n0] [l l])
(if (zero? n)
'()