mescc: Oops, alignment.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 27 May 2018 06:20:00 +0000 (08:20 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 27 May 2018 06:20:00 +0000 (08:20 +0200)
* module/mes/M1.mes (object->M1): Oops, alignment: only add alignment
  when not aligned.

module/mes/M1.mes

index 08a508e183f8a7342cc17fe7530589e7ce24f608..107342aceba34ffc1d234a26f0b83f4db8b2aa3f 100644 (file)
                     (else (string-append "&" label))))))
       (define (display-align size)
         (let ((alignment (- 4 (modulo size 4))))
-          (when (> alignment 0)
+          (when (> alignment 0)
             (display " ")
             (display-join (map text->M1 (map (const 0) (iota alignment))) " "))))
       (let* ((label (cond