Remove left-over printfs.
authorGuillermo J. Rozas <edu/mit/csail/zurich/gjr>
Thu, 24 Jun 1993 05:52:20 +0000 (05:52 +0000)
committerGuillermo J. Rozas <edu/mit/csail/zurich/gjr>
Thu, 24 Jun 1993 05:52:20 +0000 (05:52 +0000)
v7/src/microcode/interp.c
v8/src/microcode/interp.c

index bf508f160e98329801fc2a12a33c6e8b0e4728e2..ed72d8b7f95d569128a6b0baa45ddb1e78103c1a 100644 (file)
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: interp.c,v 9.75 1993/06/24 05:44:06 gjr Exp $
+$Id: interp.c,v 9.76 1993/06/24 05:52:20 gjr Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -585,8 +585,9 @@ Repeat_Dispatch:
 Do_Expression:
 
   if (Eval_Debug)
-  { Print_Expression(Fetch_Expression(), "Eval, expression");
-    printf ("\n");
+  {
+    Print_Expression ((Fetch_Expression ()), "Eval, expression");
+    outf_console ("\n");
   }
 
 /* The expression register has an Scode item in it which
@@ -998,9 +999,10 @@ Pop_Return_Non_Trapping:
     Microcode_Termination (TERM_BAD_STACK);
   }
   if (Eval_Debug)
-  { Print_Return("Pop_Return, return code");
-    Print_Expression(Val, "Pop_Return, value");
-    printf ("\n");
+  {
+    Print_Return ("Pop_Return, return code");
+    Print_Expression (Val, "Pop_Return, value");
+    outf_console ("\n");
   };
 
   /* Dispatch on the return code.  A BREAK here will cause
@@ -1426,7 +1428,7 @@ external_assignment_return:
       if ((! (Valid_Fixed_Obj_Vector())) ||
          ((handler = (Get_Fixed_Obj_Slot(Trap_Handler))) == SHARP_F))
       {
-       fprintf(stderr, "There is no trap handler for recovery!\n");
+       outf_fatal ("There is no trap handler for recovery!\n");
        termination_trap ();
        /*NOTREACHED*/
       }
index bf508f160e98329801fc2a12a33c6e8b0e4728e2..ed72d8b7f95d569128a6b0baa45ddb1e78103c1a 100644 (file)
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: interp.c,v 9.75 1993/06/24 05:44:06 gjr Exp $
+$Id: interp.c,v 9.76 1993/06/24 05:52:20 gjr Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -585,8 +585,9 @@ Repeat_Dispatch:
 Do_Expression:
 
   if (Eval_Debug)
-  { Print_Expression(Fetch_Expression(), "Eval, expression");
-    printf ("\n");
+  {
+    Print_Expression ((Fetch_Expression ()), "Eval, expression");
+    outf_console ("\n");
   }
 
 /* The expression register has an Scode item in it which
@@ -998,9 +999,10 @@ Pop_Return_Non_Trapping:
     Microcode_Termination (TERM_BAD_STACK);
   }
   if (Eval_Debug)
-  { Print_Return("Pop_Return, return code");
-    Print_Expression(Val, "Pop_Return, value");
-    printf ("\n");
+  {
+    Print_Return ("Pop_Return, return code");
+    Print_Expression (Val, "Pop_Return, value");
+    outf_console ("\n");
   };
 
   /* Dispatch on the return code.  A BREAK here will cause
@@ -1426,7 +1428,7 @@ external_assignment_return:
       if ((! (Valid_Fixed_Obj_Vector())) ||
          ((handler = (Get_Fixed_Obj_Slot(Trap_Handler))) == SHARP_F))
       {
-       fprintf(stderr, "There is no trap handler for recovery!\n");
+       outf_fatal ("There is no trap handler for recovery!\n");
        termination_trap ();
        /*NOTREACHED*/
       }