src/HOL/List.thy

--- a/src/HOL/List.thy	Tue Jul 25 16:43:31 2006 +0200
+++ b/src/HOL/List.thy	Tue Jul 25 16:43:32 2006 +0200
@@ -2782,6 +2782,9 @@
     ml (target_atom "char")
     haskell (target_atom "Char")
 
+code_constapp Char
+  ml (target_atom "(__,/ __)")
+
 setup list_codegen_setup
 
 setup CodegenPackage.rename_inconsistent