GOOF----LE-8-2.0a ]� 4 h4 ] g guile� � g define-module*� � � g srfi� g srfi-67� � g filenameS�
f srfi/srfi-67.scm� g importsS� g srfi-27�
�
� � g exportsS� g </<=?� g </<?� g <=/<=?� g <=/<?� g <=?� g <?� g =?� g >/>=?� g >/>?� g >=/>=?� g >=/>?� g >=?� g >?� g boolean-compare� g chain<=?� g chain<?� !g chain=?� "g chain>=?� #g chain>?� $g char-compare� %g char-compare-ci� &g compare-by<� 'g compare-by<=� (g
compare-by=/<� )g
compare-by=/>� *g compare-by>� +g compare-by>=� ,g complex-compare� -g cond-compare� .g
debug-compare� /g default-compare� 0g if-not=?� 1g if3� 2g if<=?� 3g if<?� 4g if=?� 5g if>=?� 6g if>?� 7g integer-compare� 8g kth-largest� 9g list-compare� :g list-compare-as-vector� ;g max-compare� <g min-compare� =g not=?� >g number-compare� ?g pair-compare� @g pair-compare-car� Ag pair-compare-cdr� Bg pairwise-not=?� Cg rational-compare� Dg real-compare� Eg refine-compare� Fg select-compare� Gg symbol-compare� Hg vector-compare� Ig vector-compare-as-list� J !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHI 9� Kg replacementsS� Lg string-compare� Mg string-compare-ci� NLM � Og set-current-module� PO � QO � Rg cond-expand-provide� Sg current-module� T � Ug for-each� Vg compare:checked� Wg make-syntax-transformer� XW � YW � Zg macro� [g $sc-dispatch� \[ � ][ � ^g any� _^^^^^ � `g
syntax-object� ag case� bg top� cb � dg ribcage� eg dummy� fg c� gg less� hg equal� ig greater� jefghi � kg m-46961e518a-3� lkb � mlcccc � nf l-46961e518a-8� of l-46961e518a-9� pf l-46961e518a-a� qf l-46961e518a-b� rf l-46961e518a-c� snopqr � tdjms � ud � vg x� wv � xl � yf l-46961e518a-5� zy � {dwxz � |ctu{ � }g hygiene� ~} � `a|~ � �` �|~ � �� � �`
|~ � �� � �`|~ � �� � �g else� �`�|~ � �g error� �`�|~ � �f comparison value not in {-1,0,1}� �`�|~ � ��� � ��� � �� � �g syntax-violation� �� � �� � �f -source expression failed to match any pattern� �g compare:if-rel?� �g c-cases� �g a-cases� �g consequence� �e��f� � �g m-46961e518a-12� ��b � ��cccc � �f l-46961e518a-17� �f l-46961e518a-18� �f l-46961e518a-19� �f l-46961e518a-1a� �f l-46961e518a-1b� ������ � �d��� � �� � �f l-46961e518a-14� �� � �dw�� � �c�u� � �`��~ � �g if� �`��~ � �`�~ � ���� � �� � �^^^^^^ � �g alternate� �e��f�� � ��ccccc � �f l-46961e518a-22� �f l-46961e518a-23� �f l-46961e518a-24� �f l-46961e518a-25� �f l-46961e518a-26� �f l-46961e518a-27� ������� � �d��� � �c�u� � �`a�~ � �`��~ � �`��~ � �`��~ � ��� � ��� � �� � �g each-any� �^��� �g arg� �e� � �g m-46961e518a-2f� ��b � ��c � �f l-46961e518a-34� �f l-46961e518a-35� ��� � �d��� � �� � �f l-46961e518a-31� �� � �dw�� � �c�u� � �`��~ � �`
�~ � �� � �` ��~ � �`�~ � ��� � �g m-46961e518a-3a� ��b � ��c � �f l-46961e518a-3f� �f l-46961e518a-40� ��� � �d��� � �� � �f l-46961e518a-3c� �� � �dw�� � �c�u� � �`��~ � �` ��~ � �� � �`
�~ � �`�~ � ��� � �g m-46961e518a-45� ��b � ��c � �f l-46961e518a-4a� �f l-46961e518a-4b� ��� � �d��� � �� � �f l-46961e518a-47� �� � �dw�� � �c�u� � �`��~ � �`�~ � �� � �` ��~ � �`
�~ � ��� � �g m-46961e518a-50� ��b � ��c � �f l-46961e518a-55� �f l-46961e518a-56� �� �d�� �� �f l-46961e518a-52� �dw �cu �`�~ �` �~ � `
~ �
�`~ � �
g m-46961e518a-5b�
b �c �f l-46961e518a-60�f l-46961e518a-61� �d� � �f l-46961e518a-5d� �dw �cu �`�~ �`
~ �`~ � �` �~ � �g m-46961e518a-66� b �! c �"f l-46961e518a-6b�#f l-46961e518a-6c�$"# �%d�!$ �& �'f l-46961e518a-68�(' �)dw&( �*c%u) �+`�*~ �,` �*~ �-`*~ �.,- �/`
*~ �0/ �1g compare:define-rel?�2^^^ �3g define�4g rel?�5g if-rel?�6e45 �7g m-46961e518a-71�87b �98cc �:f l-46961e518a-76�;f l-46961e518a-77�<f l-46961e518a-78�=:;< �>d69= �?8 �@f l-46961e518a-73�A@ �Bdw?A �Cc>uB �D`3C~ �Eg case-lambda�F`EC~ �Gg lambda�H`GC~ �I`vC~ �Jg y�K`JC~ �LIK �M`/C~ �NMIK �O`C~ �P`C~ �QNOP �Rg compare�S`RC~ �TS �USIK �VUOP �W`�C~ �Xg
procedure?�Y`XC~ �ZYS �[`�C~ �\f *not a procedure (Did you mean rel/rel??): �]`\C~ �^[]S �_^ �`g compare:define-rel1/rel2?�a^^^^ �bg
rel1/rel2?�cg if-rel1?�dg if-rel2?�eebcd �fg m-46961e518a-83�gfb �hgccc �if l-46961e518a-88�jf l-46961e518a-89�kf l-46961e518a-8a�lf l-46961e518a-8b�mijkl �ndehm �og �pf l-46961e518a-85�qp �rdwoq �scnur �t`3s~ �u`Es~ �v`Gs~ �w`vs~ �x`Js~ �yg z�z`ys~ �{wxz �|`/s~ �}|wx �~|xz �`s~ ��`s~ ��~� ��`Vs~ ����|z ��� ��`Rs~ ��� ���wx ���xz ���� �����z ��� ���wxz ��g compare:define-chain-rel?��g
chain-rel?��e�5 ��g m-46961e518a-99���b ���cc ��f l-46961e518a-9e��f l-46961e518a-9f��f l-46961e518a-a0����� ��d��� ��� ��f l-46961e518a-9b��� ��dw�� ��c�u� ��`3�~ ��`E�~ ��`R�~ ��� ��`�~ ���� ��g x1��`��~ ���� ��`V�~ ������ ���� ��g x2��`��~ ����� ��`�~ ����� ��g x3��`��~ ������ ����� ����� ������ ��� ��g x3+��`��~ �����������������g let��`��~ ��g chain?��`��~ ��g head��`��~ ���� ��g tail��`��~ ���� ���� ��`��~ ��g null?��`��~ ���� ��g car��`��~ ���� ����� ��g cdr��`��~ ���� ����� ��g apply��`��~ ������� ����� ������� ��� ��g random-integer��g list-ref��g length��f bad index��g integer?��g exact?��^ ��e ��g m-46961e518a-a9���b ��� ��f l-46961e518a-ae��� ��d��� ��f l-46961e518a-ab��� ��dw�� ��c�u� ��`
�~ ��^^ ��^��^댤�g c1��g c2��g cs��e��� ���ccc ��f l-46961e518a-b6��f l-46961e518a-b7��f l-46961e518a-b8��f l-46961e518a-b9������ ��d��� ��c�u� ��`1�~ ��` ��~ ��`E�~ ��`�~ ��� ��g clause��evJ� � g m-46961e518a-bf� b �ccc �f l-46961e518a-c4�f l-46961e518a-c5�f l-46961e518a-c6�f l-46961e518a-c7� �d� � �
f l-46961e518a-c1�
�dw �
cu �`�
~ �g x-val�`
~ �g y-val�`
~ �`F
~ �^� �evJ �cc �f l-46961e518a-ce�f l-46961e518a-cf�f l-46961e518a-d0� �d �cu �`
~ �g free-id�cu � `�~ �! �"!���#^^" �$^# �%evJf �&f l-46961e518a-d5�'f l-46961e518a-d6�(f l-46961e518a-d7�)f l-46961e518a-d8�*&'() �+d%* �,c+u �-`E,~ �.����/^.��0^/��1^0 �2g t?�3evJ2f� �4ccccc �5f l-46961e518a-df�6f l-46961e518a-e0�7f l-46961e518a-e1�8f l-46961e518a-e2�9f l-46961e518a-e3�:f l-46961e518a-e4�;56789: �<d34; �=c<u �>`�=~ �?g t?-val�@`?=~ �Ag tx�B`A=~ �Cg ty�D`C=~ �E`�=~ �F`E=~ �G` �=~ �HG �I`=~ �J`F=~ �Kg m-46961e518a-ed�LKb �ML �Nf l-46961e518a-f2�ON �Pd�MO �Qf l-46961e518a-ef�RQ �SdwMR �TcPuS �U`
T~ �VcuS �W`�V~ �XW �YX���Z^Y �[e� �\Lc �]f l-46961e518a-f5�^f l-46961e518a-f6�_]^ �`d[\_ �ac`uS �b`Ea~ �c����dc���e^d��feAC�� �gLcccc �hf l-46961e518a-fb�if l-46961e518a-fc�jf l-46961e518a-fd�kf l-46961e518a-fe�lf l-46961e518a-ff�mhijkl �ndfgm �ocnuS �p`�o~ �qg tx-val�r`qo~ �sg ty-val�t`so~ �u`�o~ �v`Eo~ �w` �o~ �xw �y`o~ �z`-o~ �{g compare:type-check�|g type?�}g type-name�~e|}v �g m-46961e518a-107��b ���ccc ��f l-46961e518a-10c��f l-46961e518a-10d��f l-46961e518a-10e��f l-46961e518a-10f������ ��d~�� ��� ��f l-46961e518a-109��� ��dw�� ��c�u� ��`��~ ��g not��`��~ ��`��~ ��g
string-append��`��~ ��f not ��`��~ ��f :��`��~ ��� ��g begin��e|}vJ ���cccc ��f l-46961e518a-115��f l-46961e518a-116��f l-46961e518a-117��f l-46961e518a-118��f l-46961e518a-119������� ��d��� ��c�u� ��`��~ ��`{�~ ��g compare:define-by=/<��g =��g <��eR��|} ��g m-46961e518a-120���b ���ccccc ��f l-46961e518a-125��f l-46961e518a-126��f l-46961e518a-127��f l-46961e518a-128��f l-46961e518a-129��f l-46961e518a-12a�������� ��d��� ��� ��f l-46961e518a-122��� ��dw�� ��c�u� ��`3�~ ��`��~ ��`G�~ ��`v�~ ��`J�~ ���� ��`��~ ��� ��g eq?��`��~ ����� ��`
�~ ��� ��` ��~ ��`�~ ���� ��`��~ ��`��~ ��`��~ ��`��~ ��� ��g boolean?��f boolean��g char=?��g char?��g char<?��f char��g char-ci=?��g char-ci<?��g string=?��g string<?��g string?��f string��g string-ci=?��g string-ci<?��f symbol��g symbol->string��f integer��g rational?��f rational��g real?��f real��g complex?��f complex��g real-part��g imag-part��g number?��f number��g
vector-length��g
vector-ref��g min��f $unrecognized type in default-compare��f compare value not in {-1,0,1}��f compare error: not reflexive��f !compare error: not anti-symmetric��yJv ��Jyv ��yvJ ��vyJ ��Jvy ��vJy ��
��
����
�
�
����
��
��f compare error: not transitive��g map�C 5h8� � ]4
JKN5 4Q > "