GOOF----LE-8-2.0q]4h-] gguile  gdefine-module*   gice-9 g occam-channel  gfilenameS fice-9/occam-channel.scm gimportsS goop ggoops     gthreads    gexportsS galt goc:lock g oc:unlock goc:consequence goc:immediate-dispatch goc:late-dispatch goc:first-channel goc:set-handshake-channel goc:unset-handshake-channel g make-channel g? g! !g make-timer "ghandshake-channel #gmutex $gsender-waiting? %gimmediate-receive &g late-receive ' !"#$%& (gset-current-module )( *( +gno-data ,+ -greceiver-waiting .- /gtoplevel-define! 0/ 1/ 2g  3g make-class 4gnameS 5gdefined? 65 75 8gis-a? 98 :8 ;g <; =; >gmemq ?g @? A? Bgclass-precedence-list CB DB Egclass-redefinition FE GE Hg  IH JH Kgensure-accessor LK MK Ngdata Ogcv Pg QgaccessorS Rg init-valueS Sg init-formS Tgmake-condition-variable UT Vg init-thunkS Wg make-mutex XW Yg initialize Zgmake [Z \Z ]g  ^] _] `g add-method! a` b` cg dc ec fg specializersS gg hg ig jgformalsS kgch lginitargs mkl ngbodyS og next-method po qgset! r"k sqrk tps ugmake-procedureS vgsetter wv xv yg procedureS zZP {z |k }gnot ~geq? Nk ~+ }  greceiver-waiting? ~-  gsignal-condition-variable Ok  glet gres   q+    g lock-mutex #k  gcond k g unlock-mutex  g scm-error gquote g misc-error   f*another process is already receiving on ~A glist k   $k %k  gelse q- gwait-condition-variable  &k       g *unspecified*  k  gx k #r  q Or      f(another process is already sending on ~A      gport g g init-keywordS gportS g  Z  gread k   gwrite   g g the-timer gtimer-cv g timer-mutex g timeofday->us g us->timeofday g gettimeofday    g  gt k      gmake-syntax-transformer   gmacro g $sc-dispatch   gany gfree-id g syntax-object gtop  gribcage   gm-17d5859fdf6989b4-ca   fl-17d5859fdf6989b4-cc    ghygiene     geach-any   gdummy gform k  fl-17d5859fdf6989b4-cf fl-17d5859fdf6989b4-d0 fl-17d5859fdf6989b4-d1             #    gexp k  fl-17d5859fdf6989b4-d6 fl-17d5859fdf6989b4-d7 fl-17d5859fdf6989b4-d8 fl-17d5859fdf6989b4-d9     #    fl-17d5859fdf6989b4-df  fl-17d5859fdf6989b4-e0 !fl-17d5859fdf6989b4-e1 " ! #" $# %$ &gsyntax-violation '& (& )f-source expression failed to match any pattern *gm-17d5859fdf6989b4-e5 +* ,+ -fl-17d5859fdf6989b4-e7 .- /,. 0/ 10 21 32 43 54 6+ 7fl-17d5859fdf6989b4-ea 8fl-17d5859fdf6989b4-eb 9fl-17d5859fdf6989b4-ec :789 ;6: <;/ =< >#< ?4 @? A+ Bfl-17d5859fdf6989b4-f1 Cfl-17d5859fdf6989b4-f2 Dfl-17d5859fdf6989b4-f3 Efl-17d5859fdf6989b4-f4 FBCDE GAF HG/ IH J#H Kfl-17d5859fdf6989b4-fa Lfl-17d5859fdf6989b4-fb Mfl-17d5859fdf6989b4-fc NKLM O6N PO/ QP R Sg=> Tgm-17d5859fdf6989b4-100 UT VU Wfl-17d5859fdf6989b4-102 XW YVX ZY [SZ \[ ] ^] _^ `\_ aglambda bge1 cge2 dNabc eU ffl-17d5859fdf6989b4-10a gfl-17d5859fdf6989b4-10b hfl-17d5859fdf6989b4-10c ifl-17d5859fdf6989b4-10d jfl-17d5859fdf6989b4-10e kfl-17d5859fdf6989b4-10f lfghijk mdel nmY on p qp rgbegin sNbc tU ufl-17d5859fdf6989b4-118 vfl-17d5859fdf6989b4-119 wfl-17d5859fdf6989b4-11a xfl-17d5859fdf6989b4-11b yuvwx zsty {zY |r{ }gm-17d5859fdf6989b4-121 ~} ~ fl-17d5859fdf6989b4-123         kb ~ fl-17d5859fdf6989b4-126 fl-17d5859fdf6989b4-127 fl-17d5859fdf6989b4-128    $  %   gand kb ~ fl-17d5859fdf6989b4-12e fl-17d5859fdf6989b4-12f fl-17d5859fdf6989b4-130 fl-17d5859fdf6989b4-131     $  % gm-17d5859fdf6989b4-13f   fl-17d5859fdf6989b4-141          fl-17d5859fdf6989b4-144 fl-17d5859fdf6989b4-145 fl-17d5859fdf6989b4-146    $  &    fl-17d5859fdf6989b4-14c fl-17d5859fdf6989b4-14d fl-17d5859fdf6989b4-14e fl-17d5859fdf6989b4-14f     $  & b fl-17d5859fdf6989b4-156 fl-17d5859fdf6989b4-157 fl-17d5859fdf6989b4-158      gm-17d5859fdf6989b4-15c   fl-17d5859fdf6989b4-15e         ܌ ی  ߌ g first-channel gc1 gc2   fl-17d5859fdf6989b4-175 fl-17d5859fdf6989b4-176 fl-17d5859fdf6989b4-177     gm-17d5859fdf6989b4-17c   fl-17d5859fdf6989b4-17e         g handshake kb  fl-17d5859fdf6989b4-181 fl-17d5859fdf6989b4-182 fl-17d5859fdf6989b4-183 fl-17d5859fdf6989b4-184    q "   kb   fl-17d5859fdf6989b4-18a  fl-17d5859fdf6989b4-18b  fl-17d5859fdf6989b4-18c  fl-17d5859fdf6989b4-18d  fl-17d5859fdf6989b4-18e          q "  b fl-17d5859fdf6989b4-195 fl-17d5859fdf6989b4-196 fl-17d5859fdf6989b4-197 fl-17d5859fdf6989b4-198     gm-17d5859fdf6989b4-19d    !fl-17d5859fdf6989b4-19f "! # " $# %$ &% '& (' )( * +fl-17d5859fdf6989b4-1a2 ,fl-17d5859fdf6989b4-1a3 -fl-17d5859fdf6989b4-1a4 .+,- /*. 0/# 1q0 2"0 3( 43 5 6fl-17d5859fdf6989b4-1a9 7fl-17d5859fdf6989b4-1aa 8fl-17d5859fdf6989b4-1ab 9fl-17d5859fdf6989b4-1ac :6789 ;5: <;# =< >q< ?"< @fl-17d5859fdf6989b4-1b2 Afl-17d5859fdf6989b4-1b3 Bfl-17d5859fdf6989b4-1b4 C@AB D*C ED# FE Gg_ HG I Jfl-17d5859fdf6989b4-1bd KJ LIK Mg else-clause? NM O Pfl-17d5859fdf6989b4-1ba QP RNOQ Sfl-17d5859fdf6989b4-1b9 TS UIT VLRU WV XW YX ZGY [G \ ] ^fl-17d5859fdf6989b4-1c6 _fl-17d5859fdf6989b4-1c7 `^_ a\]` baLRU cGb dfl-17d5859fdf6989b4-1d9 efl-17d5859fdf6989b4-1da fde g\]f hgRU irh jh kgappend lk mk ngmap on pn qh rh sh th uh vkh wh xh yv zh {Oh |{v }#h ~}v z|~ h h h r fl-17d5859fdf6989b4-1d1 fl-17d5859fdf6989b4-1d2  \] RU r       C5h?]4   '54*>"G,+R.-R"'41243i425>"tG"m4725$^4:2i=5$G4>iA4D2i55$)4G2i43i425>"G""|""t""l47"5$" 4:"iJ5$141"4M47"5$"i""5>"G"47N5$" 4:NiJ5$141N4M47N5$Ni"N5>"G"47O5$" 4:OiJ5$141O4M47O5$Oi"O5>"G"47#5$" 4:#iJ5$141#4M47#5$#i"#5>"G""241P43i2i"Q"iNQNiR+iOQOiSUVThK]6Cgfilenamefice-9/occam-channel.scm  -    C#Q#iSXVWhK]6Cgfilenamefice-9/occam-channel.scm  . &   C4P5>"G"|47P5$m4:Pi=5$V4>iA4DPi55$84GPi43i2i"Q"iNQNiR+iOQOiSUVThK]6Cgfilenamefice-9/occam-channel.scm  -    C#Q#iSXVWhK]6Cgfilenamefice-9/occam-channel.scm  . &   C4P5>"G""b""Z""R47Y5$"Yi$!41Y4\_4Y5>"G"4bYi4\efPiijmntux"h(x]4L>"G456pgch  #ginitargs  #gfilenamefice-9/occam-channel.scm 0 # 2   # Chh]OC`greal-next-method  gfilenamefice-9/occam-channel.scm 0   Cy5 >"G475$"i$!414\_45>"G"4bi4\efjn{uyZPhQ]6Igfilenamefice-9/occam-channel.scm 4  5    C5 >"G47$5$"$i$!41$4\_4$5>"G"4b$i4\efPij|nuyN+hr]45Cjgch  gfilenamefice-9/occam-channel.scm 7  8 8  8    C5 >"G475$"i$!414\_45>"G"4bi4\efPij|nuyN-hj]45Cbgch  gfilenamefice-9/occam-channel.scm :  ;  ;   C5 >"G47%5$"%i$!41%4\_4%5>"G"4b%i4\efPij|nuyONx+h@] 445>"G45445>"GCgch  >gres >gfilenamefice-9/occam-channel.scm =  >   >   >   ? ?  # @   > C5 >"G47&5$"&i$!41&4\_4&5>"G"4b&i4\efPij|nuyNx+h(] 45445>"GCzgch  'gres 'gfilenamefice-9/occam-channel.scm C  D D  E   ' C5 >"G475$"i$!414\_45>"G"4bi4\efPij|nuy#$%xN-O&hO] 445>"G45$,445>"G45"T4 5$ 4 5">44  5 >"G44545>"G45445>"GCGgch  gres gfilenamefice-9/occam-channel.scm H  I   I   I   J  $ J % K  ( K " 3 K  < L  @ L  B L + D M  I N  L L  Q O  [ J \ P  g R  S  S - S 5 S  T  J  U  U  U   C5 >"G47 5$" i$!41 4\_4 5>"G"4b i4\efPij|nuy hb]6Zgch  gfilenamefice-9/occam-channel.scm X Y   C5 >"G47 5$" i$!41 4\_4 5>"G"4b i4\efPigijnuy#"xNO$ h]44455>"G45$9445>"G44455>"G"~4 5$<4 4455>"G4   >"G"7445>"G44545>"G 44556gch  gx  gfilenamefice-9/occam-channel.scm [  \   \  \   \   \   ] ) ]  * ^ C _ F _ $ I _ ( Q _ $ V _ c ` m ]  n a q a  t a  | a  a b b  b b # c  b e f f " f * f g  g  g  g %  C5 >"G475$" 4:iJ5$1414M475$i"5>"G"475$4:i=5$4>iA4Di55$<4Gi43i2iQi45>"G"64143i2iQi45>"G"64143i2iQi45>"G"64143i2iQi45>"G475$"i$!414\_45>"G"4bi4\efijnuyZhd]6\gport  gfilenamefice-9/occam-channel.scm n o   C5 >"G475$"i$!414\_45>"G"4bi4\efij|nuyhj]456bgch  gfilenamefice-9/occam-channel.scm q  r  r   C5 >"G47 5$" i$!41 4\_4 5>"G"4b i4\efij|nuyhj]456bgch  gfilenamefice-9/occam-channel.scm t  u u   C5 >"G"+4143i2i45>"xG"q475$b4:i=5$K4>iA4Di55$-4Gi43i2i45>"G""t""l""d4Zii5R4Ti5R4Wi5Rh`]CXgfilenamefice-9/occam-channel.scm ~    gnameg make-timerC!Rh]B@Cgt  gfilenamefice-9/occam-channel.scm           gnameg timeofday->usCRh ]B@B@Cgn  gfilenamefice-9/occam-channel.scm         gnameg us->timeofdayCR475$"i$!414\_45>"G"4bi4\efij|nuyhm]456egch  gfilenamefice-9/occam-channel.scm     C5 >"G475$"i$!414\_45>"G"4bi4\efiijnuyh8]4>"G445>"G6gch  5gt  5gfilenamefice-9/occam-channel.scm      0 '  5   5 C5 >"G4  hO]CGgdummy  gch  gform      Ch`]CXgdummy  gexp  gch   gform      C%hP]CHgdummy  gexp  gform      C() hP$]45$@45$@45$@ 6gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefice-9/occam-channel.scm   P g macro-typeg syntax-rulesgpatternsg?gchgformg...gexpg?gchgformg...gexpgformg...C5R45=>hO]CGgdummy  gch  gform      C@IJh`]CXgdummy  gexp  gch   gform      CQhP]CHgdummy  gexp  gform      C() hP$]45$@45$@45$@ 6gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefice-9/occam-channel.scm   P g macro-typeg syntax-rulesgpatternsg?gchgformg...gexpg?gchgformg...gexpgformg...C5R4Rh?]C7gdummy  gdata     C`oh]Czgdummy  gdata  glambda   gx   ge1   ge2      Cq|h_]CWgdummy  gdata  ge1   ge2      C() hP]45$@45$@45$@ 6gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefice-9/occam-channel.scm   P g macro-typeg syntax-rulesgpatternsgdatagdatag=>glambdagxge1ge2g...gdatage1ge2g...C5R4h M]CEgdummy  gch  ge1      Ch(^]CVgdummy  !gexp  !gch   !ge1   !  ! ChN]CFgdummy  gexp  ge1      C() hP]45$@45$@45$@ 6gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefice-9/occam-channel.scm   P g macro-typeg syntax-rulesgpatternsg?gchge1g...gexpg?gchge1g...gexpge1g...C5R4h M]CEgdummy  gch  ge1      Ch(^]CVgdummy  !gexp  !gch   !ge1   !  ! ChN]CFgdummy  gexp  ge1      C() hP]45$@45$@45$@ 6gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefice-9/occam-channel.scm   P g macro-typeg syntax-rulesgpatternsg?gchge1g...gexpg?gchge1g...gexpge1g...C5R4h]]CUgdummy  gch  ge1   gc2      Chn]Cfgdummy  gexp  gch   ge1   gc2      CphM]CEgdummy  gc1  gc2      C() hP4]45$@45$@45$@ 6,gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefice-9/occam-channel.scm   P g macro-typeg syntax-rulesgpatternsg?gchge1g...gc2g...gexpg?gchge1g...gc2g...gc1gc2g...C5R4hd]C\gdummy  gch  ge1   g handshake      Chu]Cmgdummy  gexp  gch   ge1   g handshake      Che]C]gdummy  gexp  ge1   g handshake      C() hPE]45$@45$@45$@ 6=gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefice-9/occam-channel.scm   P g macro-typeg syntax-rulesgpatternsg?gchge1g...g handshakegexpg?gchge1g...g handshakegexpge1g...g handshakeC5R4)12hM]CEgdummy  gch  ge1      C4=>?h^]CVgdummy  gexp  gch   ge1      CFhN]CFgdummy  gexp  ge1      C() hP]45$@45$@45$@ 6gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefice-9/occam-channel.scm   P g macro-typeg syntax-rulesgpatternsg?gchge1g...gexpg?gchge1g...gexpge1g...C5R4Hh]C   CZh:]C2ge1  ge2     C[chm]L6egc1  gc2  gfilenamefice-9/occam-channel.scm   C() hX]45$@45$@45$ LO@ 6gx  Ugtmp Ugtmp  " Ugtmp  9 Ugfilenamefice-9/occam-channel.scm   U gnameg else-clause?C[ijmpjh@]C8gtmp-17d5859fdf6989b4-1e3    Cqrstth@]C8gtmp-17d5859fdf6989b4-1e1    Cuvwxyxyh@]C8gtmp-17d5859fdf6989b4-1e0    Ch@]C8gtmp-17d5859fdf6989b4-1df    Ch@]C8gtmp-17d5859fdf6989b4-1de    Ch@]C8gtmp-17d5859fdf6989b4-1e2    Ch=]445 44 5   4454454555544555C5gc1  gc2    C()hm]LL6egc1  gc2  gfilenamefice-9/occam-channel.scm     Cmph@]C8gtmp-17d5859fdf6989b4-1d7    Ch@]C8gtmp-17d5859fdf6989b4-1d5    Ch@]C8gtmp-17d5859fdf6989b4-1d6    ChX:]445 4 5 44 5 55C2gc1  Wgc2  W  W C hh]OQ45" 45$@6$4O?$@""gx  dg else-clause? dgtmp   dgtmp  ' >gfilenamefice-9/occam-channel.scm   d C5RCgm  ,gt gt / Kgt  gt  gt  gt  gt x gt  gt gt gt  .gt  gt  gt  gt b wgt c xgt a vgt " 7gt $ 9gfilenamefice-9/occam-channel.scm   . %  1 % 3 &  6 & ; ( *  0  4 q 7 z : z = C  H  X  [  k [ n \ q Z t ^ w  y   y  {   {  |   |  ~ [    !  ? C6