Server IP : 162.213.251.212 / Your IP : 3.12.76.84 [ Web Server : LiteSpeed System : Linux business55.web-hosting.com 4.18.0-553.lve.el8.x86_64 #1 SMP Mon May 27 15:27:34 UTC 2024 x86_64 User : allssztx ( 535) PHP Version : 8.1.31 Disable Function : NONE Domains : 1 Domains MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : OFF | Pkexec : OFF Directory : /proc/self/root/proc/self/root/proc/thread-self/root/lib64/guile/2.0/ccache/srfi/ |
Upload File : |
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 > "