mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

Whitespace fixes

Browse source 
* libguile/ports.c: Fix whitespaces introduced when adding the port
  lock.
This commit is contained in:
Andy Wingo 2016-04-04 11:14:41 +02:00
parent 2caae477c5
commit b7e49a75a9
1 changed files with 0 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/ports.c
View file

@ -1564,7 +1564,6 @@ scm_c_read (SCM port, void *buffer, size_t size)
if (lock)
scm_i_pthread_mutex_unlock (lock);
return ret;
}
@ -1949,7 +1948,6 @@ scm_getc (SCM port)
if (lock)
scm_i_pthread_mutex_unlock (lock);
return ret;
}
@ -2162,7 +2160,6 @@ scm_ungetc (scm_t_wchar c, SCM port)
scm_ungetc_unlocked (c, port);
if (lock)
scm_i_pthread_mutex_unlock (lock);
}
void
@ -2186,7 +2183,6 @@ scm_ungets (const char *s, int n, SCM port)
scm_ungets_unlocked (s, n, port);
if (lock)
scm_i_pthread_mutex_unlock (lock);
}
SCM_DEFINE (scm_peek_char, "peek-char", 0, 1, 0,
@ -2456,7 +2452,6 @@ scm_fill_input (SCM port)
if (lock)
scm_i_pthread_mutex_unlock (lock);
return ret;
}
@ -2613,7 +2608,6 @@ scm_end_input (SCM port)
scm_end_input_unlocked (port);
if (lock)
scm_i_pthread_mutex_unlock (lock);
}
SCM_DEFINE (scm_force_output, "force-output", 0, 1, 0,
@ -2653,7 +2647,6 @@ scm_flush (SCM port)
scm_flush_unlocked (port);
if (lock)
scm_i_pthread_mutex_unlock (lock);
}
int
@ -2675,7 +2668,6 @@ scm_putc (char c, SCM port)
scm_putc_unlocked (c, port);
if (lock)
scm_i_pthread_mutex_unlock (lock);
}
void
@ -2686,7 +2678,6 @@ scm_puts (const char *s, SCM port)
scm_puts_unlocked (s, port);
if (lock)
scm_i_pthread_mutex_unlock (lock);
}
/* scm_c_write