X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgacela_server.scm;h=fbd2b2e1e1204559fffc8a3cf8757025f6d8fa92;hb=b5c968767be22ea1aeff7806c191a223c204184b;hp=6349b6c316dafd0f397f5db327461f9b998b8dc1;hpb=b9e6fa296fff96cca34819510b411e12be0bdbe0;p=gacela.git

diff --git a/src/gacela_server.scm b/src/gacela_server.scm
index 6349b6c..fbd2b2e 100644
--- a/src/gacela_server.scm
+++ b/src/gacela_server.scm
@@ -79,7 +79,8 @@
 		    (cond ((eof-object? exp)
 			   (close rec-channel))
 			  (else
-			   (write (format #f "~a" (eval-string exp)) send-channel)))))
+			   (let ((result (eval-string exp)))
+			     (write (if (eq? result *unspecified*) "" (format #f "~a" result)) send-channel))))))
 		(lambda (key . args)
 		  (let ((fmt (string-concatenate (list (cadr args) "~%")))
 			(params (caddr args)))