dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove scm_puts_unlocked.

Browse source 
* libguile/ports.h (scm_puts_unlocked): Remove.
* libguile/ports.c (scm_puts): Replace implementation with
  scm_puts_unlocked's implementation.
* libguile/arbiters.c:
* libguile/backtrace.c:
* libguile/bitvectors.c:
* libguile/continuations.c:
* libguile/deprecation.c:
* libguile/dynl.c:
* libguile/eval.c:
* libguile/filesys.c:
* libguile/fluids.c:
* libguile/foreign.c:
* libguile/fports.c:
* libguile/frames.c:
* libguile/guardians.c:
* libguile/hashtab.c:
* libguile/hooks.c:
* libguile/load.c:
* libguile/macros.c:
* libguile/mallocs.c:
* libguile/print.c:
* libguile/programs.c:
* libguile/promises.c:
* libguile/smob.c:
* libguile/srcprop.c:
* libguile/srfi-14.c:
* libguile/stackchk.c:
* libguile/struct.c:
* libguile/threads.c:
* libguile/throw.c:
* libguile/values.c:
* libguile/variable.c:
* libguile/vm.c:
* libguile/weak-set.c:
* libguile/weak-table.c: Use scm_puts instead of scm_puts_unlocked.
This commit is contained in:
Andy Wingo 2016-04-26 23:07:28 +02:00
commit 105e36543f
35 changed files with 118 additions and 129 deletions
Download patch file Download diff file Expand all files Collapse all files

18
libguile/srfi-14.c
View file

@ -597,27 +597,27 @@ charset_print (SCM charset, SCM port, scm_print_state *pstate SCM_UNUSED)
p = SCM_CHARSET_DATA (charset);
scm_puts_unlocked ("#<charset {", port);
scm_puts ("#<charset {", port);
for (i = 0; i < p->len; i++)
{
if (first)
first = 0;
else
scm_puts_unlocked (" ", port);
scm_puts (" ", port);
scm_write (SCM_MAKE_CHAR (p->ranges[i].lo), port);
if (p->ranges[i].lo != p->ranges[i].hi)
{
scm_puts_unlocked ("..", port);
scm_puts ("..", port);
scm_write (SCM_MAKE_CHAR (p->ranges[i].hi), port);
}
if (i >= max_ranges_to_print)
{
/* Too many to print here. Quit early. */
scm_puts_unlocked (" ...", port);
scm_puts (" ...", port);
break;
}
}
scm_puts_unlocked ("}>", port);
scm_puts ("}>", port);
return 1;
}
@ -630,16 +630,16 @@ charset_cursor_print (SCM cursor, SCM port,
cur = (scm_t_char_set_cursor *) SCM_SMOB_DATA (cursor);
scm_puts_unlocked ("#<charset-cursor ", port);
scm_puts ("#<charset-cursor ", port);
if (cur->range == (size_t) (-1))
scm_puts_unlocked ("(empty)", port);
scm_puts ("(empty)", port);
else
{
scm_write (scm_from_size_t (cur->range), port);
scm_puts_unlocked (":", port);
scm_puts (":", port);
scm_write (scm_from_int32 (cur->n), port);
}
scm_puts_unlocked (">", port);
scm_puts (">", port);
return 1;
}