shell bypass 403

GrazzMean Shell

: /proc/self/root/lib64/guile/2.0/ccache/ice-9/ [ drwxr-xr-x ]
Uname: Linux web3.us.cloudlogin.co 5.10.226-xeon-hst #2 SMP Fri Sep 13 12:28:44 UTC 2024 x86_64
Software: Apache
PHP version: 8.1.31 [ PHP INFO ] PHP os: Linux
Server Ip: 162.210.96.117
Your Ip: 52.14.124.154
User: edustar (269686) | Group: tty (888)
Safe Mode: OFF
Disable Function:
NONE

name : vlist.go
GOOF----LE-8-2.06>]�4h�z]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�	"gvlist-null?�	#g
vlist-null�	$glist->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�	2gvlist->list�	3gvlist-for-each�	4gblock-growth-factor�	5gvhash?�	6g
vhash-cons�	7gvhash-consq�	8gvhash-consv�	9gvhash-assoc�	:g
vhash-assq�	;g
vhash-assv�	<gvhash-delete�	=g
vhash-delq�	>g
vhash-delv�	?g
vhash-fold�	@gvhash-fold-right�	Agvhash-fold*�	Bgvhash-foldq*�	Cgvhash-foldv*�	Dgalist->vhash�	E !"#$%&'()*+,-./0123456789:;<=>?@ABCD'�	Fgset-current-module�	GF�	HF�	Ig
make-fluid�	Jgmake-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��gidentifier?��������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����t�i���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������i�piiiiy���
��WX����t�i���W�����W�����W����������������W�����gm-198d9e0d-126d���Z����i�p�i���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�ip�i��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��7W�3��8W&5��978�:69�;:�<W�3��=gm-198d9e0d-12a5�>=Z�?>/i2p�i��@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��ZW�V��[WIX��\Z[�]Y\�^]�_W�V��`gm-198d9e0d-12c1�a`Z�baRiUp�i��cW�b��dc�eW�b��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{��}W�y��~Wl{��}~��|�����W�y���gm-198d9e0d-12dd���Z���uixp�i���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������i�piiiiy���
��WX����t�i���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������i�piiiiy���
��WX����t�i���W�����W�����W����������������W�����W�����g	next-free��W���������gvector-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������i�piiiiy���
��WX����t�i���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��VW�R��WW@T��XVW�YUX�ZY�[W�R��\W6T��]W�T��^W�T��_\]^�`W�T��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����gnext-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������i�piiiiy���
��WX����t�i���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������i�piiiiy���
��WX����t�i���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������i�piiiiy���
��WX����t�i��W����W����W�������W����W6���W����	W����
W����	
�Wj���
W����
	�
�W����	
����ti��W���g
block-null�g<vlist>�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'�BW�A��CW�A��DBC�Egmake-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\U�W�Ygctor�Zgfield�[YZ�\fl-1e8ba8b5a-11c�]fl-1e8ba8b5a-11d�^\]�_\[u^�`gform�ag	type-name�bgconstructor-spec�cgfield-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�qgconstructor�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������i�piiii+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�����\�����gfield-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����������\�����G�i�pi�iiii�i�i�i�i�i�i�i�����W��?�����W��?��gstruct?��W��?������geq?��W��?��g
struct-vtable��W��?������t�i��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�<gck�=gerr�>gs�?=>�@�Afl-198d9e0d-1521�Bfl-198d9e0d-1522�CAB�D\?@C�EDipiiii+5:=
�FW<E?�Ggquote�HWGE?�ItDi�JWI��KHJ�LK�Mg%%index�NWM8?�ON�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%%<vlist>-set-fields�htci�iWgh��jfi�kj�lgt-198d9e0d-151b�ml�nfl-198d9e0d-1530�on�p\mo�qpipiiii+5:=
�rW�q?�sGpipi+iii1i7��tW>s?�ut�vW�s?�wW�s?�xW�s?�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�����i�piiii+5:=��W�?������U��Gi�pi+iii1i7���W�?�����T��U������fl-198d9e0d-153c��fl-198d9e0d-153d������\?������i�piiii+5:=
��W<�?��WG�?��t�i���W�����������WM�?�����T��U��fl-198d9e0d-1541��fl-198d9e0d-1542������\?������i�piiii+5:=
��W<�?��WG�?���i���W�����������W\�?�����T��U��fl-198d9e0d-1546��fl-198d9e0d-1547������\?������i�piiii+5:=
��W<�?��WG�?��t�i���Wg�����������gt-198d9e0d-1536�����fl-198d9e0d-154b�����\�������i�piiii+5:=
��W��?��G�i�pi+iii1i7���W>�?�����W��?��W��?��W��?������t�i���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~�
G�i�piiii	�
�W�
?�t�i��
W��W	��W����gmap���glist�gset-record-type-printer!�f#<vlist ()>�f#<vhash ~x ~a pairs>�gobject-address�f#<vlist ~a>�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������l��h��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������i�piiiiy���
��WX����t�i���W�����W�����W����������������W�����gproc��W�����ginit��W�����W,����gvhash��W�����W�����W�������������gdefine��W�����gvisit-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�4��3�5ti��6W�5��7g% %vhash-assoc-procedure�8g%vhash-assoc�9gm-198d9e0d-2023�:9Z�;gt-198d9e0d-201f�<gt-198d9e0d-2020�=gt-198d9e0d-2021�>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��OW�K��PW7M��QOP�RNQ�SR�TW�K��UW,M��VW�M��WW�M��XW�M��YUVWX�ZW�M��[W�M��\W�M��]W�M��^[\]�_W�M��`W�M��aWJM��ba\�c`b�dW6M��eW�M��fe\�gdf�hW�M��iXU`�jhi�kcgj�lWjM��mW�M��nW�M��oW�M��pod`h�qnp�rq�sW�M��tW�M��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��������W�M����V��[����t����TY�����LS���tiJ��W7����geqv?�C5h��]4	
E54H>"G4Ii	54RJh0�]$4	�5
C45
C�gbase
		0goffset		0gsize			0g	hash-tab?			0gfilenamefice-9/vlist.scm�
	G
