byte-opt.el: byte-optimize-backward-word

[sri@asu.edu]

Using GNU Emacs 21.3.1 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
        of 2004-07-07 on localhost.localdomain.

In byte-opt.el:

(put 'backward-word 'byte-optimizer 'byte-optimize-backward-word)
(defun byte-optimize-backward-word (form)
  (cond ((and (= 2 (safe-length form))
	      (numberp (nth 1 form)))
	 (list 'forward-word (eval (- (nth 1 form)))))
	((= 1 (safe-length form))
	 '(forward-char -1))
;-------------^
        (t form)))

Shouldn't that be (forward-word -1)?  Also, backward-word requires an
argument; so, shouldn't Emacs complain here when it encounters 
backward-word without an argument.  (IIRC, several other optimizer
functions do something similar -- provide arguments when none is
there, for functions that require it.)

-Sriram