Uname: Linux web3.us.cloudlogin.co 5.10.226-xeon-hst #2 SMP Fri Sep 13 12:28:44 UTC 2024 x86_64
Software: Apache
PHP version: 8.1.31 [ PHP INFO ] PHP os: Linux
Server Ip: 162.210.96.117
Your Ip: 18.227.72.200
User: edustar (269686) | Group: tty (888)
Safe Mode: OFF
Disable Function:
NONE

name : peval.go
GOOF----LE-8-2.0��]4hM�]gguile�	�	gdefine-module*�	�	�	glanguage�	gtree-il�	gpeval�		�	
gfilenameS�	flanguage/tree-il/peval.scm�	gimportsS�	
�	
�	g
primitives�	�	�	geffects�	�	�	gice-9�	gvlist�	�	�	gmatch�	�	�	gsrfi�	gsrfi-1�	�	�	 gsrfi-9�	! �	"!�	#gsrfi-11�	$#�	%$�	&gsrfi-26�	'&�	('�	)gcontrol�	*)�	+*�	,"%(+
�	-gexportsS�	.�	/gset-current-module�	0/�	1/�	2gmake-syntax-transformer�	32�	42�	5g	*logging*�	6gmacro�	7gidentifier?�	87�	97�	:g
syntax-object�	;gtop�	<;�	=gribcage�	>gid�	?>�	@gm-9d6212d37ae-5919�	A@;�	BA�	Cfl-9d6212d37ae-5920�	DC�	E=?BD�	F=�	Ggx�	HG�	Ifl-9d6212d37ae-591b�	JI�	K=HBJ�	L<EFK�	Mghygiene�	NM�	O:LN�	Pg$sc-dispatch�	QP�	RP�	Sg_�	Tgeach-any�	UST��	Vfl-9d6212d37ae-5923�	WV�	X=HBW�	Y<XFK�	Z:YN�	[gsyntax-violation�	\[�	][�	^f-source expression failed to match any pattern�	_glog�	`gany�	agfree-id�	bgquote�	cgm-9d6212d37ae-5926�	dc;�	ed�	ffl-9d6212d37ae-5928�	gf�	h=Heg�	i<Fh�	j:biN�	kaj�	lk`�	mlT��	n`m��	ogif�	pgdummy�	qgevent�	rgarg�	spqr�	td<<�	ufl-9d6212d37ae-592b�	vfl-9d6212d37ae-592c�	wfl-9d6212d37ae-592d�	xuvw�	y=stx�	z<yFh�	{:ozN�	|gand�	}:|zN�	~:5zN�	gor��:zN��geq?��:�zN��:zN���~���gmemq��:�zN��:bzN��~��glog*��:�zN��g
module-ref��gresolve-interface��gpretty-print�����gnewline��glet/ec��gtree-il-fold��gabort-to-prompt��gtree-il-any��gvlist-length��g	vlist-ref��g	vlist-any��g
<application>��g<lambda>��g<primitive-ref>��gvalues��g<const>��g
<lexical-ref>��g<void>��g<module-ref>��g<toplevel-ref>��gsingly-valued-primitive?��gsingly-valued-expression?��gmake-application��gtree-il-src��gmake-primitive-ref��gtruncate-values��g<var>��g%make-var-procedure��gmake-var��S````��glambda��gm-9d6212d37ae-5be1���;��gt-9d6212d37ae-5bdd��gt-9d6212d37ae-5bde��gt-9d6212d37ae-5bdf��gt-9d6212d37ae-5be0��������������fl-9d6212d37ae-5be6��fl-9d6212d37ae-5be7��fl-9d6212d37ae-5be8��fl-9d6212d37ae-5be9��������=��������fl-9d6212d37ae-5be3�����=H����gshift��g	proc-name��gargs������<<��fl-1e8ba8b5a-60��fl-1e8ba8b5a-61������=�����gkey��gvalue��gname��gformals��gbody���������<<<<<��fl-1e8ba8b5a-53��fl-1e8ba8b5a-54��fl-1e8ba8b5a-55��fl-1e8ba8b5a-56��fl-1e8ba8b5a-57���������=�����gmake-procedure-name�����<��fl-1e8ba8b5a-43�����=�����<��fl-1e8ba8b5a-42�����=H������F��FFFF����
��M ��:�����<�F���:��N��ggensym��:��N��grefcount��:��N��gset?��:��N��������gmake-struct��gm-9d6212d37ae-5bdb���;��gt-1e8ba8b5a-133��gt-1e8ba8b5a-132��gt-1e8ba8b5a-131�������gm-1e8ba8b5a-134���;�������fl-1e8ba8b5a-138��fl-1e8ba8b5a-139��fl-1e8ba8b5a-13a�������=�����g	ctor-args�����fl-1e8ba8b5a-120�����=�����gctor��gfield����fl-1e8ba8b5a-11c�fl-1e8ba8b5a-11d��=��gform�g	type-name�gconstructor-spec�gfield-names�	�
<<<<�fl-1e8ba8b5a-111�fl-1e8ba8b5a-112�
fl-1e8ba8b5a-113�fl-1e8ba8b5a-114�
�=	
�g
record-layout�gfunctional-setters�gsetters�gcopier�ggetters�gconstructor�ggetter-identifiers�gfield-identifiers��<<<<<<<<�fl-1e8ba8b5a-e9�fl-1e8ba8b5a-e7�fl-1e8ba8b5a-e5�fl-1e8ba8b5a-e3�fl-1e8ba8b5a-e1� fl-1e8ba8b5a-df�!fl-1e8ba8b5a-dd�"fl-1e8ba8b5a-db�# !"�$=#�%fl-1e8ba8b5a-da�&%�'=H�&�(��F��F�FFF�F$'�):�(��*:��N�+:
(��,)*+�����-��,�.![�/![�0fWrong number of arguments�1!7�2!7�3<F��4:�3N�5grecord-type-vtable�6!5�7!5�8gpwpwpwpw�9gdefault-record-printer�:!9�;!9�<�����=gset-struct-vtable-name!�>!=�?!=�@gvtable-offset-user�A!@�B!@�Cg%var?-procedure�Dgvar?�ES`�Fgm-9d6212d37ae-5bf4�GF;�Hgt-9d6212d37ae-5bf3�IH�JG�Kfl-9d6212d37ae-5bf9�LK�M=IJL�Nfl-9d6212d37ae-5bf6�ON�P=HJO�QGMFP�FFFF����
�R:�Q��Sgobj�Tgt-1e8ba8b5a-224�Ugt-1e8ba8b5a-21e�Vgt-1e8ba8b5a-21f�Wgt-1e8ba8b5a-220�Xgt-1e8ba8b5a-223�Ygt-1e8ba8b5a-222�Zgt-1e8ba8b5a-221�[TUVWXYZ�\gm-1e8ba8b5a-225�]\;�^]]]]]]]�_fl-1e8ba8b5a-229�`fl-1e8ba8b5a-22a�afl-1e8ba8b5a-22b�bfl-1e8ba8b5a-22c�cfl-1e8ba8b5a-22d�dfl-1e8ba8b5a-22e�efl-1e8ba8b5a-22f�f_`abcde�g=[^f�hg	copier-id�ih�jfl-1e8ba8b5a-21c�kj�l=i�k�mg	ctor-name�nm�ofl-1e8ba8b5a-214�po�q=n�p�r�sfl-1e8ba8b5a-212�ts�u=r�t�vglayout�wv�xfl-1e8ba8b5a-210�yx�z=w�y�{g
immutable?�|{�}fl-1e8ba8b5a-20e�~}�=|�~��gfield-count�����fl-1e8ba8b5a-20c�����=�����g
getter-ids�����fl-1e8ba8b5a-209�����=�����g	field-ids�����fl-1e8ba8b5a-206�����=�����gpredicate-name��g
field-spec��{����<<<<<<��fl-1e8ba8b5a-1f9��fl-1e8ba8b5a-1fa��fl-1e8ba8b5a-1fb��fl-1e8ba8b5a-1fc��fl-1e8ba8b5a-1fd��fl-1e8ba8b5a-1fe����������=������MFP�FgFFFFlFqFuFzFF�F�F��$'��:S�������:|����gstruct?��:���������:�����g
struct-vtable��:���������<MFP��:��N������������R����<FP��:C�N��gthrow-bad-struct��!���!���gvar-name��g%var-name-procedure��g
%%on-error��gm-9d6212d37ae-5c00���;�����fl-9d6212d37ae-5c02�����=H�����F��FFFF������:�����a����`��g%%type��gt-1e8ba8b5a-14b��gt-1e8ba8b5a-14c��gt-1e8ba8b5a-14d��gt-1e8ba8b5a-14e��gt-1e8ba8b5a-14f��gt-1e8ba8b5a-150��gt-1e8ba8b5a-151�����������gm-1e8ba8b5a-152���;�����������fl-1e8ba8b5a-156��fl-1e8ba8b5a-157��fl-1e8ba8b5a-158��fl-1e8ba8b5a-159��fl-1e8ba8b5a-15a��fl-1e8ba8b5a-15b��fl-1e8ba8b5a-15c�����������=�����ggetter��gindex������fl-1e8ba8b5a-149��fl-1e8ba8b5a-14a������=������h��<<<��fl-1e8ba8b5a-144��fl-1e8ba8b5a-145��fl-1e8ba8b5a-146�������=������F��F�FFF�F�$'��:�����a���S��`��gck��gerr��gs����������fl-9d6212d37ae-5c05��fl-9d6212d37ae-5c06������=�������F��FFFF����
��:�����:b����<�F���:��N���������g%%index��:�����a���S��`��fl-9d6212d37ae-5c0a��fl-9d6212d37ae-5c0b������=�������F��FFFF����
��:�����:b�����F��:
�N����g%%copier�:���a�S�`�fl-9d6212d37ae-5c0f�fl-9d6212d37ae-5c10�	�
=��	��
F��FFFF����
�:���
:b��g%%<var>-set-fields�<
F��:N�
��gt-9d6212d37ae-5bff��fl-9d6212d37ae-5c14��=���F��FFFF����
�:����F��F�FFF�F�$'�:����:o��:���:��� �!<F��":�!N�# "�$g
struct-ref�%:$��&F��':
&N�(%'�):���*:b��+:�!N�,*+�-),�.#(-�/.�0<F��1:�0N�2g
var-gensym�3g%var-gensym-procedure�4gm-9d6212d37ae-5c1b�54;�65�7fl-9d6212d37ae-5c1d�87�9=H68�:5F9�FFFF�����;:�:��<a;�=<`�>�F9�F�FFF�F�$'�?:�>��@a?�AS=@`�B55�Cfl-9d6212d37ae-5c20�Dfl-9d6212d37ae-5c21�ECD�F=�BE�G5FF9�FFFF����
�H:�G��I:bG��J<FF9�K:�JN�LIK�ML�N:�>��OaN�PS=O`�Qfl-9d6212d37ae-5c25�Rfl-9d6212d37ae-5c26�SQR�T=�BS�U5TF9�FFFF����
�V:�U��W:bU��XTF9�Y:XN�ZWY�[Z�\:>��]a\�^S=]`�_fl-9d6212d37ae-5c2a�`fl-9d6212d37ae-5c2b�a_`�b=�Ba�c5bF9�FFFF����
�d:�c��e:bc��f<bF9�g:fN�heg�ih�jgt-9d6212d37ae-5c1a�kj�lfl-9d6212d37ae-5c2f�ml�n=k6m�o5nF9�FFFF����
�p:�o��q�nF9�F�FFF�F�$'�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��:3�N��gvar-refcount��g%var-refcount-procedure��gm-9d6212d37ae-5c36���;�����fl-9d6212d37ae-5c38�����=H�����F��FFFF������:�����a����`���F��F�FFF�F�$'��:�����a���S��`������fl-9d6212d37ae-5c3b��fl-9d6212d37ae-5c3c������=�������F��FFFF����
��:�����:b����<�F���:��N���������:�����a���S��`��fl-9d6212d37ae-5c40��fl-9d6212d37ae-5c41������=�������F��FFFF����
��:�����:b�����F���:	�N���������:����a���S��`��fl-9d6212d37ae-5c45��fl-9d6212d37ae-5c46������=�������F��FFFF����
��:�����:b����<�F���:�N���������gt-9d6212d37ae-5c35�����fl-9d6212d37ae-5c4a�����=�������F��FFFF����
��:�������F��F�FFF�F�$'��:��������:o����:�����:���������<�F���:��N�������:$�����F���:	�N�������:�����:b����:��N����������������������<F���:��N��gvar-set?��g%var-set?-procedure��gm-9d6212d37ae-5c51���;�����fl-9d6212d37ae-5c53�����=H�����F��FFFF������:�����a����`���F��F�FFF�F�$'��:�����a���S��`������fl-9d6212d37ae-5c56��fl-9d6212d37ae-5c57������=�������F��FFFF����
��:�����:b����<�F���:��N���������:�����a���S��`��fl-9d6212d37ae-5c5b��fl-9d6212d37ae-5c5c�����=�����F��FFFF����
�:���:b��F��:	N���:���	a�
S�	`�fl-9d6212d37ae-5c60�fl-9d6212d37ae-5c61�
�=��
��F��FFFF����
�:���:b��<F��:N���gt-9d6212d37ae-5c50��fl-9d6212d37ae-5c65��=���F��FFFF����
�:����F��F�FFF�F�$'�:���� :o��!:���":���#"�$<F��%:�$N�&!#%�':$��(F��):	(N�*')�+:���,:b��-:�$N�.,-�/+.�0 &*/�10�2<F��3:�2N�4geach�5``�645�7`6��8`7��9`8��:g%%set-fields�;gcheck?�<gexpr�=p;��<�>gm-9d6212d37ae-5c6c�?>;�@?�����Afl-9d6212d37ae-5c71�Bfl-9d6212d37ae-5c72�Cfl-9d6212d37ae-5c73�Dfl-9d6212d37ae-5c74�Efl-9d6212d37ae-5c75�FABCDE�G==@F�H?�Ifl-9d6212d37ae-5c6e�JI�K=HHJ�Lgt-1e8ba8b5a-16a�Mgt-1e8ba8b5a-16c�Ngt-1e8ba8b5a-16b�OLMN�Pgm-1e8ba8b5a-16d�QP;�RQQQ�Sfl-1e8ba8b5a-171�Tfl-1e8ba8b5a-172�Ufl-1e8ba8b5a-173�VSTU�W=ORV�Xfl-1e8ba8b5a-167�Yfl-1e8ba8b5a-168�Zfl-1e8ba8b5a-169�[XYZ�\=��[�]�GFK�FWFFF\$'
�^::]��_<GFK�`:�_N�a:�_N�b:2_N�c:�_N�d:�_N�eabcd�fgmap�gf�hf�iglist�jgset-var-refcount!�kg%set-var-refcount!-procedure�lS``�mgm-9d6212d37ae-5c80�nm;�ogt-9d6212d37ae-5c7e�pgt-9d6212d37ae-5c7f�qop�rnn�sfl-9d6212d37ae-5c85�tfl-9d6212d37ae-5c86�ust�v=qru�wn�xfl-9d6212d37ae-5c82�yx�z=Hwy�{nvFz�FFFF����
�|:�{��}gt-1e8ba8b5a-18c�~gt-1e8ba8b5a-18d�}~��gm-1e8ba8b5a-18e���;������fl-1e8ba8b5a-192��fl-1e8ba8b5a-193������=����gsetter�������fl-1e8ba8b5a-186��fl-1e8ba8b5a-187��fl-1e8ba8b5a-188�������=���������fl-1e8ba8b5a-17d��fl-1e8ba8b5a-17e������=�����gfield-specs�����fl-1e8ba8b5a-179��fl-1e8ba8b5a-17a������=������vFz�F��F�F�$'��:�����gval��:���������:o����:�����:���������<vFz��:��N�������gstruct-set!��:�����vFz��:	�N��������:�����:b����:j�N�����������������|����<Fz��:k�N��g
set-var-set?!��g%set-var-set?!-procedure��gm-9d6212d37ae-5c90���;��gt-9d6212d37ae-5c8e��gt-9d6212d37ae-5c8f����������fl-9d6212d37ae-5c95��fl-9d6212d37ae-5c96������=��������fl-9d6212d37ae-5c92�����=H������F��FFFF����
��:�������F��F��F�F�$'��:�����:���������:o����:�����:���������<�F���:��N�������:������F���:	�N��������:�����:b����:��N����������������������<F���:��N��g
vlist-null��g
vhash-assq��g
<lambda-case>��gfold��gvhash-consq��gappend��greverse��������g<let>��g<letrec>��g<fix>��g
<lexical-set>��gbuild-var-table��g	<counter>��g%%make-counter-procedure��g
%make-counter��S``````��gm-9d6212d37ae-63bc���;��gt-9d6212d37ae-63b6��gt-9d6212d37ae-63b7��gt-9d6212d37ae-63b8��gt-9d6212d37ae-63b9��gt-9d6212d37ae-63ba��gt-9d6212d37ae-63bb������������������fl-9d6212d37ae-63c1��fl-9d6212d37ae-63c2��fl-9d6212d37ae-63c3��fl-9d6212d37ae-63c4��fl-9d6212d37ae-63c5��fl-9d6212d37ae-63c6���������=������fl-9d6212d37ae-63be��=H��F�FFFF����
�:���geffort�<F�	:N�
gsize�:
N�gcontinuation�
:N�g
recursive?�:N�gdata�:N�gprev�:N�	
�gm-9d6212d37ae-63b4�;�F�F�FFF�F$'�:���:�N�:
��	
	��<F�:�N�gpwpwpwpwpwpw� 
�!g%counter?-procedure�"gcounter?�#gm-9d6212d37ae-63d3�$#;�%gt-9d6212d37ae-63d2�&%�'$�(fl-9d6212d37ae-63d8�)(�*=&')�+fl-9d6212d37ae-63d5�,+�-=H',�.$*F-�FFFF����
�/:�.��0*F-�FgFFFFlFqFuFzFF�F�F��$'�1:S0��21�3:|0��4:�0��541�6:�0��7:�0��871�9<*F-�::�9N�;68:�<35;�=/2<�><F-�?:!>N�@geffort-counter�Ag%effort-counter-procedure�Bgm-9d6212d37ae-63df�CB;�DC�Efl-9d6212d37ae-63e1�FE�G=HDF�HCFG�FFFF�����I:�H��JaI�KJ`�LFG�F�FFF�F�$'�M:�L��NaM�OSKN`�PCC�Qfl-9d6212d37ae-63e4�Rfl-9d6212d37ae-63e5�SQR�T=�PS�UCTFG�FFFF����
�V:�U��W:bU��X<TFG�Y:�XN�ZWY�[Z�\:�L��]a\�^SK]`�_fl-9d6212d37ae-63e9�`fl-9d6212d37ae-63ea�a_`�b=�Pa�cCbFG�FFFF����
�d:�c��e:bc��fbFG�g:
fN�heg�ih�j:L��kaj�lSKk`�mfl-9d6212d37ae-63ee�nfl-9d6212d37ae-63ef�omn�p=�Po�qCpFG�FFFF����
�r:�q��s:bq��tg%%<counter>-set-fields�u<pFG�v:tuN�wsv�xw�ygt-9d6212d37ae-63de�zy�{fl-9d6212d37ae-63f3�|{�}=zD|�~C}FG�FFFF����
�:�~���}FG�F�FFF�F�$'��:��������:o����:�����:���������<}FG��:��N�������:$����}FG��:
�N�������:�����:b����:@�N���������������������<FG��:A�N��gsize-counter��g%size-counter-procedure��gm-9d6212d37ae-63fa���;�����fl-9d6212d37ae-63fc�����=H�����F��FFFF������:�����a����`��F��F�FFF�F�$'��:�����a���S��`������fl-9d6212d37ae-63ff��fl-9d6212d37ae-6400������=�������F��FFFF����
��:�����:b����<�F���:��N���������:�����a���S��`��fl-9d6212d37ae-6404��fl-9d6212d37ae-6405������=�������F��FFFF����
��:�����:b�����F���:�N���������:����a���S��`��fl-9d6212d37ae-6409��fl-9d6212d37ae-640a������=�������F��FFFF����
��:�����:b����<�F���:t�N���������gt-9d6212d37ae-63f9�����fl-9d6212d37ae-640e�����=�������F��FFFF����
��:������F��F�FFF�F�$'��:��������:o����:�����:���������<�F���:��N�������:$�����F���:�N�������:�����:b����:��N����������������������<F���:��N��gcounter-continuation��g%counter-continuation-procedure��gm-9d6212d37ae-6415���;�����fl-9d6212d37ae-6417�����=H�����F��FFFF������:�����a����`��F��F�FFF�F�$'��:�����a���S��`������fl-9d6212d37ae-641a��fl-9d6212d37ae-641b����=����F��FFFF����
�:���:b��<F��:�N���	:����
a	�S�
`�fl-9d6212d37ae-641f�
fl-9d6212d37ae-6420�
�=����F��FFFF����
�:���:b��F��:	N���:���a�S�`�fl-9d6212d37ae-6424�fl-9d6212d37ae-6425��=����F��FFFF����
�:��� :b��!<F��":t!N�# "�$#�%gt-9d6212d37ae-6414�&%�'fl-9d6212d37ae-6429�('�)=&�(�*�)F��FFFF����
�+:�*��,)F��F�FFF�F�$'�-:�,��.-�/:o,��0:�,��1:�,��21-�3<)F��4:�3N�5024�6:$,��7)F��8:	7N�96-8�::�,��;:b,��<:�3N�=;<�>:-=�?/59>�@+.?�A<F��B:�AN�Cgcounter-recursive?�Dg%counter-recursive?-procedure�Egm-9d6212d37ae-6430�FE;�GF�Hfl-9d6212d37ae-6432�IH�J=HGI�KFFJ�FFFF�����L:�K��MaL�NM`�OFJ�F�FFF�F�$'�P:�O��QaP�RSNQ`�SFF�Tfl-9d6212d37ae-6435�Ufl-9d6212d37ae-6436�VTU�W=�SV�XFWFJ�FFFF����
�Y:�X��Z:bX��[<WFJ�\:�[N�]Z\�^]�_:�O��`a_�aSN``�bfl-9d6212d37ae-643a�cfl-9d6212d37ae-643b�dbc�e=�Sd�fFeFJ�FFFF����
�g:�f��h:bf��ieFJ�j:	iN�khj�lk�m:O��nam�oSNn`�pfl-9d6212d37ae-643f�qfl-9d6212d37ae-6440�rpq�s=�Sr�tFsFJ�FFFF����
�u:�t��v:bt��w<sFJ�x:twN�yvx�zy�{gt-9d6212d37ae-642f�|{�}fl-9d6212d37ae-6444�~}�=|G~��FFJ�FFFF����
��:�����FJ�F�FFF�F�$'��:��������:o����:�����:���������<FJ��:��N�������:$����FJ��:	�N�������:�����:b����:C�N����������������������<FJ��:D�N��gcounter-data��g%counter-data-procedure��gm-9d6212d37ae-644b���;�����fl-9d6212d37ae-644d�����=H�����F��FFFF������:�����a����`��F��F�FFF�F�$'��:�����a���S��`������fl-9d6212d37ae-6450��fl-9d6212d37ae-6451������=�������F��FFFF����
��:�����:b����<�F���:��N���������:�����a���S��`��fl-9d6212d37ae-6455��fl-9d6212d37ae-6456������=�������F��FFFF����
��:�����:b�����F���:	�N���������:����a���S��`��fl-9d6212d37ae-645a��fl-9d6212d37ae-645b������=�������F��FFFF����
��:�����:b����<�F���:t�N���������gt-9d6212d37ae-644a�����fl-9d6212d37ae-645f�����=�������F��FFFF����
��:������F��F�FFF�F�$'��:��������:o����:�����:���������<�F���:��N�������:$�����F���:	�N�������:�����:b����:��N����������������������<F���:��N��gcounter-prev��g%counter-prev-procedure��gm-9d6212d37ae-6466���;�����fl-9d6212d37ae-6468�����=H�����F��FFFF������:�����a����`��F��F�FFF�F�$'��:�����a���S��`�����fl-9d6212d37ae-646b�fl-9d6212d37ae-646c��=����F��FFFF����
�:���:b��<F��:�N�	�
	�:����a�
S�`�fl-9d6212d37ae-6470�fl-9d6212d37ae-6471��=����F��FFFF����
�:���:b��F��:	N���:���a�S�`�fl-9d6212d37ae-6475�fl-9d6212d37ae-6476��=��� �F��FFFF����
�!:� ��":b ��#<F��$:t#N�%"$�&%�'gt-9d6212d37ae-6465�('�)fl-9d6212d37ae-647a�*)�+=(�*�,�+F��FFFF����
�-:�,��.+F��F�FFF�F�$'�/:�.��0/�1:o.��2:�.��3:�.��43/�5<+F��6:�5N�7246�8:$.��9+F��::	9N�;8/:�<:�.��=:b.��>:�5N�?=>�@</?�A17;@�B-0A�C<F��D:�CN�Egm-9d6212d37ae-6481�FE;�GF�Hfl-9d6212d37ae-6486�Ifl-9d6212d37ae-6487�Jfl-9d6212d37ae-6488�Kfl-9d6212d37ae-6489�Lfl-9d6212d37ae-648a�MHIJKL�N==GM�OF�Pfl-9d6212d37ae-6483�QP�R=HOQ�SNFR�FWFFF\$'
�T::S��U<NFR�V:�UN�W:@UN�X:�UN�Y:�UN�Z:CUN�[:�UN�\:�UN�]WXYZ[\�^gset-counter-recursive?!�_g"%set-counter-recursive?!-procedure�`gm-9d6212d37ae-6495�a`;�bgt-9d6212d37ae-6493�cgt-9d6212d37ae-6494�dbc�eaa�ffl-9d6212d37ae-649a�gfl-9d6212d37ae-649b�hfg�i=deh�ja�kfl-9d6212d37ae-6497�lk�m=Hjl�naiFm�FFFF����
�o:�n��piFm�F��F�F�$'�q:�p��r:�p��sqr�t:op��u:�p��v:�p��wvq�x<iFm�y:�xN�zuwy�{:�p��|iFm�}:	|N�~{q}r�:�p���:bp���:^xN������q���tz~���os���<Fm��:_�N��g
abort-counter��grecord-effort!��grecord-size!��gfind-counter��gmin��g	transfer!��g
make-variable��gmake-top-counter��gmake-nested-counter��gmake-recursive-counter��g	<operand>��g%%make-operand-procedure��g
%make-operand��S``````````��gm-9d6212d37ae-6564���;��gt-9d6212d37ae-655a��gt-9d6212d37ae-655b��gt-9d6212d37ae-655c��gt-9d6212d37ae-655d��gt-9d6212d37ae-655e��gt-9d6212d37ae-655f��gt-9d6212d37ae-6560��gt-9d6212d37ae-6561��gt-9d6212d37ae-6562��gt-9d6212d37ae-6563������������
������������
��fl-9d6212d37ae-6569��fl-9d6212d37ae-656a��fl-9d6212d37ae-656b��fl-9d6212d37ae-656c��fl-9d6212d37ae-656d��fl-9d6212d37ae-656e��fl-9d6212d37ae-656f��fl-9d6212d37ae-6570��fl-9d6212d37ae-6571��fl-9d6212d37ae-6572������������
��=��������fl-9d6212d37ae-6566�����=H������F��FFFF����
��:�����gvar��<�F���:��N��gsym��:��N��gvisit��:��N��gsource��:��N��gvisit-count��:��N��g	use-count��:��N��g	copyable?��:��N��gresidual-value��:��N��gconstant-value��:��N��galias��:��N������������
��gm-9d6212d37ae-6558���;����F��F�FFF�F$'��:�����:��N��:
�����������������
�������<F���:��N��gpwpwpwpwpwpwpwpwpwpw������������
��g%operand?-procedure��goperand?��gm-9d6212d37ae-6583���;��gt-9d6212d37ae-6582��������fl-9d6212d37ae-6588�����=�����fl-9d6212d37ae-6585�����=H������F��FFFF����
��:�������F��FgFFFFlFqFuFzFF�F�F��$'��:S�������:|����:���������:�����:���������<�F���:��N�����������������<F���:��N��goperand-var��g%operand-var-procedure��gm-9d6212d37ae-658f���;�����fl-9d6212d37ae-6591�����=H�����F��FFFF�����:����a�`��F��F�FFF�F�$'�:���a�S`����fl-9d6212d37ae-6594�	fl-9d6212d37ae-6595�
	�=�
��F��FFFF����
�
:���:b��<F��:�N���:���a�S`�fl-9d6212d37ae-6599�fl-9d6212d37ae-659a��=���F��FFFF����
�:���:b��F��:
N�� �!:��"a!�#S"`�$fl-9d6212d37ae-659e�%fl-9d6212d37ae-659f�&$%�'=�&�(�'F��FFFF����
�):�(��*:b(��+g%%<operand>-set-fields�,<'F��-:+,N�.*-�/.�0gt-9d6212d37ae-658e�10�2fl-9d6212d37ae-65a3�32�4=1�3�5�4F��FFFF����
�6:�5��7�4F��F�FFF�F�$'�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�Ngoperand-sym�Og%operand-sym-procedure�Pgm-9d6212d37ae-65aa�QP;�RQ�Sfl-9d6212d37ae-65ac�TS�U=HRT�VQFU�FFFF�����W:�V��XaW�YX`�Z�FU�F�FFF�F�$'�[:�Z��\a[�]SY\`�^QQ�_fl-9d6212d37ae-65af�`fl-9d6212d37ae-65b0�a_`�b=�^a�cQbFU�FFFF����
�d:�c��e:bc��f<bFU�g:�fN�heg�ih�j:�Z��kaj�lSYk`�mfl-9d6212d37ae-65b4�nfl-9d6212d37ae-65b5�omn�p=�^o�qQpFU�FFFF����
�r:�q��s:bq��tpFU�u:tN�vsu�wv�x:Z��yax�zSYy`�{fl-9d6212d37ae-65b9�|fl-9d6212d37ae-65ba�}{|�~=�^}�Q~FU�FFFF����
��:����:b���<~FU��:+�N���������gt-9d6212d37ae-65a9�����fl-9d6212d37ae-65be�����=�R���Q�FU�FFFF����
��:�������FU�F�FFF�F�$'��:��������:o����:�����:���������<�FU��:��N�������:$�����FU��:�N�������:�����:b����:N�N����������������������<FU��:O�N��g%operand-visit��g%%operand-visit-procedure��gm-9d6212d37ae-65c5���;�����fl-9d6212d37ae-65c7�����=H�����F��FFFF������:�����a����`���F��F�FFF�F�$'��:�����a���S��`������fl-9d6212d37ae-65ca��fl-9d6212d37ae-65cb������=�������F��FFFF����
��:�����:b����<�F���:��N���������:�����a���S��`��fl-9d6212d37ae-65cf��fl-9d6212d37ae-65d0������=�������F��FFFF����
��:�����:b�����F���:	�N���������:����a���S��`��fl-9d6212d37ae-65d4��fl-9d6212d37ae-65d5������=�������F��FFFF����
��:�����:b����<�F���:+�N���������gt-9d6212d37ae-65c4�����fl-9d6212d37ae-65d9�����=�������F��FFFF����
��:�������F��F�FFF�F�$'��:��������:o����:�����:���������<�F���:��N�������:$�����F���:	�N�������:�����:b����:��N����������������������<F���:��N��goperand-source��g%operand-source-procedure��gm-9d6212d37ae-65e0���;�����fl-9d6212d37ae-65e2���=H���F�FFFF�����:���a�`��F�F�FFF�F�$'�:���a�	S`�
���fl-9d6212d37ae-65e5�fl-9d6212d37ae-65e6�
�=�

��F�FFFF����
�:���:b��<F�:�N���:���a�S`�fl-9d6212d37ae-65ea�fl-9d6212d37ae-65eb��=�
��F�FFFF����
�:���:b�� F�!:	 N�"!�#"�$:��%a$�&S%`�'fl-9d6212d37ae-65ef�(fl-9d6212d37ae-65f0�)'(�*=�
)�+�*F�FFFF����
�,:�+��-:b+��.<*F�/:+.N�0-/�10�2gt-9d6212d37ae-65df�32�4fl-9d6212d37ae-65f4�54�6=3�5�7�6F�FFFF����
�8:�7��9�6F�F�FFF�F�$'�::�9��;:�<:o9��=:�9��>:�9��?>:�@<6F�A:�@N�B=?A�C:$9��D6F�E:	DN�FC:E�G:�9��H:b9��I:�@N�JHI�KG:J�L<BFK�M8;L�N<F�O:�NN�Pgoperand-visit-count�Qg%operand-visit-count-procedure�Rgm-9d6212d37ae-65fb�SR;�TS�Ufl-9d6212d37ae-65fd�VU�W=HTV�XSFW�FFFF�����Y:�X��ZaY�[Z`�\�FW�F�FFF�F�$'�]:�\��^a]�_S[^`�`SS�afl-9d6212d37ae-6600�bfl-9d6212d37ae-6601�cab�d=�`c�eSdFW�FFFF����
�f:�e��g:be��h<dFW�i:�hN�jgi�kj�l:�\��mal�nS[m`�ofl-9d6212d37ae-6605�pfl-9d6212d37ae-6606�qop�r=�`q�sSrFW�FFFF����
�t:�s��u:bs��vrFW�w:	vN�xuw�yx�z:\��{az�|S[{`�}fl-9d6212d37ae-660a�~fl-9d6212d37ae-660b�}~��=�`��S�FW�FFFF����
��:�����:b����<�FW��:+�N���������gt-9d6212d37ae-65fa�����fl-9d6212d37ae-660f�����=�T���S�FW�FFFF����
��:�������FW�F�FFF�F�$'��:��������:o����:�����:���������<�FW��:��N�������:$�����FW��:	�N�������:�����:b����:P�N����������������������<FW��:Q�N��goperand-use-count��g%operand-use-count-procedure��gm-9d6212d37ae-6616���;�����fl-9d6212d37ae-6618�����=H�����F��FFFF������:�����a����`���F��F�FFF�F�$'��:�����a���S��`������fl-9d6212d37ae-661b��fl-9d6212d37ae-661c������=�������F��FFFF����
��:�����:b����<�F���:��N���������:�����a���S��`��fl-9d6212d37ae-6620��fl-9d6212d37ae-6621������=�������F��FFFF����
��:�����:b�����F���:	�N���������:����a���S��`��fl-9d6212d37ae-6625��fl-9d6212d37ae-6626������=�������F��FFFF����
��:�����:b����<�F���:+�N���������gt-9d6212d37ae-6615�����fl-9d6212d37ae-662a�����=�������F��FFFF����
��:�������F��F�FFF�F�$'��:��������:o����:�����:���������<�F���:��N�������:$�����F���:	�N�������:�����:b����:��N����������������������<F���:��N��goperand-copyable?��g%operand-copyable?-procedure��gm-9d6212d37ae-6631���;�	��	fl-9d6212d37ae-6633�		�	=H		�	�F	�FFFF�����	:�	��	a	�		`�	�F	�F�FFF�F�$'�		:�	��	
a		�	S		
`�	���	
fl-9d6212d37ae-6636�	fl-9d6212d37ae-6637�		
	�	=�		�	�	F	�FFFF����
�	:�	��	:b	��	<	F	�	:�	N�			�		�	:�	��	a	�	S		`�	fl-9d6212d37ae-663b�	fl-9d6212d37ae-663c�			�	=�		�	�	F	�FFFF����
�	 :�	��	!:b	��	"	F	�	#:		"N�	$	!	#�	%	$�	&:	��	'a	&�	(S		'`�	)fl-9d6212d37ae-6640�	*fl-9d6212d37ae-6641�	+	)	*�	,=�		+�	-�	,F	�FFFF����
�	.:�	-��	/:b	-��	0<	,F	�	1:+	0N�	2	/	1�	3	2�	4gt-9d6212d37ae-6630�	5	4�	6fl-9d6212d37ae-6645�	7	6�	8=	5		7�	9�	8F	�FFFF����
�	::�	9��	;�	8F	�F�FFF�F�$'�	<:�	;��	=	<�	>:o	;��	?:�	;��	@:�	;��	A	@	<�	B<	8F	�	C:�	BN�	D	?	A	C�	E:$	;��	F	8F	�	G:		FN�	H	E	<	G�	I:�	;��	J:b	;��	K:�	BN�	L	J	K�	M	I	<	L�	N	>	D	H	M�	O	:	=	N�	P<F	�	Q:�	PN�	Rgoperand-residual-value�	Sg!%operand-residual-value-procedure�	Tgm-9d6212d37ae-664c�	U	T;�	V	U�	Wfl-9d6212d37ae-664e�	X	W�	Y=H	V	X�	Z	UF	Y�FFFF�����	[:�	Z��	\a	[�	]	\`�	^�F	Y�F�FFF�F�$'�	_:�	^��	`a	_�	aS	]	``�	b	U	U�	cfl-9d6212d37ae-6651�	dfl-9d6212d37ae-6652�	e	c	d�	f=�	b	e�	g	U	fF	Y�FFFF����
�	h:�	g��	i:b	g��	j<	fF	Y�	k:�	jN�	l	i	k�	m	l�	n:�	^��	oa	n�	pS	]	o`�	qfl-9d6212d37ae-6656�	rfl-9d6212d37ae-6657�	s	q	r�	t=�	b	s�	u	U	tF	Y�FFFF����
�	v:�	u��	w:b	u��	x	tF	Y�	y:		xN�	z	w	y�	{	z�	|:	^��	}a	|�	~S	]	}`�	fl-9d6212d37ae-665b�	�fl-9d6212d37ae-665c�	�		��	�=�	b	��	�	U	�F	Y�FFFF����
�	�:�	���	�:b	���	�<	�F	Y�	�:+	�N�	�	�	��	�	��	�gt-9d6212d37ae-664b�	�	��	�fl-9d6212d37ae-6660�	�	��	�=	�	V	��	�	U	�F	Y�FFFF����
�	�:�	���	��	�F	Y�F�FFF�F�$'�	�:�	���	�	��	�:o	���	�:�	���	�:�	���	�	�	��	�<	�F	Y�	�:�	�N�	�	�	�	��	�:$	���	�	�F	Y�	�:		�N�	�	�	�	��	�:�	���	�:b	���	�:	R	�N�	�	�	��	�	�	�	��	�	�	�	�	��	�	�	�	��	�<F	Y�	�:	S	�N�	�goperand-constant-value�	�g!%operand-constant-value-procedure�	�gm-9d6212d37ae-6667�	�	�;�	�	��	�fl-9d6212d37ae-6669�	�	��	�=H	�	��	�	�F	��FFFF�����	�:�	���	�a	��	�	�`�	��F	��F�FFF�F�$'�	�:�	���	�a	��	�S	�	�`�	�	�	��	�fl-9d6212d37ae-666c�	�fl-9d6212d37ae-666d�	�	�	��	�=�	�	��	�	�	�F	��FFFF����
�	�:�	���	�:b	���	�<	�F	��	�:�	�N�	�	�	��	�	��	�:�	���	�a	��	�S	�	�`�	�fl-9d6212d37ae-6671�	�fl-9d6212d37ae-6672�	�	�	��	�=�	�	��	�	�	�F	��FFFF����
�	�:�	���	�:b	���	�	�F	��	�:		�N�	�	�	��	�	��	�:	���	�a	��	�S	�	�`�	�fl-9d6212d37ae-6676�	�fl-9d6212d37ae-6677�	�	�	��	�=�	�	��	�	�	�F	��FFFF����
�	�:�	���	�:b	���	�<	�F	��	�:+	�N�	�	�	��	�	��	�gt-9d6212d37ae-6666�	�	��	�fl-9d6212d37ae-667b�	�	��	�=	�	�	��	�	�	�F	��FFFF����
�	�:�	���	��	�F	��F�FFF�F�$'�	�:�	���	�	��	�:o	���	�:�	���	�:�	���	�	�	��	�<	�F	��	�:�	�N�	�	�	�	��	�:$	���	�	�F	��	�:		�N�	�	�	�	��	�:�	���	�:b	���	�:	�	�N�	�	�	��	�	�	�	��	�	�	�	�	��	�	�	�	��	�<F	��	�:	�	�N�	�g
operand-alias�	�g%operand-alias-procedure�
gm-9d6212d37ae-6682�

