* broken.el (check-broken-facility): Also use compile time

description.

diff --git a/ChangeLog b/ChangeLog
index 0b4b66f..efc77c8 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1998-10-18  Tanaka Akira  <morioka@jaist.ac.jp>
+
+       * broken.el (check-broken-facility): Also use compile time
+       description.
+
 1998-10-18  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
        * APEL: Version 9.4 was released.

diff --git a/broken.el b/broken.el
index af91df2..1531b3a 100644 (file)
--- a/broken.el
+++ b/broken.el
@@ -86,10 +86,14 @@ compile(macro expansion) time and run time, warn it."
   `(if-broken ,facility
        (unless (broken-p ',facility)
         (message "COMPILE TIME ONLY BROKEN FACILITY DETECTED: %s" 
-                 (broken-facility-description ',facility)))
+                 (or
+                  ',(broken-facility-description facility)
+                  (broken-facility-description ',facility))))
      (when (broken-p ',facility)
        (message "RUN TIME ONLY BROKEN FACILITY DETECTED: %s" 
-               (broken-facility-description ',facility)))))
+               (or
+                (broken-facility-description ',facility)
+                ',(broken-facility-description facility))))))
 
 
 ;;; @ end