From eda0d8dca501edffaeb723e7c9ba9b82c8e0c7f7 Mon Sep 17 00:00:00 2001 From: Danny Milosavljevic Date: Wed, 27 Feb 2019 00:24:14 +0100 Subject: [PATCH] When emitting a function, also emit an aligner first. * module/mescc/M1.scm (info->M1): When emitting a function, also emit an aligner first. --- module/mescc/M1.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/mescc/M1.scm b/module/mescc/M1.scm index cf5a161f..2c9a477e 100644 --- a/module/mescc/M1.scm +++ b/module/mescc/M1.scm @@ -207,7 +207,7 @@ (newline)) (when verbose? (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)))) (define (write-global o) (define (labelize o)