;�

�
fl-9d6212d37ae-6684�

�
=H

�

F
�FFFF�����
:�
��
a
�
	
`�

�F
�F�FFF�F�$'�
:�

��
a
�

S
	
`�


�
fl-9d6212d37ae-6687�
fl-9d6212d37ae-6688�


�
=�

�


F
�FFFF����
�
:�
��
:b
��
<
F
�
:�
N�


�

�
:�

��
a
�
S
	
`�
fl-9d6212d37ae-668c�
fl-9d6212d37ae-668d�


�
 =�

�
!

 F
�FFFF����
�
":�
!��
#:b
!��
$
 F
�
%:		
$N�
&
#
%�
'
&�
(:

��
)a
(�
*S
	
)`�
+fl-9d6212d37ae-6691�
,fl-9d6212d37ae-6692�
-
+
,�
.=�

-�
/

.F
�FFFF����
�
0:�
/��
1:b
/��
2<
.F
�
3:+
2N�
4
1
3�
5
4�
6gt-9d6212d37ae-6681�
7
6�
8fl-9d6212d37ae-6696�
9
8�
:=
7

9�
;

:F
�FFFF����
�
<:�
;��
=�
:F
�F�FFF�F�$'�
>:�
=��
?
>�
@:o
=��
A:�
=��
B:�
=��
C
B
>�
D<
:F
�
E:�
DN�
F
A
C
E�
G:$
=��
H
:F
�
I:		
HN�
J
G
>
I�
K:�
=��
L:b
=��
M:	�
DN�
N
L
M�
O
K
>
N�
P
@
F
J
O�
Q
<
?
P�
R<F
�
S:	�
RN�
Tgm-9d6212d37ae-669d�
U
T;�
V
U�����
Wfl-9d6212d37ae-66a2�
Xfl-9d6212d37ae-66a3�
Yfl-9d6212d37ae-66a4�
Zfl-9d6212d37ae-66a5�
[fl-9d6212d37ae-66a6�
\
W
X
Y
Z
[�
]==
V
\�
^
U�
_fl-9d6212d37ae-669f�
`
_�
a=H
^
`�
b�
]F
a�FWFFF\$'
�
c::
b��
d<
]F
a�
e:�
dN�
f:�
dN�
g:N
dN�
h:�
dN�
i:�
dN�
j:P
dN�
k:�
dN�
l:�
dN�
m:	R
dN�
n:	�
dN�
o:	�
dN�
p
f
g
h
i
j
k
l
m
n
o
�
qgset-operand-visit-count!�
rg#%set-operand-visit-count!-procedure�
sgm-9d6212d37ae-66b1�
t
s;�
ugt-9d6212d37ae-66af�
vgt-9d6212d37ae-66b0�
w
u
v�
x
t
t�
yfl-9d6212d37ae-66b6�
zfl-9d6212d37ae-66b7�
{
y
z�
|=
w
x
{�
}
t�
~fl-9d6212d37ae-66b3�

~�
�=H
}
�
�
t
|F
��FFFF����
�
�:�
���
��
|F
��F��F�F�$'�
�:�
���
�:�
���
�
�
��
�:o
���
�:�
���
�:�
���
�
�
��
�<
|F
��
�:�
�N�
�
�
�
��
�:�
���
�
|F
��
�:	
�N�
�
�
�
�
��
�:�
���
�:b
���
�:
q
�N�
�
�
��
�
�
�
��
�
�
�
�
��
�
�
�
��
�<F
��
�:
r
�N�
�gset-operand-use-count!�
�g!%set-operand-use-count!-procedure�
�gm-9d6212d37ae-66c1�
�
�;�
�gt-9d6212d37ae-66bf�
�gt-9d6212d37ae-66c0�
�
�
��
�
�
��
�fl-9d6212d37ae-66c6�
�fl-9d6212d37ae-66c7�
�
�
��
�=
�
�
��
�
��
�fl-9d6212d37ae-66c3�
�
��
�=H
�
��
�
�
�F
��FFFF����
�
�:�
���
��
�F
��F��F�F�$'�
�:�
���
�:�
���
�
�
��
�:o
���
�:�
���
�:�
���
�
�
��
�<
�F
��
�:�
�N�
�
�
�
��
�:�
���
�
�F
��
�:	
�N�
�
�
�
�
��
�:�
���
�:b
���
�:
�
�N�
�
�
��
�
�
�
��
�
�
�
�
��
�
�
�
��
�<F
��
�:
�
�N�
�gset-operand-copyable?!�
�g!%set-operand-copyable?!-procedure�
�gm-9d6212d37ae-66d1�
�
�;�
�gt-9d6212d37ae-66cf�
�gt-9d6212d37ae-66d0�
�
�
��
�
�
��
�fl-9d6212d37ae-66d6�
�fl-9d6212d37ae-66d7�
�
�
��
�=
�
�
��
�
��
�fl-9d6212d37ae-66d3�
�
��
�=H
�
��
�
�
�F
��FFFF����
�
�:�
���
��
�F
��F��F�F�$'�
�:�
���
�:�
���
�
�
��
�:o
���
�:�
���
�:�
���
�
�
��
�<
�F
��
�:�
�N�
�
�
�
��
�:�
���
�
�F
��
�:	
�N�
�
�
�
�
��
�:�
���
�:b
���
�:
�
�N�
�
�
��
�
�
�
��
�
�
�
�
��
�
�
�
��
�<F
��
�:
�
�N�
�g%set-operand-residual-value!�
�g'%%set-operand-residual-value!-procedure�
�gm-9d6212d37ae-66e1�
�
�;�
�gt-9d6212d37ae-66df�
�gt-9d6212d37ae-66e0�
�
�
��
�
�
��
�fl-9d6212d37ae-66e6�
�fl-9d6212d37ae-66e7�
�
�
��
�=
�
�
��
�
��
�fl-9d6212d37ae-66e3�
�
��
�=H
�
��
�
�
�F
��FFFF����
�:�
����
�F
��F��F�F�$'�:���:����:o��:���:����	<
�F
��
:�	N�
�:���

