The following code
#include
int main()
{
scm_init_guile ();
SCM str = scm_c_make_bytevector (0);
SCM port = scm_open_bytevector_input_port (str, SCM_UNDEFINED);
scm_set_port_filename_x (port, scm_from_locale_string ("/usr/local/tmp/lilypond/ly/init.ly"));
return 0;
}
crashes with the
David Kastrup writes:
> Run the following code in an UTF-8 capable locale:
>
> (setlocale LC_ALL "")
> (use-modules (rnrs io ports) (rnrs bytevectors) (ice-9 format))
> (let ((p (open-bytevector-input-port
> (u8-list->bytevector '(#xc3 #x9f #xc3 #X9f)
> (format #t "~a ~a\n" (port-en
David Kastrup writes:
> The following code
>
>
> #include
>
> int main()
> {
> scm_init_guile ();
> SCM str = scm_c_make_bytevector (0);
> SCM port = scm_open_bytevector_input_port (str, SCM_UNDEFINED);
> scm_set_port_filename_x (port, scm_from_locale_string
> ("/usr/local/tmp/lilypond/
