GOOF----LE-8-2.0-]4h] gguile  gdefine-module*   gice-9 gthreads  gfilenameS fice-9/threads.scm gimportsS gfutures     gmatch    gexportsS g begin-thread gparallel gletpar g make-thread g with-mutex gmonitor gpar-map g par-for-each g n-par-map gn-par-for-each gn-for-each-par-map g%thread-handler   !gset-current-module "! #! $gmake-syntax-transformer %$ &$ 'gmacro (g $sc-dispatch )( *( +gany ,geach-any -+, .+- /g syntax-object 0gcall-with-new-thread 1gtop 21 3gribcage 4gdummy 5ge0 6ge1 7456 8gm-4712ba65e6-1 981 :922 ;fl-4712ba65e6-6 ;<= ?37:> @3 Agx BA C9 Dfl-4712ba65e6-3 ED F3BCE G2?@F Hghygiene IH J/0GI Kglambda L/KGI M/GI NM Ogsyntax-violation PO QO Rf-source expression failed to match any pattern Sg_ TS, Uggenerate-temporaries Vglet Wgtmp0 XW Y2 Zfl-4712ba65e6-16 [Z \3XY[ ]5 ^fl-4712ba65e6-11 _^ `3]Y_ afl-4712ba65e6-e ba c3BYb d2@\`@c e/VdI fgmap gf hf igfuture j/idI kgvalues l/kdI mgtouch n/mdI ogeach p++ qop rq- s+r tgcall-with-values ugv vge wgb0 xgb1 y4uvwx zgm-4712ba65e6-1d {z1 |{2222 }fl-4712ba65e6-22 ~fl-4712ba65e6-23 fl-4712ba65e6-24 fl-4712ba65e6-25 fl-4712ba65e6-26 }~ 3y| { fl-4712ba65e6-1f  3B 2@ /tI /KI /I gproc garg 4 gm-4712ba65e6-30 1 22 fl-4712ba65e6-35 fl-4712ba65e6-36 fl-4712ba65e6-37  3  fl-4712ba65e6-32  3B 2@ /0I /KI /I  +. gm 456 gm-4712ba65e6-3d 1 222 fl-4712ba65e6-42 fl-4712ba65e6-43 fl-4712ba65e6-44 fl-4712ba65e6-45  3  fl-4712ba65e6-3f  3B 2@ /VI /AI g dynamic-wind /I /KI g lock-mutex /I   gbegin /I g unlock-mutex /I    gfirst grest 4 gm-4712ba65e6-4c 1 22 fl-4712ba65e6-51 fl-4712ba65e6-52 fl-4712ba65e6-53  3  fl-4712ba65e6-4e  3B 2@ /I g make-mutex /I  greverse   g make-future     g par-mapper gcons gfor-each gconst g make-list glength g join-thread gcar gcdr gapply gno-value  gcurrent-error-port gdisplay f In thread: gnewline g display-error funcaught throw to  f:  gthread-handlerC5h8]4    54#>"G4&'*.JLNhM]CEgdummy  ge0  ge1      CQRh(] 45$@6gx  "gtmp "gfilenamefice-9/threads.scm 7   " g macro-typeg syntax-rulesgpatternsge0ge1g...C5R4&'*TU*,ehjhX]CPgtmp-4712ba65e6-19  gtmp-4712ba65e6-18     Clnh9]C1gtmp-4712ba65e6-1a    Ch ,]4L545C$gtmp0     CQRh0]4545$ O@6wge0  0gtmp 0gtmp   0gfilenamefice-9/threads.scm  @ ! @   0 CQRh(d] 45$@6\gx  "gtmp "gfilenamefice-9/threads.scm =   " C5R4&'*sh k]Ccgdummy  gv  ge   gb0   gb1      CQRh(] 45$@6gx  "gtmp "gfilenamefice-9/threads.scm E   " g macro-typeg syntax-rulesgpatternsgvgeg...gb0gb1g...C5R4&'*.hP]CHgdummy  gproc  garg      CQRh(] 45$@6gx  "gtmp "gfilenamefice-9/threads.scm K   " g macro-typeg syntax-rulesgpatternsgprocgargg...C5R4&'*h0\]CTgdummy  )gm  )ge0   )ge1   )  ) CQRh(] 45$@6gx  "gtmp "gfilenamefice-9/threads.scm P   " g macro-typeg syntax-rulesgpatternsgmge0ge1g...C5R4&'*.hR]CJgdummy  gfirst  grest      CQRh(] 45$@6gx  "gtmp "gfilenamefice-9/threads.scm W   " g macro-typeg syntax-rulesgpatternsgfirstgrestg...C5RhL]LL6Dgfilenamefice-9/threads.scm `   `    Cmhe]9"(845454LO54L?L456$8$*$"CCC"s]glists  gls  gp-ls   gp-ls   gtails   Dgheads   Dgtail  3 Dghead  3 Dgw  N gw  ] gx  ]  gfilenamefice-9/threads.scm ]   ^   `  - a  3 ` < b  D b G ^  d ^   gnamegloopCh(-13OLQ6}gproc "glists "gloop   "gfilenamefice-9/threads.scm \   ]  " Ch]OCygmapper  gcons  gfilenamefice-9/threads.scm [   gnameg par-mapperCR4ifii5R4ii4i55R0fhh]"]4L>"GM(L64M5M4M5NMN4L>"G4L?""gargs / cg my-result / cgfilenamefice-9/threads.scm s   t   u   v  $ w  % x % / x  4 z * > z  A { ( C {  D |  X } / _ }  c ~  c t   g C hx-13H45H44J55H"B$4J>"GC4O5JK" "gn wgproc wgarglists  wgm   wgthreads   wgresults  $ wgresult  ( wgi  . pgfilenamefice-9/threads.scm i  j  j   k   j   l   l  l % " l  $ l  $ j  . n  3 o 7 n  8 p O s  e s g r  j n  p n  w  gnameg n-par-mapCR0fhp]"_4L>"GM(L64M54M5N4L>"G4L>"G""gargs . egfilenamefice-9/threads.scm         %  & % .  1 * ;  <  N  e  e   i ChX9-13H45H"1$J64O5JK" "1gn Sgproc Sgarglists  Sgm   Sgthreads   Sgi   Lgfilenamefice-9/threads.scm        $  , -  A C  F  L  S  gnamegn-par-for-eachCR0fh]"4L>"GM(L6M&KM(L64M5M4M5NMN4L>"G4L?"MM4L>"G4L>"G4L>"GMN4L>"G"3"/gargs D xg my-result D xgarg { gfilenamefice-9/threads.scm        $  ' & )  -  9  : ( D  I - S  V + X  Y  m 2 t  x  { ' {       ,      C hpA-13 H45H44J55HJH"7$J64O 5JK" "9gn ngs-proc ngp-proc  ngarglists  ngm   ngthreads   ngresults  & ngresult  * ngi  0 g gfilenamefice-9/threads.scm            % "  $  &  &  0  5 9  A B  \ ^  a  g  n  gnamegn-for-each-par-mapg documentationfgUsing N parallel processes, apply S-PROC in serial order on the results of applying P-PROC on ARGLISTS.CR h-1345454>"G4>"G $74 $ ">"G"b4>"G4>"G4>"G4>"G4>"GCgtag gargs gn   gp   gfilenamefice-9/threads.scm       %  .  D  H  I  Q  T  X  _  c  f  n  s     gnamegthread-handlerCRiRCgm  ,gfilenamefice-9/threads.scm  " d [ e f  v f w g   g *  g   g  i  | . 5   7 C6