From: ben <ben@cda61777-01e9-0310-a592-d414129be87e>
Date: Sun, 3 Dec 2006 13:23:55 +0000 (+0000)
Subject: Tweak prologue so that it works correctly on interpreters that don't support
X-Git-Url: https://git.distorted.org.uk/~mdw/sgt/halibut/commitdiff_plain/a80ef2f1edcb9f500ec97587688e1c315c9e1355

Tweak prologue so that it works correctly on interpreters that don't support
pdfmark, specifically by having the dummy versions of "p", "x", and "u" pop
their arguments rather than leaving them on the stack to cause trouble.


git-svn-id: svn://svn.tartarus.org/sgt/halibut@6956 cda61777-01e9-0310-a592-d414129be87e
---

diff --git a/bk_ps.c b/bk_ps.c
index 35fe582..261a22c 100644
--- a/bk_ps.c
+++ b/bk_ps.c
@@ -114,7 +114,9 @@ void ps_backend(paragraph *sourceform, keywordlist *keywords,
 	    "       [ /Action 3 -1 roll /Rect 5 -1 roll /Border [0 0 0 0]\n"
 	    "       /Subtype /Link /ANN pdfmark } bind def\n"
 	    "} {\n"
-	    "  [/p /x /u] { null cvx def } forall\n"
+	    "  /p { pop } bind def\n"
+	    "  /x { pop pop } bind def\n"
+	    "  /u /x load def\n"
 	    "} ifelse\n");
 
     fprintf(fp, "%%%%EndResource\n");