[MLton-commit] r5129

Vesa Karvonen vesak at mlton.org
Sun Feb 4 23:19:50 PST 2007


Minor opt.

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

U   mlton/trunk/ide/emacs/esml-du-mlton.el

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

Modified: mlton/trunk/ide/emacs/esml-du-mlton.el
===================================================================
--- mlton/trunk/ide/emacs/esml-du-mlton.el	2007-02-04 23:19:04 UTC (rev 5128)
+++ mlton/trunk/ide/emacs/esml-du-mlton.el	2007-02-05 07:19:50 UTC (rev 5129)
@@ -147,7 +147,8 @@
                (pos (def-use-pos line col))
                (ref (def-use-ref src pos))
                (sym (def-use-sym kind name ref
-                      (cdr (assoc kind esml-du-kinds)))))
+                      (cdr (assoc kind esml-du-kinds))))
+               (uses nil))
           (puthash ref sym ref-to-sym)
           (while (< 0 (skip-chars-forward " "))
             (let* ((src (def-use-file-truename (esml-du-read "^ " " ")))
@@ -156,8 +157,8 @@
                    (pos (def-use-pos line col))
                    (ref (def-use-ref src pos)))
               (puthash ref sym (esml-du-ctx-ref-to-sym-table ctx))
-              (puthash sym (cons ref (gethash sym sym-to-uses))
-                       sym-to-uses))))
+              (push ref uses)))
+          (puthash sym uses sym-to-uses))
         (setq buffer-read-only nil)
         (delete-backward-char (- (point) 1))
         (setq buffer-read-only t))




More information about the MLton-commit mailing list