| Server IP : 162.213.251.212 / Your IP : 13.59.85.64 [ 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/thread-self/root/usr/lib64/guile/2.0/ccache/srfi/ |
Upload File : |
GOOF----LE-8-2.0s]z 4hn] gguile� � gdefine-module*� � � gsrfi� gsrfi-34� � gfilenameS�
fsrfi/srfi-34.scm� gexportsS� gwith-exception-handler�
gguard�
� g replacementsS� graise� � gset-current-module� � � gcond-expand-provide� gcurrent-module� � g throw-key� gwith-throw-handler� gthrow� gmake-syntax-transformer� � � gmacro� g $sc-dispatch� � ! � "gany� #geach+� $gfree-id� %g
syntax-object� &gelse� 'gtop� ('� )gribcage� *)� +gx� ,+� -gm-46961e5118-a� .-'� /.� 0fl-46961e5118-c� 10� 2),/1� 3(*2� 4ghygiene� 54� 6%&35� 7$6� 8geach-any� 9"8�� :79�� ;:� <#";� ="<�� >=9�� ?">�� @gcatch� Agdummy� Bgvar� Cgclause� Dge� Ege*� Fgbody� Ggbody*� HABCDEFG� I.((((((� Jfl-46961e5118-f� Kfl-46961e5118-10� Lfl-46961e5118-11� Mfl-46961e5118-12� Nfl-46961e5118-13� Ofl-46961e5118-14� Pfl-46961e5118-15� QJKLMNOP� R)HIQ� S(R*2� T%@S5� U%S5� Vglambda� W%VS5� Xgkey� Y%XS5� Zgcond� [%ZS5� \gappend� ]\� ^\� _%&S5� `"9�� a`9�� b"a�� cgclause*� dABCcFG� e.(((((� ffl-46961e5118-21� gfl-46961e5118-22� hfl-46961e5118-23� ifl-46961e5118-24� jfl-46961e5118-25� kfl-46961e5118-26� lfghijk� m)del� n(m*2� o%@n5� p%n5� q%Vn5� r%Xn5� s%Zn5� t%&n5� u%n5� vgsyntax-violation� wv� xv� yf-source expression failed to match any pattern�C5h�
�]4
5 4>"G 4i4i5>"GRhn]L6fgkey
gobj gfilenamefsrfi/srfi-34.scm�
, �� - �� Ch�]O6�ghandler
gthunk gfilenamefsrfi/srfi-34.scm�
%
�� * �� gnamegwith-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 Rh�]6�gobj
gfilenamefsrfi/srfi-34.scm�
/
��
5 ��
gnamegraise�g
documentationf6Invokes 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�gdummy
5gvar 5gclause 5ge 5ge* 5gbody 5gbody* 5 5 Cbopqrs^tu h@�]���45��C�gdummy
>gvar >gclause >gclause* >gbody >gbody* > > Cxyh@]45 $@45 $@6
gx
9gtmp 9gtmp " 9gfilenamefsrfi/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�gpatternsgvargclauseg...gelsegege*g...gbodygbody*g...gvargclausegclause*g...gbodygbody*g...C5
RC�gm
,gfilenamefsrfi/srfi-34.scm�
�� - !
�� 2 ! �� : ! &�� ? !
�� I # �� L #
�� � %
�� u /
��
�
C6