mescc: bump default maximum for M1-strings to 80.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sat, 26 Aug 2017 11:40:30 +0000 (13:40 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sat, 26 Aug 2017 11:40:30 +0000 (13:40 +0200)
* module/mes/M1.mes (object->M1): bump default maximum for M1-strings to 80.

module/mes/M1.mes

index 0740e2aa34398fa762e6a90f88cdc6c69b529e50..7a4251ca3ee45b4ed6ce2af6c70b905801275f3f 100644 (file)
              (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))