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