artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

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

Browse source 
* module/mes/M1.mes (object->M1): bump default maximum for M1-strings to 80.
This commit is contained in:
Jan Nieuwenhuizen 2017-08-26 13:40:30 +02:00
parent 913fd66e5b
commit 28f056fdde
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
module/mes/M1.mes
View file

@ -144,7 +144,7 @@
(data (cdr o)) (data (cdr o))
(data (filter-map labelize data)) (data (filter-map labelize data))
(len (length 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) (format #t "\n:~a\n" label)
(cond ((and (< len string-max) (cond ((and (< len string-max)
(char? (car data)) (char? (car data))