GOOF----LE-8-2.0� ]X 4 h�? ] g guile� � g define-module*� � � g system� g vm� g coverage� �
g filenameS� f system/vm/coverage.scm� g importsS�
�
� g frame� � � g program� � � g srfi� g srfi-1� � � g srfi-9� � � g srfi-11� � � g srfi-26� � ! � "! � #g exportsS� $g with-code-coverage� %g coverage-data?� &g instrumented-source-files� 'g instrumented/executed-lines� (g line-execution-counts� )g procedure-execution-count� *g coverage-data->lcov� +$%&'()* � ,g set-current-module� -, � ., � /g hashq� 0g program-objcode� 1g
hashq-proc� 2g find� 3g assq-proc� 4g frame-procedure� 5g frame-instruction-pointer� 6g hashx-create-handle!� 7g hashv-create-handle!� 8g make-hash-table� 9g vm-trace-level� :g vm-next-hook� ;g set-vm-trace-level!� <g add-hook!� =g remove-hook!� >g call-with-vm� ?g make-coverage-data� @g <coverage-data>� Ag %%make-coverage-data-procedure� Bg make-syntax-transformer� CB � DB � Eg %make-coverage-data� Fg macro� Gg $sc-dispatch� HG � IG � Jg _� Kg any� LJKKKK � Mg
syntax-object� Ng lambda� Og m-8d25f648290-30� Pg top� QOP � Rg ribcage� Sg t-8d25f648290-2c� Tg t-8d25f648290-2d� Ug t-8d25f648290-2e� Vg t-8d25f648290-2f� WSTUV � XQQQQ � Yf l-8d25f648290-35� Zf l-8d25f648290-36� [f l-8d25f648290-37� \f l-8d25f648290-38� ]YZ[\ � ^RWX] � _R � `g x� a` � bQ � cf l-8d25f648290-32� dc � eRabd � fg shift� gg proc-name� hg args� igh � jP � kjj � lf l-1e8ba8b5a-2ba� mf l-1e8ba8b5a-2bb� nlm � oRikn � pg key� qg value� rg name� sg formals� tg body� upqrst � vjjjjj � wf l-1e8ba8b5a-2ad� xf l-1e8ba8b5a-2ae� yf l-1e8ba8b5a-2af� zf l-1e8ba8b5a-2b0� {f l-1e8ba8b5a-2b1� |wxyz{ � }Ruv| � ~g make-procedure-name� ~ � �j � �f l-1e8ba8b5a-29d� �� � �R�� � �j � �f l-1e8ba8b5a-29c� �� � �Ra�� � �Q^_ef____o}��
� �g hygiene� �� � �MN�� � �g procedure->ip-counts� �j^_e � �� � �M��� � �g procedure->sources� �M��� � �g file->procedures� �M��� � �g file->line-counts� �M��� � ����� � �g make-struct� �g m-8d25f648290-2a� ��P � �g t-1e8ba8b5a-38d� �g t-1e8ba8b5a-38c� �g t-1e8ba8b5a-38b� ���� � �g m-1e8ba8b5a-38e� ��P � ���� � �f l-1e8ba8b5a-392� �f l-1e8ba8b5a-393� �f l-1e8ba8b5a-394� ���� � �R��� � �g ctor-args� �� � �f l-1e8ba8b5a-37a� �� � �R��� � �g ctor� �g field� ��� � �f l-1e8ba8b5a-376� �f l-1e8ba8b5a-377� ��� � �R�k� � �g form� �g type-name� �g constructor-spec� �g field-names� ����� � �jjjj � �f l-1e8ba8b5a-36b� �f l-1e8ba8b5a-36c� �f l-1e8ba8b5a-36d� �f l-1e8ba8b5a-36e� ����� � �R��� � �g
record-layout� �g functional-setters� �g setters� �g copier� �g getters� �g constructor� �g getter-identifiers� �g field-identifiers� ��������� � �jjjjjjjj � �f l-1e8ba8b5a-343� �f l-1e8ba8b5a-341� �f l-1e8ba8b5a-33f� �f l-1e8ba8b5a-33d� �f l-1e8ba8b5a-33b� �f l-1e8ba8b5a-339� �f l-1e8ba8b5a-337� �f l-1e8ba8b5a-335� ��������� � �R��� � �f l-1e8ba8b5a-334� �� � �Ra�� � ��^_ef_�___��_��� � �M��� � �M@�� � �M
�� � �������� � ���� � �g each-any� �Jی� �g syntax-violation� �� � �� � �f Wrong number of arguments� �g identifier?� �� � �� � �j_e � �MA�� � �� � �� � �f -source expression failed to match any pattern� �g record-type-vtable� �� � �� � �g pwpwpwpw� �g default-record-printer� �� � �� � ����� � �g set-struct-vtable-name!� �� � �� � �g vtable-offset-user� �� � �� � �g %coverage-data?-procedure� �JK � �g m-8d25f648290-43� ��P � �g t-8d25f648290-42� �� � �� � �f l-8d25f648290-48� �� � R��� �f l-8d25f648290-45� �Ra� �� _f____o}��
�MN� �g obj�g t-1e8ba8b5a-47e�g t-1e8ba8b5a-478� g t-1e8ba8b5a-479�
g t-1e8ba8b5a-47a�g t-1e8ba8b5a-47d�g t-1e8ba8b5a-47c�
g t-1e8ba8b5a-47b�
�g m-1e8ba8b5a-47f�P � �f l-1e8ba8b5a-483�f l-1e8ba8b5a-484�f l-1e8ba8b5a-485�f l-1e8ba8b5a-486�f l-1e8ba8b5a-487�f l-1e8ba8b5a-488�f l-1e8ba8b5a-489� �R �g copier-id� �f l-1e8ba8b5a-476� �R� � g ctor-name�! �"f l-1e8ba8b5a-46e�#" �$R!�# �%� �&f l-1e8ba8b5a-46c�'& �(R%�' �)g layout�*) �+f l-1e8ba8b5a-46a�,+ �-R*�, �.g
immutable?�/. �0f l-1e8ba8b5a-468�10 �2R/�1 �3g field-count�43 �5f l-1e8ba8b5a-466�65 �7R4�6 �8g
getter-ids�98 �:f l-1e8ba8b5a-463�;: �<R9�; �=g field-ids�>= �?f l-1e8ba8b5a-460�@? �AR>�@ �Bg predicate-name�Cg
field-spec�D.���BC �Ejjjjjj �Ff l-1e8ba8b5a-453�Gf l-1e8ba8b5a-454�Hf l-1e8ba8b5a-455�If l-1e8ba8b5a-456�Jf l-1e8ba8b5a-457�Kf l-1e8ba8b5a-458�LFGHIJK �MRDEL �N� _f______$_(_-_2_7_<_AM�� �OMN� �PO �Qg and�RMQN� �Sg struct?�TMSN� �UTO �Vg eq?�WMVN� �Xg
struct-vtable�YMXN� �ZYO �[j _ �\M@[� �]WZ\ �^RU] �_P^ �`j_ �aM�`� �bg throw-bad-struct�cb �db �eg data-procedure->ip-counts�fg $%data-procedure->ip-counts-procedure�gg free-id�hg
%%on-error�ig m-8d25f648290-4f�jiP �kj �lf l-8d25f648290-51�ml �nRakm �oj_nf____o}�� �pMho� �qgp �rqK �sg %%type�tg t-1e8ba8b5a-3a5�ug t-1e8ba8b5a-3a6�vg t-1e8ba8b5a-3a7�wg t-1e8ba8b5a-3a8�xg t-1e8ba8b5a-3a9�yg t-1e8ba8b5a-3aa�zg t-1e8ba8b5a-3ab�{tuvwxyz �|g m-1e8ba8b5a-3ac�}|P �~}}}}}}} �f l-1e8ba8b5a-3b0��f l-1e8ba8b5a-3b1��f l-1e8ba8b5a-3b2��f l-1e8ba8b5a-3b3��f l-1e8ba8b5a-3b4��f l-1e8ba8b5a-3b5��f l-1e8ba8b5a-3b6�������� ��R{~� ��g getter��g index���� ��f l-1e8ba8b5a-3a3��f l-1e8ba8b5a-3a4���� ��R�k� ���8 ��jjj ��f l-1e8ba8b5a-39e��f l-1e8ba8b5a-39f��f l-1e8ba8b5a-3a0����� ��R��� ���_nf_�___�_��� ��Ms�� ��g� ��Jr�K ��g ck��g err��g s���� ��jj ��f l-8d25f648290-54��f l-8d25f648290-55���� ��R��� ��j�_nf____o}��
��M��� ��g quote��M��� ��j�_n ��M@�� ���� ��� ��g %%index��M��� ��g� ��Jr�K ��f l-8d25f648290-59��f l-8d25f648290-5a���� ��R��� ��j�_nf____o}��
��M��� ��M��� ���_n ��M
�� ���� ��� ��g %%copier��M��� ��g� ��Jr�K ��f l-8d25f648290-5e��f l-8d25f648290-5f���� ��R��� ��j�_nf____o}��
��M��� ��M��� ��g %%<coverage-data>-set-fields��j�_n ��M��� ���� ��� ��g t-8d25f648290-4e��� ��f l-8d25f648290-63��� ��R�k� ��j�_nf____o}��
��MN�� ����_nf_�___�_��� ��M��� ��� ��g if��M��� ��MV�� ��MX�� ���� ��j�_n ��M@�� ����� ��g
struct-ref��M��� ���_n ��M
�� ����� ��Mb�� ��M��� ��Me�� ���� ����� ������ ����� ��j_n ��Mf�� ��g data-procedure->sources��g "%data-procedure->sources-procedure��g m-8d25f648290-6a���P ��� ��f l-8d25f648290-6c��� ��Ra�� ���_�f____o}�� ��Mh�� ��g� ���K ���_�f_�___�_��� ��Ms�� ��g� ��J��K ���� ��f l-8d25f648290-6f��f l-8d25f648290-70���� ��R��� ����_�f____o}��
� M��� �M��� �j�_� �M@� � � �M��� �g �J�K � f l-8d25f648290-74�
f l-8d25f648290-75�
�R�� �
�_�f____o}��
�M�
� �M�
� �_� �M� � � �M��� �g �J�K �f l-8d25f648290-79�f l-8d25f648290-7a� �R�� ��_�f____o}��
�M�� �M�� �j_� �M�� � �! �"g t-8d25f648290-69�#" �$f l-8d25f648290-7e�%$ �&R#�% �'�&_�f____o}��
�(MN'� �)�&_�f_�___�_��� �*M�)� �+* �,M�)� �-MV)� �.MX)� �/.* �0j&_� �1M@0� �2-/1 �3M�)� �4&_� �5M4� �63*5 �7Mb)� �8M�)� �9M�0� �:89 �;7*: �<,26; �=(+< �>j_� �?M�>� �@g data-file->procedures�Ag %data-file->procedures-procedure�Bg m-8d25f648290-85�CBP �DC �Ef l-8d25f648290-87�FE �GRaDF �HC_Gf____o}�� �IMhH� �JgI �KJK �L�_Gf_�___�_��� �MMsL� �NgM �OJKNK �PCC �Qf l-8d25f648290-8a�Rf l-8d25f648290-8b�SQR �TR�PS �UCT_Gf____o}��
�VM�U� �WM�U� �XjT_G �YM@X� �ZWY �[Z �\M�L� �]g\ �^JK]K �_f l-8d25f648290-8f�`f l-8d25f648290-90�a_` �bR�Pa �cCb_Gf____o}��
�dM�c� �eM�c� �fb_G �gM f� �heg �ih �jM�L� �kgj �lJKkK �mf l-8d25f648290-94�nf l-8d25f648290-95�omn �pR�Po �qCp_Gf____o}��
�rM�q� �sM�q� �tjp_G �uM�t� �vsu �wv �xg t-8d25f648290-84�yx �zf l-8d25f648290-99�{z �|RyD{ �}C|_Gf____o}��
�~MN}� ��|_Gf_�___�_��� ��M�� ��� ��M�� ��MV� ��MX� ���� ��j|_G ��M@�� ����� ��M�� ��|_G ��M �� ����� ��Mb� ��M�� ��M@�� ���� ����� ������ ��~�� ��j_G ��MA�� ��g data-file->line-counts��g !%data-file->line-counts-procedure��g m-8d25f648290-a0���P ��� ��f l-8d25f648290-a2��� ��Ra�� ���_�f____o}�� ��Mh�� ��g� ���K ���_�f_�___�_��� ��Ms�� ��g� ��J��K ���� ��f l-8d25f648290-a5��f l-8d25f648290-a6���� ��R��� ����_�f____o}��
��M��� ��M��� ��j�_� ��M@�� ���� ��� ��M��� ��g� ��J��K ��f l-8d25f648290-aa��f l-8d25f648290-ab���� ��R��� ����_�f____o}��
��M��� ��M��� ���_� ��M �� ���� ��� ��M��� ��g� ��J��K ��f l-8d25f648290-af��f l-8d25f648290-b0���� ��R��� ����_�f____o}��
��M��� ��M��� ��j�_� ��M��� ���� ��� ��g t-8d25f648290-9f��� ��f l-8d25f648290-b4��� ��R��� ����_�f____o}��
��MN�� ����_�f_�___�_��� ��M��� ��� ��M��� ��MV�� ��MX�� ���� ��j�_� ��M@�� ����� ��M��� ���_� ��M �� ����� ��Mb�� ��M��� ��M��� ���� ����� ������ ����� ��j_� ��M��� ��g each��KK ���� ��K�K�K��g %%set-fields��g dummy��g check?��g expr������� ��g m-8d25f648290-bb���P ������� ��f l-8d25f648290-c0��f l-8d25f648290-c1��f l-8d25f648290-c2��f l-8d25f648290-c3��f l-8d25f648290-c4������� � R��� �� �f l-8d25f648290-bd� �Ra �g t-1e8ba8b5a-3c4�g t-1e8ba8b5a-3c6�g t-1e8ba8b5a-3c5� � g m-1e8ba8b5a-3c7�
P �
�f l-1e8ba8b5a-3cb�
f l-1e8ba8b5a-3cc�f l-1e8ba8b5a-3cd�
�R �f l-1e8ba8b5a-3c1�f l-1e8ba8b5a-3c2�f l-1e8ba8b5a-3c3� �R�� �� _f____��
�M�� �j _ �M@� �Me� �M�� �M@� �M�� � �g map� �! �"g list�#g
hash-for-each�$g program-sources*�%g source:file�&g for-each�'g source:line�(g hash-create-handle!�)g max�*g
append-map�+g closed-over-procedures�,g closest-source-line�-g hashq-ref�.g source:addr�/g module-procedures�0g loaded-modules�1g and=>�2g hashx-ref�3g hashv-ref�4g program?�5g program-sources�6g
hashq-set!�7g hash-ref�8g file-procedures�9g hash-fold�:
��;g
alist-cons�<g module-submodules�=g resolve-module�>g
procedure?�?g module-obarray�@g memq�Ag fold�Bg append�Cg vector->list�Dg program-objects�E �Fg program-free-variables�Gg format�Hf TN:~%�Ig search-path�Jg
%load-path�Kg string?�Lf SF:~A~%�Mg source:line-for-user�Ng procedure-name�Of
anonymous-l~a�Pf
FN:~A,~A~%�Qf FNDA:~A,~A~%�Rf
DA:~A,~A~%�Sf LH: ~A~%�Tf LF: ~A~%�Uf end_of_record~%�Vg current-error-port�Wf "skipping unknown source file: ~a~%�C 5 hpR � ]4
"#+5 4. > "