From 94993ef05b051e6681474d991e73e91829302ca7 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 9 Jun 2015 17:35:05 -0400
Subject: [PATCH] Fixed function definitions

---
 runtime.c | 6 +++---
 runtime.h | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/runtime.c b/runtime.c
index d26d1e56..1a4c4b0f 100644
--- a/runtime.c
+++ b/runtime.c
@@ -292,7 +292,7 @@ object Cyc_has_cycle(object lst) {
 // to the value returned by (current-output-port). It is an
 // error to attempt an output operation on a closed port
 //
-object dispatch_display_va(int argc, object x, ...) {
+object dispatch_display_va(int argc, object clo, object cont, object x, ...) {
   object result;
   va_list ap;
   va_start(ap, x);
@@ -405,7 +405,7 @@ object Cyc_display(object x, FILE *port)
       fprintf(port, "Cyc_display: bad tag x=%ld\n", ((closure)x)->tag); getchar(); exit(0);}
  return x;}
 
-object dispatch_write_va(int argc, object x, ...) {
+object dispatch_write_va(int argc, object clo, object cont, object x, ...) {
   object result;
   va_list ap;
   va_start(ap, x);
@@ -1254,7 +1254,7 @@ void _peek_91char(object cont, object args) {
     return_funcall1(cont, Cyc_io_peek_char(car(args)));}
 void _write(object cont, object args) {  
 
-   TODO: this and _display below are broken and crashing in icyc. not sure what is going on?
+//   TODO: this and _display below are broken and crashing in icyc. not sure what is going on?
     integer_type argc = Cyc_length(args);
     dispatch(argc.value, (function_type)dispatch_write_va, cont, cont, args); }
 void _display(object cont, object args) {  
diff --git a/runtime.h b/runtime.h
index 5fd2a6f9..0ccc695f 100644
--- a/runtime.h
+++ b/runtime.h
@@ -69,11 +69,11 @@ list mcons(object,object);
 cvar_type *mcvar(object *var);
 object terpri(void);
 object Cyc_display(object, FILE *port);
-object dispatch_display_va(int argc, object x, ...);
+object dispatch_display_va(int argc, object clo, object cont, object x, ...);
 object Cyc_display_va(int argc, object x, ...);
 object Cyc_display_va_list(int argc, object x, va_list ap);
 object Cyc_write(object, FILE *port);
-object dispatch_write_va(int argc, object x, ...);
+object dispatch_write_va(int argc, object clo, object cont, object x, ...);
 object Cyc_write_va(int argc, object x, ...);
 object Cyc_write_va_list(int argc, object x, va_list ap);