From 231e9b3f8122b9d5dc768d0a3be6c9702c0a6507 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 10 Jul 2015 08:26:21 +0200 Subject: [PATCH] ffi/com repair Thanks to Kang Ren. The repair seems obviously correct, but I don't know how to test it (i.e., don't have a COM object that would exercise the code). --- racket/collects/ffi/unsafe/com.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/collects/ffi/unsafe/com.rkt b/racket/collects/ffi/unsafe/com.rkt index 3822a92c92..b5b18e1e92 100644 --- a/racket/collects/ffi/unsafe/com.rkt +++ b/racket/collects/ffi/unsafe/com.rkt @@ -920,7 +920,7 @@ accum2 (for/fold ([accum accum2]) ([i (in-range (TYPEATTR-cVars type-attr))]) (define var-desc (GetVarDesc type-info i)) - (let-values ([(name count) (GetNames type-info (FUNCDESC-memid var-desc))]) + (let-values ([(name count) (GetNames type-info (VARDESC-memid var-desc))]) (begin0 (cons name accum) (ReleaseVarDesc type-info var-desc))))))