# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1204948113 0
# Node ID 3919541315481f99b609093dcf5bbc3ea6b7420d
# Parent  fa8a9b4153ec8214a8b958f99d379ef027a5758d
Unquote lambda functions.

diff -r fa8a9b4153ec -r 391954131548 lisp/calendar/solar.el
--- 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