w6vvn/gem300
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

change default line length to 40 columns

Browse Source
This commit is contained in:
w6vvn
2025-09-08 13:39:10 -07:00
parent bc5ddeb84c
commit 3240b30b6f
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
gmi.rkt
View File

@@ -110,7 +110,7 @@
(define (inner-iter acc rst) (define (inner-iter acc rst)
(let ([line (string-join acc)]) (let ([line (string-join acc)])
(if (or (empty? rst) (if (or (empty? rst)
(> (string-length line) 80)) (> (string-length line) 40))
(values acc rst) (values acc rst)
(inner-iter (append acc (list (car rst))) (inner-iter (append acc (list (car rst)))
(cdr rst))))) (cdr rst)))))