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,,