aboutsummaryrefslogtreecommitdiff
path: root/layer/linePrinter.ml
diff options
context:
space:
mode:
Diffstat (limited to 'layer/linePrinter.ml')
-rwxr-xr-xlayer/linePrinter.ml7
1 files changed, 4 insertions, 3 deletions
diff --git a/layer/linePrinter.ml b/layer/linePrinter.ml
index c15bcc9..38dae5c 100755
--- a/layer/linePrinter.ml
+++ b/layer/linePrinter.ml
@@ -37,9 +37,10 @@ module Make(Repr: Repr.PRINTER) = struct
let line_to
: Path.Point.t -> Path.Point.t -> repr -> repr
- = fun _ t {path} ->
- let path = Repr.line_to (Path.Point.get_coord t) path
- |> mark t in
+ = fun p0 p1 {path} ->
+ let path = Repr.move_to (Path.Point.get_coord p0) path
+ |> Repr.line_to (Path.Point.get_coord p1)
+ |> mark p1 in
{ path
}