core: Add the shuffler words but without primitives.

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

diff --git a/basis/logging/logging.factor b/basis/logging/logging.factor
index 0ccc1b25363b2ab8f56059e4b60d29d74baf881b..5b670b6dc1940d7a67a800658cffddee66b2226a 100644 (file)
--- a/basis/logging/logging.factor
+++ b/basis/logging/logging.factor
@@ -134,7 +134,7 @@ PRIVATE>
     '[ _ [ _ log-error @ ] recover ] ;
 
 : add-error-logging ( word level -- )
-    [ [ input-logging-quot ] 2keep drop error-logging-quot ]
+    [ [ input-logging-quot ] keepd error-logging-quot ]
     (define-logging) ;
 
 SYNTAX: LOG: