[EDIT] FILE: procedural.go
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
SAVE
CANCEL