Your IP : 3.16.67.57
GOOF----LE-8-2.0�s ]� 4 h�; ] g guile� � g define-module*� � � g system� g base� g message� �
g filenameS� f system/base/message.scm� g importsS�
g srfi� g srfi-1�
� � g srfi-9�
� � g ice-9� g match� � � � g exportsS� g *current-warning-port*� g *current-warning-prefix*� g warning� g
warning-type?� g warning-type-name� g warning-type-description� g warning-type-printer� !g lookup-warning-type� "g %warning-types� # !" � $g set-current-module� %$ � &$ � 'g format� (f ~a:~a:~a� )g assoc-ref� *g filename� +f <stdin>� ,g line� -g column� .f <unknown-location>� /g location-string� 0g parameter-fluid� 1g current-warning-port� 2g
make-fluid� 3f ;;; � 4g <warning-type>� 5g %make-warning-type-procedure� 6g make-syntax-transformer� 76 � 86 � 9g make-warning-type� :g macro� ;g $sc-dispatch� <; � =; � >g _� ?g any� @>??? � Ag
syntax-object� Bg lambda� Cg m-44b57084b9-69a� Dg top� ECD � Fg ribcage� Gg t-44b57084b9-697� Hg t-44b57084b9-698� Ig t-44b57084b9-699� JGHI � KEEE � Lf l-44b57084b9-69f� Mf l-44b57084b9-6a0� Nf l-44b57084b9-6a1� OLMN � PFJKO � QF � Rg x� SR � TE � Uf l-44b57084b9-69c� VU � WFSTV � Xg shift� Yg proc-name� Zg args� [YZ � \D � ]\\ � ^f l-1e8ba8b5a-60� _f l-1e8ba8b5a-61� `^_ � aF[]` � bg key� cg value� dg name� eg formals� fg body� gbcdef � h\\\\\ � if l-1e8ba8b5a-53� jf l-1e8ba8b5a-54� kf l-1e8ba8b5a-55� lf l-1e8ba8b5a-56� mf l-1e8ba8b5a-57� nijklm � oFghn � pg make-procedure-name� qp � r\ � sf l-1e8ba8b5a-43� ts � uFqrt � v\ � wf l-1e8ba8b5a-42� xw � yFSvx � zEPQWXQQQQaouy
� {g hygiene� |{
� }ABz| � ~\PQW � { � �Ad~ � �g description� �A�~ � �g printer� �A�~ � ���� � �g make-struct� �g m-44b57084b9-695� ��D � �g t-1e8ba8b5a-133� �g t-1e8ba8b5a-132� �g t-1e8ba8b5a-131� ���� � �g m-1e8ba8b5a-134� ��D � ���� � �f l-1e8ba8b5a-138� �f l-1e8ba8b5a-139� �f l-1e8ba8b5a-13a� ���� � �F��� � �g ctor-args� �� � �f l-1e8ba8b5a-120� �� � �F�v� � �g ctor� �g field� ��� � �f l-1e8ba8b5a-11c� �f l-1e8ba8b5a-11d� ��� � �F�]� � �g form� �g type-name� �g constructor-spec� �g field-names� ����� � �\\\\ � �f l-1e8ba8b5a-111� �f l-1e8ba8b5a-112� �f l-1e8ba8b5a-113� �f l-1e8ba8b5a-114� ����� � �F��� � �g
record-layout� �g functional-setters� �g setters� �g copier� �g getters� �g constructor� �g getter-identifiers� �g field-identifiers� ��������� � �\\\\\\\\ � �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� ��������� � �F��� � �f l-1e8ba8b5a-da� �� � �FSv� � ��PQWXQ�QQQ��Q��� � �A��| � �A4~ � �A
�| � ������� � �}�� � �g each-any� �>ʌ� �g syntax-violation� �� � �� � �f Wrong number of arguments� �g identifier?� �� � �� � �\QW � �A5� � �� � �� � �f -source expression failed to match any pattern� �g record-type-vtable� �� � �� � �g pwpwpw� �g default-record-printer� �� � �� � �d�� � �g set-struct-vtable-name!� �� � �� � �g vtable-offset-user� �� � �� � �g %warning-type?-procedure� �>? � �g m-44b57084b9-6ab� ��D � �g t-44b57084b9-6aa� �� � �� � �f l-44b57084b9-6b0� �� � �F��� � �f l-44b57084b9-6ad� �� � �FS�� � ���Q�XQQQQaouy
� �AB�| � �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� ��D � ������� �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� � F� �
g copier-id�
�f l-1e8ba8b5a-21c�
�Fv
�g ctor-name� �f l-1e8ba8b5a-214� �Fv �� �f l-1e8ba8b5a-212� �Fv �g layout� �f l-1e8ba8b5a-210� �Fv �g
immutable?� �f l-1e8ba8b5a-20e� �!Fv �"g field-count�#" �$f l-1e8ba8b5a-20c�%$ �&F#v% �'g
getter-ids�(' �)f l-1e8ba8b5a-209�*) �+F(v* �,g field-ids�-, �.f l-1e8ba8b5a-206�/. �0F-v/ �1g predicate-name�2g
field-spec�3���12 �4\\\\\\ �5f l-1e8ba8b5a-1f9�6f l-1e8ba8b5a-1fa�7f l-1e8ba8b5a-1fb�8f l-1e8ba8b5a-1fc�9f l-1e8ba8b5a-1fd�:f l-1e8ba8b5a-1fe�;56789: �<F34; �=��Q�XQ QQQQQQQQ!Q&Q+Q0<�� �>A�=| �?> �@g and�AA@=| �Bg struct?�CAB=| �DC> �Eg eq?�FAE=| �Gg
struct-vtable�HAG=| �IH> �J\�Q� �KA4J �LFIK �MADL �N�?M �O\Q� �PA�O �Qg throw-bad-struct�RQ �SQ �Tg %warning-type-name-procedure�Ug free-id�Vg
%%on-error�Wg m-44b57084b9-6b7�XWD �YX �Zf l-44b57084b9-6b9�[Z �\FSY[ �]XQ\XQQQQaouy �^AV]| �_U^ �`_? �ag %%type�bg t-1e8ba8b5a-14b�cg t-1e8ba8b5a-14c�dg t-1e8ba8b5a-14d�eg t-1e8ba8b5a-14e�fg t-1e8ba8b5a-14f�gg t-1e8ba8b5a-150�hg t-1e8ba8b5a-151�ibcdefgh �jg m-1e8ba8b5a-152�kjD �lkkkkkkk �mf l-1e8ba8b5a-156�nf l-1e8ba8b5a-157�of l-1e8ba8b5a-158�pf l-1e8ba8b5a-159�qf l-1e8ba8b5a-15a�rf l-1e8ba8b5a-15b�sf l-1e8ba8b5a-15c�tmnopqrs �uFilt �vg getter�wg index�xvw �yf l-1e8ba8b5a-149�zf l-1e8ba8b5a-14a�{yz �|Fx]{ �}�'
�~\\\ �f l-1e8ba8b5a-144��f l-1e8ba8b5a-145��f l-1e8ba8b5a-146���� ��F}~� ���Q\XQuQQQ|Q��� ��Aa�| ��U� ��>`�? ��g ck��g err��g s���� ��XX ��f l-44b57084b9-6bc��f l-44b57084b9-6bd���� ��F��� ��X�Q\XQQQQaouy
��A��| ��g quote��A��| ��\�Q\ ��A4� ���� ��� ��g %%index��A��| ��U� ��>`�? ��f l-44b57084b9-6c1��f l-44b57084b9-6c2���� ��F��� ��X�Q\XQQQQaouy
��A��| ��A��| ���Q\ ��A
� ���� ��� ��g %%copier��A��| ��U� ��>`�? ��f l-44b57084b9-6c6��f l-44b57084b9-6c7���� ��F��� ��X�Q\XQQQQaouy
��A��| ��A��| ��g %%<warning-type>-set-fields��\�Q\ ��A�� ���� ��� ��g t-44b57084b9-6b6��� ��f l-44b57084b9-6cb��� ��F�Y� ��X�Q\XQQQQaouy
��AB�| ����Q\XQuQQQ|Q��� ��A��| ��� ��g if��A��| ��AE�| ��AG�| ���� ��\�Q\ ��A4� ����� ��g
struct-ref��A��| ���Q\ ��A
� ����� ��AQ�| ��A��| ��A� ���� ����� ������ ����� ��\Q\ ��AT� ��g #%warning-type-description-procedure��g m-44b57084b9-6d2���D ��� ��f l-44b57084b9-6d4��� ��FS�� ���Q�XQQQQaouy ��AV�| ��U� ���? ���Q�XQuQQQ|Q��� ��Aa�| ��U� ��>��? ���� ��f l-44b57084b9-6d7��f l-44b57084b9-6d8���� ��F��� ����Q�XQQQQaouy
��A��| ��A��| ��\�Q� ��A4� ���� ��� ��A��| ��U� ��>��? ��f l-44b57084b9-6dc��f l-44b57084b9-6dd���� ��F��� ����Q�XQQQQaouy
��A��| ��A��| ���Q� ��A� ���� � � �A��| �U �>�? �f l-44b57084b9-6e1�f l-44b57084b9-6e2� �F�� ��Q�XQQQQaouy
� A�| �
A�| �\Q� �A� �
�
�g t-44b57084b9-6d1� �f l-44b57084b9-6e6� �F� ��Q�XQQQQaouy
�AB| ��Q�XQuQQQ|Q��� �A�| � �A�| �AE| �AG| � �\Q� �A4 � � A�| �!Q� �"A! �# " �$AQ| �%A�| �&A �'%& �($' �)#( �*) �+\Q� �,A�+ �-g %warning-type-printer-procedure�.g m-44b57084b9-6ed�/.D �0/ �1f l-44b57084b9-6ef�21 �3FS02 �4/Q3XQQQQaouy �5AV4| �6U5 �76? �8�Q3XQuQQQ|Q��� �9Aa8| �:U9 �;>7:? �<// �=f l-44b57084b9-6f2�>f l-44b57084b9-6f3�?=> �@F�<? �A/@Q3XQQQQaouy
�BA�A| �CA�A| �D\@Q3 �EA4D �FCE �GF �HA�8| �IUH �J>7I? �Kf l-44b57084b9-6f7�Lf l-44b57084b9-6f8�MKL �NF�<M �O/NQ3XQQQQaouy
�PA�O| �QA�O| �RNQ3 �SA R �TQS �UT �VA�8| �WUV �X>7W? �Yf l-44b57084b9-6fc�Zf l-44b57084b9-6fd�[YZ �\F�<[ �]/\Q3XQQQQaouy
�^A�]| �_A�]| �`\\Q3 �aA�` �b_a �cb �dg t-44b57084b9-6ec�ed �ff l-44b57084b9-701�gf �hFe0g �i/hQ3XQQQQaouy
�jABi| �k�hQ3XQuQQQ|Q��� �lA�k| �ml �nA�k| �oAEk| �pAGk| �qpl �r\hQ3 �sA4r �toqs �uA�k| �vhQ3 �wA v �xulw �yAQk| �zA�k| �{A r �|z{ �}yl| �~ntx} �jm~ ��\Q3 ��A-� ��g each��?? ���� ��?����?����?����g %%set-fields��g dummy��g check?��g expr�����v� ��g m-44b57084b9-708���D ������� ��f l-44b57084b9-70d��f l-44b57084b9-70e��f l-44b57084b9-70f��f l-44b57084b9-710��f l-44b57084b9-711������� ��F��� ��� ��f l-44b57084b9-70a��� ��FS�� ��g t-1e8ba8b5a-16a��g t-1e8ba8b5a-16c��g t-1e8ba8b5a-16b����� ��g m-1e8ba8b5a-16d���D ����� ��f l-1e8ba8b5a-171��f l-1e8ba8b5a-172��f l-1e8ba8b5a-173����� ��F��� ��f l-1e8ba8b5a-167��f l-1e8ba8b5a-168��f l-1e8ba8b5a-169����� ��F}~� ����Q�XQ�QQQ���
��A��| ��\�Q� ��A4� ��A� ��A� ��A � ����� ��g map��� ��� ��g list��g unsupported-warning��f warn about unknown warning types��f &~awarning: unknown warning type `~A'~%��g unused-variable��f report unused variables��f %~a~A: warning: unused variable `~A'~%��g unused-toplevel��f 'report unused local top-level variables��f >~a~A: warning: possibly unused local top-level variable `~A'~%��g unbound-variable��f !report possibly unbound variables��f /~a~A: warning: possibly unbound variable `~A'~%��g arity-mismatch��f =report procedure arity mismatches (wrong number of arguments)��f 2~a~A: warning: wrong number of arguments to `~A'~%��f ;~a~A: warning: possibly wrong number of arguments to `~A'~%��g duplicate-case-datum��f -report a duplicate datum in a case expression��f F~a~A: warning: duplicate datum ~S in clause ~S of case expression ~S~%��g bad-case-datum��f Ereport a case datum that cannot be meaningfully compared using `eqv?'��f i~a~A: warning: datum ~S cannot be meaningfully compared using `eqv?' in clause ~S of case expression ~S~%��f ,report wrong number of arguments to `format'��g wrong-num-args��f ~a~A: `format' warning~%��f 6~a~A: warning: wrong number of arguments to `format'~%��g non-literal-format-string��f *~a~A: warning: non-literal format string~%��g wrong-format-string��f (~a~A: warning: ~S: wrong format string~%��g
wrong-port��f (~a~A: warning: ~S: wrong port argument~%��g syntax-error��g "unexpected-conditional-termination��f %~a~A: warning: ~S: unexpected `~~]'~%��g list->string��g string-fold-right��g append��\n ��g unexpected-semicolon��f %~a~A: warning: ~S: unexpected `~~;'~%��g unterminated-conditional��f -~a~A: warning: ~S: unterminated conditional~%��g unterminated-iteration��f +~a~A: warning: ~S: unterminated iteration~%��g wrong-format-arg-count��f L~a~A: warning: ~S: wrong number of `format' arguments: expected ~A, got ~A~%��f
any number��f
~aup to ~a��f
~aat least ~a��g number->string��f
~a~a to ~a��g
simple-format��f O~a~A: warning: ~S: unsupported format option ~~~A, use (ice-9 format) instead~%��g find��f #~A: unknown warning type `~A': ~A~%�C 5 h�3 � ]4
#5 4& > "