altos/scheme: apply const to places taking const strings.

[fw/altos] / src / scheme / ao_scheme_make_builtin

diff --git a/src/scheme/ao_scheme_make_builtin b/src/scheme/ao_scheme_make_builtin
index 78f97789de4eddd08763f0a27e923dbede6d73c9..a4d8326ff904c332624e16e92178e8b764b9f68d 100644 (file)
--- a/src/scheme/ao_scheme_make_builtin
+++ b/src/scheme/ao_scheme_make_builtin
@@ -101,7 +101,7 @@ dump_casename(builtin_t[*] builtins) {
                               builtins[i].c_name, builtins[i].lisp_names[0]);
                        dump_endif(builtins[i]);
                }
                               builtins[i].c_name, builtins[i].lisp_names[0]);
                        dump_endif(builtins[i]);
                }

-       printf("\tdefault: return \"???\";\n");
+       printf("\tdefault: return (char *) \"???\";\n");

        printf("\t}\n");
        printf("}\n");
        printf("#endif /* AO_SCHEME_BUILTIN_CASENAME */\n");
        printf("\t}\n");
        printf("}\n");
        printf("#endif /* AO_SCHEME_BUILTIN_CASENAME */\n");