# HG changeset patch
# User wenzelm
# Date 1189949246 -7200
# Node ID 425d6445cba6d4ec7fcdd1af3cca3391ac279103
# Parent  b273d529b80b10d2ba9e793f04ae9fdb32cf531b
with_modes: always CRITICAL;

diff -r b273d529b80b -r 425d6445cba6 src/Pure/General/print_mode.ML
--- a/src/Pure/General/print_mode.ML	Sun Sep 16 14:59:10 2007 +0200
+++ b/src/Pure/General/print_mode.ML	Sun Sep 16 15:27:26 2007 +0200
@@ -25,9 +25,8 @@
 val print_mode = ref ([]: string list);
 fun print_mode_active s = member (op =) (! print_mode) s;
 
-fun with_modes [] f x = f x
-  | with_modes modes f x = NAMED_CRITICAL "print_mode" (fn () =>
-      setmp print_mode (modes @ ! print_mode) f x);
+fun with_modes modes f x = NAMED_CRITICAL "print_mode" (fn () =>
+  setmp print_mode (modes @ ! print_mode) f x);
 
 fun with_default f x = NAMED_CRITICAL "print_mode" (fn () =>
   setmp print_mode [] f x);