�F
��:	
N��:���:b��:
�	N�����<F
��:
�N�gset-operand-constant-value!�g&%set-operand-constant-value!-procedure�gm-9d6212d37ae-66f1�;�gt-9d6212d37ae-66ef�gt-9d6212d37ae-66f0�� �!fl-9d6212d37ae-66f6�"fl-9d6212d37ae-66f7�#!"�$= #�%�&fl-9d6212d37ae-66f3�'&�(=H%'�)$F(�FFFF����
�*:�)��+�$F(�F��F�F�$'�,:�+��-:�+��.,-�/:o+��0:�+��1:�+��21,�3<$F(�4:�3N�5024�6:�+��7$F(�8:	7N�96,8-�::�+��;:b+��<:3N�=;<�>:,=�?/59>�@*.?�A<F(�B:AN�Cgset-operand-alias!�Dg%set-operand-alias!-procedure�Egm-9d6212d37ae-6701�FE;�Ggt-9d6212d37ae-66ff�Hgt-9d6212d37ae-6700�IGH�JFF�Kfl-9d6212d37ae-6706�Lfl-9d6212d37ae-6707�MKL�N=IJM�OF�Pfl-9d6212d37ae-6703�QP�R=HOQ�SFNFR�FFFF����
�T:�S��U�NFR�F��F�F�$'�V:�U��W:�U��XVW�Y:oU��Z:�U��[:�U��\[V�]<NFR�^:�]N�_Z\^�`:�U��aNFR�b:		aN�c`VbW�d:�U��e:bU��f:C]N�gef�hdVg�iY_ch�jTXi�k<FR�l:DkN�mgand=>�ngmake-operand�ogmake-bound-operands�pgmake-unbound-operands�qgset-operand-residual-value!�rgapply�sg
visit-operand�tgnot�ugpair?�vgnull?�wglist?�xgsymbol?�ygvector?�zglength�{geqv?�|gequal?�}gtypes-check?�~goperator-size-limitS�~	���goperand-size-limitS���	���gvalue-size-limitS���	���geffort-limitS���	���grecursive-effort-limitS���	���������gcurrent-module��gerror��funbound var��gvlist->list��g
string-append��gsymbol->string��f ��gmake-lexical-ref��������fno matching pattern��gevery��gconst?��g	const-exp��gcatch��gthe-scm-module��geffect��g	make-void��gtest��g
make-const��g	<dynwind>��gmake-dynwind��g<dynlet>��gmake-dynlet��g
<sequence>��z��z��gtail�����g
make-sequence��g<let-values>��gmake-let-values��gmake-lambda-case��gmake-fix��gmake-letrec��gmake-let��g<abort>��g<prompt>��g
<conditional>��gmake-lambda��g<dynref>��g<toplevel-set>��g<toplevel-define>��g<module-set>��g<dynset>��g	constant?��goperator��gcar��gcdr��gfilter��gcompose��gvoid?��gmake-effects-analyzer��glexical-ref?��glexical-ref-gensym��gmake-prompt-tag��gabort?��g	tree-il=?��g	abort-tag��������g
abort-args��g
abort-tail��gmake-prompt��g
make-abort��g	sequence?��g
sequence-exps��g@apply��glambda-case-alternate��gcall��gand-map��gtake��gdrop��gsplit-at��g
fold-right��glambda?��geffect-free-primitive?��gaccessor-primitive?��gmemv��ft-��gt��gmake-conditional��gcons��gconstructor-primitive?��gstring?��gvector��g@call-with-values��ffailure-��gfailure��gmake-toplevel-set��gmake-toplevel-define��gmake-module-set��������gresolve-module��gensureS��gmodule?��gmodule-variable��gresolve-primitives!��gprimitive-ref?��gmake-dynset��gmake-dynref��fpost-��gpost�����fpre-��gpre���������fwhat!��galist-delete��gassq-ref��grest�����grest-sym�����g$��bi����S��g	rest-args���S���g?�gcut�g<>�������	����
g=�glexical-refcount���

�|	
������S��g	make-list�gtmp�ftmp �gmake-lexical-set�C5h���]4	
,-.541>"G44569h_]6Wgid
		gfilenameflanguage/tree-il/peval.scm�		2	��		COh*]C"gid
				CRUZh)]�C!gx
				C]^h@�]4?$@45$@6�gx
		:gtmp		:gtmp		#	:gfilenameflanguage/tree-il/peval.scm�
	2	��		:g
