diff options
| author | Basil L. Contovounesios | 2018-07-11 20:11:55 +0300 |
|---|---|---|
| committer | Paul Eggert | 2018-07-11 10:31:49 -0700 |
| commit | 84e5986902c7d7274f438c48c82949436eb9093d (patch) | |
| tree | e1f82bb8dc29fa4381d007d1b96d3d7797fb3104 | |
| parent | 78125f37444acd4f1ec4a0a5b0a338d80672f2ec (diff) | |
| download | emacs-84e5986902c7d7274f438c48c82949436eb9093d.tar.gz emacs-84e5986902c7d7274f438c48c82949436eb9093d.zip | |
; Add commentary on location of zerop
* lisp/subr.el (zerop): Add commentary explaining why moving the
function's location within the file broke bootstrap in
2018-07-10T23:08:58-07:00!contovob@tcd.ie.
| -rw-r--r-- | lisp/subr.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index c1d90e3fb18..a5108eb6558 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -548,6 +548,9 @@ If N is omitted or nil, remove the last element." | |||
| 548 | (if (> n 0) (setcdr (nthcdr (- (1- m) n) list) nil)) | 548 | (if (> n 0) (setcdr (nthcdr (- (1- m) n) list) nil)) |
| 549 | list)))) | 549 | list)))) |
| 550 | 550 | ||
| 551 | ;; This function appears here instead of under the 'Basic Lisp | ||
| 552 | ;; functions' heading because during bootstrap its compiler-macro | ||
| 553 | ;; requires functions defined under the 'List functions' heading. | ||
| 551 | (defun zerop (number) | 554 | (defun zerop (number) |
| 552 | "Return t if NUMBER is zero." | 555 | "Return t if NUMBER is zero." |
| 553 | ;; Used to be in C, but it's pointless since (= 0 n) is faster anyway because | 556 | ;; Used to be in C, but it's pointless since (= 0 n) is faster anyway because |