GOOF----LE-8-2.0]4hY] gguile  gdefine-module*   gice-9 g getopt-long  gfilenameS fice-9/getopt-long.scm gimportsS g common-list   gselectS g remove-if-not    gsrfi gsrfi-9   gmatch   gregex   goptargs    gexportsS !g option-ref "! #gset-current-module $# %# &g make-fluid 'fguile (g %program-name )g program-name *gformat +gcurrent-error-port ,f~a:  -gapply .gnewline /gexit 0g fatal-error 1g option-spec 2g%%make-option-spec-procedure 3gmake-syntax-transformer 43 53 6g%make-option-spec 7gmacro 8g $sc-dispatch 98 :8 ;g_ g syntax-object ?glambda @gm-70fb8ec09b0a817-48c Agtop B@A Cgribcage Dgt-70fb8ec09b0a817-487 Egt-70fb8ec09b0a817-488 Fgt-70fb8ec09b0a817-489 Ggt-70fb8ec09b0a817-48a Hgt-70fb8ec09b0a817-48b IDEFGH JBBBBB Kfl-70fb8ec09b0a817-491 Lfl-70fb8ec09b0a817-492 Mfl-70fb8ec09b0a817-493 Nfl-70fb8ec09b0a817-494 Ofl-70fb8ec09b0a817-495 PKLMNO QCIJP RC Sgx TS UB Vfl-70fb8ec09b0a817-48e WV XCTUW Ygshift Zg proc-name [gargs \Z[ ]A ^]] _fl-1e8ba8b5a-60 `fl-1e8ba8b5a-61 a_` bC\^a cgkey dgvalue egname fgformals ggbody hcdefg i]]]]] jfl-1e8ba8b5a-53 kfl-1e8ba8b5a-54 lfl-1e8ba8b5a-55 mfl-1e8ba8b5a-56 nfl-1e8ba8b5a-57 ojklmn pChio qgmake-procedure-name rq s] tfl-1e8ba8b5a-43 ut vCrsu w] xfl-1e8ba8b5a-42 yx zCTwy {BQRXYRRRRbpvz  |ghygiene }| ~>?{} ]QRX | >e g required? > goption-spec->single-char > g predicate > g value-policy >  g make-struct gm-70fb8ec09b0a817-485 A gt-1e8ba8b5a-133 gt-1e8ba8b5a-132 gt-1e8ba8b5a-131  gm-1e8ba8b5a-134 A  fl-1e8ba8b5a-138 fl-1e8ba8b5a-139 fl-1e8ba8b5a-13a  C g ctor-args  fl-1e8ba8b5a-120  Cw gctor gfield  fl-1e8ba8b5a-11c fl-1e8ba8b5a-11d  C^ gform g type-name gconstructor-spec g field-names  ]]]] fl-1e8ba8b5a-111 fl-1e8ba8b5a-112 fl-1e8ba8b5a-113 fl-1e8ba8b5a-114  C g record-layout gfunctional-setters gsetters gcopier ggetters g constructor ggetter-identifiers gfield-identifiers  ]]]]]]]] fl-1e8ba8b5a-e9 fl-1e8ba8b5a-e7 fl-1e8ba8b5a-e5 fl-1e8ba8b5a-e3 fl-1e8ba8b5a-e1 fl-1e8ba8b5a-df fl-1e8ba8b5a-dd fl-1e8ba8b5a-db  C fl-1e8ba8b5a-da  CTw QRXYRRRRR >} >1 > }  ~ geach-any ;ό gsyntax-violation   fWrong number of arguments g identifier?   ]RX >2   f-source expression failed to match any pattern grecord-type-vtable   g pwpwpwpwpw gdefault-record-printer   e gset-struct-vtable-name!   gvtable-offset-user   g%option-spec?-procedure g option-spec? ;< gm-70fb8ec09b0a817-4a1 A gt-70fb8ec09b0a817-4a0   fl-70fb8ec09b0a817-4a6  C fl-70fb8ec09b0a817-4a3  CT RYRRRRbpvz  >?} gobj gt-1e8ba8b5a-224 gt-1e8ba8b5a-21e gt-1e8ba8b5a-21f gt-1e8ba8b5a-220 gt-1e8ba8b5a-223 gt-1e8ba8b5a-222 gt-1e8ba8b5a-221  gm-1e8ba8b5a-225 A  fl-1e8ba8b5a-229 fl-1e8ba8b5a-22a  fl-1e8ba8b5a-22b  fl-1e8ba8b5a-22c  fl-1e8ba8b5a-22d  fl-1e8ba8b5a-22e  fl-1e8ba8b5a-22f       C g copier-id  fl-1e8ba8b5a-21c  Cw g ctor-name  fl-1e8ba8b5a-214  Cw  fl-1e8ba8b5a-212  Cw glayout   fl-1e8ba8b5a-210 !  "Cw! #g immutable? $# %fl-1e8ba8b5a-20e &% 'C$w& (g field-count )( *fl-1e8ba8b5a-20c +* ,C)w+ -g getter-ids .- /fl-1e8ba8b5a-209 0/ 1C.w0 2g field-ids 32 4fl-1e8ba8b5a-206 54 6C3w5 7gpredicate-name 8g field-spec 9#78 :]]]]]] ;fl-1e8ba8b5a-1f9 fl-1e8ba8b5a-1fc ?fl-1e8ba8b5a-1fd @fl-1e8ba8b5a-1fe A;<=>?@ BC9:A CRYRRRRRRRR"R'R,R1R6B D>C} ED Fgand G>FC} Hgstruct? I>HC} JID Kgeq? L>KC} Mg struct-vtable N>MC} OND P]R Q>1P RLOQ SGJR TES U]R V>U Wgthrow-bad-struct XW YW Zgoption-spec->name [g%option-spec->name-procedure \gfree-id ]g %%on-error ^gm-70fb8ec09b0a817-4ad _^A `_ afl-70fb8ec09b0a817-4af ba cCT`b d_RcYRRRRbpvz  e>]d} f\e gf< hg%%type igt-1e8ba8b5a-14b jgt-1e8ba8b5a-14c kgt-1e8ba8b5a-14d lgt-1e8ba8b5a-14e mgt-1e8ba8b5a-14f ngt-1e8ba8b5a-150 ogt-1e8ba8b5a-151 pijklmno qgm-1e8ba8b5a-152 rqA srrrrrrr tfl-1e8ba8b5a-156 ufl-1e8ba8b5a-157 vfl-1e8ba8b5a-158 wfl-1e8ba8b5a-159 xfl-1e8ba8b5a-15a yfl-1e8ba8b5a-15b zfl-1e8ba8b5a-15c {tuvwxyz |Cps{ }ggetter ~gindex }~ fl-1e8ba8b5a-149 fl-1e8ba8b5a-14a  C^ - ]]] fl-1e8ba8b5a-144 fl-1e8ba8b5a-145 fl-1e8ba8b5a-146  C RcYR|RRRR >h} \ ;g< gck gerr gs  __ fl-70fb8ec09b0a817-4b2 fl-70fb8ec09b0a817-4b3  C _RcYRRRRbpvz  >} gquote >} ]Rc >1   g%%index >} \ ;g< fl-70fb8ec09b0a817-4b7 fl-70fb8ec09b0a817-4b8  C _RcYRRRRbpvz  >} >} Rc >    g%%copier >} \ ;g< fl-70fb8ec09b0a817-4bc fl-70fb8ec09b0a817-4bd  C _RcYRRRRbpvz  >} >} g%%option-spec-set-fields ]Rc >   gt-70fb8ec09b0a817-4ac  fl-70fb8ec09b0a817-4c1  C` _RcYRRRRbpvz  >?} RcYR|RRRR >}  gif >} >K} >M}  ]Rc >1  g struct-ref >} Rc >   >W} >} >Z     ]Rc >[ goption-spec->required? g!%option-spec->required?-procedure gm-70fb8ec09b0a817-4c8 A  fl-70fb8ec09b0a817-4ca  CT RYRRRRbpvz  >]} \ < RYR|RRRR >h} \ ;<  fl-70fb8ec09b0a817-4cd fl-70fb8ec09b0a817-4ce  C RYRRRRbpvz  >} >} ]R >1   >} \ ;< fl-70fb8ec09b0a817-4d2 fl-70fb8ec09b0a817-4d3  C RYRRRRbpvz  >} >} R >     >}  \   ; <  fl-70fb8ec09b0a817-4d7  fl-70fb8ec09b0a817-4d8    C RYRRRRbpvz  >} >} ]R >   gt-70fb8ec09b0a817-4c7  fl-70fb8ec09b0a817-4dc  C RYRRRRbpvz  >?} RYR|RRRR >}   !>} ">K} #>M} $# %]R &>1% '"$& (>} )R *> ) +(* ,>W} ->} .>% /-. 0,/ 1!'+0 2 1 3]R 4>3 5g#%option-spec->single-char-procedure 6gm-70fb8ec09b0a817-4e3 76A 87 9fl-70fb8ec09b0a817-4e5 :9 ;CT8: <7R;YRRRRbpvz  =>]<} >\= ?>< @R;YR|RRRR A>h@} B\A C;?B< D77 Efl-70fb8ec09b0a817-4e8 Ffl-70fb8ec09b0a817-4e9 GEF HCDG I7HR;YRRRRbpvz  J>I} K>I} L]HR; M>1L NKM ON P>@} Q\P R;?Q< Sfl-70fb8ec09b0a817-4ed Tfl-70fb8ec09b0a817-4ee UST VCDU W7VR;YRRRRbpvz  X>W} Y>W} ZVR; [> Z \Y[ ]\ ^>@} _\^ `;?_< afl-70fb8ec09b0a817-4f2 bfl-70fb8ec09b0a817-4f3 cab dCDc e7dR;YRRRRbpvz  f>e} g>e} h]dR; i>h jgi kj lgt-70fb8ec09b0a817-4e2 ml nfl-70fb8ec09b0a817-4f7 on pCm8o q7pR;YRRRRbpvz  r>?q} spR;YR|RRRR t>s} ut v>s} w>Ks} x>Ms} yxt z]pR; {>1z |wy{ }>s} ~pR; > ~ }t >Ws} >s} >z  t v| ru ]R; >5 goption-spec->predicate g!%option-spec->predicate-procedure gm-70fb8ec09b0a817-4fe A  fl-70fb8ec09b0a817-500  CT RYRRRRbpvz  >]} \ < RYR|RRRR >h} \ ;<  fl-70fb8ec09b0a817-503 fl-70fb8ec09b0a817-504  C RYRRRRbpvz  >} >} ]R >1   >} \ ;< fl-70fb8ec09b0a817-508 fl-70fb8ec09b0a817-509  C RYRRRRbpvz  >} >} R >    >} \ ;< fl-70fb8ec09b0a817-50d fl-70fb8ec09b0a817-50e  C RYRRRRbpvz  >} >} ]R >   gt-70fb8ec09b0a817-4fd  fl-70fb8ec09b0a817-512  C RYRRRRbpvz  >?} RYR|RRRR >}  >} >K} >M}  ]R >1  >} R >   >W} >} >     ]R > goption-spec->value-policy g$%option-spec->value-policy-procedure gm-70fb8ec09b0a817-519 A  fl-70fb8ec09b0a817-51b  CT RYRRRRbpvz  >]} \ < RYR|RRRR >h} \ ;<  fl-70fb8ec09b0a817-51e fl-70fb8ec09b0a817-51f  C RYRRRRbpvz  >} >} ]R >1   >} \ ;< fl-70fb8ec09b0a817-523 fl-70fb8ec09b0a817-524  C RYRRRRbpvz  >} >} R >      >}  \   ; <  fl-70fb8ec09b0a817-528 fl-70fb8ec09b0a817-529   C RYRRRRbpvz  >} >} ]R >   gt-70fb8ec09b0a817-518  fl-70fb8ec09b0a817-52d  C RYRRRRbpvz  >?} RYR|RRRR  >} !  ">} #>K} $>M} %$  &]R '>1& (#%' )>} *R +> * ,) + ->W} .>} />& 0./ 1- 0 2"(,1 3!2 4]R 5>4 6geach 7<< 867 9<8 :<9 ;<: gcheck? ?gexpr @=>}? Agm-70fb8ec09b0a817-534 BAA CB Dfl-70fb8ec09b0a817-539 Efl-70fb8ec09b0a817-53a Ffl-70fb8ec09b0a817-53b Gfl-70fb8ec09b0a817-53c Hfl-70fb8ec09b0a817-53d IDEFGH JC@CI KB Lfl-70fb8ec09b0a817-536 ML NCTKM Ogt-1e8ba8b5a-16a Pgt-1e8ba8b5a-16c Qgt-1e8ba8b5a-16b ROPQ Sgm-1e8ba8b5a-16d TSA UTTT Vfl-1e8ba8b5a-171 Wfl-1e8ba8b5a-172 Xfl-1e8ba8b5a-173 YVWX ZCRUY [fl-1e8ba8b5a-167 \fl-1e8ba8b5a-168 ]fl-1e8ba8b5a-169 ^[\] _C^ `JRNYRZRRR_  a><`} b]JRN c>1b d>Zb e>b f>b g>b h>b idefgh jgmap kj lj mglist ngset-option-spec-name! og %set-option-spec-name!-procedure p;<< qgm-70fb8ec09b0a817-548 rqA sgt-70fb8ec09b0a817-546 tgt-70fb8ec09b0a817-547 ust vrr wfl-70fb8ec09b0a817-54d xfl-70fb8ec09b0a817-54e ywx zCuvy {r |fl-70fb8ec09b0a817-54a }| ~CT{} rzR~YRRRRbpvz  >?} gt-1e8ba8b5a-18c gt-1e8ba8b5a-18d  gm-1e8ba8b5a-18e A  fl-1e8ba8b5a-192 fl-1e8ba8b5a-193  C gsetter e} fl-1e8ba8b5a-186 fl-1e8ba8b5a-187 fl-1e8ba8b5a-188  C 8~ fl-1e8ba8b5a-17d fl-1e8ba8b5a-17e  C^ g field-specs  fl-1e8ba8b5a-179 fl-1e8ba8b5a-17a  C^ zR~YRRR >} gval >}  >} >K} >M}  ]zR~ >1  g struct-set! >} zR~ >   >W} >} >n     ]R~ >o gset-option-spec-required?! g%%set-option-spec-required?!-procedure gm-70fb8ec09b0a817-558 A gt-70fb8ec09b0a817-556 gt-70fb8ec09b0a817-557   fl-70fb8ec09b0a817-55d fl-70fb8ec09b0a817-55e  C  fl-70fb8ec09b0a817-55a  CT RYRRRRbpvz  >?} RYRRR >} >}  >} >K} >M}  ]R >1  >} R >   >W} >} >     ]R > gset-option-spec-single-char! g'%set-option-spec-single-char!-procedure gm-70fb8ec09b0a817-568 A gt-70fb8ec09b0a817-566 gt-70fb8ec09b0a817-567   fl-70fb8ec09b0a817-56d fl-70fb8ec09b0a817-56e  C  fl-70fb8ec09b0a817-56a  CT RYRRRRbpvz  >?} RYRRR >} >}  >} >K} >M}  ]R >1  >} R >   >W} >} >      ]R  >   gset-option-spec-predicate!  g%%set-option-spec-predicate!-procedure  gm-70fb8ec09b0a817-578  A gt-70fb8ec09b0a817-576 gt-70fb8ec09b0a817-577   fl-70fb8ec09b0a817-57d fl-70fb8ec09b0a817-57e  C  fl-70fb8ec09b0a817-57a  CT RYRRRRbpvz  >?} RYRRR >} >}   !>} ">K} #>M} $# %]R &>1% '"$& (>} )R *> ) +(* ,>W} ->} .> % /-. 0,/ 1!'+0 2 1 3]R 4> 3 5gset-option-spec-value-policy! 6g(%set-option-spec-value-policy!-procedure 7gm-70fb8ec09b0a817-588 87A 9gt-70fb8ec09b0a817-586 :gt-70fb8ec09b0a817-587 ;9: <88 =fl-70fb8ec09b0a817-58d >fl-70fb8ec09b0a817-58e ?=> @C;<? A8 Bfl-70fb8ec09b0a817-58a CB DCTAC E8@RDYRRRRbpvz  F>?E} G@RDYRRR H>G} I>G} JHI K>G} L>KG} M>MG} NMH O]@RD P>1O QLNP R>G} S@RD T> S URHTI V>WG} W>G} X>5O YWX ZVHY [KQUZ \FJ[ ]]RD ^>6] _gmake-option-spec `gsymbol->string agfor-each bgerror cf$invalid getopt-long option property: db eb ffno matching pattern gfoption predicate failed: --~a hg single-char igchar? jf#`single-char' value must be a char! kgparse-option-spec lgreverse mgstring=? nf-- ogsplit-arg-list pg make-regexp qf^-([a-zA-Z]+)(.*) rg short-opt-rx sf ^--([^=]+)$ tglong-opt-no-value-rx uf^--([^=]+)=(.*) vglong-opt-with-value-rx wg regexp-exec xglooks-like-an-option yg make-string zgoptional {f,option must be specified with argument: --~a |gmatch:substring }g assoc-ref ~fno such option: -~a gappend g string-append f- g string->list f glength fno such option: --~a f&option does not support argument: --~a gprocess-options gstop-at-first-non-optionS    gassq-ref foption must be specified: --~a gstring->symbolC5hP[^]4    "54%>"G4&i'5(R(ha][CYgfilenamefice-9/getopt-long.scm    gnameg program-nameC)R*+,)-./h`-1344545>"G445>"G445>"G 6gfmt Zgargs Zgfilenamefice-9/getopt-long.scm     &   &  +  8  A  D M  Z  Z gnameg fatal-errorC0R1h]Cgname  g required?  goption-spec->single-char   g predicate   g value-policy   gfilenamefice-9/getopt-long.scm    gnameg%%make-option-spec-procedureC2R4567:=h]Cgt-70fb8ec09b0a817-487  gt-70fb8ec09b0a817-488  gt-70fb8ec09b0a817-489   gt-70fb8ec09b0a817-48a   gt-70fb8ec09b0a817-48b      C6hY]L6Qga  gfilenamefice-9/getopt-long.scm    C;hI]L6Agfilenamefice-9/getopt-long.scm     Ch]C   C hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/getopt-long.scm   n C56R141>"G 2i1R1h~]$CCvgobj  gfilenamefice-9/getopt-long.scm    gnameg%option-spec?-procedureCR457:Th=]C5gt-70fb8ec09b0a817-4a0    ChY]L6Qga  gfilenamefice-9/getopt-long.scm    C;hI]L6Agfilenamefice-9/getopt-long.scm     CVh]C   C hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/getopt-long.scm   n C5R1YZh]& C6ygs  gfilenamefice-9/getopt-long.scm    gnameg%option-spec->name-procedureC[R45Z7:h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch=]C5gt-70fb8ec09b0a817-4ac    CZhY]L6Qga  gfilenamefice-9/getopt-long.scm    C;hI]L6Agfilenamefice-9/getopt-long.scm     Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefice-9/getopt-long.scm   C5ZR1Yh]& C6~gs  gfilenamefice-9/getopt-long.scm    gnameg!%option-spec->required?-procedureCR457:h:]C2gerr  gs    Ch:]C2gerr  gs    C h:]C2gerr  gs    C2h=]C5gt-70fb8ec09b0a817-4c7    ChY]L6Qga  gfilenamefice-9/getopt-long.scm    C;hI]L6Agfilenamefice-9/getopt-long.scm     C4h]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefice-9/getopt-long.scm   C5R1Yh ]& C6gs  gfilenamefice-9/getopt-long.scm    gnameg#%option-spec->single-char-procedureC5R457:CJOh:]C2gerr  gs    CRX]h:]C2gerr  gs    C`fkh:]C2gerr  gs    Ch=]C5gt-70fb8ec09b0a817-4e2    ChY]L6Qga  gfilenamefice-9/getopt-long.scm    C;hI]L6Agfilenamefice-9/getopt-long.scm     Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefice-9/getopt-long.scm   C5R1Yh ]& C6~gs  gfilenamefice-9/getopt-long.scm    gnameg!%option-spec->predicate-procedureCR457:h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch=]C5gt-70fb8ec09b0a817-4fd    ChY]L6Qga  gfilenamefice-9/getopt-long.scm    C;hI]L6Agfilenamefice-9/getopt-long.scm     Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefice-9/getopt-long.scm   C5R1Yh ]& C6gs  gfilenamefice-9/getopt-long.scm    gnameg$%option-spec->value-policy-procedureCR457:h:]C2gerr  gs    C h:]C2gerr  gs    C h:]C2gerr  gs    C3h=]C5gt-70fb8ec09b0a817-518    ChY]L6Qga  gfilenamefice-9/getopt-long.scm    C;hI]L6Agfilenamefice-9/getopt-long.scm     C5h]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefice-9/getopt-long.scm   C5R457:;acilmh v]45Cngdummy  gcheck?  gs   ggetter   gexpr      Ch(] 45$@6gx  "gtmp "gfilenamefice-9/getopt-long.scm   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5R1Ynh ]& C6gs  gval  gfilenamefice-9/getopt-long.scm    gnameg %set-option-spec-name!-procedureCoR45n7:ph`]CXgt-70fb8ec09b0a817-546  gt-70fb8ec09b0a817-547    CnhY]L6Qga  gfilenamefice-9/getopt-long.scm    C;hI]L6Agfilenamefice-9/getopt-long.scm     Ch]C   C hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/getopt-long.scm   n C5nR1Yh ]& C6gs  gval  gfilenamefice-9/getopt-long.scm    gnameg%%set-option-spec-required?!-procedureCR457:ph`]CXgt-70fb8ec09b0a817-556  gt-70fb8ec09b0a817-557    ChY]L6Qga  gfilenamefice-9/getopt-long.scm    C;hI]L6Agfilenamefice-9/getopt-long.scm     Ch]C   C hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/getopt-long.scm   n C5R1Yh ]& C6gs  gval  gfilenamefice-9/getopt-long.scm    gnameg'%set-option-spec-single-char!-procedureCR457:ph`]CXgt-70fb8ec09b0a817-566  gt-70fb8ec09b0a817-567    ChY]L6Qga  gfilenamefice-9/getopt-long.scm    C;hI]L6Agfilenamefice-9/getopt-long.scm     C h]C   C hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/getopt-long.scm   n C5R1Y h ]& C6gs  gval  gfilenamefice-9/getopt-long.scm    gnameg%%set-option-spec-predicate!-procedureC R45 7:p2h`]CXgt-70fb8ec09b0a817-576  gt-70fb8ec09b0a817-577    C hY]L6Qga  gfilenamefice-9/getopt-long.scm    C;hI]L6Agfilenamefice-9/getopt-long.scm     C4h]C   C hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/getopt-long.scm   n C5 R1Y5h ]& C6gs  gval  gfilenamefice-9/getopt-long.scm    gnameg(%set-option-spec-value-policy!-procedureC6R4557:p\h`]CXgt-70fb8ec09b0a817-586  gt-70fb8ec09b0a817-587    C5hY]L6Qga  gfilenamefice-9/getopt-long.scm    C;hI]L6Agfilenamefice-9/getopt-long.scm     C^h]C   C hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/getopt-long.scm   n C55R1h]Cygname  gfilenamefice-9/getopt-long.scm    gnamegmake-option-specC_R_`abcef10gh(] $4L5$C6Cgname  $gval  $gt   "gfilenamefice-9/getopt-long.scm        ) "  #   $ CY hijd5h]""*""R$>$ ( 6456456456$O&9$.(#L& L OC L 6"`"\"X"T$k &U$J(?4 5$"4 >"GL&L C L6""""$J&4$)(L&L C L6""""$I&3$((L&L C L6"5"1"-")gexpr  gw  Wgx   Wgw q gx  q gw  gw 0gx  0gw  $gw A gx  A gw  ^ ygw  gx   gw   gfilenamefice-9/getopt-long.scm  9  =  >            (  c  }        Ch0] 44554O>"GCgdesc  .gspec  .gfilenamefice-9/getopt-long.scm    0         #   . gnamegparse-option-specCkRlmnhPJ]"<( 45C45$ 45C""Bg argument-list  Mgyes  Bgno   Bgfilenamefice-9/getopt-long.scm    *  $      ! %  & * / 8 0 $ 4  7  : * B  B  C  M   M gnamegsplit-arg-listCoR4piq5rR4pis5tR4piu5vRwrvth8] 45$C45$C6gstring  2gt 2gt  2gfilenamefice-9/getopt-long.scm        2   2 gnameglooks-like-an-optionCxRj1YZh n]& " 45Cfgspec  gfilenamefice-9/getopt-long.scm       Cy1Yh(]4 &  " 455Cxgspec  'gfilenamefice-9/getopt-long.scm    , #  &   ' C5z1Yx0{Zlwr|}~yht]4 56lgc  gfilenamefice-9/getopt-long.scm  )   :   >   +   Cmtvef!h(<]k454455"" &  " 4  5&P ("4  5$  "    " &  " 4  5&V ("4  5$    & " 4  56    "  "( 45C$  4 5  $ $;4 5 4 5  $ " 4  5      "4 5 4444 5554 5$" 5 4 54  5"(4 5  $;4 5 4 5$" 4  5   "4 5  $l4 545$" 4 5&  " 4 5$4 5   "k 6"  "C$ $4455C""4 56 "4gspecs  &g argument-ls  &gstop-at-first-non-option   &gidx   &gsc-idx   &g unclumped  # g argument-ls  # gfound  # getc  # gspec ' (gls ' (gw F gx F gt S gc k gt v gspec  gextra  gunclumped-opts  gt  gopt  Ggt   9gspec  9 Ggt P gopt  ` gt  k gspec   gfilenamefice-9/getopt-long.scm         #  '  )  ,  H  N  O  T  Y ( [  _ b  h ' y  ~  $ 9 -       (           $  9  -         # (  .   1   8  <   K  S  _   c   d   k   n  % v  !   %   2   %         "         $   )   *   )   $   (   2   (   $   <   @                     !   !   " !  "  . # ! 2 # . 6 # ! 9 !  G $  H % P  Y '  ` '  c ( ! k (  z ) ! ~ ) .  ) !  '   *   *   + '  + !  +   , #  ,   2   2 ,  2    /   .  0   0   0   0       >  H & |  & gnamegprocess-optionsCR(jkoa1YZ0 h]& " 454L5& " 45$"$"4>"G"&  " 45$6Cgspec  gname % gval  % gpred  gfilenamefice-9/getopt-long.scm ]   ^   _  % ^  , `  G `  M a  R b  V b * ] b  l d d  e  e   C1YZh0] 4& " 455Cgspec+val  .gs )gfilenamefice-9/getopt-long.scm g   i  i ? i , + i  , h   . C h-/03 #Y45454545 4 O>"G4 >"G ZCZFgprogram-arguments  goption-desc-list  gstop-at-first-non-option   gspecifications  , gpair  6 gsplit-ls  ; g non-split-ls  @ g found/etc  M gfound  R grest-ls ^  gfilenamefice-9/getopt-long.scm 4 ! T  $ U  , U  / V  4 V ! 6 V  6 U  ; W  ; U  @ X  @ U  C Y  M U  R [  R U  U \  Z \  ^ \  ^ U  a ]  z g  k  k k    gstop-at-first-non-optionS gnameg getopt-longg documentationf/Process options, handling both long and short options, similar to the glibc function 'getopt_long'. PROGRAM-ARGUMENTS should be a value similar to what (program-arguments) returns. OPTION-DESC-LIST is a list of option descriptions. Each option description must satisfy the following grammar: :: ( . ) :: ( . ) | () :: | | | | :: (required? ) :: (single-char ) :: (value #t) (value #f) (value optional) :: (predicate <1-ary-function>) The procedure returns an alist of option names and values. Each option name is a symbol. The option value will be '#t' if no value was specified. There is a special item in the returned alist with a key of the empty list, (): the list of arguments that are not options or option values. By default, options are not required, and option values are not required. By default, single character equivalents are not supported; if you want to allow the user to use single character options, you need to add a `single-char' clause to the option description.CRh C] 45$CC;goptions  gkey  gdefault   gt  gfilenamefice-9/getopt-long.scm m  p  p    gnameg option-refg documentationfqReturn value in alist OPTIONS using KEY, a symbol; or DEFAULT if not found. The value is either a string or `#t'.C!RCVgm  ,grtd | gfilenamefice-9/getopt-long.scm  -  3 " 5  8 $ E 7 = ? ?  ? , ?  ? ?  ? , ?  ? ?  ? , ?  ? @ M Y 4 [N m   [P C6