(byte-optimize-while)

(byte-optimize-form-code-walker): Diagnose too few arguments
for `if' and `while'.

1 files changed, 5 insertions, 1 deletions

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index da695386604..5c713b13449 100644
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -1,6 +1,6 @@
 ;;; byte-opt.el --- the optimization passes of the emacs-lisp byte compiler.
 
-;;; Copyright (c) 1991, 1994, 2000 Free Software Foundation, Inc.
+;;; Copyright (c) 1991, 1994, 2000, 2001 Free Software Foundation, Inc.
 
 ;; Author: Jamie Zawinski <jwz@lucid.com>
 ;;      Hallvard Furuseth <hbf@ulrik.uio.no>
@@ -445,6 +445,8 @@
               (byte-optimize-body (cdr (cdr form)) for-effect))))
           
           ((eq fn 'if)
+           (when (< (length form) 3)
+             (byte-compile-warn "Too few arguments for `if'"))
            (cons fn
              (cons (byte-optimize-form (nth 1 form) nil)
                (cons
@@ -1014,6 +1016,8 @@
            (list 'progn clause nil)))))
 
 (defun byte-optimize-while (form)
+  (when (< (length form) 2)
+    (byte-compile-warn "Too few arguments for `while'"))
   (if (nth 1 form)
       form))