let
raise_compile_error slist = raise (
Compile_error
(
String
.concat
""
slist))