GOOF----LE-8-2.0�s ]� 4 hG3 ] g guile� � g define-module*� � � g srfi� g srfi-9� � g filenameS�
f srfi/srfi-9.scm� g importsS� g srfi-1�
�
� g system� g base� g ck� � � � g exportsS� g define-record-type� � g set-current-module� � � g cond-expand-provide� g current-module� � g make-syntax-transformer� � � !g define-inlinable� "g macro� #g $sc-dispatch� $# � %# � &g any� 'g each-any� (&'�� )('�� *&)�� +g
syntax-object� ,g define-tagged-inlinable� -g top� .- � /g ribcage� 0g dummy� 1g name� 2g formals� 3g body� 40123 � 5g m-1e8ba8b5a-25b� 65- � 76... � 8f l-1e8ba8b5a-260� 9f l-1e8ba8b5a-261� :f l-1e8ba8b5a-262� ;f l-1e8ba8b5a-263� <89:; � =/47< � >/ � ?g x� @? � A6 � Bf l-1e8ba8b5a-25d� CB � D/@AC � E.=>D � Fg hygiene� GF � H+,EG � Ig syntax-violation� JI � KI � Lf -source expression failed to match any pattern� Mg
%%on-error� N&& � Og %%type� Pg getter-type� Qg free-id� Rg quote� Sg m-1e8ba8b5a-274� TS- � UT � Vf l-1e8ba8b5a-276� WV � X/@UW � Y.>X � Z+RYG � [QZ � \[& � ]&&\\ � ^g s� _g getter� `g err� a0^_` � bT... � cf l-1e8ba8b5a-279� df l-1e8ba8b5a-27a� ef l-1e8ba8b5a-27b� ff l-1e8ba8b5a-27c� gcdef � h/abg � i.h>X � j+MiG � k+OiG � lg %%index� mg getter-index� ng m-1e8ba8b5a-281� on- � po � qf l-1e8ba8b5a-283� rq � s/@pr � t.>s � u+RtG � vQu � wv& � x&&ww � yo... � zf l-1e8ba8b5a-286� {f l-1e8ba8b5a-287� |f l-1e8ba8b5a-288� }f l-1e8ba8b5a-289� ~z{|} � /ay~ � �.>s � �+M�G � �+l�G � �g %%copier� �g
getter-copier� �g m-1e8ba8b5a-28e� ��- � �� � �f l-1e8ba8b5a-290� �� � �/@�� � �.>� � �+R�G � �Q� � ��& � �&&�� � ��... � �f l-1e8ba8b5a-293� �f l-1e8ba8b5a-294� �f l-1e8ba8b5a-295� �f l-1e8ba8b5a-296� ����� � �/a�� � �.�>� � �+M�G � �+��G � �g _� �g each� ��N � ��)�� ����� �g identifier?� �g
datum->syntax� �g
symbol-append� �g %� �g
syntax->datum� �g
-procedure� �g generate-temporaries� �&' � �g begin� �g proc-name� �g args� ��� � �.. � �f l-1e8ba8b5a-2ba� �f l-1e8ba8b5a-2bb� ��� � �/��� � �g key� �g value� ���123 � �..... � �f l-1e8ba8b5a-2ad� �f l-1e8ba8b5a-2ae� �f l-1e8ba8b5a-2af� �f l-1e8ba8b5a-2b0� �f l-1e8ba8b5a-2b1� ������ � �/��� � �g make-procedure-name� �� � �. � �f l-1e8ba8b5a-29d� �� � �/��� � �. � �f l-1e8ba8b5a-29c� �� � �/@�� � �.>>>>���� � �+��G � �g define� �+��G � �g
define-syntax� �+��G � �g lambda� �+��G � �+?�G � �� � �g syntax-case� �+��G � �+M�G � �g append� �� � �� � �g map� �� � �� � �+��G � �+`�G � ��� � �+^�G � �� � �g syntax� �+��G � �+�G � �+R�G � �g a� �+��G � �g ...� �+��G � ���� � �+I�G � �f Wrong number of arguments� �+��G � ��� � �+��G � ��� � �g display� �f #<� �g record-type-name� �g record-type-descriptor� �f � �f : � �g write� �g record-type-fields� �f >� �g default-record-printer� �g throw� �g wrong-type-arg� �f Wrong type argument: ~S� �g throw-bad-struct� �g %%� �g -set-fields� �g make-copier-id� �g %%set-fields� �&��� �&��� '���& �����g every�g list�g for-each�g find�g free-identifier=?�f unknown getter� g
struct-ref�
g t-1e8ba8b5a-32b�
�g m-1e8ba8b5a-32c�
- �
�f l-1e8ba8b5a-32f� �/ �g index�_ �f l-1e8ba8b5a-329�f l-1e8ba8b5a-32a� �/� �g lookup� �f l-1e8ba8b5a-2fe� �/� �g copier-name�g getter+exprs� � f l-1e8ba8b5a-2f8�!f l-1e8ba8b5a-2f9�" ! �#/�" �$g type-name�%g getter-id�&g check?�'g expr�($%&^_' �)...... �*f l-1e8ba8b5a-2ec�+f l-1e8ba8b5a-2ed�,f l-1e8ba8b5a-2ee�-f l-1e8ba8b5a-2ef�.f l-1e8ba8b5a-2f0�/f l-1e8ba8b5a-2f1�0*+,-./ �1/()0 �2f l-1e8ba8b5a-2dc�32 �4/@�3 �5.>>#1>4
�6+ 5G �7g filter�8g length�9f duplicate getter�:g iota�;g make-struct�<g t-1e8ba8b5a-31f�=< �>g m-1e8ba8b5a-320�?>- �@? �Af l-1e8ba8b5a-324�BA �C/=@B �D.>C#1>4 �E+;DG �F+
DG �Gg here�Hg unsafe-expr�IH �Jf l-1e8ba8b5a-317�KJ �L/I�K �M.>L#1>4 �N+GMG �Og if�Pg t-1e8ba8b5a-319�QP �Rg m-1e8ba8b5a-31a�SR- �TS �Uf l-1e8ba8b5a-31d�VU �W/QTV �X.>W>L#1>4
�Y+OXG �Zg eq?�[+ZXG �\g
struct-vtable�]+\XG �^+�XG �_+RXG �`g %define-record-type�a&(��b&a��c&b��d&c��e�d��f&&��g&f��h�g��if invalid record definition syntax�jg boolean?�kf expected type name�lf invalid constructor spec�mf expected predicate name�n&&& �of invalid field spec�pg string-concatenate�qg make-list�rf pr�sf pw�tg memq�uf !unknown field in constructor spec�vg assq-ref�w&&' �xg t-1e8ba8b5a-38d�yg t-1e8ba8b5a-38c�zg t-1e8ba8b5a-38b�{xyz �|g m-1e8ba8b5a-38e�}|- �~}}} �f l-1e8ba8b5a-392��f l-1e8ba8b5a-393��f l-1e8ba8b5a-394���� ��/{~� ��g ctor-args��� ��f l-1e8ba8b5a-37a��� ��/��� ��g ctor��g field���� ��f l-1e8ba8b5a-376��f l-1e8ba8b5a-377���� ��/��� ��g form��g constructor-spec��g field-names���$�� ��.... ��f l-1e8ba8b5a-36b��f l-1e8ba8b5a-36c��f l-1e8ba8b5a-36d��f l-1e8ba8b5a-36e������ ��/��� ��g
record-layout��g functional-setters��g setters��g copier��g getters��g constructor��g getter-identifiers��g field-identifiers���������� ��........ ��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���������� ��/��� ��f l-1e8ba8b5a-334��� ��/@�� ��.>�>>>��>��� ��+!�G ��+;�G ��+
�G ��g copier-id��� ��f l-1e8ba8b5a-476��� ��/��� ��g ctor-name��� ��f l-1e8ba8b5a-46e��� ��/��� ��� ��f l-1e8ba8b5a-46c��� ��/��� ��g layout��� ��f l-1e8ba8b5a-46a��� ��/��� ��g
immutable?��� ��f l-1e8ba8b5a-468��� ��/��� ��g field-count��� ��f l-1e8ba8b5a-466��� ��/��� ��g
getter-ids��� ��f l-1e8ba8b5a-463��� ��/��� ��g field-ids��� ��f l-1e8ba8b5a-460��� ��/��� ��g predicate-name��g
field-spec����$��� ��f l-1e8ba8b5a-453��f l-1e8ba8b5a-454��f l-1e8ba8b5a-455��f l-1e8ba8b5a-456��f l-1e8ba8b5a-457��f l-1e8ba8b5a-458�������� ��/�)� ��.>>>>�>�>�>�>�>�>�>���� ��+G�G ��g make-struct-layout��&&&&&&& ��g t-1e8ba8b5a-3a5��g t-1e8ba8b5a-3a6��g t-1e8ba8b5a-3a7��g t-1e8ba8b5a-3a8��g t-1e8ba8b5a-3a9��g t-1e8ba8b5a-3aa��g t-1e8ba8b5a-3ab��������� ��g m-1e8ba8b5a-3ac���- ��������� ��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��������� ��/��� � f l-1e8ba8b5a-3a3�f l-1e8ba8b5a-3a4� �/� �$�� �... �f l-1e8ba8b5a-39e�f l-1e8ba8b5a-39f�f l-1e8ba8b5a-3a0� �
/ �.>�>>>>
�� �+,G �
+OG �+lG �+�G �+^G � �+OG �+ZG �+\G � �+ G �+�G �+RG �g define-syntax-rule�g t-1e8ba8b5a-3c4�g t-1e8ba8b5a-3c6�g t-1e8ba8b5a-3c5� �g m-1e8ba8b5a-3c7�- � �!f l-1e8ba8b5a-3cb�"f l-1e8ba8b5a-3cc�#f l-1e8ba8b5a-3cd�$!"# �%/ $ �&f l-1e8ba8b5a-3c1�'f l-1e8ba8b5a-3c2�(f l-1e8ba8b5a-3c3�)&'( �*/) �+.>%>>>*�� �,++G �-+&+G �.+^+G �/+_+G �0+'+G �1/0 �2+�+G �3-.12 �4+�+G �5g
filter-map�6g t-1e8ba8b5a-405�76 �8g m-1e8ba8b5a-406�98- �:9 �;f l-1e8ba8b5a-409�<; �=/7:< �>g setter�?1_> �@f l-1e8ba8b5a-3ff�Af l-1e8ba8b5a-400�Bf l-1e8ba8b5a-401�C@AB �D/?C �E� �Ff l-1e8ba8b5a-3f6�Gf l-1e8ba8b5a-3f7�HFG �I/E�H �Jg field-specs�K�J �Lf l-1e8ba8b5a-3f2�Mf l-1e8ba8b5a-3f3�NLM �O/K�N �P.>=D>I>O��
�Q+!PG �R+^PG �Sg val�T+SPG �URT �V+PG �WT �Xg t-1e8ba8b5a-3e6�Yg t-1e8ba8b5a-3e7�ZXY �[g m-1e8ba8b5a-3e8�\[- �]\\ �^f l-1e8ba8b5a-3ec�_f l-1e8ba8b5a-3ed�`^_ �a/Z]` �bf l-1e8ba8b5a-3e0�cf l-1e8ba8b5a-3e1�df l-1e8ba8b5a-3e2�ebcd �f/?e �gf l-1e8ba8b5a-3d7�hf l-1e8ba8b5a-3d8�igh �j/E�i �k$J �lf l-1e8ba8b5a-3d3�mf l-1e8ba8b5a-3d4�nlm �o/k�n �p.>af>j>o��
�q+!pG �r+^pG �s+SpG �trs �u+OpG �v+ZpG �w+\pG �xwr �yg struct-set!�z+ypG �{s �|+�pG �}+RpG �~&&&&'&' �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���- ��������� ��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��������� ��/��� ��.>�>>>>�>�>�>�>�>�>�>���� ��+��G ��+��G ��g let��+��G ��g rtd��+��G ��g make-struct/no-tail��+��G ��g record-type-vtable��+��G ��+R�G ��+��G ��g set-struct-vtable-name!��+��G ��+y�G ��g +��+��G ��+ �G ��g vtable-offset-user��+��G ����� ��� ��+!�G ��g obj��+��G ��� ��g and��+��G ��g struct?��+��G ���� ��+Z�G ��+\�G ���� ��g pred��g fields��01��� ��g m-1e8ba8b5a-4a3���- ���.... ��f l-1e8ba8b5a-4a8��f l-1e8ba8b5a-4a9��f l-1e8ba8b5a-4aa��f l-1e8ba8b5a-4ab��f l-1e8ba8b5a-4ac������� ��/��� ��� ��f l-1e8ba8b5a-4a5��� ��/@�� ��.�>� ��+`�G ��+�G ��+�G �C 5 h�<