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 08a508e183f8a7342cc17fe7530589e7ce24f608..107342aceba34ffc1d234a26f0b83f4db8b2aa3f 100644 (file)
--- 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