diff options
| -rw-r--r-- | src/guile/srfi/srfi-64.upstream.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/src/guile/srfi/srfi-64.upstream.scm b/src/guile/srfi/srfi-64.upstream.scm index 15de1f1..037ba02 100644 --- a/src/guile/srfi/srfi-64.upstream.scm +++ b/src/guile/srfi/srfi-64.upstream.scm @@ -314,6 +314,10 @@ (log-file (cond-expand (mzscheme (open-output-file log-file-name 'truncate/replace)) + (guile-2 + (with-fluids ((%default-port-encoding + "UTF-8")) + (open-output-file log-file-name))) (else (open-output-file log-file-name))))) (display "%%%% Starting test " log-file) (display suite-name log-file) @@ -565,7 +569,11 @@ (define-syntax %test-evaluate-with-catch (syntax-rules () ((%test-evaluate-with-catch test-expression) - (catch #t (lambda () test-expression) (lambda (key . args) #f)))))) + (catch #t + (lambda () test-expression) + (lambda (key . args) #f) + (lambda (key . args) + (display-backtrace (make-stack #t) (current-error-port)))))))) (kawa (define-syntax %test-evaluate-with-catch (syntax-rules () |