Warning: file_get_contents(https://raw.githubusercontent.com/Den1xxx/Filemanager/master/languages/ru.json): failed to open stream: HTTP request failed! HTTP/1.1 404 Not Found
in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 88
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 215
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 216
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 217
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 218
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 219
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 220
GOOF----LE-8-2.0 ] 4 hM ] g guile g define-module* g language g tree-il g peval
g filenameS f language/tree-il/peval.scm g importsS
g
primitives g effects g ice-9 g vlist g match g srfi g srfi-1 g srfi-9 ! "! #g srfi-11 $ # %$ &g srfi-26 ' & (' )g control *) +* , "%(+
-g exportsS . /g set-current-module 0/ 1/ 2g make-syntax-transformer 32 42 5g *logging* 6g macro 7g identifier? 87 97 :g
syntax-object ;g top <; =g ribcage >g id ?> @g m-9d6212d37ae-5919 A@; BA Cf l-9d6212d37ae-5920 DC E=?BD F= Gg x HG If l-9d6212d37ae-591b JI K=HBJ L<EFK Mg hygiene NM O:LN Pg $sc-dispatch QP RP Sg _ Tg each-any UST Vf l-9d6212d37ae-5923 WV X=HBW Y<XFK Z:YN [g syntax-violation \[ ][ ^f -source expression failed to match any pattern _g log `g any ag free-id bg quote cg m-9d6212d37ae-5926 dc; ed ff l-9d6212d37ae-5928 gf h=Heg i<Fh j:biN kaj lk` mlT n`m og if pg dummy qg event rg arg spqr td<< uf l-9d6212d37ae-592b vf l-9d6212d37ae-592c wf l-9d6212d37ae-592d xuvw y=stx z<yFh {:ozN |g and }:|zN ~:5zN g or :zN g eq? :zN :zN ~ g memq :zN :bzN ~ g log* :zN g
module-ref g resolve-interface g pretty-print g newline g let/ec g tree-il-fold g abort-to-prompt g tree-il-any g vlist-length g vlist-ref g vlist-any g
g g g values g g
g g g g singly-valued-primitive? g singly-valued-expression? g make-application g tree-il-src g make-primitive-ref g truncate-values g g %make-var-procedure g make-var S```` g lambda g m-9d6212d37ae-5be1 ; g t-9d6212d37ae-5bdd g t-9d6212d37ae-5bde g t-9d6212d37ae-5bdf g t-9d6212d37ae-5be0 f l-9d6212d37ae-5be6 f l-9d6212d37ae-5be7 f l-9d6212d37ae-5be8 f l-9d6212d37ae-5be9 = f l-9d6212d37ae-5be3 =H g shift g proc-name g args << f l-1e8ba8b5a-60 f l-1e8ba8b5a-61 = g key g value g name g formals g body <<<<< f l-1e8ba8b5a-53 f l-1e8ba8b5a-54 f l-1e8ba8b5a-55 f l-1e8ba8b5a-56 f l-1e8ba8b5a-57 = g make-procedure-name < f l-1e8ba8b5a-43 = < f l-1e8ba8b5a-42 =H FFFFF
M : <F :N g gensym :N g refcount :N g set? :N g make-struct g m-9d6212d37ae-5bdb ; g t-1e8ba8b5a-133 g t-1e8ba8b5a-132 g t-1e8ba8b5a-131 g m-1e8ba8b5a-134 ; f l-1e8ba8b5a-138 f l-1e8ba8b5a-139 f l-1e8ba8b5a-13a = g ctor-args f l-1e8ba8b5a-120 = g ctor g field f l-1e8ba8b5a-11c f l-1e8ba8b5a-11d = g form g type-name g constructor-spec g field-names
<<<< f l-1e8ba8b5a-111 f l-1e8ba8b5a-112
f l-1e8ba8b5a-113 f l-1e8ba8b5a-114
=
g
record-layout g functional-setters g setters g copier g getters g constructor g getter-identifiers g field-identifiers <<<<<<<< f l-1e8ba8b5a-e9 f l-1e8ba8b5a-e7 f l-1e8ba8b5a-e5 f l-1e8ba8b5a-e3 f l-1e8ba8b5a-e1 f l-1e8ba8b5a-df !f l-1e8ba8b5a-dd "f l-1e8ba8b5a-db # !" $=# %f l-1e8ba8b5a-da &% '=H& (FFFFFF$' ):( *:N +:
( ,)*+ -, .![ /![ 0f Wrong number of arguments 1!7 2!7 3<F 4:3N 5g record-type-vtable 6!5 7!5 8g pwpwpwpw 9g default-record-printer :!9 ;!9 < =g set-struct-vtable-name! >!= ?!= @g vtable-offset-user A!@ B!@ Cg %var?-procedure Dg var? ES` Fg m-9d6212d37ae-5bf4 GF; Hg t-9d6212d37ae-5bf3 IH JG Kf l-9d6212d37ae-5bf9 LK M=IJL Nf l-9d6212d37ae-5bf6 ON P=HJO QGMFPFFFF
R:Q Sg obj Tg t-1e8ba8b5a-224 Ug t-1e8ba8b5a-21e Vg t-1e8ba8b5a-21f Wg t-1e8ba8b5a-220 Xg t-1e8ba8b5a-223 Yg t-1e8ba8b5a-222 Zg t-1e8ba8b5a-221 [TUVWXYZ \g m-1e8ba8b5a-225 ]\; ^]]]]]]] _f l-1e8ba8b5a-229 `f l-1e8ba8b5a-22a af l-1e8ba8b5a-22b bf l-1e8ba8b5a-22c cf l-1e8ba8b5a-22d df l-1e8ba8b5a-22e ef l-1e8ba8b5a-22f f_`abcde g=[^f hg copier-id ih jf l-1e8ba8b5a-21c kj l=ik mg ctor-name nm of l-1e8ba8b5a-214 po q=np r sf l-1e8ba8b5a-212 ts u=rt vg layout wv xf l-1e8ba8b5a-210 yx z=wy {g
immutable? |{ }f l-1e8ba8b5a-20e ~} =|~ g field-count f l-1e8ba8b5a-20c = g
getter-ids f l-1e8ba8b5a-209 = g field-ids f l-1e8ba8b5a-206 = g predicate-name g
field-spec { <<<<<< f l-1e8ba8b5a-1f9 f l-1e8ba8b5a-1fa f l-1e8ba8b5a-1fb f l-1e8ba8b5a-1fc f l-1e8ba8b5a-1fd f l-1e8ba8b5a-1fe = MFPFgFFFFlFqFuFzFFFF$' :S :| g struct? : : g
struct-vtable : <MFP :N R <FP :CN g throw-bad-struct ! ! g var-name g %var-name-procedure g
%%on-error g m-9d6212d37ae-5c00 ; f l-9d6212d37ae-5c02 =H FFFFF : a ` g %%type g t-1e8ba8b5a-14b g t-1e8ba8b5a-14c g t-1e8ba8b5a-14d g t-1e8ba8b5a-14e g t-1e8ba8b5a-14f g t-1e8ba8b5a-150 g t-1e8ba8b5a-151 g m-1e8ba8b5a-152 ; f l-1e8ba8b5a-156 f l-1e8ba8b5a-157 f l-1e8ba8b5a-158 f l-1e8ba8b5a-159 f l-1e8ba8b5a-15a f l-1e8ba8b5a-15b f l-1e8ba8b5a-15c = g getter g index f l-1e8ba8b5a-149 f l-1e8ba8b5a-14a = h <<< f l-1e8ba8b5a-144 f l-1e8ba8b5a-145 f l-1e8ba8b5a-146 = FFFFFF$' : a S` g ck g err g s f l-9d6212d37ae-5c05 f l-9d6212d37ae-5c06 = FFFFF
: :b <F :N g %%index : a S` f l-9d6212d37ae-5c0a f l-9d6212d37ae-5c0b = FFFFF
: :b F :
N g %%copier : a S` f l-9d6212d37ae-5c0f f l-9d6212d37ae-5c10
=
FFFFF
:
:b g %%-set-fields <
F :N
g t-9d6212d37ae-5bff f l-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 4g m-9d6212d37ae-5c1b 54; 65 7f l-9d6212d37ae-5c1d 87 9=H68 :5F9FFFF ;:: <a; =<` >F9FFFFF$' ?:> @a? AS=@` B55 Cf l-9d6212d37ae-5c20 Df l-9d6212d37ae-5c21 ECD F=BE G5FF9FFFF
H:G I:bG J<FF9 K:JN LIK ML N:> OaN PS=O` Qf l-9d6212d37ae-5c25 Rf l-9d6212d37ae-5c26 SQR T=BS U5TF9FFFF
V:U W:bU XTF9 Y: XN ZWY [Z \:> ]a\ ^S=]` _f l-9d6212d37ae-5c2a `f l-9d6212d37ae-5c2b a_` b=Ba c5bF9FFFF
d:c e:bc f<bF9 g:fN heg ih jg t-9d6212d37ae-5c1a kj lf l-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 g m-9d6212d37ae-5c36 ; f l-9d6212d37ae-5c38 =H FFFFF : a ` FFFFFF$' : a S` f l-9d6212d37ae-5c3b f l-9d6212d37ae-5c3c = FFFFF
: :b <F :N : a S` f l-9d6212d37ae-5c40 f l-9d6212d37ae-5c41 = FFFFF
: :b F : N : a S` f l-9d6212d37ae-5c45 f l-9d6212d37ae-5c46 = FFFFF
: :b <F :N g t-9d6212d37ae-5c35 f l-9d6212d37ae-5c4a = FFFFF
: FFFFFF$' : :o : : <F :N :$ F : N : :b :N <F :N g var-set? g %var-set?-procedure g m-9d6212d37ae-5c51 ; f l-9d6212d37ae-5c53 =H FFFFF : a ` FFFFFF$' : a S` f l-9d6212d37ae-5c56 f l-9d6212d37ae-5c57 = FFFFF
: :b <F :N : a S` f l-9d6212d37ae-5c5b f l-9d6212d37ae-5c5c = FFFFF
: :b F : N : a
S ` f l-9d6212d37ae-5c60 f l-9d6212d37ae-5c61
=
FFFFF
: :b <F :N g t-9d6212d37ae-5c50 f l-9d6212d37ae-5c65 = FFFFF
: FFFFFF$' : :o !: ": #" $<F %:$N &!#% ':$ (F ): (N *' ) +: ,:b -:$N .,- /+ . 0 &*/ 1 0 2<F 3:2N 4g each 5`` 645 7`6 8`7 9`8 :g %%set-fields ;g check? g m-9d6212d37ae-5c6c ?>; @? Af l-9d6212d37ae-5c71 Bf l-9d6212d37ae-5c72 Cf l-9d6212d37ae-5c73 Df l-9d6212d37ae-5c74 Ef l-9d6212d37ae-5c75 FABCDE G==@F H? If l-9d6212d37ae-5c6e JI K=HHJ Lg t-1e8ba8b5a-16a Mg t-1e8ba8b5a-16c Ng t-1e8ba8b5a-16b OLMN Pg m-1e8ba8b5a-16d QP; RQQQ Sf l-1e8ba8b5a-171 Tf l-1e8ba8b5a-172 Uf l-1e8ba8b5a-173 VSTU W=ORV Xf l-1e8ba8b5a-167 Yf l-1e8ba8b5a-168 Zf l-1e8ba8b5a-169 [XYZ \=[ ]GFKFWFFF\$'
^::] _<GFK `:_N a:_N b:2_N c:_N d:_N eabcd fg map gf hf ig list jg set-var-refcount! kg %set-var-refcount!-procedure lS`` mg m-9d6212d37ae-5c80 nm; og t-9d6212d37ae-5c7e pg t-9d6212d37ae-5c7f qop rnn sf l-9d6212d37ae-5c85 tf l-9d6212d37ae-5c86 ust v=qru wn xf l-9d6212d37ae-5c82 yx z=Hwy {nvFzFFFF
|:{ }g t-1e8ba8b5a-18c ~g t-1e8ba8b5a-18d }~ g m-1e8ba8b5a-18e ; f l-1e8ba8b5a-192 f l-1e8ba8b5a-193 = g setter f l-1e8ba8b5a-186 f l-1e8ba8b5a-187 f l-1e8ba8b5a-188 = f l-1e8ba8b5a-17d f l-1e8ba8b5a-17e = g field-specs f l-1e8ba8b5a-179 f l-1e8ba8b5a-17a = vFzFFF$' : g val : :o : : <vFz :N g struct-set! : vFz : N : :b :jN | <Fz :kN g
set-var-set?! g %set-var-set?!-procedure g m-9d6212d37ae-5c90 ; g t-9d6212d37ae-5c8e g t-9d6212d37ae-5c8f f l-9d6212d37ae-5c95 f l-9d6212d37ae-5c96 = f l-9d6212d37ae-5c92 =H FFFFF
: FFFF$' : : :o : : <F :N : F : N : :b :N <F :N g
vlist-null g
vhash-assq g
g fold g vhash-consq g append g reverse g g g g
g build-var-table g g %%make-counter-procedure g
%make-counter S`````` g m-9d6212d37ae-63bc ; g t-9d6212d37ae-63b6 g t-9d6212d37ae-63b7 g t-9d6212d37ae-63b8 g t-9d6212d37ae-63b9 g t-9d6212d37ae-63ba g t-9d6212d37ae-63bb f l-9d6212d37ae-63c1 f l-9d6212d37ae-63c2 f l-9d6212d37ae-63c3 f l-9d6212d37ae-63c4 f l-9d6212d37ae-63c5 f l-9d6212d37ae-63c6 = f l-9d6212d37ae-63be =H FFFFF
: g effort < F :N
g size :
N g continuation
: N g
recursive? :N g data :N g prev :N
g m-9d6212d37ae-63b4 ; FFFFFF$' : :N :
<F : N g pwpwpwpwpwpw
!g %counter?-procedure "g counter? #g m-9d6212d37ae-63d3 $#; %g t-9d6212d37ae-63d2 &% '$ (f l-9d6212d37ae-63d8 )( *=&') +f l-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 @g effort-counter Ag %effort-counter-procedure Bg m-9d6212d37ae-63df CB; DC Ef l-9d6212d37ae-63e1 FE G=HDF HCFGFFFF I:H JaI KJ` LFGFFFFF$' M:L NaM OSKN` PCC Qf l-9d6212d37ae-63e4 Rf l-9d6212d37ae-63e5 SQR T=PS UCTFGFFFF
V:U W:bU X<TFG Y:XN ZWY [Z \:L ]a\ ^SK]` _f l-9d6212d37ae-63e9 `f l-9d6212d37ae-63ea a_` b=Pa cCbFGFFFF
d:c e:bc fbFG g:
fN heg ih j:L kaj lSKk` mf l-9d6212d37ae-63ee nf l-9d6212d37ae-63ef omn p=Po qCpFGFFFF
r:q s:bq tg %%-set-fields u<pFG v:tuN wsv xw yg t-9d6212d37ae-63de zy {f l-9d6212d37ae-63f3 |{ }=zD| ~C}FGFFFF
:~ }FGFFFFF$' : :o : : <}FG :N :$ }FG :
N : :b :@N <FG :AN g size-counter g %size-counter-procedure g m-9d6212d37ae-63fa ; f l-9d6212d37ae-63fc =H FFFFF : a ` FFFFFF$' : a S` f l-9d6212d37ae-63ff f l-9d6212d37ae-6400 = FFFFF
: :b <F :N : a S` f l-9d6212d37ae-6404 f l-9d6212d37ae-6405 = FFFFF
: :b F : N : a S` f l-9d6212d37ae-6409 f l-9d6212d37ae-640a = FFFFF
: :b <F :tN g t-9d6212d37ae-63f9 f l-9d6212d37ae-640e = FFFFF
: FFFFFF$' : :o : : <F :N :$ F : N : :b :N <F :N g counter-continuation g %counter-continuation-procedure g m-9d6212d37ae-6415 ; f l-9d6212d37ae-6417 =H FFFFF : a ` FFFFFF$' : a S` f l-9d6212d37ae-641a f l-9d6212d37ae-641b = FFFFF
: :b <F :N :
a S
` f l-9d6212d37ae-641f
f l-9d6212d37ae-6420
= FFFFF
: :b F : N : a S` f l-9d6212d37ae-6424 f l-9d6212d37ae-6425 = FFFFF
: :b !< F ":t!N # " $# %g t-9d6212d37ae-6414 &% 'f l-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 Cg counter-recursive? Dg %counter-recursive?-procedure Eg m-9d6212d37ae-6430 FE; GF Hf l-9d6212d37ae-6432 IH J=HGI KFFJFFFF L:K MaL NM` OFJFFFFF$' P:O QaP RSNQ` SFF Tf l-9d6212d37ae-6435 Uf l-9d6212d37ae-6436 VTU W=SV XFWFJFFFF
Y:X Z:bX [<WFJ \:[N ]Z\ ^] _:O `a_ aSN`` bf l-9d6212d37ae-643a cf l-9d6212d37ae-643b dbc e=Sd fFeFJFFFF
g:f h:bf ieFJ j: iN khj lk m:O nam oSNn` pf l-9d6212d37ae-643f qf l-9d6212d37ae-6440 rpq s=Sr tFsFJFFFF
u:t v:bt w<sFJ x:twN yvx zy {g t-9d6212d37ae-642f |{ }f l-9d6212d37ae-6444 ~} =|G~ FFJFFFF
: FJFFFFF$' : :o : : <FJ :N :$ FJ : N : :b :CN <FJ :DN g counter-data g %counter-data-procedure g m-9d6212d37ae-644b ; f l-9d6212d37ae-644d =H FFFFF : a ` FFFFFF$' : a S` f l-9d6212d37ae-6450 f l-9d6212d37ae-6451 = FFFFF
: :b <F :N : a S` f l-9d6212d37ae-6455 f l-9d6212d37ae-6456 = FFFFF
: :b F : N : a S` f l-9d6212d37ae-645a f l-9d6212d37ae-645b = FFFFF
: :b <F :tN g t-9d6212d37ae-644a f l-9d6212d37ae-645f = FFFFF
: FFFFFF$' : :o : : <F :N :$ F : N : :b :N <F :N g counter-prev g %counter-prev-procedure g m-9d6212d37ae-6466 ; f l-9d6212d37ae-6468 =H FFFFF : a ` FFFFFF$' : a S` f l-9d6212d37ae-646b f l-9d6212d37ae-646c = FFFFF
: :b <F :N
: a
S ` f l-9d6212d37ae-6470 f l-9d6212d37ae-6471 = FFFFF
: :b F : N : a S` f l-9d6212d37ae-6475 f l-9d6212d37ae-6476 = FFFFF
!: ":b #< F $:t#N %"$ &% 'g t-9d6212d37ae-6465 (' )f l-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 Eg m-9d6212d37ae-6481 FE; GF Hf l-9d6212d37ae-6486 If l-9d6212d37ae-6487 Jf l-9d6212d37ae-6488 Kf l-9d6212d37ae-6489 Lf l-9d6212d37ae-648a MHIJKL N==GM OF Pf l-9d6212d37ae-6483 QP R=HOQ SNFRFWFFF\$'
T::S U<NFR V:UN W:@UN X:UN Y:UN Z:CUN [:UN \:UN ]WXYZ[\ ^g set-counter-recursive?! _g "%set-counter-recursive?!-procedure `g m-9d6212d37ae-6495 a`; bg t-9d6212d37ae-6493 cg t-9d6212d37ae-6494 dbc eaa ff l-9d6212d37ae-649a gf l-9d6212d37ae-649b hfg i=deh ja kf l-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 g record-effort! g record-size! g find-counter g min g transfer! g
make-variable g make-top-counter g make-nested-counter g make-recursive-counter g g %%make-operand-procedure g
%make-operand S`````````` g m-9d6212d37ae-6564 ; g t-9d6212d37ae-655a g t-9d6212d37ae-655b g t-9d6212d37ae-655c g t-9d6212d37ae-655d g t-9d6212d37ae-655e g t-9d6212d37ae-655f g t-9d6212d37ae-6560 g t-9d6212d37ae-6561 g t-9d6212d37ae-6562 g t-9d6212d37ae-6563
f l-9d6212d37ae-6569 f l-9d6212d37ae-656a f l-9d6212d37ae-656b f l-9d6212d37ae-656c f l-9d6212d37ae-656d f l-9d6212d37ae-656e f l-9d6212d37ae-656f f l-9d6212d37ae-6570 f l-9d6212d37ae-6571 f l-9d6212d37ae-6572
= f l-9d6212d37ae-6566 =H FFFFF
: g var <F :N g sym :N g visit :N g source :N g visit-count :N g use-count :N g copyable? :N g residual-value :N g constant-value :N g alias :N
g m-9d6212d37ae-6558 ; FFFFFF$' : :N :
<F :N g pwpwpwpwpwpwpwpwpwpw
g %operand?-procedure g operand? g m-9d6212d37ae-6583 ; g t-9d6212d37ae-6582 f l-9d6212d37ae-6588 = f l-9d6212d37ae-6585 =H FFFFF
: FFgFFFFlFqFuFzFFFF$' :S :| : : : <F :N <F :N g operand-var g %operand-var-procedure g m-9d6212d37ae-658f ; f l-9d6212d37ae-6591 =H FFFFF : a ` FFFFFF$' : a S` f l-9d6212d37ae-6594 f l-9d6212d37ae-6595
=
FFFFF
: :b < F :N : a S` f l-9d6212d37ae-6599 f l-9d6212d37ae-659a = FFFFF
: :b F :
N !: "a! #S"` $f l-9d6212d37ae-659e %f l-9d6212d37ae-659f &$% '=& ('FFFFF
):( *:b( +g %%-set-fields ,<'F -:+,N .*- /. 0g t-9d6212d37ae-658e 10 2f l-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 Pg m-9d6212d37ae-65aa QP; RQ Sf l-9d6212d37ae-65ac TS U=HRT VQFUFFFF W:V XaW YX` ZFUFFFFF$' [:Z \a[ ]SY\` ^QQ _f l-9d6212d37ae-65af `f l-9d6212d37ae-65b0 a_` b=^a cQbFUFFFF
d:c e:bc f<bFU g:fN heg ih j:Z kaj lSYk` mf l-9d6212d37ae-65b4 nf l-9d6212d37ae-65b5 omn p=^o qQpFUFFFF
r:q s:bq tpFU u: tN vsu wv x:Z yax zSYy` {f l-9d6212d37ae-65b9 |f l-9d6212d37ae-65ba }{| ~=^} Q~FUFFFF
: :b <~FU :+N g t-9d6212d37ae-65a9 f l-9d6212d37ae-65be =R QFUFFFF
: FUFFFFF$' : :o : : <FU :N :$ FU : N : :b :NN <FU :ON g %operand-visit g %%operand-visit-procedure g m-9d6212d37ae-65c5 ; f l-9d6212d37ae-65c7 =H FFFFF : a ` FFFFFF$' : a S` f l-9d6212d37ae-65ca f l-9d6212d37ae-65cb = FFFFF
: :b <F :N : a S` f l-9d6212d37ae-65cf f l-9d6212d37ae-65d0 = FFFFF
: :b F : N : a S` f l-9d6212d37ae-65d4 f l-9d6212d37ae-65d5 = FFFFF
: :b <F :+N g t-9d6212d37ae-65c4 f l-9d6212d37ae-65d9 = FFFFF
: FFFFFF$' : :o : : <F :N :$ F : N : :b :N <F :N g operand-source g %operand-source-procedure g m-9d6212d37ae-65e0 ; f l-9d6212d37ae-65e2 =H FFFFF : a ` FFFFFF$' : a S`
f l-9d6212d37ae-65e5 f l-9d6212d37ae-65e6
=
FFFFF
: :b <F :N : a S` f l-9d6212d37ae-65ea f l-9d6212d37ae-65eb =
FFFFF
: :b F !: N " ! #" $: %a$ &S%` 'f l-9d6212d37ae-65ef (f l-9d6212d37ae-65f0 )'( *=
) +*FFFFF
,:+ -:b+ .<*F /:+.N 0-/ 10 2g t-9d6212d37ae-65df 32 4f l-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 Pg operand-visit-count Qg %operand-visit-count-procedure Rg m-9d6212d37ae-65fb SR; TS Uf l-9d6212d37ae-65fd VU W=HTV XSFWFFFF Y:X ZaY [Z` \FWFFFFF$' ]:\ ^a] _S[^` `SS af l-9d6212d37ae-6600 bf l-9d6212d37ae-6601 cab d=`c eSdFWFFFF
f:e g:be h<dFW i:hN jgi kj l:\ mal nS[m` of l-9d6212d37ae-6605 pf l-9d6212d37ae-6606 qop r=`q sSrFWFFFF
t:s u:bs vrFW w: vN xuw yx z:\ {az |S[{` }f l-9d6212d37ae-660a ~f l-9d6212d37ae-660b }~ =` SFWFFFF
: :b <FW :+N g t-9d6212d37ae-65fa f l-9d6212d37ae-660f =T SFWFFFF
: FWFFFFF$' : :o : : <FW :N :$ FW : N : :b :PN <FW :QN g operand-use-count g %operand-use-count-procedure g m-9d6212d37ae-6616 ; f l-9d6212d37ae-6618 =H FFFFF : a ` FFFFFF$' : a S` f l-9d6212d37ae-661b f l-9d6212d37ae-661c = FFFFF
: :b <F :N : a S` f l-9d6212d37ae-6620 f l-9d6212d37ae-6621 = FFFFF
: :b F : N : a S` f l-9d6212d37ae-6625 f l-9d6212d37ae-6626 = FFFFF
: :b <F :+N g t-9d6212d37ae-6615 f l-9d6212d37ae-662a = FFFFF
: FFFFFF$' : :o : : <F :N :$ F : N : :b :N <F :N g operand-copyable? g %operand-copyable?-procedure g m-9d6212d37ae-6631 ; f l-9d6212d37ae-6633 =H F FFFF : a ` F FFFFF$' :
a S
`
f l-9d6212d37ae-6636 f l-9d6212d37ae-6637
= F FFFF
: :b < F : N : a S ` f l-9d6212d37ae-663b f l-9d6212d37ae-663c = F FFFF
: !:b " F #: "N $ ! # % $ &: 'a & (S '` )f l-9d6212d37ae-6640 *f l-9d6212d37ae-6641 + ) * ,= + - ,F FFFF
.: - /:b - 0< ,F 1:+ 0N 2 / 1 3 2 4g t-9d6212d37ae-6630 5 4 6f l-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 Rg operand-residual-value Sg !%operand-residual-value-procedure Tg m-9d6212d37ae-664c U T; V U Wf l-9d6212d37ae-664e X W Y=H V X Z UF YFFFF [: Z \a [ ] \` ^F YFFFFF$' _: ^ `a _ aS ] `` b U U cf l-9d6212d37ae-6651 df l-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` qf l-9d6212d37ae-6656 rf l-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 ] }` f l-9d6212d37ae-665b f l-9d6212d37ae-665c = b U F YFFFF
: :b < F Y :+ N g t-9d6212d37ae-664b f l-9d6212d37ae-6660 = V U F YFFFF
: F YFFFFF$' : :o : : < F Y : N :$ F Y : N : :b : R N <F Y : S N g operand-constant-value g !%operand-constant-value-procedure g m-9d6212d37ae-6667 ; f l-9d6212d37ae-6669 =H F FFFF : a ` F FFFFF$' : a S ` f l-9d6212d37ae-666c f l-9d6212d37ae-666d = F FFFF
: :b < F : N : a S ` f l-9d6212d37ae-6671 f l-9d6212d37ae-6672 = F FFFF
: :b F : N : a S ` f l-9d6212d37ae-6676 f l-9d6212d37ae-6677 = F FFFF
: :b < F :+ N g t-9d6212d37ae-6666 f l-9d6212d37ae-667b = F FFFF
: F FFFFF$' : :o : : < F : N :$ F : N : :b : N <F : N g
operand-alias g %operand-alias-procedure
g m-9d6212d37ae-6682
;
f l-9d6212d37ae-6684
=H
F
FFFF
:
a
`
F
FFFFF$'
:
a
S
`
f l-9d6212d37ae-6687
f l-9d6212d37ae-6688
=
F
FFFF
:
:b
<
F
:
N
:
a
S
`
f l-9d6212d37ae-668c
f l-9d6212d37ae-668d
=
!
F
FFFF
":
!
#:b
!
$
F
%:
$N
&
#
%
'
&
(:
)a
(
*S
)`
+f l-9d6212d37ae-6691
,f l-9d6212d37ae-6692
-
+
,
.=
-
/
.F
FFFF
0:
/
1:b
/
2<
.F
3:+
2N
4
1
3
5
4
6g t-9d6212d37ae-6681
7
6
8f l-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
Tg m-9d6212d37ae-669d
U
T;
V
U
Wf l-9d6212d37ae-66a2
Xf l-9d6212d37ae-66a3
Yf l-9d6212d37ae-66a4
Zf l-9d6212d37ae-66a5
[f l-9d6212d37ae-66a6
\
W
X
Y
Z
[
]==
V
\
^
U
_f l-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
qg set-operand-visit-count!
rg #%set-operand-visit-count!-procedure
sg m-9d6212d37ae-66b1
t
s;
ug t-9d6212d37ae-66af
vg t-9d6212d37ae-66b0
w
u
v
x
t
t
yf l-9d6212d37ae-66b6
zf l-9d6212d37ae-66b7
{
y
z
|=
w
x
{
}
t
~f l-9d6212d37ae-66b3
~
=H
}
t
|F
FFFF
:
|F
FFF$'
:
:
:o
:
:
<
|F
:
N
:
|F
:
N
:
:b
:
q
N
<F
:
r
N
g set-operand-use-count!
g !%set-operand-use-count!-procedure
g m-9d6212d37ae-66c1
;
g t-9d6212d37ae-66bf
g t-9d6212d37ae-66c0
f l-9d6212d37ae-66c6
f l-9d6212d37ae-66c7
=
f l-9d6212d37ae-66c3
=H
F
FFFF
:
F
FFF$'
:
:
:o
:
:
<
F
:
N
:
F
:
N
:
:b
:
N
<F
:
N
g set-operand-copyable?!
g !%set-operand-copyable?!-procedure
g m-9d6212d37ae-66d1
;
g t-9d6212d37ae-66cf
g t-9d6212d37ae-66d0
f l-9d6212d37ae-66d6
f l-9d6212d37ae-66d7
=
f l-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
g m-9d6212d37ae-66e1
;
g t-9d6212d37ae-66df
g t-9d6212d37ae-66e0
f l-9d6212d37ae-66e6
f l-9d6212d37ae-66e7
=
f l-9d6212d37ae-66e3
=H
F
FFFF
:
F
FFF$' : : :o : : <
F
: N
:
F
:
N : :b :
N <F
:
N g set-operand-constant-value! g &%set-operand-constant-value!-procedure g m-9d6212d37ae-66f1 ; g t-9d6212d37ae-66ef g t-9d6212d37ae-66f0 !f l-9d6212d37ae-66f6 "f l-9d6212d37ae-66f7 # ! " $= # % &f l-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 Cg set-operand-alias! Dg %set-operand-alias!-procedure Eg m-9d6212d37ae-6701 F E; Gg t-9d6212d37ae-66ff Hg t-9d6212d37ae-6700 I G H J F F Kf l-9d6212d37ae-6706 Lf l-9d6212d37ae-6707 M K L N= I J M O F Pf l-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 mg and=> ng make-operand og make-bound-operands pg make-unbound-operands qg set-operand-residual-value! rg apply sg
visit-operand tg not ug pair? vg null? wg list? xg symbol? yg vector? zg length {g eqv? |g equal? }g types-check? ~g operator-size-limitS ~ g operand-size-limitS g value-size-limitS g effort-limitS g recursive-effort-limitS g current-module g error f unbound var g vlist->list g
string-append g symbol->string f g make-lexical-ref f no matching pattern g every g const? g const-exp g catch g the-scm-module g effect g make-void g test g
make-const g g make-dynwind g g make-dynlet g
z z g tail g
make-sequence g g make-let-values g make-lambda-case g make-fix g make-letrec g make-let g g g
g make-lambda g g g g g g constant? g operator g car g cdr g filter g compose g void? g make-effects-analyzer g lexical-ref? g lexical-ref-gensym g make-prompt-tag g abort? 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 g lambda-case-alternate g call g and-map g take g drop g split-at g
fold-right g lambda? g effect-free-primitive? g accessor-primitive? g memv f t- g t g make-conditional g cons g constructor-primitive? g string? g vector g @call-with-values f failure- g failure g make-toplevel-set g make-toplevel-define g make-module-set g resolve-module g ensureS g module? g module-variable g resolve-primitives! g primitive-ref? g make-dynset g make-dynref f post- g post f pre- g pre f what! g alist-delete g assq-ref g rest g rest-sym g $ bi S g rest-args S g ? g cut g <>
g = g lexical-refcount
|
S g make-list g tmp f tmp g make-lexical-setC 5 h ]4
,-.5 41 > " G 44569 h _ ] 6W g id
g filenamef language/tree-il/peval.scm 2 CO h * ]C " g id
CRUZ h ) ] C! g x
C]^ h@ ] 4?$ @4 5 $ @ 6 g x
: g tmp : g tmp # : g filenamef language/tree-il/peval.scm
2 : g
macro-typeg identifier-syntax C55R44_6Rn{}~
h0 Q ] CI g dummy
0 g event 0 g arg 0 0 C]^ h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef language/tree-il/peval.scm
> " g
macro-typeg syntax-rulesg patternsg quoteg event g argg ... C5_R_ hH - 1 3 4455 4 > " G 4> " G D g event
C g args C g pp C g filenamef language/tree-il/peval.scm
E
F
F F + F G F F H H ) H 2 I C J C
g nameg log* CR h ]
4L 5 $ L6C g exp
g res g res g filenamef language/tree-il/peval.scm
N O O P M C h ]
4L 5 $ L6C g exp
g res g res g filenamef language/tree-il/peval.scm
Q R R S M C h p ]C h g exp
g res g filenamef language/tree-il/peval.scm
T C h@ ] U #4 O O > XCXFG E g proc
> g exp > g tag > g _ 3 > g results 3 > g filenamef language/tree-il/peval.scm
L
M N 6 M > g nameg tree-il-any CR hH ]45 " -$ "4 455 $ C "C
" g proc
C g vlist C g len C g i < g t & : g filenamef language/tree-il/peval.scm
W
X
X Y Z Z [ [ & [ & [ 4 \ : \ < Y C g nameg vlist-any CR h N ] L C F g filenamef language/tree-il/peval.scm _
C h0 ])" $ & q
O Q $ N& A
& ' $ ( C6 6 C6 6 CC $ & C & C & C & C & C
& C & ?
$ )&
4 5$ C""""" g exp
) g w g failure ) g w G g w V x g failure Z x g w ! g w g filenamef language/tree-il/peval.scm
^
_ ) g nameg singly-valued-expression? CR h( ]4 5$ C4 545 6 g x
( g filenamef language/tree-il/peval.scm
m
o
o q r r / ! r & s ( q
( g nameg truncate-valuesg
documentationf %Discard all but the first value of X. CR h ] C g name
g gensym g refcount g set? g filenamef language/tree-il/peval.scm
y
g nameg %make-var-procedure CR446R- h ] C g t-9d6212d37ae-5bdd
g t-9d6212d37ae-5bde g t-9d6212d37ae-5bdf g t-9d6212d37ae-5be0 CU/0 h ] ]L 6 U g a
g filenamef language/tree-il/peval.scm y
CS2 h M ] L 6E g filenamef language/tree-il/peval.scm y
C4 h ] C
C]^ hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 g x
n g tmp n g tmp " n g tmp > n g filenamef language/tree-il/peval.scm
y
n C5R 78 ;< 4 ? > " G Bi R h z ] $ CC r g obj
g filenamef language/tree-il/peval.scm
y
g nameg %var?-procedure CCR44D6RE h : ] C 2 g t-9d6212d37ae-5bf3
CU/D0 h ] ]L 6 U g a
g filenamef language/tree-il/peval.scm y
CS2 h M ] L 6E g filenamef language/tree-il/peval.scm y
C h ] C
C]^ hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 g x
n g tmp n g tmp " n g tmp > n g filenamef language/tree-il/peval.scm
y
n C5DR h | ] &
C 6t g s
g filenamef language/tree-il/peval.scm
y
g nameg %var-name-procedure CR446R h : ]C 2 g err
g s C h : ]C 2 g err
g s C h : ]C 2 g err
g s CE/ h : ] C 2 g t-9d6212d37ae-5bff
CU/0 h ] ]L 6 U g a
g filenamef language/tree-il/peval.scm y
CS2 h M ] L 6E g filenamef language/tree-il/peval.scm y
C1 h ] C
C]^ h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef language/tree-il/peval.scm
y
C5R2 h ~ ] & C 6v g s
g filenamef language/tree-il/peval.scm
y
g nameg %var-gensym-procedure C3R4426RAHM h : ]C 2 g err
g s CPV[ h : ]C 2 g err
g s C^di h : ]C 2 g err
g s CE h : ] C 2 g t-9d6212d37ae-5c1a
CU/20 h ] ]L 6 U g a
g filenamef language/tree-il/peval.scm y
CS2 h M ] L 6E g filenamef language/tree-il/peval.scm y
C h ] C
C]^ h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef language/tree-il/peval.scm
y
C52R h ] & C 6 x g s
g filenamef language/tree-il/peval.scm
y
g nameg %var-refcount-procedure CR446R h : ]C 2 g err
g s C h : ]C 2 g err
g s C h : ]C 2 g err
g s CE h : ] C 2 g t-9d6212d37ae-5c35
CU/0 h ] ]L 6 U g a
g filenamef language/tree-il/peval.scm y
CS2 h M ] L 6E g filenamef language/tree-il/peval.scm y
C h ] C
C]^ h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef language/tree-il/peval.scm
y
C5R h | ] & C 6 t g s
g filenamef language/tree-il/peval.scm
y
g nameg %var-set?-procedure CR446R h : ]C 2 g err
g s C h : ]C 2 g err
g s C
h : ]C 2 g err
g s CE1 h : ] C 2 g t-9d6212d37ae-5c50
CU/0 h ] ]L 6 U g a
g filenamef language/tree-il/peval.scm y
CS2 h M ] L 6E g filenamef language/tree-il/peval.scm y
C3 h ] C
C]^ h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef language/tree-il/peval.scm
y
C5R446R9^`ehi h v ]45C n g dummy
g check? g s g getter g expr C]^ h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef language/tree-il/peval.scm
y
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5Rj h ] & C 6 g s
g val g filenamef language/tree-il/peval.scm
y
g nameg %set-var-refcount!-procedure CkR44j6Rl h Z ] C R g t-9d6212d37ae-5c7e
g t-9d6212d37ae-5c7f CU/j0 h ] ]L 6 U g a
g filenamef language/tree-il/peval.scm y
CS2 h M ] L 6E g filenamef language/tree-il/peval.scm y
C h ] C
C]^ hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 g x
n g tmp n g tmp " n g tmp > n g filenamef language/tree-il/peval.scm
y
n C5jR h ] & C 6 g s
g val g filenamef language/tree-il/peval.scm
y
g nameg %set-var-set?!-procedure CR446Rl h Z ] C R g t-9d6212d37ae-5c8e
g t-9d6212d37ae-5c8f CU/0 h ] ]L 6 U g a
g filenamef language/tree-il/peval.scm y
CS2 h M ] L 6E g filenamef language/tree-il/peval.scm y
C h ] C
C]^ hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 g x
n g tmp n g tmp " n g tmp > n g filenamef language/tree-il/peval.scm
y
n C5Rj h ] $ v & j
45 & " 45 & " 4> " G CCC g exp
g res g w ! | g var - | g val K y g filenamef language/tree-il/peval.scm
$ - - 2 % K ! K
C h ]
6 g name
g sym g res g filenamef language/tree-il/peval.scm
! C h ]
6 g name
g sym g res g filenamef language/tree-il/peval.scm
! C h ]
6 g name
g sym g res g filenamef language/tree-il/peval.scm
! C h ]
6 g name
g sym g res g filenamef language/tree-il/peval.scm
! C hh ] $ X & S
4$ " $ " $ " ( /4 > " G 4 > " G 4
5" $ ~ $ j
$ N $ 2( &
"l " 4" / " $
" "
"0 " 56 & *
6 & 0
6
& *
6 & Q
4
5 & " 4> " G CCC g exp
d g res d g w e g w " e g w ) e g w 0 e g w = e g x } Z g ls F g p-ls F g p-ls
F g p-ls F g w A g w
9 g x 9 g w . g x . g w g w w g w ~ g w g w g w g w g w ^ g s . [ g filenamef language/tree-il/peval.scm
R \ c " i ' n 0 s < v F _ a e h % . . d Ch q ]C i g exp
g res g filenamef language/tree-il/peval.scm
C h( - . , 3 # 6 g exp
$ g table $ g filenamef language/tree-il/peval.scm
$ $ g nameg build-var-table CR h ] C g effort
g size g continuation g
recursive? g data g prev g filenamef language/tree-il/peval.scm
g nameg %%make-counter-procedure CR446R h ] C g t-9d6212d37ae-63b6
g t-9d6212d37ae-63b7 g t-9d6212d37ae-63b8 g t-9d6212d37ae-63b9 g t-9d6212d37ae-63ba g t-9d6212d37ae-63bb CU/0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
C h ] C
C]^ hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 g x
n g tmp n g tmp " n g tmp > n g filenamef language/tree-il/peval.scm
n C5R 7 ; 4 ? > " G Bi R h ] $ CC w g obj
g filenamef language/tree-il/peval.scm
g nameg %counter?-procedure C!R44"6RE= h : ] C 2 g t-9d6212d37ae-63d2
CU/"0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
C? h ] C
C]^ hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 g x
n g tmp n g tmp " n g tmp > n g filenamef language/tree-il/peval.scm
n C5"R@ h ] &
C 6{ g s
g filenamef language/tree-il/peval.scm
g nameg %effort-counter-procedure CAR44@6ROV[ h : ]C 2 g err
g s C^di h : ]C 2 g err
g s Clrx h : ]C 2 g err
g s CE h : ] C 2 g t-9d6212d37ae-63de
CU/@0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
C h ] C
C]^ h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef language/tree-il/peval.scm
C5@R h ] & C 6y g s
g filenamef language/tree-il/peval.scm
g nameg %size-counter-procedure CR446R h : ]C 2 g err
g s C h : ]C 2 g err
g s C h : ]C 2 g err
g s CE h : ] C 2 g t-9d6212d37ae-63f9
CU/0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
C h ] C
C]^ h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef language/tree-il/peval.scm
C5R h ] & C 6 g s
g filenamef language/tree-il/peval.scm
g nameg %counter-continuation-procedure CR446R h : ]C 2 g err
g s C h : ]C 2 g err
g s C $ h : ]C 2 g err
g s CE@ h : ] C 2 g t-9d6212d37ae-6414
CU/0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
CB h ] C
C]^ h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef language/tree-il/peval.scm
C5RC h ] & C 6 g s
g filenamef language/tree-il/peval.scm
g nameg %counter-recursive?-procedure CDR44C6RRY^ h : ]C 2 g err
g s Cagl h : ]C 2 g err
g s Couz h : ]C 2 g err
g s CE h : ] C 2 g t-9d6212d37ae-642f
CU/C0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
C h ] C
C]^ h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef language/tree-il/peval.scm
C5CR h ] & C 6 y g s
g filenamef language/tree-il/peval.scm
g nameg %counter-data-procedure CR446R h : ]C 2 g err
g s C h : ]C 2 g err
g s C h : ]C 2 g err
g s CE h : ] C 2 g t-9d6212d37ae-644a
CU/0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
C h ] C
C]^ h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef language/tree-il/peval.scm
C5R h ] & C 6 y g s
g filenamef language/tree-il/peval.scm
g nameg %counter-prev-procedure CR446R
h : ]C 2 g err
g s C
h : ]C 2 g err
g s C!& h : ]C 2 g err
g s CEB h : ] C 2 g t-9d6212d37ae-6465
CU/0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
CD h ] C
C]^ h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef language/tree-il/peval.scm
C5R44t6R9TV]hi h v ]45C n g dummy
g check? g s g getter g expr C]^ h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef language/tree-il/peval.scm
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5tR^ h ] & C 6 g s
g val g filenamef language/tree-il/peval.scm
g nameg "%set-counter-recursive?!-procedure C_R44^6Rl h Z ] C R g t-9d6212d37ae-6493
g t-9d6212d37ae-6494 CU/^0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
C h ] C
C]^ hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 g x
n g tmp n g tmp " n g tmp > n g filenamef language/tree-il/peval.scm
n C5^R h ] & " 4 56 x g c
g filenamef language/tree-il/peval.scm
g nameg
abort-counter CR@ h8 ] &
" 4 5
$ 6 C g c
6 g e 6 g filenamef language/tree-il/peval.scm
! " ' - 0 1 4 6 g nameg record-effort! CR h8 ] & " 4 5
$ 6 C g c
6 g s 6 g filenamef language/tree-il/peval.scm
! " ' - 0 1 4 6 g nameg record-size! CR hP ]$ E & " 45& C & " 456C g data
O g counter O g filenamef language/tree-il/peval.scm
) 3 M O g nameg find-counter CR@ h - . , 3 # &
" 4 5 # & " 4 5 &
" 4 5&
" 45 45 & " 4 5& " 45 45 C g from
g to g effort g size g from-v g to-v g from-balance g
to-balance g amount g from-v g to-v g from-balance g
to-balance g amount g filenamef language/tree-il/peval.scm
* - 8 ( P U o + ) g nameg transfer! CR h(
]4 545 C g effort-limit
$ g
size-limit $ g continuation $ g data $ g effort $ g size $ g filenamef language/tree-il/peval.scm
$ g nameg make-top-counter CR hH ]4
54
5 4> " G C g continuation
A g data A g current A g effort ( g size ( g c ( A g filenamef language/tree-il/peval.scm
( + A g nameg make-nested-counter CR h p ]$4
54
5& " 45& " 45 4 > " G C h g effort-limit
g
size-limit g orig g current g effort D h g size D h g continuation D h g data D h g c h g filenamef language/tree-il/peval.scm
,
D h k g nameg make-recursive-counter CR h N ,
3
CF g var
g sym g visit g source g visit-count g use-count g copyable? g residual-value g constant-value g alias
g filenamef language/tree-il/peval.scm
g nameg %%make-operand-procedure CR446R h Z ,
3
CR g t-9d6212d37ae-655a
g t-9d6212d37ae-655b g t-9d6212d37ae-655c g t-9d6212d37ae-655d g t-9d6212d37ae-655e g t-9d6212d37ae-655f g t-9d6212d37ae-6560 g t-9d6212d37ae-6561 g t-9d6212d37ae-6562 g t-9d6212d37ae-6563
CU/0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
C h ] C
C]^ hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 g x
n g tmp n g tmp " n g tmp > n g filenamef language/tree-il/peval.scm
n C5R 7 ;ר 4 ? > " G Bi R h ] $ CC w g obj
g filenamef language/tree-il/peval.scm
g nameg %operand?-procedure CR446RE h : ] C 2 g t-9d6212d37ae-6582
CU/0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
C h ] C
C]^ hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 g x
n g tmp n g tmp " n g tmp > n g filenamef language/tree-il/peval.scm
n C5R h ] &
C 6x g s
g filenamef language/tree-il/peval.scm
g nameg %operand-var-procedure CR446R
h : ]C 2 g err
g s C h : ]C 2 g err
g s C#)/ h : ]C 2 g err
g s CEK h : ] C 2 g t-9d6212d37ae-658e
CU/0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
CM h ] C
C]^ h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef language/tree-il/peval.scm
C5RN h ] & C 6x g s
g filenamef language/tree-il/peval.scm
g nameg %operand-sym-procedure COR44N6R]di h : ]C 2 g err
g s Clrw h : ]C 2 g err
g s Cz h : ]C 2 g err
g s CE h : ] C 2 g t-9d6212d37ae-65a9
CU/N0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
C h ] C
C]^ h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef language/tree-il/peval.scm
C5NR h ] & C 6 { g s
g filenamef language/tree-il/peval.scm
g nameg %%operand-visit-procedure CR446R h : ]C 2 g err
g s C h : ]C 2 g err
g s C h : ]C 2 g err
g s CE h : ] C 2 g t-9d6212d37ae-65c4
CU/0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
C h ] C
C]^ h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef language/tree-il/peval.scm
C5R h ] & C 6 { g s
g filenamef language/tree-il/peval.scm
g nameg %operand-source-procedure CR446R h : ]C 2 g err
g s C # h : ]C 2 g err
g s C&,1 h : ]C 2 g err
g s CEM h : ] C 2 g t-9d6212d37ae-65df
CU/0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
CO h ] C
C]^ h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef language/tree-il/peval.scm
C5RP h ] & C 6 g s
g filenamef language/tree-il/peval.scm
g nameg %operand-visit-count-procedure CQR44P6R_fk h : ]C 2 g err
g s Cnty h : ]C 2 g err
g s C| h : ]C 2 g err
g s CE h : ] C 2 g t-9d6212d37ae-65fa
CU/P0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
C h ] C
C]^ h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef language/tree-il/peval.scm
C5PR h ] & C 6 ~ g s
g filenamef language/tree-il/peval.scm
g nameg %operand-use-count-procedure CR446R h : ]C 2 g err
g s C h : ]C 2 g err
g s C h : ]C 2 g err
g s CE h : ] C 2 g t-9d6212d37ae-6615
CU/0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
C h ] C
C]^ h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef language/tree-il/peval.scm
C5R h ] & C 6 ~ g s
g filenamef language/tree-il/peval.scm
g nameg %operand-copyable?-procedure CR446R h : ]C 2 g err
g s C % h : ]C 2 g err
g s C ( . 3 h : ]C 2 g err
g s CE O h : ] C 2 g t-9d6212d37ae-6630
CU/0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
C Q h ] C
C]^ h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef language/tree-il/peval.scm
C5R R h ] & C 6 g s
g filenamef language/tree-il/peval.scm
g nameg !%operand-residual-value-procedure C SR44 R6R a h m h : ]C 2 g err
g s C p v { h : ]C 2 g err
g s C ~ h : ]C 2 g err
g s CE h : ] C 2 g t-9d6212d37ae-664b
CU/ R0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
C h ] C
C]^ h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef language/tree-il/peval.scm
C5 RR h ] & C 6 g s
g filenamef language/tree-il/peval.scm
g nameg !%operand-constant-value-procedure C R44 6R h : ]C 2 g err
g s C h : ]C 2 g err
g s C h : ]C 2 g err
g s CE h : ] C 2 g t-9d6212d37ae-6666
CU/ 0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
C h ] C
C]^ h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef language/tree-il/peval.scm
C5 R h ] & C 6 z g s
g filenamef language/tree-il/peval.scm
g nameg %operand-alias-procedure C R44 6R
h : ]C 2 g err
g s C
"
' h : ]C 2 g err
g s C
*
0
5 h : ]C 2 g err
g s CE
Q h : ] C 2 g t-9d6212d37ae-6681
CU/ 0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
C
S h ] C
C]^ h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef language/tree-il/peval.scm
C5 R44+6R9
c
e
phi h v ]45C n g dummy
g check? g s g getter g expr C]^ h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef language/tree-il/peval.scm
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5+R
q h ] & C 6 g s
g val g filenamef language/tree-il/peval.scm
g nameg #%set-operand-visit-count!-procedure C
rR44
q6Rl
h Z ] C R g t-9d6212d37ae-66af
g t-9d6212d37ae-66b0 CU/
q0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
C
h ] C
C]^ hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 g x
n g tmp n g tmp " n g tmp > n g filenamef language/tree-il/peval.scm
n C5
qR
h ] & C 6 g s
g val g filenamef language/tree-il/peval.scm
g nameg !%set-operand-use-count!-procedure C
R44
6Rl
h Z ] C R g t-9d6212d37ae-66bf
g t-9d6212d37ae-66c0 CU/
0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
C
h ] C
C]^ hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 g x
n g tmp n g tmp " n g tmp > n g filenamef language/tree-il/peval.scm
n C5
R
h ] & C 6 g s
g val g filenamef language/tree-il/peval.scm
g nameg !%set-operand-copyable?!-procedure C
R44
6Rl
h Z ] C R g t-9d6212d37ae-66cf
g t-9d6212d37ae-66d0 CU/
0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
C
h ] C
C]^ hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 g x
n g tmp n g tmp " n g tmp > n g filenamef language/tree-il/peval.scm
n C5
R
h ] & C 6 g s
g val g filenamef language/tree-il/peval.scm
g nameg '%%set-operand-residual-value!-procedure C
R44
6Rl h Z ] C R g t-9d6212d37ae-66df
g t-9d6212d37ae-66e0 CU/
0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
C h ] C
C]^ hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 g x
n g tmp n g tmp " n g tmp > n g filenamef language/tree-il/peval.scm
n C5
R h ] & C 6 g s
g val g filenamef language/tree-il/peval.scm
g nameg &%set-operand-constant-value!-procedure C R44 6Rl @ h Z ] C R g t-9d6212d37ae-66ef
g t-9d6212d37ae-66f0 CU/ 0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
C B h ] C
C]^ hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 g x
n g tmp n g tmp " n g tmp > n g filenamef language/tree-il/peval.scm
n C5 R C h ] & C 6 g s
g val g filenamef language/tree-il/peval.scm
g nameg %set-operand-alias!-procedure C DR44 C6Rl j h Z ] C R g t-9d6212d37ae-66ff
g t-9d6212d37ae-6700 CU/ C0 h ^ ]L 6 V g a
g filenamef language/tree-il/peval.scm
CS2 h N ] L 6F g filenamef language/tree-il/peval.scm
C l h ] C
C]^ hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 g x
n g tmp n g tmp " n g tmp > n g filenamef language/tree-il/peval.scm
n C5 CR m h T - . , 3 # # # 45 $ & " 4 5" & " 4 5$ "
C L g var
g sym g source g visit g alias g source 0 g copyable? g alias g filenamef language/tree-il/peval.scm
(
( - 0 - 8 / ; / $ T / \ 0 x 0 .
g nameg make-operand C nRf n h ] L 6 g name
g sym g source g alias g filenamef language/tree-il/peval.scm
4 5
C n h ] L 6 g name
g sym g source g filenamef language/tree-il/peval.scm
7 8
C h@ - . , 3 # $ O 6O 6 g vars
? g syms ? g sources ? g visit ? g aliases ? g filenamef language/tree-il/peval.scm
2
3 . 4 ? 7 ? g nameg make-bound-operands C oRf n h ] 6 g vars
g syms g filenamef language/tree-il/peval.scm
;
< g nameg make-unbound-operands C pR
h ]$ & q
$ V& G
& + $ ( " " " " " " " & C 6 g op
g val g w g w 6 p g w E g g val g filenamef language/tree-il/peval.scm
>
A ? g nameg set-operand-residual-value! C qRPP
q h@ { ]L & L " 4L 5 L & L CL 6 s g val
9 g filenamef language/tree-il/peval.scm
T U , U ( U 9
CP
q h@ { ]L & L " 4L 5 L & L CL 6 s g val
9 g filenamef language/tree-il/peval.scm
e f , f ( f 9
CP
q h@ { ]L & L " 4L 5 L & L CL 6 s g val
9 g filenamef language/tree-il/peval.scm
T U , U ( U 9
C
h8 r ] L& L " 4L> " G L 6 j g filenamef language/tree-il/peval.scm
[ _ 1 Z 1
g nameg abort C rP
q h@ { ]L & L " 4L 5 L & L CL 6 s g val
9 g filenamef language/tree-il/peval.scm
e f , f ( f 9
CP
q h@ { ]L & L " 4L 5 L & L CL 6 s g val
9 g filenamef language/tree-il/peval.scm
e f , f ( f 9
C h - . , 3 # # & " 4 5
$ P O O 4 O > " G V & " 4 5$ $ " $ " $ D4 & " 4 5 & " 4 5> " y U X4 & " 4 5 & " 4 54
O 5> X" /G 4
> " X4 O > " G CX4 O > " G FC g op
g counter g ctx g effort-limit g
size-limit g tag \ g _ I \ g results I \ g filenamef language/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 g nameg
visit-operand C sR t u v w x y z { |
h ] $ C $ " K $ " = $ " / $ " ! $ " $ " $
4 5 C
$ " $ " $ 4 5 CC g primitive-name
g args g filenamef language/tree-il/peval.scm
j
k k n s n } k p p g nameg types-check? C }R h( ] 4 M 5 $ C 4M 56 g sym
& g v & g filenamef language/tree-il/peval.scm
- & & g nameg
lookup-var Cf h@ ] 444 &
" 4 5555 4 M 5N C g var
? g new - ? g filenamef language/tree-il/peval.scm
- = ' - ) - + - - 0 <
? C h ]L O 6 | g vars
g filenamef language/tree-il/peval.scm
g nameg
fresh-gensyms C
h@ ] & " 4 5 & C 6 g op
9 g val 9 g filenamef language/tree-il/peval.scm
# 9 g nameg record-operand-use C q
h` ]
& " 4 5
$ 4 > " G " & C 6 g op
Z g n Z g count Z g filenamef language/tree-il/peval.scm
% * + D Z g nameg unrecord-operand-uses C q N h - . , 3 # # 4L > " G & " $ 4 > " G " &
" 4 5 &
" 4 5 & " 4
56 g op
g ctx g val g s { g filenamef language/tree-il/peval.scm
8 F G d # { 5
g nameg residualize-lexical C hH ]" %$ 4 56456 $ ( C"" g src
E g values E g filenamef language/tree-il/peval.scm
7 E g nameg make-values C f { r | hH ]L$ " L$ 4L > " 44L5L > G D g results
= G g filenamef language/tree-il/peval.scm
* - < @
G G
C h r - 1 3 D j g _
g filenamef language/tree-il/peval.scm
C h o ]L 6 g g t-9d6212d37ae-6b11
g filenamef language/tree-il/peval.scm
%
C } h ] 45$ 45 4O > G $ C $
6 $ $ 6 6 4
O 56 456" 456 & 45$
6"" g src
g name g args g ctx g make-values g args 2 g success? 3 g values 3 g filenamef language/tree-il/peval.scm
* 6 @ I O X [ _ f # h m $ o t g nameg fold-constants C z . h 0
]i" " " " " " s" " " V" $ & 7
4L 5 $ 6C & 7
4L 5 $ 6C &
45 $ 45" $ " $
4
56 " $ Y4 5 $ <( ( 4L 5
$ 4
56C4
56 4
56 $ "}4
56 "a4
56 4
56 $ &
$ & w
& /4L 5
$ 4
5 6C""""" $ M & @
4L 5 $ 6C"V"R $ V & I
4L 5 $ 6C"" $ M & @
4L 5 $ 6C"" $ & C"w"s $ & C"Y"U $ & C";"7 $ & C" " $ & ~
$ g & Z
& C L4 5$ ,L$ L4 5" $ 4 L56CC"""""" " i" " " |" - $ " & 3L $ )L$ L " $ L4 L5 6CC !& 3L $ )L$ L " $ L4 L5 6CC "& 3L $ )L$ L " $ L4 L5 6CC #& 3L $ )L$ L " $ L4 L5 6CC $& 3L $ )L$ L " $ L4 L5 6CC %& 3L $ )L$ L " $ L4 L5 6CC && 3L $ )L$ L " $ L4 L5 6CC & q
$ Z & M
4'5$ 3L $ )L$ L " $ 4 L5 6CC"F"B">":"6 $ @ (& 3L $ )L$ L " $ L4 L5 6CC"" $ @ )& 3L $ )L$ L " $ L4 L5 6CC"="9 $ @ *& 3L $ )L$ L " $ L4 L5 6CC"" $ @ +& 3L $ )L$ L " $ L4 L5 6CC"" $ @ ,& 3L $ )L$ L " $ L4 L5 6CC"P"L $ @ -& 3L $ )L$ L " $ L4 L5 6CC"" (
g exp
g w > q g w D q g w K q g w R q g body [ q g w ~ g w g w g w g body g w g w g tail-len g len g ls g n g p-ls g head k g w , Q g tail
5 Q g w u g w t g w t g w t g w l g w l g w l g w
l g w l g w l g w
" l g w ) l g w 0 l g body
@ h g w g w g w g w g w g body g w - g w - g w - g w - g w - g w
- g body - g w I g w O g w V g w ] g w d g body m g w g w g w * { g w 9 w g w [ g w a g w | =g filenamef language/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 ! g nameg loop C h( ]
O Q 6 g src
! g exp ! g nmin ! g nmax ! g consumer ! g loop ! g filenamef language/tree-il/peval.scm
! g nameg
inline-values C h ]4M 56 g x
g filenamef language/tree-il/peval.scm
X ]
]
g nameg constant-expression? C h0 ]L & C & " 4 5
C g op
+ g filenamef language/tree-il/peval.scm
f m
m m
n ( n * n
+ g nameg referenced? Cf q h y ]4 > " G C q g op
g val g filenamef language/tree-il/peval.scm
" $ C S O R q s h T ]^O Q " "
( 4 5
$ 44 54 55 $ <4 5 ( C44
554 5456( " 45 4 4
55 ( C4
5 44
554 5456
"
4
5$
"
&
" 4
5$
"& "
&
" 4
5
$ 14
4
5> " G
"^
4
5 45$ "
"&
"4 5 " L g ops
g in-order? g body g counter g ctx g build-result g referenced?
g old g values g effects g ops*
g values g effects g new
& g effects J g values [ g effect-vals g body g values g op
g effect g filenamef language/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 g nameg prune-bindings C h x ]C p g x
g res g filenamef language/tree-il/peval.scm
C h x ]C p g x
g res g filenamef language/tree-il/peval.scm
C h ]L$ CL 6 g x
g res g filenamef language/tree-il/peval.scm
C h@ ] U %4O
> " G XCXFG E g x
@ g limit @ g tag @ g _ 5 @ g results 5 @ g filenamef language/tree-il/peval.scm
8 @ g nameg small-expression? CN h0 ]& " 454 56 g sym
- g op - g env - g filenamef language/tree-il/peval.scm
! % - - g nameg
extend-env C h0 ]
$ &
6CC g x
, g r , g w & g filenamef language/tree-il/peval.scm
& , C hH ] 4 M 5 $ " 4 4M 55 & C6 g sym
F g v - g s - F g filenamef language/tree-il/peval.scm
" - * - F g nameg assigned-lexical? C R s h ]"4 5$ 4 5 4L5 $ " 45 $ &
" 45 & " 4
5 $ D& " 4 5 $ " ;4 L
5 $ " & " 45 " n4 5 4M5 $ " 44M55 & " 45 $ 4L 5DD45$ m4 5 4M5 $ " 44M55 & " 45 $ ",""D $ DD g x
g n-aliases g var = g t : g t = g s _ g t g t g y g sym K g v ( g s ( H g sym t g v g s g filenamef language/tree-il/peval.scm
/
3 7
= H _ : ,
- % ( N R S ^ b b c m n 1 t w
-
> g nameg find-definition C h ]L LL 6 g exp
g filenamef language/tree-il/peval.scm
* g nameg for-value C h ]! $ y & n
$ Z& O
& : ( C$ "( 44M 55$ CCCCCCCCC g x
g w g w 6 | g w E z g w ` v g filenamef language/tree-il/peval.scm
c ] f ] n ] r g nameg make-prompt-tag? C h y ]L 6q g val
g op g filenamef language/tree-il/peval.scm
C h y ]4L > " G L Cq g val
g op g filenamef language/tree-il/peval.scm
C h0 ]4L 5$ 4L 5$
4L 5L6CC g val
) g op ) g filenamef language/tree-il/peval.scm
" #
#
$ #
% % % ) C r hp > ]
4L > " G 4L445454544L54L5 554L LLLL55 L LLL6 6 g val
n g op n g exp ` n g filenamef language/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 pN h( ] 4 L 5 & C6 g old
$ g s $ g filenamef language/tree-il/peval.scm
+ & $ g nameg new-sym C i h ]L LL 6 y g t-9d6212d37ae-8149
g filenamef language/tree-il/peval.scm
! : ! C z i h ]L 6 g var
g gensym g init g body g filenamef language/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" L 5L44LLL 54454LLL 55 5L64 LLL > G 4 L
> G 4 4LL5L
> G L$ L " G L$ 45 " G 4L L
L> G L45454L54
LO L56 ! g non-rest-gensyms
v g rest-gensyms v g provided-gensyms v g default-gensyms v g
provided-vars v g default-vars v g rest-vars v g
rest-inits ' v g
default-inits < v g filenamef language/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
g nameg inlined-application C mD C^ f h0 ]4L 4LLLL54LL55 L 6 g tmp
) g filenamef language/tree-il/peval.scm
* ) )
)
g nameg abort C {
h` G ] H44L& " 54L54 5 5K ( JC LJ454L 56 ? g elts
Z g test Z g filenamef language/tree-il/peval.scm
, 3 8 # % 8 ) # *
# 0
2 2
# 5 7 < % @ J 0 Q 0 V 4 X 0 Z
Z g nameg lp C i h X ] LLL L 6 P g filenamef language/tree-il/peval.scm 1
C h o ] 6 g g t-9d6212d37ae-9754
g filenamef language/tree-il/peval.scm
C r h`
]I" " " |45 4 M5NL 44 5 5 4 4
55 4 LL4L4 LLL555 6 $ s & LL4L4 LLL 55 6
& LL4L4 LLL 55 6 & LL4L4 LLL 55 6"
" $ &
" " |45 4 M5NL 44 5 5 4 4
55 4 LL4L4 LLL555 6 & LL4L4 LLL 55 6
& LL4L4 LLL 55 6 & LL4L4 LLL 55 6"" D & 7
( LL4L4 LLL 55 6""$ L( A " " |45 4 M5NL 44 5 5 4 4
55 4 LL4L4 LLL555 6 & LL4L4 LLL 55 6
& LL4L4 LLL 55 6 & LL4L4 LLL 55 6"" D & 7
( LL4L4 LLL 55 6""$ ( " " |45 4 M5NL 44 5 5 4 4
55 4 LL4L4 LLL555 6 & LL4L4 LLL 55 6
& LL4L4 LLL 55 6 & LL4L4 LLL 55 6"" D & 7
( LL4L4 LLL 55 6""$ ( " " |45 4 M5NL 44 5 5 4 4
55 4 LL4L4 LLL 55 5 6 & LL4L4 LLL 55 6
& LL4L4 LLL 55 6 & LL4L4 LLL 55 6"" D & 7
( LL4L4 LLL 55 6""$ 0& # 4L 56"""+"'"""i"e & 7
( LL4L4 LLL 55 6"" " $ S & F
4L5$ * LL4L4 LLL556"""
g alternate
` g t g failure f g w g w " g t 3 g failure g w 7 _ g w t g w { g t g failure g w g w g w g t Z g failure 6 X g w g w & g t 7 g failure g w ; c g w | g w g w X g w / T g w 6 T g filenamef language/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 \ . ` g nameg lp C t hx ]Q" $ &
$ & ~
$ Z& N
& 9 O
L LLQ
6 C C C C C C C $ &
$ & }
$ g& Z
& C $ 1( & 45 """""""""" g c
u g w g w g w 6 g w < g w C g w J g w e g w s g w z g lp
g w m g w m g w e g w ] g w Y g w . Q g w 5 Q g w < Q g filenamef language/tree-il/peval.scm
M N [ N ? T
Q S U N u g nameg simplify-conditional C h W ] L 6 O g filenamef language/tree-il/peval.scm
& '
C h c - 1 3 C [ g args
g filenamef language/tree-il/peval.scm
&
C h ]L M 6 g exp
g counter g ctx g filenamef language/tree-il/peval.scm
g nameg visit C o h ]L 6 g names
g gensyms g vals g body g filenamef language/tree-il/peval.scm
C h ]L M 6 g exp
g counter g ctx g filenamef language/tree-il/peval.scm
g nameg visit C h ]LL 6 g names
g gensyms g vals g body g filenamef language/tree-il/peval.scm
C
h ] $ & z
4L 5 $ " 45 &
" 45 & " 4 5 $ CCCC
g exp
g w ! g t , G g op G g s c g filenamef language/tree-il/peval.scm
$ , <
@ D
G L " c g nameg lookup-alias C h ]L L 6 g exp
g counter g ctx g filenamef language/tree-il/peval.scm
( * C h0 ] ( 4 > " G " L 6 g names
. g gensyms . g vals . g body . g filenamef language/tree-il/peval.scm
/
6 / . . C h( ] 45 4 M 5N C g elt
$ g new $ g filenamef language/tree-il/peval.scm
$ ! ! $ C h ] 6 g t-9d6212d37ae-af4a
g t-9d6212d37ae-af4b g filenamef language/tree-il/peval.scm
" C N h0 ] 4 5 $ C4 5 $ C 6 g x
, g t , g t , g filenamef language/tree-il/peval.scm
% % " % % - % , % 7 , C s
h8/ ? , 3 5O O LQ LQ $ 4> " G " " ." ." +" *" %" $" #" "" !" (" " " C" " " " " " d" " " " " " " :" " -" ? $ + &
O
LQ
4L54L5 4 > G
4
O
?$
L O
@4 > G 4
O ?$ L L O @ 4L 56
& C
4L5454L 564 56 4 56 $ &
" $ ( :
(
"44L
5 56
4L
5 4 5$ 44 5 5 "|4 5$ "e "V456 ">"" $ X & K
4L 5 4L5 4 L 4 55 O Q 4L
5 $ " x $ q
$ " b$ Z & L
$ 2 & $
!& $ $ "&
$ & " ( 04#5 $ 4$5$ " k" e" ` $ F $ 2 %& $
" " " " "m" " " " " " " " " " " $ C&
$
" ( ?4#54#54#5 4' 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"" $ "&
$
&
& }
& V455 45 5 $ 45 5"
4/ M5 $ " 6O
Q $ "
$ " $ 04L154564748595 $ " 4:5 $ 485 $ ;& " 4<=5$ e" U& " Q;& " 4<>> " G ;& " 4<?5 " "" " 45 "@ U HHAO LQ 485 $ 4BLL 5" "$ 4C5"
4DL L5 K4L45 J5K$ 4EJ> " G " JXCXFG E"""
""" $ T & G
4F
5$ -45 4L
5 $ C0 6""" $ | & o
4G
5$ U
45 " Y" k" " " " " ? $ + 4L
5
$
C0 64 56 $ 5
"
$
$ ( $ H&
$ $ (44)5 5 "f*$ 4I5$ >
J$ K"
L$ M" +44N55$ " 6( )44+5 5 "4OP5 455 4.QR M5N 44R SO
Q 45 5 "m4I5$ 4
J$ K"
L$ M" +44N556( )44+5 5 "0 4+5 6""""""J & "L & """ $
T & r
$ g
( \
$ LH& ?
$ ( 4+5 ";""""""" $
U & r
$ g
( \
$ LH& ?
$ ( 4+5 ""k"g"c"_"["W"S $
T &
$
(
$ &
$ s & f
V& O $ = 4404WV55 5 """"""""}"y"u"q $
U &
$
(
$ &
$ i & \
V& E $ 3 44 55 """"""""""" $
T &
$
(
$ &
$ & r
X& [ $ I $ 4( ) 4 5 " """""""""""" $
U &
$
(
$ &
$ & r
X& [ $ I $ 4( ) 4 5 "6""""""""""""""" $ ~ & q
4Y
5$ W" k
45 $ I
X & )
$
" 0 6$ ( " ZO Q $ q & d
$ I & <
V& 04WV560 66 6 6 6 $ 7H& *
& 04WV5 6"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 "445 5 04L
56$ &
$ &
V& y " f( (40
455 "$ - $ 4`4M55" $ "" " """"""$ &
$ &
X& $ $ 4`4M55" $ j$ _( T $ 4`4M55" $ 040
4 55 """"
" """"""$ VH& I
$ 34a5 40
455 "4"""4 5 "w""$ "%"
""b& "!& ""d"`"\"X"T $ &
$ &
& ( & )6 C4 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*$ +6 C"" $ 5 j& (
k4L56"" $ 5 l& (
m4L56"`"\ $ G n& :
o 4L
56"
" $ p& C"" $ p& x
4F5$ V & D4qrO s5
4t
5$ %4u
5 4uv5& W6 C C"_"["W"S $ w& C"8"4 $ d w& W
4F5$ =4/M5$ C4x L5 4y5$ "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
LQ 4L5K
4LJ
5K 4J
J 5K 4 LJ 5K
4L J
5K4IJ5$ JCLJ JO 6"Q"M $ &
HHH
H H O LQ 4L5K 4LJ 5K 4J J 5K
4 LJ
5K4L
J5K" LJ
JO 64IJ5$ 4cL 5$ JC"""p"l $ R 2& E
O
Q
4L5 4L 5 4 LO 4
55
4 L
5 4L 5 4I5$ )44 55 "I" L
O 645$ l4K45 5$ V454 5 44445545 55 "پ"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/1M5 22$ 2" 414M55 2 22Q& 2 " 4<25 2 $ s445!55 24LO 25 3444
254354 !540#'4.4235555 44 "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)5 64L
> " G
&
" 4<
54L 56"u"q $ %&
" & )6& " 4<5 $ "1& L 6&
" 4<5 Q& " 4< 5 $ L 6& " 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<> " G L 6L 6L 64/5 $ " 45 "5"y"u $ & *$ +6 C"K"G $ H& $ )6 C" " ? g exp
/5 g env /5 g counter /5 g ctx /5 g find-definition /5 g for-value /5 g w g w g w g w g make-prompt-tag?
g tag g body g vals
g vals O g w g w g w g w g w g w g exps g effects g w
/ f g w
l g x l g head } g w C g w C g w C g w C g w
C g w C g w % C g w
, C g w 3 C g vars > C g new G C g env ] C g new-sym g C g body y C g w g w g w g w g x g w g ls " g p-ls " g sym / X g w b g w g t C g w g x g ls ( g p-ls ( g p-ls ( g p-ls ( g old C m g name C m g kw C m g w w g w g x g w g x g w g w _ g w e g w l g new g x
g w g w g w g proc g w
i 5 g t z g v g w g w
g w g w g w g exp g w
\ g w w g w ~ g w
g w g w g w g w g w g nargs g nreq g nopt g x g key g inlined-application g t - P g t g found
7 g counter
$ g tag
S g new-counter
^
g result
^
g abort
q
g t
g _ g results g w
? } g args U y g t d y g w
g v g x g t
g w ! P g x
! P g w 6 0 g x 6 0 g w K ( g w f g exp g member g exp
! g t
(
g refcount
1
M g lp
l
g exp
g member
g exp
g w a g x
a g w ~ g w g w g x g exp g w v g x
v g w j g w ' b g w - b g w 9 ^ g exp H ^ g w T g x
T g w H g w @ g w @ g w 8 g w 4 g w 0 g x 0 g exp 0 g w e ( g x
e ( g w g w g w g w g w g w g x g exp g w 9 g x
9 g w V g w l g w r g w g w g w g x g w g exp g w # g x
# g w @ g w V g w \ g w w g w g w g x g w g exp g w
% g v B g w Q g x
Q g w j x g x j x g x u g w p g failure . g w & g w & g failure & g w g w g w B h g w H h g x z g x g v 9 g w E g x
E g w 0 g w # g w [ q g w g w g w . g x
. g x g res V g exp k g w S g w S g w K g w / g w
+ g x + g tail-len
+ g len
+ g ls = g n = g p-ls = g args M g w ` g tail* f g speculative? f g args g w ~ g w v g w r g ls j g exp 2 g w < f g w u g w m g w i g w e g x e g w Y g exp ? U g w g args* g exp g w g w o T g w u T g w L g w H g vals
H g exp * @ g w p g w v g w g w g w
g x g w g w
g w g w g w ( { g w A w g exp ] s g w { g w { g w { g w { g simplify-conditional
{ g v { g w C s g w g w g w g w 3 g w 3 g w 3 g w O g w U g w \ g w c g w
j g w 0 g w 0 g w 0 g w , g module
( g var % g w l g exp g w g w g w g w ! < g w ' < g w X g w ^ g w e g w l g w "+ g w "+ g w "+ g w "+ g pre
"+ g body "+ g post "+ g post-sym
!% !d g pre-sym
!{ ! g pre-sym
! "+ g post-sym ! "+ g w "G #\ g w "M #\ g w "T #\ g producer "c #\ g w
"~ #2 g w " #/ g w " #, g w
" #) g w " #! g nmin " # g nmax " # g t " # g t
#< #\ g w #x $ g w # $ g w # $ g w # $ g vars
# $ g new # $ g ops # $ g env*
# $ g body* # $ g visit # $ g w $2 $ g w $8 $ g w $E $ g w $L $ g w
$S $ g vars $Z $ g new $Z $ g ops
$Z $ g env* $Z $ g body* $Z $ g visit $m $ g w % &P g w % &P g w %" &P g w %) &P g lookup-alias
%3 &P g vars %A &P g new %J &P g ops
%i &P g env %x &P g body % &P g exp % % g sym & &H g pairs & &H g exp &2 &H g w &l * g w &r * g tail-len &{ * g len & * g ls
& * g n & * g p-ls & * g names
& * g w & * g w & * g tail-len & * g len & * g ls ' * g n ' * g p-ls ' * g gensyms '$ *k g w '7 *c g w '> *c g tail-len 'G *c g len '\ *c g ls 'z *T g n 'z *T g p-ls 'z *T g vals ' */ g w ' *' g w ' * g w ' * g w ! ' * g w " ' * g w # ' * g w $ ( * g w % ( * g w & (+ ) g w ' (: ) g x ( (: ) g tail-len ) (E ) g len * (Z ) g ls + (x ) g n , (x ) g p-ls - (x ) g args . ( ) g w / ( ) g w 0 ( ) g w 1 ( ) g v 2 ( ( g s 2 ( ) g tmps 2 ). ) g tmp-syms 3 )> ) g exp 4 )} ) g w . ) ) g w *9 *P g w *u * g w
* * g w * + g w * + g w + + g w + + g t
+ +1 g op
+1 + g s +M +m g exp + + g w , . g op , . g t ,7 . g s ,o , g val , - g t -, . g t
-K -y g t -_ -v g s
- - g t . . g filenamef language/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 g nameg loop C h - / 0 3 # 45 # # ( # #
# # d H
H HO O
O
O
Q Q
Q
Q $ Q &
45 " ( &
45 " " K4 5K 4 O 5K
O
Q 6 g exp
} g cenv } g env } g operator-size-limit } g operand-size-limit } g value-size-limit } g effort-limit } g recursive-effort-limit } g local-toplevel-env ` } g store ` } g compute-effects
` } g
lookup-var } g
fresh-gensyms } g record-operand-use
} g unrecord-operand-uses } g residualize-lexical } g fold-constants } g
inline-values } g constant-expression? } g prune-bindings } g small-expression? } g
extend-env } g w g w g loop E } g filenamef language/tree-il/peval.scm
t
t % V E { } } g operator-size-limitS g operand-size-limitS g value-size-limitS g effort-limitS g recursive-effort-limitS g nameg pevalg
documentationf }Partially evaluate EXP in compilation environment CENV, with
top-level bindings from ENV and return the resulting expression. CRC g m
, g rtd
$ N g rtd
B C g rtd
| }# g filenamef language/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