From 38f7ef41ed493f6fc10c31b7792fed7cf3abd147 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 21 Jun 2007 08:40:38 +0000 Subject: [PATCH] fix incorrect handling of extern "C" in xform svn: r6713 --- collects/compiler/private/xform.ss | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/compiler/private/xform.ss b/collects/compiler/private/xform.ss index 35c466f944..1b420e5122 100644 --- a/collects/compiler/private/xform.ss +++ b/collects/compiler/private/xform.ss @@ -1651,9 +1651,10 @@ (let ([name (tok-n (car e))] [type (let loop ([t (reverse type)]) (if (pair? t) - (if (memq (tok-n (car t)) '(extern static virtual __stdcall __cdecl - inline _inline __inline __inline__ - __xform_nongcing__)) + (if (or (memq (tok-n (car t)) '(extern static virtual __stdcall __cdecl + inline _inline __inline __inline__ + __xform_nongcing__)) + (equal? "C" (tok-n (car t)))) (loop (cdr t)) (cons (car t) (loop (cdr t)))) t))]