← Back
Editing: channel.go
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
Save File
Cancel