From 1eca6a96734614ee4782af8c51324f924e68f975 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Tue, 26 Oct 2021 02:37:13 +0100
Subject: [PATCH] break out arrow_any

---
 pumpkin-books.ps.pl | 21 +++++++++++++--------
 1 file changed, 13 insertions(+), 8 deletions(-)

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 375ed4a..d267dc8 100755
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -542,7 +542,18 @@ END
 
   $o;
 }
-  
+
+sub arrow_any ($) { <<END;
+  $black 1 setlinewidth
+    newpath
+       $_[0]
+       arrowhead dup neg exch  rmoveto
+       arrowhead dup neg       rlineto
+       arrowhead neg dup       rlineto
+       stroke
+END
+};
+
 print <<END or die $!;
 %!
 
@@ -576,13 +587,7 @@ $page_pre
 } def
 
 /arrow {
-  $black 1 setlinewidth
-    newpath
-       0 0 moveto  arrowlen 0 rlineto
-       arrowhead dup neg exch  rmoveto
-       arrowhead dup neg       rlineto
-       arrowhead neg dup       rlineto
-       stroke
+  ${\ arrow_any("0 0 moveto  arrowlen 0 rlineto") }
 } def
 
 END
-- 
2.30.2