From 6faba94b1120d0976c628fd3251078aac9d6444c Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Sun, 4 Nov 2007 14:53:36 -0500 Subject: [PATCH] * Unhandled exceptions are now sent to (standard-error-port) instead of (console-output-port). --- scheme/ikarus.cafe.ss | 2 +- scheme/ikarus.conditions.ss | 4 ++-- scheme/ikarus.exceptions.ss | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/scheme/ikarus.cafe.ss b/scheme/ikarus.cafe.ss index ee02475..411c7a5 100644 --- a/scheme/ikarus.cafe.ss +++ b/scheme/ikarus.cafe.ss @@ -72,7 +72,7 @@ description: (lambda (con) (reset-input-port! (console-input-port)) (flush-output-port (console-output-port)) - (display "Unhandled exception\n") + (display "Unhandled exception\n" (standard-error-port)) (print-condition con) (k (void))) (lambda () diff --git a/scheme/ikarus.conditions.ss b/scheme/ikarus.conditions.ss index 51e3ed8..b11d8b9 100644 --- a/scheme/ikarus.conditions.ss +++ b/scheme/ikarus.conditions.ss @@ -355,7 +355,7 @@ (if (null? ls) (display "Condition object with no further information\n" p) (begin - (display " Condition components:\n") + (display " Condition components:\n" p) (let f ([ls ls] [i 1]) (unless (null? ls) (display " " p) @@ -369,7 +369,7 @@ (newline p)])) (case-lambda [(x) - (print-condition x (console-output-port))] + (print-condition x (standard-error-port))] [(x port) (if (output-port? port) (print-condition x port) diff --git a/scheme/ikarus.exceptions.ss b/scheme/ikarus.exceptions.ss index 34f61e0..0e5fb74 100644 --- a/scheme/ikarus.exceptions.ss +++ b/scheme/ikarus.exceptions.ss @@ -30,7 +30,7 @@ (make-parameter (list (lambda (x) - (printf "unhandled exception:\n") + (display "Unhandled exception:\n" (standard-error-port)) (print-condition x) (exit -1)))))