diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2003-06-02 23:22:31 +0000 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2003-06-02 23:22:31 +0000 |
| commit | 2ffe12d0527ebaa57c95ca28f2bae5b99d1b5b47 (patch) | |
| tree | 123e516a20ef751e6a47749d46106267c1f8bb09 /mixguile | |
| parent | f6f760db6440c5f672abafa2dfcbd908c9d9c823 (diff) | |
| download | mdk-2ffe12d0527ebaa57c95ca28f2bae5b99d1b5b47.tar.gz mdk-2ffe12d0527ebaa57c95ca28f2bae5b99d1b5b47.tar.bz2 | |
bug fix: mix_reg_() and mix_set_reg_() did not convert argument to
string if it was a symbol.
Diffstat (limited to 'mixguile')
| -rw-r--r-- | mixguile/xmixguile_cmd_dispatcher.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/mixguile/xmixguile_cmd_dispatcher.c b/mixguile/xmixguile_cmd_dispatcher.c index ae383ac..70fa849 100644 --- a/mixguile/xmixguile_cmd_dispatcher.c +++ b/mixguile/xmixguile_cmd_dispatcher.c @@ -1,7 +1,7 @@ /* -*-c-*- -------------- xmixguile_cmd_dispatcher.c : * Implementation of the functions declared in xmixguile_cmd_dispatcher.h * ------------------------------------------------------------------ - * $Id: xmixguile_cmd_dispatcher.c,v 1.10 2003/04/06 13:27:42 jao Exp $ + * $Id: xmixguile_cmd_dispatcher.c,v 1.11 2003/06/02 23:22:31 jao Exp $ * ------------------------------------------------------------------ * Copyright (C) 2001, 2002, 2003 Free Software Foundation, Inc. * @@ -121,6 +121,7 @@ mix_reg_ (SCM reg) SCM_ASSERT (SCM_STRINGP (reg) || SCM_SYMBOLP (reg), reg, SCM_ARG1, "mix-reg"); SCM_DEFER_INTS; + if (SCM_SYMBOLP (reg)) reg = scm_symbol_to_string (reg); regis = gh_scm2newstr (reg, &len); switch (regis[0]) { @@ -161,6 +162,7 @@ mix_set_reg_ (SCM reg, SCM value) SCM_ASSERT (SCM_NUMBERP (value), value, SCM_ARG2, "mix-set-reg!"); SCM_DEFER_INTS; + if (SCM_SYMBOLP (reg)) reg = scm_symbol_to_string (reg); regis = gh_scm2newstr (reg, &len); val = gh_scm2long (value); switch (regis[0]) |