From 28f056fdde55985c49d37ff7f762982c1d56f402 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Sat, 26 Aug 2017 13:40:30 +0200 Subject: [PATCH] mescc: bump default maximum for M1-strings to 80. * module/mes/M1.mes (object->M1): bump default maximum for M1-strings to 80. --- module/mes/M1.mes | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/mes/M1.mes b/module/mes/M1.mes index 0740e2aa..7a4251ca 100644 --- a/module/mes/M1.mes +++ b/module/mes/M1.mes @@ -144,7 +144,7 @@ (data (cdr o)) (data (filter-map labelize data)) (len (length data)) - (string-max (or (and=> (getenv "M1_STRING_MAX") string->number) 0))) + (string-max (or (and=> (getenv "M1_STRING_MAX") string->number) 80))) (format #t "\n:~a\n" label) (cond ((and (< len string-max) (char? (car data)) -- 2.31.1