summaryrefslogtreecommitdiffhomepage
path: root/mixguile
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2003-06-02 23:22:31 +0000
committerJose Antonio Ortega Ruiz <jao@gnu.org>2003-06-02 23:22:31 +0000
commitbca4015883b15382917d7ce0d4ea7e72e7ddb368 (patch)
tree7ca57d644bd257ffed9bc8c9227b5dd1515fcc64 /mixguile
parent5d6fcb158967f8357af13d8dc1dc4da5699efdff (diff)
downloadmdk-bca4015883b15382917d7ce0d4ea7e72e7ddb368.tar.gz
mdk-bca4015883b15382917d7ce0d4ea7e72e7ddb368.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.c4
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])