macro-typegidentifier-syntax�C55R44_6Rn{}~������
h0Q]��	��CIgdummy
		0gevent		0garg			0		0	C]^h(�]	45$@6�gx
		"gtmp		"gfilenameflanguage/tree-il/peval.scm�
	>	��		"g
macro-typegsyntax-rules�gpatternsgquotegeventgargg...C5_R����_�hH�-1344554��>"G4>"GD�gevent
			Cgargs			Cgpp			Cgfilenameflanguage/tree-il/peval.scm�
	E
��	
	F	��	
	F	��		F	+��		F	��		G	��		F	��		F	��		H	��		H	��	)	H	��	2	I	��	C	J	��			C
gnameglog*�C�R���h �]
4L5$L6C�gexp
		gres		gres				gfilenameflanguage/tree-il/peval.scm�
	N	��		O	��			O	��		P	��		M	��			C�h �]
4L5$L6C�gexp
		gres		gres				gfilenameflanguage/tree-il/peval.scm�
	Q	��		R	��			R	��		S	��		M	��			Chp]Chgexp
		gres		gfilenameflanguage/tree-il/peval.scm�
	T	��			Ch@�]U#4OO>XCXFGE�gproc
		>gexp		>gtag			>g_		3	>gresults		3	>gfilenameflanguage/tree-il/peval.scm�
	L
��		M	��		N	��	6	M	��		>	gnamegtree-il-any�C�R��hH]45"-�$"4455$C�"���C
"���gproc
		Cgvlist		Cglen				Cgi			<gt		&	:gfilenameflanguage/tree-il/peval.scm�
	W
��		X	
��			X	��		Y	��		Z	��		Z	��		[	��		[	��	&	[	��	&	[	��	4	\	��	:	\	��	<	Y	��		C	gnameg	vlist-any�C�R��hN]L��CFgfilenameflanguage/tree-il/peval.scm�		_	��			
C���������h0])"��$��&q
��OQ�$N�&A
��&'	��$�(�C66��C66��CC�$��&C�&C�&C�&C�	&C�
&C�&?
���$)�&
��45$C"���"���"���"���"����gexp
	)gw	�gfailure		)�gw		G	gw		V	xgfailure		Z	xgw�!gw	gfilenameflanguage/tree-il/peval.scm�
	^
��		_	��	)gnamegsingly-valued-expression?�C�R�����h(�]45$C45456�gx
		(gfilenameflanguage/tree-il/peval.scm�
	m
��		o	��	
	o	��		q	��		r	��		r	/��	!	r	��	&	s	��	(	q	��
		(gnamegtruncate-values�g
documentationf%Discard all but the first value of X.�C�R�h�]�C�gname
		ggensym		grefcount			gset?			gfilenameflanguage/tree-il/peval.scm�
	y
��			gnameg%make-var-procedure�C�R44�6R�-h�]C�gt-9d6212d37ae-5bdd
		gt-9d6212d37ae-5bde		gt-9d6212d37ae-5bdf			gt-9d6212d37ae-5be0						CU/�0h]]L6Uga
		gfilenameflanguage/tree-il/peval.scm�		y
��		CS2hM]L6Egfilenameflanguage/tree-il/peval.scm�		y
��		
C4h]C		
C]^hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/peval.scm�
	y
��		nC5�R78;�<�4?�>"G	B��i��R�hz]�$��CCrgobj
		gfilenameflanguage/tree-il/peval.scm�
	y
��		gnameg%var?-procedure�CCR44D6RE�h:]C2gt-9d6212d37ae-5bf3
		
		
CU/D0h]]L6Uga
		gfilenameflanguage/tree-il/peval.scm�		y
��		CS2hM]L6Egfilenameflanguage/tree-il/peval.scm�		y
��		
C�h]C		
C]^hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/peval.scm�
	y
��		nC5DR���h|]�&
�C6tgs
		gfilenameflanguage/tree-il/peval.scm�
	y
��		gnameg%var-name-procedure�C�R44�6R���h:]��C2gerr
		gs					C��h:]��C2gerr
		gs					Ch:]��C2gerr
		gs					CE/h:]C2gt-9d6212d37ae-5bff
		
		
CU/�0h]]L6Uga
		gfilenameflanguage/tree-il/peval.scm�		y
��		CS2hM]L6Egfilenameflanguage/tree-il/peval.scm�		y
��		
C1h]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�
	y
��	�C5�R��2h~]�&�C6vgs
		gfilenameflanguage/tree-il/peval.scm�
	y
��		gnameg%var-gensym-procedure�C3R4426RAHMh:]��C2gerr
		gs					CPV[h:]��C2gerr
		gs					C^dih:]��C2gerr
		gs					CE�h:]C2gt-9d6212d37ae-5c1a
		
		
CU/20h]]L6Uga
		gfilenameflanguage/tree-il/peval.scm�		y
��		CS2hM]L6Egfilenameflanguage/tree-il/peval.scm�		y
��		
C�h]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�
	y
��	�C52R���h �]�&	�C6xgs
		gfilenameflanguage/tree-il/peval.scm�
	y
��		gnameg%var-refcount-procedure�C�R44�6R���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					CE�h:]C2gt-9d6212d37ae-5c35
		
		
CU/�0h]]L6Uga
		gfilenameflanguage/tree-il/peval.scm�		y
��		CS2hM]L6Egfilenameflanguage/tree-il/peval.scm�		y
��		
C�h]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�
	y
��	�C5�R���h |]�&	�C6tgs
		gfilenameflanguage/tree-il/peval.scm�
	y
��		gnameg%var-set?-procedure�C�R44�6R���h:]��C2gerr
		gs					C�h:]��C2gerr
		gs					C
h:]��C2gerr
		gs					CE1h:]C2gt-9d6212d37ae-5c50
		
		
CU/�0h]]L6Uga
		gfilenameflanguage/tree-il/peval.scm�		y
��		CS2hM]L6Egfilenameflanguage/tree-il/peval.scm�		y
��		
C3h]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�
	y
