Da

✏️ Editing: runq.go

GOOF----LE-8-2.0�������]�4�4��h9������]�g��guile�	��	g��define-module*�	��	��	g��ice-9�	g��runq�	��		g��filenameS�	
f��ice-9/runq.scm�	g��importsS�	g��q�	
��	
��	��	g��exportsS�	g��runq-control�	g��make-void-runq�	g��make-fair-runq�	g��make-exclusive-runq�	g��make-subordinate-runq-to�	g��strip-sequence�	g��fair-strip-subtask�	��	g��set-current-module�	��	��	g��add!�	g��for-each�	g��enq!�	g��
*unspecified*�	 g��enqueue!�	!g��push!�	"g��q-push!�	#g��empty?�	$g��q-empty?�	%g��length�	&g��q-length�	'g��kill!�	(g��make-q�	)g��throw�	*g��not-understood�	+g��catch�	,g��warn�	-g��
runq-strip�	.g��	run-strip�	/g��
apply-to-args�	0g��deq!�	1g��
procedure?�	2g��suspend�	3g��apply�C�5��h�������]4	
5�4�>��"��G����h���Y���]M��6������Q�������g��t
		
��g��filenamef��ice-9/runq.scm�
	I	*��	
	I	6���		
���C �����h���Y���]M��6������Q�������g��t
		
��g��filenamef��ice-9/runq.scm�
	J	*��	
	J	6���		
���C!"�������h���Y���]M��6������Q�������g��t
		
��g��filenamef��ice-9/runq.scm�
	K	*��	
	K	6���		
���C#$%&'()*����h����,��-�1�3��H��$��4�O�>��"��G��C�$��4�O�>��"��G��C�$��4�O�>��"��G��C	�$��
J�6�$��J�6
�$��	45�K�C6��$������g��q
	
���g��msg	
���g��args		
����g��filenamef��ice-9/runq.scm�
	G
��		H	��		I	 ��	1	I	H��	;	H	��	<	J	 ��	V	J	H��	`	H	��	a	K	 ��	{	K	K����	H	����	L	 ����	H	����	M	 ����	H	����	N	(����	N	 ����	O	'����	O	 ���		��	
	��g��nameg��runq-control��CR+,-������h(���m���-��1��3�4L��>��"��G��C�������e�������g��ign
			!��g��filenamef��ice-9/runq.scm�
	Q	*��	
	Q	6��		Q	<��		Q	6���			!

���C��������h���r���]��O�6j�������g��thunk
		��g��filenamef��ice-9/runq.scm�
	Q
��		Q	���		��g��nameg��	run-strip��C.R/%�h���n���-�1�3���$��
CC��f�������g��msg
			�g��args			��g��filenamef��ice-9/runq.scm�
	]	
��		^	���			
���C�������h ���f���-��1��3��$���6C�������^�������g��opts
			��g��filenamef��ice-9/runq.scm�
	Z	��		[	��		\	���

���C�������h���[���]�C���S�������g��filenamef��ice-9/runq.scm�
	Y
���		
��g��nameg��make-void-runq��CR$01.�h����l��-��1��3��$��M�@4M5$��C4M545$��.45$��4M>��"��G��"���"��V�$��O4�5$��4M>��"��G��"����(��"��4M�>��"��G��"���L�C�d������g��ctl
		���g��
next-strip	+���g��k		?	b�g��k		u����g��filenamef��ice-9/runq.scm�
	p	��		q	��		r	��		s	��	"	s	��	%	t	)��	+	t	��	.	v	��	8	u	��	9	v	A��	?	v	8��	G	w	:��	H	w	A��	i	x	��	m	u	��	n	x	7��	s	x	B��	u	x	7��	u	x	.��	}	y	0��	~	y	7����	z	>����	z	.����	{	2����	{	:����	{	2���		��

��g��nameg��self��C(�������h(�������]H�O��Q�45�K�C����������g��q
		&�g��self		&�g��q			#��g��filenamef��ice-9/runq.scm�
	m
��		n	��		n	���		&
��g��nameg��make-fair-runq��CR$01."�h�������-��1��3��$��M�@4M5$��C4M545$��.45$��4M>��"��G��"���"��V�$��O4�5$��4M>��"��G��"����(��"��4M�>��"��G��"���L�C�~������g��ctl
		���g��
next-strip	+���g��k		?	b�g��k		u����g��filenamef��ice-9/runq.scm�
��	��	��	��	��	��	��	��	"��	��	%��	)��	+��	��	.��	��	8��	��	9��	A��	?��	8��	G��	:��	H��	A��	i��	��	m��	��	n��	7��	s��	B��	u��	7��	u��	.��	}��	0��	~��	7������	>������	.������	2������	=������	2���		��

��g��nameg��self��C(�����h(�������]H�O��Q�45�K�C����������g��q
		&�g��self		&�g��q			#��g��filenamef��ice-9/runq.scm�
��
��	��	��	��	���		&
��g��nameg��make-exclusive-runq��CR#%�hH�������]4L5$��L��C"��#�
�$��C4L>���"��G�����"���4L5�"������������g��n
		:��g��filenamef��ice-9/runq.scm�
��	��	��	��	��	 ��		��	��	
��	��	��	��	��	��	��	��	��	��	"��	��	4��	1��	:��	��	;��	��	?��	(��	A��	��	G��	���		G
���C2#�����h����g��-��1��3��$��U���$��L�C4L�?L�$��"��4L5�$��LL�4LL>��"��G��"���C4L5�4L�>��"��G��C_������g��ctl
		���g��key		d�g��answer		*	d�g��answer	i����g��filenamef��ice-9/runq.scm�
��	��	��	��	��	��	��	��	!��	0��	$��	>��	*��	0��	/��	@��	3��	6��	9��	V��	=��	b��	?��	V��	@��	Q��	D��	2��	I��	8��	J��	8��	N��	G��	U��	8��	e��	"��	i��	��	l��	��	p��	��	u��	���		��

��g��nameg��self��C������h0�������]�O��O��Q�C������������g��
superior-runq
		,�g��
basic-runq		,�g��	runq-task			,�g��self			,��g��filenamef��ice-9/runq.scm�
��
��	��	��	��	��	��	��	��	���		,	��g��nameg��make-subordinate-runq-to��CR�h���]���]�LL�L��6����U�������g��filenamef��ice-9/runq.scm�
��	��		��	-��	
��	"��	��	���		
���C�h���T���]�LL��6�������L�������g��filenamef��ice-9/runq.scm�
��	��	��	"��		��	���			
���C�h0�������]	�(��C4��5�$���L�O�C�L�O�C����������g��st
		.�g��then		.��g��filenamef��ice-9/runq.scm�
��	��	��	��	��	��	��	��	��	��	��	��	��	
���		.��g��nameg��loop��C��h �������]O���Q���M�N�6��������g��loop
	
	�g��a		��g��filenamef��ice-9/runq.scm�
��	��	
��	��	��	��	��	%��	��	���		
���C������h���s���-��1��3��H��O�C���k�������g��strips
	
	��g��filenamef��ice-9/runq.scm�
��
���

��g��nameg��strip-sequence��CR3��������h0�������-��1��3�45�4�>��"��G��C���������������g��initial-strips
			)�g��st		)��g��filenamef��ice-9/runq.scm�
��
��	
��	��	��	��	��	��	��	��	��	���			)

��g��nameg��fair-strip-subtask��CRC��������g��m
		,��g��filenamef��ice-9/runq.scm�		0
���	G
���	Q
���	Y
��	�	m
�����
��Z��
��~��
�����
���
	�
���C6�

📁 Sid Gifari File Manager