basis: ERROR: changes.

[factor.git] / basis / logging / logging.factor

diff --git a/basis/logging/logging.factor b/basis/logging/logging.factor
index 7b2d8205ca4e8b54ec9e4da855f1cd17d20868a2..fe0a8b9255c97cd6d9508f711f10c42aa94c7edd 100644 (file)
--- a/basis/logging/logging.factor
+++ b/basis/logging/logging.factor
@@ -26,7 +26,7 @@ log-level [ DEBUG ] initialize
 ERROR: undefined-log-level ;
 
 : log-level<=> ( log-level log-level -- <=> )
-    [ log-levels at* [ undefined-log-level ] unless ] compare ;
+    [ log-levels at* [ throw-undefined-log-level ] unless ] compare ;
 
 : log? ( log-level -- ? )
     log-level get log-level<=> +lt+ = not ;
@@ -40,7 +40,7 @@ ERROR: bad-log-message-parameters msg word level ;
 
 : check-log-message ( msg word level -- msg word level )
     3dup [ string? ] [ word? ] [ word? ] tri* and and
-    [ bad-log-message-parameters ] unless ; inline
+    [ throw-bad-log-message-parameters ] unless ; inline
 
 : log-message ( msg word level -- )
     check-log-message