GOOF----LE-8-2.0A ] I 4 h ] g guile� � g define-module*� � � g scripts� g lint� � g filenameS�
f scripts/lint.scm� g importsS� g ice-9�
g common-list�
� � g format� � � � g exportsS� � g set-current-module� � � g %include-in-guild-list� f 1Check for bugs and style errors in a Scheme file.� g %summary� g scan-file-for-module-name� g uniq� g scan-file-for-free-variables� g resolve-module� f Resolved module: ~S
� !g catch� "g eval� #f !Unresolved free variables in ~A:
� $g
write-char� %g write� &g newline� 'f #No unresolved free variables in ~A
� (g with-input-from-file� )g eof-object?� *g read� +g
define-module� ,g append� -g detect-free-variables� .g memq� /g define-generic� 0g quote� 1g
quasiquote� 2g let� 3g letrec� 4g map� 5g car� 6g let*� 7g and-let*� 8g define� 9g
define-public� :g define-macro� ;g lambda� <g lambda*� =g receive� >g
define-method� ?g define*� @g define-class� Ag detect-free-variables-noncar� Bg case� Cg unquote� Dg unquote-splicing� Eg else� Fg =>� Gg for-each� Hg main�C 5h0 � ]4
5 4 > " G RR !" h S ] L�L 6 K g filenamef scripts/lint.scm�
x �� y �� y ��
C#$%& hh � - 1 3 M$ 4L> " G " 4 > " G 4L �> " G 4> " G NC � g args
b g filenamef scripts/lint.scm�
z �� { �� | �� } �� | �� ) �� ; � �� @ � �� E � �� N � �� ` � �� b
C' h� � ])4 544 55 45H 4> " G " 8( " 64O O > " G � "��� "���J$
6C } g filename
� g module-name � g free-vars � g module ! � g
all-resolved? ! � g free-vars > v g filenamef scripts/lint.scm�
n
�� o ��
p ��
p �� p �� o �� q �� ! q �� & s �� + s �� 2 s �� > t �� D u �� I w �� p � �� v � �� v t �� � � �� � � �� � �
�� � g nameg lint� CR()*+ hP � ]" 94 5$ C" 45 "��� �$ �& ��C"���"���45 "��� � g x
? g filenamef scripts/lint.scm�
� �� � �� � �� � �� � �� " � �� " � �� % � �� ) � �� , � �� . � !�� 2 � �� 5 � �� ? � �� @ � �� J � �� J
C h � ] 6 � g filename
g filenamef scripts/lint.scm�
�
��
� ��
g nameg scan-file-for-module-name� C R(),*- h@ � ]" )4 5$ @45 4 5� "���45 "��� � g x
/ g fvlists / g filenamef scripts/lint.scm�
� �� � �� � �� � �� � �� � �� � �� " � 8�� $ � �� ' � �� / � �� / � �� 0 � �� 5 � %�� = � �� =
C h � ] 6 � g filename
g filenamef scripts/lint.scm�
�
��
� ��
g nameg scan-file-for-free-variables� C R.+/0123,45- h u ] ��L $ L" M6m g binding
g filenamef scripts/lint.scm�
� "�� � ;�� � ;�� � $�� C- h d ] L 6 \ g bodyform
g filenamef scripts/lint.scm�
� "��
� $��
C67- h d ] M 6 \ g bodyform
g filenamef scripts/lint.scm�
� ��
� ��
C-89:;<- h d ] L 6 \ g bodyform
g filenamef scripts/lint.scm�
� ��
� ��
C=- h d ] L 6 \ g bodyform
g filenamef scripts/lint.scm�
� ��
� ��
C>?- h d ] L 6 \ g bodyform
g filenamef scripts/lint.scm�
��
��
C@A h � ] �$ �" M 6z g slot/option
g filenamef scripts/lint.scm�
�� <�� 8�� <�� �� CB- h i ] �M 6 a g case
g filenamef scripts/lint.scm�
�� 1�� �� CCDEFA % hh � ]H �$ 4 J5$ C C �$ ; � �$ " !�$ " �$ " �$ C�$ " �$ r ���$ �� ���� �����" ��4J4
��55 44 O ��5?44 O ��5?6
�$ " �$ I ��( 4 O ��5@4 �����J54
��� ���� ����J�56�$ " �$ " �$ : ���$ ���J�K ��� ����J6 ��J�K ���J6�$ " �$ U" -( " /�$ ��� "����" J �� "��� 4 O ��5@�$ .4J ��5 4 ���J54 O ���5@�$ " �$ f" =( " @�$ !��$ ��" ��� "����" J ��� "��� 4 O ��5@ �$ 4 O ���5@ �$ 4 ��J54 O ��5@ �$ " !!�$ " "�$ " #�$ $ �J64J54$ �J56C � g x
f g locals f g key , d g letrec? � � g locals-for-let-body � � g locals � � g args � � g locals-for-lambda-body g locals-for-receive-body + N g locals i � g args i � g locals-for-method-body � � g filenamef scripts/lint.scm�
�
�� � ��
� �� �
�� � �� � �� ! � !�� % � �� ) � �� , � �� , � �� b � �� l � �� } � �� � �� � � �� � � .�� � � (�� � � ;�� � � "�� � � "�� � � �� � � �� � � �� � � (�� � � �� � � '�� � � 6�� � � ?�� � � 6�� � � '�� � � �� � � �� � � �� � � "�� � � �� � � �� � � �� � � �� � � "�� � � �� � � �� � � �� � � �� � �� � �� � �� � �� � �� � �� " � �� ' � 5�� * � /�� / � �� 0 � �� 4 � /�� 7 � 7�� < � C�� > � /�� B � 5�� H � /�� J � �� L � �� U � �� t � �� v � �� z � �� } � %�� � � �� � � �� � � )�� � � 3�� � � ?�� � � )�� � � �� � � %�� � � �� � � �� � � )�� � � �� � � �� � � *�� � � ,�� � � 3�� � � ,�� � � ?�� � � 9�� � � 9�� � � 3�� � � 3�� � � *�� � � ;�� � *�� � �� � �� � �� � �� � �� � �� ! � +�� ( � :�� + � +�� + � �� 0 � �� 5 � ,�� ; � �� < � �� H � �� L � �� N � �� W � �� i � *�� o ,�� x 3�� | ,�� J�� � C�� � ?�� � C�� � C�� � 9�� � 9�� � 3�� � 3�� � � *�� � � ;�� � � *�� � � �� �
�� �
�� �
�� � �� � � �� � �� � �� � �� � �� � � �� � �� � *�� � �� �� �� �� �� � �� I " *�� M " �� P $ �� T $ 0�� X $ �� Y % �� ^ % 7�� b % �� d $ �� e ' �� � f g nameg detect-free-variables� C-R.FA,- hX U ]
�$ 4 5$ C C �$ . � �$ �6454 �56C M g x
U g locals U g key ( S g filenamef scripts/lint.scm�
)
�� - �� - ��
.
�� . �� . �� . !�� ! 0 �� % - �� ( 1 �� ( 1 �� 8 3 *�� < 3 �� ? 5 �� C 5 0�� G 5 �� H 6 �� M 6 7�� Q 6 �� S 5 �� T 8 �� U g nameg detect-free-variables-noncar� CARG h s - 1 3 6 k g files
g filenamef scripts/lint.scm�
:
�� ; ��
g nameg main� CHRC� g m
, g filenamef scripts/lint.scm� f
�� 0 k
�� 2 l �� 5 l
�� n
�� �
�� � �
�� � �
�� � )
�� . :
�� 0
C6