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: 3.145.212.129
User: edustar (269686) | Group: tty (888)
Safe Mode: OFF
Disable Function:
NONE

name : srfi-1.go
GOOF----LE-8-2.0��]�4h�]gguile�	�	gdefine-module*�	�	�	gsrfi�	gsrfi-1�	�		gfilenameS�	
fsrfi/srfi-1.scm�	gexportsS�	gxcons�	
g
list-tabulate�	g	list-copy�	g
circular-list�	gproper-list?�	gcircular-list?�	gdotted-list?�	g
null-list?�	g	not-pair?�	glist=�	gfirst�	gsecond�	gthird�	gfourth�	gfifth�	gsixth�	gseventh�	geighth�	gninth�	gtenth�	 gcar+cdr�	!gtake�	"gdrop�	#g
take-right�	$g
drop-right�	%gtake!�	&gdrop-right!�	'gsplit-at�	(g	split-at!�	)glast�	*glength+�	+gconcatenate�	,gconcatenate!�	-gappend-reverse�	.gappend-reverse!�	/gzip�	0gunzip1�	1gunzip2�	2gunzip3�	3gunzip4�	4gunzip5�	5gcount�	6gfold�	7g
fold-right�	8g	pair-fold�	9gpair-fold-right�	:greduce�	;greduce-right�	<gunfold�	=gunfold-right�	>g
append-map�	?gappend-map!�	@gmap!�	Ag
pair-for-each�	Bg
filter-map�	Cg	partition�	Dgremove�	Eg
partition!�	Fgremove!�	Ggfind�	Hg	find-tail�	Ig
take-while�	Jgtake-while!�	Kg
drop-while�	Lgspan�	Mgspan!�	Ngbreak�	Ogbreak!�	Pgany�	Qgevery�	Rgdelete-duplicates�	Sgdelete-duplicates!�	Tg
alist-cons�	Ug
alist-copy�	Vgalist-delete�	Wg
alist-delete!�	Xglset<=�	Yglset=�	Zglset-adjoin�	[g
lset-union�	\glset-intersection�	]glset-difference�	^glset-xor�	_glset-diff+intersection�	`glset-union!�	aglset-intersection!�	bglset-difference!�	cg	lset-xor!�	dglset-diff+intersection!�	e
 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdY�	fg
re-exportsS�	ggcons�	hglist�	igcons*�	jg	make-list�	kgpair?�	lgnull?�	mgcar�	ngcdr�	ogcaar�	pgcadr�	qgcdar�	rgcddr�	sgcaaar�	tgcaadr�	ugcadar�	vgcaddr�	wgcdaar�	xgcdadr�	ygcddar�	zgcdddr�	{gcaaaar�	|gcaaadr�	}gcaadar�	~gcaaddr�	gcadaar��gcadadr��gcaddar��gcadddr��gcdaaar��gcdaadr��gcdadar��gcdaddr��gcddaar��gcddadr��gcdddar��gcddddr��glist-ref��g	last-pair��glength��gappend��gappend!��greverse��greverse!��gfilter��gfilter!��gmemq��gmemv��gassq��gassv��gset-car!��gset-cdr!��ghijklmnopqrstuvwxyz{|}~��������������������������3��greplacementsS��giota��gmap��gfor-each��gmap-in-order��g
list-index��gmember��gdelete��gdelete!��gassoc�����������
��gset-current-module��������gcond-expand-provide��gcurrent-module����gload-extension��g
string-append��f	libguile-��geffective-version��fscm_init_srfi_1��g	scm-error��gwrong-type-arg��gsymbol->string��fWrong type argument: ~S��gmake-syntax-transformer��������g	check-arg��gmacro��g$sc-dispatch��������PPPP��g
syntax-object��gif��gtop�����gribcage��gdummy��gpred��garg��gcaller��������gm-1e8ba8b52-388������������fl-1e8ba8b52-38d��fl-1e8ba8b52-38e��fl-1e8ba8b52-38f��fl-1e8ba8b52-390�����������������gx��������fl-1e8ba8b52-38a�����������������ghygiene�����������gnot��������������gquote��������gsyntax-violation��������f-source expression failed to match any pattern��gout-of-range��fValue out of range: ~A��ginteger?��gnon-negative-integer?��gerror��fnot a proper list in null-list?��g
procedure?��g	list-head��g	list-tail��gany1��fmap��fCircular list: ~S��fNot a list: ~S��gmin��f.Args do not contain a proper (finite) list: ~S��ffor-each��gapply��gevery1��gacons��gequal?��geq?��geqv?�C5h���]4	
ef���5	4�>"G4�i4�i5�>"G4�i4�i�4�i55�>"Gh�]�C�gd
		ga		gfilenamefsrfi/srfi-1.scm�
�
��	�	��			gnamegxcons�g
documentationfdLike `cons', but with interchanged arguments.  Useful mostly when passed to
higher-order procedures.�CR����h�]456�gcaller
		garg		gfilenamefsrfi/srfi-1.scm�
