Commit 7e47e63c authored by bernd's avatar bernd
Browse files

no-hybrid tested

parent b981c93e

net2o-ip.fs

+4 −4
Original line number Diff line number Diff line
@@ -154,10 +154,10 @@ Defer .addr$ 
: unavail? ( n -- flag )

    0< IF

	errno >r

	r@ EPFNOSUPPORT =

	r@ EAFNOSUPPORT = or

	r@ EADDRNOTAVAIL = or

	r> ENETUNREACH = or

	[IFDEF] EPFNOSUPPORT  r@ EPFNOSUPPORT  = [ELSE] 0 [THEN]

	[IFDEF] EAFNOSUPPORT  r@ EAFNOSUPPORT  = or [THEN]

	[IFDEF] EADDRNOTAVAIL r@ EADDRNOTAVAIL = or [THEN]

	[IFDEF] ENETUNREACH   r> ENETUNREACH   = or [ELSE] rdrop [THEN]

    ELSE

	false

    THEN ;