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

these operations do not exist

Browse Source 
svn: r18558
This commit is contained in:
Sam Tobin-Hochstadt 2010-03-17 16:51:04 +00:00
parent 5f6aeb364f
commit fe68168e3d
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/typed-scheme/private/base-env-numeric.ss
View File

@ -241,15 +241,13 @@
[flvector? (make-pred-ty -FlVector)]
[flvector (->* (list) -Flonum -FlVector)]
[make-flvector (-> -Integer -Flonum -FlVector)]
[make-flvector (-> -Nat -Flonum -FlVector)]
[flvector-length (-> -FlVector -Nat)]
[flvector-ref (-> -FlVector -Nat -Flonum)]
[flvector-set! (-> -FlVector -Nat -Flonum -Void)]
;; unsafe flvector ops
[unsafe-flvector (->* (list) -Flonum -FlVector)]
[unsafe-make-flvector (-> -Integer -Flonum -FlVector)]
[unsafe-flvector-length (-> -FlVector -Nat)]
[unsafe-flvector-ref (-> -FlVector -Nat -Flonum)]
[unsafe-flvector-set! (-> -FlVector -Nat -Flonum -Void)]