��	�C5�R446R9^`ehih v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C]^h(�]	45$@6�gx
		"gtmp		"gfilenameflanguage/tree-il/peval.scm�
	y
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5R��jh �]�&	�C6�gs
		gval		gfilenameflanguage/tree-il/peval.scm�
	y
��			gnameg%set-var-refcount!-procedure�CkR44j6Rl�hZ]CRgt-9d6212d37ae-5c7e
		gt-9d6212d37ae-5c7f					CU/j0h]]L6Uga
		gfilenameflanguage/tree-il/peval.scm�		y
��		CS2hM]L6Egfilenameflanguage/tree-il/peval.scm�		y
��		
C�h]C		
C]^hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/peval.scm�
	y
��		nC5jR���h �]�&	�C6�gs
		gval		gfilenameflanguage/tree-il/peval.scm�
	y
��			gnameg%set-var-set?!-procedure�C�R44�6Rl�hZ]CRgt-9d6212d37ae-5c8e
		gt-9d6212d37ae-5c8f					CU/�0h]]L6Uga
		gfilenameflanguage/tree-il/peval.scm�		y
��		CS2hM]L6Egfilenameflanguage/tree-il/peval.scm�		y
��		
C�h]C		
C]^hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/peval.scm�
	y
��		nC5�R�������jh��]�$v�&j
��	�45��&		�"	45��&	�"4>"GCCC�gexp
	�gres	�gw		!	|gvar		-	|gval		K	ygfilenameflanguage/tree-il/peval.scm�
�	��	�	��	$�	��	-�	��	-�	��	2�	%��	K�	!��	K�	
��		�	C����h�]
�6�gname
		gsym		gres			gfilenameflanguage/tree-il/peval.scm�
�	��	�	!��	�	��			C�����h�]
�6�gname
		gsym		gres			gfilenameflanguage/tree-il/peval.scm�
�	��	�	!��	�	��			C���h�]
�6�gname
		gsym		gres			gfilenameflanguage/tree-il/peval.scm�
�	��	�	!��	�	��			C���h�]
�6�gname
		gsym		gres			gfilenameflanguage/tree-il/peval.scm�
�	��	�	!��	�	��			C�����hh�]��$X�&S
��	�	�	�	�	�	�	�4$"$	"�$���"�(/4	>"G4>"G4
5"��$~��$j��
�$N���$2�(&��	�
�
�
	"��l"4"/"$
""
	"��0"56�&*
��	�	�	�6�&0
��	�	�	�	�	6�
&*
��	�	�	�6�&Q
��	�	�4
5��&	�"4>"GCCC�gexp
	dgres	dgw		egw		"egw		)egw		0egw		=egx		}Zgls	�Fgp-ls		�Fgp-ls	
�Fgp-ls	�Fgw	�Agw	
�9gx	�9gw	�.gx	�.gw	�gw	w�gw	~�gw	��gw	��gw	�gw	�gw	^gs	.[gfilenameflanguage/tree-il/peval.scm�
�	��	�	��	R�	��	\�	��	c�	"��	i�	'��	n�	0��	s�	<��	v�	���	��F�	��_�	��a�	��e�	��h�	����	����	����	����	���	���	��%�	��.�	��.�	��	d	Chq]Cigexp
		gres		gfilenameflanguage/tree-il/peval.scm�
�	��			Ch(�-.,3#6�gexp
		$gtable		$gfilenameflanguage/tree-il/peval.scm�
�
��	$�	��		$gnamegbuild-var-table�C�R�h�]�C�geffort
		gsize		gcontinuation			g
recursive?			gdata			gprev			gfilenameflanguage/tree-il/peval.scm�
�
��			gnameg%%make-counter-procedure�C�R44�6R�h�]C�gt-9d6212d37ae-63b6
		gt-9d6212d37ae-63b7		gt-9d6212d37ae-63b8			gt-9d6212d37ae-63b9			gt-9d6212d37ae-63ba			gt-9d6212d37ae-63bb						CU/�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	�
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	�
��		
Ch]C		
C]^hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/peval.scm�
�
��		nC5�R7;� �4?�>"G	B��i��R�h]�$��CCwgobj
		gfilenameflanguage/tree-il/peval.scm�
�
��		gnameg%counter?-procedure�C!R44"6RE=h:]C2gt-9d6212d37ae-63d2
		
		
CU/"0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	�
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	�
��		
C?h]C		
C]^hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/peval.scm�
�
��		nC5"R��@h�]�&
�C6{gs
		gfilenameflanguage/tree-il/peval.scm�
�
��		gnameg%effort-counter-procedure�CAR44@6ROV[h:]��C2gerr
		gs					C^dih:]��C2gerr
		gs					Clrxh:]��C2gerr
		gs					CE�h:]C2gt-9d6212d37ae-63de
		
		
CU/@0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	�
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	�
��		
C�h]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�
�
��	�C5@R���h�]�&�C6ygs
		gfilenameflanguage/tree-il/peval.scm�
�
��		gnameg%size-counter-procedure�C�R44�6R���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					CE�h:]C2gt-9d6212d37ae-63f9
		
		
CU/�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	�
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	�
��		
C�h]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�
�
��	�C5�R���h �]�&	�C6�gs
		gfilenameflanguage/tree-il/peval.scm�
�
��		gnameg%counter-continuation-procedure�C�R44�6R�h:]��C2gerr
		gs					Ch:]��C2gerr
		gs					C$h:]��C2gerr
		gs					CE@h:]C2gt-9d6212d37ae-6414
		
		
CU/�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	�
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	�
��		
CBh]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�
�
��	�C5�R��Ch �]�&	�C6gs
		gfilenameflanguage/tree-il/peval.scm�
�
��		gnameg%counter-recursive?-procedure�CDR44C6RRY^h:]��C2gerr
		gs					Caglh:]��C2gerr
		gs					Couzh:]��C2gerr
		gs					CE�h:]C2gt-9d6212d37ae-642f
		
		
CU/C0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	�
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	�
��		
C�h]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�
�
��	�C5CR���h �]�&	�C6ygs
		gfilenameflanguage/tree-il/peval.scm�
�
��		gnameg%counter-data-procedure�C�R44�6R���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					CE�h:]C2gt-9d6212d37ae-644a
		
		
CU/�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	�
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	�
��		
C�h]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�
�
��	�C5�R���h �]�&	�C6ygs
		gfilenameflanguage/tree-il/peval.scm�
�
��		gnameg%counter-prev-procedure�C�R44�6R�
h:]��C2gerr
		gs					C
h:]��C2gerr
		gs					C!&h:]��C2gerr
		gs					CEBh:]C2gt-9d6212d37ae-6465
		
		
CU/�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	�
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	�
��		
CDh]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�
�
��	�C5�R44t6R9TV]hih v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C]^h(�]	45$@6�gx
		"gtmp		"gfilenameflanguage/tree-il/peval.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5tR��^h �]�&	�C6�gs
		gval		gfilenameflanguage/tree-il/peval.scm�
�
��			gnameg"%set-counter-recursive?!-procedure�C_R44^6Rl�hZ]CRgt-9d6212d37ae-6493
		gt-9d6212d37ae-6494					CU/^0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	�
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	�
��		
C�h]C		
C]^hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/peval.scm�
�
��		nC5^R���h �]�&		�"	456xgc
		gfilenameflanguage/tree-il/peval.scm�
�
��	�	��		gnameg
abort-counter�C�R��@�h8�]	�&
�"	45
�$6�C�gc
		6ge		6gfilenameflanguage/tree-il/peval.scm�
�
��	�	��	�	��	!�	��	"�	��	'�	��	-�	��	0�	��	1�	��	4�	��		6gnamegrecord-effort!�C�R����h8�]	�&�"	45
�$6�C�gc
		6gs		6gfilenameflanguage/tree-il/peval.scm�
�
��	�	��	�	��	!�	��	"�	��	'�	��	-�	��	0�	��	1�	��	4�	��		6gnamegrecord-size!�C�R�����hP�]$E�&		�"	45&C�&		�"	456C�gdata
		Ogcounter		Ogfilenameflanguage/tree-il/peval.scm�
�
��	�	��	
�	��	)�	��	3�	��	M�	��		O	gnamegfind-counter�C�R��@��h �-.,3	#�&
�"	45#�&�"	45�&
�"	45�&
�"	4545���&�"	45�&�"	4545��C�gfrom
	gto	geffort		gsize		gfrom-v	��gto-v	��gfrom-balance	��g
to-balance	��gamount	��gfrom-v	�gto-v	�gfrom-balance	�g
to-balance	�gamount		gfilenameflanguage/tree-il/peval.scm�
�
��	�	*��	-�	��	8�	(��	P�	��	U�	��	o�	+����	����	����	����	����	����	����	����	����	����	����	����	����	)����	����	����	����	����	���	��	�	���	���	���	���	�� 			gnameg	transfer!�C�R��h(
]4545�Cgeffort-limit
		$g
size-limit		$gcontinuation			$gdata			$geffort			$gsize			$gfilenameflanguage/tree-il/peval.scm�
�
��	�	��	
�	��	�	��		$	gnamegmake-top-counter�C�R���hH]4
54
5�4>"GC	gcontinuation
		Agdata		Agcurrent			Ageffort			(gsize			(gc		(	Agfilenameflanguage/tree-il/peval.scm�
�
��	�	��			��	�	��	(�	��	+	��		A	gnamegmake-nested-counter�C�R������h�p]$4
54
5�&		�"	45�&		�"	45�4>"GChgeffort-limit
	�g
size-limit	�gorig		�gcurrent		�geffort		D	hgsize		D	hgcontinuation		D	hgdata		D	hgc		h�	gfilenameflanguage/tree-il/peval.scm�

��			��		
	��		��	,
	��	D		��	h		��	k	��		�	gnamegmake-recursive-counter�C�R�h N,
3
	�CFgvar
		 gsym		 gvisit			 gsource			 gvisit-count			 g	use-count			 g	copyable?			 gresidual-value			 gconstant-value			 galias				 
gfilenameflanguage/tree-il/peval.scm�

��		 	
gnameg%%make-operand-procedure�C�R44�6R��h Z,
3
	CRgt-9d6212d37ae-655a
		 gt-9d6212d37ae-655b		 gt-9d6212d37ae-655c			 gt-9d6212d37ae-655d			 gt-9d6212d37ae-655e			 gt-9d6212d37ae-655f			 gt-9d6212d37ae-6560			 gt-9d6212d37ae-6561			 gt-9d6212d37ae-6562			 gt-9d6212d37ae-6563				 
		 	
CU/�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
C�h]C		
C]^hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/peval.scm�

��		nC5�R7�;�ר4?�>"G	B��i��R�h]�$��CCwgobj
		gfilenameflanguage/tree-il/peval.scm�

��		gnameg%operand?-procedure�C�R44�6RE�h:]C2gt-9d6212d37ae-6582
		
		
CU/�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
C�h]C		
C]^hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/peval.scm�

��		nC5�R���h�]�&
�C6xgs
		gfilenameflanguage/tree-il/peval.scm�

��		gnameg%operand-var-procedure�C�R44�6R
h:]��C2gerr
		gs					C h:]��C2gerr
		gs					C#)/h:]��C2gerr
		gs					CEKh:]C2gt-9d6212d37ae-658e
		
		
CU/�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
CMh]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�

��	�C5�R��Nh�]�&�C6xgs
		gfilenameflanguage/tree-il/peval.scm�

��		gnameg%operand-sym-procedure�COR44N6R]dih:]��C2gerr
		gs					Clrwh:]��C2gerr
		gs					Cz��h:]��C2gerr
		gs					CE�h:]C2gt-9d6212d37ae-65a9
		
		
CU/N0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
C�h]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�

��	�C5NR���h �]�&	�C6{gs
		gfilenameflanguage/tree-il/peval.scm�

��		gnameg%%operand-visit-procedure�C�R44�6R���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					CE�h:]C2gt-9d6212d37ae-65c4
		
		
CU/�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
C�h]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�

��	�C5�R���h �]�&	�C6{gs
		gfilenameflanguage/tree-il/peval.scm�

��		gnameg%operand-source-procedure�C�R44�6R	h:]��C2gerr
		gs					C#h:]��C2gerr
		gs					C&,1h:]��C2gerr
		gs					CEMh:]C2gt-9d6212d37ae-65df
		
		
CU/�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
COh]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�

��	�C5�R��Ph �]�&	�C6�gs
		gfilenameflanguage/tree-il/peval.scm�

��		gnameg%operand-visit-count-procedure�CQR44P6R_fkh:]��C2gerr
		gs					Cntyh:]��C2gerr
		gs					C|��h:]��C2gerr
		gs					CE�h:]C2gt-9d6212d37ae-65fa
		
		
CU/P0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
C�h]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�

��	�C5PR���h �]�&	�C6~gs
		gfilenameflanguage/tree-il/peval.scm�

��		gnameg%operand-use-count-procedure�C�R44�6R���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					CE�h:]C2gt-9d6212d37ae-6615
		
		
CU/�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
C�h]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�

��	�C5�R���h �]�&	�C6~gs
		gfilenameflanguage/tree-il/peval.scm�

��		gnameg%operand-copyable?-procedure�C�R44�6R			h:]��C2gerr
		gs					C		 	%h:]��C2gerr
		gs					C	(	.	3h:]��C2gerr
		gs					CE	Oh:]C2gt-9d6212d37ae-6630
		
		
CU/�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
C	Qh]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�

��	�C5�R��	Rh �]�&	�C6�gs
		gfilenameflanguage/tree-il/peval.scm�

��		gnameg!%operand-residual-value-procedure�C	SR44	R6R	a	h	mh:]��C2gerr
		gs					C	p	v	{h:]��C2gerr
		gs					C	~	�	�h:]��C2gerr
		gs					CE	�h:]C2gt-9d6212d37ae-664b
		
		
CU/	R0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
C	�h]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�

��	�C5	RR��	�h �]�&	�C6�gs
		gfilenameflanguage/tree-il/peval.scm�

��		gnameg!%operand-constant-value-procedure�C	�R44	�6R	�	�	�h:]��C2gerr
		gs					C	�	�	�h:]��C2gerr
		gs					C	�	�	�h:]��C2gerr
		gs					CE	�h:]C2gt-9d6212d37ae-6666
		
		
CU/	�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
C	�h]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�

��	�C5	�R��	�h �]�&		�C6zgs
		gfilenameflanguage/tree-il/peval.scm�

��		gnameg%operand-alias-procedure�C	�R44	�6R



h:]��C2gerr
		gs					C

"
'h:]��C2gerr
		gs					C
*
0
5h:]��C2gerr
		gs					CE
Qh:]C2gt-9d6212d37ae-6681
		
		
CU/	�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
C
Sh]C		
C]^h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenameflanguage/tree-il/peval.scm�

��	�C5	�R44+6R9
c
e
phih v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C]^h(�]	45$@6�gx
		"gtmp		"gfilenameflanguage/tree-il/peval.scm�

��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5+R��
qh �]�&	�C6�gs
		gval		gfilenameflanguage/tree-il/peval.scm�

��			gnameg#%set-operand-visit-count!-procedure�C
rR44
q6Rl
�hZ]CRgt-9d6212d37ae-66af
		gt-9d6212d37ae-66b0					CU/
q0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
C
�h]C		
C]^hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/peval.scm�

��		nC5
qR��
�h �]�&	�C6�gs
		gval		gfilenameflanguage/tree-il/peval.scm�

��			gnameg!%set-operand-use-count!-procedure�C
�R44
�6Rl
�hZ]CRgt-9d6212d37ae-66bf
		gt-9d6212d37ae-66c0					CU/
�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
C
�h]C		
C]^hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/peval.scm�

��		nC5
�R��
�h �]�&	�C6�gs
		gval		gfilenameflanguage/tree-il/peval.scm�

��			gnameg!%set-operand-copyable?!-procedure�C
�R44
�6Rl
�hZ]CRgt-9d6212d37ae-66cf
		gt-9d6212d37ae-66d0					CU/
�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
C
�h]C		
C]^hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/peval.scm�

��		nC5
�R��
�h �]�&	�C6�gs
		gval		gfilenameflanguage/tree-il/peval.scm�

��			gnameg'%%set-operand-residual-value!-procedure�C
�R44
�6RlhZ]CRgt-9d6212d37ae-66df
		gt-9d6212d37ae-66e0					CU/
�0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
Ch]C		
C]^hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/peval.scm�

��		nC5
�R��h �]�&	�C6�gs
		gval		gfilenameflanguage/tree-il/peval.scm�

��			gnameg&%set-operand-constant-value!-procedure�CR446Rl@hZ]CRgt-9d6212d37ae-66ef
		gt-9d6212d37ae-66f0					CU/0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
CBh]C		
C]^hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/peval.scm�

��		nC5R��Ch �]�&		�C6�gs
		gval		gfilenameflanguage/tree-il/peval.scm�

��			gnameg%set-operand-alias!-procedure�CDR44C6RljhZ]CRgt-9d6212d37ae-66ff
		gt-9d6212d37ae-6700					CU/C0h^]L6Vga
		gfilenameflanguage/tree-il/peval.scm�	
��		CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm�	
��		
Clh]C		
C]^hp�]45$@45$O@45$4O?$@	
6	
6�gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenameflanguage/tree-il/peval.scm�

��		nC5CRm�����h�T-.,3###45$ �&		�"	45�"�&		�"	45$"

�CLgvar
	�gsym	�gsource		�gvisit		�galias		�gsource		0�g	copyable?		�galias		�gfilenameflanguage/tree-il/peval.scm�
(
��	(-	��	0-	��	8/	��	;/	$��	T/	��	\0	��	x0	��	.	��
	�		gnamegmake-operand�CnRfnh�]L6�gname
		gsym		gsource			galias			gfilenameflanguage/tree-il/peval.scm�
4	��	5	
��			Cnh�]L6�gname
		gsym		gsource			gfilenameflanguage/tree-il/peval.scm�
7	��	8	
��			Ch@�-.,3#$O6O6�gvars
		?gsyms		?gsources			?gvisit			?galiases			?gfilenameflanguage/tree-il/peval.scm�
2
��	3	��	.4	��	?7	��		?	gnamegmake-bound-operands�CoRfnh�]6�gvars
		gsyms		gfilenameflanguage/tree-il/peval.scm�
;
��	<	��			gnamegmake-unbound-operands�CpR�����
�h��]�$��&q
���$V�&G
��&+	��$�(�"""""""�&	�C6�gop
	�gval	�gw			gw		6	pgw		E	ggval	��gfilenameflanguage/tree-il/peval.scm�
>
��	A	���?	��	�	gnamegset-operand-residual-value!�CqR��P��P
qh@{]L�&	L	�"	4L5�L�&L	�CL6sgval
		9gfilenameflanguage/tree-il/peval.scm�
T		��	U	,��	U	(��	U	��		9
C��P
qh@{]L�&	L	�"	4L5�L�&L	�CL6sgval
		9gfilenameflanguage/tree-il/peval.scm�
e		��	f	,��	f	(��	f	��		9
C��P
qh@{]L�&	L	�"	4L5�L�&L	�CL6sgval
		9gfilenameflanguage/tree-il/peval.scm�
T		��	U	,��	U	(��	U	��		9
C������
��h8r]L�&L	�"4L>"GL6jgfilenameflanguage/tree-il/peval.scm�
[	��	_	��	1Z	��		1
gnamegabort�Cr���P
qh@{]L�&	L	�"	4L5�L�&L	�CL6sgval
		9gfilenameflanguage/tree-il/peval.scm�
e		��	f	,��	f	(��	f	��		9
C��P
qh@{]L�&	L	�"	4L5�L�&L	�CL6sgval
		9gfilenameflanguage/tree-il/peval.scm�
e		��	f	,��	f	(��	f	��		9
Ch��-.,3##�&		�"	45
�$POO4O>"GV�&		�"	45$�$"$"�$D4�&		�"	45�&		�"	45>�"y	UX4�&		�"	45�&		�"	454
O5>X"/G4
>"X4O>"GCX4O>"GFC�gop
	�gcounter	�gctx		�geffort-limit		�g
size-limit		�gtag	�\g_	I\gresults	I\gfilenameflanguage/tree-il/peval.scm�
I
��	!R	��	:R	��	?R	��	NS	��	fW	���W	���X	���X	 ���X	8���X	���Y	���Y	)���Y	���Z	���a	��b	��)c	��Ca	��LZ	��cS	��	�		gnameg
visit-operand�CsR�tuvwxy�z�{|
h��]�$C�$"K�$"=�$"/�$"!�$"�$"�$
4	5�C
�$"�$"�$4	5	�CC�gprimitive-name
	�gargs	�gfilenameflanguage/tree-il/peval.scm�
j
��	k	��	kn	��	sn	��	}k	���p	���p	��	�	gnamegtypes-check?�C}R�������h(�]	4M5$�C4M56�gsym
		&gv		&gfilenameflanguage/tree-il/peval.scm�
�	��	�	
��	�	��	�	��	�	��	�	��	�	-��	&�	��			&gnameg
lookup-var�Cf��������	h@�]	444�&
�"	455554M5NC�gvar
		?gnew	-	?gfilenameflanguage/tree-il/peval.scm�
�		��	�	��	�	��		�	-��	�	=��	'�	-��	)�	-��	+�	��	-�	��	-�	��	0�	��	<�	
��
		?Ch�]LO6|gvars
		gfilenameflanguage/tree-il/peval.scm�
�	��	�	��		gnameg
fresh-gensyms�C���
�h@�]	�&		�"	45��&	�C6�gop
		9gval		9gfilenameflanguage/tree-il/peval.scm�
�	��	�	#��	�	��	�	��		9gnamegrecord-operand-use�C���q
�h`�]
�&		�"	45�
�$4>"G"�&	�C6�gop
		Zgn		Zgcount		 	Zgfilenameflanguage/tree-il/peval.scm�
