GOOF----LE-8-2.0{ ] t 4 h� ] g guile� � g define-module*� � � g ice-9� g expect� � g filenameS�
f ice-9/expect.scm� g importsS� g regex�
�
� � g exportsS� g expect-strings� g expect-port� g expect-timeout� g expect-timeout-proc� g expect-eof-proc� g expect-char-proc� g expect-strings-compile-flags� g expect-strings-exec-flags� g
expect-select� g expect-regexec� � g set-current-module� � � g make-syntax-transformer� � ! � "g macro� #g $sc-dispatch� $# � %# � &g _� 'g any� (&'�� )g
syntax->datum� *) � +) � ,g
datum->syntax� -, � ., � /g gensym� 0g let� 1f � 21 � 3g or� 4g current-input-port� 54 � 635 � 76 � 8g if� 9g let*� :g
secs-usecs� ;g gettimeofday� <; � =:< � >= � ?g +� @g car� A@: � Bg /� Cg cdr� DC: � EBD B@ � F?AE � G9>F � H8G � IH � Jg next-char� Kg and� Lg not� M � Ng read-char� Og eof-object?� Pg set!� Qg
string-append� Rg string� Sg cond� Tg append� UT � VT � Wg reverse� Xg =>� Yg length� Zg apply� [g scm-error� \g
misc-error� ]f expect� ^f bad recipient: ~S� _g map� `g else� aJ � b`a � cb � dg syntax-violation� ed � fd � gf -source expression failed to match any pattern� hg regexp/newline� ig
regexp/noteol� jg make-regexp� k � lg lambda� mg s� ng eof?� omn � pg select� qg regexp-exec� rg match:substring� sg match:count�C 5 h`
� ]4
5 4 > " G RRRRR4!"%(+./027IJ8KLMNOPQRSVWXYZ[\]^_@C`c $ h� q - 1 3 45 45 45 45 ���
���
4" �( 45" ���� �( " M��& @4�5 �$ ���� " 4 � 5" ��� "��s4 54 5 "��V! ""
��� #�� 5� C i g clauses
� g s � g c � g port � g timeout � g tests � @ g exprs � @ g body � @ g filenamef ice-9/expect.scm�
1
��
2 �� 3 �� 4 �� 5 �� 2 �� ' 6 �� � O �� � R �� � T �� � W �� � X �� � Z �� � Z �� � [ *�� � [ �� � \ #�� � ] (�� � ] 5�� � [ �� � ^ /�� � ^ 7�� � ^ /�� � ^ ,�� � ^ #�� e '�� e 1�� f 2�� e '�� ` '�� ` 2�� a 2�� " b 2�� % c 8�� ( c 2�� + ` '�� 2 h #�� 3 Z �� 6 Y �� @ V �� @ O �� A O )�� J P )�� S Q (�� ] O �� _ 6 �� / �
C h d ] 4 5 L 4?6\ g args
g v g filenamef ice-9/expect.scm� 1
�� Cfg h( b ] 4 5 $ O @ 6 Z g y
' g tmp ' g filenamef ice-9/expect.scm�
1
�� ' C5RhiRiiR4!"%(+.0W/jklo_@C
h� � - 1 3 " a( 4545� " c45 ����� � �� ��� "��� 4
54
5 "���C � g clauses
� g tests p g exprs p g defs p g body p g rxname 2 p g filenamef ice-9/expect.scm�
x
�� y �� y
�� } �� ~ �� ~ (�� ~ 3�� & ~ (�� ) ~ �� . � !�� 2 � �� 7 � �� : � �� > � &�� A � 2�� C � &�� K � �� M � &�� ] � *�� ^ � &�� a � �� m � �� p y
�� q y !�� z z !�� � { �� � | �� � y
�� � y �� �
C h d ] 4 5 L 4?6\ g args
g v g filenamef ice-9/expect.scm� x
�� Cfg h( b ] 4 5 $ O @ 6 Z g y
' g tmp ' g filenamef ice-9/expect.scm�
x
�� ' C5R;p h@ L ]45 ��� B@��
�$ 4 5��CC D g port
: g timeout : g
secs-usecs : g relative : g filenamef ice-9/expect.scm�
�
�� � �� � �� � �� � �� � �� � �� � �� � �� # � �� ' � �� ( � �� / � �� 0 � )�� 1 � -�� 5 � �� 6 � �� 7 � �� : g nameg
expect-select� CRiqrs h� � ]#" " $$ �$ �" "���" "��� 4
5 $ 7" "
�$ C�45� "���45� "���C | g rx
g s g eof? g flags 0 g match > g i J l g result J l g filenamef ice-9/expect.scm�
�
�� � �� � �� � �� � �� 0 � �� 3 � �� > � �� F � �� J � �� N �
�� R � �� X � *�� Y � �� d � �� l � �� m � �� t � �� u � �� } � �� g nameg expect-regexec� CRC � g m
, g filenamef ice-9/expect.scm�
�� 0 )
�� 4 *
�� 8 +
�� < ,
�� @ -
�� � s
�� � t
�� 7 �
��
W �
��
Y
C6