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

ffi/com repair

Browse Source 
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).
This commit is contained in:
Matthew Flatt 2015-07-10 08:26:21 +02:00
parent d6fa581a4c
commit 231e9b3f81
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/collects/ffi/unsafe/com.rkt
View File

@ -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))))))