From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sat, 26 Aug 2017 11:40:30 +0000 (+0200)
Subject: mescc: bump default maximum for M1-strings to 80.
X-Git-Url: https://jxself.org/git/?p=mes.git;a=commitdiff_plain;h=28f056fdde55985c49d37ff7f762982c1d56f402

mescc: bump default maximum for M1-strings to 80.

* module/mes/M1.mes (object->M1): bump default maximum for M1-strings to 80.
---

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))