Threading changes.

[bpt/guile.git] / libguile / throw.c

diff --git a/libguile/throw.c b/libguile/throw.c
index b5bbbae..60fe663 100644 (file)
--- a/libguile/throw.c
+++ b/libguile/throw.c
@@ -460,7 +460,7 @@ scm_handle_by_message (void *handler_data, SCM tag, SCM args)
     }
 
   handler_message (handler_data, tag, args);
-  exit (2);
+  pthread_exit (NULL);
 }