~pepe/jlnt.kak

b7161e882ebc86a8b61ad1af0560c9814b083fd4 — Josef Pospíšil 7 months ago 76214a1
Make no-core fix line length
2 files changed, 2 insertions(+), 4 deletions(-)

R jlnt => jlnt.janet
M warns.janet
R jlnt => jlnt.janet +1 -3
@@ 1,5 1,3 @@
#!/usr/bin/env janet

(defn walk-for [sym]
  (fn [xs]
    (var a @[])


@@ 27,7 25,7 @@
    (def p (parser/new))
    (while (def line (:read f :line))
      (++ lines)
      (if (> (length line) 80)
      (if (> (length line) 81) # \n
        (emit lines 80 "warning" "Line too long"))
      (:consume p line)
      (if (= :error (:status p))

M warns.janet => warns.janet +1 -1
@@ 4,4 4,4 @@

(unless false :a)

(print "This ooooooooooooooooooooooooooooooooooooooooooooooooh so long string!")
(print "This oooooooooooooooooooooooooooooooooooooooooooooooooh so long string!")