GOOF----LE-8-2.0«(]4hì ] gguile¤ ¤ gdefine-module*¤ ¤ ¤ grnrs¤ grecords¤ g procedural¤ ¤ gfilenameS¤ frnrs/records/procedural.scm¤ gpureS¤ gversionS¤  ¤ gset-current-module¤ ¤ ¤ gresolve-r6rs-interface¤ ¤ ¤ gbase¤ ¤ gcall-with-deferred-observers¤ ¤ ¤ gmodule-use-interfaces!¤ ¤ ¤ gcurrent-module¤ ¤ ¤ gonly¤ !gcons*¤ "glogand¤ #glogior¤ $gash¤ %gand=>¤ &gthrow¤ 'gdisplay¤ (g make-struct¤ )g make-vtable¤ *gmap¤ +g simple-format¤ ,g string-append¤ -g symbol-append¤ .gstruct?¤ /g struct-layout¤ 0g struct-ref¤ 1g struct-set!¤ 2g struct-vtable¤ 3gvtable-index-layout¤ 4gmake-hash-table¤ 5g hashq-ref¤ 6g hashq-set!¤ 7g vector->list¤ 8 !"#$%&'()*+,-./01234567¤ 9gice-9¤ :greceive¤ ;9:¤ <=¤ ?gfold¤ @gsplit-at¤ Agtake¤ B >?@A¤ Cgmodule-export!¤ DC¤ EC¤ Fgrecord-mutator¤ Gg"make-record-constructor-descriptor¤ Hgrecord-type-descriptor?¤ Igmake-record-type-descriptor¤ JFGHI¤ Kgmodule-re-export!¤ LK¤ MK¤ Ngmodule-replace!¤ ON¤ PN¤ Qgrecord-accessor¤ Rgrecord-predicate¤ Sgrecord-constructor¤ TQRS¤ Ugrecord-internal?¤ Vgrtd-index-name¤ Wg rtd-index-uid¤ Xgrtd-index-parent¤ Ygrtd-index-sealed?¤ Zgrtd-index-opaque?¤ [grtd-index-predicate¤ \grtd-index-field-names¤ ]grtd-index-field-bit-field¤ ^grtd-index-field-binder¤ _grctd-index-rtd¤ `grctd-index-parent¤ agrctd-index-protocol¤ bgsymbol->string¤ cf¤ dgvtable-base-layout¤ efprprprprprprprprprpr¤ ff#¤ ggrecord-type-vtable¤ hfprprpr¤ if#¤ jgrecord-constructor-vtable¤ kg uid-table¤ lg immutable¤ mgpr¤ ngmutable¤ ogpw¤ pg r6rs-raise¤ qgmake-assertion-violation¤ rg list->vector¤ sgcadr¤ tf#¤ ug vector-length¤ vglength¤ wg &condition¤ x¤ yg!&condition-constructor-descriptor¤ zg&serious¤ {g&serious-constructor-descriptor¤ |gmake-serious-condition¤ }g &violation¤ ~g!&violation-constructor-descriptor¤ gmake-violation¤ €g &assertion¤ g&raise-object-wrapper¤ ‚gobj¤ ƒl‚¤ „g continuation¤ …l„¤ †ƒ…¤ ‡gmake-raise-object-wrapper¤ ˆgraise-object-wrapper?¤ ‰graise-object-wrapper-obj¤ Šg!raise-object-wrapper-continuation¤ ‹gr6rs:exception¤ Œgr6rs-raise-continuable¤C5h¸Q]4     54>"G454hM]45L6Egfilenamefrnrs/records/procedural.scmŒ  ŒŒ   CO>"G4854hM]45L6Egfilenamefrnrs/records/procedural.scmŒ  ŒŒ   CO>"G4;54hM]45L6Egfilenamefrnrs/records/procedural.scmŒ  ŒŒ   CO>"G4B54hM]45L6Egfilenamefrnrs/records/procedural.scmŒ  ŒŒ   CO>"G4EJhM]456Egfilenamefrnrs/records/procedural.scmŒ  ŒŒ  C>"G4MhM]456Egfilenamefrnrs/records/procedural.scmŒ  ŒŒ  C>"G4PThM]456Egfilenamefrnrs/records/procedural.scmŒ  ŒŒ  C>"GHh}]¦$§6Cugobj  gfilenamefrnrs/records/procedural.scmŒ < ŒŒ   gnamegrecord-internal?ŒCUR VR WR XR YR ZR [R \R ]R ^R _R `R aR4bi4/i4)ic555dR4)i4,idie5+fVhs]©6kgobj  gport  gfilenamefrnrs/records/procedural.scmŒ  R 'ŒŒ   C5gR4)ih+i_Vhs]©©6kgobj  gport  gfilenamefrnrs/records/procedural.scmŒ  X 'ŒŒ   C5jR44i5kRU%h0^] 45$§M‚$C ©L6CVgobj  *gt  (  * gnamegprivate-record-predicateŒCl-mnopq7r*sY5kZVX\]g+tht]L6lgobj  gport  gfilenamefrnrs/records/procedural.scmŒ  *ŒŒ  C(ha-13M @Yg parent-struct gargs   gnameg field-binderŒC6hÐ_]^H H HHHO   Q "w (  Œ" †$ Ž4 5—  "ÿÿņ$" Ž4 5 Ÿ¡—  "ÿÿš4455"4 5   "ÿÿrKJKJŽK4 4  4 555K K $& ©$445>"G""$ 45"$"$ ©"   $A J J © ©  © © © ©‡$ C456JO  J J O¨ K $4>"G"CWgname  Ìgparent  Ìguid   Ìgsealed?   Ìgopaque?   Ìgfields   Ìg fields-pair   Ìg fields-layout   Ìgfields-bit-field   Ìg field-names  Ìglate-rtd  Ìgprivate-record-predicate  Ìg field-list % œg layout-sym % œglayout-bit-field  % œgcounter  % œgkey  8 œg matching-rtd 3 Ìgopaque? 3 Ìgrtd  £ Ìgfilenamefrnrs/records/procedural.scmŒ ^ ŒŒ  Ì gnamegmake-record-type-descriptorŒCIRgh…]¦$§‚CC}gobj  gfilenamefrnrs/records/procedural.scmŒ ­ ŒŒ   gnamegrecord-type-descriptor?ŒCHRu\X%Gh)]L6!gd    Cj@vh8d-13445M˜> G4L?@\gargs 4gn-args  4gp-args   4gp  , 4 4 ChP]LOCHgn    gnamegdefault-inherited-protocolŒChF]C>gp     gnamegdefault-protocolŒC h` ]H4©5K©$"4O5$"$ O"¨Cgrtd  ]gparent-constructor-descriptor  ]gprotocol   ]g rtd-arity   ]gprtd   ]gpcd  2 ]gfilenamefrnrs/records/procedural.scmŒ ° ŒŒ  ] gnameg"make-record-constructor-descriptorŒCGR_`aS^h.-13L©L@&gargs   Ch A-134L?LOC9gargs gstruct    C^h.-13L©@&gargs   ChHç]!©©©$45©O"O6ßgrctd  Ggrtd  Gg parent-rctd   Ggprotocol   Ggparent-record-constructor  & :gfilenamefrnrs/records/procedural.scmŒ Æ ŒŒ  G gnamegrecord-constructorŒCSR[h~]©Cvgrtd  gfilenamefrnrs/records/procedural.scmŒ Ö ŒŒ   gnamegrecord-predicateŒCRR%h M]§L&L—©C ©L6Egobj     gnamegrecord-accessor-innerŒCUpq%h@+]45$"445>"G§L&L—©C ©L6#gobj  @  @ Ch(¯] OQOC§grtd  !gk  !grecord-accessor-inner  !gfilenamefrnrs/records/procedural.scmŒ Ø ŒŒ  ! gnamegrecord-accessorŒCQRh@l] $/§L& L—ª"$C ©"ÿÿËCdgobj  9gval  9gt   7  9 gnamegrecord-mutator-innerŒC]pqh<]L64gobj  gval    ChPÄ]OQ© Ÿ  ‘$445>"G"OC¼grtd  Mgk  Mgrecord-mutator-inner  Mg bit-field   Egfilenamefrnrs/records/procedural.scmŒ â ŒŒ  M gnamegrecord-mutatorŒCFR4Iiwx5wR4Giwi5yR4Iizwix5zR4Giziyi5{R4Si{i5|R4Ii}zix5}R4Gi}i{i5~R4Si~i5R4Ii€}ix5€R4Si4Gi€i~i55qR4Ii†5R4Si4Gii55‡R4Rii5ˆR4Qii 5‰R4Qii 5ŠR&‹‡hx]456pgobj  gfilenamefrnrs/records/procedural.scmŒ  ŒŒ   gnameg r6rs-raiseŒCpR&‹‡h`]4L56Xg continuation     gnamegr6rs-raise-continuable-internalŒCh„]OB|gobj  gfilenamefrnrs/records/procedural.scmŒ  ŒŒ  gnamegr6rs-raise-continuableŒCŒRCIgm  +giface 2 ºgiface Á Jgiface Q Úgiface á jgfilenamefrnrs/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