Commit 42f2fc57 authored by Erick Gallesio's avatar Erick Gallesio

.

parent ce5e0620
......@@ -2,7 +2,7 @@
*
* k e y w o r d . c -- Keywords management
*
* Copyright 1993-2004 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
* Copyright 1993-2006 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
......@@ -20,7 +20,7 @@
*
* Author: Erick Gallesio [eg@kaolin.unice.fr]
* Creation date: 19-Nov-1993 16:12
* Last file update: 12-Dec-2004 23:11 (eg)
* Last file update: 20-Oct-2006 14:42 (eg)
*/
#include "stklos.h"
......@@ -61,7 +61,9 @@ static SCM make_uninterned_keyword(char *name)
SCM STk_makekey(char *token)
{
SCM res;
char *s;
MUT_DECL(lck);
/* We accept two kinds of keywords :xy and xy:. In anycase, the value
* stored does not contain the ':' char.
......@@ -77,7 +79,11 @@ SCM STk_makekey(char *token)
s[len - 1] = '\0';
}
}
return STk_hash_intern_symbol(&keyword_table, s, make_uninterned_keyword);
MUT_LOCK(lck);
res = STk_hash_intern_symbol(&keyword_table, s, make_uninterned_keyword);
MUT_UNLOCK(lck);
return res;
}
/*===========================================================================*\
......
......@@ -21,7 +21,7 @@
*
* Author: Erick Gallesio [eg@unice.fr]
* Creation date: 28-Dec-1999 21:19 (eg)
* Last file update: 20-Oct-2006 12:17 (eg)
* Last file update: 20-Oct-2006 14:36 (eg)
*/
#include <stklos.h>
......@@ -185,6 +185,7 @@ int main(int argc, char *argv[])
#ifdef THREADS_LURC
STk_exit(MAKE_INT(STk_thread_main(&mymain, argc, argv)));
#else
STk_exit(MAKE_INT(mymain(argc, endif)));
#argv /* ! THREAD_LURC */
STk_exit(MAKE_INT(mymain(argc, argv)));
#endif /* ! THREAD_LURC */
return 0;
}
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment