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        }  | 
