- SCM_VALIDATE_ROSTRING (1,filename);
- SCM_VALIDATE_ROSTRING (2,modes);
- if (SCM_SUBSTRP (filename))
- filename = scm_makfromstr (SCM_ROCHARS (filename), SCM_ROLENGTH (filename), 0);
- if (SCM_SUBSTRP (modes))
- modes = scm_makfromstr (SCM_ROCHARS (modes), SCM_ROLENGTH (modes), 0);
+ SCM_VALIDATE_STRING (1, filename);
+ SCM_VALIDATE_STRING (2, modes);
+ SCM_STRING_COERCE_0TERMINATION_X (filename);
+ SCM_STRING_COERCE_0TERMINATION_X (modes);