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

windows.iphlpapi: use follow, it's simpler.

master
John Benediktsson 2020-04-02 17:30:13 -07:00
parent 94d97a20f5
commit a785e279d5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/windows/iphlpapi/iphlpapi.factor
View File

@ -4,8 +4,8 @@ USING: accessors alien alien.c-types alien.data alien.strings
alien.syntax arrays byte-arrays classes.struct combinators
combinators.smart destructors io.encodings.string
io.encodings.utf8 io.sockets io.sockets.private kernel libc
make refs sequences sequences.extras windows.errors
windows.kernel32 windows.types windows.winsock fry ;
make refs sequences windows.errors windows.kernel32
windows.types windows.winsock ;
IN: windows.iphlpapi
LIBRARY: iphlpapi
@ -404,7 +404,7 @@ FUNCTION: DWORD GetNetworkParams ( PFIXED_INFO pFixedInfo, PULONG pOutBufLen )
<PRIVATE
: loop-list ( obj -- seq )
[ [ dup [ Next>> ] when ] keep ] loop>array nip ;
[ Next>> ] follow ;
! Don't use this, use each/map-adapters
: iterate-interfaces ( -- seq )