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