+ case KEY_PA1:
+ return scm_from_utf8_symbol ("pa1");
+ break;
+
+ case KEY_OEM_CLEAR:
+ return scm_from_utf8_symbol ("oem-clear");
+ break;
+
+ default:
+ SCM code = scm_from_uint (key_code);
+ scm_error (scm_arg_type_key, NULL, "Wrong key code: ~S",
+ scm_list_1 (code), scm_list_1 (code));
+ }