conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fixes bug 185276: Tracing confused by zero number of return values

This commit is contained in:
Abdulaziz Ghuloum 2008-01-23 03:14:33 -05:00
parent b8ac2f81ea
commit 7f971d710a
2 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
scheme/ikarus.trace.ss
View File

@ -62,12 +62,11 @@
(let ([v* (filter v*)]) (let ([v* (filter v*)])
(write (car v*)) (write (car v*))
(let f ([v* (cdr v*)]) (let f ([v* (cdr v*)])
(cond (unless (null? v*)
[(null? v*) (newline)] (write-char #\space)
[else (write (car v*))
(write-char #\space) (f (cdr v*))))))
(write (car v*)) (newline)
(f (cdr v*))]))))
(apply values v*)))) (apply values v*))))
(lambda () (set! k* (cdr k*))))]))))]))) (lambda () (set! k* (cdr k*))))]))))])))

2
scheme/last-revision
View File

@ -1 +1 @@
1363 1365