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

Fixed function definitions

Browse source
This commit is contained in:
Justin Ethier 2015-06-09 17:35:05 -04:00
parent 111cf6f3a6
commit 94993ef05b
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
runtime.c
View file

@ -292,7 +292,7 @@ object Cyc_has_cycle(object lst) {
// to the value returned by (current-output-port). It is an // to the value returned by (current-output-port). It is an
// error to attempt an output operation on a closed port // 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; object result;
va_list ap; va_list ap;
va_start(ap, x); 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);} fprintf(port, "Cyc_display: bad tag x=%ld\n", ((closure)x)->tag); getchar(); exit(0);}
return x;} return x;}
object dispatch_write_va(int argc, object x, ...) { object dispatch_write_va(int argc, object clo, object cont, object x, ...) {
object result; object result;
va_list ap; va_list ap;
va_start(ap, x); va_start(ap, x);
@ -1254,7 +1254,7 @@ void _peek_91char(object cont, object args) {
return_funcall1(cont, Cyc_io_peek_char(car(args)));} return_funcall1(cont, Cyc_io_peek_char(car(args)));}
void _write(object cont, object 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); integer_type argc = Cyc_length(args);
dispatch(argc.value, (function_type)dispatch_write_va, cont, cont, args); } dispatch(argc.value, (function_type)dispatch_write_va, cont, cont, args); }
void _display(object cont, object args) { void _display(object cont, object args) {

4
runtime.h
View file

@ -69,11 +69,11 @@ list mcons(object,object);
cvar_type *mcvar(object *var); cvar_type *mcvar(object *var);
object terpri(void); object terpri(void);
object Cyc_display(object, FILE *port); 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(int argc, object x, ...);
object Cyc_display_va_list(int argc, object x, va_list ap); object Cyc_display_va_list(int argc, object x, va_list ap);
object Cyc_write(object, FILE *port); 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(int argc, object x, ...);
object Cyc_write_va_list(int argc, object x, va_list ap); object Cyc_write_va_list(int argc, object x, va_list ap);