Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix returning from I/O dispatch functions

Browse source
This commit is contained in:
Justin Ethier 2015-06-09 21:58:15 -04:00
parent 94993ef05b
commit daa989da10
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
runtime.c
View file

@ -298,7 +298,7 @@ object dispatch_display_va(int argc, object clo, object cont, object x, ...) {
va_start(ap, x); va_start(ap, x);
result = Cyc_display_va_list(argc - 1, x, ap); result = Cyc_display_va_list(argc - 1, x, ap);
va_end(ap); va_end(ap);
return result; return_funcall1(cont, &result);
} }
object Cyc_display_va(int argc, object x, ...) { 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); va_start(ap, x);
result = Cyc_write_va_list(argc - 1, x, ap); result = Cyc_write_va_list(argc - 1, x, ap);
va_end(ap); va_end(ap);
return result; return_funcall1(cont, &result);
} }
object Cyc_write_va(int argc, object x, ...) { object Cyc_write_va(int argc, object x, ...) {