From 243b23c4995b4cc6ff7dce0a1eddc89210d918a2 Mon Sep 17 00:00:00 2001 From: Kevin Tew Date: Tue, 9 Sep 2008 15:54:50 +0000 Subject: [PATCH] Fixed rwlock typo in symbols.c svn: r11604 --- src/mzscheme/src/symbol.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/mzscheme/src/symbol.c b/src/mzscheme/src/symbol.c index 69095bdccd..6b81bbf160 100644 --- a/src/mzscheme/src/symbol.c +++ b/src/mzscheme/src/symbol.c @@ -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); }