From 7f971d710a968fe49f88b1c7126960202ed46209 Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Wed, 23 Jan 2008 03:14:33 -0500
Subject: [PATCH] Fixes bug 185276: Tracing confused by zero number of return
 values

---
 scheme/ikarus.trace.ss | 11 +++++------
 scheme/last-revision   |  2 +-
 2 files changed, 6 insertions(+), 7 deletions(-)

diff --git a/scheme/ikarus.trace.ss b/scheme/ikarus.trace.ss
index 8bdebbc..9211f36 100644
--- a/scheme/ikarus.trace.ss
+++ b/scheme/ikarus.trace.ss
@@ -62,12 +62,11 @@
                           (let ([v* (filter v*)])
                             (write (car v*))
                             (let f ([v* (cdr v*)])
-                              (cond
-                                [(null? v*) (newline)]
-                                [else
-                                 (write-char #\space)
-                                 (write (car v*))
-                                 (f (cdr v*))]))))
+                              (unless (null? v*)
+                                (write-char #\space)
+                                (write (car v*))
+                                (f (cdr v*))))))
+                        (newline)
                         (apply values v*))))
                   (lambda () (set! k* (cdr k*))))]))))])))
 
diff --git a/scheme/last-revision b/scheme/last-revision
index a3c357f..0857593 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1363
+1365