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.0ܑ ]
w 4 h ] g guile g define-module* g srfi g srfi-42 g filenameS
f srfi/srfi-42.scm g exportsS g :
g :-dispatch-ref g :-dispatch-set! g :char-range g :dispatched g :do g :generator-proc g :integers g :let g :list g :parallel g :port g :range g :real-range g :string g :until g :vector g :while g any?-ec g append-ec g dispatch-union !g do-ec "g every?-ec #g first-ec $g fold-ec %g fold3-ec &g last-ec 'g list-ec (g make-initial-:-dispatch )g max-ec *g min-ec +g
product-ec ,g string-append-ec -g string-ec .g sum-ec /g vector-ec 0g vector-of-length-ec 1
!"#$%&'()*+,-./0 % 2g set-current-module 32 42 5g cond-expand-provide 6g current-module 7 8g make-syntax-transformer 98 :8 ;g macro < ?g any @g free-id Ag
syntax-object Bg nested Cg top DC Eg ribcage FE Gg x HG Ig m-46961e513b-2 JIC KJ Lf l-46961e513b-4 ML NEHKM ODFN Pg hygiene QP RABOQ S@R Tg each-any UST VUT W?V Xg dummy Yg q Zg etc [XYZ \JDD ]f l-46961e513b-7 ^f l-46961e513b-8 _f l-46961e513b-9 `]^_ aE[\` bDaFN cA!bQ dg append ed fd g?T h?g i?h j?i kg q1 lg q2 mg etc1 nXklmZ oJDDDD pf l-46961e513b-10 qf l-46961e513b-11 rf l-46961e513b-12 sf l-46961e513b-13 tf l-46961e513b-14 upqrst vEnou wDvFN xA!wQ y?? zg begin {g cmd |X{ }JD ~f l-46961e513b-1c f l-46961e513b-1d ~ E|} DFN AzQ g if AQ AQ AOQ @ ? ?? g test X{ f l-46961e513b-21 f l-46961e513b-22 f l-46961e513b-23 E\ DFN AQ A!Q g not AOQ @ ? ?? f l-46961e513b-28 f l-46961e513b-29 f l-46961e513b-2a E\ DFN AQ AQ A!Q g and AOQ @ T ?? f l-46961e513b-2f f l-46961e513b-30 f l-46961e513b-31 E\ DFN AQ AQ A!Q g or AOQ @ T ?? f l-46961e513b-37 f l-46961e513b-38 f l-46961e513b-39 E\ DFN AQ AQ A!Q AzOQ @ T ?? XZ{ f l-46961e513b-3f f l-46961e513b-40 f l-46961e513b-41 E\ DFN AzQ A!Q AOQ @ ?????? ?? g do-ec:do g olet g lbs g ne1? g ilet g ne2? g lss X{ JDDDDDDD f l-46961e513b-47 f l-46961e513b-48 f l-46961e513b-49 f l-46961e513b-4a f l-46961e513b-4b f l-46961e513b-4c f l-46961e513b-4d f l-46961e513b-4e E DFN AQ AQ ?h? g g g arg1 g arg X{ f l-46961e513b-58 f l-46961e513b-59 f l-46961e513b-5a f l-46961e513b-5b f l-46961e513b-5c Eo DFN AQ g syntax-violation f -source expression failed to match any pattern g m-46961e513b-63 C f l-46961e513b-65 EH DF A Q @ g let A Q @ g ???T ?? g ec-simplify
g obs g oc g ibs
g ic g ls X{
DDDDDDDDD
f l-46961e513b-68 f l-46961e513b-69 f l-46961e513b-6a f l-46961e513b-6b f l-46961e513b-6c f l-46961e513b-6d f l-46961e513b-6e f l-46961e513b-6f f l-46961e513b-70 f l-46961e513b-71
E D F A Q A Q g loop !A Q "A Q #g m-46961e513b-7f $#C %$ &f l-46961e513b-81 '& (EH%' )DF( *A)Q +@* ,g atom -, .+-? /?. 0, 1+0? 2?1 3g
consequent 4X3 5$D 6f l-46961e513b-89 7f l-46961e513b-8a 867 9E458 :D9F( ;A:Q <A:Q =;<< >+-?? ??> @+0?? A?@ BA)Q C@B DC? ECD F+E? G?F HX3 I$DD Jf l-46961e513b-9c Kf l-46961e513b-9d Lf l-46961e513b-9e MJKL NEHIM ODNF( PA OQ QAOQ R+E?? S?R Tg alternate UX3T V$DDD Wf l-46961e513b-a3 Xf l-46961e513b-a4 Yf l-46961e513b-a5 Zf l-46961e513b-a6 [WXYZ \EUV[ ]D\F( ^A ]Q _A]Q `A)Q a@` bT cab d?c eg command fXe gf l-46961e513b-ac hf l-46961e513b-ad igh jEf5i kDjF( lA kQ mAzkQ nAz)Q o@n poT q?p rf l-46961e513b-b2 sf l-46961e513b-b3 trs uEf5t vDuF( wA vQ xA vQ y, zpT {?y?z |g done }g to-do1 ~g to-do2 X|}~ f l-46961e513b-b8 f l-46961e513b-b9 f l-46961e513b-ba f l-46961e513b-bb EV DF( A Q A Q ?yTg g to-do X|} f l-46961e513b-c3 f l-46961e513b-c4 f l-46961e513b-c5 f l-46961e513b-c6 EV DF( A Q A Q ?y X f l-46961e513b-ce E% DF( AQ AQ ? ?y ?yg g command1 Xe f l-46961e513b-d6 f l-46961e513b-d7 f l-46961e513b-d8 EI DF( AzQ ?T?????? g cc X g m-46961e513b-e2 C DDDDDDD f l-46961e513b-e7 f l-46961e513b-e8 f l-46961e513b-e9 f l-46961e513b-ea f l-46961e513b-eb f l-46961e513b-ec f l-46961e513b-ed f l-46961e513b-ee E f l-46961e513b-e4 EH DF AQ ????? X DDDD f l-46961e513b-f9 f l-46961e513b-fa f l-46961e513b-fb f l-46961e513b-fc f l-46961e513b-fd E DF AQ AQ AQ g index g m-46961e513b-103 C f l-46961e513b-105 EH DF AQ @ ? ???? g var g i g
expression X DDDD f l-46961e513b-108 f l-46961e513b-109 f l-46961e513b-10a f l-46961e513b-10b f l-46961e513b-10c E DF AQ AQ A
Q AQ AQ ???? X DDD f l-46961e513b-113 f l-46961e513b-114 f l-46961e513b-115 f l-46961e513b-116 E DF AQ AQ AQ AQ hT ? ? g :parallel-1 g gen X g m-46961e513b-11b C DDDDD f l-46961e513b-125
f l-46961e513b-126 f l-46961e513b-127 f l-46961e513b-128
f l-46961e513b-129 f l-46961e513b-12a
E f l-46961e513b-11d EH DF AQ ?? ? g result X g m-46961e513b-133 C DDDDDD f l-46961e513b-138 f l-46961e513b-139 f l-46961e513b-13a f l-46961e513b-13b !f l-46961e513b-13c "f l-46961e513b-13d #f l-46961e513b-13e $ !"# %E $ & 'f l-46961e513b-135 (' )EH&( *D%F) +A*Q ,DF) -A,Q .@- /A,Q 0@/ 1TT 201 3.2T?2?T 4???33 5g gens 6g ob1 7g oc1 8g lb1 9g ne1?1 :g ib1 ;g ic1 g ob2 ?g oc2 @g lb2 Ag ne1?2 Bg ib2 Cg ic2 Dg ne2?2 Eg ls2 FX56789:;<=>?@ABCDE GDDDDDDDDDDDDDDDDDD Hf l-46961e513b-149 If l-46961e513b-14a Jf l-46961e513b-14b Kf l-46961e513b-14c Lf l-46961e513b-14d Mf l-46961e513b-14e Nf l-46961e513b-14f Of l-46961e513b-150 Pf l-46961e513b-151 Qf l-46961e513b-152 Rf l-46961e513b-153 Sf l-46961e513b-154 Tf l-46961e513b-155 Uf l-46961e513b-156 Vf l-46961e513b-157 Wf l-46961e513b-158 Xf l-46961e513b-159 Yf l-46961e513b-15a Zf l-46961e513b-15b [HIJKLMNOPQRSTUVWXYZ \EFG[ ]D\F) ^A]Q _A]Q `A]Q aA]Q b?T? c??h? dg :while-1 eX fg m-46961e513b-183 gfC hgDDDDD if l-46961e513b-188 jf l-46961e513b-189 kf l-46961e513b-18a lf l-46961e513b-18b mf l-46961e513b-18c nf l-46961e513b-18d oijklmn pEeho qg rf l-46961e513b-185 sr tEHqs uDpFt vAduQ wg m-46961e513b-195 xwC yx zf l-46961e513b-197 {z |EHy{ }DF| ~A}Q @~ ?????? ??? g :while-2 X xDDDDDDDD f l-46961e513b-19a f l-46961e513b-19b f l-46961e513b-19c f l-46961e513b-19d f l-46961e513b-19e f l-46961e513b-19f f l-46961e513b-1a0 f l-46961e513b-1a1 f l-46961e513b-1a2 E DF| AQ AQ g m-46961e513b-1ac C f l-46961e513b-1ae EH DF AQ @ AQ @ yT T ????? ???TTT g ib-let g ib-save g
ib-restore g ib-var g ib-rhs g ib X
DDDDDDDDDDDDDD f l-46961e513b-1b1 f l-46961e513b-1b2 f l-46961e513b-1b3 f l-46961e513b-1b4 f l-46961e513b-1b5 f l-46961e513b-1b6 f l-46961e513b-1b7 f l-46961e513b-1b8 f l-46961e513b-1b9 f l-46961e513b-1ba f l-46961e513b-1bb f l-46961e513b-1bc f l-46961e513b-1bd f l-46961e513b-1be f l-46961e513b-1bf E DF AQ g ib-tmp AQ AQ AQ AQ g set! AQ 1 b ???? ???TTT g ob X
DDDDDDDDDDDD
f l-46961e513b-1d5 f l-46961e513b-1d6 f l-46961e513b-1d7 f l-46961e513b-1d8 f l-46961e513b-1d9 f l-46961e513b-1da f l-46961e513b-1db f l-46961e513b-1dc f l-46961e513b-1dd f l-46961e513b-1de f l-46961e513b-1df f l-46961e513b-1e0 f l-46961e513b-1e1
E DF AQ AQ g
ne1?-value AQ AQ g :until-1 g m-46961e513b-1f5 C DDDDD f l-46961e513b-1fa f l-46961e513b-1fb f l-46961e513b-1fc f l-46961e513b-1fd f l-46961e513b-1fe f l-46961e513b-1ff Ee f l-46961e513b-1f7 EH DF AQ g m-46961e513b-207 C f l-46961e513b-209 EH DF AQ @ ?????? ??? DDDDDDDD f l-46961e513b-20c f l-46961e513b-20d f l-46961e513b-20e f l-46961e513b-20f f l-46961e513b-210 f l-46961e513b-211 f l-46961e513b-212 f l-46961e513b-213
f l-46961e513b-214
E
D F A
Q A
Q A
Q g m-46961e513b-21e C f l-46961e513b-220 EH DF AQ @ ? T ? ? ? X DDDD !f l-46961e513b-223 "f l-46961e513b-224 #f l-46961e513b-225 $f l-46961e513b-226 %f l-46961e513b-227 &!"#$% 'E & (D'F )A(Q *A(Q +A(Q ,?j -g arg2 .X- /DDDDD 0f l-46961e513b-22f 1f l-46961e513b-230 2f l-46961e513b-231 3f l-46961e513b-232 4f l-46961e513b-233 5f l-46961e513b-234 6012345 7E./6 8D7F 9A8Q :Ad8Q ;X <DDD =f l-46961e513b-23d >f l-46961e513b-23e ?f l-46961e513b-23f @f l-46961e513b-240 A=>?@ BE;<A CDBF DACQ EACQ FE Gg t HAGCQ IACQ Jg null? KAJCQ LKH MIL Ng car OANCQ POH QP RACQ Sg cdr TASCQ UTH VU WRV Xg m-46961e513b-245 YXC ZY [f l-46961e513b-247 \[ ]EHZ\ ^DF] _A^Q `@_ a`? b???a? cYDDDD df l-46961e513b-24a ef l-46961e513b-24b ff l-46961e513b-24c gf l-46961e513b-24d hf l-46961e513b-24e idefgh jE ci kDjF] lAkQ mAkQ ng str oAnkQ pg len qApkQ rA
kQ sqr ts uAkQ vg
string-length wAvkQ xwo yuqx zy {r |g < }A|kQ ~q g
string-ref AkQ AkQ g + AkQ A kQ ah ? ? ? X- YDDDDDD f l-46961e513b-255 f l-46961e513b-256 f l-46961e513b-257 f l-46961e513b-258 f l-46961e513b-259 f l-46961e513b-25a f l-46961e513b-25b E DF] AQ AQ g
string-append AQ X f l-46961e513b-265 f l-46961e513b-266 f l-46961e513b-267 f l-46961e513b-268 f l-46961e513b-269 Ec DF] AQ AQ AQ g m-46961e513b-270 C DDD f l-46961e513b-275 f l-46961e513b-276 f l-46961e513b-277 f l-46961e513b-278 E; f l-46961e513b-272 EH DF A Q AQ AQ DF AQ @ ? ???? DDDD f l-46961e513b-27e f l-46961e513b-27f f l-46961e513b-280 f l-46961e513b-281 f l-46961e513b-282 E DF AQ AQ g vec AQ ApQ A
Q AQ g
vector-length AQ A|Q g
vector-ref AQ AQ AQ A Q h ?ތ ?ߌ ? DDDDDD f l-46961e513b-289 f l-46961e513b-28a f l-46961e513b-28b f l-46961e513b-28c f l-46961e513b-28d f l-46961e513b-28e f l-46961e513b-28f E DF AQ A Q AQ DDDDD f l-46961e513b-299 f l-46961e513b-29a f l-46961e513b-29b f l-46961e513b-29c f l-46961e513b-29d f l-46961e513b-29e E. DF AQ AQ AQ AQ ApQ A
Q g vecs AQ g ec-:vector-filter AQ g list AQ g k AQ
AQ
A|Q
AQ AJQ AzQ AQ ANQ ASQ AQ !AQ "! #" $AQ %A Q &$ % '& (' )g m-46961e513b-2a6 *)C +* ,f l-46961e513b-2a8 -, .EH+- /DF. 0A/Q 1@0 21? 3???2 4X 5*DDD 6f l-46961e513b-2ab 7f l-46961e513b-2ac 8f l-46961e513b-2ad 9f l-46961e513b-2ae :6789 ;E45: <D;F. =A<Q >A
<Q ?> @A<Q AA<Q BA <Q CB D??? EX F*DD Gf l-46961e513b-2b4 Hf l-46961e513b-2b5 If l-46961e513b-2b6 JGHI KEEFJ LDKF. MALQ NA
LQ ON PALQ QALQ RA LQ SR Tg m-46961e513b-2ba UTC VU Wf l-46961e513b-2bc XW YEHVX ZDFY [AZQ \@[ ]\? ^]g _?^ `?_ a?` bX cUDDDDD df l-46961e513b-2bf ef l-46961e513b-2c0 ff l-46961e513b-2c1 gf l-46961e513b-2c2 hf l-46961e513b-2c3 if l-46961e513b-2c4 jdefghi kEbcj lDkFY mAlQ nAlQ oAlQ pX qUDDD rf l-46961e513b-2cd sf l-46961e513b-2ce tf l-46961e513b-2cf uf l-46961e513b-2d0 vrstu wEpqv xDwFY yAxQ zA
xQ {A xQ |{ }X- ~UDDDD f l-46961e513b-2d6 f l-46961e513b-2d7 f l-46961e513b-2d8 f l-46961e513b-2d9 f l-46961e513b-2da E}~ DFY AQ A Q ,
????y X- f l-46961e513b-2e1 f l-46961e513b-2e2 f l-46961e513b-2e3 f l-46961e513b-2e4 Eq DFY AQ AQ g b AQ AQ AQ AQ g integer? AQ g exact? AQ g error AQ f *arguments of :range are not exact integer AQ f (use :real-range?) AQ A
Q A Q A|Q AQ AQ , ???? f l-46961e513b-2ea f l-46961e513b-2eb f l-46961e513b-2ec f l-46961e513b-2ed Eq DFY AQ AQ AQ AQ AQ AQ AQ AQ AQ AQ AQ A
Q A Q g > AQ AQ g - AQ ?????y f l-46961e513b-2f3 f l-46961e513b-2f4 f l-46961e513b-2f5 f l-46961e513b-2f6 f l-46961e513b-2f7 E}~ DFY AQ AQ g a AQ AQ AQ AQ AQ AQ AQ AQ AQ AQ A Q A|Q AQ AQ ????? f l-46961e513b-2fe f l-46961e513b-2ff f l-46961e513b-300 f l-46961e513b-301 f l-46961e513b-302 E}~
D FY A
Q A
Q
A
Q A
Q g s A
Q A
Q g stop A
Q A
Q A
Q A
Q A
Q A
Q
A
Q
! "! #A
Q $A
Q %A
Q &#$%
'"& (' )
*A
Q + , -A
Q .A
Q /A
Q 0/ 1?????? 2g arg3 3X-2 4f l-46961e513b-309 5f l-46961e513b-30a 6f l-46961e513b-30b 7f l-46961e513b-30c 8f l-46961e513b-30d 9f l-46961e513b-30e :456789 ;E3c: <D;FY =A<Q >A<Q ?A<Q @A<Q AA<Q BA<Q CA
<Q DBC ED FA<Q GA<Q HA<Q IA<Q JI? KA<Q LK? MI@ NK@ OIA PKA QHJLMNOP RGQ SA<Q TA<Q UA<Q VSTU?@A WFRV Xg zero? YAX<Q ZYA [f $step size must not be zero in :range \A[<Q ]S\ ^FZ] _A<Q `A<Q ag * bAa<Q cg max dAc<Q eg ceiling fAe<Q gg / hAg<Q iA<Q ji@? khjA lfk mdCl nbmA o`?n p_Bo qW^p r? sg = tAs<Q uB v> wA<Q xA yg m-46961e513b-315 zyC {zDDD |f l-46961e513b-31a }f l-46961e513b-31b ~f l-46961e513b-31c f l-46961e513b-31d |}~ Ep{ z f l-46961e513b-317 EH DF AQ AQ AQ A
Q A Q DF AQ @ ? ???? X zDDDD f l-46961e513b-323 f l-46961e513b-324 f l-46961e513b-325 f l-46961e513b-326 f l-46961e513b-327 E DF AQ AQ A
Q A Q f l-46961e513b-32e f l-46961e513b-32f f l-46961e513b-330 f l-46961e513b-331 f l-46961e513b-332 E} DF AQ AQ AQ A Q ????? X- zDDDDD f l-46961e513b-339 f l-46961e513b-33a f l-46961e513b-33b f l-46961e513b-33c f l-46961e513b-33d f l-46961e513b-33e E DF AQ AQ A Q f l-46961e513b-346 f l-46961e513b-347 f l-46961e513b-348 f l-46961e513b-349 f l-46961e513b-34a f l-46961e513b-34b E3 DF AQ AQ AQ ?????? X-2 zDDDDDD f l-46961e513b-353 f l-46961e513b-354 f l-46961e513b-355 f l-46961e513b-356 f l-46961e513b-357 f l-46961e513b-358 f l-46961e513b-359 E DF AQ AQ AQ AQ AQ g istop AQ A
Q AQ AQ AQ g real? AQ AQ f %arguments of :real-range are not real AQ AQ AQ AQ g exact->inexact AQ AgQ AQ A|Q
AQ AaQ
AQ A Q g m-46961e513b-361 C f l-46961e513b-363 EH DF AQ @ ? ????? DDDDD f l-46961e513b-366 f l-46961e513b-367 f l-46961e513b-368 f l-46961e513b-369 f l-46961e513b-36a !f l-46961e513b-36b " ! #E" $D#F %A$Q &A$Q 'A$Q (DDDD )f l-46961e513b-373 *f l-46961e513b-374 +f l-46961e513b-375 ,f l-46961e513b-376 -f l-46961e513b-377 .)*+,- /E}(. 0D/F 1A0Q 2A0Q 3g imax 4A30Q 5g
char->integer 6A50Q 7A0Q 8g <= 9A80Q :974 ;g
integer->char <A;0Q =<7 >= ?A0Q @A0Q AA 0Q B@7A CB D?C Eg m-46961e513b-37d FEC GF Hf l-46961e513b-37f IH JEHGI KDFJ LAKQ M@L NM? ONg P?O Q?P R?Q SFDDDDD Tf l-46961e513b-382 Uf l-46961e513b-383 Vf l-46961e513b-384 Wf l-46961e513b-385 Xf l-46961e513b-386 Yf l-46961e513b-387 ZTUVWXY [EbSZ \D[FJ ]A\Q ^A\Q _A\Q `FDDD af l-46961e513b-390 bf l-46961e513b-391 cf l-46961e513b-392 df l-46961e513b-393 eabcd fE;`e gDfFJ hAgQ ig read jAigQ kj lFDDDD mf l-46961e513b-399 nf l-46961e513b-39a of l-46961e513b-39b pf l-46961e513b-39c qf l-46961e513b-39d rmnopq sE}lr tDsFJ uAtQ vAtQ wg port xAwtQ yg read-proc zAytQ {zx |{ }AtQ ~g eof-object? A~tQ v AtQ | g m-46961e513b-3a3 C f l-46961e513b-3a5 EH DF AQ @ ? h ? ? ? g dispatch X DDDDDD f l-46961e513b-3a8 f l-46961e513b-3a9 f l-46961e513b-3aa f l-46961e513b-3ab f l-46961e513b-3ac f l-46961e513b-3ad f l-46961e513b-3ae E DF AQ AQ AQ X DDDDD f l-46961e513b-3b8 f l-46961e513b-3b9 f l-46961e513b-3ba f l-46961e513b-3bb f l-46961e513b-3bc f l-46961e513b-3bd E DF AQ AQ g d AQ g args AQ AQ AQ AQ g empty AQ AQ AQ AQ g
procedure? AQ AQ f %unrecognized arguments in dispatching AQ g quote AQ g eq? AQ AQ ?g X g m-46961e513b-3c5 C DD f l-46961e513b-3ca f l-46961e513b-3cb f l-46961e513b-3cc E f l-46961e513b-3c7 EH DF AQ AQ DF AQ @ AQ @ g g each y T ??T ?? g lv g li g v X
DDDDDDDDDDD f l-46961e513b-3d2 f l-46961e513b-3d3 f l-46961e513b-3d4 f l-46961e513b-3d5 f l-46961e513b-3d6 f l-46961e513b-3d7 f l-46961e513b-3d8 f l-46961e513b-3d9 f l-46961e513b-3da f l-46961e513b-3db f l-46961e513b-3dc f l-46961e513b-3dd E DF A Q AQ
g map
g ne2 A
Q AQ AQ g lambda AQ AQ AQ AQ AzQ AQ g value A Q ! "X #D $f l-46961e513b-3f4 %f l-46961e513b-3f5 &$% 'E"#& (D'F )A(Q *f illegal macro call +A*(Q ,)+ -f dispatching conflict .g length /g SRFI42 0g string? 1g input-port? 2g char? 3g list? 4g vector? 5g vector->list 6g
:-dispatch 7f not a procedure 8g m-46961e513b-3f8 98C :9 ;f l-46961e513b-3fa <; =EH:< >DF= ?A>Q @@? A@? BAg C?B D?C E?D F9DDDDD Gf l-46961e513b-3fd Hf l-46961e513b-3fe If l-46961e513b-3ff Jf l-46961e513b-400 Kf l-46961e513b-401 Lf l-46961e513b-402 MGHIJKL NEbFM ODNF= PAOQ QAOQ RA6OQ S9DDDD Tf l-46961e513b-40b Uf l-46961e513b-40c Vf l-46961e513b-40d Wf l-46961e513b-40e Xf l-46961e513b-40f YTUVWX ZESY [DZF= \A[Q ]A6[Q ^g m-46961e513b-416 _^C `_ af l-46961e513b-418 ba cEH`b dDFc eABdQ f@e gfT hgj i?h j?i kg x0 lg etc2 mg etc3 nXkkYmlmZ o_DDDDDDD pf l-46961e513b-41b qf l-46961e513b-41c rf l-46961e513b-41d sf l-46961e513b-41e tf l-46961e513b-41f uf l-46961e513b-420 vf l-46961e513b-421 wf l-46961e513b-422 xpqrstuvw yEnox zDyFc {A%zQ |ABzQ }?, ~?} XkklmlmZ f l-46961e513b-42e f l-46961e513b-42f f l-46961e513b-430 f l-46961e513b-431 f l-46961e513b-432 f l-46961e513b-433 f l-46961e513b-434 f l-46961e513b-435 Eo DFc A%Q ABQ g f1 g f2 Xk _DDDD f l-46961e513b-440 f l-46961e513b-441 f l-46961e513b-442 f l-46961e513b-443 f l-46961e513b-444 E DFc A%Q ABQ g qualifier Xk _DDDDD f l-46961e513b-44b f l-46961e513b-44c f l-46961e513b-44d f l-46961e513b-44e f l-46961e513b-44f f l-46961e513b-450 E DFc AQ AQ AQ AQ AQ A!Q A Q AQ AzQ AQ g m-46961e513b-457 C f l-46961e513b-459 EH DF ABQ @ T i ?Č ?Ō XkkYmlZ DDDDDD f l-46961e513b-45c f l-46961e513b-45d f l-46961e513b-45e f l-46961e513b-45f f l-46961e513b-460 f l-46961e513b-461 f l-46961e513b-462 E DF A$Q ABQ XkklmlZ f l-46961e513b-46d f l-46961e513b-46e f l-46961e513b-46f f l-46961e513b-470 f l-46961e513b-471 f l-46961e513b-472 f l-46961e513b-473 E DF A$Q ABQ Xk DDD f l-46961e513b-47d f l-46961e513b-47e f l-46961e513b-47f f l-46961e513b-480 E DF A$Q ABQ Xk DDDD f l-46961e513b-486 f l-46961e513b-487 f l-46961e513b-488 f l-46961e513b-489 f l-46961e513b-48a E DF AQ AQ A!Q AQ g reverse XmZ g m-46961e513b-490 C DD f l-46961e513b-495 f l-46961e513b-496 f l-46961e513b-497 E f l-46961e513b-492
EH DF
A Q
A$ Q A Q g cons A Q g apply g m-46961e513b-49c C DD f l-46961e513b-4a1 f l-46961e513b-4a2 f l-46961e513b-4a3 E f l-46961e513b-49e EH DF !A Q "Ad Q #A' Q $g list->string %g m-46961e513b-4a8 &%C '&DD (f l-46961e513b-4ad )f l-46961e513b-4ae *f l-46961e513b-4af +()* ,E'+ -& .f l-46961e513b-4aa /. 0EH-/ 1D,F0 2A$1Q 3A'1Q 4g m-46961e513b-4b4 54C 65DD 7f l-46961e513b-4b9 8f l-46961e513b-4ba 9f l-46961e513b-4bb :789 ;E6: <5 =f l-46961e513b-4b6 >= ?EH<> @D;F? AA@Q BA@Q CA'@Q Dg list->vector Eg m-46961e513b-4c0 FEC GFDD Hf l-46961e513b-4c5 If l-46961e513b-4c6 Jf l-46961e513b-4c7 KHIJ LEGK MF Nf l-46961e513b-4c2 ON PEHMO QDLFP RADQQ SA'QQ Tg m-46961e513b-4cc UTC VU Wf l-46961e513b-4ce XW YEHVX ZDFY [ABZQ \@[ ]\T ^]h _?^ `?_ aXkYmZ bUDDDDD cf l-46961e513b-4d1 df l-46961e513b-4d2 ef l-46961e513b-4d3 ff l-46961e513b-4d4 gf l-46961e513b-4d5 hf l-46961e513b-4d6 icdefgh jEabi kDjFY lA0kQ mABkQ nXklmZ of l-46961e513b-4e0 pf l-46961e513b-4e1 qf l-46961e513b-4e2 rf l-46961e513b-4e3 sf l-46961e513b-4e4 tf l-46961e513b-4e5 uopqrst vEnbu wDvFY xA0wQ yABwQ zX {UDD |f l-46961e513b-4ee }f l-46961e513b-4ef ~f l-46961e513b-4f0 |}~ Ez{ DFY A0Q ABQ X UDDD f l-46961e513b-4f5 f l-46961e513b-4f6 f l-46961e513b-4f7 f l-46961e513b-4f8 E DFY AQ ApQ AQ g make-vector AQ AQ A
Q A!Q AQ A|Q AzQ g vector-set! AQ AQ AQ A Q AQ f )vector is too short for the comprehension AQ AsQ f (vector is too long for the comprehension AQ g m-46961e513b-4fd C DD f l-46961e513b-502 f l-46961e513b-503 f l-46961e513b-504 E f l-46961e513b-4ff EH DF A$Q AQ g m-46961e513b-509 C DD f l-46961e513b-50e f l-46961e513b-50f f l-46961e513b-510 E f l-46961e513b-50b EH DF A$Q AaQ g m-46961e513b-515 C DD f l-46961e513b-51a f l-46961e513b-51b f l-46961e513b-51c E f l-46961e513b-517 EH DF A%Q g min AQ g m-46961e513b-521 C DD f l-46961e513b-526 f l-46961e513b-527 f l-46961e513b-528 E f l-46961e513b-523 EH DF A%Q AcQ g m-46961e513b-52d C f l-46961e513b-52f EH DF ABQ @ T h ? ? g default X kYmZ DDDDD f l-46961e513b-532 f l-46961e513b-533 f l-46961e513b-534 f l-46961e513b-535 f l-46961e513b-536
f l-46961e513b-537
E
D F A&
Q AB
Q X klmZ f l-46961e513b-541 f l-46961e513b-542 f l-46961e513b-543 f l-46961e513b-544 f l-46961e513b-545 f l-46961e513b-546 E D F A& Q AB Q X DD f l-46961e513b-54f f l-46961e513b-550 f l-46961e513b-551 ! "E ! #D "F $A& #Q %AB #Q & % 'X (DDD )f l-46961e513b-556 *f l-46961e513b-557 +f l-46961e513b-558 ,f l-46961e513b-559 - ) * + , .E ' ( - /D .F 0A /Q 1A /Q 2A! /Q 3A /Q 4 1 5g m-46961e513b-55e 6 5C 7 6 8f l-46961e513b-560 9 8 :EH 7 9 ;DF : <AB ;Q =@ < > =T ? >h @? ? A? @ B 6DDDDD Cf l-46961e513b-563 Df l-46961e513b-564 Ef l-46961e513b-565 Ff l-46961e513b-566 Gf l-46961e513b-567 Hf l-46961e513b-568 I C D E F G H JE B I KD JF : LA# KQ MAB KQ Nf l-46961e513b-572 Of l-46961e513b-573 Pf l-46961e513b-574 Qf l-46961e513b-575 Rf l-46961e513b-576 Sf l-46961e513b-577 T N O P Q R S UE B T VD UF : WA# VQ XAB VQ Y 6DD Zf l-46961e513b-580 [f l-46961e513b-581 \f l-46961e513b-582 ] Z [ \ ^E Y ] _D ^F : `A# _Q aAB _Q b a c 6DDD df l-46961e513b-587 ef l-46961e513b-588 ff l-46961e513b-589 gf l-46961e513b-58a h d e f g iE ' c h jD iF : kA jQ lA jQ mA jQ nA jQ o m n p o qg ec-guarded-do-ec rA q jQ sAB jQ tAz jQ uA jQ vA jQ w u m v x w y l zg m-46961e513b-58f { zC | { }f l-46961e513b-591 ~ } EH | ~ DF AB Q @ T T ?? ? Xkl{ {DDDD f l-46961e513b-594 f l-46961e513b-595 f l-46961e513b-596 f l-46961e513b-597 f l-46961e513b-598 E D F A q Q AB Q A Q @ ? T ?? ? XY{ f l-46961e513b-5a1 f l-46961e513b-5a2 f l-46961e513b-5a3 f l-46961e513b-5a4 f l-46961e513b-5a5 E D F A Q A q Q AB Q A Q @ ? T ?? ? f l-46961e513b-5ad f l-46961e513b-5ae f l-46961e513b-5af f l-46961e513b-5b0 f l-46961e513b-5b1 E D F A Q A Q A q Q AB Q A Q @ T T ?? ? f l-46961e513b-5b9 f l-46961e513b-5ba f l-46961e513b-5bb f l-46961e513b-5bc f l-46961e513b-5bd E D F A Q A Q A q Q AB Q A Q @ T T ̌ ?? ? f l-46961e513b-5c6 f l-46961e513b-5c7 f l-46961e513b-5c8 f l-46961e513b-5c9 f l-46961e513b-5ca E D F A Q A Q A q Q AB Q Az Q @ T T ތ ?? ? XZY{ f l-46961e513b-5d3 f l-46961e513b-5d4 f l-46961e513b-5d5 f l-46961e513b-5d6 f l-46961e513b-5d7 E D F Az Q A q Q AB Q g ?? ? XY{ f l-46961e513b-5e0 f l-46961e513b-5e1 f l-46961e513b-5e2 f l-46961e513b-5e3 f l-46961e513b-5e4 E D F A! Q A Q A q Q AB Q ?? ? X{ {DD
f l-46961e513b-5ec
f l-46961e513b-5ed
f l-46961e513b-5ee
E
D
F
A!
Q
g m-46961e513b-5f2
C
f l-46961e513b-5f4
EH
DF
AB
Q
@
T
h
?
XkYmZ
DDDD
f l-46961e513b-5f7
f l-46961e513b-5f8
f l-46961e513b-5f9
f l-46961e513b-5fa
f l-46961e513b-5fb
E
D
F
A
Q
AB
Q
f l-46961e513b-604
f l-46961e513b-605
!f l-46961e513b-606
"f l-46961e513b-607
#f l-46961e513b-608
$
!
"
#
%En
$
&D
%F
'A
&Q
(AB
&Q
)X
*
D
+f l-46961e513b-610
,f l-46961e513b-611
-
+
,
.E
)
*
-
/D
.F
0A
/Q
1AB
/Q
2
1
3X
4
DD
5f l-46961e513b-615
6f l-46961e513b-616
7f l-46961e513b-617
8
5
6
7
9E
3
4
8
:D
9F
;A#
:Q
<A
:Q
=A
:Q
>A
:Q
?
>
@g m-46961e513b-61b
A
@C
B
A
Cf l-46961e513b-61d
D
C
EEH
B
D
FDF
E
GAB
FQ
H@
G
I
HT
J
Ih
K?
J
L
ADDDD
Mf l-46961e513b-620
Nf l-46961e513b-621
Of l-46961e513b-622
Pf l-46961e513b-623
Qf l-46961e513b-624
R
M
N
O
P
Q
SE
L
R
TD
SF
E
UA"
TQ
VAB
TQ
Wf l-46961e513b-62d
Xf l-46961e513b-62e
Yf l-46961e513b-62f
Zf l-46961e513b-630
[f l-46961e513b-631
\
W
X
Y
Z
[
]En
L
\
^D
]F
E
_A"
^Q
`AB
^Q
a
AD
bf l-46961e513b-639
cf l-46961e513b-63a
d
b
c
eE
)
a
d
fD
eF
E
gA"
fQ
hAB
fQ
i
h
j
ADD
kf l-46961e513b-63e
lf l-46961e513b-63f
mf l-46961e513b-640
n
k
l
m
oE
3
j
n
pD
oF
E
qA#
pQ
rA
pQ
sA
pQ
tA
pQ
uA
pQ
v
u C 5 h ]4
15 44 > " G 45i46i5 7> " G 4:!;>Wcf h M ]45C E g dummy
g q g etc Cjx h p ] C h g dummy
g q1 g q2 g etc1 g etc Cy h > ]C 6 g dummy
g cmd C h P ] C H g dummy
g test g cmd C h P ] C H g dummy
g test g cmd C h P ] C H g dummy
g test g cmd C h P ] C H g dummy
g test g cmd Cf h O ]4 5C G g dummy
g etc g cmd C h , 3 C g dummy
g olet g lbs g ne1? g ilet g ne2? g lss g cmd C h p ] C h g dummy
g g g arg1 g arg g cmd C h ]Q4 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ @4 5 $
@4 5 $ @4 5 $ @4 5 $ @4 5
$
@ 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp ~ g tmp g tmp g tmp g tmp
g filenamef srfi/srfi-42/ec.scm
: g
macro-typeg syntax-rulesg patternsg nestedg qg ... g etcg ... g q1g q2g etc1g etcg ... g cmd g ifg test g cmd g notg test g cmd g andg testg ... g cmd g org testg ... g cmd g beging etcg ... g cmd g :dog oletg lbsg ne1?g iletg ne2?g lss g cmd g gg arg1g argg ... g cmd C5!R4:;> f!" h` ,
3
44 5 5 C g dummy
Y g cmd Y g obs Y g oc Y g lbs Y g ne1? Y g ibs Y g ic Y g ne2? Y g ls Y
Y
C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
g " g
macro-typeg syntax-rulesg patternsg cmdg :dog letg obsg ocg ... g lbsg ne1?g letg ibsg icg ... g ne2?g lsg ... C5R4: ;>/h E ]C = g dummy
g
consequent C2= h E ]C = g dummy
g
consequent C? h \ ]C T g dummy
g
consequent g alternate CA h \ ]C T g dummy
g
consequent g alternate CGPQ h W ] C O g dummy
g test g
consequent CS^_ h n ] C f g dummy
g test g
consequent g alternate Cdlm h B ] C : g dummy
g command
Cqwx h B ] C : g dummy
g command
C{f h g ]45 C _ g dummy
g done g to-do1 g to-do2 Cf h f ]4 5 C^ g dummy
g done g to-do1 g to-do C h - ]C % g dummy
C h B ]C : g dummy
g command C h X ]C P g dummy
g command1 g command Cy h E ]C = g dummy
g
expression C hP ]q4 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ @4 5 $
@4 5 $ @4 5 $ @4 5 $ @4 5
$
@4 5 $ @4 5 $ @4 5
$
@4 5 $ @ 6 g x
M g tmp M g tmp " M g tmp 9 M g tmp P M g tmp g M g tmp ~ M g tmp M g tmp M g tmp M g tmp
M g tmp M g tmp M g tmp
M g tmp 6 M g filenamef srfi/srfi-42/ec.scm
M g
macro-typeg syntax-rulesg patternsg ifg
consequent g ifg
consequent g ifg
consequentg alternate g ifg
consequentg alternate g ifg notg notg test g
consequent g ifg notg notg test g
consequentg alternate g letg commandg ... g beging commandg ... g doneg beging to-do1g ... g to-do2g ... g doneg ... g to-do1g to-dog ... g command g command1g commandg ... g
expression C5 R4:;>f h , 3 6 g dummy
g cc g olet g lbs g ne1? g ilet g ne2? g lss C h q ] C i g dummy
g cc g lbs g ne1? g lss C h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-42/ec.scm
9 g
macro-typeg syntax-rulesg patternsg ccg ... g oletg lbsg ne1?g iletg ne2?g lss g ccg lbsg ne1?g lss C5R4:;> h u ] Cm g dummy
g cc g var g i g
expression C h f ] C ^ g dummy
g cc g var g
expression C h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-42/ec.scm
9 g
macro-typeg syntax-rulesg patternsg ccg varg indexg i g
expression g ccg varg
expression C5R4:;>y h = ]C 5 g dummy
g cc C h ] C x g dummy
g cc g g g arg1 g arg g gen C h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-42/ec.scm
9 g
macro-typeg syntax-rulesg patternsg cc g ccg gg arg1g argg ... g geng ... C5R4:;>+ h ] C g dummy
g cc g g g arg1 g arg g gen g result C4^_`fa hh g , 3 4 54 54
5 4545 4
5 C _ g dummy
e g cc e g gens e g ob1 e g oc1 e g lb1 e g ne1?1 e g ib1 e g ic1 e g ne2?1 e g ls1
e g ob2 e g oc2 e g lb2
e g ne1?2 e g ib2 e g ic2 e g ne2?2 e g ls2 e e Cbf h Q ] 6 I g dummy
g cc
g result
C
hP H ]4 5 $ @4 5 $ @4 5 $ @ 6@ g x
P g tmp P g tmp " P g tmp 9 P g filenamef srfi/srfi-42/ec.scm
P g
macro-typeg syntax-rulesg patternsg ccg gg arg1g argg ... g geng ... g result g ccg gensg :dog letg ob1g ... g oc1g ... g lb1g ... g ne1?1g letg ib1g ... g ic1g ... g ne2?1g ls1g ... g :dog letg ob2g ... g oc2g ... g lb2g ... g ne1?2g letg ib2g ... g ic2g ... g ne2?2g ls2g ... g ccg ... g result C5R4: ;>cv h ] C y g dummy
g cc g g g arg1 g arg g test C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
" g
macro-typeg syntax-rulesg patternsg ccg gg arg1g argg ... g test C5 R4:d;> h( , 3 C g dummy
$ g cc $ g test $ g olet $ g lbs $ g ne1? $ g ilet $ g ne2? $ g lss $ $ C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
> " g
macro-typeg syntax-rulesg patternsg ccg testg :dog oletg lbsg ne1?g iletg ne2?g lss C5dR4:;>f hh 0 , 3 454
54 5 4 5
C ( g dummy
a g cc a g test a g ib-let a g ib-save a g
ib-restore a g olet a g lbs a g ne1? a g ib-var a g ib-rhs
a g ib a g ic a g ne2?
a g lss a a Cf hX ,
3
45 4
5 C g dummy
R g cc R g test R g ib-let R g ib-save R g
ib-restore R g ob R g oc R g lbs R g ne1? R g ic
R g ne2? R g lss R
R
C h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-42/ec.scm
C 9 g
macro-typeg syntax-rulesg patternsg ccg testg ib-letg ... g ib-saveg ... g
ib-restoreg ... g :dog oletg lbsg ne1?g letg ib-varg ib-rhs g ibg ... g icg ... g ne2?g lss g ccg testg ib-letg ... g ib-saveg ... g
ib-restoreg ... g :dog letg obg ... g ocg ... g lbsg ne1?g letg icg ... g ne2?g lss C5R4:;>c h ] C y g dummy
g cc g g g arg1 g arg g test C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
n " g
macro-typeg syntax-rulesg patternsg ccg gg arg1g argg ... g test C5R4:;> h( , 3 C g dummy
& g cc & g test & g olet & g lbs & g ne1? & g ilet & g ne2? & g lss & & C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
s " g
macro-typeg syntax-rulesg patternsg ccg testg :dog oletg lbsg ne1?g iletg ne2?g lss C5R4:;> )*+ h n ] C f g dummy
g cc g var g i g arg C,9: h ] C { g dummy
g cc g var g arg1 g arg2 g arg CDFHMEQW h0 _ ] C W g dummy
* g cc * g var * g arg * * C
hP + ]4 5 $ @4 5 $ @4 5 $ @ 6# g x
P g tmp P g tmp " P g tmp 9 P g filenamef srfi/srfi-42/ec.scm
} P g
macro-typeg syntax-rulesg patternsg ccg varg indexg i g argg ... g ccg varg arg1g arg2g argg ... g ccg varg arg C5R4:;>blmotz{}~
hP n ]
C f g dummy
M g cc M g var M g i M g arg M M C h ] C g dummy
g cc g var g i g arg1 g arg2 g arg Cj h q ]C i g dummy
g cc g var g arg1 g arg C
hP D ]4 5 $ @4 5 $ @4 5 $ @ 6< g x
P g tmp P g tmp " P g tmp 9 P g filenamef srfi/srfi-42/ec.scm
P g
macro-typeg syntax-rulesg patternsg ccg varg indexg i g arg g ccg varg indexg i g arg1g arg2g argg ... g ccg varg arg1g argg ... C5R4: ;> h _ ] CW g dummy
g cc g var g arg C
hP n ]
C f g dummy
M g cc M g var M g i M g arg M M C h( ] C g dummy
" g cc " g var " g i " g arg1 " g arg2 " g arg " " C, #( hH ]
C { g dummy
A g cc A g var A g arg1 A g arg2 A g arg A A C hh t ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @
6 l g x
g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef srfi/srfi-42/ec.scm
g g
macro-typeg syntax-rulesg patternsg ccg varg arg g ccg varg indexg i g arg g ccg varg indexg i g arg1g arg2g argg ... g ccg varg arg1g arg2g argg ... C5 R h0 ] ( C4 5
$ 6 4 5C g vecs
, g filenamef srfi/srfi-42/ec.scm
" # ( . * +
, g nameg ec-:vector-filter CR4:;>3=?@AC h0 ] ] C U g dummy
, g cc , g var , g i , , CDMOPQS h N ] C F g dummy
g cc g var C h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-42/ec.scm
9 g
macro-typeg syntax-rulesg patternsg ccg varg indexg i g ccg var C5R4:;>amno h ] C x g dummy
g cc g var g i g arg1 g arg Cyz| h ` ]C X g dummy
g cc g var g arg1 C h r ]C j g dummy
g cc g var g arg1 g arg2 C h@ ` ]
C X g dummy
9 g cc 9 g var 9 g arg2 9 9 C h@ ` ]
C X g dummy
9 g cc 9 g var 9 g arg2 9 9 C
h@ r ]
Cj g dummy
@ g cc @ g var @ g arg1 @ g arg2 @ @ C
()*+,-.0 hH r ]
C j g dummy
A g cc A g var A g arg1 A g arg2 A A C1=>?@AEqrGtuvw`x hP ]
C | g dummy
N g cc N g var N g arg1 N g arg2 N g arg3 N N C h ' ]A4 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ @4 5 $
@4 5 $ @4 5 $ @ 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp ~ g tmp g tmp g filenamef srfi/srfi-42/ec.scm
g
macro-typeg syntax-rulesg patternsg ccg varg indexg i g arg1g argg ... g ccg varg arg1 g ccg varg arg1g arg2 g ccg var
g arg2 g ccg var
g arg2 g ccg varg arg1g arg2 g ccg varg arg1g arg2 g ccg varg arg1g arg2g arg3 C5R4:;> h ` ]C X g dummy
g cc g var g arg1 C h o ] C g g dummy
g cc g var g i g arg1 C h r ]C j g dummy
g cc g var g arg1 g arg2 C h ] C y g dummy
g cc g var g i g arg1 g arg2 C1 h ] C | g dummy
g cc g var g arg1 g arg2 g arg3 C
hh ]
C g dummy
d g cc d g var d g i d g arg1 d g arg2 d g arg3 d d C h ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ @4 5 $
@ 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp ~ g filenamef srfi/srfi-42/ec.scm
5 g
macro-typeg syntax-rulesg patternsg ccg varg arg1 g ccg varg indexg i g arg1 g ccg varg arg1g arg2 g ccg varg indexg i g arg1g arg2 g ccg varg arg1g arg2g arg3 g ccg varg indexg i g arg1g arg2g arg3 C5R4:;>%&' h ] C y g dummy
g cc g var g i g arg1 g arg2 C12467:>D hH r ] C j g dummy
A g cc A g var A g arg1 A g arg2 A A C h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-42/ec.scm
X 9 g
macro-typeg syntax-rulesg patternsg ccg varg indexg i g arg1g arg2 g ccg varg arg1g arg2 C5R4:;>R]^_ h ] C x g dummy
g cc g var g i g arg1 g arg Chk h _ ]C W g dummy
g cc g var g arg Cuvxz|} h8 r ] Cj g dummy
8 g cc 8 g var 8 g arg1 8 g arg2 8 8 C
hP % ]4 5 $ @4 5 $ @4 5 $ @ 6 g x
P g tmp P g tmp " P g tmp 9 P g filenamef srfi/srfi-42/ec.scm
j P g
macro-typeg syntax-rulesg patternsg ccg varg indexg i g arg1g argg ... g ccg varg arg g ccg varg arg1g arg2 C5R4:;> h ] C g dummy
g cc g var g i g dispatch g arg1 g arg C,
hH ]
C g dummy
A g cc A g var A g dispatch A g arg1 A g arg A A C h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-42/ec.scm
~ 9 g
macro-typeg syntax-rulesg patternsg ccg varg indexg i g dispatchg arg1g argg ... g ccg varg dispatchg arg1g argg ... C5R4:;> h M ]C E g dummy
g g g arg C f h : ] C2 g tmp-46961e513b-3ec
C h Z ] C R g tmp-46961e513b-3f1
g tmp-46961e513b-3f0 C h Z ] C R g tmp-46961e513b-3ee
g tmp-46961e513b-3ed C ! h , 3 4445545
4454
4 5 55 5 C g dummy
g var g obs g oc g lv g li g ne1? g i g v g ic g ne2?
g ls Cy, h > ]C 6 g dummy
g var C
hP s ]4 5 $ @4 5 $ @4 5 $ @ 6k g x
P g tmp P g tmp " P g tmp 9 P g filenamef srfi/srfi-42/ec.scm
P g
macro-typeg syntax-rulesg patternsg gg argg ... g varg :dog letg obsg ocg ... g lvg li g ... g ne1?g letg ig v g ... g icg ... g ne2?g lsg ... g var C5Rd- hp ? ]4L 54L 5 $ K$ B ( ($ " $ " 6 4L 54L56C$ CC7 g args
p g g1 p g g2 p g filenamef srfi/srfi-42/ec.scm
& + / : , = A L , N R U 5 X 9 Z 5 [ > ^ B ` > b k
p C h ] O C z g d1
g d2 g filenamef srfi/srfi-42/ec.scm
g nameg dispatch-union C R./ h m ] M' MN M MNC C e g empty
g value g filenamef srfi/srfi-42/ec.scm
C0v h( m ] MM$ 4L M5NM MNC C e g empty
% g value " g filenamef srfi/srfi-42/ec.scm
% C h( m ] MM$ L MNM MNC C e g empty
! g value g filenamef srfi/srfi-42/ec.scm
! C h( m ] MM$ M MNM MNC C e g empty
# g value g filenamef srfi/srfi-42/ec.scm
# C1i~ h m ] 4M5# M 4L L5NC Ce g empty
g value g filenamef srfi/srfi-42/ec.scm
C h m ] ML $ M MNC C e g empty
g value
g filenamef srfi/srfi-42/ec.scm
C~ h m ] 4M5# M 4L L5NC Ce g empty
g value g filenamef srfi/srfi-42/ec.scm
C25; h( m ] ML$ 4M5N M MNC C e g empty
# g value g filenamef srfi/srfi-42/ec.scm
# C h( m ] MM$ M MNM MNC C e g empty
# g value g filenamef srfi/srfi-42/ec.scm
# C h m ] ML $ M MNC C e g empty
g value
g filenamef srfi/srfi-42/ec.scm
C hP m ] MM$ " "M( " MNMN4M5N
N$ MMN M MNC C e g empty
L g value ? I g filenamef srfi/srfi-42/ec.scm
L C h( m ] MM$ 4L M5NM MNC C e g empty
% g value " g filenamef srfi/srfi-42/ec.scm
% Cd h m ] M' MN M MNC C e g empty
g value g filenamef srfi/srfi-42/ec.scm
C h( m ] MM$ M LMNM MNC C e g empty
$ g value ! g filenamef srfi/srfi-42/ec.scm
$ C[ceh m ] MM# M ML NC C e g empty
g value
g filenamef srfi/srfi-42/ec.scm
C hP m ] MM$ " "M( " MNMN4M5N
N$ MMN M MNC C e g empty
L g value ? I g filenamef srfi/srfi-42/ec.scm
L C h( m ] MM$ 4L M5NM MNC C e g empty
% g value " g filenamef srfi/srfi-42/ec.scm
% C h m ] M' MN M MNC C e g empty
g value g filenamef srfi/srfi-42/ec.scm
C h( ]( C4 5$
"C g pred
% g args % g filenamef srfi/srfi-42/ec.scm
" ) # % g nameg every? C3 h m ] M' MN M MNC C e g empty
g value g filenamef srfi/srfi-42/ec.scm
C h( m ] MM$ 4L M5NM MNC C e g empty
% g value " g filenamef srfi/srfi-42/ec.scm
% C4
5h m ] M' MN M MNC C e g empty
g value g filenamef srfi/srfi-42/ec.scm
C 1 h
]I4 5
$ C $ S $ HHO C45$
H45K
HHO C$
H45K
HHO C" 4 5$
HH" 4
J > " G " 4 J5$ " "4 J5$ $4 5 $
4
J5K" " J K
HHO C45$ 45HO CC45$ 4 5$
HO C"$" $ & " /45$ "45$ 45HO CCC" ?45$ 045$ !45 45HHO C""" 4 5$ 4 5$
HH" 4
J > " G " 4 J5$ " "4 J5$ $4 5 $
4
J5K" " J K
HHO C" "" J45$ ;4 5$ ,45$ 4 5$ HO C""""" @$ 5$ *
4 5HHH
HH O C"v"r" :45$ +4 5
H 45K
HH O C"$ #$ 4 5HH O C"" $ \ " 4 5$ 4 5$ 4 5$
HH" 4
J> " G " 4 J5$ " "4 J5$ 54 5 $ " 4 5 $
4
J5K" " JK
HH!O CCCC" 45$ 4 5$ 45$ y4 5$ j45$ [4 5$ L
H
$ 4
"> " G " 4#
4$55KH%O C""""""" M$ B$ 7$ ,
4 5HHH
HH & O C""
" " K45$ <45$ -4 5
H 45K
HH'O C"h"d$ 0$ %$ 4 5HH(O C""~"z)O Q 4* 5$ 4 ?HH+O C4 5$ )4 ?
H 45K
HH,O C4- 5$ 4 4./ 5?HH0O CC
g args
g key g a1 ! q g t , ; g var / ; g len G f g i S f g var V f g len n g i z g var } g a g istop g t g i
g var g read-proc - D g var 6 D g var ] i g a1 g a2 g var g imax g i g var g a g istop g t a h g i g var g var g vec , g len , g vecs , g k , g var , g str M n g len M n g i [ n g var ^ n g t g var g a1 g a2 g a3 g a z g istop z g t - E g i e z g var h z g stop g var g vec S o g len S o g vecs S o g k Z o g var ] o g str g len g i g var g t g var g every?
g t & 5 g var ) 5 g str J k g len J k g i X k g var [ k g t g var Hg filenamef srfi/srfi-42/ec.scm
! ! & *
, < F
G i m
n
! +
- F
G Q
R " \ ] z } %
%
" . <
! 4
9 C
D r
u y
| % 6
*
" " " *
1 5
8 ! < ? . C F {
.
*
# & 6 B C % J l x y # | 1 # C h j ] C b g filenamef srfi/srfi-42/ec.scm
g nameg make-initial-:-dispatch C(R4(i5 6R6 h a ] C Y g filenamef srfi/srfi-42/ec.scm
g nameg :-dispatch-ref C
R76 h0 ]4 5$ " 4 > " G C g dispatch
+ g filenamef srfi/srfi-42/ec.scm
!
"
" # #
# ) $ + g nameg :-dispatch-set! CR4: ;>EPQR h ] C x g dummy
g cc g var g i g arg1 g arg Cj\] h q ]C i g dummy
g cc g var g arg1 g arg C h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-42/ec.scm
' 9 g
macro-typeg syntax-rulesg patternsg ccg varg indexg i g arg1g argg ... g ccg varg arg1g argg ... C5 R4:%;>j{|f h( , 3 4 5C g dummy
( g x0 ( g q1 ( g q ( g etc1 ( g etc2 ( g etc3 ( g etc ( ( C~ h( , 3 C g dummy
" g x0 " g q1 " g q2 " g etc1 " g etc2 " g etc3 " g etc " " C h u ] C m g dummy
g x0 g
expression g f1 g f2 C1 hP ]
C g dummy
P g x0 P g qualifier P g
expression P g f1 P g f2 P P C hh ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @
6 g x
g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef srfi/srfi-42/ec.scm
3 g g
macro-typeg syntax-rulesg patternsg x0g nestedg q1g ... g qg etc1g etc2g etc3g etcg ... g x0g q1g q2g etc1g etc2g etc3g etcg ... g x0g
expressiong f1g f2 g x0g qualifierg
expressiong f1g f2 C5%R4:$;>f h( ]4 5C g dummy
! g x0 ! g q1 ! g q ! g etc1 ! g etc2 ! g etc ! ! C} h ] C g dummy
g x0 g q1 g q2 g etc1 g etc2 g etc C h e ] C] g dummy
g x0 g
expression g f2 C h0 | ] C t g dummy
* g x0 * g qualifier * g
expression * g f2 * * C hh ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @
6 g x
g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef srfi/srfi-42/ec.scm
G g g
macro-typeg syntax-rulesg patternsg x0g nestedg q1g ... g qg etc1g etc2g etcg ... g x0g q1g q2g etc1g etc2g etcg ... g x0g
expressiong f2 g x0g qualifierg
expressiong f2 C5$R4:';>h
f h P ]45 C H g dummy
g etc1 g etc C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
Z " g
macro-typeg syntax-rulesg patternsg etc1g etcg ... C5'R4: ;>h!"# h P ] C H g dummy
g etc1 g etc C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
f " g
macro-typeg syntax-rulesg patternsg etc1g etcg ... C5 R4:-;>h23 h P ] CH g dummy
g etc1 g etc C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
k " g
macro-typeg syntax-rulesg patternsg etc1g etcg ... C5-R4:,;>hABC h P ] C H g dummy
g etc1 g etc C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
w " g
macro-typeg syntax-rulesg patternsg etc1g etcg ... C5,R4:/;>hRS h P ] CH g dummy
g etc1 g etc C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
| " g
macro-typeg syntax-rulesg patternsg etc1g etcg ... C5/R4:0;>`lmf h ~ ]4 5C v g dummy
g k g q1 g q g etc1 g etc C,xy h ] Cw g dummy
g k g q1 g q2 g etc1 g etc CD h T ] C L g dummy
g k g
expression C h@ k ]
C c g dummy
< g k < g qualifier < g
expression < < C hh h ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @
6 ` g x
g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef srfi/srfi-42/ec.scm
g g
macro-typeg syntax-rulesg patternsg kg nestedg q1g ... g qg etc1g etcg ... g kg q1g q2g etc1g etcg ... g kg
expression g kg qualifierg
expression C50R4:.;>hf h P ]45C H g dummy
g etc1 g etc C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
" g
macro-typeg syntax-rulesg patternsg etc1g etcg ... C5.R4:+;>hf h P ]45C H g dummy
g etc1 g etc C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
" g
macro-typeg syntax-rulesg patternsg etc1g etcg ... C5+R4:*;>hf h P ]45C H g dummy
g etc1 g etc C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
" g
macro-typeg syntax-rulesg patternsg etc1g etcg ... C5*R4:);>hf h P ]45C H g dummy
g etc1 g etc C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
" g
macro-typeg syntax-rulesg patternsg etc1g etcg ... C5)R4:&;> f h ]4 5C | g dummy
g default g q1 g q g etc1 g etc C, h ] C} g dummy
g default g q1 g q2 g etc1 g etc CD $ & h Z ] C R g dummy
g default g
expression C 0 1 2 3 4 h( q ] C i g dummy
$ g default $ g qualifier $ g
expression $ $ C hh ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @
6 x g x
g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef srfi/srfi-42/ec.scm
g g
macro-typeg syntax-rulesg patternsg defaultg nestedg q1g ... g qg etc1g etcg ... g defaultg q1g q2g etc1g etcg ... g defaultg
expression g defaultg qualifierg
expression C5&R4:#;> A L Mf h ]4 5C | g dummy
g default g q1 g q g etc1 g etc C, W X h ] C} g dummy
g default g q1 g q2 g etc1 g etc CD ` b h Z ] C R g dummy
g default g
expression C k l p r m s t u x y h8 q ]
C i g dummy
1 g default 1 g qualifier 1 g
expression 1 1 C hh ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @
6 x g x
g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef srfi/srfi-42/ec.scm
g g
macro-typeg syntax-rulesg patternsg defaultg nestedg q1g ... g qg etc1g etcg ... g defaultg q1g q2g etc1g etcg ... g defaultg
expression g defaultg qualifierg
expression C5#R4: q;> f h p ]45 Ch g dummy
g stop g q1 g q2 g cmd C h q ] Ci g dummy
g stop g test g q g cmd C h q ] C i g dummy
g stop g test g q g cmd C h q ] C i g dummy
g stop g test g q g cmd C h q ] C i g dummy
g stop g test g q g cmd C f h p ]4 5C h g dummy
g stop g etc g q g cmd C h p ] C h g dummy
g stop g gen g q g cmd C
h P ] C H g dummy
g stop
g cmd
C h ]A4 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ @4 5 $
@4 5 $ @4 5 $ @ 6 g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp ~ g tmp g tmp g filenamef srfi/srfi-42/ec.scm
g
macro-typeg syntax-rulesg patternsg stopg nestedg nestedg q1g ... g q2g ... g cmd g stopg nestedg ifg test g qg ... g cmd g stopg nestedg notg test g qg ... g cmd g stopg nestedg andg testg ... g qg ... g cmd g stopg nestedg org testg ... g qg ... g cmd g stopg nestedg beging etcg ... g qg ... g cmd g stopg nestedg geng qg ... g cmd g stopg nested g cmd C5 qR4: ;>
f h o ]4 5C g g dummy
g q1 g q g etc1 g etc Cj
'
( h p ] C h g dummy
g q1 g q2 g etc1 g etc Cy
0
2 h E ] C = g dummy
g
expression CD
;
<
=
? h \ ] C T g dummy
g qualifier g
expression C hh T ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @
6 L g x
g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef srfi/srfi-42/ec.scm
g g
macro-typeg syntax-rulesg patternsg nestedg q1g ... g qg etc1g etcg ... g q1g q2g etc1g etcg ... g
expression g qualifierg
expression C5 R4:";>
K
U
Vf h o ]4 5C g g dummy
g q1 g q g etc1 g etc Cj
_
` h p ] C h g dummy
g q1 g q2 g etc1 g etc Cy
g
i h E ] C = g dummy
g
expression CD
q
r
s
t
v h \ ] C T g dummy
g qualifier g
expression C hh T ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @
6 L g x
g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef srfi/srfi-42/ec.scm
g g
macro-typeg syntax-rulesg patternsg nestedg q1g ... g qg etc1g etcg ... g q1g q2g etc1g etcg ... g
expression g qualifierg
expression C5"RC g m
( g filenamef srfi/srfi-42.scm
) ?
. ? 6 ? & ; ?
g filenamef srfi/srfi-42/ec.scm A)
f
!
ó
C6