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

.

Browse Source 
original commit: e46543dea62ed245518382bb18f1024f1baff8e0
This commit is contained in:
Eli Barzilay 2004-06-17 12:01:53 +00:00
parent 1e3b6e860e
commit e24bea58de
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mzlib/foreign.ss
View File

@ -645,6 +645,10 @@
(let ([cblock (malloc len type)]) (let ([cblock (malloc len type)])
(make-cvector cblock type len))) (make-cvector cblock type len)))
(provide (rename cvector-args cvector))
(define (cvector-args type . args)
(list->cvector args type))
(define* (cvector-ref v i) (define* (cvector-ref v i)
(if (and (integer? i) (<= 0 i (sub1 (cvector-length v)))) (if (and (integer? i) (<= 0 i (sub1 (cvector-length v))))
(ptr-ref (cvector-ptr v) (cvector-type v) i) (ptr-ref (cvector-ptr v) (cvector-type v) i)
@ -688,8 +692,8 @@
[TAGname name]) [TAGname name])
#'(begin #'(begin
(define-struct TAG (ptr length)) (define-struct TAG (ptr length))
(provide TAG?) (provide TAG? TAG-length)
(provide TAG-length (rename allocate-TAG make-TAG)) (provide (rename allocate-TAG make-TAG))
(define (allocate-TAG n . init) (define (allocate-TAG n . init)
(let* ([p (malloc n type)] (let* ([p (malloc n type)]
[v (make-TAG p n)]) [v (make-TAG p n)])