From ffea2b2c0246a35da6a4d356327ea0bf29da12b4 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 25 Apr 2012 00:11:06 -0600 Subject: [PATCH] ffi/unsafe/com: infer 'any type for `com-omit' --- collects/ffi/unsafe/com.rkt | 1 + 1 file changed, 1 insertion(+) diff --git a/collects/ffi/unsafe/com.rkt b/collects/ffi/unsafe/com.rkt index 6437e152ea..5deec7e37a 100644 --- a/collects/ffi/unsafe/com.rkt +++ b/collects/ffi/unsafe/com.rkt @@ -1137,6 +1137,7 @@ [(real? arg) 'double] [(com-object? arg) 'com-object] [(IUnknown? arg) 'iunknown] + [(eq? com-omit arg) 'any] [else (error 'com "cannot infer marshal format for value: ~e" arg)])) (define (elem-desc-ref func-desc i)