Mercurial > emacs
changeset 30888:e559f0aa6b2d
Don't quote lambda.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 16 Aug 2000 21:05:37 +0000 |
| parents | c4366892a814 |
| children | 5f9c434a6e88 |
| files | lisp/mail/mailabbrev.el lisp/play/landmark.el lisp/textmodes/tex-mode.el |
| diffstat | 3 files changed, 33 insertions(+), 35 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/mailabbrev.el Wed Aug 16 21:03:36 2000 +0000 +++ b/lisp/mail/mailabbrev.el Wed Aug 16 21:05:37 2000 +0000 @@ -110,7 +110,7 @@ ;; ;; (add-hook ;; 'mail-setup-hook -;; '(lambda () +;; (lambda () ;; (substitute-key-definition 'next-line 'mail-abbrev-next-line ;; mail-mode-map global-map) ;; (substitute-key-definition 'end-of-buffer 'mail-abbrev-end-of-buffer @@ -139,9 +139,9 @@ :type 'boolean :group 'mail-abbrev :require 'mailabbrev - :set '(lambda (symbol value) - (setq mail-abbrevs-mode value) - (if value (mail-abbrevs-enable) (mail-abbrevs-disable))) + :set (lambda (symbol value) + (setq mail-abbrevs-mode value) + (if value (mail-abbrevs-enable) (mail-abbrevs-disable))) :initialize 'custom-initialize-default :version "20.3")
--- a/lisp/play/landmark.el Wed Aug 16 21:03:36 2000 +0000 +++ b/lisp/play/landmark.el Wed Aug 16 21:05:37 2000 +0000 @@ -60,7 +60,7 @@ ;;; concise problem description. ;;;_* Require -(require 'cl) +(eval-when-compile (require 'cl)) ;;;_* From Gomoku @@ -1153,7 +1153,7 @@ ;;(setq direction 'lm-n) ;;(get 'lm-n 'lm-s) (defun lm-nslify-wts-int (direction) - (mapcar '(lambda (target-direction) + (mapcar (lambda (target-direction) (get direction target-direction)) lm-directions)) @@ -1166,7 +1166,7 @@ (eval (cons 'max l)) (eval (cons 'min l)))))) (defun lm-print-wts-int (direction) - (mapc '(lambda (target-direction) + (mapc (lambda (target-direction) (insert (format "%S %S %S " direction target-direction @@ -1233,14 +1233,14 @@ (set-buffer "*lm-blackbox*") (insert "==============================\n") (insert "I smell: ") - (mapc '(lambda (direction) + (mapc (lambda (direction) (if (> (get direction 'smell) 0) (insert (format "%S " direction)))) lm-directions) (insert "\n") (insert "I move: ") - (mapc '(lambda (direction) + (mapc (lambda (direction) (if (> (get direction 'y_t) 0) (insert (format "%S " direction)))) lm-directions) @@ -1295,7 +1295,7 @@ ; (* (/ (random 900000) 900000.0) .0001))) ;;;_ : lm-randomize-weights-for (direction) (defun lm-randomize-weights-for (direction) - (mapc '(lambda (target-direction) + (mapc (lambda (target-direction) (put direction target-direction (* (lm-flip-a-coin) (/ (random 10000) 10000.0)))) @@ -1306,7 +1306,7 @@ ;;;_ : lm-fix-weights-for (direction) (defun lm-fix-weights-for (direction) - (mapc '(lambda (target-direction) + (mapc (lambda (target-direction) (put direction target-direction lm-initial-wij)) @@ -1390,7 +1390,7 @@ 0.0)))) (defun lm-update-normal-weights (direction) - (mapc '(lambda (target-direction) + (mapc (lambda (target-direction) (put direction target-direction (+ (get direction target-direction) @@ -1401,7 +1401,7 @@ lm-directions)) (defun lm-update-naught-weights (direction) - (mapc '(lambda (target-direction) + (mapc (lambda (target-direction) (put direction 'w0 (lm-f (+ @@ -1415,7 +1415,7 @@ ;;;_ + Statistics gathering and creating functions (defun lm-calc-current-smells () - (mapc '(lambda (direction) + (mapc (lambda (direction) (put direction 'smell (calc-smell-internal direction))) lm-directions)) @@ -1427,7 +1427,7 @@ (setf lm-no-payoff 0))) (defun lm-store-old-y_t () - (mapc '(lambda (direction) + (mapc (lambda (direction) (put direction 'y_t-1 (get direction 'y_t))) lm-directions)) @@ -1435,35 +1435,33 @@ ;;;_ + Functions to move robot (defun lm-confidence-for (target-direction) - (+ - (get target-direction 'w0) - (reduce '+ - (mapcar '(lambda (direction) - (* - (get direction target-direction) - (get direction 'smell)) - ) - lm-directions)))) + (apply '+ + (get target-direction 'w0) + (mapcar (lambda (direction) + (* + (get direction target-direction) + (get direction 'smell))) + lm-directions))) (defun lm-calc-confidences () - (mapc '(lambda (direction) + (mapc (lambda (direction) (put direction 's (lm-confidence-for direction))) lm-directions)) (defun lm-move () (if (and (= (get 'lm-n 'y_t) 1.0) (= (get 'lm-s 'y_t) 1.0)) (progn - (mapc '(lambda (dir) (put dir 'y_t 0)) lm-ns) + (mapc (lambda (dir) (put dir 'y_t 0)) lm-ns) (if lm-debug (message "n-s normalization.")))) (if (and (= (get 'lm-w 'y_t) 1.0) (= (get 'lm-e 'y_t) 1.0)) (progn - (mapc '(lambda (dir) (put dir 'y_t 0)) lm-ew) + (mapc (lambda (dir) (put dir 'y_t 0)) lm-ew) (if lm-debug (message "e-w normalization")))) - (mapc '(lambda (pair) + (mapc (lambda (pair) (if (> (get (car pair) 'y_t) 0) (funcall (car (cdr pair))))) '( @@ -1479,7 +1477,7 @@ (defun lm-random-move () (mapc - '(lambda (direction) (put direction 'y_t 0)) + (lambda (direction) (put direction 'y_t 0)) lm-directions) (dolist (direction (nth (random 8) lm-8-directions)) (put direction 'y_t 1.0)) @@ -1575,14 +1573,14 @@ (lm-set-landmark-signal-strengths) - (mapc '(lambda (direction) + (mapc (lambda (direction) (put direction 'y_t 0.0)) lm-directions) (if (not save-weights) (progn (mapc 'lm-fix-weights-for lm-directions) - (mapc '(lambda (direction) + (mapc (lambda (direction) (put direction 'w0 lm-initial-w0)) lm-directions)) (message "Weights preserved for this run.")) @@ -1612,10 +1610,10 @@ (setq lm-tree-r (* (sqrt (+ (square lm-cx) (square lm-cy))) 1.5)) - (mapc '(lambda (direction) + (mapc (lambda (direction) (put direction 'r (* lm-cx 1.1))) lm-ew) - (mapc '(lambda (direction) + (mapc (lambda (direction) (put direction 'r (* lm-cy 1.1))) lm-ns) (put 'lm-tree 'r lm-tree-r))
--- a/lisp/textmodes/tex-mode.el Wed Aug 16 21:03:36 2000 +0000 +++ b/lisp/textmodes/tex-mode.el Wed Aug 16 21:05:37 2000 +0000 @@ -1367,8 +1367,8 @@ (setq start (match-end 0))) (or (= start 0) (setq elts (cons (substring s start) elts))) - (mapconcat '(lambda (elt) - (if (= (length elt) 0) elt (expand-file-name elt))) + (mapconcat (lambda (elt) + (if (= (length elt) 0) elt (expand-file-name elt))) (nreverse elts) ":"))) (defun tex-shell-running ()