9int f_sub(
int argc,
const int *argt,
void **args)
18 if (argt[1] != argt[0] || argt[2] != argt[0])
28 if (IS_NULL_C(&arg1[i]) || IS_NULL_C(&arg2[i]))
31 res[i] = arg1[i] - arg2[i];
37 FCELL *arg1 = args[1];
38 FCELL *arg2 = args[2];
41 if (IS_NULL_F(&arg1[i]) || IS_NULL_F(&arg2[i]))
44 res[i] = arg1[i] - arg2[i];
50 DCELL *arg1 = args[1];
51 DCELL *arg2 = args[2];
54 if (IS_NULL_D(&arg1[i]) || IS_NULL_D(&arg2[i]))
57 res[i] = arg1[i] - arg2[i];