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

fix misuse of _

Browse Source 
svn: r10569
This commit is contained in:
Eli Barzilay 2008-07-03 00:49:52 +00:00
parent ec12a7f459
commit ecfc0cd104
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mzlib/foreign.ss
View File

@ -1221,8 +1221,8 @@
(provide define-cpointer-type) (provide define-cpointer-type)
(define-syntax (define-cpointer-type stx) (define-syntax (define-cpointer-type stx)
(syntax-case stx () (syntax-case stx ()
[(_ _TYPE) #'(_ _TYPE #f #f #f)] [(_ _TYPE) #'(define-cpointer-type _TYPE #f #f #f)]
[(frm _TYPE ptr-type) #'(frm _TYPE ptr-type #f #f)] [(_ _TYPE ptr-type) #'(define-cpointer-type _TYPE ptr-type #f #f)]
[(_ _TYPE ptr-type scheme->c c->scheme) [(_ _TYPE ptr-type scheme->c c->scheme)
(and (identifier? #'_TYPE) (and (identifier? #'_TYPE)
(regexp-match #rx"^_.+" (symbol->string (syntax-e #'_TYPE)))) (regexp-match #rx"^_.+" (symbol->string (syntax-e #'_TYPE))))