��		L	��			M	��		M	��		M	��		M	��		O	��	/	O	��			0	gnameg% make-block-procedure�CKR4NOPSV�h�]C�gt-198d9e0d-1237
		gt-198d9e0d-1238		gt-198d9e0d-1239			gt-198d9e0d-123a						C��O�hR]L6Jga
		gfilenamefice-9/vlist.scm�		G
��		CT�hB]L6:gfilenamefice-9/vlist.scm�		G
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6{gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
	G
��		nC5OR4N�PS�����hR]�CJgdummy
		gname		gindex						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/vlist.scm�
	R
��		"g
macro-typegsyntax-rules�gpatternsgnamegindexC5�Rh{]
�Csgblock
		gfilenamefice-9/vlist.scm�
	V
��		gnameg% block-content-procedure�C�R4N�PS�h7]C/gt-198d9e0d-126e
		
		
C����hR]L6Jga
		gfilenamefice-9/vlist.scm�		V
��		CT�hB]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
��		nC5�Rhx]�Cpgblock
		gfilenamefice-9/vlist.scm�
	W
��		gnameg% block-base-procedure�CR4NPS�#h7]C/gt-198d9e0d-128a
		
		
C���hR]L6Jga
		gfilenamefice-9/vlist.scm�		W
��		CT�hB]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
��		nC5Rhz]	�Crgblock
		gfilenamefice-9/vlist.scm�
	X
��		gnameg% block-offset-procedure�C&R4N'PS�Fh7]C/gt-198d9e0d-12a6
		
		
C��'�hR]L6Jga
		gfilenamefice-9/vlist.scm�		X
��		CT�hB]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
��		nC5'Rhx]	�Cpgblock
		gfilenamefice-9/vlist.scm�
	Y
��		gnameg% block-size-procedure�CIR4NJPS�ih7]C/gt-198d9e0d-12c2
		
		
C��J�hR]L6Jga
		gfilenamefice-9/vlist.scm�		Y
��		CT�hB]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
��		nC5JRh}]	�Cugblock
		gfilenamefice-9/vlist.scm�
	Z
��		gnameg% block-next-free-procedure�ClR4NmPS��h7]C/gt-198d9e0d-12de
		
		
C��m�hR]L6Jga
		gfilenamefice-9/vlist.scm�		Z
��		CT�hB]L6:gfilenamefice-9/vlist.scm�		Z
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6{gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
	Z
��		nC5mR�h�]	�4
�5�C�gblock
		gfilenamefice-9/vlist.scm�
	\
