Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

(byte-optimize-while)

Browse source 
(byte-optimize-form-code-walker): Diagnose too few arguments
for `if' and `while'.
This commit is contained in:
Gerd Moellmann 2001-03-26 13:04:11 +00:00
parent 12deffc6f4
commit aefd695aad
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/byte-opt.el
View file

@ -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))