🚀 go-pugleaf

There's a bug in XScheme's <, <=, =, >= and > predicates.
Try the following:

	(= 10 20 30)

This should fail with a "bad continuation" message. The problem
is in the compare() function [xsmath.c]. It looks roughly as follows:

	compare(fcn)
        {
	    ...
	    for(icmp = TRUE; icmp && moreargs(); ..) {
		/* consume one more argument, compare it (using fcn)
		 * and set icmp to false if the comparison failed
		 */
	    }
	    return icmp ? true : NIL;
	}

As you can see, if the test fails before all arguments have been
consumed, the function will (try to) return, treating the remaining
arguments as the continuation...   The fix is simply to drop the
remaining arguments before returning:

	    drop(xlargc);
	    return icmp ...;


/Mike
-- 
Mikael Pettersson, Dept of Comp & Info Sci, University of Linkoping, Sweden
email: mpe@ida.liu.se or ...!{mcsun,munnari,uunet,unido,...}!sunic!liuida!mpe