/
/
lib64
/
guile
/
2.0
/
ccache
/
system
/
base
Server: server63.web-hosting.com (198.54.116.184)
You: 216.73.216.121
PHP 7.4.33
Dir:
/lib64/guile/2.0/ccache/system/base
Edit:
/lib64/guile/2.0/ccache/system/base/syntax.go
GOOF----LE-8-2.0�L ] 4 h� ] g guile� � g define-module*� � � g system� g base� g syntax� � g filenameS� f system/base/syntax.scm� g exportsS� g %compute-initargs� g define-type� g define-record� g define-record/keywords� g record-case� g transform-record� � g set-current-module� � � g string->symbol� g string-trim-both� g symbol->string� g symbol-trim-both� g list->char-set� <> � g trim-brackets� g make-syntax-transformer� � � !g macro� "g $sc-dispatch� #" � $" � %g _� &g any� '%&�� (g syntax->datum� )( � *( � +g datum->syntax� ,+ � -+ � .g kw-arg-ref� /g printerS� 0g common-slotsS� 1g begin� 2g append� 32 � 42 � 5g map� 6g define� 7g symbol-append� 8g -� 9g make-procedure-with-setter� :g lambda� ;g x� <; � =g struct-ref� >g v� ?;> � @g struct-set!� A> � Bg iota� Cg length� Dg syntax-violation� ED � FD � Gf -source expression failed to match any pattern� Hg make-record-type� Ig quote� Jg list-tail� Kg module-gensym� Lf defrec� Mg make-� Ng let� Og cond� Pg null?� Qg else� Rg _x� Sg car� Tg set!� Ug cdr� VR � Wg make-struct� Xg ?� Yg record-predicate� Zg record-accessor� [g record-modifier� \g slots� ]g list� ^g cons� _g constructor� `g record-constructor� ag args� bg apply� c a\ � db_c � e:ad � fe � gg assq� hg error� if unbound slot� jg keyword?� kg keyword->symbol� lg memq� mg filter� ng pair?� of unknown slot� pf slot already set� qf too many initargs� rg each-any� s&r�� t%s�� ug syntax-object� vg r� wg top� xw � yg ribcage� zg record� {g clause� |z{ � }xx � ~f l-3d2ad63ef-21d� f l-3d2ad63ef-21e� �~ � �y|}� � �y � �; � �x � �f l-3d2ad63ef-21a� �� � �y��� � �x��� � �g hygiene� �� � �uv�� � �g rtd� �u��� � �g reverse!� �g lp� �g clauses� �g out� ���� � �xxx � �f l-3d2ad63ef-265� �f l-3d2ad63ef-266� �f l-3d2ad63ef-267� ���� � �y��� � �g process-clause� �� � �x � �f l-3d2ad63ef-225� �� � �y��� � �v� � �f l-3d2ad63ef-221� �f l-3d2ad63ef-222� ��� � �y�}� � �x�������� � �uQ�� � �uh�� � �f unhandled record� �u��� � �uv�� � ���� � ��� � �g free-id� ��� � ��s�� �� � �g e0� �g e1� ��� � �f l-3d2ad63ef-26f� �f l-3d2ad63ef-270� ��� � �y�}� � �x��������� � �uQ�� � ��&�� �f bad else clause placement� �g rest� ���� � �f l-3d2ad63ef-275� �f l-3d2ad63ef-276� �f l-3d2ad63ef-277� ���� � �y��� � �x��������� � �u;�� � �uQ�� � �sr�� ��&�� �&& � ��r�� �g infix� �� � �f l-3d2ad63ef-22e� �� � �y��� � �g tag� �g fields� �g exprs� ���� � �f l-3d2ad63ef-22b� �f l-3d2ad63ef-22c� �f l-3d2ad63ef-22d� ���� � �y��� � �x���������� � �u�� � �� � �g each� �&&�� ��� � �&�s � �g eq?� �g f� �g accessor� ������ � �xxxxx � �f l-3d2ad63ef-233� �f l-3d2ad63ef-234� �f l-3d2ad63ef-235� �f l-3d2ad63ef-236� �f l-3d2ad63ef-237� ������ � �y��� � �x������������ � �u��� � �u��� � �uN�� � �5 � �5 � �uv�� � �� � �&&r � �g let*� �g processed� �v�� � �f l-3d2ad63ef-25e� �f l-3d2ad63ef-25f� �f l-3d2ad63ef-260� ���� � �y��� � �x�������� � �u��� � �g struct-vtable� �u��� � �uO�� � f rec�f rtd�g ->�g unquote�f bad -> form�g <�g >�g and�g reverse� g if� � �C 5 h�9 r ]4 5 4 > " G h � ]44 556 � g sym g pred g filenamef system/base/syntax.scm� �� �� $�� �� �� g nameg symbol-trim-both� CR h � ] 456 � g sym g filenamef system/base/syntax.scm� �� �� (�� �� �� g nameg trim-brackets� CR4 !$'*-./01454 h( � ]L$ �L " �4L �5��C � g def & g filenamef system/base/syntax.scm� ( �� ) �� ) (�� * /�� * ,�� + ,�� ) �� ! - �� # ) �� & C6789:<=;?@A h@ � ]44L 5 5 ��� C � g common-slot ? g i ? g filenamef system/base/syntax.scm� / �� 0 �� 0 !�� 0 0�� 1 0�� 0 !�� 0 �� ? CBC h� � - 1 3 �$ �" �$ �" 4545$ " 44O 54O 4 4 5555�C z g name � g rest � g name ( � g opts ( � g t > P g printer P � g common-slots P � g filenamef system/base/syntax.scm� # �� $ �� $ �� $ �� % �� % �� # % �� ( % *�� ( $ �� - & �� 6 ' �� > ' �� M ' =�� P & �� V ( �� Z ( �� j / �� v 5 "�� y 5 (�� � 5 "�� � / �� � ( �� � C h j ] 4 5L 4?6b g args g v g filenamef system/base/syntax.scm� # �� CFG h( h ] 4 5$ O @ 6 ` g y ' g tmp ' g filenamef system/base/syntax.scm� # �� ' C5R4 !$'*-5 h t ] �$ �C Cl g slot g filenamef system/base/syntax.scm� ? �� ? -�� ? )�� ? :�� C16HI h( � ] ( " ���$ C �4L �5�C � g slots % g filenamef system/base/syntax.scm� E �� F �� F �� F ;�� F 2�� F -�� F �� G �� H !�� H -�� ! H 1�� # H -�� $ H �� % g nameg lp� CJCKL7M4NOPQNRSTUV hH y ] �L �� L L L ��� C q g o E g filenamef system/base/syntax.scm� L �� M �� M �� M ;�� M �� E CWXY6789ZI[ h8 � ]4L 5L L C } g sname 4 g filenamef system/base/syntax.scm� T �� U �� U �� U .�� U �� U �� 4 C h � - 1 3 �$ �" �$ ��" 454545 $ " ��� O Q 454 4554 54545�4O 5 ��� 45 4O 5����C � g name-form g slots g name g printer + g slot-names 6 g stem ? g lp u � g reqs � � g opts � � g tail � � g filenamef system/base/syntax.scm� < �� = �� = �� = %�� = �� > �� " > �� % > )�� + = �� . ? �� 6 = �� 9 A �� ? = �� C B �� J C (�� R B �� ] D )�� b D 5�� g D D�� h B �� u E �� � E �� � I �� � I &�� � I �� � E �� � J �� � J $�� � J �� � E �� � K �� � K �� � K $�� � K �� � K �� � L �� � K �� � B �� � S �� � S $�� � S �� � B �� � T �� B �� - C h j ] 4 5L 4?6b g args g v g filenamef system/base/syntax.scm� < �� CFG h( h ] 4 5$ O @ 6 ` g y ' g tmp ' g filenamef system/base/syntax.scm� < �� ' C5R4 !$'*-5 h t ] �$ �C Cl g slot g filenamef system/base/syntax.scm� ` �� ` -�� ` )�� ` :�� C16HI7MN\]^I h( � ] �$ � �� C C � g slot # g filenamef system/base/syntax.scm� g #�� h )�� h %�� i )�� i 2�� i )�� i >�� i )�� j )�� # C_`fXY6789ZI[ h8 � ]4L 5L L C } g sname 4 g filenamef system/base/syntax.scm� p �� q �� q �� q .�� q �� q �� 4 C h� � - 1 3 �$ �" �$ ��" 454545 $ " ��� 4 5 45� �� 4 5 4O 5����C � g name-form � g slots � g name � g printer + � g slot-names 6 � g stem ? � g filenamef system/base/syntax.scm� ] �� ^ �� ^ �� ^ %�� ^ �� _ �� " _ �� % _ )�� + ^ �� . ` �� 6 ^ �� 9 b �� ? ^ �� C c �� J d (�� R c �� ] e )�� b e 5�� g e D�� h c �� p f �� t f �� x f �� z c �� g �� � c �� � o �� � o $�� � o �� � c �� � p �� � c �� ! � C h j ] 4 5L 4?6b g args g v g filenamef system/base/syntax.scm� ] �� CFG h( h ] 4 5$ O @ 6 ` g y ' g tmp ' g filenamef system/base/syntax.scm� ] �� ' C5R5ghi h@ � ] �$ �" 4L 5$ �C �$ �CLL6� g slot @ g name @ g t @ g filenamef system/base/syntax.scm� y �� z �� z �� z (�� z �� { �� { �� , | �� 0 { �� 3 | !�� 8 } �� @ } �� @ Cjklgmnhopq h� � ]"" �( O 64�5$ i4�545$ " 4455�$ 645$ 6������"��t( 6����$ �" ���"��5 "��&� g args � g slots � g in � g positional � g out � g sym 1 � g slot � � g filenamef system/base/syntax.scm� w �� �� � �� y �� � �� # � �� % � �� ) � �� * � �� / � "�� 1 � �� 1 � �� 4 � �� @ � �� F � �� K � �� U � �� V � �� Z � �� ^ � �� b � �� c � �� o � �� s � �� y � �� | � �� ~ � �� � � ,�� � � !�� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � $�� � � �� � � �� � � �� � �� � -�� � �� / � g nameg %compute-initargs� C R4 !$t��$�� h T ] L �6 L g filenamef system/base/syntax.scm� � �� � �� C��� h u ] ��L �6 m g e0 g e1 g filenamef system/base/syntax.scm� � �� � �� C�D��� h � ] ��6 � g e0 g e1 g rest g filenamef system/base/syntax.scm� � &�� � &�� � �� C�($ h ] C C�+78( h( � ] 4L4L4555�4L 5�C � g v0 % g f0 % g f1 % g filenamef system/base/syntax.scm� � (�� � 7�� � L�� � O�� � 7�� � (�� � !�� � (�� $ � !�� % Cs+78( h( � ] 4L4L4 555�4L 5�C � g f0 % g f1 % g filenamef system/base/syntax.scm� � (�� � 7�� � L�� � O�� � 7�� � (�� � !�� � (�� $ � !�� % CFG hh � ]4 5$ @4 5$ L LLO @4 5$ L LLO @ 6 � g fields a g tmp a g tmp ! a g tmp A a g filenamef system/base/syntax.scm� � �� a g nameg lp� C$� h ] C Cs h : ] �C2 g e0 g e1 CFG������ h X ] � C P g tmp-3d2ad63ef-23e g tmp-3d2ad63ef-23d C h( p ] 45��� C h g tag # g f # g accessor # g e0 # g e1 # # C h� B ]L44 55 O L Q 4545$ 4?" )45$ 4?" 4 5 4 5$ 4?" 4 5L�6 : g <foo> � g f0 � g e0 � g rest � g infix � g lp 3 g tmp ; z g tmp W w g tmp } � g tmp � � g filenamef system/base/syntax.scm� � �� � '�� � �� � �� � �� } � �� � � �� � � �� � CFG h� � ]"4 5$ O @4 5$ O @4 5$ @4 5$ L LO @ 6 � g clauses y g out y g tmp y g tmp & y g tmp B y g tmp Y y g filenamef system/base/syntax.scm� � �� y g nameg lp� C$���� h( Q ] L � C I g r # g rtd # g processed # # CFG hP � ]O L Q 45 45$ O @6 � g record K g clause K g lp ! g tmp $ K g tmp / K g filenamef system/base/syntax.scm� � �� � �� � �� $ � �� K CFG h( j ] 4 5$ O @ 6 b g x ' g tmp ' g filenamef system/base/syntax.scm� � �� ' C5R4 !$'*-K 278�I h� � ]#" �( C��$ �������$ �"����$ 6�44L44L 55 ��55"����44L 55 �"��^�"��Q"��F� g x � g record-stem � g slots � g in � g out � g slot � g arg � g filenamef system/base/syntax.scm� � �� � �� � �� � �� � �� � �� �� �� �� ' �� + �� . �� 8 �� ; �� ? �� B �� C �� F $�� I � �� L � �� R � �� V � �� X � 2�� \ � �� a � �� d 8�� g 8�� i $�� m �� u �� x !�� z 0�� { � �� ~ � �� � � �� � � �� � � 2�� � � �� � � �� � 0�� � *�� � �� � �� � �� � � �� � � �� � � �� 0 � g nameg further-predicates� C782 h� ]#" �( C��$ �������$ ,�44L 55 �"����$ 6�44L44L 55 ��55"��r�"��e���44L 55 �"��0"��% g x � g record-stem � g slots � g in � g out � g slot � g arg � g slot � � g filenamef system/base/syntax.scm� �� �� �� �� �� �� �� �� �� ' �� + �� . �� 1 �� 4 � �� : � �� > � �� @ 2�� D �� I �� L "�� O �� W �� Z �� ^ �� a �� b �� e $�� h �� k � �� q � �� u � �� w 2�� { �� � �� � 1�� � 1�� � $�� � �� � �� � �� � �� �! �� �" �� �" .�� �" &�� � �� � � �� � � �� � � �� � 2�� � �� � �� �" �� �" �� �! �� � �� � �� � �� ; � g nameg let-clauses� CC7M845 h � ] �$ �&