4.3BSD - /usr/src/new/icon/operators/neqv.c

   1: #include "../h/rt.h"
   2: 
   3: /*
   4:  * x ~=== y - test inequivalence of x and y.
   5:  */
   6: 
   7: neqv(nargs, arg2, arg1, arg0)
   8: int nargs;
   9: struct descrip arg2, arg1, arg0;
  10:    {
  11:    DclSave
  12:    SetBound;
  13: 
  14:    /*
  15:     * equiv does all the work.
  16:     */
  17:    DeRef(arg1)
  18:    DeRef(arg2)
  19:    if (equiv(&arg1, &arg2))
  20:       fail();
  21:    arg0 = arg2;
  22:    ClearBound;
  23:    }
  24: 
  25: Opblock(neqv,2,"~===")

Defined functions