Fix bug

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))))))

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)