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

fix error message

Browse Source 
svn: r13906
This commit is contained in:
Eli Barzilay 2009-03-03 02:41:00 +00:00
parent 2b0e89ee2a
commit 56bb4539d0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/scheme/list.ss
View File

@ -86,9 +86,9 @@
(define (too-large who list n) (define (too-large who list n)
(raise-mismatch-error (raise-mismatch-error
who who
(format "index ~e too large for list~a: ~e" (format "index ~e too large for list~a: "
n (if (list? list) "" " (not a proper list)") list) n (if (list? list) "" " (not a proper list)"))
n)) list))
(define (take list0 n0) (define (take list0 n0)
(unless (exact-nonnegative-integer? n0) (unless (exact-nonnegative-integer? n0)