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
PK ! z\ؼ ؼ peval.gonu [ 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 PK ! G+_M _M
fix-letrec.gonu [ GOOF----LE-8-2.0GM ] 4 h ] g guile g define-module* g language g tree-il g
fix-letrec
g filenameS f language/tree-il/fix-letrec.scm g importsS
g system g base g syntax
g srfi g srfi-1 g srfi-11 g effects g exportsS g fix-letrec! ! "g set-current-module #" $" %g
&% '% (g lexical-set-exp )g *) +) ,g module-set-exp -g .- /- 0g toplevel-set-exp 1g 21 31 4g toplevel-define-exp 5g
65 75 8g conditional-test 9g conditional-consequent :g conditional-alternate ;g
<; =; >g application-proc ?g application-args @g
A@ B@ Cg
sequence-exps Dg ED FD Gg lambda-body Hg
IH JH Kg lambda-case-inits Lg lambda-case-body Mg lambda-case-alternate Ng ON PN Qg let-vals Rg let-body Sg TS US Vg letrec-vals Wg letrec-body Xg YX ZX [g fix-vals \g fix-body ]g ^] _] `g let-values-exp ag let-values-body bg cb db eg dynwind-body fg dynwind-winder gg dynwind-unwinder hg ih jh kg
dynlet-fluids lg dynlet-vals mg dynlet-body ng on pn qg dynref-fluid rg sr tr ug dynset-fluid vg
dynset-exp wg xw yw zg
prompt-tag {g prompt-body |g prompt-handler }g ~} } g abort-tag g
abort-args g
abort-tail g fix-fold g g g
g lexical-ref-gensym g memq g simple-expression? g and-map g primitive-ref? g delq g lset-adjoin g eq? g lexical-set-gensym g letrec-gensyms g append g let-gensyms g letrec-in-order? g effect-free? g exclude-effects g make-effects-analyzer g lset-difference g lambda? g partition-vars g
make-sequence g reverse g make-sequence* g post-order! g make-void g
letrec-src g letrec-names g map g list g make-let g cadr g car g caddr g make-fix g make-lexical-set g
module-gensym f fixlr g make-lexical-ref g let-src g let-names g assq g lset-intersectionC 5hH@ ]4
!5 4$ > " G hh s , 3 ( D4 > G
" k g proc
f g exps f g unref f g ref f g set f g simple f g lambda f g complex f g unref 2 f g ref 2 f g set
2 f g simple 2 f g lambda 2 f g complex
2 f g filenamef language/tree-il/fix-letrec.scm
f g nameg fold-values C'(+,/034789:=>?BCFGJKLMPQRUVWZ[\_`adefgjklmpqtuvyz{| 9h0
]4L > G
& #4 5 4L
> "
& #4 5 4L
> "
& #4 5 4L
> c" ^
& #4 5 4L
> 8" 3
& 4
54 54 5 4L
> G 4L > G 4L > "
& T4 54 5 4L
> G 4LL > S" N
& %4 5 4LL
> &" !
& ?4 5 $ 4L
> "
" "
& 4 54 54 5 4LL
> G $ @4L > G 4L > N" 4L > 4" /
& T4 54 5 4LL
> G 4L > "
& T4 54 5 4LL
> G 4L > |" w
& T4 54 5 4LL
> G 4L > "
!& R4" 54# 5 4L
> G 4L > "
$& 4% 54& 54' 5 4L
> G 4L > G 4L > =" 8
(& 4) 54* 54+ 5 4LL
> G 4LL > G 4L > "
,& #4- 5 4L
> "
.& R4/ 540 5 4L
> G 4L > +" &
1& 42 543 544 5 4L
> G 4L > G 4L > "
5& 46 547 548 5 4L
> G 4LL > G 4L > "
" G
L
6
g tree
. g unref . g ref . g set . g simple . g lambda . g complex . g unref . g ref . g set . g simple
. g lambda . g complex . g rtd
+ g exp < T g exp g g exp g exp g test ^ g
consequent ^ g alternate ^ g unref ^ g ref ^ g set ^ g simple ^ g lambda ^ g complex ^ g unref 9 ^ g ref 9 ^ g set 9 ^ g simple 9 ^ g lambda 9 ^ g complex 9 ^ g proc x g args x g unref g ref g set g simple g lambda g complex g exps g body . g inits O g body O g alternate O g unref n g ref n g set n g simple n g lambda n g complex n g unref g ref g set g simple g lambda g complex g vals 5 g body 5 g unref 5 g ref 5 g set 5 g simple 5 g lambda 5 g complex 5 g vals O g body O g unref l g ref l g set l g simple l g lambda l g complex l g vals g body g unref g ref g set g simple g lambda g complex g exp G g body G g unref " G g ref " G g set " G g simple " G g lambda " G g complex " G g body h g winder h g unwinder h g unref g ref g set g simple g lambda g complex g unref g ref g set g simple g lambda g complex g fluids ] g vals ] g body ] g unref ] g ref ] g set ] g simple ] g lambda ] g complex ] g unref 8 ] g ref 8 ] g set 8 ] g simple 8 ] g lambda 8 ] g complex 8 ] g fluid p g fluid g exp g unref g ref g set g simple g lambda g complex g tag k g body k g handler k g unref k g ref k g set k g simple k g lambda k g complex k g unref F k g ref F k g set F k g simple F k g lambda F k g complex F k g tag g args g tail g unref g ref g set g simple g lambda g complex g unref g ref g set g simple g lambda g complex g unref
. g ref
. g set
. g simple
. g lambda
. g complex
. g filenamef language/tree-il/fix-letrec.scm
. g nameg foldts C h@ ; , 3 O Q O
Q
6 3 g tree
; g down ; g up ; g unref ; g ref ; g set ; g simple ; g lambda ; g complex ; g fold-values ; g foldts
; g filenamef language/tree-il/fix-letrec.scm
; g nameg fix-fold CR589:@C h j ] LL 6 b g x
g filenamef language/tree-il/fix-letrec.scm
, , C;>? h j ] LL 6 b g x
g filenamef language/tree-il/fix-letrec.scm
1 2 C h ]# & C& C& 4 5 45C& G4 54 54 5 4
5$ 4
5$
6CC & 4 5
O 6& ;4 54 5 45$ 4 5$
O 6CCC g x
g
bound-vars g simple-primcall? g rtd g gensym * 7 g test T g
consequent T g alternate T g exps g proc g args g filenamef language/tree-il/fix-letrec.scm
!
" - &
6 & ? " [ (
i ( j )
x ( *
" , " /
/ 0
/ 1
g nameg simple-expression? CR%SN
h ] & '4 5 4545D& 4 5 45D& 4 5 4
5D & 4 5 4
5DD g x
g unref g ref g set g simple g lambda* g complex g rtd g gensym 6 g gensym E ^ g gensyms m g gensyms g filenamef language/tree-il/fix-letrec.scm
: ; = " > 6 = > ; L F ^ D f ; p K K ; R R Y CSV h ] 4M 5 4 56 g x
g effects g filenamef language/tree-il/fix-letrec.scm
d e ( e g f g nameg effect+exception-free-primcall? C h j ] L 6 b g x
g filenamef language/tree-il/fix-letrec.scm
^ 0
^ <
C h ] 4M 5 4 56 g x
g effects g filenamef language/tree-il/fix-letrec.scm
_ ` ( ` b b 5 b a g nameg effect-free-primcall? CNQ h ]_ & 4 54 54 5
H O Q 4O 5K " k
( 8$ 4 5" 4
54
54
5D4
5$ l"
"$ D4 5$ "
4
5$
"P""4
5$
" 4 5$
"4
$ " O 5$
"
"
"&
4 54 5 "
( #4
54
54
5D4
5$
"4
5$
""
"a4 5$ 04
5$ "
"%"
" D g x
g unref g ref g set g simple g lambda* g complex g rtd g in-order? $ g orig-gensyms $ g vals
$ g compute-effects + g effect+exception-free-primcall? 5 g gensyms
L g vals L g s L g l L g c L g orig-gensyms g vals g gensyms
g vals g s g l
g c g filenamef language/tree-il/fix-letrec.scm
Z [ ; ^ L h R j X p # Y q ' n u # w v # w # p x x ! x j # 1 z { ) { 2 { ) z | ) } * | ) | $ z # 1 - '
! j - ) " # 0 1 6 $ 8 < j ? B - G ' J ! Z [ ` h w { j ~ - % - ) # h i # i + i 3 h [ # # # ! ! $ ' - ; < A ! E I L O - V ) Y # g n q - x ) { # ) % + % - ' ! # + 3 x C h0 E ]14 > G D= g x
0 g unref 0 g ref 0 g set 0 g simple 0 g lambda* 0 g complex 0 g filenamef language/tree-il/fix-letrec.scm
6
9
9 7 0 0 g nameg partition-vars CRD h ]"" ( ( C 456 &
"&
"&
"&
" "p "e g src
g exps g in g out g head + g rtd 0 g filenamef language/tree-il/fix-letrec.scm
! . $ ( & ( + + 0
= G O
R \ d
g ! q y
| g nameg make-sequence* CR%(SVW h0 ] ( C4 L 5$
4L 5C " g binds
/ g filenamef language/tree-il/fix-letrec.scm
$ " ( $ $ % ) / / g nameg lp C h ] O Q L 6 g set
g lp g filenamef language/tree-il/fix-letrec.scm
g nameg lookup C h l ]6 d g x
g filenamef language/tree-il/fix-letrec.scm
* 6 C h ] 6 g c
g filenamef language/tree-il/fix-letrec.scm
1 : . C h u ]6m g x
g filenamef language/tree-il/fix-letrec.scm
& 7 ( C h ] 4 56 g x
g tmp g filenamef language/tree-il/fix-letrec.scm
$ -
! 6 ! CNQR h l ] L 6 d g v
g filenamef language/tree-il/fix-letrec.scm
C h l ] L 6 d g v
g filenamef language/tree-il/fix-letrec.scm
C h l ] L 6 d g v
g filenamef language/tree-il/fix-letrec.scm
C 'h ` ]q & 24 54 5 4L5$ 45 6 C& b4 54 54
54 54 54
5 45 O Q 4 L54 L54 L54 L 5
44 54
5544 54
5544 54
5544 54 54 5444
5
( " [$ 44
5 5" >4
5 44
54
544
555 5556 & 4 54 54 54 54! 5 45 4"O 4#$L554%O 4#$L554&O 4#$L 55
44544 54 54 544
54
54
555 56 C X g x
g rtd g gensym A g exp A g src s g in-order? s g names s g gensyms s g vals s g body s g binds g lookup g u
g s g l g c
g tmps n g src g names g gensyms g vals g body g binds g u 4 g l 4 g c
4 g filenamef language/tree-il/fix-letrec.scm
" .
4 + < ! > I
$ # % ! - ) . 1 ? D N O R _ a f
! n
q u -
( 4 4 ? % B ' K * P * Y * , b * 8 k , p , ) y , 6 , B , * ( % # R C h0 ]!4 > G O 6 g x
+ g unref
+ g simple
+ g lambda*
+ g complex
+ g filenamef language/tree-il/fix-letrec.scm
/ + + g nameg fix-letrec! C RC g m
, g filenamef language/tree-il/fix-letrec.scm
D !
- 6
0
@@
@B
C6 PK ! 1 optimize.gonu [ GOOF----LE-8-2.0 ] 0 4 h ] g guile g define-module* g language g tree-il g optimize
g filenameS f language/tree-il/optimize.scm g importsS
g
primitives g peval g cse g
fix-letrec g debug g ice-9 g match ! " ! #g exportsS $g optimize! %$ &g set-current-module '& (& )g memq *g
partial-eval?S +g cse?S ,g fix-letrec! -g verify-tree-il .g expand-primitives! /g resolve-primitives!C 5 hP i ]4
"#%5 4( > " G )* h o ] C g g x
g e g filenamef language/tree-il/optimize.scm
" C+ h ` ] C X g x
g filenamef language/tree-il/optimize.scm
' C,-./ h ]+45 $ \ $ =$ 0 & $ " " " " " 45 $ \ $ =$ 0 & $ " " " " " 4 44 44
4 5555556 g x
g env g opts g v u g w l g x l g w 4 Z g x 4 Z g v ~ g w g x g w g x g peval g cse g filenamef language/tree-il/optimize.scm
v $
* + , - - - # - - , + * ) g nameg optimize! C$RC a g m
, g filenamef language/tree-il/optimize.scm
K
M
C6 PK ! AG
analyze.gonu [ GOOF----LE-8-2.0m ] & 4 hɴ ] g guile g define-module* g language g tree-il g analyze
g filenameS f language/tree-il/analyze.scm g importsS
g srfi g srfi-1
g srfi-9
g srfi-11
g srfi-26
g ice-9 g vlist g match !g system "g base #g syntax $!"# %$ &g message '!"& (' )g vm *g program +!)* ,+ - .- /g pmatch 0!"/ 10 2 %(,.1 3g exportsS 4g analyze-lexicals 5g analyze-tree 6g unused-variable-analysis 7g unused-toplevel-analysis 8g unbound-variable-analysis 9g arity-analysis :g format-analysis ;456789: < ?g make-hash-table @g
hashq-set! Ag
make-hashq Bg
Cg application-proc Dg application-args Eg
lset-union Fg eq? Gg map Hg
Ig conditional-test Jg conditional-consequent Kg conditional-alternate Lg
Mg lexical-ref-gensym Ng hashq-ref Og memq Pg lambda-case? Qg length Rg lambda-case-req Sg lambda-case-opt Tg lambda-case-kw Ug lambda-case-rest Vg lambda-case-alternate Wg lambda-body Xg
Yg lexical-set-gensym Zg lexical-set-exp [g lset-adjoin \g ]g module-set-exp ^g _g toplevel-set-exp `g ag toplevel-define-exp bg
cg
sequence-exps dg eg reverse! fg
gg lambda-case-inits hg lambda-case-gensyms ig lambda-case-body jg append kg reverse lg lset-difference mg ng let-gensyms og let-vals pg let-body qg rg letrec-gensyms sg letrec-vals tg letrec-body ug for-each vg wg fix-gensyms xg fix-vals yg fix-body zg error {f unhandled record |g cons }g assq-ref ~g
hashq-remove! g g let-values-exp g let-values-body g g dynwind-body g dynwind-winder g dynwind-unwinder g g
dynlet-fluids g dynlet-vals g dynlet-body g g dynref-fluid g g dynset-fluid g
dynset-exp g g
prompt-tag g prompt-body g prompt-handler g g abort-tag g
abort-args g
abort-tail g max g filter g cdr g gensym f :LCASE g conditional? g lexical-ref? f 'fixpoint procedures may not be assigned g g %make-tree-analysis-procedure g make-syntax-transformer g make-tree-analysis g macro g $sc-dispatch g _ g any g
syntax-object g lambda g m-a11d84f71ea-1a65 g top g ribcage g t-a11d84f71ea-1a60 g t-a11d84f71ea-1a61 g t-a11d84f71ea-1a62 g t-a11d84f71ea-1a63 g t-a11d84f71ea-1a64 f l-a11d84f71ea-1a6a f l-a11d84f71ea-1a6b f l-a11d84f71ea-1a6c f l-a11d84f71ea-1a6d f l-a11d84f71ea-1a6e g x f l-a11d84f71ea-1a67 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
g hygiene
g leaf g down g up g post g init g make-struct g m-a11d84f71ea-1a5e 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 0f l-1e8ba8b5a-df 1f l-1e8ba8b5a-dd 2f l-1e8ba8b5a-db 3+,-./012 4)*3 5f l-1e8ba8b5a-da 65 76 8
47 98 : ;
8 <9:; =< >g each-any ?> @g syntax-violation A@ B@ Cf Wrong number of arguments Dg identifier? ED FD G HG I@ J@ Kf -source expression failed to match any pattern Lg record-type-vtable ML NL Og
pwpwpwpwpw Pg default-record-printer QP RP S Tg set-struct-vtable-name! UT VT Wg vtable-offset-user XW YW Zg %tree-analysis?-procedure [g tree-analysis? \ ]g m-a11d84f71ea-1a7a ^] _g t-a11d84f71ea-1a79 `_ a^ bf l-a11d84f71ea-1a7f cb d`ac ef l-a11d84f71ea-1a7c fe gaf h^dg
ih jg obj kg t-1e8ba8b5a-224 lg t-1e8ba8b5a-21e mg t-1e8ba8b5a-21f ng t-1e8ba8b5a-220 og t-1e8ba8b5a-223 pg t-1e8ba8b5a-222 qg t-1e8ba8b5a-221 rklmnopq sg m-1e8ba8b5a-225 ts uttttttt vf l-1e8ba8b5a-229 wf l-1e8ba8b5a-22a xf l-1e8ba8b5a-22b yf l-1e8ba8b5a-22c zf l-1e8ba8b5a-22d {f l-1e8ba8b5a-22e |f l-1e8ba8b5a-22f }vwxyz{| ~ru} g copier-id f l-1e8ba8b5a-21c g ctor-name f l-1e8ba8b5a-214 f l-1e8ba8b5a-212 g layout f l-1e8ba8b5a-210 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 dg~47 j g and g struct? F g
struct-vtable dg i g Z g throw-bad-struct g tree-analysis-leaf g %tree-analysis-leaf-procedure g free-id g
%%on-error g m-a11d84f71ea-1a86 f l-a11d84f71ea-1a88 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 f l-1e8ba8b5a-144 f l-1e8ba8b5a-145 f l-1e8ba8b5a-146 47 g ck g err g s f l-a11d84f71ea-1a8b f l-a11d84f71ea-1a8c
g quote
g %%index f l-a11d84f71ea-1a90 f l-a11d84f71ea-1a91
g %%copier !f l-a11d84f71ea-1a95 "f l-a11d84f71ea-1a96 #!" $ # %$
&% '% (g %%-set-fields )$ *() +'* ,+ -g t-a11d84f71ea-1a85 .- /f l-a11d84f71ea-1a9a 0/ 1.0 21
32 4147 54 65 7g if 874 9F4 :4 ;:5 <1 =< >9;= ?g
struct-ref @?4 A1 B
A C@5B D4 E4 F< GEF HD5G I8>CH J36I K LK Mg tree-analysis-down Ng %tree-analysis-down-procedure Og m-a11d84f71ea-1aa1 PO QP Rf l-a11d84f71ea-1aa3 SR TQS UPT VU WV XW YT47 ZY [Z \X[ ]PP ^f l-a11d84f71ea-1aa6 _f l-a11d84f71ea-1aa7 `^_ a ]` bPaT
cb db eaT fe gdf hg iY ji kXj lf l-a11d84f71ea-1aab mf l-a11d84f71ea-1aac nlm o ]n pPoT
qp rp soT t s urt vu w Y xw yXx zf l-a11d84f71ea-1ab0 {f l-a11d84f71ea-1ab1 |z{ } ]| ~P}T
~ ~ }T ( g t-a11d84f71ea-1aa0 f l-a11d84f71ea-1ab5 Q PT
T47 7 F T ? T M T N g tree-analysis-up g %tree-analysis-up-procedure g m-a11d84f71ea-1abc f l-a11d84f71ea-1abe 47 f l-a11d84f71ea-1ac1 f l-a11d84f71ea-1ac2
f l-a11d84f71ea-1ac6 f l-a11d84f71ea-1ac7
f l-a11d84f71ea-1acb f l-a11d84f71ea-1acc
( g t-a11d84f71ea-1abb f l-a11d84f71ea-1ad0
47 7 F ? g tree-analysis-post g %tree-analysis-post-procedure g m-a11d84f71ea-1ad7 f l-a11d84f71ea-1ad9 47
f l-a11d84f71ea-1adc f l-a11d84f71ea-1add
f l-a11d84f71ea-1ae1 f l-a11d84f71ea-1ae2
! "! # $# %$ &f l-a11d84f71ea-1ae6 'f l-a11d84f71ea-1ae7 (&' ) ( *)
+* ,* -) .(- /,. 0/ 1g t-a11d84f71ea-1ad6 21 3f l-a11d84f71ea-1aeb 43 524 65
76 85 47 98 :9 ;78 <F8 =8 >=9 ?5 @? A<>@ B?8 C5 D C EB9D F8 G8 H? IGH JF9I K;AEJ L7:K M NM Og tree-analysis-init Pg %tree-analysis-init-procedure Qg m-a11d84f71ea-1af2 RQ SR Tf l-a11d84f71ea-1af4 UT VSU WRV XW YX ZY [V47 \[ ]\ ^Z] _RR `f l-a11d84f71ea-1af7 af l-a11d84f71ea-1af8 b`a c _b dRcV
ed fd gcV hg ifh ji k[ lk mZl nf l-a11d84f71ea-1afc of l-a11d84f71ea-1afd pno q _p rRqV
sr tr uqV v u wtv xw y [ zy {Zz |f l-a11d84f71ea-1b01 }f l-a11d84f71ea-1b02 ~|} _~ RV
V ( g t-a11d84f71ea-1af1 f l-a11d84f71ea-1b06 S RV
V47 7 F V ? V O V P g each g %%set-fields g dummy g check? g expr g m-a11d84f71ea-1b0d f l-a11d84f71ea-1b12 f l-a11d84f71ea-1b13 f l-a11d84f71ea-1b14 f l-a11d84f71ea-1b15 f l-a11d84f71ea-1b16 f l-a11d84f71ea-1b0f g t-1e8ba8b5a-16a g t-1e8ba8b5a-16c g t-1e8ba8b5a-16b g m-1e8ba8b5a-16d f l-1e8ba8b5a-171 f l-1e8ba8b5a-172 f l-1e8ba8b5a-173 f l-1e8ba8b5a-167 f l-1e8ba8b5a-168 f l-1e8ba8b5a-169 47
M O G G g list g tree-il-fold g tree-il-src g g %make-binding-info-procedure g make-binding-info g m-a11d84f71ea-1b75 g t-a11d84f71ea-1b73 g t-a11d84f71ea-1b74 f l-a11d84f71ea-1b7a f l-a11d84f71ea-1b7b f l-a11d84f71ea-1b77
g vars g refs g m-a11d84f71ea-1b71
47
g pwpw g %binding-info?-procedure g
binding-info? g m-a11d84f71ea-1b84 g t-a11d84f71ea-1b83
f l-a11d84f71ea-1b89
f l-a11d84f71ea-1b86
~47 j F
! "! #g binding-info-vars $g %binding-info-vars-procedure %g m-a11d84f71ea-1b90 &% '& (f l-a11d84f71ea-1b92 )( *') +&* ,+ -, .- /*47 0/ 10 2.1 3&& 4f l-a11d84f71ea-1b95 5f l-a11d84f71ea-1b96 645 7 36 8&7*
98 :8 ;7* <; =:< >= ?/ @? A.@ Bf l-a11d84f71ea-1b9a Cf l-a11d84f71ea-1b9b DBC E 3D F&E*
GF HF IE* J
I KHJ LK M / NM O.N Pf l-a11d84f71ea-1b9f Qf l-a11d84f71ea-1ba0 RPQ S 3R T&S*
UT VT Wg %%-set-fields XS* YWX ZVY [Z \g t-a11d84f71ea-1b8f ]\ ^f l-a11d84f71ea-1ba4 _^ `]'_ a&`*
ba c`*47 dc ed f7c gFc hc ihd j`* kj lgik m?c n`* o
n pmdo qc rc s#j trs uqdt vflpu wbev x* y$x zg binding-info-refs {g %binding-info-refs-procedure |g m-a11d84f71ea-1bab }| ~} f l-a11d84f71ea-1bad ~ } 47 }} f l-a11d84f71ea-1bb0 f l-a11d84f71ea-1bb1 }
f l-a11d84f71ea-1bb5 f l-a11d84f71ea-1bb6 }
f l-a11d84f71ea-1bba f l-a11d84f71ea-1bbb }
W g t-a11d84f71ea-1baa f l-a11d84f71ea-1bbf ~ }
47 7 F ? z { g m-a11d84f71ea-1bc6 f l-a11d84f71ea-1bcb f l-a11d84f71ea-1bcc f l-a11d84f71ea-1bcd f l-a11d84f71ea-1bce f l-a11d84f71ea-1bcf f l-a11d84f71ea-1bc8 47
# z g
string-any g symbol->string g gensym? g vhash-consq j j g cadr g fold g let-names g letrec-names g fix-names g vlist-for-each g
vhash-assq g find g pair? g warning g unused-variable g
vlist-drop g
vlist-null g g %make-reference-graph-procedure g make-reference-graph g m-a11d84f71ea-1ccf g t-a11d84f71ea-1ccc g t-a11d84f71ea-1ccd g t-a11d84f71ea-1cce f l-a11d84f71ea-1cd4 f l-a11d84f71ea-1cd5 f l-a11d84f71ea-1cd6 f l-a11d84f71ea-1cd1
g defs g toplevel-context g m-a11d84f71ea-1cca
47
g pwpwpw !g %reference-graph?-procedure "g reference-graph? #g m-a11d84f71ea-1ce0 $# %g t-a11d84f71ea-1cdf &% '$ (f l-a11d84f71ea-1ce5 )( *&') +f l-a11d84f71ea-1ce2 ,+ -', .$*-
/. 0*-~47 1j0 21 30 40 541 6F0 70 871 9*- :9 ;68: <35; =/2< >- ?!> @g reference-graph-defs Ag %reference-graph-defs-procedure Bg m-a11d84f71ea-1cec CB DC Ef l-a11d84f71ea-1cee FE GDF HCG IH JI KJ LG47 ML NM OKN PCC Qf l-a11d84f71ea-1cf1 Rf l-a11d84f71ea-1cf2 SQR T PS UCTG
VU WU XTG YX ZWY [Z \L ]\ ^K] _f l-a11d84f71ea-1cf6 `f l-a11d84f71ea-1cf7 a_` b Pa cCbG
dc ec fbG g
f heg ih j L kj lKk mf l-a11d84f71ea-1cfb nf l-a11d84f71ea-1cfc omn p Po qCpG
rq sq tg %%-set-fields upG vtu wsv xw yg t-a11d84f71ea-1ceb zy {f l-a11d84f71ea-1d00 |{ }zD| ~C}G
~ }G47 7 F }G ? }G
@ G A g reference-graph-refs g %reference-graph-refs-procedure g m-a11d84f71ea-1d07 f l-a11d84f71ea-1d09 47 f l-a11d84f71ea-1d0c f l-a11d84f71ea-1d0d
f l-a11d84f71ea-1d11 f l-a11d84f71ea-1d12
f l-a11d84f71ea-1d16 f l-a11d84f71ea-1d17
t g t-a11d84f71ea-1d06 f l-a11d84f71ea-1d1b
47 7 F ? g reference-graph-toplevel-context g +%reference-graph-toplevel-context-procedure g m-a11d84f71ea-1d22 f l-a11d84f71ea-1d24 47 f l-a11d84f71ea-1d27 f l-a11d84f71ea-1d28
f l-a11d84f71ea-1d2c
f l-a11d84f71ea-1d2d
f l-a11d84f71ea-1d31 f l-a11d84f71ea-1d32
! "t! # " $# %g t-a11d84f71ea-1d21 &% 'f l-a11d84f71ea-1d36 (' )&( *)
+* ,)47 -, .- /7, 0F, 1, 21- 3) 43 5024 6?, 7) 8 7 96-8 :, ;, <3 =;< >:-= ?/59> @+.? A BA Cg m-a11d84f71ea-1d3d DC ED Ff l-a11d84f71ea-1d42 Gf l-a11d84f71ea-1d43 Hf l-a11d84f71ea-1d44 If l-a11d84f71ea-1d45 Jf l-a11d84f71ea-1d46 KFGHIJ LEK MD Nf l-a11d84f71ea-1d3f ON PMO QLP47
RQ SLP TS U@S VS WS XUVW Yg and=> Zg graph-reachable-nodes [g
vlist-fold \g graph-reachable-nodes* ]g
partition* ^g toplevel-define-name _g toplevel-define-src `g toplevel-set-name ag toplevel-set-src bg module? cg module-variable dg module-public-interface eg macro? fg vlist-filter gg unused-toplevel hg ig toplevel-ref-name jg toplevel-ref-src kg lg %make-toplevel-info-procedure mg make-toplevel-info ng m-a11d84f71ea-1e83 on pg t-a11d84f71ea-1e81 qg t-a11d84f71ea-1e82 rpq soo tf l-a11d84f71ea-1e88 uf l-a11d84f71ea-1e89 vtu wrsv xo yf l-a11d84f71ea-1e85 zy {xz |ow{
}| ~w{ ~ ~ g m-a11d84f71ea-1e7f w{
47 k~
} { l g %toplevel-info?-procedure g toplevel-info? g m-a11d84f71ea-1e92 g t-a11d84f71ea-1e91 f l-a11d84f71ea-1e97 f l-a11d84f71ea-1e94
~47 j F k g toplevel-info-refs g %toplevel-info-refs-procedure g m-a11d84f71ea-1e9e f l-a11d84f71ea-1ea0 47 f l-a11d84f71ea-1ea3 f l-a11d84f71ea-1ea4
k f l-a11d84f71ea-1ea8 f l-a11d84f71ea-1ea9
f l-a11d84f71ea-1ead f l-a11d84f71ea-1eae
g %%-set-fields g t-a11d84f71ea-1e9d f l-a11d84f71ea-1eb2
47 7 F k ?
g toplevel-info-defs g %toplevel-info-defs-procedure g m-a11d84f71ea-1eb9 f l-a11d84f71ea-1ebb
47 f l-a11d84f71ea-1ebe f l-a11d84f71ea-1ebf
k ! "f l-a11d84f71ea-1ec3 #f l-a11d84f71ea-1ec4 $"# % $ &%
'& (& )%
* ) +(* ,+ - .- /. 0f l-a11d84f71ea-1ec8 1f l-a11d84f71ea-1ec9 201 3 2 43
54 64 73
87 968 :9 ;g t-a11d84f71ea-1eb8 <; =f l-a11d84f71ea-1ecd >= ?<> @?
A@ B?
47 CB DC E7B FFB GB HGC I?
JkI KFHJ L?B M?
N M OLCN PB QB RI SQR TPCS UEKOT VADU W
XW Yg m-a11d84f71ea-1ed4 ZY [Z \f l-a11d84f71ea-1ed9 ]f l-a11d84f71ea-1eda ^f l-a11d84f71ea-1edb _f l-a11d84f71ea-1edc `f l-a11d84f71ea-1edd a\]^_` b[a cZ df l-a11d84f71ea-1ed6 ed fce gbf47
hg ibf jki ki li mkl ng og toplevel-define! pg resolve-module qg oop rg goops sqr tg ug goops-toplevel-definition vg
vhash-delq wg unbound-variable xg
vlist-reverse yg zg %make-arity-info-procedure {g make-arity-info |g m-a11d84f71ea-2136 }| ~g t-a11d84f71ea-2133 g t-a11d84f71ea-2134 g t-a11d84f71ea-2135 ~ }}} f l-a11d84f71ea-213b f l-a11d84f71ea-213c f l-a11d84f71ea-213d } f l-a11d84f71ea-2138 }
g toplevel-calls g lexical-lambdas g toplevel-lambdas g m-a11d84f71ea-2131
47 y
z g %arity-info?-procedure g arity-info? g m-a11d84f71ea-2147 g t-a11d84f71ea-2146 f l-a11d84f71ea-214c f l-a11d84f71ea-2149
~47 j F y g toplevel-procedure-calls g #%toplevel-procedure-calls-procedure g m-a11d84f71ea-2153 f l-a11d84f71ea-2155 47 f l-a11d84f71ea-2158 f l-a11d84f71ea-2159
y f l-a11d84f71ea-215d f l-a11d84f71ea-215e
f l-a11d84f71ea-2162 f l-a11d84f71ea-2163
g %%-set-fields g t-a11d84f71ea-2152 f l-a11d84f71ea-2167
47 7 F y
?
g %lexical-lambdas-procedure g m-a11d84f71ea-216e f l-a11d84f71ea-2170 ! " 47 #" $# %!$ & 'f l-a11d84f71ea-2173 (f l-a11d84f71ea-2174 )'( * &) +*
,+ -+ .* /y. 0-/ 10 2" 32 4!3 5f l-a11d84f71ea-2178 6f l-a11d84f71ea-2179 756 8 &7 98
:9 ;9 <8 = < >;= ?> @ " A@ B!A Cf l-a11d84f71ea-217d Df l-a11d84f71ea-217e ECD F &E GF
HG IG JF KJ LIK ML Ng t-a11d84f71ea-216d ON Pf l-a11d84f71ea-2182 QP ROQ SR
TS UR 47 VU WV X7U YFU ZU [ZV \R ]y\ ^Y[] _?U `R a ` b_Va cU dU e\ fde gcVf hX^bg iTWh j kj lg %toplevel-lambdas-procedure mg m-a11d84f71ea-2189 nm on pf l-a11d84f71ea-218b qp roq snr ts ut vu wr47 xw yx zvy {nn |f l-a11d84f71ea-218e }f l-a11d84f71ea-218f ~|} {~ nr
r y w v f l-a11d84f71ea-2193 f l-a11d84f71ea-2194 { nr
r w v f l-a11d84f71ea-2198 f l-a11d84f71ea-2199 { nr
r g t-a11d84f71ea-2188 f l-a11d84f71ea-219d o nr
r47 7 F r y ? r r l g m-a11d84f71ea-21a4 f l-a11d84f71ea-21a9 f l-a11d84f71ea-21aa f l-a11d84f71ea-21ab f l-a11d84f71ea-21ac f l-a11d84f71ea-21ad f l-a11d84f71ea-21a6 47
y g program? g procedure-name g
arity:nreq g
arity:nopt g arity:rest? g car g arity:kw g arity:allow-other-keys? g program-arities g
procedure? g procedure-minimum-arity g lambda-meta g assoc-ref g const? g const-exp g keyword? g arity-mismatch g with-output-to-string g write g validate-arity g application-src g
vlist-tail g catch g
module-ref g
toplevel-ref? g lambda? f format-string-syntax-error g
&syntax-error g throw g unterminated-conditional g tilde g literal g
take-while 0123456789
g string->number g list->string g every g number? g list-ref g min g unexpected-semicolon g "unexpected-conditional-termination g unterminated-iteration g unexpected-termination f computer bought the farm g string->list g format-string-argument-count g resolve-interface g ensureS
g proc-ref? g gettext g gettext?
g ngettext g N_ g ngettext? g string? g const-fmt g boolean? g format g
wrong-port g negate g non-literal-format-string z z f no matching pattern g wrong-format-string g wrong-num-args g wrong-format-arg-count g syntax-error g
make-const ASas~% g
simple-format ! " # $ ! % ! C 5 hT k ]04
23;5 4> > " G ?@ h( ]
45 4 > " G C g k
" g v " g res " g filenamef language/tree-il/analyze.scm
" g nameg
make-hashq CARh ]L L 6 { g y
g filenamef language/tree-il/analyze.scm
&
g nameg step CBCDEFGHIJKLM@NOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstu@ h k ]M 6 c g sym
g filenamef language/tree-il/analyze.scm
Cvwxy@ h | ]M 6 t g sym
g val g filenamef language/tree-il/analyze.scm
# CdW@jeNz{ h ] & o4 5 4M > " G 4L 4LL55 4M 44M 55> " G 4M > " G C 6 g x
g rtd g body ~ g free A ~ g filenamef language/tree-il/analyze.scm
. % . 5 A A D ! K ! 0 N ! : X ! 0 ] ! f " C|}uN@ h0 ]4M 5$ 4M > " G L 6C ~ g sym
, g filenamef language/tree-il/analyze.scm
* + ! + - # * . # , C h( ] 4L 5 $ LLO 6C g sym
$ g refs $ g filenamef language/tree-il/analyze.scm
' ( ( )
" * $ g nameg delabel-dependents! CN h } ]4M 5$ CL 6 u g sym
g filenamef language/tree-il/analyze.scm
= > > ? CN@j~ hX ]4M 5$ G4M L44M 54M L55> " G 4M > " G M6C g sym
X g val X g filenamef language/tree-il/analyze.scm
D
E E I J J & # K & - J 2 I ; L V M X C Z h
]MO LQ & :4 54 5 4L$ " 545@& I4 54
54 5 4L54L54L 56 & "4
5 4M4M
5> " G " 4M> " G " $ 45$ 4M5 $ " ~ $ s4 5$ c44 5545$ ,4 5$ " 4 5$ " 4 5"
$
" '4 5 "
" "
45 "u" $ " " " "" " C& P4 54 5 4M > " G 4M> " G 4L56 & 4 5 " & 4 5 "!& 4" 5 "d#& m4$ 5 " U( C(
4L
5
64
4L
5
5 " "%& h4 5 4M > " G 4L 5 4M 4&4M 55> " G 4M > " G C'& 4( 54) 54* 54 5
4 > " G 4 > " G 4M4+4,54M55> " G 4-4445?4L 555
$ 4L
5" 6.& j4/ 540 541 5 4M4+4,54M55> " G -44L 545?62& 43 544 545 5 4M4+4,54M55> " G 467L O > " G -44L 545?68& 49 54: 54; 5 46 " G 4M4+4,54M55> " G 4=LLLO 5
4>
5 4L 4+55 ?O
L
Q
46@
LO > " G 46ALLLO > " G -4
?6B& 04C 54D 5 4L54L56E& E4F 54G 54H 5 4L54L54L 56I& =4J 54K 54L 5 4L 544+55@M& 4N 5 "O& 04P 54Q 5 4L54L56R& G4S 54T 54U 5 4L54L54L 56V& B4W 54X 54Y 5 4L54L 545@C
g x
g proc
g labels-in-proc
g tail?
g tail-call-args
g step
g rtd
g proc - Y g args - Y g test v g
consequent v g alternate v g gensym g p g c g t
u g gensym , g exp , g exp ; R g exp a x g exp g exps g exps g ret g y
g y
g body " g free F g inits I g gensyms I g body I g alternate
I g gensyms f g vals f g body f g gensyms F g vals F g body F g gensyms c J g vals c J g body c J g var-refs
J g vars-with-refs J g body-refs J g delabel-dependents!
J g exp ` g body ` g body g winder g unwinder g fluids g vals g body g fluid # : g fluid P r g exp P r g tag g body g handler g tag g args g tail >g filenamef language/tree-il/analyze.scm
6 $ E . N $ O Y a & ( $
% & % 0 1 , 4 4 < , = , D ) H $ I . S $ Y . c $ i . p ) u # ( $ ( $ & ( , 4 B & R Z h & x & / $ 9 3 & ! % , 1 : A 4 F F I P " S , ] " b k - % ; % * . 4 5 G , I Q m t w ~ - ? - % * 8 ? B F N j - % = C < P J O R i p & t | & T & & & W & Z ) Z 3 Z ) Z * & : B Y ` & d l & p r ` z & & c & & f 4 f h
g nameg analyze! C h { ]L LL 6 s g y
g filenamef language/tree-il/analyze.scm
p p g nameg recur CBCDGHIJKXZ\]^_`abcdW@NN h r ]4M 5L 6 j g v
g filenamef language/tree-il/analyze.scm
CN h t ] 4M 5C l g sym
g filenamef language/tree-il/analyze.scm
" . $ CfghiVST h i ]L LL 6 a g x
g filenamef language/tree-il/analyze.scm
! - CAmnopQMqrst h i ]L LL 6 a g x
g filenamef language/tree-il/analyze.scm
% ' Cvwxyz{jP V hx ]kO LQ & *4 54 5 4L545@& @4 54 54
5 4L54L54L56 & 4 5 "M
& 4 5 ",& 4 5 " & 4 5 "& 4 5 45@& 4 5 " D$ 944M5 4M5> " G "" 4M 5
"4LO 4M 5544 LO 4M 555 4L
> " G 4M > " G C & 4 54 54 54! 5 4" > " G 4# > " G " ( K44L
54$
LO 5? 4M 4%&5 > " G " H 4M 4'4M 5
5> " G
"v
"j$ 4L5" 6(& u4) 54* 54+ 5 445? " c" S ( 4L
56 4M 4'4M 5
5> " G
"
"4,5$ 4-5 $ 4M 5$ " f4M
5 $ T4.455$ ?4/455 & (4.4 55$ 4/4 55 " " " " $ ;4M4'5> " G 4L4
556"""0& 41 542 543 5 " l( *444 LO 5?
4L 56
4M
4'4M
5 5> " G " "5& C46 547 548 5 " ( "
( 4L 564M
5$ S
& "4
5 4 4L 55 " 49:
5
"
4 4L 55
"e
"U
4M
5$ 9; 64M
5$
"4M
4' 5> " G " "<& ,4= 54> 5 4L54L56?& @4@ 54A 54B 5 4L54L54L56C& :4D 54E 54F 5 4L544G55@H& 4I 5 "J& ,4K 54L 5 4L54L56M& 4N 54O 54P 5 4Q5$ 4 5$ 4 5" " 4M $ 4M
5
" > " G 4L54L54L56R& >4S 54T 54U 5 4L54L545@C g x
u g proc u g n u g recur u g rtd u g proc 0 L g args 0 L g test i g
consequent i g alternate i g exp g exp g exp g exp g exps ' 6 g body E g c K g n K g free-addresses g labels g inits 3 g gensyms 3 g body 3 g alternate 3 g gensyms e g n
e g nlocs g gensyms 1 g vals 1 g body 1 g nmax E g gensyms O g n
O g v i g v F g gensyms 0 g vals 0 g body 0 g gensyms $ g n $ g nmax
g v
$ g gensyms M { g vals M { g body M { g in W o g n W o g gensyms
a g vals a g nmax a g r
g rtd g body g v
o g exp g body g body g winder g unwinder g fluids 9 g vals 9 g body 9 g fluid H Z g fluid p g exp p g tag , g body , g handler , g cont-var , g tag I r g args I r g tail I r Hg filenamef language/tree-il/analyze.scm
o q 7 p B s L s T q r p v q p q p q p q p q , 6 > q K N
R S V ] 1 _ b c ! j 5 l ! o u " " q e k
l o z / 7 / ) ' " ( < ( " " q 8 ; E E O U
Z f i i l s x y & % % 0
% ! $ 0 , / J K R " S X ( _ d s t w ' q
" ! $ $ 8 q W ] a
g l x y # " " *
" & ' 3 6 @ A H * M ; T * Y d g o o q p q p q p ( - * 7 9 A q Z p b q w p
q
#
!
* #
p , 4 q R p h + r u g nameg allocate! C? h ]AHHHHHHO O Q Q 45 K45 K45 K45 K45 K45 K4 > " G 4
> " G JC g x
g
bound-vars g free-vars g assigned g refcounts g labels g
allocation g analyze! / g allocate! / g filenamef language/tree-il/analyze.scm
P W ^ e l s m z g nameg analyze-lexicals C4R h ] C g leaf
g down g up g post g init g filenamef language/tree-il/analyze.scm
#
g nameg %make-tree-analysis-procedure CR4= h ] C g t-a11d84f71ea-1a60
g t-a11d84f71ea-1a61 g t-a11d84f71ea-1a62 g t-a11d84f71ea-1a63 g t-a11d84f71ea-1a64 C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm #
CF h P ] L 6H g filenamef language/tree-il/analyze.scm #
CH h ] C
CJK 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/analyze.scm
#
n C5R NO RS 4 V > " G Yi R h ] $ CC g obj
g filenamef language/tree-il/analyze.scm
#
g nameg %tree-analysis?-procedure CZR4[\ h : ] C 2 g t-a11d84f71ea-1a79
C?B[C h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm #
CF h P ] L 6H g filenamef language/tree-il/analyze.scm #
C h ] C
CJK 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/analyze.scm
#
n C5[R h ] &
C 6 g s
g filenamef language/tree-il/analyze.scm
#
g nameg %tree-analysis-leaf-procedure CR4
h : ]C 2 g err
g s C h : ]C 2 g err
g s C &, h : ]C 2 g err
g s C\J h : ] C 2 g t-a11d84f71ea-1a85
C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm #
CF h P ] L 6H g filenamef language/tree-il/analyze.scm #
CL h ] C
CJK 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/analyze.scm
#
C5RM h ] & C 6 g s
g filenamef language/tree-il/analyze.scm
#
g nameg %tree-analysis-down-procedure CNR4M\ch h : ]C 2 g err
g s Ckqv h : ]C 2 g err
g s Cy h : ]C 2 g err
g s C\ h : ] C 2 g t-a11d84f71ea-1aa0
C?BMC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm #
CF h P ] L 6H g filenamef language/tree-il/analyze.scm #
C h ] C
CJK 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/analyze.scm
#
C5MR h ] & C 6 g s
g filenamef language/tree-il/analyze.scm
#
g nameg %tree-analysis-up-procedure CR4 h : ]C 2 g err
g s C h : ]C 2 g err
g s C h : ]C 2 g err
g s C\ h : ] C 2 g t-a11d84f71ea-1abb
C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm #
CF h P ] L 6H g filenamef language/tree-il/analyze.scm #
C h ] C
CJK 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/analyze.scm
#
C5R h ] & C 6 g s
g filenamef language/tree-il/analyze.scm
#
g nameg %tree-analysis-post-procedure CR4 h : ]C 2 g err
g s C " h : ]C 2 g err
g s C%+0 h : ]C 2 g err
g s C\L h : ] C 2 g t-a11d84f71ea-1ad6
C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm #
CF h P ] L 6H g filenamef language/tree-il/analyze.scm #
CN h ] C
CJK 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/analyze.scm
#
C5RO h ] & C 6 g s
g filenamef language/tree-il/analyze.scm
#
g nameg %tree-analysis-init-procedure CPR4O^ej h : ]C 2 g err
g s Cmsx h : ]C 2 g err
g s C{ h : ]C 2 g err
g s C\ h : ] C 2 g t-a11d84f71ea-1af1
C?BOC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm #
CF h P ] L 6H g filenamef language/tree-il/analyze.scm #
C h ] C
CJK 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/analyze.scm
#
C5OR4( h v ]45C n g dummy
g check? g s g getter g expr CJK h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef language/tree-il/analyze.scm
#
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5(RG h ]4L 5LLL 6 g analysis
g result g filenamef language/tree-il/analyze.scm
9 : : C h( ]
4L L O L5C g x
" g results " g locs " g filenamef language/tree-il/analyze.scm
6 7 ! 7
9 < 9 ! 8 " CNGh ]4L 5LLL 6 g analysis
g result g filenamef language/tree-il/analyze.scm
9 : : C h8 ]
4 5 4L L O L5C g x
1 g results 1 g locs g locs 1 g filenamef language/tree-il/analyze.scm
6 7 ! 7 @ % @ 7 9 - < / 9 0 8 1 CG h ]4L 5LLL 6 g analysis
g result g filenamef language/tree-il/analyze.scm
9 : : C h0 ]
4L L O L5C g x
* g results * g locs
g locs
* g filenamef language/tree-il/analyze.scm
6 7 ! 7
A
7 9 & < ( 9 ) 8
* CGPu h( ] & " 4 5L 6 | g analysis
# g result # g filenamef language/tree-il/analyze.scm
K L # C hp ] 4 O O O 4 55 4
O > " G C g analyses
n g tree n g env n g proc g proc ) g proc + ; g results J k g filenamef language/tree-il/analyze.scm
,
D D E + F < G = H F G J D J C M K [ N ` K n g nameg analyze-treeg
documentationf hRun all tree analyses listed in ANALYSES on TREE for ENV, using
`tree-il-fold'. Return TREE. The leaf/down/up procedures of each analysis are
passed a ``location stack', which is the stack of `tree-il-src' values for each
parent tree (a list); it can be used to approximate source location when
accurate information is missing from a given `tree-il' element. C5R h ] C g vars
g refs g filenamef language/tree-il/analyze.scm
Z
g nameg %make-binding-info-procedure CR4 h Z ] C R g t-a11d84f71ea-1b73
g t-a11d84f71ea-1b74 C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm Z
CF h P ] L 6H g filenamef language/tree-il/analyze.scm Z
C h ] C
CJK 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/analyze.scm
Z
n C5R N R 4 V > " G Yi R h ] $ CC ~ g obj
g filenamef language/tree-il/analyze.scm
Z
g nameg %binding-info?-procedure CR4\ h : ] C 2 g t-a11d84f71ea-1b83
C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm Z
CF h P ] L 6H g filenamef language/tree-il/analyze.scm Z
C" h ] C
CJK 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/analyze.scm
Z
n C5R# h ] &
C 6 g s
g filenamef language/tree-il/analyze.scm
Z
g nameg %binding-info-vars-procedure C$R4#29> h : ]C 2 g err
g s CAGL h : ]C 2 g err
g s COU[ h : ]C 2 g err
g s C\w h : ] C 2 g t-a11d84f71ea-1b8f
C?B#C h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm Z
CF h P ] L 6H g filenamef language/tree-il/analyze.scm Z
Cy h ] C
CJK 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/analyze.scm
Z
C5#Rz h ] & C 6 g s
g filenamef language/tree-il/analyze.scm
Z
g nameg %binding-info-refs-procedure C{R4z h : ]C 2 g err
g s C h : ]C 2 g err
g s C h : ]C 2 g err
g s C\ h : ] C 2 g t-a11d84f71ea-1baa
C?BzC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm Z
CF h P ] L 6H g filenamef language/tree-il/analyze.scm Z
C h ] C
CJK 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/analyze.scm
Z
C5zR4W h v ]45C n g dummy
g check? g s g getter g expr CJK h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef language/tree-il/analyze.scm
Z
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5WR h ] 4 56 g sym
g filenamef language/tree-il/analyze.scm
`
b b g nameg gensym? CRz#XYfRSUThgG h ] L 6 g var
g name g vars g filenamef language/tree-il/analyze.scm
w
x " x Cmn h ] L 6 g var
g name g vars g filenamef language/tree-il/analyze.scm
w
x " x Cqr h ] L 6 g var
g name g vars g filenamef language/tree-il/analyze.scm
w
x " x Cvw h ] L 6 g var
g name g vars g filenamef language/tree-il/analyze.scm
w
x " x C ! h ]\& " 45&
" 454 5 & 4 5 45 C & 4
54 54 54
54 5
4 > " G 44 $ " 4
$
" $ 4 5" 555
4O
5 C& 04 54 5 4O 5
C& 04 54 5 4 O 5
C & 04 54 5 4 O 5
CC g x
g info g env g locs g refs = g vars = g src = g rtd F g gensym W o g refs c o g req g opt g rest
g kw g gensyms g names
g vars
g gensyms / Q g names / Q g vars
E Q g gensyms g g names g g vars
} g gensyms g names g vars
g filenamef language/tree-il/analyze.scm
p s t 7 u = s F } Z " c
w } # $ 0 " , " 6
w
! } 4 w E
Y } l w }
} w
# C z#OP
h p ] 4L5$ m4L 5$ " 4L5$ M $ " 4L5 45$ " $
6CCC h g var
g gensym g t ; U g name U g loc U g filenamef language/tree-il/analyze.scm
! ' . 2 5 9 " ; J " U Z " d m , n " o s w ! } CQ h0 ]4LL O L > " G L 4 56 g
inner-vars
. g refs . g filenamef language/tree-il/analyze.scm
& . . g nameg shrink Cfhmnqrvw h ]4& " 45&
" 45 O Q & 4 5 45 C& 4 5 45 C
& 4 5 45 C & 4
5 45 CC g x
g info g env g locs g refs 6 g vars 6 g shrink D g rtd P g gensyms a x g vars l x g gensyms g vars g gensyms g vars g gensyms g vars g filenamef language/tree-il/analyze.scm
6 P d l
C ii i iz#LM hp & ],& " 45&
" 45 & 4 5 45 CC g x
i g info i g env i g locs i g refs 6 i g vars 6 i g rtd = i g gensym N f g refs Z f g filenamef language/tree-il/analyze.scm
g i j 6 i = k Q m " Z m
i C h v ]C n g result
g env g filenamef language/tree-il/analyze.scm
C 6R h ] C g refs
g defs g toplevel-context g filenamef language/tree-il/analyze.scm
g nameg %make-reference-graph-procedure CR4 h z ] C r g t-a11d84f71ea-1ccc
g t-a11d84f71ea-1ccd g t-a11d84f71ea-1cce C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm
CF h P ] L 6H g filenamef language/tree-il/analyze.scm
C h ] C
CJK 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/analyze.scm
n C5R N R 4 V > " G Yi R h ] $ CC g obj
g filenamef language/tree-il/analyze.scm
g nameg %reference-graph?-procedure C!R4"\= h : ] C 2 g t-a11d84f71ea-1cdf
C?B"C h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm
CF h P ] L 6H g filenamef language/tree-il/analyze.scm
C? h ] C
CJK 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/analyze.scm
n C5"R@ h ] &
C 6 g s
g filenamef language/tree-il/analyze.scm
g nameg %reference-graph-defs-procedure CAR4@OV[ h : ]C 2 g err
g s C^di h : ]C 2 g err
g s Clrx h : ]C 2 g err
g s C\ h : ] C 2 g t-a11d84f71ea-1ceb
C?B@C h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm
CF h P ] L 6H g filenamef language/tree-il/analyze.scm
C h ] C
CJK 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/analyze.scm
C5@R h ] & C 6 g s
g filenamef language/tree-il/analyze.scm
g nameg %reference-graph-refs-procedure CR4 h : ]C 2 g err
g s C h : ]C 2 g err
g s C h : ]C 2 g err
g s C\ h : ] C 2 g t-a11d84f71ea-1d06
C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm
CF h P ] L 6H g filenamef language/tree-il/analyze.scm
C h ] C
CJK 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/analyze.scm
C5R h ] & C 6 g s
g filenamef language/tree-il/analyze.scm
g nameg +%reference-graph-toplevel-context-procedure CR4 h : ]C 2 g err
g s C h : ]C 2 g err
g s C $ h : ]C 2 g err
g s C\@ h : ] C 2 g t-a11d84f71ea-1d21
C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm
CF h P ] L 6H g filenamef language/tree-il/analyze.scm
CB h ] C
CJK 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/analyze.scm
C5R4tRTX h v ]45C n g dummy
g check? g s g getter g expr CJK h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef language/tree-il/analyze.scm
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5tRY h ]L L 6 w g kid
g result g filenamef language/tree-il/analyze.scm
! C h ] 6 w g kid
g result g filenamef language/tree-il/analyze.scm
C h { ]4 5 $ " 4 5 $ C44 L55 $ " 4 5 4L O 5 6 s g root
y g path y g result y g t $ g t ; M g children M y g path Y y g result m y g filenamef language/tree-il/analyze.scm
( , / $ ; ; J @ M P Y \ m y
y g nameg loop C h ] O Q 6 g root
g refs g reachable g loop g filenamef language/tree-il/analyze.scm
g nameg graph-reachable-nodes CZR[Z h ] 4L 5 6 g root+true
g result g root g reachable g filenamef language/tree-il/analyze.scm
" " C h ]O 6 g roots
g refs g filenamef language/tree-il/analyze.scm
g nameg graph-reachable-nodes* C\R[ h@ ]" 4L 5$ 45C45C g k+v
? g result ? g k ? g v ? g r1 ? g r2 ? g filenamef language/tree-il/analyze.scm
! ! ! ! ! " # / 3 & >
? C h ]
4 O 5 D g pred
g vhash g result g filenamef language/tree-il/analyze.scm
g nameg
partition* C]R@Y
h ]* & " 4 5 &
" 4 5 & " 4 5 4455 $ " 4 5 C g graph
g name g refs g defs 8 g ctx U g t g y g ctx-refs y g refs g filenamef language/tree-il/analyze.scm
! 8 = U X [ ' g g v B y | # 4 #
g nameg add-ref-from-context C @`^_^`a h ]4& " 45&
" 45 &
" 4> " G & >4 54 5 4 $ " 4
55 C & #4
5 4 > " G L 6C g x
g graph g env g locs g refs 6 g defs 6 g rtd d g name | g src | g defs g name g filenamef language/tree-il/analyze.scm
6 = d " " * " 2 " ! $ & CO ]bcde h` ] 4L 5$ 44L 5 5" $ C4L 5$ #4L 5 $ $ 6CCC g name
[ g t [ g var ? Y g filenamef language/tree-il/analyze.scm
A ! <
< =
= =
B # , 6 7
?
G
J N
S U [ C@\f h ]4 L 5C g name+src
g filenamef language/tree-il/analyze.scm
H ) I 0 I < I 0
I + Cg h( ] 45$ C6 g name+loc
# g name # g loc # g filenamef language/tree-il/analyze.scm
L M ) N ) M
O ( O P , # P # # C
h m ]24O &
" 4 5> G 45 & " 4 5 45 4
O 5 6 e g graph
} g env } g public-defs , } g private-defs , } g roots < } g refs X } g reachable c } g unused s } g filenamef language/tree-il/analyze.scm
2 A D ! + A / @ 4 E < E A F X E [ G c E f H s E } L } C Q ii i ihij h` ]&
" 4> " G & #4 5 4 > " G L 6C g x
\ g graph \ g env \ g locs \ g rtd , \ g name = Y g filenamef language/tree-il/analyze.scm
, Y \ C O `@ hX ] & C& " 45&
" 45 CC g x
U g graph U g env U g locs U g rtd U g refs C R g defs C R g filenamef language/tree-il/analyze.scm
) + - , . C -
Q / U C 7Rk h ] C g refs
g defs g filenamef language/tree-il/analyze.scm
^
g nameg %make-toplevel-info-procedure ClR4m h Z ] C R g t-a11d84f71ea-1e81
g t-a11d84f71ea-1e82 C?BmC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm ^
CF h P ] L 6H g filenamef language/tree-il/analyze.scm ^
C h ] C
CJK 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/analyze.scm
^
n C5mR N Rk 4 V k> " G Yli kRk h ] $ CC g obj
g filenamef language/tree-il/analyze.scm
^
g nameg %toplevel-info?-procedure CR4\ h : ] C 2 g t-a11d84f71ea-1e91
C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm ^
CF h P ] L 6H g filenamef language/tree-il/analyze.scm ^
C h ] C
CJK 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/analyze.scm
^
n C5Rk h ] &
C 6 g s
g filenamef language/tree-il/analyze.scm
^
g nameg %toplevel-info-refs-procedure CR4 h : ]C 2 g err
g s C h : ]C 2 g err
g s C h : ]C 2 g err
g s C\ h : ] C 2 g t-a11d84f71ea-1e9d
C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm ^
CF h P ] L 6H g filenamef language/tree-il/analyze.scm ^
C h ] C
CJK 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/analyze.scm
^
C5Rk h ] & C 6 g s
g filenamef language/tree-il/analyze.scm
^
g nameg %toplevel-info-defs-procedure CR4 h : ]C 2 g err
g s C!', h : ]C 2 g err
g s C/5: h : ]C 2 g err
g s C\V h : ] C 2 g t-a11d84f71ea-1eb8
C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm ^
CF h P ] L 6H g filenamef language/tree-il/analyze.scm ^
CX h ] C
CJK 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/analyze.scm
^
C5R4hjm h v ]45C n g dummy
g check? g s g getter g expr CJK h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef language/tree-il/analyze.scm
^
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5Rnhopst h ]#" T$ K $ 8& -
$ $ ( CCCCCCC" @ $ 7 & ,
& 45& "pCCCC $ R & E
$ - & & " "s"o"k"g"c g proc
g args g env g args Z g w X g x X g w 0 T g w w g w g w g w g filenamef language/tree-il/analyze.scm
d
h i ^ n t t # t t u
n p n
g nameg goops-toplevel-definition CuRkhijbc h ]<&
" 45& " 45 & y4 54 5 45$
4 5" $ " 4
5 $ C$ " 4 5 4
5
CC g x
g info g env g locs g refs 6 g defs 6 g rtd = g name U g src U g t r g src g refs
g filenamef language/tree-il/analyze.scm
{ } ~ 6 } = Z d
e r
! $ C k^`abc`^vBCDu hp ]D&
" 45 & " 45 4 > " G & }4 5 4 > " G 4 5$
4
5" $ " 4 5 $
C4
5 45 C& *4 5 4545 C& Q4 54 5 45 $ !4 54 5
C C C g x
k g info k g env k g locs k g refs k g defs 8 k g rtd O k g name ` g t g src g refs g name g refs g defs g proc a g args a g name - a g refs
I W g defs I W g filenamef language/tree-il/analyze.scm
! 8 ; O u
$
# -
2 6 7 $ @ $ I ` j
! k C ii ki i h ]C g x
g info g env g locs g filenamef language/tree-il/analyze.scm
Cw h ] 6 g name+loc
g name g loc g filenamef language/tree-il/analyze.scm
# # " Cxk h( ]4 &
" 4 556 g toplevel
' g env ' g filenamef language/tree-il/analyze.scm
$ % ' ' C 8Ry h ] C g toplevel-calls
g lexical-lambdas g toplevel-lambdas g filenamef language/tree-il/analyze.scm
g nameg %make-arity-info-procedure CzR4{ h z ] C r g t-a11d84f71ea-2133
g t-a11d84f71ea-2134 g t-a11d84f71ea-2135 C?B{C h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm
CF h P ] L 6H g filenamef language/tree-il/analyze.scm
C h ] C
CJK 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/analyze.scm
n C5{R N Ry 4 V y> " G Yzi yRy h ] $ CC | g obj
g filenamef language/tree-il/analyze.scm
g nameg %arity-info?-procedure CR4\ h : ] C 2 g t-a11d84f71ea-2146
C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm
CF h P ] L 6H g filenamef language/tree-il/analyze.scm
C h ] C
CJK 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/analyze.scm
n C5Ry h ] &
C 6 g s
g filenamef language/tree-il/analyze.scm
g nameg #%toplevel-procedure-calls-procedure CR4 h : ]C 2 g err
g s C h : ]C 2 g err
g s C h : ]C 2 g err
g s C\ h : ] C 2 g t-a11d84f71ea-2152
C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm
CF h P ] L 6H g filenamef language/tree-il/analyze.scm
C h ] C
CJK 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/analyze.scm
C5Ry h ] & C 6~ g s
g filenamef language/tree-il/analyze.scm
g nameg %lexical-lambdas-procedure CR4%,1 h : ]C 2 g err
g s C4:? h : ]C 2 g err
g s CBHM h : ]C 2 g err
g s C\i h : ] C 2 g t-a11d84f71ea-216d
C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm
CF h P ] L 6H g filenamef language/tree-il/analyze.scm
Ck h ] C
CJK 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/analyze.scm
C5Ry h ] & C 6 g s
g filenamef language/tree-il/analyze.scm
g nameg %toplevel-lambdas-procedure ClR4z h : ]C 2 g err
g s C h : ]C 2 g err
g s C h : ]C 2 g err
g s C\ h : ] C 2 g t-a11d84f71ea-2188
C?BC h ` ]L 6 X g a
g filenamef language/tree-il/analyze.scm
CF h P ] L 6H g filenamef language/tree-il/analyze.scm
C h ] C
CJK 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/analyze.scm
C5R4 h v ]45C n g dummy
g check? g s g getter g expr CJK h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef language/tree-il/analyze.scm
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5RGG h0 ]4 54 54 544 554 5 C g a
0 g filenamef language/tree-il/analyze.scm
/ > ) % & /
0 CfRSUTVQdWk h ]Q4 5$ 4 544 55D4 5$ 7 $
"4 5 4 5 D" $
& 4 54
54 54 54
5 ( " $ 45"
$
"
( " $ 45"
$
"
$ 45" $ " "%& )4545 45 "D45D " g proc
g arity G f g name j g proc j g arities j g rtd s z g req E g opt E g rest E g kw E g alternate E g t
g t
g meta [ v g body [ v g filenamef language/tree-il/analyze.scm
" $ % / 2 6 : @ A G J S % V 1 Z > a d f j p
s
+ & 6 ? ! 6 ) + - & 0 6 8 ; E M ` f * h v z } = g nameg arities CDkOQ hX ]q $ F $ 3 $ $
$
( $ " ( 4 5"
"
"4
5$ X44
55 $ " $ 44
55" $ $ " "w""
L "a" L $ .$ &4 5 $ $ C CCCCCCCCCC g arity
Q g vx O g vy O g vx M g vy M g vx 1 K g vy 1 K g vx B I g vy B I g vx S G g vy
S G g args h g result h g arg
| g t g args
E g count " A g filenamef language/tree-il/analyze.scm
` % d ! h n o
| |
( !
( " ) " - 3 " = 0 > & , Q C h Y ] L 6Q g filenamef language/tree-il/analyze.scm
# 5 # @
C
h ]3O Q 4545 4 > G H4O 5KJ$ " .4$ " 4 O 5> " G C g proc
g application g lexical? g arities
g args g src g name , g arities , g matches? 4 g filenamef language/tree-il/analyze.scm
" ! / 7
L ! Q " U " ] # d # v " g nameg validate-arity CRydWLMhi h ]3&
" 45& " 45& " 45 & +4> " G 4 5 C & /4
5 4 5 $ "?C & +4
> " G 4 5 CC g lexical-name
g val g info g toplevel-calls Q g lexical-lambdas Q g toplevel-lambdas Q g rtd Z g lexical-lambdas g gensym g val* g lexical-lambdas g filenamef language/tree-il/analyze.scm
/ 1 2 9 3 Q 1 Z 4 w 7 6 4 < < = = > ' > 4 C B g nameg extend Cy`^adWhimnoqrsvwxBCDLM ! h ]lO Q &
" 45& " 45& " 45 & 4 54 5
& +4
> " G 4
5 C
& @4
5 4 5
4 4 5
$
"
5 CC& 4 54 5
6& 4 54 5
6& 4 54 5
6& 4 5 4 > " G 4 > " G
& *4 > " G 4 > " G C
& "4 5 4 5 C
& j4 5 4 5 $ L
& "4
5 4 5 C4
> " G CCCC g x
g info g env g locs g extend
g toplevel-calls ^ g lexical-lambdas ^ g toplevel-lambdas ^ g rtd g g name g exp
g rtd g toplevel-lambdas g name g proc
g toplevel-lambdas g gensyms , g vals
, g gensyms B R g vals
B R g gensyms h x g vals
h x g proc g rtd
g name g toplevel-calls g gensym g proc ( g r
4 } g rtd 9 } g name J e g toplevel-calls W e g filenamef language/tree-il/analyze.scm
- H , I F J ^ H g L N
R P
N
U U
X X - Y 1 Y - Z 1 X V L , _
4 L R a
Z L x c
L f
h
f
k k
f
o ( o
- p 1 p 4 q 4 q M t ' W t f x j x & r x , C y h U ]#&
" 45& " 45& " 45 4 5$ 45" C M g name
g val g info g toplevel-calls Q g lexical-lambdas Q g toplevel-lambdas Q g lexical-lambdas q g filenamef language/tree-il/analyze.scm
9 Q X d e q
g nameg shrink Cymnoqrsvwx h ]$ &
" 4> " G & " 4> " G &
" 4> " G & 4 54 5
6 & 4 54
5
6& 4 54 5
6C g x
g info g env g locs g shrink g rtd | g gensyms g vals g gensyms g vals g gensyms g vals g filenamef language/tree-il/analyze.scm
/ U |
C yYb h Y ] LL 6 Q g filenamef language/tree-il/analyze.scm
C h e - 1 3 C ] g args
g filenamef language/tree-il/analyze.scm
Ci h Y ] LL 6 Q g filenamef language/tree-il/analyze.scm
C h e - 1 3 C ] g args
g filenamef language/tree-il/analyze.scm
C h ]! 44L 55 $ " !4L5$ 4LO 5" 45$ 14 5 4L5$ 4
LO 5" " 4 5$
645$
6C g name+application
g name g application
g t N g proc N g name b g proc* g filenamef language/tree-il/analyze.scm
+ 5 6 N
Q [ \ " b e o p
C hP ] &
" 4 5 & " 4 5 O 6 g result
J g env J g toplevel-calls 7 J g toplevel-lambdas 7 J g filenamef language/tree-il/analyze.scm
7 J J C iii yi i h ]C g x
g info g env g locs g filenamef language/tree-il/analyze.scm
* C 9R4i5ROO h ] 6 w g char
g filenamef language/tree-il/analyze.scm
g nameg digit? CkGQ h ]4545L$ L45" " D45$ 45$ yL LLL$ 4 L5" L$
" (
" 4
?L $ 4 L5" L$
" (
" 4 ?6"c"_ g chars
g conds g mins ) g maxs ) g sel? ) g filenamef language/tree-il/analyze.scm
$
$ $ 5 $ ) ) 5 ! & 7 ! + 9 ! 9 : # F G # S Y * Z 3 f ' g 0 p + z . . 2 + $ ' 0 + . . 2 + $ # C O h ] 6 w g char
g filenamef language/tree-il/analyze.scm
g nameg digit? CO h ] 6 w g char
g filenamef language/tree-il/analyze.scm
g nameg digit? C z h8 E ]' ( $ 6D$ ~$ " %$ " &$ " t$ " T$ " u_$ " g
$ " Y($ " K)$ " =!$ " /|$ " !/$ " q$ " Q$ "0$ " 1$ " 2$ " 3$ " 4$ " 5$ " 6$ " u7$ " g8$ " Y9$ " K,$ " =:$ " /@$ " !+$ " -$ " #$ $ "v$ " V$ & "p$ " P$ V4:5 $ 4 5" $
4 5" "P[$ j 4 5 ( " 4
4 4 555 4@5
L O
";$ 2$ $
"6]$ "$ 4 566{$ 4@5$ D " V (
45" N
$ }& " 8
" ~&
"
"
" "*$ 4@5$ D 45 ( " 4
4 4 555 $ " 45 ( " 4
4 4 555 $ " "?$ " k$ " K$ D^$ Dh$ " H$ <4:5$ " "'$ 6 ( 6 "M "+$ N ~$ " "6 = g chars
6 g state 6 g params 6 g
conditions 6 g end-group 6 g min-count 6 g max-count 6 g key ( g colon? e g min-count | g numbers g selector g at? g chars g chars g tilde?
g numbers b g t g numbers g t g argc N v g key . g filenamef language/tree-il/analyze.scm
! % ( ( * 3 + % " $ & + ) % 0 3 E N ] * e m * n . | . | , 5 $ $ # ' ) $ % . 4 $ 7 % 9 % $ : % - ? & B & X % ^ ) ' ` ) i o + t , u - | - , - & - , / ' / 0 0 1 . 1 2 . 2 "
3 " 3 + 5 " ! 5 2 3 2 < = 6 I 6 K 7 $ M 7 ) O 7 R 8 " T 9 " U 9 + Z b j p s v ) ~ ; % ; " ) = % = " 8 B B B ! D # D , ; F ( G F $ N F S G U G , V G 5 _ I d J v G L L M ' M N N % N 2 N , N P P * P 3 R R . P T T U U * U 1 U X X * X 3 . X 2 [ 6 [ 6 g nameg loop C h( ] O Q 4 5
6 g fmt
! g loop
! g filenamef language/tree-il/analyze.scm
! ! g nameg format-string-argument-count C Rt h Y ] L 6Q g filenamef language/tree-il/analyze.scm
p p )
C h e - 1 3 C ] g args
g filenamef language/tree-il/analyze.scm
p
Cp cLh
hH ]," " $ & l
$ 4O 5"
45 $
45" $ $ CCC &
CCC $ c & .
45 $ $ CCC &
& C" "" $ & &
& C""" g exp
C g proc C g special-name C g env C g w # g w * g w 1 g mod V g var l g w g w g var g w
g w + ; g filenamef language/tree-il/analyze.scm
]
d 9 o : p M q V o ^ r _ r l o t s w s { s ~ s + s & d b d i i j j j k k d C g nameg proc-ref?g
documentationf Return #t when EXP designates procedure PROC in ENV. As a last
resort, return #t when EXP refers to the global variable SPECIAL-NAME. C
R
h ] 6 g t-a11d84f71ea-25ec
g t-a11d84f71ea-25ef g filenamef language/tree-il/analyze.scm
x
x + x g nameg gettext? C R
h ] 6 g t-a11d84f71ea-25f6
g t-a11d84f71ea-25f9 g filenamef language/tree-il/analyze.scm
y
y - y g nameg ngettext? C RB n h ]B" W" $ &
45$ $ $ w& l
45$ T$ K $ 8& -
4 5$ $ $ CCCCCCCCCCCCCC $ & s
45$ W $ E( : $ *&
45$ C"""""""" $ * &
45$ C"|"x"t g x
g env g w # g w 7 g w F g x F g w c g w } g x } g w g w U g w Q g w I g w - A g w v g filenamef language/tree-il/analyze.scm
{
} & 2 } } g nameg const-fmt C R Ln Q hp ]4L> G $ R$ J & " L $ & " L " $ CLL L 6CC g min
n g max
n g t M j g filenamef language/tree-il/analyze.scm
$ - ( ) $ 2 3 6 : - > ? $ H 3 M \ $ ` 0 j n
C h ]LL 6 g _
g key g filenamef language/tree-il/analyze.scm
% C h ] ]2" & $ $ 45$ 54455$ " 445> " G " " O" '4455$
64
56 $ &
C""$ E
& 8
4455$ $ " 6"i"e"a4 564 56 $ $ 4L 5$ n45$ 54455$ " 445> " G " 4L 545 O O 6"9"5"1 U g args
g loc g vx g vy g vx !
g w g w g vx 9 g vy 9 g vx J g vy J g fmt g count
g filenamef language/tree-il/analyze.scm
( 2
3 6 " > B G K O # P / [ k
q {
"
,
/
# $ / ,
, O [ \ f
g j " r v { # /
7 g nameg check-format-args C nk O h q ] 6 i g t-a11d84f71ea-2e3a
g filenamef language/tree-il/analyze.scm
C O h q ] 6 i g t-a11d84f71ea-2e41
g filenamef language/tree-il/analyze.scm
)
C h H ]Z" a $ X $ E 4L5 45$ #$ 45 "CCCC $ $ $ x& k
45$ Q$ F" ( 45" $ ~$ $ R
$
" $ "4455 "
$
"e4455 " W
$
"94455 " +
4455 " 4 5 " 4
5 $ C4
4455> " G C"""""" @ g args
g loc g w e g x e g w $ c g x $ c g w 1 c g x q g w g x g w g chars g result g w g x g w
= g x = g x
7 g x
? i g x
k g opts g t g filenamef language/tree-il/analyze.scm
) 1 H - U $ _
g
" # T U
' ! % g nameg check-simple-format-args CBt !hb h Y ] LL 6 Q g filenamef language/tree-il/analyze.scm
C h e - 1 3 C ] g args
g filenamef language/tree-il/analyze.scm
C # % h ]DO O Q Q " " - $ " &
$ &
$ & Y
4
$ " 455$ +4
$ " 45> " 8G " 1" -
& Y
4
$ " 455$ +4
$ " 45> " G " "
" " " " " " $ &
$ s& f
$ K & 5
4
$ " 45> " +G " $
"K "D "="9 "/"+ $ &
$ &
4 5$ 4
O 5"
& 4 $ " 455" $ "
$ +4 $ " 45> " G "
" "H" "@ " "2" "*C g x
g _ g env g locs g check-format-args g check-simple-format-args g w ; L g w A I g w \ > g w l 7 g w
{ g w
0 g w h g w n g w g w g w
g w g w g w 1 g w 8 g proc
[ g t g filenamef language/tree-il/analyze.scm
# ~
' /
% -
' /
% -
T ( ; E F [ e f p 1 w 9
& . - C i h ]C g x
g _ g env g locs g filenamef language/tree-il/analyze.scm
C h ]C g x
g _ g env g locs g filenamef language/tree-il/analyze.scm
C h q ]C i g _
g env g filenamef language/tree-il/analyze.scm
C :RC c g m
, g rtd
A A g rtd
m n g down
A g up A g vars K a g refs K a g init a g rtd
g add-ref-from-context
g down g post g refs g defs g init g rtd
g leaf
U g down U g refs _ u g defs _ u g init u g rtd
- g down
~ t g up ~ t g post ~ t g toplevel-calls g lexical-lambdas g toplevel-lambdas g init k g down
R T g filenamef language/tree-il/analyze.scm
=2
>5 #
j* ,
j Z
~3 `
f K a f d
S
s S
^
d
z _ u z x
) ) w '
x
2-
7x ]
8\ x
9E y
< {
R T
, T
C6 PK ! +L canonicalize.gonu [ GOOF----LE-8-2.0 ] : 4 h ] g guile g define-module* g language g tree-il g canonicalize
g filenameS f !language/tree-il/canonicalize.scm g importsS
g ice-9 g match g srfi g srfi-1 g exportsS g
canonicalize! g set-current-module g tree-il-fold g tree-il-any g post-order! !g "g
#g lexical-ref? $g lexical-ref-gensym %g
&g 'g make-prompt (g make-lambda )g make-lambda-case *g make-application +g make-primitive-ref ,g throw -g
make-const .g wrong-number-of-args /f Wrong number of arguments 0g 1g 2g 3g 4g
5g any 6g sequence? 7g
make-sequence 8g
append-map 9g
sequence-expsC 5 h u ]4
5 4 > " G h ]$ CL 6 g exp
g res g filenamef !language/tree-il/canonicalize.scm
C h ]$ CL 6 g exp
g res g filenamef !language/tree-il/canonicalize.scm
C h w ]C o g exp
g res g filenamef !language/tree-il/canonicalize.scm
C h ] O O 6 g proc
g exp g filenamef !language/tree-il/canonicalize.scm
g nameg tree-il-any C R !" #$ h ]4 5$ 4 5L CC | g x
g filenamef !language/tree-il/canonicalize.scm
K L &
L ! M + M & C%&'()*+,-./01234567869 h ]4 5$ 6 C | g x
g filenamef !language/tree-il/canonicalize.scm
+ ( , .
, * - . . . C h` g ]a" " " w" " " w" $ &
$ &
$ u $ ? & 4O 5" " " " " $ " $ &
$ &
$ z& l
( S & =
& ' & " "
" " " " " " " " $ CH44 5 5K4
J5 6CC $ v & i
& K4 4
4 54
54
54
54
54
5 55 6""" $ 9 & ,
( ( C"Q"M"I"E $ J & =
( ( ( ( C""""" $ P & C
( ( ( ( C""""" $ J & =
( ( ( ( C"D"@"<"8"4 $ 7 & *
45$ 456C"" $ 2 & %
$ ( C"""" _ g x
Y g w 2 g w 8 g w ? g w F g w a g w g w g w g w g t g w g w 4 g w O g w \ g w
j g w x g w g thunk g w $ g w * g w 1 g w g w g w " g w g w g w I } g w V y g w c u g w g w g w g w g w g w 5 Q $g filenamef !language/tree-il/canonicalize.scm
$ % K I
K K
_ Q
_ X X Y Y . Y ; Y ? Y X Z
Z % Z
b % A < E =
I = J = K >
O @ T @ " V @ W A \ A ^ A _ B f C k C m C n D r D t D u E ~ A >
< : % )
) + *
% 3 Y C h ] 6 } g x
g filenamef !language/tree-il/canonicalize.scm
"
#
g nameg
canonicalize! CRC m g m
, g filenamef !language/tree-il/canonicalize.scm
"
C6 PK ! Wm compile-glil.gonu [ GOOF----LE-8-2.0 ]a 4 hq+ ] g guile g define-module* g language g tree-il g compile-glil
g filenameS f !language/tree-il/compile-glil.scm g importsS
g system g base g syntax
g pmatch
g message
g ice-9 g receive g glil g vm g instruction !
"! # $# %g optimize &% '& (g canonicalize )( *) +g analyze ,+ -, .g srfi /g srfi-1 0./ 1g selectS 2g
filter-map 32 4013 5 "$'*-4 6g exportsS 7 8g set-current-module 98 :8 ;g
make-fluid g unused-variable-analysis ?g unused-toplevel @g unused-toplevel-analysis Ag unbound-variable Bg unbound-variable-analysis Cg arity-mismatch Dg arity-analysis Eg format Fg format-analysis Gg %warning-passes Hg and=> Ig memq Jg warningsS Kg cadr Lg assoc-ref Mg analyze-tree Ng make-lambda Og tree-il-src Pg make-lambda-case Qg optimize! Rg
canonicalize! Sg analyze-lexicals Tg flatten-lambda Ug make-hash-table Vg *primcall-ops* Wg for-each Xg hash-set! Yg eq? ZY [ZY \g eqv? ]\ ^]\ _g equal? `_ a`_ bg = cb dg ee? ecd fg < gf hg lt? igh jg > kj lg gt? mkl ng <= on pg le? qop rg >= sr tg ge? ust vg + wv xg add ywx zg - {z |g sub }{| ~g 1+ ~ g add1 g 1- g sub1 g * g mul g / g div g quotient g quo g remainder g rem g modulo g mod g ash g logand g logior g logxor g not g pair? g cons g car g cdr g set-car! g set-cdr! g null? g list? g symbol? g vector? Č g list nj g vector Ɍ g class-of ˌ g
vector-ref Ό g vector-set! g
vector-set ӌ g variable-ref Ռ g variable-bound? ، g struct? ی g
struct-vtable ތ g
struct-ref ጤ g struct-set! g
struct-set 挤 g make-struct/no-tail g make-struct 錤 g return 댤 g
return/values g bytevector-u8-ref g bv-u8-ref g bytevector-u8-set! g bv-u8-set g bytevector-s8-ref g bv-s8-ref g bytevector-s8-set! g bv-s8-set g bytevector-u16-ref g
bv-u16-ref g bytevector-u16-set! g
bv-u16-set g bytevector-u16-native-ref
g bv-u16-native-ref
g bytevector-u16-native-set!
g bv-u16-native-set
g bytevector-s16-ref g
bv-s16-ref g bytevector-s16-set! g
bv-s16-set g bytevector-s16-native-ref g bv-s16-native-ref g bytevector-s16-native-set! g bv-s16-native-set g bytevector-u32-ref ! "g
bv-u32-ref #!" $g bytevector-u32-set! %$ &g
bv-u32-set '%& (g bytevector-u32-native-ref )( *g bv-u32-native-ref +)* ,g bytevector-u32-native-set! -, .g bv-u32-native-set /-. 0g bytevector-s32-ref 10 2g
bv-s32-ref 312 4g bytevector-s32-set! 54 6g
bv-s32-set 756 8g bytevector-s32-native-ref 98 :g bv-s32-native-ref ;9: g bv-s32-native-set ?=> @g bytevector-u64-ref A@ Bg
bv-u64-ref CAB Dg bytevector-u64-set! ED Fg
bv-u64-set GEF Hg bytevector-u64-native-ref IH Jg bv-u64-native-ref KIJ Lg bytevector-u64-native-set! ML Ng bv-u64-native-set OMN Pg bytevector-s64-ref QP Rg
bv-s64-ref SQR Tg bytevector-s64-set! UT Vg
bv-s64-set WUV Xg bytevector-s64-native-ref YX Zg bv-s64-native-ref [YZ \g bytevector-s64-native-set! ]\ ^g bv-s64-native-set _]^ `g bytevector-ieee-single-ref a` bg
bv-f32-ref cab dg bytevector-ieee-single-set! ed fg
bv-f32-set gef hg !bytevector-ieee-single-native-ref ih jg bv-f32-native-ref kij lg "bytevector-ieee-single-native-set! ml ng bv-f32-native-set omn pg bytevector-ieee-double-ref qp rg
bv-f64-ref sqr tg bytevector-ieee-double-set! ut vg
bv-f64-set wuv xg !bytevector-ieee-double-native-ref yx zg bv-f64-native-ref {yz |g "bytevector-ieee-double-native-set! }| ~g bv-f64-native-set }~ [^aeimquy} #'+/37;?CGKOSW[_cgkosw{ R g gensym f :L g
make-label g map g hashq-ref g error f bad var list element g vars->bind-list g make-glil-bind g
emit-bindings g make-glil-source g reverse g with-output-to-code g g
lambda-src g lambda-meta g lambda-body g make-glil-program g flatten-lambda-case f unhandled record g push g drop g make-glil-void g make-glil-lexical g set f bad let var allocation g g vals g tail g make-glil-branch g br g make-glil-call g g const-src g const-exp g make-glil-const g
g
sequence-exps g
g application-src g application-proc g application-args g primitive-ref? g hash-ref g primitive-ref-name g length g instruction-pushes f !bad primitive op: too many pushes g new-frame g tail-call g
make-const g tail-call/nargs g call g
call/nargs g make-glil-mv-call g make-glil-label g make-glil-mv-bind g lexical-ref? g assq g lexical-ref-gensym g lambda-case? g lambda-case-kw g lambda-case-opt g lambda-case-rest g lambda-case-req g box f bad lambda-case arg allocation g lambda-case-gensyms g lambda-case-alternate f *couldn't find matching case for label call g assq-ref g values g
variable-set! g variable-set g @call-with-current-continuation g tail-call/cc g make-application g make-primitive-ref g call-with-current-continuation g call/cc g @call-with-values g call-with-values g @apply g
tail-apply g apply g return/values* g
g conditional-src g conditional-test g conditional-consequent g conditional-alternate g g br-if-not g br-if g
br-if-null g br-if-eq g br-if-not-null g br-if-not-eq g primitive-ref-src g module-variable g the-root-module g make-glil-toplevel g ref g make-glil-module g module-name g
g lexical-ref-src f bad lexical allocation g
g lexical-set-src g lexical-set-gensym g lexical-set-exp g g module-ref-src g module-ref-mod g module-ref-name g module-ref-public? g g module-set-src g module-set-mod g module-set-name g module-set-public? g module-set-exp g g toplevel-ref-src g toplevel-ref-name g g toplevel-set-src g toplevel-set-name g toplevel-set-exp g g toplevel-define-src g toplevel-define-name g toplevel-define-exp g define f bad lambda free var allocation g make-closure
g
g lambda-case-src g lambda-case-inits
g lambda-case-body g
list-index f bad kwarg g max f ,lambda-case gensyms don't correspond to args g make-glil-kw-prelude g make-glil-opt-prelude g make-glil-std-prelude g delq f bad keywords, yo g append g list-tail g bound? f bad arg allocation g make-glil-unbind g g let-src g let-names g let-gensyms g let-vals !g let-body "g #g
letrec-src $g letrec-in-order? %g letrec-names &g letrec-gensyms 'g letrec-vals (g letrec-body )g empty-box *f bad letrec var allocation +g ,g fix-src -g fix-names .g fix-gensyms /g fix-vals 0g fix-body 1f bad fix var allocation 2g reverse! 3f bad free var allocation 4g fix 5g 6g let-values-src 7g let-values-exp 8g let-values-body 9f $unexpected lambda-case in let-values :f bad let-values var allocation ;g g dynwind-winder ?g dynwind-unwinder @g wind Ag unwind Bg return/nvalues Cg Dg
dynlet-fluids Eg dynlet-vals Fg dynlet-body Gg
dynlet-src Hg wind-fluids Ig
unwind-fluids Jg Kg dynref-fluid Lg
dynref-src Mg fluid-ref Ng Og dynset-fluid Pg
dynset-exp Qg
dynset-src Rg fluid-set Sg Tg
prompt-src Ug
prompt-tag Vg prompt-body Wg prompt-handler Xg make-glil-prompt Yf unexpected lambda-case in prompt Zf !bad prompt handler arg allocation [g \g abort-src ]g abort-tag ^g
abort-args _g
abort-tail `g abortC 5 h ]4
5675 4: > " G 4;i5 i?@iABiCDiEFi GRHIJK2LG h o ] 6 g g kind
g filenamef !language/tree-il/compile-glil.scm
;
<
CMNOPQRS<T h ]+H4455 $ " K4J5 4 > " G 44 54
5 5 4 5 4 5 4
5 Y45 " ZCZF g x
g e g opts g warnings g t ' g analyses 2 M g x i g x v g x g
allocation
g filenamef !language/tree-il/compile-glil.scm
5
7 7 7 7 $ 8 * ; 2 ; 5 > N @ Q @ X @ ) Y A ] A . a A ; b A ? g A i @ i @ l B v @ y C @ D @ G G g nameg compile-glil CR4Ui5 VR4WiXV h { ] 6 s g x
g filenamef !language/tree-il/compile-glil.scm
O O ' O / O
C> " G h } ] 6u g filenamef !language/tree-il/compile-glil.scm
g nameg
make-label CR hp ' ]*44L 5L5 $ D & '$ C 6 6 6 g id
k g v k g v k g vx ! _ g vy ! _ g vx 9 G g vy 9 G g filenamef !language/tree-il/compile-glil.scm
F K S W _ c k
k C h ]O 6 g ids
g vars g
allocation g proc g filenamef !language/tree-il/compile-glil.scm
g nameg vars->bind-list CR h ] 44556 g src
g ids g vars g
allocation g proc g emit-code g filenamef !language/tree-il/compile-glil.scm
g nameg
emit-bindings CR h ]M N $ 4 5M N CC g src
g x g filenamef !language/tree-il/compile-glil.scm
g nameg emit-code C h( ] H4 O > " G J6 g proc
" g out " g filenamef !language/tree-il/compile-glil.scm
" " g nameg with-output-to-code CR h@ ]L$ 4 4L5> " G " L LLL4LL5 6 g emit-code
< g filenamef !language/tree-il/compile-glil.scm
/ # 8 < < C
hP ]# & 54 54 54 5 4 O 56 6 g x
L g
self-label L g
allocation L g rtd L g src $ D g meta $ D g body $ D g filenamef !language/tree-il/compile-glil.scm
/ D H L g nameg flatten-lambda CTR h ]L 6 g tree
g filenamef !language/tree-il/compile-glil.scm
( g nameg comp-push C h ]L 6 g tree
g filenamef !language/tree-il/compile-glil.scm
( g nameg comp-drop CWH h * ]!4 L 5 $ [ & @$ / 4L45 > " G L456L6L6L6 " g h
y g v y g vx o g vy o g vy / [ g filenamef !language/tree-il/compile-glil.scm
6 : ) C O ) U B Y ) [ _ ' e i ' o s ' y y C h w ]4L 5LLL O 6 o g v
g filenamef !language/tree-il/compile-glil.scm
C h0 ] $ " $ LLLL O 6C g context
. g syms . g filenamef !language/tree-il/compile-glil.scm
, . g nameg clear-stack-slots CVW h ])44L 5L5 " `$ Q & 8$ ) & L4566666$ E & 0$ % & L456"\"X"T"P g sym
g v g vx % p g vy % p g vx = ` g vy = ` g vx g vy g vx g vy
g filenamef !language/tree-il/compile-glil.scm
! , ! L * R C V * X \ & ` d & h l & p t & x x * C * CH h ])44L 5L5 " `$ Q & 8$ ) & L4566666$ E & 0$ % & L456"\"X"T"P g sym
g v g vx % p g vy % p g vx = ` g vy = ` g vx g vy g vx g vy
g filenamef !language/tree-il/compile-glil.scm
( L & R ? V & X \ " ` d " h l " p t " x x & ? & CY< T hH ] $ 5 $ L 456L 6L 6 g loc
H g vx > g vy > g vy 4 g filenamef !language/tree-il/compile-glil.scm
' & . C 2 & 4 8 $ > B $ H H C
hh ]) $ V $ = $ % (
4L 5C 6 6 6 6 g x
g g vx _ g vy _ g vy W g vx 0 O g vy 0 O g filenamef !language/tree-il/compile-glil.scm
! = . F $ K 0 O ) S 0 W ) [ 0 _ ) c 0 g )
g C~ hx ( ])44L 5L5 $ [ & H$ ? & ,4L45> " G L456CCCC g v
x g v x g vx ! v g vy ! v g vx 9 r g vy 9 r g filenamef !language/tree-il/compile-glil.scm
E I O 6 S X d j 6 n p x CI ! h ])44L 5L5 " i$ X & =$ , & LL456L6L6L6L6$ F & 1$ & & LL456"R"N"J"F g v
g v g vx % w g vy % w g vx = c g vy = c g vx g vy g vx g vy
g filenamef !language/tree-il/compile-glil.scm
5 6 6 & 6 6 M : % S : > W : % Y : ] ; " c ; g ; " m ; q ; " w ; { ; " ; 6 8 % 8 > 8 % 8 6 C"#$%&'()* h C ])44L 5L5 $ X & =$ , & LL456L6L6L6L6 ; g v
} g v } g vx ! s g vy ! s g vx 9 _ g vy 9 _ g filenamef !language/tree-il/compile-glil.scm
C D D & D D I F % O F > S F % U F Y G " _ G c G " i G m G " s G w G " } G } C* h ]+44L 5L5 $ n & S$ B & '4L> " G LL456L6L6L6L6 g name
g v g val g v g vx ! g vy ! g vx 9 u g vy 9 u g filenamef !language/tree-il/compile-glil.scm
N O O ( O O E K ( R _ R ' e R @ i R ' k R o S $ u S y S $ S S $ S S $ S C* h C ])44L 5L5 $ X & =$ , & LL456L6L6L6L6 ; g v
} g v } g vx ! s g vy ! s g vx 9 _ g vy 9 _ g filenamef !language/tree-il/compile-glil.scm
X Y Y ( Y Y I [ ' O [ @ S [ ' U [ Y \ $ _ \ c \ $ i \ m \ $ s \ w \ $ } \ } C+,-./0TW h y ]L 456 q g loc
g filenamef !language/tree-il/compile-glil.scm
y z 0
z "
C 1
h( % ]J4L 5$ 4L4 L5> " G 4L 5 ( " 84LO > " G 4L4455> " G 44L5L5 $ X & =$ , & LL4 56
6
6
6
64 5 4L4
5> " G " $ & 4545454545 4L5
4L4
5> " G
4LLL> " G $ 4L45> " G " 4LLL$ L" LL > " G 4L45 > " G "
6L4564 5 " g x
# g v # g free-locs 5 | g v g vx g vy g vx g vy g POST # g lcase g rtd %
g src R g req R g gensyms R g body R g alternate R g label
f g filenamef !language/tree-il/compile-glil.scm
o
q p s s # s , t $ 5 t 5 t = u B y [ | _ | $ c | 4 d } 4 l | $ q | } ~ ~ ! ~ ~ 9 " % ] * f % f i m x + ( ' # D # C2W3 hH ] $ 5 $ L 456L 6L 6 g loc
H g vx > g vy > g vy 4 g filenamef !language/tree-il/compile-glil.scm
' ( . E 2 ( 4 8 & > B & H H C41 h ]24L 5$ 4L 5" ( C4L O > " G 44L5L5 $ W & <$ + & L 456 6 6 6 6 g x
g v g free-locs g v S g vx b g vy b g vx z g vy z g filenamef !language/tree-il/compile-glil.scm
! & ! ! & ) D G ' S S % > % # # # # C56789: h ])44L 5L5 " i$ X & =$ , & LL456L6L6L6L6$ F & 1$ & & LL456"R"N"J"F g v
g v g vx % w g vy % w g vx = c g vy = c g vx g vy g vx g vy
g filenamef !language/tree-il/compile-glil.scm
+ M * S C W * Y ] ' c g ' m q ' w { ' * C * C;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ h ])44L 5L5 " i$ X & =$ , & LL456L6L6L6L6$ F & 1$ & & LL456"R"N"J"F g v
g v g vx % w g vy % w g vx = c g vy = c g vx g vy g vx g vy
g filenamef !language/tree-il/compile-glil.scm
+ M * S C W * Y ] " c g " m q " w { " * C * C[\]^_` hx3 Z ]O O O LQ LQ LL LQ & j$ " $ " $ 4L45 > " G " $ L4
56&
L4 56C
& 4 54 5 $ " $ " $ 4L4 5> " G " $ L4
56&
L4 56C& \4 5 " G (
"
4L
> " G
" "& 4 54 54 5
" 4 5$ 944 54
55 $ " 44 55 " $ "4
> " G 4L4 4
55> " G 4 5
$ j$ " $ " $ 4L45 > " G " $ L4
56&
L4 56C $ Q$ 4L4 5> " G " $ L4
56&
L4 56C $ C 4 56" X& " 4L4 !
5> " G 4L > " G 4
> " G 4
5 $ J $ L4 " 564# 5
4L
> " G
L4 $
56$ $ 4L4 % 5> " G " =4# 5
4L
> " G
4L4 &
5> " G $ L4
56&
L4 56C$ F4L4' 5> " G $ L4
56&
L4 56C$ 4(5 4(5
4L4'
5> " G 4L4 5> " G 4L4
$ " 5> " G 4L4)
5> " G 4L4*
5> " G $ L4
56L4)56C4+ 5$ " 4,4- 5L5$ 4
> " G " 4. 5$ 4/ 5$ " 440 5$ " $41 5$ " 4
54 42 55$ B4 3LLLO 4445 55> " G 46L 5
L4
5647 5 "^ 8 6494:L4- 555 "="L $ 4- 5L & & 4/L5$ " E41L5$ " 54
54 42L554;40L5 5 $ "
$ V4
> " G 4 " G 46LL5 L4
56"A"="9"5"4 5$ " {4 5=& $ ?4
> " G $ L4
56&
L4 56C$ 4
5
$ u4L4 !
5> " G 4L > " G 4L4 %
5> " G $ L4
56&
L4 56C4
> " G
4L > " G $ L4
56&
L4 56C$ @4
> " G 4L44
55> " G L4
56$ C4
> " G L4
5 $ 4 5" 4 > 5 6C" 4 5?& 4
5 $
4L > " G
4L > " G 4L4 @ 5> " G $ " $ " $ 4L45 > " G " $ L4
56&
L4 56C""" 4 5A& u4
5 $ d$ ,
4L > " G L4 B 56$ X4C4DE5
5 4L > " G $ L4
56&
L4 56C$ c
4L > " G 4L4 F 5> " G $ L4
56&
L4 56C$ W4C4DE5
5 4L > " G $ L4
56&
L4 56CC""4 5G& 4
5 $ $ X4C4DH5
5 4L > " G $ L4
56&
L4 56C4(5 4(5
& " 4L4 !
5> " G 4L> " G 4L4 !
5> " G 4L
> " G 4L4'
5> " G $ 4L4 " 5> " G " 44L4 % 5> " G 4L4
5> " G 4L4) 5> " G $ L4 $
564L4 &
5> " G 4L4) 5> " G & 4L4 5> " G " $ L4
56&
L4 56C"O"K4 5I& 4
5 $ n
" $ ?4L > " G 4 > " G L4 J4 556$ 4L4 !
5> " G 4L > " G 4 > " G 4L4 K4 55> " G $ L4
56&
L4 56C$ [4C4DK5 5
4L
> " G
$ L4
56&
L4 56C$ Z4C4DK5 5
4L
> " G
$ L4
56&
L4 56CC4 5$ 4 5=& & " $ {$ ?4 > " G $ L4
56&
L4 56C$ (4 > " G L4 L4 556C""""""9M& z4N 54O 54P 54Q 5
4(5 4(5
& i4 54 5 R& 45 4 5 " 54L > " G 4L4 S 5> " G " " T& $ & |4545 4 5 R& 45 " 54L> " G 4L4 U 5> " .G " '" UV& I $ = 4L> " G 4L4 W 5> " G " "v"rX& i $ \ 4L> " G 4L> " G 4L4 Y 5> " hG " a":"6 4L> " G 4L4 U 5> " (G " ! 4L> " G 4L4 U 5> " G " """ UV& I $ = 4L> " G 4L4 Z 5> " G " ""X& m $ \ 4L> " G 4L> " G 4L4 [ 5> " G " ":" "2 " 14L > " G 4L4 S 5> " G " 14L > " G 4L4 S 5> " G 4L
> " G $ " $ 4L4
5> " G " 4L4) 5> " G 4L > " G $ " $ L4)
56CR& 4\ 54 5 4]^[ 54]_ 5& o$ " $ " $ 4L4`a 5> " G " $ L4
56&
L4 56C4]_ 5$ r$ " $ " $ "4L4bac 5> " G " $ L4
56&
L4 56C$ " $ " $ (4L4ba4d^[5 5> " G " $ L4
56&
L4 56Ce& 4f 54- 5 $ " $ " $ 4646L 5L5
$ d
$ 3
4L4g
a5> " G
" 4 h
> " G " 4 h
> " G
" $ L4
56&
L4 56Ci& 14j 54k 54l 5
4L
> " G 4646L 5L5 $ d
$ 3
4L4g m5> " G " 4 h > " G
" 4 h > " G $ " $ " $ 4L45 > " G " $ L4
56&
L4 56Cn& 4o 54p 54q 54r 5
4L4ba
5> " G $ 4L4 5> " G " $ L4
56&
L4 56Cs& 4t 54u 54v 54w 54x 5
4L > " G 4L4bm
5> " G $ " $ " $ 4L45 > " G " $ L4
56&
L4 56Cy& ~4z 54{ 5 4L4`a 5> " G $ 4L4 5> " G " $ L4
56&
L4 56C|& 4} 54~ 54 5
4L
> " G 4L4`m 5> " G $ " $ " $ 4L45 > " G " $ L4
56&
L4 56C& 4 54 54 5
4L
> " G 4L4` 5> " G $ " $ " $ 4L45 > " G " $ L4
56&
L4 56C& 46L 5 $ " $ " $ c4L4 L5> " G ( " :4 L O > " G 4L4 4 55> " G " $ L4
56&
L4 56C& 4 542 540 541 54/ 54 545 547 54 5
4 5
$ 4
5"
$ " $ " 4O $ " 5 4 $ "
4455? 46L 5 $ 4(5 " 4 5 $ 4
5 $ "
" $ " &4
> " G 4L $ 45" / $ "
$ 45" 45> " G 4 LLLO > " G ( " b4" ( 44 $ " 5" %$ $ $ ~ $ Z " !"( 74!5$ 4!5 "p "`4 5" ! "4 5" 4 5" r 4 5" b 4 5" O $ " 444
$
" 544 554 $ "
5 "LLL> " G " ( " " 4646L5L5 $ P & $ $ 4(5 !4L4g 5> " G 4L4 U!5> " G "4L"> " G "4L4g m5> " G 4L4)!5> " G " ! & 4 > " G " " & 4 > " G " " & 4 > " zG " s" o & 4 > " NG " G" C $ $ ">"H"D
45 " 46L 5 4L4)5> " G 4L> " G ( " 4L45 > " G $ (4L4)5> " G LLL LL6C& 4 54 54 54 54 5
4 > " G 4
LLL> " G 4 LL LO 44
5> " G 4L > " G 4
> " G L45 6& 4 54 54 54 54 54 5
4 LLL O > " G 4
LLL> " G $ +4 LLLL O
> " G " :4 > " G 4 LLL O 44 5> " G 4L
> " G 4 > " G L45 6& {4 54 54 54 54 5
& " $ " 4(5
4
LLLLO
> " G " K( 45" I4,L5$ " "
" 44545LLL> " G 4 LLLO
> " G 4L > " G
$ 4L4)
5> " G " 4
> " G L45 6& 4 54 54 5
& a42
540
54/
541
545
54
547
5
$ "
$ " $ 4 > " G " 4(5 4L > " G 4L4 5> " G 4L4)5> " G 4L4*44 $ " 5LL5$ " 5> " G 4 LL LO 445> " G 4L> " G 4> " G L45 6
6& 4 54 54 54 5
4L
> " G 4L > " G 4C
5 4L > " G 4L4 5> " G $ 4(5 4L > " G 4L4
5> " G 4C 5
4L
> " G
4L4 5> " G 4L4) 5> " G 4L4
5> " G 4C 5
4L
> " G
L4 56$ M4L > " G 4L4
5> " G 4C 5 "h$ 4(5 4L > " G 4L4 5> " G 4L4) 5> " G 4L4
5> " G 4C 5
4L
> " G
L4
56$ j4L > " G 4L4
5> " G 4C 5 4L > " G $ L4
56CC& 4 54 54 5
4 > " G 4 > " G 4 > " G 4L4 4 55> " G $ 4(5 4L
> " G 4L4
5> " G 4L4 5> " G 4L4) 5> " G 4L4
5> " G L4 56$ #4L
> " G L4
56$ t4(5 4L
> " G 4L4 5> " G 4L4) 5> " G 4L4
5> " G L4
56$ E4L
> " G 4L4
5> " G $ L4
56CC& 4 5 4 > " G $ 4L> " G " X$ " $ " $ 34L> " G 4L4 5> " G " $ L4
56&
L4 56C& 4 54 5 4 > " G 4L> " G 4L > " G 4L4 5> " G $ " $ " $ 4L45 > " G " $ L4
56&
L4 56C& 4 54 54 54 5
4(5 4(5 46L 5
4L > " G 4L4 5> " G $ 4(5 4L
> " G 4L4
5> " G 4L4 5> " G 4L4)5> " G 4L4
5> " G 4L4 5> " G " T$ Y4L
> " G 4L4
5> " G 4L4
$ "
5> " G " $ 4(5 4L
> " G 4L4 5> " G 4L4)5> " G 4L4
5> " G 4L4
5> " G " b$ Y4L
> " G 4L4
5> " G 4L4
$ "
5> " G " 4L4) 5> " G & %42 540 54/ 541 545 54 547 5 $ "
$ " $ 4 > " G " 4L4*44$ " 5LL5$ " 5> " G 4 LL LO 445> " G 4L> " G 4L45 > " G " 4 > " G $ " & " $ L4)
56C& 4 54 54 54 5
4L > " G 4
> " G 4L > " G 4L4 4
55> " G $
L4 56$ .4L4*
5> " G $ L4
56C$ L4* 56$ L4
56C 6 Z g x
3u g context 3u g RA 3u g MVRA 3u g comp-push 3u g comp-drop 3u g clear-stack-slots 3u g rtd 5 3u g src 0 g exp 0 g exps ? g exps E g tree
O e g tree
h g src g proc g args
g t g t d g key C * g len g tree
g tree
/ g MV
g POST g lcase i g label
C T g t g label ? P g key g tree o g len & H g tree o g tree g tree
_
z g tree
g tree
g tree o g tree g MV L
g POST L
g producer
L
g consumer L
g proc v g args v g tree
0 g tree
x g src g test g
consequent
g alternate g L1 g L2
g rtd f g proc . g args . g rtd ( g name g len g app J g rtd O
g proc g g args g g len r g rtd w g name g tree g tree 0 K g tree O j g tree / J g tree g tree g src g name g src g gensym g v
p g vx S g vy S g vx
3 g vy
3 g src g gensym g exp
g v n g vx Q g vy
Q g vx 1 g vy 1 g src t g mod t g name
t g public? t g src H g mod H g name
H g public? H g exp H g src ^ g name ^ g src g name g exp
g src J g name J g exp
J g free-locs \ g src [ " g req [ " g opt
[ " g rest [ " g kw [ " g inits
[ " g gensyms [ " g alternate [ " g body [ " g nreq t " g nopt " g rest-idx " g allow-other-keys? " g
kw-indices " g nargs " g nlocs " g alternate-label
" g b C g t C x g kw g names g gensyms g vx 2 g vy 2 g vy @ g vx S g vy S g vx ! d g vy " d g inits c "- g n c "- g gensyms c "- g v " g vx ! g vy ! g vx ! g vy ! g L ! !] g tree " ! g label "N "k g src " # g names " # g gensyms
" # g vals " # g body " # g src # $ g in-order? # $ g names
# $ g gensyms # $ g vals # $ g body
# $ g src $ &3 g names $ &3 g gensyms
$ &3 g vals $ &3 g body $ &3 g new-RA
% &3 g out %3 %~ g gensyms %3 %~ g names %3 %~ g binds % % g src &P ' g exp &P ' g body
&P ' g rtd &Y ' g req & ' g opt
& ' g kw & ' g rest & ' g gensyms & ' g body & ' g alternate & ' g MV & ' g src ' * g body ' * g winder
' * g unwinder ' * g tree (. (I g MV (q )D g tree
( ( g tree
) )7 g tree ) ) g MV ) *< g tree
* *. g tree *~ * g fluids * , g vals * , g body
* , g MV +; + g MV + ,m g fluid , - g fluid - .b g exp - .b g src . 2f g tag . 2f g body
. 2f g handler . 2f g H . 2f g POST
. 2f g escape-only? . 2f g MV . /~ g MV / 0p g rtd 0 27 g req 1, 2 g opt 1, 2 g kw 1, 2 g rest 1, 2 g gensyms 1, 2 g body 1, 2 g alternate 1, 2 g src 2 3m g tag 2 3m g args
2 3m g tail 2 3m g filenamef !language/tree-il/compile-glil.scm
5 H e
i r
,
!
% ) , , . 8 E H L O O
e h h k q ( x " < + " ' 0 / 4 = C V s % w 3 %
, ) 9 )
, " * 2 6 ;
@
D
, G
L
U [ ( b k
( 8 ( & ( * : * ( 8 (
& ( $ 0 5 * 9 : < * A O S W [ ] a e
i m , p r } ~ $
, 3 & ! ! % ! 5 ! % ! " ' " + ' , 5 9 D M $ Q $ % \ $ j % n r & + v x |
# +
#
! $ , 1
: ' C " C
J N R T U a
e i
i j m r / z | ( - 6 # ? ? F J N P d e o t E ) | E C E J K
, J M M Q Q Q . Q Q (
S S S . S $ S 2 6 : > @ D H
L P , S U X X _ X # d X o Y o Y r x (
, J \ ] ] ] + ] ] ^ J ` a & & a , b ! 0 b 1 c ! 5 c 1 8 c ! = d ! A d 1 E d ! J a Q Y - ] ^ g k n o r x ( ( ( +
"
& ,
)
+
5
:
B -
F
G
O
S
\
_
_
b
h (
o
+
)
"
-
"
,
( + " 0 4 8 < > B F
J N , Q S ^ _
d i ) k o
o r x (
, g g - f h h f p t
t # t : t # t
s " - " " $ ( ,
0 4 , 7 9 < y A y * H z K z 2 L y X { $ \ { a | f | ! j | 1 m | ! r | { ( ~ ~ ~ - ~ ~ ( ' 7 '
'
7
'
$ (
(
-
6
:
E
V
[ '
_ 7
b '
d
e
j '
n 7
q '
v
)
*
:
*
,
-
*
& ( - 6 - N . R . / S . ? Z . ; \ . ^ . g *
h 0 m 0 q 0 / t 0 y 0 ( 2 3 3 3 / 3 : 3 6 3 3
, *
7 7 ' 7 >
7 ' 8 # 7 6 " - % " 6 : > B D H L
P T , W Y d *
e A j A ' o A > q A ' v B # x A x @ { (
, - G
$
> 1 ,
#
$ $ (
, 0 , 3 5 @ #
A & Y ' ] ' / ^ ' ? f ' h ' 0 0 # 0 2 4 6 6 ( ` $ " ' 3 7 ; B " ? 7 C B ( G B J C J C O D l F # r F w G ( V 0 I P . I P 6 P Q * Q ( R 0 I K . $ I ) K 4 - K 0 L * 0 L 3 9 ( @ N M * O M R X ( _ k p t N 0 x } ( Y . ( \ ) 7 > " $ 7 ( > * , > / ? / ? 2 8 ( ? K P T @ $ X ] q 7 u 9 " y 7 ~ 9 ( 9 : : ( ; ; ( < $ ( c 3 9 ( @ I N R f V [ g k
k - k k k l o
o - o o o t ) u 5 s > v [ x ` x d x / h x m x
, z s { } } } - } 2 } }
, ! , I N R S ! _ d v z ~
,
= %
8
< E
\ e
z ~
, (
: #
6
: C
Z c
w
,
( , - 1 5 / 8 = O S W [ ] a e
i m , p r | ( (
# ' + / 1 5 9
= A , D F P c h l * p u /
, (
* + H
L U
g k o s u y }
, ( *
% ) - 1 3 7 ;
? C , F H R S \ \ g 0 0
, n t | } " ! ( & / - $ .
& - 3 ' : ;
C P
T m
y
% ! ( o { 0 " +
& ! & : ' (
1
3 7 0 >
3 @
J W
c i r u | 6 ~
*
= ! ! ! 2 ! ! " " ! ( ! ! # ! # ! # = !" # !' # !0 !4 !? !J % !M % " !P % ) !Z % !`
!e & !i & !l & / !s & !
! & ! & ! & / ! & !
! & ! & ! & / ! & !
! & ! & ! & / ! & " " "
" " "%
"- "2 2 "D "E ( "N ( "N ( "Q "U "` "l " * " +
" + " +
" , " " " " / " # 3 # 4 #9 5 #K < #V 5 #_ #w > # ? # ? # # C # J $ K $ N $A W $U X $g ] $r X ${ $ _ $ ` $ ` $ $ m * $ m $ m $ m $ m 8 % m % n %3 %9 %: / %E %J % %N %R %W ' %Z 5 %d %g * %j 8 %k # %q # %t 1 %~ %~ % $ % % % % % . % % % % % % & & &- &3 &; &Y & &
& & & & &
& " & - & " & & ' ' ' ' '$ ') ', '/ '9 ) '> 2 'C > 'E 'M 'S '[ '` 'i '{ ' ' ' ' ' ' ' ' ' ( ( ( ( ( (% (, / (. (. (1 (7 ( (> (J (N (R % (V ([ (l (m (q
(t " (z - ( " ( ( ( * ( ( ( ( 6 ( ( ( ( ( ( ( ( ( * ( ( ( ( ( ( ( ) * ) )
) ) 6 ) ) ) )% ( ), ); )? * )B )D )M )N )T ( )[ )d
)h )l ( )o )t
)} ) 4 ) )
) ( ) ) ) )
) " ) - ) " ) ) ) ) ) ) ) ) ) * ) * *
* 6 * * * * ( *# *2 *6 *: *< *E *F *L ( *S *\
*` *d ( *g *l
*u *| 4 *~ *~
* * ( * *
* * * * * * * + + + % + 2 + +% +6 +7 +;
+> " +D - +L " +U +Y +] * +` +e +n +r +v * +y +~ + + + + ! + ! + ! * + ! + ! + " + " * + " + " + + + ( + + & + & ( + & + &
+ + ) + )
, " , - , " , , , , ,& , ,/ ,3 ,> ,G 0 ,K 0 ,O 0 * ,R 0 ,W 0 ,c ,g 1 ,k ,m ,v ,w ,} ( , , 6
, 6 , 6 ( , 6 , 6
, 8
, , 9 , , , , < , , ( , - < -) -/ ( -6 -? A
-C A -G A ( -J A -O A
-a -e -i -m -o -s -w
-{ - , - - - - - ( - - ( - - G - G - G % - G - G . H . J
." J .+ J
.= .A .E .I .K .O .S
.W .[ , .^ .` .j . U . V . W . U . . ( . . Z . Z . Z . ^ . ` . ` . " . - . " / c / c / c , / c / c / d / d /! d , /$ d /) d /2 /6 /A /J g /N g /R g , /U g /Z g /c h /g h /k h , /n h /s h / ^ / / ( / / n / n / n * / n / n / / / o / o / / / ^ / r / r / " / - 0 " 0 u 0 u 0 u 0# 0' 02 0; x 0? x 0C x , 0F x 0K x 0T 0X 0\ y 0` 0e 0} ^ 0~ 0 ( 0 0 ~ 0 ~ 0 ~ * 0 ~ 0 ~ 0 0 0 0 0 0 0 0 0 0 1@ 1V 1W 1[ 1b 1o 1t 1w 1z 1 ) 1 2 1 > 1 1 1 1 1 1 1 1 1 1 1 1 2! 2=
2F # 2J 2K 2S 7 2T * 2X 2\ 2d 2n 2 2 ( 2 2 2 2 ( 2 2 2 2 & 2 - 2 2 2 2 3 ( 3 3
3 3
3 3!
3/
33 37 ! 3; 3= 3H 3L 3T
3] 3a 3e 3i 3k 3q 3u ? 3u g nameg comp C h0 & ]O Q 6 g lcase
+ g
allocation + g self + g
self-label + g
fix-labels + g emit-code + g comp + g filenamef !language/tree-il/compile-glil.scm
' + + g nameg flatten-lambda-case CRC g m
, g filenamef !language/tree-il/compile-glil.scm
- , 6 ,
8 / _ .
5
M M
N
v P { N
!
ǒ
ǔ
C6 PK ! ~c%
effects.gonu [ GOOF----LE-8-2.0 ] 4 h6 ] g guile g define-module* g language g tree-il g effects
g filenameS f language/tree-il/effects.scm g importsS
g
primitives g ice-9 g match g exportsS g make-effects-analyzer g &mutable-lexical g &toplevel g &fluid g &definite-bailout g &possible-bailout g &zero-values g &allocation g
&mutable-data !g &type-check "g &all-effects #g effects-commute? $g exclude-effects %g effect-free? &g constant? 'g depends-on-effects? (g causes-effects? ) !"#$%&'( *g set-current-module +* ,* -g make-syntax-transformer .- /- 0g define-effects 1g macro 2g $sc-dispatch 32 42 5g _ 6g any 7g each-any 867 958 :g iota ;g length g top ?> @g ribcage A@ Bg n CB D? Ef l-a141b7f3b9a-1d09 FE G@CDF Hg all Ig name JHI K?? Lf l-a141b7f3b9a-1d02 Mf l-a141b7f3b9a-1d03 NLM O@JKN Pg x QP Rf l-a141b7f3b9a-1cff SR T@QDS U?AGOAT Vg hygiene WV X<=UW Yg append ZY [Y \g map ]\ ^\ _g
define-syntax `<_UW ag identifier-syntax b<aUW cg ash d<cUW e< UW fg * g<fUW h< UW ih jg logior k<jUW lg syntax-violation ml nl of -source expression failed to match any pattern pg identifier? qp rp sg m-a141b7f3b9a-1d0f ts> ug id vu wg m-a141b7f3b9a-1d10 xw> yx zf l-a141b7f3b9a-1d17 {z |@vy{ }f l-a141b7f3b9a-1d12 ~} @Qy~ g shift t|AAGOAT
<cW < W <fW |A <
W < W 57 f l-a141b7f3b9a-1d1a @Qy tAAGOAT
<cW < W <fW A <
W < W g m-a141b7f3b9a-1d1d > f l-a141b7f3b9a-1d24 @v f l-a141b7f3b9a-1d1f @Q tAAGOAT
<cW < W <fW A < W < W f l-a141b7f3b9a-1d27 @Q tAAGOAT
<cW < W <fW A < W < W g m-a141b7f3b9a-1d2a > f l-a141b7f3b9a-1d31 @v f l-a141b7f3b9a-1d2c @Q tAAGOAT
<cW < W <fW A < W < W f l-a141b7f3b9a-1d34 @Q tAAGOAT
<cW < W <fW A < W < W g m-a141b7f3b9a-1d37 > f l-a141b7f3b9a-1d3e @v f l-a141b7f3b9a-1d39 @Q tAAGOAT
<cW < W <fW A < W < W f l-a141b7f3b9a-1d41 @Q tAAGOAT
<cW < W <fW A < W < W g m-a141b7f3b9a-1d44 > f l-a141b7f3b9a-1d4b @v f l-a141b7f3b9a-1d46 @Q tAAGOAT
<cW < W <fW A < W < W f l-a141b7f3b9a-1d4e @Q tAAGOAT
<cW < W <fW
A <
W < W
g m-a141b7f3b9a-1d51 > f l-a141b7f3b9a-1d58 @v f l-a141b7f3b9a-1d53 @Q tAAGOAT
<cW < W <fW A < W < W !f l-a141b7f3b9a-1d5b "! #@Q" $t#AAGOAT
%<c$W &< $W '<f$W (#A )< (W *< $W +')* ,%&+ -g m-a141b7f3b9a-1d5e .-> /. 0f l-a141b7f3b9a-1d65 10 2@v/1 3f l-a141b7f3b9a-1d60 43 5@Q/4 6t2A5AGOAT
7<c6W 8< 6W 9<f6W :2A5 ;< :W << 6W =9;< >78= ?f l-a141b7f3b9a-1d68 @? A@Q/@ BtAA5AGOAT
C<cBW D< BW E<fBW FAA5 G< FW H< BW IEGH JCDI Kg m-a141b7f3b9a-1d6b LK> ML Nf l-a141b7f3b9a-1d72 ON P@vMO Qf l-a141b7f3b9a-1d6d RQ S@QMR TtPASAGOAT
U<cTW V< TW W<fTW XPAS Y< XW Z< TW [WYZ \UV[ ]f l-a141b7f3b9a-1d75 ^] _@QM^ `t_ASAGOAT
a<c`W b< `W c<f`W d_AS e< dW f< `W gcef habg ig m-a141b7f3b9a-1d78 ji> kj lf l-a141b7f3b9a-1d7f ml n@vkm of l-a141b7f3b9a-1d7a po q@Qkp rtnAqAGOAT
s<crW t< rW u<frW vnAq w< vW x< rW yuwx zsty {f l-a141b7f3b9a-1d82 |{ }@Qk| ~t}AqAGOAT
<c~W < ~W <f~W }Aq < W < ~W g m-a141b7f3b9a-1d85 > f l-a141b7f3b9a-1d8c @v f l-a141b7f3b9a-1d87 @Q tAAGOAT
<jW ?A <W <W <W < W < W < W < W < W <!W
f l-a141b7f3b9a-1d8f @Q tAAGOAT
<jW ?A <W <W <W < W < W < W < W < W <!W
g &no-effects g m-a141b7f3b9a-1d92 > f l-a141b7f3b9a-1d99 @v f l-a141b7f3b9a-1d94 @Q ?A <
W f l-a141b7f3b9a-1d9c @Q ?A <
W g &all-effects-but-bailout g logand g m-a141b7f3b9a-1d9f > f l-a141b7f3b9a-1da6 @v f l-a141b7f3b9a-1da1 @Q ?A <W <"W g lognot <W < W f l-a141b7f3b9a-1da9 @Q ?A <W <"W <W < W g % cause-procedure g cause 56 g syntax-parameterize g m-a141b7f3b9a-1dad > g t-a141b7f3b9a-1dac f l-a141b7f3b9a-1db2 @ f l-a141b7f3b9a-1daf @Q g proc-name g args f
l-bde397a-8e8 f
l-bde397a-8e9 @K g formals g body I ??? f
l-bde397a-8df f
l-bde397a-8e0 f
l-bde397a-8e1 @ g make-procedure-name g prefix ?? f
l-bde397a-8d3 f
l-bde397a-8d1 @ f
l-bde397a-8d0 @QD AAAAA
V < ?A <W
<a <W
g lambda < g effect <W <cW < W f Wrong number of arguments ?A <W g % &depends-on-procedure g &depends-on g m-a141b7f3b9a-1dc8 > g t-a141b7f3b9a-1dc7 ! " #f l-a141b7f3b9a-1dcd $# %@!"$ &f l-a141b7f3b9a-1dca '& (@Q"' ) %A(AAAA
*<) +?%A( ,< +W -<a) .< +W /-. 0,/ 10 2<) 3g a 4<3+W 54 6<+W 7<"+W 8647 9258 :*19 ;?A( << ;W =g % &causes-procedure >g &causes ?g m-a141b7f3b9a-1ded @?> Ag t-a141b7f3b9a-1dec BA C@ Df l-a141b7f3b9a-1df2 ED F@BCE Gf l-a141b7f3b9a-1def HG I@QCH J@FAIAAAA
K<J L?FAI M<>LW N<aJ O<=LW PNO QMP RQ S<J T<3LW UT V<LW W<LW X<"LW YWX ZVTY [SUZ \KR[ ]?AI ^<=]W _g % depends-on-effects?-procedure `566 ag m-a141b7f3b9a-1e65 ba> cg t-a141b7f3b9a-1e63 dg t-a141b7f3b9a-1e64 ecd fbb gf l-a141b7f3b9a-1e6a hf l-a141b7f3b9a-1e6b igh j@efi kb lf l-a141b7f3b9a-1e67 ml n@Qkm objAnAAAA
p<o q?jAn r<'qW s<ao t<_qW ust vru wv x<o y<PqW z<qW {yz |g not }<|qW ~g zero? <~qW <qW < qW y z } x{ pw ?An <_W g % causes-effects?-procedure g m-a141b7f3b9a-1e9f > g t-a141b7f3b9a-1e9d g t-a141b7f3b9a-1e9e f l-a141b7f3b9a-1ea4 f l-a141b7f3b9a-1ea5 @ f l-a141b7f3b9a-1ea1 @Q AAAAA
< ?A <(W <a <W < <PW <W <|W <~W <W <>W <W ?A <W g % effects-commute?-procedure g m-a141b7f3b9a-1ef9 > g t-a141b7f3b9a-1ef7 g t-a141b7f3b9a-1ef8 f l-a141b7f3b9a-1efe f l-a141b7f3b9a-1eff @ f l-a141b7f3b9a-1efb @Q AAAAA
< ?A <#W <a <W < <3W g b <W g and <W <|W <(W < W ?A <W g make-hash-table g hashq-ref g
hashq-set! g g g error f no matching pattern g
g
g or-map g g
g
g make-application g g bailout-primitive? g effect-free-primitive? g constructor-primitive? g accessor-primitive? g make-prompt-tag g vector g list g cons g list? g symbol? g vector? g struct? g string? g number? g char? g null? g pair? g equal? g eqv? g eq? g values g
g g
g g g
g g g g g g g g g
g g C 5 h@o ]4
)5 4, > " G 4/0149:;47X[^`bdegi h ^ ] C V g tmp-a141b7f3b9a-1d0d
g tmp-a141b7f3b9a-1d0c C`bk h0 ) ]44 L5L L 5C ! g n
* * Cno h8 ]4455 45 $
O @6 g all
7 g name 7 g tmp 7 g tmp 7 g filenamef language/tree-il/effects.scm > > $ > > 7 Cno h( o ] 4 5 $ @ 6 g g x
" g tmp " g filenamef language/tree-il/effects.scm
; " C50R4/1r h ` ] 6X g id
g filenamef language/tree-il/effects.scm O
C h * ]C " g id
C4 h ) ] C! g x
Cno h@ ] 4?$ @4 5 $ @ 6 g x
: g tmp : g tmp # : g filenamef language/tree-il/effects.scm
O
: g
macro-typeg identifier-syntax C5R4/1r h ` ] 6X g id
g filenamef language/tree-il/effects.scm O
C h * ]C " g id
C4 h ) ] C! g x
Cno h@ ] 4?$ @4 5 $ @ 6 g x
: g tmp : g tmp # : g filenamef language/tree-il/effects.scm
O
: g
macro-typeg identifier-syntax C5R4/1r h ` ] 6X g id
g filenamef language/tree-il/effects.scm O
C h * ]C " g id
C4 h ) ] C! g x
Cno h@ ] 4?$ @4 5 $ @ 6 g x
: g tmp : g tmp # : g filenamef language/tree-il/effects.scm
O
: g
macro-typeg identifier-syntax C5R4/ 1r h ` ] 6X g id
g filenamef language/tree-il/effects.scm O
C h * ]C " g id
C4 h ) ] C! g x
Cno h@ ] 4?$ @4 5 $ @ 6 g x
: g tmp : g tmp # : g filenamef language/tree-il/effects.scm
O
: g
macro-typeg identifier-syntax C5 R4/ 1r h ` ] 6X g id
g filenamef language/tree-il/effects.scm O
C h * ]C " g id
C4 h ) ] C! g x
Cno h@ ] 4?$ @4 5 $ @ 6 g x
: g tmp : g tmp # : g filenamef language/tree-il/effects.scm
O
: g
macro-typeg identifier-syntax C5 R4/ 1r h ` ] 6X g id
g filenamef language/tree-il/effects.scm O
C h * ]C " g id
C4, h ) ] C! g x
Cno h@ ] 4?$ @4 5 $ @ 6 g x
: g tmp : g tmp # : g filenamef language/tree-il/effects.scm
O
: g
macro-typeg identifier-syntax C5 R4/ 1r h ` ] 6X g id
g filenamef language/tree-il/effects.scm O
C> h * ]C " g id
C4J h ) ] C! g x
Cno h@ ] 4?$ @4 5 $ @ 6 g x
: g tmp : g tmp # : g filenamef language/tree-il/effects.scm
O
: g
macro-typeg identifier-syntax C5 R4/ 1r h ` ] 6X g id
g filenamef language/tree-il/effects.scm O
C\ h * ]C " g id
C4h h ) ] C! g x
Cno h@ ] 4?$ @4 5 $ @ 6 g x
: g tmp : g tmp # : g filenamef language/tree-il/effects.scm
O
: g
macro-typeg identifier-syntax C5 R4/!1r h ` ] 6X g id
g filenamef language/tree-il/effects.scm O
Cz h * ]C " g id
C4 h ) ] C! g x
Cno h@ ] 4?$ @4 5 $ @ 6 g x
: g tmp : g tmp # : g filenamef language/tree-il/effects.scm
O
: g
macro-typeg identifier-syntax C5!R4/"1r h ` ] 6X g id
g filenamef language/tree-il/effects.scm O
C h * ]C " g id
C4 h ) ] C! g x
Cno h@ ] 4?$ @4 5 $ @ 6 g x
: g tmp : g tmp # : g filenamef language/tree-il/effects.scm
O
: g
macro-typeg identifier-syntax C5"R4/1r h a ] 6Y g id
g filenamef language/tree-il/effects.scm { C h * ]C " g id
C4 h ) ] C! g x
Cno h@ ] 4?$ @4 5 $ @ 6 g x
: g tmp : g tmp # : g filenamef language/tree-il/effects.scm
{ : g
macro-typeg identifier-syntax C5R4/1r h b ] 6Z g id
g filenamef language/tree-il/effects.scm C h * ]C " g id
C4 h ) ] C! g x
Cno h@ ] 4?$ @4 5 $ @ 6 g x
: g tmp : g tmp # : g filenamef language/tree-il/effects.scm
: g
macro-typeg identifier-syntax C5R h ] C g effect
g filenamef language/tree-il/effects.scm
g nameg % cause-procedure CR4/14 h : ] C 2 g t-a141b7f3b9a-1dac
Cn h ` ]L 6 X g a
g filenamef language/tree-il/effects.scm
C5r h P ] L 6H g filenamef language/tree-il/effects.scm
C h ] C
Cno 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/effects.scm
n C5R h ] UUC g a
g filenamef language/tree-il/effects.scm
g nameg % &depends-on-procedure C R4/ 14: h : ] C 2 g t-a141b7f3b9a-1dc7
Cn h ` ]L 6 X g a
g filenamef language/tree-il/effects.scm
C5r h P ] L 6H g filenamef language/tree-il/effects.scm
C< h ] C
Cno 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/effects.scm
n C5 R h ] C g a
g filenamef language/tree-il/effects.scm
g nameg % &causes-procedure C=R4/>14\ h : ] C 2 g t-a141b7f3b9a-1dec
Cn> h ` ]L 6 X g a
g filenamef language/tree-il/effects.scm
C5r h P ] L 6H g filenamef language/tree-il/effects.scm
C^ h ] C
Cno 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/effects.scm
n C5>R h ] 4 5C g effects
g exclude g filenamef language/tree-il/effects.scm
g nameg exclude-effects C$R h ]
C g effects
g filenamef language/tree-il/effects.scm
g nameg effect-free? C%R h ]
C | g effects
g filenamef language/tree-il/effects.scm
g nameg constant? C&R h ] UU
C g x
g effects g filenamef language/tree-il/effects.scm
g nameg % depends-on-effects?-procedure C_R4/'14` h Z ] C R g t-a141b7f3b9a-1e63
g t-a141b7f3b9a-1e64 Cn' h ` ]L 6 X g a
g filenamef language/tree-il/effects.scm
C5r h P ] L 6H g filenamef language/tree-il/effects.scm
C h ] C
Cno 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/effects.scm
n C5'Rh ]
C g x
g effects g filenamef language/tree-il/effects.scm
" g nameg % causes-effects?-procedure CR4/(14` h Z ] C R g t-a141b7f3b9a-1e9d
g t-a141b7f3b9a-1e9e Cn( h ` ]L 6 X g a
g filenamef language/tree-il/effects.scm
C5r h P ] L 6H g filenamef language/tree-il/effects.scm
C h ] C
Cno 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/effects.scm
n C5(RhX ]
UU
$ C UU
C g a
T g b T g effects ' g effects 9 R g filenamef language/tree-il/effects.scm
+ 9 9 S T g nameg % effects-commute?-procedure CR4/#14` h Z ] C R g t-a141b7f3b9a-1ef7
g t-a141b7f3b9a-1ef8 Cn# h ` ]L 6 X g a
g filenamef language/tree-il/effects.scm
C5r h P ] L 6H g filenamef language/tree-il/effects.scm
C h ] C
Cno 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/effects.scm
n C5#R h ` ]C X g x
g filenamef language/tree-il/effects.scm
5 C h8 ] 4L 5 $ C4L 5 4L > " G C g exp
8 g t 8 g effects 8 g filenamef language/tree-il/effects.scm
8 g nameg compute-effects C h0 ]" ( C4L 5 "
" g exps
0 g exps % g out % g filenamef language/tree-il/effects.scm
) : ) % % 0 g nameg accumulate-effects C$; |
9 hX ]Y" 2" " " c" " -" " " " \" " 0"
" " b" " " f" 6" " $" " " j" " D" " " 6" " N" " " ) $ &
4L 5 $ " $4L5 4L > " G 4L 5 $ " $4L5 4L > " G 4L 5 $ " $4L5 4L > " G C &
?C4 56 4 56 $ &
" $ ( O 4L 5 $ " $4L5 4L > " G 4 5C 4L 5 $ " $4L5 4L > " G "N456
"6"" $
&
4 4L5 @54 L5$ "
4L 5 $ " $4L5 4L > " G $ B4L 5 $ " $4L5 4L > " G "
C"" $ &
C"" $ '
&
?C"" $
&
$ & s
4L5 $ B45 4L 5 $ C4L5 4L > " G C ?C"""" $ a
& T
$ >& 1
45$ 4L5 C"n"j"f"b"^ $
&
$ &
4L5" " & " 4455 " ~$ Y
& L4L 5 $ " $4L5 4L > " G " """|$
&
& & & (
& d4L 5 $ " $4L 5 4L > " G 4545$
" " "
" " " " " " " "t " "f" "^C"d"`"\"X $
& |
$ f& Y
45$ ? 4L5 45$ " 45$ @ "
C""""" $
&
$ & |
& e $ S( H 4L 5 $ " $4L5 4L > " G C" """"
" " $ \
& O
$ 9& ,
& ( C"""""" $ v
& i
$ S& F
" 4L5 C" & ""5& """!" "" $
&
$ &
& $ $ ( 4L 5 $ " $4L5 4L > " G 4L 5 $ " $4L5 4L > " G C""" """""
" $
&
$ &
" t" " & X $ F( ; 4L 5 $ C4L5 4L > " G C"d"`& X $ F( ; 4L 5 $ C4L5 4L > " G C"" & X $ F( ; 4L 5 $ C4L5 4L > " G C"" & X $ F( ; 4L 5 $ C4L5 4L > " G C"D"@ & X $ F( ; 4L 5 $ C4L5 4L > " G C"" & X $ F( ; 4L 5 $ C4L5 4L > " G C"" & X $ F( ; 4L 5 $ C4L5 4L > " G C"$" " !& X $ F( ; 4L 5 $ C4L5 4L > " G C""""& X $ F( ; 4L 5 $ C4L5 4L > " G C"\"X"#& X $ F( ; 4L 5 $ C4L5 4L > " G C"""("""" $
&
$ u& h
"
L6" 8" $" $& ""y%& ""&& ""'& """E"A"="9 $ \
& O
$ 9& ,
'& ( C"""""" $ ! (&
4L 5 $ " $4L5 4L > " G 4L 5 $ " $4L5 4L > " G 4L 5 $ " $4L5 4L > " G
$ C @6"" $ &
C"" $ ` )& S
4L 5 $ " $4L5 4L > " G C"" $ ` *& S
4L 5 $ " $4L5 4L > " G C"" $ s +& f
4L 5 $ " $4L5 4L > " G C"$" $ ,&
C"" $ -&
C"" $ .&
4L 5 $ " $4L5 4L > " G 4L 5 $ " $4L5 4L > " G C" " $ d /& W
4L 5 $ " $4L5 4L > " G C"" $ 0& u
4L54L5 4L 5 $ " $4L5 4L > " G C"" $ 1&
4L 5 $ " $4L5 4L > " G 4L 5 $ " $4L5 4L > " G 4L 5 $ " $4L5 4L > " G C")"% $ 2&
4L 5 $ " $4L5 4L > " G 4L 5 $ " $4L5 4L > " G C"s"o $ 3& |
4 L5$ "
4L54L 5 $ " $4L5 4L > " G C"" $ 4&
4 L5$ "
4L54L 5 $ " $4L5 4L > " G C"="9 $ 5& |
4 L5$ "
4L54L 5 $ " $4L5 4L > " G C"" $ f 6& Y
4L 5 $ " $4L5 4L > " G C"0", $ - &
4L5$ C
C"" $ 7&
C"" $ 8&
C"" g exp
R g w p g w p g w p g t g effects g t / g effects , g t 9 n g effects N k g w g exps g effects g w / g t # g effects g w 5 g x 5 g t D y g effects Y v g w g w g w g w g t N g effects . K g t ^ g effects s g w g w 8 g w ? g t H g exp Z g t e g effects w g w g w g w g w 1 g w R
g w Y
g t g effects g w g w g w g w * g w 8 g w K g w
R g t d g effects y g w 3 g w N g w ` g w ] g w U g w Q g w I g t D g effects $ A g w ~ g w g w g w E g w = g w g w f
P g w
H g w
D g w
@ g x
@ g w
8 g t g effects g t
2 g effects
/ g w
q r g w
j g w
g w
g t
g effects
g w Z g w R g t % R g effects 7 R g w g g w z g t g effects g w g w g t g effects g w ' z g w : r g t E r g effects W r g w g w g t g effects g w
: g w
2 g t
2 g effects
2 g w
K
g w
^
g t
i
g effects
{
g w
g w
g t
g effects
g w f g w & ^ g t 1 ^ g effects C ^ g w g w
g w g w 6 | g w Q t g w ` p g w g w g w g t g effects g t ) g effects & g t 2 g g effects G d g tfx g g cfx g g afx g g x u g w - g t + g effects ( g w T g t a g effects v g w g t g effects g w { g w g t g effects g t g effects g w 0 ~ g t ; p g effects P m g w g w g w g t g effects g w , g w 3 g w : g t E z g effects Z w g t g effects g t g effects g w g w ! g t , a g effects A ^ g t j g effects g w ? g w ? g w ? g t = g effects : g w l g w s g w z g t g effects g w m g w m g w m g t 6 k g effects K h g w g t g effects g w g filenamef language/tree-il/effects.scm
0 r 1 9 H N Q o r s w g h
$ m + m 1 - m . j 2 h
< D S Y \ | o o h
g ^ ^ $ ^ ` `
a ^ ( . 1 O ^ U d V ^ m s v ^ X B O
H N Q Q # Z Q ] e q w z S
G H G I G \ 4 f 5 t A y 5 = < 5 \ d s y | 8 % 8 2 8 " 8 : " 7 5 4 c * r + s * t , ~ , - . . * $ ' G ! ) H ! M -
3
6
7
<
% 1 7 : V } = E Q W Z v
6
a
i
u
{
~
) 1 = C F b k p * 2 A G J g t . u " u
" , 1 X Y a p v y 7 < Y ^
3 ; J P S y z
= E T Z ] { $ , ; A D b j y > C } & - . 6 E K N l q ~ R g nameg visit C hX - . , 3 # O O O LQ Q LL Q 6 g exp
R g lookup R g compute-effects 3 R g accumulate-effects 3 R g visit 3 R g filenamef language/tree-il/effects.scm
R z R g nameg compute-effects C h > ]45 O Q C 6 g assigned-lexical?
g cache g compute-effects g filenamef language/tree-il/effects.scm
g nameg make-effects-analyzerg
documentationf VReturns a procedure of type EXP -> EFFECTS that analyzes the effects
of an expression. CRC g m
, g filenamef language/tree-il/effects.scm
"
&
'C
'
(
,
0
o9
o;
C6 PK ! Ku~ spec.gonu [ GOOF----LE-8-2.0 ] 5 4 h6 ] g guile g define-module* g language g tree-il g spec
g filenameS f language/tree-il/spec.scm g importsS
g system g base
g pmatch
g glil g compile-glil g exportsS g set-current-module ! "g write #g unparse-tree-il $g
write-tree-il %g make-void &g
make-sequence 'g join (g invalidate-compilation-cache! )g
make-language *g nameS +g titleS ,f Tree Intermediate Language -g readerS .g read /g printerS 0g parserS 1g
parse-tree-il 2g joinerS 3g compilersS 4g for-humans?SC 5 h ]4
5 4! > " G "# h - 1 3 4 5@ g exp
g port g filenamef language/tree-il/spec.scm
g nameg
write-tree-il C$R%& h8 ] ( 6 $ ( C 6 6 g exps
5 g env 5 g vx . g vy . g filenamef language/tree-il/spec.scm
! . #
5 g nameg join C'R4(i> " G 4)i*+,-. h x ] 6p g port
g env g filenamef language/tree-il/spec.scm
' ' # C/$i01i2'i3i 45RC g m
, g filenamef language/tree-il/spec.scm
%
" & + %
C6 PK ! %; ; debug.gonu [ GOOF----LE-8-2.0 ; ] e 4 h6 ] g guile g define-module* g language g tree-il g debug
g filenameS f language/tree-il/debug.scm g importsS
g ice-9 g match g srfi g srfi-1 g srfi-26 g exportsS g verify-tree-il g set-current-module !g hashq-ref "g error #f duplicate gensym $g
hashq-set! %g make-hash-table &f unexpected tree-il 'g (g )g *g
+g
,g for-each -f expected list of args .g
/f expected more than one exp 0f expected list of exps 1g 2g 3g 4g length 5f mismatch in fluids/vals 6f vals should be list 7f fluids should be list 8g 9f %module name should be list of symbols :g and-map ;g symbol? >f name should be a symbol ?g @g Ag Bg Cg Dg Eg Fg lambda-case? Gf %let-values body should be lambda-case Hg If names should be list of syms Jf gensyms should be list of syms Kf 'names, syms, vals should be same length Lg Mg Ng Of !lambda body should be lambda-case Pf meta should be alist Qg pair? Rg
Sg memq Tf displaced lexical Uf unbound lexical Vg
Wg
Xf -bad required args (should be list of symbols) Yf 'bad gensyms (should be list of symbols) Zg take [g drop \f unexpected gensyms length ]f 6bad keywords (should be #f or (aok (kw name sym) ...)) ^g keyword? _f *bad required args (should be #f or symbol) `f /bad optionals (should be #f or list of symbols) ag tree-il-src bf bad src cg map dg carC 5 h1 f ]4
5 4 > " G !"#$ hX ]
( C 4M5$
45" 4M> " G " g new
R g env R g sym J g filenamef language/tree-il/debug.scm
! " $ $ $ ! % ) .
G
R $ R g nameg add-env C%"&'()*+, h o ]L L 6 g g t-9d61fd5a44d-1361
g filenamef language/tree-il/debug.scm
C-./ h o ]L L 6 g g t-9d61fd5a44d-12d8
g filenamef language/tree-il/debug.scm
C012 h o ]L L 6 g g t-9d61fd5a44d-11cd
g filenamef language/tree-il/debug.scm
C34 h o ]L L 6 g g t-9d61fd5a44d-1632
g filenamef language/tree-il/debug.scm
C h o ]L L 6 g g t-9d61fd5a44d-1638
g filenamef language/tree-il/debug.scm
C56789:;<=>?@ABCDEFGHIJ h o ]L L 6 g g t-9d61fd5a44d-1b64
g filenamef language/tree-il/debug.scm
CKL h o ]L L 6 g g t-9d61fd5a44d-1c53
g filenamef language/tree-il/debug.scm
CM h o ]L L 6 g g t-9d61fd5a44d-1d20
g filenamef language/tree-il/debug.scm
CNOPQR!STUVWX"Y h V ] L 6 N g filenamef language/tree-il/debug.scm >
>
C#$Z[\]^S hh ]) $ [ 45$ D$ ; $ ($ ( $ L 6CCCCCCC g x
f g w d g x d g w + ` g x + ` g w G Z g filenamef language/tree-il/debug.scm
5 6 ! X 8 $ f C_`abcd L h ]"
"
W" " "
" " " <" " " " " " S" " 5" @" 4 > " G " $ & b
4L > " G 4L > " G 4L > " mG " f & &
4L > " 8G " 1 & D
4L > " G 4L > " G " & b
4L > " G 4L > " G 4L > " G " & j
$ 34L > " G 4 L O > " (G " !4
> " G " & j
$ =( 4 > " G " 4
L O > " G " 4 > " G " & b
4L > " G 4L > " G 4L > " 5G " . & i
4L > " G 4L O > " G 4L > " G " "" $ &
$ $ y4545$ N4L O > " G 4L O > " G 4L > " G " 4 > " G "
4 > "
G "
4 > "
G "
"" $ &
" 4> "
vG "
o$ H4 5$ 7$ 4L > "
CG "
<4 > "
+G "
$"" " " $ \ & O
$ 4L > " G " 4 > " G " "" $ \ & O
$ 4L > " jG " c4 > " RG " K "J"F $ > !& 1
$ " 4 > " G " "" $ "& y
" 4 > " G " $ 44 5$ #$ " 4 > " G " y"" "h"d $ > #& 1
$ " =4 > " ,G " % "" $ $&
" "" $ %&
"
"" $ t && g
4'5$ ,4L > " G 4L > "
G "
z4(> "
iG "
b "I"E $ N )& A
" 4* > "
G "
$ 4 5$ " 4+ > " G " $ 4 5$ $ 45 45$ 45" $ A4L5 4,L O > " G 4L > " YG " R 4- > " >G " 74 > " &G " "+"'"" "" $ T .& G
" 4* > " G " $ 4 5$ " 4+ > " G " y$ 4 5$ $ 45 45$ 45" $ A4L5 4/L O > " G 4L > " G " 4- > " G " 4 > " G " "+"'"" "" $ G 0& :
" 4* > " WG " P$ 4 5$ " 4+ > " 'G " $ 4 5$ $ 45 45$ 45" $ :41L O > " G 4L 4L5> " G " 4- > " G " 4 > " uG " n"2"."" "3"/ $ 2&
" E$ ;4'5$ 4L > " G " 43 > " G " " $ <" 44> " G " $ 455$ """"u "p"l $ 6&
$ b47M5$ =485$ 4L > " 0G " )49> " G " 4:> " G " 4 > " G " "" $ ;&
$ N47M5$ )485$ " 49 > " xG " q4: > " `G " Y4 > " HG " A "" $ ( <&
" 4= > " G " $ 4 5$ >O
Q
" $ f4 5$ E
4 5$ 4545$ 45"
$ "
$ 45"
$ " U
$ " $ a4L > " G 47M5$
4?5" 4@M> " G "4L > " G " $ @ 47M5$
4?5" 4@M> " G " $ " " 4L > " G 47M5$
4?5" 4@M> " G
"4L4A4555$ 45"
4B455
"h $ 4L > " LG " E" A4C > " 0G " )4 > " G " 4
> " G " 4
> " G " " c$ Y" 4D > " G " $ 2 $ 4EO 5" $ "$"""" -$ #$ "4F > " ]G " V"l$ H" 4G > " /G " ($ 4 5$ "" "" "" "
" "M" "E " "" "4H 5 $ ^" 4I> " GG " @$ 5455$ 4 4JK55$ " "" "" "" C g exp
g env g w { g w g w g w g w P g w M g w b g w i g w p g w . g w + g w @ g w g w g w g w ~ g w % { g w , x g w o g w l g w i g w g w g w g w ? g w F g w g w g w
5 g w V g w ] g w g w w g w ~ g w . g w + g w ( g w % g b { g env g w U
g w \
g w c
g w j
g b g env
A g w
g w
g w
g w
g b 3 U g w g w g w
Y g w
V g w
S g w
z
g w
g w ! g w g w % g w , g w 3 g w : g w A g w H g failure
g failure g env P g nopt
P g inits P g tail P g env g inits g tail g sym & _ g sym g sym ; g x < _ g src 8 Rg filenamef language/tree-il/debug.scm
& ( K O V b ( ( ( 3 S ( s ( 1 ( E I P T [ h ( ( / C ^ ( ! # * 7 ; B O S Z s ( " ( K O P h l s ( ( & 9 ( j n u ( ( ( ) , 0 1 ! = B F M Y \ ` a # m p t u { ~ 1 2 ( q u | ! # 1
'
B
F
M
Z
^
e
(
}
}
}
{
|
{
| !
|
{ ~ { ~ # % ~ ( , { - 3 6 ? F 1 M Y { Z u z ( r u u y
7 v ; v B v R r ] t a t h t t r w s { s | s * s ( i h k h m h p
n
n
n
! l
% l
, l
9 j
= j
D j
] (
a
`
c
`
e
`
f
f
f
d
d
d
b
b
b
( O , S , Z , f * i + m * n + z + * = * = # = * ? # ? A B C C B F B G G G B A * J N N O
R R T T T & U & U ) 5 6 : > C
\
b U 0 e V o U p W O O O + O &
Q Q ' O Y Y Y Z Z
8
> [ A \ D ] P Z P J Q J T J Y J . a J e J k K l K z M M & M J ^ ^ H H H * < < & < 2 * 5 1 9 1 < 1 E 3 I 3 J 4 c 1 s * / / 0 0 0 * . . . * - - - ( - ) ( 2 8 @ E
I N
Z ] a
b ) n o t . ~ g nameg visit C h8 ]HO Q 45 KO Q 6 g exp
6 g seen-gensyms 6 g add-env 6 g visit & 6 g filenamef language/tree-il/debug.scm
& & 4 ' 6 & 6 g nameg verify-tree-il C RC ^ g m
, g filenamef language/tree-il/debug.scm
1
1
C6 PK ! /q$ $
primitives.gonu [ GOOF----LE-8-2.0 ]l 4 h ] g guile g define-module* g language g tree-il g
primitives
g filenameS f language/tree-il/primitives.scm g importsS
g system g base g pmatch
g ice-9 g match g rnrs g bytevectors g syntax
g srfi g srfi-4 ! "! #g srfi-16 $ # %$ & "% 'g exportsS (g resolve-primitives! )g add-interesting-primitive! *g expand-primitives! +g effect-free-primitive? ,g effect+exception-free-primitive? -g constructor-primitive? .g accessor-primitive? /g singly-valued-primitive? 0g bailout-primitive? 1g negate-primitive 2()*+,-./01
3g set-current-module 43 53 6g apply 7g @apply 8g call-with-values 9g @call-with-values :g call-with-current-continuation ;g @call-with-current-continuation g
@dynamic-wind ?g values @g eq? Ag eqv? Bg equal? Cg memq Dg memv Eg = Fg < Gg > Hg <= Ig >= Jg zero? Kg positive? Lg negative? Mg + Ng * Og - Pg / Qg 1- Rg 1+ Sg quotient Tg remainder Ug modulo Vg ash Wg logand Xg logior Yg logxor Zg lognot [g not \g pair? ]g null? ^g list? _g symbol? `g vector? ag string? bg struct? cg number? dg char? eg complex? fg real? gg rational? hg inf? ig nan? jg integer? kg exact? lg inexact? mg even? ng odd? og char=? rg char>? sg
integer->char tg
char->integer ug number->string vg string->number wg acons xg cons yg cons* zg list {g vector |g car }g cdr ~g set-car! g set-cdr! g caar g cadr g cdar g cddr g caaar g caadr g cadar g caddr g cdaar g cdadr g cddar g cdddr g caaaar g caaadr g caadar g caaddr g cadaar g cadadr g caddar g cadddr g cdaaar g cdaadr g cdadar g cdaddr g cddaar g cddadr g cdddar g cddddr g
vector-ref g vector-set! g variable-ref g
variable-set! g variable-bound? g fluid-ref g
fluid-set! g @prompt g call-with-prompt g @abort g abort-to-prompt g make-prompt-tag g throw g error g scm-error g
string-length g
string-ref g string-set! g
struct-vtable g make-struct g
struct-ref g struct-set! g bytevector-u8-ref g bytevector-u8-set! g bytevector-s8-ref g bytevector-s8-set! g u8vector-ref g
u8vector-set! g s8vector-ref g
s8vector-set! g bytevector-u16-ref g bytevector-u16-set! g bytevector-u16-native-ref g bytevector-u16-native-set! g bytevector-s16-ref g bytevector-s16-set! g bytevector-s16-native-ref g bytevector-s16-native-set! g
u16vector-ref g u16vector-set! g
s16vector-ref g s16vector-set! g bytevector-u32-ref g bytevector-u32-set! g bytevector-u32-native-ref g bytevector-u32-native-set! g bytevector-s32-ref g bytevector-s32-set! g bytevector-s32-native-ref g bytevector-s32-native-set! g
u32vector-ref g u32vector-set! g
s32vector-ref g s32vector-set! g bytevector-u64-ref g bytevector-u64-set! g bytevector-u64-native-ref g bytevector-u64-native-set! g bytevector-s64-ref g bytevector-s64-set! g bytevector-s64-native-ref g bytevector-s64-native-set! g
u64vector-ref g u64vector-set! g
s64vector-ref g s64vector-set! g bytevector-ieee-single-ref g bytevector-ieee-single-set! g !bytevector-ieee-single-native-ref g "bytevector-ieee-single-native-set! g bytevector-ieee-double-ref g bytevector-ieee-double-set! g !bytevector-ieee-double-native-ref g "bytevector-ieee-double-native-set! g
f32vector-ref g f32vector-set! g
f64vector-ref g f64vector-set! 6789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ g *interesting-primitive-names* g
hashq-set! g *interesting-primitive-vars* g module-variable g current-module f unbound interesting primitive g make-hash-table g for-each g make-struct/no-tail wxyz{ g *primitive-constructors* |}CD g *primitive-accessors* g append g *effect-free-primitives* ?@AB[\]^_`bacdwxyz{ g "*effect+exception-free-primitives* 6789:;<=>? g *multiply-valued-primitives* g *bailout-primitives* mn kl oq rp g *negatable-primitives* g *effect-free-primitive-table* g (*effect+exceptions-free-primitive-table*
g !*multiply-valued-primitive-table* g *bailout-primitive-table* g *negatable-primitive-table*
g hashq-ref g post-order! g g toplevel-ref-src g toplevel-ref-name g and=> g make-primitive-ref g g module-ref-src g module-ref-mod g module-ref-name g module-ref-public? g resolve-module g module-public-interface g identity g *primitive-expand-table* g
pre-order! g
g application-src g application-proc !g application-args "g primitive-ref? #g primitive-ref-name $g make-syntax-transformer %$ &$ 'g define-primitive-expander (g macro )g $sc-dispatch *) +) ,g _ -g any .,- /g
syntax->datum 0/ 1/ 2g
datum->syntax 32 42 5g reverse 6g quote 7g
make-const 8g src 9g make-application :g self-evaluating? ;f what what g
match-lambda* ?, @g syntax-violation A@ B@ Cf -source expression failed to match any pattern Dg length ED FD Gg last HG I5 J5 Kg const? Lg const-exp Mg gensym Nf b Og make-lexical-ref Pg b Qg make-let RP Sg make-conditional Tg chained-comparison-expander UFGHIE V Wg most-negative-fixnum Xg most-positive-fixnum Yg maybe-simplify-to-eq Zf pre- [f thunk- \f post- ]g pre ^g thunk _g post `]^_ ag make-dynwind b]_ cg make-dynref dg make-dynset eg make-prompt fg make-lambda-case gg tree-il-src hg args ig handler ji kg
make-abortC 5 h` b ]4
&'25 45 > " G R h0 ] 445 5 $ " 4 5 6 g name
0 g t , g filenamef language/tree-il/primitives.scm
t
v
v # v v ! w % w ) w 0 u
0 g nameg add-interesting-primitive! C)R4i5 R4i)ii> " G RR?@ABEFGHIJKLVWXYZMNOPQRSTU[\]^_`bacdefghijklmnopqrstuv4ii5RRR RR4i5 R4i5 R4i5
R4i5 R4i5 R4i h l ] 6 d g x
g filenamef language/tree-il/primitives.scm
Ci> " G 4i h l ] 6 d g x
g filenamef language/tree-il/primitives.scm
Ci> " G 4i
h l ] 6 d g x
g filenamef language/tree-il/primitives.scm
Ci> " G 4i h l ] 6 d g x
g filenamef language/tree-il/primitives.scm
Ci> " G 4i h( ]4 > " G 6 g x
& g filenamef language/tree-il/primitives.scm
4
< ! 4 $ < & & Ci> " G C h ] 6 g prim
g filenamef language/tree-il/primitives.scm
g nameg constructor-primitive? C-RC h ] 6 g prim
g filenamef language/tree-il/primitives.scm
g nameg accessor-primitive? C.R
h ] 6 g prim
g filenamef language/tree-il/primitives.scm
g nameg effect-free-primitive? C+R
h ] 6 g prim
g filenamef language/tree-il/primitives.scm
g nameg effect+exception-free-primitive? C,R
h ]4 5C g prim
g filenamef language/tree-il/primitives.scm
g nameg singly-valued-primitive? C/R
h ] 6 g prim
g filenamef language/tree-il/primitives.scm
g nameg bailout-primitive? C0R
h ] 6 g prim
g filenamef language/tree-il/primitives.scm
g nameg negate-primitive C1R
h o ]L 6 g g name
g filenamef language/tree-il/primitives.scm
C
h o ]L 6 g g name
g filenamef language/tree-il/primitives.scm
C h ]44 L55L O 6 g m
g filenamef language/tree-il/primitives.scm
# C h K ]) & -4 54 5 44L 55O 6 & K4
54 54 54
5 445$ " 5O 6C C g x
g rtd g src < g name < g src ` g mod ` g name ` g public? ` g filenamef language/tree-il/primitives.scm
$ ) 3 < D k n z
C h ]O 6 g x
g mod g filenamef language/tree-il/primitives.scm
g nameg resolve-primitives! C(R4i5 R !"
# h`
]) & H4 54 54 5 45$ 4455 $ @CCC g x
Y g rtd Y g src $ W g proc $ W g args $ W g expand C U g filenamef language/tree-il/primitives.scm
+
5 6 ; & C C
K S Y C h ] 6 g x
g filenamef language/tree-il/primitives.scm
g nameg expand-primitives! C*R4 &'(+.14z5y6789:;
h ]" ( 45C$ 445 5C$ F& " 4L 5 "$ "l4
5$ "H 6 "4 g args
g in g out g filenamef language/tree-il/primitives.scm
!
$ $ / 6 7
; > A D * H J O . Q X ! c ! L g ! k " / p " < s " / v ! y
$ $
& & & &
'
' '
( ( ( 2 ( ( (
* * *
6 g nameg inline-args C<986c7=
h0 ]A $ & $ $ q $ C ( 4L 54L 5 C 4L5 C 4L5 C 4L5 C 4L5 C 4L5 C $ C4 5$
C $ 6C g exp
* g vx g vy g vx ( g vy ( g vx 9 g vy 9 g vx J g vy J g filenamef language/tree-il/primitives.scm
+ - , . V 0 Y 1 ` 2 i 0 l 4 v 4 : y 4 } 5 5 * 5 4 4 : 4 5 5 * 5 4 4 : 4 5 5 * 5 4 4 : 4 5 5 * 5 4 4 : 4 5 5 * 5 4 6 , 9 , : , $ > ( > 0 * g nameg
consequent C 6>5?8
h - 1 3 O O Q Q " 5( 45" , 45 " " C g sym
| g clauses | g inline-args | g
consequent | g in 7 l g out 7 l g filenamef language/tree-il/primitives.scm
( ? 7 B = C > D B D ' E D ! G D N E Q F " T F , U F " V G % [ G 1 ^ G % a F " d F l E l B o B - w B x ? |
C h t ] 4 5 L 4?6l g args
g v g filenamef language/tree-il/primitives.scm
CBC h( r ] 4 5 $ O @ 6 j g y
' g tmp ' g filenamef language/tree-il/primitives.scm
' C5'R4i iJ9E7 hP Z - 1 3 $ = $ *( ! 454
5 6CCC R g expr
O g w M g x M g w + I O
C> " G 4i iK9G7 hP Z - 1 3 $ = $ *( ! 454
5 6CCC R g expr
O g w M g x M g w + I O
C> " G 4i iL9F7 hP Z - 1 3 $ = $ *( ! 454
5 6CCC R g expr
O g w M g x M g w + I O
C> " G 4i iMFHJ9MKLRQ7?
hp K - 1 3 " " $ $ $ 45 $ 45" $ " $ C" x
$ L4 5 $ : ( 1
45445 5
6CC $
"C
"yCCC $ $ $ ( " 45 6" T45$ E 45& 4 5 6 45& 4
5 6""45$ E 45& 4 5 6 45& 4
5 6"\"X" """ $ L (
6 $ $( 4 5 6""" C g expr
k g w g x g w / g x / g w @ g x @ g tail-len K g len ` g ls | g n
| g p-ls | g z g w
g w g w g x g w ' g x ' g w < g w % . g w 4 g g x 4 g g w I _ g filenamef language/tree-il/primitives.scm ] \ i \ * s \ ^ . ^ X X " X Z & Z k
C> " G 4i iNFHJ9N7? h` a - 1 3 " $ $ $ 45 $ 45" $ " $ C" x
$ L4 5 $ : ( 1
45445 5
6CC $
"C
"yCCC $ L ( 6 $ $( 45 6""" Y g expr
\ g w g x g w + g x + g w < g x < g tail-len G g len \ g ls x g n
x g p-ls x g z g w
g w g w g w % X g x % X g w : P \
C> " G 4i iOFHJ9OKLQ7 h - 1 3 " " $ $ $ 45 $ 45" $ " $ C" x
$ L4 5 $ : ( 1
45445 5
6CC $
"C
"yCCC $ $ r $ ]( R " 45 645$ $ 45& 4 5 6""""~"z"v $ A $ ,( ! 454
5 6"."*"& g expr
g w g x g w / g x / g w @ g x @ g tail-len K g len ` g ls | g n
| g p-ls | g z g w
g w g w g x g w ' g x ' g w < g w g x g w g filenamef language/tree-il/primitives.scm Y j e j " o j
C> " G 4i iPFHJ9P7 hX Q - 1 3 " $ $ $ 45 $ 45" $ " $ C" x
$ L4 5 $ : ( 1
45445 5
6CC $
"C
"yCCC $ A $ ,( ! 454 5 6""" I g expr
Q g w g x g w + g x + g w < g x < g tail-len G g len \ g ls x g n
x g p-ls x g z g w
g w g w M g x M g w ' E Q
C> " G 4i iXFHJ9X7 h - 1 3 " W" $ $ $ 45 $ 45" $ " $ C" x
$ L4 5 $ : ( 1
45445 5
6CC $
"C
"yCCC $ P $ ; $ &( 45 6"""" $ T (
6 $ ,( ! 454
5 6"R"N"J g expr
g w g x g w / g x / g w @ g x @ g tail-len K g len ` g ls | g n
| g p-ls | g z g w
g w g w ` g x ` g w ' \ g x ' \ g w < T g w u ~ g w g x g w
C> " G 4i iWFHJ9W7 h - 1 3 " W" $ $ $ 45 $ 45" $ " $ C" x
$ L4 5 $ : ( 1
45445 5
6CC $
"C
"yCCC $ P $ ; $ &( 45 6"""" $ V (
6 $ -( " 454 5 6"P"L"H g expr
g w g x g w / g x / g w @ g x @ g tail-len K g len ` g ls | g n
| g p-ls | g z g w
g w g w ` g x ` g w ' \ g x ' \ g w < T g w u g w g x g w
C> " G 4i i9| h` Z - 1 3 $ H $ 5( , 45445 5 6CCC R g expr
Z g w X g x X g w + T Z
C> " G 4i i9|} h` Z - 1 3 $ H $ 5( , 45445 5 6CCC R g expr
Z g w X g x X g w + T Z
C> " G 4i i9}| h` Z - 1 3 $ H $ 5( , 45445 5 6CCC R g expr
Z g w X g x X g w + T Z
C> " G 4i i9} h` Z - 1 3 $ H $ 5( , 45445 5 6CCC R g expr
Z g w X g x X g w + T Z
C> " G 4i i9| hp Z - 1 3 $ [ $ H( ? 45445445 5 5 6CCC R g expr
m g w k g x k g w + g m
C> " G 4i i9|} hp Z - 1 3 $ [ $ H( ? 45445445 5 5 6CCC R g expr
m g w k g x k g w + g m
C> " G 4i i9|} hp Z - 1 3 $ [ $ H( ? 45445445 5 5 6CCC R g expr
m g w k g x k g w + g m
C> " G 4i i9|} hp Z - 1 3 $ [ $ H( ? 45445445 5 5 6CCC R g expr
m g w k g x k g w + g m
C> " G 4i i9}| hp Z - 1 3 $ [ $ H( ? 45445445 5 5 6CCC R g expr
m g w k g x k g w + g m
C> " G 4i i9}| hp Z - 1 3 $ [ $ H( ? 45445445 5 5 6CCC R g expr
m g w k g x k g w + g m
C> " G 4i i9}| hp Z - 1 3 $ [ $ H( ? 45445445 5 5 6CCC R g expr
m g w k g x k g w + g m
C> " G 4i i9} hp Z - 1 3 $ [ $ H( ? 45445445 5 5 6CCC R g expr
m g w k g x k g w + g m
C> " G 4i i9| h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i i9|} h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i i9|} h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i i9|} h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i i9|} h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i i9|} h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i i9|} h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i i9|} h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i i9}| h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i i9}| h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i i9}| h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i i9}| h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i i9}| h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i i9}| h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i i9}| h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i i9} h \ - 1 3 $ n $ [( R 45445445445 5 5 5 6CCCT g expr
g w ~ g x ~ g w + z
C> " G 4i iy9xy? h - 1 3 " " b $ Y $ F $ 3 454455 6CCC $ P $ ; $ &( 45 6"O"K"G"C $ 9 $ $( 45 6""" g expr
g w q g x q g w / o g x / o g w @ m g x @ m g w g x g w g x g w g w g x g w
C> " G 4i iw9x h - 1 3 $ r $ _ $ L $ 9( 0 45445 5 6CCCCC g expr
g w g x g w ' g x ' g w 8 ~ g x 8 ~ g w M z
C> " G 4i i697 h` - 1 3 $ G $ 4 $ ! 456CCC g expr
Y g w W g x W g w ' U g x ' U g w 8 S g x 8 S Y
C> " G 4i i899 h` x - 1 3 $ J $ 7 $ $( 45 6CCCC p g expr
\ g w Z g x Z g w ' X g x ' X g w < T \
C> " G 4i i:9; hH Z - 1 3 $ 5 $ "( 45 6CCC R g expr
G g w E g x E g w + A G
C> " G 4i i<9; hH Z - 1 3 $ 5 $ "( 45 6CCC R g expr
G g w E g x E g w + A G
C> " G 4i iKLck9 h ! - 1 3 $ $ t $ a 45$ J45 45$ 45$
" " $ 456CCCCC g expr
g w g x g w ' g x ' g w 8 g x 8 g n N w g filenamef language/tree-il/primitives.scm = H N Q [
\ f
i ) {
C> " G 4i i9 h` x - 1 3 $ J $ 7 $ $( 45 6CCCC p g expr
\ g w Z g x Z g w ' X g x ' X g w < T \
C> " G 4i i9 hx - 1 3 $ _ $ L $ 9 $ &( 45 6CCCCC g expr
q g w o g x o g w ' m g x ' m g w 8 k g x 8 k g w M g q
C> " G 4i i9 h` x - 1 3 $ J $ 7 $ $( 45 6CCCC p g expr
\ g w Z g x Z g w ' X g x ' X g w < T \
C> " G 4i i9 hx - 1 3 $ _ $ L $ 9 $ &( 45 6CCCCC g expr
q g w o g x o g w ' m g x ' m g w 8 k g x 8 k g w M g q
C> " G 4i i9N7 hx x - 1 3 $ f $ S $ @( 7 454454 5 5 6CCCCp g expr
x g w v g x v g w ' t g x ' t g w < p x
C> " G 4i i9N7 h - 1 3 $ { $ h $ U $ B( 9 454454 5 5 6CCCCC g expr
g w g x g w ' g x ' g w 8 g x 8 g w M
C> " G 4i i9N7 hx x - 1 3 $ f $ S $ @( 7 454454 5 5 6CCCCp g expr
x g w v g x v g w ' t g x ' t g w < p x
C> " G 4i i9N7 h - 1 3 $ { $ h $ U $ B( 9 454454 5 5 6CCCCC g expr
g w g x g w ' g x ' g w 8 g x 8 g w M
C> " G 4i i9N7 hx x - 1 3 $ f $ S $ @( 7 454454 5 5 6CCCCp g expr
x g w v g x v g w ' t g x ' t g w < p x
C> " G 4i i9N7 h - 1 3 $ { $ h $ U $ B( 9 454454 5 5 6CCCCC g expr
g w g x g w ' g x ' g w 8 g x 8 g w M
C> " G 4i i9N7 hx x - 1 3 $ f $ S $ @( 7 454454 5 5 6CCCCp g expr
x g w v g x v g w ' t g x ' t g w < p x
C> " G 4i i9N7 h - 1 3 $ { $ h $ U $ B( 9 454454 5 5 6CCCCC g expr
g w g x g w ' g x ' g w 8 g x 8 g w M
C> " G 4i i9N7 hx x - 1 3 $ f $ S $ @( 7 454454 5 5 6CCCCp g expr
x g w v g x v g w ' t g x ' t g w < p x
C> " G 4i i9N7 h - 1 3 $ { $ h $ U $ B( 9 454454 5 5 6CCCCC g expr
g w g x g w ' g x ' g w 8 g x 8 g w M
C> " G 4i i9N7 hx x - 1 3 $ f $ S $ @( 7 454454 5 5 6CCCCp g expr
x g w v g x v g w ' t g x ' t g w < p x
C> " G 4i i9N7 h - 1 3 $ { $ h $ U $ B( 9 454454 5 5 6CCCCC g expr
g w g x g w ' g x ' g w 8 g x 8 g w M
C> " G 4i i9N7 hx x - 1 3 $ f $ S $ @( 7 454454 5 5 6CCCCp g expr
x g w v g x v g w ' t g x ' t g w < p x
C> " G 4i i9N7 h - 1 3 $ { $ h $ U $ B( 9 454454 5 5 6CCCCC g expr
g w g x g w ' g x ' g w 8 g x 8 g w M
C> " G 4i i9N7 hx x - 1 3 $ f $ S $ @( 7 454454 5 5 6CCCCp g expr
x g w v g x v g w ' t g x ' t g w < p x
C> " G 4i i9N7 h - 1 3 $ { $ h $ U $ B( 9 454454 5 5 6CCCCC g expr
g w g x g w ' g x ' g w 8 g x 8 g w M
C> " G 4i i9N7 hx x - 1 3 $ f $ S $ @( 7 454454 5 5 6CCCCp g expr
x g w v g x v g w ' t g x ' t g w < p x
C> " G 4i i9N7 h - 1 3 $ { $ h $ U $ B( 9 454454 5 5 6CCCCC g expr
g w g x g w ' g x ' g w 8 g x 8 g w M
C> " G 4i i9N7 hx x - 1 3 $ f $ S $ @( 7 454454 5 5 6CCCCp g expr
x g w v g x v g w ' t g x ' t g w < p x
C> " G 4i i9N7 h - 1 3 $ { $ h $ U $ B( 9 454454 5 5 6CCCCC g expr
g w g x g w ' g x ' g w 8 g x 8 g w M
C> " G 7MNOPQRS9 h 0 )
3 6) 3 C) 3 C- 1 3 4 L 5 45 4 5 4 4
54
54 556 ( g src
g src
g a g src
$ & g a $ & g b $ & g src
/ g a / g b / g rest / g prim 8 g b-sym A g b* N
g filenamef language/tree-il/primitives.scm
0 8 ; ? A A D J & N N V [ ` a f # s > u # v # > # # $ & /
C h ] O C g prim-name
g filenamef language/tree-il/primitives.scm
g nameg chained-comparison-expander CTR4i T h } ] 4 56 u g prim-name
g filenamef language/tree-il/primitives.scm
CU> " G KLCVjkWX9@ h e ]4 5$ |4 5 45 $ " ?$ " 345$ '45$ $ " " " $ L 4
5 6CC ] g a
g b g v g t n g filenamef language/tree-il/primitives.scm
/
3 4
9 C D N S r w ) | @ ~ ) % g nameg maybe-simplify C h@ ) ,3 O Q 45 $ C6- 1 3 C g src
2 g a 2 g b 2 g maybe-simplify 2 g t 2 g else
; = g filenamef language/tree-il/primitives.scm
2 ; 2 ; =
g nameg maybe-simplify-to-eq CYR4i iAYi> " G 4i iBYi> " G 4i i=MZ[\Q`aO]9^_
hx ) d3 454545 4 4 54
4 554 556- 1 3 C g src
j g pre j g thunk j g post j g PRE j g THUNK j g POST j g else
s u g filenamef language/tree-il/primitives.scm
" $ # * " 3 # < $ = % B ' G ' ( K ' L ( P ( ( U ( = Y ( ( Z ( K \ ( ] ) b ) ( f ) h % j s j s u
C> " G 4i i>MZ\QbaO]_
hH h ]4545 4 454 556 ` g src
G g pre G g expr G g post G g PRE G g POST G g filenamef language/tree-il/primitives.scm
. 0 0 " 0
1 1 # 1 0 4 ! 5 ( 6 ) 7 . 9 3 9 ( 7 9 : ; ? ; ( C ; E 7 G 2 G C> " G 4i ic h ) 3 6- 1 3 C g src
g fluid g else
g filenamef language/tree-il/primitives.scm
? @ ?
C> " G 4i id h )
3 6- 1 3 C g src
g fluid g exp g else
g filenamef language/tree-il/primitives.scm
E F E
C> " G 4i iMefgh96O
h` ) I3 45 445 4454 5 55 6- 1 3 C y g src
O g tag O g exp O g handler O g args-sym O g else
X Z g filenamef language/tree-il/primitives.scm
K
M M R S # S ) & S 0 ( S 9 - S = . T 2 T ( 7 T ? 9 T ( < V + A V @ E V + H U % J T M R O N X K O X Z
C> " G 4i iMQje9fgh6Oi
h
) r3 45 45 4 45445 44
54 54 5 55 56- 1 3 C g src
x g tag x g thunk x g handler x g handler-sym x g args-sym x g else
g filenamef language/tree-il/primitives.scm
\
^ " _ ^ a " a ! ' a 4 ( b / c 5 c 6 7 c 8 f ; g B g * E g 1 G g : L g > M h Q i V i / X i Y j ^ j 0 b j c k h k 0 l k o j q h t f v b x ` \ " x
C> " G 4i ik h ) 3 6- 1 3 C g src
g tag g tail-args g else
g filenamef language/tree-il/primitives.scm
q s # s q
C> " G i ik7 h( * 1 3 456- 1 3 C g src
g tag g args g else
& ( g filenamef language/tree-il/primitives.scm
w y ( y 7 y ( y & w
& (
C6 Z g m
, g filenamef language/tree-il/primitives.scm
. & 1 %
\ t
] z % f z
g |
~
&
1
*
"
$
6
4
f
/
g
h ! r
J
M
P
U
% c
( h
, o
/ s
3k y
7#
8
9
9
:
;
<
=
>
?
@
A
B
C
D
E
G
H
I"
J2
KB
LR
Mb
Nr
O
P
Q
R
S
V
Wr
X
Y
Zh
[8
]7
^>
_|
`
a
b
dU
e~
f
h
iu
j
l
m.
n
o
q%
rN
s
t
vE
wn
x
y
J
K
V % `
i
t % ~
6
? ,
J - - ,
6 =
A > " =
+ C
6 D # C
, I
7 J F I
O Z
Z [ * Z
3 o
> p 8 o
K v ] u
]
C6 PK ! h inline.gonu [ GOOF----LE-8-2.0 ] 4 hx ] g guile g define-module* g language g tree-il g inline
g filenameS f language/tree-il/inline.scm g exportsS
g inline!
g set-current-module g issue-deprecation-warning f ?`inline!' is deprecated. Use (language tree-il peval) instead.C 5 h g ]4
5 4 > " G h ]4> " G C g x
g filenamef language/tree-il/inline.scm
g nameg inline! C
RC _ g m
( g filenamef language/tree-il/inline.scm
C6 PK ! cse.gonu [ GOOF----LE-8-2.0߮ ] 4 h ] g guile g define-module* g language g tree-il g cse
g filenameS f language/tree-il/cse.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 exportsS + ,g set-current-module -, ., /g make-syntax-transformer 0/ 1/ 2g *logging* 3g macro 4g identifier? 54 64 7g
syntax-object 8g top 98 :g ribcage ;g id <; =g m-9d6145bdb05-25f0 >=8 ?> @f l-9d6145bdb05-25f7 A@ B:<?A C: Dg x ED Ff l-9d6145bdb05-25f2 GF H:E?G I9BCH Jg hygiene KJ L7IK Mg $sc-dispatch NM OM Pg _ Qg each-any RPQ Sf l-9d6145bdb05-25fa TS U:E?T V9UCH W7VK Xg syntax-violation YX ZX [f -source expression failed to match any pattern \g log ]g any ^g free-id _g quote `g m-9d6145bdb05-25fd a`8 ba cf l-9d6145bdb05-25ff dc e:Ebd f9Ce g7_fK h^g ih] jiQ k]j lg if mg dummy ng event og arg pmno qa99 rf l-9d6145bdb05-2602 sf l-9d6145bdb05-2603 tf l-9d6145bdb05-2604 urst v:pqu w9vCe x7lwK yg and z7ywK {72wK |g or }7|wK ~g eq? 7~wK 7wK { g memq 7wK 7_wK { g log* 7wK g
module-ref g resolve-interface g pretty-print g newline g
vlist-null g tree-il-fold g
g vhash-consq g build-assigned-var-table g negate-primitive g not g symbol->string g
string-ref g
string-length g boolean-valued-primitive? g test g g boolean? g
g g boolean-valued-expression? g value g g values g
g g g g singly-valued-primitive? g singly-valued-expression? g make-application g make-primitive-ref g
make-const g
g make-conditional g
vector-length g tree-il=? g vlist-length g tree-il-hash g vhash-assoc g vlist-ref g error f no matching pattern g lambda g effect-free? g exclude-effects g tree-il-src g lexical-ref? g
vhash-cons g make-lexical-ref g
vhash-assq g make-effects-analyzer g vhash-fold-right g reverse g constant? g effect g lambda-case? g void? g make-void g
g
make-sequence g sequence? g append g
sequence-exps g g make-prompt g g
make-abort g
g make-lambda-case g hashq g most-positive-fixnum g make-lambda g equal? g g make-toplevel-set g g make-toplevel-define g g make-module-set g g make-dynset g g make-dynref g g make-dynlet g g make-dynwind g g make-let-values g g make-fix g g make-letrec g g make-let g make-lexical-setC 5 hp ]4
)*+5 4. > " G 41236 h ] ] 6U g id
g filenamef language/tree-il/cse.scm n CL h * ]C " g id
CORW h ) ] C! g x
CZ[ h@ ] 4?$ @4 5 $ @ 6 g x
: g tmp : g tmp # : g filenamef language/tree-il/cse.scm
n : g
macro-typeg identifier-syntax C52R41\3Okxz{}
h0 Q ] CI g dummy
0 g event 0 g arg 0 0 CZ[ h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef language/tree-il/cse.scm
r " 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/cse.scm
x
y
y y + y z y y { { ) { 2 | C } C
g nameg log* CR h o ]C g g exp
g res g filenamef language/tree-il/cse.scm
C h8 ]
$ , &
6CC g exp
8 g res 8 g w ! 2 g filenamef language/tree-il/cse.scm
2 8 C h o ]C g g exp
g res g filenamef language/tree-il/cse.scm
C h( - . , 3 # 6 g exp
$ g table $ g filenamef language/tree-il/cse.scm
$ $ g nameg build-assigned-var-table CR h@ ] 4 5 $ C & C4 5 4455?C
g primitive
: g t : g chars % : g filenamef language/tree-il/cse.scm
% ( - $ 4 6 9 : g nameg boolean-valued-primitive? CR h ]" @" C $ + &
45$ CC"" $ L & ?
$ )&
45$ C"y"u"q"m"i g x
g ctx g w ) > g w _ g w z g filenamef language/tree-il/cse.scm
< = F g nameg boolean-valued-expression? CR h V ] L CN g filenamef language/tree-il/cse.scm
C hp I ]2" O Q $ &
" & C6 $ m& `
& : " & C6 $ ( C"" & C6 "}"y & C6 6 $ & C & C & C & C & C
& C & ?
$ )&
4 5$ C""""" A g x
i g ctx i g failure g w , g failure 0 g w ^ g w m g failure q g failure g w + a g w F Y g filenamef language/tree-il/cse.scm
i g nameg singly-valued-expression? CR h q ] 45L 6 i g filenamef language/tree-il/cse.scm 3
9
C h ]2" O Q $ y & l
$ Q& D
45$ 4455645 66 6 6 6 $ &
6
&
6 & 4
4L 54L 56 & p
$ Z& M
& 6 $ $( 4
5$ C""""""~"z"vx g exp
g ctx g failure g w ' g w - g failure 1 g w L g w ^ u g w g w g w g w g w g w g w g w ! g w < g w K | g w ^ t g filenamef language/tree-il/cse.scm
e i 0 q u y ~ 3 9 " : a m g nameg negate C h G ] $ " $ w4 $ " 5 $ V $ "
$ " $ " 4L 5$ L$ LCCCCC ? g v1
g v2 g len * g w F g w l g filenamef language/tree-il/cse.scm
8 < K O ] a o { g nameg entry-matches? C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C
h ]dO Q 454 5 4O 5$ n" c$ X45 " $
$ 4 5 $
$ &$ " $
4 5" " $ C
UU
$ " & UU
$ "C4
56 4
56 4
56 $ < & ' UU UU
$ "C""C
"C g exp
g effects g ctx g db g entry-matches? g len g h g n = g v O g w b J g x
b J g len t = g w 0 g w
0 g w 0 g t 0 g effects g effects g w a g filenamef language/tree-il/cse.scm
% 9 = B F
G , " % ( " . 1 { g nameg find-dominating-expression C h@ q ];44 55$ " C4L 5$ 4 564L4L 55$ 4 56C $ & $
45$ C6 &
$ { & n
& W $ E( : 4L 5 $ &
6CC"""""""C i g exp
; g effects ; g db ; g w v g w | g w 1 g w 1 g w ) g w % g w g v g w g filenamef language/tree-il/cse.scm
( 2 ,
0 3 <
=
@ & F 2 H & L A P
T W `
b ! ! # ; g nameg find-dominating-test C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ]-( C 4M5 $ " 45 $ " 345 45 4 O 5 "t g env
g names g syms g exps g db g name g sym g exp g t ! 8 g v R u g h [ r g filenamef language/tree-il/cse.scm
' ( * * & * 7 * + ! + / , < + I # # R # R # U $ [ # ^ % x / { / # ~ / . +
g nameg augment-env C h # ] $ " $ t4 $ " 5 $ S $ "
$ " $ " $ " L 6CC g v1
g v2 g len * g w F g filenamef language/tree-il/cse.scm
2 3 3 3 3 8 3 < 3 K 3 O 3 ] 3 a 3 p 3 t 3 5 g nameg entry-matches? C h@ ]+
$ C4 5 " $ $ 45 $ }
UU L
$ " &L UU
$ ">C456 456 456 $ E & 0L UU UU
$ "C"" g db
= g base = g n = g t = g v = g w * g len > g w R g effects f g effects g w 9 g filenamef language/tree-il/cse.scm
8 9
9 :
f @ @
A A ' A :
= ! =
& > ) > ' 3 > 9 :
= g nameg unroll Ch w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C hX ]O O Q Q 4 5 44 55$ 4 O 5$ 4545 " $ 4 5 $
$ 4
5 $ v
4
5$ A"
"{
$ 4 5$ 4
56""C4 56 4 56 4 56 C
"CC g exp
X g effects X g env X g db X g entry-matches? X g unroll X g h & X g env-len e T g db-len e T g n m J g m
m J g v H g w ; g x
; g len . g w ! g w ! g w ! g w ! g niter ! g filenamef language/tree-il/cse.scm
1 C
& C ) D , D = D A D B E W D X F _ G e F m H
r I v I w J L ' L $ L M M P & P - P " N N ' N N 0 N " O 4 O " " J J H
" X g nameg find-dominating-lexical C h g ] L 6 _ g sym
g filenamef language/tree-il/cse.scm
C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C hP ] $ 64L LLL> G 45 "45D g in
J g out J g db* J g x ? g db** ? g filenamef language/tree-il/cse.scm
p q q
r ) r 0 r ) r % t * t + f ? t @ u J u J g nameg lp C h( ] O L Q 6 g exps
$ g db $ g env $ g ctx $ g lp $ g filenamef language/tree-il/cse.scm
o p p $ p $ g nameg parallel-visit C h 9 ]94L 5 " $ 4L 5 $ h $ K45 $ ,
& C "456 456 456 C
"g1 g sym
g env-len g n g v ! g w - g len A g w P x g w \ x g filenamef language/tree-il/cse.scm
x S S T U
U V
l X r Z x Z y V
T
C h( ] 4M LO 5
C g exp
& g x & g filenamef language/tree-il/cse.scm
z x { & g nameg bailout? C h 9 ]94L 5 " $ 4L 5 $ h $ K45 $ ,
& C "456 456 456 C
"g1 g sym
g env-len g n g v ! g w - g len A g w P x g w \ x g filenamef language/tree-il/cse.scm
x S S T U
U V
l X r Z x Z y V
T
C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C hp ]*4M LO 5 " 4 L5$ 4L L5" $ D4 L5$ 4L LL5" $ D" 0 L 4 5 4O 5 D45$ L& " L $ D""L
& 4 5$ " `4 4
55 $ " A45 $ " *4 4
55$ 4L L5" $ 4 5$ D45D"" g exp
p g db* p g effects p g t 3 g t ` g v g h g t I g t F g filenamef language/tree-il/cse.scm
} x ~ #
$ 3 A B N
O ` n }
~
#
%
* ,
. 2 3 M
N X
^ _ h 3 p g nameg return C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h O ]# $ ( ] 4L4L5LL> G ( L 456L 4L455456 4L4L5L> G 4 5$ 4
4 55 "C4 5$ "(4
5 " 4 56 G g in
g out g db* g w m g last / m g db** / m g w s g x s g head g db**
g filenamef language/tree-il/cse.scm
( ) + ' f . + ' 2 + < , A f M - P . U . - \ . 6 ^ . - ` . a f m . p ) x 1 ' } f 1 G 1 ' 1 3 2 4 4 4 4 5 2 6 8 f 8 ) $ g nameg lp C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h0 ]4 L O 5$ O 6C g k
, g h , g out , g filenamef language/tree-il/cse.scm
^ _ _ ) ` , C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h0 ]4 L O 5$ O 6C g k
, g h , g out , g filenamef language/tree-il/cse.scm
^ _ _ ) ` , C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C h w ]L Co g x
g size g filenamef language/tree-il/cse.scm
C h ] O 6 ~ g k
g h g tail g filenamef language/tree-il/cse.scm
f g C c h r ]O O O LQ LQ LLLL Q " " [" '" " %"
{" " e" "
"
"
'"
" " u" " " " b" " a" $ q & 4
O L Q 6 &
4L> G 4L 4
5 > G
4L
4 5> G 4
5 6 &
4L> G 4 > G
4L
> G 4
54 5 4 5 64 56 4 56 $ &
4 > G 4L> G $ 4L>
" " G 4
5 $ " 6"" $ y & l
$ 24L 45
4
O 5
>
" " G
4
56" " $ j & ]
4L> G
4 > G
4
54
56"" $ 0 !& #
4L"> G 4L4L "5"> G
4L 4 # 5> G 4L
4 $5> G 4% 5 " " c" " " " " " 64 & 54 '5 4 (O 5 6$ v!& i
45$ 4 )564 * 54 +5 4 ,O 5 6"M"I$ D!& 7
45$ 4 - 56"""$ q!& d
$ H.& ;
& % "& 4 /5" 6"""~"z"v$ q!& d
$ B.& 5
& "& 4 0 5" 6"""""$ !&
$ s.& f
& P $ >.& 1
& 4L 5 ""g"c"_"["W"S"O"K$ !&
415$ r $ `.& S
& = $ +.&
& 6"""""""""$ !&
$ t.& g
$ J.& =
$ %42 435 5 "m"
" """""$ c!& V
$ @.& 3
$ 4 4 564 556"""""g"c $ 6& 6"C"? $ I 7& <
4L > G
48
5 6"" $ I 9& <
4L > G
4:
5 6"" $ [ ;& N
4L > G
4<
5
6")"% $ =& 6"" $ >& 6"" $ j ?& ]
4L> G
4L > G
4@
54 A
56"h"d $ @ B& 3
4L> G
4C 5
6"" $ D&
4> G 4 > G
4L
4 E 5 4 F5 > G 4G
54 H 5 4 I5 6"V"R $ J&
4L> G 4L 4 K 5> G
4L
> G 4L
54 M5 4 N 5 6"" $ s O& f
4L > G
4L 4 P 5> G
4Q
54 R
56"!" $ S& x
4
> G
4L 4 T
5> G 4U 54 V
56"" $ W&
4 > G
4L 4 X54L
5> G 4Y
54 Z56"" $ [&
4
> G
4L 4 \
54L 5> G 4] 54 ^
56"B"> $ R _& E
4L
> G 4` 5 6"" $ % a&
6"" $ b& 6"" $ .& 6"e"a j g exp
g db g env g ctx g parallel-visit ! g bailout? ! g return ! g w g w g lp g w j g w j g w j g w
j g tag j g db* j g body
/ j g _ / j g handler P j g _ P j g w w g w } g w g w
g tag g db* g args
g db** g tail g db*** g db2 g w / g w 5 g w < g w
C g w J g w Q g w
X g w _ g w f g inits y g _ y g body g db* g alt g _ g w o g w
o g w o g h
* A g body
W o g _ W o g w g w g w g proc
g db* g args g db**
g w g w g w
g w
g test ' g db+ ' g converse
F g db- F g
consequent g g db++ g g alternate g db-- g v g db+ g db- g w m g db+ Q k g db- Q k g w g w 8 g w 0 g w e g w g w [ g w S g w O g w G g w | g w g w g w g w g w ( g w C g w J g w e g w g w g w [ g w a g w h g exp
{ g db* { g w g w g w g exp
g db* g w
M g w
M g w
M g w
M g w
M g exp
1
M g db*
1
M g w
g w
g w
g fluid
g db*
g exp
g db**
g w M g w $ M g fluid 7 M g db*
7 M g w i g w o g w v g w
} g fluids g db* g vals
g db** g db2 g body g db*** g db2
g w ( g w . g w 5 g w
< g pre O g db* O g body
p g db** p g post g db*** g db2 g w
9 g w
9 g w
9 g producer
9 g db*
9 g consumer
9 g db**
9 g w
U
g w
[
g w
b
g w
i
g w
p
g vals
g db*
g body
g db**
g w
o g w
o g w
o g w
o g w o g w o g vals
o g db* o g body H o g db** H o g w g w g w g w
g w g vals g db*
g body g db** g w ( i g w . i g w 5 i g w
< i g exp O i g db* O i g filenamef language/tree-il/cse.scm
j B ( ( ( : : 2
: : ; f ) ; ? . ; 2 : 7 < " < f O < " S : Z = j = m @ @ 2 @ @ A " A > A " @ B # B 6 B # @ C f D f C i s = x | ! ! " # " $ " % & % # "
& *
* - 1 > E . J # V # Z a o s ! 4 ! " > " f ! + & * / 2 # 8 0 : # @ > E I N S f f j o t f f ] + f 7 < f Q V ] m u f
# f , 0 # f ) C G l / p q w 0 % f f # ? C k u 2 z ~ 2
!
+ 2
0
4
;
M
Q
m
q
"
6
"
!
3
!
f ' " 1 6 6 " : A M Q # A # " > " # f / f # f f ? I 5 N R W " \ f o " s x # : # f f % < % &
f
&
"
- f
9
=
s !
} =
!
"
f
"
f
! = ! " " ' f 2 ) G " K R c f o s ! = ! " f ) " f ? I 2 N R Y i m ) g nameg visit C h ]AHHO O O Q Q Q 4 5 O K4J5K O Q
6 g exp
g assigned-lexical? g %compute-effects g negate + g find-dominating-expression + g find-dominating-test + g augment-env + g find-dominating-lexical + g table G S g visit l
g filenamef language/tree-il/cse.scm
A G V l j m j g nameg cseg
documentationf 'Eliminate common subexpressions in EXP. CRC g m
, g filenamef language/tree-il/cse.scm
= x
p
7
m
o
C6 PK ! z\ؼ ؼ peval.gonu [ PK ! G+_M _M
fix-letrec.gonu [ PK ! 1
optimize.gonu [ PK ! AG
analyze.gonu [ PK ! +L , canonicalize.gonu [ PK ! Wm ? compile-glil.gonu [ PK ! ~c%
~6 effects.gonu [ PK ! Ku~ spec.gonu [ PK ! %; ; debug.gonu [ PK ! /q$ $
l# primitives.gonu [ PK ! h inline.gonu [ PK ! cse.gonu [ PK } L