diff options
| -rw-r--r-- | fun/wcl/wc.lisp | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/fun/wcl/wc.lisp b/fun/wcl/wc.lisp index f443125a85b4..a3d5cd120629 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)) |