GOOF----LE-8-2.0�4 ]R 4 hh ] g guile� � g define-module*� � � g srfi� g srfi-9� g gnu� �
g filenameS� f srfi/srfi-9/gnu.scm� g importsS�
g srfi-1�
� � g system� g base� g ck� � � � g exportsS� g set-record-type-printer!� g define-immutable-record-type� g set-field� g
set-fields� � g set-current-module� � � g vtable-index-printer� g make-syntax-transformer� ! � " � #g macro� $g $sc-dispatch� %$ � &$ � 'g any� (g each-any� )'(�� *')�� +'*�� ,'+�� -g
syntax-object� .g @@� /g top� 0/ � 1g ribcage� 2g dummy� 3g name� 4g ctor� 5g pred� 6g fields� 723456 � 8g m-1e8bcc284-11e� 98/ � :90000 � ;f l-1e8bcc284-123� <f l-1e8bcc284-124� =f l-1e8bcc284-125� >f l-1e8bcc284-126� ?f l-1e8bcc284-127� @;<=>? � A17:@ � B1 � Cg x� DC � E9 � Ff l-1e8bcc284-120� GF � H1DEG � I0ABH � Jg hygiene� KJ � L-.IK � M-IK � N-IK � OMN � Pg %define-record-type� Q-PIK � RLOQ � S-IK � T-IK � Ug syntax-violation� VU � WU � Xf -source expression failed to match any pattern� Y''(' � Zg %set-fields� [g s� \g getter� ]g expr� ^2[\] � _g m-1e8bcc284-130� `_/ � a`000 � bf l-1e8bcc284-135� cf l-1e8bcc284-136� df l-1e8bcc284-137� ef l-1e8bcc284-138� fbcde � g1^af � h` � if l-1e8bcc284-132� ji � k1Dhj � l0gBk � m-ZlK � n-lK � o-lK � p''�� q'p�� rg rest� s2[r � tg m-1e8bcc284-140� ut/ � vu00 � wf l-1e8bcc284-145� xf l-1e8bcc284-146� yf l-1e8bcc284-147� zwxy � {1svz � |u � }f l-1e8bcc284-142� ~} � 1D|~ � �0{B � �-Z�K � �-�K � �-�K � �g each� �p' � ��� � �g fold� �g find� �g free-identifier=?� �g delq� �g collate-set-field-specs� �g unknown-getter� �g _� ��'' � �f unknown getter� �g c-list� �g free-id� �g quote� �0 � �f l-1e8bcc284-175� �� � �1D�� � �0B� � �-��K � ��� � ��' � ��� � �'��� ����� �g v� �[� � �00 � �f l-1e8bcc284-178� �f l-1e8bcc284-179� ��� � �1��� � �0�B� � �-�K � �-��K � �g c-same-type-check� �f l-1e8bcc284-17e� �� � �1D�� � �0B� � �-��K � ��� � ��' � ��( � ��) � ��'����� � �g every� �g format� �f \field paths ~a and ~a require one object to belong to two different record types (~a and ~a)� �g
syntax->datum� �g append� �� � �� � �g orig-form� �g path� �g getter0� �g type0� �g type� �g
on-success� �[���\��� � �00000000 � �f l-1e8bcc284-1a3� �f l-1e8bcc284-1a4� �f l-1e8bcc284-1a5� �f l-1e8bcc284-1a6� �f l-1e8bcc284-1a7� �f l-1e8bcc284-1a8� �f l-1e8bcc284-1a9� �f l-1e8bcc284-1aa� ��������� � �1��� � �0�B� � �-�K � �-��K � �f l-1e8bcc284-1b4� �� � �1D�� � �0BB� � �-.�K � �-�K � �-�K � ��� � �g getter-type� �-��K � ���� � �g getter-index� �-��K � ���� � �g
getter-copier� �-��K � ���� � �''' � ��''(' � �' � ��''('� � �'��� �(䌤 �'匤 �'挤 ��猤 �g map� �� � �� � �g car� ��\ � �f l-1e8bcc284-1ea� �f l-1e8bcc284-1eb� ��� � �1��� � �g collated-specs� �� � �f l-1e8bcc284-1e2� �� � �1��� � �g check?� �g path-so-far� �g struct-expr� �g head� �g tail� �������] � �0000000 � �f l-1e8bcc284-1d4� �f l-1e8bcc284-1d5� f l-1e8bcc284-1d6�f l-1e8bcc284-1d7�f l-1e8bcc284-1d8�f l-1e8bcc284-1d9�f l-1e8bcc284-1da��� �1�� ���� �000 � f l-1e8bcc284-1b8�
f l-1e8bcc284-1b9�f l-1e8bcc284-1ba�
�
1 �0BB�BB�B
BB�
�-�K �'' �� �'����] �f l-1e8bcc284-202�f l-1e8bcc284-203�f l-1e8bcc284-204� �1 �g spec� �f l-1e8bcc284-1fe� �1� �g err� � f l-1e8bcc284-1f0�! �"1�! �#0BBBBBBB"BB�BB�B
BB� �$-�#K �%f l-1e8bcc284-20a�&% �'1�& �(0B'BBBBBBB"BB�BB�B
BB� �)-Z(K �*g
struct-ref�+-*(K �,-[(K �--(K �.-�(K �/g list�0g t-1e8bcc284-1f2�10 �2g m-1e8bcc284-1f3�32/ �43 �5f l-1e8bcc284-1f7�65 �71146 �80B7BBB"BB�BB�B
BB� �9-8K �:-�8K �;-�8K �<-�8K �=g let�>-=8K �?-[8K �@�� �A�@��B'A��C(B��D'C��E'D��F�E��Gf duplicate field path�H(' �I�H �J'I��K(J��L'K��M'L��N�M��Of %one field path is a prefix of another�P�q��Qf invalid syntax�C 5 h� g ]4
5 4 > "