⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.19
Server IP:
178.33.27.10
Server:
Linux cpanel.dev-unit.com 3.10.0-1160.108.1.el7.x86_64 #1 SMP Thu Jan 25 16:17:31 UTC 2024 x86_64
Server Software:
Apache/2.4.57 (Unix) OpenSSL/1.0.2k-fips
PHP Version:
8.2.11
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
proc
/
self
/
root
/
usr
/
lib64
/
guile
/
2.0
/
ccache
/
srfi
/
View File Name :
srfi-67.go
GOOF----LE-8-2.0 ]� 4 h�: ] 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-gxm5Bd45k8xjb7z4Op8YfQ-15705� lkb � mlcccc � nf l-gxm5Bd45k8xjb7z4Op8YfQ-15710� of l-gxm5Bd45k8xjb7z4Op8YfQ-15711� pf l-gxm5Bd45k8xjb7z4Op8YfQ-15712� qf l-gxm5Bd45k8xjb7z4Op8YfQ-15713� rf l-gxm5Bd45k8xjb7z4Op8YfQ-15714� snopqr � tdjms � ud � vg x� wv � xl � yf l-gxm5Bd45k8xjb7z4Op8YfQ-15707� 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-gxm5Bd45k8xjb7z4Op8YfQ-15720� ��b � ��cccc � �f l-gxm5Bd45k8xjb7z4Op8YfQ-15725� �f l-gxm5Bd45k8xjb7z4Op8YfQ-15726� �f l-gxm5Bd45k8xjb7z4Op8YfQ-15727� �f l-gxm5Bd45k8xjb7z4Op8YfQ-15728� �f l-gxm5Bd45k8xjb7z4Op8YfQ-15729� ������ � �d��� � �� � �f l-gxm5Bd45k8xjb7z4Op8YfQ-15722� �� � �dw�� � �c�u� � �`��~ � �g if� �`��~ � �`�~ � ���� � �� � �^^^^^^ � �g alternate� �e��f�� � ��ccccc � �f l-gxm5Bd45k8xjb7z4Op8YfQ-15736� �f l-gxm5Bd45k8xjb7z4Op8YfQ-15737� �f l-gxm5Bd45k8xjb7z4Op8YfQ-15738� �f l-gxm5Bd45k8xjb7z4Op8YfQ-15739� �f l-gxm5Bd45k8xjb7z4Op8YfQ-15740� �f l-gxm5Bd45k8xjb7z4Op8YfQ-15741� ������� � �d��� � �c�u� � �`a�~ � �`��~ � �`��~ � �`��~ � ��� � ��� � �� � �g each-any� �^��� �g arg� �e� � �g m-gxm5Bd45k8xjb7z4Op8YfQ-15749� ��b � ��c � �f l-gxm5Bd45k8xjb7z4Op8YfQ-15754� �f l-gxm5Bd45k8xjb7z4Op8YfQ-15755� ��� � �d��� � �� � �f l-gxm5Bd45k8xjb7z4Op8YfQ-15751� �� � �dw�� � �c�u� � �`��~ � �` �~ � �� � �` ��~ � �`�~ � ��� � �g m-gxm5Bd45k8xjb7z4Op8YfQ-15760� ��b � ��c � �f l-gxm5Bd45k8xjb7z4Op8YfQ-15765� �f l-gxm5Bd45k8xjb7z4Op8YfQ-15766� ��� � �d��� � �� � �f l-gxm5Bd45k8xjb7z4Op8YfQ-15762� �� � �dw�� � �c�u� � �`��~ � �` ��~ � �� � �` �~ � �`�~ � ��� � �g m-gxm5Bd45k8xjb7z4Op8YfQ-15771� ��b � ��c � �f l-gxm5Bd45k8xjb7z4Op8YfQ-15776� �f l-gxm5Bd45k8xjb7z4Op8YfQ-15777� ��� � �d��� � �� � �f l-gxm5Bd45k8xjb7z4Op8YfQ-15773� �� � �dw�� � �c�u� � �`��~ � �`�~ � �� � �` ��~ � �` �~ � ��� � �g m-gxm5Bd45k8xjb7z4Op8YfQ-15782� ��b � ��c � �f l-gxm5Bd45k8xjb7z4Op8YfQ-15787� �f l-gxm5Bd45k8xjb7z4Op8YfQ-15788� �� �d�� �� �f l-gxm5Bd45k8xjb7z4Op8YfQ-15784� �dw �cu �`�~ �` �~ � ` ~ � �`~ � � g m-gxm5Bd45k8xjb7z4Op8YfQ-15793� b �c �f l-gxm5Bd45k8xjb7z4Op8YfQ-15798�f l-gxm5Bd45k8xjb7z4Op8YfQ-15799� �d� � �f l-gxm5Bd45k8xjb7z4Op8YfQ-15795� �dw �cu �`�~ �` ~ �`~ � �` �~ � �g m-gxm5Bd45k8xjb7z4Op8YfQ-15804� b �! c �"f l-gxm5Bd45k8xjb7z4Op8YfQ-15809�#f l-gxm5Bd45k8xjb7z4Op8YfQ-15810�$"# �%d�!$ �& �'f l-gxm5Bd45k8xjb7z4Op8YfQ-15806�(' �)dw&( �*c%u) �+`�*~ �,` �*~ �-`*~ �.,- �/` *~ �0/ �1g compare:define-rel?�2^^^ �3g define�4g rel?�5g if-rel?�6e45 �7g m-gxm5Bd45k8xjb7z4Op8YfQ-15815�87b �98cc �:f l-gxm5Bd45k8xjb7z4Op8YfQ-15820�;f l-gxm5Bd45k8xjb7z4Op8YfQ-15821�<f l-gxm5Bd45k8xjb7z4Op8YfQ-15822�=:;< �>d69= �?8 �@f l-gxm5Bd45k8xjb7z4Op8YfQ-15817�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-gxm5Bd45k8xjb7z4Op8YfQ-15833�gfb �hgccc �if l-gxm5Bd45k8xjb7z4Op8YfQ-15838�jf l-gxm5Bd45k8xjb7z4Op8YfQ-15839�kf l-gxm5Bd45k8xjb7z4Op8YfQ-15840�lf l-gxm5Bd45k8xjb7z4Op8YfQ-15841�mijkl �ndehm �og �pf l-gxm5Bd45k8xjb7z4Op8YfQ-15835�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-gxm5Bd45k8xjb7z4Op8YfQ-15855���b ���cc ��f l-gxm5Bd45k8xjb7z4Op8YfQ-15860��f l-gxm5Bd45k8xjb7z4Op8YfQ-15861��f l-gxm5Bd45k8xjb7z4Op8YfQ-15862����� ��d��� ��� ��f l-gxm5Bd45k8xjb7z4Op8YfQ-15857��� ��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-gxm5Bd45k8xjb7z4Op8YfQ-15871���b ��� ��f l-gxm5Bd45k8xjb7z4Op8YfQ-15876��� ��d��� ��f l-gxm5Bd45k8xjb7z4Op8YfQ-15873��� ��dw�� ��c�u� ��` �~ ��^^ ��^��^댤�g c1��g c2��g cs��e��� ���ccc ��f l-gxm5Bd45k8xjb7z4Op8YfQ-15884��f l-gxm5Bd45k8xjb7z4Op8YfQ-15885��f l-gxm5Bd45k8xjb7z4Op8YfQ-15886��f l-gxm5Bd45k8xjb7z4Op8YfQ-15887������ ��d��� ��c�u� ��`1�~ ��` ��~ ��`E�~ ��`�~ ��� ��g clause��evJ� � g m-gxm5Bd45k8xjb7z4Op8YfQ-15893� b �ccc �f l-gxm5Bd45k8xjb7z4Op8YfQ-15898�f l-gxm5Bd45k8xjb7z4Op8YfQ-15899�f l-gxm5Bd45k8xjb7z4Op8YfQ-15900�f l-gxm5Bd45k8xjb7z4Op8YfQ-15901� �d� � � f l-gxm5Bd45k8xjb7z4Op8YfQ-15895� �dw � cu �`� ~ �g x-val�` ~ �g y-val�` ~ �`F ~ �^� �evJ �cc �f l-gxm5Bd45k8xjb7z4Op8YfQ-15908�f l-gxm5Bd45k8xjb7z4Op8YfQ-15909�f l-gxm5Bd45k8xjb7z4Op8YfQ-15910� �d �cu �` ~ �g free-id�cu � `�~ �! �"!���#^^" �$^# �%evJf �&f l-gxm5Bd45k8xjb7z4Op8YfQ-15915�'f l-gxm5Bd45k8xjb7z4Op8YfQ-15916�(f l-gxm5Bd45k8xjb7z4Op8YfQ-15917�)f l-gxm5Bd45k8xjb7z4Op8YfQ-15918�*&'() �+d%* �,c+u �-`E,~ �.����/^.��0^/��1^0 �2g t?�3evJ2f� �4ccccc �5f l-gxm5Bd45k8xjb7z4Op8YfQ-15925�6f l-gxm5Bd45k8xjb7z4Op8YfQ-15926�7f l-gxm5Bd45k8xjb7z4Op8YfQ-15927�8f l-gxm5Bd45k8xjb7z4Op8YfQ-15928�9f l-gxm5Bd45k8xjb7z4Op8YfQ-15929�:f l-gxm5Bd45k8xjb7z4Op8YfQ-15930�;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-gxm5Bd45k8xjb7z4Op8YfQ-15939�LKb �ML �Nf l-gxm5Bd45k8xjb7z4Op8YfQ-15944�ON �Pd�MO �Qf l-gxm5Bd45k8xjb7z4Op8YfQ-15941�RQ �SdwMR �TcPuS �U` T~ �VcuS �W`�V~ �XW �YX���Z^Y �[e� �\Lc �]f l-gxm5Bd45k8xjb7z4Op8YfQ-15947�^f l-gxm5Bd45k8xjb7z4Op8YfQ-15948�_]^ �`d[\_ �ac`uS �b`Ea~ �c����dc���e^d��feAC�� �gLcccc �hf l-gxm5Bd45k8xjb7z4Op8YfQ-15953�if l-gxm5Bd45k8xjb7z4Op8YfQ-15954�jf l-gxm5Bd45k8xjb7z4Op8YfQ-15955�kf l-gxm5Bd45k8xjb7z4Op8YfQ-15956�lf l-gxm5Bd45k8xjb7z4Op8YfQ-15957�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-gxm5Bd45k8xjb7z4Op8YfQ-15965��b ���ccc ��f l-gxm5Bd45k8xjb7z4Op8YfQ-15970��f l-gxm5Bd45k8xjb7z4Op8YfQ-15971��f l-gxm5Bd45k8xjb7z4Op8YfQ-15972��f l-gxm5Bd45k8xjb7z4Op8YfQ-15973������ ��d~�� ��� ��f l-gxm5Bd45k8xjb7z4Op8YfQ-15967��� ��dw�� ��c�u� ��`��~ ��g not��`��~ ��`��~ ��g string-append��`��~ ��f not ��`��~ ��f :��`��~ ��� ��g begin��e|}vJ ���cccc ��f l-gxm5Bd45k8xjb7z4Op8YfQ-15979��f l-gxm5Bd45k8xjb7z4Op8YfQ-15980��f l-gxm5Bd45k8xjb7z4Op8YfQ-15981��f l-gxm5Bd45k8xjb7z4Op8YfQ-15982��f l-gxm5Bd45k8xjb7z4Op8YfQ-15983������� ��d��� ��c�u� ��`��~ ��`{�~ ��g compare:define-by=/<��g =��g <��eR��|} ��g m-gxm5Bd45k8xjb7z4Op8YfQ-15990���b ���ccccc ��f l-gxm5Bd45k8xjb7z4Op8YfQ-15995��f l-gxm5Bd45k8xjb7z4Op8YfQ-15996��f l-gxm5Bd45k8xjb7z4Op8YfQ-15997��f l-gxm5Bd45k8xjb7z4Op8YfQ-15998��f l-gxm5Bd45k8xjb7z4Op8YfQ-15999��f l-gxm5Bd45k8xjb7z4Op8YfQ-16000�������� ��d��� ��� ��f l-gxm5Bd45k8xjb7z4Op8YfQ-15992��� ��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 5 h0� � ]4 JKN5 4Q > "