diff options
| author | Omar Rizwan <omar@omar.website> | 2023-02-19 20:42:16 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2023-02-19 20:42:16 +0000 |
| commit | 4d935af717660beba2ced7e6b286e620ae1b959e (patch) | |
| tree | 90558ccf16e4ee5847c8e40eb48c166a5847397a /virtual-programs | |
| parent | Add sound (diff) | |
| download | folk-4d935af717660beba2ced7e6b286e620ae1b959e.tar.gz folk-4d935af717660beba2ced7e6b286e620ae1b959e.zip | |
Fix parenthesis print bug
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/print.folk | 2 |
1 files changed, 1 insertions, 1 deletions
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 |