GOOF----LE-8-2.0�� ] 4 h�6 ] 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
syntax-object� =g begin� >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|A�AGOAT
� �<c�W � �<�W � �<f�W � �|A � �<
�W � �< �W � ���� � ���� � �57�� �f l-a141b7f3b9a-1d1a� �� � �@Qy� � �t�A�AGOAT
� �<c�W � �<�W � �<f�W � ��A � �<
�W � �< �W � ���� � ���� � �g m-a141b7f3b9a-1d1d� ��> � �� � �f l-a141b7f3b9a-1d24� �� � �@v�� � �f l-a141b7f3b9a-1d1f� �� � �@Q�� � �t�A��AGOAT
� �<c�W � �<�W � �<f�W � ��A� � �<�W � �< �W � ���� � ���� � �f l-a141b7f3b9a-1d27� �� � �@Q�� � �t�A��AGOAT
� �<c�W � �<�W � �<f�W � ��A� � �<�W � �< �W � ���� � ���� � �g m-a141b7f3b9a-1d2a� ��> � �� � �f l-a141b7f3b9a-1d31� �� � �@v�� � �f l-a141b7f3b9a-1d2c� �� � �@Q�� � �t�A��AGOAT
� �<c�W � �<�W � �<f�W � ��A� � �< �W � �< �W � ���� � ���� � �f l-a141b7f3b9a-1d34� �� � �@Q�� � �t�A��AGOAT
� �<c�W � �<�W � �<f�W � ��A� � �< �W � �< �W � ���� � ���� � �g m-a141b7f3b9a-1d37� ��> � �� � �f l-a141b7f3b9a-1d3e� �� � �@v�� � �f l-a141b7f3b9a-1d39� �� � �@Q�� � �t�A��AGOAT
� �<c�W � �<�W � �<f�W � ��A� � �< �W � �< �W � ���� � ���� � �f l-a141b7f3b9a-1d41� �� � �@Q�� � �t�A��AGOAT
� �<c�W � �<�W � �<f�W � ��A� � �< �W � �< �W � ���� � ���� � �g m-a141b7f3b9a-1d44� ��> � �� � �f l-a141b7f3b9a-1d4b� �� � �@v�� � �f l-a141b7f3b9a-1d46� �� � �@Q�� � �t�A��AGOAT
� �<c�W � �<�W � �<f�W � ��A� � �< �W � < �W ��� ��� �f l-a141b7f3b9a-1d4e� �@Q� �tA��AGOAT
�<cW �<W � <fW �
A� �<
W �< W �
�
�g m-a141b7f3b9a-1d51�> � �f l-a141b7f3b9a-1d58� �@v �f l-a141b7f3b9a-1d53� �@Q �tA�AGOAT
�<cW �<W �<fW �A �< W �< W � � �!f l-a141b7f3b9a-1d5b�"! �#@Q" �$t#A�AGOAT
�%<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 �6t2A5�AGOAT
�7<c6W �8<6W �9<f6W �:2A5 �;< :W �<< 6W �=9;< �>78= �?f l-a141b7f3b9a-1d68�@? �A@Q/@ �BtAA5�AGOAT
�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 �TtPAS�AGOAT
�U<cTW �V<TW �W<fTW �XPAS �Y< XW �Z< TW �[WYZ �\UV[ �]f l-a141b7f3b9a-1d75�^] �_@QM^ �`t_AS�AGOAT
�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 �rtnAq�AGOAT
�s<crW �t<rW �u<frW �vnAq �w< vW �x< rW �yuwx �zsty �{f l-a141b7f3b9a-1d82�|{ �}@Qk| �~t}Aq�AGOAT
�<c~W ��<~W ��<f~W ��}Aq ��< �W ��< ~W ����� ���� ��g m-a141b7f3b9a-1d85���> ��� ��f l-a141b7f3b9a-1d8c��� ��@v�� ��f l-a141b7f3b9a-1d87��� ��@Q�� ��t�A��AGOAT
��<j�W ��?�A� ��<�W ��<�W ��<�W ��<�W ��<�W ��<�W ��<�W ��< �W ��<!�W ������������
��f l-a141b7f3b9a-1d8f��� ��@Q�� ��t�A��AGOAT
��<j�W ��?�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 ���A��AAAA��
�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@FAI�AAAA��
�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 �objAn�AAAA��
�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�� ����A��AAAA��
��<�� ��?�A� ��<(�W ��<a� ��<��W ���� ���� ��� ��<� ��<P�W ��<�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�� ����A��AAAA��
��<�� ��?�A� ��<#�W ��<a� ��<��W ���� ���� ��� ��<� ��<3�W ��g b��<��W ���� ��g and��<��W ��<|�W ��<(�W ��<�W ���� ����� ���� ���� ����� ���� ����� ����� ����� ��?A� ��<��W ��g make-hash-table��g hashq-ref��g
hashq-set!��g <prompt>��g <abort>��g error��� ��� ��f no matching pattern��g
<sequence>��g
<lambda-case>��g or-map��g <lambda>��g
<application>��g
<lexical-ref>��g make-application��g <primitive-ref>��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
<conditional>�g <toplevel-set>� g <toplevel-define>�
g <module-set>�g <module-ref>�g <toplevel-ref>�
g <dynset>�g <dynref>�g <dynlet>�g <dynwind>�g <let-values>�g <fix>�g <letrec>�g <let>�g
<lexical-set>�g <void>�g <const>�C 5 h@o � ]4
)5 4, > "