~ chicken-core (chicken-5) 0e1aa7ef226aa6c80625fd4753546e0462b9987d

commit 0e1aa7ef226aa6c80625fd4753546e0462b9987d
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Aug 27 22:07:32 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Aug 27 22:07:32 2011 +0200

    small change in output of mini-salmonella in debug mode

diff --git a/scripts/mini-salmonella.scm b/scripts/mini-salmonella.scm
index ff7b8043..ff0ef8bd 100644
--- a/scripts/mini-salmonella.scm
+++ b/scripts/mini-salmonella.scm
@@ -115,7 +115,9 @@
 (for-each
  (lambda (egg)
    (and-let* ((dir (find-newest egg)))
-     (print* egg)
+     (if *debug*
+	 (print "\n\n######################################## " egg "\n")
+	 (print* egg))
      (cleanup-repository)
      (let ((meta (file-exists? (make-pathname dir egg "meta"))))
        (if meta