GOOF----LE-8-2.0]4h{A] gguile  gdefine-module*   gice-9 gpoll  gfilenameS fice-9/poll.scm gimportsS gsrfi gsrfi-9     ggnu     grnrs g bytevectors    gexportsS gmake-empty-poll-set g poll-set? g poll-set-nfds gpoll-set-find-port g poll-set-port gpoll-set-events gset-poll-set-events! gpoll-set-revents !gset-poll-set-revents! "g poll-set-add! #gpoll-set-remove! $ !"#  %gset-current-module &% '% (gload-extension )g string-append *f libguile- +geffective-version ,f scm_init_poll -g%sizeof-struct-pollfd .gerror /fUnexpected struct pollfd size 0gdefined? 1gPOLLIN 2gcall-with-deferred-observers 32 42 5gmodule-export! 65 75 8gcurrent-module 98 :8 ;1 gPOLLOUT ?> @g POLLRDHUP A@ BgPOLLERR CB DgPOLLHUP ED FgPOLLNVAL GF Hg  Ig%make-poll-set-procedure Jgmake-syntax-transformer KJ LJ Mg make-poll-set Ngmacro Og $sc-dispatch PO QO Rg_ Sgany TRSSS Ug syntax-object Vglambda Wg m-c625576-d Xgtop YWX Zgribcage [g t-c625576-a \g t-c625576-b ]g t-c625576-c ^[\] _YYY `f l-c625576-12 af l-c625576-13 bf l-c625576-14 c`ab dZ^_c eZ fgx gf hY if l-c625576-f ji kZghj lgshift mg proc-name ngargs omn pX qpp rfl-1e8ba8b5a-60 sfl-1e8ba8b5a-61 trs uZoqt vgkey wgvalue xgname ygformals zgbody {vwxyz |ppppp }fl-1e8ba8b5a-53 ~fl-1e8ba8b5a-54 fl-1e8ba8b5a-55 fl-1e8ba8b5a-56 fl-1e8ba8b5a-57 }~ Z{| gmake-procedure-name  p fl-1e8ba8b5a-43  Z p fl-1e8ba8b5a-42  Zg Ydekleeeeu  ghygiene    UV gpollfds pdek  U gnfds U gports U  g make-struct g m-c625576-8 X gt-1e8ba8b5a-133 gt-1e8ba8b5a-132 gt-1e8ba8b5a-131  gm-1e8ba8b5a-134 X  fl-1e8ba8b5a-138 fl-1e8ba8b5a-139 fl-1e8ba8b5a-13a  Z g ctor-args  fl-1e8ba8b5a-120  Z gctor gfield  fl-1e8ba8b5a-11c fl-1e8ba8b5a-11d  Zq gform g type-name gconstructor-spec g field-names  pppp fl-1e8ba8b5a-111 fl-1e8ba8b5a-112 fl-1e8ba8b5a-113 fl-1e8ba8b5a-114  Z g record-layout gfunctional-setters gsetters gcopier ggetters g constructor ggetter-identifiers gfield-identifiers  pppppppp fl-1e8ba8b5a-e9 fl-1e8ba8b5a-e7 fl-1e8ba8b5a-e5 fl-1e8ba8b5a-e3 fl-1e8ba8b5a-e1 fl-1e8ba8b5a-df fl-1e8ba8b5a-dd fl-1e8ba8b5a-db  Z fl-1e8ba8b5a-da  Zg dekleeeee U UH U    geach-any Rߌ gsyntax-violation   fWrong number of arguments g identifier?   pek UI   f-source expression failed to match any pattern grecord-type-vtable   gpwpwpw gdefault-record-printer    gset-struct-vtable-name!   gvtable-offset-user   g%poll-set?-procedure RS g m-c625576-1e X g t-c625576-1d   f l-c625576-23  Z f l-c625576-20  Zg eleeeeu   UV  gobj  gt-1e8ba8b5a-224  gt-1e8ba8b5a-21e  gt-1e8ba8b5a-21f gt-1e8ba8b5a-220 gt-1e8ba8b5a-223 gt-1e8ba8b5a-222 gt-1e8ba8b5a-221     gm-1e8ba8b5a-225 X  fl-1e8ba8b5a-229 fl-1e8ba8b5a-22a fl-1e8ba8b5a-22b fl-1e8ba8b5a-22c fl-1e8ba8b5a-22d fl-1e8ba8b5a-22e fl-1e8ba8b5a-22f  Z g copier-id   !fl-1e8ba8b5a-21c "! #Z " $g ctor-name %$ &fl-1e8ba8b5a-214 '& (Z%' ) *fl-1e8ba8b5a-212 +* ,Z)+ -glayout .- /fl-1e8ba8b5a-210 0/ 1Z.0 2g immutable? 32 4fl-1e8ba8b5a-20e 54 6Z35 7g field-count 87 9fl-1e8ba8b5a-20c :9 ;Z8: fl-1e8ba8b5a-209 ?> @Z=? Ag field-ids BA Cfl-1e8ba8b5a-206 DC EZBD Fgpredicate-name Gg field-spec H2FG Ipppppp Jfl-1e8ba8b5a-1f9 Kfl-1e8ba8b5a-1fa Lfl-1e8ba8b5a-1fb Mfl-1e8ba8b5a-1fc Nfl-1e8ba8b5a-1fd Ofl-1e8ba8b5a-1fe PJKLMNO QZHIP Releeeee#e(e,e1e6e;e@eEQ SU R TS Ugand VUUR Wgstruct? XUWR YXS Zgeq? [UZR \g struct-vtable ]U\R ^]S _pe `UH_ a[^` bVYa c Tb dpe eUd fgthrow-bad-struct gf hf ig pset-pollfds jg%pset-pollfds-procedure kgfree-id lg %%on-error mg m-c625576-2a nmX on pf l-c625576-2c qp rZgoq snerleeeeu  tUls ukt vuS wg%%type xgt-1e8ba8b5a-14b ygt-1e8ba8b5a-14c zgt-1e8ba8b5a-14d {gt-1e8ba8b5a-14e |gt-1e8ba8b5a-14f }gt-1e8ba8b5a-150 ~gt-1e8ba8b5a-151 xyz{|}~ gm-1e8ba8b5a-152 X  fl-1e8ba8b5a-156 fl-1e8ba8b5a-157 fl-1e8ba8b5a-158 fl-1e8ba8b5a-159 fl-1e8ba8b5a-15a fl-1e8ba8b5a-15b fl-1e8ba8b5a-15c  Z ggetter gindex  fl-1e8ba8b5a-149 fl-1e8ba8b5a-14a  Zq < ppp fl-1e8ba8b5a-144 fl-1e8ba8b5a-145 fl-1e8ba8b5a-146  Z erleeeee Uw k RvS gck gerr gs  nn f l-c625576-2f f l-c625576-30  Z nerleeeeu  U gquote U per UH   g%%index U k RvS f l-c625576-34 f l-c625576-35  Z nerleeeeu  U U er U    g%%copier U k RvS f l-c625576-39 f l-c625576-3a  Z nerleeeeu  U U g%%-set-fields per U   g t-c625576-29  f l-c625576-3e  Zo nerleeeeu  UV erleeeee U  gif U UZ U\  per UH  g struct-ref U er U   Uf U Ui     per Uj g%poll-set-nfds-procedure g m-c625576-45 X  f l-c625576-47  Zg eleeeeu  Ul k S eleeeee Uw k RS  f l-c625576-4a f l-c625576-4b  Z eleeeeu  U U pe UH    U  k   R S  f l-c625576-4f  f l-c625576-50    Z eleeeeu  U U e U    U k RS f l-c625576-54 f l-c625576-55  Z eleeeeu  U  U !pe "U! # " $# %g t-c625576-44 &% 'f l-c625576-59 (' )Z&( *)eleeeeu  +UV* ,)eleeeee -U, .- /U, 0UZ, 1U\, 21- 3p)e 4UH3 5024 6U, 7)e 8U 7 96-8 :Uf, ;U, <U3 =;< >:-= ?/59> @+.? Ape BUA Cg pset-ports Dg%pset-ports-procedure Eg m-c625576-60 FEX GF Hf l-c625576-62 IH JZgGI KFeJleeeeu  LUlK MkL NMS OeJleeeee PUwO QkP RRNQS SFF Tf l-c625576-65 Uf l-c625576-66 VTU WZSV XFWeJleeeeu  YUX ZUX [pWeJ \UH[ ]Z\ ^] _UO `k_ aRN`S bf l-c625576-6a cf l-c625576-6b dbc eZSd fFeeJleeeeu  gUf hUf ieeJ jU i khj lk mUO nkm oRNnS pf l-c625576-6f qf l-c625576-70 rpq sZSr tFseJleeeeu  uUt vUt wpseJ xUw yvx zy {g t-c625576-5f |{ }f l-c625576-74 ~} Z|G~ FeJleeeeu  UV eJleeeee U  U UZ U\  peJ UH  U eJ U   Uf U UC     peJ UD geach SS  S S S g %%set-fields gdummy gcheck? gexpr  g m-c625576-7b X  f l-c625576-80 f l-c625576-81 f l-c625576-82 f l-c625576-83 f l-c625576-84  Z  f l-c625576-7d  Zg gt-1e8ba8b5a-16a gt-1e8ba8b5a-16c gt-1e8ba8b5a-16b  gm-1e8ba8b5a-16d X  fl-1e8ba8b5a-171 fl-1e8ba8b5a-172 fl-1e8ba8b5a-173  Z fl-1e8ba8b5a-167 fl-1e8ba8b5a-168 fl-1e8ba8b5a-169  Z eleeee  U pe UH Ui U UC  gmap   glist gset-pset-pollfds! g%set-pset-pollfds!-procedure RSS g m-c625576-8f X g t-c625576-8d g t-c625576-8e   f l-c625576-94 f l-c625576-95  Z  f l-c625576-91  Zg eleeeeu  UV gt-1e8ba8b5a-18c gt-1e8ba8b5a-18d  gm-1e8ba8b5a-18e X  fl-1e8ba8b5a-192 fl-1e8ba8b5a-193  Z gsetter x fl-1e8ba8b5a-186 fl-1e8ba8b5a-187 fl-1e8ba8b5a-188  Z G fl-1e8ba8b5a-17d fl-1e8ba8b5a-17e  Zq g field-specs  fl-1e8ba8b5a-179 fl-1e8ba8b5a-17a  Zq eleee U gval U  U UZ U\  pe UH    g struct-set!  U   e  U      Uf U U      pe U gset-pset-nfds! g%set-pset-nfds!-procedure g m-c625576-9f X g t-c625576-9d g t-c625576-9e    f l-c625576-a4 !f l-c625576-a5 " ! #Z" $ %f l-c625576-a1 &% 'Zg$& (#e'leeeeu  )UV( *#e'leee +U* ,U* -+, .U* /UZ* 0U\* 10+ 2p#e' 3UH2 4/13 5U * 6#e' 7U 6 85+7, 9Uf* :U* ;U2 <:; =9+< >.48= ?)-> @pe' AU@ Bgset-pset-ports! Cg%set-pset-ports!-procedure Dg m-c625576-af EDX Fg t-c625576-ad Gg t-c625576-ae HFG IEE Jf l-c625576-b4 Kf l-c625576-b5 LJK MZHIL NE Of l-c625576-b1 PO QZgNP REMeQleeeeu  SUVR TMeQleee UUT VUT WUV XUT YUZT ZU\T [ZU \pMeQ ]UH\ ^Y[] _U T `MeQ aU ` b_UaV cUfT dUT eUB\ fde gcUf hX^bg iSWh jpeQ kUCj lg pollfd-offset mg* ngn on pg m-c625576-dc qpX rqp sf l-c625576-e1 tf l-c625576-e2 ust vZoru wq xf l-c625576-de yx zZgwy {pvez |Um{ }U { ~} gmake-bytevector g make-vector g vector-length g pset-size gbytevector-copy! gvector-move-left! gensure-pset-size! fpoll set index out of bounds ginteger? g port->fdes gport? grelease-port-handle gprimitive-pollC5h(<a]4   $54'>"G4(i4)i*4+i55,>"G-i $"4.i/-i>"G40i15$~447:;hA]4569gfilenamefice-9/poll.scm ,   C>"G"40i<5${447:=hA]4569gfilenamefice-9/poll.scm /   C>"G"40i>5${447:?hA]4569gfilenamefice-9/poll.scm 2   C>"G"40i@5${447:AhA]4569gfilenamefice-9/poll.scm 5   C>"G"40iB5${447:ChA]4569gfilenamefice-9/poll.scm 8   C>"G"40iD5${447:EhA]4569gfilenamefice-9/poll.scm ;   C>"G"40iF5${447:GhA]4569gfilenamefice-9/poll.scm >   C>"G"Hh]Cgpollfds  gnfds  gports   gfilenamefice-9/poll.scm A    gnameg%make-poll-set-procedureCIR4LMNQThe]C]g t-c625576-a  g t-c625576-b  g t-c625576-c      CMhQ]L6Iga  gfilenamefice-9/poll.scm  A   CRhA]L69gfilenamefice-9/poll.scm  A    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6zgx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/poll.scm A   n C5MRH4H>"G IiHRHhs]$CCkgobj  gfilenamefice-9/poll.scm A    gnameg%poll-set?-procedureCR4LNQch4]C,g t-c625576-1d    ChQ]L6Iga  gfilenamefice-9/poll.scm  A   CRhA]L69gfilenamefice-9/poll.scm  A    Ceh]C   C hp]45$@45$ O@45$4O?$@  6  6zgx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/poll.scm A   n C5RHhiht]& C6lgs  gfilenamefice-9/poll.scm A    gnameg%pset-pollfds-procedureCjR4LiNQh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch4]C,g t-c625576-29    CihQ]L6Iga  gfilenamefice-9/poll.scm  A   CRhA]L69gfilenamefice-9/poll.scm  A    Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefice-9/poll.scm A   C5iRHhhu]& C6mgs  gfilenamefice-9/poll.scm A    gnameg%poll-set-nfds-procedureCR4LNQh:]C2gerr  gs    C h:]C2gerr  gs    C$h:]C2gerr  gs    C@h4]C,g t-c625576-44    ChQ]L6Iga  gfilenamefice-9/poll.scm  A   CRhA]L69gfilenamefice-9/poll.scm  A    CBh]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefice-9/poll.scm A   C5RHhCh r]& C6jgs  gfilenamefice-9/poll.scm A    gnameg%pset-ports-procedureCDR4LCNQRY^h:]C2gerr  gs    Caglh:]C2gerr  gs    Couzh:]C2gerr  gs    Ch4]C,g t-c625576-5f    CChQ]L6Iga  gfilenamefice-9/poll.scm  A   CRhA]L69gfilenamefice-9/poll.scm  A    Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefice-9/poll.scm A   C5CR4LNQh v]45Cngdummy  gcheck?  gs   ggetter   gexpr      Ch(] 45$@6gx  "gtmp "gfilenamefice-9/poll.scm A   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5RHhh ]& C6gs  gval  gfilenamefice-9/poll.scm A    gnameg%set-pset-pollfds!-procedureCR4LNQhN]CFg t-c625576-8d  g t-c625576-8e    ChQ]L6Iga  gfilenamefice-9/poll.scm  A   CRhA]L69gfilenamefice-9/poll.scm  A    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6zgx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/poll.scm A   n C5RHhh ]& C6gs  gval  gfilenamefice-9/poll.scm A    gnameg%set-pset-nfds!-procedureCR4LNQ?hN]CFg t-c625576-9d  g t-c625576-9e    ChQ]L6Iga  gfilenamefice-9/poll.scm  A   CRhA]L69gfilenamefice-9/poll.scm  A    CAh]C   C hp]45$@45$ O@45$4O?$@  6  6zgx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/poll.scm A   n C5RHhBh ]& C6gs  gval  gfilenamefice-9/poll.scm A    gnameg%set-pset-ports!-procedureCCR4LBNQihN]CFg t-c625576-ad  g t-c625576-ae    CBhQ]L6Iga  gfilenamefice-9/poll.scm  A   CRhA]L69gfilenamefice-9/poll.scm  A    Ckh]C   C hp]45$@45$ O@45$4O?$@  6  6zgx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/poll.scm A   n C5BR4LlNQ|~h<]C4gdummy  gn    Ch(] 45$@6gx  "gtmp "gfilenamefice-9/poll.scm I   " g macro-typeg syntax-rulesgpatternsgnC5lRHh8-.,3# 4  545 Cg pre-allocated 8gpollfds ) 8gports  ) 8gfilenamefice-9/poll.scm L  M   M " ! M  " O  ) M  8 gnamegmake-empty-poll-setCRHhCh(x]&  " 456pgset  !gfilenamefice-9/poll.scm Q  R  ! R   ! gnameg pset-sizeCRHhiCB h]:45$"$  "& " 45& " 45&  " 454  5454    >"G4   >"G&  "4 >"G& C 6"Cgset  gsize  gprev  gnew    g old-pollfds   gnfds   g old-ports   g new-pollfds   g new-ports    gfilenamefice-9/poll.scm T  U  U   V   V   W   X  ! X & Y  , Y  / Z ! I [  c \  | ] ! ] 2 ] ! ^  Z  _  ` " _  a  b  c   W    gnamegensure-pset-size!CRHhChh] "T& " 45$1&  " 45$C"C "gset  agport  agi   Zgfilenamefice-9/poll.scm e  f  g # g  ' g  * h E h  H h L h  R j  X j Z f   a gnamegpoll-set-find-portCRHhC.hP]& " 45$&  " 45C6gset  Lgidx  Lgfilenamefice-9/poll.scm m  n  n  # n  & o  A o  F p L p   L gnameg poll-set-portCRHhi.hX]& " 45$$& " 45  C6gset  Qgidx  Qgfilenamefice-9/poll.scm r  s  s  # s  & t ! B t 7 E t 4 F t  K u Q u   Q gnamegpoll-set-eventsCRHhi.hX]& " 45$'& " 45  C6gset  Tgidx  Tgevents   Tgfilenamefice-9/poll.scm w  x  x  # x  & y " B y 8 E y 5 H y  N { T {   T gnamegset-poll-set-events!CRHhi.hX]& " 45$$& " 45  C6gset  Qgidx  Qgfilenamefice-9/poll.scm }  ~  ~  # ~  &  ! B  7 E  4 F   K Q   Q gnamegpoll-set-reventsC RHhi.hX]& " 45$'& " 45  C6gset  Tgidx  Tgrevents   Tgfilenamefice-9/poll.scm    #  & " B 8 E 5 H  N T   T gnamegset-poll-set-revents!C!RHhiC h]#& " 45 45$"4545$4>"G"4>"G& " 4 5& " 4 5 & " 4 5  &  " 4 5& C 6gset  g fd-or-port  gevents   gidx   goff  # gfd  = gval  gfilenamefice-9/poll.scm     #  #  &  0 7  =  @  J  K  a  h  m  x  3  3        gnameg poll-set-add!C"RHh.Ci h"]"& " 45$"4>"G& " 45 &  " 454&  " 45&  " 45>"G&  " 454& " 4 5 & " 4 5  >"G& " 4 5  &  "4 >"GCgset  gidx  gnfds  z goff  z gport  z gval  j gfilenamefice-9/poll.scm    #  (  , 5  @  \ _  z  z    (    "     8  )   1  4 = 7 . 8  =  H b B e 3 g  j  j %   gnamegpoll-set-remove!C#RHhiChp-.,3# & " 45& " 45&  " 456gpoll-set kgtimeout kgfilenamefice-9/poll.scm   5  O  k  k gnamegpollCRCYgm  ,grtd  gfilenamefice-9/poll.scm   - %  2 %  8 % ! 9 % - A %  C &  H %  W ( [ ( ` )  f ) o )  x +  ~ +  +  + ,   .   .   .   .  /   1   1   1   1  2   4   4   4   4  5   7   7   7   7  8  # :  ) :  + :  / : 0 ;   =   =   =   =  >   A ' L ( Q + T -e e . m / r 1+ w 2m } 3 6 : <% >  <' C6