12 lines
265 B
Factor
12 lines
265 B
Factor
|
USING: destructors io.windows kernel windows.kernel32
|
||
|
|
windows.winsock ;
|
||
|
|
IN: detructors.windows
|
||
|
|
|
||
|
|
M: windows-io (handle-destructor) ( obj -- )
|
||
|
|
destructor-obj CloseHandle drop ;
|
||
|
|
|
||
|
|
M: windows-io (socket-destructor) ( obj -- )
|
||
|
|
destructor-obj closesocket drop ;
|
||
|
|
|
||
|
|
|