1 files changed, 21 insertions, 12 deletions

diff --git a/metapost/context/base/mp-func.mpiv b/metapost/context/base/mp-func.mpiv
index 58df711f2..b1b9d6d5d 100644
--- a/metapost/context/base/mp-func.mpiv
+++ b/metapost/context/base/mp-func.mpiv
@@ -23,30 +23,36 @@ mfun_pathconnectors[0] := ","   ;
 mfun_pathconnectors[1] := "--"  ;
 mfun_pathconnectors[2] := ".."  ;
 mfun_pathconnectors[3] := "..." ;
+mfun_pathconnectors[4] := "---" ;
 
 def pathconnectors = mfun_pathconnectors enddef ;
 
 vardef mfun_function (expr f) (expr u, t, b, e, s) =
     save x ; numeric x ;
+    save c ; string c ; c := if string f : f else : mfun_pathconnectors[f] fi ;
     for xx := b step s until e :
         hide (x := xx ;)
         if xx > b :
-            scantokens(mfun_pathconnectors[f])
+          scantokens(c)
         fi
         (scantokens(u),scantokens(t))
     endfor
 enddef ;
 
-def function       = mfun_function     enddef ; % let doesn't work here
-def punkedfunction = mfun_function (1) enddef ;
-def curvedfunction = mfun_function (2) enddef ;
-def tightfunction  = mfun_function (3) enddef ;
+def function            = mfun_function     enddef ; % let doesn't work here
+def constructedfunction = mfun_function     enddef ;
+def straightfunction    = mfun_function (1) enddef ;
+def curvedfunction      = mfun_function (2) enddef ;
+
+% def punkedfunction   = mfun_function (1) enddef ; % same as straightfunction
+% def tightfunction    = mfun_function (3) enddef ; % same as curvedfunction
 
 vardef mfun_constructedpath (expr f) (text t) =
     save ok ; boolean ok ; ok := false ;
+    save c ; string c ; c := if string f : f else : mfun_pathconnectors[f] fi ;
     for i=t :
         if ok :
-            scantokens(mfun_pathconnectors[f])
+            scantokens(c)
         else :
             ok := true ;
         fi
@@ -55,24 +61,27 @@ vardef mfun_constructedpath (expr f) (text t) =
 enddef ;
 
 def constructedpath = mfun_constructedpath     enddef ; % let doesn't work here
-def punkedpath      = mfun_constructedpath (1) enddef ;
+def straightpath    = mfun_constructedpath (1) enddef ;
 def curvedpath      = mfun_constructedpath (2) enddef ;
-def tightpath       = mfun_constructedpath (3) enddef ;
+
+% def punkedpath      = mfun_constructedpath (1) enddef ; % same as straightpath
+% def tightpath       = mfun_constructedpath (3) enddef ; % same as curvedpath
 
 vardef mfun_constructedpairs (expr f) (text p) =
     save i ; i := -1 ;
+    save c ; string c ; c := if string f : f else : mfun_pathconnectors[f] fi ;
     forever :
         exitif unknown p[incr(i)] ;
         if i>0 :
-            scantokens(mfun_pathconnectors[f])
+            scantokens(c)
         fi
         p[i]
     endfor
 enddef ;
 
 def constructedpairs = mfun_constructedpairs     enddef ; % let doesn't work here
-def punkedpairs      = mfun_constructedpairs (1) enddef ;
+def straightpairs    = mfun_constructedpairs (1) enddef ;
 def curvedpairs      = mfun_constructedpairs (2) enddef ;
-def tightpairs       = mfun_constructedpairs (3) enddef ;
-
 
+% def punkedpairs      = mfun_constructedpairs (1) enddef ; % same as straightpairs
+% def tightpairs       = mfun_constructedpairs (3) enddef ; % same as curvedpairs