GOOF----LE-8-2.0� ] % 4 hs ] g guile� � g define-module*� � � g scripts� g punify� � g filenameS�
f scripts/punify.scm� g exportsS� �
g set-current-module�
�
� g %include-in-guild-list� f 1Strip comments and whitespace from a Scheme file.� g %summary� g string->list� g symbol->string� g char=?� g memq� g list->string� g display� g write� f (� g write-punily� f )� f � g with-input-from-file� g eof-object?� g read� !g current-input-port� "g
punify-one� #g for-each� $g main�C 5h� � ]4
5 4 > " G RR h � ]!" p �$ B44 55 4�:5$ 4 5$ " 4�5" " $ 4:> " G 6 6 �$ � ( "�� � 4> " G 4 > " G " X(
6� $ " �$ " 4 > " G 4 > " G �� "��� �� "���"��� � g form
g ls K g t P v g first � g ls � g last-was-list? � g new-first � g filenamef scripts/punify.scm�
.
�� = ��
= �� > �� > &�� > �� > �� ? �� ! ? �� % ? �� ) ? �� * @ �� 6 ? �� < A �� A A #�� C A �� P / �� Y C �� p D �� v E �� v / �� y / �� } / �� � / �� � 0 �� � 0 �� � 1 �� � 1 �� � 1 �� � 2 �� � 3 �� � 4
�� � 5 �� � 5 �� � 6 #�� � 6 �� � 8 �� � 7 '�� � 8 �� � : �� � : !�� � : �� � ; �� < �� 7 '�� < �� 3 �� 3 �� 3 6�� 3 �� 3 g nameg write-punily� CR ! hP � ]" 44 5 $ C4 > " G 445 5 "���445 5 "��� � g form
: g t
: g filenamef scripts/punify.scm�
I �� K �� L ��
L
�� N �� + J �� . J #�� 4 J �� : O �� : K �� ; J �� > J #�� D J �� J K �� J
C h v ] 6 n g file
g filenamef scripts/punify.scm�
G
��
H ��
g nameg
punify-one� C"R#" h t - 1 3 6 l g args
g filenamef scripts/punify.scm�
Q
�� R ��
g nameg punify� CRi$RC� g m
( g filenamef scripts/punify.scm� (
�� , +
�� . , �� 1 ,
��
.
�� � G
�� � Q
�� � T
�� �
C6