+ */
+ /*
+ if (pid == 0) {
+ scm_write (scm_from_locale_string ("prueba"), SCM_CDR (pipes));
+ sleep (10);
+ }
+ else {
+ while (scm_char_ready_p (SCM_CAR (pipes)) == SCM_BOOL_F) {
+ sleep (1);
+ printf ("1\n");
+ }
+ SCM buffer;
+ buffer = scm_read_line (SCM_CAR (pipes));
+ printf ("%s\n", scm_to_locale_string (buffer));
+ }
+ */
+ FILE *stream;
+ pipe (p);
+ if (pid == 0) {
+ close (p[1]);
+ stream = fdopen (p[0], "w");
+ fprintf (stream, "prueba\n");
+ fclose (stream);
+ printf ("1\n");
+ sleep (10);
+ }
+ else {
+ int c;
+ close (p[0]);
+ stream = fdopen (p[1], "r");
+ while ((c = fgetc (stream)) != EOF)
+ putchar (c);
+ }