GOOF----LE-8-2.0,T]4hF&] gguile¤ ¤ gdefine-module*¤ ¤ ¤ grnrs¤ grecords¤ g syntactic¤ ¤ gfilenameS¤ frnrs/records/syntactic.scm¤ gpureS¤ gversionS¤  ¤ gset-current-module¤ ¤ ¤ gresolve-r6rs-interface¤ ¤ ¤ gonly¤ gand=>¤ ggensym¤ ¤ gcall-with-deferred-observers¤ ¤ ¤ gmodule-use-interfaces!¤ ¤ ¤ gcurrent-module¤ ¤ !¤ "gbase¤ #"¤ $g conditions¤ %$¤ &g exceptions¤ '&¤ (g hashtables¤ )(¤ *glists¤ +*¤ ,g procedural¤ -,¤ .g syntax-case¤ /.¤ 0gsrfi¤ 1g:1¤ 201¤ 3gtake¤ 423¤ 5gmodule-export!¤ 65¤ 75¤ 8grecord-constructor-descriptor¤ 9gdefine-record-type¤ :89¤ ;gmodule-re-export!¤ <;¤ =;¤ >gmodule-replace!¤ ?>¤ @>¤ Agrecord-type-descriptor¤ BA¤ Cgmake-eq-hashtable¤ Dgrecord-type-registry¤ Egstring->symbol¤ Fg string-append¤ Gfmake-¤ Hgsymbol->string¤ Igguess-constructor-name¤ Jf?¤ Kgguess-predicate-name¤ Lghashtable-set!¤ Mgregister-record-type¤ Ng hashtable-ref¤ Ogcar¤ Pglookup-record-type-descriptor¤ Qgcdr¤ Rg$lookup-record-constructor-descriptor¤ Sgmake-syntax-transformer¤ TS¤ US¤ Vgmacro¤ Wg $sc-dispatch¤ XW¤ YW¤ Zg_¤ [gany¤ \[[[¤ ]geach-any¤ ^\]Œ¤ _Z^Œ¤ `g syntax-object¤ agdefine-record-type0¤ bgtop¤ cb¤ dgribcage¤ eg record-name¤ fgconstructor-name¤ ggpredicate-name¤ hg record-clause¤ iefgh¤ jcccc¤ kfl-17a5c5a65d375-22¤ lfl-17a5c5a65d375-23¤ mfl-17a5c5a65d375-24¤ nfl-17a5c5a65d375-25¤ oklmn¤ pdijo¤ qd¤ rgstx¤ sr¤ tc¤ ufl-17a5c5a65d375-1f¤ vu¤ wdstv¤ xcpqw¤ ygprivate¤ zy¤ {`axz¤ |[]Œ¤ }Z|Œ¤ ~g syntax->datum¤ g datum->syntax¤ €[[¤ gt-17a5c5a65d375-38¤ ‚gt-17a5c5a65d375-37¤ ƒ‚¤ „gm-17a5c5a65d375-39¤ …„b¤ †……¤ ‡fl-17a5c5a65d375-3d¤ ˆfl-17a5c5a65d375-3e¤ ‰‡ˆ¤ Šdƒ†‰¤ ‹g¤ Œfl-17a5c5a65d375-35¤ Œ¤ Žd‹t¤ f¤ fl-17a5c5a65d375-33¤ ‘¤ ’dt‘¤ “grecord-name-sym¤ ”“¤ •fl-17a5c5a65d375-31¤ –•¤ —d”t–¤ ˜eh¤ ™cc¤ šfl-17a5c5a65d375-2c¤ ›fl-17a5c5a65d375-2d¤ œš›¤ d˜™œ¤ žcqŠqqqqŽq’q—qw¤ Ÿ`ažz¤  gsyntax-violation¤ ¡ ¤ ¢ ¤ £f-source expression failed to match any pattern¤ ¤ ¤ ¥greverse¤ ¦gsequence¤ §g number-fields¤ ¨gfree-id¤ ©g immutable¤ ªgx¤ «ª¤ ¬fl-17a5c5a65d375-135¤ ­¬¤ ®d«t­¤ ¯gf¤ °gguess-mutator-name¤ ±gguess-accessor-name¤ ²grecord-name-str¤ ³g id->string¤ ´gwrap¤ µ¯°±²³´¤ ¶cccccc¤ ·fl-17a5c5a65d375-12a¤ ¸fl-17a5c5a65d375-128¤ ¹fl-17a5c5a65d375-126¤ ºfl-17a5c5a65d375-124¤ »fl-17a5c5a65d375-122¤ ¼fl-17a5c5a65d375-120¤ ½·¸¹º»¼¤ ¾dµ¶½¤ ¿gfields¤ Àe¿¤ Áfl-17a5c5a65d375-11e¤ Âfl-17a5c5a65d375-11f¤ ÃÁ¤ ÄdÀ™Ã¤ Åcq®¾Ä¤ Æ`©Åz¤ ǨƤ ÈÇ[¤ Éf-¤ ÊÇ[[¤ Ëgmutable¤ Ì`ËÅz¤ ̤ͨ ÎÍ[¤ Ïf-set!¤ ÐÍ[[[¤ Ñg identifier?¤ Òfinvalid field specifier¤ Ógmap¤ Ôgprocess-fields¤ Õg list->vector¤ Ög fold-left¤ ×gdefine¤ Øgt-17a5c5a65d375-79¤ Ùgt-17a5c5a65d375-78¤ ÚØÙ¤ Ûgm-17a5c5a65d375-7a¤ ÜÛb¤ ÝÜܤ Þfl-17a5c5a65d375-7e¤ ßfl-17a5c5a65d375-7f¤ àÞߤ ádÚÝठâglst¤ ãgc¤ äâªã¤ åccc¤ æfl-17a5c5a65d375-75¤ çfl-17a5c5a65d375-76¤ èfl-17a5c5a65d375-77¤ éæçè¤ êdäåé¤ ëg field-names¤ ìë¤ ífl-17a5c5a65d375-6e¤ îí¤ ïdìtî¤ ð¿¤ ñfl-17a5c5a65d375-6c¤ òñ¤ ódðtò¤ ôgloop¤ õg_fields¤ ög_parent¤ ÷g _protocol¤ øg_sealed¤ ùg_opaque¤ úg_nongenerative¤ ûg _constructor¤ üg _parent-rtd¤ ýgrecord-clauses¤ þôõö÷øùúûüý ¤ ÿcccccccccc ¤ fl-17a5c5a65d375-54¤ fl-17a5c5a65d375-55¤ fl-17a5c5a65d375-56¤ fl-17a5c5a65d375-57¤ fl-17a5c5a65d375-58¤ fl-17a5c5a65d375-59¤ fl-17a5c5a65d375-5a¤ fl-17a5c5a65d375-5b¤ fl-17a5c5a65d375-5c¤  fl-17a5c5a65d375-5d¤    ¤  dþÿ ¤  fl-17a5c5a65d375-4c¤  fl-17a5c5a65d375-4d¤ fl-17a5c5a65d375-4e¤ fl-17a5c5a65d375-4f¤   ¤ dij¤ g unspecified?¤ g *unspecified*¤ ¤ cc¤ fl-17a5c5a65d375-46¤ fl-17a5c5a65d375-44¤ ¤ d¤ fl-17a5c5a65d375-43¤ ¤ dst¤ cqáqêqïqóq ¤ `×z¤ grecord-accessor¤  `z¤ !glength¤ "gt-17a5c5a65d375-8b¤ #gt-17a5c5a65d375-8a¤ $"#¤ %gm-17a5c5a65d375-8c¤ &%b¤ '&&¤ (fl-17a5c5a65d375-90¤ )fl-17a5c5a65d375-91¤ *()¤ +d$'*¤ ,fl-17a5c5a65d375-87¤ -fl-17a5c5a65d375-88¤ .fl-17a5c5a65d375-89¤ /,-.¤ 0däå/¤ 1gfield-accessors¤ 21¤ 3fl-17a5c5a65d375-70¤ 43¤ 5d2t4¤ 6cq+q0q5qïqóq ¤ 7`×6z¤ 8grecord-mutator¤ 9`86z¤ :gt-17a5c5a65d375-97¤ ;:¤ =¤ ?fl-17a5c5a65d375-9b¤ @?¤ Ad;>@¤ Bgfield-mutators¤ CB¤ Dfl-17a5c5a65d375-82¤ ED¤ FdCtE¤ GcqAqFq5qïqóq ¤ H`8Gz¤ Igt-17a5c5a65d375-a0¤ JI¤ Kgm-17a5c5a65d375-a1¤ LKb¤ ML¤ Nfl-17a5c5a65d375-a4¤ ON¤ PdJMO¤ Qg parent-cd¤ RQ¤ Sfl-17a5c5a65d375-94¤ TS¤ UdRtT¤ VcqPqUqFq5qïqóq ¤ W`AVz¤ X[[[[[[[[[]] ¤ Ygbegin¤ Zgt-17a5c5a65d375-b2¤ [gt-17a5c5a65d375-b1¤ \gt-17a5c5a65d375-b0¤ ]gt-17a5c5a65d375-af¤ ^gt-17a5c5a65d375-ae¤ _gt-17a5c5a65d375-b4¤ `gt-17a5c5a65d375-b3¤ agt-17a5c5a65d375-b6¤ bgt-17a5c5a65d375-b5¤ cgt-17a5c5a65d375-b8¤ dgt-17a5c5a65d375-b7¤ eZ[\]^_`abcd ¤ fgm-17a5c5a65d375-b9¤ gfb¤ hggggggggggg ¤ ifl-17a5c5a65d375-bd¤ jfl-17a5c5a65d375-be¤ kfl-17a5c5a65d375-bf¤ lfl-17a5c5a65d375-c0¤ mfl-17a5c5a65d375-c1¤ nfl-17a5c5a65d375-c2¤ ofl-17a5c5a65d375-c3¤ pfl-17a5c5a65d375-c4¤ qfl-17a5c5a65d375-c5¤ rfl-17a5c5a65d375-c6¤ sfl-17a5c5a65d375-c7¤ tijklmnopqrs ¤ udeht¤ vgopaque?¤ wv¤ xfl-17a5c5a65d375-ac¤ yx¤ zdwty¤ {gsealed?¤ |{¤ }fl-17a5c5a65d375-aa¤ ~}¤ d|t~¤ €guid¤ €¤ ‚fl-17a5c5a65d375-a8¤ ƒ‚¤ „dtƒ¤ …gprotocol¤ †…¤ ‡fl-17a5c5a65d375-a6¤ ˆ‡¤ ‰d†tˆ¤ Šg parent-rtd¤ ‹Š¤ Œfl-17a5c5a65d375-9d¤ Œ¤ Žd‹t¤ cquqqqqzqq„q‰qŽqUqFq5qïqóq ¤ `Yz¤ ‘`×z¤ ’gmake-record-type-descriptor¤ “`’z¤ ”gquote¤ •`”z¤ –grecord-constructor¤ —`–z¤ ˜g"make-record-constructor-descriptor¤ ™`˜z¤ šgdummy¤ ›`šz¤ œglet¤ `œz¤ ž`Mz¤ Ÿ•›¤  Ÿ¤ ¡grecord-predicate¤ ¢`¡z¤ £gappend¤ ¤£¤ ¥£¤ ¦cq ¤ §`¿¦z¤ ¨¨§¤ ©¨]Œ¤ ª©[Œ¤ «graise¤ ¬gmake-assertion-violation¤ ­gparent¤ ®`­¦z¤ ¯¨®¤ °¯[¤ ±°[Œ¤ ²`…¦z¤ ³¨²¤ ´³[¤ µ´[Œ¤ ¶gsealed¤ ·`¶¦z¤ ¸¨·¤ ¹¸[¤ º¹[Œ¤ »gopaque¤ ¼`»¦z¤ ½¨¼¤ ¾½[¤ ¿¾[Œ¤ Àg nongenerative¤ Á`À¦z¤ ¨Á¤ ä ÄÃ[Œ¤ Ågt-17a5c5a65d375-f2¤ ÆŤ Çgm-17a5c5a65d375-f3¤ ÈÇb¤ ÉȤ Êfl-17a5c5a65d375-f6¤ Ëʤ ÌdÆÉˤ Ígrest¤ Îͤ Ïfl-17a5c5a65d375-f0¤ ÐϤ ÑdÎtФ ÒcqÌÑq  ¤ Ó`”Òz¤ ÔÂ[¤ ÕÔ[Œ¤ րͤ ×fl-17a5c5a65d375-f9¤ Øfl-17a5c5a65d375-fa¤ Ù×ؤ ÚdÖ™Ù¤ ÛcÚq ¤ Ü`”Ûz¤ Ý`Š¦z¤ ިݤ ßÞ[[¤ àß[Œ¤ áZ[¤ âgt-17a5c5a65d375-10a¤ ã⤠ägm-17a5c5a65d375-10b¤ åäb¤ æå¤ çfl-17a5c5a65d375-10e¤ èç¤ édãæè¤ êgname¤ ëê¤ ìfl-17a5c5a65d375-108¤ íì¤ îdëtí¤ ïfl-17a5c5a65d375-105¤ ðï¤ ñdstð¤ òcqéîqñ¤ ó`Pòz¤ ôgt-17a5c5a65d375-116¤ õô¤ ögm-17a5c5a65d375-117¤ ÷öb¤ ø÷¤ ùfl-17a5c5a65d375-11a¤ úù¤ ûdõøú¤ üfl-17a5c5a65d375-114¤ ýü¤ þdëtý¤ ÿfl-17a5c5a65d375-111¤ ÿ¤ dst¤ cqûþq¤ `Rz¤C5hX*b]4     54>"G454!hL]45L6Dgfilenamefrnrs/records/syntactic.scmŒ  ŒŒ   CO>"G4#54!hL]45L6Dgfilenamefrnrs/records/syntactic.scmŒ  ŒŒ   CO>"G4%54!hL]45L6Dgfilenamefrnrs/records/syntactic.scmŒ  ŒŒ   CO>"G4'54!hL]45L6Dgfilenamefrnrs/records/syntactic.scmŒ  ŒŒ   CO>"G4)54!hL]45L6Dgfilenamefrnrs/records/syntactic.scmŒ  ŒŒ   CO>"G4+54!hL]45L6Dgfilenamefrnrs/records/syntactic.scmŒ  ŒŒ   CO>"G4-54!hL]45L6Dgfilenamefrnrs/records/syntactic.scmŒ  ŒŒ   CO>"G4/54!hL]45L6Dgfilenamefrnrs/records/syntactic.scmŒ  ŒŒ   CO>"G4454!hL]45L6Dgfilenamefrnrs/records/syntactic.scmŒ  ŒŒ   CO>"G47!:hL]456Dgfilenamefrnrs/records/syntactic.scmŒ  ŒŒ  C>"G4=!hL]456Dgfilenamefrnrs/records/syntactic.scmŒ  ŒŒ  C>"G4@!BhL]456Dgfilenamefrnrs/records/syntactic.scmŒ  ŒŒ  C>"G4Ci5DREFGHh’]44556Šg record-name  gfilenamefrnrs/records/syntactic.scmŒ # ŒŒ $ #ŒŒ   gnamegguess-constructor-nameŒCIREFHJh]44556ˆg record-name  gfilenamefrnrs/records/syntactic.scmŒ % ŒŒ  & @ŒŒ   gnamegguess-predicate-nameŒCKRLDh£]Œ6›gname  grtd  grcd   gfilenamefrnrs/records/syntactic.scmŒ ' ŒŒ   gnamegregister-record-typeŒCMRNDOhŠ]456‚gname  gfilenamefrnrs/records/syntactic.scmŒ ) ŒŒ   gnameglookup-record-type-descriptorŒCPRNDQh‘]456‰gname  gfilenamefrnrs/records/syntactic.scmŒ + ŒŒ   gnameg$lookup-record-constructor-descriptorŒCRR4U9VY_{hˆ]ŒŒC€g record-name  gconstructor-name  gpredicate-name   g record-clause      C}~IKY€ŸhZ]LLŒŒCRgt-17a5c5a65d375-38  gt-17a5c5a65d375-37     C¢£ h`Ç]*454455445545$ O@ 6¿g record-name  [g record-clause  [grecord-name-sym  [gconstructor-name   [gpredicate-name  ) [gtmp  2 [gtmp  = [  [ C¢£h@L]45$@45$@6Dgstx  9gtmp 9gtmp  " 9  9 C59R¤h ?] ‘$C4L™5ŒC7gn     gnameg seq-innerŒC¥h ˆ] OQ456€gn  g seq-inner gfilenamefrnrs/records/syntactic.scmŒ A ŒŒ   gnamegsequenceŒC¦Rh c](CŒ4LŽ—5ŒC[gfields  gcounter     gnamegnumber-fields-innerŒChœ] OQ 6”gfields  gnumber-fields-inner gfilenamefrnrs/records/syntactic.scmŒ D ŒŒ   gnameg number-fieldsŒC§RYÈ©~EFÉHhP}] 454L544M4455554L5Cugname  Igx  gx 6 Dgfilenamefrnrs/records/syntactic.scmŒ & T (ŒŒ  I CÊ©~h(Q] 454L5CIgname  #gaccessor  #gx     # CÎË~EFÉHÏ hx›] 454L544M4455554L544M4455554L5C“gname  rgx  gx 6 Dgx ` ngfilenamefrnrs/records/syntactic.scmŒ & T (ŒŒ N Y ŒŒ \ Y 5ŒŒ  r CÐË~h(f] 454L5C^gname  $gaccessor  $gmutator   $gx     $ CÑh,]6$gname     C©~EFÉHhP}] 454L544M4455554L5Cugname  Igx  gx 6 Dgfilenamefrnrs/records/syntactic.scmŒ & T (ŒŒ  I C 9Òh È])45$ LLO@45$ LO@45$ LLO@45$  LO@4 ?$  LLO@  6Àgx  Ÿgtmp Ÿgtmp  ) Ÿgtmp  E Ÿgtmp  c Ÿgtmp  { Ÿgfilenamefrnrs/records/syntactic.scmŒ › n /ŒŒ  Ÿ gnamegfŒCH~Óh0Â]HOQ4455K6ºg record-name  +gfields  +grecord-name-str   +gf   +gfilenamefrnrs/records/syntactic.scmŒ L ŒŒ  + gnamegprocess-fieldsŒCÔR4UaVY_YÕÓOÖY€ hZ]LCRgt-17a5c5a65d375-79  gt-17a5c5a65d375-78     C¢£hHk]Ž45$4LO?" 45ŒCcglst  Bgx  Bgc   Bgtmp  >gtmp   ;  B C¦!Y€79hZ]LCRgt-17a5c5a65d375-8b  gt-17a5c5a65d375-8a     C¢£hPk]ŽŽ$AŽŽ45$4LO?" 45ŒCCcglst  Ogx  Ogc   Ogtmp   Hgtmp  E  O CHWYX‘“•—™›ž ¢¥ hˆ†, 3 LLLL LLL ŒŒŒL L4   5ŒŒŒŒŒC~gt-17a5c5a65d375-b2  gt-17a5c5a65d375-b1  gt-17a5c5a65d375-b0   gt-17a5c5a65d375-af   gt-17a5c5a65d375-ae   gt-17a5c5a65d375-b4   gt-17a5c5a65d375-b3   gt-17a5c5a65d375-b6   gt-17a5c5a65d375-b5   gt-17a5c5a65d375-b8  gt-17a5c5a65d375-b7     C¢£h`É]844LL&"L554LOLL&"L44LL&"L5554LOLL&"L44LL&"L555LL&LL&"LŽ" LLL&LL&"L" LLL&"LLL&"LLL&"LLL&"LLL&"L 4  5$ L L LO@6Ág field-names  ]gfield-accessors T ]gfield-mutators  ‹ ]g parent-cd  ± ]g parent-rtd  Ö ]gtmp  2 ]gtmp  = ]  ] CªÔ«¬h0G]L L &L4L5LLLLLLL6 456?g record-fields  0grest  0  0 C±«¬h@E]L L&'L L&LLLLLLLL6 456456=g parent-name  :grest  :  : Cµ«¬h0D]L L&LLLLLLLL6 456<g expression  )grest  )  ) Cº«¬h0A]L L&LLLLLLLL6 4569gsealed?  )grest  )  ) C¿«¬h0A]L L&LLLLLLLL6 4569gopaque?  )grest  )  ) CÄÓ«¬h@<] L L &,LLLLLL4L455LL6 4564grest  ?gtmp " .  ? CÕÜ«¬h0=]L L&LLLLLLLL6 4565guid  .grest  .  . C૬h@M]L L&,L L&LLLLLLLL6 456456Egrtd  ?gcd  ?grest   ?  ? C¢£h¸³, 345  $LLLLO  @45  $LLLO  @45  $LLO  @45  $LLO  @4 5  $ LLO  @4 5$ LLO @4 5$LLLO @45$LLO @45$LLO @6«g_fields  ²g_parent  ²g _protocol   ²g_sealed   ²g_opaque   ²g_nongenerative   ²g _constructor   ²g _parent-rtd   ²grecord-clauses   ²gtmp  ²gtmp > ²gtmp n ²gtmp œ ²gtmp Ê ²gtmp  ø ²gtmp  & ²gtmp  V ²gtmp  „ ²  ² gnamegloopŒCh8š] OLQLLLLLLLL6 ’g record-name  1gconstructor-name  1gpredicate-name   1g record-clause   1gloop   1  1 C¢£h0V]Œ45$ O@6Ngstx  ,g *unspecified*  ,gtmp   ,  , C5aR4UAVYá”~óh <] 4L455C4gname  gtmp     C¢£h(;] 45$ O@63gstx  'gtmp '  ' C5AR4U8VYá”~h <] 4L455C4gname  gtmp     C¢£h(;] 45$ O@63gstx  'gtmp '  ' C58RCZgm  +giface 2 ¹giface À Igiface P Ùgiface à igiface p ùgiface  ‰giface  giface  ©giface ° 9 gfilenamefrnrs/records/syntactic.scmŒ   ŒŒ à ! ŒŒ … # ŒŒ K % ŒŒ  ' ŒŒ Õ ) ŒŒ œ + ŒŒ û A ŒŒ O D ŒŒ ] L ŒŒ  *R C6