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

   1: #include "../h/rt.h"
   2: 
   3: /*
   4:  * x = y - test if x is numerically equal to y.
   5:  */
   6: 
   7: numeq(nargs, arg2, arg1, arg0)
   8: int nargs;
   9: struct descrip arg2, arg1, arg0;
  10:    {
  11:    DclSave
  12:    SetBound;
  13:    if (numcmp(&arg1, &arg2, &arg0) != 0)
  14:       fail();
  15:    ClearBound;
  16:    }
  17: 
  18: Opblock(numeq,2,"=")

Defined functions