From f659ac07cd22780a85e6216142f2c33d5112dc08 Mon Sep 17 00:00:00 2001
From: Lassi Kortela <lassi@lassi.io>
Date: Sun, 19 Sep 2021 14:41:47 +0300
Subject: [PATCH] Fix bug

---
 eval-client.scm | 7 +++----
 eval-server.scm | 5 ++++-
 2 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/eval-client.scm b/eval-client.scm
index b614ec8..5ecf5cb 100644
--- a/eval-client.scm
+++ b/eval-client.scm
@@ -62,7 +62,6 @@
    (let loop ()
      (let ((entry (read-tar-entry)))
        (unless (eof-object? entry)
-         (read-tar-entry-bytes entry)
-         (loop))))
-   (display "Success")
-   (newline)))
+         (write-string (utf8->string (read-tar-entry-bytes entry)))
+         (newline)
+         (loop))))))
diff --git a/eval-server.scm b/eval-server.scm
index 0e1026d..153ea85 100644
--- a/eval-server.scm
+++ b/eval-server.scm
@@ -11,6 +11,8 @@
 (define implementations
   '(("gauche" '("gosh" "-r" "7"))))
 
+(define implementation-name first)
+
 (define tar-content-type "application/x-tar")
 
 (define (tar-content-type? symbol)
@@ -92,7 +94,8 @@
   (send-response
    status: 'ok
    body: (bytevector->string
-          (let ((bytes (string->utf8 "Hello world")))
+          (let ((bytes (string->utf8
+                        (string-append "Hello " (implementation-name impl)))))
             (bytevector-append
              (bytevector-append
               (make-tar-header-for-regular-file "proc/fd/1" bytes)