�
��	�	
��	�	��	�	
��	�	'��	�	2��	�	��			gnamegwrong-type-arg�C�R4���������h(d]C\gdummy
		"gpred		"garg			"gcaller			"		"	C��h(�]	45$@6�gx
		"gtmp		"gfilenamefsrfi/srfi-1.scm�
�
��		"g
macro-typegsyntax-rules�gpatternsgpredgarggcallerC5�R���h�]6�gproc
		garg		gfilenamefsrfi/srfi-1.scm�
�
��	�	
��	
�	
��	�	&��	�	1��	�	��			gnamegout-of-range�C�R�h�]45$
�CC�gx
		gfilenamefsrfi/srfi-1.scm�
�
��	�	'��	
�	"��	�	4��		gnamegnon-negative-integer?�C�R��
hX�]45$"4>"G"!
�$C�4�5�"���"����gn
		Ug	init-proc		Ugn		)	Jgacc		)	Jgfilenamefsrfi/srfi-1.scm�
�
��		��	)	��	-	��	1	��	7	��	8	��	=	%��	?	��	B	��	J	��	J	��	M	��	U	��		U	gnameg
list-tabulate�g
documentationf�Return an N-element list, where each list element is produced by applying the
procedure INIT-PROC to the corresponding list index.  The order in which
INIT-PROC is applied to the indices is not specified.�C
R�h(�-13HJ�K4J5J�JC�gelt1
	
	!gelts	
	!gfilenamefsrfi/srfi-1.scm�

��		
��		��			��			��			!
gnameg
circular-list�CR����hx"-.,3#
#45$"4>"G"%�$6����"���
"���gcount
		tgstart		tgstep			tgn		E	jgacc		E	jgfilenamefsrfi/srfi-1.scm�

��	
	��	E	��	J	��	N	��	T	��	W	��	^	#��	_	��	b	��	j	��	j	��	l	��	t	��		t	gnamegiota�C�Rht]�Clgx
		gfilenamefsrfi/srfi-1.scm�

��		��		gnamegproper-list?�CRhX6]45$C"745$C�45$C&C��"����"���.gx
		Wghare		Jgtortoise			Jghare		#	Jgfilenamefsrfi/srfi-1.scm�

��		��	
	��		��		
��		��	#	��	#	��	&	��	0	
��	:!	��	?#	��	B#	��	J#	��	J	��	M	��	W	��		Wgnamegcircular-list?�CRhpF](C45$C"G(C45$C�(C45$C&C��"����"���>gx
		oghare		bgtortoise			bghare		3	bgfilenamefsrfi/srfi-1.scm�
%
��	&	��	(	��	&	��	*	��	!+	��	$-	
��	.+	��	3/	��	3/	
��	;0	��	>2	��	H0	��	W5	��	Z5	��	b5	��	b*	��	e*	��	o*	��		ognamegdotted-list?�CR��h(�]45$�C45$C6�gx
		$gfilenamefsrfi/srfi-1.scm�
7
��	9	��	
8	��	:	��	;	��	8	��	">	��	$>	��			$gnameg
null-list?�CRhI]��CAgx
		gfilenamefsrfi/srfi-1.scm�
@
��	E	��	E	��		gnameg	not-pair?�g
documentationf�Return #t if X is not a pair, #f otherwise.

This is shorthand notation `(not (pair? X))' and is supposed to be used for
end-of-list checking in contexts where dotted lists are allowed.�CRhH
]"1(�C(C4L��5$��"���C"���ga
		Cgb		Cga			7gb			7gfilenamefsrfi/srfi-1.scm�
H	��	I	��	J	��	K	
��	J	��	O	��	O	��	!O	 ��	#O	��	'O	
��	*P	��	-P	��	5P	��	7I	��		C	gnameglists-equal�C��hx<-13OQ45$"4>"G(C"*��$C4���5$	�"���C"���4gelt=
			wgrest			wglists-equal			wglists		E	ogt		I	ogfilenamefsrfi/srfi-1.scm�
G
��	R	��	?S	��	@S	��	ET	��	HU	��	IU	��	IU	��	UV	��	ZV	��	]V	*��	`V	��	dV	��	gW	��	mW	��	oT	��			w
gnameglist=�CRmiRpiRviR�iRhv]�����Cngx
		
gfilenamefsrfi/srfi-1.scm�
_
��	_	��		_	��		
gnamegfifth�CRhv]������Cngx
		gfilenamefsrfi/srfi-1.scm�
