GOOF----LE-8-2.0KA ] � 4 h�
] g guile� � g define-module*� � � g srfi� g srfi-18� � g filenameS�
f srfi/srfi-18.scm� g importsS� g srfi-34�
�
� � g exportsS� g make-thread� g thread-name� g thread-specific� g thread-specific-set!� g
thread-start!� g
thread-yield!� g
thread-sleep!� g thread-terminate!� g thread-join!� g
make-mutex� g
mutex-name� g mutex-specific� g mutex-specific-set!� g mutex-state� g mutex-lock!� g
mutex-unlock!� !g make-condition-variable� "g condition-variable-name� #g condition-variable-specific� $g condition-variable-specific-set!� %g condition-variable-signal!� &g condition-variable-broadcast!� 'g condition-variable-wait!� (g current-time� )g time?� *g
time->seconds� +g
seconds->time� ,g current-exception-handler� -g with-exception-handler� .g raise� /g join-timeout-exception?� 0g abandoned-mutex-exception?� 1g terminated-thread-exception?� 2g uncaught-exception?� 3g uncaught-exception-reason� 4 !"#$%&'()*+,-./0123 #� 5g
re-exportsS� 6g current-thread� 7g thread?� 8g mutex?� 9g condition-variable?� :6789 � ;g replacementsS� <(!. � =g set-current-module� >= � ?= � @g provided?� Ag threads� Bg error� Cf +SRFI-18 requires Guile with threads support� Dg cond-expand-provide� Eg current-module� F � Gg scm-error� Hg wrong-type-arg� If Wrong type argument: ~S� Jg check-arg-type� Kg abandoned-mutex-exception� Lg join-timeout-exception� Mg terminated-thread-exception� Ng uncaught-exception� Og make-weak-key-hash-table� Pg object-names� Qg object-specifics� Rg thread-start-conds� Sg thread-exception-handlers� T
. � U
. � Vg srfi-18-exception-preserver� Wg initial-handler� Xg make-object-property� Yg thread->exception� Zg setter� [Z � \Z � ]g srfi-18-exception-handler� ^g hashq-ref� _g
hashq-set!� `g current-handler-stack� ag
procedure?� bf with-exception-handler� cg thunk?� d
- � e
- � ff uncaught-exception-reason� gg launch-mutex� hg launch-condition-variable� ig start-mutex� jg start-condition-variable� kg
lock-mutex� lg call-with-new-thread� mg signal-condition-variable� ng unlock-mutex� og wait-condition-variable� pf thread-name� qf thread-specific� rf thread-specific-set!� sf
thread-start!� tg
hashq-remove!� ug yield� vg number?� wf
thread-sleep!� xg inexact->exact� yg truncate� zg sleep� {g usleep� |g wrap� }g thread-cleanup� ~g set-thread-cleanup!� g
cancel-thread� �g join-thread� �g length� � � � � �g unchecked-unlock� �g allow-external-unlock� �g recursive� �f
mutex-name� �f mutex-specific� �f mutex-specific-set!� �g mutex-owner� �g thread-exited?� �g abandoned� �g mutex-level� �g not-owned� �g
not-abandoned� �g catch� �g abandoned-mutex-error� �! � �! � �f condition-variable-name� �f condition-variable-specific� �f condition-variable-specific-set!� �g broadcast-condition-variable� �g gettimeofday� �g integer?� �f
time->seconds� �f
seconds->time�C 5 h@0 � ]4
45:;<5 4? > "