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

Improve printing of function types

Browse source
This commit is contained in:
Justin Ethier 2015-03-03 22:12:43 -05:00
parent 8ed952744a
commit 1968983fe0
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
runtime.h
View file

@ -368,6 +368,7 @@ static primitive_type name##_primitive = {primitive_tag, #name, fnc}; \
static const object primitive_##name = &name##_primitive static const object primitive_##name = &name##_primitive
#define prim(x) (x && ((primitive)x)->tag == primitive_tag) #define prim(x) (x && ((primitive)x)->tag == primitive_tag)
#define prim_name(x) (((primitive_type *) x)->pname)
/* Symbol Table */ /* Symbol Table */
@ -541,7 +542,7 @@ static object Cyc_display(x) object x;
case closure3_tag: case closure3_tag:
case closure4_tag: case closure4_tag:
case closureN_tag: case closureN_tag:
printf("<%p>",(void *)((closure) x)->fn); printf("<procedure %p>",(void *)((closure) x)->fn);
break; break;
case eof_tag: case eof_tag:
printf("<EOF>"); printf("<EOF>");
@ -550,7 +551,7 @@ static object Cyc_display(x) object x;
printf("<port>"); printf("<port>");
break; break;
case primitive_tag: case primitive_tag:
printf("<primitive>"); printf("<primitive %s>", prim_name(x));
break; break;
case cvar_tag: case cvar_tag:
Cyc_display(Cyc_get_cvar(x)); Cyc_display(Cyc_get_cvar(x));