Commit b3a6c0ca authored by Glenn Morris's avatar Glenn Morris

Unquote lambda functions.

parent c9baab11
......@@ -135,13 +135,13 @@ The optional LABEL is used to label the buffer created."
(interactive
(let* ((start-year (calendar-read
"Starting year of holidays (>0): "
'(lambda (x) (> x 0))
(lambda (x) (> x 0))
(int-to-string (extract-calendar-year
(calendar-current-date)))))
(end-year (calendar-read
(format "Ending year (inclusive) of holidays (>=%s): "
start-year)
'(lambda (x) (>= x start-year))
(lambda (x) (>= x start-year))
(int-to-string start-year)))
(completion-ignore-case t)
(lists
......@@ -199,7 +199,7 @@ The optional LABEL is used to label the buffer created."
(goto-char (point-min))
(insert
(mapconcat
'(lambda (x) (concat (calendar-date-string (car x))
(lambda (x) (concat (calendar-date-string (car x))
": " (car (cdr x))))
holiday-list "\n"))
(goto-char (point-min))
......@@ -285,7 +285,7 @@ holidays are found, nil if not."
(erase-buffer)
(insert
(mapconcat
'(lambda (x) (concat (calendar-date-string (car x))
(lambda (x) (concat (calendar-date-string (car x))
": " (car (cdr x))))
holiday-list "\n"))
(goto-char (point-min))
......
......@@ -205,7 +205,7 @@ remainder mod 4 gives the phase: 0 new moon, 1 first quarter, 2 full moon,
(erase-buffer)
(insert
(mapconcat
'(lambda (x)
(lambda (x)
(let ((date (car x))
(time (car (cdr x)))
(phase (car (cdr (cdr x)))))
......@@ -395,5 +395,5 @@ calendar-time-zone."
(provide 'lunar)
;;; arch-tag: 72f0b8a4-7bcc-4a1b-b67a-ff53c4a1d222
;; arch-tag: 72f0b8a4-7bcc-4a1b-b67a-ff53c4a1d222
;;; lunar.el ends here
......@@ -721,7 +721,7 @@ calendar-time-zone are used to interpret local time."
(* 62833.1961680 U)
(* 0.0000001
(apply '+
(mapcar '(lambda (x)
(mapcar (lambda (x)
(* (car x)
(sin (mod
(+ (car (cdr x))
......@@ -974,7 +974,7 @@ Accurate to less than a minute between 1951 and 2050."
(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 @@ Requires floating point."
(provide 'solar)
;;; arch-tag: bc0ff693-df58-4666-bde4-2a7837ccb8fe
;; arch-tag: bc0ff693-df58-4666-bde4-2a7837ccb8fe
;;; solar.el ends here
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment