4.3BSD/usr/contrib/icon/operators/numne.c

Compare this file to the similar file:
Show the results in this format:

#include "../h/rt.h"

/*
 * x ~= y - test if x is numerically not equal to y.
 */

numne(nargs, arg2, arg1, arg0)
int nargs;
struct descrip arg2, arg1, arg0;
   {
   DclSave
   SetBound;
   if (numcmp(&arg1, &arg2, &arg0) == 0)
      fail();
   ClearBound;
   }

Opblock(numne,2,"~=")