`
��	`	��		`	��		gnamegsixth�CRhx]�������Cpgx
		gfilenamefsrfi/srfi-1.scm�
a
��	a	��		a	��		gnamegseventh�CRhw]��������Cogx
		
gfilenamefsrfi/srfi-1.scm�
b
��	b	��		b	��		
gnamegeighth�CRh]���������Cwgx
		gfilenamefsrfi/srfi-1.scm�
c
��	c	��		c	��	
c	��		gnamegninth�CRh]����������Cwgx
		gfilenamefsrfi/srfi-1.scm�
d
��	d	 ��		d	��	
d	��		gnamegtenth�CRh�]��D�gx
		
gfilenamefsrfi/srfi-1.scm�
f
��	h	
��	h	��	
h	��		
gnamegcar+cdr�g
documentationf3Return two values, the `car' and the `cdr' of PAIR.�C R�i!R�i"R"h8�]"�$��"���C45"����glis
		1gk		1glag			glead			gfilenamefsrfi/srfi-1.scm�
q
��	r	��		s	��	
s	��	t	��	t	��	t	��	r	��	!r	��	1r	��		1	gnameg
take-right�C#R�"h@&]"#�$����"���645"���glis
		?gk		?glag			)glead			)gresult			)gfilenamefsrfi/srfi-1.scm�
w
��	x	��		y	��	
y	��	z	��	z	��	z	'��	z	!��	#z	��	){	��	)x	��	,x	��	5x	1��	?x	��		?	gnameg
drop-right�C$R"h ]

�$C4�5�Cglst
		gi		gtail			gfilenamefsrfi/srfi-1.scm�
}
��		��	
	��	�	��	
�	��	�	��	�	��	�	��	�	��	�	��			gnamegtake!�g
documentationf Linear-update variant of `take'.�C%R"hP}]45(C"%(�$�CC��"����"���uglst
		Kgi		Kgtail			Kgprev			>gtail			>gfilenamefsrfi/srfi-1.scm�
�
��	�	��	�	��	�	��	�	��	�	��	�	
��	"�	��	&�	��	)�	#��	*�	��	3�	��	6�	��	>�	��	>�	��	C�	��	K�	��		K	gnamegdrop-right!�g
documentationf&Linear-update variant of `drop-right'.�C&R�'�hP�]
�$6")
�$45D����"���"����glst
		Ngi		Ngl			?gn			?gacc			?gfilenamefsrfi/srfi-1.scm�
