| Current File : /home/mmdealscpanel/yummmdeals.com/records.tar |
syntactic.go 0000644 00000052104 15052557625 0007112 0 ustar 00 GOOF----LE-8-2.0,T ] 4 hF& ] g guile� � g define-module*� � � g rnrs� g records� g syntactic� �
g filenameS� f rnrs/records/syntactic.scm� g pureS�
g versionS� � g set-current-module� � � g resolve-r6rs-interface� � � g only� g and=>� g gensym� � g call-with-deferred-observers� � � g module-use-interfaces!� � � g current-module� � ! � "g base� #" � $g
conditions� %$ � &g
exceptions� '& � (g
hashtables� )( � *g lists� +* � ,g
procedural� -, � .g syntax-case� /. � 0g srfi� 1g :1� 201 � 3g take� 423 � 5g module-export!� 65 � 75 � 8g record-constructor-descriptor� 9g define-record-type� :89 � ;g module-re-export!� <; � =; � >g module-replace!� ?> � @> � Ag record-type-descriptor� BA � Cg make-eq-hashtable� Dg record-type-registry� Eg string->symbol� Fg
string-append� Gf make-� Hg symbol->string� Ig guess-constructor-name� Jf ?� Kg guess-predicate-name� Lg hashtable-set!� Mg register-record-type� Ng
hashtable-ref� Og car� Pg lookup-record-type-descriptor� Qg cdr� Rg $lookup-record-constructor-descriptor� Sg make-syntax-transformer� TS � US � Vg macro� Wg $sc-dispatch� XW � YW � Zg _� [g any� \[[[ � ]g each-any� ^\]�� _Z^�� `g
syntax-object� ag define-record-type0� bg top� cb � dg ribcage� eg record-name� fg constructor-name� gg predicate-name� hg
record-clause� iefgh � jcccc � kf l-17a5c5a65d375-22� lf l-17a5c5a65d375-23� mf l-17a5c5a65d375-24� nf l-17a5c5a65d375-25� oklmn � pdijo � qd � rg stx� sr � tc � uf l-17a5c5a65d375-1f� vu � wdstv � xcpqw � yg private� zy � {`axz � |[]�� }Z|�� ~g
syntax->datum� g
datum->syntax� �[[ � �g t-17a5c5a65d375-38� �g t-17a5c5a65d375-37� ��� � �g m-17a5c5a65d375-39� ��b � ��� � �f l-17a5c5a65d375-3d� �f l-17a5c5a65d375-3e� ��� � �d��� � �g � �f l-17a5c5a65d375-35� �� � �d�t� � �f � �f l-17a5c5a65d375-33� �� � �d�t� � �g record-name-sym� �� � �f l-17a5c5a65d375-31� �� � �d�t� � �eh � �cc � �f l-17a5c5a65d375-2c� �f l-17a5c5a65d375-2d� ��� � �d��� � �cq�qqqq�q�q��qw � �`a�z � �g syntax-violation� �� � �� � �f -source expression failed to match any pattern� �
� �g reverse� �g sequence� �g
number-fields� �g free-id� �g immutable� �g x� �� � �f l-17a5c5a65d375-135� �� � �d�t� � �g f� �g guess-mutator-name� �g guess-accessor-name� �g record-name-str� �g
id->string� �g wrap� ������� � �cccccc � �f l-17a5c5a65d375-12a� �f l-17a5c5a65d375-128� �f l-17a5c5a65d375-126� �f l-17a5c5a65d375-124� �f l-17a5c5a65d375-122� �f l-17a5c5a65d375-120� ������� � �d��� � �g fields� �e� � �f l-17a5c5a65d375-11e� �f l-17a5c5a65d375-11f� ��� � �d��� � �cq��� � �`��z � ��� � ��[ � �f -� ��[[ � �g mutable� �`��z � ��� � ��[ � �f -set!� ��[[[ � �g identifier?� �f invalid field specifier� �g map� �g process-fields� �g list->vector� �g fold-left� �g define� �g t-17a5c5a65d375-79� �g t-17a5c5a65d375-78� ��� � �g m-17a5c5a65d375-7a� ��b � ��� � �f l-17a5c5a65d375-7e� �f l-17a5c5a65d375-7f� ��� � �d��� � �g lst� �g c� ���� � �ccc � �f l-17a5c5a65d375-75� �f l-17a5c5a65d375-76� �f l-17a5c5a65d375-77� ���� � �d��� � �g field-names� �� � �f l-17a5c5a65d375-6e� �� � �d�t� � �� � �f l-17a5c5a65d375-6c� �� � �d�t� � �g loop� �g _fields� �g _parent� �g _protocol� �g _sealed� �g _opaque� �g _nongenerative� �g _constructor� �g _parent-rtd� �g record-clauses� �����������
� �cccccccccc
� f l-17a5c5a65d375-54� f l-17a5c5a65d375-55� f l-17a5c5a65d375-56� f l-17a5c5a65d375-57� f l-17a5c5a65d375-58� f l-17a5c5a65d375-59� f l-17a5c5a65d375-5a� f l-17a5c5a65d375-5b� f l-17a5c5a65d375-5c� f l-17a5c5a65d375-5d�
� d��
� f l-17a5c5a65d375-4c�
f l-17a5c5a65d375-4d� f l-17a5c5a65d375-4e� f l-17a5c5a65d375-4f�
� dij � g unspecified?� g
*unspecified*� � cc � f l-17a5c5a65d375-46� f l-17a5c5a65d375-44� � d � f l-17a5c5a65d375-43� � dst � cq�q�q�q�q � `� z � g record-accessor� ` z � !g length� "g t-17a5c5a65d375-8b� #g t-17a5c5a65d375-8a� $"# � %g m-17a5c5a65d375-8c� &%b � '&& � (f l-17a5c5a65d375-90� )f l-17a5c5a65d375-91� *() � +d$'* � ,f l-17a5c5a65d375-87� -f l-17a5c5a65d375-88� .f l-17a5c5a65d375-89� /,-. � 0d��/ � 1g field-accessors� 21 � 3f l-17a5c5a65d375-70� 43 � 5d2t4 � 6cq+q0q5q�q�q � 7`�6z � 8g record-mutator� 9`86z � :g t-17a5c5a65d375-97� ;: � <g m-17a5c5a65d375-98� =<b � >= � ?f l-17a5c5a65d375-9b� @? � Ad;>@ � Bg field-mutators� CB � Df l-17a5c5a65d375-82� ED � FdCtE � GcqAqFq5q�q�q � H`8Gz � Ig t-17a5c5a65d375-a0� JI � Kg m-17a5c5a65d375-a1� LKb � ML � Nf l-17a5c5a65d375-a4� ON � PdJMO � Qg parent-cd� RQ � Sf l-17a5c5a65d375-94� TS � UdRtT � VcqPqUqFq5q�q�q � W`AVz � X[[[[[[[[[]] � Yg begin� Zg t-17a5c5a65d375-b2� [g t-17a5c5a65d375-b1� \g t-17a5c5a65d375-b0� ]g t-17a5c5a65d375-af� ^g t-17a5c5a65d375-ae� _g t-17a5c5a65d375-b4� `g t-17a5c5a65d375-b3� ag t-17a5c5a65d375-b6� bg t-17a5c5a65d375-b5� cg t-17a5c5a65d375-b8� dg t-17a5c5a65d375-b7� eZ[\]^_`abcd � fg m-17a5c5a65d375-b9� gfb � hggggggggggg � if l-17a5c5a65d375-bd� jf l-17a5c5a65d375-be� kf l-17a5c5a65d375-bf� lf l-17a5c5a65d375-c0� mf l-17a5c5a65d375-c1� nf l-17a5c5a65d375-c2� of l-17a5c5a65d375-c3� pf l-17a5c5a65d375-c4� qf l-17a5c5a65d375-c5� rf l-17a5c5a65d375-c6� sf l-17a5c5a65d375-c7� tijklmnopqrs � udeht � vg opaque?� wv � xf l-17a5c5a65d375-ac� yx � zdwty � {g sealed?� |{ � }f l-17a5c5a65d375-aa� ~} � d|t~ � �g uid� �� � �f l-17a5c5a65d375-a8� �� � �d�t� � �g protocol� �� � �f l-17a5c5a65d375-a6� �� � �d�t� � �g
parent-rtd� �� � �f l-17a5c5a65d375-9d� �� � �d�t� � �cquqqqqzqq�q�q�qUqFq5q�q�q � �`Y�z � �`��z � �g make-record-type-descriptor� �`��z � �g quote� �`��z � �g record-constructor� �`��z � �g "make-record-constructor-descriptor� �`��z � �g dummy� �`��z � �g let� �`��z � �`M�z � ��� � �� � �g record-predicate� �`��z � �g append� �� � �� � �cq � �`��z � ��� � ��]�� ��[�� �g raise� �g make-assertion-violation� �g parent� �`��z � ��� � ��[ � ��[�� �`��z � ��� � ��[ � ��[�� �g sealed� �`��z � ��� � ��[ � ��[�� �g opaque� �`��z � ��� � ��[ � ��[�� �g
nongenerative� �`��z � ��� � �� � ��[�� �g t-17a5c5a65d375-f2� �� � �g m-17a5c5a65d375-f3� ��b � �� � �f l-17a5c5a65d375-f6� �� � �d��� � �g rest� �� � �f l-17a5c5a65d375-f0� �� � �d�t� � �cq��q � �`��z � ��[ � ��[�� ��� � �f l-17a5c5a65d375-f9� �f l-17a5c5a65d375-fa� ��� � �d��� � �c�q � �`��z � �`��z � ��� � ��[[ � ��[�� �Z[ � �g t-17a5c5a65d375-10a� �� � �g m-17a5c5a65d375-10b� ��b � �� � �f l-17a5c5a65d375-10e� �� � �d��� � �g name� �� � �f l-17a5c5a65d375-108� �� � �d�t� � �f l-17a5c5a65d375-105� �� � �dst� � �cq��q� � �`P�z � �g t-17a5c5a65d375-116� �� � �g m-17a5c5a65d375-117� ��b � �� � �f l-17a5c5a65d375-11a� �� � �d��� � �f l-17a5c5a65d375-114� �� � �d�t� � �f l-17a5c5a65d375-111� � � dst � cq��q � `Rz �C 5 hX* b ]4
5 4 > " G 45 4 ! h L ] 45 L 6D g filenamef rnrs/records/syntactic.scm�
��
C O > " G 4#5 4 ! h L ] 45 L 6D g filenamef rnrs/records/syntactic.scm�
��
C O > " G 4%5 4 ! h L ] 45 L 6D g filenamef rnrs/records/syntactic.scm�
��
C O > " G 4'5 4 ! h L ] 45 L 6D g filenamef rnrs/records/syntactic.scm�
��
C O > " G 4)5 4 ! h L ] 45 L 6D g filenamef rnrs/records/syntactic.scm�
��
C O > " G 4+5 4 ! h L ] 45 L 6D g filenamef rnrs/records/syntactic.scm�
��
C O > " G 4-5 4 ! h L ] 45 L 6D g filenamef rnrs/records/syntactic.scm�
��
C O > " G 4/5 4 ! h L ] 45 L 6D g filenamef rnrs/records/syntactic.scm�
��
C O > " G 445 4 ! h L ] 45 L 6D g filenamef rnrs/records/syntactic.scm�
��
C O > " G 47!: h L ] 45 6 D g filenamef rnrs/records/syntactic.scm�
��
C> " G 4=! h L ] 45 6 D g filenamef rnrs/records/syntactic.scm�
��
C> " G 4@!B h L ] 45 6 D g filenamef rnrs/records/syntactic.scm�
��
C> " G 4Ci5 DREFGH h � ]44 556 � g record-name
g filenamef rnrs/records/syntactic.scm�
# �� $ #�� g nameg guess-constructor-name� CIREFHJ h � ]44 556 � g record-name
g filenamef rnrs/records/syntactic.scm�
% �� & @�� g nameg guess-predicate-name� CKRLD h � ] �6 � g name
g rtd g rcd g filenamef rnrs/records/syntactic.scm�
' �� g nameg register-record-type� CMRNDO h � ]4 56 � g name
g filenamef rnrs/records/syntactic.scm�
) �� g nameg lookup-record-type-descriptor� CPRNDQ h � ]4 56 � g name
g filenamef rnrs/records/syntactic.scm�
+ �� g nameg $lookup-record-constructor-descriptor� CRR4U9VY_{ h � ] ��C � g record-name
g constructor-name g predicate-name g
record-clause C}~IKY�� h Z ]L L ��C R g t-17a5c5a65d375-38
g t-17a5c5a65d375-37 C��
h` � ]*4 5 4 455 4 455 45 $
O @ 6 � g record-name
[ g
record-clause [ g record-name-sym [ g constructor-name [ g predicate-name ) [ g tmp 2 [ g tmp = [ [ C�� h@ L ]4 5 $ @4 5 $ @ 6 D g stx
9 g tmp 9 g tmp " 9 9 C59R� h ? ]
�$ C 4L �5�C 7 g n
g nameg seq-inner� C� h � ] O Q 4 56 � g n
g seq-inner
g filenamef rnrs/records/syntactic.scm�
A �� g nameg sequence� C�R h c ] ( C �4L ��5�C [ g fields
g counter g nameg number-fields-inner� C h � ] O Q
6 � g fields
g number-fields-inner
g filenamef rnrs/records/syntactic.scm�
D �� g nameg
number-fields� C�RY��~EF�H hP } ] 4 5 4L5 44M 44 5555 4L5 C u g name
I g x g x 6 D g filenamef rnrs/records/syntactic.scm� & T (�� I C��~ h( Q ]
4 5 4L 5 C I g name
# g accessor # g x # C��~EF�H� hx � ] 4 5 4L5 44M 44 5555 4L5 44M 44 5555 4L5 C � g name
r g x g x 6 D g x ` n g filenamef rnrs/records/syntactic.scm� & T (�� N Y �� \ Y 5�� r C��~ h( f ] 4 5 4L 5 C ^ g name
$ g accessor $ g mutator $ g x $ C� h , ] 6$ g name
C�~EF�H hP } ] 4 5 4L5 44M 44 5555 4L5 C u g name
I g x g x 6 D g filenamef rnrs/records/syntactic.scm� & T (�� I C�9� h� � ])4 5 $
LL O @4 5 $ L O @4 5 $
LL O @4 5 $ L O @ 4
?$
LL O @
6 � g x
� g tmp � g tmp ) � g tmp E � g tmp c � g tmp { � g filenamef rnrs/records/syntactic.scm� � n /�� � g nameg f� CH~� h0 � ]HO Q 44 55K6 � g record-name
+ g fields + g record-name-str + g f + g filenamef rnrs/records/syntactic.scm�
L �� + g nameg process-fields� C�R4UaVY_Y��O�Y� h Z ] L C R g t-17a5c5a65d375-79
g t-17a5c5a65d375-78 C�� hH k ]�� 45 $ 4L O ?"
45 �C c g lst
B g x B g c B g tmp > g tmp ; B C�!Y�79 h Z ] L C R g t-17a5c5a65d375-8b
g t-17a5c5a65d375-8a C�� hP k ]���$ A��� 45 $ 4L O ?"
45 �C C c g lst
O g x O g c O g tmp H g tmp E O CHWYX������������
h� � , 3 LL L L L LL
��� L L 4
5�����C ~ g t-17a5c5a65d375-b2
� g t-17a5c5a65d375-b1 � g t-17a5c5a65d375-b0 � g t-17a5c5a65d375-af � g t-17a5c5a65d375-ae � g t-17a5c5a65d375-b4 � g t-17a5c5a65d375-b3 � g t-17a5c5a65d375-b6 � g t-17a5c5a65d375-b5 � g t-17a5c5a65d375-b8 � g t-17a5c5a65d375-b7
� � C�� h` � ]844LL & " L 55 4LO LL & " L 44LL & " L 555 4LO LL & " L 44LL & " L 555 LL& LL& " L��" L LL& LL& " L�"
L LL& " LLL& " LLL& " L LL& " LLL& " L 4 5 $
L
L LO @6 � g field-names
] g field-accessors T ] g field-mutators � ] g parent-cd � ] g
parent-rtd � ] g tmp 2 ] g tmp = ] ]
C���� h0 G ]L
L & L 4L 5LLLLLLL6 45 6? g
record-fields
0 g rest 0 0 C��� h@ E ]L L& 'L L & LL LLLLLL6 45 645 6 = g parent-name
: g rest : : C��� h0 D ]L L& L LL LLLLL6 45 6 < g
expression
) g rest ) ) C��� h0 A ]L L& L LLL LLLL6 45 6 9 g sealed?
) g rest ) ) C��� h0 A ]L L& L LLLL LLL6 45 6 9 g opaque?
) g rest ) ) C���� h@ < ] L
L & ,L LLLLL4L45 5 LL 6 45 6 4 g rest
? g tmp " . ? C���� h0 = ]L L& L LLLLL LL6 45 6 5 g uid
. g rest . . C��� h@ M ]L L& ,L L & LLLLLLLL 6 45 645 6 E g rtd
? g cd ? g rest ? ? C�� h� � , 3 45 $ LLLLO @45
$ L L LO
@45 $ L LO
@45 $ L LO
@4 5
$
L LO
@4 5 $ L LO
@4
5 $ L LLO @45 $ L LO
@45 $ L LO
@6 � g _fields
� g _parent � g _protocol � g _sealed � g _opaque � g _nongenerative � g _constructor � g _parent-rtd � g record-clauses � g tmp � g tmp
> � g tmp n � g tmp � � g tmp
� � g tmp � � g tmp & � g tmp V � g tmp � � � g nameg loop� C h8 � ] O L Q L L L L L L L L 6 � g record-name
1 g constructor-name 1 g predicate-name 1 g
record-clause 1 g loop 1 1 C�� h0 V ]� 4 5 $ O @ 6 N g stx
, g
*unspecified* , g tmp , , C5aR4UAVY��~� h < ] 4L 4 5 5 C 4 g name
g tmp C�� h( ; ] 4 5 $ O @ 6 3 g stx
' g tmp ' ' C5AR4U8VY��~ h < ] 4L 4 5 5 C 4 g name
g tmp C�� h( ; ] 4 5 $ O @ 6 3 g stx
' g tmp ' ' C58RC Z g m
+ g iface
2 � g iface
� I g iface
P � g iface
� i g iface
p � g iface
� g iface
� g iface
� g iface
� 9
g filenamef rnrs/records/syntactic.scm�
�� � ! �� � # �� K % �� ' �� � ) ��
� + �� � A �� O D �� ] L �� *R
C6 inspection.go 0000644 00000012223 15052557625 0007262 0 ustar 00 GOOF----LE-8-2.0{ ] _ 4 h� ] g guile� � g define-module*� � � g rnrs� g records� g
inspection� �
g filenameS� f rnrs/records/inspection.scm� g pureS�
g versionS� � g set-current-module� � � g resolve-r6rs-interface� � � g
arithmetic� g bitwise� � g call-with-deferred-observers� � � g module-use-interfaces!� � � g current-module� � � !g base� "! � #g
procedural� $# � %g only� &g
struct-ref� 'g
struct-vtable� (g vtable-index-layout� )g @@� *%&'() � +g module-export!� ,+ � -+ � .g record-field-mutable?� /g record-type-field-names� 0g record-type-opaque?� 1g record-type-sealed?� 2g record-type-generative?� 3g record-type-uid� 4g record-type-parent� 5g
record-rtd� 6./012345 � 7g module-re-export!� 87 � 97 � :g module-replace!� ;: � <: � =g record-type-name� >g record?� ?=> � @# � Ag record-internal?� B@A � C@A � Dg rtd-index-name� E@D � F@D � Gg rtd-index-parent� H@G � I@G � Jg
rtd-index-uid� K@J � L@J � Mg rtd-index-sealed?� N@M � O@M � Pg rtd-index-opaque?� Q@P � R@P � Sg rtd-index-field-names� T@S � U@S � Vg rtd-index-field-bit-field� W@V � X@V � Yg assertion-violation� Zf not a record� [g record-type-descriptor?� \f not a record type descriptor� ]g
guarantee-rtd� ^g bitwise-bit-set?�C 5h Y ]4
5 4 > " G 45 4 h M ] 45 L 6E g filenamef rnrs/records/inspection.scm�
��
C O > " G 4"5 4 h M ] 45 L 6E g filenamef rnrs/records/inspection.scm�
��
C O > " G 4$5 4 h M ] 45 L 6E g filenamef rnrs/records/inspection.scm�
��
C O > " G 4*5 4 h M ] 45 L 6E g filenamef rnrs/records/inspection.scm�
��
C O > " G 4- 6 h M ] 45 6 E g filenamef rnrs/records/inspection.scm�
��
C> " G 49 h M ] 45 6 E g filenamef rnrs/records/inspection.scm�
��
C> " G 4< ? h M ] 45 6 E g filenamef rnrs/records/inspection.scm�
��
C> " G CARFDRIGRLJROMRRPRUSRXVRA0 h t ]4 5$
4 �5�CC l g obj
g filenamef rnrs/records/inspection.scm�
/ �� g nameg record?� C>RAPY5Z h@ � ] 4 5$ � �$ " " $ C 6 � g record
? g rtd % g t * ? g filenamef rnrs/records/inspection.scm�
3 �� ; 7 )�� ? g nameg
record-rtd� C5R[Y\ h � ]45$ C 6 � g who
g rtd g filenamef rnrs/records/inspection.scm�
9 �� < !�� g nameg
guarantee-rtd� C]R]=D h } ]4 5�C u g rtd
g filenamef rnrs/records/inspection.scm�
> �� g nameg record-type-name� C=R]4G h ]4 5�C w g rtd
g filenamef rnrs/records/inspection.scm�
@ �� g nameg record-type-parent� C4R]3J h | ]4 5�C t g rtd
g filenamef rnrs/records/inspection.scm�
B �� g nameg record-type-uid� C3R3]2 h � ]44 55�C | g rtd
g filenamef rnrs/records/inspection.scm�
D �� g nameg record-type-generative?� C2R]1M h � ]4 5�C x g rtd
g filenamef rnrs/records/inspection.scm�
F �� g nameg record-type-sealed?� C1R]0P h � ]4 5�C x g rtd
g filenamef rnrs/records/inspection.scm�
H �� g nameg record-type-opaque?� C0R]/S h � ]4 5�C | g rtd
g filenamef rnrs/records/inspection.scm�
J �� g nameg record-type-field-names� C/R^].V h � ]4 5�6 � g rtd
g k g filenamef rnrs/records/inspection.scm�
L �� g nameg record-field-mutable?� C.RC Q g m
+ g iface
2 � g iface
� J g iface
Q � g iface
� j g filenamef rnrs/records/inspection.scm�
�� � # �� � % �� � & �� � ' �� ( �� ) ��
* �� , �� � / �� � 3 �� � 9 �� 0 > �� � @ �� B �� 7 D �� � F ��
� H �� 7 J �� � L �� �
C6 procedural.go 0000644 00000024303 15052557625 0007251 0 ustar 00 GOOF----LE-8-2.0�( ] � 4 h�
] g guile� � g define-module*� � � g rnrs� g records� g
procedural� �
g filenameS� f rnrs/records/procedural.scm� g pureS�
g versionS� � g set-current-module� � � g resolve-r6rs-interface� � � g base� � g call-with-deferred-observers� � � g module-use-interfaces!� � � g current-module� � � g only� !g cons*� "g logand� #g logior� $g ash� %g and=>� &g throw� 'g display� (g make-struct� )g make-vtable� *g map� +g
simple-format� ,g
string-append� -g
symbol-append� .g struct?� /g
struct-layout� 0g
struct-ref� 1g struct-set!� 2g
struct-vtable� 3g vtable-index-layout� 4g make-hash-table� 5g hashq-ref� 6g
hashq-set!� 7g vector->list� 8 !"#$%&'()*+,-./01234567 � 9g ice-9� :g receive� ;9: � <g srfi� =g :1� ><= � ?g fold� @g split-at� Ag take� B >?@A � Cg module-export!� DC � EC � Fg record-mutator� Gg "make-record-constructor-descriptor� Hg record-type-descriptor?� Ig make-record-type-descriptor� JFGHI � Kg module-re-export!� LK � MK � Ng module-replace!� ON � PN � Qg record-accessor� Rg record-predicate� Sg record-constructor� TQRS � Ug record-internal?� Vg rtd-index-name� Wg
rtd-index-uid� Xg rtd-index-parent� Yg rtd-index-sealed?� Zg rtd-index-opaque?� [g rtd-index-predicate� \g rtd-index-field-names� ]g rtd-index-field-bit-field� ^g rtd-index-field-binder� _g rctd-index-rtd� `g rctd-index-parent� ag rctd-index-protocol� bg symbol->string� cf � dg vtable-base-layout� ef prprprprprprprprprpr� ff #<r6rs:record-type:~A>� gg record-type-vtable� hf prprpr� if #<r6rs:record-constructor:~A>� jg record-constructor-vtable� kg uid-table� lg immutable� mg pr� ng mutable� og pw� pg
r6rs-raise� qg make-assertion-violation� rg list->vector� sg cadr� tf #<r6rs:record:~A>� ug
vector-length� vg length� wg
&condition� x � yg !&condition-constructor-descriptor� zg &serious� {g &serious-constructor-descriptor� |g make-serious-condition� }g
&violation� ~g !&violation-constructor-descriptor� g make-violation� �g
&assertion� �g &raise-object-wrapper� �g obj� �l� � �g continuation� �l� � ��� � �g make-raise-object-wrapper� �g raise-object-wrapper?� �g raise-object-wrapper-obj� �g !raise-object-wrapper-continuation� �g r6rs:exception� �g r6rs-raise-continuable�C 5 h� Q ]4
5 4 > " G 45 4 h M ] 45 L 6E g filenamef rnrs/records/procedural.scm�
��
C O > " G 485 4 h M ] 45 L 6E g filenamef rnrs/records/procedural.scm�
��
C O > " G 4;5 4 h M ] 45 L 6E g filenamef rnrs/records/procedural.scm�
��
C O > " G 4B5 4 h M ] 45 L 6E g filenamef rnrs/records/procedural.scm�
��
C O > " G 4E J h M ] 45 6 E g filenamef rnrs/records/procedural.scm�
��
C> " G 4M h M ] 45 6 E g filenamef rnrs/records/procedural.scm�
��
C> " G 4P T h M ] 45 6 E g filenamef rnrs/records/procedural.scm�
��
C> " G H h } ] �$ �6C u g obj
g filenamef rnrs/records/procedural.scm�
< �� g nameg record-internal?� CUR VR WR
XR YR ZR
[R \R ]R ^R
_R `R aR4bi4/i4)ic555dR4)i4,idie5+fV h s ] �6 k g obj
g port g filenamef rnrs/records/procedural.scm� R '�� C5gR4)ih+i_V h s ] ��6 k g obj
g port g filenamef rnrs/records/procedural.scm� X '�� C5jR44i5 kRU% h0 ^ ] 4 5$ �M� $ C
�L 6C V g obj
* g t ( * g nameg private-record-predicate� Cl-mnopq7r*sY5kZVX\]g+t h t ]L 6 l g obj
g port g filenamef rnrs/records/procedural.scm� � *�� C( h a - 1 3 M
@ Y g
parent-struct
g args
g nameg field-binder� C6 h� _ ]^H
H HHHO
Q " w (
�" �� �$ �4
5�
"����$ " �4
5 ���
"���445 5" 4 5
"��rKJ�KJ�K4
4 4 555K K
$ &
�$ 445 > " G " " $
45" $ " $ �"
$ A
J J � �
� � � � �$ C45 6J O
J J
O � K
$ 4> " G " C W g name
� g parent � g uid � g sealed? � g opaque? � g fields � g fields-pair � g
fields-layout � g fields-bit-field � g field-names � g late-rtd
� g private-record-predicate � g
field-list % � g
layout-sym
% � g layout-bit-field % � g counter % � g key 8 � g matching-rtd 3 � g opaque?
3 � g rtd � � g filenamef rnrs/records/procedural.scm�
^ �� � g nameg make-record-type-descriptor� CIRg h � ] �$ ��CC } g obj
g filenamef rnrs/records/procedural.scm�
� �� g nameg record-type-descriptor?� CHRu\X%G h ) ]L 6 ! g d
Cj@v h8 d - 1 3 4 4 5M�> G 4L ? @ \ g args
4 g n-args 4 g p-args 4 g p , 4 4
C h P ] L O C H g n
g nameg default-inherited-protocol� C h F ] C > g p
g nameg default-protocol� C h` ]H4 �5K � $ " 4O 5 $ " $ O " � C g rtd
] g parent-constructor-descriptor ] g protocol ] g rtd-arity ] g prtd ] g pcd 2 ] g filenamef rnrs/records/procedural.scm�
� �� ] g nameg "make-record-constructor-descriptor� CGR_`aS^ h . - 1 3 L�L @ & g args
C h A - 1 3 4L ? LO C 9 g args
g struct
C^ h . - 1 3 L � @ & g args
C hH � ]! � � � $ 45 �O " O 6 � g rctd
G g rtd G g parent-rctd G g protocol G g parent-record-constructor & : g filenamef rnrs/records/procedural.scm�
� �� G g nameg record-constructor� CSR[ h ~ ] �Cv g rtd
g filenamef rnrs/records/procedural.scm�
� �� g nameg record-predicate� CRR% h M ] �L& L��C
�L 6 E g obj
g nameg record-accessor-inner� CUpq% h@ + ]4 5$ " 445 > " G �L & L��C
�L6# g obj
@ @ C h( � ]
O Q O C � g rtd
! g k ! g record-accessor-inner ! g filenamef rnrs/records/procedural.scm�
� �� ! g nameg record-accessor� CQR h@ l ]
$ / �L& L��" $ C
� "���C d g obj
9 g val 9 g t 7 9 g nameg record-mutator-inner� C]pq h < ]L 6 4 g obj
g val
C hP � ]O Q � ��
�$ 445 > " G " O C � g rtd
M g k M g record-mutator-inner M g bit-field E g filenamef rnrs/records/procedural.scm�
� �� M g nameg record-mutator� CFR4Iiwx5wR4Giwi5yR4Iizwix5zR4Giziyi5{R4Si{i5|R4Ii}zix5}R4Gi}i{i5~R4Si~i5R4Ii�}ix5�R4Si4Gi�i~i55qR4Ii��5�R4Si4Gi�i55�R4Ri�i5�R4Qi�i
5�R4Qi�i 5�R&�� h x ]4 56p g obj
g filenamef rnrs/records/procedural.scm�
�� g nameg
r6rs-raise� CpR&�� h ` ]4L 56 X g continuation
g nameg r6rs-raise-continuable-internal� C h � ] O B | g obj
g filenamef rnrs/records/procedural.scm�
��
g nameg r6rs-raise-continuable� C�RC I g m
+ g iface
2 � g iface
� J g iface
Q � g iface
� j g filenamef rnrs/records/procedural.scm�
�� � < �� � ? �� � @ �� � A �� � B �� � C �� � D �� � E �� � F �� � G �� � I �� � J �� � K �� � M I�� � M �� � P 3�� � O �� � V �� P U �� Z \ �� � ^ ��
@ � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � � �� � �� � �� 4 � �� G � �� U �� j �� � �� � �� � �� � �� � �� � �� { �� � �� . �
C6