callouts

simonmar · May 20, 2013 · 7cbc5fc · 7cbc5fc
1 parent 5391fdb
commit 7cbc5fc
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/mandel/mandel.hs b/mandel/mandel.hs
@@ -101,16 +101,16 @@ dot = lift1 f
 -- >>
 
 
--- <<iter0
+-- <<iter
 iter :: Exp Complex -> Exp (Complex,Int) -> Exp (Complex,Int)
 iter c p =
   let
-     (z,i) = unlift p :: (Exp Complex, Exp Int)
-     z' = next c z
+     (z,i) = unlift p :: (Exp Complex, Exp Int)    -- <1>
+     z' = next c z                                 -- <2>
   in
-  (dot z' >* 4.0) ?
-     ( p
-     , lift (z', i+1)
+  (dot z' >* 4.0) ?                                -- <3>
+     ( p                                           -- <4>
+     , lift (z', i+1)                              -- <5>
      )
 -- >>