gtdot clean up

Author: bilam

test/gtdot.ijs

@@ -35,7 +35,6 @@ NB. no more thread can be created
 'limit error' -: 0&T. etx ''
 
 f=: 4 : 0
-echo^:(PRINTMSG+.GITHUBCI*.IFWIN) 'test ',(":1),' f ',(":y),' start: ',":6!:0''
 pyx=. g t. (<'worker';x) "0 i.y
 while. do.
  r=. 4 T. pyx               NB. echo r for debug
@@ -44,13 +43,10 @@ while. do.
 end.
 if. -. r e. _1000 _1001 do. pyxA =: pyx [ rA =: r end.
 assert. r e. _1000 _1001    NB. _1001 if run on the main thread
-echo^:(PRINTMSG+.GITHUBCI*.IFWIN) 'test ',(":1),' f ',(":y),' finish: ',":6!:0''
 ]&> pyx
 )
 
 f1=: 4 : 0
-if. 0 [ x*.GITHUBCI*.IFWIN do. y=. 10 <. y end.    NB. temp workaround
-echo^:(PRINTMSG+.GITHUBCI*.IFWIN) 'test ',(":1),' f1 ',(":y),' start: ',":6!:0''
 pyx=. x&g1@y t. (<'worker';x) "0 i.y
 while. do.
  r=. 4 T. pyx               NB. echo r for debug
@@ -59,13 +55,10 @@ while. do.
 end.
 if. -. r e. _1000 _1001 do. pyxA =: pyx [ rA =: r end.
 assert. r e. _1000 _1001    NB. _1001 if run on the main thread
-echo^:(PRINTMSG+.GITHUBCI*.IFWIN) 'test ',(":1),' f1 ',(":y),' finish: ',":6!:0''
 ]&> pyx
 )
 
 f2=: 4 : 0
-if. 0 [ x*.GITHUBCI*.IFWIN do. y=. 10 <. y end.    NB. temp workaround
-echo^:(PRINTMSG+.GITHUBCI*.IFWIN) 'test ',(":1),' f2 ',(":y),' start: ',":6!:0''
 pyx=. x&g1@y t. (<'worker';x) "0 i.y
 pyx0=. g t. (<'worker';x) "0 i.y
 while. do.
@@ -75,20 +68,17 @@ while. do.
 end.
 if. -. r e. _1000 _1001 do. pyxA =: pyx [ rA =: r end.
 assert. r e. _1000 _1001    NB. _1001 if run on the main thread
-echo^:(PRINTMSG+.GITHUBCI*.IFWIN) 'test ',(":1),' f2 ',(":y),' finish: ',":6!:0''
 (,]&> pyx), ]&>pyx0
 )
 
 g=: 3 : 0
-9!:1[(7^5)+3 T.''  NB. random per thread
-sleep[0.001*?0      NB. arbitrary delay
+sleep[0.001      NB. arbitrary delay
 1
 )
 
 g1=: 4 : 0
-9!:1[(7^5)-3 T.''  NB. random per thread
 for_i. i.y do.
- sleep[0.001*?0     NB. arbitrary delay
+ sleep[0.001     NB. arbitrary delay
  pyx=. g t. (<'worker';x) "0 i.y
 end.
 ]&> pyx
@@ -263,7 +253,7 @@ amv =. 16 T. 0  NB. AMV with value 0
 'limit error' -: 2 T. etx 8
 'limit error' -: ". etx '] t. 8'
 
-4!:55 ;:'allowlongjobs amv delth N N1 N2 f f1 f2 g g1 wthr sleep'
+4!:55 ;:'allowlongjobs amv delth N N1 N2 f f1 f2 g g1 sleep wthr'
 
 epilog''