Replace All StdErr with StdOut

kanaka · Aug 10, 2024 · d57ec1c · d57ec1c
1 parent 9420fe9
commit d57ec1c
Show file tree

Hide file tree

Showing 8 changed files with 20 additions and 20 deletions.
diff --git a/impls/vbs/step3_env.vbs b/impls/vbs/step3_env.vbs
@@ -114,8 +114,8 @@ Sub REPL()
 		On Error Resume Next
 			strRes = REP(strCode)
 			If Err.Number <> 0 Then
-				'WScript.StdErr.WriteLine Err.Source + ": " + Err.Description 
-				WScript.StdErr.WriteLine "Exception: " + Err.Description 
+				'WScript.StdOut.WriteLine Err.Source + ": " + Err.Description 
+				WScript.StdOut.WriteLine "Exception: " + Err.Description 
 			Else
 				If strRes <> "" Then
 					WScript.Echo strRes

diff --git a/impls/vbs/step4_if_fn_do.vbs b/impls/vbs/step4_if_fn_do.vbs
@@ -128,8 +128,8 @@ Sub REPL()
 		On Error Resume Next
 			strRes = REP(strCode)
 			If Err.Number <> 0 Then
-				'WScript.StdErr.WriteLine Err.Source + ": " + Err.Description 
-				WScript.StdErr.WriteLine "Exception: " + Err.Description 
+				'WScript.StdOut.WriteLine Err.Source + ": " + Err.Description 
+				WScript.StdOut.WriteLine "Exception: " + Err.Description 
 			Else
 				If strRes <> "" Then
 					WScript.Echo strRes

diff --git a/impls/vbs/step5_tco.vbs b/impls/vbs/step5_tco.vbs
@@ -137,8 +137,8 @@ Sub REPL()
 		On Error Resume Next
 			strRes = REP(strCode)
 			If Err.Number <> 0 Then
-				'WScript.StdErr.WriteLine Err.Source + ": " + Err.Description 
-				WScript.StdErr.WriteLine "Exception: " + Err.Description 
+				'WScript.StdOut.WriteLine Err.Source + ": " + Err.Description 
+				WScript.StdOut.WriteLine "Exception: " + Err.Description 
 			Else
 				If strRes <> "" Then
 					WScript.Echo strRes

diff --git a/impls/vbs/step6_file.vbs b/impls/vbs/step6_file.vbs
@@ -165,8 +165,8 @@ Sub REPL()
 		On Error Resume Next
 			strRes = REP(strCode)
 			If Err.Number <> 0 Then
-				'WScript.StdErr.WriteLine Err.Source + ": " + Err.Description 
-				WScript.StdErr.WriteLine "Exception: " + Err.Description 
+				'WScript.StdOut.WriteLine Err.Source + ": " + Err.Description 
+				WScript.StdOut.WriteLine "Exception: " + Err.Description 
 			Else
 				If strRes <> "" Then
 					WScript.Echo strRes

diff --git a/impls/vbs/step7_quote.vbs b/impls/vbs/step7_quote.vbs
@@ -289,8 +289,8 @@ Sub REPL()
 		On Error Resume Next
 			strRes = REP(strCode)
 			If Err.Number <> 0 Then
-				'WScript.StdErr.WriteLine Err.Source + ": " + Err.Description 
-				WScript.StdErr.WriteLine "Exception: " + Err.Description 
+				'WScript.StdOut.WriteLine Err.Source + ": " + Err.Description 
+				WScript.StdOut.WriteLine "Exception: " + Err.Description 
 			Else
 				If strRes <> "" Then
 					WScript.Echo strRes

diff --git a/impls/vbs/step8_macros.vbs b/impls/vbs/step8_macros.vbs
@@ -343,8 +343,8 @@ Sub REPL()
 		On Error Resume Next
 			strRes = REP(strCode)
 			If Err.Number <> 0 Then
-				'WScript.StdErr.WriteLine Err.Source + ": " + Err.Description
-				WScript.StdErr.WriteLine "Exception: " + Err.Description
+				'WScript.StdOut.WriteLine Err.Source + ": " + Err.Description
+				WScript.StdOut.WriteLine "Exception: " + Err.Description
 			Else
 				If strRes <> "" Then
 					WScript.Echo strRes

diff --git a/impls/vbs/step9_try.vbs b/impls/vbs/step9_try.vbs
@@ -404,13 +404,13 @@ Sub REPL()
 			strRes = REP(strCode)
 			If Err.Number <> 0 Then
 				If Err.Source = "MThrow" Then
-					'WScript.StdErr.WriteLine Err.Source + ": " + _
-					WScript.StdErr.WriteLine "Exception: " + _
+					'WScript.StdOut.WriteLine Err.Source + ": " + _
+					WScript.StdOut.WriteLine "Exception: " + _
 						PrintMalType(objExceptions.Item(Err.Description), True)
 					objExceptions.Remove Err.Description
 				Else
-					'WScript.StdErr.WriteLine Err.Source + ": " + Err.Description
-					WScript.StdErr.WriteLine "Exception: " + Err.Description
+					'WScript.StdOut.WriteLine Err.Source + ": " + Err.Description
+					WScript.StdOut.WriteLine "Exception: " + Err.Description
 				End If
 			Else
 				If strRes <> "" Then

diff --git a/impls/vbs/stepA_mal.vbs b/impls/vbs/stepA_mal.vbs
@@ -405,13 +405,13 @@ Sub REPL()
 			strRes = REP(strCode)
 			If Err.Number <> 0 Then
 				If Err.Source = "MThrow" Then
-					'WScript.StdErr.WriteLine Err.Source + ": " + _
-					WScript.StdErr.WriteLine "Exception: " + _
+					'WScript.StdOut.WriteLine Err.Source + ": " + _
+					WScript.StdOut.WriteLine "Exception: " + _
 						PrintMalType(objExceptions.Item(Err.Description), True)
 					objExceptions.Remove Err.Description
 				Else
-					'WScript.StdErr.WriteLine Err.Source + ": " + Err.Description
-					WScript.StdErr.WriteLine "Exception: " + Err.Description
+					'WScript.StdOut.WriteLine Err.Source + ": " + Err.Description
+					WScript.StdOut.WriteLine "Exception: " + Err.Description
 				End If
 			Else
 				If strRes <> "" Then