??? 123123123123 .....................................................................................................................................??? 123123123123 .....................................................................................................................................GOOF----LE-8-2.0[]4hx] gguile  gdefine-module*   gsxml gmatch  gfilenameS fsxml/match.scm gimportsS gsrfi gsrfi-1     gsrfi-11    gice-9 gcontrol    gexportsS g sxml-match gsxml-match-let gsxml-match-let*  gset-current-module   gmake-syntax-transformer !  "  #gsyntax-object->datum $gmacro %g $sc-dispatch &% '% (gany )(( *g syntax-object +g syntax->datum ,gtop -, .gribcage /gdummy 0gstx 1/0 2g m-cd60791-1 32, 43- 5f l-cd60791-6 6f l-cd60791-7 756 8.147 9. :gx ;: <3 =f l-cd60791-3 >= ?.;<> @-89? Aghygiene BA C*+@B Dgsyntax-violation ED FD Gf-source expression failed to match any pattern Hgvoid I( Jg *unspecified* K/ Lg m-cd60791-b ML, NM Of l-cd60791-10 PO Q.KNP Rf l-cd60791-d SR T.;NS U-Q9T V*JUB Wgthrow Xgsxml-match-error Ygraise-syntax-error Zgmodule [gfree-id \gprovide ]g m-cd60791-1a ^], _^ `f l-cd60791-1c a` b.;_a c-9b d*\cB e[d fgeach-any gef hgrequire i*hcB j[i kjf lkf mgl n(m o(n p(o qgbegin rgname sglang tgp_ ugr_ vgbody w/rstuv x^----- yf l-cd60791-1f zf l-cd60791-20 {f l-cd60791-21 |f l-cd60791-22 }f l-cd60791-23 ~f l-cd60791-24 yz{|}~ .wx -9b *qB gnodeset? gerror gxml-element-tag fexpected an xml-element, given gxml-element-attributes g fold-right g@ gfilter gxml-element-contents gmatch-xml-attribute gmember gfilter-attributes gcompile-clause gmap f( g let-values g cata-binding gbody-stx  -- f l-cd60791-b1 f l-cd60791-b2  . g cata-defs v f l-cd60791-ac f l-cd60791-ad  . gsxml-match-syntax-error g ellipsis? gliteral? gkeyword? gextract-cata-fun g add-pat-var g add-cata-def gprocess-cata-exp gprocess-cata-defs gcata-defs->pvar-lst gprocess-output-action gcompile-element-pat gcompile-end-element gcompile-attr-list gcompile-item-list gcompile-dotted-pattern-list g compile-item  ----------------- f l-cd60791-31 f l-cd60791-32 f l-cd60791-33 f l-cd60791-34 f l-cd60791-35 f l-cd60791-36 f l-cd60791-37 f l-cd60791-38 f l-cd60791-39 f l-cd60791-3a f l-cd60791-3b f l-cd60791-3c f l-cd60791-3d f l-cd60791-3e f l-cd60791-3f f l-cd60791-40 f l-cd60791-41  . 0 - f l-cd60791-30  . -999 *B g identifier? (( (ό g... gquote glst  f l-cd60791-fe  . gprocess-quasiquote gexpand-quasiquote-body gexpand-dotted-item gselect-dotted-vars g merge-pvars g dotted-var? g member-var? g expand-lst g finite-lst?   ---------  f l-cd60791-e0 f l-cd60791-de f l-cd60791-dc f l-cd60791-da f l-cd60791-d8 f l-cd60791-d6 f l-cd60791-d4 f l-cd60791-d2 f l-cd60791-d0   . gaction g dotted-vars  f l-cd60791-ce f l-cd60791-cf  . -99 *B  gcons gexp-lft gexp-rgt  f l-cd60791-122 f l-cd60791-123  . gfst grst  f l-cd60791-11b f l-cd60791-11c  . -999  *B  gappend  f l-cd60791-116  f l-cd60791-117      .  gdots  --- f l-cd60791-10d f l-cd60791-10e f l-cd60791-10f  . -9 99  * B gbound-identifier=? gfree-identifier=? gunquote gy  f l-cd60791-13d  .  gwalk-quasi-body !  "- #f l-cd60791-13a $# %.!"$ &f l-cd60791-139 '& (.;' )-9%(9  **)B +[* ,+( -,( .gunquote-splicing /*.)B 0[/ 10( 21( 3-%(9 4*3B 5[4 65( 7g quasiquote 8*73B 9[8 :9( ;gdv <; =f l-cd60791-174 >= ?.<> @f l-cd60791-16f A@ B.;A Cgdvars DC Ef l-cd60791-167 FE G.DF Hgitem IH Jf l-cd60791-166 KJ L.IK M-9?B9G9L9  N*MB Oglambda P*OMB Qf l-cd60791-179 RQ S.;R T-9S9 U*7TB V[U WV( X*TB Y[X ZY( [g expanded-item \[ ]f l-cd60791-183 ^] _.\^ `f l-cd60791-17f a` b.Ia c-9_b9S9  d*cB e*.TB f[e gf( hf l-cd60791-18a ih j.\i kf l-cd60791-186 lk m.Il n-9jm9S9  o*.nB pZό qH rf l-cd60791-1a7 sf l-cd60791-1a8 tf l-cd60791-1a9 urst v.qu w-v9S9  x*7wB yg expanded-rst z[y {f l-cd60791-1b0 |f l-cd60791-1b1 }{| ~.z} -9~v9S9  *.B f l-cd60791-19c f l-cd60791-19d  .z f l-cd60791-193 f l-cd60791-194 f l-cd60791-195  .q -99S9  *.B fbad quasiquote-form gs  f l-cd60791-5b  . gmsg gexp gsub  f l-cd60791-56 f l-cd60791-57 f l-cd60791-58  . -999 *B -9 *B [ ( *7B [ ( gapply f l-cd60791-1e6 f l-cd60791-1e7  . f l-cd60791-1d8 f l-cd60791-1d9  . -99  *B gele gnextp gfail-k gpvar-lst gdepth gcata-fun   ---------  f l-cd60791-1f5 f l-cd60791-1f6 f l-cd60791-1f7 f l-cd60791-1f8 f l-cd60791-1f9 f l-cd60791-1fa f l-cd60791-1fb f l-cd60791-1fc f l-cd60791-1fd   . -99 *B [ ( ( (ƌ ggenerate-temporaries (((( gif gbx gfail-to :v ---- f l-cd60791-23d f l-cd60791-23e f l-cd60791-23f f l-cd60791-240  . gtests g new-pvar-lst g new-cata-defs gnew-dotted-vars  f l-cd60791-236 f l-cd60791-237 f l-cd60791-238 f l-cd60791-239  . gbody-exp  f l-cd60791-22f  . gtag gitems  f l-cd60791-22b f l-cd60791-22c  . -999999 *B gand *B gpair? *B geq? *B *B *B glet *B *B ((((( gax :v ----- f l-cd60791-21c f l-cd60791-21d f l-cd60791-21e f l-cd60791-21f f l-cd60791-220  . f l-cd60791-215 f l-cd60791-216 f l-cd60791-217 f l-cd60791-218   .  gattr-exp     f l-cd60791-20c  f l-cd60791-20d    .  g attr-items  f l-cd60791-206 f l-cd60791-207 f l-cd60791-208  . -99 9999 *B *B *B *B *B *B *B *B  *B !gattr-lst "gbody-lst #g attr-key-lst $!" #  %------------  &f l-cd60791-26f 'f l-cd60791-270 (f l-cd60791-271 )f l-cd60791-272 *f l-cd60791-273 +f l-cd60791-274 ,f l-cd60791-275 -f l-cd60791-276 .f l-cd60791-277 /f l-cd60791-278 0f l-cd60791-279 1f l-cd60791-27a 2&'()*+,-./01  3.$%2 4-939 5*4B 6[5 76( 8g-> 9*84B :[9 ;:f <(; =6< >=( ?(> @?( A6f BA( C(B DC( E7( F(E GF( H(= IH( J(A KJ( L(7 ML( N(f ON( P)( Qgstring? Rgchar? Sgnumber? Tgboolean? U((( Vv Wf l-cd60791-3b1 Xf l-cd60791-3b2 Yf l-cd60791-3b3 ZWXY [.VZ \f l-cd60791-3aa ]f l-cd60791-3ab ^f l-cd60791-3ac _f l-cd60791-3ad `\]^_ a.` bgatag cgliteral dbc ef l-cd60791-39f ff l-cd60791-3a0 gf l-cd60791-3a1 hefg i.dh j-9[9ai939  k*jB lgbinding m*ljB n*jB o*jB p*jB qgequal? r*qjB sgcadr t*sjB utm vgkwd wgi xbw yf l-cd60791-390 zf l-cd60791-391 {f l-cd60791-392 |yz{ }.x| ~-}939 *v~B fbad attribute pattern f l-cd60791-380 f l-cd60791-381 f l-cd60791-382  .x -939 *vB f l-cd60791-373 f l-cd60791-374 f l-cd60791-375  .V f l-cd60791-36c f l-cd60791-36d f l-cd60791-36e f l-cd60791-36f  . gvar b f l-cd60791-361 f l-cd60791-362 f l-cd60791-363  . -99939  *B *lB *B *B *B *sB   fg matched-attrs ?>v @f l-cd60791-28d Af l-cd60791-28e Bf l-cd60791-28f C@AB D.?C Ef l-cd60791-286 Ff l-cd60791-287 Gf l-cd60791-288 Hf l-cd60791-289 IEFGH J.I K Lf l-cd60791-27f ML N.KM O-9D9JN939  P*OB Q*OB R*OB S:v Tf l-cd60791-25d Uf l-cd60791-25e Vf l-cd60791-25f WTUV X.SW Yg next-tests ZY [f l-cd60791-256 \f l-cd60791-257 ]f l-cd60791-258 ^f l-cd60791-259 _[\]^ `.Z_ a b------ cf l-cd60791-24b df l-cd60791-24c ef l-cd60791-24d ff l-cd60791-24e gf l-cd60791-24f hf l-cd60791-250 icdefgh j.abi k-9X9`99j9  l*kB mgnull? n*mkB ogellipsis-allowed? po  q----------  rf l-cd60791-3c2 sf l-cd60791-3c3 tf l-cd60791-3c4 uf l-cd60791-3c5 vf l-cd60791-3c6 wf l-cd60791-3c7 xf l-cd60791-3c8 yf l-cd60791-3c9 zf l-cd60791-3ca {f l-cd60791-3cb |rstuvwxyz{  }.pq| ~-9}9 *~B [ ( *8~B [ f (  :v f l-cd60791-3f8 f l-cd60791-3f9 f l-cd60791-3fa  . f l-cd60791-3f1 f l-cd60791-3f2 f l-cd60791-3f3 f l-cd60791-3f4  .Z f l-cd60791-3e8  .  f l-cd60791-3e4 f l-cd60791-3e5  . -99999}9 *B f1improper list pattern not allowed in this context -9}9 *B f f l-cd60791-412 f l-cd60791-413 f l-cd60791-414  . f l-cd60791-40b f l-cd60791-40c f l-cd60791-40d f l-cd60791-40e  .Z f l-cd60791-401  .  f l-cd60791-3ff  . -9999}9  *B gtail H  f l-cd60791-43c f l-cd60791-43d f l-cd60791-43e f l-cd60791-43f f l-cd60791-440 f l-cd60791-441 f l-cd60791-442 f l-cd60791-443 f l-cd60791-444 f l-cd60791-445   .q -9999 *B gvalues gnpv  f l-cd60791-458  .  f l-cd60791-452 f l-cd60791-453 f l-cd60791-454  . -999999  *B *B gfail *B g t-cd60791-446 g t-cd60791-447 g t-cd60791-448 g t-cd60791-449  g m-cd60791-44e ,  f l-cd60791-45f f l-cd60791-460 f l-cd60791-461 f l-cd60791-462  . -99999  *B f l-cd60791-46e  . gnew-exp  f l-cd60791-467 f l-cd60791-468 f l-cd60791-469 f l-cd60791-46a  . -9999999 *B *B gcdr *B *B  *B w f l-cd60791-4bf  . gtemp-item-pvar-lst  f l-cd60791-492  . g final-tests gfinal-pvar-lst gfinal-cata-defs gfinal-dotted-vars  f l-cd60791-48e f l-cd60791-48f  f l-cd60791-490  f l-cd60791-491      .   g item-tests g item-pvar-lst gitem-cata-defs gitem-dotted-vars g tail-tests g tail-pvar-lst gtail-cata-defs gtail-dotted-vars   -------- f l-cd60791-479 f l-cd60791-47a f l-cd60791-47b f l-cd60791-47c f l-cd60791-47d f l-cd60791-47e f l-cd60791-47f f l-cd60791-480   . !g t-cd60791-44a "g t-cd60791-44b #g t-cd60791-44c $g t-cd60791-44d %!"#$ &f l-cd60791-475 'f l-cd60791-476 (f l-cd60791-477 )f l-cd60791-478 *&'() +.%* ,-999 99 9+9999 -*H,B .- /f l-cd60791-4c1 0/ 1.0 2-9199 99 9+9999 3*H2B 43 5f l-cd60791-4c3 65 7.6 8-9799 99 9+9999 9*8B :9 ;gxa f l-cd60791-4cb ?f l-cd60791-4cc @>? A.=@ Bga Cgb DBC Ef l-cd60791-4c6 Ff l-cd60791-4c7 GEF H.DG I-9A99H99 99 9+9999 J*IB K(((((fffffff  Lgletrec Mg tail-body Ng item-body Og final-body Pgipv Qggpv Rgtpv Sg item-void Tg tail-void Ug item-null Vg item-cons W:MNOPQRSTUV  Xf l-cd60791-497 Yf l-cd60791-498 Zf l-cd60791-499 [f l-cd60791-49a \f l-cd60791-49b ]f l-cd60791-49c ^f l-cd60791-49d _f l-cd60791-49e `f l-cd60791-49f af l-cd60791-4a0 bf l-cd60791-4a1 cf l-cd60791-4a2 dXYZ[\]^_`abc  e.W%d f-9e99 99 9+9999 g*LfB hg match-tail i*hfB j*OfB k*fB l*fB mkl ng match-item o*nfB pk q*fB r*fB s*fB tg match-dotted u*tfB v*fB wgtail-res x*wfB y*fB z  {  |gres }*|fB ~gnew-x *~fB u  g last-tail-res *fB f$ellipses not allowed in this context :v f l-cd60791-3df f l-cd60791-3e0  . f l-cd60791-3d8 f l-cd60791-3d9 f l-cd60791-3da f l-cd60791-3db  .Z f l-cd60791-3d1  .K -999}9  *B -9}9 *B H  f l-cd60791-4d8 f l-cd60791-4d9 f l-cd60791-4da f l-cd60791-4db f l-cd60791-4dc f l-cd60791-4dd f l-cd60791-4de f l-cd60791-4df f l-cd60791-4e0   . -99 *B [ ( *8B [ f (  gnx :v f l-cd60791-514 f l-cd60791-515 f l-cd60791-516 f l-cd60791-517 f l-cd60791-518  . f l-cd60791-50d f l-cd60791-50e f l-cd60791-50f f l-cd60791-510  .Z  f l-cd60791-502 f l-cd60791-503  . f l-cd60791-4fe f l-cd60791-4ff  . -999999 *B *B *B *B gcar *B f f l-cd60791-534 f l-cd60791-535 f l-cd60791-536 f l-cd60791-537 f l-cd60791-538  . f l-cd60791-52d f l-cd60791-52e f l-cd60791-52f f l-cd60791-530  .Z f l-cd60791-521 f l-cd60791-522  . f l-cd60791-51f  . -99999  *B *B *B *B *B (f f+bad pattern syntax (not an element pattern) f7bad pattern syntax (symbol not allowed in this context) :v f l-cd60791-594 f l-cd60791-595 f l-cd60791-596 f l-cd60791-597  . f l-cd60791-58d f l-cd60791-58e f l-cd60791-58f f l-cd60791-590  .Z  f l-cd60791-586  . c f l-cd60791-584  . -999999 *B *B *B *qB *B *B *B f l-cd60791-54d  .;  f l-cd60791-547     .   H  f l-cd60791-543 f l-cd60791-544   .  -9999 99  *B :v f l-cd60791-561 f l-cd60791-562 f l-cd60791-563  . f l-cd60791-55a f l-cd60791-55b f l-cd60791-55c f l-cd60791-55d  .Z g more-pvar-lst  gmore-cata-defs !gmore-dotted-vars " ! #f l-cd60791-552 $f l-cd60791-553 %f l-cd60791-554 &#$% '."& (-9999'999 99 )*(B **(B +f l-cd60791-572 ,f l-cd60791-573 -f l-cd60791-574 .+,- /.S. 0g after-tests 1gafter-pvar-lst 2gafter-cata-defs 3gafter-dotted-vars 40123 5f l-cd60791-56b 6f l-cd60791-56c 7f l-cd60791-56d 8f l-cd60791-56e 95678 :.49 ;-9/9:99 99 <*;B =*;B >f l-cd60791-4f5 ?f l-cd60791-4f6 @f l-cd60791-4f7 Af l-cd60791-4f8 B>?@A C.B Df l-cd60791-4ee Ef l-cd60791-4ef Ff l-cd60791-4f0 Gf l-cd60791-4f1 HDEFG I.ZH Jf l-cd60791-4e7 KJ L.K Mf l-cd60791-4e5 NM O.KN P-9C9I99LO99 Q*PB R*PB S*PB T*PB U*PB Vf&duplicate pattern variable not allowed Wgnct XWv Yf l-cd60791-a4 Zf l-cd60791-a5 [f l-cd60791-a6 \YZ[ ].X\ ^g new-ctemp _^ `f l-cd60791-9f a` b._a cgcfun dc ef l-cd60791-95 ff l-cd60791-96 gf l-cd60791-97 hefg i.dh j-9]99b9i9  k*jB l*OjB m nf l-cd60791-59c on p.mo q-9p99 r*qB s[r ts( ugguard v*uqB w[v xwf yx挤 zty {(z((( |*8qB }[| ~}f (~ s y (((( ggexp gaction0 gfail-exp   f l-cd60791-5c3 f l-cd60791-5c4 f l-cd60791-5c5 f l-cd60791-5c6 f l-cd60791-5c7 f l-cd60791-5c8 f l-cd60791-5c9 f l-cd60791-5ca f l-cd60791-5cb   . -9p99 *B *B *B *qB sf y (((( gatom   f l-cd60791-5d9 f l-cd60791-5da f l-cd60791-5db f l-cd60791-5dc f l-cd60791-5dd f l-cd60791-5de f l-cd60791-5df f l-cd60791-5e0  . -9p99 *B *B *B *qB t挤 (((( 挤 ((((  f l-cd60791-60c f l-cd60791-60d f l-cd60791-60e f l-cd60791-60f f l-cd60791-610 f l-cd60791-611 f l-cd60791-612 f l-cd60791-613  . -9p99 *B 挤 ((((  ------- f l-cd60791-61f f l-cd60791-620 f l-cd60791-621 f l-cd60791-622 f l-cd60791-623 f l-cd60791-624 f l-cd60791-625  . -9p99 *B y (((( 挤 (((( fy (((( f挤 (((( (y (((( (挤 (((( c f l-cd60791-7c0 f l-cd60791-7c1 f l-cd60791-7c2 f l-cd60791-7c3 f l-cd60791-7c4 f l-cd60791-7c5 f l-cd60791-7c6  . -9p99 *B *qB *qB c f l-cd60791-79f f l-cd60791-7a0 f l-cd60791-7a1 f l-cd60791-7a2 f l-cd60791-7a3 f l-cd60791-7a4 f l-cd60791-7a5 f l-cd60791-7a6  . -9p99 *B *B *qB *qB f l-cd60791-71b f l-cd60791-71c f l-cd60791-71d  .  f l-cd60791-707 f l-cd60791-708 f l-cd60791-709 f l-cd60791-70a f l-cd60791-70b f l-cd60791-70c f l-cd60791-70d f l-cd60791-70e  . -999p99  *qB gfailure  -99  * B  v  f l-cd60791-72a  f l-cd60791-72b    .  gresult  f l-cd60791-723 f l-cd60791-724 f l-cd60791-725 f l-cd60791-726  . -9999p99  *B f l-cd60791-6db f l-cd60791-6dc f l-cd60791-6dd  .    f l-cd60791-6c5 !f l-cd60791-6c6 "f l-cd60791-6c7 #f l-cd60791-6c8 $f l-cd60791-6c9 %f l-cd60791-6ca &f l-cd60791-6cb 'f l-cd60791-6cc (f l-cd60791-6cd ) !"#$%&'(  *.) +-99*9p99  ,*q+B -v .f l-cd60791-6e1 /f l-cd60791-6e2 0./ 1.-0 2-9199*9p99  3*2B 4*2B 5f l-cd60791-6f2 6f l-cd60791-6f3 756 8. 7 9f l-cd60791-6eb :f l-cd60791-6ec ;f l-cd60791-6ed .= ?-9899>*9p99  @*?B Aglist Bf l-cd60791-69f Cf l-cd60791-6a0 Df l-cd60791-6a1 EBCD F.E G Hf l-cd60791-68b If l-cd60791-68c Jf l-cd60791-68d Kf l-cd60791-68e Lf l-cd60791-68f Mf l-cd60791-690 Nf l-cd60791-691 Of l-cd60791-692 PHIJKLMNO Q.GP R-9F9Q9p99  S*qRB Tf l-cd60791-6ae Uf l-cd60791-6af VTU W.-V Xf l-cd60791-6a7 Yf l-cd60791-6a8 Zf l-cd60791-6a9 [f l-cd60791-6aa \XYZ[ ].\ ^-9W99]Q9p99  _*^B `*^B a*^B bf l-cd60791-65c cf l-cd60791-65d df l-cd60791-65e ebcd f.e g  hf l-cd60791-646 if l-cd60791-647 jf l-cd60791-648 kf l-cd60791-649 lf l-cd60791-64a mf l-cd60791-64b nf l-cd60791-64c of l-cd60791-64d pf l-cd60791-64e qhijklmnop  r.gq s-9f9r9p99  t*qsB ugexp-body vu wf l-cd60791-662 xf l-cd60791-663 ywx z.vy {-9z9f9r9p99  |*{B }*{B ~f l-cd60791-673 f l-cd60791-674 ~ .  f l-cd60791-66c f l-cd60791-66d f l-cd60791-66e f l-cd60791-66f  . -999r9p99  *B *B *B  f l-cd60791-5fc f l-cd60791-5fd f l-cd60791-5fe f l-cd60791-5ff f l-cd60791-600 f l-cd60791-601 f l-cd60791-602  . -9p99 *B  f l-cd60791-5b0 f l-cd60791-5b1 f l-cd60791-5b2 f l-cd60791-5b3 f l-cd60791-5b4 f l-cd60791-5b5 f l-cd60791-5b6 f l-cd60791-5b7  . -9p99 *B *B *B *qB g sxml-match1 gclause / g m-cd60791-7cf , --- f l-cd60791-7d4 f l-cd60791-7d5 f l-cd60791-7d6 f l-cd60791-7d7  .  f l-cd60791-7d1  .; -9 *B *OB *B *B *B  fno matching clause found *B    (֌ (Č glet/ec gclause0 / ---- f l-cd60791-7dd f l-cd60791-7de f l-cd60791-7df f l-cd60791-7e0 f l-cd60791-7e1  . -9 *B gescape *B *B *OB gcall-with-values *B *B  gval / g m-cd60791-7e8 , --- f l-cd60791-7ed f l-cd60791-7ee f l-cd60791-7ef f l-cd60791-7f0  .  f l-cd60791-7ea  .; -9 *LB *cB *OB *B  *B gsxml-match-let1 挤 ( ( ( gsyntag gsynform gbody0 /v g m-cd60791-7f6 , ---- f l-cd60791-7fb f l-cd60791-7fc f l-cd60791-7fd f l-cd60791-7fe f l-cd60791-7ff  .  f l-cd60791-7f8  .; -9  *B  )   挤  (   (  (  gpat /v ------ f l-cd60791-807 f l-cd60791-808 f l-cd60791-809 f l-cd60791-80a f l-cd60791-80b f l-cd60791-80c f l-cd60791-80d  . -9 *B *B *B *OB  *B !*B "fcould not match pattern ~s #*"B $geach %$) &)% '&挤 ((' )(( *() +gpat0 ,gexp0 -/+,v  .--------  /f l-cd60791-817 0f l-cd60791-818 1f l-cd60791-819 2f l-cd60791-81a 3f l-cd60791-81b 4f l-cd60791-81c 5f l-cd60791-81d 6f l-cd60791-81e 7f l-cd60791-81f 8/01234567  9.-.8 :-99 ;*:B <*:B = > ?*:B @*O:B A*:B B*:B C*":B Dgsxml-match-let-help E%挤 F(E G(F H(G Ig temp-name JI Kf l-cd60791-841 LK M.JL NDv Of l-cd60791-830 Pf l-cd60791-831 Qf l-cd60791-832 Rf l-cd60791-833 Sf l-cd60791-834 Tf l-cd60791-835 Uf l-cd60791-836 VOPQRSTU W.NV Xf l-cd60791-82d YX Z.Y [-9MW9Z \*[B ]*[B ^ _f l-cd60791-859 `_ a.^` bv cf l-cd60791-84d df l-cd60791-84e ef l-cd60791-84f ff l-cd60791-850 gf l-cd60791-851 hcdefg i.bh jf l-cd60791-84a kj l.k m-9ai9l n*DmB ov pf l-cd60791-862 qf l-cd60791-863 rf l-cd60791-864 spqr t.os uf l-cd60791-85f vu w.v x-t9w y*xB zf l-cd60791-87a {z |.^{ }+,v ~f l-cd60791-86a f l-cd60791-86b f l-cd60791-86c f l-cd60791-86d f l-cd60791-86e f l-cd60791-86f f l-cd60791-870 ~ .} -9|9w *DBC5hx]4   54>"G4"#$')Ch>]C6gdummy  gstx    CFGh(] 45$@6gx  "gtmp "gfilenamefsxml/match.scm +   " g macro-typeg syntax-rulesgpatternsgstxC5#R4"H$'IVh-]C%gdummy     CFGh(] 45$@6gx  "gtmp "gfilenamefsxml/match.scm .   " g macro-typeg syntax-rulesgpatternsC5HRWXh]6gx  gmsg  gobj   gsub   gfilenamefsxml/match.scm 1  2  2    gnamegraise-syntax-errorCYR4"Z$'ph]C{gdummy  gname  glang   gp_   gr_   gbody      CFGh(] 45$@6gx  "gtmp "gfilenamefsxml/match.scm 5   " g macro-typeg syntax-rulesgpatternsgnameglanggprovidegp_g...grequiregr_g...gbodyg...C5ZRh(] $ "$CCgx  "gt  "gfilenamefsxml/sxml-match.ss        %         !  0  " gnamegnodeset?CRh0]" 6$$C""gs  +gfilenamefsxml/sxml-match.ss                         "    + gnamegxml-element-tagCRh]$ "C}gi  gfilenamefsxml/sxml-match.ss  &   <  7  K   N   F   2   Ch(]"C$&C""gc  'gd  'gfilenamefsxml/sxml-match.ss  * ! 0  ,   5   ,   D   G   0  ' Ch8]$&&( 66CCga  2gb  2gfilenamefsxml/sxml-match.ss         .   1         Z !   * " , ,    2 Ch8]" 6$$ 6""gs  1gfilenamefsxml/sxml-match.ss   &  & '  &                  $ $  ' %  )    1 gnamegxml-element-attributesCRh]$ "C}gi  gfilenamefsxml/sxml-match.ss *   +  +  + +  + .  + &  +    Ch0]" 6$$ 6""gs  0gfilenamefsxml/sxml-match.ss (  -  - %  -   )   )  )   )  )   )  & ,  ( *   0 gnamegxml-element-contentsCRh(]$&C6Cgkey  "gl  "gfilenamefsxml/sxml-match.ss /   0 0  2  2   2   3  4 % 4   " gnamegmatch-xml-attributeCRh8](C45$ 645Cgkeys  1glst  1gfilenamefsxml/sxml-match.ss 6   7  8  9  9   9  9  : $ " : % ;  & ;  - ; 4 / ;  0 ;   1 gnamegfilter-attributesCR4"$')h>]C6gbvar  gbval    CFGh@]4L545$@6gdef  >gtmp  >gtmp  ' >gfilenamefsxml/sxml-match.ss v &  w <  x < x N  y N  z N  x <  w (  > C'hJ]CBg cata-binding  gbody-stx    CFGh@](C4LO545$@6g cata-defs  @gbody  @gtmp   @gtmp  ) @gfilenamefsxml/sxml-match.ss r  s  v !  u   @ gnamegprocess-cata-defsChZ]6Rgitem  gfilenamefsxml/sxml-match.ss     Ch,]C$gitem     C'h]C   Chj]L6bgfst  grst  gfilenamefsxml/sxml-match.ss     CFG+h ]45$ 45CCgfst  gdots  grst   gfilenamefsxml/sxml-match.ss  E  E   E *  E /  E %   ChN]CFgfst  gdots  grst      C h]!4?$@45$@45"%45$ LO@ 6$4 ?$ @""glst  gtmp  gtmp  " gtmp  9 gtmp  H dgfilenamefsxml/sxml-match.ss   gnameg finite-lst?C'h]C   ChZ]6Rgitem  gfilenamefsxml/sxml-match.ss     Ch,]C$gitem     C')hD]C<gexp-lft  gexp-rgt    CFGh8]4LL54L545$@6gfst  7grst  7gtmp   7gtmp  7gfilenamefsxml/sxml-match.ss  * *    7 CFG+h ]45$ 45CCgfst  gdots  grst   gfilenamefsxml/sxml-match.ss  E  E   E *  E /  E %   C')hD]C<gexp-lft  gexp-rgt    CFGh@]4L4LL554L545$@6gfst  <gdots  <grst   <gtmp   <gtmp  % <gfilenamefsxml/sxml-match.ss  *  +  *  *    < C h]!45$@4?$@45")45$LLLO@ 6$ 4 ?$ LLLLO@""glst  gtmp gtmp   gtmp  9 gtmp  H hgfilenamefsxml/sxml-match.ss   gnameg expand-lstChP]";(C45$" 45$C""gvar  Iglst  Iglst   Agt   2gfilenamefsxml/sxml-match.ss        6     &  - 5 /  6  ; A  A   I gnameg member-var?Chy]LL6qgvar  gfilenamefsxml/sxml-match.ss    gnameg dotted-var?Ch8](C4L5$ "4L5Cglst1  5glst2  5gfilenamefsxml/sxml-match.ss      %      % &  )  * ) / 6 3 ) 4   5 gnameg merge-pvarsC'-hz]L4L54L56rga  grst  gfilenamefsxml/sxml-match.ss  " "     C2hz]L4L54L56rga  grst  gfilenamefsxml/sxml-match.ss  " "     Ch|]L4L54L56tgfst  grst  gfilenamefsxml/sxml-match.ss  " "     Chh]45$LLLO@45$LLLO@45$ LLO@Cgy  bgtmp bgtmp  + bgtmp  K bgfilenamefsxml/sxml-match.ss  a   b gnamegwalk-quasi-bodyC'6hY]CQgrst  gfilenamefsxml/sxml-match.ss  !   C:hY]L6Qgrst  gfilenamefsxml/sxml-match.ss  &   Ch|]L4L54L56tgfst  grst  gfilenamefsxml/sxml-match.ss      Chl]45$L6Cdgitem  gfilenamefsxml/sxml-match.ss        ChZ]CRgitem  gfilenamefsxml/sxml-match.ss     C h])OLLQ45$@45$ O@45$ LLO@4 LO?$ @Cgx  gwalk-quasi-body gtmp   gtmp  5 gtmp  Q gtmp  k gfilenamefsxml/sxml-match.ss    gnamegselect-dotted-varsChW]6Ogx  gfilenamefsxml/sxml-match.ss     Ch)]C!gx     C'fNPh*]LC"gdv     CFGhH]4L54?$@45$ O@6gitem  Hgdvars Hgtmp   Hgtmp  , Hgfilenamefsxml/sxml-match.ss      H gnamegexpand-dotted-itemC'WhY]LL6Qgrst  gfilenamefsxml/sxml-match.ss  &   CZdhs] 4LL5Ckgitem  gtmp gfilenamefsxml/sxml-match.ss  0    Cgohs] 4LL5Ckgitem  gtmp gfilenamefsxml/sxml-match.ss  0    Cp')hN]CFg expanded-fst  g expanded-rst     CFGh8]4L54L545$@6gfst  5grst  5gtmp   5gtmp   5gfilenamefsxml/sxml-match.ss  / /    5 C+h ]45$ 45CCgitem  gdots  grst   gfilenamefsxml/sxml-match.ss  E  E   E *  E /  E %   Cx')hO]CGg expanded-item  g expanded-rst    CFGhH]4L4LL554L545$@6gitem  Agdots  Agrst   Agtmp   Agtmp  * Agfilenamefsxml/sxml-match.ss  0  1  0  /    A C+h ]45$ 45CCgitem  gdots  grst   gfilenamefsxml/sxml-match.ss  E  E   E *  E /  E %   C')hO]CGg expanded-item  g expanded-rst    CFGh@]4L4LL554L545$@6gitem  <gdots  <grst   <gtmp   <gtmp  % <gfilenamefsxml/sxml-match.ss  0  1  0  /    < Ch]145$ LO@45$ LLO@45$ LLO@45"X4 5"4 5$  LO@C$ 4 ?$ LLLLO@""$ 4?$LLLLO@""~gx  gtmp gtmp  ) gtmp  G gtmp  e gtmp  t gtmp  gfilenamefsxml/sxml-match.ss   gnamegexpand-quasiquote-bodyC')h] 4L5Cg quasiquote  gterm  gtmp  gfilenamefsxml/sxml-match.ss  B %   CYh0] 45$ LO@L6gx  .gtmp .gfilenamefsxml/sxml-match.ss  # 1 . B   . gnamegprocess-quasiquoteC'h+]LC#grst     ChY]LL6Qgrst  gfilenamefsxml/sxml-match.ss   $   C')hD]C<gexp-lft  gexp-rgt     CFGhD]C<gexp-lft  gexp-rgt    Ch]4LL5$74LL54LL545$@64LL54L545$@6gfst  ygrst  ygtmp  " Dgtmp  - Dgtmp  W ygtmp  b ygfilenamefsxml/sxml-match.ss   !     8   8 "  ! E  8 N  8 W  !  y Ch]bOOOOOOO  O QLQQQQQL  Q L Q 4  5  $  O @4  5  $  O @4 5  $LO @Cgaction  g dotted-vars  g finite-lst?  R g expand-lst  R g member-var?  R g dotted-var?  R g merge-pvars  R gselect-dotted-vars  R gexpand-dotted-item  R gexpand-quasiquote-body R gprocess-quasiquote R gtmp gtmp gtmp gfilenamefsxml/sxml-match.ss   gnamegprocess-output-actionC'FGhl]6dgtag  gitems  gfilenamefsxml/sxml-match.ss  ,    C' hH`]LCXgx  Bgbx  Bgbody   Bgfail-to   B  B CFGhQ]:4L54LLLLLLLL>  GLL45$4O?" 45DIgtag  |gitems  |gbody-exp  |gtests  + |g new-pvar-lst  + |g new-cata-defs  + |gnew-dotted-vars  + |gtmp  A tgtmp  L q gfilenamefsxml/sxml-match.ss  - & - < - & - ! -   / ! . .  A 9  | 9   | Ch]6|gtag  g attr-items  gitems   gfilenamefsxml/sxml-match.ss      C'  hPp]L Chgx  Ngax  Ngbx   Ngbody   Ngfail-to   N  N CFGh]C4L54L54LLLLLLLL>  GLL 4 5  $4O ?" 4 5  Dgtag  g attr-items  gitems   gattr-exp   gbody-exp   gtests  < g new-pvar-lst  < g new-cata-defs  < gnew-dotted-vars  < gtmp T gtmp _  gfilenamefsxml/sxml-match.ss   &  <  &  !   &   <   &   !      ! (  4 ;  ! ?   T      C hL, 3 45 "L45 " 6 $*4 ?$LO  @"" $*4 ?$ LO  @""Dgele  gexp  gnextp   gfail-k   gpvar-lst   gdepth   gcata-fun   g cata-defs   g dotted-vars   gtmp  gtmp  a gfilenamefsxml/sxml-match.ss    gnamegcompile-element-patC'7@DGIKMOPh G]L LLLLLLLLL6 ?gfilenamefsxml/sxml-match.ss  F    CFG+QRSThH] 45$64545$C45$C45$C6Cgatag  Egliteral  Egrst   Egx   Cgfilenamefsxml/sxml-match.ss  +  +   H   H   I  ! I  " I  $ J  . I  / J  1 K  ; I  < K  C L   E C'Ukmnopruh@Q]LLCIgax  ?gbody  ?gfail-to   ?  ? CFGhx4]34L L L LLLLLLLLL>  GL L45$4O?" 45D,gatag  wgliteral  wgrst   wgtests  & wg new-pvar-lst  & wg new-cata-defs  & wgnew-dotted-vars  & wgtmp  : ogtmp  E l gfilenamefsxml/sxml-match.ss  -   1 2 % -  ) ,  : 9  w 9   w Ch]45$6Cgatag  gi  grst   gfilenamefsxml/sxml-match.ss  &  &   & 2   CYh ] L6gatag  gi  grst   gsub  gfilenamefsxml/sxml-match.ss '   ' *  B    Chz]6rgatag  gi  grst   gfilenamefsxml/sxml-match.ss  !    CYh ] L6gatag  gi  grst   gsub  gfilenamefsxml/sxml-match.ss "   " *  B    Ch]45$6Cgatag  gvar  grst   gfilenamefsxml/sxml-match.ss        2   C'Uh@Q]LLCIgax  9gbody  9gfail-to   9  9 CFGh9]34L L L L LLL4LL5LLLL>  GL L45$4O?" 45D1gatag  ~gvar  ~grst   ~gtests  - ~g new-pvar-lst  - ~g new-cata-defs  - ~gnew-dotted-vars  - ~gtmp  A vgtmp  L s gfilenamefsxml/sxml-match.ss      2   2 ,   0   A   ~    ~ Ch}]6ugatag  gcvar  grst   gfilenamefsxml/sxml-match.ss      CY'h@a]LCYgax  9gct  9gbody   9gfail-to   9  9 CFG h];45L $"4L >"G4LLLLLLL4LL5L L L L L L >  GLL45  $4O ?" 4 5 Dgatag  gcvar  grst   gctemp  gtests  l g new-pvar-lst  l g new-cata-defs  l gnew-dotted-vars  l gtmp  gtmp  gfilenamefsxml/sxml-match.ss   #         B    0 - B  6  ! E  4 J  4 a e  d e  k  ! o        Ch]6gatag  gcata  gcvar   grst   gfilenamefsxml/sxml-match.ss      C'h@a]LCYgax  9gct  9gbody   9gfail-to   9  9 CFGh]<454L L L L LLL4LL5LLLLL>  GL L 4 5  $4O ?" 4 5  Dgatag  gcata  gcvar   grst   gctemp  gtests  F g new-pvar-lst  F g new-cata-defs  F gnew-dotted-vars  F gtmp \ gtmp g  gfilenamefsxml/sxml-match.ss   #       !   4 $  4 ; e  > e  E  ! I   \      Ch]45$6Cgatag  gvar  gdefault   grst   gfilenamefsxml/sxml-match.ss        2   C')h8<]LLLC4gax  8gbody  8  8 CFGhN]44L L L L LLL4LL5LLLL>  GL 45  $4O ?" 45 DFgatag  ~gvar  ~gdefault   ~grst   ~gtests  - ~g new-pvar-lst  - ~g new-cata-defs  - ~gnew-dotted-vars  - ~gtmp  ? vgtmp J s gfilenamefsxml/sxml-match.ss      2   2 ,   0   ?   ~    ~ Ch]6gatag  gcvar  gdefault   grst   gfilenamefsxml/sxml-match.ss      CY'Uh8L]LLCDgax  8gct  8gbody   8  8 CFG h]<45L $"4L >"G4LLLLLLL4LL5L L L L L L >  GL 4 5  $4O ?" 4  5  Dgatag  gcvar  gdefault   grst   gctemp  gtests  l g new-pvar-lst  l g new-cata-defs  l gnew-dotted-vars  l gtmp gtmp  gfilenamefsxml/sxml-match.ss   #         B    0 - B  6  ! E  4 J  4 a e  d e  k  ! o        Ch]6gatag  gcata  gcvar   gdefault   grst   gfilenamefsxml/sxml-match.ss  h    C'U789:;=h8L]LLCDgax  8gct  8gbody   8  8 CFGh]=454L L L L LLL4LL5LLLLL>  G L  4 5  $4O ?" 4 5   Dgatag  gcata  gcvar   gdefault   grst   gctemp  gtests  F g new-pvar-lst  F g new-cata-defs  F gnew-dotted-vars F gtmp Z gtmp e  gfilenamefsxml/sxml-match.ss  i # i  i   k !  o 4 $ r 4 ; e  > e  E k ! I j  Z {  {   ChY]6Qgvar  gfilenamefsxml/sxml-match.ss  S    C'UPQRh W]LCOgax  g matched-attrs  gbody     CFGhx ]14L L L L L4LL5LLLL>  GLL45$4O?" 45Dgvar  tgtests % tg new-pvar-lst  % tg new-cata-defs  % tgnew-dotted-vars  % tgtmp  9 lgtmp  D igfilenamefsxml/sxml-match.ss  U   Z 2 $ U  ( T  9 _  t _   t C"hC, 345 "45 "`45"45"45"}45"045"4 5"4 5"4 5"645$    LO @  6$04?$!   LO @""$4?$ LO@"a"]$4?$ LO@"."*$24?$#   LLO @""$44?$%LL  L O@""$24?$#   LLO @"K"G$24?$#   LLO @""$44?$%LL  L O@"" $24 ?$#   LLO  @"h"d $24  ?$#!   LLO  @"";gattr-lst  gbody-lst  gattr-exp   gbody-exp   g attr-key-lst   gnextp   gfail-k   gpvar-lst   gdepth   gcata-fun  g cata-defs  g dotted-vars  gtmp  gtmp  gtmp  - gtmp  < Fgtmp  K  gtmp  Z gtmp  i gtmp  x Tgtmp  0gtmp   gtmp  gfilenamefsxml/sxml-match.ss P    gnamegcompile-attr-listC''UlnhP]CHgx  gbody  gfail-to      CFGh`]04LLLL> GLL45$ 4?" 45Dg next-tests  [g new-pvar-lst  [g new-cata-defs   [gnew-dotted-vars   [gtmp  % Sgtmp  0 Pgfilenamefsxml/sxml-match.ss  G   F  % H  [ H   [ C'UhK]CCgct  gx  gbody      CFGY h]:L$y454L4LL5LLL> GL45$ 4?" 45D L 6gcata  gcvar  gctemp   g next-tests  7 g new-pvar-lst  7 g new-cata-defs  7 gnew-dotted-vars  7 gtmp  K ygtmp  V v gfilenamefsxml/sxml-match.ss  c  g '  g "  g   i %  i , , e  / e  6 i % : h  K p ! p  d . B   CY'UhK]CCgct  gx  gbody      CFG h|]945L$"4L>"G4L4LL5LLLL> GL45$ 4?" 4 5Dtgcvar  gctemp g next-tests  W g new-pvar-lst  W g new-cata-defs  W gnew-dotted-vars  W gtmp  k gtmp  v gfilenamefsxml/sxml-match.ss  x # x  x   y   B   z 0 - B  6 ~ ! 9 ~ ( L e  O e  V ~ ! Z }  k      Ch ]LLLLLLL6 gnew-exp  g new-pvar-lst  g new-cata-defs   gnew-dotted-vars   gfilenamefsxml/sxml-match.ss     !   Ch0k]L L LLLLLLOLLLLLL6 cgitem  )grst  )gfilenamefsxml/sxml-match.ss )    ) CFG+h ]45$ 45CCgitem  gdots  grst   gfilenamefsxml/sxml-match.ss  E  E   E *  E /  E %   C'fh+]C#gnpv    CFGh8] 45$ 4?" 45Dg new-pvar-lst  3g new-cata-defs  3gnew-dotted-vars   3gtmp  +gfilenamefsxml/sxml-match.ss  / 3  1  3 C'fh+]C#gnpv     CFGh8] 45$ 4?" 45Dgnew-exp  3g new-pvar-lst  3g new-cata-defs   3gnew-dotted-vars   3gtmp  +gfilenamefsxml/sxml-match.ss  * 3  ,  3 C .hV]CNgi  gfilenamefsxml/sxml-match.ss  0   C4hV]CNgi  gfilenamefsxml/sxml-match.ss  0   C:hV]CNgi  gfilenamefsxml/sxml-match.ss  0   C')Jh:]C2gxa  gxb    CFGh0]45$@6ga  +gb  +gtmp  +gtmp   +gfilenamefsxml/sxml-match.ss  0  2  + C'Kgijmopqlrskuvxy{}h , 3          4 5  45 4 5  4 5 45 Cgx  gfail-to  g tail-body   g item-body   g final-body   gipv   ggpv   gtpv   g item-void   g tail-void  g item-null  g item-cons      CFGYh;]{L $4LLL>  G4L LL L>  G  4L4L54 L544L 5L5> G   45LL  4  54  54  54  5 45$ 4?" 45  DL63gitem  gdots  grst   g t-cd60791-446  ! g t-cd60791-447  ! g t-cd60791-448  ! g t-cd60791-449  ! g t-cd60791-44a  F g t-cd60791-44b  F g t-cd60791-44c F g t-cd60791-44d F g final-tests gfinal-pvar-lst gfinal-cata-defs gfinal-dotted-vars  gtemp-item-pvar-lst  gtmp  gtmp  gfilenamefsxml/sxml-match.ss        /   /   /   $   -   8  * ;  * >  * E   I   R   U  % `  % k  % p  - |  %      ,    +  +  +  +        .  B    ChY]6Qgvar  gfilenamefsxml/sxml-match.ss  U    C')h;]LC3gx  gbody     CFGY h+]1L$c4L4LL5LL> GL45$4O?" 45DL 6#gvar  {g next-tests  kg new-pvar-lst   kg new-cata-defs   kgnew-dotted-vars   kgtmp  0 cgtmp  ; `gfilenamefsxml/sxml-match.ss  V  [ # [ *  [ # ! Z  0 \  k \  p W . { B   { ChH, 345  $ O @45 "45  $LL O  @45  $L LO  @45"94 5$  LLO @  6$24 ?$#LL LLO @"" $(4 ?$LL O @""glst  Hgexp  Hgnextp   Hgfail-k   Hgellipsis-allowed?   Hgpvar-lst   Hgdepth   Hgcata-fun   Hg cata-defs   Hg dotted-vars  Hgtmp  Hgtmp 4 Hgtmp C gtmp o gtmp  gtmp  gfilenamefsxml/sxml-match.ss Q   H gnamegcompile-item-listC''h8p]Chgx  6gnx  6gct   6gbody   6gfail-to   6  6 CFGh]B4L5454L4LL5LLL> GLL45  $ 4 ?" 45 Dgcata  gcvar  gnew-exp   gctemp   g next-tests  @ g new-pvar-lst  @ g new-cata-defs  @ gnew-dotted-vars  @ gtmp  X gtmp c  gfilenamefsxml/sxml-match.ss  / % / ; / % /  0 #  0   /   2 ! " 3 ( 5 e  8 e  ? 2 ! C 1  X :  :   CY'h8p]Chgx  6gnx  6gct   6gbody   6gfail-to   6  6 CFG h]A4L545L $"4L>"G4L4LL5LL LL> GLL45$ 4?" 4 5Dgcvar  gnew-exp  gctemp   g next-tests  f g new-pvar-lst  f g new-cata-defs  f gnew-dotted-vars  f gtmp  ~ gtmp   gfilenamefsxml/sxml-match.ss  I % I ; I % I  J #  J   I  " K  ' B  , L 0 : B  C P ! H Q ( [ e  ^ e  e P ! i O  ~ X  X   CfYh_]L6Wgi  gfilenamefsxml/sxml-match.ss   *  B    ChW]6Ogi  gfilenamefsxml/sxml-match.ss      CYh_]L6Wgi  gfilenamefsxml/sxml-match.ss   *  B    C+QRSTh8] 4545$C45$C45$C6gliteral  8gx 8gfilenamefsxml/sxml-match.ss  H  H  I   I   I   J  # I  $ J  & K  0 I  1 K  8 L   8 C'h@`]LCXgx  =gnx  =gbody   =gfail-to   =  = CFGhxE]94L54LLLL> GLL45$4O?" 45D=gliteral  qgnew-exp qg next-tests  qg new-pvar-lst  qg new-cata-defs  qgnew-dotted-vars  qgtmp  6 igtmp  A fgfilenamefsxml/sxml-match.ss   %  ;  %      ! #   6   q    q CFGhk]6cgtag  gitem  gfilenamefsxml/sxml-match.ss  f    C'U)*h K]CCgx  gnx  gbody      CFGh`L]34LL> GLL45$ 4?" 45DDg more-pvar-lst  ]gmore-cata-defs  ]gmore-dotted-vars   ]g next-tests   ]g new-pvar-lst   ]g new-cata-defs   ]gnew-dotted-vars   ]gtmp  ' Ugtmp  2 R gfilenamefsxml/sxml-match.ss l 6  p F  m 8 ' t B ] t :  ] C'U<=hP]CHgx  gbody  gfail-to      CFG hd]:4L54LLLLOLLLLLL>  GLL45$ 4?" 45D\gtag  gitem  gnew-exp  g after-tests  ; gafter-pvar-lst  ; gafter-cata-defs  ; gafter-dotted-vars  ; gtmp  O }gtmp  Z z gfilenamefsxml/sxml-match.ss  g % g ; g % g g   i ! > h  O      ChY]6Qgvar  gfilenamefsxml/sxml-match.ss      C'QRSTUh8`]LCXgx  6gnx  6gbody   6gfail-to   6  6 CFGhxS]94L54L4LL5LL> GLL45$4O?" 45DKgvar  xgnew-exp xg next-tests  ' xg new-pvar-lst  ' xg new-cata-defs  ' xgnew-dotted-vars  ' xgtmp  = pgtmp  H mgfilenamefsxml/sxml-match.ss   %  ;  %      !   0 &  ! *   = !  x !   x ChP, 345 "45  $LO @45  $LLO  @45 "i45  $  LO @4 ?$  LO@4 ?$ O@6 $*4 ?$LO  @"g"c $&4 ?$LO @""gitem  Igexp  Ignextp   Igfail-k   Igpvar-lst   Igdepth   Igcata-fun   Ig cata-defs   Ig dotted-vars   Igtmp  Igtmp  gtmp H gtmp v gtmp gtmp  gtmp  gfilenamefsxml/sxml-match.ss    I gnameg compile-itemCYVh8](C4L5$LL6"glst  1gfilenamefsxml/sxml-match.ss Y   Z  \   \ ,  \   \   ] 1 ( B  + ` $ 1 `   1 gnameg check-pvarCh0] OLQ4>"GCgpvar  -gpvar-lst  -g check-pvar  -gfilenamefsxml/sxml-match.ss X  a  , b   - gnameg add-pat-varC')h:]C2gcf  gct    CFGUklhM]CEgct  gnct  gbody      C hxV] $)45$@6454L545$@6Ngdepth  ugcfun  ugctemp   ugtmp   3gtmp   3g new-ctemp  > ugtmp  S ugtmp  ^ ugfilenamefsxml/sxml-match.ss g  h  h   i  4 l ( ; l > = l ( > l # > l  E o ( J o : P o ( S m   u gnamegprocess-cata-expC'hP]LL6Hgfilenamefsxml/sxml-match.ss  /   Chs]4L5Ckgfst  grst  gfilenamefsxml/sxml-match.ss  6 #  CFGhH]45$ LLO@45$ LO@6gitems  Dgtmp Dgtmp  ( Dgfilenamefsxml/sxml-match.ss   D gnamegiterCh(] (COLQ6glst  &giter  &gfilenamefsxml/sxml-match.ss      " * # $ &   & gnamegcata-defs->pvar-lstC'{h8, 3 Cgcompile-clause  2gcata  2gcvar   2ggexp   2gaction0   2gaction   2gexp   2gcata-fun   2gfail-exp   2   2 C'h]C   CY hh,3 45$ 4?"$,C  L6gcompile-clause  ggcvar  gggexp   ggaction0   ggaction   ggexp   ggcata-fun   ggfail-exp   ggtmp   ' gfilenamefsxml/sxml-match.ss +  \  * g B   g Ch ,3Cgcompile-clause  gcata  gcvar   gaction0   gaction   gexp   gcata-fun   gfail-exp      C'h]C   CYhP]45$ 4?"$CL6gcompile-clause  Pgcvar  Pgaction0   Pgaction   Pgexp   Pgcata-fun   Pgfail-exp   Pgtmp  #gfilenamefsxml/sxml-match.ss '  E  * P B   P CYh,3L6gcompile-clause  gi  ggexp   gaction0   gaction   gexp   gcata-fun   gfail-exp   gfilenamefsxml/sxml-match.ss B &  B    CYh]L6gcompile-clause  gi  gaction0   gaction   gexp   gcata-fun   gfail-exp   gfilenamefsxml/sxml-match.ss  F &  B    CFG+QRSTh8E]4545$C45$C45$C6=gcompile-clause  8gliteral  8gaction0   8gaction   8gexp   8gcata-fun   8gfail-exp   8gx  8gfilenamefsxml/sxml-match.ss  H  H  I   I   I   J  # I  $ J  & K  0 I  1 K  8 L   8 Ch ]Cgcompile-clause  gliteral  gaction0   gaction   gexp   gcata-fun   gfail-exp      C+QRSTh@W,3 4545$C45$C45$C6Ogcompile-clause  <gliteral  <ggexp   <gaction0   <gaction   <gexp   <gcata-fun   <gfail-exp   <gx  < gfilenamefsxml/sxml-match.ss  H  H   I   I   I   J  ' I  ( J  * K  4 I  5 K  < L   < Ch0,3Cgcompile-clause  ,gliteral  ,ggexp   ,gaction0   ,gaction   ,gexp   ,gcata-fun   ,gfail-exp   ,  , Ch]6gcompile-clause  gpat  gaction0   gaction   gexp   gcata-fun   gfail-exp   gfilenamefsxml/sxml-match.ss  O    CYh]L6gcompile-clause  gpat  gaction0   gaction   gexp   gcata-fun   gfail-exp   gfilenamefsxml/sxml-match.ss  P &  B    Ch,36gcompile-clause  gpat  ggexp   gaction0   gaction   gexp   gcata-fun   gfail-exp   gfilenamefsxml/sxml-match.ss J   CYh,3L6gcompile-clause  gpat  ggexp   gaction0   gaction   gexp   gcata-fun   gfail-exp   gfilenamefsxml/sxml-match.ss K &  B    Ch,36gcompile-clause  gfst  grst   gaction0   gaction   gexp   gcata-fun   gfail-exp   gfilenamefsxml/sxml-match.ss *   Ch ]4L4LLL55Dg new-pvar-lst  g new-cata-defs  gnew-dotted-vars   gfilenamefsxml/sxml-match.ss . 0  / :  0 M  / : / 2  C 'h]C   C)hA]LC9gfail-to  gbody     CFG h,34LLLO 45$ 4?">  G    4 5  $ O @  6gcompile-clause  gfst  grst   gaction0   gaction   gexp   gcata-fun   gfail-exp   gtmp  * Bgresult  J gpvar-lst J g cata-defs J g dotted-vars J gtmp \ gtmp g gfilenamefsxml/sxml-match.ss  ,  8 0 C ; 0 D < 0 I ,  M + \ =   Ch, 3 6gcompile-clause  gfst  grst   ggexp   gaction0   gaction   gexp   gcata-fun   gfail-exp    gfilenamefsxml/sxml-match.ss    C, ')34hA]LC9gbody  gfail-to     CFGhX]4L4LLL5545$4LO?" 45Dg new-pvar-lst  Xg new-cata-defs  Xgnew-dotted-vars   Xgtmp   Pgtmp  ( Mgfilenamefsxml/sxml-match.ss  0   >   Q   >   3 X  2  X C 'h]C   C)@hA]LC9gfail-to  gbody     CFG h, 34LLLO 45  $ 4 ?" >  G      4 5$ O@  6gcompile-clause  gfst  grst   ggexp   gaction0   gaction   gexp   gcata-fun   gfail-exp   gtmp , Dgresult L gpvar-lst L g cata-defs L g dotted-vars L gtmp ^ gtmp  i gfilenamefsxml/sxml-match.ss    "  0 E # 0 F $ 0 K   O  ^ %   CA+h ,345$ 45CCgcompile-clause  glst  grst   gaction0   gaction   gexp   gcata-fun   gfail-exp   gfilenamefsxml/sxml-match.ss        2   8   -   CSh ]4L4LLL55Dg new-pvar-lst  g new-cata-defs  gnew-dotted-vars   gfilenamefsxml/sxml-match.ss  .   8   K   8  0  C 'h]C   C)_`ah(A]LLC9gbody  %gfail-to  %  % CFG h,34LLLO 45$ 4?">  G    4 5  $ O @  6gcompile-clause  glst  grst   gaction0   gaction   gexp   gcata-fun   gfail-exp   gtmp  ( @gresult  H gpvar-lst H g cata-defs H g dotted-vars H gtmp Z gtmp e gfilenamefsxml/sxml-match.ss      . A  . B  . G   K  Z    CA+h ", 3 45$ 45CCgcompile-clause  glst  grst   ggexp   gaction0   gaction   gexp   gcata-fun   gfail-exp    gfilenamefsxml/sxml-match.ss        2   8   -   Ct ')|}hE]LC=gexp-body  gfail-to     CFGhX]4L4LLL5545$4LO?" 45Dg new-pvar-lst  Xg new-cata-defs  Xgnew-dotted-vars   Xgtmp   Pgtmp  ( Mgfilenamefsxml/sxml-match.ss  .   @   S   @   1 X  0  X C 'h]C   C)h(A]LLC9gfail-to  %gbody  %  % CFG h, 34LLLO 45  $ 4 ?" >  G      4 5$ O@  6gcompile-clause  glst  grst   ggexp   gaction0   gaction   gexp   gcata-fun   gfail-exp   gtmp * Bgresult J gpvar-lst J g cata-defs J g dotted-vars J gtmp \ gtmp  g gfilenamefsxml/sxml-match.ss     . C  . D  . I   M  \    Ch]6gcompile-clause  gvar  gaction0   gaction   gexp   gcata-fun   gfail-exp   gfilenamefsxml/sxml-match.ss      Ch]Cgcompile-clause  gvar  gaction0   gaction   gexp   gcata-fun   gfail-exp      Ch,36gcompile-clause  gvar  ggexp   gaction0   gaction   gexp   gcata-fun   gfail-exp   gfilenamefsxml/sxml-match.ss    Ch0,3Cgcompile-clause  -gvar  -ggexp   -gaction0   -gaction   -gexp   -gcata-fun   -gfail-exp   -  - C3h@]OOOOOOOO O QQQQ QQQQ Q 4  5 "s4  5  $  @4 5  $ O @4 5 "4 5$@4 5$ O@4 5"4 5"q4 5":4 5"4 5$ O@4 5$ O@4 5"4 5"e4 5"74 5" 6$4?$ @""$4!?$"@""$4#?$ $O@"{"w$4%?$ &O@"H"D$4'?$(O@""$4)?$*O@""$4+?$,O@"k"g$4-?$.O@"4"0 $4/ ?$0 @"" $41 ?$2 @"r"ngstx  9gprocess-cata-defs U 9gprocess-output-action  U 9gcompile-element-pat  U 9gcompile-attr-list  U 9gcompile-item-list  U 9g compile-item  U 9g add-pat-var  U 9gprocess-cata-exp  U 9gcata-defs->pvar-lst U 9gtmp 9gtmp gtmp gtmp gtmp  gtmp   gtmp  % gtmp  4 gtmp  C gtmp  R gtmp  a [gtmp  } [gtmp   [gtmp   7gtmp   gtmp   gfilenamefsxml/sxml-match.ss >  ?   9 C5R4"$'hh]C`gdummy  gexp  gcata-fun   gclause      Ch8}]Cugdummy  2gexp  2gcata-fun   2gclause0   2gclause   2  2 CFGh@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefsxml/sxml-match.ss _   9 g macro-typeg syntax-rulesgpatternsgexpgcata-fungclausegexpgcata-fungclause0gclauseg...C5R4"$'h0g]C_gdummy  ,gval  ,gclause0   ,gclause   ,  , CFGh(] 45$@6gx  "gtmp "gfilenamefsxml/sxml-match.ss l   " g macro-typeg syntax-rulesgpatternsgvalgclause0gclauseg...C5R4"$' h{]Csgdummy  gsyntag  gsynform   gbody0   gbody     C !#h8]Cgdummy  6gsyntag  6gsynform   6gpat   6gexp   6gbody0   6gbody   6  6 C*;<>A?@ABC hP, 3 45 Cgdummy  Jgsyntag  Jgsynform   Jgpat0   Jgexp0   Jgpat   Jgexp   Jgbody0   Jgbody   J   J CFG hP]45$@45$@45$@ 6gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefsxml/sxml-match.ss s   P g macro-typeg syntax-rulesgpatternsgsyntaggsynformgbody0gbodyg...gsyntaggsynformgpatgexpgbody0gbodyg...gsyntaggsynformgpat0gexp0gpatgexpg...gbody0gbodyg...C5R4"D$'H'f\>A]h01]4L5LL4L5LLC)g temp-name  -  - CFGh@]4545$O@6gsxml-match-let-help  :gsyntag  :gsynform   :gpat   :gexp   :gbody0   :gbody   :gtmp  :gtmp   : gfilenamefsxml/sxml-match.ss   (    : CFGh(h] 45$@6`gstx  "gtmp "gfilenamefsxml/sxml-match.ss    " C5DR4"$'Fn>Ah }]L45Cugsxml-match-let  gpat  gexp   gbody0   gbody      CFGh(h] 45$ O@6`gstx  'gtmp 'gfilenamefsxml/sxml-match.ss    ' C5R4"$'yh\]CTgsxml-match-let*  gbody0  gbody     C(>Ah0]L45Cgsxml-match-let*  *gpat0  *gexp0   *gpat   *gexp   *gbody0   *gbody   *  * CFGh@y]45$@45$ O@6qgstx  >gtmp >gtmp  " >gfilenamefsxml/sxml-match.ss    > C5RCgm  ,gfilenamefsxml/match.scm   e 1 gfilenamefsxml/sxml-match.ss    $     (  /   6  x C6