GOOF----LE-8-2.0,]
4h3]
gguile�	

�	gdefine-module*�	�	�	gsystem�	gbase�	gpmatch�		�	
gfilenameS�	fsystem/base/pmatch.scm�	gexportsS�	

�	gset-current-module�	�	�	gmake-syntax-transformer�	�	�	gmacro�	g$sc-dispatch�	�	�	gany�	geach-any�	��	��	g
syntax-object�	glet�	gtop�	
�	 gribcage�	!gdummy�	"g
e�	#gcs�	$!"#�	%gm-3c4e5dc25-86�	&%�	'&�	(fl-3c4e5dc25-8b�	)fl-3c4e5dc25-8c�	*fl-3c4e5dc25-8d�	+()*�	, $'+�	- �	.g
x�	/.
�	0&
�	1fl-3c4e5dc25-88�	21
�	3 /02�	4,-3�	5ghygiene�	65�	746�	8g
v�	9846�	:gpmatch1�	;:46�	<gsyntax-violation�	=<�	><�	?f-source expression failed to match any pattern�	@�	Agif�	B!8�	Cgm-3c4e5dc25-92�	DC�	ED�	Ffl-3c4e5dc25-97�	Gfl-3c4e5dc25-98�	HFG�	I BEH�	JD
�	Kfl-3c4e5dc25-94�	LK
�	M /JL�	NI-M�	OAN6�	PN6�	QOPP�	Rgfree-id�	Sgelse�	T-M�	UST6�	VRU�	WV��	XW�	Yge0�	Z!8Y"�	[D�	\fl-3c4e5dc25-9c�	]fl-3c4e5dc25-9d�	^fl-3c4e5dc25-9e�	_fl-3c4e5dc25-9f�	`\]^_�	a Z[`�	ba-M�	cb6�	dgguard�	edT6�	fRe�	gf��	hg��	ih��	ji��	kj��	lk��	mgpat�	ng
g�	o!8mnY"#�	pD�	qfl-3c4e5dc25-a6�	rfl-3c4e5dc25-a7�	sfl-3c4e5dc25-a8�	tfl-3c4e5dc25-a9�	ufl-3c4e5dc25-aa�	vfl-3c4e5dc25-ab�	wfl-3c4e5dc25-ac�	xqrstuvw�	y opx�	zy-M�	{z6�	|gfk�	}|z6�	~glambda�	~z6��:z6��gppat���z6��Az6��gand���z6��}
���
�������������!8mY"#��D��fl-3c4e5dc25-b8��fl-3c4e5dc25-b9��fl-3c4e5dc25-ba��fl-3c4e5dc25-bb��fl-3c4e5dc25-bc��fl-3c4e5dc25-bd���������� ������-M���6��|�6��~�6��:�6����6���
���
��g
_��gm-3c4e5dc25-c6������
��fl-3c4e5dc25-c8���
�� /����-�����6��R��������gkt��gkf��!8�������fl-3c4e5dc25-d4��fl-3c4e5dc25-d5��fl-3c4e5dc25-d6��fl-3c4e5dc25-d7�������� ������-���A�6��gnull?����6��gquote����6��R���������glit��!8��������fl-3c4e5dc25-dd��fl-3c4e5dc25-de��fl-3c4e5dc25-df��fl-3c4e5dc25-e0��fl-3c4e5dc25-e1��������� ������-���A�6��gequal?����6����6��gunquote����6��R���������gvar��!8�����fl-3c4e5dc25-e8��fl-3c4e5dc25-e9��fl-3c4e5dc25-ea��fl-3c4e5dc25-eb��fl-3c4e5dc25-ec��������� ������-����6��������g
y��!8.��������fl-3c4e5dc25-f3��fl-3c4e5dc25-f4��fl-3c4e5dc25-f5��fl-3c4e5dc25-f6��fl-3c4e5dc25-f7��fl-3c4e5dc25-f8���������� ������-���A�6��gpair?����6���6��gvx����6��gcar����6��gvy����6��gcdr����6����6����fl-3c4e5dc25-100��fl-3c4e5dc25-101��fl-3c4e5dc25-102��fl-3c4e5dc25-103��fl-3c4e5dc25-104��������� ������-���A�6�
geq?�


�6�
��6�C5
hxZ]4	

54>
"G479;h L]


��CDgdummy
		g
e		gcs						
C>?h(�]	4
5

$
@6�g
x
		"gtmp		"gfilenamefsystem/base/pmatch.scm�
	'
��		"
g
macro-typegsyntax-rules�gpatternsg
egcsg...C5R4:@Qh<]
C4gdummy
		g
v					
CXch[]
���CSgdummy
		
g
v		
ge0			
g
e			
		
	
Cl{}�����	h@�]

��

�
����������C�gdummy
		@g
v		@gpat			@g
g			@ge0			@g
e			@gcs			@		@	
C�������h8|]

��


�������Ctgdummy
		4g
v		4gpat			4ge0			4g
e			4gcs			4		4	
C>?hhq
]!4
5

$
@4
5$@4
5$@4
5$	@
6i
g
x
		ggtmp		ggtmp		"	ggtmp		9	ggtmp		P	ggfilenamefsystem/base/pmatch.scm�
	+	��		g
g
macro-typegsyntax-rules�gpatternsg
v
g
vgelsege0g
eg...g
vgpatgguardg
gg...ge0g
eg...gcsg...g
vgpatge0g
eg...gcsg...C5:R4��h\]CTgdummy
		g
v		gkt			gkf						
C���h\]

CTgdummy
		g
v		gkt			gkf						
C����h m]

Cegdummy
		g
v		glit			gkt			gkf						
C��hm]


Cegdummy
		g
v		gvar			gkt			gkf						
C���������	hPz]



Crgdummy
		Ig
v		Ig
x			Ig
y			Igkt			Igkf			I		I	
C��


h m]

Cegdummy
		g
v		glit			gkt			gkf						
C>?h��
]14
5

$
@4
5$@4
5$@4
5$	@4

5$@4
5$
@6�
g
x
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp		~�gfilenamefsystem/base/pmatch.scm�
	8	��	�
g
macro-typegsyntax-rules�gpatternsg
vg
_gktgkfg
vgktgkfg
vgquoteglitgktgkfg
vgunquotegvargktgkfg
vg
xg
y�gktgkfg
vglitgktgkfC5�RCRg
m
		(
gfilenamefsystem/base/pmatch.scm�		$
��	s

C6