shebang

change default line length to 40 columns
2025-09-08 13:39:37 -07:00 · 2025-09-08 13:39:10 -07:00
2 changed files with 2 additions and 1 deletions
@@ -1,3 +1,4 @@
+#! /usr/bin/env /usr/local/bin/racket
 #lang racket

 (require (prefix-in net: "net.rkt")
@@ -110,7 +110,7 @@
  (define (inner-iter acc rst)
    (let ([line (string-join acc)])
      (if (or (empty? rst)
-              (> (string-length line) 80))
+              (> (string-length line) 40))
          (values acc rst)
          (inner-iter (append acc (list (car rst)))
                      (cdr rst)))))
Author	SHA1	Message	Date
w6vvn	4323f759fa	shebang	2025-09-08 13:39:37 -07:00
w6vvn	3240b30b6f	change default line length to 40 columns	2025-09-08 13:39:10 -07:00