GOOF----LE-8-2.0s]4h;] gguile  gdefine-module*   gsystem gbase gmessage  gfilenameS fsystem/base/message.scm gimportsS gsrfi gsrfi-1    gsrfi-9    gice-9 gmatch    gexportsS g*current-warning-port* g*current-warning-prefix* gwarning g warning-type? gwarning-type-name gwarning-type-description gwarning-type-printer !glookup-warning-type "g%warning-types # !"  $gset-current-module %$ &$ 'gformat (f~a:~a:~a )g assoc-ref *gfilename +f ,gline -gcolumn .f /glocation-string 0gparameter-fluid 1gcurrent-warning-port 2g make-fluid 3f;;;  4g 5g%make-warning-type-procedure 6gmake-syntax-transformer 76 86 9gmake-warning-type :gmacro ;g $sc-dispatch <; =; >g_ ?gany @>??? Ag syntax-object Bglambda Cgm-44b57084b9-69a Dgtop ECD Fgribcage Ggt-44b57084b9-697 Hgt-44b57084b9-698 Igt-44b57084b9-699 JGHI KEEE Lfl-44b57084b9-69f Mfl-44b57084b9-6a0 Nfl-44b57084b9-6a1 OLMN PFJKO QF Rgx SR TE Ufl-44b57084b9-69c VU WFSTV Xgshift Yg proc-name Zgargs [YZ \D ]\\ ^fl-1e8ba8b5a-60 _fl-1e8ba8b5a-61 `^_ aF[]` bgkey cgvalue dgname egformals fgbody gbcdef h\\\\\ ifl-1e8ba8b5a-53 jfl-1e8ba8b5a-54 kfl-1e8ba8b5a-55 lfl-1e8ba8b5a-56 mfl-1e8ba8b5a-57 nijklm oFghn pgmake-procedure-name qp r\ sfl-1e8ba8b5a-43 ts uFqrt v\ wfl-1e8ba8b5a-42 xw yFSvx zEPQWXQQQQaouy  {ghygiene |{  }ABz| ~\PQW { Ad~ g description A~ gprinter A~  g make-struct gm-44b57084b9-695 D gt-1e8ba8b5a-133 gt-1e8ba8b5a-132 gt-1e8ba8b5a-131  gm-1e8ba8b5a-134 D  fl-1e8ba8b5a-138 fl-1e8ba8b5a-139 fl-1e8ba8b5a-13a  F g ctor-args  fl-1e8ba8b5a-120  Fv gctor gfield  fl-1e8ba8b5a-11c fl-1e8ba8b5a-11d  F] gform g type-name gconstructor-spec g field-names  \\\\ fl-1e8ba8b5a-111 fl-1e8ba8b5a-112 fl-1e8ba8b5a-113 fl-1e8ba8b5a-114  F g record-layout gfunctional-setters gsetters gcopier ggetters g constructor ggetter-identifiers gfield-identifiers  \\\\\\\\ fl-1e8ba8b5a-e9 fl-1e8ba8b5a-e7 fl-1e8ba8b5a-e5 fl-1e8ba8b5a-e3 fl-1e8ba8b5a-e1 fl-1e8ba8b5a-df fl-1e8ba8b5a-dd fl-1e8ba8b5a-db  F fl-1e8ba8b5a-da  FSv PQWXQQQQQ A| A4~ A |  } geach-any >ʌ gsyntax-violation   fWrong number of arguments g identifier?   \QW A5   f-source expression failed to match any pattern grecord-type-vtable   gpwpwpw gdefault-record-printer   d gset-struct-vtable-name!   gvtable-offset-user   g%warning-type?-procedure >? gm-44b57084b9-6ab D gt-44b57084b9-6aa   fl-44b57084b9-6b0  F fl-44b57084b9-6ad  FS QXQQQQaouy  AB| gobj gt-1e8ba8b5a-224 gt-1e8ba8b5a-21e gt-1e8ba8b5a-21f gt-1e8ba8b5a-220 gt-1e8ba8b5a-223 gt-1e8ba8b5a-222 gt-1e8ba8b5a-221  gm-1e8ba8b5a-225 D  fl-1e8ba8b5a-229 fl-1e8ba8b5a-22a fl-1e8ba8b5a-22b fl-1e8ba8b5a-22c fl-1e8ba8b5a-22d fl-1e8ba8b5a-22e fl-1e8ba8b5a-22f   F  g copier-id     fl-1e8ba8b5a-21c    F v  g ctor-name  fl-1e8ba8b5a-214  Fv  fl-1e8ba8b5a-212  Fv glayout  fl-1e8ba8b5a-210  Fv g immutable?  fl-1e8ba8b5a-20e   !Fv  "g field-count #" $fl-1e8ba8b5a-20c %$ &F#v% 'g getter-ids (' )fl-1e8ba8b5a-209 *) +F(v* ,g field-ids -, .fl-1e8ba8b5a-206 /. 0F-v/ 1gpredicate-name 2g field-spec 312 4\\\\\\ 5fl-1e8ba8b5a-1f9 6fl-1e8ba8b5a-1fa 7fl-1e8ba8b5a-1fb 8fl-1e8ba8b5a-1fc 9fl-1e8ba8b5a-1fd :fl-1e8ba8b5a-1fe ;56789: <F34; =QXQ QQQQQQQQ!Q&Q+Q0< >A=| ?> @gand AA@=| Bgstruct? CAB=| DC> Egeq? FAE=| Gg struct-vtable HAG=| IH> J\Q KA4J LFIK MADL N?M O\Q PAO Qgthrow-bad-struct RQ SQ Tg%warning-type-name-procedure Ugfree-id Vg %%on-error Wgm-44b57084b9-6b7 XWD YX Zfl-44b57084b9-6b9 [Z \FSY[ ]XQ\XQQQQaouy  ^AV]| _U^ `_? ag%%type bgt-1e8ba8b5a-14b cgt-1e8ba8b5a-14c dgt-1e8ba8b5a-14d egt-1e8ba8b5a-14e fgt-1e8ba8b5a-14f ggt-1e8ba8b5a-150 hgt-1e8ba8b5a-151 ibcdefgh jgm-1e8ba8b5a-152 kjD lkkkkkkk mfl-1e8ba8b5a-156 nfl-1e8ba8b5a-157 ofl-1e8ba8b5a-158 pfl-1e8ba8b5a-159 qfl-1e8ba8b5a-15a rfl-1e8ba8b5a-15b sfl-1e8ba8b5a-15c tmnopqrs uFilt vggetter wgindex xvw yfl-1e8ba8b5a-149 zfl-1e8ba8b5a-14a {yz |Fx]{ }'  ~\\\ fl-1e8ba8b5a-144 fl-1e8ba8b5a-145 fl-1e8ba8b5a-146  F}~ Q\XQuQQQ|Q Aa| U >`? gck gerr gs  XX fl-44b57084b9-6bc fl-44b57084b9-6bd  F XQ\XQQQQaouy  A| gquote A| \Q\ A4   g%%index A| U >`? fl-44b57084b9-6c1 fl-44b57084b9-6c2  F XQ\XQQQQaouy  A| A| Q\ A    g%%copier A| U >`? fl-44b57084b9-6c6 fl-44b57084b9-6c7  F XQ\XQQQQaouy  A| A| g%%-set-fields \Q\ A   gt-44b57084b9-6b6  fl-44b57084b9-6cb  FY XQ\XQQQQaouy  AB| Q\XQuQQQ|Q A|  gif A| AE| AG|  \Q\ A4  g struct-ref A| Q\ A   AQ| A| A     \Q\ AT g#%warning-type-description-procedure gm-44b57084b9-6d2 D  fl-44b57084b9-6d4  FS QXQQQQaouy  AV| U ? QXQuQQQ|Q Aa| U >?  fl-44b57084b9-6d7 fl-44b57084b9-6d8  F QXQQQQaouy  A| A| \Q A4   A| U >? fl-44b57084b9-6dc fl-44b57084b9-6dd  F QXQQQQaouy  A| A| Q A    A| U >? fl-44b57084b9-6e1 fl-44b57084b9-6e2  F QXQQQQaouy   A|  A|  \Q  A        gt-44b57084b9-6d1  fl-44b57084b9-6e6  F QXQQQQaouy  AB| QXQuQQQ|Q A|  A| AE| AG|  \Q A4   A| !Q "A ! # " $AQ| %A| &A '%& ($' )#( *) +\Q ,A+ -g%warning-type-printer-procedure .gm-44b57084b9-6ed /.D 0/ 1fl-44b57084b9-6ef 21 3FS02 4/Q3XQQQQaouy  5AV4| 6U5 76? 8Q3XQuQQQ|Q 9Aa8| :U9 ;>7:? <// =fl-44b57084b9-6f2 >fl-44b57084b9-6f3 ?=> @F<? A/@Q3XQQQQaouy  BAA| CAA| D\@Q3 EA4D FCE GF HA8| IUH J>7I? Kfl-44b57084b9-6f7 Lfl-44b57084b9-6f8 MKL NF<M O/NQ3XQQQQaouy  PAO| QAO| RNQ3 SA R TQS UT VA8| WUV X>7W? Yfl-44b57084b9-6fc Zfl-44b57084b9-6fd [YZ \F<[ ]/\Q3XQQQQaouy  ^A]| _A]| `\\Q3 aA` b_a cb dgt-44b57084b9-6ec ed ffl-44b57084b9-701 gf hFe0g i/hQ3XQQQQaouy  jABi| khQ3XQuQQQ|Q lAk| ml nAk| oAEk| pAGk| qpl r\hQ3 sA4r toqs uAk| vhQ3 wA v xulw yAQk| zAk| {A r |z{ }yl| ~ntx} jm~ \Q3 A- geach ??  ? ? ? g %%set-fields gdummy gcheck? gexpr v gm-44b57084b9-708 D  fl-44b57084b9-70d fl-44b57084b9-70e fl-44b57084b9-70f fl-44b57084b9-710 fl-44b57084b9-711  F  fl-44b57084b9-70a  FS gt-1e8ba8b5a-16a gt-1e8ba8b5a-16c gt-1e8ba8b5a-16b  gm-1e8ba8b5a-16d D  fl-1e8ba8b5a-171 fl-1e8ba8b5a-172 fl-1e8ba8b5a-173  F fl-1e8ba8b5a-167 fl-1e8ba8b5a-168 fl-1e8ba8b5a-169  F}~ QXQQQQ  A| \Q A4 A A A   gmap   glist gunsupported-warning f warn about unknown warning types f&~awarning: unknown warning type `~A'~% gunused-variable freport unused variables f%~a~A: warning: unused variable `~A'~% gunused-toplevel f'report unused local top-level variables f>~a~A: warning: possibly unused local top-level variable `~A'~% gunbound-variable f!report possibly unbound variables f/~a~A: warning: possibly unbound variable `~A'~% garity-mismatch f=report procedure arity mismatches (wrong number of arguments) f2~a~A: warning: wrong number of arguments to `~A'~% f;~a~A: warning: possibly wrong number of arguments to `~A'~% gduplicate-case-datum f-report a duplicate datum in a case expression fF~a~A: warning: duplicate datum ~S in clause ~S of case expression ~S~% gbad-case-datum fEreport a case datum that cannot be meaningfully compared using `eqv?' fi~a~A: warning: datum ~S cannot be meaningfully compared using `eqv?' in clause ~S of case expression ~S~% f,report wrong number of arguments to `format' gwrong-num-args f~a~A: `format' warning~% f6~a~A: warning: wrong number of arguments to `format'~% gnon-literal-format-string f*~a~A: warning: non-literal format string~% gwrong-format-string f(~a~A: warning: ~S: wrong format string~% g wrong-port f(~a~A: warning: ~S: wrong port argument~% g syntax-error g"unexpected-conditional-termination f%~a~A: warning: ~S: unexpected `~~]'~% g list->string gstring-fold-right gappend \n gunexpected-semicolon f%~a~A: warning: ~S: unexpected `~~;'~% gunterminated-conditional f-~a~A: warning: ~S: unterminated conditional~% gunterminated-iteration f+~a~A: warning: ~S: unterminated iteration~% gwrong-format-arg-count fL~a~A: warning: ~S: wrong number of `format' arguments: expected ~A, got ~A~% f any number f ~aup to ~a f ~aat least ~a gnumber->string f ~a~a to ~a g simple-format fO~a~A: warning: ~S: unsupported format option ~~~A, use (ice-9 format) instead~% gfind f#~A: unknown warning type `~A': ~A~%C5h3]4    #54&>"G'()*+,-. hH ] $645$"45456Cgloc  Bgt  *gfilenamefsystem/base/message.scm +  ,  ,   -   .   . !  .   .  ' . , + /  1 / ! 3 /  4 /  5 0  ; 0  = 0  ? -  A 1   B gnameglocation-stringC/R40i1i5R42i35R4h]Cgname  g description  gprinter   gfilenamefsystem/base/message.scm E    gnameg%make-warning-type-procedureC5R489:=@ht]Clgt-44b57084b9-697  gt-44b57084b9-698  gt-44b57084b9-699      C9hZ]L6Rga  gfilenamefsystem/base/message.scm  E   C>hJ]L6Bgfilenamefsystem/base/message.scm  E    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsystem/base/message.scm E   n C59R4ߨ44>"G 5i4R4h]$CCxgobj  gfilenamefsystem/base/message.scm E    gnameg%warning-type?-procedureCR48:=Nh8]C0gt-44b57084b9-6aa    ChZ]L6Rga  gfilenamefsystem/base/message.scm  E   C>hJ]L6Bgfilenamefsystem/base/message.scm  E    CPh]C   C hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsystem/base/message.scm E   n C5R4Sh]& C6zgs  gfilenamefsystem/base/message.scm E    gnameg%warning-type-name-procedureCTR48:=h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch8]C0gt-44b57084b9-6b6    ChZ]L6Rga  gfilenamefsystem/base/message.scm  E   C>hJ]L6Bgfilenamefsystem/base/message.scm  E    Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsystem/base/message.scm E   C5R4Sh]& C6gs  gfilenamefsystem/base/message.scm E    gnameg#%warning-type-description-procedureCR48:=h:]C2gerr  gs    Ch:]C2gerr  gs    C h:]C2gerr  gs    C*h8]C0gt-44b57084b9-6d1    ChZ]L6Rga  gfilenamefsystem/base/message.scm  E   C>hJ]L6Bgfilenamefsystem/base/message.scm  E    C,h]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsystem/base/message.scm E   C5R4S h ]& C6}gs  gfilenamefsystem/base/message.scm E    gnameg%warning-type-printer-procedureC-R48 :=;BGh:]C2gerr  gs    CJPUh:]C2gerr  gs    CX^ch:]C2gerr  gs    Ch8]C0gt-44b57084b9-6ec    C hZ]L6Rga  gfilenamefsystem/base/message.scm  E   C>hJ]L6Bgfilenamefsystem/base/message.scm  E    Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsystem/base/message.scm E   C5 R48:=h v]45Cngdummy  gcheck?  gs   ggetter   gexpr      Ch(] 45$@6gx  "gtmp "gfilenamefsystem/base/message.scm E   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5R4i5he]@]gargs  gfilenamefsystem/base/message.scm N   O    C'h][6gport  gunused  gname   gfilenamefsystem/base/message.scm _  `    C'h][6gport  gloc  gname   gfilenamefsystem/base/message.scm e  f    C'h][6gport  gloc  gname   gfilenamefsystem/base/message.scm k  l    C'h][6gport  gloc  gname   gfilenamefsystem/base/message.scm q  r    C'h(]$[6[6gport  &gloc  &gname   &gcertain?   &gfilenamefsystem/base/message.scm w  x   y   |   & C'h][6gport  gloc  gdatum   gclause   g case-expr   gfilenamefsystem/base/message.scm     C'h][6gport  gloc  gdatum   gclause   g case-expr   gfilenamefsystem/base/message.scm     C''h] &6Cgc  gr  gfilenamefsystem/base/message.scm % '  3  +  +   Ch] &6Cgc  gr  gfilenamefsystem/base/message.scm % '  3  +  +   Ch] &6Cgc  gr  gfilenamefsystem/base/message.scm % '  3  +  +   Ch] &6Cgc  gr  gfilenamefsystem/base/message.scm % '  3  +  +   Ch] &6Cgc  gr  gfilenamefsystem/base/message.scm % '  3  +  +   C?h] &6Cgc  gr  gfilenamefsystem/base/message.scm % '  3  +  +   C'h7-13 "5"5"";""A"""k$W&8" [6$([6""[6[6$)(& [6"i"e"a$@&*$( [6""""$@ &*$( [6""""$n &X$M &7$,(![44556"Z"V"R"N"J"F$n &X$M&7$,(![44556""""""$n &X$M&7$,(![44556"`"\"X"T"P"L$n &X$M&7$,(![44556""""""$&$$$   $ (  [4455& &" 4 [ 5"< &4![5"# $ 4"5"4#[ 5 6"""""""$d$&N$C$.(#%[44&556"l"h"d"`"\/gport gloc grest  gw  : gx  : gw  gw  gx  gw  gw  $ ^gx  $ ^gw  A Rgw  o gx  o gw   gx   gw   gw   Pgx   Pgw   Hgx   Hgw   <gw  a gx  a gw  z gx  z gw   gw   Bgx   Bgw   :gx   :gw   .gw  S >gx  S >gw  l 6gx  l 6gw  } 2gx  } 2gw  .gx  .gw  &gw  O gx  O gw  h gx  h gw  } .gfilenamefsystem/base/message.scm  P  W  o         I  V         %         &  ,  /  4 % 8  :  <  @         %             !  & % *  ,  .  2         %      !    %        !          $   &  *         %        K   C5"R4Sh n]L& " 45Cfgwt  gfilenamefsystem/base/message.scm       C"h]O6gname  gfilenamefsystem/base/message.scm     gnameglookup-warning-typeg documentationf2Return the warning type NAME or `#f' if not found.C!R!1'/4h`-134545"456$& 45@""gtype Zglocation Zgargs  Zgwt   Zgport   Zgfilenamefsystem/base/message.scm      #  $  0  0  3  7  :  E  H  R  Z  gnamegwarningg documentationfjEmit a warning of type TYPE for source location LOCATION (a source property alist) using the data in ARGS.CRCgm  ,grtd  gfilenamefsystem/base/message.scm    +  >   :  B   B   B   @  E  N  P ] / N  / L 1 3   3 C6