�
��	�	��	
�	��	�	��	�	��	�	��	�	��	�	��	�	��	)�	��	,�	��	/�	��	2�	&��	5�	 ��	?�	��	?�	��	D�	"��	N�	��		N	gnamegsplit-at�g
documentationf[Return two values, a list of the elements before index I in LST, and
a list of those after.�C'R�(hX�]
�$6
�$D"%
�$��D��"����"����glst
		Ugi		Ugl		#	Hgn		#	Hgtmp		.	:gfilenamefsrfi/srfi-1.scm�
�
��	�		��	
�	��	�	��	�		��	�		��	�	��	�	��	�		��	#�		��	'�	��	+�	��	.�	��	.�	��	3�	��	4�	��	:�	��	=�	��	@�	��	H�	��	H�		��	M�	��	U�		��		U	gnameg	split-at!�g
documentationf$Linear-update variant of `split-at'.�C(R�h�]45�C�gpair
		gfilenamefsrfi/srfi-1.scm�
�
��	�	��	
�	��		gnameglast�g
documentationf;Return the last element of the non-empty, finite list PAIR.�C)RPl��nmhP-13"045$64545�"����"����gclist1
			Kgrest			Kgl		
	=gacc		
	=gfilenamefsrfi/srfi-1.scm�
�
��	
�	��	�	��	�	��	 �	��	!�	
��	*�	��	5�	��	=�	��	=�	��	B�	��	C�	'��	K�	��			K
gnamegzip�C/R�hn]6fgl
		
gfilenamefsrfi/srfi-1.scm�
�
��	
�	��		
gnamegunzip1�C0R�h�]4545Dxgl
		gfilenamefsrfi/srfi-1.scm�
�
��	�	
��	�	��	�	��		gnamegunzip2�C1R�h �]454545D�gl
		gfilenamefsrfi/srfi-1.scm�
�
��	�	
��	�	��	�	'��	�	��		gnamegunzip3�C2R�h(�]45454545D�gl
		(gfilenamefsrfi/srfi-1.scm�
�
��	�	
��	�	��	�	'��	�	5��	(�	��		(gnamegunzip4�C3R�h8�]4545454545D�gl
		1gfilenamefsrfi/srfi-1.scm�
�
��	�	
��	�	��	�	'��	�	5��	'�	
��	1�	��		1gnamegunzip5�C4R��6Pl�mn�
h��-1345$"4>"G(."(C4�5�"���"���"A45$C454544	5?"����"����gkons
		�gknil		�glist1			�grest			�gknil		6	Tglist1		6	Tgknil		d�glists		d�gcars	��gcdrs	��
gfilenamefsrfi/srfi-1.scm�
�
��	
�	��	2�	��	6�	��	<�	��	@�	��	E�	��	I�	��	L�	'��	T�	��	T�	��	d�	��	e�	��	q�	��	u�	��	~�	����	����	����	����	+����	����	����	����	����	!����	��		�	
	gnamegfold�g
documentationfuApply PROC to the elements of LIST1 ... LISTN to build a result, and return
that result.  See the manual for details.�C6R��7��l�n�mh�-1345$"4>"G(3"(C�4�5"���45"���"945$C4544	4
55?"���4�5"����gkons
		�gknil		�gclist1			�grest			�glst		6	Tgresult		6	Tglists		i�gresult		i�gfilenamefsrfi/srfi-1.scm�
�
��	
�	��	2�	��	6�	��	<�	��	B�	��	C�	��	H�	��	L�	��	T�	��	T�	��	U�	��	e�	��	i�	��	j�	��	v�	��	z�	����	����	����	'����	7����	����	����	����	����	����	&����	����	��		�	
	gnameg
fold-right�C7R��8Pl�n�	h��-1345$"4>"G(1"!(C�45"���"���"645$C45445?"����"����gkons
		�gknil		�gclist1			�grest			�gknil		6	Wglist1		6	Wgtail		B	Wgknil		g�glists		g�gtails	��
gfilenamefsrfi/srfi-1.scm�
�
��	
�	��	2�	��	6�	��	<�	��	B�	��	B�	��	E�	��	W�	��	W�	��	g�	��	h�	��	t�	��	x�	����	����	����	����	,����	����	����	����	����	!����	��		�	
	gnameg	pair-fold�C8R��9h �](LCL4L�56�glist1
		gfilenamefsrfi/srfi-1.scm�
�	��	�	��	�	��	�	��	�	��	�	��		gnamegf�CPl��nh0�]45$LCL44L4555@�glists
		.gfilenamefsrfi/srfi-1.scm�
�	��	�	
��	�	��		��		)��		,��	'	)��	*	#��	,	��	.	��		.gnamegf�Chh-1345$"4>"G(OQ6OQ�6�gkons
			ggknil			ggclist1				ggrest				ggf		<	Kgf		U	ggfilenamefsrfi/srfi-1.scm�
�
��	
�	��	2�	��	<�	��	U�	��	e�	��	g�	��			g	
	gnamegpair-fold-right�C9Rh\]CTgx
		gfilenamefsrfi/srfi-1.scm�
	1��		=��		C��<h-.,3	#"/"(C���"���45"���45$"4>"G45$"4>"G45$"4>"G45$"4>"G"045$"��*4545�"���"���
gp
	gf	gg		gseed		gtail-gen		glst			Igseed			Iglst			8gresult			8gseed	�	gresult	�	gfilenamefsrfi/srfi-1.scm�

��		��		��	$	��	*		��	-
	��	0
	��	8		
��	8	��	;	��	I	��	J	��	m
	���	���	���	���	���	���	���	���	��	��		��		��	��	��		gnamegunfold�C<R��=h�O-.,3#45$"4>"G45$"4>"G45$"4>"G"'45$C4545�"���"���Ggp
	�gf	�gg		�gseed		�gtail		�gseed	��glis	��gfilenamefsrfi/srfi-1.scm�

��		3��		��	9	��	\	���	���	���	���	���	���	���	���	��	�	gnamegunfold-right�C=R��:6h@�]45$"4>"G(C��6�gf
		:g	ridentity		:glst			:gfilenamefsrfi/srfi-1.scm�
 
��	%	��	+&	��	5(	��	8(	��	:(	��		:	gnamegreduce�g
documentationf�`reduce' is a variant of `fold', where the first call to F is on two
elements from LST, rather than one element and a given initial value.
If LST is empty, RIDENTITY is returned.  If LST has just one element
then that's the return value.�C:R:�h�]456�gf
		g	ridentity		glst			gfilenamefsrfi/srfi-1.scm�
*
��		/	��	/	��			gnamegreduce-right�g
documentationf�`reduce-right' is a variant of `fold-right', where the first call to
F is on two elements from LST, rather than one element and a given
initial value.  If LST is empty, RIDENTITY is returned.  If LST
has just one element then that's the return value.�C;R���������6*�h(�]
45$$6CC�gls
		%glen		%gls-len				%gfilenamefsrfi/srfi-1.scm�
F	��	G	&��		G	��	H	��	I	��	I	)��		%	C*��nmh��)�345$"4>"G"|�$Y$6&6��4�5�"����4�5�"���(6	6"��r-1345$"4>"G4
455$"4
�>"G"=
�$6�45�4�45?�"���"����gf
		�gl		�ghare		0�gtortoise		0�gmove?		0�gout		0�gf
