[ not ]
} 1|| ;
-MACRO:: unix-system-call ( quot -- )
+MACRO:: unix-system-call ( quot -- quot )
quot inputs :> n
quot first :> word
0 :> ret!
] if
] ;
-MACRO:: unix-system-call-allow-eintr ( quot -- )
+MACRO:: unix-system-call-allow-eintr ( quot -- quot )
quot inputs :> n
quot first :> word
0 :> ret!