diff options
Diffstat (limited to 'modules')
-rw-r--r-- | modules/mod-test/mod-test.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/modules/mod-test/mod-test.c b/modules/mod-test/mod-test.c index 79f347f04ab..d1a4ce0d6fa 100644 --- a/modules/mod-test/mod-test.c +++ b/modules/mod-test/mod-test.c @@ -78,7 +78,7 @@ Fmod_test_non_local_exit_funcall (emacs_env *env, int nargs, emacs_value args[], void *data) { assert (nargs == 1); - const emacs_value result = env->funcall (env, args[0], 0, NULL); + emacs_value result = env->funcall (env, args[0], 0, NULL); emacs_value non_local_exit_symbol, non_local_exit_data; enum emacs_funcall_exit code = env->non_local_exit_get (env, &non_local_exit_symbol, @@ -90,7 +90,7 @@ Fmod_test_non_local_exit_funcall (emacs_env *env, int nargs, emacs_value args[], case emacs_funcall_exit_signal: { env->non_local_exit_clear (env); - const emacs_value Flist = env->intern (env, "list"); + emacs_value Flist = env->intern (env, "list"); emacs_value list_args[] = {env->intern (env, "signal"), non_local_exit_symbol, non_local_exit_data}; return env->funcall (env, Flist, 3, list_args); @@ -98,7 +98,7 @@ Fmod_test_non_local_exit_funcall (emacs_env *env, int nargs, emacs_value args[], case emacs_funcall_exit_throw: { env->non_local_exit_clear (env); - const emacs_value Flist = env->intern (env, "list"); + emacs_value Flist = env->intern (env, "list"); emacs_value list_args[] = {env->intern (env, "throw"), non_local_exit_symbol, non_local_exit_data}; return env->funcall (env, Flist, 3, list_args); @@ -191,7 +191,7 @@ Fmod_test_vector_fill (emacs_env *env, int nargs, emacs_value args[], void *data { emacs_value vec = args[0]; emacs_value val = args[1]; - const size_t size = env->vec_size (env, vec); + size_t size = env->vec_size (env, vec); for (size_t i = 0; i < size; i++) env->vec_set (env, vec, i, val); return env->intern (env, "t"); @@ -205,7 +205,7 @@ Fmod_test_vector_eq (emacs_env *env, int nargs, emacs_value args[], void *data) { emacs_value vec = args[0]; emacs_value val = args[1]; - const size_t size = env->vec_size (env, vec); + size_t size = env->vec_size (env, vec); for (size_t i = 0; i < size; i++) if (!env->eq (env, env->vec_get (env, vec, i), val)) return env->intern (env, "nil"); |