Add flvector-copy to TR base env.

This commit is contained in:
Ray Racine 2012-08-07 17:19:05 -04:00 committed by Vincent St-Amour
parent 11006d3b5e
commit 2ff1927f6c

View File

@ -275,6 +275,9 @@
[flvector-set! (cl->* (-> -FlVector -NonNegFixnum -Flonum -Void) [flvector-set! (cl->* (-> -FlVector -NonNegFixnum -Flonum -Void)
(-> -FlVector -Fixnum -Flonum -Void) (-> -FlVector -Fixnum -Flonum -Void)
(-> -FlVector index-type -Flonum -Void))] (-> -FlVector index-type -Flonum -Void))]
[flvector-copy (cl->* (-> -FlVector -FlVector)
(-> -FlVector index-type -FlVector)
(-> -FlVector index-type index-type -FlVector))]
[unsafe-flvector-length (-> -FlVector -NonNegFixnum)] [unsafe-flvector-length (-> -FlVector -NonNegFixnum)]
[unsafe-flvector-ref (cl->* (-> -FlVector -NonNegFixnum -Flonum) [unsafe-flvector-ref (cl->* (-> -FlVector -NonNegFixnum -Flonum)