[EDIT] FILE: control.go
GOOF----LE-8-2.0� ] � 4 h� ] g guile� � g define-module*� � � g ice-9� g control� � g filenameS� f ice-9/control.scm� g exportsS� g %� g abort� g shift� g reset� g shift*� g reset*� g call-with-escape-continuation� g call/ec� g let-escape-continuation� g let/ec� � g re-exportsS� g call-with-prompt� g abort-to-prompt� g default-prompt-tag� g make-prompt-tag� � g set-current-module� � � g make-syntax-transformer� ! � " � #g macro� $g $sc-dispatch� %$ � &$ � 'g any� ('' � )g syntax-object� *g top� +* � ,g ribcage� -g dummy� .g expr� /-. � 0g m-3d0776c508-76� 10* � 21+ � 3f l-3d0776c508-7b� 4f l-3d0776c508-7c� 534 � 6,/25 � 7, � 8g x� 98 � :1 � ;f l-3d0776c508-78� <; � =,9:< � >+67= � ?g hygiene� @? � A)>@ � B)>@ � CB � Dg lambda� E)D>@ � Fg default-prompt-handler� G)F>@ � HG � I''' � Jg handler� K-.J � L1++ � Mf l-3d0776c508-80� Nf l-3d0776c508-81� Of l-3d0776c508-82� PMNO � Q,KLP � R+Q7= � S)R@ � T)R@ � UT � V)DR@ � W'''' � Xg tag� Y-X.J � Z1+++ � [f l-3d0776c508-87� \f l-3d0776c508-88� ]f l-3d0776c508-89� ^f l-3d0776c508-8a� _[\]^ � `,YZ_ � a+`7= � b)a@ � c)Da@ � dg syntax-violation� ed � fd � gf -source expression failed to match any pattern� h''�� ig body� j-i � kg m-3d0776c508-95� lk* � ml+ � nf l-3d0776c508-9a� of l-3d0776c508-9b� pno � q,jmp � rl � sf l-3d0776c508-97� ts � u,9rt � v+q7u � w)v@ � x)v@ � yx � z)Dv@ � {g cont� |){v@ � }g f� ~)}v@ � |~ � �~| � �z� � �� � �'h�� �g var� �-�i � �g m-3d0776c508-9f� ��* � ��++ � �f l-3d0776c508-a4� �f l-3d0776c508-a5� �f l-3d0776c508-a6� ���� � �,��� � �� � �f l-3d0776c508-a1� �� � �,9�� � �+�7� � �)�@ � �)�@ � �� � �)D�@ � �){�@ � �� � �)�@ � �g vals� �)��@ � �g apply� �)��@ � ���� � ��� � ���� � �� � �g each-any� �'��� �'��� �g let� �g k� �-�i � �g m-3d0776c508-cf� ��* � ��++ � �f l-3d0776c508-d4� �f l-3d0776c508-d5� �f l-3d0776c508-d6� ���� � �,��� � �� � �f l-3d0776c508-d1� �� � �,9�� � �+�7� � �)��@ � �)X�@ � �g list� �)��@ � �g quote� �)��@ � �)�@ � ��� � ��� � ��� � �� � �)�@ � �)D�@ � �g args� �)��@ � �)��@ � �)�@ � ����� � ���� � �� � �g _� �)��@ � �g results� �)��@ � ��̌� �g values� �)��@ � ���� � ���� � �� � �g m-3d0776c508-dc� ��* � ��++ � �f l-3d0776c508-e1� �f l-3d0776c508-e2� �f l-3d0776c508-e3� ���� � �,��� � �� � �f l-3d0776c508-de� �� � �,9�� � �+�7� � �)�@ �C 5 h` � ]4 5 4 > " G h z - 1 3 45 @ r g args g filenamef ice-9/control.scm� �� �� �� g nameg abort� C R4" #&(ACEH h ? ] ���C 7 g dummy g expr CISUV h T ] C L g dummy g expr g handler CWbc h e ] C ] g dummy g tag g expr g handler Cfg hP � ]4 5 $ @4 5 $ @4 5 $ @ 6� g x P g tmp P g tmp " P g tmp 9 P g filenamef ice-9/control.scm� �� P g macro-typeg syntax-rules�g patternsg expr g exprg handler g tagg exprg handler C5 RF h E ] LL 6= g filenamef ice-9/control.scm� 8 �� C h0 � ] 45 U 4 O > XCXFG @ � g k . g proc . g handler . g args # . g filenamef ice-9/control.scm� 6 �� 7 �� 7 �� 7 �� . g nameg default-prompt-handler� CFR4"#&hwyz� h ? ]�����C 7 g dummy g body Cfg h( � ] 4 5 $ @ 6 � g x " g tmp " g filenamef ice-9/control.scm� @ �� " g macro-typeg syntax-rules�g patternsg body C5R4"#&������� h( P ] � � C H g dummy # g var # g body # # Cfg h( � ] 4 5 $ @ 6 � g x " g tmp " g filenamef ice-9/control.scm� E �� " g macro-typeg syntax-rules�g patternsg varg body� C5R h E ] L 6 = g filenamef ice-9/control.scm� L �� C h0 � ]45 U 4 O > XCXFG 6 � g thunk * g cont * g f * g filenamef ice-9/control.scm� K �� L �� * g nameg reset*� CR h E ] LL @= g filenamef ice-9/control.scm� O �� C h8 y - 1 3 45 U 4 L O > XCXFG 6 q g vals 3 g cont & 3 g f & 3 g filenamef ice-9/control.scm� O �� 3 C h E ] LL O 6 = g filenamef ice-9/control.scm� O �� C h0 w ]45 U 4 L O > XCXFG 6 o g cont , g cont , g f , g filenamef ice-9/control.scm� O �� , C h o ]45 O WF g g fc g filenamef ice-9/control.scm� N �� O �� g nameg shift*� CR h a - 1 3 L @ Y g args g filenamef ice-9/control.scm� V �� W �� C h0 % ] U 4 O > XCXFG E g proc . g tag . g _ # . g args # . g filenamef ice-9/control.scm� Q �� S �� S �� S �� T �� V �� & T �� . Y �� . g nameg call-with-escape-continuation�g documentationf &Call PROC with an escape continuation.� CRiR4"#&�������� h( N ]� �� ��� C F g dummy ' g k ' g body ' ' Cfg h( ] 4 5 $ @ 6 � g x " g tmp " g filenamef ice-9/control.scm� ] �� " g documentationf CBind K to an escape continuation within the lexical extent of BODY.�g macro-typeg syntax-rules�g patternsg kg bodyg ... C5R4"#&�� h N ]��C F g dummy g k g body Cfg h( � ] 4 5 $ @ 6 � g x " g tmp " g filenamef ice-9/control.scm� h �� " g macro-typeg syntax-rules�g patternsg kg bodyg ... C5RC } g m , g filenamef ice-9/control.scm� �� � �� * 6 �� 5 K �� N �� Q �� [ �� _ C6
SAVE
CANCEL