From: akr <akr>
Date: Sun, 18 Oct 1998 04:46:18 +0000 (+0000)
Subject: * broken.el (check-broken-facility): Also use compile time
X-Git-Tag: apel-9_5~23
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5815706df602693ac71229380ddcdeae5054d3f4;p=elisp%2Fapel.git

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

diff --git a/ChangeLog b/ChangeLog
index 0b4b66f..efc77c8 100644
--- 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
--- 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