From 4d935af717660beba2ced7e6b286e620ae1b959e Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Sun, 19 Feb 2023 15:42:16 -0500
Subject: Fix parenthesis print bug

---
 virtual-programs/print.folk | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'virtual-programs')

diff --git a/virtual-programs/print.folk b/virtual-programs/print.folk
index f1ac7a09..cf22aa99 100644
--- a/virtual-programs/print.folk
+++ b/virtual-programs/print.folk
@@ -127,7 +127,7 @@ proc ::programToPs {id text {format "letter"} {side "front"}} {
         newpath
         [join [lmap lineinfo $lines {
             lassign $lineinfo linenum line
-            set line [string map {"\\" "\\\\" ")" "\\)"} $line]
+            set line [string map {"\\" "\\\\" ")" "\\)" "(" "\\("} $line]
             incr lineidx
             subst {
                 $margin [expr $PageHeight-$margin-$lineidx*$lineheight] moveto
-- 
cgit v1.2.3