Merge branch 'master' of factorcode.org:/git/factor
commit
af8da7d804
|
@ -221,3 +221,9 @@ M: duplex-stream underlying-handle
|
|||
[ in>> underlying-handle ]
|
||||
[ out>> underlying-handle ] bi
|
||||
[ = [ "Invalid duplex stream" throw ] when ] keep ;
|
||||
|
||||
M: encoder underlying-handle
|
||||
stream>> underlying-handle ;
|
||||
|
||||
M: decoder underlying-handle
|
||||
stream>> underlying-handle ;
|
||||
|
|
|
@ -41,8 +41,9 @@ SYMBOL: stop-after-last-window?
|
|||
windows global [ [ first = not ] with filter ] change-at ;
|
||||
|
||||
: raised-window ( world -- )
|
||||
windows get-global [ second eq? ] with find drop
|
||||
windows get-global [ length 1- ] keep exchange ;
|
||||
windows get-global
|
||||
[ [ second eq? ] with find drop ] keep
|
||||
[ nth ] [ delete-nth ] [ nip ] 2tri push ;
|
||||
|
||||
: focus-gestures ( new old -- )
|
||||
drop-prefix <reversed>
|
||||
|
|
|
@ -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