GOOF----LE-8-2.0?>]<4há(] gguile¤ ¤ gdefine-module*¤ ¤ ¤ gsrfi¤ gsrfi-111¤ ¤ gfilenameS¤ fsrfi/srfi-111.scm¤ gimportsS¤ gsrfi-9¤  ¤  ¤ ggnu¤  ¤ ¤ ¤ gexportsS¤ gbox¤ gbox?¤ gunbox¤ gset-box!¤ ¤ gset-current-module¤ ¤ ¤ gcond-expand-provide¤ gcurrent-module¤ ¤ g¤ g%box-procedure¤ !gmake-syntax-transformer¤ "!¤ #!¤ $gmacro¤ %g $sc-dispatch¤ &%¤ '%¤ (g_¤ )gany¤ *()¤ +g syntax-object¤ ,glambda¤ -gm-a33a589db48-4¤ .gtop¤ /-.¤ 0gribcage¤ 1gt-a33a589db48-3¤ 21¤ 3/¤ 4fl-a33a589db48-9¤ 54¤ 60235¤ 70¤ 8gx¤ 98¤ :fl-a33a589db48-6¤ ;:¤ <093;¤ =gshift¤ >g proc-name¤ ?gargs¤ @>?¤ A.¤ BAA¤ Cfl-1e8ba8b5a-2ba¤ Dfl-1e8ba8b5a-2bb¤ ECD¤ F0@BE¤ Ggkey¤ Hgvalue¤ Igname¤ Jgformals¤ Kgbody¤ LGHIJK¤ MAAAAA¤ Nfl-1e8ba8b5a-2ad¤ Ofl-1e8ba8b5a-2ae¤ Pfl-1e8ba8b5a-2af¤ Qfl-1e8ba8b5a-2b0¤ Rfl-1e8ba8b5a-2b1¤ SNOPQR¤ T0LMS¤ Ugmake-procedure-name¤ VU¤ WA¤ Xfl-1e8ba8b5a-29d¤ YX¤ Z0VWY¤ [A¤ \fl-1e8ba8b5a-29c¤ ]\¤ ^09[]¤ _/67<=7777FTZ^ ¤ `ghygiene¤ a` ¤ b+,_a¤ cA67<¤ d`¤ e+Hcd¤ fe¤ gg make-struct¤ hgm-a33a589db48-1¤ ih.¤ jgt-1e8ba8b5a-38d¤ kgt-1e8ba8b5a-38c¤ lgt-1e8ba8b5a-38b¤ mjkl¤ ngm-1e8ba8b5a-38e¤ on.¤ pooo¤ qfl-1e8ba8b5a-392¤ rfl-1e8ba8b5a-393¤ sfl-1e8ba8b5a-394¤ tqrs¤ u0mpt¤ vg ctor-args¤ wv¤ xfl-1e8ba8b5a-37a¤ yx¤ z0w[y¤ {gctor¤ |gfield¤ }{|¤ ~fl-1e8ba8b5a-376¤ fl-1e8ba8b5a-377¤ €~¤ 0}B€¤ ‚gform¤ ƒg type-name¤ „gconstructor-spec¤ …g field-names¤ †‚ƒ„…¤ ‡AAAA¤ ˆfl-1e8ba8b5a-36b¤ ‰fl-1e8ba8b5a-36c¤ Šfl-1e8ba8b5a-36d¤ ‹fl-1e8ba8b5a-36e¤ Œˆ‰Š‹¤ 0†‡Œ¤ Žg record-layout¤ gfunctional-setters¤ gsetters¤ ‘gcopier¤ ’ggetters¤ “g constructor¤ ”ggetter-identifiers¤ •gfield-identifiers¤ –Ž‘’“”•¤ —AAAAAAAA¤ ˜fl-1e8ba8b5a-343¤ ™fl-1e8ba8b5a-341¤ šfl-1e8ba8b5a-33f¤ ›fl-1e8ba8b5a-33d¤ œfl-1e8ba8b5a-33b¤ fl-1e8ba8b5a-339¤ žfl-1e8ba8b5a-337¤ Ÿfl-1e8ba8b5a-335¤  ˜™š›œžŸ¤ ¡0–— ¤ ¢fl-1e8ba8b5a-334¤ £¢¤ ¤09[£¤ ¥i67<=7u777z7¡¤¤ ¦+g¥a¤ §+cd¤ ¨+ ¥a¤ ©¦§¨e¤ ªbf©¤ «geach-any¤ ¬(«Œ¤ ­gsyntax-violation¤ ® ­¤ ¯ ­¤ °fWrong number of arguments¤ ±g identifier?¤ ² ±¤ ³ ±¤ ´A7<¤ µ+ ´d¤ ¶­¤ ·­¤ ¸f-source expression failed to match any pattern¤ ¹grecord-type-vtable¤ º ¹¤ » ¹¤ ¼gpw¤ ½gdefault-record-printer¤ ¾ ½¤ ¿ ½¤ ÀH¤ Ágset-struct-vtable-name!¤  Á¤ à Á¤ Ägvtable-offset-user¤ ŠĤ Æ Ä¤ Çg%box?-procedure¤ Ègm-a33a589db48-11¤ ÉÈ.¤ Êgt-a33a589db48-10¤ Ëʤ Ìɤ Ífl-a33a589db48-16¤ Îͤ Ï0ËÌΤ Ðfl-a33a589db48-13¤ ÑФ Ò09ÌѤ ÓÉÏ7Ò=7777FTZ^ ¤ Ô+,Óa¤ Õgobj¤ Ögt-1e8ba8b5a-47e¤ ×gt-1e8ba8b5a-478¤ Øgt-1e8ba8b5a-479¤ Ùgt-1e8ba8b5a-47a¤ Úgt-1e8ba8b5a-47d¤ Ûgt-1e8ba8b5a-47c¤ Ügt-1e8ba8b5a-47b¤ ÝÖ×ØÙÚÛܤ Þgm-1e8ba8b5a-47f¤ ßÞ.¤ àßßßßßßߤ áfl-1e8ba8b5a-483¤ âfl-1e8ba8b5a-484¤ ãfl-1e8ba8b5a-485¤ äfl-1e8ba8b5a-486¤ åfl-1e8ba8b5a-487¤ æfl-1e8ba8b5a-488¤ çfl-1e8ba8b5a-489¤ èáâãäåæç¤ é0Ýàè¤ êg copier-id¤ ëê¤ ìfl-1e8ba8b5a-476¤ íì¤ î0ë[í¤ ïg ctor-name¤ ðï¤ ñfl-1e8ba8b5a-46e¤ òñ¤ ó0ð[ò¤ ô…¤ õfl-1e8ba8b5a-46c¤ öõ¤ ÷0ô[ö¤ øglayout¤ ùø¤ úfl-1e8ba8b5a-46a¤ ûú¤ ü0ù[û¤ ýg immutable?¤ þý¤ ÿfl-1e8ba8b5a-468¤ ÿ¤ 0þ[¤ g field-count¤ ¤ fl-1e8ba8b5a-466¤ ¤ 0[¤ g getter-ids¤ ¤  fl-1e8ba8b5a-463¤   ¤  0[ ¤  g field-ids¤   ¤ fl-1e8ba8b5a-460¤ ¤ 0 [¤ gpredicate-name¤ g field-spec¤ ý‚ƒ„¤ AAAAAA¤ fl-1e8ba8b5a-453¤ fl-1e8ba8b5a-454¤ fl-1e8ba8b5a-455¤ fl-1e8ba8b5a-456¤ fl-1e8ba8b5a-457¤ fl-1e8ba8b5a-458¤ ¤ 0¤ iÏ7Ò=7é7777î7ó7÷7ü777 7¡¤¤ +Õa¤ ¤  gand¤ !+ a¤ "gstruct?¤ #+"a¤ $#¤ %geq?¤ &+%a¤ 'g struct-vtable¤ (+'a¤ )(¤ *AÏ7Ò¤ ++*d¤ ,&)+¤ -!$,¤ .Ô-¤ /A7Ò¤ 0+Ç/d¤ 1gthrow-bad-struct¤ 2 1¤ 3 1¤ 4g%unbox-procedure¤ 5gfree-id¤ 6g %%on-error¤ 7gm-a33a589db48-1d¤ 87.¤ 98¤ :fl-a33a589db48-1f¤ ;:¤ <099;¤ =87<=7777FTZ^ ¤ >+6=a¤ ?5>¤ @?)¤ Ag%%type¤ Bgt-1e8ba8b5a-3a5¤ Cgt-1e8ba8b5a-3a6¤ Dgt-1e8ba8b5a-3a7¤ Egt-1e8ba8b5a-3a8¤ Fgt-1e8ba8b5a-3a9¤ Ggt-1e8ba8b5a-3aa¤ Hgt-1e8ba8b5a-3ab¤ IBCDEFGH¤ Jgm-1e8ba8b5a-3ac¤ KJ.¤ LKKKKKKK¤ Mfl-1e8ba8b5a-3b0¤ Nfl-1e8ba8b5a-3b1¤ Ofl-1e8ba8b5a-3b2¤ Pfl-1e8ba8b5a-3b3¤ Qfl-1e8ba8b5a-3b4¤ Rfl-1e8ba8b5a-3b5¤ Sfl-1e8ba8b5a-3b6¤ TMNOPQRS¤ U0ILT¤ Vggetter¤ Wgindex¤ XVW¤ Yfl-1e8ba8b5a-3a3¤ Zfl-1e8ba8b5a-3a4¤ [YZ¤ \0XB[¤ ]ƒê¤ ^AAA¤ _fl-1e8ba8b5a-39e¤ `fl-1e8ba8b5a-39f¤ afl-1e8ba8b5a-3a0¤ b_`a¤ c0]^b¤ di7<=7U777\7c¡¤¤ e+Ada¤ f5e¤ g(@f)¤ hgck¤ igerr¤ jgs¤ kij¤ l88¤ mfl-a33a589db48-22¤ nfl-a33a589db48-23¤ omn¤ p0klo¤ q8p7<=7777FTZ^ ¤ r+hqa¤ sgquote¤ t+sqa¤ uAp7<¤ v+ud¤ wtv¤ xw¤ yg%%index¤ z+yda¤ {5z¤ |(@{)¤ }fl-a33a589db48-27¤ ~fl-a33a589db48-28¤ }~¤ €0kl¤ 8€7<=7777FTZ^ ¤ ‚+ha¤ ƒ+sa¤ „€7<¤ …+ „d¤ †ƒ…¤ ‡†¤ ˆg%%copier¤ ‰+ˆda¤ Š5‰¤ ‹(@Š)¤ Œfl-a33a589db48-2c¤ fl-a33a589db48-2d¤ ŽŒ¤ 0klŽ¤ 87<=7777FTZ^ ¤ ‘+ha¤ ’+sa¤ “g%%-set-fields¤ ”A7<¤ •+“”d¤ –’•¤ —–¤ ˜gt-a33a589db48-1c¤ ™˜¤ šfl-a33a589db48-31¤ ›š¤ œ0™9›¤ 8œ7<=7777FTZ^ ¤ ž+,a¤ Ÿiœ7<=7U777\7c¡¤¤  +jŸa¤ ¡ ¤ ¢gif¤ £+¢Ÿa¤ ¤+%Ÿa¤ ¥+'Ÿa¤ ¦¥ ¤ §Aœ7<¤ ¨+§d¤ ©¤¦¨¤ ªg struct-ref¤ «+ªŸa¤ ¬œ7<¤ ­+ ¬d¤ ®« ­¤ ¯+1Ÿa¤ °+sŸa¤ ±+§d¤ ²°±¤ ³¯ ²¤ ´£©®³¤ µž¡´¤ ¶A7<¤ ·+4¶d¤ ¸geach¤ ¹))¤ º¸¹¤ »)ºŒ¤ ¼)»Œ¤ ½)¼Œ¤ ¾g %%set-fields¤ ¿gdummy¤ Àgcheck?¤ Ágexpr¤ ¿ÀjVÁ¤ Ãgm-a33a589db48-38¤ ÄÃ.¤ ÅÄiiii¤ Æfl-a33a589db48-3d¤ Çfl-a33a589db48-3e¤ Èfl-a33a589db48-3f¤ Éfl-a33a589db48-40¤ Êfl-a33a589db48-41¤ ËÆÇÈÉʤ Ì0ÂÅˤ ÍĤ Îfl-a33a589db48-3a¤ ÏΤ Ð09ÍϤ Ñgt-1e8ba8b5a-3c4¤ Ògt-1e8ba8b5a-3c6¤ Ógt-1e8ba8b5a-3c5¤ ÔÑÒÓ¤ Õgm-1e8ba8b5a-3c7¤ ÖÕ.¤ ×ÖÖÖ¤ Øfl-1e8ba8b5a-3cb¤ Ùfl-1e8ba8b5a-3cc¤ Úfl-1e8ba8b5a-3cd¤ ÛØÙÚ¤ Ü0Ô×Û¤ Ýfl-1e8ba8b5a-3c1¤ Þfl-1e8ba8b5a-3c2¤ ßfl-1e8ba8b5a-3c3¤ àÝÞߤ á0]^ठâiÌ7Ð=7Ü777ᡤ ¤ ã+¾âa¤ äAÌ7Ф å+äd¤ æ+äd¤ çæ¤ ègmap¤ éè¤ êè¤ ëglist¤ ìg%set-box!-procedure¤ í())¤ îgm-a33a589db48-4c¤ ïî.¤ ðgt-a33a589db48-4a¤ ñgt-a33a589db48-4b¤ òðñ¤ óïï¤ ôfl-a33a589db48-51¤ õfl-a33a589db48-52¤ öôõ¤ ÷0òóö¤ øï¤ ùfl-a33a589db48-4e¤ úù¤ û09øú¤ üï÷7û=7777FTZ^ ¤ ý+,üa¤ þgt-1e8ba8b5a-3e6¤ ÿgt-1e8ba8b5a-3e7¤ þÿ¤ gm-1e8ba8b5a-3e8¤ .¤ ¤ fl-1e8ba8b5a-3ec¤ fl-1e8ba8b5a-3ed¤ ¤ 0¤ gsetter¤  IV¤  fl-1e8ba8b5a-3e0¤  fl-1e8ba8b5a-3e1¤  fl-1e8ba8b5a-3e2¤     ¤ 0 ^ ¤ W¤ fl-1e8ba8b5a-3d7¤ fl-1e8ba8b5a-3d8¤ ¤ 0B¤ g field-specs¤ ƒ¤ fl-1e8ba8b5a-3d3¤ fl-1e8ba8b5a-3d4¤ ¤ 0B¤ i÷7û=777¡¤¤ +ja¤ gval¤ +a¤ ¤ +¢a¤  +%a¤ !+'a¤ "!¤ #A÷7û¤ $+#d¤ % "$¤ &g struct-set!¤ '+&a¤ (÷7û¤ )+ (d¤ *')¤ ++1a¤ ,+sa¤ -+#d¤ .,-¤ /+.¤ 0%*/¤ 1ý0¤ 2A7û¤ 3+ì2d¤ 4gset-record-type-printer!¤ 5gdisplay¤ 6f#string¤ 8gobject-address¤ 9f value: ¤ :gwrite¤ ;f>¤C5hh•]4   54>"G4i4i5>"Ghr]¨Cjgvalue  gfilenamefsrfi/srfi-111.scmŒ  ŒŒ  gnameg%box-procedureŒC R4#$'*ªh7]C/gt-a33a589db48-3    C¬¯°hT]L6Lga  gfilenamefsrfi/srfi-111.scmŒ   ŒŒ  C(³hD]L6<gfilenamefsrfi/srfi-111.scmŒ   ŒŒ   Cµh]C   C·¸ hp…]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-111.scmŒ  ŒŒ  n C5R»¼¿À¨4Ã>"G Æ– iªRhq]¦$§‚CCigobj  gfilenamefsrfi/srfi-111.scmŒ  ŒŒ   gnameg%box?-procedureŒCÇR4#$'*.h8]C0gt-a33a589db48-10    C¬¯°hT]L6Lga  gfilenamefsrfi/srfi-111.scmŒ   ŒŒ  C(³hD]L6<gfilenamefsrfi/srfi-111.scmŒ   ŒŒ   C0h]C   C·¸ hp…]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-111.scmŒ  ŒŒ  n C5R3hp]§& ©C6hgs  gfilenamefsrfi/srfi-111.scmŒ  ŒŒ   gnameg%unbox-procedureŒC4R4#$'grxh:]ŒŒC2gerr  gs    C|‚‡h:]ŒŒC2gerr  gs    C‹‘—h:]ŒŒC2gerr  gs    C*µh8]C0gt-a33a589db48-1c    C¬¯°hT]L6Lga  gfilenamefsrfi/srfi-111.scmŒ   ŒŒ  C(³hD]L6<gfilenamefsrfi/srfi-111.scmŒ   ŒŒ   C·h]C   C·¸h¸Á]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66¹gx  ³gtmp ³gtmp  " ³gtmp  9 ³gtmp  P ³gtmp  g ³gtmp  ƒ ³gfilenamefsrfi/srfi-111.scmŒ  ŒŒ  ³ C5R4#“$'½ãåçêëh v]45ŒŒŒŒŒCngdummy  gcheck?  gs   ggetter   gexpr      C·¸h(¿] 45$@6·gx  "gtmp "gfilenamefsrfi/srfi-111.scmŒ  ŒŒ  " g macro-typeg syntax-rulesŒgpatternsgcheck?gsggettergexprg...C5“R3h „]§& ªC6|gs  gval  gfilenamefsrfi/srfi-111.scmŒ  ŒŒ   gnameg%set-box!-procedureŒCìR4#$'í1hV]CNgt-a33a589db48-4a  gt-a33a589db48-4b    C¬¯°hT]L6Lga  gfilenamefsrfi/srfi-111.scmŒ   ŒŒ  C(³hD]L6<gfilenamefsrfi/srfi-111.scmŒ   ŒŒ   C3h]C   C·¸ hp…]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-111.scmŒ  ŒŒ  n C5R4ii56789:3; h€è]4>"G4445 5>"G4>"G4§& ©" 4 5>"G 6àgbox  |gport  |gfilenamefsrfi/srfi-111.scmŒ  ŒŒ  ŒŒ  ŒŒ  ŒŒ  ! ŒŒ  ! ŒŒ  ! ŒŒ ' ! ŒŒ . ! ŒŒ 7 " ŒŒ ; " ŒŒ @ " ŒŒ I # ŒŒ N # ŒŒ l # ŒŒ x $ ŒŒ | $ ŒŒ  | C6gm  ,grtd o —gfilenamefsrfi/srfi-111.scmŒ   ŒŒ -  ŒŒ 2  ŒŒ :  &ŒŒ ?  ŒŒ Ý  ŒŒ b  ŒŒ  b C6