X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=blobdiff_plain;f=src%2Fscheme%2Fao_scheme_make_builtin;fp=src%2Fscheme%2Fao_scheme_make_builtin;h=a4d8326ff904c332624e16e92178e8b764b9f68d;hp=78f97789de4eddd08763f0a27e923dbede6d73c9;hb=4bfce37e7567d9c2a09ea4da8113e7639516ed6e;hpb=28dbe9a04b16f79db255baecbf0cd486c510ef58

diff --git a/src/scheme/ao_scheme_make_builtin b/src/scheme/ao_scheme_make_builtin
index 78f97789..a4d8326f 100644
--- 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]);
 		}
-	printf("\tdefault: return \"???\";\n");
+	printf("\tdefault: return (char *) \"???\";\n");
 	printf("\t}\n");
 	printf("}\n");
 	printf("#endif /* AO_SCHEME_BUILTIN_CASENAME */\n");