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

1 files changed, 3 insertions, 2 deletions

diff --git a/fun/wcl/wc.lisp b/fun/wcl/wc.lisp
index f443125a85..a3d5cd1206 100644
--- a/fun/wcl/wc.lisp
+++ b/fun/wcl/wc.lisp
@@ -21,9 +21,10 @@
         (counting is-newline into newlines)
 
         ;; 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)
-                  (eq newline previous-byte))
+                  (eq newline previous-byte)
+                  (not previous-byte))
           (next-iteration))
 
         (counting (or is-newline (eq space byte))