[MLton-commit] r5089

[Vesa Karvonen]

Copy list because sort is destructive.

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

U   mlton/trunk/ide/emacs/def-use-mode.el

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

Modified: mlton/trunk/ide/emacs/def-use-mode.el
===================================================================
--- mlton/trunk/ide/emacs/def-use-mode.el	2007-01-30 14:56:48 UTC (rev 5088)
+++ mlton/trunk/ide/emacs/def-use-mode.el	2007-01-30 15:05:36 UTC (rev 5089)
@@ -123,7 +123,7 @@
     (if (not sym)
         (message "Sorry, no information on the symbol at point!")
       (let* ((refs (sort (cons (def-use-sym-ref sym)
-                               (def-use-sym-to-uses sym))
+                               (copy-list (def-use-sym-to-uses sym)))
                          (function def-use-ref<)))
              (refs (if reverse (reverse refs) refs))
              (refs (append refs refs)))