�	��	�	��	 �	��	 �	��	%�	��	*�	��	+�	��	D�	��			Z	gnamegunrecord-operand-uses�C��q������Nh�-.,3##4L>"G&"�$4>"G"�&
�"	45�&
�"	4	5�&�"	4
56�gop
	�gctx	�gval		�gs		{�gfilenameflanguage/tree-il/peval.scm�
�	��	�	��	8�	��	F�	��	G�	��	d�	#��	{�	����	5����	��
	�	gnamegresidualize-lexical�C�����hH�]"%�$456456�$�(�C"���"����gsrc
		Egvalues		Egfilenameflanguage/tree-il/peval.scm�
�	��		�	��	�	��	�	7��	�	��	�		��	�	��		E	gnamegmake-values�C��f���{r|��hH�]L�$"L�$4L>"44L5L>GD�gresults
	=	Ggfilenameflanguage/tree-il/peval.scm�
�	��	�	��	�	��	*�	��	-�	��	<�	��	@�	
��	G�	��			G
Chr-13Djg_
			
gfilenameflanguage/tree-il/peval.scm�
�	��	�	��	
�	
��			


C�����ho]L6ggt-9d6212d37ae-6b11
		
gfilenameflanguage/tree-il/peval.scm�
	%��		
C��}h�]45$�454O>G$C	�$
6�$�$	�664
O56456"456	&45$
6"���"���gsrc
	�gname	�gargs		�gctx		�gmake-values		�gargs			2gsuccess?		3�gvalues		3�gfilenameflanguage/tree-il/peval.scm�
�	��	�	��	�	��	�	*��	�	��	�	��	6�	��	@�	��	I�	��	O�	��	X�	��	[	��	_	��	f	#��	h	��	m	$��	o	��	t	 ���	����	����	����	����	����	���	����	���	���	���		��	�	gnamegfold-constants�C����������������������������z���������������.h�0
]i"�"�"�"�"�"s""�"V"��$��&7
��	�	�4L5$6C�&7
��	�	�4L5$6C�&�
��45�$45"$	�"$
4	
56"��$Y45�$<�((�	4L	5

$4

56C4	
564	
56�$����"��}4	
56"��a4	
564	
56�$��&�
��	��$��&w
��	�	�	�	�		�
	�	�&/4L5

$4	

5	6C"���"���"���"���"����$M�&@
��	�	�	�4L5$6C"��V"��R�$V�&I
��	�	�	�	�4L5$6C"���"����$M�&@
��	�	�	�4L5$6C"���"����$�&C"��w"��s�$�&C"��Y"��U�$�&C"��;"��7�$�&C"��"���$��&~
���$g�&Z
��&C	�L45�$,L$L45�"$4 L56CC"���"���"���"���"��"�"i""�"|"-�$"�&3L�$)L$L�"$L4 L56CC�!&3L�$)L$L�"$L4 L56CC�"&3L�$)L$L�"$L4 L56CC�#&3L�$)L$L�"$L4 L56CC�$&3L�$)L$L�"$L4 L56CC�%&3L�$)L$L�"$L4 L56CC�&&3L�$)L$L�"$L4 L56CC�&q
���$Z�&M
��4'5$3L�$)L$L�"$4 L56CC"��F"��B"��>"��:"��6�$@�(&3L�$)L$L�"$L4 L56CC"���"����$@�)&3L�$)L$L�"$L4 L56CC"��="��9�$@�*&3L�$)L$L�"$L4 L56CC"���"����$@�+&3L�$)L$L�"$L4 L56CC"���"����$@�,&3L�$)L$L�"$L4 L56CC"��P"��L�$@�-&3L�$)L$L�"$L4 L56CC"��"���(
gexp
	�gw	>	qgw		D	qgw		K	qgw		R	qgbody		[	qgw	~�gw	��gw	��gw	��gbody	��gw��gw	��gtail-len	��glen	��gls		�gn		�gp-ls		�ghead	kgw		,Qgtail	
5Qgw	u�gw�tgw	�tgw	�tgw	�lgw	�lgw	lgw	
lgw	lgw		lgw	
"lgw	)lgw	0lgbody	
@hgw��gw	��gw	��gw	��gw	��gbody	��gw�-gw	�-gw	�-gw	�-gw	-gw	
-gbody	-gwI�gw	O�gw	V�gw	]�gw	d�gbody	m�gw	�gw	�gw	*{gw	9wgw[�gw	a�gw	|�=gfilenameflanguage/tree-il/peval.scm�
	��		��	UG	��	[G		��	cH	��	oI	��	t	���K	���K		���L	���M	���	���O		��/Q	��5Q	��=R	��BS	&��KS	3��MS	&��OS	��RO		���	��:A	��@A		��HB	��OD	!��fC	��l	���<	���<		���=	���>	���	��
8	��8		��9	��+:	��1	��g4	��m4		��u5	���6	���	��>%	��E%	��I%		��O%	&��R%	>��Y%	5��^%	*��b%		��g&	$��k&	4��o&	$��s&	��{	��� 	��� 		��� 	��� 	)��� 	��� 		���!	$���!	4���!	$���!	B���!	���	��� 	��� 		��� 	�� 	)�� 	��
 		��!	$��!	4��!	$��!	B��!	��%	��/ 	��3 		��9 	��= 	)��B 	��F 		��K!	$��O!	4��S!	$��X!	B��Z!	��a	��k 	��o 		��u 	��y 	)��~ 	��� 		���!	$���!	4���!	$���!	B���!	���	��� 	��� 		��� 	��� 	)��� 	��� 		���!	$���!	4���!	$���!	B���!	���	��� 	��� 		��� 	��� 	)��� 	��� 		���!	$��!	4��!	$��!	B��!	��	�� 	��# 		��) 	��- 	)��2 	��6 		��;!	$��?!	4��C!	$��H!	B��J!	��Q	��� 	��� 		��� 	��� 	)��� 	��� 		���!	$���!	4���!	$���!	B���!	���	��� 	��� 		��� 	��� 	)��� 	��� 		��!	$��!	4��!	$��
!	B��!	��	��/ 	��3 		��9 	��= 	)��B 	��F 		��K!	$��O!	4��S!	$��X!	B��Z!	��b	��z 	��~ 		��� 	��� 	)��� 	��� 		���!	$���!	4���!	$���!	B���!	���	��� 	��� 		��� 	��� 	)��� 	��� 		���!	$���!	4���!	$���!	B���!	���	�� 	�� 		�� 	�� 	)��# 	��' 		��,!	$��0!	4��4!	$��9!	B��;!	��C	��[ 	��_ 		��e 	��i 	)��n 	��r 		��w!	$��{!	4��!	$���!	B���!	���	���	�gnamegloop�Ch(�]
OQ6�gsrc
		!gexp		!gnmin			!gnmax			!gconsumer			!gloop			!gfilenameflanguage/tree-il/peval.scm�

	��		��		!	gnameg
inline-values�C�h�]4M56�gx
		
gfilenameflanguage/tree-il/peval.scm�
X	��	]	��	
]	��		
gnamegconstant-expression?�C����h0�]L&C�&		�"	45
��C�gop
		+gfilenameflanguage/tree-il/peval.scm�
f	��	m	��	
m	��	m	
��	n	��	(n	��	*n	
��		+gnamegreferenced?�Cfqh y]4>"GCqgop
		gval		gfilenameflanguage/tree-il/peval.scm�
�	"��	�	$��			C���	S���O�����	R��qs���hT]^OQ"�"�
(�45

�$�445455$<45(C44	
5545456("4544
�55(C4
544	
5545456
	"��
�
4
5$
�
"���
�&	
	�"	4
5$
�
�
"���&"
�&	
	�"	4
5
��$14
4
5>"G
�
�
"��^
�4
545$"
��
"��&	
"��45	"���Lgops
	g	in-order?	gbody		gcounter		gctx		gbuild-result		greferenced?		
gold		gvalues		geffects			gops*	
	�gvalues		�geffects		�gnew	
	&geffects		J�gvalues		[�geffect-vals	��gbody	��gvalues	��gop	
�geffect	��gfilenameflanguage/tree-il/peval.scm�
_	��	�	��	�	��	�	��	�	��	&�	
��	-�	��	1�	��	2�	��	7�	"��	@�	4��	J�	��	J�	��	Rt	��	Sv	��	[v	��	cw	
��	iy	��	ly	!��	xy	��	yz	���{	���y	���	����	&����	����	����	'����	0����	'����	���~	����	
����	����	����	����	#����	����	����	����	����	"���	���	���	
��	�	���	���	��&�	��)�	��E�	��H�	��M�	��Y�	��]m	��am	��bm	
��in	���n	���n	
����	����	����	.����	H����	.����	����	����	����	����	����	 ����	:����	 ����	����	����	����	����	����	���	���	���	4���	B���	��U		gnamegprune-bindings�C��hx]�Cpgx
		gres		gfilenameflanguage/tree-il/peval.scm�
�	��	�		��			Chx]�Cpgx
		gres		gfilenameflanguage/tree-il/peval.scm�
�	��	�		��			C�h�]L�$CL6�gx
		gres		gfilenameflanguage/tree-il/peval.scm�
�	��	�	
��	�		��	�	��			Ch@�]U%4O
>"GXCXFGE�gx
		@glimit		@gtag			@g_		5	@gresults		5	@gfilenameflanguage/tree-il/peval.scm�
�	��	�	��	�	��	8�	��		@	gnamegsmall-expression?�C���Nh0�]�&�"	45456�gsym
		-gop		-genv			-gfilenameflanguage/tree-il/peval.scm�
�	��	�	��	!�	%��	-�	��		-	gnameg
extend-env�C������h0�]
�$ �&
��6CC�gx
		,gr		,gw			&gfilenameflanguage/tree-il/peval.scm�
�	
��	�	��	&�	��		,	C���������hH�]	4M5$�"44M55�&	�C6�gsym
		Fgv		-gs	-	Fgfilenameflanguage/tree-il/peval.scm�
�	��	�	
��	�	��	�	��	�	��	�	��	�	��	"�	-��	*�	��	-�	��		Fgnamegassigned-lexical?�C����������	Rs����h��]"45$�454L5$�"	45$��&
�"	45�	&		�"	4
5$D�&		�"	45$";4L
	
	
5$"�&		�"	45"n454M5$�"44M55�	&		�"	45�$4L5DD45$m454M5$�"44M55�	&		�"	45�$"��,"��"��D�$DD�gx
	�g	n-aliases	�gvar			=gt			:gt		=�gs		_	gt	��gt	��gy	��gsym	�Kgv	(gs	(Hgsym	t�gv	�gs	��gfilenameflanguage/tree-il/peval.scm�
�	��	�	��	
�	��	�	��	�	
��	�	��	�	��	/�	
��	3�	��	7�	
��	=�	��	H�	��	_�	����	����	����	 ����	����	 ����	:����	 ����	����	 ����	����	,����	����	
���	���	���	���	���	���	-��%�	��(�	��N�	��R�	��S�	��^�	��b�	��b�	��c�	��m�	��n�	1��t�	��w�	
���	����	����	����	����	����	-����	����	����	����	����	����	
����	����	����	����	
��>	�	gnamegfind-definition�C�h�]LLL6�gexp
		gfilenameflanguage/tree-il/peval.scm�
�	��	�	*��	�	��		gnameg	for-value�C������h��]!�$y�&n
���$Z�&O
��&:	�(C�$"�(�44M55$CCCCCCCCC�gx
	�gw	�gw		6	|gw		E	zgw		`	vgfilenameflanguage/tree-il/peval.scm�
	��			��	c]	��	f]	��	n]	��	r		��	�gnamegmake-prompt-tag?�C��hy]L6qgval
		gop		gfilenameflanguage/tree-il/peval.scm�
	��		
��			Chy]4L>"GLCqgval
		gop		gfilenameflanguage/tree-il/peval.scm�
	��		��			C���h0�]4L5$4L5$
4L5L6CC�gval
		)gop		)gfilenameflanguage/tree-il/peval.scm�
"	��	#	��	
#	
��	$	��	#	
��	%	��	%%	��		)	C���r����	hp>]
4L	>"G4L445454544L54L55��54LLLLL55LLLL66gval
		ngop		ngexp		`	ngfilenameflanguage/tree-il/peval.scm�
&	��	-	��	/	��	1	��	 1	'��	%1	>��	'1	'��	(2	'��	-2	>��	/2	'��	03	'��	53	>��	73	'��	82	$��	;4	(��	B5	'��	K2	$��	Q1	��	R�	��	`/	��	`.	��	n�	��		n	C���f������������p���Nh(�]	4L5��&�C6�gold
		$gs		$gfilenameflanguage/tree-il/peval.scm�
�	��	�	+��	�	&��	�	��		$gnamegnew-sym�C��������i�h�]LLL6ygt-9d6212d37ae-8149
		gfilenameflanguage/tree-il/peval.scm�
�	!��	�	:��	�	!��		C������������z������i����h �]L6�gvar
		ggensym		ginit			gbody			gfilenameflanguage/tree-il/peval.scm�
i	*��	k	6��	l	6��	m	6��	j	,��			Chx)]HL
LL	��$JL4LL$L"L$	L"5L4LL$45"5L6L
LL	��$QL4LL$L"L5L44LLL	�54454LLL	�555L64	LLL	�>G4	L
>G4	4LL5L
>GL$	L"GL$45"G4LL
L�>GL45454L54
LOL56!gnon-rest-gensyms
�vgrest-gensyms�vgprovided-gensyms	�vgdefault-gensyms	�vg
provided-vars	�vgdefault-vars	�vg	rest-vars	vg
rest-inits	'vg
default-inits	<v	gfilenameflanguage/tree-il/peval.scm�
(	��		*	��	
*	��	)	��	,	��	-	$��	$-	,��	*.	$��	/.	-��	4.	9��	6,	��	90	��	C1	$��	D2	.��	H2	=��	J2	.��	M2	(��	R3	(��	T0	��	X+	��	_5	��	`5	��	d)	��	i7	��	s8	$��	z8	,��	9	$���7	���;	���;	$���;	4���;	$���<	*���>	+���>	B���>	+���?	+���?	;���?	+���<	*���<	$���;	���6	���X	���X	*���X	���V	���Z	���V	���\	���\	"���\	���V	��^	��^	!��^	-��V	��`	��a	"��a	1��a	"��!a	��&b	��*V	��-d	��6d	$��;d	��?V	��Ff	��Og	��Xh	��ai	��ve	��J	v
gnameginlined-application�Cm�D���C^����f�h0�]4L4LLLL54LL55L6�gtmp
		)gfilenameflanguage/tree-il/peval.scm�
�	��	�	��	�	��	�	*��	�	��	�	)��	�	��	�	��	)�	��
		)
