Tiny changes, made note of bug in SPL.

[jars.git] / koth.scm

diff --git a/koth.scm b/koth.scm
index a9c1a84..45e4bb8 100644 (file)
--- a/koth.scm
+++ b/koth.scm
@@ -227,10 +227,9 @@
        (if (null? rankings)
            (print "No warriors on hill!")
            (begin
-             (print rankings)
              (print "Warrior" "\t" "Score")
              (print "-=-=-=-" "\t" "=-=-=")
-             (for-each (lambda (r) (print (car r) "\t" (cadr r))) rankings)))))
+             (for-each (lambda (r) (print (car r) "\t\t" (cadr r))) rankings)))))
     ((hill-dir challenger-file)
      (challenge hill-dir challenger-file))
     (else