Warning: file_get_contents(https://raw.githubusercontent.com/Den1xxx/Filemanager/master/languages/ru.json): failed to open stream: HTTP request failed! HTTP/1.1 404 Not Found
in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 88
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 215
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 216
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 217
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 218
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 219
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 220
GOOF----LE-8-2.0V ] 4 hE ] g guile g define-module* g srfi g srfi-41 g filenameS
f srfi/srfi-41.scm g importsS g srfi-1
g srfi-8 g srfi-9 g gnu g srfi-26 g ice-9 g match g exportsS !g stream-null "g stream-cons #g stream? $g stream-null? %g stream-pair? &g
stream-car 'g
stream-cdr (g
stream-lambda )g
define-stream *g list->stream +g port->stream ,g stream -g stream->list .g
stream-append /g
stream-concat 0g stream-constant 1g stream-drop 2g stream-drop-while 3g
stream-filter 4g stream-fold 5g stream-for-each 6g stream-from 7g stream-iterate 8g
stream-length 9g
stream-let :g
stream-map ;g stream-match g
stream-ref ?g stream-reverse @g stream-scan Ag stream-take Bg stream-take-while Cg
stream-unfold Dg stream-unfolds Eg
stream-zip F!"#$%&'()*+,-./0123456789:;<=>?@ABCDE % Gg set-current-module HG IG Jg cond-expand-provide Kg current-module L Mg make-syntax-transformer NM OM Pg must Qg macro Rg $sc-dispatch SR TR Ug any Vg each-any WUV XUW YUX ZUY [UZ \g
syntax-object ]g let ^g top _^ `g ribcage ag dummy bg pred cg obj dg func eg msg fg args gabcdef hg m-46961e513a-1 ih^ ji_____ kf l-46961e513a-6 lf l-46961e513a-7 mf l-46961e513a-8 nf l-46961e513a-9 of l-46961e513a-a pf l-46961e513a-b qklmnop r`gjq s` tg x ut vi wf l-46961e513a-3 xw y`uvx z_rsy {g hygiene |{ }\]z| ~g item \~z| g unless \z| g throw \z| g quote \z| g wrong-type-arg \z| g list \z| g syntax-violation f -source expression failed to match any pattern g must-not g m-46961e513a-14 ^ _____ f l-46961e513a-19 f l-46961e513a-1a f l-46961e513a-1b f l-46961e513a-1c f l-46961e513a-1d f l-46961e513a-1e `g f l-46961e513a-16 `u _s \]| \~| g when \| \| \| \| \| g
must-every g objs abdef g m-46961e513a-27 ^ _____ f l-46961e513a-2c f l-46961e513a-2d f l-46961e513a-2e f l-46961e513a-2f f l-46961e513a-30 f l-46961e513a-31 ` f l-46961e513a-29 `u _s \]| g flunk \| g remove \| \| g null? \| \| \| \| \| g first-value UU g receive g expr a g m-46961e513a-3a ^ _ f l-46961e513a-3f f l-46961e513a-40 ` f l-46961e513a-3c `u _s \| g first \| g _ \| 挤 g second-value g m-46961e513a-44 ^ _ f l-46961e513a-49 f l-46961e513a-4a ` f l-46961e513a-46 `u _s \| \| g second \| \| g third-value g m-46961e513a-4e ^ _ f l-46961e513a-53 f l-46961e513a-54 ` f l-46961e513a-50 `u
_s \
| \
|
\
| g third \
| \
|
g define-syntax* UU V U g
define-syntax g name g body af g m-46961e513a-57 ^ ___ f l-46961e513a-5c !f l-46961e513a-5d "f l-46961e513a-5e #f l-46961e513a-5f $ !"# %` $ & 'f l-46961e513a-59 (' )`u&( *_%s) +\*| ,g lambda* -\,*| .UUU /g syntax 0a/ 1 __ 2f l-46961e513a-66 3f l-46961e513a-67 4f l-46961e513a-68 5234 6`015 7_6s) 8\7| 9g stream-promise :g %make-stream-promise-procedure ;g make-stream-promise <U =g lambda >g m-46961e513a-70 ?>^ @g t-46961e513a-6f A@ B? Cf l-46961e513a-75 DC E`ABD Ff l-46961e513a-72 GF H`uBG Ig shift Jg proc-name KJf L__ Mf l-1e8ba8b5a-2ba Nf l-1e8ba8b5a-2bb OMN P`KLO Qg key Rg value Sg formals TQRS U_____ Vf l-1e8ba8b5a-2ad Wf l-1e8ba8b5a-2ae Xf l-1e8ba8b5a-2af Yf l-1e8ba8b5a-2b0 Zf l-1e8ba8b5a-2b1 [VWXYZ \`TU[ ]g make-procedure-name ^] __ `f l-1e8ba8b5a-29d a` b`^_a c_ df l-1e8ba8b5a-29c ed f`uce g?EsHIssssP\bf
h{ i\=gh jg val k_EsH l\jk| ml ng make-struct og m-46961e513a-6d po^ qg t-1e8ba8b5a-38d rg t-1e8ba8b5a-38c sg t-1e8ba8b5a-38b tqrs ug m-1e8ba8b5a-38e vu^ wvvv xf l-1e8ba8b5a-392 yf l-1e8ba8b5a-393 zf l-1e8ba8b5a-394 {xyz |`tw{ }g ctor-args ~} f l-1e8ba8b5a-37a `~c g ctor g field f l-1e8ba8b5a-376 f l-1e8ba8b5a-377 `L g form g type-name g constructor-spec g field-names ____ f l-1e8ba8b5a-36b f l-1e8ba8b5a-36c f l-1e8ba8b5a-36d f l-1e8ba8b5a-36e ` g
record-layout g functional-setters g setters g copier g getters g constructor g getter-identifiers g field-identifiers ________ f l-1e8ba8b5a-343 f l-1e8ba8b5a-341 f l-1e8ba8b5a-33f f l-1e8ba8b5a-33d f l-1e8ba8b5a-33b f l-1e8ba8b5a-339 f l-1e8ba8b5a-337 f l-1e8ba8b5a-335 ` f l-1e8ba8b5a-334 `uc pEsHIs|ssss \nh \9k| \
h l im V f Wrong number of arguments g identifier? _sH \:| g record-type-vtable g pw g default-record-printer j g set-struct-vtable-name! g vtable-offset-user g %stream-promise?-procedure g stream-promise? g m-46961e513a-7d ^ g t-46961e513a-7c f l-46961e513a-82 ` f l-46961e513a-7f `u sIssssP\bf
\=h g t-1e8ba8b5a-47e g t-1e8ba8b5a-478 g t-1e8ba8b5a-479 g t-1e8ba8b5a-47a g t-1e8ba8b5a-47d g t-1e8ba8b5a-47c g t-1e8ba8b5a-47b g m-1e8ba8b5a-47f ^ f l-1e8ba8b5a-483 f l-1e8ba8b5a-484 f l-1e8ba8b5a-485 f l-1e8ba8b5a-486 f l-1e8ba8b5a-487 f l-1e8ba8b5a-488 f l-1e8ba8b5a-489 ` g copier-id f l-1e8ba8b5a-476 `c g ctor-name f l-1e8ba8b5a-46e `c f l-1e8ba8b5a-46c `c g layout f l-1e8ba8b5a-46a `c g
immutable? f l-1e8ba8b5a-468 ` c g field-count f l-1e8ba8b5a-466 `c g
getter-ids
f l-1e8ba8b5a-463
`
c g field-ids f l-1e8ba8b5a-460 `c g predicate-name g
field-spec ______ f l-1e8ba8b5a-453 f l-1e8ba8b5a-454 f l-1e8ba8b5a-455 f l-1e8ba8b5a-456 f l-1e8ba8b5a-457 f l-1e8ba8b5a-458 ` psIsssssssssss
s \c h ! "g and #\" h $g struct? %\$ h &% 'g eq? (\' h )g
struct-vtable *\) h +* ,_s -\9,| .(+- /#&. 0!/ 1_s 2\1| 3g throw-bad-struct 43 53 6g stream-promise-val 7g %stream-promise-val-procedure 8g free-id 9g
%%on-error :g m-46961e513a-89 ;:^ <; =f l-46961e513a-8b >= ?`u<> @;s?IssssP\bf A\9@h B8A CBU Dg %%type Eg t-1e8ba8b5a-3a5 Fg t-1e8ba8b5a-3a6 Gg t-1e8ba8b5a-3a7 Hg t-1e8ba8b5a-3a8 Ig t-1e8ba8b5a-3a9 Jg t-1e8ba8b5a-3aa Kg t-1e8ba8b5a-3ab LEFGHIJK Mg m-1e8ba8b5a-3ac NM^ ONNNNNNN Pf l-1e8ba8b5a-3b0 Qf l-1e8ba8b5a-3b1 Rf l-1e8ba8b5a-3b2 Sf l-1e8ba8b5a-3b3 Tf l-1e8ba8b5a-3b4 Uf l-1e8ba8b5a-3b5 Vf l-1e8ba8b5a-3b6 WPQRSTUV X`LOW Yg getter Zg index [YZ \f l-1e8ba8b5a-3a3 ]f l-1e8ba8b5a-3a4 ^\] _`[L^ ` a___ bf l-1e8ba8b5a-39e cf l-1e8ba8b5a-39f df l-1e8ba8b5a-3a0 ebcd f``ae gps?IsXsss_sf h\Dgh i8h jCiU kg ck lg err mg s nlm o;; pf l-46961e513a-8e qf l-46961e513a-8f rpq s`nor t;ss?IssssP\bf
u\kth v\th w_ss? x\9w| yvx zy {g %%index |\{gh }8| ~C}U f l-46961e513a-93 f l-46961e513a-94 `no ;s?IssssP\bf
\kh \h s? \
| g %%copier \gh 8 CU f l-46961e513a-98 f l-46961e513a-99 `no ;s?IssssP\bf
\kh \h g %%stream-promise-set-fields _s? \| g t-46961e513a-88 f l-46961e513a-9d `< ;s?IssssP\bf
\=h ps?IsXsss_sf \mh g if \h \'h \)h _s? \9| g
struct-ref \h s? \
| \3h \h \6| _s? \7| g each U U U g %%set-fields g check? amY g m-46961e513a-a4 ^ pppp f l-46961e513a-a9 f l-46961e513a-aa f l-46961e513a-ab f l-46961e513a-ac f l-46961e513a-ad ` f l-46961e513a-a6 `u g t-1e8ba8b5a-3c4 g t-1e8ba8b5a-3c6 g t-1e8ba8b5a-3c5 g m-1e8ba8b5a-3c7 ^ f l-1e8ba8b5a-3cb f l-1e8ba8b5a-3cc f l-1e8ba8b5a-3cd ` f l-1e8ba8b5a-3c1 f l-1e8ba8b5a-3c2 f l-1e8ba8b5a-3c3 ``a psIssss
\h _s \9| \6| g map g stream-promise-val-set! g "%stream-promise-val-set!-procedure UU g m-46961e513a-b8 ^ g t-46961e513a-b6 g t-46961e513a-b7 f l-46961e513a-bd f l-46961e513a-be ` f l-46961e513a-ba `u sIssssP\bf
\=h g t-1e8ba8b5a-3e6 g t-1e8ba8b5a-3e7 g m-1e8ba8b5a-3e8 ^ f l-1e8ba8b5a-3ec f l-1e8ba8b5a-3ed ` g setter Y f l-1e8ba8b5a-3e0
f l-1e8ba8b5a-3e1 f l-1e8ba8b5a-3e2
`a Z f l-1e8ba8b5a-3d7 f l-1e8ba8b5a-3d8 `L g field-specs f l-1e8ba8b5a-3d3 f l-1e8ba8b5a-3d4 `L psIs
ss \mh \jh \h \'h \)h !_s "\9!| # " $g struct-set! %\$h &s '\
&| (%' )\3h *\h +\!| ,*+ -), . #(- / . 0_s 1\0| 2g stream-value 3g %make-stream-value-procedure 4g make-stream-value 5g m-46961e513a-d9 65^ 7g t-46961e513a-d7 8g t-46961e513a-d8 978 :66 ;f l-46961e513a-de `9:= ?6 @f l-46961e513a-db A@ B`u?A C6>sBIssssP\bf
D\=Ch Eg tag F_>sB G\EF| Hg proc I\HF| JGI Kg m-46961e513a-d5 LK^ ML>sBIs|ssss N\nMh O\2F| P\
Mh QNOPGI RDJQ S_sB T\3S| Ug pwpw VEH Wg %stream-value?-procedure Xg
stream-value? Yg m-46961e513a-e8 ZY^ [g t-46961e513a-e7 \[ ]Z ^f l-46961e513a-ed _^ ``\]_ af l-46961e513a-ea ba c`u]b dZ`scIssssP\bf
e\=dh fL`scIsssssssssss
s g\cfh hg i\"fh j\$fh kjg l\'fh m\)fh nmg o_`sc p\2o| qlnp rikq sehr t_sc u\Wt| vg stream-value-tag wg %stream-value-tag-procedure xg m-46961e513a-f4 yx^ zy {f l-46961e513a-f6 |{ }`uz| ~ys}IssssP\bf \9~h 8 U Ls}IsXsss_sf \Dh 8 U yy f l-46961e513a-f9 f l-46961e513a-fa `n ys}IssssP\bf
\kh \h _s} \2| \{h 8 U f l-46961e513a-fe f l-46961e513a-ff `n ys}IssssP\bf
\kh \h s} \
| \h 8 U f l-46961e513a-103 f l-46961e513a-104 `n ys}IssssP\bf
\kh \h g %%stream-value-set-fields _s} \| g t-46961e513a-f3 f l-46961e513a-108 `z ys}IssssP\bf
\=h Ls}IsXsss_sf \mh \h \'h \)h _s} \2| \h s} \
| \3h \h \v| _s} \w| g stream-value-proc g %stream-value-proc-procedure g m-46961e513a-10f ^ f l-46961e513a-111 `u sIssssP\bf \9h 8 U LsIsXsss_sf \Dh 8 U f l-46961e513a-114 f l-46961e513a-115 `n sIssssP\bf
\kh \h _s \2| \{h 8 U f l-46961e513a-119 f l-46961e513a-11a `n sIssssP\bf
\kh \h s \ | \h 8 U f l-46961e513a-11e f l-46961e513a-11f `n sIssssP\bf
\kh \h _s \| g t-46961e513a-10e f l-46961e513a-123 `
sIssssP\bf
\=
h L sIsXsss_sf
\m h
\ h \' h \) h
_ s \2| \ h s \ |
\3 h \ h \|
!_s "\!| #g m-46961e513a-12a $#^ %$LLLL &f l-46961e513a-12f 'f l-46961e513a-130 (f l-46961e513a-131 )f l-46961e513a-132 *f l-46961e513a-133 +&'()* ,`%+ -$ .f l-46961e513a-12c /. 0`u-/ 1L,s0Issss
2\1h 3_,s0 4\23| 5\v3| 6\3| 756 8g stream-value-tag-set! 9g %stream-value-tag-set!-procedure :g m-46961e513a-13e ;:^ <= ?;; @f l-46961e513a-143 Af l-46961e513a-144 B@A C`>?B D; Ef l-46961e513a-140 FE G`uDF H;CsGIssssP\bf
I\=Hh JLCsGIs
ss K\mJh L\jJh MKL N\Jh O\'Jh P\)Jh QPK R_CsG S\2R| TOQS U\$Jh VCsG W\
V| XUKWL Y\3Jh Z\Jh [\8R| \Z[ ]YK\ ^NTX] _IM^ `_sG a\9`| bg stream-value-proc-set! cg !%stream-value-proc-set!-procedure dg m-46961e513a-14e ed^ fg t-46961e513a-14c gg t-46961e513a-14d hfg iee jf l-46961e513a-153 kf l-46961e513a-154 ljk m`hil ne of l-46961e513a-150 po q`unp remsqIssssP\bf
s\=rh tLmsqIs
ss u\mth v\jth wuv x\th y\'th z\)th {zu |_msq }\2|| ~y{} \$th msq \ | uv \3th \th \b|| u x~ sw _sq \c| g stream-lazy g exp a g m-46961e513a-173 ^ _ f l-46961e513a-178 f l-46961e513a-179 ` f l-46961e513a-175 `u _s \;| \4| \| g lazy \| \=| g eager g stream-eager g stream-delay g m-46961e513a-187 ^ _ f l-46961e513a-18c f l-46961e513a-18d ` f l-46961e513a-189 `u _s \| \| g stream-force g null g %stream-null g stream-pare g %make-stream-pare-procedure g make-stream-pare g m-46961e513a-1d9 ^ g t-46961e513a-1d7 g t-46961e513a-1d8 f l-46961e513a-1de f l-46961e513a-1df ` f l-46961e513a-1db `u sIssssP\bf
\=h g kar _s \| g kdr \| g m-46961e513a-1d5 ^ sIs|ssss \nh \| \
h _s \| g %stream-pare?-procedure g stream-pare? g m-46961e513a-1e8 ^ g t-46961e513a-1e7 f l-46961e513a-1ed ` f l-46961e513a-1ea `u sIssssP\bf
\=h sIsssssssssss
s \ch \"h \$h \'h \)h _s \| _s \| g
stream-kar g %stream-kar-procedure g m-46961e513a-1f4 ^ f l-46961e513a-1f6 `u s IssssP\bf \9h 8 U s IsXsss_sf \Dh 8 U
f l-46961e513a-1f9 f l-46961e513a-1fa
`n
s IssssP\bf
\kh \h _
s \| \{h 8 U f l-46961e513a-1fe f l-46961e513a-1ff `n s IssssP\bf
\k h \ h s \
| ! "! #\h $8# %$U &f l-46961e513a-203 'f l-46961e513a-204 (&' )`n ( *)s IssssP\bf
+\k*h ,\*h -g %%stream-pare-set-fields ._)s /\-.| 0,/ 10 2g t-46961e513a-1f3 32 4f l-46961e513a-208 54 6`35 76s IssssP\bf
8\=7h 96s IsXsss_sf :\m9h ;: <\9h =\'9h >\)9h ?>: @_6s A\@| B=?A C\9h D6s E\
D| FC:E G\39h H\9h I\@| JHI KG:J L<BFK M8;L N_s O\N| Pg
stream-kdr Qg %stream-kdr-procedure Rg m-46961e513a-20f SR^ TS Uf l-46961e513a-211 VU W`uTV XSsWIssssP\bf Y\9Xh Z8Y [ZU \sWIsXsss_sf ]\D\h ^8] _[^U `SS af l-46961e513a-214 bf l-46961e513a-215 cab d`n`c eSdsWIssssP\bf
f\keh g\eh h_dsW i\h| jgi kj l\{\h m8l n[mU of l-46961e513a-219 pf l-46961e513a-21a qop r`n`q sSrsWIssssP\bf
t\ksh u\sh vrsW w\ v| xuw yx z\\h {8z |[{U }f l-46961e513a-21e ~f l-46961e513a-21f }~ `n` SsWIssssP\bf
\kh \h _sW \-| g t-46961e513a-20e f l-46961e513a-223 `T SsWIssssP\bf
\=h sWIsXsss_sf \mh \h \'h \)h _sW \| \h sW \ | \3h \h \P| _sW \Q| g m-46961e513a-22a ^ f l-46961e513a-22f f l-46961e513a-230 f l-46961e513a-231 f l-46961e513a-232 f l-46961e513a-233 ` f l-46961e513a-22c `u sIssss
\h _s \| \| \P| g strm ac g m-46961e513a-259 ^ __ f l-46961e513a-25e f l-46961e513a-25f f l-46961e513a-260 ` f l-46961e513a-25b `u _s \| \| \| \| f
non-stream f null stream g body0 g body1 aS g m-46961e513a-28d ^ ___ f l-46961e513a-292 f l-46961e513a-293 f l-46961e513a-294 f l-46961e513a-295 ` f l-46961e513a-28f `u _s \=| \| g begin \| g on-eagerS g on-lazyS g stream-promise-visit g set-record-type-printer! g display f # W U g define g formal a g m-46961e513a-2cf ^ ____ f l-46961e513a-2d4 f l-46961e513a-2d5 f l-46961e513a-2d6 f l-46961e513a-2d7 f l-46961e513a-2d8 ` f l-46961e513a-2d1 `u _s \| \(| W U U
g letrec g body2 aEj
g m-46961e513a-2e0
^ _____ f l-46961e513a-2e5 f l-46961e513a-2e6 f l-46961e513a-2e7 f l-46961e513a-2e8 f l-46961e513a-2e9 f l-46961e513a-2ea ` f l-46961e513a-2e2 `u _s \
| \( | g proper-list? g circular-list? !f non-list argument "g current-input-port #g input-port? $f non-input-port argument %g read-char &g eof-object? 'U (a )g m-46961e513a-359 *)^ +* ,f l-46961e513a-35e -, .`(+- /f l-46961e513a-35b 0/ 1`u+0 2_.s1 3\!2| 4g y 5at4 6*__ 7f l-46961e513a-361 8f l-46961e513a-362 9f l-46961e513a-363 :789 ;`56: <_;s1 =\"<| >\,<| ?g % stream-fold-aux-procedure @g stream-fold-aux AUUUU Bg syntax-parameterize Cg m-46961e513a-36c DC^ Eg t-46961e513a-368 Fg t-46961e513a-369 Gg t-46961e513a-36a Hg t-46961e513a-36b IEFGH JDDDD Kf l-46961e513a-371 Lf l-46961e513a-372 Mf l-46961e513a-373 Nf l-46961e513a-374 OKLMN P`IJO QD Rf l-46961e513a-36e SR T`uQS Uf l-bde397a-1eaf Vf l-bde397a-1eb0 WUV X`KLW YS Zf l-bde397a-1ea6 [f l-bde397a-1ea7 \f l-bde397a-1ea8 ]Z[\ ^`Ya] _g prefix `]_ a__ bf l-bde397a-1e9a cf l-bde397a-1e98 dbc e``ad ff l-bde397a-1e97 gf h`ucg iDPsTIssssX^eh
j{ k\Bij l_PsT m\@l| ng identifier-syntax o\nij p\?l| qop rmq sr t\=ij u\Hl| vg base w\vl| x\l| yg limit z\yl| {uwxz |g do }\|l| ~\jl| \"l| \&l| x u~ u ~w \'l| x xx g 1- \l| z z zz g or \l| g zero? \l| z z \$l| x g values \l| ~xz } t{ ks _sT \?| f non-stream argument g integer? f non-integer count g exact? f
inexact count f negative count g reverse! g xcons f !non-stream object in input stream g
circular-list g stream-do U WV f l-46961e513a-478 `uc g var-step g end f l-46961e513a-475 f l-46961e513a-473 `a f l-46961e513a-472 `uc _s \| \| g result f l-46961e513a-47f `c _s \| f bad step expression UV g step f l-46961e513a-49c f l-46961e513a-49d `L g var g init g test f l-46961e513a-48d f l-46961e513a-48e f l-46961e513a-48f f l-46961e513a-490 f l-46961e513a-491 f l-46961e513a-492 ` _s \9| g loop \| \| \| g append f non-integer argument f inexact argument f negative argument g
procedure? f non-procedural argument g apply g number? f non-numeric starting number f non-numeric step size g ? f l-46961e513a-6c1 `uc g make-guarded g make-matcher f l-46961e513a-6be f l-46961e513a-6bc `a f l-46961e513a-6bb `uc _s \| \$| g next f l-46961e513a-6d4 `c g rest f l-46961e513a-6ce
f l-46961e513a-6cf
`L
_s s \
| g negate \
| \$
| g = \
| \&
| \'
| U g generate-temporaries ' U g guard g fail f l-46961e513a-6df !f l-46961e513a-6e0 "f l-46961e513a-6e1 # !" $` a# %t &f l-46961e513a-6d8 'f l-46961e513a-6d9 (&' )`%L( *_$s) +\*| ,VV -g matcher .- /f l-46961e513a-6f5 0f l-46961e513a-6f6 1/0 2`.L1 3 4f l-46961e513a-6f0 54 6`3c5 7g strm-expr 8g pat 978 :f l-46961e513a-6e7 ;f l-46961e513a-6e8 `9a= ?_s2ss6> @\]?| A\?| B\P?| C\#?| D\?| E\;?| FDE G\?| HBCAFG I\ ?| Jg => K\J?| Lg
stream-of-aux Ma Ng m-46961e513a-701 ON^ PO__ Qf l-46961e513a-706 Rf l-46961e513a-707 Sf l-46961e513a-708 TQRS U`MPT VO Wf l-46961e513a-703 XW Y`uVX Z_UsY [\LZ| \\!Z| ]av ^g m-46961e513a-70d _^^ `___ af l-46961e513a-712 bf l-46961e513a-713 cf l-46961e513a-714 dabc e`]`d f_ gf l-46961e513a-70f hg i`ufh j_esi k\"j| lg in m_si n\lm| o8n pUoU qpV rUq sUr tUs uav, v______ wf l-46961e513a-719 xf l-46961e513a-71a yf l-46961e513a-71b zf l-46961e513a-71c {f l-46961e513a-71d |f l-46961e513a-71e }wxyz{| ~`uv} _~si \9| g recur \| \| \| \$| \]| \&| \L| \'| g is \m| 8 UU V U U U av f l-46961e513a-727 f l-46961e513a-728 f l-46961e513a-729 f l-46961e513a-72a f l-46961e513a-72b f l-46961e513a-72c `v _si \]| \L| g pred? av _____ f l-46961e513a-735 f l-46961e513a-736 f l-46961e513a-737 f l-46961e513a-738 f l-46961e513a-739 ` _si \| \L| f non-numeric ending number g < g > f beyond end of stream f non-procedural mapper f non-procedural pred? f non-procedural generator g list->vector g error f no matching pattern g
list-tabulate g
vector-lengthC 5 h ]4
F5 4I > " G 4Ji4Ki5 L> " G 4OPQT[} h0 ] C} g dummy
0 g pred 0 g obj 0 g func 0 g msg 0 g args 0 0 C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
.
" g
macro-typeg syntax-rulesg patternsg predg objg funcg msgg argsg ... C5PR4OQT[ h0 ] C} g dummy
0 g pred 0 g obj 0 g func 0 g msg 0 g args 0 0 C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
3
" g
macro-typeg syntax-rulesg patternsg predg objg funcg msgg argsg ... C5R4OQT[
h8 ] C ~ g dummy
4 g pred 4 g objs 4 g func 4 g msg 4 g args 4 4 C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
8
" g
macro-typeg syntax-rulesg patternsg predg objsg funcg msgg argsg ... C5R4OQT h ? ]C 7 g dummy
g expr C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
=
" g
macro-typeg syntax-rulesg patternsg expr C5R4OQT h ? ]C 7 g dummy
g expr C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
A
" g
macro-typeg syntax-rulesg patternsg expr C5R4OQT h ? ]C 7 g dummy
g expr C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
E
" g
macro-typeg syntax-rulesg patternsg expr C5R4OQT+- h c ] C [ g dummy
g name g args g body C.8 h S ] C K g dummy
g name g syntax C h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-41.scm
J 9 g
macro-typeg syntax-rulesg patternsg nameg argsg bodyg ... g nameg syntax C5R9 h ] C w g val
g filenamef srfi/srfi-41.scm
q
g nameg %make-stream-promise-procedure C:R4O;QT< h 7 ] C / g t-46961e513a-6f
C; h S ]L 6 K g a
g filenamef srfi/srfi-41.scm q
C h C ] L 6; g filenamef srfi/srfi-41.scm q
C h ] C
C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 | g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-41.scm
q
n C5;R 9¨ 4 9> " G Ȗ:i 9R9 h { ] $ CC s g obj
g filenamef srfi/srfi-41.scm
q
g nameg %stream-promise?-procedure CR4OQT<0 h 7 ] C / g t-46961e513a-7c
C h S ]L 6 K g a
g filenamef srfi/srfi-41.scm q
C h C ] L 6; g filenamef srfi/srfi-41.scm q
C2 h ] C
C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 | g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-41.scm
q
n C5R956 h | ] &
C 6t g s
g filenamef srfi/srfi-41.scm
q
g nameg %stream-promise-val-procedure C7R4O6QTjuz h : ]C 2 g err
g s C~ h : ]C 2 g err
g s C h : ]C 2 g err
g s C< h 7 ] C / g t-46961e513a-88
C6 h S ]L 6 K g a
g filenamef srfi/srfi-41.scm q
C h C ] L 6; g filenamef srfi/srfi-41.scm q
C h ] C
C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-41.scm
q
C56R4OQT h v ]45C n g dummy
g check? g s g getter g expr C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
q
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5R95 h ] &
C 6 g s
g val g filenamef srfi/srfi-41.scm
q
g nameg "%stream-promise-val-set!-procedure CR4OQT/ h T ] C L g t-46961e513a-b6
g t-46961e513a-b7 C h S ]L 6 K g a
g filenamef srfi/srfi-41.scm q
C h C ] L 6; g filenamef srfi/srfi-41.scm q
C1 h ] C
C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 | g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-41.scm
q
n C5R2 h ] C g tag
g proc g filenamef srfi/srfi-41.scm
t
g nameg %make-stream-value-procedure C3R4O4QTR h T ] C L g t-46961e513a-d7
g t-46961e513a-d8 C4 h S ]L 6 K g a
g filenamef srfi/srfi-41.scm t
C h C ] L 6; g filenamef srfi/srfi-41.scm t
CT h ] C
C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 | g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-41.scm
t
n C54R U 2V 4 2> " G Ȗ3i 2R2 h y ] $ CC q g obj
g filenamef srfi/srfi-41.scm
t
g nameg %stream-value?-procedure CWR4OXQT<s h 7 ] C / g t-46961e513a-e7
CX h S ]L 6 K g a
g filenamef srfi/srfi-41.scm t
C h C ] L 6; g filenamef srfi/srfi-41.scm t
Cu h ] C
C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 | g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-41.scm
t
n C5XR25v h z ] &
C 6r g s
g filenamef srfi/srfi-41.scm
t
g nameg %stream-value-tag-procedure CwR4OvQT h : ]C 2 g err
g s C h : ]C 2 g err
g s C h : ]C 2 g err
g s C< h 7 ] C / g t-46961e513a-f3
Cv h S ]L 6 K g a
g filenamef srfi/srfi-41.scm t
C h C ] L 6; g filenamef srfi/srfi-41.scm t
C h ] C
C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-41.scm
t
C5vR25 h { ] & C 6s g s
g filenamef srfi/srfi-41.scm
t
g nameg %stream-value-proc-procedure CR4OQT h : ]C 2 g err
g s C h : ]C 2 g err
g s C h : ]C 2 g err
g s C< h 8 ] C 0 g t-46961e513a-10e
C h S ]L 6 K g a
g filenamef srfi/srfi-41.scm t
C h C ] L 6; g filenamef srfi/srfi-41.scm t
C" h ] C
C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-41.scm
t
C5R4OQT247 h v ]45C n g dummy
g check? g s g getter g expr C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
t
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5R258 h ] &
C 6 g s
g val g filenamef srfi/srfi-41.scm
t
g nameg %stream-value-tag-set!-procedure C9R4O8QT_ h V ] C N g t-46961e513a-13c
g t-46961e513a-13d C8 h S ]L 6 K g a
g filenamef srfi/srfi-41.scm t
C h C ] L 6; g filenamef srfi/srfi-41.scm t
Ca h ] C
C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 | g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-41.scm
t
n C58R25b h ] & C 6 g s
g val g filenamef srfi/srfi-41.scm
t
g nameg !%stream-value-proc-set!-procedure CcR4ObQT h V ] C N g t-46961e513a-14c
g t-46961e513a-14d Cb h S ]L 6 K g a
g filenamef srfi/srfi-41.scm t
C h C ] L 6; g filenamef srfi/srfi-41.scm t
C h ] C
C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 | g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-41.scm
t
n C5bR4OQT h > ] C 6 g dummy
g exp C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
x
" g
macro-typeg syntax-rulesg patternsg exp C5R29 h ] C g x
g val g filenamef srfi/srfi-41.scm
{
| * | | g nameg stream-eager CR4OQT h > ] C 6 g dummy
g exp C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
~
" g
macro-typeg syntax-rulesg patternsg exp C5R9562v8b
h ]) &
" 4 5 &
" 45 $ & C6$ Y4& " 455 &
" 4 5 &
" 45& " &
" 45 &
" 45 &
" 4 > " G &
" 45 & " 45 & " 4
> " G &
" 4 > " G 6C g promise
g content g key 8 g promise* g content g s g val ' g s A ` g val ` g filenamef srfi/srfi-41.scm
!
8 F b c ; E 3 * G A 4 ` g nameg stream-force CRi#R,R4ii5!R9 h( ] $ & 4 5CCC g obj
! g filenamef srfi/srfi-41.scm
! g nameg stream-null? C$R h ] C g kar
g kdr g filenamef srfi/srfi-41.scm
g nameg %make-stream-pare-procedure CR4OQT h V ] C N g t-46961e513a-1d7
g t-46961e513a-1d8 C h T ]L 6 L g a
g filenamef srfi/srfi-41.scm
C h D ] L 6< g filenamef srfi/srfi-41.scm
C h ] C
C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 } g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-41.scm
n C5R U ٨ 4 > " G Ȗi R h y ] $ CC q g obj
g filenamef srfi/srfi-41.scm
g nameg %stream-pare?-procedure CR4OQT< h 8 ] C 0 g t-46961e513a-1e7
C h T ]L 6 L g a
g filenamef srfi/srfi-41.scm
C h D ] L 6< g filenamef srfi/srfi-41.scm
C h ] C
C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 } g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-41.scm
n C5R5 h u ] &
C 6m g s
g filenamef srfi/srfi-41.scm
g nameg %stream-kar-procedure CR4OQT h : ]C 2 g err
g s C " h : ]C 2 g err
g s C%+1 h : ]C 2 g err
g s C<M h 8 ] C 0 g t-46961e513a-1f3
C h T ]L 6 L g a
g filenamef srfi/srfi-41.scm
C h D ] L 6< g filenamef srfi/srfi-41.scm
CO h ] C
C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-41.scm
C5R5P h u ] & C 6m g s
g filenamef srfi/srfi-41.scm
g nameg %stream-kdr-procedure CQR4OPQT_fk h : ]C 2 g err
g s Cnty h : ]C 2 g err
g s C| h : ]C 2 g err
g s C< h 8 ] C 0 g t-46961e513a-20e
CP h T ]L 6 L g a
g filenamef srfi/srfi-41.scm
C h D ] L 6< g filenamef srfi/srfi-41.scm
C h ] C
C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp g filenamef srfi/srfi-41.scm
C5PR4O-QT h v ]45C n g dummy
g check? g s g getter g expr C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5-R9 h0 ] $ $ & 4 5 $ CCCC g obj
/ g obj + g filenamef srfi/srfi-41.scm
+ / g nameg stream-pair? C%R4O"QT. h P ] C H g dummy
g obj g strm C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
" g
macro-typeg syntax-rulesg patternsg objg strm C5"R#& h ] 4 5$ " 4 > " G 4 5 " "4 > " 'G " $ & " "" "
6 g strm
g pare 6 g filenamef srfi/srfi-41.scm
! 0 6 = C E ( H g nameg
stream-car C&R#' h ] 4 5$ " 4 > " G 4 5 " "4 > " 'G " $ & " "" " C g strm
g pare 6 g filenamef srfi/srfi-41.scm
! 0 6 = C E ( H
g nameg
stream-cdr C'R4O(QTY h h ] C ` g dummy
g formals g body0 g body1 C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
" g
macro-typeg syntax-rulesg patternsg formalsg body0g body1g ... C5(R9562v
h @ - / 0 3 # # H &
" 4 5KJ& J
" 4J5 $ J& J " 4J56 $ J& J " 4J56C8 g promise
g on-eager g on-lazy g content & g key ^ g filenamef srfi/srfi-41.scm
+ G ^ n
g on-eagerS g on-lazyS g nameg stream-promise-visit CR4i9i5 h c ] L 6 [ g t-46961e513a-2c2
g filenamef srfi/srfi-41.scm
)
C h ] ]?L 6 U g _
g filenamef srfi/srfi-41.scm
)
5
CP h ] & >L64 L> " G 4 &
" 4 5LO
LO > " G L & " 4 56 g pare
g filenamef srfi/srfi-41.scm
' , 2 Z g "
C h f ]L 6 ^ g _
g filenamef srfi/srfi-41.scm
'
C h q ] LL O L O 6 i g strm
g filenamef srfi/srfi-41.scm
g nameg loop C h0 ]
4> " G O Q 6 g strm
, g port , g loop , g filenamef srfi/srfi-41.scm
, C> " G 4O)QT h y ] C q g dummy
g name g formal g body0 g body1 C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
" g
macro-typeg syntax-rulesg patternsg nameg formalg body0g body1g ... C5)R4O9QT h ] C g dummy
g tag g name g val g body1 g body2 C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
" g
macro-typeg syntax-rulesg patternsg tagg nameg val g ... g body1g body2g ... C59R *!2!2 h V ] L 6 N g filenamef srfi/srfi-41.scm
C9 h V ] LL 6 N g filenamef srfi/srfi-41.scm
'
C hX ]L( CLO LL O 6 g val
' g val
7 C g kar
C V g kdr C V g filenamef srfi/srfi-41.scm
X
C9 h y ] L O C q g objs
g val g filenamef srfi/srfi-41.scm
g nameg recur C h` ] 4 5 $ " 4 5 $ " 4 > " G O Q 6 g objs
\ g t g recur N X g filenamef srfi/srfi-41.scm
$ / 1 ! 4 N
\ g nameg list->stream C*R"#+$2%&!2 h D ] L 6< g filenamef srfi/srfi-41.scm
C9 h M ] L 6 E g filenamef srfi/srfi-41.scm
C hh ]4L 5 4 5$ C O LO
6 g c
d g val ) 5 g val C O g kar O b g kdr O b g filenamef srfi/srfi-41.scm
d
C9 h h ]LL O C ` g val
g filenamef srfi/srfi-41.scm
g nameg recur C h` - . , 3 # 45 4 5$ " 4 > " G O Q 6 g port
] g recur O [ g filenamef srfi/srfi-41.scm
( / 1 ' 4 O ]
g nameg port->stream C+R4O,QT'3 h - ]C % g dummy
CX=> h K ] C C g dummy
g x g y C h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-41.scm
9 g
macro-typeg syntax-rulesg patternsg xg yg ... C5,R$&' h ]$" j$
" $ " 45 $ D $ 4 455" 45$ " " "~ g proc
g base g strm g limit g val p g strm p g limit p g t , g filenamef srfi/srfi-41.scm
# % 0 8 > ? D % L R ^ a p g nameg % stream-fold-aux-procedure C?R4O@QTA h ] C g t-46961e513a-368
g t-46961e513a-369 g t-46961e513a-36a g t-46961e513a-36b C@ h T ]L 6 L g a
g filenamef srfi/srfi-41.scm
C h D ] L 6< g filenamef srfi/srfi-41.scm
C h ] C
C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 } g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-41.scm
n C5@R-#-$&' hh )
3 6]*45$ " 4 > " G $ 4 5$ " 4 > " G 4 5$ " 4
> " G
$ "4 > " G " "
" n$
" $ " 45 $ " H$ 4455" 45$ " " " G 6 g strm
g n
f g strm f g proc T g val E g strm E g limit E g t g first U d g _ U d
g filenamef srfi/srfi-41.scm
( * % - E F [ ] % ` s # * F 2 T X f f g nameg stream->list C-R#.!$2& h V ] 4L 56 N g filenamef srfi/srfi-41.scm
C9' h h ] L4L 5L6 ` g filenamef srfi/srfi-41.scm
( : "
C
hx ]L( CL 4 5$ L L6 O LL O 6 g strm
q g val 2 > g val P \ g kar \ o g kdr \ o g filenamef srfi/srfi-41.scm
) " " (
q
C29 h( ] O L Q C g strms
( g proc g val ( g filenamef srfi/srfi-41.scm
( g nameg recur C hX - 1 3 4 5 ( " 4 > " G O Q 6 g strms
R g flunk < g recur D N g filenamef srfi/srfi-41.scm
% ' + * D R
g nameg
stream-append C.R#/$!&#/'2& h V ] 4L 56 N g filenamef srfi/srfi-41.scm
C92' h V ] 4L 56 N g filenamef srfi/srfi-41.scm
" /
"
C9' h M ] L 6E g filenamef srfi/srfi-41.scm
" /
C hX ]L4L O LO 56 g val
! g val
/ ; g kar
; N g kdr ; N g filenamef srfi/srfi-41.scm
" R R
C h ]4L5$ C4L5 4 5$ " 4 > " G 4 5$ L 4 L56
O LL O 6
g strm
g val l x g val g kar g kdr g filenamef srfi/srfi-41.scm
/ 1 , 4
G Q
T ) \ " b
C29 h( ] O L Q C g strms
( g proc g val ( g filenamef srfi/srfi-41.scm
( g nameg recur C hH ] 4 5$ " 4 > " G O Q 6 g strms
E g recur 7 A g filenamef srfi/srfi-41.scm
% 7 E g nameg
stream-concat C/R!* h ) 3 C- 1 3 4 ?6 g objs
g filenamef srfi/srfi-41.scm
g nameg stream-constant C0R4OQTT h ] C
C' h . ] C & g result
CV h . ] C& g result
CT h ] L C
C' h ) ] C ! g e
C h@ ]45 $ O @45 $ @L 6 g v
@ g s @ g tmp
@ g tmp & @ g filenamef srfi/srfi-41.scm
8 : & @ @ g nameg var-step C h0 @ ]4LL5L 4L 5 C8 g result
0 g step 0 0 C
h ] 45 $ 4?" H45 $ 4?" )45 $ 4?"
45 4
L O 5 4 5 $ O @6 g var
g init g step g test g result g expr g tmp
h g tmp & e g tmp B b g tmp { g tmp g filenamef srfi/srfi-41.scm i ' { & C h( c ] 4 5 $ O @ 6 [ g x
' g tmp ' g filenamef srfi/srfi-41.scm
' C5R1#$'
h0 ]"4 5$ " 4 > " G 4 5$ " 4 > " G
$ "4 > " G " 4 5$ " 4
> " G " V$
" $ " 4 5 $ " 04 5$ " " " G C g n
) g strm ) g val
g strm
g limit
g t g first ) g second ) g _ ) g filenamef srfi/srfi-41.scm
.
/ / / / 0 0 E 0 G 0 J 0 _ 1 k 1 m 1 % p 1 2 2 2 " 2 3 3 ) g nameg stream-drop C1R2#2$&' h8 ]4L5 $ "
4L4L55 $ LCL 4L56 g t
& g filenamef srfi/srfi-41.scm
8 9 9 9 + 9 2 " 9 + # 9 & * 8 0 8 8 8 8
C9 h x ] LL O C p g strm
g val g filenamef srfi/srfi-41.scm
8 g nameg loop C hx ]
4 5$ " 4 > " G 45$ " 4 > " G O Q 6 g pred?
u g strm u g loop e q g filenamef srfi/srfi-41.scm
5
6 6 6 , 6 0 7 E 7 G 7 ( J 7 e 8 u g nameg stream-drop-while C2R3#$!&2& h V ] 4L 56 N g filenamef srfi/srfi-41.scm
A A
A
C9' h V ] L4L 56 N g filenamef srfi/srfi-41.scm
A A 1
A *
C' hx ]4L5$ C4L 4L55$ MLO LLO
6L4 L56 g val
0 < g val
L X g kar
X k g kdr X k g filenamef srfi/srfi-41.scm
> ?
? @ @ @ ? & A p B x B x
C29 h0 ] O L L Q C g strm
+ g proc ! g val ! + g filenamef srfi/srfi-41.scm
> + g nameg recur C hx ]
4 5$ " 4 > " G 45$ " 4 > " G O Q 6 g pred?
u g strm u g recur e q g filenamef srfi/srfi-41.scm
;
< < < ( < 0 = E = G = $ J = e > u g nameg
stream-filter C3R4#$&' h ` ]#4 5$ " 4 > " G 45$ " 4 > " G " n$
" $ " 45 $ " H $ 4 4 55" 4
5$ " " " G CX g proc
g base g strm g val ` g strm ` g limit ` g t o g first g _ g filenamef srfi/srfi-41.scm
D
E E E % E 0 F E F G F " J F ` G G g nameg stream-fold C4R5#$&'U hX s ) 3 4 5$ " 4 > " G 45$ " 4 > " G " 145$ C4 4 5> " G 4
5 " "- 1 3 4 5$ " 4 > " G 4 5 ( " 4 > " G " 94 5$ C4
4 5> " G 4
5 " " k g proc
g strm g strm g g proc
U g strm U g rest U g strms U g flunk g strms M g filenamef srfi/srfi-41.scm
J
L L ! L + $ L 7 M L M N M ( Q M g N h O r N u P x P P N N J R R S S S - S T T T 1 T U V ! U $ W ) W 6 W ? U M U % U
g nameg stream-for-each C5R622 h D ] L 6< g filenamef srfi/srfi-41.scm
]
C9 h V ] LL L6 N g filenamef srfi/srfi-41.scm
] ] ]
C hX ]LO LL LO 6 g val
g val
0 < g kar
< O g kdr < O g filenamef srfi/srfi-41.scm
\ ] Q
C9 h z ] LL O C r g first
g val g filenamef srfi/srfi-41.scm
\ g nameg recur C h - . , 3 # 4 5$ " 4 > " G 45$ " 4 > " G O Q 6 g first
g step g recur x g filenamef srfi/srfi-41.scm
Y
Z + Z - Z # 0 Z C [ X [ Z [ " ] [ x \ g nameg stream-from C6R722 h D ] L 6< g filenamef srfi/srfi-41.scm
b
C9 h V ] L4L L56 N g filenamef srfi/srfi-41.scm
b b
b
C hX ]LO L LLO 6 g val
g val
0 < g kar
< O g kdr < O g filenamef srfi/srfi-41.scm
a b Q
C9 h y ] LL O C q g base
g val g filenamef srfi/srfi-41.scm
a g nameg recur C hH ]
4 5$ " 4 > " G O Q 6 g proc
H g base H g recur 8 D g filenamef srfi/srfi-41.scm
_
` ` ` ( ` 8 a H g nameg stream-iterate C7R#8$' h J ]!4 5$ " 4 > " G " V$
" $ " 45 $ " 045$ " " " G C B g strm
g val 5 g strm 5 g limit 5 g t D [ g first g second g third g _ g filenamef srfi/srfi-41.scm
d
e e e $ e 5 f f f g nameg
stream-length C8R:#$!2& h h ] 4L4L 556 ` g filenamef srfi/srfi-41.scm
o
o o o o
C9' h V ] L4L 56 N g filenamef srfi/srfi-41.scm
o
p
p
C
h` ]4L5$ CLL O LLO 6 g val
" . g val
> J g kar
J ] g kdr J ] g filenamef srfi/srfi-41.scm
m n
n o
_
C29 h0 ] O L L Q C g strm
+ g proc ! g val ! + g filenamef srfi/srfi-41.scm
m + g nameg recur CU$!2& h h ] 4L4L 5?6 ` g filenamef srfi/srfi-41.scm
w w w % w w
C9' h V ] L4L 56 N g filenamef srfi/srfi-41.scm
w x x
C hh ]4L5$ CLL O LLO
6 g val
$ 0 g val
@ L g kar
L _ g kdr L _ g filenamef srfi/srfi-41.scm
u v v w a
C29 h0 ] O L L Q C g strms
+ g proc ! g val ! + g filenamef srfi/srfi-41.scm
u + g nameg recur C h ) v3 4 5$ " 4 > " G 45$ " 4 > " G O Q 6- 1 3 4 5$ " 4 > " G 4 5 ( " 4 > " G
O Q 6 g proc
| g strm | g recur l x g proc
g strm g rest g strms g flunk g recur g filenamef srfi/srfi-41.scm
i
k k ! k & $ k 7 l L l N l # Q l l m i r r s s s ( s t t t , t u |
g nameg
stream-map C:R4O;QT h ] C
C h X ] 6P g rest
g filenamef srfi/srfi-41.scm ~ C h , ] C $ g rest
C h i ] 6a g var
g rest g filenamef srfi/srfi-41.scm C h( ]
4L 5 C { g var
% g rest % g tmp % g filenamef srfi/srfi-41.scm % C
hp ]4 5 $ @ 4?$ @4 5 " 6$ 4?$ L O @"" g x
l g tmp
l g tmp l g tmp 9 l g filenamef srfi/srfi-41.scm
{ l g nameg make-matcher CTTVTh , ] C $ g expr
C + h Q ] C I g guard
g expr g fail C hH ] 45 $ @45 $ @6 g x
B g fail B g tmp B g tmp B g tmp + B g filenamef srfi/srfi-41.scm
B g nameg make-guarded CT,@AHIK h z ] C r g tmp-46961e513a-6fb
g tmp-46961e513a-6fa g tmp-46961e513a-6f9 C h( A ]L 4L 5 C 9 g matcher
' g expr ' ' C hH ]4L L54L 5 45 $
LO @6 g fail
B g tmp B g tmp $ B g filenamef srfi/srfi-41.scm $ ! B C h8 ]45 45 $ L O @6 g strm-expr
6 g pat 6 g expr 6 g tmp 6 g tmp 6 g filenamef srfi/srfi-41.scm 6 C h8 } ]O Q 4 5 $ O @ 6 u g x
4 g make-matcher
4 g tmp 4 g filenamef srfi/srfi-41.scm
z
4 C5;R4O<QTX[\ h Q ]C I g dummy
g expr g rest C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
" g
macro-typeg syntax-rulesg patternsg exprg restg ... C5 " G 45$ " 4 > " G $ 145$ " 4 > " G " $ " $ "
$ "
O Q 6 g first
g past g step g step g lt? g recur g filenamef srfi/srfi-41.scm
+ - $ 0 C X Z # ] u v % g nameg stream-range C=R#>1$& h l ]
4 5$ " 4 > " G 45$ " 4 > " G 45$ " 4 > " G
$ "4
> " G " 4 5 4 5$ "4
> " G " 6 d g strm
g n g res g filenamef srfi/srfi-41.scm
! 0 E G J ] r t w $
+ g nameg
stream-ref C>R#?2$'2& h V ] 4L 56 N g filenamef srfi/srfi-41.scm
,
C9 h D ] L C < g filenamef srfi/srfi-41.scm
C
hh ]4L5$ LCL 4L54LO LO 56 g val
* 6 g val
D P g kar
P c g kdr P c g filenamef srfi/srfi-41.scm
g g
C9 h ]
L O C g strm
g rev g val g filenamef srfi/srfi-41.scm
g nameg loop C! hH ] 4 5$ " 4 > " G O Q 6 g strm
G g loop 7 A g filenamef srfi/srfi-41.scm
% 7 G g nameg stream-reverse C?R@#$2 h D ] L 6< g filenamef srfi/srfi-41.scm
C9! h D ] C < g filenamef srfi/srfi-41.scm
C h D ] L 6< g filenamef srfi/srfi-41.scm
C&' h q ] L4L L4L554L56 i g filenamef srfi/srfi-41.scm
!
, ! !
C h ]4L5$ FLO 6 LO
LLLL O 6 g val
) g val
2 > g kar
> Q g kdr > Q g val
c o g val
g kar
g kdr g filenamef srfi/srfi-41.scm
Y
C29 h0 ]
O L L Q C g base
. g strm . g proc
$ g val $ . g filenamef srfi/srfi-41.scm
. g nameg recur C hx ] 4 5$ " 4 > " G 45$ " 4 > " G O Q 6 g proc
w g base w g strm w g recur e q g filenamef srfi/srfi-41.scm
% 0 E G " J e w g nameg stream-scan C@R#A$!2& h V ] 4L 56 N g filenamef srfi/srfi-41.scm
C9' h _ ] LL4L 56W g filenamef srfi/srfi-41.scm
. 5 '
C
hx ]L
$ " 4L5 $ CLO LLL O 6 g t
g val
4 @ g val
R ^ g kar
^ q g kdr ^ q g filenamef srfi/srfi-41.scm
! * s
C29 h0 ]
O L Q C g n
+ g strm + g proc ! g val ! + g filenamef srfi/srfi-41.scm
+ g nameg recur C h 3 ]
45$ " 4 > " G 4 5$ " 4 > " G 4 5$ " 4 > " G
$ "4
> " G " O Q 6 + g n
g strm g recur g filenamef srfi/srfi-41.scm
" 0 E G J ] r t w % g nameg stream-take CARB#$!&2& h V ] 4L 56 N g filenamef srfi/srfi-41.scm
C9' h V ] L4L 56 N g filenamef srfi/srfi-41.scm
1
*
C hp ]4L5$ C4L 4L55$ MLO LLO
6C g val
0 < g val
L X g kar
X k g kdr X k g filenamef srfi/srfi-41.scm
& p
C29 h0 ] O L L Q C g strm
+ g proc ! g val ! + g filenamef srfi/srfi-41.scm
+ g nameg recur C hx ]
4 5$ " 4 > " G 45$ " 4 > " G O Q 6 g pred?
u g strm u g recur e q g filenamef srfi/srfi-41.scm
, 0 E G ( J e u g nameg stream-take-while CBRC2 h V ] 4LL 56 N g filenamef srfi/srfi-41.scm
C9 h V ] L4L L56 N g filenamef srfi/srfi-41.scm
*
#
C! hh ]4LL5$ QLL O LLLO 6C g val
+ g val
= I g kar
I \ g kdr I \ g filenamef srfi/srfi-41.scm
a
C29 h8 ] O L LL LQ C g base
1 g proc ' g val ' 1 g filenamef srfi/srfi-41.scm
1 g nameg recur C h > ] 4 5$ " 4 > " G 45$ " 4 > " G 45$ " 4 > " G O Q 66 g mapper
g pred? g generator g base g recur g filenamef srfi/srfi-41.scm
) 0 E G ( J ] r t , w g nameg
stream-unfold CCR2 h V ] 4L 56 N g filenamef srfi/srfi-41.scm
C9 h M ] LL 6E g filenamef srfi/srfi-41.scm
(
C hh ] 4LL> G O L O 6 g next
a g items
a g val $ 0 g val @ L g kar L _ g kdr L _ g filenamef srfi/srfi-41.scm
a
C29 h0 ] O L LQ C g seed
+ g proc ! g val ! + g filenamef srfi/srfi-41.scm
+ g nameg generator-stream C&!2' h V ] L4L5L 6 N g filenamef srfi/srfi-41.scm
.
C9.*' h V ] L4L5L 6 N g filenamef srfi/srfi-41.scm
.
C h D ] L 6< g filenamef srfi/srfi-41.scm
C2' h V ] L4L5L 6 N g filenamef srfi/srfi-41.scm
.
C9 h _ ]LLL O C W g val
g filenamef srfi/srfi-41.scm
C h 0 ] H 4L5LK J ( CJ & LLL O C" =J $ )4J 5 LLL O 64
J 56 J $ _J ( TJ
O L LLO 6"]"Y( g head
g val 3 = g val c o g w g val g val g kar g kdr g filenamef srfi/srfi-41.scm
% D K & U q r
C29 h0 ]
O L Q C g genstrm
+ g index + g proc ! g val ! + g filenamef srfi/srfi-41.scm
+ g nameg make-result-stream CD& h c ]LL 6 [ g t-46961e513a-9f4
g filenamef srfi/srfi-41.scm
!
C hx A ]O O Q Q 4 5$ " 4 > " G 45 44 4
55 O 5E 9 g gen
q g seed q g generator-stream q g make-result-stream q g genstrm S q g filenamef srfi/srfi-41.scm
5 7 ' : M S V Y ! \ 0 d ! o q q g nameg stream-unfolds CDR#EU$!2& h V ] 4L 56 N g filenamef srfi/srfi-41.scm
C9' h V ] L4L 56 N g filenamef srfi/srfi-41.scm
5 .
C h` ]4L5$ CLO LL O
6 g val
" . g val
> J g kar
J ] g kdr J ] g filenamef srfi/srfi-41.scm
_
C29 h( ] O L Q C g strms
( g proc g val ( g filenamef srfi/srfi-41.scm
( g nameg recur C h` - 1 3 45 ( " 4 > " G O Q 6 g strm
Y g rest Y g strms Y g flunk C g recur K U g filenamef srfi/srfi-41.scm
, . * 1 K Y
g nameg
stream-zip CERC g m
, g rtd
d g rtd
d g rtd
A B g filenamef srfi/srfi-41.scm
- *
2 * : * & ? *
q
t
8_ {
=
=
= = # = =
= =
>~
?2
Q
U
V
ZT
ZU
fr
jk
nb
t
yw
.
- 5
;
[ D
^ I
| Y
6 _
] d
h
n
{
1 }
C6