[MLton-commit] r5703

[Vesa Karvonen]

Bugfix.
----------------------------------------------------------------------

U   mlton/trunk/ide/emacs/bg-build-util.el

----------------------------------------------------------------------

Modified: mlton/trunk/ide/emacs/bg-build-util.el
===================================================================
--- mlton/trunk/ide/emacs/bg-build-util.el	2007-07-01 12:12:44 UTC (rev 5702)
+++ mlton/trunk/ide/emacs/bg-build-util.el	2007-07-01 16:26:24 UTC (rev 5703)
@@ -29,7 +29,7 @@
 (defun bg-build-assoc-cdr (key alist)
   "Same as (cdr (assoc key alist)) except that doesn't attempt to call cdr
 on nil."
-  (let ((key-value (assoc key (cdr alist))))
+  (let ((key-value (assoc key alist)))
     (when key-value
       (cdr key-value))))