ELF@(@8@((PPPppD ???4<@=@<@=@<@=@<@ D@?@40 @ > @=@B<@5p> @= @B <@5 9 PC@@@40p0`` C@@@4`C@@@4@68p8000@00PP 0`9 C@@@400p ;>*, 470 &jC@f@@4P)ooo&CjC@W@@4P):ooo&4j`C@H@@4@)+ooC@=@@4P70P000` " C @*@@4 ; `  00 0 0 0 &ejCf@@d@4P)Yooo&PjC@@@4P)Doo%<S%6RS%/S#)RCW@?U@4P70P00`0 " C P@?N@4 ; `  00 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 PC&@??4`68PC'@?%@400PP0@0P0 &j C@?@4)C@?Y?4 7@0 000@00 0 ?<><7>O><>?>><9>O>>>=<>><>?@>:>?C><>>O>C>?E><@>O>E>?G><B>O>G>=E>>E>=7>>E>?E>?>=&>>B>?B><>?C>w<>>O>C>=A>P>@>?B>r?G>{<B>O>G>=E>P>D>?F>t<A>O>F>?H>r<C>O>H>=F>>F>=8>>F>?F>@>?E>A>==>D>==>D>?D>>>?C>?>?F>T<A>O>F>=D>>D>==>D>?D>>>==>A>?A>;>?@><>?C>A<>>O>C>=A>>A>==>A>?A>;>==>>>?>>8>?=>9>?@>*<;>O>@>=>>>>>==>>>?>>8>==>;>?;>5>?:>6>?;>7>?<>>?;>5>?:>=?9>3>?8>=?7>1>?6>=?5>/>?6><1>O>6>=4>P>3>?5><0>O>5>?7><2>O>7>=5>>5>='>>5>?5>/>?6><1>O>6>?<>??>?@><;>O>@>?D><?>O>D>?H><C>O>H>?L><G>O>L>?P><K>O>P>?T><O>O>T>?X><S>O>X>?\><W>O>\>?`><[>O>`>?d><_>O>d>?j><e>O>j>?n><i>O>n>9 'define-module*'guile'language'cps' type-checks'filename'language/cps/type-checks.scm'imports'ice-9'match'effects-analysis'types'intmap'exports'elide-type-checks'!compute-effects/elide-type-checks'set-current-module' infer-types'persistent-intmap' intmap-fold' intmap-ref'$kargs' $continue' $primcall'primcall-types-check?'intmap-replace!'$branch'compute-effects'$kfun@@ABDFHHJ *`7A`7`7`7( `7 !EE     h h (  *K<PPpE5M(U[kh  zP g-(App(@ 4=4,     !$ ,4<DL T$h|-38   8LPdht@F8L   R R RR  R RTRT R    <Hd l$  $$- (D H` @V8  $(HLTc3  tT%. . .Guile 2.2.7elide-type-checkscompute-effects/elide-type-checks0 language/cps/type-checks.scm wdzAw<