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.06> ] 4 hz ] g guile g define-module* g ice-9 g vlist g filenameS
f ice-9/vlist.scm g importsS g srfi
g srfi-1
g srfi-9 g gnu g srfi-26 g format g exportsS g vlist? g
vlist-cons g
vlist-head !g
vlist-tail "g vlist-null? #g
vlist-null $g list->vlist %g vlist-ref &g
vlist-drop 'g
vlist-take (g vlist-length )g
vlist-fold *g vlist-fold-right +g vlist-map ,g vlist-unfold -g vlist-unfold-right .g vlist-append /g
vlist-reverse 0g vlist-filter 1g vlist-delete 2g vlist->list 3g vlist-for-each 4g block-growth-factor 5g vhash? 6g
vhash-cons 7g vhash-consq 8g vhash-consv 9g vhash-assoc :g
vhash-assq ;g
vhash-assv g
vhash-delv ?g
vhash-fold @g vhash-fold-right Ag vhash-fold* Bg vhash-foldq* Cg vhash-foldv* Dg alist->vhash E !"#$%&'()*+,-./0123456789:;<=>?@ABCD ' Fg set-current-module GF HF Ig
make-fluid Jg make-vector Kg % make-block-procedure Lg make-syntax-transformer ML NL Og
make-block Pg macro Qg $sc-dispatch RQ SQ Tg _ Ug any VTUUUU Wg
syntax-object Xg syntax-parameterize Yg m-198d9e0d-123b Zg top [YZ \g ribcage ]g t-198d9e0d-1237 ^g t-198d9e0d-1238 _g t-198d9e0d-1239 `g t-198d9e0d-123a a]^_` b[[[[ cf l-198d9e0d-1240 df l-198d9e0d-1241 ef l-198d9e0d-1242 ff l-198d9e0d-1243 gcdef h\abg i\ jg x kj l[ mf l-198d9e0d-123d nm o\kln pg shift qg proc-name rg args sqr tZ utt vf
l-bde397a-8e8 wf
l-bde397a-8e9 xvw y\sux zg name {g formals |g body }z{| ~ttt f
l-bde397a-8df f
l-bde397a-8e0 f
l-bde397a-8e1 \}~ g make-procedure-name g prefix tt f
l-bde397a-8d3 f
l-bde397a-8d1 \ t f
l-bde397a-8d0 \k [hiopiiiiy
g hygiene WX thio WO g identifier-syntax W WK g lambda W g base W g offset W g size W g hash-tab? W g if W g vector W WJ g * W W W W
g each-any T g syntax-violation f Wrong number of arguments g identifier? tio WK f -source expression failed to match any pattern g define-block-accessor UUU g define-inlinable g dummy g index z g m-198d9e0d-1262 Z tt f l-198d9e0d-1267 f l-198d9e0d-1268 f l-198d9e0d-1269 \ f l-198d9e0d-1264 \k ti W g block W g
vector-ref W g % block-content-procedure g
block-content TU g m-198d9e0d-126f Z g t-198d9e0d-126e f l-198d9e0d-1274 \ f l-198d9e0d-1271 \k ipiiiiy
WX ti W W W W g m-198d9e0d-126d Z ipi W W W
ti W g % block-base-procedure g
block-base g m-198d9e0d-128b Z g t-198d9e0d-128a
f l-198d9e0d-1290
\
f l-198d9e0d-128d
\k ipiiiiy
WX t i W W W W g m-198d9e0d-1289 Z ipi W W W ! " ! #" $ti %W$ &g % block-offset-procedure 'g block-offset (g m-198d9e0d-12a7 )(Z *g t-198d9e0d-12a6 +* ,) -f l-198d9e0d-12ac .- /\+,. 0f l-198d9e0d-12a9 10 2\k,1 3)/i2piiiiy
4WX3 5t/i2 6W'5 7W3 8W&5 978 :69 ;: <W3 =g m-198d9e0d-12a5 >=Z ?>/i2pi @W? A@ BW? CW 5 DB@C E<AD F4;E Gti2 HW&G Ig % block-size-procedure Jg
block-size Kg m-198d9e0d-12c3 LKZ Mg t-198d9e0d-12c2 NM OL Pf l-198d9e0d-12c8 QP R\NOQ Sf l-198d9e0d-12c5 TS U\kOT VLRiUpiiiiy
WWXV XtRiU YWJX ZWV [WIX \Z[ ]Y\ ^] _WV `g m-198d9e0d-12c1 a`Z baRiUpi cWb dc eWb fW X gecf h_dg iW^h jtiU kWIj lg % block-next-free-procedure mg block-next-free ng m-198d9e0d-12df onZ pg t-198d9e0d-12de qp ro sf l-198d9e0d-12e4 ts u\qrt vf l-198d9e0d-12e1 wv x\krw youixpiiiiy
zWXy {tuix |Wm{ }Wy ~Wl{ }~ | Wy g m-198d9e0d-12dd Z uixpi W W W { z tix Wl g
vector-length g % block-hash-table?-procedure g block-hash-table? g m-198d9e0d-12fa Z g t-198d9e0d-12f9 f l-198d9e0d-12ff \ f l-198d9e0d-12fc \k ipiiiiy
WX ti W W W W W g < W WJ W W ti W g % set-block-next-free!-procedure g set-block-next-free! TUU g m-198d9e0d-1336 Z g t-198d9e0d-1334 g t-198d9e0d-1335 f l-198d9e0d-133b f l-198d9e0d-133c \ f l-198d9e0d-1338 \k ipiiiiy
WX ti W W W W W g next-free W g vector-set! W W ti W g % block-append!-procedure g
block-append! TUUU g m-198d9e0d-1357 Z g t-198d9e0d-1354 g t-198d9e0d-1355 g t-198d9e0d-1356 f l-198d9e0d-135c f l-198d9e0d-135d f l-198d9e0d-135e \ f l-198d9e0d-1359 \k ipiiiiy
WX ti W W W W W g value W W g and W W WJ g = W Wm
g begin W
W
g 1+ W
W W W ti W g % block-ref-procedure g block-ref g m-198d9e0d-13c0 Z g t-198d9e0d-13be !g t-198d9e0d-13bf " ! # $f l-198d9e0d-13c5 %f l-198d9e0d-13c6 &$% '\"#& ( )f l-198d9e0d-13c2 *) +\k(* , 'i+piiiiy
-WX, .t'i+ /W . 0W, 1W . 201 3/2 43 5W, 6g content 7W6. 8W. 978 :W. ;:78 <59; =-4< >ti+ ?W > @g (% block-hash-table-next-offset-procedure Ag block-hash-table-next-offset Bg m-198d9e0d-13e1 CBZ Dg t-198d9e0d-13de Eg t-198d9e0d-13df Fg t-198d9e0d-13e0 GDEF HCCC If l-198d9e0d-13e6 Jf l-198d9e0d-13e7 Kf l-198d9e0d-13e8 LIJK M\GHL NC Of l-198d9e0d-13e3 PO Q\kNP RCMiQpiiiiy
SWXR TtMiQ UWAT VWR WW@T XVW YUX ZY [WR \W6T ]WT ^WT _\]^ `WT ag + bWaT cb]]^ d`\c e[_d fSZe gtiQ hW@g ig -% block-hash-table-set-next-offset!-procedure jg !block-hash-table-set-next-offset! kg m-198d9e0d-1407 lkZ mg t-198d9e0d-1403 ng t-198d9e0d-1404 og t-198d9e0d-1405 pg t-198d9e0d-1406 qmnop rllll sf l-198d9e0d-140c tf l-198d9e0d-140d uf l-198d9e0d-140e vf l-198d9e0d-140f wstuv x\qrw yl zf l-198d9e0d-1409 {z |\ky{ }lxi|piiiiy
~WX} txi| Wj W} Wi W} W6 W W g next-offset W W Wa ~ ti| Wi g % block-hash-table-ref-procedure g block-hash-table-ref g m-198d9e0d-1430 Z g t-198d9e0d-142d g t-198d9e0d-142e g t-198d9e0d-142f f l-198d9e0d-1435 f l-198d9e0d-1436 f l-198d9e0d-1437 \ f l-198d9e0d-1432 \k ipiiiiy
WX ti W W W W W6 W g khash W W Wa ti W g !% block-hash-table-set!-procedure g block-hash-table-set! g m-198d9e0d-1456 Z g t-198d9e0d-1452 g t-198d9e0d-1453 g t-198d9e0d-1454 g t-198d9e0d-1455 f l-198d9e0d-145b f l-198d9e0d-145c f l-198d9e0d-145d f l-198d9e0d-145e \ f l-198d9e0d-1458 \k ipiiiiy
WX ti W W W W W6 W W W W Wa ti W g !% block-hash-table-add!-procedure g block-hash-table-add! g m-198d9e0d-1480 Z g t-198d9e0d-147c g t-198d9e0d-147d g t-198d9e0d-147e g t-198d9e0d-147f f l-198d9e0d-1485 f l-198d9e0d-1486 f l-198d9e0d-1487 f l-198d9e0d-1488 \ f l-198d9e0d-1482 \k ipiiiiy
WX ti W W W W W6 W W
W
Wj
W
W
ti W g
block-null g g %make-vlist-procedure g
make-vlist g m-198d9e0d-1501 Z g t-198d9e0d-14ff g t-198d9e0d-1500 f l-198d9e0d-1506 !f l-198d9e0d-1507 " ! #\ " $ %f l-198d9e0d-1503 &% '\k$& (f l-1e8ba8b5a-60 )f l-1e8ba8b5a-61 *() +\su* ,g key -,z{| .ttttt /f l-1e8ba8b5a-53 0f l-1e8ba8b5a-54 1f l-1e8ba8b5a-55 2f l-1e8ba8b5a-56 3f l-1e8ba8b5a-57 4/0123 5\-.4 6 7t 8f l-1e8ba8b5a-43 98 :\679 ;f l-1e8ba8b5a-42 <; =\k< >#i'piiii+5:=
? @W>? At#i' BWA CWA DBC Eg make-struct Fg m-198d9e0d-14fd GFZ Hg t-1e8ba8b5a-133 Ig t-1e8ba8b5a-132 Jg t-1e8ba8b5a-131 KHIJ Lg m-1e8ba8b5a-134 MLZ NMMM Of l-1e8ba8b5a-138 Pf l-1e8ba8b5a-139 Qf l-1e8ba8b5a-13a ROPQ S\KNR Tg ctor-args UT Vf l-1e8ba8b5a-120 WV X\UW Yg ctor Zg field [YZ \f l-1e8ba8b5a-11c ]f l-1e8ba8b5a-11d ^\] _\[u^ `g form ag type-name bg constructor-spec cg field-names d`abc etttt ff l-1e8ba8b5a-111 gf l-1e8ba8b5a-112 hf l-1e8ba8b5a-113 if l-1e8ba8b5a-114 jfghi k\dej lg
record-layout mg functional-setters ng setters og copier pg getters qg constructor rg getter-identifiers sg field-identifiers tlmnopqrs utttttttt vf l-1e8ba8b5a-e9 wf l-1e8ba8b5a-e7 xf l-1e8ba8b5a-e5 yf l-1e8ba8b5a-e3 zf l-1e8ba8b5a-e1 {f l-1e8ba8b5a-df |f l-1e8ba8b5a-dd }f l-1e8ba8b5a-db ~vwxyz{|} \tu~ f l-1e8ba8b5a-da \k G#i'piSiiiX_ik WE? WA W
? BC @D ti' W g record-type-vtable g pwpw g default-record-printer g set-struct-vtable-name! g vtable-offset-user g %vlist?-procedure g m-198d9e0d-1510 Z g t-198d9e0d-150f f l-198d9e0d-1515 \ f l-198d9e0d-1512 \k ipiiii+5:=
W? g obj g t-1e8ba8b5a-224 g t-1e8ba8b5a-21e g t-1e8ba8b5a-21f g t-1e8ba8b5a-220 g t-1e8ba8b5a-223 g t-1e8ba8b5a-222 g t-1e8ba8b5a-221 g m-1e8ba8b5a-225 Z f l-1e8ba8b5a-229 f l-1e8ba8b5a-22a f l-1e8ba8b5a-22b f l-1e8ba8b5a-22c f l-1e8ba8b5a-22d f l-1e8ba8b5a-22e f l-1e8ba8b5a-22f \ g copier-id f l-1e8ba8b5a-21c \ g ctor-name f l-1e8ba8b5a-214 \ c f l-1e8ba8b5a-212 \ g layout f l-1e8ba8b5a-210 \ g
immutable? f l-1e8ba8b5a-20e \ g field-count f l-1e8ba8b5a-20c \ g
getter-ids f l-1e8ba8b5a-209 \ g field-ids f l-1e8ba8b5a-206 \ g predicate-name g
field-spec `ab tttttt f l-1e8ba8b5a-1f9 f l-1e8ba8b5a-1fa f l-1e8ba8b5a-1fb f l-1e8ba8b5a-1fc f l-1e8ba8b5a-1fd f l-1e8ba8b5a-1fe \ Gipiiiiiiiiiiii W? W? g struct? W? g eq? W? g
struct-vtable W? ti W ti W g throw-bad-struct g
vlist-base
g %vlist-base-procedure g free-id g
%%on-error
g m-198d9e0d-151c
Z f l-198d9e0d-151e \k ipiiii+5:= W ? U g %%type g t-1e8ba8b5a-14b g t-1e8ba8b5a-14c g t-1e8ba8b5a-14d g t-1e8ba8b5a-14e g t-1e8ba8b5a-14f g t-1e8ba8b5a-150 g t-1e8ba8b5a-151 g m-1e8ba8b5a-152 ! Z "!!!!!!! #f l-1e8ba8b5a-156 $f l-1e8ba8b5a-157 %f l-1e8ba8b5a-158 &f l-1e8ba8b5a-159 'f l-1e8ba8b5a-15a (f l-1e8ba8b5a-15b )f l-1e8ba8b5a-15c *#$%&'() +\ "* ,g getter -, .f l-1e8ba8b5a-149 /f l-1e8ba8b5a-14a 0./ 1\-u0 2a 3f l-1e8ba8b5a-144 4f l-1e8ba8b5a-145 5f l-1e8ba8b5a-146 6345 7\2~6 8Gipi+iii1i7 9W8? : 9 ;T:U g s ?=> @ Af l-198d9e0d-1521 Bf l-198d9e0d-1522 CAB D\?@C EDipiiii+5:=
FW<E? Gg quote HWGE? ItDi JWI KHJ LK Mg %%index NWM8? O N PTOU Qf l-198d9e0d-1526 Rf l-198d9e0d-1527 SQR T\?@S UTipiiii+5:=
VW<U? WWGU? XTi YW
X ZWY [Z \g %%copier ]W\8? ^ ] _T^U `f l-198d9e0d-152b af l-198d9e0d-152c b`a c\?@b dcipiiii+5:=
eW<d? fWGd? gg %%-set-fields htci iWgh jfi kj lg t-198d9e0d-151b ml nf l-198d9e0d-1530 on p\mo qpipiiii+5:=
rWq? sGpipi+iii1i7 tW>s? ut vWs? wWs? xWs? yxt ztpi {Wz |wy{ }g
struct-ref ~W}s? pi W
~t Ws? WGs? W z t v| ru ti W
g vlist-offset g %vlist-offset-procedure g m-198d9e0d-1537 Z f l-198d9e0d-1539 \k ipiiii+5:= W ? U Gipi+iii1i7 W? TU f l-198d9e0d-153c f l-198d9e0d-153d \? ipiiii+5:=
W<? WG? ti W WM? TU f l-198d9e0d-1541 f l-198d9e0d-1542 \? ipiiii+5:=
W<? WG? i W W\? TU f l-198d9e0d-1546 f l-198d9e0d-1547 \? ipiiii+5:=
W<? WG? ti Wg g t-198d9e0d-1536 f l-198d9e0d-154b \ ipiiii+5:=
W? Gipi+iii1i7 W>? W? W? W? ti W W}? i W W? WG? W ti W g each UU U㌤ U䌤 U匤 g %%set-fields g check? g expr >, g m-198d9e0d-1552 Z GGGG f l-198d9e0d-1557 f l-198d9e0d-1558 f l-198d9e0d-1559 f l-198d9e0d-155a f l-198d9e0d-155b \ f l-198d9e0d-1554 \k g t-1e8ba8b5a-16a g t-1e8ba8b5a-16c g t-1e8ba8b5a-16b g m-1e8ba8b5a-16d Z f l-1e8ba8b5a-171 f l-1e8ba8b5a-172 f l-1e8ba8b5a-173 \ f l-1e8ba8b5a-167 f l-1e8ba8b5a-168 f l-1e8ba8b5a-169 \2~
Gipiiii
W
? ti
W W W g map g list g set-record-type-printer! f # f # g object-address f # g throw g wrong-type-arg f Not a vlist: ~S g % assert-vlist-procedure g assert-vlist g m-198d9e0d-157d Z !g t-198d9e0d-157c "! # $f l-198d9e0d-1582 %$ &\"#% 'f l-198d9e0d-157f (' )\k#( * &i)piiiiy
+WX* ,t&i) -W , .W* /W , 0./ 1-0 21 3W* 4g val 5W4, 65 7g unless 8W7, 9W , :95 ;W, <WG, =W, ><= ?W, @W , AW, BA5 C;>?@BB D8:C E36D F+2E Gti) HW G Ig % block-cons-procedure Jg
block-cons Kg m-198d9e0d-15a0 LKZ Mg t-198d9e0d-159d Ng t-198d9e0d-159e Og t-198d9e0d-159f PMNO QLLL Rf l-198d9e0d-15a5 Sf l-198d9e0d-15a6 Tf l-198d9e0d-15a7 URST V\PQU WL Xf l-198d9e0d-15a2 YX Z\kWY [LViZpiiiiy
\WX[ ]tViZ ^WJ] _W[ `WI] a_` b^a cb dW[ eg item fWe] gW] hW] ifgh jg let kWj] lW] mW ] nmg oln pW] qW
] rW] srg tqs upt vou wg cond xWw] yW] zylfp {W] |{lp }z| ~g else W~] g let* W] W] WJ] l WO] g 1- W] p g zero? W] W ] W] p W] g fluid-ref W] W4] x lh l W] l W] W] l W
] f {l x} kv di \c tiZ WI g fold g cons g equal? g
fold-right g hash g hashq g hashv g % %vhash-fold*-procedure g %vhash-fold* TUUUUUU g m-198d9e0d-1bf6 Z g t-198d9e0d-1bf0 g t-198d9e0d-1bf1 g t-198d9e0d-1bf2 g t-198d9e0d-1bf3 g t-198d9e0d-1bf4 g t-198d9e0d-1bf5 f l-198d9e0d-1bfb f l-198d9e0d-1bfc f l-198d9e0d-1bfd f l-198d9e0d-1bfe f l-198d9e0d-1bff f l-198d9e0d-1c00 \ f l-198d9e0d-1bf8 \k ipiiiiy
WX ti W W W W g proc W g init W W, g vhash W W W g define W g visit-block W W g
max-offset W g result W W W WJ W6 W W Wj g loop W W W W WA W g <= W g car W
W
g cdr W g
next-block W W g > W W
W' ! "! # " $# %$ & % '& (' )W *) +W ,+ -, . - /W 0/ 1,0 2.1 3(*2 43 5ti 6W5 7g % %vhash-assoc-procedure 8g %vhash-assoc 9g m-198d9e0d-2023 :9Z ;g t-198d9e0d-201f g t-198d9e0d-2022 ?;<=> @:::: Af l-198d9e0d-2028 Bf l-198d9e0d-2029 Cf l-198d9e0d-202a Df l-198d9e0d-202b EABCD F\?@E G: Hf l-198d9e0d-2025 IH J\kGI K:FiJpiiiiy
LWXK MtFiJ NW8M OWK PW7M QOP RNQ SR TWK UW,M VWM WWM XWM YUVWX ZWM [WM \WM ]WM ^[\] _WM `WM aWJM ba\ c`b dW6M eWM fe\ gdf hWM iXU` jhi kcgj lWjM mWM nWM oWM pod`h qnp rq sWM tWM uWM vun] wWM xW M yxdn zwy {WUz |tv{ }WAM ~}d`n m~ s|y WM WM \ WM a W
M W'M \ [ t l sn lmr _k Z^ W M V W M V a WM V [ t TY LS tiJ W7 g eqv?C 5 h ]4
E5 4H > " G 4Ii 54RJ h0 ]$ 4 5
C45
C g base
0 g offset 0 g size 0 g hash-tab? 0 g filenamef ice-9/vlist.scm
G
L M M M M O / O 0 g nameg % make-block-procedure CKR4NOPSV h ] C g t-198d9e0d-1237
g t-198d9e0d-1238 g t-198d9e0d-1239 g t-198d9e0d-123a CO h R ]L 6 J g a
g filenamef ice-9/vlist.scm G
CT h B ] L 6: g filenamef ice-9/vlist.scm G
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 ice-9/vlist.scm
G
n C5OR4NPS h R ] C J g dummy
g name g index C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef ice-9/vlist.scm
R
" g
macro-typeg syntax-rulesg patternsg nameg index C5R h { ]
C s g block
g filenamef ice-9/vlist.scm
V
g nameg % block-content-procedure CR4NPS h 7 ] C / g t-198d9e0d-126e
C h R ]L 6 J g a
g filenamef ice-9/vlist.scm V
CT h B ] L 6: g filenamef ice-9/vlist.scm V
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 ice-9/vlist.scm
V
n C5R h x ] C p g block
g filenamef ice-9/vlist.scm
W
g nameg % block-base-procedure CR4NPS# h 7 ] C / g t-198d9e0d-128a
C h R ]L 6 J g a
g filenamef ice-9/vlist.scm W
CT h B ] L 6: g filenamef ice-9/vlist.scm W
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 ice-9/vlist.scm
W
n C5R h z ] Cr g block
g filenamef ice-9/vlist.scm
X
g nameg % block-offset-procedure C&R4N'PSF h 7 ] C / g t-198d9e0d-12a6
C' h R ]L 6 J g a
g filenamef ice-9/vlist.scm X
CT h B ] L 6: g filenamef ice-9/vlist.scm X
CH 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 ice-9/vlist.scm
X
n C5'R h x ] Cp g block
g filenamef ice-9/vlist.scm
Y
g nameg % block-size-procedure CIR4NJPSi h 7 ] C / g t-198d9e0d-12c2
CJ h R ]L 6 J g a
g filenamef ice-9/vlist.scm Y
CT h B ] L 6: g filenamef ice-9/vlist.scm Y
Ck 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 ice-9/vlist.scm
Y
n C5JR h } ] Cu g block
g filenamef ice-9/vlist.scm
Z
g nameg % block-next-free-procedure ClR4NmPS h 7 ] C / g t-198d9e0d-12de
Cm h R ]L 6 J g a
g filenamef ice-9/vlist.scm Z
CT h B ] L 6: g filenamef ice-9/vlist.scm Z
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 ice-9/vlist.scm
Z
n C5mR h ] 4
5C g block
g filenamef ice-9/vlist.scm
\
] ] ] ' ] ] g nameg % block-hash-table?-procedure CR4NPS h 7 ] C / g t-198d9e0d-12f9
C h R ]L 6 J g a
g filenamef ice-9/vlist.scm \
CT h B ] L 6: g filenamef ice-9/vlist.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 ice-9/vlist.scm
\
n C5R h ] C g block
g next-free g filenamef ice-9/vlist.scm
_
` g nameg % set-block-next-free!-procedure CR4NPS h T ] C L g t-198d9e0d-1334
g t-198d9e0d-1335 C h R ]L 6 J g a
g filenamef ice-9/vlist.scm _
CT h B ] L 6: g filenamef ice-9/vlist.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 ice-9/vlist.scm
_
n C5R h8 ] $ ( $
CCC g block
8 g value 8 g offset 8 g next-free ) g filenamef ice-9/vlist.scm
b
d
d d e e d g % g - h 2 h 8 g nameg % block-append!-procedure CR4NPS h q ] C i g t-198d9e0d-1354
g t-198d9e0d-1355 g t-198d9e0d-1356 C h R ]L 6 J g a
g filenamef ice-9/vlist.scm b
CT h B ] L 6: g filenamef ice-9/vlist.scm b
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 ice-9/vlist.scm
b
n C5R h ] C g content
g offset g filenamef ice-9/vlist.scm
l
m g nameg % block-ref-procedure C R4N PS= h T ] C L g t-198d9e0d-13be
g t-198d9e0d-13bf C h R ]L 6 J g a
g filenamef ice-9/vlist.scm l
CT h B ] L 6: g filenamef ice-9/vlist.scm l
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 ice-9/vlist.scm
l
n C5 R h ] C g content
g size g offset g filenamef ice-9/vlist.scm
q
r
r g nameg (% block-hash-table-next-offset-procedure C@R4NAPSf h q ] C i g t-198d9e0d-13de
g t-198d9e0d-13df g t-198d9e0d-13e0 CA h R ]L 6 J g a
g filenamef ice-9/vlist.scm q
CT h B ] L 6: g filenamef ice-9/vlist.scm q
Ch 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 ice-9/vlist.scm
q
n C5AR h ] C g content
g size g offset g next-offset g filenamef ice-9/vlist.scm
v
x x g nameg -% block-hash-table-set-next-offset!-procedure CiR4NjPSV h ] C g t-198d9e0d-1403
g t-198d9e0d-1404 g t-198d9e0d-1405 g t-198d9e0d-1406 Cj h R ]L 6 J g a
g filenamef ice-9/vlist.scm v
CT h B ] L 6: g filenamef ice-9/vlist.scm v
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 ice-9/vlist.scm
v
n C5jR h ] C g content
g size g khash g filenamef ice-9/vlist.scm
|
}
} g nameg % block-hash-table-ref-procedure CR4NPS h q ] C i g t-198d9e0d-142d
g t-198d9e0d-142e g t-198d9e0d-142f C h R ]L 6 J g a
g filenamef ice-9/vlist.scm |
CT h B ] L 6: g filenamef ice-9/vlist.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 ice-9/vlist.scm
|
n C5R h ] C g content
g size g khash g offset g filenamef ice-9/vlist.scm
g nameg !% block-hash-table-set!-procedure CR4NPSV h ] C g t-198d9e0d-1452
g t-198d9e0d-1453 g t-198d9e0d-1454 g t-198d9e0d-1455 C h R ]L 6 J g a
g filenamef ice-9/vlist.scm
CT h B ] L 6: g filenamef ice-9/vlist.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 ice-9/vlist.scm
n C5R h( ] C g content
( g size ( g khash ( g offset ( g next-offset
g filenamef ice-9/vlist.scm
%
# ( g nameg !% block-hash-table-add!-procedure CR4NPSV h ] C g t-198d9e0d-147c
g t-198d9e0d-147d g t-198d9e0d-147e g t-198d9e0d-147f C h S ]L 6 K g a
g filenamef ice-9/vlist.scm
CT h C ] L 6; g filenamef ice-9/vlist.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 ice-9/vlist.scm
n C5R4Ji
5
R h ] C g base
g offset g filenamef ice-9/vlist.scm
g nameg %make-vlist-procedure CR4NPS h T ] C L g t-198d9e0d-14ff
g t-198d9e0d-1500 C h S ]L 6 K g a
g filenamef ice-9/vlist.scm
CT h C ] L 6; g filenamef ice-9/vlist.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 ice-9/vlist.scm
n C5R 4 > " G i R h r ] $ CC j g obj
g filenamef ice-9/vlist.scm
g nameg %vlist?-procedure CR4N PS h 7 ] C / g t-198d9e0d-150f
C h S ]L 6 K g a
g filenamef ice-9/vlist.scm
CT h C ] L 6; g filenamef ice-9/vlist.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 ice-9/vlist.scm
n C5 R h t ] &
C 6l g s
g filenamef ice-9/vlist.scm
g nameg %vlist-base-procedure C
R4N PS;FL h : ]C 2 g err
g s CPV[ h : ]C 2 g err
g s C_ek h : ]C 2 g err
g s C h 7 ] C / g t-198d9e0d-151b
C h S ]L 6 K g a
g filenamef ice-9/vlist.scm
CT h C ] L 6; g filenamef ice-9/vlist.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 ice-9/vlist.scm
C5 R h v ] & C 6n g s
g filenamef ice-9/vlist.scm
g nameg %vlist-offset-procedure CR4NPS 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-198d9e0d-1536
C h S ]L 6 K g a
g filenamef ice-9/vlist.scm
CT h C ] L 6; g filenamef ice-9/vlist.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 ice-9/vlist.scm
C5R4NgPS
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 ice-9/vlist.scm
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5gR4ii"5(2
hH ]4 5$ 64 5$ 4 54 564 56 g vl
E g port E g filenamef ice-9/vlist.scm
#
0 # # & 0 ' + . + 6 # < 0 = + E # E C> " G i i
#R h@ ] $ & C 6 6 g val
: g filenamef ice-9/vlist.scm
% ' + . 3 8 : : g nameg % assert-vlist-procedure C R4N PSF h 7 ] C / g t-198d9e0d-157c
C h S ]L 6 K g a
g filenamef ice-9/vlist.scm
CT h C ] L 6; g filenamef ice-9/vlist.scm
CH 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 ice-9/vlist.scm
n C5 R 4J h ]+&
" 45& " 45 " ~
$ " $ " [ $ 4 5
" 45
C $ ; $ +
$
C"?";"7 g item
g vlist g hash-tab? g base 7 g offset 7 g size D g offset j g size j g base g next-free
g filenamef ice-9/vlist.scm
7 7 D D I L Q [ _ j j g nameg % block-cons-procedure CIR4NJPS h q ] C i g t-198d9e0d-159d
g t-198d9e0d-159e g t-198d9e0d-159f CJ h S ]L 6 K g a
g filenamef ice-9/vlist.scm
CT h C ] L 6; g filenamef ice-9/vlist.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 ice-9/vlist.scm
n C5JR 4J h { ]*" #4 > " 'G " $ & " "" "
" _
$ " $ " [ 45
C $ ; $ +
$
C"^"Z"V s g item
g vlist g base R g offset R g size _ g offset g size g base g next-free g filenamef ice-9/vlist.scm
M g nameg
vlist-consg
documentationf ?Return a new vlist with ITEM as its head and VLIST as its
tail. C R hh ]" #4 > " 'G " $ & " "" "
C g vlist
a g base Q a g offset Q a g content Y a g filenamef ice-9/vlist.scm
M Q Q Y Y a g nameg
vlist-headg
documentationf Return the head of VLIST. C R h d ]!" #4 > " 'G " $ & " "" "
$ C C \ g vlist
g base Q g offset Q g offset ` l g base u g offset u g filenamef ice-9/vlist.scm
M Q Q Y ] ` ` p u u
g nameg
vlist-tailg
documentationf Return the tail of VLIST. C!R hh ] " #4 > " 'G " $ & " "" "
$ C
C g vlist
a g base M a g filenamef ice-9/vlist.scm
M M S W _ ` a g nameg vlist-null?g
documentationf Return true if VLIST is empty. C"R/ # h ]4 56 g lst
g filenamef ice-9/vlist.scm
g nameg list->vlistg
documentationf 4Return a new vlist whose contents correspond to LST. C$R h ]3" #4 > " 'G " $ & " "" "" V& C
$ " $ " 4
5 "
"
g proc
g init g vlist g base M g offset M g result M g next [ g done? a g content g filenamef ice-9/vlist.scm
M U [ [ a a i m y ~
!
g nameg
vlist-foldg
documentationf /Fold over VLIST, calling PROC for each element. C)R %( h ]" #4 > " 'G " $ & " "" "" &
$ C4 455 "45 " g proc
g init g vlist g index M s g result M s g filenamef ice-9/vlist.scm
M Q U [ \
_ k
s s t { g nameg vlist-fold-rightg
documentationf OFold over VLIST, calling PROC for each element, starting from
the last element. C*R) # h ] 6 g vlist
g filenamef ice-9/vlist.scm
g nameg
vlist-reverseg
documentationf EReturn a new VLIST whose content are those of VLIST in reverse
order. C/R) h | ]4L 56 t g item
g result g filenamef ice-9/vlist.scm
C#/ h ] O 456 g proc
g vlist g filenamef ice-9/vlist.scm
! g nameg vlist-mapg
documentationf ;Map PROC over the elements of VLIST and return a new vlist. C+R* h ] 6 g vlist
g filenamef ice-9/vlist.scm
#
% % g nameg vlist->listg
documentationf 6Return a new list whose contents match those of VLIST. C2R h ]*" #4 > " 'G " $ & " "" "" 6$
C "
" g vlist
g index g index M g base M g offset M g content _ i g offset _ i g filenamef ice-9/vlist.scm
'
) M * R - V - Z . _ . ( _ . n / t 0 y 1 / * + , * g nameg vlist-refg
documentationf +Return the element at index INDEX in VLIST. C%R h ]"" #4 > " 'G " $ & " "" "" 4$ C "
" g vlist
g count g count M g base M g offset M g offset [ g g filenamef ice-9/vlist.scm
3
6 M 7 R : V : [ ; [ ; l < r = w > < 7 8 9 7 g nameg
vlist-dropg
documentationf KReturn a new vlist that does not contain the COUNT first elements of
VLIST. C&R/! # hH { ]" 0
$ 6454455 " " s g vlist
F g count F g count 6 g vlist 6 g result 6 g filenamef ice-9/vlist.scm
@
C
F F G H I J " J , J 6 H 6 C
F g nameg
vlist-takeg
documentationf HReturn a new vlist that contains only the COUNT first elements of
VLIST. C'R* h } ]4L 5$ 6Cu g e
g v g filenamef ice-9/vlist.scm
O P
P Q C# h ] O 6 g pred
g vlist g filenamef ice-9/vlist.scm
L
O g nameg vlist-filterg
documentationf LReturn a new vlist containing all the elements from VLIST that
satisfy PRED. C0R0 h e ]4L L 5C ] g e
g filenamef ice-9/vlist.scm
Y Z Z
C h( - . , 3 # O 6 g x
% g vlist % g equal? % g filenamef ice-9/vlist.scm
V
% Y % g nameg vlist-deleteg
documentationf KReturn a new vlist corresponding to VLIST without the elements
EQUAL? to X. C1R h . ]" #4 > " 'G " $ & " "" "" & C "
" & g vlist
} g base M m g len M m g filenamef ice-9/vlist.scm
]
_ M ` U b \ d _ e d e e e m d m ` q ` u a } ` } g nameg vlist-lengthg
documentationf Return the length of VLIST. C(R# h S ]C K g x
g filenamef ice-9/vlist.scm
h , C h0 ]4L 5$ L 64L 54L4L 556 g seed
* g filenamef ice-9/vlist.scm
j k
k l m n n ( n * m
* g nameg uf C h8 ) - . , 3 # O Q 6 ! g p
5 g f 5 g g 5 g seed 5 g tail-gen 5 g uf " 5 g filenamef ice-9/vlist.scm
g
" j 5 g nameg vlist-unfoldg
documentationf HReturn a new vlist. See the description of SRFI-1 `unfold' for details. C,R# hX - . , 3 # " +4 5$ C454455 " " g p
Q g f Q g g Q g seed Q g tail Q g seed E g lis E g filenamef ice-9/vlist.scm
p
s t % t ) v 0 v 3 v ! = v E v E s Q g nameg vlist-unfold-rightg
documentationf NReturn a new vlist. See the description of SRFI-1 `unfold-right' for
details. C-R#* h k ] 6 c g e
g v
g filenamef ice-9/vlist.scm
} &
~ (
C h t ] 6 l g vlist
g result g filenamef ice-9/vlist.scm
| } C h - 1 3 ( C 6 g vlists
g filenamef ice-9/vlist.scm
x
z |
g nameg vlist-appendg
documentationf Append the given lists. C.R) h n ]L 6f g item
g x g filenamef ice-9/vlist.scm
C h ] O 6 g proc
g vlist g filenamef ice-9/vlist.scm
g nameg vlist-for-eachg
documentationf ?Call PROC on each element of VLIST. The result is unspecified. C3R h0 ] $ ! &
4
5CCC g obj
, g block ( g filenamef ice-9/vlist.scm
, g nameg vhash?g
documentationf "Return true if OBJ is a hash list. C5R 4J h - . , 3 # " #4 > " 'G " $ & " "" "
" l
$ " $ " [ 4 5
" \ $ F $ 2
$
" "N" "F" "> &
" 4 5 & " 4
5 4 5
C g key
g value g vhash g hash g item b @ g base m = g offset m = g size z g offset g size g base g next-free g vhash @ g base \ g offset x g size g khash g content g next-offset
g filenamef ice-9/vlist.scm
b b @ E \ a x g nameg
vhash-consg
documentationf jReturn a new hash list based on VHASH where KEY is associated
with VALUE. Use HASH to compute KEY's hash. C6R6 h ] 6 g t-198d9e0d-1bd9
g t-198d9e0d-1bda g t-198d9e0d-1bdb g filenamef ice-9/vlist.scm
g nameg vhash-consq C7R6 h ] 6 g t-198d9e0d-1be5
g t-198d9e0d-1be6 g t-198d9e0d-1be7 g filenamef ice-9/vlist.scm
g nameg vhash-consv C8R h( ( ]N"
4 5 " s $ F
$ (4
5$ 4
5"
"
"
$
"t
C
"{$ 0& " 4 > " G " 4 > " G
$
"C g proc
( g init ( g key ( g vhash ( g equal? ( g hash ( g base g
max-offset g result g size g content
g khash g offset " g result
" g
next-block r g block g filenamef ice-9/vlist.scm
" ( / 8 < = F , G ' I M N U ! V Z n r r y { *
% * ( g nameg % %vhash-fold*-procedure CR4NPS4 h ] C g t-198d9e0d-1bf0
g t-198d9e0d-1bf1 g t-198d9e0d-1bf2 g t-198d9e0d-1bf3 g t-198d9e0d-1bf4 g t-198d9e0d-1bf5 C h S ]L 6 K g a
g filenamef ice-9/vlist.scm
CT h C ] L 6; g filenamef ice-9/vlist.scm
C6 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 ice-9/vlist.scm
n C5R h8 ] - . , 3 # # "
4 5 " s $ F
$ (4
5$ 4
5"
"
"
$
"t
C
"{" #4 > " 'G " $ & " "" "
$
"C U g proc
7 g init 7 g key 7 g vhash 7 g equal? 7 g hash 7 g base $ g
max-offset $ g result $ g size ) g content
/ g khash : g offset @ g result
@ g
next-block g block g filenamef ice-9/vlist.scm
$ 7 g nameg vhash-fold*g
documentation k F o l d o v e r a l l t h e v a l u e s a s s o c i a t e d w i t h K E Y i n V H A S H , w i t h e a c h
c a l l t o P R O C h a v i n g t h e f o r m ( p r o c v a l u e r e s u l t ) , w h e r e
R E S U L T i s t h e r e s u l t o f t h e p r e v i o u s c a l l t o P R O C a n d I N I T t h e
v a l u e o f R E S U L T f o r t h e f i r s t c a l l t o P R O C . CAR h } ]T "
45
" n $ A $ # & 4 5" " "
$
"y C
"" #4 > " 'G " $ & " "" "
$
"Cu g proc
g init g key g vhash g hash g base
g
max-offset
g result
g size g content g khash
g offset & g result & g
next-block
q g block g filenamef ice-9/vlist.scm
g nameg vhash-foldq*g
documentationk S a m e a s v h a s h - f o l d * , b u t u s i n g h a s h q a n d e q ? . CBR h ]T "
45
" o $ B $ $ $ 4 5" " "
$
"x C
"" #4 > " 'G " $ & " "" "
$
"C y g proc
g init g key g vhash g hash g base
g
max-offset
g result
g size g content g khash
g offset & g result & g
next-block
r g block g filenamef ice-9/vlist.scm
g nameg vhash-foldv*g
documentationk S a m e a s v h a s h - f o l d * , b u t u s i n g h a s h v a n d e q v ? . CCR h ]<"
4 5 " j $ B $ (4 5$ C " "
$
"|C "$ 0& " 4 > " G " 4 > " G
$
"C g key
g vhash g equal? g hash g base g
max-offset g size g content g khash g offset " g
next-block
n g block g filenamef ice-9/vlist.scm
" ( - 1 2 ; & < ! > B G
O Y ` j n n u
w
{
+
) g nameg % %vhash-assoc-procedure C7R4N8PSV h ] C g t-198d9e0d-201f
g t-198d9e0d-2020 g t-198d9e0d-2021 g t-198d9e0d-2022 C8 h S ]L 6 K g a
g filenamef ice-9/vlist.scm
CT h C ] L 6; g filenamef ice-9/vlist.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 ice-9/vlist.scm
n C58R h - . , 3 # # "
4 5 " e $ =" " $ 4 5$ C""
$
"C "" #4 > " 'G " $ & " "" "
$
"C g key
g vhash g equal? g hash g base $ g
max-offset $ g size ) g content / g khash : g offset @ g
next-block
g block g filenamef ice-9/vlist.scm
$ g nameg vhash-assocg
documentationf pReturn the first key/value pair from VHASH whose key is equal to
KEY according to the EQUAL? equality predicate. C9R h u ]B "
4 5 " `$ 8" "$ & C""
$ "C "" #4 > " 'G " $ & " "" "
$
" C m g key
g vhash g hash g base
g
max-offset
g size g content g khash g offset & g
next-block h g block g filenamef ice-9/vlist.scm
g nameg
vhash-assqg
documentation k R e t u r n t h e f i r s t k e y / v a l u e p a i r f r o m V H A S H w h o s e k e y i s e q ? t o
K E Y . C:R h y ]B "
4 5 " a$ 9" "$ $ C""
$ "C "" #4 > " 'G " $ & " "" "
$
"
C q g key
g vhash g hash g base
g
max-offset
g size g content g khash g offset & g
next-block i g block g filenamef ice-9/vlist.scm
" g nameg
vhash-assvg
documentation k R e t u r n t h e f i r s t k e y / v a l u e p a i r f r o m V H A S H w h o s e k e y i s e q v ? t o
K E Y . C;R9)6 h( ] 4LL5$ CL 6 g k+v
( g result ( g k ( g v ( g filenamef ice-9/vlist.scm
( ) * )
+ + ( - ( C# hH ! - . , 3 # # 4 5$ O 6C g key
G g vhash G g equal? G g hash G g filenamef ice-9/vlist.scm
$
! ' 1 ' D ( G g nameg vhash-deleteg
documentationf HRemove all associations from VHASH with KEY, comparing keys
with EQUAL?. CR) h ]L 6 g key+value
g result g filenamef ice-9/vlist.scm
: ;
; & ; C h m ] O 6 e g proc
g init g vhash g filenamef ice-9/vlist.scm
5
: g nameg
vhash-foldg
documentation k F o l d o v e r t h e k e y / p a i r e l e m e n t s o f V H A S H f r o m l e f t t o r i g h t , w i t h
e a c h c a l l t o P R O C h a v i n g t h e f o r m ( P R O C k e y v a l u e r e s u l t ) ,
w h e r e R E S U L T i s t h e r e s u l t o f t h e p r e v i o u s c a l l t o P R O C a n d
I N I T t h e v a l u e o f R E S U L T f o r t h e f i r s t c a l l t o P R O C . C?R* h ]L 6 g key+value
g result g filenamef ice-9/vlist.scm
E F
F , F C h u ] O 6 m g proc
g init g vhash g filenamef ice-9/vlist.scm
@
E g nameg vhash-fold-rightg
documentation k F o l d o v e r t h e k e y / p a i r e l e m e n t s o f V H A S H f r o m r i g h t t o l e f t , w i t h
e a c h c a l l t o P R O C h a v i n g t h e f o r m ( P R O C k e y v a l u e r e s u l t ) ,
w h e r e R E S U L T i s t h e r e s u l t o f t h e p r e v i o u s c a l l t o P R O C a n d
I N I T t h e v a l u e o f R E S U L T f o r t h e f i r s t c a l l t o P R O C . C@R6 h ] L 6} g pair
g result g filenamef ice-9/vlist.scm
M N
N ' N C# h( - . , 3 # O 6 g alist
% g hash % g filenamef ice-9/vlist.scm
K
% M % g nameg alist->vhashg
documentationf =Return the vhash corresponding to ALIST, an association list. CDRC g m
, g rtd
:D :p g base
J J g filenamef ice-9/vlist.scm
- E 8 D
g G
V V
t W
X
Y
Z
; \
_
b
l
$ q
(T v
, |
/
3
6 6
7
I
J J
K
Q
W
X
Z
\%
]#
`
bX
cW
e
e #
hg '
j 3
l @
nw L
p8 V
r ]
t g
v p
x x
zt
{
^
6
@
\
$
2
` 3
5
@
K
A
C6