Re: Fun-O Basic Edition Compiler

["Scott McKay" <address@hidden>]

"Carl Gay" <carlgay@mediaone.net> wrote in message
news:3C2938A6.4242FE86@mediaone.net...

>
> define method tak (x :: <integer>, y :: <integer>, z :: <integer>)
>   if (y >= x)
>     z
>   else
>     tak(tak(x - 1, y, z),
>         tak(y - 1, z, x),
>         tak(z - 1, x, y))
>   end if
> end;
>

Try adding '=> (r :: <integer>)' as the return result of 'tak'.  I'll bet
that your use of the implicit return type of <object> is defeating some
of FD's optimizations.