GOOF----LE-8-2.0s]4hG3] gguile  gdefine-module*   gsrfi gsrfi-9  gfilenameS fsrfi/srfi-9.scm gimportsS gsrfi-1     gsystem gbase gck    gexportsS gdefine-record-type  gset-current-module   gcond-expand-provide gcurrent-module  gmake-syntax-transformer   !gdefine-inlinable "gmacro #g $sc-dispatch $# %# &gany 'geach-any (&' )(' *&) +g syntax-object ,gdefine-tagged-inlinable -gtop .- /gribcage 0gdummy 1gname 2gformals 3gbody 40123 5gm-1e8ba8b5a-25b 65- 76... 8fl-1e8ba8b5a-260 9fl-1e8ba8b5a-261 :fl-1e8ba8b5a-262 ;fl-1e8ba8b5a-263 <89:; =/47< >/ ?gx @? A6 Bfl-1e8ba8b5a-25d CB D/@AC E.=>D Fghygiene GF H+,EG Igsyntax-violation JI KI Lf-source expression failed to match any pattern Mg %%on-error N&& Og%%type Pg getter-type Qgfree-id Rgquote Sgm-1e8ba8b5a-274 TS- UT Vfl-1e8ba8b5a-276 WV X/@UW Y.>X Z+RYG [QZ \[& ]&&\\ ^gs _ggetter `gerr a0^_` bT... cfl-1e8ba8b5a-279 dfl-1e8ba8b5a-27a efl-1e8ba8b5a-27b ffl-1e8ba8b5a-27c gcdef h/abg i.h>X j+MiG k+OiG lg%%index mg getter-index ngm-1e8ba8b5a-281 on- po qfl-1e8ba8b5a-283 rq s/@pr t.>s u+RtG vQu wv& x&&ww yo... zfl-1e8ba8b5a-286 {fl-1e8ba8b5a-287 |fl-1e8ba8b5a-288 }fl-1e8ba8b5a-289 ~z{|} /ay~ .>s +MG +lG g%%copier g getter-copier gm-1e8ba8b5a-28e -  fl-1e8ba8b5a-290  /@ .> +RG Q & && ... fl-1e8ba8b5a-293 fl-1e8ba8b5a-294 fl-1e8ba8b5a-295 fl-1e8ba8b5a-296  /a .> +MG +G g_ geach N )  g identifier? g datum->syntax g symbol-append g% g syntax->datum g -procedure ggenerate-temporaries &' gbegin g proc-name gargs  .. fl-1e8ba8b5a-2ba fl-1e8ba8b5a-2bb  / gkey gvalue 123 ..... fl-1e8ba8b5a-2ad fl-1e8ba8b5a-2ae fl-1e8ba8b5a-2af fl-1e8ba8b5a-2b0 fl-1e8ba8b5a-2b1  / gmake-procedure-name  . fl-1e8ba8b5a-29d  / . fl-1e8ba8b5a-29c  /@ .>>>>  +G gdefine +G g define-syntax +G glambda +G +?G  g syntax-case +G +MG gappend   gmap   +G +`G  +^G  gsyntax +G +G +RG ga +G g... +G  +IG fWrong number of arguments +G  +G  gdisplay f#< grecord-type-name grecord-type-descriptor f  f:  gwrite grecord-type-fields f> gdefault-record-printer gthrow gwrong-type-arg fWrong type argument: ~S gthrow-bad-struct g%% g -set-fields gmake-copier-id g %%set-fields & & ' &  gevery glist gfor-each gfind gfree-identifier=? funknown getter  g struct-ref  gt-1e8ba8b5a-32b     gm-1e8ba8b5a-32c   -   fl-1e8ba8b5a-32f  /  gindex _ fl-1e8ba8b5a-329 fl-1e8ba8b5a-32a  / glookup  fl-1e8ba8b5a-2fe  / g copier-name g getter+exprs   fl-1e8ba8b5a-2f8 !fl-1e8ba8b5a-2f9 " ! #/" $g type-name %g getter-id &gcheck? 'gexpr ($%&^_' )...... *fl-1e8ba8b5a-2ec +fl-1e8ba8b5a-2ed ,fl-1e8ba8b5a-2ee -fl-1e8ba8b5a-2ef .fl-1e8ba8b5a-2f0 /fl-1e8ba8b5a-2f1 0*+,-./ 1/()0 2fl-1e8ba8b5a-2dc 32 4/@3 5.>>#1>4  6+ 5G 7gfilter 8glength 9fduplicate getter :giota ;g make-struct gm-1e8ba8b5a-320 ?>- @? Afl-1e8ba8b5a-324 BA C/=@B D.>C#1>4 E+;DG F+ DG Gghere Hg unsafe-expr IH Jfl-1e8ba8b5a-317 KJ L/IK M.>L#1>4 N+GMG Ogif Pgt-1e8ba8b5a-319 QP Rgm-1e8ba8b5a-31a SR- TS Ufl-1e8ba8b5a-31d VU W/QTV X.>W>L#1>4  Y+OXG Zgeq? [+ZXG \g struct-vtable ]+\XG ^+XG _+RXG `g%define-record-type a&( b&a c&b d&c ed f&& g&f hg if invalid record definition syntax jgboolean? kfexpected type name lfinvalid constructor spec mfexpected predicate name n&&& ofinvalid field spec pgstring-concatenate qg make-list rfpr sfpw tgmemq uf!unknown field in constructor spec vgassq-ref w&&' xgt-1e8ba8b5a-38d ygt-1e8ba8b5a-38c zgt-1e8ba8b5a-38b {xyz |gm-1e8ba8b5a-38e }|- ~}}} fl-1e8ba8b5a-392 fl-1e8ba8b5a-393 fl-1e8ba8b5a-394  /{~ g ctor-args  fl-1e8ba8b5a-37a  / gctor gfield  fl-1e8ba8b5a-376 fl-1e8ba8b5a-377  / gform gconstructor-spec g field-names $ .... fl-1e8ba8b5a-36b fl-1e8ba8b5a-36c fl-1e8ba8b5a-36d fl-1e8ba8b5a-36e  / g record-layout gfunctional-setters gsetters gcopier ggetters g constructor ggetter-identifiers gfield-identifiers  ........ fl-1e8ba8b5a-343 fl-1e8ba8b5a-341 fl-1e8ba8b5a-33f fl-1e8ba8b5a-33d fl-1e8ba8b5a-33b fl-1e8ba8b5a-339 fl-1e8ba8b5a-337 fl-1e8ba8b5a-335  / fl-1e8ba8b5a-334  /@ .>>>>>  +!G +;G + G g copier-id  fl-1e8ba8b5a-476  / g ctor-name  fl-1e8ba8b5a-46e  /  fl-1e8ba8b5a-46c  / glayout  fl-1e8ba8b5a-46a  / g immutable?  fl-1e8ba8b5a-468  / g field-count  fl-1e8ba8b5a-466  / g getter-ids  fl-1e8ba8b5a-463  / g field-ids  fl-1e8ba8b5a-460  / gpredicate-name g field-spec $ fl-1e8ba8b5a-453 fl-1e8ba8b5a-454 fl-1e8ba8b5a-455 fl-1e8ba8b5a-456 fl-1e8ba8b5a-457 fl-1e8ba8b5a-458  /) .>>>>>>>>>>> +GG gmake-struct-layout &&&&&&& gt-1e8ba8b5a-3a5 gt-1e8ba8b5a-3a6 gt-1e8ba8b5a-3a7 gt-1e8ba8b5a-3a8 gt-1e8ba8b5a-3a9 gt-1e8ba8b5a-3aa gt-1e8ba8b5a-3ab  gm-1e8ba8b5a-3ac -  fl-1e8ba8b5a-3b0 fl-1e8ba8b5a-3b1 fl-1e8ba8b5a-3b2 fl-1e8ba8b5a-3b3 fl-1e8ba8b5a-3b4 fl-1e8ba8b5a-3b5 fl-1e8ba8b5a-3b6  / fl-1e8ba8b5a-3a3 fl-1e8ba8b5a-3a4  / $ ... fl-1e8ba8b5a-39e fl-1e8ba8b5a-39f fl-1e8ba8b5a-3a0    /   .>>>>>    +, G  +O G +l G + G +^ G  +O G +Z G +\ G  +  G + G +R G gdefine-syntax-rule gt-1e8ba8b5a-3c4 gt-1e8ba8b5a-3c6 gt-1e8ba8b5a-3c5  gm-1e8ba8b5a-3c7 -   !fl-1e8ba8b5a-3cb "fl-1e8ba8b5a-3cc #fl-1e8ba8b5a-3cd $!"# %/ $ &fl-1e8ba8b5a-3c1 'fl-1e8ba8b5a-3c2 (fl-1e8ba8b5a-3c3 )&'( */) +.>%>>>*  ,++G -+&+G .+^+G /+_+G 0+'+G 1/0 2++G 3-.12 4++G 5g filter-map 6gt-1e8ba8b5a-405 76 8gm-1e8ba8b5a-406 98- :9 ;fl-1e8ba8b5a-409 <; =/7:< >gsetter ?1_> @fl-1e8ba8b5a-3ff Afl-1e8ba8b5a-400 Bfl-1e8ba8b5a-401 C@AB D/?C E Ffl-1e8ba8b5a-3f6 Gfl-1e8ba8b5a-3f7 HFG I/EH Jg field-specs KJ Lfl-1e8ba8b5a-3f2 Mfl-1e8ba8b5a-3f3 NLM O/KN P.>=D>I>O  Q+!PG R+^PG Sgval T+SPG URT V+PG WT Xgt-1e8ba8b5a-3e6 Ygt-1e8ba8b5a-3e7 ZXY [gm-1e8ba8b5a-3e8 \[- ]\\ ^fl-1e8ba8b5a-3ec _fl-1e8ba8b5a-3ed `^_ a/Z]` bfl-1e8ba8b5a-3e0 cfl-1e8ba8b5a-3e1 dfl-1e8ba8b5a-3e2 ebcd f/?e gfl-1e8ba8b5a-3d7 hfl-1e8ba8b5a-3d8 igh j/Ei k$J lfl-1e8ba8b5a-3d3 mfl-1e8ba8b5a-3d4 nlm o/kn p.>af>j>o  q+!pG r+^pG s+SpG trs u+OpG v+ZpG w+\pG xwr yg struct-set! z+ypG {s |+pG }+RpG ~&&&&'&' 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  / .>>>>>>>>>>>> +G +G glet +G grtd +G gmake-struct/no-tail +G grecord-type-vtable +G +RG +G gset-struct-vtable-name! +G +yG g+ +G + G gvtable-offset-user +G   +!G gobj +G  gand +G gstruct? +G  +ZG +\G  gpred gfields 01 gm-1e8ba8b5a-4a3 - .... fl-1e8ba8b5a-4a8 fl-1e8ba8b5a-4a9 fl-1e8ba8b5a-4aa fl-1e8ba8b5a-4ab fl-1e8ba8b5a-4ac  /  fl-1e8ba8b5a-4a5  /@ .> +`G +G +GC5h<]4   54>"G4i4i5>"G4 !"%*Hhf]C^gdummy  gname  gformals   gbody      CKLh(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-9.scm J   " g macro-typeg syntax-rulesgpatternsgnamegformalsg...gbodyg...C5!R4 M"%Nh>]C6gdummy  gerr     CKLh(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-9.scm R   " g macro-typeg syntax-rulesgpatternsgerrC5MROR4 P"%]jkha]CYgdummy  gs  ggetter   gerr      CKLh(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-9.scm V   " g macro-typeg syntax-rulesgpatternsgsgquoteggettergquotegerrC5PRlR4 m"%xha]CYgdummy  gs  ggetter   gerr      CKLh(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-9.scm \   " g macro-typeg syntax-rulesgpatternsgsgquoteggettergquotegerrC5mRR4 "%ha]CYgdummy  gs  ggetter   gerr      CKLh(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-9.scm b   " g macro-typeg syntax-rulesgpatternsgsgquoteggettergquotegerrC5R4 ,"%KLh]6gkey  gvalue  gname   gformals   gbody   gfilenamefsrfi/srfi-9.scm  o    C%h(X]CPgtmp-1e8ba8b5a-2c8  $gtmp-1e8ba8b5a-2c7  $  $ ChxC]LLLL4 4  LL5  LLL  5C;g proc-name  xgargs  x  x CKL hX]4445554545$ O@  6gkey  Rgvalue  Rgname   Rgformals   Rgbody   Rgtmp  # Rgtmp  . Rgfilenamefsrfi/srfi-9.scm  i   j  j $ j '  k $  j   i   q ! # p   R Ch@b] 45" 6$4?$@""Zgx  9gtmp 9gfilenamefsrfi/srfi-9.scm g   9 C5,R h]4>"G44455>"G"l("w4>"G4>"G4>"G4>"G"4455 " 6gs  gp  gfields  8 goff  8 gfilenamefsrfi/srfi-9.scm           % ,  8  >  C  G  N  W  \  c  l  p  w        )   "  gnamegdefault-record-printerCRh]6gs  gwho  gfilenamefsrfi/srfi-9.scm   #      gnamegthrow-bad-structCRh]44556g type-name  gfilenamefsrfi/srfi-9.scm   $        gnamegmake-copier-idCR4 "%KLh]6g type-name  g getter-id  gcheck?   gs   ggetter   gexpr   gfilenamefsrfi/srfi-9.scm   Chd]L6\g getter-id  gfilenamefsrfi/srfi-9.scm  !  CIh(] 4OL5$CLL6~gid  'gt  'gfilenamefsrfi/srfi-9.scm      ! & '   ' C67hg]L6_gg+e  gfilenamefsrfi/srfi-9.scm  2   C8I9hP]L4OL545 $C $CLL6ggetter  Kgindex  Kg default-expr  Kgresults   Kgkey  $ Kgfilenamefsrfi/srfi-9.scm # %      $ <  E " K   K C:8%'EFh7]LC/gt-1e8ba8b5a-31f     CKLNY[]^_h]&4455454LO>"G4LO4 4 5554  5  $4 O ?" 45 45$/45  CCg type-name  g getter-id  gcheck?   gs   ggetter   gexpr   g copier-name   g getter+exprs   gtmp  Z gtmp e gtmp  gtmp  gfilenamefsrfi/srfi-9.scm    )      ;  M # P ) X # Z  Z      Ch@c] 45" 6$4?$ O@""[gx  >gtmp >gfilenamefsrfi/srfi-9.scm   > C5R4 `"%ehI%fhj]6bgmacro  gargs  gfilenamefsrfi/srfi-9.scm  O    CKLih8] 45$ 4?" 456g immutable?  3gform  3grest   3gtmp  -gfilenamefsrfi/srfi-9.scm / P  3 M   3 CKLjI%fhj]6bgmacro  gargs  gfilenamefsrfi/srfi-9.scm   /   CKLk(hj]6bgmacro  gargs  gfilenamefsrfi/srfi-9.scm   /   Clhi]6agctor  gargs  gfilenamefsrfi/srfi-9.scm    Ch>]C6gctor  gargs     Chj]6bgmacro  gargs  gfilenamefsrfi/srfi-9.scm   /   Cm%NhA]C9gfield  ggetter     CnhU]CMgfield  ggetter  gsetter      CIfhj]6bgmacro  gargs  gfilenamefsrfi/srfi-9.scm   /   CKLo hh]45$@45$@4L5$ 4?" 4  L5 L6gspec  cgtmp cgtmp  " cgtmp  ; [gfilenamefsrfi/srfi-9.scm &  ] * * c    c Ch@]4455$'45$"4445$ 4?" 4 5 5$4 5"8445$ 4 ?" 4 5 5"($4?$ 4?""""$^45$"4445$ 4?" 4 55$ O6CCCCg immutable?  ;gform  ;g type-name   ;gconstructor-spec   ;gpredicate-name   ;g field-spec   ;gt   ]gtmp  2 Rgtmp  j gtmp  | gt  "gtmp   gfilenamefsrfi/srfi-9.scm                  '  T  Z  a  q  " !   $  $    %   &  3 &   ; C%Nh@]C8gname  ggetter     CnhT]CLgname  ggetter  gsetter      CKLh@}]45$@45$@6ug field-spec  9gtmp 9gtmp  " 9gfilenamefsrfi/srfi-9.scm   9 C%Nh@]C8gname  ggetter     CnhT]CLgname  ggetter  gsetter      CKLh@}]45$@45$@6ug field-spec  9gtmp 9gtmp  " 9gfilenamefsrfi/srfi-9.scm   9 C8pqrs%(h>]C6gctor  gargs     CKLhj]6bgctor  gfield  gfilenamefsrfi/srfi-9.scm   CtI%fhj]6bgmacro  gargs  gfilenamefsrfi/srfi-9.scm  +   CKLu hh]454L5$"?44L5$ 4?" 4L5 L>"GCgfield  hgname hgt   bgtmp  , Lgfilenamefsrfi/srfi-9.scm   - ! '  # ! ' N ( W ' g #  h Cvh_]L6Wgname  gfilenamefsrfi/srfi-9.scm $ &  C%whq]Cigt-1e8ba8b5a-38d  gt-1e8ba8b5a-38c  gt-1e8ba8b5a-38b      CKL hP]4LLO5LL4OL545$@6gctor  Kgfield  Kg ctor-args   Kgtmp  ) Kgtmp  4 Kgfilenamefsrfi/srfi-9.scm      )   K C%   hP]     Cgt-1e8ba8b5a-3a5  Jgt-1e8ba8b5a-3a6  Jgt-1e8ba8b5a-3a7   Jgt-1e8ba8b5a-3a8   Jgt-1e8ba8b5a-3a9   Jgt-1e8ba8b5a-3aa   Jgt-1e8ba8b5a-3ab   J  J CKLh8]LLL45$@6ggetter  5gindex  5gtmp   5gtmp   5gfilenamefsrfi/srfi-9.scm    5 C:n,34hq]Cigt-1e8ba8b5a-3c4  gt-1e8ba8b5a-3c6  gt-1e8ba8b5a-3c5      C5%Nh@]C8gname  ggetter     CnQUVRWh T]LCLgname  ggetter  gsetter      CKLh@]45$@45$ LO@6g field-spec  >gindex  >gtmp  >gtmp  " >gfilenamefsrfi/srfi-9.scm    > C%Nh@]C8gname  ggetter     Cn%Nqtuvxzr{|} h8T]L  LCLgt-1e8ba8b5a-3e6  4gt-1e8ba8b5a-3e7  4  4 CKLh0]LL45$ O@6gname  0ggetter  0gsetter   0gtmp  0gtmp   0gfilenamefsrfi/srfi-9.scm   0 CKLh@]45$@45$ LO@6g field-spec  @gindex  @gtmp  @gtmp  " @gfilenamefsrfi/srfi-9.scm   @ C~h]LL L    LL45Cgt-1e8ba8b5a-47e  gt-1e8ba8b5a-478  gt-1e8ba8b5a-479   gt-1e8ba8b5a-47a   gt-1e8ba8b5a-47d   gt-1e8ba8b5a-47c   gt-1e8ba8b5a-47b      Ch]V45454545 44 $" 55 45 4  5  $ 4  ?" 4 5  45 4  5"4 5"3$)4?$4 O?""""44 55 4 O44555 4 5$ 4?" 4 5 $4 O44555"4O445554 5$ O@ 6g immutable?  gform  g type-name   gconstructor-spec   gpredicate-name   g field-spec   g field-ids  g getter-ids   g field-count   g immutable? ( glayout D g field-names O gtmp Z zg ctor-name z g copier-id gtmp  gtmp   =gtmp   :gtmp  ~ gtmp   gfilenamefsrfi/srfi-9.scm   ,     ,   .   ,  " /  ( ,  +   .   8   :  ! @  & B   D   D ,  G 1  O ,  } 4  ,  ;  ; 4 ;         C I  D   P   S   [   ]   b  n   q   y   {  ~ 5 *   C hPt]45" 45$@6$4?$@""lgx  Pgtmp Pgtmp   1gfilenamefsrfi/srfi-9.scm   P C5`R4 "%ch(w]Cogdummy  #gname  #gctor   #gpred   #gfields   #  # CKLh(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-9.scm S   " g macro-typeg syntax-rulesgpatternsgnamegctorgpredgfieldsg...C5RCgm  ,gfilenamefsrfi/srfi-9.scm  = - B 2 B  : B & ? B  T  Z Z ` N 0    < C6