public static Object numCompare(Object args, char op)
{
while (rest(args) is Pair)
{
double x = num(first(args)); args = rest(args);
double y = num(first(args));
switch (op)
{
case '>': if (!(x > y)) return FALSE; break;
case '<': if (!(x < y)) return FALSE; break;
case '=': if (!(x == y)) return FALSE; break;
case 'L': if (!(x <= y)) return FALSE; break;
case 'G': if (!(x >= y)) return FALSE; break;
default: error("internal error: unrecognized op: " + op); break;
}
}
return TRUE;
}