GOOF----LE-8-2.0>u]4h6:] gguile  gdefine-module*   gsrfi gsrfi-37  gfilenameS fsrfi/srfi-37.scm gimportsS gsrfi-9      gexportsS goption g option-names goption-required-arg? goption-optional-arg? goption-processor g args-fold  gset-current-module   gcond-expand-provide gcurrent-module  gsrfi-37:option g%option-procedure gmake-syntax-transformer !  "  #gmacro $g $sc-dispatch %$ &$ 'g_ (gany )'(((( *g syntax-object +glambda ,gm-46961e511b-153 -gtop .,- /gribcage 0gt-46961e511b-14f 1gt-46961e511b-150 2gt-46961e511b-151 3gt-46961e511b-152 40123 5.... 6fl-46961e511b-158 7fl-46961e511b-159 8fl-46961e511b-15a 9fl-46961e511b-15b :6789 ;/45: </ =gx >= ?. @fl-46961e511b-155 A@ B/>?A Cgshift Dg proc-name Egargs FDE G- HGG Ifl-1e8ba8b5a-2ba Jfl-1e8ba8b5a-2bb KIJ L/FHK Mgkey Ngvalue Ogname Pgformals Qgbody RMNOPQ SGGGGG Tfl-1e8ba8b5a-2ad Ufl-1e8ba8b5a-2ae Vfl-1e8ba8b5a-2af Wfl-1e8ba8b5a-2b0 Xfl-1e8ba8b5a-2b1 YTUVWX Z/RSY [gmake-procedure-name \[ ]G ^fl-1e8ba8b5a-29d _^ `/\]_ aG bfl-1e8ba8b5a-29c cb d/>ac e.;<BC<<<<LZ`d  fghygiene gf  h*+eg ignames jG;<B kf l*ijk mg required-arg? n*mjk og optional-arg? p*ojk qg processor r*qjk slnpr tg make-struct ugm-46961e511b-14d vu- wgt-1e8ba8b5a-38d xgt-1e8ba8b5a-38c ygt-1e8ba8b5a-38b zwxy {gm-1e8ba8b5a-38e |{- }||| ~fl-1e8ba8b5a-392 fl-1e8ba8b5a-393 fl-1e8ba8b5a-394 ~ /z} g ctor-args  fl-1e8ba8b5a-37a  /a gctor gfield  fl-1e8ba8b5a-376 fl-1e8ba8b5a-377  /H gform g type-name gconstructor-spec g field-names  GGGG 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  GGGGGGGG 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  />a v;<BC<<<<< *tg *jk * g lnpr hs geach-any ' gsyntax-violation     fWrong number of arguments g identifier?     G<B *k   f-source expression failed to match any pattern grecord-type-vtable     gpwpwpwpw gdefault-record-printer     imoq gset-struct-vtable-name!     gvtable-offset-user     g%option?-procedure goption? '( gm-46961e511b-166 - gt-46961e511b-165   fl-46961e511b-16b  / fl-46961e511b-168  /> <C<<<<LZ`d  *+g 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  / g copier-id  fl-1e8ba8b5a-476  /a g ctor-name  fl-1e8ba8b5a-46e  /a  fl-1e8ba8b5a-46c  /a glayout   fl-1e8ba8b5a-46a     /a   g immutable?    fl-1e8ba8b5a-468  / a g field-count  fl-1e8ba8b5a-466  /a g getter-ids  fl-1e8ba8b5a-463  /a g field-ids  fl-1e8ba8b5a-460  /a  gpredicate-name !g field-spec "  ! #GGGGGG $fl-1e8ba8b5a-453 %fl-1e8ba8b5a-454 &fl-1e8ba8b5a-455 'fl-1e8ba8b5a-456 (fl-1e8ba8b5a-457 )fl-1e8ba8b5a-458 *$%&'() +/"#* ,v<C<<<<<<<< <<<<+ -*,g .- /gand 0*/,g 1gstruct? 2*1,g 32- 4geq? 5*4,g 6g struct-vtable 7*6,g 87- 9G< :*9k ;58: <03; =.< >G< ?*>k @gthrow-bad-struct A @ B @ Cg%option-names-procedure Dgfree-id Eg %%on-error Fgm-46961e511b-172 GF- HG Ifl-46961e511b-174 JI K/>HJ LG<KC<<<<LZ`d  M*ELg NDM ON( Pg%%type Qgt-1e8ba8b5a-3a5 Rgt-1e8ba8b5a-3a6 Sgt-1e8ba8b5a-3a7 Tgt-1e8ba8b5a-3a8 Ugt-1e8ba8b5a-3a9 Vgt-1e8ba8b5a-3aa Wgt-1e8ba8b5a-3ab XQRSTUVW Ygm-1e8ba8b5a-3ac ZY- [ZZZZZZZ \fl-1e8ba8b5a-3b0 ]fl-1e8ba8b5a-3b1 ^fl-1e8ba8b5a-3b2 _fl-1e8ba8b5a-3b3 `fl-1e8ba8b5a-3b4 afl-1e8ba8b5a-3b5 bfl-1e8ba8b5a-3b6 c\]^_`ab d/X[c eggetter fgindex gef hfl-1e8ba8b5a-3a3 ifl-1e8ba8b5a-3a4 jhi k/gHj l mGGG nfl-1e8ba8b5a-39e ofl-1e8ba8b5a-39f pfl-1e8ba8b5a-3a0 qnop r/lmq sv<KC<d<<<k<r t*Psg uDt v'Ou( wgck xgerr ygs zxy {GG |fl-46961e511b-177 }fl-46961e511b-178 ~|} /z{~ G<KC<<<<LZ`d  *wg gquote *g G<K *k   g%%index *sg D 'O( fl-46961e511b-17c fl-46961e511b-17d  /z{ G<KC<<<<LZ`d  *wg *g <K * k   g%%copier *sg D 'O( fl-46961e511b-181 fl-46961e511b-182  /z{ G<KC<<<<LZ`d  *wg *g g%%srfi-37:option-set-fields G<K *k   gt-46961e511b-171  fl-46961e511b-186  /H G<KC<<<<LZ`d  *+g v<KC<d<<<k<r *yg  gif *g *4g *6g  G<K *k  g struct-ref *g <K * k  *@g *g *k     G<K *Ck g%option-required-arg?-procedure gm-46961e511b-18d -  fl-46961e511b-18f  /> <C<<<<LZ`d  *Eg D ( v<C<d<<<k<r *Pg D '(  fl-46961e511b-192 fl-46961e511b-193  /z <C<<<<LZ`d  *wg *g G< *k   *g D '( fl-46961e511b-197 fl-46961e511b-198  /z <C<<<<LZ`d  *wg *g < * k   *g D '( fl-46961e511b-19c fl-46961e511b-19d  /z <C<<<<LZ`d  *wg *g G< *k   gt-46961e511b-18c  fl-46961e511b-1a1  / <C<<<<LZ`d  *+g v<C<d<<<k<r *yg  *g  *4g  *6g     G<  * k     *g < * k  *@g *g * k     G< *k g%option-optional-arg?-procedure gm-46961e511b-1a8 -   fl-46961e511b-1aa !  "/>! #<"C<<<<LZ`d  $*E#g %D$ &%( 'v<"C<d<<<k<r (*P'g )D( *'&)( + ,fl-46961e511b-1ad -fl-46961e511b-1ae .,- //z+. 0/<"C<<<<LZ`d  1*w0g 2*0g 3G/<" 4*3k 524 65 7*'g 8D7 9'&8( :fl-46961e511b-1b2 ;fl-46961e511b-1b3 <:; =/z+< >=<"C<<<<LZ`d  ?*w>g @*>g A=<" B* Ak C@B DC E*'g FDE G'&F( Hfl-46961e511b-1b7 Ifl-46961e511b-1b8 JHI K/z+J LK<"C<<<<LZ`d  M*wLg N*Lg OGK<" P*Ok QNP RQ Sgt-46961e511b-1a7 TS Ufl-46961e511b-1bc VU W/TV XW<"C<<<<LZ`d  Y*+Xg ZvW<"C<d<<<k<r [*yZg \[ ]*Zg ^*4Zg _*6Zg `_[ aGW<" b*ak c^`b d*Zg eW<" f* ek gd[f h*@Zg i*Zg j*ak kij lh[k m]cgl nY\m oG<" p*ok qg%option-processor-procedure rgm-46961e511b-1c3 sr- ts ufl-46961e511b-1c5 vu w/>tv xs<wC<<<<LZ`d  y*Exg zDy {z( |v<wC<d<<<k<r }*P|g ~D} '{~( ss fl-46961e511b-1c8 fl-46961e511b-1c9  /z s<wC<<<<LZ`d  *wg *g G<w *k   *|g D '{( fl-46961e511b-1cd fl-46961e511b-1ce  /z s<wC<<<<LZ`d  *wg *g <w * k   *|g D '{( fl-46961e511b-1d2 fl-46961e511b-1d3  /z s<wC<<<<LZ`d  *wg *g G<w *k   gt-46961e511b-1c2  fl-46961e511b-1d7  /t s<wC<<<<LZ`d  *+g v<wC<d<<<k<r *yg  *g *4g *6g  G<w *k  *g <w * k  *@g *g *k     G<w *qk geach ((  (Ȍ (Ɍ (ʌ g %%set-fields gdummy gcheck? gexpr ye gm-46961e511b-1de - vvvv fl-46961e511b-1e3 fl-46961e511b-1e4 fl-46961e511b-1e5 fl-46961e511b-1e6 fl-46961e511b-1e7  /  fl-46961e511b-1e0  /> 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  /lm v<C<<<<  *g G< *k *k *k *k *k  gmap   glist g scm-error g program-error f args-fold fDuplicate option name `~A~A' gchar? f-- gerror-duplicate-option gmake-hash-table glength gfor-each ghash-create-handle! gbuild-options-lookup  gappend  g string-length  g substring  g string-ref  ghash-ref g misc-error f%Missing required argument after `-~A' gchar=? g string-index f&Missing required argument after `--~A' f Extraneous argument after `--~A'C5h(7]4   54>"G4i4i5>"Gh]Cgnames  g required-arg?  g optional-arg?   g processor   gfilenamefsrfi/srfi-37.scm E    gnameg%option-procedureCR4"#&)h]Cgt-46961e511b-14f  gt-46961e511b-150  gt-46961e511b-151   gt-46961e511b-152      ChS]L6Kga  gfilenamefsrfi/srfi-37.scm  E   C'hC]L6;gfilenamefsrfi/srfi-37.scm  E    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-37.scm E   n C5Rͨ4>"G ӖiRhs]$CCkgobj  gfilenamefsrfi/srfi-37.scm E    gnameg%option?-procedureCR4"#&=h8]C0gt-46961e511b-165    ChS]L6Kga  gfilenamefsrfi/srfi-37.scm  E   C'hC]L6;gfilenamefsrfi/srfi-37.scm  E    C?h]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-37.scm E   n C5RBhv]& C6ngs  gfilenamefsrfi/srfi-37.scm E    gnameg%option-names-procedureCCR4"#&vh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch8]C0gt-46961e511b-171    ChS]L6Kga  gfilenamefsrfi/srfi-37.scm  E   C'hC]L6;gfilenamefsrfi/srfi-37.scm  E    Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-37.scm E   C5RBh~]& C6vgs  gfilenamefsrfi/srfi-37.scm E    gnameg%option-required-arg?-procedureCR4"#&h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch8]C0gt-46961e511b-18c    ChS]L6Kga  gfilenamefsrfi/srfi-37.scm  E   C'hC]L6;gfilenamefsrfi/srfi-37.scm  E    Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-37.scm E   C5RBh ~]& C6vgs  gfilenamefsrfi/srfi-37.scm E    gnameg%option-optional-arg?-procedureCR4"#&*16h:]C2gerr  gs    C9?Dh:]C2gerr  gs    CGMRh:]C2gerr  gs    Cnh8]C0gt-46961e511b-1a7    ChS]L6Kga  gfilenamefsrfi/srfi-37.scm  E   C'hC]L6;gfilenamefsrfi/srfi-37.scm  E    Cph]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-37.scm E   C5RBh z]& C6rgs  gfilenamefsrfi/srfi-37.scm E    gnameg%option-processor-procedureCqR4"#&h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch8]C0gt-46961e511b-1c2    ChS]L6Kga  gfilenamefsrfi/srfi-37.scm  E   C'hC]L6;gfilenamefsrfi/srfi-37.scm  E    Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-37.scm E   C5R4"#&h v]45Cngdummy  gcheck?  gs   ggetter   gexpr      Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-37.scm E   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5Rh(]45$-"6g option-name  %gfilenamefsrfi/srfi-37.scm M  N  N  O P   P   P / " P % N   % gnamegerror-duplicate-optionCRh(] 4L5$6LCgname  #gassoc #gfilenamefsrfi/srfi-37.scm [   \ \   ^   ^   _ 1  _  ! `   # CBh0e]LO& " 456]gopt  )gfilenamefsrfi/srfi-37.scm Z   a  ) [   ) Ch0k] 4 4554O>"GCcgoptions  /glookup  /gfilenamefsrfi/srfi-37.scm T  X   X &  X !  X   X   Y   / gnamegbuild-options-lookupg documentationfAnswer an `equal?' Guile hash-table that maps OPTIONS' names back to the containing options, signalling an error if a name is encountered more than once.CRB hS]L4LM5@Kgfilenamefsrfi/srfi-37.scm q   r )  r    Chq]&  " 45& " 45$ 45"9&  " 45$ 45"4>"G44LO>5"=NCigopt  gname  g req-arg-proc   g opt-arg-proc   g no-arg-proc   g procedure  gparams  gfilenamefsrfi/srfi-37.scm     $  ?  @ ) K  g  h ) q   p  p   gnameginvoke-option-processorC  hP{] 4M5$4M5MNCM$MMNCM$MNCCsgposition  Ngresult  'gresult 3 >gfilenamefsrfi/srfi-37.scm      -        &  1    "  $  *  + /  2  3 8  ;  A E  H  J   N gnamegshort-option-argumentC   h(]4LL5$CL6gt (gargs  (gfilenamefsrfi/srfi-37.scm        m  ! m  # ! ( m   ( ChM]LL6Egfilenamefsrfi/srfi-37.scm      ChD]C<gfilenamefsrfi/srfi-37.scm    CB hS]L4LM5@Kgfilenamefsrfi/srfi-37.scm q   r )  r    C h]4M5$ MNL64M54L5$~4LLOLO>"G& " 4 5$"&  " 4 5$C"ML4 4 LLO>5"=N"gposition  gopt-name $ g option-here  / gt  { gnames  gparams  gfilenamefsrfi/srfi-37.scm    &          ' $  $ '  / 7 8  d {   %  * "  p  p  !   gnameg short-optionC   hS]L4LM5@Kgfilenamefsrfi/srfi-37.scm q   r )  r    C hS]L4LM5@Kgfilenamefsrfi/srfi-37.scm q   r )  r    Ch(] 44LLO>5"=NCxgarg  (gparams  (gfilenamefsrfi/srfi-37.scm w   w  p  & p   ( C   h(]L$ LL6L6gargs  %gfilenamefsrfi/srfi-37.scm     &      m   m   % m   % C h_]L$ LL6CWgfilenamefsrfi/srfi-37.scm     6  '   Ch ]L$L6Cgargs gfilenamefsrfi/srfi-37.scm      m   m     m    C hS]L4LM5@Kgfilenamefsrfi/srfi-37.scm q   r )  r    ChA]8M(MEM4-4 55$" 45$044LLO>5"=NMN"@4-4 55$ 45$'MN4LLOM>"GN"M"4=54  $"4554 L5$54L O O O>"hG"a$ "L44LLO>5"=N" ".MN"4L >"G"P9garg  gt ! :gparams C egarg g start-pos  gindex  gopt-name  g option-here  gnames  D Tgparams  Z  gfilenamefsrfi/srfi-37.scm          (  !  !  0  7  > C  F p  b p  h  j  o  t  }     )  w  y  y       , 6    6  9 # ?  D  D  Z  ] p  y p           :   gnamegnext-argChJ-13 HH45OOOO QQ Q Q  6Bgargs  |goptions  |gunrecognized-option-proc   |g operand-proc   |gseeds   |glookup   |ginvoke-option-processor  H |gshort-option-argument  H |g short-option  H |gnext-arg H | gfilenamefsrfi/srfi-37.scm e  j   j  |  |  gnameg args-foldg documentationfAnswer the results of folding SEEDS as multiple values against the program-arguments in ARGS, as decided by the OPTIONS' `option-processor's, UNRECOGNIZED-OPTION-PROC, and OPERAND-PROC.CRCgm  ,grtd  >gfilenamefsrfi/srfi-37.scm  * - 0 2 0  : 0 & ? 0 , E  M ! T 7% e   7' C6