From 96f1d779c1263bef3cd2aa13b7462e0020aa5462 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Fri, 28 May 2004 16:32:32 +0000 Subject: [PATCH] change require to internal module ffi-ptr -> cpointer original commit: e36076496ad8660b3960f1ef70ccb07760bd2d0d --- collects/mzlib/foreign.ss | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/mzlib/foreign.ss b/collects/mzlib/foreign.ss index c32a5a8..0d10427 100644 --- a/collects/mzlib/foreign.ss +++ b/collects/mzlib/foreign.ss @@ -2,11 +2,11 @@ (module ffi mzscheme -(require "ffi-prim.ss") +(require #%foreign) (require-for-syntax (lib "stx.ss" "syntax")) (provide ffi-lib ffi-malloc ffi-sizeof ffi-alignof - ffi-ptr? ptr-ref ptr-set! ptr-equal? + cpointer? ptr-ref ptr-set! ptr-equal? make-ffi-type make-ffi-struct-type ffi-register-finalizer make-sized-byte-string) (provide _void _int8 _uint8 _byte _int16 _uint16 _word _int32 _uint32 _int @@ -398,7 +398,7 @@ cblock))) (define* (cblock->list cblock type len) (cond [(zero? len) '()] - [(ffi-ptr? cblock) + [(cpointer? cblock) (let loop ([i (sub1 len)] [r '()]) (if (< i 0) r @@ -419,7 +419,7 @@ cblock)))) (define* (cblock->vector cblock type len) (cond [(zero? len) '#()] - [(ffi-ptr? cblock) + [(cpointer? cblock) (let ([v (make-vector len)]) (let loop ([i (sub1 len)]) (unless (< i 0)