| __ __ __ __ ____ ___ __________________________________________
| || || || || || || ||__ Hugs 1.3c: The Haskell User's Gofer System
| ||___|| ||__|| ||__|| __|| Copyright (c) Mark P Jones,
| ||---|| ___|| The University of Nottingham, 1994-1998.
| || || Report bugs to [EMAIL PROTECTED]
| || || [March 1998] __________________________________________
So, do you folks like the new logo? Perhaps this will finally stop people
spelling out Hugs in capitals! :-)
| ? foldl1 (*) (map (\x -> 1.0 - (x/10)) [0..7])
|
| ERROR: Unresolved overloading
| *** type : Fractional Int => Int
| *** expression : foldl1 (*) (map (\x -> 1.0 - x / 10) (enumFromTo 0 7))
This is a result of a silly bug in the Hugs 1.3c implementation of defaulting.
The fix is easy. In preds.c, change line 679 (or thereabouts) from:
while (nonNull(cs1) && nonNull(entail(NIL,ap(hd(cs),hd(ds)),0)))
to:
while (nonNull(cs1) && nonNull(entail(NIL,ap(hd(cs1),hd(ds)),0)))
^
Yep, just add that single `1' character. Alternatively, you can apply
the patches for [March 1998 p1] that I posted earlier ... but don't do
both or the changes will cancel out!
Thanks for bringing this to my attention! For those that don't want to
go hacking on Hugs source themselves, there will be another release of
Hugs soon (either 1.4 or 1.3c) that includes the fix (plus a couple of
others that I've generated :-).
All the best,
Mark
