GOOF----LE-8-2.0£].4h[] gguile¤ ¤ gdefine-module*¤ ¤ ¤ gice-9¤ gstreams¤ ¤ gfilenameS¤ fice-9/streams.scm¤ gexportsS¤ g make-stream¤ g stream-car¤ g stream-cdr¤ g stream-null?¤ g list->stream¤ gvector->stream¤ g port->stream¤ g stream->list¤ gstream->reversed-list¤ gstream->list&length¤ gstream->reversed-list&length¤ gstream->vector¤ g stream-fold¤ gstream-for-each¤ g stream-map¤   ¤ gset-current-module¤ ¤ ¤ g make-promise¤ ¤ !¤ "gforce¤ #g vector-length¤ $greverse!¤ %g make-vector¤ &gstream-fold-one¤ 'gstream-fold-many¤ (gor-map¤ )gmap¤ *gstream-for-each-one¤ +gstream-for-each-many¤ ,gapply¤ -g eof-object?¤C5høù]4   54>"G! h(¤]4LL5ˆ$4LŽ5ŒCCœgo #gfilenamefice-9/streams.scmŒ V ŒŒ  W ŒŒ W ŒŒ  X ŒŒ  X ŒŒ  Y ŒŒ  Z ŒŒ  Z ŒŒ  Z ŒŒ Y ŒŒ " [ ŒŒ  # Ch†]O6~gm  gstate  gfilenamefice-9/streams.scmŒ U ŒŒ  V ŒŒ   gnameg make-streamŒC R"h×]45CÏgstream  gfilenamefice-9/streams.scmŒ ] ŒŒ  _ ŒŒ _ ŒŒ  gnameg stream-carŒg documentationfBReturns the first element in STREAM. This is equivalent to `car'.ŒC R"hÜ]45ŽCÔgstream  gfilenamefice-9/streams.scmŒ a ŒŒ  c ŒŒ c ŒŒ  gnameg stream-cdrŒg documentationfGReturns the first tail of STREAM. Equivalent to `(force (cdr STREAM))'.ŒCR"h?]45„C7gstream  gfilenamefice-9/streams.scmŒ e ŒŒ  i ŒŒ i ŒŒ  gnameg 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 hT]CLgl  gfilenamefice-9/streams.scmŒ o ŒŒ   Chù]6ñgl  gfilenamefice-9/streams.scmŒ k ŒŒ n ŒŒ  gnameg list->streamŒg documentationfoReturns a newly allocated stream whose elements are the elements of LIST. Equivalent to `(apply stream LIST)'.ŒCR #h Š] L‘$CL£—ŒC‚gi  gt  gfilenamefice-9/streams.scmŒ u ŒŒ  v ŒŒ  v ŒŒ  w ŒŒ  w "ŒŒ  w ŒŒ   Ch –] 45O 6Žgv  glen gfilenamefice-9/streams.scmŒ r ŒŒ  t ŒŒ t ŒŒ  s ŒŒ   gnamegvector->streamŒCR hH]"/45$D4545Œ—"ÿÿÑ "ÿÿà gstream  Cgs  5gacc   5glen   5gfilenamefice-9/streams.scmŒ z ŒŒ  { ŒŒ  | ŒŒ  | ŒŒ  } ŒŒ  ~ ŒŒ  ~ #ŒŒ ( ~ ŒŒ + ~ 7ŒŒ 5 ~ ŒŒ 5 { ŒŒ 8 { ŒŒ C { ŒŒ  C gnamegstream->reversed-list&lengthŒCRh¬]4> GC¤gstream  gl glen  gfilenamefice-9/streams.scmŒ € ŒŒ  ‚ ŒŒ  ŒŒ   gnamegstream->reversed-listŒCR$h ¼]4> G45D´gstream  gl glen  gfilenamefice-9/streams.scmŒ … ŒŒ  ‡ ŒŒ  † ŒŒ  ˆ ŒŒ  ˆ ŒŒ   gnamegstream->list&lengthŒCR$h$]456gstream  gfilenamefice-9/streams.scmŒ Š ŒŒ  ŒŒ ŒŒ  gnameg 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%hX5])4> G45"%("&˜ ˜¤—Ž"ÿÿÛ "ÿÿÐC-gstream  Tgl Tglen  Tgv   Tgi  ! Fgl  ! Fgfilenamefice-9/streams.scmŒ ŒŒ  ‘ ŒŒ  ŒŒ  “ ŒŒ  “ ŒŒ ! ” ŒŒ ' • ŒŒ 2 — ŒŒ 7 — *ŒŒ 8 — ŒŒ ; ˜ ŒŒ > ˜ ŒŒ F ˜ ŒŒ F ” ŒŒ  T gnamegstream->vectorŒCR&'h(Ë-13( 6Œ6Ãgf &ginit &gstream  &grest  &gfilenamefice-9/streams.scmŒ › ŒŒ  œ ŒŒ  ŒŒ $ ž ŒŒ & ž ŒŒ &  gnameg stream-foldŒCR& h0Ò]45$C4455456Êgf  +gr  +gstream   +gfilenamefice-9/streams.scmŒ   ŒŒ  ¡ ŒŒ ¡ ŒŒ  £ ŒŒ  £ ŒŒ " £ ŒŒ # £ 3ŒŒ + £ ŒŒ  + gnamegstream-fold-oneŒC&R('h ©](LC4LŽ5ŒC¡gcars  gfilenamefice-9/streams.scmŒ © !ŒŒ  « #ŒŒ ¬ 'ŒŒ  ­ -ŒŒ  ® -ŒŒ  ® 4ŒŒ  ® -ŒŒ  ­ 'ŒŒ   gnamegrecurŒC) hHù] 45$C4OQ4455?456ñgf  Ggr  Ggstreams   Ggrecur  " :gfilenamefice-9/streams.scmŒ ¥ ŒŒ  ¦ ŒŒ  ¦ ŒŒ  © ŒŒ " © !ŒŒ - ª .ŒŒ 7 © !ŒŒ < © ŒŒ = ¯ ŒŒ G ¨ ŒŒ  G gnamegstream-fold-manyŒC'R*+h(½-13(6Œ6µgf "gstream "grest  "gfilenamefice-9/streams.scmŒ ± ŒŒ  ² ŒŒ  ³ ŒŒ ´ ŒŒ " ´ ŒŒ "  gnamegstream-for-eachŒCR *h8Ç]45$C445>"G456¿gf  3gstream  3gfilenamefice-9/streams.scmŒ ¶ ŒŒ  · ŒŒ · ŒŒ  ¹ ŒŒ  ¹ ŒŒ  ¹ ŒŒ + º ŒŒ 3 º ŒŒ  3 gnamegstream-for-each-oneŒC*R(,) +h@É]45$C445>"G456Ágf  ;gstreams  ;gfilenamefice-9/streams.scmŒ ¼ ŒŒ  ½ ŒŒ  ½ ŒŒ  ¿ ŒŒ  ¿ ŒŒ $ ¿ ŒŒ 1 À ŒŒ ; À ŒŒ  ; gnamegstream-for-each-manyŒC+R  h0¢] 45$C4L45545ŒCšgs  )gt )gfilenamefice-9/streams.scmŒ Ç ŒŒ  È ŒŒ È ŒŒ  É ŒŒ  É "ŒŒ É ŒŒ ! É 2ŒŒ ( É ŒŒ  ) C() h0¨] 45$C4L45?45ŒC gstreams  /gt /gfilenamefice-9/streams.scmŒ Ë ŒŒ  Ì ŒŒ Ì ŒŒ  Í ŒŒ  Í (ŒŒ $ Í ŒŒ % Î ŒŒ . Í ŒŒ  / Ch0\-13( O6OŒ6Tgf ,gstream ,grest  ,gfilenamefice-9/streams.scmŒ  ŒŒ  Æ ŒŒ  Ç ŒŒ * Ï ŒŒ , Ë ŒŒ ,  gnameg 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(Ÿ]4L545$CŒC—gp  #go #gt   #gfilenamefice-9/streams.scmŒ Ò ŒŒ  Ó ŒŒ Ó ŒŒ Ô ŒŒ  Ô ŒŒ " Õ ŒŒ  # Ch‹]O6ƒgport  gread  gfilenamefice-9/streams.scmŒ Ñ ŒŒ  Ò ŒŒ   gnameg port->streamŒCRCñgm  (gfilenamefice-9/streams.scmŒ   ŒŒ ± U ŒŒ ª ] ŒŒ ¯ a ŒŒ  e ŒŒ ” k ŒŒ  r ŒŒ Œ z ŒŒ g € ŒŒ W … ŒŒ Ÿ Š ŒŒ @ ŒŒ N › ŒŒ m   ŒŒ ¤ ¥ ŒŒ   ± ŒŒ º ¶ ŒŒ ä ¼ ŒŒ g  ŒŒ ö Ñ ŒŒ  ø C6