��		]	��		]	��		]	'��		]	��		]	��		gnameg% block-hash-table?-procedure�C�R4N�PS��h7]C/gt-198d9e0d-12f9
		
		
C����hR]L6Jga
		gfilenamefice-9/vlist.scm�		\
��		CT�hB]L6:gfilenamefice-9/vlist.scm�		\
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6{gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
	\
��		nC5�Rh�]	�C�gblock
		g	next-free		gfilenamefice-9/vlist.scm�
	_
��			`	��			gnameg % set-block-next-free!-procedure�C�R4N�PS��hT]CLgt-198d9e0d-1334
		gt-198d9e0d-1335					C����hR]L6Jga
		gfilenamefice-9/vlist.scm�		_
��		CT�hB]L6:gfilenamefice-9/vlist.scm�		_
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6{gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
	_
��		nC5�Rh8	]	��$(	��$�	�
��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!-procedure�C�R4N�PS�hq]Cigt-198d9e0d-1354
		gt-198d9e0d-1355		gt-198d9e0d-1356						C����hR]L6Jga
		gfilenamefice-9/vlist.scm�		b
��		CT�hB]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
��		nC5�Rh�]�C�gcontent
		goffset		gfilenamefice-9/vlist.scm�
	l
��		m	��			gnameg% block-ref-procedure�CR4NPS�=hT]CLgt-198d9e0d-13be
		gt-198d9e0d-13bf					C���hR]L6Jga
		gfilenamefice-9/vlist.scm�		l
��		CT�hB]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
��		nC5Rh�]���C�gcontent
		gsize		goffset			gfilenamefice-9/vlist.scm�
	q
��			r	��	
	r	��			gnameg(% block-hash-table-next-offset-procedure�C@R4NAPS�fhq]Cigt-198d9e0d-13de
		gt-198d9e0d-13df		gt-198d9e0d-13e0						C��A�hR]L6Jga
		gfilenamefice-9/vlist.scm�		q
��		CT�hB]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
��		nC5ARh�]���C�gcontent
		gsize		goffset			gnext-offset			gfilenamefice-9/vlist.scm�
	v
��			x	��		x	��			gnameg-% block-hash-table-set-next-offset!-procedure�CiR4NjPSV�h�]C�gt-198d9e0d-1403
		gt-198d9e0d-1404		gt-198d9e0d-1405			gt-198d9e0d-1406						C��j�hR]L6Jga
		gfilenamefice-9/vlist.scm�		v
��		CT�hB]L6:gfilenamefice-9/vlist.scm�		v
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6{gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
	v
��		nC5jRh�]��C�gcontent
		gsize		gkhash			gfilenamefice-9/vlist.scm�
	|
��			}	��	
	}	��			gnameg % block-hash-table-ref-procedure�C�R4N�PS��hq]Cigt-198d9e0d-142d
		gt-198d9e0d-142e		gt-198d9e0d-142f						C����hR]L6Jga
		gfilenamefice-9/vlist.scm�		|
��		CT�hB]L6:gfilenamefice-9/vlist.scm�		|
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6{gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
	|
��		nC5�Rh�]��C�gcontent
		gsize		gkhash			goffset			gfilenamefice-9/vlist.scm�
	
��		�	��	�	��			gnameg!% block-hash-table-set!-procedure�C�R4N�PSV�h�]C�gt-198d9e0d-1452
		gt-198d9e0d-1453		gt-198d9e0d-1454			gt-198d9e0d-1455						C����hR]L6Jga
		gfilenamefice-9/vlist.scm�		
��		CT�hB]L6:gfilenamefice-9/vlist.scm�		
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6{gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
	
��		nC5�Rh(�]�������C�gcontent
		(gsize		(gkhash			(goffset			(gnext-offset		
	gfilenamefice-9/vlist.scm�
�
��		�	%��	
�	��	#�	��		(	gnameg!% block-hash-table-add!-procedure�C�R4N�PSVh�]C�gt-198d9e0d-147c
		gt-198d9e0d-147d		gt-198d9e0d-147e			gt-198d9e0d-147f						C����hS]L6Kga
		gfilenamefice-9/vlist.scm�	�
��		CT�hC]L6;gfilenamefice-9/vlist.scm�	�
��		
Ch]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
�
��		nC5�R4Ji
5


Rh�]�C�gbase
		goffset		gfilenamefice-9/vlist.scm�
�
��			gnameg%make-vlist-procedure�CR4NPS��hT]CLgt-198d9e0d-14ff
		gt-198d9e0d-1500					C���hS]L6Kga
		gfilenamefice-9/vlist.scm�	�
��		CT�hC]L6;gfilenamefice-9/vlist.scm�	�
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
�
��		nC5R�����4�>"G	��i�Rhr]�$��CCjgobj
		gfilenamefice-9/vlist.scm�
�
��		gnameg%vlist?-procedure�C�R4NPS�h7]C/gt-198d9e0d-150f
		
		
C���hS]L6Kga
		gfilenamefice-9/vlist.scm�	�
��		CT�hC]L6;gfilenamefice-9/vlist.scm�	�
��		
Ch]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
�
��		nC5R	ht]�&
�C6lgs
		gfilenamefice-9/vlist.scm�
�
��		gnameg%vlist-base-procedure�C
R4N	PS;FLh:]��C2gerr
		gs					CPV[h:]��C2gerr
		gs					C_ekh:]��C2gerr
		gs					C��h7]C/gt-198d9e0d-151b
		
		
C��	�hS]L6Kga
		gfilenamefice-9/vlist.scm�	�
��		CT�hC]L6;gfilenamefice-9/vlist.scm�	�
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/vlist.scm�
�
��	�C5	R�hv]�&�C6ngs
		gfilenamefice-9/vlist.scm�
�
��		gnameg%vlist-offset-procedure�C�R4N�PS���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C���h:]��C2gerr
		gs					C��h7]C/gt-198d9e0d-1536
		
		
C����hS]L6Kga
		gfilenamefice-9/vlist.scm�	�
��		CT�hC]L6;gfilenamefice-9/vlist.scm�	�
��		
C�h]C		
C��h��]145$@45$@45$@45$	@4
5$O@45$4
O?$@66�gx
	�gtmp	�gtmp		"�gtmp		9�gtmp		P�gtmp		g�gtmp	��gfilenamefice-9/vlist.scm�
�
��	�C5�R4NgPS�
h v]45�����Cngdummy
		gcheck?		gs			ggetter			gexpr						C��h(�]	45$@6�gx
		"gtmp		"gfilenamefice-9/vlist.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgcheck?gsggettergexprg...C5gR4ii"5(2
hH�]45$645$454564	56�gvl
		Egport		Egfilenamefice-9/vlist.scm�
�	��	�	#��	
�	��	�	0��	�	#��	�	#��	 �	��	&�	0��	'�	+��	.�	+��	6�	#��	<�	0��	=�	+��	E�	#��		E	C>"Gii
�#Rh@�]�$�&C66�gval
		:gfilenamefice-9/vlist.scm�
�
��	�	
��		�	��	�	
��	�	��	�	��	 �	��	%�	��	'�	��	+�	��	.�	��	3�	��	8�	��	:�	��		:gnameg% assert-vlist-procedure�CR4NPS�Fh7]C/gt-198d9e0d-157c
		
		
C���hS]L6Kga
		gfilenamefice-9/vlist.scm�	�
��		CT�hC]L6;gfilenamefice-9/vlist.scm�	�
��		
CHh]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
�
��		nC5R	�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-procedure�CIR4NJPS��hq]Cigt-198d9e0d-159d
		gt-198d9e0d-159e		gt-198d9e0d-159f						C��J�hS]L6Kga
		gfilenamefice-9/vlist.scm�	�
��		CT�hC]L6;gfilenamefice-9/vlist.scm�	�
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
�
��		nC5JR4Jh{]*"#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-cons�g
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�	��		agnameg
vlist-head�g
documentationfReturn the head of VLIST.�C Rh�d]!"#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-tail�g
documentationfReturn the tail of VLIST.�C!Rhh�]	"#4>"'G" �$�&""���""���
��$C
	��C�gvlist
		agbase	M	agfilenamefice-9/vlist.scm�
�
��	�	��	M�	��	M�	��	S�	��	W�	��	_�	��	`�		��			agnamegvlist-null?�g
documentationfReturn true if VLIST is empty.�C"R/�#h�]456�glst
		gfilenamefice-9/vlist.scm�
�
��	�	��	�	��		gnameglist->vlist�g
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-fold�g
documentationf/Fold over VLIST, calling PROC for each element.�C)R%(h��]"#4>"'G" �$�&""���""���"&
�$C�4455"���45�"����gproc
	�ginit	�gvlist		�gindex		M	sgresult		M	sgfilenamefice-9/vlist.scm�

��		��	M	��	Q	��	U	��	[	��	\	
��	_	��	k	
��	s	��	s	��	t	��	{	���	��	�	gnamegvlist-fold-right�g
documentationfOFold over VLIST, calling PROC for each element, starting from
the last element.�C*R)#h�]6�gvlist
		gfilenamefice-9/vlist.scm�

��		��		gnameg
vlist-reverse�g
documentationfEReturn a new VLIST whose content are those of VLIST in reverse
order.�C/R)h|]4L56tgitem
		gresult		gfilenamefice-9/vlist.scm�
	��		��		��			C#/h�]O456�gproc
		gvlist		gfilenamefice-9/vlist.scm�

��	!	��		��			gnameg	vlist-map�g
documentationf;Map PROC over the elements of VLIST and return a new vlist.�C+R*�h�]6�gvlist
		gfilenamefice-9/vlist.scm�
#
��	%	��	%	��		gnamegvlist->list�g
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-ref�g
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-drop�g
documentationfKReturn a new vlist that does not contain the COUNT first elements of
VLIST.�C&R/! #hH{]"0
�$6�454455"���"���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-take�g
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�]O6�gpred
		gvlist		gfilenamefice-9/vlist.scm�
