[MLton-commit] r5158

Vesa Karvonen vesak at mlton.org
Fri Feb 9 07:55:14 PST 2007


Optimization?
----------------------------------------------------------------------

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-09 10:44:23 UTC (rev 5157)
+++ mlton/trunk/ide/emacs/esml-du-mlton.el	2007-02-09 15:54:47 UTC (rev 5158)
@@ -169,7 +169,7 @@
                (name (def-use-intern (esml-du-read "^ " " ")))
                (src (def-use-file-truename (esml-du-read "^ " " ")))
                (line (string-to-int (esml-du-read "^." ".")))
-               (col (- (string-to-int (esml-du-read "^\n" "\n")) 1))
+               (col (1- (string-to-int (esml-du-read "^\n" "\n"))))
                (pos (def-use-pos line col))
                (ref (def-use-ref src pos))
                (sym (def-use-sym class name ref
@@ -179,7 +179,7 @@
           (while (< 0 (skip-chars-forward " "))
             (let* ((src (def-use-file-truename (esml-du-read "^ " " ")))
                    (line (string-to-int (esml-du-read "^." ".")))
-                   (col (- (string-to-int (esml-du-read "^\n" "\n")) 1))
+                   (col (1- (string-to-int (esml-du-read "^\n" "\n"))))
                    (pos (def-use-pos line col))
                    (ref (def-use-ref src pos)))
               (puthash ref sym (esml-du-ctx-ref-to-sym-table ctx))




More information about the MLton-commit mailing list