Re: Red-faced professor gets bitten in search for portability

[mcsun!sun4nl!cwi.nl!dik@uunet.uu.net (Dik T. Winter)]

In article <1991Nov22.152426.25797@verdix.com> chrisp@verdix.com (The Sunset Ki
d) writes:
 > In article <1991Nov22.090650.28@v7.vitro.com> vaxs09@v7.vitro.com writes:
 > >
 > >	FUNCTION Trunc ( X : Float ) RETURN Integer IS
 > >		i : integer := integer ( x );
 > >		if x < float(i) then
 > >			return i - 1;
 > >		else
 > >			return i;
 > >		endif;
 > >	END Trunc;
 > 
 > This version will not work for negative numbers.
Actually it does not work at all.  I failed to notice in my followup, but
the two return statements must of course be interchanged.
--
dik t. winter, cwi, kruislaan 413, 1098 sj  amsterdam, nederland
dik@cwi.nl (from bitnet also probably: dik@mcvax)