Warning: file_get_contents(https://raw.githubusercontent.com/Den1xxx/Filemanager/master/languages/ru.json): failed to open stream: HTTP request failed! HTTP/1.1 404 Not Found
in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 88
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 215
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 216
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 217
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 218
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 219
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 220
GOOF----LE-8-2.0[ ] 4 hx ] g guile g define-module* g sxml g match g filenameS
f sxml/match.scm g importsS g srfi
g srfi-1
g srfi-11 g ice-9 g control g exportsS g
sxml-match g sxml-match-let g sxml-match-let* g set-current-module g make-syntax-transformer ! " #g syntax-object->datum $g macro %g $sc-dispatch &% '% (g any )(( *g
syntax-object +g
syntax->datum ,g top -, .g ribcage /g dummy 0g stx 1/0 2g m-cd60791-1 32, 43- 5f l-cd60791-6 6f l-cd60791-7 756 8.147 9. :g x ;: <3 =f l-cd60791-3 >= ?.;<> @-89? Ag hygiene BA C*+@B Dg syntax-violation ED FD Gf -source expression failed to match any pattern Hg void 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 Wg throw Xg sxml-match-error Yg raise-syntax-error Zg module [g free-id \g provide ]g m-cd60791-1a ^], _^ `f l-cd60791-1c a` b.;_a c-9b d*\cB e[d fg each-any gef hg require i*hcB j[i kjf lkf mgl n(m o(n p(o qg begin rg name sg lang tg p_ ug r_ vg body 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 g nodeset? g error g xml-element-tag f expected an xml-element, given g xml-element-attributes g
fold-right g @ g filter g xml-element-contents g match-xml-attribute g member g filter-attributes g compile-clause g map f( g
let-values g cata-binding g body-stx -- f l-cd60791-b1 f l-cd60791-b2 . g cata-defs v f l-cd60791-ac f l-cd60791-ad . g sxml-match-syntax-error g ellipsis? g literal? g keyword? g extract-cata-fun g add-pat-var g add-cata-def g process-cata-exp g process-cata-defs g cata-defs->pvar-lst g process-output-action g compile-element-pat g compile-end-element g compile-attr-list g compile-item-list g compile-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 ... g quote g lst f l-cd60791-fe . g process-quasiquote g expand-quasiquote-body g expand-dotted-item g select-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 . g action g dotted-vars f l-cd60791-ce f l-cd60791-cf . -99 *B g cons g exp-lft g exp-rgt f
l-cd60791-122 f
l-cd60791-123 . g fst g rst f
l-cd60791-11b f
l-cd60791-11c . -999 *B g append
f
l-cd60791-116 f
l-cd60791-117
. g dots --- f
l-cd60791-10d f
l-cd60791-10e f
l-cd60791-10f . -9
99 * B g bound-identifier=? g free-identifier=? g unquote g y f
l-cd60791-13d . g walk-quasi-body ! "- #f
l-cd60791-13a $# %.!"$ &f
l-cd60791-139 '& (.;' )-9 %(9
**)B +[* ,+( -,( .g unquote-splicing /*.)B 0[/ 10( 21( 3-%(9 4*3B 5[4 65( 7g
quasiquote 8*73B 9[8 :9( ;g dv <; =f
l-cd60791-174 >= ?.<> @f
l-cd60791-16f A@ B.;A Cg dvars DC Ef
l-cd60791-167 FE G.DF Hg item IH Jf
l-cd60791-166 KJ L.IK M-9?B9G9L9
N*MB Og lambda 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 f bad quasiquote-form g s f l-cd60791-5b . g msg g exp g sub f l-cd60791-56 f l-cd60791-57 f l-cd60791-58 . -999 *B -9 *B [ ( *7B [ ( g apply f
l-cd60791-1e6 f
l-cd60791-1e7 . f
l-cd60791-1d8 f
l-cd60791-1d9 . -99 *B g ele g nextp g fail-k g pvar-lst g depth g cata-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 [ ( ( (ƌ g generate-temporaries (((( g if g bx g fail-to :v ---- f
l-cd60791-23d f
l-cd60791-23e f
l-cd60791-23f f
l-cd60791-240 . g tests g new-pvar-lst g
new-cata-defs g new-dotted-vars f
l-cd60791-236 f
l-cd60791-237 f
l-cd60791-238 f
l-cd60791-239 . g body-exp f
l-cd60791-22f . g tag g items f
l-cd60791-22b f
l-cd60791-22c . -999999 *B g and *B g pair? *B g eq? *B *B *B g let *B *B ((((( g ax :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 .
g attr-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 !g attr-lst "g body-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)( Qg string? Rg char? Sg number? Tg boolean? 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.` bg atag cg literal dbc ef
l-cd60791-39f ff
l-cd60791-3a0 gf
l-cd60791-3a1 hefg i.dh j-9[9ai939 k*jB lg binding m*ljB n*jB o*jB p*jB qg equal? r*qjB sg cadr t*sjB utm vg kwd wg i xbw yf
l-cd60791-390 zf
l-cd60791-391 {f
l-cd60791-392 |yz{ }.x| ~-}939 *v~B f bad 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 . g var b f
l-cd60791-361 f
l-cd60791-362 f
l-cd60791-363 . -99939 *B *lB *B *B *B *sB f g
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 mg null? n*mkB og ellipsis-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 f 1improper 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 g tail 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 g values g npv f
l-cd60791-458 . f
l-cd60791-452 f
l-cd60791-453 f
l-cd60791-454 . -999999 *B *B g fail *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 . g new-exp f
l-cd60791-467 f
l-cd60791-468 f
l-cd60791-469 f
l-cd60791-46a . -9999999 *B *B g cdr *B *B *B w f
l-cd60791-4bf . g temp-item-pvar-lst f
l-cd60791-492 . g final-tests g final-pvar-lst g final-cata-defs g final-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 g item-cata-defs g item-dotted-vars g
tail-tests g
tail-pvar-lst g tail-cata-defs g tail-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 ;g xa f
l-cd60791-4cb ?f
l-cd60791-4cc @>? A.=@ Bg a Cg b DBC Ef
l-cd60791-4c6 Ff
l-cd60791-4c7 GEF H.DG I-9A99H99 99 9+9999 J*IB K(((((fffffff Lg letrec Mg tail-body Ng item-body Og
final-body Pg ipv Qg gpv Rg tpv 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 wg tail-res x*wfB y*fB z { |g res }*|fB ~g new-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 ( g nx :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 g car *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) f 7bad 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 g more-cata-defs !g more-dotted-vars " ! #f
l-cd60791-552 $f
l-cd60791-553 %f
l-cd60791-554 &#$% '."& (-99 99'999 99 )*(B **(B +f
l-cd60791-572 ,f
l-cd60791-573 -f
l-cd60791-574 .+,- /.S. 0g after-tests 1g after-pvar-lst 2g after-cata-defs 3g after-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 Wg nct 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 cg cfun 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( ug guard v*uqB w[v xwf yx挤 zty {(z((( |*8qB }[| ~}f (~ s y (((( g gexp g action0 g fail-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 (((( g atom 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 g failure -99
* B v f
l-cd60791-72a
f
l-cd60791-72b
. g result 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 ) !"#$%&'( *. ) +-9 9*9p99 ,*q+B -v .f
l-cd60791-6e1 /f
l-cd60791-6e2 0./ 1.-0 2-919 9*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 Ag list 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 ug exp-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 g clause / 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 f no matching clause found *B ( (Č g let/ec g clause0 / ---- f
l-cd60791-7dd f
l-cd60791-7de f
l-cd60791-7df f
l-cd60791-7e0 f
l-cd60791-7e1 . -9 *B g escape *B *B *OB g call-with-values *B *B g val / 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 g sxml-match-let1 挤 ( ( ( g syntag g synform g body0 /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
)
挤 (
( (
g pat /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 "f could not match pattern ~s #*"B $g each %$) &)% '&挤 ((' )(( *() +g pat0 ,g exp0 -/+,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 Dg sxml-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 *DB C 5 hx ]4
5 4 > " G 4"#$')C h > ] C 6 g dummy
g stx
CFG h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef sxml/match.scm
+
" g
macro-typeg syntax-rulesg patternsg stx C5#R4"H$'IV h - ]C % g dummy
CFG h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef sxml/match.scm
.
" g
macro-typeg syntax-rulesg patterns C5HRWX h ] 6 g x
g msg g obj g sub g filenamef sxml/match.scm
1
2 2 g nameg raise-syntax-error CYR4"Z$'p h ]C{ g dummy
g name g lang g p_ g r_ g body CFG h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef sxml/match.scm
5 " g
macro-typeg syntax-rulesg patternsg nameg langg provideg p_g ... g requireg r_g ... g bodyg ... C5ZR h( ] $ " $ C C g x
" g t " g filenamef sxml/sxml-match.ss
%
! 0 " g nameg nodeset? CR h0 ]"
6 $ $ C"" g s
+ g filenamef sxml/sxml-match.ss
" + g nameg xml-element-tag CR h ] $
" C } g i
g filenamef sxml/sxml-match.ss
& < 7 K N F 2 C h( ]" C $ & C"" g c
' g d ' g filenamef sxml/sxml-match.ss
* ! 0 , 5 , D G 0 ' C h8 ] $ & & ( 6 6CC g a
2 g b 2 g filenamef sxml/sxml-match.ss
. 1 Z ! * " , , 2 C h8 ]"
6 $ $
6"" g s
1 g filenamef sxml/sxml-match.ss
& & ' &
$ $ ' % ) 1 g nameg xml-element-attributes CR h ] $
" C } g i
g filenamef sxml/sxml-match.ss
* + + + + + . + & + C h0 ]"
6 $ $ 6"" g s
0 g filenamef sxml/sxml-match.ss
(
- - % - ) )
) ) ) ) & , ( *
0 g nameg xml-element-contents CR h( ]$ & C 6C g key
" g l " g filenamef sxml/sxml-match.ss
/ 0
0 2
2 2 3 4 % 4
" g nameg match-xml-attribute CR h8 ]( C4 5$ 64 5C g keys
1 g lst 1 g filenamef sxml/sxml-match.ss
6 7 8 9 9 9 9 : $ " : % ; & ; - ; 4 / ; 0 ; 1 g nameg filter-attributes CR4"$') h > ] C 6 g bvar
g bval
CFG h@ ] 4L 5 45 $ @6 g def
> g tmp > g tmp ' > g filenamef sxml/sxml-match.ss
v & w < x < x N y N z N x < w ( > C' h J ] C B g cata-binding
g body-stx CFG h@ ] ( C4L O 5 45 $ @6 g cata-defs
@ g body @ g tmp @ g tmp ) @ g filenamef sxml/sxml-match.ss
r s v ! u @ g nameg process-cata-defs C h Z ] 6R g item
g filenamef sxml/sxml-match.ss C h , ]C $ g item
C'h ] C
C h j ]L 6b g fst
g rst g filenamef sxml/sxml-match.ss CFG+ h ]45$ 45CC g fst
g dots g rst g filenamef sxml/sxml-match.ss E
E E * E / E % C h N ]C F g fst
g dots g rst C h ]! 4?$ @4 5 $ @4 5 " %4 5 $ L O @ 6$ 4
?$ @"" g lst
g tmp g tmp " g tmp 9 g tmp H d g filenamef sxml/sxml-match.ss
g nameg finite-lst? C' h ] C
C h Z ] 6R g item
g filenamef sxml/sxml-match.ss C h , ] C $ g item
C') h D ] C < g exp-lft
g exp-rgt CFG h8 ]4L L54L5 45 $ @6 g fst
7 g rst 7 g tmp 7 g tmp 7 g filenamef sxml/sxml-match.ss * * 7 CFG+ h ]45$ 45CC g fst
g dots g rst g filenamef sxml/sxml-match.ss E
E E * E / E % C') h D ] C < g exp-lft
g exp-rgt CFG h@ ]4L 4L L554L5 45 $ @6 g fst
< g dots < g rst < g tmp < g tmp % < g filenamef sxml/sxml-match.ss * + * * < C h ]!4 5 $ @ 4?$ @4 5 " )4 5 $ LLLO @ 6$ 4
?$ L LLLO @"" g lst
g tmp
g tmp g tmp 9 g tmp H h g filenamef sxml/sxml-match.ss
g nameg
expand-lst C hP ]" ;( C4 5 $ "
4 5 $ C " " g var
I g lst I g lst A g t 2 g filenamef sxml/sxml-match.ss
6 & - 5 / 6 ; A A I g nameg member-var? Ch y ]L L 6 q g var
g filenamef sxml/sxml-match.ss
g nameg dotted-var? C h8 ] ( C4L 5$
" 4L 5C g lst1
5 g lst2 5 g filenamef sxml/sxml-match.ss
% % & ) * ) / 6 3 ) 4 5 g nameg merge-pvars C'-h z ]L4L 54L 56 r g a
g rst g filenamef sxml/sxml-match.ss " " C2 h z ]L4L 54L 56 r g a
g rst g filenamef sxml/sxml-match.ss " " C h | ]L4L 54L 56 t g fst
g rst g filenamef sxml/sxml-match.ss " " C hh ]4 5 $ LLL O @4 5 $ LLL O @4 5 $
LL O @C g y
b g tmp b g tmp + b g tmp K b g filenamef sxml/sxml-match.ss
a b g nameg walk-quasi-body C'6 h Y ]C Q g rst
g filenamef sxml/sxml-match.ss ! C: h Y ]L 6Q g rst
g filenamef sxml/sxml-match.ss & C h | ]L4L 54L 56 t g fst
g rst g filenamef sxml/sxml-match.ss C h l ]4 5$ L 6C d g item
g filenamef sxml/sxml-match.ss
C h Z ] CR g item
g filenamef sxml/sxml-match.ss C h ])O LLQ 4 5 $ @4 5 $ O @4 5 $
LLO @ 4 L O ?$
@C g x
g walk-quasi-body g tmp g tmp 5 g tmp Q g tmp k g filenamef sxml/sxml-match.ss
g nameg select-dotted-vars C h W ] 6O g x
g filenamef sxml/sxml-match.ss C h ) ] C ! g x
C'fNP h * ] L C " g dv
CFG hH ]4L 5 4?$ @45 $ O @6 g item
H g dvars H g tmp H g tmp , H g filenamef sxml/sxml-match.ss
H g nameg expand-dotted-item C'W h Y ]LL 6Q g rst
g filenamef sxml/sxml-match.ss & CZd h s ] 4L L5 C k g item
g tmp g filenamef sxml/sxml-match.ss 0 Cgo h s ] 4L L5 C k g item
g tmp g filenamef sxml/sxml-match.ss 0 Cp') h N ] CF g expanded-fst
g expanded-rst CFG h8 ]4L 54L 5 45 $ @6 g fst
5 g rst 5 g tmp 5 g tmp 5 g filenamef sxml/sxml-match.ss /
/ 5 C+ h ]45$ 45CC g item
g dots g rst g filenamef sxml/sxml-match.ss E
E E * E / E % Cx') h O ] C G g
expanded-item
g expanded-rst
CFG hH ]4L 4L L554L5 45 $ @6 g item
A g dots A g rst A g tmp A g tmp * A g filenamef sxml/sxml-match.ss 0 1 0 / A C+ h ]45$ 45CC g item
g dots g rst g filenamef sxml/sxml-match.ss E
E E * E / E % C') h O ] C G g
expanded-item
g expanded-rst
CFG h@ ]4L 4L L554L5 45 $ @6 g item
< g dots < g rst < g tmp < g tmp % < g filenamef sxml/sxml-match.ss 0 1 0 / < C h ]14 5 $
LO @4 5 $
L LO @4 5 $
L LO @4 5 " X4 5 " 4
5 $ LO @ C$ 4 ?$
LLL LO @""$ 4?$ LLL LO @""~ g x
g tmp g tmp ) g tmp G g tmp e g tmp t g tmp g filenamef sxml/sxml-match.ss
g nameg expand-quasiquote-body C') h ]
4L 5 C g
quasiquote
g term g tmp g filenamef sxml/sxml-match.ss B % CY h0 ] 4 5 $ LO @L 6 g x
. g tmp . g filenamef sxml/sxml-match.ss
# 1 . B . g nameg process-quasiquote C' h + ]L C # g rst
Ch Y ]LL 6Q g rst
g filenamef sxml/sxml-match.ss $ C') h D ] C< g exp-lft
g exp-rgt CFG h D ] C < g exp-lft
g exp-rgt C h ]4LL5$ 74L L54LL5 45 $ @64L L54L 5 45 $ @6 g fst
y g rst y g tmp " D g tmp - D g tmp W y g tmp b y g filenamef sxml/sxml-match.ss !
8 8 " ! E 8 N 8 W ! y C h ]bO O O O O O O O
Q LQ Q Q Q Q L
Q L Q
4
5 $ O @4
5 $
O @4
5
$ L O
@ C g action
g dotted-vars g finite-lst? R g
expand-lst R g member-var? R g dotted-var? R g merge-pvars R g select-dotted-vars R g expand-dotted-item R g expand-quasiquote-body R g process-quasiquote
R g tmp g tmp g tmp
g filenamef sxml/sxml-match.ss
g nameg process-output-action C'FG h l ] 6d g tag
g items g filenamef sxml/sxml-match.ss , C' hH ` ] L C X g x
B g bx B g body B g fail-to B B CFG h Q ]:4L 5 4LLLLLLLL>
G L L 45 $ 4 O ?"
45 D I g tag
| g items | g body-exp
| g tests + | g new-pvar-lst + | g
new-cata-defs + | g new-dotted-vars + | g tmp A t g tmp L q g filenamef sxml/sxml-match.ss - &
- < - &
- !
- / ! . . A 9 | 9
| C h ] 6| g tag
g
attr-items g items g filenamef sxml/sxml-match.ss C'
hP p ] L C h g x
N g ax N g bx N g body N g fail-to N N CFG h ]C4L 54L 5 4LLLLLLLL> G L L 4 5
$ 4 O
?"
4 5
D g tag
g
attr-items g items g attr-exp g body-exp g tests < g new-pvar-lst < g
new-cata-defs < g new-dotted-vars < g tmp T g tmp
_ g filenamef sxml/sxml-match.ss &
< &
! & < & ! ! ( 4 ; ! ? T C
h L , 3 4 5 " L4 5
" 6
$ *4
?$ L O
@"" $ *4 ?$ LO @"" D g ele
g exp g nextp g fail-k g pvar-lst g depth g cata-fun g cata-defs g dotted-vars g tmp g tmp
a g filenamef sxml/sxml-match.ss
g nameg compile-element-pat C'7@DGIKMOP h G ] L LLLLLLLLL 6
? g filenamef sxml/sxml-match.ss F
CFG+QRST hH ] 4 5$ 645 45$ C45$ C45$ C6C g atag
E g literal E g rst E g x C g filenamef sxml/sxml-match.ss +
+ H H I ! I " I $ J . I / J 1 K ; I < K C L E C'Ukmnopru h@ Q ]L L C I g ax
? g body ? g fail-to ? ? CFG hx 4 ]34L L
L L LLLLLLLL > G L L 45 $ 4 O ?"
45 D , g atag
w g literal w g rst w g tests & w g new-pvar-lst & w g
new-cata-defs & w g new-dotted-vars & w g tmp : o g tmp E l g filenamef sxml/sxml-match.ss - 1 2 % - ) , : 9 w 9 w C h ]4 5$ 6C g atag
g i g rst g filenamef sxml/sxml-match.ss &
& & 2 CY h ] L 6 g atag
g i g rst g sub g filenamef sxml/sxml-match.ss ' ' * B C h z ] 6r g atag
g i g rst g filenamef sxml/sxml-match.ss ! CY h ] L 6 g atag
g i g rst g sub g filenamef sxml/sxml-match.ss " " * B C h ]4 5$ 6C g atag
g var g rst g filenamef sxml/sxml-match.ss
2 C'U h@ Q ]L L C I g ax
9 g body 9 g fail-to 9 9 CFG h 9 ]34L L L
L LLL4LL5LLLL > G L
L 45 $ 4 O ?"
45 D 1 g atag
~ g var ~ g rst ~ g tests - ~ g new-pvar-lst - ~ g
new-cata-defs - ~ g new-dotted-vars - ~ g tmp A v g tmp L s g filenamef sxml/sxml-match.ss
2 2 , 0 A ~ ~ C h } ] 6u g atag
g cvar g rst g filenamef sxml/sxml-match.ss CY' h@ a ]L C Y g ax
9 g ct 9 g body 9 g fail-to 9 9 CFG
h ];4 5 L
$ " 4L > " G 4L LLL LLL4LL5L L
L L
L
L > G LL 45 $ 4 O ?"
4 5 D g atag
g cvar g rst g ctemp
g tests l g new-pvar-lst l g
new-cata-defs l g new-dotted-vars l g tmp g tmp
g filenamef sxml/sxml-match.ss #
B 0 - B 6 ! E 4 J 4 a e d e k ! o C h ] 6 g atag
g cata g cvar g rst g filenamef sxml/sxml-match.ss C' h@ a ]L C Y g ax
9 g ct 9 g body 9 g fail-to 9 9 CFG h ]<4 5 4L L L
L LLL4LL5LLL LL > G L
L 4 5
$ 4 O
?"
4 5
D g atag
g cata g cvar g rst g ctemp
g tests F g new-pvar-lst F g
new-cata-defs F g new-dotted-vars F g tmp \ g tmp
g g filenamef sxml/sxml-match.ss #
! 4 $ 4 ; e > e E ! I \
C h ]4 5$ 6C g atag
g var g default g rst g filenamef sxml/sxml-match.ss
2 C') h8 < ]L L L C4 g ax
8 g body 8 8 CFG h N ]44L L L
L LLL4LL5LLLL > G L
45 $ 4 O ?"
45 D F g atag
~ g var ~ g default ~ g rst ~ g tests - ~ g new-pvar-lst - ~ g
new-cata-defs - ~ g new-dotted-vars - ~ g tmp ? v g tmp J s
g filenamef sxml/sxml-match.ss 2 2 , 0 ? ~ ~ C h ] 6 g atag
g cvar g default g rst g filenamef sxml/sxml-match.ss CY'U h8 L ]L L CD g ax
8 g ct 8 g body 8 8 CFG
h ]<4 5 L
$ " 4L > " G 4L LLL LLL4LL5L L
L L
L
L > G L 4 5
$ 4 O
?"
4 5
D g atag
g cvar g default g rst g ctemp
g tests l g new-pvar-lst l g
new-cata-defs l g new-dotted-vars l g tmp g tmp
g filenamef sxml/sxml-match.ss #
B 0 - B 6 ! E 4 J 4 a e d e k ! o C h ] 6 g atag
g cata g cvar g default g rst g filenamef sxml/sxml-match.ss h C'U789:;= h8 L ]L L CD g ax
8 g ct 8 g body 8 8 CFG h ]=4 5 4L L L
L LLL4LL5LLL LL > G L
4
5 $ 4 O ?"
4
5
D g atag
g cata g cvar g default g rst g ctemp
g tests F g new-pvar-lst F g
new-cata-defs F g new-dotted-vars F g tmp
Z g tmp e g filenamef sxml/sxml-match.ss i #
i
i k ! o 4 $ r 4 ; e > e E k ! I j Z { {
C h Y ] 6Q g var
g filenamef sxml/sxml-match.ss S C'UPQR h W ]L CO g ax
g
matched-attrs g body CFG hx ]14L L L
L L4L L5LLLL>
G LL 45 $ 4 O ?"
45 D g var
t g tests % t g new-pvar-lst % t g
new-cata-defs % t g new-dotted-vars % t g tmp 9 l g tmp D i g filenamef sxml/sxml-match.ss U Z 2 $ U ( T 9 _ t _ t C "h C , 3 4 5 " 4 5
" `4 5 " 4 5 " 4 5 " }4 5 " 04 5 " 4 5 " 4
5 " 4
5 " 64 5 $
LO
@
6$ 04?$ !
L O @""$ 4?$ LO @"a"]$ 4?$ LO @"."*$ 24?$ #
LL O
@""$ 44?$ %L L
L O @""$ 24?$ #
LL O
@"K"G$ 24?$ #
LL O
@" "$ 44 ?$ % L L
L O @""
$ 24
?$ #
LL O
@"h"d $ 24 ?$ #!
LLO
@" " ; g attr-lst
g body-lst g attr-exp g body-exp g attr-key-lst g nextp g fail-k g pvar-lst g depth g cata-fun g cata-defs
g dotted-vars g tmp g tmp
g tmp - g tmp < F g tmp K
g tmp Z g tmp i g tmp x T g tmp 0 g tmp g tmp g filenamef sxml/sxml-match.ss
P g nameg compile-attr-list C''Uln h P ] C H g x
g body g fail-to CFG h` ]04LLLL> G L L 45 $ 4?"
45 D g
next-tests
[ g new-pvar-lst [ g
new-cata-defs [ g new-dotted-vars [ g tmp % S g tmp 0 P g filenamef sxml/sxml-match.ss G F % H [ H [
C'U h K ] C C g ct
g x g body CFGY h ]:L$ y4 5 4L4LL5L LL> G L 45 $ 4?"
45 D L
6 g cata
g cvar g ctemp g
next-tests 7 g new-pvar-lst 7 g
new-cata-defs 7 g new-dotted-vars 7 g tmp K y g tmp V v g filenamef sxml/sxml-match.ss c g ' g " g i % i , , e / e 6 i % : h K p ! p d . B CY'U h K ] C C g ct
g x g body CFG
h | ]94 5 L$ " 4L > " G 4L 4LL5L L LL> G L 45 $ 4?"
4 5 D t g cvar
g ctemp
g
next-tests W g new-pvar-lst W g
new-cata-defs W g new-dotted-vars W g tmp k g tmp v g filenamef sxml/sxml-match.ss x #
x
x y B z 0 - B 6 ~ ! 9 ~ ( L e O e V ~ ! Z } k C h ]LL LLLLL 6
g new-exp
g new-pvar-lst g
new-cata-defs g new-dotted-vars g filenamef sxml/sxml-match.ss
! C h0 k ]L
L LLLLLLO LLLLLL 6 c g item
) g rst ) g filenamef sxml/sxml-match.ss ) ) CFG+ h ]45$ 45CC g item
g dots g rst g filenamef sxml/sxml-match.ss E
E E * E / E % C'f h + ] C # g npv
CFG h8 ] 4 5 $ 4?"
4 5 D g new-pvar-lst
3 g
new-cata-defs 3 g new-dotted-vars 3 g tmp + g filenamef sxml/sxml-match.ss
/ 3 1 3 C'f h + ] C # g npv
CFG h8 ] 45 $ 4?"
45 D g new-exp
3 g new-pvar-lst 3 g
new-cata-defs 3 g new-dotted-vars 3 g tmp + g filenamef sxml/sxml-match.ss
* 3 , 3 C . h V ]C N g i
g filenamef sxml/sxml-match.ss
0 C4 h V ]C N g i
g filenamef sxml/sxml-match.ss
0 C: h V ]C N g i
g filenamef sxml/sxml-match.ss
0 C')J h : ] C 2 g xa
g xb CFG h0 ] 45 $ @6 g a
+ g b + g tmp + g tmp + g filenamef sxml/sxml-match.ss
0 2 + C'Kgijmopqlrskuvxy{} h , 3
4
5
45 4 5
4
5
45 C g x
g fail-to g tail-body g item-body g
final-body g ipv g gpv g tpv g item-void g tail-void g item-null
g item-cons CFGY h ; ]{L $ 4LLL>
G 4L LL
L> G
4L4L54 L544L 5L5> G
45 LL 4
54 54 54
5 45 $ 4?"
45
DL 6 3 g item
g dots g rst 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 g final-pvar-lst g final-cata-defs
g final-dotted-vars g temp-item-pvar-lst g tmp g tmp g filenamef sxml/sxml-match.ss / / / $ - 8 * ; * > * E I R U % ` % k % p - | % , + + + +
. B C h Y ] 6Q g var
g filenamef sxml/sxml-match.ss U C') h ; ]L C 3 g x
g body CFGY
h + ]1L$ c4L4L L5LL> G L 45 $ 4 O ?"
45 DL 6 # g var
{ g
next-tests k g new-pvar-lst k g
new-cata-defs k g new-dotted-vars k g tmp 0 c g tmp ; ` g filenamef sxml/sxml-match.ss V [ # [ * [ # ! Z 0 \ k \ p W . { B
{ C hH ,
3 4 5
$ O
@4 5 " 4 5 $ LL O @4 5
$ L LO
@4 5 " 94 5 $
LLO @ 6$ 24
?$ #LL LLO
@"" $ (4 ?$ LL O @"" g lst
H g exp H g nextp H g fail-k H g ellipsis-allowed? H g pvar-lst H g depth H g cata-fun H g cata-defs H g dotted-vars H g tmp
H g tmp 4 H g tmp C g tmp
o g tmp g tmp g filenamef sxml/sxml-match.ss
Q H
g nameg compile-item-list C'' h8 p ] C h g x
6 g nx 6 g ct 6 g body 6 g fail-to 6 6 CFG h ]B4L 54 5 4L4LL5L LL> G LL 45 $ 4 ?"
45 D g cata
g cvar g new-exp g ctemp g
next-tests @ g new-pvar-lst @ g
new-cata-defs @ g new-dotted-vars @ g tmp X g tmp c
g filenamef sxml/sxml-match.ss / %
/ ; / %
/ 0 # 0 / 2 ! " 3 ( 5 e 8 e ? 2 ! C 1 X : : CY' h8 p ] C h g x
6 g nx 6 g ct 6 g body 6 g fail-to 6 6 CFG
h ]A4L 54 5 L $ " 4L > " G 4L 4LL5L L LL> G LL 45 $ 4?"
4 5 D g cvar
g new-exp g ctemp g
next-tests f g new-pvar-lst f g
new-cata-defs f g new-dotted-vars f g tmp ~ g tmp g filenamef sxml/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 CfY h _ ]L 6 W g i
g filenamef sxml/sxml-match.ss * B C h W ] 6O g i
g filenamef sxml/sxml-match.ss CY h _ ]L 6 W g i
g filenamef sxml/sxml-match.ss * B C+QRST h8 ] 4 5 45$ C45$ C45$ C6 g literal
8 g x 8 g filenamef sxml/sxml-match.ss H H I I I J # I $ J & K 0 I 1 K 8 L
8 C' h@ ` ] L C X g x
= g nx = g body = g fail-to = = CFG hx E ]94L 5 4LLLL> G LL 45 $ 4 O ?"
45 D = g literal
q g new-exp
q g
next-tests q g new-pvar-lst q g
new-cata-defs q g new-dotted-vars q g tmp 6 i g tmp A f g filenamef sxml/sxml-match.ss %
; %
! # 6 q
q CFG h k ] 6c g tag
g item g filenamef sxml/sxml-match.ss f C'U)* h K ] C C g x
g nx g body CFG h` L ]34LL > G L L 45 $ 4?"
45 D D g
more-pvar-lst
] g more-cata-defs ] g more-dotted-vars ] g
next-tests ] g new-pvar-lst ] g
new-cata-defs ] g new-dotted-vars ] g tmp ' U g tmp 2 R g filenamef sxml/sxml-match.ss
l 6 p F m 8 ' t B ] t : ] C'U<= h P ] C H g x
g body g fail-to CFG h d ]:4L 5 4L L LLO LLLLLL > G LL 45 $ 4?"
45 D \ g tag
g item g new-exp
g after-tests ; g after-pvar-lst ; g after-cata-defs ; g after-dotted-vars ; g tmp O } g tmp Z z g filenamef sxml/sxml-match.ss g %
g ; g %
g
g i ! > h O
C h Y ] 6Q g var
g filenamef sxml/sxml-match.ss C'QRSTU h8 ` ] L C X g x
6 g nx 6 g body 6 g fail-to 6 6 CFG hx S ]94L 5 4L4L L5LL> G LL 45 $ 4 O ?"
45 DK g var
x g new-exp
x g
next-tests ' x g new-pvar-lst ' x g
new-cata-defs ' x g new-dotted-vars ' x g tmp = p g tmp H m g filenamef sxml/sxml-match.ss %
; %
! 0 & ! * = ! x ! x C hP , 3 4 5 " 4 5
$ LO
@4 5 $ LLO
@4 5 " i4 5
$ LO
@ 4
?$ LO @ 4 ?$
O @ 6 $ *4 ?$ L O @"g"c $ &4 ?$ LO @"" g item
I g exp I g nextp I g fail-k I g pvar-lst I g depth I g cata-fun I g cata-defs I g dotted-vars I g tmp I g tmp
g tmp H g tmp v g tmp
g tmp g tmp g filenamef sxml/sxml-match.ss
I g nameg compile-item CYV h8 ] ( C4 L 5$ L L 6 " g lst
1 g filenamef sxml/sxml-match.ss
Y Z \ \ , \ \ ] 1 ( B + ` $ 1 ` 1 g nameg
check-pvar C h0 ]
O L Q 4> " G C g pvar
- g pvar-lst - g
check-pvar - g filenamef sxml/sxml-match.ss
X a , b - g nameg add-pat-var C') h : ] C 2 g cf
g ct
CFGUkl h M ] C E g ct
g nct g body C hx V ]
$ ) 45 $ @64 5 4L 5 45 $ @6 N g depth
u g cfun u g ctemp u g tmp 3 g tmp 3 g new-ctemp > u g tmp S u g tmp ^ u g filenamef sxml/sxml-match.ss
g h
h i 4 l ( ; l > = l ( > l # > l E o ( J o : P o ( S m u g nameg process-cata-exp C' h P ] LL 6 H g filenamef sxml/sxml-match.ss /
C h s ] 4L 5C k g fst
g rst
g filenamef sxml/sxml-match.ss 6 #
CFG hH ]4 5 $
LLO @4 5 $ L O @ 6 g items
D g tmp
D g tmp ( D g filenamef sxml/sxml-match.ss
D g nameg iter C h( ] ( CO L Q 6 g lst
& g iter & g filenamef sxml/sxml-match.ss
" * # $ & & g nameg cata-defs->pvar-lst C'{ h8 , 3 C g compile-clause
2 g cata 2 g cvar 2 g gexp 2 g action0 2 g action 2 g exp 2 g cata-fun 2 g fail-exp 2 2 C' h ] C
CY hh , 3 45 $ 4?" $ , C
L 6 g compile-clause
g g cvar g g gexp g g action0 g g action g g exp g g cata-fun g g fail-exp g g tmp ' g filenamef sxml/sxml-match.ss +
\ * g B g C h , 3 C g compile-clause
g cata g cvar g action0 g action g exp g cata-fun g fail-exp C' h ] C
CY hP ]45 $ 4?" $ CL 6 g compile-clause
P g cvar P g action0 P g action P g exp P g cata-fun P g fail-exp P g tmp # g filenamef sxml/sxml-match.ss '
E * P B P CY h , 3 L 6 g compile-clause
g i g gexp g action0 g action g exp g cata-fun g fail-exp g filenamef sxml/sxml-match.ss B & B CY h ]L 6 g compile-clause
g i g action0 g action g exp g cata-fun g fail-exp g filenamef sxml/sxml-match.ss F & B CFG+QRST h8 E ]45 45$ C45$ C45$ C6= g compile-clause
8 g literal 8 g action0 8 g action 8 g exp 8 g cata-fun 8 g fail-exp 8 g x 8 g filenamef sxml/sxml-match.ss H H I I I J # I $ J & K 0 I 1 K 8 L
8 C h ] C g compile-clause
g literal g action0 g action g exp g cata-fun g fail-exp C+QRST h@ W , 3 45 45$ C45$ C45$ C6 O g compile-clause
< g literal < g gexp < g action0 < g action < g exp < g cata-fun < g fail-exp < g x
< g filenamef sxml/sxml-match.ss H
H I I I J ' I ( J * K 4 I 5 K < L
< C h0 , 3 C g compile-clause
, g literal , g gexp , g action0 , g action , g exp , g cata-fun , g fail-exp , , C h ]6 g compile-clause
g pat g action0 g action g exp g cata-fun g fail-exp g filenamef sxml/sxml-match.ss O
CY h ]L 6 g compile-clause
g pat g action0 g action g exp g cata-fun g fail-exp g filenamef sxml/sxml-match.ss P & B C h , 3 6 g compile-clause
g pat g gexp g action0 g action g exp g cata-fun g fail-exp g filenamef sxml/sxml-match.ss J
CY h , 3 L 6 g compile-clause
g pat g gexp g action0 g action g exp g cata-fun g fail-exp g filenamef sxml/sxml-match.ss K & B C h , 3 6 g compile-clause
g fst g rst g action0 g action g exp g cata-fun g fail-exp g filenamef sxml/sxml-match.ss *
C h ]4L4L LL55 D g new-pvar-lst
g
new-cata-defs g new-dotted-vars g filenamef sxml/sxml-match.ss
. 0 / : 0 M / : / 2 C
' h ] C
C) h A ] L C 9 g fail-to
g body CFG
h , 3 4LLL O
45 $ 4?" > G
4 5
$ O
@ 6 g compile-clause
g fst g rst g action0 g action g exp g cata-fun g fail-exp g tmp * B g result J g pvar-lst J g cata-defs
J g dotted-vars J g tmp \ g tmp
g g filenamef sxml/sxml-match.ss , 8 0 C ; 0 D < 0 I , M +
\ = C h , 3 6 g compile-clause
g fst g rst g gexp g action0 g action g exp g cata-fun g fail-exp g filenamef sxml/sxml-match.ss
C,
')34 h A ]L C 9 g body
g fail-to CFG hX ]4L 4LLL55 45 $ 4LO ?"
45 D g new-pvar-lst
X g
new-cata-defs X g new-dotted-vars X g tmp P g tmp ( M g filenamef sxml/sxml-match.ss
0 > Q > 3 X 2 X C
' h ] C
C)@ h A ] L C 9 g fail-to
g body CFG
h , 3 4LLL O
45 $ 4 ?" > G
4
5 $ O @
6 g compile-clause
g fst g rst g gexp g action0 g action g exp g cata-fun g fail-exp g tmp , D g result L g pvar-lst
L g cata-defs L g dotted-vars L g tmp
^ g tmp i g filenamef sxml/sxml-match.ss " 0 E # 0 F $ 0 K O
^ % CA+ h , 3 45$ 45CC g compile-clause
g lst g rst g action0 g action g exp g cata-fun g fail-exp g filenamef sxml/sxml-match.ss
2 8 - CS h ]4L4L LL55 D g new-pvar-lst
g
new-cata-defs g new-dotted-vars g filenamef sxml/sxml-match.ss
. 8 K 8 0 C
' h ] C
C)_`a h( A ]L L C 9 g body
% g fail-to % % CFG
h , 3 4LLL O
45 $ 4?" >
G
4 5
$
O
@ 6 g compile-clause
g lst g rst g action0 g action g exp g cata-fun g fail-exp g tmp ( @ g result H g pvar-lst H g cata-defs
H g dotted-vars H g tmp Z g tmp
e g filenamef sxml/sxml-match.ss . A . B . G K
Z CA+ h " , 3 45$ 45CC g compile-clause
g lst g rst g gexp g action0 g action g exp g cata-fun g fail-exp g filenamef sxml/sxml-match.ss
2 8 - Ct
')|} h E ]L C = g exp-body
g fail-to CFG hX ]4L 4LLL55 45 $ 4LO ?"
45 D g new-pvar-lst
X g
new-cata-defs X g new-dotted-vars X g tmp P g tmp ( M g filenamef sxml/sxml-match.ss
. @ S @ 1 X 0 X C
' h ] C
C) h( A ] L L C 9 g fail-to
% g body % % CFG
h , 3 4LLL O
45 $ 4 ?" >
G
4
5 $
O @
6 g compile-clause
g lst g rst g gexp g action0 g action g exp g cata-fun g fail-exp g tmp * B g result J g pvar-lst
J g cata-defs J g dotted-vars J g tmp
\ g tmp g g filenamef sxml/sxml-match.ss . C . D . I M
\ C h ]6 g compile-clause
g var g action0 g action g exp g cata-fun g fail-exp g filenamef sxml/sxml-match.ss
C h ] C g compile-clause
g var g action0 g action g exp g cata-fun g fail-exp C h , 3 6 g compile-clause
g var g gexp g action0 g action g exp g cata-fun g fail-exp g filenamef sxml/sxml-match.ss
C h0 , 3 C g compile-clause
- g var - g gexp - g action0 - g action - g exp - g cata-fun - g fail-exp - - C 3 h@ ]O O O O O O O O O Q Q Q Q Q Q Q Q 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"n g stx
9 g process-cata-defs U 9 g process-output-action U 9 g compile-element-pat U 9 g compile-attr-list U 9 g compile-item-list U 9 g compile-item U 9 g add-pat-var U 9 g process-cata-exp U 9 g cata-defs->pvar-lst U 9 g tmp
9 g tmp g tmp g tmp
g tmp g tmp g tmp % g tmp 4 g tmp C g tmp R g tmp a [ g tmp } [ g tmp [ g tmp 7 g tmp g tmp g filenamef sxml/sxml-match.ss
>
? 9 C5R4"$' h h ]C ` g dummy
g exp g cata-fun g clause C h8 } ] C u g dummy
2 g exp 2 g cata-fun 2 g clause0 2 g clause 2 2 CFG h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef sxml/sxml-match.ss
_ 9 g
macro-typeg syntax-rulesg patternsg expg cata-fung clause g expg cata-fung clause0g clauseg ... C5R4"$' h0 g ] C _ g dummy
, g val , g clause0 , g clause , , CFG h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef sxml/sxml-match.ss
l " g
macro-typeg syntax-rulesg patternsg valg clause0g clauseg ... C5R4"$' h { ]C s g dummy
g syntag
g synform
g body0
g body
C !# h8 ] C g dummy
6 g syntag 6 g synform 6 g pat 6 g exp 6 g body0 6 g body 6 6 C*;<>A?@ABC
hP , 3 45 C g dummy
J g syntag J g synform J g pat0 J g exp0 J g pat J g exp J g body0 J g body J J CFG
hP ]4 5 $ @4 5 $ @4 5 $ @ 6 g x
P g tmp P g tmp " P g tmp 9 P g filenamef sxml/sxml-match.ss
s P g
macro-typeg syntax-rulesg patternsg syntagg synformg body0g bodyg ... g syntagg synformg patg exp g body0g bodyg ... g syntagg synformg pat0g exp0 g patg exp g ... g body0g bodyg ... C5R4"D$'H'f\>A] h0 1 ]4 L5L L4L 5LL C ) g temp-name
- - CFG h@ ]45 45 $ O @6 g sxml-match-let-help
: g syntag : g synform : g pat : g exp : g body0 : g body : g tmp : g tmp : g filenamef sxml/sxml-match.ss ( : CFG h( h ] 4 5 $ @ 6 ` g stx
" g tmp " g filenamef sxml/sxml-match.ss
" C5DR4"$'Fn>A h } ] L 45C u g sxml-match-let
g pat g exp g body0 g body CFG h( h ] 4 5 $ O @ 6 ` g stx
' g tmp ' g filenamef sxml/sxml-match.ss
' C5R4"$'y h \ ]C T g sxml-match-let*
g body0
g body
C(>A h0 ] L 45 C g sxml-match-let*
* g pat0 * g exp0 * g pat * g exp * g body0 * g body * * CFG h@ y ]4 5 $ @4 5 $ O @ 6 q g stx
> g tmp > g tmp " > g filenamef sxml/sxml-match.ss
> C5RC g m
, g filenamef sxml/match.scm
e 1
g filenamef sxml/sxml-match.ss $
(
/ 6
x
C6