�ygl1�ygrest	�yglen	�ygl1	)fgrest	)fglen	)fgout	)fgfilenamefsrfi/srfi-1.scm�
2	��	
4	��	05	��	36	��	76	��	=7	��	E8	��	I9	��	K9	.��	M9	4��	R:	��	U9	��	X;	��	[;	$��	]<	��	b<	 ��	d<	��	g<	��	s;	��	v=	��	z>	��	>	���>	���>	���=	���?	���@	���A	���A	*���A	0���B	���A	���5	���5	6���5	���2	���E	���F	���K	���F	���F	��M	��N	��N	��
N	&��O	��P	��P	��N	��)Q	��,R	
��1R		��7S	
��:T	��;T	��FT	+��GU	��LU	"��MU	+��WU	��ZU	��fT	
��fQ	��mQ	5��yQ	��B		�	�y	
	gnamegmap�C�R�i�R��������6*�h(�]
45$$6CC�gls
		%glen		%gls-len				%gfilenamefsrfi/srfi-1.scm�
p	��	q	&��		q	��	r	��	s	��	s	)��		%	C*���mnh�Z)�345$"4>"G"��$e$<&64�>"G��"���4�>"G�"���(C6"��m-1345$"4>"G4	
455$"4�>"G"A
�$74
�45>"G�45�"���C"���Rgf
		�gl		�ghare		0�gtortoise		0�gmove?		0�gf
�gl1�grest	�glen	�gl1	.ogrest	.oglen	.ogfilenamefsrfi/srfi-1.scm�
Z	��	
\	��	0]	��	3^	��	7^	��	=_	��	E`	��	Ia	��	Ka	.��	Ma	9��	Rb	��	Ua	��	Vd	��	[d	��	`d	��	ke	 ��	ne	+��	ye	��	zg	��	g	���g	���h	���h	���j	���k	���k	*���k	5���l	���k	���]	���Z	���o	���p	���u	���p	���p	��w	��x	��x	��x	&��y	��z	��z	��"x	��.{	��2|	
��6|		��7~	��>~	��?~	!��L~	��W	��X	#��c	2��m	��o{	��9		�	�	
	gnamegfor-each�C�R+�h�-134?6�gf
			gclist1			grest				gfilenamefsrfi/srfi-1.scm�
�
��	�	��	�	��				
	gnameg
append-map�C>R,�h�-134?6�gf
			gclist1			grest				gfilenamefsrfi/srfi-1.scm�
�
��	�	��	�	��				
	gnamegappend-map!�C?R�i@R��B��l�mn
h�-1345$"4>"G(H"9(64�5$��"����"���"���"R45$6445?$4	5�"���4	5"����"����gproc
		�glist1		�grest			�gl		6	ogrl		6	ogres		J	ogl		~�grl		~�gres	��	gfilenamefsrfi/srfi-1.scm�
�
��	
�	��	2�	��	6�	��	<�	��	B�	��	C�	��	H�	��	J�	��	J�	��	R�	��	U�	��	Z�	��	b�	��	e�	��	o�	��	o�	��	r�	��	z�	��	~�	��	�	����	����	����	����	#����	����	����	����	����	"����	����	����	����	����	����	����	��&		�	
	gnameg
filter-map�g
documentationf�Apply PROC to the elements of LIST1... and return a list of the
results as per SRFI-1 `map', except that any #f results are omitted from
the list returned.�CBR��A�l��n	h�V-1345$"4>"G(/"#(C4>"G�"���"���"245$C4>"G45"����"���Ngf
		�gclist1		�grest			�gl		6	Ygl		e�gfilenamefsrfi/srfi-1.scm�
�
��	
�	��	2�	��	6�	��	<�	��	?�	
��	S�	��	Y�	
��	Y�	��	e�	��	f�	
��	r�	��	u�	
����	����	
����	����	����	��		�	
	gnameg
pair-for-each�CAR��Ih�]45$"4>"G(C4�5$H�"/(C4�5$����"���C�"���Cgpred
	�gls	�gresult		?�gls		E	tgp		E	tgfilenamefsrfi/srfi-1.scm�
�
��	�	��	+�	��	,�	��	.�	��	3�	��	5�	��	9�	��	<�	��	?�	��	?�		��	E�	��	K�	
��	O�	��	T�	��	V�	��	Z�	
��	_�	&��	b�	 ��	c�	��	f�	��	i�	!��	q�	��	t�	��	w�	����	����	��	�	gnameg
take-while�g
documentationfjReturn a new list which is the longest initial prefix of LS whose
elements all satisfy the predicate PRED.�CIR��Jhhe]45$"4>"G"2(C4�5$
�"����$�CC"���]gpred
		fglst		fgprev		)	[grest		)	[gfilenamefsrfi/srfi-1.scm�
�
��	�	��	)�	��	/�	��	3�	��	8�	��	:�	��	>�	��	C�	��	K�	��	N�	��	R�	��	U�	 ��	V�	��	Z�	��	[�	��		f	gnamegtake-while!�g
documentationf&Linear-update variant of `take-while'.�CJR��KhX\]
45$"4>"G" (C4�5$	�"���C"���Tgpred
		Qglst		Qglst		)	Igfilenamefsrfi/srfi-1.scm�
