GOOF----LE-8-2.0� ] H 4 h ] g guile� � g define-module*� � � g ice-9� g channel� � g filenameS�
f ice-9/channel.scm� g exportsS� g make-object-channel�
g channel-open� g channel-print-value� g channel-print-token�
� g set-current-module� � � g make-record-type� g stdin� g stdout� g printer� g token-module� � g channel-type� g record-constructor� g make-channel� g current-input-port� g current-output-port� g make-module� g record-accessor� !g
channel-stdin� "g channel-stdout� #g channel-printer� $g channel-token-module� %g catch� &g channel:prompt� 'g read� (g eof-object?� )g throw� *g quit� +g eval� ,g module-use!� -g current-module� .g destroy� /g module-defined?� 0g module-remove!� 1g
channel:error� 2f Invalid token: ~S� 3f Unknown command: ~S� 4g format� 5f exception = ~S
� 6f value = ~S
� 7g
symbol-append� 8g gensym� 9f %%� :g %%� ;g object->string� <f token = ~S
� =g module-define!� >g display� ?f channel> � @g force-output� Af ERROR: � Bg apply� Cg newline� Dg
guile:eval� Eg procedure-minimum-arity� Fg defined?� Gf ~S�C 5 h8
� ]4
5 4 > " G 4i5R4ii5 R h � ]45 45 45 6 � g printer
g filenamef ice-9/channel.scm�
W
�� X ��
Y �� [ �� X �� g nameg make-object-channel� C R4 ii5!R4 ii5"R4 ii5#R4 ii5$R!"#$%&'()*+,-+./0123 h � ]4L> " G 4L5 4 5$ 4> " G " � �$ >445 L> " G 4LL4 4L545 5> " G " �
�$ K4L5 4 L5$ 4 L> " G " 4
L> " G " 5 �$ 4> " G " 4
L > " G L 6 � g cmd
g token � � g filenamef ice-9/channel.scm�
m �� n
�� o �� o
�� p �� ( p �� ) q �� - q �� 2 q �� G r �� H t �� K t �� V t �� _ u �� d u �� g u #�� n u 0�� t u �� y u �� � r �� � w �� � w �� � x �� � x �� � y �� � z �� � z +�� � z �� � r �� � | �� � | �� � | �� � ~ �� � ~ '�� ~ ��
�� %
C*)45 hH � - 1 3 �$ 64L 4�����? > " G L6 � g key
D g args D g filenamef ice-9/channel.scm�
� �� �
�� � �� � �� �
�� � �� " � �� ( � 0�� , � <�� 0 � �� 3 � �� 8 �
�� D �
�� D
C h( ] ] L LLLLLO LL O 6 U g filenamef ice-9/channel.scm�
k �� ! l �� !
g nameg loop� C hH ])4 54 54 54 5 O Q 6 � g ch
F g stdin F g stdout F g printer F g token-module F g loop 3 F g filenamef ice-9/channel.scm�
f
�� g ��
h �� i �� j �� g �� 3 k �� F g nameg channel-open� C
R4"6 h � ]4 56 � g ch
g val g filenamef ice-9/channel.scm�
�
�� �
��
� �� � �� g nameg channel-print-value� CR789:;4"<=$ hH ; ]4455 45� 44 5> " G 4
563 g ch
H g val H g token H g pair H g filenamef ice-9/channel.scm�
�
�� � �� � ��
� '�� � �� � -�� � �� � �� � �� � �� � �� � �� " � �� * � �� 1 � �� < � �� H � �� H g nameg channel-print-token� CR>?@ h � ]4 > " G 6 � g port
g filenamef ice-9/channel.scm�
�
�� � �� � �� � �� � �� g nameg channel:prompt� C&R>AB4C h@ � - 1 3 4 > " G 4 > " G 6 � g port
; g msg ; g args ; g filenamef ice-9/channel.scm�
�
��
� �� � �� � �� � �� ; � �� ;
g nameg
channel:error� C1R+iDR4EiDi5� �$ �D h m ] 6 e g x
g e
g filenamef ice-9/channel.scm�
� ��
� ��
C" Di+R4Fi;5$ ;i" �4G h g ] 6 _ g x
g filenamef ice-9/channel.scm�
� �� � �� � �� C;RC � g m
( g filenamef ice-9/channel.scm� H
�� ) S �� / S �� 1 S �� 3 S �� 6 R
�� 7 U �� D U
�� W
�� ] �� ] 4�� ! ] �� $ ]
�� % ^ �� / ^ 5�� 1 ^ �� 4 ^
�� 5 _ �� ? _ 6�� A _ �� D _
�� E ` �� O ` ;�� Q ` �� T `
�� o f
�� D �
�� � �
��
� �
�� � �
�� � �
�� � � �� � � �� � � �� � � �� � �
�� � � �� � � �� � � �� � � ��
2 �
�� *
4
C6