asda?‰PNG  IHDR ? f ??C1 sRGB ??é gAMA ±? üa pHYs ? ??o¨d GIDATx^íüL”÷e÷Y?a?("Bh?_ò???¢§?q5k?*:t0A-o??¥]VkJ¢M??f?±8\k2íll£1]q?ù???T PKe[rĠ sorting.gonu[GOOF----LE-8-2.0]14h] gguile  gdefine-module*   grnrs gsorting  gfilenameS frnrs/sorting.scm gpureS gversionS  gset-current-module   gresolve-r6rs-interface   gbase   gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module   gonly g *unspecified* !g stable-sort "gsort! # !" $gmodule-export! %$ &$ 'g vector-sort! (g vector-sort )g list-sort *'() +gmodule-re-export! ,+ -+ .gmodule-replace! /. 0.C5h]4     54>"G454hB]45L6:gfilenamefrnrs/sorting.scm     CO>"G4#54hB]45L6:gfilenamefrnrs/sorting.scm     CO>"G4&*hB]456:gfilenamefrnrs/sorting.scm    C>"G4-hB]456:gfilenamefrnrs/sorting.scm    C>"G40hB]456:gfilenamefrnrs/sorting.scm    C>"G!h~]6vgproc  glist  gfilenamefrnrs/sorting.scm    gnameg list-sortC)R!h]6zgproc  gvector  gfilenamefrnrs/sorting.scm    gnameg vector-sortC(R"h]4>"GC{gproc  gvector  gfilenamefrnrs/sorting.scm     gnameg vector-sort!C'RCgm  +giface 2 giface 7gfilenamefrnrs/sorting.scm   A           C6PKe[ UUbase.gonu[GOOF----LE-8-2.0U]4h,] gguile  gdefine-module*   grnrs gbase  gfilenameS f rnrs/base.scm gpureS gversionS  gset-current-module   gresolve-r6rs-interface   grename gexcept gerror graise gmap gstring-for-each  glog g log-internal  geuclidean-quotient gdiv  !geuclidean-remainder "gmod #!" $g euclidean/ %g div-and-mod &$% 'gcentered-quotient (gdiv0 )'( *gcentered-remainder +gmod0 ,*+ -g centered/ .g div0-and-mod0 /-. 0ginf? 1g infinite? 201 3gexact->inexact 4ginexact 534 6ginexact->exact 7gexact 867 9 #&),/258  :gcall-with-deferred-observers ;: <: =gmodule-use-interfaces! >= ?= @gcurrent-module A@ B@ Cgsrfi Dgsrfi-11 ECD Fgmodule-export! GF HF Igassert Jgassertion-violation Kgvector-for-each Lg vector-map Mgsymbol=? Ng boolean=? Oginteger-valued? Pgrational-valued? Qg real-valued? RIJKLMNOPQ  Sgmodule-re-export! TS US Vgidentifier-syntax Wg syntax-rules Xg letrec-syntax Yg let-syntax Zgunquote-splicing [gunquote \g quasiquote ]gapply ^gvalues _g dynamic-wind `gcall-with-values agcall/cc bgcall-with-current-continuation cg vector-fill! dg list->vector eg vector->list fg vector-set! gg vector-ref hg vector-length igvector jg make-vector kgvector? lg string-copy mg list->string ng string->list og string-append pg substring qg string>=? rg string<=? sgstring>? tgstring=? {gchar<=? |gchar>? }gcharchar g char->integer gstring->symbol gsymbol->string gfor-each glist-ref g list-tail greverse gappend glength glist glist? gcddddr gcdddar gcddadr gcdaddr gcadddr gcaddar gcaaddr gcadadr gcdaadr gcdadar gcddaar gcdaaar gcadaar gcaadar gcaaadr gcaaaar gcdddr gcddar gcdadr gcaddr gcdaar gcadar gcaadr gcaaar gcddr gcdar gcadr gcaar gcdr gcar gcons gstring->number gnumber->string g>= g<= g> g< g= gfinite? gnan? geven? godd? g negative? g positive? gzero? ginexact? gexact? ginteger? g rational? greal? gcomplex? gangle g magnitude g make-polar gatan gacos gasin gtan gcos gsin gexp gsqrt gexact-integer-sqrt gexpt gmake-rectangular g imag-part g real-part g rationalize ground gtruncate gceiling gfloor glcm ggcd g denominator g numerator gabs gmin gmax g/ g* g- g+ geq? gequal? geqv? gnot gand gor gcase gcond gset! gif glambda gquote gbegin gletrec* gletrec g let*-values g let-values glet* glet g define-syntax gdefine g procedure? gstring? gnumber? gpair? gnull? gchar? gsymbol? gboolean? VWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~471.+(%"Wk gmodule-replace!    f.string arguments must all have the same length g scm-error gwrong-type-arg fmap fCircular list: ~S fNot a list: ~S fList of wrong length: ~S gmake-syntax-transformer     g define-proxy  gmacro  g $sc-dispatch      gany gfree-id g syntax-object g@ gtop  gribcage  gx  g m-a850ec-9   f l-a850ec-b     gprivate !  "! #" $# %$ &gdummy 'gbinding (gmodule )goriginal *&'() + ,f l-a850ec-e -f l-a850ec-f .f l-a850ec-10 /f l-a850ec-11 0,-./ 1*+0 21 32! 4V2! 5g module-ref 652! 7gresolve-interface 872! 92! :gsyntax-violation ;: <: =f-source expression failed to match any pattern >g identifier? ?> @> Ag m-a850ec-16 BA Cgid DC Eg m-a850ec-17 FE GF Hf l-a850ec-1e IH JDGI Kf l-a850ec-19 LK MGL Ngshift OBJMN1 P5O! Q7O! RO! SJM TS! Ug exceptions VUS! WTV XRW YQX ZS! [RZ \PY[ ]g_ ^geach-any _]^ `f l-a850ec-21 a` bGa cBbMN1 d5c! e7c! fc! gbM hg! iUg! jhi kfj lek mg! nfm odln pg condition qg m-a850ec-24 rq sg m-a850ec-25 ts ut vf l-a850ec-2c wv xDuw yf l-a850ec-27 zy {uz |rx{N1 }5|! ~7|! |! x{ ! g conditions !   ~ p!  } f l-a850ec-2f  u r{N1 5! 7! ! { ! !    p!   g make-error g m-a850ec-32  g m-a850ec-33   f l-a850ec-3a  D f l-a850ec-35   N1 5! 7! !  ! !    !   f l-a850ec-3d   N1 5! 7! !  ! !    !   gmake-assertion-violation g m-a850ec-40  g m-a850ec-41   f l-a850ec-48  D f l-a850ec-43   N1 5! 7! !  ! !    !   f l-a850ec-4b   N1 5! 7! !  ! !    !   gmake-who-condition g m-a850ec-4e  g m-a850ec-4f   f l-a850ec-56  D f l-a850ec-51   N1 5! 7! !  ! !    !   f l-a850ec-59   N1  5!  7!  !     !  !        !     gmake-message-condition g m-a850ec-5c  g m-a850ec-5d   f l-a850ec-64  D f l-a850ec-5f    ! N1 "5!! #7!! $!! %  &%! '%! (&' )$( *#) +%! ,$+ -"*, .f l-a850ec-67 /. 0/ 10 N1 251! 371! 41! 50  65! 75! 867 948 :39 ;5! <4; =2:< >gmake-irritants-condition ?g m-a850ec-6a @? Ag m-a850ec-6b BA CB Df l-a850ec-72 ED FDCE Gf l-a850ec-6d HG ICH J@FIN1 K5J! L7J! MJ! NFI ON! PN! QOP RMQ SLR T>N! UMT VKSU Wf l-a850ec-75 XW YCX Z@YIN1 [5Z! \7Z! ]Z! ^YI _^! `^! a_` b]a c\b d>^! e]d f[ce gU h i jg expression k&j lg m-a850ec-78 ml nm of l-a850ec-7d pf l-a850ec-7e qop rknq sm tf l-a850ec-7a ut vsu wrv xw! yw! zpw! {w! |{ }w! ~gformat ~w! w! fassertion failed: ~s w! w!C5h%]4     54>"G4954<?Bh?]45L67gfilenamef rnrs/base.scm     CO>"G4E54<?Bh?]45L67gfilenamef rnrs/base.scm     CO>"G4<HBRh?]4567gfilenamef rnrs/base.scm    C>"G4<UBh?]4567gfilenamef rnrs/base.scm    C>"G4<Bh?]4567gfilenamef rnrs/base.scm    C>"GwvJJh Q]L$CLL@Igx  gfilenamef rnrs/base.scm  s    C]vh)]L6!gs    C hP)D345"-$C445>"G" "){34545$"4>"G"6$C44545>"G" "-1345454O>"G"=$C4 454 O5>"G" "gproc Jgstring Jgend   Jgi   Cgproc S gstring1 S gstring2  S gend1  a gend2  a gi  gproc Mgstring Mgstrings  Mgend  Mgends  Mgi   Fgfilenamef rnrs/base.scm y e  J  S  M  gnamegstring-for-eachCR hh)3"|$Y$6&645"45"(66"r)3 "$$$[&6&645"45"h$"6()(6$"66"-1345"C("A45$ "4>"G"""6(64  544  5?""gf gl ghare  gtortoise  gmove?  gout  gf gl1 gl2  gh1  gh2  gt1  gt2  gmove?  gout  gf  cgl1  cgrest   cglen   grest   gl1   Tgrest   Tgout   Tgfilenamef rnrs/base.scm ( / * 5  + 1 ' - ' - F ' O  U  u % ~     %    -  3     c  gnamegmapCRh(a) 36]4545CYgn gn  !gbase  !    ! gnameglogCRh`-13"%(C$ "C(C45$ "Cgbools Yglst 2glast  2gbool   2gbool = Ygfilenamef rnrs/base.scm  Y gnameg boolean=?CNRhX-13"$(C& "C(C$ "Cgsyms Tglst 1glast  1gsym   1gsym < Tgfilenamef rnrs/base.scm  T gnamegsymbol=?CMRh i]45$ 45 CCagx  gfilenamef rnrs/base.scm    gnameg real-valued?CQRQh m]45$ 456Cegx  gfilenamef rnrs/base.scm    gnamegrational-valued?CPRPh l]45$4455CCdgx  gfilenamef rnrs/base.scm    gnameginteger-valued?COReh-1345@zgproc gvecs gfilenamef rnrs/base.scm   gnamegvector-for-eachCKRdeh }-13445?6ugproc gvecs gfilenamef rnrs/base.scm   gnameg vector-mapCLR4   %34689h(l]Cdgdummy  'gbinding  'gmodule   'goriginal   '  ' C<=h(] 45$@6gx  "gtmp "  " g macro-typeg syntax-rulesgpatternsgbindingg@gmodulegoriginalC5 R4  @hR]6Jgid  gfilenamef rnrs/base.scm     C\h*]C"gid     C_oh)]C!gx     C<=h@]4?$@45$@6gx  :gtmp  :gtmp  # :gfilenamef rnrs/base.scm   : g macro-typegidentifier-syntaxC5R4 p @hR]6Jgid  gfilenamef rnrs/base.scm     Ch*]C"gid     C_h)]C!gx     C<=h@]4?$@45$@6gx  :gtmp  :gtmp  # :gfilenamef rnrs/base.scm   : g macro-typegidentifier-syntaxC5pR4  @hR]6Jgid  gfilenamef rnrs/base.scm      Ch*]C"gid     C_h)]C!gx     C<=h@]4?$@45$@6gx  :gtmp  :gtmp  # :gfilenamef rnrs/base.scm    : g macro-typegidentifier-syntaxC5R4  @hR]6Jgid  gfilenamef rnrs/base.scm      Ch*]C"gid     C_h)]C!gx     C<=h@]4?$@45$@6gx  :gtmp  :gtmp  # :gfilenamef rnrs/base.scm    : g macro-typegidentifier-syntaxC5R4  @hR]6Jgid  gfilenamef rnrs/base.scm      Ch*]C"gid     C_h)]C!gx     C<=h@]4?$@45$@6gx  :gtmp  :gtmp  # :gfilenamef rnrs/base.scm    : g macro-typegidentifier-syntaxC5R4  @hR]6Jgid  gfilenamef rnrs/base.scm      C-h*]C"gid     C_=h)]C!gx     C<=h@]4?$@45$@6gx  :gtmp  :gtmp  # :gfilenamef rnrs/base.scm    : g macro-typegidentifier-syntaxC5R4 > @hR]6Jgid  gfilenamef rnrs/base.scm      CVh*]C"gid     C_fh)]C!gx     C<=h@]4?$@45$@6gx  :gtmp  :gtmp  # :gfilenamef rnrs/base.scm    : g macro-typegidentifier-syntaxC5>R57ghp> h-134455444554444555$4445 55"4445 554445 555?6gwho gmessage g irritants  gfilenamef rnrs/base.scm    gnamegerrorCR57ghp> h-134455444554444555$4445 55"4445 554445 555?6gwho gmessage g irritants  gfilenamef rnrs/base.scm    gnamegassertion-violationCJR4 I ixyz|} h0E] C=gdummy  +g expression  +  + C<=h(x] 45$@6pgx  "gtmp "  " g macro-typeg syntax-rulesgpatternsg expressionC5IRCgm  +giface 2 giface 4gfilenamef rnrs/base.scm    X }  d   e  "  $8    % C6PKe[oWmutable-strings.gonu[GOOF----LE-8-2.0]+4h] gguile  gdefine-module*   grnrs gmutable-strings  gfilenameS frnrs/mutable-strings.scm gpureS gversionS  gset-current-module   gresolve-r6rs-interface   gonly g string-set! g string-fill!  gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module   !gmodule-export! "! #! $gmodule-re-export! %$ &$ ' (gmodule-replace! )( *(C5h0o]4     54>"G454 hJ]45L6Bgfilenamefrnrs/mutable-strings.scm     CO>"G4# hJ]456Bgfilenamefrnrs/mutable-strings.scm    C>"G4& 'hJ]456Bgfilenamefrnrs/mutable-strings.scm    C>"G* hJ]456Bgfilenamefrnrs/mutable-strings.scm    C6ggm  +giface 2 gfilenamefrnrs/mutable-strings.scm     , C6PKe[B0M0Marithmetic/fixnums.gonu[GOOF----LE-8-2.0M]<4h] gguile  gdefine-module*   grnrs g arithmetic gfixnums  gfilenameS frnrs/arithmetic/fixnums.scm gpureS gversionS   gset-current-module   gresolve-r6rs-interface   gonly gash gcons* gdefine-inlinable ginexact->exact glogand glogbit? glogcount glogior glognot glogxor gmost-positive-fixnum !gmost-negative-fixnum "gobject-address # !" $gcall-with-deferred-observers %$ &$ 'gmodule-use-interfaces! (' )' *gcurrent-module +* ,* -gice-9 .goptargs /-. 0gbase 10 2gcontrol 32 4gbitwise 54 6g conditions 76 8g exceptions 98 :glists ;: < ?gfxreverse-bit-field @gfxrotate-bit-field Agfxarithmetic-shift-right Bgfxarithmetic-shift-left Cgfxarithmetic-shift Dgfxcopy-bit-field Eg fxbit-field Fg fxcopy-bit Gg fxbit-set? Hgfxfirst-bit-set Igfxlength Jg fxbit-count Kgfxif Lgfxxor Mgfxior Ngfxand Ogfxnot Pg fx*/carry Qg fx-/carry Rg fx+/carry Sgfxmod0 Tgfxdiv0 Ugfxdiv0-and-mod0 Vgfxmod Wgfxdiv Xg fxdiv-and-mod Ygfx- Zgfx* [gfx+ \gfxmin ]gfxmax ^gfxeven? _gfxodd? `g fxnegative? ag fxpositive? bgfxzero? cgfx<=? dgfx>=? egfx? ggfx=? hggreatest-fixnum ig least-fixnum jg fixnum-width kgfixnum? l?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijk- mgmodule-re-export! nm om pgmodule-replace! qp rp sg% inline-fixnum?-procedure tgmake-syntax-transformer ut vt wginline-fixnum? xgmacro yg $sc-dispatch zy {y |g_ }gany ~|} g syntax-object gsyntax-parameterize gm-2e3f1f84bf0f11-1c gtop  gribcage gt-2e3f1f84bf0f11-1b   fl-2e3f1f84bf0f11-21    gx  fl-2e3f1f84bf0f11-1e   gshift g proc-name gargs    fl-bde397a-1eaf fl-bde397a-1eb0   gname gformals gbody   fl-bde397a-1ea6 fl-bde397a-1ea7 fl-bde397a-1ea8   gmake-procedure-name gprefix   fl-bde397a-1e9a fl-bde397a-1e98    fl-bde397a-1e97     ghygiene    gprivate  w gidentifier-syntax  s    glambda  gobj   gnot  g=       "       geach-any |Ҍ gsyntax-violation   fWrong number of arguments f-source expression failed to match any pattern g identifier?    s g assert-fixnum }Ҍ gor gdummy garg  gm-2e3f1f84bf0f11-27   fl-2e3f1f84bf0f11-2c fl-2e3f1f84bf0f11-2d    fl-2e3f1f84bf0f11-29     gand  gmap   w graise  gmake-assertion-violation     gfor-all gassert-fixnums g define-fxop* }}} gdefine gop  gm-2e3f1f84bf0f11-31   fl-2e3f1f84bf0f11-36  fl-2e3f1f84bf0f11-37  fl-2e3f1f84bf0f11-38          fl-2e3f1f84bf0f11-33       g case-lambda   gy        gapply    !g> "g< #g>= $g<= %gzero? &g positive? 'g negative? (godd? )geven? *gmax +gmin ,g)make-implementation-restriction-violation -gdiv .gmod /g div-and-mod 0gdiv0 1gmod0 2g div0-and-mod0 3gexpt 4g bitwise-if 5gbitwise-length 6gbitwise-first-bit-set 7gbitwise-copy-bit 8gbitwise-bit-field 9gbitwise-copy-bit-field :gbitwise-rotate-bit-field ;gbitwise-reverse-bit-fieldC5h3]4     54>"G4#54&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm     CO>"G4/54&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm     CO>"G4154&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm     CO>"G4354&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm     CO>"G4554&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm     CO>"G4754&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm     CO>"G4954&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm     CO>"G4;54&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm     CO>"G4&>,lhM]456Egfilenamefrnrs/arithmetic/fixnums.scm    C>"G4&o,hM]456Egfilenamefrnrs/arithmetic/fixnums.scm    C>"G4&r,hM]456Egfilenamefrnrs/arithmetic/fixnums.scm    C>"G"" i$" " "h]LC   COjR hj]Cbgfilenamefrnrs/arithmetic/fixnums.scm h    gnameggreatest-fixnumChR!hg]C_gfilenamefrnrs/arithmetic/fixnums.scm i    gnameg least-fixnumCiR"ht] 45Clgobj  gfilenamefrnrs/arithmetic/fixnums.scm k    gnamegfixnum?CkR"h] 45Cgobj  gfilenamefrnrs/arithmetic/fixnums.scm n    gnameg% inline-fixnum?-procedureCsR4vwx{~h;]C3gt-2e3f1f84bf0f11-1b    Cwh_]L6Wga  gfilenamefrnrs/arithmetic/fixnums.scm  n   C|hO]L6Ggfilenamefrnrs/arithmetic/fixnums.scm  n    Ch]C   C hx]45$@45$ O@45" 6$4 O?$ @""gx  qgtmp qgtmp  " qgtmp  > qgfilenamefrnrs/arithmetic/fixnums.scm n   q C5wR4vx{h=]C5gtmp-2e3f1f84bf0f11-30    Ch>]45C6gdummy  garg     Ch(x] 45$@6pgx  "gtmp "  " g macro-typeg syntax-rulesgpatternsgargg...C5Rsh ] 45$C456gargs  gt gfilenamefrnrs/arithmetic/fixnums.scm w    gnamegassert-fixnumsCR4vx{  h0O]CGgdummy  *gname  *gop   *  * Ch(x] 45$@6pgx  "gtmp "  " g macro-typeg syntax-rulesgpatternsgnamegopC5RigR!ifR"ieR#idR$icR%ibR&iaR'i`R(i_R)i^R"*hx)Q3 45$" 45$"445>"G6-134>"G@gx Wgy Wgt  + Ogargs ` xgfilenamefrnrs/arithmetic/fixnums.scm  W  ` x gnamegfxmaxC]R"+hx)Q3 45$" 45$"445>"G6-134>"G@gx Wgy Wgt  + Ogargs ` xgfilenamefrnrs/arithmetic/fixnums.scm  W  ` x gnamegfxminC\R",h] 45$" 45$"445>"G 45$"445>"GCgfx1  gfx2  gt  $ Hgr  M gt  \ gfilenamefrnrs/arithmetic/fixnums.scm   gnamegfx+C[R",h] 45$" 45$"445>"G 45$"445>"GCgfx1  gfx2  gt  $ Hgr  M gt  \ gfilenamefrnrs/arithmetic/fixnums.scm   gnamegfx*CZR"h-.,3# 45$"445>"G$l 45$"445>"G 45$"445>"GC  45$"445>"GCgfx1 gfx2 gt  " Fgt  Y }gr  gt  gr  gt  gfilenamefrnrs/arithmetic/fixnums.scm  gnamegfx-CYR"-hP] 45$" 45$"445>"G6gfx1  Pgfx2  Pgt  $ Hgfilenamefrnrs/arithmetic/fixnums.scm   P gnamegfxdivCWR".hP] 45$" 45$"445>"G6gfx1  Pgfx2  Pgt  $ Hgfilenamefrnrs/arithmetic/fixnums.scm   P gnamegfxmodCVR"/hP] 45$" 45$"445>"G6gfx1  Pgfx2  Pgt  $ Hgfilenamefrnrs/arithmetic/fixnums.scm   P gnameg fxdiv-and-modCXR"0hP] 45$" 45$"445>"G6gfx1  Pgfx2  Pgt  $ Hgfilenamefrnrs/arithmetic/fixnums.scm   P gnamegfxdiv0CTR"1hP] 45$" 45$"445>"G6gfx1  Pgfx2  Pgt  $ Hgfilenamefrnrs/arithmetic/fixnums.scm   P gnamegfxmod0CSR"2hP] 45$" 45$"445>"G6gfx1  Pgfx2  Pgt  $ Hgfilenamefrnrs/arithmetic/fixnums.scm   P gnamegfxdiv0-and-mod0CUR"13j0h] 45$"" 45$" 45$"445>"G44 455544 4555Dgfx1  gfx2  gfx3   gt  9 ]gs  e gs0  z gs1  gfilenamefrnrs/arithmetic/fixnums.scm   gnameg fx+/carryCRR"13j0h] 45$"" 45$" 45$"445>"G44 455544 4555Dgfx1  gfx2  gfx3   gt  9 ]gd  e gd0  z gd1  gfilenamefrnrs/arithmetic/fixnums.scm   gnameg fx-/carryCQR"13j0h] 45$"" 45$" 45$"445>"G44 455544 4555Dgfx1  gfx2  gfx3   gt  9 ]gs  e gs0  z gs1  gfilenamefrnrs/arithmetic/fixnums.scm   gnameg fx*/carryCPR"h@] 45$"445>"G6xgfx  9gt  3gfilenamefrnrs/arithmetic/fixnums.scm   9 gnamegfxnotCOR"hx)O3 45$" 45$"445>"GC-134>"G@gx Ugy Ugt  + Ogargs ^ vgfilenamefrnrs/arithmetic/fixnums.scm  U  ^ v gnamegfxandCNR"hx)O3 45$" 45$"445>"GC-134>"G@gx Ugy Ugt  + Ogargs ^ vgfilenamefrnrs/arithmetic/fixnums.scm  U  ^ v gnamegfxiorCMR"hx)O3 45$" 45$"445>"GC-134>"G@gx Ugy Ugt  + Ogargs ^ vgfilenamefrnrs/arithmetic/fixnums.scm  U  ^ v gnamegfxxorCLR"4hh] 45$"" 45$" 45$"445>"G6gfx1  ggfx2  ggfx3   ggt  9 ]gfilenamefrnrs/arithmetic/fixnums.scm   g gnamegfxifCKR"hP] 45$"445>"G $ 4566~gfx  Lgt  3gfilenamefrnrs/arithmetic/fixnums.scm   L gnameg fxbit-countCJR"5h@] 45$"445>"G6{gfx  9gt  3gfilenamefrnrs/arithmetic/fixnums.scm   9 gnamegfxlengthCIR"6h@] 45$"445>"G6gfx  9gt  3gfilenamefrnrs/arithmetic/fixnums.scm   9 gnamegfxfirst-bit-setCHR"hP] 45$" 45$"445>"G6gfx1  Pgfx2  Pgt  $ Hgfilenamefrnrs/arithmetic/fixnums.scm   P gnameg fxbit-set?CGR"7hh] 45$"" 45$" 45$"445>"G6gfx1  ggfx2  ggfx3   ggt  9 ]gfilenamefrnrs/arithmetic/fixnums.scm   g gnameg fxcopy-bitCFR"8hh] 45$"" 45$" 45$"445>"G6gfx1  ggfx2  ggfx3   ggt  9 ]gfilenamefrnrs/arithmetic/fixnums.scm   g gnameg fxbit-fieldCER"9h] 45$"7 45$"" 45$" 45$"445>"G6gfx1  ~gfx2  ~gfx3   ~gfx4   ~gt  N rgfilenamefrnrs/arithmetic/fixnums.scm   ~ gnamegfxcopy-bit-fieldCDR"hP] 45$" 45$"445>"GCgfx1  Ngfx2  Ngt  $ Hgfilenamefrnrs/arithmetic/fixnums.scm   N gnamegfxarithmetic-shiftCCRCiBR"hP] 45$" 45$"445>"G Cgfx1  Pgfx2  Pgt  $ Hgfilenamefrnrs/arithmetic/fixnums.scm    P gnamegfxarithmetic-shift-rightCAR":h] 45$"7 45$"" 45$" 45$"445>"G6gfx1  ~gfx2  ~gfx3   ~gfx4   ~gt  N rgfilenamefrnrs/arithmetic/fixnums.scm    ~ gnamegfxrotate-bit-fieldC@R";hh] 45$"" 45$" 45$"445>"G6gfx1  ggfx2  ggfx3   ggt  9 ]gfilenamefrnrs/arithmetic/fixnums.scm    g gnamegfxreverse-bit-fieldC?RCgm  +giface 2 giface Jgiface Q giface  jgiface q giface  giface  giface ! gi . Pgn . Pgw Z  gfilenamefrnrs/arithmetic/fixnums.scm    a   h   i  ? k   n  w  ]  e  m  u  }              %                    z    !  "  #  %  &E  'n  (a  )>  *%  ++  ,\  -  .  /  /  1   2e   3  1  3 C6PKe[4ιarithmetic/bitwise.gonu[GOOF----LE-8-2.0]c4h] gguile  gdefine-module*   grnrs g arithmetic gbitwise  gfilenameS frnrs/arithmetic/bitwise.scm gpureS gversionS   gset-current-module   gresolve-r6rs-interface   gbase  gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module   gcontrol !  "grename #gonly $gsrfi %gsrfi-60 &$% 'g bitwise-if (ginteger-length )g first-set-bit *gcopy-bit +g bit-field ,gcopy-bit-field -grotate-bit-field .greverse-bit-field /#&'()*+,-.  0gbitwise-length 1(0 2gbitwise-first-bit-set 3)2 4gbitwise-bit-field 5+4 6gbitwise-reverse-bit-field 7.6 8"/1357 9glognot :glogand ;glogior glogbit? ?gmodulo @gash A#9:;<=>?@  Bg bitwise-not C9B Dg bitwise-and E:D Fg bitwise-ior G;F Hg bitwise-xor I<H Jgbitwise-arithmetic-shift K@J L"ACEGIK Mgmodule-export! NM OM Pgbitwise-rotate-bit-field Qgbitwise-arithmetic-shift-right Rgbitwise-arithmetic-shift-left Sgbitwise-copy-bit-field Tgbitwise-copy-bit Ugbitwise-bit-set? Vgbitwise-bit-count WPQRSTUV Xgmodule-re-export! YX ZX [6J420'HFDB  \gmodule-replace! ]\ ^\ _9 `9 a@ b@C5h]4     54>"G454hM]45L6Egfilenamefrnrs/arithmetic/bitwise.scm     CO>"G4!54hM]45L6Egfilenamefrnrs/arithmetic/bitwise.scm     CO>"G4854hM]45L6Egfilenamefrnrs/arithmetic/bitwise.scm     CO>"G4L54hM]45L6Egfilenamefrnrs/arithmetic/bitwise.scm     CO>"G4OWhM]456Egfilenamefrnrs/arithmetic/bitwise.scm    C>"G4Z[hM]456Egfilenamefrnrs/arithmetic/bitwise.scm    C>"G4^hM]456Egfilenamefrnrs/arithmetic/bitwise.scm    C>"G`=h }] $ 4566ugei  gfilenamefrnrs/arithmetic/bitwise.scm E    gnamegbitwise-bit-countCVR>h]6gei1  gei2  gfilenamefrnrs/arithmetic/bitwise.scm J   gnamegbitwise-bit-set?CUR*>h]4 56gei1  gei2  gei3   gfilenamefrnrs/arithmetic/bitwise.scm L    gnamegbitwise-copy-bitCTR,h]6gei1  gei2  gei3   gei4   gfilenamefrnrs/arithmetic/bitwise.scm S    gnamegbitwise-copy-bit-fieldCSR-h]6gei1  gei2  gei3   gei4   gfilenamefrnrs/arithmetic/bitwise.scm V    gnamegbitwise-rotate-bit-fieldCPRbRRh] Cgei1  gei2  gfilenamefrnrs/arithmetic/bitwise.scm Z   gnamegbitwise-arithmetic-shift-rightCQRCgm  +giface 2 giface Jgiface Q giface  jgfilenamefrnrs/arithmetic/bitwise.scm    E  Q J  " L   S   V   Y   Z    C6PKe[R`1;1;arithmetic/flonums.gonu[GOOF----LE-8-2.0;]4h ] gguile  gdefine-module*   grnrs g arithmetic gflonums  gfilenameS frnrs/arithmetic/flonums.scm gpureS gversionS   gset-current-module   gresolve-r6rs-interface   gice-9 goptargs  gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module   !gonly "ginf? #!" $gfixnums %$ &gbase '& (gcontrol )( *g conditions +* ,g exceptions -, .glists /. 0gr5rs 10 2gmodule-export! 32 42 5gfixnum->flonum 6gno-nans-violation? 7gmake-no-nans-violation 8g&no-nans 9gno-infinities-violation? :gmake-no-infinities-violation ;g&no-infinities gflatan ?gflasin @gflacos Agfltan Bgflcos Cgflsin Dgfllog Egflexp Fgflround Gg fltruncate Hg flceiling Igflfloor Jg fldenominator Kg flnumerator Lgflmod0 Mgfldiv0 Ngfldiv0-and-mod0 Ogflmod Pgfldiv Qg fldiv-and-mod Rgflabs Sgfl/ Tgfl- Ugfl* Vgfl+ Wgflmin Xgflmax Ygflnan? Zg flinfinite? [g flfinite? \gfleven? ]gflodd? ^g flnegative? _g flpositive? `gflzero? ag flinteger? bgfl>=? cgfl>? dgfl<=? egflflonum hgflonum? i56789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefgh4 jgmodule-re-export! kj lj mgmodule-replace! nm om pgreal? qginexact? rgfor-all sgraise tgmake-assertion-violation ug assert-flonum vginteger? wgassert-iflonum xg imag-part yg real-part ze+nan.0 {g ensure-flonum |gexact->inexact }gapply ~g= g< g<= g> g>= godd? geven? gnan? gmax gmin e0.0 g+ e1.0 g* g- g/ gabs g div-and-mod gdiv gmod g div0-and-mod0 gdiv0 gmod0 g numerator g denominator gfloor gceiling gtruncate ground gexp glog gsin gcos gtan gasin gacos gatan gsqrt gexpt * gmake-record-type-descriptor   g&implementation-restriction g list->vector   grecord-constructor   g"make-record-constructor-descriptor   gcondition-predicate   gfixnum?C5h+]4     54>"G454 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm     CO>"G4#54 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm     CO>"G4%54 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm     CO>"G4'54 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm     CO>"G4)54 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm     CO>"G4+54 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm     CO>"G4-54 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm     CO>"G4/54 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm     CO>"G4154 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm     CO>"G44 ihM]456Egfilenamefrnrs/arithmetic/flonums.scm    C>"G4l hM]456Egfilenamefrnrs/arithmetic/flonums.scm    C>"G4o hM]456Egfilenamefrnrs/arithmetic/flonums.scm    C>"Gpqht]45$6Clgobj  gfilenamefrnrs/arithmetic/flonums.scm E    gnamegflonum?ChRrhsth(-1345$C456gargs &gt  &gfilenamefrnrs/arithmetic/flonums.scm F  & gnameg assert-flonumCuRrhvh)]45$6C!gi     Csth(-1345$C456gargs &gt  &gfilenamefrnrs/arithmetic/flonums.scm H  & gnamegassert-iflonumCwRpxyzh(]45$C45 $6Cxgz  &gfilenamefrnrs/arithmetic/flonums.scm L  % O   & gnameg ensure-flonumC{Rpst|h8] 45$"445>"G6}gx  3gt -gfilenamefrnrs/arithmetic/flonums.scm Q   3 gnameg real->flonumCgR}u~h(t-134>"G@lgargs #gfilenamefrnrs/arithmetic/flonums.scm U  # gnamegfl=?CfR}uh(t-134>"G@lgargs #gfilenamefrnrs/arithmetic/flonums.scm V  # gnamegfl"G@mgargs #gfilenamefrnrs/arithmetic/flonums.scm W  # gnamegfl<=?CdR}uh(t-134>"G@lgargs #gfilenamefrnrs/arithmetic/flonums.scm X  # gnamegfl>?CcR}uh(u-134>"G@mgargs #gfilenamefrnrs/arithmetic/flonums.scm Y  # gnamegfl>=?CbRuvh v]4>"G6ngfl  gfilenamefrnrs/arithmetic/flonums.scm [    gnameg flinteger?CaRuh s]4>"G Ckgfl  gfilenamefrnrs/arithmetic/flonums.scm \    gnamegflzero?C`Ruh w]4>"G Cogfl  gfilenamefrnrs/arithmetic/flonums.scm ]    gnameg flpositive?C_Ruh w]4>"G Cogfl  gfilenamefrnrs/arithmetic/flonums.scm ^    gnameg flnegative?C^Rwh s]4>"G6kgifl  gfilenamefrnrs/arithmetic/flonums.scm _    gnamegflodd?C]Rwh t]4>"G6lgifl  gfilenamefrnrs/arithmetic/flonums.scm `    gnamegfleven?C\Ru"h8] 4>"G45$"45C{gfl  5gt  3gfilenamefrnrs/arithmetic/flonums.scm a   5 gnameg flfinite?C[Ru"h w]4>"G6ogfl  gfilenamefrnrs/arithmetic/flonums.scm b    gnameg flinfinite?CZRuh r]4>"G6jgfl  gfilenamefrnrs/arithmetic/flonums.scm c    gnamegflnan?CYR}uh0-134>"G@gfl1 *gargs *gflargs   *gfilenamefrnrs/arithmetic/flonums.scm e  * gnamegflmaxCXR}uh0-134>"G@gfl1 *gargs *gflargs   *gfilenamefrnrs/arithmetic/flonums.scm j  * gnamegflminCWR}uh0{-134>"G(C@sgargs ,gfilenamefrnrs/arithmetic/flonums.scm o  % q  , gnamegfl+CVR}uh0{-134>"G(C@sgargs ,gfilenamefrnrs/arithmetic/flonums.scm s  % u  , gnamegfl*CUR}uh0-134>"G@gfl1 *gargs *gflargs   *gfilenamefrnrs/arithmetic/flonums.scm w  * gnamegfl-CTR}uh0-134>"G@gfl1 *gargs *gflargs   *gfilenamefrnrs/arithmetic/flonums.scm |  * gnamegfl/CSRuh r]4>"G6jgfl  gfilenamefrnrs/arithmetic/flonums.scm    gnamegflabsCRRwh ]4>"G6gfl1  gfl2  gfilenamefrnrs/arithmetic/flonums.scm    gnameg fldiv-and-modCQRwh ]4>"G6|gfl1  gfl2  gfilenamefrnrs/arithmetic/flonums.scm    gnamegfldivCPRwh ]4>"G6|gfl1  gfl2  gfilenamefrnrs/arithmetic/flonums.scm    gnamegflmodCORwh ]4>"G6gfl1  gfl2  gfilenamefrnrs/arithmetic/flonums.scm    gnamegfldiv0-and-mod0CNRwh ]4>"G6}gfl1  gfl2  gfilenamefrnrs/arithmetic/flonums.scm    gnamegfldiv0CMRwh ]4>"G6}gfl1  gfl2  gfilenamefrnrs/arithmetic/flonums.scm    gnamegflmod0CLRuh x]4>"G6pgfl  gfilenamefrnrs/arithmetic/flonums.scm    gnameg flnumeratorCKRuh z]4>"G6rgfl  gfilenamefrnrs/arithmetic/flonums.scm    gnameg fldenominatorCJRuh t]4>"G6lgfl  gfilenamefrnrs/arithmetic/flonums.scm    gnamegflfloorCIRuh v]4>"G6ngfl  gfilenamefrnrs/arithmetic/flonums.scm    gnameg flceilingCHRuh w]4>"G6ogfl  gfilenamefrnrs/arithmetic/flonums.scm    gnameg fltruncateCGRuh t]4>"G6lgfl  gfilenamefrnrs/arithmetic/flonums.scm    gnamegflroundCFRuh r]4>"G6jgfl  gfilenamefrnrs/arithmetic/flonums.scm    gnamegflexpCERu{hX)#34>"G456]4>"G45456gfl )gfl + Xgfl2 + Xgfilenamefrnrs/arithmetic/flonums.scm $ ! H $ R % )  + X gnamegfllogCDRuh r]4>"G6jgfl  gfilenamefrnrs/arithmetic/flonums.scm    gnamegflsinCCRuh r]4>"G6jgfl  gfilenamefrnrs/arithmetic/flonums.scm    gnamegflcosCBRuh r]4>"G6jgfl  gfilenamefrnrs/arithmetic/flonums.scm    gnamegfltanCARu{h s]4>"G456kgfl  gfilenamefrnrs/arithmetic/flonums.scm    gnamegflasinC?Ru{h s]4>"G456kgfl  gfilenamefrnrs/arithmetic/flonums.scm    gnamegflacosC@Ruh@e)34>"G6]4>"G6]gfl !gfl # ?gfl2 # ? !  # ? gnamegflatanC>Ru{h s]4>"G456kgfl  gfilenamefrnrs/arithmetic/flonums.scm    gnamegflsqrtC=Ru{h(]4>"G456}gfl1  #gfl2  #gfilenamefrnrs/arithmetic/flonums.scm   # gnamegflexptC"G6gfx  3gt -gfilenamefrnrs/arithmetic/flonums.scm   3 gnamegfixnum->flonumC5RCgm  +giface 2 giface Jgiface Q giface  jgiface q giface  giface  giface ! giface  : gfilenamefrnrs/arithmetic/flonums.scm   _ E  . F  W H   L  Q  U  _ V   W  X   Y  9 [   \   ]  : ^   _   `  f a   b   c   e  | j  F o   s   w   |  }  ?      q  0      U   !  "Z  #  #  $  %}  &%  &  'v  (&  (  )  *X  *Y  *  + 5  + C6PKe[lr eval.gonu[GOOF----LE-8-2.0 ]94ht] gguile  gdefine-module*   grnrs geval  gfilenameS f rnrs/eval.scm gpureS gversionS  gset-current-module   gresolve-r6rs-interface   gonly g make-module g module-uses gbeautify-user-module! gset-module-uses!  gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module !  "  #gbase $#  %gio &gsimple '%&  (glists )(  *gmodule-export! +* ,* -g environment .- /gmodule-re-export! 0/ 1/ 2 3gmodule-replace! 43 53 6gmember 7gfor-each 8gimportC5h0]4     54>"G454"h?]45L67gfilenamef rnrs/eval.scm     CO>"G4$54"h?]45L67gfilenamef rnrs/eval.scm     CO>"G4'54"h?]45L67gfilenamef rnrs/eval.scm     CO>"G4)54"h?]45L67gfilenamef rnrs/eval.scm     CO>"G4,".h?]4567gfilenamef rnrs/eval.scm    C>"G41"2h?]4567gfilenamef rnrs/eval.scm    C>"G45"h?]4567gfilenamef rnrs/eval.scm    C>"G678h3]L6+g import-spec     C hp-1345454>"G4O>"G$445>"G"Cg import-specs ngmodule  ng needs-purify?   ngfilenamef rnrs/eval.scm   n gnameg environmentC-RCgm  +giface 2 giface 4giface ; giface  Dgfilenamef rnrs/eval.scm   .    0 C6PKe[b(2z$$enums.gonu[GOOF----LE-8-2.0$]4h] gguile  gdefine-module*   grnrs genums  gfilenameS frnrs/enums.scm gpureS gversionS  gset-current-module   gresolve-r6rs-interface   gonly gand=>  gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module   gbase !   "g conditions #"  $g exceptions %$  &grecords 'g procedural (&'  )g syntax-case *)  +gsrfi ,g:1 -+, .gmodule-export! /. 0. 1gdefine-enumeration 2genum-set-projection 3genum-set-complement 4genum-set-difference 5genum-set-intersection 6genum-set-union 7g enum-set=? 8genum-set-subset? 9genum-set-member? :genum-set->list ;genum-set-constructor gmake-enumeration ?123456789:;<=> @gmodule-re-export! A@ B@ Cgmodule-replace! DC EC Fgmake-record-type-descriptor Ggenum-set Hgmutable Iguniverse JHI Kg immutable Lgset MKL NJM Og enum-set-rtd Pgrecord-constructor Qg"make-record-constructor-descriptor Rg make-enum-set Sgrecord-accessor Tgenum-set-universe-internal Ugrecord-mutator Vgenum-set-universe-set! Wg enum-set-set Xglength Ygmemq Zg list-copy [glset-intersection \geq? ]glset<= ^g lset-union _graise `gmake-assertion-violation aglset-difference bgmake-syntax-transformer cb db egmacro fg $sc-dispatch gf hf igany jgeach-any kiiji lg syntax-object mgbegin ngtop on pgribcage qgdummy rg type-name sgsymbol tgconstructor-syntax uqrst vg m-bfa5881-18 wvn xwooo yf l-bfa5881-1d zf l-bfa5881-1e {f l-bfa5881-1f |f l-bfa5881-20 }yz{| ~pux} p gx  w f l-bfa5881-1a  p o~ gprivate  lm g define-syntax l glambda l gs l  l) gsym l  gif l lY g syntax->datum l gsyntax l   gquote l   gsyntax-violation l gsymbol->string l fnot a member of the set l l  g_ l g... l  glet* l lI gsyms l     gquoted-universe l g datum->syntax l glist l     g quoted-syms l     gor l gevery l l     fnot a subset of the universe l  g quasisyntax l l; l> gunsyntax l          f-source expression failed to match any patternC5hx]4     54>"G454h@]45L68gfilenamefrnrs/enums.scm     CO>"G4!54h@]45L68gfilenamefrnrs/enums.scm     CO>"G4#54h@]45L68gfilenamefrnrs/enums.scm     CO>"G4%54h@]45L68gfilenamefrnrs/enums.scm     CO>"G4(54h@]45L68gfilenamefrnrs/enums.scm     CO>"G4*54h@]45L68gfilenamefrnrs/enums.scm     CO>"G4-54h@]45L68gfilenamefrnrs/enums.scm     CO>"G40?h@]4568gfilenamefrnrs/enums.scm    C>"G4Bh@]4568gfilenamefrnrs/enums.scm    C>"G4Eh@]4568gfilenamefrnrs/enums.scm    C>"G4FiGN5OR4Pi4QiOi55RR4SiOi 5TR4UiOi 5VR4SiOi 5WRRVh] 456g symbol-list  ges gfilenamefrnrs/enums.scm -    gnamegmake-enumerationC>RTh] 45$CC|genum-set  gt gfilenamefrnrs/enums.scm 1    gnamegenum-set-universeC=R:=XYXh-]L45C%gprobe    Ch)]4L5LO6!gx     Ch(]445545OCgenum-set  #gsymbols  #g cardinality   #gfilenamefrnrs/enums.scm 5   # gnamegenum-set-indexerClistC:RYWh]4455$CCgsymbol  genum-set  gfilenamefrnrs/enums.scm F    gnamegenum-set-member?C9R]\W=h@]4445544555$45456Cg enum-set-1  ;g enum-set-2  ;gfilenamefrnrs/enums.scm I   ; gnamegenum-set-subset?C8R8h ]45$6Cg enum-set-1  g enum-set-2  gfilenamefrnrs/enums.scm O    gnameg enum-set=?C7R=R^\W_`h@]4545$ 454454556456g enum-set-1  >g enum-set-2  >gfilenamefrnrs/enums.scm S   > gnamegenum-set-unionC6R=R[\W_`h@]4545$ 454454556456g enum-set-1  >g enum-set-2  >gfilenamefrnrs/enums.scm \   > gnamegenum-set-intersectionC5R=Ra\W_`h@]4545$ 454454556456g enum-set-1  >g enum-set-2  >gfilenamefrnrs/enums.scm e   > gnamegenum-set-differenceC4R=Ra\:Wh(] 454454556genum-set  &guniverse &gfilenamefrnrs/enums.scm n   & gnamegenum-set-complementC3RR=[\W:h(]45445445556g enum-set-1  'g enum-set-2  'gfilenamefrnrs/enums.scm t   ' gnamegenum-set-projectionC2R4d1ehkh}]         Cugdummy  g type-name  gsymbol   gconstructor-syntax     Ch(] 45$@6gx  "gtmp "  " g macro-typeg syntax-rulesgpatternsg type-namegsymbolg...gconstructor-syntaxC51RCwgm  +giface 2 giface 5giface < giface  Egiface L giface  Ugiface \ gfilenamefrnrs/enums.scm   W  n $  } (   )   +  R -   1   5  <  F A  F  I  O  S   \   e  X n  5 t   x C6PKe[̅lists.gonu[GOOF----LE-8-2.0]T4h] gguile  gdefine-module*   grnrs glists  gfilenameS frnrs/lists.scm gpureS gversionS  gset-current-module   gresolve-r6rs-interface   gbase   gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module   gonly gfilter !gmember "gmemv #gmemq $gassoc %gassv &gassq 'gcons* ( !"#$%&'  )grename *gsrfi +gsrfi-1 ,*+ -gany .gevery /gremove 0gfind 1g partition 2g fold-right 3g filter-map 4,-./!$0123  5gexists 6-5 7gfor-all 8.7 9gremp :/9 ;g memp-internal <!; =g assp-internal >$= ?)468:<> @gmodule-export! A@ B@ Cgassp Dgmemp Egremq Fgremv Gg fold-left HCDEF/G Igmodule-re-export! JI KI L'&%$#"!921 570 Mgmodule-replace! NM OM Pgnull? Qgmap Rgcar SgcdrC5h]4     54>"G454h@]45L68gfilenamefrnrs/lists.scm     CO>"G4(54h@]45L68gfilenamefrnrs/lists.scm     CO>"G4?54h@]45L68gfilenamefrnrs/lists.scm     CO>"G4BHh@]4568gfilenamefrnrs/lists.scm    C>"G4KLh@]4568gfilenamefrnrs/lists.scm    C>"G4Oh@]4568gfilenamefrnrs/lists.scm    C>"G5PQRShP-13"145$C445?45""gcombine Mgnil Mglist  Mglists  Mgnil  >glists  >gfilenamefrnrs/lists.scm (  M  gnameg fold-leftCGR9h+]LC#gelt     Chx]O6pgobj  glist  gfilenamefrnrs/lists.scm 0    gnamegremoveC/R9h+]LC#gelt     Chv]O6ngobj  glist  gfilenamefrnrs/lists.scm 1    gnamegremvCFR9h+]LC#gelt     Chv]O6ngobj  glist  gfilenamefrnrs/lists.scm 2    gnamegremqCER;h8]L60gx  gy     Chw]O6ogpred  glist  gfilenamefrnrs/lists.scm 4    gnamegmempCDR=h8]L60gx  gy     Chw]O6ogpred  glist  gfilenamefrnrs/lists.scm 5    gnamegasspCCRCgm  +giface 2 giface 5giface < gfilenamefrnrs/lists.scm   ] (  ; 0   1   2   4   5    C6PKe[Hzz programs.gonu[GOOF----LE-8-2.0b]+4h] gguile  gdefine-module*   grnrs gprograms  gfilenameS frnrs/programs.scm gpureS gversionS  gset-current-module   gresolve-r6rs-interface   gonly g command-line gexit  gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module   !gmodule-export! "! #! $gmodule-re-export! %$ &$ ' (gmodule-replace! )( *(C5hh]4     54>"G454 hC]45L6;gfilenamefrnrs/programs.scm     CO>"G4# hC]456;gfilenamefrnrs/programs.scm    C>"G4& 'hC]456;gfilenamefrnrs/programs.scm    C>"G* hC]456;gfilenamefrnrs/programs.scm    C6`gm  +giface 2 gfilenamefrnrs/programs.scm      C6PKe[C ^^files.gonu[GOOF----LE-8-2.0F]y4hG ] gguile  gdefine-module*   grnrs gfiles  gfilenameS frnrs/files.scm gpureS gversionS  gset-current-module   gresolve-r6rs-interface   grename gonly g file-exists? g delete-file gcatch g@@  gdelete-file-internal   gcall-with-deferred-observers   !gmodule-use-interfaces! "! #! $gcurrent-module %$ &$ 'gbase ('  )g conditions *)  +g exceptions ,+  -gmodule-export! .- /- 0gi/o-error-port 1gi/o-port-error? 2gmake-i/o-port-error 3g &i/o-port 4gi/o-file-does-not-exist-error? 5g"make-i/o-file-does-not-exist-error 6g&i/o-file-does-not-exist 7gi/o-file-already-exists-error? 8g"make-i/o-file-already-exists-error 9g&i/o-file-already-exists :gi/o-file-is-read-only-error? ;g make-i/o-file-is-read-only-error gmake-i/o-file-protection-error ?g&i/o-file-protection @gi/o-error-filename Agi/o-filename-error? Bgmake-i/o-filename-error Cg &i/o-filename Dgi/o-error-position Egi/o-invalid-position-error? Fgmake-i/o-invalid-position-error Gg&i/o-invalid-position Hgi/o-write-error? Igmake-i/o-write-error Jg &i/o-write Kgi/o-read-error? Lgmake-i/o-read-error Mg &i/o-read Ng i/o-error? Ogmake-i/o-error Pg&i/o Q0123456789:;<=>?@ABCDEFGHIJKLMNOP! Rgmodule-re-export! SR TR U Vgmodule-replace! WV XV Y Zgraise [) \gmake-record-type-descriptor ][\ ^[\ _g&error `g list->vector a[` b[` cgrecord-constructor d[c e[c fg"make-record-constructor-descriptor g[f h[f igcondition-predicate j[i k[i lg immutable mgposition nlmD ogcondition-accessor p[o q[o rgrecord-accessor s[r t[r ugfilename vlu@ wgport xlw0C5hX]4     54>"G454 #&h@]45L68gfilenamefrnrs/files.scm     CO>"G4(54 #&h@]45L68gfilenamefrnrs/files.scm     CO>"G4*54 #&h@]45L68gfilenamefrnrs/files.scm     CO>"G4,54 #&h@]45L68gfilenamefrnrs/files.scm     CO>"G4 /&Qh@]4568gfilenamefrnrs/files.scm    C>"G4 T&Uh@]4568gfilenamefrnrs/files.scm    C>"G4 X&Yh@]4568gfilenamefrnrs/files.scm    C>"Gh]L6   CZBh>-134L566gkey gargs   Chp]OO6hgfilename  gfilenamefrnrs/files.scm @    gnameg delete-fileCR4^P_i4b55PR4e4hPi55OR4kPi5NR4^MPi4b55MR4e4hMi55LR4kMi5KR4^JPi4b55JR4e4hJi55IR4kJi5HR4^GPi4bn55GR4e4hGi55FR4kGi5ER4qGi4tGi 55DR4^CPi4bv55CR4e4hCi55BR4kCi5AR4qCi4tCi 55@R4^?Ci4b55?R4e4h?i55>R4k?i5=R4^<?i4b55datum g datum->syntax ggenerate-temporaries g with-syntax g quasisyntax gunsyntax gunsyntax-splicing !  "gcall-with-deferred-observers #" $" %gmodule-use-interfaces! &% '% (gcurrent-module )( *( +gice-9 ,goptargs -+, .gbase /.  0g conditions 10  2g exceptions 32  4grecords 5g procedural 645  7gmodule-export! 87 97 :gmodule-re-export! ;: <: =   >gmodule-replace! ?> @> Agsyntax-violation BA Cgmake-message-condition Dgmake-syntax-violation Egmake-who-condition Fgraise Gg conditionC5h(]4     54>"G4!54$'*hF]45L6>gfilenamefrnrs/syntax-case.scm     CO>"G4-54$'*hF]45L6>gfilenamefrnrs/syntax-case.scm     CO>"G4/54$'*hF]45L6>gfilenamefrnrs/syntax-case.scm     CO>"G4154$'*hF]45L6>gfilenamefrnrs/syntax-case.scm     CO>"G4354$'*hF]45L6>gfilenamefrnrs/syntax-case.scm     CO>"G4654$'*hF]45L6>gfilenamefrnrs/syntax-case.scm     CO>"G4$9*hF]456>gfilenamefrnrs/syntax-case.scm    C>"G4$<*=hF]456>gfilenamefrnrs/syntax-case.scm    C>"G4$@*BhF]456>gfilenamefrnrs/syntax-case.scm    C>"GCDEFGhP-.,3#4545$45"4?6gwho Mgmessage Mgform  Mgsubform  Mg conditions  ( Mg conditions  @ Mgfilenamefrnrs/syntax-case.scm <  M  gnamegsyntax-violationCARCgm  +giface 2 giface ;giface B giface  Kgiface R giface  [gfilenamefrnrs/syntax-case.scm   & <   ( C6PKe[&records/inspection.gonu[GOOF----LE-8-2.0{]_4h] gguile  gdefine-module*   grnrs grecords g inspection  gfilenameS frnrs/records/inspection.scm gpureS gversionS   gset-current-module   gresolve-r6rs-interface   g arithmetic gbitwise  gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module   !gbase "! #g procedural $# %gonly &g struct-ref 'g struct-vtable (gvtable-index-layout )g@@ *%&'() +gmodule-export! ,+ -+ .grecord-field-mutable? /grecord-type-field-names 0grecord-type-opaque? 1grecord-type-sealed? 2grecord-type-generative? 3grecord-type-uid 4grecord-type-parent 5g record-rtd 6./012345 7gmodule-re-export! 87 97 :gmodule-replace! ;: <: =grecord-type-name >grecord? ?=> @# Agrecord-internal? B@A C@A Dgrtd-index-name E@D F@D Ggrtd-index-parent H@G I@G Jg rtd-index-uid K@J L@J Mgrtd-index-sealed? N@M O@M Pgrtd-index-opaque? Q@P R@P Sgrtd-index-field-names T@S U@S Vgrtd-index-field-bit-field W@V X@V Ygassertion-violation Zf not a record [grecord-type-descriptor? \fnot a record type descriptor ]g guarantee-rtd ^gbitwise-bit-set?C5h Y]4     54>"G454 hM]45L6Egfilenamefrnrs/records/inspection.scm     CO>"G4"54 hM]45L6Egfilenamefrnrs/records/inspection.scm     CO>"G4$54 hM]45L6Egfilenamefrnrs/records/inspection.scm     CO>"G4*54 hM]45L6Egfilenamefrnrs/records/inspection.scm     CO>"G4- 6hM]456Egfilenamefrnrs/records/inspection.scm    C>"G49 hM]456Egfilenamefrnrs/records/inspection.scm    C>"G4< ?hM]456Egfilenamefrnrs/records/inspection.scm    C>"GCARFDRIGRLJROMRRPRUSRXVRA0h t]45$ 45CClgobj  gfilenamefrnrs/records/inspection.scm /    gnamegrecord?C>RAPY5Zh@] 45$$""$C6grecord  ?grtd  %gt * ?gfilenamefrnrs/records/inspection.scm 3  ; 7 )  ? gnameg record-rtdC5R[Y\h ]45$C6gwho  grtd  gfilenamefrnrs/records/inspection.scm 9   < !   gnameg guarantee-rtdC]R]=Dh}]45Cugrtd  gfilenamefrnrs/records/inspection.scm >    gnamegrecord-type-nameC=R]4Gh]45Cwgrtd  gfilenamefrnrs/records/inspection.scm @    gnamegrecord-type-parentC4R]3Jh|]45Ctgrtd  gfilenamefrnrs/records/inspection.scm B    gnamegrecord-type-uidC3R3]2h]4455C|grtd  gfilenamefrnrs/records/inspection.scm D    gnamegrecord-type-generative?C2R]1Mh]45Cxgrtd  gfilenamefrnrs/records/inspection.scm F    gnamegrecord-type-sealed?C1R]0Ph]45Cxgrtd  gfilenamefrnrs/records/inspection.scm H    gnamegrecord-type-opaque?C0R]/Sh]45C|grtd  gfilenamefrnrs/records/inspection.scm J    gnamegrecord-type-field-namesC/R^].Vh]456grtd  gk  gfilenamefrnrs/records/inspection.scm L    gnamegrecord-field-mutable?C.RCQgm  +giface 2 giface Jgiface Q giface  jgfilenamefrnrs/records/inspection.scm    #   %   &   '   (   )   *   ,   /   3   9  0 >   @   B  7 D  F  H  7 J  L   C6PKe[j̨((records/procedural.gonu[GOOF----LE-8-2.0(]4h ] gguile  gdefine-module*   grnrs grecords g procedural  gfilenameS frnrs/records/procedural.scm gpureS gversionS   gset-current-module   gresolve-r6rs-interface   gbase  gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module   gonly !gcons* "glogand #glogior $gash %gand=> &gthrow 'gdisplay (g make-struct )g make-vtable *gmap +g simple-format ,g string-append -g symbol-append .gstruct? /g struct-layout 0g struct-ref 1g struct-set! 2g struct-vtable 3gvtable-index-layout 4gmake-hash-table 5g hashq-ref 6g hashq-set! 7g vector->list 8 !"#$%&'()*+,-./01234567 9gice-9 :greceive ;9: <= ?gfold @gsplit-at Agtake B >?@A Cgmodule-export! DC EC Fgrecord-mutator Gg"make-record-constructor-descriptor Hgrecord-type-descriptor? Igmake-record-type-descriptor JFGHI Kgmodule-re-export! LK MK Ngmodule-replace! ON PN Qgrecord-accessor Rgrecord-predicate Sgrecord-constructor TQRS Ugrecord-internal? Vgrtd-index-name Wg rtd-index-uid Xgrtd-index-parent Ygrtd-index-sealed? Zgrtd-index-opaque? [grtd-index-predicate \grtd-index-field-names ]grtd-index-field-bit-field ^grtd-index-field-binder _grctd-index-rtd `grctd-index-parent agrctd-index-protocol bgsymbol->string cf dgvtable-base-layout efprprprprprprprprprpr ff# ggrecord-type-vtable hfprprpr if# jgrecord-constructor-vtable kg uid-table lg immutable mgpr ngmutable ogpw pg r6rs-raise qgmake-assertion-violation rg list->vector sgcadr tf# ug vector-length vglength wg &condition x yg!&condition-constructor-descriptor zg&serious {g&serious-constructor-descriptor |gmake-serious-condition }g &violation ~g!&violation-constructor-descriptor gmake-violation g &assertion g&raise-object-wrapper gobj l g continuation l  gmake-raise-object-wrapper graise-object-wrapper? graise-object-wrapper-obj g!raise-object-wrapper-continuation gr6rs:exception gr6rs-raise-continuableC5hQ]4     54>"G454hM]45L6Egfilenamefrnrs/records/procedural.scm     CO>"G4854hM]45L6Egfilenamefrnrs/records/procedural.scm     CO>"G4;54hM]45L6Egfilenamefrnrs/records/procedural.scm     CO>"G4B54hM]45L6Egfilenamefrnrs/records/procedural.scm     CO>"G4EJhM]456Egfilenamefrnrs/records/procedural.scm    C>"G4MhM]456Egfilenamefrnrs/records/procedural.scm    C>"G4PThM]456Egfilenamefrnrs/records/procedural.scm    C>"GHh}]$6Cugobj  gfilenamefrnrs/records/procedural.scm <    gnamegrecord-internal?CUR VR WR XR YR ZR [R \R ]R ^R _R `R aR4bi4/i4)ic555dR4)i4,idie5+fVhs]6kgobj  gport  gfilenamefrnrs/records/procedural.scm  R '   C5gR4)ih+i_Vhs]6kgobj  gport  gfilenamefrnrs/records/procedural.scm  X '   C5jR44i5kRU%h0^] 45$M$C L6CVgobj  *gt  (  * gnamegprivate-record-predicateCl-mnopq7r*sY5kZVX\]g+tht]L6lgobj  gport  gfilenamefrnrs/records/procedural.scm  *  C(ha-13M @Yg parent-struct gargs   gnameg field-binderC6h_]^H H HHHO   Q "w (  " $ 4 5  "$" 4 5   "4455"4 5   "rKJKJK4 4  4 555K K $& $445>"G""$ 45"$"$ "   $A J J       $ C456JO  J J O K $4>"G"CWgname  gparent  guid   gsealed?   gopaque?   gfields   g fields-pair   g fields-layout   gfields-bit-field   g field-names  glate-rtd  gprivate-record-predicate  g field-list % g layout-sym % glayout-bit-field  % gcounter  % gkey  8 g matching-rtd 3 gopaque? 3 grtd   gfilenamefrnrs/records/procedural.scm ^    gnamegmake-record-type-descriptorCIRgh]$CC}gobj  gfilenamefrnrs/records/procedural.scm    gnamegrecord-type-descriptor?CHRu\X%Gh)]L6!gd    Cj@vh8d-13445M> G4L?@\gargs 4gn-args  4gp-args   4gp  , 4 4 ChP]LOCHgn    gnamegdefault-inherited-protocolChF]C>gp     gnamegdefault-protocolC h` ]H45K$"4O5$"$ O"Cgrtd  ]gparent-constructor-descriptor  ]gprotocol   ]g rtd-arity   ]gprtd   ]gpcd  2 ]gfilenamefrnrs/records/procedural.scm   ] gnameg"make-record-constructor-descriptorCGR_`aS^h.-13LL@&gargs   Ch A-134L?LOC9gargs gstruct    C^h.-13L@&gargs   ChH]!$45O"O6grctd  Ggrtd  Gg parent-rctd   Ggprotocol   Ggparent-record-constructor  & :gfilenamefrnrs/records/procedural.scm   G gnamegrecord-constructorCSR[h~]Cvgrtd  gfilenamefrnrs/records/procedural.scm    gnamegrecord-predicateCRR%h M]L&LC L6Egobj     gnamegrecord-accessor-innerCUpq%h@+]45$"445>"GL&LC L6#gobj  @  @ Ch(] OQOCgrtd  !gk  !grecord-accessor-inner  !gfilenamefrnrs/records/procedural.scm   ! gnamegrecord-accessorCQRh@l] $/L& L"$C "Cdgobj  9gval  9gt   7  9 gnamegrecord-mutator-innerC]pqh<]L64gobj  gval    ChP]OQ  $445>"G"OCgrtd  Mgk  Mgrecord-mutator-inner  Mg bit-field   Egfilenamefrnrs/records/procedural.scm   M gnamegrecord-mutatorCFR4Iiwx5wR4Giwi5yR4Iizwix5zR4Giziyi5{R4Si{i5|R4Ii}zix5}R4Gi}i{i5~R4Si~i5R4Ii}ix5R4Si4Gii~i55qR4Ii5R4Si4Gii55R4Rii5R4Qii 5R4Qii 5R&hx]456pgobj  gfilenamefrnrs/records/procedural.scm     gnameg r6rs-raiseCpR&h`]4L56Xg continuation     gnamegr6rs-raise-continuable-internalCh]OB|gobj  gfilenamefrnrs/records/procedural.scm    gnamegr6rs-raise-continuableCRCIgm  +giface 2 giface Jgiface Q giface  jgfilenamefrnrs/records/procedural.scm    <   ?   @   A   B   C   D   E   F   G   I   J   K   M I  M   P 3  O   V  P U  Z \  ^  @                      4  G  U   j                     {     .   C6PKe[WDBDTDTrecords/syntactic.gonu[GOOF----LE-8-2.0,T]4hF&] gguile  gdefine-module*   grnrs grecords g syntactic  gfilenameS frnrs/records/syntactic.scm gpureS gversionS   gset-current-module   gresolve-r6rs-interface   gonly gand=> ggensym  gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module  ! "gbase #" $g conditions %$ &g exceptions '& (g hashtables )( *glists +* ,g procedural -, .g syntax-case /. 0gsrfi 1g:1 201 3gtake 423 5gmodule-export! 65 75 8grecord-constructor-descriptor 9gdefine-record-type :89 ;gmodule-re-export! <; =; >gmodule-replace! ?> @> Agrecord-type-descriptor BA Cgmake-eq-hashtable Dgrecord-type-registry Egstring->symbol Fg string-append Gfmake- Hgsymbol->string Igguess-constructor-name Jf? Kgguess-predicate-name Lghashtable-set! Mgregister-record-type Ng hashtable-ref Ogcar Pglookup-record-type-descriptor Qgcdr Rg$lookup-record-constructor-descriptor Sgmake-syntax-transformer TS US Vgmacro Wg $sc-dispatch XW YW Zg_ [gany \[[[ ]geach-any ^\] _Z^ `g syntax-object agdefine-record-type0 bgtop cb dgribcage eg record-name fgconstructor-name ggpredicate-name hg record-clause iefgh jcccc kfl-17a5c5a65d375-22 lfl-17a5c5a65d375-23 mfl-17a5c5a65d375-24 nfl-17a5c5a65d375-25 oklmn pdijo qd rgstx sr tc ufl-17a5c5a65d375-1f vu wdstv xcpqw ygprivate zy {`axz |[] }Z| ~g syntax->datum g datum->syntax [[ gt-17a5c5a65d375-38 gt-17a5c5a65d375-37  gm-17a5c5a65d375-39 b  fl-17a5c5a65d375-3d fl-17a5c5a65d375-3e  d g fl-17a5c5a65d375-35  dt f fl-17a5c5a65d375-33  dt grecord-name-sym  fl-17a5c5a65d375-31  dt eh cc fl-17a5c5a65d375-2c fl-17a5c5a65d375-2d  d cqqqqqqqqw `az gsyntax-violation   f-source expression failed to match any pattern  greverse gsequence g number-fields gfree-id g immutable gx  fl-17a5c5a65d375-135  dt gf gguess-mutator-name gguess-accessor-name grecord-name-str g id->string gwrap  cccccc fl-17a5c5a65d375-12a fl-17a5c5a65d375-128 fl-17a5c5a65d375-126 fl-17a5c5a65d375-124 fl-17a5c5a65d375-122 fl-17a5c5a65d375-120  d gfields e fl-17a5c5a65d375-11e fl-17a5c5a65d375-11f  d cq `z  [ f- [[ gmutable `z  [ f-set! [[[ g identifier? finvalid field specifier gmap gprocess-fields g list->vector g fold-left gdefine gt-17a5c5a65d375-79 gt-17a5c5a65d375-78  gm-17a5c5a65d375-7a b  fl-17a5c5a65d375-7e fl-17a5c5a65d375-7f  d glst gc  ccc fl-17a5c5a65d375-75 fl-17a5c5a65d375-76 fl-17a5c5a65d375-77  d g field-names  fl-17a5c5a65d375-6e  dt  fl-17a5c5a65d375-6c  dt gloop g_fields g_parent g _protocol g_sealed g_opaque g_nongenerative g _constructor g _parent-rtd grecord-clauses   cccccccccc  fl-17a5c5a65d375-54 fl-17a5c5a65d375-55 fl-17a5c5a65d375-56 fl-17a5c5a65d375-57 fl-17a5c5a65d375-58 fl-17a5c5a65d375-59 fl-17a5c5a65d375-5a fl-17a5c5a65d375-5b fl-17a5c5a65d375-5c  fl-17a5c5a65d375-5d      d   fl-17a5c5a65d375-4c  fl-17a5c5a65d375-4d fl-17a5c5a65d375-4e fl-17a5c5a65d375-4f    dij g unspecified? g *unspecified*  cc fl-17a5c5a65d375-46 fl-17a5c5a65d375-44  d fl-17a5c5a65d375-43  dst cqqqqq  `z grecord-accessor  `z !glength "gt-17a5c5a65d375-8b #gt-17a5c5a65d375-8a $"# %gm-17a5c5a65d375-8c &%b '&& (fl-17a5c5a65d375-90 )fl-17a5c5a65d375-91 *() +d$'* ,fl-17a5c5a65d375-87 -fl-17a5c5a65d375-88 .fl-17a5c5a65d375-89 /,-. 0d/ 1gfield-accessors 21 3fl-17a5c5a65d375-70 43 5d2t4 6cq+q0q5qqq  7`6z 8grecord-mutator 9`86z :gt-17a5c5a65d375-97 ;: = ?fl-17a5c5a65d375-9b @? Ad;>@ Bgfield-mutators CB Dfl-17a5c5a65d375-82 ED FdCtE GcqAqFq5qqq  H`8Gz Igt-17a5c5a65d375-a0 JI Kgm-17a5c5a65d375-a1 LKb ML Nfl-17a5c5a65d375-a4 ON PdJMO Qg parent-cd RQ Sfl-17a5c5a65d375-94 TS UdRtT VcqPqUqFq5qqq  W`AVz X[[[[[[[[[]]  Ygbegin Zgt-17a5c5a65d375-b2 [gt-17a5c5a65d375-b1 \gt-17a5c5a65d375-b0 ]gt-17a5c5a65d375-af ^gt-17a5c5a65d375-ae _gt-17a5c5a65d375-b4 `gt-17a5c5a65d375-b3 agt-17a5c5a65d375-b6 bgt-17a5c5a65d375-b5 cgt-17a5c5a65d375-b8 dgt-17a5c5a65d375-b7 eZ[\]^_`abcd  fgm-17a5c5a65d375-b9 gfb hggggggggggg  ifl-17a5c5a65d375-bd jfl-17a5c5a65d375-be kfl-17a5c5a65d375-bf lfl-17a5c5a65d375-c0 mfl-17a5c5a65d375-c1 nfl-17a5c5a65d375-c2 ofl-17a5c5a65d375-c3 pfl-17a5c5a65d375-c4 qfl-17a5c5a65d375-c5 rfl-17a5c5a65d375-c6 sfl-17a5c5a65d375-c7 tijklmnopqrs  udeht vgopaque? wv xfl-17a5c5a65d375-ac yx zdwty {gsealed? |{ }fl-17a5c5a65d375-aa ~} d|t~ guid  fl-17a5c5a65d375-a8  dt gprotocol  fl-17a5c5a65d375-a6  dt g parent-rtd  fl-17a5c5a65d375-9d  dt cquqqqqzqqqqqUqFq5qqq  `Yz `z gmake-record-type-descriptor `z gquote `z grecord-constructor `z g"make-record-constructor-descriptor `z gdummy `z glet `z `Mz   grecord-predicate `z gappend   cq  `z  ] [ graise gmake-assertion-violation gparent `z  [ [ `z  [ [ gsealed `z  [ [ gopaque `z  [ [ g nongenerative `z   [ gt-17a5c5a65d375-f2  gm-17a5c5a65d375-f3 b  fl-17a5c5a65d375-f6  d grest  fl-17a5c5a65d375-f0  dt cqq   `z [ [  fl-17a5c5a65d375-f9 fl-17a5c5a65d375-fa  d cq  `z `z  [[ [ Z[ gt-17a5c5a65d375-10a  gm-17a5c5a65d375-10b b  fl-17a5c5a65d375-10e  d gname  fl-17a5c5a65d375-108  dt fl-17a5c5a65d375-105  dst cqq `Pz gt-17a5c5a65d375-116  gm-17a5c5a65d375-117 b  fl-17a5c5a65d375-11a  d fl-17a5c5a65d375-114  dt fl-17a5c5a65d375-111  dst cqq `RzC5hX*b]4     54>"G454!hL]45L6Dgfilenamefrnrs/records/syntactic.scm     CO>"G4#54!hL]45L6Dgfilenamefrnrs/records/syntactic.scm     CO>"G4%54!hL]45L6Dgfilenamefrnrs/records/syntactic.scm     CO>"G4'54!hL]45L6Dgfilenamefrnrs/records/syntactic.scm     CO>"G4)54!hL]45L6Dgfilenamefrnrs/records/syntactic.scm     CO>"G4+54!hL]45L6Dgfilenamefrnrs/records/syntactic.scm     CO>"G4-54!hL]45L6Dgfilenamefrnrs/records/syntactic.scm     CO>"G4/54!hL]45L6Dgfilenamefrnrs/records/syntactic.scm     CO>"G4454!hL]45L6Dgfilenamefrnrs/records/syntactic.scm     CO>"G47!:hL]456Dgfilenamefrnrs/records/syntactic.scm    C>"G4=!hL]456Dgfilenamefrnrs/records/syntactic.scm    C>"G4@!BhL]456Dgfilenamefrnrs/records/syntactic.scm    C>"G4Ci5DREFGHh]44556g record-name  gfilenamefrnrs/records/syntactic.scm #  $ #   gnamegguess-constructor-nameCIREFHJh]44556g record-name  gfilenamefrnrs/records/syntactic.scm %   & @   gnamegguess-predicate-nameCKRLDh]6gname  grtd  grcd   gfilenamefrnrs/records/syntactic.scm '    gnamegregister-record-typeCMRNDOh]456gname  gfilenamefrnrs/records/syntactic.scm )    gnameglookup-record-type-descriptorCPRNDQh]456gname  gfilenamefrnrs/records/syntactic.scm +    gnameg$lookup-record-constructor-descriptorCRR4U9VY_{h]Cg record-name  gconstructor-name  gpredicate-name   g record-clause      C}~IKYhZ]LLCRgt-17a5c5a65d375-38  gt-17a5c5a65d375-37     C h`]*454455445545$ O@ 6g record-name  [g record-clause  [grecord-name-sym  [gconstructor-name   [gpredicate-name  ) [gtmp  2 [gtmp  = [  [ Ch@L]45$@45$@6Dgstx  9gtmp 9gtmp  " 9  9 C59Rh ?] $C4L5C7gn     gnameg seq-innerCh ] OQ456gn  g seq-inner gfilenamefrnrs/records/syntactic.scm A    gnamegsequenceCRh c](C4L5C[gfields  gcounter     gnamegnumber-fields-innerCh] OQ 6gfields  gnumber-fields-inner gfilenamefrnrs/records/syntactic.scm D    gnameg number-fieldsCRY~EFHhP}] 454L544M4455554L5Cugname  Igx  gx 6 Dgfilenamefrnrs/records/syntactic.scm & T (  I C~h(Q] 454L5CIgname  #gaccessor  #gx     # C~EFH hx] 454L544M4455554L544M4455554L5Cgname  rgx  gx 6 Dgx ` ngfilenamefrnrs/records/syntactic.scm & T ( N Y  \ Y 5  r C~h(f] 454L5C^gname  $gaccessor  $gmutator   $gx     $ Ch,]6$gname     C~EFHhP}] 454L544M4455554L5Cugname  Igx  gx 6 Dgfilenamefrnrs/records/syntactic.scm & T (  I C9h])45$ LLO@45$ LO@45$ LLO@45$  LO@4 ?$  LLO@  6gx  gtmp gtmp  ) gtmp  E gtmp  c gtmp  { gfilenamefrnrs/records/syntactic.scm n /  gnamegfCH~h0]HOQ4455K6g record-name  +gfields  +grecord-name-str   +gf   +gfilenamefrnrs/records/syntactic.scm L   + gnamegprocess-fieldsCR4UaVY_YOY hZ]LCRgt-17a5c5a65d375-79  gt-17a5c5a65d375-78     ChHk]45$4LO?" 45Ccglst  Bgx  Bgc   Bgtmp  >gtmp   ;  B C!Y79hZ]LCRgt-17a5c5a65d375-8b  gt-17a5c5a65d375-8a     ChPk]$A45$4LO?" 45CCcglst  Ogx  Ogc   Ogtmp   Hgtmp  E  O CHWYX h, 3 LLLL LLL L L4   5C~gt-17a5c5a65d375-b2  gt-17a5c5a65d375-b1  gt-17a5c5a65d375-b0   gt-17a5c5a65d375-af   gt-17a5c5a65d375-ae   gt-17a5c5a65d375-b4   gt-17a5c5a65d375-b3   gt-17a5c5a65d375-b6   gt-17a5c5a65d375-b5   gt-17a5c5a65d375-b8  gt-17a5c5a65d375-b7     Ch`]844LL&"L554LOLL&"L44LL&"L5554LOLL&"L44LL&"L555LL&LL&"L" LLL&LL&"L" LLL&"LLL&"LLL&"LLL&"LLL&"L 4  5$ L L LO@6g field-names  ]gfield-accessors T ]gfield-mutators  ]g parent-cd  ]g parent-rtd  ]gtmp  2 ]gtmp  = ]  ] Ch0G]L L &L4L5LLLLLLL6 456?g record-fields  0grest  0  0 Ch@E]L L&'L L&LLLLLLLL6 456456=g parent-name  :grest  :  : Ch0D]L L&LLLLLLLL6 456<g expression  )grest  )  ) Ch0A]L L&LLLLLLLL6 4569gsealed?  )grest  )  ) Ch0A]L L&LLLLLLLL6 4569gopaque?  )grest  )  ) Ch@<] L L &,LLLLLL4L455LL6 4564grest  ?gtmp " .  ? Ch0=]L L&LLLLLLLL6 4565guid  .grest  .  . Ch@M]L L&,L L&LLLLLLLL6 456456Egrtd  ?gcd  ?grest   ?  ? Ch, 345  $LLLLO  @45  $LLLO  @45  $LLO  @45  $LLO  @4 5  $ LLO  @4 5$ LLO @4 5$LLLO @45$LLO @45$LLO @6g_fields  g_parent  g _protocol   g_sealed   g_opaque   g_nongenerative   g _constructor   g _parent-rtd   grecord-clauses   gtmp  gtmp > gtmp n gtmp gtmp gtmp  gtmp  & gtmp  V gtmp      gnamegloopCh8] OLQLLLLLLLL6 g record-name  1gconstructor-name  1gpredicate-name   1g record-clause   1gloop   1  1 Ch0V]45$ O@6Ngstx  ,g *unspecified*  ,gtmp   ,  , C5aR4UAVY~h <] 4L455C4gname  gtmp     Ch(;] 45$ O@63gstx  'gtmp '  ' C5AR4U8VY~h <] 4L455C4gname  gtmp     Ch(;] 45$ O@63gstx  'gtmp '  ' C58RCZgm  +giface 2 giface Igiface P giface  igiface p giface  giface  giface  giface  9 gfilenamefrnrs/records/syntactic.scm    !   #  K %   '  )  +   A  O D  ] L   *R C6PKe[ą ! ! hashtables.gonu[GOOF----LE-8-2.0 ]4h ] gguile  gdefine-module*   grnrs g hashtables  gfilenameS frnrs/hashtables.scm gpureS gversionS  gset-current-module   gresolve-r6rs-interface   grename gonly gstring-hash-ci g string-hash ghashq ghashv gmodulo g *unspecified* g@@   gstring-ci-hash   !gcall-with-deferred-observers "! #! $gmodule-use-interfaces! %$ &$ 'gcurrent-module (' )' *gice-9 +goptargs ,*+ -gdefine* .,- /gsrfi 0g:69 1/0 2gmake-hash-table 3ghash 4ghash-by-identity 5ghash-table-size 6ghash-table-ref/default 7ghash-table-set! 8ghash-table-delete! 9ghash-table-exists? :ghash-table-update!/default ;ghash-table-copy ghash-table-keys ?ghash-table-fold @123456789:;<=>? Ag equal-hash B3A Cg symbol-hash D4C E@BD Fgbase GF  Hgrecords Ig procedural JHI  Kgmodule-export! LK MK Nghashtable-mutable? Oghashtable-hash-function Pghashtable-equivalence-function Qghashtable-entries Rghashtable-keys Sghashtable-clear! Tghashtable-copy Ughashtable-update! Vghashtable-contains? Wghashtable-delete! Xghashtable-set! Yg hashtable-ref Zghashtable-size [g hashtable? \gmake-hashtable ]gmake-eqv-hashtable ^gmake-eq-hashtable _NOPQRSTUVWXYZ[\]^ `gmodule-re-export! a` b` cCA dgmodule-replace! ed fd ggmake-record-type-descriptor hgr6rs:hashtable igmutable jg wrapped-table kij lg immutable mgorig-hash-function nlm oli pkno qgrecord-predicate rgrecord-constructor sg"make-record-constructor-descriptor tgmake-r6rs-hashtable ugrecord-accessor vgr6rs:hashtable-wrapped-table wgrecord-mutator xg!r6rs:hashtable-set-wrapped-table! yg!r6rs:hashtable-orig-hash-function zgr6rs:hashtable-mutable? {gsrfi-69 |/{ }gcaller-with-default-size ~|} |} g hash-by-value gwrap-hash-function geq? geqv? gsrfi-69:hash-table | | gsrfi-9 / gthrow-bad-struct   g list->vector g make-vectorC5h]4     54>"G4 54#&)hE]45L6=gfilenamefrnrs/hashtables.scm     CO>"G4.54#&)hE]45L6=gfilenamefrnrs/hashtables.scm     CO>"G4E54#&)hE]45L6=gfilenamefrnrs/hashtables.scm     CO>"G4G54#&)hE]45L6=gfilenamefrnrs/hashtables.scm     CO>"G4J54#&)hE]45L6=gfilenamefrnrs/hashtables.scm     CO>"G4#M)_hE]456=gfilenamefrnrs/hashtables.scm    C>"G4#b)chE]456=gfilenamefrnrs/hashtables.scm    C>"G4#f)hE]456=gfilenamefrnrs/hashtables.scm    C>"G4gihp5hR4qihi5[R4ri4sihi55tR4uihi 5vR4wihi 5xR4uihi 5yR4uihi 5zRziNR4i5RhA]4L5C9gkey  gcapacity    Chx]OCpgproc  gfilenamefrnrs/hashtables.scm [   gnamegwrap-hash-functionCRt2Ch@u-.,3#$45" 456mgk :gfilenamefrnrs/hashtables.scm ^  : gnamegmake-eq-hashtableC^Rt2h@v-.,3#$45" 456ngk :gfilenamefrnrs/hashtables.scm d  : gnamegmake-eqv-hashtableC]Rt2hH-.,3#45$45" 456g hash-function Cgequiv Cgk  Cgwrapped-hash-function   Cgfilenamefrnrs/hashtables.scm j  C  gnamegmake-hashtableC\R5vhy]456qg hashtable  gfilenamefrnrs/hashtables.scm s   gnameghashtable-sizeCZR6vh]456g hashtable  gkey  gdefault   gfilenamefrnrs/hashtables.scm v    gnameg hashtable-refCYRz7vh0]45$445>"G"Cg hashtable  .gkey  .gobj   .gfilenamefrnrs/hashtables.scm z   . gnameghashtable-set!CXRz8vh0]45$445>"G"Cg hashtable  ,gkey  ,gfilenamefrnrs/hashtables.scm    , gnameghashtable-delete!CWR9vh]456g hashtable  gkey  gfilenamefrnrs/hashtables.scm    gnameghashtable-contains?CVRz:vh0]45$!445>"G"Cg hashtable  0gkey  0gproc   0gdefault   0gfilenamefrnrs/hashtables.scm   0 gnameghashtable-update!CURt;vyh8-.,3#445545$"6g hashtable 8gmutable 8gfilenamefrnrs/hashtables.scm  8 gnameghashtable-copyCTRzv<yx2 h-.,3#45$x45&  " 4545454$4 5" 4 5>"G"Cg hashtable gk ght  ' gequiv  D g hash-function  M gwrapped-hash-function  V gfilenamefrnrs/hashtables.scm  gnameghashtable-clear!CSR>vhz]44556rg hashtable  gfilenamefrnrs/hashtables.scm    gnameghashtable-keysCRRv5?hG]LLC?gk  gv  gi      ChP]!45454545445O >"GDg hashtable  Mght Mgsize   Mgkeys   Mgvals  $ Mgfilenamefrnrs/hashtables.scm   M gnameghashtable-entriesCQRv<h(] 45& C6g hashtable  "gs "gfilenamefrnrs/hashtables.scm   " gnameghashtable-equivalence-functionCPRyh]6{g hashtable  gfilenamefrnrs/hashtables.scm    gnameghashtable-hash-functionCORCgm  +giface 2 giface :giface A giface  Jgiface Q gfilenamefrnrs/hashtables.scm   L H  Z O  q P   S   T   U   V   X   Z   [   ^  a d   j  $ s  v  z    k  h  J      M  +      C6PKe[r5rs.gonu[GOOF----LE-8-2.0]84h] gguile  gdefine-module*   grnrs gr5rs  gfilenameS f rnrs/r5rs.scm gpureS gversionS  gset-current-module   gresolve-r6rs-interface   gonly gexact->inexact ginexact->exact gquotient g remainder gmodulo gdelay gforce   gcall-with-deferred-observers   gmodule-use-interfaces! !  "  #gcurrent-module $# %# &gice-9 '& (gscheme-report-environment )'( *g safe-r5rs +&* ,gnull-environment -+, .gmodule-export! /. 0. 1gmodule-re-export! 21 31 4(,  5gmodule-replace! 65 75C5h]4     54>"G454"%h?]45L67gfilenamef rnrs/r5rs.scm     CO>"G4)54"%h?]45L67gfilenamef rnrs/r5rs.scm     CO>"G4-54"%h?]45L67gfilenamef rnrs/r5rs.scm     CO>"G40%h?]4567gfilenamef rnrs/r5rs.scm    C>"G43%4h?]4567gfilenamef rnrs/r5rs.scm    C>"G7%h?]4567gfilenamef rnrs/r5rs.scm    C6gm  +giface 2 giface 4giface ; gfilenamef rnrs/r5rs.scm      C6PKe[8$sbytevectors.gonu[GOOF----LE-8-2.0 ]n4ho ] gguile  gdefine-module*   grnrs g bytevectors  gfilenameS frnrs/bytevectors.scm gversionS  gexportsS g endianness gnative-endianness g bytevector? gmake-bytevector gbytevector-length g bytevector=? gbytevector-fill! gbytevector-copy! gbytevector-copy guniform-array->bytevector gbytevector-u8-ref gbytevector-s8-ref gbytevector-u8-set! gbytevector-s8-set! gbytevector->u8-list gu8-list->bytevector gbytevector-uint-ref gbytevector-uint-set! gbytevector-sint-ref !gbytevector-sint-set! "gbytevector->sint-list #gbytevector->uint-list $guint-list->bytevector %gsint-list->bytevector &gbytevector-u16-ref 'gbytevector-s16-ref (gbytevector-u16-set! )gbytevector-s16-set! *gbytevector-u16-native-ref +gbytevector-s16-native-ref ,gbytevector-u16-native-set! -gbytevector-s16-native-set! .gbytevector-u32-ref /gbytevector-s32-ref 0gbytevector-u32-set! 1gbytevector-s32-set! 2gbytevector-u32-native-ref 3gbytevector-s32-native-ref 4gbytevector-u32-native-set! 5gbytevector-s32-native-set! 6gbytevector-u64-ref 7gbytevector-s64-ref 8gbytevector-u64-set! 9gbytevector-s64-set! :gbytevector-u64-native-ref ;gbytevector-s64-native-ref gbytevector-ieee-single-ref ?gbytevector-ieee-single-set! @g!bytevector-ieee-single-native-ref Ag"bytevector-ieee-single-native-set! Bgbytevector-ieee-double-ref Cgbytevector-ieee-double-set! Dg!bytevector-ieee-double-native-ref Eg"bytevector-ieee-double-native-set! Fg string->utf8 Gg string->utf16 Hg string->utf32 Ig utf8->string Jg utf16->string Kg utf32->string L !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJK> Mgset-current-module NM OM Pgload-extension Qg string-append Rf libguile- Sgeffective-version Tfscm_init_bytevectors Ugmake-syntax-transformer VU WU Xgmacro Yg $sc-dispatch ZY [Y \g_ ]gany ^\] _g syntax->datum `_ a_ bg datum->syntax cb db egbig fglittle ggquote hgerror ifunsupported endianness jgsyntax-violation kj lj mf-source expression failed to match any patternC5hX]4     L54O>"G4Pi4QiR4Si55T>"G4WX[^adefghih(]&"$C6xgsym  (gfilenamefrnrs/bytevectors.scm M N   N   O  $ P ( P   ( Chh] 45L4?6`gargs  gv gfilenamefrnrs/bytevectors.scm  M    Clmh(f] 45$ O@6^gy  'gtmp 'gfilenamefrnrs/bytevectors.scm M   ' C5RCgm  ,gfilenamefrnrs/bytevectors.scm   - J 2 J  8 J  9 J + A J  C K  H J   U C6PKe[vߧmutable-pairs.gonu[GOOF----LE-8-2.0]+4h] gguile  gdefine-module*   grnrs g mutable-pairs  gfilenameS frnrs/mutable-pairs.scm gpureS gversionS  gset-current-module   gresolve-r6rs-interface   gonly gset-car! gset-cdr!  gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module   !gmodule-export! "! #! $gmodule-re-export! %$ &$ ' (gmodule-replace! )( *(C5h(m]4     54>"G454 hH]45L6@gfilenamefrnrs/mutable-pairs.scm     CO>"G4# hH]456@gfilenamefrnrs/mutable-pairs.scm    C>"G4& 'hH]456@gfilenamefrnrs/mutable-pairs.scm    C>"G* hH]456@gfilenamefrnrs/mutable-pairs.scm    C6egm  +giface 2 gfilenamefrnrs/mutable-pairs.scm     " C6PKe[Eh h unicode.gonu[GOOF----LE-8-2.0P ]K4h] gguile  gdefine-module*   grnrs gunicode  gfilenameS frnrs/unicode.scm gpureS gversionS  gset-current-module   gresolve-r6rs-interface   gonly g char-upcase g char-downcase gchar-titlecase g char-ci=? g char-ci? g char-ci<=? g char-ci>=? gchar-alphabetic? g char-numeric? gchar-whitespace? gchar-upper-case? !gchar-lower-case? "gchar-set-contains? #gchar-set:title-case $gchar-general-category %g string-upcase &gstring-downcase 'gstring-titlecase (g string-ci=? )g string-ci? +g string-ci<=? ,g string-ci>=? -gstring-normalize-nfd .gstring-normalize-nfkd /gstring-normalize-nfc 0gstring-normalize-nfkc 1 !"#$%&'()*+,-./0! 2gcall-with-deferred-observers 32 42 5gmodule-use-interfaces! 65 75 8gcurrent-module 98 :8 ;gbase <;  =gmodule-export! >= ?= @gstring-foldcase Agchar-title-case? Bg char-foldcase C@AB Dgmodule-re-export! ED FD G0/.-,+*)('&%$!  Hgmodule-replace! IH JHC5h]4     54>"G415447:hB]45L6:gfilenamefrnrs/unicode.scm     CO>"G4<5447:hB]45L6:gfilenamefrnrs/unicode.scm     CO>"G44?:ChB]456:gfilenamefrnrs/unicode.scm    C>"G44F:GhB]456:gfilenamefrnrs/unicode.scm    C>"G44J:hB]456:gfilenamefrnrs/unicode.scm    C>"Gh0p]0$"1$C456hgchar  -gfilenamefrnrs/unicode.scm `   - gnameg char-foldcaseCBR"#hs]6kgchar  gfilenamefrnrs/unicode.scm d   gnamegchar-title-case?CAR&%hq]456igstr  gfilenamefrnrs/unicode.scm f   gnamegstring-foldcaseC@RCgm  +giface 2 giface 7gfilenamefrnrs/unicode.scm   S `   d   f    C6PKe[H77 exceptions.gonu[GOOF----LE-8-2.07]4ht] gguile  gdefine-module*   grnrs g exceptions  gfilenameS frnrs/exceptions.scm gpureS gversionS  gset-current-module   gresolve-r6rs-interface   gbase   gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module   gcontrol   !g conditions "!  #grecords $g procedural %#$  &g inspection '#&  (gonly )gformat *gnewline +gdisplay ,gfilter -gacons .gassv-ref /gthrow 0gset-exception-printer! 1gwith-throw-handler 2g *unspecified* 3g@@ 4()*+,-./0123  5gmodule-export! 65 75 8graise-continuable 9gwith-exception-handler :gguard ;89: < ?gmodule-replace! @? A? Bgraise CB D! Egmake-record-type-descriptor FDE GDE Hg&guile Ig &condition Jg list->vector KDJ LDJ Mg immutable Ngkey Ogguile-condition-key PMNO Qgargs Rgguile-condition-args SMQR Tgrecord-constructor UDT VDT Wg"make-record-constructor-descriptor XDW YDW Zgmake-guile-condition [gcondition-predicate \D[ ]D[ ^gguile-condition? _gcondition-accessor `D_ aD_ bgrecord-accessor cDb dDb eg condition fgmake-serious-condition ggguile-common-conditions hg!default-guile-condition-converter igmake-who-condition jgmake-message-condition kgmake-irritants-condition lgguile-condition-converters mgconvert-guile-condition n#$ og r6rs-raise pno qno rgr6rs-raise-continuable snr tnr ugraise-object-wrapper? vnu wnu xgraise-object-wrapper-obj ynx znx {g!raise-object-wrapper-continuation |n{ }n{ ~gr6rs:exception gmake-non-continuable-violation gmake-syntax-transformer   gguard0 gmacro g $sc-dispatch   gany geach-any    g syntax-object gcall/cc gtop  gribcage gdummy gvariable g cond-clause gbody  gm-302a4a91bf89d3-3f   fl-302a4a91bf89d3-44 fl-302a4a91bf89d3-45 fl-302a4a91bf89d3-46 fl-302a4a91bf89d3-47    gx   fl-302a4a91bf89d3-41    gprivate   glambda  g continuation   9 gcond  gsyntax-violation   f-source expression failed to match any pattern geach+ gfree-id gelse gm-302a4a91bf89d3-4d   fl-302a4a91bf89d3-4f         Ō  nj g else-clause   fl-302a4a91bf89d3-52 fl-302a4a91bf89d3-53 fl-302a4a91bf89d3-54 fl-302a4a91bf89d3-55 fl-302a4a91bf89d3-56     gappend     fl-302a4a91bf89d3-5f fl-302a4a91bf89d3-60 fl-302a4a91bf89d3-61 fl-302a4a91bf89d3-62      B glength g condition? fERROR: R6RS exception:  gformat-condition fERROR: R6RS exception: `~s' gexception-printer gsimple-conditions fEmpty condition object f ~a.  gformat-simple-condition grecord-type-name g record-rtd grecord-type-field-names grecord-type-parent g vector-length greverse f~a f~a: ~s f~a:  f ~a: ~s gmake-syntax-violation g guile-syntax-violation-converter gmake-lexical-violation g!guile-lexical-violation-converter gmake-assertion-violation g#guile-assertion-violation-converter gmake-undefined-violation g#guile-undefined-violation-converter g)make-implementation-restriction-violation g*guile-implementation-restriction-converter g make-error gguile-error-converter gguile-system-error-converter g read-error g syntax-error gunbound-variable gwrong-number-of-args  gwrong-type-arg  gkeyword-argument-error  g out-of-range  gregular-expression-syntax  g program-error g goops-error gnull-pointer-error g system-error ghost-not-found ggetaddrinfo-error gno-data g no-recovery g try-again gstack-overflow gnumerical-overflow gmemory-allocation-error gset-guile-condition-converter!C5h@]4     54>"G454hE]45L6=gfilenamefrnrs/exceptions.scm     CO>"G4 54hE]45L6=gfilenamefrnrs/exceptions.scm     CO>"G4"54hE]45L6=gfilenamefrnrs/exceptions.scm     CO>"G4%54hE]45L6=gfilenamefrnrs/exceptions.scm     CO>"G4'54hE]45L6=gfilenamefrnrs/exceptions.scm     CO>"G4454hE]45L6=gfilenamefrnrs/exceptions.scm     CO>"G47;hE]456=gfilenamefrnrs/exceptions.scm    C>"G4>hE]456=gfilenamefrnrs/exceptions.scm    C>"G4AChE]456=gfilenamefrnrs/exceptions.scm    C>"G4GHIi4LPS55HR4V4YHi55ZR4]Hi5^R4aHi4dHi 55OR4aHi4dHi 55RRefgh]45456gkey  gargs  gfilenamefrnrs/exceptions.scm 2    gnameg!default-guile-condition-converterChReijkh8z*134545456-13L6rgsubr %gmsg %gmargs  %g_  %g_ . 4 %   . 4 Ch]O@gkey  gargs  gfilenamefrnrs/exceptions.scm 6   gnamegguile-common-conditionsCgR.lehZhH]45$ 45"$" 45456gkey  Hgargs  Hg converter  Hgt  # =gfilenamefrnrs/exceptions.scm ?   H gnamegconvert-guile-conditionCmR^/ORqh(j]45$4545@6bgobj  %gfilenamefrnrs/exceptions.scm O   % gnamegraiseCBRt8RwuRzxR}{R1~ux{Bmh-13&N("45$545454L5$6456C454L>"G456gkey gargs gcargs  + ]gobj  4 ]g continuation  = ]ghandler-return  F ]gobj  h  Ch]O6ghandler  gthunk  gfilenamefrnrs/exceptions.scm ]    gnamegwith-exception-handlerC9R4h0n]Cfgdummy  /gvariable  /g cond-clause   /gbody   /  / Ch(] 45$@6gx  "gtmp "  " g macro-typeg syntax-rulesgpatternsgvariableg cond-clauseg...gbodyC5R4:h ]45Cgdummy  gvariable  g cond-clause   g else-clause   gbody      Ch(n]45Cfgdummy  "gvariable  "g cond-clause   "gbody   "  " Ch@]45$@45$@6gx  9gtmp 9gtmp  " 9  9 g macro-typeg syntax-rulesgpatternsgvariableg cond-clauseg...gelseg else-clauseg...gbodygvariableg cond-clauseg...gbodyC5:Rux+) h`] 45$K45$;4545$4>"G6 666gport  ^gkey  ^gargs   ^gpunt   ^gobj  # Vgfilenamefrnrs/exceptions.scm  5  R !  ^ gnamegexception-printerCR)*h]45(6"`$W4>"G4>"G$4>"G""C "gport  g condition  g components  gi   }g components   }gfilenamefrnrs/exceptions.scm    +   gnamegformat-conditionCR,h2]45 C*g rtd.fields     C)b*hx]Z4455"P$,454545"4455 $   6 $  44  5564  >"G"$  4 5 "]  $"W4   44   55>"G  $"4>"G  "  "   $4>"G""IC"?45 "gport  wg condition  wgcondition-name   wgrtd   dgrtd.fields-list   dgn-fields   dg field-names  ! Fgrtd.fields-list  T dglst  \g rtd.fields  Zgrtd 3g field-names 3gn-fields -gi #gfilenamefrnrs/exceptions.scm  d % v % !   w gnamegformat-simple-conditionCR40i~i>"Geijh8*!134545456-13Cgwho 'gwhat 'gwhere  'gform  'gsubform  'gextra  'g_ 0 2 '   0 2 Ch]@gkey  gargs  gfilenamefrnrs/exceptions.scm    gnameg guile-syntax-violation-converterCRegh]45456gkey  gargs  gfilenamefrnrs/exceptions.scm    gnameg!guile-lexical-violation-converterCRegh]45456gkey  gargs  gfilenamefrnrs/exceptions.scm    gnameg#guile-assertion-violation-converterCRegh]45456gkey  gargs  gfilenamefrnrs/exceptions.scm    gnameg#guile-undefined-violation-converterCRegh]45456gkey  gargs  gfilenamefrnrs/exceptions.scm    gnameg*guile-implementation-restriction-converterCRegh]45456gkey  gargs  gfilenamefrnrs/exceptions.scm    gnamegguile-error-converterCRegh0*13454LL56-13LL6gsubr gmsg gmsg-args  gerrno  grest  g_ ' /    ' / Ch]O@gkey  gargs  gfilenamefrnrs/exceptions.scm    gnamegguile-system-error-converterCRiiii i i i i iiiiiiiiiiiilRlh] Cgkey  gproc  gfilenamefrnrs/exceptions.scm     gnamegset-guile-condition-converter!CRCgm  +giface 2 giface :giface A giface  Jgiface Q giface  Zgfilenamefrnrs/exceptions.scm    -   2  q 6   ?  5 O  : S  ? V  D X  I Z  U ]      x  y  ;        v  9      :    < C6PKe[p@&& conditions.gonu[GOOF----LE-8-2.0%]4h$] gguile  gdefine-module*   grnrs g conditions  gfilenameS frnrs/conditions.scm gpureS gversionS  gset-current-module   gresolve-r6rs-interface   gonly gand=> g@@  gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module   !gbase "!  #glists $#  %grecords &g procedural '%&  (gmodule-export! )( *( +gundefined-violation? ,gmake-undefined-violation -g &undefined .gsyntax-violation-subform /gsyntax-violation-form 0gsyntax-violation? 1gmake-syntax-violation 2g&syntax 3glexical-violation? 4gmake-lexical-violation 5g&lexical 6g%implementation-restriction-violation? 7g)make-implementation-restriction-violation 8g&implementation-restriction 9gnon-continuable-violation? :gmake-non-continuable-violation ;g&non-continuable gmake-who-condition ?g&who @gcondition-irritants Agirritants-condition? Bgmake-irritants-condition Cg &irritants Dgassertion-violation? Egmake-assertion-violation Fg &assertion Gg violation? Hgmake-violation Ig &violation Jgerror? Kg make-error Lg&error Mgserious-condition? Ngmake-serious-condition Og&serious Pgwarning? Qg make-warning Rg&warning Sgcondition-message Tgmessage-condition? Ugmake-message-condition Vg&message Wgdefine-condition-type Xgcondition-accessor Ygcondition-predicate Zg condition? [gsimple-conditions \g condition ]g &condition ^+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]3 _gmodule-re-export! `_ a_ bgmodule-replace! cb db egmake-record-type-descriptor fg&compound-condition gg immutable hg components igh ji kgrecord-predicate lgcompound-condition? mgrecord-constructor ng"make-record-constructor-descriptor ogmake-compound-condition pgrecord-accessor qgcondition-internal? rgassertion-violation sfnot a condition tgfor-all ufnon-condition argument vglength wgappend xgmap ygmake-syntax-transformer zy {y |gmacro }g $sc-dispatch ~} } gany geach        g syntax-object g letrec-syntax gtop  gribcage gdummy gcondition-type g supertype g constructor g predicate gfield gaccessor  gm-2f221686982dd3-f   fl-2f221686982dd3-14 fl-2f221686982dd3-15 fl-2f221686982dd3-16 fl-2f221686982dd3-17 fl-2f221686982dd3-18 fl-2f221686982dd3-19 fl-2f221686982dd3-1a    gx   fl-2f221686982dd3-11    gprivate   gtransform-fields  g syntax-rules  g_  gf  ga   grest    gcons  gquote  g           ggenerate-accessors  gcounter   ό gbegin  gdefine  X p  g+      ܌      e  g list->vector  x x glist m n  Y   gsyntax-violation   f-source expression failed to match any pattern %& ] ] g!&condition-constructor-descriptor gexists gfind gmessage gS O O N N I I H H F F E E g irritants g@  gwho  g <  gform  g /  gsubform g .C5h]4     54>"G454 hE]45L6=gfilenamefrnrs/conditions.scm     CO>"G4"54 hE]45L6=gfilenamefrnrs/conditions.scm     CO>"G4$54 hE]45L6=gfilenamefrnrs/conditions.scm     CO>"G4'54 hE]45L6=gfilenamefrnrs/conditions.scm     CO>"G4* ^hE]456=gfilenamefrnrs/conditions.scm    C>"G4a hE]456=gfilenamefrnrs/conditions.scm    C>"G4d hE]456=gfilenamefrnrs/conditions.scm    C>"G4eifj5fR4kifi5lR4mi4nifi55oR4pifi 5lqr[sh0_]45$L645$C6Wg condition  .gfilenamefrnrs/conditions.scm * j $  . CO[Rlqh }] 45$C6ugobj  gt gfilenamefrnrs/conditions.scm m    gnameg condition?CZRtZr\uvowxl[h @]45$6C8gcond     gnamegflattenC hh-1345$"4>"G(" 45 $44  5?6C~g conditions egt  7gfilenamefrnrs/conditions.scm % u * e gnameg conditionC\R4{W|h]     4545Cgdummy  gcondition-type  g supertype   g constructor   g predicate   gfield   gaccessor     Ch(] 45$@6gx  "gtmp "  " g macro-typeg syntax-rulesgpatternsgcondition-typeg supertypeg constructorg predicategfieldgaccessorg...C5WR]R4ni]i5R4ki]i5qRkl[qh0+]45$ L45645$L6C#gobj  -  - Ch] 45OCgrtd  g rtd-predicate gfilenamefrnrs/conditions.scm    gnamegcondition-predicateCYRkl[h8+]4L5$L645$4L455L6C#gobj  4  4 Ch] 45OCgrtd  gproc  g rtd-predicate  gfilenamefrnrs/conditions.scm    gnamegcondition-accessorCXR4eiV]i4i55VR4mi4niVi55UR4YiVi5TR4XiVi4piVi 55SR4eiR]i4i55RR4mi4niRi55QR4YiRi5PRORNR4YiOi5MR4eiLOi4i55LR4mi4niLi55KR4YiLi5JRIRHR4YiIi5GRFRER4YiFi5DR4eiC]i4i55CR4mi4niCi55BR4YiCi5AR4XiCi4piCi 55@R4ei?]i4i 55?R4mi4ni?i55>R4Yi?i5=R4Xi?i4pi?i 55gmodule-export! ?> @> Agmodule-re-export! BA CA Dgi/o-error-port Egi/o-port-error? Fgmake-i/o-port-error Gg &i/o-port Hgi/o-file-does-not-exist-error? Ig"make-i/o-file-does-not-exist-error Jg&i/o-file-does-not-exist Kgi/o-file-already-exists-error? Lg"make-i/o-file-already-exists-error Mg&i/o-file-already-exists Ngi/o-file-is-read-only-error? Og make-i/o-file-is-read-only-error Pg&i/o-file-is-read-only Qgi/o-file-protection-error? Rgmake-i/o-file-protection-error Sg&i/o-file-protection Tgi/o-error-filename Ugi/o-filename-error? Vgmake-i/o-filename-error Wg &i/o-filename Xgi/o-error-position Ygi/o-invalid-position-error? Zgmake-i/o-invalid-position-error [g&i/o-invalid-position \gi/o-write-error? ]gmake-i/o-write-error ^g &i/o-write _gi/o-read-error? `gmake-i/o-read-error ag &i/o-read bg i/o-error? cgmake-i/o-error dg&i/o eDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcd543'&( fgmodule-replace! gf hf igwrite jgdisplay kgnewline lg write-char mgread ng peek-char og read-char pgclose-output-port qgclose-input-port rgopen-output-file sgopen-input-file tgwith-output-to-file ugwith-input-from-file vgcall-with-output-file wgcall-with-input-file xijklmnopqrstuvw yj zj {genums |{ }genum-set-constructor ~|} |} gmake-enumeration | | g no-create gno-fail g no-truncate  gblockC5h 7]4     54>"G4(54+.1hD]45L6<gfilenamefrnrs/io/simple.scm     CO>"G4954+.1hD]45L6<gfilenamefrnrs/io/simple.scm     CO>"G4;54+.1hD]45L6<gfilenamefrnrs/io/simple.scm     CO>"G4=54+.1hD]45L6<gfilenamefrnrs/io/simple.scm     CO>"G4+@1hD]456<gfilenamefrnrs/io/simple.scm    C>"G4+C1ehD]456<gfilenamefrnrs/io/simple.scm    C>"G4+h1xhD]456<gfilenamefrnrs/io/simple.scm    C>"GzjRh]456gfilename  gproc  gfilenamefrnrs/io/simple.scm w    gnamegcall-with-input-fileCwRh]456gfilename  gproc  gfilenamefrnrs/io/simple.scm z    gnamegcall-with-output-fileCvRw7h,]L6$gport    Ch]O6gfilename  gthunk  gfilenamefrnrs/io/simple.scm }    gnamegwith-input-from-fileCuRv8h,]L6$gport    Ch]O6gfilename  gthunk  gfilenamefrnrs/io/simple.scm    gnamegwith-output-to-fileCtR h y]444555456qgfilename  gfilenamefrnrs/io/simple.scm    gnamegopen-input-fileCsR h z]444555456rgfilename  gfilenamefrnrs/io/simple.scm    gnamegopen-output-fileCrRiqRipR3!h p-.,3#456hgport gfilenamefrnrs/io/simple.scm   gnameg read-charCoR3"h p-.,3#456hgport gfilenamefrnrs/io/simple.scm   gnameg peek-charCnR3#h k-.,3#456cgport gfilenamefrnrs/io/simple.scm   gnamegreadCmR4$h(-.,3#456zgchar !gport !gfilenamefrnrs/io/simple.scm  ! gnameg write-charClR4$h(n-.,3#45 6fgport !gfilenamefrnrs/io/simple.scm  ! gnamegnewlineCkR4%h(-.,3#456wgobject !gport !gfilenamefrnrs/io/simple.scm  ! gnamegwriteCiRC/gm  +giface 2 giface 9giface @ giface  Igfilenamefrnrs/io/simple.scm    u  j w  # z  # }  #          K    U      C6PKe[; io/ports.gonu[GOOF----LE-8-2.0]4h4] gguile  gdefine-module*   grnrs gio gports  gfilenameS frnrs/io/ports.scm gpureS gversionS   gset-current-module   gresolve-r6rs-interface   gice-9 g binary-ports  gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module   !gonly "gbase #" $gassertion-violation %!#$ &genums '& (grecords )g syntactic *() +g exceptions ,+ -g conditions .- /gfiles 0/ 1gsrfi 2gsrfi-8 312 4grdelim 54 6gexcept 7graise 8gdisplay 9678 :gprefix ;!8 gmodule-export! ?> @> Agi/o-encoding-error-char Bgmake-i/o-encoding-error Cgi/o-encoding-error? Dg&i/o-encoding-error Egmake-i/o-decoding-error Fgi/o-decoding-error? Gg&i/o-decoding-error Hgstandard-error-port Igstandard-output-port Jgstandard-input-port Kg put-string Lg put-datum Mgput-char Nglookahead-char Og get-string-n Pgget-string-all Qgget-line Rg get-datum Sgget-char Tgopen-file-input/output-port Ugflush-output-port Vgmake-custom-textual-output-port Wgcall-with-string-output-port Xg call-with-bytevector-output-port Ygopen-file-output-port Zgopen-string-output-port [gopen-file-input-port \gopen-string-input-port ]gcall-with-port ^gport-has-set-port-position!? _gport-has-port-position? `gset-port-position! ag port-position bgtranscoded-port cg textual-port? dg binary-port? egport-transcoder fg port-eof? gg utf-16-codec hg utf-8-codec ig latin-1-codec jgnative-transcoder kgtranscoder-error-handling-mode lgtranscoder-eol-style mgtranscoder-codec ngmake-transcoder ogerror-handling-mode pgnative-eol-style qg eol-style rg buffer-mode? sg buffer-mode tg file-options uABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrst4 vgmodule-re-export! wv xv ygi/o-error-port zgmake-i/o-port-error {gi/o-port-error? |g &i/o-port }g"make-i/o-file-does-not-exist-error ~gi/o-file-does-not-exist-error? g&i/o-file-does-not-exist g"make-i/o-file-already-exists-error gi/o-file-already-exists-error? g&i/o-file-already-exists g make-i/o-file-is-read-only-error gi/o-file-is-read-only-error? g&i/o-file-is-read-only gmake-i/o-file-protection-error gi/o-file-protection-error? g&i/o-file-protection gi/o-error-filename gmake-i/o-filename-error gi/o-filename-error? g &i/o-filename gmake-i/o-invalid-position-error gi/o-invalid-position-error? g&i/o-invalid-position gmake-i/o-write-error gi/o-write-error? g &i/o-write gmake-i/o-read-error gi/o-read-error? g &i/o-read gmake-i/o-error g i/o-error? g&i/o gcurrent-error-port gcurrent-output-port gcurrent-input-port g get-string-n! gput-bytevector gput-u8 gmake-custom-binary-output-port gopen-bytevector-output-port gget-bytevector-all gget-bytevector-some gget-bytevector-n! gget-bytevector-n g lookahead-u8 gget-u8 gmake-custom-binary-input-port gopen-bytevector-input-port g close-port g output-port? g input-port? gport? g eof-object? g eof-object yz{|}~6 gmodule-replace!   gmake-syntax-transformer   g file-option gmacro g $sc-dispatch   gany  g syntax->datum ' ' g no-create gno-fail g no-truncate g syntax-object gquote g m-d35b14d-24 gtop  gribcage gsym    f l-d35b14d-29 f l-d35b14d-2a    gs   f l-d35b14d-26   gshift gdummy g type-name gsymbol gconstructor-syntax  g m-bfa5881-18   f l-bfa5881-1d f l-bfa5881-1e f l-bfa5881-1f f l-bfa5881-20   gx   f l-bfa5881-1a    gprivate &  gsyntax-violation ' ' gsymbol->string ' ' fnot a member of the set   f-source expression failed to match any pattern g_ geach-any  g datum->syntax ' '  gevery ' ' gmemq fnot a subset of the universe genum-set-constructor g t-d35b14d-43  g t-d35b14d-44     g m-d35b14d-45        f l-d35b14d-49 f l-d35b14d-4a     g quoted-syms  f l-d35b14d-3b   gquoted-universe  f l-d35b14d-39   gsyms  f l-d35b14d-36    !guniverse "! #f l-d35b14d-34 $# %"$ & 'f l-d35b14d-31 (' )&( *f l-d35b14d-2e +* ,+ - %), .- /gmake-enumeration 0/- 1gnone 2gline 3gblock 4g m-d35b14d-4d 54 6s 75 8f l-d35b14d-52 9f l-d35b14d-53 :89 ;67: <5 =f l-d35b14d-4f >= ?<> @5;? A@ Bg buffer-modes C123 Dg t-d35b14d-6c Eg t-d35b14d-6d FDE Gg m-d35b14d-6e HG IHH Jf l-d35b14d-72 Kf l-d35b14d-73 LJK MFIL Nf l-d35b14d-64 ON P<O Qf l-d35b14d-62 RQ S<R Tf l-d35b14d-5f UT V<U Wf l-d35b14d-5d XW Y"<X Zf l-d35b14d-5a [Z \&<[ ]f l-d35b14d-57 ^] _<^ `5MPSVY\_ a` b/` cgenum-set-member? dgenum-set-universe e' f' g'/ h'/ iglf jgcr kgcrlf lgnel mgcrnel ngls og m-d35b14d-76 po qq rp sf l-d35b14d-7b tf l-d35b14d-7c ust vqru wp xf l-d35b14d-78 yx zwy {pvz |{ }g eol-styles ~ijklmn1 g t-d35b14d-95 g t-d35b14d-96  g m-d35b14d-97   f l-d35b14d-9b f l-d35b14d-9c   f l-d35b14d-8d  w f l-d35b14d-8b  w f l-d35b14d-88  w f l-d35b14d-86  "w f l-d35b14d-83  &w f l-d35b14d-80  w p  / gignore greplace g m-d35b14d-9f  o  f l-d35b14d-a4 f l-d35b14d-a5    f l-d35b14d-a1     gerror-handling-modes 7 g t-d35b14d-be g t-d35b14d-bf  g m-d35b14d-c0   f l-d35b14d-c4 f l-d35b14d-c5   f l-d35b14d-b6   f l-d35b14d-b4   f l-d35b14d-b1   f l-d35b14d-af  " f l-d35b14d-ac  & f l-d35b14d-a9     / gmake-record-type-descriptor * * g transcoder g immutable gcodec  q o  grecord-constructor * * g"make-record-constructor-descriptor * * g%make-transcoder gregister-record-type * * grecord-predicate * * g transcoder? grecord-accessor * * g%default-port-encoding f ISO-8859-1 fUTF-8 fUTF-16 gwith-throw-handler g system-error gsystem-error-errno gEACCES gEEXIST gENOENT gEROFS gwith-i/o-filename-conditions gmemv gEIO gEFBIG gENOSPC gEPIPE g condition gthrow gwith-i/o-port-error gwith-textual-output-conditions    gport gbody0 gbody  g m-d35b14d-cb    f l-d35b14d-d0  f l-d35b14d-d1  f l-d35b14d-d2  f l-d35b14d-d3          f l-d35b14d-cd       glambda  gwith-i/o-encoding-error  gwith-textual-input-conditions g m-d35b14d-d9   f l-d35b14d-de  f l-d35b14d-df !f l-d35b14d-e0 "f l-d35b14d-e1 # !" $# % &f l-d35b14d-db '& (%' )$( *) +) ,) -gwith-i/o-decoding-error .-) /g port-encoding 0gport-conversion-strategy 1gerror 2g substitute 3funsupported error handling mode 4g%make-transcoded-port 54 64 7gset-port-encoding! 8gset-port-conversion-strategy! 9gseek :gSEEK_CUR ;gSEEK_SET < ?gopen-input-string @gopen Ag r6rs-open BgO_CREAT CgO_TRUNC DgO_EXCL Egfile-options->mode FgO_RDONLY GgO_RDWR Hgopen-output-string Igget-output-string JgO_WRONLY Kgmake-soft-port Lgstring Mg string-length Nfw Og force-output P. Q. Rg &i/o-encoding Sg list->vector T.S U.S Vgchar WVA X. Y. Z. [. \gcondition-predicate ].\ ^.\ _gcondition-accessor `._ a._ b. c. d eg m-d35b14d-114 fe gf hf l-d35b14d-119 if l-d35b14d-11a jhi kdgj lf mf l-d35b14d-116 nm oln pko qp rp sgencoding-error tsp urt vp wgbegin xwp ygkey zyp {gsubr |{p }gmessage ~}p gerrno p p gchr p z|~ 7p Bp   v  g write-char gwrite gstring? gsubstring/shared fexpected string g guile:display g &i/o-decoding g m-d35b14d-148   f l-d35b14d-14d f l-d35b14d-14e  d  f l-d35b14d-14a      gdecoding-error    w y { }    7 E     g read-char gread g read-line gtrim g read-string g make-string g peek-char g dup->inport g dup->outportC5h@Z]4     54>"G454 hC]45L6;gfilenamefrnrs/io/ports.scm     CO>"G4%54 hC]45L6;gfilenamefrnrs/io/ports.scm     CO>"G4'54 hC]45L6;gfilenamefrnrs/io/ports.scm     CO>"G4*54 hC]45L6;gfilenamefrnrs/io/ports.scm     CO>"G4,54 hC]45L6;gfilenamefrnrs/io/ports.scm     CO>"G4.54 hC]45L6;gfilenamefrnrs/io/ports.scm     CO>"G4054 hC]45L6;gfilenamefrnrs/io/ports.scm     CO>"G4354 hC]45L6;gfilenamefrnrs/io/ports.scm     CO>"G4554 hC]45L6;gfilenamefrnrs/io/ports.scm     CO>"G4954 hC]45L6;gfilenamefrnrs/io/ports.scm     CO>"G4=54 hC]45L6;gfilenamefrnrs/io/ports.scm     CO>"G4@ uhC]456;gfilenamefrnrs/io/ports.scm    C>"G4x hC]456;gfilenamefrnrs/io/ports.scm    C>"G4 hC]456;gfilenamefrnrs/io/ports.scm    C>"G4 hH~] 45&"&"$C45 6vg file-option  Ggsym  Ggt  -gfilenamefrnrs/io/ports.scm  }   G Ch(c] 45$@6[gs  "gtmp "gfilenamefrnrs/io/ports.scm }   " C5R4thS]6Kgx  gfilenamefrnrs/io/ports.scm }   Ct.0hN]CFg t-d35b14d-43  g t-d35b14d-44     Ch])454L54L545$"44 5 >"G4  5$ @6gsym  gsyms gquoted-universe   g quoted-syms  ) gt  4 ]gtmp  d gtmp  o gfilenamefrnrs/io/ports.scm  }   Ch(c] 45$ O@6[gs  'gtmp 'gfilenamefrnrs/io/ports.scm }   ' C5tR4s123As hH] 45&"&"$C45 6wg buffer-mode  Ggsym  Ggt  -gfilenamefrnrs/io/ports.scm    G Ch(d] 45$@6\gs  "gtmp "gfilenamefrnrs/io/ports.scm   " C5sR4BCChT]6Lgx  gfilenamefrnrs/io/ports.scm   CBabhN]CFg t-d35b14d-6c  g t-d35b14d-6d     Ch])454L54L545$"44 5 >"G4  5$ @6gsym  gsyms gquoted-universe   g quoted-syms  ) gt  4 ]gtmp  d gtmp  o gfilenamefrnrs/io/ports.scm    Ch(d] 45$ O@6\gs  'gtmp 'gfilenamefrnrs/io/ports.scm   ' C5BRcdfhCh r]444455556jgsymbol  gfilenamefrnrs/io/ports.scm    gnameg buffer-mode?CrR4qijklmn1|qh}] 45&"F&"9&",&"&"&"$ C 4  5 6ug eol-style  {gsym  {gt  agfilenamefrnrs/io/ports.scm    { Ch(d] 45$@6\gs  "gtmp "gfilenamefrnrs/io/ports.scm   " C5qR4}~~hT]6Lgx  gfilenamefrnrs/io/ports.scm   C}hN]CFg t-d35b14d-95  g t-d35b14d-96     Ch])454L54L545$"44 5 >"G4  5$ @6gsym  gsyms gquoted-universe   g quoted-syms  ) gt  4 ]gtmp  d gtmp  o gfilenamefrnrs/io/ports.scm    Ch(d] 45$ O@6\gs  'gtmp 'gfilenamefrnrs/io/ports.scm   ' C5}R1ha]CYgfilenamefrnrs/io/ports.scm    gnamegnative-eol-styleCpR4o7o hH] 45&"&"$C45 6gerror-handling-mode  Ggsym  Ggt  -gfilenamefrnrs/io/ports.scm    G Ch(d] 45$@6\gs  "gtmp "gfilenamefrnrs/io/ports.scm   " C5oR4hT]6Lgx  gfilenamefrnrs/io/ports.scm   ChN]CFg t-d35b14d-be  g t-d35b14d-bf     Ch])454L54L545$"44 5 >"G4  5$ @6gsym  gsyms gquoted-universe   g quoted-syms  ) gt  4 ]gtmp  d gtmp  o gfilenamefrnrs/io/ports.scm    Ch(d] 45$ O@6\gs  'gtmp 'gfilenamefrnrs/io/ports.scm   ' C5R45R44i55R4i4i5>"GR4i5R4i 5kR4i 5lR4i 5mRph0-.,3#45#6gcodec -g eol-style -g handling-mode  -gfilenamefrnrs/io/ports.scm  - gnamegmake-transcoderCnRnih r][$"456jgt  gfilenamefrnrs/io/ports.scm    gnamegnative-transcoderCjRhg]C_gfilenamefrnrs/io/ports.scm     gnameg latin-1-codecCiRhe]C]gfilenamefrnrs/io/ports.scm     gnameg utf-8-codecChRhf]C^gfilenamefrnrs/io/ports.scm     gnameg utf-16-codecCgR}7 h`a-1345$"/$" $"$ "  4L56Ygargs ]gerrno  ]gconstruct-condition  P ] ] Ch]O6gfilename  gthunk  gfilenamefrnrs/io/ports.scm    gnamegwith-i/o-filename-conditionsCR7z hH@-134545$44L54 L556 @8gargs Cgerrno  C C Ch]O6gport  gmake-primary-condition  gthunk   gfilenamefrnrs/io/ports.scm    gnamegwith-i/o-port-errorCR4h d]C\gdummy  gport  gbody0   gbody      Ch(] 45$@6gx  "gtmp "  " g macro-typeg syntax-rulesgpatternsgportgbody0gbodyg...C5R4*+,.h d]C\gdummy  gport  gbody0   gbody      Ch(] 45$@6gx  "gtmp "  " g macro-typeg syntax-rulesgpatternsgportgbody0gbodyg...C5R/np0172$e3 hX]45$>4545$"$" 4   56C gport  Qgt Qgkey  ! Mgfilenamefrnrs/io/ports.scm H '  Q gnamegport-transcoderg documentationfdReturn the transcoder object associated with @var{port}, or @code{#f} if the port has no transcoder.CeR/h]45Cgport  gfilenamefrnrs/io/ports.scm   gnameg binary-port?g documentationfZReturns @code{#t} if @var{port} does not have an associated encoding, @code{#f} otherwise.CdRh]Cgport  gfilenamefrnrs/io/ports.scm    gnameg textual-port?g documentationfLAlways returns @code{#t}, as all ports can be used for textual I/O in Guile.CcRdNh(m]45$ 45"456egport  #gfilenamefrnrs/io/ports.scm   # gnameg port-eof?CfR67mk781213 hr]45445>"G45$4>"G":$4 >"G"4  45>"GCjgport  g transcoder  gresult  gkey  + gfilenamefrnrs/io/ports.scm t    gnamegtranscoded-portg documentationfReturn a new textual port based on @var{port}, using @var{transcoder} to encode and decode data written to or read from its underlying binary port @var{port}.CbR9:h] 6gport  gfilenamefrnrs/io/ports.scm    gnameg port-positiong documentationfjReturn the offset (an integer) indicating where the next octet will be read from/written to in @var{port}.CaR9;h]6gport  goffset  gfilenamefrnrs/io/ports.scm    gnamegset-port-position!g documentationfNSet the position where the next octet will be read from/written to @var{port}.C`R>ah]L6   Ch.-13C&gargs  Ch ]4O5$CCgport  gfilenamefrnrs/io/ports.scm     gnamegport-has-port-position?g documentationf=Return @code{#t} is @var{port} supports @code{port-position}.C_R>`ah]L4L56   Ch.-13C&gargs  Ch ]4O5$CCgport  gfilenamefrnrs/io/ports.scm     gnamegport-has-set-port-position!?g documentationfBReturn @code{#t} is @var{port} supports @code{set-port-position!}.C^Rh(+] 4> G4>"GE#gport  (gproc  (gvals  (gfilenamefrnrs/io/ports.scm #   ( gnamegcall-with-portg documentationfCall @var{proc}, passing it @var{port} and closing @var{port} upon exit of @var{proc}. Return the return values of @var{proc}.C]R]h@-.,3#4> G4>"G6gproc ?g transcoder ?gport  ?gextract  ?gfilenamefrnrs/io/ports.scm ,  ? gnameg call-with-bytevector-output-portCXR?h]Y4>ZCZFgstr  gfilenamefrnrs/io/ports.scm 1  3 (   gnamegopen-string-input-portg documentationf1Open an input port that will read from @var{str}.C\R@h]Y4LL>ZCZF   C7mh@] 4O5$445>"G"Cgfilename  :gmode  :g buffer-mode   :g transcoder   :gport   :gfilenamefrnrs/io/ports.scm 6   : gnameg r6rs-openCARcBCDhH]45$ "45$ "45$ "Cg file-options  Dg base-mode  Dgfilenamefrnrs/io/ports.scm ?   D gnamegfile-options->modeCERfh3AFhH-.,3#444555##6 gfilename Cg file-options Cg buffer-mode  Cg transcoder  Cgfilenamefrnrs/io/ports.scm K  C gnamegopen-file-input-portg documentationf5Return an input port for reading from @var{filename}.C[Rfh3AEGhP"-.,3#444555##456gfilename Jg file-options Jg buffer-mode  Jg transcoder  Jgfilenamefrnrs/io/ports.scm S  J gnamegopen-file-input/output-portg documentationf=Return a port for reading from and writing to @var{filename}.CTRHIh]L6   Ch 5]Y45ZOD-gport  gfilenamefrnrs/io/ports.scm ^  a 4   gnamegopen-string-output-portg documentationfReturn two values: an output port that will collect characters written to it as a string, and a thunk to retrieve the characters associated with that port.CZRfh3AEJhP-.,3#444555##456gfilename Jg file-options Jg buffer-mode  Jgmaybe-transcoder  Jgfilenamefrnrs/io/ports.scm f  J gnamegopen-file-output-portg documentationf4Return an output port for writing to @var{filename}.CYRHIh(!] 454>"G6gproc  !gport  !gfilenamefrnrs/io/ports.scm q   ! gnamegcall-with-string-output-portg documentationfzCall @var{proc}, passing it a string output port. When @var{proc} returns, return the characters accumulated in that port.CWRKLh)]L45 6!gc     CMh)]L 456!gs     CNh ]OO6gid  gwrite!  g get-position   g set-position!   gclose   gfilenamefrnrs/io/ports.scm x      gnamegmake-custom-textual-output-portCVROhu]6mgport  gfilenamefrnrs/io/ports.scm     gnamegflush-output-portCUR4QR|i4UW55RR4Y4[Ri55BR4^Ri5CR4aRi4cRi 55AR4quvxh?]C7gdummy  gbody     Ch(] 45$@6gx  "gtmp "  " g documentationfBConvert Guile throws to `encoding-error' to `&i/o-encoding-error'.g macro-typeg syntax-rulesgpatternsgbodyg...C5Rsh]LL6  C7Bh]456gkey  gsubr  gmessage   gerrno   gport   gchr      Ch]LLO6   Ch~]O6vgport  gchar  gfilenamefrnrs/io/ports.scm     gnamegput-charCMRsh]LL6  C7Bh]456gkey  gsubr  gmessage   gerrno   gport   gchr      Ch]LLO6   Ch]O6xgport  gdatum  gfilenamefrnrs/io/ports.scm     gnameg put-datumCLRs8M$KhXF]4L5$>L$0L$4LLLL5L64LL4L55L6LL6L6>gfilenamefrnrs/io/ports.scm Q  +  U C7Bh]456gkey  gsubr  gmessage   gerrno   gport   gchr      Ch]LLLLO6   Ch8-.,3##O6gport 3gs 3gstart  3gcount  3gfilenamefrnrs/io/ports.scm   3  gnameg put-stringCKRsh]LL6  C7Bh]456gkey  gsubr  gmessage   gerrno   gport   gchr      Ch]LLO6   Ch0-.,3#45O6wgobject *gport *gfilenamefrnrs/io/ports.scm   * gnamegdisplayC8R4Q|i4U55R4Y4[i55ER4^i5FR4-h?]C7gdummy  gbody     Ch(] 45$@6gx  "gtmp "  " g documentationfBConvert Guile throws to `decoding-error' to `&i/o-decoding-error'.g macro-typeg syntax-rulesgpatternsgbodyg...C5-Rh]L6   C7Ehw]456ogkey  gsubr  gmessage   gerrno   gport     Ch]LO6   Chl]O6dgport  gfilenamefrnrs/io/ports.scm     gnamegget-charCSRh]L6   C7Ehw]456ogkey  gsubr  gmessage   gerrno   gport     Ch]LO6   Chm]O6egport  gfilenamefrnrs/io/ports.scm     gnameg get-datumCRRh]L6  C7Ehw]456ogkey  gsubr  gmessage   gerrno   gport     Ch]LO6   Chl]O6dgport  gfilenamefrnrs/io/ports.scm     gnamegget-lineCQRh]L6   C7Ehw]456ogkey  gsubr  gmessage   gerrno   gport     Ch]LO6   Chr]O6jgport  gfilenamefrnrs/io/ports.scm     gnamegget-string-allCPRh@]454 545$C$C 6gport  <gcount  <gs  <grv   <gfilenamefrnrs/io/ports.scm    < gnameg get-string-ng documentationfRead up to @var{count} characters from @var{port}. If no characters could be read before encountering the end of file, return the end-of-file object, otherwise return a string containing the characters read.CORh]L6   C7Ehw]456ogkey  gsubr  gmessage   gerrno   gport     Ch]LO6   Chr]O6jgport  gfilenamefrnrs/io/ports.scm     gnameglookahead-charCNRhd]Y4 >ZCZF\gfilenamefrnrs/io/ports.scm     gnamegstandard-input-portCJRhe]Y4 >ZCZF]gfilenamefrnrs/io/ports.scm     gnamegstandard-output-portCIRhd]Y4 >ZCZF\gfilenamefrnrs/io/ports.scm     gnamegstandard-error-portCHRCgm  +giface 2 giface 8giface ? giface  Hgiface O giface  Xgiface _ giface  hgiface o giface  xgiface   gfilenamefrnrs/io/ports.scm    <   E  P  ! # ' ( ) *P , -  .  09  1  3> # 4V , 5T 1 6 6 7 ? 9F K : S < ^ > f ?t q A) x A  A  E  Gs  J  L  L  O  QX  S  T  V  Xu  Y  Y  Z7  0  Z9 C6PKe[P control.gonu[GOOF----LE-8-2.0]-4h] gguile  gdefine-module*   grnrs gcontrol  gfilenameS frnrs/control.scm gpureS gversionS  gset-current-module   gresolve-r6rs-interface   gonly gwhen gunless gdo g case-lambda  gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module !  "  #gmodule-export! $# %# &gmodule-re-export! '& (& ) *gmodule-replace! +* ,*C5hg]4     54>"G454"hB]45L6:gfilenamefrnrs/control.scm     CO>"G4%"hB]456:gfilenamefrnrs/control.scm    C>"G4(")hB]456:gfilenamefrnrs/control.scm    C>"G,"hB]456:gfilenamefrnrs/control.scm    C6_gm  +giface 2 gfilenamefrnrs/control.scm      C6PKe[rĠ sorting.gonu[PKe[ UUbase.gonu[PKe[oW _mutable-strings.gonu[PKe[B0M0Mearithmetic/fixnums.gonu[PKe[4ι}arithmetic/bitwise.gonu[PKe[R`1;1;arithmetic/flonums.gonu[PKe[lr 7eval.gonu[PKe[b(2z$$9 enums.gonu[PKe[̅R.lists.gonu[PKe[Hzz =programs.gonu[PKe[C ^^DCfiles.gonu[PKe[z^ Usyntax-case.gonu[PKe[&brecords/inspection.gonu[PKe[j̨((rwrecords/procedural.gonu[PKe[WDBDTDTzrecords/syntactic.gonu[PKe[ą ! ! hashtables.gonu[PKe[Lr5rs.gonu[PKe[8$s!bytevectors.gonu[PKe[vߧg,mutable-pairs.gonu[PKe[Eh h N2unicode.gonu[PKe[H77 =exceptions.gonu[PKe[p@&& uconditions.gonu[PKe[k7 7io/simple.gonu[PKe[; lio/ports.gonu[PKe[P Jcontrol.gonu[PKP