From 3636818b1ae9d971eedc4d23341e698278ae532b Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Sat, 2 Dec 2017 14:04:41 +0100 Subject: [PATCH] mescc: prefix string labels with _. * module/mes/M1.mes (object->M1): Prefix string lables with _. --- module/mes/M1.mes | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/module/mes/M1.mes b/module/mes/M1.mes index 9e3b8fc6..52ecd704 100644 --- a/module/mes/M1.mes +++ b/module/mes/M1.mes @@ -93,7 +93,7 @@ (strings (filter (lambda (g) (and (pair? g) (eq? (car g) #:string))) global-names))) (define (string->label o) (let ((index (list-index (lambda (s) (equal? s o)) strings))) - (format #f "string_~a_~a" file-name index))) + (format #f "_string_~a_~a" file-name index))) (define (text->M1 o) (pmatch o ;; FIXME @@ -135,7 +135,7 @@ (let* ((label o) (function? (member label function-names)) (string-label (string->label label)) - (string? (not (equal? string-label "string_#f"))) + (string? (not (equal? string-label "_string_#f"))) (global? (member label global-names))) (if (or global? string?) (format #f "&~a" label) (begin (if (not function?) (stderr "warning: unresolved label: ~s\n" label))