GOOF----LE-8-2.07]4h|] gguile  gdefine-module*   gsystem grepl gcommon  gfilenameS fsystem/repl/common.scm gimportsS gbase gsyntax    gcompile    glanguage    gmessage    gvm gprogram   gice-9 gcontrol  !  "ghistory #" $# %!$ &gexportsS 'g (g make-repl )g repl-language *g repl-options +g repl-tm-stats ,g repl-gc-stats -g repl-debug .g repl-welcome /g repl-prompt 0g repl-read 1g repl-compile 2grepl-prepare-eval-thunk 3g repl-eval 4g repl-expand 5g repl-optimize 6g repl-parse 7g repl-print 8grepl-option-ref 9grepl-option-set! :grepl-default-option-set! ;grepl-default-prompt-set! string >g user-error ?g *warranty* @g *copying* Ag *version* B'()*+,-./0123456789:;<=>?@A Cg autoloadsS Dgtree-il Egoptimize FDE Gg optimize! HG IFH Jgset-current-module KJ LJ Mgformat NfGNU Guile ~A Copyright (C) 1995-2016 Free Software Foundation, Inc. Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'. This program is free software, and you are welcome to redistribute it under certain conditions; type `,show c' for details. Ogversion PfqGuile is free software: you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. Guile is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with this program. If not, see . Qf8Guile is distributed WITHOUT ANY WARRANTY. The following sections from the GNU General Public License, version 3, should make that clear. 15. Disclaimer of Warranty. THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 16. Limitation of Liability. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. 17. Interpretation of Sections 15 and 16. If the disclaimer of warranty and limitation of liability provided above cannot be given local legal effect according to their terms, reviewing courts shall apply local law that most closely approximates an absolute waiver of all civil liability in connection with the Program, unless a warranty or assumption of liability accompanies a copy of the Program in return for a fee. See , for more details. Rgmake-record-type Sf Tgoptions Ugtm-stats Vggc-stats Wgdebug XTUVW Ygrecord-constructor Zg%compute-initargs [grecord-predicate \grepl? ]gmake-procedure-with-setter ^grecord-accessor _grecord-modifier `g copy-tree agcompile-options bg%auto-compilation-options c dgtrace ed fginterp gf hgprompt igstring? jgthunk? kg procedure? lgerror mfInvalid prompt ngprint ofInvalid print procedure pg value-history qgvalue-history-enabled? rgenable-value-history! sgdisable-value-history! tg->bool ugon-error vg backtrace wgreport xgpass yf)Bad on-error value ~a; expected one of ~a zWvwx {grepl-default-options |g %make-repl }glanguageS ~g language? glookup-language goptionsS gtm-statsS gtimes ggc-statsS gdebugS gdisplay gnewline fEnter `,help' for help.  f ~A@~A~A>  g language-name g module-name gcurrent-module glength g *repl-stack* f f [~a] glanguage-reader gcurrent-input-port grepl-compile-options gfromS gtoS gobjcode goptsS genvS g decompile glanguage-parser glanguage-evaluator g make-program glanguage-compilers gdefault-prompt-handler     gdefault-prompt-tag     grun-hook gbefore-print-hook gwrite gassq funknown repl option gobject->string gthrowC5h]4    %&BCI5 4L>"G4MiN4Oi55ARP@RQ?R4RiSX5'RTUVW4Yi'i5Zh.-13L4L5@&gargs   CO(R4[i'i5\R4]i4^i'i54_i'i55)R4]i4^i'iT54_i'iT55*R4]i4^i'iU54_i'iU55+R4]i4^i'iV54_i'iV55,R4]i4^i'iW54_i'iW55-R4`iabiceghih\]LCTgrepl  gfilenamefsystem/repl/common.scm u &   Cjhd]L6\grepl  gfilenamefsystem/repl/common.scm v %  v 4   CklmhH]$<45$OC45$OC45$C6Cgprompt  Fgfilenamefsystem/repl/common.scm r   s  u   s   v  & s  / w  9 s  @ x ! D x   F Cnkloh ]$45$C6C}gprint  gfilenamefsystem/repl/common.scm y   z  |   z   }  }   Cp4qi5rsth8~]$4>"G"4>"G6vgx  2gfilenamefsystem/repl/common.scm     ' 2   2 CuWWvwxlyzh@]&"&"&"$C6gx  ?gfilenamefsystem/repl/common.scm  2 9  =  ?   ? C5{R(i|R|}~`{V hP-.,3#45$"45454 5 4 5 6 glang Ngdebug Ngfilenamefsystem/repl/common.scm   $  +  4  =  D  N  N gnameg make-replC(RAh@]4>"G4>"G4>"G6grepl  :gfilenamefsystem/repl/common.scm     %  8 :   : gnameg repl-welcomeC.R8hM) hp|]45$6445544554  [$"5 $ " 4 56tgrepl  ngt ngt  : Mglevel  O lgfilenamefsystem/repl/common.scm            " * *  + .  4 5  : ! J ( O  O T  Y  [ ` # e . i # n   n gnameg repl-promptC/R)h ] 445545456grepl  greader  gfilenamefsystem/repl/common.scm    !       !     gnameg repl-readC0R8ah]6grepl  gfilenamefsystem/repl/common.scm     gnamegrepl-compile-optionsCR) h0]45454 56 grepl  -gform  -gfrom   -gopts   -gfilenamefsystem/repl/common.scm      # '  -   - gnameg repl-compileC1R)D h@]45454 4 55 6grepl  :gform  :gfrom   :gopts   :gfilenamefsystem/repl/common.scm        # . *  0  4  :   : gnameg repl-expandC4R)GD hH]454544  4 55 4 556grepl  Fgform  Fgfrom   Fgopts   Fgfilenamefsystem/repl/common.scm          & 9 - ) 3  4  <  @  F   F gnameg repl-optimizeC5R)h ] 4455$6Cgrepl  gform  gparser   gfilenamefsystem/repl/common.scm    !           gnameg repl-parseC6R)18fh\]LL456Tgfilenamefsystem/repl/common.scm      C hhC]4455" 456$84455$" 45$ OC"";grepl  cgform  cgeval   cgt  4 Mgfilenamefsystem/repl/common.scm    #       !  !  (  + , 3  4  4 B  H ' J  Q   c gnamegrepl-prepare-eval-thunkC2R2hK]L6Cgfilenamefsystem/repl/common.scm     Ch8]4545U4O>XCXFG@grepl  7gform  7gthunk  7ghandler   7gargs  , 7gfilenamefsystem/repl/common.scm       7 gnameg repl-evalC3R8nhP] &C4>"G45$64>"G6grepl  Ngval  Ngt  ( Ngfilenamefsystem/repl/common.scm   & ( (  8  9 N   N gnameg repl-printC7R*lh0] 4455$" 45Cgrepl  -gkey  -gt   *gfilenamefsystem/repl/common.scm        #  ' +   - gnamegrepl-option-refC8R*lkhPU] 4455$" 4545$45"CMgrepl  Pgkey  Pgval   Pgt   *gspec  * Pgfilenamefsystem/repl/common.scm           #  '  *  /  0  5  9  =  >  A  G  N   P gnamegrepl-option-set!C9R{lkhP9] 45$" 4545$45"C1gkey  Kgval  Kgt  %gspec  % Kgfilenamefsystem/repl/common.scm        "  %  *  +  0  4  8  9  <  B  I   K gnamegrepl-default-option-set!C:R:hh]6gprompt  gfilenamefsystem/repl/common.scm     gnamegrepl-default-prompt-set!C;Rh|]4>"G6tgx  gfilenamefsystem/repl/common.scm       gnamegputsCstringC=R>h-136gmsg gargs gfilenamefsystem/repl/common.scm       gnameg user-errorC>RCgm  0gslots t g constructor t gfilenamefsystem/repl/common.scm   1 (  8 ( 9 - 7 A (  D ' F 0 I / K ? N > \ j  n   o  k   A o  / n  2 m 9 w u B |  k r  <    $   *    &   C6