Get windows.com.wrapper to load
parent
17f395281a
commit
ec31bfe253
|
@ -29,7 +29,7 @@ unless
|
|||
>r find-com-interface-definition family-tree
|
||||
r> 1quotation [ >r iid>> r> 2array ] curry map
|
||||
] map-index concat
|
||||
[ f ] add ,
|
||||
[ f ] prefix ,
|
||||
\ case ,
|
||||
"void*" heap-size
|
||||
[ * rot <displaced-alien> com-add-ref 0 rot set-void*-nth S_OK ]
|
||||
|
@ -99,7 +99,7 @@ unless
|
|||
PRIVATE>
|
||||
|
||||
: <com-wrapper> ( implementations -- wrapper )
|
||||
(make-vtbls) f com-wrapper construct-boa ;
|
||||
(make-vtbls) f com-wrapper boa ;
|
||||
|
||||
M: com-wrapper dispose
|
||||
t >>freed?
|
||||
|
|
Loading…
Reference in New Issue