mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix(fun/wcl): Count words correctly if file starts with whitespace

Browse source
This commit is contained in:
Vincent Ambo 2020-01-28 21:24:51 +00:00
parent 1ba3d1cf97
commit 39b0176026
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
fun/wcl/wc.lisp
View file

@ -21,9 +21,10 @@
(counting is-newline into newlines) (counting is-newline into newlines)
;; Count every "word", unless the preceding character already ;; Count every "word", unless the preceding character already
;; was a space. ;; was a space or we are at the beginning of the file.
(when (or (eq space previous-byte) (when (or (eq space previous-byte)
(eq newline previous-byte)) (eq newline previous-byte)
(not previous-byte))
(next-iteration)) (next-iteration))
(counting (or is-newline (eq space byte)) (counting (or is-newline (eq space byte))