Mercurial > emacs

changeset 92598:391954131548

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Unquote lambda functions.
author Glenn Morris <rgm@gnu.org>
date Sat, 08 Mar 2008 03:48:33 +0000
parents fa8a9b4153ec
children f90cefa62737
files lisp/calendar/solar.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/solar.el	Sat Mar 08 03:48:20 2008 +0000
+++ b/lisp/calendar/solar.el	Sat Mar 08 03:48:33 2008 +0000
@@ -721,7 +721,7 @@
              (* 62833.1961680 U)
              (* 0.0000001
                 (apply '+
-                       (mapcar '(lambda (x)
+                       (mapcar (lambda (x)
                                   (* (car x)
                                      (sin (mod
                                            (+ (car (cdr x))
@@ -974,7 +974,7 @@
          (W (- (* 35999.373 T) 2.47))
          (Delta-lambda (+ 1 (* 0.0334 (solar-cosine-degrees W))
                             (* 0.0007 (solar-cosine-degrees (* 2 W)))))
-         (S (apply '+ (mapcar '(lambda(x)
+         (S (apply '+ (mapcar (lambda(x)
                                  (* (car x) (solar-cosine-degrees
                                              (+ (* (car (cdr (cdr x))) T)
                                                   (car (cdr x))))))
@@ -1088,5 +1088,5 @@
 
 (provide 'solar)
 
-;;; arch-tag: bc0ff693-df58-4666-bde4-2a7837ccb8fe
+;; arch-tag: bc0ff693-df58-4666-bde4-2a7837ccb8fe
 ;;; solar.el ends here