Fixed build-vector's type.

original commit: f27aac552fde4580850493dbde9fbb3d4a989e5a
This commit is contained in:
Vincent St-Amour 2010-06-28 11:18:04 -04:00
parent 783b505c9d
commit be0e26235a

View File

@ -132,7 +132,7 @@
[vector-ref (-poly (a) ((-vec a) index-type . -> . a))]
[unsafe-vector-ref (-poly (a) ((-vec a) index-type . -> . a))]
[unsafe-vector*-ref (-poly (a) ((-vec a) index-type . -> . a))]
[build-vector (-poly (a) (index-type (index-type . -> . a) . -> . (-vec a)))]
[build-vector (-poly (a) (index-type (-Nat . -> . a) . -> . (-vec a)))]
[vector-set! (-poly (a) (-> (-vec a) index-type a -Void))]
[unsafe-vector-set! (-poly (a) (-> (-vec a) index-type a -Void))]
[unsafe-vector*-set! (-poly (a) (-> (-vec a) index-type a -Void))]