X-Git-Url: https://git.distorted.org.uk/~mdw/sgt/halibut/blobdiff_plain/f8194b2183dd1edcf5be1da2d2b9d32f1f2a6ce2..c885c2ffbb3aea5c255d3b2e767d4450b2bebcc6:/bk_ps.c?ds=sidebyside

diff --git a/bk_ps.c b/bk_ps.c
index 35fe582..41b70d2 100644
--- a/bk_ps.c
+++ b/bk_ps.c
@@ -108,13 +108,15 @@ void ps_backend(paragraph *sourceform, keywordlist *keywords,
 	    "/pdfmark where { pop\n"
 	    "  /p { [ /Dest 3 -1 roll /View [ /XYZ null null null ]\n"
 	    "       /DEST pdfmark } bind def\n"
-	    "  /x { [ /Dest 3 -1 roll /Rect 5 -1 roll /Border [0 0 0 0]\n"
+	    "  /x { [ /Dest 3 -1 roll /Rect 5 -1 roll /Border [0 0 0]\n"
 	    "       /Subtype /Link /ANN pdfmark } bind def\n"
 	    "  /u { 2 dict dup /Subtype /URI put dup /URI 4 -1 roll put\n"
-	    "       [ /Action 3 -1 roll /Rect 5 -1 roll /Border [0 0 0 0]\n"
+	    "       [ /Action 3 -1 roll /Rect 5 -1 roll /Border [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");