From fa4bb9dda0a16227994f080aa47665b49dbf4f2f Mon Sep 17 00:00:00 2001 From: Kevin Tew Date: Mon, 22 Aug 2011 14:31:47 -0600 Subject: [PATCH] Change cpointer tag to be a symbol --- collects/ffi/unsafe.rkt | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/collects/ffi/unsafe.rkt b/collects/ffi/unsafe.rkt index 28df2e3f7a..0e5893c040 100644 --- a/collects/ffi/unsafe.rkt +++ b/collects/ffi/unsafe.rkt @@ -1198,12 +1198,11 @@ (define (id . strings) (datum->syntax #'_TYPE (string->symbol (apply string-append strings)) #'_TYPE)) - (with-syntax ([name-string name] - [TYPE? (id name "?")] + (with-syntax ([TYPE? (id name "?")] [TYPE-tag (id name "-tag")] [_TYPE/null (id "_" name "/null")]) #'(define-values (_TYPE _TYPE/null TYPE? TYPE-tag) - (let ([TYPE-tag name-string]) + (let ([TYPE-tag '_TYPE]) (values (_cpointer TYPE-tag ptr-type scheme->c c->scheme) (_cpointer/null TYPE-tag ptr-type scheme->c c->scheme) (lambda (x) @@ -1286,7 +1285,6 @@ (and (identifier? x) (identifier? y) (free-identifier=? x y))) (with-syntax ([has-super? has-super?] - [name-string name] [struct-string (format "struct:~a" name)] [(slot ...) slot-names-stx] [(slot-type ...) slot-types-stx]