From 1968983fe0108ffd5a3aac645be1c205587e94c8 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 3 Mar 2015 22:12:43 -0500
Subject: [PATCH] Improve printing of function types

---
 runtime.h | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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