From e005dc79e2f1783c589992c8e23892734887370d Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Mon, 19 Dec 2016 14:49:15 +0000
Subject: [PATCH] Issue #5 - Do not allow cycles when printing cvars

---
 runtime.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/runtime.c b/runtime.c
index a2cf65ad..2523a314 100644
--- a/runtime.c
+++ b/runtime.c
@@ -758,7 +758,7 @@ object Cyc_display(object x, FILE * port)
     fprintf(port, "<primitive %s>", prim_name(x));
     break;
   case cvar_tag:
-    Cyc_display(Cyc_get_cvar(x), port);
+    fprintf(port, "<cvar %p>", Cyc_get_cvar(x));
     break;
   case c_opaque_tag:
     fprintf(port, "<C opaque %p>", opaque_ptr(x));