use (labels) instead of (let) + lambda + funcall

toshok · Sep 27, 2011 · c413caa · c413caa
1 parent e503478
commit c413caa
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/rust-mode.el b/rust-mode.el
@@ -67,13 +67,13 @@
   (and (consp pair) (not (listp (cdr pair)))))
 
 (defun flatten (ls)
-  (let ((flatten2 (lambda (l a)
-		    (if (null l)
-			a
-		      (funcall flatten2 (cdr l) (append a (if (listp (car l))
-							      (car l)
-							    (list (car l)))))))))
-    (funcall flatten2 ls '())))
+  (labels ((flatten2 (l a)
+		     (if (null l)
+			 a
+		       (flatten2 (cdr l) (append a (if (listp (car l))
+						       (car l)
+						     (list (car l))))))))
+    (flatten2 ls '())))
 
 (defun rust-expandpair (pair)
   (if (pairp pair)