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.01]l4ho] gguile  gdefine-module*   gsxml gssax g input-parse  gfilenameS fsxml/ssax/input-parse.scm gimportsS gice-9 grdelim     gexportsS gpeek-next-char gassert-curr-char g skip-until g skip-while g next-token g next-token-of gread-text-line g read-string gfind-string-from-port?   gset-current-module   g integer->char !g ascii->char "g char->integer #g char->ascii $g char-newline %g char-return &g1+ 'ginc (g1- )gdec *gmake-syntax-transformer +* ,* -g define-opt .gmacro /g $sc-dispatch 0/ 1/ 2g_ 3gany 423 5g syntax->datum 65 75 8g datum->syntax 98 :8 ;greverse gappend ?goptionalS @gsyntax-violation A@ B@ Cf-source expression failed to match any pattern Dgthrow Eg parser-error Fgcurrent-input-port Gg read-char Hg peek-char Igmemv JfWrong character  Kf (0x Lg eof-object? Mf*eof* Ngnumber->string Of)  Pf.  Qf expected Rgnumber? SfUnexpected EOF while skipping  Tf characters Ugmemq Vg*eof* Wf$Unexpected EOF while skipping until  Xg make-string Yginput-parse:init-buffer Zf [g string-length \g substring ]fEOF while reading a token  ^g string-append _g string-set! `gnext-token-old agstring-concatenate-reverse bg procedure? cg*read-line-breaks* dfreading a line eg list->string fgdelete ggread-delimited hgpeek ig read-line jgchar=? kg string-refC5hP(]4    54>"G i!R"i#R $R %R&i'R(i)R4,-.147:;<=>?hpr-1345$$$&"""$4455CCjgbindings ngbody ng body-rest  ng rev-bindings   ng opt-bindings  > ngfilenamefsxml/ssax/input-parse.scm J K   K   M   M  M +  M $ ! M # N  & N  + M . O  > K  F P  H Q  I Q  L Q  S Q 5 T Q $ V Q  Z Q  _ Q  d T  n  Chm] 45L4?6egargs  gv gfilenamefsxml/ssax/input-parse.scm  J    CBCh(k] 45$ O@6cgy  'gtmp 'gfilenamefsxml/ssax/input-parse.scm J   ' C5-RDEh-13@gport gmessage grest  gfilenamefsxml/ssax/input-parse.scm V W   W    gnameg parser-errorCERFGHh8-.,3#454>"G6gport 1gfilenamefsxml/upstream/input-parse.scm ,  , ,  -  1 .  1 gnamegpeek-next-charCRFGIEJKLMN"OPQhhH-.,3#454545$C45$"4 4 5 5   6 @gexpected-chars ggcomment ggport  ggc  ggfilenamefsxml/upstream/input-parse.scm ;  < .  = =  # >  / >  8 ?  < @ = @  G @  I @ & N A  Q A $ [ A  ] A ; a B  e B ' g ?  g  gnamegassert-curr-charCRFRLGEST)IUVW h-.,3#4545$O"C $94455$4>"G"45"C""B4 5$C45$4  5$C 645"45"garg gport gi  ( kgc  w gfilenamefsxml/upstream/input-parse.scm Q  Q ,  S  $ R  ( T  + U  0 T  1 V  4 V  < V  @ V A W G W  K X  P W ] T  i T  w Z  x \ [  ] [  ^  ^  ^  ^ _ _ `  `  Z  Z  Z " gnameg skip-untilCRFIGHh`-.,3#45"/45$4>"G45"C45"g skip-chars Ygport Ygc   Lgfilenamefsxml/upstream/input-parse.scm k  k 3  l   m * l  + n  = l  I l  M l Y l  Y gnameg skip-whileCR4Xi 5hQ]LCIgfilenamefsxml/upstream/input-parse.scm    COYRZFY[I\LUVE]^X_G'Hh-.,3 ##4545H4J5HJH"45$ J 645$ 4 5$ J 6  6J$!4 J4 J55KJK4J5K"4J>"G4>"G4545"W 45"Egprefix-skipped-chars g break-chars gcomment  gport  gbuffer  ( g curr-buf-len  1 gquantum  5 gi  ; gc  ;  gfilenamefsxml/upstream/input-parse.scm  +  5 $  (  +  1  ;  < H  Q  R \  ]  a  e  i r x  |   1    !      &  gnamegnext-token-oldC`RZF[I\aLUVE]X_G'HYh-.,3 ##45"45"4 5$(  664 5$04 5$(  66  6$4 5 "q4  >"G4>"G4545 "@  "54545"gprefix-skipped-chars g break-chars gcomment  gport  gbuffer  ' gfilled-buffer-l  ' gc  ' g curr-buf-len  . gi  4 gc 4  gfilenamefsxml/upstream/input-parse.scm  %  / '  (  .  4  5 A  G P ( Z  [ e  f  j  n  r x  *  !            B    (   gnameg next-tokenCRFY[bXH_G'\aI hhj-.,3#45454545$""$45"4455$54>"G4>"G4 5"(   6 6 "z"k""$45"454 5$54>"G4>"G4 5"(   6 6 "x"ibgincl-list/pred hgport hgbuffer   hg curr-buf-len  ' hgbuffer  8 gfilled-buffer-l  8 gi  < gc  e gbuffer  ]gfilled-buffer-l  ]gi  Vgc  V gfilenamefsxml/upstream/input-parse.scm  +     !  '  *  4  8  <  A E  F   Q  , Y  Z   ]  # e   e  m  n            *     1            ,               1   =   C   L  , V   V   ]   `  1 h  6 h gnameg next-token-ofCR$i%iVcRFLHcdG% hJ-.,3#454455$64545$(45 $4>"G""CBgport zgline ; zgc  D zgfilenamefsxml/upstream/input-parse.scm *  * ,  +   +  % +  ) +  / + % 0 - 3 -  7 .  ; - ; ,  > /  D ,  K 0 O 0  P 0 ' Y 0 ! ] 0  ^ 1  z gnamegread-text-lineCRFXL\'_GZ h-.,3#45 $m45"P45$  6454>"G$C45" 45"Cgn gport gbuffer  ( gi  . ~gc  . ~gi1  I ~gfilenamefsxml/upstream/input-parse.scm <  < +  = ! =  " >  ( >  . ?  / @ 9 @  B @  C A  I A L B f C  j C p D  ~ D  ~ ?  ?  ?  =  gnameg read-stringCRZFefVLHUE]ghh-.,3##4544554( 45" 455$4 5$C  64  54455$4 5$C  6Cgprefix-skipped-chars g break-chars gcomment  gport  gdelims  1 gtoken  { gfilenamefsxml/ssax/input-parse.scm ]  ^ +  ^ 5 $ _  ' _  + _ & / _  1 _  1 _  4 `  < `  = a  H b  R `  V `  W c [ c  _ c c c  e d l e  p e q f  y f 1 { f  { f  ~ g  g g  g h  h  h  g  i ! i %  gnameg next-tokenCRFih -.,3#456gport gfilenamefsxml/ssax/input-parse.scm l  l ,  m   gnamegread-text-lineCRRHLbhp]4M5$"MM$K4L5M$C45$C4M5$N4M5$CCM$CCC gt gc * ngfilenamefsxml/ssax/input-parse.scm |   | ! |  |   }  # |  $ ~ ! * ~  2   6 ! @   C ! M   P ! Q % [ ! e ! i    p gnameg my-peek-charCGjk[hp-13 HJ("JKHHO"G45$8K4>"GJK44 55$ " "C"b45$JC45$B4455$#K4>"GJK" "C"c $"<"E $"r44 54 55$   ""  "Q KK"~gstr ig  ig max-no-char  ig no-chars-read   igpeeked?   igc  7 yg pos-to-match  } gc  gi  Fgmatched-substr-len  Fgj  Fgk ?g my-peek-char  F ig no-chars-read  S egpeeked?  S egfilenamefsxml/ssax/input-parse.scm t  w   w /  w   x  2  3  7 ? B  C / W / Y  Z  _ & h  l  s  w  }        (    / /  3               "  " ! 2 # " %  )  , 2  5 % ?  ?  F x  i > i  gnamegfind-string-from-port?g documentationfdLooks for @var{str} in @var{}, optionally within the first @var{max-no-char} characters.CRCgm  ,gbuffer ] gfilenamefsxml/ssax/input-parse.scm  6 3 B : C ? D D E K F R G  V gfilenamefsxml/upstream/input-parse.scm i , C ; Q S k T  ]      ( :  (   (  *  < gfilenamefsxml/ssax/input-parse.scm  ] l (I t   (K C6