Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-06 12:46:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Avoid segfaults

Browse source
This commit is contained in:
Justin Ethier 2015-07-07 22:51:22 -04:00
parent 3b00954d94
commit 558a51f424
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
runtime.c
View file

@ -388,7 +388,8 @@ object Cyc_display(object x, FILE *port)
// Experimenting with displaying lambda defs in REPL // Experimenting with displaying lambda defs in REPL
// not good enough but this is a start. would probably need // not good enough but this is a start. would probably need
// the same code in write() // the same code in write()
if (strncmp(((symbol)car(x))->pname, "procedure", 10) == 0) { if (Cyc_is_symbol(car(x)) == boolean_t &&
strncmp(((symbol)car(x))->pname, "procedure", 10) == 0) {
fprintf(port, " "); fprintf(port, " ");
Cyc_display(cadr(x), port); Cyc_display(cadr(x), port);
fprintf(port, " ...)"); /* skip body and env for now */ fprintf(port, " ...)"); /* skip body and env for now */
@ -461,7 +462,8 @@ static object _Cyc_write(object x, FILE *port)
// Experimenting with displaying lambda defs in REPL // Experimenting with displaying lambda defs in REPL
// not good enough but this is a start. would probably need // not good enough but this is a start. would probably need
// the same code in write() // the same code in write()
if (strncmp(((symbol)car(x))->pname, "procedure", 10) == 0) { if (Cyc_is_symbol(car(x)) == boolean_t &&
strncmp(((symbol)car(x))->pname, "procedure", 10) == 0) {
fprintf(port, " "); fprintf(port, " ");
_Cyc_write(cadr(x), port); _Cyc_write(cadr(x), port);
fprintf(port, " ...)"); /* skip body and env for now */ fprintf(port, " ...)"); /* skip body and env for now */
@ -1446,6 +1448,8 @@ object apply(object cont, object func, object args){
case cons_tag: case cons_tag:
{ {
// TODO: should add more error checking here, make sure car(func) is a symbol
// TODO: would be better to compare directly against symbols here, // TODO: would be better to compare directly against symbols here,
// but need a way of looking them up ahead of time. // but need a way of looking them up ahead of time.
// maybe a libinit() or such is required. // maybe a libinit() or such is required.