diff options
Diffstat (limited to 'metapost/context/base/mp-tool.mp')
-rw-r--r-- | metapost/context/base/mp-tool.mp | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/metapost/context/base/mp-tool.mp b/metapost/context/base/mp-tool.mp index f80c867b9..aa3d77f26 100644 --- a/metapost/context/base/mp-tool.mp +++ b/metapost/context/base/mp-tool.mp @@ -1018,7 +1018,7 @@ enddef ; % not yet ok -def leftrightpath(expr p, l) = +def leftrightpath(expr p, l) = % used in s-pre-19 save q, r, t, b ; path q, r ; pair t, b ; t := (ulcorner p -- urcorner p) intersection_point p ; b := (llcorner p -- lrcorner p) intersection_point p ; @@ -1027,7 +1027,6 @@ def leftrightpath(expr p, l) = q := q if xpart point 0 of r > 0 : & r fi cutafter if l: b else: t fi ; q - x enddef ; vardef leftpath expr p = leftrightpath(p,true ) enddef ; |