Add flvector-copy to TR base env.
This commit is contained in:
parent
11006d3b5e
commit
2ff1927f6c
|
@ -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)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user