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$ C4M5 45$ .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$ C4M5 45$ .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