When emitting a function, also emit an aligner first.
* module/mescc/M1.scm (info->M1): When emitting a function, also emit an aligner first.
This commit is contained in:
parent
83e7c4cc9e
commit
eda0d8dca5
|
@ -207,7 +207,7 @@
|
||||||
(newline))
|
(newline))
|
||||||
(when verbose?
|
(when verbose?
|
||||||
(display (string-append " :" name "\n") (current-error-port)))
|
(display (string-append " :" name "\n") (current-error-port)))
|
||||||
(display (string-append "\n\n:" name "\n"))
|
(display (string-append "\n\n<\n:" name "\n"))
|
||||||
(for-each line->M1 (apply append text))))
|
(for-each line->M1 (apply append text))))
|
||||||
(define (write-global o)
|
(define (write-global o)
|
||||||
(define (labelize o)
|
(define (labelize o)
|
||||||
|
|
Loading…
Reference in New Issue