no-hybrid tested

7e47e63c · bernd · b981c93e · 7e47e63c
Commit 7e47e63c authored Apr 23, 2016 by bernd
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 4 deletions

net2o-ip.fs net2o-ip.fs +4 -4

No files found.
--- a/net2o-ip.fs
+++ b/net2o-ip.fs
@@ -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 ;