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

24
collects/scheme/vector.ss
View File

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