GOOF----LE-8-2.0É4]R4hh] gguile¤ ¤ gdefine-module*¤ ¤ ¤ gsrfi¤ gsrfi-9¤ ggnu¤ ¤ gfilenameS¤ fsrfi/srfi-9/gnu.scm¤ gimportsS¤ gsrfi-1¤  ¤ ¤ gsystem¤ gbase¤ gck¤ ¤ ¤ ¤ gexportsS¤ gset-record-type-printer!¤ gdefine-immutable-record-type¤ g set-field¤ g set-fields¤ ¤ gset-current-module¤ ¤ ¤ gvtable-index-printer¤ gmake-syntax-transformer¤ ! ¤ " ¤ #gmacro¤ $g $sc-dispatch¤ %$¤ &$¤ 'gany¤ (geach-any¤ )'(Œ¤ *')Œ¤ +'*Œ¤ ,'+Œ¤ -g syntax-object¤ .g@@¤ /gtop¤ 0/¤ 1gribcage¤ 2gdummy¤ 3gname¤ 4gctor¤ 5gpred¤ 6gfields¤ 723456¤ 8gm-1e8bcc284-11e¤ 98/¤ :90000¤ ;fl-1e8bcc284-123¤ fl-1e8bcc284-126¤ ?fl-1e8bcc284-127¤ @;<=>?¤ A17:@¤ B1¤ Cgx¤ DC¤ E9¤ Ffl-1e8bcc284-120¤ GF¤ H1DEG¤ I0ABH¤ Jghygiene¤ KJ¤ L-.IK¤ M-IK¤ N-IK¤ OMN¤ Pg%define-record-type¤ Q-PIK¤ RLOQ¤ S-IK¤ T-IK¤ Ugsyntax-violation¤ VU¤ WU¤ Xf-source expression failed to match any pattern¤ Y''('¤ Zg %set-fields¤ [gs¤ \ggetter¤ ]gexpr¤ ^2[\]¤ _gm-1e8bcc284-130¤ `_/¤ a`000¤ bfl-1e8bcc284-135¤ cfl-1e8bcc284-136¤ dfl-1e8bcc284-137¤ efl-1e8bcc284-138¤ fbcde¤ g1^af¤ h`¤ ifl-1e8bcc284-132¤ ji¤ k1Dhj¤ l0gBk¤ m-ZlK¤ n-lK¤ o-lK¤ p''Œ¤ q'pŒ¤ rgrest¤ s2[r¤ tgm-1e8bcc284-140¤ ut/¤ vu00¤ wfl-1e8bcc284-145¤ xfl-1e8bcc284-146¤ yfl-1e8bcc284-147¤ zwxy¤ {1svz¤ |u¤ }fl-1e8bcc284-142¤ ~}¤ 1D|~¤ €0{B¤ -Z€K¤ ‚-€K¤ ƒ-€K¤ „geach¤ …p'¤ †„…¤ ‡gfold¤ ˆgfind¤ ‰gfree-identifier=?¤ Šgdelq¤ ‹gcollate-set-field-specs¤ Œgunknown-getter¤ g_¤ Ž''¤ funknown getter¤ gc-list¤ ‘gfree-id¤ ’gquote¤ “0¤ ”fl-1e8bcc284-175¤ •”¤ –1D“•¤ —0B–¤ ˜-’—K¤ ™‘˜¤ š™'¤ ›„š¤ œ'›Œ¤ œŒ¤ žgv¤ Ÿ[ž¤  00¤ ¡fl-1e8bcc284-178¤ ¢fl-1e8bcc284-179¤ £¡¢¤ ¤1Ÿ £¤ ¥0¤B–¤ ¦-¥K¤ §-’¥K¤ ¨gc-same-type-check¤ ©fl-1e8bcc284-17e¤ ª©¤ «1D“ª¤ ¬0B«¤ ­-’¬K¤ ®‘­¤ ¯®'¤ °®(¤ ±®)¤ ²'¯°±±¯¤ ³gevery¤ ´gformat¤ µf\field paths ~a and ~a require one object to belong to two different record types (~a and ~a)¤ ¶g syntax->datum¤ ·gappend¤ ¸·¤ ¹·¤ ºg orig-form¤ »gpath¤ ¼ggetter0¤ ½gtype0¤ ¾gtype¤ ¿g on-success¤ À[º»¼\½¾¿¤ Á00000000¤ Âfl-1e8bcc284-1a3¤ Ãfl-1e8bcc284-1a4¤ Äfl-1e8bcc284-1a5¤ Åfl-1e8bcc284-1a6¤ Æfl-1e8bcc284-1a7¤ Çfl-1e8bcc284-1a8¤ Èfl-1e8bcc284-1a9¤ Éfl-1e8bcc284-1aa¤ ÊÂÃÄÅÆÇÈɤ Ë1ÀÁʤ Ì0ËB«¤ Í-ÌK¤ Î-’ÌK¤ Ïfl-1e8bcc284-1b4¤ ÐϤ Ñ1D“Ф Ò0BBѤ Ó-.ÒK¤ Ô-ÒK¤ Õ-ÒK¤ ÖÔÕ¤ ×g getter-type¤ Ø-×ÒK¤ ÙÓÖؤ Úg getter-index¤ Û-ÚÒK¤ ÜÓÖÛ¤ Ýg getter-copier¤ Þ-ÝÒK¤ ßÓÖÞ¤ à'''¤ á''('¤ â'¤ ã''('⤠ä'†Œ¤ å(䌤 æ'匤 ç'挤 è猤 égmap¤ êé¤ ëé¤ ìgcar¤ í¼\¤ îfl-1e8bcc284-1ea¤ ïfl-1e8bcc284-1eb¤ ðîï¤ ñ1í ð¤ ògcollated-specs¤ óò¤ ôfl-1e8bcc284-1e2¤ õô¤ ö1ó“õ¤ ÷gcheck?¤ øg path-so-far¤ ùg struct-expr¤ úghead¤ ûgtail¤ ü÷ºøùúû]¤ ý0000000¤ þfl-1e8bcc284-1d4¤ ÿfl-1e8bcc284-1d5¤ fl-1e8bcc284-1d6¤ fl-1e8bcc284-1d7¤ fl-1e8bcc284-1d8¤ fl-1e8bcc284-1d9¤ fl-1e8bcc284-1da¤ þÿ¤ 1üý¤ ×Úݤ 000¤  fl-1e8bcc284-1b8¤  fl-1e8bcc284-1b9¤  fl-1e8bcc284-1ba¤     ¤  1 ¤ 0BBñBBöB BBÑ ¤ -ŒK¤ ''¤ „¤ 'Œ¤ úû]¤ fl-1e8bcc284-202¤ fl-1e8bcc284-203¤ fl-1e8bcc284-204¤ ¤ 1¤ gspec¤ ¤ fl-1e8bcc284-1fe¤ ¤ 1“¤ gerr¤ ¤  fl-1e8bcc284-1f0¤ ! ¤ "1“!¤ #0BBBBBBB"BBñBBöB BBѤ $-Œ#K¤ %fl-1e8bcc284-20a¤ &%¤ '1“&¤ (0B'BBBBBBB"BBñBBöB BBѤ )-Z(K¤ *g struct-ref¤ +-*(K¤ ,-[(K¤ --(K¤ .-’(K¤ /glist¤ 0gt-1e8bcc284-1f2¤ 10¤ 2gm-1e8bcc284-1f3¤ 32/¤ 43¤ 5fl-1e8bcc284-1f7¤ 65¤ 71146¤ 80B7BBB"BBñBBöB BBѤ 9-8K¤ :-¨8K¤ ;-’8K¤ <-8K¤ =glet¤ >-=8K¤ ?-[8K¤ @„⤠Aâ@Œ¤ B'AŒ¤ C(BŒ¤ D'CŒ¤ E'DŒ¤ FEŒ¤ Gfduplicate field path¤ H('¤ I„H¤ J'IŒ¤ K(JŒ¤ L'KŒ¤ M'LŒ¤ NMŒ¤ Of%one field path is a prefix of another¤ PqŒ¤ Qfinvalid syntax¤C5h€g]4    54>"GhÕ]ªCÍgtype  gproc  gfilenamefsrfi/srfi-9/gnu.scmŒ ŒŒ " ŒŒ  gnamegset-record-type-printer!Œg documentationf(Set PROC as the custom printer for TYPE.ŒCR4"#&,RSTh(w]ŒŒŒŒŒŒŒŒŒŒCogdummy  #gname  #gctor   #gpred   #gfields   #  # CWXh(¿] 45$@6·gx  "gtmp "gfilenamefsrfi/srfi-9/gnu.scmŒ $ ŒŒ  " g macro-typeg syntax-rulesŒgpatternsgnamegctorgpredgfieldsg...C5R4"#&Ymnoh b]CZgdummy  gs  ggetter   gexpr      CWXh(·] 45$@6¯gx  "gtmp "gfilenamefsrfi/srfi-9/gnu.scmŒ ) ŒŒ  " g macro-typeg syntax-rulesŒgpatternsgsggetterg...gexprC5R4"#&q‚ƒh N]ŒŒŒŒŒŒŒCFgdummy  gs  grest      CWXh(¡] 45$@6™gx  "gtmp "gfilenamefsrfi/srfi-9/gnu.scmŒ - ŒŒ  " g macro-typeg syntax-rulesŒgpatternsgsgrestŒC5R&†‡ˆ‰hi]L6agtree  gfilenamefsrfi/srfi-9/gnu.scmŒ C ŒŒ D +ŒŒ D ŒŒ  CŠhHó] 4O5$ŽŒŒ45ŒCŒCëghead  Agtail  Agexpr   Agresult   Agt   Agfilenamefsrfi/srfi-9/gnu.scmŒ B ŒŒ  C ŒŒ  C ŒŒ ! G ŒŒ $ H ŒŒ % G ŒŒ ' I ŒŒ 0 G ŒŒ : J ŒŒ  A gnameginsertŒCh†]6~ghead  gtail  gexpr   gfilenamefsrfi/srfi-9/gnu.scmŒ  M ŒŒ  M ŒŒ   CWXh(] 45$@6…gspecs  "gtmp "gfilenamefsrfi/srfi-9/gnu.scmŒ A ŒŒ  " gnamegcollate-set-field-specsŒC‹R4"Œ#&ŽUhƒ]6{g orig-form  ggetter  gfilenamefsrfi/srfi-9/gnu.scmŒ  S ŒŒ  S %ŒŒ  S ŒŒ   CWXh(f] 45$@6^gx  "gtmp "gfilenamefsrfi/srfi-9/gnu.scmŒ P ŒŒ  " C5ŒR4"#&¦§h8]C0gs  gv     CWXh(f] 45$@6^gx  "gtmp "gfilenamefsrfi/srfi-9/gnu.scmŒ V ŒŒ  " C5R4"¨#&²WX³‰U´µ¶¹hXÌ] 4L5$C444L5544LL55454L55L6Ägt  Vgg  Vgt  Vgfilenamefsrfi/srfi-9/gnu.scmŒ b ŒŒ  c ŒŒ c ŒŒ  e ŒŒ  f ŒŒ g ŒŒ ! i ŒŒ 2 j ŒŒ C k ŒŒ J l ŒŒ R f ŒŒ V d ŒŒ  V Ch æ,3O6Þgs  g orig-form  gpath   ggetter0   ggetter   gtype0   gtype   g on-success   gfilenamefsrfi/srfi-9/gnu.scmŒ  b ŒŒ   CÍÎh¸,3C°gs  g orig-form  gpath   ggetter0   ggetter   gtype0   gtype   g on-success      Ch@f] 45" 6$4?$@"ÿÿÜ"ÿÿØ^gx  9gtmp 9gfilenamefsrfi/srfi-9/gnu.scmŒ \ ŒŒ  9 C5¨R4"Z#ÙÜß&à&áhm]Cegcheck?  g orig-form  g path-so-far   gs      Cãh|]Ctgcheck?  g orig-form  g path-so-far   gs   ge      Cè‹ëhw]ŒCogtmp-1e8bcc284-1e6  gtmp-1e8bcc284-1e5  gtmp-1e8bcc284-1e4     Céì&)é&$)¹+,-.ë/ hX] LLL4L5L4 5ŒŒŒŒŒCˆghead  Ugtail  Ugexpr   Ugtmp  Ugfilenamefsrfi/srfi-9/gnu.scmŒ ” #ŒŒ  U CWXh0j] 45$LLLLO@6bgspec  -gtmp -gfilenamefsrfi/srfi-9/gnu.scmŒ ’ ŒŒ  - C&(9:;<ë;h9]LLC1gtmp-1e8bcc284-1fb     C>? hˆ9]LLLLŒLLL4LLOL5ŒŒLLLLLŒŒŒC1gt-1e8bcc284-1f2  ƒ  ƒ CWX hX·]L4LLLLOL545$LLLLLLO @6¯ggetter0  Xggetter  Xgtmp  Xgtmp  ! Xgtmp  , Xgfilenamefsrfi/srfi-9/gnu.scmŒ „ ŒŒ  ’ ŒŒ ! † ŒŒ  X CWX hX5]44554545  $LLLO @  6-gcheck?  Tg orig-form  Tg path-so-far   Tg struct-expr   Tghead   Tgtail   Tgexpr   Tgcollated-specs   Tgtmp   Tgtmp * T gfilenamefsrfi/srfi-9/gnu.scmŒ  € ŒŒ  € ŒŒ  ƒ ŒŒ  ‚ ŒŒ  T CFUGhÍ]6Ågcheck?  g orig-form  g path-so-far   gs   ge   ge*   gfilenamefsrfi/srfi-9/gnu.scmŒ    ŒŒ    'ŒŒ    ŒŒ   CNUOhÔ]6Ìgcheck?  g orig-form  g path-so-far   gs   ggetter   gexpr   gfilenamefsrfi/srfi-9/gnu.scmŒ  ¤ ŒŒ  ¤ 'ŒŒ  ¤ ŒŒ   CPUQh˜]6gcheck?  g orig-form  grest   gfilenamefsrfi/srfi-9/gnu.scmŒ  § ŒŒ  § 'ŒŒ § ŒŒ  CWXh Ù]34L5$@4L5$@4L5$O@4L5$ @4L 5$ @4L 5$ @L6Ñg getter-type  žg getter-index  žg getter-copier   žgtmp  žgtmp  " žgtmp  9 žgtmp  Y žgtmp  p žgtmp  ‡ ž   ž CWX h8]45$ O@6wgx  2gtmp 2gtmp   2gfilenamefsrfi/srfi-9/gnu.scmŒ s ŒŒ t ŒŒ  2 C5ZRC_gm  ,gfilenamefsrfi/srfi-9/gnu.scmŒ   ŒŒ ( ŒŒ @ A ŒŒ  ~ C6