steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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 find-com-interface-definition family-tree
r> 1quotation [ >r iid>> r> 2array ] curry map r> 1quotation [ >r iid>> r> 2array ] curry map
] map-index concat ] map-index concat
[ f ] add , [ f ] prefix ,
\ case , \ case ,
"void*" heap-size "void*" heap-size
[ * rot <displaced-alien> com-add-ref 0 rot set-void*-nth S_OK ] [ * rot <displaced-alien> com-add-ref 0 rot set-void*-nth S_OK ]
@ -99,7 +99,7 @@ unless
PRIVATE> PRIVATE>
: <com-wrapper> ( implementations -- wrapper ) : <com-wrapper> ( implementations -- wrapper )
(make-vtbls) f com-wrapper construct-boa ; (make-vtbls) f com-wrapper boa ;
M: com-wrapper dispose M: com-wrapper dispose
t >>freed? t >>freed?