mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-23 03:54:12 +02:00
Code Activity

Critical section review

Browse source
This commit is contained in:
Neil Jerram 2005-04-24 12:23:24 +00:00
parent 13155c50c4
commit a61b2054b4
3 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/keywords.c
View file

@ -66,6 +66,7 @@ SCM_DEFINE (scm_symbol_to_keyword, "symbol->keyword", 1, 0, 0,
SCM_ASSERT_TYPE (scm_is_symbol (symbol), symbol, 0, NULL, "symbol");
SCM_CRITICAL_SECTION_START;
/* njrev: NEWSMOB and hashq_set_x can raise errors */
keyword = scm_hashq_ref (scm_keyword_obarray, symbol, SCM_BOOL_F);
if (scm_is_false (keyword))
{
@ -105,7 +106,7 @@ scm_from_locale_keywordn (const char *str, size_t len)
return scm_symbol_to_keyword (scm_from_locale_symboln (str, len));
}
/* njrev: critical sections reviewed so far up to here */
void
scm_init_keywords ()
{