ffi/unsafe/com: infer 'any type for `com-omit'

This commit is contained in:
Matthew Flatt 2012-04-25 00:11:06 -06:00
parent 9ba663aa77
commit ffea2b2c02

View File

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