From f24a2e8ef7dcc64a560fc8ddd6ff312ca8f36f65 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 28 Dec 2017 17:15:51 -0800
Subject: [PATCH] present: add present for pointer

---
 core/present/present.factor | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/core/present/present.factor b/core/present/present.factor
index 5af80987fe..975973e84d 100644
--- a/core/present/present.factor
+++ b/core/present/present.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2008, 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors effects io.pathnames kernel math math.parser
-quotations sequences strings vocabs words ;
+USING: accessors alien.c-types effects io.pathnames kernel math
+math.parser quotations sequences strings vocabs words ;
 IN: present
 
 GENERIC: present ( object -- string )
@@ -33,4 +33,7 @@ M: callable present
         [ drop "[ " ]
         [ [ present ] map " " join ]
         [ drop " ]" ] tri 3append
-    ] if-empty ;
\ No newline at end of file
+    ] if-empty ;
+
+M: pointer present
+    to>> name>> "*" append ;