diff options
| -rw-r--r-- | lisp/emacs-lisp/comp.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el index 7d444af8d9f..caea81fccca 100644 --- a/lisp/emacs-lisp/comp.el +++ b/lisp/emacs-lisp/comp.el | |||
| @@ -264,7 +264,10 @@ Useful to hook into pass checkers.") | |||
| 264 | (zerop (function (number) boolean)) | 264 | (zerop (function (number) boolean)) |
| 265 | ;; Type hints | 265 | ;; Type hints |
| 266 | (comp-hint-fixnum (function (t) fixnum)) | 266 | (comp-hint-fixnum (function (t) fixnum)) |
| 267 | (comp-hint-cons (function (t) cons))) | 267 | (comp-hint-cons (function (t) cons)) |
| 268 | ;; Non returning functions | ||
| 269 | (error (function (string &rest t) nil)) | ||
| 270 | (signal (function (symbol t) nil))) | ||
| 268 | "Alist used for type propagation.") | 271 | "Alist used for type propagation.") |
| 269 | 272 | ||
| 270 | (defconst comp-known-func-cstr-h | 273 | (defconst comp-known-func-cstr-h |