Get windows.com.wrapper to load

db4
U-SLAVA-DFB8FF805\Slava 2008-05-09 16:22:34 -05:00
parent 17f395281a
commit ec31bfe253
1 changed files with 2 additions and 2 deletions

4
extra/windows/com/wrapper/wrapper.factor Normal file → Executable file
View File

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