klisp

commit 9a58cd20a4c2d76ce3d8b9a3f6925c08956bb257
parent 071ee1ece415741372410b6aad80f896d353ee87
Author: Andres Navarro <canavarro82@gmail.com>
Date:   Fri, 24 Aug 2012 02:57:38 -0300

Added locking to kerror.

Diffstat:
M
src/kerror.c
 | 
3
++-

1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/kerror.c b/src/kerror.c
@@ -18,6 +18,7 @@
 TValue klispE_new(klisp_State *K, TValue who, TValue cont, TValue msg, 
                   TValue irritants) 
 {
+    klisp_lock(K);
     Error *new_error = klispM_new(K, Error);
 
     /* header + gc_fields */
@@ -28,7 +29,7 @@ TValue klispE_new(klisp_State *K, TValue who, TValue cont, TValue msg,
     new_error->cont = cont;
     new_error->msg = msg;
     new_error->irritants = irritants;
-
+    klisp_unlock(K);
     return gc2error(new_error);
 }