�
��	�	��	)�	��	/�	��	0�	��	2�	��	7�	��	9�	��	=�	��	@�	��	F�	��	I�	��
		Q	gnameg
drop-while�g
documentationfUDrop the longest initial prefix of LST whose elements all satisfy the
predicate PRED.�CKR��L�hh�]45$"4>"G"3("4�5$���"���45D"����gpred
		gglst		gglst		)	\grl		)	\gfilenamefsrfi/srfi-1.scm�
�
��	�	��	)�	��	/�	��	5�	
��	:�	��	<�	
��	@�	��	C�	��	F�	��	I�	��	Q�	��	R�	��	\�	��	\�	��	_�	��	g�	��		g	gnamegspan�g
documentationf}Return two values, the longest initial prefix of LST whose elements
all satisfy the predicate PRED, and the remainder of LST.�CLR��Mhp~]45$"4>"G":(D4�5$
�"����$
�DD"���vgpred
		nglist		ngprev		)	cgrest		)	cgfilenamefsrfi/srfi-1.scm�
�
��	�	��	)�	��	/�	��	2�	��	4�	��	5�	��	:�	��	<�	��	@�	��	E�	��	M�	��	P�	��	T�	��	W�	 ��	X�	��	^�	��	_�	��	c�	��	c�	��		n	gnamegspan!�g
documentationf Linear-update variant of `span'.�CMR��N�hh�]45$"4>"G"3("4�5$45D���"���"����gpred
		ggclist		ggclist		)	\grl		)	\gfilenamefsrfi/srfi-1.scm�
�
��	�	��	)�	��	/�	��	0�	��	5�	��	:�	��	<�	��	@�	��	A�	��	K�	��	N	��	Q	��	T	��	\	��	\�	��	_�	��	g�	��		g	gnamegbreak�g
documentationfzReturn two values, the longest initial prefix of LST whose elements
all fail the predicate PRED, and the remainder of LST.�CNR��Ohp}]45$"4>"G":(D4�5$�$
�DD�"���"���ugpred
		nglist		ngl		)	cgprev		)	cgfilenamefsrfi/srfi-1.scm�

��		��	)	��	/	��	2	��	4	��	5		��	:		��	<		��	@	��	C
	��	G
	��	J	 ��	K	��	Q
	��	R	��	V	��	Y	��	c	��	c	��		n	gnamegbreak!�g
documentationf!Linear-update variant of `break'.�COR��P�l�nm	h�u-1345$"4>"G(6"X45$C4455$
45@445?$C45"����"���mgpred
		�gls		�glists			�glists		>�gt		|�gfilenamefsrfi/srfi-1.scm�

��	
	��	2	��	:	��	>	��	?	��	K	��	N	��	S	��	]	��	a	��	d	��	n	��	o	��	r	��	|	��	|	���	4���	0���	���	���	��		�	
	gnamegany�CPRh@
]"2(C�(�64�5$C�"���"���gpred
		@gls		@gls			8gt		$	8gfilenamefsrfi/srfi-1.scm�

