From e09328e5e3230ee408f6af2cd454848c4d056702 Mon Sep 17 00:00:00 2001 From: Hans Hagen Date: Wed, 18 Jul 2018 18:32:31 +0200 Subject: 2018-07-18 17:40:00 --- metapost/context/base/mpiv/mp-node.mpiv | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) (limited to 'metapost') diff --git a/metapost/context/base/mpiv/mp-node.mpiv b/metapost/context/base/mpiv/mp-node.mpiv index b7abcd5e5..5829558e6 100644 --- a/metapost/context/base/mpiv/mp-node.mpiv +++ b/metapost/context/base/mpiv/mp-node.mpiv @@ -51,7 +51,9 @@ clearnodepath ; vardef makenode@#(text t) = for a = t : - if (path a) or (unknown a) or ((string a) and (length(a) = 0)) : + if (path a) or (unknown a) : + mfun_makenode@#(t,) + elseif (string a) and (length(a) = 0) : mfun_makenode@#(t,) else : mfun_makenode@#(nodepath, t,) @@ -62,7 +64,9 @@ enddef ; vardef node@#(text t) = for a = t : - if (path a) or (unknown a) or ((string a) and (length(a) = 0)) : + if (path a) or (unknown a) : + mfun_node@#(t,) + elseif (string a) and (length(a) = 0) : mfun_node@#(t,) else : mfun_node@#(nodepath, t,) @@ -73,7 +77,9 @@ enddef ; vardef nodeboundingpoint@#(text t) = for a = t : - if (path a) or (unknown a) or ((string a) and (length(a) = 0)) : + if (path a) or (unknown a) : + mfun_nodeboundingpoint@#(t) + elseif (string a) and (length(a) = 0) : mfun_nodeboundingpoint@#(t) else : mfun_nodeboundingpoint@#(nodepath,a) @@ -231,7 +237,7 @@ vardef betweennodes@#(suffix p)(expr f)(suffix q)(text s) = for a = s : if unknown t : t = a ; - nodeboundingpoint@#(q,t) + nodeboundingpoint@#(p,f) + mfun_nodeboundingpoint@#(q,t) + mfun_nodeboundingpoint@#(p,f) else : + relative@#(a) fi -- cgit v1.2.3