From 1f8c4726d3da14ebb6071bdba5888ebe763329d0 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Wed, 10 Jun 2009 11:22:00 +0200
Subject: beta 2009.06.10 11:22

---
 metapost/context/base/mp-base.mp | 5 +++--
 metapost/context/base/mp-spec.mp | 8 +++++---
 metapost/context/base/mp-tool.mp | 3 +--
 3 files changed, 9 insertions(+), 7 deletions(-)

(limited to 'metapost')

diff --git a/metapost/context/base/mp-base.mp b/metapost/context/base/mp-base.mp
index 41eb7aa96..d0b3991c8 100644
--- a/metapost/context/base/mp-base.mp
+++ b/metapost/context/base/mp-base.mp
@@ -521,7 +521,7 @@ tertiarydef m thru n =
 %% Overall adminstration
 
 string extra_beginfig, extra_endfig;
-extra_beginfig = extra_endfig = "";
+extra_beginfig = extra_endfig = "" ;
 
 def beginfig(expr c) =
   begingroup
@@ -533,8 +533,9 @@ def beginfig(expr c) =
 enddef;
 
 def endfig =
+  ; % added by HH
   scantokens extra_endfig;
-  shipit;
+  shipit ;
   endgroup
 enddef;
 
diff --git a/metapost/context/base/mp-spec.mp b/metapost/context/base/mp-spec.mp
index f28e5a5d3..21e5e4e1c 100644
--- a/metapost/context/base/mp-spec.mp
+++ b/metapost/context/base/mp-spec.mp
@@ -113,9 +113,11 @@ boolean insidefigure ; insidefigure := false ;
 extra_beginfig :=
   " insidefigure := true ; " &
   " reset_extra_specials ; " &
-    extra_beginfig ;
+    extra_beginfig           &
+  " ; "                      ;
 
 extra_endfig :=
+  " ; "                       &
   " add_special_signal ; "    &
     extra_endfig              &
   " add_extra_specials ; "    &
@@ -474,7 +476,7 @@ enddef ;
 
 _cmyk_counter_ := 0 ;
 
-extra_endfig := " resetcmykcolors ; " & extra_endfig ;
+extra_endfig := " ; resetcmykcolors ; " & extra_endfig ;
 
 def resetcmykcolors =
   numeric cmykcolorhash[][][][] ;
@@ -522,7 +524,7 @@ enddef ;
 _spotcolor_counter_ := 0 ;
 _spotcolor_number_ := 0 ;
 
-extra_endfig := " resetspotcolors ; " & extra_endfig ;
+extra_endfig := " ; resetspotcolors ; " & extra_endfig ;
 
 def resetspotcolors =
   numeric spotcolorhash[][] ;
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 ;
-- 
cgit v1.2.3