��		��	 	��	"	��	 	��	#	��	#	��	%	��	"%	��	$%	��	$%	��	2%	#��	8%	��	8	��		@	gnamegany1�C�R��Q��l�nm
h�h-1345$"4>"G(6"S45$C4455$
4	5@44	5?$45"���C�"���`gpred
		�gls		�glists			�glists		>�gfilenamefsrfi/srfi-1.scm�
'
��	
(	��	2)	��	:*	��	>+	��	?,	��	K,	��	N.	��	S.	��	].	��	a,	��	d/	��	n/	��	o1	��	r1	 ��	|1	���1	���1	5���1	1���+	���+	���+	��		�	
	gnamegevery�CQRh@�]
"-(C�(�64�5$	�"���C"����gpred
		;gls		;gls			3gfilenamefsrfi/srfi-1.scm�
3
��	4	��	5	��	7	��	5	��	8	��	8	��	:	��	":	��	$:	��	(:	��	+:	$��	1:	 ��	34	��		;	gnamegevery1�C�R����l�mn	h�A-1345$"4>"G(4"%(C4�5$C��"���
"���"845$C445?$C45�"����
"���9gpred
		�gclist1		�grest			�gl		6	[gi		6	[glists		j�gi		j�gfilenamefsrfi/srfi-1.scm�
<
��	
?	��	2@	��	6A	��	<B	��	?D	��	DD	��	FD	��	JD	��	PF	��	SF	��	[F	
��	[A	��	jG	��	kH	
��	wH	��	zJ	
��	}J	���J	
���H	���L	���L	!���L	
���G	���G	���G	��		�	
	gnameg
list-index�g
documentationfgReturn the index of the first set of elements, one from each of
CLIST1 ... CLISTN, that satisfies PRED.�C�R�iTR�Th8r]"&(6�4����5"���"���jgalist
		7ga		,grl			,gfilenamefsrfi/srfi-1.scm�
R
��	U	��	W	��	X	��	Y	��	Y	��	Y	 ��	Y	)��	$Y	��	,Y	��	,U	��	/V	��	7U	��		7gnameg
alist-copy�g
documentationfeReturn a copy of ALIST, copying both the pairs comprising the list
and those making the associations.�CUR���V�h�N-.,3#45$"4>"G"9(64��5$
�"������"���"���Fgkey
	�galist	�gk=		�ga		=	vgrl		=	vgfilenamefsrfi/srfi-1.scm�
[
��	\	��	=]	��	C^	��	I_	��	J`	��	Q`	��	T`	��	X`	��	[a	��	ea	��	hb	��	kb	��	nb	��	vb	��	v]	��	y]	���]	��	�	gnamegalist-delete�CVR�Vh �-.,3#6�gkey
		 galist		 gk=			 gfilenamefsrfi/srfi-1.scm�
d
��	 e	��		 	gnameg
alist-delete!�CWR��������Hh\]LL6Tgy
		
gfilenamefsrfi/srfi-1.scm�
q	��	
q	��		
Chh�-.,3#&6&645$"4>"G	
O6�gx
		hgls		hg=			hgfilenamefsrfi/srfi-1.scm�
i
��	j	��	&m	��	.j	��	6n	��	7p	��	hq	��		h	gnamegmember�C�R��XQ�hf]L�L6^gel
		
gfilenamefsrfi/srfi-1.scm�
{	��		{	0��	
{	%��		
Chx-1345$"4>"G(C",(C4O5$��"���C��"���g=
			rgrest			rgf		8	dgr		8	dgfilenamefsrfi/srfi-1.scm�
u
��	
v	��	2w	��	8y	��	>z	��	?z	��	A{	��	T{	��	W|	��	Z|	��	b|	��	dy	��	gy	��	jy	!��	ry	��			r
gnameglset<=�CXR��XQ�hf]L�L6^gel
		
gfilenamefsrfi/srfi-1.scm�
�	��		�	.��	
�	#��		
C�hk]L6cgx
		
gy		
gfilenamefsrfi/srfi-1.scm�
�	0��	
�	>��		
	Ch]]LLO6Ugel
		gfilenamefsrfi/srfi-1.scm�
�	��	�	#��		Ch�<-1345$"4>"G(C"C(C4O5$%4O�5$��"���CC��"���4g=
		�grest		�gf		8	{gr		8	{gfilenamefsrfi/srfi-1.scm�
~
��	
	��	2�	��	8�	��	>�	��	?�	
��	A�	��	T�	
��	U�	��	c�	I��	e�	��	i�	
��	l�	��	o�	��	w�	��	{�	��	~�	����	����	��		�
gnameglset=�CYR����Zhk]L6cgx
		
gy		
gfilenamefsrfi/srfi-1.scm�
�	
��	
�	��		
	C�h��-13H&"�$"*45$"4>"GOK"0(C4�J5$"���"���"����g=
		�glist		�grest			�gpred		
�gans		X�grest		X�gfilenamefsrfi/srfi-1.scm�
�
��	�	��	�	��	�	��	"�	��	)�	
��	X�	��	^�	��	b�	��	g�	��	m�	��	q�	��	z�	��	}�	����	����	����	��		�	
	gnameglset-adjoin�g
documentationflAdd to LIST any of the elements of REST not already in the list.
These elements are `cons'ed onto the start of LIST (so the return shares
a common tail with LIST), but the order they're added is unspecified.

The given `=' procedure is used for comparing elements, called
as `(@var{=} listelem elem)', i.e., the second argument is one of the
given REST parameters.�CZR����[hk]L6cgx
		
gy		
gfilenamefsrfi/srfi-1.scm�
�	
��	
�	��		
	C66�h �]4M5$C�Cygelt
		gans		gfilenamefsrfi/srfi-1.scm�
