Allow point movement

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
       }