From 0ba3f162322e6c878bc6b31c30f9e5c18b7570ef Mon Sep 17 00:00:00 2001
From: "Charles.Forsyth" <devnull@localhost>
Date: Thu, 29 May 2008 18:50:41 +0000
Subject: 20080529-1950

---
 limbo/stubs.c | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'limbo')

diff --git a/limbo/stubs.c b/limbo/stubs.c
index 3c174e4a..7d951c63 100644
--- a/limbo/stubs.c
+++ b/limbo/stubs.c
@@ -493,6 +493,8 @@ ctprint(char *buf, char *end, Type *t)
 	case Tfix:
 	case Tpoly:
 		return seprint(buf, end, "%s", ckindname[t->kind]);
+	case Tadtpick:
+		return ctprint(buf, end, t->decl->dot->ty);
 	case Tadt:
 	case Ttuple:
 		if(t->decl->sym != anontupsym)
-- 
cgit v1.2.3