From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sun, 27 May 2018 06:20:00 +0000 (+0200)
Subject: mescc: Oops, alignment.
X-Git-Url: https://jxself.org/git/?p=mes.git;a=commitdiff_plain;h=2d975951470ca4f408c66112eff675740c9ecfaf;hp=43a74e382ad972c1de76dd0f8556b5041cc9f929

mescc: Oops, alignment.

* module/mes/M1.mes (object->M1): Oops, alignment: only add alignment
  when not aligned.
---

diff --git a/module/mes/M1.mes b/module/mes/M1.mes
index 08a508e1..107342ac 100644
--- a/module/mes/M1.mes
+++ b/module/mes/M1.mes
@@ -173,7 +173,7 @@
                     (else (string-append "&" label))))))
       (define (display-align size)
         (let ((alignment (- 4 (modulo size 4))))
-          (when (> alignment 0)
+          (when (> 4 alignment 0)
             (display " ")
             (display-join (map text->M1 (map (const 0) (iota alignment))) " "))))
       (let* ((label (cond