From 808361b789efe494df60cdd85cb154627d9fdeb6 Mon Sep 17 00:00:00 2001 From: Stephen Chang Date: Sun, 30 Jan 2011 12:10:47 -0500 Subject: [PATCH] fix lazy take bug -- invariant being tested on unforced argument --- collects/lazy/lazy.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/lazy/lazy.rkt b/collects/lazy/lazy.rkt index 1171091cad..8d386567ab 100644 --- a/collects/lazy/lazy.rkt +++ b/collects/lazy/lazy.rkt @@ -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) '()