L
��	O	��			gnamegvlist-filter�g
documentationfLReturn a new vlist containing all the elements from VLIST that
satisfy PRED.�C0R�0he]4LL5�C]ge
		
gfilenamefice-9/vlist.scm�
Y	��	Z	��	Z	��		
Ch(�-.,3#O6�gx
		%gvlist		%gequal?			%gfilenamefice-9/vlist.scm�
V
��	%Y	��		%	gnamegvlist-delete�g
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-length�g
documentationfReturn the length of VLIST.�C(R#hS]CKgx
		gfilenamefice-9/vlist.scm�
h	,��		Ch0�]4L5$L64L54L4L556�gseed
		*gfilenamefice-9/vlist.scm�
j	��	k	��	
k	��	l	��	m	��	n	��	 n	��	(n	��	*m	��
		*gnameguf�Ch8)-.,3#OQ6!gp
		5gf		5gg			5gseed			5gtail-gen			5guf		"	5gfilenamefice-9/vlist.scm�
g
��	"j	��		5	gnamegvlist-unfold�g
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-right�g
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(C6�gvlists
			gfilenamefice-9/vlist.scm�
x
��	z	��	|	��			


gnamegvlist-append�g
documentationfAppend the given lists.�C.R)hn]L6fgitem
		gx		gfilenamefice-9/vlist.scm�
�	��	�	��			Ch�]O6�gproc
		gvlist		gfilenamefice-9/vlist.scm�
�
��	�	��			gnamegvlist-for-each�g
documentationf?Call PROC on each element of VLIST.  The result is unspecified.�C3R�h0�]	�$!�&
�	�4
�5�CCC�gobj
		,gblock		(gfilenamefice-9/vlist.scm�
�
��	�	��		�	��	�	��	�	��	�	��		,gnamegvhash?�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	�45
�		��
	��
�
	��C�gkey
	�gvalue	�gvhash		�ghash		�gitem		b@gbase		m=goffset		m=gsize		z�goffset	��gsize		��gbase	��g	next-free	�gvhash	@�gbase	\�goffset	x�gsize	�gkhash	��gcontent		��gnext-offset	
��gfilenamefice-9/vlist.scm�
�
��	�	��	b�	 ��	b�	��@�	��E�	��\�	��a�	��x�	���	���	����	����	����	����	����	��	�	gnameg
vhash-cons�g
documentationfjReturn a new hash list based on VHASH where KEY is associated
with VALUE.  Use HASH to compute KEY's hash.�C6R6�h�]6�gt-198d9e0d-1bd9
		gt-198d9e0d-1bda		gt-198d9e0d-1bdb			gfilenamefice-9/vlist.scm�
�	��			gnamegvhash-consq�C7R6�h�]6�gt-198d9e0d-1be5
		gt-198d9e0d-1be6		gt-198d9e0d-1be7			gfilenamefice-9/vlist.scm�
