PANIC in Source.DefixApps ($ do)

[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 = []

[erikd]

The problem is actually the '$' followed by 'do':

   while (k < count)
    $ do	result := 2.0 * result

Test is T151-DollarDo?.

[erikd]

Fixed in:

Sat Feb 27 13:29:27 EST 2010 Erik de Castro Lopo <erikd@…> Fix #151 : Warn on redundant '$' operator instead of panicing.