[MLton-commit] r5150

[Vesa Karvonen]

Fail conservatively.
----------------------------------------------------------------------

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

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

Modified: mlton/trunk/ide/emacs/def-use-util.el
===================================================================
--- mlton/trunk/ide/emacs/def-use-util.el	2007-02-06 23:05:43 UTC (rev 5149)
+++ mlton/trunk/ide/emacs/def-use-util.el	2007-02-08 10:03:44 UTC (rev 5150)
@@ -117,8 +117,12 @@
   (+ (* (car (nth 5 attr)) 65536.0) (cadr (nth 5 attr))))
 
 (defun def-use-attr-newer? (attr1 attr2)
-  (> (def-use-attr-mod-time-as-double attr1)
-     (def-use-attr-mod-time-as-double attr2)))
+  "Returns non-nil iff the modification time of `attr1' is later than the
+modification time of `attr2'.  Note that this also returns nil when either
+one of the modification times is nil."
+  (when (and attr1 attr2)
+    (> (def-use-attr-mod-time-as-double attr1)
+       (def-use-attr-mod-time-as-double attr2))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;