9int f_eq(
int argc,
const int *argt,
void **args)
19 if (argt[0] != CELL_TYPE)
22 for (i = 2; i <= argc; i++)
23 if (argt[i] != argt[1])
32 if (IS_NULL_C(&arg1[i]) || IS_NULL_C(&arg2[i]))
35 res[i] = arg1[i] == arg2[i];
40 FCELL *arg1 = args[1];
41 FCELL *arg2 = args[2];
44 if (IS_NULL_F(&arg1[i]) || IS_NULL_F(&arg2[i]))
47 res[i] = arg1[i] == arg2[i];
52 DCELL *arg1 = args[1];
53 DCELL *arg2 = args[2];
56 if (IS_NULL_D(&arg1[i]) || IS_NULL_D(&arg2[i]))
59 res[i] = arg1[i] == arg2[i];