aboutsummaryrefslogtreecommitdiff
path: root/src/guile/srfi
diff options
context:
space:
mode:
Diffstat (limited to 'src/guile/srfi')
-rw-r--r--src/guile/srfi/srfi-64.upstream.scm10
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 ()