artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mescc: Oops, alignment.

Browse source 
* module/mes/M1.mes (object->M1): Oops, alignment: only add alignment
  when not aligned.
This commit is contained in:
Jan Nieuwenhuizen 2018-05-27 08:20:00 +02:00
parent 43a74e382a
commit 2d97595147
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
module/mes/M1.mes
View file

@ -173,7 +173,7 @@
(else (string-append "&" label)))))) (else (string-append "&" label))))))
(define (display-align size) (define (display-align size)
(let ((alignment (- 4 (modulo size 4)))) (let ((alignment (- 4 (modulo size 4))))
(when (> alignment 0) (when (> 4 alignment 0)
(display " ") (display " ")
(display-join (map text->M1 (map (const 0) (iota alignment))) " ")))) (display-join (map text->M1 (map (const 0) (iota alignment))) " "))))
(let* ((label (cond (let* ((label (cond