�	��			gnamegvhash-consv�C8Rh((]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*-procedure�C�R4N�PS�4h�]C�gt-198d9e0d-1bf0
		gt-198d9e0d-1bf1		gt-198d9e0d-1bf2			gt-198d9e0d-1bf3			gt-198d9e0d-1bf4			gt-198d9e0d-1bf5						C����hS]L6Kga
		gfilenamefice-9/vlist.scm�	�
��		CT�hC]L6;gfilenamefice-9/vlist.scm�	�
��		
C6h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
�
��		nC5�R��h8]-.,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		gnamegvhash-fold*�g
documentationk�Fold 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.�CAR�h}]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
documentationk�Same as  vhash-fold* , but using  hashq  and  eq? .�CBR�h �]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
documentationk�Same as  vhash-fold* , but using  hashv  and  eqv? .�CCRh�]<"�	�
�45"j	$B	�$(4	��5$	�C�	��	"����	��	"����

	�
�$
	�"��|C��	"����$0�&"4>"G"4>"G
�	�
�$
��"���C�gkey
	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-procedure�C7R4N8PSV�h�]C�gt-198d9e0d-201f
		gt-198d9e0d-2020		gt-198d9e0d-2021			gt-198d9e0d-2022						C��8�hS]L6Kga
		gfilenamefice-9/vlist.scm�	�
��		CT�hC]L6;gfilenamefice-9/vlist.scm�	�
��		
C�h]C		
C��hp�]45$@45$O@45$4O?$@	
6	
6|gx
		ngtmp		ngtmp		"	ngtmp		>	ngfilenamefice-9/vlist.scm�
�
��		nC58R��h �-.,3##"�	�
�45"e	$="�	��	"���	�$4	��5$	�C"���"����

	�
�$
	�"���C��	"���"#4>"'G" �$�&""���""���
�	�
�$
��"��C�gkey
	 gvhash	 gequal?		 ghash		 gbase		$�g
max-offset		$�gsize		)�gcontent		/�gkhash		:�goffset			@�g
next-block	
��gblock	�gfilenamefice-9/vlist.scm�

��	$	��	 		gnamegvhash-assoc�g
documentationfpReturn the first key/value pair from VHASH whose key is equal to
KEY according to the EQUAL? equality predicate.�C9R�hu]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-assq�g
documentationkReturn the first key/value pair from VHASH whose key is  eq?  to
KEY.�C:R�hy]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-assv�g
documentationkReturn the first key/value pair from VHASH whose key is  eqv?  to
KEY.�C;R��9)6h(�]��4LL5$CL6�gk+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-delete�g
documentationfHRemove all associations from VHASH with KEY, comparing keys
with EQUAL?.�C<R<��h�]6�gt-198d9e0d-243e
		gt-198d9e0d-243f		gfilenamefice-9/vlist.scm�
2	��			gnameg
vhash-delq�C=R<��h�]6�gt-198d9e0d-2448
		gt-198d9e0d-2449		gfilenamefice-9/vlist.scm�
3	��			gnameg
vhash-delv�C>R)h�]L��6�g	key+value
		gresult		gfilenamefice-9/vlist.scm�
:	��	;	��	
;	&��	;	��			Chm]O6egproc
		ginit		gvhash			gfilenamefice-9/vlist.scm�
5
��	:	��			gnameg
vhash-fold�g
documentationk�Fold 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�]L��6�g	key+value
		gresult		gfilenamefice-9/vlist.scm�
E	��	F	��	
F	,��	F	��			Chu]O6mgproc
		ginit		gvhash			gfilenamefice-9/vlist.scm�
@
��	E	��			gnamegvhash-fold-right�g
documentationk�Fold 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@R��6h�]��L6}gpair
		gresult		gfilenamefice-9/vlist.scm�
M	��	N	��	
N	'��	N	��			C#h(�-.,3#O6�galist
		%ghash		%gfilenamefice-9/vlist.scm�
K
��	%M	��		%gnamegalist->vhash�g
documentationf=Return the vhash corresponding to ALIST, an association list.�CDRCgm
		,grtd
:D:pgbase
J�J�gfilenamefice-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
© 2025 GrazzMean