Return to neqv.c CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / operators

BSD 4.3

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

/*
 * x ~=== y - test inequivalence of x and y.
 */

neqv(nargs, arg2, arg1, arg0)
int nargs;
struct descrip arg2, arg1, arg0;
   {
   DclSave
   SetBound;

   /*
    * equiv does all the work.
    */
   DeRef(arg1)
   DeRef(arg2)
   if (equiv(&arg1, &arg2))
      fail();
   arg0 = arg2;
   ClearBound;
   }

Opblock(neqv,2,"~===")

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.