gnamegabort�C���������������������{����
h`G]	H44L&"54L54�55K�(JC	LJ454L�56?gelts
		Zgtest		Zgfilenameflanguage/tree-il/peval.scm�
	��		��	
	 ��		,��		��		3��		8��		 ��	 		#��	%		8��	)		#��	*
	#��	0
	2��	2
	#��	5		��	7	��	<	%��	@	��	J	0��	Q	0��	V	4��	X	0��	Z
	��		Zgnameglp�C��i����hX]LLLL6Pgfilenameflanguage/tree-il/peval.scm�	�	1��	�	��		
C�������ho]6ggt-9d6212d37ae-9754
			gfilenameflanguage/tree-il/peval.scm�
�	��			Cr��������������������������h`�
]I"�"�"|454	�M5NL445	54	4
554LL4L4LLL5556�$s�&LL4L4LLL556�
&LL4L4LLL556�&LL4L4LLL556"��
"���$��&�
��"�"|454	�M5NL445	54	4
554LL4L4LLL5556�&LL4L4LLL556�
&LL4L4LLL556�&LL4L4LLL556"��"D�&7
��	�(LL4L4LLL556"���"����$L�(A�	�"�"|454	�M5NL445	54	4
554LL4L4LLL5556�&LL4L4LLL556�
&LL4L4LLL556�&LL4L4LLL556"��"D�&7
��	�(LL4L4LLL556"���"����$��(��	�"�"|454	�M5NL445	54	4
554LL4L4LLL5556�&LL4L4LLL556�
&LL4L4LLL556�&LL4L4LLL556"��"D�&7
��	�(LL4L4LLL556"���"����$��(�"�"|454	�M5NL445	54	4
55	4LL4L4LLL	55	5	6�&LL4L4LLL556�
&LL4L4LLL556�&LL4L4LLL556"��"D�&7
��	�(LL4L4LLL556"���"����$0�&#	�4L56"���"���"��+"��'"���"���"��i"��e�&7
��	�(LL4L4LLL556"��"��"���$S�&F
��4L5$*	�	�LL4L4LLL556"���"���"����
g	alternate
	`gt	�gfailure		f�gw�gw	"�gt	3�gfailure	��gw	7_gw	t�gw	{�gt	�gfailure	��gw	��gw	��gw	��gt	�Zgfailure	6Xgw	�gw	&�gt	7�gfailure		��gw	;cgw	|�gw��gwXgw	/Tgw	6Tgfilenameflanguage/tree-il/peval.scm�
[	��	\	��	
=		��	C	��	C	��	C	��	C	��	�	��	 D	%��	(�	!��	,�	��	.�	��	4F	��	7F	��	<F	#��	=H	��	AI	��	BJ	��	FJ	&��	JJ	3��	KJ	7��	PJ	��	RH	��	UG	��	VK	��	ZK	*��	_K	?��	cK	*��	dL	'��	fK	��	fK	��	iv	��	px	��	sy	���x	���v	���E	���=		���x	���y	���x	���v	���=		���x	���y	���x	���v	���=		���x	���y	���x	��v	��=		��\	��(=		��-C	��1C	��3C	��3C	��6�	��>D	%��F�	!��J�	��L�	��RF	��UF	��ZF	#��[H	��_I	��`J	��dJ	&��hJ	3��iJ	7��nJ	��pH	��sG	��tK	��xK	*��}K	?���K	*���L	'���K	���K	���v	���x	���y	���x	���v	���E	���=		���x	���y	���x	���v	���=		���x	���y	���x	���v	���=		��x	��y	��x	��v	��=		��Fx	��Iy	��Wx	��[v	��_=		��c\	���=		���C	���C	���C	���C	����	���D	%����	!����	����	���F	���F	���F	#���H	���I	���J	���J	&���J	3���J	7���J	���H	���G	���K	���K	*���K	?���K	*���L	'���K	���K	���v	���x	���y	���x	���v	��E	��=		��x	��y	��"x	��&v	��)=		��6x	��9y	��Gx	��Kv	��N=		��[x	��^y	��lx	��pv	��t=		���x	���y	���x	���v	���=		���\	���=		���C	���C	���C	���C	����	���D	%����	!����	����	��F	��F	��F	#��
H	��I	��J	��J	&��J	3��J	7�� J	��"H	��%G	��&K	��*K	*��/K	?��3K	*��4L	'��6K	��6K	��9v	��@x	��Cy	��Qx	��Uv	��ZE	��Z=		��jx	��my	��{x	��v	���=		���x	���y	���x	���v	���=		���x	���y	���x	���v	���=		���x	���y	��	x	��
v	��=		��\	��,=		��1C	��5C	��7C	��7C	��:�	��BD	%��J�	!��N�	��P�	��VF	��YF	��^F	#��_H	��cI	��dJ	��hJ	&��lJ	3��mJ	7��rJ	��tH	��wG	��xK	��|K	*���K	?���K	*���L	'���K	���K	���v	���x	���y	���x	���v	���E	���=		���x	���y	���x	���v	���=		���x	���y	���x	���v	���=		��x	��	y	��x	��v	��=		��Jx	��My	��[x	��_v	��c=		��g\	���k	���k	&���k	1���l	���j	���=		���x	���y	���x	���v	���=		��\	��_	'��*\	��?c	��Bd	��Pc	��Ta	��X\	��.	`gnameglp�C��t�hx�]Q"��$��&�
���$��&~
��	�	��$Z�&N
��&9	�	�	O	

LLLQ

	6CCCCCCC�$��&�
���$��&}
���$g�&Z
��&C	��$1�(&�	�	�45"���"���"���"���"���"���"���"���"���"����gc
	ugw	�gw		 �gw		6�gw		<�gw		C�gw		J�gw		e�gw		s�gw			z�glp	
��gw�mgw	�mgw	�egw	]gw	Ygw	.Qgw	5Qgw	<Qgfilenameflanguage/tree-il/peval.scm�
M	��	N		���[	���N		��?T	
��QS	��UN		��	ugnamegsimplify-conditional�C�����������hW]L6Ogfilenameflanguage/tree-il/peval.scm�
&	��	'	��		
Chc-13C[gargs
			gfilenameflanguage/tree-il/peval.scm�
&	��			


C������������������������h�]LM6�gexp
		gcounter		gctx			gfilenameflanguage/tree-il/peval.scm�
�	��	�	��			gnamegvisit�Co�h�]L6�gnames
		ggensyms		gvals			gbody			gfilenameflanguage/tree-il/peval.scm�
�	��	�	��			C�h�]LM6�gexp
		gcounter		gctx			gfilenameflanguage/tree-il/peval.scm�
�	��	�	��			gnamegvisit�C�h�]LL6�gnames
		ggensyms		gvals			gbody			gfilenameflanguage/tree-il/peval.scm�
�	��	�	��			C���������
h�]�$��&z
��	�4L5$�"	45�&
�"	45�&		�"	4	5$CCCC
gexp
	�gw	!�gt		,	Ggop		G�gs		c�gfilenameflanguage/tree-il/peval.scm�
�	��	�		��	$�	��	,�	��	<�	
��	@�	��	D�	
��	G�	��	L�	"��	c�	����	��	�gnameglookup-alias�Ch�]LL6�gexp
		gcounter		gctx			gfilenameflanguage/tree-il/peval.scm�
�	(��	�	*��			C���h0�](4>"G"L6�gnames
		.ggensyms		.gvals			.gbody			.gfilenameflanguage/tree-il/peval.scm�
�	��	�	��		�	/��	
�	6��	�	/��	.�	��		.	C����������������h(�]	454�M5NC�gelt
		$gnew			$gfilenameflanguage/tree-il/peval.scm�
�		��	�	��	�	��		�	��		�	��	�	��	�	$��	�	!��	�	��	!�	��		$C�h�]6�gt-9d6212d37ae-af4a
		gt-9d6212d37ae-af4b		gfilenameflanguage/tree-il/peval.scm�
�	"��			C���N	���	����h0�]	45$C45$C6�gx
		,gt			,gt		,gfilenameflanguage/tree-il/peval.scm�
%	��	%	"��		%	��	%	-��	%	��	,%	7��		,Cs�
���h8/�?,35OOLQLQ$4>"G"".�".�"+�"*�"%�"$�"#�""�"!�" ("�"�"C"�"�""�"�"d" "�""�"�"":"�"-"?�$+�&�
��	�	�	O
LQ
4L54L54>G
4
O
?$
	LO
@4	>G4

O?$L	LO@4L	56�
&C
��	�	�	4L5454L	56456456�$��&�
��"��$��(:�
	(
"���44L
5	�56��
4L
545$4455		"��|45$		"��e	�	"��V456	"��>"���"����$X�&K
��	�	�		�
	�	�	�
	�4L54L54L455OQ4L
5$"x	$q
$"b�$Z�&L
���$2� &$
��!&		��$����$��"&�
��	��$��&�"�(04#5�$4$5$"k"e"`�$F��$2�%&$
��	���"���""""��m"""""""""""$C&	
�$�
�
�"�(?4#54#54#54'455�"��$~��$j���$N���$2�(&�����"��\"4"/"$"""�� "4(LO5$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"���"���	�$�	�"&�	
�	�		�

�$�
�&�

�
�
	�
	�

	�&}
	�
	�
	�
	�&V455455$455"
4/	M5$�"	6O
Q�$"
$"��$04L154564748595$"4:5$�485$��;&		�"	4<=5$e"U&"Q�;&	�"4<>>"G�;&		�"	4<?5"���"���""45"���@U�HHAOLQ485$4BLL5""$4C5"
4DLL5K4L45J5K$4EJ>"G"JXCXFGE"��"��"��
"��"��"���	�$T	� &G	
�	�
4F
5$-454L

5$C0	6"���"���"���	�$|	� &o	
�	�
4G
5$U
45�"Y"k"�"�""�"?�$+��4L

5

$
C0	6456�$5��
"
�$
�
��$��(���$��H&�
���$��$(44)55"��f*�$�4I5$>
J�$K"
L�$M"+44N55$"6()44+55"���4OP54554.QR�M5N44RSO
Q455"��m4I5$4
J�$K"
L�$M"+44N556()44+55"��0	4+56"���"���"���"���"���"���J&"���L&"���"���"����$���
T&r
�$g
�(\
��$L�H&?
���$(��4+5"��;"��"���"���"���"���"���"����$���
U&r
�$g
�(\
��$L�H&?
���$(��4+5"��"��k"��g"��c"��_"��["��W"��S�$���
T&�
�$�
�(�
��$��&�
���$s� &f
��V&O	��$=��4404WV555"���"���"���"���"���"���"���"��}"��y"��u"��q�$���
U&�
�$�
�(�
��$��&�
���$i� &\
��V&E	��$3��4455"��"���"���"���"���"���"���"���"���"���"����$���
T&�
�$�
�(�
��$��&�
���$� &r
��X&[	��$I���$4�()�45"�� "���"���"���"���"���"���"���"���"���"���"���"����$���
U&�
�$�
�(�
��$��&�
���$� &r
��X&[	��$I���$4�()�45"��6"���"���"���"���"���"���"���"���"���"���"���"���"��"��"��	�$~	� &q	
�	�
4Y
5$W"k
45��$I��
X&)
�$
�
�"��0	6�$��(��"�ZO	Q�$q�&d
���$I� &<
��V&	�04WV5�60	66666�$7�H&*
��&04WV56"��4"��0"��,"���"���
0	6
0	6456&"*�$�
�""�"�"|�$p��
[&S
�$G
�(;
��$'�H&
��4\5"""	""�"�
"��$$�(�[&"�"��`"��Y"��U�$��]&"�"��0"��)�$��V&"x"��"����$b��
X&B
�$3
�
��$�(	�""���""���""���""���
""���$D&
4)5"4+54455"��"���"���"��"��"��4L,5	"��l"��"���$��&�
���$|� &o
��"D	�		�$2	�	�
4^_5�$4^5"

$	
�"$"��v"��$�4#5�$��(��"x"""I$4L5"���445504L
5�6�$��&�
���$�� &�
��V&y	�"f((40
455"����$-�$4`4M55"$	�"���"��"��"���"���"���"���"���"����$��&�
���$�� &�
��X&�	��$���$4`4M55"$j�$_�(T�$4`4M55"$040
45�5"��"��"��"��
"��	"��"��"���"���"���"����$V�H&I
���$34a540
455"��4"���"���"���45"��w"��"���$����"��%"��
"��"��b&"���!&"���"��d"��`"��\"��X"��T�$��&�
���$�� &�
��&�	�		(&)6C4	5
"04W5
6�$"*�$"�$"
��$<4cd
5$+44
�
�55"���"���"��~"��_"��["��W"��S"��O�$L�&?
���$(� &
��e&	�		�$�	�	�
�$��(���$��"&�
��	�

�$�
�&�
�
�
	�&p
	�
	�&X
	�(G
	�
	�
	�&)4f40
5
5"��"��0"��,"��("��$"�� "��"��"��"��"��"��"��"��"��"��"����$��g&�
��	�	�	hO
L
Q
4L*5"'
4i4L54L	556�$F�H&9
��$"��	"��"���"���"��$"�� �$-� & �$)6*�$+6C"���"����$5�j&(
��	�k4L56"��"���$5�l&(
��	�m4L56"��`"��\�$G�n&:
��	�	�		�
o	4L
56"��
"���$�p&C"���"����$��p&x
��	�4F5$V	�		&D4qrOs5
4t
5$%4u
54uv5&W6CC"��_"��["��W"��S�$�w&C"��8"��4�$d�w&W
��4F5$=4/M5$C4xL54y5$"��SC"���"���"���$@�z&3
��	�{4L54L56"��v"��r�$,�|&
��}4L56"��;"��7�$L�~&?
��	�	�	45454L	56"���"����$���&�
��	�	�	4L54L54L	5
4`4M
55$b4`4M55$�
64O�5
4.
Q�
�M5N4�
4�
4��
5564`4M55$F4O�5
4.
Q�
�M5N4�

4�4��
5564O�54O�5
4.
Q�
�M5N4.Q��M5N4�

4�4��
54��556"��D"��@�$&��&
��	�4L5	�$��&�
��
	�	�	�

&�	�	�	�	�&a45
5$"$455"
�4L
	5$4L5"""

""

$
Cf	4L56"��"���$���&�
��	�	�	�	HH
HHH
�O
LQ4L5K
4LJ
5K4�J
J5K4LJ5K
4L	J
5K4IJ5$JCLJJ�O6"��Q"��M�$���&�
��	�	�	�		�
HHH
HH�OLQ4L5K4LJ5K4�JJ	5K
4LJ
5K4L
J5K"LJ
J�O64IJ5$4cL		5$JC"���"���"��p"��l�$R�2&E
��	�	�	�	�O
Q
4L54L54��LO4
55
4L
54L	54I5$)4455"��I"L
�O64�5$l4K4�55$V4�54�5444�4��554�555"�پ"��u"��q"��"���$��2&s
��4^�5�$4^5"		$		�"$"�ٵ"�$�4#5

�$�
�(�
�	�4^�5�$4^5"$	�"$"��O"|�$N4#5�$:�(/�	�4^�5�$4^5"$	�"$"���"��$�4#5�$��(���$}�&p
���$Z� &M
�� V &6	�!	�""�$"�&"
�#"�$$�$�$� &�$
�$�%"�"	�&&�$�&�&�('4^�5)(�$4^(5"**$	*)�"$"���"\,)�$.4#-5.+�$+�(+�//�$�/�%&�/
�/�00&�/	�11&�4/1M522$2�"4��14�M55222�Q&	2	�"	4<2�52�$s4�45!5�524�LO253444
254354!540#'4.4�23555544"��s"���"���"��"�ּ"�ָ"�ִ"�ְ+�$+�.+�,�.-�-,+"���"�֋(*-,+"���"��xb%&"��3!%&"��'"��\"��X"��T"��P"��L"��H"��D"��@"��<"��8"��4"��0�$����"��*"��"��"��"����$����"���"���"��u"�ռ"�ո
�$
�

��
�
"���"�Փ	
"���"�Հ"��|�$���&�
��	�	�	4/5

$
�"	4��5


��&

�"	4<
�5�Q&		�"	4<�5
�$.4L	545$C4)564L
>"G�
��&
�"	4<
�54L	56"��u"��q�$��%&�
��	�"�&)6��&			�"	4<�5$"���1&L6��&
�"	4<�5		�Q&			�"	4<	�5	$L6��&		�"	4<�5$�47��&		�"	4<�5�5$1��&		�"	4<�5		"��4�&"LL5		$p4`4M	55$.4I	5

$"4	5$"4y	5
$F&"�$-��&		�"4<�>"G"	C��&
�"	4<�5

�Q&	
	�"	4<
�5
�$	C,&1"
L	64:	5$4L	L5$	C"���"���"
L	64L	L5$4�:	5$"���	C"�����&	�"4<�>"GL	6L6L64/5$�"	4��5"��5"��y"��u�$��&*�$+6C"��K"��G�$�H&�$)6C"��"���?gexp
	/5genv	/5gcounter		/5gctx		/5gfind-definition		/5g	for-value		/5gw	��gw	��gw	��gw		��gmake-prompt-tag?	
��gtag	�gbody	�gvals	
 �gvals	O�gw	��gw	��gw	��gw		��gw	�gw	�gexps	�geffects		�gw	
/fgw	
l�gx	l�ghead	}�gw	�Cgw	Cgw		Cgw		Cgw	
Cgw	Cgw	%Cgw	
,Cgw	3Cgvars	>Cgnew	GCgenv	]Cgnew-sym	gCgbody	yCgw	��gw	��gw	��gw	��gx	��gw	�gls	"�gp-ls	"�gsym	/Xgw	b�gw	��gt	�Cgw	 gx	 gls	(�gp-ls	(�gp-ls	(�gp-ls	(�gold	Cmgname	Cmgkw	Cmgw	w�gw	��gx	��gw	��gx	��gw	��gw	_�gw	e�gw	l�gnew		��gx	
��gw	�gw	�gw	�gproc		�gw	
i5gt	z�gv	�gw	�gw	
�gw	�gw	�gw	�gexp	�gw	
\gw	wgw	~gw	
�gw	�gw	�gw	�gw	�gw	�gnargs	�gnreq	�gnopt	�gx	��gkey	�ginlined-application		gt		-	Pgt		�	�gfound		�
7gcounter		�
$gtag	
Sgnew-counter	
^
�gresult	
^
�gabort	
q
�gt	
�
�g_	gresults	gw	
?}gargs	Uygt	dygw	
�gv	�gx	�gt	
�gw	!Pgx	
!Pgw	60gx	60gw	K(gw	f gexp	��gmember	��gexp	

!gt	
(
�grefcount	
1
Mglp	
l
�gexp	
�
�gmember	
�
�gexp	
�gw	a�gx	
a�gw	~�gw	��gw	��gx	��gexp	��gw	�vgx	
�vgw	jgw	'bgw	-bgw	9^gexp	H^gw	�Tgx	
�Tgw	�Hgw	�@gw	�@gw	�8gw	�4gw	�0gx	�0gexp	0gw	e(gx	
e(gw	�gw	�gw	�gw	�gw	�gw	�gx	�gexp	�gw	9gx	
9gw	Vgw	l�gw	r�gw	��gw	��gw	��gx	��gw	��gexp	��gw	#�gx	
#�gw	@�gw	V�gw	\�gw	w�gw	��gw	��gx	��gw	��gexp	��gw	
%�gv	B�gw	Q�gx	
Q�gw	jxgx	jxgx	u�gw	�pgfailure	�.gw	�&gw	�&gfailure	�&gw	�gw	�gw	Bhgw	Hhgx	z�gx	��gv	�9gw	�Egx	
�Egw	�0gw	#gw	[qgw	��gw	��gw	�.gx	
�.gx	�gres	V�gexp	k�gw	�Sgw	�Sgw	�Kgw		�/gw	
�+gx	�+gtail-len	
+glen	
+gls	=gn	=gp-ls	=gargs	M�gw	`�gtail*	f�gspeculative?	f�gargs	��gw	�~gw	�vgw	�rgls	jgexp	2gw	<fgw	�ugw	�mgw	�igw	�egx	�egw	Ygexp	?Ugw	��gargs*	��gexp	��gw	gw	oTgw	uTgw	�Lgw		�Hgvals	
�Hgexp	*@gw	p�gw	v�gw	��gw		��gw	
��gx	��gw	��gw	
��gw	�gw	gw	({gw	Awgexp	]sgw	�{gw	�{gw	�{gw		�{gsimplify-conditional	
�{gv	�{gw	Csgw	��gw	��gw	��gw	3gw	3gw	3gw	O�gw	U�gw	\�gw		c�gw	
j�gw	�0gw	�0gw	�0gw		�,gmodule	
�(gvar		%gw	l�gexp	��gw	� gw	� gw	� gw	 ! <gw	 ' <gw	 X �gw	 ^ �gw	 e �gw		 l �gw	 �"+gw	 �"+gw	 �"+gw		 �"+gpre	
 �"+gbody	 �"+gpost	 �"+gpost-sym	
!%!dgpre-sym	
!{!�gpre-sym	
!�"+gpost-sym	!�"+gw	"G#\gw	"M#\gw	"T#\gproducer		"c#\gw	
"~#2gw	"�#/gw	"�#,gw	
"�#)gw	"�#!gnmin	"�#gnmax	"�#gt	"�#gt	
#<#\gw	#x$gw	#�$gw	#�$gw		#�$gvars	
#�$gnew	#�$gops	#�$genv*	
#�$gbody*	#�$gvisit	#�$gw	$2$�gw	$8$�gw	$E$�gw		$L$�gw	
$S$�gvars	$Z$�gnew	$Z$�gops	
$Z$�genv*	$Z$�gbody*	$Z$�gvisit	$m$�gw	%&Pgw	%&Pgw	%"&Pgw		%)&Pglookup-alias	
%3&Pgvars	%A&Pgnew	%J&Pgops	
%i&Pgenv	%x&Pgbody	%�&Pgexp	%�%�gsym	&&Hgpairs	&&Hgexp	&2&Hgw	&l*�gw	&r*�gtail-len	&{*�glen		&�*�gls	
&�*�gn	&�*�gp-ls	&�*�gnames	
&�*�gw	&�*�gw	&�*�gtail-len	&�*�glen	&�*�gls	'*�gn	'*�gp-ls	'*�ggensyms	'$*kgw	'7*cgw	'>*cgtail-len	'G*cglen	'\*cgls	'z*Tgn	'z*Tgp-ls	'z*Tgvals	'�*/gw	'�*'gw	'�*gw	 '�*gw	!'�*gw	"'�*gw	#'�*gw	$(*gw	%( *gw	&(+)�gw	'(:)�gx	((:)�gtail-len	)(E)�glen	*(Z)�gls	+(x)�gn	,(x)�gp-ls	-(x)�gargs	.(�)�gw	/(�)�gw	0(�)�gw	1(�)�gv	2(�(�gs	2(�)gtmps	2).)�gtmp-syms	3)>)�gexp	4)})�gw	.)�)�gw	*9*Pgw	*u*�gw	
*�*�gw	*�+�gw	*�+�gw	++�gw		++�gt	
++1gop	
+1+�gs	+M+mgexp	+�+�gw	,	.�gop	,.�gt	,7.�gs		,o,�gval		,�-gt		-,.�gt	
-K-ygt	-_-vgs	
-�-�gt	.�.��gfilenameflanguage/tree-il/peval.scm�
�	��	5�	��	6�	��	O	����	���	*���	���	*���	��	��	��#		��C!	��R		����	���8	���	����	����	*����	���:	'����	����	*����	���:	���	���	��!�		��7�	��K�	��P	��S�	��b	��d	��f	��i�		��q�	��{�	*��}�	��}	���	���	���	���	���	���	���		���	���
	���	���	����		����	����	%����	���	��6�	��>�	��A�	��G�	��J�	��S�	��]�	��]�	��m�	��y�	����		����	��6�	��:�	��;�	��E�	��[�	����		���	��L�	*��U�	<��_�	*��`�	��p�	���	��/�	��0�	��C�	
��G	��w�	��|�	����	����	����	����	����	&����	����	*����	����	����	����	����	
����	����	����	����	����	���	���	���		��-�	��7�	*��9�	��:�	��D�	��D�		��r�	��z�	����	����	����	����	*����	����	����	����	����	����	����	����	���	��(�	*��*�	��+�	"��5�	��=�		���$	���$	���%	���$	���&	���&	!���$	����	
����	����	����	���$	��	-u	��	-u	��	@u	#��	Lu	<��	Mu	3��	Tt	��	Y�	��	c�	*��	e�	��	fx	"��	pw	��	qy	��	ty	��	�y	��	�y	��	�z	��	�t	��	��	��	��	��	��	��	��	!��	��	��	��	��	��	��	��	��
�	"��
$�	��
$�	��
8�	��
N�	��
P�	��
��	��
��	��
��	��
��	��
��	��
��	��
��	��
��	��
��	��
��	��
��	���	���		��M	��U	��X	��d	��y	��}�		����	����	���	���	��	���	��x�	��y�	����	.����	&����	����	����	����	����	����	����	"����	����	*����	2����	*����	%����	����	����	��
�	0��
	�	(��
�	��
�	��
!�	��
"�	��
&�	%��
(�	��
(�	��
+	2��
1	��
4�	��
<	-��
D�	!��
H�	��
J�	��
N	��
T	"��
W	��
\	&��
a	/��
l	��
�	��
�	��
��	��
�	��
�	��
�	"��
�	��
�	%��
�	-��
�	%��
�	��
�	��
�	��
�	9��
�	1��
�	��
�	���	��	7��	/��	�� �	����	����	����	����	��@�	��H�	��^�	��b�	����	���	 ��
�	%���	<���	%���	 ���	���	���	��0�	��4�	����	����	,����	9����	,����	����	���	���	����	����	,����	����	����	����	����	����	,����	����	����	����	���		��9�	 ��B�	����	����	����	���	*���	A���	*��
�	&���	���	1���	��.�	��M�	2��Q�	��V�	*��[�	A��]�	*��b�	&��d�	��h�	��z�	����	����	����	����	����	����	����	����	��=�	��A�	&��E�	��F�	��P�	��V�	��Y�	��^�	-��g�	?��i�	-��k�	��k�	����	����		����	����	����	1����	����	���	��f�	��j�		��x�	��y�	����	*����	����	����	����	$����	9����	����	����	����	*����	����	$����	����		���	���	1���	���	��2�	��5�		��D�	��E]	��H]	��P]	��U�	��Y�		����	���]	���]	���]	����	����		���	��]	��]	��]	��!�	��%�		��&�	��/�	.��:�	;��<�	.��=�	(��?�	��?�	��U�	��Y�		����	����	����	����	3����	����	����	����		����	����	����	���	����	����	����		����	
����	����		����	%����	<����	%����	����	����	���	#���	���	��	�	���	���	���	,�� �	4��#�	E��&�	?��(�	,��*�	��*�	��@�	��L	��K�	��P�	&��W�	E��Y�	&��]�	��]�	��s�	��w	����	����	*����	���|	���	��
�	��(�	��*�	
��*|	��K~	
��_�	��	���7	���8	���7	���9	���	����	����	*����	���5	���	��%�	��/�	*��1�	��33	��7	��w�	����	*����	���1	���	���&	���&	���(	
��(		��)	��	)	
��*	��*	��"+	��,	��z�	���	���	���	���	���	
����	���	����	����	*����	�� �	*�� �	�� 	�� 		�� .�	�� 8�	*�� :�	�� <	�� @	�� s	�� |	/�� ��	�� �	�� �	�� ��	�� ��	*�� ��	�� ��	*�� ��	�� ��	�� �]	�� �]	�� �]	��!�		��!]	��!]	��!]	��!�		��!	��!	��!#	#��!%	��!%	��!(�	��!0	$��!7�	!��!;�	��!=�	��!C
	��!H
	#��!M
	3��!N	��!W	%��!\	:��!`	%��!b	��!d
	
��!e]	��!h]	��!p]	��!t�	��!u	��!y	$��!{	��!{	
��!~�	��!�	&��!��	!��!��	��!��	��!�	��!�	$��!�	3��!�	��!�	'��!�	<��!�	'��!�	��!�	��!��	��!��	$��!��	��!��	7��!��	?��!��	7��!��	
��!��	��!��	&��!��	!��!��	��!��	��!��	��!��	&��!��	!��!��	��!��	��!��	��"�	)��"�	A��"
�	��"�	'��"�	<��"�	'��"	'��"#	<��"'	'��")�	��"+�	��"/	��"W�	��"a�	*��"c�	��"c�	��"h�	
��"��	��"��	��"��	��"��	5��"��	=��"��	-��"��	��"��	��"��	��"��	��#<�		��#N�	��#\�	
��#`	��#��	��#��	��#��	��#��	��#��	��#��	��#��	
��#��		��$�	
��$	��$Z�	��$u�	��$��	��$��	��$��	��$��	��$��	
��$��		��$��	��$��		��$��	!��$��	
��$�	��%9�	��%A�	��%D�	��%J�	��%M�	��%_�	(��%i�	��%i�	��%l�	��%x�	��%{�	��%��	��%��	��%��		��%��	��%��	(��%��	5��%��	(��%��	��%��	��%��	��%��	��%��		��%��	��%��		��%��	��%��	��%��	��%��	��%��	��%��	��&�	��&	�	��&�	��&�	��&�	 ��&"�	��&#�	��&.�	��&0�	��&2�	��&2�	
��&H�	��&T	��(��	
��(��	��(��	��(��	��(��	��(��	��(��	-��(��	��(��	��)~	 ��) }	��)!	��)$	��),	2��).	��).	��)1�	��)>	��)A�	
��)F�	��)O�	��)X�	��)a�	��)h�	��)m�	��)y�	��){�	��)}�	
��)}�		��)��	��)�	��+�	��+�	��+&�	
��+*�	��+.�	
��+1j	��+6k	"��+Mk	��+nk	
��+sk		��+t�	��+~�	*��+��	��+�l	
��+�m	��+�m	��+�o	0��+�o	&��+�o	��+�q	��+�r	*��+��	��+��	*��+��	��+�r	��+�	��,	��,	��,		��,	��,	��,7		��,K	��,O		��,U	��,X	��,o	��,�		��,�	��,� 	��,�		��,�$	��,�$	��,�$	��,�		��,�'	��,�'	��-�	��-*	��-*	2��-*	%��- *	;��-,*	��-,		��-5]	��-8]	��-@]	��-D0	
��-E9	��-K9	��-Y:	��-_9	��-m;	��-}0	
��-�B	 ��-�B	��-�B	��-�B	1��-�B	(��-�B	��-�E	��-�G	"��-�G	��-�G	��.0	
��.
M	��.0	
��.W	��.P	��.P	��.'P	��.(Q	��.4P	��.Mc	��.M\	��.N\	��.Z\	��.[]	��.g\	��.u7	��.�8	��.�h	��.�#	��.�	��.��	��.��	��.��	
��.��	��.��	
��.�	��.�	��.�		��/
	��/	��/%	��/*	��/1	��=	/5	gnamegloop�C�h��-/03#45##	(#	#	
#�#	dH
H	HOO
O	
O
	Q	Q
Q
Q�$Q�&
��45"(�&
��45""K45K	4	O5K
O
	
Q6�gexp
	}gcenv	}genv		}goperator-size-limit		}goperand-size-limit		}gvalue-size-limit		}geffort-limit		}grecursive-effort-limit		}glocal-toplevel-env		`}gstore			`}gcompute-effects	
	`}g
lookup-var	�}g
fresh-gensyms	�}grecord-operand-use	
�}gunrecord-operand-uses	�}gresidualize-lexical	�}gfold-constants	�}g
inline-values	�}gconstant-expression?	�}gprune-bindings	�}gsmall-expression?	�}g
extend-env	�}gw	��gw	�gloop	E}gfilenameflanguage/tree-il/peval.scm�
t
��	t	%����	����	����	����	���	��V	��E�	��{�	��}�	��	}	goperator-size-limitS	�goperand-size-limitS	�gvalue-size-limitS	�geffort-limitS	�grecursive-effort-limitS	�gnamegpeval�g
documentationf}Partially evaluate EXP in compilation environment CENV, with
top-level bindings from ENV and return the resulting expression.�CRC�gm
		,grtd
$Ngrtd
B�Cgrtd
|�}#gfilenameflanguage/tree-il/peval.scm�		
��G	E
���	L
��
	W
���	^
��&	m
��	y
��>[�
��?{�
��k�
��l;�
��mi�
��n��
��r��
��s��
��ue�
��w�
��y

���((
����2
��б;
���i>
���I
��ܬj
��Ēt
��	Ĕ
C6
© 2025 GrazzMean