mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-07-08 21:47:33 +02:00
Don't report missing test source for the pathological case of testing the literal #f.
This commit is contained in:
parent
76501b602f
commit
455c8debce
1 changed files with 2 additions and 2 deletions
|
@ -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))
|
||||
|
|
Loading…
Add table
Reference in a new issue