[EDIT] FILE: streams.go
GOOF----LE-8-2.0� ] . 4 h[ ] g guile� � g define-module*� � � g ice-9� g streams� � g filenameS� f ice-9/streams.scm� g exportsS� g make-stream� g stream-car� g stream-cdr� g stream-null?� g list->stream� g vector->stream� g port->stream� g stream->list� g stream->reversed-list� g stream->list&length� g stream->reversed-list&length� g stream->vector� g stream-fold� g stream-for-each� g stream-map� � g set-current-module� � � g make-promise� � ! � "g force� #g vector-length� $g reverse!� %g make-vector� &g stream-fold-one� 'g stream-fold-many� (g or-map� )g map� *g stream-for-each-one� +g stream-for-each-many� ,g apply� -g eof-object?�C 5h� � ]4 5 4 > " G ! h( � ]4LL 5 �$ �4L �5�CC � g o # g filenamef ice-9/streams.scm� V �� W �� W �� X �� X �� Y �� Z �� Z �� Z �� Y �� " [ �� # C h � ] O 6 ~ g m g state g filenamef ice-9/streams.scm� U �� V �� g nameg make-stream� C R" h � ]4 5�C � g stream g filenamef ice-9/streams.scm� ] �� _ �� _ �� g nameg stream-car�g documentationf BReturns the first element in STREAM. This is equivalent to `car'.� C R" h � ]4 5�C � g stream g filenamef ice-9/streams.scm� a �� c �� c �� g nameg stream-cdr�g documentationf GReturns the first tail of STREAM. Equivalent to `(force (cdr STREAM))'.� CR" h ? ]4 5�C 7 g stream g filenamef ice-9/streams.scm� e �� i �� i �� g nameg stream-null?�g documentationf �Returns `#t' if STREAM is the end-of-stream marker; otherwise returns `#f'. This is equivalent to `null?', but should be used whenever testing for the end of a stream.� CR h T ] C L g l g filenamef ice-9/streams.scm� o �� C h � ] 6 � g l g filenamef ice-9/streams.scm� k �� n �� g nameg list->stream�g documentationf oReturns a newly allocated stream whose elements are the elements of LIST. Equivalent to `(apply stream LIST)'.� CR # h � ] L � $ CL � ��C � g i g t g filenamef ice-9/streams.scm� u �� v �� v �� w �� w "�� w �� C h � ] 4 5 O 6 � g v g len g filenamef ice-9/streams.scm� r �� t �� t �� s �� g nameg vector->stream� CR hH ]" /45$ D4545�� "��� "��� g stream C g s 5 g acc 5 g len 5 g filenamef ice-9/streams.scm� z �� { �� | �� | �� } �� ~ �� ~ #�� ( ~ �� + ~ 7�� 5 ~ �� 5 { �� 8 { �� C { �� C g nameg stream->reversed-list&length� CR h � ]4 > G C � g stream g l g len g filenamef ice-9/streams.scm� � �� � �� � �� g nameg stream->reversed-list� CR$ h � ]4 > G 45D � g stream g l g len g filenamef ice-9/streams.scm� � �� � �� � �� � �� � �� g nameg stream->list&length� CR$ h $ ]4 56 g stream g filenamef ice-9/streams.scm� � �� � �� � �� g nameg stream->list�g documentationf �Returns a newly allocated list whose elements are the elements of STREAM. If STREAM has infinite length this procedure will not terminate.� CR% hX 5 ])4 > G 45 " %( " &� ����� "��� "���C - g stream T g l T g len T g v T g i ! F g l ! F g filenamef ice-9/streams.scm� � �� � �� � �� � �� � �� ! � �� ' � �� 2 � �� 7 � *�� 8 � �� ; � �� > � �� F � �� F � �� T g nameg stream->vector� CR&' h( � - 1 3 ( 6 �6 � g f & g init & g stream & g rest & g filenamef ice-9/streams.scm� � �� � �� � �� $ � �� & � �� & g nameg stream-fold� CR& h0 � ]45$ C 4 455456 � g f + g r + g stream + g filenamef ice-9/streams.scm� � �� � �� � �� � �� � �� " � �� # � 3�� + � �� + g nameg stream-fold-one� C&R(' h � ] ( L C �4L �5�C � g cars g filenamef ice-9/streams.scm� � !�� � #�� � '�� � -�� � -�� � 4�� � -�� � '�� g nameg recur� C) hH � ] 45$ C 4 O Q 4455 ?456 � g f G g r G g streams G g recur " : g filenamef ice-9/streams.scm� � �� � �� � �� � �� " � !�� - � .�� 7 � !�� < � �� = � �� G � �� G g nameg stream-fold-many� C'R*+ h( � - 1 3 ( 6 �6 � g f " g stream " g rest " g filenamef ice-9/streams.scm� � �� � �� � �� � �� " � �� " g nameg stream-for-each� CR * h8 � ]45$ C4 45> " G 456 � g f 3 g stream 3 g filenamef ice-9/streams.scm� � �� � �� � �� � �� � �� � �� + � �� 3 � �� 3 g nameg stream-for-each-one� C*R(,) + h@ � ]45$ C4 45> " G 456 � g f ; g streams ; g filenamef ice-9/streams.scm� � �� � �� � �� � �� � �� $ � �� 1 � �� ; � �� ; g nameg stream-for-each-many� C+R h0 � ] 4 5 $ C4L 4 554 5�C � g s ) g t ) g filenamef ice-9/streams.scm� � �� � �� � �� � �� � "�� � �� ! � 2�� ( � �� ) C() h0 � ] 4 5 $ C4L 4 5?4 5�C � g streams / g t / g filenamef ice-9/streams.scm� � �� � �� � �� � �� � (�� $ � �� % � �� . � �� / C h0 \ - 1 3 ( O 6 O �6 T g f , g stream , g rest , g filenamef ice-9/streams.scm� � �� � �� � �� * � �� , � �� , g nameg stream-map�g documentationf �Returns a newly allocated stream, each element being the result of invoking F with the corresponding elements of the STREAMs as its arguments.� CR - h( � ]4L 5 45 $ C �C � g p # g o # g t # g filenamef ice-9/streams.scm� � �� � �� � �� � �� � �� " � �� # C h � ]O 6 � g port g read g filenamef ice-9/streams.scm� � �� � �� g nameg port->stream� CRC� g m ( g filenamef ice-9/streams.scm� �� � U �� � ] �� � a �� e �� � k �� r �� � z �� g � �� W � �� � � �� @ � �� N � �� m � �� � � �� � � �� � � �� � � �� g � �� � � �� � C6
SAVE
CANCEL