Hugs-Bugs

Download

hugs-bugs@haskell.org

March 2008

3 participants
2 discussions

[Hugs] #83: INTERNAL ERROR: findBtyvsInt
by Hugs 30 Mar '08

30 Mar '08

#83: INTERNAL ERROR: findBtyvsInt --------------------+------------------------------------------------------- Reporter: guest | Owner: nobody Type: defect | Status: new Priority: minor | Milestone: Component: hugs | Version: 200609 Keywords: | --------------------+------------------------------------------------------- {{{ % hugs -98 __ __ __ __ ____ ___ _________________________________________ || || || || || || ||__ Hugs 98: Based on the Haskell 98 standard ||___|| ||__|| ||__|| __|| Copyright (c) 1994-2005 ||---|| ___|| World Wide Web: http://haskell.org/hugs || || Bugs: http://hackage.haskell.org/trac/hugs || || Version: September 2006 _________________________________________ Hugs mode: Restart with command line option +98 for Haskell 98 mode Type :? for help Hugs> case 0 of (_ :: d) -> case 0 of (_ :: e) -> undefined :: d INTERNAL ERROR: findBtyvsInt Please report this Hugs bug to http://hackage.haskell.org/trac/hugs Hugs> }}} {{{ % uname -a FreeBSD glider 7.0-STABLE FreeBSD 7.0-STABLE #1: Sun Mar 16 05:28:34 PDT 2008 root@:/usr/obj/usr/src/sys/GENERIC i386 }}} I ran into this at random, so it's not a problem for me, but I thought I'd report it anyway. James Cook http://www.falsifian.org/ james.cook(a)utoronto.ca -- Ticket URL: <http://hackage.haskell.org/trac/hugs/ticket/83> Hugs <http://www.haskell.org/hugs/> Hugs 98, an interpreter for Haskell

1 0

1.0 / 0.0 is not infinite
by Henk-Jan van Tuyl 30 Mar '08

30 Mar '08

I tried: Hugs> 1.0 / 0.0 1.#INF Hugs> isInfinite $ 1.0 / 0.0 False in WinHugs (Version: Sep 2006) When the same is entered in GHCi, the result is True, as expected. The definition of isInfinite in Prelude is: isInfinite _ = False An better definition could be as in the following: Hugs> let isInfinite' x = x == (1.0 / 0.0) in isInfinite' (3.1416 / 0.0) True -- Met vriendelijke groet, Henk-Jan van Tuyl -- http://functor.bamikanarie.com http://Van.Tuyl.eu/ --

2 1