id	summary	reporter	owner	description	type	status	priority	milestone	component	version	resolution	keywords	cc
151	PANIC in Source.DefixApps ($ do)	erikd	erikd	"Translated Ocaml version of Jensens device:

    http://rosettacode.org/wiki/Jensen's_Device

to Disciple as:

{{{
-- A mutable Int.
i :: Int %r0 :- Mutable %r0
i = 42 -- initial value doesn't matter
 

sum' i lo hi term
 = do	result = 0.0
	i := lo
	while (i <= hi)
	 $ do	result := result + term ()
		i := i + 1
	result
main ()
 =	println $ show $ sum' i 1 100 (\ () -> 1.0 / toFloat i)

}}}

and got:

{{{
ddc: PANIC in Source.DefixApps
        makeXDefixApps: parse error at
        ./jensens.ds:13:9   xx = []
}}}
"	defect	closed	blocker	0.1.3	Source Desugarer	0.1.2	fixed