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

fix incorrect handling of extern "C" in xform

Browse Source 
svn: r6713
This commit is contained in:
Matthew Flatt 2007-06-21 08:40:38 +00:00
parent 1bae091b4a
commit 38f7ef41ed
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/compiler/private/xform.ss
View File

@ -1651,9 +1651,10 @@
(let ([name (tok-n (car e))] (let ([name (tok-n (car e))]
[type (let loop ([t (reverse type)]) [type (let loop ([t (reverse type)])
(if (pair? t) (if (pair? t)
(if (memq (tok-n (car t)) '(extern static virtual __stdcall __cdecl (if (or (memq (tok-n (car t)) '(extern static virtual __stdcall __cdecl
inline _inline __inline __inline__ inline _inline __inline __inline__
__xform_nongcing__)) __xform_nongcing__))
(equal? "C" (tok-n (car t))))
(loop (cdr t)) (loop (cdr t))
(cons (car t) (loop (cdr t)))) (cons (car t) (loop (cdr t))))
t))] t))]