GOOF----LE-8-2.0� ]x 4 hLW ] g guile� � g define-module*� � � g ice-9� g
local-eval� � g filenameS�
f ice-9/local-eval.scm� g importsS� g format�
�
� g srfi� g srfi-9� � � g gnu� � � g system� g base� g compile� � � g syntax� � � � g exportsS� g the-environment� !g
local-compile� " ! � #g set-current-module� $# � %# � &g lexical-environment-type� 'g #%make-lexical-environment-procedure� (g make-syntax-transformer� )( � *( � +g make-lexical-environment� ,g macro� -g $sc-dispatch� .- � /- � 0g _� 1g any� 201111 � 3g
syntax-object� 4g lambda� 5g m-3348ed57c594e3-7� 6g top� 756 � 8g ribcage� 9g t-3348ed57c594e3-3� :g t-3348ed57c594e3-4� ;g t-3348ed57c594e3-5� <g t-3348ed57c594e3-6� =9:;< � >7777 � ?f l-3348ed57c594e3-c� @f l-3348ed57c594e3-d� Af l-3348ed57c594e3-e� Bf l-3348ed57c594e3-f� C?@AB � D8=>C � E8 � Fg x� GF � H7 � If l-3348ed57c594e3-9� JI � K8GHJ � Lg shift� Mg proc-name� Ng args� OMN � P6 � QPP � Rf l-1e8ba8b5a-60� Sf l-1e8ba8b5a-61� TRS � U8OQT � Vg key� Wg value� Xg name� Yg formals� Zg body� [VWXYZ � \PPPPP � ]f l-1e8ba8b5a-53� ^f l-1e8ba8b5a-54� _f l-1e8ba8b5a-55� `f l-1e8ba8b5a-56� af l-1e8ba8b5a-57� b]^_`a � c8[\b � dg make-procedure-name� ed � fP � gf l-1e8ba8b5a-43� hg � i8efh � jP � kf l-1e8ba8b5a-42� lk � m8Gjl � n7DEKLEEEEUcim
� og hygiene� po � q34np � rg scope� sPDEK � to � u3rst � vg wrapper� w3vst � xg boxes� y3xst � zg patterns� {3zst � |uwy{ � }g make-struct� ~g m-3348ed57c594e3-1� ~6 � �g t-1e8ba8b5a-133� �g t-1e8ba8b5a-132� �g t-1e8ba8b5a-131� ���� � �g m-1e8ba8b5a-134� ��6 � ���� � �f l-1e8ba8b5a-138� �f l-1e8ba8b5a-139� �f l-1e8ba8b5a-13a� ���� � �8��� � �g ctor-args� �� � �f l-1e8ba8b5a-120� �� � �8�j� � �g ctor� �g field� ��� � �f l-1e8ba8b5a-11c� �f l-1e8ba8b5a-11d� ��� � �8�Q� � �g form� �g type-name� �g constructor-spec� �g field-names� ����� � �PPPP � �f l-1e8ba8b5a-111� �f l-1e8ba8b5a-112� �f l-1e8ba8b5a-113� �f l-1e8ba8b5a-114� ����� � �8��� � �g
record-layout� �g functional-setters� �g setters� �g copier� �g getters� �g constructor� �g getter-identifiers� �g field-identifiers� ��������� � �PPPPPPPP � �f l-1e8ba8b5a-e9� �f l-1e8ba8b5a-e7� �f l-1e8ba8b5a-e5� �f l-1e8ba8b5a-e3� �f l-1e8ba8b5a-e1� �f l-1e8ba8b5a-df� �f l-1e8ba8b5a-dd� �f l-1e8ba8b5a-db� ��������� � �8��� � �f l-1e8ba8b5a-da� �� � �8Gj� � �DEKLE�EEE��E��� � �3}�p � �3&st � �3
�p � ����uwy{ � �q|� � �g each-any� �0��� �g syntax-violation� �� � �� � �f Wrong number of arguments� �g identifier?� �� � �� � �PEK � �3'�t � �� � �� � �f -source expression failed to match any pattern� �g record-type-vtable� �� � �� � �g pwpwpwpw� �g default-record-printer� �� � �� � �rvxz � �g set-struct-vtable-name!� �� � �� � �g vtable-offset-user� �� � �� � �g %lexical-environment?-procedure� �g lexical-environment?� �01 � �g m-3348ed57c594e3-1a� ��6 � �g t-3348ed57c594e3-19� �� � �� � �f l-3348ed57c594e3-1f� �� � �8��� � �f l-3348ed57c594e3-1c� �� � �8G�� � ���E�LEEEEUcim
� �34�p � �g obj� �g t-1e8ba8b5a-224� �g t-1e8ba8b5a-21e� �g t-1e8ba8b5a-21f� �g t-1e8ba8b5a-220� �g t-1e8ba8b5a-223� �g t-1e8ba8b5a-222� �g t-1e8ba8b5a-221� �������� � �g m-1e8ba8b5a-225� ��6 � �������� � �f l-1e8ba8b5a-229� �f l-1e8ba8b5a-22a� �f l-1e8ba8b5a-22b� �f l-1e8ba8b5a-22c� �f l-1e8ba8b5a-22d� �f l-1e8ba8b5a-22e� �f l-1e8ba8b5a-22f� ������� �8�� �g copier-id� �f l-1e8ba8b5a-21c� �8j �g ctor-name� � f l-1e8ba8b5a-214�
�8j
�� �
f l-1e8ba8b5a-212�
�8j �g layout� �f l-1e8ba8b5a-210� �8j �g
immutable?� �f l-1e8ba8b5a-20e� �8j �g field-count� �f l-1e8ba8b5a-20c� �8j �g
getter-ids� �!f l-1e8ba8b5a-209�"! �#8 j" �$g field-ids�%$ �&f l-1e8ba8b5a-206�'& �(8%j' �)g predicate-name�*g
field-spec�+���)* �,PPPPPP �-f l-1e8ba8b5a-1f9�.f l-1e8ba8b5a-1fa�/f l-1e8ba8b5a-1fb�0f l-1e8ba8b5a-1fc�1f l-1e8ba8b5a-1fd�2f l-1e8ba8b5a-1fe�3-./012 �48+,3 �5�E�LEEEEEEEEEEE#E(4�� �63�5p �76 �8g and�9385p �:g struct?�;3:5p �<;6 �=g eq?�>3=5p �?g
struct-vtable�@3?5p �A@6 �BP�E� �C3&Bt �D>AC �E9<D �F�7E �GPE� �H3�Gt �Ig throw-bad-struct�JI �KI �Lg lexenv-scope�Mg %lexenv-scope-procedure�Ng free-id�Og
%%on-error�Pg m-3348ed57c594e3-26�QP6 �RQ �Sf l-3348ed57c594e3-28�TS �U8GRT �VQEULEEEEUcim �W3OVp �XNW �YX1 �Zg %%type�[g t-1e8ba8b5a-14b�\g t-1e8ba8b5a-14c�]g t-1e8ba8b5a-14d�^g t-1e8ba8b5a-14e�_g t-1e8ba8b5a-14f�`g t-1e8ba8b5a-150�ag t-1e8ba8b5a-151�b[\]^_`a �cg m-1e8ba8b5a-152�dc6 �eddddddd �ff l-1e8ba8b5a-156�gf l-1e8ba8b5a-157�hf l-1e8ba8b5a-158�if l-1e8ba8b5a-159�jf l-1e8ba8b5a-15a�kf l-1e8ba8b5a-15b�lf l-1e8ba8b5a-15c�mfghijkl �n8bem �og getter�pg index�qop �rf l-1e8ba8b5a-149�sf l-1e8ba8b5a-14a�trs �u8qQt �v� �wPPP �xf l-1e8ba8b5a-144�yf l-1e8ba8b5a-145�zf l-1e8ba8b5a-146�{xyz �|8vw{ �}EULEnEEEuE|�� �~3Z}p �N~ ��0Y1 ��g ck��g err��g s���� ��QQ ��f l-3348ed57c594e3-2b��f l-3348ed57c594e3-2c���� ��8��� ��Q�EULEEEEUcim
��3��p ��g quote��3��p ��P�EU ��3&�t ���� ��� ��g %%index��3�}p ��N� ��0Y�1 ��f l-3348ed57c594e3-30��f l-3348ed57c594e3-31���� ��8��� ��Q�EULEEEEUcim
��3��p ��3��p ���EU ��3
�t ���� ��� ��g %%copier��3�}p ��N� ��0Y�1 ��f l-3348ed57c594e3-35��f l-3348ed57c594e3-36���� ��8��� ��Q�EULEEEEUcim
��3��p ��3��p ��g %%%lexical-environment-type-set-fields��P�EU ��3��t ���� ��� ��g t-3348ed57c594e3-25��� ��f l-3348ed57c594e3-3a��� ��8�R� ��Q�EULEEEEUcim
��34�p ���EULEnEEEuE|�� ��3��p ��� ��g if��3��p ��3=�p ��3?�p ���� ��P�EU ��3&�t ����� ��g
struct-ref��3��p ���EU ��3
�t ����� ��3I�p ��3��p ��3L�t ���� ����� ������ ����� ��PEU ��3M�t ��g lexenv-wrapper��g %lexenv-wrapper-procedure��g m-3348ed57c594e3-41���6 ��� ��f l-3348ed57c594e3-43��� ��8G�� ���E�LEEEEUcim ��3O�p ��N� ���1 ��E�LEnEEEuE|�� ��3Z�p ��N� ��0��1 ���� ��f l-3348ed57c594e3-46��f l-3348ed57c594e3-47���� ��8��� ����E�LEEEEUcim
��3��p ��3��p ��P�E� ��3&�t ���� ��� ��3��p ��N� ��0��1 ��f l-3348ed57c594e3-4b��f l-3348ed57c594e3-4c���� ��8��� ����E�LEEEEUcim
��3��p ��3��p ���E� ��3�t ���� ��� ��3��p ��N� ��0��1 ��f l-3348ed57c594e3-50��f l-3348ed57c594e3-51� �� �8�� ��E�LEEEEUcim
�3�p �3�p �PE� �3�t � � � g t-3348ed57c594e3-40�
�f l-3348ed57c594e3-55� �
8
� ��
E�LEEEEUcim
�34p �
E�LEnEEEuE|�� �3�p � �3�p �3=p �3?p � �P
E� �3&t � �3�p �
E� �3t � �3Ip �3�p � 3�t �! �"! �#" �$# �%PE� �&3�%t �'g lexenv-boxes�(g %lexenv-boxes-procedure�)g m-3348ed57c594e3-5c�*)6 �+* �,f l-3348ed57c594e3-5e�-, �.8G+- �/*E.LEEEEUcim �03O/p �1N0 �211 �3E.LEnEEEuE|�� �43Z3p �5N4 �60251 �7** �8f l-3348ed57c594e3-61�9f l-3348ed57c594e3-62�:89 �;8�7: �<*;E.LEEEEUcim
�=3�<p �>3�<p �?P;E. �@3&?t �A>@ �BA �C3�3p �DNC �E02D1 �Ff l-3348ed57c594e3-66�Gf l-3348ed57c594e3-67�HFG �I8�7H �J*IE.LEEEEUcim
�K3�Jp �L3�Jp �MIE. �N3 Mt �OLN �PO �Q3�3p �RNQ �S02R1 �Tf l-3348ed57c594e3-6b�Uf l-3348ed57c594e3-6c�VTU �W8�7V �X*WE.LEEEEUcim
�Y3�Xp �Z3�Xp �[PWE. �\3�[t �]Z\ �^] �_g t-3348ed57c594e3-5b�`_ �af l-3348ed57c594e3-70�ba �c8`+b �d*cE.LEEEEUcim
�e34dp �fcE.LEnEEEuE|�� �g3�fp �hg �i3�fp �j3=fp �k3?fp �lkg �mPcE. �n3&mt �ojln �p3�fp �qcE. �r3 qt �spgr �t3Ifp �u3�fp �v3'mt �wuv �xtgw �yiosx �zehy �{PE. �|3({t �}g lexenv-patterns�~g %lexenv-patterns-procedure�g m-3348ed57c594e3-77��6 ��� ��f l-3348ed57c594e3-79��� ��8G�� ���E�LEEEEUcim ��3O�p ��N� ���1 ��E�LEnEEEuE|�� ��3Z�p ��N� ��0��1 ���� ��f l-3348ed57c594e3-7c��f l-3348ed57c594e3-7d���� ��8��� ����E�LEEEEUcim
��3��p ��3��p ��P�E� ��3&�t ���� ��� ��3��p ��N� ��0��1 ��f l-3348ed57c594e3-81��f l-3348ed57c594e3-82���� ��8��� ����E�LEEEEUcim
��3��p ��3��p ���E� ��3 �t ���� ��� ��3��p ��N� ��0��1 ��f l-3348ed57c594e3-86��f l-3348ed57c594e3-87���� ��8��� ����E�LEEEEUcim
��3��p ��3��p ��P�E� ��3��t ���� ��� ��g t-3348ed57c594e3-76��� ��f l-3348ed57c594e3-8b��� ��8��� ����E�LEEEEUcim
��34�p ���E�LEnEEEuE|�� ��3��p ��� ��3��p ��3=�p ��3?�p ���� ��P�E� ��3&�t ����� ��3��p ���E� ��3 �t ����� ��3I�p ��3��p ��3}�t ���� ����� ������ ����� ��PE� ��3~�t ��g each��11 ���� ��1Ռ��1��1��g %%set-fields��g dummy��g check?��g expr�����o� ��g m-3348ed57c594e3-92���6 ��� ��f l-3348ed57c594e3-97��f l-3348ed57c594e3-98��f l-3348ed57c594e3-99��f l-3348ed57c594e3-9a��f l-3348ed57c594e3-9b������� ��8��� ��� ��f l-3348ed57c594e3-94��� ��8G�� ��g t-1e8ba8b5a-16a��g t-1e8ba8b5a-16c��g t-1e8ba8b5a-16b����� ��g m-1e8ba8b5a-16d���6 ����� ��f l-1e8ba8b5a-171��f l-1e8ba8b5a-172��f l-1e8ba8b5a-173����� ��8��� ��f l-1e8ba8b5a-167��f l-1e8ba8b5a-168��f l-1e8ba8b5a-169����� ��8vw� ���E�LE�EEE���
��3��p ��P�E� � 3&�t �3L�t �3��t �3'�t �3}�t � �g map� � � g list�
g set-record-type-printer!�f '#<lexical-environment ~S (~S bindings)>�g
syntax-module�
g length�g syntax-object-of�g
datum->syntax�g t-3348ed57c594e3-cd� �g m-3348ed57c594e3-ce�6 � �f l-3348ed57c594e3-d1� �8 �f l-3348ed57c594e3-cb� �8Gj �� �f l-3348ed57c594e3-c8� �8j �PEE � 3�t �!g make-box�"g case-lambda�#g v�$�# �%g m-3348ed57c594e3-d4�&%6 �'&P �(f l-3348ed57c594e3-d9�)f l-3348ed57c594e3-da�*() �+8$'* �,& �-f l-3348ed57c594e3-d6�.- �/8G,. �0P+E/ �13"0t �23F0t �32 �4g set!�5340t �6g set-procedure-property!�7g identifier-syntax-box�8g make-transformer-from-box�9g identifier-syntax-from-box�:g box�;�: �<g m-3348ed57c594e3-e2�=<6 �>=P �?f l-3348ed57c594e3-e7�@f l-3348ed57c594e3-e8�A?@ �B8;>A �C= �Df l-3348ed57c594e3-e4�ED �F8GCE �GPBEF �H38Gt �I3Gt �Jg identifier-syntax�K3JGt �Lg id�M3LGt �N34Gt �O3FGt �PNMO �QO �Rg make-variable-transformer�Sf 1unsupported binding captured by (the-environment)�Tg unsupported-binding�Ug ...�Vg t-3348ed57c594e3-f9�WV �Xg m-3348ed57c594e3-fa�YX6 �ZY �[f l-3348ed57c594e3-fd�\[ �]8WZ\ �^g loop�_g n�`^�_ �af l-3348ed57c594e3-f3�bf l-3348ed57c594e3-f4�cf l-3348ed57c594e3-f5�dabc �e8`wd �fg lvl�gLf �hf l-3348ed57c594e3-f1�if l-3348ed57c594e3-f2�jhi �k8gQj �lPE]EeEk �m3Ult �nm �og within-nested-ellipses�pg syntax-local-binding�qg lexical�rg or-map�sg bound-identifier=?�tg here�ug mktmp�vu �wf l-3348ed57c594e3-101�xw �y8vfx �zg ids�{z �|f l-3348ed57c594e3-100�}| �~8{j} �PEy~ ��3tt ��g gensym��f t ��g t-3348ed57c594e3-11f��� ��g m-3348ed57c594e3-120���6 ��� ��f l-3348ed57c594e3-123��� ��8��� ��g t��� ��f l-3348ed57c594e3-11d��� ��8�j� ��V ��g m-3348ed57c594e3-118���6 ��� ��f l-3348ed57c594e3-119��� ��8��� ��g type��g val���� ��f l-3348ed57c594e3-116��f l-3348ed57c594e3-117���� ��8�Q� ��Lz ��f l-3348ed57c594e3-110��f l-3348ed57c594e3-111���� ��8�Q� ��g lp��g capture��g wrappers���z�Y�z ��f l-3348ed57c594e3-103��f l-3348ed57c594e3-104��f l-3348ed57c594e3-105��f l-3348ed57c594e3-106��f l-3348ed57c594e3-107��f l-3348ed57c594e3-108�������� ��8�,� ��PE�E�E�EE�E�EE�y~ ��3!�t ��111 ��g
let-syntax��g t-3348ed57c594e3-128��g t-3348ed57c594e3-127��g t-3348ed57c594e3-129����� ��g m-3348ed57c594e3-12a���6 ����� ��f l-3348ed57c594e3-12e��f l-3348ed57c594e3-12f��f l-3348ed57c594e3-130����� ��8��� ��f l-3348ed57c594e3-126��� ��8Gj� ��PE�EEE�E�E�EE�E�EE�y~ ��3��t ��39�t ��g displaced-lexical��g procedure-property��g t-3348ed57c594e3-139��g t-3348ed57c594e3-138��g t-3348ed57c594e3-13a����� ��g m-3348ed57c594e3-13b���6 ����� ��f l-3348ed57c594e3-13f��f l-3348ed57c594e3-140��f l-3348ed57c594e3-141����� ��8��� ��f l-3348ed57c594e3-137��� ��8Gj� ��g b��� ��f l-3348ed57c594e3-134��� ��8�j� ��PE�EEE�E�E�EE�E�EE�y~ ��3��t ��39�t ��g t-3348ed57c594e3-148��g t-3348ed57c594e3-147��g t-3348ed57c594e3-149����� ��g m-3348ed57c594e3-14a���6 ����� ��f l-3348ed57c594e3-14e��f l-3348ed57c594e3-14f��f l-3348ed57c594e3-150����� ��8��� ��f l-3348ed57c594e3-146��� ��8Gj� ��PE�EEE�E�E�EE�E�EE�y~ ��3��t ��3T�t ��3��t ��g pattern-variable��f p ��g with-syntax��g t-3348ed57c594e3-15b��g t-3348ed57c594e3-15a��g t-3348ed57c594e3-15c����� ��g m-3348ed57c594e3-15d���6 ����� ��f l-3348ed57c594e3-161��f l-3348ed57c594e3-162��f l-3348ed57c594e3-163����� ��8��� � f l-3348ed57c594e3-159� �8Gj �g nested�� �f l-3348ed57c594e3-154�f l-3348ed57c594e3-155� �8Q � PE�EEEEE�EE�E�EE�y~ �
3� t �3� t �PEE�EE�E�EE�y~ �
3tt �g
syntax->datum�g ellipsis�g
with-ellipsis�g t-3348ed57c594e3-16a�g t-3348ed57c594e3-169� �g m-3348ed57c594e3-16b�6 � �f l-3348ed57c594e3-16f�f l-3348ed57c594e3-170� �8 �f l-3348ed57c594e3-168� �8Gj �PEEEEE�EE�E�EE�y~ �3t � g error�!f what�"g analyze-identifiers�#1 �$g syntax-locally-bound-identifiers�%g begin�&g wrap-expression�'& �(f l-3348ed57c594e3-186�)( �*8'f) �+�Y�z �,f l-3348ed57c594e3-182�-f l-3348ed57c594e3-183�.f l-3348ed57c594e3-184�/f l-3348ed57c594e3-185�0,-./ �18+�0 �2 r �3f l-3348ed57c594e3-17a�4f l-3348ed57c594e3-17b�534 �682Q5 �7f l-3348ed57c594e3-174�87 �98Gj8 �:P**16E9 �;3%:t �<3:t �=g exp�>3=:t �?;<> �@�� �A��@1 �Bg f�Cg c�Dg pname�Eg plvl�Fg pformal�Gg wrapped�HBCDEFG �If l-3348ed57c594e3-193�Jf l-3348ed57c594e3-194�Kf l-3348ed57c594e3-195�Lf l-3348ed57c594e3-196�Mf l-3348ed57c594e3-197�Nf l-3348ed57c594e3-198�OIJKLMN �P8H,O �QPEP**16E9 �R3+Qt �S3Qt �T34Qt �U3=Qt �V3�Qt �WUU �X3 Qt �Y3�Qt �Zg module?�[f invalid lexical environment�\g resolve-module�]g
env-module�^g env-boxes�_g t-3348ed57c594e3-1d7�`_ �ag m-3348ed57c594e3-1d8�ba6 �cb �df l-3348ed57c594e3-1db�ed �f8`ce �gg e�hFg �if l-3348ed57c594e3-1be�jf l-3348ed57c594e3-1bf�kij �l8hQk �mPEfEEl �n34mt �o3mt �pg
local-wrap�qg eval�rg optsS�sr ��ts �ug envS�vg fromS�wg scheme�C 5 h0B � ]4
"5 4% > "