summaryrefslogtreecommitdiff
path: root/libguile/eval.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/eval.c')
-rw-r--r--libguile/eval.c16
1 files changed, 8 insertions, 8 deletions
diff --git a/libguile/eval.c b/libguile/eval.c
index 04575e104..a83bab5b3 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -426,13 +426,13 @@ scm_eval_car (pair, env)
* some memoized forms have different syntax
*/
-char scm_s_expression[] = "missing or extra expression";
-char scm_s_test[] = "bad test";
-char scm_s_body[] = "bad body";
-char scm_s_bindings[] = "bad bindings";
-char scm_s_variable[] = "bad variable";
-char scm_s_clauses[] = "bad or missing clauses";
-char scm_s_formals[] = "bad formals";
+const char scm_s_expression[] = "missing or extra expression";
+const char scm_s_test[] = "bad test";
+const char scm_s_body[] = "bad body";
+const char scm_s_bindings[] = "bad bindings";
+const char scm_s_variable[] = "bad variable";
+const char scm_s_clauses[] = "bad or missing clauses";
+const char scm_s_formals[] = "bad formals";
SCM scm_i_dot, scm_i_arrow, scm_i_else, scm_i_unquote, scm_i_uq_splicing, scm_i_apply;
@@ -3318,7 +3318,7 @@ scm_eval_x (obj)
scm_top_level_env (SCM_CDR (scm_top_level_lookup_closure_var)));
}
-static scm_smobfuns promsmob = {scm_markcdr, scm_free0, prinprom};
+static const scm_smobfuns promsmob = {scm_markcdr, scm_free0, prinprom};
/* At this point, scm_deval and scm_dapply are generated.