[project @ 2003-07-30 17:09:12 by simonmar]

Fix problem with MARK.

Patch submitted by Nicholas Nethercote <njn25@cam.ac.uk>.

ghc/utils/hp2ps/Marks.c

@@ -16,7 +16,7 @@ Marks()
     floatish m;
 
     for (i = 0; i < nmarks; i++) {
-	m = (markmap[i] / xrange) * graphwidth;
+	m = ((markmap[i] - samplemap[0]) / xrange) * graphwidth;
 	Caret(xpage(m), ypage(0.0), 4.0);
     }
 }