GOOF----LE-8-2.0t ] � 4 h�
] g guile� � g define-module*� � � g srfi� g srfi-26� � g filenameS�
f srfi/srfi-26.scm� g exportsS� g cut�
g cute�
� g set-current-module� � � g cond-expand-provide� g current-module� � g make-syntax-transformer� � � g macro� g $sc-dispatch� � � g any� g each-any� �� �� g reverse� ! � "g
syntax-object� #g lambda� $g top� %$ � &g ribcage� '& � (g t-46961e50f5-72� )g t-46961e50f5-71� *() � +g m-46961e50f5-73� ,+$ � -,, � .f l-46961e50f5-77� /f l-46961e50f5-78� 0./ � 1&*-0 � 2g loop� 3g slots� 4g params� 5g args� 62345 � 7%%%% � 8f l-46961e50f5-68� 9f l-46961e50f5-69� :f l-46961e50f5-6a� ;f l-46961e50f5-6b� <89:; � =&67< � >g slot0� ?g slot1+� @ >? � A%%% � Bf l-46961e50f5-62� Cf l-46961e50f5-63� Df l-46961e50f5-64� EBCD � F&@AE � Gg stx� HG � I% � Jf l-46961e50f5-5f� KJ � L&HIK � M%'1'=F'L � Ng hygiene� ON � P"#MO � Qg syntax-violation� RQ � SQ � Tf -source expression failed to match any pattern� Ug generate-temporaries� Vg var� WV � X � Yg free-id� Zg <>� [V � \f l-46961e50f5-82� ]\ � ^&[I] � _g s� `g rest� a_` � b%% � cf l-46961e50f5-7b� df l-46961e50f5-7c� ecd � f&abe � g%'^''f'=F'L � h"ZgO � iYh � jg <...>� k"jgO � lYk � mg error� nf &<...> not on the end of cut expression� og append� p � qg t-46961e50f5-88� rg t-46961e50f5-87� sqr � tg m-46961e50f5-89� ut$ � vuu � wf l-46961e50f5-8d� xf l-46961e50f5-8e� ywx � z&svy � {%'z'^''f'=F'L
� |"#{O � }g apply� ~"}{O � g let� �g t-46961e50f5-a8� �g t-46961e50f5-a7� ��� � �g m-46961e50f5-a9� ��$ � ��� � �f l-46961e50f5-ad� �f l-46961e50f5-ae� ��� � �&��� � �g process-hole� �� � �% � �f l-46961e50f5-a5� �� � �&��� � �g bindings� �g arguments� �23�� � �f l-46961e50f5-9c� �f l-46961e50f5-9d� �f l-46961e50f5-9e� �f l-46961e50f5-9f� ����� � �&�7� � �
3 � �f l-46961e50f5-98� �f l-46961e50f5-99� ��� � �&�b� � �f l-46961e50f5-95� �� � �&HI� � �%'����'� � �"�O � �" �O � �%���'� � �"Z�O � �Y� � �"j�O � �Y� � �g t� �� �C 5 hP
r ]4
5 4 > " G 4i4i5 > " G 4 !P h T ] C L g t-46961e50f5-72
g t-46961e50f5-71 CSTUWXi h T ] LLLL�LL �6 L g filenamef srfi/srfi-26.scm� % �� % 3�� % ��
Clmn h \ ] L �$ 6C T g filenamef srfi/srfi-26.scm� ' �� ' ��
( �� ( ��
Co p|~ h T ] � C L g t-46961e50f5-88
g t-46961e50f5-87 CST h@ � ]44L 5L54LL�5 4 5 $ @ 6 � g tmp
? g tmp ( ? g filenamef srfi/srfi-26.scm� ) �� ) (�� ) �� * "�� * +�� * "�� ) �� ?
C hp ]4L 5 $ L LLLO @4L 5 "
LLLL L�6$ #4LO ?$ L LO @"���"��� w g var
o g tmp o g tmp / o g filenamef srfi/srfi-26.scm� @ , &�� B , �� o C h� K ]# ( 34545 45 $ @6 � � 45 4 5 $
L O @6 C g slots
{ g params { g args { g tmp ; g tmp $ ; g s A { g rest A { g tmp L { g tmp W { g filenamef srfi/srfi-26.scm�
�� �� �� ,�� �� > �� A ! �� A
�� F " $�� J " :�� L " $�� L " ��
{ g nameg loop� C h � ] O Q �6 � g cut
g slot0 g slot1+ g loop
g filenamef srfi/srfi-26.scm�
�� �� �� �� CST h( e ] 4 5 $ @ 6 ] g stx
" g tmp " g filenamef srfi/srfi-26.scm�
�� " C5 R4
p�� h T ] � C L g t-46961e50f5-a8
g t-46961e50f5-a7 CST� h \ ] LL�LL�L �6 T g filenamef srfi/srfi-26.scm� 6 �� 6 ,�� 6 &�� 6 ��
C�h \ ] LL�LL�L �6 T g filenamef srfi/srfi-26.scm� 6 �� 6 ,�� 6 &�� 6 ��
CU�X h l ]LL� L L� L �6d g t
g filenamef srfi/srfi-26.scm� ? �� @ �� A �� ? �� C h� c ]+ ( .45 45 $ @6 � 45 $ L O @4 5 $
L O @4 5 4
5 $ L O @6 [ g slots
� g bindings � g arguments � g tmp 6 g tmp 6 g tmp 9 � g tmp D � g tmp f � g tmp � � g tmp � �
g filenamef srfi/srfi-26.scm�
2 �� 7 �� 9 �� 8 �� 9 : �� 9 :
�� � > #�� � > 9�� � > #�� � > �� � g nameg loop� C h � ]
O Q 6 � g cute
g slots g loop
g filenamef srfi/srfi-26.scm�
2 �� 3 �� 4 �� 2 �� CST h( e ] 4 5 $ @ 6 ] g stx
" g tmp " g filenamef srfi/srfi-26.scm�
/ �� " C5
RC j g m
( g filenamef srfi/srfi-26.scm�
�� )
�� . �� 6 &�� ;
��
L
C6