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

fixed missing arg to raise-type-error

Browse Source
This commit is contained in:
Ryan Culpepper 2011-08-27 19:27:44 -06:00
parent d5d28d3357
commit c13c22f0e4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/racket/vector.rkt
View File

@ -231,7 +231,7 @@
(define-syntax-rule (vm-mk name cmp) (define-syntax-rule (vm-mk name cmp)
(define (name val vec) (define (name val vec)
(unless (vector? vec) (unless (vector? vec)
(raise-type-error 'name "vector" 1 vec)) (raise-type-error 'name "vector" 1 val vec))
(let ([sz (unsafe-vector-length vec)]) (let ([sz (unsafe-vector-length vec)])
(let loop ([k 0]) (let loop ([k 0])
(cond [(= k sz) #f] (cond [(= k sz) #f]