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 
(cherry picked from commit 808361b789)
This commit is contained in:
Stephen Chang 2011-01-30 12:10:47 -05:00 committed by Eli Barzilay
parent e5b2badea3
commit 01c641d14f
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)
'()