Fix typo
This commit is contained in:
parent
8bb41e590d
commit
a5abfa9a0d
|
@ -423,7 +423,7 @@
|
||||||
[else #'(foreign-procedure s ...)])]))
|
[else #'(foreign-procedure s ...)])]))
|
||||||
|
|
||||||
;; This is an inconvenient callback interface, certainly, but it
|
;; This is an inconvenient callback interface, certainly, but it
|
||||||
;; accomodates a limitatuon of the traditional Racket implementation
|
;; accomodates a limitation of the traditional Racket implementation
|
||||||
(define (run-one-collect-callback v save sel)
|
(define (run-one-collect-callback v save sel)
|
||||||
(let ([protocol (#%vector-ref v 0)]
|
(let ([protocol (#%vector-ref v 0)]
|
||||||
[proc (cpointer-address (#%vector-ref v 1))]
|
[proc (cpointer-address (#%vector-ref v 1))]
|
||||||
|
|
Loading…
Reference in New Issue
Block a user