GOOF----LE-8-2.0Y&]p4h.] gguile  gdefine-module*   glanguage gtree-il  gfilenameS flanguage/tree-il.scm gimportsS gsrfi gsrfi-1     gsrfi-11    gsystem gbase gpmatch   gsyntax    gexportsS g tree-il-src g gvoid? g make-void !gvoid-src "g #gconst? $g make-const %g const-src &g const-exp 'g (gprimitive-ref? )gmake-primitive-ref *gprimitive-ref-src +gprimitive-ref-name ,g  -g lexical-ref? .gmake-lexical-ref /glexical-ref-src 0glexical-ref-name 1glexical-ref-gensym 2g  3g lexical-set? 4gmake-lexical-set 5glexical-set-src 6glexical-set-name 7glexical-set-gensym 8glexical-set-exp 9g  :g module-ref? ;gmake-module-ref gmodule-ref-name ?gmodule-ref-public? @g  Ag module-set? Bgmake-module-set Cgmodule-set-src Dgmodule-set-mod Egmodule-set-name Fgmodule-set-public? Ggmodule-set-exp Hg Ig toplevel-ref? Jgmake-toplevel-ref Kgtoplevel-ref-src Lgtoplevel-ref-name Mg Ng toplevel-set? Ogmake-toplevel-set Pgtoplevel-set-src Qgtoplevel-set-name Rgtoplevel-set-exp Sg Tgtoplevel-define? Ugmake-toplevel-define Vgtoplevel-define-src Wgtoplevel-define-name Xgtoplevel-define-exp Yg  Zg conditional? [gmake-conditional \gconditional-src ]gconditional-test ^gconditional-consequent _gconditional-alternate `g  ag application? bgmake-application cgapplication-src dgapplication-proc egapplication-args fg  gg sequence? hg make-sequence ig sequence-src jg sequence-exps kg lglambda? mg make-lambda ng lambda-src og lambda-meta pg lambda-body qg  rg lambda-case? sgmake-lambda-case tglambda-case-src uglambda-case-req vglambda-case-opt wglambda-case-rest xglambda-case-kw yglambda-case-inits zglambda-case-gensyms {glambda-case-body |glambda-case-alternate }g ~glet? gmake-let glet-src g let-names g let-gensyms glet-vals glet-body g gletrec? g make-letrec g letrec-src gletrec-in-order? g letrec-names gletrec-gensyms g letrec-vals g letrec-body g gfix? gmake-fix gfix-src g fix-names g fix-gensyms gfix-vals gfix-body g  g let-values? gmake-let-values glet-values-src glet-values-exp glet-values-body g  gdynwind? g make-dynwind g dynwind-src gdynwind-winder g dynwind-body gdynwind-unwinder g gdynlet? g make-dynlet g dynlet-src g dynlet-fluids g dynlet-vals g dynlet-body g gdynref? g make-dynref g dynref-src g dynref-fluid g gdynset? g make-dynset g dynset-src g dynset-fluid g dynset-exp g gprompt? g make-prompt g prompt-src g prompt-tag g prompt-body gprompt-handler g gabort? g make-abort g abort-src g abort-tag g abort-args g abort-tail g parse-tree-il gunparse-tree-il gtree-il->scheme g tree-il-fold gmake-tree-il-folder g post-order! g pre-order! g tree-il=? g tree-il-hash  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ gset-current-module   gformat f # g print-tree-il gmake-syntax-transformer   gborrow-core-vtables gmacro g $sc-dispatch   g_  g vector-length g%expanded-vtables gvtable-offset-user gmap g datum->syntax g symbol-append g< g> gmake- g? g- gany  g syntax-object gdefine gtop  gribcage  gt-9d61459b896-a19 gt-9d61459b896-a17 gt-9d61459b896-a18  gm-9d61459b896-a1a   fl-9d61459b896-a1e fl-9d61459b896-a1f fl-9d61459b896-a20   gacc   fl-9d61459b896-a15   glp gn gfields gout   fl-9d61459b896-9e1  fl-9d61459b896-9e2  fl-9d61459b896-9e3  fl-9d61459b896-9e4         gpred  fl-9d61459b896-9df   gctor  fl-9d61459b896-9dd   gtype  fl-9d61459b896-9db   gsfields  fl-9d61459b896-9d7   !  " #fl-9d61459b896-9d5 $# %"$ &gstem '& (fl-9d61459b896-9d3 )( *') +gvtable ,+ -fl-9d61459b896-9d1 .- /,. 0 1 2fl-9d61459b896-9ca 3fl-9d61459b896-9cb 4fl-9d61459b896-9cc 5234 6015 7gx 87 9fl-9d61459b896-9c7 :9 ;8: < !%*/6; =ghygiene >= ?<> @gmake-procedure-with-setter A@<> Bglambda CB<> D7<> ED Fg struct-ref GF<> Hgv IH<> JDI Kg struct-set! LK<> MI Ngsyntax-violation ON PN Qf-source expression failed to match any pattern Rgeach-any SRR Tgt-9d61459b896-9ea Ugt-9d61459b896-9e9 Vgt-9d61459b896-9ec Wgt-9d61459b896-9eb XTUVW Ygm-9d61459b896-9ed ZY [ZZZZ \fl-9d61459b896-9f1 ]fl-9d61459b896-9f2 ^fl-9d61459b896-9f3 _fl-9d61459b896-9f4 `\]^_ aX[` ba!%*/6; cb> dg make-struct edb> f b> g hgt-9d61459b896-9fb igt-9d61459b896-9fc jhi kgm-9d61459b896-9fd lk mll nfl-9d61459b896-a01 ofl-9d61459b896-a02 pno qjmp rq!%*/6; sr> t7r> ut vgand wvr> xgstruct? yxr> zyt {geq? |{r> }g struct-vtable ~}r> ~t gt-9d61459b896-a05  gm-9d61459b896-a06   fl-9d61459b896-a09   !%*/6; K> gvtable-index-printer > >  gt-9d61459b896-a0c gt-9d61459b896-a0b  gm-9d61459b896-a0d   fl-9d61459b896-a11 fl-9d61459b896-a12   !%*/6; > g vector-ref > > greverse gbegin gt-9d61459b896-a24  gm-9d61459b896-a25   fl-9d61459b896-a29   6; > gmake-record-type f gsrc gnames ggensyms gvals gbody  grecord-predicate grecord-accessor grecord-modifier f  gexp  f  gwinder gunwinder  f gfluid  f  f gtag ghandler  f gargs gtail  gsource-properties glocation gabort gerror funrecognized tree-il gprompt gdynset gdynref gdynlet gdynwind g let-values gfix gletrec* gletrec glet gconst g lambda-case gand=> gset! gtoplevel g@@ gand-map gsymbol? g@ glexical g primitive gif gapply gvoid    funhandled record gscheme gdecompile-tree-il    gfold R gdummy gseed  gm-9d61459b896-1211   fl-9d61459b896-1216 fl-9d61459b896-1217    fl-9d61459b896-1213  8  B> gtree > gdown > gup > > g fold-values >  gproc   >  gexps   >  > gnull? >   gvalues > > gcar >   gcdr >   > gfoldts >     glist !g let*-values "!> #g record-case $#> %2> &> '%& (@> )(& *M> +*& ,S> -,& .Y> /gtest 0/> 1g consequent 21> 3g alternate 43> 5.024 6`> 7> 86 7 9f> :9  ;k> <> =;< >q> ?ginits @?> A>@<4 B}> C> DBC< E> FEC< G> HGC< I> JI&< K> L> M> NK<LM O> Pgfluids QP> ROQC< S> T> UST V> WVT& X> Y> Z> [XY<Z \> ]> ^\Y7] _gelse `_> agsetter ba ca dg string-length egsymbol->string fg struct-layout ggstruct-nfields hg hash-bits igmake-variable-transformer jg identifier? kglogcount lgmost-positive-fixnum mghashq ngmax oghashC5h]4   54>"Gh]456gexp  gport  gfilenameflanguage/tree-il.scm B  C  C   C    gnameg print-tree-ilCR4h_]L6Wgf  gfilenameflanguage/tree-il.scm P " P .  C?ACEGDJLM h8w] Cogt-9d61459b896-a19  1gt-9d61459b896-a17  1gt-9d61459b896-a18   1  1 CPQScefh]Cgt-9d61459b896-9ea  gt-9d61459b896-9e9  gt-9d61459b896-9ec   gt-9d61459b896-9eb      Cgsuwz|h X]CPgt-9d61459b896-9fb  gt-9d61459b896-9fc     ChX]CPgt-9d61459b896-a0c  gt-9d61459b896-a0b     CRh9]C1gt-9d61459b896-a24     Ch]x"45$  4LO54L4 554L4 554L4 55"n ( "   4L4  55     4  5$ 4?" 4 5      "  4  5  $ 4 ?" 4 5   4  5  $ 4 ?" 4 5   4  5  $ 4 ?" 4 5     ""@454 5$@6 " gn  gout  gvtable   gstem  % gfields  / gsfields  ? gtype  S gctor  e gpred  w gn } gfields } gout } gacc gtmp gtmp  gtmp 'gtmp  $gtmp . \gtmp 9 Ygtmp k gtmp v gtmp   gtmp   gfilenameflanguage/tree-il.scm  I  J   J  J  K   L  L  $ M 1 % M  % L  . N 3 / N / L  2 O ! ? L  B R  G R / K R > O R F Q R / S R  S L  V S  [ S / _ S > c S / e S  e L  h T  m T / s T C u T / w T  w L  } U  a  c  d  e ( f + f ? f B f + e ( e  g & g  c  U  W # . Y # k ^ #  V !  U   K  l   l   I   I   I =   CPQh(g] 45$ O@6_gx  'gtmp 'gfilenameflanguage/tree-il.scm F   ' C5Ri Riiihh]$CC`gx  gfilenameflanguage/tree-il.scm n    gnamegvoid?CRhn]Cfgsrc  gfilenameflanguage/tree-il.scm n   gnameg make-voidC R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5!Ri "R"iii"hi]$CCagx  gfilenameflanguage/tree-il.scm n    gnamegconst?C#R"h]Cxgsrc  gexp  gfilenameflanguage/tree-il.scm n   gnameg make-constC$R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5%R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5&Ri 'R'iii'hq]$CCigx  gfilenameflanguage/tree-il.scm n    gnamegprimitive-ref?C(R'h]Cgsrc  gname  gfilenameflanguage/tree-il.scm n   gnamegmake-primitive-refC)R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5*R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5+Ri ,R,iii,ho]$CCggx  gfilenameflanguage/tree-il.scm n    gnameg lexical-ref?C-R,h]Cgsrc  gname  ggensym   gfilenameflanguage/tree-il.scm n    gnamegmake-lexical-refC.R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5/R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C50R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C51Ri 2R2iii2ho]$CCggx  gfilenameflanguage/tree-il.scm n    gnameg lexical-set?C3R2h]Cgsrc  gname  ggensym   gexp   gfilenameflanguage/tree-il.scm n    gnamegmake-lexical-setC4R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C55R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C56R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C57R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C58Ri 9R9iii9hn]$CCfgx  gfilenameflanguage/tree-il.scm n    gnameg module-ref?C:R9h]Cgsrc  gmod  gname   gpublic?   gfilenameflanguage/tree-il.scm n    gnamegmake-module-refC;R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5?Ri @R@iii@hn]$CCfgx  gfilenameflanguage/tree-il.scm n    gnameg module-set?CAR@h]Cgsrc  gmod  gname   gpublic?   gexp   gfilenameflanguage/tree-il.scm n    gnamegmake-module-setCBR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5CR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5DR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5ER4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5FR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5GRi HRHiiiHhp]$CChgx  gfilenameflanguage/tree-il.scm n    gnameg toplevel-ref?CIRHh]Cgsrc  gname  gfilenameflanguage/tree-il.scm n   gnamegmake-toplevel-refCJR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5KR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5LRi MRMiiiMhp]$CChgx  gfilenameflanguage/tree-il.scm n    gnameg toplevel-set?CNRMh]Cgsrc  gname  gexp   gfilenameflanguage/tree-il.scm n    gnamegmake-toplevel-setCOR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5PR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5QR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5RRi SRSiiiShs]$CCkgx  gfilenameflanguage/tree-il.scm n    gnamegtoplevel-define?CTRSh]Cgsrc  gname  gexp   gfilenameflanguage/tree-il.scm n    gnamegmake-toplevel-defineCUR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5VR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5WR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5XRi YRYiiiYho]$CCggx  gfilenameflanguage/tree-il.scm n    gnameg conditional?CZRYh]Cgsrc  gtest  g consequent   g alternate   gfilenameflanguage/tree-il.scm n    gnamegmake-conditionalC[R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5\R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5]R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5^R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5_Ri `R`iii`ho]$CCggx  gfilenameflanguage/tree-il.scm n    gnameg application?CaR`h]Cgsrc  gproc  gargs   gfilenameflanguage/tree-il.scm n    gnamegmake-applicationCbR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5cR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5dR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5eRi fRfiiifhl]$CCdgx  gfilenameflanguage/tree-il.scm n    gnameg sequence?CgRfh]C|gsrc  gexps  gfilenameflanguage/tree-il.scm n   gnameg make-sequenceChR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5iR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5jRi kRkiiikhj]$CCbgx  gfilenameflanguage/tree-il.scm n    gnameglambda?ClRkh]Cgsrc  gmeta  gbody   gfilenameflanguage/tree-il.scm n    gnameg make-lambdaCmR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5nR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5oR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5pRi qRqiiiqho]$CCggx  gfilenameflanguage/tree-il.scm n    gnameg lambda-case?CrRqh , 3  Cgsrc  greq  gopt   grest   gkw   ginits   ggensyms   gbody   g alternate    gfilenameflanguage/tree-il.scm n    gnamegmake-lambda-caseCsR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5tR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5uR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5vR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5wR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5xR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5yR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5zR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5{R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5|Ri }R}iii}hg]$CC_gx  gfilenameflanguage/tree-il.scm n    gnameglet?C~R}h]Cgsrc  gnames  ggensyms   gvals   gbody   gfilenameflanguage/tree-il.scm n    gnamegmake-letCR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5Ri Riiihj]$CCbgx  gfilenameflanguage/tree-il.scm n    gnamegletrec?CRh]Cgsrc  g in-order?  gnames   ggensyms   gvals   gbody   gfilenameflanguage/tree-il.scm n    gnameg make-letrecCR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5Ri Riiihj]$CCbgx  gfilenameflanguage/tree-il.scm n    gnamegdynlet?CRh]Cgsrc  gfluids  gvals   gbody   gfilenameflanguage/tree-il.scm n    gnameg make-dynletCR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5R4ii5Rh -13Cgsrc gnames ggensyms  gvals  gbody  gdefrec-9d61459b896-c7e  gfilenameflanguage/tree-il.scm    gnamegmake-fixCR4ii5R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4ii5Rh-13Cgsrc gexp gbody  gdefrec-9d61459b896-c80  gfilenameflanguage/tree-il.scm    gnamegmake-let-valuesCR4ii5R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4ii5Rh-13Cgsrc gwinder gbody  gunwinder  gdefrec-9d61459b896-c82  gfilenameflanguage/tree-il.scm    gnameg make-dynwindCR4ii5R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4ii5Rh-13Cgsrc gfluid gdefrec-9d61459b896-c84  gfilenameflanguage/tree-il.scm    gnameg make-dynrefCR4ii5R4@i4ii54ii55R4@i4ii54ii55R4ii5Rh-13Cgsrc gfluid gexp  gdefrec-9d61459b896-c86  gfilenameflanguage/tree-il.scm    gnameg make-dynsetCR4ii5R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4ii5Rh-13Cgsrc gtag gbody  ghandler  gdefrec-9d61459b896-c88  gfilenameflanguage/tree-il.scm    gnameg make-promptCR4ii5R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4ii5Rh-13Cgsrc gtag gargs  gtail  gdefrec-9d61459b896-c8a  gfilenameflanguage/tree-il.scm    gnameg make-abortCR4ii5R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4@ih)] C!gx     Ch8] C0gx  gv    C5Rh ] $45$CCCgx  gprops  gfilenameflanguage/tree-il.scm            gnameglocationCRhu]6mgx  gfilenameflanguage/tree-il.scm      gnamegretransCh$sBmUOJB;4.)[b <h0]45"""""^""0" [" " " " " L" " &"""_"""B"""i""s"""("$&v$g$N$5   (45454 56666666$z &d$Y$D$/   ( 45454 56""""""$^ &H$=$(( 45456""{"w"s"o$B &,$!( 456"*"&"""$~&h$]$H$3   (45454 56""""""$z&d$Y$D$/   (45454 56""""" "$^&H$=$((45456"""""$&x$m$X$C   $.     (4 54 56"""" """$&y$n$Y$D   $/     (4 54 56"x"t"p"l"h"d"`$&y$n$Y$D   $/     (4 54 56"""""""$&x$m$X$C   $.     (4 54 56"="9"5"1"-")"%$%&456""$=&'$(6""""$ &$$$   $     $   $$s$^(J$?(+(!!   45456 """"""""""""""$/ &$$$   $     $   $$${(g$\(H$=()!   45454"56 "~"z"v"r"n"j"f"b"^"Z"V"R"N"J"F$Y#&C$8$#($456"""""$d%&N$C$.($&456""{"w"s"o"k$'&$$n(&X$M   (9$.   ( $) 4 56""""""""""$H(&2$'($*6"q"m"i"e"a$'&$$+&$v   $a     (M$B (.4,- 5$ $.  4 56""""""""""""$q+&[$P$;('4,-5$$ /6""""" " "$'&$$0&$v   $a     (M$B (.4,- 5$ $.  4 56"U"Q"M"I"E"A"="9"5"1"-")$q0&[$P$;('4,-5$$ /6"""""""$'&$$1&z$o   $Z     (F$; (' $ $2  4 56""""""""""""$'&$$p1&Z$O   (;$0   ( $2  4 56"C"?";"7"3"/"+"'"#"$j1&T$I$4( $$ 36"""""""$J1&4$)($ 36"]"Y"U"Q"M$H4&2$'($56"""""$z6&d$Y$D$/   (745454 56""}"y"u"q"m$A8&+$ 945456"%"!"$&:&(;6"""gexp  +gretrans  +gloc  +gvx  gvy  gvx  gvy  gvx  gvy  gvx gvy gvx  3 gvy  3 gvx  L gvy  L gvx  ] gvy  ] gvx n gvy n gvx   gvy   gvx   gvy   gvx   gvy   gvx  ! ]gvy  ! ]gvx  : Ugvy  : Ugvx  n gvy  n gvx   gvy   gvx   gvy   gvx  gvy  gvx   kgvy   kgvx   cgvy   cgvx  ! _gvy  ! _gvx 2 [gvy 2 [gvx  | gvy  | gvx   gvy   gvx   gvy   gvx   mgvy   mgvx   egvy   egvx   agvy   agvx  ]gvy  ]gvx 1 Ygvy 1 Ygvx  ~ gvy  ~ gvx   gvy   gvx   gvy   gvx  gvy  gvx  gvy  gvx   gvy   gvx  1 gvy  1 gvx  B gvy  B gvx S gvy S gvx d gvy d gvx   :gvy   :gvx   2gvy   2gvx   .gvy   .gvx  *gvy  *gvx  &gvy  &gvx  K jgvy  K jgvx  { gvy  { gvx   gvy   gvx   gvy   gvx   gvy   gvx   gvy   gvx  gvy  gvx  gvy  gvx  gvy   gvx  1 gvy  1 gvx  B gvy  B gvx  S gvy  S gvx  j gvy  j gvx   gvy   gvx   gvy   gvx   gvy   gvx  gvy  gvx , gvy , gvx = gvy  = gvx  N gvy  N gvx  _ gvy  _ gvx  p gvy  p gvx   gvy   gvx   gvy   gvx   mgvy   mgvx  3 egvy  3 egvx  D agvy  D agvx  ~ gvy  ~ gvx  gvy  gvx  gvy  gvx  gvy  gvx   gvy   gvx   gvy   gvx 0 wgvy 0 wgvx G ogvy G ogvx  gvy  gvx  gvy  gvx  gvy  gvx   gvy   gvx   gvy   gvx 2 gvy 2 gvx C gvy C gvx Z gvy  Z gvx  2gvy  2gvx  *gvy  *gvx  &gvy  &gvx  C gvy  C gvx  \ gvy  \ gvx  m gvy  m gvx gvy gvx gvy gvx gvy  gvx   gvy   gvx  4 ~gvy  4 ~gvx  E zgvy  E zgvx  Wgvy  Wgvx  Ogvy  Ogvx  Kgvy  Kgvx Cgvy Cgvx ?gvy ?gvx  7gvy   7gvx  h gvy  h gvx   gvy   gvx   gvy   gvx  gvy  gvx  gvy  gvx   }gvy   }gvx  2 ugvy  2 ugvx  C qgvy  C qgvx   gvy   gvx   gvy   gvx   %gvy   %gvx   gvy   gvx  6 gvy  6 gvx  O gvy  O gvx  ` gvy  ` gvx q gvy q gvx   gvy   gvx   gvy   gvx   'gvy   'gfilenameflanguage/tree-il.scm        $                " &  &  }            I  Q  U     ,       A  W  [        D " M  U  Y   (       x (        "   "  &  \  f  j                        U  ]  a  !     T * X  _  g  k      e ) q  t ? x        3       (  >     P  \  _ 2 c  n  r   .    =   #  +  /   )         P " T  W 1 [  e  i                           +       #   + gnameg parse-tree-ilCR`deY]^_'+,0126789=>?@DEFGHLMQRSWXkopBquvwxyz{|"&fj}yhP ]I&C&'45454545C &64 54 54 5 454545C&45C&4545C&145454545C&1454545$"C &F4!54"54#54$5$"45C%&4&5'C(&&4)54*5'45C+&!4,54-5.45C/&0405415$245C23C4&4554654754854954:54;54<5 =4545 $4 5"C>&4?5@CA&4B5C45CD&>4E54F54G54H5I4545CJ&S4K54L54M54N54O5$P"Q4545CR&>4S54T54U54V5W4545CX&&4Y54Z5[4545C\&64]54^54_5`454545Ca&:4b54c54d5e454545Cf&4g5h45Ci&&4j54k5l4545Cm&64n54o54p5q454545Cr&84s54t54u5v454545Cwx6| gtree-il  Lgrtd  Lgproc  ( Agargs  ( Agtest  ^ g consequent  ^ g alternate  ^ gname  gname  ggensym  gname  ggensym  gexp  gmod   .gname   .gpublic?   .gmod  R |gname  R |gpublic?  R |gexp  R |gname   gname   gexp   gname   gexp   gmeta   $gbody   $greq  d gopt  d grest  d gkw  d ginits  d ggensyms  d gbody  d g alternate d gexp   gexps   gnames   +ggensyms   +gvals   +gbody   +g in-order?  V gnames  V ggensyms  V gvals  V gbody  V gnames   ggensyms   gvals   gbody   gexp   gbody   gwinder   8gbody   8gunwinder   8gfluids  U zgvals  U zgbody  U zgfluid   gfluid   gexp   gtag   gbody   ghandler   gtag  ! Dgargs  ! Dgtail  ! DCgfilenameflanguage/tree-il.scm        .   /   6  ' ?   I  f   g  n  # u  A ~             %          &   -   6  \   b   d   j   q   r  / {                                 !   "  "   "  # ,  v &   & *  &   '   &   (   ( *  ( $  ( G  &     +     .   .   .     1   1  ! 1 8 * 1  3  f 4  h 4  n 4  s 5  | 5 $  4     8   8   8 8  8     ;   ;   ; *  ;     >   >  ' > * . ?  7 >  @  ] B  ^ B  g B - p C  y B     F   F   F     I   I   I (  I     L   L   L &  L >  L    ) O  * O  1 O % : P  C O  H }  L gnamegunparse-tree-ilCRh0-.,3##45Cge *genv *gopts  *gfilenameflanguage/tree-il.scm R  R 6  S ! S ) S * S  * gnamegtree-il->schemeCR28@GMRSXY]^_`defjkpqy{|}:h`' ]"("$ L6&45L4L4L556&45L4L4L556&45L4L4L556&4 5L4L4L556 &?4 54 54 5L4L4L4L4L55556&+4545L4L4L556&45L4L4L556&/454L5L$ 4L5"6&`454545L$"4L4L4L4L5555"4L4L4L5556&/4545L4L4L4L5556&/4545L4L4L4L5556&/4 54!5L4L4L4L5556"&/4#54$5L4L4L4L5556%&?4&54'54(5L4L4L4L4L55556)&?4*54+54,5L4L4L4L4L55556-&4.5L4L4L556/&/405415L4L4L4L55562&?435445455L4L4L4L4L555566&?475485495L4L4L4L4L55556L6 gtree  ]gresult  ]grtd  ! ]gexp  2 Jgexp  Y qgexp  gexp  gtest  g consequent  g alternate  gproc   9gargs   9gexps  H `gbody  o gresult  z ginits   gbody   g alternate   gvals   6gbody   6gvals  L mgbody  L mgvals   gbody   gexp   gbody   gbody   "gwinder   "gunwinder   "gfluids  ? igvals  ? igbody  ? igfluid  x gfluid   gexp   gtag   gbody   ghandler   gtag  + Ugargs  + Ugtail  + U)gfilenameflanguage/tree-il.scm `   b  b  b   b   c  ! d  9 f  > f  H f  J f R d  ` h  e h  o h  q h y d  j  j  j  j d  l  l  l  l d  n  o  p p +  p  o   n   n  d  % r  , r  - r + 7 r  9 r A d  O t  T t  ^ t  ` t h d  r v  z v  x   y   w  d   |   }   ~   ~ )  ~ 5  ~ )  ~   }       #   /   #     |  d     #   (  2   4   6  > d  U   Z   _  i   k   m  u d                   d          )          d            +         "  * d  J   O   T  Y  - c  e   g   i  q d             d          *          d          $   *   $          d  6   ;   @  * E  4 O  * Q   S   U  ]    ] gnamegloopCh |] OQ6tgleaf  gdown  gup   gseed   gtree   gloop  gfilenameflanguage/tree-il.scm X `   gnameg tree-il-foldg documentationfTraverse TREE, calling LEAF on each leaf encountered, DOWN upon descent into a sub-tree, and UP when leaving a sub-tree. Each of these procedures is invoked as `(PROC TREE SEED)', where TREE is the sub-tree or leaf considered and SEED is the current result, intially seeded with SEED. This is an implementation of `foldts' as described by Andy Wingo in ``Applications of fold to XML transformation''.CR4    "$'&)+-502487:=<A@DCFHJNLMRQUTW[YZ^]`9hB]     45  !" ## $ %  ##&'#('#)'#*#+#,-./'#012134#564 78 C:gdummy  gseed     CPQh(] 45$@6gx  "gtmp "gfilenameflanguage/tree-il.scm    " g macro-typeg syntax-rulesgpatternsgseedg...C5R`decY]^_2867@GDEFMRQSXWkpqy{|fj}Eh]!&Z45454454L5>"G4454L5>"G"Y&45454 54454L5>"G4454L5>"G44 54L5>"G" &R4 54 >"G4 >"G44 54L5>"G"u&d454>"G4>"G4>"G4454L5>"G" &@454>"G4454L5>"G"&@454>"G4454L5>"G"y&845$"4454L5>"G""9&y454545H4LJ5K4454L5>"G$"4454L5>"G""&04 544 54L5>"G"!&l4"54#54$>"G44"54L5>"G44#54L5>"G" %&l4&54'54(>"G44&54L5>"G44'54L5>"G")&l4*54+54,>"G44*54L5>"G44+54L5>"G"$-&X4.54/544.54L5>"G44/54L5>"G"0&41542543544154L5>"G44254L5>"G44354L5>"G":4&45546547544554L5>"G44654L5>"G44754L5>"G"8&.49544954L5>"G"v:&X4;54<544;54L5>"G44<54L5>"G"=&4>54?54@544>54L5>"G44?54L5>"G44@54L5>"G"A&4B54C54D544B54L5>"G44C54L5>"G44D54L5>"G"4L5$CCgx  grtd  gproc   egargs   egtest  g consequent  g alternate  gexp   Igexp  \ gexp   gexp   Egbody  X ginits   gbody   g alternate   gexps   >gvals  X gbody  X gvals   &gbody   &gvals  @ gbody  @ gexp   gbody   gbody   gwinder   gunwinder   gfluids   gvals   gbody   gfluid  % Hgfluid  b gexp  b gtag   2gbody   2ghandler   2gtag  S gargs  S gtail  S gt  (gfilenameflanguage/tree-il.scm      "   ,  " 7   @   J  " W   q      "      (      '     )   3  ! >   U                   "       %   /  % :   Q   `   a  k  ! v                "           +         &   3   J   o   y                                    2   W   a   n   w             "   "  "   #   # !  #     " &  , &  7 &  @ '  J ' U '  ^ (  h ( " s (      +   +   +   ,   ,   ,   -   -   -     ( 0  2 0  = 0  T   g 3  q 3  | 3   4   4   4      7   7   7   8   8   8   9   9 ! 9  >   Z <  d <  o <  x =   =   =   >   >   >   B   B    gnameglpCh] OQ6gf  gx  glp  gfilenameflanguage/tree-il.scm      gnameg post-order!CR`decY]^_28@GMRSXkpqy{|fj};h0])4L5$"&Z45454454L5>"G4454L5>"G"&45454 54454L5>"G4454L5>"G44 54L5>"G" &.4 544 54L5>"G" &.4 544 54L5>"G"&.454454L5>"G"y&.454454L5>"G"C&845$"4454L5>"G""&y454545H4LJ5K4454L5>"G$"4454L5>"G""&0454454L5>"G"J&Z45454454L5>"G4454L5>"G"&Z45454454L5>"G4454L5>"G" &Z4!54"544!54L5>"G44"54L5>"G"$#&X4$54%544$54L5>"G44%54L5>"G"&&4'54(54)544'54L5>"G44(54L5>"G44)54L5>"G":*&4+54,54-544+54L5>"G44,54L5>"G44-54L5>"G".&.4/544/54L5>"G"v0&X41542544154L5>"G44254L5>"G"3&44545546544454L5>"G44554L5>"G44654L5>"G"7&4854954:544854L5>"G44954L5>"G44:54L5>"G"Cgx  0gt gx  0grtd  ! -gproc  9 gargs  9 gtest   g consequent   g alternate   gexp   Agexp  T wgexp   gexp   gbody   #ginits  D gbody  D g alternate  D gexps   gvals   >gbody   >gvals  X gbody  X gvals   gbody   gexp   bgbody   bgbody   gwinder   gunwinder   gfluids   zgvals   zgbody   zgfluid   gfluid   gexp   gtag  1 gbody  1 ghandler  1 gtag   &gargs   &gtail   &)gfilenameflanguage/tree-il.scm E   F  F  F  ! G  > I H I $ S I \ J f J $ s J G  M M $ M N N * N O O ) O  G  ! R + R # 6 R M G  W U a U " l U  G   X  X $  X  G   [  [ '  [  G   ^  _  _ #  _ / G  K b  U b V c ` c $ k c y d z d   d 7  d   G   g  g !  g  G   j  j   j  k % k  0 k J G  ] n g n  t n } o  o   o  G   r  r   r  s  s   s  G  ! v + v " 6 v ? w I w # T w n G   z  z  z  {  { "  {  |  | $  |  G      ! +  4  >   K  T  ^   i   G         G                G  8  B   M  V  `   k  t  ~  "    G                         0 gnameglpCh] OQ6gf  gx  glp  gfilenameflanguage/tree-il.scm D E    gnameg pre-order!CRdefh]444555 Cgx  gfilenameflanguage/tree-il.scm         $            gnamegstruct-nfieldsCgRgh]$T$K&?"- $C45$ "C45"CC$$$45$ 6CCCga  gb  gn   Kgt  " Kgfilenameflanguage/tree-il.scm                     !   "  .   5   :  0 <   @   C   I   K  L   S   Y  `   d   g  k   l  q   t   v  z          $  gnameg tree-il=?CR4h4iijh[]6Sgvar  gfilenameflanguage/tree-il.scm      Cklh[]6Sgvar  gfilenameflanguage/tree-il.scm      CPQh(h] 4?$@6`gx  #gtmp  #gfilenameflanguage/tree-il.scm    # C55hRgmln oh0]:"t4545 $C";$/4L5  5"C4  5""45 $C4L5  54L5  54L5  5C$"$"V6gexp  0gdepth  0gs   zglen   zgh   zgi  * egh  * egh1  C Zgl  ~  gh   gh1  gl   gh   gh1  gl   gh   gh1   gfilenameflanguage/tree-il.scm                        #  *   /   3   6   7  $ >  . A  ? C  $ C   K   L   Q   R   T  2 U   V   W   b   e   f   m   p   z   ~                    '  /              2              '  /              2              '  /                 2                         (   0  [  0 gnameghash-expCh] OQ 6gexp  ghash-exp gfilenameflanguage/tree-il.scm       gnameg tree-il-hashCRCgm  ,gfilenameflanguage/tree-il.scm   B n e r    R  X ֢   D   -  6      C6