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