1#@!#!123s

file_get_contents 1#@!#!123s
: / usr / lib64 / guile / 2.0 / ccache / oop / goops /
Filename : util.go
back
GOOF----LE-8-2.0�������]�5�4�h(������]�g��guile�	��	g��define-module*�	��	��	g��oop�	g��goops�	g��util�		��	
g��filenameS�	f��oop/goops/util.scm�	g��importsS�	
g��srfi�	g��srfi-1�	
��	��	��	g��exportsS�	g��	mapappend�	g��find-duplicate�	g��map*�	g��	for-each*�	g��length*�	g��improper->proper�	��	g��
re-exportsS�	g��any�	g��every�	��	g��set-current-module�	��	 ��	!g��
append-map�	"g��memv�	#g��current-module�	$g��module-eval-closure�	%g��
top-level-env�	&g��
procedure?�	'g��top-level-env?�	(g��call-with-deferred-observers�	)(��	*(��	+g��module-export!�	,+��	-+��	.#��	/#��	0'%��	1g��map�	2g��car�	3g��cdr�	4g��apply�C�5���h�������]4	
5	�4 �>��"��G���!iR"�h(�������]�(��C4����5$����C��6������������g��l
		$��g��filenamef��oop/goops/util.scm�
	!
��		"	��		$	��		$	��		$	��		$	��		"	��		$	 ��	"	%	0��	$	%	 ���		$��g��nameg��find-duplicate��CR#$������h�������]45���$���6C���������g��mod
		��g��filenamef��oop/goops/util.scm�
	(��		)	��		)	��		*	��		+		��		,		���		
��g��nameg��
top-level-env��C%R&�������h�������]�(��C��6���������������g��env
		��g��filenamef��oop/goops/util.scm�
	.��		/	��			/	��		0	��		0	���		��g��nameg��top-level-env?��C'R4*-/0�������h���D���]�45�6���<�������g��filenamef��oop/goops/util.scm�
	2���		
���C>��"��G��123���h@�������-�1�3��(��C��$�� 4�45?4�45?�C�@��������g��fn
			@�g��l			@��g��filenamef��oop/goops/util.scm�
	4
��		6	��		5	��		6	��		7	��		7	��		5	��		7	��		7	)��	(	7	��	)	8	��	.	8	)��	8	8	��	9	7	��	@	9	���			@
��g��nameg��map*��CR4123�hP�������-�1�3��(��C��$��*4�45>��"��G���45@�@��������������g��fn
			J�g��l			J��g��filenamef��oop/goops/util.scm�
	;
��		=	��		<	��		=	��		>	��		>	��		<	��		>	��	 	>	��	-	>	��	:	>	?��	D	>	+��	J	?	���			J
��g��nameg��	for-each*��CRh0�������]"���$����"���C
�"������������������g��ls
		)�g��n		�g��ls			��g��filenamef��oop/goops/util.scm�
	A
��		B	��			D	��	
	B	��		B	��		C	��		B	���		)��g��nameg��length*��CR��������h �������]��$��
��4��5�C��C������������g��ls
		��g��filenamef��oop/goops/util.scm�
	F
��		G	��			G	��		H	��	
	H	��		H	'��		H	��		H	��		I	���
		��g��nameg��improper->proper��CRC���������g��m
		0��g��filenamef��oop/goops/util.scm�		
��	7	
��*	!
���	(���	.���	2��q	4
���	;
���	A
���	F
���	�
���C6