GOOF----LE-8-2.0] 4hM] gguile  gdefine-module*   glanguage gtree-il gpeval  gfilenameS flanguage/tree-il/peval.scm gimportsS    g primitives   geffects   gice-9 gvlist   gmatch   gsrfi gsrfi-1   gsrfi-9 !  "! #gsrfi-11 $# %$ &gsrfi-26 '& (' )gcontrol *) +* ,"%(+  -gexportsS . /gset-current-module 0/ 1/ 2gmake-syntax-transformer 32 42 5g *logging* 6gmacro 7g identifier? 87 97 :g syntax-object ;gtop <; =gribcage >gid ?> @gm-9d6212d37ae-5919 A@; BA Cfl-9d6212d37ae-5920 DC E=?BD F= Ggx HG Ifl-9d6212d37ae-591b JI K=HBJ L<EFK Mghygiene NM O:LN Pg $sc-dispatch QP RP Sg_ Tgeach-any UST Vfl-9d6212d37ae-5923 WV X=HBW Y<XFK Z:YN [gsyntax-violation \[ ][ ^f-source expression failed to match any pattern _glog `gany agfree-id bgquote cgm-9d6212d37ae-5926 dc; ed ffl-9d6212d37ae-5928 gf h=Heg i<Fh j:biN kaj lk` mlT n`m ogif pgdummy qgevent rgarg spqr td<< ufl-9d6212d37ae-592b vfl-9d6212d37ae-592c wfl-9d6212d37ae-592d xuvw y=stx z<yFh {:ozN |gand }:|zN ~:5zN gor :zN geq? :zN :zN ~ gmemq :zN :bzN ~ glog* :zN g module-ref gresolve-interface g pretty-print  gnewline glet/ec g tree-il-fold gabort-to-prompt g tree-il-any g vlist-length g vlist-ref g vlist-any g  g g gvalues g g  g g  g gsingly-valued-primitive? gsingly-valued-expression? gmake-application g tree-il-src gmake-primitive-ref gtruncate-values g g%make-var-procedure gmake-var S```` glambda gm-9d6212d37ae-5be1 ; gt-9d6212d37ae-5bdd gt-9d6212d37ae-5bde gt-9d6212d37ae-5bdf gt-9d6212d37ae-5be0   fl-9d6212d37ae-5be6 fl-9d6212d37ae-5be7 fl-9d6212d37ae-5be8 fl-9d6212d37ae-5be9  =  fl-9d6212d37ae-5be3  =H 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  =H FFFFF  M  : <F :N ggensym :N grefcount :N gset? :N  g make-struct gm-9d6212d37ae-5bdb ; 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  fl-1e8ba8b5a-df !fl-1e8ba8b5a-dd "fl-1e8ba8b5a-db # !" $=# %fl-1e8ba8b5a-da &% '=H& (FFFFFF$' ):( *:N +: ( ,)*+ -, .![ /![ 0fWrong number of arguments 1!7 2!7 3<F 4:3N 5grecord-type-vtable 6!5 7!5 8gpwpwpwpw 9gdefault-record-printer :!9 ;!9 < =gset-struct-vtable-name! >!= ?!= @gvtable-offset-user A!@ B!@ Cg%var?-procedure Dgvar? ES` Fgm-9d6212d37ae-5bf4 GF; Hgt-9d6212d37ae-5bf3 IH JG Kfl-9d6212d37ae-5bf9 LK M=IJL Nfl-9d6212d37ae-5bf6 ON P=HJO QGMFPFFFF  R:Q Sgobj Tgt-1e8ba8b5a-224 Ugt-1e8ba8b5a-21e Vgt-1e8ba8b5a-21f Wgt-1e8ba8b5a-220 Xgt-1e8ba8b5a-223 Ygt-1e8ba8b5a-222 Zgt-1e8ba8b5a-221 [TUVWXYZ \gm-1e8ba8b5a-225 ]\; ^]]]]]]] _fl-1e8ba8b5a-229 `fl-1e8ba8b5a-22a afl-1e8ba8b5a-22b bfl-1e8ba8b5a-22c cfl-1e8ba8b5a-22d dfl-1e8ba8b5a-22e efl-1e8ba8b5a-22f f_`abcde g=[^f hg copier-id ih jfl-1e8ba8b5a-21c kj l=ik mg ctor-name nm ofl-1e8ba8b5a-214 po q=np r sfl-1e8ba8b5a-212 ts u=rt vglayout wv xfl-1e8ba8b5a-210 yx z=wy {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  = MFPFgFFFFlFqFuFzFFFF$' :S  :| gstruct? :  : g struct-vtable :  <MFP :N   R <FP :CN gthrow-bad-struct ! ! gvar-name g%var-name-procedure g %%on-error gm-9d6212d37ae-5c00 ;  fl-9d6212d37ae-5c02  =H FFFFF  : a ` 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  = h <<< fl-1e8ba8b5a-144 fl-1e8ba8b5a-145 fl-1e8ba8b5a-146  = FFFFFF$' : a S` gck gerr gs   fl-9d6212d37ae-5c05 fl-9d6212d37ae-5c06  = FFFFF  : :b <F :N   g%%index : a S` fl-9d6212d37ae-5c0a fl-9d6212d37ae-5c0b  = FFFFF  : :b F : N   g%%copier : a S` fl-9d6212d37ae-5c0f fl-9d6212d37ae-5c10    =    FFFFF   :   :b  g%%-set-fields < F :N    gt-9d6212d37ae-5bff  fl-9d6212d37ae-5c14  = FFFFF  : FFFFFF$' :  :o : :   !<F ":!N # " $g struct-ref %:$ &F ': &N (%' ): *:b +:!N ,*+ -), .#(- /. 0<F 1:0N 2g var-gensym 3g%var-gensym-procedure 4gm-9d6212d37ae-5c1b 54; 65 7fl-9d6212d37ae-5c1d 87 9=H68 :5F9FFFF  ;:: <a; =<` >F9FFFFF$' ?:> @a? AS=@` B55 Cfl-9d6212d37ae-5c20 Dfl-9d6212d37ae-5c21 ECD F=BE G5FF9FFFF  H:G I:bG J<FF9 K:JN LIK ML N:> OaN PS=O` Qfl-9d6212d37ae-5c25 Rfl-9d6212d37ae-5c26 SQR T=BS U5TF9FFFF  V:U W:bU XTF9 Y: XN ZWY [Z \:> ]a\ ^S=]` _fl-9d6212d37ae-5c2a `fl-9d6212d37ae-5c2b a_` b=Ba c5bF9FFFF  d:c e:bc f<bF9 g:fN heg ih jgt-9d6212d37ae-5c1a kj lfl-9d6212d37ae-5c2f ml n=k6m o5nF9FFFF  p:o qnF9FFFFF$' r:q sr t:oq u:q v:q wvr x<nF9 y:xN zuwy {:$q |nF9 }: |N ~{r} :q :bq :2xN  r tz~ ps <F9 :3N g var-refcount g%var-refcount-procedure gm-9d6212d37ae-5c36 ;  fl-9d6212d37ae-5c38  =H FFFFF  : a ` FFFFFF$' : a S`  fl-9d6212d37ae-5c3b fl-9d6212d37ae-5c3c  = FFFFF  : :b <F :N   : a S` fl-9d6212d37ae-5c40 fl-9d6212d37ae-5c41  = FFFFF  : :b F : N   : a S` fl-9d6212d37ae-5c45 fl-9d6212d37ae-5c46  = FFFFF  : :b <F :N   gt-9d6212d37ae-5c35  fl-9d6212d37ae-5c4a  = FFFFF  : FFFFFF$' :  :o : :  <F :N  :$ F : N  : :b :N     <F :N gvar-set? g%var-set?-procedure gm-9d6212d37ae-5c51 ;  fl-9d6212d37ae-5c53  =H FFFFF  : a ` FFFFFF$' : a S`  fl-9d6212d37ae-5c56 fl-9d6212d37ae-5c57  = FFFFF  : :b <F :N   : a S` fl-9d6212d37ae-5c5b fl-9d6212d37ae-5c5c  = FFFFF  : :b F : N   :  a  S `  fl-9d6212d37ae-5c60  fl-9d6212d37ae-5c61     =  FFFFF  : :b <F :N   gt-9d6212d37ae-5c50  fl-9d6212d37ae-5c65  = FFFFF  : FFFFFF$' :   :o !: ": #" $<F %:$N &!#% ':$ (F ): (N *') +: ,:b -:$N .,- /+. 0 &*/ 10 2<F 3:2N 4geach 5`` 645 7`6 8`7 9`8 :g %%set-fields ;gcheck? gm-9d6212d37ae-5c6c ?>; @? Afl-9d6212d37ae-5c71 Bfl-9d6212d37ae-5c72 Cfl-9d6212d37ae-5c73 Dfl-9d6212d37ae-5c74 Efl-9d6212d37ae-5c75 FABCDE G==@F H? Ifl-9d6212d37ae-5c6e JI K=HHJ Lgt-1e8ba8b5a-16a Mgt-1e8ba8b5a-16c Ngt-1e8ba8b5a-16b OLMN Pgm-1e8ba8b5a-16d QP; RQQQ Sfl-1e8ba8b5a-171 Tfl-1e8ba8b5a-172 Ufl-1e8ba8b5a-173 VSTU W=ORV Xfl-1e8ba8b5a-167 Yfl-1e8ba8b5a-168 Zfl-1e8ba8b5a-169 [XYZ \=[ ]GFKFWFFF\$'  ^::] _<GFK `:_N a:_N b:2_N c:_N d:_N eabcd fgmap gf hf iglist jgset-var-refcount! kg%set-var-refcount!-procedure lS`` mgm-9d6212d37ae-5c80 nm; ogt-9d6212d37ae-5c7e pgt-9d6212d37ae-5c7f qop rnn sfl-9d6212d37ae-5c85 tfl-9d6212d37ae-5c86 ust v=qru wn xfl-9d6212d37ae-5c82 yx z=Hwy {nvFzFFFF  |:{ }gt-1e8ba8b5a-18c ~gt-1e8ba8b5a-18d }~ gm-1e8ba8b5a-18e ;  fl-1e8ba8b5a-192 fl-1e8ba8b5a-193  = gsetter  fl-1e8ba8b5a-186 fl-1e8ba8b5a-187 fl-1e8ba8b5a-188  =  fl-1e8ba8b5a-17d fl-1e8ba8b5a-17e  = g field-specs  fl-1e8ba8b5a-179 fl-1e8ba8b5a-17a  = vFzFFF$' : gval :  :o : :  <vFz :N  g struct-set! : vFz : N  : :b :jN    | <Fz :kN g set-var-set?! g%set-var-set?!-procedure gm-9d6212d37ae-5c90 ; gt-9d6212d37ae-5c8e gt-9d6212d37ae-5c8f   fl-9d6212d37ae-5c95 fl-9d6212d37ae-5c96  =  fl-9d6212d37ae-5c92  =H FFFFF  : FFFF$' : :  :o : :  <F :N  : F : N  : :b :N     <F :N g vlist-null g vhash-assq g  gfold g vhash-consq gappend greverse   g g g g  gbuild-var-table g  g%%make-counter-procedure g %make-counter S`````` gm-9d6212d37ae-63bc ; gt-9d6212d37ae-63b6 gt-9d6212d37ae-63b7 gt-9d6212d37ae-63b8 gt-9d6212d37ae-63b9 gt-9d6212d37ae-63ba gt-9d6212d37ae-63bb   fl-9d6212d37ae-63c1 fl-9d6212d37ae-63c2 fl-9d6212d37ae-63c3 fl-9d6212d37ae-63c4 fl-9d6212d37ae-63c5 fl-9d6212d37ae-63c6  =  fl-9d6212d37ae-63be  =H FFFFF  : geffort <F  :N  gsize  : N  g continuation  : N g recursive? :N gdata :N gprev :N     gm-9d6212d37ae-63b4 ; FFFFFF$' : :N :        <F :N g pwpwpwpwpwpw     !g%counter?-procedure "gcounter? #gm-9d6212d37ae-63d3 $#; %gt-9d6212d37ae-63d2 &% '$ (fl-9d6212d37ae-63d8 )( *=&') +fl-9d6212d37ae-63d5 ,+ -=H', .$*F-FFFF  /:. 0*F-FgFFFFlFqFuFzFFFF$' 1:S0 21 3:|0 4:0 541 6:0 7:0 871 9<*F- ::9N ;68: <35; =/2< ><F- ?:!>N @geffort-counter Ag%effort-counter-procedure Bgm-9d6212d37ae-63df CB; DC Efl-9d6212d37ae-63e1 FE G=HDF HCFGFFFF  I:H JaI KJ` LFGFFFFF$' M:L NaM OSKN` PCC Qfl-9d6212d37ae-63e4 Rfl-9d6212d37ae-63e5 SQR T=PS UCTFGFFFF  V:U W:bU X<TFG Y:XN ZWY [Z \:L ]a\ ^SK]` _fl-9d6212d37ae-63e9 `fl-9d6212d37ae-63ea a_` b=Pa cCbFGFFFF  d:c e:bc fbFG g: fN heg ih j:L kaj lSKk` mfl-9d6212d37ae-63ee nfl-9d6212d37ae-63ef omn p=Po qCpFGFFFF  r:q s:bq tg%%-set-fields u<pFG v:tuN wsv xw ygt-9d6212d37ae-63de zy {fl-9d6212d37ae-63f3 |{ }=zD| ~C}FGFFFF  :~ }FGFFFFF$' :  :o : :  <}FG :N  :$ }FG : N  : :b :@N     <FG :AN g size-counter g%size-counter-procedure gm-9d6212d37ae-63fa ;  fl-9d6212d37ae-63fc  =H FFFFF  : a ` FFFFFF$' : a S`  fl-9d6212d37ae-63ff fl-9d6212d37ae-6400  = FFFFF  : :b <F :N   : a S` fl-9d6212d37ae-6404 fl-9d6212d37ae-6405  = FFFFF  : :b F : N   : a S` fl-9d6212d37ae-6409 fl-9d6212d37ae-640a  = FFFFF  : :b <F :tN   gt-9d6212d37ae-63f9  fl-9d6212d37ae-640e  = FFFFF  : FFFFFF$' :  :o : :  <F :N  :$ F : N  : :b :N     <F :N gcounter-continuation g%counter-continuation-procedure gm-9d6212d37ae-6415 ;  fl-9d6212d37ae-6417  =H FFFFF  : a ` FFFFFF$' : a S`  fl-9d6212d37ae-641a fl-9d6212d37ae-641b  = FFFFF  : :b <F :N    :  a   S `  fl-9d6212d37ae-641f  fl-9d6212d37ae-6420    = FFFFF  : :b F : N   : a S` fl-9d6212d37ae-6424 fl-9d6212d37ae-6425  = FFFFF  :  :b !<F ":t!N # " $# %gt-9d6212d37ae-6414 &% 'fl-9d6212d37ae-6429 (' )=&( *)FFFFF  +:* ,)FFFFFF$' -:, .- /:o, 0:, 1:, 21- 3<)F 4:3N 5024 6:$, 7)F 8: 7N 96-8 ::, ;:b, <:3N =;< >:-= ?/59> @+.? A<F B:AN Cgcounter-recursive? Dg%counter-recursive?-procedure Egm-9d6212d37ae-6430 FE; GF Hfl-9d6212d37ae-6432 IH J=HGI KFFJFFFF  L:K MaL NM` OFJFFFFF$' P:O QaP RSNQ` SFF Tfl-9d6212d37ae-6435 Ufl-9d6212d37ae-6436 VTU W=SV XFWFJFFFF  Y:X Z:bX [<WFJ \:[N ]Z\ ^] _:O `a_ aSN`` bfl-9d6212d37ae-643a cfl-9d6212d37ae-643b dbc e=Sd fFeFJFFFF  g:f h:bf ieFJ j: iN khj lk m:O nam oSNn` pfl-9d6212d37ae-643f qfl-9d6212d37ae-6440 rpq s=Sr tFsFJFFFF  u:t v:bt w<sFJ x:twN yvx zy {gt-9d6212d37ae-642f |{ }fl-9d6212d37ae-6444 ~} =|G~ FFJFFFF  : FJFFFFF$' :  :o : :  <FJ :N  :$ FJ : N  : :b :CN     <FJ :DN g counter-data g%counter-data-procedure gm-9d6212d37ae-644b ;  fl-9d6212d37ae-644d  =H FFFFF  : a ` FFFFFF$' : a S`  fl-9d6212d37ae-6450 fl-9d6212d37ae-6451  = FFFFF  : :b <F :N   : a S` fl-9d6212d37ae-6455 fl-9d6212d37ae-6456  = FFFFF  : :b F : N   : a S` fl-9d6212d37ae-645a fl-9d6212d37ae-645b  = FFFFF  : :b <F :tN   gt-9d6212d37ae-644a  fl-9d6212d37ae-645f  = FFFFF  : FFFFFF$' :  :o : :  <F :N  :$ F : N  : :b :N     <F :N g counter-prev g%counter-prev-procedure gm-9d6212d37ae-6466 ;  fl-9d6212d37ae-6468  =H FFFFF  : a ` FFFFFF$' : a S`  fl-9d6212d37ae-646b fl-9d6212d37ae-646c  = FFFFF  : :b <F :N       :  a   S ` fl-9d6212d37ae-6470 fl-9d6212d37ae-6471  = FFFFF  : :b F : N   : a S` fl-9d6212d37ae-6475 fl-9d6212d37ae-6476  =  FFFFF  !:  ":b  #<F $:t#N %"$ &% 'gt-9d6212d37ae-6465 (' )fl-9d6212d37ae-647a *) +=(* ,+FFFFF  -:, .+FFFFFF$' /:. 0/ 1:o. 2:. 3:. 43/ 5<+F 6:5N 7246 8:$. 9+F :: 9N ;8/: <:. =:b. >:5N ?=> @</? A17;@ B-0A C<F D:CN Egm-9d6212d37ae-6481 FE; GF Hfl-9d6212d37ae-6486 Ifl-9d6212d37ae-6487 Jfl-9d6212d37ae-6488 Kfl-9d6212d37ae-6489 Lfl-9d6212d37ae-648a MHIJKL N==GM OF Pfl-9d6212d37ae-6483 QP R=HOQ SNFRFWFFF\$'  T::S U<NFR V:UN W:@UN X:UN Y:UN Z:CUN [:UN \:UN ]WXYZ[\ ^gset-counter-recursive?! _g"%set-counter-recursive?!-procedure `gm-9d6212d37ae-6495 a`; bgt-9d6212d37ae-6493 cgt-9d6212d37ae-6494 dbc eaa ffl-9d6212d37ae-649a gfl-9d6212d37ae-649b hfg i=deh ja kfl-9d6212d37ae-6497 lk m=Hjl naiFmFFFF  o:n piFmFFF$' q:p r:p sqr t:op u:p v:p wvq x<iFm y:xN zuwy {:p |iFm }: |N ~{q}r :p :bp :^xN  q tz~ os <Fm :_N g abort-counter grecord-effort! g record-size! g find-counter gmin g transfer! g make-variable gmake-top-counter gmake-nested-counter gmake-recursive-counter g  g%%make-operand-procedure g %make-operand S``````````  gm-9d6212d37ae-6564 ; gt-9d6212d37ae-655a gt-9d6212d37ae-655b gt-9d6212d37ae-655c gt-9d6212d37ae-655d gt-9d6212d37ae-655e gt-9d6212d37ae-655f gt-9d6212d37ae-6560 gt-9d6212d37ae-6561 gt-9d6212d37ae-6562 gt-9d6212d37ae-6563     fl-9d6212d37ae-6569 fl-9d6212d37ae-656a fl-9d6212d37ae-656b fl-9d6212d37ae-656c fl-9d6212d37ae-656d fl-9d6212d37ae-656e fl-9d6212d37ae-656f fl-9d6212d37ae-6570 fl-9d6212d37ae-6571 fl-9d6212d37ae-6572   =  fl-9d6212d37ae-6566  =H FFFFF  : gvar <F :N gsym :N gvisit :N gsource :N g visit-count :N g use-count :N g copyable? :N gresidual-value :N gconstant-value :N galias :N   gm-9d6212d37ae-6558 ; FFFFFF$' : :N :     <F :N gpwpwpwpwpwpwpwpwpwpw   g%operand?-procedure goperand? gm-9d6212d37ae-6583 ; gt-9d6212d37ae-6582   fl-9d6212d37ae-6588  = fl-9d6212d37ae-6585  =H FFFFF  : FFgFFFFlFqFuFzFFFF$' :S  :| :  : :  <F :N    <F :N g operand-var g%operand-var-procedure gm-9d6212d37ae-658f ;  fl-9d6212d37ae-6591  =H FFFFF  : a ` FFFFFF$' : a S`  fl-9d6212d37ae-6594  fl-9d6212d37ae-6595     =    FFFFF   :  :b  < F :N   : a S` fl-9d6212d37ae-6599 fl-9d6212d37ae-659a  = FFFFF  : :b F : N    !: "a! #S"` $fl-9d6212d37ae-659e %fl-9d6212d37ae-659f &$% '=& ('FFFFF  ):( *:b( +g%%-set-fields ,<'F -:+,N .*- /. 0gt-9d6212d37ae-658e 10 2fl-9d6212d37ae-65a3 32 4=13 54FFFFF  6:5 74FFFFFF$' 8:7 98 ::o7 ;:7 <:7 =<8 ><4F ?:>N @;=? A:$7 B4F C: BN DA8C E:7 F:b7 G:>N HFG IE8H J:@DI K69J L<F M:LN Ng operand-sym Og%operand-sym-procedure Pgm-9d6212d37ae-65aa QP; RQ Sfl-9d6212d37ae-65ac TS U=HRT VQFUFFFF  W:V XaW YX` ZFUFFFFF$' [:Z \a[ ]SY\` ^QQ _fl-9d6212d37ae-65af `fl-9d6212d37ae-65b0 a_` b=^a cQbFUFFFF  d:c e:bc f<bFU g:fN heg ih j:Z kaj lSYk` mfl-9d6212d37ae-65b4 nfl-9d6212d37ae-65b5 omn p=^o qQpFUFFFF  r:q s:bq tpFU u: tN vsu wv x:Z yax zSYy` {fl-9d6212d37ae-65b9 |fl-9d6212d37ae-65ba }{| ~=^} Q~FUFFFF  : :b <~FU :+N   gt-9d6212d37ae-65a9  fl-9d6212d37ae-65be  =R QFUFFFF  : FUFFFFF$' :  :o : :  <FU :N  :$ FU : N  : :b :NN     <FU :ON g%operand-visit g%%operand-visit-procedure gm-9d6212d37ae-65c5 ;  fl-9d6212d37ae-65c7  =H FFFFF  : a ` FFFFFF$' : a S`  fl-9d6212d37ae-65ca fl-9d6212d37ae-65cb  = FFFFF  : :b <F :N   : a S` fl-9d6212d37ae-65cf fl-9d6212d37ae-65d0  = FFFFF  : :b F : N   : a S` fl-9d6212d37ae-65d4 fl-9d6212d37ae-65d5  = FFFFF  : :b <F :+N   gt-9d6212d37ae-65c4  fl-9d6212d37ae-65d9  = FFFFF  : FFFFFF$' :  :o : :  <F :N  :$ F : N  : :b :N     <F :N goperand-source g%operand-source-procedure gm-9d6212d37ae-65e0 ;  fl-9d6212d37ae-65e2  =H FFFFF  : a ` FFFFFF$' : a  S`    fl-9d6212d37ae-65e5  fl-9d6212d37ae-65e6     =   FFFFF  : :b <F :N   : a S` fl-9d6212d37ae-65ea fl-9d6212d37ae-65eb  =  FFFFF  : :b  F !:  N "! #" $: %a$ &S%` 'fl-9d6212d37ae-65ef (fl-9d6212d37ae-65f0 )'( *= ) +*FFFFF  ,:+ -:b+ .<*F /:+.N 0-/ 10 2gt-9d6212d37ae-65df 32 4fl-9d6212d37ae-65f4 54 6=35 76FFFFF  8:7 96FFFFFF$' ::9 ;: <:o9 =:9 >:9 ?>: @<6F A:@N B=?A C:$9 D6F E: DN FC:E G:9 H:b9 I:@N JHI KG:J L<BFK M8;L N<F O:NN Pgoperand-visit-count Qg%operand-visit-count-procedure Rgm-9d6212d37ae-65fb SR; TS Ufl-9d6212d37ae-65fd VU W=HTV XSFWFFFF  Y:X ZaY [Z` \FWFFFFF$' ]:\ ^a] _S[^` `SS afl-9d6212d37ae-6600 bfl-9d6212d37ae-6601 cab d=`c eSdFWFFFF  f:e g:be h<dFW i:hN jgi kj l:\ mal nS[m` ofl-9d6212d37ae-6605 pfl-9d6212d37ae-6606 qop r=`q sSrFWFFFF  t:s u:bs vrFW w: vN xuw yx z:\ {az |S[{` }fl-9d6212d37ae-660a ~fl-9d6212d37ae-660b }~ =` SFWFFFF  : :b <FW :+N   gt-9d6212d37ae-65fa  fl-9d6212d37ae-660f  =T SFWFFFF  : FWFFFFF$' :  :o : :  <FW :N  :$ FW : N  : :b :PN     <FW :QN goperand-use-count g%operand-use-count-procedure gm-9d6212d37ae-6616 ;  fl-9d6212d37ae-6618  =H FFFFF  : a ` FFFFFF$' : a S`  fl-9d6212d37ae-661b fl-9d6212d37ae-661c  = FFFFF  : :b <F :N   : a S` fl-9d6212d37ae-6620 fl-9d6212d37ae-6621  = FFFFF  : :b F : N   : a S` fl-9d6212d37ae-6625 fl-9d6212d37ae-6626  = FFFFF  : :b <F :+N   gt-9d6212d37ae-6615  fl-9d6212d37ae-662a  = FFFFF  : FFFFFF$' :  :o : :  <F :N  :$ F : N  : :b :N     <F :N goperand-copyable? g%operand-copyable?-procedure gm-9d6212d37ae-6631 ;  fl-9d6212d37ae-6633   =H   F FFFF  :  a   ` F FFFFF$' :  a  S  `  fl-9d6212d37ae-6636 fl-9d6212d37ae-6637    =    F FFFF  :  :b  < F  : N      :  a  S  ` fl-9d6212d37ae-663b fl-9d6212d37ae-663c    =    F FFFF  :  !:b  " F  #:  "N $ ! # % $ &:  'a & (S  '` )fl-9d6212d37ae-6640 *fl-9d6212d37ae-6641 + ) * ,=  + - ,F FFFF  .: - /:b - 0< ,F  1:+ 0N 2 / 1 3 2 4gt-9d6212d37ae-6630 5 4 6fl-9d6212d37ae-6645 7 6 8= 5  7 9 8F FFFF  :: 9 ; 8F FFFFF$' <: ; = < >:o ; ?: ; @: ; A @ < B< 8F  C: BN D ? A C E:$ ; F 8F  G:  FN H E < G I: ; J:b ; K: BN L J K M I < L N > D H M O : = N P<F  Q: PN Rgoperand-residual-value Sg!%operand-residual-value-procedure Tgm-9d6212d37ae-664c U T; V U Wfl-9d6212d37ae-664e X W Y=H V X Z UF YFFFF  [: Z \a [ ] \` ^F YFFFFF$' _: ^ `a _ aS ] `` b U U cfl-9d6212d37ae-6651 dfl-9d6212d37ae-6652 e c d f= b e g U fF YFFFF  h: g i:b g j< fF Y k: jN l i k m l n: ^ oa n pS ] o` qfl-9d6212d37ae-6656 rfl-9d6212d37ae-6657 s q r t= b s u U tF YFFFF  v: u w:b u x tF Y y:  xN z w y { z |: ^ }a | ~S ] }` fl-9d6212d37ae-665b fl-9d6212d37ae-665c    = b   U F YFFFF  :  :b  < F Y :+ N      gt-9d6212d37ae-664b   fl-9d6212d37ae-6660   =  V   U F YFFFF  :   F YFFFFF$' :    :o  :  :     < F Y : N     :$   F Y :  N     :  :b  : R N                 <F Y : S N goperand-constant-value g!%operand-constant-value-procedure gm-9d6212d37ae-6667  ;   fl-9d6212d37ae-6669   =H    F FFFF  :  a   ` F FFFFF$' :  a  S  `    fl-9d6212d37ae-666c fl-9d6212d37ae-666d    =     F FFFF  :  :b  < F  : N      :  a  S  ` fl-9d6212d37ae-6671 fl-9d6212d37ae-6672    =     F FFFF  :  :b   F  :  N      :  a  S  ` fl-9d6212d37ae-6676 fl-9d6212d37ae-6677    =     F FFFF  :  :b  < F  :+ N      gt-9d6212d37ae-6666   fl-9d6212d37ae-667b   =      F FFFF  :   F FFFFF$' :    :o  :  :     < F  : N     :$   F  :  N     :  :b  :  N                 <F  :  N g operand-alias g%operand-alias-procedure gm-9d6212d37ae-6682  ;   fl-9d6212d37ae-6684   =H    F FFFF  :  a   ` F FFFFF$' :  a  S  `    fl-9d6212d37ae-6687 fl-9d6212d37ae-6688    =     F FFFF  :  :b  < F  : N      :  a  S  ` fl-9d6212d37ae-668c fl-9d6212d37ae-668d    =   !  F FFFF  ": ! #:b ! $ F  %:  $N & # % ' & (:  )a ( *S  )` +fl-9d6212d37ae-6691 ,fl-9d6212d37ae-6692 - + , .=  - /  .F FFFF  0: / 1:b / 2< .F  3:+ 2N 4 1 3 5 4 6gt-9d6212d37ae-6681 7 6 8fl-9d6212d37ae-6696 9 8 := 7  9 ;  :F FFFF  <: ; = :F FFFFF$' >: = ? > @:o = A: = B: = C B > D< :F  E: DN F A C E G:$ = H :F  I:  HN J G > I K: = L:b = M:  DN N L M O K > N P @ F J O Q < ? P R<F  S:  RN Tgm-9d6212d37ae-669d U T; V U Wfl-9d6212d37ae-66a2 Xfl-9d6212d37ae-66a3 Yfl-9d6212d37ae-66a4 Zfl-9d6212d37ae-66a5 [fl-9d6212d37ae-66a6 \ W X Y Z [ ]== V \ ^ U _fl-9d6212d37ae-669f ` _ a=H ^ ` b ]F aFWFFF\$'  c:: b d< ]F a e: dN f: dN g:N dN h: dN i: dN j:P dN k: dN l: dN m: R dN n:  dN o:  dN p f g h i j k l m n o  qgset-operand-visit-count! rg#%set-operand-visit-count!-procedure sgm-9d6212d37ae-66b1 t s; ugt-9d6212d37ae-66af vgt-9d6212d37ae-66b0 w u v x t t yfl-9d6212d37ae-66b6 zfl-9d6212d37ae-66b7 { y z |= w x { } t ~fl-9d6212d37ae-66b3  ~ =H }   t |F FFFF  :   |F FFF$' :  :     :o  :  :     < |F  : N     :   |F  :  N      :  :b  : q N                 <F  : r N gset-operand-use-count! g!%set-operand-use-count!-procedure gm-9d6212d37ae-66c1  ; gt-9d6212d37ae-66bf gt-9d6212d37ae-66c0       fl-9d6212d37ae-66c6 fl-9d6212d37ae-66c7    =      fl-9d6212d37ae-66c3   =H     F FFFF  :   F FFF$' :  :     :o  :  :     < F  : N     :   F  :  N      :  :b  :  N                 <F  :  N gset-operand-copyable?! g!%set-operand-copyable?!-procedure gm-9d6212d37ae-66d1  ; gt-9d6212d37ae-66cf gt-9d6212d37ae-66d0       fl-9d6212d37ae-66d6 fl-9d6212d37ae-66d7    =      fl-9d6212d37ae-66d3   =H     F FFFF  :   F FFF$' :  :     :o  :  :     < F  : N     :   F  :  N      :  :b  :  N                 <F  :  N g%set-operand-residual-value! g'%%set-operand-residual-value!-procedure gm-9d6212d37ae-66e1  ; gt-9d6212d37ae-66df gt-9d6212d37ae-66e0       fl-9d6212d37ae-66e6 fl-9d6212d37ae-66e7    =      fl-9d6212d37ae-66e3   =H     F FFFF  :   F FFF$' :  :     :o  :  :     < F  : N     :   F  :  N      :  :b  :  N                 <F  :  N gset-operand-constant-value! g&%set-operand-constant-value!-procedure gm-9d6212d37ae-66f1  ; gt-9d6212d37ae-66ef gt-9d6212d37ae-66f0       !fl-9d6212d37ae-66f6 "fl-9d6212d37ae-66f7 # ! " $=   # %  &fl-9d6212d37ae-66f3 ' & (=H % ' )  $F (FFFF  *: ) + $F (FFF$' ,: + -: + . , - /:o + 0: + 1: + 2 1 , 3< $F ( 4: 3N 5 0 2 4 6: + 7 $F ( 8:  7N 9 6 , 8 - :: + ;:b + <:  3N = ; < > : , = ? / 5 9 > @ * . ? A<F ( B:  AN Cgset-operand-alias! Dg%set-operand-alias!-procedure Egm-9d6212d37ae-6701 F E; Ggt-9d6212d37ae-66ff Hgt-9d6212d37ae-6700 I G H J F F Kfl-9d6212d37ae-6706 Lfl-9d6212d37ae-6707 M K L N= I J M O F Pfl-9d6212d37ae-6703 Q P R=H O Q S F NF RFFFF  T: S U NF RFFF$' V: U W: U X V W Y:o U Z: U [: U \ [ V ]< NF R ^: ]N _ Z \ ^ `: U a NF R b:  aN c ` V b W d: U e:b U f: C ]N g e f h d V g i Y _ c h j T X i k<F R l: D kN mgand=> ng make-operand ogmake-bound-operands pgmake-unbound-operands qgset-operand-residual-value! rgapply sg visit-operand tgnot ugpair? vgnull? wglist? xgsymbol? ygvector? zglength {geqv? |gequal? }g types-check? ~goperator-size-limitS  ~  goperand-size-limitS   gvalue-size-limitS   g effort-limitS   grecursive-effort-limitS         gcurrent-module gerror f unbound var g vlist->list g string-append gsymbol->string f  gmake-lexical-ref     fno matching pattern gevery gconst? g const-exp gcatch gthe-scm-module geffect g make-void gtest g make-const g  g make-dynwind g g make-dynlet g   z  z gtail   g make-sequence g  gmake-let-values gmake-lambda-case gmake-fix g make-letrec gmake-let g g g  g make-lambda g g g g  g g constant? goperator gcar gcdr gfilter gcompose gvoid? gmake-effects-analyzer g lexical-ref? glexical-ref-gensym gmake-prompt-tag gabort? g tree-il=? g abort-tag   g abort-args g abort-tail g make-prompt g make-abort g sequence? g sequence-exps g@apply glambda-case-alternate gcall gand-map gtake gdrop gsplit-at g fold-right glambda? geffect-free-primitive? gaccessor-primitive? gmemv ft- gt gmake-conditional gcons gconstructor-primitive? gstring? gvector g@call-with-values ffailure- gfailure gmake-toplevel-set gmake-toplevel-define gmake-module-set     gresolve-module gensureS gmodule? gmodule-variable gresolve-primitives! gprimitive-ref? g make-dynset g make-dynref fpost- gpost   fpre- gpre      fwhat! g alist-delete gassq-ref grest   grest-sym   g$ bi  S  g rest-args  S     g? gcut g<>           g= glexical-refcount      |          S     g make-list gtmp ftmp  gmake-lexical-setC5h]4    ,-.541>"G44569h_]6Wgid  gfilenameflanguage/tree-il/peval.scm  2    COh*]C"gid     CRUZh)]C!gx     C]^h@]4?$@45$@6gx  :gtmp  :gtmp  # :gfilenameflanguage/tree-il/peval.scm 2   : g macro-typegidentifier-syntaxC55R44_6Rn{}~ h0Q] CIgdummy  0gevent  0garg   0  0 C]^h(] 45$@6gx  "gtmp "gfilenameflanguage/tree-il/peval.scm >   " g macro-typeg syntax-rulesgpatternsgquotegeventgargg...C5_R_hH-1344554>"G4>"GDgevent Cgargs Cgpp   Cgfilenameflanguage/tree-il/peval.scm E F F   F +  F   G   F  F   H   H  ) H  2 I  C J  C gnameglog*CRh ] 4L5$L6Cgexp  gres  gres  gfilenameflanguage/tree-il/peval.scm N   O  O   P   M    Ch ] 4L5$L6Cgexp  gres  gres  gfilenameflanguage/tree-il/peval.scm Q   R  R   S   M    Chp]Chgexp  gres  gfilenameflanguage/tree-il/peval.scm T    Ch@]U#4OO>XCXFGEgproc  >gexp  >gtag   >g_  3 >gresults  3 >gfilenameflanguage/tree-il/peval.scm L  M   N  6 M   > gnameg tree-il-anyCRhH]45"-$"4455$C"C "gproc  Cgvlist  Cglen  Cgi   <gt  & :gfilenameflanguage/tree-il/peval.scm W  X X   Y   Z  Z   [   [  & [  & [ 4 \  : \  < Y   C gnameg vlist-anyCRhN]LCFgfilenameflanguage/tree-il/peval.scm  _   C h0])"$&q  OQ$N&A  &' $(C66C66CC$&C&C&C&C &C &C&?  $)&  4 5$C"""""gexp  )gw  gfailure  ) gw  G gw  V xgfailure  Z xgw !gw   gfilenameflanguage/tree-il/peval.scm ^  _   ) gnamegsingly-valued-expression?CRh(]45$C45456gx  (gfilenameflanguage/tree-il/peval.scm m  o  o   q   r   r / ! r  & s  ( q   ( gnamegtruncate-valuesg documentationf%Discard all but the first value of X.CRh]Cgname  ggensym  grefcount   gset?   gfilenameflanguage/tree-il/peval.scm y    gnameg%make-var-procedureCR446R-h]Cgt-9d6212d37ae-5bdd  gt-9d6212d37ae-5bde  gt-9d6212d37ae-5bdf   gt-9d6212d37ae-5be0      CU/0h]]L6Uga  gfilenameflanguage/tree-il/peval.scm  y   CS2hM]L6Egfilenameflanguage/tree-il/peval.scm  y    C4h]C   C]^ hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/peval.scm y   n C5R78;<4?>"G BiRhz]$CCrgobj  gfilenameflanguage/tree-il/peval.scm y    gnameg%var?-procedureCCR44D6REh:]C2gt-9d6212d37ae-5bf3    CU/D0h]]L6Uga  gfilenameflanguage/tree-il/peval.scm  y   CS2hM]L6Egfilenameflanguage/tree-il/peval.scm  y    Ch]C   C]^ hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/peval.scm y   n C5DRh|]& C6tgs  gfilenameflanguage/tree-il/peval.scm y    gnameg%var-name-procedureCR446Rh:]C2gerr  gs    Ch:]C2gerr  gs    C h:]C2gerr  gs    CE/h:]C2gt-9d6212d37ae-5bff    CU/0h]]L6Uga  gfilenameflanguage/tree-il/peval.scm  y   CS2hM]L6Egfilenameflanguage/tree-il/peval.scm  y    C1h]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm y   C5R2h~]& C6vgs  gfilenameflanguage/tree-il/peval.scm y    gnameg%var-gensym-procedureC3R4426RAHMh:]C2gerr  gs    CPV[h:]C2gerr  gs    C^dih:]C2gerr  gs    CEh:]C2gt-9d6212d37ae-5c1a    CU/20h]]L6Uga  gfilenameflanguage/tree-il/peval.scm  y   CS2hM]L6Egfilenameflanguage/tree-il/peval.scm  y    Ch]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm y   C52Rh ]& C6xgs  gfilenameflanguage/tree-il/peval.scm y    gnameg%var-refcount-procedureCR446Rh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    CEh:]C2gt-9d6212d37ae-5c35    CU/0h]]L6Uga  gfilenameflanguage/tree-il/peval.scm  y   CS2hM]L6Egfilenameflanguage/tree-il/peval.scm  y    Ch]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm y   C5Rh |]& C6tgs  gfilenameflanguage/tree-il/peval.scm y    gnameg%var-set?-procedureCR446Rh:]C2gerr  gs    Ch:]C2gerr  gs    C h:]C2gerr  gs    CE1h:]C2gt-9d6212d37ae-5c50    CU/0h]]L6Uga  gfilenameflanguage/tree-il/peval.scm  y   CS2hM]L6Egfilenameflanguage/tree-il/peval.scm  y    C3h]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm y   C5R446R9^`ehih v]45Cngdummy  gcheck?  gs   ggetter   gexpr      C]^h(] 45$@6gx  "gtmp "gfilenameflanguage/tree-il/peval.scm y   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5Rjh ]& C6gs  gval  gfilenameflanguage/tree-il/peval.scm y    gnameg%set-var-refcount!-procedureCkR44j6RlhZ]CRgt-9d6212d37ae-5c7e  gt-9d6212d37ae-5c7f    CU/j0h]]L6Uga  gfilenameflanguage/tree-il/peval.scm  y   CS2hM]L6Egfilenameflanguage/tree-il/peval.scm  y    Ch]C   C]^ hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/peval.scm y   n C5jRh ]& C6gs  gval  gfilenameflanguage/tree-il/peval.scm y    gnameg%set-var-set?!-procedureCR446RlhZ]CRgt-9d6212d37ae-5c8e  gt-9d6212d37ae-5c8f    CU/0h]]L6Uga  gfilenameflanguage/tree-il/peval.scm  y   CS2hM]L6Egfilenameflanguage/tree-il/peval.scm  y    Ch]C   C]^ hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/peval.scm y   n C5Rjh]$v&j   45&  " 45&  "4>"GCCCgexp  gres  gw  ! |gvar  - |gval  K ygfilenameflanguage/tree-il/peval.scm    $  -  -  2 % K ! K   Ch] 6gname  gsym  gres   gfilenameflanguage/tree-il/peval.scm   !     Ch] 6gname  gsym  gres   gfilenameflanguage/tree-il/peval.scm   !     Ch] 6gname  gsym  gres   gfilenameflanguage/tree-il/peval.scm   !     Ch] 6gname  gsym  gres   gfilenameflanguage/tree-il/peval.scm   !     Chh]$X&S         4$"$ "$"(/4 >"G4 >"G4 5"$~  $j   $N$2(&       "l"4"/"$ " "   "0"56&*     6&0       6 &*      6 &Q    4 5&  "4>"GCCCgexp  dgres  dgw   egw  " egw  ) egw  0 egw  = egx  } Zgls  Fgp-ls Fgp-ls Fgp-ls Fgw Agw 9gx  9gw  .gx  .gw  gw  w gw  ~ gw   gw   gw   gw   gw   ^gs  . [gfilenameflanguage/tree-il/peval.scm    R  \  c " i ' n 0 s < v    F  _  a  e  h              %  .  .   d Chq]Cigexp  gres  gfilenameflanguage/tree-il/peval.scm    Ch(-.,3#6gexp $gtable $gfilenameflanguage/tree-il/peval.scm $  $ gnamegbuild-var-tableCRh]Cgeffort  gsize  g continuation   g recursive?   gdata   gprev   gfilenameflanguage/tree-il/peval.scm    gnameg%%make-counter-procedureCR446Rh]Cgt-9d6212d37ae-63b6  gt-9d6212d37ae-63b7  gt-9d6212d37ae-63b8   gt-9d6212d37ae-63b9   gt-9d6212d37ae-63ba   gt-9d6212d37ae-63bb      CU/0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm    CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm     Ch]C   C]^ hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/peval.scm   n C5R7; 4?>"G BiRh]$CCwgobj  gfilenameflanguage/tree-il/peval.scm    gnameg%counter?-procedureC!R44"6RE=h:]C2gt-9d6212d37ae-63d2    CU/"0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm    CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm     C?h]C   C]^ hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/peval.scm   n C5"R@h]& C6{gs  gfilenameflanguage/tree-il/peval.scm    gnameg%effort-counter-procedureCAR44@6ROV[h:]C2gerr  gs    C^dih:]C2gerr  gs    Clrxh:]C2gerr  gs    CEh:]C2gt-9d6212d37ae-63de    CU/@0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm    CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm     Ch]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm   C5@Rh]& C6ygs  gfilenameflanguage/tree-il/peval.scm    gnameg%size-counter-procedureCR446Rh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    CEh:]C2gt-9d6212d37ae-63f9    CU/0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm    CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm     Ch]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm   C5Rh ]& C6gs  gfilenameflanguage/tree-il/peval.scm    gnameg%counter-continuation-procedureCR446Rh:]C2gerr  gs    C h:]C2gerr  gs    C$h:]C2gerr  gs    CE@h:]C2gt-9d6212d37ae-6414    CU/0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm    CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm     CBh]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm   C5RCh ]& C6gs  gfilenameflanguage/tree-il/peval.scm    gnameg%counter-recursive?-procedureCDR44C6RRY^h:]C2gerr  gs    Caglh:]C2gerr  gs    Couzh:]C2gerr  gs    CEh:]C2gt-9d6212d37ae-642f    CU/C0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm    CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm     Ch]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm   C5CRh ]& C6ygs  gfilenameflanguage/tree-il/peval.scm    gnameg%counter-data-procedureCR446Rh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    CEh:]C2gt-9d6212d37ae-644a    CU/0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm    CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm     Ch]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm   C5Rh ]& C6ygs  gfilenameflanguage/tree-il/peval.scm    gnameg%counter-prev-procedureCR446R h:]C2gerr  gs    C h:]C2gerr  gs    C!&h:]C2gerr  gs    CEBh:]C2gt-9d6212d37ae-6465    CU/0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm    CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm     CDh]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm   C5R44t6R9TV]hih v]45Cngdummy  gcheck?  gs   ggetter   gexpr      C]^h(] 45$@6gx  "gtmp "gfilenameflanguage/tree-il/peval.scm   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5tR^h ]& C6gs  gval  gfilenameflanguage/tree-il/peval.scm    gnameg"%set-counter-recursive?!-procedureC_R44^6RlhZ]CRgt-9d6212d37ae-6493  gt-9d6212d37ae-6494    CU/^0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm    CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm     Ch]C   C]^ hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/peval.scm   n C5^Rh ]&  " 456xgc  gfilenameflanguage/tree-il/peval.scm     gnameg abort-counterCR@h8] & " 45 $6Cgc  6ge  6gfilenameflanguage/tree-il/peval.scm    !  "  '  -  0  1  4   6 gnamegrecord-effort!CRh8] & " 45 $6Cgc  6gs  6gfilenameflanguage/tree-il/peval.scm    !  "  '  -  0  1  4   6 gnameg record-size!CRhP]$E&  " 45&C&  " 456Cgdata  Ogcounter  Ogfilenameflanguage/tree-il/peval.scm    )  3  M   O gnameg find-counterCR@h -.,3 #& " 45#& " 45& " 45& " 4545& " 45& " 4545Cgfrom gto geffort  gsize  gfrom-v  gto-v  g from-balance  g to-balance  gamount  gfrom-v  gto-v  g from-balance  g to-balance  gamount   gfilenameflanguage/tree-il/peval.scm  * -  8 ( P  U  o +             )                    gnameg transfer!CRh( ]4545Cg effort-limit  $g size-limit  $g continuation   $gdata   $geffort   $gsize   $gfilenameflanguage/tree-il/peval.scm       $ gnamegmake-top-counterCRhH]4 54 54>"GC g continuation  Agdata  Agcurrent   Ageffort   (gsize   (gc  ( Agfilenameflanguage/tree-il/peval.scm      (  +    A gnamegmake-nested-counterCRhp]$4 54 5&  " 45&  " 454>"GChg effort-limit  g size-limit  gorig   gcurrent   geffort  D hgsize  D hg continuation  D hgdata  D hgc  h  gfilenameflanguage/tree-il/peval.scm          ,   D  h   k    gnamegmake-recursive-counterCRh N, 3  CFgvar  gsym  gvisit   gsource   g visit-count   g use-count   g copyable?   gresidual-value   gconstant-value   galias   gfilenameflanguage/tree-il/peval.scm    gnameg%%make-operand-procedureCR446Rh Z, 3   CRgt-9d6212d37ae-655a  gt-9d6212d37ae-655b  gt-9d6212d37ae-655c   gt-9d6212d37ae-655d   gt-9d6212d37ae-655e   gt-9d6212d37ae-655f   gt-9d6212d37ae-6560   gt-9d6212d37ae-6561   gt-9d6212d37ae-6562   gt-9d6212d37ae-6563     CU/0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      Ch]C   C]^ hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/peval.scm    n C5R7;ר4?>"G BiRh]$CCwgobj  gfilenameflanguage/tree-il/peval.scm     gnameg%operand?-procedureCR446REh:]C2gt-9d6212d37ae-6582    CU/0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      Ch]C   C]^ hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/peval.scm    n C5Rh]& C6xgs  gfilenameflanguage/tree-il/peval.scm     gnameg%operand-var-procedureCR446R h:]C2gerr  gs    C h:]C2gerr  gs    C#)/h:]C2gerr  gs    CEKh:]C2gt-9d6212d37ae-658e    CU/0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      CMh]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm    C5RNh]& C6xgs  gfilenameflanguage/tree-il/peval.scm     gnameg%operand-sym-procedureCOR44N6R]dih:]C2gerr  gs    Clrwh:]C2gerr  gs    Czh:]C2gerr  gs    CEh:]C2gt-9d6212d37ae-65a9    CU/N0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      Ch]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm    C5NRh ]& C6{gs  gfilenameflanguage/tree-il/peval.scm     gnameg%%operand-visit-procedureCR446Rh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    CEh:]C2gt-9d6212d37ae-65c4    CU/0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      Ch]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm    C5Rh ]& C6{gs  gfilenameflanguage/tree-il/peval.scm     gnameg%operand-source-procedureCR446R h:]C2gerr  gs    C#h:]C2gerr  gs    C&,1h:]C2gerr  gs    CEMh:]C2gt-9d6212d37ae-65df    CU/0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      COh]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm    C5RPh ]& C6gs  gfilenameflanguage/tree-il/peval.scm     gnameg%operand-visit-count-procedureCQR44P6R_fkh:]C2gerr  gs    Cntyh:]C2gerr  gs    C|h:]C2gerr  gs    CEh:]C2gt-9d6212d37ae-65fa    CU/P0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      Ch]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm    C5PRh ]& C6~gs  gfilenameflanguage/tree-il/peval.scm     gnameg%operand-use-count-procedureCR446Rh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    CEh:]C2gt-9d6212d37ae-6615    CU/0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      Ch]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm    C5Rh ]& C6~gs  gfilenameflanguage/tree-il/peval.scm     gnameg%operand-copyable?-procedureCR446R   h:]C2gerr  gs    C   %h:]C2gerr  gs    C ( . 3h:]C2gerr  gs    CE Oh:]C2gt-9d6212d37ae-6630    CU/0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      C Qh]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm    C5R Rh ]& C6gs  gfilenameflanguage/tree-il/peval.scm     gnameg!%operand-residual-value-procedureC SR44 R6R a h mh:]C2gerr  gs    C p v {h:]C2gerr  gs    C ~  h:]C2gerr  gs    CE h:]C2gt-9d6212d37ae-664b    CU/ R0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      C h]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm    C5 RR h ]& C6gs  gfilenameflanguage/tree-il/peval.scm     gnameg!%operand-constant-value-procedureC R44 6R   h:]C2gerr  gs    C   h:]C2gerr  gs    C   h:]C2gerr  gs    CE h:]C2gt-9d6212d37ae-6666    CU/ 0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      C h]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm    C5 R h ]& C6zgs  gfilenameflanguage/tree-il/peval.scm     gnameg%operand-alias-procedureC R44 6R   h:]C2gerr  gs    C  " 'h:]C2gerr  gs    C * 0 5h:]C2gerr  gs    CE Qh:]C2gt-9d6212d37ae-6681    CU/ 0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      C Sh]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm    C5 R44+6R9 c e phih v]45Cngdummy  gcheck?  gs   ggetter   gexpr      C]^h(] 45$@6gx  "gtmp "gfilenameflanguage/tree-il/peval.scm    " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5+R qh ]& C6gs  gval  gfilenameflanguage/tree-il/peval.scm     gnameg#%set-operand-visit-count!-procedureC rR44 q6Rl hZ]CRgt-9d6212d37ae-66af  gt-9d6212d37ae-66b0    CU/ q0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      C h]C   C]^ hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/peval.scm    n C5 qR h ]& C6gs  gval  gfilenameflanguage/tree-il/peval.scm     gnameg!%set-operand-use-count!-procedureC R44 6Rl hZ]CRgt-9d6212d37ae-66bf  gt-9d6212d37ae-66c0    CU/ 0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      C h]C   C]^ hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/peval.scm    n C5 R h ]& C6gs  gval  gfilenameflanguage/tree-il/peval.scm     gnameg!%set-operand-copyable?!-procedureC R44 6Rl hZ]CRgt-9d6212d37ae-66cf  gt-9d6212d37ae-66d0    CU/ 0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      C h]C   C]^ hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/peval.scm    n C5 R h ]& C6gs  gval  gfilenameflanguage/tree-il/peval.scm     gnameg'%%set-operand-residual-value!-procedureC R44 6Rl hZ]CRgt-9d6212d37ae-66df  gt-9d6212d37ae-66e0    CU/ 0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      C h]C   C]^ hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/peval.scm    n C5 R h ]& C6gs  gval  gfilenameflanguage/tree-il/peval.scm     gnameg&%set-operand-constant-value!-procedureC R44 6Rl @hZ]CRgt-9d6212d37ae-66ef  gt-9d6212d37ae-66f0    CU/ 0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      C Bh]C   C]^ hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/peval.scm    n C5 R Ch ]& C6gs  gval  gfilenameflanguage/tree-il/peval.scm     gnameg%set-operand-alias!-procedureC DR44 C6Rl jhZ]CRgt-9d6212d37ae-66ff  gt-9d6212d37ae-6700    CU/ C0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      C lh]C   C]^ hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/peval.scm    n C5 CR mhT-.,3###45$ &  " 45"&  " 45$"  CLgvar gsym gsource  gvisit  galias  gsource  0 g copyable?   galias   gfilenameflanguage/tree-il/peval.scm ( ( -  0 -  8 /  ; / $ T /  \ 0  x 0   .   gnameg make-operandC nRf nh]L6gname  gsym  gsource   galias   gfilenameflanguage/tree-il/peval.scm 4  5    C nh]L6gname  gsym  gsource   gfilenameflanguage/tree-il/peval.scm 7  8    Ch@-.,3#$O6O6gvars ?gsyms ?gsources  ?gvisit  ?galiases  ?gfilenameflanguage/tree-il/peval.scm 2  3  . 4  ? 7  ?  gnamegmake-bound-operandsC oRf nh]6gvars  gsyms  gfilenameflanguage/tree-il/peval.scm ; <   gnamegmake-unbound-operandsC pR h]$&q  $V&G  &+ $("""""""& C6gop  gval  gw   gw  6 pgw  E ggval  gfilenameflanguage/tree-il/peval.scm >  A  ?   gnamegset-operand-residual-value!C qRPP qh@{]L& L " 4L5L&L CL6sgval  9gfilenameflanguage/tree-il/peval.scm T  U ,  U (  U   9 CP qh@{]L& L " 4L5L&L CL6sgval  9gfilenameflanguage/tree-il/peval.scm e  f ,  f (  f   9 CP qh@{]L& L " 4L5L&L CL6sgval  9gfilenameflanguage/tree-il/peval.scm T  U ,  U (  U   9 C h8r]L& L "4L>"GL6jgfilenameflanguage/tree-il/peval.scm [   _  1 Z   1 gnamegabortC rP qh@{]L& L " 4L5L&L CL6sgval  9gfilenameflanguage/tree-il/peval.scm e  f ,  f (  f   9 CP qh@{]L& L " 4L5L&L CL6sgval  9gfilenameflanguage/tree-il/peval.scm e  f ,  f (  f   9 Ch-.,3##&  " 45 $POO4O>"GV&  " 45$$"$"$D4&  " 45&  " 45>"y UX4&  " 45&  " 454  O5> X"/G4  >"X4O>"GCX4O>"GFCgop gcounter gctx  g effort-limit  g size-limit  gtag  \g_  I \gresults  I \gfilenameflanguage/tree-il/peval.scm I ! R  : R  ? R  N S  f W  W X  X X 8 X  Y  Y ) Y  Z  a   b  ) c  C a  L Z  c S    gnameg visit-operandC sR t u v w x y z { | h]$C$"K$"=$"/$"!$"$"$ 4 5 C $" $" $ 4 5 CCgprimitive-name  gargs  gfilenameflanguage/tree-il/peval.scm j k  k n  s n  } k  p  p   gnameg types-check?C }R     h(] 4M5$C4M56gsym  &gv &gfilenameflanguage/tree-il/peval.scm                 - &    & gnameg lookup-varCf    h@] 444& " 455554M5NCgvar  ?gnew - ?gfilenameflanguage/tree-il/peval.scm         -   = '  - )  - +   -   -  0   <    ? Ch]LO6|gvars  gfilenameflanguage/tree-il/peval.scm        gnameg fresh-gensymsC h@] &  " 45& C6gop  9gval  9gfilenameflanguage/tree-il/peval.scm     #        9 gnamegrecord-operand-useC q h`] &  " 45 $4>"G"& C6gop  Zgn  Zgcount  Zgfilenameflanguage/tree-il/peval.scm          %  *   +   D    Z gnamegunrecord-operand-usesC q N h-.,3##4L>"G&"$4>"G"& " 45& " 4 5& " 4 56gop gctx gval  gs  { gfilenameflanguage/tree-il/peval.scm      8   F   G   d  # {    5   gnamegresidualize-lexicalC  hH]"%$456456$(C""gsrc  Egvalues  Egfilenameflanguage/tree-il/peval.scm          7          E gnameg make-valuesC  f   { r | hH]L$"L$4L>"44L5L> GDgresults = Ggfilenameflanguage/tree-il/peval.scm        *   -   <   @  G    G Chr-13Djg_ gfilenameflanguage/tree-il/peval.scm       C     ho]L6ggt-9d6212d37ae-6b11  gfilenameflanguage/tree-il/peval.scm  %  C }h]45$454O> G$C $ 6 $$  664 O56456"456 &45$ 6"" gsrc  gname  gargs   gctx   g make-values   gargs   2gsuccess?  3 gvalues  3 gfilenameflanguage/tree-il/peval.scm           *       6   @   I  O   X  [   _   f  # h   m  $ o   t                         gnamegfold-constantsC                    z      .h0 ]i""""""s"""V"$&7    4L5$ 6C&7    4L5$ 6C&  45$ 45"$ "$ 4  56"$Y4 5$<(( 4L 5  $ 4  56C4  564  56$"}4  56"a4  564  56$&   $&w              &/4L 5  $4   5 6C"""""$M&@     4L5$6C"V"R$V&I      4L5$6C""$M&@     4L5$6C""$&C"w"s$&C"Y"U$&C";"7$&C""$&~  $g&Z  &C L45$,L$L45"$4 L56CC"""""""i"""|"-$"&3L $)L$L "$L4 L56CC!&3L $)L$L "$L4 L56CC"&3L $)L$L "$L4 L56CC#&3L $)L$L "$L4 L56CC$&3L $)L$L "$L4 L56CC%&3L $)L$L "$L4 L56CC&&3L $)L$L "$L4 L56CC&q  $Z&M  4'5$3L $)L$L "$4 L56CC"F"B">":"6$@(&3L $)L$L "$L4 L56CC""$@)&3L $)L$L "$L4 L56CC"="9$@*&3L $)L$L "$L4 L56CC""$@+&3L $)L$L "$L4 L56CC""$@,&3L $)L$L "$L4 L56CC"P"L$@-&3L $)L$L "$L4 L56CC""( gexp  gw > qgw  D qgw  K qgw  R qgbody  [ qgw ~ gw  gw  gw  gbody  gw gw  gtail-len  glen  gls   gn   gp-ls   ghead   kgw , Qgtail 5 Qgw  u gw  tgw   tgw   tgw   lgw   lgw   lgw   lgw   lgw  lgw " lgw ) lgw 0 lgbody @ hgw  gw   gw   gw   gw   gbody   gw  -gw   -gw   -gw   -gw   -gw   -gbody   -gw I gw  O gw  V gw  ] gw  d gbody  m gw  gw   gw  * {gw  9 wgw [ gw  a gw  | =gfilenameflanguage/tree-il/peval.scm      U G  [ G c H o I  t   K  K L M    O / Q  5 Q = R  B S & K S 3 M S & O S  R O    : A  @ A H B O D ! f C  l    <   <  =  >      8   8  9 + :  1   g 4  m 4 u 5  6     > %  E %  I % O % & R % > Y % 5 ^ % * b % g & $ k & 4 o & $ s &  {             )       ! $  ! 4  ! $  ! B  !               )       ! $  ! 4  ! $  ! B  !  %   /   3  9   =  ) B   F  K ! $ O ! 4 S ! $ X ! B Z !  a   k   o  u   y  ) ~      ! $  ! 4  ! $  ! B  !               )       ! $  ! 4  ! $  ! B  !               )       ! $  ! 4  ! $  ! B  !        #  )   -  ) 2   6  ; ! $ ? ! 4 C ! $ H ! B J !  Q             )       ! $  ! 4  ! $  ! B  !               )       ! $  ! 4  ! $  ! B  !     /   3  9   =  ) B   F  K ! $ O ! 4 S ! $ X ! B Z !  b   z   ~       )       ! $  ! 4  ! $  ! B  !               )       ! $  ! 4  ! $  ! B  !               ) #   '  , ! $ 0 ! 4 4 ! $ 9 ! B ; !  C   [   _  e   i  ) n   r  w ! $ { ! 4  ! $  ! B  !       gnamegloopCh(] OQ6gsrc  !gexp  !gnmin   !gnmax   !gconsumer   !gloop   !gfilenameflanguage/tree-il/peval.scm       ! gnameg inline-valuesC h]4M56gx  gfilenameflanguage/tree-il/peval.scm X   ]  ]   gnamegconstant-expression?C h0]L&C&  " 45 Cgop  +gfilenameflanguage/tree-il/peval.scm f   m  m  m  n  ( n  * n   + gnameg referenced?Cf qh y]4>"GCqgop  gval  gfilenameflanguage/tree-il/peval.scm  "   $   C    S O  R  q s  hT]^OQ"" (45  $44 54 55$<45(C44  554 5456("454 4 55 (C4  544  554 5456   "  4  5$      " &  " 4 5$       "&" &  " 4 5 $14 4 5>"G       "^  4 545$ "     "&    "45 "Lgops  g in-order?  gbody   gcounter   gctx   g build-result   g referenced?  gold   gvalues   geffects  gops*  gvalues  geffects  gnew & geffects  J gvalues  [ g effect-vals  gbody  gvalues  gop  geffect   gfilenameflanguage/tree-il/peval.scm _              &  -   1  2   7  " @  4 J   J   R t  S v  [ v  c w i y  l y ! x y  y z  {  y     &      '  0  '   ~          #          "                 &   )   E  H   M   Y   ] m  a m  b m i n   n   n        .   H   .                    :                             4   B   U   gnamegprune-bindingsChx]Cpgx  gres  gfilenameflanguage/tree-il/peval.scm        Chx]Cpgx  gres  gfilenameflanguage/tree-il/peval.scm        Ch]L$CL6gx  gres  gfilenameflanguage/tree-il/peval.scm           Ch@]U%4O >"GXCXFGEgx  @glimit  @gtag   @g_  5 @gresults  5 @gfilenameflanguage/tree-il/peval.scm         8    @ gnamegsmall-expression?CNh0]& " 45456gsym  -gop  -genv   -gfilenameflanguage/tree-il/peval.scm      !  % -    - gnameg extend-envC   h0] $ &  6CCgx  ,gr  ,gw   &gfilenameflanguage/tree-il/peval.scm     &    , C    hH] 4M5$"44M55& C6gsym  Fgv -gs - Fgfilenameflanguage/tree-il/peval.scm                  "  - *   -    F gnamegassigned-lexical?C     R s h]"45$454L5$" 45$& " 45 &  " 4 5$D&  " 4 5$";4 L 5$"&  " 45"n454M5$"44M55 &  " 45$ 4L 5DD45$m454M5$"44M55 &  " 45 $ ",""D $DDgx  g n-aliases  gvar   =gt   :gt  = gs  _ gt  gt  gy  gsym  Kgv   (gs  ( Hgsym  t gv   gs   gfilenameflanguage/tree-il/peval.scm                   /  3   7  =   H   _            :        ,                    - %   (   N   R   S   ^   b   b   c   m   n  1 t   w                  -                             >   gnamegfind-definitionCh]LLL6gexp  gfilenameflanguage/tree-il/peval.scm    *      gnameg for-valueC   h]!$y&n  $Z&O  &: (C$"(44M55$CCCCCCCCCgx  gw  gw  6 |gw  E zgw  ` vgfilenameflanguage/tree-il/peval.scm     c ]  f ]  n ]  r    gnamegmake-prompt-tag?Chy]L6qgval  gop  gfilenameflanguage/tree-il/peval.scm       Chy]4L >"GLCqgval  gop  gfilenameflanguage/tree-il/peval.scm        C   h0]4L5$4L5$ 4L5L6CCgval  )gop  )gfilenameflanguage/tree-il/peval.scm "  #  #  $   #  %  % %   ) C  r    hp>] 4L >"G4L445454544L54L5554LLLLL55LLLL66gval  ngop  ngexp  ` ngfilenameflanguage/tree-il/peval.scm &   -   /   1  1 ' % 1 > ' 1 ' ( 2 ' - 2 > / 2 ' 0 3 ' 5 3 > 7 3 ' 8 2 $ ; 4 ( B 5 ' K 2 $ Q 1  R   ` /  ` .  n    n C   f         pNh(] 4L5& C6gold  $gs $gfilenameflanguage/tree-il/peval.scm     +  &    $ gnamegnew-symC   ih]LLL6ygt-9d6212d37ae-8149  gfilenameflanguage/tree-il/peval.scm  !  :   !   C         z   i    h ]L6gvar  ggensym  ginit   gbody   gfilenameflanguage/tree-il/peval.scm i * k 6  l 6  m 6  j ,   C hx)]HL LL $JL4LL$L"L$ L"5L4LL$45"5L6L LL $QL4LL$L"L5L44LLL 54454LLL 555L64 LLL > G4 L > G4 4LL5L > GL$ L" GL$45" G4LL L> GL45454L54  LOL56!gnon-rest-gensyms vg rest-gensyms vgprovided-gensyms  vgdefault-gensyms  vg provided-vars  vg default-vars  vg rest-vars   vg rest-inits  ' vg default-inits  < v gfilenameflanguage/tree-il/peval.scm (  *  *   )   ,   - $ $ - , * . $ / . - 4 . 9 6 ,  9 0  C 1 $ D 2 . H 2 = J 2 . M 2 ( R 3 ( T 0  X +  _ 5  ` 5  d )  i 7  s 8 $ z 8 ,  9 $ 7  ;  ; $ ; 4 ; $ < * > + > B > + ? + ? ; ? + < * < $ ;  6  X  X * X  V  Z  V  \  \ " \  V   ^   ^ !  ^ -  V   `   a "  a 1  a " ! a  & b  * V  - d  6 d $ ; d  ? V  F f  O g  X h  a i  v e J  v gnameginlined-applicationC mD C^ fh0]4L4LLLL54LL55L6gtmp  )gfilenameflanguage/tree-il/peval.scm           *      )       )    ) gnamegabortC         {     h`G] H44L&"54L5455K(JC LJ454L56?gelts  Zgtest  Zgfilenameflanguage/tree-il/peval.scm         ,      3   8    # %  8 )  # *  # 0  2 2  # 5   7   <  % @   J  0 Q  0 V  4 X  0 Z    Z gnameglpC  i  hX]LLLL6Pgfilenameflanguage/tree-il/peval.scm   1      C       ho]6ggt-9d6212d37ae-9754  gfilenameflanguage/tree-il/peval.scm    C r              h` ]I"""|454 M5NL445 54 4 554 LL4L4 LLL5556$s & LL4L4 LLL556 & LL4L4 LLL556& LL4L4 LLL556" "$&  ""|454 M5NL445 54 4 554 LL4L4 LLL5556 & LL4L4 LLL556 & LL4L4 LLL556& LL4L4 LLL556""D&7   ( LL4L4 LLL556""$L(A ""|454 M5NL445 54 4 554 LL4L4 LLL5556 & LL4L4 LLL556 & LL4L4 LLL556& LL4L4 LLL556""D&7   ( LL4L4 LLL556""$( ""|454 M5NL445 54 4 554 LL4L4 LLL5556 & LL4L4 LLL556 & LL4L4 LLL556& LL4L4 LLL556""D&7   ( LL4L4 LLL556""$(""|454 M5NL445 54 4 55 4 LL4L4 LLL 55 5 6 & LL4L4 LLL556 & LL4L4 LLL556& LL4L4 LLL556""D&7   ( LL4L4 LLL556""$0&# 4L56"""+"'"""i"e&7   ( LL4L4 LLL556"" "$S&F  4L5$*   LL4L4 LLL556""" g alternate  `gt  gfailure  f gw  gw  " gt  3 gfailure   gw  7 _gw  t gw  { gt   gfailure   gw   gw   gw   gt   Zgfailure  6 Xgw   gw  & gt  7 gfailure  gw  ; cgw  | gw  gw  Xgw  / Tgw  6 Tgfilenameflanguage/tree-il/peval.scm [  \  =  C   C   C   C    D % (  ! ,   .   4 F  7 F  < F # = H  A I  B J  F J & J J 3 K J 7 P J  R H  U G  V K  Z K * _ K ? c K * d L ' f K  f K  i v  p x  s y  x  v  E  = x  y  x  v  = x  y  x  v  = x  y  x   v   =  \  ( = - C  1 C  3 C  3 C 6   > D % F  ! J   L   R F  U F  Z F # [ H  _ I  ` J  d J & h J 3 i J 7 n J  p H  s G  t K  x K * } K ?  K *  L '  K   K   v   x   y   x   v   E   =  x   y   x   v   =  x   y   x   v   =  x   y   x   v   = F x  I y  W x  [ v  _ = c \   =  C   C   C   C     D %   !        F   F   F #  H   I   J   J &  J 3  J 7  J   H   G   K   K *  K ?  K *  L '  K   K   v   x   y   x   v   E   =  x   y  " x  & v  ) = 6 x  9 y  G x  K v  N = [ x  ^ y  l x  p v  t =  x   y   x   v   =  \   =  C   C   C   C     D %   !        F   F   F #  H   I   J   J &  J 3  J 7  J  " H  % G  & K  * K * / K ? 3 K * 4 L ' 6 K  6 K  9 v  @ x  C y  Q x  U v  Z E  Z = j x  m y  { x   v   =  x   y   x   v   =  x   y   x   v   =  x   y   x   v   =  \  , = 1 C  5 C  7 C  7 C :   B D % J  ! N   P   V F  Y F  ^ F # _ H  c I  d J  h J & l J 3 m J 7 r J  t H  w G  x K  | K *  K ?  K *  L '  K   K   v   x   y   x   v   E   =  x   y   x   v   =  x   y   x   v   =  x   y   x   v   = J x  M y  [ x  _ v  c = g \   k   k &  k 1  l   j   =  x   y   x   v   =  \   _ ' * \  ? c  B d  P c  T a  X \ .  ` gnameglpC t hx]Q"$&  $&~    $Z&N  &9   O   LLLQ   6CCCCCCC$&  $&}  $g&Z  &C $1(&  45""""""""""gc  ugw  gw  gw  6 gw  < gw  C gw  J gw  e gw  s gw z glp gw mgw  mgw  egw   ]gw   Ygw  . Qgw  5 Qgw  < Qgfilenameflanguage/tree-il/peval.scm M   N [ N ? T Q S U N   u gnamegsimplify-conditionalC          hW]L6Ogfilenameflanguage/tree-il/peval.scm &  '   Chc-13C[gargs gfilenameflanguage/tree-il/peval.scm &  C                      h]LM6gexp  gcounter  gctx   gfilenameflanguage/tree-il/peval.scm        gnamegvisitC o h]L6gnames  ggensyms  gvals   gbody   gfilenameflanguage/tree-il/peval.scm        Ch]LM6gexp  gcounter  gctx   gfilenameflanguage/tree-il/peval.scm        gnamegvisitC h]LL6gnames  ggensyms  gvals   gbody   gfilenameflanguage/tree-il/peval.scm        C   h]$&z   4L5$" 45& " 45&  " 4 5$CCCC gexp  gw ! gt  , Ggop  G gs  c gfilenameflanguage/tree-il/peval.scm     $   ,   <  @   D  G  L  " c      gnameg lookup-aliasCh]LL6gexp  gcounter  gctx   gfilenameflanguage/tree-il/peval.scm  (   *   C   h0](4>"G"L6gnames  .ggensyms  .gvals   .gbody   .gfilenameflanguage/tree-il/peval.scm       /  6   / .    . C                 h(] 454 M5NCgelt  $gnew $gfilenameflanguage/tree-il/peval.scm               $   !    !    $ C h]6gt-9d6212d37ae-af4a  gt-9d6212d37ae-af4b  gfilenameflanguage/tree-il/peval.scm  "  C N     h0] 45$C45$C6gx  ,gt ,gt  ,gfilenameflanguage/tree-il/peval.scm %   % " %   % -  %  , % 7  , C s  h8/?,35OOLQLQ$4>"G""."."+"*"%"$"#"""!" ("""C""""""d" """""":""-"?$+&     O LQ 4L54L5  4 > G 4 O ?$   L O @4 > G4    O?$ L  L O@   4L 56 &C     4L5454L 56456456$&  "$(:  ( "44L 5 56  4L 5 4 5$44 5 5  "|4 5$    "e    "V456 ">""$X&K              4L 54L54L 455OQ4L 5$"x $q $"b$Z&L  $2 &$  !&  $$"&   $&"(04#5$4$5$"k"e"`$F$2%&$   """" "m"""""""""""$C&  $  "(?4#54#54#54'455"$~$j$N$2(&"\"4"/"$""" "4(LO 5$4L5"6 "t"p$"&   $)6*$+6,$C4-$4L5"5 4. 4/M5  $ " M5N C""$&   "" "i"""04L15456 $ 2&      43L  5  $" 43L 5 $4L5 "  "b $\ 2&O       44  4055"""04L15456"" $ "&     $ &        &}    &V45545 5 $ 45 5" 4/ M5$" 6O    Q$" $"$04L154564748595$"4:5$485$;&  " 4<=5$e"U&"Q;&  "4<>>"G;&  " 4<?5""""45"@UHHAOLQ485$4BLL5""$4C5" 4DL L5K4L45J5K$4EJ>"G"JXCXFGE""" """ $T  &G   4F 5$-45 4L   5  $ C0  6""" $|  &o   4G 5$U 45 "Y"k"""""? $+   4L   5  $ C0  64 56 $5    "  $  $($H&  $$(44)55"f*$4I5$> J$K" L$M"+44N55$"6()44+55"4OP54554.QRM5N44RSO Q455"m4I5$4 J$K" L$M"+44N556()44+55"0 4+56""""""J &"L &""" $    T &r $g (\ $LH&?  $(4+5";""""""" $    U &r $g (\ $LH&?  $(4+5""k"g"c"_"["W"S $    T & $ ( $&  $s &f  V&O $=4404WV555""""""""}"y"u"q $    U & $ ( $&  $i &\  V&E $34455""""""""""" $    T & $ ( $&  $ &r  X&[ $I$4()45" """""""""""" $    U & $ ( $&  $ &r  X&[ $I$4()45"6""""""""""""""" $~  &q   4Y 5$W"k 45  $I    X &) $  "  0 6$("ZO Q$q&d  $I &<  V& 04WV560 66666$7H&*  &04WV56"4"0","" 0 6 0 64 56&"*$  """"| $p    [ &S $G (; $'H&  4\5""" """  " $$ (  [ &""` "Y"U $   ] &""0 ") $   V &"x" " $b    X &B $3  $( """"""""  "" $D& 4)5"4+5 44 55  """"""4L,5 "l""$&  $| &o  "D   $2    4^_5  $ 4^ 5"  $   "$"v" $4#5$("x"""I$4L5"445504L 56$&  $ &  V&y "f((40 455"$-$4`4M55"$ "" """""""$&  $ &  X& $$4`4M55"$j$_(T$4`4M55"$040 455"""" " """"""$VH&I  $34a540 455"4"""4 5"w""$"%"  ""b&"!&""d"`"\"X"T$&  $ &  &   (&)6C4 5 "04W5 6$"*$"$" $<4cd 5$+44  55  """~"_"["W"S"O$L&?  $( &  e&   $     $ (   $ "&     $ &   &p  &X (G   &)4f40 5 5""0","("$" """"" """"""$g&     hO L Q 4L*5 "' 4i 4L54L 556 $F H&9    $" """"$" $- & $)6*$+6C""$5j&(   k4L56""$5l&(   m4L56"`"\$Gn&:       o 4L 56" "$p&C""$p&x   4F5$V   &D4qrOs5 4t 5$%4u 5  4uv5&W6CC"_"["W"S$w&C"8"4$dw&W  4F5$=4/M5$C4xL54y5$"SC"""$@z&3   {4L54L56"v"r$,|&  }4L56";"7$L~&?     45454L 56""$&     4L54L54L 5   4`4M 55$b4`4M 55$    64O5 4. Q M5N4  4  4 5564`4M 55$F4O5 4. Q M5N4  44 5  564O54O5 4. Q M5N4.Q M5N4   44 5 4556"D"@$&&   4L5 $&          &    &a45 5 $" $ 45 5" 4L  5$4L5"""    ""  $ Cf 4L56"" $&      HH H H H O LQ4L5K 4LJ 5K 4J J 5K 4LJ 5K 4L J 5K4IJ5$JCLJ JO6"Q"M$&        HHH H H OLQ4L5K 4LJ 5K 4J J  5K 4LJ 5K4L J5K"LJ JO64IJ5$4cL  5$JC"""p"l$R2&E      O Q 4L5 4L 5 4  LO4 55 4L 54L 54I5$)4455"I"L O645$l4K45 5$V454 54444554555"پ"u"q"" $2&s  4^5$ 4^5"  $  "$"ٵ" $4# 5  $ (  4^5$ 4^5"$ "$"O"|$N4#5$:(/ 4^5$ 4^5"$ "$""$4#5$($}&p  $Z &M   V &6 ! ""$"&" #" $$$$ &$ $ %"" &&$&&('4^5)($ 4^(5"**$ *)"$""\,)$.4#-5.+$+(+//$/%&/ / 00&/ 11&4/1M522$2"414M55222Q& 2 " 4<252 $s445!5524LO253444 254354!540#'4.423555544"s""""ּ"ָ"ִ"ְ+$+.+,.--,+""֋(*-,+""xb%&"3!%&"'"\"X"T"P"L"H"D"@"<"8"4"0$"*" """$"""u"ռ"ո $         ""Փ    ""Հ"|$&     4/5  $ " 45   & " 4< 5  Q&  " 4< 5 $.4L 5 4 5$ C 4)564L >"G & " 4< 54L 56"u"q$%&   "&)6&  " 4<5$"1&L6& " 4<5  Q&  " 4< 5 $L6&  " 4<5$47&  " 4<55$1&  " 4<5  "4&"LL5  $p4`4M 55$.4I 5  $"4 5  $"4y 5  $F&"$-&   "4<>"G" C & " 4<5  Q&  " 4< 5 $ C,&1" L 64: 5$4L L5$ C""" L 64L L5$4: 5$" C"&  "4<>"GL 6L6L64/5$" 45"5"y"u$&*$+6C"K"G$H&$)6C""?gexp  /5genv  /5gcounter   /5gctx   /5gfind-definition   /5g for-value   /5gw  gw  gw  gw gmake-prompt-tag? gtag  gbody  gvals  gvals  O gw   gw   gw   gw  gw   gw   gexps   geffects  gw / fgw l gx l ghead } gw   Cgw   Cgw   Cgw  Cgw  Cgw  Cgw % Cgw , Cgw  3 Cgvars  > Cgnew  G Cgenv  ] Cgnew-sym  g Cgbody  y Cgw   gw   gw   gw   gx   gw   gls  " gp-ls  " gsym  / Xgw  b gw   gt   Cgw   gx   gls  ( gp-ls  ( gp-ls  ( gp-ls  ( gold  C mgname  C mgkw  C mgw  w gw   gx   gw   gx   gw   gw  _ gw  e gw  l gnew  gx  gw   gw   gw   gproc  gw i 5gt z gv  gw  gw  gw   gw   gw   gexp   gw \ gw w gw ~ gw  gw   gw   gw   gw   gw   gnargs   gnreq   gnopt   gx   gkey   ginlined-application   gt  - Pgt  gfound  7gcounter  $gtag  S g new-counter  ^ gresult  ^ gabort  q gt  g_   gresults   gw ? }gargs U ygt d ygw gv gx gt gw ! Pgx ! Pgw  6 0gx  6 0gw  K (gw  f  gexp  gmember  gexp  !gt  ( grefcount  1 Mglp  l gexp  gmember  gexp  gw a gx a gw  ~ gw   gw   gx   gexp   gw  vgx  vgw   jgw  ' bgw  - bgw  9 ^gexp  H ^gw  Tgx  Tgw   Hgw   @gw   @gw   8gw   4gw   0gx   0gexp   0gw e (gx e (gw   gw   gw   gw    gw   gw   gx   gexp   gw 9 gx 9 gw  V gw  l gw  r gw   gw   gw   gx   gw   gexp   gw # gx # gw  @ gw  V gw  \ gw  w gw   gw   gx   gw   gexp   gw % gv B gw Q gx Q gw  j xgx  j xgx  u gw   pgfailure   .gw   &gw   &gfailure   &gw   gw   gw  B hgw  H hgx  z gx   gv  9gw  Egx  Egw   0gw   #gw [ qgw  gw  gw  .gx  .gx   gres V gexp k gw   Sgw   Sgw   Kgw  /gw  +gx  +gtail-len  +glen  +gls  = gn  = gp-ls  = gargs  M gw  ` gtail*  f g speculative?  f gargs   gw   ~gw   vgw   rgls   jgexp   2gw  < fgw   ugw   mgw   igw   egx   egw   Ygexp  ? Ugw   gargs*   gexp   gw   gw  o Tgw  u Tgw   Lgw  Hgvals  Hgexp * @gw  p gw  v gw   gw  gw  gx  gw  gw  gw   gw   gw  ( {gw  A wgexp  ] sgw   {gw   {gw   {gw  {gsimplify-conditional  {gv  {gw C sgw   gw   gw   gw   3gw   3gw   3gw  O gw  U gw  \ gw c gw j gw   0gw   0gw   0gw  ,gmodule  (gvar  %gw  l gexp   gw   gw   gw   gw  ! <gw  ' <gw  X gw  ^ gw  e gw l gw  "+gw  "+gw  "+gw "+gpre "+gbody "+gpost "+gpost-sym !% !dgpre-sym !{ !gpre-sym ! "+gpost-sym  ! "+gw  "G #\gw  "M #\gw  "T #\gproducer "c #\gw "~ #2gw " #/gw " #,gw " #)gw  " #!gnmin  " #gnmax  " #gt  " #gt #< #\gw  #x $gw  # $gw  # $gw # $gvars # $gnew # $gops # $genv* # $gbody*  # $gvisit  # $gw  $2 $gw  $8 $gw  $E $gw $L $gw $S $gvars $Z $gnew $Z $gops $Z $genv*  $Z $gbody*  $Z $gvisit  $m $gw  % &Pgw  % &Pgw  %" &Pgw %) &Pg lookup-alias %3 &Pgvars %A &Pgnew %J &Pgops %i &Pgenv  %x &Pgbody  % &Pgexp  % %gsym  & &Hgpairs  & &Hgexp  &2 &Hgw  &l *gw  &r *gtail-len  &{ *glen & *gls & *gn & *gp-ls & *gnames & *gw  & *gw  & *gtail-len  & *glen  & *gls  ' *gn  ' *gp-ls  ' *ggensyms  '$ *kgw  '7 *cgw  '> *cgtail-len  'G *cglen  '\ *cgls  'z *Tgn  'z *Tgp-ls  'z *Tgvals  ' */gw  ' *'gw  ' *gw ' *gw ! ' *gw " ' *gw # ' * gw $ ( * gw % ( *gw & (+ )gw ' (: )gx ( (: )gtail-len ) (E )glen * (Z )gls + (x )gn , (x )gp-ls - (x )gargs . ( )gw / ( )gw 0 ( )gw 1 ( )gv 2 ( (gs 2 ( )gtmps 2 ). )gtmp-syms 3 )> )gexp 4 )} )gw . ) )gw  *9 *Pgw  *u *gw * *gw  * +gw  * +gw  + +gw + +gt + +1gop +1 +gs +M +mgexp + +gw  , .gop  , .gt  ,7 .gs ,o ,gval , -gt -, .gt -K -ygt -_ -vgs - -gt  . .gfilenameflanguage/tree-il/peval.scm   5   6   O       *      *         #  C ! R      8         *     : '      *     :        !  7  K   P   S   b   d   f   i  q   {  * }   }                                          %       6   >   A   G   J   S   ]   ]   m   y        6   :   ;   E   [        L  * U  < _  * `   p      /   0   C  G   w   |                 &      *                                     -   7  * 9   :   D  D  r   z             *                            (  * *   +  " 5   =   $   $  %   $  &   & !  $            $ - u  - u  @ u # L u < M u 3 T t  Y   c  * e   f x " p w  q y  t y  y  y  z  t         !           " $   $   8   N   P                              M   U  X   d   y   }              x   y    .  &              "    *  2  *  %        0  (     !   "   &  % (   (   +  2 1   4   <  - D  ! H   J   N   T  " W   \  & a  / l              "    %  -  %        9  1          7   /                 @   H   ^   b         %   <   %            0   4       ,   9   ,                 ,                 ,              9  B              *   A   *   &      1    .   M  2 Q   V  * [  A ]  * b  & d   h   z                         =   A  & E   F   P   V   Y   ^  - g  ? i  - k   k                1          f   j  x  y     *            $   9            *      $           1      2   5  D  E ]  H ]  P ]  U   Y     ]   ]   ]          ]   ]   ]  !   %  &   /  . :  ; <  . =  ( ?   ?  U   Y            3                                         %   <   %           #                 ,   4 #  E &  ? (  , *   *   @   L   K   P  & W  E Y  & ]   ]   s   w        *     |       (  *  * |  K ~ _       7   8   7   9          *     5     %   /  * 1   3 3  7   w     *     1      &   &   (  (  )   )  *   *  " +  ,   z                           *      *         .   8  * :   <   @   s   |  /          *    *     ]  ]  ]  !  ! ]  ! ]  ! ]  !  !  !   !#  # !%   !%  !(   !0  $ !7  ! !;   !=   !C   !H  # !M  3 !N   !W  % !\  : !`  % !b   !d  !e ]  !h ]  !p ]  !t  !u   !y  $ !{   !{  !~   !  & !  ! !   !   !   !  $ !  3 !   !  ' !  < !  ' !   !   !   !  $ !   !  7 !  ? !  7 !  !   !  & !  ! !   !   !   !  & !  ! !   !   !   "  ) "  A "   "  ' "  < "  ' "  ' "#  < "'  ' ")   "+   "/   "W   "a  * "c   "c   "h  "   "   "   "  5 "  = "  - "   "   "   "   #<  #N   #\  #`   #   #   #   #   #   #   #  #  $  $   $Z   $u   $   $   $   $   $  $  $   $  $  ! $  $   %9   %A   %D   %J   %M   %_  ( %i   %i   %l   %x   %{   %   %  %  %   %  ( %  5 %  ( %   %  %   %  %  %   %  %   %   %   %  %   %   &  &   &   &   &  &"   &#   &.   &0   &2   &2  &H   &T   (  (   (   (  (   (   (  - (   (   ) ~ ) }  )!   )$   ),  2 ).   ).   )1   )>   )A  )F   )O   )X   )a   )h   )m   )y   ){   )}  )}  )   )   +   +   +&  +*   +.  +1 j  +6 k " +M k  +n k +s k +t   +~  * +   + l + m  + m  + o 0 + o & + o  + q  + r * +   +  * +   + r  +   ,   ,   ,  ,  ,  ,7  ,K   ,O  ,U  ,X   ,o  ,  ,  ,   ,  , $ , $  , $ ,  , '  , ' -   - * - * 2 - * % - * ; -, * -,  -5 ]  -8 ]  -@ ]  -D 0 -E 9  -K 9  -Y :  -_ 9  -m ;  -} 0 - B - B  - B  - B 1 - B ( - B  - E  - G " - G  - G  . 0 . M  . 0 . W  . P  . P  .' P  .( Q  .4 P  .M c  .M \  .N \  .Z \  .[ ]  .g \  .u 7  . 8  . h . # .   .   .   .  .   .  .   .   .   /   /   /%   /*   /1  =  /5 gnamegloopCh-/03#45## (# # # # dH H HO O  O   O   Q  Q  Q Q$Q&  45"(&  45""K45K 4 O5K O     Q6gexp  }gcenv  }genv   }goperator-size-limit   }goperand-size-limit   }gvalue-size-limit   }g effort-limit   }grecursive-effort-limit   }glocal-toplevel-env  ` }gstore ` }gcompute-effects ` }g lookup-var }g fresh-gensyms }grecord-operand-use }gunrecord-operand-uses  }gresidualize-lexical  }gfold-constants  }g inline-values  }gconstant-expression?  }gprune-bindings  }gsmall-expression?  }g extend-env  }gw  gw  gloop  E }gfilenameflanguage/tree-il/peval.scm t  t %             V  E   {   }    } goperator-size-limitS goperand-size-limitS gvalue-size-limitS g effort-limitS grecursive-effort-limitS gnamegpevalg documentationf}Partially evaluate EXP in compilation environment CENV, with top-level bindings from ENV and return the resulting expression.CRCgm  ,grtd $ Ngrtd B Cgrtd | }#gfilenameflanguage/tree-il/peval.scm   G E  L  W ^ & m  y >[ ?{ k l; mi n r s ue w  y  ( (  2 б ; i >  I ܬ j Ē t  Ĕ C6