GOOF----LE-8-2.0�	]*4h]
gguile�	

�	gdefine-module*�	�	�	gscripts�	gdisplay-commentary�	�		gfilenameS�	
fscripts/display-commentary.scm�	gimportsS�	gice-9�	
g
documentation�	
�	
�	
�	gexportsS�	
�	gset-current-module�	�	�	f5Display the Commentary section from a file or module.�	g%summary�	gformat�	f~A commentary:
~A�	gfile-commentary�	gdisplay-commentary-one�	gmap�	gsymbol->string�	g
string-append�	f
/�	 gmodule-name->filename-frag�	!g%search-load-path�	"f
module ~A
�	#gdisplay-module-commentary�	$gfor-each�	%gstring?�	&gstring-index�	'gwith-input-from-string�	(gread�	)gmain�C5
h��]4	
54>
"GRh�]

45
6�gfile
		
gfilenamefscripts/display-commentary.scm�
	%
��		&	
��	
	&	'��		&	��		
gnamegdisplay-commentary-one�CRh@(
]4
5
" (C�4�5"���
�
�"��� 
gls
		?gls		?gls			1gacc			1gfilenamefscripts/display-commentary.scm�
	(
��		)	��		)	��		*	��		+	��		-	��		-	��	$	-	,��	'	-	0��	)	-	��	1	-	
��	1	*	��	4	*	��	7	*	"��	?	*	��		?
gnamegmodule-name->filename-frag�C R! "h8�]	4
45
5


$4>"G
6
C�gmodule-name
		3g
t		3gfilenamefscripts/display-commentary.scm�
	/
��		0		��		0	��		0		��		0	��		2	��		2	��	#	2	��	1	3	��
		3
gnamegdisplay-module-commentary�C#R$%&#'(h@�]
4
5
$!
4(5&
456
6
�$6
C�gref
		=
gfilenamefscripts/display-commentary.scm�
	6	��		7	��	
	7	��		8	#��		8	��		:	��	(	9	��	.	;	��	1	<	��	5	7	��	;	=	��		=
Ch�-13

6�grefs
			
gfilenamefscripts/display-commentary.scm�
	5
��		6	��			



gnamegdisplay-commentary�CRi)RC�g
m
		,
gfilenamefscripts/display-commentary.scm�		
��	.	#	��	1	#
��

	%
���	(
���	/
��	5
���	@
��		�

C6