From 455c8debce5015a0986a6c795292288cb1b6c541 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Wed, 23 Jul 2014 20:09:09 +0900 Subject: [PATCH] Don't report missing test source for the pathological case of testing the literal #f. --- lib/chibi/test.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/chibi/test.scm b/lib/chibi/test.scm index 94fa8479..f6b134e0 100644 --- a/lib/chibi/test.scm +++ b/lib/chibi/test.scm @@ -322,9 +322,9 @@ (assq-ref info 'gen-name) (let ((name (cond - ((assq-ref info 'source) + ((assq 'source info) => (lambda (src) - (truncate-source src (- (current-column-width) 12)))) + (truncate-source (cdr src) (- (current-column-width) 12)))) ((current-test-group) => (lambda (g) (display "no source in: " (current-error-port))