Fixed rwlock typo in symbols.c

svn: r11604
This commit is contained in:
Kevin Tew 2008-09-09 15:54:50 +00:00
parent 5b4c966af3
commit 243b23c499

View File

@ -56,6 +56,7 @@ Scheme_Hash_Table *scheme_parallel_symbol_table = NULL;
mzrt_rwlock *symbol_table_lock;
#else
# define mzrt_rwlock_rdlock(l) /* empty */
# define mzrt_rwlock_wrlock(l) /* empty */
# define mzrt_rwlock_unlock(l) /* empty */
#endif
@ -376,7 +377,7 @@ scheme_intern_exact_symbol_in_table(Scheme_Hash_Table *symbol_table, int kind, c
if (!sym) {
sym = make_a_symbol(name, len, kind);
mzrt_rwlock_rdlock(symbol_table_lock);
mzrt_rwlock_wrlock(symbol_table_lock);
symbol_bucket(symbol_table, name, len, sym);
mzrt_rwlock_unlock(symbol_table_lock);
}