GOOF----LE-8-2.06>]4hz] gguile  gdefine-module*   gice-9 gvlist  gfilenameS fice-9/vlist.scm gimportsS gsrfi gsrfi-1     gsrfi-9    ggnu    gsrfi-26    gformat    gexportsS gvlist? 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 *gvlist-fold-right +g vlist-map ,g vlist-unfold -gvlist-unfold-right .g vlist-append /g vlist-reverse 0g vlist-filter 1g vlist-delete 2g vlist->list 3gvlist-for-each 4gblock-growth-factor 5gvhash? 6g vhash-cons 7g vhash-consq 8g vhash-consv 9g vhash-assoc :g vhash-assq ;g vhash-assv g vhash-delv ?g vhash-fold @gvhash-fold-right Ag vhash-fold* Bg vhash-foldq* Cg vhash-foldv* Dg alist->vhash E !"#$%&'()*+,-./0123456789:;<=>?@ABCD' Fgset-current-module GF HF Ig make-fluid Jg make-vector Kg% make-block-procedure Lgmake-syntax-transformer ML NL Og make-block Pgmacro Qg $sc-dispatch RQ SQ Tg_ Ugany VTUUUU Wg syntax-object Xgsyntax-parameterize Ygm-198d9e0d-123b Zgtop [YZ \gribcage ]gt-198d9e0d-1237 ^gt-198d9e0d-1238 _gt-198d9e0d-1239 `gt-198d9e0d-123a a]^_` b[[[[ cfl-198d9e0d-1240 dfl-198d9e0d-1241 efl-198d9e0d-1242 ffl-198d9e0d-1243 gcdef h\abg i\ jgx kj l[ mfl-198d9e0d-123d nm o\kln pgshift qg proc-name rgargs sqr tZ utt vf l-bde397a-8e8 wf l-bde397a-8e9 xvw y\sux zgname {gformals |gbody }z{| ~ttt f l-bde397a-8df f l-bde397a-8e0 f l-bde397a-8e1  \}~ gmake-procedure-name gprefix  tt f l-bde397a-8d3 f l-bde397a-8d1  \ t f l-bde397a-8d0  \k [hiopiiiiy  ghygiene  WX thio  WO gidentifier-syntax W WK    glambda W gbase W goffset W gsize W g hash-tab? W  gif W gvector W WJ g* W W   W  W        geach-any T gsyntax-violation   fWrong number of arguments g identifier?   tio WK f-source expression failed to match any pattern gdefine-block-accessor UUU gdefine-inlinable gdummy gindex z gm-198d9e0d-1262 Z tt fl-198d9e0d-1267 fl-198d9e0d-1268 fl-198d9e0d-1269  \  fl-198d9e0d-1264  \k ti W gblock W  g vector-ref W g% block-content-procedure g block-content TU gm-198d9e0d-126f Z gt-198d9e0d-126e   fl-198d9e0d-1274  \ fl-198d9e0d-1271  \k ipiiiiy  WX ti W W W    W gm-198d9e0d-126d Z ipi W  W W     ti W g% block-base-procedure g block-base gm-198d9e0d-128b Z gt-198d9e0d-128a     fl-198d9e0d-1290     \    fl-198d9e0d-128d   \k   ipiiiiy  WX t i W W W    W gm-198d9e0d-1289 Z  ipi W  W  W  !  "! #" $ti %W$ &g% block-offset-procedure 'g block-offset (gm-198d9e0d-12a7 )(Z *gt-198d9e0d-12a6 +* ,) -fl-198d9e0d-12ac .- /\+,. 0fl-198d9e0d-12a9 10 2\k,1 3)/i2piiiiy  4WX3 5t/i2 6W'5 7W3 8W&5 978 :69 ;: <W3 =gm-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 Kgm-198d9e0d-12c3 LKZ Mgt-198d9e0d-12c2 NM OL Pfl-198d9e0d-12c8 QP R\NOQ Sfl-198d9e0d-12c5 TS U\kOT VLRiUpiiiiy  WWXV XtRiU YWJX ZWV [WIX \Z[ ]Y\ ^] _WV `gm-198d9e0d-12c1 a`Z baRiUpi cWb dc eWb fW X gecf h_dg iW^h jtiU kWIj lg% block-next-free-procedure mgblock-next-free ngm-198d9e0d-12df onZ pgt-198d9e0d-12de qp ro sfl-198d9e0d-12e4 ts u\qrt vfl-198d9e0d-12e1 wv x\krw youixpiiiiy  zWXy {tuix |Wm{ }Wy ~Wl{ }~ |  Wy gm-198d9e0d-12dd Z uixpi W  W W {   z tix Wl g vector-length g% block-hash-table?-procedure gblock-hash-table? gm-198d9e0d-12fa Z gt-198d9e0d-12f9   fl-198d9e0d-12ff  \ fl-198d9e0d-12fc  \k ipiiiiy  WX ti W W W    W W  g< W WJ  W W      ti W g % set-block-next-free!-procedure gset-block-next-free! TUU gm-198d9e0d-1336 Z gt-198d9e0d-1334 gt-198d9e0d-1335   fl-198d9e0d-133b fl-198d9e0d-133c  \  fl-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 gm-198d9e0d-1357 Z gt-198d9e0d-1354 gt-198d9e0d-1355 gt-198d9e0d-1356   fl-198d9e0d-135c fl-198d9e0d-135d fl-198d9e0d-135e  \  fl-198d9e0d-1359  \k ipiiiiy  WX ti W W W    W W gvalue W W  gand W W WJ   g= W Wm     gbegin  W   W  g1+ W     W W   W       ti W g% block-ref-procedure g block-ref gm-198d9e0d-13c0 Z  gt-198d9e0d-13be !gt-198d9e0d-13bf " ! # $fl-198d9e0d-13c5 %fl-198d9e0d-13c6 &$% '\"#& ( )fl-198d9e0d-13c2 *) +\k(* ,'i+piiiiy  -WX, .t'i+ /W. 0W, 1W. 201 3/2 43 5W, 6gcontent 7W6. 8W. 978 :W. ;:78 <59; =-4< >ti+ ?W> @g(% block-hash-table-next-offset-procedure Agblock-hash-table-next-offset Bgm-198d9e0d-13e1 CBZ Dgt-198d9e0d-13de Egt-198d9e0d-13df Fgt-198d9e0d-13e0 GDEF HCCC Ifl-198d9e0d-13e6 Jfl-198d9e0d-13e7 Kfl-198d9e0d-13e8 LIJK M\GHL NC Ofl-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! kgm-198d9e0d-1407 lkZ mgt-198d9e0d-1403 ngt-198d9e0d-1404 ogt-198d9e0d-1405 pgt-198d9e0d-1406 qmnop rllll sfl-198d9e0d-140c tfl-198d9e0d-140d ufl-198d9e0d-140e vfl-198d9e0d-140f wstuv x\qrw yl zfl-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 gblock-hash-table-ref gm-198d9e0d-1430 Z gt-198d9e0d-142d gt-198d9e0d-142e gt-198d9e0d-142f   fl-198d9e0d-1435 fl-198d9e0d-1436 fl-198d9e0d-1437  \  fl-198d9e0d-1432  \k ipiiiiy  WX ti W W W    W W6 W gkhash W  W Wa     ti W g!% block-hash-table-set!-procedure gblock-hash-table-set! gm-198d9e0d-1456 Z gt-198d9e0d-1452 gt-198d9e0d-1453 gt-198d9e0d-1454 gt-198d9e0d-1455   fl-198d9e0d-145b fl-198d9e0d-145c fl-198d9e0d-145d fl-198d9e0d-145e  \  fl-198d9e0d-1458  \k ipiiiiy  WX ti W W W    W W6 W W W  W Wa     ti W g!% block-hash-table-add!-procedure gblock-hash-table-add! gm-198d9e0d-1480 Z gt-198d9e0d-147c gt-198d9e0d-147d gt-198d9e0d-147e gt-198d9e0d-147f   fl-198d9e0d-1485 fl-198d9e0d-1486 fl-198d9e0d-1487 fl-198d9e0d-1488  \  fl-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 gm-198d9e0d-1501 Z gt-198d9e0d-14ff gt-198d9e0d-1500    fl-198d9e0d-1506 !fl-198d9e0d-1507 " ! #\" $ %fl-198d9e0d-1503 &% '\k$& (fl-1e8ba8b5a-60 )fl-1e8ba8b5a-61 *() +\su* ,gkey -,z{| .ttttt /fl-1e8ba8b5a-53 0fl-1e8ba8b5a-54 1fl-1e8ba8b5a-55 2fl-1e8ba8b5a-56 3fl-1e8ba8b5a-57 4/0123 5\-.4 6 7t 8fl-1e8ba8b5a-43 98 :\679 ;fl-1e8ba8b5a-42 <; =\k< >#i'piiii+5:=  ?  @W>? At#i' BWA CWA DBC Eg make-struct Fgm-198d9e0d-14fd GFZ Hgt-1e8ba8b5a-133 Igt-1e8ba8b5a-132 Jgt-1e8ba8b5a-131 KHIJ Lgm-1e8ba8b5a-134 MLZ NMMM Ofl-1e8ba8b5a-138 Pfl-1e8ba8b5a-139 Qfl-1e8ba8b5a-13a ROPQ S\KNR Tg ctor-args UT Vfl-1e8ba8b5a-120 WV X\UW Ygctor Zgfield [YZ \fl-1e8ba8b5a-11c ]fl-1e8ba8b5a-11d ^\] _\[u^ `gform ag type-name bgconstructor-spec cg field-names d`abc etttt ffl-1e8ba8b5a-111 gfl-1e8ba8b5a-112 hfl-1e8ba8b5a-113 ifl-1e8ba8b5a-114 jfghi k\dej lg record-layout mgfunctional-setters ngsetters ogcopier pggetters qg constructor rggetter-identifiers sgfield-identifiers tlmnopqrs utttttttt vfl-1e8ba8b5a-e9 wfl-1e8ba8b5a-e7 xfl-1e8ba8b5a-e5 yfl-1e8ba8b5a-e3 zfl-1e8ba8b5a-e1 {fl-1e8ba8b5a-df |fl-1e8ba8b5a-dd }fl-1e8ba8b5a-db ~vwxyz{|} \tu~ fl-1e8ba8b5a-da  \k G#i'piSiiiX_ik WE? WA W ? BC @D     ti' W grecord-type-vtable   gpwpw gdefault-record-printer    gset-struct-vtable-name!   gvtable-offset-user   g%vlist?-procedure gm-198d9e0d-1510 Z gt-198d9e0d-150f   fl-198d9e0d-1515  \ fl-198d9e0d-1512  \k ipiiii+5:=  W? gobj gt-1e8ba8b5a-224 gt-1e8ba8b5a-21e gt-1e8ba8b5a-21f gt-1e8ba8b5a-220 gt-1e8ba8b5a-223 gt-1e8ba8b5a-222 gt-1e8ba8b5a-221  gm-1e8ba8b5a-225 Z  fl-1e8ba8b5a-229 fl-1e8ba8b5a-22a fl-1e8ba8b5a-22b fl-1e8ba8b5a-22c fl-1e8ba8b5a-22d fl-1e8ba8b5a-22e fl-1e8ba8b5a-22f  \ g copier-id  fl-1e8ba8b5a-21c  \ g ctor-name  fl-1e8ba8b5a-214  \ c fl-1e8ba8b5a-212  \ glayout  fl-1e8ba8b5a-210  \ g immutable?  fl-1e8ba8b5a-20e  \ g field-count  fl-1e8ba8b5a-20c  \ g getter-ids  fl-1e8ba8b5a-209  \ g field-ids  fl-1e8ba8b5a-206  \ gpredicate-name g field-spec `ab tttttt fl-1e8ba8b5a-1f9 fl-1e8ba8b5a-1fa fl-1e8ba8b5a-1fb fl-1e8ba8b5a-1fc fl-1e8ba8b5a-1fd fl-1e8ba8b5a-1fe  \ Gipiiiiiiiiiiii W?  W? gstruct? W?  geq? W? g struct-vtable W?  ti W    ti W gthrow-bad-struct    g vlist-base  g%vlist-base-procedure  gfree-id  g %%on-error  gm-198d9e0d-151c  Z  fl-198d9e0d-151e  \k ipiiii+5:=  W ?   U g%%type gt-1e8ba8b5a-14b gt-1e8ba8b5a-14c gt-1e8ba8b5a-14d gt-1e8ba8b5a-14e gt-1e8ba8b5a-14f gt-1e8ba8b5a-150 gt-1e8ba8b5a-151   gm-1e8ba8b5a-152 ! Z "!!!!!!! #fl-1e8ba8b5a-156 $fl-1e8ba8b5a-157 %fl-1e8ba8b5a-158 &fl-1e8ba8b5a-159 'fl-1e8ba8b5a-15a (fl-1e8ba8b5a-15b )fl-1e8ba8b5a-15c *#$%&'() +\"* ,ggetter -, .fl-1e8ba8b5a-149 /fl-1e8ba8b5a-14a 0./ 1\-u0 2a 3fl-1e8ba8b5a-144 4fl-1e8ba8b5a-145 5fl-1e8ba8b5a-146 6345 7\2~6 8Gipi+iii1i7 9W8? : 9 ;T:U gs ?=> @ Afl-198d9e0d-1521 Bfl-198d9e0d-1522 CAB D\?@C EDipiiii+5:=  FW<E? Ggquote HWGE? ItDi JWI KHJ LK Mg%%index NWM8? O N PTOU Qfl-198d9e0d-1526 Rfl-198d9e0d-1527 SQR T\?@S UTipiiii+5:=  VW<U? WWGU? XTi YW X ZWY [Z \g%%copier ]W\8? ^ ] _T^U `fl-198d9e0d-152b afl-198d9e0d-152c b`a c\?@b dcipiiii+5:=  eW<d? fWGd? gg%%-set-fields htci iWgh jfi kj lgt-198d9e0d-151b ml nfl-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 gm-198d9e0d-1537 Z  fl-198d9e0d-1539  \k ipiiii+5:=  W ?   U Gipi+iii1i7 W?   TU  fl-198d9e0d-153c fl-198d9e0d-153d  \? ipiiii+5:=  W<? WG? ti W   WM?   TU fl-198d9e0d-1541 fl-198d9e0d-1542  \? ipiiii+5:=  W<? WG? i W    W\?   TU fl-198d9e0d-1546 fl-198d9e0d-1547  \? ipiiii+5:=  W<? WG? ti Wg   gt-198d9e0d-1536  fl-198d9e0d-154b  \ ipiiii+5:=  W? Gipi+iii1i7 W>?  W? W? W?  ti W  W}? i W   W? WG? W     ti W geach UU  U㌤ U䌤 U匤 g %%set-fields gcheck? gexpr >, gm-198d9e0d-1552 Z GGGG fl-198d9e0d-1557 fl-198d9e0d-1558 fl-198d9e0d-1559 fl-198d9e0d-155a fl-198d9e0d-155b  \  fl-198d9e0d-1554  \k gt-1e8ba8b5a-16a gt-1e8ba8b5a-16c gt-1e8ba8b5a-16b  gm-1e8ba8b5a-16d Z  fl-1e8ba8b5a-171 fl-1e8ba8b5a-172 fl-1e8ba8b5a-173  \ fl-1e8ba8b5a-167 fl-1e8ba8b5a-168 fl-1e8ba8b5a-169   \2~  Gipiiii    W ?  ti  W  W   W   gmap   glist gset-record-type-printer! f # f# gobject-address f # gthrow gwrong-type-arg fNot a vlist: ~S g% assert-vlist-procedure g assert-vlist gm-198d9e0d-157d  Z !gt-198d9e0d-157c "! #  $fl-198d9e0d-1582 %$ &\"#% 'fl-198d9e0d-157f (' )\k#( * &i)piiiiy  +WX* ,t&i) -W, .W* /W, 0./ 1-0 21 3W* 4gval 5W4, 65 7gunless 8W7, 9W, :95 ;W, <WG, =W, ><= ?W, @W, AW, BA5 C;>?@BB D8:C E36D F+2E Gti) HWG Ig% block-cons-procedure Jg block-cons Kgm-198d9e0d-15a0 LKZ Mgt-198d9e0d-159d Ngt-198d9e0d-159e Ogt-198d9e0d-159f PMNO QLLL Rfl-198d9e0d-15a5 Sfl-198d9e0d-15a6 Tfl-198d9e0d-15a7 URST V\PQU WL Xfl-198d9e0d-15a2 YX Z\kWY [LViZpiiiiy  \WX[ ]tViZ ^WJ] _W[ `WI] a_` b^a cb dW[ egitem fWe] gW] hW] ifgh jglet kWj] lW] mW ] nmg oln pW] qW ] rW] srg tqs upt vou wgcond xWw] yW] zylfp {W] |{lp }z| ~gelse W~] glet* W] W] WJ] l  WO] g1- W] p gzero? 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 gfold gcons gequal? g fold-right ghash ghashq ghashv g% %vhash-fold*-procedure g %vhash-fold* TUUUUUU gm-198d9e0d-1bf6 Z gt-198d9e0d-1bf0 gt-198d9e0d-1bf1 gt-198d9e0d-1bf2 gt-198d9e0d-1bf3 gt-198d9e0d-1bf4 gt-198d9e0d-1bf5   fl-198d9e0d-1bfb fl-198d9e0d-1bfc fl-198d9e0d-1bfd fl-198d9e0d-1bfe fl-198d9e0d-1bff fl-198d9e0d-1c00  \  fl-198d9e0d-1bf8  \k ipiiiiy  WX ti W W W    W gproc W ginit W W, gvhash W W W  gdefine W g visit-block W W g max-offset W gresult W  W W WJ   W6 W   W    Wj gloop W W W     W WA  W g<= W  gcar  W  W             gcdr 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 9gm-198d9e0d-2023 :9Z ;gt-198d9e0d-201f gt-198d9e0d-2022 ?;<=> @:::: Afl-198d9e0d-2028 Bfl-198d9e0d-2029 Cfl-198d9e0d-202a Dfl-198d9e0d-202b EABCD F\?@E G: Hfl-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 xWM yxdn zwy {WUz |tv{ }WAM ~}d`n m~ s|y WM WM \   WM a W M  W'M \ [ t l sn lmr _k Z^ WM V W M V a  WM V [ t TY LS tiJ W7 geqv?C5h ]4   E54H>"G4Ii 54RJh0]$4 5 C45 Cgbase  0goffset  0gsize   0g hash-tab?   0gfilenamefice-9/vlist.scm G  L  M   M   M   M   O  / O   0 gnameg% make-block-procedureCKR4NOPSVh]Cgt-198d9e0d-1237  gt-198d9e0d-1238  gt-198d9e0d-1239   gt-198d9e0d-123a      COhR]L6Jga  gfilenamefice-9/vlist.scm  G   CThB]L6:gfilenamefice-9/vlist.scm  G    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm G   n C5OR4NPShR]CJgdummy  gname  gindex      Ch(] 45$@6gx  "gtmp "gfilenamefice-9/vlist.scm R   " g macro-typeg syntax-rulesgpatternsgnamegindexC5Rh{] Csgblock  gfilenamefice-9/vlist.scm V    gnameg% block-content-procedureCR4NPSh7]C/gt-198d9e0d-126e    ChR]L6Jga  gfilenamefice-9/vlist.scm  V   CThB]L6:gfilenamefice-9/vlist.scm  V    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm V   n C5Rhx] Cpgblock  gfilenamefice-9/vlist.scm W    gnameg% block-base-procedureCR4NPS#h7]C/gt-198d9e0d-128a    ChR]L6Jga  gfilenamefice-9/vlist.scm  W   CThB]L6:gfilenamefice-9/vlist.scm  W    C%h]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm W   n C5Rhz] Crgblock  gfilenamefice-9/vlist.scm X    gnameg% block-offset-procedureC&R4N'PSFh7]C/gt-198d9e0d-12a6    C'hR]L6Jga  gfilenamefice-9/vlist.scm  X   CThB]L6:gfilenamefice-9/vlist.scm  X    CHh]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm X   n C5'Rhx] Cpgblock  gfilenamefice-9/vlist.scm Y    gnameg% block-size-procedureCIR4NJPSih7]C/gt-198d9e0d-12c2    CJhR]L6Jga  gfilenamefice-9/vlist.scm  Y   CThB]L6:gfilenamefice-9/vlist.scm  Y    Ckh]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm Y   n C5JRh}] Cugblock  gfilenamefice-9/vlist.scm Z    gnameg% block-next-free-procedureClR4NmPSh7]C/gt-198d9e0d-12de    CmhR]L6Jga  gfilenamefice-9/vlist.scm  Z   CThB]L6:gfilenamefice-9/vlist.scm  Z    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm Z   n C5mRh] 4 5Cgblock  gfilenamefice-9/vlist.scm \  ]   ]   ] '  ]   ]    gnameg% block-hash-table?-procedureCR4NPSh7]C/gt-198d9e0d-12f9    ChR]L6Jga  gfilenamefice-9/vlist.scm  \   CThB]L6:gfilenamefice-9/vlist.scm  \    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm \   n C5Rh] Cgblock  g next-free  gfilenamefice-9/vlist.scm _ `   gnameg % set-block-next-free!-procedureCR4NPShT]CLgt-198d9e0d-1334  gt-198d9e0d-1335    ChR]L6Jga  gfilenamefice-9/vlist.scm  _   CThB]L6:gfilenamefice-9/vlist.scm  _    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm _   n C5Rh8 ]  $( $  CCCgblock  8gvalue  8goffset   8g next-free   )gfilenamefice-9/vlist.scm b d  d   d   e   e   d   g %  g - h  2 h   8 gnameg% block-append!-procedureCR4NPShq]Cigt-198d9e0d-1354  gt-198d9e0d-1355  gt-198d9e0d-1356      ChR]L6Jga  gfilenamefice-9/vlist.scm  b   CThB]L6:gfilenamefice-9/vlist.scm  b    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm b   n C5Rh]Cgcontent  goffset  gfilenamefice-9/vlist.scm l  m    gnameg% block-ref-procedureCR4NPS=hT]CLgt-198d9e0d-13be  gt-198d9e0d-13bf    ChR]L6Jga  gfilenamefice-9/vlist.scm  l   CThB]L6:gfilenamefice-9/vlist.scm  l    C?h]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm l   n C5Rh]Cgcontent  gsize  goffset   gfilenamefice-9/vlist.scm q r  r    gnameg(% block-hash-table-next-offset-procedureC@R4NAPSfhq]Cigt-198d9e0d-13de  gt-198d9e0d-13df  gt-198d9e0d-13e0      CAhR]L6Jga  gfilenamefice-9/vlist.scm  q   CThB]L6:gfilenamefice-9/vlist.scm  q    Chh]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm q   n C5ARh]Cgcontent  gsize  goffset   g next-offset   gfilenamefice-9/vlist.scm v x   x    gnameg-% block-hash-table-set-next-offset!-procedureCiR4NjPSVh]Cgt-198d9e0d-1403  gt-198d9e0d-1404  gt-198d9e0d-1405   gt-198d9e0d-1406      CjhR]L6Jga  gfilenamefice-9/vlist.scm  v   CThB]L6:gfilenamefice-9/vlist.scm  v    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm v   n C5jRh]Cgcontent  gsize  gkhash   gfilenamefice-9/vlist.scm | }  }   gnameg % block-hash-table-ref-procedureCR4NPShq]Cigt-198d9e0d-142d  gt-198d9e0d-142e  gt-198d9e0d-142f      ChR]L6Jga  gfilenamefice-9/vlist.scm  |   CThB]L6:gfilenamefice-9/vlist.scm  |    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm |   n C5Rh]Cgcontent  gsize  gkhash   goffset   gfilenamefice-9/vlist.scm      gnameg!% block-hash-table-set!-procedureCR4NPSVh]Cgt-198d9e0d-1452  gt-198d9e0d-1453  gt-198d9e0d-1454   gt-198d9e0d-1455      ChR]L6Jga  gfilenamefice-9/vlist.scm     CThB]L6:gfilenamefice-9/vlist.scm      Ch]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm    n C5Rh(] Cgcontent  (gsize  (gkhash   (goffset   (g next-offset  gfilenamefice-9/vlist.scm %  #   ( gnameg!% block-hash-table-add!-procedureCR4NPSVh]Cgt-198d9e0d-147c  gt-198d9e0d-147d  gt-198d9e0d-147e   gt-198d9e0d-147f      ChS]L6Kga  gfilenamefice-9/vlist.scm    CThC]L6;gfilenamefice-9/vlist.scm     Ch]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm   n C5R4Ji 5 Rh]Cgbase  goffset  gfilenamefice-9/vlist.scm   gnameg%make-vlist-procedureCR4NPShT]CLgt-198d9e0d-14ff  gt-198d9e0d-1500    ChS]L6Kga  gfilenamefice-9/vlist.scm    CThC]L6;gfilenamefice-9/vlist.scm     Ch]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm   n C5R4>"G iRhr]$CCjgobj  gfilenamefice-9/vlist.scm    gnameg%vlist?-procedureCR4NPSh7]C/gt-198d9e0d-150f    ChS]L6Kga  gfilenamefice-9/vlist.scm    CThC]L6;gfilenamefice-9/vlist.scm     Ch]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm   n C5R ht]& C6lgs  gfilenamefice-9/vlist.scm    gnameg%vlist-base-procedureC R4N PS;FLh:]C2gerr  gs    CPV[h:]C2gerr  gs    C_ekh:]C2gerr  gs    Ch7]C/gt-198d9e0d-151b    C hS]L6Kga  gfilenamefice-9/vlist.scm    CThC]L6;gfilenamefice-9/vlist.scm     Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefice-9/vlist.scm   C5 Rhv]& C6ngs  gfilenamefice-9/vlist.scm    gnameg%vlist-offset-procedureCR4NPSh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch7]C/gt-198d9e0d-1536    ChS]L6Kga  gfilenamefice-9/vlist.scm    CThC]L6;gfilenamefice-9/vlist.scm     Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefice-9/vlist.scm   C5R4NgPS  h v]45Cngdummy  gcheck?  gs   ggetter   gexpr      Ch(] 45$@6gx  "gtmp "gfilenamefice-9/vlist.scm   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5gR4ii"5(2 hH]45$645$454564 56gvl  Egport  Egfilenamefice-9/vlist.scm   #   0  #  #  & 0 ' + . + 6 # < 0 = + E #  E C>"Gii #Rh@]$&C66gval  :gfilenamefice-9/vlist.scm     % '  + . 3 8 :   : gnameg% assert-vlist-procedureCR4NPSFh7]C/gt-198d9e0d-157c    ChS]L6Kga  gfilenamefice-9/vlist.scm    CThC]L6;gfilenamefice-9/vlist.scm     CHh]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm   n C5R 4Jh]+& " 45& " 45"~  $ "$ "[$4 5 "45     C $; $+  $ C"?";"7gitem  gvlist  g hash-tab?   gbase  7 goffset  7 gsize  D goffset  j gsize  j gbase  g next-free   gfilenamefice-9/vlist.scm     7  7  D  D  I  L  Q  [  _  j  j              gnameg% block-cons-procedureCIR4NJPShq]Cigt-198d9e0d-159d  gt-198d9e0d-159e  gt-198d9e0d-159f      CJhS]L6Kga  gfilenamefice-9/vlist.scm    CThC]L6;gfilenamefice-9/vlist.scm     Ch]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm   n C5JR4Jh{]*"#4>"'G" $&""""  "_  $ "$ "[45     C $; $+  $ C"^"Z"Vsgitem  gvlist  gbase  R goffset  R gsize  _ goffset  gsize  gbase  g next-free   gfilenamefice-9/vlist.scm   M    gnameg vlist-consg documentationf?Return a new vlist with ITEM as its head and VLIST as its tail.CRhh ]"#4>"'G" $&""""   Cgvlist  agbase Q agoffset  Q agcontent  Y agfilenamefice-9/vlist.scm   M  Q  Q  Y  Y   a gnameg vlist-headg documentationfReturn the head of VLIST.C Rhd]!"#4>"'G" $&""""   $C  C\gvlist  gbase Q goffset  Q goffset  ` lgbase  u goffset  u gfilenamefice-9/vlist.scm   M  Q  Q  Y  ]  `  `  p  u  u   gnameg vlist-tailg documentationfReturn the tail of VLIST.C!Rhh] "#4>"'G" $&""""  $C  Cgvlist  agbase M agfilenamefice-9/vlist.scm   M  M  S  W  _  `   a gnameg vlist-null?g documentationfReturn true if VLIST is empty.C"R/#h]456glst  gfilenamefice-9/vlist.scm       gnameg list->vlistg documentationf4Return a new vlist whose contents correspond to LST.C$Rh]3"#4>"'G" $&"""""V&C $ "$  "4 5"  " gproc  ginit  gvlist   gbase  M goffset  M gresult  M gnext  [ gdone?  a gcontent   gfilenamefice-9/vlist.scm    M   U   [   [   a   a   i   m   y   ~      !               gnameg vlist-foldg documentationf/Fold over VLIST, calling PROC for each element.C)R%(h]"#4>"'G" $&"""""& $C4455"45"gproc  ginit  gvlist   gindex  M sgresult  M sgfilenamefice-9/vlist.scm     M   Q   U   [   \  _   k  s   s   t   {      gnamegvlist-fold-rightg documentationfOFold over VLIST, calling PROC for each element, starting from the last element.C*R)#h]6gvlist  gfilenamefice-9/vlist.scm     gnameg vlist-reverseg documentationfEReturn a new VLIST whose content are those of VLIST in reverse order.C/R)h|]4L56tgitem  gresult  gfilenamefice-9/vlist.scm           C#/h]O456gproc  gvlist  gfilenamefice-9/vlist.scm   !       gnameg vlist-mapg documentationf;Map PROC over the elements of VLIST and return a new vlist.C+R*h]6gvlist  gfilenamefice-9/vlist.scm #  %  %   gnameg vlist->listg documentationf6Return a new list whose contents match those of VLIST.C2Rh]*"#4>"'G" $&"""""6$ C   "  "gvlist  gindex  gindex  M gbase  M goffset  M gcontent  _ igoffset  _ igfilenamefice-9/vlist.scm '  )  M *  R -  V -  Z .  _ . ( _ .  n /  t 0  y 1  /  *  +  ,  *   gnameg vlist-refg documentationf+Return the element at index INDEX in VLIST.C%Rh]""#4>"'G" $&"""""4$C   "  "gvlist  gcount  gcount  M gbase  M goffset  M goffset  [ ggfilenamefice-9/vlist.scm 3  6  M 7  R :  V :  [ ;  [ ;  l <  r =  w >  <  7  8  9  7   gnameg vlist-dropg documentationfKReturn a new vlist that does not contain the COUNT first elements of VLIST.C&R/! #hH{]"0 $6454455""sgvlist  Fgcount  Fgcount   6gvlist   6gresult   6gfilenamefice-9/vlist.scm @  C  F   F   G   H   I   J  " J  , J  6 H  6 C   F gnameg vlist-takeg documentationfHReturn a new vlist that contains only the COUNT first elements of VLIST.C'R*h}]4L5$6Cuge  gv  gfilenamefice-9/vlist.scm O   P  P   Q    C#h]O6gpred  gvlist  gfilenamefice-9/vlist.scm L  O    gnameg vlist-filterg documentationfLReturn a new vlist containing all the elements from VLIST that satisfy PRED.C0R0he]4LL5C]ge  gfilenamefice-9/vlist.scm Y   Z  Z   Ch(-.,3#O6gx %gvlist %gequal?  %gfilenamefice-9/vlist.scm V % Y  %  gnameg vlist-deleteg documentationfKReturn a new vlist corresponding to VLIST without the elements EQUAL? to X.C1Rh.]"#4>"'G" $&""""" &C  "  "&gvlist  }gbase M mglen  M mgfilenamefice-9/vlist.scm ]  _  M `  U b  \ d  _ e  d e  e e  m d  m `  q `  u a  } `   } gnameg vlist-lengthg documentationfReturn the length of VLIST.C(R#hS]CKgx  gfilenamefice-9/vlist.scm h ,   Ch0]4L5$L64L54L4L556gseed  *gfilenamefice-9/vlist.scm j   k  k   l   m   n  n  ( n  * m   * gnamegufCh8)-.,3#OQ6!gp 5gf 5gg  5gseed  5gtail-gen  5guf  " 5gfilenamefice-9/vlist.scm g " j  5  gnameg vlist-unfoldg documentationfHReturn a new vlist. See the description of SRFI-1 `unfold' for details.C,R#hX-.,3#"+45$C454455""gp Qgf Qgg  Qgseed  Qgtail  Qgseed   Eglis   Egfilenamefice-9/vlist.scm p  s   t  % t  ) v 0 v  3 v ! = v  E v  E s  Q  gnamegvlist-unfold-rightg documentationfNReturn a new vlist. See the description of SRFI-1 `unfold-right' for details.C-R#*hk]6cge  gv  gfilenamefice-9/vlist.scm } & ~ (  Cht]6lgvlist  gresult  gfilenamefice-9/vlist.scm |  }   Ch -13(C6gvlists gfilenamefice-9/vlist.scm x  z   |   gnameg vlist-appendg documentationfAppend the given lists.C.R)hn]L6fgitem  gx  gfilenamefice-9/vlist.scm        Ch]O6gproc  gvlist  gfilenamefice-9/vlist.scm       gnamegvlist-for-eachg documentationf?Call PROC on each element of VLIST. The result is unspecified.C3Rh0] $!&  4 5CCCgobj  ,gblock  (gfilenamefice-9/vlist.scm                , gnamegvhash?g documentationf"Return true if OBJ is a hash list.C5R4J  h-.,3 #"#4>"'G" $&""""  "l  $ "$ "[ 4 5      "\ $F $2  $ ""N""F"">& " 4 5& " 4 5 45        Cgkey gvalue gvhash  ghash  gitem  b @gbase  m =goffset  m =gsize  z goffset  gsize gbase  g next-free  gvhash  @ gbase  \ goffset  x gsize   gkhash   gcontent  g next-offset  gfilenamefice-9/vlist.scm     b  b   @   E   \   a   x                          gnameg vhash-consg documentationfjReturn a new hash list based on VHASH where KEY is associated with VALUE. Use HASH to compute KEY's hash.C6R6h]6gt-198d9e0d-1bd9  gt-198d9e0d-1bda  gt-198d9e0d-1bdb   gfilenamefice-9/vlist.scm     gnameg vhash-consqC7R6h]6gt-198d9e0d-1be5  gt-198d9e0d-1be6  gt-198d9e0d-1be7   gfilenamefice-9/vlist.scm     gnameg vhash-consvC8Rh((]N"    4 5 "s $F     $(4  5$4   5" "   "   $  "t C     "{$0&"4>"G"4>"G   $  "C gproc  (ginit  (gkey   (gvhash   (gequal?   (ghash   (gbase   g max-offset   gresult   gsize gcontent  gkhash  goffset " gresult " g next-block  r gblock    gfilenamefice-9/vlist.scm                     "   (   /   8   <   =   F  , G  ' I   M   N   U  ! V   Z   n  r   r  y   {       *                            %  *  ( gnameg% %vhash-fold*-procedureCR4NPS4h]Cgt-198d9e0d-1bf0  gt-198d9e0d-1bf1  gt-198d9e0d-1bf2   gt-198d9e0d-1bf3   gt-198d9e0d-1bf4   gt-198d9e0d-1bf5      ChS]L6Kga  gfilenamefice-9/vlist.scm     CThC]L6;gfilenamefice-9/vlist.scm      C6h]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm    n C5Rh8]-.,3##"    4 5 "s $F     $(4  5$4   5" "   "   $  "t C     "{"#4>"'G" $&""""   $  "CUgproc 7ginit 7gkey  7gvhash  7gequal?  7ghash  7gbase  $ g max-offset  $ gresult  $ gsize ) gcontent / gkhash : goffset @ gresult @ g next-block  gblock   gfilenamefice-9/vlist.scm  $   7  gnameg vhash-fold*g documentationkFold over all the values associated with KEY in VHASH, with each call to PROC having the form  (proc value result) , where RESULT is the result of the previous call to PROC and INIT the value of RESULT for the first call to PROC.CARh}]T"   45 "n $A   $#  &4   5" "   "    $   "y C    ""#4>"'G" $&""""   $  "Cugproc  ginit  gkey   gvhash   ghash   gbase  g max-offset  gresult  gsize   gcontent  gkhash goffset & gresult & g next-block q gblock  gfilenamefice-9/vlist.scm       gnameg vhash-foldq*g documentationkSame as  vhash-fold* , but using  hashq and  eq? .CBRh ]T"   45 "o $B   $$  $4   5" "   "    $   "x C    ""#4>"'G" $&""""   $  "Cygproc  ginit  gkey   gvhash   ghash   gbase  g max-offset  gresult  gsize   gcontent  gkhash goffset & gresult & g next-block r gblock  gfilenamefice-9/vlist.scm       gnameg vhash-foldv*g documentationkSame as  vhash-fold* , but using  hashv and  eqv? .CCRh]<"  45"j $B $(4 5$ C  "  "    $  "|C "$0&"4>"G"4>"G   $  "Cgkey  gvhash  gequal?   ghash   gbase   g max-offset   gsize  gcontent   gkhash   goffset " g next-block n gblock   gfilenamefice-9/vlist.scm                     "   (   -   1  2   ;  & <  ! >   B   G   O   Y   `   j   n   n  u   w   {    +                            )   gnameg% %vhash-assoc-procedureC7R4N8PSVh]Cgt-198d9e0d-201f  gt-198d9e0d-2020  gt-198d9e0d-2021   gt-198d9e0d-2022      C8hS]L6Kga  gfilenamefice-9/vlist.scm     CThC]L6;gfilenamefice-9/vlist.scm      Ch]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm    n C58Rh -.,3 ##"  45"e $="  " $4 5$ C""    $  "C ""#4>"'G" $&""""   $  "Cgkey  gvhash  gequal?   ghash   gbase  $ g max-offset  $ gsize  ) gcontent  / gkhash  : goffset @ g next-block gblock   gfilenamefice-9/vlist.scm  $     gnameg vhash-assocg documentationfpReturn the first key/value pair from VHASH whose key is equal to KEY according to the EQUAL? equality predicate.C9Rhu]B"  45"`$8""$&C""    $  "C""#4>"'G" $&""""   $  " Cmgkey  gvhash  ghash   gbase  g max-offset  gsize   gcontent   gkhash  goffset  & g next-block h gblock   gfilenamefice-9/vlist.scm       gnameg vhash-assqg documentationkReturn the first key/value pair from VHASH whose key is  eq? to KEY.C:Rhy]B"  45"a$9""$$C""    $  "C""#4>"'G" $&""""   $  " Cqgkey  gvhash  ghash   gbase  g max-offset  gsize   gcontent   gkhash  goffset  & g next-block i gblock   gfilenamefice-9/vlist.scm   "    gnameg vhash-assvg documentationkReturn the first key/value pair from VHASH whose key is  eqv? to KEY.C;R9)6h(]4LL5$CL6gk+v  (gresult  (gk   (gv   (gfilenamefice-9/vlist.scm (   )   *   )  +   +  ( -   ( C#hH!-.,3##45$O6Cgkey Ggvhash Ggequal?  Gghash  Ggfilenamefice-9/vlist.scm $ ! '  1 '  D (  G  gnameg vhash-deleteg documentationfHRemove all associations from VHASH with KEY, comparing keys with EQUAL?.CR)h]L6g key+value  gresult  gfilenamefice-9/vlist.scm :   ;  ; &  ;    Chm]O6egproc  ginit  gvhash   gfilenamefice-9/vlist.scm 5  :    gnameg vhash-foldg documentationkFold over the key/pair elements of VHASH from left to right, with each call to PROC having the form  (PROC key value result) , where RESULT is the result of the previous call to PROC and INIT the value of RESULT for the first call to PROC.C?R*h]L6g key+value  gresult  gfilenamefice-9/vlist.scm E   F  F ,  F    Chu]O6mgproc  ginit  gvhash   gfilenamefice-9/vlist.scm @  E    gnamegvhash-fold-rightg documentationkFold over the key/pair elements of VHASH from right to left, with each call to PROC having the form  (PROC key value result) , where RESULT is the result of the previous call to PROC and INIT the value of RESULT for the first call to PROC.C@R6h]L6}gpair  gresult  gfilenamefice-9/vlist.scm M   N  N '  N    C#h(-.,3#O6galist %ghash %gfilenamefice-9/vlist.scm K % M  % gnameg alist->vhashg documentationf=Return the vhash corresponding to ALIST, an association list.CDRCgm  ,grtd :D :pgbase J Jgfilenamefice-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