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.0GM]4h ] gguile  gdefine-module*   glanguage gtree-il g fix-letrec  gfilenameS flanguage/tree-il/fix-letrec.scm gimportsS gsystem gbase gsyntax    gsrfi gsrfi-1   gsrfi-11     geffects    gexportsS g fix-letrec! !  "gset-current-module #" $" %g  &% '% (glexical-set-exp )g  *) +) ,gmodule-set-exp -g .- /- 0gtoplevel-set-exp 1g 21 31 4gtoplevel-define-exp 5g  65 75 8gconditional-test 9gconditional-consequent :gconditional-alternate ;g  <; =; >gapplication-proc ?gapplication-args @g  A@ B@ Cg sequence-exps Dg ED FD Gg lambda-body Hg  IH JH Kglambda-case-inits Lglambda-case-body Mglambda-case-alternate Ng ON PN Qglet-vals Rglet-body Sg TS US Vg letrec-vals Wg letrec-body Xg YX ZX [gfix-vals \gfix-body ]g  ^] _] `glet-values-exp aglet-values-body bg  cb db eg dynwind-body fgdynwind-winder ggdynwind-unwinder hg ih jh kg dynlet-fluids lg dynlet-vals mg dynlet-body ng on pn qg dynref-fluid rg sr tr ug dynset-fluid vg dynset-exp wg xw yw zg prompt-tag {g prompt-body |gprompt-handler }g ~} } g abort-tag g abort-args g abort-tail gfix-fold g g g  glexical-ref-gensym gmemq gsimple-expression? gand-map gprimitive-ref? gdelq g lset-adjoin geq? glexical-set-gensym gletrec-gensyms gappend g let-gensyms gletrec-in-order? g effect-free? gexclude-effects gmake-effects-analyzer glset-difference glambda? gpartition-vars g make-sequence greverse gmake-sequence* g post-order! g make-void g letrec-src g letrec-names gmap glist gmake-let gcadr gcar gcaddr gmake-fix gmake-lexical-set g module-gensym ffixlr gmake-lexical-ref glet-src g let-names gassq glset-intersectionC5hH@]4    !54$>"Ghhs,3(D4> G          "kgproc  fgexps  fgunref   fgref   fgset   fgsimple   fglambda   fgcomplex   fgunref  2 fgref 2 fgset 2 fgsimple 2 fglambda 2 fgcomplex 2 fgfilenameflanguage/tree-il/fix-letrec.scm    f gnameg fold-valuesC'(+,/034789:=>?BCFGJKLMPQRUVWZ[\_`adefgjklmpqtuvyz{|9h0 ]4L> G      &#454L    >" &#454L    >" &#454L    >c"^ &#454L    >8"3  &4 54 54 54L    > G4L> G4L>"  &T45454L    > G4LL>S"N &%454LL    >&"! &?45$4L    >"    "" &4545454LL    > G$@4L> G4L>N"4L>4"/ &T45454LL    > G4L>" &T45454LL    > G4L>|"w &T454 54LL    > G4L> " !&R4"54#54L    > G4L>" $&4%54&54'54L    > G4L> G4L>="8 (&4)54*54+54LL    > G4LL> G4L>" ,&#4-54L    >" .&R4/54054L    > G4L>+"& 1&4254354454L    > G4L> G4L>" 5&4654754854L    > G4LL> G4L>"    " G L 6 gtree  .gunref  .gref   .gset   .gsimple   .glambda   .gcomplex   .gunref   .gref   .gset  .gsimple  .glambda  .gcomplex  .grtd +  gexp  < Tgexp  g gexp  gexp  gtest  ^g consequent  ^g alternate  ^gunref   ^gref   ^gset   ^gsimple   ^glambda   ^gcomplex   ^gunref  9 ^gref  9 ^gset  9 ^gsimple  9 ^glambda  9 ^gcomplex  9 ^gproc  x gargs  x gunref   gref   gset   gsimple   glambda   gcomplex   gexps   gbody   .ginits  O gbody  O g alternate  O gunref  n gref  n gset  n gsimple  n glambda  n gcomplex  n gunref   gref   gset   gsimple   glambda   gcomplex   gvals   5gbody   5gunref   5gref   5gset   5gsimple   5glambda   5gcomplex   5gvals  O gbody  O gunref  l gref  l gset  l gsimple  l glambda  l gcomplex  l gvals   gbody   gunref   gref   gset   gsimple   glambda   gcomplex   gexp   Ggbody   Ggunref  " Ggref  " Ggset  " Ggsimple  " Gglambda  " Ggcomplex  " Ggbody  h gwinder  h gunwinder  h gunref   gref   gset   gsimple   glambda   gcomplex   gunref   gref   gset   gsimple   glambda   gcomplex   gfluids   ]gvals   ]gbody   ]gunref   ]gref   ]gset   ]gsimple   ]glambda   ]gcomplex   ]gunref  8 ]gref  8 ]gset  8 ]gsimple  8 ]glambda  8 ]gcomplex  8 ]gfluid  p gfluid   gexp   gunref   gref   gset   gsimple   glambda   gcomplex   gtag   kgbody   kghandler   kgunref   kgref   kgset   kgsimple   kglambda   kgcomplex   kgunref  F kgref  F kgset  F kgsimple  F kglambda  F kgcomplex  F kgtag   gargs   gtail   gunref   gref   gset   gsimple   glambda   gcomplex   gunref   gref   gset   gsimple   glambda   gcomplex   gunref  .gref   .gset   .gsimple   .glambda   .gcomplex   .gfilenameflanguage/tree-il/fix-letrec.scm    . gnamegfoldtsCh@;, 3 O  Q O   Q  63gtree  ;gdown  ;gup   ;gunref   ;gref   ;gset   ;gsimple   ;glambda   ;gcomplex   ;g fold-values  ;gfoldts  ; gfilenameflanguage/tree-il/fix-letrec.scm    ; gnamegfix-foldCR589:@Chj]LL6bgx  gfilenameflanguage/tree-il/fix-letrec.scm ,  ,   C;>?hj]LL6bgx  gfilenameflanguage/tree-il/fix-letrec.scm 1  2   Ch]#&C&C&4545C&G45454 54 5$4 5$  6CC &4 5 O6&;454545$45$ O6CCCgx  g bound-vars  gsimple-primcall?   grtd   ggensym  * 7gtest  T g consequent  T g alternate  T gexps  gproc  gargs   gfilenameflanguage/tree-il/fix-letrec.scm !  "  - & 6 &  ? "  [ ( i (  j ) x (  * "  ,  "  / /  0 /  1   gnamegsimple-expression?CR%SN h]&'454545D& 4545D&4 54 5D &4 54 5DDgx  gunref  gref   gset   gsimple   glambda*   gcomplex   grtd   ggensym   6ggensym  E ^ggensyms  m ggensyms   gfilenameflanguage/tree-il/fix-letrec.scm :   ;   =  " >  6 =  > ;  L F  ^ D  f ;  p K  K  ;  R  R  Y   CSVh ] 4M54 56gx  geffects gfilenameflanguage/tree-il/fix-letrec.scm d   e ( e   g   f    gnamegeffect+exception-free-primcall?Chj]L6bgx  gfilenameflanguage/tree-il/fix-letrec.scm ^ 0 ^ <  Ch ] 4M5456gx  geffects gfilenameflanguage/tree-il/fix-letrec.scm _   ` ( `   b   b 5  b   a    gnamegeffect-free-primcall?CNQh]_&454545  H O  Q 4O5K "k (8$4 5"4 54 54 5D4  5$l"  "$D4 5$" 4   5$   "P""4  5$   "4 5$   "4  $ " O5$   "   "   "& 4545 " (#4  54  54 5D4  5$        "4  5$         ""         "a4  5$04  5$"         "%"     " Dgx  gunref  gref   gset   gsimple   glambda*   gcomplex   grtd   g in-order?  $ g orig-gensyms $ gvals $ gcompute-effects + geffect+exception-free-primcall? 5 ggensyms L gvals  L gs  L gl  L gc  L g orig-gensyms   gvals  ggensyms  gvals  gs  gl  gc   gfilenameflanguage/tree-il/fix-letrec.scm Z   [  ; ^  L h  R j  X p # Y q ' n u # w v # w # p  x  x ! x  j  # 1  z  { ) { 2 { ) z  | ) } * | ) | $ z   #  1 - '      !    j     -  ) " # 0  1  6 $ 8  < j  ?  B - G ' J ! Z  [  `  h  w  { j  ~   -  %        -  )  #    h   i #  i +  i 3  h   [       #  #  #      !   !  $  ' - ;  <  A ! E  I  L  O - V ) Y # g  n  q - x ) { #       )     %  +  %      -  '  !      #  +  3    x   Ch0E]14>  GD=gx  0gunref  0gref   0gset   0gsimple   0glambda*   0gcomplex   0gfilenameflanguage/tree-il/fix-letrec.scm 6  9             9   7  0   0 gnamegpartition-varsCRDh]""((C456& "& "& "& ""p"egsrc  gexps  gin   gout   ghead  + grtd  0 gfilenameflanguage/tree-il/fix-letrec.scm          ! . $ ( &  ( +  +  0 =  G  O R  \  d g ! q  y |          gnamegmake-sequence*CR%(SVWh0](C4L5$ 4L5C"gbinds  /gfilenameflanguage/tree-il/fix-letrec.scm              $ " ( $ $ %  )  /   / gnameglpCh] OQL6gset  glp gfilenameflanguage/tree-il/fix-letrec.scm    gnameglookupChl]6dgx  gfilenameflanguage/tree-il/fix-letrec.scm *  6   Ch]6gc  gfilenameflanguage/tree-il/fix-letrec.scm     1  :   .      Chu]6mgx  gfilenameflanguage/tree-il/fix-letrec.scm  &   7   (   Ch ]456gx  gtmp  gfilenameflanguage/tree-il/fix-letrec.scm     $  -  !   6   !      CNQRhl]L6dgv  gfilenameflanguage/tree-il/fix-letrec.scm      Chl]L6dgv  gfilenameflanguage/tree-il/fix-letrec.scm      Chl]L6dgv  gfilenameflanguage/tree-il/fix-letrec.scm      C'h`]q&245454L5$456C&b454 54 54 54 54 545O Q 4 L54 L54 L54 L5    44 54 5544 54 5544 54 5544 54 54 5444 5 ( "[$44 55">4 544 54 544 5555556&4545454 54!5454"O4#$L554%O4#$L554&O4#$L55  44544 54 54 544 54 54 55556CXgx  grtd  ggensym   Agexp   Agsrc  s g in-order?  s gnames  s ggensyms  s gvals  s gbody  s gbinds  glookup gu gs gl gc gtmps  n gsrc   gnames   ggensyms   gvals   gbody   gbinds   gu  4 gl 4 gc 4 gfilenameflanguage/tree-il/fix-letrec.scm    "  . 4 + < ! >  I         $    #    %        !  - )  .  1  ?  D  N  O   R   _   a   f  ! n   q   u     -                                              (   4   4  ? %  B '  K *  P *  Y * , b * 8 k ,  p , ) y , 6  , B  ,   *   (   %   # R   Ch0]!4> GO6gx  +gunref +gsimple  +glambda*  +gcomplex  +gfilenameflanguage/tree-il/fix-letrec.scm  /   +   + gnameg fix-letrec!C RCgm  ,gfilenameflanguage/tree-il/fix-letrec.scm     D ! - 6 0 @@   @B C6