From daa989da10113cd70f4cbd3538d5281f75b62447 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 9 Jun 2015 21:58:15 -0400
Subject: [PATCH] Fix returning from I/O dispatch functions

---
 runtime.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/runtime.c b/runtime.c
index 1a4c4b0f..043ac8d2 100644
--- a/runtime.c
+++ b/runtime.c
@@ -298,7 +298,7 @@ object dispatch_display_va(int argc, object clo, object cont, object x, ...) {
   va_start(ap, x);
   result = Cyc_display_va_list(argc - 1, x, ap);
   va_end(ap);
-  return result;
+  return_funcall1(cont, &result);
 }
 
 object Cyc_display_va(int argc, object x, ...) {
@@ -411,7 +411,7 @@ object dispatch_write_va(int argc, object clo, object cont, object x, ...) {
   va_start(ap, x);
   result = Cyc_write_va_list(argc - 1, x, ap);
   va_end(ap);
-  return result;
+  return_funcall1(cont, &result);
 }
 
 object Cyc_write_va(int argc, object x, ...) {