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

Change cpointer tag to be a symbol

Browse Source
This commit is contained in:
Kevin Tew 2011-08-22 14:31:47 -06:00
parent 5e16770932
commit fa4bb9dda0
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/ffi/unsafe.rkt
View File

@ -1198,12 +1198,11 @@
(define (id . strings) (define (id . strings)
(datum->syntax (datum->syntax
#'_TYPE (string->symbol (apply string-append strings)) #'_TYPE)) #'_TYPE (string->symbol (apply string-append strings)) #'_TYPE))
(with-syntax ([name-string name] (with-syntax ([TYPE? (id name "?")]
[TYPE? (id name "?")]
[TYPE-tag (id name "-tag")] [TYPE-tag (id name "-tag")]
[_TYPE/null (id "_" name "/null")]) [_TYPE/null (id "_" name "/null")])
#'(define-values (_TYPE _TYPE/null TYPE? TYPE-tag) #'(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) (values (_cpointer TYPE-tag ptr-type scheme->c c->scheme)
(_cpointer/null TYPE-tag ptr-type scheme->c c->scheme) (_cpointer/null TYPE-tag ptr-type scheme->c c->scheme)
(lambda (x) (lambda (x)
@ -1286,7 +1285,6 @@
(and (identifier? x) (identifier? y) (free-identifier=? x y))) (and (identifier? x) (identifier? y) (free-identifier=? x y)))
(with-syntax (with-syntax
([has-super? has-super?] ([has-super? has-super?]
[name-string name]
[struct-string (format "struct:~a" name)] [struct-string (format "struct:~a" name)]
[(slot ...) slot-names-stx] [(slot ...) slot-names-stx]
[(slot-type ...) slot-types-stx] [(slot-type ...) slot-types-stx]