From c1fe651240e70230b5619c46fa6dce6f4609f72b Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 21 Jun 2005 13:45:12 +0000 Subject: [PATCH] (byte-optimize-pure-func): Fix spellings. --- lisp/emacs-lisp/byte-opt.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index acb882dd9a3..e1aacdd51e9 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -152,11 +152,11 @@ ;; ;; Associative math should recognize subcalls to identical function: ;; (disassemble (lambda (x) (+ (+ (foo) 1) (+ (bar) 2)))) ;; ;; This should generate the same as (1+ x) and (1- x) - + ;; (disassemble (lambda (x) (cons (+ x 1) (- x 1)))) ;; ;; An awful lot of functions always return a non-nil value. If they're ;; ;; error free also they may act as true-constants. - + ;; (disassemble (lambda (x) (and (point) (foo)))) ;; ;; When ;; ;; - all but one arguments to a function are constant @@ -165,19 +165,19 @@ ;; ;; condition is side-effect-free [assignment-free] then the other ;; ;; arguments may be any expressions. Since, however, the code size ;; ;; can increase this way they should be "simple". Compare: - + ;; (disassemble (lambda (x) (eq (if (point) 'a 'b) 'c))) ;; (disassemble (lambda (x) (if (point) (eq 'a 'c) (eq 'b 'c)))) - + ;; ;; (car (cons A B)) -> (prog1 A B) ;; (disassemble (lambda (x) (car (cons (foo) 42)))) - + ;; ;; (cdr (cons A B)) -> (progn A B) ;; (disassemble (lambda (x) (cdr (cons 42 (foo))))) - + ;; ;; (car (list A B ...)) -> (prog1 A B ...) ;; (disassemble (lambda (x) (car (list (foo) 42 (bar))))) - + ;; ;; (cdr (list A B ...)) -> (progn A (list B ...)) ;; (disassemble (lambda (x) (cdr (list 42 (foo) (bar))))) @@ -1126,7 +1126,7 @@ This assumes that the function will not have any side-effects and that its return value depends solely on its arguments. If the function can signal an error, this might change the semantics -of FORM by signalling the error at compile-time." +of FORM by signaling the error at compile-time." (let ((args (cdr form)) (constant t)) (while (and args constant) -- 2.39.2