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 GOOF----LE-8-2.0=']4h" ] gguile  gdefine-module*   gscripts gcompile  gfilenameS fscripts/compile.scm gimportsS gsystem gbase    gselectS g compile-file   gtarget     gmessage     gsrfi gsrfi-1   gsrfi-13   gsrfi-37 !  "! #gice-9 $gformat %#$ &% '"& (gexportsS ) *gset-current-module +* ,* -fCompile a file. .g%summary /gcurrent-error-port 0ferror: ~{~a~}~% 1gexit 2gfail 3gsrfi-37:option 4!3 5!3 6fhelp 7h6 8g alist-cons 9ghelp? :fversion ;: L= ?g assoc-ref @g load-path Afoutput BoA Cg output-file Df.`-o' option cannot be specified more than once Efwarn FWE Ggstring=? Hgshow-warning-help Igwarnings Jgstring->symbol Kg alist-delete Lfoptimize MOL Ng optimize? Offrom PfO Qgfrom Rf2`--from' option cannot be specified more than once Sfto TtS Ugto Vf0`--to' option cannot be specified more than once Wftarget XTW Yf4`--target' option cannot be specified more than once Zg%options [g args-fold \f~A: unrecognized option ]g input-files ^] _@ `gunsupported-warning aI` b^_a cg parse-args dfcompile (GNU Guile) ~A~% egversion ffCopyright (C) 2009, 2011 Free Software Foundation, Inc. License LGPLv3+: GNU LGPL version 3 or later . This is free software: you are free to change and redistribute it. There is NO WARRANTY, to the extent permitted by law.~% gf$The available warning types are:~%~% hgfor-each if ~22A ~A~% jf`~A' kg lk mk ngsrfi-9 on pgthrow-bad-struct qop rop sgwarning-type-name tgwarning-type-description ug%warning-types vf~% wgwarningsS xgOS ygscheme zgobjcode {g %host-type |fUsage: compile [OPTION] FILE... Compile each Guile source file FILE into a Guile object. -h, --help print this help message -L, --load-path=DIR add DIR to the front of the module load path -o, --output=OFILE write output to OFILE -W, --warn=WARNING emit warnings of type WARNING; use `--warn=help' for a list of available warnings -f, --from=LANG specify a source language other than `scheme' -t, --to=LANG specify a target language other than `objcode' -T, --target=TRIPLET produce bytecode for host TRIPLET Note that auto-compilation will be turned off. Report bugs to <~A>.~% }g%guile-bug-report-address ~gappend g %load-path g%load-should-auto-compile f"`-o' option can only be specified  fwhen compiling a single file g sigaction gSIGINT finterrupted by the user f wrote `~A'  g*current-warning-prefix* f g with-target g output-fileS gfromS gtoS goptsS gmainC5hK]4   '()54,>"G-.R$/01h(-13445>"G 6gmessages 'gfilenamefscripts/compile.scm + ,  ,  ,   ,  ' -  ' gnamegfailC2R5789h]6gopt  gname  garg   gresult   gfilenamefscripts/compile.scm 2   3  3   C5;<1h]4>"G 6gopt  gname  garg   gresult   gfilenamefscripts/compile.scm 5   6   7    C5>?@8h ] 456gopt  gname  garg   gresult   g load-path  gfilenamefscripts/compile.scm :   ; # ; 5 ; # ;   <  < +  <    C5B?C2D8h ]45$66gopt  gname  garg   gresult   gfilenamefscripts/compile.scm ?   @  @ ( @   @   A   A   B "  B    C5FG6H1?I8JK hH-] 45$4>"G 645454 56%gopt  Hgname  Hgarg   Hgresult   Hgwarnings  - Hgfilenamefscripts/compile.scm E   F  F $ F   F   H  $ I  % J & + J 8 - J & - J  3 K $ 4 L * = L $ > M $ B M 2 F M $ H K   H C5M8Nh]6gopt  gname  garg   gresult   gfilenamefscripts/compile.scm P   Q  Q   C5P?Q2R8Jh(]45$6456gopt  $gname  $garg   $gresult   $gfilenamefscripts/compile.scm S   T  T ( T   T   U   U   V "  V ( $ V   $ C5T?U2V8Jh(]45$6456gopt  $gname  $garg   $gresult   $gfilenamefscripts/compile.scm X   Y  Y ( Y   Y   Z   Z   [ "  [ & $ [   $ C5X?2Y8h ]45$66gopt  gname  garg   gresult   gfilenamefscripts/compile.scm ]   ^  ^ ( ^   ^   _   _   ` "  `    C ZR[Z$/\1h ]445>"G 6gopt  gname  garg   gresult   gfilenamefscripts/compile.scm f  g   g  g ,  g  h   C?]8h ] 456gfile  gresult  g input-files  gfilenamefscripts/compile.scm i  j " j 4 j " j   k   k *  k    Cbh]6gargs  gfilenamefscripts/compile.scm b  o  e    gnameg parse-argsg documentationfQParse argument list @var{args} and return an alist with all the relevant options.CcR$defh(]445>"G6gfilenamefscripts/compile.scm s  t   t t (  t   u ! u   ! gnameg show-versionC"G4>"G6gfilenamefscripts/compile.scm z  {   { {   |  . 0   0 gnamegshow-warning-helpCHRc?9wINxQyUz{]C@$|}1~22hn-136fgargs gfilenamefscripts/compile.scm      Ch$hP]LLLLL6 Hgfilenamefscripts/compile.scm      Ch(~]Y4LLLLLO5Z6vgfile  &gfilenamefscripts/compile.scm    @   &   & C hp-13 45454545$ "45$" 4 5$" 4 5$" 454545 $"$*4>"G4 >"G"4 5  $0("$4>"G""4>"GO6gargs ngoptions  nghelp?   ngo  + Hg compile-opts  H ngt  S fgfrom  f ngt  q gto  ngt  gtarget  ng input-files  ng output-file  ng load-path ngfilenamefscripts/compile.scm       -      # & & 9 ( & + # +  . 4 3 6 :  ? H  K  Q 1 S  S  c 8 f  i  o 1 q  q  6   1     -    -    -                  #  $  %  )  *  .  0  5  F  n H n gnamegcompileCRiRCCgm  ,gfilenamefscripts/compile.scm   . (  1 (  +  1   1   4   4   9   9   >   >   D   D   O  J O  N R  r R  v W  W  \  \  1  / b y s P z      C6