Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-08 21:47:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Don't report missing test source for the pathological case of testing the literal #f.

Browse source
This commit is contained in:
Alex Shinn 2014-07-23 20:09:09 +09:00
parent 76501b602f
commit 455c8debce
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/chibi/test.scm
View file

@ -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))