[STUMP] [PATCH] Remove unnecessary lambda.

[John Li]

---
Sorry for this. I needed to raise my patches-sent/hours-spent-in-emacs
ratio.      _                       _   _
 _   _  ___| |_    __ _ _ __   ___ | |_| |__   ___ _ __
| | | |/ _ \ __|  / _` | '_ \ / _ \| __| '_ \ / _ \ '__|
| |_| |  __/ |_  | (_| | | | | (_) | |_| | | |  __/ |
 \__, |\___|\__|  \__,_|_| |_|\___/ \__|_| |_|\___|_|
 |___/    _       _       _               _       _
| |_ _ __(_)_   _(_) __ _| |  _ __   __ _| |_ ___| |__
| __| '__| \ \ / / |/ _` | | | '_ \ / _` | __/ __| '_ \
| |_| |  | |\ V /| | (_| | | | |_) | (_| | || (__| | | |
 \__|_|  |_| \_/ |_|\__,_|_| | .__/ \__,_|\__\___|_| |_|
                             |_| brought to you by jli

 frame.lisp |    3 +--
 1 files changed, 1 insertions(+), 2 deletions(-)

diff --git a/frame.lisp b/frame.lisp
index 2aa6e59..291be33 100644
--- a/frame.lisp
+++ b/frame.lisp
@@ -161,8 +161,7 @@ (defun head-frames (group head)
   (tree-accum-fn (tile-group-frame-head group head) 'nconc 'list))

 (defun find-free-frame-number (group)
-  (find-free-number (mapcar (lambda (f) (frame-number f))
-                            (group-frames group))))
+  (find-free-number (mapcar 'frame-number (group-frames group))))

 (defun choose-new-frame-window (frame group)
   "Find out what window should go in a newly created frame."
--
1.5.6.3