[Emacs-diffs] trunk r117174: * lisp/subr.el (zerop): Move later so bootstrap works.

[Glenn Morris]

------------------------------------------------------------
revno: 117174
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2014-05-27 23:51:36 -0700
message:
  * lisp/subr.el (zerop): Move later so bootstrap works.
modified:
  lisp/subr.el                   subr.el-20091113204419-o5vbwnq5f7feedwu-151

=== modified file 'lisp/subr.el'
--- a/lisp/subr.el      2014-05-28 00:50:44 +0000
+++ b/lisp/subr.el      2014-05-28 06:51:36 +0000
@@ -335,12 +335,6 @@
   (and (consp object)
        (eq (car object) 'frame-configuration)))
 
-(defun zerop (number)
-  "Return t if NUMBER is zero."
-  ;; Used to be in C, but it's pointless since (= 0 n) is faster anyway because
-  ;; = has a byte-code.
-  (declare (compiler-macro (lambda (_) `(= 0 ,number))))
-  (= 0 number))
 
 ;;;; List functions.
 
@@ -389,6 +383,13 @@
           (if (> n 0) (setcdr (nthcdr (- (1- m) n) list) nil))
           list))))
 
+(defun zerop (number)
+  "Return t if NUMBER is zero."
+  ;; Used to be in C, but it's pointless since (= 0 n) is faster anyway because
+  ;; = has a byte-code.
+  (declare (compiler-macro (lambda (_) `(= 0 ,number))))
+  (= 0 number))
+
 (defun delete-dups (list)
   "Destructively remove `equal' duplicates from LIST.
 Store the result in LIST and return it.  LIST must be a proper list.