Constify execute_command

[deliverable/binutils-gdb.git] / gdb / guile / scm-cmd.c

diff --git a/gdb/guile/scm-cmd.c b/gdb/guile/scm-cmd.c
index 0bd5105da5b60b5fc4cfc937940657bbb962a6c0..4745defb27eab0ed0665bc36da2ee21a02b695c5 100644 (file)
--- a/gdb/guile/scm-cmd.c
+++ b/gdb/guile/scm-cmd.c
@@ -292,9 +292,8 @@ cmdscm_destroyer (struct cmd_list_element *self, void *context)
 
 static void
 cmdscm_function (struct cmd_list_element *command,
-                char *args_entry, int from_tty)
+                const char *args, int from_tty)
 {
-  const char *args = args_entry;
   command_smob *c_smob/*obj*/ = (command_smob *) get_cmd_context (command);
   SCM arg_scm, tty_scm, result;