GOOF----LE-8-2.0)8]4h ] gguile  gdefine-module*   gsystem gbase gcompile  gfilenameS fsystem/base/compile.scm gimportsS gsyntax    glanguage   gmessage   gvm   gice-9 gregex   goptargs   greceive !  "! #" $gexportsS %gcompiled-file-name &g compile-file 'gcompile-and-load (gread-and-compile )g decompile *%&'() +gset-current-module ,+ -+ .gerror /f"thunk may only be entered once: ~a 0g call-once 1g string-append 2f.XXXXXX 3gmkstemp! 4fwb 5gwith-throw-handler 6gcatch 76 86 9g stat:perms :gstat ;glognot g close-port ?g rename-file @g delete-file Agcall-with-output-file/atomic Bg language? Cglookup-language Dgensure-language Eg system-error Fgmkdir GgEEXIST HgENOENT Igensure-directory Jgdirname Kgthrow Lg%compile-fallback-path Mgcanonicalize-path Ngstring-prefix? Of/ Pg string-length Qg string-ref Rg substring Sg%load-compiled-extensions Tg string-null? Ugwarn Vf!invalid %load-compiled-extensions Wf.go Xg output-fileS YX  ZgfromS [Z  \gtoS ]\  ^genvS _^  `goptsS a`  bgcanonicalizationS cb  dY[]_ac egcurrent-language fgobjcode ggdefault-environment hgrelative ig %file-port-name-canonicalization jf,failed to create path for auto-compiled file kgopen-input-file lg file-encoding mgset-port-encoding! nfUTF-8 oglanguage-printer pZ  q\  r^  s`  tb  upqrst vgvalue wgcurrent-module xgmap ygcdr zglookup-compilation-order {fno way to compile |fto }gcompile-passes ~g compile-fold glanguage-joiner greverse gfind-language-joint fBMultiple expressions read and compiled, but language has no joiner gdefault-language-joiner glanguage-reader g eof-object? glanguage-parser gread-and-parse pqrs g parameter?   g scm-error gwrong-type-arg f parameterize fNot a parameter: ~S gmemq gwarningsS gfor-each glookup-warning-type gwarning gunsupported-warning glookup-decompilation-order fno way to decompile gdecompile-passes gdecompile-fold ^  []s gassemblyC5hp+]4    #$*54->"G./h(r]M$4L>"G"NCjgfilenamefsystem/base/compile.scm +   , -  -   -  # .   % ChJ]CBgfilenamefsystem/base/compile.scm 0    C./h(r]M$4L>"G"NCjgfilenamefsystem/base/compile.scm +   , -  -   -  # .   % ChX] HO4O>"GV4>X4>"GCX4>"GFgthunk  Tgentered  Tgfilenamefsystem/base/compile.scm (  )   *   T gnameg call-onceC0R12340589:hZ]4L56Rgfilenamefsystem/base/compile.scm =   = < = 0  Ch_-13CWgargs gfilenamefsystem/base/compile.scm =  C;<=>? hx]4LL>"G4LO5$" 44554L >"G4L>"GLL6gt # >gperms > [gfilenamefsystem/base/compile.scm 9  :  =  # =  2 >  5 > $ ; >  > = A ? K ?  P ? \ @ u A   u C>@h(o-134L>"GL6ggargs !gfilenamefsystem/base/compile.scm B C ! D  ! Ch R]LLLLLOLLO6Jgfilenamefsystem/base/compile.scm 7   8    Ch@"-.,3#4545O6gfilename >gproc >g reference  >gtemplate   >gtmp  ) >gfilenamefsystem/base/compile.scm 3  4   4 +  4   4  ! 5  ' 5 ! ) 5  ) 4  > 6  >  gnamegcall-with-output-file/atomicCARBCh]45$C6gx  gfilenamefsystem/base/compile.scm F  G  G   I    gnamegensure-languageCDR6EFhR]L6Jgfilenamefsystem/base/compile.scm Q   R    CGHIJKhX] $"$C$44L5>"GL66gk  Rgsubr  Rgfmt   Rgargs   Rgrest   Rgerrno   Rgfilenamefsystem/base/compile.scm S   T  T  T %  T   V  U  # Z ' U  ( [ + [  6 [ D \ R ^   R Ch]OO6gdir  gfilenamefsystem/base/compile.scm O  P  P    gnamegensure-directoryCIRL1MNOPQRSTUVW8IJh]]4L56Ugfilenamefsystem/base/compile.scm   4 "  Ch`-13CXgargs gfilenamefsystem/base/compile.scm  Ch] $44545$"B45 $24 5:$44 54 55"" $"4  5$4   >"G " 54O5$CCCgfile  gcanon  ngt q gf gfilenamefsystem/base/compile.scm l  ~     $    q   q   q  # p  * r  3 r 7 p  8 s  B s F r  G u  K u  L u  U u / _ u  q x  q x  y  y  y  x  z z  z | }       $  gnamegcompiled-file-nameC%Rdefghi%.jklmnIJAoD(^Z\`h0]44L554LLLLL5 6gport  )gfilenamefsystem/base/compile.scm       )   ) Ch-/03 ##45## 45##Y$"!45$" 4 54 54 5 4  $ " >"G445>"G4O>"GZCZF~gfile  g output-file  gfrom   gto   genv   gopts   gcanonicalization   gt  n gcomp  gin  genc  gfilenamefsystem/base/compile.scm #  1  :  I  S ) a  h ! n  }           %       g output-fileS gfromS gtoS genvS goptsS gcanonicalizationS gnameg compile-fileC&Ruevwhi(kZ\`^ hxn-/03#45##45##Y445    > ZCZFfgfile  sgfrom  sgto   sgenv   sgopts   sgcanonicalization   sgfilenamefsystem/base/compile.scm  , ( D 1 > 8 H - Q  T  o   s gfromS gtoS genvS goptsS gcanonicalizationS gnamegcompile-and-loadC'Rxyz.{|h0] 45$" 456gfrom  /gto  /gopts   /gt   -gfilenamefsystem/base/compile.scm     "  & + * /   / gnamegcompile-passesC}RhP8](D4L> G$""0gpasses  Mgx  Mge   Mgcenv   Mgfirst?   Mgx  Mge  Mgnew-cenv  Mgfilenamefsystem/base/compile.scm        !  #  ,  6  M   M gnameglpCh ] OQ6gpasses  gexp  genv   gopts   glp  gfilenamefsystem/base/compile.scm    gnameg compile-foldC~Rz.{|hhW]"&(C45$C"445$" 455"Ogfrom  bgto  bgin   ,glang   ,gt  8 Vgfilenamefsystem/base/compile.scm        #  , ,  -  0  8  G  K # O < S  X  b   b gnamegfind-language-jointCR.h(]"L6$(C""ޯgexps  (genv  (gfilenamefsystem/base/compile.scm          !      ( Ch]OCyglang  gfilenamefsystem/base/compile.scm   gnamegdefault-language-joinerCRh8 ]445545$C45$6Cglang  8gport  8gcenv   8gexp   8gt  ' 8gfilenamefsystem/base/compile.scm           !  '  5 0  8 gnamegread-and-parseCRefgDe>Z\^g`~}h]#445L545$b4L>"G44L5$"4L5455 L L $"4 L5 L6 4445LL5L> G"Jgexps  genv  gcenv   gx   gt  9 Qgjexp  gjenv  gjcenv  gfilenamefsystem/base/compile.scm     #         2  3  9  H  R  \  l  s %    0      gnameglpC h-/03 #45## 45#45454545$"4   >"G 4 5Y O  Q 4 >ZCZFgport  gfrom  gto   genv   gopts   gfrom  P gto  P gjoint  ] gt-3ee4cd0d75-1ff  a glp  gfilenamefsystem/base/compile.scm  ! (  1 @ ! C  J P  U  ]  a      gfromS gtoS genvS goptsS gnamegread-and-compileC(Revgh ] 45$C6gw  gt gfilenamefsystem/base/compile.scm      #     C~} h-/03#45## 45#45$!4>"G"4 4 5> GCgx  gfrom  gto   genv   gopts   gwarnings  K xgwarnings  X qgexp  genv  gcenv   gfilenamefsystem/base/compile.scm   (  1  @  C  K  P  T  W  X  [ y  |     gfromS gtoS genvS goptsS gnamegcompileCRxy.|h0] 45$" 456gfrom  /gto  /gopts   /gt   -gfilenamefsystem/base/compile.scm         "   &  - *  /    / gnamegdecompile-passesCRh8](D4> G6gpasses  2gexp  2genv   2gopts   2gexp   2genv   2gfilenamefsystem/base/compile.scm                 !   *   2    2 gnamegdecompile-foldCRvhP-/03####456 gx  Ngenv  Ngfrom   Ngto   Ngopts   Ngfilenamefsystem/base/compile.scm  $   .   7   <   N    N genvS gfromS gtoS goptsS gnameg decompileC)RCgm  ,gfilenamefsystem/base/compile.scm    (  3  F c O ) l     r  h # 'L (  )  +n    +p C6