asda?‰PNG  IHDR ? f ??C1 sRGB ??é gAMA ±? üa pHYs ? ??o¨d GIDATx^íüL”÷e÷Y?a?("Bh?_ò???￠§?q5k?*:t0A-o??￥]VkJ￠M??f?±8\k2íll￡1]q?ù???T GOOF----LE-8-2.0U]j4h,] gguile  gdefine-module*   gice-9 gpopen  gfilenameS fice-9/popen.scm gimportsS gthreads     gsrfi gsrfi-9    gexportsS gport/pid-table g open-pipe* g open-pipe g close-pipe gopen-input-pipe gopen-output-pipe gopen-input-output-pipe  gset-current-module   gload-extension !g string-append "f libguile- #geffective-version $fscm_init_popen %g  &g%make-pipe-info-procedure 'gmake-syntax-transformer (' )' *gmake-pipe-info +gmacro ,g $sc-dispatch -, ., /g_ 0gany 1/0 2g syntax-object 3glambda 4g m-18e47d61-4 5gtop 645 7gribcage 8g t-18e47d61-3 98 :6 ;f l-18e47d61-9 <; =79:< >7 ?gx @? Af l-18e47d61-6 BA C7@:B Dgshift Eg proc-name Fgargs GEF H5 IHH Jfl-1e8ba8b5a-60 Kfl-1e8ba8b5a-61 LJK M7GIL Ngkey Ogvalue Pgname Qgformals Rgbody SNOPQR THHHHH Ufl-1e8ba8b5a-53 Vfl-1e8ba8b5a-54 Wfl-1e8ba8b5a-55 Xfl-1e8ba8b5a-56 Yfl-1e8ba8b5a-57 ZUVWXY [7STZ \gmake-procedure-name ]\ ^H _fl-1e8ba8b5a-43 `_ a7]^` bH cfl-1e8ba8b5a-42 dc e7@bd f6=>CD>>>>M[ae  gghygiene hg i23fh jgpid kH=>C lg m2jkl nm og make-struct pg m-18e47d61-1 qp5 rgt-1e8ba8b5a-133 sgt-1e8ba8b5a-132 tgt-1e8ba8b5a-131 urst vgm-1e8ba8b5a-134 wv5 xwww yfl-1e8ba8b5a-138 zfl-1e8ba8b5a-139 {fl-1e8ba8b5a-13a |yz{ }7ux| ~g ctor-args ~ fl-1e8ba8b5a-120  7b gctor gfield  fl-1e8ba8b5a-11c fl-1e8ba8b5a-11d  7I gform g type-name gconstructor-spec g field-names  HHHH fl-1e8ba8b5a-111 fl-1e8ba8b5a-112 fl-1e8ba8b5a-113 fl-1e8ba8b5a-114  7 g record-layout gfunctional-setters gsetters gcopier ggetters g constructor ggetter-identifiers gfield-identifiers  HHHHHHHH fl-1e8ba8b5a-e9 fl-1e8ba8b5a-e7 fl-1e8ba8b5a-e5 fl-1e8ba8b5a-e3 fl-1e8ba8b5a-e1 fl-1e8ba8b5a-df fl-1e8ba8b5a-dd fl-1e8ba8b5a-db  7 fl-1e8ba8b5a-da  7@b q=>CD>}>>>> 2oh 2%kl 2 h m in geach-any / gsyntax-violation   fWrong number of arguments g identifier?   H>C 2&l   f-source expression failed to match any pattern grecord-type-vtable   gpw gdefault-record-printer   j gset-struct-vtable-name!   gvtable-offset-user   g%pipe-info?-procedure g pipe-info? g m-18e47d61-11 5 g t-18e47d61-10   f l-18e47d61-16  7 f l-18e47d61-13  7@ >D>>>>M[ae  23h 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 5  fl-1e8ba8b5a-229 fl-1e8ba8b5a-22a fl-1e8ba8b5a-22b fl-1e8ba8b5a-22c fl-1e8ba8b5a-22d fl-1e8ba8b5a-22e fl-1e8ba8b5a-22f  7 g copier-id  fl-1e8ba8b5a-21c  7b g ctor-name  fl-1e8ba8b5a-214  7b  fl-1e8ba8b5a-212  7b glayout  fl-1e8ba8b5a-210  7b g immutable?  fl-1e8ba8b5a-20e    7b   g field-count     fl-1e8ba8b5a-20c   7 b g getter-ids  fl-1e8ba8b5a-209  7b g field-ids  fl-1e8ba8b5a-206  7b gpredicate-name g field-spec  HHHHHH fl-1e8ba8b5a-1f9 fl-1e8ba8b5a-1fa  fl-1e8ba8b5a-1fb !fl-1e8ba8b5a-1fc "fl-1e8ba8b5a-1fd #fl-1e8ba8b5a-1fe $ !"# %7$ &q>D>>>>>>>>> >>>% '2&h (' )gand *2)&h +gstruct? ,2+&h -,' .geq? /2.&h 0g struct-vtable 120&h 21' 3H> 42%3l 5/24 6*-5 7(6 8H> 928l :gthrow-bad-struct ;: <: =g pipe-info-pid >g%pipe-info-pid-procedure ?gfree-id @g %%on-error Ag m-18e47d61-1d BA5 CB Df l-18e47d61-1f ED F7@CE GB>FD>>>>M[ae  H2@Gh I?H JI0 Kg%%type Lgt-1e8ba8b5a-14b Mgt-1e8ba8b5a-14c Ngt-1e8ba8b5a-14d Ogt-1e8ba8b5a-14e Pgt-1e8ba8b5a-14f Qgt-1e8ba8b5a-150 Rgt-1e8ba8b5a-151 SLMNOPQR Tgm-1e8ba8b5a-152 UT5 VUUUUUUU Wfl-1e8ba8b5a-156 Xfl-1e8ba8b5a-157 Yfl-1e8ba8b5a-158 Zfl-1e8ba8b5a-159 [fl-1e8ba8b5a-15a \fl-1e8ba8b5a-15b ]fl-1e8ba8b5a-15c ^WXYZ[\] _7SV^ `ggetter agindex b`a cfl-1e8ba8b5a-149 dfl-1e8ba8b5a-14a ecd f7bIe g hHHH ifl-1e8ba8b5a-144 jfl-1e8ba8b5a-145 kfl-1e8ba8b5a-146 lijk m7ghl nq>FD>_>>>f>m o2Knh p?o q/Jp0 rgck sgerr tgs ust vBB wf l-18e47d61-22 xf l-18e47d61-23 ywx z7uvy {Bz>FD>>>>M[ae  |2r{h }gquote ~2}{h Hz>F 2%l ~  g%%index 2nh ? /J0 f l-18e47d61-27 f l-18e47d61-28  7uv B>FD>>>>M[ae  2rh 2}h >F 2 l   g%%copier 2nh ? /J0 f l-18e47d61-2c f l-18e47d61-2d  7uv B>FD>>>>M[ae  2rh 2}h g%%-set-fields H>F 2l   g t-18e47d61-1c  f l-18e47d61-31  7C B>FD>>>>M[ae  23h q>FD>_>>>f>m 2th  gif 2h 2.h 20h  H>F 2%l  g struct-ref 2h >F 2 l  2:h 2}h 2=l     H>F 2>l geach 00  0Č 0Ō 0ƌ g %%set-fields gdummy gcheck? gexpr t` g m-18e47d61-38 5 qqqq f l-18e47d61-3d f l-18e47d61-3e f l-18e47d61-3f f l-18e47d61-40 f l-18e47d61-41  7  f l-18e47d61-3a  7@ gt-1e8ba8b5a-16a gt-1e8ba8b5a-16c gt-1e8ba8b5a-16b  gm-1e8ba8b5a-16d 5  fl-1e8ba8b5a-171 fl-1e8ba8b5a-172 fl-1e8ba8b5a-173  7 fl-1e8ba8b5a-167 fl-1e8ba8b5a-168 fl-1e8ba8b5a-169  7gh q>D>>>>  2h H> 2%l 2=l  gmap   glist gset-pipe-info-pid! g%set-pipe-info-pid!-procedure /00 g m-18e47d61-4c 5 g t-18e47d61-4a g t-18e47d61-4b   f l-18e47d61-51 f l-18e47d61-52  7  f l-18e47d61-4e  7@ >D>>>>M[ae  23h  gt-1e8ba8b5a-18c  gt-1e8ba8b5a-18d      gm-1e8ba8b5a-18e   5    fl-1e8ba8b5a-192 fl-1e8ba8b5a-193  7  gsetter P` fl-1e8ba8b5a-186 fl-1e8ba8b5a-187 fl-1e8ba8b5a-188  7h a fl-1e8ba8b5a-17d fl-1e8ba8b5a-17e  7I g field-specs   !fl-1e8ba8b5a-179 "fl-1e8ba8b5a-17a #!" $7 I# %q>D>>>$ &2t%h 'gval (2'%h )&( *2%h +2.%h ,20%h -,& .H> /2%.l 0+-/ 1g struct-set! 221%h 3> 42 3l 52&4( 62:%h 72}%h 82.l 978 :6&9 ;*05: <); =H> >2=l ?gmake-soft-port @g write-char Agdisplay Bg force-output Cg read-char Dg close-port Efr+ Fg make-rw-port Gg make-guardian Hg pipe-guardian Igmake-weak-key-hash-table Jg make-mutex Kgport/pid-table-mutex Lgapply Mg open-process Ng%make-void-port Og%set-port-property! Pgpopen-pipe-info Qg lock-mutex R Q S Q Tg unlock-mutex U T V T Wg hashq-set! Xf/bin/sh Yf-c Zg%port-property [gfetch-pipe-info \gwaitpid ]g close-process ^gerror _f-close-pipe: port not created by (ice-9 popen) `f(close-pipe: pid has already been cleared agcatch bg system-error cgWNOHANG dg reap-pipes eg add-hook! fg after-gc-hook gg OPEN_READ hg OPEN_WRITE ig OPEN_BOTHC5h@%4]4   54>"G4 i4!i"4#i55$>"G%hy]Cqgpid  gfilenamefice-9/popen.scm    gnameg%make-pipe-info-procedureC&R4)*+.1h4]C,g t-18e47d61-3    C*hR]L6Jga  gfilenamefice-9/popen.scm     C/hB]L6:gfilenamefice-9/popen.scm      Ch]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/popen.scm    n C5*R%Ȩ4%>"G Ζ&i%R%hu]$CCmgobj  gfilenamefice-9/popen.scm     gnameg%pipe-info?-procedureCR4)+.17h5]C-g t-18e47d61-10    ChR]L6Jga  gfilenamefice-9/popen.scm     C/hB]L6:gfilenamefice-9/popen.scm      C9h]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/popen.scm    n C5R%<=hv]& C6ngs  gfilenamefice-9/popen.scm     gnameg%pipe-info-pid-procedureC>R4)=+.q|h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    C1h5]C-g t-18e47d61-1c    C=hR]L6Jga  gfilenamefice-9/popen.scm     C/hB]L6:gfilenamefice-9/popen.scm      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/popen.scm    C5=R4)+.h v]45Cngdummy  gcheck?  gs   ggetter   gexpr      Ch(] 45$@6gx  "gtmp "gfilenamefice-9/popen.scm    " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5R%<h ]& C6gs  gval  gfilenamefice-9/popen.scm     gnameg%set-pipe-info-pid!-procedureCR4)+.<hP]CHg t-18e47d61-4a  g t-18e47d61-4b    ChR]L6Jga  gfilenamefice-9/popen.scm     C/hB]L6:gfilenamefice-9/popen.scm      C>h]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/popen.scm    n C5R?@hZ]L6Rgc  gfilenamefice-9/popen.scm &  &   CAhZ]L6Rgs  gfilenamefice-9/popen.scm '  '   CBhJ]L6Bgfilenamefice-9/popen.scm (   (    CChJ]L6Bgfilenamefice-9/popen.scm )   )    CDh R]4L>"GL6Jgfilenamefice-9/popen.scm *   *   * &   CEh0]OOOOO6g read-port  0g write-port  0gfilenamefice-9/popen.scm # , %  . +  0 $   0 gnameg make-rw-portCFR4Gi5HR4Ii 5R4Ji5KRLMFN%HOPKShB]L6:gfilenamefice-9/popen.scm O    CVhB]L6:gfilenamefice-9/popen.scm O    CWh-13 4> G$$ 45""$"$"$"454>"G4>"G  O O4 O>"GV4  >"GX4 O>"GCgmode gcommand gargs  g read-port   g write-port   gpid   gt  B rgport  y g pipe-info  y gx   gfilenamefice-9/popen.scm 7 ?   >  ) A  0 B  B A  i E  y F  y A  ~ K  L  L " L  O  P O   gnameg open-pipe*g documentationf[Executes the program @var{command} with optional arguments @var{args} (all strings) in a subprocess. A port to the process (based on pipes) is created and returned. @var{mode} specifies whether an input, an output or an input-output port to the process is created: it should be the value of @code{OPEN_READ}, @code{OPEN_WRITE} or @code{OPEN_BOTH}.CRXYh]6gcommand  gmode  gfilenamefice-9/popen.scm T  Z  Z   Z    gnameg open-pipeg documentationf;Executes the shell command @var{command} (a string) in a subprocess. A port to the process (based on pipes) is created and returned. @var{mode} specifies whether an input, an output or an input-output port to the process is created: it should be the value of @code{OPEN_READ}, @code{OPEN_WRITE} or @code{OPEN_BOTH}.CRZPh]6xgport  gfilenamefice-9/popen.scm \  ]  ]   gnamegfetch-pipe-infoC[RD\h ]4>"G45Cgport  gpid  gfilenamefice-9/popen.scm _  `   a   a    gnameg close-processC]R[^_%<=`] h]45$"4>"G& " 45$"4>"G&  "4>"G 6gp  g pipe-info gpid  A gfilenamefice-9/popen.scm c  g  g   h   i   i  i  * j  A j  I k  N l  R l  W l  b n  o   gnameg close-pipeg documentationfCloses the pipe created by @code{open-pipe}, then waits for the process to terminate and returns its status value, @xref{Processes, waitpid}, for information on how to interpret this value.CRH%<=ab\cH%<h8]4L5 $L6L&L CL6g pid/status 3gfilenamefice-9/popen.scm }   ~ " ~                3 ChX-13CPgargs gfilenamefice-9/popen.scm  C hh]"Y45$J& " 45$!4O>"G""C"g pipe-info _gpid - Ygfilenamefice-9/popen.scm q  r   s  s   t   u  - u  5 w 6 | : |  J | ]  _ r   c gnameg reap-pipesCdR4eifidi>"Ggh]6gcommand  gfilenamefice-9/popen.scm   gnamegopen-input-pipeg documentationf9Equivalent to @code{open-pipe} with mode @code{OPEN_READ}CRhh]6gcommand  gfilenamefice-9/popen.scm   gnamegopen-output-pipeg documentationf:Equivalent to @code{open-pipe} with mode @code{OPEN_WRITE}CRih]6gcommand  gfilenamefice-9/popen.scm   gnamegopen-input-output-pipeg documentationf9Equivalent to @code{open-pipe} with mode @code{OPEN_BOTH}CRC,gm  ,grtd } gfilenamefice-9/popen.scm   -   2   8  ! 9  - A   C   H     #  /  " / # 4  / 4 0 5  ; 5 A 7 S T  \  _ b c "5 q "6 #G $A %>   %@ C6