fix mutexes + gtdot test

Author: moon-chilled

jsrc/mt.h

@@ -34,7 +34,8 @@ static inline I jtpthread_mutex_timedlock(J jt,jtpthread_mutex_t *m,UI ns,I self
 static inline I jtpthread_mutex_trylock(jtpthread_mutex_t *m,I self){
  I4 r=pthread_mutex_trylock(m);
  if(!r)R 0;
- if(r==ETIMEDOUT)R -1;
+ if(r==EBUSY)R -1;
+ if(r==EAGAIN)R EVLIMIT; //'max recursive locks exceeded'
  if(r==EDEADLK||r==EOWNERDEAD)R EVCONCURRENCY;
  R EVFACE;}
 static inline C jtpthread_mutex_unlock(jtpthread_mutex_t *m,I self){

test/gtdot.ijs

@@ -282,15 +282,14 @@ assert. remote_stuff=2
 assert. remote_stuff=4
 NB. mutex
 mtx =. 10 T. 0
-0 = >{{11 T. mtx;0}}t.''0
+0 = >{{11 T. y;0}}t.''mtx
 1 = 11 T. mtx;0
 mtx =. 10 T. 0
 0 = 11 T. mtx
 'domain error' -: 11 T. etx >: mtx
-13 T. mtx
 mtx =. 10 T. 0
 tod =. 6!:1''
-0 = >{{11 T. <mtx}}t.''0  NB. boxed mtx OK
+0 = >{{11 T. <y}}t.''mtx  NB. boxed mtx OK
 1 = 11 T. mtx;2.0
 (2.005 > dly) *. 2 <: dly =. tod-~6!:1''  NB. verify delay
 tod =. 6!:1''
@@ -299,7 +298,6 @@ tod =. 6!:1''
 tod =. 6!:1''
 1 = 11 T. mtx;0
 (0.005 > dly) *. 0 <: dly =. tod-~6!:1''  NB. verify no delay
-13 T. mtx
 mtx=.10 T. 1  NB. recursive
 0 = 11 T. mtx
 0 = 11 T. mtx  NB. lock count=2