From e5d015e9cb8b7394e8391e3bbb4dfbad8732f717 Mon Sep 17 00:00:00 2001
From: mescalinum <mescalinum@users.sourceforge.net>
Date: Thu, 17 Nov 2011 20:42:06 +0000
Subject: correct rendering of A_DOLLAR atoms

svn path=/trunk/externals/loaders/tclpd/; revision=15791
---
 tcl_typemap.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/tcl_typemap.c b/tcl_typemap.c
index 5e1afea..864af24 100644
--- a/tcl_typemap.c
+++ b/tcl_typemap.c
@@ -142,7 +142,9 @@ int pdatom_to_tcl(t_atom *input, Tcl_Obj **output) {
         }
         case A_DOLLAR:
         {
-            tcl_t_atom[1] = Tcl_NewIntObj((int)input->a_w.w_index);
+            char dolbuf[8];
+            snprintf(dolbuf, 8, "$%d", (int)input->a_w.w_index);
+            tcl_t_atom[1] = Tcl_NewStringObj(dolbuf, -1);
             break;
         }
         case A_SEMI:
-- 
cgit v1.2.1