GOOF----LE-8-2.0, ] 4 h3 ] g guile� � g define-module*� � � g system� g base� g pmatch� �
g filenameS� f system/base/pmatch.scm� g exportsS�
� g set-current-module� � � g make-syntax-transformer� � � g macro� g $sc-dispatch� � � g any� g each-any� �� �� g
syntax-object� g let� g top� � g ribcage� !g dummy� "g e� #g cs� $!"# � %g m-3c4e5dc25-86� &% � '& � (f l-3c4e5dc25-8b� )f l-3c4e5dc25-8c� *f l-3c4e5dc25-8d� +()* � , $'+ � - � .g x� /. � 0& � 1f l-3c4e5dc25-88� 21 � 3 /02 � 4 ,-3 � 5g hygiene� 65 � 7 46 � 8g v� 9 846 � :g pmatch1� ; :46 � <g syntax-violation� =< � >< � ?f -source expression failed to match any pattern� @ � Ag if� B!8 � Cg m-3c4e5dc25-92� DC � ED � Ff l-3c4e5dc25-97� Gf l-3c4e5dc25-98� HFG � I BEH � JD � Kf l-3c4e5dc25-94� LK � M /JL � N I-M � O AN6 � P N6 � QOPP � Rg free-id� Sg else� T -M � U ST6 � VRU � WV�� XW � Yg e0� Z!8Y" � [D � \f l-3c4e5dc25-9c� ]f l-3c4e5dc25-9d� ^f l-3c4e5dc25-9e� _f l-3c4e5dc25-9f� `\]^_ � a Z[` � b a-M � c b6 � dg guard� e dT6 � fRe � gf�� hg�� ih�� ji�� kj�� lk�� mg pat� ng g� o!8mnY"# � pD � qf l-3c4e5dc25-a6� rf l-3c4e5dc25-a7� sf l-3c4e5dc25-a8� tf l-3c4e5dc25-a9� uf l-3c4e5dc25-aa� vf l-3c4e5dc25-ab� wf l-3c4e5dc25-ac� xqrstuvw � y opx � z y-M � { z6 � |g fk� } |z6 � ~g lambda� ~z6 � � :z6 � �g ppat� � �z6 � � Az6 � �g and� � �z6 � �} � �� � ��� ���� ���� �!8mY"# � �D � �f l-3c4e5dc25-b8� �f l-3c4e5dc25-b9� �f l-3c4e5dc25-ba� �f l-3c4e5dc25-bb� �f l-3c4e5dc25-bc� �f l-3c4e5dc25-bd� ������� � � ��� � � �-M � � �6 � � |�6 � � ~�6 � � :�6 � � ��6 � �� � �� � �g _� �g m-3c4e5dc25-c6� �� � �� � �f l-3c4e5dc25-c8� �� � � /�� � � -� � � ��6 � �R� � �� � � � �g kt� �g kf� �!8�� � �� � �f l-3c4e5dc25-d4� �f l-3c4e5dc25-d5� �f l-3c4e5dc25-d6� �f l-3c4e5dc25-d7� ����� � � ��� � � �-� � � A�6 � �g null?� � ��6 � �g quote� � ��6 � �R� � �� � �� � �g lit� �!8��� � �� � �f l-3c4e5dc25-dd� �f l-3c4e5dc25-de� �f l-3c4e5dc25-df� �f l-3c4e5dc25-e0� �f l-3c4e5dc25-e1� ������ � � ��� � � �-� � � A�6 � �g equal?� � ��6 � � ��6 � �g unquote� � ��6 � �R� � �� � �� � �g var� �!8��� � �f l-3c4e5dc25-e8� �f l-3c4e5dc25-e9� �f l-3c4e5dc25-ea� �f l-3c4e5dc25-eb� �f l-3c4e5dc25-ec� ������ � � ��� � � �-� � � �6 � ��� �� � �g y� �!8.��� � �� � �f l-3c4e5dc25-f3� �f l-3c4e5dc25-f4� �f l-3c4e5dc25-f5� �f l-3c4e5dc25-f6� �f l-3c4e5dc25-f7� �f l-3c4e5dc25-f8� ������� � � ��� � � �-� � � A�6 � �g pair?� � ��6 � � �6 � �g vx� � ��6 � �g car� � ��6 � �g vy� � ��6 � �g cdr� � ��6 � � ��6 � � � �f l-3c4e5dc25-100� �f l-3c4e5dc25-101� �f l-3c4e5dc25-102� �f l-3c4e5dc25-103� �f l-3c4e5dc25-104� ������ � � ��� � � �-� � � A�6 � g eq?� �6 � ��6 �C 5hx Z ]4
5 4 > " G 479; h L ] �� C D g dummy
g e g cs C>? h( � ] 4 5 $ @ 6 � g x
" g tmp " g filenamef system/base/pmatch.scm�
'
�� " g
macro-typeg syntax-rules�g patternsg eg csg ... C5R4:@Q h < ]C 4 g dummy
g v CXc h [ ]���C S g dummy
g v
g e0
g e
Cl{}����� h@ � ]�� ����������� C� g dummy
@ g v @ g pat @ g g @ g e0 @ g e @ g cs @ @ C������� h8 | ]�� ������� C t g dummy
4 g v 4 g pat 4 g e0 4 g e 4 g cs 4 4 C>? hh q ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @
6 i g x
g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef system/base/pmatch.scm�
+ �� g g
macro-typeg syntax-rules�g patternsg v g vg elseg e0g eg ... g vg patg guardg gg ... g e0g eg ... g csg ... g vg patg e0g eg ... g csg ... C5:R4�� h \ ]C T g dummy
g v g kt g kf C��� h \ ] C T g dummy
g v g kt g kf C���� h m ] C e g dummy
g v g lit g kt g kf C�� h m ] C e g dummy
g v g var g kt g kf C��������� hP z ] C r g dummy
I g v I g x I g y I g kt I g kf I I C�� h m ] C e g dummy
g v g lit g kt g kf C>? h� � ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ @4 5 $
@ 6 � g x
� g tmp � g tmp " � g tmp 9 � g tmp P � g tmp g � g tmp ~ � g filenamef system/base/pmatch.scm�
8 �� � g
macro-typeg syntax-rules�g patternsg vg _g ktg kf g vg ktg kf g vg quoteg lit g ktg kf g vg unquoteg var g ktg kf g vg xg y�g ktg kf g vg litg ktg kf C5�RC R g m
( g filenamef system/base/pmatch.scm� $
�� s
C6