/
/
lib64
/
guile
/
2.0
/
ccache
/
srfi
Server: server63.web-hosting.com (198.54.116.184)
You: 216.73.216.61
PHP 7.4.33
Dir:
/lib64/guile/2.0/ccache/srfi
Edit:
/lib64/guile/2.0/ccache/srfi/srfi-35.go
GOOF----LE-8-2.0�F ] 4 hQ ] g guile� � g define-module*� � � g srfi� g srfi-35� � g filenameS� f srfi/srfi-35.scm� g importsS� g srfi-1� � � � g exportsS� g make-condition-type� g condition-type?� g make-condition� g condition?� g condition-has-type?� g condition-ref� g make-compound-condition� g extract-condition� g define-condition-type� g condition� g &condition� g &message� g message-condition?� g condition-message� g &serious� g serious-condition?� !g &error� "g error?� # !" � $g set-current-module� %$ � &$ � 'g cond-expand-provide� (g current-module� ) � *g make-vtable� +g string-append� ,g standard-vtable-fields� -f prprpr� .g format� /f #<condition-type ~a ~a>� 0g condition-type-id� 1g number->string� 2g object-address� 3g set-struct-vtable-name!� 4g condition-type� 5g %condition-type-vtable� 6g make-struct-layout� 7g print-condition� 8g string?� 9g string->symbol� :f � ;g %make-condition-type� <g vtable-offset-user� =g condition-type-parent� >g condition-type-all-fields� ?g string-concatenate/shared� @f pr� A@ � Bg struct-layout-for-condition� Cf #<condition ~a [~a] ~a>� Dg fold� Ef ~A: ~S� Fg string-join� Gg reverse� Hf � Ig error� Jf "invalid condition type field names� Kg every� Lg symbol?� Mg lset-intersection� Ng eq?� Og append� Pf parent is not a condition type� Qf )condition type identifier is not a symbol� Rf 7`make-compound-condition-type' passed empty parent list� Sg append-map� Tg make-compound-condition-type� Ug throw� Vg wrong-type-arg� Wf condition-has-type?� Xf Wrong type argument� Yg any� Zg list-index� [f invalid field name� \f field name is not a symbol� ]f condition-ref� ^f Wrong type argument: ~S� _g make-struct� `g make-condition-from-values� ag fold-right� bg memq� cf field not specified� df make-condition� eg map� fg compound� gg reverse!� hf extract-condition� ig +� jg length� kg make-syntax-transformer� lk � mk � ng macro� og $sc-dispatch� po � qo � rg each� sYY � trs � uYt�� vYu�� wYv�� xYw�� yg syntax-object� zg begin� {g top� |{ � }g ribcage� ~g dummy� g name� �g parent� �g pred� �g field-name� �g field-accessor� �~���� � �g m-46961e5119-cc� ��{ � ��||||| � �f l-46961e5119-d1� �f l-46961e5119-d2� �f l-46961e5119-d3� �f l-46961e5119-d4� �f l-46961e5119-d5� �f l-46961e5119-d6� ������� � �}��� � �} � �g x� �� � �� � �f l-46961e5119-ce� �� � �}��� � �|��� � �g hygiene� �� � �yz�� � �g define� �y��� � �y�� � �g quote� �y��� � �g c� �y��� � �� � �y�� � �e � �e � �y�� � �g syntax-violation� �� � �� � �f -source expression failed to match any pattern� �g compound-condition� �g each-any� �Y�� � �g type� �g field� �~�� � �g m-46961e5119-e1� ��{ � ��|| � �f l-46961e5119-e6� �f l-46961e5119-e7� �f l-46961e5119-e8� ���� � �}��� � �� � �f l-46961e5119-e3� �� � �}��� � �|��� � �y�� � �yT�� � �y��� � �g %compound� �y��� � ��� � �g quasiquote� �y��� � �g unquote� �y��� � �g condition-instantiation� �YY� � �g out� �~�� � �g m-46961e5119-ee� ��{ � ��|| � �f l-46961e5119-f3� �f l-46961e5119-f4� �f l-46961e5119-f5� ���� � �}��� � �� � �f l-46961e5119-f0� �� � �}��� � �|��� � �y�� � �s��� ��ڌ� �Yی� �Y܌� �g field-value� �g rest� �~����� � ��||||| � �f l-46961e5119-fb� �f l-46961e5119-fc� �f l-46961e5119-fd� �f l-46961e5119-fe� �f l-46961e5119-ff� �f l-46961e5119-100� ������� � �}��� � �|��� � �y��� � �O � �O � �y��� � �Y��� �Y� � �g m-46961e5119-109� ��{ � ��|| � �f l-46961e5119-10e� �f l-46961e5119-10f� �f l-46961e5119-110� ���� � �}��� � �� � �f l-46961e5119-10b� �� � �}��� � �|��� � �y��� � �r� � Y���f l-46961e5119-116�f l-46961e5119-117�f l-46961e5119-118� �}�� �|�� �y�� �g display� f <&condition>� g message� �C 5 hx0 � ]4 #5 4& > " G 4'i4(i5 )> " G 4*i4+i,i-5./012 h � ]4 544 5 56 � g ct g port g filenamef srfi/srfi-35.scm� 3 �� 4 '�� 5 "�� 6 "�� 6 2�� 6 "�� 4 �� C5 43i 4> " G 5R567389: hX 0 ]4 5� 4�$ " 45$ 45" 45> " G C ( g layout W g id W g parent W g all-fields W g struct W g filenamef srfi/srfi-35.scm� ; �� = �� < �� < �� C �� C +�� $ C $�� + D +�� 5 C $�� 6 D 8�� A E 8�� E E H�� G E 8�� L C �� W g nameg %make-condition-type� C;R5 h � ] �$ ��CC � g obj g filenamef srfi/srfi-35.scm� H �� J �� J �� K �� K �� g nameg condition-type?�g documentationf 'Return true if OBJ is a condition type.� CR< h � ]4 5$ ��CC � g ct g filenamef srfi/srfi-35.scm� N �� O �� O �� P �� P �� g nameg condition-type-id� C0R< h � ]4 5$ ��CC � g ct g filenamef srfi/srfi-35.scm� R �� S �� S �� T �� T �� g nameg condition-type-parent� C=R< h � ]4 5$ ��CC� g ct g filenamef srfi/srfi-35.scm� V �� W �� W �� X �� X �� g nameg condition-type-all-fields� C>R?@A h0 ]" ( 6��"��� "��� � g field-names . g field-names " g layout " g filenamef srfi/srfi-35.scm� [ �� ^ �� ` �� a �� b �� c �� c �� " b �� " ^ �� & _ �� . ^ �� . g nameg struct-layout-for-condition� CBR.C04D.E h � ]4 4L 55�C � g field g result g filenamef srfi/srfi-35.scm� j �� k "�� k -�� l *�� k "�� k �� C>FGH12 hX ? ]44 55 �4 O 45544 5 544 5 56 7 g c S g port S g type C g strings - @ g filenamef srfi/srfi-35.scm� e �� r �� s �� s �� s �� i �� i �� j �� $ n �� % o �� - j �� - i �� 0 p �� 3 p �� ; p %�� = p �� D u �� G u �� Q u �� S r �� S g nameg print-condition� C7R>IJKLMNOB;PQ h� � ] �$ l45$ Y45" 645$ 345( 4 54 5 6"���"���6 6 � g id } g parent } g field-names } g parent-fields m g all-fields N e g layout W e g filenamef srfi/srfi-35.scm� w �� | �� | �� } �� } �� ~ �� ~ �� % � �� ) � �� ) �� * �� 6 �� 7 � �� E �� F � #�� N � �� Q � #�� W � �� e � �� q � �� u � �� y � �� } � �� } g nameg make-condition-type�g documentationf �Return a new condition type named ID, inheriting from PARENT, and with the fields whose names are listed in FIELD-NAMES. FIELD-NAMES must be a list of symbols and must not contain names already used by PARENT or one of its supertypes.� CRIRS>B; h@ ! ]( 6�( �C4545 6 g id ; g parents ; g all-fields $ ; g layout - ; g filenamef srfi/srfi-35.scm� � �� � �� � �� � �� � �� � �� � �� � �� $ � �� ' � �� - � �� ; � �� ; g nameg make-compound-condition-type� CTR h � ] �$ �6C � g c g filenamef srfi/srfi-35.scm� � �� � �� � �� � �� � �� g nameg condition?�g documentationf Return true if C is a condition.� CR h � ] �$ �45$ CCC� g c g vtable g filenamef srfi/srfi-35.scm� � �� � �� � �� � �� � �� � �� � �� g nameg condition-type� C4RUVWX=Y h@ � ] L&