[MLton-commit] r6789

[Vesa Karvonen]

Rewritten to fit in 80 columns.

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

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

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

Modified: mlton/trunk/ide/emacs/def-use-data.el
===================================================================
--- mlton/trunk/ide/emacs/def-use-data.el	2008-08-21 20:39:41 UTC (rev 6788)
+++ mlton/trunk/ide/emacs/def-use-data.el	2008-08-23 16:10:21 UTC (rev 6789)
@@ -37,7 +37,7 @@
 ;; Def-use sources
 
 (defun def-use-add-dus (title sym-at-ref sym-to-uses finalize attr &rest args)
-  (push (cons args (cons sym-at-ref (cons sym-to-uses (cons attr (cons title finalize)))))
+  (push `(,args ,sym-at-ref ,sym-to-uses ,attr ,title . ,finalize)
         def-use-dus-list)
   (def-use-show-dus-update))