[EDIT] FILE: 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$ 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
SAVE
CANCEL