�	��	�	��	�	��	�	��			Ch0x](C(C&CLO6pglis
		.gans		.gfilenamefsrfi/srfi-1.scm�
�	��	�	
��	.�	��		.	C	hh�-13H&"�$"*45$"4>"GOKO6�g=
			bgrest			bgpred		
	bgfilenamefsrfi/srfi-1.scm�
�
��	�	��	�	��	�	��	"�	��	)�	
��	^�	��	b�	��				b
gnameg
lset-union�C[R��\�Q�hf]L�L6^gll
		
gfilenamefsrfi/srfi-1.scm�
�	��	�	&��	
�	��		
Ch�?-1345$"4>"G">(64O5$���"����"���"���7g=
			yglist1			ygrest				ygl		0	ngacc		0	ngfilenamefsrfi/srfi-1.scm�
�
��	
�	��	0�	��	6�	��	<�	��	=�	
��	P�	��	S�	��	V�	��	Y�	��	a�	��	d�	��	n�	��	n�	��	q�	��	y�	��			y	
	gnameglset-intersection�C\R��]�P�hf]L�L6^gll
		
gfilenamefsrfi/srfi-1.scm�
�	��	�	&��	
�	��		
Ch�K-1345$"4>"G(C">(64O5$
�"������"���"���Cg=
		�glist1		�grest			�gl		9	wgacc		9	wgfilenamefsrfi/srfi-1.scm�
�
��	
�	��	2�	��	9�	��	?�	��	E�	��	F�	��	Y�	��	\�	��	f�	
��	i�	��	l�	��	o�	��	w�	
��	w�	��	z�	����	��		�	
	gnameglset-difference�C]R��^6��h��]""~(J":(64�L5$
�"������"���"���4�L5$
�"������"���"��w�glst
	�gres	�gl		�gacc		�gr			Jgacc			Jgfilenamefsrfi/srfi-1.scm�
�	��	�	
��	�	��	�	��	�	��	�	��	�	��	"�	��	(�	��	,�	��	/�	��	9�	��	<�	��	?�	'��	B�	!��	J�	��	J�	��	W�	��	\�	��	b�	��	f�	��	i�	��	s�	��	v�	��	y�	"��	|�	����	����	
����	 ����	
��	�	Ch@�-1345$"4>"GO6�g=
			:grest			:gfilenamefsrfi/srfi-1.scm�
�
��	
�	��	6�	��	:�	��			:
gnameglset-xor�C^R��_�Q�hf]L�L6^gll
		
gfilenamefsrfi/srfi-1.scm�
�	��	�	1��	
�	)��		
Ch��-1345$"4>"G"X(4545D4O5$���"������"���"����g=
		�glist1		�grest			�gl		0�gaccd		0�gacci		0�gappears		V�gfilenamefsrfi/srfi-1.scm�
�
��	
�	��	0�	��	6�	��	7�	��	>�	��	F�	��	G�	��	V�	��	^�	��	a�	��	f�	!��	i�	��	s�	
��	v�	��	y�	��	|�	����	
����	����	����	&����	��		�	
	gnameglset-diff+intersection�C_R��`[h8�-1345$"4>"G@�g=
			4grest			4gfilenamefsrfi/srfi-1.scm�
�
��	
�	��	4�	��			4
gnameglset-union!�C`R��a\h8�-1345$"4>"G@�g=
			6glist1			6grest				6gfilenamefsrfi/srfi-1.scm�
�
��	
�	��	6�	��			6	
	gnameglset-intersection!�CaR��c^h8�-1345$"4>"G@�g=
			4grest			4gfilenamefsrfi/srfi-1.scm�
�
��	
�	��	4�	��			4
gnameg	lset-xor!�CcR��d_h8�-1345$"4>"G@�g=
			6glist1			6grest				6gfilenamefsrfi/srfi-1.scm�
�
��	
�	��	6�	��			6	
	gnameglset-diff+intersection!�CdRC�gm
		0gfilenamefsrfi/srfi-1.scm�		'
��	1�
��	6�	��	>�	&��	C�
��	L�
��	Q�	��	W�	��	X�	+��	`�	��	b�	��	g�
����
��l�
����
����
��
�
���
��
�
��/
���
���%
���7
���@
��G
��[
��\
��$]
��+^
���_
��Y`
���a
���b
��*c
���d
���f
���j
���k
��q
���w
���}
����
�� ��
��"��
��#��
��%9�
��%��
��&��
��'D�
��(�
��)�
��,z�
��/]�
��2*�
��5s�
��9%
��;B
��=X 
��?@*
��E�1
��E�W
��K�Y
��Lg�
��M8�
��M?�
��QD�
��Si�
��V*�
��X�
��Y��
��\�
��^)�
��`q�
��bx
��d�
��f
��hC'
��i�3
��l�<
��l�P
��nmR
��pa[
��q6d
��r�i
��u'u
��x�~
��|��
����
�����
�����
���@�
���2�
����
����
�����
�����
��a	��
C6
© 2025 GrazzMean