GOOF----LE-8-2.0�F ] 4 hQ ] g guile� � g define-module*� � � g srfi� g srfi-35� � g filenameS�
f srfi/srfi-35.scm� g importsS� g srfi-1�
�
� � g exportsS� g make-condition-type� g condition-type?� g make-condition� g
condition?� g condition-has-type?� g
condition-ref� g make-compound-condition� g extract-condition� g define-condition-type� g condition� g
&condition� g &message� g message-condition?� g condition-message� g &serious� g serious-condition?� !g &error� "g error?� # !" � $g set-current-module� %$ � &$ � 'g cond-expand-provide� (g current-module� ) � *g make-vtable� +g
string-append� ,g standard-vtable-fields� -f prprpr� .g format� /f #<condition-type ~a ~a>� 0g condition-type-id� 1g number->string� 2g object-address� 3g set-struct-vtable-name!� 4g condition-type� 5g %condition-type-vtable� 6g make-struct-layout� 7g print-condition� 8g string?� 9g string->symbol� :f � ;g %make-condition-type� <g vtable-offset-user� =g condition-type-parent� >g condition-type-all-fields� ?g string-concatenate/shared� @f pr� A@ � Bg struct-layout-for-condition� Cf #<condition ~a [~a] ~a>� Dg fold� Ef ~A: ~S� Fg string-join� Gg reverse� Hf � Ig error� Jf "invalid condition type field names� Kg every� Lg symbol?� Mg lset-intersection� Ng eq?� Og append� Pf parent is not a condition type� Qf )condition type identifier is not a symbol� Rf 7`make-compound-condition-type' passed empty parent list� Sg
append-map� Tg make-compound-condition-type� Ug throw� Vg wrong-type-arg� Wf condition-has-type?� Xf Wrong type argument� Yg any� Zg
list-index� [f invalid field name� \f field name is not a symbol� ]f
condition-ref� ^f Wrong type argument: ~S� _g make-struct� `g make-condition-from-values� ag
fold-right� bg memq� cf field not specified� df make-condition� eg map� fg compound� gg reverse!� hf extract-condition� ig +� jg length� kg make-syntax-transformer� lk � mk � ng macro� og $sc-dispatch� po � qo � rg each� sYY � trs � uYt�� vYu�� wYv�� xYw�� yg
syntax-object� zg begin� {g top� |{ � }g ribcage� ~g dummy� g name� �g parent� �g pred� �g
field-name� �g field-accessor� �~���� � �g m-46961e5119-cc� ��{ � ��||||| � �f l-46961e5119-d1� �f l-46961e5119-d2� �f l-46961e5119-d3� �f l-46961e5119-d4� �f l-46961e5119-d5� �f l-46961e5119-d6� ������� � �}��� � �} � �g x� �� � �� � �f l-46961e5119-ce� �� � �}��� � �|��� � �g hygiene� �� � �yz�� � �g define� �y��� � �y�� � �g quote� �y��� � �g c� �y��� � �� � �y�� � �e � �e � �y�� � �g syntax-violation� �� � �� � �f -source expression failed to match any pattern� �g compound-condition� �g each-any� �Y�� � �g type� �g field� �~�� � �g m-46961e5119-e1� ��{ � ��|| � �f l-46961e5119-e6� �f l-46961e5119-e7� �f l-46961e5119-e8� ���� � �}��� � �� � �f l-46961e5119-e3� �� � �}��� � �|��� � �y�� � �yT�� � �y��� � �g %compound� �y��� � ��� � �g
quasiquote� �y��� � �g unquote� �y��� � �g condition-instantiation� �YY� � �g out� �~�� � �g m-46961e5119-ee� ��{ � ��|| � �f l-46961e5119-f3� �f l-46961e5119-f4� �f l-46961e5119-f5� ���� � �}��� � �� � �f l-46961e5119-f0� �� � �}��� � �|��� � �y�� � �s��� ��ڌ� �Yی� �Y܌� �g field-value� �g rest� �~����� � ��||||| � �f l-46961e5119-fb� �f l-46961e5119-fc� �f l-46961e5119-fd� �f l-46961e5119-fe� �f l-46961e5119-ff� �f l-46961e5119-100� ������� � �}��� � �|��� � �y��� � �O � �O � �y��� � �Y��� �Y� � �g m-46961e5119-109� ��{ � ��|| � �f l-46961e5119-10e� �f l-46961e5119-10f� �f l-46961e5119-110� ���� � �}��� � �� � �f l-46961e5119-10b� �� � �}��� � �|��� � �y��� � �r� � Y���f l-46961e5119-116�f l-46961e5119-117�f l-46961e5119-118� �}�� �|�� �y�� �g display� f <&condition>�
g message�
�C 5 hx0 � ]4
#5 4& > "