diff options
Diffstat (limited to 'layer')
-rwxr-xr-x | layer/linePrinter.ml | 7 |
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 } |