GOOF----LE-8-2.0m] &4hɴ] gguile  gdefine-module*   glanguage gtree-il ganalyze  gfilenameS flanguage/tree-il/analyze.scm gimportsS gsrfi gsrfi-1    gsrfi-9    gsrfi-11    gsrfi-26    gice-9 gvlist   gmatch   !gsystem "gbase #gsyntax $!"# %$ &gmessage '!"& (' )gvm *gprogram +!)* ,+ - .- /gpmatch 0!"/ 10 2 %(,.1  3gexportsS 4ganalyze-lexicals 5g analyze-tree 6gunused-variable-analysis 7gunused-toplevel-analysis 8gunbound-variable-analysis 9garity-analysis :gformat-analysis ;456789: < ?gmake-hash-table @g hashq-set! Ag make-hashq Bg  Cgapplication-proc Dgapplication-args Eg lset-union Fgeq? Ggmap Hg  Igconditional-test Jgconditional-consequent Kgconditional-alternate Lg  Mglexical-ref-gensym Ng hashq-ref Ogmemq Pg lambda-case? Qglength Rglambda-case-req Sglambda-case-opt Tglambda-case-kw Uglambda-case-rest Vglambda-case-alternate Wg lambda-body Xg  Yglexical-set-gensym Zglexical-set-exp [g lset-adjoin \g  ]gmodule-set-exp ^g _gtoplevel-set-exp `g agtoplevel-define-exp bg  cg sequence-exps dg egreverse! fg  gglambda-case-inits hglambda-case-gensyms iglambda-case-body jgappend kgreverse lglset-difference mg ng let-gensyms oglet-vals pglet-body qg rgletrec-gensyms sg letrec-vals tg letrec-body ugfor-each vg wg fix-gensyms xgfix-vals ygfix-body zgerror {funhandled record |gcons }gassq-ref ~g hashq-remove! g  glet-values-exp glet-values-body g  g dynwind-body gdynwind-winder gdynwind-unwinder g g dynlet-fluids g dynlet-vals g dynlet-body g g dynref-fluid g g dynset-fluid g dynset-exp g g prompt-tag g prompt-body gprompt-handler g g abort-tag g abort-args g abort-tail gmax gfilter gcdr ggensym f:LCASE g conditional? g lexical-ref? f'fixpoint procedures may not be assigned g g%make-tree-analysis-procedure gmake-syntax-transformer   gmake-tree-analysis gmacro g $sc-dispatch   g_ gany  g syntax-object glambda gm-a11d84f71ea-1a65 gtop  gribcage gt-a11d84f71ea-1a60 gt-a11d84f71ea-1a61 gt-a11d84f71ea-1a62 gt-a11d84f71ea-1a63 gt-a11d84f71ea-1a64   fl-a11d84f71ea-1a6a fl-a11d84f71ea-1a6b fl-a11d84f71ea-1a6c fl-a11d84f71ea-1a6d fl-a11d84f71ea-1a6e    gx   fl-a11d84f71ea-1a67   gshift g proc-name gargs    fl-1e8ba8b5a-60 fl-1e8ba8b5a-61   gkey gvalue gname gformals gbody   fl-1e8ba8b5a-53 fl-1e8ba8b5a-54 fl-1e8ba8b5a-55 fl-1e8ba8b5a-56 fl-1e8ba8b5a-57   gmake-procedure-name   fl-1e8ba8b5a-43    fl-1e8ba8b5a-42     ghygiene    gleaf    gdown  gup  gpost  ginit   g make-struct gm-a11d84f71ea-1a5e  gt-1e8ba8b5a-133 gt-1e8ba8b5a-132 gt-1e8ba8b5a-131  gm-1e8ba8b5a-134   fl-1e8ba8b5a-138 fl-1e8ba8b5a-139 fl-1e8ba8b5a-13a    g ctor-args     fl-1e8ba8b5a-120        gctor gfield  fl-1e8ba8b5a-11c fl-1e8ba8b5a-11d   gform g type-name gconstructor-spec g field-names   fl-1e8ba8b5a-111 fl-1e8ba8b5a-112 fl-1e8ba8b5a-113 fl-1e8ba8b5a-114    !g record-layout "gfunctional-setters #gsetters $gcopier %ggetters &g constructor 'ggetter-identifiers (gfield-identifiers )!"#$%&'( * +fl-1e8ba8b5a-e9 ,fl-1e8ba8b5a-e7 -fl-1e8ba8b5a-e5 .fl-1e8ba8b5a-e3 /fl-1e8ba8b5a-e1 0fl-1e8ba8b5a-df 1fl-1e8ba8b5a-dd 2fl-1e8ba8b5a-db 3+,-./012 4)*3 5fl-1e8ba8b5a-da 65 76 8  47 98 : ; 8 <9:; =< >geach-any ?> @gsyntax-violation A@ B@ CfWrong number of arguments Dg identifier? ED FD G HG I@ J@ Kf-source expression failed to match any pattern Lgrecord-type-vtable ML NL Og pwpwpwpwpw Pgdefault-record-printer QP RP S Tgset-struct-vtable-name! UT VT Wgvtable-offset-user XW YW Zg%tree-analysis?-procedure [gtree-analysis? \ ]gm-a11d84f71ea-1a7a ^] _gt-a11d84f71ea-1a79 `_ a^ bfl-a11d84f71ea-1a7f cb d`ac efl-a11d84f71ea-1a7c fe gaf h^dg  ih jgobj kgt-1e8ba8b5a-224 lgt-1e8ba8b5a-21e mgt-1e8ba8b5a-21f ngt-1e8ba8b5a-220 ogt-1e8ba8b5a-223 pgt-1e8ba8b5a-222 qgt-1e8ba8b5a-221 rklmnopq sgm-1e8ba8b5a-225 ts uttttttt vfl-1e8ba8b5a-229 wfl-1e8ba8b5a-22a xfl-1e8ba8b5a-22b yfl-1e8ba8b5a-22c zfl-1e8ba8b5a-22d {fl-1e8ba8b5a-22e |fl-1e8ba8b5a-22f }vwxyz{| ~ru} g copier-id  fl-1e8ba8b5a-21c   g ctor-name  fl-1e8ba8b5a-214    fl-1e8ba8b5a-212   glayout  fl-1e8ba8b5a-210   g immutable?  fl-1e8ba8b5a-20e   g field-count  fl-1e8ba8b5a-20c   g getter-ids  fl-1e8ba8b5a-209   g field-ids  fl-1e8ba8b5a-206   gpredicate-name g field-spec   fl-1e8ba8b5a-1f9 fl-1e8ba8b5a-1fa fl-1e8ba8b5a-1fb fl-1e8ba8b5a-1fc fl-1e8ba8b5a-1fd fl-1e8ba8b5a-1fe   dg~47 j  gand  gstruct?   F g struct-vtable   dg    i g Z gthrow-bad-struct   gtree-analysis-leaf g%tree-analysis-leaf-procedure gfree-id g %%on-error gm-a11d84f71ea-1a86   fl-a11d84f71ea-1a88        g%%type gt-1e8ba8b5a-14b gt-1e8ba8b5a-14c gt-1e8ba8b5a-14d gt-1e8ba8b5a-14e gt-1e8ba8b5a-14f gt-1e8ba8b5a-150 gt-1e8ba8b5a-151  gm-1e8ba8b5a-152   fl-1e8ba8b5a-156 fl-1e8ba8b5a-157 fl-1e8ba8b5a-158 fl-1e8ba8b5a-159 fl-1e8ba8b5a-15a fl-1e8ba8b5a-15b fl-1e8ba8b5a-15c   ggetter gindex  fl-1e8ba8b5a-149 fl-1e8ba8b5a-14a     fl-1e8ba8b5a-144 fl-1e8ba8b5a-145 fl-1e8ba8b5a-146   47    gck gerr gs   fl-a11d84f71ea-1a8b fl-a11d84f71ea-1a8c      gquote               g%%index    fl-a11d84f71ea-1a90 fl-a11d84f71ea-1a91            g%%copier     !fl-a11d84f71ea-1a95 "fl-a11d84f71ea-1a96 #!" $# %$  &% '% (g%%-set-fields )$ *() +'* ,+ -gt-a11d84f71ea-1a85 .- /fl-a11d84f71ea-1a9a 0/ 1.0 21  32 4147 54 65 7gif 874 9F4 :4 ;:5 <1 =< >9;= ?g struct-ref @?4 A1 B A C@5B D4 E4 F< GEF HD5G I8>CH J36I K LK Mgtree-analysis-down Ng%tree-analysis-down-procedure Ogm-a11d84f71ea-1aa1 PO QP Rfl-a11d84f71ea-1aa3 SR TQS UPT  VU WV XW YT47 ZY [Z \X[ ]PP ^fl-a11d84f71ea-1aa6 _fl-a11d84f71ea-1aa7 `^_ a]` bPaT  cb db eaT fe gdf hg iY ji kXj lfl-a11d84f71ea-1aab mfl-a11d84f71ea-1aac nlm o]n pPoT  qp rp soT t s urt vu wY xw yXx zfl-a11d84f71ea-1ab0 {fl-a11d84f71ea-1ab1 |z{ }]| ~P}T  ~ ~ }T (   gt-a11d84f71ea-1aa0  fl-a11d84f71ea-1ab5  Q PT   T47   7 F   T   ? T      M     T N gtree-analysis-up g%tree-analysis-up-procedure gm-a11d84f71ea-1abc   fl-a11d84f71ea-1abe        47     fl-a11d84f71ea-1ac1 fl-a11d84f71ea-1ac2              fl-a11d84f71ea-1ac6 fl-a11d84f71ea-1ac7               fl-a11d84f71ea-1acb fl-a11d84f71ea-1acc        (   gt-a11d84f71ea-1abb  fl-a11d84f71ea-1ad0      47   7 F      ?              gtree-analysis-post g%tree-analysis-post-procedure gm-a11d84f71ea-1ad7   fl-a11d84f71ea-1ad9        47       fl-a11d84f71ea-1adc  fl-a11d84f71ea-1add                      fl-a11d84f71ea-1ae1 fl-a11d84f71ea-1ae2            !  "! # $# %$ &fl-a11d84f71ea-1ae6 'fl-a11d84f71ea-1ae7 (&' ) ( *)  +* ,* -) .(- /,. 0/ 1gt-a11d84f71ea-1ad6 21 3fl-a11d84f71ea-1aeb 43 524 65  76 8547 98 :9 ;78 <F8 =8 >=9 ?5 @? A<>@ B?8 C5 D C EB9D F8 G8 H? IGH JF9I K;AEJ L7:K M NM Ogtree-analysis-init Pg%tree-analysis-init-procedure Qgm-a11d84f71ea-1af2 RQ SR Tfl-a11d84f71ea-1af4 UT VSU WRV  XW YX ZY [V47 \[ ]\ ^Z] _RR `fl-a11d84f71ea-1af7 afl-a11d84f71ea-1af8 b`a c_b dRcV  ed fd gcV hg ifh ji k[ lk mZl nfl-a11d84f71ea-1afc ofl-a11d84f71ea-1afd pno q_p rRqV  sr tr uqV v u wtv xw y[ zy {Zz |fl-a11d84f71ea-1b01 }fl-a11d84f71ea-1b02 ~|} _~ RV    V (   gt-a11d84f71ea-1af1  fl-a11d84f71ea-1b06  S RV   V47   7 F   V   ? V      O     V P geach      g %%set-fields gdummy gcheck? gexpr  gm-a11d84f71ea-1b0d   fl-a11d84f71ea-1b12 fl-a11d84f71ea-1b13 fl-a11d84f71ea-1b14 fl-a11d84f71ea-1b15 fl-a11d84f71ea-1b16    fl-a11d84f71ea-1b0f   gt-1e8ba8b5a-16a gt-1e8ba8b5a-16c gt-1e8ba8b5a-16b  gm-1e8ba8b5a-16d   fl-1e8ba8b5a-171 fl-1e8ba8b5a-172 fl-1e8ba8b5a-173   fl-1e8ba8b5a-167 fl-1e8ba8b5a-168 fl-1e8ba8b5a-169   47      M   O  G G glist g tree-il-fold g tree-il-src g g%make-binding-info-procedure gmake-binding-info  gm-a11d84f71ea-1b75  gt-a11d84f71ea-1b73 gt-a11d84f71ea-1b74   fl-a11d84f71ea-1b7a fl-a11d84f71ea-1b7b    fl-a11d84f71ea-1b77      gvars   grefs   gm-a11d84f71ea-1b71    47         gpwpw  g%binding-info?-procedure g binding-info? gm-a11d84f71ea-1b84  gt-a11d84f71ea-1b83      fl-a11d84f71ea-1b89         fl-a11d84f71ea-1b86         ~47 j     F          ! "! #gbinding-info-vars $g%binding-info-vars-procedure %gm-a11d84f71ea-1b90 &% '& (fl-a11d84f71ea-1b92 )( *') +&*  ,+ -, .- /*47 0/ 10 2.1 3&& 4fl-a11d84f71ea-1b95 5fl-a11d84f71ea-1b96 645 736 8&7*  98 :8 ;7* <; =:< >= ?/ @? A.@ Bfl-a11d84f71ea-1b9a Cfl-a11d84f71ea-1b9b DBC E3D F&E*  GF HF IE* J I KHJ LK M/ NM O.N Pfl-a11d84f71ea-1b9f Qfl-a11d84f71ea-1ba0 RPQ S3R T&S*  UT VT Wg%%-set-fields XS* YWX ZVY [Z \gt-a11d84f71ea-1b8f ]\ ^fl-a11d84f71ea-1ba4 _^ `]'_ a&`*  ba c`*47 dc ed f7c gFc hc ihd j`* kj lgik m?c n`* o n pmdo qc rc s#j trs uqdt vflpu wbev x* y$x zgbinding-info-refs {g%binding-info-refs-procedure |gm-a11d84f71ea-1bab }| ~} fl-a11d84f71ea-1bad  ~ }     47    }} fl-a11d84f71ea-1bb0 fl-a11d84f71ea-1bb1   }           fl-a11d84f71ea-1bb5 fl-a11d84f71ea-1bb6   }            fl-a11d84f71ea-1bba fl-a11d84f71ea-1bbb   }     W   gt-a11d84f71ea-1baa  fl-a11d84f71ea-1bbf  ~ }   47   7 F      ?       z      { gm-a11d84f71ea-1bc6   fl-a11d84f71ea-1bcb fl-a11d84f71ea-1bcc fl-a11d84f71ea-1bcd fl-a11d84f71ea-1bce fl-a11d84f71ea-1bcf    fl-a11d84f71ea-1bc8   47     # z  g string-any gsymbol->string ggensym? g vhash-consq j j gcadr gfold g let-names g letrec-names g fix-names gvlist-for-each g vhash-assq gfind gpair? gwarning gunused-variable g vlist-drop g vlist-null g g%make-reference-graph-procedure gmake-reference-graph  gm-a11d84f71ea-1ccf  gt-a11d84f71ea-1ccc gt-a11d84f71ea-1ccd gt-a11d84f71ea-1cce   fl-a11d84f71ea-1cd4 fl-a11d84f71ea-1cd5 fl-a11d84f71ea-1cd6     fl-a11d84f71ea-1cd1                 gdefs  gtoplevel-context   gm-a11d84f71ea-1cca     47           gpwpwpw   !g%reference-graph?-procedure "greference-graph? #gm-a11d84f71ea-1ce0 $# %gt-a11d84f71ea-1cdf &% '$ (fl-a11d84f71ea-1ce5 )( *&') +fl-a11d84f71ea-1ce2 ,+ -', .$*-  /. 0*-~47 1j0 21 30 40 541 6F0 70 871 9*- :9 ;68: <35; =/2< >- ?!> @greference-graph-defs Ag%reference-graph-defs-procedure Bgm-a11d84f71ea-1cec CB DC Efl-a11d84f71ea-1cee FE GDF HCG  IH JI KJ LG47 ML NM OKN PCC Qfl-a11d84f71ea-1cf1 Rfl-a11d84f71ea-1cf2 SQR TPS UCTG  VU WU XTG YX ZWY [Z \L ]\ ^K] _fl-a11d84f71ea-1cf6 `fl-a11d84f71ea-1cf7 a_` bPa cCbG  dc ec fbG g f heg ih jL kj lKk mfl-a11d84f71ea-1cfb nfl-a11d84f71ea-1cfc omn pPo qCpG  rq sq tg%%-set-fields upG vtu wsv xw ygt-a11d84f71ea-1ceb zy {fl-a11d84f71ea-1d00 |{ }zD| ~C}G  ~ }G47   7 F   }G   ? }G      @     G A greference-graph-refs g%reference-graph-refs-procedure gm-a11d84f71ea-1d07   fl-a11d84f71ea-1d09        47     fl-a11d84f71ea-1d0c fl-a11d84f71ea-1d0d              fl-a11d84f71ea-1d11 fl-a11d84f71ea-1d12               fl-a11d84f71ea-1d16 fl-a11d84f71ea-1d17        t   gt-a11d84f71ea-1d06  fl-a11d84f71ea-1d1b      47   7 F      ?              g reference-graph-toplevel-context g+%reference-graph-toplevel-context-procedure gm-a11d84f71ea-1d22   fl-a11d84f71ea-1d24        47     fl-a11d84f71ea-1d27 fl-a11d84f71ea-1d28                    fl-a11d84f71ea-1d2c  fl-a11d84f71ea-1d2d                 fl-a11d84f71ea-1d31 fl-a11d84f71ea-1d32        ! "t! # " $# %gt-a11d84f71ea-1d21 &% 'fl-a11d84f71ea-1d36 (' )&( *)  +* ,)47 -, .- /7, 0F, 1, 21- 3) 43 5024 6?, 7) 8 7 96-8 :, ;, <3 =;< >:-= ?/59> @+.? A BA Cgm-a11d84f71ea-1d3d DC ED Ffl-a11d84f71ea-1d42 Gfl-a11d84f71ea-1d43 Hfl-a11d84f71ea-1d44 Ifl-a11d84f71ea-1d45 Jfl-a11d84f71ea-1d46 KFGHIJ LEK MD Nfl-a11d84f71ea-1d3f ON PMO QLP47  RQ SLP TS U@S VS WS XUVW Ygand=> Zggraph-reachable-nodes [g vlist-fold \ggraph-reachable-nodes* ]g partition* ^gtoplevel-define-name _gtoplevel-define-src `gtoplevel-set-name agtoplevel-set-src bgmodule? cgmodule-variable dgmodule-public-interface egmacro? fg vlist-filter ggunused-toplevel hg igtoplevel-ref-name jgtoplevel-ref-src kg lg%make-toplevel-info-procedure mgmake-toplevel-info ngm-a11d84f71ea-1e83 on pgt-a11d84f71ea-1e81 qgt-a11d84f71ea-1e82 rpq soo tfl-a11d84f71ea-1e88 ufl-a11d84f71ea-1e89 vtu wrsv xo yfl-a11d84f71ea-1e85 zy {xz |ow{  }| ~w{ ~ ~  gm-a11d84f71ea-1e7f  w{  47  k~    } { l  g%toplevel-info?-procedure gtoplevel-info? gm-a11d84f71ea-1e92  gt-a11d84f71ea-1e91   fl-a11d84f71ea-1e97   fl-a11d84f71ea-1e94      ~47 j     F    k      gtoplevel-info-refs g%toplevel-info-refs-procedure gm-a11d84f71ea-1e9e   fl-a11d84f71ea-1ea0        47     fl-a11d84f71ea-1ea3 fl-a11d84f71ea-1ea4        k      fl-a11d84f71ea-1ea8 fl-a11d84f71ea-1ea9               fl-a11d84f71ea-1ead fl-a11d84f71ea-1eae       g%%-set-fields     gt-a11d84f71ea-1e9d  fl-a11d84f71ea-1eb2      47   7 F    k  ?              gtoplevel-info-defs g%toplevel-info-defs-procedure gm-a11d84f71ea-1eb9   fl-a11d84f71ea-1ebb                   47     fl-a11d84f71ea-1ebe fl-a11d84f71ea-1ebf          k      !  "fl-a11d84f71ea-1ec3 #fl-a11d84f71ea-1ec4 $"# %$ &%   '& (& )%  * ) +(* ,+ - .- /. 0fl-a11d84f71ea-1ec8 1fl-a11d84f71ea-1ec9 201 32 43   54 64 73  87 968 :9 ;gt-a11d84f71ea-1eb8 <; =fl-a11d84f71ea-1ecd >= ?<> @?   A@ B? 47 CB DC E7B FFB GB HGC I?  JkI KFHJ L?B M?  N M OLCN PB QB RI SQR TPCS UEKOT VADU W  XW Ygm-a11d84f71ea-1ed4 ZY [Z \fl-a11d84f71ea-1ed9 ]fl-a11d84f71ea-1eda ^fl-a11d84f71ea-1edb _fl-a11d84f71ea-1edc `fl-a11d84f71ea-1edd a\]^_` b[a cZ dfl-a11d84f71ea-1ed6 ed fce gbf47  hg ibf jki ki li mkl ng ogtoplevel-define! pgresolve-module qgoop rggoops sqr tg  uggoops-toplevel-definition vg vhash-delq wgunbound-variable xg vlist-reverse yg  zg%make-arity-info-procedure {gmake-arity-info |gm-a11d84f71ea-2136 }| ~gt-a11d84f71ea-2133 gt-a11d84f71ea-2134 gt-a11d84f71ea-2135 ~ }}} fl-a11d84f71ea-213b fl-a11d84f71ea-213c fl-a11d84f71ea-213d   } fl-a11d84f71ea-2138   }   gtoplevel-calls   glexical-lambdas  gtoplevel-lambdas   gm-a11d84f71ea-2131    47  y      z  g%arity-info?-procedure g arity-info? gm-a11d84f71ea-2147  gt-a11d84f71ea-2146   fl-a11d84f71ea-214c   fl-a11d84f71ea-2149      ~47 j     F    y      gtoplevel-procedure-calls g#%toplevel-procedure-calls-procedure gm-a11d84f71ea-2153   fl-a11d84f71ea-2155        47     fl-a11d84f71ea-2158 fl-a11d84f71ea-2159        y      fl-a11d84f71ea-215d fl-a11d84f71ea-215e               fl-a11d84f71ea-2162 fl-a11d84f71ea-2163       g%%-set-fields     gt-a11d84f71ea-2152  fl-a11d84f71ea-2167      47   7 F    y    ?                      g%lexical-lambdas-procedure gm-a11d84f71ea-216e   fl-a11d84f71ea-2170        !  "47 #" $# %!$ & 'fl-a11d84f71ea-2173 (fl-a11d84f71ea-2174 )'( *&) +*  ,+ -+ .* /y. 0-/ 10 2" 32 4!3 5fl-a11d84f71ea-2178 6fl-a11d84f71ea-2179 756 8&7 98  :9 ;9 <8 = < >;= ?> @" A@ B!A Cfl-a11d84f71ea-217d Dfl-a11d84f71ea-217e ECD F&E GF  HG IG JF KJ LIK ML Ngt-a11d84f71ea-216d ON Pfl-a11d84f71ea-2182 QP ROQ SR  TS UR47 VU WV X7U YFU ZU [ZV \R ]y\ ^Y[] _?U `R a ` b_Va cU dU e\ fde gcVf hX^bg iTWh j kj lg%toplevel-lambdas-procedure mgm-a11d84f71ea-2189 nm on pfl-a11d84f71ea-218b qp roq snr  ts ut vu wr47 xw yx zvy {nn |fl-a11d84f71ea-218e }fl-a11d84f71ea-218f ~|} {~ nr    r y   w  v fl-a11d84f71ea-2193 fl-a11d84f71ea-2194  { nr    r     w  v fl-a11d84f71ea-2198 fl-a11d84f71ea-2199  { nr    r    gt-a11d84f71ea-2188  fl-a11d84f71ea-219d  o nr   r47   7 F   r y  ? r           r l gm-a11d84f71ea-21a4   fl-a11d84f71ea-21a9 fl-a11d84f71ea-21aa fl-a11d84f71ea-21ab fl-a11d84f71ea-21ac fl-a11d84f71ea-21ad    fl-a11d84f71ea-21a6   47    y     gprogram? gprocedure-name g arity:nreq g arity:nopt g arity:rest? gcar garity:kw garity:allow-other-keys? gprogram-arities g procedure? gprocedure-minimum-arity g lambda-meta g assoc-ref gconst? g const-exp gkeyword? garity-mismatch gwith-output-to-string gwrite gvalidate-arity gapplication-src g vlist-tail gcatch   g module-ref g toplevel-ref? glambda? fformat-string-syntax-error g &syntax-error gthrow gunterminated-conditional gtilde gliteral g take-while 0123456789  gstring->number g list->string gevery gnumber? glist-ref gmin gunexpected-semicolon g"unexpected-conditional-termination gunterminated-iteration gunexpected-termination fcomputer bought the farm g string->list gformat-string-argument-count gresolve-interface gensureS g proc-ref? ggettext ggettext? gngettext gN_ g ngettext? gstring? g const-fmt gboolean? gformat g wrong-port gnegate gnon-literal-format-string z z fno matching pattern gwrong-format-string gwrong-num-args gwrong-format-arg-count g syntax-error g make-const ASas~% g simple-format !  "  #  $ !  % ! C5hTk]04    23;54>>"G?@h(] 454>"GCgk  "gv  "gres   "gfilenameflanguage/tree-il/analyze.scm      " gnameg make-hashqCARh]LL6{gy  gfilenameflanguage/tree-il/analyze.scm  &   gnamegstepCBCDEFGHIJKLM@NOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstu@hk]M6cgsym  gfilenameflanguage/tree-il/analyze.scm      Cvwxy@h|]M6tgsym  gval  gfilenameflanguage/tree-il/analyze.scm    #  CdW@jeNz{ h]&o454M>"G4L4LL554M44M55>"G4M>"GC6gx  grtd  gbody   ~gfree  A ~gfilenameflanguage/tree-il/analyze.scm          . %   .  5  A  A   D !  K ! 0 N ! : X ! 0 ] !  f "     C|}uN@h0]4M5$4M>"GL6C~gsym  ,gfilenameflanguage/tree-il/analyze.scm *   + !  +   - # * . #  , Ch(] 4L5$LLO6Cgsym  $grefs $gfilenameflanguage/tree-il/analyze.scm '  (  (  ) " *   $ gnamegdelabel-dependents!CNh}]4M5$CL6ugsym  gfilenameflanguage/tree-il/analyze.scm =   >   >   ?    CN@j~hX]4M5$G4ML44M54ML55>"G4M>"GM6Cgsym  Xgval  Xgfilenameflanguage/tree-il/analyze.scm D  E   E  I   J   J & # K & - J  2 I  ; L  V M   X CZh ]MOLQ&:45454L$"545@&I4 54 54 5 4L54L54L 56 &"4 54M4M 5>"G"4M>"G"$45$4M5$"~ $s4 5$c44 5545$,4 5$"4 5$"4 5"  $ "'4 5 " "" 45 "u"$"" """"C&P45454M>"G4M>"G4L56&45"&4 5"!&4"5"d#&m4$5"U(C(  4L 5 64  4L 5 5 " "%&h454M>"G4L54M4&4M55>"G4M>"GC'&4(54)54*545  4>"G4>"G4M4+4,54M55>"G4-4445?4L 555 $4L 5"6.&j4/5405415 4M4+4,54M55>"G-44L 545?62&435445455 4M4+4,54M55>"G467LO>"G-44L 545?68&4954:54;5 46"G4M4+4,54M55>"G4=LLLO5 4> 5 4L 4+55 ?O  L Q 46@ LO>"G46ALLLO>"G-4  ?6B&04C54D54L54L56E&E4F54G54H5 4L54L54L 56I&=4J54K54L5 4L 544+55@M&4N5"O&04P54Q54L54L56R&G4S54T54U5 4L54L54L 56V&B4W54X54Y5 4L54L 545@C gx   gproc   glabels-in-proc    gtail?    gtail-call-args    gstep   grtd    gproc  - Ygargs  - Ygtest  v g consequent  v g alternate v ggensym  gp   gc  gt u ggensym   ,gexp   ,gexp  ; Rgexp  a xgexp   gexps   gexps   gret  gy  gy  gbody  " gfree  F ginits   Iggensyms   Igbody  Ig alternate  Iggensyms  f gvals  f gbody f ggensyms   Fgvals   Fgbody  Fggensyms  c Jgvals  c Jgbody c Jgvar-refs  Jgvars-with-refs  Jg body-refs  Jgdelabel-dependents!  Jgexp  ` gbody  ` gbody   gwinder   gunwinder  gfluids   gvals   gbody  gfluid  # :gfluid  P rgexp  P rgtag   gbody   ghandler  gtag    gargs    gtail   >gfilenameflanguage/tree-il/analyze.scm    6 $ E . N $ O  Y  a   &      ( $              %  & % 0  1 , 4 4 < , = , D ) H $ I . S $ Y . c $ i . p ) u #  (  $    (               $ & (  ,  4  B & R  Z  h & x     &              /  $          9  3    &          !     %  , 1  :  A 4 F  F  I P " S , ] " b k          -          %  ;  %   *  .  4  5  G , I  Q  m  t  w  ~ -            ?                    -          %   *  8  ? B   F   N  j              -              %               =  C < P  J O R  i  p & t  | &    T       &    &    &    W       &    Z )  Z 3  Z )  Z    * & :  B  Y  ` & d  l & p  r `  z     &    &      c       &    &    f 4  f   h    gnameganalyze!Ch{]LLL6sgy  gfilenameflanguage/tree-il/analyze.scm p  p   gnamegrecurCBCDGHIJKXZ\]^_`abcdW@NNhr]4M5L6jgv  gfilenameflanguage/tree-il/analyze.scm          CNht]4M5Clgsym  gfilenameflanguage/tree-il/analyze.scm  "   .   $   CfghiVSThi]LLL6agx  gfilenameflanguage/tree-il/analyze.scm  !  -  CAmnopQMqrsthi]LLL6agx  gfilenameflanguage/tree-il/analyze.scm  %  '  Cvwxyz{jPVhx]kOLQ&*45454L545@&@454 54 54L54L54L56 &4 5"M &45",&45" &45"&4545@&45"D$944M54M5>"G""4M5 "4LO4M5544LO4M5554L >"G4M>"GC&45454 54!54">"G4#>"G" (K44L 54$ LO5? 4M4%&5 >"G "H 4M 4'4M 5 5>"G    "v  "j$4L5"6(&u4)54*54+5445?"c"S (4L 56  4M 4'4M 5 5>"G    "  "4,5$4-5 $ 4M 5$"f4M 5 $T4.455$?4/455 &(4.4 55$4/4 55 """" $;4M4'5>"G4L4 556"""0&415425435"l(*444 LO5?  4L 56 4M 4'4M 5 5>"G  " "5&C465475485"(" ( 4L 564M 5$S     &"4 54 4L 55" 49: 5    "  4 4L  55   "e    "U 4M 5$9;64M 5$   "4M 4' 5>"G  " "<&,4=54>54L54L56?&@4@54A54B54L54L54L56C&:4D54E54F54L544G55@H&4I5"J&,4K54L54L54L56M&4N54O54P54Q5$45$ 45""4M$4M 5 ">"G4L54L54L56R&>4S54T54U54L54L545@Cgx  ugproc  ugn   ugrecur  ugrtd   ugproc  0 Lgargs  0 Lgtest  i g consequent  i g alternate  i gexp  gexp  gexp  gexp   gexps  ' 6gbody  E gc  K gn  K gfree-addresses    glabels    ginits  3 ggensyms  3 gbody  3 g alternate  3 ggensyms e gn e gnlocs  ggensyms  1 gvals  1 gbody  1 gnmax  E ggensyms O gn O gv i gv  Fggensyms   0gvals   0gbody   0ggensyms   $gn  $gnmax  gv  $ggensyms  M {gvals  M {gbody  M {gin  W ogn W oggensyms a gvals a gnmax a gr  grtd   gbody   gv  ogexp   gbody   gbody   gwinder   gunwinder   gfluids   9gvals   9gbody   9gfluid  H Zgfluid  p gexp  p gtag   ,gbody   ,ghandler   ,gcont-var   ,gtag  I rgargs  I rgtail  I rHgfilenameflanguage/tree-il/analyze.scm o   q  7 p  B s  L s  T q  r p  v  q  p  q  p  q  p  q   p   q  ,   6   > q  K   N  R  S   V   ]  1 _   b   c  ! j  5 l  ! o   u                                      "                 "    q  e   k  l   o   z              /   7   /   )         '      "   (   <   (   "            "                 q  8   ;   E   E   O  U  Z   f   i   i   l   s   x  y  &              %                                               %            0            %       !   $  0 ,   /   J  K  R  " S   X  ( _   d  s   t   w  '       q                                       "               ! $   $   8 q  W   ]  a  g   l   x   y     #               "         "                        *                       "   &   '   3   6   @   A   H  * M  ; T  * Y   d   g   o   o    q   p      q   p      q   p  (   -  * 7   9   A q  Z p  b q  w p      q          #         !              *   #    p  ,  4 q  R p  h  + r    u gnameg allocate!C?h]AHHHHHHOOQQ45K45K45K45K45K45K4>"G4 >"GJCgx  g bound-vars  g free-vars   gassigned   g refcounts   glabels   g allocation   ganalyze!  / g allocate!  /  gfilenameflanguage/tree-il/analyze.scm P  W  ^  e  l  s m  z          gnameganalyze-lexicalsC4Rh]Cgleaf  gdown  gup   gpost   ginit   gfilenameflanguage/tree-il/analyze.scm #    gnameg%make-tree-analysis-procedureCR4=h]Cgt-a11d84f71ea-1a60  gt-a11d84f71ea-1a61  gt-a11d84f71ea-1a62   gt-a11d84f71ea-1a63   gt-a11d84f71ea-1a64      C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm  #   CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm  #    CHh]C   CJK hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/analyze.scm #   n C5RNORS4V>"G YiRh]$CCgobj  gfilenameflanguage/tree-il/analyze.scm #    gnameg%tree-analysis?-procedureCZR4[\h:]C2gt-a11d84f71ea-1a79    C?B[Ch`]L6Xga  gfilenameflanguage/tree-il/analyze.scm  #   CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm  #    Ch]C   CJK hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/analyze.scm #   n C5[Rh]& C6gs  gfilenameflanguage/tree-il/analyze.scm #    gnameg%tree-analysis-leaf-procedureCR4 h:]C2gerr  gs    Ch:]C2gerr  gs    C &,h:]C2gerr  gs    C\Jh:]C2gt-a11d84f71ea-1a85    C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm  #   CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm  #    CLh]C   CJKh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/analyze.scm #   C5RMh]& C6gs  gfilenameflanguage/tree-il/analyze.scm #    gnameg%tree-analysis-down-procedureCNR4M\chh:]C2gerr  gs    Ckqvh:]C2gerr  gs    Cyh:]C2gerr  gs    C\h:]C2gt-a11d84f71ea-1aa0    C?BMCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm  #   CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm  #    Ch]C   CJKh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/analyze.scm #   C5MRh ]& C6gs  gfilenameflanguage/tree-il/analyze.scm #    gnameg%tree-analysis-up-procedureCR4h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    C\h:]C2gt-a11d84f71ea-1abb    C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm  #   CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm  #    Ch]C   CJKh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/analyze.scm #   C5Rh ]& C6gs  gfilenameflanguage/tree-il/analyze.scm #    gnameg%tree-analysis-post-procedureCR4h:]C2gerr  gs    C"h:]C2gerr  gs    C%+0h:]C2gerr  gs    C\Lh:]C2gt-a11d84f71ea-1ad6    C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm  #   CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm  #    CNh]C   CJKh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/analyze.scm #   C5ROh ]& C6gs  gfilenameflanguage/tree-il/analyze.scm #    gnameg%tree-analysis-init-procedureCPR4O^ejh:]C2gerr  gs    Cmsxh:]C2gerr  gs    C{h:]C2gerr  gs    C\h:]C2gt-a11d84f71ea-1af1    C?BOCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm  #   CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm  #    Ch]C   CJKh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/analyze.scm #   C5OR4(h v]45Cngdummy  gcheck?  gs   ggetter   gexpr      CJKh(] 45$@6gx  "gtmp "gfilenameflanguage/tree-il/analyze.scm #   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5(RGh]4L5LLL6ganalysis  gresult  gfilenameflanguage/tree-il/analyze.scm 9   :   :    Ch(] 4LLOL5Cgx  "gresults  "glocs   "gfilenameflanguage/tree-il/analyze.scm 6   7 !  7  9   <  9  ! 8   " CNGh]4L5LLL6ganalysis  gresult  gfilenameflanguage/tree-il/analyze.scm 9   :   :    Ch8] 454LLOL5Cgx  1gresults  1glocs   glocs   1gfilenameflanguage/tree-il/analyze.scm 6   7 !  7   @ %  @   7   9  - <  / 9  0 8   1 CGh]4L5LLL6ganalysis  gresult  gfilenameflanguage/tree-il/analyze.scm 9   :   :    Ch0] 4LLOL5Cgx  *gresults  *glocs   glocs  *gfilenameflanguage/tree-il/analyze.scm 6   7 !  7  A  7   9  & <  ( 9  ) 8   * CGPuh(]&  " 45L6|ganalysis  #gresult  #gfilenameflanguage/tree-il/analyze.scm K   L   # C hp] 4OOO4 554  O>"GCganalyses  ngtree  ngenv   ngproc   gproc   )gproc  + ;gresults  J kgfilenameflanguage/tree-il/analyze.scm ,  D  D   E  + F  < G  = H  F G  J D J C  M K  [ N  ` K   n gnameg analyze-treeg documentationfhRun all tree analyses listed in ANALYSES on TREE for ENV, using `tree-il-fold'. Return TREE. The leaf/down/up procedures of each analysis are passed a ``location stack', which is the stack of `tree-il-src' values for each parent tree (a list); it can be used to approximate source location when accurate information is missing from a given `tree-il' element.C5Rh]Cgvars  grefs  gfilenameflanguage/tree-il/analyze.scm Z   gnameg%make-binding-info-procedureCR4hZ]CRgt-a11d84f71ea-1b73  gt-a11d84f71ea-1b74    C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm  Z   CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm  Z    Ch]C   CJK hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/analyze.scm Z   n C5RNR4V>"G YiRh]$CC~gobj  gfilenameflanguage/tree-il/analyze.scm Z    gnameg%binding-info?-procedureCR4\ h:]C2gt-a11d84f71ea-1b83    C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm  Z   CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm  Z    C"h]C   CJK hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/analyze.scm Z   n C5R#h]& C6gs  gfilenameflanguage/tree-il/analyze.scm Z    gnameg%binding-info-vars-procedureC$R4#29>h:]C2gerr  gs    CAGLh:]C2gerr  gs    COU[h:]C2gerr  gs    C\wh:]C2gt-a11d84f71ea-1b8f    C?B#Ch`]L6Xga  gfilenameflanguage/tree-il/analyze.scm  Z   CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm  Z    Cyh]C   CJKh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/analyze.scm Z   C5#Rzh]& C6gs  gfilenameflanguage/tree-il/analyze.scm Z    gnameg%binding-info-refs-procedureC{R4zh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    C\h:]C2gt-a11d84f71ea-1baa    C?BzCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm  Z   CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm  Z    Ch]C   CJKh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/analyze.scm Z   C5zR4Wh v]45Cngdummy  gcheck?  gs   ggetter   gexpr      CJKh(] 45$@6gx  "gtmp "gfilenameflanguage/tree-il/analyze.scm Z   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5WRh] 456gsym  gfilenameflanguage/tree-il/analyze.scm `  b   b    gnameggensym?CRz#XYfRSUThgGh]L6gvar  gname  gvars   gfilenameflanguage/tree-il/analyze.scm w  x "  x    Cmnh]L6gvar  gname  gvars   gfilenameflanguage/tree-il/analyze.scm w  x "  x    Cqrh]L6gvar  gname  gvars   gfilenameflanguage/tree-il/analyze.scm w  x "  x    Cvwh]L6gvar  gname  gvars   gfilenameflanguage/tree-il/analyze.scm w  x "  x    C!h]\& " 45& " 4545&4545  C &4 54 54 54 545    4>"G44 $ "4 $  " $4 5"555 4O  5C&04545 4O 5  C&04545 4O 5  C&04545 4 O 5  CCgx  ginfo  genv   glocs   grefs  = gvars  = gsrc  = grtd  F ggensym  W ogrefs c ogreq  gopt grest gkw ggensyms gnames gvars   ggensyms  / Qgnames / Qgvars E Qggensyms  g gnames g gvars } ggensyms   gnames  gvars  gfilenameflanguage/tree-il/analyze.scm p   s   t  7 u  = s  F }  Z  " c  w }       #      $  0    "  ,  "  6    w   ! }  4 w E  Y }  l w }   }   w   #   Cz#OP hp]4L5$m4L5$"4L5$M$" 4L545$"$  6CCChgvar  ggensym  gt  ; Ugname  U gloc  U gfilenameflanguage/tree-il/analyze.scm                !   '   .   2   5   9  " ;   J  " U   Z  " d   m  , n  " o   s   w  ! }    CQh0]4LLOL>"GL456g inner-vars  .grefs  .gfilenameflanguage/tree-il/analyze.scm     &   .    . gnamegshrinkCfhmnqrvwh]4& " 45& " 45OQ&4545  C&4 545  C &4 545  C &4 545  CCgx  ginfo  genv   glocs   grefs  6 gvars  6 gshrink  D grtd  P ggensyms  a xgvars l xggensyms  gvars ggensyms  gvars ggensyms  gvars gfilenameflanguage/tree-il/analyze.scm         6   P   d   l                   Ciiiiz#LMhp&],& " 45& " 45&4545CCgx  iginfo  igenv   iglocs   igrefs  6 igvars  6 igrtd  = iggensym  N fgrefs  Z f gfilenameflanguage/tree-il/analyze.scm g   i   j  6 i  = k  Q m " Z m   i Chv]Cngresult  genv  gfilenameflanguage/tree-il/analyze.scm     C6Rh]Cgrefs  gdefs  gtoplevel-context   gfilenameflanguage/tree-il/analyze.scm     gnameg%make-reference-graph-procedureCR4hz]Crgt-a11d84f71ea-1ccc  gt-a11d84f71ea-1ccd  gt-a11d84f71ea-1cce      C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm     CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm      Ch]C   CJK hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/analyze.scm    n C5RNR 4V>"G YiRh]$CCgobj  gfilenameflanguage/tree-il/analyze.scm     gnameg%reference-graph?-procedureC!R4"\=h:]C2gt-a11d84f71ea-1cdf    C?B"Ch`]L6Xga  gfilenameflanguage/tree-il/analyze.scm     CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm      C?h]C   CJK hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/analyze.scm    n C5"R@h]& C6gs  gfilenameflanguage/tree-il/analyze.scm     gnameg%reference-graph-defs-procedureCAR4@OV[h:]C2gerr  gs    C^dih:]C2gerr  gs    Clrxh:]C2gerr  gs    C\h:]C2gt-a11d84f71ea-1ceb    C?B@Ch`]L6Xga  gfilenameflanguage/tree-il/analyze.scm     CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm      Ch]C   CJKh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/analyze.scm    C5@Rh]& C6gs  gfilenameflanguage/tree-il/analyze.scm     gnameg%reference-graph-refs-procedureCR4h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    C\h:]C2gt-a11d84f71ea-1d06    C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm     CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm      Ch]C   CJKh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/analyze.scm    C5Rh ]& C6gs  gfilenameflanguage/tree-il/analyze.scm     gnameg+%reference-graph-toplevel-context-procedureCR4h:]C2gerr  gs    C h:]C2gerr  gs    C$h:]C2gerr  gs    C\@h:]C2gt-a11d84f71ea-1d21    C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm     CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm      CBh]C   CJKh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/analyze.scm    C5R4tRTXh v]45Cngdummy  gcheck?  gs   ggetter   gexpr      CJKh(] 45$@6gx  "gtmp "gfilenameflanguage/tree-il/analyze.scm    " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5tRYh]LL6wgkid  gresult  gfilenameflanguage/tree-il/analyze.scm    !  Ch]6wgkid  gresult  gfilenameflanguage/tree-il/analyze.scm      Ch{]45$" 45$C44L55$"454LO56sgroot  ygpath  ygresult   ygt  $gt  ; Mgchildren  M ygpath  Y ygresult  m ygfilenameflanguage/tree-il/analyze.scm         (   ,   /  $ ;   ;   J  @ M   P   Y   \   m   y    y gnamegloopCh ] OQ6groot  grefs  g reachable   gloop  gfilenameflanguage/tree-il/analyze.scm      gnameggraph-reachable-nodesCZR[Zh ]4L56g root+true  gresult  groot   g reachable   gfilenameflanguage/tree-il/analyze.scm     "      "         Ch]O6groots  grefs  gfilenameflanguage/tree-il/analyze.scm       gnameggraph-reachable-nodes*C\R[h@]"4L5$45C45Cgk+v  ?gresult  ?gk   ?gv   ?gr1   ?gr2   ?gfilenameflanguage/tree-il/analyze.scm     !   !  !   !       !   "  # /   3  & >    ? Ch ] 4O5Dgpred  gvhash  gresult   gfilenameflanguage/tree-il/analyze.scm                      gnameg partition*C]R@Y h]*& " 45& " 45&  " 454455$"4 5Cggraph  gname  grefs   gdefs  8 gctx  U gt  g ygctx-refs  y grefs  gfilenameflanguage/tree-il/analyze.scm       !   8  =   U  X  [  ' g  g   v  B y  |  #  4  #    gnamegadd-ref-from-contextC@`^_^`ah]4& " 45& " 45&  "4>"G&>45454 $" 4  55  C &#4 54>"GL6Cgx  ggraph  genv   glocs   grefs  6 gdefs  6 grtd  d gname  | gsrc  | gdefs gname   gfilenameflanguage/tree-il/analyze.scm         6   =   d  "  " * " 2 "  ! $   &   CO]bcdeh`] 4L5$44L55"$C4L5$#4L5$$6CCCgname  [gt [gvar ? Ygfilenameflanguage/tree-il/analyze.scm A !  < <  =  =   = B # ,  6   7   ?  G  J   N  S   U    [ C@\fh]4L5Cgname+src  gfilenameflanguage/tree-il/analyze.scm H )  I 0  I < I 0 I +   Cgh(]45$C6gname+loc  #gname  #gloc   #gfilenameflanguage/tree-il/analyze.scm L   M )  N )  M  O (  O   P , # P #  # C hm]24O& " 45> G45& " 45454  O5  6eggraph  }genv  }g public-defs  , }g private-defs  , }groots  < }grefs  X }g reachable  c }gunused  s }gfilenameflanguage/tree-il/analyze.scm 2   A   D ! + A  / @  4 E  < E A F  X E [ G  c E f H  s E } L   } CQiiiihijh`]&  "4>"G&#454>"GL6Cgx  \ggraph  \genv   \glocs   \grtd  , \gname  = Ygfilenameflanguage/tree-il/analyze.scm      ,  Y    \ CO`@hX]&C& " 45& " 45CCgx  Uggraph  Ugenv   Uglocs   Ugrtd   Ugrefs  C Rgdefs  C Rgfilenameflanguage/tree-il/analyze.scm )   +   -  , .  C - Q /   U C7Rkh]Cgrefs  gdefs  gfilenameflanguage/tree-il/analyze.scm ^   gnameg%make-toplevel-info-procedureClR4mhZ]CRgt-a11d84f71ea-1e81  gt-a11d84f71ea-1e82    C?BmCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm  ^   CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm  ^    Ch]C   CJK hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/analyze.scm ^   n C5mRNRk4Vk>"G YlikRkh]$CCgobj  gfilenameflanguage/tree-il/analyze.scm ^    gnameg%toplevel-info?-procedureCR4\h:]C2gt-a11d84f71ea-1e91    C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm  ^   CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm  ^    Ch]C   CJK hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/analyze.scm ^   n C5Rkh]& C6gs  gfilenameflanguage/tree-il/analyze.scm ^    gnameg%toplevel-info-refs-procedureCR4h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    C\h:]C2gt-a11d84f71ea-1e9d    C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm  ^   CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm  ^    Ch]C   CJKh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/analyze.scm ^   C5Rkh]& C6gs  gfilenameflanguage/tree-il/analyze.scm ^    gnameg%toplevel-info-defs-procedureCR4h:]C2gerr  gs    C!',h:]C2gerr  gs    C/5:h:]C2gerr  gs    C\Vh:]C2gt-a11d84f71ea-1eb8    C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm  ^   CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm  ^    CXh]C   CJKh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/analyze.scm ^   C5R4hjmh v]45Cngdummy  gcheck?  gs   ggetter   gexpr      CJKh(] 45$@6gx  "gtmp "gfilenameflanguage/tree-il/analyze.scm ^   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5Rnhopsth]#"T$K$8&-  $$(CCCCCCC"@$7&,  &45&"pCCCC$R&E  $- & &""s"o"k"g"cgproc  gargs  genv   gargs   Zgw   Xgx   Xgw  0 Tgw  w gw  gw  gw   gfilenameflanguage/tree-il/analyze.scm d  h  i  ^ n  t  t # t  t  u n  p  n   gnameggoops-toplevel-definitionCuRkhijbch]<& " 45& " 45&y454545$ 4 5"  $" 4 5 $C$" 4  5 4  5  CCgx  ginfo  genv   glocs   grefs  6 gdefs  6 grtd  = gname  U gsrc  U gt r gsrc grefs  gfilenameflanguage/tree-il/analyze.scm {   }   ~  6 }  =   Z   d  e   r       !    $    Ck^`abc`^vBCDuhp]D& " 45& " 454>"G&}454>"G4 5$ 4 5"$" 4 5$ C4  545  C&*454545  C&Q454545  $!4 54 5    CCCgx  kginfo  kgenv   kglocs   kgrefs   kgdefs  8 kgrtd  O kgname  ` gt  gsrc  grefs gname  grefs  gdefs gproc   agargs   agname - agrefs I Wgdefs I Wgfilenameflanguage/tree-il/analyze.scm         !   8   ;   O   u                 $             #   -  2   6  7  $ @  $ I   `   j  !  k Ciikiih]Cgx  ginfo  genv   glocs   gfilenameflanguage/tree-il/analyze.scm     Cwh]6gname+loc  gname  gloc   gfilenameflanguage/tree-il/analyze.scm     #   #      "      Cxkh(]4& " 4556gtoplevel  'genv  'gfilenameflanguage/tree-il/analyze.scm       $ %   '    ' C8Ryh]Cgtoplevel-calls  glexical-lambdas  gtoplevel-lambdas   gfilenameflanguage/tree-il/analyze.scm     gnameg%make-arity-info-procedureCzR4{hz]Crgt-a11d84f71ea-2133  gt-a11d84f71ea-2134  gt-a11d84f71ea-2135      C?B{Ch`]L6Xga  gfilenameflanguage/tree-il/analyze.scm     CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm      Ch]C   CJK hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/analyze.scm    n C5{RNRy4Vy>"G YziyRyh]$CC|gobj  gfilenameflanguage/tree-il/analyze.scm     gnameg%arity-info?-procedureCR4\h:]C2gt-a11d84f71ea-2146    C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm     CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm      Ch]C   CJK hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/analyze.scm    n C5Ryh]& C6gs  gfilenameflanguage/tree-il/analyze.scm     gnameg#%toplevel-procedure-calls-procedureCR4h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    C\h:]C2gt-a11d84f71ea-2152    C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm     CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm      Ch]C   CJKh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/analyze.scm    C5Ryh]& C6~gs  gfilenameflanguage/tree-il/analyze.scm     gnameg%lexical-lambdas-procedureCR4%,1h:]C2gerr  gs    C4:?h:]C2gerr  gs    CBHMh:]C2gerr  gs    C\ih:]C2gt-a11d84f71ea-216d    C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm     CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm      Ckh]C   CJKh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/analyze.scm    C5Ryh ]& C6gs  gfilenameflanguage/tree-il/analyze.scm     gnameg%toplevel-lambdas-procedureClR4zh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    C\h:]C2gt-a11d84f71ea-2188    C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm     CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm      Ch]C   CJKh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/analyze.scm    C5R4h v]45Cngdummy  gcheck?  gs   ggetter   gexpr      CJKh(] 45$@6gx  "gtmp "gfilenameflanguage/tree-il/analyze.scm    " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5RGGh0]454545445545Cga  0gfilenameflanguage/tree-il/analyze.scm      /   >     ) %  &  /    0 CfRSUTVQdWkh]Q45$454455D45$7$  "4545D"$ &4 54 54 54 54 5  ("$ 45"  $ "  ("$ 45"  $ "  $45"$""%&)454545"D45D"gproc  garity G fgname j gproc  j garities  j grtd  s zgreq  Egopt  Egrest  Egkw  Eg alternate Egt gt gmeta  [ vgbody  [ vgfilenameflanguage/tree-il/analyze.scm                "   $  %  /   2   6  :   @   A   G   J   S  % V  1 Z  > a   d   f   j  p  s                           +   &   6   ? !  6 )  + -  & 0  6 8  ;   E   M   `   f  * h   v   z   }             =   gnamegaritiesCDkOQhX]q$F$3$ $ $   ($" ( 4 5"  "     "4 5$X44 55$" $44 55"$ $ "   "w"" L  "a"L $.$&4 5  $$C CCCCCCCCCCgarity  Qgvx  Ogvy   Ogvx  Mgvy  Mgvx  1 Kgvy  1 Kgvx  B Igvy  B Igvx S Ggvy S Ggargs h gresult h garg | gt  gargs  Egcount " Agfilenameflanguage/tree-il/analyze.scm      `  % d  ! h   n   o  |   |                         (      !                             ( "   )  " -   3  " =  0 >  &,  Q ChY]L6Qgfilenameflanguage/tree-il/analyze.scm # 5  # @   C h]3OQ45454> GH4O5KJ$".4$" 4 O5>"GCgproc  g application  glexical?   garities  gargs   gsrc   gname  , garities  , gmatches?  4  gfilenameflanguage/tree-il/analyze.scm           "  ! /   7  L !  Q " U "  ] #  d #  v "   gnamegvalidate-arityCRydWLMhih]3& " 45& " 45&  " 45&+4>"G45C &/4 54 5$"?C &+4 >"G45CCg lexical-name  gval  ginfo   gtoplevel-calls  Q glexical-lambdas  Q gtoplevel-lambdas  Q grtd  Z glexical-lambdas  ggensym  gval*  glexical-lambdas   gfilenameflanguage/tree-il/analyze.scm /   1   2  9 3  Q 1  Z 4 w 7  6 4 <  < =  =  > ' >  4 C  B   gnamegextendCy`^adWhimnoqrsvwxBCDLM!h]lOQ& " 45& " 45&  " 45&454 5      &+4  >"G4   5  C  &@4 5 4 5 4 45 $ " 5CC&4545    6&4545    6&4545    6&45 4>"G4>"G    &*4  >"G4 >"GC  &"4 5 4  5  C &j4  5 4 5  $L    &"4 54 5C4 >"GCCCCgx  ginfo  genv   glocs   gextend  gtoplevel-calls  ^ glexical-lambdas  ^ gtoplevel-lambdas  ^ grtd  g gname  gexp  grtd gtoplevel-lambdas gname gproc gtoplevel-lambdas  ggensyms  ,gvals  ,ggensyms B Rgvals B Rggensyms h xgvals h xgproc  grtd  gname  gtoplevel-calls  ggensym  gproc ( gr 4 }grtd  9 }gname  J egtoplevel-calls  W e gfilenameflanguage/tree-il/analyze.scm -   H  , I  F J  ^ H  g L  N R  P N U  U X X - Y 1 Y - Z 1 X V   L  , _ 4 L  R a Z L  x c  L   f  h  f  k   k  f  o  ( o - p  1 p  4 q 4 q  M t ' W t  f x  j x & r x ,   CyhU]#& " 45& " 45&  " 4545$ 45"CMgname  gval  ginfo   gtoplevel-calls  Q glexical-lambdas  Q gtoplevel-lambdas  Q glexical-lambdas  q gfilenameflanguage/tree-il/analyze.scm         9   Q   X   d   e   q     gnamegshrinkCymnoqrsvwxh]$&  "4>"G&  "4>"G&  "4>"G&454 5 6 &4 54 5 6&4545 6Cgx  ginfo  genv   glocs   gshrink   grtd  | ggensyms  gvals  ggensyms  gvals  ggensyms  gvals   gfilenameflanguage/tree-il/analyze.scm     /   U   |            CyYbhY]LL6Qgfilenameflanguage/tree-il/analyze.scm      Che-13C]gargs gfilenameflanguage/tree-il/analyze.scm   CihY]LL6Qgfilenameflanguage/tree-il/analyze.scm      Che-13C]gargs gfilenameflanguage/tree-il/analyze.scm   Ch]!44L55$"!4L5$4LO5"45$14 54L5$4 LO 5""4 5$  645$  6Cgname+application  gname  g application  gt   Ngproc  N gname  b gproc*  gfilenameflanguage/tree-il/analyze.scm                      +   5   6   N  Q   [   \  " b   e   o   p               ChP]& " 45&  " 45O6gresult  Jgenv  Jgtoplevel-calls  7 Jgtoplevel-lambdas  7 Jgfilenameflanguage/tree-il/analyze.scm         7   J    J Ciiiyiih]Cgx  ginfo  genv   glocs   gfilenameflanguage/tree-il/analyze.scm *    C9R4i5ROOh]6wgchar  gfilenameflanguage/tree-il/analyze.scm      gnamegdigit?CkGQ  h]4545L$L45""D45$45$yLLLL$4 L5"L$ " ( "4 ?L$4 L5"L$ " ( "4 ?6"c"_gchars  gconds  gmins  ) gmaxs  ) gsel?  ) gfilenameflanguage/tree-il/analyze.scm     $  $   $   5 $  ) )   5 ! & 7 ! + 9 !  9   :  # F   G  # S   Y  * Z  3 f  ' g  0 p  + z  .  .  2  +  $  '  0  +  .  .  2  +  $  #  C   Oh]6wgchar  gfilenameflanguage/tree-il/analyze.scm      gnamegdigit?COh]6wgchar  gfilenameflanguage/tree-il/analyze.scm      gnamegdigit?C z h8E ]'($6D$~$"%$"&$"t$"T$"u_$"g $"Y($"K)$"=!$"/|$"!/$"q$"Q$ "0$"1$"2$"3$"4$"5$"6$"u7$"g8$"Y9$"K,$"=:$"/@$"!+$"-$"#$$"v$"V$&"p$"P$V4:5$ 4 5"  $ 4 5""P[$j4 5("4 4 4 5554@5   LO ";$2$$ "6]$"$4 566{$4@5$D"V ( 45"N $ }& "8   " ~&    "   "  ""*$4@5$D45("4 4 4 555$" 45("4 4 4 555$" "?$"k$"K$D^$Dh$"H$<4:5$ " "'$6(6"M"+$N~$ ""6= gchars  6gstate  6gparams   6g conditions   6g end-group   6g min-count   6g max-count   6gkey  ( gcolon?  e g min-count | gnumbers   gselector   gat?  gchars   gchars  gtilde?  gnumbers  b gt   gnumbers   gt   gargc  N vgkey   .gfilenameflanguage/tree-il/analyze.scm           !     %   (   (     *  3              +   %      "   $   &  + )  % 0   3   E   N  ]  * e   m  * n  . |  . |       ,   5     $   $           #   '                 )        $    %   .  4 $  7 %  9 % $ : % - ? &  B &  X %  ^ ) ' ` )  i  o +  t ,  u -  | - ,  - &  -   ,   / '  /     0   0   1 .  1   2 .  2 "                                                     3 "  3 +  5 " ! 5 2 3 2  <  = 6  I 6  K 7 $ M 7 ) O 7  R 8 " T 9 " U 9 + Z   b   j   p  s   v  ) ~      ; %  ; "                 )       = %  = "  8     B   B   B    ! D # D  ,  ; F ( G F $ N F  S G U G , V G 5 _ I d J v G     L   L   M '  M   N   N %  N 2  N ,  N   P   P *  P 3  R   R .  P      T   T  U   U *  U 1  U   X   X *  X 3 . X  2 [  6 [   6 gnamegloopC h(] OQ45 6gfmt  !gloop !gfilenameflanguage/tree-il/analyze.scm                !    ! gnamegformat-string-argument-countC Rt hY]L6Qgfilenameflanguage/tree-il/analyze.scm p   p )   Che-13C]gargs gfilenameflanguage/tree-il/analyze.scm p  Cp cLh hH]," "$&l    $4O5" 45$ 45"$$CCC&  CCC$c &.  45$$CCC&   &C"""$& &  &C"""gexp  Cgproc  Cg special-name   Cgenv   Cgw  # gw  * gw  1 gmod  V gvar  l gw  gw  gvar  gw   gw  + ;gfilenameflanguage/tree-il/analyze.scm ]  d  9 o  : p  M q  V o  ^ r  _ r  l o  t s  w s  { s  ~ s + s & d  b  d  i  i  j  j  j  k  k d   C gnameg proc-ref?g documentationfReturn #t when EXP designates procedure PROC in ENV. As a last resort, return #t when EXP refers to the global variable SPECIAL-NAME.C R  h]6gt-a11d84f71ea-25ec  gt-a11d84f71ea-25ef  gfilenameflanguage/tree-il/analyze.scm x  x +  x    gnameggettext?C R   h]6gt-a11d84f71ea-25f6  gt-a11d84f71ea-25f9  gfilenameflanguage/tree-il/analyze.scm y  y -  y    gnameg ngettext?C RB n  h]B"W"$&  45$ $$w&l  45$T$K$8&-   4 5$$ $CCCCCCCCCCCCCC$&s  45$W $E(:$*&  45$C""""""""$*&  45$C"|"x"tgx  genv  gw  # gw  7 gw  F gx  F gw  c gw  } gx  } gw gw  Ugw  Qgw   Igw  - Agw  v gfilenameflanguage/tree-il/analyze.scm {  }  &   2 }    }    gnameg const-fmtC R       Ln   Q    hp]4L> G$R$J&"L$&"L"$CLLL6CC gmin ngmax ngt  M jgfilenameflanguage/tree-il/analyze.scm            $  - (  )  $ 2  3 6   :  - >  ?  $ H  3 M   \  $ `  0 j    n C  h]LL6g_  gkey  gfilenameflanguage/tree-il/analyze.scm       %      Ch]]2"&$$45$54455$"445>"G""O"'4455$ 64   56$ &   C""$E &8  4455$$"6"i"e"a456456$$4L5$n45$54455$"445>"G"4L545OO6"9"5"1Ugargs  gloc  gvx   gvy   gvx  !  gw  gw  gvx  9 gvy  9 gvx  J gvy  J gfmt   gcount    gfilenameflanguage/tree-il/analyze.scm      (   2  3   6  " >   B   G   K   O  # P  / [   k  q   {     "          ,            /      #   $  / ,  ,   O   [   \   f  g   j  " r   v   {        #   /                7   gnamegcheck-format-argsC   nk   O hq]6igt-a11d84f71ea-2e3a  gfilenameflanguage/tree-il/analyze.scm    C   O hq]6igt-a11d84f71ea-2e41  gfilenameflanguage/tree-il/analyze.scm  )  ChH]Z"a$X$E4L545$#$45"CCCC$$$x&k  45$Q$F"( 45"$ ~$ $R     $  "   $  "4455"      $  "e4455"W    $  "94455"+  4455"4 5"4  5$C4  4455>"GC""""""@gargs  gloc  gw   egx   egw  $ cgx  $ cgw  1 cgx  q gw   gx   gw  gchars  gresult  gw  gx gw =gx =gx  7gx ? igx k gopts   gt   gfilenameflanguage/tree-il/analyze.scm      )   1   H  - U  $ _  g                "   #  T   U                                '      !         %   gnamegcheck-simple-format-argsCBt   !hbhY]LL6Qgfilenameflanguage/tree-il/analyze.scm     Che-13C]gargs gfilenameflanguage/tree-il/analyze.scm   C # %h]DOOQQ""-$"&  $&  $   &Y  4 $" 455$+4 $" 45>"8G"1"-   &Y  4 $" 455$+4 $" 45>"G"" " """""$&  $s&f   $K   &5  4 $" 45>"+G"$ "K "D"="9"/"+$&  $ &    4 5$4 O5"  & 4 $" 455"  $"  $+4 $" 45>"G"  ""H""@""2""*Cgx  g_  genv   glocs   gcheck-format-args   gcheck-simple-format-args   gw  ; Lgw  A Igw  \ >gw l 7gw { gw 0gw  h gw  n gw   gw  gw  gw   gw   gw  1 gw 8 gproc [ gt  gfilenameflanguage/tree-il/analyze.scm   #   ~   '  /      %  -      '  /       %   -   T          (       ;  E   F  [   e   f   p  1 w  9                 &   .      -   Cih]Cgx  g_  genv   glocs   gfilenameflanguage/tree-il/analyze.scm     Ch]Cgx  g_  genv   glocs   gfilenameflanguage/tree-il/analyze.scm     Chq]Cig_  genv  gfilenameflanguage/tree-il/analyze.scm     C:RCcgm  ,grtd A Agrtd m ngdown Agup Agvars Kagrefs Kaginit agrtd gadd-ref-from-context gdown gpost grefs gdefs ginit grtd ­gleaf Ugdown Ugrefs _ugdefs _uginit ugrtd -gdown ~tgup ~tgpost ~tgtoplevel-calls glexical-lambdas gtoplevel-lambdas ginit kgdown RTgfilenameflanguage/tree-il/analyze.scm    =2 >5 # j* , j Z ~3 `  f K  a f  d       S    s   S      ^  d ׮ z _  u z  x      )    ) w ' x        2-  7x ] 8\ x 9E y < { R  T  , T C6