GOOF----LE-8-2.0,]m4h] gguile€ € gdefine-module*€ € € gice-9€ gcalling€ € gfilenameS€ fice-9/calling.scm€ gexportsS€ gwith-excursion-function€ gwith-getter-and-setter€ g with-getter€ g!with-delegating-getter-and-setter€ g with-excursion-getter-and-setter€ g$with-configuration-getter-and-setter€ g/with-delegating-configuration-getter-and-setter€ g(let-with-configuration-getter-and-setter€   € gset-current-module€ € € gmake-syntax-transformer€ € € gmacro€ g $sc-dispatch€ € € g_€ gany€ ! Œ€ "g syntax->datum€ #"€ $"€ %g datum->syntax€ &%€ '%€ (gexcursion-function-syntax€ )gsyntax-violation€ *)€ +)€ ,f-source expression failed to match any pattern€ -ggetter-and-setter-syntax€ .g#delegating-getter-and-setter-syntax€ /gmap€ 0ggensym€ 1ftemp€ 2fswap€ 3fthunk€ 4glambda€ 5gletrec€ 6€ 7gbegin€ 8gset!€ 9g dynamic-wind€ :fargs€ ;fan-arg€ gsymbol->keyword€ ?glet€ @gif€ Agnull?€ Bgquote€ CB€ Dgall-vals€ Egvals€ FED€ Ggkws€ HAE€ Ig quasiquote€ Jgunquote€ Kgcar€ LKG€ MJL€ NKE€ OJN€ Pgunquote-splicing€ Qgcdr€ RQE€ SQG€ TRS€ Ugcase€ Vgappend€ Wgelse€ Xgthrow€ Ygbad-get-option€ ZBY€ [gor€ \gcadr€ ]gbad-set-option€ ^B]€ _gcddr€ `gappend!€ ag simpler-get€ bg simpler-set€ cg body-proc€ dabc€ eabc€ f4de€ ggkw€ hg€ iglist€ jgnew-val€ kgj€ lj€C5hθ#p]4   54>"G4 !$'(hx]45Cpgvars  gproc  gfilenamefice-9/calling.scmŒ / ŒŒ  0 ŒŒ  0 ŒŒ   Che] 45L4?6]gargs  gv gfilenamefice-9/calling.scmŒ  / ŒŒ   C+,h(c] 45$ O@6[gy  'gtmp 'gfilenamefice-9/calling.scmŒ / ŒŒ  ' C5 R4 !$'-hx]45ŒCpgvars  gproc  gfilenamefice-9/calling.scmŒ \ ŒŒ  ] ŒŒ ] ŒŒ  Che] 45L4?6]gargs  gv gfilenamefice-9/calling.scmŒ  \ ŒŒ   C+,h(c] 45$ O@6[gy  'gtmp 'gfilenamefice-9/calling.scmŒ \ ŒŒ  ' C5 R4!$'-h€]45Cxgvars  gproc  gfilenamefice-9/calling.scmŒ d ŒŒ  e ŒŒ e ŒŒ  e ŒŒ   Che] 45L4?6]gargs  gv gfilenamefice-9/calling.scmŒ  d ŒŒ   C+,h(c] 45$ O@6[gy  'gtmp 'gfilenamefice-9/calling.scmŒ d ŒŒ  ' C5R4!$'.h¬]45ŒC€gvars  g get-delegate  g set-delegate   gproc   gfilenamefice-9/calling.scmŒ u ŒŒ  v ŒŒ  v ŒŒ   Che] 45L4?6]gargs  gv gfilenamefice-9/calling.scmŒ  u ŒŒ   C+,h(c] 45$ O@6[gy  'gtmp 'gfilenamefice-9/calling.scmŒ u ŒŒ  ' C5R4!$'(-h„]4545ŒŒC|gvars  gproc  gfilenamefice-9/calling.scmŒ ƒ ŒŒ  „ ŒŒ … ŒŒ  „ ŒŒ   Chf] 45L4?6^gargs  gv gfilenamefice-9/calling.scmŒ  ƒ ŒŒ   C+,h(d] 45$ O@6\gy  'gtmp 'gfilenamefice-9/calling.scmŒ ƒ ŒŒ  ' C5R/012345678h(n]LLCfgn  #gsn  #gfilenamefice-9/calling.scmŒ  $ŒŒ  ‘ &ŒŒ  # Chn]Cfgsn  gn  gfilenamefice-9/calling.scmŒ • ŒŒ • 'ŒŒ  C9 hpw]!45454545Œ4 O5ŒŒ4 5ŒŒ Cogvars  ogsaved-value-names og tmp-var-name  og swap-fn-name  og thunk-name  ogfilenamefice-9/calling.scmŒ ˆ ŒŒ  ‰ ŒŒ Š ŒŒ  Š ŒŒ  Š ŒŒ  ‹ ŒŒ  ‹ ŒŒ  ‹ ŒŒ  Œ ŒŒ  Œ ŒŒ Œ ŒŒ ‰ ŒŒ *  ŒŒ <  ŒŒ L  ŒŒ Q • ŒŒ \  ŒŒ  o gnamegexcursion-function-syntaxŒC(R0:;<=/>4?@ACDBFGHIMOPT/UVhn]Cfgkw  gv  gfilenamefice-9/calling.scmŒ ° (ŒŒ  ° 7ŒŒ  CWXZ[QK\8hn]LCfgkw  gv  gfilenamefice-9/calling.scmŒ Ό #ŒŒ  Ό 2ŒŒ   C^_%hx])4545454545   ( "P     Œ4455ŒŒ     !44"O5#5ŒŒ$Cgvars  ug args-name ' ug an-arg-name  ' ug new-val-name  ' ug loop-name  ' ugkws  ' ugfilenamefice-9/calling.scmŒ œ ŒŒ   ŒŒ   ŒŒ  ŒŒ ž ŒŒ  ž ŒŒ  ž ŒŒ  Ÿ ŒŒ  Ÿ ŒŒ  Ÿ ŒŒ    ŒŒ    ŒŒ    ŒŒ  ‘ ŒŒ '  ŒŒ 3 ’ ŒŒ R ₯ ŒŒ T ¦ ŒŒ Z § ŒŒ ͺ ’ ŒŒ Ά ― "ŒŒ Ή ° #ŒŒ Ε ± #ŒŒ Φ ― "ŒŒ Χ ’ ŒŒ λ ΄ ŒŒ 2 » ŒŒ 5 Ό ŒŒ F ½ ŒŒ W » ŒŒ X ΄ ŒŒ t ’ ŒŒ!  u gnameggetter-and-setter-syntaxŒC-R0:;<=/>4?@A`CDBFGHIMOPT/UVhn]Cfgkw  gv  gfilenamefice-9/calling.scmŒ Φ (ŒŒ  Φ 7ŒŒ  CWK[Q\8hn]LCfgkw  gv  gfilenamefice-9/calling.scmŒ β #ŒŒ  β 2ŒŒ   C_#hˆZ]+4545454545    ( "P    Œ4455ŒŒ     44!O55ŒŒ"CRgvars  ‚g get-delegate  ‚g set-delegate   ‚g args-name  ' ‚g an-arg-name  ' ‚g new-val-name  ' ‚g loop-name  ' ‚gkws  ' ‚gfilenamefice-9/calling.scmŒ ΐ ŒŒ  Α ŒŒ  Α ŒŒ Α ŒŒ Β ŒŒ  Β ŒŒ  Β ŒŒ  Γ ŒŒ  Γ ŒŒ  Γ ŒŒ  Δ ŒŒ  Δ ŒŒ  Δ ŒŒ  Ε ŒŒ ' Α ŒŒ 3 Ζ ŒŒ T Κ ŒŒ V Λ ŒŒ \ Μ ŒŒ ― Ζ ŒŒ ΐ Υ "ŒŒ Γ Φ #ŒŒ Ο Χ #ŒŒ γ Υ "ŒŒ δ Ζ ŒŒ ψ Ϊ ŒŒ ? α ŒŒ B β ŒŒ S γ ŒŒ d α ŒŒ e Ϊ ŒŒ  Ζ ŒŒ!  ‚ gnameg#delegating-getter-and-setter-syntaxŒC.R4!$'f4hUg/>ih8½] 45Ž$ "C΅gv  1gt  -gfilenamefice-9/calling.scmŒ  ŒŒ   ŒŒ   0ŒŒ  ŒŒ  ŒŒ   ŒŒ   ŒŒ $  0ŒŒ '  8ŒŒ *  0ŒŒ 0  ŒŒ  1 Ck>l8h8Ζ] 45ŽŽ$ Œ" ŒŒCΎgv  3gt  /gfilenamefice-9/calling.scmŒ  ŒŒ   ŒŒ   0ŒŒ  ŒŒ  ŒŒ   ŒŒ   ŒŒ   BŒŒ %  0ŒŒ (  8ŒŒ *  0ŒŒ 2  ŒŒ  3 C h8š]45ŒŒ4 5ŒŒC’gvars-etc  6gproc  6gfilenamefice-9/calling.scmŒ  ŒŒ   ŒŒ  ŒŒ   ŒŒ #  ŒŒ ,  ŒŒ  6 Chf] 45L4?6^gargs  gv gfilenamefice-9/calling.scmŒ   ŒŒ   C+,h(d] 45$ O@6\gy  'gtmp 'gfilenamefice-9/calling.scmŒ  ŒŒ  ' C5R4!$'f4hUg`/>ih8½] 45Ž$ "C΅gv  1gt  -gfilenamefice-9/calling.scmŒ  ŒŒ   (ŒŒ   9ŒŒ  (ŒŒ  $ŒŒ  ! )ŒŒ   'ŒŒ $ " 8ŒŒ ' " @ŒŒ * " 8ŒŒ 0  $ŒŒ  1 CWk>l8h8Ζ] 45ŽŽ$ Œ" ŒŒCΎgv  3gt  /gfilenamefice-9/calling.scmŒ ( ŒŒ  ( (ŒŒ  ( 9ŒŒ ( (ŒŒ ( $ŒŒ  * )ŒŒ  ) 'ŒŒ  * JŒŒ % + 8ŒŒ ( + @ŒŒ * + 8ŒŒ 2 ( $ŒŒ  3 C h`]445 Œ5ŒŒ 44 5  Œ5ŒŒCόgvars-etc  Zg delegate-get  Zg delegate-set   Zgproc   Zgfilenamefice-9/calling.scmŒ  ŒŒ   ŒŒ  ŒŒ   ŒŒ  $ ŒŒ '  ŒŒ (  ŒŒ 5 ( ŒŒ 8 ( ŒŒ B - ŒŒ O ( ŒŒ P  ŒŒ  Z Chf] 45L4?6^gargs  gv gfilenamefice-9/calling.scmŒ   ŒŒ   C+,h(d] 45$ O@6\gy  'gtmp 'gfilenamefice-9/calling.scmŒ  ŒŒ  ' C5R4!$'?/hp]ŽChgv  gfilenamefice-9/calling.scmŒ C ŒŒ  C ŒŒ  C &ŒŒ C ŒŒ  Chy]ŽŽŽŽŽCqgv  gfilenamefice-9/calling.scmŒ D 1ŒŒ  D @ŒŒ  D IŒŒ D TŒŒ  D =ŒŒ   Ch(š]4545C’gvars-etc  !gproc  !gfilenamefice-9/calling.scmŒ B ŒŒ  C ŒŒ  C ŒŒ  C ŒŒ  D ,ŒŒ  C ŒŒ  ! Chf] 45L4?6^gargs  gv gfilenamefice-9/calling.scmŒ  B ŒŒ   C+,h(d] 45$ O@6\gy  'gtmp 'gfilenamefice-9/calling.scmŒ B ŒŒ  ' C5RChgm  (gfilenamefice-9/calling.scmŒ   ŒŒ ϊ ˆ ŒŒ  œ ŒŒ ] ΐ ŒŒ  #γ C6