suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed rwlock typo in symbols.c

Browse Source 
svn: r11604
This commit is contained in:
Kevin Tew 2008-09-09 15:54:50 +00:00
parent 5b4c966af3
commit 243b23c499
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/mzscheme/src/symbol.c
View File

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