GOOF----LE-8-2.05M]†4h7] gguile¤ ¤ gdefine-module*¤ ¤ ¤ gice-9¤ goptargs¤ ¤ gfilenameS¤ fice-9/optargs.scm¤ gimportsS¤ gsystem¤ gbase¤ gpmatch¤   ¤ ¤ ¤ gexportsS¤ g let-optional¤ g let-optional*¤ g let-keywords¤ g let-keywords*¤ gdefine*-public¤ g defmacro*¤ gdefmacro*-public¤ ¤ g re-exportsS¤ glambda*¤ gdefine*¤ ¤ gset-current-module¤ ¤ !¤ "g $sc-dispatch¤ #"¤ $"¤ %greverse¤ &gany¤ '&&¤ ('&Œ¤ )&&Œ¤ *gsyntax-violation¤ +*¤ ,*¤ -f-source expression failed to match any pattern¤ .g identifier?¤ /g syntax-object¤ 0gtop¤ 10¤ 2gribcage¤ 3gv¤ 4grest¤ 534¤ 611¤ 7fl-44375c4e67-1f0¤ 8fl-44375c4e67-1f1¤ 978¤ :2569¤ ;2¤ gvars¤ ?ginits¤ @<=>?¤ A1111¤ Bfl-44375c4e67-1d4¤ Cfl-44375c4e67-1d5¤ Dfl-44375c4e67-1d6¤ Efl-44375c4e67-1d7¤ FBCDE¤ G2@AF¤ H=¤ I1¤ Jfl-44375c4e67-1d3¤ KJ¤ L2HIK¤ M1:;G;L¤ Nghygiene¤ ON¤ P/MO¤ Qg vars&inits¤ Rgmake-syntax-transformer¤ SR¤ TR¤ Ugmacro¤ Vg_¤ Wgeach-any¤ X&WŒ¤ YWXŒ¤ Z&YŒ¤ [VZŒ¤ \glength¤ ]gappend¤ ^ggenerate-temporaries¤ _&&&WW¤ `glet¤ agn¤ bgn+1¤ cgt¤ dgi¤ eab>cd¤ f11111¤ gfl-44375c4e67-210¤ hfl-44375c4e67-211¤ ifl-44375c4e67-212¤ jfl-44375c4e67-213¤ kfl-44375c4e67-214¤ lghijk¤ m2efl¤ n>?¤ ofl-44375c4e67-20b¤ pfl-44375c4e67-20c¤ qop¤ r2n6q¤ sgrest-arg¤ tgbinding¤ ugb0¤ vgb1¤ wstuv¤ xfl-44375c4e67-200¤ yfl-44375c4e67-201¤ zfl-44375c4e67-202¤ {fl-44375c4e67-203¤ |xyz{¤ }2wA|¤ ~gx¤ ~¤ €fl-44375c4e67-1f5¤ €¤ ‚2I¤ ƒ1;m;;r};‚ ¤ „/`ƒO¤ …gmap¤ †…¤ ‡…¤ ˆglambda¤ ‰/ˆƒO¤ Šgapply¤ ‹/ŠƒO¤ Œgor¤ /ŒƒO¤ Žgparse-lambda-case¤ /ŽƒO¤ gquote¤ ‘/ƒO¤ ’/ ƒO¤ “/ƒO¤ ”‘¤ •“”¤ –glist¤ —/–ƒO¤ ˜gerror¤ ™/˜ƒO¤ šfsth¤ ›/šƒO¤ œ&&&W¤ ab>d¤ žfl-44375c4e67-23a¤ Ÿfl-44375c4e67-23b¤  fl-44375c4e67-23c¤ ”fl-44375c4e67-23d¤ ¢žŸ ”¤ £2A¢¤ ¤fl-44375c4e67-235¤ „fl-44375c4e67-236¤ ¦¤„¤ §2n6¦¤ Øfl-44375c4e67-22a¤ ©fl-44375c4e67-22b¤ Ŗfl-44375c4e67-22c¤ «fl-44375c4e67-22d¤ ¬Ø©Ŗ«¤ ­2wA¬¤ ®fl-44375c4e67-21f¤ Æ®¤ °2IƤ ±1;£;;§­;° ¤ ²/Š±O¤ ³/ˆ±O¤ “/Œ±O¤ µ/Ž±O¤ ¶/±O¤ ·/ ±O¤ ø/±O¤ ¹¶¤ ŗø¹¤ »/–±O¤ ¼/˜±O¤ ½/š±O¤ ¾&ZŒ¤ æV¾Œ¤ Ągaok¤ ĮsĄtuv¤ Āfl-44375c4e67-279¤ Ćfl-44375c4e67-27a¤ Äfl-44375c4e67-27b¤ Åfl-44375c4e67-27c¤ Ęfl-44375c4e67-27d¤ ĒĀĆÄÅʤ Č2ĮfĒ¤ Éfl-44375c4e67-245¤ ŹÉ¤ Ė2IŹ¤ Ģ1Č;Ė¤ Ķ/`ĢO¤ Īgr¤ Ļ/ĪĢO¤ Š/ĢO¤ Ńgsymbol->keyword¤ Ņg syntax->datum¤ Ógiota¤ Ō&&&WWWW¤ Õgivars¤ Ögkw¤ ×gidx¤ Ųa>ÕÖ×cd¤ Ł1111111¤ Śfl-44375c4e67-264¤ Ūfl-44375c4e67-265¤ Üfl-44375c4e67-266¤ Żfl-44375c4e67-267¤ Žfl-44375c4e67-268¤ ßfl-44375c4e67-269¤ ąfl-44375c4e67-26a¤ įŚŪÜŻŽßą¤ ā2ŲŁį¤ ćfl-44375c4e67-25f¤ äfl-44375c4e67-260¤ åćä¤ ę2n6å¤ ēfl-44375c4e67-252¤ čfl-44375c4e67-253¤ éfl-44375c4e67-254¤ źfl-44375c4e67-255¤ ėfl-44375c4e67-256¤ ģēčéźė¤ ķ2Įfģ¤ ī1;ā;;ęķ;Ė ¤ ļ/`īO¤ š/ˆīO¤ ń/ŠīO¤ ņ/ŒīO¤ ó/ŽīO¤ ō/īO¤ õ/ īO¤ ö/īO¤ ÷gcons¤ ų/–īO¤ ł/˜īO¤ ś/šīO¤ ūfl-44375c4e67-2b4¤ üfl-44375c4e67-2b5¤ żfl-44375c4e67-2b6¤ žfl-44375c4e67-2b7¤ ’fl-44375c4e67-2b8¤ ūüżž’¤ 2Įf¤ fl-44375c4e67-286¤ ¤ 2I¤ 1;¤ /`O¤ /ĪO¤ /O¤  &&WWW¤  a>Ö×d¤  fl-44375c4e67-2a5¤  fl-44375c4e67-2a6¤  fl-44375c4e67-2a7¤ fl-44375c4e67-2a8¤ fl-44375c4e67-2a9¤    ¤ 2 f¤ fl-44375c4e67-2a0¤ fl-44375c4e67-2a1¤ ¤ 2n6¤ fl-44375c4e67-293¤ fl-44375c4e67-294¤ fl-44375c4e67-295¤ fl-44375c4e67-296¤ fl-44375c4e67-297¤ ¤ 2Įf¤ 1;;;; ¤ /ŠO¤ /ˆO¤  /ŒO¤ !/ŽO¤ "/O¤ #/ O¤ $/O¤ %/–O¤ &/˜O¤ '/šO¤ ()XŒ¤ )V(Œ¤ *g define-public¤ +gid¤ ,gargs¤ -+,uv¤ .fl-44375c4e67-2c4¤ /fl-44375c4e67-2c5¤ 0fl-44375c4e67-2c6¤ 1fl-44375c4e67-2c7¤ 2./01¤ 32-A2¤ 4fl-44375c4e67-2c1¤ 54¤ 62I5¤ 713;6¤ 8/*7O¤ 9/7O¤ :V&&¤ ;gval¤ <+;¤ =fl-44375c4e67-2d2¤ >fl-44375c4e67-2d3¤ ?=>¤ @2<6?¤ A1@;6¤ B/*AO¤ C&XŒ¤ D&CŒ¤ E&DŒ¤ FVEŒ¤ GVDŒ¤ Hg define-macro¤ Ifl-44375c4e67-2f0¤ Jfl-44375c4e67-2f1¤ Kfl-44375c4e67-2f2¤ Lfl-44375c4e67-2f3¤ MIJKL¤ N2-AM¤ Ofl-44375c4e67-2d7¤ PO¤ Q2IP¤ R1N;Q¤ S/HRO¤ T/RO¤ U/RO¤ Vgstring?¤ Wgdoc¤ X+,Wuv¤ Yfl-44375c4e67-2e4¤ Zfl-44375c4e67-2e5¤ [fl-44375c4e67-2e6¤ \fl-44375c4e67-2e7¤ ]fl-44375c4e67-2e8¤ ^YZ[\]¤ _2Xf^¤ `1_;Q¤ a/H`O¤ b/`O¤ cgbegin¤ dgdummy¤ ed+,uv¤ fgm-44375c4e67-2fa¤ gf0¤ hg1111¤ ifl-44375c4e67-2ff¤ jfl-44375c4e67-300¤ kfl-44375c4e67-301¤ lfl-44375c4e67-302¤ mfl-44375c4e67-303¤ nijklm¤ o2ehn¤ pg¤ qfl-44375c4e67-2fc¤ rq¤ s2pr¤ t1o;s¤ u/ctO¤ v/tO¤ wg export-syntax¤ x/wtO¤ yg uninitialized¤ zg*uninitialized*¤ {g make-list¤ |gappend!¤ }gkeyword?¤ ~gassq-ref¤ g list-set!¤ €g scm-error¤ gkeyword-argument-error¤ ‚fUnrecognized keyword¤ ƒfInvalid keyword¤ „g list-copy¤ …funexpected spec¤C5hČ/ƒ]4   5 4!>"G$%hU]4L54L5DMgfilenamefice-9/optargs.scmŒ  Z ŒŒ Z ŒŒ  Z ŒŒ   C(),-.hg]6_gv  grest  gfilenamefice-9/optargs.scmŒ  ] ŒŒ   CPhw]LLŒLŒ6ogv  grest  gfilenamefice-9/optargs.scmŒ ^ ŒŒ  ^ "ŒŒ  ^ ŒŒ   C.hy]6qgv  ginit  grest   gfilenamefice-9/optargs.scmŒ  [ ŒŒ   Ch‰]LLŒLŒ6gv  ginit  grest   gfilenamefice-9/optargs.scmŒ \ ŒŒ  \ "ŒŒ  \ ŒŒ   C h˜Č]45$ O@45"@45" 6$4?$LO@"’’Ó"’’Ļ$4 ?$ LO@"’’œ"’’˜Ągbindings  –gvars  –ginits   –gtmp  –gtmp  ( –gtmp  7 ngfilenamefice-9/optargs.scmŒ W ŒŒ  – gnameglpŒCh ] OQ6˜gbindings  glp gfilenamefice-9/optargs.scmŒ V ŒŒ W ŒŒ  W %ŒŒ  W 1ŒŒ  W ŒŒ   gnameg vars&initsŒCQR4TU$[,-.h‘]6‰grest-arg  gbinding  gb0   gb1   gfilenamefice-9/optargs.scmŒ  c ,ŒŒ   CQ\]^$_„‡‰hZ]LCRgtmp-44375c4e67-21b  gtmp-44375c4e67-21a     C‹‰‘’•—™›hXj]4O5LLŒŒŒ  ŒŒŒŒ ŒL  LCbgn  Ugn+1  Ugvars   Ugt   Ugi   U  U C,- hh ]$4> G4545—454545$O@ 6grest-arg  fgbinding  fgb0   fgb1   fgvars  fginits  fgtmp  ; fgtmp  F fgfilenamefice-9/optargs.scmŒ  d $ŒŒ  d ŒŒ  f ŒŒ  g "ŒŒ # g ŒŒ $ h ŒŒ - h ,ŒŒ / h ŒŒ 0 i "ŒŒ ; f ŒŒ  f Ch@d] 45" 6$4?$@"’’Ü"’’Ų\gx  9gtmp 9gfilenamefice-9/optargs.scmŒ a ŒŒ  9 C5R4TU$[,-.h‘]6‰grest-arg  gbinding  gb0   gb1   gfilenamefice-9/optargs.scmŒ  v ,ŒŒ   CQ\]$œ²³“µ¶·ŗ»‡³h:]LC2gtmp-44375c4e67-243    C¼½ hP[]LLŒŒŒŒŒŒŒ4  O5ŒL  LCSgn  Lgn+1  Lgvars   Lgi   L  L C,- h`]$4> G4545—4545$O@6grest-arg  _gbinding  _gb0   _gb1   _gvars  _ginits  _gtmp  4 _gtmp  ? _gfilenamefice-9/optargs.scmŒ  w $ŒŒ  w ŒŒ  y ŒŒ  z "ŒŒ # z ŒŒ $ { ŒŒ - { ,ŒŒ / { ŒŒ 4 y ŒŒ  _ Ch@d] 45" 6$4?$@"’’Ü"’’Ų\gx  9gtmp 9gfilenamefice-9/optargs.scmŒ t ŒŒ  9 C5R4TU$æĶĻŠh(v]ŒŒŒŒŒCngrest-arg  #gaok  #gbinding   #gb0   #gb1   #  # C,-.h£]6›grest-arg  gaok  gbinding   gb0   gb1   gfilenamefice-9/optargs.scmŒ  – 0ŒŒ   CQ\^…ŃŅÓ$Ōļ‡šhZ]LCRgtmp-44375c4e67-273  gtmp-44375c4e67-272     Cńšņóōõö÷ųłśh`]4O5LLŒŒŒ   L4 5 ŒL LC…gn  _gvars  _givars   _gkw   _gidx   _gt   _gi   _  _ C,- h€M]%4> G454544554455454 5$ O@  6Egrest-arg  ygaok  ygbinding   ygb0   ygb1   ygvars  yginits  ygtmp  L ygtmp  W y gfilenamefice-9/optargs.scmŒ  — $ŒŒ  — ŒŒ  ™ ŒŒ  › ŒŒ % œ #ŒŒ *  (ŒŒ 4 œ #ŒŒ 5 ž $ŒŒ 8 ž *ŒŒ @ ž $ŒŒ A Ÿ "ŒŒ L ™ ŒŒ  y ChPv]45" 45$@6$4?$@"’’Å"’’Įngx  Pgtmp Pgtmp   1gfilenamefice-9/optargs.scmŒ ” ŒŒ  P C5R4TU$æh(v]ŒŒŒŒŒCngrest-arg  #gaok  #gbinding   #gb0   #gb1   #  # C,-.h£]6›grest-arg  gaok  gbinding   gb0   gb1   gfilenamefice-9/optargs.scmŒ  Æ 0ŒŒ   CQ\…ŃŅÓ$  !"#$‡÷%h:]LC2gtmp-44375c4e67-2b2    C&'hXk]LLŒŒŒL4 5 4 O5ŒL  LCcgn  Vgvars  Vgkw   Vgidx   Vgi   V  V C,- hp;]%4> G454455445545$ O@  63grest-arg  kgaok  kgbinding   kgb0   kgb1   kgvars  kginits  kgtmp  > kgtmp  I k gfilenamefice-9/optargs.scmŒ  ° $ŒŒ  ° ŒŒ  ² ŒŒ  “ #ŒŒ # µ (ŒŒ - “ #ŒŒ . ¶ $ŒŒ 1 ¶ *ŒŒ 9 ¶ $ŒŒ > ² ŒŒ  k ChPv]45" 45$@6$4?$@"’’Å"’’Įngx  Pgtmp Pgtmp   1gfilenamefice-9/optargs.scmŒ ­ ŒŒ  P C5R4TU$)89h\]ŒŒŒCTgid  gargs  gb0   gb1      C:,-.hh]6`gid  gval  gfilenamefice-9/optargs.scmŒ   ŒŒ   CBh;]C3gid  gval    C hPv]45$@45" 6$4?$@"’’Ü"’’Ųngx  Pgtmp Pgtmp  " Pgfilenamefice-9/optargs.scmŒ ’ ŒŒ  P C5R4TU$FGSTUh\]ŒŒŒCTgid  gargs  gb0   gb1      C,-VŅh£]456›gid  gargs  gdoc   gb0   gb1   gfilenamefice-9/optargs.scmŒ   *ŒŒ  !ŒŒ  Cabhm]ŒŒŒCegid  gargs  gdoc   gb0   gb1      C hPv]45" 45$@6$4?$@"’’Å"’’Įngx  Pgtmp Pgtmp   1gfilenamefice-9/optargs.scmŒ  ŒŒ  P C5R4TU$Euvxh o]ŒŒŒŒCggdummy  gid  gargs   gb0   gb1      C,-h(¶] 45$@6®gx  "gtmp "gfilenamefice-9/optargs.scmŒ  ŒŒ  " g macro-typeg syntax-rulesŒgpatternsgidgargsgb0gb1g...C5RyzR{z|}~€‚ƒ„˜…hP¤ ]‹ˆ$;Žˆ$"Žˆ$ Žˆ$šŽ   ˆ$×  Ž   ˆ$¾  Ž (¦"m ‘$G$"4 ˜5$ 45"""(CŽ™"’’“"m ‘$"Q(%4?Ž™Ž"’’µŽŽ™Ž"’’“"~$8 ˆ$Ž"[Ž"’’Ā ˆ$-("45$"Cˆ$CC"(6(C&4?"ŽŽ"’’Ä45$Ŗ45$Žˆ$4 5""$.4Ž>"GŽŽ"’’Z"  645$,Žˆ$  $ŽŽ"’’"’’Ą"’’¼"’’øŽ"’žł"(6(C&4?"ŽŽ"’’Ä45$Ŗ45$Žˆ$4 5""$.4Ž>"GŽŽ"’’Z"  645$,Žˆ$  $ŽŽ"’’"’’Ą"’’¼"’’ø$"’žõ 64 5"’ü^  6  6  6  6  6  6  6œ gspec  Lginits  Lgargs   Lgvx   Dgvy   Dgvx  <gvy  <gvx  1 4gvy  1 4gvx B ,gvy B ,gvx S $gvy S $gvx d gvy  d gargs  r ßgprev  r ßgtail  r ßgn  r ßg slots-tail  ” Įgslots  ć Pg slots-tail  ć Pg args-tail  ć Pgn  ć Pginits  ć Pgslots  T Ņg slots-tail  T Ņg args-tail  T Ņginits  T Ņgrest-idx  T Ņgslots  Ö Żg slots-tail  Ö Żg args-tail  Ö Żginits  Ö Żgt  F Čgslots  į ųg slots-tail  į ųg args-tail  į ųginits  į ųgt  Q Ógargs  ’ )gfilenamefice-9/optargs.scmŒ  ŒŒ   ŒŒ r " ŒŒ u $ ŒŒ z # ŒŒ € % ŒŒ ƒ % !ŒŒ „ % ŒŒ ‰ & ŒŒ  & &ŒŒ ” & ŒŒ ” & ŒŒ œ ' ŒŒ  ' ŒŒ Į ' ŒŒ Ē # ŒŒ Š , ŒŒ Ó , #ŒŒ ß , ŒŒ ć - ŒŒ ę / ŒŒ ė . ŒŒ  0 ŒŒ  . ŒŒ  2 ŒŒ  2 %ŒŒ  2 ŒŒ  2 ŒŒ  3 ŒŒ  3 %ŒŒ  3 )ŒŒ  3 0ŒŒ . 3 ŒŒ 3 5 ŒŒ 4 5 ŒŒ 9 6 ŒŒ < 6 %ŒŒ ? 6 5ŒŒ B 6 <ŒŒ P 6 ŒŒ T 7 ŒŒ Z 8 ŒŒ _ ; ŒŒ b < ŒŒ f < ŒŒ k = $ŒŒ { = ŒŒ € > ŒŒ  > 1ŒŒ ’ > ŒŒ • ? ŒŒ ™ 8 ŒŒ Ÿ B ŒŒ   B ŒŒ „ B -ŒŒ Ŗ B 7ŒŒ ¬ B -ŒŒ ° B ŒŒ Ä C ŒŒ É D ŒŒ Ķ 8 ŒŒ Ö H ŒŒ Ü I ŒŒ ā K ŒŒ č N ŒŒ ī N ŒŒ ń O (ŒŒ ō O /ŒŒ ų O (ŒŒ ł O ŒŒ  P &ŒŒ  P 7ŒŒ  P ;ŒŒ  P ŒŒ  Q ŒŒ  Q ŒŒ  Q ŒŒ  I ŒŒ  S ŒŒ $ S ŒŒ & S ŒŒ * S ŒŒ - T ŒŒ . T ŒŒ 2 S ŒŒ 3 U ŒŒ : U #ŒŒ < U ŒŒ F I ŒŒ O W ŒŒ X W !ŒŒ ^ W ŒŒ m X 0ŒŒ | X ŒŒ „ ] ŒŒ ‡ ] 4ŒŒ ˆ ^ ŒŒ Œ ] ŒŒ Œ I ŒŒ  Y ŒŒ ’ Y ŒŒ ” Y ŒŒ ˜ I ŒŒ › Z ŒŒ œ Z ŒŒ   Y ŒŒ ­ \ +ŒŒ ¼ \ ŒŒ Ļ R +ŒŒ Ż R ŒŒ į _ ŒŒ ē ` ŒŒ ķ b ŒŒ ó e ŒŒ ł e ŒŒ ü f (ŒŒ ’ f /ŒŒ  f (ŒŒ  f ŒŒ  g ŒŒ  g +ŒŒ  g /ŒŒ  g ŒŒ  h ŒŒ # h ŒŒ % h ŒŒ ) ` ŒŒ * n ŒŒ / n ŒŒ 1 n ŒŒ 5 n ŒŒ 8 o ŒŒ 9 o ŒŒ = n ŒŒ > p ŒŒ E p #ŒŒ G p ŒŒ Q ` ŒŒ Z r ŒŒ c r !ŒŒ i r ŒŒ x s $ŒŒ ‡ s ŒŒ  x ŒŒ ’ x 4ŒŒ “ y ŒŒ — x ŒŒ — ` ŒŒ ˜ t ŒŒ  t ŒŒ Ÿ t ŒŒ £ ` ŒŒ ¦ u ŒŒ § u ŒŒ « t ŒŒ ø w ŒŒ Ē w ŒŒ Ł i ŒŒ Ž k #ŒŒ ģ k ŒŒ š l ŒŒ ó l 3ŒŒ ō m ŒŒ ų l ŒŒ ł z ŒŒ ’ z ŒŒ  { ŒŒ  | ŒŒ  | ŒŒ  | ŒŒ $ | ŒŒ ( | ŒŒ , | ŒŒ 0 | ŒŒ 4 | ŒŒ 8 | ŒŒ < | ŒŒ @ | ŒŒ D | ŒŒ H | ŒŒ L | ŒŒ¶  L gnamegparse-lambda-caseŒCŽRC{gm  0gfilenamefice-9/optargs.scmŒ  ; ŒŒ [ V ŒŒ Ž  ŒŒ ‘  ŒŒ •  ŒŒ /æ  ŒŒ  /Į C6