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

Defined functions

eqv defined in line 7; used 1 times
  • in line 26
Last modified: 1984-11-18
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 589
Valid CSS Valid XHTML 1.0 Strict