summaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Court`es2007-09-20 09:37:05 +0000
committerLudovic Court`es2007-09-20 09:37:05 +0000
commit7c53957cbc7209712f299022751d6bbc82ae9972 (patch)
tree2aa0181963a43494361866a776a3f6a4be782de5 /src/guile
parentd558e816b374367b40c6880f2f8eb9bcb6044113 (diff)
downloadskribilo-7c53957cbc7209712f299022751d6bbc82ae9972.tar.gz
skribilo-7c53957cbc7209712f299022751d6bbc82ae9972.tar.lz
skribilo-7c53957cbc7209712f299022751d6bbc82ae9972.zip
eq/lout: Better handle parenthesizing of combinations.
* src/guile/skribilo/package/eq/lout.scm (binary-lout-markup-writer): Special-case `eq:combinations'. git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-107
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/package/eq/lout.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/guile/skribilo/package/eq/lout.scm b/src/guile/skribilo/package/eq/lout.scm
index 29ce9ac..64bc070 100644
--- a/src/guile/skribilo/package/eq/lout.scm
+++ b/src/guile/skribilo/package/eq/lout.scm
@@ -215,7 +215,10 @@
(if (= (length body) 2)
(let* ((first (car body))
(second (cadr body))
- (parentheses? (equation-markup? first)))
+ (parentheses? (and (equation-markup? first)
+ (not
+ (memq (markup-markup first)
+ '(eq:combinations))))))
(display " { { ")
(if parentheses? (display %left-paren))
(output first engine)