diff options
| author | mescalinum <mescalinum@users.sourceforge.net> | 2011-11-17 20:42:06 +0000 |
|---|---|---|
| committer | mescalinum <mescalinum@users.sourceforge.net> | 2011-11-17 20:42:06 +0000 |
| commit | e5d015e9cb8b7394e8391e3bbb4dfbad8732f717 (patch) | |
| tree | f3e561f66731b3a0bf0b9c697664628fd857248c | |
| parent | 3870003b99d8d45c86a77f4cf25e477e2cc2ea04 (diff) | |
correct rendering of A_DOLLAR atoms
svn path=/trunk/externals/loaders/tclpd/; revision=15791
| -rw-r--r-- | tcl_typemap.c | 4 |
1 files changed, 3 insertions, 1 deletions
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: |