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

fix error messages

Browse Source 
svn: r16933
This commit is contained in:
Eli Barzilay 2009-11-21 00:16:08 +00:00
parent 47e46efd46
commit 35b62665ae
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
collects/scheme/vector.ss
View File

@ -22,25 +22,27 @@
(let ([len (vector-length v)]) (let ([len (vector-length v)])
(cond (cond
[(= len 0) [(= len 0)
(unless (and (= start 0) (unless (= start 0)
(= end 0)) (raise-mismatch-error 'vector-copy
(raise-mismatch-error "start index must be 0 for empty vector, got "
'vector-copy start))
(format "start index and end index must both be 0 for empty vectors, got ~e and ~e" (unless (= end 0)
start len))) (raise-mismatch-error 'vector-copy
"end index must be 0 for empty vector, got "
end))
(vector)] (vector)]
[else [else
(unless (and (<= 0 start) (< start len)) (unless (and (<= 0 start) (< start len))
(raise-mismatch-error (raise-mismatch-error
'vector-copy 'vector-copy
(format "start index ~e out of range [~e, ~e] for vector ~e" (format "start index ~e out of range [~e, ~e] for vector: "
start 0 len v) start 0 len)
v)) v))
(unless (and (<= start end) (<= end len)) (unless (and (<= start end) (<= end len))
(raise-mismatch-error (raise-mismatch-error
'vector-copy 'vector-copy
(format "end index ~e out of range [~e, ~e] for vector ~e" (format "end index ~e out of range [~e, ~e] for vector: "
end start len v) end start len)
v)) v))
(vector-copy* v start end)]))) (vector-copy* v start end)])))