JFIFxxC      C  " }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3RbrJFIFxxC      C  " }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr2.0/ccache/scripts/list.go000064400000007524151463412640011260 0ustar00GOOF----LE-8-2.0<]@4h] gguile  gdefine-module*   gscripts glist  gfilenameS fscripts/list.scm gimportsS gsrfi gsrfi-1      gexportsS g list-scripts  gset-current-module   g%include-in-guild-list fAn alias for "help". g%summary g file-exists? gfile-is-directory? gopendir g eof-object? gclosedir greaddir gstring=? !f. "f.. #gdirectory-files $gor-map %gstring-suffix? &g string-null? 'g substring (g string-length )gappend *g%load-compiled-extensions +g%load-extensions ,gstrip-extensions -gunique .gmap /gsymbol->string 0gsort 1g append-map 2gfold 3g in-vicinity 4g %load-path 5gstring<= ?<=C5h8 ]4   54>"GRR !" h]!45$45$}45"`45$4>"GC4545$" 4 5$""45"CCgdir  g dir-stream  gnew  % gacc  % gt  U ngfilenamefscripts/list.scm #  $ $   $   $   %   %  % &  & (  0 ( 1 *  F ,  M -  Q - & U -  U -  c .  g . & k .  r -  } 0  ,  &  &  '  &  1   gnamegdirectory-filesC#R$%&'(h8]4L5$#45$CL 4L5456Cgext  4gfilenamefscripts/list.scm 4  6  5  :   5 " <  ) < 0 0 <  2 ;   4 C)*+h]O456zgpath  gfilenamefscripts/list.scm 3 =  4    gnamegstrip-extensionsC,R-h8](C(C$645Cgl  5gfilenamefscripts/list.scm ?  @   A   @   B   B   B ! @  & B + ( B # + C  , C  1 C $ 3 C  4 C   5 gnameguniqueC-R./-012,h ] 45$CCgx  grest  gstripped  gfilenamefscripts/list.scm J   K , K   L   L +   C#3hj]6bgx  gy  gfilenamefscripts/list.scm O ! O /  Ch ~]44L556vgpath  gfilenamefscripts/list.scm I   M   N  O   N   J    C45 h(] 4544O556ghead  &gshead &gfilenamefscripts/list.scm E  F  F   H   I  $ H  & G   & gnamegfind-submodulesC6R789hc]6[gx  gfilenamefscripts/list.scm T  V  V   C6:h-13456gargs gfilenamefscripts/list.scm S  W  W   W  T   gnameg list-scriptsCR?hp-13@hgargs gfilenamefscripts/list.scm Y  Z   gnamegmainC=RCgm  ,gfilenamefscripts/list.scm   0  2  5  # % 3 H ? N E S 3 Y   5 C62.0/ccache/scripts/read-scheme-source.go000064400000021410151463412640013746 0ustar00GOOF----LE-8-2.0"]N4hA] gguile  gdefine-module*   gscripts gread-scheme-source  gfilenameS fscripts/read-scheme-source.scm gimportsS gice-9 grdelim      gexportsS gread-scheme-source-silently gquoted? gclump  gset-current-module   g%include-in-guild-list f/Print a parsed representation of a Scheme file. g%summary g:type gvariable g define-module glength gdefine !galias "glambda #gstring? $g procedure %g :signature &g :std-int-doc 'g annotate! (gquote )gfilename *g make-regexp +f^#! ,f^!# -f ^[ ]*(;+) .f^[ ]*$ /gopen-input-file 0g eof-object? 1g regexp-exec 2ghash-bang-comment 3g:line 4g :line-count 5g :text-list 6greverse 7g read-line 8g whitespace 9g:text :gcomment ;g:leading-semicolons g port-line ?gappend @gfollowing-form-properties Agprocess Bgfor-each Cgwrite Dgnewline Egerror Ff bad list! Ggstring->symbol Hg substring Igsymbol->string Jgassq-ref Kgleading-semicolons Lgtext MgmainC5h]4   54>"GRR !"#$%& h]"6$"&6""B 45$0&#$$6"""" 45$& "$$z 45$e&U45$@4 >"G4 >"G 6"""""$c$U4 >"G4 >"G 45$45$  6CC"""""fgform  gnote!  gfilenamefscripts/read-scheme-source.scm c      d   d   d     " "  &  (  * . d  5 z  < z  @ y B {  E {  I y L |  N |  R y U }  X }  \ y ` ~  b ~  d ~ t d  w e  ~ e  d f  f  d q  q  n r  r  n s  s  s  s  n t  t t  n u  u  u  u  n v v  v  v w w  w " w 4 w . w  w  x   x %  x   x $ d  ' g  ) g  - d 0 h  3 h  7 d 8 i < i  > i  C i L j P j  S j  Y j d k  k k  o k p l  u l  y l  } k  m   m #  m a   gnameg annotate!C'R()*+,-./0123456789:;<=>'?h-134M5NCgargs gfilenamefscripts/read-scheme-source.scm / 7  1  gnamegprop+C@h`i]b4>"G4545454545"$4 5  $ C4 5$"p4  5  $" 4  5 $84   4 54  5>"/G"(45    "45  "|".4 5$"4>"G"4 5  $44     >"G"4>"G45 45H H 4  O>"GJ   J   $"4>"GJ K  4  J  >"G4 >"G    4545" C4545"agfile  ^gnb!  ^g hash-bang-rx  A ^g bang-hash-rx  A ^gall-comment-rx  A ^gall-whitespace-rx  A ^gp  A ^gn  O Ggline  O Ggt \ Egline x gtext x gt  gt 8 .gm1 M Ygform  +gcount  (gprops  gprops  %gt  gfilenamefscripts/read-scheme-source.scm         # # %  &  * # ,  -  1 % 3  4  8 ( :  ; A  O  U  V \  h  t x  y        2 .  - . -       $ $         #  0  8 A  E  M + M ! R & U / V # [  h  u      $  !    /  !  #          '           /  6  7 % E F G  H  O  P , ^ \  ^ gnamegprocessCARBAht]MNClge  gfilenamefscripts/read-scheme-source.scm   4 *  Chn]LO6fgfile  gfilenamefscripts/read-scheme-source.scm      C6h0-13H4O>"GJ6gfiles +gres +gfilenamefscripts/read-scheme-source.scm    +  + gnamegread-scheme-source-silentlyg documentationf6See commentary in module (scripts read-scheme-source).CRBACDht]4>"G6lge  gfilenamefscripts/read-scheme-source.scm   (  2   Chn]6fgfile  gfilenamefscripts/read-scheme-source.scm   Ch-136gfiles gfilenamefscripts/read-scheme-source.scm    gnamegread-scheme-sourceg documentationf6See commentary in module (scripts read-scheme-source).CR(EFGHIhB]"$ 45$&${ 45$l&a"Q(C$"4>"G4445 55""CCCCCC:gsym  gform  ginside  $ gls  G galist  G gfirst  S gfilenamefscripts/read-scheme-source.scm            #  $  )  - /  6  : ?  C G  M  S ! S  X  \  a  e ! j  u  w # z $ } / $ # #     2 )  gnamegquoted?CR6@82:JKL ht]Y"g(6$"45$"45$"45$"|45$"(45"G 4 5  $I4 5  $4  5"45"45"454 5"E""lgforms  {gforms  mgacc   mgpass-this-one-through?   mgform   mgt  mg inner-forms  8glevel  8gtext  8g inner-form 8gt 8g new-level  gfilenamefscripts/read-scheme-source.scm            % # 0  1  5  9  = @  E # P  Q  U  Y  ] `  m  n  r  v  z }         < 0 * $  0    '  0  '   3  4  3  ,  2  .  9  ?  @  ?  9   2  <  0  *  $ # < * 0 - * 8 $ 8  ; / < ) B 9 D ) E . K > M . P ( Z  ]   b  ( m   m  p { R  { gnamegclumpCRiMRCgm  ,gfilenamefscripts/read-scheme-source.scm  V 0 ] 2 ^  5 ^  c   F ] w ~     C62.0/ccache/scripts/snarf-check-and-output-texi.go000064400000043443151463412640015536 0ustar00GOOF----LE-8-2.0 G]4h ] gguile  gdefine-module*   gscripts gsnarf-check-and-output-texi  gfilenameS f'scripts/snarf-check-and-output-texi.scm gimportsS gice-9 gstreams     gmatch     gexportsS  gset-current-module   g%include-in-guild-list f8Transform snarfed .doc files into texinfo documentation. g%summary gmake-syntax-transformer   gwhen gmacro !g $sc-dispatch "! #! $g_ %gany &$% 'g syntax->datum (' )' *g datum->syntax +* ,* -gif .gbegin /gsyntax-violation 0/ 1/ 2f-source expression failed to match any pattern 3gunless 4gnot 5g *manual-flag* 6gmember 7f--manual 8gprocess-stream 9gcurrent-input-port :g stream-null? ;g stream-car g stream-cdr ?g stream-map @gstring? Agstring Bgint_hex Cgint Dgstring->number Egint_oct Fgint_dec Ggid Hgstring->symbol Ig make-stream Jgeol Kghash Lg port->stream Mgread Ngerror Ogsyntax Pfpremature end of file Qg brace_open Rgconsume-multiline Sgconsume-upto-cookie Tgprocess-singleline Uf*premature end of file in directive context Vgreverse! Wgbegin-multiline Xf*premature end of file in multiline context Yg brace_close Zg end-multiline [gprocess-multiline-directive \g*file* ]g*line* ^g*c-function-name* _g*function-name* `g *snarf-type* ag*args* bg*sig* cg *docstring* df@deffnx {Scheme Procedure}  eg*primitive-deffnx-signature* fg string-length gg*primitive-deffnx-sig-length* hgregister iglength jgformat kf;~A:~A: ~A's C implementation takes ~A args (should take ~A) lgwith-output-to-string mf~A nf ~A of [~A pf . ~A qg primitive rf@deffnx {C Function} ~A ( sf, ~A tf)  uf ~A  vf@c snarfed from ~A:~A  wf@deffn {Scheme Procedure} ~A  xgstring=? yg substring zgdisplay {f  |f @end deffn  }f ~g string-append f@ f@@ g texi-quote gSCM G finvalid argument syntax: ~A gmap gcdr gcomma  g paren_close  gargsig funknown doc attribute: ~A garglist g paren_open  finvalid arglist syntax: ~A gvoid G glocation gtype gfname greverse   gcname gsymbol->string f unknown doc attribute syntax: ~A gargpos G g list-index f9~A:~A: wrong position for argument ~A: ~A (should be ~A)  gcurrent-error-port funknown check: ~A gmainC5h8Q]4   54>"GRR4 #&),-.h-13Cgcond gbody gfilenamef'scripts/snarf-check-and-output-texi.scm ! "   Ch{] 45L4?6sgargs  gv gfilenamef'scripts/snarf-check-and-output-texi.scm  !    C12h(y] 45$ O@6qgy  'gtmp 'gfilenamef'scripts/snarf-check-and-output-texi.scm !   ' C5R43 #&),-4.h -13Cgcond gbody gfilenamef'scripts/snarf-check-and-output-texi.scm $ %   Ch{] 45L4?6sgargs  gv gfilenamef'scripts/snarf-check-and-output-texi.scm  $    C12h(y] 45$ O@6qgy  'gtmp 'gfilenamef'scripts/snarf-check-and-output-texi.scm $   ' C53R5R67589h(-1345$ "456gflags &gfilenamef'scripts/snarf-check-and-output-texi.scm ) *   *   *   *   +  ,  & ,  & gnamegsnarf-check-and-output-texiCR:;<=>h@] 45$C45& 45L645"ginput  ;gtoken  ;gfilenamef'scripts/snarf-check-and-output-texi.scm /   F F   G   G   H   H  ! H  $ I  . I / K  ; K   ; gnamegloopC?@ABCDEFGH h]"""S"!$C45$CC$#& 4 5C""$#& 4 5C""$!& 45C"S"O$!& 4 5C"#"gexpr  gw @ ]gx  @ ]gw n gx  n gw gx  gw gx   gfilenamef'scripts/snarf-check-and-output-texi.scm /  9 " / , ; ( / ; " 3 / N 7 ( O 7 - X 7 " ] / | 5 ( } 5 - 5 " / 3 ( 3 - 3 " / 1 ( 1 , 1 " /   CI:;JK>h`]"L45$C45&"$ 45"4545C"gs  Zgs  Rgt   1gfilenamef'scripts/snarf-check-and-output-texi.scm = -  > /  @ 4  ? 1  A :  A 4 5 ? 1 6 B : B B 4 C C ? J C N Q C 9 R > /  Z CLMh0] OQ4445556gport  *gloop *gfilenamef'scripts/snarf-check-and-output-texi.scm . /   /   =  D - & = ( /  * /   * gnamegprocess-streamC8R:NOP;QR>ST hP"] 45$4>"G"45& 456  6ginput  Ngcont  Ngtoken  , Ngfilenamef'scripts/snarf-check-and-output-texi.scm M  O  O   P   P  P   P  & R  , R  1 T 3 T  7 S  : U  D U  N X   N gnamegdispatch-top-cookieC=R:NOU;<V> h]"k45$4>"G"45&"445>"G45645""gprocess  |ginput  |gcont   |gacc   qginput   qgtoken  0 qgfilenamef'scripts/snarf-check-and-output-texi.scm \  ]   _  _   `   `  `   `  * b  0 b  5 d  7 d  ; c  < e ? e  J e U f  ] f b h  c h % q h  q ]  r ]  | ]   | gnamegconsume-upto-cookieCSRW:NOX;YZ>S[ h` ] 45$4>"G"45&4>"GL456  L6ginput  \gtoken , \gfilenamef'scripts/snarf-check-and-output-texi.scm m   o o   p   p  p   p  & r  , r  1 t  3 t  7 s  8 u J v  R v \ x   \ gnamegloopC:NOX;YZ>S[ hJ]4>"GOQ45$4>"G"45&4 >"G4 56  6Bginput  |gcont  |gloop   |gtoken  L |gfilenamef'scripts/snarf-check-and-output-texi.scm j  k   m  # o - o  . p  2 p 4 p  9 p  F r  L r  Q t  S t  W s  X u j v  r v | x   | gnamegconsume-multilineCRR\R]R^R_R`RaRbRcR\]^_`abc h ]        Cgfilenamef'scripts/snarf-check-and-output-texi.scm                  gnamegbegin-multilineCWRdeR4fiei5gRbh`iaNjk\]_ljm_nopah`]04>"G"L$$4>"G""L$+4>"G]"L $4>"G""'(C4>"G"" "i "-Xgargs  gr  go  L gargs  L gtail  L gtail  gfilenamef'scripts/snarf-check-and-output-texi.scm           $  %  * " - ( 2  = ! @ , H  L  Q  U  V  [ % ^ , c  n $ q , v 7     ' $    " - 2 " - "   =  -  C5qjr^amsthx+]4>"G("L4>"G")("(4>"G""6#gargs ; dgfilenamef'scripts/snarf-check-and-output-texi.scm          "  ' ! * & /  ;  A  F  K % N , S  ^ d  d  g ' m  r  t   t Cuvwfgxyezc{|h]@&" 45$+44   455>"G"& "4  O5$& 4 5""4 >"G4  >"G4>"G"|("~$*45$44 55""$ 4>"G"4>"G""x4>"G6greq  gopt gvar   gall   gnice-sig  g scm-deffnx  gstrings  gg scm-deffnx  ggfilenamef'scripts/snarf-check-and-output-texi.scm               % &  ,  5  6 :  ;  > C  J + T Y  i " m t  5                  +          "  -  "   &  *  +  0  5  @  J  K  g  g  t  x  }     C   gnameg end-multilineCZRf}~yxhH#] 4L5$C4L545$"4L56gi  Egss ! ;gfilenamef'scripts/snarf-check-and-output-texi.scm           . !  !  $  * ( ,  0  2  <  A  C  E   E gnamegrecCh] OQ 6gs  grec gfilenamef'scripts/snarf-check-and-output-texi.scm    gnameg texi-quoteCRGNj h@|]1" "$$$t$N&'$ 4L5C445564455644556445564455644556$*$$""""$( $C"""tgexpr  =gw  gx   gw  1 gx  1 gw  B gx  B gw gx  gw $ 5 gfilenamef'scripts/snarf-check-and-output-texi.scm  X  _  c  h  i 8 s  u  x  }  ~ 8     8     8     8     8        0  5 '  = gnamegdo-argsCCNjbaA\]`G~_^c!hZ ]yO""" ""=""L$7&$$&$   $     &o"456 $R (G   $-  &   C456456""456456456456456456456456$A&+$ "$_ $,$ 45"44 4  555"44 4  555"44 4  555"$ $l$] $<$-(  $""' """""" """""" C"p"l"h$&|$q$\&F$;(0  $      &   C"""""""""$X&B$7(,$& C"t"p"l"h"d"`$X&B$7(,$& C" " """"$&o"`(4544?5 C$6$& & """|"x""i"e$b&L$A(6$&&4455 C"""""""""t(45 C$J$0&"4 564 564 56"$A$,&$ ")"="9"5"1Q" R gl  gexpr   gw  3 dgx  3 dgw  L Hgx  L Hgw  ] :gx  ] :gw v gx v gw gx gw gw  gx  gw   gx   gw   gx   gw  # gx  # gw  = gx  = gw [ rgw   Wgx   Wgw   Ogx   Ogw   Kgx   Kgw  ?gw ! ;gx ! ;gw  h gx  h gw   gw   gx   gw   gx   gw   gw    gx    gw  . gx  . gls  > gp-ls  > gname  K ]gw  g gw  v gx v gw   gx   gw   gw    gx    gexpr  " gls  * gp-ls  * gstring  7 ?gw  I gw  X gx  X gw   gx   gw   gx   gdo-args  Dgfilenamef'scripts/snarf-check-and-output-texi.scm                                                        !   &   *   ,   /   4   8   :   =   B   F   H   K   P   T   V   Y   ^   b   d   g   l   p   r   r             7          7          7       g  o       1   5   ;            N  Q ( Y  [  `     *       "   =   B   w   |                                               o   gnamegprocess-multiline-directiveC[R_GCazj\Nh({]q$$$$$$&$$   &o$f(]  $O     &;45$( $C4    54 56CCCCCCCCCCC 4 56 4 56 4 56Csgl  $gw  gx   gw  6 gx  6 gw  G gx  G gw  ` gx  ` gw q gx q gw gw gx gidx  gfilenamef'scripts/snarf-check-and-output-texi.scm   3  .  , #  %  %  &  '  '  ' (  ( ) 2 (  *  ( 1   1   1   1   1   1   1   1   1   1   1  " 1   $ gnamegprocess-singlelineCTRiRCIgm  ,gfilenamef'scripts/snarf-check-and-output-texi.scm   0  2   5   '  ) . M  \ u j y | } }  ~         %   &  > ! 5 8  8 6   8 C62.0/ccache/scripts/generate-autoload.go000064400000007662151463412640013710 0ustar00GOOF----LE-8-2.0]24h] gguile  gdefine-module*   gscripts ggenerate-autoload  gfilenameS fscripts/generate-autoload.scm gexportsS  gset-current-module     g%include-in-guild-list f)Generate #:autoload clauses for a module. g%summary gopen-input-file g eof-object? gread glength gdefmacro-public g define-public g define-module gmember g:export gappend gexport g export-syntax g autoload-info f--target !gdisplay "f;;; do not edit --- generated  #gstrftime $f%Y-%m-%d %H:%M:%S %g localtime &g current-time 'gnewline (f(define-module  )f (guile-user) *gfor-each +f :autoload  ,f  -f) .f ;;;  /f symbols in  0f modules  1gmainC5h( ]4    54>"GRR h])45"45$$(CCC"45"$a"F 45$4&'$45""""" 45$n&a"'$45"1"t$)$45"""":"6 45$&:454 5$4 5"" &" $454 5"d"""45"Egfile  gp gform   g module-name   gexports   gt  J fgt  s gfilenamefscripts/generate-autoload.scm @  A A   B   C  C  D / F  7 l  K l  K G N G  R G Y f  ` f  d e  f g  i g , m e  p h  r h  v e  w i  k  k  i  G W  W  V  X  X * V  a  a  ^  b  d  d  b  G Y  Y  V  Z  Z  V  [   ]   ]   [   G " H  ) H  - G  / I  2 I * 6 G  7 J  @ K  B L  F L & J L  J L  S N # X N + ] N # p J  s R  s R   P   S   U   U   U   S   B   B   B 9  B Q   gnameg autoload-infoCR !"#$%&'()**!+,h(]MN45MN6g module-name  $gexports  $gfilenamefscripts/generate-autoload.scm } (  ~ =  ~ *   >   ;   *  :  F " 4 $ *  $ Ch ] 45$ LLO@Cgfile  gt gfilenamefscripts/generate-autoload.scm y   z  z   } !  C-./0hJ-13 H H45$"$"4>"G4444555>"G4 >"G4 >"G4$" >"G4  O>"G4>"G4 >"G JJ6Bgargs g module-count g syms-count  gt   ,gtarget-override  , gfiles  ? gfilenamefscripts/generate-autoload.scm n o   q !  q )  q !  q  , o  4 s  7 s $ ? s 0 ? o  B t  F t K t  T u  W u [ u  \ u + _ u 6 e u + g u l u  u v  w  w w  x  x x ! x  y      ' )    )  gnameggenerate-autoloadCRi1RCgm  (gfilenamefscripts/generate-autoload.scm  : , = . >  1 >  @  n $   & C62.0/ccache/scripts/read-text-outline.go000064400000015737151463412640013664 0ustar00GOOF----LE-8-2.0]L4h] gguile  gdefine-module*   gscripts gread-text-outline  gfilenameS fscripts/read-text-outline.scm gimportsS gice-9 gregex      gexportsS gread-text-outline-silently gmake-text-outline-reader  g autoloadsS grdelim   g read-line  g getopt-long     gset-current-module   !g%include-in-guild-list "f*Convert textual outlines to s-expressions. #g%summary $gsymbol->string %gstring=? &f? 'g substring (g string-length )g?? *gmatch:substring +gmsub ,f -g ??-predicates .g make-regexp /f^ 0g string-append 1gassq-ref 2glevel-submatch-number 3g compute-level 4glevel-substring-divisor 5gbody-submatch-number 6g match:suffix 7g extra-fields 8gmap 9gfor-each :gset-object-property! ;g regexp-exec gstart ?> @g eof-object? Agobject-property Bgerror Cfunhandled diff not 1: Df(([ ][ ])*)- * E4  FE Ggwrite Hg open-file Ifr Jgnewline KgmainC5hP]4   5 4 >"G!R"#R$%&'(h ] 4544556gsymbol  gname gfilenamefscripts/read-text-outline.scm {  |  |   }   }   } &  } "  }  }   gnameg??C)R*hj]L6bgm  gfilenamefscripts/read-text-outline.scm    Chp]OChgn  gfilenamefscripts/read-text-outline.scm    gnamegmsubC+R)%,*h]44L55Cgm  gfilenamefscripts/read-text-outline.scm       3        C+h(]45$ O"45Cgpair  &gfilenamefscripts/read-text-outline.scm        "  $ %   & gnameg ??-predicatesC-R'.%/0+123hj]L6bgm  gfilenamefscripts/read-text-outline.scm $  &   C4(h]44L55LC}gm  gfilenamefscripts/read-text-outline.scm $  )  8  )  &   C(hs]4L56kgm  gfilenamefscripts/read-text-outline.scm   0 !  C56hj]6bgm  gfilenamefscripts/read-text-outline.scm   *   C78-9:h]L4L56gpair  gfilenamefscripts/read-text-outline.scm ' . * +  *  )   Ch{]OL6sgobj  gm  gfilenamefscripts/read-text-outline.scm $  &   Chr]Cjgobj  gm  gfilenamefscripts/read-text-outline.scm    C;:<hX]4L5$?4L54L54>"G4L>"GCCgline  Tgt Tglevel  ! Rgbody  ! Rgfilenamefscripts/read-text-outline.scm        !  &  , / 3  <   T Ch]24 5445$" 455445$" 54 5$  O"(4 5$  O" O45$ 45"45$45O"OCgre  gspecs  gfc  1grx  1 gt  ? Qglevel-substring  S gt  ^ gt  z g extract-level  gt  g extract-body  gt  gnew  g misc-props!  gfilenamefscripts/read-text-outline.scm       *    $ ( / , .  1  4  7  = + ?  ? S  S  V  \ & ^  ^  r  x & z  z    %     $   - " *   gnamegmake-line-parserC=R=?@A<BC:> h`]QHH"%45$"'4L5$45  $ " $S    $"4 >"G 4>"GJK"E $=""4 5$ K"  "J "JJK"45" 45"45 J"JK J&CJCgport  \gall  \gpchain  \gline   4g prev-level   4gtp   4gt   4gt  ) 1gwords  6 glevel  A gdiff H gt g gp  gfilenamefscripts/read-text-outline.scm             #  )  6 ( 6  9 ( ? ; A ( A  H ' H  M  R  W  ^  c  g " g  t " x ) "  7  +  1 +     , = E , #  # -  (  +  "    .  4  5  I  L  N  P  V  W [ B  \ Ch] 45OCgre  gspecs  g parse-line  gfilenamefscripts/read-text-outline.scm      gnamegmake-text-outline-readerCR4iDF5RGHIJh@-1344455>"G4>"GCgargs :gfilenamefscripts/read-text-outline.scm   %  0  ;  %   )  : gnamegread-text-outlineCRiKRCgm  0gfilenamefscripts/read-text-outline.scm  p 4 x 6 y  9 y 7 { S  1           G N   P C62.0/ccache/scripts/disassemble.go000064400000002174151463412640012574 0ustar00GOOF----LE-8-2.0d]#4h] gguile  gdefine-module*   gscripts g disassemble  gfilenameS fscripts/disassemble.scm gimportsS gsystem gvm gobjcode     glanguage gassembly  gprefixS gasm:   gexportsS  gset-current-module   f Disassemble a compiled .go file. g%summary gfor-each gasm:disassemble !g load-objcode "gmainC5hz]4   54>"GR !hm]456egfile  gfilenamefscripts/disassemble.scm $  %  %   Ch-136wgfiles gfilenamefscripts/disassemble.scm #  $   gnameg disassembleCRi"RCrgm  ,gfilenamefscripts/disassemble.scm   . !  1 ! r # y (   { C62.0/ccache/scripts/help.go000064400000020701151463412640011225 0ustar00GOOF----LE-8-2.0!]p4h ] gguile  gdefine-module*   gscripts ghelp  gfilenameS fscripts/help.scm gimportsS gice-9 gformat     g documentation    gsrfi gsrfi-1  gselectS gfold g append-map    gexportsS g show-help g show-summary g show-usage gmain !  "gset-current-module #" $" %fShow a brief help message. &g%summary 'fhelp help --all help COMMAND (g %synopsis )f Show help on guild commands. With --all, show arcane incantations as well. With COMMAND, show more detailed help for a particular command.  *g%help +g file-exists? ,gfile-is-directory? -gopendir .g eof-object? /gclosedir 0greaddir 1gstring=? 2f. 3f.. 4gdirectory-files 5gor-map 6gstring-suffix? 7g string-null? 8g substring 9g string-length :gappend ;g%load-compiled-extensions gunique ?gmap @gsymbol->string Agsort Bg in-vicinity Cg %load-path Dgstringsymbol Jgresolve-module KgensureS Lgand=> Mgmodule-variable Ng variable-ref Og%include-in-guild-list Pf ~A ~23t~a  Qf ~A  R Sf For help on a specific command, try "guild help COMMAND". Report guild bugs to ~a GNU Guile home page: General help using GNU software: For complete documentation, run: info guile 'Using Guile Tools'  Tg%guile-bug-report-address Ug list-commands Vgfile-commentary Wg%search-load-path Xgmodule-filename Ygmodule-commentary Zg last-pair [g module-name \gmodule-command-name ]gcurrent-output-port ^g string-split _g string-append `f OPTION... af Usage: guild  bgnewline cf guild  df)No documentation found for command "~a".  egcurrent-module fg%mod gf--all hg if-a ji kgcurrent-error-port lgexit mgstring-prefix? nf- ofNo command named "~a". C5hx]4   !54$>"G%&R'(R)*R+,-./0123 h]!45$45$}45"`45$4>"GC4545$" 4 5$""45"CCgdir  g dir-stream  gnew  % gacc  % gt  U ngfilenamefscripts/help.scm )  * *   *   *   +   +  % ,  & .  0 . 1 0  F 2  M 3  Q 3 & U 3  U 3  c 4  g 4 & k 4  r 3  } 6  2  ,  ,  -  ,  7   gnamegdirectory-filesC4R56789h8]4L5$#45$CL 4L5456Cgext  4gfilenamefscripts/help.scm :  <  ;  @   ; " B  ) B 0 0 B  2 A   4 C:;<h]O456zgpath  gfilenamefscripts/help.scm 9 C  :    gnamegstrip-extensionsC=R>h8](C(C$645Cgl  5gfilenamefscripts/help.scm E  F   G   F   H   H   H ! F  & H + ( H # + I  , I  1 I $ 3 I  4 I   5 gnameguniqueC>R?@>A=h ] 45$CCgx  grest  gstripped  gfilenamefscripts/help.scm P   Q , Q   R   R +   C4Bhj]6bgx  gy  gfilenamefscripts/help.scm U ! U /  Ch ~]44L556vgpath  gfilenamefscripts/help.scm O   S   T  U   T   P    CCD h(] 4544O556ghead  &gshead &gfilenamefscripts/help.scm K  L  L   N   O  $ N  & M   & gnamegfind-submodulesCERFGHIJKLM&NO PQ h~]!4545$4455"$GL$"4 5$"$$   6  6CCvgname  gmodname  gmod   gsummary  7 gv  S fgfilenamefscripts/help.scm b   c   c  c   c   d   c  " e  # e  & e % , e : . e % 2 e  7 c  ? g  E h  K i  Q i 2 S i  S i  [ j  ^ j  j g p k u l  { l  m  m   CER ST h@]4>"G4O45>"G 6gall?  ;gfilenamefscripts/help.scm Y  Z   Z Z   a   n  # n  % n  * a  7 o ; o   ; gnameg list-commandsCURVWXh]44556gmod  gfilenamefscripts/help.scm x  z   z   z   y    gnamegmodule-commentaryCYR@Z[h]44556gmod  gfilenamefscripts/help.scm |  }   } "  }   }   }    gnamegmodule-command-nameC\R]^M(_\`FabHFcbh0]4L>"G4L>"GL6ygu  0gfilenamefscripts/help.scm          0   0 C hv-.,3#45445$"4455 54 >"G4>"G4 >"G  O6ngmod gport gvar  % Egusages  I gfilenamefscripts/help.scm    *     # 1 %  %  -  0  5  8 & @ & B  I  I  L  P W  `  e j  s    gnameg show-usageCR]M&FbhH-.,3#4545$4>"G6Cgmod Ggport Ggvar  " Ggfilenamefscripts/help.scm  ,  " " "  *  + 0  7 E  G gnameg show-summaryCR]M*FbY d\ hF-.,3#454>"G4>"G45$4>"G645$4>"G6  4 56>gmod gport gt  J gt  t gfilenamefscripts/help.scm  )   .  B  H  J  J  S X  _ m n  t  }   gnameg show-helpCR4ei5fRUhjfklmnJIK oh-13(6$"$6"445>"G 6(d4 5$"4  4 5 5$4>"G 64>"G 6"ugargs gname l gt  gfilenamefscripts/help.scm             & . ' ! +  0  5  :  C  P  P  S  W  X ! \ 1 _ 5 a ! e  l  l  o  s  t # }       & gnamegmainC RCgm  ,gfilenamefscripts/help.scm   . !  1 ! 3 "  6 " 8 #  ; #  ) - 9 P E V K Y m x 7 | 9      u   w C62.0/ccache/scripts/frisk.go000064400000024671151463412640011425 0ustar00GOOF----LE-8-2.0)]4h] gguile  gdefine-module*   gscripts gfrisk  gfilenameS fscripts/frisk.scm gimportsS gsrfi gsrfi-1    gselectS gfilter gremove    gexportsS g make-frisker g mod-up-ls g mod-down-ls gmod-int? g edge-type gedge-up g edge-down  g autoloadsS gice-9 g getopt-long !  "  #!" $gset-current-module %$ &$ 'g%include-in-guild-list (f)Show dependency information for a module. )g%summary *g guile-user +* ,g*default-module* -g open-file .fr /g eof-object? 0g define-module 1gdef 2g use-moduleS 3g :use-module 4gregular 5gautoloadS 6g :autoload 7gautoload 8g use-modules 9gfor-each :gload ;gprimitive-load gformat ?f[computed in ~A] @gread Ag grok-proc Bgmake-object-property Cgup-ls Dgdn-ls Egint? Fgi Ggx Hgi-or-x Igsetter JI KI Lg make-edge Mgcar Ngcdr Ogup-ls+! Pgdn-ls+! Qgassq-ref Rg make-body Sgmember Tgmodules Uginternal Vgexternal Wgi-up Xgmap Ygx-up Zgi-down [gx-down \gedges ]gscan ^gdefault-module _f~A ~A --- ~A --- ~A  `g dump-updown af~A ~A  bf ~A ~A  cgdump-up dg dump-down effrisk fgupstream gg single-char hgu ifh jg downstream kgd ljk mgi nUm ogx pVo qgm rgvalue sr t^qs uilnpt vg option-ref wf$~A ~A, ~A ~A (~A ~A, ~A ~A), ~A ~A  xglength yffiles zfmodules {finternal |fexternal }fedges ~gmainC5hg]4   #5 4&>"G'R()R+,R-./01234567894h8] LM$"L$"6guse  4gt  gmaybe  2gfilenamefscripts/frisk.scm !  .  .  s "  s  # t  ' t  4 #  4 C:;<=>?@h]I45H"45$C$$K4L>"G"("$"$>4L  $ " >"G" $" $#4L >"G"b"Y"N" $"4 LLO>"G"f$"$O4LJ$"L45$" 45>"G"45"\45"O45"Bgfilename  gp gcurmod   gform   gt   gkey  0 gmodule  ? gls  ^ gkey  k guse  gmaybe gt  ` sgfile  w  gfilenamefscripts/frisk.scm o   p  p " p  p   x   y   y  ) z  - y  0 {  0 {  > } % ? }  E ~  F   J  $ R   ^  d  k % k  " - E = s " s  t  t  " ( "  " - > " ( " -  '    {  !  1 ! 6  K {  Z  ^ " ` " v . w " z (  $  (  3  (    q     q   z "  x   q   x C   Ch]OCgdefault-module  g note-use!  gfilenamefscripts/frisk.scm n   gnameg grok-procCAR4Bi5CR4Bi5DR4Bi5ERCiRDiREiREFGh]45$CCgmodule  gfilenamefscripts/frisk.scm          gnamegi-or-xCHR4Bi5RKh(] 445>"GCgtype  %gup  %gdown   %gnew   %gfilenamefscripts/frisk.scm      % gnameg make-edgeCLRMiRNiRKCh]45456gm  gnew  gfilenamefscripts/frisk.scm  2  (     gnamegup-ls+!CORKDh]45456gm  gnew  gfilenamefscripts/frisk.scm  2  (     gnamegdn-ls+!CPRQh`]L6Xgkey  gfilenamefscripts/frisk.scm    Chn]OCfgalist  gfilenamefscripts/frisk.scm   gnameg make-bodyCRRASKCD1ELOP h]4M5$"=445>"G445>"GMN& 4564M5$"=445>"G445>"GMN45MN4>"G 6gtype  gd  gu   gt  Zgd  Z gt  y gu  gedge  gfilenamefscripts/frisk.scm       ' 4 ,  5  A 4 F  S - U  Z  ` , d  p " q  y   4   4  -  " / " 0 $ $ $!  C9RTUEVWXYZ[\h]HH4O54>"GJ4J5 4 J5 44  J554 4  J5544 J554 4 J55J6gdefault-module  gfiles  gmodules   gedges  ggrok   gfilenamefscripts/frisk.scm            6  <  E  H  Q  T  Y ! c  d  g  l ! v  w  z   !    !     gnamegscanC]RQ^,]hb]L6Zgfiles  gfilenamefscripts/frisk.scm    Ch0-1345$"OCgoptions /gt  %gdefault-module % /gfilenamefscripts/frisk.scm   .     %  / gnameg make-friskerCR9>_HXhs]4545Ckgedge  gfilenamefscripts/frisk.scm   # #     CChs]4545Ckgedge  gfilenamefscripts/frisk.scm   # #     CD h0]45445544556gm  .gfilenamefscripts/frisk.scm             $  ,  .   . Ch{]6sgmodules  gfilenamefscripts/frisk.scm   gnameg dump-updownC`R9>aH9>bh|]45456tgedge  gfilenamefscripts/frisk.scm   %  "  3     CCh0]445>"G456gm  +gfilenamefscripts/frisk.scm     #   #  +   + Chw]6ogmodules  gfilenamefscripts/frisk.scm   gnamegdump-upCcR9>aH9>bh|]45456tgedge  gfilenamefscripts/frisk.scm   %  "  3     CDh0]445>"G456gm  +gfilenamefscripts/frisk.scm     #   #  +   + Chy]6qgmodules  gfilenamefscripts/frisk.scm   gnameg dump-downCdR euvfjUV^,T\>wxyz{|}`cdh-13 45454545454544  4  5554 545 45 4 5 445454 54 54 5> "G$$""$$" " 6gargs g parsed-opts  g=u  ! g=d  - g=i  9 g=x  E gfiles  R greport  l gmodules  u ginternal ~ gexternal gedges  gfilenamefscripts/frisk.scm                % !  !  $  *  % -  -  0  6  % 9  9  <  B  % E  E  H   M  + P  / R   R  U   V   Z   [   a  3 e   f   h   l   l  o   s   u   u  x   |   ~   ~                                             I  gnamegfriskCRi~RC_gm  0gfilenamefscripts/frisk.scm  a 4 i 6 j  9 j ; l  > l  n                 W  )   ^ z     !   C62.0/ccache/scripts/doc-snarf.go000064400000040700151463412640012152 0ustar00GOOF----LE-8-2.0A]4h! ] gfoo gbar gfoo/bar f0.0.2 gdoc-snarf-version gguile  gdefine-module*   gscripts g doc-snarf    gfilenameS fscripts/doc-snarf.scm gimportsS gice-9 g getopt-long   gregex   g string-fun   grdelim    gexportsS   !gset-current-module "! #! $f$Snarf out documentation from a file. %g%summary &gversion 'g single-char ('v )gvalue *) +&(* ,ghelp -'h .,-* /goutput 0'o 1) 2/01 3gtexinfo 4't 534* 6glang 7'l 8671 9+.258 :gcommand-synopsis ;gdisplay gdisplay-version ?f(Usage: doc-snarf [options...] inputfile  @f6 --help, -h Show this usage information  Af3 --version, -v Show version information  Bf? --output=FILE, -o Specify output file [default=stdout]  Cf3 --texinfo, -t Format output as texinfo  Df5 --lang=[c,scheme], -l Specify the input language  Eg display-help Ff doc-snarf Gg option-ref Hgstring->symbol Igstring-downcase Jfscheme Kg snarf-file Lgmain Mgc Nf^/\*(.*) Of^ \*/ Pf ^ \* (.*) Qf ^ \*-(.*) RfNOTHING AT THIS TIME!!! SMNOPQR Tgscheme Uf^;; (.*) Vf^;;\. Wf^;;-(.*) Xf ^\(define YTUVUWX ZSY [gsupported-languages \glist-ref ]gassq-ref ^gdocstring-start _g docstring-end `gdocstring-prefix ag option-prefix bgsignature-start cg std-int-doc? dg lang-parm egmemq fgmap ggcar hgerror if.doc-snarf: input language must be c or scheme. jg write-output kgsnarf lgformat-texinfo mg format-plain ng unread-string ogread pglength qgdefine rglambda sgstring? tgfind-std-int-doc ugseparate-fields-discarding-char vg string-append wgsplit-prefixed xgopen-input-file yg make-regexp zg eof-object? {gclose-input-port |greverse }gneutral ~g regexp-exec g read-line g doc-string gmatch:substring goptions f internal:  gappend g parse-entry gentry g make-entry g entry-symbol gentry-signature gentry-docstrings g entry-options gentry-filename g entry-line g get-symbol gmake-prototype f gcall-with-input-string g read-char g join-symbols gsymbol->string f.  f  gwith-output-to-port gopen-output-file gcurrent-output-port gfor-each f  f@c snarfed from  f: f@deffn procedure  g write-line f@c  f @end deffn f Procedure:  f;;  f Snarfed from  f C5h@3v]h]$CC~gbraz  gfilenamefscripts/doc-snarf.scm 1  2  2 2    gnamegfoo/barCRR4   54#>"G$%R9:R;<=h0]4>"G4>"G6gfilenamefscripts/doc-snarf.scm `  a   a a   a  * a 5  * gnamegdisplay-versionC>R;?@ABCDhh]4>"G4>"G4>"G4>"G4>"G6gfilenamefscripts/doc-snarf.scm e  f   f f   g   g  g  ' h  + h 0 h  9 i  = j  B i  K k  O k T k  ` l b l   b gnameg display-helpCERF:G,&3HI6J>E/KhZ-134545454544 4  555$ 6$ 64545$ 6 6Rgargs goptions  g help-wanted  J gversion-wanted  J gtexinfo-wanted  J glang  J ginput  y goutput  y gfilenamefscripts/doc-snarf.scm p q   q $  q   q   q   r   r + ! r  " s  ( s . + s  , t  2 t . 5 t  6 u  9 v  < v " B v 6 D v < F v " H v  J u  J r  X w  \ x  b w  f y  g {  l { ) o {  p |  v | * y |  y {  }  ) gnameg doc-snarfC R iLRZ[R\][^_`abc hh]45$ "K$ "=$ ".$ "$ " $ "6glang  hgparm  hgfilenamefscripts/doc-snarf.scm   h   h gnameg lang-parmCdRefg[hijklm hP] 4455$"4>"G45$ " 6ginput  Pgoutput  Pgtexinfo?   Pglang   Pgt   3gfilenamefscripts/doc-snarf.scm           # (  6  F  P   P gnameg snarf-fileCKRnopqrsh)] 4>"G45$"o 45$_&T$I$= 45$*&45$ CCCCCCCC 45$@&3$&$45$C"O"K"G"C"?C!gline  g input-port  gform   gfilenamefscripts/doc-snarf.scm       "  &  -  4  8 :  =  A D  F  J M  P  T W  \  `  a  e g  j " m  q r  w z  ~               5  gnamegfind-std-int-docg documentationfUnread @var{line} from @var{input-port}, then read in the entire form and return the standard internal docstring if found. Return #f if not.CtRufvhe]L6]gline  gfilenamefscripts/doc-snarf.scm   Chh-13LO6`glines gfilenamefscripts/doc-snarf.scm     Ch] O6gstring  gprefix  gfilenamefscripts/doc-snarf.scm     gnamegsplit-prefixedCwRxyd^_`abz{|}~ctwhu ]4544554455445544554455"74 5$4 >"G  6  &[4 5$*454 5       "45        "z &m4 54 54 54 5$*454 5        "$+45 4 5        "$45$&45$ 45""$44 5 5" 45 4  5       "Z$/45 4   5       "%45        " &24 54 54 5$+45 4 5        "$45$&45$ 45""$44 5 5" 45 4  5       " $/45 4   5       "45        "C45       "m g input-file  glang  gi-p  gdocstring-start   g docstring-end  ) gdocstring-prefix  9 g option-prefix  I gsignature-start  Y gline  _ gstate _ g doc-strings _ goptions _ gentries _ glno _ gm  gm0   Zgm1   Zgm2   Zgm3   Zgd   gint-doc   goptions   gm1  } gm2  } gm3  } gd   gint-doc    goptions   ?gfilenamefscripts/doc-snarf.scm    %  2  (  2  %    %  2 % ( ' 2 ) % )  , % / 2 5 ( 7 2 9 % 9  < % ? 2 E ( G 2 I % I  L % O 2 U ( W 2 Y % Y  _  `  j  k          - 9  & * 6                      (  )   3   4  : 9   I  O  P   X  [  " e   j   z      0     )   "  )  ;  )                 "   +   /                      )   -    '   *   :  ;   C  D  ) E  - J  9 Z  ^   b  c   l !  u "  }    #  %   %  & "  &   '   %  #   0     )   "  )  ;  )           )  *   * "  * +  * /  +  , +  / -  ? *  E # F /  N / O / ) P / - Q 0  a 0  d 2  t / u 4  } 4 ~ 4 )  4 -  4 9  4      +  B    $     gnamegsnarfCkRh]Cgsymbol  g signature  g docstrings   goptions   gfilename   gline   gfilenamefscripts/doc-snarf.scm 6  7  7    gnameg make-entryCRhz] Crge  gfilenamefscripts/doc-snarf.scm 8  9    gnameg entry-symbolCRh}] Cuge  gfilenamefscripts/doc-snarf.scm :  ;    gnamegentry-signatureCRh~] Cvge  gfilenamefscripts/doc-snarf.scm <  =    gnamegentry-docstringsCRh{] Csge  gfilenamefscripts/doc-snarf.scm >  ?    gnameg entry-optionsCRh|] Ctge  gfilenamefscripts/doc-snarf.scm @  A    gnamegentry-filenameCRh] Cge  gfilenamefscripts/doc-snarf.scm B  D    gnameg entry-lineg documentationf4This docstring will not be snarfed, unfortunately...CR|pH hA]$5454545454545645 $=4455454545454564545454569g docstrings  goptions  gdef-line   gfilename   gline-no   gfilenamefscripts/doc-snarf.scm I  K  M   N   N + O  + P  2 P  3 P 3 : P  ; P  = M  > Q  F Q  J K  M R  P R % W R Y R  Z S  a S  b T  i T  j U  u V  | V  } V 2 V  V  R  X  X  X  X - Y  Y  Y 2 Y  Y  X )  gnameg parse-entryCRohP] 4>"G4>"G45$6$6Cgs-p  Lgtmp - Lgfilenamefscripts/doc-snarf.scm a   b   c  ' d  - b  2 f 6 e  < g ? h C e  I i K k   L Ch]6{gdef-line  gfilenamefscripts/doc-snarf.scm ^ _   gnamegmake-prototypeCRohH] 4>"G4>"G45$C$CCgs-p  Ggtmp - Ggfilenamefscripts/doc-snarf.scm p   q   r  ' s  - q  2 u 6 t  9 v = w A t  F z   G Ch]6wgdef-line  gfilenamefscripts/doc-snarf.scm m n   gnameg get-symbolCRvhH](C$ 456(645456gs  Cgfilenamefscripts/doc-snarf.scm ~                  "   &   +   -  0   5  ( 7   9  1 :  5 ?  C A  5 C    C gnameg join-symbolsCRhR]LL6Jgfilenamefscripts/doc-snarf.scm      Ch(]$ 45"45O6gentries  %g output-file  %gwriter   %gfilenamefscripts/doc-snarf.scm     *   # %    % gnameg write-outputCjR;=hb]6Zgs  gfilenamefscripts/doc-snarf.scm       C;h }]4>"G6ugs  gfilenamefscripts/doc-snarf.scm       !     (   Ch]4>"G445>"G4>"G4>"G445>"G4>"G445>"G4>"G4 >"G44 5>"G4>"G4  4 5>"G4 45>"G6gentry  gfilenamefscripts/doc-snarf.scm              #   ,   <   @  E   N   Q  \   e   i  n   w   z                                  %   gnamegformat-texinfoClR;=hb]6Zgs  gfilenamefscripts/doc-snarf.scm       C;h }]4>"G6ugs  gfilenamefscripts/doc-snarf.scm       !     (   Ch]4>"G445>"G4>"G445>"G44 5>"G4 >"G44 5>"G4 >"G44 5>"G4>"G6wgentry  gfilenamefscripts/doc-snarf.scm              #   ,   <   A  L   U   Z  e   n   r  w                         gnameg format-plainCmRCngm gfilenamefscripts/doc-snarf.scm 1 J  J N U  U X  W  ` 3 e U p \ ^  a   T 8   6 U 8  :  <  > @ ! B $ I & ^ (R m ) ~ +S  /  3:  "  3< C62.0/ccache/scripts/display-commentary.go000064400000004633151463412640014124 0ustar00GOOF----LE-8-2.0 ]*4h ] gguile  gdefine-module*   gscripts gdisplay-commentary  gfilenameS fscripts/display-commentary.scm gimportsS gice-9 g documentation      gexportsS  gset-current-module   f5Display the Commentary section from a file or module. g%summary gformat f~A commentary: ~A gfile-commentary gdisplay-commentary-one gmap gsymbol->string g string-append f/ gmodule-name->filename-frag !g%search-load-path "f module ~A  #gdisplay-module-commentary $gfor-each %gstring? &g string-index 'gwith-input-from-string (gread )gmainC5h]4   54>"GRh]456gfile  gfilenamefscripts/display-commentary.scm %  & & '  &    gnamegdisplay-commentary-oneCRh@(]45" (C45"" gls  ?gls ?gls   1gacc   1gfilenamefscripts/display-commentary.scm (  ) )   *   +   -   -  $ - , ' - 0 ) -  1 - 1 *  4 *  7 * " ? *   ? gnamegmodule-name->filename-fragC R! "h8] 4455$4>"G6Cg module-name  3gt  3gfilenamefscripts/display-commentary.scm /  0  0   0  0   2   2  # 2  1 3   3 gnamegdisplay-module-commentaryC#R$%&#'(h@]45$! 4(5& 4566$6Cgref  =gfilenamefscripts/display-commentary.scm 6  7  7   8 #  8   :  ( 9  . ;  1 <  5 7  ; =   = Ch-136grefs gfilenamefscripts/display-commentary.scm 5  6   gnamegdisplay-commentaryCRi)RCgm  ,gfilenamefscripts/display-commentary.scm   . #  1 #  %  (  /  5  @    C62.0/ccache/scripts/read-rfc822.go000064400000011640151463412640012216 0ustar00GOOF----LE-8-2.0]L4h] gguile  gdefine-module*   gscripts g read-rfc822  gfilenameS fscripts/read-rfc822.scm gimportsS gice-9 gregex     grdelim     gexportsS gread-rfc822-silently  g autoloadsS gsrfi gsrfi-13  g string-join   gset-current-module   !g%include-in-guild-list "fValidate an RFC822-style file. #g%summary $g make-regexp %f^From  &g from-line-rx 'f^([^:]+):[ ]* (gheader-name-rx )f^[ ]+ *gheader-cont-rx +goption ,g eof-object? -greverse .g read-line /g regexp-exec 0gfor-each 1g unread-char 2g string->list 3g drain-message 4g match:suffix 5gstring->symbol 6gmatch:substring 7g substring 8g match:end 9f  :g string-null? ;gfrom gbody ?f  @gsuffix Agerror Bfbad component: Cg parse-message Dgformat EfFrom ~A  Ff~A: ~A  Gf ~A Hgdisplay-rfc822 Ig open-file Jg OPEN_READ KgmainC5h8 ]4   5 4 >"G!R"#R4$i%5&R4$i'5(R4$i)5*R+R,-.+/&01hb]L6Zgc  gfilenamefscripts/read-rfc822.scm A  B   C2 hC]"p45$6"45"$=45$,4O 44 55>"G6""45";gport  gline  vgacc   vgfilenamefscripts/read-rfc822.scm <  =   >  >   ?  G  ' G " / G / >  6 @  B @ C A O D  R D $ Z D  [ C  ` A n E v =  w =  ~ = * =   gnameg drain-messageC3R+4/&.-/(56789 hX])454544 5544455 5MNCygreversed-hlines  Qghlines Qgfirst   Qgm   Qgname  ( Qgdata  C Qgfilenamefscripts/read-rfc822.scm P   Q ' Q   R &  Q   S "  Q   T %  T 5 ( T % ( Q  + U % . V , 3 V = ; V , > W , ? V & A X & C U % C Q  J Y ( O Y   Q gnameg add-header!C:3*-;<=>?@AB hX] $LC$MC$MC$M$C4M5NMC 6g component  Tgt 1 Lgfilenamefscripts/read-rfc822.scm g  h  1 l  = m & C m > E m C G m & I m  P o  T o   T C h4]A$444555"HHHOQ"45$)$4>"G"45K"m4 5$4545"$4>"G"45"r45"_4 J5K OC,gport  gfrom g body-lines  # gbody  & gheaders  ) g add-header!  3 gline  < gcurrent-header  < gt  y  gfilenamefscripts/read-rfc822.scm I  J  K  K "  L /  K "  K  J  ) O  ) J  < [  = \ G \  M ] N ] ! d ^  l ^ q _ y \  a  b  b  a  d d ! e  e $ e [  [  [  f  f "  gnameg parse-messageCCRCh]6}gport  gfilenamefscripts/read-rfc822.scm q  r    gnamegread-rfc822-silentlyCR;DE0DFh]6wgheader  gfilenamefscripts/read-rfc822.scm v  w  w $ w 1  w    C=G> hX] 45$4>"G"445>"G456gparse  Tgt -gfilenamefscripts/read-rfc822.scm t  u  u  u u   u )  u 4  u ) . v  3 x 7 x  9 x > v  K y L y  P y  R y  T y   T gnamegdisplay-rfc822CHRIJHh8-1344554>"GCgargs 1gparse  /gfilenamefscripts/read-rfc822.scm { |  | %  | 0  | %  |   |   }  1 gnameg read-rfc822CRiKRCgm  0gfilenamefscripts/read-rfc822.scm  - 4 3 6 4  9 4 : 6  @ 6 $ B 6  E 6 F 7  L 7 $ N 7  Q 7 R 8  X 8 $ Z 8  ] 8 a :  < G I q  t + { 2   4 C62.0/ccache/scripts/scan-api.go000064400000024553151463412640012001 0ustar00GOOF----LE-8-2.0S)]4hT ] gguile  gdefine-module*   gscripts gscan-api  gfilenameS fscripts/scan-api.scm gimportsS gice-9 gpopen     grdelim    gregex     gexportsS  gset-current-module   g%include-in-guild-list f2Generate an API description for a Guile extension. g%summary gset-object-property! gput !gobject-property "gget #g add-props $g make-regexp %g open-pipe &g OPEN_READ 'g eof-object? (g regexp-exec )g read-line *gscan +f ^.guile.+: ([^ ]+)([ ]+(.+))*$ ,gformat -f ~A -c '~S ~S' .g use-modules /gsession 0 / 1.0 2gapropos 3f. 423 5gstring->symbol 6gmatch:substring 7gScheme 8f 9g hashq-set! :g scan-Scheme! ;f^[0-9a-fA-F]+ ([B-TV-Z]) (.+)$ ghashq-get-handle ?gerror @fboth Scheme and C: Agscan-C! Bgcurrent-module Cg THIS-MODULE Dgmemq Eggroups Fg in-group? Gg string-match Hg string-append If^ Jgsymbol->string Kg name-prefix? Lgadd-group-name! Mgeval Ngname Ogmake-grok-proc Pgmake-members-proc Qg make-hook Rgfor-each Sgassq-ref Tgmembers Uggrok Vf+bad grouping, must have `members' or `grok' Wg add-hook! Xg description Ygread Zg open-file [g make-grouper \glist-ref ]gcatch ^] _] `gmake-hash-table agsort bg hash-fold cgstring dg scan-data e7 f= ggrun-hook hgstringlist 7= f) ;; end of meta  f (interface  f(~A ~A (scan-data ~S))  f) ;; end of interface  f ) ;; eof  gmainC5hX]4   54>"GRRi R!i"R hP-13"4(C4>"G""gobject Igargs Igargs  Agkey   Agvalue   Agfilenamefscripts/scan-api.scm I J   K   M   N   M  " O : P  A P A J  I gnameg add-propsC#R$%&'()hpJ]#4545"I45$C45$4>"G"45"45"Bgre  pgcommand  pgmatch   pgrx   pgport   pgline   cgt  ! cgt  5 Vgfilenamefscripts/scan-api.scm R  S T   S   U   V ! V  - X  5 X W Y  c Y c U  d U  p U   p gnamegscanC*R*+,-1456 789hP]44 5544 5$">"GL6gm  Jgx  Jgt  ! 4gfilenamefscripts/scan-api.scm a   b   b #  b   b  c  c   c  ! c  1 d  9 c J e   J Ch ]45O6ght  gguile  gfilenamefscripts/scan-api.scm [  \   ]  ]   _   `   ]   \    gnameg scan-Scheme!C:R*;,<56 =>?@9 hh] 44 55444 55>"G4L5$4>"G"L6gm  agx  agfilenamefscripts/scan-api.scm j   k   k #  k   k  l  l   l   l & & l  + l 4 m  @ m A n  E n  L n  a o   a Ch ]45O6ght  gsofile  gfilenamefscripts/scan-api.scm g  h   i  i   i   h    gnamegscan-C!CAR4Bi5CRD"Eh]456gx  ggroup  gfilenamefscripts/scan-api.scm s  t  t   t   t    gnameg in-group?CFRGHIJh]45456gx  gprefix  gfilenamefscripts/scan-api.scm v  w  w  w   w +  w    gnameg name-prefix?CKR E"h]456gx  gname  gfilenamefscripts/scan-api.scm y  z z   z #  z   z   z    gnamegadd-group-name!CLRMCLh~]4L5$L6Cvgx  gfilenamefscripts/scan-api.scm ~          gnamegpC Nh8]45OQ4>"GCgname  6gform  6g predicate?  6gp   6gfilenamefscripts/scan-api.scm |  }  }    $ +   6 gnamegmake-grok-procCORDLh ]4L5$L6Cygx  gfilenamefscripts/scan-api.scm        gnamegpC Nh0] OQ4>"GCgname  +gmembers  +gp  +gfilenamefscripts/scan-api.scm       + gnamegmake-members-procCPRQRRSTU?VW#OXP hxk]4545$"$"4>"GL$445 4 55" 4 56cggdef  xgname  xgmembers   xggrok   xgfilenamefscripts/scan-api.scm      (      %    # 2  6  ;  M  N  Q & X ; [ & ] & ^ & d 5 f & h  m  x   x CYZ&h ]LO44556wgfile  gfilenamefscripts/scan-api.scm           Ch(] 4 54O>"GCgfiles  &ghook  &gfilenamefscripts/scan-api.scm       & gnameg make-grouperC[R\_[hZ]L6Rgfilenamefscripts/scan-api.scm   3 %  Ch]-13CUgargs gfilenamefscripts/scan-api.scm  C`:Aab#cJd"7=Eefg h\] 44545$" 4545$ " >"GL$4 L>"G"CTgkey  }gvalue  }g prior-result   }gt   5gfilenamefscripts/scan-api.scm  " # +  #  2  ;  2  . * 2 0 ; 2 2 7 # 8 / > 8 @ / D + F / L / Q " _ " ` / | "  } Ch"ch]45456ga  gb  gfilenamefscripts/scan-api.scm   ! ( !  !  (  !     C,ijklmn8opqr*sty6hj]4 5NCbgm  gfilenamefscripts/scan-api.scm   * "   Cz{E|}"Nhj]6bgp  gfilenamefscripts/scan-api.scm -  @ 9  C~R,E"dh ]45456gx  gfilenamefscripts/scan-api.scm    (  /  (      !     C+h "-134 54 54O54 54>"G4>"G44  O5 54  >"G4 >"G4 >"G4 45$">"G4 45$">"G4 >"G4 H44 5O>"GJ>"G4 >"G4 4 $4!"4#55"$5>"G4 %>"G4 &>"G4'(>"G4 )>"G4 *>"GCgargs gguile 0 gsofile  0 ggrouper  0 ght  0 gall  v gt  gt  gi  ' S gfilenamefscripts/scan-api.scm      ) 0  9  M  a  d  n r  v  v  y  ~               -        /         !  &  '  *  .  /  4 ! 8  :  F  X  a  f  m  v  {  }  ~   $  (  -  (  (  $                                S  gnamegscan-apiCRiRCgm  ,gfilenamefscripts/scan-api.scm  = 0 C 2 D  5 D < F C G  I  R  [  g  q   q  s v y { | ;  M T   V C62.0/ccache/scripts/use2dot.go000064400000007717151463412640011676 0ustar00GOOF----LE-8-2.0][4h"] gguile  gdefine-module*   gscripts guse2dot  gfilenameS fscripts/use2dot.scm gimportsS gsrfi gsrfi-13    gselectS g string-join   gfrisk  g make-frisker g edge-type gedge-up g edge-down    gexportsS  g autoloadsS gice-9 g getopt-long !  "  #!" $gset-current-module %$ &$ 'f1Print a module's dependencies in graphviz format. (g%summary )g guile-user *) +g*default-module* ,gformat -f~S .gq /gmap 0f~A=~A 1gvv 2fdigraph use2dot {  3gfor-each 4f ~A;  5glabel 6fGuile Module Dependencies 7gratio 8gfill 978 :9 ;g>>header "~A" =gautoload >gstyle ?gdotted @>? Agfontsize BA  C@B Dgcomputed Egbold F>E GF Hf [~A] If, Jf;  Kg>>body Lf} Mg>>footer Ng>> Ofuse2dot Pgdefault-module Qg single-char RQm Sgvalue TS UPRT VU Wg option-ref Xgreverse Ygedges ZgmainC5h` ]4   #5 4&>"G'(R*+R,-hs]6kgs  gfilenamefscripts/use2dot.scm ;  < <   gnamegqC.R/,0hy]6qgpair  gfilenamefscripts/use2dot.scm ?   @  @  @ '  @    Chp]6hgpairs  gfilenamefscripts/use2dot.scm > ?   gnamegvvC1R,23,4hf]6^gs  gfilenamefscripts/use2dot.scm E  E # E   C15.6: h0]4>"G445 56gfilenamefscripts/use2dot.scm C  D   D D   F  F   F  # F  % F  & F  + F - E   - gnameg>>headerC;R3,<=CDGH1IJh] 44545>"G45$"$ "$%4 4 4 5 5>"G"6gedge  gkey * Ngt N ~gfilenamefscripts/use2dot.scm O   P   P  P %  P 6  P  $ Q  * Q 7 R  D Q F S  N Q  W V  \ V  ] V $ ` V 1 h V : j V $ o V  W  W   Cht]6lgedges  gfilenamefscripts/use2dot.scm M N   gnameg>>bodyCKR,Lhj]6bgfilenamefscripts/use2dot.scm Z  [ [   gnameg>>footerCMR;KMh(]4>"G4>"G6xgedges  (gfilenamefscripts/use2dot.scm ]  ^   _  ( `   ( gnameg>>CNR OVWP+NXY hP-13454545454 445 556gargs Pg parsed-args  Pg=m  " Pgscan  . Pgfiles  9 Pgfilenamefscripts/use2dot.scm b c   c )  c #  d #  c   c   f  f % " f " c  % g  ) g  . g  . c  1 h  6 h ( 7 h , 9 h  9 c  > i  A i  B i  J i  L i  N i  P i  P gnameguse2dotCRiZRCgm  0gfilenamefscripts/use2dot.scm  0 2 7  5 7 7 9  : 9 ;  >  C  M  Z S ] V b ] k   _ C62.0/ccache/scripts/compile.go000064400000023525151463412640011734 0ustar00GOOF----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      C62.0/ccache/scripts/summarize-guile-TODO.go000064400000021024151463412640014156 0ustar00GOOF----LE-8-2.0!]}4h] g debug-enable g backtrace gguile  gdefine-module*   gscripts gsummarize-guile-TODO   gfilenameS f scripts/summarize-guile-TODO.scm gimportsS gread-text-outline   gice-9 g getopt-long    gexportsS   g autoloadsS gsrfi gsrfi-13  gstring-tokenize  gsrfi-14  gchar-set !  "g common-list #" $g remove-if-not %$ &!#% 'gset-current-module (' )' *g%include-in-guild-list +fA quaint relic of the past. ,g%summary -gset-object-property! .gput /gobject-property 0gget 1gwho 2gmap 3gstring->symbol 4gpct-done 5gstring->number 6gas-leaf 7gparent 8gfor-each 9ghang-by-the-leaves :gmake-text-outline-reader ;f=(([ ][ ])*)([-+])(D*)(R*)(X*)(([0-9]+)%)* *([^[]*)(\[(.*)\])* gbody-submatch-number ?>  @g extra-fields Agstatus BA  Cgdesign? DC  Egreview? FE  Gg extblock? HG  I4  J1  K@BDFHIJ L=?K Mg open-file Nfr Og read-TODO Pg option-ref Qginvolved Rgmemq Sgpersonal Tgreverse Ugtodo Vgstring=? Wf- Xgdone Yf+ Zgreview [g select-items \gformat ]f ~A ^f _f under : ~A~A  `g make-string af status: ~A~A~A~A~A~A item : ~A  bfD cfR dfX ef ~A% fgmake-display-item gg no-parent hg display-items ifsummarize-guile-TODO jg single-char kjw l1k mjn ngm oji pgvalue qp rQoq sjp tSsq ujt vUu wjd xXw yjr zZy {lnrtvxz |gmainC5h]4i>"G4    &5 4)>"G*R+,R-i.R/i0R01.23 45 h2] 45$-4444:555>"G"45$44 5>"G"C*gx  ygt Cgt L vgfilenamef scripts/summarize-guile-TODO.scm Q  R R  R R   T   T   U  V  % V - - V  / U  4 T  D W J W  L W L W  U Y  [ Y  \ Y  g Y   y gnamegas-leafC6R.78hw]LL6ogchild  gfilenamef scripts/summarize-guile-TODO.scm b % c 3 c '  C6hX]$'4>"GLO64>"G45MNCgtree  Tgparent  Tgfilenamef scripts/summarize-guile-TODO.scm ^   _  _  a   a  a +  a  . d % 0 b  1 f  7 f % > f  G g . P g ( R g   T gnameghangC8hn]L6fgtree  gfilenamef scripts/summarize-guile-TODO.scm h  i   Ch8]HOQ4O>"GJCgtrees  4gleaves  4ghang   1gfilenamef scripts/summarize-guile-TODO.scm \  ]   ]   ^   h   4 gnameghang-by-the-leavesC9R9:;LMNh ]4454556gfile  gfilenamef scripts/summarize-guile-TODO.scm m  o   o  p  q   o   y   y   y   o   n    gnameg read-TODOCORPQ301Rh ]45$L456Cgx  gfilenamef scripts/summarize-guile-TODO.scm   $ + $    ,  3  ,  $  CS01Th(] 45$ 45LCCgx  !gt !gfilenamef scripts/summarize-guile-TODO.scm   & - &   5  0  +  ! C8Ph ]4L5$ MNCCgpair  gfilenamef scripts/summarize-guile-TODO.scm    %     '  !     CUV0AWh]456gx  gfilenamef scripts/summarize-guile-TODO.scm   / 6 /  ?  %   CXV0AYh]456gx  gfilenamef scripts/summarize-guile-TODO.scm   / 6 /  ?  %   CZ0Ehv]6ngx  gfilenamef scripts/summarize-guile-TODO.scm   . '  CT$h+]H45$45OJK"45$45OJK"4O     >"G"!(645"4J5"#gp  gitems  gsub   gt   6gu   /gt  @ ggu  O `gsub  gitems   gfilenamef scripts/summarize-guile-TODO.scm {  |  |   } }   }  }        *  ,  7 =  @ @  I  O  [  ]  h  u       )    "  gnameg select-itemsC[R01\]^h ] 45$ 6Cgitem  gt gfilenamef scripts/summarize-guile-TODO.scm      2  '     C^hp]Chgitem  gfilenamef scripts/summarize-guile-TODO.scm     C\_`07hX]"<$444 5>"G45 "C45 "gitem  Ugparent  Bgindent   Bgfilenamef scripts/summarize-guile-TODO.scm      #  "  +  1 * 3  8 3 @  B  C " I , K " U   U Chg]C_gitem  gfilenamef scripts/summarize-guile-TODO.scm    C\a0ACb^EcGd4eh] 44545$"45$ "4 5$ "4 5$4 5"4L5> "GL6gitem  gt Y tgfilenamef scripts/summarize-guile-TODO.scm                   & & * '  -  /  3  5 & ; * <  B  D  H  J ( P , Q  W  Y  Y  b  g % k  q  u   $  Ch0]$"$"OCg show-who?  ,g show-parent?  ,gshow-who   ,g show-parents   ,gfilenamef scripts/summarize-guile-TODO.scm      , gnamegmake-display-itemCfRfP1g8h( ] 4454556gp  &gitems  &g display-item   &gfilenamef scripts/summarize-guile-TODO.scm    ) 7  )  .  <  .  )     &   & gnameg display-itemsChRi{h[OPhH'-13454444555>"GCgargs Dgp  Bgfilenamef scripts/summarize-guile-TODO.scm              " % % 5 * C - 5 . 0 0 % 2  7  D gnamegsummarize-guile-TODOC R i|RCgm - Dgfilenamef scripts/summarize-guile-TODO.scm  A A   A  C H K J L  M L T N [ O 5 Q  \  m  {        C62.0/ccache/scripts/api-diff.go000064400000021022151463412640011751 0ustar00GOOF----LE-8-2.0!]^4h] gguile  gdefine-module*   gscripts gapi-diff  gfilenameS fscripts/api-diff.scm gimportsS gice-9 g common-list     gformat    g getopt-long     gexportsS  g autoloadsS gsrfi gsrfi-13  gstring-tokenize   gset-current-module !  "  #g%include-in-guild-list $f,Show differences between two scan-api files. %g%summary &gwith-input-from-file 'gread (gread-alist-file )gset-object-property! *gput +gobject-property ,gget -gassq-ref .gmeta /g interface 0ggroups 1gmake-hash-table 2gfor-each 3g hashq-set! 4gread-api-alist-file 5g hashq-ref 6ghang-by-the-roots 7gset-difference 8gdiff? 9g diff+note! :g hash-fold ;gacons fgroups-removed: ~A  ?fgroups-added: ~A  @glength Af ~5@A ~5@A :  Bf- Cf~5@A ~5@A : ~5@A Df~5@D ~5@D : ~5@D Ef ~A  Fgsort Ggunion Hgstringstring Jgdetails Kf~A ~A:  Lgremovals Mf ~A  Ng additions Of~A: no changes  Pgerror Qf!api-diff: group-diff: bad options Rg group-diff Sg single-char TSd Ugvalue VU WJTV XW Yg option-ref Zf /dev/null [ZZ \gstring->symbol ]gmainC5h]4   5 4">"G#R$%R&'hO]6Ggfilenamefscripts/api-diff.scm 5   5    Ch}]6ugfile  gfilenamefscripts/api-diff.scm 3 4   gnamegread-alist-fileC(R)i*R+i,R(-./*0123hk]L6cggroup  gfilenamefscripts/api-diff.scm @ ' A > A )  C h|]!4545454>"G44 54 O45>"G>"GCtgfile  |galist |gmeta   |g interface   |ght  E lgfilenamefscripts/api-diff.scm :  ;  ;  <   <   <   ;   =   = $  =   ;  " >  ( >  / >  8 ?  > ?  ? ? % E ?  H @  R B ' X B 6 Z B ' _ @  q ?   | gnamegread-api-alist-fileC4R,02235h{]LL4L56sggroup  gfilenamefscripts/api-diff.scm I  K . L .  K (  J    C-0hw]LO456ogx  gfilenamefscripts/api-diff.scm H   M   M &  M   I    Ch0] 454O>"GCg interface  ,ght )gfilenamefscripts/api-diff.scm F  G G  G G   H   , gnameghang-by-the-rootsC6R7h] 45(CCga  gb  gresult  gfilenamefscripts/api-diff.scm Q  R  R   S    gnamegdiff?C8R8hpS]H45$4>"GK"45$4>"GK"J$6CKga  kgb  kg note-removals   kgnote-additions   kg note-same   kgsame?   kgt   2gt  ; _gfilenamefscripts/api-diff.scm W  X   Y  Y   Y & + Y 8 3 Z ; Z  D Z & X Z 9 e [  i [   k gnameg diff+note!C9R6:;,0<=9>hn]6fgremovals  gfilenamefscripts/api-diff.scm f   g $ g   C?ho]6gg additions  gfilenamefscripts/api-diff.scm h   i $ i   ChG]C?gfilenamefscripts/api-diff.scm j    C2-@ABC9@hj]45NCbgsubs  gfilenamefscripts/api-diff.scm x #  y 5 y %  C@hj]45NCbgadds  gfilenamefscripts/api-diff.scm z #  { 5 { %  ChG]C?gfilenamefscripts/api-diff.scm | #   CDE h /]94L54L5$ 45"$ 45"$$ ""4$"$">"G"4>"nG"g$]$O HH4O O >"G4 J J>"G""""| 6'ggroup  gold gnew   g old-count  * g new-count  > gdelta  [ g add-count  g sub-count  gfilenamefscripts/api-diff.scm k   l # l   m #  l   n )  n 2 * l  2 o ) 3 o 2 > l  F p % Q p 2 [ l  ^ q  c q $ i r ! q r / w s !  s / q  + > B F t  t u v " } " } - ~ 4 } "  $  &   CFGHIh]45456zga  gb  gfilenamefscripts/api-diff.scm   ' '     C-J-9KL2Mhj]6bgx  gfilenamefscripts/api-diff.scm 4  A 6  Ch(]4L>"G6gremovals  !gfilenamefscripts/api-diff.scm *  *  5 1  * ! *  ! CKN2Mhj]6bgx  gfilenamefscripts/api-diff.scm 4  A 6  Ch(]4L>"G6g additions  !gfilenamefscripts/api-diff.scm *  *  5 1  * ! *  ! COhZ]L6Rgfilenamefscripts/api-diff.scm *  7 ,  Ch`]4L5$"4L5$"OOO6ggroup  Ygt gold  Ygt  ( :gnew  : Ygfilenamefscripts/api-diff.scm   , (  C   , ( ( 7 C :  Y   Y CPQha-13 4544554545445545(74   >"G  O4455645  $ O 66Ygi-old gi-new goptions  gi-old   gg-old  # g g-old-names  . gi-new  7 gg-new  J g g-new-names  U gt  gfilenamefscripts/api-diff.scm ] ^   ^   _   _ !  _ %  _ 0 ! _ % # _  # ^  & `  . ^  1 a  7 ^  : b  ? b ! @ b % F b 0 H b % J b  J ^  M c  U ^  ] d  ^ e    k  d    %  gnameg group-diffCRRXY[4J<\R hx-1345454545H45$4 4 ,55JK" J@gargs vgp  vgrest  ! vgi-old  + vgi-new  6 vgoptions  9 vgt  E lgfilenamefscripts/api-diff.scm               ! !  !  $  ) % +  +  .  3 % 6  6  9  9  < B  E E  O * P * U / _ * ` $ c  e  v # v gnamegapi-diffCRi]RCgm  0gfilenamefscripts/api-diff.scm  ) 4 0 6 1  9 1 H 3 O 7 V 8  : N F  Q  W  ]      C62.0/ccache/scripts/lint.go000064400000020131151463412640011240 0ustar00GOOF----LE-8-2.0A ]I4h] gguile  gdefine-module*   gscripts glint  gfilenameS fscripts/lint.scm gimportsS gice-9 g common-list     gformat     gexportsS  gset-current-module   g%include-in-guild-list f1Check for bugs and style errors in a Scheme file. g%summary gscan-file-for-module-name guniq gscan-file-for-free-variables gresolve-module fResolved module: ~S  !gcatch "geval #f!Unresolved free variables in ~A:  $g write-char %gwrite &gnewline 'f#No unresolved free variables in ~A  (gwith-input-from-file )g eof-object? *gread +g define-module ,gappend -gdetect-free-variables .gmemq /gdefine-generic 0gquote 1g quasiquote 2glet 3gletrec 4gmap 5gcar 6glet* 7gand-let* 8gdefine 9g define-public :g define-macro ;glambda g define-method ?gdefine* @g define-class Agdetect-free-variables-noncar Bgcase Cgunquote Dgunquote-splicing Egelse Fg=> Ggfor-each HgmainC5h0]4   54>"GRR !"hS]LL6Kgfilenamefscripts/lint.scm x   y  y   C#$%&hh-13M$4L>"G"4 >"G4L>"G4>"GNCgargs bgfilenamefscripts/lint.scm z   {   |   }   |  )   ;  @  E  N  `  b C' h])45445545H4>"G"8("64O O>"G""J$  6C}gfilename  g module-name  g free-vars   gmodule  ! g all-resolved?  ! g free-vars  > vgfilenamefscripts/lint.scm n  o  p  p   p   o   q  ! q  & s  + s  2 s  > t  D u  I w  p  v  v t      gnameglintCR()*+hP]"945$C" 45"$&C""45"gx  ?gfilenamefscripts/lint.scm          "  "  %  )  ,  . ! 2  5  ?  @  J   J Ch]6gfilename  gfilenamefscripts/lint.scm   gnamegscan-file-for-module-nameCR(),*-h@]")45$@4545"45"gx  /gfvlists  /gfilenamefscripts/lint.scm            " 8 $  '  / /  0  5 % =   = Ch]6gfilename  gfilenamefscripts/lint.scm   gnamegscan-file-for-free-variablesCR.+/0123,45-hu]L$L"M6mgbinding  gfilenamefscripts/lint.scm "  ;  ;  $   C-hd]L6\gbodyform  gfilenamefscripts/lint.scm " $  C67-hd]M6\gbodyform  gfilenamefscripts/lint.scm    C-89:;<-hd]L6\gbodyform  gfilenamefscripts/lint.scm    C=-hd]L6\gbodyform  gfilenamefscripts/lint.scm    C>?-hd]L6\gbodyform  gfilenamefscripts/lint.scm      C@Ah]$"M6zg slot/option  gfilenamefscripts/lint.scm     <  8   <      CB-hi]M6agcase  gfilenamefscripts/lint.scm     1    CCDEFA%hh]H$4J5$CC$;$"!$"$"$C$"$r$"4J4  5544  O5?44  O5?6 $"$I(4 O5@4J54 J56$"$"$:$JKJ6JKJ6$"$U"-("/$""J"4 O5@$.4J54J54 O5@$"$f"=("@$!$"""J"4 O5@$4 O5@$4J54 O5@ $"!!$""$"#$ $J64J54$J56Cgx  fglocals  fgkey  , dgletrec?  glocals-for-let-body  glocals   gargs   glocals-for-lambda-body   glocals-for-receive-body  + Nglocals  i gargs  i glocals-for-method-body    gfilenamefscripts/lint.scm      ! ! % )  ,  , b l }    . ( ; " "   (  ' 6 ? 6 '   "     "               "  ' 5 * / /  0  4 / 7 7 < C > / B 5 H / J  L  U t  v  z } %      )  3  ?  )    %      )     *  ,  3  ,  ?  9  9  3  3  *  ;  *           ! + ( : + + + 0  5 , ;  <  H  L  N  W i * o  , x  3 |  ,   J   C   ?   C   C   9   9   3   3  *  ;  *                                *                I " * M " P $  T $ 0 X $  Y %  ^ % 7 b %  d $  e '   f gnamegdetect-free-variablesC-R.FA,-hXU] $45$CC$.$ 645456CMgx  Uglocals  Ugkey  ( Sgfilenamefscripts/lint.scm )  - -  .  .  .   . ! ! 0 % -  ( 1  ( 1 8 3 * < 3 ? 5  C 5 0 G 5  H 6  M 6 7 Q 6  S 5  T 8   U gnamegdetect-free-variables-noncarCARGhs-136kgfiles gfilenamefscripts/lint.scm :  ;   gnamegmainCHRCgm  ,gfilenamefscripts/lint.scm  f 0 k 2 l  5 l  n     ) . :   0 C62.0/ccache/scripts/punify.go000064400000004756151463412640011623 0ustar00GOOF----LE-8-2.0 ]%4hs] gguile  gdefine-module*   gscripts gpunify  gfilenameS fscripts/punify.scm gexportsS  gset-current-module     g%include-in-guild-list f1Strip comments and whitespace from a Scheme file. g%summary g string->list gsymbol->string gchar=? gmemq g list->string gdisplay gwrite f( g write-punily f) f  gwith-input-from-file g eof-object? gread !gcurrent-input-port "g punify-one #gfor-each $gmainC5h]4    54>"GRR h ]!"p$B44554:5$4 5$"45""$4:>"G66$("4>"G4 >"G"X( 6$"$"4 >"G4 >"G"""gform  gls  Kgt P vgfirst gls   glast-was-list?   g new-first   gfilenamefscripts/punify.scm . =  =  >   > &  >   >   ?  ! ?  % ?  ) ?  * @  6 ?  < A  A A # C A  P /  Y C  p D  v E  v /  y /  } /  / 0  0 1 1  1 2 3 4 5  5  6 # 6  8  7 ' 8  :  : ! :  ;   <   7 '  <   3  3   3 6  3 3   gnameg write-punilyCR !hP]"445$C4>"G4455"4455"gform  :gt :gfilenamefscripts/punify.scm I   K   L  L  N  + J  . J # 4 J  : O  : K  ; J  > J # D J  J K   J Chv]6ngfile  gfilenamefscripts/punify.scm G H   gnameg punify-oneC"R#"ht-136lgargs gfilenamefscripts/punify.scm Q  R   gnamegpunifyCRi$RCgm  (gfilenamefscripts/punify.scm  ( , + . ,  1 ,  .  G  Q  T    C62.0/ccache/scripts/snarf-guile-m4-docs.go000064400000007053151463412640013762 0ustar00GOOF----LE-8-2.0]34hS] gguile  gdefine-module*   gscripts gsnarf-guile-m4-docs  gfilenameS fscripts/snarf-guile-m4-docs.scm gimportsS gice-9 grdelim      gexportsS  gset-current-module   g%include-in-guild-list f/Snarf out texinfo documentation from .m4 files. g%summary gdisplay f@deffn {Autoconf Macro} gfor-each gstring=? f# g substring g string-length f#  !gnewline "f @end deffn #g display-texi $gcatch %$ &$ 'gprefix? (g list->string )greverse *g string->list +g massage-usage ,g open-file -fr .g eof-object? /f# Usage: 0g read-line 1fAC_DEFUN 2gmainC5h ]4   54>"GRR !h]4"&44 55$ 4 5"B"<45 $*44 55$ 4 5"""">"G6gline  |gfilenamefscripts/snarf-guile-m4-docs.scm *  +  .   . (  . ,  .   +   /  / +  0 + ' 9 + # = +  > , # B , - C , 2 N , # R +  S -  p +  | 1   | C"!hP]4>"G4>"G4>"G4>"G6glines  Ngfilenamefscripts/snarf-guile-m4-docs.scm (  )   ) )   *  ) 3  - 3 2 3  ; 4  N 4   N gnameg display-texiC#R&hr]L4L 4L556jgfilenamefscripts/snarf-guile-m4-docs.scm 7   8  8 #  8   8    Chg-13C_gargs gfilenamefscripts/snarf-guile-m4-docs.scm 7  Ch]O6gline  gsub  gfilenamefscripts/snarf-guile-m4-docs.scm 6  7    gnamegprefix?C'R()*hp1]"Y(4455C($")$",$ ""45")gline  ogline  _gacc   _gkey  " Tgfilenamefscripts/snarf-guile-m4-docs.scm :  ;  <  =   =   =   =   >  " ?  " ?  Q A  W ?  _ >  _ ;  ` ;  g ; - o ;   o gnameg massage-usageC+R,-.'/0+1#) h-1345"45$C45$4544 55"4 5$'4 4 5>"G45""45"|$%4 5$45"U""45"= gargs gp  gline   gacc   gt  gfilenamefscripts/snarf-guile-m4-docs.scm D E  E   E "  E  E   G   H H  , I  2 I  4 I  8 I 9 F  @ J  C J - M J  U J  V K  \ K  ^ K  b I c L  f L  q L  z F  M  F  Q  I N  N ( N  N  F  O  O  G  F  G ) gnamegsnarf-guile-m4-docsCRi2RCgm  ,gfilenamefscripts/snarf-guile-m4-docs.scm  ! 0 % 2 &  5 &  (  6  : D S   C62.0/ccache/scripts/autofrisk.go000064400000023350151463412640012307 0ustar00GOOF----LE-8-2.0&]|4h# ] gguile  gdefine-module*   gscripts g autofrisk  gfilenameS fscripts/autofrisk.scm gimportsS gsrfi gsrfi-1     gsrfi-8    gsrfi-13    gsrfi-14    gread-scheme-source   gfrisk    gexportsS ! "g autoloadsS #gice-9 $gpopen %#$ &gopen-input-pipe '& (%' )gset-current-module *) +) ,g%include-in-guild-list -f0Generate snippets for use in configure.ac files. .g%summary /g files-glob 0gnon-critical-external 1gnon-critical-internal 2gprograms 3g pww-varname 4/0123 5g*recognized-keys* 6gerror 7f syntax error: 8finput not a list 9gevery :glist? ;fnon-list element gquote ?gmemq @funrecognized key: Agapply Bgmap Cgfold Dgappend Egassq-ref Fgcanonical-configuration Ggfor-each Hgformat IfGUILE_MODULE_REQUIRED~A  Jg>>strong Kgobject->string Lg string-map! Mgchar-set-contains? Ngchar-set:letter+digit Og safe-name Pfprobably_wont_work Qg*pww* Rgedge-up Sg edge-down Tfhave_guile_module~A UfGUILE_MODULE_AVAILABLE(~A, ~A)  Vf"test "$~A" = no && ~A="~A $~A"~A Wf  Xg>>weak Yfguile_module~Asupport_~A ZfAC_PATH_PROG(~A, ~A)  [ftest \  \f "$~A" = "" -o \  ]f~A && ~A="~A $~A"  ^glist-ref _f war = peace `ffreedom = slavery afignorance = strength bgrandom cg >>program dg >>programs efecho '(' ~A ')' fgsymbol->string ggread hgunglob ig make-frisker jgexternal kg partition lgmember mg mod-down-ls nfAC_DEFUN([AUTOFRISK_CHECKS],[  of ~A=~S  pf qfAC_SUBST(~A) ])  rg>>checks sg[ AC_DEFUN([AUTOFRISK_SUMMARY],[ if test ! "$~A" = "" ; then p=" ***" echo "$p" echo "$p NOTE:" echo "$p The following modules probably won't work:" echo "$p $~A" echo "$p They can be installed anyway, and will work if their" echo "$p dependencies are installed later. Please see README." echo "$p" fi ])  tg >>summary uf modules.af vg file-exists? wfcould not find input file: xgwith-output-to-file yf~A.m4 zgread-scheme-source-silently {gmainC5h ]4    !"(5 4+>"G,R-.R45R6789:;<hk] 45Ccgform  gfilenamefscripts/autofrisk.scm N   N $ N   C=>?5h8]$$&C45$CNCCgform  4gkey  4gt  ! 2gfilenamefscripts/autofrisk.scm P   Q   Q  R   R   S $  S   S   T  ! S  0 V !  4 C@ABCDh8] L&$45""$CCgform  4gso-far  4gt  & 4gfilenamefscripts/autofrisk.scm [  \ 0 \ &  ] +  \ &  ^ +  ^ :  ^ + & \ "  4 Chj]OL6bgkey  gfilenamefscripts/autofrisk.scm Z   `  [    C5Ehb]L6Zgkey  gfilenamefscripts/autofrisk.scm c  d   Ch]$"4>"G45$"4>"G45$"4>"GH4 O5 J$"4 >"G4  O5OCgforms  g condition * Mg condition V ygun z g condition  gx  gbunched gfilenamefscripts/autofrisk.scm I  L K   K   K *  L   K  " M * M  2 K  7 K  ; K * = M  B K  N N V N  ^ K  c K  g K * i N ; n K  z O  } P Y P  K  K  K * K  Z  Z   gnamegcanonical-configurationCFRGHIhm]6egmodule  gfilenamefscripts/autofrisk.scm g  h  h   Chz]6rgmodules  gfilenamefscripts/autofrisk.scm f g   gnameg>>strongCJRKLMNhh]45$C_C`gc  gfilenamefscripts/autofrisk.scm m   n   n    Ch(] 454>"GCgmodule  "gvar "gfilenamefscripts/autofrisk.scm k  l l  m   " gnameg safe-nameCORPQRGRSHTOUVQW hP]454544554>"G 6gedge  Mgup Mgdown   Mgvar  # Mgfilenamefscripts/autofrisk.scm w  x  x  y   x   z   z %  z ; # z  # x  & {  + {  4 {  A |  K } - M |   M Ch{]6sg weak-edges  gfilenamefscripts/autofrisk.scm v w   gnameg>>weakCXRBHYOhw]4L56ogprog  gfilenamefscripts/autofrisk.scm         CGHZh]6wgvar  gprog  gfilenamefscripts/autofrisk.scm      CH[H\hm]6egvar  gfilenamefscripts/autofrisk.scm      C]^_`abQhx(] 4O54>"G4>"G4>"G4    4 556 gmodule  qgprogs  qgvars   qgfilenamefscripts/autofrisk.scm       )  .  3  <  T  U Y  [  ]  `  a  i q   q gnameg >>programCcRGchw]6ogform  gfilenamefscripts/autofrisk.scm   $   Ch]6wgprograms  gfilenamefscripts/autofrisk.scm   gnameg >>programsCdR&HeBfgh ] 4455456gpattern  gp  gfilenamefscripts/autofrisk.scm    '          gnamegunglobChRFDBh/01ij3Qkl9lhb]L6Zgi  gfilenamefscripts/autofrisk.scm "  CBSmh0] 4L5$CLO44556gmodule  /gt /gfilenamefscripts/autofrisk.scm     % / - /   / CHnJopXCDmh]456|gmodule  gso-far  gfilenamefscripts/autofrisk.scm   %     Cd2qh+]A4544455?454544554 54 5(" 4  O> G4>"G4>"G4 >"G445>"G445>"G 6#gforms  gcfg gfiles   gncx  ' gnci  0 greport  < gexternal  E g pww-varname  N bgweak  v gstrong  v  gfilenamefscripts/autofrisk.scm        *  /  *       !  %  '  '  *  .  0  0  3  4  <  <  ?  C  E  E  H  L  N  N  V  ] * _  c  y  ~       %             9  gnameg>>checksCrRHfsQh]456zgfilenamefscripts/autofrisk.scm      gnameg >>summaryCtRuv6wxHyrzth m]44L5>"G6egfilenamefscripts/autofrisk.scm            C h`-13("45$"4>"G45O6gargs Ygfile  Ygt  ! Dgfilenamefscripts/autofrisk.scm      ,     !  .  2  9  G  L $ P  Y  Y gnameg autofriskCRi{RCgm  0gfilenamefscripts/autofrisk.scm  6 4 @ 6 A  9 A ; C  > C  I 5 f k t  t v k   .       C62.0/ccache/sxml/transform.go000064400000015604151463412640011612 0ustar00GOOF----LE-8-2.0l];4h] gguile  gdefine-module*   gsxml g transform  gfilenameS fsxml/transform.scm gexportsS gSRV:send-reply gfoldts g post-order gpre-post-order g replace-range    gset-current-module   gmake-syntax-transformer   g let*-values gmacro g $sc-dispatch   g_ gany  g syntax->datum !  "  #g datum->syntax $# %# &gbegin 'glet (gcall-with-values )glambda *gsyntax-violation +* ,* -f-source expression failed to match any pattern .g procedure? /gdisplay 0gassq 1g *default* 2g*text* 3g *preorder* 4g*macro* 5gappend 6gmap 7gerror 8fUnknown binding for  9f and no default :greverseC5h]4   54>"G4"%&'()hX] LL$1(CCCgvars  Wg initializer  Wgcont  Wgfilenamefsxml/transform.scm V   X   Y  Y  X  W  [   Z  ]   Z  ^ ^  % ^ 0 ` G \   W Ch(-13(CO@gbindings #gbody #gfilenamefsxml/transform.scm S  T   T   T  ! b  # U  # Chf] 45L4?6^gargs  gv gfilenamefsxml/transform.scm  S    C,-h(d] 45$ O@6\gy  'gtmp 'gfilenamefsxml/transform.scm S   ' C5R./h](C$( "& "$4L5"45$4>"G"4>"G"c"Vg fragments  gresult  gfilenamefsxml/transform.scm n   o   q  o   r   o   r % & r  * s  . o  1 s & : s = t  > t  B o  E u  F u  K u $ O u  W u  X v  ] v  _ v  c o  d w  g w l w  w x  x  z  z  z  {  {  q # q %  gnamegloopCh -13OQ6g fragments gloop  gfilenamefsxml/transform.scm d  n   gnamegSRV:send-replyg documentationf Output the @var{fragments} to the current output port. The fragments are a list of strings, characters, numbers, thunks, @code{#f}, @code{#t} -- and other fragments. The function traverses the tree depth-first, writes out strings and characters, executes thunks, and ignores @code{#f} and @code{'()}. The function returns @code{#t} if anything was written at all; otherwise the result is @code{#f} If @code{#t} occurs among the fragments, it is not written out but causes the result of @code{SRV:send-reply} to be @code{#t}.C R012.034567892 h](C$$4L5$"L$_$F&@&4?"44L55@4L5@ 6L6L$L 6  6gtree  gtrigger  gt  ' :gbinding  : gfilenamefsxml/transform.scm                   '  : B E  F  J L  O T W  \  ^  a  f g  j  o  u  x  |  " - 5 -    - 7 -   6  $     4 6  gnamegloopChp]"4545$"$45$""OQ6gtree  kgbindings  kgdefault-binding  kgt   )g text-binding  ) kg text-handler  M kgloop  Z kgfilenamefsxml/transform.scm         !     )  1 2  7  9  = @  G $ M  Z   k gnamegpre-post-orderCRiR h`l](C$C"+( 645"45"6dgfdown  ]gfup  ]gfhere   ]gseed   ]gtree   ]gkid-seed   Agkids   Agfilenamefsxml/transform.scm          & '  4 1 6  9  A A  B  M 2 U  ]   ] gnamegfoldtsC R:5hP]+( 45D$4L5$4455"$K4L$"> G$ ""g"S4L5$45"-$c4L$"> G$"$$ """"~gforest  Pgkeep?  Pg new-forest   Pgnode   Pgt  % gnode?  T gnew-kids  p gkeep?  p gt  Pgnode?  ?gnew-kids  ?gkeep?  ? gfilenamefsxml/transform.scm               %   0   2   5  ?   I   L   P   S  $ T   T   W   _   b  # j  7 o   z      (  "        )          .          $          #  7           %       #  , &  & /   ?   B   P  =  P gnamegloopCh0]OQ4> GCgbeg-pred  ,gend-pred  ,gforest   ,gloop  ,g new-forest  " ,gkeep?  " ,gfilenamefsxml/transform.scm  % $  % 4 ! % $ % %   , gnameg replace-rangeCRCzgm  (gfilenamefsxml/transform.scm  H  d        C62.0/ccache/sxml/ssax/input-parse.go000064400000031005151463412640013015 0ustar00GOOF----LE-8-2.01]l4ho] gguile  gdefine-module*   gsxml gssax g input-parse  gfilenameS fsxml/ssax/input-parse.scm gimportsS gice-9 grdelim     gexportsS gpeek-next-char gassert-curr-char g skip-until g skip-while g next-token g next-token-of gread-text-line g read-string gfind-string-from-port?   gset-current-module   g integer->char !g ascii->char "g char->integer #g char->ascii $g char-newline %g char-return &g1+ 'ginc (g1- )gdec *gmake-syntax-transformer +* ,* -g define-opt .gmacro /g $sc-dispatch 0/ 1/ 2g_ 3gany 423 5g syntax->datum 65 75 8g datum->syntax 98 :8 ;greverse gappend ?goptionalS @gsyntax-violation A@ B@ Cf-source expression failed to match any pattern Dgthrow Eg parser-error Fgcurrent-input-port Gg read-char Hg peek-char Igmemv JfWrong character  Kf (0x Lg eof-object? Mf*eof* Ngnumber->string Of)  Pf.  Qf expected Rgnumber? SfUnexpected EOF while skipping  Tf characters Ugmemq Vg*eof* Wf$Unexpected EOF while skipping until  Xg make-string Yginput-parse:init-buffer Zf [g string-length \g substring ]fEOF while reading a token  ^g string-append _g string-set! `gnext-token-old agstring-concatenate-reverse bg procedure? cg*read-line-breaks* dfreading a line eg list->string fgdelete ggread-delimited hgpeek ig read-line jgchar=? kg string-refC5hP(]4    54>"G i!R"i#R $R %R&i'R(i)R4,-.147:;<=>?hpr-1345$$$&"""$4455CCjgbindings ngbody ng body-rest  ng rev-bindings   ng opt-bindings  > ngfilenamefsxml/ssax/input-parse.scm J K   K   M   M  M +  M $ ! M # N  & N  + M . O  > K  F P  H Q  I Q  L Q  S Q 5 T Q $ V Q  Z Q  _ Q  d T  n  Chm] 45L4?6egargs  gv gfilenamefsxml/ssax/input-parse.scm  J    CBCh(k] 45$ O@6cgy  'gtmp 'gfilenamefsxml/ssax/input-parse.scm J   ' C5-RDEh-13@gport gmessage grest  gfilenamefsxml/ssax/input-parse.scm V W   W    gnameg parser-errorCERFGHh8-.,3#454>"G6gport 1gfilenamefsxml/upstream/input-parse.scm ,  , ,  -  1 .  1 gnamegpeek-next-charCRFGIEJKLMN"OPQhhH-.,3#454545$C45$"4 4 5 5   6 @gexpected-chars ggcomment ggport  ggc  ggfilenamefsxml/upstream/input-parse.scm ;  < .  = =  # >  / >  8 ?  < @ = @  G @  I @ & N A  Q A $ [ A  ] A ; a B  e B ' g ?  g  gnamegassert-curr-charCRFRLGEST)IUVW h-.,3#4545$O"C $94455$4>"G"45"C""B4 5$C45$4  5$C 645"45"garg gport gi  ( kgc  w gfilenamefsxml/upstream/input-parse.scm Q  Q ,  S  $ R  ( T  + U  0 T  1 V  4 V  < V  @ V A W G W  K X  P W ] T  i T  w Z  x \ [  ] [  ^  ^  ^  ^ _ _ `  `  Z  Z  Z " gnameg skip-untilCRFIGHh`-.,3#45"/45$4>"G45"C45"g skip-chars Ygport Ygc   Lgfilenamefsxml/upstream/input-parse.scm k  k 3  l   m * l  + n  = l  I l  M l Y l  Y gnameg skip-whileCR4Xi 5hQ]LCIgfilenamefsxml/upstream/input-parse.scm    COYRZFY[I\LUVE]^X_G'Hh-.,3 ##4545H4J5HJH"45$ J 645$ 4 5$ J 6  6J$!4 J4 J55KJK4J5K"4J>"G4>"G4545"W 45"Egprefix-skipped-chars g break-chars gcomment  gport  gbuffer  ( g curr-buf-len  1 gquantum  5 gi  ; gc  ;  gfilenamefsxml/upstream/input-parse.scm  +  5 $  (  +  1  ;  < H  Q  R \  ]  a  e  i r x  |   1    !      &  gnamegnext-token-oldC`RZF[I\aLUVE]X_G'HYh-.,3 ##45"45"4 5$(  664 5$04 5$(  66  6$4 5 "q4  >"G4>"G4545 "@  "54545"gprefix-skipped-chars g break-chars gcomment  gport  gbuffer  ' gfilled-buffer-l  ' gc  ' g curr-buf-len  . gi  4 gc 4  gfilenamefsxml/upstream/input-parse.scm  %  / '  (  .  4  5 A  G P ( Z  [ e  f  j  n  r x  *  !            B    (   gnameg next-tokenCRFY[bXH_G'\aI hhj-.,3#45454545$""$45"4455$54>"G4>"G4 5"(   6 6 "z"k""$45"454 5$54>"G4>"G4 5"(   6 6 "x"ibgincl-list/pred hgport hgbuffer   hg curr-buf-len  ' hgbuffer  8 gfilled-buffer-l  8 gi  < gc  e gbuffer  ]gfilled-buffer-l  ]gi  Vgc  V gfilenamefsxml/upstream/input-parse.scm  +     !  '  *  4  8  <  A E  F   Q  , Y  Z   ]  # e   e  m  n            *     1            ,               1   =   C   L  , V   V   ]   `  1 h  6 h gnameg next-token-ofCR$i%iVcRFLHcdG% hJ-.,3#454455$64545$(45 $4>"G""CBgport zgline ; zgc  D zgfilenamefsxml/upstream/input-parse.scm *  * ,  +   +  % +  ) +  / + % 0 - 3 -  7 .  ; - ; ,  > /  D ,  K 0 O 0  P 0 ' Y 0 ! ] 0  ^ 1  z gnamegread-text-lineCRFXL\'_GZ h-.,3#45 $m45"P45$  6454>"G$C45" 45"Cgn gport gbuffer  ( gi  . ~gc  . ~gi1  I ~gfilenamefsxml/upstream/input-parse.scm <  < +  = ! =  " >  ( >  . ?  / @ 9 @  B @  C A  I A L B f C  j C p D  ~ D  ~ ?  ?  ?  =  gnameg read-stringCRZFefVLHUE]ghh-.,3##4544554( 45" 455$4 5$C  64  54455$4 5$C  6Cgprefix-skipped-chars g break-chars gcomment  gport  gdelims  1 gtoken  { gfilenamefsxml/ssax/input-parse.scm ]  ^ +  ^ 5 $ _  ' _  + _ & / _  1 _  1 _  4 `  < `  = a  H b  R `  V `  W c [ c  _ c c c  e d l e  p e q f  y f 1 { f  { f  ~ g  g g  g h  h  h  g  i ! i %  gnameg next-tokenCRFih -.,3#456gport gfilenamefsxml/ssax/input-parse.scm l  l ,  m   gnamegread-text-lineCRRHLbhp]4M5$"MM$K4L5M$C45$C4M5$N4M5$CCM$CCC gt gc * ngfilenamefsxml/ssax/input-parse.scm |   | ! |  |   }  # |  $ ~ ! * ~  2   6 ! @   C ! M   P ! Q % [ ! e ! i    p gnameg my-peek-charCGjk[hp-13 HJ("JKHHO"G45$8K4>"GJK44 55$ " "C"b45$JC45$B4455$#K4>"GJK" "C"c $"<"E $"r44 54 55$   ""  "Q KK"~gstr ig  ig max-no-char  ig no-chars-read   igpeeked?   igc  7 yg pos-to-match  } gc  gi  Fgmatched-substr-len  Fgj  Fgk ?g my-peek-char  F ig no-chars-read  S egpeeked?  S egfilenamefsxml/ssax/input-parse.scm t  w   w /  w   x  2  3  7 ? B  C / W / Y  Z  _ & h  l  s  w  }        (    / /  3               "  " ! 2 # " %  )  , 2  5 % ?  ?  F x  i > i  gnamegfind-string-from-port?g documentationfdLooks for @var{str} in @var{}, optionally within the first @var{max-no-char} characters.CRCgm  ,gbuffer ] gfilenamefsxml/ssax/input-parse.scm  6 3 B : C ? D D E K F R G  V gfilenamefsxml/upstream/input-parse.scm i , C ; Q S k T  ]      ( :  (   (  *  < gfilenamefsxml/ssax/input-parse.scm  ] l (I t   (K C62.0/ccache/sxml/fold.go000064400000022763151463412640010527 0ustar00GOOF----LE-8-2.0%]-4h] gguile  gdefine-module*   gsxml gfold  gfilenameS f sxml/fold.scm gimportsS gsrfi gsrfi-1      gexportsS gfoldt gfoldts gfoldts* g fold-values gfoldts*-values g fold-layout  gset-current-module   gatom? gmap gapply gappend gassq !gassq-ref "gerror #fno binding available $g@ %gmacro &gpre 'greverse (gbindings )g pre-layout *gpost +g *default* ,g*text*C5hp"]4   54>"Ghq]Cigx  gfilenamef sxml/fold.scm &  '   '    gnamegatom?CRhZ]LL6Rgkid  gfilenamef sxml/fold.scm 0  1   Ch(0]45$64O56(gfup  'gfhere  'gtree   'gfilenamef sxml/fold.scm )  .  .   /   0 ' 0   ' gnamegfoldtg documentationfjThe standard multithreaded tree fold. @var{fup} is of type [a] -> a. @var{fhere} is of type object -> a. CRhm]LLL6egkid  gkseed  gfilenamef sxml/fold.scm :   ;    Ch8j]45$64O4556bgfdown  8gfup  8gfhere   8gseed   8gtree   8gfilenamef sxml/fold.scm 4  7  7   8   : ( <  4 : 8 9   8 gnamegfoldtsg documentationfnThe single-threaded tree fold originally defined in SSAX. @xref{sxml ssax,,(sxml ssax)}, for more information.CRhm]LLL6egkid  gkseed  gfilenamef sxml/fold.scm J   K    ChH]45$64> G4O56gfdown  Egfup  Egfhere   Egseed   Egtree   Egkseed  " Egtree  " Egfilenamef sxml/fold.scm @  D  D   E   G  % F  . J  E I   E gnamegfoldts*g documentationfA variant of @ref{sxml fold foldts,,foldts} that allows pre-order tree rewrites. Originally defined in Andy Wingo's 2007 paper, @emph{Applications of fold to XML transformation}.CRh8-13(E4> G@gproc 3glist 3gseeds  3gseeds  # 3gfilenamef sxml/fold.scm Q  U   V   X   X ! " X  & W  / Z " 3 Z  3  gnameg fold-valuesg documentationfA variant of @ref{SRFI-1 Fold and Map, fold} that allows multi-valued seeds. Note that the order of the arguments differs from that of @code{fold}.CRho-13LLL@ggtree gseeds gfilenamef sxml/fold.scm h   i   Ch`-1345$@4> G4O> G45@gfdown `gfup `gfhere  `gtree  `gseeds  `gtree  + `gkseeds  + `gkseeds  L `gfilenamef sxml/fold.scm \ `   `   a   c  . b  3 g  O e V m  ` m  `  gnamegfoldts*-valuesg documentationfA variant of @ref{sxml fold foldts*,,foldts*} that allows multi-valued seeds. Originally defined in Andy Wingo's 2007 paper, @emph{Applications of fold to XML transformation}.CR h ] 45$CCgalist  gkey  gdefault   gt  gfilenamef sxml/fold.scm o  p p    gnamegassq-refC!R"#hx-136pgargs gfilenamef sxml/fold.scm     gnamegerrCh-13LL@zgargs gfilenamef sxml/fold.scm   )    gnameg cont-with-tagC!$%&'h]45Dgparams  glayout  g old-layout   gkids   gfilenamef sxml/fold.scm      C()h{]Csgtag  gparams  glayout   gfilenamef sxml/fold.scm    C*+ h`b]>"O Q $ 45"4L5  (   D"   D$/& 4 5    D""45$45$!4?"45$4?D4544  554 4 L55"4 L5"Zgtree  _gbindings  _gpcont   _gparams   _glayout   _gret   _g new-bindings   g new-layout   gcont   g cont-with-tag  gbindings 6 g style-params 6 gparams g tag-bindings  _gt  Ggt  Ggfilenamef sxml/fold.scm          ,  3 / 4 : 6  6  =  A  B K & N L P W ` - c S e e  h  j  n  q ( u 5 y z   &   B  +                              !  )  *  0  1  7 $ ;  =  G  K  Q 1 U  _ I  _ gnamegfdownC'h8, 3 4 4 5> G    Dgtree  2gbindings  2gcont   2gparams   2glayout   2gret   2g kbindings   2gkcont   2gkparams   2gklayout  2gkret  2gklayout  2gkret  2 gfilenamef sxml/fold.scm    (    0 - 2   2 gnamegfupC!,h06]44L5> GD.gtree  0gbindings  0gcont   0gparams   0glayout   0gret   0gtlayout   0gtret   0gfilenamef sxml/fold.scm         . - 0   0 gnamegfhereChP]=OQ4O>  G     Dgtree  Ngbindings  Ngparams   Nglayout   Ng stylesheet   Ngerr   Ngfdown   Ngbindings  : Ngcont  : Ngparams : Nglayout : Ngret : N gfilenamef sxml/fold.scm s   1 7 4 C 9  =  J  N   N gnameg fold-layoutg documentationf A traversal combinator in the spirit of SSAX's @ref{sxml transform pre-post-order,,pre-post-order}. @code{fold-layout} was originally presented in Andy Wingo's 2007 paper, @emph{Applications of fold to XML transformation}. @example bindings := (...) binding := ( ...) | (*default* . ) | (*text* . ) tag := handler-pair := (pre-layout . ) | (post . ) | (bindings . ) | (pre . ) | (macro . ) @end example @table @var @item pre-layout-handler A function of three arguments: @table @var @item kids the kids of the current node, before traversal @item params the params of the current node @item layout the layout coming into this node @end table @var{pre-layout-handler} is expected to use this information to return a layout to pass to the kids. The default implementation returns the layout given in the arguments. @item post-handler A function of five arguments: @table @var @item tag the current tag being processed @item params the params of the current node @item layout the layout coming into the current node, before any kids were processed @item klayout the layout after processing all of the children @item kids the already-processed child nodes @end table @var{post-handler} should return two values, the layout to pass to the next node and the final tree. @item text-handler @var{text-handler} is a function of three arguments: @table @var @item text the string @item params the current params @item layout the current layout @end table @var{text-handler} should return two values, the layout to pass to the next node and the value to which the string should transform. @end table CRCgm  ,gfilenamef sxml/fold.scm   &  )  4  @ Q \ o "n s   "p C62.0/ccache/sxml/apply-templates.go000064400000004526151463412640012721 0ustar00GOOF----LE-8-2.0> ]"4h] gguile  gdefine-module*   gsxml gapply-templates  gfilenameS fsxml/apply-templates.scm gimportsS gssax     gxpath  ghideS gfilter    gexportsS  gset-current-module   g node-typeof? g procedure? gerror fambiguous template match gnodeset? g map-union !gappendC5hd]4   54>"GhP*](C$/4455$4L5C"""gnode  Og templates  Ogfilenamefsxml/apply-templates.scm >   ?   A   A  ?   C   C   C   C  ! C  % ?  ( D * D  1 D 4 3 D  4 D  : F  B F  G B  O B   O gnamegfilter-templatesChH]$;45$&4L5$4>"G"C"Cg templates  Fgfilenamefsxml/apply-templates.scm K   L L  N  N   N  M  O   O   O  ! O " P  & P  + P  : Q > R  D R   F gnameg find-handlerC hh]LL6`ga-tree  gfilenamefsxml/apply-templates.scm W  W $  C!h`@]45$LO644L54LL554L5$6$ "C8gtree  `gactive-templates  `gstill-active-templates  3 `gt  < `gfilenamefsxml/apply-templates.scm T   V  V   W   Y  Z  ) [  3 Y  3 X  6 ^ < \ J _  M `  Q \ T b  ^ b _ `   ` gnamegloopCh@]OOQQOQ6gtree  9g templates  9gfilter-templates   9g find-handler   9gloop  ' 9gfilenamefsxml/apply-templates.scm 8 ' T  7 T + 9 T   9 gnamegapply-templatesCRC\gm  ,gfilenamefsxml/apply-templates.scm  2  8    C62.0/ccache/sxml/ssax.go000064400000210602151463412640010550 0ustar00GOOF----LE-8-2.0j]4h$c] gguile  gdefine-module*   gsxml gssax  gfilenameS f sxml/ssax.scm gimportsS g input-parse     gsrfi gsrfi-1   gsrfi-13    gexportsS gcurrent-ssax-error-port gwith-ssax-error-to-port g xml-token? gxml-token-kind gxml-token-head gmake-empty-attlist g attlist-add g attlist-null? gattlist-remove-top !gattlist->alist "g attlist-fold #gdefine-parsed-entity! $g reset-parsed-entity-definitions! %gssax:uri-string->symbol &gssax:skip-internal-dtd 'gssax:read-pi-body-as-string (g ssax:reverse-collect-str-drop-ws )gssax:read-markup-token *gssax:read-cdata-body +gssax:read-char-ref ,gssax:read-attributes -gssax:complete-start-tag .gssax:read-external-id /gssax:read-char-data 0gssax:xml->sxml 1gssax:make-parser 2gssax:make-pi-parser 3gssax:make-elem-parser 4 !"#$%&'()*+,-./0123 5gset-current-module 65 75 8gthrow 9g parser-error :g integer->char ;g ascii->char integer =g char->ascii >gmake-parameter ?gcurrent-error-port @gparameter-fluid Ag*current-ssax-error-port* Bg parameter? CB DB Eg scm-error Fgwrong-type-arg Gf parameterize HfNot a parameter: ~S Igwith-output-to-port Jgdisplay Kf;;; SSAX warning:  Lgfor-each Mgnewline Ng ssax:warn Ogstring Pgucscode->string Qg char-newline Rg char-return Sgchar-tab Tf  Ugnl Vgamp Wf& XVW Yglt Zf< [YZ \ggt ]f> ^\] _gapos `f' a_` bgquot cf" dbc eX[^ad fgssax:predefined-parsed-entities ggmake-syntax-transformer hg ig jgbegin0 kgmacro lg $sc-dispatch ml nl ogany pgeach-any qop roq sg syntax-object tglet ugtop vu wgribcage xgdummy ygform zgform1 {xyz |g m-b6cceb-18 }|u ~}vv f l-b6cceb-1d f l-b6cceb-1e f l-b6cceb-1f  w{~ w gx  } f l-b6cceb-1a  w v ghygiene  st gval s gappend    gsyntax-violation   f-source expression failed to match any pattern g let*-values o o gbegin gbodies x g m-b6cceb-24 u v f l-b6cceb-29 f l-b6cceb-2a  w  f l-b6cceb-26  w v s o o o o o gvar g initializer grest x vvvv f l-b6cceb-2e f l-b6cceb-2f f l-b6cceb-30 f l-b6cceb-31 f l-b6cceb-32  w v st s oo o o oŒ gcall-with-values gvars x f l-b6cceb-39 f l-b6cceb-3a f l-b6cceb-3b f l-b6cceb-3c f l-b6cceb-3d  w v s glambda s s g1+ ginc g1- gdec ginclude-from-path/filtered gwith-input-from-file g%search-load-path g eof-object? greverse gread gmemq g_ oo g datum->syntax g syntax->datum gexp  v f l-b6cceb-5d  w g accept-list gfile  vv f l-b6cceb-56 f l-b6cceb-57  w g read-filtered  v f l-b6cceb-45  w f l-b6cceb-44  w v s gassert gatom fdoit  opp gcond gexpr gr-exp x g m-b6cceb-62 u vv f l-b6cceb-67 f l-b6cceb-68  f l-b6cceb-69     w     f l-b6cceb-64   w  v  s gand s g=> s s s    gelse s gerror s fassertion failure: ~a  s !glist "s! #gquote $s# %fcollect &% 'o&p (x )v *f l-b6cceb-71 +f l-b6cceb-72 ,*+ -w(), .v- /s. 0s. 1 2gfree-id 3greport: 4v 5s34 625 76p 8p7 9&8 :o9 ;f l-b6cceb-77 ;<= ?w> @v? As@ Bs@ Cpq D&C EoD Fgexpr1 Ggstuff HxFG Ivvv Jf l-b6cceb-80 Kf l-b6cceb-81 Lf l-b6cceb-82 Mf l-b6cceb-83 NJKLM OwHIN PvO QsP Rs%P SxG Tf l-b6cceb-8b Uf l-b6cceb-8c VTU WwS)V XvW YsX Zs%X [gassure \ooo ]g error-msg ^x] _g m-b6cceb-90 `_u a`vv bf l-b6cceb-95 cf l-b6cceb-96 df l-b6cceb-97 ebcd fw^ae g` hf l-b6cceb-92 ih jwgi kvfj lsk ms3k ngrun-test ofscan-exp po qgdefine rg m-b6cceb-9c sru ts uf l-b6cceb-9e vu wwtv xvw ysqx z2y {zoo |op{ }gbody ~x} svv f l-b6cceb-a1 f l-b6cceb-a2 f l-b6cceb-a3  w~ vw sq sn so opo g letrec-syntax g?body x sv f l-b6cceb-a8 f l-b6cceb-a9  w vw s gscan-exp s g syntax-rules s s# g quasiquote s g! s   gk-head s gargs s       ghd s gtl s   gk s  g scan-lit-lst s gdo-wrap s       s   gif s gstring? s  gstring->symbol s    Ȍ   gdo-tl s      Ҍ     g processed-hd s gfn s    ތ  gold-tl s  gdo-cons s      g processed-tl s  쌤      s        g do-finish s gnew-body s     gunquote s gunquote-splicing s                                    !  " #" $ !#  %$ &% ' (' )x} *f l-b6cceb-ad +f l-b6cceb-ae ,*+ -w), .v-w /s. 0gmap 10 20 3sn. 4so. 5gmake-xml-token 6gpair? 7gcar 8gtoken 9x8 :g m-b6cceb-b2 ;:u <;v =f l-b6cceb-b7 >f l-b6cceb-b8 ?=> @w9<? A; Bf l-b6cceb-b4 CB DwAC Ev@D Fs7E Ggcdr Hg m-b6cceb-bb IHu JIv Kf l-b6cceb-c0 Lf l-b6cceb-c1 MKL Nw9JM OI Pf l-b6cceb-bd QP RwOQ SvNR TsGS Ug string-length Vgchar-whitespace? Wg string-ref Xgstring-whitespace? Yg assq-values Zg fold-right [gfold \  ]g ssax:S-chars ^g skip-while _g ssax:skip-S `gchar? agchar-alphabetic? bgchar=? cgssax:ncname-starting-char? dg peek-char efXMLNS [4] for ' fg next-token-of gg string-index hf 0123456789.-_ igssax:read-NCName jg read-char kgssax:read-QName lfxml mgssax:Prefix-XML ng= ogstringstring qg< rg> sgssax:largest-unres-name tg name-compare uf#LARGEST-SYMBOL vgassert-curr-char w< xfstart of the token ygEND z> {fXML [42] |gPI }gpeek-next-char ~- fXML [15], second dash gfind-string-from-port? f--> fXML [15], no --> gCOMMENT gstring=? fCDATA[ g read-string gport     gCDSECT gDECL gSTART f?> f$Failed to find ?> terminating the PI g ssax:skip-pi gstring-concatenate/shared g next-token ? freading PI content f? f]> f5Failed to find ]> terminating the internal DTD subset f reading CDATA f] f f]] g string-null? fgt ; fXML [66] gstring->number ginteger? ff-Legalchar] broken for ' famp flt fapos fquot gassq gcall-with-input-string g procedure? gclose-input-port f[norecursion] broken for  g *DEFAULT* f[wf-entdeclared] broken for  gssax:handle-parsed-entity gnull? <& fXML [10] f  gmemv fXML [68] g*eof* f[CleanAttrVals] broken = fXML [25] '" g!string-concatenate-reverse/shared f[uniqattspec] broken for  f [nsc-NSDeclared] broken; prefix  gssax:resolve-name fxmlns f[dt-NSName] broken for  >/ fXML [40], XML [44], no '>' fXML [44], no '>' gassoc g EMPTY-TAG f#[elementvalid] broken, no decl for  gANY gapply gvalues gREQUIRED f[RequiredAttr] broken for f[ValueType] broken for  gFIXED f[FixedAttr] broken for  gCDATA gmember f[enum] broken for  f= fdeclared content type  f not verified yet f,[uniqattspec] after NS expansion broken for  fspace after SYSTEM or PUBLIC fXML [11], XML [12] fSYSTEM fXML [11] fPUBLIC g skip-until fspace after PubidLiteral f XML [75],  f rather than SYSTEM or PUBLIC f#XML [22], unexpected token of kind  fXML [22], char ' f ' unexpected gssax:scan-Misc freading char data g ENTITY-REF gssax:assert-token g orig-handlers x g m-b6cceb-c4 u v f l-b6cceb-c9 f l-b6cceb-ca  w  f l-b6cceb-c6  w v s gloop s s s  s gaccum s s gtarget s gseed s  g make-case s s sN f Skipping PI:  s sU    s              gdefault s        ghandlers s  gold-def s     !gtag "s! #ghandler $s# %"$ &% '& (" )$ *() +* ,+ -', . - /. 0gclauses 1s0 21 3gcase 4s3 51 645 726 8gclause 9s8 :91 ;: <9 =1< >;= ?7> @? A/@ Bs C D Eooooo Fgmy-new-level-seed Ggmy-finish-element Hgmy-char-data-handler Igmy-pi-handlers JxFGHI Kg m-b6cceb-cd LKu MLvvvv Nf l-b6cceb-d2 Of l-b6cceb-d3 Pf l-b6cceb-d4 Qf l-b6cceb-d5 Rf l-b6cceb-d6 SNOPQR TwJMS UL Vf l-b6cceb-cf WV XwUW YvTX ZsY [gstart-tag-head \s[Y ]sY ^gelems _s^Y `gentities as`Y bg namespaces csbY dg preserve-ws? esdY fsY g\]_acef hsqY ig xml-space-gi jsiY kgcons lskY msmY nsY ofspace psoY qnp rlmq shjr tstY ughandle-start-tag vsuY w\\ x]] yaa zcc {ee |g parent-seed }s|Y ~}f wxyz{~ sY gelem-gi sY g attributes sY gexpected-content sY c s-Y \]_ac  f c} s3Y sY  c}f gEMPTY sY  sY sY geqv? sY s<Y s_Y ]  s)Y ]  s#Y syY  s8Y gexp-kind sY gexp-head sY  s9Y f[elementvalid] broken for  sY f while expecting  sY ] Z \ sY sY sY j sY g name-value sY  gequal? sY fpreserve sY sGY   Z  e  e  sY g expect-eof? sY sY  ff xy g term-token sY f s/Y sY sY  sY   f[GIMatch] broken for  sY ] Z \ s|Y  s2Y sY  ]f ]af  sY  sY ]af sY ]af Z sY  geq? sY gPCDATA sY   f* with char content only; unexpected token  sY ]  v]acef f  t  fXML [43] broken for  sY ]   g ssax:make-parser/positional-args oooooooo g*handler-DOCTYPE g*handler-UNDECL-ROOT g*handler-DECL-ROOT g*handler-NEW-LEVEL-SEED g*handler-FINISH-ELEMENT g*handler-CHAR-DATA-HANDLER g *handler-PI  x  g m-b6cceb-dc   u   vvvvvvv  f l-b6cceb-e1 f l-b6cceb-e2 f l-b6cceb-e3 f l-b6cceb-e4 f l-b6cceb-e5 f l-b6cceb-e6 f l-b6cceb-e7 f l-b6cceb-e8   w     f l-b6cceb-de  w v s s s   sq !g handle-decl "s! #g token-head $s# %"$ &gor 's& (s )s *fDOCTYPE +s* ,)+ -(,$ .s9 /f.XML [22], expected DOCTYPE declaration, found  0s/ 1.0$ 2'-1 3sv 4s] 5fXML [28], space after DOCTYPE 6s5 7346 8s_ 98 :s ;gdocname <s; =< >sk ?> @=? Agsystemid BsA CB Ds Esc FE9 Gs. HG IDFH JCI Kginternal-subset? LsK ML Ns Os Ps[ Qs# Rs> SRP TQS UfXML [28], end-of-DOCTYPE VsU W3TV XOPW YN9X ZMY [s^ \s` ]sb ^[\] _<BL `g#scan-for-significant-prolog-token-2 as` ba[\] cb dg#scan-for-significant-prolog-token-1 esd fe gst hs8 is ji khj lk ms ns onh pfXML [22], unexpected EOF qsp r.q ss3 ts uth vs| wv xs2 ys zyh {z |f }s ~} "z ~ s  z gelement-parser s s z[\]  s fXML [22], unexpected markup  s .h   s3 gssax:define-labeled-arg-macro geach oo  o oo g define-syntax glabeled-arg-macro-name gpositional-macro-name garg-name garg-def x g m-b6cceb-f1 u vvvv f l-b6cceb-f6 f l-b6cceb-f7 f l-b6cceb-f8 f l-b6cceb-f9 f l-b6cceb-fa  w  f l-b6cceb-f3  w v s s g kw-val-pairs s s gfind s gk-args s s s gothers s  gnext s    gkey s garg-no-match-name s  Œ Ì Č  ƌ nj    ˌ  gvals s gkeys s ь Ҍ ӌ Ԍ ό ь  ، ٌ   g rev-apply s      sy s gxs s 猤  䌤        g m-b6cceb-105 u x g m-b6cceb-106 u  f l-b6cceb-10b f l-b6cceb-10c  w  f l-b6cceb-108  w gshift  s s s gDOCTYPE v s g UNDECL-ROOT  s  g DECL-ROOT  s   gNEW-LEVEL-SEED  s  gFINISH-ELEMENT s gCHAR-DATA-HANDLER s s|     s s  s s      s    !  "  #  $"# %$ &% '&  (  )  *() +* ,+ -,  .  /  0./ 10 21 32  4 5 645 76 87 98  : ; <:; =< >= ?>  @ A B@A CB DC ED  Fs Gs HG IFH JI KJ LF ML NM OKN P QP R SR TQS U  VU WVS X  YX ZYS [  \[ ]\S ^ _^ `_S a ba cbS d ed feS g!'-39?EOTWZ]`cf hg is js kFj lik ml nm oi poj qi rs s trsi uqt vu wsy xs ys zxy {rwz |xw }r|y ~{} rw w ~ r  s s s s; sA sK s  gwhen s sN f-Internal DTD subset is not currently handled  s  s&   f DOCTYPE DECL  s s f found and skipped s  s s s#     s                gssax:reverse-collect-str g*PI* >[ g string-append f: g@ g*TOP* g *NAMESPACES* gSSAX:XML->SXMLC5hТ]4   4547>"G89h-13@gport gmessage grest  gfilenamef sxml/ssax.scm      gnameg parser-errorC9R:i;Ri4?i55R4@ii5ARDEFGHhP] 45$"4>"G 4 5Y4>ZCZFgport  Mgthunk  Mg t-b6cceb-a   Mgfilenamef sxml/ssax.scm   B   M gnamegwith-ssax-error-to-portCRIJKLMh0n]4>"G4L>"G6fgfilenamef sxml/ssax.scm         ,   , Ch -1345O6gport gargs gfilenamef sxml/ssax.scm     gnameg ssax:warnCNRO:h]456~g codepoint  gfilenamef sxml/ssax.scm    gnamegucscode->stringCPR QR RR SRTURefh] Cgfilenamef sxml/ssax.scm       gnameg reset-parsed-entity-definitions!g documentationfBRestore the set of parsed entity definitions to its initial state.C$Rfh\] CTgentity  gstr  gfilenamef sxml/ssax.scm      gnamegdefine-parsed-entity!g documentationfDefine a new parsed entity. @var{entity} should be a symbol. Instances of &@var{entity}; in XML text will be replaced with the string @var{str}, which will then be parsed.C#R4ijknrh R]45CJgdummy  gform  gform1      Ch(] 45$@6gx  "gtmp "gfilenamef sxml/ssax.scm   " g macro-typeg syntax-rulesgpatternsgformgform1g...C5jR4iknhA]C9gdummy  gbodies     Ch }]Cugdummy  gvar  g initializer   grest   gbodies      Ch ~]Cvgdummy  gvars  g initializer   grest   gbodies      C hP]45$@45$@45$@ 6gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamef sxml/ssax.scm   P g macro-typeg syntax-rulesgpatternsgbodiesgvarg initializergrestgbodiesgvarsg initializergrestgbodiesC5RiRiR4ikhh]"S45$6"45"$$4L5$45"""45"gsexp  Ygout  Ygfilenamef sxml/ssax.scm       !   *  * -  1 2 7 & ; ?  @  I  Q  Y Z  _ ( g   g Ch]45O6g accept-list  gfile  gfilenamef sxml/ssax.scm        gnameg read-filteredCnnph+]C#gexp     Ch@]4L4L45455545$@6g accept-list  >gfile  >gtmp   >gtmp  ' >gfilenamef sxml/ssax.scm    !  "   "   !     > Ch0|]45$ O@6tgx  -g read-filtered  -gtmp   -gfilenamef sxml/ssax.scm   - C5R4ikn "$ h0R]CJgdummy  ,gexpr  ,gr-exp   ,  , C'/01h?]C7gdummy  gexpr     C:ABhR]CJgdummy  gexpr  gr-exp      CEQRhe]45C]gdummy  gexpr  gexpr1   gstuff      CqYZh@]C8gdummy  gstuff    Ch])45$@45$@45$@45$ @4 5$ @  6gx  ~gtmp ~gtmp  " ~gtmp  9 ~gtmp  P ~gtmp  g ~gfilenamefsxml/upstream/assert.scm    ~ g macro-typeg syntax-rulesgpatternsfdoitgexprg...gr-expg...fcollectgexprg...fcollectgexprg...greport:gr-expg...fcollectgexprg...gexpr1gstuffg...gstuffg...C5R4i[kn\lmhU]CMgdummy  gexp  g error-msg      Ch(] 45$@6gx  "gtmp "gfilenamefsxml/upstream/assert.scm   " g macro-typeg syntax-rulesgpatternsgexpg error-msgC5[R4inkn|hQ]CIgdummy  gvars  gbody      C&(h@]C8gdummy  g?body     Cq/234h5]C-g tmp-b6cceb-b1    Ch?]45C7gdummy  gbody     C hP]45$@45$@45$@ 6gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefsxml/upstream/SSAX.scm 2   P g macro-typeg syntax-rulesgpatternsfscan-expgdefinegvarsgbodyfscan-expg?bodygbodyg...C5nRh]Cgkind  ghead  gfilenamefsxml/upstream/SSAX.scm    #   gnamegmake-xml-tokenC5R6iR4iknFh@]C8gdummy  gtoken    Ch(] 45$@6gx  "gtmp "gfilenamefsxml/upstream/SSAX.scm    " g macro-typeg syntax-rulesgpatternsgtokenC5R4iknTh@]C8gdummy  gtoken    Ch(] 45$@6gx  "gtmp "gfilenamefsxml/upstream/SSAX.scm    " g macro-typeg syntax-rulesgpatternsgtokenC5RUVWh]45 $C $ 4 56 $44 55$ 4 56C"1$C4455$ 45"C "gstr  glen gi  U gt  Z gfilenamefsxml/upstream/SSAX.scm q  r r   t   s   u   s  u " ) u  . v  2 s  3 v  6 v ' ? v  C v  F w ' O w  U y  Z z Z z  f {  i { # s {  w { x |  |  y   gnamegstring-whitespace?CXRhHP]"6(D$45D""Hgval  Ggalist  Ggalist   <gscanned   <gfilenamefsxml/upstream/SSAX.scm                        '  * )   +   .  1   4   <   <   ?  $ G    G gnameg assq-valuesCYRh ] (LCL4L56glis  ghead  gfilenamefsxml/upstream/SSAX.scm                        gnamegrecurCh ] OQ6gkons  gknil  glis1   grecur  gfilenamefsxml/upstream/SSAX.scm      gnameg fold-rightCZRh0]"(C45""gkons  0gknil  0glis1   0glis   $gans   $gfilenamefsxml/upstream/SSAX.scm                  $   $    0 gnamegfoldC[R40i;i\5]R^]h}]6ugport  gfilenamefsxml/upstream/SSAX.scm     gnameg ssax:skip-SC_R`abh0] 45$45$C_6Cga-char  )gt  'gfilenamefsxml/upstream/SSAX.scm             '    ) gnamegssax:ncname-starting-char?CcRdc9e`faghh0]45$C45$C45$CCgc  /gfilenamefsxml/upstream/SSAX.scm              "   &  *    / C hP]4545$"4>"G456gport  Ig first-char <gt   9gfilenamefsxml/upstream/SSAX.scm               %   )  6 .   ?   I    I gnamegssax:read-NCNameCiRidjh@]4545:$4>"G45CCgport  =gprefix-or-localpart =gkey   =gfilenamefsxml/upstream/SSAX.scm              2  ! 9    = gnamegssax:read-QNameCkR4il5mRnopqrsh]$2$(&C445455$CCC$C&C&C&2&C445455$CC&C445455$CCgname1  gname2  gsymb1  k gsymb2  k gsymb1  gsymb2  gfilenamefsxml/upstream/SSAX.scm                  "       &  1 .   2   4   7   :   >   B   D   M   O  , X   Z  , ^  a   e   h   k  $ k   w   y  " {   ~    1            )     "      1        2  CtR4iu54iu5sRvwxdj5yk_z{|i}~9h]4>"G45/$M4>"G44554 >"G4  >"GC?$4>"G 4 56!$45-$T4>"G4>"G45$"4>"G6[$O4>"G44 55$"4>"G64 56456gport  gkey  gval  J wgkey  sgt  9 _gfilenamefsxml/upstream/SSAX.scm b   c   c  c   c   d  d  + e = f  A f  B f $ J f  J f  M g  _ h  c h ! e h ( l h  d  i i . i 2 i  d  k k  l  X  X  X  X  Y Y % Y Y  Z  Z  Z   [   [   k   m  * _ . _  / _  9 _ 9 _  c `  f `  j n  k n % s n  w o  x o #  o 8   C)R9h ]45$C6gport  gfilenamefsxml/upstream/SSAX.scm t  u  u # u  u   v   v    gnameg ssax:skip-piCR_}jhH]4L5>4L5$4L>"GC4L5Cg pi-fragment  Bgfilenamefsxml/upstream/SSAX.scm            $                 5  :   ;  # @    B gnamegloopCh0] 4>"GOQ456gport  0gloop  .gfilenamefsxml/upstream/SSAX.scm ~       0    0 gnamegssax:read-pi-body-as-stringC'R9h ]45$C6gport  gfilenamefsxml/upstream/SSAX.scm      #             gnamegssax:skip-internal-dtdC&RRi ]&jUd}fah ~]45$C45$CCvgc  gfilenamefsxml/upstream/SSAX.scm          ,      CW]h]+"~4L545 $45"]$45]$x"R45>$4>"GC]$45"4 5"b4 5$" 45"45"/&$o4  5"44 55"45$545;$#4>"G45"""45 $4>"G"45""zgport  g str-handler  gseed   gseed   gfragment   gkey   gseed  R gkey  Y gent-ref  O gfilenamefsxml/upstream/SSAX.scm          $   $            '   7   @   A   J   N   R  S   Y   e        %  )        )  .             1       (            "    0                       /   ) $  %  7   =  ( A   G  P   Y  ]  ^  / t       H   CO*RdjP9` hxi]45x$4>"G " 45454>"G45$6   6agport  tgbase * tgname  8 tg char-code  C tgfilenamefsxml/upstream/SSAX.scm           . *   -   0   2   4  & 8   8   ;   C   F   X   b   h   n   r  < t    t gnamegssax:read-char-refC+R4i5W4i5Z4i5]4i5`4i5cfRhf]LLL6^gport  gfilenamefsxml/upstream/SSAX.scm F F   C9fhf]LLL6^gport  gfilenamefsxml/upstream/SSAX.scm X X   Ch%].45$h45$O645$)45 4 5 4 >"G C64 5$  64 5$;  4 5$4 5  O66 6gport  gname  gentities   gcontent-handler   g str-handler   gseed   gt  gent-body   {g new-entities   {gport M qgval Z qgt  gt  gfallback g new-entities gfilenamefsxml/upstream/SSAX.scm <  ?  >   A   B  B   A  " D , C  = E > G H C  I H  M H P J Z I ] K w M  { M | N  >  P  P ( P Q  Q Q  >  S  T T  S  V U  W " W Z  Z [  [ )  gnamegssax:handle-parsed-entityCRhq]Cigfilenamefsxml/upstream/SSAX.scm c  c    gnamegmake-empty-attlistCRtnqhH] (C45$C$C45C gattlist  Eg name-value  Egkey   Egfilenamefsxml/upstream/SSAX.scm i  j  j   k  k   k +  k  k  5 m 9 n  : n " ? n / C n " D n   E gnameg attlist-addCRiRh]Dgattlist  gfilenamefsxml/upstream/SSAX.scm t  u  u  u   gnamegattlist-remove-topC Rhz]Crgattlist  gfilenamefsxml/upstream/SSAX.scm w    gnamegattlist->alistC!R[i"R4i]i5jRd]+ivh]L6gport  gentities  g fragments   gfilenamefsxml/upstream/SSAX.scm           Ch ]$CCgstr1  gstr2  g fragments   gfilenamefsxml/upstream/SSAX.scm                  C9hH]4L54545$"$C$;45 $4>"G""|4 5$"X&$45#$.4>"G4 5"4 54  >"G4LO5"6g delimiter  Agport  Agentities   Agprev-fragments   Ag new-fragments   Agcterm   Agt  & ;gname  -gfilenamefsxml/upstream/SSAX.scm          "                  &  8  ! ?   G  K   L   U   Y  Z  0 w  # z        #                                     9   ?  ! A  0  A gnamegread-attrib-valueCOQc_kv9h]""4455$454>"G4>"G4>"G454 4 4L555$" 4  5"cC4 5"Ugport  gentities  g attr-list   gname   g delimiter  d gt  gfilenamefsxml/upstream/SSAX.scm          +             2  6   8  % ?  H  Z   ^  % `  1 d   d  g   n   q   z  6 |   ~             &          $  CO,Rm9hx] $=45$"&" 45C$'45$$CCCCgport  vg unres-name  vg namespaces   vgapply-default-ns?   vgt   Ag default-ns  U sgfilenamefsxml/upstream/SSAX.scm 4  6  5  9   9  9   8  & : , 8  3 <  9 <  < < < > <  D =  E 7  L 5  M ?  Q ?  U ?  U ?  ] @  ` @  e @ h A  l A   v gnamegssax:resolve-nameCRh]6guri-str  gfilenamefsxml/upstream/SSAX.scm i  j    gnamegssax:uri-string->symbolC%R4i5si9%hp]$4>"G"45"5( C&C""gport  ogprefix  oguri-str   og namespaces   og uri-symbol  , ognss  2 ggfilenamefsxml/upstream/SSAX.scm                &   ,   2   8   ?   C  I   O   T   Y   ]  a   g   g    o gnamegadd-nsC,_vz99hPO]"4> G&4L>"G"$ CCGg decl-attr  Ngresult  Ng attr-name   Ng content-type   Nguse-type   Ng default-value   Ngfilenamefsxml/upstream/SSAX.scm           "  #   )  ! 0   B  G   J    N gnamegadd-default-declC" tq9rNh]S45$ L64> G45$L "" 4> G45$KL$"$ L"$"WL6$h4  > G     &4L >"G" $  "   "4  > G     &/   $"4L>"G "c &"W $84 5  $"4L>"G "4L >"G"gattlist  g decl-attrs  gresult   gattr  " g attr-others  " g decl-attr  M g other-decls  M gkey  _ gt  p g attr-name  g content-type guse-type g default-value g attr-name  3 g content-type 3 guse-type 3 g default-value 3 gt L qgt  gfilenamefsxml/upstream/SSAX.scm           %  *   4  >   C   P  U   Z   ]  * _   _  o  ! p   p    "      9  .    /    %             !          &   '   6   B   F   I   L   L   Y   _  ( f   y  # }                          (   G            !         -   G   gnamegloopC!Z9h0] 44LL55$CL6g name-value  /gattlist  /gt   /gfilenamefsxml/upstream/SSAX.scm           )               +   /    / Ch]E454>"G/45$45"$B45$$ " ","4  >"$ "  " G$: O Q O  LL Q 4 5  "45 " (   "L &6   $  "4L  5   ""       " $0L &!  4L   5   "b""    "K G  4 54 O45 5 Dgtag-head  gport  gelems   gentities   g namespaces   gattlist  g empty-el-tag?  A gt  R g elem-content  g decl-attrs  gadd-default-decl gloop g merged-attrs gattrs g proper-attrs g namespaces g proper-attrs  g namespaces  gfilenamefsxml/upstream/SSAX.scm          "   &  (  + ,   -   1   2   6   8  ! <   A   I   J  R  `   b  i  + m   u  z         '         A                                   !   $   (   -   3   6  * ;   E   L   O  R   ^   ^   a   c  g   l  - r   u   x        )            +                     Q   CO-Riv]_j9h]!454>"G4>"G454 5&&4  54 >"GC4 5&r4>"G4>"G4>"G4 54  54 >"GC6gport  g discriminator g delimiter  > gval  \ sg delimiter  gsystemid  gfilenamefsxml/upstream/SSAX.scm           #    "   4  8   :  ( >  >   C   G  , I   M   N  Q   V   X  - \  \  _  v   z  - |           *      $  0        $  5           2  gnamegssax:read-external-idC.Rb)_|9 hn]"}45$C4<5$V45$ 45"$"$"$C  6   645"vfgport  gc  gtoken  ( wgkey  - wgfilenamefsxml/upstream/SSAX.scm             !   "   (   -   -  9   E   N  s  ! u   w   }    0          gnamegssax:scan-MiscCR<&Ri<&Rid)y*/}j+iv5Oh0],<45$h45$"$D$456$ 6D"4 $L"L 5454 5$ 4 5$" 4 5D<$45$+44 5$" 4 55"g$"4 5$" 4 5"<4 5$" 4 5D&$45#$(4>"G4455"454>"G4 5$" 4 545D45 $4>"G"44 55"Y"Qgport  +g expect-eof?  +g str-handler   +gseed   +gtoken   xgkey   xgseed  O ]gseed  | #gfragment  #g term-char  #gtoken  `gkey  `gkey  p gname   gfilenamefsxml/upstream/SSAX.scm M   Q  Q  Q   T   T  U   U ; W  D U E Y  O Y  ] Z  f U r [  x ^  | e } g  g ! c  h ! g  f i  f k  k  I I J J # J l  o  q # q  r  r  u  I I  J  J #  J  u   t   r   I ) I 0 J 6 J # : J @ x  A I K I R J X J # \ J ` z  i o  j ~  p ~  |        '         %         -   4     I  I  J  J #  J      ,                       2    #   # e \  + CO/Rh@ ] 45$& ""$C6gtoken  ;gkind  ;ggi   ;g error-cont   ;gt  & ;gfilenamefsxml/upstream/SSAX.scm                  &   ;    ; gnamegssax:assert-tokenCR4i2knABCDh H]C@gdummy  g orig-handlers     Ch(] 45$@6gx  "gtmp "gfilenamefsxml/upstream/SSAX.scm    " g macro-typeg syntax-rulesgpatternsg orig-handlersC52R4i3knEZgstv]fa)h]        !"#$%&' "(Cgdummy  gmy-new-level-seed  gmy-finish-element   gmy-char-data-handler   gmy-pi-handlers     Ch(] 45$@6gx  "gtmp "gfilenamefsxml/upstream/SSAX.scm o   " g macro-typeg syntax-rulesgpatternsgmy-new-level-seedgmy-finish-elementgmy-char-data-handlergmy-pi-handlersC53R4ikn %279:@JZ^_cfglmorsuwx{|bz[\]*h!,3       !"#$%&'( ")Cgdummy  g*handler-DOCTYPE  g*handler-UNDECL-ROOT   g*handler-DECL-ROOT   g*handler-NEW-LEVEL-SEED   g*handler-FINISH-ELEMENT   g*handler-CHAR-DATA-HANDLER   g *handler-PI     Ch(@] 45$@68gx  "gtmp "gfilenamefsxml/upstream/SSAX.scm   " g macro-typeg syntax-rulesgpatternsg*handler-DOCTYPEg*handler-UNDECL-ROOTg*handler-DECL-ROOTg*handler-NEW-LEVEL-SEEDg*handler-FINISH-ELEMENTg*handler-CHAR-DATA-HANDLERg *handler-PIC5R4ikn2h6]C.gtmp-b6cceb-102     Ch6]C.gtmp-b6cceb-101     CkhX]445 4 55  4 5Cgdummy  Xglabeled-arg-macro-name  Xgpositional-macro-name   Xgarg-name   Xgarg-def   X  X Ch(] 45$@6gx  "gtmp "gfilenamefsxml/upstream/SSAX.scm   " g macro-typeg syntax-rulesgpatternsglabeled-arg-macro-namegpositional-macro-namegarg-namegarg-defg...C5R4i1knhnpFv h0G]   C?gdummy  ,g kw-val-pairs  ,  , Ch(] 45$@6gx  "gtmp "gfilenamefsxml/upstream/SSAX.scm   " g macro-typeg syntax-rulesgpatternsg kw-val-pairsC51Rh](C(C"c((C45C45$"(" 45""g fragments  g fragments  {gresult   {gstrs   {gfilenamefsxml/upstream/SSAX.scm          $ (  1  3 8  : >  A  F / I ) S V  Y  _  f  o  p  q  { {  ~ /  :   gnamegssax:reverse-collect-strCRXht]!(C( 45$45$CCC"{($C45C45$*$ 45""$" 45""tlg fragments  g fragments 5 gresult  5 gstrs  5 gall-whitespace?  5 gfilenamefsxml/upstream/SSAX.scm                     ( #  < %  ( )  *   5   ;   A E  N  P U  W [   ^  c / f ) l  m   r  $ t                     /  :  ,  gnameg ssax:reverse-collect-str-drop-wsC(R0%h]45Cgel  gfilenamefsxml/upstream/SSAX.scm %  &   & " & ;  & "  &    C9p|'*/v]5_kc.UN&mo-"ph@] $"$44454555Cgattr  ?gaccum  ?gres-name   5gfilenamefsxml/upstream/SSAX.scm 4  +  ,  - " -  $ - & . ' / , /  . / 0 , 2 + 8 4   ? Cp_)y9h]L6gtoken  gexp-kind  gexp-head   gfilenamefsxml/upstream/SSAX.scm 4    Cph@] $"$44454555Cgattr  ?gaccum  ?gres-name   5gfilenamefsxml/upstream/SSAX.scm 4  +  ,  - " -  $ - & . ' / , /  . / 0 , 2 + 8 4   ? C/h ]45$CCgstring1  gstring2  gseed   gfilenamefsxml/upstream/SSAX.scm 4    Cy9h]LL6gtoken  gexp-kind  gexp-head   gfilenamefsxml/upstream/SSAX.scm 4    C"ph@] $"$44454555Cgattr  ?gaccum  ?gres-name   5gfilenamefsxml/upstream/SSAX.scm 4  +  ,  - " -  $ - & . ' / , /  . / 0 , 2 + 8 4   ? Cp|'h]L6}gport  gentities  gseed   gfilenamefsxml/upstream/SSAX.scm 4   Ch ]45$CCgstring1  gstring2  gseed   gfilenamefsxml/upstream/SSAX.scm 4    C9h],4> G45$C$v4LO>"G454 L5L$L"4 4 4 L5 4 L555("LC$/45"$-4LO5"$NL&4L>"G"4LLL5"6gport  {gentities  {g expect-eof?   {gseed   {gseed   {g term-token   {gkey  + {gseed  f gattrs  f gtarget  gseed  gseed   gseed  [ q gfilenamefsxml/upstream/SSAX.scm 4 x + { , ~ - -  - . / /  / , + 4   { gnamegloopChh]64L> G  $V4545  $"4445 4555 ( "   C  $4 <4 5$ 45"O>"G4545  $"4445 4555 ( "   C4M5  $  "  O    L Q  6gstart-tag-head  dgport  dgentities   dg namespaces   dg preserve-ws?   dg parent-seed   dgelem-gi   dg attributes   dg namespaces   dgexpected-content  dgseed 9 gattrs 9 gseed gattrs gt  3g preserve-ws? 3 dgloop E dgfilenamefsxml/upstream/SSAX.scm 4 K + N , Q - V -  X - Z . [ / ` /  b / d , f + l 4 + , - -  - . / /  / , +  4   d gnameghandle-start-tagChv]Cngns  gfilenamefsxml/upstream/SSAX.scm l &  l 9  l B l 3  C'h]RH45K4"4545$ 45"$* 4 5" $4  5$"4>"G4>"G4>"G454455$ 45" 4>"G[45  $*4>"G4>"G"4 >"GJ"P  $"J "45""4545$ 45"  $6   4 5   "  $$ "45"R "=H  4 !5K "O   Q 4  5"  "T5#("$%4&5Cgport  gnamespace-prefix-assig  g namespaces   g namespaces   gport   gseed   gtoken  % gkey  B gtarget  P fgseed  f wg token-head  gt  gdocname  gsystemid  ginternal-subset? # gport   ~gelems   ~gentities   ~g namespaces   ~gseed   ~gtoken   ~gkey  {gtarget  gseed  <gstart-tag-head   gport   gelems   gentities   g namespaces   g preserve-ws?   gseed  g xml-space-gi  ghandle-start-tag  gresult   "gfilenamefsxml/upstream/SSAX.scm "  #   %   3  4  g   4  3  2   h  i  k   k  l !  k   k   j   h    gnamegssax:xml->sxmlC0R0iRCgm  ,gcdata-delimiters 6 <gvalue-delimeters G Qgread-attrib-value N Qgxmlns T- gSglargest-dummy-decl-attr T- gSgadd-ns  VH gMgterminators-usual m ugterminators-usual-eof m u gfilenamef sxml/ssax.scm           " #  0 W          gfilenamefsxml/upstream/SSAX.scm      q !  #g  $  $   $  & $   $  %a  &l  (  *  *   *  ( *   *  -  -  " -  2 -  " -  " -  2 -  " -  -  2S R 3? t 5 ~ 6  6   6   <  >  > 6  > 6  > 6  > 5  > 7  > 7  > 7  > 5  ? 8  ? 8  ? 8  ? 5  ? 9  ? 9  ? 9  ? 5  ? :  ?% :  ?' :  ?) 5  ?0 4 D < E c F i F q GL t G w G x G   G  . G   G  Q  Sl 4 T i T   T   T"   T-  T-  gV  kW  m  m D  m E ' m E  m C u B v   ?  "  r p  C62.0/ccache/sxml/simple.go000064400000050334151463412640011067 0ustar00GOOF----LE-8-2.0P]4hI] gguile  gdefine-module*   gsxml gsimple  gfilenameS fsxml/simple.scm gimportsS gssax g input-parse        g transform   gice-9 gmatch   gsrfi gsrfi-13    gexportsS g xml->sxml g sxml->xml !g sxml->string " ! #gset-current-module $# %# &gstring-concatenate/shared 'gstring? (gssax:reverse-collect-str )g next-token *] +freading internal DOCTYPE ,gpeek-next-char -g read-char .f] /gread-internal-doctype-as-string 0g namespacesS 10  2gdeclare-namespaces?S 32  4gtrim-whitespace?S 54  6gentitiesS 76  8gdefault-entity-handlerS 98  :gdoctype-handlerS ;:  <13579; =gcurrent-input-port >gmap ?gssax:uri-string->symbol @gerror A@ B@ Cfno matching pattern Dg symbol-append Egstring->symbol Ff: Ggssax:scan-Misc HG IG Jg eof-object? KJ LJ Mg parser-error NM OM PfXML [22], unexpected EOF QgPI Rg*PI* Sgssax:read-pi-body-as-string TgDECL UE VE WfDOCTYPE Xf.XML [22], expected DOCTYPE declaration, found  Ygassert-curr-char ZY [Y \g ssax:S-chars ]\ ^\ _fXML [28], space after DOCTYPE `g ssax:skip-S a` b` cgssax:read-QName dc ec fgssax:ncname-starting-char? gf hf igssax:read-external-id ji ki l>[ mfXML [28], end-of-DOCTYPE ngcall-with-values ogssax:skip-internal-dtd p6  qp1 rgappend sgassq tg *DEFAULT* ugSTART vfXML [22], unexpected markup  wgssax:Prefix-XML xw yw zfspace {gssax:complete-start-tag |{ }{ ~g EMPTY-TAG g ssax:reverse-collect-str-drop-ws g attlist-fold g@ gEMPTY gssax:assert-token   gssax:read-markup-token   gEND f[elementvalid] broken for  f while expecting  gassoc   fpreserve gssax:read-char-data   g string-null? f[GIMatch] broken for  g ENTITY-REF gssax:handle-parsed-entity   gPCDATA f* with char content only; unexpected token  fXML [43] broken for  gopen-input-string greverse g*TOP* gmake-hash-table g hashq-ref gsymbol->string g string-index g substring f"Invalid QName: more than one colon gfor-each gchar-alphabetic? g string-ref fInvalid name starting character gstring-for-each f 0123456789.-_ fInvalid name character g hashq-set! g check-name gattribute-value->xml gstring->escaped-xml g procedure? gwith-output-to-port gcall-with-output-string gdisplay f=" gattribute->xml f bad attribute fbad attributes f fbad element body f /> g element->xml g entity->xml f gpi->xml gcurrent-output-port g*ENTITY* fbad *ENTITY* args glength f bad *PI* args gstring-concatenate-reverse gfoldts gappend! glist->char-set gcar g string-length gassv gmake-char-quotator f< <Ό f> >Ќ f& &Ҍ f" "Ԍ C5hh?]4   "54%>"G&'h](C(C"c((C45C45$"(" 45""g fragments  g fragments  {gresult   {gstrs   {gfilenamefsxml/simple.scm ,  -  .  /  -   1   2  $ 4 ( 5  1 5  3 6 8 6  : 6 > 2  A 7  F 7 / I 7 ) S 7 V 9  Y ;  _ <  f =  o =  p :  q >  { 9 { 1  ~ 1 /  1 : 1   gnamegssax:reverse-collect-strC(R&)*+,-.hH]4L5>4L5$4L>"GC4L5Cgfragment  Bgfilenamefsxml/simple.scm B   D  D   D  D $  D  C   E   E  E   G  5 H  : I  ; I @ I   B gnamegloopCh ] OQ456gport  gloop gfilenamefsxml/simple.scm @ B   A    gnamegread-internal-doctype-as-stringC/R<=>?BCh@]$#L$"45C456gel  9gw  ,gx   ,gfilenamefsxml/simple.scm l  m  o  # q  * o  - m   9 Ch]LO6xg namespaces  gfilenamefsxml/simple.scm k   l    gnamegmunge-namespacesCDEFh(]$456Cgname  %gw  "gx   "gfilenamefsxml/simple.scm }   ~     -   "   % gnameg name->sxmlCILOPQRSTVWX[^_behklmn/oh@C]L$LLLL$ 4L5"6L$4L>"G"D;gfilenamefsxml/simple.scm   @ Cqrsthp-/03##4L$4L5$L"LL"L544L54LL55LDgentities  kg namespaces  kgfilenamefsxml/simple.scm    # / '  1 x  2 y  6 y  : y  > x  F z  I z  T  U  X  _ u  g  k   k gentitiesS g namespacesS CuhC]L$L6D;gfilenamefsxml/simple.scm    Cqrsthp-/03##4L$4L5$L"LL"L544L54LL55LDgentities  kg namespaces  kgfilenamefsxml/simple.scm    # / '  1 x  2 y  6 y  : y  > x  F z  I z  T  U  X  _ u  g  k   k gentitiesS g namespacesS CvILOPQRSuv h+]4545$6$345"$L6 6#gport  gelems  gentities   g namespaces   gseed   gtoken  gkey  ! gtarget  / Egseed  E _ gfilenamefsxml/simple.scm   gnameg#scan-for-significant-prolog-token-2CyVz}~(hi]4L5Cagattr  gaccum  gfilenamefsxml/simple.scm    CbOh]L6{gtoken  gexp-kind  gexp-head   gfilenamefsxml/simple.scm    Chi]4L5Cagattr  gaccum  gfilenamefsxml/simple.scm    Ch ]45$CCxgstring1  gstring2  gseed   gfilenamefsxml/simple.scm    CLOh]LL6{gtoken  gexp-kind  gexp-head   gfilenamefsxml/simple.scm    C(hi]4L5Cagattr  gaccum  gfilenamefsxml/simple.scm    CQRSh~]L6vgport  gentities  gseed   gfilenamefsxml/simple.scm   Ch ]45$CCxgstring1  gstring2  gseed   gfilenamefsxml/simple.scm    CuOhpd],4> G45$C$j4LO>"GL$ 45"454  L OL54L L 5(" LC $/ 45"*$-4LO5"$NL&4L >"G"4LLL5"6\gport  ogentities  og expect-eof?   ogseed   ogseed   og term-token   ogkey  + ogseed  | gattrs  | gtarget  gseed  gseed  gseed  O e gfilenamefsxml/simple.scm   o gnamegloopChP]64L> G  $IL$ 45"454LO5  4L5 ( "  C $~4 <4 5$ 4 5"  O>"GL$ 45"454LO5  4L5 ( "  C4M5  $  "  O    L LLQ  6gstart-tag-head  Pgport  Pgentities   Pg namespaces   Pg preserve-ws?   Pg parent-seed   Pgelem-gi   Pg attributes   Pg namespaces   Pgexpected-content  Pgseed N rgattrs N rgseed gattrs gt  g preserve-ws?  Pgloop - Pgfilenamefsxml/simple.scm   P gnameghandle-start-tagCh@2]H45KOLLQ6*gstart-tag-head  :gport  :gelems   :gentities   :g namespaces   :g preserve-ws?   :gseed   :g xml-space-gi   :ghandle-start-tag   : gfilenamefsxml/simple.scm   : gnamegelement-parserCho]r"4545$6$'45"$4  5  $"4 >"G 4  >"G4>"G45 4455$ 45" 4>"G[4 5 4   LOLLLLO> G    6$@4LOLLLLO> G      66OOQLLQ"Bggport  gseed  gport   gseed   gtoken  gkey  % gtarget  3 Igseed  I Wg token-head  c Egt o gdocname Egsystemid Eginternal-subset?  Egelems , Egentities , Eg namespaces  , Egseed  , Egelems  q gentities q g namespaces q gseed q g#scan-for-significant-prolog-token-2   gelement-parser   gfilenamefsxml/simple.scm    gnamegparserC' hV-/03 #45######OO QQ 45$ 45" 44  55   CNgstring-or-port  g namespaces  gdeclare-namespaces?   gtrim-whitespace?   gentities   gdefault-entity-handler   gdoctype-handler   gmunge-namespaces  p g name->sxml  p gparser p gport gelements  gfilenamefsxml/simple.scm V  V / ' W B Z        )      g namespacesS gdeclare-namespaces?S gtrim-whitespace?S gentitiesS gdefault-entity-handlerS gdoctype-handlerS gnameg xml->sxmlg documentationfUse SSAX to parse an XML document into SXML. Takes one optional argument, @var{string-or-port}, which defaults to the current input port.CR4i5@@@h8] 45$C45$CLL6gc  4gt 4gt  4gfilenamefsxml/simple.scm      0  >  0   , " 4   4 Chh]$X44 55$"&4 5_$" 4L5$LO6CCgs  bgt  Kgt  - Hgfilenamefsxml/simple.scm    *     #  -  -  ;  ?  E  O  ^   b C h]!4L5$C454:5$4 5"$"$45"$1445:5$4>"G""4O>"G L6gname  gstr  gi  # gt  : Mghead  M gtail  d gfilenamefsxml/simple.scm           # +  , " :  M U  V  ] - _  d l m  p ! w 0 y ! }       COR'h_]L6Wgport  gfilenamefsxml/simple.scm    -  Chh]$4>"G6(C45$645$64O56gvalue  ggport  ggfilenamefsxml/simple.scm         #  '  -  0  :  B  C  M  U  X   g    g gnamegattribute-value->xmlCRhX]4>"G4>"G4>"G4>"G"6gattr  Xgvalue  Xgport   Xgfilenamefsxml/simple.scm        )   -  4   =   X    X gnamegattribute->xmlCR@  hp]4>"G4<>"G4>"G$"$^4 >"G$4>"G"4>"G"(""4>"G""o"$4>>"G"e$4>"G"(04>"G4>"G 6 6" 6gtag  ogattrs  ogbody   ogport   ogattrs  F gattr  P gbody  _gfilenamefsxml/simple.scm        )   B   F   I  M   P   P  S   i   m   n   s  " v  - }                                  !  !   !  "   " %  & $ * $  1 $ : % Q &  U & Y (  _ ( _   k )  o ) 3  o gnameg element->xmlCRh8]4&>"G4>"G;6gname  2gport  2gfilenamefsxml/simple.scm ,  -   .  2 /   2 gnameg entity->xmlCRh`]4>"G4>"G4 >"G4>"G6gtag  Zgstr  Zgport   Zgfilenamefsxml/simple.scm 2  3   3  3   4  + 5  ? 6  V 7 Z 7   Z gnamegpi->xmlCR @R h\]L6Tgx  gfilenamefsxml/simple.scm T  T   C'h_]L6Wgport  gfilenamefsxml/simple.scm ^  ^ -  Chp-.,3#45$$$ 6$5" 6$45 $ 6"" $;"  6$"45 $ 6""$$$ &""" $"6O645$6(C$.&C45$64O56Cgtree kgport kgtag  +  gelems   gattrs   gfilenamefsxml/simple.scm 9  9 *  >  =  # ?  $ ?  ( ?  + A  + A  6 B ; D  ? D H B P H  S H , U H  U F X F  Y F  ] F ^ F , c F 4 e F , g F ) k F  p G  u G  B L  L ( L  J J  J  J J , J 4 J , J ) J  K  K & K  N  N O O  O 5 O . O  P % P ( O  Q N  R '  R 1  R   T   U  % =  - V  3 =  E Z  O =  W [  Z ^  i ] E k gnameg sxml->xmlg documentationfSerialize the sxml tree @var{tree} as XML. The output will be written to the current output port, unless the optional argument @var{port} is present.C Rhq]Cigseed  gtree  gfilenamefsxml/simple.scm f   g    Ch]6gseed  gkid-seed  gtree   gfilenamefsxml/simple.scm h  i   C'h]45$CC{gseed  gtree  gfilenamefsxml/simple.scm j   k k   k    Ch]456gsxml  gfilenamefsxml/simple.scm a  e   l   e   d    gnameg sxml->stringg documentationfMDetag an sxml tree @var{sxml} into a string. Does not perform any formatting.C!R>h]*4L 5$"45$C$s445L54L5$!445>"G"4>"G"w44556 "V6gstr  gport  gbad-pos  gfrom   gto   gi  B Rg quoted-char  R gnew-to  R gfilenamefsxml/simple.scm y   v  z   {   }    "   & ~  /   2  " >   ?   B  ' B   E v  R   [   _   `   c   t            -     } |   Ch ] 4455OCg char-encoding  g bad-chars  gfilenamefsxml/simple.scm o  p   p #  p   p    gnamegmake-char-quotatorCR4i5RC gm  ,g *good-cache* " (gfilenamefsxml/simple.scm   x ,  @ " V "  "  ( *, +w  /  0 , 1 2 8 9 ; a ?Z o ?[   ?a   ?c   ?f    ?h C62.0/ccache/sxml/xpath.go000064400000025456151463412640010731 0ustar00GOOF----LE-8-2.0+]@4h] gguile  gdefine-module*   gsxml gxpath  gfilenameS fsxml/xpath.scm gimportsS gice-9 g pretty-print      gexportsS gnodeset? g node-typeof? gnode-eq? g node-equal? gnode-pos gfilter g take-until g take-after g map-union g node-reverse g node-trace g select-kids g node-self g node-join g node-reduce !gnode-or "g node-closure #g node-parent $gsxpath % !"#$ &gset-current-module '& (& )g* *gmemq +g@ ,g*PI* -+, .g*any* /g*text* 0gstring? 1glength 2gerror 3fyikes! 4greverse 5gappend 6gcons 7gdisplay 8f --> 9f : :g procedure? ;g// gnumber? ?fInvalid path step: C5h%]4   %54(>"Gh(] $ "$CCgx  "gt  "gfilenamefsxml/xpath.scm o  p p  p # p   p   p  ! p .  " gnamegnodeset?CR)*-./0hP]L$$ 45CCL$CL$6$LCCgnode  Jgfilenamefsxml/xpath.scm       "  (  "   )  :  = A  F # G   J Chm]OCegcrit  gfilenamefsxml/xpath.scm   gnameg node-typeof?CRh^]LCVgnode  gfilenamefsxml/xpath.scm      Chj]OCbgother  gfilenamefsxml/xpath.scm   gnamegnode-eq?CRh^]LCVgnode  gfilenamefsxml/xpath.scm      Chm]OCegother  gfilenamefsxml/xpath.scm   gnameg node-equal?CR123hx5] 45$e(C L&CL $4L4556L $"4>"G4L56C-gnodeset  tgt D egfilenamefsxml/xpath.scm     #  '  ,  -  2  3 & :  <  @  C D  Q  U  Z  f  k  m  p  r  s   t Chf]OC^gn  gfilenamefsxml/xpath.scm   gnamegnode-posCR4hh9]"?(64L5$("""45$""1glst  dglst  Egres   Eg pred-result   Egfilenamefsxml/xpath.scm         $      %  +  4  7  E E  F  P  [ + \ = d   d Chh]OC`gpred?  gfilenamefsxml/xpath.scm   gnamegfilterCRh@] (C4L5" 4L5C$ ("C"glst  <g pred-result  <gfilenamefsxml/xpath.scm      $       " & $ %  & 2  7   < gnamegloopCh0] OLQ45$"6glst  ,gloop ,gfilenamefsxml/xpath.scm       * + ,   , Chl]OCdgpred?  gfilenamefsxml/xpath.scm   gnameg take-untilCRh` ]"8(C4L5" "$("C"45$""glst  Zglst  >g pred-result   >gfilenamefsxml/xpath.scm        $     &  & 2  9  >  ?  I  T + Z   Z Chl]OCdgpred?  gfilenamefsxml/xpath.scm   gnameg take-afterCR56h8] (C4545$"456gproc  6glst  6gproc-res   6gfilenamefsxml/xpath.scm           +  2 " 4  6   6 gnameg map-unionCR4h ]45$6Cgnode-or-nodeset  gfilenamefsxml/xpath.scm            )   gnameg node-reverseCR789 hP]4>"G4L>"G4>"G4>"GCgnode-or-nodeset  Mgfilenamefsxml/xpath.scm             '   +  0   9    M Chl]OCdgtitle  gfilenamefsxml/xpath.scm    gnameg node-traceCRh8](C$!$ 4L564L56Cgnode  5gfilenamefsxml/xpath.scm 3   4   6  4   7   7   4   8  $ 8  & 8  ) 9  3 9 4 6   5 Chr]OCjg test-pred?  gfilenamefsxml/xpath.scm 2   gnameg select-kidsCRiRhH]"5(C45$45"45"L"gnodeset  Ggnodeset  ;g selectors   ;gfilenamefsxml/xpath.scm I   J  K   M   M  N  N  $ N  ) O  , O  0 O  3 P ; L ; J   G Chq-13OCig selectors gfilenamefsxml/xpath.scm H   gnameg node-joinCRh0]"(C45"L"gnodeset  .gnodeset  "g converters   "gfilenamefsxml/xpath.scm ]   ^  _   `   `   `   ` + " ` " ^   . Cht-13OClg converters gfilenamefsxml/xpath.scm \   gnameg node-reduceC R5hH]"5(C445$"5"L"gnode-or-nodeset  Fgresult  ;g converters   ;gt   .gfilenamefsxml/xpath.scm p   q  r   s   s #  s $  s #  s  + s F 0 s  3 t  ; s ; q  < q  F q   F Chp-13OChg converters gfilenamefsxml/xpath.scm o   gnamegnode-orC!R)5hH]"5(C444555444L555""gnode  Fgparent  ;gresult   ;gfilenamefsxml/xpath.scm                   ,         !   &   '   1   3   ;  ;   >  % F    F Chs]OCkg test-pred?  gfilenamefsxml/xpath.scm    gnameg node-closureC"R#! )+"hx] 45$ 4L564444554 4 5554 4 4 554 4 55554454 55L6~gnode  rgpred Y rgfilenamefsxml/xpath.scm          #          !   $   (  * *   ,   -   0   8   :   ;   >   A   E  , G   I   J   M   U   W   Y   Y   \  _  f  n  r  "  r Chp]OChgrootnode  gfilenamefsxml/xpath.scm    gnameg node-parentC#R$:;56".<=>2?h](C45$ 45645$45"&4445$"444  5555"$44 4 555"^$ &44 4 ?55".&44 4?55""T( "45$4455"444555"$44 4 555" 4L5"u6gnodeset  gpath  gnodeset   Tg reducing-path   Tgfilenamefsxml/xpath.scm              #   $   )   +   /   0  3  7  :  ! B   D  G   K   L   M  W   b   c  f   j  % l   n  r   t   w                 (              #  +        -         #  (        *                .                !   &   (   ,   /   7  8   9   <   A  $ C   E   I   L   T  T   W  " Y   ]   ^   _   b  ' g  5 j  ' l   p   u   |  '      #        #   r   gnamegloopChr] OQL6jgnodeset  gloop gfilenamefsxml/xpath.scm       Chg]OC_gpath  gfilenamefsxml/xpath.scm    gnamegsxpathC$RCgm  ,gfilenamefsxml/xpath.scm  d  o    ) k   _ 0    u 2 | A l H  \  o 6    %    % C62.0/ccache/sxml/match.go000064400000277563151463412640010711 0ustar00GOOF----LE-8-2.0[]4hx] gguile  gdefine-module*   gsxml gmatch  gfilenameS fsxml/match.scm gimportsS gsrfi gsrfi-1     gsrfi-11    gice-9 gcontrol    gexportsS g sxml-match gsxml-match-let gsxml-match-let*  gset-current-module   gmake-syntax-transformer !  "  #gsyntax-object->datum $gmacro %g $sc-dispatch &% '% (gany )(( *g syntax-object +g syntax->datum ,gtop -, .gribcage /gdummy 0gstx 1/0 2g m-cd60791-1 32, 43- 5f l-cd60791-6 6f l-cd60791-7 756 8.147 9. :gx ;: <3 =f l-cd60791-3 >= ?.;<> @-89? Aghygiene BA C*+@B Dgsyntax-violation ED FD Gf-source expression failed to match any pattern Hgvoid I( Jg *unspecified* K/ Lg m-cd60791-b ML, NM Of l-cd60791-10 PO Q.KNP Rf l-cd60791-d SR T.;NS U-Q9T V*JUB Wgthrow Xgsxml-match-error Ygraise-syntax-error Zgmodule [gfree-id \gprovide ]g m-cd60791-1a ^], _^ `f l-cd60791-1c a` b.;_a c-9b d*\cB e[d fgeach-any gef hgrequire i*hcB j[i kjf lkf mgl n(m o(n p(o qgbegin rgname sglang tgp_ ugr_ vgbody w/rstuv x^----- yf l-cd60791-1f zf l-cd60791-20 {f l-cd60791-21 |f l-cd60791-22 }f l-cd60791-23 ~f l-cd60791-24 yz{|}~ .wx -9b *qB gnodeset? gerror gxml-element-tag fexpected an xml-element, given gxml-element-attributes g fold-right g@ gfilter gxml-element-contents gmatch-xml-attribute gmember gfilter-attributes gcompile-clause gmap f( g let-values g cata-binding gbody-stx  -- f l-cd60791-b1 f l-cd60791-b2  . g cata-defs v f l-cd60791-ac f l-cd60791-ad  . gsxml-match-syntax-error g ellipsis? gliteral? gkeyword? gextract-cata-fun g add-pat-var g add-cata-def gprocess-cata-exp gprocess-cata-defs gcata-defs->pvar-lst gprocess-output-action gcompile-element-pat gcompile-end-element gcompile-attr-list gcompile-item-list gcompile-dotted-pattern-list g compile-item  ----------------- f l-cd60791-31 f l-cd60791-32 f l-cd60791-33 f l-cd60791-34 f l-cd60791-35 f l-cd60791-36 f l-cd60791-37 f l-cd60791-38 f l-cd60791-39 f l-cd60791-3a f l-cd60791-3b f l-cd60791-3c f l-cd60791-3d f l-cd60791-3e f l-cd60791-3f f l-cd60791-40 f l-cd60791-41  . 0 - f l-cd60791-30  . -999 *B g identifier? (( (ό g... gquote glst  f l-cd60791-fe  . gprocess-quasiquote gexpand-quasiquote-body gexpand-dotted-item gselect-dotted-vars g merge-pvars g dotted-var? g member-var? g expand-lst g finite-lst?   ---------  f l-cd60791-e0 f l-cd60791-de f l-cd60791-dc f l-cd60791-da f l-cd60791-d8 f l-cd60791-d6 f l-cd60791-d4 f l-cd60791-d2 f l-cd60791-d0   . gaction g dotted-vars  f l-cd60791-ce f l-cd60791-cf  . -99 *B  gcons gexp-lft gexp-rgt  f l-cd60791-122 f l-cd60791-123  . gfst grst  f l-cd60791-11b f l-cd60791-11c  . -999  *B  gappend  f l-cd60791-116  f l-cd60791-117      .  gdots  --- f l-cd60791-10d f l-cd60791-10e f l-cd60791-10f  . -9 99  * B gbound-identifier=? gfree-identifier=? gunquote gy  f l-cd60791-13d  .  gwalk-quasi-body !  "- #f l-cd60791-13a $# %.!"$ &f l-cd60791-139 '& (.;' )-9%(9  **)B +[* ,+( -,( .gunquote-splicing /*.)B 0[/ 10( 21( 3-%(9 4*3B 5[4 65( 7g quasiquote 8*73B 9[8 :9( ;gdv <; =f l-cd60791-174 >= ?.<> @f l-cd60791-16f A@ B.;A Cgdvars DC Ef l-cd60791-167 FE G.DF Hgitem IH Jf l-cd60791-166 KJ L.IK M-9?B9G9L9  N*MB Oglambda P*OMB Qf l-cd60791-179 RQ S.;R T-9S9 U*7TB V[U WV( X*TB Y[X ZY( [g expanded-item \[ ]f l-cd60791-183 ^] _.\^ `f l-cd60791-17f a` b.Ia c-9_b9S9  d*cB e*.TB f[e gf( hf l-cd60791-18a ih j.\i kf l-cd60791-186 lk m.Il n-9jm9S9  o*.nB pZό qH rf l-cd60791-1a7 sf l-cd60791-1a8 tf l-cd60791-1a9 urst v.qu w-v9S9  x*7wB yg expanded-rst z[y {f l-cd60791-1b0 |f l-cd60791-1b1 }{| ~.z} -9~v9S9  *.B f l-cd60791-19c f l-cd60791-19d  .z f l-cd60791-193 f l-cd60791-194 f l-cd60791-195  .q -99S9  *.B fbad quasiquote-form gs  f l-cd60791-5b  . gmsg gexp gsub  f l-cd60791-56 f l-cd60791-57 f l-cd60791-58  . -999 *B -9 *B [ ( *7B [ ( gapply f l-cd60791-1e6 f l-cd60791-1e7  . f l-cd60791-1d8 f l-cd60791-1d9  . -99  *B gele gnextp gfail-k gpvar-lst gdepth gcata-fun   ---------  f l-cd60791-1f5 f l-cd60791-1f6 f l-cd60791-1f7 f l-cd60791-1f8 f l-cd60791-1f9 f l-cd60791-1fa f l-cd60791-1fb f l-cd60791-1fc f l-cd60791-1fd   . -99 *B [ ( ( (ƌ ggenerate-temporaries (((( gif gbx gfail-to :v ---- f l-cd60791-23d f l-cd60791-23e f l-cd60791-23f f l-cd60791-240  . gtests g new-pvar-lst g new-cata-defs gnew-dotted-vars  f l-cd60791-236 f l-cd60791-237 f l-cd60791-238 f l-cd60791-239  . gbody-exp  f l-cd60791-22f  . gtag gitems  f l-cd60791-22b f l-cd60791-22c  . -999999 *B gand *B gpair? *B geq? *B *B *B glet *B *B ((((( gax :v ----- f l-cd60791-21c f l-cd60791-21d f l-cd60791-21e f l-cd60791-21f f l-cd60791-220  . f l-cd60791-215 f l-cd60791-216 f l-cd60791-217 f l-cd60791-218   .  gattr-exp     f l-cd60791-20c  f l-cd60791-20d    .  g attr-items  f l-cd60791-206 f l-cd60791-207 f l-cd60791-208  . -99 9999 *B *B *B *B *B *B *B *B  *B !gattr-lst "gbody-lst #g attr-key-lst $!" #  %------------  &f l-cd60791-26f 'f l-cd60791-270 (f l-cd60791-271 )f l-cd60791-272 *f l-cd60791-273 +f l-cd60791-274 ,f l-cd60791-275 -f l-cd60791-276 .f l-cd60791-277 /f l-cd60791-278 0f l-cd60791-279 1f l-cd60791-27a 2&'()*+,-./01  3.$%2 4-939 5*4B 6[5 76( 8g-> 9*84B :[9 ;:f <(; =6< >=( ?(> @?( A6f BA( C(B DC( E7( F(E GF( H(= IH( J(A KJ( L(7 ML( N(f ON( P)( Qgstring? Rgchar? Sgnumber? Tgboolean? U((( Vv Wf l-cd60791-3b1 Xf l-cd60791-3b2 Yf l-cd60791-3b3 ZWXY [.VZ \f l-cd60791-3aa ]f l-cd60791-3ab ^f l-cd60791-3ac _f l-cd60791-3ad `\]^_ a.` bgatag cgliteral dbc ef l-cd60791-39f ff l-cd60791-3a0 gf l-cd60791-3a1 hefg i.dh j-9[9ai939  k*jB lgbinding m*ljB n*jB o*jB p*jB qgequal? r*qjB sgcadr t*sjB utm vgkwd wgi xbw yf l-cd60791-390 zf l-cd60791-391 {f l-cd60791-392 |yz{ }.x| ~-}939 *v~B fbad attribute pattern f l-cd60791-380 f l-cd60791-381 f l-cd60791-382  .x -939 *vB f l-cd60791-373 f l-cd60791-374 f l-cd60791-375  .V f l-cd60791-36c f l-cd60791-36d f l-cd60791-36e f l-cd60791-36f  . gvar b f l-cd60791-361 f l-cd60791-362 f l-cd60791-363  . -99939  *B *lB *B *B *B *sB   fg matched-attrs ?>v @f l-cd60791-28d Af l-cd60791-28e Bf l-cd60791-28f C@AB D.?C Ef l-cd60791-286 Ff l-cd60791-287 Gf l-cd60791-288 Hf l-cd60791-289 IEFGH J.I K Lf l-cd60791-27f ML N.KM O-9D9JN939  P*OB Q*OB R*OB S:v Tf l-cd60791-25d Uf l-cd60791-25e Vf l-cd60791-25f WTUV X.SW Yg next-tests ZY [f l-cd60791-256 \f l-cd60791-257 ]f l-cd60791-258 ^f l-cd60791-259 _[\]^ `.Z_ a b------ cf l-cd60791-24b df l-cd60791-24c ef l-cd60791-24d ff l-cd60791-24e gf l-cd60791-24f hf l-cd60791-250 icdefgh j.abi k-9X9`99j9  l*kB mgnull? n*mkB ogellipsis-allowed? po  q----------  rf l-cd60791-3c2 sf l-cd60791-3c3 tf l-cd60791-3c4 uf l-cd60791-3c5 vf l-cd60791-3c6 wf l-cd60791-3c7 xf l-cd60791-3c8 yf l-cd60791-3c9 zf l-cd60791-3ca {f l-cd60791-3cb |rstuvwxyz{  }.pq| ~-9}9 *~B [ ( *8~B [ f (  :v f l-cd60791-3f8 f l-cd60791-3f9 f l-cd60791-3fa  . f l-cd60791-3f1 f l-cd60791-3f2 f l-cd60791-3f3 f l-cd60791-3f4  .Z f l-cd60791-3e8  .  f l-cd60791-3e4 f l-cd60791-3e5  . -99999}9 *B f1improper list pattern not allowed in this context -9}9 *B f f l-cd60791-412 f l-cd60791-413 f l-cd60791-414  . f l-cd60791-40b f l-cd60791-40c f l-cd60791-40d f l-cd60791-40e  .Z f l-cd60791-401  .  f l-cd60791-3ff  . -9999}9  *B gtail H  f l-cd60791-43c f l-cd60791-43d f l-cd60791-43e f l-cd60791-43f f l-cd60791-440 f l-cd60791-441 f l-cd60791-442 f l-cd60791-443 f l-cd60791-444 f l-cd60791-445   .q -9999 *B gvalues gnpv  f l-cd60791-458  .  f l-cd60791-452 f l-cd60791-453 f l-cd60791-454  . -999999  *B *B gfail *B g t-cd60791-446 g t-cd60791-447 g t-cd60791-448 g t-cd60791-449  g m-cd60791-44e ,  f l-cd60791-45f f l-cd60791-460 f l-cd60791-461 f l-cd60791-462  . -99999  *B f l-cd60791-46e  . gnew-exp  f l-cd60791-467 f l-cd60791-468 f l-cd60791-469 f l-cd60791-46a  . -9999999 *B *B gcdr *B *B  *B w f l-cd60791-4bf  . gtemp-item-pvar-lst  f l-cd60791-492  . g final-tests gfinal-pvar-lst gfinal-cata-defs gfinal-dotted-vars  f l-cd60791-48e f l-cd60791-48f  f l-cd60791-490  f l-cd60791-491      .   g item-tests g item-pvar-lst gitem-cata-defs gitem-dotted-vars g tail-tests g tail-pvar-lst gtail-cata-defs gtail-dotted-vars   -------- f l-cd60791-479 f l-cd60791-47a f l-cd60791-47b f l-cd60791-47c f l-cd60791-47d f l-cd60791-47e f l-cd60791-47f f l-cd60791-480   . !g t-cd60791-44a "g t-cd60791-44b #g t-cd60791-44c $g t-cd60791-44d %!"#$ &f l-cd60791-475 'f l-cd60791-476 (f l-cd60791-477 )f l-cd60791-478 *&'() +.%* ,-999 99 9+9999 -*H,B .- /f l-cd60791-4c1 0/ 1.0 2-9199 99 9+9999 3*H2B 43 5f l-cd60791-4c3 65 7.6 8-9799 99 9+9999 9*8B :9 ;gxa f l-cd60791-4cb ?f l-cd60791-4cc @>? A.=@ Bga Cgb DBC Ef l-cd60791-4c6 Ff l-cd60791-4c7 GEF H.DG I-9A99H99 99 9+9999 J*IB K(((((fffffff  Lgletrec Mg tail-body Ng item-body Og final-body Pgipv Qggpv Rgtpv Sg item-void Tg tail-void Ug item-null Vg item-cons W:MNOPQRSTUV  Xf l-cd60791-497 Yf l-cd60791-498 Zf l-cd60791-499 [f l-cd60791-49a \f l-cd60791-49b ]f l-cd60791-49c ^f l-cd60791-49d _f l-cd60791-49e `f l-cd60791-49f af l-cd60791-4a0 bf l-cd60791-4a1 cf l-cd60791-4a2 dXYZ[\]^_`abc  e.W%d f-9e99 99 9+9999 g*LfB hg match-tail i*hfB j*OfB k*fB l*fB mkl ng match-item o*nfB pk q*fB r*fB s*fB tg match-dotted u*tfB v*fB wgtail-res x*wfB y*fB z  {  |gres }*|fB ~gnew-x *~fB u  g last-tail-res *fB f$ellipses not allowed in this context :v f l-cd60791-3df f l-cd60791-3e0  . f l-cd60791-3d8 f l-cd60791-3d9 f l-cd60791-3da f l-cd60791-3db  .Z f l-cd60791-3d1  .K -999}9  *B -9}9 *B H  f l-cd60791-4d8 f l-cd60791-4d9 f l-cd60791-4da f l-cd60791-4db f l-cd60791-4dc f l-cd60791-4dd f l-cd60791-4de f l-cd60791-4df f l-cd60791-4e0   . -99 *B [ ( *8B [ f (  gnx :v f l-cd60791-514 f l-cd60791-515 f l-cd60791-516 f l-cd60791-517 f l-cd60791-518  . f l-cd60791-50d f l-cd60791-50e f l-cd60791-50f f l-cd60791-510  .Z  f l-cd60791-502 f l-cd60791-503  . f l-cd60791-4fe f l-cd60791-4ff  . -999999 *B *B *B *B gcar *B f f l-cd60791-534 f l-cd60791-535 f l-cd60791-536 f l-cd60791-537 f l-cd60791-538  . f l-cd60791-52d f l-cd60791-52e f l-cd60791-52f f l-cd60791-530  .Z f l-cd60791-521 f l-cd60791-522  . f l-cd60791-51f  . -99999  *B *B *B *B *B (f f+bad pattern syntax (not an element pattern) f7bad pattern syntax (symbol not allowed in this context) :v f l-cd60791-594 f l-cd60791-595 f l-cd60791-596 f l-cd60791-597  . f l-cd60791-58d f l-cd60791-58e f l-cd60791-58f f l-cd60791-590  .Z  f l-cd60791-586  . c f l-cd60791-584  . -999999 *B *B *B *qB *B *B *B f l-cd60791-54d  .;  f l-cd60791-547     .   H  f l-cd60791-543 f l-cd60791-544   .  -9999 99  *B :v f l-cd60791-561 f l-cd60791-562 f l-cd60791-563  . f l-cd60791-55a f l-cd60791-55b f l-cd60791-55c f l-cd60791-55d  .Z g more-pvar-lst  gmore-cata-defs !gmore-dotted-vars " ! #f l-cd60791-552 $f l-cd60791-553 %f l-cd60791-554 &#$% '."& (-9999'999 99 )*(B **(B +f l-cd60791-572 ,f l-cd60791-573 -f l-cd60791-574 .+,- /.S. 0g after-tests 1gafter-pvar-lst 2gafter-cata-defs 3gafter-dotted-vars 40123 5f l-cd60791-56b 6f l-cd60791-56c 7f l-cd60791-56d 8f l-cd60791-56e 95678 :.49 ;-9/9:99 99 <*;B =*;B >f l-cd60791-4f5 ?f l-cd60791-4f6 @f l-cd60791-4f7 Af l-cd60791-4f8 B>?@A C.B Df l-cd60791-4ee Ef l-cd60791-4ef Ff l-cd60791-4f0 Gf l-cd60791-4f1 HDEFG I.ZH Jf l-cd60791-4e7 KJ L.K Mf l-cd60791-4e5 NM O.KN P-9C9I99LO99 Q*PB R*PB S*PB T*PB U*PB Vf&duplicate pattern variable not allowed Wgnct XWv Yf l-cd60791-a4 Zf l-cd60791-a5 [f l-cd60791-a6 \YZ[ ].X\ ^g new-ctemp _^ `f l-cd60791-9f a` b._a cgcfun dc ef l-cd60791-95 ff l-cd60791-96 gf l-cd60791-97 hefg i.dh j-9]99b9i9  k*jB l*OjB m nf l-cd60791-59c on p.mo q-9p99 r*qB s[r ts( ugguard v*uqB w[v xwf yx挤 zty {(z((( |*8qB }[| ~}f (~ s y (((( ggexp gaction0 gfail-exp   f l-cd60791-5c3 f l-cd60791-5c4 f l-cd60791-5c5 f l-cd60791-5c6 f l-cd60791-5c7 f l-cd60791-5c8 f l-cd60791-5c9 f l-cd60791-5ca f l-cd60791-5cb   . -9p99 *B *B *B *qB sf y (((( gatom   f l-cd60791-5d9 f l-cd60791-5da f l-cd60791-5db f l-cd60791-5dc f l-cd60791-5dd f l-cd60791-5de f l-cd60791-5df f l-cd60791-5e0  . -9p99 *B *B *B *qB t挤 (((( 挤 ((((  f l-cd60791-60c f l-cd60791-60d f l-cd60791-60e f l-cd60791-60f f l-cd60791-610 f l-cd60791-611 f l-cd60791-612 f l-cd60791-613  . -9p99 *B 挤 ((((  ------- f l-cd60791-61f f l-cd60791-620 f l-cd60791-621 f l-cd60791-622 f l-cd60791-623 f l-cd60791-624 f l-cd60791-625  . -9p99 *B y (((( 挤 (((( fy (((( f挤 (((( (y (((( (挤 (((( c f l-cd60791-7c0 f l-cd60791-7c1 f l-cd60791-7c2 f l-cd60791-7c3 f l-cd60791-7c4 f l-cd60791-7c5 f l-cd60791-7c6  . -9p99 *B *qB *qB c f l-cd60791-79f f l-cd60791-7a0 f l-cd60791-7a1 f l-cd60791-7a2 f l-cd60791-7a3 f l-cd60791-7a4 f l-cd60791-7a5 f l-cd60791-7a6  . -9p99 *B *B *qB *qB f l-cd60791-71b f l-cd60791-71c f l-cd60791-71d  .  f l-cd60791-707 f l-cd60791-708 f l-cd60791-709 f l-cd60791-70a f l-cd60791-70b f l-cd60791-70c f l-cd60791-70d f l-cd60791-70e  . -999p99  *qB gfailure  -99  * B  v  f l-cd60791-72a  f l-cd60791-72b    .  gresult  f l-cd60791-723 f l-cd60791-724 f l-cd60791-725 f l-cd60791-726  . -9999p99  *B f l-cd60791-6db f l-cd60791-6dc f l-cd60791-6dd  .    f l-cd60791-6c5 !f l-cd60791-6c6 "f l-cd60791-6c7 #f l-cd60791-6c8 $f l-cd60791-6c9 %f l-cd60791-6ca &f l-cd60791-6cb 'f l-cd60791-6cc (f l-cd60791-6cd ) !"#$%&'(  *.) +-99*9p99  ,*q+B -v .f l-cd60791-6e1 /f l-cd60791-6e2 0./ 1.-0 2-9199*9p99  3*2B 4*2B 5f l-cd60791-6f2 6f l-cd60791-6f3 756 8. 7 9f l-cd60791-6eb :f l-cd60791-6ec ;f l-cd60791-6ed .= ?-9899>*9p99  @*?B Aglist Bf l-cd60791-69f Cf l-cd60791-6a0 Df l-cd60791-6a1 EBCD F.E G Hf l-cd60791-68b If l-cd60791-68c Jf l-cd60791-68d Kf l-cd60791-68e Lf l-cd60791-68f Mf l-cd60791-690 Nf l-cd60791-691 Of l-cd60791-692 PHIJKLMNO Q.GP R-9F9Q9p99  S*qRB Tf l-cd60791-6ae Uf l-cd60791-6af VTU W.-V Xf l-cd60791-6a7 Yf l-cd60791-6a8 Zf l-cd60791-6a9 [f l-cd60791-6aa \XYZ[ ].\ ^-9W99]Q9p99  _*^B `*^B a*^B bf l-cd60791-65c cf l-cd60791-65d df l-cd60791-65e ebcd f.e g  hf l-cd60791-646 if l-cd60791-647 jf l-cd60791-648 kf l-cd60791-649 lf l-cd60791-64a mf l-cd60791-64b nf l-cd60791-64c of l-cd60791-64d pf l-cd60791-64e qhijklmnop  r.gq s-9f9r9p99  t*qsB ugexp-body vu wf l-cd60791-662 xf l-cd60791-663 ywx z.vy {-9z9f9r9p99  |*{B }*{B ~f l-cd60791-673 f l-cd60791-674 ~ .  f l-cd60791-66c f l-cd60791-66d f l-cd60791-66e f l-cd60791-66f  . -999r9p99  *B *B *B  f l-cd60791-5fc f l-cd60791-5fd f l-cd60791-5fe f l-cd60791-5ff f l-cd60791-600 f l-cd60791-601 f l-cd60791-602  . -9p99 *B  f l-cd60791-5b0 f l-cd60791-5b1 f l-cd60791-5b2 f l-cd60791-5b3 f l-cd60791-5b4 f l-cd60791-5b5 f l-cd60791-5b6 f l-cd60791-5b7  . -9p99 *B *B *B *qB g sxml-match1 gclause / g m-cd60791-7cf , --- f l-cd60791-7d4 f l-cd60791-7d5 f l-cd60791-7d6 f l-cd60791-7d7  .  f l-cd60791-7d1  .; -9 *B *OB *B *B *B  fno matching clause found *B    (֌ (Č glet/ec gclause0 / ---- f l-cd60791-7dd f l-cd60791-7de f l-cd60791-7df f l-cd60791-7e0 f l-cd60791-7e1  . -9 *B gescape *B *B *OB gcall-with-values *B *B  gval / g m-cd60791-7e8 , --- f l-cd60791-7ed f l-cd60791-7ee f l-cd60791-7ef f l-cd60791-7f0  .  f l-cd60791-7ea  .; -9 *LB *cB *OB *B  *B gsxml-match-let1 挤 ( ( ( gsyntag gsynform gbody0 /v g m-cd60791-7f6 , ---- f l-cd60791-7fb f l-cd60791-7fc f l-cd60791-7fd f l-cd60791-7fe f l-cd60791-7ff  .  f l-cd60791-7f8  .; -9  *B  )   挤  (   (  (  gpat /v ------ f l-cd60791-807 f l-cd60791-808 f l-cd60791-809 f l-cd60791-80a f l-cd60791-80b f l-cd60791-80c f l-cd60791-80d  . -9 *B *B *B *OB  *B !*B "fcould not match pattern ~s #*"B $geach %$) &)% '&挤 ((' )(( *() +gpat0 ,gexp0 -/+,v  .--------  /f l-cd60791-817 0f l-cd60791-818 1f l-cd60791-819 2f l-cd60791-81a 3f l-cd60791-81b 4f l-cd60791-81c 5f l-cd60791-81d 6f l-cd60791-81e 7f l-cd60791-81f 8/01234567  9.-.8 :-99 ;*:B <*:B = > ?*:B @*O:B A*:B B*:B C*":B Dgsxml-match-let-help E%挤 F(E G(F H(G Ig temp-name JI Kf l-cd60791-841 LK M.JL NDv Of l-cd60791-830 Pf l-cd60791-831 Qf l-cd60791-832 Rf l-cd60791-833 Sf l-cd60791-834 Tf l-cd60791-835 Uf l-cd60791-836 VOPQRSTU W.NV Xf l-cd60791-82d YX Z.Y [-9MW9Z \*[B ]*[B ^ _f l-cd60791-859 `_ a.^` bv cf l-cd60791-84d df l-cd60791-84e ef l-cd60791-84f ff l-cd60791-850 gf l-cd60791-851 hcdefg i.bh jf l-cd60791-84a kj l.k m-9ai9l n*DmB ov pf l-cd60791-862 qf l-cd60791-863 rf l-cd60791-864 spqr t.os uf l-cd60791-85f vu w.v x-t9w y*xB zf l-cd60791-87a {z |.^{ }+,v ~f l-cd60791-86a f l-cd60791-86b f l-cd60791-86c f l-cd60791-86d f l-cd60791-86e f l-cd60791-86f f l-cd60791-870 ~ .} -9|9w *DBC5hx]4   54>"G4"#$')Ch>]C6gdummy  gstx    CFGh(] 45$@6gx  "gtmp "gfilenamefsxml/match.scm +   " g macro-typeg syntax-rulesgpatternsgstxC5#R4"H$'IVh-]C%gdummy     CFGh(] 45$@6gx  "gtmp "gfilenamefsxml/match.scm .   " g macro-typeg syntax-rulesgpatternsC5HRWXh]6gx  gmsg  gobj   gsub   gfilenamefsxml/match.scm 1  2  2    gnamegraise-syntax-errorCYR4"Z$'ph]C{gdummy  gname  glang   gp_   gr_   gbody      CFGh(] 45$@6gx  "gtmp "gfilenamefsxml/match.scm 5   " g macro-typeg syntax-rulesgpatternsgnameglanggprovidegp_g...grequiregr_g...gbodyg...C5ZRh(] $ "$CCgx  "gt  "gfilenamefsxml/sxml-match.ss        %         !  0  " gnamegnodeset?CRh0]" 6$$C""gs  +gfilenamefsxml/sxml-match.ss                         "    + gnamegxml-element-tagCRh]$ "C}gi  gfilenamefsxml/sxml-match.ss  &   <  7  K   N   F   2   Ch(]"C$&C""gc  'gd  'gfilenamefsxml/sxml-match.ss  * ! 0  ,   5   ,   D   G   0  ' Ch8]$&&( 66CCga  2gb  2gfilenamefsxml/sxml-match.ss         .   1         Z !   * " , ,    2 Ch8]" 6$$ 6""gs  1gfilenamefsxml/sxml-match.ss   &  & '  &                  $ $  ' %  )    1 gnamegxml-element-attributesCRh]$ "C}gi  gfilenamefsxml/sxml-match.ss *   +  +  + +  + .  + &  +    Ch0]" 6$$ 6""gs  0gfilenamefsxml/sxml-match.ss (  -  - %  -   )   )  )   )  )   )  & ,  ( *   0 gnamegxml-element-contentsCRh(]$&C6Cgkey  "gl  "gfilenamefsxml/sxml-match.ss /   0 0  2  2   2   3  4 % 4   " gnamegmatch-xml-attributeCRh8](C45$ 645Cgkeys  1glst  1gfilenamefsxml/sxml-match.ss 6   7  8  9  9   9  9  : $ " : % ;  & ;  - ; 4 / ;  0 ;   1 gnamegfilter-attributesCR4"$')h>]C6gbvar  gbval    CFGh@]4L545$@6gdef  >gtmp  >gtmp  ' >gfilenamefsxml/sxml-match.ss v &  w <  x < x N  y N  z N  x <  w (  > C'hJ]CBg cata-binding  gbody-stx    CFGh@](C4LO545$@6g cata-defs  @gbody  @gtmp   @gtmp  ) @gfilenamefsxml/sxml-match.ss r  s  v !  u   @ gnamegprocess-cata-defsChZ]6Rgitem  gfilenamefsxml/sxml-match.ss     Ch,]C$gitem     C'h]C   Chj]L6bgfst  grst  gfilenamefsxml/sxml-match.ss     CFG+h ]45$ 45CCgfst  gdots  grst   gfilenamefsxml/sxml-match.ss  E  E   E *  E /  E %   ChN]CFgfst  gdots  grst      C h]!4?$@45$@45"%45$ LO@ 6$4 ?$ @""glst  gtmp  gtmp  " gtmp  9 gtmp  H dgfilenamefsxml/sxml-match.ss   gnameg finite-lst?C'h]C   ChZ]6Rgitem  gfilenamefsxml/sxml-match.ss     Ch,]C$gitem     C')hD]C<gexp-lft  gexp-rgt    CFGh8]4LL54L545$@6gfst  7grst  7gtmp   7gtmp  7gfilenamefsxml/sxml-match.ss  * *    7 CFG+h ]45$ 45CCgfst  gdots  grst   gfilenamefsxml/sxml-match.ss  E  E   E *  E /  E %   C')hD]C<gexp-lft  gexp-rgt    CFGh@]4L4LL554L545$@6gfst  <gdots  <grst   <gtmp   <gtmp  % <gfilenamefsxml/sxml-match.ss  *  +  *  *    < C h]!45$@4?$@45")45$LLLO@ 6$ 4 ?$ LLLLO@""glst  gtmp gtmp   gtmp  9 gtmp  H hgfilenamefsxml/sxml-match.ss   gnameg expand-lstChP]";(C45$" 45$C""gvar  Iglst  Iglst   Agt   2gfilenamefsxml/sxml-match.ss        6     &  - 5 /  6  ; A  A   I gnameg member-var?Chy]LL6qgvar  gfilenamefsxml/sxml-match.ss    gnameg dotted-var?Ch8](C4L5$ "4L5Cglst1  5glst2  5gfilenamefsxml/sxml-match.ss      %      % &  )  * ) / 6 3 ) 4   5 gnameg merge-pvarsC'-hz]L4L54L56rga  grst  gfilenamefsxml/sxml-match.ss  " "     C2hz]L4L54L56rga  grst  gfilenamefsxml/sxml-match.ss  " "     Ch|]L4L54L56tgfst  grst  gfilenamefsxml/sxml-match.ss  " "     Chh]45$LLLO@45$LLLO@45$ LLO@Cgy  bgtmp bgtmp  + bgtmp  K bgfilenamefsxml/sxml-match.ss  a   b gnamegwalk-quasi-bodyC'6hY]CQgrst  gfilenamefsxml/sxml-match.ss  !   C:hY]L6Qgrst  gfilenamefsxml/sxml-match.ss  &   Ch|]L4L54L56tgfst  grst  gfilenamefsxml/sxml-match.ss      Chl]45$L6Cdgitem  gfilenamefsxml/sxml-match.ss        ChZ]CRgitem  gfilenamefsxml/sxml-match.ss     C h])OLLQ45$@45$ O@45$ LLO@4 LO?$ @Cgx  gwalk-quasi-body gtmp   gtmp  5 gtmp  Q gtmp  k gfilenamefsxml/sxml-match.ss    gnamegselect-dotted-varsChW]6Ogx  gfilenamefsxml/sxml-match.ss     Ch)]C!gx     C'fNPh*]LC"gdv     CFGhH]4L54?$@45$ O@6gitem  Hgdvars Hgtmp   Hgtmp  , Hgfilenamefsxml/sxml-match.ss      H gnamegexpand-dotted-itemC'WhY]LL6Qgrst  gfilenamefsxml/sxml-match.ss  &   CZdhs] 4LL5Ckgitem  gtmp gfilenamefsxml/sxml-match.ss  0    Cgohs] 4LL5Ckgitem  gtmp gfilenamefsxml/sxml-match.ss  0    Cp')hN]CFg expanded-fst  g expanded-rst     CFGh8]4L54L545$@6gfst  5grst  5gtmp   5gtmp   5gfilenamefsxml/sxml-match.ss  / /    5 C+h ]45$ 45CCgitem  gdots  grst   gfilenamefsxml/sxml-match.ss  E  E   E *  E /  E %   Cx')hO]CGg expanded-item  g expanded-rst    CFGhH]4L4LL554L545$@6gitem  Agdots  Agrst   Agtmp   Agtmp  * Agfilenamefsxml/sxml-match.ss  0  1  0  /    A C+h ]45$ 45CCgitem  gdots  grst   gfilenamefsxml/sxml-match.ss  E  E   E *  E /  E %   C')hO]CGg expanded-item  g expanded-rst    CFGh@]4L4LL554L545$@6gitem  <gdots  <grst   <gtmp   <gtmp  % <gfilenamefsxml/sxml-match.ss  0  1  0  /    < Ch]145$ LO@45$ LLO@45$ LLO@45"X4 5"4 5$  LO@C$ 4 ?$ LLLLO@""$ 4?$LLLLO@""~gx  gtmp gtmp  ) gtmp  G gtmp  e gtmp  t gtmp  gfilenamefsxml/sxml-match.ss   gnamegexpand-quasiquote-bodyC')h] 4L5Cg quasiquote  gterm  gtmp  gfilenamefsxml/sxml-match.ss  B %   CYh0] 45$ LO@L6gx  .gtmp .gfilenamefsxml/sxml-match.ss  # 1 . B   . gnamegprocess-quasiquoteC'h+]LC#grst     ChY]LL6Qgrst  gfilenamefsxml/sxml-match.ss   $   C')hD]C<gexp-lft  gexp-rgt     CFGhD]C<gexp-lft  gexp-rgt    Ch]4LL5$74LL54LL545$@64LL54L545$@6gfst  ygrst  ygtmp  " Dgtmp  - Dgtmp  W ygtmp  b ygfilenamefsxml/sxml-match.ss   !     8   8 "  ! E  8 N  8 W  !  y Ch]bOOOOOOO  O QLQQQQQL  Q L Q 4  5  $  O @4  5  $  O @4 5  $LO @Cgaction  g dotted-vars  g finite-lst?  R g expand-lst  R g member-var?  R g dotted-var?  R g merge-pvars  R gselect-dotted-vars  R gexpand-dotted-item  R gexpand-quasiquote-body R gprocess-quasiquote R gtmp gtmp gtmp gfilenamefsxml/sxml-match.ss   gnamegprocess-output-actionC'FGhl]6dgtag  gitems  gfilenamefsxml/sxml-match.ss  ,    C' hH`]LCXgx  Bgbx  Bgbody   Bgfail-to   B  B CFGhQ]:4L54LLLLLLLL>  GLL45$4O?" 45DIgtag  |gitems  |gbody-exp  |gtests  + |g new-pvar-lst  + |g new-cata-defs  + |gnew-dotted-vars  + |gtmp  A tgtmp  L q gfilenamefsxml/sxml-match.ss  - & - < - & - ! -   / ! . .  A 9  | 9   | Ch]6|gtag  g attr-items  gitems   gfilenamefsxml/sxml-match.ss      C'  hPp]L Chgx  Ngax  Ngbx   Ngbody   Ngfail-to   N  N CFGh]C4L54L54LLLLLLLL>  GLL 4 5  $4O ?" 4 5  Dgtag  g attr-items  gitems   gattr-exp   gbody-exp   gtests  < g new-pvar-lst  < g new-cata-defs  < gnew-dotted-vars  < gtmp T gtmp _  gfilenamefsxml/sxml-match.ss   &  <  &  !   &   <   &   !      ! (  4 ;  ! ?   T      C hL, 3 45 "L45 " 6 $*4 ?$LO  @"" $*4 ?$ LO  @""Dgele  gexp  gnextp   gfail-k   gpvar-lst   gdepth   gcata-fun   g cata-defs   g dotted-vars   gtmp  gtmp  a gfilenamefsxml/sxml-match.ss    gnamegcompile-element-patC'7@DGIKMOPh G]L LLLLLLLLL6 ?gfilenamefsxml/sxml-match.ss  F    CFG+QRSThH] 45$64545$C45$C45$C6Cgatag  Egliteral  Egrst   Egx   Cgfilenamefsxml/sxml-match.ss  +  +   H   H   I  ! I  " I  $ J  . I  / J  1 K  ; I  < K  C L   E C'Ukmnopruh@Q]LLCIgax  ?gbody  ?gfail-to   ?  ? CFGhx4]34L L L LLLLLLLLL>  GL L45$4O?" 45D,gatag  wgliteral  wgrst   wgtests  & wg new-pvar-lst  & wg new-cata-defs  & wgnew-dotted-vars  & wgtmp  : ogtmp  E l gfilenamefsxml/sxml-match.ss  -   1 2 % -  ) ,  : 9  w 9   w Ch]45$6Cgatag  gi  grst   gfilenamefsxml/sxml-match.ss  &  &   & 2   CYh ] L6gatag  gi  grst   gsub  gfilenamefsxml/sxml-match.ss '   ' *  B    Chz]6rgatag  gi  grst   gfilenamefsxml/sxml-match.ss  !    CYh ] L6gatag  gi  grst   gsub  gfilenamefsxml/sxml-match.ss "   " *  B    Ch]45$6Cgatag  gvar  grst   gfilenamefsxml/sxml-match.ss        2   C'Uh@Q]LLCIgax  9gbody  9gfail-to   9  9 CFGh9]34L L L L LLL4LL5LLLL>  GL L45$4O?" 45D1gatag  ~gvar  ~grst   ~gtests  - ~g new-pvar-lst  - ~g new-cata-defs  - ~gnew-dotted-vars  - ~gtmp  A vgtmp  L s gfilenamefsxml/sxml-match.ss      2   2 ,   0   A   ~    ~ Ch}]6ugatag  gcvar  grst   gfilenamefsxml/sxml-match.ss      CY'h@a]LCYgax  9gct  9gbody   9gfail-to   9  9 CFG h];45L $"4L >"G4LLLLLLL4LL5L L L L L L >  GLL45  $4O ?" 4 5 Dgatag  gcvar  grst   gctemp  gtests  l g new-pvar-lst  l g new-cata-defs  l gnew-dotted-vars  l gtmp  gtmp  gfilenamefsxml/sxml-match.ss   #         B    0 - B  6  ! E  4 J  4 a e  d e  k  ! o        Ch]6gatag  gcata  gcvar   grst   gfilenamefsxml/sxml-match.ss      C'h@a]LCYgax  9gct  9gbody   9gfail-to   9  9 CFGh]<454L L L L LLL4LL5LLLLL>  GL L 4 5  $4O ?" 4 5  Dgatag  gcata  gcvar   grst   gctemp  gtests  F g new-pvar-lst  F g new-cata-defs  F gnew-dotted-vars  F gtmp \ gtmp g  gfilenamefsxml/sxml-match.ss   #       !   4 $  4 ; e  > e  E  ! I   \      Ch]45$6Cgatag  gvar  gdefault   grst   gfilenamefsxml/sxml-match.ss        2   C')h8<]LLLC4gax  8gbody  8  8 CFGhN]44L L L L LLL4LL5LLLL>  GL 45  $4O ?" 45 DFgatag  ~gvar  ~gdefault   ~grst   ~gtests  - ~g new-pvar-lst  - ~g new-cata-defs  - ~gnew-dotted-vars  - ~gtmp  ? vgtmp J s gfilenamefsxml/sxml-match.ss      2   2 ,   0   ?   ~    ~ Ch]6gatag  gcvar  gdefault   grst   gfilenamefsxml/sxml-match.ss      CY'Uh8L]LLCDgax  8gct  8gbody   8  8 CFG h]<45L $"4L >"G4LLLLLLL4LL5L L L L L L >  GL 4 5  $4O ?" 4  5  Dgatag  gcvar  gdefault   grst   gctemp  gtests  l g new-pvar-lst  l g new-cata-defs  l gnew-dotted-vars  l gtmp gtmp  gfilenamefsxml/sxml-match.ss   #         B    0 - B  6  ! E  4 J  4 a e  d e  k  ! o        Ch]6gatag  gcata  gcvar   gdefault   grst   gfilenamefsxml/sxml-match.ss  h    C'U789:;=h8L]LLCDgax  8gct  8gbody   8  8 CFGh]=454L L L L LLL4LL5LLLLL>  G L  4 5  $4O ?" 4 5   Dgatag  gcata  gcvar   gdefault   grst   gctemp  gtests  F g new-pvar-lst  F g new-cata-defs  F gnew-dotted-vars F gtmp Z gtmp e  gfilenamefsxml/sxml-match.ss  i # i  i   k !  o 4 $ r 4 ; e  > e  E k ! I j  Z {  {   ChY]6Qgvar  gfilenamefsxml/sxml-match.ss  S    C'UPQRh W]LCOgax  g matched-attrs  gbody     CFGhx ]14L L L L L4LL5LLLL>  GLL45$4O?" 45Dgvar  tgtests % tg new-pvar-lst  % tg new-cata-defs  % tgnew-dotted-vars  % tgtmp  9 lgtmp  D igfilenamefsxml/sxml-match.ss  U   Z 2 $ U  ( T  9 _  t _   t C"hC, 345 "45 "`45"45"45"}45"045"4 5"4 5"4 5"645$    LO @  6$04?$!   LO @""$4?$ LO@"a"]$4?$ LO@"."*$24?$#   LLO @""$44?$%LL  L O@""$24?$#   LLO @"K"G$24?$#   LLO @""$44?$%LL  L O@"" $24 ?$#   LLO  @"h"d $24  ?$#!   LLO  @"";gattr-lst  gbody-lst  gattr-exp   gbody-exp   g attr-key-lst   gnextp   gfail-k   gpvar-lst   gdepth   gcata-fun  g cata-defs  g dotted-vars  gtmp  gtmp  gtmp  - gtmp  < Fgtmp  K  gtmp  Z gtmp  i gtmp  x Tgtmp  0gtmp   gtmp  gfilenamefsxml/sxml-match.ss P    gnamegcompile-attr-listC''UlnhP]CHgx  gbody  gfail-to      CFGh`]04LLLL> GLL45$ 4?" 45Dg next-tests  [g new-pvar-lst  [g new-cata-defs   [gnew-dotted-vars   [gtmp  % Sgtmp  0 Pgfilenamefsxml/sxml-match.ss  G   F  % H  [ H   [ C'UhK]CCgct  gx  gbody      CFGY h]:L$y454L4LL5LLL> GL45$ 4?" 45D L 6gcata  gcvar  gctemp   g next-tests  7 g new-pvar-lst  7 g new-cata-defs  7 gnew-dotted-vars  7 gtmp  K ygtmp  V v gfilenamefsxml/sxml-match.ss  c  g '  g "  g   i %  i , , e  / e  6 i % : h  K p ! p  d . B   CY'UhK]CCgct  gx  gbody      CFG h|]945L$"4L>"G4L4LL5LLLL> GL45$ 4?" 4 5Dtgcvar  gctemp g next-tests  W g new-pvar-lst  W g new-cata-defs  W gnew-dotted-vars  W gtmp  k gtmp  v gfilenamefsxml/sxml-match.ss  x # x  x   y   B   z 0 - B  6 ~ ! 9 ~ ( L e  O e  V ~ ! Z }  k      Ch ]LLLLLLL6 gnew-exp  g new-pvar-lst  g new-cata-defs   gnew-dotted-vars   gfilenamefsxml/sxml-match.ss     !   Ch0k]L L LLLLLLOLLLLLL6 cgitem  )grst  )gfilenamefsxml/sxml-match.ss )    ) CFG+h ]45$ 45CCgitem  gdots  grst   gfilenamefsxml/sxml-match.ss  E  E   E *  E /  E %   C'fh+]C#gnpv    CFGh8] 45$ 4?" 45Dg new-pvar-lst  3g new-cata-defs  3gnew-dotted-vars   3gtmp  +gfilenamefsxml/sxml-match.ss  / 3  1  3 C'fh+]C#gnpv     CFGh8] 45$ 4?" 45Dgnew-exp  3g new-pvar-lst  3g new-cata-defs   3gnew-dotted-vars   3gtmp  +gfilenamefsxml/sxml-match.ss  * 3  ,  3 C .hV]CNgi  gfilenamefsxml/sxml-match.ss  0   C4hV]CNgi  gfilenamefsxml/sxml-match.ss  0   C:hV]CNgi  gfilenamefsxml/sxml-match.ss  0   C')Jh:]C2gxa  gxb    CFGh0]45$@6ga  +gb  +gtmp  +gtmp   +gfilenamefsxml/sxml-match.ss  0  2  + C'Kgijmopqlrskuvxy{}h , 3          4 5  45 4 5  4 5 45 Cgx  gfail-to  g tail-body   g item-body   g final-body   gipv   ggpv   gtpv   g item-void   g tail-void  g item-null  g item-cons      CFGYh;]{L $4LLL>  G4L LL L>  G  4L4L54 L544L 5L5> G   45LL  4  54  54  54  5 45$ 4?" 45  DL63gitem  gdots  grst   g t-cd60791-446  ! g t-cd60791-447  ! g t-cd60791-448  ! g t-cd60791-449  ! g t-cd60791-44a  F g t-cd60791-44b  F g t-cd60791-44c F g t-cd60791-44d F g final-tests gfinal-pvar-lst gfinal-cata-defs gfinal-dotted-vars  gtemp-item-pvar-lst  gtmp  gtmp  gfilenamefsxml/sxml-match.ss        /   /   /   $   -   8  * ;  * >  * E   I   R   U  % `  % k  % p  - |  %      ,    +  +  +  +        .  B    ChY]6Qgvar  gfilenamefsxml/sxml-match.ss  U    C')h;]LC3gx  gbody     CFGY h+]1L$c4L4LL5LL> GL45$4O?" 45DL 6#gvar  {g next-tests  kg new-pvar-lst   kg new-cata-defs   kgnew-dotted-vars   kgtmp  0 cgtmp  ; `gfilenamefsxml/sxml-match.ss  V  [ # [ *  [ # ! Z  0 \  k \  p W . { B   { ChH, 345  $ O @45 "45  $LL O  @45  $L LO  @45"94 5$  LLO @  6$24 ?$#LL LLO @"" $(4 ?$LL O @""glst  Hgexp  Hgnextp   Hgfail-k   Hgellipsis-allowed?   Hgpvar-lst   Hgdepth   Hgcata-fun   Hg cata-defs   Hg dotted-vars  Hgtmp  Hgtmp 4 Hgtmp C gtmp o gtmp  gtmp  gfilenamefsxml/sxml-match.ss Q   H gnamegcompile-item-listC''h8p]Chgx  6gnx  6gct   6gbody   6gfail-to   6  6 CFGh]B4L5454L4LL5LLL> GLL45  $ 4 ?" 45 Dgcata  gcvar  gnew-exp   gctemp   g next-tests  @ g new-pvar-lst  @ g new-cata-defs  @ gnew-dotted-vars  @ gtmp  X gtmp c  gfilenamefsxml/sxml-match.ss  / % / ; / % /  0 #  0   /   2 ! " 3 ( 5 e  8 e  ? 2 ! C 1  X :  :   CY'h8p]Chgx  6gnx  6gct   6gbody   6gfail-to   6  6 CFG h]A4L545L $"4L>"G4L4LL5LL LL> GLL45$ 4?" 4 5Dgcvar  gnew-exp  gctemp   g next-tests  f g new-pvar-lst  f g new-cata-defs  f gnew-dotted-vars  f gtmp  ~ gtmp   gfilenamefsxml/sxml-match.ss  I % I ; I % I  J #  J   I  " K  ' B  , L 0 : B  C P ! H Q ( [ e  ^ e  e P ! i O  ~ X  X   CfYh_]L6Wgi  gfilenamefsxml/sxml-match.ss   *  B    ChW]6Ogi  gfilenamefsxml/sxml-match.ss      CYh_]L6Wgi  gfilenamefsxml/sxml-match.ss   *  B    C+QRSTh8] 4545$C45$C45$C6gliteral  8gx 8gfilenamefsxml/sxml-match.ss  H  H  I   I   I   J  # I  $ J  & K  0 I  1 K  8 L   8 C'h@`]LCXgx  =gnx  =gbody   =gfail-to   =  = CFGhxE]94L54LLLL> GLL45$4O?" 45D=gliteral  qgnew-exp qg next-tests  qg new-pvar-lst  qg new-cata-defs  qgnew-dotted-vars  qgtmp  6 igtmp  A fgfilenamefsxml/sxml-match.ss   %  ;  %      ! #   6   q    q CFGhk]6cgtag  gitem  gfilenamefsxml/sxml-match.ss  f    C'U)*h K]CCgx  gnx  gbody      CFGh`L]34LL> GLL45$ 4?" 45DDg more-pvar-lst  ]gmore-cata-defs  ]gmore-dotted-vars   ]g next-tests   ]g new-pvar-lst   ]g new-cata-defs   ]gnew-dotted-vars   ]gtmp  ' Ugtmp  2 R gfilenamefsxml/sxml-match.ss l 6  p F  m 8 ' t B ] t :  ] C'U<=hP]CHgx  gbody  gfail-to      CFG hd]:4L54LLLLOLLLLLL>  GLL45$ 4?" 45D\gtag  gitem  gnew-exp  g after-tests  ; gafter-pvar-lst  ; gafter-cata-defs  ; gafter-dotted-vars  ; gtmp  O }gtmp  Z z gfilenamefsxml/sxml-match.ss  g % g ; g % g g   i ! > h  O      ChY]6Qgvar  gfilenamefsxml/sxml-match.ss      C'QRSTUh8`]LCXgx  6gnx  6gbody   6gfail-to   6  6 CFGhxS]94L54L4LL5LL> GLL45$4O?" 45DKgvar  xgnew-exp xg next-tests  ' xg new-pvar-lst  ' xg new-cata-defs  ' xgnew-dotted-vars  ' xgtmp  = pgtmp  H mgfilenamefsxml/sxml-match.ss   %  ;  %      !   0 &  ! *   = !  x !   x ChP, 345 "45  $LO @45  $LLO  @45 "i45  $  LO @4 ?$  LO@4 ?$ O@6 $*4 ?$LO  @"g"c $&4 ?$LO @""gitem  Igexp  Ignextp   Igfail-k   Igpvar-lst   Igdepth   Igcata-fun   Ig cata-defs   Ig dotted-vars   Igtmp  Igtmp  gtmp H gtmp v gtmp gtmp  gtmp  gfilenamefsxml/sxml-match.ss    I gnameg compile-itemCYVh8](C4L5$LL6"glst  1gfilenamefsxml/sxml-match.ss Y   Z  \   \ ,  \   \   ] 1 ( B  + ` $ 1 `   1 gnameg check-pvarCh0] OLQ4>"GCgpvar  -gpvar-lst  -g check-pvar  -gfilenamefsxml/sxml-match.ss X  a  , b   - gnameg add-pat-varC')h:]C2gcf  gct    CFGUklhM]CEgct  gnct  gbody      C hxV] $)45$@6454L545$@6Ngdepth  ugcfun  ugctemp   ugtmp   3gtmp   3g new-ctemp  > ugtmp  S ugtmp  ^ ugfilenamefsxml/sxml-match.ss g  h  h   i  4 l ( ; l > = l ( > l # > l  E o ( J o : P o ( S m   u gnamegprocess-cata-expC'hP]LL6Hgfilenamefsxml/sxml-match.ss  /   Chs]4L5Ckgfst  grst  gfilenamefsxml/sxml-match.ss  6 #  CFGhH]45$ LLO@45$ LO@6gitems  Dgtmp Dgtmp  ( Dgfilenamefsxml/sxml-match.ss   D gnamegiterCh(] (COLQ6glst  &giter  &gfilenamefsxml/sxml-match.ss      " * # $ &   & gnamegcata-defs->pvar-lstC'{h8, 3 Cgcompile-clause  2gcata  2gcvar   2ggexp   2gaction0   2gaction   2gexp   2gcata-fun   2gfail-exp   2   2 C'h]C   CY hh,3 45$ 4?"$,C  L6gcompile-clause  ggcvar  gggexp   ggaction0   ggaction   ggexp   ggcata-fun   ggfail-exp   ggtmp   ' gfilenamefsxml/sxml-match.ss +  \  * g B   g Ch ,3Cgcompile-clause  gcata  gcvar   gaction0   gaction   gexp   gcata-fun   gfail-exp      C'h]C   CYhP]45$ 4?"$CL6gcompile-clause  Pgcvar  Pgaction0   Pgaction   Pgexp   Pgcata-fun   Pgfail-exp   Pgtmp  #gfilenamefsxml/sxml-match.ss '  E  * P B   P CYh,3L6gcompile-clause  gi  ggexp   gaction0   gaction   gexp   gcata-fun   gfail-exp   gfilenamefsxml/sxml-match.ss B &  B    CYh]L6gcompile-clause  gi  gaction0   gaction   gexp   gcata-fun   gfail-exp   gfilenamefsxml/sxml-match.ss  F &  B    CFG+QRSTh8E]4545$C45$C45$C6=gcompile-clause  8gliteral  8gaction0   8gaction   8gexp   8gcata-fun   8gfail-exp   8gx  8gfilenamefsxml/sxml-match.ss  H  H  I   I   I   J  # I  $ J  & K  0 I  1 K  8 L   8 Ch ]Cgcompile-clause  gliteral  gaction0   gaction   gexp   gcata-fun   gfail-exp      C+QRSTh@W,3 4545$C45$C45$C6Ogcompile-clause  <gliteral  <ggexp   <gaction0   <gaction   <gexp   <gcata-fun   <gfail-exp   <gx  < gfilenamefsxml/sxml-match.ss  H  H   I   I   I   J  ' I  ( J  * K  4 I  5 K  < L   < Ch0,3Cgcompile-clause  ,gliteral  ,ggexp   ,gaction0   ,gaction   ,gexp   ,gcata-fun   ,gfail-exp   ,  , Ch]6gcompile-clause  gpat  gaction0   gaction   gexp   gcata-fun   gfail-exp   gfilenamefsxml/sxml-match.ss  O    CYh]L6gcompile-clause  gpat  gaction0   gaction   gexp   gcata-fun   gfail-exp   gfilenamefsxml/sxml-match.ss  P &  B    Ch,36gcompile-clause  gpat  ggexp   gaction0   gaction   gexp   gcata-fun   gfail-exp   gfilenamefsxml/sxml-match.ss J   CYh,3L6gcompile-clause  gpat  ggexp   gaction0   gaction   gexp   gcata-fun   gfail-exp   gfilenamefsxml/sxml-match.ss K &  B    Ch,36gcompile-clause  gfst  grst   gaction0   gaction   gexp   gcata-fun   gfail-exp   gfilenamefsxml/sxml-match.ss *   Ch ]4L4LLL55Dg new-pvar-lst  g new-cata-defs  gnew-dotted-vars   gfilenamefsxml/sxml-match.ss . 0  / :  0 M  / : / 2  C 'h]C   C)hA]LC9gfail-to  gbody     CFG h,34LLLO 45$ 4?">  G    4 5  $ O @  6gcompile-clause  gfst  grst   gaction0   gaction   gexp   gcata-fun   gfail-exp   gtmp  * Bgresult  J gpvar-lst J g cata-defs J g dotted-vars J gtmp \ gtmp g gfilenamefsxml/sxml-match.ss  ,  8 0 C ; 0 D < 0 I ,  M + \ =   Ch, 3 6gcompile-clause  gfst  grst   ggexp   gaction0   gaction   gexp   gcata-fun   gfail-exp    gfilenamefsxml/sxml-match.ss    C, ')34hA]LC9gbody  gfail-to     CFGhX]4L4LLL5545$4LO?" 45Dg new-pvar-lst  Xg new-cata-defs  Xgnew-dotted-vars   Xgtmp   Pgtmp  ( Mgfilenamefsxml/sxml-match.ss  0   >   Q   >   3 X  2  X C 'h]C   C)@hA]LC9gfail-to  gbody     CFG h, 34LLLO 45  $ 4 ?" >  G      4 5$ O@  6gcompile-clause  gfst  grst   ggexp   gaction0   gaction   gexp   gcata-fun   gfail-exp   gtmp , Dgresult L gpvar-lst L g cata-defs L g dotted-vars L gtmp ^ gtmp  i gfilenamefsxml/sxml-match.ss    "  0 E # 0 F $ 0 K   O  ^ %   CA+h ,345$ 45CCgcompile-clause  glst  grst   gaction0   gaction   gexp   gcata-fun   gfail-exp   gfilenamefsxml/sxml-match.ss        2   8   -   CSh ]4L4LLL55Dg new-pvar-lst  g new-cata-defs  gnew-dotted-vars   gfilenamefsxml/sxml-match.ss  .   8   K   8  0  C 'h]C   C)_`ah(A]LLC9gbody  %gfail-to  %  % CFG h,34LLLO 45$ 4?">  G    4 5  $ O @  6gcompile-clause  glst  grst   gaction0   gaction   gexp   gcata-fun   gfail-exp   gtmp  ( @gresult  H gpvar-lst H g cata-defs H g dotted-vars H gtmp Z gtmp e gfilenamefsxml/sxml-match.ss      . A  . B  . G   K  Z    CA+h ", 3 45$ 45CCgcompile-clause  glst  grst   ggexp   gaction0   gaction   gexp   gcata-fun   gfail-exp    gfilenamefsxml/sxml-match.ss        2   8   -   Ct ')|}hE]LC=gexp-body  gfail-to     CFGhX]4L4LLL5545$4LO?" 45Dg new-pvar-lst  Xg new-cata-defs  Xgnew-dotted-vars   Xgtmp   Pgtmp  ( Mgfilenamefsxml/sxml-match.ss  .   @   S   @   1 X  0  X C 'h]C   C)h(A]LLC9gfail-to  %gbody  %  % CFG h, 34LLLO 45  $ 4 ?" >  G      4 5$ O@  6gcompile-clause  glst  grst   ggexp   gaction0   gaction   gexp   gcata-fun   gfail-exp   gtmp * Bgresult J gpvar-lst J g cata-defs J g dotted-vars J gtmp \ gtmp  g gfilenamefsxml/sxml-match.ss     . C  . D  . I   M  \    Ch]6gcompile-clause  gvar  gaction0   gaction   gexp   gcata-fun   gfail-exp   gfilenamefsxml/sxml-match.ss      Ch]Cgcompile-clause  gvar  gaction0   gaction   gexp   gcata-fun   gfail-exp      Ch,36gcompile-clause  gvar  ggexp   gaction0   gaction   gexp   gcata-fun   gfail-exp   gfilenamefsxml/sxml-match.ss    Ch0,3Cgcompile-clause  -gvar  -ggexp   -gaction0   -gaction   -gexp   -gcata-fun   -gfail-exp   -  - C3h@]OOOOOOOO O QQQQ QQQQ Q 4  5 "s4  5  $  @4 5  $ O @4 5 "4 5$@4 5$ O@4 5"4 5"q4 5":4 5"4 5$ O@4 5$ O@4 5"4 5"e4 5"74 5" 6$4?$ @""$4!?$"@""$4#?$ $O@"{"w$4%?$ &O@"H"D$4'?$(O@""$4)?$*O@""$4+?$,O@"k"g$4-?$.O@"4"0 $4/ ?$0 @"" $41 ?$2 @"r"ngstx  9gprocess-cata-defs U 9gprocess-output-action  U 9gcompile-element-pat  U 9gcompile-attr-list  U 9gcompile-item-list  U 9g compile-item  U 9g add-pat-var  U 9gprocess-cata-exp  U 9gcata-defs->pvar-lst U 9gtmp 9gtmp gtmp gtmp gtmp  gtmp   gtmp  % gtmp  4 gtmp  C gtmp  R gtmp  a [gtmp  } [gtmp   [gtmp   7gtmp   gtmp   gfilenamefsxml/sxml-match.ss >  ?   9 C5R4"$'hh]C`gdummy  gexp  gcata-fun   gclause      Ch8}]Cugdummy  2gexp  2gcata-fun   2gclause0   2gclause   2  2 CFGh@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefsxml/sxml-match.ss _   9 g macro-typeg syntax-rulesgpatternsgexpgcata-fungclausegexpgcata-fungclause0gclauseg...C5R4"$'h0g]C_gdummy  ,gval  ,gclause0   ,gclause   ,  , CFGh(] 45$@6gx  "gtmp "gfilenamefsxml/sxml-match.ss l   " g macro-typeg syntax-rulesgpatternsgvalgclause0gclauseg...C5R4"$' h{]Csgdummy  gsyntag  gsynform   gbody0   gbody     C !#h8]Cgdummy  6gsyntag  6gsynform   6gpat   6gexp   6gbody0   6gbody   6  6 C*;<>A?@ABC hP, 3 45 Cgdummy  Jgsyntag  Jgsynform   Jgpat0   Jgexp0   Jgpat   Jgexp   Jgbody0   Jgbody   J   J CFG hP]45$@45$@45$@ 6gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefsxml/sxml-match.ss s   P g macro-typeg syntax-rulesgpatternsgsyntaggsynformgbody0gbodyg...gsyntaggsynformgpatgexpgbody0gbodyg...gsyntaggsynformgpat0gexp0gpatgexpg...gbody0gbodyg...C5R4"D$'H'f\>A]h01]4L5LL4L5LLC)g temp-name  -  - CFGh@]4545$O@6gsxml-match-let-help  :gsyntag  :gsynform   :gpat   :gexp   :gbody0   :gbody   :gtmp  :gtmp   : gfilenamefsxml/sxml-match.ss   (    : CFGh(h] 45$@6`gstx  "gtmp "gfilenamefsxml/sxml-match.ss    " C5DR4"$'Fn>Ah }]L45Cugsxml-match-let  gpat  gexp   gbody0   gbody      CFGh(h] 45$ O@6`gstx  'gtmp 'gfilenamefsxml/sxml-match.ss    ' C5R4"$'yh\]CTgsxml-match-let*  gbody0  gbody     C(>Ah0]L45Cgsxml-match-let*  *gpat0  *gexp0   *gpat   *gexp   *gbody0   *gbody   *  * CFGh@y]45$@45$ O@6qgstx  >gtmp >gtmp  " >gfilenamefsxml/sxml-match.ss    > C5RCgm  ,gfilenamefsxml/match.scm   e 1 gfilenamefsxml/sxml-match.ss    $     (  /   6  x C62.0/ccache/rnrs.go000064400000052471151463412640007603 0ustar00GOOF----LE-8-2.0!U]4h,D] gguile  gdefine-module*   grnrs  gfilenameS frnrs.scm gpureS gversionS  gset-current-module     gresolve-r6rs-interface   g arithmetic gbitwise   gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module   gfixnums   !gflonums "!  #gbase $#  %g bytevectors &%  'g conditions ('  )gcontrol *)  +genums ,+  -g exceptions .-  /gfiles 0/  1g hashtables 21  3gio 4gports 534  6gsimple 736  8glists 98  :gprograms ;:  <=  ?g procedural @<?  Ag syntactic B<A  Cgsorting DC  Egrename Fg syntax-case GF  Hgsyntax-case-hack IFH JEGI Kgunicode LK  Mgmodule-export! NM OM Pgmodule-re-export! QP RP Sgstring-normalize-nfkc Tgstring-normalize-nfc Ugstring-normalize-nfkd Vgstring-normalize-nfd Wg string-ci>=? Xg string-ci<=? Yg string-ci>? Zg string-ci=? hg char-ci<=? ig char-ci>? jg char-cisyntax wg syntax->datum xgfree-identifier=? ygbound-identifier=? zg identifier? {HF |gsyntax }gmake-variable-transformer ~g vector-sort! g vector-sort g list-sort grecord-constructor-descriptor grecord-type-descriptor gdefine-record-type grecord-mutator grecord-accessor grecord-predicate grecord-constructor g"make-record-constructor-descriptor grecord-type-descriptor? gmake-record-type-descriptor grecord-field-mutable? grecord-type-field-names grecord-type-opaque? grecord-type-sealed? grecord-type-generative? grecord-type-uid grecord-type-parent grecord-type-name g record-rtd grecord? gexit g command-line gcons* gassq gassv gassoc gassp gmemq gmemv gmember gmemp gremq gremv gremove gremp g fold-right g fold-left g partition gfilter gexists gfor-all gfind gwrite gdisplay gnewline g write-char gread g peek-char g read-char gclose-output-port gclose-input-port gopen-output-file gopen-input-file gwith-output-to-file gwith-input-from-file gcurrent-error-port gcurrent-output-port gcurrent-input-port gcall-with-output-file gcall-with-input-file gstandard-error-port gstandard-output-port gstandard-input-port g put-string g put-datum gput-char glookahead-char g get-string-n! g get-string-n gget-string-all gget-line g get-datum gget-char gflush-output-port gcall-with-string-output-port gmake-custom-textual-output-port gopen-file-input/output-port gopen-file-output-port gopen-file-input-port g utf-16-codec g utf-8-codec g latin-1-codec g call-with-bytevector-output-port gopen-string-output-port gopen-string-input-port gput-bytevector gput-u8 gmake-custom-binary-output-port gopen-bytevector-output-port gget-bytevector-all gget-bytevector-some gget-bytevector-n! gget-bytevector-n g lookahead-u8 gget-u8 gmake-custom-binary-input-port gopen-bytevector-input-port gcall-with-port g close-port gport-has-set-port-position!? gport-has-port-position? gset-port-position! g port-position gtranscoded-port g textual-port? g binary-port? gport-transcoder g port-eof? g eof-object g output-port? g input-port? gport? g eof-object? gnative-transcoder gtranscoder-error-handling-mode gtranscoder-eol-style gtranscoder-codec gmake-transcoder gerror-handling-mode gnative-eol-style g eol-style g buffer-mode? g buffer-mode g file-options g symbol-hash gstring-ci-hash g string-hash g equal-hash ghashtable-mutable? ghashtable-hash-function ghashtable-equivalence-function ghashtable-entries ghashtable-keys ghashtable-clear! ghashtable-copy ghashtable-update!  ghashtable-contains?  ghashtable-delete!  ghashtable-set!  g hashtable-ref  ghashtable-size g hashtable? gmake-hashtable gmake-eqv-hashtable gmake-eq-hashtable gi/o-error-port gi/o-port-error? gmake-i/o-port-error g &i/o-port gi/o-file-does-not-exist-error? g"make-i/o-file-does-not-exist-error g&i/o-file-does-not-exist gi/o-file-already-exists-error? g"make-i/o-file-already-exists-error g&i/o-file-already-exists gi/o-file-is-read-only-error? g make-i/o-file-is-read-only-error g&i/o-file-is-read-only gi/o-file-protection-error?  gmake-i/o-file-protection-error !g&i/o-file-protection "gi/o-error-filename #gi/o-filename-error? $gmake-i/o-filename-error %g &i/o-filename &gi/o-error-position 'gi/o-invalid-position-error? (gmake-i/o-invalid-position-error )g&i/o-invalid-position *gi/o-write-error? +gmake-i/o-write-error ,g &i/o-write -gi/o-read-error? .gmake-i/o-read-error /g &i/o-read 0g i/o-error? 1gmake-i/o-error 2g&i/o 3g delete-file 4g file-exists? 5graise-continuable 6graise 7gwith-exception-handler 8gguard 9gdefine-enumeration :genum-set-projection ;genum-set-complement genum-set-union ?g enum-set=? @genum-set-subset? Agenum-set-member? Bgenum-set->list Cgenum-set-constructor Dgenum-set-indexer Egenum-set-universe Fgmake-enumeration Gg case-lambda Hgdo Igunless Jgwhen Kgundefined-violation? Lgmake-undefined-violation Mg &undefined Ngsyntax-violation-subform Ogsyntax-violation-form Pgsyntax-violation? Qgmake-syntax-violation Rg&syntax Sglexical-violation? Tgmake-lexical-violation Ug&lexical Vg%implementation-restriction-violation? Wg)make-implementation-restriction-violation Xg&implementation-restriction Ygnon-continuable-violation? Zgmake-non-continuable-violation [g&non-continuable \g condition-who ]gwho-condition? ^gmake-who-condition _g&who `gcondition-irritants agirritants-condition? bgmake-irritants-condition cg &irritants dgassertion-violation? egmake-assertion-violation fg &assertion gg violation? hgmake-violation ig &violation jgerror? kg make-error lg&error mgserious-condition? ngmake-serious-condition og&serious pgwarning? qg make-warning rg&warning sgcondition-message tgmessage-condition? ugmake-message-condition vg&message wgdefine-condition-type xgcondition-accessor ygcondition-predicate zg condition? {gsimple-conditions |g condition }g &condition ~g utf32->string g utf16->string g utf8->string g string->utf32 g string->utf16 g string->utf8 g"bytevector-ieee-double-native-set! g!bytevector-ieee-double-native-ref gbytevector-ieee-double-set! gbytevector-ieee-double-ref g"bytevector-ieee-single-native-set! g!bytevector-ieee-single-native-ref gbytevector-ieee-single-set! gbytevector-ieee-single-ref gbytevector-s64-native-set! gbytevector-u64-native-set! gbytevector-s64-native-ref gbytevector-u64-native-ref gbytevector-s64-set! gbytevector-u64-set! gbytevector-s64-ref gbytevector-u64-ref gbytevector-s32-native-set! gbytevector-u32-native-set! gbytevector-s32-native-ref gbytevector-u32-native-ref gbytevector-s32-set! gbytevector-u32-set! gbytevector-s32-ref gbytevector-u32-ref gbytevector-s16-native-set! gbytevector-u16-native-set! gbytevector-s16-native-ref gbytevector-u16-native-ref gbytevector-s16-set! gbytevector-u16-set! gbytevector-s16-ref gbytevector-u16-ref gsint-list->bytevector guint-list->bytevector gbytevector->uint-list gbytevector->sint-list gbytevector-sint-set! gbytevector-sint-ref gbytevector-uint-set! gbytevector-uint-ref gu8-list->bytevector gbytevector->u8-list gbytevector-s8-set! gbytevector-u8-set! gbytevector-s8-ref gbytevector-u8-ref guniform-array->bytevector gbytevector-copy gbytevector-copy! gbytevector-fill! g bytevector=? gbytevector-length gmake-bytevector g bytevector? gnative-endianness g endianness gidentifier-syntax g syntax-rules g letrec-syntax g let-syntax gunquote-splicing gunquote g quasiquote gapply gvalues g dynamic-wind gcall-with-values gcall/cc gcall-with-current-continuation gassert gassertion-violation gerror gvector-for-each g vector-map g vector-fill! g list->vector g vector->list g vector-set! g vector-ref g vector-length gvector g make-vector gvector? g string-copy gstring-for-each g list->string g string->list g string-append g substring g string>=? g string<=? gstring>? gstring=? gchar<=? gchar>? gcharchar g char->integer gsymbol=? gstring->symbol gsymbol->string gfor-each gmap glist-ref g list-tail greverse gappend glength glist glist? gcddddr gcdddar gcddadr gcdaddr gcadddr gcaddar gcaaddr gcadadr gcdaadr gcdadar gcddaar gcdaaar gcadaar gcaadar gcaaadr gcaaaar  gcdddr  gcddar  gcdadr  gcaddr  gcdaar gcadar gcaadr gcaaar gcddr gcdar gcadr gcaar gcdr gcar gcons g boolean=? gstring->number gnumber->string g>= g<= g> g< g=  ginexact !gexact "g infinite? #gfinite? $gnan? %geven? &godd? 'g negative? (g positive? )gzero? *ginteger-valued? +grational-valued? ,g real-valued? -ginexact? .gexact? /ginteger? 0g rational? 1greal? 2gcomplex? 3gangle 4g magnitude 5g make-polar 6gatan 7gacos 8gasin 9gtan :gcos ;gsin gsqrt ?gexact-integer-sqrt @gexpt Ag div0-and-mod0 Bgmod0 Cgdiv0 Dg div-and-mod Egmod Fgdiv Ggmake-rectangular Hg imag-part Ig real-part Jg rationalize Kground Lgtruncate Mgceiling Ngfloor Oglcm Pggcd Qg denominator Rg numerator Sgabs Tgmin Ugmax Vg/ Wg* Xg- Yg+ Zgeq? [gequal? \geqv? ]gnot ^gand _gor `gcase agcond bgset! cgif dglambda egquote fgbegin ggletrec* hgletrec ig let*-values jg let-values kglet* lglet mg define-syntax ngdefine og procedure? pgstring? qgnumber? rgpair? sgnull? tgchar? ugsymbol? vgboolean? wgfixnum->flonum xgno-nans-violation? ygmake-no-nans-violation zg&no-nans {gno-infinities-violation? |gmake-no-infinities-violation }g&no-infinities ~gflexpt gflsqrt gflatan gflasin gflacos gfltan gflcos gflsin gfllog gflexp gflround g fltruncate g flceiling gflfloor g fldenominator g flnumerator gflmod0 gfldiv0 gfldiv0-and-mod0 gflmod gfldiv g fldiv-and-mod gflabs gfl/ gfl- gfl* gfl+ gflmin gflmax gflnan? g flinfinite? g flfinite? gfleven? gflodd? g flnegative? g flpositive? gflzero? g flinteger? gfl>=? gfl>? gfl<=? gflflonum gflonum? gfxreverse-bit-field gfxrotate-bit-field gfxarithmetic-shift-right gfxarithmetic-shift-left gfxarithmetic-shift gfxcopy-bit-field g fxbit-field g fxcopy-bit g fxbit-set? gfxfirst-bit-set gfxlength g fxbit-count gfxif gfxxor gfxior gfxand gfxnot g fx*/carry g fx-/carry g fx+/carry gfxmod0 gfxdiv0 gfxdiv0-and-mod0 gfxmod gfxdiv g fxdiv-and-mod gfx- gfx* gfx+ gfxmin gfxmax gfxeven? gfxodd? g fxnegative? g fxpositive? gfxzero? gfx<=? gfx>=? gfx? gfx=? ggreatest-fixnum g least-fixnum g fixnum-width gfixnum? gbitwise-reverse-bit-field gbitwise-rotate-bit-field gbitwise-arithmetic-shift-right gbitwise-arithmetic-shift-left gbitwise-arithmetic-shift gbitwise-copy-bit-field gbitwise-bit-field gbitwise-copy-bit gbitwise-bit-set? gbitwise-first-bit-set gbitwise-length gbitwise-bit-count g bitwise-if g bitwise-xor g bitwise-ior g bitwise-and g bitwise-not STUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEF3GHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijkldmnopqrstuvwxyz{|}~ gmodule-replace!  C5h ]4    54>"G454h:]45L62gfilenamefrnrs.scm     CO>"G4 54h:]45L62gfilenamefrnrs.scm     CO>"G4"54h:]45L62gfilenamefrnrs.scm     CO>"G4$54h:]45L62gfilenamefrnrs.scm     CO>"G4&54h:]45L62gfilenamefrnrs.scm     CO>"G4(54h:]45L62gfilenamefrnrs.scm     CO>"G4*54h:]45L62gfilenamefrnrs.scm     CO>"G4,54h:]45L62gfilenamefrnrs.scm     CO>"G4.54h:]45L62gfilenamefrnrs.scm     CO>"G4054h:]45L62gfilenamefrnrs.scm     CO>"G4254h:]45L62gfilenamefrnrs.scm     CO>"G4554h:]45L62gfilenamefrnrs.scm     CO>"G4754h:]45L62gfilenamefrnrs.scm     CO>"G4954h:]45L62gfilenamefrnrs.scm     CO>"G4;54h:]45L62gfilenamefrnrs.scm     CO>"G4>54h:]45L62gfilenamefrnrs.scm     CO>"G4@54h:]45L62gfilenamefrnrs.scm     CO>"G4B54h:]45L62gfilenamefrnrs.scm     CO>"G4D54h:]45L62gfilenamefrnrs.scm     CO>"G4J54h:]45L62gfilenamefrnrs.scm     CO>"G4L54h:]45L62gfilenamefrnrs.scm     CO>"G4Oh:]4562gfilenamefrnrs.scm    C>"G4Rh:]4562gfilenamefrnrs.scm    C>"Gh:]4562gfilenamefrnrs.scm    C6gm  +giface 2 giface 'giface . giface  'giface . giface  'giface . giface  'giface . giface  'giface . giface  'giface . giface  'giface . giface  'giface . giface  'giface . giface 'giface . gfilenamefrnrs.scm     C62.0/ccache/oop/goops/composite-slot.go000064400000007711151463412640013521 0ustar00GOOF----LE-8-2.0]\4h] gguile  gdefine-module*   goop ggoops gcomposite-slot  gfilenameS foop/goops/composite-slot.scm gimportsS     gexportsS g  gset-current-module   gtoplevel-define!     g make-class g gnameS gdefined?     gis-a?   !  "  #  $gmemq %g & % ' % (gclass-precedence-list ) ( * ( +gclass-redefinition , + - + .gcompute-get-n-set /gmake 0 / 1 / 2g  3 2 4 2 5g add-method! 6 5 7 5 8g 9 8 : 8 ;g specializersS  = < > < ?gformalsS @gclass Agslot B@A CgbodyS Dgif Egeq? Fgslot-definition-allocation GFA Hg propagatedS IEGH Jgcompute-propagated-get-n-set KJA Lg next-method ML NDIKM ON Pgmake-procedureS Qg procedureS Rg get-keyword Sg propagate-toS Tgslot-definition-name Ug goops-error Vf%Propagation not specified for slot ~S Wf Bad propagation list for slot ~S Xgmap Ygslot-ref Zg slot-set! [gfor-eachC5h]4    54>"G"+44ii5>"xG"q45$b4!i#5$K4$i'4*i55$-4-i4ii5>"G""t""l""d4.5$".i$!4.414.5>"G"47.i41:;i>?BCOPFHJh ]45&6L6gclass  gslot  gfilenamefoop/goops/composite-slot.scm 1  2  2   3   1    Chm]OCegreal-next-method  gfilenamefoop/goops/composite-slot.scm 1   CQ5 >"GRSTUVWXhw]$CCogp  gfilenamefoop/goops/composite-slot.scm ?   ? ( ? $ ? 2   Chw]$CLCogp  gfilenamefoop/goops/composite-slot.scm @   @ & @ " @ 0   CYho]4L5L6ggo  gfilenamefoop/goops/composite-slot.scm E  F   F    CZYh~]4L5L6vgo  gv  gfilenamefoop/goops/composite-slot.scm J  K   K    C[ZYh]4L5L6~gobject  gslot  gfilenamefoop/goops/composite-slot.scm M   N &  N    Chv]OLL6ngo  gv  gfilenamefoop/goops/composite-slot.scm L  M    C h]14545$"4>"G$"4>"G454 O5 O(  O"  OCgs  gprop  gs-name   gobjects  l gslots  l g first-object  v g first-slot  v gfilenamefoop/goops/composite-slot.scm 6  7  7 4 7   8   7   :  # ;  ' ;  . ;  9 < = <  B =  F =  M =  V ?  _ @  l ?  s A  v B  v A  I  I C   gnamegcompute-propagated-get-n-setCJRCgm  ,gt gfilenamefoop/goops/composite-slot.scm   1 / 1  6    C62.0/ccache/oop/goops/stklos.go000064400000012045151463412640012053 0ustar00GOOF----LE-8-2.0 ]4h ] gguile  gdefine-module*   goop ggoops gstklos  gfilenameS foop/goops/stklos.scm gimportsS ginternal     gset-current-module   gmodule-for-each g module-add! gmodule-public-interface gcurrent-module gresolve-interface  gcall-with-deferred-observers   gmodule-export!    ! "g define-class #g define-method $"# %g write-object &% 'g read-options (' )' *gappend +* ,* -gkeywords .gprefix /gmake-syntax-transformer 0/ 1/ 2gmacro 3g $sc-dispatch 43 53 6gany 7geach-any 877 968 :69 ;6: gtop ?> @gribcage Agdummy Bgname Cgsupers Dgslot Egrest FABCDE Gg m-1f4787962-8 HG> IH???? Jf l-1f4787962-d Kf l-1f4787962-e Lf l-1f4787962-f Mfl-1f4787962-10 Nfl-1f4787962-11 OJKLMN P@FIO Q@ Rgx SR TH Uf l-1f4787962-a VU W@STV X?PQW Yghygiene ZY [<=XZ \gsyntax-violation ]\ ^\ _f-source expression failed to match any pattern `gmodule-define! agtoplevel-define! bgfree-id cgsetter dgm-1f4787962-1d ed> fe gfl-1f4787962-1f hg i@Sfh j?Qi k<cjZ lbk ml6 nm7 o6n pgbegin qABE re?? sfl-1f4787962-22 tfl-1f4787962-23 ufl-1f4787962-24 vstu w@qrv x?wQi y<pxZ zgif {<zxZ |gor }<|xZ ~gnot <~xZ gdefined? <xZ gquote <xZ gis-a? <xZ g <xZ  <axZ gensure-accessor <xZ <xZ  g add-method! <xZ <cxZ gmethod <xZ 67 6 fl-1f4787962-2a fl-1f4787962-2b fl-1f4787962-2c  @qr ?Qi <pZ <zZ <|Z <~Z <Z <Z <Z g  <Z  g <Z  <aZ gensure-generic <Z <Z  <Z <ZC5h]4    54>"G4ih]44556gsym  gvar  gfilenamefoop/goops/stklos.scm #   $  $ 9  $  $    C4i5>"G4!$hF]456>gfilenamefoop/goops/stklos.scm )   C>"G4!&hF]456>gfilenamefoop/goops/stklos.scm ,   C>"G4)4,4)5-.5>"G41"25;[,hw]45Cogdummy  gname  gsupers   gslot   grest      C^_h(] 45$@6gx  "gtmp "gfilenamefoop/goops/stklos.scm 1   " g macro-typeg syntax-rulesgpatternsgnamegsupersgslotg...grestg...C5"R`h]456gname  gval  gfilenamefoop/goops/stklos.scm 4  5   5    gnamegtoplevel-define!CaR41#25oy{}hpQ]     CIgdummy  ngname  ngrest   n  n ChxQ]     CIgdummy  vgname  vgrest   v  v C^_h@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefoop/goops/stklos.scm 8   9 g macro-typeg syntax-rulesgpatternsgsettergnamegrestg...gnamegrestg...C5#RCgm  (gfilenamefoop/goops/stklos.scm   ) # &  & $ &  # ) t ,  /  /   /  4    C62.0/ccache/oop/goops/dispatch.go000064400000024204151463412640012333 0ustar00GOOF----LE-8-2.0l(]a4h] gguile  gdefine-module*   goop ggoops gdispatch  gfilenameS foop/goops/dispatch.scm gimportsS    gutil   gsystem gbase gtarget    gexportsS gmemoize-method!  gset-current-module   gcurrent-module g*dispatch-module* ggensym !fa "ft #gappend $# %# &grest 'glet (gmap )gclass-of *fp +gif ,gand -gapply .& /gassq-ref 0geq? 1fc 2g cache-miss 3gcons* 4glist 5gemit-linear-dispatch 6g make-vector 7fg 8g vector-length 9glambda :gcdr ;g case-lambda g %host-type ?gcompile @? A@? B@? CgenvS DgfromS Egscheme FgoptsS Gg partial-eval?S Hgcse?S IGH Jgargs KJ Lgmax Mgcompute-dispatch-procedure Ng timer-init Ogslot-ref Pgeffective-methods Qg slot-set! Rg procedure Sgcache-dispatch Tgdelayed-compile Ug n-specialized V ) W ) Xgcompute-cmethod Y X Z X [gmemoize-effective-method! \gcompute-applicable-methods ]g%compute-applicable-methods ^gno-applicable-method _gset-procedure-property! `gsystem-procedureC5h8!]4    54>"G4i5R h8]"  $C45""gn  2gstem  2gn   &gsyms   &gfilenamefoop/goops/dispatch.scm @   A  B  B   D   D   D  & D & A  ) A  * A  2 A   2 gnameggen-symsC!"%&'()hp]Chgt  ga  gfilenamefoop/goops/dispatch.scm P   Q    C *+,-./01234hX&]e4545"(.$ 45"45  D" (L4  5    $ 45"   "v4  5$!       "{4 5        "J     "4$45"  "ggf-sym  Tgnargs  Tgmethods   Tgfree   Tgrest?   Tggen-syms   Tgargs   Tgtypes   Tgmethods  $gfree $gexp $gfree X gtypes X gspecs X gchecks  X gm-sym  e gvar  gvar  gfilenamefoop/goops/dispatch.scm ?  E  E   E   E   F   F  F   E  G  & M  , O  - O  = O  > P  M O  T O  X W  ^ [ _ \  c \ # e \  e \  j ]  m ^ ' p ^  s ^  x a  b  c  d  a  ]  f  f ( f  f  g  i  j  k " k ) k " k  h  m  m ' m  m  n % n  o  p  q $ q + q $  q   n   W   Y (  Y   Z  $ W  $ G  * I  2 J 4 K $ D L $ J I  T G G  T gnamegemit-linear-dispatchC5R6 785hpb]4L5$KL("4L> G"L4L56Zgn  kgclauses  kgfree   kgmethods   [gclause  @ [gfree  @ [gfilenamefoop/goops/dispatch.scm            .  /  C  J  O & [  ^  e  k   k gnameg emit-restC9(:;<=>BCDEFIh ]4L5L@gp  gfilenamefoop/goops/dispatch.scm                  C5 h] $/4545O6L("4 L> G"~gn  gclauses  gfree   gexp  & 9gvals  & 9gmethods  > gclause  i gfree  i gfilenamefoop/goops/dispatch.scm          & 9  >  > F  I  W  X  l  s  x %   gnamegemit-reqC8J2KL hH]R"-(4545"(y45O O   Q  Q  45   $"  $ "6 $ "Y ";"3 $4  5"4  5" "ggf  Cgcache  Cgls   3gnreq   3gnrest   3greq   grest   gls  & ggf-sym  3 g emit-rest K gemit-req K gt m gn  gn  gfilenamefoop/goops/dispatch.scm t  v  w  y   y   y (  y   z   z   z )  z   y  &  ,  -  1  3  3  e l  m  ~        "        $ -      # ,    {  {  w   |  |   | 1  | %  |   |   ~  ~  # ~ + % ~  ' ~  3 ~  3 v E  C gnamegcompute-dispatch-procedureCMR NRNMOPQRShP-13MNM $.4L4L554L>"G@L6gargs Lgdispatch & Dgfilenamefoop/goops/dispatch.scm             " ) $  &  &  ) /  6 D L  L Ch] HOCggf  gtimer  gfilenamefoop/goops/dispatch.scm     gnamegdelayed-compileCTRh8]  $"$C454L5C gn  6gf  6gls   6gt   gfilenamefoop/goops/dispatch.scm            %  '  (  - & 2 / 4  5   6 gnameg map-untilCh8]$#$&"CC(CCgx  8gy  8gfilenamefoop/goops/dispatch.scm          '    " * (  2  5   8 gnamegequal?COUW2Ph]"OOQQ45$X4455"1(64 5$  @"45"6ggf  gargs  g map-until   gequal?   gtypes  ; gcache  A rgfilenamefoop/goops/dispatch.scm   #  %  )  *  -  3 + 5  ;  ;  A  G O  P  U % W  [  _ b $ e  i  l  r  r  s  y % {     gnamegcache-dispatchCSRh]45@ggf  gargs  gfilenamefoop/goops/dispatch.scm      gnameg cache-missC2Rh0]  $"$C4L5Cgls  /gn  /gt   gfilenamefoop/goops/dispatch.scm           "  #  ( + ) -  .   / gnamegfirst-nC(WZOPQRTU h z]3O"(`4545454>"G44 5>"GC4 5$4455""_"V45454>"G44 5>"GCQ "rggf  gargs  g applicable   gn   gls   gtypes   tgcmethod  ( tgcache  > tglen   grest?   gtypes   gcmethod   gcache   gfirst-n   gfilenamefoop/goops/dispatch.scm         "  (  (  4  5  ; % =  >  >  A  G  N  W   ]   ^   i   w  }      '           %                 6   gnamegmemoize-effective-method!C[R\][^h8] 4&"5$ 66ggf  3gargs  3g applicable   3gfilenamefoop/goops/dispatch.scm             !   +  3    3 gnamegmemoize-method!CR_ii`6gm  ,gfilenamefoop/goops/dispatch.scm   -   6   ?  t  < P   !*  !4  ) !7    !7 C62.0/ccache/oop/goops/internal.go000064400000001655151463412640012355 0ustar00GOOF----LE-8-2.0]4h] gguile  gdefine-module*   goop ggoops ginternal  gfilenameS foop/goops/internal.scm gimportsS     gset-current-module   gmodule-public-interface gcurrent-module gmodule-for-each g%module-public-interface g module-add! gresolve-moduleC5h]4    54>"G4i4i55ih]&CL6}gname  gvar  gfilenamefoop/goops/internal.scm     #        CO4i 56gm  (gpublic-i 6 gfilenamefoop/goops/internal.scm   )   .  ) 6   6     #      C62.0/ccache/oop/goops/describe.go000064400000031216151463412640012315 0ustar00GOOF----LE-8-2.0v2]i4h_] gguile  gdefine-module*   goop ggoops gdescribe  gfilenameS foop/goops/describe.scm gimportsS    gice-9 gsession   gformat    gexportsS  gset-current-module   gdefined?     gtoplevel-define!   !  "gmake # " $ " %g  & % ' % (gnameS )g add-method! * ) + ) ,g - , . , /g specializersS 0g 1gformalsS 2gx 32 4gbodyS 5f~s is  652 7gcond 8ginteger? 982 :f an integer ;: <9; =greal? >=2 ?fa real @? A>@ Bgcomplex? CB2 Dfa complex number ED FCE Ggnull? HG2 If an empty list JI KHJ Lgboolean? ML2 Nfa boolean value (~s) Ogif Pgquote Qgtrue RPQ Sgfalse TPS UO2RT VNU WMV Xgchar? YX2 Zfa character, ascii value is ~s [g char->integer \[2 ]Z\ ^Y] _gsymbol? `_2 afa symbol ba c`b dglist? ed2 ffa list gf heg igpair? ji2 kgcdr lk2 mil nfan improper list on pfa pair qp rOmoq sjr tgstring? ut2 vgeqv? wf xv2w yfan empty string zy {fa string of length ~s |g string-length }|2 ~{} Oxz~ u gvector? 2  P v2 fan empty vector  fa vector of length ~s g vector-length 2  O  g eof-object? 2 fthe end-of-file object   gelse fan unknown object (~s) 2  7<AFKW^chs f.~%  g *unspecified* 6 gmake-procedureS g procedureS g  glet gname gprocedure-name 2   f`~s'  gdisplay 2 O f is   f an anonymous Oa  f procedure  f with   garity 2   g slot-bound? g class-name gsafe-class-name g f~S is an instance of class ~A~% gclass-of 2  2 f Slots are: ~%  gfor-each glambda gslot  gslot-definition-name    f ~S = ~A~% 2 f~S gslot-ref 2  f # O    g class-slots    g f'~S is a class. It's an instance of ~A~% 2  fSuperclasses are:~%  gclass  f ~A~%    gclass-direct-supers 2  gslots gclass-direct-slots 2   G f(No direct slot)~%  gbegin fDirects slots are:~%  gs       O  gclasses gclass-direct-subclasses 2   G f(No direct subclass)~%  fDirects subclasses are:~%           O      fClass Precedence List is:~%   gclass-precedence-list 2  gmethods gclass-direct-methods 2   G f(No direct method)~%  fClass direct methods are:~%    O     !ggeneric-function-name "!2 #" $ggeneric-function-methods %$2 &% '#& (f3~S is a generic function. It's an instance of ~A.~% )( *f(No method defined for ~S)~% +* ,fMethods defined for ~S~% -, .2 /3. 0/ 1-0 2O+1 3')2 43 5 0 6 0 7g omit-generic 827 9gletrec :g print-args ;gargs <; =G; >gnewline ?> @=? Ai; B  Cgcar DC; ED FE Gk; H:G IABFH J; KJ LBK? M7@IL N<M O:N PO Qf Method ~A~% RQ2 SG7 Tggf Ugmethod-generic-function VU2 WTV XW Yf Generic: ~A~% Z!T [YZ \f (No generic)~% ]\ ^OT[] _X^ `OS_ af Specializers: ba cgmethod-specializers dc2 e:d f9PR`be gf hgprovideC5h]4    54>"G45$"i$!4!4$'(5>"G"4+i4$./0i13458:=?BDILNQSXZ[afnptwy{|"hH]4>"G45$4>"G"45$4>"G"45$4>"G"(4 >"G"4 5$%4 $ " >"G"g45$445>"G">$4>"G" $4>"G"$6$4>"G"4>"G"45$>$4>"G"445>"G"|$>$4>"G"445>"G"745$4>"G"4 >"G4!>"GC|gx  Fgfilenamefoop/goops/describe.scm #  $   $  $   &  " %  # &  ( & # - &  : '  D %  E '  J ' # O '  \ (  f %  g (  l ( # q (  %  )  ) # )  *  %  *  * # * : * @ * F *  +  %  +  + # , +  -  %  -   - #  -   .   %   .   . # # .  2 /  6 %  9 / # : /  > /  ? 0  D 0 ' I 0  V 1  [ 1 ' ` 1  m 2  w %  { 2 $ | 2   2   3   3 '  3   4   4 '  4 ?  4   5   %   5 $  5   5   6   6 '  6   7   7 '  7 ?  7   8   %   8   8 #  8   9  " 9 # ) 9  2 :  7 : < : ^  F C5 >"G45$"i$!4!4$'(5>"G"4+i4$./i134 h] 45$4>"G"4>"G4>"G4$a">"G4>"G4>"G 6gx  gname gfilenamefoop/goops/describe.scm =  >  >   ?   @   @   @  + A  = B  A B F B  O C  W C _ C  d C  m D  q D v D   E  E E  F   C5 >"Gh]45$6Cgclass  gfilenamefoop/goops/describe.scm K  L  L  L   L   M    gnamegsafe-class-nameCR45$"i$!4!4$'(5>"G"4+i4$./i134h8] 454L5$44L55"6gslot  8gname 8gfilenamefoop/goops/describe.scm V  W  W   X   Z   Z  [  % [ ' & [ , 0 [  6 \  8 X   8 ChX]445>"G4>"G4O45>"GCgx  Sgfilenamefoop/goops/describe.scm P  Q   Q R  R   R  Q  U  % U * U  3 V  = ] B ]  D ] I V   S C5 >"G45$"i$!4!4$'(5>"G"4+i4$./i134 hu]456mgclass  gfilenamefoop/goops/describe.scm i  i '  i 2  i    Chq]456igs  gfilenamefoop/goops/describe.scm r   s !  s ,  s    Chq]456igs  gfilenamefoop/goops/describe.scm }   ~ !  ~ ,  ~    C hu]456mgs  gfilenamefoop/goops/describe.scm  #  .     ChPC] 44545>"G4>"G445>"G45(4 >"G"'4 >"G4 >"G4 5(4 >"G"'4>"G4>"G4>"G445>"G45(64>"G6;gx  Mgslots W gclasses gmethods # Mgfilenamefoop/goops/describe.scm c  d   d e  e   e /  e   d  % h  * h / h  8 i  = j  H i  Q m  W m  _ n  ` o  e o  j o  w q | q  q r x  x  y  z  z  z  | |  | }          #  +  0  2  3 8  = M 2  M C5 >"G45$"i$!4!4$'(5>"G"4+i4$./%i1344!$(*,hc]6[gx  gfilenamefoop/goops/describe.scm    C h`]4545445>"G( 64>"G 6gx  ]gname  ]gmethods   ]gfilenamefoop/goops/describe.scm            " " $  )  7  <  @  A F  M ]   ] C5 >"G45$"i$!4!4$'(5>"G"4+i4$./,i6184g>QUY!\ac h-13"q(6$34 >"G445>"G"4 >"G445>"G64>"G(G45$445>"G"4 >"G"4 >"G4 5" gx g omit-generic gargs  ~ggf  gfilenamefoop/goops/describe.scm     -     1 4 ) 9 : ; ) @ K , Q R d g ) r ~ ~           .       (  C5 >"Ghi6gm  ,gt 4 Igt  gt gt gt J _gt  gfilenamefoop/goops/describe.scm   - #  = K P c C  y {   { C62.0/ccache/oop/goops/save.go000064400000146545151463412640011507 0ustar00GOOF----LE-8-2.0M]4h.] gguile  gdefine-module*   goop ggoops gsave  gfilenameS foop/goops/save.scm gimportsS ginternal    gutil    gexportsS g save-objects g load-objects grestore g enumerate! genumerate-component! gwrite-readably gwrite-component gwrite-component-procedure gliteral? greadable g make-readable   !g re-exportsS "g make-unbound #" $gset-current-module %$ &$ ' (gdefined? )'( *'( +g immediate? ,gtoplevel-define! -', .', /gmake 0'/ 1'/ 2g  3'2 4'2 5gnameS 6g add-method! 7'6 8'6 9g :'9 ;'9  >gformalsS ?go @? AgbodyS B Cgmake-procedureS Dg procedureS Eg F Gg Hg  Ig Jg Kg  L'= M'= Ngenv O?N Pgfile Q?PN Rgwrite SR?P TS Ugmake-weak-key-hash-table Vg readables Wgmake-syntax-transformer XW YW Zgmacro [g $sc-dispatch \[ ][ ^g_ _gany `^_ ag syntax->datum ba ca dg datum->syntax ed fd ggquote hg copy-tree igsyntax-violation ji ki lf-source expression failed to match any pattern mg hashq-set! ng hashq-ref ogreadable-expression pg readable? qg excluded? rgdisplay sg object-info tgbinding? ugvisiting vgdefinedS wgbinding xgor ygbegin zg add-patcher! {g |g }gnot ~gvector? ~? } glet   garray-for-each glambda gif ?N } gset!   @ ?  x  gn g vector-length ?   gzero?  f#() rP g not-literal? ?N }   f(vector  f#(  rP gand g vector-ref ?  N  r'P  g quasiquote g vector-set! gunquote ?     PN gdo gi g+      g=   r P ? N       PN  r)P    S  g gshared-array-root ? N  g array-rank greverse g list-tail gt gs gr gq gp gm gl gk gj   ggensym fi gshared-array-offset gmap g* g- garray-dimensions gshared-array-increments g make-mapper g array-ref g array-set! g write-array groot   gcond ~ } r#P ? rP (?PN y S  tN f(make-shared-array  rP N  g goops-error f'write-readably(): internal error  PN ? rP gfor-each gdim  rP  ?     gelse  f(list->uniform-array   r P  f '()  r P f(list  ?PN        g gcar ? N   gcdr ? N     !gproper? "gloop #gls $#? %$ &gnull? '&# (gpair? )(# *# +t*N ,}+ -"* .),- /x'. 0"%/ 1!0 2g1? 3( 4}3 5tN 6x45 726 8ginfos 9g :89 ;grefs ;= ?17:> @} A@( B! Cf(cons  D2C Ef(cons*  F E GABDF HrGP IN JI KJ Lgset-car! M NLM ON POPN Q#* Rgprev SR?# TQS U}) Vt#N WxUV X}' Yf . ZrYP [@Z \#N ]\ ^] _gset-cdr! `R a# b_`a cb d#cPN ey[^d fXe gWf hgcons is#N jhi8 k8j lg push-ref! ml#N ng visiting? o8 pno qp r# srN ts ut vr wLav xw yrxPN zTgkmquy  {ginfo |{ }n{ ~} |~ 8 =; ?HKPz  gsetter   ginteger? g standard-get g standard-set gmemq gslot-definition-allocation gclassS g each-subclassS  g class-slots gslot-ref ggetters-n-setters gget-set-for-each gslot-definition-accessor gslot-definition-name ggeneric-function-name gaccess-for-each g@@ g%allocate-instance ' 9 gname gval  g slot-set! ?  glist g gget gset  ?   gunbound?  } N    gclass-of ?   gclass   f (restore  rP g class-name  rP f ( rP gslotdefs gfilter gslotdef   g  g slot-bound?  ? ? qN  x }      & }   rP rP    y   ganame  g# rP  qN  N        g    PN          g ? rP  ? rP  f#No read-syntax for defined   gis-a? ' ' g  ' '  gensure-accessor  '   '   gexcluded  gpass-2? gobjects g pre-defines glocals g stand-ins g post-defines gpatchers gmultiple-bound g  g make-class gaccessorS g init-formS gmake-hash-table  = g init-thunkS g init-valueS ' ' '  ' !gclass-precedence-list "'! #'! $gclass-redefinition %'$ &'$ 'g initialize (ginitargs )N( *g next-method +* ,g get-keyword -gexcludedS .,-( /g=> 0g excludees 10 2ge 32 4ghashq-create-handle! 5 N 6452 736 870 918 :./9 ;: <+; =sN >n=? ?> @' A' Bgx C?NB Dm=?B ED Fghashq-get-handle Ggpop-ref! Hg container Ig  Js?N KwJ LK M+? Nq?N O{J PO Qt{ R}Q Sgeq? Tu{ UgdefiningS VSTU W= X&W YVX ZxRY [{ \Z[ ]P\ ^xMN] _^ `gpass-2S ag binding-name bgbinding-object cgpass-1! dgstring->symbol eg string-append ff%o ggnumber->string hg make-local igboolean? jgname-bindings! kgappend lgpass-2! mf(define  nf)  og write-define! pgwrite-empty-defines! qgwrite-definition! rf(let* ( sf( tf ( ugwrite-let*-head! vgwrite-rebindings! wgnewline xgwrite-definitions! ygassq zgwrite-patches! {gwrite-immediates! |gwrite-readables! }galist ~grest P~ } gport gopen-output-file P   gapply }~ g close-port  g *unspecified*   g  g>= glength ~   ~ 9   guses   gcadr ~ 9   /-  N  c}N j}N lN & } g use-modules gunquote-splicing    RP wP y  {}P N & xmPN f zPN y xmPN pPN uPN f (set!  N vPN xPN f  zPN f )  rP y  |}PN N  vmPN     P glet* gopen-input-file P       gmodule-public-interface gcurrent-module giface g  g make-module    g module-use! gthe-scm-module   gsave-module-excursion $ gsexp gread P   g eof-object?  } geval  " y  "   g module-map gvar  g variable-ref  h    C5h(#]4     !#5 4&>"G4*+5$"+i$!4.+4145+5>"G"48+i41;<=i>@ABCDhT]CLgo  gfilenamefoop/goops/save.scm X    C5 >"G4*+5$"+i$!4.+4145+5>"G"48+i41;<Ei>@AFCDhT]CLgo  gfilenamefoop/goops/save.scm Z    C5 >"G4*+5$"+i$!4.+4145+5>"G"48+i41;<Gi>@AFCDhT]CLgo  gfilenamefoop/goops/save.scm [    C5 >"G4*+5$"+i$!4.+4145+5>"G"48+i41;<Hi>@AFCDhT]CLgo  gfilenamefoop/goops/save.scm \    C5 >"G4*+5$"+i$!4.+4145+5>"G"48+i41;<Ii>@AFCDhT]CLgo  gfilenamefoop/goops/save.scm ]    C5 >"G4*+5$"+i$!4.+4145+5>"G"48+i41;<Ji>@AFCDhT]CLgo  gfilenamefoop/goops/save.scm ^    C5 >"G4*+5$"+i$!4.+4145+5>"G"48+i41;<Ki>@AFCDhT]CLgo  gfilenamefoop/goops/save.scm _    C5 >"G4*5$"i$!4.41455>"G"48i41;<=iM>OAFCDhe]C]go  genv  gfilenamefoop/goops/save.scm e    C5 >"G4*5$"i$!4.41455>"G"48i41;<=iMM>QATCDRh]6wgo  gfile  genv   gfilenamefoop/goops/save.scm g i   C5 >"G4Ui =5VR4YZ]`cfghhn]45Cfgexp  gfilenamefoop/goops/save.scm r  s  s   s    Chf] 45L4?6^gargs  gv gfilenamefoop/goops/save.scm  r    Cklh(d] 45$ O@6\gy  'gtmp 'gfilenamefoop/goops/save.scm r   ' C5RmVh ]4>"GCgobj  gexpr  gfilenamefoop/goops/save.scm u  v    gnameg make-readableCRnVh]45Cgobj  gfilenamefoop/goops/save.scm y  z   z   z    gnamegreadable-expressionCoRnVht]6lgobj  gfilenamefoop/goops/save.scm ~    gnameg readable?CpR+Rpoqrstuvw h] 45$4>"GC45$445>"GC45$4>"GC4545$*4 5 &44 5>"GCC4 >"GCgo  gfile  genv   ginfo  t gfilenamefoop/goops/save.scm     $ .  /  2  ?  J V  W  l  t w     (  gnamegwrite-component-procedureg documentationfReturn #f if circular referenceCR4YZ]`cfxyrzh0]Cgobject  )gpatcher  )gfile   )genv   )gfilenamefoop/goops/save.scm    ) Chg] 45L4?6_gargs  gv gfilenamefoop/goops/save.scm     Cklh(e] 45$ O@6]gy  'gtmp 'gfilenamefoop/goops/save.scm   ' C5R4*5$"i$!4.41455>"G"48i41;<{iM>OABCDhf]C^go  genv  gfilenamefoop/goops/save.scm    C5 >"G4*5$"i$!4.41455>"G"48i41;<|iM>OACDhq]4L5$CNCigo  gfilenamefoop/goops/save.scm   #       Ch0] $!H4O>"GJCCgo  ,genv  ,gliteral?  *gfilenamefoop/goops/save.scm     +   , C5 >"G4*5$"i$!4.41455>"G"48i41;<|iMM>QACDrzR h]#$45 $6454$">"G$+4 5$4'>"G""4 5$"14>"G4   >"G"$"4 >"G$,45$4'>"G""45$"34>"G4 >"G"T "M)6 6go  gfile  genv   gn   g not-literal?  , gt  gi  |gt  1 sgfilenamefoop/goops/save.scm           " # % , , /  7  9  ?  F  T  U  [ ! _  c  d     3        #       + ! 1  U ! ^ 6 a ! v  |     0   C5 >"G4*5$"i$!4.41455>"G"48i41;<iM>OACDhx]456pgo  genv  gfilenamefoop/goops/save.scm       C5 >"Gh(]$"Cgind  !gdim  !ginc   !gfilenamefoop/goops/save.scm    !   -  7  -   ! Ch]454 $4 5"2"# $" 45""54 54  4 54 55Cgarray  gn gn  + Ngls  + Ngindices  [ gfilenamefoop/goops/save.scm           * ! D #  +  . % 3 ! < + = 1 A 9 C 1 F + N % N  Q . Y  [  [  _  d k r  y    gnameg make-mapperCRrrzh]"(a $"4L4 5?L$)4L5$4'L>"G""4LL5$"04L>"G4LL>"G"$C4 L>"G4L45?L$)4L5$4'L>"G""4LL5$"04L>"G4LL>"G"I "B"t$C $4 L>"G"4LL>"G4L>"G4)L>"G" "gdims  gindices  gn  jgel  * gt  f gi  cgel  Zgt   Wgn  m gi  s  gfilenamefoop/goops/save.scm               " ) & 2 ( ) * " *  2  3 # ?  @  f       ) 2 )   #     <  ]  c  m   m  s   x   |                       "            6   gnamegloopChX] 4>"GOQ445>"G)6gprefix  Ugo  Ug not-literal?   Ugfile   Ugenv   Ugloop  # Mgfilenamefoop/goops/save.scm   #  6  =  B  U    U gnameg write-arrayCR4*5$"i$!4.41455>"G"48i41;<iMM>QACDrRtzrh j]4 L>"GL6bgdim  gfilenamefoop/goops/save.scm    !   "    C  h=]4545$I$:4#>"G445>"G(6645$4>"G45$4'>"G"4 5$",4>"G4 4  5>"G4 >"G44 5>"G4O45>"G)64>"G445>"G4>"G65go  gfile  genv   groot  gt  gfilenamefoop/goops/save.scm                  4   7   D   Y   a   b  n   o  s   z           )             % #  0  @ $ A & E &  L & U ' X '  e ' n ( r (  y (  )   ) -   C5 >"G4*5$"i$!4.41455>"G"48i41;<iM>OA CDh(] 4545$CCgo  !genv  !gliteral?  !gfilenamefoop/goops/save.scm 4  5   5 ( 5  5   6  6   6  6   ! C5 >"G4*5$"i$!4.41455>"G"48i41;<iMM>QACDt<rCEzLY_slnnhb]456Zginfo  gfilenamefoop/goops/save.scm d   e    Ch ]C"3("0$45$""""$" 454545H4$$"$""(>"G$*45$4'>"G""45$"/4>"G4  >"G"$ 45"$("$"4 >"G4 >"G$)45$4'>"G""45  $".4>"G4   >"G 4)>"G"4 >"G4 5JK4>"G445J>"G$*45$4'>"G""45  $"/4>"G4  >"G  "F "94J>"G456go  gfile  genv   gls   9gt  F agproper?  s g1?  s g not-literal?  s ginfos  s grefs  s gt  /gls  3 gprev 3 gt  gt  gfilenamefoop/goops/save.scm 9  :  ;  ;   <   <   = !  = + " = ! & <  . > " 4 >  9 :  D ?  E ?  F ?  F ? U @  Z @  ^ @  b A  k A  l B  m C  s :  ~ D  D E  D F  G  D  I  J J  J I  K  L  L   L   L ,  L  3 M  6 O  : O ; P H O L M  R Q \ S  a T  e T  l T  u U   V   W   V   X   Y   Y #  Z  [  , \  7 \  9 \  : ]  N ^  X ^  ^ ^  l _  m `  r `  v `  z _ { a  b   b   b  b 0  b  M   M   M  M   d   g X   C5 >"GhH] 45$L454564455$CL6gslotdef  Dgg-n-s  Dgg-n-s   Dgfilenamefoop/goops/save.scm s  t   t  u   u   v   v 2 % v  & w  ) w " 3 w  7 u  > y  A y ) D y   D Ch ]O45456gproc  gclass  gfilenamefoop/goops/save.scm r z  {  {   {  s    gnamegget-set-for-eachCR hN]4545$+L45$ 45"45456445 5$CL45$ 45"6Fgslotdef  gg-n-s  gg-n-s  ga  gfilenamefoop/goops/save.scm ~                  +   ,  $ 8   ?   G   H   K  " U   Y   ^   j   k  $ y   |        Ch ]O45456gproc  gclass  gfilenamefoop/goops/save.scm }          ~    gnamegaccess-for-eachCR4YZ]`cf?g@ h8-13 Cgclass 4gslots 4gexps  4gfilenamefoop/goops/save.scm    4  Chg] 45L4?6_gargs  gv gfilenamefoop/goops/save.scm      Cklh(] 45$ O@6gy  'gtmp 'gfilenamefoop/goops/save.scm    ' g documentationf)(restore CLASS (SLOT-NAME1 ...) EXP1 ...)g macro-typegdefmacrog defmacro-argsgargsC5R4*5$"i$!4.41455>"G"48i41;<iM>OACDh ] 4L545$CL6gget  gset  gval  gfilenamefoop/goops/save.scm     !    !       Ch ]4O>"GCygo  genv  gfilenamefoop/goops/save.scm            C5 >"G4*5$"i$!4.41455>"G"48i41;<iMM>QACDrqhP] 4455$",4L455$44L455L5"Cgslotdef  Ogt  Mgfilenamefoop/goops/save.scm        $         # $  2 ,  # 0   1  # 4  $ 9  0 A  $ E  # N    O Crh(w]4 L>"G45L6ogslotdef  #gfilenamefoop/goops/save.scm        ! #    # Cr#qzg hX]4 L>"G4L545$L64L5$C4L5$4'L>"G"4LL5$C4L>"G$L" L L6Pgname  ganame  gget   gset   gval   gt  ; gt  v gfilenamefoop/goops/save.scm        "     *   .  ) 2  3  ;   G  $ S  T  $ v   1  5  5  C h]4>"G445>"G4>"G4O455("4445>"G4  O>"G4)>"G4  O>"G)6go  gfile  genv   gclass   gslotdefs  ] gfilenamefoop/goops/save.scm                    ,   5   9  @   I  U   ]  ]   e   j  m   r  + t   {             C5 >"G4*5$"i$!4.41455>"G"48i41;<iM>OABCDhf]C^go  genv  gfilenamefoop/goops/save.scm     C5 >"G4*5$"i$!4.41455>"G"48i41;<iMM>QACDrh]456go  gfile  genv   gfilenamefoop/goops/save.scm         C5 >"G4*5$"i$!4.41455>"G"48i41;<2iM>OABCDhf]C^go  genv  gfilenamefoop/goops/save.scm     C5 >"G4*5$"i$!4.41455>"G"48i41;<2iMM>QACDrh]456go  gfile  genv   gfilenamefoop/goops/save.scm         C5 >"G4*5$"i$!4.41455>"G"48i41;<9iM>OABCDhf]C^go  genv  gfilenamefoop/goops/save.scm     C5 >"G4*5$"i$!4.41455>"G"48i41;<9iMM>QACDh]6go  gfile  genv   gfilenamefoop/goops/save.scm          C5 >"G4*s5$"4si5$24.s4 4*s5$si"s5>"G"4* 5$"4 i5$64. 4 4* 5$  i" 5>"G"4* 5$"4 i5$64. 4 4* 5$  i" 5>"G"4*<5$"4"G"4*5$"4i5$64.4 4*5$ i"5>"G"4*5$"4i5$64.4 4*5$ i"5>"G"4*5$"4i5$64.4 4*5$ i"5>"G"4*5$"4i5$64.4 4*5$ i"5>"G"4*5$"4i5$64.4 4*5$ i"5>"G"4*5$"4i5$64.4 4*5$ i"5>"G"4*5$"4i5$64.4 4*5$ i"5>"G""4.4issihG] =6?gfilenamefoop/goops/save.scm      C  ihG] =6?gfilenamefoop/goops/save.scm      C  i<"G" 4*5$4i5$4i 4#i55$4&i4issihG] =6?gfilenamefoop/goops/save.scm      C  ihG] =6?gfilenamefoop/goops/save.scm      C  i<"G""J""B"":4*'5$"'i$#4.'4145'5>"G"48'i41;<iM>)A<C,-4 hh]4L56`ge  gfilenamefoop/goops/save.scm     0      Ch8] 4L>"G45$ O6Cgenv  7ginitargs  7gt  7gfilenamefoop/goops/save.scm      5    7 Chd]OC\greal-next-method  gfilenamefoop/goops/save.scm    CD5 >"G4*s5$"si$!4.s4145s5>"G"48si41;<MM>OA?CDnshx]456pgo  genv  gfilenamefoop/goops/save.scm         C5 >"G4*s5$"4si5$24.s4 4*s5$si"s5>"G"484Asi541;<MMM>CAECDmsh]456go  genv  gx   gfilenamefoop/goops/save.scm          C5 >"GF h]456go  genv  gfilenamefoop/goops/save.scm          gnameg excluded?CqRh]45456gpatcher  genv  gfilenamefoop/goops/save.scm    %         gnameg add-patcher!CzR<h]45456go  genv  gfilenamefoop/goops/save.scm            gnameg push-ref!ClR<h]45456genv  gfilenamefoop/goops/save.scm            gnamegpop-ref!CGR<h]45Cwgenv  gfilenamefoop/goops/save.scm "  #  #   gnameg containerCHR4*u5$"4ui5$24.u4 4*u5$ui"u5>"G"4*w5$"4wi5$24.w4 4*w5$wi"w5>"G"4*5$"4i5$24.4 4*5$i"5>"G"4*I5$=4Ii5$4i 4#Ii55$]4&Ii4iuuiwwii5I5>"G"V4.I4iuuiwwii5I5>"G"V4.I4iuuiwwii5I5>"G"V4.I4iuuiwwii5I5>"GuinR4*w5$"wi$!4.w4145w5>"G"48wi41;<Hi>|ABCDhX]CPginfo  gfilenamefoop/goops/save.scm 0    C5 >"G4*w5$"wi$!4.w4145w5>"G"48wi41;<MM>OALCDwshx]456pgo  genv  gfilenamefoop/goops/save.scm 3  4  4    C5 >"GwitR4*5$"i$!4.41455>"G"48i41;<Hi>|AFCDhX]CPginfo  gfilenamefoop/goops/save.scm 8    C5 >"G4*5$"i$!4.41455>"G"48i41;<MM>OA_CD+qstuU< hx5]45$C45$C4545$"45& 45"$6C-go  rgenv  rgt  rgt   rginfo  1 rgt  ; fgfilenamefoop/goops/save.scm >  ?  ?   @   ?  ) A  1 A  4 D  ; D  ; D I G  U G  V H " ] H  ^ H  j D  p I   r C5 >"G+pq stn`wH/IlGhx,]45$C45$C45$C45$K4545$ 45C4 5$44  5>"GCC45$=44  5>"G45$4  544 556C4544 5>"G4>"G44 5>"G4 >"G44 5>"G4>"G4 5456$go  rgenv  rginfo  ? gt  rginfo  rgfilenamefoop/goops/save.scm U  V V   W  V   X ) V  , Y 6 V  7 Z  ? Z B [  L [ M _  V _  W _  Y `  e `  f b  d V  f  g  g  i ! i . i ! i  k  k l m  n  o 4 p L q i r ' p r  r r (  r gnamegenumerate-component!CRiaRibRbhn]45L6fgbinding  gfilenamefoop/goops/save.scm ~   $      Ch]O6galist  genv  gfilenamefoop/goops/save.scm |  ~    gnamegpass-1!CcRdefgh]44556gi  gfilenamefoop/goops/save.scm      !  &         gnameg make-localChRb+pqswa hX]4545$" 45$" 4L5$C4L545$"45L454 54L56454 56Pgb  go gt   Bgt  & ?ginfo  Q gfilenamefoop/goops/save.scm              &   4   F   I  Q   T  # [   _   i  ' p  ' w  x  '         CwstihhR]:4O>"G"}(" 45$6445>"G445>"CG"<45$""45"s"C(N44545>"G44 545>"G4 54564 54 5$4 455$<44545>"G"I("&4544545>"G45""4455 "Jgalist  genv  gls   g post-defs   gls  gi  gpre-defs  glocs  gsins  ginfo   g real-name    gfilenamefoop/goops/save.scm        %  &   +   0   4   6   :   ;  T  q   v   z   ~      %                     "              !                  '   +  ,   6  & A   L   O   T  ! W   g   m  p   u  ! x        "         (            #      $                                    R   gnamegname-bindings!CjR su`h@] 4L54454L5>"G456go  :ginfo :gfilenamefoop/goops/save.scm            & %   :    : Ck h@]445>"GO445454556genv  ?gfilenamefoop/goops/save.scm     $  '   .   5   =  ?    ? gnamegpass-2!ClRrmRnhx]4>"G4>"G4 >"G$4'>"G"4>"G6gname  xgval  xgliteral?   xgfile   xgfilenamefoop/goops/save.scm             +   D   E   ]   t  x    x gnameg write-define!CoRoho]L6ggstand-in  gfilenamefoop/goops/save.scm        Cowhh]4L5L6`go  gfilenamefoop/goops/save.scm          Ch8]4O45>"GO456gfile  4genv  4gfilenamefoop/goops/save.scm         ,  4    4 gnamegwrite-empty-defines!CpRrswluUvG hW] 4>"G45445>"G4 >"G45$4'>"G"4>"G445>"G4 >"G445 >"G4 >"G)6Ogprefix  go  gfile   genv   ginfo   gfilenamefoop/goops/save.scm           "   %  2   ;   O   Y   Z   r              gnamegwrite-definition!CqRrrqsqthh]LL6`go  gfilenamefoop/goops/save.scm    !      Cn h`]4>"G445>"G4O45>"G6gfile  ]genv  ]gfilenamefoop/goops/save.scm                   #   ,   5   A   H  M   Y  ]    ] gnamegwrite-let*-head!CuRrnh`]4LL>"G4L>"G4 L>"G4L>"GL6gpatch  \gfilenamefoop/goops/save.scm           #   ,   @   E   L   X   \    \ Ch]O6gprefix  gbindings  gfile   genv   gfilenamefoop/goops/save.scm       gnamegwrite-rebindings!CvRqwh h]4LLL>"GL6`go  gfilenamefoop/goops/save.scm        Ch]O456gselector  gprefix  gfile   genv   gfilenamefoop/goops/save.scm         gnamegwrite-definitions!CxRrwyhP]4L5$44L55$CC$4L54L5CCgpatcher  Lgt Lgt  ! 0gfilenamefoop/goops/save.scm         ,   7 !  , !  % 3  7   8  & =  4 ?  & @  & E  4 G  & H    L gnameg name-objectsCwhH] 4LL>"G4OLQ45L>"GL6gpatch  Hg name-objects " 3gfilenamefoop/goops/save.scm        "   :   H    H Ch ]O44556gprefix  gfile  genv   gfilenamefoop/goops/save.scm              gnamegwrite-patches!CzR+boah0]4455$4545L6Cgb  )gfilenamefoop/goops/save.scm                !   ! '    ) Ch]O6galist  gfile  gfilenamefoop/goops/save.scm       gnamegwrite-immediates!C{Rpbyaoo hY] 4455$C445M5$45L454L564454455L>"G4545MNCQgb  gt  gt ( gfilenamefoop/goops/save.scm    !   ! '  !   !   !   "   "  ( "  ( !  < % ) = & ) D % " E ' ) L % " N $  O )  R ) & Y * & \ * ; d * & l )  u - , | . , - % -   Ch] HO6galist  gfile  genv   gwritten   gfilenamefoop/goops/save.scm             gnamegwrite-readables!C|R4*5$"i$!4.41455>"G"48i41;<i{iM>ACDh@-13454>"G4>"GCgalist >gfile >grest  >gport   >gfilenamefoop/goops/save.scm 2 3   3   4  + 5  >  C5 >"G4*5$"i$!4.41455>"G"48i41;<iiM>ACD/-cjlRw{xmzpuvr|h-1345 $"45 $"454>"G4>"G4>"G(")4 >"G4 >"G4 >"G4 5(24 >"G4>"G"4 >"G4>"G4>"G445>"G4 >"G4>"G4>"G4>"G44556galist gfile grest  gexcluded  5 guses  5 genv  D gfilenamefoop/goops/save.scm 8 9   9   9   9 +  9 6  :  ( :  , :  / : + 5 : 7 5 9  : ;  D ;  G <  [ =  o >  ?  A A  A B C  D  D  F F - F G G  G  I  I ,  I  J 1 K E L I L  J L * Y L b M h M - q M z N ~ N   N  O  O   O  P   Q   Q $  Q -  Q $  Q 8   C5 >"G4*5$"i$!4.41455>"G"48i41;<{i>ACDh0]45454>"GCgfile  )gport )gobjects   )gfilenamefoop/goops/save.scm S  T  T  U   T   V   ) C5 >"G4i4i55R4*5$"i$!4.41455>"G"8i41;<i>ACD$hX]4L>"G".45$C4L>"G4L5"4L5"gsexp  Fgfilenamefoop/goops/save.scm `   a   b   c  # c & e  : f  F f  F b  G b  S b   S Ch|]Ctgname  gvar  gfilenamefoop/goops/save.scm g   h   h   C hX] 454>"G4>"G4O>"G6gfile  Rgm  Rgfilenamefoop/goops/save.scm [  \  \  ]   ^  2 _  R g   R C5 6gm  0gt 8 Mgt  (gt  gt  gt  gt  gt s gt S hgt D Ygt 2 Ggt % :gt  5gt  gt # #gt ) )gt *{ *gt ;h ;}gt =p =gt D Egt E Egt G Ggt G Hgt I! I6gt J J*gt K1 KOgt K Kgt K Lgt LR Lqgt L Lgt M M5gt Mx Mgt M Mgt N< N[gt N Ngt O Ogt S, SBgt U Ugt V Vgt [ [gt \ \-gt \k \gt ^n ^gt _O _dgt `f `{gt aG a\gt mgt gt {gt  2gfilenamefoop/goops/save.scm   1 X  Z  [  \  ]  ^ l _ L e = g W p  b p  u y _ ~  +    b # #  ( 4 *t 9 5 r 8 } ;a  =i  D  E  G  G  I  J  K*  P{   P   P   P   P   P   P   P   Q  Rs   R   R   R   R   R   R   R   R  S$  U  V  X  Y  ZK  [  [ " [ % ^f . ^g 0 _H 3 `^ 6 `_ 8 a@ > gg U gp y gy z h | i  rF  tV  u  x#  z  |  ~  H    ^  e  f 2  8 t S  Y  Y ' Y  Y  [ ^ ( C62.0/ccache/oop/goops/compile.go000064400000001061151463412640012160 0ustar00GOOF----LE-8-2.0]4hN] gguile  gdefine-module*   goop ggoops gcompile  gfilenameS foop/goops/compile.scm gimportsS ginternal     g re-exportsS gcompute-cmethod  gset-current-module  C5h0W]4    54>"GCOgm  ,gfilenamefoop/goops/compile.scm    , C62.0/ccache/oop/goops/active-slot.go000064400000010466151463412640012773 0ustar00GOOF----LE-8-2.0]4h] gguile  gdefine-module*   goop ggoops g active-slot  gfilenameS foop/goops/active-slot.scm gimportsS ginternal     gexportsS g  gset-current-module    gtoplevel-define!   g make-class g gnameS gdefined?   !gis-a? "! #! $ % &gmemq 'g (' )' *gclass-precedence-list +* ,* -gclass-redefinition .- /- 0gcompute-get-n-set 1gmake 21 31 4g  54 64 7g add-method! 87 97 :g ;: <: =g specializersS >g ?> @> AgformalsS Bgclass Cgslot DBC EgbodyS Fgif Ggeq? Hgslot-definition-allocation IHC JgactiveS KGIJ Lglet* Mgindex Ngslot-ref Ogquote Pgnfields QOP RNBQ SMR Tgs Ugcdr VUC WTV Xg before-ref Yg get-keyword Zgbefore-slot-refS [YZT \X[ ]g after-ref ^gafter-slot-refS _Y^T `]_ ag before-set! bgbefore-slot-set!S cYbT dac eg after-set! fgafter-slot-set!S gYfT heg igunbound jg make-unbound kj lik mSW\`dhl ng slot-set! og+ poM  qnBQp rglist sglambda tgo ut vXt wglet xgres yg%fast-slot-ref zytM {xz |{ }gand ~gnot geqv? xi ~ ]t }] w|x Fvk FX su gv t at gbegin g%fast-slot-set! tM et }e  F Fa s r Lmq g next-method  FK  gmake-procedureS g procedureSC5h|]4    54>"G"+44ii5>"xG"q4 5$b4#i%5$K4&i)4,i55$-4/i4ii5>"G""t""l""d4 05$"0i$!4043605>"G"90i43<=i@ADEHJNPYZ^bfjnyjh] L$F4L5$74L5L$#L$"4L>"G"C64L5L$#L$"4L>"G"Cgo  gres  Jgres W gfilenamefoop/goops/active-slot.scm *   +  ,   ,   - #  -  $ .  ) . . - .  2 . B N 0  O 1  W 1  _ 2  d 2 * h 2  m 2 >  Chh]L$54L5$&4L>"GL$L6CC4L>"GL$L6Cgo  cgv  cgfilenamefoop/goops/active-slot.scm 5   6  7   7   9  1 :  9 : * > <  Y =  a = &  c Ch]:45&z454545454 54 54 >"G O OCL6gclass  gslot  gindex   gs   g before-ref  ) g after-ref  5 g before-set!  A g after-set!  M gunbound  T  gfilenamefoop/goops/active-slot.scm  !  !   "   " *  "   "   #   "  $  ) "  , %  5 "  8 &  A "  D '  M "  P (  T "  W )  ] )  ` ) " e )  *    Chj]OCbgreal-next-method  gfilenamefoop/goops/active-slot.scm   C5 6tgm  ,gt gfilenamefoop/goops/active-slot.scm   1     C62.0/ccache/oop/goops/simple.go000064400000003330151463412640012022 0ustar00GOOF----LE-8-2.0]D4h2] gguile  gdefine-module*   goop ggoops gsimple  gfilenameS foop/goops/simple.scm gimportsS g accessors     gexportsS g define-class  gset-current-module   gmake-syntax-transformer   gmacro g $sc-dispatch   gany geach-any  !g syntax-object "g$define-class-with-accessors-keywords #gtop $# %gribcage &gdummy 'garg (&' )g m-1f33f87a8-1 *)# +*$ ,f l-1f33f87a8-6 -f l-1f33f87a8-7 .,- /%(+. 0% 1gx 21 3* 4f l-1f33f87a8-3 54 6%235 7$/06 8ghygiene 98 :!"79 ;gsyntax-violation <; =; >f-source expression failed to match any pattern ?g module-use! @gmodule-public-interface Agcurrent-module Bgresolve-interface CC5h]4    54>"G4 :h>]C6gdummy  garg     C=>h(] 45$@6gx  "gtmp "gfilenamefoop/goops/simple.scm    " g macro-typeg syntax-rulesgpatternsgargg...C5R?i4@i4Ai554BiC56gm  ,gfilenamefoop/goops/simple.scm   w  |  &              C62.0/ccache/oop/goops/util.go000064400000005717151463412640011521 0ustar00GOOF----LE-8-2.0 ]54h(] gguile  gdefine-module*   goop ggoops gutil  gfilenameS foop/goops/util.scm gimportsS gsrfi gsrfi-1     gexportsS g mapappend gfind-duplicate gmap* g for-each* glength* gimproper->proper  g re-exportsS gany gevery  gset-current-module   !g append-map "gmemv #gcurrent-module $gmodule-eval-closure %g top-level-env &g procedure? 'gtop-level-env? (gcall-with-deferred-observers )( *( +gmodule-export! ,+ -+ .# /# 0'% 1gmap 2gcar 3gcdr 4gapplyC5h]4    5 4 >"G!iR"h(](C45$C6gl  $gfilenamefoop/goops/util.scm !  "  $   $  $   $   "   $ " % 0 $ %   $ gnamegfind-duplicateCR#$h]45$6Cgmod  gfilenamefoop/goops/util.scm (  )   )   *   +  ,    gnameg top-level-envC%R&h](C6genv  gfilenamefoop/goops/util.scm .  /  /   0   0    gnamegtop-level-env?C'R4*-/0hD]456<gfilenamefoop/goops/util.scm 2   C>"G123h@-13(C$ 445?445?C@gfn @gl @gfilenamefoop/goops/util.scm 4 6  5   6   7  7   5   7   7 ) ( 7  ) 8  . 8 ) 8 8  9 7  @ 9  @ gnamegmap*CR4123hP-13(C$*445>"G45@@gfn Jgl Jgfilenamefoop/goops/util.scm ; =  <   =   >  >   <   >  >  - >  : > ? D > + J ?  J gnameg for-each*CRh0]"$"C "gls  )gn  gls   gfilenamefoop/goops/util.scm A  B  D B   B  C   B   ) gnameglength*CRh ]$ 45CCgls  gfilenamefoop/goops/util.scm F  G  G  H H   H '  H   H   I    gnamegimproper->properCRCgm  0gfilenamefoop/goops/util.scm   7  * !  (  .  2 q 4  ;  A  F    C62.0/ccache/oop/goops/accessors.go000064400000006265151463412640012530 0ustar00GOOF----LE-8-2.0 ]44hp] gguile  gdefine-module*   goop ggoops g accessors  gfilenameS foop/goops/accessors.scm gimportsS     gexportsS gdefine-class-with-accessors g$define-class-with-accessors-keywords  g re-exportsS gstandard-define-class  gset-current-module   gmake-syntax-transformer   gmacro g $sc-dispatch   !g_ "gany #!" $g syntax->datum %$ &$ 'g datum->syntax (' )' *g map-in-order +gkeyword? ,g get-keyword -gaccessorS .gsyntax-violation /. 0. 1f-source expression failed to match any pattern 2g init-keywordS 3gsymbol->keywordC5hx[]4    5 4>"G4 #&)*+,-hX] M$NC45$NC$$45$CCCgslot  Tgname ; Jgfilenamefoop/goops/accessors.scm       !     "  " $  &  ' %  . % . 1 %  5 %  ; ' " ; '  A (  F ( 3 G (  N *   T Ch(-13H4O5Cgname $gsupers $gslots  $geat?  $gfilenamefoop/goops/accessors.scm          !   $  Chk] 45L4?6cgargs  gv gfilenamefoop/goops/accessors.scm      C01h(i] 45$ O@6agy  'gtmp 'gfilenamefoop/goops/accessors.scm    ' C5R4 #&)*+,-23h]M$NC45$NC$X45$"45$C45C45Cgslot  gname > Ogslot O ~gname  f ~gkeyword  o ~gfilenamefoop/goops/accessors.scm 2  3 4   6   3  7  " 9  & 3 ' ;  . ; 5 1 ;  5 ;  > = ) > =  D >  I > : J >  O :  R ?  Y ? 4 \ ?  ` ?  f A % f A  i B ( o A  u C  z C < { C  E  F * E !  Ch(-13H4O5Cgname $gsupers $gslots  $geat?  $gfilenamefoop/goops/accessors.scm - .   /   1  ! /  $  Chk] 45L4?6cgargs  gv gfilenamefoop/goops/accessors.scm  -    C01h(i] 45$ O@6agy  'gtmp 'gfilenamefoop/goops/accessors.scm -   ' C5RCSgm  0gfilenamefoop/goops/accessors.scm     x C62.0/ccache/oop/goops.go000064400000314760151463412640010545 0ustar00GOOF----LE-8-2.0ؙ]4hc] gguile  gdefine-module*   goop ggoops  gfilenameS f oop/goops.scm gimportsS gsrfi gsrfi-1     gice-9 gmatch   gutil    gexportsS g define-class gclass gstandard-define-class gdefine-generic gdefine-accessor g define-method gdefine-extended-generic gdefine-extended-generics !gmethod "gis-a? #gclass-of $gensure-metaclass %gensure-metaclass-with-supers &g make-class 'g make-generic (gensure-generic )gmake-extended-generic *g make-accessor +gensure-accessor ,g add-method! -gclass-slot-ref .gclass-slot-set! /g slot-unbound 0g slot-missing 1gslot-definition-name 2gslot-definition-options 3gslot-definition-allocation 4gslot-definition-getter 5gslot-definition-setter 6gslot-definition-accessor 7gslot-definition-init-value 8gslot-definition-init-form 9gslot-definition-init-thunk :gslot-definition-init-keyword ;gslot-init-function g compute-cpl ?gcompute-std-cpl @gcompute-get-n-set Ag compute-slots Bgcompute-getter-method Cgcompute-setter-method Dgallocate-instance Eg initialize Fg make-instance Ggmake Hgno-next-method Igno-applicable-method Jg no-method Kg change-class Lg#update-instance-for-different-class Mg shallow-clone Ng deep-clone Ogclass-redefinition Pg apply-generic Qg apply-method Rg apply-methods Sgcompute-applicable-methods Tg%compute-applicable-methods Ugmethod-more-specific? Vgsort-applicable-methods Wgclass-subclasses Xg class-methods Yg goops-error Zg min-fixnum [g max-fixnum \g instance? ]gslot-ref-using-class ^gslot-set-using-class! _gslot-bound-using-class? `gslot-exists-using-class? agslot-ref bg slot-set! cg slot-bound? dg class-name egclass-direct-supers fgclass-direct-subclasses ggclass-direct-methods hgclass-direct-slots igclass-precedence-list jg class-slots kggeneric-function-name lggeneric-function-methods mgmethod-generic-function ngmethod-specializers ogmethod-formals pgprimitive-generic-generic qgenable-primitive-generic! rgmethod-procedure sgaccessor-method-slot-definition tg slot-exists? ug find-method vg get-keyword w !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstGuv_ xgset-current-module yx zx {gcurrent-module |g*goops-module* }g%init-goops-builtins ~gprocess-use-modules ~ ~ glanguage gtree-il g primitives  gselectS gadd-interesting-primitive!  gdispatch   gmake-procedure gcompute-cmethod gerror   fno matching pattern gexpt g scm-error gmemq gassoc g gdsupersS gslotsS gnameS ggensym f metaclass gmap g append-map gfor-each gmember gappend gkeyword? fmalformed keyword arguments: ~a g kw-do-map g make-unbound gor-map g g metaclassS gfind-duplicate f3make-class: super class ~S is duplicate in class ~S f,make-class: slot ~S is duplicate in class ~S gmake-syntax-transformer   gmacro g $sc-dispatch   g_ gany  g syntax->datum   g datum->syntax   fmalformed superclass list: ~S g take-while g find-tail glist gquote g init-formS g init-thunkS glambda gsyntax-violation   f-source expression failed to match any pattern gdefine-class-pre-definition geach-any nj Ȍ nj ʌ nj ̌ g syntax-object gbegin gtop  gribcage gout   f l-bdc1916-ed    gx  f l-bdc1916-d0    ghygiene   ggetterS gsetterS gkey  g m-bdc1916-e3   f l-bdc1916-e4   gk garg grest   f l-bdc1916-db f l-bdc1916-dc f l-bdc1916-dd f l-bdc1916-de       gif  gor  gnot  gdefined?   " g     gtoplevel-define!     (      gaccessorS g    + gdefine-class-pre-definitions f l-bdc1916-f4   f l-bdc1916-f1     nj  nj   gslotname !gslotopt " ! #f l-bdc1916-115 $f l-bdc1916-116 %f l-bdc1916-117 &f l-bdc1916-118 '#$%& ("' )( *) +) ,g identifier? -gslot .- / 0f l-bdc1916-10c 1f l-bdc1916-10d 2f l-bdc1916-10e 3012 4./3 54 65 7f l-bdc1916-fe 8f l-bdc1916-ff 9f l-bdc1916-100 :789 ;./: <; =< >Ɍ ?gdummy @gname Agsupers B?@A- Cg m-bdc1916-121 DC ED Ff l-bdc1916-126 Gf l-bdc1916-127 Hf l-bdc1916-128 If l-bdc1916-129 JFGHI KBEJ LD Mf l-bdc1916-123 NM OLN PKO QP RP SP Tgand UTP VP WP X"P YP ZY [P \P ]iP ^OP _P `P a P b? cg m-bdc1916-132 dc ed ff l-bdc1916-137 gf l-bdc1916-138 hfg ibeh jd kf l-bdc1916-134 lk mjl nim on pfbad generic function name: ~S qgdefine r s tgprefixS ug symbol-append vfno prefixes supplied wg xgmake-setter-name ygsetter zg {gextendsS |g }g extended-by! ~g extended-by ginvalidate-method-cache! gdelq! gnot-extended-by! gprocedure-with-setter? gdefaultS g procedure g procedure? ggeneric-capability?  ?@ g m-bdc1916-19d   f l-bdc1916-1a2 f l-bdc1916-1a3    f l-bdc1916-19f    q gcond     +  "   G  gelse  gstring->symbol g string-append fsetter: gsymbol->string gupgrade-accessor gmethods g extended-byS gextends ggeneric-function gmodule-define! gfree-id g m-bdc1916-1c5   f l-bdc1916-1c7    y    nj  gargs gbody ?@  f l-bdc1916-1ca f l-bdc1916-1cb f l-bdc1916-1cc f l-bdc1916-1cd          "     +   , y !  nj ، f l-bdc1916-1d4 f l-bdc1916-1d5 f l-bdc1916-1d6 f l-bdc1916-1d7            G   , ! gfree-identifier=?   f l-bdc1916-26f   gcompute-procedures gcompute-make-procedure g->proper gcompute-procedure g find-free-id g parse-args   f l-bdc1916-1e9 f l-bdc1916-1e7 f l-bdc1916-1e5 f l-bdc1916-1e3 f l-bdc1916-1e1 f l-bdc1916-1df   f l-bdc1916-1de    !            Ɍ   greverse glp gls gformals g specializers  f l-bdc1916-1ed f l-bdc1916-1ee f l-bdc1916-1ef f l-bdc1916-1f0   f l-bdc1916-1ec       g !gtail "! #f l-bdc1916-212 $# %"$ &% ' & (gf )( * +f l-bdc1916-20a ,f l-bdc1916-20b -+, .)*- /. 0 / 1 2g next-method 3gid 43 5f l-bdc1916-26b 65 746 8 9f l-bdc1916-269 :f l-bdc1916-26a ;9: <8*; =7< >= ?gformal @? Af l-bdc1916-259 BA C@B D2 Ef l-bdc1916-255 FE GDF H If l-bdc1916-251 JI KHJ L2 Mf l-bdc1916-24c Nf l-bdc1916-24d Of l-bdc1916-24e PMNO QL/P RCGKQ  SR Tgreal-next-method UTR VU Wglet XWR YR ZR [gnull? \[R ]\Y ^gapply _^R `_UY a` bf l-bdc1916-263 cb d@c e ff l-bdc1916-25e gf heg idhGKQ  ji kTi lk mWi ni oi p[i qpn r^i srkn ts uf l-bdc1916-235 vu wev xgbody0 yx zf l-bdc1916-231 {z |y{ }f l-bdc1916-22d ~f l-bdc1916-22e }~ 8* w|   f l-bdc1916-287 f l-bdc1916-288  * f l-bdc1916-282 f l-bdc1916-283  * g specializer  f l-bdc1916-27b f l-bdc1916-27c  * gbody1 x f l-bdc1916-272 f l-bdc1916-273 f l-bdc1916-274  /   G g  g specializersS  gcons*  gformalsS   gbodyS  gmake-procedureS  g procedureS  g for-each* gdirect-methods gadd-method-in-classes! gdelv! gremove-method-in-classes! gcompute-new-list-of-methods glength* gmethod-n-specializers gfold gmax gcalculate-n-specialized g%invalidate-method-cache! g n-specialized ggf gm   b   b   g *unspecified*  ginternal-add-method! g  gproc   q ,  2   g gpg  p ,  gobj  f"~S is not a valid generic function Y   glet* gspec gmap*  a d  gsrc gprocedure-source  a    gcadr   gcddr    gcons !    W T    a  gcar gcdr g allocationS ginstanceS g init-valueS g init-keywordS gassq ggetters-n-setters gslot-definition gequal? gg-equal? gy  gset-primitive-generic!  gdisplay  gnumber->string  gobject-address  gdisplay-address  gwrite go gfile  f #  g write-object #   @ c f#<   d       !  "! #W" $# % &gmeta '# (&' )( *c& +T* ,d& - , .  /-  . 0+/ 1W)0 21 3 4# 5&4 65 7c 8T*7 9k :@9 ;: < @ = < >@= ?W;> @f ( A @ Bglength Cl DBC E D Ff)> G F H-?AEG I8H JW6I KJ L& ML Nc OT*N P Qc Ra SQR TPS Un VTU W V X- W  YOX ZWMY [Z \ ]\ ^gmerge-generics _g `g agmodule bgint1 cgval1 dgint2 egval2 fgvar ggval ha@bcdefg ig  jgeq? kjce lk mg make-variable nec o)n@ pmo qTlp rq sa@bcdef t uat veu wv xeu yex zbty {~ |ae{ }| ~} be{~ zf Tw  gduplicate-handlers gmerge-accessors ^a@bcdefg   gslots gclassS g each-subclassS  gclass-slot-g-n-s gunbound? gc gs  f!Slot `~S' is unbound in object ~S Y   f Slot `~S' is unbound in class ~S Y   fUnbound slot in object ~S Y  f#No slot with name `~S' in object ~S Y  f(No class slot with name `~S' in class ~S Y  gvalue  0   f0No next method when calling ~S with arguments ~S Y  f&No applicable method for ~S in call ~S 9 Y  fNo method defined for ~S Y  gself  gclone g%allocate-instance #    j 1   - c- a- b-    W    \ N  W b-    W  gold gnew  gremove-class-accessors!  g   gupdate-direct-method!     g  b W gset-car! gcpl  a   gdirect-subclasses  f  b  e    b  e  g %modify-class  gupdate-direct-subclass!   f  g redefined  b g%invalidate-class    g " a   gdelq1!  a     b     W      g    gloop gl n   gpair?  geqv?       !  "! #" $W# %$ & 'e (h )d *# +&'()* ,O+ -, .gcompute-slot-accessors /gg-n-s 0/ 1g init-thunk 2/ 312 4/ 5/4 635 7 8/ 9gmake-generic-bound-check-getter :/ ;9: <8; =g standard-get >=/ ?1> @gbound-check-get A@/ BA C<?B Dgslot-definitionS EG7CD/ FW6E GF H  Ig standard-set JI/ K82J LGHKD/ MW6L NM Og assert-bound Pgnum-standard-pre-cache Qgdefine-standard-accessor-method Rgcache Sgvector Tg struct-ref Ug struct-set! Vgiota Wgn XW Yg< Zg vector-ref [ZRW \gnfields ]ginteger? ^f-Bad getter and setter for slot `~S' in ~S: ~S _f*Bad getter closure for slot `~S' in ~S: ~S `f*Bad setter closure for slot `~S' in ~S: ~S af/Class-allocated slots should not reserve fields bgthunk? cf&Bad init-thunk for slot `~S' in ~S: ~S dgcompute-getters-n-setters e f?e gf hgfilter ig only-non-null jg merge-lists kgevery lgreverse! mf*merge-lists: Inconsistent precedence graph ngtop-sort ogbuild-transitive-closure pgbuild-constraints qgstd-tie-breaker rgcompute-clos-cpl sftop-sort: Invalid constraints tfstd-tie-breaker: Nothing valid u vgclass-slot-init-value wv xgthunk y9 zxy {z |x }7 ~x|} W{~ qw gcase 3  galready-allocated \ a   g+   b W   1 @  h 1 @ gmake-closure-variable w i    gr  a @    ! W W  W    gvirtualS  gget gslot-refS 2 v  gset g slot-set!S v   T  f4You must supply a #:slot-ref and a #:slot-set! in ~S Y   W      fAllocation "~S" is unknown Y  g%compute-slots   gobject ginitargs  g%initialize-object    gdslots v  v A  g???  v b g direct-supers  bA g direct-slots  b b b > b b A    b b  d b . W  a  b  A g %prep-layout!  g%inherit-magic! A W   ginitialize-object-procedure g gapplicable-struct    ggeneric  gprevious-definition v  v @  "  ^  !         b  gset-procedure-property! @ @ W     ggws  g%set-object-setter! v   geg  v{ bt  gdummy-procedure  ! !ggeneric-functionS "v! #b!" $v %b!$ &v 'b!& (v )b!( * +v ,b!*+ - .v /b!-. 0#%'),/ 1g%modify-instance 2gchange-object-class 3g old-instance 4g new-instance 534 64 7g new-class 837 9#3 :2397 ;: < =< >Ɍ ?ginstance @D A?@ BA CE? DWBC? ED F[  GJ HFG IS JI KJ LV MRL NI OMN PWKO QHP Rg%%compute-applicable-methods ST TS U Vgtargs W# XVW YX Zgsort [gm1 \gm2 ][\ ^U[\V _]^ `Z_ aWY` ba c# d# e[\V fg%method-more-specific? gf[\V hg ig build-next ji k lrk m nim o^ln po qg r sgletrec tgnext ugprocs vu wgnew-args xga y[w zyw {xz |{ }[u ~Hx Qutx }~ W| w v t  Qt s  gsystem-procedure glist2set g mapappend g %goops-loadedC5h"]4   w54z>"G4{i5|R4}i>"G4>"G4i#>"G4>"GaHmhe-134L56]gargs gfilenamef oop/goops.scm q  r "  r   Cr hX]$?45$( O" 4566456gmethods  Ugtypes  Ugw   Hgx   Hgmake-procedure   Hgfilenamef oop/goops.scm j  k   m   m ,  m   m  $ n  , p 8 s  B o H t I k   U gnamegcompute-cmethodCR 4i  5ZR4i  5[RYh-136g format-string gargs gfilenamef oop/goops.scm ~    0     gnameg goops-errorCYRih ]4455$CCgobj  gclass  gfilenamef oop/goops.scm     *         gnamegis-a?C"RHG h@]4M5$C4455MNCg meta-supers  =gentry =gnew  . =gfilenamef oop/goops.scm          # / & . * 6 , . .  . 5 ) 8 # :   = CO%RhZ]CRgx  gfilenamef oop/goops.scm   )   Cihc]45C[gm  gfilenamef oop/goops.scm $  + &  Ch8]4L5$" 4M5$4M5NCCgmeta  4gfilenamef oop/goops.scm         " # , 5 . 0   4 C% hP$](C4545H4O>"GJ(JCJ6gsupers  Pg all-metas  Pgall-cpls   Pg needed-metas  " Pgfilenamef oop/goops.scm          "  "  %  B  F  I P   P gnamegensure-metaclassC$RYhH ] (C$" 45$L64L5Cgl  Agt  'gfilenamef oop/goops.scm           ! ) #  $  +  /  3  6  7  < # ?  @   A gnamegkeywordsCh ](C4L5Cgl  gfilenamef oop/goops.scm       %  +  %     gnamegargsCh@]#OOQQ45456gmapper  ;gf  ;gkwargs   ;gkeywords   ;gargs   ;gk  & ;ga  / ;gfilenamef oop/goops.scm &  ) /  ;   ; gnameg kw-do-mapCRvihg]456_gclass  gfilenamef oop/goops.scm "  *  $   C$1YGh-13445545$" 4545$"4 54 54 4  55$4 >"G"$4 >"G"@ gsupers gslots goptions  gname   gsupers  8 gt  D \g metaclass  \ gtmp1  s gtmp2  s  gfilenamef oop/goops.scm   +       &  -  6 $ 8  8  ;  D  S  \  _  f  i s  s  }  ~      gnameg make-classC&R4Yhc]45C[gx  gfilenamef oop/goops.scm   , '  C&h0~]$CCvgkw  *garg  *gfilenamef oop/goops.scm   " ) '  * Ch0]$45CCgdef  /gfilenamef oop/goops.scm             $   / C hp-13$"4>"G4545$"4  5C gsupers igslots igt  : Lgslots  L igoptions  L igfilenamef oop/goops.scm        )  2  :  I 0 L  R  Z  c  i Chb] 45L4?6Zgargs  gv gfilenamef oop/goops.scm     Ch(`] 45$ O@6Xgy  'gtmp 'gfilenamef oop/goops.scm   ' C5R4h+]C#gout     Ch]456gk  garg  grest   gout   gfilenamef oop/goops.scm       C   h] 45$"$f4         5C$f4        5CCgk  garg  grest   gout   gkey  gfilenamef oop/goops.scm       C hPr]45" 45$@6$4?$@""jgx  Pgtmp Pgtmp   1gfilenamef oop/goops.scm    P C5R4h+]C#gout     C*+h h]45C`gslotname  gslotopt  grest   gout      C,hx]6pgslot  grest  gout   gfilenamef oop/goops.scm  /    C6hO]CGgslot  grest  gout     Ch]456ygslot  grest  gout   gfilenamef oop/goops.scm  ,  ,   C=hO]CGgslot  grest  gout      C h]!45$@45"N45" 45$@6$4 ?$ @""$4 ?$ @""gx  gtmp gtmp  " gtmp  1 vgtmp  @ Wgfilenamef oop/goops.scm '   C5R4>QRSUVWXZ[\]^_`ahj]     45 45Cbgdummy  gname  gsupers   gslot     Ch(] 45$@6gx  "gtmp "gfilenamef oop/goops.scm 6   " g macro-typeg syntax-rulesgpatternsgnamegsupersgslotg...C5R4oh>]C6gdummy  garg     Ch(] 45$@6gx  "gtmp "gfilenamef oop/goops.scm @   " g macro-typeg syntax-rulesgpatternsgargg...C5R4YpqT"rG(shx]$"4>"G     Cgname  xgfilenamef oop/goops.scm J  K K   L   L   L  # M   x Chb] 45L4?6Zgargs  gv gfilenamef oop/goops.scm  J    Ch(`] 45$ O@6Xgy  'gtmp 'gfilenamef oop/goops.scm J   ' C5R4Ypq)h8]$"4>"GCgname  7gval  7gfilenamef oop/goops.scm R  S S   T   T   T  # U   7 Chb] 45L4?6Zgargs  gv gfilenamef oop/goops.scm  R    Ch(`] 45$ O@6Xgy  'gtmp 'gfilenamef oop/goops.scm R   ' C5R4 vtuh_]L6Wgprefix  gfilenamef oop/goops.scm ] $ ^ &  Ch o]4OL5Cggname  gfilenamef oop/goops.scm [   \  ]   \    CYvh8-1345$4O5C6gnames 3gargs 3gprefixes   3gfilenamef oop/goops.scm W X   X   Y   Z   [ , Z  1 a  3 a  3 Chb] 45L4?6Zgargs  gv gfilenamef oop/goops.scm  W    Ch(`] 45$ O@6Xgy  'gtmp 'gfilenamef oop/goops.scm W   ' C5 RGh v-.,3#6ngname gfilenamef oop/goops.scm c  d   gnameg make-genericC'R"wh[]6Sggf  gfilenamef oop/goops.scm h  h !  Cx"w(yh(]45$445L5CCggf  #gfilenamef oop/goops.scm l '  m -  m )  n 3  n C  n 3 n - " p -  # CGz{|}yh-.,3#$"45$n$ 45"4O54  4  554 4 5>"G"4  54 >"GCggfs gname ggfs  ' ggws?  2 gsname  L gsetters  \ ges  ~ gans  gfilenamef oop/goops.scm f  g   g  ' g " ' g  * h  2 g  : i  @ j ! A j + L j  O l  \ j  _ r  n u ) ~ r  ~ j  x  x + x  z  i  }  gnamegmake-extended-genericC)Rb~ah]L456ggf  gfilenamef oop/goops.scm      "   /   "         Ch(]4O>"G6ggfs  !geg  !gfilenamef oop/goops.scm     !    ! gnameg extended-by!C}Rb~ah ]4L4556ggf  gfilenamef oop/goops.scm         #   0   #         Ch(]4O>"G6ggfs  !geg  !gfilenamef oop/goops.scm     !    ! gnamegnot-extended-by!CR"Gwy h-.,3#45$C45$45 4 564 5$4 5$C66gold-definition }gname }gfilenamef oop/goops.scm    "   &  0   ;   D   L  M  W   X  b  s  }   } gnamegensure-genericC(R4h`?]     C7gdummy  _gname  _  _ Ch(] 45$@6gx  "gtmp "gfilenamef oop/goops.scm    " g macro-typeg syntax-rulesgpatternsgnameC5Rh]44556gname  gfilenamef oop/goops.scm      !  +         gnamegmake-setter-nameCxRGxh@-.,3#4$ 45"56gname <gfilenamef oop/goops.scm   ,   -  :  <   < gnameg make-accessorC*R"wy'G(+*h-.,3#"45$ 45645$ 45645$#   4 5 4455645$-45$4  5" 45664 5$4455$C":"6gproc gname gfilenamef oop/goops.scm    &   +  3  4  @   E  M  N  X   c   l   o  $ y   {  |                            gnamegensure-accessorC+RaG"|zk~b}bhh]L6`gmethod  gfilenamef oop/goops.scm     "    Ch]45445$"4 5 4 5 545$P4 54>"G4 >"G4>"G"4O>"G4>"G4>"GCggeneric  gsetter  gmethods  = ggws  = ggfs  W gfilenamef oop/goops.scm      #          &   /  ! 5  3 7  ! =  =   B   N   O   U  % W   W   Z  n  t   {              gnamegupgrade-accessorCR{h]456gname  gval  gfilenamef oop/goops.scm          gnamegtoplevel-define!C R4hxc]     C[gdummy  qgname  qgargs   qgbody   q  q C hXc]    C[gdummy  Ugname  Ugargs   Ugbody   U  U Ch@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamef oop/goops.scm    9 g macro-typeg syntax-rulesgpatternsgsettergnamegargsgbodyg...gnamegargsgbodyg...C5R4!h ] 4LL5$CLL6zgx  gy  gt  gfilenamef oop/goops.scm         C,hR]6Jgx  gfilenamef oop/goops.scm      Ch |] 4L545$CCtgx  gid gfilenamef oop/goops.scm             Ch@]45$ LO@4?$ O@Cgexp  ?greferent  ?gtmp  ?gtmp  % ?gfilenamef oop/goops.scm    ? gnameg find-free-idC h,]C$gargs    C  hf]4L54L5C^gfilenamef oop/goops.scm                 C,hU]6Mgtail  gfilenamef oop/goops.scm      C'h ]44L554L5Cgtail  gfilenamef oop/goops.scm                        C,hd]6\gf  grest  gfilenamef oop/goops.scm      C0hv]LLL6ngf  grest  gfilenamef oop/goops.scm           C,h]45$6C}gf  gs  grest   gfilenamef oop/goops.scm       "   Ch]LLL6}gf  gs  grest   gfilenamef oop/goops.scm           C h]#45"|45"E45$ O@4?$ O@6$4 ?$ LO@""$4 ?$ LO@"`"\gls  gformals  g specializers   gtmp  gtmp   gtmp  ( egtmp  B egfilenamef oop/goops.scm    gnameglpC12>SVXYZ]Ua h8.]LLC&gformal  4  4 Chk]LL6cgx  gxs  gfilenamef oop/goops.scm  $    ChB]L6:gfilenamef oop/goops.scm      ChH]45$ LO@45$ O@6gls  Dgout  Dgtmp  Dgtmp  ( Dgfilenamef oop/goops.scm   B  $ D    D gnameglpCjlmnoqrkt h8.]LL LC&gformal  7  7 Chh]4L5$ LO@OQ4L545$LLO@6gbody  cgtmp cglp  ( 8gtmp  8 cgtmp  C cgfilenamef oop/goops.scm (   3   5   8 .   c Ch-]LC%gbody0    C h0M]LLLL  CEg procedure  .gmake-procedure  .  . C hl]"LL4L5$<45$4O?" 45 ";"645$4O?" 45 " G4 5$ LLO@6dgformals  g specializer  gbody   gid   gtmp  % Lgtmp  _ g procedure  gmake-procedure  gtmp  gtmp   gfilenamef oop/goops.scm  I  ;   ; #  ;   ;   <  R > @ G K   ChH]OQ4545$LO@6gargs  Fgbody0  Fgbody1   Fglp  gtmp   Fgtmp  & Fgfilenamef oop/goops.scm     "   5     F   F C hP]OQ45$@45$ O@6gx  Kg find-free-id Kgtmp   Kgtmp  / Kgfilenamef oop/goops.scm    K C5!Rgbh(] 454L5$CL6gx  'gdm 'gfilenamef oop/goops.scm Z  [  [  \   \  ] " % ] 2 ' ]   ' Cnh]O456}gm  gfilenamef oop/goops.scm X ^  Z    gnamegadd-method-in-classes!CRbgh~]4L4556vgx  gfilenamef oop/goops.scm b  d  e   e #  e   c    Cnh]O456gm  gfilenamef oop/goops.scm ` f  b    gnamegremove-method-in-classes!CRnahhx]4545"?(C45$4>"GC""pggf  agnew  agnew-spec   agmethods   agl   Ygfilenamef oop/goops.scm h  i  j   j   j   i   k  l  % m ' n  , n + . n  1 n  5 n 6 q  ; q + @ q  M r  S t  Y t  Y k   a gnamegcompute-new-list-of-methodsCRah]456gm  gfilenamef oop/goops.scm v  w w  w  w    gnamegmethod-n-specializersCRhr]456jgm  gn  gfilenamef oop/goops.scm z   z   z    Clh] 456ggf  gfilenamef oop/goops.scm y  |   z    gnamegcalculate-n-specializedCRbh[]6Sggf  gfilenamef oop/goops.scm       Ca~ h@]4>"G445>"G456ggf  >gfilenamef oop/goops.scm ~             '   4  :   <  >    > gnameginvalidate-method-cache!CR4Giiiibh`]4>"G445>"G4>"G4>"GCggf  [gm  [gfilenamef oop/goops.scm                   -   6   H    [ C5 R"$4(i4i,5$,i",5"B4i,5$04"i,ii5$4Gii,5"""",R44rii5,ii>"G4i,5$",i$)4 i,4Gii,5>"G"4,i,i4Giiiiq,h0]45$4>"G6L6gproc  /gm  /gfilenamef oop/goops.scm          '   /    / Ch_]OCWgreal-next-method  gfilenamef oop/goops.scm    C5 >"G4i,5$",i$)4 i,4Gii,5>"G"4,i,i4Giiii,phr]456jgpg  gm  gfilenamef oop/goops.scm          C5 >"G4i,5$",i$)4 i,4Gii,5>"G"4,i,i4Gii iiYhs]6kgobj  gm  gfilenamef oop/goops.scm        C5 >"G4i=5$"=i$)4 i=4Gii=5>"G"4,i=i4Giiida! hPJ]!44554455$45CCBgm  Jgspec  Jgsrc  " Jgargs  2 Hgbody  2 Hgfilenamef oop/goops.scm         ,                ,  "   "   *   -   1   2  8   9   F   G    J C5 >"G4io5$"oi$)4 io4Giio5>"G"4,ioi4Giiiahb]6Zgm  gfilenamef oop/goops.scm        C5 >"Gi1Ri2Rvh]6gs  gfilenamef oop/goops.scm       gnamegslot-definition-allocationC3Rvh]6}gs  gfilenamef oop/goops.scm       gnamegslot-definition-getterC4Rvh]6}gs  gfilenamef oop/goops.scm       gnamegslot-definition-setterC5Rvh]6gs  gfilenamef oop/goops.scm       gnamegslot-definition-accessorC6Rvh]456gs  gfilenamef oop/goops.scm     $      gnamegslot-definition-init-valueC7Rvh]456gs  gfilenamef oop/goops.scm     #      gnamegslot-definition-init-formC8Rvh]6gs  gfilenamef oop/goops.scm       gnamegslot-definition-init-thunkC9Rvh]6gs  gfilenamef oop/goops.scm       gnamegslot-definition-init-keywordC:Rjh]456gclass  g slot-name  gfilenamef oop/goops.scm          gnamegclass-slot-definitionC"G4iii>"G   h]445 56go  gfile  gfilenamef oop/goops.scm              gnamegdisplay-addressC R4i 5$" i$+4 i 4Gii 5>"G"4,i i4Gii i i  h8]4>"G4>"G>6go  2gfile  2gfilenamef oop/goops.scm             2    2 C5 >"G4pi i5R4i 5$" i$+4 i 4Gii 5>"G"4,i i4Giii i$c@ d h] 45$]4>"G445>"G4 >"G4>"G>6L6go  ygfile  ygclass   ygfilenamef oop/goops.scm                          )  ,   9  B  V  q  y    y Ch_]OCWgreal-next-method  gfilenamef oop/goops.scm    C5 >"G4i 5$" i$+4 i 4Gii 5>"G"4,i i4Giii i%2c@ d hV] 45$45$4>"G445>"G4 >"G445>"G4 >"G4>"G>6L6L6Ngclass  gfile  gmeta   gfilenamef oop/goops.scm                        !   "  &   -  6  9   F  O  c  f   s  |       Ch_]OCWgreal-next-method  gfilenamef oop/goops.scm    C5 >"G4i 5$" i$+4 i 4Gii 5>"G"4,i i4Giii i3Kc@ dk@BlF h]45$45$4>"G445>"G45$,4 >"G4>"G"4>"G44 4 55>"G 6L6L6ggf  gfile  gmeta   gname  U gfilenamef oop/goops.scm                         !   "  &   -  6  9   F  O   U  ] ! ^ #  r $  % %  % & &  &  &  & '  '  "  Ch_]OCWgreal-next-method  gfilenamef oop/goops.scm    C5 >"G4i 5$" i$+4 i 4Gii 5>"G"4,i i4Giii i[c@ dc@ah ]45$6Cgspec  gfilenamef oop/goops.scm 2   3  3 1 3   3   4 .  4    Cn  he] 45$45$4>"G445>"G4 >"G444 55>"G4 >"G4 >"G>6L6L6]go  gfile  gmeta   gfilenamef oop/goops.scm *  +   +   ,  ,   ,  ,   -  -   - ! ,  " / & /  - / 6 0 9 0  F 0 O 1 c 2 f 2  k 6  s 2  z 2 8 9 : *   Ch_]OCWgreal-next-method  gfilenamef oop/goops.scm *   C5 >"G4i 5$" i$+4 i 4Gii 5>"G"4,i i4Gii i i]hk]6cgo  gfile  gfilenamef oop/goops.scm > ?   C5 >"G4i^5$"^i$+4 i^4Gii^5>"G"4,i^i4Gii_i`i_i i_i i i ihsh,3Cgmodule  gname  gint1   gval1   gint2   gval2   gvar   gval   gfilenamef oop/goops.scm E    C5 >"G4i^5$"^i$+4 i^4Gii^5>"G"4,i^i4Gii_i`i_ii_ii iiihrm)h(,3&C456gmodule  "gname  "gint1   "gval1   "gint2   "gval2   "gvar   "gval   "gfilenamef oop/goops.scm O  W   X   X - X  " X   " C5 >"G4i^5$"^i$+4 i^4Gii^5>"G"4,i^i4Gii_i`i_ii_ii i|isab~h,34455$C44455>"G44455>"G4>"GCgmodule  gname  gint1   gval1   gint2   gval2   gvar   ggf   gfilenamef oop/goops.scm Z  b b   b $  b   b  b   d # e  & f  + f + 1 f 8 3 f + 5 f  6 f  ; d D g J h  M i  R i ' X i 6 Z i ' \ i  ] i  b g k j    C5 >"G4ii^^i>"G4i5$"i$+4 i4Gii5>"G"4,ii4Gii_i`i_i i_i i i ihsh,3Cgmodule  gname  gint1   gval1   gint2   gval2   gvar   gval   gfilenamef oop/goops.scm o    C5 >"G4i5$"i$+4 i4Gii5>"G"4,ii4Gii_i`i_ii_ii i ih^h ,36gmodule  gname  gint1   gval1   gint2   gval2   gvar   gval   gfilenamef oop/goops.scm y      C5 >"G4iii>"Ga03 hpu]44554455$" 454455$"4>"GCmgclass  og slot-name  og this-slot   ogt  $ >gg-n-s  @ ogfilenamef oop/goops.scm       $   4   $            *  : "  * $   $   3   ?   @   C  F   P  T   Y    o gnamegclass-slot-g-n-sCR/h(] 445545$6Cgclass  (gslot  (gx   (gfilenamef oop/goops.scm                   %    ( gnamegclass-slot-refC-Rh]456gclass  gslot  gvalue   gfilenamef oop/goops.scm           gnamegclass-slot-set!C.R4i/5$"/i$)4 i/4Gii/5>"G"4,i/i4Giiii iYh]6xgc  go  gs   gfilenamef oop/goops.scm        C5 >"G4i/5$"/i$)4 i/4Gii/5>"G"4,i/i4Giii iYhq]6igc  gs  gfilenamef oop/goops.scm        C5 >"G4i/5$"/i$)4 i/4Gii/5>"G"4,i/i4GiiiYhb]6Zgo  gfilenamef oop/goops.scm        C5 >"G4i05$"0i$)4 i04Gii05>"G"4,i0i4Giiii iYh]6xgc  go  gs   gfilenamef oop/goops.scm        C5 >"G4i05$"0i$)4 i04Gii05>"G"4,i0i4Giii iYhq]6igc  gs  gfilenamef oop/goops.scm        C5 >"G4i05$"0i$)4 i04Gii05>"G"4,i0i4Giiii i i0h]6gc  go  gs   gvalue   gfilenamef oop/goops.scm     C5 >"G4iH5$"Hi$)4 iH4GiiH5>"G"4,iHi4Giii iYhu]6mggf  gargs  gfilenamef oop/goops.scm        C5 >"G4iI5$"Ii$)4 iI4GiiI5>"G"4,iIi4Giii iYkh]456ggf  gargs  gfilenamef oop/goops.scm               C5 >"G4iJ5$"Ji$)4 iJ4GiiJ5>"G"4,iJi4Giii iYhu]6mggf  gargs  gfilenamef oop/goops.scm        C5 >"G4iM5$"Mi$)4 iM4GiiM5>"G"4,iMi4Giii1jcbah(x]4L5$L4L56Cpgslot  "gfilenamef oop/goops.scm           *    " Ch@]4544554O>"GCgself  <gclone  <gslots   <gfilenamef oop/goops.scm       #  3          !              < C5 >"G4iN5$"Ni$)4 iN4GiiN5>"G"4,iNi4Giii1jcba\Nh@] 4L5$.L4L545$ 45"6Cgslot  ?gvalue  ;gfilenamef oop/goops.scm           ,    !  % +  ! ,  % =    ? Ch@]4544554O>"GCgself  <gclone  <gslots   <gfilenamef oop/goops.scm       #  3          !              < C5 >"G4iO5$"Oi$)4 iO4GiiO5>"G"4,iOi4GiiiighZ]LL6Rgm  gfilenamef oop/goops.scm      Cbabfh~]4L4556vgc  gfilenamef oop/goops.scm    %  #   .   #      Cebfh ]L4L4556gc  gfilenamef oop/goops.scm      #   .   #         ChZ]LL6Rgc  gfilenamef oop/goops.scm      Cfh] 4>"G454O>"G44455>"G4 54 O4 5>"G4 O4 5>"G4 >"G4O45>"G4>"G4>"GCzgold  gnew  gmethods   ]gfilenamef oop/goops.scm              9   ?   @   E   M   R   ^  d   f  i   j   t                            C5 >"G4i5$"i$+4 i4Gii5>"G"4,ii4Giii"ab hX] 45$G4544455>"G4>"G 6Cgm  Xggf  Vgfilenamef oop/goops.scm             (          !  " " !  ' ! ) - ! 6 / ! ) 1 !  6   ? "  V $   X Cghb]456Zgc  gfilenamef oop/goops.scm   %      C5 >"G4i5$"i$+4 i4Gii5>"G"4,ii4Giiiii%nh8] "%$$ ""C45"gm  8gold  8gnew   8gl   +gfilenamef oop/goops.scm +  .  1  1   3   3   3  4  # 5  ) 5 + .  , .  8 .   8 C5 >"G4i5$"i$+4 i4Gii5>"G"4,ii4Giiiii&-O&ehdh0]445454556gc  )gold  )gnew   )gfilenamef oop/goops.scm ;  ?  ? "  @ "  A ) % B . ' ?  ) >   ) C5 >"G456,BCyhi]454545$44L5>"G"$44L5>"G"$/44L5>"G454L56Cags  gg-n-s  ggetter-function   gsetter-function   gaccessor   gfilenamef oop/goops.scm L   M  N   O   M  # P $ Q  ) R  6 Q  H S I T  N U  [ T  m V n X  s Y  X  Z  [  Z   Cah]O456gclass  gslots  gfilenamef oop/goops.scm J  \  \   \  K    gnamegcompute-slot-accessorsC.R4iB5$"Bi$)4 iB4GiiB5>"G"4,iBi4Giii i0GG9=@D hP]$ 45"$ 45"456gclass  Lgg-n-s  Lg init-thunk  Lgg-n-s  Lgfilenamef oop/goops.scm ^  _  `  _   b   c  " c  # d  ( d > * d  4 c  5 f  @ h  L a   L C5 >"G4iC5$"Ci$)4 iC4GiiC5>"G"4,iCi4Giii i0NG IDh8] $"456gclass  8gg-n-s  8gg-n-s   8gfilenamef oop/goops.scm k  m   l  l   o   p  # p  & q  , r  8 n   8 C5 >"GOhc]4L56[go  gfilenamef oop/goops.scm v   v   v    Ch]OCwgproc  gfilenamef oop/goops.scm u   gnamegmake-generic-bound-check-getterC9R PR4QqWRSTUhH]$:& LC&LCL6Cgform  Fgfilenamef oop/goops.scm                         "   $   (   +   .   4  . :   C    F gnameg body-transCh(] OQL4L5Cgx  "g body-trans "gfilenamef oop/goops.scm            " gnamegmake-oneCVPXYW[hx-134O455        Cgform tgbody tgname   tgn-var   tgargs   tgfilenamef oop/goops.scm ~               &   2  , :   ;   t Chb] 45L4?6Zgargs  gv gfilenamef oop/goops.scm  ~    Ch(`] 45$ O@6Xgy  'gtmp 'gfilenamef oop/goops.scm ~   ' C5QR/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h 7]  45$6C/go  gx     C/h ] L45$6C|go  gx  gfilenamef oop/goops.scm                Ch )] $LCOC!gn     CO@Rh)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     Ch)] C!go     ChR]LCJgo  gfilenamef oop/goops.scm      Ch )] $LCOC!gn     CO=Rh8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Ch8] C0go  gv    Cha]LCYgo  gv  gfilenamef oop/goops.scm    Ch )] $LCOC!gn     COIRa\@1]Y^B_`3a9bc7hA]LC9gfilenamef oop/goops.scm     Ch]94L54L54L54545$""4L>"G"$y45 $c4 5$"4 L>"G4 5$"4 L>"G""h""`4 5 $"$A"4>"&G" $$""""C45$"45$" 4L5"$"#4545$"O45$" $"45Cgs  gindex gg-n-s   gsize  $ gname  - gt  6 gget  ~ gset  ~ gkey  gthunk  S gt   ginit   gt    gfilenamef oop/goops.scm       '              ) !   $   $  '   -  0  6   G  K   V  b   e   i   j  " s   w   z   }   ~                                #   &   +   .  ( 2   H   I   M   S   [  \   f   m   q  y                   "      "         ,         I   Ch]O6gclass  gslots  gfilenamef oop/goops.scm       gnamegcompute-getters-n-settersCdR4i>5$">i$)4 i>4Gii>5>"G"4,i>i4Giiieg?eh]]6Ugclass  gfilenamef oop/goops.scm     C5 >"Ghhc]C[gl  gfilenamef oop/goops.scm          Chu]6mglst  gfilenamef oop/goops.scm     gnameg only-non-nullCiRjiih0] 454445556gc  ,gget-direct-supers  ,gc-direct-supers  ,gfilenamef oop/goops.scm                 ( &  ( (  *   ,    , gnamegcompute-std-cplC?Rk[lhc]L6[gl  gfilenamef oop/goops.scm  '  1  )  Ch(] (C4OL5$CCgl  &gc &gfilenamef oop/goops.scm       ,  !   " !    & gnameg candidate-carCYmjih]L&CC|gl  gfilenamef oop/goops.scm     $        gnameg remove-nextC h`"] 45$64O5$"4>"G4 4  O556greversed-partial-result  ]ginputs  ]gnext  # ]gfilenamef oop/goops.scm              #   +   0  4   9  H   I   L  $ [   ]    ] gnameg merge-listsCjRnopqh(]44554455456gc  %gget-direct-supers  %gfilenamef oop/goops.scm #  $  $  $  %  %  %  & % $   % gnamegcompute-clos-cplCrRhkh ] L$CL6g constraint  gt gfilenamef oop/goops.scm 2   3 ) 3 $ 3  3   4 %  4    ChZ]LOL6Rgx  gfilenamef oop/goops.scm 1   2    CYshc]LC[gx  gfilenamef oop/goops.scm >   > *  > %  Ch]+"f(C4O5(6(" 454O545""gelements  {g constraints  {g tie-breaker   {gelements   lg constraints   lgresult   lg can-go-in-now   lgchoice  D lgfilenamef oop/goops.scm )  *  -   0   /  ' 7 + 8  - 8  0 9 ' 4 9  7 : < ; D 9  G >  W A  ` A b A  l =  l *  q ,  { *   { gnamegtop-sortCnRhhZ]L6Rgx  gfilenamef oop/goops.scm H I &  CYthXh]"">4L54O5((6"C45"`g partial-cpl  Qgmin-elts  Qgpcpl   Dg current-elt  Dgds-of-ce   Dgcommon  " Dgfilenamef oop/goops.scm D   E  F  F  G   G   H  " H * K - L  1 L  5 M ! 7 M  : N  @ N  C O  D E  E E  Q E   Q Chu]OCmg get-supers  gfilenamef oop/goops.scm C   gnamegstd-tie-breakerCqRhX-]"D(C45$ "44L55""%gx  Xgresult  Jgpending   Jgnext   Jgfilenamef oop/goops.scm S   T  V   X   X  Y  ! Y & Z  . Z  3 [  4 \  7 \  @ ]  B \  J [  J T  K T  P U  X T   X Ch]OCzgget-follow-ons  gfilenamef oop/goops.scm R   gnamegbuild-transitive-closureCoRohx]"S("$$(C4L5""44L55"{gx  qgelements  Ygthis-one   Ygresult   Ygfilenamef oop/goops.scm `   a  d d   d &  d   d   e % g  ( h  ) i  . i * 0 i  1 h  = g  B l  E m  H m + L m  O m  Y k Y a  Z a  [ a  e a  f b  g c  q a   q Ch{]OCsgget-follow-ons  gfilenamef oop/goops.scm _   gnamegbuild-constraintsCpR4i@5$"@i$)4 i@4Gii@5>"G"4,i@i4Giii iu3a\b1h97iv2Yhp]"45$%454>"GC$4544 4 555$( 4 5$ 45"4 56"'4455$C"45"$( 4 5$ 45"4 56$f44554455$"$"4>"G"4>"GCL6gclass  mgs  mgkey  mgalready-allocated   9gname  I gthunk  o gl  gr  gthunk  gget   egset   e gfilenamef oop/goops.scm r  y  y   |   | .  |   |  }  & }  ) } ! . }  B y  C   I   L  Q   V  0 ^   `  d   i t  o t  w u  x v w      "  ,  4  "                  y  t  t  u  v w   y       )         )       '   -   2  6   =  N   U  d   m r C  m Ch_]OCWgreal-next-method  gfilenamef oop/goops.scm r   C5 >"GhQ]MCIgo  gfilenamef oop/goops.scm     Chi]NCago  gv  gfilenamef oop/goops.scm        Ch]HOOCgclass  gvalue  gfilenamef oop/goops.scm       gnamegmake-closure-variableCR4i@5$"@i$)4 i@4Gii@5>"G"4,i@i4Giii iY3hz]456rgo  gs  gfilenamef oop/goops.scm       .      C5 >"G4iA5$"Ai$)4 iA4GiiA5>"G"4,iAi4Giiieh]]6Ugclass  gfilenamef oop/goops.scm       C5 >"G4iE5$"Ei$)4 iE4GiiE5>"G"4,iEi4Giii iht]6lgobject  ginitargs  gfilenamef oop/goops.scm     C5 >"G4iE5$"Ei$)4 iE4GiiE5>"G"4,iEi4Giii ivb@>A\d.bah]L456gx  gfilenamef oop/goops.scm       '   3   '         Chp]4L>"G4545445>"G4>"G4 >"G4 >"G4 >"G4 4 5>"G4>"G454>"G4 >"G445>"G4>"G4O>"G4>"G6gclass  nginitargs  ngdslots  * ngsupers  * ngslots  ;gfilenamef oop/goops.scm       .   !   (  3 *   *   /   5   6  ( >  E @  ( E   N   T   [   d   j   q   z      (        (        (                                 *    %   <   U   n  4  n Ch_]OCWgreal-next-method  gfilenamef oop/goops.scm    C5 >"Gvbh8] 45$$ @6Cgobject  1ginitargs  1gproc  1gfilenamef oop/goops.scm               !  # %  +   /  0    1 gnameginitialize-object-procedureCR4iE5$"Ei$)4 iE4GiiE5>"G"4,iEi4Giii ih ]4L>"G6wgapplicable-struct  ginitargs  gfilenamef oop/goops.scm       Ch_]OCWgreal-next-method  gfilenamef oop/goops.scm    C5 >"G4iE5$"Ei$)4 iE4GiiE5>"G"4,iEi4Giii ivb"G h_-13L@Wgargs gfilenamef oop/goops.scm  *   ,  C@h,]45454L>"G445$&4     O5 ">"G$ 6C$ggeneric  ginitargs  gprevious-definition   gname   gfilenamef oop/goops.scm            /   5   6  $ B  C  * d  $ i  $ n   |    )    Ch_]OCWgreal-next-method  gfilenamef oop/goops.scm    C5 >"G4iE5$"Ei$)4 iE4GiiE5>"G"4,iEi4Giiwi ivh(z]4L>"G456rggws  &ginitargs  &gfilenamef oop/goops.scm     &    & Ch_]OCWgreal-next-method  gfilenamef oop/goops.scm    C5 >"G4iE5$"Ei$)4 iE4GiiE5>"G"4,iEi4Gii|i ibv{h(]4L>"G456geg  (ginitargs  (gfilenamef oop/goops.scm        $  9 &   (    ( Ch_]OCWgreal-next-method  gfilenamef oop/goops.scm    C5 >"Ghr-13Cjgargs gfilenamef oop/goops.scm   gnamegdummy-procedureCR4iE5$"Ei$)4 iE4GiiE5>"G"4,iEi4Giii i 0bv!h~]4L>"G445>"G445>"G445>"G4 4 5>"G4 4 5>"G 456vgmethod  ginitargs  gfilenamef oop/goops.scm          & ,   5   ;   <  " C  G E  " J   S   Y   Z  h   q   w   x     =            7        $    Ch_]OCWgreal-next-method  gfilenamef oop/goops.scm    C5 >"GD;^`3<_] h] ""4L5$LL456C4LL5$@44L55&(4LL5$LL4LL56"""gslot  {ginit  (gfilenamef oop/goops.scm             &   (   )   7   8   ;   E   K   L   Z   c   o    { C1j1L hh&] 454O4455>"G4>"G4>"GCg old-instance  bg old-class  bg new-class   bg new-instance  bgfilenamef oop/goops.scm       3          "  ( *   /   8   L    b gnamegchange-object-classC2R4iL5$"Li$)4 iL4GiiL5>"G"4,iLi4Giiii56hu]Cmg old-instance  g new-instance  gfilenamef oop/goops.scm     C5 >"G4iK5$"Ki$)4 iK4GiiK5>"G"4,iKi4Giiii8;2h]6|g old-instance  g new-class  gfilenamef oop/goops.scm % & $ &   C5 >"G4iD5$"Di$)4 iD4GiiD5>"G"4,iDi4Giii i=hs]6kgclass  ginitargs  gfilenamef oop/goops.scm . /   C5 >"G4iF5$"Fi$)4 iF4GiiF5>"G"4,iFi4Giii i>EDEh0-13454>"GCgclass +ginitargs +ginstance   +gfilenamef oop/goops.scm 1 2   2   3  + C5 >"GFiGR4iP5$"Pi$)4 iP4GiiP5>"G"4,iPi4Giii iQaJSRVIhX] 45(4>"G"45$4566ggf  Sgargs  Sgmethods  0 Sgfilenamef oop/goops.scm F  G G  G  G   H  ( I  0 I  8 J  = K  K K  S L   S C5 >"G4GiiS5RR4iR5$"Ri$+4 iR4GiiR5>"G"4,iRi4Giii iTThl]6dggf  gargs  gfilenamef oop/goops.scm S T   C5 >"GRiSi4iV5$"Vi$)4 iV4GiiV5>"G"4,iVi4Giii i iUbdZUhk]L6cgm1  gm2  gfilenamef oop/goops.scm Z  Z "  Ch ] 45O6ggf  gmethods  gargs   gtargs  gfilenamef oop/goops.scm X  Y  Y   Z    C5 >"G4iU5$"Ui$)4 iU4GiiU5>"G"4,iUi4Giiii iehfh}]6ugm1  gm2  gtargs   gfilenamef oop/goops.scm \ ]   C5 >"G4iQ5$"Qi$)4 iQ4GiiQ5>"G"4,iQi4Giii i i ijprh]4545@ggf  gmethods  g build-next   gargs   gfilenamef oop/goops.scm _  `  `  ` a  a   a  `    C5 >"G4iR5$"Ri$)4 iR4GiiR5>"G"4,iRi4Giiiqi irHQh@-13L(L(L"6LLL(L"6gnew-args ;gfilenamef oop/goops.scm f   h   g  # i  1 g  ; j  ; Chx]LLOCpgprocs  gargs  gfilenamef oop/goops.scm e    gnamegnextCQh ] OQ6ggf  gl  gargs   gnext  gfilenamef oop/goops.scm d e   k    C5 >"G4ihf]6^gproc  gfilenamef oop/goops.scm n  o * o   C/i0iHiIiJi>"GhH ]"5(C45$ """gl  Fgl  ;gres   ;gfilenamef oop/goops.scm                    *   -   0   3   ;  ;   >   F    F gnameglist2setCRfh]4L455Cgc  gfilenamef oop/goops.scm       )         gnamegallsubsCfh(] OQ44556gc  !gallsubs !gfilenamef oop/goops.scm         )    !    ! gnamegclass-subclassesCWRgWh]44556gc  gfilenamef oop/goops.scm                gnameg class-methodsCXRi6 gm  ,gtable-of-metas  gt ^ ^gt ` `gt a agt b bgt e$ e9gt pZ ppgt q qgt t tgt w wgt { {gt gt ,gt gt gt gt dzgt Ncgt gt gt gt gt +@gt tgt gt gt ,gt gt ]rgt +gt gt pgt *gt !6gcache gcache DZgcache Γqgt ֭gt 'gt &gt DYgt G\gt ngt gt gt %:gt gt i~gt =Rgt Wlgt gt gt -Bgt *@gt Wlgt Xmgt gt !6;gfilenamef oop/goops.scm   - M  6 M 7 Q  I T  e U  k U  p U  y X  j  x   x   x   x   y   y   y   ~       g  *) c .C f /  1e  3  5  6  9s  <  =  Uy X V ` X h Y v Z y \ ~ \   ^  ^m  ^n  ^o  ^  ^  `{  a  b  e  f9  fA  f  g  hP  i  i  jt  k$  k  l  m  n  n   n   n   n  n  n   oO  oX  pN  pO  q   q  q  t  w  { *  >  E  O  Z  m  m # m  o Y y   '  #1  I  c  C  D          !  j          S     + e ;  J  ^  k  u  |   ǵ  u  ֢  ֣         # ( )  C ^ R  _  r     :  =  d            ^  _  2  3  M %  .  1 " 6 # F  Q  Q  Q  P  S L V M X N \  _  d  n  p  n    !  "  "   " C62.0/ccache/language/tree-il.go000064400000223161151463412640011737 0ustar00GOOF----LE-8-2.0Y&]p4h.] gguile  gdefine-module*   glanguage gtree-il  gfilenameS flanguage/tree-il.scm gimportsS gsrfi gsrfi-1     gsrfi-11    gsystem gbase gpmatch   gsyntax    gexportsS g tree-il-src g gvoid? g make-void !gvoid-src "g #gconst? $g make-const %g const-src &g const-exp 'g (gprimitive-ref? )gmake-primitive-ref *gprimitive-ref-src +gprimitive-ref-name ,g  -g lexical-ref? .gmake-lexical-ref /glexical-ref-src 0glexical-ref-name 1glexical-ref-gensym 2g  3g lexical-set? 4gmake-lexical-set 5glexical-set-src 6glexical-set-name 7glexical-set-gensym 8glexical-set-exp 9g  :g module-ref? ;gmake-module-ref gmodule-ref-name ?gmodule-ref-public? @g  Ag module-set? Bgmake-module-set Cgmodule-set-src Dgmodule-set-mod Egmodule-set-name Fgmodule-set-public? Ggmodule-set-exp Hg Ig toplevel-ref? Jgmake-toplevel-ref Kgtoplevel-ref-src Lgtoplevel-ref-name Mg Ng toplevel-set? Ogmake-toplevel-set Pgtoplevel-set-src Qgtoplevel-set-name Rgtoplevel-set-exp Sg Tgtoplevel-define? Ugmake-toplevel-define Vgtoplevel-define-src Wgtoplevel-define-name Xgtoplevel-define-exp Yg  Zg conditional? [gmake-conditional \gconditional-src ]gconditional-test ^gconditional-consequent _gconditional-alternate `g  ag application? bgmake-application cgapplication-src dgapplication-proc egapplication-args fg  gg sequence? hg make-sequence ig sequence-src jg sequence-exps kg lglambda? mg make-lambda ng lambda-src og lambda-meta pg lambda-body qg  rg lambda-case? sgmake-lambda-case tglambda-case-src uglambda-case-req vglambda-case-opt wglambda-case-rest xglambda-case-kw yglambda-case-inits zglambda-case-gensyms {glambda-case-body |glambda-case-alternate }g ~glet? gmake-let glet-src g let-names g let-gensyms glet-vals glet-body g gletrec? g make-letrec g letrec-src gletrec-in-order? g letrec-names gletrec-gensyms g letrec-vals g letrec-body g gfix? gmake-fix gfix-src g fix-names g fix-gensyms gfix-vals gfix-body g  g let-values? gmake-let-values glet-values-src glet-values-exp glet-values-body g  gdynwind? g make-dynwind g dynwind-src gdynwind-winder g dynwind-body gdynwind-unwinder g gdynlet? g make-dynlet g dynlet-src g dynlet-fluids g dynlet-vals g dynlet-body g gdynref? g make-dynref g dynref-src g dynref-fluid g gdynset? g make-dynset g dynset-src g dynset-fluid g dynset-exp g gprompt? g make-prompt g prompt-src g prompt-tag g prompt-body gprompt-handler g gabort? g make-abort g abort-src g abort-tag g abort-args g abort-tail g parse-tree-il gunparse-tree-il gtree-il->scheme g tree-il-fold gmake-tree-il-folder g post-order! g pre-order! g tree-il=? g tree-il-hash  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ gset-current-module   gformat f # g print-tree-il gmake-syntax-transformer   gborrow-core-vtables gmacro g $sc-dispatch   g_  g vector-length g%expanded-vtables gvtable-offset-user gmap g datum->syntax g symbol-append g< g> gmake- g? g- gany  g syntax-object gdefine gtop  gribcage  gt-9d61459b896-a19 gt-9d61459b896-a17 gt-9d61459b896-a18  gm-9d61459b896-a1a   fl-9d61459b896-a1e fl-9d61459b896-a1f fl-9d61459b896-a20   gacc   fl-9d61459b896-a15   glp gn gfields gout   fl-9d61459b896-9e1  fl-9d61459b896-9e2  fl-9d61459b896-9e3  fl-9d61459b896-9e4         gpred  fl-9d61459b896-9df   gctor  fl-9d61459b896-9dd   gtype  fl-9d61459b896-9db   gsfields  fl-9d61459b896-9d7   !  " #fl-9d61459b896-9d5 $# %"$ &gstem '& (fl-9d61459b896-9d3 )( *') +gvtable ,+ -fl-9d61459b896-9d1 .- /,. 0 1 2fl-9d61459b896-9ca 3fl-9d61459b896-9cb 4fl-9d61459b896-9cc 5234 6015 7gx 87 9fl-9d61459b896-9c7 :9 ;8: < !%*/6; =ghygiene >= ?<> @gmake-procedure-with-setter A@<> Bglambda CB<> D7<> ED Fg struct-ref GF<> Hgv IH<> JDI Kg struct-set! LK<> MI Ngsyntax-violation ON PN Qf-source expression failed to match any pattern Rgeach-any SRR Tgt-9d61459b896-9ea Ugt-9d61459b896-9e9 Vgt-9d61459b896-9ec Wgt-9d61459b896-9eb XTUVW Ygm-9d61459b896-9ed ZY [ZZZZ \fl-9d61459b896-9f1 ]fl-9d61459b896-9f2 ^fl-9d61459b896-9f3 _fl-9d61459b896-9f4 `\]^_ aX[` ba!%*/6; cb> dg make-struct edb> f b> g hgt-9d61459b896-9fb igt-9d61459b896-9fc jhi kgm-9d61459b896-9fd lk mll nfl-9d61459b896-a01 ofl-9d61459b896-a02 pno qjmp rq!%*/6; sr> t7r> ut vgand wvr> xgstruct? yxr> zyt {geq? |{r> }g struct-vtable ~}r> ~t gt-9d61459b896-a05  gm-9d61459b896-a06   fl-9d61459b896-a09   !%*/6; K> gvtable-index-printer > >  gt-9d61459b896-a0c gt-9d61459b896-a0b  gm-9d61459b896-a0d   fl-9d61459b896-a11 fl-9d61459b896-a12   !%*/6; > g vector-ref > > greverse gbegin gt-9d61459b896-a24  gm-9d61459b896-a25   fl-9d61459b896-a29   6; > gmake-record-type f gsrc gnames ggensyms gvals gbody  grecord-predicate grecord-accessor grecord-modifier f  gexp  f  gwinder gunwinder  f gfluid  f  f gtag ghandler  f gargs gtail  gsource-properties glocation gabort gerror funrecognized tree-il gprompt gdynset gdynref gdynlet gdynwind g let-values gfix gletrec* gletrec glet gconst g lambda-case gand=> gset! gtoplevel g@@ gand-map gsymbol? g@ glexical g primitive gif gapply gvoid    funhandled record gscheme gdecompile-tree-il    gfold R gdummy gseed  gm-9d61459b896-1211   fl-9d61459b896-1216 fl-9d61459b896-1217    fl-9d61459b896-1213  8  B> gtree > gdown > gup > > g fold-values >  gproc   >  gexps   >  > gnull? >   gvalues > > gcar >   gcdr >   > gfoldts >     glist !g let*-values "!> #g record-case $#> %2> &> '%& (@> )(& *M> +*& ,S> -,& .Y> /gtest 0/> 1g consequent 21> 3g alternate 43> 5.024 6`> 7> 86 7 9f> :9  ;k> <> =;< >q> ?ginits @?> A>@<4 B}> C> DBC< E> FEC< G> HGC< I> JI&< K> L> M> NK<LM O> Pgfluids QP> ROQC< S> T> UST V> WVT& X> Y> Z> [XY<Z \> ]> ^\Y7] _gelse `_> agsetter ba ca dg string-length egsymbol->string fg struct-layout ggstruct-nfields hg hash-bits igmake-variable-transformer jg identifier? kglogcount lgmost-positive-fixnum mghashq ngmax oghashC5h]4   54>"Gh]456gexp  gport  gfilenameflanguage/tree-il.scm B  C  C   C    gnameg print-tree-ilCR4h_]L6Wgf  gfilenameflanguage/tree-il.scm P " P .  C?ACEGDJLM h8w] Cogt-9d61459b896-a19  1gt-9d61459b896-a17  1gt-9d61459b896-a18   1  1 CPQScefh]Cgt-9d61459b896-9ea  gt-9d61459b896-9e9  gt-9d61459b896-9ec   gt-9d61459b896-9eb      Cgsuwz|h X]CPgt-9d61459b896-9fb  gt-9d61459b896-9fc     ChX]CPgt-9d61459b896-a0c  gt-9d61459b896-a0b     CRh9]C1gt-9d61459b896-a24     Ch]x"45$  4LO54L4 554L4 554L4 55"n ( "   4L4  55     4  5$ 4?" 4 5      "  4  5  $ 4 ?" 4 5   4  5  $ 4 ?" 4 5   4  5  $ 4 ?" 4 5     ""@454 5$@6 " gn  gout  gvtable   gstem  % gfields  / gsfields  ? gtype  S gctor  e gpred  w gn } gfields } gout } gacc gtmp gtmp  gtmp 'gtmp  $gtmp . \gtmp 9 Ygtmp k gtmp v gtmp   gtmp   gfilenameflanguage/tree-il.scm  I  J   J  J  K   L  L  $ M 1 % M  % L  . N 3 / N / L  2 O ! ? L  B R  G R / K R > O R F Q R / S R  S L  V S  [ S / _ S > c S / e S  e L  h T  m T / s T C u T / w T  w L  } U  a  c  d  e ( f + f ? f B f + e ( e  g & g  c  U  W # . Y # k ^ #  V !  U   K  l   l   I   I   I =   CPQh(g] 45$ O@6_gx  'gtmp 'gfilenameflanguage/tree-il.scm F   ' C5Ri Riiihh]$CC`gx  gfilenameflanguage/tree-il.scm n    gnamegvoid?CRhn]Cfgsrc  gfilenameflanguage/tree-il.scm n   gnameg make-voidC R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5!Ri "R"iii"hi]$CCagx  gfilenameflanguage/tree-il.scm n    gnamegconst?C#R"h]Cxgsrc  gexp  gfilenameflanguage/tree-il.scm n   gnameg make-constC$R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5%R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5&Ri 'R'iii'hq]$CCigx  gfilenameflanguage/tree-il.scm n    gnamegprimitive-ref?C(R'h]Cgsrc  gname  gfilenameflanguage/tree-il.scm n   gnamegmake-primitive-refC)R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5*R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5+Ri ,R,iii,ho]$CCggx  gfilenameflanguage/tree-il.scm n    gnameg lexical-ref?C-R,h]Cgsrc  gname  ggensym   gfilenameflanguage/tree-il.scm n    gnamegmake-lexical-refC.R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5/R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C50R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C51Ri 2R2iii2ho]$CCggx  gfilenameflanguage/tree-il.scm n    gnameg lexical-set?C3R2h]Cgsrc  gname  ggensym   gexp   gfilenameflanguage/tree-il.scm n    gnamegmake-lexical-setC4R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C55R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C56R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C57R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C58Ri 9R9iii9hn]$CCfgx  gfilenameflanguage/tree-il.scm n    gnameg module-ref?C:R9h]Cgsrc  gmod  gname   gpublic?   gfilenameflanguage/tree-il.scm n    gnamegmake-module-refC;R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5?Ri @R@iii@hn]$CCfgx  gfilenameflanguage/tree-il.scm n    gnameg module-set?CAR@h]Cgsrc  gmod  gname   gpublic?   gexp   gfilenameflanguage/tree-il.scm n    gnamegmake-module-setCBR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5CR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5DR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5ER4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5FR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5GRi HRHiiiHhp]$CChgx  gfilenameflanguage/tree-il.scm n    gnameg toplevel-ref?CIRHh]Cgsrc  gname  gfilenameflanguage/tree-il.scm n   gnamegmake-toplevel-refCJR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5KR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5LRi MRMiiiMhp]$CChgx  gfilenameflanguage/tree-il.scm n    gnameg toplevel-set?CNRMh]Cgsrc  gname  gexp   gfilenameflanguage/tree-il.scm n    gnamegmake-toplevel-setCOR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5PR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5QR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5RRi SRSiiiShs]$CCkgx  gfilenameflanguage/tree-il.scm n    gnamegtoplevel-define?CTRSh]Cgsrc  gname  gexp   gfilenameflanguage/tree-il.scm n    gnamegmake-toplevel-defineCUR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5VR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5WR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5XRi YRYiiiYho]$CCggx  gfilenameflanguage/tree-il.scm n    gnameg conditional?CZRYh]Cgsrc  gtest  g consequent   g alternate   gfilenameflanguage/tree-il.scm n    gnamegmake-conditionalC[R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5\R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5]R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5^R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5_Ri `R`iii`ho]$CCggx  gfilenameflanguage/tree-il.scm n    gnameg application?CaR`h]Cgsrc  gproc  gargs   gfilenameflanguage/tree-il.scm n    gnamegmake-applicationCbR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5cR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5dR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5eRi fRfiiifhl]$CCdgx  gfilenameflanguage/tree-il.scm n    gnameg sequence?CgRfh]C|gsrc  gexps  gfilenameflanguage/tree-il.scm n   gnameg make-sequenceChR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5iR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5jRi kRkiiikhj]$CCbgx  gfilenameflanguage/tree-il.scm n    gnameglambda?ClRkh]Cgsrc  gmeta  gbody   gfilenameflanguage/tree-il.scm n    gnameg make-lambdaCmR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5nR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5oR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5pRi qRqiiiqho]$CCggx  gfilenameflanguage/tree-il.scm n    gnameg lambda-case?CrRqh , 3  Cgsrc  greq  gopt   grest   gkw   ginits   ggensyms   gbody   g alternate    gfilenameflanguage/tree-il.scm n    gnamegmake-lambda-caseCsR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5tR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5uR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5vR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5wR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5xR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5yR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5zR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5{R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5|Ri }R}iii}hg]$CC_gx  gfilenameflanguage/tree-il.scm n    gnameglet?C~R}h]Cgsrc  gnames  ggensyms   gvals   gbody   gfilenameflanguage/tree-il.scm n    gnamegmake-letCR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5Ri Riiihj]$CCbgx  gfilenameflanguage/tree-il.scm n    gnamegletrec?CRh]Cgsrc  g in-order?  gnames   ggensyms   gvals   gbody   gfilenameflanguage/tree-il.scm n    gnameg make-letrecCR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5Ri Riiihj]$CCbgx  gfilenameflanguage/tree-il.scm n    gnamegdynlet?CRh]Cgsrc  gfluids  gvals   gbody   gfilenameflanguage/tree-il.scm n    gnameg make-dynletCR4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5R4@ihV] CNgx  gfilenameflanguage/tree-il.scm n    Che] C]gx  gv  gfilenameflanguage/tree-il.scm n   C5R4ii5Rh -13Cgsrc gnames ggensyms  gvals  gbody  gdefrec-9d61459b896-c7e  gfilenameflanguage/tree-il.scm    gnamegmake-fixCR4ii5R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4ii5Rh-13Cgsrc gexp gbody  gdefrec-9d61459b896-c80  gfilenameflanguage/tree-il.scm    gnamegmake-let-valuesCR4ii5R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4ii5Rh-13Cgsrc gwinder gbody  gunwinder  gdefrec-9d61459b896-c82  gfilenameflanguage/tree-il.scm    gnameg make-dynwindCR4ii5R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4ii5Rh-13Cgsrc gfluid gdefrec-9d61459b896-c84  gfilenameflanguage/tree-il.scm    gnameg make-dynrefCR4ii5R4@i4ii54ii55R4@i4ii54ii55R4ii5Rh-13Cgsrc gfluid gexp  gdefrec-9d61459b896-c86  gfilenameflanguage/tree-il.scm    gnameg make-dynsetCR4ii5R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4ii5Rh-13Cgsrc gtag gbody  ghandler  gdefrec-9d61459b896-c88  gfilenameflanguage/tree-il.scm    gnameg make-promptCR4ii5R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4ii5Rh-13Cgsrc gtag gargs  gtail  gdefrec-9d61459b896-c8a  gfilenameflanguage/tree-il.scm    gnameg make-abortCR4ii5R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4@ih)] C!gx     Ch8] C0gx  gv    C5Rh ] $45$CCCgx  gprops  gfilenameflanguage/tree-il.scm            gnameglocationCRhu]6mgx  gfilenameflanguage/tree-il.scm      gnamegretransCh$sBmUOJB;4.)[b <h0]45"""""^""0" [" " " " " L" " &"""_"""B"""i""s"""("$&v$g$N$5   (45454 56666666$z &d$Y$D$/   ( 45454 56""""""$^ &H$=$(( 45456""{"w"s"o$B &,$!( 456"*"&"""$~&h$]$H$3   (45454 56""""""$z&d$Y$D$/   (45454 56""""" "$^&H$=$((45456"""""$&x$m$X$C   $.     (4 54 56"""" """$&y$n$Y$D   $/     (4 54 56"x"t"p"l"h"d"`$&y$n$Y$D   $/     (4 54 56"""""""$&x$m$X$C   $.     (4 54 56"="9"5"1"-")"%$%&456""$=&'$(6""""$ &$$$   $     $   $$s$^(J$?(+(!!   45456 """"""""""""""$/ &$$$   $     $   $$${(g$\(H$=()!   45454"56 "~"z"v"r"n"j"f"b"^"Z"V"R"N"J"F$Y#&C$8$#($456"""""$d%&N$C$.($&456""{"w"s"o"k$'&$$n(&X$M   (9$.   ( $) 4 56""""""""""$H(&2$'($*6"q"m"i"e"a$'&$$+&$v   $a     (M$B (.4,- 5$ $.  4 56""""""""""""$q+&[$P$;('4,-5$$ /6""""" " "$'&$$0&$v   $a     (M$B (.4,- 5$ $.  4 56"U"Q"M"I"E"A"="9"5"1"-")$q0&[$P$;('4,-5$$ /6"""""""$'&$$1&z$o   $Z     (F$; (' $ $2  4 56""""""""""""$'&$$p1&Z$O   (;$0   ( $2  4 56"C"?";"7"3"/"+"'"#"$j1&T$I$4( $$ 36"""""""$J1&4$)($ 36"]"Y"U"Q"M$H4&2$'($56"""""$z6&d$Y$D$/   (745454 56""}"y"u"q"m$A8&+$ 945456"%"!"$&:&(;6"""gexp  +gretrans  +gloc  +gvx  gvy  gvx  gvy  gvx  gvy  gvx gvy gvx  3 gvy  3 gvx  L gvy  L gvx  ] gvy  ] gvx n gvy n gvx   gvy   gvx   gvy   gvx   gvy   gvx  ! ]gvy  ! ]gvx  : Ugvy  : Ugvx  n gvy  n gvx   gvy   gvx   gvy   gvx  gvy  gvx   kgvy   kgvx   cgvy   cgvx  ! _gvy  ! _gvx 2 [gvy 2 [gvx  | gvy  | gvx   gvy   gvx   gvy   gvx   mgvy   mgvx   egvy   egvx   agvy   agvx  ]gvy  ]gvx 1 Ygvy 1 Ygvx  ~ gvy  ~ gvx   gvy   gvx   gvy   gvx  gvy  gvx  gvy  gvx   gvy   gvx  1 gvy  1 gvx  B gvy  B gvx S gvy S gvx d gvy d gvx   :gvy   :gvx   2gvy   2gvx   .gvy   .gvx  *gvy  *gvx  &gvy  &gvx  K jgvy  K jgvx  { gvy  { gvx   gvy   gvx   gvy   gvx   gvy   gvx   gvy   gvx  gvy  gvx  gvy  gvx  gvy   gvx  1 gvy  1 gvx  B gvy  B gvx  S gvy  S gvx  j gvy  j gvx   gvy   gvx   gvy   gvx   gvy   gvx  gvy  gvx , gvy , gvx = gvy  = gvx  N gvy  N gvx  _ gvy  _ gvx  p gvy  p gvx   gvy   gvx   gvy   gvx   mgvy   mgvx  3 egvy  3 egvx  D agvy  D agvx  ~ gvy  ~ gvx  gvy  gvx  gvy  gvx  gvy  gvx   gvy   gvx   gvy   gvx 0 wgvy 0 wgvx G ogvy G ogvx  gvy  gvx  gvy  gvx  gvy  gvx   gvy   gvx   gvy   gvx 2 gvy 2 gvx C gvy C gvx Z gvy  Z gvx  2gvy  2gvx  *gvy  *gvx  &gvy  &gvx  C gvy  C gvx  \ gvy  \ gvx  m gvy  m gvx gvy gvx gvy gvx gvy  gvx   gvy   gvx  4 ~gvy  4 ~gvx  E zgvy  E zgvx  Wgvy  Wgvx  Ogvy  Ogvx  Kgvy  Kgvx Cgvy Cgvx ?gvy ?gvx  7gvy   7gvx  h gvy  h gvx   gvy   gvx   gvy   gvx  gvy  gvx  gvy  gvx   }gvy   }gvx  2 ugvy  2 ugvx  C qgvy  C qgvx   gvy   gvx   gvy   gvx   %gvy   %gvx   gvy   gvx  6 gvy  6 gvx  O gvy  O gvx  ` gvy  ` gvx q gvy q gvx   gvy   gvx   gvy   gvx   'gvy   'gfilenameflanguage/tree-il.scm        $                " &  &  }            I  Q  U     ,       A  W  [        D " M  U  Y   (       x (        "   "  &  \  f  j                        U  ]  a  !     T * X  _  g  k      e ) q  t ? x        3       (  >     P  \  _ 2 c  n  r   .    =   #  +  /   )         P " T  W 1 [  e  i                           +       #   + gnameg parse-tree-ilCR`deY]^_'+,0126789=>?@DEFGHLMQRSWXkopBquvwxyz{|"&fj}yhP ]I&C&'45454545C &64 54 54 5 454545C&45C&4545C&145454545C&1454545$"C &F4!54"54#54$5$"45C%&4&5'C(&&4)54*5'45C+&!4,54-5.45C/&0405415$245C23C4&4554654754854954:54;54<5 =4545 $4 5"C>&4?5@CA&4B5C45CD&>4E54F54G54H5I4545CJ&S4K54L54M54N54O5$P"Q4545CR&>4S54T54U54V5W4545CX&&4Y54Z5[4545C\&64]54^54_5`454545Ca&:4b54c54d5e454545Cf&4g5h45Ci&&4j54k5l4545Cm&64n54o54p5q454545Cr&84s54t54u5v454545Cwx6| gtree-il  Lgrtd  Lgproc  ( Agargs  ( Agtest  ^ g consequent  ^ g alternate  ^ gname  gname  ggensym  gname  ggensym  gexp  gmod   .gname   .gpublic?   .gmod  R |gname  R |gpublic?  R |gexp  R |gname   gname   gexp   gname   gexp   gmeta   $gbody   $greq  d gopt  d grest  d gkw  d ginits  d ggensyms  d gbody  d g alternate d gexp   gexps   gnames   +ggensyms   +gvals   +gbody   +g in-order?  V gnames  V ggensyms  V gvals  V gbody  V gnames   ggensyms   gvals   gbody   gexp   gbody   gwinder   8gbody   8gunwinder   8gfluids  U zgvals  U zgbody  U zgfluid   gfluid   gexp   gtag   gbody   ghandler   gtag  ! Dgargs  ! Dgtail  ! DCgfilenameflanguage/tree-il.scm        .   /   6  ' ?   I  f   g  n  # u  A ~             %          &   -   6  \   b   d   j   q   r  / {                                 !   "  "   "  # ,  v &   & *  &   '   &   (   ( *  ( $  ( G  &     +     .   .   .     1   1  ! 1 8 * 1  3  f 4  h 4  n 4  s 5  | 5 $  4     8   8   8 8  8     ;   ;   ; *  ;     >   >  ' > * . ?  7 >  @  ] B  ^ B  g B - p C  y B     F   F   F     I   I   I (  I     L   L   L &  L >  L    ) O  * O  1 O % : P  C O  H }  L gnamegunparse-tree-ilCRh0-.,3##45Cge *genv *gopts  *gfilenameflanguage/tree-il.scm R  R 6  S ! S ) S * S  * gnamegtree-il->schemeCR28@GMRSXY]^_`defjkpqy{|}:h`' ]"("$ L6&45L4L4L556&45L4L4L556&45L4L4L556&4 5L4L4L556 &?4 54 54 5L4L4L4L4L55556&+4545L4L4L556&45L4L4L556&/454L5L$ 4L5"6&`454545L$"4L4L4L4L5555"4L4L4L5556&/4545L4L4L4L5556&/4545L4L4L4L5556&/4 54!5L4L4L4L5556"&/4#54$5L4L4L4L5556%&?4&54'54(5L4L4L4L4L55556)&?4*54+54,5L4L4L4L4L55556-&4.5L4L4L556/&/405415L4L4L4L55562&?435445455L4L4L4L4L555566&?475485495L4L4L4L4L55556L6 gtree  ]gresult  ]grtd  ! ]gexp  2 Jgexp  Y qgexp  gexp  gtest  g consequent  g alternate  gproc   9gargs   9gexps  H `gbody  o gresult  z ginits   gbody   g alternate   gvals   6gbody   6gvals  L mgbody  L mgvals   gbody   gexp   gbody   gbody   "gwinder   "gunwinder   "gfluids  ? igvals  ? igbody  ? igfluid  x gfluid   gexp   gtag   gbody   ghandler   gtag  + Ugargs  + Ugtail  + U)gfilenameflanguage/tree-il.scm `   b  b  b   b   c  ! d  9 f  > f  H f  J f R d  ` h  e h  o h  q h y d  j  j  j  j d  l  l  l  l d  n  o  p p +  p  o   n   n  d  % r  , r  - r + 7 r  9 r A d  O t  T t  ^ t  ` t h d  r v  z v  x   y   w  d   |   }   ~   ~ )  ~ 5  ~ )  ~   }       #   /   #     |  d     #   (  2   4   6  > d  U   Z   _  i   k   m  u d                   d          )          d            +         "  * d  J   O   T  Y  - c  e   g   i  q d             d          *          d          $   *   $          d  6   ;   @  * E  4 O  * Q   S   U  ]    ] gnamegloopCh |] OQ6tgleaf  gdown  gup   gseed   gtree   gloop  gfilenameflanguage/tree-il.scm X `   gnameg tree-il-foldg documentationfTraverse TREE, calling LEAF on each leaf encountered, DOWN upon descent into a sub-tree, and UP when leaving a sub-tree. Each of these procedures is invoked as `(PROC TREE SEED)', where TREE is the sub-tree or leaf considered and SEED is the current result, intially seeded with SEED. This is an implementation of `foldts' as described by Andy Wingo in ``Applications of fold to XML transformation''.CR4    "$'&)+-502487:=<A@DCFHJNLMRQUTW[YZ^]`9hB]     45  !" ## $ %  ##&'#('#)'#*#+#,-./'#012134#564 78 C:gdummy  gseed     CPQh(] 45$@6gx  "gtmp "gfilenameflanguage/tree-il.scm    " g macro-typeg syntax-rulesgpatternsgseedg...C5R`decY]^_2867@GDEFMRQSXWkpqy{|fj}Eh]!&Z45454454L5>"G4454L5>"G"Y&45454 54454L5>"G4454L5>"G44 54L5>"G" &R4 54 >"G4 >"G44 54L5>"G"u&d454>"G4>"G4>"G4454L5>"G" &@454>"G4454L5>"G"&@454>"G4454L5>"G"y&845$"4454L5>"G""9&y454545H4LJ5K4454L5>"G$"4454L5>"G""&04 544 54L5>"G"!&l4"54#54$>"G44"54L5>"G44#54L5>"G" %&l4&54'54(>"G44&54L5>"G44'54L5>"G")&l4*54+54,>"G44*54L5>"G44+54L5>"G"$-&X4.54/544.54L5>"G44/54L5>"G"0&41542543544154L5>"G44254L5>"G44354L5>"G":4&45546547544554L5>"G44654L5>"G44754L5>"G"8&.49544954L5>"G"v:&X4;54<544;54L5>"G44<54L5>"G"=&4>54?54@544>54L5>"G44?54L5>"G44@54L5>"G"A&4B54C54D544B54L5>"G44C54L5>"G44D54L5>"G"4L5$CCgx  grtd  gproc   egargs   egtest  g consequent  g alternate  gexp   Igexp  \ gexp   gexp   Egbody  X ginits   gbody   g alternate   gexps   >gvals  X gbody  X gvals   &gbody   &gvals  @ gbody  @ gexp   gbody   gbody   gwinder   gunwinder   gfluids   gvals   gbody   gfluid  % Hgfluid  b gexp  b gtag   2gbody   2ghandler   2gtag  S gargs  S gtail  S gt  (gfilenameflanguage/tree-il.scm      "   ,  " 7   @   J  " W   q      "      (      '     )   3  ! >   U                   "       %   /  % :   Q   `   a  k  ! v                "           +         &   3   J   o   y                                    2   W   a   n   w             "   "  "   #   # !  #     " &  , &  7 &  @ '  J ' U '  ^ (  h ( " s (      +   +   +   ,   ,   ,   -   -   -     ( 0  2 0  = 0  T   g 3  q 3  | 3   4   4   4      7   7   7   8   8   8   9   9 ! 9  >   Z <  d <  o <  x =   =   =   >   >   >   B   B    gnameglpCh] OQ6gf  gx  glp  gfilenameflanguage/tree-il.scm      gnameg post-order!CR`decY]^_28@GMRSXkpqy{|fj};h0])4L5$"&Z45454454L5>"G4454L5>"G"&45454 54454L5>"G4454L5>"G44 54L5>"G" &.4 544 54L5>"G" &.4 544 54L5>"G"&.454454L5>"G"y&.454454L5>"G"C&845$"4454L5>"G""&y454545H4LJ5K4454L5>"G$"4454L5>"G""&0454454L5>"G"J&Z45454454L5>"G4454L5>"G"&Z45454454L5>"G4454L5>"G" &Z4!54"544!54L5>"G44"54L5>"G"$#&X4$54%544$54L5>"G44%54L5>"G"&&4'54(54)544'54L5>"G44(54L5>"G44)54L5>"G":*&4+54,54-544+54L5>"G44,54L5>"G44-54L5>"G".&.4/544/54L5>"G"v0&X41542544154L5>"G44254L5>"G"3&44545546544454L5>"G44554L5>"G44654L5>"G"7&4854954:544854L5>"G44954L5>"G44:54L5>"G"Cgx  0gt gx  0grtd  ! -gproc  9 gargs  9 gtest   g consequent   g alternate   gexp   Agexp  T wgexp   gexp   gbody   #ginits  D gbody  D g alternate  D gexps   gvals   >gbody   >gvals  X gbody  X gvals   gbody   gexp   bgbody   bgbody   gwinder   gunwinder   gfluids   zgvals   zgbody   zgfluid   gfluid   gexp   gtag  1 gbody  1 ghandler  1 gtag   &gargs   &gtail   &)gfilenameflanguage/tree-il.scm E   F  F  F  ! G  > I H I $ S I \ J f J $ s J G  M M $ M N N * N O O ) O  G  ! R + R # 6 R M G  W U a U " l U  G   X  X $  X  G   [  [ '  [  G   ^  _  _ #  _ / G  K b  U b V c ` c $ k c y d z d   d 7  d   G   g  g !  g  G   j  j   j  k % k  0 k J G  ] n g n  t n } o  o   o  G   r  r   r  s  s   s  G  ! v + v " 6 v ? w I w # T w n G   z  z  z  {  { "  {  |  | $  |  G      ! +  4  >   K  T  ^   i   G         G                G  8  B   M  V  `   k  t  ~  "    G                         0 gnameglpCh] OQ6gf  gx  glp  gfilenameflanguage/tree-il.scm D E    gnameg pre-order!CRdefh]444555 Cgx  gfilenameflanguage/tree-il.scm         $            gnamegstruct-nfieldsCgRgh]$T$K&?"- $C45$ "C45"CC$$$45$ 6CCCga  gb  gn   Kgt  " Kgfilenameflanguage/tree-il.scm                     !   "  .   5   :  0 <   @   C   I   K  L   S   Y  `   d   g  k   l  q   t   v  z          $  gnameg tree-il=?CR4h4iijh[]6Sgvar  gfilenameflanguage/tree-il.scm      Cklh[]6Sgvar  gfilenameflanguage/tree-il.scm      CPQh(h] 4?$@6`gx  #gtmp  #gfilenameflanguage/tree-il.scm    # C55hRgmln oh0]:"t4545 $C";$/4L5  5"C4  5""45 $C4L5  54L5  54L5  5C$"$"V6gexp  0gdepth  0gs   zglen   zgh   zgi  * egh  * egh1  C Zgl  ~  gh   gh1  gl   gh   gh1  gl   gh   gh1   gfilenameflanguage/tree-il.scm                        #  *   /   3   6   7  $ >  . A  ? C  $ C   K   L   Q   R   T  2 U   V   W   b   e   f   m   p   z   ~                    '  /              2              '  /              2              '  /                 2                         (   0  [  0 gnameghash-expCh] OQ 6gexp  ghash-exp gfilenameflanguage/tree-il.scm       gnameg tree-il-hashCRCgm  ,gfilenameflanguage/tree-il.scm   B n e r    R  X ֢   D   -  6      C62.0/ccache/language/ecmascript/parse.go000064400000432222151463412640013642 0ustar00GOOF----LE-8-2.0z4]z4ho] gguile  gdefine-module*   glanguage g ecmascript gparse  gfilenameS flanguage/ecmascript/parse.scm gimportsS gsystem gbase glalr    gtokenize    gexportsS gread-ecmascript gread-ecmascript/1 g make-parser  gset-current-module   gthrow g syntax-error g lexical-token !  "  #gand=> $g"source-location->source-properties %gmake-tokenizer &gmake-tokenizer/1 'gcall-with-input-string (f )g read-char *g *eof-object* +g lr-driver ,g *default* -g*error* .,- /g*eoi* 0/ % 1glbrace 21 $ 3glparen 43 # 5glbracket 65 " 7gdot 87 ! 9g semicolon :9  ;g+ <;  =g- >=  ?g++ @?  Ag-- BA  Cg! DC  Eg~ FE  Ggbreak HG  Ignew JI  Kgvar LK  Mgreturn NM  Ogvoid PO  Qgfor RQ  Sgswitch TS  Ugwhile VU  Wgcontinue XW  Ygfunction ZY  [gthis \[  ]gwith ^]  _gif `_  a  bgdelete cb  dgtry ed  fgdo gf  hgtypeof ih  jgnull kj  lgtrue ml  ngfalse on  pg Identifier qp  rg StringLiteral sr  tgNumericLiteral ut  vg RegexpLiteral wv  x.02468:<>@BDFHJLNPRTVXZ\^`acegikmoqsuw& y,  zy {,  |{ },  ~} ,  gcolon  P  ,   ,   ,   1 S Y R p Q .468<>@BDFJP\cikmosuw .2468:<>@BDFHJLNPRTVX\^`acegikmoqsuw% 1 W . 3 [ . 3 \ . ,   3 ^ p ] . 9 ` p _ . 3 a . 3 b . 3 c . 9 e .468<>@BDFJP\cikmosuw p g . .468J\kmosuw 9 m p l . ,   t t . grbracket  v gcomma  u .468<>@BDFJP\cikmosuw grbrace  ~ p } r | t { .2468:<>@BDFHJLNPRTVX\^`acegikmow& ,   9    . ,   , .  , 2 gor   g?    , 6 g&&    , : gbor    , > g^    , B g&    , F g==   g!=   g===   g!==    , P g<   g>   g<=   g>=   g instanceof   gin    , ] g<<   g>>   g>>>    , a =  ;   , d g*   g%   g/    , h  , r  , u  ?   A   g=     g+=   g-=   g*=   g%=   g<<=   g>>=   g>>>=   g&=   gbor=   g^=    !g/= "!  #    " $, v %3  &5  '7  ($%&' ), w *) +,  ,5  -7  .+%,- /,  0/ 1,  21 3,  43 5,  65 7,  87 9,  :9 ;,  <; =,  >= ?,  @? A,  BA C,  DC E,  FE G,  HG I,  JI K,  LK M,  NM O,  PO Q,  RQ S,  TS2468:<>@BDFHJLNPRTVXZ\^`acegikmoqsuw% U,  VU W,  XW Y,  ZY [/  \.[ ] ^p  _.^ `p  ar  bt  c.`ab d, o ed f   gU  h.g igfinally ji  kgcatch lk  m.jl n, q on p9  q.p r3  s.r tgrparen ut  vp  w.uv x9  y.x z,  {z |9  }K  ~.468|<>@BDFJ}P\cikmosuw , p  ,   9  . ,     ,   ,     ,   9  . ,   , j  , i  , m  , n  , k  , l  ,   ,   ,   ,       .468<>@BDFJP\cikmosuw     . t  .   {   } ,     .     .   .2468:<>@BDFHJLNPRTVX\^`acegikmoqsuw& ,   ,   , (  ,   ,   , !  , "  , #  , $  , '  , )  , %  , &  , *  , s  , t  p  . t  .468<>@BDFJP\cikmosuw , ~  p  . ,   ,   ,  gaccept /  ,   3   . ,   ,   ,   3   . 3   . ,   ,  j ,   t  . t  . t  .v ,   1   .  t      .    ,    t  . t  . p  . 9  .468<>@BDFJP\cikmosuw 9    . ,   , ,  , 0      !  ", 4 #   $"# %, 8 & ! '%& (, < ) " *() +, @ , # -+, ., D / ' 0 & 1 % 2 $ 3./012 4, K 5 , 6 + 7 * 8 ) 9 ( :456789 ;, V <; = - >    "= ?,  @? A,  BA C,  DC E,  FE G,  HG I,  JI K,  LK M 1 N.46M8<>@BDFJP\cikmosuw O,  PO Q,  RQ S.`ab T,  UT V,  WV X,  YX Z,  [Z \ 6 ].\ ^, 5 _^ `, 9 a` b, = cb d, A ed f, E gf h, L ih j, M kj l, N ml n, O on p, X qp r, W sr t, Y ut v, Z wv x, [ yx z, \ {z |, ^ }| ~, _ ~ , `  , b  , c  , f  , e  , g  , -  , |   7 . , {  , y  t 9  8 . ,    : . t ; .v p > . ,   ,   1 A . t B .  ,  2468:<>@BDFHJLNPRTVXZ\^`acegikmoqsuw% p E . 1 F . 1 H . ,   ,   K  9 M  L . t N .468<>@BDFJP\cikmosuw 9 P . 9 S .468<>@BDFJP\cikmosuw ,   ,   ,   ,    f .468<>@BDFJP\cikmosuw ,    h . , }  , z  ,   1 k . t l .  t m . t n . ,  gelse  o  ,   1 q .  r . ,  2468:<>@BDFHJLNPRTVXZ\^`acegikmoqsuw% ,   ,    v gcase  u gdefault  t . ,   ,   9 | .468<>@BDFJP\cikmosuw t  . t  .468<>@BDFJP\cikmosuw ,   t  .468<>@BDFJP\cikmosuw 9  .   . , 3 # , 7 & , ; )  , ?   ,  , C   /012  , G  56789 , H 56789 , I 56789 , J 56789 , Q  , R  , S  , T  , U  t   . !, + "! #,  $# %,  &% ', 1 (' ), x *) +1  ,.+ -9  ..- /  0./ 1,  21 3  4.3 5  6.5 7,  87 9  :.9 ;,  <; =  >.= ?t  @.? A,  BA Ct  D.4C68<>@BDFJP\cikmosuw E9  F.E G,  HG It  J.I Kt  L.K Mt  N.4M68<>@BDFJP\cikmosuw O,  PO Q  R.Q S,  TS U,  VU W,  XW Y,  Z  [  \!  ]  ^  _  `  a  b  c  d  e  f  g  h  i  j  k  l  m  n  o  p  q  r  s  t  u  v  w  x  y  z  {  |  }YZ[\]^_`abcdefghijklmnopqrstuvwxyz{|$ ~  .~ ,   ,  2468:<>@BDFHJLNPRTVX\^`acegikmoqsuw%   . ,     . ,     . ,   t  . t  .468<>@BDFJP\cikmosuw ,   ,   ,   t  . , /  ,   ,     . ,      !                                                                  $ ,  2468:<>@BDFHJLNPRTVX\^`acegikmoqsuw% ,  2468:<>@BDFHJLNPRTVX\^`acegikmoqsuw% ,   ,   ,   ,   t  . ,   ,   ,   ,   ,  2468:<>@BDFHJLNPRTVX\^`acegikmoqsuw% ,   ,   ,   ,   xz|~#(*.02468:<>@BDFHJLNPRTVXZ\]_cefhmoqswy{~.  !$'*-3:<>@BDFHJLNPRSUWY[]_acegikmoqsuwy{}#   "$&(*,.02468:<>@BDFHJLNPRTVX}  I &  F '  D (  B )  @ *  > +  < ,  : -  8 .  6 /  5 0  4 1  3 2  2 3  1 4  0 5  - 6  , 7  + 8  ( 9  % :  $ ;  ! <  =   >   ?   @   A   B   C   D   E   F   G  H  I   J   K   L   M   N  O      *  2 T  0 U     V      &  X   2 Y    I Z   2 d !   " I f #" $  h % i &$% ' , j ( + k )'( * 2 n +*  , 2 o -,  . 2 p /.  0 2 q 10  2 2 r 32  4 2 s 54  6 F w 7 ' x 8 & y 9678 : I z ;: < *  = )  >  ?   @<=    > ?) A H  BA C .  DC E .  FE G   H     G( I   J     I& K<= L    > ?' M #  N "  OMN P I  QP R I  SR T  Ō UT V I nj WV X I Ȍ YX Z J ˌ [ G ̌ \ E ͌ ] C Ό ^ A ό _ ? Ќ ` = ь a ; Ҍ b 9 ӌ c 7 Ԍ d 5 Ռ e 0 ֌ fZ[\]^_`abcde g  ٌ hg i . ی ji k F ߌ lk m  猤 n     m& o F 茤 po q F 錤 rq s @ ꌤ ts u > 댤 vu w < 쌤 xw y : 팤 zy { 8  |{ } 6  ~}  6    6    6    5     5     5     5     5     5     3     3     3     3     3     2     2     2     F    I    F   /    I        #               I    H .   F /    0   F 2  ' 3   F 4   * 5    <   I =    ?      &   @      &   C   D      *   G      &   I    J   I O   G Q  0 R \]^_`abcd  I T   G U \]^_`abcd  A V _`abcd  ? W `abcd  = X abcd  ; Y bcd  9 Z cd  7 [ d  7 \ d  7 ] d  7 ^ d  5 _    5 `    5 a    5 b    5 c    I d   G e \]^_`abcd  F g   F i   F j    p      *   s      *   w   x   y    I z      {     I }    ~      &  I    I    F           *            &         *  I  !  "   #" $   %   &$% ' I  (' )   *     )& +   ,     +& -   .     -& / I  0/ 1 G  21\]^_`abcd 3   4     3& 5   6     5* 7  8    7 ?' 9% :   ;     :& <   =     <& > I  ?> @   A     @& B   C     B& D   E     D& F  G    F ?' H   I     H& J   K     J& L   M     L& N   O     N& Pglambda Qgappend RQ SQ Tgbegin UT Vgblock Wgfor-in Xgref YW ZG [M \ ]glabel ^ _gstring `gregexp agnumber bgstring->number cg string-append df. egnumber->string fgarray gf hgunquote-splicing ig$2 jhi kfj la  ml ngobject on pgstring->symbol qgaref rgpref s tgcall ugpostinc vgpostdec wgpreinc xgpredec ygandC5h]4    54>"G"#$hp-.,3#" 6$<&/4 5 $" 6""gmessage mgtoken mgt  M bgfilenameflanguage/ecmascript/parse.scm   ! & !  &   )   -   0   :  >  D   H  M   M  _   e   m gnameg syntax-errorCR%h] 45456gport  gparse  gfilenameflanguage/ecmascript/parse.scm #  $   $  %  %    gnamegread-ecmascriptCR&h] 45456gport  gparse  gfilenameflanguage/ecmascript/parse.scm '  (   (  )  )    gnamegread-ecmascript/1CR4'i()i5*R+!#&)+-/1359;@BDFHJKLOQSUWYfhjlnprtvxz|~   !#&(*,.024689;=?ACEGIKMO"h]$&  ""$&  "" $&  ""$&  ""Cg___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M g$1  p   C"hX]$&  ""$&  "" 6g___stack  Tg___sp  Tg ___goto-table   Tg___push   Tg yypushback   Tgtok   Tg$1  + T  T C"*hP] $&  ""$&  "" 6g___stack  Og___sp  Og ___goto-table   Og___push   Og yypushback   Ogtok   O  O C"hX]$&  ""$&  "" 6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"hX]$&  ""$&  "" 6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"KPhp]M$&  ""$&  "" $&  ""$&  "" $&  ""$&  ""   $ &  "" $ &  ""   $ &  "" $ &  ""   $ &  " "   $ &  ""   $ &  "" $ &  ""    6hg___stack   g___sp   g ___goto-table    g___push    g yypushback    gtok    gtok  M  g$6  p  gtok   gtok  gtok !  gtok f  g$2   gtok   gfilenameflanguage/ecmascript/parse.scm  K Y   C"KPh`]]$&  ""$&  "" $&  ""$&  "" $&  ""$&  ""   $ &  "" $ &  ""   $ &  " "   $ &  ""   $ &  "" $ &  ""   $ &  " "  $ &  "" $&  ""$&  ""    6g___stack  Zg___sp  Zg ___goto-table   Zg___push   Zg yypushback   Zgtok   Zgtok  M Zg$7  p Zgtok  Zgtok Zgtok ! Zg$4 D Zgtok k Zgtok  Zg$2   Zgtok   Zgfilenameflanguage/ecmascript/parse.scm ? L m  Z C"PhK]=$&  ""$&  "" $&  ""$&  "" $&  ""$&  ""   $ &  "" $ &  ""   $ &  "" $ &  ""   $ &  "" $ &  ""   6Cg___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M g$5  p gtok  gtok gtok ! gtok f  gfilenameflanguage/ecmascript/parse.scm  M M   C"Ph^]E$&  ""$&  "" $&  ""$&  "" $&  ""$&  ""   $ &  "" $ &  ""   $ &  "" $ &  ""   $ &  "" $ &  ""   $ &  "" $ &  ""   6Vg___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M g$6  p gtok  gtok gtok ! gtok f gtok   gfilenameflanguage/ecmascript/parse.scm  N X   C"Php]M$&  ""$&  "" $&  ""$&  "" $&  ""$&  ""   $ &  "" $ &  ""   $ &  " "   $ &  ""   $ &  "" $ &  ""   $ &  "" $ &  ""    6hg___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M g$6  p gtok  gtok gtok ! g$3 D gtok k gtok  gfilenameflanguage/ecmascript/parse.scm  O a   C"PhP]U$&  ""$&  "" $&  ""$&  "" $&  ""$&  ""   $ &  "" $ &  ""   $ &  " "   $ &  ""   $ &  "" $ &  ""   $ &  "" $ &  "" $&  ""$&  ""    6{g___stack  Kg___sp  Kg ___goto-table   Kg___push   Kg yypushback   Kgtok   Kgtok  M Kg$7  p Kgtok  Kgtok Kgtok ! Kg$4 D Kgtok k Kgtok  Kgtok   Kgfilenameflanguage/ecmascript/parse.scm : P l  K C"hX]$&  ""$&  "" 6g___stack  Xg___sp  Xg ___goto-table   Xg___push   Xg yypushback   Xgtok   Xg$1  + Xgfilenameflanguage/ecmascript/parse.scm T Q '  X C"Sh$]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  4 56g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm R A  C"hX]$&  ""$&  "" 6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"TSha]%$&  ""$&  "" $&  ""$&  ""  " "0$%&45"""" 6Yg___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$2  + gtok  R g$1  u  gfilenameflanguage/ecmascript/parse.scm V 9 T 4 T = T 4 T M T V T 8 U 9 U C U 9  C"hX]$&  ""$&  "" 6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U CUh]  6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gfilenameflanguage/ecmascript/parse.scm X    C"hX]$&  ""$&  "" 6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"hX]$&  ""$&  "" 6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"hX]$&  ""$&  "" 6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"hX]$&  ""$&  "" 6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"hX]$&  ""$&  "" 6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"hX]$&  ""$&  "" 6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"hX]$&  ""$&  "" 6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"hX]$&  ""$&  "" 6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"hX]$&  ""$&  "" 6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"hX]$&  ""$&  "" 6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"hX]$&  ""$&  "" 6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"hX]$&  ""$&  "" 6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"hX]$&  ""$&  "" 6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"hX]$&  ""$&  "" 6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"Vh]%$&  ""$&  "" $&  ""$&  "" $&  ""$&  ""  6 g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M g$2  p gtok   gfilenameflanguage/ecmascript/parse.scm i *  C"hX]$&  ""$&  "" 6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"TSha]%$&  ""$&  "" $&  ""$&  ""  " "0$%&45"""" 6Yg___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$2  + gtok  R g$1  u  gfilenameflanguage/ecmascript/parse.scm m 3 k . k 7 k . k G k P k 2 l 3 l = l 3  C"Kh]$&  ""$&  "" $&  ""$&  ""   6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$2  + gtok  R gfilenameflanguage/ecmascript/parse.scm o 6  C"hX]$&  ""$&  "" 6g___stack  Xg___sp  Xg ___goto-table   Xg___push   Xg yypushback   Xgtok   Xg$1  + Xgfilenameflanguage/ecmascript/parse.scm T p 4  X C"Sh$]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  4 56g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M g$2  p gtok  g$1  gfilenameflanguage/ecmascript/parse.scm q R  C"hX]$&  ""$&  "" 6g___stack  Xg___sp  Xg ___goto-table   Xg___push   Xg yypushback   Xgtok   Xg$1  + Xgfilenameflanguage/ecmascript/parse.scm T r <  X C"Sh$]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  4 56g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M g$2  p gtok  g$1  gfilenameflanguage/ecmascript/parse.scm s ^  C"hX]$&  ""$&  "" 6g___stack  Xg___sp  Xg ___goto-table   Xg___push   Xg yypushback   Xgtok   Xg$1  + Xgfilenameflanguage/ecmascript/parse.scm T t '  X C"h]%$&  ""$&  "" $&  ""$&  ""   6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$2  + gtok  R g$1  u  gfilenameflanguage/ecmascript/parse.scm u 3  C"hX]$&  ""$&  "" 6g___stack  Xg___sp  Xg ___goto-table   Xg___push   Xg yypushback   Xgtok   Xg$1  + Xgfilenameflanguage/ecmascript/parse.scm T v +  X C"h]%$&  ""$&  "" $&  ""$&  ""   6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$2  + gtok  R g$1  u  gfilenameflanguage/ecmascript/parse.scm w 7  C"h]$&  ""$&  "" $&  ""$&  ""   6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$2  + gtok  R   C"h]$&  ""$&  "" $&  ""$&  ""   6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$2  + gtok  R   C"UhP] $&  ""$&  "" 6g___stack  Pg___sp  Pg ___goto-table   Pg___push   Pg yypushback   Pgtok   Pgfilenameflanguage/ecmascript/parse.scm L { !  P C"h]$&  ""$&  "" $&  ""$&  ""   6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M g$1  p   C"_h]U$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""   $ &  "" $ &  ""   $ &  " "   $ &  ""   $ &  "" $ &  "" $&  ""$&  ""     6zg___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$7  + gtok  R gtok  g$5 gtok gtok & g$3 I gtok p gtok   gfilenameflanguage/ecmascript/parse.scm   I   C"_hxK]=$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""   $ &  "" $ &  ""   $ &  "" $ &  ""   6Cg___stack  vg___sp  vg ___goto-table   vg___push   vg yypushback   vgtok   vg$5  + vgtok  R vgtok  vg$3 vgtok vgtok & v gfilenameflanguage/ecmascript/parse.scm k :  v C"fhr]M$&  ""$&  "" $&  ""$&  "" $&  ""$&  ""   $ &  "" $ &  ""   $ &  "" $ &  ""   $ &  " "   $ &  ""   $ &  "" $ &  ""    6jg___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M gtok  g$5  gtok gtok ! gtok f g$2  gtok  gfilenameflanguage/ecmascript/parse.scm  Q   C"UhxK]=$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""   $ &  "" $ &  ""   $ &  "" $ &  ""   6Cg___stack  vg___sp  vg ___goto-table   vg___push   vg yypushback   vgtok   vg$5  + vgtok  R vgtok  vg$3 vgtok vgtok & v gfilenameflanguage/ecmascript/parse.scm k D  v C"QhL]=$&  ""$&  "" $&  ""$&  "" $&  ""$&  ""   $ &  "" $ &  ""   $ &  "" $ &  ""   $ &  "" $ &  ""   6Dg___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$6  + gtok  R gtok  gtok gtok ! gtok f  gfilenameflanguage/ecmascript/parse.scm  K   C"Qhq]M$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""   $ &  "" $ &  ""   $ &  "" $ &  ""   $ &  "" $ &  ""   $ &  "" $ &  ""    6ig___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$7  + gtok  R gtok  g$5 gtok gtok & gtok k gtok  gfilenameflanguage/ecmascript/parse.scm  V   C"Qhq]M$&  ""$&  "" $&  ""$&  "" $&  ""$&  ""   $ &  " "   $ &  ""   $ &  "" $ &  ""   $ &  "" $ &  ""   $ &  "" $ &  ""    6ig___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$7  + gtok  R gtok  gtok g$4 gtok & gtok k gtok  gfilenameflanguage/ecmascript/parse.scm  V   C"QhX]]$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""   $ &  "" $ &  ""   $ &  " "   $ &  ""   $ &  "" $ &  "" $&  ""$&  "" $&  ""$&  ""     6g___stack  Sg___sp  Sg ___goto-table   Sg___push   Sg yypushback   Sgtok   Sg$8  + Sgtok  R Sgtok  Sg$6 Sgtok Sgtok & Sg$4 I Sgtok p Sgtok   Sgtok   Sgfilenameflanguage/ecmascript/parse.scm ? a  S C"Qhq]M$&  ""$&  "" $&  ""$&  "" $&  ""$&  ""   $ &  "" $ &  ""   $ &  " "   $ &  ""   $ &  "" $ &  ""   $ &  "" $ &  ""    6ig___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$7  + gtok  R gtok  gtok gtok ! g$3 D gtok k gtok  gfilenameflanguage/ecmascript/parse.scm  Z   C"QhX]]$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""   $ &  "" $ &  ""   $ &  "" $ &  ""   $ &  " "   $ &  "" $&  ""$&  "" $&  ""$&  ""     6g___stack  Sg___sp  Sg ___goto-table   Sg___push   Sg yypushback   Sgtok   Sg$8  + Sgtok  R Sgtok  Sg$6 Sgtok Sgtok & Sgtok k Sg$3  Sgtok   Sgtok   Sgfilenameflanguage/ecmascript/parse.scm ? e  S C"QhX]]$&  ""$&  "" $&  ""$&  "" $&  ""$&  ""   $ &  " "   $ &  ""   $ &  "" $ &  ""   $ &  " "   $ &  "" $&  ""$&  "" $&  ""$&  ""     6g___stack  Sg___sp  Sg ___goto-table   Sg___push   Sg yypushback   Sgtok   Sg$8  + Sgtok  R Sgtok  Sgtok Sg$5 Sgtok & Sgtok k Sg$3  Sgtok   Sgtok   Sgfilenameflanguage/ecmascript/parse.scm ? e  S C"Qh]m$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""   $ &  "" $ &  ""   $ &  " "   $ &  ""   $ &  "" $ &  "" $&  ""$&  "" $&  ""$&  "" $&  ""$&  ""    6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$9  + gtok  R gtok  g$7 gtok gtok & g$5 I gtok p gtok   g$3   gtok   gtok  D gfilenameflanguage/ecmascript/parse.scm  p   C"QKhP]U$&  ""$&  "" $&  ""$&  "" $&  ""$&  ""   $ &  "" $ &  ""   $ &  " "   $ &  ""   $ &  "" $ &  ""   $ &  "" $ &  "" $&  ""$&  ""    6|g___stack  Pg___sp  Pg ___goto-table   Pg___push   Pg yypushback   Pgtok   Pg$8  + Pgtok  R Pgtok  Pgtok Pgtok ! Pg$4 D Pgtok k Pgtok  Pgtok   Pgfilenameflanguage/ecmascript/parse.scm : k  P C"QKh]e$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""   $ &  "" $ &  ""   $ &  "" $ &  ""   $ &  " "   $ &  "" $&  ""$&  "" $&  ""$&  "" $&  ""$&  ""    6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$9  + gtok  R gtok  g$7 gtok gtok & gtok k g$4  gtok   gtok   gtok  ? gfilenameflanguage/ecmascript/parse.scm  v   C"QKh]e$&  ""$&  "" $&  ""$&  "" $&  ""$&  ""   $ &  " "   $ &  ""   $ &  "" $ &  ""   $ &  " "   $ &  "" $&  ""$&  "" $&  ""$&  "" $&  ""$&  ""    6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$9  + gtok  R gtok  gtok g$6 gtok & gtok k g$4  gtok   gtok   gtok  ? gfilenameflanguage/ecmascript/parse.scm  v   C"QKh]u$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""   $ &  "" $ &  ""   $ &  " "   $ &  ""   $ &  "" $ &  "" $&  ""$&  "" $&  ""$&  "" $&  ""$&  "" $&  ""$&  ""    6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$10  + gtok  R gtok  g$8 gtok gtok & g$6 I gtok p gtok   g$4   gtok   gtok  D gtok   gfilenameflanguage/ecmascript/parse.scm     C"Wh]U$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""   $ &  "" $ &  ""   $ &  " "   $ &  ""   $ &  "" $ &  "" $&  ""$&  ""     6{g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$7  + gtok  R gtok  g$5 gtok gtok & g$3 I gtok p gtok   gfilenameflanguage/ecmascript/parse.scm  \   C"TKWXhh]]$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""   $ &  "" $ &  ""   $ &  " "   $ &  ""   $ &  "" $ &  "" $&  ""$&  "" $&  ""$&  ""      6g___stack  ag___sp  ag ___goto-table   ag___push   ag yypushback   agtok   ag$8  + agtok  R agtok  ag$6 agtok agtok & ag$4 I agtok p agtok   agtok   agfilenameflanguage/ecmascript/parse.scm ? a  a C"Wh]%$&  ""$&  "" $&  ""$&  "" $&  ""$&  ""  6 g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M g$2  p gtok   gfilenameflanguage/ecmascript/parse.scm 8  C"Yh]$&  ""$&  "" $&  ""$&  ""   6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M gfilenameflanguage/ecmascript/parse.scm -  C"Gh]%$&  ""$&  "" $&  ""$&  "" $&  ""$&  ""  6 g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M g$2  p gtok   gfilenameflanguage/ecmascript/parse.scm 2  C"Zh]$&  ""$&  "" $&  ""$&  ""   6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M gfilenameflanguage/ecmascript/parse.scm '  C"Mh]%$&  ""$&  "" $&  ""$&  "" $&  ""$&  ""  6 g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M g$2  p gtok   gfilenameflanguage/ecmascript/parse.scm 4  C"[h]$&  ""$&  "" $&  ""$&  ""   6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M gfilenameflanguage/ecmascript/parse.scm )  C"]hxK]=$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""   $ &  "" $ &  ""   $ &  "" $ &  ""   6Cg___stack  vg___sp  vg ___goto-table   vg___push   vg yypushback   vgtok   vg$5  + vgtok  R vgtok  vg$3 vgtok vgtok & v gfilenameflanguage/ecmascript/parse.scm k >  v C"ShxK]=$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""   $ &  "" $ &  ""   $ &  "" $ &  ""   6Cg___stack  ug___sp  ug ___goto-table   ug___push   ug yypushback   ugtok   ug$5  + ugtok  R ugtok  ug$3 ugtok ugtok & u gfilenameflanguage/ecmascript/parse.scm k B  u C"h]$&  ""$&  "" $&  ""$&  ""   6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M gfilenameflanguage/ecmascript/parse.scm   C"h]%$&  ""$&  "" $&  ""$&  "" $&  ""$&  ""  6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M g$2  p gtok     C"Sh88]5$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""   $ &  "" $ &  ""  4 5 60g___stack  7g___sp  7g ___goto-table   7g___push   7g yypushback   7gtok   7gtok  M 7g$3  p 7gtok  7g$2 7gtok 7 gfilenameflanguage/ecmascript/parse.scm % :  7 C"h]%$&  ""$&  "" $&  ""$&  "" $&  ""$&  ""  6 g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M g$2  p gtok   gfilenameflanguage/ecmascript/parse.scm .  C"Sh88]5$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""   $ &  "" $ &  ""  4 5 60g___stack  7g___sp  7g ___goto-table   7g___push   7g yypushback   7gtok   7gtok  M 7g$3  p 7gtok  7g$2 7gtok 7 gfilenameflanguage/ecmascript/parse.scm % :  7 C"hX]$&  ""$&  "" 6g___stack  Xg___sp  Xg ___goto-table   Xg___push   Xg yypushback   Xgtok   Xg$1  + Xgfilenameflanguage/ecmascript/parse.scm T   X C"Sh]%$&  ""$&  "" $&  ""$&  ""  45 6 g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$2  + gtok  R g$1  u  gfilenameflanguage/ecmascript/parse.scm +  C"h]%$&  ""$&  "" $&  ""$&  "" $&  ""$&  ""  6 g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M g$2  p gtok   gfilenameflanguage/ecmascript/parse.scm )  C"h88]5$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""   $ &  "" $ &  ""    60g___stack  7g___sp  7g ___goto-table   7g___push   7g yypushback   7gtok   7g$4  + 7gtok  R 7gtok  7g$2 7gtok 7 gfilenameflanguage/ecmascript/parse.scm & 7  7 C"\h]$&  ""$&  "" $&  ""$&  ""   6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M gfilenameflanguage/ecmascript/parse.scm $  C"h]%$&  ""$&  "" $&  ""$&  "" $&  ""$&  ""  6 g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok   gfilenameflanguage/ecmascript/parse.scm 2  C"]h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""   6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm 5  C"h]%$&  ""$&  "" $&  ""$&  "" $&  ""$&  ""  6 g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M g$2  p gtok   gfilenameflanguage/ecmascript/parse.scm 2  C"d^h$]-$&  ""$&  "" $&  ""$&  ""   $ &  "" $ &  ""  !6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R g$2  u gtok  gfilenameflanguage/ecmascript/parse.scm %  C"dh$]-$&  ""$&  "" $&  ""$&  ""   $ &  "" $ &  ""  !6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R g$2  u gtok  gfilenameflanguage/ecmascript/parse.scm '  C"dh@I]=$&  ""$&  "" $&  ""$&  ""   $ &  " "   $ &  ""   $ &  "" $ &  ""  !  6Ag___stack  >g___sp  >g ___goto-table   >g___push   >g yypushback   >gtok   >g$4  + >gtok  R >g$3  u >gtok >g$2 >gtok > gfilenameflanguage/ecmascript/parse.scm + -  > C"khxK]=$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""   $ &  "" $ &  ""   $ &  "" $ &  ""  " 6Cg___stack  vg___sp  vg ___goto-table   vg___push   vg yypushback   vgtok   vg$5  + vgtok  R vgtok  vg$3 vgtok vgtok & v gfilenameflanguage/ecmascript/parse.scm k 3  v C"ih]$&  ""$&  "" $&  ""$&  ""  # 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$2  + gtok  R gfilenameflanguage/ecmascript/parse.scm   C"[hP] $&  ""$&  "" $6g___stack  Pg___sp  Pg ___goto-table   Pg___push   Pg yypushback   Pgtok   Pgfilenameflanguage/ecmascript/parse.scm L   P C"jhP] $&  ""$&  "" $6g___stack  Pg___sp  Pg ___goto-table   Pg___push   Pg yypushback   Pgtok   Pgfilenameflanguage/ecmascript/parse.scm L   P C"lhP] $&  ""$&  "" $6g___stack  Pg___sp  Pg ___goto-table   Pg___push   Pg yypushback   Pgtok   Pgfilenameflanguage/ecmascript/parse.scm L   P C"nhP] $&  ""$&  "" $6g___stack  Pg___sp  Pg ___goto-table   Pg___push   Pg yypushback   Pgtok   Pgfilenameflanguage/ecmascript/parse.scm L   P C"Xh`]$&  ""$&  "" $6g___stack  Zg___sp  Zg ___goto-table   Zg___push   Zg yypushback   Zgtok   Zg$1  + Zgfilenameflanguage/ecmascript/parse.scm Q %  Z C"_h`]$&  ""$&  "" $6g___stack  Zg___sp  Zg ___goto-table   Zg___push   Zg yypushback   Zgtok   Zg$1  + Zgfilenameflanguage/ecmascript/parse.scm Q (  Z C"`h`]$&  ""$&  "" $6g___stack  Zg___sp  Zg ___goto-table   Zg___push   Zg yypushback   Zgtok   Zg$1  + Zgfilenameflanguage/ecmascript/parse.scm Q (  Z C"ah`]$&  ""$&  "" $6g___stack  Zg___sp  Zg ___goto-table   Zg___push   Zg yypushback   Zgtok   Zg$1  + Zgfilenameflanguage/ecmascript/parse.scm Q )  Z C"abcdehF]$&  ""$&  "" $&  ""$&  ""  $444555 6>g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$2  + gtok  R gfilenameflanguage/ecmascript/parse.scm - 7 G V Z G 7 -  C"hX]$&  ""$&  "" $6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"hX]$&  ""$&  "" $6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"h]%$&  ""$&  "" $&  ""$&  "" $&  ""$&  ""  $6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M g$2  p gtok     C"gh]$&  ""$&  "" $&  ""$&  ""  % 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M gfilenameflanguage/ecmascript/parse.scm '  C"kh]$&  ""$&  "" $&  ""$&  "" $&  ""$&  ""  %6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M gtok  gfilenameflanguage/ecmascript/parse.scm /  C"fh]%$&  ""$&  "" $&  ""$&  "" $&  ""$&  ""  %6 g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M g$2  p gtok   gfilenameflanguage/ecmascript/parse.scm 3  C"fh0']-$&  ""$&  "" $&  ""$&  "" $&  ""$&  ""   $ &  "" $ &  ""  % 6g___stack  .g___sp  .g ___goto-table   .g___push   .g yypushback   .gtok   .gtok  M .gtok  .g$2  .gtok . gfilenameflanguage/ecmascript/parse.scm ! 9  . C"fhp:]5$&  ""$&  "" $&  ""$&  "" $&  ""$&  "" $&  "" $&  ""   $ &  "" $ &  ""  % 62g___stack  mg___sp  mg ___goto-table   mg___push   mg yypushback   mgtok   mgtok  M mgtok  mgtok  mg$2 mgtok ! m gfilenameflanguage/ecmascript/parse.scm f A  m C"hX]$&  ""$&  "" &6g___stack  Xg___sp  Xg ___goto-table   Xg___push   Xg yypushback   Xgtok   Xg$1  + Xgfilenameflanguage/ecmascript/parse.scm T )  X C"Sh]%$&  ""$&  "" $&  ""$&  ""  &45 6 g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$2  + gtok  R g$1  u  gfilenameflanguage/ecmascript/parse.scm 1  C"Sh%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  &4 56g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm ;  C"ShHI]=$&  ""$&  "" $&  ""$&  ""   $ &  "" $ &  ""   $ &  " "   $ &  ""  &4 455 6Ag___stack  Fg___sp  Fg ___goto-table   Fg___push   Fg yypushback   Fgtok   Fg$4  + Fgtok  R Fg$3  u Fgtok Fgtok Fg$1  F gfilenameflanguage/ecmascript/parse.scm * C  F C"mhP] $&  ""$&  "" '6g___stack  Pg___sp  Pg ___goto-table   Pg___push   Pg yypushback   Pgtok   Pgfilenameflanguage/ecmascript/parse.scm L   P C"Smh]$&  ""$&  "" $&  ""$&  ""  '45 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M g$1  p gfilenameflanguage/ecmascript/parse.scm   C"oh]$&  ""$&  "" $&  ""$&  ""  ( 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M gfilenameflanguage/ecmascript/parse.scm $  C"nh]%$&  ""$&  "" $&  ""$&  "" $&  ""$&  ""  (6 g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M g$2  p gtok   gfilenameflanguage/ecmascript/parse.scm =  C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  ) 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm I  C"Sh]]E$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""   $ &  "" $ &  ""   $ &  " "   $ &  ""  )4  56Ug___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$5  + gtok  R gtok  g$3 gtok gtok & g$1 I  gfilenameflanguage/ecmascript/parse.scm o h   C"hX]$&  ""$&  "" *6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"ph`]$&  ""$&  "" *456g___stack  Zg___sp  Zg ___goto-table   Zg___push   Zg yypushback   Zgtok   Zg$1  + Zgfilenameflanguage/ecmascript/parse.scm P #  Z C"hX]$&  ""$&  "" *6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"hX]$&  ""$&  "" +6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"hX]$&  ""$&  "" +6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"qh88]5$&  ""$&  "" $&  ""$&  "" $&  ""$&  ""   $ &  " "   $ &  ""  +  60g___stack  7g___sp  7g ___goto-table   7g___push   7g yypushback   7gtok   7gtok  M 7g$3  p 7gtok  7gtok 7g$1 7 gfilenameflanguage/ecmascript/parse.scm & G  7 C"rh%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  + 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm 9  C"Ih$]-$&  ""$&  "" $&  ""$&  ""   $ &  "" $ &  ""  +6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R g$2  u gtok  gfilenameflanguage/ecmascript/parse.scm 8  C"hX]$&  ""$&  "" ,6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"Ish]$&  ""$&  "" $&  ""$&  ""  , 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$2  + gtok  R gfilenameflanguage/ecmascript/parse.scm (  C"th]%$&  ""$&  "" $&  ""$&  ""  - 6 g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$2  + gtok  R g$1  u  gfilenameflanguage/ecmascript/parse.scm 2  C"th]%$&  ""$&  "" $&  ""$&  ""  - 6 g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$2  + gtok  R g$1  u  gfilenameflanguage/ecmascript/parse.scm 0  C"qh88]5$&  ""$&  "" $&  ""$&  "" $&  ""$&  ""   $ &  " "   $ &  ""  -  60g___stack  7g___sp  7g ___goto-table   7g___push   7g yypushback   7gtok   7gtok  M 7g$3  p 7gtok  7gtok 7g$1 7 gfilenameflanguage/ecmascript/parse.scm & C  7 C"rh%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  - 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm 5  C"h]$&  ""$&  "" $&  ""$&  ""  . 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M gfilenameflanguage/ecmascript/parse.scm   C"h]%$&  ""$&  "" $&  ""$&  "" $&  ""$&  ""  .6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M g$2  p gtok     C"hX]$&  ""$&  "" /6g___stack  Xg___sp  Xg ___goto-table   Xg___push   Xg yypushback   Xgtok   Xg$1  + Xgfilenameflanguage/ecmascript/parse.scm T *  X C"Sh%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  /4 56g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm =  C"hX]$&  ""$&  "" 06g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"hX]$&  ""$&  "" 06g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"hX]$&  ""$&  "" 16g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"uh]$&  ""$&  "" $&  ""$&  ""  1 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M g$1  p gfilenameflanguage/ecmascript/parse.scm 4  C"vh]$&  ""$&  "" $&  ""$&  ""  1 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   gtok  M g$1  p gfilenameflanguage/ecmascript/parse.scm 4  C"hX]$&  ""$&  "" 26g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"bh]$&  ""$&  "" $&  ""$&  ""  2 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$2  + gtok  R gfilenameflanguage/ecmascript/parse.scm /  C"Oh]$&  ""$&  "" $&  ""$&  ""  2 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$2  + gtok  R gfilenameflanguage/ecmascript/parse.scm -  C"hh]$&  ""$&  "" $&  ""$&  ""  2 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$2  + gtok  R gfilenameflanguage/ecmascript/parse.scm /  C"wh]$&  ""$&  "" $&  ""$&  ""  2 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$2  + gtok  R gfilenameflanguage/ecmascript/parse.scm +  C"xh]$&  ""$&  "" $&  ""$&  ""  2 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$2  + gtok  R gfilenameflanguage/ecmascript/parse.scm +  C";h]$&  ""$&  "" $&  ""$&  ""  2 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$2  + gtok  R gfilenameflanguage/ecmascript/parse.scm *  C"=h]$&  ""$&  "" $&  ""$&  ""  2 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$2  + gtok  R gfilenameflanguage/ecmascript/parse.scm  *  C"Eh]$&  ""$&  "" $&  ""$&  ""  2 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$2  + gtok  R gfilenameflanguage/ecmascript/parse.scm  *  C"Ch]$&  ""$&  "" $&  ""$&  ""  2 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$2  + gtok  R gfilenameflanguage/ecmascript/parse.scm  *  C"hX]$&  ""$&  "" 36g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  3 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm  L  C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  3 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm  L  C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  3 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm  L  C"hX]$&  ""$&  "" 46g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C";h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  4 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm  I  C"=h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  4 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm  I  C"hX]$&  ""$&  "" 56g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  5 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm  D  C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  5 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm  D  C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  5 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm  E  C"hX]$&  ""$&  "" 66g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  6 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm  D  C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  6 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm  D  C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  6 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm  E  C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  6 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm  E  C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  6 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm  M  C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  6 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm  E  C"hX]$&  ""$&  "" 76g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  7 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm  L  C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  7 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm  L  C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  7 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm  M  C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  7 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm  M  C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  7 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm  U  C"hX]$&  ""$&  "" 86g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  8 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm " F  C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  8 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm # F  C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  8 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm $ G  C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  8 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm % G  C"hX]$&  ""$&  "" 96g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  9 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm ( R  C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  9 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm ) R  C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  9 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm * S  C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  9 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm + S  C"hX]$&  ""$&  "" :6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  : 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm . G  C"hX]$&  ""$&  "" ;6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  ; 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm 0 S  C"hX]$&  ""$&  "" <6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  < 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm 3 I  C"hX]$&  ""$&  "" =6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  = 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm 5 U  C"hX]$&  ""$&  "" >6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  > 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm 8 I  C"hX]$&  ""$&  "" ?6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  ? 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm : U  C"hX]$&  ""$&  "" @6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"yh%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  @ 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm = I  C"hX]$&  ""$&  "" A6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"yh%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  A 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm ? U  C"hX]$&  ""$&  "" B6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  B 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm B H  C"hX]$&  ""$&  "" C6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"h%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  C 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm D T  C"hX]$&  ""$&  "" D6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"_h]]E$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""   $ &  "" $ &  ""   $ &  " "   $ &  ""  D  6Ug___stack  }g___sp  }g ___goto-table   }g___push   }g yypushback   }gtok   }g$5  + }gtok  R }gtok  }g$3 }gtok }gtok & }g$1 I } gfilenameflanguage/ecmascript/parse.scm p G d  } C"hX]$&  ""$&  "" E6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"_h]]E$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""   $ &  "" $ &  ""   $ &  " "   $ &  ""  E  6Ug___stack  }g___sp  }g ___goto-table   }g___push   }g yypushback   }gtok   }g$5  + }gtok  R }gtok  }g$3 }gtok }gtok & }g$1 I } gfilenameflanguage/ecmascript/parse.scm p I t  } C"hX]$&  ""$&  "" F6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"h6]5$&  ""$&  "" $&  ""$&  ""   $ &  " "   $ &  ""  F 6.g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R g$2  u gtok g$1  gfilenameflanguage/ecmascript/parse.scm L \  C"hX]$&  ""$&  "" G6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"h6]5$&  ""$&  "" $&  ""$&  ""   $ &  " "   $ &  ""  G 6.g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R g$2  u gtok g$1  gfilenameflanguage/ecmascript/parse.scm N d  C" hP] $&  ""$&  "" H6g___stack  Pg___sp  Pg ___goto-table   Pg___push   Pg yypushback   Pgtok   Pgfilenameflanguage/ecmascript/parse.scm L O   P C"hP] $&  ""$&  "" H6g___stack  Pg___sp  Pg ___goto-table   Pg___push   Pg yypushback   Pgtok   Pgfilenameflanguage/ecmascript/parse.scm L P   P C"!hP] $&  ""$&  "" H6g___stack  Pg___sp  Pg ___goto-table   Pg___push   Pg yypushback   Pgtok   Pgfilenameflanguage/ecmascript/parse.scm L Q   P C"hP] $&  ""$&  "" H6g___stack  Pg___sp  Pg ___goto-table   Pg___push   Pg yypushback   Pgtok   Pgfilenameflanguage/ecmascript/parse.scm L R   P C" hP] $&  ""$&  "" H6g___stack  Pg___sp  Pg ___goto-table   Pg___push   Pg yypushback   Pgtok   Pgfilenameflanguage/ecmascript/parse.scm L S   P C"hP] $&  ""$&  "" H6g___stack  Pg___sp  Pg ___goto-table   Pg___push   Pg yypushback   Pgtok   Pgfilenameflanguage/ecmascript/parse.scm L T   P C"hP] $&  ""$&  "" H6g___stack  Pg___sp  Pg ___goto-table   Pg___push   Pg yypushback   Pgtok   Pgfilenameflanguage/ecmascript/parse.scm L U   P C"hP] $&  ""$&  "" H6g___stack  Pg___sp  Pg ___goto-table   Pg___push   Pg yypushback   Pgtok   Pgfilenameflanguage/ecmascript/parse.scm L V   P C"hP] $&  ""$&  "" H6g___stack  Pg___sp  Pg ___goto-table   Pg___push   Pg yypushback   Pgtok   Pgfilenameflanguage/ecmascript/parse.scm L W   P C"hP] $&  ""$&  "" H6g___stack  Pg___sp  Pg ___goto-table   Pg___push   Pg yypushback   Pgtok   Pgfilenameflanguage/ecmascript/parse.scm L X   P C"hP] $&  ""$&  "" H6g___stack  Pg___sp  Pg ___goto-table   Pg___push   Pg yypushback   Pgtok   Pgfilenameflanguage/ecmascript/parse.scm L Y   P C"hP] $&  ""$&  "" H6g___stack  Pg___sp  Pg ___goto-table   Pg___push   Pg yypushback   Pgtok   Pgfilenameflanguage/ecmascript/parse.scm L Z   P C"hX]$&  ""$&  "" I6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"Th%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  I 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm ] 9  C"hX]$&  ""$&  "" J6g___stack  Ug___sp  Ug ___goto-table   Ug___push   Ug yypushback   Ugtok   Ug$1  + U  U C"Th%]-$&  ""$&  "" $&  ""$&  "" $&  "" $&  ""  J 6g___stack  g___sp  g ___goto-table   g___push   g yypushback   gtok   g$3  + gtok  R gtok  g$1  gfilenameflanguage/ecmascript/parse.scm _ E  Czhq]      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvJwxyz{|}~''      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxy6igfilenameflanguage/ecmascript/parse.scm .  3    gnameg make-parserCRCgm  ,gfilenameflanguage/ecmascript/parse.scm      #  '  ,   ,   ,   +  .   C62.0/ccache/language/ecmascript/spec.go000064400000002132151463412640013453 0ustar00GOOF----LE-8-2.0B](4hm] gguile  gdefine-module*   glanguage g ecmascript gspec  gfilenameS flanguage/ecmascript/spec.scm gimportsS gsystem gbase    gparse   gcompile-tree-il    gexportsS  gset-current-module   ginvalidate-compilation-cache! g make-language gnameS gtitleS !f ECMAScript "greaderS #gread-ecmascript/1 $g compilersS %gtree-il &gprinterS 'gwriteC5h]4    54>"G4i>"G4i !"#h{]6sgport  genv  gfilenameflanguage/ecmascript/spec.scm   #   C$%i&'i5 RCxgm  ,gfilenameflanguage/ecmascript/spec.scm   -  K   !     C62.0/ccache/language/ecmascript/base.go000064400000047304151463412640013445 0ustar00GOOF----LE-8-2.0N]04h}] gguile  gdefine-module*   glanguage g ecmascript gbase  gfilenameS flanguage/ecmascript/base.scm gimportsS goop ggoops     gexportsS g *undefined* g*this* g  g*object-prototype* g js-prototype gjs-props g js-prop-attrs gjs-value gjs-constructor gjs-class gpget g prop-keys g prop-attrs gprop-has-attr? !gpput "g has-property? #gpdel $gobject->string %gobject->number &gobject->value/string 'gobject->value/number (g object->value )g ->primitive *g ->boolean +g->number ,g ->integer -g->int32 .g->uint32 /g->uint16 0g->string 1g->object 2g call/this* 3g call/this 4g lambda/this 5gdefine-js-method 6g new-object 7gnew 8 !"#$%&'()*+,-./01234567% 9gset-current-module :9 ;9 < ?g make-fluid @gdefined? A@ B@ Cgis-a? DC EC Fg  GF HF Igtoplevel-define! JI KI Lgensure-generic ML NL Og make-class Pg prototype QggetterS Rg init-keywordS Sg prototypeS Tg init-thunkS Ugprops Vg init-formS Wgmake-hash-table XW  Yg init-valueS Zgvalue [gvalueS \g constructor ]g constructorS ^gclass _fObject `gclassS agnameS bg cb db egmemq fg gf hf igclass-precedence-list ji ki lgclass-redefinition ml nl ogmake po qo rg add-method! sr tr ug vu wu xg specializersS ygformalsS zgo {z |gbodyS }ghash-map->list ~glambda gk gv  ~ z }  gmake-procedureS g procedureS g gp z gstring->symbol  z  g   glet gh ghashq-get-handle    gif gcdr  gproto z         gor gattrs z   gand g hashq-ref     gquote      gattr z z e  z gReadOnly   z gthrow gReferenceError  z g hashq-set!    !z  g DontDelete   z gbegin !z    #z  "     g with-fluid* gmake-syntax-transformer   gmacro g $sc-dispatch   g_ gany ጤ g syntax->datum   g datum->syntax   gsyntax-violation   f-source expression failed to match any pattern gthis g fluid-ref    gtoString gformat f [object ~A] gtoLocaleString gvalueOf ghasOwnProperty g isPrototypeOf gpropertyIsEnumerable gDontEnum g procedure? g TypeError g default-value gnumber? gnan? gstring? g string-length gboolean? e+nan.0 gstring->number ginf? ginexact->exact ground f undefined  fnull  ftrue  ffalse  fNaN  f0 fInfinity gnumber->string gBoolean gString gNumber gmap g slot-set! ginitargs z gctor z   gnot   7 z   !oS  "z! #" $gnew-o %gapply &3z% '$& (' )C$ *)$z +(* ,#+ -, .- /.C5h7]4    854;>"G4>5R4?i5R4B5$" 4EiH5$14K4N4B5$i"5>"G"4B5$" 4EiH5$14K4N4B5$i"5>"G"4B5$" 4EiH5$14K4N4B5$i"5>"G"4B5$" 4EiH5$14K4N4B5$i"5>"G"4B5$" 4EiH5$14K4N4B5$i"5>"G"4B5$" 4EiH5$14K4N4B5$i"5>"G""b4K4OiPQiRSThO]CGgfilenameflanguage/ecmascript/base.scm *    CUQiVXTWhP] 6Hgfilenameflanguage/ecmascript/base.scm  + '   CQiYZQiYR[\QiYR]^QiY_R`a5>"G"4B5$4Eid5$~4eih4ki55$`4ni4OiPQiRSThO]CGgfilenameflanguage/ecmascript/base.scm *    CUQiVXTWhP] 6Hgfilenameflanguage/ecmascript/base.scm  + '   CQiYZQiYR[\QiYR]^QiY_R`a5>"G"" """"4B5$"i$!4K4qHa5>"G"4ti4qwxiy{|}hn]Cfgk  gv  gfilenameflanguage/ecmascript/base.scm 2    Chn]456fgo  gfilenameflanguage/ecmascript/base.scm 1  2 #  2    C5 >"G4B5$"i$!4K4qHa5>"G"4ti4qwxiiy|h}]456ugo  gp  gfilenameflanguage/ecmascript/base.scm 4  5  5    C5 >"G4B5$"i$!4K4qHa5>"G"4ti4qwxiy|h8]4455$C45$6Cgo  6gp  6gh   6gproto  # 6gfilenameflanguage/ecmascript/base.scm 7  8  8   8  8   9   :   ;  # ;  + < 3 =   6 C5 >"G4B5$"i$!4K4qHa5>"G"4ti4qwxiy|hP] 45$4455"$C45$6Cgo  Kgp  Kgattrs  'gt  ' Kgproto  9 Kgfilenameflanguage/ecmascript/base.scm @  A  A   B   B   B   B  ' A  3 C  9 C  A D  I E J F   K C5 >"G4B 5$" i$!4K 4qHa 5>"G"4t i4qwxiy|eh]456go  gp  gattr   gfilenameflanguage/ecmascript/base.scm H  I  I    C5 >"G4B!5$"!i$!4K!4qHa!5>"G"4t!i4qwxiy| h0]45$ 6456go  *gp  *gv   *gfilenameflanguage/ecmascript/base.scm K  L  L  L   L   M  M   N  * N   * C5 >"G4B!5$"!i$!4K!4qHa!5>"G"4t!i4qwxiiy|!h]456go  gp  gv   gfilenameflanguage/ecmascript/base.scm P  Q  Q    C5 >"G4B#5$"#i$!4K#4qHa#5>"G"4t#i4qwxiy| !h0]45$C4>"GCgo  +gp  +gfilenameflanguage/ecmascript/base.scm S  T  T  T   T   W   + C5 >"G4B#5$"#i$!4K#4qHa#5>"G"4t#i4qwxiiy|#h]456go  gp  gv   gfilenameflanguage/ecmascript/base.scm Z  [  [    C5 >"G4B"5$""i$!4K"4qHa"5>"G"4t"i4qwxiy|"h0] 4455$C45$6Cgo  /gp  /gproto   /gfilenameflanguage/ecmascript/base.scm ]  ^   ^   ^   ^   `   `  % a  - b   / C5 >"Gh]6gthis  gf  gfilenameflanguage/ecmascript/base.scm e f   gnameg call/this*C2R43~h -13Cgthis gf gargs  gfilenameflanguage/ecmascript/base.scm h i    Chp] 45L4?6hgargs  gv gfilenameflanguage/ecmascript/base.scm  h    Ch(n] 45$ O@6fgy  'gtmp 'gfilenameflanguage/ecmascript/base.scm h   ' C53R44~h -13Cwgformals gbody gfilenameflanguage/ecmascript/base.scm j k   Chp] 45L4?6hgargs  gv gfilenameflanguage/ecmascript/base.scm  j    Ch(n] 45$ O@6fgy  'gtmp 'gfilenameflanguage/ecmascript/base.scm j   ' C54R45!4h(-13Cgobject "g name-and-args "gbody  "gfilenameflanguage/ecmascript/base.scm l m   m   m   m 5  m  "  Chp] 45L4?6hgargs  gv gfilenameflanguage/ecmascript/base.scm  l    Ch(n] 45$ O@6fgy  'gtmp 'gfilenameflanguage/ecmascript/base.scm l   ' C55RR4oii5i4!iihs][456kgthis  gfilenameflanguage/ecmascript/base.scm s s   s    C>"G4!iih}-13456ugargs gfilenameflanguage/ecmascript/base.scm u   u   u   u   C>"G4!iih][C   C>"G4!iih ] [4455$CCgp  gthis  gfilenameflanguage/ecmascript/base.scm  y  y   y   y    C>"G4!iihy] [45Cqgv  gthis  gfilenameflanguage/ecmascript/base.scm {  {    C>"G4!ii h(] [4455$ 45CCgp  (gthis  (gfilenameflanguage/ecmascript/base.scm  }  }   }   }   ~ " ~ # $ ~ % ~   ( C>"Gh]L6   CC h`U]4545$54O5$45$    6CC$    6CMgo  `gerror?  `gtoString  `gx  ( Mgfilenameflanguage/ecmascript/base.scm            (  0 1  =  A  E " G  S  W  [ ]   ` gnamegobject->stringC$Rh]L6   CC h`T]4545$54O5$45$    6CC$    6CLgo  `gerror?  `gvalueOf  `gx  ( Mgfilenameflanguage/ecmascript/base.scm            (  0 1  =  A  E " G  S  W  [ ]   ` gnamegobject->numberC%RC%h ]45$6Cgo  gfilenameflanguage/ecmascript/base.scm         gnamegobject->value/stringC&RC$h ]45$6Cgo  gfilenameflanguage/ecmascript/base.scm         gnamegobject->value/numberC'R&h]6zgo  gfilenameflanguage/ecmascript/base.scm     gnameg object->valueC(RC(h]45$6Cgx  gfilenameflanguage/ecmascript/base.scm         gnameg ->primitiveC)Rh3] ${("l$"V45$  $"45"$"45$ 45 ""C+gx  gt  gt 5 Mgt R |gfilenameflanguage/ecmascript/base.scm         '  1 4 5  D * R  a  k l  t    gnameg ->booleanC*RC%+ hh]45$C45$ $ C C( C&C45$645$ 6   6gx  ggfilenameflanguage/ecmascript/base.scm      !  +  7  9 E  L  M W  ]  a  e " g   g gnameg->numberC+R+h@] 4545$ C $C45$C456gx  <gn <gfilenameflanguage/ecmascript/base.scm       $ .  4 <   < gnameg ->integerC,R+hxP]4545$" $"45$ C4455 $ CCHgx  sgn sgt   =gt  # :gm  Y sgfilenameflanguage/ecmascript/base.scm     "  #  1  A  L  M ) P 9 X ) Y  Y  ^  c n  o   s gnameg->int32C-R+h`]4545$" $"45$ C4455C gx  Zgn Zgt   =gt  # :gfilenameflanguage/ecmascript/base.scm     "  #  1  A  L  M P 0 X Y   Z gnameg->uint32C.R+h`]4545$" $"45$ C4455C gx  Zgn Zgt   =gt  # :gfilenameflanguage/ecmascript/base.scm     "  #  1  A  L  M P 0 X Y   Z gnameg->uint16C/R     0&hU]&C(C45$ $CC45$C45$-4 5$ C $ C4 5$ C6456Mgx  ~gfilenameflanguage/ecmascript/base.scm        !  '  )  , # . 8  < F  G  Q S  W  \ ^  `  j l  s  v  ~   ~ gnameg->stringC0R1oS[hx ]& 6( 645$  64 5$  64 5$ 6Cgx  rgfilenameflanguage/ecmascript/base.scm   $  1       " ' $  % /  =  > H  V  W a  o   r gnameg->objectC1Ro!h~]L6vgpair  gfilenameflanguage/ecmascript/base.scm       Ch0-13454O>"GCgpairs .go  .gfilenameflanguage/ecmascript/base.scm     . gnameg new-objectC6R4ii\6i>"G4B75$"7i$!4K74qHa75>"G"t7i4qwxy|/oSh]LL@   CC7hp@-1345$L445$"54 O54 5$CC   68go nginitargs ngctor   ngt  & 9go  ; dgnew-o  O dgfilenameflanguage/ecmascript/base.scm        # &  ;  ;  >  O R  ^ h  j  n  n C5 6 gm  ,gt F bgt gt gt Q mgt  gt  gt f {gt  gt  gt gt gt gt C Xgt s gt  gt  gt 5U 5jgfilenameflanguage/ecmascript/base.scm   - %  / %  1 %  4 % 5 &  > & ? (  / (  ( ) / ( 9 ( _ 1  4  7 @ H K < P l S  Z  ]  e  o  p   p  r I t  v W x / z  | " # $ %M & ' ) * , .@ / 1 3 50 51 5<  5E 5N 4  7 C62.0/ccache/language/ecmascript/function.go000064400000012561151463412640014355 0ustar00GOOF----LE-8-2.0Y]4h] gguile  gdefine-module*   glanguage g ecmascript gfunction  gfilenameS f language/ecmascript/function.scm gimportsS goop ggoops    gbase    gexportsS g*function-prototype* g*program-wrappers*  gset-current-module   gtoplevel-define!   g g make-class !g  "gnameS #gdefined? $# %# &gis-a? '& (& )g *) +) ,gmemq -g .- /- 0gclass-precedence-list 10 20 3gclass-redefinition 43 53 6gmake-doubly-weak-hash-table 7gmake 8gclassS 9fFunction :gvalueS ;g *undefined* g*this* ?gformat @f~A Agjs-value Bgapply Cg with-fluid* Dg Eg vector->list Fgjs-array-vector Ggthrow Hg TypeError Igcall Jgpget K7 L7 Mg  NM OM Pg add-method! QP RP Sg TS US Vg specializersS Wg  Xg YX ZX [gformalsS \go ]gp ^\] _gbodyS `glet agwrapper bg hashq-ref cb\ dac ed fgif gJa] hJ] ifagh j`ei kj lgmake-procedureS mg procedureS ngv o\]n p<a]n qg prototypeS r7:\89q sar ts ug hashq-set! vu\a w`tvp xfapw y`ex zy {g js-prototype |\ }{a ~fa} `e~  gjs-constructor a fa `e C5h ]4    54>"G"+44 i!i"5>"xG"q4%5$b4(i+5$K4,i/42i55$-45i4 i!i"5>"G""t""l""d46i 5R47i!i89:;hh-13C`gargs gfilenamef language/ecmascript/function.scm  + C5R4?@Ahw][456ogthis  gfilenamef language/ecmascript/function.scm " "   "    C>"G4;CAhT]4L56Lgfilenamef language/ecmascript/function.scm  &   C&DAEFht]4L544L55@lgfilenamef language/ecmascript/function.scm  *  +  + +  +   *    CGHB hX] [("$O645$O6  6gthis-arg  Rgarray  Rgthis   Rgfilenamef language/ecmascript/function.scm %  %  %   %  * & + ' 7 %  H ( L -  N -  R -   R C>"G4CAh\]4L5L@Tgfilenamef language/ecmascript/function.scm  2  2   Ch -13[O6gthis-arg gargs gthis  gfilenamef language/ecmascript/function.scm  0   C>"G4%J5$"Ji$!4J4LO"J5>"G"4RJi4LUVWiZ[^_klmbJh(] 45$66go  #gp  #gwrapper  #gfilenamef language/ecmascript/function.scm 4  5  5   6   7  # 8   # C5 >"G4%<5$""G"4R"G6go  Rgp  Rgv   Rgwrapper  Rgwrapper  0 Rgfilenamef language/ecmascript/function.scm :  ;  ;   <   =   >  * > D 0 >  0 >  3 @ R A   R C5 >"G4%{5$"{i$!4{4LO"{5>"G"4R{i4LUVWi[|_lmb{h ] 45$6Cgo  gwrapper gfilenamef language/ecmascript/function.scm C  D  D   E   F    C5 >"G4%5$"i$!44LO"5>"G"Ri4LUVWi[|_lmbh ] 45$6Cgo  gwrapper gfilenamef language/ecmascript/function.scm I  J  J   K   L    C5 6gm  ,gt  2gt } gt i ~gt gfilenamef language/ecmascript/function.scm   1        7 r   u  v ! 5 $  /  4 v : b C I   C62.0/ccache/language/ecmascript/tokenize.go000064400000054403151463412640014361 0ustar00GOOF----LE-8-2.0X]4h] gguile  gdefine-module*   glanguage g ecmascript gtokenize  gfilenameS f language/ecmascript/tokenize.scm gimportsS gice-9 grdelim    gsrfi gsrfi-1  gselectS g unfold-right   gsystem gbase glalr    gexportsS g next-token gmake-tokenizer !gmake-tokenizer/1 "g tokenize/1 # !" $gset-current-module %$ &$ 'gthrow (g syntax-error )gand=> *g"source-location->source-properties +g port-filename ,g port-line -g port-column .gcatch /. 0. 1gftell 2gsource-location 32 42 5gport-source-location 6g eof-object? 7g peek-char 8fEOF while reading a token 9gread-delimited :gpeek ;g read-until abcdef ?ABCDEF @g char-hex? Ag char->integer Bg digit->number Cg char-downcase Dg hex->number Eg read-char Fg lexical-token GF HF Ig/ Jgchar=? Kg read-line LfEOF while in multi-line comment Mg/= Ng read-regexp Og read-slash Pgstring Qgchar-alphabetic? Rg string-append Sgreverse Tg RegexpLiteral Uf(regexp literals may not contain newlines Vf Wg StringLiteral Xf(octal escape sequences are not supported Yfbad hex character escape Zg integer->char [gstring->number \f(string literals may not contain newlines ]g read-string ^fbreak _gbreak `^_ afelse bgelse cab dfnew egnew fde gfvar hgvar igh jfcase kgcase ljk mffinally ngfinally omn pfreturn qgreturn rpq sfvoid tgvoid ust vfcatch wv. xffor ygfor zxy {fswitch |gswitch }{| ~fwhile gwhile ~ fcontinue gcontinue  ffunction gfunction  fthis gthis  fwith gwith  fdefault gdefault  fif gif  fthrow ' fdelete gdelete  fin gin  ftry gtry  fdo gdo  f instanceof g instanceof  ftypeof gtypeof  fnull gnull  ftrue gtrue  ffalse gfalse  `cfiloruwz} g *keywords* fabstract gabstract  fenum genum  fint gint  fshort gshort  fboolean gboolean  fexport gexport Œ f interface g interface Ō fstatic gstatic Ȍ fbyte gbyte ˌ fextends gextends Ό flong glong ь fsuper gsuper Ԍ fchar gchar ׌ ffinal gfinal ڌ fnative gnative ݌ f synchronized g synchronized  fclass gclass ㌤ ffloat gfloat 挤 fpackage gpackage 錤 fthrows gthrows 쌤 fconst gconst  fgoto ggoto  fprivate gprivate  f transient g transient  fdebugger gdebugger  f implements g implements  f protected g protected  fvolatile gvolatile  fdouble gdouble   fimport  gimport      fpublic  gpublic      g*future-reserved-words* g list->string g assoc-ref f&word is reserved for the future, dude. gstring->symbol g Identifier gread-identifier ferror reading exponent: EOF g+ g- f!error reading exponent: non-digit e1.0 gexpt e0.0 f$bad digit reading hexadecimal number finvalid digit in octal sequence  g read-numeric !f{ "glbrace #!" $f} %grbrace &$% 'f( (glparen )'( *f) +grparen ,*+ -f[ .glbracket /-. 0f] 1grbracket 201 3f. 4gdot 534 6f; 7g semicolon 867 9f, :gcomma ;9: <= ?f> @g> A?@ Bf<= Cg<= DBC Ef>= Fg>= GEF Hf== Ig== JHI Kf!= Lg!= MKL Nf=== Og=== PNO Qf!== Rg!== SQR Tf+ UT Vf- WV Xf* Yg* ZXY [f% \g% ][\ ^f++ _g++ `^_ af-- bg-- cab df<< eg<< fde gf>> hg>> igh jf>>> kg>>> ljk mf& ng& omn pf| qgbor rpq sf^ tg^ ust vf! wg! xvw yf~ zg~ {yz |f&& }g&& ~|} f|| gor  f? g?  f: gcolon  f= g=  f+= g+=  f-= g-=  f*= g*=  f%= g%=  f<<= g<<=  f>>= g>>=  f>>>= g>>>=  f&= g&=  f|= gbor=  f^= g^=  #&),/258;>ADGJMPSUWZ]`cfilorux{~. g *punctuation* f/ I f/= M  g*div-punctuation* gassv-ref g string-ref g string-length g substring f!bad syntax: character not allowed gread-punctuation g*eoi* gNumericLiteral funexpected right parenthesis gsrfi-9  gthrow-bad-struct   glexical-token-source glexical-token-category funexpected right bracket funexpected right brace greverse!C5h:]4    #54&>"G'()*h -13456gwhat gloc gform  gargs  gfilenamef language/ecmascript/tokenize.scm        gnameg syntax-errorC(R+,-01h[]L6Sgfilenamef language/ecmascript/tokenize.scm #   # ,   Chh-13C`gargs gfilenamef language/ecmascript/tokenize.scm #  C4h@]!4545454O5Cgport  =ginput & =gline  & =gcolumn  & =goffset  & =gfilenamef language/ecmascript/tokenize.scm    !   "   #  &   = gnamegport-source-locationC5R67(89:hH4] 4455$ 6454455$ 6C,gdelims  Egport  Egloc   Egtoken  & Egfilenamef language/ecmascript/tokenize.scm '  (   (   (   (   )   )   *  $ * / & *  & *  ) + , +  4 + 8 +  < ,  B ,   E gnameg read-untilC;R6<=>?h@] 45$C45$C45$C6gc  =gt  =gt * =gfilenamef language/ecmascript/tokenize.scm /  0 0   1  1  " 2 * 1  = 3   = gnameg char-hex?C@RAh]45 0Cgc  gfilenamef language/ecmascript/tokenize.scm 5  6  6  6   gnameg digit->numberCBR<BACh(]45$6 4455 aCgc  &gfilenamef language/ecmascript/tokenize.scm 8  9  9   :   ;   ;  ! ;  # ; 1 $ ; % ;   & gnameg hex->numberCDRE76HIJK(LMN h0%]4>"G4545$ C4/5$4>"G64*5$4>"G"c45$   64*5$545/$4>"G645"45"45"$1=$4>"G CC 6gport  ,gloc  ,gdiv?   ,gc1   ,gc  } gfilenamef language/ecmascript/tokenize.scm =  ?   @   >   B  ( A  , D  2 D  4 E  @ A  A F  Z G  [ H  g A  h I  } J  ~ L K  M  M N K  O  O  O Q  R  S  S  U  U J  J  J  A  W  X   X 4  X  Y " # Y  , [ +  , gnameg read-slashCORP7JE6Q<RSHT;(UVhx%]B4/\  5"G454/5$4>"G"45$"T45  $ ";45  $ "#4$5  $ " 4_5   $454 5  C4>"G45"L45"<4\5$@4>"G454 544\55" 64 5"gport  qgloc  qgterms   qgstr   \ghead   \g terminator   \gc  A gflags  A gt  H gt \ gt q gt gvalue  gechar  + Rgfilenamef language/ecmascript/tokenize.scm ]  _   _   `   a   a   c + b  , d A f B g  H g  V h  \ h  k i  q h  j  h  k  h  g m * n * m $ l  l $ l  o  p  p , p  f f  f /  f  q  b   r % s  + s . t  9 u  @ u ( J u  R t V w  \ w \ `  ] `  i ` 5 q ` 4  q gnameg read-regexpCNREP7JHW6<(XY@ZD[R;\hX5]J454\  5"(4545$4>"GC4\5$4>"G45'$""$"\$"sb$"df$ "Un$ "Fr$ "7t$ "(v$ "0$<4545$"45$4  5""x$s4545"4  455"=4 5$.4 5$4 45455"""""Xu$M454545 45 4 44  5 55  "445455" 645"-gport  Wgloc  Wgc  Wgterms   Wgstr   Fg terminator  % Fgc  x gnext   @ga  T gb  ] ga   gb   gc   gd   gechar   <gfilenamef language/ecmascript/tokenize.scm z  { {  |   |      %  ( 4 5 J Q S _ ` r ~  x ~          #  -  .  2  7  M  N  T W  ] d  h  k > u  y  z     $      )  #  :                       .        # % * ! 6  <  @  F F  G  W J  W gnameg read-stringC]RRR6Q<JSH(E7h]*"45$"T45$";45$"#4$5$" 4_5$V445545$  C4 5$   64 5 C4>"G45"45"xgport  gloc  gc   gchars   gt  qgt  ! mgt  6 jgt  M ggword  gt  gvalue   gfilenamef language/ecmascript/tokenize.scm       !  0  6  E  M  \  n u  v  y "       *  *    $    '  %   gnamegread-identifierCRJ7E6B<(@Dh/]:445.5$0"454545$6"?"*45$C45$.4>"G45 45"4e5$" 4E5$4>"G4545$45"f4+5$4>"G "A4-5$4>"G "45$ " 4 5"k45$"45$24>"G454 455" $  "4 5C45 "4.5$4>"G"d45$"45$:4>"G45454 5""45 "C45"405$Y4x5$" 4X5$4>"G4545$"4>"G"<45$.4>"G45 45"C "45$"45$C45$n485$" 495$4>"G"4>"G45 45"yC "k"["W'gport  gloc  gc0  ! gc1  * gc1  E ogacc  E ogt  gc  Ogadd  O gc  U ge  U gc   Wgdec   Wgn   Wgt   gc   >gc   3gacc   3gc  M gacc  M gt  o gfilenamef language/ecmascript/tokenize.scm                !   $  *   -   7   =   E "  F $ P #  T % ^ #  _ & q '  | (  } (  (  ' )  ) )  #  * +  +  ,  ,  -  - , -  /  ,  / -  0   ,   0 - 1 1  ; ,  B 3  F 3 , L 3  O + U 5 V 6  ` 6  f 6 0 p 6  q 7   8   8 *  8 /  8 8  8 *  8   :   :   : 1  : *  : ;  :   5  5   5  ;  #   <  =  >   >   > .  >  ?  ! @  * A " 1 A 4 : A  ; A  > B  H @  O E  W E  W = X =  ` = . l = o "  r "   "                  /                                           !  # (   0   3   ?   I   M   N   X   \   f   g   o   }  &         !                          gnameg read-numericC RRRh] (C44 55$D45 $ "4L4 55"4 5"gnodes  gpuncs  gt   gfilenamef language/ecmascript/tokenize.scm          ,   8   ,       %  ( *  7 -  ( /  % 3  ! 8  9 :  % A  / F  3 G  7 L  B P  7 S  9 U  3 Z  / [  % `  + h  ! i  , n  8 r  , v  & y   !  gnameglpCOQ4i5E7H(hpF]""U45$)4>"G45"$ C645L">gport  ogloc  ogc   [gtree   [g candidate   [gt   [gfilenamef language/ecmascript/tokenize.scm              *   3  $ 6  4 @   F   P  U   [  [   \   o    o COR75EO]6QJ< HhP]"4545 $"/ $"! $" $"$4>"G6 $" $4>"G6/$ 6"$"'$645$C4 5$""4 $5$" 4 _5$ 64 5$4 5C6gport  Ogdiv?  Ogc   Ogloc   Ogt  gt  gvalue  9 Ggfilenamef language/ecmascript/tokenize.scm           V   o   x                            %  &  0   1  1 9  ?   F  O    O gnameg next-tokenCRHWhX]4LM5$:&, &"&"""NCgtok Tgcat ! Egfilenamef language/ecmascript/tokenize.scm                 !  # !   '  ' +   ,   4  ' 8   9   A  ' B   Q    T Ch] HOCgport  gdiv?  gfilenamef language/ecmascript/tokenize.scm       gnamegmake-tokenizerC RH(+(.1"%7Whh]M$C4LM5$& ""$ MN"$}"14& " 4 5>"KG"DM$9M& " 4 5& MN"""""F $ MN"2 $}"14 & " 4 5>"KG"DM$9M& " 4 5 & MN"""""$ MN"$}"14& " 4 5>"KG"DM$9M& " 4 5& MN"""""$ MN"$:&, &"&"""NCgtok  bgkey 6 gs  gs  . Mgs   gcat / Sgfilenamef language/ecmascript/tokenize.scm                   *  + 6  F   H   U  Z   ^  ! a  ! ~          5    B                !  !    $   '   +   .  5 .   O  B S   V   X   u  z   |          !   !               5      B                     "   %   /  ' /   5  + 9   :  " B  + F   G  " O  + P  " _  N  b Ch ]HHHOCgport  gdiv?  geoi?   gstack   gfilenamef language/ecmascript/tokenize.scm          gnamegmake-tokenizer/1C!R h8#]45" 45&6""gport  6gnext 6gout   /gtok   /gfilenamef language/ecmascript/tokenize.scm                      $  )   /  /   0   6    6 gnamegtokenizeCR!h8%]45" 45&6""gport  6gnext 6gout   /gtok   /gfilenamef language/ecmascript/tokenize.scm                      $  )   /  /   0   6    6 gnameg tokenize/1C"RCgm  ,glp ( (g punc-tree ( *gfilenamef language/ecmascript/tokenize.scm   9    ' ' O /  5  8 = ` ] ( z *  - 0  4  &S  &V J  &Z I &] z  &a y (   (  # (   (   * ~ .S  0  7  9^  :    : C62.0/ccache/language/ecmascript/compile-tree-il.go000064400000141671151463412640015524 0ustar00GOOF----LE-8-2.0]\4h] gguile  gdefine-module*   glanguage g ecmascript gcompile-tree-il  gfilenameS f'language/ecmascript/compile-tree-il.scm gimportsS gtree-il    gice-9 greceive   gsystem gbase gpmatch   gsrfi gsrfi-1    gexportsS  gset-current-module !  "  #gmake-syntax-transformer $# %# &g-> 'gmacro (g $sc-dispatch )( *( +gany ,geach-any -+, .+- /g syntax-object 0g quasiquote 1gtop 21 3gribcage 4gdummy 5gtype 6garg 7456 8gm-14365c91dc5cf6c7-1 981 :922 ;fl-14365c91dc5cf6c7-6 ;<= ?37:> @3 Agx BA C9 Dfl-14365c91dc5cf6c7-3 ED F3BCE G2?@F Hghygiene IH J/0GI Kgmap LK MK Ngunquote O/NGI Pgsyntax-violation QP RP Sf-source expression failed to match any pattern Tg@implv U++ Vgsym W4V Xgm-14365c91dc5cf6c7-e YX1 ZY2 [fl-14365c91dc5cf6c7-13 \fl-14365c91dc5cf6c7-14 ][\ ^3WZ] _Y `fl-14365c91dc5cf6c7-10 a` b3B_a c2^@b d/&cI eg@ f/ecI ggquote h/gcI i/cI j/cI kgimpl l/kcI mijl nhm og@impl p+- q4V6 rgm-14365c91dc5cf6c7-18 sr1 ts22 ufl-14365c91dc5cf6c7-1d vfl-14365c91dc5cf6c7-1e wfl-14365c91dc5cf6c7-1f xuvw y3qtx zs {fl-14365c91dc5cf6c7-1a |{ }3Bz| ~2y@} /&~I gapply /~I /T~I gempty-lexical-environment glexical gecons gassq-ref gtoplevel glookup g parse-tree-il gbegin k gjs-init gcomp gsource-properties glocation g pmatch/source glet gclause 4A gm-14365c91dc5cf6c7-4d 1 22 fl-14365c91dc5cf6c7-52 fl-14365c91dc5cf6c7-53 fl-14365c91dc5cf6c7-54  3  fl-14365c91dc5cf6c7-4f  3B 2@ /I gres /I /I gloc /I /I gif /I gset-source-properties! /I  gmake-parameter gcurrent-return-tag gabort gerror freturn outside function gconst greturn ggensym freturn g parameter?   g scm-error gwrong-type-arg f parameterize fNot a parameter: ~S  g primitive gmake-prompt-tag gprompt fval g lambda-case gk gval  gwith-return-prompt gblock f compilation not yet implemented: gfor-in f%enum  f %continue  g%enum g %continue gletrec  gmake-enumerator glambda  g ->boolean gpget g  & glength g  & o o g= gvar N g call/this N gpop g  & N   0 ge  g statement  g  &  &  & g *undefined* T  &  gfor  gtrue  gwhile gdo f%loop  g%loop  gtypeof gvoid gdelete garef gpdel  gpref  gnew  g^=  g^  gbor= gbor g&= g& g>>>= g>>> g<<= g<< g>>= g>> g%= g% g*= g* g/= g/ g-= g- g+=  g+ !gpput "gref #gset! $gobject %g new-object &gcons 'fbad prop-val pair (garray )g new-array *gcall +g call/this* ,g string-append -gsymbol->string .f  /g comp-body 0 1gdefine 2f bad var form 3gpredec 4gpreinc 5gpostdec 6ginline 7gset 8gpostinc 9gor :gand ;gbior g!== ?gnot @geqv? Ag=== Bg!= Cgequal? Dg== Egin Fg has-property? Gg>= Hg> Ig<= Jg< Kgshift Lgmod Mg! Ng logical-not Og~ Pg bitwise-not Qg->number Rgthis Sgget-this Tgstring Ugnumber Vgfalse Wgnull Xgreverse! Ygmemq Zgreverse [gfoldC5h]4    54">"G4%&'*.JMOh>]C6gtmp-14365c91dc5cf6c7-c    ChP]45CHgdummy  gtype  garg      CRSh(] 45$@6gx  "gtmp "gfilenamef'language/ecmascript/compile-tree-il.scm    " g macro-typeg syntax-rulesgpatternsgtypegargg...C5&R4%T'*Udfnhh>]C6gdummy  gsym     CRSh(] 45$@6gx  "gtmp "gfilenamef'language/ecmascript/compile-tree-il.scm    " g macro-typeg syntax-rulesgpatternsgsymC5TR4%o'*phO]CGgdummy  gsym  garg      CRSh(] 45$@6gx  "gtmp "gfilenamef'language/ecmascript/compile-tree-il.scm !   " g macro-typeg syntax-rulesgpatternsgsymgargg...C5oRh]Cgfilenamef'language/ecmascript/compile-tree-il.scm $  %    gnamegempty-lexical-environmentCRh]Cgname  ggensym  genv   gfilenamef'language/ecmascript/compile-tree-il.scm '  (   (    gnamegeconsCRh ] 45$CCgname  genv  gt  gfilenamef'language/ecmascript/compile-tree-il.scm *  +  +   ,    gnameglookupCRe h0]444555Dgexp  ,genv  ,gopts   ,gfilenamef'language/ecmascript/compile-tree-il.scm .  0   1  1   2   2  ! 2  $ 1  & 0  , /   , gnamegcompile-tree-ilCRh ] $45(CCCgx  gprops  gfilenamef'language/ecmascript/compile-tree-il.scm 6  7  7  8   8   9    gnameglocationCR4%'*p hXP]CHgdummy  Rgx  Rgclause   R  R CRSh(] 45$@6gx  "gtmp "gfilenamef'language/ecmascript/compile-tree-il.scm ?   " g macro-typeg syntax-rulesgpatternsgxgclauseg...C5R4i5Rh0] 45$"45Cgexpr  0gt !gfilenamef'language/ecmascript/compile-tree-il.scm J  K   K  K  K &  K -  K & & L ( M ) M  , M / K   0 gnamegreturnCRh]4545$"4>"G 4   5Y   45454545 ZCZFg body-thunk  gtag gt-14365c91dc5cf6c7-67  gval  | gfilenamef'language/ecmascript/compile-tree-il.scm O  P  P  P P  Q  F R  H R ! M R  O Q  S S  U S  Z S  \ T  ^ T ` T / c T f T  i T  k U  l U  q V  v W & z W . | W & | W  X  Y " Y ; Y " Z % Z 2 Z % Y " X  U  S &  gnamegwith-return-promptCRe  Kht]L6lgx  gfilenamef'language/ecmascript/compile-tree-il.scm      C    !"#$%&'h`(]!$N$5(4L5C666 gx  _gvx  Wgvy   Wgvx  Ogvy  Ogfilenamef'language/ecmascript/compile-tree-il.scm ~     ,  " .  - 0  < 3  - 5  - ;  - F  " K  ) O  " S  ) W  " [  ) _  "  _ C()ht]L6lgx  gfilenamef'language/ecmascript/compile-tree-il.scm {  { "  C*ht]L6lgx  gfilenamef'language/ecmascript/compile-tree-il.scm v  v "  Cht]L6lgx  gfilenamef'language/ecmascript/compile-tree-il.scm r r ,  Cht]L6lgx  gfilenamef'language/ecmascript/compile-tree-il.scm m m ,  C+,-.h]44556gx  gfilenamef'language/ecmascript/compile-tree-il.scm Z   [ "  [ 1  [ D  [ "  [    Ceht]Clgx  gfilenamef'language/ecmascript/compile-tree-il.scm _ '  _ 3  C/hd]LLLL6\gfilenamef'language/ecmascript/compile-tree-il.scm a   b    Cht]L6lgx  gfilenamef'language/ecmascript/compile-tree-il.scm X  X "  C01e2h]1$$H(4L5C(C6(C66gform  gvx  gvy   gvx  bgvy  bgvx  ? bgvy  ? bgvx  f gvy  f  gfilenamef'language/ecmascript/compile-tree-il.scm K   L  , N  / N $ : N  = L  K P  O P $ Y P  ^ Q " b Q  d L  r P  v P $ P  Q " Q  Q " Q   C3456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWh8N]4>"G"8,"8"7"7"7B"7 "6"64"5"5^"4"4D"3"3*"2"2 "1x"0"0^"/"/D".".("-"-",i"+"+K"*"*"")Y"("("&"%"#"""!w"" """/""!"""I""""_"_"]""q"'""P"""" " _" " S" " G" " ;" " /""#""""v" """s"}$i&D$0( 45"645"645"645"645"6}$&$$$(x454 5 4  4   55   4 5  "5  """"""$b&F$;$ $  $     (4 5 4   5   $4 5" 4 54  54$" 5  4$" 5  "4^  "V  "L "B"8"."*" $ &$$(4 54  5  4 54 5  "3U "I"?"5"1"'$!&$$(4"54 5 4 #4   55  $ 4 5  4 5##"2.  """""$\%&@$5(%45"1""""$\&&@$5(45"1M";"1"-"#$'&$$(&n$c  $H     (.($)454 5"0""  "x "n"j"`"V"R"H$'&$$*&l$a  $F     (,(")45+ "/""  " """"}"y"o$,&c$X$=(#,4-.O5"/!"""""$w/&[$P$5(4015"."}"s"i"e"[$w2&[$P$5(4035"."""""$w4&[$P$5(4055"-"q"g"]"Y"O$w6&[$P$5(4075"-"""""$w8&[$P$5(4095","e"["Q"M"C$w:&[$P$5(40;5","""""$w<&[$P$5(40=5"+"Y"O"E"A"7$w>&[$P$5(40?5"+"""""$w@&[$P$5(40A5"*"M"C"9"5"+$wB&[$P$5(40C5"* """""$wD&[$P$5(40E5")"A"7"-")"$0&$$(&$  $l     (R$G   (-F454 54 5"("h  "^"Z  "P "F"B"8"."*" $0&$$*&$  $j     (P$E   (+F45+ 4 5"'"k  "a"]  "S "I"E";"1"-"#$0&$$G&s$h  (N$C   ()4H5 I 4 5 "& "  "w"s "i"e"["Q"M"C$(&d$Y$>($J4545"&0"""""$~*&b$W$<("J45+"%"I"?"5"1"'$;K&L4-MO5"%I""$;N&O4-PO5"%""$SQ&7$,(4R455"$"I"?";"1${S&_$T$9(454-TO5"$7"""""$S&$$(&$  $o     (U$J   (04U454 54-VO 55"#_"  ""  " """"""$S&$$*&$  $m     (S$H   (.4U45+ 4-WO 55""c"  ""  " """"""$U&r$g$LXJ"!" """$&$z$_(E4-Y54-Z54[\O5" "z"p"f"b"X$1&4-]O5" """$N&2$'( 45" Y""""$,&(^" """$1_&4-`O5""J"@$NG&2$'( 4H5"""""$a&t$i$N(&2$'  $      ((45 45 b   4 545bcCJ  + 45bF  "  ""~  "t "j"f"\"R"N"D$`a&D$9$*&$  $     ((45 45 b   cCJ  + + 45bF  + "  ""  " """"""$a&$$G&c$X  (>(44H5 I cC +  " "9"5 "+"'""""$d&t$i$N(&2$'  $      ((45 45 b   4 545bcEJ  + 45bF  "L  ""  " """~"t"p"f$`d&D$9$*&$  $     ((45 45 b   cEJ  + + 45bF  + "  "5"1  "' """"""$d&$$G&c$X  (>(44H5 I cE +  " "["W "M"I"?"5"1"'$e&o$d$I(&-$"  $     ((45 45 b   4 545bJ  45bF  fC+ "  ""  "޽ "޳"ޯ"ޥ"ޛ"ޗ"ލ$`e&D$9$*&$  $     ((45 45 b   J  + 45bF  + cC+ "  "\"X  "N "D"@"6","("$e&$$G&$  (v(l4G5 45 b   g4H5cC  +   "  "J"F "<"8"."$" "$h&t$i$N(&2$'  $      ((45 45 b   4 545bJ  45bF  cE+ "u  "ڵ"ڱ  "ڧ "ڝ"ڙ"ڏ"څ"ځ"w$`h&D$9$*&$  $     ((45 45 b   J  + 45bF  + cE+ "   "F"B  "8 "."*" """$h&$$G&$  (v(l4G5 45 b   I4H5cE  +   "  "4"0 "&""""" "$&r$g$L(24545"K"ׅ"{"q"m"c$&$$g$L  (2454545"" """ֹ"ֵ"֫$i&$$x(^4545 b      45"  """""$j&o$d$I(/4545+" <"j"`"V"R"H$3&d$Y$>($k4545" """""Թ$1&d$Y$>($l4545" &"L"B"8"4"*$5&d$Y$>($m4545" "ӽ"ӳ"ө"ӥ"ӛ$n&n$c$H(.cocp4545" "$""" "$~q&b$W$<("cp4545" }"җ"ҍ"҃""u$r&n$c$H(.cocs4545" """""$~t&b$W$<("cs4545" _"q"g"]"Y"O$u&d$Y$>($v4545""""""$~w&b$W$<("cw4545"K"U"K"A"="3$~x&b$W$<("cx4545"""Ͼ"ϴ"ϰ"Ϧ$~y&b$W$<("cy4545"9";"1"'"#"$~z&b$W$<("cz4545""ή"Τ"Κ"Ζ"Ό$;&i$^$C(){454C5" """""$9&d$Y$>(${4545""͋"́"w"s"i$=&d$Y$>($|4545" """""$~?&b$W$<("c?4545""o"e"["W"M$~A&b$W$<("cA4545""""""$~C&b$W$<("cC4545"o"U"K"A"="3$~E&b$W$<("cE4545"""ʾ"ʴ"ʰ"ʦ$\}&@$5(~45"u"S"I"E";$\&@$5(45"""""$`C&D$9(cC+ 45""y"o"k"a$nE&R$G(-cE45+ "*""""&""$L&0$%( +"""u"q"g$L&0$%( +"^"$""" & +"0"& +""& +""Ǿ45$445>"G"CNgx  8ge  8gvx  m gvy  m gvx   gvy   gvx   gvy   gvy   gvx   gvy   gvy  ! g%enum  ; g %continue ; ge S gvx   8gvy   8gvx   *gvy   *gvx    gvy    gvx   gvy  gvx (  gvy (  g %continue 9 ge F gvx  I -gvy  I -gvx  b gvy  b gvx  s gvy  s g %continue    ge  gvx  > Wgvy  > Wgvx  W Igvy  W Igvx  h ?gvy  h ?g%loop   5g %continue  5ge  /gvx  h gvy  h gvx   gvy   gvx   %gvy   %gvx   gvy   gvx  6 gvy  6 gvx  O gvy  O gvx  ` gvy  ` gvx  y gvy y gvx  gvy  gvx   gvy   gvx  & gvy  & gvx  7 gvy  7 gvx  P gvy P gvx a gvy a gvx   [gvy   [gvx   Mgvy   Mgvx  Cgvy  Cgvx  l gvy  l gvx  gvy  gvx  gvy  gvx  _gvy  _gvx   Qgvy   Qgvx   Ggvy   Ggvx  p gvy  p gvx  gvy  gvx  gvy  gvx  cgvy  cgvx  Ugvy  Ugvx   Kgvy   Kgvx  t gvy  t gvx  gvy  gvx  gvy  gvx  ggvy  ggvx   Ygvy   Ygvx  Ogvy  Ogvx  x gvy  x gvx  gvy  gvx  gvy  gvx  kgvy  kgvx   ]gvy   ]gvx  $ Sgvy  $ Sgvx  | gvy  | gvx  gvy  gvx  gvy  gvx  ogvy  ogvx   agvy   agvx  ( Wgvy  ( Wgvx   gvy   gvx   gvy   gvx   gvy   gvx   gvy   gvx   gvy   gvx  , gvy  , gvx  E gvy E gvx V gvy V gvx m gvy m gvx   gvy   gvx   gvy   gvx  ' gvy  ' gvx  @ gvy @ gvx Q gvy Q gvx h gvy h gvx   gvy   gvx   gvy   gvx   gvy   gvx  9 gvy 9 gvx P gvy P gv c gvx   Lgvy   Lgvx   >gvy   >gvx   4gvy   4gvx  ] gvy  ] gvx  v gvy  v gvx   gvy   gvx   gvy   gvx  , agvy  , agvx  r gvy  r gvx   gvy   gvx   Egvy   Egvx   7gvy   7gvx   -gvy   -gvx  V Cgvy  V Cgvx  o 5gvy  o 5gvx   +gvy   +gvx   gvy  gvx  gvy  gvx  gvy  gvx  T ?gvy  T ?gvx  m 1gvy  m 1gvx  ~ 'gvy  ~ 'gvx   gvy  gvx  gvy  gvx  gvy  gvx  P gvy  P gvx  i gvy  i gvx  z gvy  z gvx   gvy   gvx   vgvy   vgvx   lgvy   lgsyms  & bgvx   gvy   gvx   gvy   gvx    gvy    gvx  * Pgvy  * Pgvx  a gvy  a gvx   gvy   gvx   gvy   gvx   gvy   gvx   rgvy   rgvx   hgvy   hgvx  9 Zgvy 9 Zgvx J Pgvy J Pgwhat c Bgsym j ?gwhat   5gsym   2gwhat   ,gsym   )gvx   gvy   gvx   gvy   gvx   gvy   gvx   gvy  gvx  gvy  gwhat  gsym  gwhat  H gsym  O gvx   gvy   gvx   gvy   gvx  & gvy  & gvx  ? gvy ? gv X gvx   Rgvy   Rgvx   Dgvy   Dgvx   :gvy   :gvx   ,gvy  ,gvx  "gvy  "gwhat 5 gsym < gwhat  X gsym  _ gwhat   gsym   gvx  c gvy  c gvx  | gvy  | gvx   gvy   gvx   gvy  gvx  gvy  gwhat  gsym  |gwhat   rgsym  ! ogvx   gvy   gvx   {gvy   {gvx   qgvy   qgvx   cgvy  cgv * Ugvx  "gvy  "gvx  "gvy  "gvx  "gvy  "gvx  !gvy !gvx !gvy !gwhat ! !gsym ! !gwhat  !* !gsym  !1 !gwhat  !d !gsym  !k !gvx  "0 #gvy  "0 #gvx  "I #|gvy  "I #|gvx  "Z #rgvy  "Z #rgvx  "s #dgvy "s #dgvx " #Zgvy " #Zgwhat " #Lgsym " #Igwhat  " #?gsym  " #<gvx  # $gvy  # $gvx  # $gvy  # $gvx  # $vgvy  # $vgvx  # $hgvy # $hgwhat # $Zgsym $ $Wgvx  $ &)gvy  $ &)gvx  $ &gvy  $ &gvx  $ &gvy  $ &gvx  $ &gvy $ &gvx $ %gvy $ %gwhat % %gsym % %gwhat  %/ %gsym  %6 %gwhat  %i %gsym  %p %gvx  &: 'gvy  &: 'gvx  &S 'gvy  &S 'gvx  &d '|gvy  &d '|gvx  &} 'ngvy &} 'ngvx & 'dgvy & 'dgwhat & 'Vgsym & 'Sgwhat  & 'Igsym  & 'Fgvx  ' (gvy  ' (gvx  ' (gvy  ' (gvx  ' (gvy  ' (gvx  ' (rgvy ' (rgwhat ( (dgsym ( (agvx  ( )1gvy  ( )1gvx  ( )#gvy  ( )#gvx  ( )gvy  ( )gvx  )B )gvy  )B )gvx  )[ )gvy  )[ )gvx  )l )gvy  )l )gvx  )} )gvy )} )gvx  ) *gvy  ) *gvx  * *gvy  * *gvx  * *gvy  * *gwhat  *3 *gsym *: *gvx  * +@gvy  * +@gvx  * +2gvy  * +2gvx  * +(gvy  * +(gvx  +Q +gvy  +Q +gvx  +j +gvy  +j +gvx  +{ +gvy  +{ +gvx  + ,Vgvy  + ,Vgvx  + ,Hgvy  + ,Hgvx  , ,>gvy  , ,>gvx  ,g ,gvy  ,g ,gvx  , ,gvy  , ,gvx  , ,gvy  , ,gvx  , -vgvy  , -vgvx  - -hgvy  - -hgvx  - -^gvy  - -^gvx  - -gvy  - -gvx  - -gvy  - -gvx  - -gvy  - -gvx  . .gvy  . .gvx  .) .gvy  .) .gvx  .: .|gvy  .: .|gvx  . /gvy  . /gvx  . /gvy  . /gvx  . /gvy  . /gvx  /. /gvy  /. /gvx  /G /gvy  /G /gvx  /X /gvy  /X /gvx  / 01gvy  / 01gvx  / 0#gvy  / 0#gvx  / 0gvy  / 0gvx  0B 0gvy  0B 0gvx  0[ 0gvy  0[ 0gvx  0l 0gvy  0l 0gvx  0 1Cgvy  0 1Cgvx  0 15gvy  0 15gvx  0 1+gvy  0 1+gvx  1T 1gvy  1T 1gvx  1m 1gvy  1m 1gvx  1~ 1gvy  1~ 1gvx  1 2\gvy  1 2\gvx  1 2Ngvy  1 2Ngvx  2 2Dgvy  2 2Dgvx  2m 2gvy  2m 2gvx  2 2gvy  2 2gvx  2 2gvy  2 2gvx  2 3rgvy  2 3rgvx  3 3dgvy  3 3dgvx  3" 3Zgvy  3" 3Zgvx  3 3gvy  3 3gvx  3 3gvy  3 3gvx  3 3gvy  3 3gvx  4 4gvy  4 4gvx  4% 4vgvy  4% 4vgvx  46 4lgvy  46 4lgvx  4 5 gvy  4 5 gvx  4 4gvy  4 4gvx  4 4gvy  4 4gvx  5 5gvy  5 5gvx  57 5gvy  57 5gvx  5H 5~gvy  5H 5~gvx  5 5gvy  5 5gvx  5 5gvy  5 5gvx  6 6dgvy  6 6dgvx  6' 6Vgvy  6' 6Vgvx  6u 6gvy  6u 6gvx  6 6gvy  6 6gvx  6 7Hgvy  6 7Hgvx  6 7:gvy  6 7:gvx  7w 7gvy  7w 7gvx  7 7gvy  7 7gvx  7 8gvy  7 8gvx  7 8gvy  7 8gres  8Z 8gloc  8c 8Fgfilenamef'language/ecmascript/compile-tree-il.scm \  ]  f                                 f  .   2   4   5   9  ;   ;   @   D   G  & K  - Q  & S   S  W  Y   `  * b   l  4 w   y   z  ) |  # ~  (   #            "   /   "       f  3   7  9   9   <   @   F   F  J  L   Q  $ S   T  ) V  # X  ( Z  + `  3 b  7 l  H w  7 |  7   =   7   3   >   >   D   L   >   >   I   V   I   >   3   3   +   (   #            "   (   1   "   "   -   :   -   "       f  ~                             $      )   #   (   +   3   D   3   3   >   >   I   V   I   >   3   3   +   (   #            "   /   "       f  s   w   y   z   ~                &   -   &             *      )   #   (   +   1   1   <   I   <   1   +   (   #         )   #   (   +   3   D   3   3   >   K   >   3   3   +   (   #            "   / "  " %   (  9 f            f             f               f  s   }          f     "   0   2   5   = f       f  #   '  9   A f       f  '   +  =   E f       f  +   /  A   I f       f  /   3  E   M f       f  3   7  I   Q f           f  y                f  t   ~             f  [   c   g  i   l   w   |   f           &   . f               f   }   }   ~   }   f  : z  < z  D {  R z  [ f   x   x   x   f   u   u   v   u  ' f   p   p  p   q   r   p  p   f   k   k  k   l   m   k  k   f   d   f   f   g   i   g   f   d   f   Z  & Z  * ] 3 _ " @ ] A `  U ] f f   X   X   X   f   V   f  > T  F f  o J  p K ~ J   f   H   f  [ 9 c 9  f _  j _  n `  s `  x `  } ` ' ~ ;   ;   _   _   `   `   `   ` '  =   = *  = 9  = *  > *  ? 1  @ 1  > *  A *  =   =   _   _   `   `   `   ` '  d   C !  D (  E (  F (  C !  e  # d  & `  F f   ,  ,   _   _   `   `   `   ` '  .   . "  . 1 ! . " # / " . 0 ) 7 1 ) ? / " A 2 " H .  H .  K _  O _  S `  X `  ] `  b ` ' d d  f 4  q 5 z 6  7  4   e   d   `   f  P $  X $  \ % ^ &  b '  d ' # f ' 2 i ' # m ) # t '  w &  | %  f  -  5   8 _  < _  @ `  E `  J `  O ` ' P   X   [ _  _ _  c `  h `  m `  r ` ' t   v  * x  9 {  * }  *   1   1   *   *        _   _   `   `   `   ` '  d    !   (  ! (  " (   !  e   d   `   f        _   _   `   `   `   ` '      "   1   "   "   )   )   "   "        _  ! _  % `  * `  / `  4 ` ' 6 d  8   C  % L  S  ]   _ e  i d  l `   f  "   *   .  0   4   6  $ 8  3 ;  $ ?  $ F   I   N  Y f  !  ! _  ! _  ! `  ! `  ! `  !! ` ' !"  !*  !- _  !1 _  !5 `  !: `  !? `  !D ` ' !F  !Q & !Z & !d  !d  !g _  !k _  !o `  !t `  !y `  !~ ` ' ! d  ! ! ! ( ! ( ! ( ! - ! 0 ! - ! ( ! ! ! e  ! d  ! `  ! f  " "  " _  " _  " `  " `  " `  " ` ' "  "  "  "  "  " _  " _  " `  " `  " `  " ` ' " d  "  " # # # + # : # + # + # + #' #*  #, e  #6 d  #9 `  #P f  #  #  #  #  # _  $ _  $ `  $ `  $ `  $ ` ' $ d  $  $  $%  $' % $) 4 $, % $. % $7 % $>  $A  $C e  $M d  $P `  $^ f  % %  % _  % _  % `  % `  %! `  %& ` ' %'  %/  %2 _  %6 _  %: `  %? `  %D `  %I ` ' %K  %V & %_ & %i  %i  %l _  %p _  %t `  %y `  %~ `  % ` ' % d  % ! % ( % ( % ( % 3 % B % 3 % 3 % 3 % ( % ! % e  % d  % `  % f  & &  & _  & _  & `  & `  & `  & ` ' &  &  &  &  &  & _  & _  & `  & `  & `  & ` ' & d  &  ' ' ' ' + ' : ' + '! + '* + '1 '4  '6 e  '@ d  'C `  'Z f  '  '  (  (  ( _  ( _  ( `  ( `  ( `  ( ` ' (" d  ($  (%  (/  (1 & (3 5 (6 & (8 & (A & (H  (K  (M e  (W d  (Z `  (h f  (  (  ( (  (  )  )  ) f  )  )  ) )  )  )  )  ) f  *+ *3  *6 _  *: _  *> `  *C `  *H `  *M ` ' *O  *Q  *\ ( *f  *h  *p  *{  *~ `  * f  *  *  * +  +  +  +  +" f  +  +  +  +  + f  ,  ,  ,%  ,0  ,8 f  ,  ,  ,  ,  , f  -(  -*  -, ! -/  -1  -3  -5 , -8  -9  -B ( -M  -P  -X f  -  -  - ! -  - ) - 4 -  - f  .F  .H  .J ! .M  .O  .Q  .S , .V  .W  .` ( .k  .n  .v f  .  .  . ! .  . + . 6 .  . f  /d  /n  /w ' /  / f  /  /  / ! /  / ' 0 2 0  0 f  0x  0z  0| ! 0  0 & 0 1 0  0 f  1  1  1 ! 1  1 ' 1 2 1  1% f  1  1  1 ! 1  1 & 1 1 1  1 f  2  2  2&  2* % 23  26  2> f  2  2  2  2  2 f  3.  38  3A  3L  3T f  3  3  3 ! 3  3 & 3 1 3  3 f  4B  4D  4F ! 4I  4J & 4S 1 4^  4f f  4  4  4 ! 4  4 & 4 1 4  4 f  5T   5V   5X  ! 5[   5\  & 5e  1 5p   5x f  5 }  5 }  5 }  5 f  63 {  6= {  6H {  6P f  6 y  6 y  6 y ! 6 y  6 y & 6 y 5 6 y  6 f  7 u  7 u  7 u ! 7 u  7 v  7 v " 7# v  7% w  7, u  74 f  7V s  7j f  7 q  7 f  7 o  8 f  8" m  8. f  88 k  8D f  8N i  8O i  8R i  8Z f   8 gnamegcompCRX"Yh]["""""7$"( 45DC$=$(4L> G"u""$5$ &"9"E"A"=$E$0&("""""$$&$$}   $h     (T  4 5  $" 4 L5 $" "&"*"&""""""$$&y$n$Y   (E4 5  $" 4 L5 $" "s"s"o"k"g"c"_zgin  gout  grvars   gvx  # :gvy  # :gvx  Z gvy  Z gsub-out  s grvars  s gvx  gvy  gvx  !gvy  !gvx  gvy  gvx  2 gvy  2 gvx  C gvy  C gvx  \ gvy  \ gvx m gvy m gvx ~ gvy ~ gt  gvx   gvy   gvx   gvy   gvx  / gvy  / gvx @ gvy @ gt ] v#gfilenamef'language/ecmascript/compile-tree-il.scm      . 0 : / @   A 3  K 3 M   a (  e   f * k *  r * v ) ,  +   $ "   $ 1 $ 9 $  & %    #                $    !       L  U   ]   k  $ z         -   gnameglpCZK,-.h]44556gx  gfilenamef'language/ecmascript/compile-tree-il.scm 8   9  9 /  9 B  9  9    C[eht]Clgx  gfilenamef'language/ecmascript/compile-tree-il.scm <   < +  C hp],OQ4> G45454455454 5Cge  pgbody  pgformals   pg formal-syms   pglp  gout   pgrvars   pgnames  - pgsyms  8 pge  R p gfilenamef'language/ecmascript/compile-tree-il.scm         (    " 5  ' 7  - 7  0 8  8 7  ; ;  @ ;  R ;  R 7  V <  [ <  d =  o <   p gnameg comp-bodyC/RCgm  ,gfilenamef'language/ecmascript/compile-tree-il.scm    $  ' z *  . 6 ~ H  H J  O  \     C62.0/ccache/language/ecmascript/array.go000064400000022541151463412640013645 0ustar00GOOF----LE-8-2.0I%]4h ] gguile  gdefine-module*   glanguage g ecmascript garray  gfilenameS flanguage/ecmascript/array.scm gimportsS goop ggoops    gbase   gfunction    gexportsS g*array-prototype* g new-array  gset-current-module   gdefined?  ! "gjs-array-vector #gis-a? $# %# &g  '& (& )gtoplevel-define! *) +) ,gensure-accessor -, ., /g 0g 10 20 3gmemq 4g 54 64 7gclass-precedence-list 87 97 :gclass-redefinition ;: <: =g make-class >g  ?gvector @g init-valueS A BgaccessorS Cg init-keywordS DgvectorS EgnameS Fgmake GgclassS HfArray Ig prototypeS Jgpput Kglength LgvalueS Mg constructorS Ng hashq-set! Og*program-wrappers* Pg prototype Qg constructor Rgpget SF TF Ug  VU WU Xg add-method! YX ZX [g \[ ][ ^g specializersS _g `_ a_ bgformalsS cgo dgp ecd fgbodyS ggcond hgand iginteger? jid kgexact? lkd mg>= nmd  ohjln pglet qgv r"c sqr ts ugif vg< wg vector-length xwq yvdx zg vector-ref {zqd |g next-method }| ~uy{} pt~ o gor gsymbol? d geq? gquote K d h gstring? d gstring=? flength d h  wr  gelse } g  gmake-procedureS g procedureS cdq m d hjl gvect r  w vd g vector-set! dq gnew g make-vector g1+ d     gvector-move-left!    gset! r dq p u p  g->uint32 q     gmin     p p  g  gsetter   gtoString g*this* gformat f~A gconcat g+ gmap gerror f)generic array concats not yet implemented gjoin g string-join g->string f, gpop g *undefined* gpushC5hw]4    54>"G4!"5$" 4%"i(5$14+"4.4!"5$"i""5>"G"4!/5$4%/i25$43i649/i55$@4</i4=i>i?@AB"iCDE/5>"G":4+/4=i>i?@AB"iCDE/5>"G":4+/4=i>i?@AB"iCDE/5>"G":4+/4=i>i?@AB"iCDE/5>"GF/GHIJKK" hpK-134544 5>"G4 5"(C" "Cgvals lgo  lgvect  < lgi  B agvals  B agfilenameflanguage/ecmascript/array.scm     +       !  ! ! " !  - !  6 "  < "  B #  H $  R % # S %  V &  Y &  a &  a #  l gnameg new-arrayCR4Fi>iGHLiMi5R4NiOiii>"G4JiiPi>"G4JiiQi>"G4!R5$"Ri$!4+R4TWER5>"G"4ZRi4T]^/iabefik"wK h8] 45$45$~ $%4545$CL6$ "$"45$ 45"$ 456L6$ "$"45$ 45"$ 456L6$ "$"45$ 45"$ 456L6}go  8gp  8gv  ' Egt  V gt  gt  !gfilenameflanguage/ecmascript/array.scm 2  3  3   3   3  3 & 3 ! 4  ' 4 , 5  3 5  7 5 < 6  E 2 H 8  L 8 P 8 % Q 8  V 8 d 9  n 9 o 9  u 9 * w 9  3  :  : 2 8  8 8 % 8  8 9  9 9  9 * 9  3  :  : 2 8  8 8 % 8  8  9   9  9   9 *  9  % 3  ( :  0 : 8 2 9  8 Chn]OCfgreal-next-method  gfilenameflanguage/ecmascript/array.scm 2   C5 >"G4!J5$"Ji$!4+J4TWEJ5>"G"4ZJi4T]^/iaabfK"wikh0k]"$ "$"45$ 45"$N45445 54 4 4 5455 >"G4 56L64 5$4 5$v $j454 5$ C4 54 4 5 >"G44 5>"GC"""cgo  0gp  0gv   0gt   @gvect  K gnew  Z gvect  $gnew  $gfilenameflanguage/ecmascript/array.scm = G  G  G %  G   G % H  / H 0 H  6 H * 8 H  D >  E I  K I N J  Q J # Z J  Z J ] K c K ' f K , m K A u K ' } K M = >  >  >  >  > > & > ?  ? @  @  @ A  C  C ' C  C  D  D + D   E  " F 1  0 Chn]OCfgreal-next-method  gfilenameflanguage/ecmascript/array.scm =   C5 >"G4Jii"ht][456lgthis  gfilenameflanguage/ecmascript/array.scm Q Q   Q    C>"G4JiiRKRKh]456xgx  gfilenameflanguage/ecmascript/array.scm U   U 0 U 8 U 0  U &   CF/GHID#"wh-13[4445545?4 5"i(     64 5$=454 45>"G45"6 "grest gthis glen  * grv  4 gobjs  : gi  : gv  h gfilenameflanguage/ecmascript/array.scm  T   T   T !  T ,  T !  T  U  * T  * T  - W 4 T  : X  @ Y  H Y : R Y  S \ X \  \ \ ` Y  a ]  f ] ' h ]  h ] k ^  q ^ & ^  `  ` # `  `  b  b X  X  X $ C>"G4JiiRKhhR-13["> $$ 45"64455"4455"Jg separator hgthis hgi   Pgl   Pgfilenameflanguage/ecmascript/array.scm  e   f   f  $ g  % g % * g / , g % 2 g @ 4 g  7 h 8 i  ; i  E i  H i P h  P e  Q e  T e  Z e ' \ e  ^ e  _ e  ` e 6 h e  h C>"G4JiiRKJhH][4455 $C454>"GCgthis  Hglen  Hgret  , Hgfilenameflanguage/ecmascript/array.scm  l l   l "  l   l  l   m   m  # o  * o  , o  , o  / p 5 p  8 p  = p   H C>"GJiiRKJh` -13["?( 45644455>"G""gargs Ygthis Ygargs   Qgfilenameflanguage/ecmascript/array.scm  t   u   v  ! v  # v  % v  & w  + w  . w $ 4 w / 6 w $ 8 w  ; w 9 @ w  K x  Q x  Q t  Y C6ogm  ,gt 4 Pgt  gt  gfilenameflanguage/ecmascript/array.scm   -        "  J   `          )   ) 4  )   )  -  /  /   /  0  0   0  2  = P j S  d  k  s    C62.0/ccache/language/ecmascript/impl.go000064400000037723151463412640013500 0ustar00GOOF----LE-8-2.0?]4h] gguile  gdefine-module*   glanguage g ecmascript gimpl  gfilenameS flanguage/ecmascript/impl.scm gimportsS goop ggoops    gbase   gfunction   garray    gexportsS gjs-init gget-this gtypeof g bitwise-not g logical-not !gshift "gmod #gband $gbxor %gbior &gmake-enumerator ' !"#$%&  (g re-exportsS )g *undefined* *g*this* +g call/this* ,gpget -gpput .gpdel /g has-property? 0g ->boolean 1g->number 2g new-object 3gnew 4g new-array 5)*+,-./01234  6gset-current-module 76 86 9gdefined? :9 ;9 = ?= @g  A@ B@ Cgtoplevel-define! DC EC Fgensure-generic GF HF Ig Jg KJ LJ Mgmemq Ng ON PN Qgclass-precedence-list RQ SQ Tgclass-redefinition UT VT Wg make-class Xg  Ygmodule Zg init-formS [gcurrent-module \[ ]g init-thunkS ^g init-keywordS _gmoduleS `ggetterS agnameS bgmake cb db eg add-method! fe ge hg ih jh kg specializersS lg mgformalsS ngo ogp pno qgbodyS rgstring->symbol sro t,ns ut vgmake-procedureS wg procedureS xg yglet zgv {gmodule-variable |<n }{|o ~z} ~ gif g variable-ref z g next-method  z y  g   noz -nsz  gmodule-define! |oz  g prop-attrs gcond gmodule-local-variable |o gquote   g DontDelete gReadOnly   } gelse    ns  g prop-keys n gappend ghash-map->list glambda gk z  gmodule-obarray |    gresolve-interface gmap g string-split g js-require g \ gNaN e+nan.0 gInfinity e+inf.0 g undefined grequire gObject g*object-prototype* gArray g*array-prototype* ginit-js-bindings! f undefined fobject gboolean? fboolean gnumber? fnumber gstring? fstring g procedure? ffunction fscm glognot g ->primitive gash glogand glogxor glogior gmodulo g+ ga gb  g string-append   g->string       1 1   g-   g*   g/   g<   gstring<   g<=   gstring<=   g>=   gstring>=   g>   gstring>   gobj-and-prototypes g js-prototype gmake-hash-table  gfor-each  g hashq-set!  gfilter  gprop-has-attr?  gDontEnumC5h+!]4    '(55 48>"G4;<5$" 4?"G"4;I5$#4?IiL5$l4MiP4SIi55$4VIi4WiXiYZ\][hP]6Hgfilenameflanguage/ecmascript/impl.scm  '    C^_`"G"4EI4WiXiYZ\][hP]6Hgfilenameflanguage/ecmascript/impl.scm  '    C^_`"G"4EI4WiXiYZ\][hP]6Hgfilenameflanguage/ecmascript/impl.scm  '    C^_`"G"4EI4WiXiYZ\][hP]6Hgfilenameflanguage/ecmascript/impl.scm  '    C^_`"G4;,5$",i$!4E,4dBa,5>"G"4g,i4djkIilimpquvw,rh}]456ugo  gp  gfilenameflanguage/ecmascript/impl.scm )  *  *    C5 >"G4;,5$",i$!4E,4dBa,5>"G"4g,i4djkIiximpqv{<h(] 4455$CL6go  $gp  $gv   $gfilenameflanguage/ecmascript/impl.scm +  ,  ,   ,  ,   -   .  $ +   $ Chm]OCegreal-next-method  gfilenameflanguage/ecmascript/impl.scm +   Cw5 >"G4;-5$"-i$!4E-4dBa-5>"G"4g-i4djkIilimqvw-rh]456go  gp  gv   gfilenameflanguage/ecmascript/impl.scm 0  1  1    C5 >"G4;-5$"-i$!4E-4dBa-5>"G"4g-i4djkIiximqvw<h]456go  gp  gv   gfilenameflanguage/ecmascript/impl.scm 2  3   3    C5 >"G4;5$"i$!4E4dBa5>"G"4gi4djkIiximpqv<{h8]4455$C4455$CL6go  3gp  3gfilenameflanguage/ecmascript/impl.scm 4  5  5  5  5   5 1  6  6  $ 6 ( 5  * 6 + 3 4   3 Chm]OCegreal-next-method  gfilenameflanguage/ecmascript/impl.scm 4   Cw5 >"G4;5$"i$!4E4dBa5>"G"4gi4djkIilimpqvwrh}]456ugo  gp  gfilenameflanguage/ecmascript/impl.scm 8  9   9    C5 >"G4;5$"i$!4E4dBa5>"G"4gi4djkIimqvhn]Cfgk  gv  gfilenameflanguage/ecmascript/impl.scm ;    C<h ]4445554L56go  gfilenameflanguage/ecmascript/impl.scm :  ; ; + ; ;  ; +  ;  : ;   Chm]OCegreal-next-method  gfilenameflanguage/ecmascript/impl.scm :   Cw5 >"GbI_rh ]444.5556gmodstr  gfilenameflanguage/ecmascript/impl.scm ? A  A   A /  A   A   @    gnameg js-requireCR"+4E4WiIia5>"xG"q4;5$b4?iL5$K4MiP4Si55$-4Vi4WiIia5>"G""t""l""d4;<5$""G"4g"G)h]4>"G4>"G4>"G4 >"G4  >"G  6gmod  zgfilenameflanguage/ecmascript/impl.scm G  H  H  H   H   I   I  ! I & I  / J  5 J  < J  E K  K K  R K  [ P  a P  h P  v Q  z Q   z gnameginit-js-bindings!CR*b[h(]45$C45\456gt  %gfilenameflanguage/ecmascript/impl.scm S  T  T   V   W  % W   % gnamegjs-initCR*hc][C[gfilenameflanguage/ecmascript/impl.scm Y    gnamegget-thisCR)=Xhh]&C(C45$C45$C45$ C4 5$ C4  5$CC gx  agfilenameflanguage/ecmascript/impl.scm \ ]  ]   ]   ^   _ ! ]  # _  % ` / ]  1 `  3 a = ]  ? a  A b K ]  M b  O c [ ]  ] c  ` d   a gnamegtypeofCRiR0h]4455Cgx  gfilenameflanguage/ecmascript/impl.scm g  h   h   h   h    gnameg logical-notC Ri!Ri#Ri$Ri%Ri"R4;5$"i$!4E4dBa5>"G"4gi4djklilimqvwhu]6mga  gb  gfilenameflanguage/ecmascript/impl.scm r s   C5 >"G4;5$"i$!4E4dBa5>"G"4gi4djklimqvwh}]456uga  gb  gfilenameflanguage/ecmascript/impl.scm u  v   v    C5 >"G4;5$"i$!4E4dBa5>"G"4gi4djklimqvwh}]456uga  gb  gfilenameflanguage/ecmascript/impl.scm x  y   y    C5 >"G4;5$"i$!4E4dBa5>"G"4gi4djkmqvw1h]4545C}ga  gb  gfilenameflanguage/ecmascript/impl.scm {  |  |   |    C5 >"G4;5$"i$!4E4dBa5>"G"4gi4djkmqvw1h]4545C}ga  gb  gfilenameflanguage/ecmascript/impl.scm ~           C5 >"G4;5$"i$!4E4dBa5>"G"4gi4djkmqvw1h]4545Cga  gb  gfilenameflanguage/ecmascript/impl.scm        C5 >"G4;5$"i$!4E4dBa5>"G"4gi4djkmqvw1h]4545Cga  gb  gfilenameflanguage/ecmascript/impl.scm        C5 >"G4;5$"i$!4E4dBa5>"G"4gi4djkmqvw1h]4545Cga  gb  gfilenameflanguage/ecmascript/impl.scm        C5 >"G4;5$"i$!4E4dBa5>"G"4gi4djklilimqvwhw]6oga  gb  gfilenameflanguage/ecmascript/impl.scm   C5 >"G4;5$"i$!4E4dBa5>"G"4gi4djkmqvw1h]4545Cga  gb  gfilenameflanguage/ecmascript/impl.scm        C5 >"G4;5$"i$!4E4dBa5>"G"4gi4djklilimqvwhw]6oga  gb  gfilenameflanguage/ecmascript/impl.scm   C5 >"G4;5$"i$!4E4dBa5>"G"4gi4djkmqvw1h]4545Cga  gb  gfilenameflanguage/ecmascript/impl.scm        C5 >"G4;5$"i$!4E4dBa5>"G"4gi4djklilimqvwhw]6oga  gb  gfilenameflanguage/ecmascript/impl.scm   C5 >"G4;5$"i$#4E4dBa5>"G"4gi4djkmqvw1h]4545Cga  gb  gfilenameflanguage/ecmascript/impl.scm        C5 >"G4;5$"i$#4E4dBa5>"G"4gi4djklilimqvwhw]6oga  gb  gfilenameflanguage/ecmascript/impl.scm   C5 >"Gh ]$4455CCgo  gfilenameflanguage/ecmascript/impl.scm     "         gnamegobj-and-prototypesCR   hi]L6agk  gfilenameflanguage/ecmascript/impl.scm  &  Chr]LO456jgo  gfilenameflanguage/ecmascript/impl.scm       C4   h]4L5C|gp  gfilenameflanguage/ecmascript/impl.scm   $ : $     Cho]Cggk  gv  gfilenameflanguage/ecmascript/impl.scm -   C hH] 4 54O45>"G4O4 55@gobj  Bgprops Bgfilenameflanguage/ecmascript/impl.scm       !  ,  6  @  B   B gnamegmake-enumeratorC&RCgm  0gt 8 Tgt c xgt | gt o gt  gt  gt gt gt  gt  gt  gt  gt  gt  gt  gt ( =gt P egt x gt gt ! !gt " "gt # #gt $ % gt &! &7gfilenameflanguage/ecmascript/impl.scm   1 & \ ) u + h 0  2  4 8 : 5 ? : C  D  G m S  Y  \  f Y g ` j g l n m u n | p } r  u  x  {  ~  ! I q  ! " # $ & ( + )  + C62.0/ccache/language/elisp/runtime.go000064400000015734151463412640013202 0ustar00GOOF----LE-8-2.0]4h| ] gguile  gdefine-module*   glanguage gelisp gruntime  gfilenameS flanguage/elisp/runtime.scm gexportsS g nil-value gt-value gvalue-slot-module gfunction-slot-module g elisp-bool g ensure-fluid! greference-variable g set-variable! g runtime-error g macro-error g built-in-func gbuilt-in-macro g defspecial gprim   gset-current-module   g value-slot  !g function-slot "! #gerror $gresolve-interface %gresolve-module &gmodule-defined? 'gmake-unbound-fluid (gmodule-define! )gmodule-export! *g module-ref +g module-set! ,gmake-syntax-transformer -, ., /gmacro 0g $sc-dispatch 10 20 3gany 4333 5g syntax-object 6gbegin 7gtop 87 9gribcage :gdummy ;gname gm-9d4fb909439-25 ?>7 @?88 Afl-9d4fb909439-2a Bfl-9d4fb909439-2b Cfl-9d4fb909439-2c DABC E9=@D F9 Ggx HG I? Jfl-9d4fb909439-27 KJ L9HIK M8EFL Nghygiene ON P56MO Qg define-public R5QMO Sgsyntax-violation TS US Vf-source expression failed to match any pattern Wg datum->syntax Xgmap Yg identifier? Zg syntax->datum [gidentity \gstring->symbol ]g string-append ^gsymbol->string _gmake-id `g_ a`33 bgmacro- cg scheme-name dc e8 ffl-9d4fb909439-44 gf h9deg i;< j88 kfl-9d4fb909439-3e lfl-9d4fb909439-3f mkl n9ijm ofl-9d4fb909439-3b po q9Hep r8FhnFq s56rO t5QrO ug make-fluid v5urO wgcons x5wrO ygquote z5yrO {5/rO |z{ }geach-any ~3} 3~ ` gcompile- fl-9d4fb909439-52  9de gargs gbody ; 888 fl-9d4fb909439-4a fl-9d4fb909439-4b fl-9d4fb909439-4c  9 fl-9d4fb909439-47  9He 8FF 56O gdefine 5O 5uO 5wO 5yO gspecial-operator 5O  glambda 5O g@ gsym : gm-9d4fb909439-55 7 88 fl-9d4fb909439-5a fl-9d4fb909439-5b fl-9d4fb909439-5c  9  fl-9d4fb909439-57  9H 8F 5O 5O C5h]4    54>"G RR R"R#h-13@gmsg gargs gfilenameflanguage/elisp/runtime.scm 5  6   gnameg macro-errorCRiR h{]$CCsgb  gfilenameflanguage/elisp/runtime.scm <  =    gnameg elisp-boolCR$%&'()hP]454545$C454>"G6gmodule  Kgsym  Kgintf   Kgresolved   Kgfluid  ( Kgfilenameflanguage/elisp/runtime.scm G  H  I   H   J ! J  $ K  ( K  + L I M # K M   K gnameg ensure-fluid!CR%*h@] 45$64>"G45[Cgmodule  ;gsym  ;gresolved  ;gfilenameflanguage/elisp/runtime.scm O  P  P   R   Q   S   U  1 V   ; gnamegreference-variableCR$%&+()* h>]4545$X45$4>"G"-4>"G4>"G" 4>"G4 5\C6gmodule  gsym  gvalue   gintf   gresolved   gfilenameflanguage/elisp/runtime.scm X  Y  Z   Y   \   [   ^  * ]  + _  E a  [ b  d b i b  v d  e   gnameg set-variable!CR4./24PRhR]CJgdummy  gname  gvalue      CUVh(] 45$@6gx  "gtmp "gfilenameflanguage/elisp/runtime.scm l   " g macro-typeg syntax-rulesgpatternsgnamegvalueC5RWXYZ[h y]45$"6qgdatum  gfilenameflanguage/elisp/runtime.scm x   y y   y    C\]^h0-13454445?56g template-id 0gdata 0gsymbols   .gfilenameflanguage/elisp/runtime.scm q  x   w   t  u  u ! ) u + t 0 v  0 gnamegmake-idC_R4./2a_bstvx|h0] 45Cgname  *gvalue  *gtmp  *gfilenameflanguage/elisp/runtime.scm  " 2 "   * CUVh(n] 45$@6fgx  "gtmp "gfilenameflanguage/elisp/runtime.scm   " C5R4./2_ h0] 45Cgname  0gargs  0gbody   0gtmp  0gfilenameflanguage/elisp/runtime.scm  " 2 "   0 CUVh(n] 45$@6fgx  "gtmp "gfilenameflanguage/elisp/runtime.scm   " C5R4./2hP]CHgdummy  gsym  gargs      CUVh(] 45$@6gx  "gtmp "gfilenameflanguage/elisp/runtime.scm   " g macro-typeg syntax-rulesgpatternsgsymgargsg...C5RCgm  (gfilenameflanguage/elisp/runtime.scm   , % 0 ' 2 -  5 - 7 /  : / 5  8  < * G b O i X q    C62.0/ccache/language/elisp/spec.go000064400000002075151463412640012443 0ustar00GOOF----LE-8-2.0%](4h]] gguile  gdefine-module*   glanguage gelisp gspec  gfilenameS flanguage/elisp/spec.scm gimportsS gcompile-tree-il    gparser   gsystem gbase    gexportsS  gset-current-module   ginvalidate-compilation-cache! g make-language gnameS gtitleS !f Emacs Lisp "greaderS #g read-elisp $gprinterS %gwrite &g compilersS 'gtree-ilC5h{]4    54>"G4i>"G4i !"#hv]6ngport  genv  gfilenameflanguage/elisp/spec.scm     !   C$%i&' i5 RCsgm  ,gfilenameflanguage/elisp/spec.scm   -  K        C62.0/ccache/language/elisp/parser.go000064400000016746151463412640013017 0ustar00GOOF----LE-8-2.0]W4hL] gguile  gdefine-module*   glanguage gelisp gparser  gfilenameS flanguage/elisp/parser.scm gimportsS glexer     gexportsS g read-elisp  gset-current-module   gerror g parse-error g make-fluid gcircular-definitions gmake-hash-table gmake-circular-definitions g circular-ref finvalid token for circular-ref g hashq-ref fundefined circular reference !g circular-def "f"invalid token for circular-define! #g hashq-set! $g make-promise %$ &$ 'gcircular-define! (gpromise? )gforce *gforce-promises! +g vector-length ,gfinish -f'lexer-buffer is not empty when finished .gpeek /gget 0finvalid lexer-buffer action 1gmake-lexer-buffer 2g square-close 3g paren-close 4fgot different token than peeked 5gget-expression 6gget-list 7gdot 8glength 9f&expected exactly one element after dot :gquote ;:: <= ?gunquote @g, A?@ Bgunquote-splicing Cg,@ DBC E;>AD Fgquotation-symbols Ggeof Hfend of file during parsing Iginteger Jgfloat Kgsymbol Lg character Mgstring Ngset-source-properties! Ogsource-properties Pgfunction Qgassq-ref Rg paren-open Sg square-open Tg list->vector Ufexpected expression, got Vg get-lexerC5h0]4    54>"Gh-13@gtoken gmsg gargs  gfilenameflanguage/elisp/parser.scm "  #    gnameg parse-errorCR4i5Rhy]6qgfilenameflanguage/elisp/parser.scm 3  4    gnamegmake-circular-definitionsCR hH]&"4>"G4[5$C6gtoken  Ggid & Ggvalue  2 Ggfilenameflanguage/elisp/parser.scm 6  7   7  7   8   8  8  & 9 & 9  ) :  2 9  : ;  C =  G =   G gnameg circular-refCR!"#&hL]MCDgfilenameflanguage/elisp/parser.scm I    C#hu]NLL6mg real-value  gfilenameflanguage/elisp/parser.scm J   K   L    C h` ]&"4>"G[H44O5>"GOCgtoken  \gvalue * \gtable  * \gid  * \gfilenameflanguage/elisp/parser.scm C  D   D  D   E   E  E  * H * F  1 I  8 I  H I   \ gnamegcircular-define!C'R()*+h]$N45$45"4>"G45$ 45C6$\45"H$=45$45"4>"G"C "Cgdata  glen e gi  k gel  y gfilenameflanguage/elisp/parser.scm U  W  V  Y  Y   Y  Y   Z   Z  Z  Z % [ * [  / [ 8 \ = \  ? \ C \  F ]  K ] M ]  N ] U ^  W ^ Z _  ^ V  _ `  e `  k a  p b t b  y c  y c | d  d  e & e  f  g  g  a *  gnamegforce-promises!C*R,-./0hP] &M$6CM$"4L5N$MC$ MNC6gaction  Pgresult @ Hgfilenameflanguage/elisp/parser.scm t   u  u   v  w   w   z # { ! ) {  2 | @   E  L  P   P Ch] HOCglex  g look-ahead  gfilenameflanguage/elisp/parser.scm r  s    gnamegmake-lexer-bufferC1R.23/456789 h]#45$"&&45&"4>"GC"4545C$e &Y45&"4>"G454 5 $"4  >"GC"y"uglex  g allow-dot  g close-square   gnext  gtype   ghead  U jgtail  b jgtail  gfilenameflanguage/elisp/parser.scm              ! / $  %  ) +  ,  2  7 ;  @ I  O  U  X  b  i  j  t  x  y  }             .  gnamegget-listC6REFR/GHIJKLMNOP5:<?BQFR6ST!'*Uh]!45$6$"/$"!$"$" $,$4 4 5>"G"C $5 4 5$4 4 5>"G"C$"!$"$"$<454 5$4 4 5>"G"C$245$4 4 5>"G"C$74455$4 4 5>"G"C$6$9454 54>"G4>"GC6glex  gtoken gtype   gresult  e gresult  gresult   ;gresult  M vgresult   gsetter   gexpr    gfilenameflanguage/elisp/parser.scm               !  *  e  e  j  n  o  t                             !  ,  D  E  M  R  V  W  \  g                                         D   gnamegget-expressionC5RV1.G5, hXd]!45Y454545&"454>"GZCZF\gport  Wglexer  Sglexbuf   Sgnext  $ Sgresult  = Sgfilenameflanguage/elisp/parser.scm  &          "  $  $  )  +  /  2 7  = @ D  I   W gnameg read-elispCRCgm  ,gfilenameflanguage/elisp/parser.scm    "  1   1  3  6  C h U u r # %  ( F '   ) C62.0/ccache/language/elisp/lexer.go000064400000030112151463412640012621 0ustar00GOOF----LE-8-2.020]{4h] gguile  gdefine-module*   glanguage gelisp glexer  gfilenameS flanguage/elisp/lexer.scm gimportsS gice-9 gregex     gexportsS g get-lexer g get-lexer/1  gset-current-module   gerror g lexer-error g set-char-bit g eof-object? gchar=? gis-char? g integer->char greal-character !gchar-alphabetic? "g char->integer #g char-upcase $g add-control %g read-char &g char-numeric? 'g unread-char (finvalid digit in escape-code )gcharcode-escape *a  +b  ,t  -n  .v  /f  0r  1e  2s  3d  4*+,-./0123  5gbasic-escape-codes 6A  7s  8H  9S  :gassq-ref ;g get-character gchar>=? ?gcharchar-set Ff-+=*/_~!@$%^&:<>{}?. Ggno-escape-punctuation Hg list->string Igreverse Jg regexp-exec Kginteger Lgfloat Mgsymbol Ngchar-set-contains? Ogget-symbol-or-number Pg circular-ref Qg circular-def Rf!invalid circular marker character Sgget-circular-marker Tg file-port? Ug port-filename Vg port-line Wg port-column Xgset-source-property! Ygfilename Zgline [gcolumn \geof ]gchar-whitespace? ^glex _g character `gstring agfunction bg paren-open cg paren-close dg square-open eg square-close fgquote gg backquote hgunquote-splicing ifexpected @ in unquote-splicing jgunquote kg string-length lfinvalid character in input mgstring->symbol nginexact->exact ogstring->number pginteger? qfexpected integer rgexact? sfexpected inexact float tfwrong number/symbol type ugdot vg binary-ports w v xg eof-object ywx zwxC5h%H]4    54>"Gh-13@gport gmsg gargs  gfilenameflanguage/elisp/lexer.scm '  (    gnameg lexer-errorCRh] Cgchr  gbit  gfilenameflanguage/elisp/lexer.scm -  .  .   gnameg set-char-bitCRh]45$C6gtested  g should-be  gfilenameflanguage/elisp/lexer.scm 4  5 5   6    gnamegis-char?CRh] $6Cgchr  gfilenameflanguage/elisp/lexer.scm <  =  =   >    gnamegreal-characterC R !"#hH] 4545$4455 @C?$ C@$ C 6gchr  Egreal Egfilenameflanguage/elisp/lexer.scm F  G  G  H   H   I  I  " I $ I . % I  / J  E M   E gnameg add-controlC$R%&"!#'( ht],""4545$45 0"645$*4455 A $" "$ "$"w$"$4>"GC6$$C"1"- "lgport  gbase  gdigits   g early-return   gresult   gprocdigs   gcur   gcode  F ]gvalue  b gvalid  t  gfilenameflanguage/elisp/lexer.scm V  W  [   [   ]   \   ^  ' ^ / ( ^  - _  7 \  8 ` ' ; ` 6 C ` ' E a ' F ` $ F `  L b  P b  Z d  b [  j f  o f ! t [  | g p  p  p 1 p  h  h  h  j  m  l  Y  Y  Y  W (  gnamegcharcode-escapeC)R45R6789%:5$;<=)">?'hC]*M$ " 454\5$r454545"$C"^$  4 56C$J4 4 5-5$5445-5$"4 >"G 4 56Cx$  6u$   6U$   66405$0485$4>"G  6""$M4 4 5-5$7445-5$"4 >"G4 56""6;gport  g in-string  g meta-bits  % gcur  % gescaped  = gesc-code  H gmeta  S gfilenameflanguage/elisp/lexer.scm        %  *  6  7  =  @  H  K  S  _ o r " |       &     "             ' * +  I  Q X  [ e  i j  m  w  {           >   gnameg get-characterC;R4@iA5BR4@iC5DR4EiF5GR%HIJBKDLM&!NG'hH])"24545$P4455$" 45$" $" 45$ " D4 5$" 4 5$" 4 5$"R4\5$45"24>"G4455$" 45$" $" 45$ " D"gport  Bg result-chars  8g had-escape   8gc  8gresult  & jgt  q gt  gresult  8gfilenameflanguage/elisp/lexer.scm           #  $ & # &  .  4  @  B  L  R  ^  `  f  j  k " q   "  "  %    &   # $ #             ,  .  4  8  8  9  B 4  B gnamegget-symbol-or-numberCOR%&"PQRhx]"84545$45 0 " " " G#$C=$C6gport  ugresult  >gcur  >gval  $ 4gid F ugtype  F ugfilenameflanguage/elisp/lexer.scm          # 2 $  $  +  .  4  >  >  I  V  X  e  g  q  u   u gnamegget-circular-markerCSRTUVWXYZ[hP] 4L>"G4L>"G4L>"GCgtoken  Ngvalue  Ngobj   Ngfilenameflanguage/elisp/lexer.scm             0      &  0 -   6   <  0 C    N C%\]^_;`HI'Sabcdefg<hijOMklmKnopqLrstu0h {])45$ 45"4545O4545$64 5$ 6"x;$?"74545$" 4  5$ 6""?$ 4 56"$"45"$44556\$f45 $" $"4>"G4>"G44 55"m"b"[#$450$"u1$"g2$"Y3$"K4$"=5$"/6$"!7$"8$"9$'4>"G456'$6C($6)$6[$6]$6'$6`$6,$8445@5$4 45@5$66 64>"G4!> G"$44#5 $4>"G$6"4%56&$>&4'4(554)5$"4*>"G6+$9+4(54,5$4->"G"6.64 .5$4 455$/6"`"\sgport  gfile ) Cgline  ) Cgcolumn  ) Cgreturn J gc  J gcur  gt  g result-chars  gcur  gescaped   ugc   Ygmark  ; Ggtype   gstr   gnum  v gnum   gfilenameflanguage/elisp/lexer.scm       !   "  " )   )  D  J  O   Y   ]   a   b   l   r               '    !     $  $  $   * +  + , .  . . .  .  .   ,  0   0  ! 1  7 3  8 5  L 6  ` 8  c 8 + l 8  o 8  u 7  z :   :   *  * %  *     <   <  = ! ? 5 @  ; @ B A  E A " G A  P = T C  W C b   f E  i E  r   v F  y F      G   G      H   H      I   I      J   J      M  M   M  M  N   N   N   N  P   P   O   O   Q   Q  V  X   W ) Z * a  1 a  6 a  7 e  L f  P f  T g  U g $ ] g  f Z j n  k o  n o , v o  v o  y p   p   q   q   q   m   Z  t   t *  t   u %  u !  v %  v ,  v %  t   z   z                            gnameglexC^R^hU]L6Mgfilenameflanguage/elisp/lexer.scm        Cht]OClgport  gfilenameflanguage/elisp/lexer.scm    gnameg get-lexerCR\zbdcefgjhQ hL]M$ 45C4L5H$"$ MN"h$"$ MN"H$"/$"! $" $" $K"J$"M $N"CDgnext  g quotation  gkey   gfilenameflanguage/elisp/lexer.scm                           :  ! <   I  Z  ! \   i       %     Ch ]45 HHOCgport  glex gfinished  g paren-level  gfilenameflanguage/elisp/lexer.scm        gnameg get-lexer/1CRC@gm  ,gfilenameflanguage/elisp/lexer.scm   '  -  4 B <  F  V  y   x > ?  E # G  J K  Q  S  V W  ] 0 _  b   !N "W  %    % C62.0/ccache/language/elisp/bindings.go000064400000011010151463412640013273 0ustar00GOOF----LE-8-2.0]/4h] gguile  gdefine-module*   glanguage gelisp gbindings  gfilenameS flanguage/elisp/bindings.scm gexportsS g make-bindings gmark-global-needed! gmap-globals-needed gwith-lexical-bindings gwith-dynamic-bindings gget-lexical-binding   gset-current-module   gmake-record-type gneeded-globals glexical-bindings  g bindings-type grecord-constructor gmake-hash-table grecord-accessor g assoc-ref gmemq !g assoc-set! "grecord-modifier #ghash-ref $gand-map %gsymbol? &gerror 'fcan't bind non-symbols (gfor-each )g hash-set! *g make-fluid +g with-fluids* ,gmap -gwith-symbol-bindings .f#invalid targets for lexical bindingC5hH ]4    54>"G4i5Rh]45456gfilenameflanguage/elisp/bindings.scm 1  2  2 & 2 *  2    gnameg make-bindingsC R !"hh]#445545$"45$"45456gbindings  egsym  egmodule   eg old-needed   egt   -g old-in-module  - eg new-in-module  G eg new-needed  T egfilenameflanguage/elisp/bindings.scm 7  8   8  8 5 8   8   8   :   :  * : : - 8  0 ;  < ;  G =  G 8  J >  T 8  W ?  ] ? $ _ ?  e ?   e gnamegmark-global-needed!CRh']B4455"`(C"$( "$45  " """gbindings  gproc  gneeded   gmod-tail   vg mod-result   vgaentry  % ngmodule  * kgsymbols  / hgsym-tail  5 Yg sym-result 5 Y gfilenameflanguage/elisp/bindings.scm F  G   G  G 0 G   G   G   I   K  " N % O  % O * P  * O / Q  / O 5 R ; T  D V $ E W * L W 7 N W * Q W $ Y V  Y R v M v I  y J & I   gnamegmap-globals-neededCR#h0]445545$[CCgbindings  *gsym  *glex   *gslot   *gfilenameflanguage/elisp/bindings.scm ]  ^   ^  ^ . ^   ^   ^   `   ^  $ a   * gnamegget-lexical-bindingCR$%&'(#)*h ]4L5$CL456xgsym  gfilenameflanguage/elisp/bindings.scm n   o   o   p '  p    C+,#hh]L6`gsym  gfilenameflanguage/elisp/bindings.scm r  r %  C hx_] $45"$4>"G"44554 O>"G 4  O56Wgbindings  sgsyms  sgtargets   sgproc   sglex  B sgfilenameflanguage/elisp/bindings.scm h  i  i  j   j  i  i   k  ! k ( k  5 l 6 l  < l - > l  B l B l  E n  ` r  s r   s gnamegwith-symbol-bindingsC-R$%&.-h0]$45"$66gbindings  0gsyms  0gtargets   0gproc   0gfilenameflanguage/elisp/bindings.scm v  w  w  x   x  w  w  y $ y  0 z   0 gnamegwith-lexical-bindingsCR-,h_]CWgel  gfilenameflanguage/elisp/bindings.scm     Ch]456gbindings  gsyms  gproc   gfilenameflanguage/elisp/bindings.scm |    }    gnamegwith-dynamic-bindingsCRCgm  (gfilenameflanguage/elisp/bindings.scm   ) ,  / ,  1 ,  3 ,  6 + 1 9 7  F K ] h v E |   G C62.0/ccache/language/elisp/compile-tree-il.go000064400000104315151463412640014500 0ustar00GOOF----LE-8-2.0]4h] gguile  gdefine-module*   glanguage gelisp gcompile-tree-il  gfilenameS f"language/elisp/compile-tree-il.scm gimportsS gbindings    gruntime   gtree-il   gsystem gbase gpmatch   gcompile   gsrfi gsrfi-1  !  "gsrfi-8 #" $# %gsrfi-11 &% '& (gsrfi-26 )( *) +!$'*  ,gexportsS -g compile-progn .g compile-if /gcompile-defconst 0gcompile-defvar 1g compile-setq 2g compile-let 3gcompile-lexical-let 4g compile-flet 5g compile-let* 6gcompile-lexical-let* 7g compile-flet* 8gcompile-without-void-checks 9gcompile-with-always-lexical :gcompile-guile-ref ;gcompile-guile-primitive gcompile-defmacro ?g compile-defun @g compile-` Ag compile-quote B-./0123456789:;<=>?@A Cgset-current-module DC EC Fg make-fluid Gg bindings-data Hgdisable-void-check Igalways-lexical Jgsource-properties Kglocation Lg make-const Mg nil-value NM OM Pgt-value QP RP Sgvalue-slot-module TS US Vg value-slot Wgfunction-slot-module XW YW Zg function-slot [g, \gunquote? ]g,@ ^gunquote-splicing? _gmake-application `gmake-primitive-ref agcall-primitive bgerror cg report-error dg runtime-error egmake-module-ref fg ensure-fluid! gggenerate-ensure-global hg make-sequence igappend ji ki lgmap-globals-needed mgensuring-globals ng with-fluids* oglist pgmap qg make-lambda rgmake-lambda-case sg let-dynamic tgget-lexical-binding ugaccess-variable vgmake-lexical-ref wgmark-global-needed! xg fluid-ref ygreference-variable zg set-variable! {gmake-lexical-set |g fluid-set! }gnil ~glength f,expected symbol or list of 2 elements in let fexpected symbol in let gprocess-let-bindings glexical gall gmemq gbind-lexically? greverse gsplit-let-bindings gfor-each gcar g compile-expr ggensym gmake-let gwith-lexical-bindings g generate-let g generate-let* gbind-arg-lexical? g&rest f'expected exactly one symbol after &rest grequired goptional f&invalid mode in split-lambda-arguments f%expected symbol in argument list, got g &optional gsplit-lambda-arguments fexpected list for argument-list ffunction body must not be empty gcons glset-intersection gwith-dynamic-bindings gcdr gmake-conditional gnull? g make-void gcompile-lambda ftoo many arguments to defvar gstring? f0expected string as third argument of defvar, got fexpected symbol, got ghandle-var-def gmodule-defined? gresolve-interface g module-ref gresolve-module gfluid? g find-operator gcontains-unquotes? g unquote-cell? gunquote-splicing-cell? gprocess-backquote f%non-pair expression contains unquotes f$symbol-list construct has empty body gand-map gsymbol? finvalid symbol list gwith-added-symbols F F gspecial-operator g module-bound? g fluid-bound? fexpected symbol in setq giterate g make-letrec  glambda gmacro gfromS gtoS gvalue fexpected symbol as macro name f expected symbol as function name g compile-pair gt gcompile-symbol gvalid-symbol-list-arg?  fInvalid compiler options gwarningsS galways-lexicalS f"Invalid value for #:always-lexical fInvalid compiler option gprocess-options! g make-bindingsC5h(t]4    +,B54E>"G4Fi5GR4Fi5HR4Fi5IRJh ] $45(CCCgx  gprops  gfilenamef"language/elisp/compile-tree-il.scm K  L  L  M   M   N    gnameglocationCKRLOh]6|gloc  gfilenamef"language/elisp/compile-tree-il.scm S T   gnameg nil-valueCMRLRh]6zgloc  gfilenamef"language/elisp/compile-tree-il.scm V W   gnamegt-valueCPRRUVRYZR[h]$CCgsym  gfilenamef"language/elisp/compile-tree-il.scm f  g  g  g   g    gnamegunquote?C\R]h]$CCgsym  gfilenamef"language/elisp/compile-tree-il.scm i  j  j  j   j    gnamegunquote-splicing?C^R_`h -13456gloc gsym gargs  gfilenamef"language/elisp/compile-tree-il.scm n  o   o    gnamegcall-primitiveCaRbh-13@gloc gargs gfilenamef"language/elisp/compile-tree-il.scm t  u   gnameg report-errorCcR_`bLh(-1345456gloc $gmsg $gargs  $gfilenamef"language/elisp/compile-tree-il.scm w  y   y ,  y   z  " z  $ x  $  gnameg runtime-errorCdR_efLh0]4545456gloc  )gsym  )gmodule   )gfilenamef"language/elisp/compile-tree-il.scm    1       '  )   ) gnameggenerate-ensure-globalCgRhklgh]L6zgmod  gsym  gfilenamef"language/elisp/compile-tree-il.scm    Ch(]44[O556gloc  !gbindings  !gbody   !gfilenamef"language/elisp/compile-tree-il.scm      !   ! gnamegensuring-globalsCmRan_`opehq]LL6igsym  gfilenamef"language/elisp/compile-tree-il.scm    Cqr hX]4454O55445544 5 56~gloc  Sgsyms  Sgmodule   Sgvals   Sgbody   Sgfilenamef"language/elisp/compile-tree-il.scm       -     (  )  .  4 1 6  :  ;  @  A  E % I 2 J 6 O  Q  S   S gnameg let-dynamicCsRtGZh0X]4[5$6$66Pgloc  +gsym  +gmodule   +g handle-global   +ghandle-lexical   +ghandle-dynamic   +glexical  +gfilenamef"language/elisp/compile-tree-il.scm          #  ' $ +   + gnamegaccess-variableCuRueh_]LLL6Wgfilenamef"language/elisp/compile-tree-il.scm    Cvhu]L6mglexical  gfilenamef"language/elisp/compile-tree-il.scm    CwGaxeh0z]4[LL>"GL4LLL56rgfilenamef"language/elisp/compile-tree-il.scm       -   - Ch0]OOO6gloc  )gsym  )gmodule   )gfilenamef"language/elisp/compile-tree-il.scm )   ) gnamegreference-variableCyRu_ezLh0]L4L54LL54LL5L6gfilenamef"language/elisp/compile-tree-il.scm     #     $ )  +   + C{hu]LL6mglexical  gfilenamef"language/elisp/compile-tree-il.scm      CwGa|eh0z]4[LL>"GL4LLL5L6rgfilenamef"language/elisp/compile-tree-il.scm       /   / Ch0]OOO6gloc  /gsym  /gmodule   /gvalue   /gfilenamef"language/elisp/compile-tree-il.scm /   / gnameg set-variable!CzRp}~chP#]$C$45 "$L6$ CL6gb  Kgfilenamef"language/elisp/compile-tree-il.scm            !  &  * 0  2 5  6  : =  @  B  I # K   K Ch]O6gloc  gbindings  gfilenamef"language/elisp/compile-tree-il.scm     gnamegprocess-let-bindingsCRZVItG hXG]&C$C$,[&C45$C[6C?gsym  Sgmodule  Sgt   Sgalways  ( Qgt  = Qgfilenamef"language/elisp/compile-tree-il.scm         ! %  ( .  2 3  5  = Q   S gnamegbind-lexically?CRhh]"O(4545D45$"""gbindings  cgmodule  cgtail   Uglexical   Ugdynamic   Ugfilenamef"language/elisp/compile-tree-il.scm         "      "   '  +   .   1  & 4  @  C   H  . K  ( U  U  X  Y   c   c gnamegsplit-let-bindingsCRwGhq][L6igsym  gfilenamef"language/elisp/compile-tree-il.scm      Cpshy]6qgel  gfilenamef"language/elisp/compile-tree-il.scm  "   =  /  Chhp]6hgel  gfilenamef"language/elisp/compile-tree-il.scm & (  & 5   Chp]6hgel  gfilenamef"language/elisp/compile-tree-il.scm ' (  ' 5   Cihy]6qgel  gfilenamef"language/elisp/compile-tree-il.scm  "   =  /  Chy]6qgel  gfilenamef"language/elisp/compile-tree-il.scm  "   =  /  CGhpsvhq]L6igsym  gfilenamef"language/elisp/compile-tree-il.scm 9 / : 1  ChH]L(L4L56L4L5L4LOL54L4L556gfilenamef"language/elisp/compile-tree-il.scm 2   3  " .  "   6 . ' 8 . 5 "  : " . D "  F 5 !  F Chj]<454> G4O45>"G(*45454 4 5564 54 54 5 4 45455    4[45O56bgloc  gmodule  gbindings   gbody   gbind  glexical   gdynamic   g lexical-syms  z g dynamic-syms  gall-syms gvals  gfilenamef"language/elisp/compile-tree-il.scm             "   ,   9   G # L $  W   ` "  e " . o "  q $  r & # z &  } ' # &  (  &  )    )  &  /  1  /  +   gnameg generate-letCRwGh ]4L5$C[L6{gsym  gfilenamef"language/elisp/compile-tree-il.scm F   G   G   H    CphpGhh]LL6`gfilenamef"language/elisp/compile-tree-il.scm [   [ 3 [ *  Cs h](L4L56454L5$745L4[ LO56 LL4L56gtail  gsym $ gvalue  $ gtarget  : lgfilenamef"language/elisp/compile-tree-il.scm L   M  N   N  O   P  ! P ' $ P  $ O ) Q  5 Q  6 R : R  E T  J U  O V  P W  Z Y  _ Z  j W  l S  s ] " w ]  ~ _   `  ` ( `  \   gnamegiterateChP]454O45>"GOQ6gloc  Igmodule  Igbindings   Igbody   Igbind  Igiterate  8 Igfilenamef"language/elisp/compile-tree-il.scm C  D  D   F   K  % F  8 L   I gnameg generate-let*CRIh ] [&C6garg  galways  gfilenamef"language/elisp/compile-tree-il.scm i  j  k   k   k   l    gnamegbind-arg-lexical?CRcb h]b"(/45454545      D"-&$"$645 45 45 4 $ "5 4 $"5     D$45  $ "  $" $   "$   " 6 6&* &"l"""Lgloc  gargs  gtail   gmode   grequired   goptional   glexical   gdynamic   gfinal-required  ( ;gfinal-optional ( ;g final-lexical ( ;g final-dynamic ( ;gt  L bgrest  r g rest-lexical { gfinal-required gfinal-optional g final-lexical g final-dynamic garg  ag bind-lexical ag new-lexical ag new-dynamic  agfilenamef"language/elisp/compile-tree-il.scm n  o  u  w   x   y  " z  ( w  ; {  B  D   H u  K   L   L  \   ^   _   f   l   n  q   r  u   {  ~  !   !    )  -     )  -                   "      "       #   # 0   9  <  # E  , Y   ]   a   g   j   l  l u  p   t u  w   y   }             o   p   q   r   s   t   o S   gnamegsplit-lambda-argumentsCRcpho]6ggx  gfilenamef"language/elisp/compile-tree-il.scm     $   Ch]Cgname+sym  gx  gfilenamef"language/elisp/compile-tree-il.scm     "     Ch]Cgname+sym  gx  gfilenamef"language/elisp/compile-tree-il.scm     "     Ch@-]!45454L54L5D%gargs  >gsyms >gpairs   >g lexical-pairs  % >g dynamic-pairs  2 >gfilenamef"language/elisp/compile-tree-il.scm                 %   (   2   >    > gnameg process-argsCiwGVhq][6igsym  gfilenamef"language/elisp/compile-tree-il.scm      CGGpqrpMho]L6ggx  gfilenamef"language/elisp/compile-tree-il.scm        Chav{MsVvh]L6gname-sym  gfilenamef"language/elisp/compile-tree-il.scm  (  +  +   *   Chx]L4LLL4LOL5L4L4L554LL$84L4L 4 LLL554 LLL4 L554 L55"4 L5L("4LL4LOL5555 6pg compiled-body 2 gfilenamef"language/elisp/compile-tree-il.scm         #   (  ( 2   2   5   ?   @   E   K  ' L  ' X   Y   b  ) j   k   s   x        #           Ch8q][4L 54L 5LLLLLLLLLO 6igfilenamef"language/elisp/compile-tree-il.scm       2    2 C hH<]$"4>"G(4>"G"4> GOQ4> G    4> G 4$ "> G$" G4  > G4 > G4 > G4>"G  [ O 64gloc  Agargs  Agbody   Agrequired  N Agoptional  N Agrest  N Aglexical  N Agdynamic  N Ag process-args  d Ag required-syms v Agrequired-pairs v Agrequired-lex-pairs v Agrequired-dyn-pairs v Ag optional-syms Agoptional-pairs  Agoptional-lex-pairs  Agoptional-dyn-pairs  Ag rest-syms  Ag rest-pairs  Agrest-lex-pairs  Agrest-dyn-pairs  Ag the-rest-sym  Agall-syms  Ag all-lex-pairs  Ag all-dyn-pairs   Agfilenamef"language/elisp/compile-tree-il.scm               )   *   0   5   B  Q   l   y          !  *  6      "  +        #    #       A  "  A gnamegcompile-lambdaCR~chPF]$:45 $6(" 45$ 6C6>gloc  Mgsym  Mgdoc   Mgfilenamef"language/elisp/compile-tree-il.scm                )    $   *  /  ) 1  2   6   < !  ? "  A !  I  * M    M gnameghandle-var-defCRZh`U]$R4455$>445545$["$&CCCCCMgsym  ]gtype  ]gop  ) Ygop  ? Ygfilenamef"language/elisp/compile-tree-il.scm (  *  )  +  +   +   )   ,   ,  ) ,  ) ,  , -  6 -  ? ,  D .  H .  K .  Q . T /   ] gnameg find-operatorCR\^hP3] $@45$"45$C45$C6C+gexpr  Kgt  )gt 7 Igfilenamef"language/elisp/compile-tree-il.scm 4  5  5  6   6   6   6  6 $ $ 6 7 & 6 $ - 6  0 8  5 8 " 7 8  7 8 G 9 " I 9   K gnamegcontains-unquotes?CR~\h(]$45 $6CCgexpr  "gfilenamef"language/elisp/compile-tree-il.scm B  C  C  C   C   C   C 2  C (  " gnameg unquote-cell?CR~^h(]$45 $6CCgexpr  "gfilenamef"language/elisp/compile-tree-il.scm E  F  F  F   F   F   F ;  F (  " gnamegunquote-splicing-cell?CR~\^aicLh]*45$$45$"45$645$45 "$ 45"$ 45"$  456  $ 45" 456  66gloc  gexpr  gt   2ghead  A gprocessed-tail  M ghead-is-list-2  e g head-unquote  z ghead-unquote-splicing  gfilenamef"language/elisp/compile-tree-il.scm H  I  I   J  J   K   K  ) K ' 6 K ; L  > L  A M  A M  D N % K N < M N % M M  R O * V O % W P - ` P * e M  m Q # n R ( s R 2 u R ( z M  S , T 1 U 2 T 1 M  V  X $ Y $ Y 2 Y $ W  [ ( \ $ ] ( ] 6 ] ( ^ ( [  a  ` c 1  gnamegprocess-backquoteCRchpi h](4>"G"&"$ 45"$"4>"G[&4 56&" 4 5Y44 5>ZCZFgloc  gfluid  gsyms   gbody   gold  c gnew  gfilenamef"language/elisp/compile-tree-il.scm i  j  k   k   k  $ l  ( l ) l  0 m  4 m  5 m ! F l  K n  Q n  X n  c o  i r  m r  r q ( | q  t ! t  u  v  t  q  q ( q   gnamegwith-added-symbolsCR4hph]456gloc  gargs  gfilenamef"language/elisp/compile-tree-il.scm |  }   }    C5-R4Mhph` ]"$R$?4545( 45"44556CCgloc  ]gargs  ]gvx   [gvy   [gvx  Ygvy  Ygfilenamef"language/elisp/compile-tree-il.scm     )   0   <   =   H   M  * W   Y    ] C5.R4hzVLh` ]"$R$?45$$4455456CCCgloc  ]gargs  ]gvx   [gvy   [gvx  Ygvy  Ygfilenamef"language/elisp/compile-tree-il.scm     %  3   8   A  - I   J   U   W    ] C5/R4haLVezh]""$$45$z44444554554 4 554554 54 4 555456CCC$(6","(gloc  gargs  gvx   gvy   gvx  $ gvy  $ gvx  gvy  gfilenamef"language/elisp/compile-tree-il.scm     )  7   <  A  F  L   M   S   T   ^   _   i  j  p   q   ~        .            C50R4hzVychx](C4("5$54L54L("4L55CL6gargs  tglast  tgx   *gsym  , tgval  , tgx  J ]gfilenamef"language/elisp/compile-tree-il.scm               %        ! '  % ,   ,  3   7  8   E   J  % J   R   S  ! Z  % ^   j   k   r  ! t    t gnamegloopCMh0] OQ44556gloc  )gargs  )gloop   'gfilenamef"language/elisp/compile-tree-il.scm       $   )    ) C51R4Vh(]$6Cgloc  !gargs  !gvx   gvy   gfilenamef"language/elisp/compile-tree-il.scm         ! C52R4h(]$6Cgloc  !gargs  !gvx   gvy   gfilenamef"language/elisp/compile-tree-il.scm            ! C53R4Zh(]$6Cgloc  !gargs  !gvx   gvy   gfilenamef"language/elisp/compile-tree-il.scm         ! C54R4Vh(]$6Cgloc  !gargs  !gvx   gvy   gfilenamef"language/elisp/compile-tree-il.scm         ! C55R4h(]$6Cgloc  !gargs  !gvx   gvy   gfilenamef"language/elisp/compile-tree-il.scm            ! C56R4Zh(]$6Cgloc  !gargs  !gvx   gvy   gfilenamef"language/elisp/compile-tree-il.scm         ! C57R4Ih(]$6Cgloc  !gargs  !gvx   gvy   gfilenamef"language/elisp/compile-tree-il.scm         ! C59R4ehP]"$B$/($$ 6CCCCCgloc  Mgargs  Mgvx   Kgvy   Kgvx  Igvy  Igfilenamef"language/elisp/compile-tree-il.scm     -  1   4  / 8   C    M C5:R4`h(]$(6CCgloc  %gargs  %gvx   #gvy   #gfilenamef"language/elisp/compile-tree-il.scm     !    % C5;R4p_vhkMqrhl]B$4545445544554 454 554 4 5 5   6Cdgloc  gargs  gvx   gvy   gitersym   g compiled-body  # g iter-call  : g full-body  O g lambda-body  h g iter-thunk  gfilenamef"language/elisp/compile-tree-il.scm              #   &   +  ) 1  ; 5  ) 8  ) :   :   =   B  & O   O   R   W  + `  + h   h   k   p  % q  % u  7 y  7 z  7   %     %  &  '  # $  C5"GC6CCgloc  gargs  gvx   gvy   gvx  gvy  gtree-il  s gfilenamef"language/elisp/compile-tree-il.scm 1  2  ' 4  + 4  , 7  1 :  : >  ? @  E @ * G @ 3 J @  K A  Q A + S A  T B  a A  c >  e :  f C  q 9  s 7  s 6 v D y D  E  F  D 5  5   C5>R4hzZLchh]"$V$C$(44554566CCgloc  agargs  agvx   _gvy   _gvx  ]gvy  ]gfilenamef"language/elisp/compile-tree-il.scm I  J  ' L  + L  0 O  9 R - E O  F U  Q O  S N Y M  ] M   a C5?R4h(]$(6CCgloc  %gargs  %gvx   #gvy   #gfilenamef"language/elisp/compile-tree-il.scm W  X  ! Z   % C5@R4Lh(]$(6CCgloc  %gargs  %gvx   #gvy   #gfilenamef"language/elisp/compile-tree-il.scm \  ]  ! _   % C5AR_yZp hp]"45$645$ 4?6$45"45456gloc  mgexpr  mgoperator   mg arguments   mgt   mgt  . mgfilenamef"language/elisp/compile-tree-il.scm c  d   e   d  g   g   g   f  % i & j  , j  . j  . f  9 l  A l H o  L o  M p  \ s  c t  m n   m gnameg compile-pairCR}MPyVh0]$6$66gloc  *gsym  *gfilenamef"language/elisp/compile-tree-il.scm y z   {  z  | * }   * gnamegcompile-symbolCRKLh8] 45$6$66gexpr  1gloc 1gfilenamef"language/elisp/compile-tree-il.scm                  !   )   1    1 gnameg compile-exprCRh ]&C$6Cgvalue  gfilenamef"language/elisp/compile-tree-il.scm                   gnamegvalid-symbol-list-arg?CRcI hpR]("$S( 6$C$45$\C6 6CJgopt  lgkey . jgvalue  . jgfilenamef"language/elisp/compile-tree-il.scm                      #   '  *   -   .  ;  G   Q   ]  ! a   f  " j    l gnamegprocess-options!CRGHImK hH] 45Y4>"G454455ZDgexpr  Fgenv  Fgopts   Fgcompiled  * ?gfilenamef"language/elisp/compile-tree-il.scm     %   !    $   *   -   0   <   F    F gnamegcompile-tree-ilCRCgm  ,gfilenamef"language/elisp/compile-tree-il.scm   - =  6 = 7 A  @ A A F  J F 6 K  S  V  [   [  ]  _ ^ f / i  n  t  w 1 y   5  J c "  ( C ) i 0 n >  @Y  B0 ( C 4 D B E E I H L i L | Mb  N  P  S  V  W  X  Y  Z  [  \  ]z  ^  _  c * e 1 g I i{ W jj \ m| c n y o  p  r  t"  C  t$ C62.0/ccache/language/elisp/runtime/macros.go000064400000022453151463412640014462 0ustar00GOOF----LE-8-2.0%]n4h] gguile  gdefine-module*   glanguage gelisp gruntime gmacros   gfilenameS f!language/elisp/runtime/macros.scm gimportsS    gset-current-module   g make-fluid   gmacro gfunction glambda g macro-lambda gcall-with-deferred-observers   gmodule-export!   !gcurrent-module "! #! $ %ggensym &g lexical-let 'gappend (' )' *g macro-prog1 +* ,gprogn -gprog1 .g macro-prog2 /. 0gif 1gnil 21 3g macro-when 43 5g macro-unless 65 7g macro-error 8finvalid clause in cond 9g macro-cond :9 ;gt gmacro-or ?> @glength Afinvalid dotimes arguments Bf#expected symbol as dotimes variable Cglet D  Egwhile Fgguile-primitive Gg< HFG Igsetq Jg1+ KFJ Lg macro-dotimes ML Nfinvalid dolist arguments Ognot PFO Qgnull? RFQ Sgcar TFS Ugcdr VFU Wf"expected symbol as dolist variable Xg macro-dolist YX Zfcatch with empty body [gcatch \F[ ]gwith-always-lexical ^geq _gthrow `F_ ag macro-catch ba cf#unwind-protect without cleanup code dg dynamic-wind eFd f1 ggmacro-unwind-protect hg ig macro-pop ji kgcons lg macro-push mlC5h]4    54>"G4hp-13Chgcdr gfilenamef!language/elisp/runtime/macros.scm      C5R4 #$hS]456Kgfilenamef!language/elisp/runtime/macros.scm    C>"G4%&)h0-134545Cgform1 +grest +gtemp   +gfilenamef!language/elisp/runtime/macros.scm %  &   &   '  + C5*R4 #+hS]456Kgfilenamef!language/elisp/runtime/macros.scm $   C>"G4,-h -13Cgform1 gform2 grest  gfilenamef!language/elisp/runtime/macros.scm ,  -    C5.R4 #/hS]456Kgfilenamef!language/elisp/runtime/macros.scm +   C>"G40,2h-13Cg condition gthens gfilenamef!language/elisp/runtime/macros.scm 2  3   C53R4 #4hS]456Kgfilenamef!language/elisp/runtime/macros.scm 1   C>"G401,h-13Cg condition gelses gfilenamef!language/elisp/runtime/macros.scm 6  7   C55R4 #6hS]456Kgfilenamef!language/elisp/runtime/macros.scm 5   C>"G4178%&0,hp~](C4L5$"$6(#45CCvgtail  pgcur  pgrest   pgvar  A _gfilenamef!language/elisp/runtime/macros.scm @   A  B  C   D   D   D   C  F ! ! F  $ F . ) F  - E 1 G 5 G  8 H  < E = I  A I  E J  J J + M J  a O  d O  f O  i P ! j O   p gnamegiterateCh -13OQ6gclauses giterate  gfilenamef!language/elisp/runtime/macros.scm ?   @   C59R4 #:hS]456Kgfilenamef!language/elisp/runtime/macros.scm >   C>"G4;02h ](C4L5Cgx  gtail  gfilenamef!language/elisp/runtime/macros.scm Z   [  ]  ^   ^   ^ %  ^   ]   gnamegiterateCh8)3C)3C-13OQ6gx  gx ! 6gargs ! 6giterate  ) 6gfilenamef!language/elisp/runtime/macros.scm V  W   V  ) Z      ! 6 C5"G41%&0h8] (C454L5Cgx  6gtail  6gvar   6gfilenamef!language/elisp/runtime/macros.scm f   g  i   i  j % m  * m  - m ) / m  2 j   6 gnamegiterateCh8)3C)3C-13OQ6gx  gx ! 6gargs ! 6giterate  ) 6gfilenamef!language/elisp/runtime/macros.scm b  c   b  ) f      ! 6 C5>R4 #?hS]456Kgfilenamef!language/elisp/runtime/macros.scm a   C>"G4@7ABCDEH)IK h-13$(45 $" 45 "$6$"4>"G4   545 $ "Cgargs gbody gt   4gvar  L gcount  L gfilenamef!language/elisp/runtime/macros.scm r  t   s   u   u   s  ( v  1 v  9 t  = s  A w  E w  H x  K y  L x  S z  W z \ {  ` {  e {  o |       |  C5LR4 #MhS]456Kgfilenamef!language/elisp/runtime/macros.scm q   C>"G4@7N%C&EPRIT)VWh-13$(45 $" 45 "$645$l   4   545 $ "C6gargs gbody gt   4gvar  Q g iter-list  Q gtailvar  Q gfilenamef!language/elisp/runtime/macros.scm           (  1  9  =  A  E  H  K  M  Q  Z  ^ `           C5XR4 #YhT]456Lgfilenamef!language/elisp/runtime/macros.scm   C>"G47Z%&\]0^` h-13(4>"G"45454545  C~gtag gbody gtagsym  * g dummy-key  G g elisp-key  N gvalue  U garglist  ` gfilenamef!language/elisp/runtime/macros.scm          &  *  .  C  G J  N Q  U `  ` d  C5aR4 #bhT]456Lgfilenamef!language/elisp/runtime/macros.scm   C>"G47cefh@-13(4>"G"Cgbody <g clean-ups <gfilenamef!language/elisp/runtime/macros.scm          '  < C5gR4 #hhT]456Lgfilenamef!language/elisp/runtime/macros.scm   C>"G4-SIUh v]Cng list-name  gfilenamef!language/elisp/runtime/macros.scm      C5iR4 #jhT]456Lgfilenamef!language/elisp/runtime/macros.scm   C>"G4Ikh]Cgnew-el  g list-name  gfilenamef!language/elisp/runtime/macros.scm      C5lR #mhT]456Lgfilenamef!language/elisp/runtime/macros.scm   C6gm  (gfilenamef!language/elisp/runtime/macros.scm   )  Y $  + 9 1  5  > ) U a  q    z     C62.0/ccache/language/elisp/runtime/function-slot.go000064400000007034151463412640016000 0ustar00GOOF----LE-8-2.0]4hx ] gguile  gdefine-module*   glanguage gelisp gruntime g function-slot   gfilenameS f(language/elisp/runtime/function-slot.scm g duplicatesS glast  gimportsS gsubrs   gmacros  gselectS g macro-lambda glambda  g macro-prog1 gprog1  g macro-prog2 gprog2  g macro-when !gwhen " ! #g macro-unless $gunless %#$ &g macro-cond 'gcond (&' )g macro-and *gand +)* ,gmacro-or -gor .,- /g macro-dotimes 0gdotimes 1/0 2g macro-dolist 3gdolist 423 5g macro-catch 6gcatch 756 8gmacro-unwind-protect 9gunwind-protect :89 ;g macro-pop g macro-push ?gpush @>? A"%(+.147:=@ BA Cgcompile-tree-il DC Eg compile-progn Fgprogn GEF Hg compile-if Igif JHI Kgcompile-defconst Lgdefconst MKL Ngcompile-defvar Ogdefvar PNO Qg compile-setq Rgsetq SQR Tg compile-let Uglet VTU Wgcompile-lexical-let Xg lexical-let YWX Zg compile-flet [gflet \Z[ ]g compile-let* ^glet* _]^ `gcompile-lexical-let* ag lexical-let* b`a cg compile-flet* dgflet* ecd fgcompile-with-always-lexical ggwith-always-lexical hfg igcompile-guile-ref jg guile-ref kij lgcompile-guile-primitive mgguile-primitive nlm og compile-while pgwhile qop rgcompile-function sgfunction trs ug compile-defun vgdefun wuv xgcompile-defmacro ygdefmacro zxy {g compile-` |g` }{| ~g compile-quote gquote ~ GJMPSVY\_behknqtwz} D B g re-exportsS geq gequal gfloatp gintegerp gnumberp g wholenump gzerop g= g/= g< g<= g> g>= gmax gmin gabs gfloat g1+ g1- g+ g- g* g% gffloor gfceiling g ftruncate gfround gconsp gatomp glistp gnlistp gnull gcar gcdr gcar-safe gcdr-safe gnth gnthcdr glength gcons glist g make-list gappend greverse g copy-tree gnumber-sequence gsetcar gsetcdr g symbol-value gsymbol-function gset gfset g makunbound g fmakunbound gboundp gfboundp gapply gfuncall gthrow gnot geval gload FILORUX[^adgjmpsvy|!$'*-0369<?` gset-current-module  C5h0j]4    5 4>"GCbgm  0gfilenamef(language/elisp/runtime/function-slot.scm    0 C62.0/ccache/language/elisp/runtime/subrs.go000064400000056465151463412640014346 0ustar00GOOF----LE-8-2.0]]4h ] gguile  gdefine-module*   glanguage gelisp gruntime gsubrs   gfilenameS f language/elisp/runtime/subrs.scm gimportsS   gsystem gbase gcompile    gset-current-module   g elisp-bool geq gcall-with-deferred-observers   gmodule-export!   !gcurrent-module "! #! $ %gequal &% 'greal? (ginexact? )ginteger? *gfloatp +* ,gexact? -gintegerp .- /gnumberp 0/ 1g wholenump 21 3gzerop 43 5g= 65 7g/= 87 9g< :9 ;g<= <; =g> >= ?g>= @? Agmax BA CA DA Egmin FE GE HE Igabs JI KI LI Mgexact->inexact Ngfloat ON Pg1+ QP RP SP Tg1- UT VT WT Xg+ YX ZX [X \g- ]\ ^\ _\ `g* a` b` c` dgmodulo eg% fe ggfloor hg ig jgffloor kj lgceiling ml nl ogfceiling po qgtruncate rq sq tg ftruncate ut vground wv xv ygfround zy {gconsp |{ }gatomp ~} glistp  gnlistp  gnull  g nil-value gcar  gcdr  gcar-safe  gcdr-safe  gnth  gnthcdr  glength    gcons    glist    g make-list    gappend    greverse    g copy-tree    g runtime-error f&too many arguments for number-sequence f infinite list in number-sequence gnumber-sequence  gsetcar  gsetcdr  greference-variable gvalue-slot-module g symbol-value  gfunction-slot-module gsymbol-function  g set-variable! gset  gfset  g module-bound? gresolve-interface gmodule-variable gresolve-module gfluid? g fluid-unset! gvariable-unset! g makunbound  g fmakunbound  g fluid-bound? gboundp  gfboundp  glambda gfromS gtoS gvalue flist is not a function gapply    gfuncall  gthrow   gelisp-exception  gt-value gnot  geval  g compile-file gload C5hM{]4    54>"Gh]6ga  gb  gfilenamef language/elisp/runtime/subrs.scm  !  !   gnamegeqCR4 #$hR]456Jgfilenamef language/elisp/runtime/subrs.scm    C>"Gh]6ga  gb  gfilenamef language/elisp/runtime/subrs.scm $  %  %   gnamegequalC%R4 #&hR]456Jgfilenamef language/elisp/runtime/subrs.scm #   C>"G'()h8] 45$$45$"45"6gnum  6gt  /gfilenamef language/elisp/runtime/subrs.scm *   +   +   ,   ,  % - # , -  6 +   6 gnamegfloatpC*R4 #+hR]456Jgfilenamef language/elisp/runtime/subrs.scm )   C>"G,)h ]45$ 45"6gnum  gfilenamef language/elisp/runtime/subrs.scm 0   1   1   2   1    gnamegintegerpC-R4 #.hR]456Jgfilenamef language/elisp/runtime/subrs.scm /   C>"G'h]456gnum  gfilenamef language/elisp/runtime/subrs.scm 5   6  6   gnamegnumberpC/R4 #0hR]456Jgfilenamef language/elisp/runtime/subrs.scm 4   C>"G,)h0]45$45$ ""6gnum  *gfilenamef language/elisp/runtime/subrs.scm 9   :   :   ;   :   <  * :   * gnameg wholenumpC1R4 #2hR]456Jgfilenamef language/elisp/runtime/subrs.scm 8   C>"Gh] 6gnum  gfilenamef language/elisp/runtime/subrs.scm ?   @  @   gnamegzeropC3R4 #4hR]456Jgfilenamef language/elisp/runtime/subrs.scm >   C>"Gh]6gnum1  gnum2  gfilenamef language/elisp/runtime/subrs.scm E  F  F   gnameg=C5R4 #6hR]456Jgfilenamef language/elisp/runtime/subrs.scm D   C>"Gh]6gnum1  gnum2  gfilenamef language/elisp/runtime/subrs.scm I  J  J  J   gnameg/=C7R4 #8hR]456Jgfilenamef language/elisp/runtime/subrs.scm H   C>"Gh]6gnum1  gnum2  gfilenamef language/elisp/runtime/subrs.scm M  N  N   gnameg<C9R4 #:hR]456Jgfilenamef language/elisp/runtime/subrs.scm L   C>"Gh]6gnum1  gnum2  gfilenamef language/elisp/runtime/subrs.scm Q  R  R   gnameg<=C;R4 #<hR]456Jgfilenamef language/elisp/runtime/subrs.scm P   C>"Gh]6gnum1  gnum2  gfilenamef language/elisp/runtime/subrs.scm U  V  V   gnameg>C=R4 #>hR]456Jgfilenamef language/elisp/runtime/subrs.scm T   C>"Gh]6gnum1  gnum2  gfilenamef language/elisp/runtime/subrs.scm Y  Z  Z   gnameg>=C?R4 #@hR]456Jgfilenamef language/elisp/runtime/subrs.scm X   C>"GCh-13@xgnums gfilenamef language/elisp/runtime/subrs.scm ]   ^   gnamegmaxCAR4 #DhR]456Jgfilenamef language/elisp/runtime/subrs.scm \   C>"GGh-13@xgnums gfilenamef language/elisp/runtime/subrs.scm a   b   gnamegminCER4 #HhR]456Jgfilenamef language/elisp/runtime/subrs.scm `   C>"GKIR4 #LhR]456Jgfilenamef language/elisp/runtime/subrs.scm d   C>"G,Mh]45$6Cgnum  gfilenamef language/elisp/runtime/subrs.scm j   k  k   l    gnamegfloatCNR4 #OhR]456Jgfilenamef language/elisp/runtime/subrs.scm i   C>"GRPR4 #ShR]456Jgfilenamef language/elisp/runtime/subrs.scm s   C>"GVTR4 #WhR]456Jgfilenamef language/elisp/runtime/subrs.scm u   C>"GZXR4 #[hR]456Jgfilenamef language/elisp/runtime/subrs.scm w   C>"G^\R4 #_hR]456Jgfilenamef language/elisp/runtime/subrs.scm y   C>"Gb`R4 #chR]456Jgfilenamef language/elisp/runtime/subrs.scm {   C>"GdieR4 #fhR]456Jgfilenamef language/elisp/runtime/subrs.scm }   C>"GijR4 #khS]456Kgfilenamef language/elisp/runtime/subrs.scm   C>"GnoR4 #phS]456Kgfilenamef language/elisp/runtime/subrs.scm   C>"GstR4 #uhS]456Kgfilenamef language/elisp/runtime/subrs.scm   C>"GxyR4 #zhS]456Kgfilenamef language/elisp/runtime/subrs.scm   C>"Gh]6gel  gfilenamef language/elisp/runtime/subrs.scm      gnamegconspC{R4 #|hS]456Kgfilenamef language/elisp/runtime/subrs.scm   C>"Gh]6gel  gfilenamef language/elisp/runtime/subrs.scm        gnamegatompC}R4 #~hS]456Kgfilenamef language/elisp/runtime/subrs.scm   C>"Gh]$"6gel  gfilenamef language/elisp/runtime/subrs.scm            gnameglistpCR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm   C>"Gh]$"6gel  gfilenamef language/elisp/runtime/subrs.scm             gnamegnlistpCR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm   C>"Gh]6gel  gfilenamef language/elisp/runtime/subrs.scm      gnamegnullCR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm   C>"Gh](CCgel  gfilenamef language/elisp/runtime/subrs.scm        gnamegcarCR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm   C>"Gh](CCgel  gfilenamef language/elisp/runtime/subrs.scm        gnamegcdrCR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm   C>"Gh]$CCgel  gfilenamef language/elisp/runtime/subrs.scm        gnamegcar-safeCR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm   C>"Gh]$CCgel  gfilenamef language/elisp/runtime/subrs.scm        gnamegcdr-safeCR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm   C>"GhH] $C"#(C $C"" gn  Aglst  Agi   5gtail   5gfilenamef language/elisp/runtime/subrs.scm          # &  *  - & 5  5   A gnamegnthCR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm   C>"Gh@] $C""(C $C""gn  ?glst  ?gi   3gtail   3gfilenamef language/elisp/runtime/subrs.scm         " (  + & 3  3   ? gnamegnthcdrCR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm   C>"GR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm   C>"GR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm   C>"GR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm   C>"Gh]6glen  gobj  gfilenamef language/elisp/runtime/subrs.scm     gnameg make-listCR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm   C>"GR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm   C>"GR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm   C>"GR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm   C>"GKh-1345 $ 6(C$"$ "$"$C"W$C"!$C"4545" $$"6"gfrom grest gt  5 Lgto  Y gsep  Y gt  b wgi  gresult  gfilenamef language/elisp/runtime/subrs.scm           "  (  - 1  4 & 5  5  G . I  P  X  Y b  b  t ' {  9  (   ;               3 9 3  3 - ' !  &     +   5 gnamegnumber-sequenceCR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm   C>"Gh(]((""Cgcell  #gval  #gfilenamef language/elisp/runtime/subrs.scm             # gnamegsetcarCR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm    C>"Gh(]((""Cgcell  #gval  #gfilenamef language/elisp/runtime/subrs.scm             # gnamegsetcdrCR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm    C>"Gh]6gsym  gfilenamef language/elisp/runtime/subrs.scm      gnameg symbol-valueCR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm    C>"Gh]6gsym  gfilenamef language/elisp/runtime/subrs.scm      gnamegsymbol-functionCR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm    C>"Gh]6gsym  gvalue  gfilenamef language/elisp/runtime/subrs.scm "  #   gnamegsetCR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm !   C>"Gh]6gsym  gvalue  gfilenamef language/elisp/runtime/subrs.scm &  '   gnamegfsetCR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm %   C>"G h1] 4455$i4455$945$4>"G"4>"G"4>"G"C)gsym  gvar " ygfilenamef language/elisp/runtime/subrs.scm *   +   +   +   +   ,   , " " ,  " ,  ' .  + .  , . ' 1 . / 3 . ' 7 . 8 / = /  B / O 0   gnameg makunboundCR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm )   C>"G h2] 4455$i4455$945$4>"G"4>"G"4>"G"C*gsym  gvar " ygfilenamef language/elisp/runtime/subrs.scm 4   5   5   5   5   6   7  " 6  " 6  ' 9  + 9 , 9 ) 1 9 1 3 9 ) 7 9  8 :  = :  B :  O ;   gnameg fmakunboundCR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm 3   C>"G hX+] 4455$<4455$45$ 45"""6#gsym  Ugvar $ Ngfilenamef language/elisp/runtime/subrs.scm ?   B   B   B   A   C   C " $ C  $ C  ) E - E  . F  3 F  5 F  9 F : G  ? G  A G  U @   U gnamegboundpCR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm >   C>"G hX,] 4455$<4455$45$ 45"""6$gsym  Ugvar $ Ngfilenamef language/elisp/runtime/subrs.scm K   N   N   N   M   O   O # $ O  $ O  ) Q - Q  . R  3 R  5 R  9 R : S  ? S  A S  U L   U gnamegfboundpCR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm J   C>"G hhN-13$ 45">$5("$45" 4  5" @Fgfunc egargs eg real-func  [ egfilenamef language/elisp/runtime/subrs.scm Z  \   [   ]  ^  $ [  * _  2 ` % 4 ` 5 5 ` 9 _  : a  B a 0 F a < H a  M b  Q b * U b  [ [  e e  e gnamegapplyCR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm Y   C>"Gh-136gfunc gargs gfilenamef language/elisp/runtime/subrs.scm h   i   gnamegfuncallCR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm g   C>"Gh]6gtag  gvalue  gfilenamef language/elisp/runtime/subrs.scm n   o   o  o   gnamegthrowCR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm m   C>"Gh}]$CCugx  gfilenamef language/elisp/runtime/subrs.scm t   u    gnamegnotCR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm s   C>"Gh]6gform  gfilenamef language/elisp/runtime/subrs.scm x  y   y %  y    gnamegevalCR4 #hS]456Kgfilenamef language/elisp/runtime/subrs.scm w   C>"Gh ]4>"GCgfile  gfilenamef language/elisp/runtime/subrs.scm |   }  }   } *  }    gnamegloadCR #hS]456Kgfilenamef language/elisp/runtime/subrs.scm {   C6sgm  (gfilenamef language/elisp/runtime/subrs.scm     #  )  / L 4  8  > A D H L  P I T  X  \  ` t d  i D s  u d w  y  {  }  5  U   '  ! # $X % ' )n ) * + ,a , -} . 2 4  5y  6  7  9= ! : % < ) ?E 3 Av > C J F Y GZ g H m I s K& w L { @  M C62.0/ccache/language/elisp/runtime/value-slot.go000064400000000751151463412640015266 0ustar00GOOF----LE-8-2.0]4h] gguile  gdefine-module*   glanguage gelisp gruntime g value-slot   gfilenameS f%language/elisp/runtime/value-slot.scm gset-current-module    C5h(g]4   54>"GC_gm $gfilenamef%language/elisp/runtime/value-slot.scm    $ C62.0/ccache/language/tree-il/effects.go000064400000125024151463412640013355 0ustar00GOOF----LE-8-2.0]4h6] gguile  gdefine-module*   glanguage gtree-il geffects  gfilenameS flanguage/tree-il/effects.scm gimportsS    g primitives   gice-9 gmatch    gexportsS gmake-effects-analyzer g&mutable-lexical g &toplevel g&fluid g&definite-bailout g&possible-bailout g &zero-values g &allocation g &mutable-data !g &type-check "g &all-effects #geffects-commute? $gexclude-effects %g effect-free? &g constant? 'gdepends-on-effects? (gcauses-effects? ) !"#$%&'( *gset-current-module +* ,* -gmake-syntax-transformer .- /- 0gdefine-effects 1gmacro 2g $sc-dispatch 32 42 5g_ 6gany 7geach-any 867 958 :giota ;glength gtop ?> @gribcage A@ Bgn CB D? Efl-a141b7f3b9a-1d09 FE G@CDF Hgall Igname JHI K?? Lfl-a141b7f3b9a-1d02 Mfl-a141b7f3b9a-1d03 NLM O@JKN Pgx QP Rfl-a141b7f3b9a-1cff SR T@QDS U?AGOAT Vghygiene WV X<=UW Ygappend ZY [Y \gmap ]\ ^\ _g define-syntax `<_UW agidentifier-syntax b<aUW cgash d<cUW e< UW fg* g<fUW h< UW ih jglogior k<jUW lgsyntax-violation ml nl of-source expression failed to match any pattern pg identifier? qp rp sgm-a141b7f3b9a-1d0f ts> ugid vu wgm-a141b7f3b9a-1d10 xw> yx zfl-a141b7f3b9a-1d17 {z |@vy{ }fl-a141b7f3b9a-1d12 ~} @Qy~ gshift t|AAGOAT  <cW < W <fW |A < W < W   57 fl-a141b7f3b9a-1d1a  @Qy tAAGOAT  <cW < W <fW A < W < W   gm-a141b7f3b9a-1d1d >  fl-a141b7f3b9a-1d24  @v fl-a141b7f3b9a-1d1f  @Q tAAGOAT  <cW < W <fW A < W < W   fl-a141b7f3b9a-1d27  @Q tAAGOAT  <cW < W <fW A < W < W   gm-a141b7f3b9a-1d2a >  fl-a141b7f3b9a-1d31  @v fl-a141b7f3b9a-1d2c  @Q tAAGOAT  <cW < W <fW A < W < W   fl-a141b7f3b9a-1d34  @Q tAAGOAT  <cW < W <fW A < W < W   gm-a141b7f3b9a-1d37 >  fl-a141b7f3b9a-1d3e  @v fl-a141b7f3b9a-1d39  @Q tAAGOAT  <cW < W <fW A < W < W   fl-a141b7f3b9a-1d41  @Q tAAGOAT  <cW < W <fW A < W < W   gm-a141b7f3b9a-1d44 >  fl-a141b7f3b9a-1d4b  @v fl-a141b7f3b9a-1d46  @Q tAAGOAT  <cW < W <fW A < W < W   fl-a141b7f3b9a-1d4e  @Q tAAGOAT  <cW < W  <fW  A  <  W  < W        gm-a141b7f3b9a-1d51 >  fl-a141b7f3b9a-1d58  @v fl-a141b7f3b9a-1d53  @Q tAAGOAT  <cW < W <fW A < W < W    !fl-a141b7f3b9a-1d5b "! #@Q" $t#AAGOAT  %<c$W &< $W '<f$W (#A )< (W *< $W +')* ,%&+ -gm-a141b7f3b9a-1d5e .-> /. 0fl-a141b7f3b9a-1d65 10 2@v/1 3fl-a141b7f3b9a-1d60 43 5@Q/4 6t2A5AGOAT  7<c6W 8< 6W 9<f6W :2A5 ;< :W << 6W =9;< >78= ?fl-a141b7f3b9a-1d68 @? A@Q/@ BtAA5AGOAT  C<cBW D< BW E<fBW FAA5 G< FW H< BW IEGH JCDI Kgm-a141b7f3b9a-1d6b LK> ML Nfl-a141b7f3b9a-1d72 ON P@vMO Qfl-a141b7f3b9a-1d6d RQ S@QMR TtPASAGOAT  U<cTW V< TW W<fTW XPAS Y< XW Z< TW [WYZ \UV[ ]fl-a141b7f3b9a-1d75 ^] _@QM^ `t_ASAGOAT  a<c`W b< `W c<f`W d_AS e< dW f< `W gcef habg igm-a141b7f3b9a-1d78 ji> kj lfl-a141b7f3b9a-1d7f ml n@vkm ofl-a141b7f3b9a-1d7a po q@Qkp rtnAqAGOAT  s<crW t< rW u<frW vnAq w< vW x< rW yuwx zsty {fl-a141b7f3b9a-1d82 |{ }@Qk| ~t}AqAGOAT  <c~W < ~W <f~W }Aq < W < ~W   gm-a141b7f3b9a-1d85 >  fl-a141b7f3b9a-1d8c  @v fl-a141b7f3b9a-1d87  @Q tAAGOAT  <jW ?A <W <W <W <W <W <W <W < W <!W   fl-a141b7f3b9a-1d8f  @Q tAAGOAT  <jW ?A <W <W <W <W <W <W <W < W <!W   g &no-effects gm-a141b7f3b9a-1d92 >  fl-a141b7f3b9a-1d99  @v fl-a141b7f3b9a-1d94  @Q ?A < W fl-a141b7f3b9a-1d9c  @Q ?A < W g&all-effects-but-bailout glogand gm-a141b7f3b9a-1d9f >  fl-a141b7f3b9a-1da6  @v fl-a141b7f3b9a-1da1  @Q ?A <W <"W glognot <W <W   fl-a141b7f3b9a-1da9  @Q ?A <W <"W <W <W   g% cause-procedure gcause 56 gsyntax-parameterize gm-a141b7f3b9a-1dad > gt-a141b7f3b9a-1dac   fl-a141b7f3b9a-1db2  @ fl-a141b7f3b9a-1daf  @Q g proc-name gargs  f l-bde397a-8e8 f l-bde397a-8e9  @K gformals gbody I ??? f l-bde397a-8df f l-bde397a-8e0 f l-bde397a-8e1  @ gmake-procedure-name gprefix  ?? f l-bde397a-8d3 f l-bde397a-8d1  @ f l-bde397a-8d0  @QD AAAAA  V < ?A  <W  <a  <W           glambda < geffect <W  <cW < W    fWrong number of arguments ?A <W g% &depends-on-procedure g &depends-on gm-a141b7f3b9a-1dc8 >  gt-a141b7f3b9a-1dc7 !  " #fl-a141b7f3b9a-1dcd $# %@!"$ &fl-a141b7f3b9a-1dca '& (@Q"' )%A(AAAA  *<) +?%A( ,<+W -<a) .<+W /-. 0,/ 10 2<) 3ga 4<3+W 54 6<+W 7<"+W 8647 9258 :*19 ;?A( <<;W =g% &causes-procedure >g&causes ?gm-a141b7f3b9a-1ded @?> Agt-a141b7f3b9a-1dec BA C@ Dfl-a141b7f3b9a-1df2 ED F@BCE Gfl-a141b7f3b9a-1def HG I@QCH J@FAIAAAA  K<J L?FAI M<>LW N<aJ O<=LW PNO QMP RQ S<J T<3LW UT V<LW W<LW X<"LW YWX ZVTY [SUZ \KR[ ]?AI ^<=]W _g% depends-on-effects?-procedure `566 agm-a141b7f3b9a-1e65 ba> cgt-a141b7f3b9a-1e63 dgt-a141b7f3b9a-1e64 ecd fbb gfl-a141b7f3b9a-1e6a hfl-a141b7f3b9a-1e6b igh j@efi kb lfl-a141b7f3b9a-1e67 ml n@Qkm objAnAAAA  p<o q?jAn r<'qW s<ao t<_qW ust vru wv x<o y<PqW z<qW {yz |gnot }<|qW ~gzero? <~qW <qW <qW y z  } x{ pw ?An <_W g% causes-effects?-procedure gm-a141b7f3b9a-1e9f > gt-a141b7f3b9a-1e9d gt-a141b7f3b9a-1e9e   fl-a141b7f3b9a-1ea4 fl-a141b7f3b9a-1ea5  @  fl-a141b7f3b9a-1ea1  @Q AAAAA  < ?A <(W <a <W    < <PW <W  <|W <~W <W <>W  <W       ?A <W g% effects-commute?-procedure gm-a141b7f3b9a-1ef9 > gt-a141b7f3b9a-1ef7 gt-a141b7f3b9a-1ef8   fl-a141b7f3b9a-1efe fl-a141b7f3b9a-1eff  @  fl-a141b7f3b9a-1efb  @Q AAAAA  < ?A <#W <a <W    < <3W gb <W  gand <W <|W <(W <W          ?A <W gmake-hash-table g hashq-ref g hashq-set! g g gerror   fno matching pattern g  g  gor-map g g  g  gmake-application g gbailout-primitive? geffect-free-primitive? gconstructor-primitive? gaccessor-primitive? gmake-prompt-tag gvector glist gcons glist? gsymbol? gvector? gstruct? gstring? gnumber? gchar? gnull? gpair? gequal? geqv? geq? gvalues g  g  g  g   g   g  g g g g  g  g g g g  g gC5h@o]4    )54,>"G4/0149:;47X[^`bdegih ^]CVgtmp-a141b7f3b9a-1d0d  gtmp-a141b7f3b9a-1d0c     C`bkh0)]44L5LL5C!gn  *  * Cnoh8]445545$ O@6gall  7gname  7gtmp   7gtmp   7gfilenameflanguage/tree-il/effects.scm  >   > $  >   >   7 Cnoh(o] 45$@6ggx  "gtmp "gfilenameflanguage/tree-il/effects.scm ;   " C50R4/1rh`]6Xgid  gfilenameflanguage/tree-il/effects.scm  O    Ch*]C"gid     C4h)]C!gx     Cnoh@]4?$@45$@6gx  :gtmp  :gtmp  # :gfilenameflanguage/tree-il/effects.scm O   : g macro-typegidentifier-syntaxC5R4/1rh`]6Xgid  gfilenameflanguage/tree-il/effects.scm  O    Ch*]C"gid     C4h)]C!gx     Cnoh@]4?$@45$@6gx  :gtmp  :gtmp  # :gfilenameflanguage/tree-il/effects.scm O   : g macro-typegidentifier-syntaxC5R4/1rh`]6Xgid  gfilenameflanguage/tree-il/effects.scm  O    Ch*]C"gid     C4h)]C!gx     Cnoh@]4?$@45$@6gx  :gtmp  :gtmp  # :gfilenameflanguage/tree-il/effects.scm O   : g macro-typegidentifier-syntaxC5R4/1rh`]6Xgid  gfilenameflanguage/tree-il/effects.scm  O    Ch*]C"gid     C4h)]C!gx     Cnoh@]4?$@45$@6gx  :gtmp  :gtmp  # :gfilenameflanguage/tree-il/effects.scm O   : g macro-typegidentifier-syntaxC5R4/1rh`]6Xgid  gfilenameflanguage/tree-il/effects.scm  O    Ch*]C"gid     C4h)]C!gx     Cnoh@]4?$@45$@6gx  :gtmp  :gtmp  # :gfilenameflanguage/tree-il/effects.scm O   : g macro-typegidentifier-syntaxC5R4/1rh`]6Xgid  gfilenameflanguage/tree-il/effects.scm  O    C h*]C"gid     C4,h)]C!gx     Cnoh@]4?$@45$@6gx  :gtmp  :gtmp  # :gfilenameflanguage/tree-il/effects.scm O   : g macro-typegidentifier-syntaxC5R4/1rh`]6Xgid  gfilenameflanguage/tree-il/effects.scm  O    C>h*]C"gid     C4Jh)]C!gx     Cnoh@]4?$@45$@6gx  :gtmp  :gtmp  # :gfilenameflanguage/tree-il/effects.scm O   : g macro-typegidentifier-syntaxC5R4/ 1rh`]6Xgid  gfilenameflanguage/tree-il/effects.scm  O    C\h*]C"gid     C4hh)]C!gx     Cnoh@]4?$@45$@6gx  :gtmp  :gtmp  # :gfilenameflanguage/tree-il/effects.scm O   : g macro-typegidentifier-syntaxC5 R4/!1rh`]6Xgid  gfilenameflanguage/tree-il/effects.scm  O    Czh*]C"gid     C4h)]C!gx     Cnoh@]4?$@45$@6gx  :gtmp  :gtmp  # :gfilenameflanguage/tree-il/effects.scm O   : g macro-typegidentifier-syntaxC5!R4/"1rh`]6Xgid  gfilenameflanguage/tree-il/effects.scm  O    Ch*]C"gid     C4h)]C!gx     Cnoh@]4?$@45$@6gx  :gtmp  :gtmp  # :gfilenameflanguage/tree-il/effects.scm O   : g macro-typegidentifier-syntaxC5"R4/1rha]6Ygid  gfilenameflanguage/tree-il/effects.scm  {    Ch*]C"gid     C4h)]C!gx     Cnoh@]4?$@45$@6gx  :gtmp  :gtmp  # :gfilenameflanguage/tree-il/effects.scm {   : g macro-typegidentifier-syntaxC5R4/1rhb]6Zgid  gfilenameflanguage/tree-il/effects.scm     Ch*]C"gid     C4h)]C!gx     Cnoh@]4?$@45$@6gx  :gtmp  :gtmp  # :gfilenameflanguage/tree-il/effects.scm   : g macro-typegidentifier-syntaxC5Rh] Cgeffect  gfilenameflanguage/tree-il/effects.scm     gnameg% cause-procedureCR4/14h:]C2gt-a141b7f3b9a-1dac    Cnh`]L6Xga  gfilenameflanguage/tree-il/effects.scm    C5rhP]L6Hgfilenameflanguage/tree-il/effects.scm     Ch]C   Cno hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/effects.scm   n C5Rh]UUCga  gfilenameflanguage/tree-il/effects.scm     gnameg% &depends-on-procedureCR4/14:h:]C2gt-a141b7f3b9a-1dc7    Cnh`]L6Xga  gfilenameflanguage/tree-il/effects.scm    C5rhP]L6Hgfilenameflanguage/tree-il/effects.scm     C<h]C   Cno hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/effects.scm   n C5Rh]Cga  gfilenameflanguage/tree-il/effects.scm     gnameg% &causes-procedureC=R4/>14\h:]C2gt-a141b7f3b9a-1dec    Cn>h`]L6Xga  gfilenameflanguage/tree-il/effects.scm    C5rhP]L6Hgfilenameflanguage/tree-il/effects.scm     C^h]C   Cno hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/effects.scm   n C5>Rh]4 5Cgeffects  gexclude  gfilenameflanguage/tree-il/effects.scm         gnamegexclude-effectsC$Rh] Cgeffects  gfilenameflanguage/tree-il/effects.scm     gnameg effect-free?C%Rh] C|geffects  gfilenameflanguage/tree-il/effects.scm     gnameg constant?C&Rh]UU Cgx  geffects  gfilenameflanguage/tree-il/effects.scm           gnameg% depends-on-effects?-procedureC_R4/'14`hZ]CRgt-a141b7f3b9a-1e63  gt-a141b7f3b9a-1e64    Cn'h`]L6Xga  gfilenameflanguage/tree-il/effects.scm    C5rhP]L6Hgfilenameflanguage/tree-il/effects.scm     Ch]C   Cno hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/effects.scm   n C5'Rh] Cgx  geffects  gfilenameflanguage/tree-il/effects.scm   "         gnameg% causes-effects?-procedureCR4/(14`hZ]CRgt-a141b7f3b9a-1e9d  gt-a141b7f3b9a-1e9e    Cn(h`]L6Xga  gfilenameflanguage/tree-il/effects.scm    C5rhP]L6Hgfilenameflanguage/tree-il/effects.scm     Ch]C   Cno hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/effects.scm   n C5(RhX] UU $CUU Cga  Tgb  Tgeffects   'geffects  9 Rgfilenameflanguage/tree-il/effects.scm    +  9  9 S   T gnameg% effects-commute?-procedureCR4/#14`hZ]CRgt-a141b7f3b9a-1ef7  gt-a141b7f3b9a-1ef8    Cn#h`]L6Xga  gfilenameflanguage/tree-il/effects.scm    C5rhP]L6Hgfilenameflanguage/tree-il/effects.scm     Ch]C   Cno hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/effects.scm   n C5#Rh`]CXgx  gfilenameflanguage/tree-il/effects.scm 5   Ch8] 4L5$C4L54L>"GCgexp  8gt 8geffects  8gfilenameflanguage/tree-il/effects.scm         8 gnamegcompute-effectsCh0]"(C4L5" "gexps  0gexps  %gout   %gfilenameflanguage/tree-il/effects.scm       )  :  )   %  %   0 gnamegaccumulate-effectsC$;|     9hX ]Y"2"""c""-""""\""0" ""b"""f"6""$" ""j""D"""6""N" "")$&    4L5$"$4L54L>"G4L5$"$4L54L>"G4L5$"$4L54L>"GC&     ?C456456$&  "$(O4L5$"$4L54L>"G4  5C4L5$"$4L54L>"G"N456 "6""$ &         4 4L5 @54 L5$ " 4L5$"$4L54L>"G$B4L5$"$4L54L>"G" C""$ &    C""$' &   ?C""$ &  $&s    4L5$B454L5$C4L54L>"GC?C""""$a &T  $>&1  45$ 4L5 C"n"j"f"b"^$ &  $ &    4L5"" & "4455"~$Y &L4L5$"$4L54L>"G""""|$ &   & & & (      &d4L 5  $ "$4L 5 4L  >"G   4545$ " ""  """"""""t""f""^C"d"`"\"X$ &|  $f&Y  45$? 4L545$ "45$ @" C"""""$ &  $&|  &e $S(H4L5$"$4L54L>"G C""""" " "$\ &O  $9&,  & ( C""""""$v &i  $S&F  " 4L5 C"&""5&"""!"""$ &  $&  & $$(4L5$"$4L54L>"G4L5$"$4L54L>"G C"""""""" "$ &   $&  "t" "&X $F(;4L5$C4L54L>"GC"d"`&X $F(;4L5$C4L54L>"GC""&X $F(;4L5$C4L54L>"GC""&X $F(;4L5$C4L54L>"GC"D"@&X $F(;4L5$C4L54L>"GC""&X $F(;4L5$C4L54L>"GC"" &X $F(;4L5$C4L54L>"GC"$" "!&X $F(;4L5$C4L54L>"GC""""&X $F(;4L5$C4L54L>"GC"\"X"#&X $F(;4L5$C4L54L>"GC"""(""""$ &  $u&h  "  L6"8"$"$&""y%&""&&""'&"""E"A"="9$\ &O  $9&,  '& ( C""""""$!(&    4L5$"$4L54L>"G4L5$"$4L54L>"G4L5$"$4L54L>"G $ C  @6""$& C""$`)&S    4L5$"$4L54L>"GC""$`*&S    4L5$"$4L54L>"GC""$s+&f     4L5$"$4L54L>"GC"$" $,& C""$-& C""$.&   4L5$"$4L54L>"G4L5$"$4L54L>"G C""$d/&W  4L5$"$4L54L>"G C""$0&u    4L54L5 4L5$"$4L54L>"GC""$1&    4L5$"$4L54L>"G4L5$"$4L54L>"G4L5$"$4L54L>"GC")"%$2&   4L5$"$4L54L>"G4L5$"$4L54L>"GC"s"o$3&|     4 L5$ " 4L54L5$"$4L54L>"GC""$4&      4 L5$ " 4L54L5$"$4L54L>"GC"="9$5&|     4 L5$ " 4L54L5$"$4L54L>"GC""$f6&Y     4L5$"$4L54L>"GC"0",$-&    4L5$ C C""$7& C""$8& C""gexp  Rgw pgw  pgw  pgt  geffects  gt  /geffects   ,gt  9 ngeffects  N kgw  gexps   geffects   gw   /gt   #geffects    gw  5 gx  5 gt  D ygeffects  Y vgw  gw   gw   gw   gt   Ngeffects  . Kgt  ^ geffects  s gw  gw  8 gw  ? gt  H gexp  Z gt  e geffects  w gw  gw   gw   gw 1 gw  R  gw  Y  gt   geffects   gw   gw   gw   gw  * gw  8 gw K gw R gt d geffects y gw 3 gw  N gw  ` gw  ]gw   Ugw   Qgw   Igt   Dgeffects  $ Agw ~ gw   gw   gw  Egw  =gw  gw f Pgw  Hgw  Dgw  @gx  @gw  8gt  geffects  gt  2geffects   /gw q rgw  jgw  gw  gt  geffects  gw   Zgw   Rgt  % Rgeffects  7 Rgw  g gw  z gt  geffects  gw  gw  gt  geffects  gw  ' zgw  : rgt  E rgeffects  W rgw  gw  gt  geffects  gw  :gw  2gt   2geffects   2gw  K gw  ^ gt  i geffects  { gw  gw  gt  geffects  gw   fgw  & ^gt  1 ^geffects  C ^gw  gw    gw   gw 6 |gw  Q tgw  ` pgw  gw   gw   gt   geffects   gt   )geffects   &gt  2 ggeffects  G dgtfx  g gcfx  g gafx  g gx  u gw  -gt   +geffects   (gw T gt  a geffects  v gw  gt   geffects   gw { gw   gt   geffects   gt   geffects   gw 0 ~gt  ; pgeffects  P mgw   gw    gw    gt    geffects   gw , gw  3 gw  : gt  E zgeffects  Z wgt   geffects   gt   geffects   gw  gw  ! gt  , ageffects  A ^gt  j geffects   gw  ?gw   ?gw   ?gt   =geffects   :gw l gw  s gw  z gt   geffects   gw  mgw   mgw   mgt  6 kgeffects  K hgw  gt   geffects   gw  gfilenameflanguage/tree-il/effects.scm             0 r 1 9  H  N Q  o r s   w    g  h         $ m  + m 1 - m  . j  2 h < D  S  Y \  | o   o   h  g    ^   ^ $  ^   `   `   a   ^    (  . 1  O ^ U d  V ^  m  s v   ^    X   B O H N Q Q # Z Q  ] e  q  w z   S    G   H   G  I   G   \ 4  f 5  t A  y 5           =   <   5  \ d  s  y |   8 %  8 2  8 "  8   : "  7   5   4   c *  r +  s * t ,  ~ ,   -   .   .   *        $ '  G ! ) H ! M           -             3  6   7  <       %  1  7 :  V  }          = E  Q  W Z  v             6  a i  u  { ~       ) 1  =  C F  b      k  p                  * 2  A  G J  g t . u " u        "                , 1  X  Y a  p  v y                 7 <  Y ^                           3 ;  J  P S  y  z                         = E  T  Z ]  {                    $ ,  ;  A D  b j  y                            > C  }                          &  - . 6  E  K N  l q                   ~  R gnamegvisitChX-.,3#OOOLQQLLQ6gexp Rglookup Rgcompute-effects  3 Rgaccumulate-effects  3 Rgvisit  3 Rgfilenameflanguage/tree-il/effects.scm  R z  R gnamegcompute-effectsCh >]45OQC6gassigned-lexical?  gcache  gcompute-effects   gfilenameflanguage/tree-il/effects.scm       gnamegmake-effects-analyzerg documentationfVReturns a procedure of type EXP -> EFFECTS that analyzes the effects of an expression.CRCgm  ,gfilenameflanguage/tree-il/effects.scm     " & 'C ' ( , 0 o9   o; C62.0/ccache/language/tree-il/optimize.go000064400000003753151463412640013602 0ustar00GOOF----LE-8-2.0]04h] gguile  gdefine-module*   glanguage gtree-il goptimize  gfilenameS flanguage/tree-il/optimize.scm gimportsS    g primitives   gpeval   gcse   g fix-letrec   gdebug   gice-9 gmatch  !  "! #gexportsS $g optimize! %$ &gset-current-module '& (& )gmemq *g partial-eval?S +gcse?S ,g fix-letrec! -gverify-tree-il .gexpand-primitives! /gresolve-primitives!C5hPi]4    "#%54(>"G)*ho]Cggx  ge  gfilenameflanguage/tree-il/optimize.scm "    C+h`]CXgx  gfilenameflanguage/tree-il/optimize.scm '    C,-./ h]+45$\$=$0&$"""""45$\$=$0&$"""""4 44 44 4 5555556gx  genv  gopts   gv  ugw   lgx   lgw  4 Zgx  4 Zgv  ~ gw  gx  gw  gx  gpeval  gcse  gfilenameflanguage/tree-il/optimize.scm     v $   *  +  ,  -  -  - #  -   -   ,   +   *   )    gnameg optimize!C$RCagm  ,gfilenameflanguage/tree-il/optimize.scm   K    M C62.0/ccache/language/tree-il/fix-letrec.go000064400000046537151463412640014013 0ustar00GOOF----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 C62.0/ccache/language/tree-il/debug.go000064400000035430151463412640013025 0ustar00GOOF----LE-8-2.0;]e4h6] gguile  gdefine-module*   glanguage gtree-il gdebug  gfilenameS flanguage/tree-il/debug.scm gimportsS    gice-9 gmatch   gsrfi gsrfi-1   gsrfi-26    gexportsS gverify-tree-il  gset-current-module   !g hashq-ref "gerror #fduplicate gensym $g hashq-set! %gmake-hash-table &funexpected tree-il 'g  (g )g *g  +g  ,gfor-each -fexpected list of args .g  /fexpected more than one exp 0fexpected list of exps 1g 2g 3g 4glength 5fmismatch in fluids/vals 6fvals should be list 7ffluids should be list 8g  9f%module name should be list of symbols :gand-map ;gsymbol?  >fname should be a symbol ?g @g Ag  Bg Cg Dg Eg  Fg lambda-case? Gf%let-values body should be lambda-case Hg Ifnames should be list of syms Jfgensyms should be list of syms Kf'names, syms, vals should be same length Lg Mg Ng Of!lambda body should be lambda-case Pfmeta should be alist Qgpair? Rg  Sgmemq Tfdisplaced lexical Ufunbound lexical Vg  Wg  Xf-bad required args (should be list of symbols) Yf'bad gensyms (should be list of symbols) Zgtake [gdrop \funexpected gensyms length ]f6bad keywords (should be #f or (aok (kw name sym) ...)) ^gkeyword? _f*bad required args (should be #f or symbol) `f/bad optionals (should be #f or list of symbols) ag tree-il-src bfbad src cgmap dgcarC5h1f]4    54 >"G!"#$hX] (C4M5$ 45"4M>"G"gnew  Rgenv  Rgsym   Jgfilenameflanguage/tree-il/debug.scm !   "   $   $  $       !   %   )   .  G R $   R gnamegadd-envC%"&'()*+,ho]LL6ggt-9d61fd5a44d-1361  gfilenameflanguage/tree-il/debug.scm   C-./ho]LL6ggt-9d61fd5a44d-12d8  gfilenameflanguage/tree-il/debug.scm   C012ho]LL6ggt-9d61fd5a44d-11cd  gfilenameflanguage/tree-il/debug.scm   C34ho]LL6ggt-9d61fd5a44d-1632  gfilenameflanguage/tree-il/debug.scm   Cho]LL6ggt-9d61fd5a44d-1638  gfilenameflanguage/tree-il/debug.scm   C56789:;<=>?@ABCDEFGHIJho]LL6ggt-9d61fd5a44d-1b64  gfilenameflanguage/tree-il/debug.scm   CKLho]LL6ggt-9d61fd5a44d-1c53  gfilenameflanguage/tree-il/debug.scm   CMho]LL6ggt-9d61fd5a44d-1d20  gfilenameflanguage/tree-il/debug.scm   CNOPQR!STUVWX"YhV]L6Ngfilenameflanguage/tree-il/debug.scm  >  >   C#$Z[\]^Shh])$[45$D$;$($($L6CCCCCCCgx  fgw  dgx   dgw  + `gx  + `gw  G Zgfilenameflanguage/tree-il/debug.scm 5   6 ! X 8 $  f C_`abcdLh]" " W" " " " ""<"""" ""S""5"@"4>"G"$&b    4L>"G4L>"G4L>"mG"f&&  4L>"8G"1&D   4L>"G4L>"G"&b    4L>"G4L>"G4L>"G"&j   $34L>"G4 LO>"(G"!4 >"G"  &j  $=(4 >"G"4 LO>"G"4>"G"&b    4L>"G4L>"G4L>"5G".&i    4L>"G4LO>"G4L>"G"""$&    $$y4545$N4LO>"G4LO>"G4L>"G"4>"G" 4>" G" 4>" G" ""$&     "4>" vG" o$H45$7$4L>" CG" <4>" +G" $""" "$\&O   $4L>" G" 4>" G" ""$\ &O   $4L>" jG" c4>" RG" K"J"F$>!&1  $" 4>" G" ""$"&y    "4>" G" $445$#$" 4>" G" y"""h"d$>#&1  $" =4>" ,G" %""$$&  " ""$%&  " ""$t&&g   4'5$,4L>"G4L>" G" z4(>" iG" b"I"E$N)&A     "4*>" G" $45$"4+>" G" $45$$4545$45"$A4L54,LO>"G4L>" YG" R4->" >G" 74>" &G" "+"'""""$T.&G      "4*>"G"$45$"4+>"G"y$45$$4545$45"$A4L54/LO>"G4L>"G"4->"G"4>"G""+"'""""$G0&:     "4*>"WG"P$45$"4+>"'G" $45$$4545$45"$:41LO>"G4L4L5>"G"4->"G"4>"uG"n"2"."""3"/$2&   "E$;4'5$4L>"G"43>"G""$<"44>"G"$455$""""u"p"l$6&    $b47M5$=485$4L>"0G")49>"G"4:>"G"4>"G"""$;&   $N47M5$)485$"49>"xG"q4:>"`G"Y4>"HG"A"" $(<&          "4=>"G"$45$>O Q "$f45$E  45$4545$ 45" $ " $ 45" $"U $"$a4L>"G47M5$ 4?5"4@M>"G"4L>"G" $@47M5$ 4?5"4@M>"G " $""4L >"G47M5$ 4?5"4@M>"G    "4L4A4555$ 45" 4B455  "h $4L >"LG"E"A4C>"0G")4 >"G" 4 >"G"4 >"G""c$Y"4D>"G"$2  $4EO 5" $"$""""-$#$"4F>"]G"V"l$H"4G>"/G"($45$""""""" ""M""E """"4H5$^"4I>"GG"@$5455$ 44JK55$"""""""Cgexp  genv  gw  { gw  gw  gw  gw   Pgw   Mgw  b gw  i gw  p gw   .gw   +gw  @ gw    gw    gw   gw   ~gw  % {gw  , xgw   ogw   lgw   igw   gw   gw   gw  ? gw  F gw   gw   gw   5gw  V gw  ] gw   gw  w gw  ~ gw   .gw   +gw   (gw   %gb  { genv   gw  U gw  \ gw  c gw  j gb  genv  Agw  gw  gw  gw  gb  3 Ugw  gw   gw  Ygw  Vgw  Sgw  z gw  gw   !gw   gw  % gw  , gw  3 gw  : gw  A gw H  gfailure  gfailure  genv  Pgnopt  Pginits   Pgtail   Pgenv   ginits   gtail   gsym  & _gsym   gsym   ;gx < _gsrc  8 Rgfilenameflanguage/tree-il/debug.scm &   (  K  O  V  b (     (    (    3  S (  s       (            1 (  E  I  P T  [ h      (         (  /  C  ^   (             !         #  * 7 ;  B O S  Z s (                         " (  K  O  P h l  s  (            (         & 9 (  j n  u                    (           (             (      )  ,  0  1 ! =  B F  M Y  \  `  a # m  p  t  u {  ~     1                  2 (  q u  |    !      #       1     ' B F  M Z ^  e (  } }  } {  |  {  | ! |        {   ~   {   ~ # % ~  (  , {  - 3  6  ?  F 1 M  Y {  Z u z    (   r   u   u  y 7 v ; v  B v R r  ] t a t  h t t r  w s  { s | s * s  (  i  h  k  h  m  h  p n n   n ! l % l  , l 9 j = j  D j ] (  a  `  c  `  e  `  f f  f d d  d b b  b (  O , S ,  Z , f *  i +  m *  n +  z +   *   =   *   = #  =   *   ? #  ?   A   B   C   C   B   F   B   G   G   G   B   A   *   J  N   N  O   R   R   T   T   T  & U & U  )   5   6   :   >   C  \ b U 0 e V  o U  p W   O   O   O +  O &                    Q   Q '  O   Y   Y   Y   Z   Z                   8 > [  A \  D ]  P Z  P J Q J  T J Y J . a J e J  k K  l K z M   M &  M   J  ^  ^   H  H   H  *   <  <  & < 2 *  5 1  9 1 < 1  E 3  I 3  J 4  c 1  s *   /   /  0  0   0  *   .  .   .  *   -   -  - (  -  ) (  2   8   @   E  I   N  Z   ]   a  b  ) n   o   t  . ~        gnamegvisitCh8]HOQ45KOQ6gexp  6g seen-gensyms  6gadd-env   6gvisit  & 6gfilenameflanguage/tree-il/debug.scm     & &  4 '  6 &   6 gnamegverify-tree-ilCRC^gm  ,gfilenameflanguage/tree-il/debug.scm   1    1 C62.0/ccache/language/tree-il/analyze.go000064400000414605151463412640013407 0ustar00GOOF----LE-8-2.0m] &4hɴ] gguile  gdefine-module*   glanguage gtree-il ganalyze  gfilenameS flanguage/tree-il/analyze.scm gimportsS gsrfi gsrfi-1    gsrfi-9    gsrfi-11    gsrfi-26    gice-9 gvlist   gmatch   !gsystem "gbase #gsyntax $!"# %$ &gmessage '!"& (' )gvm *gprogram +!)* ,+ - .- /gpmatch 0!"/ 10 2 %(,.1  3gexportsS 4ganalyze-lexicals 5g analyze-tree 6gunused-variable-analysis 7gunused-toplevel-analysis 8gunbound-variable-analysis 9garity-analysis :gformat-analysis ;456789: < ?gmake-hash-table @g hashq-set! Ag make-hashq Bg  Cgapplication-proc Dgapplication-args Eg lset-union Fgeq? Ggmap Hg  Igconditional-test Jgconditional-consequent Kgconditional-alternate Lg  Mglexical-ref-gensym Ng hashq-ref Ogmemq Pg lambda-case? Qglength Rglambda-case-req Sglambda-case-opt Tglambda-case-kw Uglambda-case-rest Vglambda-case-alternate Wg lambda-body Xg  Yglexical-set-gensym Zglexical-set-exp [g lset-adjoin \g  ]gmodule-set-exp ^g _gtoplevel-set-exp `g agtoplevel-define-exp bg  cg sequence-exps dg egreverse! fg  gglambda-case-inits hglambda-case-gensyms iglambda-case-body jgappend kgreverse lglset-difference mg ng let-gensyms oglet-vals pglet-body qg rgletrec-gensyms sg letrec-vals tg letrec-body ugfor-each vg wg fix-gensyms xgfix-vals ygfix-body zgerror {funhandled record |gcons }gassq-ref ~g hashq-remove! g  glet-values-exp glet-values-body g  g dynwind-body gdynwind-winder gdynwind-unwinder g g dynlet-fluids g dynlet-vals g dynlet-body g g dynref-fluid g g dynset-fluid g dynset-exp g g prompt-tag g prompt-body gprompt-handler g g abort-tag g abort-args g abort-tail gmax gfilter gcdr ggensym f:LCASE g conditional? g lexical-ref? f'fixpoint procedures may not be assigned g g%make-tree-analysis-procedure gmake-syntax-transformer   gmake-tree-analysis gmacro g $sc-dispatch   g_ gany  g syntax-object glambda gm-a11d84f71ea-1a65 gtop  gribcage gt-a11d84f71ea-1a60 gt-a11d84f71ea-1a61 gt-a11d84f71ea-1a62 gt-a11d84f71ea-1a63 gt-a11d84f71ea-1a64   fl-a11d84f71ea-1a6a fl-a11d84f71ea-1a6b fl-a11d84f71ea-1a6c fl-a11d84f71ea-1a6d fl-a11d84f71ea-1a6e    gx   fl-a11d84f71ea-1a67   gshift g proc-name gargs    fl-1e8ba8b5a-60 fl-1e8ba8b5a-61   gkey gvalue gname gformals gbody   fl-1e8ba8b5a-53 fl-1e8ba8b5a-54 fl-1e8ba8b5a-55 fl-1e8ba8b5a-56 fl-1e8ba8b5a-57   gmake-procedure-name   fl-1e8ba8b5a-43    fl-1e8ba8b5a-42     ghygiene    gleaf    gdown  gup  gpost  ginit   g make-struct gm-a11d84f71ea-1a5e  gt-1e8ba8b5a-133 gt-1e8ba8b5a-132 gt-1e8ba8b5a-131  gm-1e8ba8b5a-134   fl-1e8ba8b5a-138 fl-1e8ba8b5a-139 fl-1e8ba8b5a-13a    g ctor-args     fl-1e8ba8b5a-120        gctor gfield  fl-1e8ba8b5a-11c fl-1e8ba8b5a-11d   gform g type-name gconstructor-spec g field-names   fl-1e8ba8b5a-111 fl-1e8ba8b5a-112 fl-1e8ba8b5a-113 fl-1e8ba8b5a-114    !g record-layout "gfunctional-setters #gsetters $gcopier %ggetters &g constructor 'ggetter-identifiers (gfield-identifiers )!"#$%&'( * +fl-1e8ba8b5a-e9 ,fl-1e8ba8b5a-e7 -fl-1e8ba8b5a-e5 .fl-1e8ba8b5a-e3 /fl-1e8ba8b5a-e1 0fl-1e8ba8b5a-df 1fl-1e8ba8b5a-dd 2fl-1e8ba8b5a-db 3+,-./012 4)*3 5fl-1e8ba8b5a-da 65 76 8  47 98 : ; 8 <9:; =< >geach-any ?> @gsyntax-violation A@ B@ CfWrong number of arguments Dg identifier? ED FD G HG I@ J@ Kf-source expression failed to match any pattern Lgrecord-type-vtable ML NL Og pwpwpwpwpw Pgdefault-record-printer QP RP S Tgset-struct-vtable-name! UT VT Wgvtable-offset-user XW YW Zg%tree-analysis?-procedure [gtree-analysis? \ ]gm-a11d84f71ea-1a7a ^] _gt-a11d84f71ea-1a79 `_ a^ bfl-a11d84f71ea-1a7f cb d`ac efl-a11d84f71ea-1a7c fe gaf h^dg  ih jgobj kgt-1e8ba8b5a-224 lgt-1e8ba8b5a-21e mgt-1e8ba8b5a-21f ngt-1e8ba8b5a-220 ogt-1e8ba8b5a-223 pgt-1e8ba8b5a-222 qgt-1e8ba8b5a-221 rklmnopq sgm-1e8ba8b5a-225 ts uttttttt vfl-1e8ba8b5a-229 wfl-1e8ba8b5a-22a xfl-1e8ba8b5a-22b yfl-1e8ba8b5a-22c zfl-1e8ba8b5a-22d {fl-1e8ba8b5a-22e |fl-1e8ba8b5a-22f }vwxyz{| ~ru} g copier-id  fl-1e8ba8b5a-21c   g ctor-name  fl-1e8ba8b5a-214    fl-1e8ba8b5a-212   glayout  fl-1e8ba8b5a-210   g immutable?  fl-1e8ba8b5a-20e   g field-count  fl-1e8ba8b5a-20c   g getter-ids  fl-1e8ba8b5a-209   g field-ids  fl-1e8ba8b5a-206   gpredicate-name g field-spec   fl-1e8ba8b5a-1f9 fl-1e8ba8b5a-1fa fl-1e8ba8b5a-1fb fl-1e8ba8b5a-1fc fl-1e8ba8b5a-1fd fl-1e8ba8b5a-1fe   dg~47 j  gand  gstruct?   F g struct-vtable   dg    i g Z gthrow-bad-struct   gtree-analysis-leaf g%tree-analysis-leaf-procedure gfree-id g %%on-error gm-a11d84f71ea-1a86   fl-a11d84f71ea-1a88        g%%type gt-1e8ba8b5a-14b gt-1e8ba8b5a-14c gt-1e8ba8b5a-14d gt-1e8ba8b5a-14e gt-1e8ba8b5a-14f gt-1e8ba8b5a-150 gt-1e8ba8b5a-151  gm-1e8ba8b5a-152   fl-1e8ba8b5a-156 fl-1e8ba8b5a-157 fl-1e8ba8b5a-158 fl-1e8ba8b5a-159 fl-1e8ba8b5a-15a fl-1e8ba8b5a-15b fl-1e8ba8b5a-15c   ggetter gindex  fl-1e8ba8b5a-149 fl-1e8ba8b5a-14a     fl-1e8ba8b5a-144 fl-1e8ba8b5a-145 fl-1e8ba8b5a-146   47    gck gerr gs   fl-a11d84f71ea-1a8b fl-a11d84f71ea-1a8c      gquote               g%%index    fl-a11d84f71ea-1a90 fl-a11d84f71ea-1a91            g%%copier     !fl-a11d84f71ea-1a95 "fl-a11d84f71ea-1a96 #!" $# %$  &% '% (g%%-set-fields )$ *() +'* ,+ -gt-a11d84f71ea-1a85 .- /fl-a11d84f71ea-1a9a 0/ 1.0 21  32 4147 54 65 7gif 874 9F4 :4 ;:5 <1 =< >9;= ?g struct-ref @?4 A1 B A C@5B D4 E4 F< GEF HD5G I8>CH J36I K LK Mgtree-analysis-down Ng%tree-analysis-down-procedure Ogm-a11d84f71ea-1aa1 PO QP Rfl-a11d84f71ea-1aa3 SR TQS UPT  VU WV XW YT47 ZY [Z \X[ ]PP ^fl-a11d84f71ea-1aa6 _fl-a11d84f71ea-1aa7 `^_ a]` bPaT  cb db eaT fe gdf hg iY ji kXj lfl-a11d84f71ea-1aab mfl-a11d84f71ea-1aac nlm o]n pPoT  qp rp soT t s urt vu wY xw yXx zfl-a11d84f71ea-1ab0 {fl-a11d84f71ea-1ab1 |z{ }]| ~P}T  ~ ~ }T (   gt-a11d84f71ea-1aa0  fl-a11d84f71ea-1ab5  Q PT   T47   7 F   T   ? T      M     T N gtree-analysis-up g%tree-analysis-up-procedure gm-a11d84f71ea-1abc   fl-a11d84f71ea-1abe        47     fl-a11d84f71ea-1ac1 fl-a11d84f71ea-1ac2              fl-a11d84f71ea-1ac6 fl-a11d84f71ea-1ac7               fl-a11d84f71ea-1acb fl-a11d84f71ea-1acc        (   gt-a11d84f71ea-1abb  fl-a11d84f71ea-1ad0      47   7 F      ?              gtree-analysis-post g%tree-analysis-post-procedure gm-a11d84f71ea-1ad7   fl-a11d84f71ea-1ad9        47       fl-a11d84f71ea-1adc  fl-a11d84f71ea-1add                      fl-a11d84f71ea-1ae1 fl-a11d84f71ea-1ae2            !  "! # $# %$ &fl-a11d84f71ea-1ae6 'fl-a11d84f71ea-1ae7 (&' ) ( *)  +* ,* -) .(- /,. 0/ 1gt-a11d84f71ea-1ad6 21 3fl-a11d84f71ea-1aeb 43 524 65  76 8547 98 :9 ;78 <F8 =8 >=9 ?5 @? A<>@ B?8 C5 D C EB9D F8 G8 H? IGH JF9I K;AEJ L7:K M NM Ogtree-analysis-init Pg%tree-analysis-init-procedure Qgm-a11d84f71ea-1af2 RQ SR Tfl-a11d84f71ea-1af4 UT VSU WRV  XW YX ZY [V47 \[ ]\ ^Z] _RR `fl-a11d84f71ea-1af7 afl-a11d84f71ea-1af8 b`a c_b dRcV  ed fd gcV hg ifh ji k[ lk mZl nfl-a11d84f71ea-1afc ofl-a11d84f71ea-1afd pno q_p rRqV  sr tr uqV v u wtv xw y[ zy {Zz |fl-a11d84f71ea-1b01 }fl-a11d84f71ea-1b02 ~|} _~ RV    V (   gt-a11d84f71ea-1af1  fl-a11d84f71ea-1b06  S RV   V47   7 F   V   ? V      O     V P geach      g %%set-fields gdummy gcheck? gexpr  gm-a11d84f71ea-1b0d   fl-a11d84f71ea-1b12 fl-a11d84f71ea-1b13 fl-a11d84f71ea-1b14 fl-a11d84f71ea-1b15 fl-a11d84f71ea-1b16    fl-a11d84f71ea-1b0f   gt-1e8ba8b5a-16a gt-1e8ba8b5a-16c gt-1e8ba8b5a-16b  gm-1e8ba8b5a-16d   fl-1e8ba8b5a-171 fl-1e8ba8b5a-172 fl-1e8ba8b5a-173   fl-1e8ba8b5a-167 fl-1e8ba8b5a-168 fl-1e8ba8b5a-169   47      M   O  G G glist g tree-il-fold g tree-il-src g g%make-binding-info-procedure gmake-binding-info  gm-a11d84f71ea-1b75  gt-a11d84f71ea-1b73 gt-a11d84f71ea-1b74   fl-a11d84f71ea-1b7a fl-a11d84f71ea-1b7b    fl-a11d84f71ea-1b77      gvars   grefs   gm-a11d84f71ea-1b71    47         gpwpw  g%binding-info?-procedure g binding-info? gm-a11d84f71ea-1b84  gt-a11d84f71ea-1b83      fl-a11d84f71ea-1b89         fl-a11d84f71ea-1b86         ~47 j     F          ! "! #gbinding-info-vars $g%binding-info-vars-procedure %gm-a11d84f71ea-1b90 &% '& (fl-a11d84f71ea-1b92 )( *') +&*  ,+ -, .- /*47 0/ 10 2.1 3&& 4fl-a11d84f71ea-1b95 5fl-a11d84f71ea-1b96 645 736 8&7*  98 :8 ;7* <; =:< >= ?/ @? A.@ Bfl-a11d84f71ea-1b9a Cfl-a11d84f71ea-1b9b DBC E3D F&E*  GF HF IE* J I KHJ LK M/ NM O.N Pfl-a11d84f71ea-1b9f Qfl-a11d84f71ea-1ba0 RPQ S3R T&S*  UT VT Wg%%-set-fields XS* YWX ZVY [Z \gt-a11d84f71ea-1b8f ]\ ^fl-a11d84f71ea-1ba4 _^ `]'_ a&`*  ba c`*47 dc ed f7c gFc hc ihd j`* kj lgik m?c n`* o n pmdo qc rc s#j trs uqdt vflpu wbev x* y$x zgbinding-info-refs {g%binding-info-refs-procedure |gm-a11d84f71ea-1bab }| ~} fl-a11d84f71ea-1bad  ~ }     47    }} fl-a11d84f71ea-1bb0 fl-a11d84f71ea-1bb1   }           fl-a11d84f71ea-1bb5 fl-a11d84f71ea-1bb6   }            fl-a11d84f71ea-1bba fl-a11d84f71ea-1bbb   }     W   gt-a11d84f71ea-1baa  fl-a11d84f71ea-1bbf  ~ }   47   7 F      ?       z      { gm-a11d84f71ea-1bc6   fl-a11d84f71ea-1bcb fl-a11d84f71ea-1bcc fl-a11d84f71ea-1bcd fl-a11d84f71ea-1bce fl-a11d84f71ea-1bcf    fl-a11d84f71ea-1bc8   47     # z  g string-any gsymbol->string ggensym? g vhash-consq j j gcadr gfold g let-names g letrec-names g fix-names gvlist-for-each g vhash-assq gfind gpair? gwarning gunused-variable g vlist-drop g vlist-null g g%make-reference-graph-procedure gmake-reference-graph  gm-a11d84f71ea-1ccf  gt-a11d84f71ea-1ccc gt-a11d84f71ea-1ccd gt-a11d84f71ea-1cce   fl-a11d84f71ea-1cd4 fl-a11d84f71ea-1cd5 fl-a11d84f71ea-1cd6     fl-a11d84f71ea-1cd1                 gdefs  gtoplevel-context   gm-a11d84f71ea-1cca     47           gpwpwpw   !g%reference-graph?-procedure "greference-graph? #gm-a11d84f71ea-1ce0 $# %gt-a11d84f71ea-1cdf &% '$ (fl-a11d84f71ea-1ce5 )( *&') +fl-a11d84f71ea-1ce2 ,+ -', .$*-  /. 0*-~47 1j0 21 30 40 541 6F0 70 871 9*- :9 ;68: <35; =/2< >- ?!> @greference-graph-defs Ag%reference-graph-defs-procedure Bgm-a11d84f71ea-1cec CB DC Efl-a11d84f71ea-1cee FE GDF HCG  IH JI KJ LG47 ML NM OKN PCC Qfl-a11d84f71ea-1cf1 Rfl-a11d84f71ea-1cf2 SQR TPS UCTG  VU WU XTG YX ZWY [Z \L ]\ ^K] _fl-a11d84f71ea-1cf6 `fl-a11d84f71ea-1cf7 a_` bPa cCbG  dc ec fbG g f heg ih jL kj lKk mfl-a11d84f71ea-1cfb nfl-a11d84f71ea-1cfc omn pPo qCpG  rq sq tg%%-set-fields upG vtu wsv xw ygt-a11d84f71ea-1ceb zy {fl-a11d84f71ea-1d00 |{ }zD| ~C}G  ~ }G47   7 F   }G   ? }G      @     G A greference-graph-refs g%reference-graph-refs-procedure gm-a11d84f71ea-1d07   fl-a11d84f71ea-1d09        47     fl-a11d84f71ea-1d0c fl-a11d84f71ea-1d0d              fl-a11d84f71ea-1d11 fl-a11d84f71ea-1d12               fl-a11d84f71ea-1d16 fl-a11d84f71ea-1d17        t   gt-a11d84f71ea-1d06  fl-a11d84f71ea-1d1b      47   7 F      ?              g reference-graph-toplevel-context g+%reference-graph-toplevel-context-procedure gm-a11d84f71ea-1d22   fl-a11d84f71ea-1d24        47     fl-a11d84f71ea-1d27 fl-a11d84f71ea-1d28                    fl-a11d84f71ea-1d2c  fl-a11d84f71ea-1d2d                 fl-a11d84f71ea-1d31 fl-a11d84f71ea-1d32        ! "t! # " $# %gt-a11d84f71ea-1d21 &% 'fl-a11d84f71ea-1d36 (' )&( *)  +* ,)47 -, .- /7, 0F, 1, 21- 3) 43 5024 6?, 7) 8 7 96-8 :, ;, <3 =;< >:-= ?/59> @+.? A BA Cgm-a11d84f71ea-1d3d DC ED Ffl-a11d84f71ea-1d42 Gfl-a11d84f71ea-1d43 Hfl-a11d84f71ea-1d44 Ifl-a11d84f71ea-1d45 Jfl-a11d84f71ea-1d46 KFGHIJ LEK MD Nfl-a11d84f71ea-1d3f ON PMO QLP47  RQ SLP TS U@S VS WS XUVW Ygand=> Zggraph-reachable-nodes [g vlist-fold \ggraph-reachable-nodes* ]g partition* ^gtoplevel-define-name _gtoplevel-define-src `gtoplevel-set-name agtoplevel-set-src bgmodule? cgmodule-variable dgmodule-public-interface egmacro? fg vlist-filter ggunused-toplevel hg igtoplevel-ref-name jgtoplevel-ref-src kg lg%make-toplevel-info-procedure mgmake-toplevel-info ngm-a11d84f71ea-1e83 on pgt-a11d84f71ea-1e81 qgt-a11d84f71ea-1e82 rpq soo tfl-a11d84f71ea-1e88 ufl-a11d84f71ea-1e89 vtu wrsv xo yfl-a11d84f71ea-1e85 zy {xz |ow{  }| ~w{ ~ ~  gm-a11d84f71ea-1e7f  w{  47  k~    } { l  g%toplevel-info?-procedure gtoplevel-info? gm-a11d84f71ea-1e92  gt-a11d84f71ea-1e91   fl-a11d84f71ea-1e97   fl-a11d84f71ea-1e94      ~47 j     F    k      gtoplevel-info-refs g%toplevel-info-refs-procedure gm-a11d84f71ea-1e9e   fl-a11d84f71ea-1ea0        47     fl-a11d84f71ea-1ea3 fl-a11d84f71ea-1ea4        k      fl-a11d84f71ea-1ea8 fl-a11d84f71ea-1ea9               fl-a11d84f71ea-1ead fl-a11d84f71ea-1eae       g%%-set-fields     gt-a11d84f71ea-1e9d  fl-a11d84f71ea-1eb2      47   7 F    k  ?              gtoplevel-info-defs g%toplevel-info-defs-procedure gm-a11d84f71ea-1eb9   fl-a11d84f71ea-1ebb                   47     fl-a11d84f71ea-1ebe fl-a11d84f71ea-1ebf          k      !  "fl-a11d84f71ea-1ec3 #fl-a11d84f71ea-1ec4 $"# %$ &%   '& (& )%  * ) +(* ,+ - .- /. 0fl-a11d84f71ea-1ec8 1fl-a11d84f71ea-1ec9 201 32 43   54 64 73  87 968 :9 ;gt-a11d84f71ea-1eb8 <; =fl-a11d84f71ea-1ecd >= ?<> @?   A@ B? 47 CB DC E7B FFB GB HGC I?  JkI KFHJ L?B M?  N M OLCN PB QB RI SQR TPCS UEKOT VADU W  XW Ygm-a11d84f71ea-1ed4 ZY [Z \fl-a11d84f71ea-1ed9 ]fl-a11d84f71ea-1eda ^fl-a11d84f71ea-1edb _fl-a11d84f71ea-1edc `fl-a11d84f71ea-1edd a\]^_` b[a cZ dfl-a11d84f71ea-1ed6 ed fce gbf47  hg ibf jki ki li mkl ng ogtoplevel-define! pgresolve-module qgoop rggoops sqr tg  uggoops-toplevel-definition vg vhash-delq wgunbound-variable xg vlist-reverse yg  zg%make-arity-info-procedure {gmake-arity-info |gm-a11d84f71ea-2136 }| ~gt-a11d84f71ea-2133 gt-a11d84f71ea-2134 gt-a11d84f71ea-2135 ~ }}} fl-a11d84f71ea-213b fl-a11d84f71ea-213c fl-a11d84f71ea-213d   } fl-a11d84f71ea-2138   }   gtoplevel-calls   glexical-lambdas  gtoplevel-lambdas   gm-a11d84f71ea-2131    47  y      z  g%arity-info?-procedure g arity-info? gm-a11d84f71ea-2147  gt-a11d84f71ea-2146   fl-a11d84f71ea-214c   fl-a11d84f71ea-2149      ~47 j     F    y      gtoplevel-procedure-calls g#%toplevel-procedure-calls-procedure gm-a11d84f71ea-2153   fl-a11d84f71ea-2155        47     fl-a11d84f71ea-2158 fl-a11d84f71ea-2159        y      fl-a11d84f71ea-215d fl-a11d84f71ea-215e               fl-a11d84f71ea-2162 fl-a11d84f71ea-2163       g%%-set-fields     gt-a11d84f71ea-2152  fl-a11d84f71ea-2167      47   7 F    y    ?                      g%lexical-lambdas-procedure gm-a11d84f71ea-216e   fl-a11d84f71ea-2170        !  "47 #" $# %!$ & 'fl-a11d84f71ea-2173 (fl-a11d84f71ea-2174 )'( *&) +*  ,+ -+ .* /y. 0-/ 10 2" 32 4!3 5fl-a11d84f71ea-2178 6fl-a11d84f71ea-2179 756 8&7 98  :9 ;9 <8 = < >;= ?> @" A@ B!A Cfl-a11d84f71ea-217d Dfl-a11d84f71ea-217e ECD F&E GF  HG IG JF KJ LIK ML Ngt-a11d84f71ea-216d ON Pfl-a11d84f71ea-2182 QP ROQ SR  TS UR47 VU WV X7U YFU ZU [ZV \R ]y\ ^Y[] _?U `R a ` b_Va cU dU e\ fde gcVf hX^bg iTWh j kj lg%toplevel-lambdas-procedure mgm-a11d84f71ea-2189 nm on pfl-a11d84f71ea-218b qp roq snr  ts ut vu wr47 xw yx zvy {nn |fl-a11d84f71ea-218e }fl-a11d84f71ea-218f ~|} {~ nr    r y   w  v fl-a11d84f71ea-2193 fl-a11d84f71ea-2194  { nr    r     w  v fl-a11d84f71ea-2198 fl-a11d84f71ea-2199  { nr    r    gt-a11d84f71ea-2188  fl-a11d84f71ea-219d  o nr   r47   7 F   r y  ? r           r l gm-a11d84f71ea-21a4   fl-a11d84f71ea-21a9 fl-a11d84f71ea-21aa fl-a11d84f71ea-21ab fl-a11d84f71ea-21ac fl-a11d84f71ea-21ad    fl-a11d84f71ea-21a6   47    y     gprogram? gprocedure-name g arity:nreq g arity:nopt g arity:rest? gcar garity:kw garity:allow-other-keys? gprogram-arities g procedure? gprocedure-minimum-arity g lambda-meta g assoc-ref gconst? g const-exp gkeyword? garity-mismatch gwith-output-to-string gwrite gvalidate-arity gapplication-src g vlist-tail gcatch   g module-ref g toplevel-ref? glambda? fformat-string-syntax-error g &syntax-error gthrow gunterminated-conditional gtilde gliteral g take-while 0123456789  gstring->number g list->string gevery gnumber? glist-ref gmin gunexpected-semicolon g"unexpected-conditional-termination gunterminated-iteration gunexpected-termination fcomputer bought the farm g string->list gformat-string-argument-count gresolve-interface gensureS g proc-ref? ggettext ggettext? gngettext gN_ g ngettext? gstring? g const-fmt gboolean? gformat g wrong-port gnegate gnon-literal-format-string z z fno matching pattern gwrong-format-string gwrong-num-args gwrong-format-arg-count g syntax-error g make-const ASas~% g simple-format !  "  #  $ !  % ! C5hTk]04    23;54>>"G?@h(] 454>"GCgk  "gv  "gres   "gfilenameflanguage/tree-il/analyze.scm      " gnameg make-hashqCARh]LL6{gy  gfilenameflanguage/tree-il/analyze.scm  &   gnamegstepCBCDEFGHIJKLM@NOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstu@hk]M6cgsym  gfilenameflanguage/tree-il/analyze.scm      Cvwxy@h|]M6tgsym  gval  gfilenameflanguage/tree-il/analyze.scm    #  CdW@jeNz{ h]&o454M>"G4L4LL554M44M55>"G4M>"GC6gx  grtd  gbody   ~gfree  A ~gfilenameflanguage/tree-il/analyze.scm          . %   .  5  A  A   D !  K ! 0 N ! : X ! 0 ] !  f "     C|}uN@h0]4M5$4M>"GL6C~gsym  ,gfilenameflanguage/tree-il/analyze.scm *   + !  +   - # * . #  , Ch(] 4L5$LLO6Cgsym  $grefs $gfilenameflanguage/tree-il/analyze.scm '  (  (  ) " *   $ gnamegdelabel-dependents!CNh}]4M5$CL6ugsym  gfilenameflanguage/tree-il/analyze.scm =   >   >   ?    CN@j~hX]4M5$G4ML44M54ML55>"G4M>"GM6Cgsym  Xgval  Xgfilenameflanguage/tree-il/analyze.scm D  E   E  I   J   J & # K & - J  2 I  ; L  V M   X CZh ]MOLQ&:45454L$"545@&I4 54 54 5 4L54L54L 56 &"4 54M4M 5>"G"4M>"G"$45$4M5$"~ $s4 5$c44 5545$,4 5$"4 5$"4 5"  $ "'4 5 " "" 45 "u"$"" """"C&P45454M>"G4M>"G4L56&45"&4 5"!&4"5"d#&m4$5"U(C(  4L 5 64  4L 5 5 " "%&h454M>"G4L54M4&4M55>"G4M>"GC'&4(54)54*545  4>"G4>"G4M4+4,54M55>"G4-4445?4L 555 $4L 5"6.&j4/5405415 4M4+4,54M55>"G-44L 545?62&435445455 4M4+4,54M55>"G467LO>"G-44L 545?68&4954:54;5 46"G4M4+4,54M55>"G4=LLLO5 4> 5 4L 4+55 ?O  L Q 46@ LO>"G46ALLLO>"G-4  ?6B&04C54D54L54L56E&E4F54G54H5 4L54L54L 56I&=4J54K54L5 4L 544+55@M&4N5"O&04P54Q54L54L56R&G4S54T54U5 4L54L54L 56V&B4W54X54Y5 4L54L 545@C gx   gproc   glabels-in-proc    gtail?    gtail-call-args    gstep   grtd    gproc  - Ygargs  - Ygtest  v g consequent  v g alternate v ggensym  gp   gc  gt u ggensym   ,gexp   ,gexp  ; Rgexp  a xgexp   gexps   gexps   gret  gy  gy  gbody  " gfree  F ginits   Iggensyms   Igbody  Ig alternate  Iggensyms  f gvals  f gbody f ggensyms   Fgvals   Fgbody  Fggensyms  c Jgvals  c Jgbody c Jgvar-refs  Jgvars-with-refs  Jg body-refs  Jgdelabel-dependents!  Jgexp  ` gbody  ` gbody   gwinder   gunwinder  gfluids   gvals   gbody  gfluid  # :gfluid  P rgexp  P rgtag   gbody   ghandler  gtag    gargs    gtail   >gfilenameflanguage/tree-il/analyze.scm    6 $ E . N $ O  Y  a   &      ( $              %  & % 0  1 , 4 4 < , = , D ) H $ I . S $ Y . c $ i . p ) u #  (  $    (               $ & (  ,  4  B & R  Z  h & x     &              /  $          9  3    &          !     %  , 1  :  A 4 F  F  I P " S , ] " b k          -          %  ;  %   *  .  4  5  G , I  Q  m  t  w  ~ -            ?                    -          %   *  8  ? B   F   N  j              -              %               =  C < P  J O R  i  p & t  | &    T       &    &    &    W       &    Z )  Z 3  Z )  Z    * & :  B  Y  ` & d  l & p  r `  z     &    &      c       &    &    f 4  f   h    gnameganalyze!Ch{]LLL6sgy  gfilenameflanguage/tree-il/analyze.scm p  p   gnamegrecurCBCDGHIJKXZ\]^_`abcdW@NNhr]4M5L6jgv  gfilenameflanguage/tree-il/analyze.scm          CNht]4M5Clgsym  gfilenameflanguage/tree-il/analyze.scm  "   .   $   CfghiVSThi]LLL6agx  gfilenameflanguage/tree-il/analyze.scm  !  -  CAmnopQMqrsthi]LLL6agx  gfilenameflanguage/tree-il/analyze.scm  %  '  Cvwxyz{jPVhx]kOLQ&*45454L545@&@454 54 54L54L54L56 &4 5"M &45",&45" &45"&4545@&45"D$944M54M5>"G""4M5 "4LO4M5544LO4M5554L >"G4M>"GC&45454 54!54">"G4#>"G" (K44L 54$ LO5? 4M4%&5 >"G "H 4M 4'4M 5 5>"G    "v  "j$4L5"6(&u4)54*54+5445?"c"S (4L 56  4M 4'4M 5 5>"G    "  "4,5$4-5 $ 4M 5$"f4M 5 $T4.455$?4/455 &(4.4 55$4/4 55 """" $;4M4'5>"G4L4 556"""0&415425435"l(*444 LO5?  4L 56 4M 4'4M 5 5>"G  " "5&C465475485"(" ( 4L 564M 5$S     &"4 54 4L 55" 49: 5    "  4 4L  55   "e    "U 4M 5$9;64M 5$   "4M 4' 5>"G  " "<&,4=54>54L54L56?&@4@54A54B54L54L54L56C&:4D54E54F54L544G55@H&4I5"J&,4K54L54L54L56M&4N54O54P54Q5$45$ 45""4M$4M 5 ">"G4L54L54L56R&>4S54T54U54L54L545@Cgx  ugproc  ugn   ugrecur  ugrtd   ugproc  0 Lgargs  0 Lgtest  i g consequent  i g alternate  i gexp  gexp  gexp  gexp   gexps  ' 6gbody  E gc  K gn  K gfree-addresses    glabels    ginits  3 ggensyms  3 gbody  3 g alternate  3 ggensyms e gn e gnlocs  ggensyms  1 gvals  1 gbody  1 gnmax  E ggensyms O gn O gv i gv  Fggensyms   0gvals   0gbody   0ggensyms   $gn  $gnmax  gv  $ggensyms  M {gvals  M {gbody  M {gin  W ogn W oggensyms a gvals a gnmax a gr  grtd   gbody   gv  ogexp   gbody   gbody   gwinder   gunwinder   gfluids   9gvals   9gbody   9gfluid  H Zgfluid  p gexp  p gtag   ,gbody   ,ghandler   ,gcont-var   ,gtag  I rgargs  I rgtail  I rHgfilenameflanguage/tree-il/analyze.scm o   q  7 p  B s  L s  T q  r p  v  q  p  q  p  q  p  q   p   q  ,   6   > q  K   N  R  S   V   ]  1 _   b   c  ! j  5 l  ! o   u                                      "                 "    q  e   k  l   o   z              /   7   /   )         '      "   (   <   (   "            "                 q  8   ;   E   E   O  U  Z   f   i   i   l   s   x  y  &              %                                               %            0            %       !   $  0 ,   /   J  K  R  " S   X  ( _   d  s   t   w  '       q                                       "               ! $   $   8 q  W   ]  a  g   l   x   y     #               "         "                        *                       "   &   '   3   6   @   A   H  * M  ; T  * Y   d   g   o   o    q   p      q   p      q   p  (   -  * 7   9   A q  Z p  b q  w p      q          #         !              *   #    p  ,  4 q  R p  h  + r    u gnameg allocate!C?h]AHHHHHHOOQQ45K45K45K45K45K45K4>"G4 >"GJCgx  g bound-vars  g free-vars   gassigned   g refcounts   glabels   g allocation   ganalyze!  / g allocate!  /  gfilenameflanguage/tree-il/analyze.scm P  W  ^  e  l  s m  z          gnameganalyze-lexicalsC4Rh]Cgleaf  gdown  gup   gpost   ginit   gfilenameflanguage/tree-il/analyze.scm #    gnameg%make-tree-analysis-procedureCR4=h]Cgt-a11d84f71ea-1a60  gt-a11d84f71ea-1a61  gt-a11d84f71ea-1a62   gt-a11d84f71ea-1a63   gt-a11d84f71ea-1a64      C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm  #   CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm  #    CHh]C   CJK hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/analyze.scm #   n C5RNORS4V>"G YiRh]$CCgobj  gfilenameflanguage/tree-il/analyze.scm #    gnameg%tree-analysis?-procedureCZR4[\h:]C2gt-a11d84f71ea-1a79    C?B[Ch`]L6Xga  gfilenameflanguage/tree-il/analyze.scm  #   CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm  #    Ch]C   CJK hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/analyze.scm #   n C5[Rh]& C6gs  gfilenameflanguage/tree-il/analyze.scm #    gnameg%tree-analysis-leaf-procedureCR4 h:]C2gerr  gs    Ch:]C2gerr  gs    C &,h:]C2gerr  gs    C\Jh:]C2gt-a11d84f71ea-1a85    C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm  #   CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm  #    CLh]C   CJKh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/analyze.scm #   C5RMh]& C6gs  gfilenameflanguage/tree-il/analyze.scm #    gnameg%tree-analysis-down-procedureCNR4M\chh:]C2gerr  gs    Ckqvh:]C2gerr  gs    Cyh:]C2gerr  gs    C\h:]C2gt-a11d84f71ea-1aa0    C?BMCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm  #   CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm  #    Ch]C   CJKh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/analyze.scm #   C5MRh ]& C6gs  gfilenameflanguage/tree-il/analyze.scm #    gnameg%tree-analysis-up-procedureCR4h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    C\h:]C2gt-a11d84f71ea-1abb    C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm  #   CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm  #    Ch]C   CJKh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/analyze.scm #   C5Rh ]& C6gs  gfilenameflanguage/tree-il/analyze.scm #    gnameg%tree-analysis-post-procedureCR4h:]C2gerr  gs    C"h:]C2gerr  gs    C%+0h:]C2gerr  gs    C\Lh:]C2gt-a11d84f71ea-1ad6    C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm  #   CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm  #    CNh]C   CJKh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/analyze.scm #   C5ROh ]& C6gs  gfilenameflanguage/tree-il/analyze.scm #    gnameg%tree-analysis-init-procedureCPR4O^ejh:]C2gerr  gs    Cmsxh:]C2gerr  gs    C{h:]C2gerr  gs    C\h:]C2gt-a11d84f71ea-1af1    C?BOCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm  #   CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm  #    Ch]C   CJKh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/analyze.scm #   C5OR4(h v]45Cngdummy  gcheck?  gs   ggetter   gexpr      CJKh(] 45$@6gx  "gtmp "gfilenameflanguage/tree-il/analyze.scm #   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5(RGh]4L5LLL6ganalysis  gresult  gfilenameflanguage/tree-il/analyze.scm 9   :   :    Ch(] 4LLOL5Cgx  "gresults  "glocs   "gfilenameflanguage/tree-il/analyze.scm 6   7 !  7  9   <  9  ! 8   " CNGh]4L5LLL6ganalysis  gresult  gfilenameflanguage/tree-il/analyze.scm 9   :   :    Ch8] 454LLOL5Cgx  1gresults  1glocs   glocs   1gfilenameflanguage/tree-il/analyze.scm 6   7 !  7   @ %  @   7   9  - <  / 9  0 8   1 CGh]4L5LLL6ganalysis  gresult  gfilenameflanguage/tree-il/analyze.scm 9   :   :    Ch0] 4LLOL5Cgx  *gresults  *glocs   glocs  *gfilenameflanguage/tree-il/analyze.scm 6   7 !  7  A  7   9  & <  ( 9  ) 8   * CGPuh(]&  " 45L6|ganalysis  #gresult  #gfilenameflanguage/tree-il/analyze.scm K   L   # C hp] 4OOO4 554  O>"GCganalyses  ngtree  ngenv   ngproc   gproc   )gproc  + ;gresults  J kgfilenameflanguage/tree-il/analyze.scm ,  D  D   E  + F  < G  = H  F G  J D J C  M K  [ N  ` K   n gnameg analyze-treeg documentationfhRun all tree analyses listed in ANALYSES on TREE for ENV, using `tree-il-fold'. Return TREE. The leaf/down/up procedures of each analysis are passed a ``location stack', which is the stack of `tree-il-src' values for each parent tree (a list); it can be used to approximate source location when accurate information is missing from a given `tree-il' element.C5Rh]Cgvars  grefs  gfilenameflanguage/tree-il/analyze.scm Z   gnameg%make-binding-info-procedureCR4hZ]CRgt-a11d84f71ea-1b73  gt-a11d84f71ea-1b74    C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm  Z   CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm  Z    Ch]C   CJK hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/analyze.scm Z   n C5RNR4V>"G YiRh]$CC~gobj  gfilenameflanguage/tree-il/analyze.scm Z    gnameg%binding-info?-procedureCR4\ h:]C2gt-a11d84f71ea-1b83    C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm  Z   CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm  Z    C"h]C   CJK hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/analyze.scm Z   n C5R#h]& C6gs  gfilenameflanguage/tree-il/analyze.scm Z    gnameg%binding-info-vars-procedureC$R4#29>h:]C2gerr  gs    CAGLh:]C2gerr  gs    COU[h:]C2gerr  gs    C\wh:]C2gt-a11d84f71ea-1b8f    C?B#Ch`]L6Xga  gfilenameflanguage/tree-il/analyze.scm  Z   CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm  Z    Cyh]C   CJKh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/analyze.scm Z   C5#Rzh]& C6gs  gfilenameflanguage/tree-il/analyze.scm Z    gnameg%binding-info-refs-procedureC{R4zh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    C\h:]C2gt-a11d84f71ea-1baa    C?BzCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm  Z   CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm  Z    Ch]C   CJKh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/analyze.scm Z   C5zR4Wh v]45Cngdummy  gcheck?  gs   ggetter   gexpr      CJKh(] 45$@6gx  "gtmp "gfilenameflanguage/tree-il/analyze.scm Z   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5WRh] 456gsym  gfilenameflanguage/tree-il/analyze.scm `  b   b    gnameggensym?CRz#XYfRSUThgGh]L6gvar  gname  gvars   gfilenameflanguage/tree-il/analyze.scm w  x "  x    Cmnh]L6gvar  gname  gvars   gfilenameflanguage/tree-il/analyze.scm w  x "  x    Cqrh]L6gvar  gname  gvars   gfilenameflanguage/tree-il/analyze.scm w  x "  x    Cvwh]L6gvar  gname  gvars   gfilenameflanguage/tree-il/analyze.scm w  x "  x    C!h]\& " 45& " 4545&4545  C &4 54 54 54 545    4>"G44 $ "4 $  " $4 5"555 4O  5C&04545 4O 5  C&04545 4O 5  C&04545 4 O 5  CCgx  ginfo  genv   glocs   grefs  = gvars  = gsrc  = grtd  F ggensym  W ogrefs c ogreq  gopt grest gkw ggensyms gnames gvars   ggensyms  / Qgnames / Qgvars E Qggensyms  g gnames g gvars } ggensyms   gnames  gvars  gfilenameflanguage/tree-il/analyze.scm p   s   t  7 u  = s  F }  Z  " c  w }       #      $  0    "  ,  "  6    w   ! }  4 w E  Y }  l w }   }   w   #   Cz#OP hp]4L5$m4L5$"4L5$M$" 4L545$"$  6CCChgvar  ggensym  gt  ; Ugname  U gloc  U gfilenameflanguage/tree-il/analyze.scm                !   '   .   2   5   9  " ;   J  " U   Z  " d   m  , n  " o   s   w  ! }    CQh0]4LLOL>"GL456g inner-vars  .grefs  .gfilenameflanguage/tree-il/analyze.scm     &   .    . gnamegshrinkCfhmnqrvwh]4& " 45& " 45OQ&4545  C&4 545  C &4 545  C &4 545  CCgx  ginfo  genv   glocs   grefs  6 gvars  6 gshrink  D grtd  P ggensyms  a xgvars l xggensyms  gvars ggensyms  gvars ggensyms  gvars gfilenameflanguage/tree-il/analyze.scm         6   P   d   l                   Ciiiiz#LMhp&],& " 45& " 45&4545CCgx  iginfo  igenv   iglocs   igrefs  6 igvars  6 igrtd  = iggensym  N fgrefs  Z f gfilenameflanguage/tree-il/analyze.scm g   i   j  6 i  = k  Q m " Z m   i Chv]Cngresult  genv  gfilenameflanguage/tree-il/analyze.scm     C6Rh]Cgrefs  gdefs  gtoplevel-context   gfilenameflanguage/tree-il/analyze.scm     gnameg%make-reference-graph-procedureCR4hz]Crgt-a11d84f71ea-1ccc  gt-a11d84f71ea-1ccd  gt-a11d84f71ea-1cce      C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm     CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm      Ch]C   CJK hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/analyze.scm    n C5RNR 4V>"G YiRh]$CCgobj  gfilenameflanguage/tree-il/analyze.scm     gnameg%reference-graph?-procedureC!R4"\=h:]C2gt-a11d84f71ea-1cdf    C?B"Ch`]L6Xga  gfilenameflanguage/tree-il/analyze.scm     CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm      C?h]C   CJK hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/analyze.scm    n C5"R@h]& C6gs  gfilenameflanguage/tree-il/analyze.scm     gnameg%reference-graph-defs-procedureCAR4@OV[h:]C2gerr  gs    C^dih:]C2gerr  gs    Clrxh:]C2gerr  gs    C\h:]C2gt-a11d84f71ea-1ceb    C?B@Ch`]L6Xga  gfilenameflanguage/tree-il/analyze.scm     CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm      Ch]C   CJKh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/analyze.scm    C5@Rh]& C6gs  gfilenameflanguage/tree-il/analyze.scm     gnameg%reference-graph-refs-procedureCR4h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    C\h:]C2gt-a11d84f71ea-1d06    C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm     CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm      Ch]C   CJKh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/analyze.scm    C5Rh ]& C6gs  gfilenameflanguage/tree-il/analyze.scm     gnameg+%reference-graph-toplevel-context-procedureCR4h:]C2gerr  gs    C h:]C2gerr  gs    C$h:]C2gerr  gs    C\@h:]C2gt-a11d84f71ea-1d21    C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm     CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm      CBh]C   CJKh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/analyze.scm    C5R4tRTXh v]45Cngdummy  gcheck?  gs   ggetter   gexpr      CJKh(] 45$@6gx  "gtmp "gfilenameflanguage/tree-il/analyze.scm    " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5tRYh]LL6wgkid  gresult  gfilenameflanguage/tree-il/analyze.scm    !  Ch]6wgkid  gresult  gfilenameflanguage/tree-il/analyze.scm      Ch{]45$" 45$C44L55$"454LO56sgroot  ygpath  ygresult   ygt  $gt  ; Mgchildren  M ygpath  Y ygresult  m ygfilenameflanguage/tree-il/analyze.scm         (   ,   /  $ ;   ;   J  @ M   P   Y   \   m   y    y gnamegloopCh ] OQ6groot  grefs  g reachable   gloop  gfilenameflanguage/tree-il/analyze.scm      gnameggraph-reachable-nodesCZR[Zh ]4L56g root+true  gresult  groot   g reachable   gfilenameflanguage/tree-il/analyze.scm     "      "         Ch]O6groots  grefs  gfilenameflanguage/tree-il/analyze.scm       gnameggraph-reachable-nodes*C\R[h@]"4L5$45C45Cgk+v  ?gresult  ?gk   ?gv   ?gr1   ?gr2   ?gfilenameflanguage/tree-il/analyze.scm     !   !  !   !       !   "  # /   3  & >    ? Ch ] 4O5Dgpred  gvhash  gresult   gfilenameflanguage/tree-il/analyze.scm                      gnameg partition*C]R@Y h]*& " 45& " 45&  " 454455$"4 5Cggraph  gname  grefs   gdefs  8 gctx  U gt  g ygctx-refs  y grefs  gfilenameflanguage/tree-il/analyze.scm       !   8  =   U  X  [  ' g  g   v  B y  |  #  4  #    gnamegadd-ref-from-contextC@`^_^`ah]4& " 45& " 45&  "4>"G&>45454 $" 4  55  C &#4 54>"GL6Cgx  ggraph  genv   glocs   grefs  6 gdefs  6 grtd  d gname  | gsrc  | gdefs gname   gfilenameflanguage/tree-il/analyze.scm         6   =   d  "  " * " 2 "  ! $   &   CO]bcdeh`] 4L5$44L55"$C4L5$#4L5$$6CCCgname  [gt [gvar ? Ygfilenameflanguage/tree-il/analyze.scm A !  < <  =  =   = B # ,  6   7   ?  G  J   N  S   U    [ C@\fh]4L5Cgname+src  gfilenameflanguage/tree-il/analyze.scm H )  I 0  I < I 0 I +   Cgh(]45$C6gname+loc  #gname  #gloc   #gfilenameflanguage/tree-il/analyze.scm L   M )  N )  M  O (  O   P , # P #  # C hm]24O& " 45> G45& " 45454  O5  6eggraph  }genv  }g public-defs  , }g private-defs  , }groots  < }grefs  X }g reachable  c }gunused  s }gfilenameflanguage/tree-il/analyze.scm 2   A   D ! + A  / @  4 E  < E A F  X E [ G  c E f H  s E } L   } CQiiiihijh`]&  "4>"G&#454>"GL6Cgx  \ggraph  \genv   \glocs   \grtd  , \gname  = Ygfilenameflanguage/tree-il/analyze.scm      ,  Y    \ CO`@hX]&C& " 45& " 45CCgx  Uggraph  Ugenv   Uglocs   Ugrtd   Ugrefs  C Rgdefs  C Rgfilenameflanguage/tree-il/analyze.scm )   +   -  , .  C - Q /   U C7Rkh]Cgrefs  gdefs  gfilenameflanguage/tree-il/analyze.scm ^   gnameg%make-toplevel-info-procedureClR4mhZ]CRgt-a11d84f71ea-1e81  gt-a11d84f71ea-1e82    C?BmCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm  ^   CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm  ^    Ch]C   CJK hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/analyze.scm ^   n C5mRNRk4Vk>"G YlikRkh]$CCgobj  gfilenameflanguage/tree-il/analyze.scm ^    gnameg%toplevel-info?-procedureCR4\h:]C2gt-a11d84f71ea-1e91    C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm  ^   CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm  ^    Ch]C   CJK hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/analyze.scm ^   n C5Rkh]& C6gs  gfilenameflanguage/tree-il/analyze.scm ^    gnameg%toplevel-info-refs-procedureCR4h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    C\h:]C2gt-a11d84f71ea-1e9d    C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm  ^   CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm  ^    Ch]C   CJKh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/analyze.scm ^   C5Rkh]& C6gs  gfilenameflanguage/tree-il/analyze.scm ^    gnameg%toplevel-info-defs-procedureCR4h:]C2gerr  gs    C!',h:]C2gerr  gs    C/5:h:]C2gerr  gs    C\Vh:]C2gt-a11d84f71ea-1eb8    C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm  ^   CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm  ^    CXh]C   CJKh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/analyze.scm ^   C5R4hjmh v]45Cngdummy  gcheck?  gs   ggetter   gexpr      CJKh(] 45$@6gx  "gtmp "gfilenameflanguage/tree-il/analyze.scm ^   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5Rnhopsth]#"T$K$8&-  $$(CCCCCCC"@$7&,  &45&"pCCCC$R&E  $- & &""s"o"k"g"cgproc  gargs  genv   gargs   Zgw   Xgx   Xgw  0 Tgw  w gw  gw  gw   gfilenameflanguage/tree-il/analyze.scm d  h  i  ^ n  t  t # t  t  u n  p  n   gnameggoops-toplevel-definitionCuRkhijbch]<& " 45& " 45&y454545$ 4 5"  $" 4 5 $C$" 4  5 4  5  CCgx  ginfo  genv   glocs   grefs  6 gdefs  6 grtd  = gname  U gsrc  U gt r gsrc grefs  gfilenameflanguage/tree-il/analyze.scm {   }   ~  6 }  =   Z   d  e   r       !    $    Ck^`abc`^vBCDuhp]D& " 45& " 454>"G&}454>"G4 5$ 4 5"$" 4 5$ C4  545  C&*454545  C&Q454545  $!4 54 5    CCCgx  kginfo  kgenv   kglocs   kgrefs   kgdefs  8 kgrtd  O kgname  ` gt  gsrc  grefs gname  grefs  gdefs gproc   agargs   agname - agrefs I Wgdefs I Wgfilenameflanguage/tree-il/analyze.scm         !   8   ;   O   u                 $             #   -  2   6  7  $ @  $ I   `   j  !  k Ciikiih]Cgx  ginfo  genv   glocs   gfilenameflanguage/tree-il/analyze.scm     Cwh]6gname+loc  gname  gloc   gfilenameflanguage/tree-il/analyze.scm     #   #      "      Cxkh(]4& " 4556gtoplevel  'genv  'gfilenameflanguage/tree-il/analyze.scm       $ %   '    ' C8Ryh]Cgtoplevel-calls  glexical-lambdas  gtoplevel-lambdas   gfilenameflanguage/tree-il/analyze.scm     gnameg%make-arity-info-procedureCzR4{hz]Crgt-a11d84f71ea-2133  gt-a11d84f71ea-2134  gt-a11d84f71ea-2135      C?B{Ch`]L6Xga  gfilenameflanguage/tree-il/analyze.scm     CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm      Ch]C   CJK hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/analyze.scm    n C5{RNRy4Vy>"G YziyRyh]$CC|gobj  gfilenameflanguage/tree-il/analyze.scm     gnameg%arity-info?-procedureCR4\h:]C2gt-a11d84f71ea-2146    C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm     CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm      Ch]C   CJK hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/analyze.scm    n C5Ryh]& C6gs  gfilenameflanguage/tree-il/analyze.scm     gnameg#%toplevel-procedure-calls-procedureCR4h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    C\h:]C2gt-a11d84f71ea-2152    C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm     CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm      Ch]C   CJKh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/analyze.scm    C5Ryh]& C6~gs  gfilenameflanguage/tree-il/analyze.scm     gnameg%lexical-lambdas-procedureCR4%,1h:]C2gerr  gs    C4:?h:]C2gerr  gs    CBHMh:]C2gerr  gs    C\ih:]C2gt-a11d84f71ea-216d    C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm     CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm      Ckh]C   CJKh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/analyze.scm    C5Ryh ]& C6gs  gfilenameflanguage/tree-il/analyze.scm     gnameg%toplevel-lambdas-procedureClR4zh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    C\h:]C2gt-a11d84f71ea-2188    C?BCh`]L6Xga  gfilenameflanguage/tree-il/analyze.scm     CFhP]L6Hgfilenameflanguage/tree-il/analyze.scm      Ch]C   CJKh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/analyze.scm    C5R4h v]45Cngdummy  gcheck?  gs   ggetter   gexpr      CJKh(] 45$@6gx  "gtmp "gfilenameflanguage/tree-il/analyze.scm    " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5RGGh0]454545445545Cga  0gfilenameflanguage/tree-il/analyze.scm      /   >     ) %  &  /    0 CfRSUTVQdWkh]Q45$454455D45$7$  "4545D"$ &4 54 54 54 54 5  ("$ 45"  $ "  ("$ 45"  $ "  $45"$""%&)454545"D45D"gproc  garity G fgname j gproc  j garities  j grtd  s zgreq  Egopt  Egrest  Egkw  Eg alternate Egt gt gmeta  [ vgbody  [ vgfilenameflanguage/tree-il/analyze.scm                "   $  %  /   2   6  :   @   A   G   J   S  % V  1 Z  > a   d   f   j  p  s                           +   &   6   ? !  6 )  + -  & 0  6 8  ;   E   M   `   f  * h   v   z   }             =   gnamegaritiesCDkOQhX]q$F$3$ $ $   ($" ( 4 5"  "     "4 5$X44 55$" $44 55"$ $ "   "w"" L  "a"L $.$&4 5  $$C CCCCCCCCCCgarity  Qgvx  Ogvy   Ogvx  Mgvy  Mgvx  1 Kgvy  1 Kgvx  B Igvy  B Igvx S Ggvy S Ggargs h gresult h garg | gt  gargs  Egcount " Agfilenameflanguage/tree-il/analyze.scm      `  % d  ! h   n   o  |   |                         (      !                             ( "   )  " -   3  " =  0 >  &,  Q ChY]L6Qgfilenameflanguage/tree-il/analyze.scm # 5  # @   C h]3OQ45454> GH4O5KJ$".4$" 4 O5>"GCgproc  g application  glexical?   garities  gargs   gsrc   gname  , garities  , gmatches?  4  gfilenameflanguage/tree-il/analyze.scm           "  ! /   7  L !  Q " U "  ] #  d #  v "   gnamegvalidate-arityCRydWLMhih]3& " 45& " 45&  " 45&+4>"G45C &/4 54 5$"?C &+4 >"G45CCg lexical-name  gval  ginfo   gtoplevel-calls  Q glexical-lambdas  Q gtoplevel-lambdas  Q grtd  Z glexical-lambdas  ggensym  gval*  glexical-lambdas   gfilenameflanguage/tree-il/analyze.scm /   1   2  9 3  Q 1  Z 4 w 7  6 4 <  < =  =  > ' >  4 C  B   gnamegextendCy`^adWhimnoqrsvwxBCDLM!h]lOQ& " 45& " 45&  " 45&454 5      &+4  >"G4   5  C  &@4 5 4 5 4 45 $ " 5CC&4545    6&4545    6&4545    6&45 4>"G4>"G    &*4  >"G4 >"GC  &"4 5 4  5  C &j4  5 4 5  $L    &"4 54 5C4 >"GCCCCgx  ginfo  genv   glocs   gextend  gtoplevel-calls  ^ glexical-lambdas  ^ gtoplevel-lambdas  ^ grtd  g gname  gexp  grtd gtoplevel-lambdas gname gproc gtoplevel-lambdas  ggensyms  ,gvals  ,ggensyms B Rgvals B Rggensyms h xgvals h xgproc  grtd  gname  gtoplevel-calls  ggensym  gproc ( gr 4 }grtd  9 }gname  J egtoplevel-calls  W e gfilenameflanguage/tree-il/analyze.scm -   H  , I  F J  ^ H  g L  N R  P N U  U X X - Y 1 Y - Z 1 X V   L  , _ 4 L  R a Z L  x c  L   f  h  f  k   k  f  o  ( o - p  1 p  4 q 4 q  M t ' W t  f x  j x & r x ,   CyhU]#& " 45& " 45&  " 4545$ 45"CMgname  gval  ginfo   gtoplevel-calls  Q glexical-lambdas  Q gtoplevel-lambdas  Q glexical-lambdas  q gfilenameflanguage/tree-il/analyze.scm         9   Q   X   d   e   q     gnamegshrinkCymnoqrsvwxh]$&  "4>"G&  "4>"G&  "4>"G&454 5 6 &4 54 5 6&4545 6Cgx  ginfo  genv   glocs   gshrink   grtd  | ggensyms  gvals  ggensyms  gvals  ggensyms  gvals   gfilenameflanguage/tree-il/analyze.scm     /   U   |            CyYbhY]LL6Qgfilenameflanguage/tree-il/analyze.scm      Che-13C]gargs gfilenameflanguage/tree-il/analyze.scm   CihY]LL6Qgfilenameflanguage/tree-il/analyze.scm      Che-13C]gargs gfilenameflanguage/tree-il/analyze.scm   Ch]!44L55$"!4L5$4LO5"45$14 54L5$4 LO 5""4 5$  645$  6Cgname+application  gname  g application  gt   Ngproc  N gname  b gproc*  gfilenameflanguage/tree-il/analyze.scm                      +   5   6   N  Q   [   \  " b   e   o   p               ChP]& " 45&  " 45O6gresult  Jgenv  Jgtoplevel-calls  7 Jgtoplevel-lambdas  7 Jgfilenameflanguage/tree-il/analyze.scm         7   J    J Ciiiyiih]Cgx  ginfo  genv   glocs   gfilenameflanguage/tree-il/analyze.scm *    C9R4i5ROOh]6wgchar  gfilenameflanguage/tree-il/analyze.scm      gnamegdigit?CkGQ  h]4545L$L45""D45$45$yLLLL$4 L5"L$ " ( "4 ?L$4 L5"L$ " ( "4 ?6"c"_gchars  gconds  gmins  ) gmaxs  ) gsel?  ) gfilenameflanguage/tree-il/analyze.scm     $  $   $   5 $  ) )   5 ! & 7 ! + 9 !  9   :  # F   G  # S   Y  * Z  3 f  ' g  0 p  + z  .  .  2  +  $  '  0  +  .  .  2  +  $  #  C   Oh]6wgchar  gfilenameflanguage/tree-il/analyze.scm      gnamegdigit?COh]6wgchar  gfilenameflanguage/tree-il/analyze.scm      gnamegdigit?C z h8E ]'($6D$~$"%$"&$"t$"T$"u_$"g $"Y($"K)$"=!$"/|$"!/$"q$"Q$ "0$"1$"2$"3$"4$"5$"6$"u7$"g8$"Y9$"K,$"=:$"/@$"!+$"-$"#$$"v$"V$&"p$"P$V4:5$ 4 5"  $ 4 5""P[$j4 5("4 4 4 5554@5   LO ";$2$$ "6]$"$4 566{$4@5$D"V ( 45"N $ }& "8   " ~&    "   "  ""*$4@5$D45("4 4 4 555$" 45("4 4 4 555$" "?$"k$"K$D^$Dh$"H$<4:5$ " "'$6(6"M"+$N~$ ""6= gchars  6gstate  6gparams   6g conditions   6g end-group   6g min-count   6g max-count   6gkey  ( gcolon?  e g min-count | gnumbers   gselector   gat?  gchars   gchars  gtilde?  gnumbers  b gt   gnumbers   gt   gargc  N vgkey   .gfilenameflanguage/tree-il/analyze.scm           !     %   (   (     *  3              +   %      "   $   &  + )  % 0   3   E   N  ]  * e   m  * n  . |  . |       ,   5     $   $           #   '                 )        $    %   .  4 $  7 %  9 % $ : % - ? &  B &  X %  ^ ) ' ` )  i  o +  t ,  u -  | - ,  - &  -   ,   / '  /     0   0   1 .  1   2 .  2 "                                                     3 "  3 +  5 " ! 5 2 3 2  <  = 6  I 6  K 7 $ M 7 ) O 7  R 8 " T 9 " U 9 + Z   b   j   p  s   v  ) ~      ; %  ; "                 )       = %  = "  8     B   B   B    ! D # D  ,  ; F ( G F $ N F  S G U G , V G 5 _ I d J v G     L   L   M '  M   N   N %  N 2  N ,  N   P   P *  P 3  R   R .  P      T   T  U   U *  U 1  U   X   X *  X 3 . X  2 [  6 [   6 gnamegloopC h(] OQ45 6gfmt  !gloop !gfilenameflanguage/tree-il/analyze.scm                !    ! gnamegformat-string-argument-countC Rt hY]L6Qgfilenameflanguage/tree-il/analyze.scm p   p )   Che-13C]gargs gfilenameflanguage/tree-il/analyze.scm p  Cp cLh hH]," "$&l    $4O5" 45$ 45"$$CCC&  CCC$c &.  45$$CCC&   &C"""$& &  &C"""gexp  Cgproc  Cg special-name   Cgenv   Cgw  # gw  * gw  1 gmod  V gvar  l gw  gw  gvar  gw   gw  + ;gfilenameflanguage/tree-il/analyze.scm ]  d  9 o  : p  M q  V o  ^ r  _ r  l o  t s  w s  { s  ~ s + s & d  b  d  i  i  j  j  j  k  k d   C gnameg proc-ref?g documentationfReturn #t when EXP designates procedure PROC in ENV. As a last resort, return #t when EXP refers to the global variable SPECIAL-NAME.C R  h]6gt-a11d84f71ea-25ec  gt-a11d84f71ea-25ef  gfilenameflanguage/tree-il/analyze.scm x  x +  x    gnameggettext?C R   h]6gt-a11d84f71ea-25f6  gt-a11d84f71ea-25f9  gfilenameflanguage/tree-il/analyze.scm y  y -  y    gnameg ngettext?C RB n  h]B"W"$&  45$ $$w&l  45$T$K$8&-   4 5$$ $CCCCCCCCCCCCCC$&s  45$W $E(:$*&  45$C""""""""$*&  45$C"|"x"tgx  genv  gw  # gw  7 gw  F gx  F gw  c gw  } gx  } gw gw  Ugw  Qgw   Igw  - Agw  v gfilenameflanguage/tree-il/analyze.scm {  }  &   2 }    }    gnameg const-fmtC R       Ln   Q    hp]4L> G$R$J&"L$&"L"$CLLL6CC gmin ngmax ngt  M jgfilenameflanguage/tree-il/analyze.scm            $  - (  )  $ 2  3 6   :  - >  ?  $ H  3 M   \  $ `  0 j    n C  h]LL6g_  gkey  gfilenameflanguage/tree-il/analyze.scm       %      Ch]]2"&$$45$54455$"445>"G""O"'4455$ 64   56$ &   C""$E &8  4455$$"6"i"e"a456456$$4L5$n45$54455$"445>"G"4L545OO6"9"5"1Ugargs  gloc  gvx   gvy   gvx  !  gw  gw  gvx  9 gvy  9 gvx  J gvy  J gfmt   gcount    gfilenameflanguage/tree-il/analyze.scm      (   2  3   6  " >   B   G   K   O  # P  / [   k  q   {     "          ,            /      #   $  / ,  ,   O   [   \   f  g   j  " r   v   {        #   /                7   gnamegcheck-format-argsC   nk   O hq]6igt-a11d84f71ea-2e3a  gfilenameflanguage/tree-il/analyze.scm    C   O hq]6igt-a11d84f71ea-2e41  gfilenameflanguage/tree-il/analyze.scm  )  ChH]Z"a$X$E4L545$#$45"CCCC$$$x&k  45$Q$F"( 45"$ ~$ $R     $  "   $  "4455"      $  "e4455"W    $  "94455"+  4455"4 5"4  5$C4  4455>"GC""""""@gargs  gloc  gw   egx   egw  $ cgx  $ cgw  1 cgx  q gw   gx   gw  gchars  gresult  gw  gx gw =gx =gx  7gx ? igx k gopts   gt   gfilenameflanguage/tree-il/analyze.scm      )   1   H  - U  $ _  g                "   #  T   U                                '      !         %   gnamegcheck-simple-format-argsCBt   !hbhY]LL6Qgfilenameflanguage/tree-il/analyze.scm     Che-13C]gargs gfilenameflanguage/tree-il/analyze.scm   C # %h]DOOQQ""-$"&  $&  $   &Y  4 $" 455$+4 $" 45>"8G"1"-   &Y  4 $" 455$+4 $" 45>"G"" " """""$&  $s&f   $K   &5  4 $" 45>"+G"$ "K "D"="9"/"+$&  $ &    4 5$4 O5"  & 4 $" 455"  $"  $+4 $" 45>"G"  ""H""@""2""*Cgx  g_  genv   glocs   gcheck-format-args   gcheck-simple-format-args   gw  ; Lgw  A Igw  \ >gw l 7gw { gw 0gw  h gw  n gw   gw  gw  gw   gw   gw  1 gw 8 gproc [ gt  gfilenameflanguage/tree-il/analyze.scm   #   ~   '  /      %  -      '  /       %   -   T          (       ;  E   F  [   e   f   p  1 w  9                 &   .      -   Cih]Cgx  g_  genv   glocs   gfilenameflanguage/tree-il/analyze.scm     Ch]Cgx  g_  genv   glocs   gfilenameflanguage/tree-il/analyze.scm     Chq]Cig_  genv  gfilenameflanguage/tree-il/analyze.scm     C:RCcgm  ,grtd A Agrtd m ngdown Agup Agvars Kagrefs Kaginit agrtd gadd-ref-from-context gdown gpost grefs gdefs ginit grtd ­gleaf Ugdown Ugrefs _ugdefs _uginit ugrtd -gdown ~tgup ~tgpost ~tgtoplevel-calls glexical-lambdas gtoplevel-lambdas ginit kgdown RTgfilenameflanguage/tree-il/analyze.scm    =2 >5 # j* , j Z ~3 `  f K  a f  d       S    s   S      ^  d ׮ z _  u z  x      )    ) w ' x        2-  7x ] 8\ x 9E y < { R  T  , T C62.0/ccache/language/tree-il/inline.go000064400000001431151463412640013207 0ustar00GOOF----LE-8-2.0]4hx] gguile  gdefine-module*   glanguage gtree-il ginline  gfilenameS flanguage/tree-il/inline.scm gexportsS ginline!   gset-current-module   gissue-deprecation-warning f?`inline!' is deprecated. Use (language tree-il peval) instead.C5hg]4    54>"Gh]4>"GCgx  gfilenameflanguage/tree-il/inline.scm            gnameginline!C RC_gm  (gfilenameflanguage/tree-il/inline.scm      C62.0/ccache/language/tree-il/spec.go000064400000003431151463412640012665 0ustar00GOOF----LE-8-2.0]54h6] gguile  gdefine-module*   glanguage gtree-il gspec  gfilenameS flanguage/tree-il/spec.scm gimportsS gsystem gbase    gpmatch    gglil     g compile-glil    gexportsS  gset-current-module  ! "gwrite #gunparse-tree-il $g write-tree-il %g make-void &g make-sequence 'gjoin (ginvalidate-compilation-cache! )g make-language *gnameS +gtitleS ,fTree Intermediate Language -greaderS .gread /gprinterS 0gparserS 1g parse-tree-il 2gjoinerS 3g compilersS 4g for-humans?SC5h]4    54!>"G"#h-1345@gexp gport gfilenameflanguage/tree-il/spec.scm        gnameg write-tree-ilC$R%&h8](6$(C66gexps  5genv  5gvx   .gvy   .gfilenameflanguage/tree-il/spec.scm    !    . #   5 gnamegjoinC'R4(i>"G4)i*+,-.hx]6pgport  genv  gfilenameflanguage/tree-il/spec.scm '   ' #   C/$i01i2'i3i45RCgm  ,gfilenameflanguage/tree-il/spec.scm       % " &   +   %    C62.0/ccache/language/tree-il/compile-glil.go000064400000173240151463412640014316 0ustar00GOOF----LE-8-2.0]a4hq+] gguile  gdefine-module*   glanguage gtree-il g compile-glil  gfilenameS f!language/tree-il/compile-glil.scm gimportsS gsystem gbase gsyntax    gpmatch    gmessage    gice-9 greceive   gglil   gvm g instruction !   "! # $# %goptimize &% '& (g canonicalize )( *) +ganalyze ,+ -, .gsrfi /gsrfi-1 0./ 1gselectS 2g filter-map 32 4013 5"$'*-4  6gexportsS 7 8gset-current-module 98 :8 ;g make-fluid gunused-variable-analysis ?gunused-toplevel @gunused-toplevel-analysis Agunbound-variable Bgunbound-variable-analysis Cgarity-mismatch Dgarity-analysis Egformat Fgformat-analysis Gg%warning-passes Hgand=> Igmemq JgwarningsS Kgcadr Lg assoc-ref Mg analyze-tree Ng make-lambda Og tree-il-src Pgmake-lambda-case Qg optimize! Rg canonicalize! Sganalyze-lexicals Tgflatten-lambda Ugmake-hash-table Vg*primcall-ops* Wgfor-each Xg hash-set! Ygeq? ZY  [ZY \geqv? ]\  ^]\ _gequal? `_  a`_ bg= cb  dgee? ecd fg< gf  hglt? igh jg> kj  lggt? mkl ng<= on  pgle? qop rg>= sr  tgge? ust vg+ wv  xgadd ywx zg- {z  |gsub }{| ~g1+ ~  gadd1  g1-   gsub1  g*   gmul  g/   gdiv  gquotient   gquo  g remainder   grem  gmodulo   gmod  gash    glogand    glogior    glogxor    gnot    gpair?    gcons    gcar    gcdr    gset-car!    gset-cdr!    gnull?    glist?    gsymbol?    gvector?   Č glist nj gvector Ɍ gclass-of   ˌ g vector-ref   Ό g vector-set!   g vector-set ӌ g variable-ref   Ռ gvariable-bound?   ، gstruct?   ی g struct-vtable   ތ g struct-ref   ጤ g struct-set!   g struct-set 挤 gmake-struct/no-tail g make-struct 錤 greturn   댤 g return/values  gbytevector-u8-ref   g bv-u8-ref  gbytevector-u8-set!   g bv-u8-set  gbytevector-s8-ref   g bv-s8-ref  gbytevector-s8-set!   g bv-s8-set  gbytevector-u16-ref   g bv-u16-ref  gbytevector-u16-set!   g bv-u16-set  gbytevector-u16-native-ref     gbv-u16-native-ref      gbytevector-u16-native-set!    gbv-u16-native-set   gbytevector-s16-ref   g bv-s16-ref  gbytevector-s16-set!   g bv-s16-set  gbytevector-s16-native-ref   gbv-s16-native-ref  gbytevector-s16-native-set!   gbv-s16-native-set   gbytevector-u32-ref !  "g bv-u32-ref #!" $gbytevector-u32-set! %$  &g bv-u32-set '%& (gbytevector-u32-native-ref )(  *gbv-u32-native-ref +)* ,gbytevector-u32-native-set! -,  .gbv-u32-native-set /-. 0gbytevector-s32-ref 10  2g bv-s32-ref 312 4gbytevector-s32-set! 54  6g bv-s32-set 756 8gbytevector-s32-native-ref 98  :gbv-s32-native-ref ;9: gbv-s32-native-set ?=> @gbytevector-u64-ref A@  Bg bv-u64-ref CAB Dgbytevector-u64-set! ED  Fg bv-u64-set GEF Hgbytevector-u64-native-ref IH  Jgbv-u64-native-ref KIJ Lgbytevector-u64-native-set! ML  Ngbv-u64-native-set OMN Pgbytevector-s64-ref QP  Rg bv-s64-ref SQR Tgbytevector-s64-set! UT  Vg bv-s64-set WUV Xgbytevector-s64-native-ref YX  Zgbv-s64-native-ref [YZ \gbytevector-s64-native-set! ]\  ^gbv-s64-native-set _]^ `gbytevector-ieee-single-ref a`  bg bv-f32-ref cab dgbytevector-ieee-single-set! ed  fg bv-f32-set gef hg!bytevector-ieee-single-native-ref ih  jgbv-f32-native-ref kij lg"bytevector-ieee-single-native-set! ml  ngbv-f32-native-set omn pgbytevector-ieee-double-ref qp  rg bv-f64-ref sqr tgbytevector-ieee-double-set! ut  vg bv-f64-set wuv xg!bytevector-ieee-double-native-ref yx  zgbv-f64-native-ref {yz |g"bytevector-ieee-double-native-set! }|  ~gbv-f64-native-set }~ [^aeimquy} #'+/37;?CGKOSW[_cgkosw{R ggensym f:L g make-label gmap g hashq-ref gerror fbad var list element gvars->bind-list gmake-glil-bind g emit-bindings gmake-glil-source greverse gwith-output-to-code g g lambda-src g lambda-meta g lambda-body gmake-glil-program gflatten-lambda-case funhandled record gpush gdrop gmake-glil-void gmake-glil-lexical gset fbad let var allocation g gvals gtail gmake-glil-branch gbr gmake-glil-call g g const-src g const-exp gmake-glil-const g  g sequence-exps g  gapplication-src gapplication-proc gapplication-args gprimitive-ref? ghash-ref gprimitive-ref-name glength ginstruction-pushes f!bad primitive op: too many pushes g new-frame g tail-call g make-const gtail-call/nargs gcall g call/nargs gmake-glil-mv-call gmake-glil-label gmake-glil-mv-bind g lexical-ref? gassq glexical-ref-gensym g lambda-case? glambda-case-kw glambda-case-opt glambda-case-rest glambda-case-req gbox fbad lambda-case arg allocation glambda-case-gensyms glambda-case-alternate f*couldn't find matching case for label call gassq-ref gvalues g variable-set! g variable-set g@call-with-current-continuation g tail-call/cc gmake-application gmake-primitive-ref gcall-with-current-continuation gcall/cc g@call-with-values gcall-with-values g@apply g tail-apply gapply greturn/values* g  gconditional-src gconditional-test gconditional-consequent gconditional-alternate g g br-if-not gbr-if g br-if-null gbr-if-eq gbr-if-not-null g br-if-not-eq gprimitive-ref-src gmodule-variable gthe-root-module gmake-glil-toplevel gref gmake-glil-module g module-name g  glexical-ref-src fbad lexical allocation g  glexical-set-src glexical-set-gensym glexical-set-exp g  gmodule-ref-src gmodule-ref-mod gmodule-ref-name gmodule-ref-public? g  gmodule-set-src gmodule-set-mod gmodule-set-name gmodule-set-public? gmodule-set-exp g gtoplevel-ref-src gtoplevel-ref-name g gtoplevel-set-src gtoplevel-set-name gtoplevel-set-exp g gtoplevel-define-src gtoplevel-define-name gtoplevel-define-exp gdefine fbad lambda free var allocation  g make-closure  g   glambda-case-src  glambda-case-inits  glambda-case-body g list-index f bad kwarg gmax f,lambda-case gensyms don't correspond to args gmake-glil-kw-prelude gmake-glil-opt-prelude gmake-glil-std-prelude gdelq fbad keywords, yo gappend g list-tail gbound? fbad arg allocation gmake-glil-unbind g glet-src g let-names g let-gensyms  glet-vals !glet-body "g #g letrec-src $gletrec-in-order? %g letrec-names &gletrec-gensyms 'g letrec-vals (g letrec-body )g empty-box *fbad letrec var allocation +g ,gfix-src -g fix-names .g fix-gensyms /gfix-vals 0gfix-body 1fbad fix var allocation 2greverse! 3fbad free var allocation 4gfix 5g  6glet-values-src 7glet-values-exp 8glet-values-body 9f$unexpected lambda-case in let-values :fbad let-values var allocation ;g  gdynwind-winder ?gdynwind-unwinder @gwind Agunwind Bgreturn/nvalues Cg Dg dynlet-fluids Eg dynlet-vals Fg dynlet-body Gg dynlet-src Hg wind-fluids Ig unwind-fluids Jg Kg dynref-fluid Lg dynref-src Mg fluid-ref Ng Og dynset-fluid Pg dynset-exp Qg dynset-src Rg fluid-set Sg Tg prompt-src Ug prompt-tag Vg prompt-body Wgprompt-handler Xgmake-glil-prompt Yf unexpected lambda-case in prompt Zf!bad prompt handler arg allocation [g \g abort-src ]g abort-tag ^g abort-args _g abort-tail `gabortC5h]4    56754:>"G4;i5i?@iABiCDiEFiGRHIJK2LGho]6ggkind  gfilenamef!language/tree-il/compile-glil.scm ;  <   CMNOPQRS<Th]+H4455$"K4J54>"G44 54 5 54 54 54 5Y45 "ZCZFgx  ge  gopts   gwarnings   gt   'ganalyses  2 Mgx  i gx  v gx   g allocation   gfilenamef!language/tree-il/compile-glil.scm 5  7  7   7   7  $ 8  * ;  2 ;  5 >  N @ Q @  X @ ) Y A  ] A . a A ; b A ? g A  i @ i @  l B v @  y C  @  D  @  G  G   gnameg compile-glilCR4Ui5VR4WiXVh{]6sgx  gfilenamef!language/tree-il/compile-glil.scm O O ' O /  O    C>"Gh}]6ugfilenamef!language/tree-il/compile-glil.scm       gnameg make-labelCRhp']*44L5L5$D&'$C666gid  kgv  kgv   kgvx  ! _gvy  ! _gvx  9 Ggvy  9 Ggfilenamef!language/tree-il/compile-glil.scm         F K  S  W  _  c  k   k Ch]O6gids  gvars  g allocation   gproc   gfilenamef!language/tree-il/compile-glil.scm     gnamegvars->bind-listCRh ]44556gsrc  gids  gvars   g allocation   gproc   g emit-code   gfilenamef!language/tree-il/compile-glil.scm          gnameg emit-bindingsCRh ]MN$45MNCCgsrc  gx  gfilenamef!language/tree-il/compile-glil.scm               gnameg emit-codeCh(] H4O>"GJ6gproc  "gout  "gfilenamef!language/tree-il/compile-glil.scm      "   " gnamegwith-output-to-codeCRh@]L$44L5>"G"LLLL4LL56g emit-code  <gfilenamef!language/tree-il/compile-glil.scm       / # 8  <   < C hP]#&54545454O56 6gx  Lg self-label  Lg allocation   Lgrtd   Lgsrc  $ Dgmeta  $ Dgbody  $ Dgfilenamef!language/tree-il/compile-glil.scm   /  D  H   L gnamegflatten-lambdaCTRh]L6gtree  gfilenamef!language/tree-il/compile-glil.scm   (   gnameg comp-pushCh]L6gtree  gfilenamef!language/tree-il/compile-glil.scm   (   gnameg comp-dropCWHh*]!4L5$[&@$/4L45>"GL456L6L6L6"gh  ygv ygvx   ogvy   ogvy  / [gfilenamef!language/tree-il/compile-glil.scm    6  : ) C  O ) U B Y ) [  _ ' e i ' o s ' y   y Ch w]4L5LLLO6ogv  gfilenamef!language/tree-il/compile-glil.scm        Ch0]$"$LLLLO6Cgcontext  .gsyms  .gfilenamef!language/tree-il/compile-glil.scm   ,   . gnamegclear-stack-slotsCVWh])44L5L5"`$Q&8$)&L4566666$E&0$%&L456"\"X"T"Pgsym  gv  gvx  % pgvy  % pgvx  = `gvy  = `gvx  gvy  gvx  gvy   gfilenamef!language/tree-il/compile-glil.scm     !   ,   !    L  * R  C V  * X   \  & `   d  & h   l  & p   t  & x   x    *  C  *      CHh])44L5L5"`$Q&8$)&L4566666$E&0$%&L456"\"X"T"Pgsym  gv  gvx  % pgvy  % pgvx  = `gvy  = `gvx  gvy  gvx  gvy   gfilenamef!language/tree-il/compile-glil.scm        (       L  & R  ? V  & X   \  " `   d  " h   l  " p   t  " x   x    &  ?  &      CY<ThH]$5$L456L6L6gloc  Hgvx  >gvy   >gvy   4gfilenamef!language/tree-il/compile-glil.scm      '  & .  C 2  & 4   8  $ >   B  $ H    H C     hh])$V$=$%( 4L5C6666gx  ggvx  _gvy   _gvy   Wgvx  0 Ogvy  0 Ogfilenamef!language/tree-il/compile-glil.scm     ! =  . F  $ K  0 O  ) S  0 W  ) [  0 _  ) c  0 g  )  g C~hx(])44L5L5$[&H$?&,4L45>"GL456CCCC gv  xgv  xgvx  ! vgvy  ! vgvx  9 rgvy  9 rgfilenamef!language/tree-il/compile-glil.scm             E   I   O  6 S   X   d   j  6 n   p    x CI !h])44L5L5"i$X&=$,&LL456L6L6L6L6$F&1$&&LL456"R"N"J"Fgv  gv  gvx  % wgvy  % wgvx  = cgvy  = cgvx  gvy  gvx  gvy   gfilenamef!language/tree-il/compile-glil.scm 5   6   6 &  6   6  M : % S : > W : % Y :  ] ; " c ;  g ; " m ;  q ; " w ;  { ; " ;  6  8 % 8 > 8 % 8  6   C"#$%&'()*hC])44L5L5$X&=$,&LL456L6L6L6L6;gv  }gv  }gvx  ! sgvy  ! sgvx  9 _gvy  9 _gfilenamef!language/tree-il/compile-glil.scm C   D   D &  D   D  I F % O F > S F % U F  Y G " _ G  c G " i G  m G " s G  w G " } G   } C*h]+44L5L5$n&S$B&'4L>"GLL456L6L6L6L6gname  gv  gval   gv   gvx  ! gvy  ! gvx  9 ugvy  9 ugfilenamef!language/tree-il/compile-glil.scm N   O   O (  O   O  E  K ( R  _ R ' e R @ i R ' k R  o S $ u S  y S $  S  S $ S  S $ S   C*hC])44L5L5$X&=$,&LL456L6L6L6L6;gv  }gv  }gvx  ! sgvy  ! sgvx  9 _gvy  9 _gfilenamef!language/tree-il/compile-glil.scm X   Y   Y (  Y   Y  I [ ' O [ @ S [ ' U [  Y \ $ _ \  c \ $ i \  m \ $ s \  w \ $ } \   } C+,-./0TWhy]L456qgloc  gfilenamef!language/tree-il/compile-glil.scm y  z 0 z "  C 1   h(%]J4L5$4L4L5>"G4L5("84LO>"G4L4455>"G44L5L5$X&=$,&LL4 56  6  6  6  64 54L4 5>"G"$&4545454545 4L5 4L4 5>"G 4LLL>"G$4L45>"G"4LLL$L"LL>"G4L45>"G " 6L45645"gx  #gv  #g free-locs  5 |gv  gvx  gvy  gvx  gvy  gPOST  #glcase   grtd  %  gsrc  R greq  R ggensyms  R gbody  R g alternate R glabel f gfilenamef!language/tree-il/compile-glil.scm o  q   p  s   s  # s  , t $ 5 t  5 t  = u  B y  [ |  _ | $ c | 4 d } 4 l | $ q |  } ~  ~ ! ~  ~    9                                    "   %   ]  * f  % f   i  m  x             +        (        '                   #  D  # C2W3hH]$5$L456L6L6gloc  Hgvx  >gvy   >gvy   4gfilenamef!language/tree-il/compile-glil.scm      '  ( .  E 2  ( 4   8  & >   B  & H    H C41h]24L5$4L5"(C4LO>"G44L5L5$W&<$+&L4566666gx  gv  g free-locs   gv  S gvx  b gvy  b gvx  z gvy  z gfilenamef!language/tree-il/compile-glil.scm    !      &   !   !   &   )   D   G  ' S   S    %  >  %    #    #    #    #    C56789:h])44L5L5"i$X&=$,&LL456L6L6L6L6$F&1$&&LL456"R"N"J"Fgv  gv  gvx  % wgvy  % wgvx  = cgvy  = cgvx  gvy  gvx  gvy   gfilenamef!language/tree-il/compile-glil.scm       +      M  * S  C W  * Y   ]  ' c  g  ' m  q  ' w  {  '     *  C  *      C;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZh])44L5L5"i$X&=$,&LL456L6L6L6L6$F&1$&&LL456"R"N"J"Fgv  gv  gvx  % wgvy  % wgvx  = cgvy  = cgvx  gvy  gvx  gvy   gfilenamef!language/tree-il/compile-glil.scm       +      M  * S  C W  * Y   ]  " c   g  " m   q  " w   {  "      *  C  *      C[\]^_`hx3Z]OOOLQLQLLLQ&j$"$"$4L45>"G"$L4  56& L4  56C &4545 $"$"$4L4 5>"G"$L4  56& L4  56C&\45"G (   "  4L >"G   " "&454545  "4 5$944 54 55  $ "44 55 "  $"4 >"G4L4  4 55>"G4 5  $j$"$"$4L45>"G"$L4  56& L4  56C $Q$4L4  5>"G"$L4  56& L4  56C $C  4 56"X&"4L4 ! 5>"G4L >"G4 >"G4 5 $J $L4 " 564# 5 4L >"G L4 $ 56$ $4L4 % 5>"G"=4# 5 4L >"G 4L4 & 5>"G$L4  56& L4  56C$F4L4' 5>"G$L4  56& L4  56C$4(54(5 4L4'  5>"G4L4  5>"G4L4  $"5>"G4L4) 5>"G4L4* 5>"G$L4  56L4)56C4+ 5$"4,4- 5L5$4 >"G"4. 5$4/ 5$"440 5$"$41 5$"4 5442 55$B43LLLO4445 55>"G46L 5 L4   5647 5 "^86494:L4- 555 "="L$4- 5L&&4/L5$"E41L5$"54 5442L554;40L55  $ "  $V4 >"G4"G46LL5 L4   56"A"="9"5"4 5$ "{4 5=&$?4 >"G$L4  56& L4  56C$4 5  $u4L4 ! 5>"G4L >"G4L4 % 5>"G$L4  56& L4  56C4 >"G  4L >"G $L4  56& L4  56C$@4 >"G4L44 55>"GL4  56$C4 >"GL4 5  $ 4  5" 4 > 5 6C"4 5?&4 5 $  4L >"G   4L >"G 4L4 @ 5>"G$"$"$4L45>"G"$L4  56& L4  56C"""4 5A&u4 5 $d$,  4L >"G L4 B 56$X4C4DE5 5 4L >"G $L4  56& L4  56C$c  4L >"G 4L4 F 5>"G$L4  56& L4  56C$W4C4DE5 5 4L >"G $L4  56& L4  56CC""4 5G&4 5 $ $X4C4DH5 5 4L >"G $L4  56& L4  56C4(54(5     &"4L4 ! 5>"G4L>"G4L4 ! 5>"G4L >"G4L4'  5>"G$4L4 " 5>"G"44L4 % 5>"G4L4   5>"G4L4) 5>"G$L4 $ 564L4 & 5>"G4L4) 5>"G&4L4  5>"G"$L4  56& L4  56C"O"K4 5I&4 5 $n    "$?4L >"G4 >"GL4 J4 556$4L4 ! 5>"G4L >"G4 >"G4L4 K4 55>"G$L4  56& L4  56C$[4C4DK5  5 4L >"G $L4  56& L4  56C$Z4C4DK5  5 4L >"G $L4  56& L4  56CC4 5$4 5=&&"${$?4 >"G$L4  56& L4  56C$(4 >"GL4 L4 556C""""""9M&z4N54O54P54Q5   4(54(5   &i4 54 5R& 4545"54L >"G4L4 S 5>"G""T& $&|454545R&45"54L>"G4L4 U 5>".G"'"UV&I $=4L>"G4L4 W 5>"G""v"rX&i $\4L>"G4L>"G4L4 Y 5>"hG"a":"64L>"G4L4 U 5>"(G"!4L>"G4L4 U 5>"G""""UV&I $=4L>"G4L4 Z 5>"G"""X&m $\4L>"G4L>"G4L4 [ 5>"G"":""2"14L >"G4L4 S 5>"G"14L >"G4L4 S 5>"G4L >"G$"$4L4   5>"G"4L4) 5>"G4L >"G$"$ L4) 56CR&4\545 4]^[ 54]_ 5&o$"$"$4L4`a 5>"G"$L4  56& L4  56C4]_ 5$r$"$"$"4L4bac 5>"G"$L4  56& L4  56C$"$"$(4L4ba4d^[5 5>"G"$L4  56& L4  56Ce&4f54-5 $"$"$4646L 5L5  $d     $3   4L4g  a5>"G "4h >"G  "4h >"G "$L4  56& L4  56Ci&14j54k54l5  4L >"G4646L 5L5  $d     $3  4L4g m5>"G"4h >"G  "4h >"G $"$"$4L45>"G"$L4  56& L4  56Cn&4o54p54q54r5   4L4ba   5>"G$4L4  5>"G"$L4  56& L4  56Cs&4t54u54v54w54x5    4L >"G4L4bm   5>"G$"$"$4L45>"G"$L4  56& L4  56Cy&~4z54{5 4L4`a 5>"G$4L4  5>"G"$L4  56& L4  56C|&4}54~545  4L >"G4L4`m 5>"G$"$"$4L45>"G"$L4  56& L4  56C&454545  4L >"G4L4` 5>"G$"$"$4L45>"G"$L4  56& L4  56C&46L5$"$"$c4L4L5>"G(":4LO>"G4L4 455>"G"$L4  56& L4  56C&454254054154/54545547545     4 5 $ 4 5"  $ " $ "4O $ "54 $ " 4455?46L5$ 4(5"45$4 5 $ " "$"&4     > "G4L $45"/ $" $45" 45>"G4LLLO>"G("b4"(44 $  "5"%$$$~  $Z  "!"(74!5$4!5"p"`45"!"45" 45"r45"b45"O $ "444 $ "544 554 $ " 5"LLL>"G"(""4646L5L5$P&$  $4(5!4L4g5>"G4L4 U!5>"G"4L">"G"4L4gm5>"G4L4)!5>"G" !&4>"G"" &4>"G""&4>"zG"s"o&4>"NG"G"C$$">"H"D 45"46L54L4)5>"G4L>"G("4L45>"G$(4L4)5>"GLLLLL6C&4545454545    4 >"G4  LLL>"G4LLLO44 5>"G4L >"G4 >"GL456&454545454545     4LLLO >"G4  LLL>"G $+4LLLLO   >"G":4 >"G4LLLO44 5>"G4L >"G4 >"GL456&{4545454545    &"$"4(5 4 LLLLO   >"G"K( 45"I4,L5$""  "44545LLL>"G4LLLO  >"G4L >"G $4L4) 5>"G"4 >"GL456&454545     &a42 540 54/ 541 545 54 547 5   $" $"$4>"G"4(54L >"G4L4 5>"G4L4)5>"G4L4*44 $ "5LL5$"5>"G4LLLO445>"G4L>"G4>"GL456 6&45454545   4L >"G4L >"G4C 5 4L >"G 4L4  5>"G$4(5 4L  >"G4L4  5>"G4C 5 4L >"G 4L4  5>"G4L4) 5>"G4L4  5>"G4C 5 4L >"G L4  56$M4L >"G4L4  5>"G4C 5  "h$4(5 4L  >"G4L4 5>"G4L4) 5>"G4L4  5>"G4C 5 4L >"G L4  56$j4L >"G4L4  5>"G4C 5 4L >"G $L4  56CC&454545  4>"G4>"G4 >"G4L4 455>"G$4(5 4L  >"G4L4  5>"G4L4  5>"G4L4) 5>"G4L4  5>"GL4  56$#4L >"GL4  56$t4(5 4L  >"G4L4 5>"G4L4) 5>"G4L4  5>"GL4  56$E4L >"G4L4  5>"G$L4  56CC&454>"G$4L>"G"X$"$"$34L>"G4L4  5>"G"$L4  56& L4  56C&4545 4>"G4L>"G4L >"G4L4  5>"G$"$"$4L45>"G"$L4  56& L4  56C&45454545   4(54(546L5  4L >"G4L4 5>"G$4(54L >"G4L4  5>"G4L4  5>"G4L4)5>"G4L4  5>"G4L4  5>"G"T$Y4L >"G4L4  5>"G4L4  $" 5>"G"$4(54L >"G4L4 5>"G4L4)5>"G4L4  5>"G4L4  5>"G"b$Y4L >"G4L4  5>"G4L4  $" 5>"G"4L4) 5>"G &%42 540 54/ 541 545 54 547 5$" $"$4>"G"4L4*44$ "5LL5$"5>"G4LLLO445>"G4L>"G4L45>"G"4 >"G$"&"$ L4) 56C&45454545   4L >"G4 >"G4L >"G4L4 4 55>"G$ L4  56$.4L4* 5>"G$L4  56C$ L4* 56$L4  56C6Zgx  3ugcontext  3ugRA   3ugMVRA   3ug comp-push   3ug comp-drop   3ugclear-stack-slots   3ugrtd  5 3ugsrc  0gexp 0gexps  ? gexps E gtree O egtree h gsrc   gproc  gargs  gt  gt  dgkey C *glen  gtree  gtree  /gMV  gPOST   glcase  iglabel C Tgt  glabel ? Pgkey  gtree o glen & Hgtree o gtree gtree _ zgtree gtree gtree o gtree gMV L gPOST L gproducer L gconsumer  L gproc  vgargs  vgtree  0gtree x gsrc   gtest  g consequent  g alternate  gL1  gL2  grtd   fgproc   .gargs   .grtd   (gname   glen   gapp  J grtd  O  gproc  g gargs  g glen  r grtd  w gname   gtree   gtree  0 Kgtree  O jgtree  / Jgtree   gtree   gsrc   gname  gsrc   ggensym  gv  pgvx  Sgvy  Sgvx  3gvy   3gsrc   ggensym  gexp  gv  ngvx  Qgvy  Qgvx   1gvy   1gsrc   tgmod  tgname  tgpublic?  tgsrc   Hgmod  Hgname  Hgpublic?  Hgexp  Hgsrc  ^ gname ^ gsrc   gname  gexp  gsrc   Jgname  Jgexp  Jg free-locs  \ gsrc  [ "greq [ "gopt [ "grest [ "gkw [ "ginits [ "ggensyms  [ "g alternate  [ "gbody  [ "gnreq  t "gnopt   "grest-idx   "gallow-other-keys?   "g kw-indices   "gnargs   "gnlocs   "galternate-label   "gb   Cgt  C xgkw   gnames   ggensyms   gvx  2 gvy  2 gvy  @ gvx  S gvy S gvx ! d gvy " d ginits  c "-gn  c "-ggensyms  c "-gv  "gvx  !gvy  !gvx  !gvy !gL ! !]gtree " !glabel  "N "kgsrc  " #gnames " #ggensyms " #gvals " #gbody " #gsrc  # $g in-order? # $gnames # $ggensyms # $gvals # $gbody # $gsrc  $ &3gnames $ &3ggensyms $ &3gvals $ &3gbody $ &3gnew-RA % &3gout  %3 %~ggensyms  %3 %~gnames  %3 %~gbinds  % %gsrc  &P 'gexp &P 'gbody &P 'grtd &Y 'greq & 'gopt & 'gkw  & 'grest  & 'ggensyms  & 'gbody  & 'g alternate  & 'gMV  & 'gsrc  ' *gbody ' *gwinder ' *gunwinder ' *gtree (. (IgMV (q )Dgtree ( (gtree ) )7gtree ) )gMV ) *<gtree * *.gtree *~ *gfluids  * ,gvals * ,gbody * ,gMV +; +gMV + ,mgfluid  , -gfluid  - .bgexp - .bgsrc  . 2fgtag . 2fgbody . 2fghandler . 2fgH . 2fgPOST . 2fg escape-only?  . 2fgMV  . /~gMV  / 0pgrtd  0 27greq  1, 2gopt  1, 2gkw  1, 2grest  1, 2ggensyms  1, 2gbody  1, 2g alternate  1, 2gsrc  2 3mgtag 2 3mgargs 2 3mgtail 2 3mgfilenamef!language/tree-il/compile-glil.scm  5  H   e  i   r         ,                      ! %  ) , ,  .  8  E   H   L  O   O  e  h   h   k  q ( x                       "   <               +             "   '  0 /   4   =   C   V   s  % w  3   %                 ,                )   9   )                    ,           "   *   2   6  ;  @   D  , G   L  U  [ ( b  k                 (   8   (      &       (     *   :   *                 (   8   (      &       ( $  0   5  * 9  : <  * A   O  S  W  [  ]  a  e i  m , p  r  }  ~     $                    ,            3         &     !   ! %  ! 5  ! %  !       " '  " + '  ,  5  9  D  M $  Q $ % \ $  j %  n  r & + v  x  |                                                     #   +   #        !   $  ,   1  :  ' C  " C  J  N   R  T  U   a  e   i  i  j   m   r  / z   |                                                                        (   -  6  # ?   ?  F  J   N  P  d   e   o   t E ) | E C  E  J  K                  ,      J  M   M  Q   Q   Q .  Q   Q     (    S   S   S .  S  $ S  2  6  :  >  @  D  H L  P , S  U  X X  _ X # d X  o Y  o Y  r  x (                   ,      J  \  ]  ]   ] +  ]   ]    ^       J  ` a & & a  , b ! 0 b  1 c ! 5 c 1 8 c ! = d ! A d 1 E d ! J a Q   Y  - ]  ^   g   k  n   o  r  x (       (      (        +               "  & , )  +  5   :   B  - F  G   O   S  \  _   _  b  h ( o      +         )     " - "        ,        (          +    "  0  4  8  <  >  B  F J  N , Q  S  ^  _  d   i  ) k   o  o  r  x (          ,     g  g - f h  h  f p t t # t : t # t s " -  "       "  $  (  , 0  4 , 7  9  < y  A y * H z  K z 2 L y X { $ \ {  a |  f | ! j | 1 m | ! r |  {  (  ~  ~  ~ - ~  ~   (             '  7  '        '  7   '       $  ( (  -  6  :  E  V   [  ' _  7 b  ' d   e   j  ' n  7 q  ' v        )      *  :  *          ,        -                  *   & ( -  6 -  N .  R . / S . ? Z . ; \ .  ^ .  g * h 0  m 0  q 0 / t 0  y 0     (    2   3   3   3 /  3 :  3 6  3   3                  ,      *  7   7 '  7 >  7 '  8 #  7   6   "  - % " 6  :  >  B  D  H  L P  T , W  Y  d * e A  j A ' o A > q A ' v B # x A  x @  {   (                   ,              -   G     $     >   1   ,    #  $            $  ( ,  0 , 3  5  @ # A &  Y '  ] ' / ^ ' ? f '  h '     0   0 #  0   2  4  6   6     (        ` $ "  '  3 7  ; B " ? 7  C B ( G B  J C  J C  O D  l F # r F  w G     (        V 0      I   P .  I   P 6  P   Q *  Q     (        R 0      I   K . $ I  ) K 4 - K  0 L * 0 L  3  9 ( @  N M * O M  R  X ( _  k  p  t N 0 x  }     (        Y .        (        \ )      7   > " $ 7  ( > * , >  / ?  / ?  2  8 ( ?  K  P  T @ $ X  ]  q 7  u 9 " y 7  ~ 9 (  9   :   :     (    ;   ;     (        < $        (        c     3  9 ( @  I  N  R f  V  [  g   k  k -  k  k   k      l               o  o -  o  o   o        t  ) u  5 s  > v [ x ` x  d x / h x  m x                 ,      z  s   {  }  }   } -  } 2  }   }                 ,   !  ,  I  N   R   S  ! _   d  v  z  ~            ,                            =    %  8  <   E  \   e  z  ~              ,          (                      :    #  6  :   C  Z   c  w                          ,               (       ,   -   1   5  / 8   =   O  S  W  [  ]  a  e i  m , p  r  |     (           (                 #  '  +  /  1  5  9 =  A , D  F  P  c   h   l  * p   u              /                       ,          (           *       +   H  L   U  g  k  o  s  u  y  }    ,          (           *                 %  )  -  1  3  7  ; ?  C , F  H  R  S   \   \   g                     0   0                      ,       n   t   |   }           "      !   (            &   /              -        $                        .         &   -   3  ' :   ;  C  P  T   m  y                                    % !   (   o   {        0                                                "  +    &      !   &   : '   (  1  3 7  0 >  3 @  J   W  c  i  r   u  |  6 ~      *          =    !  ! ! 2 ! !  "  "   ! ( !  ! #  ! # ! # = !" # !' #  !0  !4  !?  !J %  !M % " !P % ) !Z %  !`  !e &  !i &  !l & / !s &  !  ! &  ! &  ! & / ! &  !  ! &  ! &  ! & / ! &  !  ! &  ! &  ! & / ! &  "  "   "  "   "   "%  "-  "2  2 "D  "E (  "N (  "N ( "Q  "U  "`  "l  " * " + " +  " + " , "  "  "  " /  "  # 3  # 4  #9 5  #K <  #V 5  #_  #w >  # ?  # ?  #  # C  # J  $ K  $ N $A W $U X $g ]  $r X ${  $ _  $ `  $ `  $  $ m * $ m  $ m  $ m  $ m 8 % m  % n %3   %9   %:  / %E   %J  % %N   %R   %W  ' %Z  5 %d   %g  * %j  8 %k  # %q  # %t  1 %~   %~   %  $ %   %  %  %   %  . %  %  %  %  %  %  &  &  &-   &3  &;  &Y   &   &  &   &   &   &   &  & " & - & " &  &   '  '  '  '  '$  ')   ',   '/   '9  ) '>  2 'C  > 'E   'M   'S   '[   '`  'i  '{   '  '  '  '   '  '   '  '  ' ( (  ( ( (  (%   (,  / (.   (.   (1  (7 ( (>  (J   (N   (R  % (V   ([   (l   (m   (q  (t " (z - ( " (  (   (  * (   (  (   (  6 (   (  (  ( ( (  (  (   (  * (   (  (  (  (  (  (   )  * )   )  )   )  6 )   )  )  )% ( ),  );   )?  * )B   )D  )M   )N  )T ( )[  )d  )h   )l  ( )o   )t  )}   )  4 )   )  ) ( )  )   )   )  ) " ) - ) " )  )   )  )  )  )  )  )   )  * )   *  *   *  6 *   *  *  * ( *#  *2  *6   *:  *<  *E   *F  *L ( *S  *\  *`   *d  ( *g   *l  *u   *|  4 *~   *~  *  * ( *  *  *  *   *  *  *  *   *   +   +   +  % +  2 +   +%   +6   +7   +;  +> " +D - +L " +U  +Y   +]  * +`   +e  +n  +r   +v  * +y   +~  +  +  +  + ! + !  + ! * + !  + ! + "  + " * + "  + " +   +  + ( +  + &  + & ( + &  + & +   + )  + ) , " , - , " , , , ,  ,& , ,/  ,3  ,>  ,G 0 ,K 0  ,O 0 * ,R 0  ,W 0 ,c  ,g 1  ,k  ,m  ,v   ,w  ,} ( ,  , 6 , 6  , 6 ( , 6  , 6 , 8 ,  , 9  ,  ,  ,  , <  ,  , ( ,  - <  -)  -/ ( -6  -? A -C A  -G A ( -J A  -O A -a  -e  -i  -m  -o  -s  -w -{  - , -  -  -  -  - ( -  - ( -  - G  - G  - G % - G  - G  . H  . J ." J  .+ J .=  .A  .E  .I  .K  .O  .S .W  .[ , .^  .`  .j  . U  . V  . W  . U  .  . ( .  . Z . Z  . Z . ^ . `  . ` . " . - . " / c  / c  / c , / c  / c  / d  / d  /! d , /$ d  /) d  /2  /6  /A  /J g  /N g  /R g , /U g  /Z g  /c h  /g h  /k h , /n h  /s h  / ^ /  / ( /  / n / n  / n * / n  / n /  /  / o  / o /  /  / ^ / r  / r / " / - 0 " 0 u  0 u  0 u  0#  0'  02  0; x  0? x  0C x , 0F x  0K x  0T  0X  0\ y  0`  0e  0} ^ 0~  0 ( 0  0 ~ 0 ~  0 ~ * 0 ~  0 ~ 0  0  0   0  0  0  0  0  0  0  1@   1V  1W   1[   1b   1o  1t   1w   1z   1  ) 1  2 1  > 1   1   1   1   1  1  1   1  1  1  1   1  2!  2=  2F  # 2J   2K   2S  7 2T  * 2X  2\  2d  2n  2  2 ( 2  2   2  2 ( 2  2   2   2  & 2  - 2   2   2   2   3  ( 3   3  3   3  3   3!  3/  33  37  ! 3;  3=  3H   3L   3T  3]   3a  3e   3i  3k  3q  3u ?  3u gnamegcompCh0&]OQ6glcase  +g allocation  +gself   +g self-label   +g fix-labels   +g emit-code   +gcomp   +gfilenamef!language/tree-il/compile-glil.scm   ' +   + gnamegflatten-lambda-caseCRCgm  ,gfilenamef!language/tree-il/compile-glil.scm   - ,  6 , 8 /  _ .  5  M   M  N v P { N !  ǒ  ǔ C62.0/ccache/language/tree-il/primitives.go000064400000133444151463412640014136 0ustar00GOOF----LE-8-2.0 ]l4h] gguile  gdefine-module*   glanguage gtree-il g primitives  gfilenameS flanguage/tree-il/primitives.scm gimportsS gsystem gbase gpmatch    gice-9 gmatch   grnrs g bytevectors   gsyntax      gsrfi gsrfi-4 !  "! #gsrfi-16 $# %$ &"% 'gexportsS (gresolve-primitives! )gadd-interesting-primitive! *gexpand-primitives! +geffect-free-primitive? ,g effect+exception-free-primitive? -gconstructor-primitive? .gaccessor-primitive? /gsingly-valued-primitive? 0gbailout-primitive? 1gnegate-primitive 2()*+,-./01  3gset-current-module 43 53 6gapply 7g@apply 8gcall-with-values 9g@call-with-values :gcall-with-current-continuation ;g@call-with-current-continuation g @dynamic-wind ?gvalues @geq? Ageqv? Bgequal? Cgmemq Dgmemv Eg= Fg< Gg> Hg<= Ig>= Jgzero? Kg positive? Lg negative? Mg+ Ng* Og- Pg/ Qg1- Rg1+ Sgquotient Tg remainder Ugmodulo Vgash Wglogand Xglogior Yglogxor Zglognot [gnot \gpair? ]gnull? ^glist? _gsymbol? `gvector? agstring? bgstruct? cgnumber? dgchar? egcomplex? fgreal? gg rational? hginf? ignan? jginteger? kgexact? lginexact? mgeven? ngodd? ogchar=? rgchar>? sg integer->char tg char->integer ugnumber->string vgstring->number wgacons xgcons ygcons* zglist {gvector |gcar }gcdr ~gset-car! gset-cdr! gcaar gcadr gcdar gcddr gcaaar gcaadr gcadar gcaddr gcdaar gcdadr gcddar gcdddr gcaaaar gcaaadr gcaadar gcaaddr gcadaar gcadadr gcaddar gcadddr gcdaaar gcdaadr gcdadar gcdaddr gcddaar gcddadr gcdddar gcddddr g vector-ref g vector-set! g variable-ref g variable-set! gvariable-bound? g fluid-ref g fluid-set! g@prompt gcall-with-prompt g@abort gabort-to-prompt gmake-prompt-tag gthrow gerror g scm-error g string-length g string-ref g string-set! g struct-vtable g make-struct g struct-ref g struct-set! gbytevector-u8-ref gbytevector-u8-set! gbytevector-s8-ref gbytevector-s8-set! g u8vector-ref g u8vector-set! g s8vector-ref g s8vector-set! gbytevector-u16-ref gbytevector-u16-set! gbytevector-u16-native-ref gbytevector-u16-native-set! gbytevector-s16-ref gbytevector-s16-set! gbytevector-s16-native-ref gbytevector-s16-native-set! g u16vector-ref gu16vector-set! g s16vector-ref gs16vector-set! gbytevector-u32-ref gbytevector-u32-set! gbytevector-u32-native-ref gbytevector-u32-native-set! gbytevector-s32-ref gbytevector-s32-set! gbytevector-s32-native-ref gbytevector-s32-native-set! g u32vector-ref gu32vector-set! g s32vector-ref gs32vector-set! gbytevector-u64-ref gbytevector-u64-set! gbytevector-u64-native-ref gbytevector-u64-native-set! gbytevector-s64-ref gbytevector-s64-set! gbytevector-s64-native-ref gbytevector-s64-native-set! g u64vector-ref gu64vector-set! g s64vector-ref gs64vector-set! gbytevector-ieee-single-ref gbytevector-ieee-single-set! g!bytevector-ieee-single-native-ref g"bytevector-ieee-single-native-set! gbytevector-ieee-double-ref gbytevector-ieee-double-set! g!bytevector-ieee-double-native-ref g"bytevector-ieee-double-native-set! g f32vector-ref gf32vector-set! g f64vector-ref gf64vector-set! 6789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ g*interesting-primitive-names* g hashq-set! g*interesting-primitive-vars* gmodule-variable gcurrent-module funbound interesting primitive gmake-hash-table gfor-each gmake-struct/no-tail wxyz{ g*primitive-constructors* |}CD g*primitive-accessors* gappend   g*effect-free-primitives* ?@AB[\]^_`bacdwxyz{ g"*effect+exception-free-primitives* 6789:;<=>? g*multiply-valued-primitives*  g*bailout-primitives* mn kl oq rp  g*negatable-primitives* g*effect-free-primitive-table*  g(*effect+exceptions-free-primitive-table*  g!*multiply-valued-primitive-table*  g*bailout-primitive-table*  g*negatable-primitive-table*  g hashq-ref g post-order! g gtoplevel-ref-src gtoplevel-ref-name gand=> gmake-primitive-ref g  gmodule-ref-src gmodule-ref-mod gmodule-ref-name gmodule-ref-public? gresolve-module gmodule-public-interface gidentity g*primitive-expand-table* g pre-order! g  gapplication-src  gapplication-proc !gapplication-args "gprimitive-ref? #gprimitive-ref-name $gmake-syntax-transformer %$ &$ 'gdefine-primitive-expander (gmacro )g $sc-dispatch *) +) ,g_ -gany .,- /g syntax->datum 0/ 1/ 2g datum->syntax 32 42 5greverse 6gquote 7g make-const 8gsrc 9gmake-application :gself-evaluating? ;f what what g match-lambda* ?, @gsyntax-violation A@ B@ Cf-source expression failed to match any pattern Dglength ED FD Gglast HG I5 J5 Kgconst? Lg const-exp Mggensym Nfb Ogmake-lexical-ref Pgb Qgmake-let RP Sgmake-conditional Tgchained-comparison-expander UFGHIE V Wgmost-negative-fixnum Xgmost-positive-fixnum Ygmaybe-simplify-to-eq Zfpre- [fthunk- \fpost- ]gpre ^gthunk _gpost `]^_ ag make-dynwind b]_ cg make-dynref dg make-dynset eg make-prompt fgmake-lambda-case gg tree-il-src hgargs ighandler ji kg make-abortC5h`b]4    &'2545>"GRh0] 4455$" 456gname  0gt  ,gfilenameflanguage/tree-il/primitives.scm t  v  v #  v   v  ! w  % w  ) w  0 u   0 gnamegadd-interesting-primitive!C)R4i5R4i)ii>"GRR?@ABEFGHIJKLVWXYZMNOPQRSTU[\]^_`bacdefghijklmnopqrstuv4ii5RRRRR4i5R4i5 R4i5 R4i5 R4i5 R4ihl]6dgx  gfilenameflanguage/tree-il/primitives.scm   Ci>"G4i hl]6dgx  gfilenameflanguage/tree-il/primitives.scm   Ci>"G4i hl]6dgx  gfilenameflanguage/tree-il/primitives.scm   Ci>"G4i hl]6dgx  gfilenameflanguage/tree-il/primitives.scm   Ci>"G4i h(]4>"G6gx  &gfilenameflanguage/tree-il/primitives.scm  4 <  ! 4 $ < &   & Ci>"GCh]6gprim  gfilenameflanguage/tree-il/primitives.scm   gnamegconstructor-primitive?C-RCh]6gprim  gfilenameflanguage/tree-il/primitives.scm   gnamegaccessor-primitive?C.R h]6gprim  gfilenameflanguage/tree-il/primitives.scm   gnamegeffect-free-primitive?C+R  h]6gprim  gfilenameflanguage/tree-il/primitives.scm   gnameg effect+exception-free-primitive?C,R  h]45Cgprim  gfilenameflanguage/tree-il/primitives.scm     gnamegsingly-valued-primitive?C/R  h]6gprim  gfilenameflanguage/tree-il/primitives.scm   gnamegbailout-primitive?C0R  h]6gprim  gfilenameflanguage/tree-il/primitives.scm   gnamegnegate-primitiveC1R ho]L6ggname  gfilenameflanguage/tree-il/primitives.scm    C ho]L6ggname  gfilenameflanguage/tree-il/primitives.scm      Ch ]44L55LO6gm  gfilenameflanguage/tree-il/primitives.scm    #       ChK])&-454544L55O6 &K4 54 54 54 5445$"5O6CCgx  grtd  gsrc   <gname   <gsrc  ` gmod  ` gname  ` gpublic?  ` gfilenameflanguage/tree-il/primitives.scm    $  )  3  <  D  k  n  z     Ch]O6gx  gmod  gfilenameflanguage/tree-il/primitives.scm     gnamegresolve-primitives!C(R4i5R !" # h` ])&H45454545$ 4455$@CCCgx  Ygrtd  Ygsrc  $ Wgproc  $ Wgargs  $ Wgexpand  C Ugfilenameflanguage/tree-il/primitives.scm      +  5   6   ;  & C   C  K   S    Y Ch]6gx  gfilenameflanguage/tree-il/primitives.scm     gnamegexpand-primitives!C*R4&'(+.14z5y6789:; h]"( 45C$4455C$F&"  4L5"$"l4 5$"H  6"4gargs  gin  gout   gfilenameflanguage/tree-il/primitives.scm             !           $  $ /   6   7  ;   >   A  D  * H   J   O  . Q   X !  c ! L g !  k " / p " < s " / v !  y    $  $   &  & &  & ' '  '   (  ( ( 2 ( (  ( *  * *      6  gnameg inline-argsC<986c7= h0]A$&$$q$C(4L54L5C4L5C4L5C4L5C4L5C4L5C$C45$ C$ 6Cgexp  *gvx  gvy   gvx  ( gvy  ( gvx  9 gvy  9 gvx  J gvy  J  gfilenameflanguage/tree-il/primitives.scm +   -  ,  .  V 0 Y 1  ` 2  i 0 l 4 v 4 : y 4 } 5  5 * 5  4 4 : 4 5  5 * 5  4 4 : 4 5  5 * 5  4 4 : 4 5  5 * 5  4 4 : 4 5  5 * 5  4 6   ,   9   ,   :   ,  $ >  ( > 0  * gnameg consequentC6>5?8 h-13OOQQ"5(45", 45""Cgsym |gclauses |g inline-args   |g consequent   |gin  7 lgout  7 lgfilenameflanguage/tree-il/primitives.scm  ( ?  7 B  = C  > D  B D ' E D ! G D  N E  Q F " T F , U F " V G % [ G 1 ^ G % a F " d F  l E  l B  o B - w B  x ?  | Cht] 45L4?6lgargs  gv gfilenameflanguage/tree-il/primitives.scm      CBCh(r] 45$ O@6jgy  'gtmp 'gfilenameflanguage/tree-il/primitives.scm    ' C5'R4iiJ9E7hPZ-13$=$*(!454 56CCCRgexpr Ogw  Mgx   Mgw  + I O C>"G4iiK9G7hPZ-13$=$*(!454 56CCCRgexpr Ogw  Mgx   Mgw  + I O C>"G4iiL9F7hPZ-13$=$*(!454 56CCCRgexpr Ogw  Mgx   Mgw  + I O C>"G4iiMFHJ9MKLRQ7? hpK-13""$$$45$ 45"$ "$C"x $L4 5  $: (1  45445 5 6CC $         "C   "yCCC$$$("456"T45$E 45&4 56 45&4 56""45$E 45&4 56 45&4 56"\"X" """$L(   6$$(4 56"""Cgexpr kgw  gx   gw  / gx  / gw  @ gx  @ gtail-len  K glen  ` gls | gn | gp-ls | gz gw gw gw  gx   gw  '  gx  '  gw  < gw % .gw 4 ggx  4 ggw  I _gfilenameflanguage/tree-il/primitives.scm ] \  i \ * s \   ^ .  ^   X   X "  X  Z &  Z  k C>"G4iiNFHJ9N7? h`a-13"$$$45$ 45"$ "$C"x $L4 5  $: (1  45445 5 6CC $         "C   "yCCC$L(  6$$(456"""Ygexpr \gw  gx   gw  + gx  + gw  < gx  < gtail-len  G glen  \ gls x gn x gp-ls x gz gw gw gw  gw % Xgx  % Xgw  : P \ C>"G4iiOFHJ9OKLQ7 h-13""$$$45$ 45"$ "$C"x $L4 5  $: (1  45445 5 6CC $         "C   "yCCC$$r$](R"45645$$ 45&4 56""""~"z"v$A$,(!454  56"."*"&gexpr gw  gx   gw  / gx  / gw  @ gx  @ gtail-len  K glen  ` gls | gn | gp-ls | gz gw gw gw  gx   gw  ' gx  ' gw  < gw  gx   gw   gfilenameflanguage/tree-il/primitives.scm Y j  e j " o j   C>"G4iiPFHJ9P7hXQ-13"$$$45$ 45"$ "$C"x $L4 5  $: (1  45445 5 6CC $         "C   "yCCC$A$,(!454 56"""Igexpr Qgw  gx   gw  + gx  + gw  < gx  < gtail-len  G glen  \ gls x gn x gp-ls x gz gw gw gw  Mgx   Mgw  ' E Q C>"G4iiXFHJ9X7h-13"W"$$$45$ 45"$ "$C"x $L4 5  $: (1  45445 5 6CC $         "C   "yCCC$P$;$&(456""""$T(  6$,(!454 56"R"N"Jgexpr gw  gx   gw  / gx  / gw  @ gx  @ gtail-len  K glen  ` gls | gn | gp-ls | gz gw gw gw  `gx   `gw  ' \gx  ' \gw  < Tgw u ~gw  gx   gw     C>"G4iiWFHJ9W7h-13"W"$$$45$ 45"$ "$C"x $L4 5  $: (1  45445 5 6CC $         "C   "yCCC$P$;$&(456""""$V(  6$-("454 56"P"L"Hgexpr gw  gx   gw  / gx  / gw  @ gx  @ gtail-len  K glen  ` gls | gn | gp-ls | gz gw gw gw  `gx   `gw  ' \gx  ' \gw  < Tgw u gw  gx   gw     C>"G4ii9|h`Z-13$H$5(,4544556CCCRgexpr Zgw  Xgx   Xgw  + T Z C>"G4ii9|}h`Z-13$H$5(,4544556CCCRgexpr Zgw  Xgx   Xgw  + T Z C>"G4ii9}|h`Z-13$H$5(,4544556CCCRgexpr Zgw  Xgx   Xgw  + T Z C>"G4ii9}h`Z-13$H$5(,4544556CCCRgexpr Zgw  Xgx   Xgw  + T Z C>"G4ii9|hpZ-13$[$H(?45445445556CCCRgexpr mgw  kgx   kgw  + g m C>"G4ii9|}hpZ-13$[$H(?45445445556CCCRgexpr mgw  kgx   kgw  + g m C>"G4ii9|}hpZ-13$[$H(?45445445556CCCRgexpr mgw  kgx   kgw  + g m C>"G4ii9|}hpZ-13$[$H(?45445445556CCCRgexpr mgw  kgx   kgw  + g m C>"G4ii9}|hpZ-13$[$H(?45445445556CCCRgexpr mgw  kgx   kgw  + g m C>"G4ii9}|hpZ-13$[$H(?45445445556CCCRgexpr mgw  kgx   kgw  + g m C>"G4ii9}|hpZ-13$[$H(?45445445556CCCRgexpr mgw  kgx   kgw  + g m C>"G4ii9}hpZ-13$[$H(?45445445556CCCRgexpr mgw  kgx   kgw  + g m C>"G4ii9|h\-13$n$[(R454454454455556CCCTgexpr gw  ~gx   ~gw  + z C>"G4ii9|}h\-13$n$[(R454454454455556CCCTgexpr gw  ~gx   ~gw  + z C>"G4ii9|}h\-13$n$[(R454454454455556CCCTgexpr gw  ~gx   ~gw  + z C>"G4ii9|}h\-13$n$[(R454454454455556CCCTgexpr gw  ~gx   ~gw  + z C>"G4ii9|}h\-13$n$[(R454454454455556CCCTgexpr gw  ~gx   ~gw  + z C>"G4ii9|}h\-13$n$[(R454454454455556CCCTgexpr gw  ~gx   ~gw  + z C>"G4ii9|}h\-13$n$[(R454454454455556CCCTgexpr gw  ~gx   ~gw  + z C>"G4ii9|}h\-13$n$[(R454454454455556CCCTgexpr gw  ~gx   ~gw  + z C>"G4ii9}|h\-13$n$[(R454454454455556CCCTgexpr gw  ~gx   ~gw  + z C>"G4ii9}|h\-13$n$[(R454454454455556CCCTgexpr gw  ~gx   ~gw  + z C>"G4ii9}|h\-13$n$[(R454454454455556CCCTgexpr gw  ~gx   ~gw  + z C>"G4ii9}|h\-13$n$[(R454454454455556CCCTgexpr gw  ~gx   ~gw  + z C>"G4ii9}|h\-13$n$[(R454454454455556CCCTgexpr gw  ~gx   ~gw  + z C>"G4ii9}|h\-13$n$[(R454454454455556CCCTgexpr gw  ~gx   ~gw  + z C>"G4ii9}|h\-13$n$[(R454454454455556CCCTgexpr gw  ~gx   ~gw  + z C>"G4ii9}h\-13$n$[(R454454454455556CCCTgexpr gw  ~gx   ~gw  + z C>"G4iiy9xy?h-13""b$Y$F$34544556CCC$P$;$&(456"O"K"G"C$9$$(456"""gexpr gw  qgx   qgw  / ogx  / ogw  @ mgx  @ mgw gx  gw  gx  gw  gw gx  gw    C>"G4iiw9xh-13$r$_$L$9(04544556CCCCCgexpr gw  gx   gw  ' gx  ' gw  8 ~gx  8 ~gw  M z C>"G4ii697h`-13$G$4$!456CCCgexpr Ygw  Wgx   Wgw  ' Ugx  ' Ugw  8 Sgx  8 S Y C>"G4ii899h`x-13$J$7$$(456CCCCpgexpr \gw  Zgx   Zgw  ' Xgx  ' Xgw  < T \ C>"G4ii:9;hHZ-13$5$"(456CCCRgexpr Ggw  Egx   Egw  + A G C>"G4ii<9;hHZ-13$5$"(456CCCRgexpr Ggw  Egx   Egw  + A G C>"G4iiKLck9h!-13$$t$a45$J4545$45$ ""$456CCCCCgexpr gw  gx   gw  ' gx  ' gw  8 gx  8 gn  N wgfilenameflanguage/tree-il/primitives.scm =  H   N  Q   [  \   f  i  ) {   C>"G4ii9h`x-13$J$7$$(456CCCCpgexpr \gw  Zgx   Zgw  ' Xgx  ' Xgw  < T \ C>"G4ii9hx-13$_$L$9$&(456CCCCCgexpr qgw  ogx   ogw  ' mgx  ' mgw  8 kgx  8 kgw  M g q C>"G4ii9h`x-13$J$7$$(456CCCCpgexpr \gw  Zgx   Zgw  ' Xgx  ' Xgw  < T \ C>"G4ii9hx-13$_$L$9$&(456CCCCCgexpr qgw  ogx   ogw  ' mgx  ' mgw  8 kgx  8 kgw  M g q C>"G4ii9N7hxx-13$f$S$@(7454454 556CCCCpgexpr xgw  vgx   vgw  ' tgx  ' tgw  < p x C>"G4ii9N7h-13${$h$U$B(9454454 556CCCCCgexpr gw  gx   gw  ' gx  ' gw  8 gx  8 gw  M  C>"G4ii9N7hxx-13$f$S$@(7454454 556CCCCpgexpr xgw  vgx   vgw  ' tgx  ' tgw  < p x C>"G4ii9N7h-13${$h$U$B(9454454 556CCCCCgexpr gw  gx   gw  ' gx  ' gw  8 gx  8 gw  M  C>"G4ii9N7hxx-13$f$S$@(7454454 556CCCCpgexpr xgw  vgx   vgw  ' tgx  ' tgw  < p x C>"G4ii9N7h-13${$h$U$B(9454454 556CCCCCgexpr gw  gx   gw  ' gx  ' gw  8 gx  8 gw  M  C>"G4ii9N7hxx-13$f$S$@(7454454 556CCCCpgexpr xgw  vgx   vgw  ' tgx  ' tgw  < p x C>"G4ii9N7h-13${$h$U$B(9454454 556CCCCCgexpr gw  gx   gw  ' gx  ' gw  8 gx  8 gw  M  C>"G4ii9N7hxx-13$f$S$@(7454454 556CCCCpgexpr xgw  vgx   vgw  ' tgx  ' tgw  < p x C>"G4ii9N7h-13${$h$U$B(9454454 556CCCCCgexpr gw  gx   gw  ' gx  ' gw  8 gx  8 gw  M  C>"G4ii9N7hxx-13$f$S$@(7454454 556CCCCpgexpr xgw  vgx   vgw  ' tgx  ' tgw  < p x C>"G4ii9N7h-13${$h$U$B(9454454 556CCCCCgexpr gw  gx   gw  ' gx  ' gw  8 gx  8 gw  M  C>"G4ii9N7hxx-13$f$S$@(7454454 556CCCCpgexpr xgw  vgx   vgw  ' tgx  ' tgw  < p x C>"G4ii9N7h-13${$h$U$B(9454454 556CCCCCgexpr gw  gx   gw  ' gx  ' gw  8 gx  8 gw  M  C>"G4ii9N7hxx-13$f$S$@(7454454 556CCCCpgexpr xgw  vgx   vgw  ' tgx  ' tgw  < p x C>"G4ii9N7h-13${$h$U$B(9454454 556CCCCCgexpr gw  gx   gw  ' gx  ' gw  8 gx  8 gw  M  C>"G4ii9N7hxx-13$f$S$@(7454454 556CCCCpgexpr xgw  vgx   vgw  ' tgx  ' tgw  < p x C>"G4ii9N7h-13${$h$U$B(9454454 556CCCCCgexpr gw  gx   gw  ' gx  ' gw  8 gx  8 gw  M  C>"G4ii9N7hxx-13$f$S$@(7454454 556CCCCpgexpr xgw  vgx   vgw  ' tgx  ' tgw  < p x C>"G4ii9N7h-13${$h$U$B(9454454 556CCCCCgexpr gw  gx   gw  ' gx  ' gw  8 gx  8 gw  M  C>"G7MNOPQRS9 h0) 36)3C)3C-134L545454 4 54 54556(gsrc gsrc  ga  gsrc $ &ga $ &gb  $ &gsrc / ga / gb  / grest  / gprim  8 gb-sym  A gb*  N  gfilenameflanguage/tree-il/primitives.scm        0   8   ;   ?   A   A   D   J  & N   N   V   [   `   a   f  # s  > u  # v  #  >  #  #          $ &  /  Ch]OCg prim-name  gfilenameflanguage/tree-il/primitives.scm    gnamegchained-comparison-expanderCTR4iTh}]456ug prim-name  gfilenameflanguage/tree-il/primitives.scm         CU>"GKLCVjkWX9@ he]45$|4545$"?$"345$'45$$ """$ L4  56CC]ga  gb  gv   gt   ngfilenameflanguage/tree-il/primitives.scm                  /   3   4   9   C   D   N   S   r   w  ) |  @ ~  )  %    gnamegmaybe-simplifyCh@),3OQ45$C6-13Cgsrc 2ga 2gb  2gmaybe-simplify   2gt   2gelse ; =gfilenameflanguage/tree-il/primitives.scm        2   ;   2  ; = gnamegmaybe-simplify-to-eqCYR4iiAYi>"G4iiBYi>"G4ii=MZ[\Q`aO]9^_ hx)d345454544 54 4 554 556-13Cgsrc jgpre jgthunk  jgpost  jgPRE   jgTHUNK   jgPOST   jgelse s ugfilenameflanguage/tree-il/primitives.scm      "         $         #       * "  3 #  < $  = %  B '  G ' ( K '  L (  P ( ( U ( = Y ( ( Z ( K \ (  ] )  b ) ( f )  h %  j   s   j  s u C>"G4ii>MZ\QbaO]_ hHh]45454454 556`gsrc  Ggpre  Ggexpr   Ggpost   GgPRE   GgPOST   Ggfilenameflanguage/tree-il/primitives.scm .  0   0 " 0  1   1 #  1   0   4  ! 5  ( 6  ) 7  . 9  3 9 ( 7 9  : ;  ? ; ( C ;  E 7  G 2   G C>"G4iich ) 36-13Cgsrc gfluid gelse  gfilenameflanguage/tree-il/primitives.scm ?  @   ?      C>"G4iidh ) 36-13Cgsrc gfluid gexp  gelse  gfilenameflanguage/tree-il/primitives.scm E  F   E      C>"G4iiMefgh96O h`)I3454454454 555 6-13Cygsrc Ogtag Ogexp  Oghandler  Ogargs-sym   Ogelse X Zgfilenameflanguage/tree-il/primitives.scm K M   M   R   S  # S ) & S 0 ( S 9 - S = . T  2 T ( 7 T ? 9 T ( < V + A V @ E V + H U % J T  M R  O N  X K  O  X Z C>"G4iiMQje9fgh6Oi h )r3454544544544  54  54 555 56-13Cgsrc xgtag xgthunk  xghandler  xg handler-sym   xgargs-sym   xgelse gfilenameflanguage/tree-il/primitives.scm \ ^ "  _   ^   a  " a ! ' a 4 ( b  / c  5 c 6 7 c  8 f  ; g  B g * E g 1 G g : L g > M h  Q i  V i / X i  Y j  ^ j 0 b j  c k  h k 0 l k  o j  q h  t f  v b  x `  \ " x  C>"G4iikh )36-13Cgsrc gtag g tail-args  gelse  gfilenameflanguage/tree-il/primitives.scm q  s #  s   q      C>"Giik7h(*13456-13Cgsrc gtag gargs  gelse & (gfilenameflanguage/tree-il/primitives.scm w  y (  y 7  y (  y  & w     & ( C6Zgm  ,gfilenameflanguage/tree-il/primitives.scm   . &  1 % \ t ] z % f z g |    ~                    &   1   *   "   $    6   4   f / g h  ! r     J  M  P U % c ( h , o / s 3k y 7#  8  9  9  :  ;  <  =  >  ?  @  A  B  C  D  E  G  H  I"  J2  KB  LR  Mb  Nr  O  P  Q  R  S  V  Wr  X  Y  Zh  [8  ]7  ^>  _|  `  a  b  dU  e~  f  h  iu  j  l  m.  n  o  q%  rN  s  t  vE  wn  x  y          J  K  V  %`  i  t  %~      6  ? , J - - , 6 = A > " = + C 6 D # C , I 7 J F I O Z Z [ * Z 3 o > p 8 o K v ] u  ] C62.0/ccache/language/tree-il/peval.go000064400000536330151463412640013053 0ustar00GOOF----LE-8-2.0] 4hM] gguile  gdefine-module*   glanguage gtree-il gpeval  gfilenameS flanguage/tree-il/peval.scm gimportsS    g primitives   geffects   gice-9 gvlist   gmatch   gsrfi gsrfi-1   gsrfi-9 !  "! #gsrfi-11 $# %$ &gsrfi-26 '& (' )gcontrol *) +* ,"%(+  -gexportsS . /gset-current-module 0/ 1/ 2gmake-syntax-transformer 32 42 5g *logging* 6gmacro 7g identifier? 87 97 :g syntax-object ;gtop <; =gribcage >gid ?> @gm-9d6212d37ae-5919 A@; BA Cfl-9d6212d37ae-5920 DC E=?BD F= Ggx HG Ifl-9d6212d37ae-591b JI K=HBJ L<EFK Mghygiene NM O:LN Pg $sc-dispatch QP RP Sg_ Tgeach-any UST Vfl-9d6212d37ae-5923 WV X=HBW Y<XFK Z:YN [gsyntax-violation \[ ][ ^f-source expression failed to match any pattern _glog `gany agfree-id bgquote cgm-9d6212d37ae-5926 dc; ed ffl-9d6212d37ae-5928 gf h=Heg i<Fh j:biN kaj lk` mlT n`m ogif pgdummy qgevent rgarg spqr td<< ufl-9d6212d37ae-592b vfl-9d6212d37ae-592c wfl-9d6212d37ae-592d xuvw y=stx z<yFh {:ozN |gand }:|zN ~:5zN gor :zN geq? :zN :zN ~ gmemq :zN :bzN ~ glog* :zN g module-ref gresolve-interface g pretty-print  gnewline glet/ec g tree-il-fold gabort-to-prompt g tree-il-any g vlist-length g vlist-ref g vlist-any g  g g gvalues g g  g g  g gsingly-valued-primitive? gsingly-valued-expression? gmake-application g tree-il-src gmake-primitive-ref gtruncate-values g g%make-var-procedure gmake-var S```` glambda gm-9d6212d37ae-5be1 ; gt-9d6212d37ae-5bdd gt-9d6212d37ae-5bde gt-9d6212d37ae-5bdf gt-9d6212d37ae-5be0   fl-9d6212d37ae-5be6 fl-9d6212d37ae-5be7 fl-9d6212d37ae-5be8 fl-9d6212d37ae-5be9  =  fl-9d6212d37ae-5be3  =H gshift g proc-name gargs  << fl-1e8ba8b5a-60 fl-1e8ba8b5a-61  = gkey gvalue gname gformals gbody  <<<<< fl-1e8ba8b5a-53 fl-1e8ba8b5a-54 fl-1e8ba8b5a-55 fl-1e8ba8b5a-56 fl-1e8ba8b5a-57  = gmake-procedure-name  < fl-1e8ba8b5a-43  = < fl-1e8ba8b5a-42  =H FFFFF  M  : <F :N ggensym :N grefcount :N gset? :N  g make-struct gm-9d6212d37ae-5bdb ; gt-1e8ba8b5a-133 gt-1e8ba8b5a-132 gt-1e8ba8b5a-131  gm-1e8ba8b5a-134 ;  fl-1e8ba8b5a-138 fl-1e8ba8b5a-139 fl-1e8ba8b5a-13a  = g ctor-args  fl-1e8ba8b5a-120  = gctor gfield  fl-1e8ba8b5a-11c fl-1e8ba8b5a-11d  = gform g type-name gconstructor-spec g field-names    <<<<  fl-1e8ba8b5a-111  fl-1e8ba8b5a-112  fl-1e8ba8b5a-113 fl-1e8ba8b5a-114     =   g record-layout gfunctional-setters gsetters gcopier ggetters g constructor ggetter-identifiers gfield-identifiers  <<<<<<<< fl-1e8ba8b5a-e9 fl-1e8ba8b5a-e7 fl-1e8ba8b5a-e5 fl-1e8ba8b5a-e3 fl-1e8ba8b5a-e1  fl-1e8ba8b5a-df !fl-1e8ba8b5a-dd "fl-1e8ba8b5a-db # !" $=# %fl-1e8ba8b5a-da &% '=H& (FFFFFF$' ):( *:N +: ( ,)*+ -, .![ /![ 0fWrong number of arguments 1!7 2!7 3<F 4:3N 5grecord-type-vtable 6!5 7!5 8gpwpwpwpw 9gdefault-record-printer :!9 ;!9 < =gset-struct-vtable-name! >!= ?!= @gvtable-offset-user A!@ B!@ Cg%var?-procedure Dgvar? ES` Fgm-9d6212d37ae-5bf4 GF; Hgt-9d6212d37ae-5bf3 IH JG Kfl-9d6212d37ae-5bf9 LK M=IJL Nfl-9d6212d37ae-5bf6 ON P=HJO QGMFPFFFF  R:Q Sgobj Tgt-1e8ba8b5a-224 Ugt-1e8ba8b5a-21e Vgt-1e8ba8b5a-21f Wgt-1e8ba8b5a-220 Xgt-1e8ba8b5a-223 Ygt-1e8ba8b5a-222 Zgt-1e8ba8b5a-221 [TUVWXYZ \gm-1e8ba8b5a-225 ]\; ^]]]]]]] _fl-1e8ba8b5a-229 `fl-1e8ba8b5a-22a afl-1e8ba8b5a-22b bfl-1e8ba8b5a-22c cfl-1e8ba8b5a-22d dfl-1e8ba8b5a-22e efl-1e8ba8b5a-22f f_`abcde g=[^f hg copier-id ih jfl-1e8ba8b5a-21c kj l=ik mg ctor-name nm ofl-1e8ba8b5a-214 po q=np r sfl-1e8ba8b5a-212 ts u=rt vglayout wv xfl-1e8ba8b5a-210 yx z=wy {g immutable? |{ }fl-1e8ba8b5a-20e ~} =|~ g field-count  fl-1e8ba8b5a-20c  = g getter-ids  fl-1e8ba8b5a-209  = g field-ids  fl-1e8ba8b5a-206  = gpredicate-name g field-spec { <<<<<< fl-1e8ba8b5a-1f9 fl-1e8ba8b5a-1fa fl-1e8ba8b5a-1fb fl-1e8ba8b5a-1fc fl-1e8ba8b5a-1fd fl-1e8ba8b5a-1fe  = MFPFgFFFFlFqFuFzFFFF$' :S  :| gstruct? :  : g struct-vtable :  <MFP :N   R <FP :CN gthrow-bad-struct ! ! gvar-name g%var-name-procedure g %%on-error gm-9d6212d37ae-5c00 ;  fl-9d6212d37ae-5c02  =H FFFFF  : a ` g%%type gt-1e8ba8b5a-14b gt-1e8ba8b5a-14c gt-1e8ba8b5a-14d gt-1e8ba8b5a-14e gt-1e8ba8b5a-14f gt-1e8ba8b5a-150 gt-1e8ba8b5a-151  gm-1e8ba8b5a-152 ;  fl-1e8ba8b5a-156 fl-1e8ba8b5a-157 fl-1e8ba8b5a-158 fl-1e8ba8b5a-159 fl-1e8ba8b5a-15a fl-1e8ba8b5a-15b fl-1e8ba8b5a-15c  = ggetter gindex  fl-1e8ba8b5a-149 fl-1e8ba8b5a-14a  = h <<< fl-1e8ba8b5a-144 fl-1e8ba8b5a-145 fl-1e8ba8b5a-146  = FFFFFF$' : a S` gck gerr gs   fl-9d6212d37ae-5c05 fl-9d6212d37ae-5c06  = FFFFF  : :b <F :N   g%%index : a S` fl-9d6212d37ae-5c0a fl-9d6212d37ae-5c0b  = FFFFF  : :b F : N   g%%copier : a S` fl-9d6212d37ae-5c0f fl-9d6212d37ae-5c10    =    FFFFF   :   :b  g%%-set-fields < F :N    gt-9d6212d37ae-5bff  fl-9d6212d37ae-5c14  = FFFFF  : FFFFFF$' :  :o : :   !<F ":!N # " $g struct-ref %:$ &F ': &N (%' ): *:b +:!N ,*+ -), .#(- /. 0<F 1:0N 2g var-gensym 3g%var-gensym-procedure 4gm-9d6212d37ae-5c1b 54; 65 7fl-9d6212d37ae-5c1d 87 9=H68 :5F9FFFF  ;:: <a; =<` >F9FFFFF$' ?:> @a? AS=@` B55 Cfl-9d6212d37ae-5c20 Dfl-9d6212d37ae-5c21 ECD F=BE G5FF9FFFF  H:G I:bG J<FF9 K:JN LIK ML N:> OaN PS=O` Qfl-9d6212d37ae-5c25 Rfl-9d6212d37ae-5c26 SQR T=BS U5TF9FFFF  V:U W:bU XTF9 Y: XN ZWY [Z \:> ]a\ ^S=]` _fl-9d6212d37ae-5c2a `fl-9d6212d37ae-5c2b a_` b=Ba c5bF9FFFF  d:c e:bc f<bF9 g:fN heg ih jgt-9d6212d37ae-5c1a kj lfl-9d6212d37ae-5c2f ml n=k6m o5nF9FFFF  p:o qnF9FFFFF$' r:q sr t:oq u:q v:q wvr x<nF9 y:xN zuwy {:$q |nF9 }: |N ~{r} :q :bq :2xN  r tz~ ps <F9 :3N g var-refcount g%var-refcount-procedure gm-9d6212d37ae-5c36 ;  fl-9d6212d37ae-5c38  =H FFFFF  : a ` FFFFFF$' : a S`  fl-9d6212d37ae-5c3b fl-9d6212d37ae-5c3c  = FFFFF  : :b <F :N   : a S` fl-9d6212d37ae-5c40 fl-9d6212d37ae-5c41  = FFFFF  : :b F : N   : a S` fl-9d6212d37ae-5c45 fl-9d6212d37ae-5c46  = FFFFF  : :b <F :N   gt-9d6212d37ae-5c35  fl-9d6212d37ae-5c4a  = FFFFF  : FFFFFF$' :  :o : :  <F :N  :$ F : N  : :b :N     <F :N gvar-set? g%var-set?-procedure gm-9d6212d37ae-5c51 ;  fl-9d6212d37ae-5c53  =H FFFFF  : a ` FFFFFF$' : a S`  fl-9d6212d37ae-5c56 fl-9d6212d37ae-5c57  = FFFFF  : :b <F :N   : a S` fl-9d6212d37ae-5c5b fl-9d6212d37ae-5c5c  = FFFFF  : :b F : N   :  a  S `  fl-9d6212d37ae-5c60  fl-9d6212d37ae-5c61     =  FFFFF  : :b <F :N   gt-9d6212d37ae-5c50  fl-9d6212d37ae-5c65  = FFFFF  : FFFFFF$' :   :o !: ": #" $<F %:$N &!#% ':$ (F ): (N *') +: ,:b -:$N .,- /+. 0 &*/ 10 2<F 3:2N 4geach 5`` 645 7`6 8`7 9`8 :g %%set-fields ;gcheck? gm-9d6212d37ae-5c6c ?>; @? Afl-9d6212d37ae-5c71 Bfl-9d6212d37ae-5c72 Cfl-9d6212d37ae-5c73 Dfl-9d6212d37ae-5c74 Efl-9d6212d37ae-5c75 FABCDE G==@F H? Ifl-9d6212d37ae-5c6e JI K=HHJ Lgt-1e8ba8b5a-16a Mgt-1e8ba8b5a-16c Ngt-1e8ba8b5a-16b OLMN Pgm-1e8ba8b5a-16d QP; RQQQ Sfl-1e8ba8b5a-171 Tfl-1e8ba8b5a-172 Ufl-1e8ba8b5a-173 VSTU W=ORV Xfl-1e8ba8b5a-167 Yfl-1e8ba8b5a-168 Zfl-1e8ba8b5a-169 [XYZ \=[ ]GFKFWFFF\$'  ^::] _<GFK `:_N a:_N b:2_N c:_N d:_N eabcd fgmap gf hf iglist jgset-var-refcount! kg%set-var-refcount!-procedure lS`` mgm-9d6212d37ae-5c80 nm; ogt-9d6212d37ae-5c7e pgt-9d6212d37ae-5c7f qop rnn sfl-9d6212d37ae-5c85 tfl-9d6212d37ae-5c86 ust v=qru wn xfl-9d6212d37ae-5c82 yx z=Hwy {nvFzFFFF  |:{ }gt-1e8ba8b5a-18c ~gt-1e8ba8b5a-18d }~ gm-1e8ba8b5a-18e ;  fl-1e8ba8b5a-192 fl-1e8ba8b5a-193  = gsetter  fl-1e8ba8b5a-186 fl-1e8ba8b5a-187 fl-1e8ba8b5a-188  =  fl-1e8ba8b5a-17d fl-1e8ba8b5a-17e  = g field-specs  fl-1e8ba8b5a-179 fl-1e8ba8b5a-17a  = vFzFFF$' : gval :  :o : :  <vFz :N  g struct-set! : vFz : N  : :b :jN    | <Fz :kN g set-var-set?! g%set-var-set?!-procedure gm-9d6212d37ae-5c90 ; gt-9d6212d37ae-5c8e gt-9d6212d37ae-5c8f   fl-9d6212d37ae-5c95 fl-9d6212d37ae-5c96  =  fl-9d6212d37ae-5c92  =H FFFFF  : FFFF$' : :  :o : :  <F :N  : F : N  : :b :N     <F :N g vlist-null g vhash-assq g  gfold g vhash-consq gappend greverse   g g g g  gbuild-var-table g  g%%make-counter-procedure g %make-counter S`````` gm-9d6212d37ae-63bc ; gt-9d6212d37ae-63b6 gt-9d6212d37ae-63b7 gt-9d6212d37ae-63b8 gt-9d6212d37ae-63b9 gt-9d6212d37ae-63ba gt-9d6212d37ae-63bb   fl-9d6212d37ae-63c1 fl-9d6212d37ae-63c2 fl-9d6212d37ae-63c3 fl-9d6212d37ae-63c4 fl-9d6212d37ae-63c5 fl-9d6212d37ae-63c6  =  fl-9d6212d37ae-63be  =H FFFFF  : geffort <F  :N  gsize  : N  g continuation  : N g recursive? :N gdata :N gprev :N     gm-9d6212d37ae-63b4 ; FFFFFF$' : :N :        <F :N g pwpwpwpwpwpw     !g%counter?-procedure "gcounter? #gm-9d6212d37ae-63d3 $#; %gt-9d6212d37ae-63d2 &% '$ (fl-9d6212d37ae-63d8 )( *=&') +fl-9d6212d37ae-63d5 ,+ -=H', .$*F-FFFF  /:. 0*F-FgFFFFlFqFuFzFFFF$' 1:S0 21 3:|0 4:0 541 6:0 7:0 871 9<*F- ::9N ;68: <35; =/2< ><F- ?:!>N @geffort-counter Ag%effort-counter-procedure Bgm-9d6212d37ae-63df CB; DC Efl-9d6212d37ae-63e1 FE G=HDF HCFGFFFF  I:H JaI KJ` LFGFFFFF$' M:L NaM OSKN` PCC Qfl-9d6212d37ae-63e4 Rfl-9d6212d37ae-63e5 SQR T=PS UCTFGFFFF  V:U W:bU X<TFG Y:XN ZWY [Z \:L ]a\ ^SK]` _fl-9d6212d37ae-63e9 `fl-9d6212d37ae-63ea a_` b=Pa cCbFGFFFF  d:c e:bc fbFG g: fN heg ih j:L kaj lSKk` mfl-9d6212d37ae-63ee nfl-9d6212d37ae-63ef omn p=Po qCpFGFFFF  r:q s:bq tg%%-set-fields u<pFG v:tuN wsv xw ygt-9d6212d37ae-63de zy {fl-9d6212d37ae-63f3 |{ }=zD| ~C}FGFFFF  :~ }FGFFFFF$' :  :o : :  <}FG :N  :$ }FG : N  : :b :@N     <FG :AN g size-counter g%size-counter-procedure gm-9d6212d37ae-63fa ;  fl-9d6212d37ae-63fc  =H FFFFF  : a ` FFFFFF$' : a S`  fl-9d6212d37ae-63ff fl-9d6212d37ae-6400  = FFFFF  : :b <F :N   : a S` fl-9d6212d37ae-6404 fl-9d6212d37ae-6405  = FFFFF  : :b F : N   : a S` fl-9d6212d37ae-6409 fl-9d6212d37ae-640a  = FFFFF  : :b <F :tN   gt-9d6212d37ae-63f9  fl-9d6212d37ae-640e  = FFFFF  : FFFFFF$' :  :o : :  <F :N  :$ F : N  : :b :N     <F :N gcounter-continuation g%counter-continuation-procedure gm-9d6212d37ae-6415 ;  fl-9d6212d37ae-6417  =H FFFFF  : a ` FFFFFF$' : a S`  fl-9d6212d37ae-641a fl-9d6212d37ae-641b  = FFFFF  : :b <F :N    :  a   S `  fl-9d6212d37ae-641f  fl-9d6212d37ae-6420    = FFFFF  : :b F : N   : a S` fl-9d6212d37ae-6424 fl-9d6212d37ae-6425  = FFFFF  :  :b !<F ":t!N # " $# %gt-9d6212d37ae-6414 &% 'fl-9d6212d37ae-6429 (' )=&( *)FFFFF  +:* ,)FFFFFF$' -:, .- /:o, 0:, 1:, 21- 3<)F 4:3N 5024 6:$, 7)F 8: 7N 96-8 ::, ;:b, <:3N =;< >:-= ?/59> @+.? A<F B:AN Cgcounter-recursive? Dg%counter-recursive?-procedure Egm-9d6212d37ae-6430 FE; GF Hfl-9d6212d37ae-6432 IH J=HGI KFFJFFFF  L:K MaL NM` OFJFFFFF$' P:O QaP RSNQ` SFF Tfl-9d6212d37ae-6435 Ufl-9d6212d37ae-6436 VTU W=SV XFWFJFFFF  Y:X Z:bX [<WFJ \:[N ]Z\ ^] _:O `a_ aSN`` bfl-9d6212d37ae-643a cfl-9d6212d37ae-643b dbc e=Sd fFeFJFFFF  g:f h:bf ieFJ j: iN khj lk m:O nam oSNn` pfl-9d6212d37ae-643f qfl-9d6212d37ae-6440 rpq s=Sr tFsFJFFFF  u:t v:bt w<sFJ x:twN yvx zy {gt-9d6212d37ae-642f |{ }fl-9d6212d37ae-6444 ~} =|G~ FFJFFFF  : FJFFFFF$' :  :o : :  <FJ :N  :$ FJ : N  : :b :CN     <FJ :DN g counter-data g%counter-data-procedure gm-9d6212d37ae-644b ;  fl-9d6212d37ae-644d  =H FFFFF  : a ` FFFFFF$' : a S`  fl-9d6212d37ae-6450 fl-9d6212d37ae-6451  = FFFFF  : :b <F :N   : a S` fl-9d6212d37ae-6455 fl-9d6212d37ae-6456  = FFFFF  : :b F : N   : a S` fl-9d6212d37ae-645a fl-9d6212d37ae-645b  = FFFFF  : :b <F :tN   gt-9d6212d37ae-644a  fl-9d6212d37ae-645f  = FFFFF  : FFFFFF$' :  :o : :  <F :N  :$ F : N  : :b :N     <F :N g counter-prev g%counter-prev-procedure gm-9d6212d37ae-6466 ;  fl-9d6212d37ae-6468  =H FFFFF  : a ` FFFFFF$' : a S`  fl-9d6212d37ae-646b fl-9d6212d37ae-646c  = FFFFF  : :b <F :N       :  a   S ` fl-9d6212d37ae-6470 fl-9d6212d37ae-6471  = FFFFF  : :b F : N   : a S` fl-9d6212d37ae-6475 fl-9d6212d37ae-6476  =  FFFFF  !:  ":b  #<F $:t#N %"$ &% 'gt-9d6212d37ae-6465 (' )fl-9d6212d37ae-647a *) +=(* ,+FFFFF  -:, .+FFFFFF$' /:. 0/ 1:o. 2:. 3:. 43/ 5<+F 6:5N 7246 8:$. 9+F :: 9N ;8/: <:. =:b. >:5N ?=> @</? A17;@ B-0A C<F D:CN Egm-9d6212d37ae-6481 FE; GF Hfl-9d6212d37ae-6486 Ifl-9d6212d37ae-6487 Jfl-9d6212d37ae-6488 Kfl-9d6212d37ae-6489 Lfl-9d6212d37ae-648a MHIJKL N==GM OF Pfl-9d6212d37ae-6483 QP R=HOQ SNFRFWFFF\$'  T::S U<NFR V:UN W:@UN X:UN Y:UN Z:CUN [:UN \:UN ]WXYZ[\ ^gset-counter-recursive?! _g"%set-counter-recursive?!-procedure `gm-9d6212d37ae-6495 a`; bgt-9d6212d37ae-6493 cgt-9d6212d37ae-6494 dbc eaa ffl-9d6212d37ae-649a gfl-9d6212d37ae-649b hfg i=deh ja kfl-9d6212d37ae-6497 lk m=Hjl naiFmFFFF  o:n piFmFFF$' q:p r:p sqr t:op u:p v:p wvq x<iFm y:xN zuwy {:p |iFm }: |N ~{q}r :p :bp :^xN  q tz~ os <Fm :_N g abort-counter grecord-effort! g record-size! g find-counter gmin g transfer! g make-variable gmake-top-counter gmake-nested-counter gmake-recursive-counter g  g%%make-operand-procedure g %make-operand S``````````  gm-9d6212d37ae-6564 ; gt-9d6212d37ae-655a gt-9d6212d37ae-655b gt-9d6212d37ae-655c gt-9d6212d37ae-655d gt-9d6212d37ae-655e gt-9d6212d37ae-655f gt-9d6212d37ae-6560 gt-9d6212d37ae-6561 gt-9d6212d37ae-6562 gt-9d6212d37ae-6563     fl-9d6212d37ae-6569 fl-9d6212d37ae-656a fl-9d6212d37ae-656b fl-9d6212d37ae-656c fl-9d6212d37ae-656d fl-9d6212d37ae-656e fl-9d6212d37ae-656f fl-9d6212d37ae-6570 fl-9d6212d37ae-6571 fl-9d6212d37ae-6572   =  fl-9d6212d37ae-6566  =H FFFFF  : gvar <F :N gsym :N gvisit :N gsource :N g visit-count :N g use-count :N g copyable? :N gresidual-value :N gconstant-value :N galias :N   gm-9d6212d37ae-6558 ; FFFFFF$' : :N :     <F :N gpwpwpwpwpwpwpwpwpwpw   g%operand?-procedure goperand? gm-9d6212d37ae-6583 ; gt-9d6212d37ae-6582   fl-9d6212d37ae-6588  = fl-9d6212d37ae-6585  =H FFFFF  : FFgFFFFlFqFuFzFFFF$' :S  :| :  : :  <F :N    <F :N g operand-var g%operand-var-procedure gm-9d6212d37ae-658f ;  fl-9d6212d37ae-6591  =H FFFFF  : a ` FFFFFF$' : a S`  fl-9d6212d37ae-6594  fl-9d6212d37ae-6595     =    FFFFF   :  :b  < F :N   : a S` fl-9d6212d37ae-6599 fl-9d6212d37ae-659a  = FFFFF  : :b F : N    !: "a! #S"` $fl-9d6212d37ae-659e %fl-9d6212d37ae-659f &$% '=& ('FFFFF  ):( *:b( +g%%-set-fields ,<'F -:+,N .*- /. 0gt-9d6212d37ae-658e 10 2fl-9d6212d37ae-65a3 32 4=13 54FFFFF  6:5 74FFFFFF$' 8:7 98 ::o7 ;:7 <:7 =<8 ><4F ?:>N @;=? A:$7 B4F C: BN DA8C E:7 F:b7 G:>N HFG IE8H J:@DI K69J L<F M:LN Ng operand-sym Og%operand-sym-procedure Pgm-9d6212d37ae-65aa QP; RQ Sfl-9d6212d37ae-65ac TS U=HRT VQFUFFFF  W:V XaW YX` ZFUFFFFF$' [:Z \a[ ]SY\` ^QQ _fl-9d6212d37ae-65af `fl-9d6212d37ae-65b0 a_` b=^a cQbFUFFFF  d:c e:bc f<bFU g:fN heg ih j:Z kaj lSYk` mfl-9d6212d37ae-65b4 nfl-9d6212d37ae-65b5 omn p=^o qQpFUFFFF  r:q s:bq tpFU u: tN vsu wv x:Z yax zSYy` {fl-9d6212d37ae-65b9 |fl-9d6212d37ae-65ba }{| ~=^} Q~FUFFFF  : :b <~FU :+N   gt-9d6212d37ae-65a9  fl-9d6212d37ae-65be  =R QFUFFFF  : FUFFFFF$' :  :o : :  <FU :N  :$ FU : N  : :b :NN     <FU :ON g%operand-visit g%%operand-visit-procedure gm-9d6212d37ae-65c5 ;  fl-9d6212d37ae-65c7  =H FFFFF  : a ` FFFFFF$' : a S`  fl-9d6212d37ae-65ca fl-9d6212d37ae-65cb  = FFFFF  : :b <F :N   : a S` fl-9d6212d37ae-65cf fl-9d6212d37ae-65d0  = FFFFF  : :b F : N   : a S` fl-9d6212d37ae-65d4 fl-9d6212d37ae-65d5  = FFFFF  : :b <F :+N   gt-9d6212d37ae-65c4  fl-9d6212d37ae-65d9  = FFFFF  : FFFFFF$' :  :o : :  <F :N  :$ F : N  : :b :N     <F :N goperand-source g%operand-source-procedure gm-9d6212d37ae-65e0 ;  fl-9d6212d37ae-65e2  =H FFFFF  : a ` FFFFFF$' : a  S`    fl-9d6212d37ae-65e5  fl-9d6212d37ae-65e6     =   FFFFF  : :b <F :N   : a S` fl-9d6212d37ae-65ea fl-9d6212d37ae-65eb  =  FFFFF  : :b  F !:  N "! #" $: %a$ &S%` 'fl-9d6212d37ae-65ef (fl-9d6212d37ae-65f0 )'( *= ) +*FFFFF  ,:+ -:b+ .<*F /:+.N 0-/ 10 2gt-9d6212d37ae-65df 32 4fl-9d6212d37ae-65f4 54 6=35 76FFFFF  8:7 96FFFFFF$' ::9 ;: <:o9 =:9 >:9 ?>: @<6F A:@N B=?A C:$9 D6F E: DN FC:E G:9 H:b9 I:@N JHI KG:J L<BFK M8;L N<F O:NN Pgoperand-visit-count Qg%operand-visit-count-procedure Rgm-9d6212d37ae-65fb SR; TS Ufl-9d6212d37ae-65fd VU W=HTV XSFWFFFF  Y:X ZaY [Z` \FWFFFFF$' ]:\ ^a] _S[^` `SS afl-9d6212d37ae-6600 bfl-9d6212d37ae-6601 cab d=`c eSdFWFFFF  f:e g:be h<dFW i:hN jgi kj l:\ mal nS[m` ofl-9d6212d37ae-6605 pfl-9d6212d37ae-6606 qop r=`q sSrFWFFFF  t:s u:bs vrFW w: vN xuw yx z:\ {az |S[{` }fl-9d6212d37ae-660a ~fl-9d6212d37ae-660b }~ =` SFWFFFF  : :b <FW :+N   gt-9d6212d37ae-65fa  fl-9d6212d37ae-660f  =T SFWFFFF  : FWFFFFF$' :  :o : :  <FW :N  :$ FW : N  : :b :PN     <FW :QN goperand-use-count g%operand-use-count-procedure gm-9d6212d37ae-6616 ;  fl-9d6212d37ae-6618  =H FFFFF  : a ` FFFFFF$' : a S`  fl-9d6212d37ae-661b fl-9d6212d37ae-661c  = FFFFF  : :b <F :N   : a S` fl-9d6212d37ae-6620 fl-9d6212d37ae-6621  = FFFFF  : :b F : N   : a S` fl-9d6212d37ae-6625 fl-9d6212d37ae-6626  = FFFFF  : :b <F :+N   gt-9d6212d37ae-6615  fl-9d6212d37ae-662a  = FFFFF  : FFFFFF$' :  :o : :  <F :N  :$ F : N  : :b :N     <F :N goperand-copyable? g%operand-copyable?-procedure gm-9d6212d37ae-6631 ;  fl-9d6212d37ae-6633   =H   F FFFF  :  a   ` F FFFFF$' :  a  S  `  fl-9d6212d37ae-6636 fl-9d6212d37ae-6637    =    F FFFF  :  :b  < F  : N      :  a  S  ` fl-9d6212d37ae-663b fl-9d6212d37ae-663c    =    F FFFF  :  !:b  " F  #:  "N $ ! # % $ &:  'a & (S  '` )fl-9d6212d37ae-6640 *fl-9d6212d37ae-6641 + ) * ,=  + - ,F FFFF  .: - /:b - 0< ,F  1:+ 0N 2 / 1 3 2 4gt-9d6212d37ae-6630 5 4 6fl-9d6212d37ae-6645 7 6 8= 5  7 9 8F FFFF  :: 9 ; 8F FFFFF$' <: ; = < >:o ; ?: ; @: ; A @ < B< 8F  C: BN D ? A C E:$ ; F 8F  G:  FN H E < G I: ; J:b ; K: BN L J K M I < L N > D H M O : = N P<F  Q: PN Rgoperand-residual-value Sg!%operand-residual-value-procedure Tgm-9d6212d37ae-664c U T; V U Wfl-9d6212d37ae-664e X W Y=H V X Z UF YFFFF  [: Z \a [ ] \` ^F YFFFFF$' _: ^ `a _ aS ] `` b U U cfl-9d6212d37ae-6651 dfl-9d6212d37ae-6652 e c d f= b e g U fF YFFFF  h: g i:b g j< fF Y k: jN l i k m l n: ^ oa n pS ] o` qfl-9d6212d37ae-6656 rfl-9d6212d37ae-6657 s q r t= b s u U tF YFFFF  v: u w:b u x tF Y y:  xN z w y { z |: ^ }a | ~S ] }` fl-9d6212d37ae-665b fl-9d6212d37ae-665c    = b   U F YFFFF  :  :b  < F Y :+ N      gt-9d6212d37ae-664b   fl-9d6212d37ae-6660   =  V   U F YFFFF  :   F YFFFFF$' :    :o  :  :     < F Y : N     :$   F Y :  N     :  :b  : R N                 <F Y : S N goperand-constant-value g!%operand-constant-value-procedure gm-9d6212d37ae-6667  ;   fl-9d6212d37ae-6669   =H    F FFFF  :  a   ` F FFFFF$' :  a  S  `    fl-9d6212d37ae-666c fl-9d6212d37ae-666d    =     F FFFF  :  :b  < F  : N      :  a  S  ` fl-9d6212d37ae-6671 fl-9d6212d37ae-6672    =     F FFFF  :  :b   F  :  N      :  a  S  ` fl-9d6212d37ae-6676 fl-9d6212d37ae-6677    =     F FFFF  :  :b  < F  :+ N      gt-9d6212d37ae-6666   fl-9d6212d37ae-667b   =      F FFFF  :   F FFFFF$' :    :o  :  :     < F  : N     :$   F  :  N     :  :b  :  N                 <F  :  N g operand-alias g%operand-alias-procedure gm-9d6212d37ae-6682  ;   fl-9d6212d37ae-6684   =H    F FFFF  :  a   ` F FFFFF$' :  a  S  `    fl-9d6212d37ae-6687 fl-9d6212d37ae-6688    =     F FFFF  :  :b  < F  : N      :  a  S  ` fl-9d6212d37ae-668c fl-9d6212d37ae-668d    =   !  F FFFF  ": ! #:b ! $ F  %:  $N & # % ' & (:  )a ( *S  )` +fl-9d6212d37ae-6691 ,fl-9d6212d37ae-6692 - + , .=  - /  .F FFFF  0: / 1:b / 2< .F  3:+ 2N 4 1 3 5 4 6gt-9d6212d37ae-6681 7 6 8fl-9d6212d37ae-6696 9 8 := 7  9 ;  :F FFFF  <: ; = :F FFFFF$' >: = ? > @:o = A: = B: = C B > D< :F  E: DN F A C E G:$ = H :F  I:  HN J G > I K: = L:b = M:  DN N L M O K > N P @ F J O Q < ? P R<F  S:  RN Tgm-9d6212d37ae-669d U T; V U Wfl-9d6212d37ae-66a2 Xfl-9d6212d37ae-66a3 Yfl-9d6212d37ae-66a4 Zfl-9d6212d37ae-66a5 [fl-9d6212d37ae-66a6 \ W X Y Z [ ]== V \ ^ U _fl-9d6212d37ae-669f ` _ a=H ^ ` b ]F aFWFFF\$'  c:: b d< ]F a e: dN f: dN g:N dN h: dN i: dN j:P dN k: dN l: dN m: R dN n:  dN o:  dN p f g h i j k l m n o  qgset-operand-visit-count! rg#%set-operand-visit-count!-procedure sgm-9d6212d37ae-66b1 t s; ugt-9d6212d37ae-66af vgt-9d6212d37ae-66b0 w u v x t t yfl-9d6212d37ae-66b6 zfl-9d6212d37ae-66b7 { y z |= w x { } t ~fl-9d6212d37ae-66b3  ~ =H }   t |F FFFF  :   |F FFF$' :  :     :o  :  :     < |F  : N     :   |F  :  N      :  :b  : q N                 <F  : r N gset-operand-use-count! g!%set-operand-use-count!-procedure gm-9d6212d37ae-66c1  ; gt-9d6212d37ae-66bf gt-9d6212d37ae-66c0       fl-9d6212d37ae-66c6 fl-9d6212d37ae-66c7    =      fl-9d6212d37ae-66c3   =H     F FFFF  :   F FFF$' :  :     :o  :  :     < F  : N     :   F  :  N      :  :b  :  N                 <F  :  N gset-operand-copyable?! g!%set-operand-copyable?!-procedure gm-9d6212d37ae-66d1  ; gt-9d6212d37ae-66cf gt-9d6212d37ae-66d0       fl-9d6212d37ae-66d6 fl-9d6212d37ae-66d7    =      fl-9d6212d37ae-66d3   =H     F FFFF  :   F FFF$' :  :     :o  :  :     < F  : N     :   F  :  N      :  :b  :  N                 <F  :  N g%set-operand-residual-value! g'%%set-operand-residual-value!-procedure gm-9d6212d37ae-66e1  ; gt-9d6212d37ae-66df gt-9d6212d37ae-66e0       fl-9d6212d37ae-66e6 fl-9d6212d37ae-66e7    =      fl-9d6212d37ae-66e3   =H     F FFFF  :   F FFF$' :  :     :o  :  :     < F  : N     :   F  :  N      :  :b  :  N                 <F  :  N gset-operand-constant-value! g&%set-operand-constant-value!-procedure gm-9d6212d37ae-66f1  ; gt-9d6212d37ae-66ef gt-9d6212d37ae-66f0       !fl-9d6212d37ae-66f6 "fl-9d6212d37ae-66f7 # ! " $=   # %  &fl-9d6212d37ae-66f3 ' & (=H % ' )  $F (FFFF  *: ) + $F (FFF$' ,: + -: + . , - /:o + 0: + 1: + 2 1 , 3< $F ( 4: 3N 5 0 2 4 6: + 7 $F ( 8:  7N 9 6 , 8 - :: + ;:b + <:  3N = ; < > : , = ? / 5 9 > @ * . ? A<F ( B:  AN Cgset-operand-alias! Dg%set-operand-alias!-procedure Egm-9d6212d37ae-6701 F E; Ggt-9d6212d37ae-66ff Hgt-9d6212d37ae-6700 I G H J F F Kfl-9d6212d37ae-6706 Lfl-9d6212d37ae-6707 M K L N= I J M O F Pfl-9d6212d37ae-6703 Q P R=H O Q S F NF RFFFF  T: S U NF RFFF$' V: U W: U X V W Y:o U Z: U [: U \ [ V ]< NF R ^: ]N _ Z \ ^ `: U a NF R b:  aN c ` V b W d: U e:b U f: C ]N g e f h d V g i Y _ c h j T X i k<F R l: D kN mgand=> ng make-operand ogmake-bound-operands pgmake-unbound-operands qgset-operand-residual-value! rgapply sg visit-operand tgnot ugpair? vgnull? wglist? xgsymbol? ygvector? zglength {geqv? |gequal? }g types-check? ~goperator-size-limitS  ~  goperand-size-limitS   gvalue-size-limitS   g effort-limitS   grecursive-effort-limitS         gcurrent-module gerror f unbound var g vlist->list g string-append gsymbol->string f  gmake-lexical-ref     fno matching pattern gevery gconst? g const-exp gcatch gthe-scm-module geffect g make-void gtest g make-const g  g make-dynwind g g make-dynlet g   z  z gtail   g make-sequence g  gmake-let-values gmake-lambda-case gmake-fix g make-letrec gmake-let g g g  g make-lambda g g g g  g g constant? goperator gcar gcdr gfilter gcompose gvoid? gmake-effects-analyzer g lexical-ref? glexical-ref-gensym gmake-prompt-tag gabort? g tree-il=? g abort-tag   g abort-args g abort-tail g make-prompt g make-abort g sequence? g sequence-exps g@apply glambda-case-alternate gcall gand-map gtake gdrop gsplit-at g fold-right glambda? geffect-free-primitive? gaccessor-primitive? gmemv ft- gt gmake-conditional gcons gconstructor-primitive? gstring? gvector g@call-with-values ffailure- gfailure gmake-toplevel-set gmake-toplevel-define gmake-module-set     gresolve-module gensureS gmodule? gmodule-variable gresolve-primitives! gprimitive-ref? g make-dynset g make-dynref fpost- gpost   fpre- gpre      fwhat! g alist-delete gassq-ref grest   grest-sym   g$ bi  S  g rest-args  S     g? gcut g<>           g= glexical-refcount      |          S     g make-list gtmp ftmp  gmake-lexical-setC5h]4    ,-.541>"G44569h_]6Wgid  gfilenameflanguage/tree-il/peval.scm  2    COh*]C"gid     CRUZh)]C!gx     C]^h@]4?$@45$@6gx  :gtmp  :gtmp  # :gfilenameflanguage/tree-il/peval.scm 2   : g macro-typegidentifier-syntaxC55R44_6Rn{}~ h0Q] CIgdummy  0gevent  0garg   0  0 C]^h(] 45$@6gx  "gtmp "gfilenameflanguage/tree-il/peval.scm >   " g macro-typeg syntax-rulesgpatternsgquotegeventgargg...C5_R_hH-1344554>"G4>"GDgevent Cgargs Cgpp   Cgfilenameflanguage/tree-il/peval.scm E F F   F +  F   G   F  F   H   H  ) H  2 I  C J  C gnameglog*CRh ] 4L5$L6Cgexp  gres  gres  gfilenameflanguage/tree-il/peval.scm N   O  O   P   M    Ch ] 4L5$L6Cgexp  gres  gres  gfilenameflanguage/tree-il/peval.scm Q   R  R   S   M    Chp]Chgexp  gres  gfilenameflanguage/tree-il/peval.scm T    Ch@]U#4OO>XCXFGEgproc  >gexp  >gtag   >g_  3 >gresults  3 >gfilenameflanguage/tree-il/peval.scm L  M   N  6 M   > gnameg tree-il-anyCRhH]45"-$"4455$C"C "gproc  Cgvlist  Cglen  Cgi   <gt  & :gfilenameflanguage/tree-il/peval.scm W  X X   Y   Z  Z   [   [  & [  & [ 4 \  : \  < Y   C gnameg vlist-anyCRhN]LCFgfilenameflanguage/tree-il/peval.scm  _   C h0])"$&q  OQ$N&A  &' $(C66C66CC$&C&C&C&C &C &C&?  $)&  4 5$C"""""gexp  )gw  gfailure  ) gw  G gw  V xgfailure  Z xgw !gw   gfilenameflanguage/tree-il/peval.scm ^  _   ) gnamegsingly-valued-expression?CRh(]45$C45456gx  (gfilenameflanguage/tree-il/peval.scm m  o  o   q   r   r / ! r  & s  ( q   ( gnamegtruncate-valuesg documentationf%Discard all but the first value of X.CRh]Cgname  ggensym  grefcount   gset?   gfilenameflanguage/tree-il/peval.scm y    gnameg%make-var-procedureCR446R-h]Cgt-9d6212d37ae-5bdd  gt-9d6212d37ae-5bde  gt-9d6212d37ae-5bdf   gt-9d6212d37ae-5be0      CU/0h]]L6Uga  gfilenameflanguage/tree-il/peval.scm  y   CS2hM]L6Egfilenameflanguage/tree-il/peval.scm  y    C4h]C   C]^ hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/peval.scm y   n C5R78;<4?>"G BiRhz]$CCrgobj  gfilenameflanguage/tree-il/peval.scm y    gnameg%var?-procedureCCR44D6REh:]C2gt-9d6212d37ae-5bf3    CU/D0h]]L6Uga  gfilenameflanguage/tree-il/peval.scm  y   CS2hM]L6Egfilenameflanguage/tree-il/peval.scm  y    Ch]C   C]^ hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/peval.scm y   n C5DRh|]& C6tgs  gfilenameflanguage/tree-il/peval.scm y    gnameg%var-name-procedureCR446Rh:]C2gerr  gs    Ch:]C2gerr  gs    C h:]C2gerr  gs    CE/h:]C2gt-9d6212d37ae-5bff    CU/0h]]L6Uga  gfilenameflanguage/tree-il/peval.scm  y   CS2hM]L6Egfilenameflanguage/tree-il/peval.scm  y    C1h]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm y   C5R2h~]& C6vgs  gfilenameflanguage/tree-il/peval.scm y    gnameg%var-gensym-procedureC3R4426RAHMh:]C2gerr  gs    CPV[h:]C2gerr  gs    C^dih:]C2gerr  gs    CEh:]C2gt-9d6212d37ae-5c1a    CU/20h]]L6Uga  gfilenameflanguage/tree-il/peval.scm  y   CS2hM]L6Egfilenameflanguage/tree-il/peval.scm  y    Ch]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm y   C52Rh ]& C6xgs  gfilenameflanguage/tree-il/peval.scm y    gnameg%var-refcount-procedureCR446Rh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    CEh:]C2gt-9d6212d37ae-5c35    CU/0h]]L6Uga  gfilenameflanguage/tree-il/peval.scm  y   CS2hM]L6Egfilenameflanguage/tree-il/peval.scm  y    Ch]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm y   C5Rh |]& C6tgs  gfilenameflanguage/tree-il/peval.scm y    gnameg%var-set?-procedureCR446Rh:]C2gerr  gs    Ch:]C2gerr  gs    C h:]C2gerr  gs    CE1h:]C2gt-9d6212d37ae-5c50    CU/0h]]L6Uga  gfilenameflanguage/tree-il/peval.scm  y   CS2hM]L6Egfilenameflanguage/tree-il/peval.scm  y    C3h]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm y   C5R446R9^`ehih v]45Cngdummy  gcheck?  gs   ggetter   gexpr      C]^h(] 45$@6gx  "gtmp "gfilenameflanguage/tree-il/peval.scm y   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5Rjh ]& C6gs  gval  gfilenameflanguage/tree-il/peval.scm y    gnameg%set-var-refcount!-procedureCkR44j6RlhZ]CRgt-9d6212d37ae-5c7e  gt-9d6212d37ae-5c7f    CU/j0h]]L6Uga  gfilenameflanguage/tree-il/peval.scm  y   CS2hM]L6Egfilenameflanguage/tree-il/peval.scm  y    Ch]C   C]^ hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/peval.scm y   n C5jRh ]& C6gs  gval  gfilenameflanguage/tree-il/peval.scm y    gnameg%set-var-set?!-procedureCR446RlhZ]CRgt-9d6212d37ae-5c8e  gt-9d6212d37ae-5c8f    CU/0h]]L6Uga  gfilenameflanguage/tree-il/peval.scm  y   CS2hM]L6Egfilenameflanguage/tree-il/peval.scm  y    Ch]C   C]^ hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/peval.scm y   n C5Rjh]$v&j   45&  " 45&  "4>"GCCCgexp  gres  gw  ! |gvar  - |gval  K ygfilenameflanguage/tree-il/peval.scm    $  -  -  2 % K ! K   Ch] 6gname  gsym  gres   gfilenameflanguage/tree-il/peval.scm   !     Ch] 6gname  gsym  gres   gfilenameflanguage/tree-il/peval.scm   !     Ch] 6gname  gsym  gres   gfilenameflanguage/tree-il/peval.scm   !     Ch] 6gname  gsym  gres   gfilenameflanguage/tree-il/peval.scm   !     Chh]$X&S         4$"$ "$"(/4 >"G4 >"G4 5"$~  $j   $N$2(&       "l"4"/"$ " "   "0"56&*     6&0       6 &*      6 &Q    4 5&  "4>"GCCCgexp  dgres  dgw   egw  " egw  ) egw  0 egw  = egx  } Zgls  Fgp-ls Fgp-ls Fgp-ls Fgw Agw 9gx  9gw  .gx  .gw  gw  w gw  ~ gw   gw   gw   gw   gw   ^gs  . [gfilenameflanguage/tree-il/peval.scm    R  \  c " i ' n 0 s < v    F  _  a  e  h              %  .  .   d Chq]Cigexp  gres  gfilenameflanguage/tree-il/peval.scm    Ch(-.,3#6gexp $gtable $gfilenameflanguage/tree-il/peval.scm $  $ gnamegbuild-var-tableCRh]Cgeffort  gsize  g continuation   g recursive?   gdata   gprev   gfilenameflanguage/tree-il/peval.scm    gnameg%%make-counter-procedureCR446Rh]Cgt-9d6212d37ae-63b6  gt-9d6212d37ae-63b7  gt-9d6212d37ae-63b8   gt-9d6212d37ae-63b9   gt-9d6212d37ae-63ba   gt-9d6212d37ae-63bb      CU/0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm    CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm     Ch]C   C]^ hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/peval.scm   n C5R7; 4?>"G BiRh]$CCwgobj  gfilenameflanguage/tree-il/peval.scm    gnameg%counter?-procedureC!R44"6RE=h:]C2gt-9d6212d37ae-63d2    CU/"0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm    CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm     C?h]C   C]^ hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/peval.scm   n C5"R@h]& C6{gs  gfilenameflanguage/tree-il/peval.scm    gnameg%effort-counter-procedureCAR44@6ROV[h:]C2gerr  gs    C^dih:]C2gerr  gs    Clrxh:]C2gerr  gs    CEh:]C2gt-9d6212d37ae-63de    CU/@0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm    CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm     Ch]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm   C5@Rh]& C6ygs  gfilenameflanguage/tree-il/peval.scm    gnameg%size-counter-procedureCR446Rh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    CEh:]C2gt-9d6212d37ae-63f9    CU/0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm    CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm     Ch]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm   C5Rh ]& C6gs  gfilenameflanguage/tree-il/peval.scm    gnameg%counter-continuation-procedureCR446Rh:]C2gerr  gs    C h:]C2gerr  gs    C$h:]C2gerr  gs    CE@h:]C2gt-9d6212d37ae-6414    CU/0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm    CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm     CBh]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm   C5RCh ]& C6gs  gfilenameflanguage/tree-il/peval.scm    gnameg%counter-recursive?-procedureCDR44C6RRY^h:]C2gerr  gs    Caglh:]C2gerr  gs    Couzh:]C2gerr  gs    CEh:]C2gt-9d6212d37ae-642f    CU/C0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm    CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm     Ch]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm   C5CRh ]& C6ygs  gfilenameflanguage/tree-il/peval.scm    gnameg%counter-data-procedureCR446Rh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    CEh:]C2gt-9d6212d37ae-644a    CU/0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm    CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm     Ch]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm   C5Rh ]& C6ygs  gfilenameflanguage/tree-il/peval.scm    gnameg%counter-prev-procedureCR446R h:]C2gerr  gs    C h:]C2gerr  gs    C!&h:]C2gerr  gs    CEBh:]C2gt-9d6212d37ae-6465    CU/0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm    CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm     CDh]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm   C5R44t6R9TV]hih v]45Cngdummy  gcheck?  gs   ggetter   gexpr      C]^h(] 45$@6gx  "gtmp "gfilenameflanguage/tree-il/peval.scm   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5tR^h ]& C6gs  gval  gfilenameflanguage/tree-il/peval.scm    gnameg"%set-counter-recursive?!-procedureC_R44^6RlhZ]CRgt-9d6212d37ae-6493  gt-9d6212d37ae-6494    CU/^0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm    CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm     Ch]C   C]^ hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/peval.scm   n C5^Rh ]&  " 456xgc  gfilenameflanguage/tree-il/peval.scm     gnameg abort-counterCR@h8] & " 45 $6Cgc  6ge  6gfilenameflanguage/tree-il/peval.scm    !  "  '  -  0  1  4   6 gnamegrecord-effort!CRh8] & " 45 $6Cgc  6gs  6gfilenameflanguage/tree-il/peval.scm    !  "  '  -  0  1  4   6 gnameg record-size!CRhP]$E&  " 45&C&  " 456Cgdata  Ogcounter  Ogfilenameflanguage/tree-il/peval.scm    )  3  M   O gnameg find-counterCR@h -.,3 #& " 45#& " 45& " 45& " 4545& " 45& " 4545Cgfrom gto geffort  gsize  gfrom-v  gto-v  g from-balance  g to-balance  gamount  gfrom-v  gto-v  g from-balance  g to-balance  gamount   gfilenameflanguage/tree-il/peval.scm  * -  8 ( P  U  o +             )                    gnameg transfer!CRh( ]4545Cg effort-limit  $g size-limit  $g continuation   $gdata   $geffort   $gsize   $gfilenameflanguage/tree-il/peval.scm       $ gnamegmake-top-counterCRhH]4 54 54>"GC g continuation  Agdata  Agcurrent   Ageffort   (gsize   (gc  ( Agfilenameflanguage/tree-il/peval.scm      (  +    A gnamegmake-nested-counterCRhp]$4 54 5&  " 45&  " 454>"GChg effort-limit  g size-limit  gorig   gcurrent   geffort  D hgsize  D hg continuation  D hgdata  D hgc  h  gfilenameflanguage/tree-il/peval.scm          ,   D  h   k    gnamegmake-recursive-counterCRh N, 3  CFgvar  gsym  gvisit   gsource   g visit-count   g use-count   g copyable?   gresidual-value   gconstant-value   galias   gfilenameflanguage/tree-il/peval.scm    gnameg%%make-operand-procedureCR446Rh Z, 3   CRgt-9d6212d37ae-655a  gt-9d6212d37ae-655b  gt-9d6212d37ae-655c   gt-9d6212d37ae-655d   gt-9d6212d37ae-655e   gt-9d6212d37ae-655f   gt-9d6212d37ae-6560   gt-9d6212d37ae-6561   gt-9d6212d37ae-6562   gt-9d6212d37ae-6563     CU/0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      Ch]C   C]^ hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/peval.scm    n C5R7;ר4?>"G BiRh]$CCwgobj  gfilenameflanguage/tree-il/peval.scm     gnameg%operand?-procedureCR446REh:]C2gt-9d6212d37ae-6582    CU/0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      Ch]C   C]^ hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/peval.scm    n C5Rh]& C6xgs  gfilenameflanguage/tree-il/peval.scm     gnameg%operand-var-procedureCR446R h:]C2gerr  gs    C h:]C2gerr  gs    C#)/h:]C2gerr  gs    CEKh:]C2gt-9d6212d37ae-658e    CU/0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      CMh]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm    C5RNh]& C6xgs  gfilenameflanguage/tree-il/peval.scm     gnameg%operand-sym-procedureCOR44N6R]dih:]C2gerr  gs    Clrwh:]C2gerr  gs    Czh:]C2gerr  gs    CEh:]C2gt-9d6212d37ae-65a9    CU/N0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      Ch]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm    C5NRh ]& C6{gs  gfilenameflanguage/tree-il/peval.scm     gnameg%%operand-visit-procedureCR446Rh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    CEh:]C2gt-9d6212d37ae-65c4    CU/0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      Ch]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm    C5Rh ]& C6{gs  gfilenameflanguage/tree-il/peval.scm     gnameg%operand-source-procedureCR446R h:]C2gerr  gs    C#h:]C2gerr  gs    C&,1h:]C2gerr  gs    CEMh:]C2gt-9d6212d37ae-65df    CU/0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      COh]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm    C5RPh ]& C6gs  gfilenameflanguage/tree-il/peval.scm     gnameg%operand-visit-count-procedureCQR44P6R_fkh:]C2gerr  gs    Cntyh:]C2gerr  gs    C|h:]C2gerr  gs    CEh:]C2gt-9d6212d37ae-65fa    CU/P0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      Ch]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm    C5PRh ]& C6~gs  gfilenameflanguage/tree-il/peval.scm     gnameg%operand-use-count-procedureCR446Rh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    CEh:]C2gt-9d6212d37ae-6615    CU/0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      Ch]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm    C5Rh ]& C6~gs  gfilenameflanguage/tree-il/peval.scm     gnameg%operand-copyable?-procedureCR446R   h:]C2gerr  gs    C   %h:]C2gerr  gs    C ( . 3h:]C2gerr  gs    CE Oh:]C2gt-9d6212d37ae-6630    CU/0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      C Qh]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm    C5R Rh ]& C6gs  gfilenameflanguage/tree-il/peval.scm     gnameg!%operand-residual-value-procedureC SR44 R6R a h mh:]C2gerr  gs    C p v {h:]C2gerr  gs    C ~  h:]C2gerr  gs    CE h:]C2gt-9d6212d37ae-664b    CU/ R0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      C h]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm    C5 RR h ]& C6gs  gfilenameflanguage/tree-il/peval.scm     gnameg!%operand-constant-value-procedureC R44 6R   h:]C2gerr  gs    C   h:]C2gerr  gs    C   h:]C2gerr  gs    CE h:]C2gt-9d6212d37ae-6666    CU/ 0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      C h]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm    C5 R h ]& C6zgs  gfilenameflanguage/tree-il/peval.scm     gnameg%operand-alias-procedureC R44 6R   h:]C2gerr  gs    C  " 'h:]C2gerr  gs    C * 0 5h:]C2gerr  gs    CE Qh:]C2gt-9d6212d37ae-6681    CU/ 0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      C Sh]C   C]^h]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenameflanguage/tree-il/peval.scm    C5 R44+6R9 c e phih v]45Cngdummy  gcheck?  gs   ggetter   gexpr      C]^h(] 45$@6gx  "gtmp "gfilenameflanguage/tree-il/peval.scm    " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5+R qh ]& C6gs  gval  gfilenameflanguage/tree-il/peval.scm     gnameg#%set-operand-visit-count!-procedureC rR44 q6Rl hZ]CRgt-9d6212d37ae-66af  gt-9d6212d37ae-66b0    CU/ q0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      C h]C   C]^ hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/peval.scm    n C5 qR h ]& C6gs  gval  gfilenameflanguage/tree-il/peval.scm     gnameg!%set-operand-use-count!-procedureC R44 6Rl hZ]CRgt-9d6212d37ae-66bf  gt-9d6212d37ae-66c0    CU/ 0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      C h]C   C]^ hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/peval.scm    n C5 R h ]& C6gs  gval  gfilenameflanguage/tree-il/peval.scm     gnameg!%set-operand-copyable?!-procedureC R44 6Rl hZ]CRgt-9d6212d37ae-66cf  gt-9d6212d37ae-66d0    CU/ 0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      C h]C   C]^ hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/peval.scm    n C5 R h ]& C6gs  gval  gfilenameflanguage/tree-il/peval.scm     gnameg'%%set-operand-residual-value!-procedureC R44 6Rl hZ]CRgt-9d6212d37ae-66df  gt-9d6212d37ae-66e0    CU/ 0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      C h]C   C]^ hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/peval.scm    n C5 R h ]& C6gs  gval  gfilenameflanguage/tree-il/peval.scm     gnameg&%set-operand-constant-value!-procedureC R44 6Rl @hZ]CRgt-9d6212d37ae-66ef  gt-9d6212d37ae-66f0    CU/ 0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      C Bh]C   C]^ hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/peval.scm    n C5 R Ch ]& C6gs  gval  gfilenameflanguage/tree-il/peval.scm     gnameg%set-operand-alias!-procedureC DR44 C6Rl jhZ]CRgt-9d6212d37ae-66ff  gt-9d6212d37ae-6700    CU/ C0h^]L6Vga  gfilenameflanguage/tree-il/peval.scm     CS2hN]L6Fgfilenameflanguage/tree-il/peval.scm      C lh]C   C]^ hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenameflanguage/tree-il/peval.scm    n C5 CR mhT-.,3###45$ &  " 45"&  " 45$"  CLgvar gsym gsource  gvisit  galias  gsource  0 g copyable?   galias   gfilenameflanguage/tree-il/peval.scm ( ( -  0 -  8 /  ; / $ T /  \ 0  x 0   .   gnameg make-operandC nRf nh]L6gname  gsym  gsource   galias   gfilenameflanguage/tree-il/peval.scm 4  5    C nh]L6gname  gsym  gsource   gfilenameflanguage/tree-il/peval.scm 7  8    Ch@-.,3#$O6O6gvars ?gsyms ?gsources  ?gvisit  ?galiases  ?gfilenameflanguage/tree-il/peval.scm 2  3  . 4  ? 7  ?  gnamegmake-bound-operandsC oRf nh]6gvars  gsyms  gfilenameflanguage/tree-il/peval.scm ; <   gnamegmake-unbound-operandsC pR h]$&q  $V&G  &+ $("""""""& C6gop  gval  gw   gw  6 pgw  E ggval  gfilenameflanguage/tree-il/peval.scm >  A  ?   gnamegset-operand-residual-value!C qRPP qh@{]L& L " 4L5L&L CL6sgval  9gfilenameflanguage/tree-il/peval.scm T  U ,  U (  U   9 CP qh@{]L& L " 4L5L&L CL6sgval  9gfilenameflanguage/tree-il/peval.scm e  f ,  f (  f   9 CP qh@{]L& L " 4L5L&L CL6sgval  9gfilenameflanguage/tree-il/peval.scm T  U ,  U (  U   9 C h8r]L& L "4L>"GL6jgfilenameflanguage/tree-il/peval.scm [   _  1 Z   1 gnamegabortC rP qh@{]L& L " 4L5L&L CL6sgval  9gfilenameflanguage/tree-il/peval.scm e  f ,  f (  f   9 CP qh@{]L& L " 4L5L&L CL6sgval  9gfilenameflanguage/tree-il/peval.scm e  f ,  f (  f   9 Ch-.,3##&  " 45 $POO4O>"GV&  " 45$$"$"$D4&  " 45&  " 45>"y UX4&  " 45&  " 454  O5> X"/G4  >"X4O>"GCX4O>"GFCgop gcounter gctx  g effort-limit  g size-limit  gtag  \g_  I \gresults  I \gfilenameflanguage/tree-il/peval.scm I ! R  : R  ? R  N S  f W  W X  X X 8 X  Y  Y ) Y  Z  a   b  ) c  C a  L Z  c S    gnameg visit-operandC sR t u v w x y z { | h]$C$"K$"=$"/$"!$"$"$ 4 5 C $" $" $ 4 5 CCgprimitive-name  gargs  gfilenameflanguage/tree-il/peval.scm j k  k n  s n  } k  p  p   gnameg types-check?C }R     h(] 4M5$C4M56gsym  &gv &gfilenameflanguage/tree-il/peval.scm                 - &    & gnameg lookup-varCf    h@] 444& " 455554M5NCgvar  ?gnew - ?gfilenameflanguage/tree-il/peval.scm         -   = '  - )  - +   -   -  0   <    ? Ch]LO6|gvars  gfilenameflanguage/tree-il/peval.scm        gnameg fresh-gensymsC h@] &  " 45& C6gop  9gval  9gfilenameflanguage/tree-il/peval.scm     #        9 gnamegrecord-operand-useC q h`] &  " 45 $4>"G"& C6gop  Zgn  Zgcount  Zgfilenameflanguage/tree-il/peval.scm          %  *   +   D    Z gnamegunrecord-operand-usesC q N h-.,3##4L>"G&"$4>"G"& " 45& " 4 5& " 4 56gop gctx gval  gs  { gfilenameflanguage/tree-il/peval.scm      8   F   G   d  # {    5   gnamegresidualize-lexicalC  hH]"%$456456$(C""gsrc  Egvalues  Egfilenameflanguage/tree-il/peval.scm          7          E gnameg make-valuesC  f   { r | hH]L$"L$4L>"44L5L> GDgresults = Ggfilenameflanguage/tree-il/peval.scm        *   -   <   @  G    G Chr-13Djg_ gfilenameflanguage/tree-il/peval.scm       C     ho]L6ggt-9d6212d37ae-6b11  gfilenameflanguage/tree-il/peval.scm  %  C }h]45$454O> G$C $ 6 $$  664 O56456"456 &45$ 6"" gsrc  gname  gargs   gctx   g make-values   gargs   2gsuccess?  3 gvalues  3 gfilenameflanguage/tree-il/peval.scm           *       6   @   I  O   X  [   _   f  # h   m  $ o   t                         gnamegfold-constantsC                    z      .h0 ]i""""""s"""V"$&7    4L5$ 6C&7    4L5$ 6C&  45$ 45"$ "$ 4  56"$Y4 5$<(( 4L 5  $ 4  56C4  564  56$"}4  56"a4  564  56$&   $&w              &/4L 5  $4   5 6C"""""$M&@     4L5$6C"V"R$V&I      4L5$6C""$M&@     4L5$6C""$&C"w"s$&C"Y"U$&C";"7$&C""$&~  $g&Z  &C L45$,L$L45"$4 L56CC"""""""i"""|"-$"&3L $)L$L "$L4 L56CC!&3L $)L$L "$L4 L56CC"&3L $)L$L "$L4 L56CC#&3L $)L$L "$L4 L56CC$&3L $)L$L "$L4 L56CC%&3L $)L$L "$L4 L56CC&&3L $)L$L "$L4 L56CC&q  $Z&M  4'5$3L $)L$L "$4 L56CC"F"B">":"6$@(&3L $)L$L "$L4 L56CC""$@)&3L $)L$L "$L4 L56CC"="9$@*&3L $)L$L "$L4 L56CC""$@+&3L $)L$L "$L4 L56CC""$@,&3L $)L$L "$L4 L56CC"P"L$@-&3L $)L$L "$L4 L56CC""( gexp  gw > qgw  D qgw  K qgw  R qgbody  [ qgw ~ gw  gw  gw  gbody  gw gw  gtail-len  glen  gls   gn   gp-ls   ghead   kgw , Qgtail 5 Qgw  u gw  tgw   tgw   tgw   lgw   lgw   lgw   lgw   lgw  lgw " lgw ) lgw 0 lgbody @ hgw  gw   gw   gw   gw   gbody   gw  -gw   -gw   -gw   -gw   -gw   -gbody   -gw I gw  O gw  V gw  ] gw  d gbody  m gw  gw   gw  * {gw  9 wgw [ gw  a gw  | =gfilenameflanguage/tree-il/peval.scm      U G  [ G c H o I  t   K  K L M    O / Q  5 Q = R  B S & K S 3 M S & O S  R O    : A  @ A H B O D ! f C  l    <   <  =  >      8   8  9 + :  1   g 4  m 4 u 5  6     > %  E %  I % O % & R % > Y % 5 ^ % * b % g & $ k & 4 o & $ s &  {             )       ! $  ! 4  ! $  ! B  !               )       ! $  ! 4  ! $  ! B  !  %   /   3  9   =  ) B   F  K ! $ O ! 4 S ! $ X ! B Z !  a   k   o  u   y  ) ~      ! $  ! 4  ! $  ! B  !               )       ! $  ! 4  ! $  ! B  !               )       ! $  ! 4  ! $  ! B  !        #  )   -  ) 2   6  ; ! $ ? ! 4 C ! $ H ! B J !  Q             )       ! $  ! 4  ! $  ! B  !               )       ! $  ! 4  ! $  ! B  !     /   3  9   =  ) B   F  K ! $ O ! 4 S ! $ X ! B Z !  b   z   ~       )       ! $  ! 4  ! $  ! B  !               )       ! $  ! 4  ! $  ! B  !               ) #   '  , ! $ 0 ! 4 4 ! $ 9 ! B ; !  C   [   _  e   i  ) n   r  w ! $ { ! 4  ! $  ! B  !       gnamegloopCh(] OQ6gsrc  !gexp  !gnmin   !gnmax   !gconsumer   !gloop   !gfilenameflanguage/tree-il/peval.scm       ! gnameg inline-valuesC h]4M56gx  gfilenameflanguage/tree-il/peval.scm X   ]  ]   gnamegconstant-expression?C h0]L&C&  " 45 Cgop  +gfilenameflanguage/tree-il/peval.scm f   m  m  m  n  ( n  * n   + gnameg referenced?Cf qh y]4>"GCqgop  gval  gfilenameflanguage/tree-il/peval.scm  "   $   C    S O  R  q s  hT]^OQ"" (45  $44 54 55$<45(C44  554 5456("454 4 55 (C4  544  554 5456   "  4  5$      " &  " 4 5$       "&" &  " 4 5 $14 4 5>"G       "^  4 545$ "     "&    "45 "Lgops  g in-order?  gbody   gcounter   gctx   g build-result   g referenced?  gold   gvalues   geffects  gops*  gvalues  geffects  gnew & geffects  J gvalues  [ g effect-vals  gbody  gvalues  gop  geffect   gfilenameflanguage/tree-il/peval.scm _              &  -   1  2   7  " @  4 J   J   R t  S v  [ v  c w i y  l y ! x y  y z  {  y     &      '  0  '   ~          #          "                 &   )   E  H   M   Y   ] m  a m  b m i n   n   n        .   H   .                    :                             4   B   U   gnamegprune-bindingsChx]Cpgx  gres  gfilenameflanguage/tree-il/peval.scm        Chx]Cpgx  gres  gfilenameflanguage/tree-il/peval.scm        Ch]L$CL6gx  gres  gfilenameflanguage/tree-il/peval.scm           Ch@]U%4O >"GXCXFGEgx  @glimit  @gtag   @g_  5 @gresults  5 @gfilenameflanguage/tree-il/peval.scm         8    @ gnamegsmall-expression?CNh0]& " 45456gsym  -gop  -genv   -gfilenameflanguage/tree-il/peval.scm      !  % -    - gnameg extend-envC   h0] $ &  6CCgx  ,gr  ,gw   &gfilenameflanguage/tree-il/peval.scm     &    , C    hH] 4M5$"44M55& C6gsym  Fgv -gs - Fgfilenameflanguage/tree-il/peval.scm                  "  - *   -    F gnamegassigned-lexical?C     R s h]"45$454L5$" 45$& " 45 &  " 4 5$D&  " 4 5$";4 L 5$"&  " 45"n454M5$"44M55 &  " 45$ 4L 5DD45$m454M5$"44M55 &  " 45 $ ",""D $DDgx  g n-aliases  gvar   =gt   :gt  = gs  _ gt  gt  gy  gsym  Kgv   (gs  ( Hgsym  t gv   gs   gfilenameflanguage/tree-il/peval.scm                   /  3   7  =   H   _            :        ,                    - %   (   N   R   S   ^   b   b   c   m   n  1 t   w                  -                             >   gnamegfind-definitionCh]LLL6gexp  gfilenameflanguage/tree-il/peval.scm    *      gnameg for-valueC   h]!$y&n  $Z&O  &: (C$"(44M55$CCCCCCCCCgx  gw  gw  6 |gw  E zgw  ` vgfilenameflanguage/tree-il/peval.scm     c ]  f ]  n ]  r    gnamegmake-prompt-tag?Chy]L6qgval  gop  gfilenameflanguage/tree-il/peval.scm       Chy]4L >"GLCqgval  gop  gfilenameflanguage/tree-il/peval.scm        C   h0]4L5$4L5$ 4L5L6CCgval  )gop  )gfilenameflanguage/tree-il/peval.scm "  #  #  $   #  %  % %   ) C  r    hp>] 4L >"G4L445454544L54L5554LLLLL55LLLL66gval  ngop  ngexp  ` ngfilenameflanguage/tree-il/peval.scm &   -   /   1  1 ' % 1 > ' 1 ' ( 2 ' - 2 > / 2 ' 0 3 ' 5 3 > 7 3 ' 8 2 $ ; 4 ( B 5 ' K 2 $ Q 1  R   ` /  ` .  n    n C   f         pNh(] 4L5& C6gold  $gs $gfilenameflanguage/tree-il/peval.scm     +  &    $ gnamegnew-symC   ih]LLL6ygt-9d6212d37ae-8149  gfilenameflanguage/tree-il/peval.scm  !  :   !   C         z   i    h ]L6gvar  ggensym  ginit   gbody   gfilenameflanguage/tree-il/peval.scm i * k 6  l 6  m 6  j ,   C hx)]HL LL $JL4LL$L"L$ L"5L4LL$45"5L6L LL $QL4LL$L"L5L44LLL 54454LLL 555L64 LLL > G4 L > G4 4LL5L > GL$ L" GL$45" G4LL L> GL45454L54  LOL56!gnon-rest-gensyms vg rest-gensyms vgprovided-gensyms  vgdefault-gensyms  vg provided-vars  vg default-vars  vg rest-vars   vg rest-inits  ' vg default-inits  < v gfilenameflanguage/tree-il/peval.scm (  *  *   )   ,   - $ $ - , * . $ / . - 4 . 9 6 ,  9 0  C 1 $ D 2 . H 2 = J 2 . M 2 ( R 3 ( T 0  X +  _ 5  ` 5  d )  i 7  s 8 $ z 8 ,  9 $ 7  ;  ; $ ; 4 ; $ < * > + > B > + ? + ? ; ? + < * < $ ;  6  X  X * X  V  Z  V  \  \ " \  V   ^   ^ !  ^ -  V   `   a "  a 1  a " ! a  & b  * V  - d  6 d $ ; d  ? V  F f  O g  X h  a i  v e J  v gnameginlined-applicationC mD C^ fh0]4L4LLLL54LL55L6gtmp  )gfilenameflanguage/tree-il/peval.scm           *      )       )    ) gnamegabortC         {     h`G] H44L&"54L5455K(JC LJ454L56?gelts  Zgtest  Zgfilenameflanguage/tree-il/peval.scm         ,      3   8    # %  8 )  # *  # 0  2 2  # 5   7   <  % @   J  0 Q  0 V  4 X  0 Z    Z gnameglpC  i  hX]LLLL6Pgfilenameflanguage/tree-il/peval.scm   1      C       ho]6ggt-9d6212d37ae-9754  gfilenameflanguage/tree-il/peval.scm    C r              h` ]I"""|454 M5NL445 54 4 554 LL4L4 LLL5556$s & LL4L4 LLL556 & LL4L4 LLL556& LL4L4 LLL556" "$&  ""|454 M5NL445 54 4 554 LL4L4 LLL5556 & LL4L4 LLL556 & LL4L4 LLL556& LL4L4 LLL556""D&7   ( LL4L4 LLL556""$L(A ""|454 M5NL445 54 4 554 LL4L4 LLL5556 & LL4L4 LLL556 & LL4L4 LLL556& LL4L4 LLL556""D&7   ( LL4L4 LLL556""$( ""|454 M5NL445 54 4 554 LL4L4 LLL5556 & LL4L4 LLL556 & LL4L4 LLL556& LL4L4 LLL556""D&7   ( LL4L4 LLL556""$(""|454 M5NL445 54 4 55 4 LL4L4 LLL 55 5 6 & LL4L4 LLL556 & LL4L4 LLL556& LL4L4 LLL556""D&7   ( LL4L4 LLL556""$0&# 4L56"""+"'"""i"e&7   ( LL4L4 LLL556"" "$S&F  4L5$*   LL4L4 LLL556""" g alternate  `gt  gfailure  f gw  gw  " gt  3 gfailure   gw  7 _gw  t gw  { gt   gfailure   gw   gw   gw   gt   Zgfailure  6 Xgw   gw  & gt  7 gfailure  gw  ; cgw  | gw  gw  Xgw  / Tgw  6 Tgfilenameflanguage/tree-il/peval.scm [  \  =  C   C   C   C    D % (  ! ,   .   4 F  7 F  < F # = H  A I  B J  F J & J J 3 K J 7 P J  R H  U G  V K  Z K * _ K ? c K * d L ' f K  f K  i v  p x  s y  x  v  E  = x  y  x  v  = x  y  x  v  = x  y  x   v   =  \  ( = - C  1 C  3 C  3 C 6   > D % F  ! J   L   R F  U F  Z F # [ H  _ I  ` J  d J & h J 3 i J 7 n J  p H  s G  t K  x K * } K ?  K *  L '  K   K   v   x   y   x   v   E   =  x   y   x   v   =  x   y   x   v   =  x   y   x   v   = F x  I y  W x  [ v  _ = c \   =  C   C   C   C     D %   !        F   F   F #  H   I   J   J &  J 3  J 7  J   H   G   K   K *  K ?  K *  L '  K   K   v   x   y   x   v   E   =  x   y  " x  & v  ) = 6 x  9 y  G x  K v  N = [ x  ^ y  l x  p v  t =  x   y   x   v   =  \   =  C   C   C   C     D %   !        F   F   F #  H   I   J   J &  J 3  J 7  J  " H  % G  & K  * K * / K ? 3 K * 4 L ' 6 K  6 K  9 v  @ x  C y  Q x  U v  Z E  Z = j x  m y  { x   v   =  x   y   x   v   =  x   y   x   v   =  x   y   x   v   =  \  , = 1 C  5 C  7 C  7 C :   B D % J  ! N   P   V F  Y F  ^ F # _ H  c I  d J  h J & l J 3 m J 7 r J  t H  w G  x K  | K *  K ?  K *  L '  K   K   v   x   y   x   v   E   =  x   y   x   v   =  x   y   x   v   =  x   y   x   v   = J x  M y  [ x  _ v  c = g \   k   k &  k 1  l   j   =  x   y   x   v   =  \   _ ' * \  ? c  B d  P c  T a  X \ .  ` gnameglpC t hx]Q"$&  $&~    $Z&N  &9   O   LLLQ   6CCCCCCC$&  $&}  $g&Z  &C $1(&  45""""""""""gc  ugw  gw  gw  6 gw  < gw  C gw  J gw  e gw  s gw z glp gw mgw  mgw  egw   ]gw   Ygw  . Qgw  5 Qgw  < Qgfilenameflanguage/tree-il/peval.scm M   N [ N ? T Q S U N   u gnamegsimplify-conditionalC          hW]L6Ogfilenameflanguage/tree-il/peval.scm &  '   Chc-13C[gargs gfilenameflanguage/tree-il/peval.scm &  C                      h]LM6gexp  gcounter  gctx   gfilenameflanguage/tree-il/peval.scm        gnamegvisitC o h]L6gnames  ggensyms  gvals   gbody   gfilenameflanguage/tree-il/peval.scm        Ch]LM6gexp  gcounter  gctx   gfilenameflanguage/tree-il/peval.scm        gnamegvisitC h]LL6gnames  ggensyms  gvals   gbody   gfilenameflanguage/tree-il/peval.scm        C   h]$&z   4L5$" 45& " 45&  " 4 5$CCCC gexp  gw ! gt  , Ggop  G gs  c gfilenameflanguage/tree-il/peval.scm     $   ,   <  @   D  G  L  " c      gnameg lookup-aliasCh]LL6gexp  gcounter  gctx   gfilenameflanguage/tree-il/peval.scm  (   *   C   h0](4>"G"L6gnames  .ggensyms  .gvals   .gbody   .gfilenameflanguage/tree-il/peval.scm       /  6   / .    . C                 h(] 454 M5NCgelt  $gnew $gfilenameflanguage/tree-il/peval.scm               $   !    !    $ C h]6gt-9d6212d37ae-af4a  gt-9d6212d37ae-af4b  gfilenameflanguage/tree-il/peval.scm  "  C N     h0] 45$C45$C6gx  ,gt ,gt  ,gfilenameflanguage/tree-il/peval.scm %   % " %   % -  %  , % 7  , C s  h8/?,35OOLQLQ$4>"G""."."+"*"%"$"#"""!" ("""C""""""d" """""":""-"?$+&     O LQ 4L54L5  4 > G 4 O ?$   L O @4 > G4    O?$ L  L O@   4L 56 &C     4L5454L 56456456$&  "$(:  ( "44L 5 56  4L 5 4 5$44 5 5  "|4 5$    "e    "V456 ">""$X&K              4L 54L54L 455OQ4L 5$"x $q $"b$Z&L  $2 &$  !&  $$"&   $&"(04#5$4$5$"k"e"`$F$2%&$   """" "m"""""""""""$C&  $  "(?4#54#54#54'455"$~$j$N$2(&"\"4"/"$""" "4(LO 5$4L5"6 "t"p$"&   $)6*$+6,$C4-$4L5"5 4. 4/M5  $ " M5N C""$&   "" "i"""04L15456 $ 2&      43L  5  $" 43L 5 $4L5 "  "b $\ 2&O       44  4055"""04L15456"" $ "&     $ &        &}    &V45545 5 $ 45 5" 4/ M5$" 6O    Q$" $"$04L154564748595$"4:5$485$;&  " 4<=5$e"U&"Q;&  "4<>>"G;&  " 4<?5""""45"@UHHAOLQ485$4BLL5""$4C5" 4DL L5K4L45J5K$4EJ>"G"JXCXFGE""" """ $T  &G   4F 5$-45 4L   5  $ C0  6""" $|  &o   4G 5$U 45 "Y"k"""""? $+   4L   5  $ C0  64 56 $5    "  $  $($H&  $$(44)55"f*$4I5$> J$K" L$M"+44N55$"6()44+55"4OP54554.QRM5N44RSO Q455"m4I5$4 J$K" L$M"+44N556()44+55"0 4+56""""""J &"L &""" $    T &r $g (\ $LH&?  $(4+5";""""""" $    U &r $g (\ $LH&?  $(4+5""k"g"c"_"["W"S $    T & $ ( $&  $s &f  V&O $=4404WV555""""""""}"y"u"q $    U & $ ( $&  $i &\  V&E $34455""""""""""" $    T & $ ( $&  $ &r  X&[ $I$4()45" """""""""""" $    U & $ ( $&  $ &r  X&[ $I$4()45"6""""""""""""""" $~  &q   4Y 5$W"k 45  $I    X &) $  "  0 6$("ZO Q$q&d  $I &<  V& 04WV560 66666$7H&*  &04WV56"4"0","" 0 6 0 64 56&"*$  """"| $p    [ &S $G (; $'H&  4\5""" """  " $$ (  [ &""` "Y"U $   ] &""0 ") $   V &"x" " $b    X &B $3  $( """"""""  "" $D& 4)5"4+5 44 55  """"""4L,5 "l""$&  $| &o  "D   $2    4^_5  $ 4^ 5"  $   "$"v" $4#5$("x"""I$4L5"445504L 56$&  $ &  V&y "f((40 455"$-$4`4M55"$ "" """""""$&  $ &  X& $$4`4M55"$j$_(T$4`4M55"$040 455"""" " """"""$VH&I  $34a540 455"4"""4 5"w""$"%"  ""b&"!&""d"`"\"X"T$&  $ &  &   (&)6C4 5 "04W5 6$"*$"$" $<4cd 5$+44  55  """~"_"["W"S"O$L&?  $( &  e&   $     $ (   $ "&     $ &   &p  &X (G   &)4f40 5 5""0","("$" """"" """"""$g&     hO L Q 4L*5 "' 4i 4L54L 556 $F H&9    $" """"$" $- & $)6*$+6C""$5j&(   k4L56""$5l&(   m4L56"`"\$Gn&:       o 4L 56" "$p&C""$p&x   4F5$V   &D4qrOs5 4t 5$%4u 5  4uv5&W6CC"_"["W"S$w&C"8"4$dw&W  4F5$=4/M5$C4xL54y5$"SC"""$@z&3   {4L54L56"v"r$,|&  }4L56";"7$L~&?     45454L 56""$&     4L54L54L 5   4`4M 55$b4`4M 55$    64O5 4. Q M5N4  4  4 5564`4M 55$F4O5 4. Q M5N4  44 5  564O54O5 4. Q M5N4.Q M5N4   44 5 4556"D"@$&&   4L5 $&          &    &a45 5 $" $ 45 5" 4L  5$4L5"""    ""  $ Cf 4L56"" $&      HH H H H O LQ4L5K 4LJ 5K 4J J 5K 4LJ 5K 4L J 5K4IJ5$JCLJ JO6"Q"M$&        HHH H H OLQ4L5K 4LJ 5K 4J J  5K 4LJ 5K4L J5K"LJ JO64IJ5$4cL  5$JC"""p"l$R2&E      O Q 4L5 4L 5 4  LO4 55 4L 54L 54I5$)4455"I"L O645$l4K45 5$V454 54444554555"پ"u"q"" $2&s  4^5$ 4^5"  $  "$"ٵ" $4# 5  $ (  4^5$ 4^5"$ "$"O"|$N4#5$:(/ 4^5$ 4^5"$ "$""$4#5$($}&p  $Z &M   V &6 ! ""$"&" #" $$$$ &$ $ %"" &&$&&('4^5)($ 4^(5"**$ *)"$""\,)$.4#-5.+$+(+//$/%&/ / 00&/ 11&4/1M522$2"414M55222Q& 2 " 4<252 $s445!5524LO253444 254354!540#'4.423555544"s""""ּ"ָ"ִ"ְ+$+.+,.--,+""֋(*-,+""xb%&"3!%&"'"\"X"T"P"L"H"D"@"<"8"4"0$"*" """$"""u"ռ"ո $         ""Փ    ""Հ"|$&     4/5  $ " 45   & " 4< 5  Q&  " 4< 5 $.4L 5 4 5$ C 4)564L >"G & " 4< 54L 56"u"q$%&   "&)6&  " 4<5$"1&L6& " 4<5  Q&  " 4< 5 $L6&  " 4<5$47&  " 4<55$1&  " 4<5  "4&"LL5  $p4`4M 55$.4I 5  $"4 5  $"4y 5  $F&"$-&   "4<>"G" C & " 4<5  Q&  " 4< 5 $ C,&1" L 64: 5$4L L5$ C""" L 64L L5$4: 5$" C"&  "4<>"GL 6L6L64/5$" 45"5"y"u$&*$+6C"K"G$H&$)6C""?gexp  /5genv  /5gcounter   /5gctx   /5gfind-definition   /5g for-value   /5gw  gw  gw  gw gmake-prompt-tag? gtag  gbody  gvals  gvals  O gw   gw   gw   gw  gw   gw   gexps   geffects  gw / fgw l gx l ghead } gw   Cgw   Cgw   Cgw  Cgw  Cgw  Cgw % Cgw , Cgw  3 Cgvars  > Cgnew  G Cgenv  ] Cgnew-sym  g Cgbody  y Cgw   gw   gw   gw   gx   gw   gls  " gp-ls  " gsym  / Xgw  b gw   gt   Cgw   gx   gls  ( gp-ls  ( gp-ls  ( gp-ls  ( gold  C mgname  C mgkw  C mgw  w gw   gx   gw   gx   gw   gw  _ gw  e gw  l gnew  gx  gw   gw   gw   gproc  gw i 5gt z gv  gw  gw  gw   gw   gw   gexp   gw \ gw w gw ~ gw  gw   gw   gw   gw   gw   gnargs   gnreq   gnopt   gx   gkey   ginlined-application   gt  - Pgt  gfound  7gcounter  $gtag  S g new-counter  ^ gresult  ^ gabort  q gt  g_   gresults   gw ? }gargs U ygt d ygw gv gx gt gw ! Pgx ! Pgw  6 0gx  6 0gw  K (gw  f  gexp  gmember  gexp  !gt  ( grefcount  1 Mglp  l gexp  gmember  gexp  gw a gx a gw  ~ gw   gw   gx   gexp   gw  vgx  vgw   jgw  ' bgw  - bgw  9 ^gexp  H ^gw  Tgx  Tgw   Hgw   @gw   @gw   8gw   4gw   0gx   0gexp   0gw e (gx e (gw   gw   gw   gw    gw   gw   gx   gexp   gw 9 gx 9 gw  V gw  l gw  r gw   gw   gw   gx   gw   gexp   gw # gx # gw  @ gw  V gw  \ gw  w gw   gw   gx   gw   gexp   gw % gv B gw Q gx Q gw  j xgx  j xgx  u gw   pgfailure   .gw   &gw   &gfailure   &gw   gw   gw  B hgw  H hgx  z gx   gv  9gw  Egx  Egw   0gw   #gw [ qgw  gw  gw  .gx  .gx   gres V gexp k gw   Sgw   Sgw   Kgw  /gw  +gx  +gtail-len  +glen  +gls  = gn  = gp-ls  = gargs  M gw  ` gtail*  f g speculative?  f gargs   gw   ~gw   vgw   rgls   jgexp   2gw  < fgw   ugw   mgw   igw   egx   egw   Ygexp  ? Ugw   gargs*   gexp   gw   gw  o Tgw  u Tgw   Lgw  Hgvals  Hgexp * @gw  p gw  v gw   gw  gw  gx  gw  gw  gw   gw   gw  ( {gw  A wgexp  ] sgw   {gw   {gw   {gw  {gsimplify-conditional  {gv  {gw C sgw   gw   gw   gw   3gw   3gw   3gw  O gw  U gw  \ gw c gw j gw   0gw   0gw   0gw  ,gmodule  (gvar  %gw  l gexp   gw   gw   gw   gw  ! <gw  ' <gw  X gw  ^ gw  e gw l gw  "+gw  "+gw  "+gw "+gpre "+gbody "+gpost "+gpost-sym !% !dgpre-sym !{ !gpre-sym ! "+gpost-sym  ! "+gw  "G #\gw  "M #\gw  "T #\gproducer "c #\gw "~ #2gw " #/gw " #,gw " #)gw  " #!gnmin  " #gnmax  " #gt  " #gt #< #\gw  #x $gw  # $gw  # $gw # $gvars # $gnew # $gops # $genv* # $gbody*  # $gvisit  # $gw  $2 $gw  $8 $gw  $E $gw $L $gw $S $gvars $Z $gnew $Z $gops $Z $genv*  $Z $gbody*  $Z $gvisit  $m $gw  % &Pgw  % &Pgw  %" &Pgw %) &Pg lookup-alias %3 &Pgvars %A &Pgnew %J &Pgops %i &Pgenv  %x &Pgbody  % &Pgexp  % %gsym  & &Hgpairs  & &Hgexp  &2 &Hgw  &l *gw  &r *gtail-len  &{ *glen & *gls & *gn & *gp-ls & *gnames & *gw  & *gw  & *gtail-len  & *glen  & *gls  ' *gn  ' *gp-ls  ' *ggensyms  '$ *kgw  '7 *cgw  '> *cgtail-len  'G *cglen  '\ *cgls  'z *Tgn  'z *Tgp-ls  'z *Tgvals  ' */gw  ' *'gw  ' *gw ' *gw ! ' *gw " ' *gw # ' * gw $ ( * gw % ( *gw & (+ )gw ' (: )gx ( (: )gtail-len ) (E )glen * (Z )gls + (x )gn , (x )gp-ls - (x )gargs . ( )gw / ( )gw 0 ( )gw 1 ( )gv 2 ( (gs 2 ( )gtmps 2 ). )gtmp-syms 3 )> )gexp 4 )} )gw . ) )gw  *9 *Pgw  *u *gw * *gw  * +gw  * +gw  + +gw + +gt + +1gop +1 +gs +M +mgexp + +gw  , .gop  , .gt  ,7 .gs ,o ,gval , -gt -, .gt -K -ygt -_ -vgs - -gt  . .gfilenameflanguage/tree-il/peval.scm   5   6   O       *      *         #  C ! R      8         *     : '      *     :        !  7  K   P   S   b   d   f   i  q   {  * }   }                                          %       6   >   A   G   J   S   ]   ]   m   y        6   :   ;   E   [        L  * U  < _  * `   p      /   0   C  G   w   |                 &      *                                     -   7  * 9   :   D  D  r   z             *                            (  * *   +  " 5   =   $   $  %   $  &   & !  $            $ - u  - u  @ u # L u < M u 3 T t  Y   c  * e   f x " p w  q y  t y  y  y  z  t         !           " $   $   8   N   P                              M   U  X   d   y   }              x   y    .  &              "    *  2  *  %        0  (     !   "   &  % (   (   +  2 1   4   <  - D  ! H   J   N   T  " W   \  & a  / l              "    %  -  %        9  1          7   /                 @   H   ^   b         %   <   %            0   4       ,   9   ,                 ,                 ,              9  B              *   A   *   &      1    .   M  2 Q   V  * [  A ]  * b  & d   h   z                         =   A  & E   F   P   V   Y   ^  - g  ? i  - k   k                1          f   j  x  y     *            $   9            *      $           1      2   5  D  E ]  H ]  P ]  U   Y     ]   ]   ]          ]   ]   ]  !   %  &   /  . :  ; <  . =  ( ?   ?  U   Y            3                                         %   <   %           #                 ,   4 #  E &  ? (  , *   *   @   L   K   P  & W  E Y  & ]   ]   s   w        *     |       (  *  * |  K ~ _       7   8   7   9          *     5     %   /  * 1   3 3  7   w     *     1      &   &   (  (  )   )  *   *  " +  ,   z                           *      *         .   8  * :   <   @   s   |  /          *    *     ]  ]  ]  !  ! ]  ! ]  ! ]  !  !  !   !#  # !%   !%  !(   !0  $ !7  ! !;   !=   !C   !H  # !M  3 !N   !W  % !\  : !`  % !b   !d  !e ]  !h ]  !p ]  !t  !u   !y  $ !{   !{  !~   !  & !  ! !   !   !   !  $ !  3 !   !  ' !  < !  ' !   !   !   !  $ !   !  7 !  ? !  7 !  !   !  & !  ! !   !   !   !  & !  ! !   !   !   "  ) "  A "   "  ' "  < "  ' "  ' "#  < "'  ' ")   "+   "/   "W   "a  * "c   "c   "h  "   "   "   "  5 "  = "  - "   "   "   "   #<  #N   #\  #`   #   #   #   #   #   #   #  #  $  $   $Z   $u   $   $   $   $   $  $  $   $  $  ! $  $   %9   %A   %D   %J   %M   %_  ( %i   %i   %l   %x   %{   %   %  %  %   %  ( %  5 %  ( %   %  %   %  %  %   %  %   %   %   %  %   %   &  &   &   &   &  &"   &#   &.   &0   &2   &2  &H   &T   (  (   (   (  (   (   (  - (   (   ) ~ ) }  )!   )$   ),  2 ).   ).   )1   )>   )A  )F   )O   )X   )a   )h   )m   )y   ){   )}  )}  )   )   +   +   +&  +*   +.  +1 j  +6 k " +M k  +n k +s k +t   +~  * +   + l + m  + m  + o 0 + o & + o  + q  + r * +   +  * +   + r  +   ,   ,   ,  ,  ,  ,7  ,K   ,O  ,U  ,X   ,o  ,  ,  ,   ,  , $ , $  , $ ,  , '  , ' -   - * - * 2 - * % - * ; -, * -,  -5 ]  -8 ]  -@ ]  -D 0 -E 9  -K 9  -Y :  -_ 9  -m ;  -} 0 - B - B  - B  - B 1 - B ( - B  - E  - G " - G  - G  . 0 . M  . 0 . W  . P  . P  .' P  .( Q  .4 P  .M c  .M \  .N \  .Z \  .[ ]  .g \  .u 7  . 8  . h . # .   .   .   .  .   .  .   .   .   /   /   /%   /*   /1  =  /5 gnamegloopCh-/03#45## (# # # # dH H HO O  O   O   Q  Q  Q Q$Q&  45"(&  45""K45K 4 O5K O     Q6gexp  }gcenv  }genv   }goperator-size-limit   }goperand-size-limit   }gvalue-size-limit   }g effort-limit   }grecursive-effort-limit   }glocal-toplevel-env  ` }gstore ` }gcompute-effects ` }g lookup-var }g fresh-gensyms }grecord-operand-use }gunrecord-operand-uses  }gresidualize-lexical  }gfold-constants  }g inline-values  }gconstant-expression?  }gprune-bindings  }gsmall-expression?  }g extend-env  }gw  gw  gloop  E }gfilenameflanguage/tree-il/peval.scm t  t %             V  E   {   }    } goperator-size-limitS goperand-size-limitS gvalue-size-limitS g effort-limitS grecursive-effort-limitS gnamegpevalg documentationf}Partially evaluate EXP in compilation environment CENV, with top-level bindings from ENV and return the resulting expression.CRCgm  ,grtd $ Ngrtd B Cgrtd | }#gfilenameflanguage/tree-il/peval.scm   G E  L  W ^ & m  y >[ ?{ k l; mi n r s ue w  y  ( (  2 б ; i >  I ܬ j Ē t  Ĕ C62.0/ccache/language/tree-il/cse.go000064400000127367151463412640012524 0ustar00GOOF----LE-8-2.0߮]4h] gguile  gdefine-module*   glanguage gtree-il gcse  gfilenameS flanguage/tree-il/cse.scm gimportsS    g primitives   geffects   gice-9 gvlist   gmatch   gsrfi gsrfi-1   gsrfi-9 !  "! #gsrfi-11 $# %$ &gsrfi-26 '& (' )"%(  *gexportsS + ,gset-current-module -, ., /gmake-syntax-transformer 0/ 1/ 2g *logging* 3gmacro 4g identifier? 54 64 7g syntax-object 8gtop 98 :gribcage ;gid <; =gm-9d6145bdb05-25f0 >=8 ?> @fl-9d6145bdb05-25f7 A@ B:<?A C: Dgx ED Ffl-9d6145bdb05-25f2 GF H:E?G I9BCH Jghygiene KJ L7IK Mg $sc-dispatch NM OM Pg_ Qgeach-any RPQ Sfl-9d6145bdb05-25fa TS U:E?T V9UCH W7VK Xgsyntax-violation YX ZX [f-source expression failed to match any pattern \glog ]gany ^gfree-id _gquote `gm-9d6145bdb05-25fd a`8 ba cfl-9d6145bdb05-25ff dc e:Ebd f9Ce g7_fK h^g ih] jiQ k]j lgif mgdummy ngevent ogarg pmno qa99 rfl-9d6145bdb05-2602 sfl-9d6145bdb05-2603 tfl-9d6145bdb05-2604 urst v:pqu w9vCe x7lwK ygand z7ywK {72wK |gor }7|wK ~geq? 7~wK 7wK { gmemq 7wK 7_wK { glog* 7wK g module-ref gresolve-interface g pretty-print  gnewline g vlist-null g tree-il-fold g  g vhash-consq gbuild-assigned-var-table gnegate-primitive gnot gsymbol->string g string-ref g string-length gboolean-valued-primitive? gtest g gboolean? g  g gboolean-valued-expression? gvalue g gvalues g  g g  g gsingly-valued-primitive? gsingly-valued-expression? gmake-application gmake-primitive-ref g make-const g  gmake-conditional g vector-length   g tree-il=? g vlist-length g tree-il-hash g vhash-assoc g vlist-ref gerror   fno matching pattern glambda g effect-free? gexclude-effects g tree-il-src g lexical-ref? g vhash-cons gmake-lexical-ref g vhash-assq gmake-effects-analyzer gvhash-fold-right greverse g constant? geffect g lambda-case? gvoid? g make-void g  g make-sequence g sequence? gappend g sequence-exps g g make-prompt g g make-abort g  gmake-lambda-case ghashq gmost-positive-fixnum g make-lambda gequal? g gmake-toplevel-set g gmake-toplevel-define g  gmake-module-set g g make-dynset g g make-dynref g g make-dynlet g  g make-dynwind g  gmake-let-values g gmake-fix g g make-letrec g gmake-let gmake-lexical-setC5hp]4    )*+54.>"G41236h]]6Ugid  gfilenameflanguage/tree-il/cse.scm  n    CLh*]C"gid     CORWh)]C!gx     CZ[h@]4?$@45$@6gx  :gtmp  :gtmp  # :gfilenameflanguage/tree-il/cse.scm n   : g macro-typegidentifier-syntaxC52R41\3Okxz{} h0Q] CIgdummy  0gevent  0garg   0  0 CZ[h(] 45$@6gx  "gtmp "gfilenameflanguage/tree-il/cse.scm r   " g macro-typeg syntax-rulesgpatternsgquotegeventgargg...C5\R\hH-1344554>"G4>"GDgevent Cgargs Cgpp   Cgfilenameflanguage/tree-il/cse.scm x y y   y +  y   z   y  y   {   {  ) {  2 |  C }  C gnameglog*CRho]Cggexp  gres  gfilenameflanguage/tree-il/cse.scm    Ch8] $,&     6CCgexp  8gres  8gw  ! 2gfilenameflanguage/tree-il/cse.scm    2   8 Cho]Cggexp  gres  gfilenameflanguage/tree-il/cse.scm    Ch(-.,3#6gexp $gtable $gfilenameflanguage/tree-il/cse.scm $  $ gnamegbuild-assigned-var-tableCRh@] 45$C&C454455?C g primitive  :gt :gchars % :gfilenameflanguage/tree-il/cse.scm            %  (  - $ 4 6  9   : gnamegboolean-valued-primitive?CRh]"@"C$+&  45$CC""$L&?  $)&  45$C"y"u"q"m"igx  gctx  gw  ) >gw  _ gw  z gfilenameflanguage/tree-il/cse.scm         <  =  F   gnamegboolean-valued-expression?CRhV]LCNgfilenameflanguage/tree-il/cse.scm       C hpI]2"OQ$&  "&C6$m&`  &: "&C6$(C""&C6"}"y&C66$&C&C&C&C &C &C&?  $)&  4 5$C"""""Agx  igctx  igfailure   gw  , gfailure  0 gw  ^ gw  m gfailure  q gfailure  gw  + agw  F Y gfilenameflanguage/tree-il/cse.scm    i gnamegsingly-valued-expression?CRhq]45L6igfilenameflanguage/tree-il/cse.scm   3   9     Ch]2"OQ$y&l  $Q&D  45$ 445564566666$&   6 &   6 &4     4L54L56&p  $Z&M  &6 $$(4 5$C""""""~"z"vxgexp  gctx  gfailure   gw  ' gw  - gfailure  1 gw  L gw  ^ ugw  gw  gw  gw  gw  gw  gw  gw  ! gw  < gw  K |gw  ^ tgfilenameflanguage/tree-il/cse.scm    e  i 0 q  u  y  ~ 3  9        "  :     a  m    gnamegnegateChG]$"$w4$"5 $V$" $" $" 4L5$L$LCCCCC?gv1  gv2  glen  * gw  F gw  l gfilenameflanguage/tree-il/cse.scm        8  <  K  O  ]  a  o  {     gnamegentry-matches?Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      C h]dOQ45454O5$n"c$X45"$   $4 5  $      $&$ "$ 4 5""$C UU $"&UU  $ "C4   564   564   56$<   &'UUUU $ "C""C "Cgexp  geffects  gctx   gdb   gentry-matches?  glen  gh  gn  = gv  O gw b Jgx b Jglen t =gw 0gw 0gw  0gt  0geffects  geffects    gw a gfilenameflanguage/tree-il/cse.scm      % 9  = B  F G     , "     %  ( " .  1  {              gnamegfind-dominating-expressionC h@q];4455$"C4L5$ 4564L4L55$ 456C$&$  45$C6&  ${ &n   &W $E(:4L5$&    6CC"""""""Cigexp  ;geffects  ;gdb   ;gw  v gw  | gw  1gw  1gw  )gw  %gw  gv  gw   gfilenameflanguage/tree-il/cse.scm                         (  2 ,  0   3   <  =  @  & F  2 H  & L  A P  T   W   `  b        !             !  #  ; gnamegfind-dominating-testChw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]-(C4M5$"45$"34545 4  O5 "tgenv  gnames  gsyms   gexps   gdb   gname   gsym   gexp   gt  ! 8gv  R ugh [ r gfilenameflanguage/tree-il/cse.scm '   (   *   * &  * 7  *   +  ! +  / ,  < +  I # # R #  R #  U $  [ #  ^ %  x /  { / # ~ / . +   gnameg augment-envCh#]$"$t4$"5 $S$" $" $" $" L6CCgv1  gv2  glen  * gw  F gfilenameflanguage/tree-il/cse.scm 2   3  3   3  3  8 3  < 3  K 3  O 3  ] 3  a 3  p 3  t 3  5   gnamegentry-matches?Ch@]+ $C45"$$45 $}   UUL $"&LUU $">C456456456$E&0LUUUU $"C""gdb  =gbase  =gn   =gt   =gv   =gw  * glen  > gw  R geffects  f geffects  gw  9 gfilenameflanguage/tree-il/cse.scm 8   9  9   : f @  @ A  A ' A  :  =  ! = & >  ) > ' 3 >  9 :   = gnamegunrollChw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      ChX]OOQQ454455$4O5$4545" $4  5  $     $4  5 $v     4 5$A"   "{ $ 4 5$ 4 56""C4 564 564 56C   "CCgexp  Xgeffects  Xgenv   Xgdb   Xgentry-matches?   Xgunroll   Xgh  & Xgenv-len  e Tgdb-len  e Tgn m Jgm m Jgv  Hgw ;gx ;glen  .gw  !gw  !gw  !gw  !gniter  !gfilenameflanguage/tree-il/cse.scm 1  C & C  ) D , D  = D A D  B E W D  X F  _ G  e F m H r I  v I  w J  L ' L $ L  M  M  P & P - P " N  N ' N  N 0  N "  O 4  O " " J  J H "  X gnamegfind-dominating-lexicalChg]L6_gsym  gfilenameflanguage/tree-il/cse.scm    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    ChP]$64LLLL> G45"45Dgin  Jgout  Jgdb*   Jgx   ?gdb**   ?gfilenameflanguage/tree-il/cse.scm p   q q  r )  r 0  r )  r % t  * t  + f  ? t  @ u  J u   J gnameglpCh(] OLQ6gexps  $gdb  $genv   $gctx   $glp   $gfilenameflanguage/tree-il/cse.scm o   p  p  $ p   $ gnamegparallel-visitCh9]94L5"$4L5$h$K45 $,    &C"456456456C "g1gsym  genv-len gn   gv  ! gw  - glen  A gw  P xgw  \ xgfilenameflanguage/tree-il/cse.scm x   S  S   T   U  U   V l X  r Z  x Z  y V T   Ch(] 4MLO5 Cgexp  &gx  &gfilenameflanguage/tree-il/cse.scm z   x   {   & gnamegbailout?Ch9]94L5"$4L5$h$K45 $,    &C"456456456C "g1gsym  genv-len gn   gv  ! gw  - glen  A gw  P xgw  \ xgfilenameflanguage/tree-il/cse.scm x   S  S   T   U  U   V l X  r Z  x Z  y V T   Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Chp]*4MLO5"4L5$4LL5"$D4L5$4LLL5"$D"0L454O5D45$ L&"L $D""L &4 5$"`4 4  55$"A45$"*4 4 55$4LL5"$45$D45D""gexp  pgdb*  pgeffects   pgt  3 gt  ` gv  gh  gt  Igt   F gfilenameflanguage/tree-il/cse.scm }   x   ~     #  $   3   A   B   N  O   `   n   } ~           #                 %             *  , . 2  3  M  N  X  ^  _   h  3  p gnamegreturnChw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    ChO]#$(]4L4L5LL> G(L456L4L4554564L4L5L> G4 5$4 4 55"C4 5$"(4 5" 456Ggin  gout  gdb*   gw   mglast  / mgdb**  / mgw  s gx  s ghead  gdb**   gfilenameflanguage/tree-il/cse.scm (   )  + '  f  . + ' 2 + < ,  A f  M -  P .  U . - \ . 6 ^ . - ` .  a f  m .  p ) x 1 ' } f  1 G 1 ' 1 3  2  4  4  4  4  5  2  6  8  f  8  ) $   gnameglpChw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch0]4LO5$O6Cgk  ,gh  ,gout   ,gfilenameflanguage/tree-il/cse.scm ^   _  _  ) `   , Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch0]4LO5$O6Cgk  ,gh  ,gout   ,gfilenameflanguage/tree-il/cse.scm ^   _  _  ) `   , Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Chw]LCogx  gsize  gfilenameflanguage/tree-il/cse.scm      Ch]O6~gk  gh  gtail   gfilenameflanguage/tree-il/cse.scm f   g    Cchr]OOOLQLQLLLLQ""["'""%" {" " e" " " " '" " " u" """b""a"$q&4  O L Q  6&      4L> G  4L 4   5 > G 4L 4   5> G4   5 6&      4L> G  4 > G 4L > G4  54 54  56456456$&              4 > G4L> G$4L> " " G4    5 $"6""$y&l     $24L 45 4  O5  > " " G  4 56""$j&]    4L> G  4 > G  4  54    56""$0!&#      4L"> G  4L4L "5"> G 4L 4 # 5> G4L 4 $5> G4% 5""c""""""64 & 54 '54 (O56$v!&i   45$ 4 )564 * 54 +54 ,O56"M"I$D!&7    45$4 - 56"""$q!&d   $H.&;  &% "&4 /5"6"""~"z"v$q!&d    $B.&5  &"&4 0 5"6"""""$!&   $s.&f  &P $>.&1  &4L 5""g"c"_"["W"S"O"K$!&  415$r $`.&S  &= $+.&  &  6"""""""""$!&   $t.&g   $J.&=  $%42 4355"m" " """""$c!&V  $@.&3  $4 4 564 556"""""g"c$6&6"C"?$I7&<    4L > G  48 5 6""$I9&<    4L > G  4: 5 6""$[;&N        4L > G  4<   5 6")"%$=&6""$>&6""$j?&]    4L> G  4L > G  4@  54 A  56"h"d$@B&3  4L> G  4C 5 6""$D&      4> G  4 > G 4L 4 E 54 F5> G4G  54 H 54 I56"V"R$J&      4L> G  4L 4 K 5> G 4L > G4L  54 M54 N 56""$sO&f    4L > G  4L 4 P 5> G  4Q  54 R  56"!"$S&x        4 > G  4L 4 T 5> G4U  54 V 56""$W&          4 > G 4L 4 X54L   5> G4Y   54 Z56""$[&        4 > G  4L 4 \ 54L  5> G4]  54 ^ 56"B">$R_&E      4L > G  4`  5 6""$%a&   6""$b&6""$.&6"e"ajgexp  gdb  genv   gctx   gparallel-visit  ! gbailout?  ! greturn  ! gw  gw  glp gw  jgw  jgw jgw jgtag  jgdb*  jgbody / jg_  / jghandler  P jg_  P jgw  w gw  } gw  gw  gtag  gdb*  gargs  gdb**   gtail   gdb***   gdb2   gw  / gw  5 gw < gw C gw J gw Q gw X gw  _ gw  f ginits  y g_  y gbody   gdb*   galt   g_   gw   ogw   ogw  ogh * Agbody W og_ W ogw   gw   gw  gproc  gdb*  gargs  gdb**  gw   gw   gw  gw  gtest ' gdb+ ' gconverse F gdb-  F g consequent  g gdb++  g g alternate   gdb--   gv   gdb+   gdb-   gw   mgdb+  Q kgdb-  Q kgw   gw   8gw   0gw  e gw   gw   [gw   Sgw   Ogw   Ggw  | gw   gw   gw   gw   gw  ( gw  C gw  J gw  e gw   gw   gw  [ gw  a gw h gexp { gdb* { gw  gw  gw gexp gdb* gw   Mgw  Mgw  Mgw  Mgw  Mgexp 1 Mgdb* 1 Mgw  gw  gw gfluid gdb* gexp gdb** gw   Mgw  $ Mgfluid 7 Mgdb* 7 Mgw  i gw  o gw v gw } gfluids gdb* gvals gdb**  gdb2  gbody  gdb***  gdb2  gw  ( gw  . gw 5 gw < gpre O gdb* O gbody p gdb**  p gpost  gdb***  gdb2  gw  9gw  9gw 9gproducer 9gdb* 9gconsumer  9gdb**  9gw  U gw  [ gw b gw i gw p gvals gdb* gbody  gdb**  gw  ogw  ogw ogw ogw  ogw  ogvals  ogdb*   ogbody  H ogdb**  H ogw    gw    gw   gw   gw   gvals   gdb*   gbody    gdb**    gw  ( igw  . igw 5 igw < igexp O igdb* O igfilenameflanguage/tree-il/cse.scm j  B   (  (  (    :  : 2  :  :   ;   f  ) ; ? . ;  2 :  7 < " < f  O < " S :  Z =  j = m    @  @ 2  @  @   A "  A >  A "  @   B #  B 6  B #  @   C   f   D   f   C    i  s  = x  |    ! !     "   # "  $ "     %   &   %         # " &  * *  -  1  >  E  . J  # V  # Z   a   o  s     !   4   !      "   >   "        f          !  + &   *   /   2  # 8  0 :  # @  > E   I   N   S f  f   j   o   t f           f      ]      + f  7  < f  Q   V ]  m  u   f        #     f  ,  0    #     f      )   C  G           l  / p  q   w  0   %           f      f       #   ?   C   k  u  2 z  ~          2         !  +  2 0  4   ;   M  Q   m   q        "  6  "    !  3  !     f       '  " 1  6 6  " :   A   M  Q    #  A  #    "  >  "    # f   / f   #     f    f      ?  I  5 N  R   W  " \ f  o  " s   x  #  :  #     f    f      %  <  %    &  f    &    "   - f  9  =   s  ! }  =  !    " f   "     f       !   =   !    "  " ' f  2  ) G  " K   R   c f  o  s     !   =   !      "  f    )   "        f       ?  I  2 N  R   Y   i  m                    )   gnamegvisitC h]AHHOOOQQQ45OK4J5K OQ   6gexp  gassigned-lexical?  g%compute-effects   gnegate  + gfind-dominating-expression  + gfind-dominating-test  + g augment-env  + gfind-dominating-lexical  + gtable  G Sgvisit  l  gfilenameflanguage/tree-il/cse.scm A  G  V  l j  m  j   gnamegcseg documentationf'Eliminate common subexpressions in EXP.CRCgm  ,gfilenameflanguage/tree-il/cse.scm   = x  p 7  m  o C62.0/ccache/language/tree-il/canonicalize.go000064400000011317151463412640014374 0ustar00GOOF----LE-8-2.0]:4h] gguile  gdefine-module*   glanguage gtree-il g canonicalize  gfilenameS f!language/tree-il/canonicalize.scm gimportsS    gice-9 gmatch   gsrfi gsrfi-1    gexportsS g canonicalize!  gset-current-module   g tree-il-fold g tree-il-any g post-order! !g "g  #g lexical-ref? $glexical-ref-gensym %g  &g 'g make-prompt (g make-lambda )gmake-lambda-case *gmake-application +gmake-primitive-ref ,gthrow -g make-const .gwrong-number-of-args /fWrong number of arguments 0g 1g 2g 3g 4g  5gany 6g sequence? 7g make-sequence 8g append-map 9g sequence-expsC5hu]4    54>"Gh]$CL6gexp  gres  gfilenamef!language/tree-il/canonicalize.scm           Ch]$CL6gexp  gres  gfilenamef!language/tree-il/canonicalize.scm           Chw]Cogexp  gres  gfilenamef!language/tree-il/canonicalize.scm     Ch ]OO6gproc  gexp  gfilenamef!language/tree-il/canonicalize.scm       gnameg tree-il-anyCR !"#$h ]45$ 45LCC|gx  gfilenamef!language/tree-il/canonicalize.scm K   L & L !  M +  M &   C%&'()*+,-./01234567869h ]45$6C|gx  gfilenamef!language/tree-il/canonicalize.scm + (  , . , *  - .  . .   Ch`g]a"""w"""w"$&    $&  $u     $?    &4O5" """"$"$&  $&   $z&l  (S   &=   &'   &    " " " """""""$CH44 5 5K4 J56CC$v&i   &K4 4 4  54 54 54 54 54 555 6"""$9&,  ( ( C"Q"M"I"E$J&=  (( ( ( C"""""$P&C   (( ( ( C"""""$J&=  (( ( ( C"D"@"<"8"4$7&*  45$456C""$2&%  $(C""""_gx  Ygw 2  gw  8  gw  ?  gw  F  gw  a gw  gw  gw  gw gt  gw   gw  4 gw  O gw \ gw j gw x gw  gthunk   gw $ gw  * gw  1 gw  gw   gw  "gw   gw   gw I }gw  V ygw  c ugw  gw   gw   gw  gw   gw 5 Q$gfilenamef!language/tree-il/canonicalize.scm $   %  K I K  K _ Q  _   X  X   Y   Y .  Y ;  Y ?  Y   X  Z  Z %  Z  b  %  A < E = I =  J =  K > O @ T @ " V @ W A  \ A ^ A  _ B  f C  k C m C  n D  r D t D  u E  ~ A  >  <  :   %   )  )   +   *  % 3  Y Ch]6}gx  gfilenamef!language/tree-il/canonicalize.scm " #   gnameg canonicalize!CRCmgm  ,gfilenamef!language/tree-il/canonicalize.scm      "    C62.0/ccache/language/bytecode/spec.go000064400000003163151463412640013124 0ustar00GOOF----LE-8-2.0[]+4h] gguile  gdefine-module*   glanguage gbytecode gspec  gfilenameS flanguage/bytecode/spec.scm gimportsS gsystem gbase    gvm gobjcode     gexportsS  gset-current-module   gbytecode->objcode gcompile-objcode gobjcode->bytecode gdecompile-objcode ginvalidate-compilation-cache! g make-language !gnameS "gtitleS #fGuile Bytecode Vectors $greaderS %gread &gprinterS 'gwrite (g compilersS )g decompilersS *g for-humans?SC5h]4    54>"Gh]45Dgx  ge  gopts   gfilenameflanguage/bytecode/spec.scm         gnamegcompile-objcodeCRh]45Dgx  ge  gopts   gfilenameflanguage/bytecode/spec.scm       gnamegdecompile-objcodeCR4i>"G4 i!"#$%hy]6qgport  genv  gfilenameflanguage/bytecode/spec.scm !   ! #   C&'i(i)i*5RCgm  ,gfilenameflanguage/bytecode/spec.scm           #   $       C62.0/ccache/language/assembly.go000064400000023304151463412640012212 0ustar00GOOF----LE-8-2.0&]g4h] gguile  gdefine-module*   glanguage gassembly  gfilenameS flanguage/assembly.scm gimportsS grnrs g bytevectors     gsystem gbase gpmatch   gvm g instruction   gsrfi gsrfi-1  gselectS gfold    !gexportsS "g byte-length #gaddr+ $g align-program %g align-code &g align-block 'g assembly-pack (gassembly-unpack )gobject->assembly *gassembly->object +"#$%&'()*  ,gset-current-module -, ., /g*program-header-len* 0g *len-len* 1g load-program 2gerror 3funknown instruction 4g load-array 5gbytevector-length 6g load-symbol 7g string-length 8gload-wide-string 9g load-string :g load-number ;ginstruction-length gnop ?> @gcode-alignment Agappend BA CA Dg make-int8 ED  Fg make-int8:0 GEF HD  Ig make-int8:1 JHI KGJ Lg*abbreviations* Mgmap Ng *expansions* Og assoc-ref Pg make-true QP Rg make-false SR Tgmake-nil UT Vgmake-eol WV Xgchar? Yg char->integer Zg make-char8 [g make-char32 \ginteger? ]gexact? ^g make-int64 _gbytevector->u8-list `gmake-bytevector agbig bg make-uint64 cg make-int16 dgstring->symbol eg integer->char fgu8-list->bytevectorC5h]4    !+54.>"G /R 0R1/"234056789:;hP]1"""z"'""$~&d$U$=$$$ 45" C6666 C$A&+$ ( 45C"9"5"1"-$A &+$ ( 4 5C""""$D &.$#( 4 5C""""$A &+$ ( 4 5C"F"B">":$A &+$ ( 4 5C""""$#45 $ 45C""gassembly  Ngvx ' gvy  ' gvy  = gvx  P gvy  P gvx  ^ gvx gvy  gvx  gvy  gvx 5gvy  5gvx   -gvy   -gvx F gvy  F gvx  _ |gvy  _ |gvx  gvy   gvx   gvy   gvx  gvy   gvx   gvy   gvx * Jgfilenameflanguage/assembly.scm %  &  g 4  p 4 # q 4 0 x 4 , ~ 4  7  7 7  7 7  7 7  7 &  2  2  2  &   0  ! 0  ( 0  - &  l .  o .  v .  w .  | &   ,   ,   ,   &   *   *   *   &  1 '  9 '  = &  > ( E (  J & ,  N gnameg byte-lengthC"R  | " z  z  o t  o t  u  u v + v ! w ? w #  u  u   o  q   o ) q # - q  1 r  5 r  A r % G r  K s  Q s W s 2 Z s  c o h o  l o r o ! v o  z p   p ,  p   p G   gnamegobject->assemblyC)R6d9[eZ^fabcDVTRPh<]"""n"=""a"m"y"/"">$5&!$(6CCCC$8&"$(C""""$&$z$e$P$;   ('  6"""""""$;&%$(6""""$&$$$$   $p     $[   $F$1(4   5  C"""""""""""$ &$$$$   $p     $[   $F$1(4   5  C"""""""""""$u &_$T$?(+ $CC"/"+"'"#"$I &3$(( $C C""""$" & (C"""$"& (C"m"i"e$"& (C"<"8"4$"& (C" ""4gcode  gvx ; jgvy  ; jgvx  T fgvy  T fgvx y gvy  y gvx  gvy  gvx Qgvy  Qgvx  Igvy  Igvx  Egvy  Egvx  Agvy  Agvx  =gvy  =gvx b gvy  b gvx  { gvy  { gvx  gvy   gvx   gvy   gvx   {gvy   {gvx   wgvy   wgvx  sgvy  sgvx  ogvy  ogvx  kgvy   kgvx  ' ggvy  ' ggvx  8 cgvy  8 cgvx  wgvy   wgvx   ogvy   ogvx   kgvy   kgvx   ggvy   ggvx  cgvy  cgvx  _gvy  _gvx  [gvy   [gvx   Wgvy   Wgvx  ( Sgvy  ( Sgvx  gvy   gvx   gvy   gvx   gvy   gn   gvx  Kgvy   Kgvx  ! Cgvy  ! Cgvx \ xgvy  \ xgvx  gvy   gvx  gvy   gvx  gvy   Ngfilenameflanguage/assembly.scm   d  l    ,  -  3  4  9  =      C  X  Z  ]  ^  c  3  H  J  M  N  S               1 5  >  C  o  t '   gnamegassembly->objectC*RCgm  ,gfilenameflanguage/assembly.scm   .   1  6 " w % | :  <  A ] G M J  N  V   U  Z  Y m \ 7 `  i     C62.0/ccache/language/glil.go000064400000044020151463412640011320 0ustar00GOOF----LE-8-2.0G]4h] gguile  gdefine-module*   glanguage gglil  gfilenameS flanguage/glil.scm gimportsS gsystem gbase gsyntax     gpmatch     gsrfi gsrfi-1  gselectS gfold    gexportsS g gmake-glil-program g glil-program? gglil-program-meta !gglil-program-body "g #gmake-glil-std-prelude $gglil-std-prelude? %gglil-std-prelude-nreq &gglil-std-prelude-nlocs 'gglil-std-prelude-else-label (g )gmake-glil-opt-prelude *gglil-opt-prelude? +gglil-opt-prelude-nreq ,gglil-opt-prelude-nopt -gglil-opt-prelude-rest .gglil-opt-prelude-nlocs /gglil-opt-prelude-else-label 0g 1gmake-glil-kw-prelude 2gglil-kw-prelude? 3gglil-kw-prelude-nreq 4gglil-kw-prelude-nopt 5gglil-kw-prelude-kw 6g!glil-kw-prelude-allow-other-keys? 7gglil-kw-prelude-rest 8gglil-kw-prelude-nlocs 9gglil-kw-prelude-else-label :g  ;gmake-glil-bind g ?gmake-glil-mv-bind @g glil-mv-bind? Agglil-mv-bind-vars Bgglil-mv-bind-rest Cg  Dgmake-glil-unbind Eg glil-unbind? Fg  Ggmake-glil-source Hg glil-source? Igglil-source-props Jg  Kgmake-glil-void Lg glil-void? Mg  Ngmake-glil-const Og glil-const? Pgglil-const-obj Qg Rgmake-glil-lexical Sg glil-lexical? Tgglil-lexical-local? Ugglil-lexical-boxed? Vgglil-lexical-op Wgglil-lexical-index Xg Ygmake-glil-toplevel Zgglil-toplevel? [gglil-toplevel-op \gglil-toplevel-name ]g  ^gmake-glil-module _g glil-module? `gglil-module-op agglil-module-mod bgglil-module-name cgglil-module-public? dg  egmake-glil-label fg glil-label? ggglil-label-label hg  igmake-glil-branch jg glil-branch? kgglil-branch-inst lgglil-branch-label mg  ngmake-glil-call og glil-call? pgglil-call-inst qgglil-call-nargs rg sgmake-glil-mv-call tg glil-mv-call? ugglil-mv-call-nargs vgglil-mv-call-ra wg  xgmake-glil-prompt yg glil-prompt? zgglil-prompt-label {gglil-prompt-escape-only? |g parse-glil }g unparse-glil ~ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}a gset-current-module   gformat f # g print-glil gmake-record-type f gmeta gbody  grecord-predicate gmake-procedure-with-setter grecord-accessor grecord-modifier f gnreq gnlocs g else-label  f gnopt grest  f gkw gallow-other-keys?  f  gvars  f  f  f  gprops  f  f  gobj  f glocal? gboxed? gop gindex  f gname  f  gmod gpublic?  f  glabel  f  ginst  f  gnargs  f gra  f  g escape-only?  gprompt gerror f invalid glil gmv-call gcall gbranch gmodule gprivate gpublic gtoplevel glexical gconst gvoid gsource gunbind gmv-bind gbind g kw-prelude g opt-prelude g std-prelude gprogram gmap    funhandled recordC5h4v]4   ~54>"G}h]456gx  gport  gfilenameflanguage/glil.scm Q  R  R   R    gnameg print-glilCR4ii5Rh-13Cgmeta gbody gdefrec-98ee61a7034-32d  gfilenameflanguage/glil.scm T    gnamegmake-glil-programCR4ii5R4i4ii54ii55 R4i4ii54ii55!R4ii5"R"h-13Cgnreq gnlocs g else-label  gdefrec-98ee61a7034-32f  gfilenameflanguage/glil.scm T    gnamegmake-glil-std-preludeC#R4i"i5$R4i4i"i54i"i55%R4i4i"i54i"i55&R4i4i"i54i"i55'R4ii5(R(h -13Cgnreq gnopt grest  gnlocs  g else-label  gdefrec-98ee61a7034-331  gfilenameflanguage/glil.scm T    gnamegmake-glil-opt-preludeC)R4i(i5*R4i4i(i54i(i55+R4i4i(i54i(i55,R4i4i(i54i(i55-R4i4i(i54i(i55.R4i4i(i54i(i55/R4ii50R0h -13Cgnreq gnopt grest  gkw  gallow-other-keys?  gnlocs  g else-label  gdefrec-98ee61a7034-333  gfilenameflanguage/glil.scm T    gnamegmake-glil-kw-preludeC1R4i0i52R4i4i0i54i0i553R4i4i0i54i0i554R4i4i0i54i0i557R4i4i0i54i0i555R4i4i0i54i0i556R4i4i0i54i0i558R4i4i0i54i0i559R4ii5:R:h-13Cgvars gdefrec-98ee61a7034-335 gfilenameflanguage/glil.scm T   gnamegmake-glil-bindC;R4i:i5R>h-13Cgvars grest gdefrec-98ee61a7034-337  gfilenameflanguage/glil.scm T    gnamegmake-glil-mv-bindC?R4i>i5@R4i4i>i54i>i55AR4i4i>i54i>i55BR4ii5CRCh-13Cgdefrec-98ee61a7034-339 gfilenameflanguage/glil.scm T   gnamegmake-glil-unbindCDR4iCi5ER4ii5FRFh-13Cgprops gdefrec-98ee61a7034-33b gfilenameflanguage/glil.scm T   gnamegmake-glil-sourceCGR4iFi5HR4i4iFi54iFi55IR4ii5JRJh-13C}gdefrec-98ee61a7034-33d gfilenameflanguage/glil.scm T   gnamegmake-glil-voidCKR4iJi5LR4ii5MRMh-13Cgobj gdefrec-98ee61a7034-33f gfilenameflanguage/glil.scm T   gnamegmake-glil-constCNR4iMi5OR4i4iMi54iMi55PR4ii5QRQh-13Cglocal? gboxed? gop  gindex  gdefrec-98ee61a7034-341  gfilenameflanguage/glil.scm T    gnamegmake-glil-lexicalCRR4iQi5SR4i4iQi54iQi55TR4i4iQi54iQi55UR4i4iQi54iQi55VR4i4iQi54iQi55WR4ii5XRXh-13Cgop gname gdefrec-98ee61a7034-343  gfilenameflanguage/glil.scm T    gnamegmake-glil-toplevelCYR4iXi5ZR4i4iXi54iXi55[R4i4iXi54iXi55\R4ii5]R]h-13Cgop gmod gname  gpublic?  gdefrec-98ee61a7034-345  gfilenameflanguage/glil.scm T    gnamegmake-glil-moduleC^R4i]i5_R4i4i]i54i]i55`R4i4i]i54i]i55aR4i4i]i54i]i55bR4i4i]i54i]i55cR4ii5dRdh-13Cglabel gdefrec-98ee61a7034-347 gfilenameflanguage/glil.scm T   gnamegmake-glil-labelCeR4idi5fR4i4idi54idi55gR4ii5hRhh-13Cginst glabel gdefrec-98ee61a7034-349  gfilenameflanguage/glil.scm T    gnamegmake-glil-branchCiR4ihi5jR4i4ihi54ihi55kR4i4ihi54ihi55lR4ii5mRmh-13Cginst gnargs gdefrec-98ee61a7034-34b  gfilenameflanguage/glil.scm T    gnamegmake-glil-callCnR4imi5oR4i4imi54imi55pR4i4imi54imi55qR4ii5rRrh-13Cgnargs gra gdefrec-98ee61a7034-34d  gfilenameflanguage/glil.scm T    gnamegmake-glil-mv-callCsR4iri5tR4i4iri54iri55uR4i4iri54iri55vR4ii5wRwh-13Cglabel g escape-only? gdefrec-98ee61a7034-34f  gfilenameflanguage/glil.scm T    gnamegmake-glil-promptCxR4iwi5yR4i4iwi54iwi55zR4i4iwi54iwi55{Rxsnie^YRNKGD?;1)#|+h ]"z""\""]""""L""s""x"""3""q$b&H$9$ (666666$R&<$1$(6"B">":"6"2$R&<$1$(6"""""$R &<$1$( 6""|"x"t"p$; &%$( 6"2"."*"&$ &u$j&T$I$4$   (  6""""""""$ &u$j&T$I$4$   (  6"" """"""$R&<$1$(6"""""$&j$_$J$5$    (  6""""" ""$;&%$(6""""$$&(6"""$;&%$(6"G"C"?";$$&(6"" "$R&<$1$(6"""""$& 6""|$!&$$$z$e   $P     $;   $&("   6""""""""""$#&$v$a$L$7   $"     ($  6"""""" ""$i%&S$H$3$( &6""""""$:'&$$(4)*56"I"E"A gx  gvx W gvy  W gvx  p gvy  p gvx  gvy  gvx gvy  gvx   gvy   gvx  gvy  gvx % qgvy  % qgvx  > igvy  > igvx  O egvy  O egvx  gvy   gvx   gvy   gvx   gvy   gvx  gvy   gvx    gvy    gvx % gvy  % gvx  > gvy  > gvx  W gvy  W gvx  h gvy  h gvx y gvy y gvx  @gvy   @gvx   8gvy   8gvx   0gvy   0gvx   ,gvy   ,gvx  (gvy  (gvx Q gvy  Q gvx  j gvy  j gvx  { gvy  { gvx  (gvy   (gvx    gvy    gvx   gvy   gvx   gvy   gvx  gvy  gvx 9 ngvy  9 ngvx  R fgvy  R fgvx  gvy   gvx  gvy   gvx   gvy   gvx  gvy   gvx # ogvy  # ogvx  < ggvy  < ggvx  M cgvy  M cgvx  gvy   gvx  fgvy   fgvx   ^gvy   ^gvx   Zgvy   Zgvx   Vgvy   Vgvx  Rgvy  Rgvx  Ngvy  Ngvx  Jgvy   Jgvx  & Fgvy  & Fgvx w gvy  w gvx   gvy   gvx   gvy   gvx   gvy   gvx  gvy  gvx  gvy  gvx  |gvy   |gvx  2 tgvy  2 tgvx  C pgvy  C pgvx  T lgvy  T lgvx  gvy   gvx   gvy   }gfilenameflanguage/glil.scm n  o        o     o  a  e o     o     o   %  o  $ $ ( o      o   ~ *  o  b }  f o   |  o   {   o   z   o  _ y  c o   x   o  B w  F o   u   o  h s  l o   q   q   o 4   gnameg parse-glilC|R !}"%&'(+,-./03475689:=>ABCFIJMPQTUVWX[\]`abcdghklmpqruvwz{Uhd]A&"454545C&'454 54 5 C &=4 545454545C&S45454545454545C&45C&4 54!5"C#&$C%&4&5'C(&)C*&4+5,C-&24.54/54054152C3&4454556C7&>4854954:54;5<$=">C?&4@5ACB&4C54D5ECF&4G54H5ICJ&4K54L5MCN&$4O54P>"GQRCST6\gglil  grtd  gmeta   1gbody   1gnreq  N `gnlocs  N `g else-label  N `gnreq  gnopt  grest  gnlocs  g else-label  gnreq  gnopt  grest  gkw  gallow-other-keys?  gnlocs  g else-label  gvars   gvars  - ;grest  - ;gprops  U _gobj  y glocal?   gboxed?   gop   gindex   gop   gname   gop   'gmod   'gname   'gpublic?   'glabel  6 @ginst  V dglabel  V dginst  z gnargs  z gnargs   gra   glabel   *gfilenameflanguage/glil.scm   #  &  /  9  V  h           3 C  E  N  Y  g  i  r  }                   # &  /  :  H  \ l             -   gnameg unparse-glilC}RCngm  ,gfilenameflanguage/glil.scm   Q  T + n 4   4 C62.0/ccache/language/glil/compile-assembly.go000064400000120523151463412640014570 0ustar00GOOF----LE-8-2.0;]L4h] gguile  gdefine-module*   glanguage gglil gcompile-assembly  gfilenameS f"language/glil/compile-assembly.scm gimportsS gsystem gbase gsyntax    gpmatch      gassembly   gvm g instruction    gprogram   gselectS !g make-binding "! # " $gice-9 %greceive &$% '& (gvlist )$( *) +gsrfi ,gsrfi-1 -+, .gfold /. 0- / 1grnrs 2g bytevectors 312 43 5#'*04  6gexportsS 7 8gset-current-module 98 :8 ;g vlist-ref gfold2 ?g vector-length @g vector-fold2 Agmake-record-type Bf Cgkey DC Eg Fgmake-variable-cache-cell Ggrecord-predicate Hgvariable-cache-cell? Igmake-procedure-with-setter Jgrecord-accessor Kgrecord-modifier Lgvariable-cache-cell-key Mgreverse! Ngassq-ref Ogfilename Pgline Qgcolumn Rg limn-sources Sgappend TS US Vg dump-object Wgreturn XW YX Zg load-program [gaddr+ \g make-meta ]gobject->assembly ^g immediate? _g last-pair `g scheme-list? ag vhash-assoc bgnumber? cgstring? dgkeyword? eg vhash-cons fgarray? ggerror hf)build-constant-store: unrecognized object ig array-shape jg vector->list kg lgglil-program-body mgglil-program-meta ng  ogglil-const-obj pg qgglil-kw-prelude-kw rg sgglil-toplevel-name tgglil-toplevel-op ug  vgglil-module-mod wgglil-module-name xgglil-module-public? ygglil-module-op zg vlist-null {gbuild-constant-store |funhandled record }gbuild-object-table ~gmake-open-binding gmake-closed-binding gmap funknown binding type g open-binding fbroken bindings g close-binding gcdr g stable-sort greverse gclose-all-bindings g open-arity f bad arities g close-arity g begin-arity gcompile-program g byte-length g vlist-null? gdump-constants g align-program g tail-call    g make-list gnop  gglil->assembly  g make-false   g object-ref glong-object-ref fvcache cell key not in table g glil-program? gcompile-objtable funrecognized constant  gvector g gglil-std-prelude-nreq gglil-std-prelude-nlocs gglil-std-prelude-else-label gbr-if-nargs-ne gassert-nargs-ee greserve-locals gassert-nargs-ee/locals g gglil-opt-prelude-nreq gglil-opt-prelude-nopt gglil-opt-prelude-rest gglil-opt-prelude-nlocs gglil-opt-prelude-else-label gbr-if-nargs-lt gassert-nargs-ge gbind-optionals g push-rest gbr-if-nargs-gt gglil-kw-prelude-nreq gglil-kw-prelude-nopt gglil-kw-prelude-rest g!glil-kw-prelude-allow-other-keys? gglil-kw-prelude-nlocs gglil-kw-prelude-else-label gand=> fkw not in objtable gmax g1+ gbind-optionals/shuffle gbind-optionals/shuffle-or-br g bind-kwargs g bind-rest g  gglil-bind-vars g gglil-mv-bind-vars gglil-mv-bind-rest ginteger? gtruncate-values glength g  g  gglil-source-props g  gvoid   fconst not in table g gglil-lexical-local? gglil-lexical-boxed? gglil-lexical-op gglil-lexical-index gref glocal-boxed-ref g local-ref gset glocal-boxed-set g local-set gbox g empty-box gfix g fix-closure gbound? gvariable-bound?   g local-bound? fwhat glong-local-ref g variable-ref   g variable-set   glong-local-set g make-variable  glong-local-bound? gfree-boxed-ref gfree-ref gfree-boxed-set fwhat. g toplevel-ref g toplevel-set glong-toplevel-ref glong-toplevel-set ftoplevel name not in objtable glink-now  gdefine   funknown toplevel var kind fmodule vcache not in objtable funknown module var kind g  gglil-label-label  g align-block  g   gglil-branch-inst  gglil-branch-label  g  gglil-call-inst gglil-call-nargs g instruction? fUnknown instruction: ginstruction-pops ginstruction-length f,Unknown length for variable-arg instruction: f/Wrong number of stack arguments to instruction: g gglil-mv-call-nargs gglil-mv-call-ra gmv-call g  gglil-prompt-label gglil-prompt-escape-only? gprompt g load-number gnumber->string  gstring-bytes-per-char !g load-string "g align-code #gload-wide-string $fbad string bytes per char %gsymbol->string &g load-symbol 'g make-symbol (' )( *gkeyword->symbol +g make-keyword ,+ -, .g string-append /flist 0f too long 1glist 2gcons 32 43 5g array-type 6g load-array 7guniform-array->bytevector 8garray-contents 9g make-array :f dump-object: unrecognized object ;fvector = ?g vector-set @? A@ B  C  DBC ED F  Gg new-frame HG Igcall JI  KCJC5hA]4    56754:>"G;hH6] $D4L54L> G".gi  Ggs0  Ggs1   Ggpair   .gs0  / Ggs1  / Ggfilenamef"language/glil/compile-assembly.scm $   %  %   &   ' %  ' 6  ' %  '   (  " ( ! % ( , . (  2 '  9 )  G )   G gnameglpC<h(] OQ456gproc  $gvhash  $gs0   $gs1   $glp  $gfilenamef"language/glil/compile-assembly.scm # $   $  $ $   $ gnamegvhash-fold-right2C=Rh8](D4L> G"gls  6gs0  6gs1   6gs0   6gs1   6gfilenamef"language/glil/compile-assembly.scm ,   -   .   /   /   /  ! /  ( 0  6 0   6 gnameglpCh ] OQ6gproc  gls  gs0   gs1   glp  gfilenamef"language/glil/compile-assembly.scm + ,    gnamegfold2C>R?h@]L$*4LL> G"Dgi  ;gs0  ;gs1   ;gs0   5gs1   5gfilenamef"language/glil/compile-assembly.scm 4   5 5  6   6 !  6  6 ' 7  5 7 ; 8   ; gnameglpCh0]45OQ 6gproc  *gvect  *gs0   *gs1   *glen  *glp   *gfilenamef"language/glil/compile-assembly.scm 2  3 3   4   * gnameg vector-fold2C@R4AiBD5EREh-13Cgkey gdefrec-4ed7d27bcd936f9-49d gfilenamef"language/glil/compile-assembly.scm @   gnamegmake-variable-cache-cellCFR4GiEi5HR4Ii4JiEiC54KiEiC55LRMNOPQhC]9"(6454545$E(" $""y"Y"K;gsources  gin  gout   gfilename   gaddr  7 g new-filename  7 gline  7 gcolumn  7 gfilenamef"language/glil/compile-assembly.scm B  C  D   E   F   G   G &  G 1 ! G  " H  ' H  * H ( , H  - I  2 I 5 I * 7 I  7 F  D K  H J N Q O Q  V Q ) \ Q 4 ] Q ! ^ Q  b J e R  l S  | R  W  W L  M  L C  C  C '  gnameg limn-sourcesCRRUVYZ[h0] 44 554 5Cgbindings  /gsources  /garities   /gtail   /gbody   /gfilenamef"language/glil/compile-assembly.scm \  ]   ]   ]   ]   ]   ]   _  `  ( _   / gnameg make-metaC\R]h]6{gx  gfilenamef"language/glil/compile-assembly.scm f  g    gnameg immediate?C^R_h0] $!&C45$CCCgx  ,gp  *gfilenamef"language/glil/compile-assembly.scm k  l  l  m   m   m  n   n  o  " o % p  & p  ' p   , gnameg scheme-list?C`Ra^bcde<HL.h]L6zgx  gstore  gfilenamef"language/glil/compile-assembly.scm    Cfghi?h]L6zgx  gstore  gfilenamef"language/glil/compile-assembly.scm    Cjh`r] 45$C45$C45$"#45$"$"45$45645$ 4L4 55456$"4  LO5456$$4L4L55456"#4 5$456 6$F45 45$'4 LO455456""jgstore  ^gx  ^gstore  gstore  gstore  gstore  D Vgfilenamef"language/glil/compile-assembly.scm z   ~   }     }  ! +  , 1 ;  < C G  H M W }  \ |  c |  g |  h  r }  s  x &   |  |  |   }    |  |  |   }   ! 5 ! !   |  |  |   }  |   |   |      }    }     5 $ 1 ' ) * # + /  0  <  D  D  K |  R |  V | H  ^ gnameg add-to-storeCklm.nopqrstuvwxyFh]"&%454>"GL6&45L6&45L6 &#4 54 >"GL6 &A4 545454>"GL456Cgx  gstore  grtd   gbody   4gobj  C Mgkw  \ fgname  u gmod  gname  gpublic?   gfilenamef"language/glil/compile-assembly.scm    4  <  M  U  f  n     /    gnamegwalkCzh(]OQOQ6gx  'g add-to-store 'gwalk   'gfilenamef"language/glil/compile-assembly.scm y    ' gnamegbuild-constant-storeC{Rklm.kmlae<no^pqrstFuvwxyhx]*&D4>"G4>"G45$C456&7454 5$C45$C456 &)4 545$C456 &D4 54>"G4545$C456&]4545454>"G4545$C456Cgx  wgtable  wgrtd   wgobj  b gkw  gname  gx  gmod  , tgname  , tgpublic?  , tgx  R t gfilenamef"language/glil/compile-assembly.scm  4  @  H  O  S  [ e  o  s                       E  P 5 R  R  U  a  i  p  t (  w Czg| h@]&%454>"G66gx  <grtd  <gbody   4gfilenamef"language/glil/compile-assembly.scm   4  8   < gnamegbuild-object-tableC}Rh]Cgname  gboxed?  gindex   gfilenamef"language/glil/compile-assembly.scm   gnamegmake-open-bindingC~R!h]6g open-binding  gstart  gend   gfilenamef"language/glil/compile-assembly.scm   #       gnamegmake-closed-bindingCR~ghh]1$T$;$"( 66666gv  egvx  ]gvy   ]gvx  Ugvy  Ugvx  1 Mgvy  1 Mgfilenamef"language/glil/compile-assembly.scm  E  I  M  Q  U  Y  ]  a  e   e Ch]45Cgbindings  gvars  gstart   gfilenamef"language/glil/compile-assembly.scm             gnameg open-bindingCR.h]L4LL5Cgo  gtail  gfilenamef"language/glil/compile-assembly.scm       CghhH]2$R$9$ 4O5C666@gbindings  cgend  cgvx   [gvy   [gvx  Sgvy  Sgvx  1 Kgvy  1 Kgfilenamef"language/glil/compile-assembly.scm   8 J  O  S W  [ _  c   c gnameg close-bindingCRh]Cgx  gy  gfilenamef"language/glil/compile-assembly.scm     )   1  &  Ch0](44556456gbindings  -gend  -gfilenamef"language/glil/compile-assembly.scm          !         !   -    - gnamegclose-all-bindingsCRh`4]$">$")$ "$ "C,gaddr  [gnreq  [gnopt   [grest   [gkw   [garities   [gfilenamef"language/glil/compile-assembly.scm           *  4   =  G   N  W  Z    [ gnameg open-arityCRghH]"(C$/$C66gaddr  Hgarities  Hgvx   @gvy   @gvx  ( 8gvy  ( 8gfilenamef"language/glil/compile-assembly.scm         3   <   @  D   H    H gnameg close-arityCRh ]456gend  gstart  gnreq   gnopt   grest   gkw   garities   gfilenamef"language/glil/compile-assembly.scm    &      gnameg begin-arityCR{Z[U hxs])45454>"G45$C4> G4545 4 4  55Ckgglil  xg all-constants xgprog   xg tablecode  A xgaddr  A xgprog  Q xgfilenamef"language/glil/compile-assembly.scm               ) %  3 $  7 + D +  I ,  Q ,  U . W /  b /  c .   x gnamegcompile-assemblyCRkml.SRM\ZU[ho]?(45454455454455   4  L5  $   "      4  $ 4   5"5C4 L> G      45"ggbody  gcode  gbindings   g source-alist   g label-alist   garities   gaddr   gcode  < gbindings  < gsources < glabels < garities < gmeta S gmeta-pad k gsubcode  gbindings  g source-alist g label-alist garities gfilenamef"language/glil/compile-assembly.scm <   >  @   @ "  @   A   B   B & ' B  ( C  / D  2 D ! < D  < @ G F  S F [ G  b G 2 c G - f G % k F o H v I  y H L  M " M 6 M " N " H Q Q  Q P T  T  V  T '  gnameglpCg|hP1]"&24545OQ 66)gglil  Ig constants  Igrtd   Igmeta   Agbody   Aglp  + Agfilenamef"language/glil/compile-assembly.scm 9  :  + <  9 < ; < / < < D = =  > = ) A <  E :   I gnamegcompile-programCR=aHLg}U[hH]44L5$U $  "!"    " GD45$s445L5$U $  "!"    " GD645$L4 54 54 L> G4 5 4  54 5D6gobj  Egidx  Egcodes   Egaddr   Egt  Egidx   Tgload  U hglen  U hgt  gidx  gload  glen  gtable  =gprog   =g tablecode   =gaddr   =gprog $ =gfilenamef"language/glil/compile-assembly.scm i  k  j  m 7  m (  Z  " Z  $ [  4 [  : ]  @ ^  F ^ ( I ]  T ]  X m  a n  f o  h n  i p  s j t r  w r  r  q  t 9 t * Z  Z  [  [  ]  ^  ^ ( ]  ]  t  u v u  w  w  x  j }  }  ~   }           $   '  # 2   3   =   A   E  :  E C<.S h`]45$D4O> G454   5 Dg constants  `gtable  `gaddr   `gelts  + `gaddr  + `glen  : `gfilenamef"language/glil/compile-assembly.scm X  a  `   c  d  c   h "  %   * h . f  3   :   :   =  C   I   O  0 R   Y  ^  `    ` gnamegcompile-objtableCRkmla}U[pqgno]rtsFuyvwx     |h0 Q]&4>"G4>"G45$;  $ "  D45 4 5 4  > G  4  4   55  D &4 54545  "F $   "    "F $9  $% $""  ""|""t  44 55D&@4545454545     $   "   $"    $  "@ $     "   4  4 4   555445  5D!&4"54#54$54%54&54'54(5     4)4 5*5$"4+,5$  "  4- 4./4.* 55?$ $0"1"0      $ $""2     $ "  $ "  $$3    "4 4 4 4   5555445   $   "5D4&455465D7&k485495 4:5$ ; $ " D;4<5 $ " 465D=&4>5D?&4@5DA& BDC&4D54E5  $   D45  $;   $ "  D+F6G&e4H54I54J54K5   $ $ L$" $M " N " O$" $P " Q "z R$R "c S$S "L T$U  "4 V$" $N W" X " 4+Y 5"     L$& $Z  [" Z  " O$& $Z  \" ]  " R$^_]  "l S$^]  "Q T$U  "8 V$& $Z  W" `  " 4+Y 5  "N L$ $a"b"+ O$ $c" 4+d5" 4+Y 5   De&4f54g5 L$"O$4)44h 55*5  $t $+L$i"O$j" "1L$k"O$l"    D4)4 5*5  $ " 4+m 5   $  "  nL$o"O$_"  Dp$c4)4 5*5  $ " 4+m 5   $  "  q  D+r 6s&4t54u54v54w5       L$"O$4)44h 55*5  $ " 4+x 5   $+L$i"O$j" "1L$k"O$l"  D+y 6z&+4{54|5  4 5D}&*4~545    D&4545 45$"4+>"G45  $c45  $   D $"    D+456  $  D+ 6&,4545    D&64545  $ "   D+6Igglil  .gbindings  .g source-alist   .g label-alist   .g constants   .garities   .gaddr   .grtd   .gt  < gi G gtable gprog g tablecode gaddr gx gnreq  gnlocs g else-label gx z gnreq   gnopt  grest  gnlocs  g else-label  g bind-required  gbind-optionals   g bind-rest   gx   gnreq   gnopt  grest  gkw  gallow-other-keys?  gnlocs  g else-label   gt  < Tgkw-idx  T g bind-required   gntotal   gbind-optionals-and-shuffle   gbind-kw  M g bind-rest  z gcode   gvars   gvars   xgrest  xgprops   gobj   Ogt  Ogx  gt  Ogi  Gglocal?  s gboxed? s gop s gindex s ga k \gb k \gx  gop   xgname  xgt  gx p ~gt gi gx gt  5gi 5 ngx ` ngop  ugmod ugname ugpublic? ugkey ugt gi kgx  ] kglabel  gcode ginst  glabel gx ginst  gnargs gpops  gkey / gx C Qgx n |gx gnargs  gra gx glabel  &g escape-only? &gx  &_gfilenamef"language/glil/compile-assembly.scm     4   <   G   G  O   S  U   c   i  $ o  6 r               #     &            #   #         $   $      $   *   -  4   9   =   D  # E   I  Y  `  7 c  2 d  % g  z                       #   #         $   $                 -   # #  + '  # *   3  5   :  & >   C  $ G   J   W   Y   ^  / b  % g  - k  % p   y   ~  0   &   .   &                                   -   0   <   <   K   O   Q   T   \  ^   d  $ j  $ o   x   ~  %   %               -   5   -                                                                       !   '   -   3   @   G   J  M   U  W   ]   c   i   o   r   z   z   }     &   &            #      &                     *   ,   4  + =   J  L !  M ! % Y ! 4 b !  f "  x !     (  )  (      /  1  /      6         :   9   <   <     =   9   ?   ?         +   1  $ 7  6 :   G   K @  O @ W    D   E   E  F   G   H   I   F   J   K   L   F   M   F   N   F   O  0 F  6 P  8 Q  F S  S T  W T  [ T  e U  k V  k U  x W  ~ Y   Z   \   W   ^   _   a   W   c   W   g   W   j  ' W  - l  / m  ? o  N p  R p  V p  i q  o r  q r " w r 2  q   s   s "  s 2  s 9  s 2  t   t   t   q  C         x   {  {   {   {   {  z   ~   ~    "   + ,  " .  + 8   H  " J  + W  " Y  + d  " j  " m   p ~  ~                            1  1        #    #       x             *   .   2   5   =   A   C   N   T  / Z  / ]   _   `  n   r   x                +                      (      ( %   5   7  ( D   F  ( Q   W   Z   ]  k   o   u  }                                        $   (   )   /   @  C   Q   Z   b  * h  * k  n   |      "                                      &   *    . gnamegglil->assemblyCR]HVLbc !"#g$%&U)d*-`./01.S[4f5i678?9:;+ha ]:45$C45$ 45645$45C45$>4 5 $  C $    6 6$E454 5 $ C $456 645$4455645$45$4 45>"G"  "7( 64545""$*454445556" 4 5$4!5$Y44!5544"545544 #4$54455  5564%54&5"m$)4545"444"55'   56 " (6$4"5 4&5$4&5$4 4)55"*  "<$ 64545" ""B">Y gx  gaddr  gt  gkey  \ gstr  gkey  glen   Vgtail  V gobjects  \ gcodes  \ gaddr  \ gcode  v gkar   gtype   Ggshape   Ggcontents  N glen  W gi  ] gcodes  ] gaddr  ] gcode  r glen   gtail  A gi  G gcodes  G gaddr  G gcode  f gfilenamef"language/glil/compile-assembly.scm          "   %  * /   0   :   <   =   F   K   U   V  \   h  z   ~                                                      "   #   &  *  / ,   .  3   A   G   M  / P   V   \   b   l  m   r  % v   v  {     *            ,                                                                        /            #  $   -  .  1   =  C  E   H   N   Q   W   ]   b  f   g   n  % r   r  w   |  # }              #         +   !   .   !   !           &     !  !               3   /   '   !                       #   %   '  )   /   5  ;  4 >   A   G   L  P   Z  [   b  % f   f  k   p  # q           &      gnameg dump-objectCVRahpv]4L5" L6$I$; $ D   D""ngx  ngi  ngaddr   ngpair  ngidx  . fgfilenamef"language/glil/compile-assembly.scm $   %  %   .  &  $ &  ' &  + & . '  . ' 6 (  : ( < )  I *  K )  M +  S + , Y , , \ +  d -  f +   n gnameg ref-or-dumpC]bcdV[HL`>h(]4LL> GDgx  !gcodes  !gaddr   !gsubcode   !gaddr   !gfilenamef"language/glil/compile-assembly.scm @   A +  A   B  ! B   ! C.S1U4f5i"678@h(]4LL> GDgx  !gcodes  !gaddr   !gsubcode   !gaddr   !gfilenamef"language/glil/compile-assembly.scm e   f 4  f   g & ! g   ! C?9g<h(]4LL> GDgx  !gcodes  !gaddr   !gsubcode   !gaddr   !gfilenamef"language/glil/compile-assembly.scm R   S 2  S   T $ ! T   ! C"hW];45$45D45$"#45$"$"45$4545D45$4 5"q4 5$N4  LO> G4 45  5 D$C4L> G4L> G4455D"45$45$j4L45> G4L45> G445  5445545D454LO> G4L45> G4 45 4    5 5 D6$45$m45 45$N4 LO> G4 45!  5 D"i"e"aOgx  gi  gaddr   gt  gcode  b qgcodes  gaddr  glen  gcar-code   4gaddr   4gcdr-code   4gaddr   4gtype  c gaddr  c gshape  ~ gaddr  ~ gbv   gcontents   >gcodes   >gaddr   >gshape   >gaddr   >glen  3gcodes   gaddr   glen   gfilenamef"language/glil/compile-assembly.scm /   1  0   3   4  4  " 3 # 5 - 5  . 5 3 6 = 5  > 6 E 7 I 5  J 7 O 8 Y 0  Z :  b :  g ;  q ;  r <  | 0  } = =  >  0  @ C  @ ?  D  E ! E  F  F ! F 5 F  D  H  D  I  0  J  J ,  J   J   K !  K .  K !  K   L  2 M  4 L 9 [ C 0  D [  K [  O [  P \  S \ ( b \  f \  k ]  n ] + } ]   ]   ^   ^  ^ .  ^  ^   ^  `   a   `  c   c   e  h #  e  d   i  i -  i  i  j   k %  k   l   m 5  m + ! n 8 " n + ( o + + l  7 j  < q  > j B s F s  F 0  I N M 0  N O  ^ O b N  c P  k P 5 r P 1 u P ) x P # y P } N  ~ R  U   R  Q   V   W !  W   X   X #  X 7  X   V   Z   V    gnamegdump1C=>][Ah@A]454L45> GD9gobj  =gidx  =gcode   =gaddr   =gpre   =gvalcode  & =gaddr  & =gfilenamef"language/glil/compile-assembly.scm v   y &  z )  y &  y   { 5  | < % { 5 ) {  / } . 6 } ' ;  ' = }   = CE<Z.SYUFHCK[hJ]9OOQQ4O > G45    44   55 4 45  4 5545  DBg constants  g ref-or-dump  gdump1   gcodes  8 gaddr  8 glen  G g pre-prog-addr  Y gprog  x gfilenamef"language/glil/compile-assembly.scm # # v  0   7 v  ; u  @   G   G   N   Y   \   `   d  " e   f  $ l  1 p  $ q   x   x   |   ~  )      !        -        "  gnamegdump-constantsCRC9gm  ,gfilenamef"language/glil/compile-assembly.scm    #  +  2  @ B * \ f  k  y T ) + " %[ 'I (  *h  +  -  3 9 ;, X b  p|   #   C62.0/ccache/language/glil/spec.go000064400000003126151463412640012254 0ustar00GOOF----LE-8-2.0>]-4h] gguile  gdefine-module*   glanguage gglil gspec  gfilenameS flanguage/glil/spec.scm gimportsS gsystem gbase      gcompile-assembly    gexportsS  gset-current-module   gwrite g unparse-glil g write-glil g compile-asm ginvalidate-compilation-cache! !g make-language "gnameS #gtitleS $f+Guile Lowlevel Intermediate Language (GLIL) %greaderS &gread 'gprinterS (gparserS )g parse-glil *g compilersS +gassembly ,g for-humans?SC5h]4    54>"Gh-1345@gexp gport gfilenameflanguage/glil/spec.scm        gnameg write-glilCRh]45Dgx  ge  gopts   gfilenameflanguage/glil/spec.scm         gnameg compile-asmCR4 i>"G4!i"#$%&hu]6mgport  genv  gfilenameflanguage/glil/spec.scm "   " #   C'i()i*+i,5RCgm  ,gfilenameflanguage/glil/spec.scm        !  u %      C62.0/ccache/language/assembly/decompile-bytecode.go000064400000023416151463412640015753 0ustar00GOOF----LE-8-2.0&]\4hk] gguile  gdefine-module*   glanguage gassembly gdecompile-bytecode  gfilenameS f(language/assembly/decompile-bytecode.scm gimportsS gsystem gvm g instruction    gbase gpmatch    gsrfi gsrfi-4   grnrs g bytevectors     gobjcode !   "gselectS #g byte-order $# %!"$ &% 'gexportsS ( )gset-current-module *) +) ,gu8vector-length -gdecode-load-program .gerror /ftried to decode too many bytes 0f-bad bytecode: only decoded ~a out of ~a bytes 1gmemq 2gbr 3gbr-if 4g br-if-not 5gbr-if-eq 6g br-if-not-eq 7g br-if-null 8gbr-if-not-null 92345678 :gbr-instruction? ;gbr-if-nargs-ne gbr-if-nargs-lt/non-kw ?;<=> @gbr-nargs-instruction? Ag bytes->s24 Bf-error decoding program -- read too many bytes Cg load-program Dgmap Egreverse Fgreverse! Ggdecode-bytecode Hgprompt Igassv-ref Jggensym Kf:L Lgmv-call Mgbind-optionals/shuffle-or-br Ngand=> Ogopcode->instruction Pginstruction-length Qg load-array Rgload-wide-string Sgmake-bytevector Tg make-string Ugbytevector-u8-set! V U W U Xg string-set! Yg integer->char Zg utf32->string [gnative-endiannessC5hp]4    &'(54+>"G,-./h@]ML$ LM"ML$"45$ MN"Cgb ) =gfilenamef(language/assembly/decompile-bytecode.scm       !  !    # "  ' " " ) "  )  1 #  4 #  6 #   = gnamegpopC.0h@&] 45H4O5J$DJ6gx  9genv  9gopts   9gi  9gsize  9gret   9gfilenamef(language/assembly/decompile-bytecode.scm        %   %  % & ) &  / ' 3 (  9 (   9 gnamegdecompile-bytecodeCR19h]6gx  gfilenamef(language/assembly/decompile-bytecode.scm * +   gnamegbr-instruction?C:R1?h]6gx  gfilenamef(language/assembly/decompile-bytecode.scm , -   gnamegbr-nargs-instruction?C@Rh8]    $CCga  4gb  4gc   4gx   4gfilenamef(language/assembly/decompile-bytecode.scm /  0  0  0  0   1   1   1  $ 1  2 3 3 3   4 gnameg bytes->s24CAR.BCDh]C{gx  gfilenamef(language/assembly/decompile-bytecode.scm N "  N 4  N < N .  CE-FG./h@]ML$ 4L5"ML$"45$ MN"Cgb ) =gfilenamef(language/assembly/decompile-bytecode.scm D   E  E  E  F   E  # G  ' G " ) G  ) E  1 H  4 H  6 H   = gnamegsub-popCHAIJKLM@:h ,3%4545454545454545        H H "  W >  W >  Z ? b ?  q A  u A  w A  w A  ~ B   B   g   g   g   i   i   i   i   i   i   i   i   i   i   i   i   i   i   U  L e  Q >  \ >  \ >  _ ? g ?  v A  z A  | A  | A   B   B   e   e   e   U  u ^   >   >   >   ?  ?   A   A   A   A   B   B   ^   ^   ^   U  o X 9 y U   >   >   >   ?  ?   A   A   A   A   B   B   Y   Y   Y   U  ; V 1 E U  J >  U >  U >  X ? ` ?  o A  s A  u A  u A  | B   B   W   W   W   U   J   J   J    gnamegdecode-load-programC-RNOC-PQRSTWXYh]456gstr  gpos  gvalue   gfilenamef(language/assembly/decompile-bytecode.scm }  ~ 2  ~    CZ[Fh0/]145&L645 $&"$"&"$ " 4L54L54L5  45"K$ &4 4 55"C44L5>"G" ""! $ 64L5"45"'gopcode  ,ginst ,g make-sequence  D g sequence-set!  d ga  k gb  r gc  y glen  gseq  gi  gn  gout   gfilenamef(language/assembly/decompile-bytecode.scm m  n  n  p   o  q   s  " s  & o . w  < w  D v  N {  \ {  d v  g  % k   n  / r   u  9 y   +  v   v     . $ 7 $   .             &        $ ; , 7  , Ch]45O6gpop  gfilenamef(language/assembly/decompile-bytecode.scm k  l  l    gnamegdecode-bytecodeCGRCgm  ,gfilenamef(language/assembly/decompile-bytecode.scm      * W ,  / P 6 k k   m C62.0/ccache/language/assembly/compile-bytecode.go000064400000023154151463412640015441 0ustar00GOOF----LE-8-2.0T&]V4h] gguile  gdefine-module*   glanguage gassembly gcompile-bytecode  gfilenameS f&language/assembly/compile-bytecode.scm gimportsS gsystem gbase gpmatch    gtarget      gvm g instruction    grnrs g bytevectors   gsrfi gsrfi-1 !  "gselectS #gfold $# %!"$ &% 'gexportsS ( )gset-current-module *) +) ,gassq-ref -gerror .fjump too far forward /fjump too far backwards 0gbig 1ginstruction->opcode 2ginstruction-length 3f$unhanded variable-length instruction 4glength 5gfor-each 6f!bad number of args to instruction 7gprompt 8gmv-call 9gbind-optionals/shuffle-or-br :gbr-if-nargs-gt ;gbr-if-nargs-lt g br-if-null ?g br-if-not-eq @gbr-if-eq Ag br-if-not Bgbr-if Cgbr Dg load-array Egbytevector-length Fgbytevector-copy! Gg load-symbol Hg string-length Ig char->integer Jg string-ref Kgload-wide-string Lg string->utf32 Mg load-string Ng load-number Og make-char32 Pg load-program Qg byte-length Rgmake-bytevector Sffailed to fill bytevector Tgtarget-endianness Uf bad assemblyC5hpr]4    &'(54+>"G,-./0hi]LMLCagfilenamef&language/assembly/compile-bytecode.scm \ ]  ]   C12345hs]LMMNCkgx  gfilenamef&language/assembly/compile-bytecode.scm  '   C6789:;<=>?@ABCDEFGHIJKLMNOPQ#h(] M4LL>"GMCgasm  &gaddress  &gstart   &gfilenamef&language/assembly/compile-bytecode.scm n   o   p  $ q $ % q   & C+hH ]H"v454J5 $6 $6M LMM LMM LM M M NCMLOK4545$LMMN"" " W"""9"~"""I"""e"""?""#"""7 $ 64 5$  LLO6 6$^   &H $=     $(   (LM MN "h"p"l"h"d"`$^   &H $=     $(   (LM MN """"""$   & $     $   $$$$y$d(PLM MNLM MNLMMNLMMNLMMNLMMN"""""""""""$   &i $^     $I   $4( LM MNLM MN"k"g"c"_"["W"S$   &i $^     $I   $4( LM MNLM MN"""""""$   &i $^     $I   $4( LM MNLM MN"W"K"G"C"?";"7$=   &' $     ( """""$=   &' $     ( """""$=   &' $     ( "w"_"["W"S$=   &' $     ( "/""" "$=   &' $     ( """""$=   &' $     ( ""{"w"s"o$=   &' $     ( "W"/"+"'"#$   &x $m     (Y4 5 LM LM LM  M N4 LM >"GM NC""""$   & $     (w4 5 LM LM LM  M N", $LM4 4! 55"" "M NC""""$   "& $x     (d4# L5 4 5LM LM LM  M N4 LM>"GMNC"/"+"'"#$   $& $     (w4 5 LM LM LM  M N", $LM4 4! 55"" "M NC"t"p"l"h$   %& $     (w4 5 LM LM LM  M N", $LM4 4! 55"" "M NC""""$G   &&1 $&     (LM M NC"c"_"["W$   '& $     $   $yLM LM N$ 4(5" LMLM N4)*L LO >"G$ "C""""" gasm  Eglabels  Egaddress   Eg emit-opcode?   Egget-addr   Eglabel  goffset   gstart  ginst  Egargs  Egopcode  Eglen  Egvx Y gvy Y gvx r gvy r gvx  gvy   gvx  gvy  gvx  gvy  gvx  gvy   gvx + (gvy + (gvx D  gvy D  gvx U gvy  U gvx  f gvy  f gvx  w gvy  w gvx   gvy   gvx    gvy    gvx   gvy   gvx 9 gvy 9 gvx R gvy R gvx c gvy  c gvx  t gvy  t gvx  <gvy  <gvx  4gvy  4gvx  0gvy   0gvx   ,gvy   ,gvx M gvy M gvx f gvy f gvx w gvy  w gvx   gvy   gvx  gvy  gvx  gvy  gvx  Vgvy  Vgvx 8 Ngvy 8 Ngvx g gvy g gvx  gvy  gvx  gvy  gvx  gvy  gvx  .gvy  .gvx  &gvy  &gvx ? vgvy ? vgvx X ngvy X ngvx  gvy  gvx  gvy  gvx  Wgvy  Wgvx  Ogvy  Oglen  Kgvx h gvy h gvx  gvy  glen  gi   gvx  gvy  gvx 8 gvy 8 gx K glen  T gvx  igvy  igvx  agvy  aglen  ]gi  ! Mgvx z gvy z gvx gvy glen gi  gvx 1 rgvy 1 rgvx J jgvy J jgvx Agvy Agvx 9gvy 9gvx 5gvy  5gvx  1gvy  1gx  gfilenamef&language/assembly/compile-bytecode.scm U  ^  _   _ 6  _ 3  _   _ ( `  ) `  - ` 1 ` 1 5 ` * @ a  A a  E ` I a 4 M a - T b  [ d  e  d  f  g  f h i  j     !  %  &  /  3  B  F  L  L j  )  C  j    .  j                j  +  ;  K  j  +  ; ( K , j  +  ;  K  j  #  j J  N j  !  j    j "  & j j  n j    j   O j  ~ "  j C } '  j  | " a j { "  j \ z j j l  m  m * m & m  n   t  ! y ( / y  5 j f  E gnamegwrite-bytecodeCRE-SPQTU h-13 "d HHOQ4 5K4 >"GJ45$DJ456$&t$e$M$44 $ 45" 545"' 6 6 6 6 6gassembly genv gopts  gbv  qgtarget-endianness  qgpos   qgu32-bv   qgwrite-bytecode   qgvx  ~ gvy  ~ gvy  gvx  gvy  gvx  gfilenamef&language/assembly/compile-bytecode.scm  '   (  - ,  6  ;  B  M  T X  ` d  i  q t   % ( 0 , %             #   gnamegcompile-bytecodeCRCjgm  ,gfilenamef&language/assembly/compile-bytecode.scm   l    n C62.0/ccache/language/assembly/disassemble.go000064400000025701151463412640014510 0ustar00GOOF----LE-8-2.0+]4h ] gguile  gdefine-module*   glanguage gassembly g disassemble  gfilenameS f!language/assembly/disassemble.scm gimportsS gice-9 gformat    gsrfi gsrfi-1   gsystem gvm g instruction   gprogram   gbase gpmatch   ! "! #gcompile $# %$ & "% 'gexportsS ( )gset-current-module *) +) ,fDisassembly of ~A:  -gdisassemble-load-program .g decompile /gfromS 0gvalue 1gtoS 2g load-program 3gassq-ref 4gobjects 5g free-vars 6gmeta 7gblocs 8gsources 9gnewline :gfor-each ;fEmbedded program ~A:  gnop ?g print-info @gcode-annotation Agand=> Bgassq Cgsource->string Dggensym Ef Fgdisassemble-free-vars Ggdisassemble-meta Hgprogram? Igdisplay Jf)----------------------------------------  Kg vector->list Lgerror Mfbad load-program form NfFree variables:  Ogfold Pgmake-syntax-transformer QP RP Sgunless Tgmacro Ug $sc-dispatch VU WU Xg_ Ygany ZXY [g syntax->datum \[ ][ ^g datum->syntax _^ `^ agif bgnot cgbegin dgsyntax-violation ed fd gf-source expression failed to match any pattern hgname ih jg*uninteresting-props* kgfilter lgmemq mf Properties:  nf~a:~a:~a og source:file pf(unknown file) qgsource:line-for-user rg source:column sg make-int16 tgassembly-unpack uglist vgvector wf ~a element~:p xgbr ygbr-if zgbr-if-eq {g br-if-not |g br-if-not-eq }gbr-if-not-null ~g br-if-null f-> ~A gbr-if-nargs-ne gbr-if-nargs-lt gbr-if-nargs-gt gbind-optionals/shuffle-or-br g last-pair g object-ref f~s g local-ref glocal-boxed-ref g local-set glocal-boxed-set g binding:start g binding:end f`~a'~@[ (arg)~] g binding:name g binding:index glist-ref gassert-nargs-ee/locals gassert-nargs-ge/locals f~a arg~:p, ~a local~:p gfree-ref gfree-boxed-ref gfree-boxed-set f(closure variable) g toplevel-ref g toplevel-set f`~s' g variable? gmv-call fMV -> ~A gprompt fH -> ~A gassembly->object f,~4@S ~32S~@[;; ~1{~@?~}~]~@[~61t at ~a~] C5h]4    &'(54+>"G,-./01hl]L6dgfilenamef!language/assembly/disassemble.scm !  ! %  ! 1  !    Ch0]4>"G4O>6<gx  )gfilenamef!language/assembly/disassemble.scm             ) gnameg disassembleCR23456789:;-h ]4>"G6gsym+asm  gfilenamef!language/assembly/disassemble.scm 1  2   2  2 4  2   3 (  3 6 3   C<=>?@ABCDEFGHIJh(]45$4>"G6Cgx  'gfilenamef!language/assembly/disassemble.scm S  T  T   U   U "  U  % V   ' CKLMhP]$9&$$$$ 45"$ 45"$ 45"$ 45"$ 45"    "(-4>"G4  4 5>"G"4 5 "I$ &x( 4 5 "|4 4  54 $ 4 5"5>"G 4 5 "#4 4  54 $ 4 5"5>"G 4 5 "4 4  54 $ 4 5"5>"G 4 5 "k$^&F454 >"G 4 5 ""U"N  " $4 >"G" $4 >"G"$ 456C66666gasm  Jgenv  Jgvx   Bgvy   Bgvx  ( 2gvy  ( 2gvy  6 *gvy  F "gobjs  "g free-vars "gmeta "gblocs "gsrcs "gpos gcode  gprograms  gasm  glen  gend   gvx   gvy   gvx  ] gsym  r gfilenamef!language/assembly/disassemble.scm $  %  R '  S '  Y ' ) [ '  f (  g (  m ( - o (  z )  { )  ) ) )  *  *  * ) *  +  +  + ) +  '  ,  - / 0 4 0 6  6 7  6  8   6  9 , @  3 @  6 @ . B @  C B  J E  [ G  c G # d G - u G  z B   H   H   H .  H   B   E   G   G #  G -  G   B   H   H   H .  H   B   E   G   G #  G - - G  2 B  = H  D H  G H . S H  S 9 l ;  p ; # r ;  r ;  u <  { < "  <   =   =   = 0  >   =   9  ,   , .  ,   J  J   K  L   M  Q   W   W  R & Y * Y  . Y 2 Y  6 Y : Y  > Y B Y  F Y J Y n  J gnamegdisassemble-load-programC-RINO?h ]4>"GCgfree-var  gi  gfilenamef!language/assembly/disassemble.scm ]   ^  _    Ch ]4>"G 6g free-vars  gfilenamef!language/assembly/disassemble.scm [  \   \ \   ]    gnamegdisassemble-free-varsCFR4RSTWZ]`abch -13Cygtest gbody gfilenamef!language/assembly/disassemble.scm c d   Chu] 45L4?6mgargs  gv gfilenamef!language/assembly/disassemble.scm  c    Cfgh(s] 45$ O@6kgy  'gtmp 'gfilenamef!language/assembly/disassemble.scm c   ' C5SRijRkljh]45C|gx  gfilenamef!language/assembly/disassemble.scm i   j   j $ j  j    CIm:?hl]6dgx  gfilenamef!language/assembly/disassemble.scm n  n   C9hH] 45(C4>"G4>"G6gmeta  Bgprops  Bgfilenamef!language/assembly/disassemble.scm h  i  k   i   i   l   m   m  " m  + n  B o   B gnamegdisassemble-metaCGRnopqrh8] 45$"45456gsrc  1gt  !gfilenamef!language/assembly/disassemble.scm q  r  r   r   r . " s ) s % 1 r   1 gnamegsource->stringCCRh] Cgbyte1  gbyte2  gfilenamef!language/assembly/disassemble.scm u  v  v   gnameg make-int16CsRtuvwsxyz{|}~3Ahy]Cqgobj  gfilenamef!language/assembly/disassemble.scm   "   C2hO].45$"$ 4?C$"K$"=$"/ $"! $" $" $ 45C$"$"$ 45C$ 4455C$$ CC$"!$"$"$s$k"W $N  "   "4 5$*4 5$4 54 5C""C45 "C $"!$"  C#$"$$"%$&C'$"($?$7 ") C4* 5$ $  C""C+$,45C-$.45C/40516Ggend-addr  gcode  gobjs   gnargs   gblocs   glabels   gcode  ginst   gargs   gbindings U gb _ gv 5 f gfilenamef!language/assembly/disassemble.scm x  y  y   z   y   {   y   |  . ~ / ~  8 ~  B |   &   |   &   |   + &    |       -     ! |  Q  U X  \  _  _  h  n  n  o ! s 0 u ! x  |  } "  /  "          3  0       /     |       *  %    |      |  /  4 & 5  5 =  B  C  D  N  Q % U  W  Z  ]  q |  s t  { ) ~     |      (        j   gnamegcode-annotationC@Rh]6gaddr  ginfo  gextra   gsrc   gfilenamef!language/assembly/disassemble.scm      gnameg print-infoC?RCgm  ,gfilenamef!language/assembly/disassemble.scm     $ x [  f   f  h A q  u  x     C62.0/ccache/language/assembly/spec.go000064400000002301151463412640013136 0ustar00GOOF----LE-8-2.0]+4h] gguile  gdefine-module*   glanguage gassembly gspec  gfilenameS flanguage/assembly/spec.scm gimportsS gsystem gbase    gcompile-bytecode   gdecompile-bytecode    gexportsS  gset-current-module   ginvalidate-compilation-cache! g make-language gnameS gtitleS !f'Guile Virtual Machine Assembly Language "greaderS #gread $gprinterS %gwrite &gparserS 'g compilersS (gbytecode )g decompilersS *g for-humans?SC5h]4    54>"G4i>"G4i !"#hy]6qgport  genv  gfilenameflanguage/assembly/spec.scm     #   C$%i&#i'(i)(i*5RCgm  ,gfilenameflanguage/assembly/spec.scm   -  K           C62.0/ccache/language/brainfuck/parse.go000064400000004022151463412640013445 0ustar00GOOF----LE-8-2.0]#4h#] gguile  gdefine-module*   glanguage g brainfuck gparse  gfilenameS flanguage/brainfuck/parse.scm gexportsS gread-brainfuck   gset-current-module   g greverse-without-nops g read-char g eof-object? gprocess-input-char g      g     g   g   !g  "C5hx]4    54>"GhH9]!"7(C& """1glst  Hgcur  =gresult   =ghead   =gtail   =gfilenameflanguage/brainfuck/parse.scm *  +  -   /   0   /   1   1  " 1  . 2 5 3  = 3 = +  @ ,  H +   H gnamegreverse-without-nopsCRhX9]"J4545$45(CC]$645""1gp  Wgparsed  Pgchr  Pgparsed  ! /gfilenameflanguage/brainfuck/parse.scm >  ?   @  @   B   A   C  ! C  ) D 4 G  8 A  > H  ? J  J J  P J  P ?  Q ?  W ?   W gnamegread-brainfuckC R ! " hh]>$C<$C+$C-$C.$C,$C[$ 45C Cgchr  agp  agfilenameflanguage/brainfuck/parse.scm U V  W  V   X # V  % Y / V  1 Z ; V  = [ G V  I \ S V  U ] V ]  ] ] ` ^   a gnamegprocess-input-charCRCpgm  (gfilenameflanguage/brainfuck/parse.scm    * l >  U    C62.0/ccache/language/brainfuck/spec.go000064400000002221151463412640013264 0ustar00GOOF----LE-8-2.0y],4h] gguile  gdefine-module*   glanguage g brainfuck gspec  gfilenameS flanguage/brainfuck/spec.scm gimportsS gcompile-tree-il    gcompile-scheme   gparse   gsystem gbase    gexportsS  gset-current-module   ginvalidate-compilation-cache! !g make-language "gnameS #gtitleS $f Brainfuck %greaderS &gread-brainfuck 'g compilersS (gtree-il )gscheme *gprinterS +gwriteC5h]4    54>"G4 i>"G4!i"#$%&hz]6rgport  genv  gfilenameflanguage/brainfuck/spec.scm &   & #   C'( i)i*+i5 RCwgm  ,gfilenameflanguage/brainfuck/spec.scm   - $ K %  '   $    C62.0/ccache/language/brainfuck/compile-scheme.go000064400000004732151463412640015235 0ustar00GOOF----LE-8-2.0 ]>4h] gguile  gdefine-module*   glanguage g brainfuck gcompile-scheme  gfilenameS f%language/brainfuck/compile-scheme.scm gexportsS  gset-current-module   g tape-size glet gpointer   gtape g make-vector   gappend   g compile-body g write-char    greverse gcompile-instruction !g  "gset! #g+ $g %g vector-set! &g vector-ref '& (g  )g integer->char *)' +* ,g  -g char->integer .g read-char /. 0-/ 1%0 2g  3giterate 4gif 5gnot 6g= 76'  857 9gbegin :3 ;: "G u0R h0]445 5Dgexp  -genv  -gopts   -gfilenamef%language/brainfuck/compile-scheme.scm 5  7   9  9  ! 9 # 7  - 6   - gnamegcompile-schemeCR h8-]"&(645""%g instructions  7gcur  ,gresult   ,gcompiled   ,gfilenamef%language/brainfuck/compile-scheme.scm D  E  G   H   I   I +  I   I   J  $ J  , J  , E  / F  7 E   7 gnameg compile-bodyCR!"#$%'(+,123489;<=hs]$C$C $ C $ C $"4455C6kgins  gkey  gdir   'ginc  4 Igfilenamef%language/brainfuck/compile-scheme.scm P  Q   Q   V   V   W  0 Q  3 \  4 \  8 ]  R Q  T c  ^ Q  ` i  j Q  l t  y w  ~ w  w  t  z  z 2 z   gnamegcompile-instructionC RCgm  (gfilenamef%language/brainfuck/compile-scheme.scm   . $ Z 5  D & P   ( C62.0/ccache/language/brainfuck/compile-tree-il.go000064400000006733151463412640015335 0ustar00GOOF----LE-8-2.0 ]X4h] gguile  gdefine-module*   glanguage g brainfuck gcompile-tree-il  gfilenameS f&language/brainfuck/compile-tree-il.scm gimportsS gsystem gbase gpmatch    gtree-il    gexportsS  gset-current-module   g tape-size g parse-tree-il glet gpointer gtape  !gconst "!  #gapply $g primitive %g make-vector &$% '" (g compile-body )gvoid *) +gbegin ,greverse -g  .ggensym /gletrec 0giterate 10 2glambda 3g lambda-case 4 5gif 6g= 7$6 8g vector-ref 9$8 :glexical ;: <: =#9;< >#7=" ? @gerror Afunknown brainfuck instruction Bg  Cg vector-set! D$C Eg char->integer F$E Gg read-char H$G I#H J#FI K#D;<J Lg  Mg write-char N$M Og integer->char P$O Q#P= R#NQ Sg Tg+ U$T Vg  Wgset!C5h]4    54>"G u0R "#&!'( h8]4 4 55Dgexp  2genv  2gopts   2gfilenamef&language/brainfuck/compile-tree-il.scm [  ]   ^  ! a * ^  , ]  2 \   2 gnamegcompile-tree-ilCR*+,-./12345>(#:?@ABKLRSD;<U=!VW h(]A"((C(C45C""""$&f45    4 5"G66$0&(""<"8"4$0&(""""$b&L$A(-"b""""$^&H$=()""#""""g instructions  (gin  gout   gv  . gvx  M gvy  M giterate  ^ gx  gvx  gvy  gvx   Cgvy   Cgvx  T gvy  T gvx  m gvy  m gx   gvx   gvy   gvx   gvy   gx    gfilenamef&language/brainfuck/compile-tree-il.scm h  i  l   o   p   q   o   q  " r  # r  * r  . u  . u  Z  ^ b  y +  k k  k   5   5  u  k  k   k   u  . k 0  3 k  ; k  ? u  y    k  k   k   u   z   z  k  k   k   u   i   i " ( i 7  ( gnameg compile-bodyC(RCygm  ,gfilenamef&language/brainfuck/compile-tree-il.scm   2 - l [  h    C62.0/ccache/language/value/spec.go000064400000001432151463412640012437 0ustar00GOOF----LE-8-2.0] 4h] gguile  gdefine-module*   glanguage gvalue gspec  gfilenameS flanguage/value/spec.scm gimportsS gsystem gbase     gexportsS  gset-current-module   ginvalidate-compilation-cache! g make-language gnameS gtitleS fValues greaderS gprinterS gwrite g for-humans?SC5h`p]4    54>"G4i>"G4ii5 RChgm  ,gfilenameflanguage/value/spec.scm   -  K   \    ^ C62.0/ccache/language/scheme/decompile-tree-il.go000064400000202662151463412640015145 0ustar00GOOF----LE-8-2.0]4h] gguile  gdefine-module*   glanguage gscheme gdecompile-tree-il  gfilenameS f%language/scheme/decompile-tree-il.scm gimportsS gtree-il    gsrfi gsrfi-1   gsrfi-26   gice-9 greceive   gvlist   gmatch   !gsystem "gbase #gsyntax $!"# %$ & % 'gexportsS ( )gset-current-module *) +) ,g do-decompile -guse-derived-syntax?S .-  /g avoid-lambda?S 0/  1g use-case?S 21  3gstrip-numeric-suffixes?S 43  5.024 6gchoose-output-names 7g hashq-ref 8gif 98 :gbegin ;glet gdefine ?glambda @gmap Aglist Bglet* Cgletrec* Dgletrec Egappend FE GE Hglength Igand Jgor KH LH Mgx NM Ogelse Pgreverse QP RP SO TS Ugeqv? Vgquote Wgmemv Xgcase Ygc ZVO [g_ \Z[ ]IY\ ^] _gcond `g take-while agidentity bgdrop cgcar dgcdr egcons fgtake gg hg ig const-exp jgself-evaluating? kg  lg sequence-exps mg  ngapplication-proc ogapplication-args pg qgprimitive-ref-name rg  sglexical-ref-gensym tg  uglexical-set-gensym vglexical-set-exp wgset! xg  ygmodule-ref-mod zgmodule-ref-name {gmodule-ref-public? |g@ }g@@ ~g  gmodule-set-mod gmodule-set-name gmodule-set-public? gmodule-set-exp g gtoplevel-ref-name g gtoplevel-set-name gtoplevel-set-exp g gtoplevel-define-name gtoplevel-define-exp g g lambda-meta g lambda-body gassq-ref g documentation g case-lambda* g case-lambda  g  glambda-case-req glambda-case-opt glambda-case-rest glambda-case-kw glambda-case-inits glambda-case-gensyms glambda-case-body glambda-case-alternate gcons* glist-ref g list-head goptionalS g list-tail gkeyS gcaddr gallow-other-keysS  g  gconditional-test gconditional-consequent gconditional-alternate VU gv VV g last-datum   Z  gvoid? g g let-gensyms glet-vals glet-body g gletrec-in-order? gletrec-gensyms g letrec-vals g letrec-body g g fix-gensyms gfix-vals gfix-body g  glet-values-exp glet-values-body gcall-with-values g make-lambda g  g dynwind-body gdynwind-winder gdynwind-unwinder g dynamic-wind g g dynlet-fluids g dynlet-vals g dynlet-body g with-fluids g g dynref-fluid g fluid-ref g g dynset-fluid g dynset-exp g fluid-set! g g prompt-tag g prompt-body gprompt-handler gcall-with-prompt g g abort-tag g abort-args g abort-tail gapply gabort gerror funhandled record gmake-hash-table 8V|}w>=:;BDCIJ_X?<WU gfor-each g hashq-set! gstring->char-set f 0123456789 gstring-skip-right g string-length g string-ref g substring gstring->symbol gsymbol->string ghashq-create-handle! gmemq g top-level g vhash-foldq* g lexical-ref? greverse! g=> gcadr gfold g vhash-consq g let-names g letrec-names g fix-names g vlist-null g sort-list gany gand=> g string-append f- gnumber->stringC5h0] 4    &'(54+>"G,h]@ge  genv  gopts   gfilenamef%language/scheme/decompile-tree-il.scm     gnamegdecompile-tree-ilCR567h]L6gs  gfilenamef%language/scheme/decompile-tree-il.scm ,  , !  gnameg output-nameC9:h0](C"C$(C""ges  /gfilenamef%language/scheme/decompile-tree-il.scm 4   5  2   8  5   / gnameg build-beginC:;h]!"5$(&$CCCC$C&-$"($C"""""}ge  gw  5gx   5gw H gx  H gw  a }gx  a }gfilenamef%language/scheme/decompile-tree-il.scm :   ;  . > ; ;   gnamegbuild-lambda-bodyC:h8]$(&$CCCCge  7gw  1gx   1gfilenamef%language/scheme/decompile-tree-il.scm @   A  * C   7 gnamegbuild-begin-bodyC<=>?hH]""uL$e$T&8$'$ CCCCCCL$M$B&,$!$ C"D"@"<"8"4@gname  ge  gw   ggx   ggw  2 Sgx  2 Sgw  gx  gw  gx   gfilenamef%language/scheme/decompile-tree-il.scm E   F  ? L K M { F  I F   gnameg build-defineC;@ABhm][454L5""L$$$$($s(i$Z   &E $;     $' (   $  CCCCCCCCCCCCCC$$$(x$h(]$M   &7 $,     $ $   C"""""""""""$B$.($(C"B">":"6"2egnames  gvals  gbody   gv   gx  2 gw  E gx  E gw  Z gw  m gw | gx | gw gx gw gx  gw   gx   gw   gw  - gw < gx < gw U {gx U {gx   gw   gx   gfilenamef%language/scheme/decompile-tree-il.scm O   P   P   Q   P  W P  i T w P    gnameg build-letCCD@A;G?H hX ]|$"454L5"""]L$T$J&5$+$44L55CCCCCC$)$$($   $ (   $     & $  $$t$i(^$N $7$,4545$ 45C"""""""""""""""{"w"s"o$;$'($C"1"-")"%$B$.($(C"""""g in-order?  Vgnames  Vgvals   Vgbody   Vgv  $ Vgw  E gx  E gx  [ gx  gw  gx  gw  gw gx gw gw gx gw   gx   gw  0 gw  ? gx  ? gx   gw   gx   gx   Rgw  & Ngx  & Ngfilenamef%language/scheme/decompile-tree-il.scm Z   [  [   [ '  \   ]  # [  j h o i  } h [  T c  [ c ! b c f c h d k d  x d  e  [   _   [   V gnameg build-letrecC8h]#$&d$Q&4" C$(C""CCCCgtest  g consequent  g alternate   gw   gx   gw  ( sgx  ( sgfilenamef%language/scheme/decompile-tree-il.scm m   n  9 p C n  W o  i p   gnamegbuild-ifCIh0](C"C$(C""gxs  .gfilenamef%language/scheme/decompile-tree-il.scm r   s   v  s   . gnameg build-andCJh0](C"C$(C""gxs  .gfilenamef%language/scheme/decompile-tree-il.scm x   y   |  y   . gnamegbuild-orCILNORT8hpl]I" $&45$ 45"$ "$4L5C"$I45"4L5C$#( 4L54L 5C""$"4L5C"p4L5C4L5C$R&<$1&$(C""""""dge  lgw  gx   gtail-len  & glen  ; gls  c gn  c gp-ls  c gxs  s gw gw  gw  hgx   hgw  5 `gx  5 `gfilenamef%language/scheme/decompile-tree-il.scm    S T  [ c  { |    .           S  X   l gnamegbuild-else-tailC8UhZ]LL6Rgfilenamef%language/scheme/decompile-tree-il.scm     CVWXh]"d"A$4$&$$   & $     $O LQ  $ (} $k&S $D(9$'4L54L4L55CL666L6L6 6 6L6L6L6L6L6L6L6L6$$&$$   & $     $ $ ({   $k  &U$J(?$/$$4L54L4L55C""""""""""""""""$[$F&0$%$$C"J"F"B">":"6gv  ge  gv   gw   Lgx   Lgw  / Fgx  / Fgw  H :gx  H :gw Y 4gx Y 4gw r (gx r (gfailure "gw  gw  gx  gfailure  gw  gw  gx  gw  _ mgx  _ mgw  p igx  p igw   agx   agw  ]gx  ]gw  Ugx  Ugw  Igw   Egx   Egw   9gw   1gx   1gw  ~ gx  ~ gw   gx   gw   gx   +gfilenamef%language/scheme/decompile-tree-il.scm     %  R    ! " ' % / 0 5    gnamegbuild-case-else-tailCL^ROh]A45$ 45"$ "$D"$X45"D$;(0$& DDD""$"~D"jgclauses  gtail-len glen   gls  = gn  = gp-ls  = gcs  M gw  i gw  u gw   gfilenamef%language/scheme/decompile-tree-il.scm    7  9 =  V  X X  1 &       gnameg clauses+tailCH_G@h]4L5Cgtest  g consequent  gfilenamef%language/scheme/decompile-tree-il.scm   (   ChC]45 $C $ L644LO5$;&$"4L5"4L5"4L55C;gtests  g consequents  g alternate   gkey  gw  L }gx  L }gfilenamef%language/scheme/decompile-tree-il.scm    #  & # * ,  0  B  f   gnameg build-condCUVW`a@UVWhp]YL"$$&o$f$Q$H(?$1   & $ (    CCCCCCCCCCCC$$&$|$e$Z(O$?   &) $ (   $ C""""""""""""gt-df5d6f08a2a2c7b-4dd8  igv  igw   gx   gw  + gx  + gw  D gx  D gw  b gw q gx q gw gw  egx  egw  agx  agw  Ygx  Ygw   Mgw  Igx  Igw - =gfilenamef%language/scheme/decompile-tree-il.scm /     i CHbEcdXGefh]KL$(""$&$$"$"{$_(S$?   &" $ (  "7"2"-"(  """"""$&$$"$""$(r$[   &; $, (   $"" """"""  ""z""o""g""Y""Q""C44O55454L4L4 54 5554L> G454 4 554 4L4 555    $ L 6 44 4L4  5555CL6gtests  g consequents  g alternate   gtest   gw  ) gx  ) gw  B gx  B gw  o gw ~ gx ~ gw  gx  gw   gx   gw  : gw I gx I gw f |gv   g datum-lists   gn   gtail   gclauses  + gtail  + gn c g datum-lists c g consequents c gfilenamef%language/scheme/decompile-tree-il.scm       (      I 0  M 0  N 0  U 0 ) Y    0   0   0   0 ) !       *          /  0  0  /    ! $ . 5  <  = ! B ) L ! M ! R ) W . a ) c ! c  n  r  |  ~     /  4  /      7   gnamegbuild-cond-or-caseCg9hiVjkl@mno?Hpqrs7tuvwxyz{|}~<AGcXLROUVWG8 h0]""$&$$"$C45$ 45"$ "$C"$4 5 $(  $     & $ ( $&$$j$`(V$G&2$((4  5CCCCCCCCCCCCCCCCC$j  $[     $G (=   $. ($ &   "CCCCCCC "qCCC$ &$$&u$j$"$"$>(3  $#     &  $ (  $  &$($&$$t$i(^$N&8$-("$ C"""""{"w"s"o"k"g"c"_"["W"S"O"K"G"C"?";"7"3"/"+"'"#$ &$$&l$a$"$"$5(*  $     & $ (  $  &$($&$$k$`(U$E&/$$( C""""""""""""""""""|"x"t"p"l"h"d"`"\(ge  gw  gx   gw  0 gx  0 gtail-len  Q glen  f gls  gn  gp-ls gdatum gw gw gx gw  }gw  zgx  zgw  tgx  tgw   kgw  ' hgx  ' hgw  D _gw  gw  gx  gw  gw   gw ( gx  ( gw  A gx  A gw  R gx  R gw  k gx  k gw  gw  gx  gw  gw  gx   gw   gw   gx   gw   gx   gw  4 gw  C gx  C gw  ` gw  gx   gw   gx   gw   gx   gw  7 gx  7 gw c gw r gx r gw  zgw  vgx   vgw   jgw   fgx   fgw   ^gx   ^gw   Rgw   Ngx   Ngw  , BJgfilenamef%language/scheme/decompile-tree-il.scm M  N 7 0  ; 0  < 0  C 0 ) G N H V   N r 0  v 0  w 0  ~ 0 )  N k R   N > 0  B 0  C 0  J 0 ) N N 0 P  F N    gnameg simplify-testC8UXW_IJ;h ]&C&245"C45$$"C"&45L4 L56 &4 54 54L54 L5$$l &W$M   $9 $/$%4 545$L 4L 56CCCCCCCC&6&45L6&(45454L54L5C&1454545$"C&F454 54!54"5$"4L5C#&$6%&!4&54'54L5C(&4)54*5L4L56+&4,54-5$4L54./5$"/""j$`0&K$A $-   $ $0   CCCCCCC$e1&O$D $/   $ $1   C":"6"2"."*"&$B2&,$!  $ 2 C""""$B &,$!  $   C""""C3C4&4554654754854954:54;54<5 4 L5 $"$" $$ $ 4= ?" 4L4L55C$"$4L 5$ 4= ?"       $1 4L4L55 C 2$0 4L4L55 C 1$1 4L4L55 C 0$0 4L4L55 CC $ 4L 5" 45 $ 45"  $4>   5"4?  5$.@4 A4?4B  5 54 L4? 555"$LC4D4 A4 L4 E554 L4B 554 F55$G"5"4D4D4D555 $d  $"2$04L4L55 C1$"0$04L4L55 CC24L4L55CH& H4I54J54K5LM44L554L54N5$" 4L5""M"""""T"|""Z$PM&;$1   $    O & $    $" $C$($&$( $  $o(e$VP&A$7 $!$P 4L 5CCCCCCCCCCCCCCCCCCCCC$lM&V$K   $6    Q &  $    $" $";$($&$($ $  $r(g$WP&A$6 $$P 4L 5C""{"w"s"o"k"g"c"_"["W"S"O"K"G"C"?";"7"3"/$M&$w   $b     $M (B   $2  R&$R 4L  5C"""""""""L $$M&$   $     $t (i   $Y  M&C$8$#L   4L56"""""""""""L $|$qM&[$P   $;     $& (   & L  6"B">":"6"2"."*"&$M&$z   $e     $P   S &:$/ $$ ( & L 6""""""""""|$PM&:$/   $ (  M  C"-")"%"!"L $$M&t$i   $" $" $=      $& $ (  L   6"""""""~"z$M&$   $" $"5 $g      $P $E (:   $*  T&$ L  6""""""""""L $$M&$   $u (j   $Z    M &D $9  $$(L 4L 56""""" """"""$M&$   $ (   $    M &n $c  $NS&8$-$"(L 4L 56"?";"7"3"/"+"'"#"""""U&n4V54W54X54L4 L54 L54L55"$ Y&$ $(  $     $ (   $ ( $yP&d$Z $D$:("4L544L55$ P CCCCCCCCCCCCCCCCC$Y&$ $(  $     $ (   $ ( $sT&]$R $;$0(" 4L5$ T C" " """"""""""""""Z&C4[54\54]54^5L4 L54 L54L56_&94`54a54b5L4 L54 L54L56c&74d54e5f 4L4L554L4g55Ch&@4i54j54k5l4L5 4L4L554L5Cm&E4n54o54p5q4 A4 L54 L554L4L55Cr&4s5t4L5Cu&&4v54w5x4L54L5Cy&@4z54{54|5}4L5 4L4L554L5C~&B4545454L54D4 L54L55C6 ge  grtd  gexp  ! Lgexps  [ jgproc  !gargs  !gv  !gw  gx  gw  gx  gw gx ggensym  > Hggensym  ^ xgexp  ^ xgmod   gname   gpublic?   gmod   gname   gpublic?   gexp   gname  # 6gexp  # 6gname  L ]gexp  L ]gmeta  s gbody  s gbody   gdoc   gw    gx    gw   gx  gw  gx  gw   ygx   ygw  3 qgx 3 qgw D mgx D mgw   gx   gw   gx  gw   gx   gw    gx   greq  ] gopt  ] grest  ] gkw  ] ginits  ] ggensyms  ] gbody  ] g alternate ] gnames v g alt-expansion  rgformals  rgkey  rg alt-expansion  gnreq  gnopt  grestargs   greqargs   goptargs   gkwargs  Q gformals  j gkey  u gtest   9g consequent   9g alternate   9g simplify-test   9gv  B 9gw  y gx  y gw  gx  gw  gx  gw  gx   gw   gw   gx   gw   gw  " gx  " gw  7 gw  F gx  F gw  _ gx  _ gw   9gx   9gw  1gx  1gw  -gx  -gw  %gx   %gw  B gw  Q gx  Q gw  n gw  gx  gw  gw  gx  gw  gx  gw  J gx  J gw c gx c gw t gx t gw gw  gx  gw  gx  gw gx gw  gx  gw 2 gw  A gx  A gw  Z gx  Z gw  k gx  k gw  2gx  2gw *gx *gw &gx &gw  gw  G gx  G gw ` gx ` gw q gx q gw gx  gw  gw  7gx  7gw  /gx  /gw  'gw  N gx  N gw g gx g gw gx gw gw  gx  gw  gx  gw ( gx ( gw F }gw  U ygx  U ygw   Qgx   Qgw  Igx  Igw  Agw  =gx  =gw   5gx   5gw   -gw  f 5gx  f 5gw  -gx  -gw  %gw  !gx  !gw   gx   gw   gx   gw   ggensyms  V gvals  V gbody  V gv  z gw   gx   gw   gx  gw  gw  gx  gw  }gw   wgw   tgx   tgw   ngx   ngs  < Jgw   gx   gw   gx  gw  gw  gx  gw  gw   gw   gx   gw  / {gx  / {gs  S ag in-order?   ggensyms   gvals   gbody   ggensyms   ;gvals   ;gbody   ;gexp  Q zgbody  Q zgbody   gwinder   gunwinder   gfluids   gvals   gbody   gfluid   -gfluid  C [gexp  C [gtag  x gbody  x ghandler  x gtag   gargs   gtail   gfilenamef%language/scheme/decompile-tree-il.scm     2    ) / 0  : = . A T  `  j r   $  $   (   )  H , ! P  d e , ! n ' w                 !   3    ) ,  5 >  U  ] e  }  ~        '                  X   i                 %  n   v  ~    %                           "      %                       !        !      (  ) !  , " " / !  9   ; $  >  A  I  J $  M % " N $  Y   [ '  ^  a  i  j '  m ( # n '  x * # y * 2  *  +   *  ,   , "  *  -   - '  - 7  - '  - F  *  .   *  /   0 !  1 %  2 *  2 5  2 *  3 *  4 /  3 *  1 %  0 !  5 !  *  6   7  8 $  9 )  9 :  9 E  9 :  9 )  : ) % ; . / : ) 0 < ) 7 < 2 9 < ) ; 8 $ > = ( B = $ D > ( I ? ( K 7 Q @ Q * T A  j * r B  u D  u D   F         F   G &  F   D   I         I   J '  I   C         C     X  X   X %  X   Y  & Z  0 Z  1 Z - 6 [ ! ? [  @ X  0   0   0   0 )  X u  }      X  0  ! 0  " 0  ) 0 ) - X | |  | X x x  x X x t  u v t X  p   p  X m  m X  k + X n 0  r 0  s 0  z 0 ) ~ X i  i X  0   0   0   0 )  X o f  q f u X  b  % b ! ' b  + 2  - b 1 X  ]   ] !  ]   2   ]  X A  ]  `   i   r   z  4   <  * <   ? - ! K   N  $ V   W   X   \  ^     I   S  , S   V - ! b   f  h   s   w                 !   *   3   ;  C  W  [  ^  f  g  i  l   p  & t   v  y                                                  "  #   ,  5  I  J   Q  ( Z  c                               (       q   gnamegrecurseCh@-/03####4> GO   O O  O    OOOOOQQ  Q   Q Q  Q Q  Q     Q45Dge  @genv  @guse-derived-syntax?   @g avoid-lambda?   @g use-case?   @gstrip-numeric-suffixes?   @goutput-name-table  F @goccurrence-count-table  F @g output-name  @g build-begin @gbuild-lambda-body @gbuild-begin-body @g build-define @g build-let @g build-letrec  @gbuild-if  @g build-and  @gbuild-or  @gbuild-else-tail  @gbuild-case-else-tail  @g clauses+tail  @g build-cond  @gbuild-cond-or-case  @grecurse  @gfilenamef%language/scheme/decompile-tree-il.scm ! 8 *  I )  6  @    @  guse-derived-syntax?S g avoid-lambda?S g use-case?S gstrip-numeric-suffixes?S gnameg do-decompileC,RHH4i4Hi554ih~]L6vgt-df5d6f08a2a2c7b-6cc8  gfilenamef%language/scheme/decompile-tree-il.scm ,   CO>"G7hu]L6mgname  gfilenamef%language/scheme/decompile-tree-il.scm -  -   COK4i5h`] 4L5$G45$5-45&#045&C4 5"CCCgstr  ]gi ]gfilenamef%language/scheme/decompile-tree-il.scm 4   5  5  6  6   6 !  6  " 6  % 7  1 6  4 8 # ; 8 3 = 8 # A 6  E 9 " T 9   ] gnamegbase-name-stringCOQh]4L4556gsym  gfilenamef%language/scheme/decompile-tree-il.scm ;   <   < ,  <   <    COKh0] 4M 5 $ MN"Cgs  +gh +gfilenamef%language/scheme/decompile-tree-il.scm N   O  O   P   P   P  Q $  Q  ' R  ( R  ) R   + gnamegincrement-occurrence-count!Ch0] $CL$ 4M5"M6gs  *gname  *gname   *gfilenamef%language/scheme/decompile-tree-il.scm \   I  ]   ^   _   ^ * a   * gnamegset-source-name!Chh] $"*4M545$" $C4M545$CCga  ggb  ggh   7gh  J ggfilenamef%language/scheme/decompile-tree-il.scm i   I  k  l   l >  l   l   m  ! m ! # m  ' m  2 n ( 3 n 4 n  : I  > k A l  H l > J l  J l  M m  T m ! V m  Z m  c n ( d n e n   g gnameg add-conflict!Ch(]4L5$CCgname  (gh (gt   (gfilenamef%language/scheme/decompile-tree-il.scm E  F  F  G   G  G 3 # G - $ G ! ' H !  ( Ch0]4L5$C4M5Cgname  *gh *gt   *gfilenamef%language/scheme/decompile-tree-il.scm V  W  W  X   X   X - & X ! ) Y !  * Cg8eh~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   ChVh~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Cmnos7pqh~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Cr`h|]LCtgs*  gfilenamef%language/scheme/decompile-tree-il.scm     &   !  Ch~]LL6vgt-df5d6f08a2a2c7b-6d65  gfilenamef%language/scheme/decompile-tree-il.scm    Ctuvwh~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Ch|]LCtgs*  gfilenamef%language/scheme/decompile-tree-il.scm     &   !  Ch~]LL6vgt-df5d6f08a2a2c7b-6d65  gfilenamef%language/scheme/decompile-tree-il.scm    Cx{|}h~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   C~h~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Ch~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Ch~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Ch~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Ch~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Ch~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   CIh~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   CJh~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   C_h~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   CXh~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   COh~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Ch~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Ch~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Ckl:h~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Ch~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   C?h~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   C<h~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Ch~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Ch~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   C;h~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   CBh~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   CE@h~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Ch~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Ch~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Ch~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Ch~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Ch~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   CCDh~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Ch~]LL6vgt-df5d6f08a2a2c7b-6dd7  gfilenamef%language/scheme/decompile-tree-il.scm    Ch~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Ch~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Ch~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Ch~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Ch~]LL6vgt-df5d6f08a2a2c7b-6deb  gfilenamef%language/scheme/decompile-tree-il.scm    Ch~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Ch~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Ch~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Ch~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Ch~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Ch~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Ch~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Ch~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Ch~]LL6vgt-df5d6f08a2a2c7b-6d57  gfilenamef%language/scheme/decompile-tree-il.scm z   Ch-]a&/4M 54M 54L 5L O6&/4M 54M 54L 5 L O6 &4 54 54 5$T45$" 4M54M5$4L 4M 5>"G""4L>"GL6&8454M 54M 54L 5L O6&{454M 5 $ MN"4O444M $" 4M55L 555L O6&45454M 54M 54L 54L O>"G4M 5 $ MN"4O444M $" 4M55L 5554L O>"G"P &P4!54M $""#54M $""#54L 5$L O6%&4&54'54M 54M 54L 54(L O>"G4M $""#54M $""#54L 54)L O>"G"6*&84+54M 54M 54L 5,L O6-&4.54/54M 54M 54L 540L O>"G4M 54M 54L 541L O>"G"L2&^4354454M 54M 54L 545L O>"G"6&-475485495L$4M :54M :54L 54;L O>"G4M <54M <54L 54=L O>"G4M >54M >54L 54?L O>"G4M @54M @54L 54AL O>"G4M B54M B54L 54CL O>"G4M D54M D54L 54EL O>"G"4M 54M 54L 54FL O>"G4L>"G4L>"G"G&U4H54M I54M I54L 54JL O>"GL6K&F4L5$"54M M54M M54L 5NL O6O&4P54Q54R54S54T54U54V54W5 4M X5 4M X54 L 5  4Y L O >"G   $" $" $4M Z5 4M Z54 L 5  4[ L O >"G   4M M5 4M M54 L 5  4\ L O >"G   4M ]5 4M ]54 L 5  4^ L O >"G   "4M _5 4M _54 L 5  4` L O >"G   L$H4M a5 4M a54 L 5  4b L O >"G   "4c$"$ "4de$"55 4dM  5 4fgL  5 4L>"G4L >"G4L>"G4L >"G $ "?Ch&R4i54j54k54l54M _54M _54L 54mL O>"GL$4M a54M a54L 54nL O>"G4M <54M <54L 54oL O>"G"4L>"G4L>"G4L>"GL4fgL 4dM 556p&4q54r54s54t54u54M _54M _54L 5 4vL O >"G L$4M a54M a54L 5 4wL O >"G 4M <54M <54L 5 4xL O >"G "4M $y"z54M $y"z54L 5 4{L O >"G 4L>"G4L>"G4dM 54fgL 54|LO>"GL6}&4~54545454M _54M _54L 54L O>"G4M y54M y54L 54L O>"GL$4M a54M a54L 54L O>"G4M <54M <54L 54L O>"G"4L>"G4L>"G4dM 54fgL 54LO>"GL6&p45454M 54M 54L 54L O>"G4L>"G"&4545454M 54M 54L 54L O>"G4L>"G4L>"G"]&4545454M 54M 54L 54L O>"G4L>"G4L>"G"&U454M 54M 54L 54L O>"G"i&p45454M 54M 54L 54L O>"G4L>"G"&4545454M 54M 54L 54L O>"G4M X54M X54L 54L O>"G4L>"G4L>"G"&4545454M 54M 54L 54L O>"G4M 54M 54L 54L O>"G4L>"G4L>"G"A6-ge  grtd  gbname   >gs  + >g conflicts  + >gbname  M ugs  b ug conflicts  b ugproc  gargs  ggensym  gname  gname   Hgbname   Hgs  5 Hg conflicts  5 Hggensym  W gh  c g conflicts   ggensym   gexp   gbname   )gs   &g conflicts   &gh  3 Sg conflicts   gpublic?    gbname    gs    g conflicts    gpublic?   gexp   gbname  + hgs  @ eg conflicts  @ egbname  { gs   g conflicts   gname    gbname    gs    g conflicts    gname  " gexp  " gbname  - jgs  B gg conflicts  B ggbname  q gs   g conflicts   gname   gexp   gbname   gs   g conflicts   gtest  9 Qg consequent  9 Qg alternate  9 Qgbname  L gs  a g conflicts  a gbname   gs   g conflicts   gbname   gs   g conflicts   gbname   Ugs  - Rg conflicts  - Rgbname  \ gs  q g conflicts  q gbname   gs   g conflicts   gbname   %gs   "g conflicts   "gexps  ` gbname  i gs  ~ g conflicts  ~ gbody   gbname   gs   g conflicts   greq  < gopt  < grest  < gkw  < ginits  < ggensyms  < gbody  < g alternate < gbname S gs h g conflicts h gbname  gs  g conflicts  gbname  4gs 1g conflicts 1gbname ; xgs P ug conflicts P ugbname gs g conflicts gbname gs g conflicts gnames G g base-names R g body-bindings a gnames  ggensyms  gvals  gbody  gbname  5gs  2g conflicts  2gbname  B gs  W |g conflicts  W |gbname  gs  g conflicts  g in-order?  J gnames  J ggensyms  J gvals  J gbody  J gbname  [ gs  p g conflicts p gbname  gs  g conflicts gbname  &gs  #g conflicts #gbname  = gs  ^ g conflicts ^ g base-names  gbindings  gnames   ggensyms   gvals   gbody   gbname   ]gs  5 Zg conflicts  5 Zgbname  d gs  y g conflicts  y gbname   gs   g conflicts   gbname   /gs   ,g conflicts   ,g base-names  f gbindings  u gexp   gbody   gbname   gs   g conflicts   gwinder  / gbody  / gunwinder  / gbname  < ygs  Q vg conflicts  Q vgfluids   <gvals   <gbody   <gbname    gs    g conflicts    gfluid  K gbname  T gs  i g conflicts  i gfluid   gexp   gbname   gs   g conflicts   gtag  . gbody  . ghandler  . gbname  ; xgs  P ug conflicts  P ugbname   gs   g conflicts   gtag   gargs   gtail   gbname   Ogs  ' Lg conflicts  ' Lgbname  V gs  k g conflicts  k gfilenamef%language/scheme/decompile-tree-il.scm s     w    "  w   w  x    "  x  y  % y 2 + y  + x  > z  F  G w  K  " M w  M w P x  T  " V x  W y  \ y 2 b y  b x  u z  }        I  c  J ! e          -         w   w # x  * y  / y 2 5 y  5 x  H z  P  Z O  c O  h P  i P  n P s Q $ u Q  ~ R   R   R            ,   ,  I   c   J !  e   ,                  w      w   w  x      x   y   y 2  y   x   z  * O  3 O  8 P  9 P  > P C Q $ E Q  N R  O R  P R T   ^   a   f  , g  , l I  p c  s J ! x e   ,                 0    w    /   ;   >  w   w  x    /   ;   >  x   y   y 2  y   x   z    % w  )   + w  + w . x  2   4 x  5 y  : y 2 @ y  @ x  E z  i w  q  * s  6 y  9 { w  { w ~ x    *   6   9  x   y   y 2  y   x   z    ?    w   w  x   y   y 2  y   x   z    ' w  +   - w  - w 0 x  4   6 x  7 y  < y 2 B y  B x  G z  k w  q w t x  { y   y 2  y   x   z    0    w   w  x   y   y 2  y   x   z    ; $  E  F w  J   L w  L w O x  S   U x  V y  [ y 2 a y  a x  f z   w    0  w   w  x    0  x   y   y 2  y   x   z   w      w   w  x      x   y   y 2  y   x   z   w    1  w   w  x    1 ! x  " y  ' y 2 - y  - x  2 z  V w  Z   \ w  \ w _ x  c   e x  f y  k y 2 q y  q x  v z   w    1  w   w  x    1  x   y   y 2  y   x   z   w      w   w  x      x   y   y 2  y   x   z  &  8   Q  1 Y  c w  g  * i w  i w l x  p  * r x  s y  x y 2 ~ y  ~ x   z    2         w    0  w   w  x    0  x   y   y 2  y   x   z    M w  Q   S w  S w V x  Z   \ x  ] y  b y 2 h y  h x  m z        w      w   w  x      x   y   y 2  y   x   z   w      w   w  x     x   y   y 2 y  x   z  5 w  9   ; w  ; w > x  B   D x  E y  J y 2 P y  P x  U z  } w    w  w x    x  y  y 2 y  x  z   w   0 w  w x   0 x  y  y 2 y  x  z       '  / &  4 +  = 0  I 1  # ;  - >  4 C  = E  # G   G  J  R  U   a  d   x            w    w  w x     x   y   y 2 y  x   z  ;  < w  @  3 B w  B w E x  I  3 K x  L y  Q y 2 W y  W x  \ z  w   E w  w x   E x  y  y 2 y  x  z         .      '  U w  Y   [ w  [ w ^ x  b   d x  e y  j y 2 p y  p x  u z   w   3 w  w x   3 x  y  y 2 y  x  z  w   E w  w x   E x  y  y 2 y  x   z  + w  3   5  & ;  / = w  = w @ x  H   J  & P  / R x  S y  X y 2 ^ y  ^ x  c z               w      w   w # x  '   ) x  * y  / y 2 5 y  5 x  : z  ^ w  b   d w  d w g x  k   m x  n y  s y 2 y y  y x  ~ z     w    3  w   w  x    3  x   y   y 2  y   x   z   w    E  w   w  x    E  x   y   y 2  y   x   z  4  H  ^  f  i   u  x         w      w   w  x      x   y   y 2  y   x   z         6 w  :   < w  < w ? x  C   E x  F y  K y 2 Q y  Q x  V z  z       -    w      w   w  x      x   y   y 2  y   x   z    !  <  D  N w  R  ) T w  T w W x  [  ) ] x  ^ y  c y 2 i y  i x  n z    5    w      w   w  x      x   y   y 2  y   x   z    %   5   5 w  9   ; w  ; w > x  B   D x  E y  J y 2 P y  P x  U z  y w  }    w   w  x      x   y   y 2  y   x   z         *    w      w   w  x      x   y  ! y 2 ' y  ' x  , z  P w  T   V w  V w Y x  ]   _ x  ` y  e y 2 k y  k x  p z         3      gnamegrecurseCh@] O L L LLLLLLLLLQ6ge  9gbindings  9grecurse   9gfilenamef%language/scheme/decompile-tree-il.scm r   s   9 gnamegrecurse-with-bindingsCh]M6gs  gname  gfilenamef%language/scheme/decompile-tree-il.scm      gnamegset-output-name!C7h@] 4M5$" 4M5$" Cga  :gb  :gt  gt  & 8gfilenamef%language/scheme/decompile-tree-il.scm    M ' M #  M ' & M # 9  #  : C77h~]LCvgt-df5d6f08a2a2c7b-6e32  gfilenamef%language/scheme/decompile-tree-il.scm ! ,   Ch(]$" 4M5LO6gs*  $gfilenamef%language/scheme/decompile-tree-il.scm  #  I    J !    $  %  $ C7h~]LCvgt-df5d6f08a2a2c7b-6e32  gfilenamef%language/scheme/decompile-tree-il.scm ! ,   Ch(]$" 4M5LO6gs*  $gfilenamef%language/scheme/decompile-tree-il.scm  #  I    J !    $  %  $ C h])L4M5$"$" 4M54LO5$^4455"84LO5$444 555"" ""6gs  gt  !g the-conflicts 8 gthe-source-name  8 gprefix  ^ gi  d gname  d gfilenamef%language/scheme/decompile-tree-il.scm    h  h   h = $ I  ( c  + J ! 0 e 8   =   P #  Q % ) T & * \ ' * ^ % ) ^ %  d (  e   x )  { + ) | , )  - * / + - * , ) + # (     Ch]cHHHHHHO O O Q Q Q K45  O K45K45  LO K45K45KO   L   Q 4 >"G H H  O Q45K 4 J O5K 4   OJ >"GJ JDge  guse-derived-syntax?  gstrip-numeric-suffixes?   glexical-gensyms   gtop-level-intern!   goccurrence-count-table   g base-name   gsource-name-table   gconflict-table   gincrement-occurrence-count! / gset-source-name! / g add-conflict! / gtable L Xgtable f tgrecurse-with-bindings goutput-name-table gsorted-lexical-gensyms gset-output-name!  gfilenamef%language/scheme/decompile-tree-il.scm ?  E A  H D  L D  [ L % b U  f U  w [ ~ g  r   "     1    CO6RCgm  ,g primitive? x)gcompute-base-name x)gtable  x+ ygdigits  y |gbase-name-string  {4 {gfilenamef%language/scheme/decompile-tree-il.scm     x ! x +  x! + % x' $  x) + % x+ +  x+ $  x. ,  x $  x ,  y 3  y 3 & y 3  y 3 ,   . C62.0/ccache/language/scheme/spec.go000064400000003727151463412640012600 0ustar00GOOF----LE-8-2.0]:4h] gguile  gdefine-module*   glanguage gscheme gspec  gfilenameS flanguage/scheme/spec.scm gimportsS gsystem gbase gcompile       gcompile-tree-il   gdecompile-tree-il    gexportsS  gset-current-module   ginvalidate-compilation-cache! !g make-language "gnameS #gtitleS $fScheme %greaderS &gand=> 'gmodule-variable (gcurrent-reader )g variable-ref *g fluid-ref +gread ,g compilersS -gtree-il .g decompilersS /g evaluatorS 0gprimitive-eval 1gprinterS 2gwrite 3gmake-default-environmentS 4gmake-fresh-user-module 5gmodule-define! 6g make-fluid 7g module-set! 8gformat 9g simple-formatC5h]4    54>"G4 i>"G4!i"#$%&'()*+h0] 444555$"6gport  -genv  -gt   -gfilenameflanguage/scheme/spec.scm !   $   $  $ %  $ :  $ %  $   $   $   - C,-i.-i/0hw]6ogx  gmodule  gfilenameflanguage/scheme/spec.scm ,   , #   C12i345(6789h@]45445>"G4>"GCgm  ;gfilenameflanguage/scheme/spec.scm /   2   2  6   6 &  6 6  6  # <  ) < # 0 <   ; C5RC}gm  ,gfilenameflanguage/scheme/spec.scm   -  K  Z *  f +       C62.0/ccache/language/scheme/compile-tree-il.go000064400000002251151463412640014624 0ustar00GOOF----LE-8-2.0]4h] gguile  gdefine-module*   glanguage gscheme gcompile-tree-il  gfilenameS f#language/scheme/compile-tree-il.scm gimportsS gtree-il     gexportsS  gset-current-module   gsave-module-excursion g macroexpand gc gcompile gload geval  gcurrent-moduleC5ho]4    54>"Gh0]4L>"G4L545Dgx  0gcenv & 0gfilenamef#language/scheme/compile-tree-il.scm              !       "   &   0   0 Ch]O6gx  ge  gopts   gfilenamef#language/scheme/compile-tree-il.scm       gnamegcompile-tree-ilCRCggm  ,gfilenamef#language/scheme/compile-tree-il.scm        C62.0/ccache/language/objcode/spec.go000064400000006512151463412640012734 0ustar00GOOF----LE-8-2.02 ]D4h] gguile  gdefine-module*   glanguage gobjcode gspec  gfilenameS flanguage/objcode/spec.scm gimportsS gsystem gbase    gvm    gprogram     gexportsS  gset-current-module   g make-program gcurrent-module gsave-module-excursion gobjcode->value !gmap "gcdr #gsort! $gassv-ref %g binding:index &gappend! 'gcollapse-locals (gprogram? )gprogram-objects *g program-meta +gprogram-free-variables ,gprogram-bindings -gprogram-sources .gprogram-objcode /gobjects 0gmeta 1g free-vars 2gblocs 3gsources 4gobjcode? 5gerror 6f/Object for disassembly not a program or objcode 7gdecompile-value 8ginvalidate-compilation-cache! 9g make-language :gnameS ;gtitleS gprinterS ?g write-objcode @g compilersS Agvalue Bg decompilersS Cg for-humans?SC5h]4    54>"Gh d]4L>"G4L5LLD\gfilenameflanguage/objcode/spec.scm  !  "   "    Ch0] 4545& 45DO6gx  0ge  0gopts   0gthunk  0gfilenameflanguage/objcode/spec.scm                #   0    0 gnamegobjcode->valueC R!"#h]C{gx  gy  gfilenameflanguage/objcode/spec.scm ,   , )  , 1 , &  C$%&hr]!"n(4564455$$4>"G"45""jglocs  gret  tglocs   tgb   tgt  . tgfilenameflanguage/objcode/spec.scm (  )  *   +   +   -   -  ! / & /  . / . . 7 1  @ 1 # E 1  R 2  Z 2  [ 4  f 4 ) i 4  l 5  t 4 t )  u )   )    gnamegcollapse-localsC'R()*+,-'./0123456h]345$t4545454545$ 45"45  $ 45"   D45$D6gx  genv  gopts   gobjs  0 gmeta  0 g free-vars  0 gbinds  0 gsrcs  0 gblocs  L  gfilenameflanguage/objcode/spec.scm 7  9  8   :   ;   <  # =  * >  0 :  @ ?  A ?  L ?  O @  W A  b B  c B ( m A  @  F  8  G  I I   gnamegdecompile-valueC7R48i>"G49i:;<=>?i@A iBA7iC5RCgm  ,gfilenameflanguage/objcode/spec.scm      ( @ 7 A K _ L  l O  x P   K    C62.0/ccache/texinfo.go000064400000126470151463412640010274 0ustar00GOOF----LE-8-2.0 ]p4h)] gguile  gdefine-module*   gtexinfo  gfilenameS f texinfo.scm gimportsS gsxml gsimple      g transform    gssax g input-parse    gsrfi gsrfi-1   gsrfi-11   gsrfi-13    !gexportsS "gcall-with-file-and-dir #gtexi-command-specs $gtexi-command-depth %gtexi-fragment->stexi &g texi->stexi 'g stexi->sxml ("#$%&' )gset-current-module *) +) ,gthrow -g parser-error .ggetcwd /gchdir 0gdirname 1gcall-with-input-file 2gbasename 3ginclude 43 5gpara 6g PARAGRAPH 756 8gitem 9gITEM :89 ;gentry <= ?;> @gnoindent Ag EMPTY-COMMAND B@A Cg *fragment* DgFRAGMENT ECD Fg*braces* Gg INLINE-TEXT HFG Igbold JIG Kgsample LKG Mgsamp NMG Ogcode POG Qgmath RQG Sgkbd TSG Ugkey VUG Wgvar XWG Ygenv ZYG [gfile \[G ]gcommand ^]G _goption `_G agdfn baG cgcite dcG egacro feG ggemail hgG igemph jiG kgstrong lkG mgsc nmG og titlefont poG qgasis rqG sgb tsG ugi vuG wgr xwG yg sansserif zyG {gslanted |{G }gt ~}G gvalue g INLINE-ARGS U gref gnode goptS gname gsection g info-file gmanual  gxref  gpxref gINLINE-TEXT-ARGS  gurl gALIAS guref   gtitle g replacement  ganchor  gdots  gresult  gbullet  g copyright  gtie  gimage gwidth gheight galt-text g extension [ gacronym gmeaning  gEOL-ARGS gnext gprevious gup  gc gall   gcomment  gsetchapternewpage  gsp  gpage  gvskip  g syncodeindex  gcontents  g shortcontents  gsummarycontents  g insertcopying  g dircategory gcategory  gtop  g printindex gtype  gparagraphindent gindent  g*ENVIRON-ARGS* gEOL-TEXT  gitemx  gset  gcenter   gsubtitle  gauthor  gchapter   gappendix  g appendixsec  g unnumbered  g unnumberedsec  g subsection  g subsubsection  gappendixsubsec  gappendixsubsubsec  gunnumberedsubsec  gunnumberedsubsubsec  g chapheading  g majorheading  = g subheading  g subsubheading  gdeftpx g EOL-TEXT-ARGS g attributes      gdefcvx  gclass      gdefivarx     g deftypeivarx g data-type   gdefopx g arguments       g deftypeopx       g defmethodx    !gdeftypemethodx " #!" $gdefoptx %$ &gdefvrx '& (gdefvarx )( *g deftypevrx +* ,g deftypevarx -, .gdeffnx / 0/ 1.0 2g deftypefnx 3 43 524 6gdefspecx 7 867 9gdefmacx :97 ;gdefunx <;7 =g deftypefunx > ?=> @gcindex AgINDEX BA; C@B Dgfindex EDB Fgvindex GFB Hgkindex IHB Jgpindex KJB Lgtindex MLB NgENVIRON ON PO Qgignore RQN Sgifinfo TSN Ugiftex VUN Wgifhtml XWN Ygifxml ZYN [g ifplaintext \[N ]g ifnotinfo ^]N _gifnottex `_N ag ifnothtml baN cgifnotxml dcN egifnotplaintext feN gg titlepage hgN igmenu jiN kgdirentry lkN mgcopying nmN ogexample poN qg smallexample rqN sgdisplay tsN ug smalldisplay vuN wgverbatim xwN ygformat zyN {g smallformat |{N }glisp ~}N g smalllisp N g cartouche N g quotation N gdeftp N  gdefcv N  gdefivar N  g deftypeivar N  gdefop N  g deftypeop N  g defmethod N  g deftypemethod N  gdefopt N gdefvr N gdefvar N g deftypevr N g deftypevar N gdeffn N/  g deftypefn N3  gdefspec N  gdefmac  gdefun  g deftypefun N  gtable g TABLE-ENVIRON g formatter  gitemize  g enumerate gstart  gftable  gvtable  47:?BEHJLNPRTVXZ\^`bdfhjlLnprtvxz|~   #%')+-158:<?CEGIKMPRTVXZ\^`bdfhjlnprtvxz|~                       gappendixsection        gcommand-depths gand=> gassq gcdr gmemq g% oqw}i gspace-significant? g command-spec fUnknown command ginline-content? g string-null? g string-every gchar-whitespace? gstring-whitespace? g*eof*    gread-eof-breaks g eof-object? g peek-char g next-token freading a line g read-char g read-eof-line g skip-while      gskip-whitespace    gskip-horizontal-whitespace gchar-alphabetic? fNonalphabetic @-command char: ' f' gstring->symbol g next-token-of g read-command g make-token gpair? gtoken? gcar g token-kind g token-head gassert-curr-char @ fstart of the command gSTRING gstring gend gstring-trim-both fmalformed @end gEND gbye gINCLUDE gSTART gread-command-token    freading verbatim  gstring=?  f @end verbatim  f   gread-verbatim-body farguments of @-command gmap g string-split gread-arguments greverse f"@-command expected more arguments: f'@-command didn't expect more arguments: f#@-command missing required argument garguments->attlist gread-text-line g string-length g string-ref g substring f@item formatter must be INLINE fInvalid @item formatter g char-numeric? fInvalid enumerate start   gparse-table-args !{ "fInline element lacks { #gparse-environment-args $gparse-eol-text-args %f can't happen &gcomplete-start-command 'gfind-string-from-port? (f @settitle  )fNo \n@settitle found *f"You have a @settitle, but no title +gtake-until-settitle ,gidentity -{}@  .freading char data /f 0gpeek-next-char 1fEOF while reading char data 2f  3gPARA 4gread-char-data 5fExpecting @end for  6f, got  7g assert-token 8gerror 9fno file listed :gread-include-file-name ;g string->list string =gsxml->node-name >g string-append ?gsymbol->string @f- Agindex B5C Cf/@item not ended by @end table/enumerate/itemize Df(@item must be within a table environment EfUnknown token type F@} Ggcall-with-input-string HN<9D Igmake-command-parser Jgstring? Kgreverse-collect-str-drop-ws Lg string-index Mgstring-trim-right Ng string-trim Ogappend Pgparse-inline-text-args Qgmake-dom-parser Rgreverse! Sf!@-command didn't expect more args Tf@-command expects more args Ugsubstring/shared Vf@-command doesn't take args Wg postprocess Xg input-port? Ygcar-eq? ZfTable of Contents [Z \g make-contents ]gstring-prefix? ^gstring-suffix? _gappend! `gstring-tokenize a/ bg string-join cgtrim-whitespace df@set missing arguments ef&expected a constant to define for @set fg fold-right ggcons hgassoc if unknown value jfcopying isn't set yet kgfold lgpre-post-order mgtexinfo-arguments ng*text* og *default*C5hp~]4   !(54+>"G,-h-13@gport gmessage grest  gfilenamef texinfo.scm Z [   [    gnameg parser-errorC-R./0hN]4L56Fgfilenamef texinfo.scm e   e  e   C/hF]L6>gfilenamef texinfo.scm h   h    C12hp] 45OO4O>"GV445>X4O>"GCX4O>"GF gfilename  lgproc  lg current-dir   lgfilenamef texinfo.scm ]  c   c   d  . g 1 g > g @ d   l gnamegcall-with-file-and-dirg documentationf$Call the one-argument procedure @var{proc} with an input port that reads from @var{filename}. During the dynamic extent of @var{proc}'s execution, the current directory will be @code{(dirname @var{filename})}. This is useful for parsing documents that can include files by relative path name.C"R#RRh0] 4455$$CCCgcommand  *g max-depth  *gdepth   *gfilenamef texinfo.scm n  z   z   z   z   {   {  # {   * gnamegtexi-command-depthg documentationfGiven the texinfo command @var{command}, return its nesting level, or @code{#f} if it nests too deep for @var{max-depth}. Examples: @example (texi-command-depth 'chapter 4) @result{} 1 (texi-command-depth 'top 4) @result{} 0 (texi-command-depth 'subsection 4) @result{} 3 (texi-command-depth 'appendixsubsec 4) @result{} 3 (texi-command-depth 'subsection 2) @result{} #f @end exampleC$Rh|]6tgcommand  gfilenamef texinfo.scm ~    gnamegspace-significant?CR#-h8] 45$&6C6gcommand  1gspec 1gfilenamef texinfo.scm                  "   %   -   1    1 gnameg command-specCRGh0y]$"$"$CCqgcontent  +gfilenamef texinfo.scm     + gnameginline-content?CRh ] 45$C6gstr  gt gfilenamef texinfo.scm            gnamegstring-whitespace?CRRhh]4455$64545 &'45 &4>"G""Cgport  agline $ agc  - agfilenamef texinfo.scm                         $   $   '   -   7   8  ' D  E    a gnameg read-eof-lineCRh]6wgport  gfilenamef texinfo.scm        gnamegskip-whitespaceCRh]6gport  gfilenamef texinfo.scm        gnamegskip-horizontal-whitespaceCR-h s]45$C45$CCkgc  gfilenamef texinfo.scm              C hP]4545$"4>"G456gport  Ig first-char <gt   9gfilenamef texinfo.scm               %   )  H .   ?   I    I gnameg read-commandCRh]C{gkind  ghead  gfilenamef texinfo.scm       gnameg make-tokenCRiRiRiR-893h@i]!4>"G45!&"S:&"F.&"9?&",@&"\&"{&"}$445564 5 $Y4 4 554 5$" 45$"4>"G456$6$6$66agport  <gpeeked  <gname  <gcommand  gt  gfilenamef texinfo.scm                   )          "                            $                          "   $  -   1   4  8   <  -  < gnamegread-command-tokenCR    hP\]"A454>"G45$C45""Tgport  Og str-handler  Ogseed   Ogseed   Ggfragment   Ggfilenamef texinfo.scm          $            '  -   /  3   7   =  & A   G  G    O gnamegread-verbatim-bodyC Rha]45$CCYgx  gfilenamef texinfo.scm 5   5 $ 5    Ch`Y]454>"G444,555$& (CCCCQgport  _g stop-char  _gstr   _gret  < _gfilenamef texinfo.scm 2  :  :  :  ;   :  :   4  & 5  + 6  0 6 * : 6  < 5  < 5  A 7  E 7  H 7 M 7 P 7 5 T 7 U 8   _ gnamegread-argumentsCR-hH] $("6("$"(%("$6LLL6( L6$0$""F$4L5"$C6@gin  gnames  gopt?   gout   gt  gfilenamef texinfo.scm V   X  W   Y   Y " ! Y  ' Z  / Z $ 2 Z  6 W  ; [  J [  P W  V ] W ]  a ]  g ^ m _  u _ { W  b  b  c W  h h  i  j  j  j  j ( j 7 j 1 i h  d d  d  d # d  d  e  f  e -  gnamegloopCh(] OQ6gport  "gargs  "g arg-names   "gloop  "gfilenamef texinfo.scm U V  V 8 " V   " gnamegarguments->attlistCR- h0]L $"Z4L 5@&K44L 554455$"4L>"G"$CLL6(gf * dgt : _gt i ~gfilenamef texinfo.scm p   q  q  r   q  s  ! s ( * s  * s  - t  0 t , 7 t & : t  : t  G u  M v  T u  i q  z x  ~ x   ~ gnameg get-formatterC-hI]"445545OQ$Z $C &44 55"$" 4  5$" 4  5C $X &"$ &""+45$"$"45C45CAgcommand  gport  gline   glength   g get-formatter  # gt  Z sgt  gfilenamef texinfo.scm m  n   n !  n   n   o   n  5 y  8 { = {  > | A } H ~  I   L  . U   Z ~  h   w ~  ~       } y              (             '   gnamegparse-table-argsC RG!"N<A# $6A9D-%h]"45$4>"GD$.4>"G44}55D $4>"GD $44 55D $" $" $!4>"G45D$!4>"G45D$4>"GD$!4>"G45D$"!$"$"$D6gcommand  gport  gspec  gcommand   gtype   g arg-names   gfilenamef texinfo.scm                         %   &   *   ,  3   >   B   K   L   P   R  Y   d   i   u   y                                         $   0   9   :   N   R   [   \   p   |                 ;   gnamegcomplete-start-commandC&R'(-)*hX] 45$"4>"G4>"G45 &6Cgport  Wgt .gfilenamef texinfo.scm                  #   /   A  M   S   U    W gnamegtake-until-settitleC+R,-./F0-1 235hv]=4$"5"454545$?"45"(4 5$4 5$""""D@&"{&"}$"45"(4 5$4 5$""""@$ 4 5">{$ 4   5"(}$4>"G4 5"D &45 4 5$]$"4>"G"45"(4 5$4 5$"""" D @&4 5 4 5 "'4 $"$"5"@4 5$14  $"$"5$"""" D$"  $l4>"G4>"G"45"(4 5$4 5$""""4 5D"4$"5"44 5$%4 $"5$"""""C"ngport  g expect-eof?  g preserve-ws?   g str-handler   gseed   g end-chars   gseed   gfragment  ' g term-char  0 gc =  gtoken  3gend?  3 gfilenamef texinfo.scm                         ' #  5 '   '  *   0  3   =  B  H  3 L  P   Q   [   \  # `  3 b  # f  |        3         #  3  #           +  2            0 $  < '  0 .   6  7   =   @   J   P   U   [  ) `   m  s  7 w  {   |        #   7   #                $   7              &   )   :   ?              #      &   )   :   ?   #   3   9   C  * G   H   L   S   \   r  x  7 |             #   7   #        &   ,             1   6              #     1   6   #           C4R-56hH] 45$ 45&45""$C6gtoken  Fgkind  Fgname   Fgt  . Fgfilenamef texinfo.scm               $  .   >   B  2 F    F gnameg assert-tokenC7R89h(] 445545$6Cgport  $gx  $gfilenamef texinfo.scm ?  @  @   @  @   A   A   B  ! B   $ gnamegread-include-file-nameC:R;<h]"g( 45@{&"}&"@&",$ ""4455"gsxml  gin  mgout   mgt   Kgfilenamef texinfo.scm E  G  H   I   I   J   J O J  R K  \ K _ L  b L ! e L  m L m G  n G  q G  y G  z G : G   gnamegsxml->node-nameg documentationf-Turn some sxml string into a valid node name.C=R>?@@DFHJL=;#hm] $"$"$"$"$"$"$"$" $" $"u $"g $"Y $"K$"=$"/$"!$"$"$9445455456$"=$"/$"!$"$" $<4454!4"555456Cegcommand  g arguments  gfdown   gfup   g parent-seed   gargs  ( @gargs   gfilenamef texinfo.scm N O   S   S   S )  S B  T /  T 5  T /  T ) " S  % S  ( S  . U 3 V 7 V  ; V < V - > V @ U  I O   X   X   X )  X B  Y )  Z *  Z 0  Z *  Y )  X   X   X   [  \  \   \  \ -  \  [ )   gnamegindexCAR&AB56h]L6gs  gfilenamef texinfo.scm j   j ,  j 2 j 6 j %  gnamegnew-paraCAAw 43,5hj]LL6bgs  gfilenamef texinfo.scm k *  k ;  k A k 6  C/8;-CN79D3":3hd]LLLL6\gport  gfilenamef texinfo.scm  $   1   &   C5hj]LL6bgs  gfilenamef texinfo.scm k *  k ;  k A k 6  CEF5hj]LL6bgs  gfilenamef texinfo.scm k *  k ;  k A k 6  C56'hb]]"54LL> G45$1$"$645L LLL645$^4$"5$ L O"4L45 4$L"55"6 $L &"L $A4 455  $"4>"G ""L&4 L>"G"45L LLL6$L&"L$ 4L L455L LLL6L& 4L L455L LLL6L &"L $#LLL454L LLL56L6$L"$3445LO5"$454 5     4 5 4 $$""5  $$  L O"""" $$L"""" 4L L4 55"6$wL$"4 5$]4!4"5#5$" 44"55$145$L O4L %&5"R"R"N"JZgport  g expect-eof?  gend-para   g need-break?   gseed   gseed   ;gtoken   ;gs  N \gkey  c ;gseed  gspec  (gt  %gs  U cgs   gs   gs   gseed  Q kghead  { 1gspec  1ghead  1gtype  1ginline?  1gseed  1gend-para   1gnew-para   1gseed   gfilenamef texinfo.scm z       !   +   4   G  $ H  N   \ i  ]   c   o  # u  $  #        ,  ?  ,  -  ,            %  3  %    $  0            %    0  / 4   5   ;  - B   O   U   c i  l   t           $   7        i    /         $   8        i          9   5  i                7 /   8   9  # <  $ Q  # Q   k   t   u  $ {   ~  $      $      $      '      $   %   )   $      (   ,      (   ,      9      8 #   1   7  * ;   ;   G  ! M  - W   X   [  e   i   o   r  ' z   {             j %  j ,  j 2  j 6  j %      gnamegloopCG,HhP]L4> G4LL54L545  $ "  $"45 O LQ &", &" &" &" $ L6 &4L5 L 6O  L L  LLQ  &4455"  $" 456gcommand  Jgport  Jgsig-ws?   Jg parent-seed   Jgcommand   Jg arguments   Jgexpected-content   Jg parent-seed  ' Jgseed  6 Jgt A Wg eof-closes? W Jgsig-ws? l Jgnew-para v Jgs gloop Jgfilenamef texinfo.scm a   c   b   d  ' d  * e  6 d  9 f A f  S g 6 T g W d  _ h  f h $ l d  s r i  w  r x  x i  z  n &  n  o   o ( ( o  8 } $ > ~ ) J z !  J gnamegvisitCh(] OLLLQ6gcommand  #gport  #gseed   #gvisit  #gfilenamef texinfo.scm `  a   # Ch]OCgfdown  gfup  g str-handler   gfilenamef texinfo.scm _    gnamegmake-command-parserCIR>J2h]!(C""($C4?C45$*$ 45""("%$("" 4?"j"Y45$(45$C"0","(g fragments  g fragments  gresult   gstrs   gall-whitespace?   gfilenamef texinfo.scm                "   +  -   2   4   8   ;   @  + C  % I   J   O  ' Q   b   e   h   n                      -  8                      0  gnamegreverse-collect-str-drop-wsCKRJLMNO hH];"4(i")4(" 4556$145$!45$""""$"t4,5$s4,5454545 4  5$" 4 44 5$"55"( 45"""gport  Hgspec  Hgtext   Hgin   :gcur   :gout   :gargs  + 9gparts  ghead  grev-tail  glast  gfilenamef texinfo.scm              ) )  # +   +  6  * 9  9   <   @   A   F   H   L  M   R  # T   X  ]   i  x  y   }                     "        &                        (       '  #   ?                   "  - $  +  7 .  :   :   =   >  $ H  N  H gnamegparse-inline-text-argsCPRIh]Cgcommand  gargs  gcontent   gseed   gfilenamef texinfo.scm        CKPhXm]4545&45C("Cegcommand  Tgargs  Tg parent-seed   Tgseed   Tgseed  Tgspec   Tgcommand   Tgfilenamef texinfo.scm !   "  "  #   "   $   "   %   %  # %  ' & % ( & ( 2 &  5 &  8 & A )  I ) / L ) ( P (   T Ch ]45$CCgstring1  gstring2  gseed   gfilenamef texinfo.scm +   , ,   -  .    Chc]6[gfilenamef texinfo.scm     gnamegmake-dom-parserCQR4Qi5R-STJLUFVhh.]J4L545$*& C"((66$ 6( 645$4  5"  $P4  5  $ "q 4   5"J""-$! &""""""(C 6&gcommand  fgport  fgargs   fgspec   fgcommand   fg arg-names  " fgargs  > Eg arg-names  > Egout  > Egt Egrest  gfilenamef texinfo.scm 3   4   4 ! 4 6 4  4   4   5   4   6   4  ! 7  " 4  * 8  3 =  6 =  9 = > ? D @ J B  P B  V C % \ C  _ E  c @ j F  o F  u @ { H ! H  J  J  J  J  J ( J 6 J ( @ L  L 1 L < L  L  M  M  N * N  N  O * O  O 6 P + Q + Q 6 Q + P % P  O  T  T   W $  W 4  W   W   U   U $  U   U   U 5  U A  U  # V  & V / ( V  E T  E ? J ? < T ? Z : [ :  b ; ! f ; S  f CO#R#h]6gcommand  gport  gfilenamef texinfo.scm Y \   gnamegparse-eol-text-argsC$RWQCh]44556gport  gfilenamef texinfo.scm i   j   j  j )  j :  j   j   j    gnamegparseCXWQCGh0] 45$445566gstring-or-port  +gparse  +gfilenamef texinfo.scm e  k   k   j   j   j )  j : j  ! j  # j  + m   + gnamegtexi-fragment->stexig documentationfParse the texinfo commands in @var{string-or-port}, and return the resultant stexi tree. The head of the tree will be the special command, @code{*fragment*}.C%RQ+Wh0] 454>"G456ygport  *gparser  *gfilenamef texinfo.scm w  {   {  |   }  " }  % } , ' }  ( }  * }   * gnameg texi->stexig documentationfRead a full texinfo document from @var{port} and return the parsed stexi tree. The parsing will start at the @code{@@settitle} and end at @code{@@bye} or EOF.C&Rh]$CCgx  gy  gfilenamef texinfo.scm        *   %   gnamegcar-eq?CYRR$Y8O5 h(9]3(45D$4 5"$45$45"$45D$W("( "4L> G4 5"0 $  """1gin  !gout  !gdepth   !gt  / !g node-name  Y gout-cdr  gout-car  gnew-in  gnew-out   gfilenamef texinfo.scm       "  -                  $  0 *   /   8  ! =  * ?  3 A  ! E   F  ' J  - M  3 R  ' S  ! Y  `   d  h  i  + p   r   w   {     .  2    4  .  ;    1  8  <  1      -              "  "            !  =  ! gnameglpC[h0]OQ4 > GCgtree  +glp +g_   +gcontents   +gfilenamef texinfo.scm       '       %    + gnameg make-contentsC\R]2^_`ab/ h`]$" 45$" 45445$"5$ "6gstr  ^g trim-left?  ^g trim-right?   ^g left-space?   ^g right-space?  , ^gtail  G ^gfilenamef texinfo.scm          +          $   (  , ,   ,   /   2   >   @  ) E  / G   G   Q   S  ' V  ! ^    ^ gnamegtrim-whitespaceCcRRJc8dLefghUimjk\hx~]( 45D45$4$"45"$$(4>"G"45$r4 5$:4 545"" 6 $\4  4 44555$"455"$"f$A4  45$"455"$&4 4L55"4L$"45> G""vgin  vgout  vgstate   vgfirst?   vgsig-ws?   vgkey  _ Zgi   gt  @ `gt   gkid-out  8 Zgstate  8 Z gfilenamef texinfo.scm                       "  (   +   0   5  ' :  > ;  7 =   @  S   V  W   [   ^  _   m   r  s   w  & ~           $          +   &  1  <  &  D         -  8  &               #  $   '  *  - .  3 1  8 6  - 7  ' <  @   @   O   S  & V  6 ]   b   w          "                $   +   $            &                    '              ' %   ,  * 0  > 2  * 7   ;  B   G   Z  ]  `   c   v  t  v gnamegloopCh0]OQ4> GCgtree  +gloop +gout  ! +gstate  ! +gfilenamef texinfo.scm            $    + gnameg postprocessCWRlmhq-13Cigx gt gfilenamef texinfo.scm   !     Cnh^]CVgx  gt  gfilenamef texinfo.scm     Cohh-13C`gx gt gfilenamef texinfo.scm     #  Ch ]6gtree  gfilenamef texinfo.scm          gnameg stexi->sxmlg documentationf Transform the stexi tree @var{tree} into sxml. This involves replacing the @code{%} element that keeps the texinfo arguments with an element for each argument. FIXME: right now it just changes % to @code{texinfo-arguments} -- that doesn't hang with the idea of making a dtd at some pointC'RCgm  ,gparser ] cgfilenamef texinfo.scm  J Z o ] r  u m x i  | h \ n  ~ 4         +               p   2 : U " m '  )'  3  4t  5 ? 7 E e i w i  oh  q  z  ~l  2  ~n C62.0/ccache/statprof.go000064400000070760151463412640010462 0ustar00GOOF----LE-8-2.0q]4h_] gguile  gdefine-module*   gstatprof  gfilenameS f statprof.scm gimportsS gsrfi gsrfi-1      gsystem gvm   gframe   gprogram    gexportsS gstatprof-active? gstatprof-start g statprof-stop gstatprof-reset gstatprof-accumulated-time gstatprof-sample-count !gstatprof-fold-call-data "gstatprof-proc-call-data #gstatprof-call-data-name $gstatprof-call-data-calls %gstatprof-call-data-cum-samples &gstatprof-call-data-self-samples 'gstatprof-call-data->stats (gstatprof-stats-proc-name )gstatprof-stats-%-time-in-proc *gstatprof-stats-cum-secs-in-proc +g statprof-stats-self-secs-in-proc ,gstatprof-stats-calls -g!statprof-stats-self-secs-per-call .g statprof-stats-cum-secs-per-call /gstatprof-display 0gstatprof-display-anomolies 1gstatprof-fetch-stacks 2gstatprof-fetch-call-tree 3g with-statprof 4ggcprof 5 !"#$%&'()*+,-./01234 6g autoloadsS 7gice-9 8gformat 978 :8 ;9: < ?gaccumulated-time @glast-start-time Ag sample-count Bgsampling-frequency Cgremaining-prof-time Dg profile-level Eg %count-calls? Fg gc-time-taken Ggrecord-full-stacks? Hgstacks Igprocedure-data Jgmake-call-data Kgcall-data-proc Lgprocedure-name Mgcall-data-name Ngwith-output-to-string Ogwrite Pgcall-data-printable Qgcall-data-call-count Rgcall-data-cum-sample-count Sgcall-data-self-sample-count Tginc-call-data-call-count! Uginc-call-data-cum-sample-count! Vg inc-call-data-self-sample-count! Wgmake-syntax-transformer XW YW Zgaccumulate-time [gmacro \g $sc-dispatch ]\ ^\ _g_ `gany a_` bg syntax->datum cb db eg datum->syntax fe ge hgset! ig+ je0.0 kg- l@ mgsyntax-violation nm om pf-source expression failed to match any pattern qgprogram? rgprogram-num-free-variables sgprogram-objcode tg hashq-ref ug hashq-set! vg get-call-data wg stack-length xgframe-procedure yg count-call zgframe-previous {gmake-hash-table |g hash-fold }gand=> ~g stack-ref gsample-stack-procs ginside-profiler? gget-internal-run-time g make-stack gprofile-signal-handler gpk gwhat! gset-vm-trace-level! gthe-vm gvm-trace-level g setitimer g ITIMER_PROF gassq ggc-stats g add-hook! g vm-apply-hook g remove-hook! gerror f/Can't reset profiler while profiler is running. g sigaction gSIGPROF f:Can't call statprof-fold-called while profiler is running. e100.0 e1.0 gmax g stats-sorter gcurrent-output-port fNo samples recorded.  gsort f!~5a ~10a ~7a ~8a ~8a ~8a ~8@a  f%  f cumulative fself f ftotal f ~5a ~9a ~8a ~8a ~8a ~8a ~8@a  ftime fseconds fcalls fms/call fname f~5a ~10a ~7a ~8@a  f% f~5a ~10a ~7a ~8@a  gfor-each f#~6,2f ~9,2f ~9,2f ~7d ~8,2f ~8,2f  f~6,2f ~9,2f ~9,2f  gdisplay gnewline f---  g simple-format fSample count: ~A  f*Total time: ~A seconds (~A seconds in GC)  ginternal-time-units-per-second f ==[~A ~A ~A]  fTotal time: ~A  f5Can't get accumulated time while profiler is running. g procedure=? gmap g lists->trees gcadr gfind g assq-set! gfilter gidentity g unfold-right gstack->procedures gloopS   ghzS   g count-calls?S   g full-stacks?S    ginexact->exact gfloor e 1000000.0 fInvalid macro body gkeyword? geq? g@  glambda    g after-gc-hookC5h0]F]4  56;5 4>>"G?R@RARBRCR DRER FRGRHRIRh]Cgproc  g call-count  gcum-sample-count   gself-sample-count   gfilenamef statprof.scm    gnamegmake-call-dataCJRht] Clgcd  gfilenamef statprof.scm     gnamegcall-data-procCKRLKh}]456ugcd  gfilenamef statprof.scm  ,   gnamegcall-data-nameCMRMNOKhR]4L56Jgfilenamef statprof.scm   / (  Ch ] 45$CO6gcd  gt gfilenamef statprof.scm        gnamegcall-data-printableCPRhz] Crgcd  gfilenamef statprof.scm  "   gnamegcall-data-call-countCQRh] Cxgcd  gfilenamef statprof.scm  (   gnamegcall-data-cum-sample-countCRRh] Cygcd  gfilenamef statprof.scm  )   gnamegcall-data-self-sample-countCSRh]  Cgcd  gfilenamef statprof.scm     gnameginc-call-data-call-count!CTRh]  Cgcd  gfilenamef statprof.scm      gnameginc-call-data-cum-sample-count!CURh]  Cgcd  gfilenamef statprof.scm      gnameg inc-call-data-self-sample-count!CVR4YZ[^adgh?ijklh `]CXg stop-time  gfilenamef statprof.scm     Cha] 45L4?6Ygargs  gv gfilenamef statprof.scm     Coph(_] 45$ O@6Wgy  'gtmp 'gfilenamef statprof.scm   ' C5ZRqrstIJuhp#]45$" 45 $"4545$C4 54>"GCgproc  ogt #gk 4 ogt  ? og call-data  T ogfilenamef statprof.scm         ' .  4  7  ?  K  T  W   o gnameg get-call-dataCvRwGHAxyz{u|Uvh]456gproc  gval  gaccum   gfilenamef statprof.scm    C}vV~h])H4>"G$  " "$45$Z&K454 5"4 >"G45$""45"|4  >"G4 4  5>"!G"4 54 5"+JCgstack   ghit-count-call?   gframe  1 g procs-seen  1 gself  1 gt  > gfilenamef statprof.scm       "  $  +  -  1  7  8  >  N Q   R   Y  , j   k                        gnamegsample-stack-procsCRRDE?j@BhS]  $4545$" 445545$"7 $$4 4 54 4 55>"G"  4 >"G$"145  $$4 4 54 4 55>"G"" CKgsig  g stop-time  gt   :gstack  : ginside-apply-trap?  C gfilenamef statprof.scm                      +   /   0  # 7   :   =  ! C   K !  U )  V *  Y * ' ^ + + a + ; g + + h + ' m *  }  ,  .  0  1  .  3  5 $ 5  6  7  7 ' 8 + 8 ; 8 + 8 ' 7  : +  gnamegprofile-signal-handlerCR?j@}xTvhe]456]gproc  gfilenamef statprof.scm E   G  F   C h@]$C45 445>"G45 Cgframe  <gfilenamef statprof.scm ?  @     B   B   D   D  + D  4 I  : I   < gnameg count-callCyRDh] Cgfilenamef statprof.scm M  P    gnamegstatprof-active?g documentationfuReturns @code{#t} if @code{statprof-start} has been called more times than @code{statprof-stop}, @code{#f} otherwise.CRDC@FFBEyhU]  $$ $" " 45 4455 $4  >"G"4    >"G $ 4 4455>"G"4454455>"GCCMgrpt  gt  4guse-rpt? 9 gfilenamef statprof.scm S  W   W  X   X   Y   Z   [ +  [  [  / \ + 0 \ 9 Y  > ]  ? ^  E ^  F `  J `  K ` ( Q `  R `  T _  Z a  [ b d b ' g b 1 l b y c e  f  c g  h h  h & h  h i  i  i * i : i * i & i -  gnamegstatprof-startg documentationfStart the profiler.@code{}CRDFFEyC?j@h]  $z4455 4454455>"G $ 4 4 455 >"G"4  5 45  CCgfilenamef statprof.scm m  q   q  r   r   u   u   u +  u   u   u  ! t  " v  % v  * v * - v : 3 v * 4 v & 9 v  G w  H x K x  N x ) T x  [ x h { " t {  x  z |  |  }   gnameg statprof-stopg documentationfStop the profiler.@code{}CRDE?@ABC{IGHhx-.,3# $4>"G"      4 5   4>"GCgsample-seconds qgsample-microseconds qg count-calls?  qg full-stacks?  qgfilenamef statprof.scm           "  '   7   :   =   @   E   G   J   K   T   X   Y   [   \   q  gnamegstatprof-resetg documentationfVReset the statprof sampler interval to @var{sample-seconds} and @var{sample-microseconds}. If @var{count-calls?} is true, arrange to instrument procedure calls as well as collecting statistical profiling data. If @var{full-stacks?} is true, collect all sampled stacks into a list for later analysis. Enables traps and debugging as necessary.CRD|h]L6gkey  gvalue  g prior-result   gfilenamef statprof.scm      CIh0 ] $4>"G"O6gproc  /ginit  /gfilenamef statprof.scm              /    / gnamegstatprof-fold-call-datag documentationf7Fold @var{proc} over the call-data accumulated by statprof. Cannot be called while statprof is active. @var{proc} should take two arguments, @code{(@var{call-data} @var{prior-result})}. Note that a given proc-name may appear multiple times, but if it does, it represents different functions with the same name.C!RDtIh(] $4>"G"6gproc  (gfilenamef statprof.scm              (    ( gnamegstatprof-proc-call-datag documentationfTReturns the call-data associated with @var{proc}, or @code{#f} if none is available.C"RPSR E$j h]1454545454545$ 45"  $ $ "  "$ 4  5"Cg call-data  g proc-name g self-samples   g cum-samples   g all-samples  " gsecs-per-sample  / g num-calls  C gfilenamef statprof.scm                     "   %   *   /   /   7   8  ' C   L   N  , O  T  V  + W  \  ^  , _  g  j   o   q  * z   |  9 }               (  gnamegstatprof-call-data->statsg documentationf0Returns an object of type @code{statprof-stats}.C'Rh] Cygstats  gfilenamef statprof.scm    )   gnamegstatprof-stats-proc-nameC(Rh] C~gstats  gfilenamef statprof.scm    .   gnamegstatprof-stats-%-time-in-procC)Rh] Cgstats  gfilenamef statprof.scm    0   gnamegstatprof-stats-cum-secs-in-procC*Rh] Cgstats  gfilenamef statprof.scm    1   gnameg statprof-stats-self-secs-in-procC+Rh}] Cugstats  gfilenamef statprof.scm    %   gnamegstatprof-stats-callsC,Rh] Cgstats  gfilenamef statprof.scm    2   gnameg!statprof-stats-self-secs-per-callC-Rh] Cgstats  gfilenamef statprof.scm    1   gnameg statprof-stats-cum-secs-per-callC.R+*h8] 4545 $4545" Cgx  3gy  3gdiff   3gfilenamef statprof.scm                    #  *  1    3 gnameg stats-sorterCR 8!'h~]45Cvgdata  g prior-value  gfilenamef statprof.scm        CEE8)*+,-.(h=]$J4M45454545 45 4 5>"G")4M 454545>"G4 4 5M>"G M65gstats  gfilenamef statprof.scm                   %   /   6   :   A   F  S  Y   Z   a   h   s  |           gnamegdisplay-stats-lineCF$h(-13HJ( 45K"45 $J64545 $H4J     > "G4J> "G"84J  >"G4J>"G4O>"G4J>"G445>"G4 5!"#6gport %g stats-list 9 %g sorted-stats  D %gfilenamef statprof.scm             $   )   /   1   2   7   9   9   <   D   L   M  S   U   W   Y  ( [  / ]  2 _  9 a  A f  o  u   w   y   {  & }  0   8  B  L          &  -          &  0                -            &    %  @ % gnamegstatprof-displayg documentationfDisplays a gprof-like summary of the statistics collected. Unless an optional @var{port} argument is passed, uses the current output port.C/R!EQRMhH]$:45 $+45 $4545456CCCgdata  Dg prior-value  Dgfilenamef statprof.scm                   "  ' "  ( #  / $  6 %  > !   D C h@]4>"G445>"G456 gfilenamef statprof.scm      '   '   ' ' % '  2 (  3 ( ) 9 (   9 gnamegstatprof-display-anomoliesg documentationfQA sanity check that attempts to detect anomolies in statprof's statistics.@code{}C0RD?h(] $4>"G"Cgfilenamef statprof.scm *  ,  ,  -   -  -  % .   & gnamegstatprof-accumulated-timeg documentationfAReturns the time accumulated during the last statprof run.@code{}CRDAh(] $4>"G"Cgfilenamef statprof.scm 0  2  2  3   3  3   # gnamegstatprof-sample-countg documentationfHReturns the number of samples taken during the last statprof run.@code{}C RMi#RQi$RRi%RSi&RHh>]C6gfilenamef statprof.scm ;    gnamegstatprof-fetch-stacksg documentationfReturns a list of stacks, as they were captured since the last call to @code{statprof-reset}. Note that stacks are only collected if the @var{full-stacks?} argument to @code{statprof-reset} is true.C1Rqsh8]&C45$45$4545CCCga  6gb  6gfilenamef statprof.scm D  E  F  G  E   G  " G  # H * H  1 H   6 gnameg procedure=?CRh]4L5Cxgtail  gfilenamef statprof.scm R   S  T T .  T  S    Cihz]Crga  gb  gfilenamef statprof.scm X   X % X . X "  Chk]LL6cgx  gfilenamef statprof.scm [  [ [ ( [   C h]""(+4O5445?45C("4O5$!4 5"}"` "Rglists  gequal?  gin   g n-terminal   gtails   gtrees   7gt  ` gfilenamef statprof.scm N  O  P  R   R   V  " V " , V  - W  6 V  : Y > P  A Z D Z  P Z  Q [  ` P  k ^  n `  u a  x b | b * } b   `  ^ d f  f ! f  f d  O  O , O #  gnameg lists->treesCRhY]CQgx  gfilenamef statprof.scm j   j $   Cxz~h ]44 556gstack  gfilenamef statprof.scm h  j  m   j  i    gnamegstack->proceduresCRHhT]4455CLgfilenamef statprof.scm o  v  v   v  v    gnamegstatprof-fetch-call-treeg documentationfReturn a call tree for the previous statprof run. The return value is a list of nodes, each of which is of the type: @code node ::= (@var{proc} @var{count} . @var{nodes}) @end codeC2Rh0]  $E4L> G"gi  )gresult  )gresult   )gfilenamef statprof.scm              )    ) gnameglpCh l]OLQL6dglp gfilenamef statprof.scm             Ch@]444 L554 L4 L55LL>"G6gfilenamef statprof.scm          &   -   &         )   0   0 #  7 %  0 &  - '  & )   2   >    > C/Ih([]4>"G4>"G CSgfilenamef statprof.scm         %    ' Ch@]444 L554 L4 L55LL>"G6gfilenamef statprof.scm          &   -   &         )   0   0 #  7 %  0 &  - '  & )   2   >    > C/Ih([]4>"G4>"G CSgfilenamef statprof.scm         %    ' C/Ih([]4>"G4>"G CSgfilenamef statprof.scm         %    ' Ch.-/03# # d##OQO4O>"GV4>X4>"GCX4>"GF&gthunk  gloop  ghz   g count-calls?   g full-stacks?   gthunk  A gfilenamef statprof.scm x A    gloopS ghzS g count-calls?S g full-stacks?S gnamegstatprofg documentationfProfile the execution of @var{thunk}, and return its return values. The stack will be sampled @var{hz} times per second, and the thunk itself will be called @var{loop} times. If @var{count-calls?} is true, all procedure calls will be recorded. This operation is somewhat expensive. If @var{full-stacks?} is true, at each sample, statprof will store away the whole call tree, for later analysis. Use @code{statprof-fetch-stacks} or @code{statprof-fetch-call-tree} to retrieve the last-stored stacks.CR4Y3[^adghP ](645$ &C"45$CCgkw  Ngargs  Ngdef   Ngfilenamef statprof.scm                          #   &  -   :  ;   H    N gnameg kw-arg-refCh`-13OQ454 54 d54545 Cgargs [g kw-arg-ref  [gfilenamef statprof.scm        %   )  4   5  A   B   M   N   Z   [ Cha] 45L4?6Ygargs  gv gfilenamef statprof.scm      Coph(w] 45$ O@6ogy  'gtmp 'gfilenamef statprof.scm    ' g documentationfProfile the expressions in the body, and return the body's return values. Keyword arguments: @table @code @item #:loop Execute the body @var{loop} number of times, or @code{#f} for no looping default: @code{#f} @item #:hz Sampling rate default: @code{20} @item #:count-calls? Whether to instrument each function call (expensive) default: @code{#f} @item #:full-stacks? Whether to collect away all sampled stacks into a list default: @code{#f} @end tableg macro-typegdefmacrog defmacro-argsgargsC53R?j@ hx.]$C 454L 5$" 44554>"G 45  C&gt  tgt ! ?g stop-time ? ogstack ? ogfilenamef statprof.scm               !   0   4   5  " <   ?   D   Y  b   c   i   r    t gnameg gc-callbackCD?@AE{IGHCFFh] $4>"G"    4 5 L    $O 4 5 4455 4L>"G4454455>"GCCygfilenamef statprof.scm                #   &   )   ,   -   6   :   ;   =   @   B   F   J   M  N  T  U  # Y  ) Z  8 `  # a   c  d  x  {    ,  <  ,  (  %  Ch8]"# $C4L>"G"L"gi  )gfilenamef statprof.scm              #   )   )    1 CDFF?j@/Ihh]  $=4455 4L>"G 4 5  "4 >"G Cgfilenamef statprof.scm                      -          !  "  9  ;   E  H  M   _    a ChW-/03# #OQOOOQQQ4>"GV4>X4>"GCX4>"GFOgthunk  gloop  g full-stacks?   g gc-callback  - gpre  L gthunk  L gpost  L gfilenamef statprof.scm  ;    gloopS g full-stacks?S gnameggcprofg documentationf+Do an allocation profile of the execution of @var{thunk}. The stack will be sampled soon after every garbage collection, yielding an approximate idea of what is causing allocation in your program. Since GC does not occur very frequently, you may need to use the @var{loop} parameter, to cause @var{thunk} to be called @var{loop} times. If @var{full-stacks?} is true, at each sample, statprof will store away the whole call tree, for later analysis. Use @code{statprof-fetch-stacks} or @code{statprof-fetch-call-tree} to retrieve the last-stored stacks.C4RC>gm  0gfilenamef statprof.scm  } 4 8 < @ D H L P T U  X \ F  p  E  t $         . ? ; M  S  m   !  "  &  '  '  ([  (  )  *5  *  ,  3  6p  7 * 8 0 8 6 8 7 8 8 8 9 :Q ; ;k C @" N Ah h B o L x ]*  ;  ], C62.0/ccache/ice-9/deprecated.go000064400000141470151463412640011623 0ustar00GOOF----LE-8-2.0 ][4h;] gguile  gdefine-module*   gice-9 g deprecated  gfilenameS fice-9/deprecated.scm gexportsS gsubstring-move-left! gsubstring-move-right! gdynamic-maybe-call gdynamic-maybe-link gtry-module-linked gtry-module-dynamic-link glist* gfeature? g eval-case gunmemoize-expr g$asinh g$acosh g$atanh g$sqrt g$abs g$exp g$expt g$log g$sin g$cos g$tan !g$asin "g$acos #g$atan $g$sinh %g$cosh &g$tanh 'gclosure? (g%nil )g@bind *g bad-throw +gerror-catching-loop ,gerror-catching-repl -gscm-style-repl .g apply-to-args /g has-suffix? 0gscheme-file-suffix 1g get-option 2gfor-next-option 3gdisplay-usage-report 4gtransform-usage-lambda 5gcollect 6gassert-repl-silence 7gassert-repl-print-unspecified 8gassert-repl-verbosity 9gset-repl-prompt! :gset-batch-mode?! ;grepl ghandle-system-error ?g stack-saved? @gthe-last-stack Ag save-stack Bgnamed-module-use! Cgtop-repl Dgturn-on-debugging Egread-hash-procedures Fgprocess-define-module Ggfluid-let-syntax Hgset-system-module! Igchar-code-limit Jggeneralized-vector? Kggeneralized-vector-length Lggeneralized-vector-ref Mggeneralized-vector-set! Nggeneralized-vector->list O   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNC Pgset-current-module QP RP Sgissue-deprecation-warning TfE`substring-move-left!' is deprecated. Use `substring-move!' instead. Ugsubstring-move! VfF`substring-move-right!' is deprecated. Use `substring-move!' instead. Wgreverse Xgstring->symbol Yg substring Zg string-ref [g string-length \gsplit-c-module-name ]gmap ^gc-registered-modules _gc-clear-registered-modules `gconvert-c-registered-modules agregistered-modules bgappend! cgregister-modules df3Autoloading of compiled code modules is deprecated. ef7Write a Scheme file instead that uses `load-extension'. fg simple-format gf (You just autoloaded module ~S.) hgwarn-autoload-deprecation igor-map jgdelq! kgresolve-module lgsave-module-excursion mgset-module-public-interface! ng dynamic-call oginit-dynamic-module pf%`dynamic-maybe-call' is deprecated.  qf7Wrap `dynamic-call' in a `false-if-exception' yourself. rgcatch sr tr uf%`dynamic-maybe-link' is deprecated.  vf7Wrap `dynamic-link' in a `false-if-exception' yourself. wg dynamic-link xg string-append yflib zgsymbol->string {f/ |f }f_ ~fscm_init g list->string gchar-alphabetic? g char-numeric? g string->list f_module g in-vicinity gtry-using-libtool-name gtry-using-sharlib-name g file-exists? glink-dynamic-module g %load-path gfind-and-link-dynamic-module f.la f.so f"`try-module-linked' is deprecated. f,See the manual for how more on C extensions. f(`try-module-dynamic-link' is deprecated. f,'list*' is deprecated. Use 'cons*' instead. gcons* f3`feature?' is deprecated. Use `provided?' instead. g provided? gmake-syntax-transformer   gmacro g $sc-dispatch   g_ gany  g syntax->datum   g datum->syntax   f4`eval-case' is deprecated. Use `eval-when' instead. g assoc-ref g load-toplevel  gbegin g *unspecified* gelse  gsyntax-violation   f-source expression failed to match any pattern gread-hash-extend f=The `#y' bytevector syntax is deprecated. Use `#s8' instead. gread glist->s8vector gerror f!#y needs to be followed by a list fC`unmemoize-expr' is deprecated. Use `unmemoize-expression' instead. gunmemoize-expression f-`$asinh' is deprecated. Use `asinh' instead. gasinh f-`$acosh' is deprecated. Use `acosh' instead. gacosh f-`$atanh' is deprecated. Use `atanh' instead. gatanh f+`$sqrt' is deprecated. Use `sqrt' instead. gsqrt f)`$abs' is deprecated. Use `abs' instead. gabs f)`$exp' is deprecated. Use `exp' instead. gexp f+`$expt' is deprecated. Use `expt' instead. gexpt f)`$log' is deprecated. Use `log' instead. glog f)`$sin' is deprecated. Use `sin' instead. gsin f)`$cos' is deprecated. Use `cos' instead. gcos f)`$tan' is deprecated. Use `tan' instead. gtan f+`$asin' is deprecated. Use `asin' instead. gasin f+`$acos' is deprecated. Use `acos' instead. gacos f+`$atan' is deprecated. Use `atan' instead. gatan f+`$sinh' is deprecated. Use `sinh' instead. gsinh f+`$cosh' is deprecated. Use `cosh' instead. gcosh f+`$tanh' is deprecated. Use `tanh' instead. gtanh f3`closure?' is deprecated. Use `procedure?' instead. g procedure? gbound-identifier=? f1`@bind' is deprecated. Use `with-fluids' instead. geach-any ތ ߌ  g syntax-object glet gtop  gribcage gb0 gb1   fl-2f788c0406b05c-348 fl-2f788c0406b05c-349   g bound-member   fl-2f788c0406b05c-33d   gx   fl-2f788c0406b05c-33c    ghygiene   geach   ߌ  gand-map g identifier? fduplicate bound identifier ggenerate-temporaries     gold-v  gv      fl-2f788c0406b05c-368 fl-2f788c0406b05c-369     gid gval   fl-2f788c0406b05c-357 fl-2f788c0406b05c-358 fl-2f788c0406b05c-359 fl-2f788c0406b05c-35a      gappend    ] !] "glist #g dynamic-wind $# %glambda &% 'gset! (' )g make-module *gset-module-name! +g%app ,+ -gmodule-define-submodule! .gthe-root-module /gapp 0gmodules 1gmodule-public-interface 2gand=> 3gmodule-local-variable 4g%module-public-interface 5g variable-ref 6fSetting a module's public interface via munging %module-public-interface is deprecated. Use set-module-public-interface! instead. 7gmodule-define! 8fm`bad-throw' in the default environment is deprecated. Find it in the `(ice-9 scm-style-repl)' module instead. 9- :9* ;9* 9+ ?fw`error-catching-repl' in the default environment is deprecated. Find it in the `(ice-9 scm-style-repl)' module instead. @9, A9, Bf`scm-style-repl' in the default environment is deprecated. Find it in the `(ice-9 scm-style-repl)' module instead, or better yet, use the repl from `(system repl repl)'. C9- D9- EfD`apply-to-args' is deprecated. Include a local copy in your program. FfJ`has-suffix?' is deprecated. Use `string-suffix?' instead (args reversed). Ggstring-suffix? HfC`scheme-file-suffix' is deprecated. Use `%load-extensions' instead. If.scm Jf>`get-option' is deprecated. Use `(ice-9 getopt-long)' instead. Kg normal-arg Lg string-index Mgsymbol->keyword Ngmember Og usage-error Pf- QfC`for-next-option' is deprecated. Use `(ice-9 getopt-long)' instead. RfH`display-usage-report' is deprecated. Use `(ice-9 getopt-long)' instead. Sgfor-each Tgstring? Uf< Vf> Wgwith-output-to-string Xgdisplay Ygkeyword->symbol Zf  [g make-string \f  ]gnewline ^gcar _gboolean? `g%display-usage agquote bg%argv cb dg %next-arg ebb fe gg%opt hg%arg ig %new-argv jghi kgcase lf,`collect' is deprecated. Define it yourself. m nfl-2f788c0406b05c-442 on po q p raq sr tߌ ugx* vu wfl-2f788c0406b05c-446 xfl-2f788c0406b05c-447 ywx zvy {z p |{ }{ ~gcons ~{ 5{ f<`assert-repl-silence' has moved to `(ice-9 scm-style-repl)'. 96 96 fF`assert-repl-print-unspecified' has moved to `(ice-9 scm-style-repl)'. 97 97 f>`assert-repl-verbosity' has moved to `(ice-9 scm-style-repl)'. 98 98 fh`set-repl-prompt!' is deprecated. Use `repl-default-prompt-set!' from the `(system repl common)' module. g module-ref gresolve-interface gsystem gcommon ; grepl-default-prompt-set! fC`set-batch-mode?!' is deprecated. Use `ensure-batch-mode!' instead. gensure-batch-mode! f``set-batch-mode?!' with an argument of `#f' is deprecated. Use the `*repl-stack*' fluid instead. f)`repl' is deprecated. Define it yourself. gcurrent-input-port fu`pre-unwind-handler-dispatch' is deprecated. Use `default-pre-unwind-handler' from `(ice-9 scm-style-repl)' directly. 9= 9= fa`default-pre-unwind-handler' is deprecated. Use it from `(ice-9 scm-style-repl)' if you need it. fZ`handle-system-error' is deprecated. Use it from `(ice-9 scm-style-repl)' if you need it. 9> 9> gmake-variable-transformer fN`stack-saved?' is deprecated. Use it from `(ice-9 save-stack)' if you need it. gfree-id fl-2f788c0406b05c-46d     '   g@  fl-2f788c0406b05c-47b       A  ?   fl-2f788c0406b05c-474 fl-2f788c0406b05c-475     '   A  ?  fP`the-last-stack' is deprecated. Use it from `(ice-9 save-stack)' if you need it. fl-2f788c0406b05c-483   fl-2f788c0406b05c-47e       A  @  fL`save-stack' is deprecated. Use it from `(ice-9 save-stack)' if you need it. A A A fE`named-module-use!' is deprecated. Define it yourself if you need it. g module-use! f6`top-repl' has moved to the `(ice-9 top-repl)' module. C g debug-enable gmemq gdebug f6`(debug-enable 'debug)' is obsolete and has no effect. fRemove it from your code. gdelq f<`(turn-on-debugging)' is obsolete and usually has no effect. f.Debugging capabilities are present by default. g backtrace g read-enable g positions f%`read-hash-procedures' is deprecated. f.Use the fluid `%read-hash-procedures' instead. gread-hash-procedures-warning   gm-2f788c0406b05c-48f   fl-2f788c0406b05c-491   gshift gexp1 gvar gexp2   fl-bde397a-1bec fl-bde397a-1bed fl-bde397a-1bee fl-bde397a-1bef fl-bde397a-1bf0   gxx  fl-bde397a-1bda       '   gexpr  fl-2f788c0406b05c-494             g fluid-set!    g%read-hash-procedures  ތ fl-2f788c0406b05c-497        g fluid-ref           ! " #" $ % &$% '!#& (fE`process-define-module' is deprecated. Use `define-module*' instead. )gpureS *gversionS +g duplicatesS ,g transformerS -gimportsS .greverse! /g re-exportsS 0g replacementsS 1g autoloadsS 2g use-moduleS 3g use-syntaxS 4f)missing argument to define-module keyword 5gsyncase 65 7fL(ice-9 syncase) is deprecated. Support for syntax-case is now in Guile core. 8gautoloadS 9g no-backtraceS :gexportS ;g export-syntaxS greplaceS ?greplace-syntaxS @f#unrecognized define-module argument AfA`fluid-let-syntax' is deprecated. Use syntax parameters instead. Bgsyntax-parameterize Cgk Dgbody0 Egbody FC DE Gfl-2f788c0406b05c-4ed Hfl-2f788c0406b05c-4ee Ifl-2f788c0406b05c-4ef Jfl-2f788c0406b05c-4f0 KGHIJ LFK Mfl-2f788c0406b05c-4ea NM ON PL O QBP Rf9`close-io-port' is deprecated. Use `close-port' instead. Sg close-port Tg close-io-port Uf@`set-system-module!' is deprecated. There is no need to use it. Vgset-procedure-property! Wgmodule-eval-closure Xg system-module YfT`module-eval-closure' is deprecated. Use module-variable or module-define! instead. Zgstandard-eval-closureC5hp.]4   O54R>"GSTUh(-134>"G@gargs !gfilenamefice-9/deprecated.scm T  U   V   U  ! W  ! gnamegsubstring-move-left!C RSVUh(-134>"G@gargs !gfilenamefice-9/deprecated.scm Y  Z   [   Z  ! \  ! gnamegsubstring-move-right!C RWXYZ[hx]!"k$4455645 &'4455"" 45"pgstr  grev  qgstart   qgpos   qgend   qgfilenamefice-9/deprecated.scm c  d  i   h   j   j % ! j  $ j  & j  ' k 5 h  6 l  9 l " E l  H l K m N n \ l  c q  q q  q d  r d  u g  d   gnamegsplit-c-module-nameC\R]\h]45LCwgc  gfilenamefice-9/deprecated.scm t   u   u / u  u 8  u    C^_h(] 4O4554>"GCgdynobj  (gres  (gfilenamefice-9/deprecated.scm s  t v   t  t   w   ( gnamegconvert-c-registered-modulesC`RaRb`ah]4455 Cgdynobj  gfilenamefice-9/deprecated.scm |  ~   ~   ~   }    gnamegregister-modulesCcRSdefgh(]4>"G456gmodname  $gfilenamefice-9/deprecated.scm            "  $   $ gnamegwarn-autoload-deprecationChRcihjaklPmnh8u]4L>"G4LL>"GLL6mgfilenamefice-9/deprecated.scm      - % 1 4 5   5 ChP] L$B4L>"G45 4L54O>"GCCgmodinfo  Pgmod 1 Ngfilenamefice-9/deprecated.scm       + )  *  1  4   P Cah ]4>"GO6gmodname  gfilenamefice-9/deprecated.scm     gnameginit-dynamic-moduleCoRSpqtnhQ]LL6Igfilenamefice-9/deprecated.scm    Ch]-13CUgargs gfilenamefice-9/deprecated.scm  Ch(]4>"GO6gname  &gdynobj  &gfilenamefice-9/deprecated.scm        &   & gnamegdynamic-maybe-callCRSuvtwhQ]L6Igfilenamefice-9/deprecated.scm      Ch]-13CUgargs gfilenamefice-9/deprecated.scm  Ch(]4>"GO6gfilename  $gfilenamefice-9/deprecated.scm        $   $ gnamegdynamic-maybe-linkCRxyz{|]x}zhs]456kgs  gfilenamefice-9/deprecated.scm *  ;  ;  ,   C~h0] 45$"45$C_Cgc  *gt gfilenamefice-9/deprecated.scm &  0 ,  0 $ (  * Ch]9"9(4455"(4455""445?44 4 4 555 5"g(C4 545$" 45" "$45$6"""wg module-name  gdirs  ?gsyms   ?gmod-name Y zgsubdir-and-libname z ginit  z gsubdir  glibname  gdir-list  gdir  gt  g sharlib-full   gfilenamefice-9/deprecated.scm      )  /  ?  /     $  ) ) . 9 0 ) 2 E 4  7  ?  ? A  K L  O % Y  Y  \  `  a  d ! i & q ! s  u  w  z        %        $   9  gnamegfind-and-link-dynamic-moduleCRxh(] 445545$CCglibdir  $glibname  $glibtool-filename   $gfilenamefice-9/deprecated.scm    '  >  '         $ gnamegtry-using-libtool-nameCRxh]456glibdir  glibname  gfilenamefice-9/deprecated.scm   -       gnamegtry-using-sharlib-nameCRcwnh8] 4>"G454>"G6gfilename  6ginitname  6gdynobj   6gfilenamefice-9/deprecated.scm         6   6 gnameglink-dynamic-moduleCRSoh ]4>"G6g module-name  gfilenamefice-9/deprecated.scm            gnamegtry-module-linkedCRSoh0]4>"G45$6Cg module-name  )gfilenamefice-9/deprecated.scm          !  '   ) gnamegtry-module-dynamic-linkCRSh(-134>"G@gargs !gfilenamefice-9/deprecated.scm      !  ! gnameglist*CRSh ]4>"G6gsym  gfilenamefice-9/deprecated.scm          gnamegfeature?CR4S hX-134>"G45$ C45$ CCgclauses Rgt $ Rgt  > Rgfilenamefice-9/deprecated.scm         "   $   $   .  6   <   >   >   H  Q   R Chi] 45L4?6agargs  gv gfilenamefice-9/deprecated.scm     Ch(g] 45$ O@6_gy  'gtmp 'gfilenamefice-9/deprecated.scm   ' C5R4iySh8] 4>"G45$66gc  2gport  2gx   2gfilenamefice-9/deprecated.scm                 $   *   .   2    2 C>"GSh(-134>"G@gargs !gfilenamefice-9/deprecated.scm          !   ! gnamegunmemoize-exprCRSh ]4>"G6gz  gfilenamefice-9/deprecated.scm      !     "    gnameg$asinhCRSh ]4>"G6gz  gfilenamefice-9/deprecated.scm #  $   %  $   &    gnameg$acoshCRSh ]4>"G6gz  gfilenamefice-9/deprecated.scm '  (   )  (   *    gnameg$atanhCRSh ]4>"G6gz  gfilenamefice-9/deprecated.scm +  ,   -  ,   .    gnameg$sqrtCRSh ]4>"G6gz  gfilenamefice-9/deprecated.scm /  0   1  0   2    gnameg$absCRSh ]4>"G6gz  gfilenamefice-9/deprecated.scm 3  4   5  4   6    gnameg$expCRSh ]4>"G6gz1  gz2  gfilenamefice-9/deprecated.scm 7  8   9  8   :    gnameg$exptCRSh ]4>"G6gz  gfilenamefice-9/deprecated.scm ;  <   =  <   >    gnameg$logCRSh ]4>"G6gz  gfilenamefice-9/deprecated.scm ?  @   A  @   B    gnameg$sinCRSh ]4>"G6gz  gfilenamefice-9/deprecated.scm C  D   E  D   F    gnameg$cosCRSh ]4>"G6gz  gfilenamefice-9/deprecated.scm G  H   I  H   J    gnameg$tanC RSh ]4>"G6gz  gfilenamefice-9/deprecated.scm K  L   M  L   N    gnameg$asinC!RSh ]4>"G6gz  gfilenamefice-9/deprecated.scm O  P   Q  P   R    gnameg$acosC"RSh ]4>"G6gz  gfilenamefice-9/deprecated.scm S  T   U  T   V    gnameg$atanC#RSh ]4>"G6gz  gfilenamefice-9/deprecated.scm W  X   Y  X   Z    gnameg$sinhC$RSh ]4>"G6gz  gfilenamefice-9/deprecated.scm [  \   ]  \   ^    gnameg$coshC%RSh ]4>"G6gz  gfilenamefice-9/deprecated.scm _  `   a  `   b    gnameg$tanhC&RSh ]4>"G6gx  gfilenamefice-9/deprecated.scm d  e   f  e   g    gnamegclosure?C'R(R4)h8] (C45$C4L5$CCgid  2gids  2gt  % 2gfilenamefice-9/deprecated.scm p   q  r  r $  r  q   s s  # s % % s % q   2 gnameg bound-memberCSh:]C2gb0  gb1    Ch]6gid  gval  gb0   gb1   gfilenamefice-9/deprecated.scm |   C)!"$&(hb]CZgtmp-2f788c0406b05c-371  gtmp-2f788c0406b05c-370    C(hb]CZgtmp-2f788c0406b05c-374  gtmp-2f788c0406b05c-373    C hX<]44L54L554L5LL4L5C4gold-v  Rgv  R  R C hU]"(("%4L5$"""$ L6454545$O@ 6Mgid  gval  gb0   gb1   gids   .gtmp  U gtmp  ` gfilenamefice-9/deprecated.scm  } ~      "   ,    ~ (   .   . } : }  >   @  $ D  E  & L  " U    C hx]OQ4>"G45$@45"  6$4 ?$  O@""gx  vg bound-member vgtmp  * vgtmp  A vgfilenamefice-9/deprecated.scm o   u   v   u   v C5)R4)i 54*i,>"G4-i.i+>"G4-i.i/>"G4-i04ki5>"G1i2345S6mhX] 4L5$C4455$)4>"G4>"GCCgmod  Wgt Wgt $ Wgfilenamefice-9/deprecated.scm               2   $   $   -   1  6   ?    W CO1imi74h ]4L>"G6gmod  giface  gfilenamefice-9/deprecated.scm           COmiS8;h(-134>"G@gkey #gargs #gfilenamefice-9/deprecated.scm          #   # gnameg bad-throwC*RS<>h ]4>"G6gthunk  gfilenamefice-9/deprecated.scm                  gnamegerror-catching-loopC+RS?Ah ]4>"G6gr  ge  gp   gfilenamefice-9/deprecated.scm                  gnamegerror-catching-replC,RSBDh]4>"G6gfilenamefice-9/deprecated.scm                  gnamegscm-style-replC-RSEh ]4>"G@gargs  gfn  gfilenamefice-9/deprecated.scm               gnameg apply-to-argsC.RSFGh ]4>"G6gstr  gsuffix  gfilenamefice-9/deprecated.scm               gnameg has-suffix?C/RSHIh]4>"GCgfilenamefice-9/deprecated.scm                gnamegscheme-file-suffixC0RSJZ[KLMYNOxP hL],H4>"GJ(J6-4J 5$" 4J5 $ JJ6-4J 5&4J=5$"4J544J 554 54 54J5&"4J4J55$"$ JKJ"$"$ J6 J64J 5454 5$@4J 4J55 45$J" 4  5J64 5$Q4J 4J55 45$J" 45$J"J6 J6Dgargv  gkw-opts  gkw-args   greturn   gt  3 Mgt  v g kw-arg-pos  -gkw  -gkw-opt?  -gkw-arg?  -gt  garg   -gchar  8 gkw  A grest-car  b gnew-argv   grest-car   garg   gnew-argv   gfilenamefice-9/deprecated.scm             &   )   .  " 1   2  3   3   A  F   H  J   Q   U  X   [  # ]   `  e   h  l   m   r  ) v   v      *         +               .  =  .      $  $  $  3  $        +   7            "  &   +  " -  .   3   8   8   ;   A   D   P   Q   V  $ Y  1 ^  @ `  1 b   b   f  " m   q   t   y  # }  2   #   @                    $   1   @   1                        "                   !   ! u   gnameg get-optionC1RSQ1h]$ LL6Cgopt  gopt-arg  gargv   gfilenamefice-9/deprecated.scm (   )   )    Chu]LLLLO6mgargv  gfilenamefice-9/deprecated.scm &   '    gnamegloopC1h]$ LL6Cgopt  gopt-arg  gargv   gfilenamefice-9/deprecated.scm (   )   )    Ch@] 4>"GOQO6gproc  =gargv  =gkw-opts   =gkw-args   =gloop   =gfilenamefice-9/deprecated.scm #  $   %  $   &  = '   = gnamegfor-next-optionC2RSRSTxUV|W]XYZh ]445>"G6}gx  gfilenamefice-9/deprecated.scm < %  < 1  < :  < 1  < X  < O   ChQ]L6Igfilenamefice-9/deprecated.scm ;  <   C[[\X]h]1$C$C45$"45$45"44O554 5 $)4 5 ($4 4 5 5" " 4 >"G4 >"G4 >"G 6gkw  gt  gt  ghelp ' gopts  , g opts-proper  C garg-name  c g left-part  x g middle-part   gfilenamefice-9/deprecated.scm /   0   0  0   1   1   1  0  & 3  ' 2 , 4  , 2 / 5 ! 4 5 * 6 5 ! : 5  = 5 6 C 2 F 6  K 6 ' M 6  Q 6  R 7  V 7 - Y 7 1 [ 7 < ] 7  c 8  c 2 f 9  i :  x 9  x 2 { ? ) ? & ?  @ ) @ & ? ! A ! A 4 A . A ! B ! 2 C D E F 2  Ch ]4>"G6gkw-desc  gfilenamefice-9/deprecated.scm +  ,   -  ,   .    gnamegdisplay-usage-reportC3RSRj]^_hX] $"$$"C$C45$"$CCgx  Rgt ' Rgt D Rgfilenamefice-9/deprecated.scm M #  N 2 N (  N $  N 2  N ( & O 6 ' O - ' N $ 3 P - 8 P 7 : P - > P ( D N $  R CTh|]45$CCtgx  gfilenamefice-9/deprecated.scm U %  U ;  U D U ;  U 1   CTh]45$CC}gx  gfilenamefice-9/deprecated.scm V %  V 6  V ? V 6  V 1  V H   C_ThpA]45$"$"8$"*45$"45$"C9gcase  mgopts  hgt   #gfilenamefice-9/deprecated.scm W $  X 8  X ,  Y 6  Y 2  Y K Y F ' Y . 0 \ = 1 \ 4 5 [ 2 < ] 4 A ] > C ] 4 G [ 2 N ^ 4 S ^ = V ^ 4 Z [ 2 ] ^ J e _ 9 k ` , l X &  m C`%3acdf1bjkgh]94>"G445545454544 5?44 5?4 5   Cgcases  g raw-usage $ gusage-sans-specials  / g usage-desc  9 gkw-desc  D gkw-opts  T gkw-args  d gtransmogrified-cases  o gfilenamefice-9/deprecated.scm I  J   K  J   L   L   L ! $ L  $ L  ' M  / L  2 S  9 L  < T  D L  G U  J U T U  T L  W V  Z V d V  d L  g W  o L  s b   gnamegtransform-usage-lambdaC4R45Slmsh]C   Ct|}h 9]C1gx  gx*     C hP]4>"G45$@45$@ 6gx  Kgtmp  Kgtmp  4 Kgfilenamefice-9/deprecated.scm u   v   w  v   K C55RSh ]4>"G6gv  gfilenamefice-9/deprecated.scm                  gnamegassert-repl-silenceC6RSh ]4>"G6gv  gfilenamefice-9/deprecated.scm                  gnamegassert-repl-print-unspecifiedC7RSh ]4>"G6gv  gfilenamefice-9/deprecated.scm                  gnamegassert-repl-verbosityC8RSh(]4>"G44556gv  &gfilenamefice-9/deprecated.scm                  "      "   &    & gnamegset-repl-prompt!C9RSh8]$4>"G64>"GCgarg  2gfilenamefice-9/deprecated.scm                  #   (    2 gnamegset-batch-mode?!C:RShP6] 4>"G"'445>"G4455"4455".gread  Ogevaler  Ogprint   Ogsource   ?gfilenamefice-9/deprecated.scm                  '   0  3   9  ?   ?   @   C   I   O    O gnamegreplC;RSh(-134>"G@gkey #gargs #gfilenamefice-9/deprecated.scm          #   # gnamegpre-unwind-handler-dispatchC"G@gkey #gargs #gfilenamefice-9/deprecated.scm          #   # gnamegdefault-pre-unwind-handlerC=RSh(-134>"G@gkey #gargs #gfilenamefice-9/deprecated.scm          #   # gnameghandle-system-errorC>R4?4iShZ]6Rgid  gfilenamefice-9/deprecated.scm      Ch*]C"gid     Chk]6cgid  gval  gfilenamefice-9/deprecated.scm      Ch;]C3gid  gval    C hh]4>"G45"!4?$@6$4 ?$ @""gx  cgtmp  cgtmp  ( Dgfilenamefice-9/deprecated.scm            c C55?R4@ShZ]6Rgid  gfilenamefice-9/deprecated.scm      Ch*]C"gid     Ch8] 4>"G4?$@6{gx  5gtmp  5gfilenamefice-9/deprecated.scm            5 C5@RSh(-134>"G@gargs !gfilenamefice-9/deprecated.scm          !   ! gnameg save-stackCARSkh(]4>"G45456guser  &gusee  &gfilenamefice-9/deprecated.scm               % &    & gnamegnamed-module-use!CBRSkCh(]4>"G44556gfilenamefice-9/deprecated.scm                       2 "   $    $ gnamegtop-replCCRiSh@-1345$!4>"GL45@L@gopts =gfilenamefice-9/deprecated.scm                      "   -  $ 1  * 5  $ 7   =   = COiSh0]4>"G4>"G6gfilenamefice-9/deprecated.scm                     ,   .    . gnamegturn-on-debuggingCDRSh]6gfilenamefice-9/deprecated.scm           gnamegread-hash-procedures-warningCR4E4   h,]C$gexpr     Ch)]C!gx     C hI]6Agfilenamefice-9/deprecated.scm      C'h]C   C hh]45$@45$@45" 6$4 ?$ @""gx  ggtmp ggtmp  " ggtmp  9 ggfilenamefice-9/deprecated.scm    g g macro-typegvariable-transformerC55ERS( )*+,-. /012346789:;<=>?@hX]y4>"GHHHHH"(3JJJJJ 4 5       6  $" $$" 4>"G$04>"G        "B &K"        "  $n$ "$" 4>"G        " $        "n $ K        "E $R$" 4>"GK        " $K$" 4>"GK        " $" $U$" 4>"G4 5       "* $" $U$" 4>"G 4 5      " $" $U$" 4>"G  4 5     "R $R$" 4>"GK        "6    "gargs  Ugname  Ugfilename   Ugpure?   Ugversion   Ug duplicates   Ug transformer   Ugkws  , =gimports  , =gexports , =g re-exports , =g replacements , =g autoloads , =gkey h =gt  gkw  g iface-spec  !gt  < fgkw  J cgname  o gbindings  o gt   gkw   gkw  Y rgt   gkw   gt   Ggkw  + Dgt   gkw   gt   gkw    gfilenamefice-9/deprecated.scm                   ,   2   M "  e  h '  h ' )  )  ) *  *       ,  , " ,  + -  .  -  /  /  2 ! 2  3  3  4   5   6  ! 5  * ' - 9  . 9  2 9  5 9 / 7 9 ( < 9 J :  J :  M   Q  X   i ;  m <  o ; v =   ? "  =   '  C   C  '  F  G   G  '  J   J   J  K   K          ! L  $ L ' M  B M K ' N P  O P  S P Y Q  Y Q  \   `  g   u R  x R { S   S  '  V   V   V  W   W           X   Y   Y +  Y   X  '  \   \   \ + ]  + ]  .   2  9   J ^  P _ # W _ 6 Z _ # n ^ w '  b   b   b  c   c           d   f   f (  f   d  '  h   h   h  i   i           j   j  k  5 k 9  =   =   @   A   B   C   D   E   U    U gnamegprocess-define-moduleCFR4GSAQ!"h]]45CUgk  gv  gbody0   gbody      Ch8] 4>"G45$@6{gx  4gtmp  4gfilenamefice-9/deprecated.scm q   r   s  r   4 C5GRSRSh ]4>"G6gport  gfilenamefice-9/deprecated.scm y  z   {  z   |    gnameg close-io-portCTRSUVWXh(]4>"G456gm  #gs  #gfilenamefice-9/deprecated.scm ~              3 #    # gnamegset-system-module!CHRSYZh ]4>"G6gm  gfilenamefice-9/deprecated.scm               gnamegmodule-eval-closureCWi IRC&gm  (g%app 5e 5ggetter 5 7Igsetter 7R 8g debug-enable j kJgfilenamefice-9/deprecated.scm    S  X  c  s  z   z s |  B 5  " ] C h O _ 5       !i # "1 ' " + # / $ 3 %a 7 &' ; & ? ' C ( G )H K * O * S + W ,h [ -0 _ - d - i 5\  5e  5h   5r   5w   5   5  , 5   5   5  , 5   5   5  ! 5  * 5  : 5  * 5   5   7N  7R   8  9  9  :  ;  <  =l  >.  F  J # O + W I Z?  [)  \  ]!  ^9  _  `  a  b  b   h  i  j  j   kO  lY  m  m   }>   y  ~ a  g  a i C62.0/ccache/ice-9/format.go000064400000232050151463412640011006 0ustar00GOOF----LE-8-2.04]%4hx] gguile  gdefine-module*   gice-9 gformat  gfilenameS fice-9/format.scm g replacementsS  g autoloadsS g pretty-print  gtruncated-print  gi18n  g%global-locale gnumber->locale-string   gset-current-module   f3.0 gformat:version gstring? gerror f+format: expected a string for format string gboolean? !gcurrent-output-port "g output-port? #gnumber? $gissue-deprecation-warning %f5Passing a number to format as the port is deprecated. &f"Pass (current-error-port) instead. 'gcurrent-error-port (fformat: bad destination `~a' )g%default-port-encoding *fUTF-8 +gopen-output-string ,g port-column -g write-char .g string-ref /g string-length 0gchar=? 1gdisplay 2gstring 3f~ 4gmemv 5gappend 6[];:@^ 70123456789-+v#' 8fillegal format string 9{}:@^ :g char-upcase ;gmemq <= ?gat @?= Afmissing argument(s) Bglist-ref Cglength Df'~s parameter must be a positive integer Efwidth Ffdecimals Gg integer->char Hfpadchar Ig string-pad Jgcomplex? Kfargument not a complex number Lg real-part Mg imag-part Nf'one positive integer parameter expected Oginteger? Pgchar? Qf~~c expects a character Rgobject->string Sg char->integer Tf#\ Ugnumber->string Vfmissing backward argument(s) Wf~~p expects a number argument Xfies Ygcall-with-output-string ZgwidthS [gmax \fillegal modifier in ~~? ]gchar-whitespace? ^f&illegal modifier `:@' in ~~* directive _g string-copy `gchar-alphabetic? ag string-set! bg char-downcase cgstring-capitalize dg string-upcase egstring-downcase ff missing ~~( ggif-then hg if-else-then ifillegal modifier in ~~[ jgnum-case kf~~; not in ~~[~~] conditional lfno parameter allowed in ~~; mg substring nfillegal modifier in ~~; of missing ~~[ pfno modifier allowed in ~~] qfno parameter allowed in ~~] rfargument not a positive integer sg rest-args tgsublists ug rest-sublists vglist wf missing ~~{ xfillegal modifier yfno parameters allowed in ~~} zgstring=? {f |fexpected a list argument }g list-tail ~f!expected a list of lists argument fexpected list arguments finternal error in ~~} ftoo much parameters fdouble `@' modifier fdouble `:' modifier fmisplaced modifier g char-numeric? gstring->number f misplaced '#'  g string-append f SLIB Common LISP format version  f, (C) copyright 1992-1994 by Dirk Lutzebaeck f5 please send bug reports to `lutzeb@cs.tu-berlin.de' funknown control character `~c' gstring-prefix? f#< fmincol fcolinc fminpad fargument not an integer f commawidth fcolnum funsupported modifier for ~~t f'only positive integers can be romanized g list->string greverse M D dC 2L X V I  gassv d d  fzero fminus  f thousand f million f billion f trillion f quadrillion f quintillion f sextillion f septillion f octillion f nonillion f decillion f undecillion f duodecillion f tredecillion f quattuordecillion f quindecillion f sexdecillion f septendecillion f octodecillion f novemdecillion f vigintillion { g string->list f,  fone ftwo fthree ffour ffive fsix fseven feight fnine ften feleven ftwelve fthirteen ffourteen ffifteen fsixteen f seventeen feighteen fnineteen  f hundred   ftwenty fthirty fforty ffifty fsixty fseventy feighty fninety   f times ten to the  f power f3only integers can be converted to English cardinals fzeroth fth f  ffirst fsecond fthird ffourth ffifth fsixth fseventh feighth fninth ftenth feleventh ftwelfth f thirteenth f fourteenth f fifteenth f sixteenth f seventeenth f eighteenth f nineteenth  f twentieth f thirtieth ffortieth ffiftieth fsixtieth f seventieth f eightieth f ninetieth   f- f2only integers can be converted to English ordinals g string-index f+argument is not a number or a number string fdigits ginf? gnan? fargument is not a number fexponent digits  gmin  fmindig  gexact->inexact  f(illegal character `~c' in number->string  f4number is too long to format (enlarge format:fn-max) f-internal error in format:fn-shiftleft (~d,~d) f'FORMAT: INTERNAL ERROR IN FORMAT:ERROR! gnewline f destination:  gwrite f format string:  f format args:  f error args:  ferror in format fr~%FORMAT: error with call: (format ~a "~a<===~a" ~ ~{~a ~}===>~{~a ~})~%  g list-head gapply g make-string f~a missing argument~:p g force-output gget-output-string g close-port f;Omitting the destination on a call to format is deprecated.  f5Pass #f as the destination, before the format string. !f@Omitting the destination port on a call to format is deprecated. "f:Pass #f as the destination port, before the format string. #g module-set! $gthe-root-moduleC5hx]4     54>"GR !"#$%&'()*+,-.hP] "1$",445L>"G""MNCgstr  Kgi  Kgn   Kgk   7gfilenamefice-9/format.scm Z   [  \  [   ]   ]  & ]  1 [  7 [  F ^ % G ^  I ^   K gnamegformat:out-substrC-h@] "*$"$4L>"G" "MNCgn  @gch  @gi   0gfilenamefice-9/format.scm c   d  e  d   f  * d  0 d  < g  > g   @ gnamegformat:out-fillC/.012-h]M L $M C4L M 5M N 4~5$ NNNL6M $cM $WM$"44M455L>"G"4L>"G4 5$ "MN"""Tgch  #gchar # gfilenamefice-9/format.scm         !   #  &  2  5  6 # 8  ;  ?  B  G  J  O  U M  V N Y N  \ N + d N  k N x P R  R T  Q    gnameganychar-dispatchC134.56789:;>@AB<CDEFGH/I?=JKLM2-0NOPQRSTUV#WXYABZhH]MM$MN4M>"G" MNMN4LM5L6gp  Dgfilenamefice-9/format.scm      )      "   ,  .  2  3  : <  D    D CABZ[hP]MM$MN4M>"G" MNMN4LM54LM 56gp  Mgfilenamefice-9/format.scm      )      "   ,  .  2  3  : <  A  . H  3 K  . M    M C\Z]^_/.`ab:h])4545H"u$C4545$GJ$445>"G"K445>"G"" "gstr  gcap-str  gnon-first-alpha   gstr-len   gi   gc  0 gfilenamefice-9/format.scm %   &  (   &   )  * $ )  ( +  0 + 3 ,  = , C -  D .  K . + V .  e 0  f 1  m 1 - x 1  )  )   gnamegstring-capitalize-firstCcdefghijklmnopqrstuvwxyz{|}~_fh0)QI]HM*L)$@M%$44M%5L&>"G"4L&>"GM' N'M(CM $"44LM*5455$(M# $"+4M*L)$ 4M$5" 4LM*54 55$(h4 M*L)$ 4M$5" 4LM*5M*N*5A$c4 M  5N4L4 M  5M(M$MN4M$>"G" M(N(M(N4LM(5M>"GL6S$c4 M  5N4L4 M  5M(M$MN4M$>"G" M(N(M(N4LM(5M>"GL6D$R4L M M(M$MN4M$>"G" M(N(M(N4LM(5M >"GL6H$M(M$MN4M$>"G" M(N(M(N4LM(5M $"G" M(N(M(N4LM(5"4M5M $34 5$ $ 4M$5"""M $34 5$ $ 4M$5"""4M $54 5$ $ 4M$5"" " 545$#45$45""M%$44M%5L&>"G"4L&>"GM'45N'L6X$R4L M M(M$MN4M$>"G" M(N(M(N4LM(5M >"GL6O$R4L M M(M$MN4M$>"G" M(N(M(N4LM(5M >"GL6B$R4L M M(M$MN4M$>"G" M(N(M(N4LM(5M >"GL6R$M(4L4M $L" $L""$L "L!M(M$MN4M$>"G" M(N(M(N4LM(55M>"G"P4L M M(M$MN4M$>"G" M(N(M(N4LM(5MM>"GL6F$P4L M M(M$MN4M$>"G" M(N(M(N4LM(5M>"GL6E$P4LM M(M$MN4M$>"G" M(N(M(N4LM(5M>"GL6G$P4L M M(M$MN4M$>"G" M(N(M(N4LM(5M>"GL6$$P4LM M(M$MN4M$>"G" M(N(M(N4LM(5M>"GL6I$M(M$MN4M$>"G" M(N(M(N4LM(545$"4M$>"G4L M 45M>"G4L 4 5M>"GM%$"44M%4!i55L&>"G"4"iL&>"G4#i 5$ "M'N'L6C$bM("J" 4M$$5";4%5$+ $45 $""""""$ 4M5"8M(M$MN4M$>"G" M(N(M(N4LM(54&5$"4M$'>"GM $S4(5M%$44M%5L&>"G"4L&>"GM'45N'"1$4)5HJ $ J K"J $M%$"44M%4!^55L&>"G"4"^L&>"G4#^ 5$ "M'N'4J @5M%$"44M%4!55L&>"G"4"L&>"G4# 5$ "M'N'"J $M%$44M%*5L&>"G"4*L&>"GM' N'4+J 5M%$44M%5L&>"G"4L&>"GM'45N'"SM%$"44M%4!55L&>"G"4"L&>"G4# 5$ "M'N'"SM%$"44M%4!55L&>"G"4"L&>"G4# 5$ "M'N'L6P$M &"$A M(N(M(NM( $4M$,>"G"4LM(>"G"M(M$MN4M$>"G" M(N(M(N4LM(54-5$"4M$.>"G $xM &"$WM%$"44M%4!y55L&>"G"4"yL&>"G4#y 5$ "M'N'""M &"$BM%$44M%/5L&>"G"4/L&>"GM' N'"SM%$"44M%4!s55L&>"G"4"sL&>"G4#s 5$ "M'N'L6~$M("J" 4M$$5";4%5$+ $45 $""""""$4LM~>"G"SM%$"44M%4!~55L&>"G"4"~L&>"G4#~ 5$ "M'N'L6%$M("J" 4M$$5";4%5$+ $45 $""""""$4LM >"G"SM%$"44M%4! 55L&>"G"4" L&>"G4#  5$ "M'N' N'L6&$M("J" 4M$$5";4%5$+ $45 $""""""$8M $(4LMM' $ "  >"G" N'"_M' $WM%$"44M%4! 55L&>"G"4" L&>"G4#  5$ "M'N'"L6_$M("J" 4M$$5";4%5$+ $45 $""""""$4LM >"G"SM%$"44M%4! 55L&>"G"4" L&>"G4#  5$ "M'N'L6/$M("J" 4M$$5";4%5$+ $45 $""""""$4LM >"G"SM%$"44M%4! 55L&>"G"4" L&>"G4#  5$ "M'N'L6|$M("J" 4M$$5";4%5$+ $45 $""""""$4LM >"G"SM%$"44M%4! 55L&>"G"4" L&>"G4#  5$ "M'N' N'L6T$4LM M>"GL6Y$M("J" 4M$$5";4%5$+ $45 $""""""$M" OM $b401LLL$LL(O5M%$44M%5L&>"G"4L&>"GM'45N'"$d402L'LLL$LL(O5M%$44M%5L&>"G"4L&>"GM'45N'"p$4M$3>"G"Q44M(M$MN4M$>"G" M(N(M(N4LM(5L&5>"G N'L6?$"K$1M &"$4M$3>"G"M &dM(M$MN4M$>"G" M(N(M(N4LM(54L54L4L5>"G"M(M$MN4M$>"G" M(N(M(N4LM(5M(M$MN4M$>"G" M(N(M(N4LM(54L>"GL6!$N L6 $M &WM%$"44M%4! 55L&>"G"4" L&>"G4#  5$ "M'N'"M*L)$9"465$"M*L)$" M &M*L)$ 4M$5" 4LM*5M*N*M%$"44M%4!55L&>"G"4"L&>"G4# 5$ "M'N'"8M*L)$4M$>"G"4LM*>"GM*N*M*L)$ 4M$5" 4LM*5"M*L)$ 4M$5" 4LM*5""L6*$M $M("J" 4M$$5";4%5$+ $45 $""""""$c"TM$"M M(N(M(NM( $4M$,>"G"4LM(>"G" ""= M(N(M(NM( $4M$,>"G"4LM(>"G"$nM("J" 4M$$5";4%5$+ $45 $""""""$M" N("+$4M$7>"G" M("J" 4M$$5";4%5$+ $45 $""""""$i"ZM$"SM(M$MN4M$>"G" M(N(M(N4LM(>"G" ""CM(M$MN4M$>"G" M(N(M(N4LM(>"GL6($"GN%L6[$MNM $M*NNNM $="%$>"$ 4M$?5"@NM("J" 4M$$5";4%5$+ $45 $""""""$M"8M(M$MN4M$>"G" M(N(M(N4LM(5N"L6;$M $4M$A>"G"M("4M$B>"GM $nM &N4CLMM* 5"6M &"$ 4M$D5"4CLMM* 54M5NM*N"L6]$M $4M$E>"G"MNM $4M$F>"G"M("4M$G>"GM $G4CLMM* 5M$N"4M5NM=$&M$4LMM>"G"">$/4L4LM$M"M4L55>"G"@$4%M5$"M $4M$H>"G"";4L4LM4M5$M" 4MM54L55>"+G"$M4M5$M$""""""L6{$M#N#M# $M*NM $I" $J"$K"LNM("J" 4M$$5";4%5$+ $45 $""""""$M"N"L6}$6M# $4M$M>"G"M#N#M $M$" N"-$"$4M$N>"G"M("4M$O>"GM# $4CLMM*M $ " 5H4PJQ5$>M(M$MN4M$>"G" M(N(M(N4LM(5K"ML$M(M$MN4M$>"G" M(N(M(N4LM(5 H$"4M$R>"G45K"KJ$"M$ M"$"(4LJ4S55" ""YJ$M(M$MN4M$>"G" M(N(M(N4LM(5 H$"4M$R>"G45K"uJ$"M$ M"$"O45$"4M$T>"G4LJ>"G" ""cI$4L545"M$"M$ M"$"(4LJ4S55" "4L>"G"K$4L545"w$"M$ M"$"O45$"4M$U>"G4LJ>"G" "4L>"G"4M$V>"G"L6^$M(@M%$ WN%"-M# $" M $"M(M$ L)N*""}4M5 $ M "_ $4M 54M 5"A $14M 54M 5$4M 5""4M$X5$L6C@$IM &"$4M$Y>"G"M &"N ":$IM &"$4M$Z>"G"M &"N "ڳ'$]M $4M$[>"G"4M4)M*L)$ 4M$5" 4LM*5M*N*55NN"M0$"1$"2$"u3$"g4$"Y5$"K6$"=7$"/8$"!9$"-$"+$M $4M$[>"G"M*M*H"o4\5$`M*L)$4M$>"G"4LM*>"GM*N*JKM*L)$ 4M$5" 4LM*5""#M*L)$ 4M$5" 4LM*5"n4M4]4CLJ555NN"V$gM $4M$[>"G"4MM(M$MN4M$>"G" M(N(M(N4LM(55NN"V#$UM$4M$^>"G"M $4M$[>"G"4M44L555NN",$8M $4M$[>"G"M$" 4M_5NN"׷Q$M &N`M%$44M%5L&>"G"4L&>"GM'45N'"g4! 54ab`cd5M%$44M%5L&>"G"4L&>"GM'45N'L6M$e4LM*56L6L6IIgt O vgt ~ gch gkey )%gnum a )gkey  e glocale   &gargc   #gpars   gpar   gwidth    gpars   Dgpar   <gdecimals  D gpars  K gpar  _ gpadchar   gstr   gstr   gkey T gz  ~gparams  gch / gkey  T gstr  f gc  gch  > gstr  2gt garg gt  gt  1 Hgparams Mgparams  &gparams  gparams  gparams  gparams ^ gparams [ gwidth  gkey   gstr   /gstr  T gt 3 Jgfrmt  gargs   gfrmt  ^gargs  B [gch  gt   gch  2 >gch  > gkey + gparams  8 gi   gparams  E gparams   ,gi  4 gkey  "gkey v gparams   gt  g clause-str  g clause-str  gkey  gt  . Bgkey  gparams " |gkey  g iteration-str J #gkey  #gargs  !fgargs-len  !fgarg-pos  ! !Vgi  ! !Vgt  ! !0gargs  ! "\gargs-len  ! "\garg-pos  ! "Ogt  ! !gsublist  " "Fgargs  "n "gargs-len  "w "garg-pos  "} "gi  "} "gt  " "g usedup-args  " "gargs  # #gargs-len  # #garg-pos  # #gt  # #7gsublist  #J #g usedup-args  # #gkey $' $gb  $i $gcontinue $ $gt $ $gt % %gch % %g num-str-beg &y '5g num-str-end  &y '5gch  & &gstr (^ (gnl ( )gstr  ( )igfilenamefice-9/format.scm     F   G  G    G  " G / H 3 : H E J  F J H I  N  O  ]  `  i  m ' o  q  s  z  }  ~         '             !                *      )      " %  5  7  ;  <  C E  M   Y   b   c   m   n   q  * ~     )      "                               )      "                    )   .  2  5 ) 7  8  < " A  Q  S  W  X  _ a  a   e  $ u  y  | ) ~     "                   $      $                           A         $             !   %   &   *   ,  A .   D   G  $ K  % R  V   W   _  g  k   o   p   t   v  1 x        $      $      %  ! 1  ! .   )  " )     F   G  G   G  H  J   J  I  - $  6   7 &  @  D  G ) I  J  N " S  c  e  i  j  q s  | &   '      )       )      "               )   *      ,       )      "           ' )  2 ,  > -  G   M /  N 0  R 3       )      "               3   0   :       )      "               ; ,  ; 9  :  * <  3   4 >  =  A  D ) F  G  K " P  `  b  f  g  n p  w >   ?      A       )      "               A   B      D       )      "            "  ) D  5 E  >   ? G  H  L  O ) Q  R  V " [  k  m  q  r  y {   G   H          )      "               J   K   K   L   L '  L   M   M 0  M   N   N '  N +  N  . M  / N 2 N  5 N + = N  D N Q P e R  q R y T  { Q   P      R !                                R   S !  S 0  S !     )     "     !  %  &  - /  / R  2 U  < U  A V  E V ' J V  T W  ` Y ( f Y  n F  o G r G   G H J  J I  W  [ ! [  \  \  ] & ]  a  `  M  N N  N + N  N P  R  * R 2 T  4 Q  5 e  < e , > e  > d  F M  G N J N  M N + U N  \ N i P } R  R T  Q  f  `  F  G G  g , G  G H g , H J  J I  i  h  F  G G   G  H & J  - J / I  < M  = N @ N  C N + K N  R N _ P s R   R T  Q  M  N N  N + N  N P R  R T  Q  m    o   o        !  &  '  + 0  =  Y  ]  ` ) b  c  g " l  |  ~     q  r  r  s  s ' s  t  t  u  u  M  N N  N + N  N P  R   R % T  ' Q  1 w  L w  R F  S G V G  Z x - \ G  c G p H t x - { H J  J I  M  N N  N + N  N P R  R T  Q  z    |                       $  %  -  1  Q |  R }  W } ( ^ }  p M  q N t N  w N +  N   N  P  R   R  T   Q                                         *   +   0  ( 7   I M  J N M N  P N + X N  _ N l P  R   R  T   Q                                                            1   5   1 $  . +   :   B   F   L M  M N P N  S N + [ N  b N o P  R   R  T   Q                                                 (    ) M  * N - N  0 N + 8 N  ? N L P ` R  l R t T  v Q  z                                               (     M   N  N   N +  N   N % P 9 R  E R M T  O Q  S   \   ^   f  p  t  v  z  {                            (     M   N  N   N +  N   N  P  R   R & T  ( Q  +   /   8   9   P   Y   [  $ c  m  q  s  w  x  }                      $              F   G  G   G  H # J  * J , I  <   =   T   \ F  ] G ` G  m G z H  J   J  I          &            )      "                       #   3   N   O   S  # X   h  # l   q  u  x ) z  {   "                   "         $         )      "                      )      " "  2  4  8  9  @ B  B   E   b   k   n   r   {     %     M   N  N   N +  N   N  P  R   R  T   Q             %        .        +          # %  *  2  7 ! 9  >   F M  G N J N  M N + U N  \ N i P } R   R  T   Q              !                                  )   +   8   @  J  N  P  T  U  Z  \  `  c  e  i  j  r  v          $                          $                   #  C   E  ( M  W  [  ]  a  b  g  i  m  p  r  v  w        $   (            $                                     0   4   9  $ :   >   G  K  N ) P  Q  U " Z  j  l  p  q  x }    $         )      "                       $   (   1   7   <   @  % E   P   T   ]   `  * b   f   j   n   q   r  # t   v     #      &      )   7   )   #                                             !  $ ) &  '  + " 0  @  B  F  G  N P  R   Z   c   f   k   l   p  % u           %            .          +            .       +        '   7   '     !   "     # $  ( $  ) $ 0 - $ > 2 $ 0 A % * C %  I &  J '  N ' % S '  e (  j )  n ) % s )  ~ +   *   , '  - 2  , '  ,   .   /   0 )  0 9  0 )  0   1   3   4   4 0  5 0  4   1   7   8   8 -  9 1  : 1  ; -  8   7  & 1  ' = % . = . =  ? > F =  G ?  K ? * P ?  a B  d C  i D 6 p D " t D  { F "  G   C   B   @   @ :  @ &  @   @ !  H      J (  J   L   K   M   O   P #  O   Q &  O   R )  S #  N  " T . *  4  8  :  >  ?  D  F  J  M  O  S  T  \  `   T *  U .  T   V      X   X   X .  X <  X .  Y (  Y   Z   \   \ /  Z   ] $  ] 2  ] $  ^   _   _ % _  + `  0 `  1 b  ? c 7 H c ) J b  J a  M d  S d 5 U d  Y d  ^  b  e ) g  h  l " q       e  f    )   "       h  j ' j  k " k 0 k " l - ! l  ! m  ! r ' ! r # !# s ' !( t , !4 m  !; n 1 !@ p 2 !J n 1 !K m . !N q ( !V m  !s f  !x  !|  ! ) !  !  ! " !  !  !  !  !  ! !  ! v  ! x ' ! x  ! y " ! y 0 ! y " ! z - ! z  ! {  ! | ' ! | # ! } ' ! ~ , " {  "  / "  "  + "  " "  & ""  ' "'  & "0  " "I { . "O {  "i f  "j  ) "n   "q  - "w   "}  $ "  - "  ) "  - "  2 "  $ "  7 "  8 "  7 "  4 "  . "  $ "   "   " f  "  ) #   #  - #   #  $ #  - #  ) #*  - #/  2 #;  $ #B  5 #J  & #O  1 #S  ( #X  , #\  : #a  , #j  ( #  4 #  $ #   #   #  ! #  / #  ! #   #   #   #   #   #   $   $   $   $   $   $!  $ $'   $4  , $5  % $C   $D  ( $L  < $T  % $a   $b  ) $i  % $l  ) $v  % $}  ) $  % $  & $  4 $  & $   $   $   $   $   $   $   $   $  % $   $  4 $  " $  < $  F $   $   %   %   %#   %$   %(  % %-   %=  4 %A  " %C  9 %I  C %K   %O   %X   %^   %_  %c  . %h  %u  %z  5 %  %  %  % %  %  %  % ! %  %  5 %  / %  %   %   %   %   &^   &_  &c  . &h  &w  & &y   &   &   &   &  &  &  & &  &  & ! &  &  ) &   &  &  &  & &  &  &   &  &  &  & '  '  '   '   '  ) '  * '(  ) '+  # '-   '/   '8   '<   'E   'K   'L  'P  . 'U  'b  'k  'o  'r ) 't  'u  'y " '~  '  '  '  '  ' '  '  / '  '   '   '   '   '   '  ) '  7 '  ) '   '  '  . '  '  '  5 '  = '  5 '  / (  (   (   (   (   (   (  (  . (#  (5   (:  $ (@  3 (B  $ (D   (G   (K   (T   (X  % (\   (^   (f F  (g G (j G  (w G ( H ( J  ( J ( I  (  ! (   (   (   (   (   (   (   ( F  ( G ( G  ( G ( H ) J  ) J ) I  )   )  ! )  ! )!  ; )#  ! )%   ))    )- gnamegtilde-dispatchCh0]" $C"LM"gl  gk  gfilenamefice-9/format.scm       $  ,      + gnameg rest-argsCh]MNMNCgn  gfilenamefice-9/format.scm       gnameg add-arg-posCCh,3&M45HHHHHH H H H H HHHHHOO+OOLLL LQ LLLL L L L     L LLLLLLLLLLLLLQQLQ 45  %$#"! KKKKKK K K K  K !K"K#K$K%K !"#$% N N4>"GNJCg format-string  garglist  grecursive-pos-save   gformat-string-len   garg-pos   garg-len   gmodifier   gparams   gparam-value-found   gconditional-nest  g clause-pos  gclause-default  gclauses  gconditional-type  gconditional-arg   giteration-nest   g iteration-pos   giteration-type   gmax-iterations   ganychar-dispatch  gtilde-dispatch  g rest-args  g add-arg-pos  garg-pos  4 garg-len  4 gmodifier  4 gparams  4 gparam-value-found  4 gconditional-nest  4 g clause-pos  4 gclause-default  4 gclauses  4 gconditional-type 4 gconditional-arg ! 4 giteration-nest " 4 g iteration-pos # 4 giteration-type $ 4 gmax-iterations % 4 &gfilenamefice-9/format.scm     !  )  .                gnamegformat:format-workCRY1h]]L6Ugp  gfilenamefice-9/format.scm  .  :  C1/CBDG1h]]L6Ugp  gfilenamefice-9/format.scm  .  :  Ch]D($ 45" 4O5M$45$ 45""M$44M5L>"G"4L>"GM45NC45 $34  5$ $ 4M  5"" "  $34  5$ $ 4M  5"" "  $44  5$ $ 4M  5"" " 4 $ 4  5$" " 5$ 45" 4O5M$45$ 45"" $"CM$44M 5L>"G"4 L>"GM4 5N"3  $4L >"'G"     "4 5  "$EM$44M 5L>"G"4 L>"GM4 5NCCgpad-left  gobj  gslashify   gpars   gres  % Pgstr  P gl  gpar  gpar  gpar  * Qgpar  k ~gres   gmincol   gcolinc   gminpad   gpadchar   gobjstr  g objstr-len ) \gi ) \gfilenamefice-9/format.scm "   #           %   -   .  # 2  3 6  # :  ;  P $ X F  Y G \ G  i G v H J  J I  %  %                & 1                    ' 1      !   "   *  2  6   :   ;   ?   A ( 1 C   W )  ^  b   c   k  s  {    )                   #   3   #      &  ,   F   G  G   G  H  J  # J % I  ) .  . 0  1 0  5 .  6 1  T /  \ .  ] .  m .  s 2  y F  z G } G   G  H  J   J  I g   gnamegformat:out-obj-paddedCOUC/BDG?=<12-0h]T45$"4M>"G45"#4545 $34 5$ $ 4M5"""4  $4 5$" " 54  $ 4 5$" ," ,5 $54 5$ $ 4M 5"" "   $H  &" $ $ J K "" &" $ $ "  J K "J $4LJ >"G" " &" $c $WM$"44M4+55L>"G"4+L>"G4+ 5$ "MN"" &" $  $ "   4L  >"G" $C  $WM$"44M4 55L>"G"4 L>"G4  5$ "MN"4L   >"G   "q  "iM$44M5L>"G"4L>"GM45NC(O$"M$44M5L>"G"4L>"GM45NC"gmodifier  gnumber  gpars   gradix   gnumstr  , gl  @ Ug numstr-len  @ Ugpar  T {gpar  gpar  gpar  gmincol   Ugpadchar   Ug commachar  Ug commawidth  Ugnumlen . gstart \ gns \ gi y gfilenamefice-9/format.scm 5   6  6   6 "  6 0  6 " $ 7  , 7  3 :  : ;  @ : H  L   M   T  \  `   d   e   i   k < 4 m   =           =  ?         @ 5 ?                     A 7     <  , B  . C  8 D  F D  J D > N D  Q E ' S E  c F  q F  w H ; { H 7  G 4  G *  G '  G   K   K   L   L +  L   M   M   N   M   M   N  N   N +  N   N  P  R  ! R ) T  + Q  ; P  I P  N Q ! R R " V R  \ Q  a S  y T  ~ U   T   V   V   M   N  N   N +  N   N  P  R   R  T   Q   X   X 4  X   T $  T   F   G  G  ' G 4 H J J  Q J S I  U 8  a 8 k F  l G o G  | G  H  J   J  I    gnamegformat:out-num-paddedCCBDG<=? hx]245 $34 5$ $ 4M5"" "  $34 5$ $ 4M5"" " 4 $ 4 5$" " 5$"$M 6 $GL $"3"!$ M"" M"6LM$ M"6 $ ")"M$ M"""6gmodifier  tgpars  tgl  tgpar   Bgpar  W ~gpar  gcolnum  tgcolinc  tgpadch  tgc  gcol  gc  K h gfilenamefice-9/format.scm [   \  \            #  '   +   ,   0   2 ] - 4   K  O   P   W  _  c   g   h   l   n ^ - p   _           _  ]  ` b  b ` e  e  g  i  g   j   g   g   h  " g  & d - o  1 n  6 p  > q  B n  K t  P u  T t  Y v  b t  h t  t m >  t gnamegformat:tabulateCOh]9"M645$| $p"]( 456", $"""""s"ogn  gn # gromans  # gs  # g roman-val  = g roman-dgt  = gq  E qgs  E qgfilenamefice-9/format.scm                  #  )  ,  - 4   7  ! ;  ! =   E   I   M   R   U   a   d  1 i   q   v      }       gnamegformat:num->old-romanCO5 h]Q"M645$ $"( 456"{ $_"  "$; $+ 445 5"z""    "  "o"5""gn  gn # gromans  # g boundaries  # gs  # g roman-val  @ g roman-dgt  @ gbdry  @ gq  J gr J gs J  gfilenamefice-9/format.scm                  #  )  ,   4   7  ! ;  ! @   @   J   N   R   [  $ ^  1 l   l   y  , z  & ~    "  5  "  (  .  )  (  "      )      !  !    }       0  gnamegformat:num->romanCOC5Bh]Q45$ $C $4L 5645"O $6   $4 $ 4  5" d d    4 $-44 4  554  5 $"5" $ $4 4  55""144 4  55 $-4 4   55"55  $4 4 55""44 54 4L 554 555"" "M6gn  gpower3-word-limit 6 gn  < gpower3  < gs  < gn-before-block  V g n-after-block  V ghundreds  :g tens+ones  7gtens 4gones 1 gfilenamefice-9/format.scm                    $  $ %  - (  C -  - /   0   4   6   6  <   @   D   J   P  + V  * V   _   c  ! g   h  ! n  & r  " s  & w  4 y  & ~  :                                           "  -                                                  "   $   %   *   ,  .   ?  & C  " D  & G  ' K   O  ' Q  & V  & Y  ' ]  5 _  ' `  ' c  ( j  ) l  ( n  ' o  ' s  5 u  ' w  & {  !                  s   gnamegformat:num->cardinalCO{Bh]!45$ $C $4L 56 d d $#44L d5 $"5" $"X $ 4 5"B   $ 4 5"44 5 4 556M 6gn  ghundreds 9 g tens+ones  9 gtens  gones  gfilenamefice-9/format.scm                    $  $ %  - (  B -  - /   4   9   9  C   G   H   K   R  + T   X   \   ^  ) d  . f   l   p   t   v  $             $  $   !  !  "    "  #  $    $  %  &    &  #       9  gnamegformat:num->ordinalCU/[G1h(]>45454.5$" $  "  "$44 5 5"  $4  5"  4$" 5 4L  >"GM$44M5L>"G"4L>"GM45NL  6$$$$ L456"("$" gnumber  #gwidth  #gdigits   #gedigits   #goverch   #gpadch   #gstr  #glen   #gdot   #gdigits = #gleftpad d grightpad  gpadch  gfilenamefice-9/format.scm +   /  /  0   /   1   /  % 2  2 3  7 3 $ = 2  = /  I 6  J 7 O 7 . V 7 7 [ 7 . \ 7 % _ 7 d 6 l 9  m : ! t : & z : !  6 <  < )   <  6 =  F  G G  G H J  J I  ?  4   4  4   4  5 #  5 /  # gnamegformat:out-inf-nanC#CBDE?G h@]C45$"45$"4M >"G45 $34 5$ $ 4M 5""" $34 5$ $ 4M 5""" $4 5$" "  $4 5$"" $ 4 5$" " "$4L>"GMM$4LMM>"G"4L>"G$MH M  $"  $ J K "M $$ J K ""J $ 4LJ 4 5>"G"" L 6$J $ L4 56""L 64L>"G4L>"G$MH M  $"  $ J K "M $ J K "J $ 4LJ 4 5>"G"J $IJ MM  $$ L4 56L 64L >"GL 6L 6L 645$54 5  $"4 5 $L6""8gmodifier  {gnumber  {gpars   {gl  : {gpar  L sgpar  gpar  gpar  gpar   +gwidth  1 {gdigits  1 {gscale  1 {goverch  1 {gpadch  1 {gnumlen  Agt  gnumlen v 0gt { g dot-index  )gt I `gfilenamefice-9/format.scm C   D  D   D   D $  D  " E & E  + E 4 G  : G  @  D   E   L  T  X   \   ]   a   c H - e   |                I .                             (   1 H  E N F T _ U  b U  f U g V  q V . r V $ w V   W   X  Y   Y   Z   Z   Z =  Z /  Z   [ #  [   \   \   \ 8  \ /  \   ] #  ]   ^   ^   _   _ '  _ 8  _   b 7  b .  b   `  ( ` " , `  1 a - 9 a  H c  I f ^ g s h v i  v i  { j  { j   j =  j /  j   k #  k   l   l   m #  m   n   n   o   o '  o 8  o   p   p   r *  q '  q   s   s   t   u 7  u  v  x   x /  x  ) y  0 z  7 {  7 N 8 O  B N C P  I P  W P # d O s Q   { gnamegformat:out-fixedC#CBDE?Gh8 ][45$"45$"4M >"G45 $34 5$ $ 4M 5""" $34 5$ $ 4M 5""" $44 5$ $ 4M  5""" $4 5$" "  $4 5$"" $ 4 5$" "  $4 5$""  "F$ $ $ " " 4L>"GMM $4L MM>"G"4L >"G$"M H M   $"  $ J K "M $ $ J K ""J $M$"M"MK J $ 4LJ 4  5>"G"" 4L J >"GL  6$J $ L4 56""$$$M$ L4 56"""4L >"GL  64L>"G4L>"G$R" M H M   $"  $ J K "M $ J K "J $M$"M"MK J $ 4LJ 4  5>"G"J $tMM J  $.$ L4 564L >"GL  64L J >"G4L >"GL  64L >"GL  6$$$M$ L4 56"""4L >"GL  645$64 5  $"4 5 $L 6"y"u gmodifier  5gnumber  5gpars   5gl  : 5gpar  L sgpar  gpar  gpar   gpar  - ?gpar  V igpar   gwidth   5gdigits   5gedigits   5gscale   5goverch   5gpadch  5gexpch  5gdigits  Xgnumlen 6 gt ; Pgnumlen  gt  gf  gt  gfilenamefice-9/format.scm             $    "  &   +  4   :   @  D   E   L  T  X   \   ]   a   c  - e   |                 .                   /              $   %   -  5  I  M   N   V  ^  f   t  x   y                    +   "      %   "                    0   &       -   6  $ 6   ;  ;   L  C M  5 T   W  ) Y   a  ! e   j  > k  5 o   r  ) t     !   2   %                  -   -         ?   6            (      3            * $   )  - 1   >   X   Y  n      "            A   3      '            '         0   #                  +   +            #    $  # '  +   1  6  5 >  $ ?  & Y  & Z  " a  6 d  3 i  " r  "   "               (      +                         #   -    5 gnamegformat:out-exponC#CB[  h][45$"45$"4M >"G45 $ 4 5" $ 4 5" $ 4 5" $ 4 5" $ 4 5""4L >"G4L>"G$  "  $  " M $ 4L5"M $"4M4 55    " L6  $5  $(4L  >"GL  6""45$645  $"4 5 $L6""gmodifier  gnumber  gpars   gl  : gwidth  gdigits  gedigits  goverch  gpadch  gee gww  gn  gd 5 gdd < gt  gfilenamefice-9/format.scm             $    "  &   +  4   :   @   D   E  ! U   Y   Z  " k   o   p  #      "      !        #     !                       &   +  - 5   5  <   <  L   L   P   T   Y   ^   p  6 u                     #     B   gnamegformat:out-generalC#CBD E?=<12-0Gh0 ];45$"45$"4M >"G45 $44 5$ $ 4M 5"" "  $34 5$ $ 4M 5"" "  $44 5$ $ 4M  5"" "  $ 4 5$" " "4L  >"GMM $4L MM >"G"4L >"GMHM  $" &"  $ JK"$M $JM K""M $$"JK"J$! $}M$"SM$"4 4M4-55L>"G"4-L>"G4- 5$ "MN4LJ45>"G" $4LJ45>"GM$+"- M$"4 4M4 55L>"G"4 L>"G4  5$ "MN " $M$+"- M$"4 4M4 55L>"G"4 L>"G4  5$ "MN 4LJ45>"G"y4LJ45>"GM$"SM$"4 4M4-55L>"G"4-L>"G4- 5$ "MN"M$q &" $WM$"4 4M4+55L>"G"4+L>"G4+ 5$ "MN""SM$"4 4M4-55L>"G"4-L>"G4- 5$ "MN$(M $4LM 0>"G""M $a$"SM$"4 4M4055L>"G"40L>"G40 5$ "MN"4LM M >"GM$"4 4M4.55L>"G"4.L>"G4. 5$ "MNLMM M645$445$"45$L6"" gmodifier  0gnumber  0gpars   0gl  : 0gpar  L tgpar  gpar  gpar   gdigits   0gmindig   0gwidth   0gpadch   0gnumlen  } gt  gch  gch " zgt   gfilenamefice-9/format.scm             $    "  &   +  4   :   @  D   E   L  T  X   \   ]   a   c  - e   ~                 -                   ,                  ,  D   G   K  L   V  . W  $ \   i   }   }          +                     )                                   M   N  N   N +  N  % N 2 P F R  R R Z T  \ Q  ] !  d ! & e ! 7 p !      #   # &  # 7  #   $ &  $   M   N  N   N +  N   N  P  R   R  T   Q      & & " &  * M  + N . N  1 N + 9 N  @ N M P a R  m R u T  w Q  { '   ' &  ' 7  '   )   ) &  ) 7  )   *   M   N  N   N +  N   N  P  R   R  T   Q   ,  % -  3 -  9 M  : N = N  @ N + H N  O N \ P p R  | R  T   Q   M   N  N   N +  N   N  P  R   R  T   Q   /  /   /   0   0 !  0   1   1  1  * M  + N . N  1 N + 9 N  @ N M P a R  m R u T  w Q  | 3  M   N  N   N +  N   N  P  R   R  T   Q   5                #   (    0 gnamegformat:out-dollarCU .0a] / ha]C45$" 4455N N N N N"$FM $"M N J$ K N N "$;J $UM $IM J$ 4LJ>"GM JN K"4LM >"GJM K N ""   $"M  $4L5 J$"M  M $!4L M M >"GM N "uM  $4L  M >"G N "KJ $"G"4LJ>"G JN "M  N  ""J $ JM "M $ "  J $4LJ>"G N "M $ N "4LM 4L5 >"GJ$4L >"G N "O $4L >"G N "+M $4LM >"GN "N  C45K 4J 5$gJ$B4J 05$J$ JK""K4MM J >"GM N "4MMJ >"GMN"4J -5  $" 4J +5 $$J$4J +5N " 4J +5N"4J .5$M N "m4J e5$K"Y4J E5$K"E4J 5$"64J d5$"%4J #5$"4M J >"GJJJJ H HHH"K 4 5H HHH"/Ygnum  gfixed?  gscale   gnum-str   gi  4 g left-zeros  4 g mantissa?  4 g all-zeros?  4 gnum-len  4 gc 4 gt gshift gnegexp  gt  "gfilenamefice-9/format.scm C   D  D   F   F )  F   D  $ G  ' H  * I  - J  0 K  4 L  9 R = L  C S K T  Q V T X  W Y  Z Z  d ^ h a  l a  p a - t a  y b  } b  ~ d  e 1 e  f  h  i . i  j  k k  k  k - k  l - l $ l  m  o  o  m  p   q (  q   p   r  $ s  & s  * m  + t  / t 2 5 t / : t  E u  M w  Q w  V x # Z x  [ y # q { %  | 9  | %  } 3  }                                             (   @   %   "          +   3   7   8   <  ) D   O   X   \   ]   e  ) j   v   ~                         +            &         &            &  ,  -  % 7   <  % F   K  W  [  `  l  o  t                          L   L   P   L    gnamegformat:parse-floatCS.hX]M $ C"=M$M$JC JCJ 44M55 0KJH" H" gi  Mgn  Mgfilenamefice-9/format.scm                 #   ,   -  # 0  2 :  # <   =  >   @  C   M    W gnameg format:en-intCU.a/h_]! N N45"Q$C45K4J5$4MMJ>"GMN"JH" 45H"Wgen  |gen-str  |gi   igen-len   igc   igfilenamefice-9/format.scm                    !   $   .  /   9  :   R  $ T   [   i   k   |    | gnameg format:en-setC a.h] M $4M>"G"MN$N"B $C4M$0" 4M5>"G"M""*M$C4M0>"G"M"gleft?  gn  gi  6 xgi  gfilenamefice-9/format.scm                *   ,   2   6  :   >  A  L   P   W   `  7 b   g  r  x        &       gnamegformat:fn-zfillCa.hp] M$4MM>"G"";M$ MNC4M4M5>"G"" gn  lgi ) dgfilenamefice-9/format.scm             )   .  2   7   9  <   E  # F  + S   ^   d    l gnamegformat:fn-shiftleftCaS.Gh ]HJMK"J $" $@J $2JN4L >"G4M 1>"GMNCJNC44M55 0JK4M4J $ J 0"J 05>"GJ $ " KJH"=J H"1gdigits  gi  gc   gt   )gfilenamefice-9/format.scm               &   -   1   5  9   :   L   c  % e   k   n   q  % {   }   ~          %  *  &    *  -    *  %            (  gnamegformat:fn-roundC?12-0ha]M$c&WM$"44M4+55L>"G"4+L>"G4+ 5$ "MN""SM$"44M4-55L>"G"4-L>"G4- 5$ "MNM $a$WM$"44M4055L>"G"40L>"G40 5$ "MN""4LM M>"GM$"44M4.55L>"G"4.L>"G4. 5$ "MNLMMM6Ygmodifier  gadd-leading-zero?  gfilenamefice-9/format.scm           M   N  N   N + % N  , N 9 P M R  Y R a T  c Q  q M  r N u N  x N + N  N P R  R T  Q      M  N N  N + N  N P  R   R  T   Q  (  B M  C N F N  I N + Q N  X N e P y R   R  T   Q    6   gnameg format:fn-outCG12-0h] $ 45"EM$"44M455L>"G"4L>"G4 5$ "MNM$+"-M$"44M455L>"G"4L>"G4 5$ "MN$(M$4LM0>"G""LM M6gedigits   gexpch   gch   mgch  { gfilenamefice-9/format.scm       !     M   N ! N  $ N + , N  3 N @ P T R  ` R h T  j Q  s   {   M  N N  N + N  N P R  R T  Q               $   gnameg format:en-outCa0.h`]4MM0>"G":44M505$"M$NC"M"gi  Vgt - Bgfilenamefice-9/format.scm              ,   -   -  ?   F   I   K  P   V    ^ gnamegformat:fn-stripC0.hP]"AM$"44M505$M$ CC" "gi  Ggt ,gfilenamefice-9/format.scm               (   )   0   5   9  A   G    N gnamegformat:fn-zleadC'1 h{-134>"G4>"G4>"G4L>"G4>"G4>"G4L>"G4>"G4>"G4L>"G4>"G4>"G4>"G4>"GMN  6sgargs gfilenamefice-9/format.scm ~        : ,  0  5  > ( P < `  d  i  r * @    ( <    ( 5   6 "  6   gnamegformat:intern-errorCm/} h3-1345LLLLLONM $"MN4L4L M54LM4L554LM54LM5>"G4 >"G4 >"GMN  6+gargs gport  gfilenamefice-9/format.scm k  l   l  ! m  $ n  ) n  0 o ! 2 o 3 p  9 q  < t  F u  M v  U u  V w  _ x  l p  u y  z  {  6 " 6  gnameg format:errorCC12h`-13/45$"4>"G$Z45$ 45"B45$"145$4  >"G4 5" 4 5"  Y45Z45$" HHHHHHHH H H H H HHHOOOOOOOOOOOO O O  O! O "!O#"O$#O%$O&%O'&O('O)(O*)O+QQ !  Q  Q Q Q Q Q Q QQ*"'% ( Q*"'% )( Q +*" Q   %'" Q!  $&%# Q"Q#Q$   Q%   Q& % Q'  Q(Q)  Q*  Q+K K K*  OK J K K 4+ 5K K KK4+ 5K KK454,5-,,-$"-K4-J>"GJ .,-6J$4/>"G"$C405.41>"G.Cg destination `g format-string `g format-args  `gport  `gt  g output-col  `g flush-output?  `gformat:case-conversion  `g format:pos  `gformat:arg-pos  `g format:error `gformat:error-save `gformat:read-proof `g format:fn-str `g format:fn-len `g format:fn-dot  `gformat:fn-pos?  `g format:en-str  `g format:en-len  `gformat:en-pos?  `gformat:out-substr  # `gformat:out-fill  # `gformat:format-work  # `gformat:out-obj-padded  # `gformat:out-num-padded  # `gformat:tabulate  # `gformat:num->old-roman  # `gformat:num->roman  # `gformat:num->cardinal  # `gformat:num->ordinal  # `gformat:out-inf-nan  # `gformat:out-fixed  # `gformat:out-expon  # `gformat:out-general # `gformat:out-dollar ! # `gformat:parse-float " # `g format:en-int # # `g format:en-set $ # `gformat:fn-zfill % # `gformat:fn-shiftleft & # `gformat:fn-round ' # `g format:fn-out ( # `g format:en-out ) # `gformat:fn-strip * # `gformat:fn-zlead + # `garg-pos ,  `garg-len -  `gstr . I `0gfilenamefice-9/format.scm & '  '   (   ( $ (  2 + 3 0 = + > 0 # G 1 Q + X 2 b + c 3 g 4 i 5 n 3 w 6 8 8  8 . 2 /  *  :  :  *   :   ?   8   9   8   ;   :   <   <   =   >   > /  >  $ @  % A @ B  C D  I D L E 0 `  gnamegformatCRi$ !"h`>*:1345$4>"GL@L@]4>"GL66g destination @g format-string @gargs  @gdeprecated-format-string-only B ]gfilenamefice-9/format.scm K M   M  O   P   Q  # O  6 R  @ S  B K C U G V I W N U ] X  @   B ] COi#i$ii6gm  ,gformat ^gfilenamefice-9/format.scm   . $  1 $  &  J b I n \ t \  t C62.0/ccache/ice-9/list.go000064400000002644151463412640010475 0ustar00GOOF----LE-8-2.0]4hE] gguile  gdefine-module*   gice-9 glist  gfilenameS fice-9/list.scm gexportsS grassoc grassv grassq    gset-current-module   ggeneric-rassoc gequal? geqv? geq?C5hr]4   54>"Gh8] "$(C45$C""gkey  2galist  2g=   2gls   *gfilenamefice-9/list.scm                    $   *   *    2 gnameggeneric-rassocCRh -13("6gkey galist g=  gfilenamefice-9/list.scm       1    gnamegrassocC Rh]6wgkey  galist  gfilenamefice-9/list.scm    gnamegrassvC Rh]6wgkey  galist  gfilenamefice-9/list.scm " #   gnamegrassqCRCjgm  (gfilenamefice-9/list.scm   b  =     "    C62.0/ccache/ice-9/time.go000064400000005364151463412640010462 0ustar00GOOF----LE-8-2.0 ]:4h] gguile  gdefine-module*   gice-9 gtime  gfilenameS fice-9/time.scm gimportsS gformat      gexportsS  gset-current-module   g gc-run-time gtimes gdisplay f'clock utime stime cutime cstime gctime  f$~5,2F ~5,2F ~5,2F ~6,2F ~6,2F ~6,2F  g tms:clock gexact->inexact ginternal-time-units-per-second g tms:utime g tms:stime g tms:cutime g tms:cstime !gidentity "g time-proc #gmake-syntax-transformer $# %# &gmacro 'g $sc-dispatch (' )' *g_ +gany ,*+ -g syntax->datum .- /- 0g datum->syntax 10 20 3g@@ 43" 5glambda 6gsyntax-violation 76 86 9f-source expression failed to match any patternC5hXZ]4   54>"G  !h7]145454545454>"G444545 5 44545 5 44545 5 44545 5 44545 544545 5>"GC/gproc  ggc-start  g tms-start   gresult   gtms-end   ggc-end  # gproc  ? [gproc  ] ygproc  { gproc  gproc  gproc   gfilenamefice-9/time.scm "  #   #  $   #   %   #   &   #   '  # #  & ,  * , / ,  8 -  = -  ? . B +  E +  L + ' S +  V +  X +  ] / ` +  c +  j + ' q +  t +  v +  { 0 ~ +  +  + ' +  +  +  1 +  +  + ' +  +  +  2 +  +  + ' +  +  +  3 +  +  + ' +  +  +  - <   gnameg time-procC"R4%&),/245hZ]CRgexp  gfilenamefice-9/time.scm 6  7    Chb] 45L4?6Zgargs  gv gfilenamefice-9/time.scm  6    C89h(`] 45$ O@6Xgy  'gtmp 'gfilenamefice-9/time.scm 6   ' C5RCRgm  ,gfilenamefice-9/time.scm    "   W C62.0/ccache/ice-9/session.go000064400000060640151463412640011205 0ustar00GOOF----LE-8-2.0a]4h;] gguile  gdefine-module*   gice-9 gsession  gfilenameS fice-9/session.scm gimportsS g documentation     gregex   grdelim   gmatch    gexportsS ghelp gadd-value-help-handler! gremove-value-help-handler! gadd-name-help-handler! gremove-name-help-handler! g apropos-hook gapropos !gapropos-internal "g apropos-fold #gapropos-fold-accessible $gapropos-fold-exported %gapropos-fold-all &gsource 'garity (gprocedure-arguments )gmodule-commentary * !"#$%&'() +gset-current-module ,+ -+ .gobject-documentation /g*value-help-handlers* 0gdelete! 1gor-map 2gtry-value-help 3g*name-help-handlers* 4g try-name-help 5gmake-syntax-transformer 65 75 8gmacro 9g $sc-dispatch :9 ;9 <= ?g syntax->datum @? A? Bg datum->syntax CB DB Eglength Fg provided? Ggdisplay Hghelp-doc Ig simple-format Jf^~A$ Kg regexp-quote Lgsymbol->string Mgstring? Ngand-map Ogsymbol? Pgquote Qg write-line Rf commentary: SfNo ~A found for ~A  Tg commentary Ug help-usage Vgunquote Wg module-ref Xgcurrent-module Ygsearch-documentation-files Zgbegin [Z \f]`help' depends on the `regex' feature. You don't seem to have regular expressions installed.  ]gsyntax-violation ^] _] `f-source expression failed to match any pattern agmap bgreverse cg string-append df/ eg%search-load-path fg in-vicinity ggmodule-filename hgfile-commentary ig procedure? jf a procedure kf an object lfDocumentation from file: mfDid not find any object  nf named `~A'  ofmatching regexp "~A"  pgfor-each qf~S: ~S  rg module-name sgcadr tgcaddr uf!`~S' is ~A in the ~S module. ~A  vgcadddr wfDocumentation found for:  xgnewline yfNo documentation found for:  zfvUsage: (help NAME) gives documentation about objects named NAME (a symbol) (help REGEXP) ditto for objects with names matching REGEXP (a string) (help 'NAME) gives documentation for NAME, even if it is not an object (help ,EXPR) gives documentation for object returned by EXPR (help (my module)) gives module commentary for `(my module)' (help) gives this text `help' searches among bindings exported from loaded modules, while `apropos' searches among bindings visible from the "current" module. Examples: (help help) (help cons) (help "output-string") Other useful sources of helpful information: (apropos STRING) (arity PROCEDURE) (name PROCEDURE-OR-MACRO) (source PROCEDURE-OR-MACRO) Tools: (backtrace) ;show backtrace from last error (debug) ;enter the debugger (trace [PROCEDURE]) ;trace procedure (no arg => show) (untrace [PROCEDURE]) ;untrace (no arg => untrace all) (OPTIONSET-options 'full) ;display option information (OPTIONSET-enable 'OPTION) (OPTIONSET-disable 'OPTION) (OPTIONSET-set! OPTION VALUE) where OPTIONSET is one of debug, read, eval, print  {g make-hook |grun-hook }g string-length ~fEmpty string not allowed g make-regexp g module-uses g duplicates gmember gshadow gvalue gfull gmodule-obarray g hash-for-each g regexp-exec f:  f (unbound) f shadowed gmake-hash-table g hash-fold ghashq-get-handle g hashq-set! ghash-create-handle! gmake-fold-modules gidentity g submodules gresolve-module g root-modules ghash-map->list gmodule-submodules gmodule-public-interface gprocedure-source gmacro? gmacro-transformer gprocedure-property garglist f  frequired f arguments:  f argument:  f', ` f' and ` f', the rest in ` f,  foptional fkeyword fother keywords allowed f the rest in ` f' gprocedure-minimum-arity f or more f required and  f optional f argument f arguments f.  grequired gnumber? g make-list goptional gkeyword gallow-other-keys? grest gerror   fno matching pattern gsystem gvm gprogram  gprogram?   gprogram-arguments-alist  C5hL^]4   *54->"G.hr]6jgname  gvalue  gfilenamefice-9/session.scm $   %    C/R/h] Cgproc  gfilenamefice-9/session.scm '  .  .   gnamegadd-value-help-handler!g documentationf1Adds a handler for performing `help' on a value. `proc' will be called as (PROC NAME VALUE). `proc' should return #t to indicate that it has performed help, a string to override the default object documentation, or #f to try the other handlers, potentially falling back on the normal behavior for `help'.CR0/h]45 Cgproc  gfilenamefice-9/session.scm 0  2  2    gnamegremove-value-help-handler!g documentationf3Removes a handler for performing `help' on a value.CR1h_]LL6Wgproc  gfilenamefice-9/session.scm 5 5   C/h]O6gname  gvalue  gfilenamefice-9/session.scm 4  5    gnamegtry-value-helpC2R3R3hF] C>gproc  gfilenamefice-9/session.scm :  D  D   gnamegadd-name-help-handler!g documentationfAdds a handler for performing `help' on a name. `proc' will be called with the unevaluated name as its argument. That is to say, when the user calls `(help FOO)', the name is FOO, exactly as the user types it. `proc' should return #t to indicate that it has performed help, a string to override the default object documentation, or #f to try the other handlers, potentially falling back on the normal behavior for `help'.CR03h]45 Cgproc  gfilenamefice-9/session.scm F  H  H    gnamegremove-name-help-handler!g documentationf2Removes a handler for performing `help' on a name.CR1h_]L6Wgproc  gfilenamefice-9/session.scm K  K    C3hx]O6pgname  gfilenamefice-9/session.scm J  K    gnameg try-name-helpC4R478;>ADEF4GHIJKLMNOP)QRSTUV2WX Y[\h"-1345 $r45$R45$!&"4>"G"$*444 4 555>"G"4 5$4>"G"$"4  5$("$g45$:4>"G4>"G4>"?G"84>"$G"4>" G"4>"G"45 $&g444555$!&"4>"G" 4>"G"l&_$N45$4>"G" 4>"G""l""d""\"4>"GC4>"GC4>"GCgexp gname $ sgt  - pgt  ?gdoc   gx   gt   Agx  " >gfilenamefice-9/session.scm P S   S   S   V   V   V  ! S  $ [  $ [ ' b - _ < c  A c 1 Y f ] _ ^ g c h  h i  i j  l j & t j  v h  { g m _ n q  _   '     ( 4  (   " ]  ' ] . ) $ 0 ]  @ g _ h r  q r  u q x s  z s " ~ q  t   t (  u (  u 4  v 4  u (  t   t  w   y   w :  w  ]   ] .  w +  ]   ~   ~ "  |        |    0    ! 3 "  % ]  * ] . , $ 3 ]  ^ r t W x W  } W  Y  T  U `  Che] 45L4?6]gargs  gv gfilenamefice-9/session.scm  P    C_`h(] 45$ O@6gy  'gtmp 'gfilenamefice-9/session.scm P   ' g documentationf7(help [NAME]) Prints useful information. Try `(help)'.g macro-typegdefmacrog defmacro-argsgargsC5RaLbccdhi]6agelt  gfilenamefice-9/session.scm   4 !  CefhHx])454545445?456pgname  Bgname Bg reverse-name   Bgleaf   Bgdir-hint-module-name  # Bgdir-hint  3 Bgfilenamefice-9/session.scm              ! ( #  #  &  )  3  3  8  B   B gnamegmodule-filenameCgRghh ] 45$6Cgname  gt gfilenamefice-9/session.scm     gnamegmodule-commentaryC)R"2ijkh0]4545$"Cgmodule  )gname  )gobject   )gdata   )gfilenamefice-9/session.scm   -  4  -  4 " 4 % ' ( !  ) C$YQlGmInopIqrstuvhhT] 44545545$3MN4454545455MNCMNCLgentry  bg entry-summary  bgfilenamefice-9/session.scm   .  2 /  <  /  /  .     &  + ' - ! . - 3 1 4 . ; . B . G ; I . J . R - U ' W ! ^ % `   b CEwGhb]6Zgentry  gfilenamefice-9/session.scm   -   CxGh(}]M$N"4>"G6ugentry  %gfilenamefice-9/session.scm       %   % CxyGhb]6Zgentry  gfilenamefice-9/session.scm   -   Ch@]245(O45$4>"G64>"G $ " 6HHHH4  O>"GJ("4J5 $"J$-4>"G4 J>"GK"4 OJ>"GJ(CJ$K"4>"G4>"G J6gterm  ?gregexp  ?gentries   ?gt   egfirst?  i ?gundocumented-entries  i ?gdocumented-entries  i ?gdocumentations  i ?gt   gfilenamefice-9/session.scm              &  *  /  =  > B  G U  Y  [  a  e g ' h % i ! i r                   &  *  /  ? /  ? gnameghelp-docCHRGzhm]6egfilenamefice-9/session.scm      gnameg help-usageCUR4{i 5R|X}~rprLGiWXx h]4L455$4L>"G4>"G4>"G$Q45$"M$(4 >"G4>"G""$4 >"G4>"GM$34L54455&"4 >"G" 6Cgsymbol  gvariable  gval  T gt  ] ogfilenamefice-9/session.scm >   ?   ? *  ?   ?   @  ' A  + A 0 A  9 B  M C  Q C  T D ) T D  W E + ] E ' s E t F ' G ' I  J  J ' J  K  L * M * M 6 M * K  N  N $ N   O "   Ch0]4545LLLO6gmodule  )gname )gobarray   )gfilenamefice-9/session.scm 9  :  : ;   : ) =   ) Ch-13445>"G45 $C45445545(" 45 $"4  5H4  5H4  5$ KK"O6grgx goptions gmatch  9 guses  E gmodules  p gshadow  { gvalue  gfilenamefice-9/session.scm % '   '   '  # ( * (  / (  1 )  3 *  9 *  < +  ? + E +  E *  H ,  R - X . * ] . 7 _ . * a / * b . % f -  i 0 p ,  p *  s 3  w 3  { 3  { *  ~ 4  4  4  *  5  5  5  5  6  7  8 ) gnamegaproposg documentationfCSearch for bindings: apropos regexp {options= 'full 'shadow 'value}C R"h]Cgmodule  gname  gvar   gdata   gfilenamefice-9/session.scm U   V    C#Xh]44556grgx  gfilenamefice-9/session.scm S  W  Y  Y )  Y   U    gnamegapropos-internalg documentationf+Return a list of accessible variable names.C!R|XLhX] $K4L455$14L5$C4L>"GLL6CC gname  Wgvar  Wgdata   Wgval  Tgfilenamefice-9/session.scm z   {  {  | 0 |   s  s 3  s s  ! t % - s  1 v  Q w   W gnameg module-filterCh(]$LLLO456Cgmodule  %gdata  %gfilenamefice-9/session.scm p  ~    ( " ~   % gnameg fold-moduleCh@]445>"G4545O6gproc  <ginit  <grgx   <gfolder   <gmatch  ' <grecorded  ' <gfilenamefice-9/session.scm [  l   l   l   m  # n  ' m  <    < gnameg apropos-foldg documentationfFolds PROCEDURE over bindings matching third arg REGEXP. Result is (PROCEDURE MODULE1 NAME1 VALUE1 (PROCEDURE MODULE2 NAME2 VALUE2 ... (PROCEDURE MODULEn NAMEn VALUEn INIT))) where INIT is the second arg to `apropos-fold'. Fourth arg FOLDER is one of (apropos-fold-accessible MODULE) ;fold over bindings accessible in MODULE apropos-fold-exported ;fold over all exported bindings apropos-fold-all ;fold over all bindingsC"Rhx]*"_(C4L5$ 4L4L4L554L55"""gdata  qgmodules  qgmodules   egdata   egobj   7ghandle  ! 4gfirst?  & 1gfilenamefice-9/session.scm           $      $ !   &  $ &   ,   ;   <   ?  ! B  . G  7 I  . M  ! N  ! S  + U  ! W   e    q gnamegrecCh0]4 5OLLQ4L56g fold-module  /ginit  /gtable  /grec   /gfilenamefice-9/session.scm           )   /    / Ch]OCg init-thunk  gtraverse  gextract   gfilenamefice-9/session.scm     gnamegmake-fold-modulesg documentationfReturn procedure capable of traversing a forest of modules. The forest traversed is the image of the forest generated by root modules returned by INIT-THUNK and the generator TRAVERSE. It is an image under the mapping EXTRACT.CRhN]LCFgfilenamefice-9/session.scm        Ch]O6~gmodule  gfilenamefice-9/session.scm       gnamegapropos-fold-accessibleC#Rh]456ygfilenamefice-9/session.scm             gnameg root-modulesCRhd]C\gk  gv  gfilenamefice-9/session.scm     Ch]456wgmod  gfilenamefice-9/session.scm    #      gnameg submodulesCR4iiii5$R4iiii5%Rih0]45$645$ 456Cgobj  +gfilenamefice-9/session.scm              !  ( )    + gnamegsourceC&REGhx ]I45$H("P454>"G4>"G4>"G $4>"G"4>"G4`>"G4>"G" (4'>"G" $L $4 >"G"4 >"G4 >"G  "4 >"G4 >"G4'>"G"  "NK("lJ$4 >"G"454>"G4>"G4 >"G $4>"G"4>"G4`>"G4>"G" (4'>"G" $L $4 >"G"4 >"G4 >"G  "4 >"G4 >"G4'>"G"  "NK("lJ$4 >"G"454>"G4>"G4>"G $4>"G"4>"G4`>"G4>"G" (4'>"G" $L $4 >"G"4 >"G4 >"G  "4 >"G4 >"G4'>"G"  "NK$5J$4 >"G"4>"GK"$VJ$4 >"G"4>"G4>"G4>"G""454>"G$4>"G"F $"84>"G4>"G4>"G$" $  "$4>"G"4>"G6p gobj  gt g required-args  - (g optional-args  - (g keyword-args  - (gallow-other-keys?  - (grest-arg  - (gneed-punctuation  - (glen  J gls glen   gls Q glen  6 |gls  pgarity  3 gfilenamefice-9/session.scm                    "  " (   ,   -  ?  D   J   M   _   c   h   q   u  : z                                                  !   &   /  4   9  D   J  K  O   T  ]  o                     '   0   '                        :                       )   ;   @  E   Q   W   X  p   t   w   x   |  }                                                            '   0 #  ' 0   6   9   K   O   T   ]   a  9 f   r  v   w  {                                                                    %  0   6  7  ;   @  I  [  p   s   y             '   0   '                    '   0   '                      -   3   6   ;   @   K  Q   R  V   [  j   l   q   v  z                                                              gnamegarityC'R<h0"]Q45$$$$$  $f (R  45$ 45"45$ 45"   C4   564   564   564   564   564   5645$C45$6Cgproc  ,gt ,gw  gx  gw  1 gx  1 gw  B gx  B gw  S gx S gw h gt   , gfilenamefice-9/session.scm              l  m   w   x   ~  +           +                     $   &   *    , gnamegprocedure-argumentsg documentationfReturn an alist describing the arguments that `proc' accepts, or `#f' if the information cannot be obtained. The alist keys that are currently defined are `required', `optional', `keyword', `allow-other-keys?', and `rest'.C(RCVgm  ,gfilenamefice-9/session.scm   $  #  '  0  4  8   8 Y : W F k J  x \   #   # &g % ($ S - [ 2  3  4t  5  5   5  5   5  6  G{  K    K C62.0/ccache/ice-9/top-repl.go000064400000007020151463412640011255 0ustar00GOOF----LE-8-2.0 ]C4h] gguile  gdefine-module*   gice-9 gtop-repl  gfilenameS fice-9/top-repl.scm gimportsS  gsystem grepl   gselectS g start-repl     g replacementsS  gset-current-module   g provided? gposix g sigaction gSIGINT g scm-error gsignal fUser interrupt !gcall-with-sigint "gresolve-module #g guile-user $# %gprocess-use-modules &gappend 'gr5rs (' )( *gsession +* ,+ -), .gregex /. 0/ 10 2gthreads 32 43 54 6gdefined? 7g setlocale 8gcatch 9g system-error :gLC_ALL ;f f'warning: failed to install locale: ~a~% ?gstrerror @gcurrent-language Agrun-hook Bg exit-hookC5h ]4   54>"G4i5$ h]6wgsig  gfilenamefice-9/top-repl.scm $   % # % . % ?  & #  %    ChU]45NCMgfilenamefice-9/top-repl.scm !  #  "    Ch m]M$ MM66egfilenamefice-9/top-repl.scm (  )   + $  + 2  +   -    Ch m]M$ MM66egfilenamefice-9/top-repl.scm (  )   + $  + 2  +   -    Ch m]M$ MM66egfilenamefice-9/top-repl.scm (  )   + $  + 2  +   -    Ch`}] HOO4O>"GV4>X4O>"GCX4O>"GFugthunk  _ghandler  _gfilenamefice-9/top-repl.scm         _ C"xha]6Ygthunk  gfilenamefice-9/top-repl.scm        C!R"$%&-.125!67897:;hU]6Mgfilenamefice-9/top-repl.scm D   E " E   C<=>?h]45456gkey  gsubr  gfmt   gargs   gerrno   gfilenamefice-9/top-repl.scm F   G  H  I   I "  I   G    C@AB hH]45$4>"G"44554  >"GCgstatus 1 Hgfilenamefice-9/top-repl.scm A   B  B  B B   C  C   C ( K  + K ! 1 K  1 K  4 L   H Ch`1]454>"G4445$ "4 5$ "5>"G  6)gguile-user-module ^gfilenamefice-9/top-repl.scm /  0   0 + 0  0  4   5  ! 6  % 7  & 9 * 9  , 9 0 9  2 : 7 ; 8 < < <  > < B <  D = I > K 6  P 5  ^ @   ^ gnamegtop-replCRC~gm  ,gfilenamefice-9/top-repl.scm   -  3   5  9      /    C62.0/ccache/ice-9/occam-channel.go000064400000071021151463412640012205 0ustar00GOOF----LE-8-2.0q]4h-] gguile  gdefine-module*   gice-9 g occam-channel  gfilenameS fice-9/occam-channel.scm gimportsS goop ggoops     gthreads    gexportsS galt goc:lock g oc:unlock goc:consequence goc:immediate-dispatch goc:late-dispatch goc:first-channel goc:set-handshake-channel goc:unset-handshake-channel g make-channel g? g! !g make-timer "ghandshake-channel #gmutex $gsender-waiting? %gimmediate-receive &g late-receive ' !"#$%& (gset-current-module )( *( +gno-data ,+ -greceiver-waiting .- /gtoplevel-define! 0/ 1/ 2g  3g make-class 4gnameS 5gdefined? 65 75 8gis-a? 98 :8 ;g <; =; >gmemq ?g @? A? Bgclass-precedence-list CB DB Egclass-redefinition FE GE Hg  IH JH Kgensure-accessor LK MK Ngdata Ogcv Pg QgaccessorS Rg init-valueS Sg init-formS Tgmake-condition-variable UT Vg init-thunkS Wg make-mutex XW Yg initialize Zgmake [Z \Z ]g  ^] _] `g add-method! a` b` cg dc ec fg specializersS gg hg ig jgformalsS kgch lginitargs mkl ngbodyS og next-method po qgset! r"k sqrk tps ugmake-procedureS vgsetter wv xv yg procedureS zZP {z |k }gnot ~geq? Nk ~+ }  greceiver-waiting? ~-  gsignal-condition-variable Ok  glet gres   q+    g lock-mutex #k  gcond k g unlock-mutex  g scm-error gquote g misc-error   f*another process is already receiving on ~A glist k   $k %k  gelse q- gwait-condition-variable  &k       g *unspecified*  k  gx k #r  q Or      f(another process is already sending on ~A      gport g g init-keywordS gportS g  Z  gread k   gwrite   g g the-timer gtimer-cv g timer-mutex g timeofday->us g us->timeofday g gettimeofday    g  gt k      gmake-syntax-transformer   gmacro g $sc-dispatch   gany gfree-id g syntax-object gtop  gribcage   gm-17d5859fdf6989b4-ca   fl-17d5859fdf6989b4-cc    ghygiene     geach-any   gdummy gform k  fl-17d5859fdf6989b4-cf fl-17d5859fdf6989b4-d0 fl-17d5859fdf6989b4-d1             #    gexp k  fl-17d5859fdf6989b4-d6 fl-17d5859fdf6989b4-d7 fl-17d5859fdf6989b4-d8 fl-17d5859fdf6989b4-d9     #    fl-17d5859fdf6989b4-df  fl-17d5859fdf6989b4-e0 !fl-17d5859fdf6989b4-e1 " ! #" $# %$ &gsyntax-violation '& (& )f-source expression failed to match any pattern *gm-17d5859fdf6989b4-e5 +* ,+ -fl-17d5859fdf6989b4-e7 .- /,. 0/ 10 21 32 43 54 6+ 7fl-17d5859fdf6989b4-ea 8fl-17d5859fdf6989b4-eb 9fl-17d5859fdf6989b4-ec :789 ;6: <;/ =< >#< ?4 @? A+ Bfl-17d5859fdf6989b4-f1 Cfl-17d5859fdf6989b4-f2 Dfl-17d5859fdf6989b4-f3 Efl-17d5859fdf6989b4-f4 FBCDE GAF HG/ IH J#H Kfl-17d5859fdf6989b4-fa Lfl-17d5859fdf6989b4-fb Mfl-17d5859fdf6989b4-fc NKLM O6N PO/ QP R Sg=> Tgm-17d5859fdf6989b4-100 UT VU Wfl-17d5859fdf6989b4-102 XW YVX ZY [SZ \[ ] ^] _^ `\_ aglambda bge1 cge2 dNabc eU ffl-17d5859fdf6989b4-10a gfl-17d5859fdf6989b4-10b hfl-17d5859fdf6989b4-10c ifl-17d5859fdf6989b4-10d jfl-17d5859fdf6989b4-10e kfl-17d5859fdf6989b4-10f lfghijk mdel nmY on p qp rgbegin sNbc tU ufl-17d5859fdf6989b4-118 vfl-17d5859fdf6989b4-119 wfl-17d5859fdf6989b4-11a xfl-17d5859fdf6989b4-11b yuvwx zsty {zY |r{ }gm-17d5859fdf6989b4-121 ~} ~ fl-17d5859fdf6989b4-123         kb ~ fl-17d5859fdf6989b4-126 fl-17d5859fdf6989b4-127 fl-17d5859fdf6989b4-128    $  %   gand kb ~ fl-17d5859fdf6989b4-12e fl-17d5859fdf6989b4-12f fl-17d5859fdf6989b4-130 fl-17d5859fdf6989b4-131     $  % gm-17d5859fdf6989b4-13f   fl-17d5859fdf6989b4-141          fl-17d5859fdf6989b4-144 fl-17d5859fdf6989b4-145 fl-17d5859fdf6989b4-146    $  &    fl-17d5859fdf6989b4-14c fl-17d5859fdf6989b4-14d fl-17d5859fdf6989b4-14e fl-17d5859fdf6989b4-14f     $  & b fl-17d5859fdf6989b4-156 fl-17d5859fdf6989b4-157 fl-17d5859fdf6989b4-158      gm-17d5859fdf6989b4-15c   fl-17d5859fdf6989b4-15e         ܌ ی  ߌ g first-channel gc1 gc2   fl-17d5859fdf6989b4-175 fl-17d5859fdf6989b4-176 fl-17d5859fdf6989b4-177     gm-17d5859fdf6989b4-17c   fl-17d5859fdf6989b4-17e         g handshake kb  fl-17d5859fdf6989b4-181 fl-17d5859fdf6989b4-182 fl-17d5859fdf6989b4-183 fl-17d5859fdf6989b4-184    q "   kb   fl-17d5859fdf6989b4-18a  fl-17d5859fdf6989b4-18b  fl-17d5859fdf6989b4-18c  fl-17d5859fdf6989b4-18d  fl-17d5859fdf6989b4-18e          q "  b fl-17d5859fdf6989b4-195 fl-17d5859fdf6989b4-196 fl-17d5859fdf6989b4-197 fl-17d5859fdf6989b4-198     gm-17d5859fdf6989b4-19d    !fl-17d5859fdf6989b4-19f "! # " $# %$ &% '& (' )( * +fl-17d5859fdf6989b4-1a2 ,fl-17d5859fdf6989b4-1a3 -fl-17d5859fdf6989b4-1a4 .+,- /*. 0/# 1q0 2"0 3( 43 5 6fl-17d5859fdf6989b4-1a9 7fl-17d5859fdf6989b4-1aa 8fl-17d5859fdf6989b4-1ab 9fl-17d5859fdf6989b4-1ac :6789 ;5: <;# =< >q< ?"< @fl-17d5859fdf6989b4-1b2 Afl-17d5859fdf6989b4-1b3 Bfl-17d5859fdf6989b4-1b4 C@AB D*C ED# FE Gg_ HG I Jfl-17d5859fdf6989b4-1bd KJ LIK Mg else-clause? NM O Pfl-17d5859fdf6989b4-1ba QP RNOQ Sfl-17d5859fdf6989b4-1b9 TS UIT VLRU WV XW YX ZGY [G \ ] ^fl-17d5859fdf6989b4-1c6 _fl-17d5859fdf6989b4-1c7 `^_ a\]` baLRU cGb dfl-17d5859fdf6989b4-1d9 efl-17d5859fdf6989b4-1da fde g\]f hgRU irh jh kgappend lk mk ngmap on pn qh rh sh th uh vkh wh xh yv zh {Oh |{v }#h ~}v z|~ h h h r fl-17d5859fdf6989b4-1d1 fl-17d5859fdf6989b4-1d2  \] RU r       C5h?]4   '54*>"G,+R.-R"'41243i425>"tG"m4725$^4:2i=5$G4>iA4D2i55$)4G2i43i425>"G""|""t""l47"5$" 4:"iJ5$141"4M47"5$"i""5>"G"47N5$" 4:NiJ5$141N4M47N5$Ni"N5>"G"47O5$" 4:OiJ5$141O4M47O5$Oi"O5>"G"47#5$" 4:#iJ5$141#4M47#5$#i"#5>"G""241P43i2i"Q"iNQNiR+iOQOiSUVThK]6Cgfilenamefice-9/occam-channel.scm  -    C#Q#iSXVWhK]6Cgfilenamefice-9/occam-channel.scm  . &   C4P5>"G"|47P5$m4:Pi=5$V4>iA4DPi55$84GPi43i2i"Q"iNQNiR+iOQOiSUVThK]6Cgfilenamefice-9/occam-channel.scm  -    C#Q#iSXVWhK]6Cgfilenamefice-9/occam-channel.scm  . &   C4P5>"G""b""Z""R47Y5$"Yi$!41Y4\_4Y5>"G"4bYi4\efPiijmntux"h(x]4L>"G456pgch  #ginitargs  #gfilenamefice-9/occam-channel.scm 0 # 2   # Chh]OC`greal-next-method  gfilenamefice-9/occam-channel.scm 0   Cy5 >"G475$"i$!414\_45>"G"4bi4\efjn{uyZPhQ]6Igfilenamefice-9/occam-channel.scm 4  5    C5 >"G47$5$"$i$!41$4\_4$5>"G"4b$i4\efPij|nuyN+hr]45Cjgch  gfilenamefice-9/occam-channel.scm 7  8 8  8    C5 >"G475$"i$!414\_45>"G"4bi4\efPij|nuyN-hj]45Cbgch  gfilenamefice-9/occam-channel.scm :  ;  ;   C5 >"G47%5$"%i$!41%4\_4%5>"G"4b%i4\efPij|nuyONx+h@] 445>"G45445>"GCgch  >gres >gfilenamefice-9/occam-channel.scm =  >   >   >   ? ?  # @   > C5 >"G47&5$"&i$!41&4\_4&5>"G"4b&i4\efPij|nuyNx+h(] 45445>"GCzgch  'gres 'gfilenamefice-9/occam-channel.scm C  D D  E   ' C5 >"G475$"i$!414\_45>"G"4bi4\efPij|nuy#$%xN-O&hO] 445>"G45$,445>"G45"T4 5$ 4 5">44  5 >"G44545>"G45445>"GCGgch  gres gfilenamefice-9/occam-channel.scm H  I   I   I   J  $ J % K  ( K " 3 K  < L  @ L  B L + D M  I N  L L  Q O  [ J \ P  g R  S  S - S 5 S  T  J  U  U  U   C5 >"G47 5$" i$!41 4\_4 5>"G"4b i4\efPij|nuy hb]6Zgch  gfilenamefice-9/occam-channel.scm X Y   C5 >"G47 5$" i$!41 4\_4 5>"G"4b i4\efPigijnuy#"xNO$ h]44455>"G45$9445>"G44455>"G"~4 5$<4 4455>"G4   >"G"7445>"G44545>"G 44556gch  gx  gfilenamefice-9/occam-channel.scm [  \   \  \   \   \   ] ) ]  * ^ C _ F _ $ I _ ( Q _ $ V _ c ` m ]  n a q a  t a  | a  a b b  b b # c  b e f f " f * f g  g  g  g %  C5 >"G475$" 4:iJ5$1414M475$i"5>"G"475$4:i=5$4>iA4Di55$<4Gi43i2iQi45>"G"64143i2iQi45>"G"64143i2iQi45>"G"64143i2iQi45>"G475$"i$!414\_45>"G"4bi4\efijnuyZhd]6\gport  gfilenamefice-9/occam-channel.scm n o   C5 >"G475$"i$!414\_45>"G"4bi4\efij|nuyhj]456bgch  gfilenamefice-9/occam-channel.scm q  r  r   C5 >"G47 5$" i$!41 4\_4 5>"G"4b i4\efij|nuyhj]456bgch  gfilenamefice-9/occam-channel.scm t  u u   C5 >"G"+4143i2i45>"xG"q475$b4:i=5$K4>iA4Di55$-4Gi43i2i45>"G""t""l""d4Zii5R4Ti5R4Wi5Rh`]CXgfilenamefice-9/occam-channel.scm ~    gnameg make-timerC!Rh]B@Cgt  gfilenamefice-9/occam-channel.scm           gnameg timeofday->usCRh ]B@B@Cgn  gfilenamefice-9/occam-channel.scm         gnameg us->timeofdayCR475$"i$!414\_45>"G"4bi4\efij|nuyhm]456egch  gfilenamefice-9/occam-channel.scm     C5 >"G475$"i$!414\_45>"G"4bi4\efiijnuyh8]4>"G445>"G6gch  5gt  5gfilenamefice-9/occam-channel.scm      0 '  5   5 C5 >"G4  hO]CGgdummy  gch  gform      Ch`]CXgdummy  gexp  gch   gform      C%hP]CHgdummy  gexp  gform      C() hP$]45$@45$@45$@ 6gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefice-9/occam-channel.scm   P g macro-typeg syntax-rulesgpatternsg?gchgformg...gexpg?gchgformg...gexpgformg...C5R45=>hO]CGgdummy  gch  gform      C@IJh`]CXgdummy  gexp  gch   gform      CQhP]CHgdummy  gexp  gform      C() hP$]45$@45$@45$@ 6gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefice-9/occam-channel.scm   P g macro-typeg syntax-rulesgpatternsg?gchgformg...gexpg?gchgformg...gexpgformg...C5R4Rh?]C7gdummy  gdata     C`oh]Czgdummy  gdata  glambda   gx   ge1   ge2      Cq|h_]CWgdummy  gdata  ge1   ge2      C() hP]45$@45$@45$@ 6gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefice-9/occam-channel.scm   P g macro-typeg syntax-rulesgpatternsgdatagdatag=>glambdagxge1ge2g...gdatage1ge2g...C5R4h M]CEgdummy  gch  ge1      Ch(^]CVgdummy  !gexp  !gch   !ge1   !  ! ChN]CFgdummy  gexp  ge1      C() hP]45$@45$@45$@ 6gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefice-9/occam-channel.scm   P g macro-typeg syntax-rulesgpatternsg?gchge1g...gexpg?gchge1g...gexpge1g...C5R4h M]CEgdummy  gch  ge1      Ch(^]CVgdummy  !gexp  !gch   !ge1   !  ! ChN]CFgdummy  gexp  ge1      C() hP]45$@45$@45$@ 6gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefice-9/occam-channel.scm   P g macro-typeg syntax-rulesgpatternsg?gchge1g...gexpg?gchge1g...gexpge1g...C5R4h]]CUgdummy  gch  ge1   gc2      Chn]Cfgdummy  gexp  gch   ge1   gc2      CphM]CEgdummy  gc1  gc2      C() hP4]45$@45$@45$@ 6,gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefice-9/occam-channel.scm   P g macro-typeg syntax-rulesgpatternsg?gchge1g...gc2g...gexpg?gchge1g...gc2g...gc1gc2g...C5R4hd]C\gdummy  gch  ge1   g handshake      Chu]Cmgdummy  gexp  gch   ge1   g handshake      Che]C]gdummy  gexp  ge1   g handshake      C() hPE]45$@45$@45$@ 6=gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefice-9/occam-channel.scm   P g macro-typeg syntax-rulesgpatternsg?gchge1g...g handshakegexpg?gchge1g...g handshakegexpge1g...g handshakeC5R4)12hM]CEgdummy  gch  ge1      C4=>?h^]CVgdummy  gexp  gch   ge1      CFhN]CFgdummy  gexp  ge1      C() hP]45$@45$@45$@ 6gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefice-9/occam-channel.scm   P g macro-typeg syntax-rulesgpatternsg?gchge1g...gexpg?gchge1g...gexpge1g...C5R4Hh]C   CZh:]C2ge1  ge2     C[chm]L6egc1  gc2  gfilenamefice-9/occam-channel.scm   C() hX]45$@45$@45$ LO@ 6gx  Ugtmp Ugtmp  " Ugtmp  9 Ugfilenamefice-9/occam-channel.scm   U gnameg else-clause?C[ijmpjh@]C8gtmp-17d5859fdf6989b4-1e3    Cqrstth@]C8gtmp-17d5859fdf6989b4-1e1    Cuvwxyxyh@]C8gtmp-17d5859fdf6989b4-1e0    Ch@]C8gtmp-17d5859fdf6989b4-1df    Ch@]C8gtmp-17d5859fdf6989b4-1de    Ch@]C8gtmp-17d5859fdf6989b4-1e2    Ch=]445 44 5   4454454555544555C5gc1  gc2    C()hm]LL6egc1  gc2  gfilenamefice-9/occam-channel.scm     Cmph@]C8gtmp-17d5859fdf6989b4-1d7    Ch@]C8gtmp-17d5859fdf6989b4-1d5    Ch@]C8gtmp-17d5859fdf6989b4-1d6    ChX:]445 4 5 44 5 55C2gc1  Wgc2  W  W C hh]OQ45" 45$@6$4O?$@""gx  dg else-clause? dgtmp   dgtmp  ' >gfilenamefice-9/occam-channel.scm   d C5RCgm  ,gt gt / Kgt  gt  gt  gt  gt x gt  gt gt gt  .gt  gt  gt  gt b wgt c xgt a vgt " 7gt $ 9gfilenamefice-9/occam-channel.scm   . %  1 % 3 &  6 & ; ( *  0  4 q 7 z : z = C  H  X  [  k [ n \ q Z t ^ w  y   y  {   {  |   |  ~ [    !  ? C62.0/ccache/ice-9/threads.go000064400000026737151463412640011165 0ustar00GOOF----LE-8-2.0-]4h] gguile  gdefine-module*   gice-9 gthreads  gfilenameS fice-9/threads.scm gimportsS gfutures     gmatch    gexportsS g begin-thread gparallel gletpar g make-thread g with-mutex gmonitor gpar-map g par-for-each g n-par-map gn-par-for-each gn-for-each-par-map g%thread-handler   !gset-current-module "! #! $gmake-syntax-transformer %$ &$ 'gmacro (g $sc-dispatch )( *( +gany ,geach-any -+, .+- /g syntax-object 0gcall-with-new-thread 1gtop 21 3gribcage 4gdummy 5ge0 6ge1 7456 8gm-4712ba65e6-1 981 :922 ;fl-4712ba65e6-6 ;<= ?37:> @3 Agx BA C9 Dfl-4712ba65e6-3 ED F3BCE G2?@F Hghygiene IH J/0GI Kglambda L/KGI M/GI NM Ogsyntax-violation PO QO Rf-source expression failed to match any pattern Sg_ TS, Uggenerate-temporaries Vglet Wgtmp0 XW Y2 Zfl-4712ba65e6-16 [Z \3XY[ ]5 ^fl-4712ba65e6-11 _^ `3]Y_ afl-4712ba65e6-e ba c3BYb d2@\`@c e/VdI fgmap gf hf igfuture j/idI kgvalues l/kdI mgtouch n/mdI ogeach p++ qop rq- s+r tgcall-with-values ugv vge wgb0 xgb1 y4uvwx zgm-4712ba65e6-1d {z1 |{2222 }fl-4712ba65e6-22 ~fl-4712ba65e6-23 fl-4712ba65e6-24 fl-4712ba65e6-25 fl-4712ba65e6-26 }~ 3y| { fl-4712ba65e6-1f  3B 2@ /tI /KI /I gproc garg 4 gm-4712ba65e6-30 1 22 fl-4712ba65e6-35 fl-4712ba65e6-36 fl-4712ba65e6-37  3  fl-4712ba65e6-32  3B 2@ /0I /KI /I  +. gm 456 gm-4712ba65e6-3d 1 222 fl-4712ba65e6-42 fl-4712ba65e6-43 fl-4712ba65e6-44 fl-4712ba65e6-45  3  fl-4712ba65e6-3f  3B 2@ /VI /AI g dynamic-wind /I /KI g lock-mutex /I   gbegin /I g unlock-mutex /I    gfirst grest 4 gm-4712ba65e6-4c 1 22 fl-4712ba65e6-51 fl-4712ba65e6-52 fl-4712ba65e6-53  3  fl-4712ba65e6-4e  3B 2@ /I g make-mutex /I  greverse   g make-future     g par-mapper gcons gfor-each gconst g make-list glength g join-thread gcar gcdr gapply gno-value  gcurrent-error-port gdisplay f In thread: gnewline g display-error funcaught throw to  f:  gthread-handlerC5h8]4    54#>"G4&'*.JLNhM]CEgdummy  ge0  ge1      CQRh(] 45$@6gx  "gtmp "gfilenamefice-9/threads.scm 7   " g macro-typeg syntax-rulesgpatternsge0ge1g...C5R4&'*TU*,ehjhX]CPgtmp-4712ba65e6-19  gtmp-4712ba65e6-18     Clnh9]C1gtmp-4712ba65e6-1a    Ch ,]4L545C$gtmp0     CQRh0]4545$ O@6wge0  0gtmp 0gtmp   0gfilenamefice-9/threads.scm  @ ! @   0 CQRh(d] 45$@6\gx  "gtmp "gfilenamefice-9/threads.scm =   " C5R4&'*sh k]Ccgdummy  gv  ge   gb0   gb1      CQRh(] 45$@6gx  "gtmp "gfilenamefice-9/threads.scm E   " g macro-typeg syntax-rulesgpatternsgvgeg...gb0gb1g...C5R4&'*.hP]CHgdummy  gproc  garg      CQRh(] 45$@6gx  "gtmp "gfilenamefice-9/threads.scm K   " g macro-typeg syntax-rulesgpatternsgprocgargg...C5R4&'*h0\]CTgdummy  )gm  )ge0   )ge1   )  ) CQRh(] 45$@6gx  "gtmp "gfilenamefice-9/threads.scm P   " g macro-typeg syntax-rulesgpatternsgmge0ge1g...C5R4&'*.hR]CJgdummy  gfirst  grest      CQRh(] 45$@6gx  "gtmp "gfilenamefice-9/threads.scm W   " g macro-typeg syntax-rulesgpatternsgfirstgrestg...C5RhL]LL6Dgfilenamefice-9/threads.scm `   `    Cmhe]9"(845454LO54L?L456$8$*$"CCC"s]glists  gls  gp-ls   gp-ls   gtails   Dgheads   Dgtail  3 Dghead  3 Dgw  N gw  ] gx  ]  gfilenamefice-9/threads.scm ]   ^   `  - a  3 ` < b  D b G ^  d ^   gnamegloopCh(-13OLQ6}gproc "glists "gloop   "gfilenamefice-9/threads.scm \   ]  " Ch]OCygmapper  gcons  gfilenamefice-9/threads.scm [   gnameg par-mapperCR4ifii5R4ii4i55R0fhh]"]4L>"GM(L64M5M4M5NMN4L>"G4L?""gargs / cg my-result / cgfilenamefice-9/threads.scm s   t   u   v  $ w  % x % / x  4 z * > z  A { ( C {  D |  X } / _ }  c ~  c t   g C hx-13H45H44J55H"B$4J>"GC4O5JK" "gn wgproc wgarglists  wgm   wgthreads   wgresults  $ wgresult  ( wgi  . pgfilenamefice-9/threads.scm i  j  j   k   j   l   l  l % " l  $ l  $ j  . n  3 o 7 n  8 p O s  e s g r  j n  p n  w  gnameg n-par-mapCR0fhp]"_4L>"GM(L64M54M5N4L>"G4L>"G""gargs . egfilenamefice-9/threads.scm         %  & % .  1 * ;  <  N  e  e   i ChX9-13H45H"1$J64O5JK" "1gn Sgproc Sgarglists  Sgm   Sgthreads   Sgi   Lgfilenamefice-9/threads.scm        $  , -  A C  F  L  S  gnamegn-par-for-eachCR0fh]"4L>"GM(L6M&KM(L64M5M4M5NMN4L>"G4L?"MM4L>"G4L>"G4L>"GMN4L>"G"3"/gargs D xg my-result D xgarg { gfilenamefice-9/threads.scm        $  ' & )  -  9  : ( D  I - S  V + X  Y  m 2 t  x  { ' {       ,      C hpA-13 H45H44J55HJH"7$J64O 5JK" "9gn ngs-proc ngp-proc  ngarglists  ngm   ngthreads   ngresults  & ngresult  * ngi  0 g gfilenamefice-9/threads.scm            % "  $  &  &  0  5 9  A B  \ ^  a  g  n  gnamegn-for-each-par-mapg documentationfgUsing N parallel processes, apply S-PROC in serial order on the results of applying P-PROC on ARGLISTS.CR h-1345454>"G4>"G $74 $ ">"G"b4>"G4>"G4>"G4>"G4>"GCgtag gargs gn   gp   gfilenamefice-9/threads.scm       %  .  D  H  I  Q  T  X  _  c  f  n  s     gnamegthread-handlerCRiRCgm  ,gfilenamefice-9/threads.scm  " d [ e f  v f w g   g *  g   g  i  | . 5   7 C62.0/ccache/ice-9/getopt-long.go000064400000135440151463412640011762 0ustar00GOOF----LE-8-2.0]4hY] gguile  gdefine-module*   gice-9 g getopt-long  gfilenameS fice-9/getopt-long.scm gimportsS g common-list   gselectS g remove-if-not    gsrfi gsrfi-9   gmatch   gregex   goptargs    gexportsS !g option-ref "! #gset-current-module $# %# &g make-fluid 'fguile (g %program-name )g program-name *gformat +gcurrent-error-port ,f~a:  -gapply .gnewline /gexit 0g fatal-error 1g option-spec 2g%%make-option-spec-procedure 3gmake-syntax-transformer 43 53 6g%make-option-spec 7gmacro 8g $sc-dispatch 98 :8 ;g_ g syntax-object ?glambda @gm-70fb8ec09b0a817-48c Agtop B@A Cgribcage Dgt-70fb8ec09b0a817-487 Egt-70fb8ec09b0a817-488 Fgt-70fb8ec09b0a817-489 Ggt-70fb8ec09b0a817-48a Hgt-70fb8ec09b0a817-48b IDEFGH JBBBBB Kfl-70fb8ec09b0a817-491 Lfl-70fb8ec09b0a817-492 Mfl-70fb8ec09b0a817-493 Nfl-70fb8ec09b0a817-494 Ofl-70fb8ec09b0a817-495 PKLMNO QCIJP RC Sgx TS UB Vfl-70fb8ec09b0a817-48e WV XCTUW Ygshift Zg proc-name [gargs \Z[ ]A ^]] _fl-1e8ba8b5a-60 `fl-1e8ba8b5a-61 a_` bC\^a cgkey dgvalue egname fgformals ggbody hcdefg i]]]]] jfl-1e8ba8b5a-53 kfl-1e8ba8b5a-54 lfl-1e8ba8b5a-55 mfl-1e8ba8b5a-56 nfl-1e8ba8b5a-57 ojklmn pChio qgmake-procedure-name rq s] tfl-1e8ba8b5a-43 ut vCrsu w] xfl-1e8ba8b5a-42 yx zCTwy {BQRXYRRRRbpvz  |ghygiene }| ~>?{} ]QRX | >e g required? > goption-spec->single-char > g predicate > g value-policy >  g make-struct gm-70fb8ec09b0a817-485 A gt-1e8ba8b5a-133 gt-1e8ba8b5a-132 gt-1e8ba8b5a-131  gm-1e8ba8b5a-134 A  fl-1e8ba8b5a-138 fl-1e8ba8b5a-139 fl-1e8ba8b5a-13a  C g ctor-args  fl-1e8ba8b5a-120  Cw gctor gfield  fl-1e8ba8b5a-11c fl-1e8ba8b5a-11d  C^ gform g type-name gconstructor-spec g field-names  ]]]] fl-1e8ba8b5a-111 fl-1e8ba8b5a-112 fl-1e8ba8b5a-113 fl-1e8ba8b5a-114  C g record-layout gfunctional-setters gsetters gcopier ggetters g constructor ggetter-identifiers gfield-identifiers  ]]]]]]]] fl-1e8ba8b5a-e9 fl-1e8ba8b5a-e7 fl-1e8ba8b5a-e5 fl-1e8ba8b5a-e3 fl-1e8ba8b5a-e1 fl-1e8ba8b5a-df fl-1e8ba8b5a-dd fl-1e8ba8b5a-db  C fl-1e8ba8b5a-da  CTw QRXYRRRRR >} >1 > }  ~ geach-any ;ό gsyntax-violation   fWrong number of arguments g identifier?   ]RX >2   f-source expression failed to match any pattern grecord-type-vtable   g pwpwpwpwpw gdefault-record-printer   e gset-struct-vtable-name!   gvtable-offset-user   g%option-spec?-procedure g option-spec? ;< gm-70fb8ec09b0a817-4a1 A gt-70fb8ec09b0a817-4a0   fl-70fb8ec09b0a817-4a6  C fl-70fb8ec09b0a817-4a3  CT RYRRRRbpvz  >?} gobj gt-1e8ba8b5a-224 gt-1e8ba8b5a-21e gt-1e8ba8b5a-21f gt-1e8ba8b5a-220 gt-1e8ba8b5a-223 gt-1e8ba8b5a-222 gt-1e8ba8b5a-221  gm-1e8ba8b5a-225 A  fl-1e8ba8b5a-229 fl-1e8ba8b5a-22a  fl-1e8ba8b5a-22b  fl-1e8ba8b5a-22c  fl-1e8ba8b5a-22d  fl-1e8ba8b5a-22e  fl-1e8ba8b5a-22f       C g copier-id  fl-1e8ba8b5a-21c  Cw g ctor-name  fl-1e8ba8b5a-214  Cw  fl-1e8ba8b5a-212  Cw glayout   fl-1e8ba8b5a-210 !  "Cw! #g immutable? $# %fl-1e8ba8b5a-20e &% 'C$w& (g field-count )( *fl-1e8ba8b5a-20c +* ,C)w+ -g getter-ids .- /fl-1e8ba8b5a-209 0/ 1C.w0 2g field-ids 32 4fl-1e8ba8b5a-206 54 6C3w5 7gpredicate-name 8g field-spec 9#78 :]]]]]] ;fl-1e8ba8b5a-1f9 fl-1e8ba8b5a-1fc ?fl-1e8ba8b5a-1fd @fl-1e8ba8b5a-1fe A;<=>?@ BC9:A CRYRRRRRRRR"R'R,R1R6B D>C} ED Fgand G>FC} Hgstruct? I>HC} JID Kgeq? L>KC} Mg struct-vtable N>MC} OND P]R Q>1P RLOQ SGJR TES U]R V>U Wgthrow-bad-struct XW YW Zgoption-spec->name [g%option-spec->name-procedure \gfree-id ]g %%on-error ^gm-70fb8ec09b0a817-4ad _^A `_ afl-70fb8ec09b0a817-4af ba cCT`b d_RcYRRRRbpvz  e>]d} f\e gf< hg%%type igt-1e8ba8b5a-14b jgt-1e8ba8b5a-14c kgt-1e8ba8b5a-14d lgt-1e8ba8b5a-14e mgt-1e8ba8b5a-14f ngt-1e8ba8b5a-150 ogt-1e8ba8b5a-151 pijklmno qgm-1e8ba8b5a-152 rqA srrrrrrr tfl-1e8ba8b5a-156 ufl-1e8ba8b5a-157 vfl-1e8ba8b5a-158 wfl-1e8ba8b5a-159 xfl-1e8ba8b5a-15a yfl-1e8ba8b5a-15b zfl-1e8ba8b5a-15c {tuvwxyz |Cps{ }ggetter ~gindex }~ fl-1e8ba8b5a-149 fl-1e8ba8b5a-14a  C^ - ]]] fl-1e8ba8b5a-144 fl-1e8ba8b5a-145 fl-1e8ba8b5a-146  C RcYR|RRRR >h} \ ;g< gck gerr gs  __ fl-70fb8ec09b0a817-4b2 fl-70fb8ec09b0a817-4b3  C _RcYRRRRbpvz  >} gquote >} ]Rc >1   g%%index >} \ ;g< fl-70fb8ec09b0a817-4b7 fl-70fb8ec09b0a817-4b8  C _RcYRRRRbpvz  >} >} Rc >    g%%copier >} \ ;g< fl-70fb8ec09b0a817-4bc fl-70fb8ec09b0a817-4bd  C _RcYRRRRbpvz  >} >} g%%option-spec-set-fields ]Rc >   gt-70fb8ec09b0a817-4ac  fl-70fb8ec09b0a817-4c1  C` _RcYRRRRbpvz  >?} RcYR|RRRR >}  gif >} >K} >M}  ]Rc >1  g struct-ref >} Rc >   >W} >} >Z     ]Rc >[ goption-spec->required? g!%option-spec->required?-procedure gm-70fb8ec09b0a817-4c8 A  fl-70fb8ec09b0a817-4ca  CT RYRRRRbpvz  >]} \ < RYR|RRRR >h} \ ;<  fl-70fb8ec09b0a817-4cd fl-70fb8ec09b0a817-4ce  C RYRRRRbpvz  >} >} ]R >1   >} \ ;< fl-70fb8ec09b0a817-4d2 fl-70fb8ec09b0a817-4d3  C RYRRRRbpvz  >} >} R >     >}  \   ; <  fl-70fb8ec09b0a817-4d7  fl-70fb8ec09b0a817-4d8    C RYRRRRbpvz  >} >} ]R >   gt-70fb8ec09b0a817-4c7  fl-70fb8ec09b0a817-4dc  C RYRRRRbpvz  >?} RYR|RRRR >}   !>} ">K} #>M} $# %]R &>1% '"$& (>} )R *> ) +(* ,>W} ->} .>% /-. 0,/ 1!'+0 2 1 3]R 4>3 5g#%option-spec->single-char-procedure 6gm-70fb8ec09b0a817-4e3 76A 87 9fl-70fb8ec09b0a817-4e5 :9 ;CT8: <7R;YRRRRbpvz  =>]<} >\= ?>< @R;YR|RRRR A>h@} B\A C;?B< D77 Efl-70fb8ec09b0a817-4e8 Ffl-70fb8ec09b0a817-4e9 GEF HCDG I7HR;YRRRRbpvz  J>I} K>I} L]HR; M>1L NKM ON P>@} Q\P R;?Q< Sfl-70fb8ec09b0a817-4ed Tfl-70fb8ec09b0a817-4ee UST VCDU W7VR;YRRRRbpvz  X>W} Y>W} ZVR; [> Z \Y[ ]\ ^>@} _\^ `;?_< afl-70fb8ec09b0a817-4f2 bfl-70fb8ec09b0a817-4f3 cab dCDc e7dR;YRRRRbpvz  f>e} g>e} h]dR; i>h jgi kj lgt-70fb8ec09b0a817-4e2 ml nfl-70fb8ec09b0a817-4f7 on pCm8o q7pR;YRRRRbpvz  r>?q} spR;YR|RRRR t>s} ut v>s} w>Ks} x>Ms} yxt z]pR; {>1z |wy{ }>s} ~pR; > ~ }t >Ws} >s} >z  t v| ru ]R; >5 goption-spec->predicate g!%option-spec->predicate-procedure gm-70fb8ec09b0a817-4fe A  fl-70fb8ec09b0a817-500  CT RYRRRRbpvz  >]} \ < RYR|RRRR >h} \ ;<  fl-70fb8ec09b0a817-503 fl-70fb8ec09b0a817-504  C RYRRRRbpvz  >} >} ]R >1   >} \ ;< fl-70fb8ec09b0a817-508 fl-70fb8ec09b0a817-509  C RYRRRRbpvz  >} >} R >    >} \ ;< fl-70fb8ec09b0a817-50d fl-70fb8ec09b0a817-50e  C RYRRRRbpvz  >} >} ]R >   gt-70fb8ec09b0a817-4fd  fl-70fb8ec09b0a817-512  C RYRRRRbpvz  >?} RYR|RRRR >}  >} >K} >M}  ]R >1  >} R >   >W} >} >     ]R > goption-spec->value-policy g$%option-spec->value-policy-procedure gm-70fb8ec09b0a817-519 A  fl-70fb8ec09b0a817-51b  CT RYRRRRbpvz  >]} \ < RYR|RRRR >h} \ ;<  fl-70fb8ec09b0a817-51e fl-70fb8ec09b0a817-51f  C RYRRRRbpvz  >} >} ]R >1   >} \ ;< fl-70fb8ec09b0a817-523 fl-70fb8ec09b0a817-524  C RYRRRRbpvz  >} >} R >      >}  \   ; <  fl-70fb8ec09b0a817-528 fl-70fb8ec09b0a817-529   C RYRRRRbpvz  >} >} ]R >   gt-70fb8ec09b0a817-518  fl-70fb8ec09b0a817-52d  C RYRRRRbpvz  >?} RYR|RRRR  >} !  ">} #>K} $>M} %$  &]R '>1& (#%' )>} *R +> * ,) + ->W} .>} />& 0./ 1- 0 2"(,1 3!2 4]R 5>4 6geach 7<< 867 9<8 :<9 ;<: gcheck? ?gexpr @=>}? Agm-70fb8ec09b0a817-534 BAA CB Dfl-70fb8ec09b0a817-539 Efl-70fb8ec09b0a817-53a Ffl-70fb8ec09b0a817-53b Gfl-70fb8ec09b0a817-53c Hfl-70fb8ec09b0a817-53d IDEFGH JC@CI KB Lfl-70fb8ec09b0a817-536 ML NCTKM Ogt-1e8ba8b5a-16a Pgt-1e8ba8b5a-16c Qgt-1e8ba8b5a-16b ROPQ Sgm-1e8ba8b5a-16d TSA UTTT Vfl-1e8ba8b5a-171 Wfl-1e8ba8b5a-172 Xfl-1e8ba8b5a-173 YVWX ZCRUY [fl-1e8ba8b5a-167 \fl-1e8ba8b5a-168 ]fl-1e8ba8b5a-169 ^[\] _C^ `JRNYRZRRR_  a><`} b]JRN c>1b d>Zb e>b f>b g>b h>b idefgh jgmap kj lj mglist ngset-option-spec-name! og %set-option-spec-name!-procedure p;<< qgm-70fb8ec09b0a817-548 rqA sgt-70fb8ec09b0a817-546 tgt-70fb8ec09b0a817-547 ust vrr wfl-70fb8ec09b0a817-54d xfl-70fb8ec09b0a817-54e ywx zCuvy {r |fl-70fb8ec09b0a817-54a }| ~CT{} rzR~YRRRRbpvz  >?} gt-1e8ba8b5a-18c gt-1e8ba8b5a-18d  gm-1e8ba8b5a-18e A  fl-1e8ba8b5a-192 fl-1e8ba8b5a-193  C gsetter e} fl-1e8ba8b5a-186 fl-1e8ba8b5a-187 fl-1e8ba8b5a-188  C 8~ fl-1e8ba8b5a-17d fl-1e8ba8b5a-17e  C^ g field-specs  fl-1e8ba8b5a-179 fl-1e8ba8b5a-17a  C^ zR~YRRR >} gval >}  >} >K} >M}  ]zR~ >1  g struct-set! >} zR~ >   >W} >} >n     ]R~ >o gset-option-spec-required?! g%%set-option-spec-required?!-procedure gm-70fb8ec09b0a817-558 A gt-70fb8ec09b0a817-556 gt-70fb8ec09b0a817-557   fl-70fb8ec09b0a817-55d fl-70fb8ec09b0a817-55e  C  fl-70fb8ec09b0a817-55a  CT RYRRRRbpvz  >?} RYRRR >} >}  >} >K} >M}  ]R >1  >} R >   >W} >} >     ]R > gset-option-spec-single-char! g'%set-option-spec-single-char!-procedure gm-70fb8ec09b0a817-568 A gt-70fb8ec09b0a817-566 gt-70fb8ec09b0a817-567   fl-70fb8ec09b0a817-56d fl-70fb8ec09b0a817-56e  C  fl-70fb8ec09b0a817-56a  CT RYRRRRbpvz  >?} RYRRR >} >}  >} >K} >M}  ]R >1  >} R >   >W} >} >      ]R  >   gset-option-spec-predicate!  g%%set-option-spec-predicate!-procedure  gm-70fb8ec09b0a817-578  A gt-70fb8ec09b0a817-576 gt-70fb8ec09b0a817-577   fl-70fb8ec09b0a817-57d fl-70fb8ec09b0a817-57e  C  fl-70fb8ec09b0a817-57a  CT RYRRRRbpvz  >?} RYRRR >} >}   !>} ">K} #>M} $# %]R &>1% '"$& (>} )R *> ) +(* ,>W} ->} .> % /-. 0,/ 1!'+0 2 1 3]R 4> 3 5gset-option-spec-value-policy! 6g(%set-option-spec-value-policy!-procedure 7gm-70fb8ec09b0a817-588 87A 9gt-70fb8ec09b0a817-586 :gt-70fb8ec09b0a817-587 ;9: <88 =fl-70fb8ec09b0a817-58d >fl-70fb8ec09b0a817-58e ?=> @C;<? A8 Bfl-70fb8ec09b0a817-58a CB DCTAC E8@RDYRRRRbpvz  F>?E} G@RDYRRR H>G} I>G} JHI K>G} L>KG} M>MG} NMH O]@RD P>1O QLNP R>G} S@RD T> S URHTI V>WG} W>G} X>5O YWX ZVHY [KQUZ \FJ[ ]]RD ^>6] _gmake-option-spec `gsymbol->string agfor-each bgerror cf$invalid getopt-long option property: db eb ffno matching pattern gfoption predicate failed: --~a hg single-char igchar? jf#`single-char' value must be a char! kgparse-option-spec lgreverse mgstring=? nf-- ogsplit-arg-list pg make-regexp qf^-([a-zA-Z]+)(.*) rg short-opt-rx sf ^--([^=]+)$ tglong-opt-no-value-rx uf^--([^=]+)=(.*) vglong-opt-with-value-rx wg regexp-exec xglooks-like-an-option yg make-string zgoptional {f,option must be specified with argument: --~a |gmatch:substring }g assoc-ref ~fno such option: -~a gappend g string-append f- g string->list f glength fno such option: --~a f&option does not support argument: --~a gprocess-options gstop-at-first-non-optionS    gassq-ref foption must be specified: --~a gstring->symbolC5hP[^]4    "54%>"G4&i'5(R(ha][CYgfilenamefice-9/getopt-long.scm    gnameg program-nameC)R*+,)-./h`-1344545>"G445>"G445>"G 6gfmt Zgargs Zgfilenamefice-9/getopt-long.scm     &   &  +  8  A  D M  Z  Z gnameg fatal-errorC0R1h]Cgname  g required?  goption-spec->single-char   g predicate   g value-policy   gfilenamefice-9/getopt-long.scm    gnameg%%make-option-spec-procedureC2R4567:=h]Cgt-70fb8ec09b0a817-487  gt-70fb8ec09b0a817-488  gt-70fb8ec09b0a817-489   gt-70fb8ec09b0a817-48a   gt-70fb8ec09b0a817-48b      C6hY]L6Qga  gfilenamefice-9/getopt-long.scm    C;hI]L6Agfilenamefice-9/getopt-long.scm     Ch]C   C hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/getopt-long.scm   n C56R141>"G 2i1R1h~]$CCvgobj  gfilenamefice-9/getopt-long.scm    gnameg%option-spec?-procedureCR457:Th=]C5gt-70fb8ec09b0a817-4a0    ChY]L6Qga  gfilenamefice-9/getopt-long.scm    C;hI]L6Agfilenamefice-9/getopt-long.scm     CVh]C   C hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/getopt-long.scm   n C5R1YZh]& C6ygs  gfilenamefice-9/getopt-long.scm    gnameg%option-spec->name-procedureC[R45Z7:h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch=]C5gt-70fb8ec09b0a817-4ac    CZhY]L6Qga  gfilenamefice-9/getopt-long.scm    C;hI]L6Agfilenamefice-9/getopt-long.scm     Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefice-9/getopt-long.scm   C5ZR1Yh]& C6~gs  gfilenamefice-9/getopt-long.scm    gnameg!%option-spec->required?-procedureCR457:h:]C2gerr  gs    Ch:]C2gerr  gs    C h:]C2gerr  gs    C2h=]C5gt-70fb8ec09b0a817-4c7    ChY]L6Qga  gfilenamefice-9/getopt-long.scm    C;hI]L6Agfilenamefice-9/getopt-long.scm     C4h]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefice-9/getopt-long.scm   C5R1Yh ]& C6gs  gfilenamefice-9/getopt-long.scm    gnameg#%option-spec->single-char-procedureC5R457:CJOh:]C2gerr  gs    CRX]h:]C2gerr  gs    C`fkh:]C2gerr  gs    Ch=]C5gt-70fb8ec09b0a817-4e2    ChY]L6Qga  gfilenamefice-9/getopt-long.scm    C;hI]L6Agfilenamefice-9/getopt-long.scm     Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefice-9/getopt-long.scm   C5R1Yh ]& C6~gs  gfilenamefice-9/getopt-long.scm    gnameg!%option-spec->predicate-procedureCR457:h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch=]C5gt-70fb8ec09b0a817-4fd    ChY]L6Qga  gfilenamefice-9/getopt-long.scm    C;hI]L6Agfilenamefice-9/getopt-long.scm     Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefice-9/getopt-long.scm   C5R1Yh ]& C6gs  gfilenamefice-9/getopt-long.scm    gnameg$%option-spec->value-policy-procedureCR457:h:]C2gerr  gs    C h:]C2gerr  gs    C h:]C2gerr  gs    C3h=]C5gt-70fb8ec09b0a817-518    ChY]L6Qga  gfilenamefice-9/getopt-long.scm    C;hI]L6Agfilenamefice-9/getopt-long.scm     C5h]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefice-9/getopt-long.scm   C5R457:;acilmh v]45Cngdummy  gcheck?  gs   ggetter   gexpr      Ch(] 45$@6gx  "gtmp "gfilenamefice-9/getopt-long.scm   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5R1Ynh ]& C6gs  gval  gfilenamefice-9/getopt-long.scm    gnameg %set-option-spec-name!-procedureCoR45n7:ph`]CXgt-70fb8ec09b0a817-546  gt-70fb8ec09b0a817-547    CnhY]L6Qga  gfilenamefice-9/getopt-long.scm    C;hI]L6Agfilenamefice-9/getopt-long.scm     Ch]C   C hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/getopt-long.scm   n C5nR1Yh ]& C6gs  gval  gfilenamefice-9/getopt-long.scm    gnameg%%set-option-spec-required?!-procedureCR457:ph`]CXgt-70fb8ec09b0a817-556  gt-70fb8ec09b0a817-557    ChY]L6Qga  gfilenamefice-9/getopt-long.scm    C;hI]L6Agfilenamefice-9/getopt-long.scm     Ch]C   C hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/getopt-long.scm   n C5R1Yh ]& C6gs  gval  gfilenamefice-9/getopt-long.scm    gnameg'%set-option-spec-single-char!-procedureCR457:ph`]CXgt-70fb8ec09b0a817-566  gt-70fb8ec09b0a817-567    ChY]L6Qga  gfilenamefice-9/getopt-long.scm    C;hI]L6Agfilenamefice-9/getopt-long.scm     C h]C   C hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/getopt-long.scm   n C5R1Y h ]& C6gs  gval  gfilenamefice-9/getopt-long.scm    gnameg%%set-option-spec-predicate!-procedureC R45 7:p2h`]CXgt-70fb8ec09b0a817-576  gt-70fb8ec09b0a817-577    C hY]L6Qga  gfilenamefice-9/getopt-long.scm    C;hI]L6Agfilenamefice-9/getopt-long.scm     C4h]C   C hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/getopt-long.scm   n C5 R1Y5h ]& C6gs  gval  gfilenamefice-9/getopt-long.scm    gnameg(%set-option-spec-value-policy!-procedureC6R4557:p\h`]CXgt-70fb8ec09b0a817-586  gt-70fb8ec09b0a817-587    C5hY]L6Qga  gfilenamefice-9/getopt-long.scm    C;hI]L6Agfilenamefice-9/getopt-long.scm     C^h]C   C hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/getopt-long.scm   n C55R1h]Cygname  gfilenamefice-9/getopt-long.scm    gnamegmake-option-specC_R_`abcef10gh(] $4L5$C6Cgname  $gval  $gt   "gfilenamefice-9/getopt-long.scm        ) "  #   $ CY hijd5h]""*""R$>$ ( 6456456456$O&9$.(#L& L OC L 6"`"\"X"T$k &U$J(?4 5$"4 >"GL&L C L6""""$J&4$)(L&L C L6""""$I&3$((L&L C L6"5"1"-")gexpr  gw  Wgx   Wgw q gx  q gw  gw 0gx  0gw  $gw A gx  A gw  ^ ygw  gx   gw   gfilenamefice-9/getopt-long.scm  9  =  >            (  c  }        Ch0] 44554O>"GCgdesc  .gspec  .gfilenamefice-9/getopt-long.scm    0         #   . gnamegparse-option-specCkRlmnhPJ]"<( 45C45$ 45C""Bg argument-list  Mgyes  Bgno   Bgfilenamefice-9/getopt-long.scm    *  $      ! %  & * / 8 0 $ 4  7  : * B  B  C  M   M gnamegsplit-arg-listCoR4piq5rR4pis5tR4piu5vRwrvth8] 45$C45$C6gstring  2gt 2gt  2gfilenamefice-9/getopt-long.scm        2   2 gnameglooks-like-an-optionCxRj1YZh n]& " 45Cfgspec  gfilenamefice-9/getopt-long.scm       Cy1Yh(]4 &  " 455Cxgspec  'gfilenamefice-9/getopt-long.scm    , #  &   ' C5z1Yx0{Zlwr|}~yht]4 56lgc  gfilenamefice-9/getopt-long.scm  )   :   >   +   Cmtvef!h(<]k454455"" &  " 4  5&P ("4  5$  "    " &  " 4  5&V ("4  5$    & " 4  56    "  "( 45C$  4 5  $ $;4 5 4 5  $ " 4  5      "4 5 4444 5554 5$" 5 4 54  5"(4 5  $;4 5 4 5$" 4  5   "4 5  $l4 545$" 4 5&  " 4 5$4 5   "k 6"  "C$ $4455C""4 56 "4gspecs  &g argument-ls  &gstop-at-first-non-option   &gidx   &gsc-idx   &g unclumped  # g argument-ls  # gfound  # getc  # gspec ' (gls ' (gw F gx F gt S gc k gt v gspec  gextra  gunclumped-opts  gt  gopt  Ggt   9gspec  9 Ggt P gopt  ` gt  k gspec   gfilenamefice-9/getopt-long.scm         #  '  )  ,  H  N  O  T  Y ( [  _ b  h ' y  ~  $ 9 -       (           $  9  -         # (  .   1   8  <   K  S  _   c   d   k   n  % v  !   %   2   %         "         $   )   *   )   $   (   2   (   $   <   @                     !   !   " !  "  . # ! 2 # . 6 # ! 9 !  G $  H % P  Y '  ` '  c ( ! k (  z ) ! ~ ) .  ) !  '   *   *   + '  + !  +   , #  ,   2   2 ,  2    /   .  0   0   0   0       >  H & |  & gnamegprocess-optionsCR(jkoa1YZ0 h]& " 454L5& " 45$"$"4>"G"&  " 45$6Cgspec  gname % gval  % gpred  gfilenamefice-9/getopt-long.scm ]   ^   _  % ^  , `  G `  M a  R b  V b * ] b  l d d  e  e   C1YZh0] 4& " 455Cgspec+val  .gs )gfilenamefice-9/getopt-long.scm g   i  i ? i , + i  , h   . C h-/03 #Y45454545 4 O>"G4 >"G ZCZFgprogram-arguments  goption-desc-list  gstop-at-first-non-option   gspecifications  , gpair  6 gsplit-ls  ; g non-split-ls  @ g found/etc  M gfound  R grest-ls ^  gfilenamefice-9/getopt-long.scm 4 ! T  $ U  , U  / V  4 V ! 6 V  6 U  ; W  ; U  @ X  @ U  C Y  M U  R [  R U  U \  Z \  ^ \  ^ U  a ]  z g  k  k k    gstop-at-first-non-optionS gnameg getopt-longg documentationf/Process options, handling both long and short options, similar to the glibc function 'getopt_long'. PROGRAM-ARGUMENTS should be a value similar to what (program-arguments) returns. OPTION-DESC-LIST is a list of option descriptions. Each option description must satisfy the following grammar: :: ( . ) :: ( . ) | () :: | | | | :: (required? ) :: (single-char ) :: (value #t) (value #f) (value optional) :: (predicate <1-ary-function>) The procedure returns an alist of option names and values. Each option name is a symbol. The option value will be '#t' if no value was specified. There is a special item in the returned alist with a key of the empty list, (): the list of arguments that are not options or option values. By default, options are not required, and option values are not required. By default, single character equivalents are not supported; if you want to allow the user to use single character options, you need to add a `single-char' clause to the option description.CRh C] 45$CC;goptions  gkey  gdefault   gt  gfilenamefice-9/getopt-long.scm m  p  p    gnameg option-refg documentationfqReturn value in alist OPTIONS using KEY, a symbol; or DEFAULT if not found. The value is either a string or `#t'.C!RCVgm  ,grtd | gfilenamefice-9/getopt-long.scm  -  3 " 5  8 $ E 7 = ? ?  ? , ?  ? ?  ? , ?  ? ?  ? , ?  ? @ M Y 4 [N m   [P C62.0/ccache/ice-9/iconv.go000064400000007555151463412640010646 0ustar00GOOF----LE-8-2.0U]34h] gguile  gdefine-module*   gice-9 giconv  gfilenameS fice-9/iconv.scm gimportsS grnrs g bytevectors     g binary-ports   grdelim  gselectS g read-string    gexportsS gstring->bytevector gbytevector->string gcall-with-encoded-output-string  gset-current-module  ! "gopen-output-string #gget-output-string $g close-port %gcall-with-output-string* &gopen-bytevector-output-port 'gcall-with-output-bytevector* (gerror )gset-port-encoding! *gset-port-conversion-strategy! +g string-ci=? ,futf-8 -g string->utf8 .gdisplay /gopen-bytevector-input-port 0g eof-object? 1f 2g utf8->stringC5h {]4   54!>"G"#$h@]454>"G454>"GCgproc  9gport  9gstr  " 9gfilenamefice-9/iconv.scm            "  % !   9 gnamegcall-with-output-string*C%R&$h@]4> G4>"G454>"GCgproc  @gport @gget-bytevector  @gbv  ) @gfilenamefice-9/iconv.scm $  %   %   '  % (  ) (  , )   @ gnamegcall-with-output-bytevector*C'R(')*h@u]4L>"GL$4L>"G"L6mgport  :gfilenamefice-9/iconv.scm 8   9  :  ; : <   : C+,-%hX-.,3#"O645$& 456""gencoding Qgproc Qgconversion-strategy  Qgfilenamefice-9/iconv.scm ,  . ? ) 7  ) 1  * 1 0 1 ! 2 1 6 1  : 2 $ > 1  A 6  I 6  Q  gnamegcall-with-encoded-output-stringg documentationfyCall PROC on a fresh port. Encode the resulting string as a bytevector according to ENCODING, and return the bytevector.CR(.h]]L6Ugport  gfilenamefice-9/iconv.scm J  K   C+,-hPx-.,3#"O645$&6""pgstr Lgencoding Lgconversion-strategy  Lgfilenamefice-9/iconv.scm A  B = ) H  ) E  * E 0 E ! 2 E 6 E  : F $ > E  D G  L  gnamegstring->bytevectorg documentationfhEncode STRING according to ENCODING, which should be a string naming a character encoding, like "utf-8".CR(/)*$01+,2 h=-.,3#"g454>"G$4>"G"454>"G45$CC4  5$& 6"z"v5gbv gencoding gconversion-strategy  gp  ! gres  \ gfilenamefice-9/iconv.scm N  O =  V  ! V  $ W  = X  > Y V Z  \ Z  _ [ q \  { \ } ]  S  S S ! S S  T $ S  U   gnamegbytevector->stringg documentationfDecode the string represented by BV. The bytes in the bytevector will be interpreted according to ENCODING, which should be a string naming a character encoding, like "utf-8".CRCsgm  ,gfilenamefice-9/iconv.scm   N   $ r ,  A N   C62.0/ccache/ice-9/buffered-input.go000064400000010645151463412640012441 0ustar00GOOF----LE-8-2.0]!4ha] gguile  gdefine-module*   gice-9 gbuffered-input  gfilenameS fice-9/buffered-input.scm gexportsS gmake-buffered-input-port gmake-line-buffered-input-port g!set-buffered-input-continuation?!    gset-current-module   gmake-object-property gbuffered-input-continuation? gsetter   f g string-length g string-ref gchar-whitespace? g eof-object? gmake-soft-port fr g string-append f C5h`]4   54>"G4i5Rh@]4568gport  gval  gfilenamefice-9/buffered-input.scm   !    gnameg!set-buffered-input-continuation?!g documentationfSet the read continuation flag for @var{port} to @var{val}. See @code{make-buffered-input-port} for the meaning and use of this flag.CRhx]M4M5$:4MM5MN45$"445M>"GC4L4M5545$CN N"gres  Jgx V qgfilenamefice-9/buffered-input.scm ?   @ $ @   @   B   B   C ) C  ! D  + D  0 E  K H  N H % V H  V H  Y J  c I  j N  m O  q P   q gnameg get-characterChu]4M5MCmgfilenamefice-9/buffered-input.scm R   S  S   gnameg input-waitingChh5]) HHHOQK4O5K445J>"GJC-greader  eg read-string  eg string-index   egport  eg get-character   egport  & /gfilenamefice-9/buffered-input.scm #  <   <  >  0 U  D U ! F U R H U  J U  K V   e gnamegmake-buffered-input-portg documentationfConstruct a line-buffered input port from the specified @var{reader}. @var{reader} should be a procedure of one argument that somehow reads a chunk of input and returns it as a string. The port created by @code{make-buffered-input-port} does @emph{not} interpolate any additional characters between the strings returned by @var{reader}. @var{reader} should take a boolean @var{continuation?} argument. @var{continuation?} indicates whether @var{reader} is being called to start a logically new read operation (in which case @var{continuation?} is @code{#f}) or to continue a read operation for which some input has already been read (in which case @var{continuation?} is @code{#t}). Some @var{reader} implementations use the @var{continuation?} argument to determine what prompt to display to the user. The new/continuation distinction is largely an application-level concept: @code{set-buffered-input-continuation?!} allows an application to specify when a read operation is considered to be new. But note that if there is non-whitespace data already buffered in the port when a new read operation starts, this data will be read before the first call to @var{reader}, and so @var{reader} will be called with @var{continuation?} set to @code{#t}.C R  h(] 4L545$C6g continuation?  !gstr !gfilenamefice-9/buffered-input.scm f   g ) g  h $  h  j 7 ! j $  ! Ch]O6greader  gfilenamefice-9/buffered-input.scm Y f   gnamegmake-line-buffered-input-portg documentationfConstruct a line-buffered input port from the specified @var{reader}. @var{reader} should be a procedure of one argument that somehow reads a line of input and returns it as a string @emph{without} the terminating newline character. The port created by @code{make-line-buffered-input-port} automatically interpolates a newline character after each string returned by @var{reader}. @var{reader} should take a boolean @var{continuation?} argument. For the meaning and use of this argument, see @code{make-buffered-input-port}.C RC{gm  (gfilenamefice-9/buffered-input.scm   )  % 2    # Y Y   [ C62.0/ccache/ice-9/ftw.go000064400000051370151463412640010322 0ustar00GOOF----LE-8-2.0R]4h ] gguile  gdefine-module*   gice-9 gftw  gfilenameS f ice-9/ftw.scm gimportsS gmatch     gvlist   gsrfi gsrfi-1    gexportsS gnftw gfile-system-fold gfile-system-tree gscandir  g autoloadsS gi18n  gstring-localeggetgid ?g stat:perms @gstat:uid Agstat:gid Bgstat-dir-readable?-proc Cgmemq Dgdepth Egdirectory-processed Fg directory Gg nftw-style Hg stale-symlink Igsymlink Jgphysical Kgcatch LK MK Nglstat Og stat:type Pgstat Qgdirectory-not-readable Rgregular Sg invalid-stat Tgstat&flag-proc Ugclean Vg hash-size Wgthrow Xgftw-early-exit Ygfor-each Zggetcwd [gmount \gchdir ]gnftw-early-exit ^gmake-syntax-transformer _^ `^ agerrno-if-exception bgmacro cg $sc-dispatch dc ec fgany gff hg syntax-object igtop ji kgribcage lgdummy mgexpr nlm og m-c0b95d8-107 poi qpj rf l-c0b95d8-10c sf l-c0b95d8-10d trs uknqt vk wgx xw yp zf l-c0b95d8-109 {z |kxy{ }juv| ~ghygiene ~ hK} gquote h} g system-error h}  glambda h} gargs h} gsystem-error-errno h}    gsyntax-violation   f-source expression failed to match any pattern ginteger? g vhash-assoc g vhash-cons gdirectory-stream? gfold gcons g alist-cons g vlist-null gbasename gerror     fno matching pattern  gconst gand=> gsortC5hPG]4   "5 4%>"G&'()*+,hs]!45"`45$4>"GC4545$" 45$""45"kgdir  g dir-stream gnew   ogacc   ogt  ? Xgfilenamef ice-9/ftw.scm          0  7  ; " ?  ?  M  Q " U  \  g  o o  p  w      gnamegdirectory-filesC-R*./012hhJ-13"J(-45$"$C 45645""Bgnodes cgnodes Wgresult  Wgt  ' @gfilenamef ice-9/ftw.scm          " & '  8 @ C  D  J 0 M 4 O  W  W  [  c  c gnamegpathifyC3R45hz]/4 56rgfilename  gfilenamef ice-9/ftw.scm       gnamegabs?C6R789:7;h!]$y4L45545HJ$"$4L5K4L45J>"G4J5$C4J>"GCCgs  gino-hash  gino   gt  # Vgt  _ gfilenamef ice-9/ftw.scm      /      # 0 " 8  9  > ( K  W  _ k   Ch] 4 5OCgsize  gdev-hash gfilenamef ice-9/ftw.scm      gnameg visited?-procC?@AhpM]45L $CL45$ "$CL45$ "$C CEgs  pgperms pgt   pgt  6 pgt  \ pgfilenamef ice-9/ftw.scm                $   (  /  ) 0  $ 1   6   D   K   O  U  ) V  $ W   \   m  ) n  $ o    p Ch ]4545OCguid  ggid  guid  ggid  gfilenamef ice-9/ftw.scm       gnamegstat-dir-readable?-procCBRCDEFGHIJMNhJ]L6Bgfilenamef ice-9/ftw.scm     #   ChV-13CNgargs gfilenamef ice-9/ftw.scm   CIOPhJ]L6Bgfilenamef ice-9/ftw.scm     3   ChV-13CNgargs gfilenamef ice-9/ftw.scm   CFQRS h]4O5$45&Z4O5$=L$D45&4L5$L" " DLD45&4L5$L" " D Dgname  gs  gs-follow  5 gtype  R xgtype  gfilenamef ice-9/ftw.scm                  &   '   5   = !  C #  G $ " I $  L  " R   V  ! \   ]  g   o  u   z &  "   "    !         '     #  C hP-1345$"45$"45 OCg dir-readable? Pg control-flags Pgdirectory-flag   Pgstale-symlink-flag  5 Pg physical?  @ Pgfilenamef ice-9/ftw.scm      #                !  ! %  ' )  ! -   /  ! 5  ! 5   8   <   @   @   P gnamegstat&flag-procCTR045/h0] 454/455$  6Cgname  ,glast-char-index ,gfilenamef ice-9/ftw.scm )  *  *  *  +   +   +  +  ) ,   , gnamegcleanCUR<CVTB=>WXFY3hg]L4L56_gchild  gfilenamef ice-9/ftw.scm = #  > )  > %   C-h4]4L> G4L5$C4L5&"4>"G&$4LO45>"G"C,gfullname  gs gflag  gt   gret  1 gfilenamef ice-9/ftw.scm 4   5 0  5   7   7  ' 8 & 1 8  : 9  ? : ! C : ( J : ! T ; ' Z ;  [ < " g ? # r < "  gnameggoCKXUhS]L4L56Kgfilenamef ice-9/ftw.scm B  B  B   Chd]C\gkey  gval  gfilenamef ice-9/ftw.scm C    C hpv-13445$" 544454555OQ   O 6ngfilename lgproc lgoptions  lgt   +gvisited?  - lg stat&flag  C lggo  P lgfilenamef ice-9/ftw.scm / 0  0 )  0 /  0 )  0 " - 0  - 0  0 2  3 3  6 3 . ; 3 7 A 3  C 2  C 0  P 4  _ A l A  l  gnamegftwCRZMNhJ]L6Bgfilenamef ice-9/ftw.scm G   G ,   ChV-13CNgargs gfilenamef ice-9/ftw.scm G  C9C[9hc]45LC[gs  gfilenamef ice-9/ftw.scm J   J ' J $  ChQ]CIgs  gfilenamef ice-9/ftw.scm K    C\6\/h ] $C4 56gfullname  gbase  gt   gfilenamef ice-9/ftw.scm O   P !  P   L '  Q !   C\3/h]4L4 556gfullname  gbase  gfilenamef ice-9/ftw.scm R   T  L '  T   S    Chj]Cbgfullname  gbase  gfilenamef ice-9/ftw.scm U    C\hJ]L6Bgfilenamef ice-9/ftw.scm W   W '   ChA]C9gfilenamef ice-9/ftw.scm X    CD<VEhf]C^gflag  gfilenamef ice-9/ftw.scm ^   ^ 1  ^ '   CFhf]C^gflag  gfilenamef ice-9/ftw.scm _   _ 1  _ '   CTB=>GY30h ]L4L54L5L6zgchild  gfilenamef ice-9/ftw.scm q .  r 4  s 8  s 4  u 4  r 0   C-W]30h ]L4L54L5L6zgchild  gfilenamef ice-9/ftw.scm q .  r 4  s 8  s 4  u 4  r 0   Chh?]+4L> G4L5$"14L5$"L$4L5$&4LO45>"G"4L>"G4L54L>"G&"4>"G"4L>"G4L54L>"G&"4>"G4L5$&4LO45>"G"C7gfullname  cgbase  cglevel   cgs  agflag  agt   [gt  / Xgret  gret  $ gfilenamef ice-9/ftw.scm c   d 0  d   w   w  ( x " / x  / w  A y  B o - L o ( M p - [ v . f p - s g ( i 3 i ( k * l * m . m 5 m . g ( i 3 i ( k *  l *  m .  m 5  m . % o - / o ( 0 p - > v . I p -$  c gnameggoCK]UhS]L4L5 6Kgfilenamef ice-9/ftw.scm ~   ~ '  ~ #   Chd]C\gkey  gval  gfilenamef ice-9/ftw.scm     C\!hH-13454O5$ 45" 45$ O" 4 5$4 5$ " O"4 5$ O"45445  $ "  5 $" 4445455? O      Q 4 O5 4 >"G Cgfilename Ggproc Gg control-flags  Ggod   Ggs   7godev  7 Gg same-dev?  S Ggmaybe-cd  Gg maybe-cd-back  Gg depth-first?  Ggt gvisited? Gg has-kids? Gg stat&flag Gggo  Ggret 0 Ggfilenamef ice-9/ftw.scm E F  F   G   G  ' H  ( H  7 F  : I  > I  B I  F I  S F  V M  Z M  ^ M  b M  c N  m N  F  V  V " V  V  F  Y  Y  Y  F  Z  [  [ ! [  [  Z  F  ]  F  `  a  a 4 a = a  b ! `  F   c   }  # }  0 }  0 }  3  5 G  gnamegnftwCR4`abegh?]C7gdummy  gexpr     Ch(] 45$@6gx  "gtmp "gfilenamef ice-9/ftw.scm    " g macro-typeg syntax-rulesgpatternsgexprC5aRN*.129:FOK&hJ]M6Bgfilenamef ice-9/ftw.scm     -   ChV-136Ngargs gfilenamef ice-9/ftw.scm    C'(hn]LLMLLL6fgfilenamef ice-9/ftw.scm  ,   4  4   4   4   .   Ch {]4LLO>6<sgsubdir  gresult+visited  gfilenamef ice-9/ftw.scm  &   (   C+,)hJ]LL6Bgfilenamef ice-9/ftw.scm  %   9   ChV-136Ngargs gfilenamef ice-9/ftw.scm  %  Ch(]EH45$" 45K45$ LJ6445455$D 4 5&4LJ5$|4   O544545545$5"45$:4>"G4LO  5 4LJ 5 D45  $" 45 $45    "4J5 4   LO5 4 5$454L   5   "54  5 &45 4  5  " 454L   5   "454LJ5  "4LJ5D4LJ5445455DLJ6gname  !gpath  !gdir-stat   !gresult   !gvisited   !g full-name   !gdir  gvisited  gentry  gresult gsubdirs gr+v gt gchild < gst P gfilenamef ice-9/ftw.scm                 #  &   0   ;   <   ?   F  $ M   Q   U   [   ]  ^   h   i  w   x        #                   &     #  :  #  #      +          +          1   2  % 8  > <  % <   ?  % P   S   ]   ^  # e  # |   }  &   5      '   '   !   '   '   !      "   "   "                     #         !  [  ! gnamegloopC.KhJ]LL6Bgfilenamef ice-9/ftw.scm     +   ChV-136Ngargs gfilenamef ice-9/ftw.scm    C hXJ-. , 3 #O  Q  4O56Bgenter? Vgleaf Vgdown  Vgup  Vgskip  Vgerror  Vginit  Vg file-name  Vgstat  Vgloop % V gfilenamef ice-9/ftw.scm  %   >   ?   V   V  gnamegfile-system-foldg documentationfTraverse the directory at FILE-NAME, recursively. Enter sub-directories only when (ENTER? PATH STAT RESULT) returns true. When a sub-directory is entered, call (DOWN PATH STAT RESULT), where PATH is the path of the sub-directory and STAT the result of (stat PATH); when it is left, call (UP PATH STAT RESULT). For each file in a directory, call (LEAF PATH STAT RESULT). When ENTER? returns false, call (SKIP PATH STAT RESULT). When an `opendir' or STAT call raises an exception, call (ERROR PATH STAT ERRNO RESULT), with ERRNO being the operating system error number that was raised. Return the result of these successive applications. When FILE-NAME names a flat file, (LEAF PATH STAT INIT) is returned. The optional STAT parameter defaults to `lstat'.CRh`]CXgn  gs  gfilenamef ice-9/ftw.scm  .   CN h`]$I$+$4455C456456456gname  _gstat  _gresult   _gw   Rgx   Rgfilenamef ice-9/ftw.scm      "  %   0  4 4  7   9    _ gnamegleafC h ]#${$]$I$+$4455C456456456456456gname  gstat  gresult   gw   gx   gw  ' jgx  ' jgfilenamef ice-9/ftw.scm      :  =   H  ) L  O   Q    gnamegupCh]L6gname  gstat  gresult   gfilenamef ice-9/ftw.scm      gnamegenter?*Ch]Cgname  gstat  gresult   gfilenamef ice-9/ftw.scm          gnamegdownC*h ]4L5$CL6gname  gstat  gerrno   gresult   gfilenamef ice-9/ftw.scm              gnamegerrorC  hw-.,3##4OO 5 $e(Q".((C4   564   56$(C""4   564   56og file-name genter? gstat  gleaf  ( gup  ( gv  K gw  ^ gw  n gfilenamef ice-9/ftw.scm  )   E  ; K   gnamegfile-system-treeg documentationfRReturn a tree of the form (FILE-NAME STAT CHILDREN ...) where STAT is the result of (STAT FILE-NAME) and CHILDREN are similar structures for each file contained in FILE-NAME when it designates a directory. The optional ENTER? predicate is invoked as (ENTER? NAME STAT) and should return true to allow recursion into directory NAME; the default value is a procedure that always returns #t. When a directory does not match ENTER?, it nonetheless appears in the resulting tree, only with zero children. The optional STAT parameter defaults to `lstat'. Return #f when FILE-NAME is not readable.CR K&hJ]L6Bgfilenamef ice-9/ftw.scm "   #    C'()h`]"J45$4>"GL6454L5$ ""45"gstream  `gentry  Pgfiles   Pgfilenamef ice-9/ftw.scm '  (  *   *  ,  + -  , .  3 /  = /  B 0  P .  P ( Q (  X )  ` (   ` ChH-.,3#45#4O455O6gname Egselect? Egentry"G%i4&i'4(i55)6gm  ,gfilenamefice-9/binary-ports.scm   1 1  7 1  8 1 + @ 1  B 2  D 1   D C62.0/ccache/ice-9/futures.go000064400000127425151463412640011224 0ustar00GOOF----LE-8-2.0]w4hS] gguile  gdefine-module*   gice-9 gfutures  gfilenameS fice-9/futures.scm gimportsS gsrfi gsrfi-1     gsrfi-9    ggnu    gsrfi-11    gq   gmatch   gcontrol  !  "! #gexportsS $gfuture %g make-future &gfuture? 'gtouch ($%&' )gset-current-module *) +) ,g -g%%make-future-procedure .gmake-syntax-transformer /. 0. 1g %make-future 2gmacro 3g $sc-dispatch 43 53 6g_ 7gany 867777 9g syntax-object :glambda ;gm-3eebb96279-7 gribcage ?gt-3eebb96279-3 @gt-3eebb96279-4 Agt-3eebb96279-5 Bgt-3eebb96279-6 C?@AB D==== Efl-3eebb96279-c Ffl-3eebb96279-d Gfl-3eebb96279-e Hfl-3eebb96279-f IEFGH J>CDI K> Lgx ML N= Ofl-3eebb96279-9 PO Q>MNP Rgshift Sg proc-name Tgargs UST V< WVV Xfl-1e8ba8b5a-60 Yfl-1e8ba8b5a-61 ZXY [>UWZ \gkey ]gvalue ^gname _gformals `gbody a\]^_` bVVVVV cfl-1e8ba8b5a-53 dfl-1e8ba8b5a-54 efl-1e8ba8b5a-55 ffl-1e8ba8b5a-56 gfl-1e8ba8b5a-57 hcdefg i>abh jgmake-procedure-name kj lV mfl-1e8ba8b5a-43 nm o>kln pV qfl-1e8ba8b5a-42 rq s>Mpr t=JKQRKKKK[ios  ughygiene vu  w9:tv xgthunk yVJKQ zu {9xyz |gstate }9|yz ~gmutex 9~yz g completion 9yz {} g make-struct gm-3eebb96279-1 < gt-1e8ba8b5a-133 gt-1e8ba8b5a-132 gt-1e8ba8b5a-131  gm-1e8ba8b5a-134 <  fl-1e8ba8b5a-138 fl-1e8ba8b5a-139 fl-1e8ba8b5a-13a  > g ctor-args  fl-1e8ba8b5a-120  >p gctor gfield  fl-1e8ba8b5a-11c fl-1e8ba8b5a-11d  >W gform g type-name gconstructor-spec g field-names  VVVV fl-1e8ba8b5a-111 fl-1e8ba8b5a-112 fl-1e8ba8b5a-113 fl-1e8ba8b5a-114  > g record-layout gfunctional-setters gsetters gcopier ggetters g constructor ggetter-identifiers gfield-identifiers  VVVVVVVV fl-1e8ba8b5a-e9 fl-1e8ba8b5a-e7 fl-1e8ba8b5a-e5 fl-1e8ba8b5a-e3 fl-1e8ba8b5a-e1 fl-1e8ba8b5a-df fl-1e8ba8b5a-dd fl-1e8ba8b5a-db  > fl-1e8ba8b5a-da  >Mp JKQRKKKKK 9v 9,yz 9 v JKQ 9z {} w geach-any 6Ɍ gsyntax-violation   fWrong number of arguments g identifier?   VKQ 9-z   f-source expression failed to match any pattern grecord-type-vtable   g pwpwpwpwpw gdefault-record-printer   gresult x|~ gset-struct-vtable-name!   gvtable-offset-user   g%future?-procedure 67 gm-3eebb96279-1a < gt-3eebb96279-19   fl-3eebb96279-1f  > fl-3eebb96279-1c  >M KRKKKK[ios  9:v gobj gt-1e8ba8b5a-224 gt-1e8ba8b5a-21e gt-1e8ba8b5a-21f gt-1e8ba8b5a-220 gt-1e8ba8b5a-223 gt-1e8ba8b5a-222 gt-1e8ba8b5a-221  gm-1e8ba8b5a-225 <  fl-1e8ba8b5a-229 fl-1e8ba8b5a-22a fl-1e8ba8b5a-22b fl-1e8ba8b5a-22c fl-1e8ba8b5a-22d fl-1e8ba8b5a-22e fl-1e8ba8b5a-22f   >  g copier-id     fl-1e8ba8b5a-21c    > p  g ctor-name  fl-1e8ba8b5a-214  >p  fl-1e8ba8b5a-212  >p glayout  fl-1e8ba8b5a-210  >p g immutable?  fl-1e8ba8b5a-20e   !>p  "g field-count #" $fl-1e8ba8b5a-20c %$ &>#p% 'g getter-ids (' )fl-1e8ba8b5a-209 *) +>(p* ,g field-ids -, .fl-1e8ba8b5a-206 /. 0>-p/ 1gpredicate-name 2g field-spec 312 4VVVVVV 5fl-1e8ba8b5a-1f9 6fl-1e8ba8b5a-1fa 7fl-1e8ba8b5a-1fb 8fl-1e8ba8b5a-1fc 9fl-1e8ba8b5a-1fd :fl-1e8ba8b5a-1fe ;56789: <>34; =KRK KKKKKKKK!K&K+K0< >9=v ?> @gand A9@=v Bgstruct? C9B=v DC> Egeq? F9E=v Gg struct-vtable H9G=v IH> JVK K9,Jz LFIK MADL N?M OVK P9Oz Qgthrow-bad-struct RQ SQ Tg future-thunk Ug%future-thunk-procedure Vgfree-id Wg %%on-error Xgm-3eebb96279-26 YX< ZY [fl-3eebb96279-28 \[ ]>MZ\ ^YK]RKKKK[ios  _9W^v `V_ a`7 bg%%type cgt-1e8ba8b5a-14b dgt-1e8ba8b5a-14c egt-1e8ba8b5a-14d fgt-1e8ba8b5a-14e ggt-1e8ba8b5a-14f hgt-1e8ba8b5a-150 igt-1e8ba8b5a-151 jcdefghi kgm-1e8ba8b5a-152 lk< mlllllll nfl-1e8ba8b5a-156 ofl-1e8ba8b5a-157 pfl-1e8ba8b5a-158 qfl-1e8ba8b5a-159 rfl-1e8ba8b5a-15a sfl-1e8ba8b5a-15b tfl-1e8ba8b5a-15c unopqrst v>jmu wggetter xgindex ywx zfl-1e8ba8b5a-149 {fl-1e8ba8b5a-14a |z{ }>yW| ~'  VVV fl-1e8ba8b5a-144 fl-1e8ba8b5a-145 fl-1e8ba8b5a-146  >~ K]RKvKKK}K 9bv V 6a7 gck gerr gs  YY fl-3eebb96279-2b fl-3eebb96279-2c  > YK]RKKKK[ios  9v gquote 9v VK] 9,z   g%%index 9v V 6a7 fl-3eebb96279-30 fl-3eebb96279-31  > YK]RKKKK[ios  9v 9v K] 9 z   g%%copier 9v V 6a7 fl-3eebb96279-35 fl-3eebb96279-36  > YK]RKKKK[ios  9v 9v g%%-set-fields VK] 9z   gt-3eebb96279-25  fl-3eebb96279-3a  >Z YK]RKKKK[ios  9:v K]RKvKKK}K 9v  gif 9v 9Ev 9Gv  VK] 9,z  g struct-ref 9v K] 9 z  9Qv 9v 9Tz     VK] 9Uz g future-state g%future-state-procedure gm-3eebb96279-41 <  fl-3eebb96279-43  >M KRKKKK[ios  9Wv V 7 KRKvKKK}K 9bv V 67  fl-3eebb96279-46 fl-3eebb96279-47  > KRKKKK[ios  9v 9v VK 9,z   9v V 67 fl-3eebb96279-4b fl-3eebb96279-4c  > KRKKKK[ios  9v 9v K 9 z   9v V 67 fl-3eebb96279-50 fl-3eebb96279-51   >   KRKKKK[ios   9 v  9 v  V K 9 z    gt-3eebb96279-40  fl-3eebb96279-55  > KRKKKK[ios  9:v KRKvKKK}K 9v  9v 9Ev 9Gv  VK  9,z !  "9v #K $9 #z %"$ &9Qv '9v (9z )'( *&) +!%* ,+ -VK .9-z /g future-result 0g%future-result-procedure 1gm-3eebb96279-5c 21< 32 4fl-3eebb96279-5e 54 6>M35 72K6RKKKK[ios  89W7v 9V8 :97 ;K6RKvKKK}K <9b;v =V< >6:=7 ?22 @fl-3eebb96279-61 Afl-3eebb96279-62 B@A C>?B D2CK6RKKKK[ios  E9Dv F9Dv GVCK6 H9,Gz IFH JI K9;v LVK M6:L7 Nfl-3eebb96279-66 Ofl-3eebb96279-67 PNO Q>?P R2QK6RKKKK[ios  S9Rv T9Rv UQK6 V9 Uz WTV XW Y9;v ZVY [6:Z7 \fl-3eebb96279-6b ]fl-3eebb96279-6c ^\] _>?^ `2_K6RKKKK[ios  a9`v b9`v cV_K6 d9cz ebd fe ggt-3eebb96279-5b hg ifl-3eebb96279-70 ji k>h3j l2kK6RKKKK[ios  m9:lv nkK6RKvKKK}K o9nv po q9nv r9Env s9Gnv tso uVkK6 v9,uz wrtv x9nv ykK6 z9 yz {xoz |9Qnv }9nv ~9/uz }~ |o qw{ mp VK6 90z g future-mutex g%future-mutex-procedure gm-3eebb96279-77 <  fl-3eebb96279-79  >M KRKKKK[ios  9Wv V 7 KRKvKKK}K 9bv V 67  fl-3eebb96279-7c fl-3eebb96279-7d  > KRKKKK[ios  9v 9v VK 9,z   9v V 67 fl-3eebb96279-81 fl-3eebb96279-82  > KRKKKK[ios  9v 9v K 9 z   9v V 67 fl-3eebb96279-86 fl-3eebb96279-87  > KRKKKK[ios  9v 9v VK 9z   gt-3eebb96279-76  fl-3eebb96279-8b  > KRKKKK[ios  9:v KRKvKKK}K 9v  9v 9Ev 9Gv  VK 9,z  9v K 9 z  9Qv 9v 9z     VK 9z gfuture-completion g%future-completion-procedure gm-3eebb96279-92 <  fl-3eebb96279-94  >M KRKKKK[ios  9Wv V 7 KRKvKKK}K 9bv V 67  fl-3eebb96279-97 fl-3eebb96279-98  > KRKKKK[ios  9v 9v VK 9,z   9v V 67 fl-3eebb96279-9c fl-3eebb96279-9d  > KRKKKK[ios  9v 9v K 9 z   9v V 67 fl-3eebb96279-a1  fl-3eebb96279-a2     >    KRKKKK[ios   9 v 9 v V K 9z   gt-3eebb96279-91  fl-3eebb96279-a6  > KRKKKK[ios  9:v KRKvKKK}K 9v  9v 9Ev 9Gv   !VK "9,!z # " $9v %K &9 %z '$& (9Qv )9v *9!z +)* ,(+ -#', .- /VK 09/z 1geach 277 312 473 574 675 7g %%set-fields 8gdummy 9gcheck? :gexpr ;89w: = ?fl-3eebb96279-b2 @fl-3eebb96279-b3 Afl-3eebb96279-b4 Bfl-3eebb96279-b5 Cfl-3eebb96279-b6 D?@ABC E>;>D F= Gfl-3eebb96279-af HG I>MFH Jgt-1e8ba8b5a-16a Kgt-1e8ba8b5a-16c Lgt-1e8ba8b5a-16b MJKL Ngm-1e8ba8b5a-16d ON< POOO Qfl-1e8ba8b5a-171 Rfl-1e8ba8b5a-172 Sfl-1e8ba8b5a-173 TQRS U>MPT Vfl-1e8ba8b5a-167 Wfl-1e8ba8b5a-168 Xfl-1e8ba8b5a-169 YVWX Z>~Y [EKIRKUKKKZ  \97[v ]VEKI ^9,]z _9T]z `9]z a9/]z b9]z c9]z d_`abc egmap fe ge hglist igset-future-thunk! jg%set-future-thunk!-procedure k677 lgm-3eebb96279-c1 ml< ngt-3eebb96279-bf ogt-3eebb96279-c0 pno qmm rfl-3eebb96279-c6 sfl-3eebb96279-c7 trs u>pqt vm wfl-3eebb96279-c3 xw y>Mvx zmuKyRKKKK[ios  {9:zv |gt-1e8ba8b5a-18c }gt-1e8ba8b5a-18d ~|} gm-1e8ba8b5a-18e <  fl-1e8ba8b5a-192 fl-1e8ba8b5a-193  >~ gsetter ^w fl-1e8ba8b5a-186 fl-1e8ba8b5a-187 fl-1e8ba8b5a-188  > 2x fl-1e8ba8b5a-17d fl-1e8ba8b5a-17e  >W g field-specs  fl-1e8ba8b5a-179 fl-1e8ba8b5a-17a  >W uKyRKKK 9v gval 9v  9v 9Ev 9Gv  VuKy 9,z  g struct-set! 9v uKy 9 z  9Qv 9v 9iz    { VKy 9jz gset-future-state! g%set-future-state!-procedure gm-3eebb96279-d1 < gt-3eebb96279-cf gt-3eebb96279-d0   fl-3eebb96279-d6 fl-3eebb96279-d7  >  fl-3eebb96279-d3  >M KRKKKK[ios  9:v KRKKK 9v 9v  9v 9Ev 9Gv  VK 9,z  9v K 9 z  9Qv 9v 9z     VK 9z gset-future-result! g%set-future-result!-procedure gm-3eebb96279-e1 < gt-3eebb96279-df gt-3eebb96279-e0   fl-3eebb96279-e6 fl-3eebb96279-e7  >  fl-3eebb96279-e3  >M KRKKKK[ios  9:v KRKKK 9v 9v  9v 9Ev 9Gv  VK 9,z  9v K 9 z  9Qv 9v 9z     VK 9z gset-record-type-printer! g simple-format f#  gnumber->string  gobject-address  gcreate-workers!  g make-mutex  gmake-condition-variable gqueued gregister-future! gmake-q g%futures g%futures-mutex g%futures-available g%futures-waiting gmake-parameter g%nesting-level g%max-nesting-level g with-mutex 7Ɍ 7 7 glet gm ge0 ge1  8 !gm-3eebb96279-12b "!< #"VVV $fl-3eebb96279-130 %fl-3eebb96279-131 &fl-3eebb96279-132 'fl-3eebb96279-133 ($%&' )> #( *" +fl-3eebb96279-12d ,+ ->M*, .V)K- /9.z 09L.z 1g dynamic-wind 291.z 39:.z 4g lock-mutex 594.z 650 736 8gbegin 998.z :g unlock-mutex ;9:.z <;0 =3< >= ?gmake-prompt-tag @g%future-prompt Agenq! Bgsignal-condition-variable Cglet/ec Dgcatch Eg parameter? FE GE Hg scm-error Igwrong-type-arg Jf parameterize KfNot a parameter: ~S Lgdone Mg alist-cons Ngabort-to-prompt Ogthrow Pgprocess-future! Qgq-empty? Rgdeq! Sgstarted Tgnotify-completion Ugprocess-one-future Vgwait-condition-variable Wgprocess-futures Xgbroadcast-condition-variable Yg partition Zgerror [Z \Z ]fno matching pattern ^gfor-each _g provided? `gthreads agcurrent-processor-count bg %worker-count cg%workers dgunfold egcall-with-new-thread fg1+ gg%create-workers! h8` igm-3eebb96279-259 ji< kjV lfl-3eebb96279-25e mfl-3eebb96279-25f nlm o>hkn pj qfl-3eebb96279-25b rq s>Mpr tVoKs u9%tz v9:tzC5hHU]4   "#(54+>"G,h]Cgthunk  gstate  gmutex   g completion   gfilenamefice-9/futures.scm 0    gnameg%%make-future-procedureC-R401258h]Cgt-3eebb96279-3  gt-3eebb96279-4  gt-3eebb96279-5   gt-3eebb96279-6      C1hT]L6Lga  gfilenamefice-9/futures.scm  0   C6hD]L6<gfilenamefice-9/futures.scm  0    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/futures.scm 0   n C51R,ߨ4,>"G -i,R,ht]$CClgobj  gfilenamefice-9/futures.scm 0    gnameg%future?-procedureCR40&25Nh7]C/gt-3eebb96279-19    C&hT]L6Lga  gfilenamefice-9/futures.scm  0   C6hD]L6<gfilenamefice-9/futures.scm  0    CPh]C   C hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/futures.scm 0   n C5&R,SThw]& C6ogs  gfilenamefice-9/futures.scm 0    gnameg%future-thunk-procedureCUR40T25h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch7]C/gt-3eebb96279-25    CThT]L6Lga  gfilenamefice-9/futures.scm  0   C6hD]L6<gfilenamefice-9/futures.scm  0    Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefice-9/futures.scm 0   C5TR,Shw]& C6ogs  gfilenamefice-9/futures.scm 0    gnameg%future-state-procedureCR4025h:]C2gerr  gs    Ch:]C2gerr  gs    C h:]C2gerr  gs    C,h7]C/gt-3eebb96279-40    ChT]L6Lga  gfilenamefice-9/futures.scm  0   C6hD]L6<gfilenamefice-9/futures.scm  0    C.h]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefice-9/futures.scm 0   C5R,S/h x]& C6pgs  gfilenamefice-9/futures.scm 0    gnameg%future-result-procedureC0R40/25>EJh:]C2gerr  gs    CMSXh:]C2gerr  gs    C[afh:]C2gerr  gs    Ch7]C/gt-3eebb96279-5b    C/hT]L6Lga  gfilenamefice-9/futures.scm  0   C6hD]L6<gfilenamefice-9/futures.scm  0    Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefice-9/futures.scm 0   C5/R,Sh w]& C6ogs  gfilenamefice-9/futures.scm 0    gnameg%future-mutex-procedureCR4025h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch7]C/gt-3eebb96279-76    ChT]L6Lga  gfilenamefice-9/futures.scm  0   C6hD]L6<gfilenamefice-9/futures.scm  0    Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefice-9/futures.scm 0   C5R,Sh |]& C6tgs  gfilenamefice-9/futures.scm 0    gnameg%future-completion-procedureCR4025h:]C2gerr  gs    Ch:]C2gerr  gs    C h:]C2gerr  gs    C.h7]C/gt-3eebb96279-91    ChT]L6Lga  gfilenamefice-9/futures.scm  0   C6hD]L6<gfilenamefice-9/futures.scm  0    C0h]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefice-9/futures.scm 0   C5R40256\^dghh v]45Cngdummy  gcheck?  gs   ggetter   gexpr      Ch(] 45$@6gx  "gtmp "gfilenamefice-9/futures.scm 0   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5R,Sih ]& C6gs  gval  gfilenamefice-9/futures.scm 0    gnameg%set-future-thunk!-procedureCjR40i25khT]CLgt-3eebb96279-bf  gt-3eebb96279-c0    CihT]L6Lga  gfilenamefice-9/futures.scm  0   C6hD]L6<gfilenamefice-9/futures.scm  0    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/futures.scm 0   n C5iR,Sh ]& C6gs  gval  gfilenamefice-9/futures.scm 0    gnameg%set-future-state!-procedureCR4025khT]CLgt-3eebb96279-cf  gt-3eebb96279-d0    ChT]L6Lga  gfilenamefice-9/futures.scm  0   C6hD]L6<gfilenamefice-9/futures.scm  0    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/futures.scm 0   n C5R,Sh ]& C6gs  gval  gfilenamefice-9/futures.scm 0    gnameg%set-future-result!-procedureCR4025khT]CLgt-3eebb96279-df  gt-3eebb96279-e0    ChT]L6Lga  gfilenamefice-9/futures.scm  0   C6hD]L6<gfilenamefice-9/futures.scm  0    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/futures.scm 0   n C5R4i,i  ,ST hP]445 5& " 45& " 456gfuture  Lgport  Lgfilenamefice-9/futures.scm ;  <  =  = "  =   >  3 ?  L <   L C>"G   ,hP]4>"G45454>"GCgthunk  Kgmutex  4g completion   4gfuture 4 Kgfilenamefice-9/futures.scm A  E   G   G +  F  & F $ . F  4 F  7 H   K gnameg make-futureg documentationfReturn a new future for THUNK. Execution may start at any point concurrently, or it can start at the time when the returned future is touched.C%R4i5R4 i5R4 i5RR4i 5R R4025/02739>h0\]CTgdummy  )gm  )ge0   )ge1   )  ) Ch(] 45$@6gx  "gtmp "gfilenamefice-9/futures.scm d   " g macro-typeg syntax-rulesgpatternsgmge0ge1g...C5R4?i5@R4AB:h@]4>"G4>"G4>"G6gfuture  @gfilenamefice-9/futures.scm r  t   u  ) v  @ w   @ gnamegregister-future!CRCD@GHIJK,ST hp]45$"4>"G 4 455Y4L&L " 4L 5>ZCZFgt-3eebb96279-16a  igfilenamefice-9/futures.scm  ( < < A 8 C ( F *  i C4hE]L6=gfilenamefice-9/futures.scm    C:hE]L6=gfilenamefice-9/futures.scm    C,S4hE]L6=gfilenamefice-9/futures.scm    C:hE]L6=gfilenamefice-9/futures.scm    Ci4hE]L6=gfilenamefice-9/futures.scm    C:hE]L6=gfilenamefice-9/futures.scm    CLABMNhN]LEFgfilenamefice-9/futures.scm "  $   Ch] U4LO> X"GOO4O>"GVL& L " 4L5 O O4 O>"GVL& L "4L >"GL& L  "4L >"GX4 O>"G&  " 45OO4O>"GV& " 45&*4L>"G4>"G" 4L5 X4O>"G4L> X4O>"G" GOCgcont  gfuture-to-wait  gx  % gx  f gx   gresults  gfilenamefice-9/futures.scm   %  N  f    ,      8  ; ! V  W  k                 COhN]L@Fgfilenamefice-9/futures.scm      ChZ-13OCRgargs gfilenamefice-9/futures.scm   C,Sh`]UD4O5&  "4>"GXCXFGEgfuture  _gtag  _gval  ! Og_  T _gresults  T _gfilenamefice-9/futures.scm y      !  W    _ gnamegprocess-future!g documentationf*Process FUTURE. When FUTURE completes, return #t and update its result; otherwise, when FUTURE touches a nested future that has not completed yet, then suspend it and return #f. Suspending a future consists in capturing its continuation, marking it as `queued', and adding it to the waiter queue.CPRQR4,SLS:P4hE]L6=gfilenamefice-9/futures.scm    C:hE]L6=gfilenamefice-9/futures.scm    C4hE]L6=gfilenamefice-9/futures.scm    C:hE]L6=gfilenamefice-9/futures.scm    CTh](45$C454&  " 45>"G& " 45 $" $ &  " 4564 &  " 45>"G4  >"G4&  " 45>"G& " 45 &B&   "4>"G4 &  " 45>"G45$ OO4O>"GV&  " 45OO4O>"GV&   "4>"G4>"GX4O>"GX4O>"G""+4 &  " 45>"G 6gt gfuture  gkey b gdone?  | `gx   Ygx   @gfilenamefice-9/futures.scm          #  @  K  b        * " %  0 + 1  K  P  m  v  |       #      3     )  B  e  j     -   gnamegprocess-one-futureg documentationf9Attempt to pick one future from the queue and process it.CUR4QVUhX]4>"G"745$4>"G"4>"G""gfilenamefice-9/futures.scm      #  $  <  O  O   S gnamegprocess-futuresg documentationf,Continuously process futures from the queue.CWRX,SY\]h(x] $LC456pgexpr  %gw gfilenamefice-9/futures.scm       % C^A\]h(x] $6456pgexpr  'gx gfilenamefice-9/futures.scm       ' C hX0]4&  " 45>"G4O> G  6(gfuture  Rgwaiting ? Rg remaining  ? Rgfilenamefice-9/futures.scm    %  .  B  J  R   R gnamegnotify-completiong documentationf9Notify futures and callers waiting that FUTURE completed.CTR4Q:,S4hE]L6=gfilenamefice-9/futures.scm    C:hE]L6=gfilenamefice-9/futures.scm    CLVUh ]4>"G45$4>"GL& L " 4L5 O O4 O>"GV L&L " 4L 5&">4 L& L " 4L5L& L " 4L5>X4 O>"GCX4 O>"GF4>"G6gx L gfilenamefice-9/futures.scm        4  L t  w   ' '       gnamegworkC4,SL:S@/hp ]OQ"<4&  " 45>"G& " 45$/4&  " 45>"G" $X4&  " 45>"G4 5 $ WG"t4>"G" 4&  " 45>"G4 5 $ WG"4>"G""&  " 4 56gfuture  pgwork pgkey  X Ogfilenamefice-9/futures.scm       6  A X  d  i                     &  *   1  9  L   O  V    p gnamegtouchg documentationf>Return the result of FUTURE, computing it if not already done.C'R4_i`5$ 4ai5" bRcR4hE]L6=gfilenamefice-9/futures.scm     C:hE]L6=gfilenamefice-9/futures.scm     Ccdbh^]CVgi  gfilenamefice-9/futures.scm '   '    CeWh^]6Vgi  gfilenamefice-9/futures.scm (   (    Cfha]CYgfilenamefice-9/futures.scm +    gnamegcreate-workers!C  hx]OO4O>"GV(4 5  "X4O>"GCX4O>"GFgx  vgfilenamefice-9/futures.scm     0 %  1 ' > &  B +  J    v gnameg%create-workers!CgRghj]6bgfilenamefice-9/futures.scm .   .    gnamegcreate-workers!C R40$252uvh?]C7gdummy  gbody     Ch(] 45$@6gx  "gtmp "gfilenamefice-9/futures.scm 5   " g documentationfReturn a new future for BODY.g macro-typeg syntax-rulesgpatternsgbodyC5$RCgm  ,grtd  gfilenamefice-9/futures.scm    0 + 9 /$ A /% R  /0 R /1 U  /< U /= V  /H V /I Y  /M Y /N ]  /Z ] /a b 1 o  1 l 2 r =' y DI E H O O   O   O   O   O  O   O  O   O  S;  S - #  UG C62.0/ccache/ice-9/debug.go000064400000001022151463412640010575 0ustar00GOOF----LE-8-2.0]4h/] gguile  gdefine-module*   gice-9 gdebug  gfilenameS fice-9/debug.scm gset-current-module     gissue-deprecation-warning f?(ice-9 debug) is deprecated. Use (system vm trace) for tracing.C5h0`]4  54 >"Gi6Xgm $gfilenamefice-9/debug.scm   *  ,    , C62.0/ccache/ice-9/safe.go000064400000002153151463412640010433 0ustar00GOOF----LE-8-2.0S]4h] gguile  gdefine-module*   gice-9 gsafe  gfilenameS fice-9/safe.scm gexportsS gsafe-environment gmake-safe-module    gset-current-module   gresolve-interface g safe-r5rs  gsafe-r5rs-interface g scm-error g misc-error f~A is not a valid version g make-moduleC5h]4   54>"G4i5R h0] $"4>"GCgn  .gfilenamefice-9/safe.scm                        #    . gnamegsafe-environmentC Rhm] 6egfilenamefice-9/safe.scm !   !    gnamegmake-safe-moduleC RCygm  (gfilenamefice-9/safe.scm   )   /  / 1   4  8      C62.0/ccache/ice-9/poll.go000064400000101713151463412640010465 0ustar00GOOF----LE-8-2.0]4h{A] gguile  gdefine-module*   gice-9 gpoll  gfilenameS fice-9/poll.scm gimportsS gsrfi gsrfi-9     ggnu     grnrs g bytevectors    gexportsS gmake-empty-poll-set g poll-set? g poll-set-nfds gpoll-set-find-port g poll-set-port gpoll-set-events gset-poll-set-events! gpoll-set-revents !gset-poll-set-revents! "g poll-set-add! #gpoll-set-remove! $ !"#  %gset-current-module &% '% (gload-extension )g string-append *f libguile- +geffective-version ,f scm_init_poll -g%sizeof-struct-pollfd .gerror /fUnexpected struct pollfd size 0gdefined? 1gPOLLIN 2gcall-with-deferred-observers 32 42 5gmodule-export! 65 75 8gcurrent-module 98 :8 ;1 gPOLLOUT ?> @g POLLRDHUP A@ BgPOLLERR CB DgPOLLHUP ED FgPOLLNVAL GF Hg  Ig%make-poll-set-procedure Jgmake-syntax-transformer KJ LJ Mg make-poll-set Ngmacro Og $sc-dispatch PO QO Rg_ Sgany TRSSS Ug syntax-object Vglambda Wg m-c625576-d Xgtop YWX Zgribcage [g t-c625576-a \g t-c625576-b ]g t-c625576-c ^[\] _YYY `f l-c625576-12 af l-c625576-13 bf l-c625576-14 c`ab dZ^_c eZ fgx gf hY if l-c625576-f ji kZghj lgshift mg proc-name ngargs omn pX qpp rfl-1e8ba8b5a-60 sfl-1e8ba8b5a-61 trs uZoqt vgkey wgvalue xgname ygformals zgbody {vwxyz |ppppp }fl-1e8ba8b5a-53 ~fl-1e8ba8b5a-54 fl-1e8ba8b5a-55 fl-1e8ba8b5a-56 fl-1e8ba8b5a-57 }~ Z{| gmake-procedure-name  p fl-1e8ba8b5a-43  Z p fl-1e8ba8b5a-42  Zg Ydekleeeeu  ghygiene    UV gpollfds pdek  U gnfds U gports U  g make-struct g m-c625576-8 X gt-1e8ba8b5a-133 gt-1e8ba8b5a-132 gt-1e8ba8b5a-131  gm-1e8ba8b5a-134 X  fl-1e8ba8b5a-138 fl-1e8ba8b5a-139 fl-1e8ba8b5a-13a  Z g ctor-args  fl-1e8ba8b5a-120  Z gctor gfield  fl-1e8ba8b5a-11c fl-1e8ba8b5a-11d  Zq gform g type-name gconstructor-spec g field-names  pppp fl-1e8ba8b5a-111 fl-1e8ba8b5a-112 fl-1e8ba8b5a-113 fl-1e8ba8b5a-114  Z g record-layout gfunctional-setters gsetters gcopier ggetters g constructor ggetter-identifiers gfield-identifiers  pppppppp fl-1e8ba8b5a-e9 fl-1e8ba8b5a-e7 fl-1e8ba8b5a-e5 fl-1e8ba8b5a-e3 fl-1e8ba8b5a-e1 fl-1e8ba8b5a-df fl-1e8ba8b5a-dd fl-1e8ba8b5a-db  Z fl-1e8ba8b5a-da  Zg dekleeeee U UH U    geach-any Rߌ gsyntax-violation   fWrong number of arguments g identifier?   pek UI   f-source expression failed to match any pattern grecord-type-vtable   gpwpwpw gdefault-record-printer    gset-struct-vtable-name!   gvtable-offset-user   g%poll-set?-procedure RS g m-c625576-1e X g t-c625576-1d   f l-c625576-23  Z f l-c625576-20  Zg eleeeeu   UV  gobj  gt-1e8ba8b5a-224  gt-1e8ba8b5a-21e  gt-1e8ba8b5a-21f gt-1e8ba8b5a-220 gt-1e8ba8b5a-223 gt-1e8ba8b5a-222 gt-1e8ba8b5a-221     gm-1e8ba8b5a-225 X  fl-1e8ba8b5a-229 fl-1e8ba8b5a-22a fl-1e8ba8b5a-22b fl-1e8ba8b5a-22c fl-1e8ba8b5a-22d fl-1e8ba8b5a-22e fl-1e8ba8b5a-22f  Z g copier-id   !fl-1e8ba8b5a-21c "! #Z " $g ctor-name %$ &fl-1e8ba8b5a-214 '& (Z%' ) *fl-1e8ba8b5a-212 +* ,Z)+ -glayout .- /fl-1e8ba8b5a-210 0/ 1Z.0 2g immutable? 32 4fl-1e8ba8b5a-20e 54 6Z35 7g field-count 87 9fl-1e8ba8b5a-20c :9 ;Z8: fl-1e8ba8b5a-209 ?> @Z=? Ag field-ids BA Cfl-1e8ba8b5a-206 DC EZBD Fgpredicate-name Gg field-spec H2FG Ipppppp Jfl-1e8ba8b5a-1f9 Kfl-1e8ba8b5a-1fa Lfl-1e8ba8b5a-1fb Mfl-1e8ba8b5a-1fc Nfl-1e8ba8b5a-1fd Ofl-1e8ba8b5a-1fe PJKLMNO QZHIP Releeeee#e(e,e1e6e;e@eEQ SU R TS Ugand VUUR Wgstruct? XUWR YXS Zgeq? [UZR \g struct-vtable ]U\R ^]S _pe `UH_ a[^` bVYa c Tb dpe eUd fgthrow-bad-struct gf hf ig pset-pollfds jg%pset-pollfds-procedure kgfree-id lg %%on-error mg m-c625576-2a nmX on pf l-c625576-2c qp rZgoq snerleeeeu  tUls ukt vuS wg%%type xgt-1e8ba8b5a-14b ygt-1e8ba8b5a-14c zgt-1e8ba8b5a-14d {gt-1e8ba8b5a-14e |gt-1e8ba8b5a-14f }gt-1e8ba8b5a-150 ~gt-1e8ba8b5a-151 xyz{|}~ gm-1e8ba8b5a-152 X  fl-1e8ba8b5a-156 fl-1e8ba8b5a-157 fl-1e8ba8b5a-158 fl-1e8ba8b5a-159 fl-1e8ba8b5a-15a fl-1e8ba8b5a-15b fl-1e8ba8b5a-15c  Z ggetter gindex  fl-1e8ba8b5a-149 fl-1e8ba8b5a-14a  Zq < ppp fl-1e8ba8b5a-144 fl-1e8ba8b5a-145 fl-1e8ba8b5a-146  Z erleeeee Uw k RvS gck gerr gs  nn f l-c625576-2f f l-c625576-30  Z nerleeeeu  U gquote U per UH   g%%index U k RvS f l-c625576-34 f l-c625576-35  Z nerleeeeu  U U er U    g%%copier U k RvS f l-c625576-39 f l-c625576-3a  Z nerleeeeu  U U g%%-set-fields per U   g t-c625576-29  f l-c625576-3e  Zo nerleeeeu  UV erleeeee U  gif U UZ U\  per UH  g struct-ref U er U   Uf U Ui     per Uj g%poll-set-nfds-procedure g m-c625576-45 X  f l-c625576-47  Zg eleeeeu  Ul k S eleeeee Uw k RS  f l-c625576-4a f l-c625576-4b  Z eleeeeu  U U pe UH    U  k   R S  f l-c625576-4f  f l-c625576-50    Z eleeeeu  U U e U    U k RS f l-c625576-54 f l-c625576-55  Z eleeeeu  U  U !pe "U! # " $# %g t-c625576-44 &% 'f l-c625576-59 (' )Z&( *)eleeeeu  +UV* ,)eleeeee -U, .- /U, 0UZ, 1U\, 21- 3p)e 4UH3 5024 6U, 7)e 8U 7 96-8 :Uf, ;U, <U3 =;< >:-= ?/59> @+.? Ape BUA Cg pset-ports Dg%pset-ports-procedure Eg m-c625576-60 FEX GF Hf l-c625576-62 IH JZgGI KFeJleeeeu  LUlK MkL NMS OeJleeeee PUwO QkP RRNQS SFF Tf l-c625576-65 Uf l-c625576-66 VTU WZSV XFWeJleeeeu  YUX ZUX [pWeJ \UH[ ]Z\ ^] _UO `k_ aRN`S bf l-c625576-6a cf l-c625576-6b dbc eZSd fFeeJleeeeu  gUf hUf ieeJ jU i khj lk mUO nkm oRNnS pf l-c625576-6f qf l-c625576-70 rpq sZSr tFseJleeeeu  uUt vUt wpseJ xUw yvx zy {g t-c625576-5f |{ }f l-c625576-74 ~} Z|G~ FeJleeeeu  UV eJleeeee U  U UZ U\  peJ UH  U eJ U   Uf U UC     peJ UD geach SS  S S S g %%set-fields gdummy gcheck? gexpr  g m-c625576-7b X  f l-c625576-80 f l-c625576-81 f l-c625576-82 f l-c625576-83 f l-c625576-84  Z  f l-c625576-7d  Zg gt-1e8ba8b5a-16a gt-1e8ba8b5a-16c gt-1e8ba8b5a-16b  gm-1e8ba8b5a-16d X  fl-1e8ba8b5a-171 fl-1e8ba8b5a-172 fl-1e8ba8b5a-173  Z fl-1e8ba8b5a-167 fl-1e8ba8b5a-168 fl-1e8ba8b5a-169  Z eleeee  U pe UH Ui U UC  gmap   glist gset-pset-pollfds! g%set-pset-pollfds!-procedure RSS g m-c625576-8f X g t-c625576-8d g t-c625576-8e   f l-c625576-94 f l-c625576-95  Z  f l-c625576-91  Zg eleeeeu  UV gt-1e8ba8b5a-18c gt-1e8ba8b5a-18d  gm-1e8ba8b5a-18e X  fl-1e8ba8b5a-192 fl-1e8ba8b5a-193  Z gsetter x fl-1e8ba8b5a-186 fl-1e8ba8b5a-187 fl-1e8ba8b5a-188  Z G fl-1e8ba8b5a-17d fl-1e8ba8b5a-17e  Zq g field-specs  fl-1e8ba8b5a-179 fl-1e8ba8b5a-17a  Zq eleee U gval U  U UZ U\  pe UH    g struct-set!  U   e  U      Uf U U      pe U gset-pset-nfds! g%set-pset-nfds!-procedure g m-c625576-9f X g t-c625576-9d g t-c625576-9e    f l-c625576-a4 !f l-c625576-a5 " ! #Z" $ %f l-c625576-a1 &% 'Zg$& (#e'leeeeu  )UV( *#e'leee +U* ,U* -+, .U* /UZ* 0U\* 10+ 2p#e' 3UH2 4/13 5U * 6#e' 7U 6 85+7, 9Uf* :U* ;U2 <:; =9+< >.48= ?)-> @pe' AU@ Bgset-pset-ports! Cg%set-pset-ports!-procedure Dg m-c625576-af EDX Fg t-c625576-ad Gg t-c625576-ae HFG IEE Jf l-c625576-b4 Kf l-c625576-b5 LJK MZHIL NE Of l-c625576-b1 PO QZgNP REMeQleeeeu  SUVR TMeQleee UUT VUT WUV XUT YUZT ZU\T [ZU \pMeQ ]UH\ ^Y[] _U T `MeQ aU ` b_UaV cUfT dUT eUB\ fde gcUf hX^bg iSWh jpeQ kUCj lg pollfd-offset mg* ngn on pg m-c625576-dc qpX rqp sf l-c625576-e1 tf l-c625576-e2 ust vZoru wq xf l-c625576-de yx zZgwy {pvez |Um{ }U { ~} gmake-bytevector g make-vector g vector-length g pset-size gbytevector-copy! gvector-move-left! gensure-pset-size! fpoll set index out of bounds ginteger? g port->fdes gport? grelease-port-handle gprimitive-pollC5h(<a]4   $54'>"G4(i4)i*4+i55,>"G-i $"4.i/-i>"G40i15$~447:;hA]4569gfilenamefice-9/poll.scm ,   C>"G"40i<5${447:=hA]4569gfilenamefice-9/poll.scm /   C>"G"40i>5${447:?hA]4569gfilenamefice-9/poll.scm 2   C>"G"40i@5${447:AhA]4569gfilenamefice-9/poll.scm 5   C>"G"40iB5${447:ChA]4569gfilenamefice-9/poll.scm 8   C>"G"40iD5${447:EhA]4569gfilenamefice-9/poll.scm ;   C>"G"40iF5${447:GhA]4569gfilenamefice-9/poll.scm >   C>"G"Hh]Cgpollfds  gnfds  gports   gfilenamefice-9/poll.scm A    gnameg%make-poll-set-procedureCIR4LMNQThe]C]g t-c625576-a  g t-c625576-b  g t-c625576-c      CMhQ]L6Iga  gfilenamefice-9/poll.scm  A   CRhA]L69gfilenamefice-9/poll.scm  A    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6zgx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/poll.scm A   n C5MRH4H>"G IiHRHhs]$CCkgobj  gfilenamefice-9/poll.scm A    gnameg%poll-set?-procedureCR4LNQch4]C,g t-c625576-1d    ChQ]L6Iga  gfilenamefice-9/poll.scm  A   CRhA]L69gfilenamefice-9/poll.scm  A    Ceh]C   C hp]45$@45$ O@45$4O?$@  6  6zgx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/poll.scm A   n C5RHhiht]& C6lgs  gfilenamefice-9/poll.scm A    gnameg%pset-pollfds-procedureCjR4LiNQh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch4]C,g t-c625576-29    CihQ]L6Iga  gfilenamefice-9/poll.scm  A   CRhA]L69gfilenamefice-9/poll.scm  A    Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefice-9/poll.scm A   C5iRHhhu]& C6mgs  gfilenamefice-9/poll.scm A    gnameg%poll-set-nfds-procedureCR4LNQh:]C2gerr  gs    C h:]C2gerr  gs    C$h:]C2gerr  gs    C@h4]C,g t-c625576-44    ChQ]L6Iga  gfilenamefice-9/poll.scm  A   CRhA]L69gfilenamefice-9/poll.scm  A    CBh]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefice-9/poll.scm A   C5RHhCh r]& C6jgs  gfilenamefice-9/poll.scm A    gnameg%pset-ports-procedureCDR4LCNQRY^h:]C2gerr  gs    Caglh:]C2gerr  gs    Couzh:]C2gerr  gs    Ch4]C,g t-c625576-5f    CChQ]L6Iga  gfilenamefice-9/poll.scm  A   CRhA]L69gfilenamefice-9/poll.scm  A    Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefice-9/poll.scm A   C5CR4LNQh v]45Cngdummy  gcheck?  gs   ggetter   gexpr      Ch(] 45$@6gx  "gtmp "gfilenamefice-9/poll.scm A   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5RHhh ]& C6gs  gval  gfilenamefice-9/poll.scm A    gnameg%set-pset-pollfds!-procedureCR4LNQhN]CFg t-c625576-8d  g t-c625576-8e    ChQ]L6Iga  gfilenamefice-9/poll.scm  A   CRhA]L69gfilenamefice-9/poll.scm  A    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6zgx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/poll.scm A   n C5RHhh ]& C6gs  gval  gfilenamefice-9/poll.scm A    gnameg%set-pset-nfds!-procedureCR4LNQ?hN]CFg t-c625576-9d  g t-c625576-9e    ChQ]L6Iga  gfilenamefice-9/poll.scm  A   CRhA]L69gfilenamefice-9/poll.scm  A    CAh]C   C hp]45$@45$ O@45$4O?$@  6  6zgx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/poll.scm A   n C5RHhBh ]& C6gs  gval  gfilenamefice-9/poll.scm A    gnameg%set-pset-ports!-procedureCCR4LBNQihN]CFg t-c625576-ad  g t-c625576-ae    CBhQ]L6Iga  gfilenamefice-9/poll.scm  A   CRhA]L69gfilenamefice-9/poll.scm  A    Ckh]C   C hp]45$@45$ O@45$4O?$@  6  6zgx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/poll.scm A   n C5BR4LlNQ|~h<]C4gdummy  gn    Ch(] 45$@6gx  "gtmp "gfilenamefice-9/poll.scm I   " g macro-typeg syntax-rulesgpatternsgnC5lRHh8-.,3# 4  545 Cg pre-allocated 8gpollfds ) 8gports  ) 8gfilenamefice-9/poll.scm L  M   M " ! M  " O  ) M  8 gnamegmake-empty-poll-setCRHhCh(x]&  " 456pgset  !gfilenamefice-9/poll.scm Q  R  ! R   ! gnameg pset-sizeCRHhiCB h]:45$"$  "& " 45& " 45&  " 454  5454    >"G4   >"G&  "4 >"G& C 6"Cgset  gsize  gprev  gnew    g old-pollfds   gnfds   g old-ports   g new-pollfds   g new-ports    gfilenamefice-9/poll.scm T  U  U   V   V   W   X  ! X & Y  , Y  / Z ! I [  c \  | ] ! ] 2 ] ! ^  Z  _  ` " _  a  b  c   W    gnamegensure-pset-size!CRHhChh] "T& " 45$1&  " 45$C"C "gset  agport  agi   Zgfilenamefice-9/poll.scm e  f  g # g  ' g  * h E h  H h L h  R j  X j Z f   a gnamegpoll-set-find-portCRHhC.hP]& " 45$&  " 45C6gset  Lgidx  Lgfilenamefice-9/poll.scm m  n  n  # n  & o  A o  F p L p   L gnameg poll-set-portCRHhi.hX]& " 45$$& " 45  C6gset  Qgidx  Qgfilenamefice-9/poll.scm r  s  s  # s  & t ! B t 7 E t 4 F t  K u Q u   Q gnamegpoll-set-eventsCRHhi.hX]& " 45$'& " 45  C6gset  Tgidx  Tgevents   Tgfilenamefice-9/poll.scm w  x  x  # x  & y " B y 8 E y 5 H y  N { T {   T gnamegset-poll-set-events!CRHhi.hX]& " 45$$& " 45  C6gset  Qgidx  Qgfilenamefice-9/poll.scm }  ~  ~  # ~  &  ! B  7 E  4 F   K Q   Q gnamegpoll-set-reventsC RHhi.hX]& " 45$'& " 45  C6gset  Tgidx  Tgrevents   Tgfilenamefice-9/poll.scm    #  & " B 8 E 5 H  N T   T gnamegset-poll-set-revents!C!RHhiC h]#& " 45 45$"4545$4>"G"4>"G& " 4 5& " 4 5 & " 4 5  &  " 4 5& C 6gset  g fd-or-port  gevents   gidx   goff  # gfd  = gval  gfilenamefice-9/poll.scm     #  #  &  0 7  =  @  J  K  a  h  m  x  3  3        gnameg poll-set-add!C"RHh.Ci h"]"& " 45$"4>"G& " 45 &  " 454&  " 45&  " 45>"G&  " 454& " 4 5 & " 4 5  >"G& " 4 5  &  "4 >"GCgset  gidx  gnfds  z goff  z gport  z gval  j gfilenamefice-9/poll.scm    #  (  , 5  @  \ _  z  z    (    "     8  )   1  4 = 7 . 8  =  H b B e 3 g  j  j %   gnamegpoll-set-remove!C#RHhiChp-.,3# & " 45& " 45&  " 456gpoll-set kgtimeout kgfilenamefice-9/poll.scm   5  O  k  k gnamegpollCRCYgm  ,grtd  gfilenamefice-9/poll.scm   - %  2 %  8 % ! 9 % - A %  C &  H %  W ( [ ( ` )  f ) o )  x +  ~ +  +  + ,   .   .   .   .  /   1   1   1   1  2   4   4   4   4  5   7   7   7   7  8  # :  ) :  + :  / : 0 ;   =   =   =   =  >   A ' L ( Q + T -e e . m / r 1+ w 2m } 3 6 : <% >  <' C62.0/ccache/ice-9/safe-r5rs.go000064400000011420151463412640011321 0ustar00GOOF----LE-8-2.0]4hS] gguile  gdefine-module*   gice-9 g safe-r5rs  gfilenameS fice-9/safe-r5rs.scm gexportsS gnull-environment   g re-exportsS geqv? geq? gequal? gnumber? gcomplex? greal? g rational? ginteger? gexact? ginexact? g= g< g> g<= g>= gzero? g positive? g negative? !godd? "geven? #gmax $gmin %g+ &g* 'g- (g/ )gabs *gquotient +g remainder ,gmodulo -ggcd .glcm /g numerator 0g denominator 1g rationalize 2gfloor 3gceiling 4gtruncate 5ground 6gexp 7glog 8gsin 9gcos :gtan ;gasin gsqrt ?gexpt @gmake-rectangular Ag make-polar Bg real-part Cg imag-part Dg magnitude Egangle Fgexact->inexact Gginexact->exact Hgnumber->string Igstring->number Jgboolean? Kgnot Lgpair? Mgcons Ngcar Ogcdr Pgset-car! Qgset-cdr! Rgcaar Sgcadr Tgcdar Ugcddr Vgcaaar Wgcaadr Xgcadar Ygcaddr Zgcdaar [gcdadr \gcddar ]gcdddr ^gcaaaar _gcaaadr `gcaadar agcaaddr bgcadaar cgcadadr dgcaddar egcadddr fgcdaaar ggcdaadr hgcdadar igcdaddr jgcddaar kgcddadr lgcdddar mgcddddr ngnull? oglist? pglist qglength rgappend sgreverse tg list-tail uglist-ref vgmemq wgmemv xgmember ygassq zgassv {gassoc |gsymbol? }gsymbol->string ~gstring->symbol gchar? gchar=? gchar? gchar<=? gchar>=? g char-ci=? g char-ci? g char-ci<=? g char-ci>=? gchar-alphabetic? g char-numeric? gchar-whitespace? gchar-upper-case? gchar-lower-case? g char->integer g integer->char g char-upcase g char-downcase gstring? g make-string gstring g string-length g string-ref g string-set! gstring=? g string-ci=? gstring? g string<=? g string>=? g string-ci? g string-ci<=? g string-ci>=? g substring g string-append g string->list g list->string g string-copy g string-fill! gvector? g make-vector gvector g vector-length g vector-ref g vector-set! g vector->list g list->vector g vector-fill! g procedure? gapply gmap gfor-each gforce gcall-with-current-continuation gvalues gcall-with-values g dynamic-wind geval g input-port? g output-port? gcurrent-input-port gcurrent-output-port gread g read-char g peek-char g eof-object? g char-ready? gwrite gdisplay gnewline g write-char  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ gset-current-module   gresolve-interface gnull  gnull-interface g module-use! gmodule-public-interface gcurrent-module g scm-error g misc-error f~A is not a valid version g make-module gset-module-kind! g interfaceC5h]4    54>"G4i5R4i4i4i55i>"G  h`]  $"4>"G4 54>"G4 >"GCgn  _g interface 2 _gfilenamefice-9/safe-r5rs.scm               #  ,  2  5  ; @  I   _ gnamegnull-environmentC RCgm  ,gfilenamefice-9/safe-r5rs.scm   -  3 * 5  8 9 > C & K T     C62.0/ccache/ice-9/lineio.go000064400000005306151463412640010777 0ustar00GOOF----LE-8-2.0 ]$4hQ] gguile  gdefine-module*   gice-9 glineio  gfilenameS fice-9/lineio.scm gimportsS grdelim      gexportsS g unread-string g read-string g lineio-port? gmake-line-buffering-input-port  gset-current-module   gobject-property gmake-soft-port g string-ref g string-length g substring g read-char g close-port fr !gset-object-property! "g read-line #gconcatC5ht]4   54>"Gh]456gstr  gline-buffering-input-port  gfilenamefice-9/lineio.scm 8  9  9 . 9   9    gnameg unread-stringCRh]456gline-buffering-input-port  gfilenamefice-9/lineio.scm <  =  = . =  =   gnameg read-stringCRh]45Cgport  gfilenamefice-9/lineio.scm @  A A " A A  A    gnameg lineio-port?CRh@]M$14M 5 4M5$ MN" M4M 5CL6gc  9gfilenamefice-9/lineio.scm T   U  W   W *  W   W   X  X /  X  X  ! X  $ Y ) & Y  - Z - 2 Z 8 5 Z - 6 Z  ? V   ? gnameggetcChg]L6_gfilenamefice-9/lineio.scm ]   ] %   gnamegpropogate-closeC !h ] 45$ MNCCgstr  gfilenamefice-9/lineio.scm a   b $ b   b   c 1  c #   gnameg unread-stringC"#h ]M(L6MMNCganswer  gfilenamefice-9/lineio.scm e   f   l 4  l   h '  h   i )  i    gnameg read-stringC h`]H4OO54O>"G4 O>"GCgunderlying-port  _gbuffers  _gself  " _gfilenamefice-9/lineio.scm K  O   L   _   _  _ F " _  " L  % n  + n  7 n  @ o  F o  T o   _ gnamegmake-line-buffering-input-portCRClgm  ,gfilenamefice-9/lineio.scm    8  <  @  K    C62.0/ccache/ice-9/curried-definitions.go000064400000013403151463412640013463 0ustar00GOOF----LE-8-2.0]4h ] gguile  gdefine-module*   gice-9 gcurried-definitions  gfilenameS fice-9/curried-definitions.scm g replacementsS gcdefine gdefine    gcdefine* gdefine*  g define-public gdefine*-public  gset-current-module   gmake-syntax-transformer   gmacro g $sc-dispatch   gany  !geach-any "! # " $# %g syntax-object &gtop '& (gribcage )gdummy *ghead +grest ,gbody -gbody* .)*+,- /gm-17381246c69178d0-0 0/& 10'''' 2fl-17381246c69178d0-5 3fl-17381246c69178d0-6 4fl-17381246c69178d0-7 5fl-17381246c69178d0-8 6fl-17381246c69178d0-9 723456 8(.17 9( :gx ;: <0 =fl-17381246c69178d0-2 >= ?(;<> @'89? Aghygiene BA C% @B Dglambda E%D@B F Ggname Hgval I)GH J0'' Kfl-17381246c69178d0-11 Lfl-17381246c69178d0-12 Mfl-17381246c69178d0-13 NKLM O(IJN P'O9? Q% PB Rgsyntax-violation SR TR Uf-source expression failed to match any pattern Vgm-17381246c69178d0-17 WV& XW'''' Yfl-17381246c69178d0-1c Zfl-17381246c69178d0-1d [fl-17381246c69178d0-1e \fl-17381246c69178d0-1f ]fl-17381246c69178d0-20 ^YZ[\] _(.X^ `W afl-17381246c69178d0-19 ba c(;`b d'_9c e%dB fglambda* g%fdB hW'' ifl-17381246c69178d0-28 jfl-17381246c69178d0-29 kfl-17381246c69178d0-2a lijk m(Ihl n'm9c o%nB pgm-17381246c69178d0-2e qp& rq'''' sfl-17381246c69178d0-33 tfl-17381246c69178d0-34 ufl-17381246c69178d0-35 vfl-17381246c69178d0-36 wfl-17381246c69178d0-37 xstuvw y(.rx zq {fl-17381246c69178d0-30 |{ }(;z| ~'y9} %~B %D~B gbegin q'' fl-17381246c69178d0-3f fl-17381246c69178d0-40 fl-17381246c69178d0-41  (I '9} %B % B gexport %B gm-17381246c69178d0-45 & '''' fl-17381246c69178d0-4a fl-17381246c69178d0-4b fl-17381246c69178d0-4c fl-17381246c69178d0-4d fl-17381246c69178d0-4e  (.  fl-17381246c69178d0-47  (; '9 %B %fB '' fl-17381246c69178d0-56 fl-17381246c69178d0-57 fl-17381246c69178d0-58  (I '9 %B %B %BC5h a]4   54>"G4 $CEhv]Cngdummy  ghead  grest   gbody   gbody*      CFQhP]CHgdummy  gname  gval     CTUh@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefice-9/curried-definitions.scm    9 g macro-typeg syntax-rulesgpatternsgheadgrestgbodygbody*g...gnamegvalC5 R4$eghv]Cngdummy  ghead  grest   gbody   gbody*      CFohP]CHgdummy  gname  gval     CTUh@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefice-9/curried-definitions.scm    9 g macro-typeg syntax-rulesgpatternsgheadgrestgbodygbody*g...gnamegvalC5R4$hv]Cngdummy  ghead  grest   gbody   gbody*      CFhP]CHgdummy  gname  gval      CTUh@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefice-9/curried-definitions.scm '   9 g macro-typeg syntax-rulesgpatternsgheadgrestgbodygbody*g...gnamegvalC5R4$hv]Cngdummy  ghead  grest   gbody   gbody*      CFhP]CHgdummy  gname  gval      CTUh@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefice-9/curried-definitions.scm 1   9 g macro-typeg syntax-rulesgpatternsgheadgrestgbodygbody*g...gnamegvalC5RCYgm  (gfilenamefice-9/curried-definitions.scm     C62.0/ccache/ice-9/scm-style-repl.go000064400000024671151463412640012406 0ustar00GOOF----LE-8-2.0)]n4h] gguile  gdefine-module*   gice-9 gscm-style-repl  gfilenameS fice-9/scm-style-repl.scm gimportsS g save-stack      gexportsS gscm-repl-silent gscm-repl-print-unspecified gscm-repl-verbose gscm-repl-prompt  g replacementsS gassert-repl-silence gassert-repl-print-unspecified gassert-repl-verbosity gdefault-pre-unwind-handler g bad-throw gerror-catching-loop gerror-catching-repl ghandle-system-error   gset-current-module !  "  #fguile>  $gsymbol-property %gthrow-handler-default &gerror 'funhandled-exception: (gthrow )ghas-shown-debugger-hint? *gcatch +gcall-with-unblocked-asyncs ,gquit -g switch-repl .gabort /grun-hook 0g abort-hook 1g force-output 2gcurrent-output-port 3gdisplay 4fABORT:  5gcurrent-error-port 6gwrite 7gnewline 8gmemq 9g backtrace :gdebug-options-interface ;gstack? gprimitive-exit ?g stack-saved? @glength Agrestore-signals Bgensure-batch-mode! Cg batch-mode? Dgcall-with-blocked-asyncs Egfor-each Ff;;;  Gginexact->exact Hgget-internal-run-time Iginternal-time-units-per-second Jf msec ( Kg gc-run-time Lf msec in gc)  Mgstring? Ngthunk? Of>  Pf Qg repl-reader Rg eof-object? Sgafter-read-hook Tf;;; EOF -- quitting Ugbefore-print-hook Vg unspecified? Wgafter-print-hook Xf ;;; QUIT executed, repl exitting Yg peek-char Zgchar=? [g read-char \gbefore-eval-hook ]g %start-stack ^] _] `g repl-stack agprimitive-eval bgafter-eval-hook cgwrong-type-arg dg out-of-range eglist-ref fgbefore-backtrace-hook gf Backtrace:  hgdisplay-backtrace igafter-backtrace-hook jgbefore-error-hook kgapply lg display-error mgafter-error-hookC5hP]4   5 4">"GRh] Czgv  gfilenamefice-9/scm-style-repl.scm '  '    gnamegassert-repl-silenceCRRh] Cgv  gfilenamefice-9/scm-style-repl.scm *  * *   gnamegassert-repl-print-unspecifiedCRRh] C|gv  gfilenamefice-9/scm-style-repl.scm -  - "   gnamegassert-repl-verbosityCR#R$%&'h@-1345$ 4?"$C@gkey =gargs =gdefault   =gt  ( =gfilenamefice-9/scm-style-repl.scm 9 :   : &  :   :   ;   ;  ( ;  7 <  = <  = gnameg bad-throwCR (h(-134 >"G@gkey #gargs #gfilenamefice-9/scm-style-repl.scm @ B  # C  # gnamegdefault-pre-unwind-handlerCR)R*+h8]4M>"GN" 4L5"4L5"Cgv  $gfilenamefice-9/scm-style-repl.scm R   S   Y   Z   [ ! $ [  $ Z  % Z ' / Z   1 ChS]LLO6Kgfilenamefice-9/scm-style-repl.scm P   Q    C,-(./01234567)89:;<=>?h]4>"G445>"G445>"G4L45>"G4 45>"GM$x $"4  4 55$"4[5$34 45>"G445>"G "445>"G"4 >"G Cygfilenamefice-9/scm-style-repl.scm k   l   m   m ) ! m  * n  . n $ / n / 8 n  A o  F o ' O o  X p  [ p $ d p  r q  x s % ~ u + u 1 v 1 u + s % w & s ! y ' y 0 y ' z ' { ( | ( z ' } ' ~ ! ~ / ~ ! ! &   C@h y]4L5 $LL@LL@qgfilenamefice-9/scm-style-repl.scm   % "    " "  ChH-13$NC$@$ LOCOCgkey Fgargs Fgfilenamefice-9/scm-style-repl.scm ^   _   a  ! _  % e & ) e  2 _  F Ch8] H4LOLLO5$H"MCgfirst  3gnext 3gfilenamefice-9/scm-style-repl.scm L   N M  (  0   3 gnamegloopCAh}]N6ugfilenamefice-9/scm-style-repl.scm      gnamegensure-batch-mode!CBhm]MCegfilenamefice-9/scm-style-repl.scm   !   gnameg batch-mode?CCDhL]CDgfilenamefice-9/scm-style-repl.scm    ChU]L6Mgfilenamefice-9/scm-style-repl.scm      Ch@]HHOQO O O6gthunk  ;gstatus  ;g interactive   ;gloop   ;gfilenamefice-9/scm-style-repl.scm I  J  '  0  ;   ; gnamegerror-catching-loopCREh ]4L4L5> GL6g the-values  gfilenamefice-9/scm-style-repl.scm   "  %  "       Ch]O6gr  ge  gp   gfilenamefice-9/scm-style-repl.scm     gnamegerror-catching-replCR3FGHIJKL hx<]4>"G44 45M5>"G4>"G44 45M5>"G64gfilenamefice-9/scm-style-repl.scm     #     #  2 % / ( , ) $ + # 0  9  = # B  K  N $ T 3 [ 0 ^ - _ % a $ f  r # t   t gnameg repl-reportCMNOPQR/SKH73T,h]45$""45$ 45"$"4545$"4L>"G4 >"G45$_4 5N4 5N $64 >"G4>"G4 >"G"4 >"G"Cgprompt 5 Agval A gfilenamefice-9/scm-style-repl.scm   0 )  0  )  0 - ) / @ 5 5 5  8  A  D  N  S  c  u    9 ' 6 '  " " + " "   gnameg-readC/UV67W1 h] $C4>"G$"45$&4>"G4>"G"4>"G $4L>"G" 6gresult  gt 8gfilenamefice-9/scm-style-repl.scm     , . 5 5 0 < ( = . O . c  |  } !   C3X7YRZ[hh]4545$C4 5$" 4 5$4>"G"4 5$6Cgch  hgt  hgt $ =gfilenamefice-9/scm-style-repl.scm          $  2 * A  B  U  V  b  f   h gnamegconsume-trailing-whitespaceCKH/\_`ahU]L6Mgfilenamefice-9/scm-style-repl.scm   ,   Cb hP] 45N45N4>"G4O54>"GCgsourc  Kgval 2 Kgfilenamefice-9/scm-style-repl.scm   9 ' 6  '   %  ) , 2  2  5   K gnameg-evalC h]@HHOOO"?$64>"G4>"G4>"G"COQQQQKK4  O5"og start-gc-rt  gstart-rt  gargs  ' fg repl-report  n g-read  n g-print  n gconsume-trailing-whitespace  n g start-gc-rt  gstart-rt  gstatus   gfilenamefice-9/scm-style-repl.scm   '  -  .  2 # 7  @  P  n         gnamegscm-style-replCR5;<89:cde/f73ghijklm1(.h0-13454[5$"4455$&"$ 4  5"4  >"G4 >"G4 >"G4[>"G4 >"G4 >"G"4 >"G4[>"G4 >"G4>"G6gkey /gargs /gcep   /gt   g highlights  Y gfilenamefice-9/scm-style-repl.scm              &  *   +   1  5   9  . =  ! >  % F  . G  % K   L  ! Y  ! Y  \  n                   +  /  # / gnameghandle-system-errorCRCgm  0gfilenamefice-9/scm-style-repl.scm   4 & ' )  *  , ' - ) /  , / | 9 a @ e G : I   N    P C62.0/ccache/ice-9/eval.go000064400000032642151463412640010452 0ustar00GOOF----LE-8-2.05]'4h] g unbound-arg gset-procedure-property! garglist g_ gset-procedure-minimum-arity! g scm-error gwrong-number-of-args feval fWrong number of arguments gkeyword? gmax gkeyword-argument-error fInvalid keyword gassq g list-set! fUnrecognized keyword g list-tail gmemoized-expression-typecode gmemoized-expression-data glist-ref greverse g variable? gmemoize-variable-access! g last-pair gcurrent-module gthe-root-module g documentation g procedure? gprocedure-property gname gdefine! gmap !gerror "fwhat #gmemoize-expression $gmacroexpanded? %gmodule-transformer &gprimitive-evalC5hx1]      hP-13", $4(L$M@6"L$Q"9 $S("45$!4L5"""LL LL L$ "  "" ( "#4  5   "    " "  $ L   " " L$ "  " " $" L$   " 6 $w4 5$g4   5 $4   >"G"'$"4  >"G  "Z"a"]"C$44  5L&4L5""LL 6  " "L$-$"45$"L$M@"."*"&LL"" $7L$ LL6(LL6L$M@6(!4L5""LL"kL L "g%args Igenv 9gnreq*  9gargs  9genv  S gnopt*  S gargs  S ginits  S gaok  Ugkw Ugkw-base Ugimax gkw gimax  Ugi  (genv  (genv C Ugargs I Mgkw-pair   gv   gi   >ginits   >gtail   6genv   %gnopt   %gargs   %ginits   %gfilenamefice-9/eval.scm            !   '   +  " -  " /  ) 0  " 3   6   9   <   ?   I   O   S ,  W 3  [ 0  a 4  b 4  g 4 , l 4 6 n 4 , r 4  s 5 % x 5 + | 5 %  5  6  6 / 5  7 % 7  8  8 * 8 5 7  @ # @  A " @  B ' B 4 B ' @  C $ D & F . F 3 F . G . F * C $ C 3  C $  @   I #  O )  O %  P -  P 4 " P ) ( I # 0 L 1 5 M 5 C I # C @  I S  L T $ P T  Z d # ] f + c f ' g g 2 i h 2 k h 9 l i 2 o i < r i 6 t g ' t T  w T 8 x T 1 | T  } U $  U .  U $  T   V .  V 4  V .  W (  V   X !  Z %  [ 8  [ 0  Z %  ] %  ^ )  _ *  ` *  ` 1  a *  a 4  a .  ^ )  b %  b !  n #  p )  p %  q 5  q )  r 4  r +  t 9  t ? ! u ? # t 9 $ s / + v / . v 6 6 v + > x ) > n # C n / M n # M S  U 0  ^ : b :  c : 2 h : < j : 2 n :  v ;  z :   >   ,                (        ! !  " !  # %  $ 0  % 0  % 7  & 0  $ %  '   ( '  ( -  ( '  ( !  ) !  ) 0  (   * '  * !  + !  + +  + 6 % *  %   9   I Chh,3H"m"R $ ("$$""$" $ " $"8 $. $$  ""$" "$    "4       " 4   $"$" $">"G4    >"G"    " C$     ("   $ $ ""  $ "  $ " $  " $  "4L   5     "KLLO  "genv  agbody  agnreq   agrest?   agnopt   agkw   aginits   agalt   agalt-proc   agproc zgalt  cgnreq  cgnopt  cgrest?  cgspec   gnreq*  grest?*  2 gtail  S gnopt*  c galt*  v gt  } gbody  9gspec  6gnreq  3grest  0gtail  -gnopt   *gkw   'ginits   $galt   !gfilenamefice-9/eval.scm            % ( )  1 7 2  7 ' 8 <  ? : A 3 E  H G S  [  ^ % c  k  n % v  }  }       !  -  !  ,         .  /  6  ? " / % 7 0 / 2 : : ) ?  H  c              %    4   &      9  2    F     #     "     $  1     #    a  V  a gnamegmake-general-closureCOhB]LLL6:gfilenamefice-9/eval.scm    ChR]LLL6Jga  gfilenamefice-9/eval.scm    Cha]LLL6Yga  gb  gfilenamefice-9/eval.scm     Chp]LLL6hga  gb  gc   gfilenamefice-9/eval.scm     Ch]LLL6wga  gb  gc   gd   gfilenamefice-9/eval.scm     Ch ]LLL6ga  gb  gc   gd   ge   gfilenamefice-9/eval.scm     Ch ]LLL6ga  gb  gc   gd   ge   gf   gfilenamefice-9/eval.scm     Ch ]LLL6ga  gb  gc   gd   ge   gf   gg   gfilenamefice-9/eval.scm     C h-13 "O $LL ( " 456 ( 6       "LL    " ga gb gc  gd  ge  gf  gg  gh  gmore  gnew-env \gnreq \gargs \ gfilenamefice-9/eval.scm    C h[]LL6Sgx  gfilenamefice-9/eval.scm    )  Ch[]LL6Sgx  gfilenamefice-9/eval.scm    '  Ch0](LLL6Y4L>ZCZFgfluids  *gvals  *gfilenamefice-9/eval.scm           -       !  $ &    * gnameglpChC]LLL6;gfilenamefice-9/eval.scm    C!"!hx ]J4545 &6 &4L5 $6 $4L56 $4L54L56 $%4L54L54L564L54L54L54L5") ( 4 5"' 4L 5   "  "@ &_45$"L4$ 45"( 45"$"45$ "5C &94L5$ "<"0 &C &m"*( "4L5"( 45"$"45$ "" &  (( 45"$"45$ "  $  LO" $  LO" $  LO" $  LO"m $ LO"U $ LO"= $ LO"% $ LO" L O "| (?4L( 45"$"45$ " 5"64L( 45"$"45$ " ? $4 >"G" C &N"4( "4L>"G"" &4L56 &%4L544L5>6< &'4L54L5@ &45$"45C &a4L545$+45$"4>"G"4>"GC &s4L545$"L4$ 45"( 45"$"45$ "5C &o4L54L5  4>"GV4L>X4 >"GCX4 >"GF &V4LO54LO5 O  LQ   6 &I4L5U4LO>XCXFG4L5@ & 4L5B &/4L545$"45C 6 gexp  tgenv  tgtag   tgdata   tgf  2 +gxb  2 +gnargs  < +gargs  < +gproc  I +gexps gargs genv  ^ gtest   gxb   g consequent   g alternate   ginits   Rgbody   Rginits   gnew-env   gbody  ` gxb  ` g docstring  j gxb  j gnreq  t gtail t ge  ygproc  gfirst  + sgrest  + sgfirst  3 ggrest  3 ggn   gx   gval   gproducer   gconsumer   gf   gxb   gargs   gname  ' gx  ' gx  4 g var-or-sym   gx   genv   gin   tgxb   tgexp   tgout   tgpre  + tgpost + tgfluids   gxb   gvals   gexp   gfluids   gvals  glp  gtag   #gxb   #gexp   #ghandler   #gargs   #gx  C lg var-or-spec  C lBgfilenamefice-9/eval.scm {   |  $ ~ , |  A   I  S  3 |  4   >  E   L  9 P  ( Q  > X  9 ^  (       |           |                             %  ) R  Z |  ~     7               .   3   3         4            +   % |  3  9  E   F   \   _  g   g  { |          |            |           |            ! |  ,   4  7   A  B  ( H  > J  ( N   S   Y  * `   m   |              9   (   >   9   (       |     #   +  E  " R  | |               |          + |  ,   5  = |  H  Q   [  b   j  p |   t gnamegevalCOQQ#$%h0]L445$"44455556gexp  ,gfilenamefice-9/eval.scm                 ! #  '  )   *   ,    , g documentationf)Evaluate @var{exp} in the current module.CO&RCg unbound-arg  1lgmake-general-closure 0 1igeval  0 1igfilenamefice-9/eval.scm     1o   1q C62.0/ccache/ice-9/pretty-print.go000064400000056136151463412640012210 0ustar00GOOF----LE-8-2.0F\]4h] gguile  gdefine-module*   gice-9 g pretty-print  gfilenameS fice-9/pretty-print.scm gimportsS gmatch     gsrfi gsrfi-1   grnrs g bytevectors    gexportsS gtruncated-print  gset-current-module   g make-string ggenwrite:newline-str g string-length !f( "gfold #f  $f) %gobject->string &gdisplay 'gwrite (gquote )f' *g quasiquote +f` ,gunquote -f, .gunquote-splicing /f,@ 0f  1g substring 2gmin 3g generic-write 4f 5greverse-string-append 6g vector->list 7f# 8gsymbol->string 9f. :glambda ;glambda* gdefine ?gdefine* @g define-public Ag define-syntax Bg let-syntax Cg letrec-syntax Dg with-syntax Egif Fgset! Ggcond Hgcase Igand Jgor Kglet Lgbegin Mgdo Ng syntax-rules Og syntax-case Pg string-set! Qg string-ref RgportS SR  TgwidthS UT  Vgmax-expr-widthS WV  Xgdisplay?S YX  Zgper-line-prefixS [Z  \SUWY[ ]gcurrent-output-port ^X  _gbreadth-first?S `_  aSU^` bg%default-port-encoding cg port-encoding dgcatch egencoding-error fg!%default-port-conversion-strategy ggerror hgwith-output-to-string ik&  jf... kgmax lgfloor mfexpected a positive width nglength ogcdr pf#( qg vector-length rg vector-ref sgidentity tg bytevector? ugformat vf#~a( wg array-type xg array-length yg array-ref zf.  {gstring-prefix? |gstring-suffix? }f~a~a~a~a ~f#< f> ~ p$ !$ f"   gwith-output-to-portC5hR]4   54>"G4i  5R h(]$4L5$ 45CCCgstr  "gcol  "gfilenamefice-9/pretty-print.scm 9   :  :  :   : !  :   " gnamegoutC!"#h(]L$4L5$ ""6gi  'gcol  'gfilenamefice-9/pretty-print.scm G  :  :  H %  :  :   : !  :  ' H   ' C$%&' ()*+,-./hX]""$$V4L$4L5$ ""54LLO5$4L5$ CCC4L$"5$4L5$ 45CCC4L$"5$4L5$ 45CCC$j &$(yL $ ". $ " $"$"$4L5$45""6""| &$(yL $ ". $ " $"$"$4L5$45""6"" &$(yL $ ". $ " $"$"$4L5$45""6"R"N&$(yL $ ". $ " $"$"$4L5$45""6""""gobj  Wgcol  Wgw   gx   gcol  D tgcol  X tgstr  gstr  gw  Sgx  Sgw   ghead   Vgstr  V gw   ghead   gstr   gw  : ghead  B gstr   gw   Gghead   gstr   Egfilenamefice-9/pretty-print.scm =   ?   E  ) :  * : . E $ 0 : 4 :  7 : ! 8 :  D E  D E G G  X F ` :  a : e F  g : k :  n : ! o :  u K   K " K  K :  : :  : ! :  K  K " K  K :  : :  : ! :  ?   2   2   3  ! 4  . 3  0 5  = 3  ? 6  L 3  N 7  V A  ^ :  _ : i :  l : ! s :   A  ?   2   2   3   4   3   5   3   6   3   7   A   :   :  :   : !  :   A  ?  B 2  B 2  M 3  O 4  \ 3  ^ 5  k 3  m 6  z 3  | 7   A   :   :  :   : !  :   A  ?   2   2   3   4   3   5   3   6   3   7   A  # :  $ : . :  1 : ! 8 :  G A K ? q  W gnamegloopCh ] OLLLQ6gobj  gcol  gloop  gfilenamefice-9/pretty-print.scm <  =   gnamegwrC01 hp>]  $b $- $4L5$  """4 5$4L5$ 45CCCC6gn  ogcol  ogstr  J lgfilenamefice-9/pretty-print.scm O   P P   Q  Q   R   :   : # R  % : ) :  - : ! . :  @ R A S  E S  J S  J S R :  S : ] :  ` : ! g :   o gnamegspacesC hh] $^$J4L5$45"$#4LL5$ 4L5$L 6CCCL6Cgto  hgcol  hgstr   2gfilenamefice-9/pretty-print.scm V   W  X   X  Y   : :  # : ! * :  6 Y 7 : A Y C : ! J :  N :  U [  b \  f \   h gnamegindentC234 h ]MNM45NM Cgstr  gfilenamefice-9/pretty-print.scm c  d  d  e !  e   e   f    C5 67! h],$"$4LL5HH4LLO>"GJ $)4J5$4L5$ 45CCC$ 645$4L5$ ""$4L 5$ ""LL6L6gobj  gcol  gextra   gpp-pair   gresult  & gleft  & gstr  [ }gl  gcol  gcol   gfilenamefice-9/pretty-print.scm ^   _  _ _   _   _   `   a   a  ! a  " a  & a  & `  + b 6 b 8 D b P g  T g U h  [ h c :  d : n :  q : ! x :  i  i j  k  :  : k / : :  : ! :  k  :  :  : :  : ! :    l 0  gnamegprC(*,.)+-/ 8! hx]$"!$"$"$$""${L$".$"$"$"$4L5$4 5""L6$|4L5$ 64 4 55 $LL64L$4L 5$ ""5$LL6C$4L 5$ ""LL6pgexpr  gcol  gextra   ghead   Zgtail   Zghead  g gstr  ghead  gproc  agcol*  G agcol    gfilenamefice-9/pretty-print.scm n   )   )   )   *  B (  F (  I ( / J ( ( ^ o  c /  g 2  g 2  r 3  t 4  3  5  3  6  3  7  q :  : :  : ! :  p  t  t  u  u v  v w  x  y   y &  y   y   y   {  !  &  , :  - : 1 & 3 : 7 :  : : ! ; :  G  G  O  T  Y & _ g :  h : l  n : r :  u : ! v :     C   gnamegpp-exprC$9h/]%"$|$4(" 4L4L55"(4L5$ CCL4L4L4L4L55556C"p'gl  gcol1  gcol2   gextra   gpp-item   gl   gcol   grest   Ggextra  & G gfilenamefice-9/pretty-print.scm            # ! 4 &  +  0 " 1 * ?  G  M N : R  T : X :  [ : ! \ :  c  d  i  n * r / s 3 } *      #  gnamegpp-downC!#hP]?"m"    "Y$K$@   ("   4L 4L  5 5   " """c"L 6$G$<   ("   4L 4L  5 5 " """L 64L$4L5$ ""5 "     "$U$J  4L  $4L5$ ""5       "u""Hgexpr  gcol  gextra   gnamed?   gpp-1   gpp-2   gpp-3   grest   sgcol1   sgcol2  sgcol3  sgval1 . kgrest 3 kgextra C kgrest  w gcol1  w gcol2 w gcol3 w gval1 grest gextra grest  gcol1  gcol2 ghead  grest  gcol*  gname J grest O gcol** w gfilenamefice-9/pretty-print.scm       '  + .  . 3  3 ;  > ) C J  O & ]  k w        )  &          :   :  !  :  :   : !  :      )  . 2 : :  C  G J  J O  O R  \ :  ] : a & c : g :  j : ! k :  w  w    5  I   gnameg pp-generalC!h8] $4L5$ ""LL6gl  1gcol  1gextra   1gcol  ! 1gfilenamefice-9/pretty-print.scm   :  :   :  :   : !  :  !  1   1 gnameg pp-expr-listCh]LLL6gexpr  gcol  gextra   gfilenamefice-9/pretty-print.scm      gnameg pp-LAMBDAC!hH(] 4L$4L5$ ""5$LL6C gexpr  Cgcol  Cgextra   Cgcol*  ) Cgfilenamefice-9/pretty-print.scm       :   :  &  :  :   : !  :  )  )  1  6  ; & A   C gnamegpp-CONDCh]LLLL6gexpr  gcol  gextra   gfilenamefice-9/pretty-print.scm      gnamegpp-DOC:;<=>?@ABCDEFh]LLL6gexpr  gcol  gextra   gfilenamefice-9/pretty-print.scm      gnamegpp-IFCGHh]LLL6gexpr  gcol  gextra   gfilenamefice-9/pretty-print.scm      gnamegpp-CASECIJ!hH'] 4L$4L5$ ""5$LL6Cgexpr  Cgcol  Cgextra   Cgcol*  ) Cgfilenamefice-9/pretty-print.scm       :   :  &  :  :   : !  :  )  )  1  6  ; & A   C gnamegpp-ANDCKh0]$"LLL6gexpr  *gcol  *gextra   *grest   *gnamed?   *gfilenamefice-9/pretty-print.scm          0  '   *   * gnamegpp-LETCLh]LL6gexpr  gcol  gextra   gfilenamefice-9/pretty-print.scm      gnamegpp-BEGINCMNOh]LLL6gexpr  gcol  gextra   gfilenamefice-9/pretty-print.scm      gnamegpp-SYNTAX-CASEChXz]$"$"u$"g$"Y$"K$"=$"/$"! $" $" $LC $" $ LLOC$LC$ LLLOC$"$LLLLOC$ LLLOC$ LLOC$LC$LC$ LLLOCCrghead  Xgfilenamefice-9/pretty-print.scm    X gnamegstyleC h]ZOOOOOOOO  O  O  O  LQLLQLLLLLQ LLQLLQLLQLQQ LLQ Q  LL  Q  6|gobj  gcol  gspaces  gindent  gpr  gpp-expr  gpp-down  g pp-general  g pp-expr-list  g pp-LAMBDA gpp-COND gpp-DO gstyle  gfilenamefice-9/pretty-print.scm M      gnamegppC hr]OOOQQQ45$ 45"$44 5>"G"4 >"GCjgobj  gdisplay?  gwidth   gmax-expr-width   gper-line-prefix   goutput   gout  " gwr  " gpp  "  gfilenamefice-9/pretty-print.scm $ B : L :  N : ! U :  `  a  f  r     gnameg generic-writeC3R PQh]*$n454L5"7$+445>"G"C 45"6gl  }gi  }gstr  wglen   wgresult  $ wgj  * agk  * agfilenamefice-9/pretty-print.scm                       ( "  0 $   $   *   /   3  4   ;  $ H   S   V   ^   a   c  " l   o   w   }    } gnamegrev-string-appendCh] OQ 6gl  grev-string-append gfilenamefice-9/pretty-print.scm      gnamegreverse-string-appendC5R\]43 &hc]4L>"GC[gs  gfilenamefice-9/pretty-print.scm $   $    Ch-/03##$"45# O# 2##45O6gobj  ygport*  ygport   ygwidth   ygmax-expr-width   ygdisplay?   ygper-line-prefix   ygfilenamefice-9/pretty-print.scm  (   /  ' Z  ( e !  l !  y    y gportS gwidthS gmax-expr-widthS gdisplay?S gper-line-prefixS gnameg pretty-printg documentationfPretty-print OBJ on PORT, which is a keyword argument defaulting to the current output port. Formatting can be controlled by a number of keyword arguments: Each line in the output is preceded by the string PER-LINE-PREFIX, which is empty by default. The output lines will be at most WIDTH characters wide; the default is 79. If DISPLAY? is true, display rather than write representation will be used. Instead of with a keyword argument, you can also specify the output port directly after OBJ, like (pretty-print OBJ PORT).CRa]bcdefgh&ih\]6Tgfilenamefice-9/pretty-print.scm E   @   F    Ch\]Y4>ZCZFTgfilenamefice-9/pretty-print.scm B  C = D    Cjhx-13Cpgkey gargs gfilenamefice-9/pretty-print.scm G H  C &bchklh8]L4LLL5L$4 4LLL55"LL6gfilenamefice-9/pretty-print.scm \   ] $  ^ $  _ (  ` 1 ! ` A " ` 8 $ ` 1 % ` - ' _ ( 0 a 1 1 a ( 3 ]   3 C ho]%" $4 >"G"$C"iL$M64L5Y4LLLO5Z4>"G4545"e$> $" $L45 $"6"O"K " ggx  gwidth  glen   gref   gnext   gx   gwidth   gi   gt  ) gstr  n gt   gfilenamefice-9/pretty-print.scm L   M  P   P  Q  ) S ) R = V  > V B R H W K Z 9 T [  n Y q b  c  c  c & c  c ; c  R T  T  R T $ T T . T U  U ! U  U 1 U M $  gnamegprint-sequenceCgm&!nhr]Cjgx  gi  gfilenamefice-9/pretty-print.scm     *   Co$7pqrstuvwxyzhlh(]LLL$4L  5"L 6gfilenamefice-9/pretty-print.scm p   q " r "  s &  s 0  s -  s & # t & % q   % C# &'he]L$L6L6]gfilenamefice-9/pretty-print.scm     #   0   <   C{|}1hK]" $6$L L$:4>"G4L 45>"G6 6$L L$:4 >"G4L 4 5  >"G6 645$Q $B445>"G4L 45 >"G6 6$ L$4>"G "$  "$-4>"G4L >"dG"]4LLO54>"G4>"G45"p"a6 64LO54>"G45$""( "" "45${45$h45$V4545L$5444545L5M5""u"q"m"i"Q6Cgx  gwidth  gwidth  > gx  D gwidth  D gstr   gstr   gfixes  . gfilenamefice-9/pretty-print.scm                   !  %  &  *   /  8  A   B  * Q  ]   _  c   e  h  l   s   t  x  y  }        *                       *                  "   #  '  (  ,   1  >   >  D g  G j  K j P j U j  Y i Z k ^ k  c k l l u l  z l  o   o  u   v   v   v   w   w   w %  w   w   g                          $   . {  4  6  A   G  G  H   M  ! R   V  W   \  ! a   e  f   o   s  v   {  ' ~        '                       #   2   #   (   7   (             {   {   {       gnamegprintChS]LLL6Kgfilenamefice-9/pretty-print.scm      Ch:-/03 ##$"45# O##45YH45K4 J5 O O  Q Q 4   O>ZCZF2gx  gport*  gport   gwidth   gdisplay?   gbreadth-first?   gellipsis  ] gellipsis-width  s gprint-sequence  gprint  gfilenamefice-9/pretty-print.scm ) ( + / + * T ; ( ` A  d A  j A  m J  s J     gportS gwidthS gdisplay?S gbreadth-first?S gnamegtruncated-printg documentationfAPrint @var{x}, truncating the output, if necessary, to make it fit into @var{width} characters. By default, @var{x} will be printed using @code{write}, though that behavior can be overriden via the @var{display?} keyword argument. The default behaviour is to print depth-first, meaning that the entire remaining width will be available to each sub-expression of @var{x} -- e.g., if @var{x} is a vector, each member of @var{x}. One can attempt to "ration" the available width, trying to allocate it equally to each sub-expression, via the @var{breadth-first?} keyword argument.CRCgm  ,gfilenamefice-9/pretty-print.scm   - "  9 " 3 $ 7 ;  R )   R C62.0/ccache/ice-9/rdelim.go000064400000017417151463412640011002 0ustar00GOOF----LE-8-2.0]h4h] gguile  gdefine-module*   gice-9 grdelim  gfilenameS fice-9/rdelim.scm gexportsS g read-line g read-line! gread-delimited gread-delimited! g read-string g read-string! g%read-delimited! g %read-line g write-line     gset-current-module   g%init-rdelim-builtins gcurrent-input-port f  g eof-object? gtrim g string-length gpeek gsplit !gconcat "g string-set! #gerror $funexpected handle-delim value:  %g make-string &gstring-concatenate-reverse 'g substring (g string-append )gstring *gmake-syntax-transformer +* ,* -g check-arg .gmacro /g $sc-dispatch 0/ 1/ 2gany 3geach-any 423 524 625 7g syntax-object 8gunless 9gtop :9 ;gribcage gmessage ?garg @<=>? Agm-1eeb5757c-50 BA9 CB::: Dfl-1eeb5757c-55 Efl-1eeb5757c-56 Ffl-1eeb5757c-57 Gfl-1eeb5757c-58 HDEFG I;@CH J; Kgx LK MB Nfl-1eeb5757c-52 ON P;LMO Q:IJP Rghygiene SR T78QS U7#QS Vgsyntax-violation WV XV Yf-source expression failed to match any pattern Zginteger? [gexact? \gindex? ]gstring? ^f not a string _f bad index `fstart beyond end afend beyond string length bg read-char cg list->string dgreverse! egreverse fgchar? gg unread-charC5h]4   54>"G4i>"Gh`$-.,3#45" $CC $45$C""gstring [gport [grv  " [g terminator  ' [gnchars  , [gfilenamefice-9/rdelim.scm &  )  ( " ) " )  ' -  ' )  , .  , )  8 /  A /  E /  F 0  P /  [ gnameg read-line!C R !"#$ h:-.,3 #45## # 4545$ 45"$* $&CC&CC$"$C$4 >"GC$C  62gdelims gbuf gport  g handle-delim  gstart  gend  grv  P g terminator  U gnchars  Z  gfilenamefice-9/rdelim.scm 5  6 ! 6 D 3 7 ) < 8 F : 6 G : $ H :  P 8 P 8  U >  U 8  Z ?  Z 8  b @ c A  n @  r @  u B  z B ~ C % C  D  F % F  G  J L  L ( L  M  J N  O  O $  gnamegread-delimited!CR%&'!() #$h -.,3 #45#"4545   $"i44  55 $4 5$ C  4 56$"$ C $ C 64 5$ $ &CC"o"k4  5  " d"gdelims gport g handle-delim  g substrings  ' g total-chars  ' gbuf-size  ' gbuf  . grv  A g terminator  F gnchars K g new-total R gjoined p  gfilenamefice-9/rdelim.scm R  R 1 ! S ' ' T  ( W  . W  1 X  ; Z 8 < Z & = Z ! A X  A W  F \  F W  K ]  K W  R ^  R W  Z _  _ k  b l  n l  p k  p j  { m | o  o q ' q  m s  t  t  _  e _  e & e  f  f  g b   b   d   b   T   T   T 1  gnamegread-delimitedCR4,-.16TUhd]C\gdummy  gexp  gmessage   garg      CXYh(] 45$@6gx  "gtmp "gfilenamefice-9/rdelim.scm w   " g macro-typeg syntax-rulesgpatternsgexpgmessagegargg...C5-RZ[h(]45$45$ CCCgn  !gfilenamefice-9/rdelim.scm {  |  |   |   |   |   ! gnamegindex?C\R]#^\_`ab" h8-.,3#45# # 4545$"4>"G45$"4>"G45$"4>"G$"4>"G45$"4 >"G"H$94 54 5$C4 >"G"C"gbuf 7gport 7gstart  7gend  7gn  /gc  )gfilenamefice-9/rdelim.scm ~    ) & 2 <  E  L  U _  h  o  x         *             #  )  .  / & 7 gnameg read-string!g documentationfNRead all of the characters out of PORT and write them to BUF. Returns the number of characters read. This function only reads out characters from PORT if it will be able to write them to BUF. That is to say, if BUF is smaller than the number of available characters, then BUF will be filled, and characters will be left in the port.CRbcdeh*N.+E3#45"*4545$ 456""]""D4545$"$ 456" "gport  Tgchars # Mgchar  * Mgport V gcount V gchars  Z gtotal  Z gchar  a gt  j  gfilenamefice-9/rdelim.scm    #  $  *  - 7  :  B G  M M  N  T  V  Z  [  a  d  j | #    $     T  V gnameg read-stringg documentationfRead all of the characters out of PORT and return them as a string. If the COUNT argument is present, treat it as a limit to the number of characters to read. By default, there is no limit.CR !]f()g#$h-.,3#45#45$C$C$)45$45$ 4 56CC $&45$4 >"G"C  6gport g handle-delim g line/delim  * gline  / gdelim  4 gfilenamefice-9/rdelim.scm  % ! " $  *  /  /  4  4  ?  X  b  c ( m  r ( z        gnameg read-lineC RCgm  (gfilenamefice-9/rdelim.scm   ) $  & 5 5 | R {  ~      C62.0/ccache/ice-9/receive.go000064400000003301151463412640011133 0ustar00GOOF----LE-8-2.0]C4h] gguile  gdefine-module*   gice-9 greceive  gfilenameS fice-9/receive.scm gexportsS  gset-current-module     gmake-syntax-transformer   gmacro g $sc-dispatch   gany    g syntax-object gcall-with-values gtop  gribcage gdummy !gvars "gvals #gbody $ !"# %gm-45d2cb8b0a-f &% '& (fl-45d2cb8b0a-14 )fl-45d2cb8b0a-15 *fl-45d2cb8b0a-16 +fl-45d2cb8b0a-17 ,()*+ -$', . /gx 0/ 1& 2fl-45d2cb8b0a-11 32 4013 5-.4 6ghygiene 76 857 9glambda :957 ;gsyntax-violation <; =; >f-source expression failed to match any pattern ?gcond-expand-provide @gcurrent-module Agsrfi-8 BAC5ho]4    54>"G48:hc]C[gdummy  gvars  gvals   gbody      C=>h(] 45$@6gx  "gtmp "gfilenamefice-9/receive.scm    " g macro-typeg syntax-rulesgpatternsgvarsgvalsgbodyC5R?i4@i5B6ggm  (gfilenamefice-9/receive.scm        &      C62.0/ccache/ice-9/networking.go000064400000021403151463412640011703 0ustar00GOOF----LE-8-2.0"]94hh] ggethost g gethostbyaddr g gethostbyname ggetnet g getnetbyaddr g getnetbyname ggetproto ggetprotobyname ggetprotobynumber ggetserv g getservbyname g getservbyport gsethost g sethostent gsetnet g setnetent gsetproto g setprotoent gsetserv g setservent g gethostent g getnetent g getprotoent g getservent g endhostent g endnetent g endprotoent g endservent g hostent:name ghostent:aliases ghostent:addrtype ghostent:length !ghostent:addr-list "g netent:name #gnetent:aliases $gnetent:addrtype %g netent:net &g protoent:name 'gprotoent:aliases (gprotoent:proto )g servent:name *gservent:aliases +g servent:port ,g servent:proto -g sockaddr:fam .g sockaddr:path /g sockaddr:addr 0g sockaddr:port 1gsockaddr:flowinfo 2gsockaddr:scopeid 3gaddrinfo:flags 4g addrinfo:fam 5gaddrinfo:socktype 6gaddrinfo:protocol 7g addrinfo:addr 8gaddrinfo:canonnameC5h`]h{]6sgaddr  gfilenamefice-9/networking.scm       gnameg gethostbyaddrCRh{]6sgname  gfilenamefice-9/networking.scm       gnameg gethostbynameCRhz]6rgaddr  gfilenamefice-9/networking.scm       gnameg getnetbyaddrCRhz]6rgname  gfilenamefice-9/networking.scm       gnameg getnetbynameCRh|]6tgname  gfilenamefice-9/networking.scm       gnameggetprotobynameCRh~]6vgaddr  gfilenamefice-9/networking.scm       gnameggetprotobynumberC R h]6gname  gproto  gfilenamefice-9/networking.scm   #  gnameg getservbynameC R h]6gport  gproto  gfilenamefice-9/networking.scm #  gnameg getservbyportC R h -13$66gstayopen gfilenamefice-9/networking.scm " #   #   $   $   %   gnameg sethostentCRh -13$66gstayopen gfilenamefice-9/networking.scm & '   '   (   (   )   gnameg setnetentCRh -13$66gstayopen gfilenamefice-9/networking.scm * +   +   ,   ,   -   gnameg setprotoentCRh -13$66gstayopen gfilenamefice-9/networking.scm . /   /   0   0   1   gnameg setserventCRhe]6]gfilenamefice-9/networking.scm 3  3    gnameg gethostentCRhd]6\gfilenamefice-9/networking.scm 4  4    gnameg getnetentCRhf]6^gfilenamefice-9/networking.scm 5  5    gnameg getprotoentCR he]6]gfilenamefice-9/networking.scm 6  6    gnameg getserventCR he]6]gfilenamefice-9/networking.scm 8  8    gnameg endhostentCRhd]6\gfilenamefice-9/networking.scm 9  9    gnameg endnetentCRhf]6^gfilenamefice-9/networking.scm :  :    gnameg endprotoentCRhe]6]gfilenamefice-9/networking.scm ;  ;    gnameg endserventCRhy] Cqgobj  gfilenamefice-9/networking.scm =  =    gnameg hostent:nameCRh|] Ctgobj  gfilenamefice-9/networking.scm >  >    gnameghostent:aliasesCRh}] Cugobj  gfilenamefice-9/networking.scm ?  ?    gnameghostent:addrtypeCRh{] Csgobj  gfilenamefice-9/networking.scm @  @    gnameghostent:lengthC Rh~] Cvgobj  gfilenamefice-9/networking.scm A  A    gnameghostent:addr-listC!Rhx] Cpgobj  gfilenamefice-9/networking.scm C  C    gnameg netent:nameC"Rh{] Csgobj  gfilenamefice-9/networking.scm D  D    gnamegnetent:aliasesC#Rh|] Ctgobj  gfilenamefice-9/networking.scm E  E    gnamegnetent:addrtypeC$Rhw] Cogobj  gfilenamefice-9/networking.scm F  F    gnameg netent:netC%Rhz] Crgobj  gfilenamefice-9/networking.scm H  H    gnameg protoent:nameC&Rh}] Cugobj  gfilenamefice-9/networking.scm I  I    gnamegprotoent:aliasesC'Rh{] Csgobj  gfilenamefice-9/networking.scm J  J    gnamegprotoent:protoC(Rhy] Cqgobj  gfilenamefice-9/networking.scm L  L    gnameg servent:nameC)Rh|] Ctgobj  gfilenamefice-9/networking.scm M  M    gnamegservent:aliasesC*Rhy] Cqgobj  gfilenamefice-9/networking.scm N  N    gnameg servent:portC+Rhz] Crgobj  gfilenamefice-9/networking.scm O  O    gnameg servent:protoC,Rhy] Cqgobj  gfilenamefice-9/networking.scm Q  Q    gnameg sockaddr:famC-Rhz] Crgobj  gfilenamefice-9/networking.scm R  R    gnameg sockaddr:pathC.Rhz] Crgobj  gfilenamefice-9/networking.scm S  S    gnameg sockaddr:addrC/Rhz] Crgobj  gfilenamefice-9/networking.scm T  T    gnameg sockaddr:portC0Rh~] Cvgobj  gfilenamefice-9/networking.scm U  U    gnamegsockaddr:flowinfoC1Rh}] Cugobj  gfilenamefice-9/networking.scm V  V    gnamegsockaddr:scopeidC2Rh{] Csgobj  gfilenamefice-9/networking.scm X  X    gnamegaddrinfo:flagsC3Rhy] Cqgobj  gfilenamefice-9/networking.scm Y  Y    gnameg addrinfo:famC4Rh~] Cvgobj  gfilenamefice-9/networking.scm Z  Z    gnamegaddrinfo:socktypeC5Rh~] Cvgobj  gfilenamefice-9/networking.scm [  [    gnamegaddrinfo:protocolC6Rhz] Crgobj  gfilenamefice-9/networking.scm \  \    gnameg addrinfo:addrC7Rh] Cwgobj  gfilenamefice-9/networking.scm ]  ] !   gnamegaddrinfo:canonnameC8RCgfilenamefice-9/networking.scm  6    e      I    "  & j * A .  3 ? 4 5 @ 6 8 ? 9 : @ ; = g >  ?  @ ) A  C N D  E r F  H  I . J  L O M  N u O  Q  R % S  T I U  V v X  Y  Z 1 [  \ Z ] 1  \ C62.0/ccache/ice-9/serialize.go000064400000011676151463412640011516 0ustar00GOOF----LE-8-2.0]44h^] gguile  gdefine-module*   gice-9 g serialize  gfilenameS fice-9/serialize.scm gimportsS gthreads      gexportsS gcall-with-serialization gcall-with-parallelization g parallelize  gset-current-module   g make-mutex gserialization-mutex g admin-mutex gowner g lock-mutex g dynamic-root g unlock-mutex gmake-syntax-transformer  ! "gmacro #g $sc-dispatch $# %# &g_ 'gany (&' )g syntax->datum *) +) ,g datum->syntax -, ., /glambda 0gsyntax-violation 10 20 3f-source expression failed to match any patternC5h`]4   54>"G4i5R4i5RRhX]4>"GNM45$64>"G4>"G45 Cgfilenamefice-9/serialize.scm F   G  H  I % I  $ I * N  + K  = L  O M  U M   W Ch@~]4>"GM45$" 4>"G6vgfilenamefice-9/serialize.scm P   Q  R %  R  R ' T  ( U  ? V   ? ChX]4>"GNM45$64>"G4>"G45 Cgfilenamefice-9/serialize.scm F   G  H  I % I  $ I * N  + K  = L  O M  U M   W Ch@~]4>"GM45$" 4>"G6vgfilenamefice-9/serialize.scm P   Q  R %  R  R ' T  ( U  ? V   ? Ch@~]4>"GM45$" 4>"G6vgfilenamefice-9/serialize.scm P   Q  R %  R  R ' T  ( U  ? V   ? Ch`] HOO4O>"GV4>X4O>"GCX4O>"GFgthunk  _g outer-owner  _gfilenamefice-9/serialize.scm C  D   E   _ gnamegcall-with-serializationCR4!"%(+./hc-13C[gforms gfilenamefice-9/serialize.scm X Y   Chg] 45L4?6_gargs  gv gfilenamefice-9/serialize.scm  X    C23h(e] 45$ O@6]gy  'gtmp 'gfilenamefice-9/serialize.scm X   ' C5RhH]4>"GNM45$ 4>"G"6~gfilenamefice-9/serialize.scm ^   _  `  a a  $ a ' c  ( d  C e   C ChP]4>"GM45$*4>"G4>"GM C6~gfilenamefice-9/serialize.scm g   h  i  i  i ! k  3 l  H m  P n   P ChH]4>"GNM45$ 4>"G"6~gfilenamefice-9/serialize.scm ^   _  `  a a  $ a ' c  ( d  C e   C ChP]4>"GM45$*4>"G4>"GM C6~gfilenamefice-9/serialize.scm g   h  i  i  i ! k  3 l  H m  P n   P ChP]4>"GM45$*4>"G4>"GM C6~gfilenamefice-9/serialize.scm g   h  i  i  i ! k  3 l  H m  P n   P Ch`] HOO4O>"GV4>X4O>"GCX4O>"GFgthunk  _g outer-owner  _gfilenamefice-9/serialize.scm [  \   ]   _ gnamegcall-with-parallelizationCR4!"%(+./hc-13C[gforms gfilenamefice-9/serialize.scm p q   Chg] 45L4?6_gargs  gv gfilenamefice-9/serialize.scm  p    C23h(e] 45$ O@6]gy  'gtmp 'gfilenamefice-9/serialize.scm p   ' C5RCgm  ,gfilenamefice-9/serialize.scm  7 - ?  6 ? 7 @  @ @ D A  C [   \ C62.0/ccache/ice-9/history.go000064400000005362151463412640011223 0ustar00GOOF----LE-8-2.0 ]+4hI] gguile  gdefine-module*   gice-9 ghistory  gfilenameS fice-9/history.scm gexportsS gvalue-history-enabled? genable-value-history! gdisable-value-history! gclear-value-history!    gset-current-module   g value-history  g*value-history-enabled?* g module-use! gcurrent-module gresolve-interface guse-value-history gresolve-module g unspecified? gstring->symbol g simple-format f$~A f~A =  !gmodule-define! "gmodule-export! #gsave-value-history $g add-hook! %gbefore-eval-hook &gbefore-print-hook 'g remove-hook! (g hash-clear! )gmodule-obarray *gmodule-public-interfaceC5hH]4   54>"G4i>"GRhf]C^gfilenamefice-9/history.scm     gnamegvalue-history-enabled?C Rh]45456gx  gfilenamefice-9/history.scm         "         gnameguse-value-historyCR 4i5H !"hp]45$CM44554>"G4L>"G4L>"GNCgv  mgc  mgs  # mgfilenamefice-9/history.scm $   %  %   &   &  '   ' $  ' 6 ! ' $ # '  # & & ( + (  2 ( ; ) Q * Z * $ _ * k +   m CO#R $%&#h@]45$C4>"G4>"G Cgfilenamefice-9/history.scm -  . .   0  " 1  8 2   : gnamegenable-value-history!C R '%&#h@]45$-4>"G4>"G CCgfilenamefice-9/history.scm 4  5  5  7  8  6 9   : gnamegdisable-value-history!CR()*h8]45445>"G44556ghistory 2gfilenamefice-9/history.scm ;  <   < ! <  <  =   =   =  % >  ( > ! 0 >  2 >   2 gnamegclear-value-history!CR i6gm  (gcount  6ghistory  6gfilenamefice-9/history.scm   )  /   4  @      #   # !  #   "  9 ! ( -  4 = ; C @   C C62.0/ccache/ice-9/channel.go000064400000012230151463412640011122 0ustar00GOOF----LE-8-2.0]H4h ] gguile  gdefine-module*   gice-9 gchannel  gfilenameS fice-9/channel.scm gexportsS gmake-object-channel g channel-open gchannel-print-value gchannel-print-token    gset-current-module   gmake-record-type gstdin gstdout gprinter g token-module  g channel-type grecord-constructor g make-channel gcurrent-input-port gcurrent-output-port g make-module grecord-accessor !g channel-stdin "gchannel-stdout #gchannel-printer $gchannel-token-module %gcatch &gchannel:prompt 'gread (g eof-object? )gthrow *gquit +geval ,g module-use! -gcurrent-module .gdestroy /gmodule-defined? 0gmodule-remove! 1g channel:error 2fInvalid token: ~S 3fUnknown command: ~S 4gformat 5fexception = ~S  6f value = ~S  7g symbol-append 8ggensym 9f%% :g%% ;gobject->string gdisplay ?f channel>  @g force-output AfERROR:  Bgapply Cgnewline Dg guile:eval Egprocedure-minimum-arity Fgdefined? Gf~SC5h8 ]4   54>"G4i5R4ii5Rh]4545456gprinter  gfilenamefice-9/channel.scm W  X  Y   [   X    gnamegmake-object-channelC R4 ii5!R4 ii5"R4 ii5#R4 ii5$R!"#$%&'()*+,-+./0123h]4L>"G4L545$4>"G"$>445L>"G4LL4 4L5455>"G" $K4L54 L5$4 L>"G"4 L>"G"5$4>"G"4 L>"GL6gcmd  gtoken gfilenamefice-9/channel.scm m   n  o   o  p  ( p ) q  - q  2 q  G r  H t  K t  V t  _ u  d u  g u # n u 0 t u  y u  r  w  w  x  x  y  z  z + z  r  |  |  |  ~  ~ '  ~    %   C*)45hH-13$64L4?>"GL6gkey Dgargs Dgfilenamefice-9/channel.scm          "  ( 0 , < 0  3  8 D  D Ch(]]LLLLLLOLLO6Ugfilenamefice-9/channel.scm k  ! l   ! gnamegloopChH])45454545OQ6gch  Fgstdin  Fgstdout   Fgprinter   Fg token-module   Fgloop  3 Fgfilenamefice-9/channel.scm f  g  h   i   j   g  3 k   F gnameg channel-openC R4"6h]456gch  gval  gfilenamefice-9/channel.scm       gnamegchannel-print-valueCR789:;4"<=$ hH;]445545445>"G 4 563gch  Hgval  Hgtoken   Hgpair   Hgfilenamefice-9/channel.scm     '   -             " * 1  <  H   H gnamegchannel-print-tokenCR>?@h ]4>"G6gport  gfilenamefice-9/channel.scm          gnamegchannel:promptC&R>AB4Ch@-134>"G4>"G6gport ;gmsg ;gargs  ;gfilenamefice-9/channel.scm       ;  ;  gnameg channel:errorC1R+iDR4EiDi5 $Dhm]6egx  ge  gfilenamefice-9/channel.scm    C"Di+R4Fi;5$;i"4Ghg]6_gx  gfilenamefice-9/channel.scm      C;RCgm  (gfilenamefice-9/channel.scm  H ) S  / S  1 S  3 S  6 R 7 U  D U  W  ]   ] 4 ! ]  $ ] % ^  / ^ 5 1 ^  4 ^ 5 _  ? _ 6 A _  D _ E `  O ` ; Q `  T ` o f D        2 *  4 C62.0/ccache/ice-9/syncase.go000064400000001450151463412640011161 0ustar00GOOF----LE-8-2.0]4h] gguile  gdefine-module*   gice-9 gsyncase  gfilenameS fice-9/syncase.scm gexportsS gdatum->syntax-object gsyntax-object->datum g sc-expand    gset-current-module   gissue-deprecation-warning fbSyntax-case macros are now a part of Guile core; importing (ice-9 syncase) is no longer necessary. g datum->syntax g syntax->datum g macroexpandC5hX~]4   54>"G4i>"Gi Ri RiRCvgm  (gfilenamefice-9/syncase.scm   )  /  4  C  J  Q    S C62.0/ccache/ice-9/popen.go000064400000052676151463412640010655 0ustar00GOOF----LE-8-2.0U]j4h,] gguile  gdefine-module*   gice-9 gpopen  gfilenameS fice-9/popen.scm gimportsS gthreads     gsrfi gsrfi-9    gexportsS gport/pid-table g open-pipe* g open-pipe g close-pipe gopen-input-pipe gopen-output-pipe gopen-input-output-pipe  gset-current-module   gload-extension !g string-append "f libguile- #geffective-version $fscm_init_popen %g  &g%make-pipe-info-procedure 'gmake-syntax-transformer (' )' *gmake-pipe-info +gmacro ,g $sc-dispatch -, ., /g_ 0gany 1/0 2g syntax-object 3glambda 4g m-18e47d61-4 5gtop 645 7gribcage 8g t-18e47d61-3 98 :6 ;f l-18e47d61-9 <; =79:< >7 ?gx @? Af l-18e47d61-6 BA C7@:B Dgshift Eg proc-name Fgargs GEF H5 IHH Jfl-1e8ba8b5a-60 Kfl-1e8ba8b5a-61 LJK M7GIL Ngkey Ogvalue Pgname Qgformals Rgbody SNOPQR THHHHH Ufl-1e8ba8b5a-53 Vfl-1e8ba8b5a-54 Wfl-1e8ba8b5a-55 Xfl-1e8ba8b5a-56 Yfl-1e8ba8b5a-57 ZUVWXY [7STZ \gmake-procedure-name ]\ ^H _fl-1e8ba8b5a-43 `_ a7]^` bH cfl-1e8ba8b5a-42 dc e7@bd f6=>CD>>>>M[ae  gghygiene hg i23fh jgpid kH=>C lg m2jkl nm og make-struct pg m-18e47d61-1 qp5 rgt-1e8ba8b5a-133 sgt-1e8ba8b5a-132 tgt-1e8ba8b5a-131 urst vgm-1e8ba8b5a-134 wv5 xwww yfl-1e8ba8b5a-138 zfl-1e8ba8b5a-139 {fl-1e8ba8b5a-13a |yz{ }7ux| ~g ctor-args ~ fl-1e8ba8b5a-120  7b gctor gfield  fl-1e8ba8b5a-11c fl-1e8ba8b5a-11d  7I gform g type-name gconstructor-spec g field-names  HHHH fl-1e8ba8b5a-111 fl-1e8ba8b5a-112 fl-1e8ba8b5a-113 fl-1e8ba8b5a-114  7 g record-layout gfunctional-setters gsetters gcopier ggetters g constructor ggetter-identifiers gfield-identifiers  HHHHHHHH fl-1e8ba8b5a-e9 fl-1e8ba8b5a-e7 fl-1e8ba8b5a-e5 fl-1e8ba8b5a-e3 fl-1e8ba8b5a-e1 fl-1e8ba8b5a-df fl-1e8ba8b5a-dd fl-1e8ba8b5a-db  7 fl-1e8ba8b5a-da  7@b q=>CD>}>>>> 2oh 2%kl 2 h m in geach-any / gsyntax-violation   fWrong number of arguments g identifier?   H>C 2&l   f-source expression failed to match any pattern grecord-type-vtable   gpw gdefault-record-printer   j gset-struct-vtable-name!   gvtable-offset-user   g%pipe-info?-procedure g pipe-info? g m-18e47d61-11 5 g t-18e47d61-10   f l-18e47d61-16  7 f l-18e47d61-13  7@ >D>>>>M[ae  23h gobj gt-1e8ba8b5a-224 gt-1e8ba8b5a-21e gt-1e8ba8b5a-21f gt-1e8ba8b5a-220 gt-1e8ba8b5a-223 gt-1e8ba8b5a-222 gt-1e8ba8b5a-221  gm-1e8ba8b5a-225 5  fl-1e8ba8b5a-229 fl-1e8ba8b5a-22a fl-1e8ba8b5a-22b fl-1e8ba8b5a-22c fl-1e8ba8b5a-22d fl-1e8ba8b5a-22e fl-1e8ba8b5a-22f  7 g copier-id  fl-1e8ba8b5a-21c  7b g ctor-name  fl-1e8ba8b5a-214  7b  fl-1e8ba8b5a-212  7b glayout  fl-1e8ba8b5a-210  7b g immutable?  fl-1e8ba8b5a-20e    7b   g field-count     fl-1e8ba8b5a-20c   7 b g getter-ids  fl-1e8ba8b5a-209  7b g field-ids  fl-1e8ba8b5a-206  7b gpredicate-name g field-spec  HHHHHH fl-1e8ba8b5a-1f9 fl-1e8ba8b5a-1fa  fl-1e8ba8b5a-1fb !fl-1e8ba8b5a-1fc "fl-1e8ba8b5a-1fd #fl-1e8ba8b5a-1fe $ !"# %7$ &q>D>>>>>>>>> >>>% '2&h (' )gand *2)&h +gstruct? ,2+&h -,' .geq? /2.&h 0g struct-vtable 120&h 21' 3H> 42%3l 5/24 6*-5 7(6 8H> 928l :gthrow-bad-struct ;: <: =g pipe-info-pid >g%pipe-info-pid-procedure ?gfree-id @g %%on-error Ag m-18e47d61-1d BA5 CB Df l-18e47d61-1f ED F7@CE GB>FD>>>>M[ae  H2@Gh I?H JI0 Kg%%type Lgt-1e8ba8b5a-14b Mgt-1e8ba8b5a-14c Ngt-1e8ba8b5a-14d Ogt-1e8ba8b5a-14e Pgt-1e8ba8b5a-14f Qgt-1e8ba8b5a-150 Rgt-1e8ba8b5a-151 SLMNOPQR Tgm-1e8ba8b5a-152 UT5 VUUUUUUU Wfl-1e8ba8b5a-156 Xfl-1e8ba8b5a-157 Yfl-1e8ba8b5a-158 Zfl-1e8ba8b5a-159 [fl-1e8ba8b5a-15a \fl-1e8ba8b5a-15b ]fl-1e8ba8b5a-15c ^WXYZ[\] _7SV^ `ggetter agindex b`a cfl-1e8ba8b5a-149 dfl-1e8ba8b5a-14a ecd f7bIe g hHHH ifl-1e8ba8b5a-144 jfl-1e8ba8b5a-145 kfl-1e8ba8b5a-146 lijk m7ghl nq>FD>_>>>f>m o2Knh p?o q/Jp0 rgck sgerr tgs ust vBB wf l-18e47d61-22 xf l-18e47d61-23 ywx z7uvy {Bz>FD>>>>M[ae  |2r{h }gquote ~2}{h Hz>F 2%l ~  g%%index 2nh ? /J0 f l-18e47d61-27 f l-18e47d61-28  7uv B>FD>>>>M[ae  2rh 2}h >F 2 l   g%%copier 2nh ? /J0 f l-18e47d61-2c f l-18e47d61-2d  7uv B>FD>>>>M[ae  2rh 2}h g%%-set-fields H>F 2l   g t-18e47d61-1c  f l-18e47d61-31  7C B>FD>>>>M[ae  23h q>FD>_>>>f>m 2th  gif 2h 2.h 20h  H>F 2%l  g struct-ref 2h >F 2 l  2:h 2}h 2=l     H>F 2>l geach 00  0Č 0Ō 0ƌ g %%set-fields gdummy gcheck? gexpr t` g m-18e47d61-38 5 qqqq f l-18e47d61-3d f l-18e47d61-3e f l-18e47d61-3f f l-18e47d61-40 f l-18e47d61-41  7  f l-18e47d61-3a  7@ gt-1e8ba8b5a-16a gt-1e8ba8b5a-16c gt-1e8ba8b5a-16b  gm-1e8ba8b5a-16d 5  fl-1e8ba8b5a-171 fl-1e8ba8b5a-172 fl-1e8ba8b5a-173  7 fl-1e8ba8b5a-167 fl-1e8ba8b5a-168 fl-1e8ba8b5a-169  7gh q>D>>>>  2h H> 2%l 2=l  gmap   glist gset-pipe-info-pid! g%set-pipe-info-pid!-procedure /00 g m-18e47d61-4c 5 g t-18e47d61-4a g t-18e47d61-4b   f l-18e47d61-51 f l-18e47d61-52  7  f l-18e47d61-4e  7@ >D>>>>M[ae  23h  gt-1e8ba8b5a-18c  gt-1e8ba8b5a-18d      gm-1e8ba8b5a-18e   5    fl-1e8ba8b5a-192 fl-1e8ba8b5a-193  7  gsetter P` fl-1e8ba8b5a-186 fl-1e8ba8b5a-187 fl-1e8ba8b5a-188  7h a fl-1e8ba8b5a-17d fl-1e8ba8b5a-17e  7I g field-specs   !fl-1e8ba8b5a-179 "fl-1e8ba8b5a-17a #!" $7 I# %q>D>>>$ &2t%h 'gval (2'%h )&( *2%h +2.%h ,20%h -,& .H> /2%.l 0+-/ 1g struct-set! 221%h 3> 42 3l 52&4( 62:%h 72}%h 82.l 978 :6&9 ;*05: <); =H> >2=l ?gmake-soft-port @g write-char Agdisplay Bg force-output Cg read-char Dg close-port Efr+ Fg make-rw-port Gg make-guardian Hg pipe-guardian Igmake-weak-key-hash-table Jg make-mutex Kgport/pid-table-mutex Lgapply Mg open-process Ng%make-void-port Og%set-port-property! Pgpopen-pipe-info Qg lock-mutex R Q S Q Tg unlock-mutex U T V T Wg hashq-set! Xf/bin/sh Yf-c Zg%port-property [gfetch-pipe-info \gwaitpid ]g close-process ^gerror _f-close-pipe: port not created by (ice-9 popen) `f(close-pipe: pid has already been cleared agcatch bg system-error cgWNOHANG dg reap-pipes eg add-hook! fg after-gc-hook gg OPEN_READ hg OPEN_WRITE ig OPEN_BOTHC5h@%4]4   54>"G4 i4!i"4#i55$>"G%hy]Cqgpid  gfilenamefice-9/popen.scm    gnameg%make-pipe-info-procedureC&R4)*+.1h4]C,g t-18e47d61-3    C*hR]L6Jga  gfilenamefice-9/popen.scm     C/hB]L6:gfilenamefice-9/popen.scm      Ch]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/popen.scm    n C5*R%Ȩ4%>"G Ζ&i%R%hu]$CCmgobj  gfilenamefice-9/popen.scm     gnameg%pipe-info?-procedureCR4)+.17h5]C-g t-18e47d61-10    ChR]L6Jga  gfilenamefice-9/popen.scm     C/hB]L6:gfilenamefice-9/popen.scm      C9h]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/popen.scm    n C5R%<=hv]& C6ngs  gfilenamefice-9/popen.scm     gnameg%pipe-info-pid-procedureC>R4)=+.q|h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    C1h5]C-g t-18e47d61-1c    C=hR]L6Jga  gfilenamefice-9/popen.scm     C/hB]L6:gfilenamefice-9/popen.scm      Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefice-9/popen.scm    C5=R4)+.h v]45Cngdummy  gcheck?  gs   ggetter   gexpr      Ch(] 45$@6gx  "gtmp "gfilenamefice-9/popen.scm    " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5R%<h ]& C6gs  gval  gfilenamefice-9/popen.scm     gnameg%set-pipe-info-pid!-procedureCR4)+.<hP]CHg t-18e47d61-4a  g t-18e47d61-4b    ChR]L6Jga  gfilenamefice-9/popen.scm     C/hB]L6:gfilenamefice-9/popen.scm      C>h]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/popen.scm    n C5R?@hZ]L6Rgc  gfilenamefice-9/popen.scm &  &   CAhZ]L6Rgs  gfilenamefice-9/popen.scm '  '   CBhJ]L6Bgfilenamefice-9/popen.scm (   (    CChJ]L6Bgfilenamefice-9/popen.scm )   )    CDh R]4L>"GL6Jgfilenamefice-9/popen.scm *   *   * &   CEh0]OOOOO6g read-port  0g write-port  0gfilenamefice-9/popen.scm # , %  . +  0 $   0 gnameg make-rw-portCFR4Gi5HR4Ii 5R4Ji5KRLMFN%HOPKShB]L6:gfilenamefice-9/popen.scm O    CVhB]L6:gfilenamefice-9/popen.scm O    CWh-13 4> G$$ 45""$"$"$"454>"G4>"G  O O4 O>"GV4  >"GX4 O>"GCgmode gcommand gargs  g read-port   g write-port   gpid   gt  B rgport  y g pipe-info  y gx   gfilenamefice-9/popen.scm 7 ?   >  ) A  0 B  B A  i E  y F  y A  ~ K  L  L " L  O  P O   gnameg open-pipe*g documentationf[Executes the program @var{command} with optional arguments @var{args} (all strings) in a subprocess. A port to the process (based on pipes) is created and returned. @var{mode} specifies whether an input, an output or an input-output port to the process is created: it should be the value of @code{OPEN_READ}, @code{OPEN_WRITE} or @code{OPEN_BOTH}.CRXYh]6gcommand  gmode  gfilenamefice-9/popen.scm T  Z  Z   Z    gnameg open-pipeg documentationf;Executes the shell command @var{command} (a string) in a subprocess. A port to the process (based on pipes) is created and returned. @var{mode} specifies whether an input, an output or an input-output port to the process is created: it should be the value of @code{OPEN_READ}, @code{OPEN_WRITE} or @code{OPEN_BOTH}.CRZPh]6xgport  gfilenamefice-9/popen.scm \  ]  ]   gnamegfetch-pipe-infoC[RD\h ]4>"G45Cgport  gpid  gfilenamefice-9/popen.scm _  `   a   a    gnameg close-processC]R[^_%<=`] h]45$"4>"G& " 45$"4>"G&  "4>"G 6gp  g pipe-info gpid  A gfilenamefice-9/popen.scm c  g  g   h   i   i  i  * j  A j  I k  N l  R l  W l  b n  o   gnameg close-pipeg documentationfCloses the pipe created by @code{open-pipe}, then waits for the process to terminate and returns its status value, @xref{Processes, waitpid}, for information on how to interpret this value.CRH%<=ab\cH%<h8]4L5 $L6L&L CL6g pid/status 3gfilenamefice-9/popen.scm }   ~ " ~                3 ChX-13CPgargs gfilenamefice-9/popen.scm  C hh]"Y45$J& " 45$!4O>"G""C"g pipe-info _gpid - Ygfilenamefice-9/popen.scm q  r   s  s   t   u  - u  5 w 6 | : |  J | ]  _ r   c gnameg reap-pipesCdR4eifidi>"Ggh]6gcommand  gfilenamefice-9/popen.scm   gnamegopen-input-pipeg documentationf9Equivalent to @code{open-pipe} with mode @code{OPEN_READ}CRhh]6gcommand  gfilenamefice-9/popen.scm   gnamegopen-output-pipeg documentationf:Equivalent to @code{open-pipe} with mode @code{OPEN_WRITE}CRih]6gcommand  gfilenamefice-9/popen.scm   gnamegopen-input-output-pipeg documentationf9Equivalent to @code{open-pipe} with mode @code{OPEN_BOTH}CRC,gm  ,grtd } gfilenamefice-9/popen.scm   -   2   8  ! 9  - A   C   H     #  /  " / # 4  / 4 0 5  ; 5 A 7 S T  \  _ b c "5 q "6 #G $A %>   %@ C62.0/ccache/ice-9/r4rs.go000064400000026604151463412640010416 0ustar00GOOF----LE-8-2.0l-]'4ho] gapply:nconc2last gapply gcall-with-current-continuation gcall-with-values g dynamic-wind fr g OPEN_READ fw g OPEN_WRITE fr+ g OPEN_BOTH f /dev/null g *null-device* g open-file gopen-input-file gopen-output-file g open-io-file gclose-input-port gcall-with-input-file gclose-output-port gcall-with-output-file gset-current-input-port gwith-input-from-port gset-current-output-port gwith-output-to-port gset-current-error-port gwith-error-to-port gwith-input-from-file gwith-output-to-file gwith-error-to-file gcall-with-input-string gwith-input-from-string !gcall-with-output-string "gwith-output-to-string #gwith-error-to-string $f %g read-char &gthe-eof-objectC5hh(B]h-1345@gfun gargs gfilenamefice-9/r4rs.scm ! "   "   gnamegapplyCRh]B~gproc  gfilenamefice-9/r4rs.scm #  $    gnamegcall-with-current-continuationCRh]4>6<gproducer  gconsumer  gfilenamefice-9/r4rs.scm %  &    gnamegcall-with-valuesCRhH}]4>"GV4>X4>"GCX4>"GFugin  Cgthunk  Cgout   Cgfilenamefice-9/r4rs.scm '  Y   Y  ! Y   C gnameg dynamic-windg documentationfAll three arguments must be 0-argument procedures. Guard @var{in} is called, then @var{thunk}, then guard @var{out}. If, any time during the execution of @var{thunk}, the continuation of the @code{dynamic_wind} expression is escaped non-locally, @var{out} is called. If the continuation of the dynamic-wind is re-entered, @var{in} is called. Thus @var{in} and @var{out} may be called any number of times. @lisp (define x 'normal-binding) @result{} x (define a-cont (call-with-current-continuation (lambda (escape) (let ((old-x x)) (dynamic-wind ;; in-guard: ;; (lambda () (set! x 'special-binding)) ;; thunk ;; (lambda () (display x) (newline) (call-with-current-continuation escape) (display x) (newline) x) ;; out-guard: ;; (lambda () (set! x old-x))))))) ;; Prints: special-binding ;; Evaluates to: @result{} a-cont x @result{} normal-binding (a-cont #f) ;; Prints: special-binding ;; Evaluates to: @result{} a-cont ;; the value of the (define a-cont...) x @result{} normal-binding a-cont @result{} special-binding @end lispCRR R  R  Rh2]6*gstr  gfilenamefice-9/r4rs.scm t x   gnamegopen-input-fileg documentationfTakes a string naming an existing file and returns an input port capable of delivering characters from the file. If the file cannot be opened, an error is signalled.CR h]6gstr  gfilenamefice-9/r4rs.scm z    gnamegopen-output-fileg documentationfTakes a string naming an output file to be created and returns an output port capable of writing characters to a new file by that name. If the file cannot be opened, an error is signalled. If a file with the given name already exists, the effect is unspecified.CR h]6gstr  gfilenamefice-9/r4rs.scm   gnameg open-io-fileg documentationf2Open file with name STR for both input and output.CRh88]454> G4>"GE0gstr  1gproc  1gp  1gvals   1gfilenamefice-9/r4rs.scm        1   1 gnamegcall-with-input-fileg documentationfEPROC should be a procedure of one argument, and STR should be a string naming a file. The file must already exist. These procedures call PROC with one argument: the port obtained by opening the named file for input or output. If the file cannot be opened, an error is signalled. If the procedure returns, then the port is closed automatically and the values yielded by the procedure are returned. If the procedure does not return, then the port will not be closed automatically unless it is possible to prove that the port will never again be used for a read or write operation.CRh8V]454> G4>"GENgstr  1gproc  1gp  1gvals   1gfilenamefice-9/r4rs.scm        1   1 gnamegcall-with-output-fileg documentationfbPROC should be a procedure of one argument, and STR should be a string naming a file. The behaviour is unspecified if the file already exists. These procedures call PROC with one argument: the port obtained by opening the named file for input or output. If the file cannot be opened, an error is signalled. If the procedure returns, then the port is closed automatically and the values yielded by the procedure are returned. If the procedure does not return, then the port will not be closed automatically unless it is possible to prove that the port will never again be used for a read or write operation.CRhi]4M5NCagfilenamefice-9/r4rs.scm   )   gnamegswaportsChX] HOQ4>"GV4>X4>"GCX4>"GFgport  Tgthunk  Tgswaports   Tgfilenamefice-9/r4rs.scm      T gnamegwith-input-from-portCRhi]4M5NCagfilenamefice-9/r4rs.scm   )   gnamegswaportsChX] HOQ4>"GV4>X4>"GCX4>"GFgport  Tgthunk  Tgswaports   Tgfilenamefice-9/r4rs.scm      T gnamegwith-output-to-portCRhi]4M5NCagfilenamefice-9/r4rs.scm   )   gnamegswaportsChX] HOQ4>"GV4>X4>"GCX4>"GFgport  Tgthunk  Tgswaports   Tgfilenamefice-9/r4rs.scm      T gnamegwith-error-to-portCRh[]L6Sgp  gfilenamefice-9/r4rs.scm    Ch]O6gfile  gthunk  gfilenamefice-9/r4rs.scm     gnamegwith-input-from-fileg documentationf THUNK must be a procedure of no arguments, and FILE must be a string naming a file. The file must already exist. The file is opened for input, an input port connected to it is made the default value returned by `current-input-port', and the THUNK is called with no arguments. When the THUNK returns, the port is closed and the previous default is restored. Returns the values yielded by THUNK. If an escape procedure is used to escape from the continuation of these procedures, their behavior is implementation dependent.CRh[]L6Sgp  gfilenamefice-9/r4rs.scm    Ch]O6gfile  gthunk  gfilenamefice-9/r4rs.scm     gnamegwith-output-to-fileg documentationf*THUNK must be a procedure of no arguments, and FILE must be a string naming a file. The effect is unspecified if the file already exists. The file is opened for output, an output port connected to it is made the default value returned by `current-output-port', and the THUNK is called with no arguments. When the THUNK returns, the port is closed and the previous default is restored. Returns the values yielded by THUNK. If an escape procedure is used to escape from the continuation of these procedures, their behavior is implementation dependent.CRh[]L6Sgp  gfilenamefice-9/r4rs.scm    Ch]O6gfile  gthunk  gfilenamefice-9/r4rs.scm     gnamegwith-error-to-fileg documentationf)THUNK must be a procedure of no arguments, and FILE must be a string naming a file. The effect is unspecified if the file already exists. The file is opened for output, an output port connected to it is made the default value returned by `current-error-port', and the THUNK is called with no arguments. When the THUNK returns, the port is closed and the previous default is restored. Returns the values yielded by THUNK. If an escape procedure is used to escape from the continuation of these procedures, their behavior is implementation dependent.CRh[]L6Sgp  gfilenamefice-9/r4rs.scm    Ch#]O6gstring  gthunk  gfilenamefice-9/r4rs.scm     gnamegwith-input-from-stringg documentationfxTHUNK must be a procedure of no arguments. The test of STRING is opened for input, an input port connected to it is made, and the THUNK is called with no arguments. When the THUNK returns, the port is closed. Returns the values yielded by THUNK. If an escape procedure is used to escape from the continuation of these procedures, their behavior is implementation dependent.C R!h[]L6Sgp  gfilenamefice-9/r4rs.scm    Ch]O6gthunk  gfilenamefice-9/r4rs.scm   gnamegwith-output-to-stringg documentationf/Calls THUNK and returns its output as a string.C"R!h[]L6Sgp  gfilenamefice-9/r4rs.scm    Ch]O6gthunk  gfilenamefice-9/r4rs.scm   gnamegwith-error-to-stringg documentationf5Calls THUNK and returns its error output as a string.C#R4i$%h[]6Sgp  gfilenamefice-9/r4rs.scm 2  >   C5&RC:gfilenamefice-9/r4rs.scm ! Y #  %  '  n   n  o   o  p   p  r   r M t  z s   j  g  "I % &p ' '  ' / (]  (`   (b C62.0/ccache/ice-9/vlist.go000064400000237116151463412640010667 0ustar00GOOF----LE-8-2.06>]4hz] gguile  gdefine-module*   gice-9 gvlist  gfilenameS fice-9/vlist.scm gimportsS gsrfi gsrfi-1     gsrfi-9    ggnu    gsrfi-26    gformat    gexportsS gvlist? g vlist-cons g vlist-head !g vlist-tail "g vlist-null? #g vlist-null $g list->vlist %g vlist-ref &g vlist-drop 'g vlist-take (g vlist-length )g vlist-fold *gvlist-fold-right +g vlist-map ,g vlist-unfold -gvlist-unfold-right .g vlist-append /g vlist-reverse 0g vlist-filter 1g vlist-delete 2g vlist->list 3gvlist-for-each 4gblock-growth-factor 5gvhash? 6g vhash-cons 7g vhash-consq 8g vhash-consv 9g vhash-assoc :g vhash-assq ;g vhash-assv g vhash-delv ?g vhash-fold @gvhash-fold-right Ag vhash-fold* Bg vhash-foldq* Cg vhash-foldv* Dg alist->vhash E !"#$%&'()*+,-./0123456789:;<=>?@ABCD' Fgset-current-module GF HF Ig make-fluid Jg make-vector Kg% make-block-procedure Lgmake-syntax-transformer ML NL Og make-block Pgmacro Qg $sc-dispatch RQ SQ Tg_ Ugany VTUUUU Wg syntax-object Xgsyntax-parameterize Ygm-198d9e0d-123b Zgtop [YZ \gribcage ]gt-198d9e0d-1237 ^gt-198d9e0d-1238 _gt-198d9e0d-1239 `gt-198d9e0d-123a a]^_` b[[[[ cfl-198d9e0d-1240 dfl-198d9e0d-1241 efl-198d9e0d-1242 ffl-198d9e0d-1243 gcdef h\abg i\ jgx kj l[ mfl-198d9e0d-123d nm o\kln pgshift qg proc-name rgargs sqr tZ utt vf l-bde397a-8e8 wf l-bde397a-8e9 xvw y\sux zgname {gformals |gbody }z{| ~ttt f l-bde397a-8df f l-bde397a-8e0 f l-bde397a-8e1  \}~ gmake-procedure-name gprefix  tt f l-bde397a-8d3 f l-bde397a-8d1  \ t f l-bde397a-8d0  \k [hiopiiiiy  ghygiene  WX thio  WO gidentifier-syntax W WK    glambda W gbase W goffset W gsize W g hash-tab? W  gif W gvector W WJ g* W W   W  W        geach-any T gsyntax-violation   fWrong number of arguments g identifier?   tio WK f-source expression failed to match any pattern gdefine-block-accessor UUU gdefine-inlinable gdummy gindex z gm-198d9e0d-1262 Z tt fl-198d9e0d-1267 fl-198d9e0d-1268 fl-198d9e0d-1269  \  fl-198d9e0d-1264  \k ti W gblock W  g vector-ref W g% block-content-procedure g block-content TU gm-198d9e0d-126f Z gt-198d9e0d-126e   fl-198d9e0d-1274  \ fl-198d9e0d-1271  \k ipiiiiy  WX ti W W W    W gm-198d9e0d-126d Z ipi W  W W     ti W g% block-base-procedure g block-base gm-198d9e0d-128b Z gt-198d9e0d-128a     fl-198d9e0d-1290     \    fl-198d9e0d-128d   \k   ipiiiiy  WX t i W W W    W gm-198d9e0d-1289 Z  ipi W  W  W  !  "! #" $ti %W$ &g% block-offset-procedure 'g block-offset (gm-198d9e0d-12a7 )(Z *gt-198d9e0d-12a6 +* ,) -fl-198d9e0d-12ac .- /\+,. 0fl-198d9e0d-12a9 10 2\k,1 3)/i2piiiiy  4WX3 5t/i2 6W'5 7W3 8W&5 978 :69 ;: <W3 =gm-198d9e0d-12a5 >=Z ?>/i2pi @W? A@ BW? CW 5 DB@C E<AD F4;E Gti2 HW&G Ig% block-size-procedure Jg block-size Kgm-198d9e0d-12c3 LKZ Mgt-198d9e0d-12c2 NM OL Pfl-198d9e0d-12c8 QP R\NOQ Sfl-198d9e0d-12c5 TS U\kOT VLRiUpiiiiy  WWXV XtRiU YWJX ZWV [WIX \Z[ ]Y\ ^] _WV `gm-198d9e0d-12c1 a`Z baRiUpi cWb dc eWb fW X gecf h_dg iW^h jtiU kWIj lg% block-next-free-procedure mgblock-next-free ngm-198d9e0d-12df onZ pgt-198d9e0d-12de qp ro sfl-198d9e0d-12e4 ts u\qrt vfl-198d9e0d-12e1 wv x\krw youixpiiiiy  zWXy {tuix |Wm{ }Wy ~Wl{ }~ |  Wy gm-198d9e0d-12dd Z uixpi W  W W {   z tix Wl g vector-length g% block-hash-table?-procedure gblock-hash-table? gm-198d9e0d-12fa Z gt-198d9e0d-12f9   fl-198d9e0d-12ff  \ fl-198d9e0d-12fc  \k ipiiiiy  WX ti W W W    W W  g< W WJ  W W      ti W g % set-block-next-free!-procedure gset-block-next-free! TUU gm-198d9e0d-1336 Z gt-198d9e0d-1334 gt-198d9e0d-1335   fl-198d9e0d-133b fl-198d9e0d-133c  \  fl-198d9e0d-1338  \k ipiiiiy  WX ti W W W    W W g next-free W  g vector-set! W W     ti W g% block-append!-procedure g block-append! TUUU gm-198d9e0d-1357 Z gt-198d9e0d-1354 gt-198d9e0d-1355 gt-198d9e0d-1356   fl-198d9e0d-135c fl-198d9e0d-135d fl-198d9e0d-135e  \  fl-198d9e0d-1359  \k ipiiiiy  WX ti W W W    W W gvalue W W  gand W W WJ   g= W Wm     gbegin  W   W  g1+ W     W W   W       ti W g% block-ref-procedure g block-ref gm-198d9e0d-13c0 Z  gt-198d9e0d-13be !gt-198d9e0d-13bf " ! # $fl-198d9e0d-13c5 %fl-198d9e0d-13c6 &$% '\"#& ( )fl-198d9e0d-13c2 *) +\k(* ,'i+piiiiy  -WX, .t'i+ /W. 0W, 1W. 201 3/2 43 5W, 6gcontent 7W6. 8W. 978 :W. ;:78 <59; =-4< >ti+ ?W> @g(% block-hash-table-next-offset-procedure Agblock-hash-table-next-offset Bgm-198d9e0d-13e1 CBZ Dgt-198d9e0d-13de Egt-198d9e0d-13df Fgt-198d9e0d-13e0 GDEF HCCC Ifl-198d9e0d-13e6 Jfl-198d9e0d-13e7 Kfl-198d9e0d-13e8 LIJK M\GHL NC Ofl-198d9e0d-13e3 PO Q\kNP RCMiQpiiiiy  SWXR TtMiQ UWAT VWR WW@T XVW YUX ZY [WR \W6T ]WT ^WT _\]^ `WT ag+ bWaT cb]]^ d`\c e[_d fSZe gtiQ hW@g ig-% block-hash-table-set-next-offset!-procedure jg!block-hash-table-set-next-offset! kgm-198d9e0d-1407 lkZ mgt-198d9e0d-1403 ngt-198d9e0d-1404 ogt-198d9e0d-1405 pgt-198d9e0d-1406 qmnop rllll sfl-198d9e0d-140c tfl-198d9e0d-140d ufl-198d9e0d-140e vfl-198d9e0d-140f wstuv x\qrw yl zfl-198d9e0d-1409 {z |\ky{ }lxi|piiiiy  ~WX} txi| Wj W} Wi    W} W6 W W g next-offset W  W Wa    ~ ti| Wi g % block-hash-table-ref-procedure gblock-hash-table-ref gm-198d9e0d-1430 Z gt-198d9e0d-142d gt-198d9e0d-142e gt-198d9e0d-142f   fl-198d9e0d-1435 fl-198d9e0d-1436 fl-198d9e0d-1437  \  fl-198d9e0d-1432  \k ipiiiiy  WX ti W W W    W W6 W gkhash W  W Wa     ti W g!% block-hash-table-set!-procedure gblock-hash-table-set! gm-198d9e0d-1456 Z gt-198d9e0d-1452 gt-198d9e0d-1453 gt-198d9e0d-1454 gt-198d9e0d-1455   fl-198d9e0d-145b fl-198d9e0d-145c fl-198d9e0d-145d fl-198d9e0d-145e  \  fl-198d9e0d-1458  \k ipiiiiy  WX ti W W W    W W6 W W W  W Wa     ti W g!% block-hash-table-add!-procedure gblock-hash-table-add! gm-198d9e0d-1480 Z gt-198d9e0d-147c gt-198d9e0d-147d gt-198d9e0d-147e gt-198d9e0d-147f   fl-198d9e0d-1485 fl-198d9e0d-1486 fl-198d9e0d-1487 fl-198d9e0d-1488  \  fl-198d9e0d-1482  \k ipiiiiy  WX ti W W W    W W6 W  W  W      Wj  W       W       ti W g block-null g g%make-vlist-procedure g make-vlist gm-198d9e0d-1501 Z gt-198d9e0d-14ff gt-198d9e0d-1500    fl-198d9e0d-1506 !fl-198d9e0d-1507 " ! #\" $ %fl-198d9e0d-1503 &% '\k$& (fl-1e8ba8b5a-60 )fl-1e8ba8b5a-61 *() +\su* ,gkey -,z{| .ttttt /fl-1e8ba8b5a-53 0fl-1e8ba8b5a-54 1fl-1e8ba8b5a-55 2fl-1e8ba8b5a-56 3fl-1e8ba8b5a-57 4/0123 5\-.4 6 7t 8fl-1e8ba8b5a-43 98 :\679 ;fl-1e8ba8b5a-42 <; =\k< >#i'piiii+5:=  ?  @W>? At#i' BWA CWA DBC Eg make-struct Fgm-198d9e0d-14fd GFZ Hgt-1e8ba8b5a-133 Igt-1e8ba8b5a-132 Jgt-1e8ba8b5a-131 KHIJ Lgm-1e8ba8b5a-134 MLZ NMMM Ofl-1e8ba8b5a-138 Pfl-1e8ba8b5a-139 Qfl-1e8ba8b5a-13a ROPQ S\KNR Tg ctor-args UT Vfl-1e8ba8b5a-120 WV X\UW Ygctor Zgfield [YZ \fl-1e8ba8b5a-11c ]fl-1e8ba8b5a-11d ^\] _\[u^ `gform ag type-name bgconstructor-spec cg field-names d`abc etttt ffl-1e8ba8b5a-111 gfl-1e8ba8b5a-112 hfl-1e8ba8b5a-113 ifl-1e8ba8b5a-114 jfghi k\dej lg record-layout mgfunctional-setters ngsetters ogcopier pggetters qg constructor rggetter-identifiers sgfield-identifiers tlmnopqrs utttttttt vfl-1e8ba8b5a-e9 wfl-1e8ba8b5a-e7 xfl-1e8ba8b5a-e5 yfl-1e8ba8b5a-e3 zfl-1e8ba8b5a-e1 {fl-1e8ba8b5a-df |fl-1e8ba8b5a-dd }fl-1e8ba8b5a-db ~vwxyz{|} \tu~ fl-1e8ba8b5a-da  \k G#i'piSiiiX_ik WE? WA W ? BC @D     ti' W grecord-type-vtable   gpwpw gdefault-record-printer    gset-struct-vtable-name!   gvtable-offset-user   g%vlist?-procedure gm-198d9e0d-1510 Z gt-198d9e0d-150f   fl-198d9e0d-1515  \ fl-198d9e0d-1512  \k ipiiii+5:=  W? gobj gt-1e8ba8b5a-224 gt-1e8ba8b5a-21e gt-1e8ba8b5a-21f gt-1e8ba8b5a-220 gt-1e8ba8b5a-223 gt-1e8ba8b5a-222 gt-1e8ba8b5a-221  gm-1e8ba8b5a-225 Z  fl-1e8ba8b5a-229 fl-1e8ba8b5a-22a fl-1e8ba8b5a-22b fl-1e8ba8b5a-22c fl-1e8ba8b5a-22d fl-1e8ba8b5a-22e fl-1e8ba8b5a-22f  \ g copier-id  fl-1e8ba8b5a-21c  \ g ctor-name  fl-1e8ba8b5a-214  \ c fl-1e8ba8b5a-212  \ glayout  fl-1e8ba8b5a-210  \ g immutable?  fl-1e8ba8b5a-20e  \ g field-count  fl-1e8ba8b5a-20c  \ g getter-ids  fl-1e8ba8b5a-209  \ g field-ids  fl-1e8ba8b5a-206  \ gpredicate-name g field-spec `ab tttttt fl-1e8ba8b5a-1f9 fl-1e8ba8b5a-1fa fl-1e8ba8b5a-1fb fl-1e8ba8b5a-1fc fl-1e8ba8b5a-1fd fl-1e8ba8b5a-1fe  \ Gipiiiiiiiiiiii W?  W? gstruct? W?  geq? W? g struct-vtable W?  ti W    ti W gthrow-bad-struct    g vlist-base  g%vlist-base-procedure  gfree-id  g %%on-error  gm-198d9e0d-151c  Z  fl-198d9e0d-151e  \k ipiiii+5:=  W ?   U g%%type gt-1e8ba8b5a-14b gt-1e8ba8b5a-14c gt-1e8ba8b5a-14d gt-1e8ba8b5a-14e gt-1e8ba8b5a-14f gt-1e8ba8b5a-150 gt-1e8ba8b5a-151   gm-1e8ba8b5a-152 ! Z "!!!!!!! #fl-1e8ba8b5a-156 $fl-1e8ba8b5a-157 %fl-1e8ba8b5a-158 &fl-1e8ba8b5a-159 'fl-1e8ba8b5a-15a (fl-1e8ba8b5a-15b )fl-1e8ba8b5a-15c *#$%&'() +\"* ,ggetter -, .fl-1e8ba8b5a-149 /fl-1e8ba8b5a-14a 0./ 1\-u0 2a 3fl-1e8ba8b5a-144 4fl-1e8ba8b5a-145 5fl-1e8ba8b5a-146 6345 7\2~6 8Gipi+iii1i7 9W8? : 9 ;T:U gs ?=> @ Afl-198d9e0d-1521 Bfl-198d9e0d-1522 CAB D\?@C EDipiiii+5:=  FW<E? Ggquote HWGE? ItDi JWI KHJ LK Mg%%index NWM8? O N PTOU Qfl-198d9e0d-1526 Rfl-198d9e0d-1527 SQR T\?@S UTipiiii+5:=  VW<U? WWGU? XTi YW X ZWY [Z \g%%copier ]W\8? ^ ] _T^U `fl-198d9e0d-152b afl-198d9e0d-152c b`a c\?@b dcipiiii+5:=  eW<d? fWGd? gg%%-set-fields htci iWgh jfi kj lgt-198d9e0d-151b ml nfl-198d9e0d-1530 on p\mo qpipiiii+5:=  rWq? sGpipi+iii1i7 tW>s? ut vWs? wWs? xWs? yxt ztpi {Wz |wy{ }g struct-ref ~W}s? pi W  ~t Ws? WGs? W z  t v| ru ti W  g vlist-offset g%vlist-offset-procedure gm-198d9e0d-1537 Z  fl-198d9e0d-1539  \k ipiiii+5:=  W ?   U Gipi+iii1i7 W?   TU  fl-198d9e0d-153c fl-198d9e0d-153d  \? ipiiii+5:=  W<? WG? ti W   WM?   TU fl-198d9e0d-1541 fl-198d9e0d-1542  \? ipiiii+5:=  W<? WG? i W    W\?   TU fl-198d9e0d-1546 fl-198d9e0d-1547  \? ipiiii+5:=  W<? WG? ti Wg   gt-198d9e0d-1536  fl-198d9e0d-154b  \ ipiiii+5:=  W? Gipi+iii1i7 W>?  W? W? W?  ti W  W}? i W   W? WG? W     ti W geach UU  U㌤ U䌤 U匤 g %%set-fields gcheck? gexpr >, gm-198d9e0d-1552 Z GGGG fl-198d9e0d-1557 fl-198d9e0d-1558 fl-198d9e0d-1559 fl-198d9e0d-155a fl-198d9e0d-155b  \  fl-198d9e0d-1554  \k gt-1e8ba8b5a-16a gt-1e8ba8b5a-16c gt-1e8ba8b5a-16b  gm-1e8ba8b5a-16d Z  fl-1e8ba8b5a-171 fl-1e8ba8b5a-172 fl-1e8ba8b5a-173  \ fl-1e8ba8b5a-167 fl-1e8ba8b5a-168 fl-1e8ba8b5a-169   \2~  Gipiiii    W ?  ti  W  W   W   gmap   glist gset-record-type-printer! f # f# gobject-address f # gthrow gwrong-type-arg fNot a vlist: ~S g% assert-vlist-procedure g assert-vlist gm-198d9e0d-157d  Z !gt-198d9e0d-157c "! #  $fl-198d9e0d-1582 %$ &\"#% 'fl-198d9e0d-157f (' )\k#( * &i)piiiiy  +WX* ,t&i) -W, .W* /W, 0./ 1-0 21 3W* 4gval 5W4, 65 7gunless 8W7, 9W, :95 ;W, <WG, =W, ><= ?W, @W, AW, BA5 C;>?@BB D8:C E36D F+2E Gti) HWG Ig% block-cons-procedure Jg block-cons Kgm-198d9e0d-15a0 LKZ Mgt-198d9e0d-159d Ngt-198d9e0d-159e Ogt-198d9e0d-159f PMNO QLLL Rfl-198d9e0d-15a5 Sfl-198d9e0d-15a6 Tfl-198d9e0d-15a7 URST V\PQU WL Xfl-198d9e0d-15a2 YX Z\kWY [LViZpiiiiy  \WX[ ]tViZ ^WJ] _W[ `WI] a_` b^a cb dW[ egitem fWe] gW] hW] ifgh jglet kWj] lW] mW ] nmg oln pW] qW ] rW] srg tqs upt vou wgcond xWw] yW] zylfp {W] |{lp }z| ~gelse W~] glet* W] W] WJ] l  WO] g1- W] p gzero? W]  W ]  W] p  W] g fluid-ref W] W4]    x lh l  W] l W] W] l W ] f {l   x} kv di \c tiZ WI gfold gcons gequal? g fold-right ghash ghashq ghashv g% %vhash-fold*-procedure g %vhash-fold* TUUUUUU gm-198d9e0d-1bf6 Z gt-198d9e0d-1bf0 gt-198d9e0d-1bf1 gt-198d9e0d-1bf2 gt-198d9e0d-1bf3 gt-198d9e0d-1bf4 gt-198d9e0d-1bf5   fl-198d9e0d-1bfb fl-198d9e0d-1bfc fl-198d9e0d-1bfd fl-198d9e0d-1bfe fl-198d9e0d-1bff fl-198d9e0d-1c00  \  fl-198d9e0d-1bf8  \k ipiiiiy  WX ti W W W    W gproc W ginit W W, gvhash W W W  gdefine W g visit-block W W g max-offset W gresult W  W W WJ   W6 W   W    Wj gloop W W W     W WA  W g<= W  gcar  W  W             gcdr W      g next-block W W    g> W  W    W' !  "! #" $# %$ &% '& (' )W *) +W  ,+ -, .- /W 0/ 1,0 2.1 3(*2 43 5ti 6W5 7g% %vhash-assoc-procedure 8g %vhash-assoc 9gm-198d9e0d-2023 :9Z ;gt-198d9e0d-201f gt-198d9e0d-2022 ?;<=> @:::: Afl-198d9e0d-2028 Bfl-198d9e0d-2029 Cfl-198d9e0d-202a Dfl-198d9e0d-202b EABCD F\?@E G: Hfl-198d9e0d-2025 IH J\kGI K:FiJpiiiiy  LWXK MtFiJ NW8M OWK PW7M QOP RNQ SR TWK UW,M VWM WWM XWM YUVWX ZWM [WM \WM ]WM ^[\] _WM `WM aWJM ba\ c`b dW6M eWM fe\ gdf hWM iXU` jhi kcgj lWjM mWM nWM oWM pod`h qnp rq sWM tWM uWM vun] wWM xWM yxdn zwy {WUz |tv{ }WAM ~}d`n m~ s|y WM WM \   WM a W M  W'M \ [ t l sn lmr _k Z^ WM V W M V a  WM V [ t TY LS tiJ W7 geqv?C5h ]4   E54H>"G4Ii 54RJh0]$4 5 C45 Cgbase  0goffset  0gsize   0g hash-tab?   0gfilenamefice-9/vlist.scm G  L  M   M   M   M   O  / O   0 gnameg% make-block-procedureCKR4NOPSVh]Cgt-198d9e0d-1237  gt-198d9e0d-1238  gt-198d9e0d-1239   gt-198d9e0d-123a      COhR]L6Jga  gfilenamefice-9/vlist.scm  G   CThB]L6:gfilenamefice-9/vlist.scm  G    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm G   n C5OR4NPShR]CJgdummy  gname  gindex      Ch(] 45$@6gx  "gtmp "gfilenamefice-9/vlist.scm R   " g macro-typeg syntax-rulesgpatternsgnamegindexC5Rh{] Csgblock  gfilenamefice-9/vlist.scm V    gnameg% block-content-procedureCR4NPSh7]C/gt-198d9e0d-126e    ChR]L6Jga  gfilenamefice-9/vlist.scm  V   CThB]L6:gfilenamefice-9/vlist.scm  V    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm V   n C5Rhx] Cpgblock  gfilenamefice-9/vlist.scm W    gnameg% block-base-procedureCR4NPS#h7]C/gt-198d9e0d-128a    ChR]L6Jga  gfilenamefice-9/vlist.scm  W   CThB]L6:gfilenamefice-9/vlist.scm  W    C%h]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm W   n C5Rhz] Crgblock  gfilenamefice-9/vlist.scm X    gnameg% block-offset-procedureC&R4N'PSFh7]C/gt-198d9e0d-12a6    C'hR]L6Jga  gfilenamefice-9/vlist.scm  X   CThB]L6:gfilenamefice-9/vlist.scm  X    CHh]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm X   n C5'Rhx] Cpgblock  gfilenamefice-9/vlist.scm Y    gnameg% block-size-procedureCIR4NJPSih7]C/gt-198d9e0d-12c2    CJhR]L6Jga  gfilenamefice-9/vlist.scm  Y   CThB]L6:gfilenamefice-9/vlist.scm  Y    Ckh]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm Y   n C5JRh}] Cugblock  gfilenamefice-9/vlist.scm Z    gnameg% block-next-free-procedureClR4NmPSh7]C/gt-198d9e0d-12de    CmhR]L6Jga  gfilenamefice-9/vlist.scm  Z   CThB]L6:gfilenamefice-9/vlist.scm  Z    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm Z   n C5mRh] 4 5Cgblock  gfilenamefice-9/vlist.scm \  ]   ]   ] '  ]   ]    gnameg% block-hash-table?-procedureCR4NPSh7]C/gt-198d9e0d-12f9    ChR]L6Jga  gfilenamefice-9/vlist.scm  \   CThB]L6:gfilenamefice-9/vlist.scm  \    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm \   n C5Rh] Cgblock  g next-free  gfilenamefice-9/vlist.scm _ `   gnameg % set-block-next-free!-procedureCR4NPShT]CLgt-198d9e0d-1334  gt-198d9e0d-1335    ChR]L6Jga  gfilenamefice-9/vlist.scm  _   CThB]L6:gfilenamefice-9/vlist.scm  _    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm _   n C5Rh8 ]  $( $  CCCgblock  8gvalue  8goffset   8g next-free   )gfilenamefice-9/vlist.scm b d  d   d   e   e   d   g %  g - h  2 h   8 gnameg% block-append!-procedureCR4NPShq]Cigt-198d9e0d-1354  gt-198d9e0d-1355  gt-198d9e0d-1356      ChR]L6Jga  gfilenamefice-9/vlist.scm  b   CThB]L6:gfilenamefice-9/vlist.scm  b    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm b   n C5Rh]Cgcontent  goffset  gfilenamefice-9/vlist.scm l  m    gnameg% block-ref-procedureCR4NPS=hT]CLgt-198d9e0d-13be  gt-198d9e0d-13bf    ChR]L6Jga  gfilenamefice-9/vlist.scm  l   CThB]L6:gfilenamefice-9/vlist.scm  l    C?h]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm l   n C5Rh]Cgcontent  gsize  goffset   gfilenamefice-9/vlist.scm q r  r    gnameg(% block-hash-table-next-offset-procedureC@R4NAPSfhq]Cigt-198d9e0d-13de  gt-198d9e0d-13df  gt-198d9e0d-13e0      CAhR]L6Jga  gfilenamefice-9/vlist.scm  q   CThB]L6:gfilenamefice-9/vlist.scm  q    Chh]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm q   n C5ARh]Cgcontent  gsize  goffset   g next-offset   gfilenamefice-9/vlist.scm v x   x    gnameg-% block-hash-table-set-next-offset!-procedureCiR4NjPSVh]Cgt-198d9e0d-1403  gt-198d9e0d-1404  gt-198d9e0d-1405   gt-198d9e0d-1406      CjhR]L6Jga  gfilenamefice-9/vlist.scm  v   CThB]L6:gfilenamefice-9/vlist.scm  v    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm v   n C5jRh]Cgcontent  gsize  gkhash   gfilenamefice-9/vlist.scm | }  }   gnameg % block-hash-table-ref-procedureCR4NPShq]Cigt-198d9e0d-142d  gt-198d9e0d-142e  gt-198d9e0d-142f      ChR]L6Jga  gfilenamefice-9/vlist.scm  |   CThB]L6:gfilenamefice-9/vlist.scm  |    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm |   n C5Rh]Cgcontent  gsize  gkhash   goffset   gfilenamefice-9/vlist.scm      gnameg!% block-hash-table-set!-procedureCR4NPSVh]Cgt-198d9e0d-1452  gt-198d9e0d-1453  gt-198d9e0d-1454   gt-198d9e0d-1455      ChR]L6Jga  gfilenamefice-9/vlist.scm     CThB]L6:gfilenamefice-9/vlist.scm      Ch]C   C hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm    n C5Rh(] Cgcontent  (gsize  (gkhash   (goffset   (g next-offset  gfilenamefice-9/vlist.scm %  #   ( gnameg!% block-hash-table-add!-procedureCR4NPSVh]Cgt-198d9e0d-147c  gt-198d9e0d-147d  gt-198d9e0d-147e   gt-198d9e0d-147f      ChS]L6Kga  gfilenamefice-9/vlist.scm    CThC]L6;gfilenamefice-9/vlist.scm     Ch]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm   n C5R4Ji 5 Rh]Cgbase  goffset  gfilenamefice-9/vlist.scm   gnameg%make-vlist-procedureCR4NPShT]CLgt-198d9e0d-14ff  gt-198d9e0d-1500    ChS]L6Kga  gfilenamefice-9/vlist.scm    CThC]L6;gfilenamefice-9/vlist.scm     Ch]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm   n C5R4>"G iRhr]$CCjgobj  gfilenamefice-9/vlist.scm    gnameg%vlist?-procedureCR4NPSh7]C/gt-198d9e0d-150f    ChS]L6Kga  gfilenamefice-9/vlist.scm    CThC]L6;gfilenamefice-9/vlist.scm     Ch]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm   n C5R ht]& C6lgs  gfilenamefice-9/vlist.scm    gnameg%vlist-base-procedureC R4N PS;FLh:]C2gerr  gs    CPV[h:]C2gerr  gs    C_ekh:]C2gerr  gs    Ch7]C/gt-198d9e0d-151b    C hS]L6Kga  gfilenamefice-9/vlist.scm    CThC]L6;gfilenamefice-9/vlist.scm     Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefice-9/vlist.scm   C5 Rhv]& C6ngs  gfilenamefice-9/vlist.scm    gnameg%vlist-offset-procedureCR4NPSh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch7]C/gt-198d9e0d-1536    ChS]L6Kga  gfilenamefice-9/vlist.scm    CThC]L6;gfilenamefice-9/vlist.scm     Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefice-9/vlist.scm   C5R4NgPS  h v]45Cngdummy  gcheck?  gs   ggetter   gexpr      Ch(] 45$@6gx  "gtmp "gfilenamefice-9/vlist.scm   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5gR4ii"5(2 hH]45$645$454564 56gvl  Egport  Egfilenamefice-9/vlist.scm   #   0  #  #  & 0 ' + . + 6 # < 0 = + E #  E C>"Gii #Rh@]$&C66gval  :gfilenamefice-9/vlist.scm     % '  + . 3 8 :   : gnameg% assert-vlist-procedureCR4NPSFh7]C/gt-198d9e0d-157c    ChS]L6Kga  gfilenamefice-9/vlist.scm    CThC]L6;gfilenamefice-9/vlist.scm     CHh]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm   n C5R 4Jh]+& " 45& " 45"~  $ "$ "[$4 5 "45     C $; $+  $ C"?";"7gitem  gvlist  g hash-tab?   gbase  7 goffset  7 gsize  D goffset  j gsize  j gbase  g next-free   gfilenamefice-9/vlist.scm     7  7  D  D  I  L  Q  [  _  j  j              gnameg% block-cons-procedureCIR4NJPShq]Cigt-198d9e0d-159d  gt-198d9e0d-159e  gt-198d9e0d-159f      CJhS]L6Kga  gfilenamefice-9/vlist.scm    CThC]L6;gfilenamefice-9/vlist.scm     Ch]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm   n C5JR4Jh{]*"#4>"'G" $&""""  "_  $ "$ "[45     C $; $+  $ C"^"Z"Vsgitem  gvlist  gbase  R goffset  R gsize  _ goffset  gsize  gbase  g next-free   gfilenamefice-9/vlist.scm   M    gnameg vlist-consg documentationf?Return a new vlist with ITEM as its head and VLIST as its tail.CRhh ]"#4>"'G" $&""""   Cgvlist  agbase Q agoffset  Q agcontent  Y agfilenamefice-9/vlist.scm   M  Q  Q  Y  Y   a gnameg vlist-headg documentationfReturn the head of VLIST.C Rhd]!"#4>"'G" $&""""   $C  C\gvlist  gbase Q goffset  Q goffset  ` lgbase  u goffset  u gfilenamefice-9/vlist.scm   M  Q  Q  Y  ]  `  `  p  u  u   gnameg vlist-tailg documentationfReturn the tail of VLIST.C!Rhh] "#4>"'G" $&""""  $C  Cgvlist  agbase M agfilenamefice-9/vlist.scm   M  M  S  W  _  `   a gnameg vlist-null?g documentationfReturn true if VLIST is empty.C"R/#h]456glst  gfilenamefice-9/vlist.scm       gnameg list->vlistg documentationf4Return a new vlist whose contents correspond to LST.C$Rh]3"#4>"'G" $&"""""V&C $ "$  "4 5"  " gproc  ginit  gvlist   gbase  M goffset  M gresult  M gnext  [ gdone?  a gcontent   gfilenamefice-9/vlist.scm    M   U   [   [   a   a   i   m   y   ~      !               gnameg vlist-foldg documentationf/Fold over VLIST, calling PROC for each element.C)R%(h]"#4>"'G" $&"""""& $C4455"45"gproc  ginit  gvlist   gindex  M sgresult  M sgfilenamefice-9/vlist.scm     M   Q   U   [   \  _   k  s   s   t   {      gnamegvlist-fold-rightg documentationfOFold over VLIST, calling PROC for each element, starting from the last element.C*R)#h]6gvlist  gfilenamefice-9/vlist.scm     gnameg vlist-reverseg documentationfEReturn a new VLIST whose content are those of VLIST in reverse order.C/R)h|]4L56tgitem  gresult  gfilenamefice-9/vlist.scm           C#/h]O456gproc  gvlist  gfilenamefice-9/vlist.scm   !       gnameg vlist-mapg documentationf;Map PROC over the elements of VLIST and return a new vlist.C+R*h]6gvlist  gfilenamefice-9/vlist.scm #  %  %   gnameg vlist->listg documentationf6Return a new list whose contents match those of VLIST.C2Rh]*"#4>"'G" $&"""""6$ C   "  "gvlist  gindex  gindex  M gbase  M goffset  M gcontent  _ igoffset  _ igfilenamefice-9/vlist.scm '  )  M *  R -  V -  Z .  _ . ( _ .  n /  t 0  y 1  /  *  +  ,  *   gnameg vlist-refg documentationf+Return the element at index INDEX in VLIST.C%Rh]""#4>"'G" $&"""""4$C   "  "gvlist  gcount  gcount  M gbase  M goffset  M goffset  [ ggfilenamefice-9/vlist.scm 3  6  M 7  R :  V :  [ ;  [ ;  l <  r =  w >  <  7  8  9  7   gnameg vlist-dropg documentationfKReturn a new vlist that does not contain the COUNT first elements of VLIST.C&R/! #hH{]"0 $6454455""sgvlist  Fgcount  Fgcount   6gvlist   6gresult   6gfilenamefice-9/vlist.scm @  C  F   F   G   H   I   J  " J  , J  6 H  6 C   F gnameg vlist-takeg documentationfHReturn a new vlist that contains only the COUNT first elements of VLIST.C'R*h}]4L5$6Cuge  gv  gfilenamefice-9/vlist.scm O   P  P   Q    C#h]O6gpred  gvlist  gfilenamefice-9/vlist.scm L  O    gnameg vlist-filterg documentationfLReturn a new vlist containing all the elements from VLIST that satisfy PRED.C0R0he]4LL5C]ge  gfilenamefice-9/vlist.scm Y   Z  Z   Ch(-.,3#O6gx %gvlist %gequal?  %gfilenamefice-9/vlist.scm V % Y  %  gnameg vlist-deleteg documentationfKReturn a new vlist corresponding to VLIST without the elements EQUAL? to X.C1Rh.]"#4>"'G" $&""""" &C  "  "&gvlist  }gbase M mglen  M mgfilenamefice-9/vlist.scm ]  _  M `  U b  \ d  _ e  d e  e e  m d  m `  q `  u a  } `   } gnameg vlist-lengthg documentationfReturn the length of VLIST.C(R#hS]CKgx  gfilenamefice-9/vlist.scm h ,   Ch0]4L5$L64L54L4L556gseed  *gfilenamefice-9/vlist.scm j   k  k   l   m   n  n  ( n  * m   * gnamegufCh8)-.,3#OQ6!gp 5gf 5gg  5gseed  5gtail-gen  5guf  " 5gfilenamefice-9/vlist.scm g " j  5  gnameg vlist-unfoldg documentationfHReturn a new vlist. See the description of SRFI-1 `unfold' for details.C,R#hX-.,3#"+45$C454455""gp Qgf Qgg  Qgseed  Qgtail  Qgseed   Eglis   Egfilenamefice-9/vlist.scm p  s   t  % t  ) v 0 v  3 v ! = v  E v  E s  Q  gnamegvlist-unfold-rightg documentationfNReturn a new vlist. See the description of SRFI-1 `unfold-right' for details.C-R#*hk]6cge  gv  gfilenamefice-9/vlist.scm } & ~ (  Cht]6lgvlist  gresult  gfilenamefice-9/vlist.scm |  }   Ch -13(C6gvlists gfilenamefice-9/vlist.scm x  z   |   gnameg vlist-appendg documentationfAppend the given lists.C.R)hn]L6fgitem  gx  gfilenamefice-9/vlist.scm        Ch]O6gproc  gvlist  gfilenamefice-9/vlist.scm       gnamegvlist-for-eachg documentationf?Call PROC on each element of VLIST. The result is unspecified.C3Rh0] $!&  4 5CCCgobj  ,gblock  (gfilenamefice-9/vlist.scm                , gnamegvhash?g documentationf"Return true if OBJ is a hash list.C5R4J  h-.,3 #"#4>"'G" $&""""  "l  $ "$ "[ 4 5      "\ $F $2  $ ""N""F"">& " 4 5& " 4 5 45        Cgkey gvalue gvhash  ghash  gitem  b @gbase  m =goffset  m =gsize  z goffset  gsize gbase  g next-free  gvhash  @ gbase  \ goffset  x gsize   gkhash   gcontent  g next-offset  gfilenamefice-9/vlist.scm     b  b   @   E   \   a   x                          gnameg vhash-consg documentationfjReturn a new hash list based on VHASH where KEY is associated with VALUE. Use HASH to compute KEY's hash.C6R6h]6gt-198d9e0d-1bd9  gt-198d9e0d-1bda  gt-198d9e0d-1bdb   gfilenamefice-9/vlist.scm     gnameg vhash-consqC7R6h]6gt-198d9e0d-1be5  gt-198d9e0d-1be6  gt-198d9e0d-1be7   gfilenamefice-9/vlist.scm     gnameg vhash-consvC8Rh((]N"    4 5 "s $F     $(4  5$4   5" "   "   $  "t C     "{$0&"4>"G"4>"G   $  "C gproc  (ginit  (gkey   (gvhash   (gequal?   (ghash   (gbase   g max-offset   gresult   gsize gcontent  gkhash  goffset " gresult " g next-block  r gblock    gfilenamefice-9/vlist.scm                     "   (   /   8   <   =   F  , G  ' I   M   N   U  ! V   Z   n  r   r  y   {       *                            %  *  ( gnameg% %vhash-fold*-procedureCR4NPS4h]Cgt-198d9e0d-1bf0  gt-198d9e0d-1bf1  gt-198d9e0d-1bf2   gt-198d9e0d-1bf3   gt-198d9e0d-1bf4   gt-198d9e0d-1bf5      ChS]L6Kga  gfilenamefice-9/vlist.scm     CThC]L6;gfilenamefice-9/vlist.scm      C6h]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm    n C5Rh8]-.,3##"    4 5 "s $F     $(4  5$4   5" "   "   $  "t C     "{"#4>"'G" $&""""   $  "CUgproc 7ginit 7gkey  7gvhash  7gequal?  7ghash  7gbase  $ g max-offset  $ gresult  $ gsize ) gcontent / gkhash : goffset @ gresult @ g next-block  gblock   gfilenamefice-9/vlist.scm  $   7  gnameg vhash-fold*g documentationkFold over all the values associated with KEY in VHASH, with each call to PROC having the form  (proc value result) , where RESULT is the result of the previous call to PROC and INIT the value of RESULT for the first call to PROC.CARh}]T"   45 "n $A   $#  &4   5" "   "    $   "y C    ""#4>"'G" $&""""   $  "Cugproc  ginit  gkey   gvhash   ghash   gbase  g max-offset  gresult  gsize   gcontent  gkhash goffset & gresult & g next-block q gblock  gfilenamefice-9/vlist.scm       gnameg vhash-foldq*g documentationkSame as  vhash-fold* , but using  hashq and  eq? .CBRh ]T"   45 "o $B   $$  $4   5" "   "    $   "x C    ""#4>"'G" $&""""   $  "Cygproc  ginit  gkey   gvhash   ghash   gbase  g max-offset  gresult  gsize   gcontent  gkhash goffset & gresult & g next-block r gblock  gfilenamefice-9/vlist.scm       gnameg vhash-foldv*g documentationkSame as  vhash-fold* , but using  hashv and  eqv? .CCRh]<"  45"j $B $(4 5$ C  "  "    $  "|C "$0&"4>"G"4>"G   $  "Cgkey  gvhash  gequal?   ghash   gbase   g max-offset   gsize  gcontent   gkhash   goffset " g next-block n gblock   gfilenamefice-9/vlist.scm                     "   (   -   1  2   ;  & <  ! >   B   G   O   Y   `   j   n   n  u   w   {    +                            )   gnameg% %vhash-assoc-procedureC7R4N8PSVh]Cgt-198d9e0d-201f  gt-198d9e0d-2020  gt-198d9e0d-2021   gt-198d9e0d-2022      C8hS]L6Kga  gfilenamefice-9/vlist.scm     CThC]L6;gfilenamefice-9/vlist.scm      Ch]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/vlist.scm    n C58Rh -.,3 ##"  45"e $="  " $4 5$ C""    $  "C ""#4>"'G" $&""""   $  "Cgkey  gvhash  gequal?   ghash   gbase  $ g max-offset  $ gsize  ) gcontent  / gkhash  : goffset @ g next-block gblock   gfilenamefice-9/vlist.scm  $     gnameg vhash-assocg documentationfpReturn the first key/value pair from VHASH whose key is equal to KEY according to the EQUAL? equality predicate.C9Rhu]B"  45"`$8""$&C""    $  "C""#4>"'G" $&""""   $  " Cmgkey  gvhash  ghash   gbase  g max-offset  gsize   gcontent   gkhash  goffset  & g next-block h gblock   gfilenamefice-9/vlist.scm       gnameg vhash-assqg documentationkReturn the first key/value pair from VHASH whose key is  eq? to KEY.C:Rhy]B"  45"a$9""$$C""    $  "C""#4>"'G" $&""""   $  " Cqgkey  gvhash  ghash   gbase  g max-offset  gsize   gcontent   gkhash  goffset  & g next-block i gblock   gfilenamefice-9/vlist.scm   "    gnameg vhash-assvg documentationkReturn the first key/value pair from VHASH whose key is  eqv? to KEY.C;R9)6h(]4LL5$CL6gk+v  (gresult  (gk   (gv   (gfilenamefice-9/vlist.scm (   )   *   )  +   +  ( -   ( C#hH!-.,3##45$O6Cgkey Ggvhash Ggequal?  Gghash  Ggfilenamefice-9/vlist.scm $ ! '  1 '  D (  G  gnameg vhash-deleteg documentationfHRemove all associations from VHASH with KEY, comparing keys with EQUAL?.CR)h]L6g key+value  gresult  gfilenamefice-9/vlist.scm :   ;  ; &  ;    Chm]O6egproc  ginit  gvhash   gfilenamefice-9/vlist.scm 5  :    gnameg vhash-foldg documentationkFold over the key/pair elements of VHASH from left to right, with each call to PROC having the form  (PROC key value result) , where RESULT is the result of the previous call to PROC and INIT the value of RESULT for the first call to PROC.C?R*h]L6g key+value  gresult  gfilenamefice-9/vlist.scm E   F  F ,  F    Chu]O6mgproc  ginit  gvhash   gfilenamefice-9/vlist.scm @  E    gnamegvhash-fold-rightg documentationkFold over the key/pair elements of VHASH from right to left, with each call to PROC having the form  (PROC key value result) , where RESULT is the result of the previous call to PROC and INIT the value of RESULT for the first call to PROC.C@R6h]L6}gpair  gresult  gfilenamefice-9/vlist.scm M   N  N '  N    C#h(-.,3#O6galist %ghash %gfilenamefice-9/vlist.scm K % M  % gnameg alist->vhashg documentationf=Return the vhash corresponding to ALIST, an association list.CDRCgm  ,grtd :D :pgbase J Jgfilenamefice-9/vlist.scm   - E  8 D g G V V t W X  Y  Z ; \  _  b l $ q (T v , | /  3 6  6 7 I J  J K Q W X Z \% ]# ` bX  cW  e  e # hg ' j 3 l @ nw L p8 V r ] t g v p x x zt  {    ^  6      @          \   $  2 ` 3  5  @  K A  C62.0/ccache/ice-9/posix.go000064400000016366151463412640010672 0ustar00GOOF----LE-8-2.0]14ha] gstat:dev gstat:ino g stat:mode g stat:nlink gstat:uid gstat:gid g stat:rdev g stat:size g stat:atime g stat:mtime g stat:ctime g stat:blksize g stat:blocks gstat:atimensec gstat:mtimensec gstat:ctimensec g stat:type g stat:perms g passwd:name g passwd:passwd g passwd:uid g passwd:gid g passwd:gecos g passwd:dir g passwd:shell g group:name g group:passwd g group:gid g group:mem gutsname:sysname gutsname:nodename gutsname:release !gutsname:version "gutsname:machine #ggetpw $ggetpwent %gsetpw &gsetpwent 'gendpwent (ggetpwnam )ggetpwuid *ggetgr +ggetgrent ,gsetgr -gsetgrent .gendgrent /ggetgrnam 0ggetgrgidC5h]hn] Cfgf  gfilenamefice-9/posix.scm       gnamegstat:devCRhn] Cfgf  gfilenamefice-9/posix.scm       gnamegstat:inoCRho] Cggf  gfilenamefice-9/posix.scm       gnameg stat:modeCRhp] Chgf  gfilenamefice-9/posix.scm       gnameg stat:nlinkCRhn] Cfgf  gfilenamefice-9/posix.scm       gnamegstat:uidCRhn] Cfgf  gfilenamefice-9/posix.scm       gnamegstat:gidCRho] Cggf  gfilenamefice-9/posix.scm       gnameg stat:rdevCRho] Cggf  gfilenamefice-9/posix.scm       gnameg stat:sizeCRhp] Chgf  gfilenamefice-9/posix.scm       gnameg stat:atimeC Rhp] Chgf  gfilenamefice-9/posix.scm       gnameg stat:mtimeC Rhp] Chgf  gfilenamefice-9/posix.scm     gnameg stat:ctimeC Rhr] Cjgf  gfilenamefice-9/posix.scm !  !    gnameg stat:blksizeC Rhq] Cigf  gfilenamefice-9/posix.scm "  "    gnameg stat:blocksC Rht] Clgf  gfilenamefice-9/posix.scm #  #    gnamegstat:atimensecCRht] Clgf  gfilenamefice-9/posix.scm $  $    gnamegstat:mtimensecCRht] Clgf  gfilenamefice-9/posix.scm %  %    gnamegstat:ctimensecCRho] Cggf  gfilenamefice-9/posix.scm (  (    gnameg stat:typeCRhp] Chgf  gfilenamefice-9/posix.scm )  )    gnameg stat:permsCRhs] Ckgobj  gfilenamefice-9/posix.scm +  +    gnameg passwd:nameCRhu] Cmgobj  gfilenamefice-9/posix.scm ,  ,    gnameg passwd:passwdCRhr] Cjgobj  gfilenamefice-9/posix.scm -  -    gnameg passwd:uidCRhr] Cjgobj  gfilenamefice-9/posix.scm .  .    gnameg passwd:gidCRht] Clgobj  gfilenamefice-9/posix.scm /  /    gnameg passwd:gecosCRhr] Cjgobj  gfilenamefice-9/posix.scm 0  0    gnameg passwd:dirCRht] Clgobj  gfilenamefice-9/posix.scm 1  1    gnameg passwd:shellCRhr] Cjgobj  gfilenamefice-9/posix.scm 3  3    gnameg group:nameCRht] Clgobj  gfilenamefice-9/posix.scm 4  4    gnameg group:passwdCRhq] Cigobj  gfilenamefice-9/posix.scm 5  5    gnameg group:gidCRhq] Cigobj  gfilenamefice-9/posix.scm 6  6    gnameg group:memCRhw] Cogobj  gfilenamefice-9/posix.scm 8  8    gnamegutsname:sysnameCRhx] Cpgobj  gfilenamefice-9/posix.scm 9  9    gnamegutsname:nodenameCRhw] Cogobj  gfilenamefice-9/posix.scm :  :    gnamegutsname:releaseC Rhw] Cogobj  gfilenamefice-9/posix.scm ;  ;    gnamegutsname:versionC!Rhw] Cogobj  gfilenamefice-9/posix.scm <  <    gnamegutsname:machineC"R#h^]6Vgfilenamefice-9/posix.scm >  >    gnameggetpwentC$R%h^]6Vgfilenamefice-9/posix.scm ?  ?    gnamegsetpwentC&R%h^]6Vgfilenamefice-9/posix.scm @  @    gnamegendpwentC'R#hq]6igname  gfilenamefice-9/posix.scm B  B    gnameggetpwnamC(R#hp]6hguid  gfilenamefice-9/posix.scm C  C    gnameggetpwuidC)R*h^]6Vgfilenamefice-9/posix.scm E  E    gnameggetgrentC+R,h^]6Vgfilenamefice-9/posix.scm F  F    gnamegsetgrentC-R,h^]6Vgfilenamefice-9/posix.scm G  G    gnamegendgrentC.R*hq]6igname  gfilenamefice-9/posix.scm I  I    gnameggetgrnamC/R*ho]6ggid  gfilenamefice-9/posix.scm J  J    gnameggetgrgidC0RCgfilenamefice-9/posix.scm      #    1    B    S   e !  " w #  $  % " ( ) 6 + , M - . _ / 0 w 1  3  4  5  6 2 8  9 R :  ; r <  > i ?  @ l B  C y E  F i G  I  J -   C62.0/ccache/ice-9/documentation.go000064400000013442151463412640012371 0ustar00GOOF----LE-8-2.0 ]H4h] gguile  gdefine-module*   gice-9 g documentation  gfilenameS fice-9/documentation.scm gimportsS grdelim      gexportsS gfile-commentary gdocumentation-files gsearch-documentation-files gobject-documentation  g autoloadsS gregex  g match:suffix   gset-current-module   g make-regexp f^;;; Commentary: !f ^;;; Code: "f^;+ #g regexp-exec $glength %gregexp? &gstring? 'g procedure? (gcall-with-input-file )g eof-object? *gafter +gin ,gread-delimited -f  .g string-append /f 0gbefore 1gmap 2g in-vicinity 3fguile-procedures.txt 4g %library-dir 5g%package-data-dir 6g %site-dir 7f. 8f  9gentry-delimiter :g file-exists? ;gsymbol->string g substring ?g string-ref @gfind-documentation-in-file Agor-map Bgprocedure-documentation Cgobject-property Dgmacro? Egmacro-transformer Fgprocedure-name Ggset-procedure-property!C5h]4   5 4>"G !"#h ] 4L5$6Cgline  gm gfilenamefice-9/documentation.scm g   h % h   i   i $   C$%&'()*#+,-./0 h]!"45$"$C4L5$"4L5$"&C45&"&44L55"""g45 "Pgport  gline  gdoc   g parse-state   gt  "g new-state  Q gfilenamefice-9/documentation.scm ~         *  % & *  6  8 : =  I  K = Q  U  [  _  c * g  i ( o  q < w  x  } 1 >        )     $  C h-13HHH45K45K45OK 45$J"145$"45$ 45"J 45$J"245$"45$ 45"J 45$J"4 5$"J  O6gfilename  gcust  gdefault-in-line-re   gdefault-after-line-re   g default-scrub   gdirt  + 7gv  O }gv  gv  g in-line-re   g after-line-re   gscrub    gfilenamefice-9/documentation.scm ]  d   d *  d   e e - " e % f $ ) f 1 + f $ + f  ; l  B l  F l  O n ! O n  R o ! \ o  c p ! m o  n p - r r  r  t $ t  u $ u  v $ u  v 0 x  x  x  z  z  {  {  l   } )  gnamegfile-commentaryCR41i23h}]456ugvicinity  gfilenamefice-9/documentation.scm    !   C4i5i6i7hT]CLgfilenamefice-9/documentation.scm     C5R89R:(;<,9)=>? h]!4L5454>"G"{45$C"45"45$I44 55$045 $ 45 6"""45"vgport  gname glen   gentry  , gt  x gfilenamefice-9/documentation.scm       ,  -  7  > # L  L  M  V  Z  [  ^ # k  o  p  x   ) 6 3   !   Ch ]45$ O6Cgname  gfile  gfilenamefice-9/documentation.scm        gnamegfind-documentation-in-fileC@RA@hg]L6_gfile  gfilenamefice-9/documentation.scm   Ch(-13O("6gname "gfiles "gfilenamefice-9/documentation.scm  "  " gnamegsearch-documentation-filesCR'BCDEFG hG] 45$ 45"$C45$C45$4455"$C45$>45$14 455$4 >"G"CCC?gobject  gt  gt - gt T g docstring gfilenamefice-9/documentation.scm      %  +  -  -  9 C  D G ! O T  ` j  k u  v  y    1   gnamegobject-documentationg documentationfzReturn the docstring for OBJECT. OBJECT can be a procedure, macro or any object that has its `documentation' property set.CRCgm  0gfilenamefice-9/documentation.scm  P  ]           \     C62.0/ccache/ice-9/eval-string.go000064400000007443151463412640011757 0ustar00GOOF----LE-8-2.0 ]G4hm] gguile  gdefine-module*   gice-9 g eval-string  gfilenameS fice-9/eval-string.scm gimportsS gsystem gbase gcompile     glanguage     gvm gprogram     g replacementsS  gset-current-module   g language? glookup-language gensure-language !glangS "!  #" $gcurrent-language %g parameter? &% '% (g scm-error )gwrong-type-arg *f parameterize +fNot a parameter: ~S ,glanguage-reader -gcurrent-module .g eof-object? /glanguage-evaluator 0g read-and-eval 1gmoduleS 21  3gfileS 43  5glineS 65  7gcolumnS 87  9!  :gcompile?S ;:  <24689; =gcall-with-input-string >gset-port-filename! ?gset-port-line! @gset-port-column! Ag make-program Bgread-and-compile CgfromS DgtoS Egobjcode Fgsave-module-excursionC5h q]4   54>"Gh]45$C6gx  gfilenamefice-9/eval-string.scm            gnamegensure-languageC R#$'()*+ ,-./$-,.hP]4445545> G44455L45545$E"gexp  Lgvals  Lgnext  3 Lgfilenamefice-9/eval-string.scm +  $   $   $  $   $ 3  $   , "  ! "  $ "  * "  - " 1 3 "  3 /  6 1  @ 0  D 2  L 4   L gnameglpC hQ-/03#4545$"4>"G 4 455Y44 4554 554 5$" OQ4>ZCZFIgport  glang  gt-6f52a6ff84e411f-7  " gexp  x glp  gfilenamefice-9/eval-string.scm    ) "  Z # b  e "  f "  i "  o "  r " 1 x "  x &  { ' '  +   glangS gnameg read-and-evalC0R<-$ =>?@/ABCDE0! h]L$4L>"G"L$4LL>"G"L$4LL>"G"L$4LL>"G"L$"4L5$44LL  556 L L6gfilenamefice-9/eval-string.scm K   L M  $ N % O  B P C Q  ` R a S  ~ U  U U  U V  V  V E V  V  V  W   CFhX]4L>"GL6Pgfilenamefice-9/eval-string.scm @  A  B    Ch8] OLLLLLLQL$ LO66gport  8gthunk  8gfilenamefice-9/eval-string.scm H   I  ' >  4 ?  8 C   8 Chxs-/03#45####45#45O6kgstr  qgmodule  qgfile   qgline   qgcolumn   qglang   qgcompile?   qglang  X qgfilenamefice-9/eval-string.scm 6  7  B ;  R E  X E  q F   q gmoduleS gfileS glineS gcolumnS glangS gcompile?S gnameg eval-stringCRCigm  ,gfilenamefice-9/eval-string.scm      6   C62.0/ccache/ice-9/unicode.go000064400000001246151463412640011145 0ustar00GOOF----LE-8-2.0]4h] gguile  gdefine-module*   gice-9 gunicode  gfilenameS fice-9/unicode.scm gexportsS gformal-name->char gchar->formal-name    gset-current-module   gload-extension g string-append f libguile- geffective-version fscm_init_unicodeC5h@]4   54>"Gi4i4i556|gm  (gfilenamefice-9/unicode.scm   -   3  ! 4  - <   >   @    @ C62.0/ccache/ice-9/weak-vector.go000064400000001541151463412640011744 0ustar00GOOF----LE-8-2.0I]4hx] gguile  gdefine-module*   gice-9 g weak-vector  gfilenameS fice-9/weak-vector.scm gexportsS gmake-weak-vector glist->weak-vector g weak-vector? gweak-vector-length gweak-vector-ref gweak-vector-set! gmake-weak-key-alist-vector gmake-weak-value-alist-vector gmake-doubly-weak-alist-vector gweak-key-alist-vector? gweak-value-alist-vector? gdoubly-weak-alist-vector?     gset-current-module   g%init-weaks-builtinsC5h0_]4   54>"Gi6Wgm  (gfilenamefice-9/weak-vector.scm   .    . C62.0/ccache/ice-9/readline.go000064400000036637151463412640011316 0ustar00GOOF----LE-8-2.0=]4h] gguile  gdefine-module*   gice-9 greadline  gfilenameS fice-9/readline.scm gimportsS gsession     gregex   gbuffered-input    gexportsS gfilename-completion-function g add-history g read-history g write-history g clear-history  gset-current-module   g provided? !gload-extension "flibguilereadline-v-18 #fscm_init_readline $g scm-error %g misc-error &f3readline is not provided in this Guile installation 'gcall-with-deferred-observers (' )' *gmodule-export! +* ,* -gcurrent-module .- /- 0greadline-options 1greadline-enable 2greadline-disable 3012 4g readline-set! 54 6greadline-options-interface 7gfor-each 87 97 :gdisplay ;: <: =g string-length >gsymbol->string ?> @> Agnewline BA CA Dgappend ED FD Ggdelq! HG IG Jgmake-syntax-transformer KJ LJ Mgmacro Ng $sc-dispatch ON PN Qgany RQQQ Sg syntax-object Tg eval-when Ugm-a15bdba661f-3 Vgtop WUV Xgribcage Ygdummy Zgopt [gval \YZ[ ]gm-a15bdba661f-5 ^]V _^WW `fl-a15bdba661f-a afl-a15bdba661f-b bfl-a15bdba661f-c c`ab dX\_c eX fgx gf h^ ifl-a15bdba661f-7 ji kXghj lgshift mg interface ngoptions ogenable pgdisable qg option-set! rYmnopq sgm-bde397a-1729 tsV uV vtuuuuu wfl-bde397a-172e xfl-bde397a-172f yfl-bde397a-1730 zfl-bde397a-1731 {fl-bde397a-1732 |fl-bde397a-1733 }wxyz{| ~Xrv} t fl-bde397a-172b  Xg Wdekl~e ghygiene  ST gexpand S gload S geval S  udek  S0 SD  glist S gquote S gsyntax-violation   f-source expression failed to match any pattern gmodule-locally-bound?   gnew-input-prompt f gcontinuation-prompt g input-port gcurrent-input-port g output-port gcurrent-output-port g read-hook gmake-line-buffered-input-port g %readline gstring? g eof-object? gstring=? g string-append f  gmake-readline-port gthe-readline-port ghistory-variable f GUILE_HISTORY g history-file ggetenv fHOME f. f/.guile_history gmemq g add-hook! g exit-hook g readline-port   gset-readline-prompt!  g file-port? g input-port? gwrong-type-arg fset-readline-input-port! fNot a file input port: ~S g port-closed? fPort not open: ~S gset-readline-input-port!  g output-port? fNot a file output port: ~S fset-readline-output-port! gset-readline-output-port!  gset-readline-read-hook!  gmap gapropos-internal f^ g regexp-quote gapropos-completion-function  g*readline-completion-function* g!with-readline-completion-function  greadline-repl-reader g repl-reader g fluid-ref gcurrent-reader g!set-buffered-input-continuation?! f...  grun-hook gbefore-read-hook gread gisatty? gset-current-input-port gsetter   gusing-readline? gactivate-readline  g string-match gmake-completion-function C5h(]4   54>"G4 i5$"4!i"#>"G4 i5$"4$i%&>"G4),/3hD]456<gfilenamefice-9/readline.scm 7   C>"G4),/5hD]456<gfilenamefice-9/readline.scm ;   C>"G69<=@Ch] 4>"G4455 $54 >"G $4 >"G""4 >"G4>"G4 >"G4>"G6gname  gvalue  g documentation   glen  cgfilenamefice-9/readline.scm >   ChY]@Qgoption  gfilenamefice-9/readline.scm >    Ch8{)36]$4>"G6456sgarg  8gfilenamefice-9/readline.scm >    8 gnamegreadline-optionsC0R6Fh0v-1344455>"G6ngflags )gfilenamefice-9/readline.scm >  ) gnamegreadline-enableC1R69IhW]4M5NCOgflag  gfilenamefice-9/readline.scm >    Ch@-1345H4O>"G4J>"G6gflags ?greadline-options  ?gfilenamefice-9/readline.scm >  ? gnamegreadline-disableC2R4L4MPRh(O]CGgdummy  $gopt  $gval   $  $ Ch(] 45$@6gx  "gtmp "gfilenamefice-9/readline.scm >   " g macro-typeg syntax-rulesgpatternsgoptgvalC54R44/55$i"R44/55$i"R44/55$i"4i5R44/55$i"4i5R44/55$i"Rhf]!$"M$4M>"GN"$"445$"4554 5$"14  5$"M$4 M 5"NC^g continuation?  gprompt : gstr  ] gt  f gt  { gfilenamefice-9/readline.scm S #  W )  W %  Z + ( [ + 2 ] 4 : ] % = ` 1 @ ` @ J ` < Q b @ ] ` 1 ] ] % ` f + f f ' s g + y g 9 { g + { f ' i 1 j 5 k D j 5 h +  Ch]HO6ghistory-buffer  gfilenamefice-9/readline.scm Q  R   S    gnamegmake-readline-portCR44/55$i"R44/55$i"R44/55$i"%4i4i5$"5R66 hP]4455$.445$">"G"6gr/w  Ggt 3gfilenamefice-9/readline.scm !  #  }  }  } &  }   }   ~   ~  ~  8 ~  K #  K C hp]$"`4455$.445$">"G"4 5 4   >"GCgr/w  Qgt * =gfilenamefice-9/readline.scm      }   }   } &  }  }  ! ~  $ ~  * ~  B ~  R $ X Y   o CR4),/hD]456<gfilenamefice-9/readline.scm {   C>"GhX-13HHHJ("JKJKJ(" JKJKJJ&"JJ@gargs Ugprompt  Uginp   Ugfilenamefice-9/readline.scm     "  $ '  ) / 6  8  ;  =  I U  U gnamegreadlineCR4),/hE]456=gfilenamefice-9/readline.scm   C>"Gh -13 (C Cgp grest gfilenamefice-9/readline.scm        gnamegset-readline-prompt!CR4),/hE]456=gfilenamefice-9/readline.scm   C>"G$% hX3] 45$"45$645$ 6 C+gp  Wgt "gfilenamefice-9/readline.scm    '  " &  *  , $ .  3 0 6 7 A  E  G I  N ( Q U   W gnamegset-readline-input-port!CR4),/hE]456=gfilenamefice-9/readline.scm   C>"G$% hX4] 45$"45$645$  6 C,gp  Wgt "gfilenamefice-9/readline.scm    '  " &  *  , $ .  3 1 6 7 A  E  G I  N ( Q U   W gnamegset-readline-output-port!CR4),/hE]456=gfilenamefice-9/readline.scm   C>"Gh] Czgh  gfilenamefice-9/readline.scm     gnamegset-readline-read-hook!CR4),/hE]456=gfilenamefice-9/readline.scm   C>"GH>h@] $"44445555NM(CMMNCgtext  =gcont?  =gretval  3 =gfilenamefice-9/readline.scm          %  ) "  $  &  ( .  3  3 8 % :   = COR4),/hE]456=gfilenamefice-9/readline.scm   C>"G4 i5$ ii"hO]L CGgfilenamefice-9/readline.scm      ChO]L CGgfilenamefice-9/readline.scm      Ch`(] OO4O>"GV4>X4O>"GCX4O>"GF g completer  `gthunk  `g old-completer   `gfilenamefice-9/readline.scm      ` gnameg!with-readline-completion-functiong documentationfGWith @var{completer} as readline completion function, call @var{thunk}.CR4),/hE]456=gfilenamefice-9/readline.scm   C>"G44/55$i">ihO]6Ggfilenamefice-9/readline.scm +  -   Ch0s]4L>"G4L>"G6kgfilenamefice-9/readline.scm       4 !  /   / Ch X]4LL>"GL6Pgfilenamefice-9/readline.scm        ChO]6Ggfilenamefice-9/readline.scm +  -   Ch0s]4L>"G4L>"G6kgfilenamefice-9/readline.scm       4 !  /   / Ch X]4LL>"GL6Pgfilenamefice-9/readline.scm        Ch X]4LL>"GL6Pgfilenamefice-9/readline.scm        ChP-.,3# 454545&O O4 O>"GV4$" >X4 O>"GCX4 O>"GFL6Hg repl-prompt greader gport  gouter-new-input-prompt  3 gouter-continuation-prompt  3 gouter-read-hook  3 gfilenamefice-9/readline.scm   -    %  -  3 N  f  }   COR h8]4455$#445>"G 456Cgfilenamefice-9/readline.scm             )  3   5 gnamegactivate-readlineCR4),/hE]456=gfilenamefice-9/readline.scm   C>"GhX'] $-M(CMMN4M5$C"LN4455N"gtext  Tg continue?  Tgstr   5gfilenamefice-9/readline.scm         +     -   "   & '  " 5  & 9   :  $ >  3 ?  7 G  $ I   T    T gnameg completerCh8])HHOQKKC gstrings  5gstrs  5gregexp   5g completer   5gstrs  2gregexp  2gfilenamefice-9/readline.scm      5 gnamegmake-completion-functiong documentationf Construct and return a completion function for a list of strings. The returned function is suitable for passing to @code{with-readline-completion-function. The argument @var{strings} should be a list of strings, where each string is one of the possible completions.CR),/hE]456=gfilenamefice-9/readline.scm   C6gm  ,gt g completions  gboot-9-repl-reader  "gfilenamefice-9/readline.scm   - ) 3 )  5 ) 9 ) > *  D *  F * , K *  T , Z ,  \ , ` , e -  k -  n /  o 0  p 1  u -  ~ 7 ;  >  K  K   K  L  L !  L  M  M   M  N % N  . N / O C Q D u ` w y w  | w } x y  y  y  y  y  y % y * y  x ^ { S    5     "          #    " $ (w G  ( C62.0/ccache/ice-9/common-list.go000064400000030504151463412640011757 0ustar00GOOF----LE-8-2.0,1]24h5] gguile  gdefine-module*   gice-9 g common-list  gfilenameS fice-9/common-list.scm gexportsS gadjoin gunion g intersection gset-difference g reduce-init greduce gsome gevery gnotany gnotevery gcount-if gfind-if g member-if g remove-if g remove-if-not g delete-if! gdelete-if-not! gbutlast gand? gor? ghas-duplicates? !gpick "g pick-mappings #guniq $   !"# %gset-current-module &% '% (gmemq )greverse! *gmemv +gmap ,gcar -gcdr .glength /gerror 0fnegative argument to butlast 1gmemberC5hp,*]4   $54'>"G(h]45$CCge  gl  gfilenamefice-9/common-list.scm M  O   O   O    gnamegadjoing documentationfGReturn list L, possibly with element E added if it is not already in L.C R  h(7](C(C456/gl1  %gl2  %gfilenamefice-9/common-list.scm Q  U   W   W   W & # W  % W   % gnameguniong documentationfwReturn a new list that is the union of L1 and L2. Elements that occur in both lists occur only once in the result list.C R)*hX](C"8(645$"""gl1  Rgl2  Rgl1   Ggresult   Ggfilenamefice-9/common-list.scm Y  \   ]   ^   ^   _  ! _  % _  ) ^  , _ ( / _ 7 2 _ 1 : _ " = `  G `  G ]  J ] ! R ]   R gnameg intersectiong documentationfyReturn a new list that is the intersection of L1 and L2. Only elements that occur in both lists occur in the result list.CR)*hPr]"8(645$ """jgl1  Igl2  Igl1   >gresult   >gfilenamefice-9/common-list.scm b  d  e   e   f  f   f e  # f $ - f  0 g  3 g % 6 g  > g  > d  A d  I d   I gnamegset-differenceg documentationf5Return elements from list L1 that are not in list L2.CRh ](C456gp  ginit  gl   gfilenamefice-9/common-list.scm i  k   m   m   m   m &  m    gnameg reduce-initg documentationfESame as `reduce' except it implicitly inserts INIT at the start of L.CRh(](C(C6gp  "gl  "gfilenamefice-9/common-list.scm o  u   v   u   v   w  w % " w   " gnamegreduceg documentationf9Combine all the elements of sequence L using a binary operation P. The combination is left-associative. For example, using +, one can add up all the elements. `reduce' allows you to apply a function which accepts only two arguments to more than 2 objects. Functional programmers usually refer to this as foldl.CR+,-h$-13(0"$(C45$C"""8(C445?$C45""gpred gl grest  gl   7gt  # 7gl  C {grest  C {gt  \ {gfilenamefice-9/common-list.scm y       !  #  #  1 ) 7 # 7 C  I  L  Q % R - \  \  j  k ' {  {   gnamegsomeg documentationfpPRED is a boolean function of as many arguments as there are list arguments to `some', i.e., L plus any optional arguments. PRED is applied to successive elements of the list arguments in order. As soon as one of these applications returns a true value, return that value. If no application returns a true value, return #f. All the lists should have the same length.CR+,-hC-13(+"(C45$ "C""3(C445?$45"C";gpred }gl }grest  }gl   2gl  > qgrest  > qgfilenamefice-9/common-list.scm         !  #  '  * ) 0 # 2 >  D  E  G  L % M - W  [  ^  _ ' o  q  }  gnamegeveryg documentationfReturn #t iff every application of PRED to L, etc., returns #t. Analogous to `some' except it returns #t if every application of PRED is #t and #f otherwise.CRhU-134?CMgpred gls gfilenamefice-9/common-list.scm     gnamegnotanyg documentationfReturn #t iff every application of PRED to L, etc., returns #f. Analogous to some but returns #t if no application of PRED returns a true value or #f as soon as any one does.CRhS-134?CKgpred gls gfilenamefice-9/common-list.scm     gnamegnoteveryg documentationfReturn #t iff there is an application of PRED to L, etc., that returns #f. Analogous to some but returns #t as soon as an application of PRED returns #f, or #f otherwise.CRhHh]"0(C45$"" "`gpred  Agl  Agn   6gl   6gfilenamefice-9/common-list.scm           ! ( )  .  6  6   A gnamegcount-ifg documentationfIReturn the number of elements in L for which (PRED element) returns true.CRh(X](C45$C6Pgpred  #gl  #gfilenamefice-9/common-list.scm          !  #   # gnamegfind-ifg documentationf|Search for the first element in L for which (PRED element) returns true. If found, return that element, otherwise return #f.CRh(](C45$C6gpred  "gl  "gfilenamefice-9/common-list.scm         "   " gnameg member-ifg documentationf9Return the first sublist of L for whose car PRED is true.CR)hH]"6(645$ """gpred  Ggl  Ggl   <gresult   <gfilenamefice-9/common-list.scm            ! +  .  1 $ 4  <  <  ?  G   G gnameg remove-ifg documentationfWRemove all elements from L where (PRED element) is true. Return everything that's left.CR)hH]"6(645$"""gpred  Ggl  Ggl   <gresult   <gfilenamefice-9/common-list.scm              !  $ $ '  /  2 & < <  ?  G   G gnameg remove-if-notg documentationfURemove all elements from L where (PRED element) is #f. Return everything that's left.CRh0](C4L5$ "4L5Cgl  -gfilenamefice-9/common-list.scm           %   "  ' " )  *   - gnameg delete-ifCh] OQ6gpred  gl  g delete-if  gfilenamefice-9/common-list.scm    gnameg delete-if!g documentationf#Destructive version of `remove-if'.CRh0](C4L5$4L5C"gl  -gfilenamefice-9/common-list.scm               &  ! ' / -   - gnameg delete-if-notCh] OQ6gpred  gl  g delete-if-not  gfilenamefice-9/common-list.scm    gnamegdelete-if-not!g documentationf'Destructive version of `remove-if-not'.CRh(](C $4L5CCglst  %gn  %gfilenamefice-9/common-list.scm           (  ,  6 ! ( "  $   % gnamegblC./0hH<]HOQ45K $ 45"J64glst  Bgn  Bgl   Bgbl  Bgl   %gfilenamefice-9/common-list.scm       ,  1 2  6  :  B   B gnamegbutlastg documentationf*Return all but the last N elements of LST.CRh(-13(C$@Cgargs !gfilenamefice-9/common-list.scm         ! gnamegand?g documentationf#Return #t iff all of ARGS are true.CRh(-13(C$C@gargs !gfilenamefice-9/common-list.scm        !  ! gnamegor?g documentationf"Return #t iff any of ARGS is true.CR1 h(](C45$C6glst  "gfilenamefice-9/common-list.scm           "   " gnameghas-duplicates?g documentationf3Return #t iff 2 members of LST are equal?, else #f.C RhH]"3(C45$"""gp  Dgl  Dgs   9gl   9gfilenamefice-9/common-list.scm            $ !  $ / ,  1 9  9  :  D   D gnamegpickg documentationfZApply P to each element of L, returning a list of elts for which P returns a non-#f value.C!RhH]"6(C45$"""gp  Ggl  Ggs   <gl   <gt   <gfilenamefice-9/common-list.scm                  $  0 '  A /  * 4  <   <   =   G    G gnameg pick-mappingsg documentationfPApply P to each element of L, returning a list of the non-#f return values of P.C"R)(hH\]"1(645$"""Tgl  Bgacc  7gl   7gfilenamefice-9/common-list.scm                     )   ,   /   7   7   8   B    B gnameguniqg documentationf@Return a list containing elements of L, with duplicates removed.C#RC"gm  (gfilenamefice-9/common-list.scm  4 A M  Q  Y  b  i K o  y  p   C     #w $ % & ( *  ,g    ,i C62.0/ccache/ice-9/null.go000064400000001342151463412640010466 0ustar00GOOF----LE-8-2.0]#4h] gguile  gdefine-module*   gice-9 gnull  gfilenameS fice-9/null.scm g re-exportsS gdefine gquote glambda gif gset! gcond gcase gand gor glet glet* gletrec gbegin gdo gdelay g quasiquote g define-syntax g let-syntax g letrec-syntax    gset-current-module !  " C5h(P]4   54">"GCHgm  (gfilenamefice-9/null.scm    ( C62.0/ccache/ice-9/rw.go000064400000001010151463412640010134 0ustar00GOOF----LE-8-2.0]4h-] gguile  gdefine-module*   gice-9 grw  gfilenameS f ice-9/rw.scm gexportsS gread-string!/partial gwrite-string/partial    gset-current-module   g%init-rw-builtinsC5h0V]4   54>"Gi6Ngm  (gfilenamef ice-9/rw.scm   .    . C62.0/ccache/ice-9/slib.go000064400000001522151463412640010445 0ustar00GOOF----LE-8-2.0:]4h] gassq-ref g%guile-build-info gdatadir g string-append f/slib/guile.init g file-exists? gguile  gload-in-vicinity     fice-9 f /usr/share gload-from-path fslib/guile.initC5hP]4ii54i54i5$4  >"G"$C4i 54i5$4  >"G"$Ci6Hgdir  Kginit  Hgt K ginit a gt gfilenamefice-9/slib.scm      ,            1          +   ,   K   W   ]   _  1 a   a   d   p   q        C62.0/ccache/ice-9/string-fun.go000064400000020622151463412640011612 0ustar00GOOF----LE-8-2.0z!]-4h] gguile  gdefine-module*   gice-9 g string-fun  gfilenameS fice-9/string-fun.scm gexportsS gsplit-after-char gsplit-before-char gsplit-discarding-char gsplit-after-char-last gsplit-before-char-last gsplit-discarding-char-last gsplit-before-predicate gsplit-after-predicate gsplit-discarding-predicate gseparate-fields-discarding-char gseparate-fields-after-char gseparate-fields-before-char gstring-prefix-predicate gstring-prefix=? gsans-surrounding-whitespace gsans-trailing-whitespace gsans-leading-whitespace gsans-final-newline ghas-trailing-newline?    gset-current-module !  "  #g string-index $g string-length %g substring &f 'g string-rindex (g string-ref )greverse *gstring=? +gchar-whitespace? ,gchar=?C5h ]4   54">"G#$%h@] 45$"454 5456gchar  =gstr  =gret   =gt  $gend  $ =gfilenamefice-9/string-fun.scm a  c  b  d  $ b  ) e 3 f = e   = gnamegsplit-after-charC R#$%h@] 45$"454 5456gchar  <gstr  <gret   <gt  #gend  # <gfilenamefice-9/string-fun.scm h  i  i  j  # i  ( k 2 l < k   < gnamegsplit-before-charC R#%&h8] 45$4 54566gchar  3gstr  3gret   3gend  3gfilenamefice-9/string-fun.scm n  o o   p   r s ' s  ) s + r  1 q  3 q   3 gnamegsplit-discarding-charCR'%h8] 45$" 4 5456gchar  7gstr  7gret   7gt  gend   7gfilenamefice-9/string-fun.scm u  w  v  v  # y - z 7 y   7 gnamegsplit-after-char-lastCR'%h8] 45$" 4 5456gchar  6gstr  6gret   6gt  gend   6gfilenamefice-9/string-fun.scm |  }  }  }  " ~ ,  6 ~   6 gnamegsplit-before-char-lastCR'%&h8] 45$4 54566gchar  3gstr  3gret   3gend  3gfilenamefice-9/string-fun.scm      '  ) +  1  3   3 gnamegsplit-discarding-char-lastCR$&(%hX>] "H45$64455$4 5456" "6gpred  Ugstr  Ugret   Ugn   Ngfilenamefice-9/string-fun.scm        1  (   * .  1 - ; - E ( H . N ( N   U gnamegsplit-before-predicateCR$&(%hXa] "J45$64455$4 5456" "Ygpred  Wgstr  Wgret   Wgn   Pgfilenamefice-9/string-fun.scm        1  (   * .  1 - 9 > ; - < - C < E - G ( J . P ( P   W gnamegsplit-after-predicateCR$&(%hXT] "I45$64455$4 5456" "Lgpred  Vgstr  Vgret   Vgn   Ogfilenamefice-9/string-fun.scm        1  (   * .  1 - ; - B < D - F ( I . O ( O   V gnamegsplit-discarding-predicateCR'%hPO]"845$454 5"@"Ggch  Igstr  Igret   Igfields   >gstr   >gt   >gfilenamefice-9/string-fun.scm        !  0 ! ! $  %  6  > >  ?  I   I gnamegseparate-fields-discarding-charCR)#%hXe]"A45$ 4 545"4?""6]gch  Vgstr  Vgret   Vgfields   Igstr   Igt   Igfilenamefice-9/string-fun.scm       " " 3 $ " '  (  / * 1  9  : I  J  T  V   V gnamegseparate-fields-after-charCR'%hH9]"745$454 5"@"1gch  Hgstr  Hgret   Hgfields   =gstr   =gt   =gfilenamefice-9/string-fun.scm        ! #  $  5  = =  >  H   H gnamegseparate-fields-before-charCR$%h0]4545$L4 4556Cgprefix  ,gstr  ,gfilenamefice-9/string-fun.scm   $      ( (  *   , Ch]OCwgpred?  gfilenamefice-9/string-fun.scm   gnamegstring-prefix-predicateCR4i*i5R$+(&%h] 45HH"9"1J45$44J55$ JK"" """"4", J$ 44J55$ JK"" """JJ$CJJ6gs  gst gend  gfilenamefice-9/string-fun.scm        $  %  ( " 2  6 9  ; ?  S  [  _  `  c " j 0 l " n  r u  w {       gnamegsans-surrounding-whitespaceCR$+(&%h`.] 45H"4", J$ 44J55$ JK"" """J $C J6&gs  [gend [gfilenamefice-9/string-fun.scm            " & 0 ( " *  . 1  3 7  K  O  Q  [   [ gnamegsans-trailing-whitespaceCR$+(&%h`4] 45H"4",J$44J55$ JK"" """J$CJ6,gs  `gst `gend  `gfilenamefice-9/string-fun.scm            # " -  1 4  6 :  O  S  U  `   ` gnamegsans-leading-whitespaceCR$,(%h@] 45$C4 44555$ 456Cgstr  >gfilenamefice-9/string-fun.scm          % $ ! &  (  ,  2   9   ;    > gnamegsans-final-newlineCR$,(h(] 45$ 44556Cgstr  &gfilenamefice-9/string-fun.scm              (  $ "   $    & gnameghas-trailing-newline?CRCgm  (gfilenamefice-9/string-fun.scm   s a  h  n H u  |  l 7   \     w !        C62.0/ccache/ice-9/save-stack.go000064400000001570151463412640011560 0ustar00GOOF----LE-8-2.0`]4hP] gguile  gdefine-module*   gice-9 g save-stack  gfilenameS fice-9/save-stack.scm g replacementsS g stack-saved? gthe-last-stack    gset-current-module   g make-fluid g%stacks g make-stackC5h`v]4   54>"G R4i5 R  h@-13$C[4 $" ?\ Cg narrowing ;gstacks  6gfilenamefice-9/save-stack.scm *  +   -   5  ! 7 ! % 7  ( 7 0 2 5  9 9  ; gnameg save-stackCRCngm  (gfilenamefice-9/save-stack.scm   , & - (  6 ( ] *   _ C62.0/ccache/ice-9/psyntax-pp.go000064400000576507151463412640011663 0ustar00GOOF----LE-8-2.0/]4hZw] gprimitive-eval gcurrent-module gwarn f0module system is booted, we should have a module gmodule-variable gresolve-module gmacro? g macro-type g macro-binding g%expanded-vtables gassq gname gpublic gprivate g module-name gbare ghygiene gsyntax-violation fbad module kind gfor-each glexical gmacro gellipsis gmodule-define! gmake-syntax-transformer g vector-length g syntax-object gsymbol->string g module-gensym fl g list->vector g make-vector !gappend "gribcage #gshift $glist-ref %g id-var-name &f invalid id 'gsupports-source-properties? (gset-source-properties! )gsource-properties *g begin-form +g $sc-dispatch ,g_ -, .gapply /gany 0geach-any 1/0 2,1 3f-source expression failed to match any pattern 4glocal-syntax-form 5geval-when-form 601 7,6 8ge 9gmemq :geval ;gexpand gload ?gcompile @?> Agc B> Cgdefine-syntax-form Dgdefine-syntax-parameter-form Egguile FE Gg define-form Hgglobal IH Jgdisplaced-lexical KJ Lgcore Mg module-ref Ngmodule-local-variable Og module-add! Pgmake-undefined-variable Qg variable? Rfidentifier out of context Sf"cannot define keyword at top level Tg procedure? U Vg eval-when Wfinvalid situation Xg lexical-call Yg global-call Zg core-form [g local-syntax \gbegin ]gdefine ^,// _// `_1 a,` b,/ cgif dgtop ed f  ge hfl-bde397a-100e ih j"fgi k" lgkey ml ng m-bde397a-fde ond po qf l-bde397a-fdf rq s"mpr tgftype ugfval vgfform wgfe xgfw ygfs zgfmod {tuvwxyz |eeeeeee }f l-bde397a-fd7 ~f l-bde397a-fd8 f l-bde397a-fd9 f l-bde397a-fda f l-bde397a-fdb f l-bde397a-fdc f l-bde397a-fdd }~ "{| gfirst  f l-bde397a-fce  "g gr gw gs grib gmod gfor-car? 8 f l-bde397a-fb6 f l-bde397a-fb7 f l-bde397a-fb8 f l-bde397a-fb9 f l-bde397a-fba f l-bde397a-fbb f l-bde397a-fbc  "| glambda-var-list ggen-var gstrip gexpand-lambda-case glambda*-formals gexpand-simple-lambda glambda-formals g ellipsis? g expand-void geval-local-transformer gexpand-local-syntax g expand-body g expand-macro gexpand-application g expand-expr g syntax-type gparse-when-list gexpand-install-global gexpand-top-sequence gexpand-sequence g source-wrap gwrap gbound-id-member? gdistinct-bound-ids? gvalid-bound-ids? g bound-id=? g free-id=? gwith-transformer-environment gtransformer-environment gresolve-identifier glocally-bound-identifiers g same-marks? g join-marks g join-wraps g smart-append gmake-binding-wrap gextend-ribcage! gmake-empty-ribcage gnew-mark g anti-mark g the-anti-mark g top-marked? gtop-wrap g empty-wrap gset-ribcage-labels! gset-ribcage-marks! gset-ribcage-symnames! gribcage-labels g ribcage-marks gribcage-symnames gribcage? g make-ribcage g gen-labels g gen-label g wrap-subst g wrap-marks g make-wrap gid-sym-name&marks g id-sym-name gid? g nonsymbol-id? g global-extend glookup gmacros-only-env gextend-var-env g extend-env gnull-env g binding-value g binding-type g make-binding g arg-check gsource-annotation g no-source gset-syntax-object-module! gset-syntax-object-wrap! gset-syntax-object-expression! gsyntax-object-module gsyntax-object-wrap gsyntax-object-expression gsyntax-object? gmake-syntax-object gbuild-lexical-var g build-letrec gbuild-named-let g build-let gbuild-sequence g build-data g build-primref gbuild-lambda-case gbuild-case-lambda gbuild-simple-lambda gbuild-global-definition gbuild-global-assignment gbuild-global-reference ganalyze-variable gbuild-lexical-assignment gbuild-lexical-reference g build-dynlet gbuild-conditional gbuild-application g build-void gmaybe-name-value! gdecorate-source gget-global-definition-hook gput-global-definition-hook g session-id glocal-eval-hook gtop-level-eval-hook gfx< gfx=  gfx-  gfx+  gset-lambda-meta!  g lambda-meta  glambda? g make-dynlet g make-letrec gmake-let gmake-lambda-case g make-lambda g make-sequence gmake-application gmake-conditional gmake-toplevel-define gmake-toplevel-set gmake-toplevel-ref gmake-module-set gmake-module-ref gmake-lexical-set gmake-lexical-ref gmake-primitive-ref g make-const g make-void  ;%      !eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee "f l-bde397a-b9e #f l-bde397a-b9c $f l-bde397a-b9a %f l-bde397a-b98 &f l-bde397a-b96 'f l-bde397a-b94 (f l-bde397a-b92 )f l-bde397a-b90 *f l-bde397a-b8e +f l-bde397a-b8c ,f l-bde397a-b8a -f l-bde397a-b88 .f l-bde397a-b86 /f l-bde397a-b84 0f l-bde397a-b82 1f l-bde397a-b80 2f l-bde397a-b7e 3f l-bde397a-b7c 4f l-bde397a-b7a 5f l-bde397a-b78 6f l-bde397a-b76 7f l-bde397a-b74 8f l-bde397a-b72 9f l-bde397a-b70 :f l-bde397a-b6e ;f l-bde397a-b6c f l-bde397a-b66 ?f l-bde397a-b64 @f l-bde397a-b62 Af l-bde397a-b60 Bf l-bde397a-b5e Cf l-bde397a-b5c Df l-bde397a-b5a Ef l-bde397a-b58 Ff l-bde397a-b56 Gf l-bde397a-b54 Hf l-bde397a-b52 If l-bde397a-b4a Jf l-bde397a-b41 Kf l-bde397a-b3e Lf l-bde397a-b30 Mf l-bde397a-b26 Nf l-bde397a-b17 Of l-bde397a-b09 Pf l-bde397a-b07 Qf l-bde397a-b05 Rf l-bde397a-b03 Sf l-bde397a-b01 Tf l-bde397a-aff Uf l-bde397a-afd Vf l-bde397a-afb Wf l-bde397a-af9 Xf l-bde397a-af6 Yf l-bde397a-af4 Zf l-bde397a-ae6 [f l-bde397a-ad8 \f l-bde397a-aca ]f l-bde397a-ac8 ^f l-bde397a-abe _f l-bde397a-abb `f l-bde397a-ab9 af l-bde397a-ab7 bf l-bde397a-ab5 cf l-bde397a-ab3 df l-bde397a-ab1 ef l-bde397a-aaf ff l-bde397a-aa1 gf l-bde397a-a97 hf l-bde397a-a8c if l-bde397a-a75 jf l-bde397a-a67 kf l-bde397a-a64 lf l-bde397a-a56 mf l-bde397a-a54 nf l-bde397a-a52 of l-bde397a-a50 pf l-bde397a-a4e qf l-bde397a-a4c rf l-bde397a-a4a sf l-bde397a-a48 tf l-bde397a-a46 uf l-bde397a-a39 vf l-bde397a-a36 wf l-bde397a-a34 xf l-bde397a-a32 yf l-bde397a-a30 zf l-bde397a-a2e {f l-bde397a-a2c |f l-bde397a-a2a }f l-bde397a-a28 ~f l-bde397a-a26 f l-bde397a-a24 f l-bde397a-a22 f l-bde397a-a20 f l-bde397a-a1e f l-bde397a-a1c f l-bde397a-a1a f l-bde397a-a18 f l-bde397a-a16 f l-bde397a-a14 f l-bde397a-a12 f l-bde397a-a10 f l-bde397a-a0e f l-bde397a-a0c f l-bde397a-a0a f l-bde397a-a08 f l-bde397a-a06 f l-bde397a-a04 f l-bde397a-9f6 f l-bde397a-9e8 f l-bde397a-9da f l-bde397a-9cc f l-bde397a-9ca f l-bde397a-9c8 f l-bde397a-9c6 f l-bde397a-9c3 f l-bde397a-9c1 f l-bde397a-9bf f l-bde397a-9bd f l-bde397a-9bb f l-bde397a-9b9 f l-bde397a-9b7 f l-bde397a-9b5 f l-bde397a-9b3 f l-bde397a-9b1 f l-bde397a-9af f l-bde397a-9ad f l-bde397a-9ab f l-bde397a-9a9 f l-bde397a-9a7 f l-bde397a-9a5 f l-bde397a-9a3 f l-bde397a-9a1 "#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ " ! gdefine-structure gdefine-expansion-accessors gdefine-expansion-constructors  eee f l-bde397a-967 f l-bde397a-92f f l-bde397a-8fd  " ejkskkkkk E c   glambda gargs ge1 ge2   eeee fl-bde397a-1001 fl-bde397a-1002 fl-bde397a-1003 fl-bde397a-1004  " ekskkkkk  g define-syntax gdefine-syntax-parameter gcall gself-evaluating? gconstant gother g syntax->datum ginclude-deprecated-features gissue-deprecation-warning fASequences of zero expressions are deprecated. Use *unspecified*. fsequence of zero expressions fDdefinition in expression context, where definitions are not allowed, gsyntax f1reference to pattern variable outside syntax form f)reference to identifier outside its scope funexpected syntax gmap f&encountered raw symbol in macro output fm f placeholder g placeholder  fno expressions in body fnonprocedure transformer ,0 f-invalid or duplicate identifier in definition greverse geach //  1 ,挤 fduplicate bound keyword fbad local syntax definition g $sc-ellipsis  g... gb  fl-bde397a-116a  "g gn  fl-bde397a-1167  "g gid  fl-bde397a-1165  "g 8 eee fl-bde397a-115f fl-bde397a-1160 fl-bde397a-1161  " ekkkkkk   finvalid argument list f%duplicate identifier in argument list glambda* grestS gkeyS  goptionalS  /  finvalid optional argument list  ga    ee fl-bde397a-11f4 fl-bde397a-11f5  "  greq gropt  fl-bde397a-11ea fl-bde397a-11eb fl-bde397a-11ec  " gcheck grest gopt l eeeee  fl-bde397a-11b4 !fl-bde397a-11b2 "fl-bde397a-11b0 #fl-bde397a-11ae $fl-bde397a-11ac % !"#$ &"% 'g orig-args (' )fl-bde397a-11ab *) +"(g* ,ek&+ -, .- //// 0// 1/ 2finvalid keyword argument list 3gallow-other-keysS 4gkeyword? 5gsymbol->keyword 6gk 76 8fl-bde397a-1233 98 :"7g9 ;fl-bde397a-122d " = ?grkey @? Afl-bde397a-1222 Bfl-bde397a-1223 Cfl-bde397a-1224 Dfl-bde397a-1225 EABCD F"@E Gek:>kF&+  HG IH Jfinvalid rest argument Kgcar Lgcadr M/1 Ngvector O_ PNO QP1 Rgcons Sgstring? Tg documentation UM VMU Wg vector->list Xgsyntax-session-id Yg make-fluid Zgerror [f9called outside the dynamic extent of a syntax transformer \g letrec-syntax ]g let-syntax ^gsyntax-parameterize _f bad syntax `gquote agref bfmisplaced ellipsis c/_ dglist eN1 f` gfextra ellipsis hg primitive ih! jfmissing ellipsis kgtmp lgcdr mgand-map nfhow did we get here ofbad `syntax' form p,M qf bad lambda rf bad lambda* sg case-lambda t,U u/U v,u wfbad case-lambda xg case-lambda* yfbad case-lambda* zg with-ellipsis {glet |fduplicate bound variable }/挤 ~,} fbad let gletrec f bad letrec gletrec* f bad letrec* gset! ,1/ gsetter gm-bde397a-16ac d  fl-bde397a-16ad  "m gtype gvalue gformform gee gww gss gmodmod  fl-bde397a-16a5 fl-bde397a-16a6 fl-bde397a-16a7 fl-bde397a-16a8 fl-bde397a-16a9 fl-bde397a-16aa fl-bde397a-16ab  "| ghead gtail gval  fl-bde397a-1696 fl-bde397a-1697 fl-bde397a-1698  " 8 eeeee fl-bde397a-1677 fl-bde397a-1678 fl-bde397a-1679 fl-bde397a-167a fl-bde397a-167b  " ekkkk   fbad set! gprocedure-property gvariable-transformer fnot a variable transformer g@ ,0/ e  fl-bde397a-16d4 fl-bde397a-16d5  " 8 fl-bde397a-16c8 fl-bde397a-16c9 fl-bde397a-16ca  " ek   g@@ gfree-id g remodulate  fl-bde397a-16e0  " fl-bde397a-16dd fl-bde397a-16de fl-bde397a-16df  " e   ,0/ gexp  fl-bde397a-1709 fl-bde397a-170a  " e  fl-bde397a-16fd fl-bde397a-16fe  " e  ,/// g with-fluids g syntax-case gp gids  fl-bde397a-1776 fl-bde397a-1777 fl-bde397a-1778  " gcvt g v-reverse gcvt*  fl-bde397a-1755 fl-bde397a-1753 fl-bde397a-1751  " gpattern gkeys  fl-bde397a-174e fl-bde397a-174f fl-bde397a-1750  " ggen-syntax-case g gen-clause gbuild-dispatch-call gconvert-pattern  eeee fl-bde397a-1749 fl-bde397a-1747 fl-bde397a-1745  fl-bde397a-1743     "   ek   ,  N0 gatom geach+  fduplicate pattern variable gpat  fl-bde397a-1812 fl-bde397a-1813  " gx gclauses  fl-bde397a-1807 fl-bde397a-1808 fl-bde397a-1809 fl-bde397a-180a  fl-bde397a-180b !  ""! #ek"  $# %,# &finvalid clause '00 (/' ),( *finvalid literals list +g macroexpand ,g identifier? -g datum->syntax .g syntax-source /ggenerate-temporaries 0finvalid argument 1ft 2gfree-identifier=? 3gbound-identifier=? 4gthrow 5g syntax-error 6gsyntax-local-binding 7gassq-ref 8funexpected id-var-name 9gpattern-variable :g syntax-locally-bound-identifiers ;gdefine! 1 ?,> @ Afl-bde397a-196a Bfl-bde397a-196b CAB D"@C E Ffl-bde397a-1967 GF H"EgG IeDkH J{I K LK1 M,L Ngout Ogin PNO Qfl-bde397a-1970 Rfl-bde397a-1971 Sfl-bde397a-1972 Tfl-bde397a-1973 UQRST V"PU WeVkH XW Y{W Zfl-bde397a-197a [fl-bde397a-197b \fl-bde397a-197c ]fl-bde397a-197d ^Z[\] _"P^ `e_kH a` bd` c{` dgmessage egarg fde gfl-bde397a-19a3 hfl-bde397a-19a4 igh j"fi kfl-bde397a-1986 lk m"Egl nejkm o5n pn qp rg string-join sgobject->string tg syntax-rules ugclause vu wfl-bde397a-19af xw y"vgx zgexpand-syntax-rules {g expand-clause |z{ }ee ~fl-bde397a-19ac fl-bde397a-19aa ~ "|} gxx  fl-bde397a-19a9  "g eky 5  1 _ _/ gdummy gkeyword gtemplate  fl-bde397a-19c4 fl-bde397a-19c5 fl-bde397a-19c6  " eky   de fl-bde397a-19ba fl-bde397a-19bb fl-bde397a-19bc fl-bde397a-19bd  " eky   5  000 g docstring 6u eeeeee fl-bde397a-19d5 fl-bde397a-19d6 fl-bde397a-19d7 fl-bde397a-19d8 fl-bde397a-19d9 fl-bde397a-19da  " gdots g docstrings  fl-bde397a-19ce fl-bde397a-19cf fl-bde397a-19d0 fl-bde397a-19d1  " ekkkk      t  gpatterns    fl-bde397a-19e7  "g gform  fl-bde397a-19e3  "g ekkkkkk  z 0 ,ό / 0ь ,Ҍ /ό ,Ԍ /Ҍ ,֌ gdefine-syntax-rule ,_/   fl-bde397a-1a50 fl-bde397a-1a51 fl-bde397a-1a52  " fl-bde397a-1a4d  "Eg ek  t , ,_//   fl-bde397a-1a5f fl-bde397a-1a60 fl-bde397a-1a61 fl-bde397a-1a62  " ek  t , glet* gf gbindings  fl-bde397a-1a80 fl-bde397a-1a81  " gv  fl-bde397a-1a76 fl-bde397a-1a77 fl-bde397a-1a78 fl-bde397a-1a79 fl-bde397a-1a7a  " fl-bde397a-1a68  "Eg ekk {  gbody  gbinding      fl-bde397a-1a8a  fl-bde397a-1a8b    "  ekkk { g quasiquote gunquote glev  fl-bde397a-1a9e fl-bde397a-1a9f  " gemit g quasivector g quasilist* g quasiappend g quasicons gvquasi  gquasi !  "eeeeeee #fl-bde397a-1a9a $fl-bde397a-1a98 %fl-bde397a-1a96 &fl-bde397a-1a94 'fl-bde397a-1a92 (fl-bde397a-1a90 )fl-bde397a-1a8e *#$%&'() +"!"* ,ek+ -, .- /./ 0fvalue 1 2fl-bde397a-1aa2 32 4"1g3 5e4k+ 605 7fquote 875 95 :89 ;, <; =</ >fl-bde397a-1aa5 ?> @"1g? Ae@k+ B7A CA DBC Egq FE Gfl-bde397a-1aa8 Hfl-bde397a-1aa9 IGH J"FI KeJk+ LK ML NM0 Ofl-bde397a-1aae PO Q"1gP ReQJk+ S0R T7R UR VTU Wgunquote-splicing XWK YX ZY0 [fl-bde397a-1ab3 \[ ]"1g\ ^e]Jk+ _0^ `7^ aW^ b`a c7 dc0 efl-bde397a-1b0e fe g"Egf hfl-bde397a-1b0b ih j"Egi kegkj+ l7k mgy nm ofl-bde397a-1b23 po q"ngp rm6 sfl-bde397a-1b11 tfl-bde397a-1b12 ufl-bde397a-1b13 vstu w"rv xeqkwkj+ y7x zflist {z |{0 }flist* ~} /1 ~ f list->vector gt-bde397a-1b34  gm-bde397a-1b35 d  fl-bde397a-1b38  " gelse  fl-bde397a-1b32  "g ekkwkj+   fvector gt-bde397a-1b19  gm-bde397a-1b1a d  fl-bde397a-1b1e  " gls  fl-bde397a-1b18  "g ekkkkkj+   fl-bde397a-1abb  "1g ek+ 7 fl-bde397a-1ac3 fl-bde397a-1ac4  "F fl-bde397a-1abf fl-bde397a-1ac0  " ek+   0 fl-bde397a-1ac9  "1g ek+ 0 7   W  0 fl-bde397a-1ace  "1g ek+ 0 7 W  ek+ 7  c/ gdx  fl-bde397a-1ae4  "g gdy  fl-bde397a-1ae0  "g m fl-bde397a-1ada fl-bde397a-1adb  " fl-bde397a-1ad5 fl-bde397a-1ad6  " ekkk+  7 ekkk+ z } {/ gstuff  fl-bde397a-1ae7  "g ekkk+ z ~/ fl-bde397a-1aea  "g ekkk+ } ekkk+ } c fl-bde397a-1aee fl-bde397a-1aef  " ek+ 7  fappend fl-bde397a-1af6  "1g ekk+  0/ m fl-bde397a-1afd fl-bde397a-1afe  " ekk+  fl-bde397a-1b3e   "Eg  fl-bde397a-1b3b     "Eg   e k + `  gt-bde397a-1b43  gm-bde397a-1b44 d  fl-bde397a-1b48  " fl-bde397a-1b41  "Eg ekk + d gt-bde397a-1b57 gt-bde397a-1b56  gm-bde397a-1b58  d !   "fl-bde397a-1b5c #fl-bde397a-1b5d $"# %"!$ &gx* '& (fl-bde397a-1b51 )fl-bde397a-1b52 *() +"'* ,fl-bde397a-1b4d -fl-bde397a-1b4e .,- /". 0ek%k+/k +  1R0 2 320 4gt-bde397a-1b63 54 6gm-bde397a-1b64 76d 87 9fl-bde397a-1b68 :9 ;"58: "Eg= ?ek;>k + @!? A BA0 Cgt-bde397a-1b6f DC Egm-bde397a-1b70 FEd GF Hfl-bde397a-1b74 IH J"DGI Kfl-bde397a-1b6d LK M"EgL NekJMk + ONN P QP/ Rgt-bde397a-1b7b SR Tgm-bde397a-1b7c UTd VU Wfl-bde397a-1b7f XW Y"SVX Zfl-bde397a-1b79 [Z \"Eg[ ]ekY\k + ^] _0 `_/ aginclude bgopen-input-file cgabsolute-file-name? dg in-vicinity efBrelative file name only allowed when the include form is in a file fg file-encoding ggset-port-encoding! hfUTF-8 ig eof-object? jgclose-input-port kgread lgfilename mgdirname n ofl-bde397a-1bba po q"ngp rgfn sr tfl-bde397a-1bb5 ut v"sgu w6l xfl-bde397a-1bb1 yfl-bde397a-1bb2 zxy {"wz |gdir }| ~fl-bde397a-1bab ~ "}g gfile  fl-bde397a-1ba7  "g gsrc  fl-bde397a-1ba5  "g g read-file  fl-bde397a-1b8c  " fl-bde397a-1b8b  "Eg ekqkkv{kkkk \ ginclude-from-path g%search-load-path ffile not found in path fl-bde397a-1bc9  "sg fl-bde397a-1bc5  "sg fl-bde397a-1bc1 fl-bde397a-1bc2  "w fl-bde397a-1bbe  "Eg ekkkk  a f*expression not valid outside of quasiquote gset-procedure-property! f$variable transformer not a procedure gmake-variable-transformer gidentifier-syntax 8 fl-bde397a-1bdd  "g fl-bde397a-1bda  "g ek          ,    ,    ek   // / , gexp1 gvar gexp2  fl-bde397a-1bec fl-bde397a-1bed fl-bde397a-1bee fl-bde397a-1bef fl-bde397a-1bf0  " ek       ܌        , gdefine* gb0 gb1  fl-bde397a-1bfa fl-bde397a-1bfb fl-bde397a-1bfc fl-bde397a-1bfd  " fl-bde397a-1bf7  "Eg ek ]   fl-bde397a-1c08 fl-bde397a-1c09  " ek ]C5hj,35HHh]6gx  gmod  gfilenamefice-9/psyntax.scm        gnamegtop-level-eval-hookC  h]$"45$4>"G"4$ 45"455$8$/45$45$4545CCCCCgsymbol  gmodule  gv  L gval  ^ gfilenamefice-9/psyntax.scm )   *   *  *  +   +  " +  / ,  7 , $ 8 - ( = - 8 ? - ( D . ( L ,  L , T 0 W 0  [ 0 ^ 1  ^ 1  a 2  k 2  l 2 % v 2  w 3  ~ 4  3   gnamegget-global-definition-hookC   h@]$4 && 45$C CCC gname  ?gval  ?gmeta   ;gv  2 ;gfilenamefice-9/psyntax.scm <     =     >  ?  ?  $ ?  ( ? , @ - / @ & 2 @  :    ? gnamegmaybe-name-value!C h] Cgsource  gfun-exp  garg-exps   gfilenamefice-9/psyntax.scm H       gnamegbuild-applicationC  h]$$ 6$ 4455$66$6$74455$"4455$ 66  66gmod  gvar  g modref-cont   g bare-cont   gkind   gmod   gfilenamefice-9/psyntax.scm \   ]  _   `   _  a $ b  - a 0 c . 3 c ; 9 c . : c " > c  D e  M d  V a \ f  e a h g 3 k g @ q g 3 r g ' v g  | h "  h 3 h " g  i  j  k ) k  ^ !  gnameganalyze-variableC h0]   Cgsrc  )greq  )grest   )gvars   )gmeta   )gexp   )gbody   )gfilenamefice-9/psyntax.scm        )           ) gnamegbuild-simple-lambdaC h ](C Cgsrc  gexps  gfilenamefice-9/psyntax.scm              gnamegbuild-sequenceC   h]M        $B  &2  4 5$"      ""4L>"G               Cgsrc  gids  gvars   gval-exps   gbody-exp   gf   gf-name   gvars   gids   gbody + =gproc = gmeta V gv q }gfun-exp gnames ggensyms gvals gbody gfilenamefice-9/psyntax.scm                    #  ) +   +   2   5  ; :   =  B   F =  I   V > Y ?  ] ?  a ?  e ? k @ - n @ & q @  y        $        $  gnamegbuild-named-letCO  h8](C4L>"G Cgsrc  6g in-order?  6gids   6gvars   6gval-exps   6gbody-exp   6gfilenamefice-9/psyntax.scm        &    6 gnameg build-letrecCO hz] Crgx  gfilenamefice-9/psyntax.scm     gnamegsyntax-object-expressionC h(](C"glabels  %gbindings  %gr   %gfilenamefice-9/psyntax.scm -   .   0   0 %  1 $  1 1  1   1  % 0   % gnameg extend-envCO h(](C"glabels  (gvars  (gr   (gfilenamefice-9/psyntax.scm 5   6   8   8 )  9 (  9 C  9 L  9 5  9 "  9  ( 8   ( gnamegextend-var-envCO hH](C&"$ 4L5C"gr  Cga Cgt   *gfilenamefice-9/psyntax.scm ?   @  A B  B  C   C  . C  1 D  6 D + 8 D  9 D  = E # C E   C gnamegmacros-only-envCOh]45456gtype  gsym  gval   gfilenamefice-9/psyntax.scm T   $  &   $    gnameg global-extendCh8]$C$"45 $ & CCCCgx  6gfilenamefice-9/psyntax.scm c   e d      d     / f   6 gnamegid?Ch ](C44554L5Cgls  gfilenamefice-9/psyntax.scm              %            *        gnameg gen-labelsCO !h](C" L "j$^45 $H &6 L (" 45 """"""" GLL"Wgids  gi  gx  gm1  J igm2  J igsymname  gmarks  gfilenamefice-9/psyntax.scm       <  )  u   u  q  !   % q  &   D t  I   J t ( J t T   [  o r        !  +    gnamegfC"hx]+(C45454545OQ4 >"GCpgids  {glabels  {gw   {glabelvec   ugn   rg symnamevec  . ogmarksvec  . ogf  = ^gfilenamefice-9/psyntax.scm                    !  $ (  ? .   =   `   x   y  z    { gnamegmake-binding-wrapC!h](+(C(" 45C(" 45(" 45Cygw1  ygw2  ygm1   ygs1   ygm2  ! ;gm2  @ Zgm2  ] wgfilenamefice-9/psyntax.scm        '            !  $ !   )   0  <   @  @   H   O  ]  ]   e   l  x    y gnameg join-wrapsCh8]&C(C(C&"Cgx  6gy  6gfilenamefice-9/psyntax.scm           "   &  )   ,  & 4    6 gnameg same-marks?CO#$h]#(D&" $m45"Y$"" "&#4L 5$  D"" ""a("A""&+4L4 55$4 5D"" " gsym  gsubst  gmarks   gfst   gsymnames  0 gn  @ gi  F gsymnames   gi    gfilenamefice-9/psyntax.scm                    " "  . ,   0   0   5   9   :   @  F   K   O   T  ( `   g   m   m   r   x   y      *                 -  !    '            (    (                9   gnamegsearchC%&!hR]:OLQ$45$CC" 6$45 $| &n  (" 454> G$C45$CC"e"a"]Jgid  gw  gsearch  gt  & 4gid  j gw1  j gm1  t gm2  t gmarks  gnew-id  gmarks  gt   gfilenamefice-9/psyntax.scm           !  $  / &   &  <  ! >  . B   B   E   I   J   j  q  % t  4 t   ~      +  6  +        (      gnameg id-var-nameCO#h8]B"_(C& "  $"w""["G( "4L    5"""a45"I$ "4L    5" ""gw  5gmod  5gsubst   egresults   egfst   egsymnames  2 egmarks  2 egsubst  i gsymnames  i gmarks  i gresults  i gsymnames  m gmarks  m gresults  m gw gsubst  )gsymnames  )gmarks  )gresults  )gn  )gi  gresults  gw gfilenamefice-9/psyntax.scm (   * +  -   -   .   .   /  ) /  -   2 0  9 2  = 2  Q 3  e 4  i 6 m 7 s 8  v 9  9  :  : $ ;  ; ! < 7 < , < !  '          ;  ;  :  7 @ A  A B  C  C  D  D  E  F  F # G 9 G . G #   '                F   F   E   B  , J  - J  5 J A  5 gnameglocally-bound-identifiersCOh,]"d("a$"3$+45 $ &  """$ """$L6C$gids  ~gids  jgx   Xgfilenamefice-9/psyntax.scm                e  d  %   ) d  *   F f  \   _  " e   j  v   |    ~ gnamegvalid-bound-ids?COh0] ""(C4L5$C""gids  0gids  (gfilenamefice-9/psyntax.scm              *   4       "   (   (    0 gnamegdistinct-bound-ids?COh_] (C" "$45 $o &]$N45 $8 &&  &4L  5"""""""""w""o""g$C";Wgx  glist  gj  gt  gfilenamefice-9/psyntax.scm             |     # |  $   1 | 5   f } g   n   o   t   u   w     %    gnamegbound-id-member?COhd]"(CC"R$G45 $5 &' 4L 5 C"""((C""\gx  gw  gdefmod   g expression  S egwrap  S egmodule  S egfilenamefice-9/psyntax.scm           "   &   '   C  L   N  S   S  [   q   t   x   {  -     gnamegwrapCO'(h@]L$'45$4>"G""6gx  9gw  9gs   9gdefmod   9gfilenamefice-9/psyntax.scm   8  8   8  9 9    9 gnameg source-wrapCO)h]D(C4L4$,45 $ & """5$"> G   4L   5   4L5Cgbody  gr  gw   gmod   ge  gprops  R egtype  o gvalue  o gform  o ge  o gw o gs o gmod o gfirst  gfilenamefice-9/psyntax.scm         3  +          "   #   R   R   W   [  n   r       ,  4  ,    gnamegdobodyCh0] LOLLQ456gbody  +gr  +gw   +gs   +gmod   +gdobody   )gfilenamefice-9/psyntax.scm      +    + gnamegexpand-sequenceCO)*+-.h]LC   C2h g]LLLLLLLL6_ge1  ge2  gfilenamefice-9/psyntax.scm      C34h]LLLL6gbody  gr  gw   gs   gmod   gfilenamefice-9/psyntax.scm  .   0   C5789:;<=>?@AB h]#4LL5L &r45$'LLLL45$"LL645$.4LLLLL54>"G"LC45$4 5$"/45$"L & 45"$LLLL LL6L  &"L $LLLL  LL6LC4 5$"/45$"L & 45"$-4LLLLL54>"GLCLCgx  ge1  ge2   g when-list   gbody   gx  p gt  gt  gt  1 pgt  G mgx    gfilenamefice-9/psyntax.scm   -      '      $ !  * %  $ )  4  . 8  4 <  . @  * B  G H  L J  * P  $ Q  * U  0 Y  * ]  & ^  + j  K l  N p  + p  * s    &     (  .  (  $  (  .  (  $  4  (  :  @  :   5  :  $   (   $   9   < %  ( )  $ -  * 1  $ 1  ?  $ C  * G  $ G  X  0 \  $ ]  6 a  < e  6 t   u  !   A   D   !     I   CCDA9?><:F   GIKHLMNOPQ)   h]84LLLL4L$,4L5 $L &L "L"L"L5$"L> G4LL5$B &2 45$"L "" LLCgprops E Xgtype b gvalue b gform  b ge  b gw  b gs  b gmod  b gexp gmeta gv   gfilenamefice-9/psyntax.scm : $               E   E   J   N  a   e   t  ; &   =    > ?  ?  ?  ? @ - @ & @       CJR'(ShN]LLLLLLLLL6Fgfilenamefice-9/psyntax.scm K &  L (   C7h` ,3(C4L4$,45 $ & """5  $ "   $ " > G     $k4 5$4O>o"A4  5$#4   L O>;" 4   >*"% $%4L    L O>"$I4 5$'4L    L L O >" 4   >"$"$4L  54L5$45$4L4L  4 $,4 5 $ & " " " 5$"> G4L554L>"G45$ ""45$4L4L  4 $,4 5 $ & " " " 5$"> G4L55""H$4L4L  4 $,4 5 $ & " " " 5$"> G4L554L>"G"~45$o4L4L  4 $,4 5 $ & " " " 5$"> G4L54455$ "    $B &2 4 !5$"! "" >"G"""$+4L  54 5$")$ 4L5$"#"$%$"!&$"$"'$&"$4(455$"45$4)455" 4*454+5>"WG"P4,5$A$24-5$""4.45>"G""""""&4L  4 $,4 5 $ & " " " 5$"> G4L5$B &2 4 !5$"! ""  4/>"G"0L  L O"1$R4 24L $'43 5$44  >"G""  54L  5>"N4 54L $'43 5$44  >"G""  54L  5>Y"T&24L     54/>"G"6     LO  G"gbody  \gr  \gw   \gs   \gm   \gesew   \gmod   \gexps   \ge   gprops W jgt j }gtype  1gvalue 1gform 1ge 1gw 1gs 1gmod  1gtmp  gtmp  gtmp  L gn   gr   gprops   (gtype  2 mgvalue  2 mgform  2 mge  2 mgw  2 mgs  2 mgmod  2 mge  o gprops    gtype   Ngvalue   Ngform   Nge   Ngw   Ngs   Ngmod   Ngprops   gtype   gvalue   gform   ge   gw   gs   gmod   ge   #gprops  z gtype   gvalue   gform   ge   gw   gs   gmod   ge   gfun-exp   2garg-exps   2gexp  2 gmeta  K ugv  f rgn   gt   gt   gtype   gold  w gprops  C Vgtype  ` gvalue  ` gform  ` ge  ` gw  ` gs  ` gmod  ` gexp   gmeta   gv   gx   gx   gexps  2 \Rgfilenamefice-9/psyntax.scm      !          #   '   (   W   W   \   `  j  -          C     "   <         "   (   "      +                           1   5   D  o  + o  " r  $   (   .   (   $   0   &   ,   &   "   4                                 %  P  4 S  . f   g  ' l   u   z   ~                           '      #  ( (  " ,  ( 0  " 4   5  " 8   A   F   J   K   z   z                  #      !      3          e #      !  e #     g &     f  c $   2 `  7   ; =  >   K > N ?  R ?  V ?  Z ? ` @ - c @ & f @  n        "     # #  #   N  M   O  M   P   P  P 1  Q   % &  #   &  ? ) ' M )  N * , Q * C Y * , ] ) " c + ' k ) " l , - o , > w , - w , " ~ 3 (  3 5  3 H  3 (  / $  / -  / $  0 -  / (  1 2  1 :  1 2  / (  2 (  2 8  2 K  2 (  6 +  6                C   C   H   L  _   c   r   7 -     =      >  ?   ?   ?   ?  @ -  @ &  @         7 $   , 5  9 &  : >  ? > 3 @   H 8  I 8  S 8 T 9 w   x @ 0  >   B   B 3     8   8   8  9     D 0  B   G -  G "  H /  H &   1 F ! 5  : O  \ O   \ gnamegscanC Th]/O L L LLLLLLLLLQ4> G(  CL "8 ( "7   4 5$ 4 5"    "   "6gbody  gr  gw   gs   gm   gesew   gmod   gscan   gexps  H gin e gout e ge t  gfilenamefice-9/psyntax.scm   1 R  B R 8 G R  K Q  S T W   e X  k Y  t Z t Z  y [  z \ ' \ # \ 6 \  [  X  X ) X  V   gnamegexpand-top-sequenceCO F    h ]4455$ "    $B &2 45$" "" Cgname  ge  gfun-exp  I `garg-exps  I `gexp  ` gmeta  y gv  gfilenamefice-9/psyntax.scm _       !     3          e #    *  ! , e # 0   A g & D   I f I c R   ` `  e   i =  l   y > | ?  ?  ?  ? @ - @ & @     !  gnamegexpand-install-globalCU?>:;VW hp8]4L5"W(C&"&"&"$ "6"0ge  pg when-list  pgresult  pgl   hgt   Ngfilenamefice-9/psyntax.scm k   m  m   n  o  q   q  R q  U r  [ r  _ s & a s 1 f t & h s  h n   p gnamegparse-when-listCO IKHUXYMLZ[4\*V5]+^ab3h8]$C$"45 $ & CCCC~gname  6gfilenamefice-9/psyntax.scm  e d      d     / f   6 CGUh(t]4LLL54LLLL5LLDlgname  $gfilenamefice-9/psyntax.scm      +    $    $ CUh8.]$"3$+45 $ &  """$L"$4L5"$"3$+45 $ &  """$4L5"o("c" "V$<45 $* & 4L 5"4""""6C&gname  6gargs  6ge1   6ge2   6gvars  K #gls  K #gw  K #gfilenamefice-9/psyntax.scm  e d      d     2 f  E   K =  N ? R > U ?  V ? / [ ? 5 ` ? / c ? ) o ?  r e v d  ~   d    f  > @  @  > H  >   >    E      E   C # =  & = " 2 =  4  (  6 CG'(Uhp] 4LLL54LLLL54LLL5L$'45$4L>"G""LLDgname  jgargs  jge1   jge2   jge  . bgfilenamefice-9/psyntax.scm      +      . .   .   6 8  7 8  A 8 B 9 j    j Ch8]$C$"45 $ & CCCCgname  6gval  6gfilenamefice-9/psyntax.scm  e d      d     / f   6 CGhs]LLLLDkgname  gval  gfilenamefice-9/psyntax.scm         Ch8]$C$"45 $ & CCCCgname  6gval  6gfilenamefice-9/psyntax.scm  e d      d     / f   6 CChs]LLLLDkgname  gval  gfilenamefice-9/psyntax.scm         Ch8]$C$"45 $ & CCCCgname  6gval  6gfilenamefice-9/psyntax.scm  e d      d     / f   6 CDhs]LLLLDkgname  gval  gfilenamefice-9/psyntax.scm         C)-h]o$4L545$")$ 4L5  $ " "  $ D $ D $H$ D4L5" D$4L> G     $ D$   D$14L 5"f $<4 > G"! $  D$ D$D$D$45"45"D45" 6$"4?$LO@""$+4LLLO?$LO@""$ 4?$ O@"R"N!$B45" 6$ 4"?$#O@""$$B45" 6$ 4%?$&O@""'D")4(5$)D*D$4+5 $  & 4L 54,4+5 $  & ""5$"$" $""q"!"" ge  gr  gw   gs   grib   gmod   gfor-car?   gn   gt   Xgt < Ogb  X gtype ] gfirst  gftype   gfval  gfform  gfe  gfw  gfs  gfmod   ge   gr   gw   gs   gmod   gtmp  U  gtmp  d gtmp  s gtmp   Xgtmp  j gprops  = Pgt  P cgt  j }!gfilenamefice-9/psyntax.scm            N  M  / O 3 M  4 P  < P L P 1 U Q  X  ]   ]  h  m  & y              .     !              0   2   @   I   K   M   b   k   l          0                               +   4   6   C   L                '                                     =   =   B   F  P   j   j     Z   gnameg syntax-typeCO )h]<4L4$,45 $ & """5$"> G  L  6ge  gr  gw   gmod   gprops  E Xgtype  b gvalue  b gform  b ge  b gw  b gs b gmod b  gfilenamefice-9/psyntax.scm                 E   E   J   N  a   e      gnamegexpandCO! LZM)XY h] LC~gmod  gvar  gpublic?   gfilenamefice-9/psyntax.scm q      C h`] LCXgvar  gfilenamefice-9/psyntax.scm s      C'(UH h] LC~gmod  gvar  gpublic?   gfilenamefice-9/psyntax.scm q      C h`] LCXgvar  gfilenamefice-9/psyntax.scm s      C*+2hg]LLLLL6_ge1  ge2  gfilenamefice-9/psyntax.scm      C- '( hh]45$4>"G C4LL$'4L5$4LL>"G""LLL56gfilenamefice-9/psyntax.scm  "  "  $   %   $  !   + ' ' ,   4 8  5 8  ? 8 @ 9 c   e '   e C34579: h8] 4LL545$LLLLL6 Cgx  4ge1  4ge2   4g when-list  4gfilenamefice-9/psyntax.scm  .  .   /   /   /   /  + 0  /    4 CGCDJ+h5,3$ C$"$6$4> G    4L  4$,45 $ & """5  $ "  > G   "  $L4$,45 $ & """5  $ " $/45 $ & 4 5"""       6 $L4$,45 $ & """5  $ " $,45 $ & """$-45 $ &  """  4L   O O5  6$M4L4L$'45$4>"G""55 C$LOO6$L4L4$,45 $ & """5  $ " > G     4L     5     6$Q45$LO@45  $LO @6$LL6$14 5$!LLO@6"$"#$"$$?%4L$'45$4>"G""56&$?'4L$'45$4>"G""56($?)4L$'45$4>"G""56*4L$'45$4>"G""56-gtype  gvalue  gform   ge   gr   gw   gs   gmod   ge  [ gr [ gw [ gs [ gmod [ gprops gtype gvalue  gform  ge  gw  gs  gmod  gid   gprops G Zgsource  gname  gx   gprops  gsource   gvar  gmod  gexp    ge  9 gprops ~ gtype  gvalue  gform  ge  gw  gs   gmod   gtmp   ?gtmp  ?gtmp  l +gfilenamefice-9/psyntax.scm         '   C  L   M  ( ^  i   r   w   {   |                                   G   G   L   P  ]   a  ' b   z  +              7   $                             $ !   U  $ V      o         $     8   8   8  9      $          + o  4   9  . 9  & <   E   J   N   O   ~   ~                      Z * c    3     8   8   8  9     3     6     8   8   8  9 >   @ 6 I   N 9 O   W 8  X 8  b 8 c 9     9  ; %     8   8   8  9     ; |   gnameg expand-exprCO "+1)hQ]94LLL4$,45 $ & """5$"L> GLL6Ige  gprops E Xgtype b gvalue  b gform  b ge  b gw  b gs  b gmod  b  gfilenamefice-9/psyntax.scm C #               E   E   J   N  a   e      C h0] 4LLLLLO5 LLCge0  )ge1  )garg-exps   )gfilenamefice-9/psyntax.scm  C   B     ) C3h8]45$LLO@6gx  3ge  3gr   3gw   3gs   3gmod   3gtmp  3gfilenamefice-9/psyntax.scm ?   3 gnamegexpand-applicationCO#'( # h@]2$G4L54L5L$'45$4L>"G""C$e"w4545L$'45$4L>"G"""&$C4L5" "45 $ & "l L$'45$4L>"G""L$ L" C$>&2 L$ L" C"O"K""$IL4L$'4L5$4L>"G""LLL56L$'45$4L>"G""Cgx  <gm  <ge   Pgn  b ge  k gv  gi  gw  gms  gss  ge   7g expression  Y kgwrap  Y kgmodule  Y kg expression   gwrap   gmodule   gs   gfilenamefice-9/psyntax.scm i  j  j l   l 0  l   m   m 0  m   l   k  & 8  ' 8  1 8 2 9 S   W j \   b   e  . k   s 8  t 8  ~ 8  9          $  :  $       j   p  q  q 3 q      z   8   8   8  9 < { ' B | ' F } ; I } 5 J } + P ~ 1 S ~ + T {  Y   Y y  a   k r  n r r r  u r 0 z r  ~    v '  v 0  v B  v 8  v L  v      t         j   (   6   %     8   8   8  9        8   8   8  9 Z  < gnamegrebuild-macro-outputCh^]LLLLLL6Vgk  gfilenamefice-9/psyntax.scm     #   C#'(h]OLQMOY444L$'45$4>"G""5545>ZCZFgp  ge  gr   gw   gs   grib   gmod   grebuild-macro-output   gw  H  gfilenamefice-9/psyntax.scm g  7  :  @  ' A   C   F  G   H   H  # K   S 8  T 8  ^ 8 _ 9        gnameg expand-macroCO$"U)GCDT*+h(](LCL4LLL54L5Cgforms  %gfilenamefice-9/psyntax.scm  #   %  )   8   >   8   /   / !  2 #  / $  )  % gnamegfCh8n] L OLLLL L Q45LLLLLL6fge1  8gf  *gfilenamefice-9/psyntax.scm   # 8    8 C34h(](LCL4LLL54L5Cgforms  %gfilenamefice-9/psyntax.scm  7   9  =   L   R   L   C   C !  F #  C $  =  % gnamegfCh8] LOLLQ45LLLLLL6gforms  8ger  8gw   8gs   8gmod   8gf   *gfilenamefice-9/psyntax.scm  .   7 8  0  8 CU)h]I4L4$,45 $ & """5$"L> G L 6gx  ge  gr   gprops  O bgtype  l gvalue  l gform  l ge  l gw  l gs  l gmod l  gfilenamefice-9/psyntax.scm  2   <   D   4              O   O   T   X  k   o      C'( U)h]I4L4$,45 $ & """5$"L> G L 6gx  ge  gr   gprops  O bgtype  l gvalue  l gform  l ge  l gw  l gs  l gmod l  gfilenamefice-9/psyntax.scm  2   <   D   4              O   O   T   X  k   o      CU)h]I4L4$,45 $ & """5$"L> G L 6gx  ge  gr   gprops  O bgtype  l gvalue  l gform  l ge  l gw  l gs  l gmod l  gfilenamefice-9/psyntax.scm  B   L   T   D              O   O   T   X  k   o      C$hc ]( L 64L4$,45 $ & """5  $ " LL> G      $4L   544  55$,45 $ & """4 455 L L  L L L L 4L   5 "  $"  $e4L   544  554L5 L L  L L L L L4L4L  4 $,4 5 $ & " " " 5$"> G4L54545$" 45L5"  $;4 5$! L L O @ 6 $'L   L L O 6(h4LLO4L $'4 5$4 >"G""  55(C C4L5$"4L >"GL4LL544 55454!LLO4554"LLO4L $'4 5$4 >"G""  55("  (C4#L >"G C[ gbody  gids  glabels   gvar-ids   gvars   gvals   gbindings   ge   ger   gprops ` sgtype ~ gvalue ~ gform ~ ge ~ gw ~ gs  ~ gmod  ~ gid  }glabel  }gid  gvar  }gupdate   gupdate   'gupdate  / ;gid   glabel   gtrans-r   gupdate   gupdate   gupdate   gprops  G Zgtype  d gvalue  d gform  d ge  d gw  d gs  d gmod  d gexpanded   gp   gtmp   =gexps   gexps   gids   gvars   gval-exps   gbody-exp   /gfilenamefice-9/psyntax.scm     %         *      ! '   ,   0   1   `   `   e   i  }  !      #      %         7    7  8                      "          $   /   /   8   >  $ C  $ H  2 M  $ R  $ U  C `  : c  4 e  8 h  * k  $ }        #         %         (                        "                        '   3   G                G   G   L   P  c   g   v    G    (   )   )  +   + #  +    9   3   3   '      "   -       m   s   t  -     8   8   8  9      8   8   2   -                 (      #   '   #   +   G   +      -   6   -   - $  - 2  2 :  - ;  = K   S 8  T 8  ^ 8 _ 9      H   H   B   =   -                          gnamegparseChg]L4LLL5C_gx  gfilenamefice-9/psyntax.scm  !   5   -   Chp]%O LLLLLLLLQ4LO56gbody  ng outer-form  ngr   ngw   ngmod   ngr   ngribcage   ngw   ngparse  3 n gfilenamefice-9/psyntax.scm                           :   ,       3  S   g   h  ( i   j  * k  5 l  D n    n gnameg expand-bodyCO%+)h]94L4LLL$L"L4$,45 $ & """5$"L> G4LL5L5Cxgx  gprops V igtype s gvalue  s gform  s ge  s gw  s gs  s gmod  s  gfilenamefice-9/psyntax.scm    0   0      "    "   &   '   V   V   [   _  r   v     0  "  Chp9]4L5$V4L 54L L5L4L 4L L54LLLLLLO5L5L L6L61gid  lgval  lge1   lge2   lglabels   cgnew-w  ! cgtrans-r  6 Wgfilenamefice-9/psyntax.scm             !   +   0  ( 6   9   [   c   h  & l    l C'(h-]45$'LLLLLLLLO@4L$'45$4>"G""56%grec?  yge  ygr   ygw   ygs   ygmod   ygk   ygtmp  ygfilenamefice-9/psyntax.scm   ? # " @   H 8  I 8  S 8 T 9 w   y #   y gnamegexpand-local-syntaxCO &Th(] 4545$C6gexpanded  "gmod  "gp  "gfilenamefice-9/psyntax.scm '    (  )   )  + # " +   " gnamegeval-local-transformerC'U IK h]#$r45 $b &V $K  4L545$")$ 4L5$""&x"C45 $W &I$>45 $, &  &L  6C"""""45 $ & ""4 5 $ " &4L54L 5CCCCCCge  }gr  }gmod   }gwrap  4 Igmodule  4 Igid  I ugn  T ugt  _ gt  ~ gb  ugj   gfilenamefice-9/psyntax.scm 2     3     _     & ` *   4 :  :   < : , C   I : L =  T : W N _ M  q O u M  v P  ~ P P 1 Q  : ?  ? ) ?  @ ! @   |    |   }                 S s " U   _ s  ` t  i t - r t 0  } gnameg ellipsis?CO(+hO]L4L56Ggfilenamefice-9/psyntax.scm  H   H    C_h8]$C$"45 $ & CCCC{gr  6gfilenamefice-9/psyntax.scm  e d      d     / f   6 Ch_]L4L56Wgr  gfilenamefice-9/psyntax.scm  L   L    Ch8]$C$"45 $ & CCCCga  6gb  6gfilenamefice-9/psyntax.scm  e d      d     / f   6 Chn]LL6fga  gb  gfilenamefice-9/psyntax.scm J  J   C h]45$ LO@45"+4?$ LO@L6$4 ?$  LO@""gargs  grreq  gtmp  gtmp  ( gtmp  3 Ygfilenamefice-9/psyntax.scm E  Q N  S N ' Y N    gnamegreqCh0]4L$ "5$DL6greq  .grest  .gfilenamefice-9/psyntax.scm O   Q Q !  Q *  Q  P $ R ( T  * T & . T   . gnamegcheckCh0]OOQLQ6g orig-args  ,greq  ,gcheck   ,gfilenamefice-9/psyntax.scm D  * V  , V   , gnameglambda-formalsCO)!'(h, 3 $45" 4L 5 4L 5 L45$ 45" 4L4L$'45$4>"G""54L  54L  556 ge  gr  gw   gs   gmod   greq   grest   gmeta   gbody   gids  gvars ) glabels 2  gfilenamefice-9/psyntax.scm Y  Z  Z   Z )  Z   Z  ! [  ) Z  , \  2 Z  9 _ G _ # H _ - X a ]   e 8  f 8  p 8 q 9   b  c  a ]   gnamegexpand-simple-lambdaCO*+ha]L4L56Ygfilenamefice-9/psyntax.scm  k  k #  k *  k    C_h8]$C$"45 $ & CCCC{gr  6gfilenamefice-9/psyntax.scm  e d      d     / f   6 Chq]L4L56igr  gfilenamefice-9/psyntax.scm  u   u (  u ,  u    Chn]45Cfga  gb  gfilenamefice-9/psyntax.scm  r  r   Ch]L4L56xga  gb  gfilenamefice-9/psyntax.scm  s   s &  s *  s    Chn]45Cfga  gb  gfilenamefice-9/psyntax.scm  p  p   Ch]L4L56xga  gb  gfilenamefice-9/psyntax.scm  q   q %  q )  q    C hn]45Cfga  gb  gfilenamefice-9/psyntax.scm  n  n   Chw]L4L56oga  gb  gfilenamefice-9/psyntax.scm  o   o %  o    Ch8]$C$"45 $ & CCCCga  6gb  6gfilenamefice-9/psyntax.scm  e d      d     / f   6 Chn]LL6fga  gb  gfilenamefice-9/psyntax.scm m  m   Ch ]245$ LO@45"45"45"`45"+4?$ LO@ L6$4 ?$  LO@""$4 ?$  LO@"~"z$4?$ LO@"I"E$4?$ LO@""gargs  grreq  gtmp  gtmp  ( gtmp  7 gtmp  F gtmp  U gtmp  ` gfilenamefice-9/psyntax.scm h  ~ w  w ( w    gnamegreqC+hX]LL4L56Pgfilenamefice-9/psyntax.scm  {   { *  {    C_ h8]$C$"45 $ & CCCC{gr  6gfilenamefice-9/psyntax.scm  e d      d     / f   6 Chh]LL4L56`gr  gfilenamefice-9/psyntax.scm     ,      C hn]45Cfga  gb  gfilenamefice-9/psyntax.scm       Chw]LL4L56oga  gb  gfilenamefice-9/psyntax.scm     *      Chn]45Cfga  gb  gfilenamefice-9/psyntax.scm       Chw]LL4L56oga  gb  gfilenamefice-9/psyntax.scm     )      Ch8]$C$"45 $ & CCCCga  6ginit  6gb   6gfilenamefice-9/psyntax.scm  e d      d     / f   6 Ch]LLL6xga  ginit  gb   gfilenamefice-9/psyntax.scm         Ch8]$C$"45 $ & CCCCga  6gb  6gfilenamefice-9/psyntax.scm  e d      d     / f   6 C.hn]LLL6fga  gb  gfilenamefice-9/psyntax.scm  }   }    Ch0]345$LO@45"45"45"d45"-4?$LO@  L6$4 ?$ LO@""$4 ?$LO@"x"t$4?$LO@"A"=$4?$LO@" "gargs  *greq  *gropt   *gtmp  *gtmp  * *gtmp  9 gtmp  H gtmp  W gtmp  b  gfilenamefice-9/psyntax.scm x     (    * gnamegoptC+hX]LLL4L56Pgfilenamefice-9/psyntax.scm  (         C_ 01/h8]$C$"45 $ & CCCC{gr  6gfilenamefice-9/psyntax.scm  e d      d     / f   6 Chh]LLL4L56`gr  gfilenamefice-9/psyntax.scm  *   !      C2hn]45Cfga  gb  gfilenamefice-9/psyntax.scm       Chw]LLL4L56oga  gb  gfilenamefice-9/psyntax.scm  (         C3hH]45&4$C$"45 $ & CCCCCgaok  Egr  Egfilenamefice-9/psyntax.scm   !     e  d      d    < f   E Chy]LLL4L56qgaok  gr  gfilenamefice-9/psyntax.scm  (         C3h ]45& 45CCgaok  ga  gb   gfilenamefice-9/psyntax.scm   !      !      Ch]LLL4L56gaok  ga  gb   gfilenamefice-9/psyntax.scm  (         C3ha]45CYgaok  gfilenamefice-9/psyntax.scm       Chj]LLL4L56bgaok  gfilenamefice-9/psyntax.scm  (         C4hX]$"3$+45 $ &  """$ 456Cga  Rginit  Rgk   Rgb   Rgfilenamefice-9/psyntax.scm  e d      d     2 f  E   H  - P  #  R Ch]LLLL6ga  ginit  gk   gb   gfilenamefice-9/psyntax.scm         Ch8]$C$"45 $ & CCCCga  6ginit  6gb   6gfilenamefice-9/psyntax.scm  e d      d     / f   6 C5h(] 4455LLLL6ga  &ginit  &gb   &gtmp   &gfilenamefice-9/psyntax.scm      /      $  &    & Ch8]$C$"45 $ & CCCCga  6gb  6gfilenamefice-9/psyntax.scm  e d      d     / f   6 C5Ih(] 4455LLLL6ga  %gb  %gtmp   %gfilenamefice-9/psyntax.scm      /      #  %    % Chc]L45$LO@45"45"L45"45"45 "45 "h45 "/ 4  ?$ LO @   L6 $ 4 ?$LO @"" $ 4 ?$LO @"r"n $ 4 ?$LO @"9"5$ 4?$LO@""$ 4?$LO@""$ 4?$LO@""$ 4?$LO@"U"Q[gargs  greq  gopt   grkey   gtmp  gtmp  , gtmp  ; gtmp  J gtmp  Y cgtmp h 9gtmp w gtmp gtmp  gfilenamefice-9/psyntax.scm      (     gnamegkeyCh8]$C$"45 $ & CCCC{gr  6gfilenamefice-9/psyntax.scm  e d      d     / f   6 ChV]LLLL6Ngr  gfilenamefice-9/psyntax.scm      CJh8] 4?$LO@L6gargs  1greq  1gopt   1gkw   1gtmp   1gfilenamefice-9/psyntax.scm   )   +  ( 1    1 gnamegrestC!KLhXG]4L445$ "$45"55$ DL6?greq  Ugopt  Ugrest   Ugkw   Ugfilenamefice-9/psyntax.scm           '   0 #  < &   *   +  $ 2  . 4  $ 9  8 ;  =  A  K  O   Q  ' U    U gnamegcheckChx])OOOOOQQQQLQ6g orig-args  tgreq 8 tgopt  8 tgkey  8 tgrest  8 tgcheck  8 tgfilenamefice-9/psyntax.scm g  r   t    t gnameglambda*-formalsCO+hX[]%4L54L54LL54LL5L45456 Sgreq  Rgopt  Rgrest   Rgkw   Rgbody   Rgvars   Rglabels   Rgr*  , Rgw*  , R gfilenamefice-9/psyntax.scm             "   ,  3   D  * O  ? P  C R    R gnameg parse-reqC+)h8]Z$,45 $ & """44554L54LL54LL5LLLL L L L 45L 4LLL4$,45 $ & """5$"L> G    4L L   5    L6 gid  6gi  6gid  7 Hgv  H 6gl  T 6gr**  d 6gw**  t 6gprops  gtype  1gvalue  1gform  1ge 1gw 1gs 1gmod 1gfilenamefice-9/psyntax.scm    7    7 7  : 8 H   K   R  % T   T   W   `  - d   d   g   n  . t   t   }   7  *  $                        4   6  %  6 C3 hh[, 3$J 4 5  $+LLLLLL LO @ 6$$,45 $ & """ 44  55  4L 5 4L  5 4L 5 L$ 4 5"4 5$"   $" 6 L$ 4 5"$"$" 6 Sgreq  bgopt  bgrest   bgkw   bgbody   bgvars   bgr*   bgw*   bgout   bginits  bgtmp  Wgtmp  Wgid gv gl gr* gw* gfilenamefice-9/psyntax.scm          ]  `   d 7  e   7  8     "       )       *        ,        '            '       %   )   *  * 9   =   @  % Q   U   X  % ^   b  1  b gnameg parse-optC+/)hH][$,45 $ & """44554L54LL54LL5LLLLL L L L 4545L 4LLL4$,45 $ & """5$"L> G     4L  L   5     L6 gk  Dgid  Dgi   Dgid  7 Hgv  H Dgl  T Dgr**  d Dgw**  t Dgprops  gtype   ?gvalue   ?gform  ?ge  ?gw  ?gs  ?gmod  ?gfilenamefice-9/psyntax.scm    7    7 7  : 8 H   K   R  % T   T   W   `  - d   d   g   n  . t   t    (  6  '  '  !                            B   D  '  D C3h, 3 $L 4 5  $-LLLLLL  LO @ 6L$" $4 5"454 56 greq  gopt  grest   gkw   gbody   gvars   gr*   gw*   gaok   gout  ginits  gtmp  Ygtmp  Y gfilenamefice-9/psyntax.scm          g   o  $ s   v  ; }  1    2  B    gnamegparse-kwC+MQ!Rh8]L LLLLLLLL4L445556 gk  2gv  2ge1   2ge2   2gfilenamefice-9/psyntax.scm      & 0   2    2 C1'(h`]LL L L L L L4L4LL$'4L5$4LL>"G""LLL5LLL5Dge1  Zge2  Zgfilenamefice-9/psyntax.scm       ! 8  " 8  , 8 - 9 P   X   Z    Z C3Sh]456g docstring  ge1  ge2   gfilenamefice-9/psyntax.scm   ,  #  C!Th0]L LLLLLLLL4L4556 g docstring  /ge1  /ge2   /gfilenamefice-9/psyntax.scm     ! !  ' (  ! -   /    / C hK, 3 45 "o45  $ LO  @45  $'LLLLLL O @6 $,4  ?$  LO  @"_"[Cgreq  gopt  grest   gkw   gbody   gvars   gr*   gw*   ginits   gmeta  gtmp  gtmp  gtmp L  gfilenamefice-9/psyntax.scm    gnameg parse-bodyC+hO]DGgfilenamefice-9/psyntax.scm         CVht]Clgtmp-bde397a-1382  gtmp-bde397a-1381  gtmp-bde397a-1380     C! h]v4L> G 4L > G    4LLLLLLL45> G4 5 L    Dgargs  ge1  ge2   gargs*   ge1*   ge2*   greq  gopt  grest  gkw gmeta . greq . gopt . grest . gkw  . ginits  . gvars  . gbody  . gmeta*  c gelse*  c gfilenamefice-9/psyntax.scm   (     # 1   B   f   k   x      C3 hn]7OOO O LLLLQ LLLLLQ LLLLL Q LL Q 45  $ @45  $LO @  6fge  gr  gw   gs   gmod   g get-formals   gclauses   g parse-req  < g parse-opt  < gparse-kw < g parse-body < gtmp gtmp  gfilenamefice-9/psyntax.scm    gnamegexpand-lambda-caseCO ,9dWh]!"$;4L54L5"C&&C""$K454L5"'(C&"6"C$-45 $ & L  6"9"5"1 gx  ga  Hgd   Hgold V gnew  a gl1  g gl2  g gfilenamefice-9/psyntax.scm  "     #   #   #   # )  # ,  # )  #  * &  + $  0 $ " 4 $  9 $ 2 = $  K '  O   P (  V (  Y )  a )  g +  m ,  s . # v . , z .  } / " / + /  0  +          ! &  gnamegfCh0] 45$COLQ6gx  )gw  )gf   )gfilenamefice-9/psyntax.scm            ) gnamegstripCO-hH] $,45 $ & """456gid  Dgid 7 Dgfilenamefice-9/psyntax.scm 6     7    7 7  < 8   D gnameggen-varC.Q Q  Q  Q QQQQQQQQQQ" Q"& Q-Q $Q " Q!#-&" Q"" Q#Q$& " Q%  "'Q&Q(Q).% Q*Q+%"  .,Q,-Q-4i4i5X5/hW]L6Ogfilenamefice-9/psyntax.scm         C/O/K4YiZ[hg]6_gk  gfilenamefice-9/psyntax.scm h   i   i    C5K4i4i5\4i\[5>"G4i4i5]4i][5>"G4L^+^_'(h]L6gvar  gval  ge1   ge2   gfilenamefice-9/psyntax.scm  S    Ch^]LL6Vgx  gfilenamefice-9/psyntax.scm T * T 6  C IKJ^R'( hE]4L5$")$ 4LL5$""$BL4LL$'45$4 L>"G""LL56C=gid  gn  gt  Fgt  * =gkey  G gfilenamefice-9/psyntax.scm V   N M   O ! M  " P  * P : P 1 C Q  G W # G W  V Y 2 X Z 2 [   c 8  d 8  n 8 o 9   Y   C'()hv]94L4LLL4$,45 $ & """5$"L> G4LL5L5Cngx  gprops J ]gtype g gvalue  g gform  g ge  g gw  g gs  g gmod  g  gfilenamefice-9/psyntax.scm e #  f 3  g 3                J   J   O   S  f   j   y  g 3 f %  Ch<]4L LO54LLL L L L L O>"GL4L L $'4L 5$4L L >"G""L L L 54L4LL54LL L LLO5L5L L 64gvar  gval  ge1   ge2   gnames   gtrans-r  gfilenamefice-9/psyntax.scm  T %  T   U  C   K 8  L 8  V 8 W 9 z   { b  d + d  e  b  _   C h] 45"@4L $'45$4>"G""56$94LO?$% LLLLLLLLL O@""}ge  gr  gw   gs   gmod   gtmp  gfilenamefice-9/psyntax.scm P   m ,  m A    8  ! 8  + 8 , 9 O   Q m   C%'"  O >"G4i4i5`4i`L+b h x] 4LL5 LCpge  gexp gfilenamefice-9/psyntax.scm  s , s       C`_'( hh] 45$LO@4L$'45$4>"G""56ge  bgr  bgw   bgs   bgmod   bgtmp  bgfilenamefice-9/psyntax.scm q  & t , ( t 3 )   1 8  2 8  < 8 = 9 `   b t   b C-O5>"G4LU IKab`+c_`dRh]*4LLLLLL> G4LLLLL> G$<&"& " "$ " Dgx  gy  gx   gmaps   gy  3 gmaps  3 gkey  = gfilenamefice-9/psyntax.scm   /     3 6  $ =   =   K  % M  - Q   S  V  * Z  6 \  f  ) h  2 l  n  $ y  $    #  /  #  !  7  CedN`h`]4LLLLLL> G& ""&45"Dge1  Zge2  Zge   Zgmaps   Zgfilenamefice-9/psyntax.scm   &   $  &  ( *   ,  / /  : 0  / 7  9  ( =   ?  0 E  < H  0 Q  Z  3  Z Chw]LLL6ogx  gdots  gy   gfilenamefice-9/psyntax.scm    C+_f!hh]LLL6`gdots  gy  gfilenamefice-9/psyntax.scm  %  Cg.ihH&]4L> G( L64L5Dgmaps  Dgx  Dgmaps   Dgmap-env  * ?gfilenamefice-9/psyntax.scm  (   9   B  <   9   *   9   . !  D #  L '  2 *  I *  : .   1  5 <   B  : D  2  D Chh]LLLLO6`gdots  gy  gfilenamefice-9/psyntax.scm   %   Ch]*45"J4LLLLLL> G4> G$" D$)4LLLO?$LLLO@""gy  gk  gtmp  gy  & [gmaps  & [gx  8 [gmaps  8 [gfilenamefice-9/psyntax.scm    6 )  ' .  : ;  + C  ' D   H   P   [  /  gnamegfCgh@ ]4LLLLLL> G( L64L5Dgmaps  @gx  @gmaps   @gfilenamefice-9/psyntax.scm  +   3  E   ?   3   - #  < '  1 +  G -  O 1  5 2  = 9  H ;  = >  = @  5  @ gnamegkCh@] OLLLLLLLQLLLLLLO6~gx  =gdots  =gy   =gf   =gfilenamefice-9/psyntax.scm     = Chh]LLL6`gdots  ge  gfilenamefice-9/psyntax.scm    Chu]Cmge  gr  gmod   gfilenamefice-9/psyntax.scm  ;   Chh]LLLLL6`gdots  ge  gfilenamefice-9/psyntax.scm      Ch]&$"3$+45 $ &  """$4L545$")$ 4L5$""&*4L> G  D45$   6 D4  5"4 5"W4 5$LO@4 5  $LO @ D$/4O?$LLO@"t"p$+4O?$LO@"0", gsrc  ge  gr   gmaps   g ellipsis?   gmod   glabel  N gt  Y gt  x gb  gvar.lev  gvar  gmaps gtmp  gtmp   gtmp   bgtmp : bgfilenamefice-9/psyntax.scm z   e d      d     2 f  E {  F | * N |  Q N Y M  k O o M  p P  x P P 1 Q     *  ;  !  :  +  -  :  H  -  %  B  :  )  %  ;  C  )  1  ) Y  * b  ")   gnameg gen-syntaxCO/j khx]$ $D( 64L> G45$D4455Dgsrc  qgvar  qglevel   qgmaps   qg outer-var  3 qg outer-maps  3 qgb  D qg inner-var  _ qgfilenamefice-9/psyntax.scm                3   ;  ! !  0 *  A -  O 2  0 6  ! ;  . B  > D  . D  % L  ' O  3 S  + T 8 [  E ] 8 _  + h  A k  A l  ; o  5 q  -  q gnameggen-refCO0lahp]Chgx  gfilenamefice-9/psyntax.scm  -   9   @  9  Cama9h]& L6Czgx  gfilenamefice-9/psyntax.scm     4   <  *   H   B   ChR hy]4L5Cqgx  gfilenamefice-9/psyntax.scm  ,   =   C  =   8   C hxt]4545&C4O5$,44 5 O5C Clge  tgmap-env  tgformals   tgactuals   tgr  P \gfilenamefice-9/psyntax.scm     (  (      "   * !   $   &   2   4   8   :   ?  / B   C  % F  3 P  * _  * a  % b   f  "  t gnameggen-mapC1a hF`Zn h(u])$ C$24455$  C C$ C$L$;4L5   C  64455$ " 4 L5 Cmgx  %gkey  %gname   *gvar   *gname  7 egexp  r greq  gvars  gexp  gbody  gname   gfun-exp   %garg-exps   % gfilenamefice-9/psyntax.scm           L   U   " !   3   6  A 7  ( :   =  ! C   E  3 F  J   O   ^  ! d   n   q  : r  $ x      '     ?  K  X  _  X     )        T    '   M  4    !    3        !      4   ?   4   !   ;  % gnamegregenCO2/10Q/0Q02Q2'(+bh(]4LLLLL> GL6gx  #ge  #gmaps   #gfilenamefice-9/psyntax.scm   +  ?   +    #  /  # Co hp ]4L$'45$4>"G""545$LLLO@6ge  lgr  lgw   lgs   lgmod   lge  : lgtmp  E lgfilenamefice-9/psyntax.scm      8  8   8  9 :   :   f  0 h  8 l    l C/(2O/012>"G4L+p+MQ!Rh(]L4L445556gk  "gv  "ge1   "ge2   "gfilenamefice-9/psyntax.scm ( %  ( 2 ( % " ' !  " CSh]456g docstring  ge1  ge2   gfilenamefice-9/psyntax.scm  ! @ ! 7  C!Th ]L4L4556g docstring  ge1  ge2   gfilenamefice-9/psyntax.scm # %  $ -  % 3  $ -  # %  " !   Chp]45"445$ LO@LLLLLLLL6 $4?$ LO@""gbody  kgmeta  kgtmp  kgtmp   Egfilenamefice-9/psyntax.scm   E ) #  k gnameglpChH]+4L> GO LLLLLLQ6gargs  Gge1  Gge2   Ggreq  Ggopt  Ggrest  Ggkw  Gglp  ( Ggfilenamefice-9/psyntax.scm   5    (   E  @ G    G Cqh8] 45$LLO@6ge  4gr  4gw   4gs   4gmod   4gtmp  4gfilenamefice-9/psyntax.scm   . * , 0 * 4 4 *   4 C)*O>"G4L+p h8]4LLLLLLL> G LCgargs  8ge1  8ge2   8gmeta  " 8glcase  " 8gfilenamefice-9/psyntax.scm  2  % 0  .    8 Crh8] 45$LLO@6ge  4gr  4gw   4gs   4gmod   4gtmp  4gfilenamefice-9/psyntax.scm -  . 6 , 0 6 4 4 6   4 C,+O>"G4Ls+tht]Clgtmp-bde397a-154d  gtmp-bde397a-154c  gtmp-bde397a-154b     C! hH]#454LLLLLLL> G45 LCgargs  Hge1  Hge2   Hgclauses   Hgmeta*  ( Hglcase  ( Hgmeta  7 Hgfilenamefice-9/psyntax.scm  D   =  + ;  0 A 0 3 D " 7 A 0 7 A  >    H CvswSh]456g docstring  gargs  ge1   ge2   gfilenamefice-9/psyntax.scm  F ! F   CTht]Clgtmp-bde397a-1563  gtmp-bde397a-1562  gtmp-bde397a-1561     C! hX7],45454LLLLLLL> G45 LC/g docstring  Xgargs  Xge1   Xge2   Xgmeta   Xgclauses   Xgmeta*  7 Xglcase  7 Xgmeta  G X gfilenamefice-9/psyntax.scm  G "  H ( G "  G  ! =  : ;  ? A 0 G A  N    X C hx]45$LLO@45" 6$&4?$ LLO@""ge  sgr  sgw   sgs   sgmod   sgtmp  sgtmp  3 sgfilenamefice-9/psyntax.scm 9  = J , ? J 9 C J   s C,)O>"G4Lx+tht]Clgtmp-bde397a-1583  gtmp-bde397a-1582  gtmp-bde397a-1581     C! hH]#454LLLLLLL> G45 LCgargs  Hge1  Hge2   Hgclauses   Hgmeta*  ( Hglcase  ( Hgmeta  7 Hgfilenamefice-9/psyntax.scm  X   Q  + O  0 U 0 3 X " 7 U 0 7 U  >    H CvsySh]456g docstring  gargs  ge1   ge2   gfilenamefice-9/psyntax.scm  Z ! Z   CTht]Clgtmp-bde397a-1599  gtmp-bde397a-1598  gtmp-bde397a-1597     C! hX7],45454LLLLLLL> G45 LC/g docstring  Xgargs  Xge1   Xge2   Xgmeta   Xgclauses   Xgmeta*  7 Xglcase  7 Xgmeta  G X gfilenamefice-9/psyntax.scm  [ "  \ ( [ "  [  ! Q  : O  ? U 0 G U  N    X C hx]45$LLO@45" 6$&4?$ LLO@""ge  sgr  sgw   sgs   sgmod   sgtmp  sgtmp  3 sgfilenamefice-9/psyntax.scm M  = ^ , ? ^ 9 C ^   s C,+O>"G4Lz+pz_'(h8]$C$"45 $ & CCCCgdots  6ge1  6ge2   6gfilenamefice-9/psyntax.scm  e d      d     / f   6 C'( h`]3$"  44554LL$'45$4L>"G""LL54LL54LL5L4LL$'4L5$4LL>"G""LL5L6Xgdots  ge1  ge2   gwrap   .gmodule   .gid  . gids  glabels  gbindings  gnw  gnr   gfilenamefice-9/psyntax.scm  e & e " f &     g &    ! g : (   . e  5 j % 6   9   =  % ?   A   D k ( F l > G   O 8  P 8  Z 8 [ 9 ~    l 0 l * j  m & n & m    8  8  8 9   o %  C h] 45"@4L$'45$4>"G""56$*4?$ LLLLO @""ge  gr  gw   gs   gmod   gtmp  gfilenamefice-9/psyntax.scm a   p ,  p ;    8  ! 8  + 8 , 9 O   Q p   C %O>"G4L{)hQ]94LLL4$,45 $ & """5$"L> GLL6Igx  gprops E Xgtype b gvalue  b gform  b ge  b gw  b gs  b gmod  b  gfilenamefice-9/psyntax.scm  1               E   E   J   N  a   e      C{|h, 3 4L5$o4L54L5  4L 54L  5  45 4LLO54L4L 5  566ge  gr  gw   gs   gmod   g constructor   gids   gvals   gexps   glabels ! gnew-vars ! gnw ; gnr ;  gfilenamefice-9/psyntax.scm u   v  v   x )  y + ! x  & z ' 1 { ' ; z  D } , O  , e  , j  > ~  , |  w - w 2 w   gnameg expand-letCO /" % .Q/+~{'(mhP]$"3$+45 $ &  """$L6Cgf  Ogid  Ogval   Oge1   Oge2   Ogfilenamefice-9/psyntax.scm  e d      d     2 f  E   M  )  O Ch ]LLLLLLL6 gf  gid  gval   ge1   ge2   gfilenamefice-9/psyntax.scm      Cmh]L6gid  gval  ge1   ge2   gfilenamefice-9/psyntax.scm    C h8]4L>"G(C Cgsrc  4gids  4gvars   4gval-exps   4gbody-exp   4gfilenamefice-9/psyntax.scm         &    4 gnameg build-letCh ]LLLLLLLO6 gid  gval  ge1   ge2   gfilenamefice-9/psyntax.scm    C h]45"45"@4L$'45$4>"G""56$+4 LO?$ LLO@""$+4 LO?$ LLO@"K"Gge  gr  gw   gs   gmod   gtmp  gtmp   gfilenamefice-9/psyntax.scm   $  . &  3 '   / 8  0 8  : 8 ; 9 ^   `    C /O/>"G4L+'(mh]L6gid  gval  ge1   ge2   gfilenamefice-9/psyntax.scm    Ch^]LLLL6Vgx  gfilenamefice-9/psyntax.scm  5   A   C'(| h]$4L 5$4L 54L 54LL54L L 5LL454LLO54L4LL$'4L5$4LL>"G""LL5L56L6gid  gval  ge1   ge2   glabels   gnew-vars   gw  7 gr  7 gfilenamefice-9/psyntax.scm   #     ,   .    "  ) -  ) 7  A  0 L  0 `  0 h   p 8  q 8  { 8 | 9    0  "  0  8    C h] 45"@4L$'45$4>"G""56$94LO?$% LLLLLLLLL O@""}ge  gr  gw   gs   gmod   gtmp  gfilenamefice-9/psyntax.scm     ,   4    8  ! 8  + 8 , 9 O   Q    C !% .O >"G4L+'(mh]L6gid  gval  ge1   ge2   gfilenamefice-9/psyntax.scm    Ch^]LLLL6Vgx  gfilenamefice-9/psyntax.scm  5   A   C'(| h]$4L 5$4L 54L 54LL54L L 5LL454LLO54L4LL$'4L5$4LL>"G""LL5L56L6gid  gval  ge1   ge2   glabels   gnew-vars   gw  7 gr  7 gfilenamefice-9/psyntax.scm   #     ,   .    "  ) -  ) 7  A  0 L  0 `  0 h   p 8  q 8  { 8 | 9    0  "  0  9    C h] 45"@4L$'45$4>"G""56$94LO?$% LLLLLLLLL O@""}ge  gr  gw   gs   gmod   gtmp  gfilenamefice-9/psyntax.scm     ,   5    8  ! 8  + 8 , 9 O   Q    C !% .O >"G4L+^UM)h@]$C$%45 $ & 4L5CCCCge  9gfilenamefice-9/psyntax.scm  e d      d     + f & 2 f   9 C    h] LLC~gmod  gvar  gpublic?   gfilenamefice-9/psyntax.scm {      C h`] LLCXgvar  gfilenamefice-9/psyntax.scm }      Chp]45L$BL &2L 45$"L ""LLLLOLLO6ge  ngvar ngmeta  " Lgv  = Igfilenamefice-9/psyntax.scm   E  *     =     " > % ?  ) ?  - ?  1 ? 7 @ - : @ & = @  E   n y   n C3)hZ]94LLL4$/45 $ & 4L5"""5$"L> GLL6Rge  gprops H [gtype e gvalue  e gform  e ge  e gw  e gs  e gmod  e  gfilenamefice-9/psyntax.scm  7               .   H   H   M   Q  d   h      C! hE]{4LLL> G $4LLL4$/45 $ & 4L5"""5  $ " L> G    4L    L5     4LL> G    4LO?$LL O@  6  4L LL4 $/4 5 $ & 4L 5" " " 5  $ " L> G   4L   L5    4  LLLLLLO4 55   L  C=ghead  gtail  gval   gtype   gvalue   gformform   gee   gww   gss   gmodmod  gprops v gtype gvalue gform ge gw  gs  gmod  gval  ge  gr  gw  gs*   gmod   gtmp   ge ' gprops o gtype  gvalue  gform  ge   gw   gs   gmod   gfun-exp  garg-exps  $gfilenamefice-9/psyntax.scm   '    0   1   :   ?   C   D   \   v   v   {             >  ! '  2 *   3   8   <   =   U   o   o   t   x            2      %   C'(h@]$C$%45 $ & 4L5CCCCgid  9gval  9gfilenamefice-9/psyntax.scm  e d      d     + f & 2 f   9 C IK)  H h] LLC~gmod  gvar  gpublic?   gfilenamefice-9/psyntax.scm {      C h`] LLCXgvar  gfilenamefice-9/psyntax.scm }      CUJR'(h]j4LL 5$-45 $ &  "L"L"L4L 5$")$ 4L5$""$454L L L 4$/45 $ & 4L 5"""5$"L> G    4L L    5    $B &2  4  5$"       "" LC $4L L L 4$/45 $ & 4L 5"""5$"L> G    4L L    5    $B &2 4 5$"  ""L LO LO6$45$4LLL L LL54L L 4$/45 $ & 4L 5"""5$"L> G     L   L   64LLL L54LL 56$4LL L564LL$'4L5$4LL>"G""LL L56gid  gval  gn  A gid-mod  A gt  N gt  m gb  gkey  gprops  gtype   Agvalue   Agform   Age  Agw  Ags  Agmod  Agname  A gvar  A gexp  A gmeta ^ gv y gprops   gtype   Hgvalue   Hgform   Hge  Hgw  Hgs  Hgmod  Hgexp  H gmeta  a gv  | gp   ge   dgprops  " 5gtype  ? dgvalue ? dgform ? dge ? dgw ? dgs ? dgmod  ? d*gfilenamefice-9/psyntax.scm   !      &    A   F N N M  ` O d M  e P  m P } P 1 Q     "    9  9                            A   J   N =  Q   ^ > a ?  e ?  i ?  m ? s @ - v @ & y @                                                H   M   Q =  T   a > d ?  h ?  l ?  p ? v @ - y @ & | @      y       (      %   ;   %   !   -   %                   "   "   '   +  >   B   d  h  7 j  = k  7 v  7   %      1   7   1      6   <     8   8   8  9      $s   C h ]45"j45$LLLLO@4L$'45$4 >"G""56$74 LO?$# LLLLLLLLO @"Y"Uge  gr  gw   gs   gmod   gtmp  gtmp   {gfilenamefice-9/psyntax.scm   ?  , A  2 B   J 8  K 8  U 8 V 9 y   {    C $" O>"G4i4i54iM+3mhH]4L5$4$C$"45 $ & CCCCCgmod  Egid  Egfilenamefice-9/psyntax.scm        e  d      d    < f   E Ch z]45L45Drgmod  gid  gfilenamefice-9/psyntax.scm          ChH] 45" 6$4LO?$ O@""|ge  Cgr  Cgw   Cgtmp  Cgfilenamefice-9/psyntax.scm    C CO5>"G4M h]$4L54L5C$"C4545"&$C4L5" "45 $. & 4L 5 C""}Cgx  gmod  gn  1 mgv  : mgi  @ fg expression  gwrap  gfilenamefice-9/psyntax.scm        &   2   &   &   2   &   "   &   + * 1 4 @ : @  " E  ' I  " Q  5 X  A \  5 ]  $ `  , f  " m   n    !    !     "  gnameg remodulateC+3mhi]L6agmod  gexp  gfilenamefice-9/psyntax.scm    C)hp]454L5LL4$,45 $ & """5$"Dgmod  lgexp  lgmod  lgprops  U hgfilenamefice-9/psyntax.scm  #   ! "    !   %   &   U   U   Z   ^  l !   l CmhH]4L5$4$C$"45 $ & CCCCCgmod  Egid  Egfilenamefice-9/psyntax.scm        e  d      d    < f   E Ch z]45L45Drgmod  gid  gfilenamefice-9/psyntax.scm          C h]OQ45"E45" 6$#4LO?$O@""$4 LO?$  O@""ge  gr  gw   g remodulate  gtmp   gtmp  ' cgfilenamefice-9/psyntax.scm   CO>"G4Lc+^) hX]:4LLL4$,45 $ & """5$"L> G4LL54LLL4$,45 $ & """5$"L> G4LL5  LCgtest  Wgthen  Wgprops  E Xgtype  b gvalue  b gform  b ge  b gw  b gs  b gmod  b gprops  gtype  8gvalue  8gform  8ge  8gw  8gs  8gmod  8gtest-exp  @ Wgthen-exp  @ Wgelse-exp  @ Wgfilenamefice-9/psyntax.scm               E   E   J   N  a   e   t                          <   @ )  K    W C) h];4LLL4$,45 $ & """5$"L> G 4LL 5 4LLL4$,45 $ & """5$"L> G 4LL 5 4LLL4$,45 $ & """5$"L> G 4LL 5  LCgtest  gthen  gelse   gprops  E Xgtype  b gvalue  b gform  b ge  b gw  b gs  b gmod b gprops  gtype  8gvalue  8gform  8ge  8gw  8gs  8gmod 8gprops  { gtype   gvalue   gform   ge   gw   gs   gmod  gtest-exp   gthen-exp   gelse-exp   gfilenamefice-9/psyntax.scm               E   E   J   N  a   e   t                          9   B   G   K   L   {   {                 /    '   C3hX]45$LLO@45$LLO@6ge  Wgr  Wgw   Wgs   Wgmod   Wgtmp  Wgtmp  1 Wgfilenamefice-9/psyntax.scm &   W C" O>"G4i4i54iL+)hQ]94LLL4$,45 $ & """5$"L> GLL6Igx  gprops E Xgtype b gvalue  b gform  b ge  b gw  b gs  b gmod  b  gfilenamefice-9/psyntax.scm ;                E   E   J   N  a   e      C)hQ]94LLL4$,45 $ & """5$"L> GLL6Igx  gprops E Xgtype b gvalue  b gform  b ge  b gw  b gs  b gmod  b  gfilenamefice-9/psyntax.scm <                E   E   J   N  a   e      C'( h.]4LLLLLO54LLLLLO54L4LL$'4L5$4LL>"G""LLL5LLL5 LC&gfluid  gval  gb   gb*   gfluids  v gvals  v gbody  v gfilenamefice-9/psyntax.scm  ;   <  / =  7   ? 8  @ 8  J 8 K 9 n   v =  v 9     C3h8] 45$LLLLO @6ge  7gr  7gw   7gs   7gmod   7gtmp  7gfilenamefice-9/psyntax.scm 6   7 C" %O5>"G4i4i5\4i\\5>"G4i4i5]4i]]5>"G4i4i54i5>"G4i4i54i5>"G4i4i5V4iVV5>"G4L+_h8]"4LLL> G4LL> GDgx  7gy  7gy   7gids   7gx  ' 7gids  ' 7gfilenamefice-9/psyntax.scm  T 0  S  W 4 * V % 3 Y 1 7 Y )  7 Ch0] 45$LLO@L6gp*  .gn  .gids   .gtmp  .gfilenamefice-9/psyntax.scm P  . Z "  . gnamegcvt*Ch0]"$"D"gx  /gr  $gx   $gfilenamefice-9/psyntax.scm \   ]  ^ & ^   ` -  ` '  ` 8  ` ! $ _ ! $ ]  % ] ) / ]   / gnameg v-reverseC/ ,U+c_h8]"4LLL> G4LL> GDgx  7gy  7gy   7gids   7gx  ' 7gids  ' 7gfilenamefice-9/psyntax.scm  3  $  7 * ( 3 4 7 ,  7 ChO]LDGgfilenamefice-9/psyntax.scm  /  '   CNh(]4LLL> GDgx  #gp  #gids   #gfilenamefice-9/psyntax.scm  3  $  F  > # 6  # Chx]L6pgx  gdots  gys   gfilenamefice-9/psyntax.scm  u $   ChP)]34LLL> G4LL> G4L> GD!gx  Pgdots  Pgys   Pgys   Pgids   Pgx  ( Pgids  ( Pgys  : Pge  : P gfilenamefice-9/psyntax.scm  w 3  v $  z 7 z G ' z 7 + y ( 0 } ; = | , C  8 P  0  P Chh]L6`gx  gdots  gfilenamefice-9/psyntax.scm  n $   C/0h8]4LLL> G&"Dgx  2gdots  2gp   2gids   2gfilenamefice-9/psyntax.scm  p 3 p C  p 3  o $  r ; ! r 0 # r A ) r S . r K 2 r (  2 Ch]+$"3$+45 $ &  """$4LL5$ D" D$,45 $ & """45 $"& 4L54L5&D""4 5"4 5"m4 5$ LO@45$  O@45$LO@4L5D$'4LO?$LLLO@"f"b$#4LO?$LO@"*"& gp  gn  gids   gtmp  gtmp  gtmp   kgtmp  & kgtmp  B kgfilenamefice-9/psyntax.scm c   e d      d     2 f  E d  F f # R e ! T g 3 Y g + ] g # c k + h k 6 k k 0 m k # m e ! p   t s  u   s "   e ! t  t - s  i + i # [ 6 \ < g . k &"   gnamegcvtCh@]OOQLLLQ 6gpattern  @gkeys  @g ellipsis?   @gcvt*   @g v-reverse   @gcvt   @gfilenamefice-9/psyntax.scm N  > ( @   @ gnamegconvert-patternCO/KlF .h]C}gvar  glevel  gfilenamefice-9/psyntax.scm Y  i q [  CU h&]454>"G4L54L5L4455$ " 4L4 54L4L4 45554L 5556gpvars  gexp  gy   gr   gmod   gids  glabels  1 gnew-vars  1 gfilenamefice-9/psyntax.scm   $   = " ) ) E 1  9   <  ! B   D  3 E  I   N   Q I T   `  ! b I f   g 6 k U w y x K } S T Y T S S K 6 0 "  gnamegbuild-dispatch-callCO0h^]LLL6Vge  gfilenamefice-9/psyntax.scm B N  Cmhy]4LLL5Cqgx  gfilenamefice-9/psyntax.scm -  >  I  >  9   CKk +h]LC   C/Fd+bhH,34LLO> G 4LO 5$4L4 55$4455 L    4  5  $4  O ?"14L  5       4L  54L5                     &N4455$ "        "T4455$ "         666@gx  gkeys  gclauses   gr   gpat   gfender   gexp   gmod   gp   gpvars  gy Y gy u  gtmp gthen-exp gelse-exp  gtest-exp gthen-exp gelse-exp  greq  ?gvars  ?gexp  ?gbody  % 6gfun-exp z garg-exps z gfun-exp  garg-exps  gfilenamefice-9/psyntax.scm   ( !  & $ ;  < $ ? 9 I $ M  N 8 U 1 W 8 Y  ` Y c S h b m   p k u   u I v   c   ^ ^ K    4      ) %   %   ,   . k 3   C E G : H   K  ! Q   S  3 T  X   ]   ` j c   o  ! q j u   z Q z >         !      3          j      !  j     Q  >     4  !  1  >    1  >  M   gnameg gen-clauseCO1F 3+mUh]L$,4L5 $L &L "L"L"L$,45 $ & """&4LL54L5"Cgx  gfilenamefice-9/psyntax.scm 2    s    > s " ?   p s  q t  z t - t >  C$U%,)h]:"LL LLL L 6$"3$+45 $ &  """$4LOL5$"4455$,45 $ & """4455L4L4 54L4L  L 54L 5L 55L 6$,45 $ & """4 5 $ " &4L 54L  5&4L L  4$,45 $ & """5$"L > GL L 6"n"j""gpat  gexp  gid  glabels  gvar  gprops   gtype   gvalue   gform   ge   gw   gs   gmod    gfilenamefice-9/psyntax.scm  7  $   e ! d  )   - d  .   J f  ] ^ ) n 2 p ) t $ y   |    %     6   7    7  8 ( = N H h > > F f n X R  F  F  >  =  =  *  $    # s  $   _ s " a   k $ l t  u t -  s                                    B   C/h]LLLLLL6~gpat  gfender  gexp   gfilenamefice-9/psyntax.scm 3     C&h](X4455$ "    C45$% LLLLLLLLLO@4 5$ LO@  6gx  gkeys  gclauses   gr   gmod   gfun-exp  N `garg-exps  N `gtmp  c gtmp  n gtmp   gfilenamefice-9/psyntax.scm       !      3         ! I $   0  ! 2 I 6   F B I   N 0 N  W   c * c  4 A 4 "  gnameggen-syntax-caseCO 2-Q/! .Q002(/Q11! " Q2'(+)mhX]$"3$+45 $ &  """$ 4LLL5CCgx  Tgfilenamefice-9/psyntax.scm )  e d      d     2 f  E 5 F G Q B  T Ck U)*h@ ]C4LLLO5$44554L LL5   4LL4$,4 5 $  & """5$"L> G  4LL  5   LC   L6gval  9gkey  9gm   9gx  $ /greq  J ~gvars  J ~gexp  J ~gbody  d ugprops  gtype  gvalue  gform  ge  gw  gs gmod gfun-exp   /garg-exps   /gfilenamefice-9/psyntax.scm     8 2 " 8 $ ( Z + T 0 c 1 J 8   ; t @   J J J 5 U   \  ) d   d   k   m l r                           5  " %   3 2 5 ? 9 )  9 C3hp]4L$'45$4>"G""545$LLLLO@6ge  ogr  ogw   ogs   ogmod   oge  : ogtmp  E ogfilenamefice-9/psyntax.scm     8  8   8  9 :   :   o C( "2O/012>"G8=h@-.,3##L44556gx >gm >gesew  >gfilenamefice-9/psyntax.scm    $   . ' ! 1 ' 2 0 5 = ; 0 < ! >  > gnameg macroexpandCO+ih0]$"45 $ & CCCCgx  -gfilenamefice-9/psyntax.scm    _    & `   - gnameg identifier?C,ih ]  Cgid  gdatum  gwrap  gmodule  gfilenamefice-9/psyntax.scm           gnameg datum->syntaxC-iUhx]L6pgx  gfilenamefice-9/psyntax.scm     gnameg syntax->datumC-Oi)hP] 4$,45 $ & """5$CCgx  Jgprops < Jgfilenamefice-9/psyntax.scm            <   <   A   E    J gnameg syntax-sourceC.i/01hy]L45L6qgx  gfilenamefice-9/psyntax.scm "   #  # * #   #    C hH] $"4>"G4455LO6gls  Agmod 0 Agfilenamefice-9/psyntax.scm     % !  & ! & ) ! 3 / ! & 0 !  0 ! A "   A gnameggenerate-temporariesCO/i20UhX]"4>"OG"H$=45 $' & $"""""""""4>"OG"H$=45 $' & $""""""""$,45 $ & """$,45 $ & """&4L54L5CCgx  Rgy  Rgfilenamefice-9/psyntax.scm '  ( ( ' ( #   ' ( (   5 _  9   D ` H   m ) q ) ' s )   )   _    `   s     s "    < s  = t  F t - O t   R gnamegfree-identifier=?CO2i30hP]"4>"OG"H$=45 $' & $"""""""""4>"OG"H$=45 $' & $"""""""""C$i45 $W &I$>45 $, &  &L  6C""""""gx  Lgy  Lgfilenamefice-9/psyntax.scm -  . . ' . #   ' . (   5 _  9   D ` H   m / q / ' s /   /   _    `    |    |    |   " } )   *   /   0   2  #  L gnamegbound-identifier=?CO3iS045)U hH7-.,3#$45$""$"4>"G45$"4>"G4$,45 $  & """5$"$"M4$,45 $  & """5$"4L 5$ 4L 5"6/gwho Hgmessage Hgform  Hgsubform  Hgprops  gt  )gprops   &gfilenamefice-9/psyntax.scm 3  4 #  4 / & 4 # ' 4 / . 4 ; 3 4 ' 7 4 @ 5  B 4 R 6 e 6 ' g 6 z 7                  8                     * :  8 ;  9 ; H 7 $ H  gnamegsyntax-violationC-Oi60IHS7KZ89J#h8]6L L "$ ""6$+&$ """""L 4L5  $$-45 $ &  """ 4L  5  $ "   &  ""   ""4 5$h$-45 $ &  """ 4 5  $ "     ""4  > G $ D $ D $ D$D$ D$=                DDge  6gr  6gw   6gs   6grib   6gmod   6gw  rgms   ogs   ogid  w gw  w gmod  w gn gmod  gt gb  gmod Q gt \ ogb o gtype   6gvalue   6gmod   6gw  g expression  /gwrap  /gmodule  /gfilenamefice-9/psyntax.scm E    P  G   G *  G # L ! ( L ) / L  3 H  6 H  : H  = H ( B H  E J  K J ' P J 9 Q J / X J B Y J  w   w N  ~ Y  Y  [ Z    \    \ P  P  Q  P  R  R $ R S  S   T   T '  T   _  Z     " `  #   Q ` T V  \ V  l W  o V  t X  w X #  X  d  d   d  M  T   U $  U   T   V "  V   T   W #  W   T   X .  X &  T   Y #  Y 7  Y +  Y   T   [      ] .   '                   \     1 [  3 _  6 _ ]  6 Chx]"4>"OG"H$=45 $' & $""""""""M[LLO6gid  xgfilenamefice-9/psyntax.scm B   C  C $ C  #   ' C  (   5 _  9   D ` H   x l   x gnamegsyntax-local-bindingCO/:0hx]"4>"OG"H$=45 $' & $""""""""L  6gid  vgfilenamefice-9/psyntax.scm a   b  b $ b  #   ' b  (   5 _  9   D ` H   v c   v gnameg syntax-locally-bound-identifiersCO0Q/Q04;i<<0hp]"4>"OG"H$=45 $' & $"""""""" Cgid  ogfilenamefice-9/psyntax.scm >   ?  ? $ ?  #   ' ?  (   5 _  9   D ` H   n @   o gnameg syntax-moduleC>"G4;i6/>"G4;i:0>"G/0h]$74L5$4L5$CCC(C$?45 $/ &# 4L 5 "xCCCge  gp  gw   gmod   gfirst   @grest  . >gfilenamefice-9/psyntax.scm      ,     !  & + .  .  6  ;  F G  K   O P   n  w   y  ~     gnameg match-eachCO/hxS] $&4L5$4L5CC(C$845 $( & 4L 5"CCCKge  xgw  xgmod   xgl   /gfilenamefice-9/psyntax.scm     %        # ! )  ,  5 6  :   > ?   [  d   f  r   x gnamegmatch-each-anyCO0,/0N h] (C&C&C$4L5"&C $ "$' 4L4 54L 55"i$"$C $ "8Cgp  gr  gkey  P gfilenamefice-9/psyntax.scm           "  & * - # . + 3 8 7 + ?  C  G H $ K  P  P _ # i  r v $ w $ z % . % % 2 % $  % &  gnameg match-emptyCO1Klh(](C454L455Cgr*  'gr  'gfilenamefice-9/psyntax.scm      !  * % ! &   ' gnamegcombineCO20Klh(](LC454L455Cgl  %gfilenamefice-9/psyntax.scm   '  &  2  ; # 2 $   % gnamegcollectCh]"$f4L> G$D('4LLL5$ DD4LL5DD"L4LLLL5D$845 $& & 4L 5"D"""ge  gw  gxr*   ogy-pat   ogr   ogxr  ; Sgfilenamefice-9/psyntax.scm   +  .  +   &  ,  - $ 2 + 7 ; ; $ ;  C  H ( N S T  W  X  ] " ` * h  j  o  t  w          &  gnamegfCUNW hpn]-( (CC$($L4L56C&4L5$CC $?( L 64L 5$OQ6C$t   O L LQ 4 > G$ (( L 6L6CC$$"3$+45 $ &  """$4L5 $,45 $ & """$,45 $ & """&4L 54L 5"$CCC $ 4L5$CC $$L4 5 6CCfge  ogp  ogw   ogr   ogmod   ogl  U egkey  i ogl  gcollect  gx-pat  gy-pat  gz-pat  gf gxr*  0gy-pat  0gr  0gi   gj   gfilenamefice-9/psyntax.scm         ! & " ) * ,  1 $ 4 , <  @  F  J K  U ] 0 b 7 i  i z    *     $ 5 F         ) $  ,  9 < e @ d  H   L d  M   i f  |  } 1  @  &     s      s "     s   t   t -  t   / 3 # 4 4 =  A  O R  V  Y  c , k L  o gnamegmatch*CO 3,/hD]$|&C&4L5C"L6$=45 $+ &L 4L 5 6"""C<ge  gp  gw   gr   gmod   gfilenamefice-9/psyntax.scm          )  <   < ?   C D   d  m   o  v   x   gnamegmatchCO4/4Q/0Q01Q12Q24/1-20Q33Q4/,Uhp]&C&C" L6$545 $# &L   6"""ge  jgp  jgfilenamefice-9/psyntax.scm            '  , *   *  -   1  2   W  1 \   ^    j gnameg $sc-dispatchC3O+i/01234      !"#$%&'()*+,-.4i=+?Jh:]C2ge1  ge2    CMXYh []CSgout  gin  ge1   ge2      Cabch []CSgout  gin  ge1   ge2      C3 hP]45$@45$@45$@ 6gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefice-9/psyntax.scm    P C5=R4i5+a23Shv]456ngmessage  garg  gfilenamefice-9/psyntax.scm  0  0   Coqh@]C8gmessage  garg     CSh]456gkeyword  goperands  gmessage   garg   gfilenamefice-9/psyntax.scm  %  %   Crshg]456_gx  gfilenamefice-9/psyntax.scm ( 1  * 4 ) 3  Ch8]4544545545$ "6gkeyword  8goperands  8gmessage   8garg   8gfilenamefice-9/psyntax.scm  &  '   ' ,  ( ,  ' & ! '  " ,  , ,  8 &   8 C hhv]45"745" 6$4?$@""$4?$ @""ngx  ggtmp ggtmp   Hgfilenamefice-9/psyntax.scm   g C55R4it+hZ]CRgkeyword  gpattern  gtemplate      C3Sh]456gkeyword  gpattern  gmessage   garg   gfilenamefice-9/psyntax.scm  <  <   Ch j]Cbgkeyword  gpattern  gmessage   garg      C hP]45" 45$@6$4?$@""gclause  Pgtmp Pgtmp   1gfilenamefice-9/psyntax.scm 5   P gnameg expand-clauseC+! h@]45L$ LCCgk  <g docstring  <gkeyword   <gpattern   <gtemplate   <gclause   <gtmp  ' <gfilenamefice-9/psyntax.scm ' G  / N   < C3h@]4L545$ O@6gdots  ;gkeys  ;g docstrings   ;gclauses   ;gtmp   ;gtmp   ;gfilenamefice-9/psyntax.scm A  F   B   ; gnamegexpand-syntax-rulesC+ht]Clgtmp-bde397a-19fa  gtmp-bde397a-19f9  gtmp-bde397a-19f8     Ch]L456gk  gkeyword  gpattern   gtemplate   gfilenamefice-9/psyntax.scm  T    C3,Sh ]45$ 456Cgdots  gk  g docstring   gkeyword   gpattern   gtemplate   gfilenamefice-9/psyntax.scm  \ \   \ *  \ !   Cht]Clgtmp-bde397a-1a4b  gtmp-bde397a-1a4a  gtmp-bde397a-1a49     Ch ]L456gdots  gk  g docstring   gkeyword   gpattern   gtemplate   gfilenamefice-9/psyntax.scm  ]    C,h]6gdots  gk  gkeyword   gpattern   gtemplate   gfilenamefice-9/psyntax.scm  Y    Cht]Clgtmp-bde397a-1a2c  gtmp-bde397a-1a2b  gtmp-bde397a-1a2a     Ch]L456gdots  gk  gkeyword   gpattern   gtemplate   gfilenamefice-9/psyntax.scm  Z    CSh]456gk  g docstring  gkeyword   gpattern   gtemplate   gfilenamefice-9/psyntax.scm  V  V   Cht]Clgtmp-bde397a-1a13  gtmp-bde397a-1a12  gtmp-bde397a-1a11     Ch ]L456gk  g docstring  gkeyword   gpattern   gtemplate   gfilenamefice-9/psyntax.scm  W    Ch]1OQ45$ O@45"o45"<45"   6$4 ?$  O@""$4 ?$ O@""$4?$ O@"q"mgxx  g expand-clause  gexpand-syntax-rules   gtmp   gtmp  8 gtmp  G gtmp  V gfilenamefice-9/psyntax.scm 4   C5tR4i+h W]COgname  gpattern  gtemplate      C3Sh]456gname  gpattern  g docstring   gtemplate   gfilenamefice-9/psyntax.scm  g  g   Ch n]Cfgname  gpattern  g docstring   gtemplate      C hPv]45$@45" 6$4?$@""ngx  Pgtmp Pgtmp  " Pgfilenamefice-9/psyntax.scm `   P C5R4i+}3m,h]6glet*  gx  gv   ge1   ge2   gfilenamefice-9/psyntax.scm q   C+hA]C9gbody  gbinding     C3hH]( LLC4L545$@6gbindings  Cgtmp ! Cgtmp  , Cgfilenamefice-9/psyntax.scm r   s  u !  u $  u !  v $ ! u   C gnamegfCdh(] OQ456glet*  $gx  $gv   $ge1   $ge2   $gf  $gfilenamefice-9/psyntax.scm r   $ Ch@e] 45" 6$4?$@""]gx  9gtmp 9gfilenamefice-9/psyntax.scm n   9 C5R4i+/6:h(]L $CL4LL56{gp  %gfilenamefice-9/psyntax.scm  ~ ~  , ! 9 # , %   % C=Dhq]L4LL56igp  gfilenamefice-9/psyntax.scm  :  G  :     C_+NSh8]C0gtmp-bde397a-1ab0    CVh@]L $L454LLL56L4L4LL554LLL56gp  >gfilenamefice-9/psyntax.scm    0  #  ( 0 / A 1 0 3  4  >   > CZ_h8]C0gtmp-bde397a-1ab5    Cbh@]L $L454LLL56L4L4LL554LLL56gp  >gfilenamefice-9/psyntax.scm    1  #  ( 9 / J 1 9 3  4  >   > Ch`]45$LLLLO@45$LLLLO@L4LL54LL56gp  `gq  `gtmp  `gtmp  / `gfilenamefice-9/psyntax.scm M  V ) `   ` C+dlh)]45C!gx     C+dyh8]C0gtmp-bde397a-1b25    ChV]L456Ngy  gfilenamefice-9/psyntax.scm     C|hV]L6Ngy  gfilenamefice-9/psyntax.scm     C!hh]L4L56`gls  gfilenamefice-9/psyntax.scm '  7  4   Che]LLO6]gy  gz  gfilenamefice-9/psyntax.scm     C h`]45$ O@45$ O@45$ LO@LCgy  `gk  `gtmp  `gtmp  ' `gtmp  C `gfilenamefice-9/psyntax.scm   ` gnamegfC+0h6]C.gt-bde397a-1b19     C3h(t] 45$@6lgls  "gtmp "gfilenamefice-9/psyntax.scm   " gnamegkCh@]4LL545$@OQ6gx  <gx <gtmp   <gf  - <gfilenamefice-9/psyntax.scm    -   < C h]"45$LLO@45$LLO@45$LLLLO@45$  LO@ Cgp  glev  gtmp  gtmp  + gtmp  K gtmp  o gfilenamefice-9/psyntax.scm {   gnamegquasiCO+_+h8]C0gtmp-bde397a-1acb    Ch@]L $L454LLL56L4L4LL554LLL56gp  >gfilenamefice-9/psyntax.scm    0  #  ( 0 / A 1 0 3  4  >   > Ch8]C0gtmp-bde397a-1ad0    Ch@]L $L454LLL56L4L4LL554LLL56gp  >gfilenamefice-9/psyntax.scm    1  #  (  / # 1  3  4  >   > Chh]45$LLLLLO@45$LLLLLO@L4LL54LL56gp  dgq  dgtmp  dgtmp  1 dgfilenamefice-9/psyntax.scm Q  Z ) d   d Ch]C   C3hH]45$LLLLLO@45$@6gp  Gglev  Ggtmp  Ggtmp  0 Ggfilenamefice-9/psyntax.scm   G gnamegvquasiCO+++h*]LC"gdx    Ch8g] 4L5$ O@(LCLLC_gdy  6gtmp 6gfilenamefice-9/psyntax.scm $   6 Ch-]LC%gstuff    Ch-]LC%gstuff    C hhk]45$ O@45$ O@45$ O@Ccgx  bgy  bgtmp  bgtmp  ) bgtmp  E b  b C3h0]45$@6gx  +gy  +gtmp  +gtmp   +gfilenamefice-9/psyntax.scm    + gnameg quasiconsC++0h)]C!gp     C3h8s]L(CL(LC4L5$@L6kgtmp  6gfilenamefice-9/psyntax.scm        6 C!h8]45C0gp  gy     C3hP]45$ O@(C45$@6gx  Pgy  Pgtmp  Pgtmp  . Pgtmp  9 Pgfilenamefice-9/psyntax.scm  $ .   P gnameg quasiappendCh ](LCL4L56gx  gfilenamefice-9/psyntax.scm         "       gnamegfCh ] OLQ6gx  gy  gf  gfilenamefice-9/psyntax.scm     gnameg quasilist*CO+h)]C!gx    C|+0h6]C.gt-bde397a-1b43     C3h0]4L545$@6xgx  -gtmp -gtmp   -gfilenamefice-9/psyntax.scm  #   - C+1hR]CJgt-bde397a-1b57  gt-bde397a-1b56    C3hH](LL64L54L545$@6gx*  Cgtmp ! Cgtmp  , Cgfilenamefice-9/psyntax.scm           +  .  + !   C gnamegfCh t] OLQ6lgx  gy  gf  gfilenamefice-9/psyntax.scm    C3+0@h6]C.gt-bde397a-1b63     C3h0]4L545$@6xgx  -gtmp -gtmp   -gfilenamefice-9/psyntax.scm  '   - CB+0Oh6]C.gt-bde397a-1b6f     C3h0]4L545$@6xgx  -gtmp -gtmp   -gfilenamefice-9/psyntax.scm  '   - CQ^ho] 4L5Cggx  gtmp gfilenamefice-9/psyntax.scm  .    C`h)]C!gx     C3h]945$@45$ LO@45$ LO@45$  LO@4 5$  LO@4 5$  LO@45$@6gx  gtmp gtmp  " gtmp  > gtmp  Z gtmp  v gtmp  gtmp  gfilenamefice-9/psyntax.scm   gnamegemitCOQQQQ+bh_]L4L 56Wge  gfilenamefice-9/psyntax.scm       C3h0e] 45$ LLO@6]gx  )gtmp )gfilenamefice-9/psyntax.scm   ) CO5R4iabcdaefghijk-h]#445$"$ 45" 4L55454$" >"G">4 5$4 >"G 64 545"4 5"gfn  gdir  gk   gp  6 genc  ? gx  e gresult  e gfilenamefice-9/psyntax.scm          *  .  0  4  6  6  9  ?  B L T ( Y e f  p q           gnameg read-fileC.7lSm++0h+]C#gexp     C3h8]454LL545$@6gk  8gfilename  8gfn  8gtmp   8gtmp  ! 8gfilenamefice-9/psyntax.scm      $     8 C3 hp])OQ45$ 45"45$ 45"45$  O@  6 gx  ng read-file ngsrc   ngfile  , ngdir  E ngtmp  P ngfilenamefice-9/psyntax.scm          % ( '  ,  /  9  : $ E   n C5aR4i+-hH]45445$" 4L55Cgk  Agfilename  Agfn  Agt   5gtmp  7 Agfilenamefice-9/psyntax.scm        &  *  2 ,  2 2  7  7   A C3h(e] 45$ O@6]gx  'gtmp 'gfilenamefice-9/psyntax.scm    ' C5R4ihp]6hgx  gfilenamefice-9/psyntax.scm            C5R4iWWhp]6hgx  gfilenamefice-9/psyntax.scm            C5WRTh]L6gx  gfilenamefice-9/psyntax.scm !   #    gnamegtransg macro-typegvariable-transformerCZh@] 45$%OQ4>"GC6gproc  :gtrans  2gfilenamefice-9/psyntax.scm      !   $  ! $ ' ' $  6 & : &   : gnamegmake-variable-transformerCR4i+b h8)]  C!ge  1  1 C3,h]45$6Cgid  gexp1  gvar   gval   gexp2   gfilenamefice-9/psyntax.scm  5 5   5    C hXp]       Chgid  Wgexp1  Wgvar   Wgval   Wgexp2   W  W C hPw]45$@45" 6$4?$@""ogxx  Pgtmp Pgtmp  " Pgfilenamefice-9/psyntax.scm )   P C5R4i+ah\]CTgid  gargs  gb0   gb1      C^3,hh]6`gid  gval  gfilenamefice-9/psyntax.scm  C    Ch;]C3gid  gval    C hPv]45$@45" 6$4?$@""ngx  Pgtmp Pgtmp  " Pgfilenamefice-9/psyntax.scm ?   P C5RCg session-id gtransformer-environment gtop-level-eval-hook gget-global-definition-hook gmaybe-name-value! gbuild-application ganalyze-variable gbuild-simple-lambda gbuild-sequence gbuild-named-let g build-letrec gsyntax-object-expression g extend-env gextend-var-env gmacros-only-env g global-extend gid? g gen-labels gmake-binding-wrap g join-wraps g same-marks? g id-var-name glocally-bound-identifiers gvalid-bound-ids? gdistinct-bound-ids? gbound-id-member? gwrap g source-wrap gexpand-sequence gexpand-top-sequence gexpand-install-global gparse-when-list g syntax-type gexpand !g expand-expr "gexpand-application #g expand-macro $g expand-body %gexpand-local-syntax &geval-local-transformer 'g ellipsis? (glambda-formals )gexpand-simple-lambda *glambda*-formals +gexpand-lambda-case ,gstrip -ggen-var .gv /g gen-syntax /FIdggen-ref 0FIdggen-map 1FIdgregen 2FIdg expand-let /ikpgconvert-pattern /rgbuild-dispatch-call 0rg gen-clause 1rggen-syntax-case 2rgsyntax-local-binding /g syntax-locally-bound-identifiers 0g match-each /lOgmatch-each-any 0lOg match-empty 1lOgcombine 2lOgmatch* 3lOgmatch 4lOgquasi WYgvquasi WYg quasicons WYg quasiappend WYg quasilist* WYgemit WYGgfilenamefice-9/psyntax.scm    "  3     g  $  $  L ! &  L ! L  &  $  $  M ! &  M ! M  &  $  O  O  O '( O '1 $ '6 $ '? p '@ & 'G p 'I p )v & ){ $ ) w ) w ) w Ii w Ir  Iv  Iy  O  O , O , O , Q , Q 8 Q 8 Q 8 X$ 8 X- L X1 L X4 L ^ L ^ ` ^ ` ^ ` d ` d s d s d s p# s p,  p0  p3  u  u  u  u  {  {)  {-  {0  ]  f $ k $ t  u & |  ~  # & ( $ 1  5  8  -  6 % : % < %  %  $  $  5  &  5  5  &  $  $  @  &  @  @  @ ! &  $  $  B  &  B  B  B # &  $  $  D " &  D " D  D 1 &  $  $  E , &  E , E ! E E# & ( $ 6 $ > G ? & E G G G H G )J & O $ X I \ I _ I  I *            &  ,  2  j  j H j Q k Y k ` k i l q l x l =  d[   j C62.0/ccache/ice-9/mapping.go000064400000017603151463412640011156 0ustar00GOOF----LE-8-2.0k]V4h] gguile  gdefine-module*   gice-9 gmapping  gfilenameS fice-9/mapping.scm gimportsS gpoe      gexportsS gmapping-hooks-type gmake-mapping-hooks gmapping-hooks? gmapping-hooks-get-handle gmapping-hooks-create-handle gmapping-hooks-remove g mapping-type g make-mapping gmapping? g mapping-hooks g mapping-data gset-mapping-hooks! gset-mapping-data! gmapping-get-handle gmapping-create-handle! gmapping-remove! !g mapping-ref "g mapping-set! #ghash-table-mapping-hooks $gmake-hash-table-mapping %ghash-table-mapping & !"#$% 'gset-current-module (' )' *gissue-deprecation-warning +fH(ice-9 mapping) is deprecated. Use srfi-69 or rnrs hash tables instead. ,gmake-record-type -g get-handle .g create-handle /gremove 0-./ 1g perfect-funcq 2grecord-constructor 3grecord-predicate 4grecord-accessor 5ghooks 6gdata 756 8grecord-modifier 9ghashq :gassq ;ghashq-get-handle ghashv ?gassv @ghashv-get-handle Aghashv-create-handle! Bg hashv-remove! Cghash Dgassoc Eghash-get-handle Fghash-create-handle! Gg hash-remove! Hghashx-get-handle Ighashx-create-handle! Jg hashx-remove! Kg hash-procS LK  Mg assoc-procS NM  Ogtable-constructorS PO  QLNP Rgassq-ref Sgerror Tf6Hash-procedure specified with no known assoc function. Ug make-vectorC5hI]4   &54)>"G4*i+>"G4,i05R41i 42ii55R43ii5R44ii-5R44ii.5R44ii/5R4,i75R42ii5R43ii5R44ii55R44ii65R48ii55R48ii65Rh]44556gmap  gkey  gfilenamefice-9/mapping.scm 5  6   6   6   6    gnamegmapping-get-handleCRh]44556gmap  gkey  ginit   gfilenamefice-9/mapping.scm 7  8   8  8   8    gnamegmapping-create-handle!CRh]44556gmap  gkey  gfilenamefice-9/mapping.scm 9  :   :   :   :    gnamegmapping-remove!C Rh0-.,3#45$CCgmap -gkey -gdflt  -gt   -gfilenamefice-9/mapping.scm <  >   =  -  gnameg mapping-refC!Rh]45Cgmap  gkey  gval   gfilenamefice-9/mapping.scm A  B  B    gnameg mapping-set!C"R41i 9:;hy-13L45@qg1st grest gfilenamefice-9/mapping.scm G  G >  G 2  C<hy-13L45@qg1st grest gfilenamefice-9/mapping.scm G  G >  G 2  C=hy-13L45@qg1st grest gfilenamefice-9/mapping.scm G  G >  G 2  C>?@hy-13L45@qg1st grest gfilenamefice-9/mapping.scm G  G >  G 2  CAhy-13L45@qg1st grest gfilenamefice-9/mapping.scm G  G >  G 2  CBhy-13L45@qg1st grest gfilenamefice-9/mapping.scm G  G >  G 2  CCDEhy-13L45@qg1st grest gfilenamefice-9/mapping.scm G  G >  G 2  CFhy-13L45@qg1st grest gfilenamefice-9/mapping.scm G  G >  G 2  CGhy-13L45@qg1st grest gfilenamefice-9/mapping.scm G  G >  G 2  CHhq]LL6igtable  gkey  gfilenamefice-9/mapping.scm [ .  \ 0   Ch y-13LLO45@qg1st grest gfilenamefice-9/mapping.scm G   G >  G 2  CIh]LL6{gtable  gkey  ginit   gfilenamefice-9/mapping.scm ^ .  _ 0   Ch y-13LLO45@qg1st grest gfilenamefice-9/mapping.scm G   G >  G 2  CJhq]LL6igtable  gkey  gfilenamefice-9/mapping.scm a .  b 0   Ch y-13LLO45@qg1st grest gfilenamefice-9/mapping.scm G   G >  G 2  Ch]$.OO O6  $.  OOO6$.OOO6OOO6g hash-proc  g assoc-proc  gprocs  gproc   )gproc  + 7gproc  9 Egproc  Y egproc  g sgproc  u gproc  gproc  gproc   gfilenamefice-9/mapping.scm J  K " K   M '  M   L   N - + O - 9 P - G N  P Q ' Q Q  U L  Y R - g S - u T - R  U ' U  L  V - W - X - V  Z   C5#R#h]456gtable  g hash-proc  g assoc-proc   gfilenamefice-9/mapping.scm d  e   e    gnamegmake-hash-table-mappingC$RQCR9:>?DS%TUhf]6^glen  gfilenamefice-9/mapping.scm r   r = r ,  C$hb-/03# G##745$" 4   5#  456Zgsize  }g hash-proc  }g assoc-proc   }gtable-constructor   }gt  F bgfilenamefice-9/mapping.scm g . j " 5 j , F j " F j  U n " Y n ) [ o ) _ n " q s  } s   } g hash-procS g assoc-procS gtable-constructorS gnameghash-table-mappingC%RCAgm  ,gfilenamefice-9/mapping.scm   -  3 8  A "  G " - I " < K "  N " O '  V ' - b '  e ' f (  s ( t ) ! ~ ) E ) ! ) * $ * H * $ * +  + A +  + -  - ' - 0 -  - .  . /  / 0  0 4 0  0 1  1 3 1  1 2  2 9 2  2 3   3 8  3   3  5  7  9  < c A d I  " F  d  g >   C62.0/ccache/ice-9/poe.go000064400000005413151463412640010302 0ustar00GOOF----LE-8-2.0 ]#4h(] gguile  gdefine-module*   gice-9 gpoe  gfilenameS f ice-9/poe.scm gimportsS ghcons      gexportsS g pure-funcq g perfect-funcq  gset-current-module   gmake-weak-key-hash-table g funcq-memo gmake-gc-buffer g funcq-buffer ghashq g funcq-hash geq?-list g funcq-assoc g not-found g hashx-ref !g hashx-set! "gmake-hash-tableC5h]4   54>"G4i  5R4i 5Rh@]"+(C4?5" "garg-list  <gn  <gx   1garg-list   1gfilenamef ice-9/poe.scm 3  4 6   7   8 "  8 ) % 8 " & 8  ) 9  1 8  1 4   < gnameg funcq-hashCRh0](C(C& 6Cgx  *gy  *gfilenamef ice-9/poe.scm =  >  ?   @   A   A   @  # B  & B  ( B   * gnamegeq?-listCRh(](C45$C6garg-list  &galist  &gfilenamef ice-9/poe.scm D  E  G  G   G  G   H $ I & I   & gnameg funcq-assocCRR !hx-13L45&84L?4>"G4>"GC4>"GCgargs vgkey  vgcached   vgval  0 agfilenamef ice-9/poe.scm P   Q   Q   R   Q  ) S  * X  0 X 3 Y E Z b U  v Chn]OCfg base-func  gfilenamef ice-9/poe.scm O   gnameg pure-funcqCR" !hx-13L4M5&84L?4>"G4M>"GC4>"GCgargs vgkey  vgcached   vgval  0 agfilenamef ice-9/poe.scm h   i   i   j   i  ) k  * p  0 p 3 q E r b m  v Ch] H45KOCgsize  g base-func  g funcq-memo   gfilenamef ice-9/poe.scm e  f    gnameg perfect-funcqCRCgm  ,gfilenamef ice-9/poe.scm   - 0  9 0 : 1  F 1  3  =  D  L   L   L  O  e    C62.0/ccache/ice-9/streams.go000064400000017673151463412640011210 0ustar00GOOF----LE-8-2.0].4h[] gguile  gdefine-module*   gice-9 gstreams  gfilenameS fice-9/streams.scm gexportsS g make-stream g stream-car g stream-cdr g stream-null? g list->stream gvector->stream g port->stream g stream->list gstream->reversed-list gstream->list&length gstream->reversed-list&length gstream->vector g stream-fold gstream-for-each g stream-map    gset-current-module   g make-promise  ! "gforce #g vector-length $greverse! %g make-vector &gstream-fold-one 'gstream-fold-many (gor-map )gmap *gstream-for-each-one +gstream-for-each-many ,gapply -g eof-object?C5h]4   54>"G! h(]4LL5$4L5CCgo #gfilenamefice-9/streams.scm V   W W   X  X   Y   Z   Z   Z  Y " [   # Ch]O6~gm  gstate  gfilenamefice-9/streams.scm U  V    gnameg make-streamC R"h]45Cgstream  gfilenamefice-9/streams.scm ]  _  _   gnameg stream-carg documentationfBReturns the first element in STREAM. This is equivalent to `car'.C R"h]45Cgstream  gfilenamefice-9/streams.scm a  c  c   gnameg stream-cdrg documentationfGReturns the first tail of STREAM. Equivalent to `(force (cdr STREAM))'.CR"h?]45C7gstream  gfilenamefice-9/streams.scm e  i i   gnameg stream-null?g documentationfReturns `#t' if STREAM is the end-of-stream marker; otherwise returns `#f'. This is equivalent to `null?', but should be used whenever testing for the end of a stream.CR hT]CLgl  gfilenamefice-9/streams.scm o    Ch]6gl  gfilenamefice-9/streams.scm k n   gnameg list->streamg documentationfoReturns a newly allocated stream whose elements are the elements of LIST. Equivalent to `(apply stream LIST)'.CR #h ] L$CLCgi  gt  gfilenamefice-9/streams.scm u   v  v   w   w "  w    Ch ] 45O 6gv  glen gfilenamefice-9/streams.scm r  t  t   s    gnamegvector->streamCR hH]"/45$D4545" " gstream  Cgs  5gacc   5glen   5gfilenamefice-9/streams.scm z  {   |   |   }   ~   ~ # ( ~  + ~ 7 5 ~  5 {  8 {  C {   C gnamegstream->reversed-list&lengthCRh]4> GCgstream  gl glen  gfilenamefice-9/streams.scm       gnamegstream->reversed-listCR$h ]4> G45Dgstream  gl glen  gfilenamefice-9/streams.scm           gnamegstream->list&lengthCR$h$]456gstream  gfilenamefice-9/streams.scm    gnameg stream->listg documentationfReturns a newly allocated list whose elements are the elements of STREAM. If STREAM has infinite length this procedure will not terminate.CR%hX5])4> G45"%("& " "C-gstream  Tgl Tglen  Tgv   Tgi  ! Fgl  ! Fgfilenamefice-9/streams.scm         !  ' 2  7 * 8  ;  >  F  F   T gnamegstream->vectorCR&'h(-13( 66gf &ginit &gstream  &grest  &gfilenamefice-9/streams.scm     $  &  &  gnameg stream-foldCR& h0]45$C4455456gf  +gr  +gstream   +gfilenamefice-9/streams.scm        "  # 3 +   + gnamegstream-fold-oneC&R('h ](LC4L5Cgcars  gfilenamefice-9/streams.scm !  # '  -  -  4  -  '   gnamegrecurC) hH] 45$C4OQ4455?456gf  Ggr  Ggstreams   Ggrecur  " :gfilenamefice-9/streams.scm       " ! - . 7 ! <  =  G   G gnamegstream-fold-manyC'R*+h(-13(66gf "gstream "grest  "gfilenamefice-9/streams.scm      "  "  gnamegstream-for-eachCR *h8]45$C445>"G456gf  3gstream  3gfilenamefice-9/streams.scm        +  3   3 gnamegstream-for-each-oneC*R(,) +h@]45$C445>"G456gf  ;gstreams  ;gfilenamefice-9/streams.scm        $  1 ;   ; gnamegstream-for-each-manyC+R  h0] 45$C4L45545Cgs  )gt )gfilenamefice-9/streams.scm        "  ! 2 (   ) C() h0] 45$C4L45?45Cgstreams  /gt /gfilenamefice-9/streams.scm        ( $  %  .   / Ch0\-13( O6O6Tgf ,gstream ,grest  ,gfilenamefice-9/streams.scm     *  ,  ,  gnameg stream-mapg documentationfReturns a newly allocated stream, each element being the result of invoking F with the corresponding elements of the STREAMs as its arguments.CR -h(]4L545$CCgp  #go #gt   #gfilenamefice-9/streams.scm        "   # Ch]O6gport  gread  gfilenamefice-9/streams.scm     gnameg port->streamCRCgm  (gfilenamefice-9/streams.scm    U  ]  a  e  k  r z g W @ N m     g     C62.0/ccache/ice-9/and-let-star.go000064400000016126151463412640012015 0ustar00GOOF----LE-8-2.0>]4h ] gguile  gdefine-module*   gice-9 g and-let-star  gfilenameS fice-9/and-let-star.scm gexportsS gand-let*   gset-current-module   gmake-syntax-transformer   g %and-let* gmacro g $sc-dispatch   g_ gany    g syntax-object gbegin gtop !  "gribcage #g orig-form $gbody %#$ &!! 'fl-1706b9545eb5b006-4 (fl-1706b9545eb5b006-5 )'( *"%&) +" ,gform -, .! /fl-1706b9545eb5b006-1 0/ 1"-.0 2!*+1 3ghygiene 43 524 624 7 8 978 :9 ;: <; = >=8 ?> @? A@ Bgand Cgexpr Dgrest Egrest* F#CDE$ G!!!!! Hfl-1706b9545eb5b006-22 Ifl-1706b9545eb5b006-23 Jfl-1706b9545eb5b006-24 Kfl-1706b9545eb5b006-25 Lfl-1706b9545eb5b006-26 MHIJKL N"FGM O!N+1 PBO4 QO4 R8 SR TS UT V7 WV X= YX Z= [V \[ ]\ ^X _^ `_ a#C$ b!!! cfl-1706b9545eb5b006-6e dfl-1706b9545eb5b006-6f efl-1706b9545eb5b006-70 fcde g"abf h!g+1 iBh4 jh4 k= lk ml n8 on po qgsyntax-violation rf Bad clause sq tq uf-source expression failed to match any pattern vg identifier? wgvar x#w$ yfl-1706b9545eb5b006-7b zfl-1706b9545eb5b006-7c {fl-1706b9545eb5b006-7d |yz{ }"xb| ~!}+1 B~4 ~4 glet #wC$ !!!! fl-1706b9545eb5b006-65 fl-1706b9545eb5b006-66 fl-1706b9545eb5b006-67 fl-1706b9545eb5b006-68  " !+1 4 B4 4 #wDE$ fl-1706b9545eb5b006-37 fl-1706b9545eb5b006-38 fl-1706b9545eb5b006-39 fl-1706b9545eb5b006-3a fl-1706b9545eb5b006-3b  "G !+1 B4 4 #wCDE$ !!!!!! fl-1706b9545eb5b006-15 fl-1706b9545eb5b006-16 fl-1706b9545eb5b006-17 fl-1706b9545eb5b006-18 fl-1706b9545eb5b006-19 fl-1706b9545eb5b006-1a  " !+1 4 B4 4 geach-any   gt-1706b9545eb5b006-92  gm-1706b9545eb5b006-93    fl-1706b9545eb5b006-96  " gc $ fl-1706b9545eb5b006-8e fl-1706b9545eb5b006-8f  "& fl-1706b9545eb5b006-8b  "-. !++ 4 gcond-expand-provide gcurrent-module gsrfi-2 C5hXt]4    54>"G456hC]C;g orig-form  gbody    C<APQhz]Crg orig-form  gexpr  grest   grest*   gbody      CUWYhC]C;g orig-form  gexpr     CZ]`ijhU]CMg orig-form  gexpr  gbody      Cmpq rh]6g orig-form  g bad-clause  grest   gbody   gfilenamefice-9/and-let-star.scm  @   @ #  @    Ctuvh]6}g orig-form  gvar  gbody   gfilenamefice-9/and-let-star.scm  ;    ChT]CLg orig-form  gvar  gbody      Cvh]6g orig-form  gvar  gexpr   gbody   gfilenamefice-9/and-let-star.scm  5    Ch f]C^g orig-form  gvar  gexpr   gbody      Cvhs]6kg orig-form  gvar  gfilenamefice-9/and-let-star.scm  0    ChB]C:g orig-form  gvar     Cvh]6}g orig-form  gvar  gexpr   gfilenamefice-9/and-let-star.scm  +    ChT]CLg orig-form  gvar  gexpr      Cvh]6g orig-form  gvar  grest   grest*   gbody   gfilenamefice-9/and-let-star.scm  &    Chy]Cqg orig-form  gvar  grest   grest*   gbody      Cvh]6g orig-form  gvar  gexpr   grest   grest*   gbody   gfilenamefice-9/and-let-star.scm     Ch(]Cg orig-form  'gvar  'gexpr   'grest   'grest*   'gbody   '  ' C h']Y45$@45"K45$@45"45"4 5$ @4 5"4 5"e4 5  $ @45 " 45  $ @6 $4 ?$ @""$4?$@""|$4?$@"R"N$4?$@" " $4?$@""$4?$@""gform  gtmp gtmp  " gtmp  1 sgtmp  H sgtmp  W Tgtmp  f 5gtmp  } 5gtmp  gtmp gtmp gtmp  gfilenamefice-9/and-let-star.scm     C5R4 h;]LC3gc  gbody     Ctuh(l] 45$ O@6dgform  'gtmp 'gfilenamefice-9/and-let-star.scm C   ' C5 Ri4i56lgm  (gfilenamefice-9/and-let-star.scm   N H  V H & X H   X C62.0/ccache/ice-9/runq.go000064400000014710151463412640010504 0ustar00GOOF----LE-8-2.0]44h9] gguile  gdefine-module*   gice-9 grunq  gfilenameS fice-9/runq.scm gimportsS gq      gexportsS g runq-control gmake-void-runq gmake-fair-runq gmake-exclusive-runq gmake-subordinate-runq-to gstrip-sequence gfair-strip-subtask  gset-current-module   gadd! gfor-each genq! g *unspecified* genqueue! !gpush! "gq-push! #gempty? $gq-empty? %glength &gq-length 'gkill! (gmake-q )gthrow *gnot-understood +gcatch ,gwarn -g runq-strip .g run-strip /g apply-to-args 0gdeq! 1g procedure? 2gsuspend 3gapplyC5h]4   54>"GhY]M6Qgt  gfilenamefice-9/runq.scm I * I 6  C hY]M6Qgt  gfilenamefice-9/runq.scm J * J 6  C!"hY]M6Qgt  gfilenamefice-9/runq.scm K * K 6  C#$%&'()*h,-13H$4O>"GC$4O>"GC$4O>"GC $ J6 $ J6 $ 45KC6$gq gmsg gargs  gfilenamefice-9/runq.scm G  H   I 1 I H ; H  < J V J H ` H  a K { K K H  L H  M H  N ( N O ' O   gnameg runq-controlCR+,-h(m-134L>"GCegign !gfilenamefice-9/runq.scm Q * Q 6  Q <  Q 6 ! Chr]O6jgthunk  gfilenamefice-9/runq.scm Q  Q    gnameg run-stripC.R/%hn-13$ CCfgmsg gargs gfilenamefice-9/runq.scm ]  ^   Ch f-13$6C^gopts gfilenamefice-9/runq.scm Z   [   \   Ch[]CSgfilenamefice-9/runq.scm Y    gnamegmake-void-runqCR$01.hl-13$M@4M5$C4M545$.45$4M>"G""V$O45$4M>"G"("4M>"G"LCdgctl g next-strip + gk  ? bgk  u gfilenamefice-9/runq.scm p  q   r   s  " s  % t ) + t  . v  8 u  9 v A ? v 8 G w : H w A i x  m u  n x 7 s x B u x 7 u x . } y 0 ~ y 7 z > z . { 2 { : { 2 gnamegselfC(h(]HOQ45KCgq  &gself  &gq   #gfilenamefice-9/runq.scm m  n   n   & gnamegmake-fair-runqCR$01."h-13$M@4M5$C4M545$.45$4M>"G""V$O45$4M>"G"("4M>"G"LC~gctl g next-strip + gk  ? bgk  u gfilenamefice-9/runq.scm       "  % ) +  .  8  9 A ? 8 G : H A i  m  n 7 s B u 7 u . } 0 ~ 7 > . 2 = 2 gnamegselfC(h(]HOQ45KCgq  &gself  &gq   #gfilenamefice-9/runq.scm      & gnamegmake-exclusive-runqCR#%hH]4L5$LC"# $C4L>"G"4L5"gn  :gfilenamefice-9/runq.scm               "  4 1 :  ;  ? ( A  G   G C2#hg-13$U$LC4L?L$"4L5$LL4LL>"G"C4L54L>"GC_gctl gkey  dganswer  * dganswer i gfilenamefice-9/runq.scm        ! 0 $ > * 0 / @ 3 6 9 V = b ? V @ Q D 2 I 8 J 8 N G U 8 e " i  l  p  u  gnamegselfCh0]OOQCg superior-runq  ,g basic-runq  ,g runq-task   ,gself   ,gfilenamefice-9/runq.scm          , gnamegmake-subordinate-runq-toCRh]]LLL6Ugfilenamefice-9/runq.scm  - "   ChT]LL6Lgfilenamefice-9/runq.scm   "   Ch0] (C45$ LOCLOCgst  .gthen  .gfilenamefice-9/runq.scm             . gnamegloopCh ]OQMN6gloop ga  gfilenamefice-9/runq.scm      %     Chs-13HOCkgstrips gfilenamefice-9/runq.scm   gnamegstrip-sequenceCR3h0-13454>"GCginitial-strips )gst  )gfilenamefice-9/runq.scm         ) gnamegfair-strip-subtaskCRCgm  ,gfilenamefice-9/runq.scm  0  G  Q  Y m Z ~     C62.0/ccache/ice-9/optargs.go000064400000046515151463412640011206 0ustar00GOOF----LE-8-2.05M]4h7] gguile  gdefine-module*   gice-9 goptargs  gfilenameS fice-9/optargs.scm gimportsS gsystem gbase gpmatch      gexportsS g let-optional g let-optional* g let-keywords g let-keywords* gdefine*-public g defmacro* gdefmacro*-public  g re-exportsS glambda* gdefine*  gset-current-module  ! "g $sc-dispatch #" $" %greverse &gany '&& ('& )&& *gsyntax-violation +* ,* -f-source expression failed to match any pattern .g identifier? /g syntax-object 0gtop 10 2gribcage 3gv 4grest 534 611 7fl-44375c4e67-1f0 8fl-44375c4e67-1f1 978 :2569 ;2 gvars ?ginits @<=>? A1111 Bfl-44375c4e67-1d4 Cfl-44375c4e67-1d5 Dfl-44375c4e67-1d6 Efl-44375c4e67-1d7 FBCDE G2@AF H= I1 Jfl-44375c4e67-1d3 KJ L2HIK M1:;G;L Nghygiene ON P/MO Qg vars&inits Rgmake-syntax-transformer SR TR Ugmacro Vg_ Wgeach-any X&W YWX Z&Y [VZ \glength ]gappend ^ggenerate-temporaries _&&&WW `glet agn bgn+1 cgt dgi eab>cd f11111 gfl-44375c4e67-210 hfl-44375c4e67-211 ifl-44375c4e67-212 jfl-44375c4e67-213 kfl-44375c4e67-214 lghijk m2efl n>? ofl-44375c4e67-20b pfl-44375c4e67-20c qop r2n6q sgrest-arg tgbinding ugb0 vgb1 wstuv xfl-44375c4e67-200 yfl-44375c4e67-201 zfl-44375c4e67-202 {fl-44375c4e67-203 |xyz{ }2wA| ~gx ~ fl-44375c4e67-1f5  2I 1;m;;r};  /`O gmap   glambda /O gapply /O gor /O gparse-lambda-case /O gquote /O / O /O   glist /O gerror /O fsth /O &&&W ab>d fl-44375c4e67-23a fl-44375c4e67-23b fl-44375c4e67-23c fl-44375c4e67-23d  2A fl-44375c4e67-235 fl-44375c4e67-236  2n6 fl-44375c4e67-22a fl-44375c4e67-22b fl-44375c4e67-22c fl-44375c4e67-22d  2wA fl-44375c4e67-21f  2I 1;;;;  /O /O /O /O /O / O /O   /O /O /O &Z V gaok stuv fl-44375c4e67-279 fl-44375c4e67-27a fl-44375c4e67-27b fl-44375c4e67-27c fl-44375c4e67-27d  2f fl-44375c4e67-245  2I 1; /`O gr /O /O gsymbol->keyword g syntax->datum giota &&&WWWW givars gkw gidx a>cd 1111111 fl-44375c4e67-264 fl-44375c4e67-265 fl-44375c4e67-266 fl-44375c4e67-267 fl-44375c4e67-268 fl-44375c4e67-269 fl-44375c4e67-26a  2 fl-44375c4e67-25f fl-44375c4e67-260  2n6 fl-44375c4e67-252 fl-44375c4e67-253 fl-44375c4e67-254 fl-44375c4e67-255 fl-44375c4e67-256  2f 1;;;;  /`O /O /O /O /O /O / O /O gcons /O /O /O fl-44375c4e67-2b4 fl-44375c4e67-2b5 fl-44375c4e67-2b6 fl-44375c4e67-2b7 fl-44375c4e67-2b8  2f fl-44375c4e67-286  2I 1; /`O /O /O  &&WWW  a>d  fl-44375c4e67-2a5  fl-44375c4e67-2a6  fl-44375c4e67-2a7 fl-44375c4e67-2a8 fl-44375c4e67-2a9     2 f fl-44375c4e67-2a0 fl-44375c4e67-2a1  2n6 fl-44375c4e67-293 fl-44375c4e67-294 fl-44375c4e67-295 fl-44375c4e67-296 fl-44375c4e67-297  2f 1;;;;  /O /O  /O !/O "/O #/ O $/O %/O &/O '/O ()X )V( *g define-public +gid ,gargs -+,uv .fl-44375c4e67-2c4 /fl-44375c4e67-2c5 0fl-44375c4e67-2c6 1fl-44375c4e67-2c7 2./01 32-A2 4fl-44375c4e67-2c1 54 62I5 713;6 8/*7O 9/7O :V&& ;gval <+; =fl-44375c4e67-2d2 >fl-44375c4e67-2d3 ?=> @2<6? A1@;6 B/*AO C&X D&C E&D FVE GVD Hg define-macro Ifl-44375c4e67-2f0 Jfl-44375c4e67-2f1 Kfl-44375c4e67-2f2 Lfl-44375c4e67-2f3 MIJKL N2-AM Ofl-44375c4e67-2d7 PO Q2IP R1N;Q S/HRO T/RO U/RO Vgstring? Wgdoc X+,Wuv Yfl-44375c4e67-2e4 Zfl-44375c4e67-2e5 [fl-44375c4e67-2e6 \fl-44375c4e67-2e7 ]fl-44375c4e67-2e8 ^YZ[\] _2Xf^ `1_;Q a/H`O b/`O cgbegin dgdummy ed+,uv fgm-44375c4e67-2fa gf0 hg1111 ifl-44375c4e67-2ff jfl-44375c4e67-300 kfl-44375c4e67-301 lfl-44375c4e67-302 mfl-44375c4e67-303 nijklm o2ehn pg qfl-44375c4e67-2fc rq s2pr t1o;s u/ctO v/tO wg export-syntax x/wtO yg uninitialized zg*uninitialized* {g make-list |gappend! }gkeyword? ~gassq-ref g list-set! g scm-error gkeyword-argument-error fUnrecognized keyword fInvalid keyword g list-copy funexpected specC5h/]4   5 4!>"G$%hU]4L54L5DMgfilenamefice-9/optargs.scm  Z  Z   Z    C(),-.hg]6_gv  grest  gfilenamefice-9/optargs.scm  ]    CPhw]LLL6ogv  grest  gfilenamefice-9/optargs.scm ^   ^ "  ^    C.hy]6qgv  ginit  grest   gfilenamefice-9/optargs.scm  [    Ch]LLL6gv  ginit  grest   gfilenamefice-9/optargs.scm \   \ "  \    C h]45$ O@45"@45" 6$4?$LO@""$4 ?$ LO@""gbindings  gvars  ginits   gtmp  gtmp  ( gtmp  7 ngfilenamefice-9/optargs.scm W   gnameglpCh] OQ6gbindings  glp gfilenamefice-9/optargs.scm V W   W %  W 1  W    gnameg vars&initsCQR4TU$[,-.h]6grest-arg  gbinding  gb0   gb1   gfilenamefice-9/optargs.scm  c ,   CQ\]^$_hZ]LCRgtmp-44375c4e67-21b  gtmp-44375c4e67-21a     ChXj]4O5LL   L  LCbgn  Ugn+1  Ugvars   Ugt   Ugi   U  U C,- hh ]$4> G4545454545$O@ 6grest-arg  fgbinding  fgb0   fgb1   fgvars  fginits  fgtmp  ; fgtmp  F fgfilenamefice-9/optargs.scm  d $  d   f   g " # g  $ h  - h , / h  0 i " ; f   f Ch@d] 45" 6$4?$@""\gx  9gtmp 9gfilenamefice-9/optargs.scm a   9 C5R4TU$[,-.h]6grest-arg  gbinding  gb0   gb1   gfilenamefice-9/optargs.scm  v ,   CQ\]$h:]LC2gtmp-44375c4e67-243    C hP[]LL4  O5L  LCSgn  Lgn+1  Lgvars   Lgi   L  L C,- h`]$4> G45454545$O@6grest-arg  _gbinding  _gb0   _gb1   _gvars  _ginits  _gtmp  4 _gtmp  ? _gfilenamefice-9/optargs.scm  w $  w   y   z " # z  $ {  - { , / {  4 y   _ Ch@d] 45" 6$4?$@""\gx  9gtmp 9gfilenamefice-9/optargs.scm t   9 C5R4TU$h(v]Cngrest-arg  #gaok  #gbinding   #gb0   #gb1   #  # C,-.h]6grest-arg  gaok  gbinding   gb0   gb1   gfilenamefice-9/optargs.scm  0   CQ\^$hZ]LCRgtmp-44375c4e67-273  gtmp-44375c4e67-272     Ch`]4O5LL   L4 5 L LCgn  _gvars  _givars   _gkw   _gidx   _gt   _gi   _  _ C,- hM]%4> G454544554455454 5$ O@  6Egrest-arg  ygaok  ygbinding   ygb0   ygb1   ygvars  yginits  ygtmp  L ygtmp  W y gfilenamefice-9/optargs.scm  $      % # * ( 4 # 5 $ 8 * @ $ A " L   y ChPv]45" 45$@6$4?$@""ngx  Pgtmp Pgtmp   1gfilenamefice-9/optargs.scm   P C5R4TU$h(v]Cngrest-arg  #gaok  #gbinding   #gb0   #gb1   #  # C,-.h]6grest-arg  gaok  gbinding   gb0   gb1   gfilenamefice-9/optargs.scm  0   CQ\$  !"#$%h:]LC2gtmp-44375c4e67-2b2    C&'hXk]LLL4 5 4 O5L  LCcgn  Vgvars  Vgkw   Vgidx   Vgi   V  V C,- hp;]%4> G454455445545$ O@  63grest-arg  kgaok  kgbinding   kgb0   kgb1   kgvars  kginits  kgtmp  > kgtmp  I k gfilenamefice-9/optargs.scm  $      # # ( - # . $ 1 * 9 $ >   k ChPv]45" 45$@6$4?$@""ngx  Pgtmp Pgtmp   1gfilenamefice-9/optargs.scm   P C5R4TU$)89h\]CTgid  gargs  gb0   gb1      C:,-.hh]6`gid  gval  gfilenamefice-9/optargs.scm      CBh;]C3gid  gval    C hPv]45$@45" 6$4?$@""ngx  Pgtmp Pgtmp  " Pgfilenamefice-9/optargs.scm   P C5R4TU$FGSTUh\]CTgid  gargs  gb0   gb1      C,-Vh]456gid  gargs  gdoc   gb0   gb1   gfilenamefice-9/optargs.scm   *  !  Cabhm]Cegid  gargs  gdoc   gb0   gb1      C hPv]45" 45$@6$4?$@""ngx  Pgtmp Pgtmp   1gfilenamefice-9/optargs.scm    P C5R4TU$Euvxh o]Cggdummy  gid  gargs   gb0   gb1      C,-h(] 45$@6gx  "gtmp "gfilenamefice-9/optargs.scm    " g macro-typeg syntax-rulesgpatternsgidgargsgb0gb1g...C5RyzR{z|}~hP ]$;$"$ $   $     $   ("m $G$"4 5$ 45"""(C""m $"Q(%4?"""~$8 $"[" $-("45$"C$CC"(6(C&4?""45$45$$4 5""$.4>"G"Z"  645$,$  $""""""(6(C&4?""45$45$$4 5""$.4>"G"Z"  645$,$  $""""$" 64 5"^  6  6  6  6  6  6  6 gspec  Lginits  Lgargs   Lgvx   Dgvy   Dgvx  <gvy  <gvx  1 4gvy  1 4gvx B ,gvy B ,gvx S $gvy S $gvx d gvy  d gargs  r gprev  r gtail  r gn  r g slots-tail  gslots  Pg slots-tail  Pg args-tail  Pgn  Pginits  Pgslots  T g slots-tail  T g args-tail  T ginits  T grest-idx  T gslots   g slots-tail   g args-tail   ginits   gt  F gslots   g slots-tail   g args-tail   ginits   gt  Q gargs   )gfilenamefice-9/optargs.scm     r "  u $ z #  % % ! %  &  & & &  & '  '  ' #  ,  , # , -  / .   0  .   2   2 %  2   2  3   3 %  3 )  3 0 . 3 3 5  4 5 9 6  < 6 % ? 6 5 B 6 < P 6 T 7  Z 8  _ ; b < f < k = $ { =  >  > 1  >  ?  8   B   B   B -  B 7  B -  B  C   D  8   H   I   K  N   N   O (  O /  O (  O   P &  P 7  P ;  P   Q   Q   Q   I   S  $ S  & S  * S - T  . T  2 S 3 U  : U # < U  F I  O W  X W ! ^ W  m X 0 | X   ]   ] 4  ^   ]   I   Y   Y   Y   I   Z   Z   Y  \ +  \  R +  R  _   `   b  e   e   f (  f /  f (  f   g   g +  g /  g   h  # h  % h  ) `  * n  / n  1 n  5 n 8 o  9 o  = n > p  E p # G p  Q `  Z r  c r ! i r  x s $  s   x   x 4  y   x   `   t   t   t   `   u   u   t  w   w  i  k #  k  l   l 3  m   l  z   z   {   |   |  |  $ | ( |  , | 0 |  4 | 8 |  < | @ |  D | H |  L |   L gnamegparse-lambda-caseCRC{gm  0gfilenamefice-9/optargs.scm  ; [ V      /    / C62.0/ccache/ice-9/hash-table.go000064400000007662151463412640011537 0ustar00GOOF----LE-8-2.0]c4h ] gguile  gdefine-module*   gice-9 g hash-table  gfilenameS fice-9/hash-table.scm gexportsS galist->hash-table galist->hashq-table galist->hashv-table galist->hashx-table    gset-current-module   gmake-syntax-transformer   gdefine-alist-converter gmacro g $sc-dispatch   gany  g syntax-object gdefine gtop !  "gribcage #gdummy $gname %g hash-set-proc &#$% 'gm-3144cc814ae864-1 ('  )(!! *fl-3144cc814ae864-6 +fl-3144cc814ae864-7 ,fl-3144cc814ae864-8 -*+, ."&)- /" 0gx 10 2( 3fl-3144cc814ae864-3 43 5"124 6!./5 7ghygiene 87 968 :galist ;:68 <; =f Convert ALIST into a hash table. >=68 ?glet @?68 Agtable BA68 Cgmake-hash-table DC68 ED FBE GF Hgfor-each IH68 Jglambda KJ68 Lgpair ML68 NM Ogcar PO68 QPM Rgcdr SR68 TSM UBQT Vgreverse WV68 XW; YX ZB [gsyntax-violation \[ ][ ^f-source expression failed to match any pattern _g hash-set! `g hashq-set! ag hashv-set! bg hashx-set!C5hxx]4   54>"G49<>@GIKNUYZ h0Z]   CRgdummy  *gname  *g hash-set-proc   *  * C]^h(] 45$@6gx  "gtmp "gfilenamefice-9/hash-table.scm    " g macro-typeg syntax-rulesgpatternsgnameg hash-set-procC5RCH_hY]L6Qgpair  gfilenamefice-9/hash-table.scm !    CVh0] 454O45>"GCgalist  *gtable  *gfilenamefice-9/hash-table.scm !   * gnamegalist->hash-tableg documentationf Convert ALIST into a hash table.C RCH`hY]L6Qgpair  gfilenamefice-9/hash-table.scm "    CVh0] 454O45>"GCgalist  *gtable  *gfilenamefice-9/hash-table.scm "   * gnamegalist->hashq-tableg documentationf Convert ALIST into a hash table.C RCHahY]L6Qgpair  gfilenamefice-9/hash-table.scm #    CVh0] 454O45>"GCgalist  *gtable  *gfilenamefice-9/hash-table.scm #   * gnamegalist->hashv-tableg documentationf Convert ALIST into a hash table.CRCHbhr]LLL6jgpair  gfilenamefice-9/hash-table.scm )  * -  * 8  *    CVh05] 454O45>"GC-ghash  .gassoc  .galist   .gtable   .gfilenamefice-9/hash-table.scm %  (   (  )   +  # )   . gnamegalist->hashx-tableg documentationfFConvert ALIST into a hash table with custom HASH and ASSOC procedures.CRCpgm  (gfilenamefice-9/hash-table.scm   [ !  " \ # p %   r C62.0/ccache/ice-9/boot-9.go000064400001001345151463412640010631 0ustar00GOOF----LE-8-2.0] 4h ] gcurrent-module gerror f're-loading ice-9/boot-9.scm not allowed fprompt ggensym gmake-prompt-tag gdefault-prompt-tag gcall-with-prompt gabort-to-prompt gwith-throw-handler gmemq gapply g make-fluid gquit gprimitive-exit ginteger? gformat gcurrent-error-port f guile: uncaught throw to ~a: ~a  g scm-error gwrong-type-arg fcatch f&Wrong type argument in position ~a: ~a gcatch fwith-throw-handler fthrow gthrow gmap gcar gcdr gfor-each gprimitive-load-path !f ice-9/r4rs "gnewline #gdisplay $f;;;  %gwrite &g last-pair 'gpeek (gpk )gwith-output-to-port *gcurrent-warning-port +f ;;; WARNING  ,gwarn -g *features* .gprovide /g provided? 0g make-struct 1gmake-struct/no-tail 2gabsolute-file-name? 3gand-map 4gor-map 5g simple-format 6g string-length 7gstring-any-c-code 8g procedure? 9g string-ref :g string-any ;gstring-every-c-code gsubstring-fill! ?gguile @? Ag module-name Bg hashq-set! Cg%get-pre-modules-obarray Dg module-add! Eg hashq-ref Fg make-variable Ggmodule-define! Hgmodule-variable Ifbadness! Jg module-ref Kgmodule-generate-unique-id! Lg module-gensym Mgresolve-module Ngsyntax-violation Og datum->syntax Pg syntax->datum Qg syntax-source Rg identifier? Sggenerate-temporaries Tgbound-identifier=? Ugfree-identifier=? Vg $sc-dispatch Wfice-9/psyntax-pp Xgmake-syntax-transformer Ygand Zgmacro [gany \[ ]g syntax-object ^gtop _^ `gribcage agdummy ba cg m-bde397a-a11 dc^ ed ff l-bde397a-a16 gf h`beg i` jgx kj lf l-bde397a-a13 ml n`kem o_hin pghygiene qp? r]oq s[[ t[[ u[t vgif wgy xajw yd__ zf l-bde397a-a1e {f l-bde397a-a1f |f l-bde397a-a20 }z{| ~`xy} _~in ]vq ]Yq ]q  f-source expression failed to match any pattern gor g m-bde397a-a24 ^  f l-bde397a-a29  `b f l-bde397a-a26  `k _i ]q glet __ f l-bde397a-a31 f l-bde397a-a32 f l-bde397a-a33  `x _i ]q gt ]q ]vq ]q g quasisyntax gfree-id glevel j __ f l-bde397a-a3f f l-bde397a-a40  ` gexpand  _ f l-bde397a-a3b  ` ge  _ f l-bde397a-a3a  ` _i ]q  [ g_ [ s gunsyntax ]q  [ geach-any  [ gunsyntax-splicing ]q   [ [  gappend gvector  g vector->list g list->vector [  gk gr  f l-bde397a-a8f f l-bde397a-a90  ` _i ]q  g m-bde397a-a96 ^  f l-bde397a-a97  ` _ii ]q  g... gr* grep  ___ f l-bde397a-a7b f l-bde397a-a7c f l-bde397a-a7d  `  f l-bde397a-a74 f l-bde397a-a75  ` _iii  ]q  geach  glist  [ g with-syntax g template* g replacements  f l-bde397a-acc f l-bde397a-acd  ` gtemplate  f l-bde397a-ac7  ` _i ]q gsyntax  ]q  fInvalid expression  gwhen  [  [  [  gtest gstmt gstmt* a g m-bde397a-ad5 ^ ___ f l-bde397a-ada f l-bde397a-adb f l-bde397a-adc f l-bde397a-add  `  f l-bde397a-ad7  `k  _i !]v q "gbegin #]" q $gunless %g m-bde397a-ae4 &%^ '&___ (f l-bde397a-ae9 )f l-bde397a-aea *f l-bde397a-aeb +f l-bde397a-aec ,()*+ -`', .& /f l-bde397a-ae6 0/ 1`k.0 2_-i1 3]v2q 4gnot 5]42q 6]"2q 7gcond 8  9gelse :g bad-clause ;: `;= ?gclause @? Af l-bde397a-b1f BA C`@B Dgclauses E?D Ff l-bde397a-b0e Gf l-bde397a-b0f HFG I`EH Jg reverse-map Kgfold LJK M__ Nf l-bde397a-af6 Of l-bde397a-af4 PNO Q`LMP Rg whole-expr SR Tf l-bde397a-af3 UT V`SU W_>CIQV X]9Wq YX ZY  [gtail \[ ]f l-bde397a-b2c ^] _`\^ `ge* a` bf l-bde397a-b27 cf l-bde397a-b28 dbc e`ad f_i_e>CIQV  g]"fq hfelse must be the last clause iY jfinvalid clause kg=> l]kWq ml n[m[ og t-bde397a-b36 po qg m-bde397a-b37 rq^ sr tf l-bde397a-b3b ut v`psu wf l-bde397a-b35 xw y`\x zgreceiver {z |f l-bde397a-b30 }f l-bde397a-b31 ~|} `{~ _iviiiy>CIQV  ]q ]q ]vq  m [ f$wrong number of receiver expressions [[m[ gcall-with-values g t-bde397a-b4c  g m-bde397a-b4d ^  f l-bde397a-b51  ` f l-bde397a-b4b  `\ g generator gguard z f l-bde397a-b44 f l-bde397a-b45 f l-bde397a-b46  ` _iiii>CIQV  ]q glambda ]q gvals ]q ]vq ] q  [ g t-bde397a-b60  g m-bde397a-b61 ^  f l-bde397a-b65  ` f l-bde397a-b5f  `\  f l-bde397a-b5c  ` _iiii>CIQV  ]q ]q ]vq g t-bde397a-b71  g m-bde397a-b72 ^  f l-bde397a-b76  ` f l-bde397a-b70  `\ ` f l-bde397a-b69 f l-bde397a-b6a f l-bde397a-b6b  ` _iiii>CIQV  ]vq ]"q g t-bde397a-b12  g m-bde397a-b13 ^  f l-bde397a-b17  ` _iIQV ]"q gcase   grest  f l-bde397a-bd6 f l-bde397a-bd7  ` f l-bde397a-bd0  `; gseen ? f l-bde397a-bcd f l-bde397a-bce  ` gkey  f l-bde397a-bbd  ` gexpr ?D f l-bde397a-bb5 f l-bde397a-bb6 f l-bde397a-bb7  ` greverse-map-with-seed gfold2 K ___ f l-bde397a-b81 f l-bde397a-b7f f l-bde397a-b7d  ` f l-bde397a-b7c  `S _iii  ]kq  [ _ ]q  f l-bde397a-c09  f l-bde397a-c0a     `a   _ iii   ]" q gmemv gsystem gbase gmessage  gwarning   gduplicate-case-datum gsource-properties garray? gbad-case-datum g t-bde397a-bf5  g m-bde397a-bf6 ^  f l-bde397a-bfa   !`  "f l-bde397a-bf4 #" $`\# % &f l-bde397a-be2 '& (`%' )gdatums *) +f l-bde397a-be0 ,+ -`*, .g clause-expr /. 0f l-bde397a-bdc 10 2`/1 3_i!iii$i(-i2iii 4]v3q 5]3q 6gquote 7]63q 8_i2iii  9]98q :9 ;g t-bde397a-bbf <; =g m-bde397a-bc0 >=^ ?> @f l-bde397a-bc4 A@ B`<?A C_iBiii  D]Cq Egdo F  G  HFG I[H Jgletrec Kgvar Lginit Mgstep Ngcommand OaKLMN Pg m-bde397a-c0f QP^ RQ______ Sf l-bde397a-c14 Tf l-bde397a-c15 Uf l-bde397a-c16 Vf l-bde397a-c17 Wf l-bde397a-c18 Xf l-bde397a-c19 Yf l-bde397a-c1a ZSTUVWXY [`ORZ \Q ]f l-bde397a-c11 ^] _`k\^ `_[i_ a]J`q bgloop c]b`q d]`q e]v`q f]"`q g]`q hegg i]E`q jfstep k]j`q lgatom mlj n[m[ o[m[[ pgwrong-number-of-args qfCdefine-values: wrong number of return values returned by expression rg%define-values-arity-error sg define-values t[ ua vgdefine wf l-bde397a-c3e xw y`bx z {f l-bde397a-c39 |{ }`z| ~g orig-form ~ f l-bde397a-c36  ` _iiiiy}i  ]vq ]q ]q g case-lambda ]q ]q  ]q ]rq     \[ geach+ [\ [ [[ [[ [ f l-bde397a-c7f  `b gvar0 gvarn  f l-bde397a-c76 f l-bde397a-c77 f l-bde397a-c78  ` _iiiii  ]"q ]vq ]q ]q ]q ]q ]q ]rq    ]q gv ]q ]q gset! ]q ]q  ]q  K f l-bde397a-c6a f l-bde397a-c6b  ` _i ]vq ]q ]q ]q  f l-bde397a-c5e  `b f l-bde397a-c55 f l-bde397a-c56 f l-bde397a-c57  ` _iiiii  ]"q ]vq ]q ]q ]q ]q ]q ]rq    ]q ]q ]q ]q ]q  ]q  f l-bde397a-c47 f l-bde397a-c48  ` _ii ]vq ]q ]q ]q ]q   ]q ]rq     gdelay g make-promise gexp a g m-bde397a-c87 ^ _ f l-bde397a-c8c f l-bde397a-c8d  `  f l-bde397a-c89  `k _i ]q ]q gcurrent-source-location  gs  f l-bde397a-c96    `   f l-bde397a-c91     `k  _i i  ]6q gcurrent-filename gcanonicalize-path gassq-ref gfilename g define-once [[[ gsym gval a g m-bde397a-c9e ^ __ f l-bde397a-ca3 f l-bde397a-ca4 f l-bde397a-ca5   ` ! "f l-bde397a-ca0 #" $`k!# %_ i$ &]v%q ']v%q (gmodule-locally-bound? )](%q *]%q +* ,]6%q -fmap .fCircular list: ~S /greverse! 0fNot a list: ~S 1fList of wrong length: ~S 2glength 3g map-in-order 4ffor-each 5fUnexpected tail: ~S 6gbinaryS 76  8gencodingS 98  :gguess-encodingS ;:  <79; =g open-file >frb ?fr @gopen-input-file A79 Bfwb Cfw Dgopen-output-file E6  F8  G:  HEFG Igclose-input-port Jgcall-with-input-file KEF Lgclose-output-port Mgcall-with-output-file Ngwith-input-from-port Ogwith-input-from-file Pgwith-output-to-file Qgwith-error-to-port Rgwith-error-to-file Sgset-exception-printer! Tgand=> Ug frame-source Vf Wf ~a:~a:~a:  XfERROR:  Yf!Throw to key `~a' with args `~s'. Zgframe-procedure [fIn procedure ~a:  \gprocedure-name ]fError while printing exception. ^g force-output _gprint-exception `fIn procedure ~a:  ag goops-error bghost-not-found cgkeyword-argument-error df~a: ~s eg misc-error fgno-data gg no-recovery hgnull-pointer-error ig out-of-range jg program-error kg read-error lgregular-expression-syntax mgsignal ngstack-overflow og system-error pg try-again qgunbound-variable rg syntax-error sfSyntax error:  tf unknown file ugline vg1+ wgcolumn xfunknown location:  yf~a:  zf~a {f in subform ~s of ~s |f in form ~s }ggetaddrinfo-error ~fIn procedure getaddrinfo: ~a g gai-strerror g define-macro t   t  gargs gbody Z f l-bde397a-e12 f l-bde397a-e13 f l-bde397a-e14  ` f l-bde397a-df9  `k _i ]q ]q ]q g transformer Z f l-bde397a-e1a f l-bde397a-e1b  ` _i ]q ]q [[[ gstring? g define-syntax gdoc Z f l-bde397a-e29 f l-bde397a-e2a f l-bde397a-e2b  ` _i ]q ]q ]wq  g macro-type ]q gdefmacro ]q  g defmacro-args ]q ]q   g syntax-case ]q ]q  ]q ]q ]Pq ]q     ]Oq ] q  gbody1 Z _____ f l-bde397a-e06 f l-bde397a-e07 f l-bde397a-e08 f l-bde397a-e09 f l-bde397a-e0a  ` _i ]q ]q [ Ҍ f l-bde397a-e49 f l-bde397a-e4a f l-bde397a-e4b  ` f l-bde397a-e30  `k _i ]q ]q ]q f l-bde397a-e3d f l-bde397a-e3e f l-bde397a-e3f f l-bde397a-e40 f l-bde397a-e41  ` _i ]q ]q gbegin-deprecated ginclude-deprecated-features gform gform*  f l-bde397a-e54 f l-bde397a-e55  ` f l-bde397a-e51  `k _i ]"q  gidentity gcompose gnegate gconst gcall-with-current-continuation gcall/cc gfalse-if-exception a g m-bde397a-e71 ^ _ f l-bde397a-e76 f l-bde397a-e77  `   f l-bde397a-e73     `k   _i   ] q ] q ] q ] q ] q   gwarningS l   [ [ garg a ___ f l-bde397a-e7b f l-bde397a-e7c f l-bde397a-e7d f l-bde397a-e7e   !`  "_!i  #]"q $]"q %]"q &]"q ']"q (&' )]"q *]"q +* ,]v"q -]4"q .g string-null? /]."q 0/* 1-0 2]"q 3]*"q 43 5f;;; ~a  6]5"q 7246* 8,17 9%+8 :g string-split ;]:"q gport ?]>"q @? A]_"q B]"q CA?B&' DC E] "q FE GB Hgmake-weak-key-hash-table Ig make-mutex Jgmake-procedure-with-setter Kg lock-mutex Lg unlock-mutex Mgmake-object-property Ngassoc Og symbol-pref Pgsymbol-property Qg symbol-pset! Rgset-symbol-property! Sgdelq! Tgsymbol-property-remove! Ugnumber? Vgarray-dimensions Wg array-shape Xgmember Yg kw-arg-ref Zgvtable-index-layout [g struct-layout \gget-print-state ]gport-with-print-state ^ginherit-print-state _g make-vtable `g string-append agstandard-vtable-fields bfprprpw cf# fgset-struct-vtable-name! gg record-type hgrecord-type-vtable ig record-type? jf#< kgrecord-type-descriptor lf  mf:  ngrecord-type-fields ogmake-struct-layout pfpw qg copy-tree rgvtable-offset-user sfmake-~a tfWrong number of arguments ugstring->symbol vgmake-record-type wgnot-a-record-type xgprimitive-eval ygrecord-constructor zgrecord-predicate {f%record-type-check |f!Wrong type record (want `~S'): ~S }g%record-type-error ~g list-index g no-such-field grecord-accessor grecord-modifier grecord? g not-a-record grecord g->bool gsymbol->string g symbol-append g list->string g list->symbol gstring gsymbol f ice-9/posix gsocket fice-9/networking gposix gstat g OPEN_READ g close-port g file-exists? g stat:type g directory f/. gfile-is-directory? glist-ref gsystem-error-errno f? g string-join f~A g make-list f~S gtm:sec gtm:min gtm:hour gtm:mday gtm:mon gtm:year gtm:wday gtm:yday gtm:isdst g tm:gmtoff gtm:zone g set-tm:sec g set-tm:min g set-tm:hour g set-tm:mday g set-tm:mon g set-tm:year g set-tm:wday g set-tm:yday g set-tm:isdst g set-tm:gmtoff g set-tm:zone g tms:clock g tms:utime g tms:stime g tms:cutime g tms:cstime gftell g file-position gSEEK_SET gseek gfile-set-position g dup->fdes gclose gprimitive-move->fdes gset-port-revealed! g move->fdes g port-revealed grelease-port-handle gfdopen g dup->port g dup->inport g dup->outport g port-mode gdup gduplicate-port g input-port? g fdes->ports g fdes->inport g output-port? g fdes->outport gfileno g port->fdes gputenv f= gsetenv gunsetenv gchar=? gfile-name-separator? f/ gfile-name-separator-string gstring-prefix? f g in-vicinity gprogram-arguments g command-line ggetenv fHOME g passwd:dir ggetpwuid ggetuid f.guile gprimitive-load gload-user-init f start-stack g%stacks g %start-stack g start-stack gtag a gm-bde397a-11e7 ^ __ fl-bde397a-11ec fl-bde397a-11ed fl-bde397a-11ee  `  fl-bde397a-11e9  `k _i ]q ]q g load-stack gload-from-path gadd-to-load-path g eval-when gelt a gm-bde397a-11f6 ^ _ fl-bde397a-11fb fl-bde397a-11fc    `     fl-bde397a-11f8    `k   _ i ]q ]q gload ]q geval ]q  ]q g %load-path ]q gcons ]q gdelete ]q  g%load-verbosely  gassert-load-verbosity !floading  "g%load-announce #g %load-hook $g read-eval? %gread-hash-extend &gread 'ginteraction-environment (f-#. read expansion found and read-eval? is #f. )g module-kind *fmodule +gnumber->string ,gobject-address -g %print-module .g"pwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpw /gmodule 0gobarray 1guses 2gbinder 3g eval-closure 4gname 5gkind 6gduplicates-handlers 7gimport-obarray 8g observers 9gweak-observers :gversion ;g submodules gnext-unique-id ?0123456789:;<=> @g module-type Agmodule-constructor Bgmodule? Cgmodule-obarray Dgset-module-obarray! Eg module-uses Fgset-module-uses! Gg module-binder Hgset-module-binder! Igmodule-eval-closure Jgset-module-eval-closure! Kgset-module-transformer! Lgset-module-name! Mgset-module-kind! Ngmodule-duplicates-handlers Ogset-module-duplicates-handlers! Pgmodule-import-obarray Qgmodule-observers Rgset-module-observers! Sgmodule-weak-observers Tgmodule-version Ugset-module-version! Vgmodule-submodules Wgset-module-submodules! Xgmodule-submodule-binder Ygset-module-submodule-binder! Zgmodule-public-interface [gset-module-public-interface! \gmodule-filename ]gset-module-filename! ^gmodule-next-unique-id _gset-module-next-unique-id! `fIllegal size to make-module. afIncorrect use list. bf-Lazy-binder expected to be a procedure or #f. cgmake-hash-table dg macroexpand eg make-module fgmodule-observe ggmodule-observe-weak hg hash-remove! igdelq1! jgmodule-unobserve kgmodule-defer-observers lg recursive mgmodule-defer-observers-mutex ngmodule-defer-observers-table og hash-set! pgmodule-call-observers qgmodule-modified rg hash-for-each sg hash-clear! tgcall-with-deferred-observers ug module-search vgmodule-local-variable wg module-bound? xghashq-get-handle yghash-get-handle zgmodule-obarray-get-handle {ghash-ref |gmodule-obarray-ref }gmodule-obarray-set! ~g hashq-remove! gmodule-obarray-remove! gmodule-symbol-locally-interned? gmodule-symbol-interned? fLocally unbound variable. gmodule-symbol-local-binding fUnbound variable. gmodule-symbol-binding g variable? gmake-undefined-variable gmodule-make-local-var! gmodule-ensure-local-variable! fBad variable to module-add! fBad symbol to module-add! gmodule-remove! g module-clear! gmodule-for-each ghash-map->list g module-map gmodule-ref-submodule gmodule-define-submodule! fnot in submodules table fdefining module f!: not overriding local definition gset-current-module gsave-module-excursion fNo variable named gin g module-set! gmodule-defined? g module-use! greverse gmodule-use-interfaces! g nested-ref ffailed to resolve module g nested-set! gnested-define! gnested-remove! gnested-ref-module fcan't redefine root module gnested-define-module! g local-ref g local-set! g local-define g local-remove glocal-ref-module glocal-define-module gthe-root-module g interface gthe-scm-module f/unexpected module to resolve during module boot gdefine-module* gprocess-use-modules gmodule-export! g$default-duplicate-binding-procedures f mg f- ghash gmost-positive-fixnum gmake-modules-in gbeautify-user-module! g>= g<= fInvalid sub-version reference gversion-matches? gmake-fresh-user-module gensureS    gtry-load-module f*incompatible module version already loaded gtry-module-autoload funknown file name for module g reload-module gpurify-module! gselectS   ghideS   gprefixS   grenamerS   gversionS    gsymbol-prefix-proc fno code for module gcustom-interface fno binding `~A' in module ~A f$no binding `~A' to hide in module ~A gresolve-interface gfilenameS   gpureS     g duplicatesS   gimportsS   gexportsS   g replacementsS   g re-exportsS   g autoloadsS   g transformerS     f#unexpected use-module specification funexpected tail of imports list f%expected list of integers for version f8expected exports to be a list of symbols or symbol pairs gmodule-replace! f=expected replacements to be a list of symbols or symbol pairs gmodule-re-export! f;expected re-exports to be a list of symbols or symbol pairs gmodule-autoload! glookup-duplicates-handlers f(expected transformer to be a module name gsymbol? grun-hook gmodule-defined-hook g make-hook fmissing interface for module fFailed to autoload ~a in ~a:  gautoload gmake-weak-value-hash-table gmake-autoload-interface f"invalid name+binding autoload list gautoloads-in-progress gautoload-done-or-in-progress? gautoload-in-progress! gset-autoloaded! gcurrent-reader ??    gautoloads-done  gdelete!  gautoload-done!  gdefine-option-interface [\ [ goptions genable gdisable g option-set! a gm-bde397a-1729 ^ _____ fl-bde397a-172e fl-bde397a-172f fl-bde397a-1730 fl-bde397a-1731 fl-bde397a-1732 fl-bde397a-1733  `   !fl-bde397a-172b "! #`k " $_i# %]"$q &]v$q ']$q (]$q )( *]v$q +glist? ,]+$q -,( .]$q /]$q 0goption 1]0$q 21 3] $q 4]4$q 5gvalue 6]5$q 7g documentation 8]7$q 9468 :]#$q ;:4 <]$q =glen >]=$q ?]6$q @]$q A@4 B?A C>B DC E] $q Fg< G]F$q H] $q IG>H J] $q K:J L] $q MG>L NEMK OEIKN P<DO Q:6 R:8 S]"$q TS U/9;PKQKRT  V3U1 W/2V X]$q YX Zgflags []Z$q \]$q ]gflag ^]]$q _^ `]$q a]S$q b[ cgdefine-syntax-rule d]c$q egopt f]e$q g]$q hfg i]$q j]$q k]$q l]$q mjkl n]$q o]6$q pof qnpg rq sgdebug-options-interface tg debug-options ug debug-enable vg debug-disable wg debug-set! xgm-bde397a-173a yx^ zae {gm-bde397a-173c |{^ }|yy ~fl-bde397a-1741 fl-bde397a-1742 fl-bde397a-1743 ~ `z} | fl-bde397a-173e  `k gshift yii# ]q ]q ]q ]q  _i ]tq ]q  ]q ]6q gread-options-interface g read-options g read-enable g read-disable g read-set! gm-bde397a-175d ^ gm-bde397a-175f ^  fl-bde397a-1764 fl-bde397a-1765 fl-bde397a-1766  `z  fl-bde397a-1761  `k ii# ]q ]q ]q ]q  _i ]q ]q  ]q ]6q gprint-options-interface g print-options g print-enable g print-disable g print-set! gm-bde397a-1780 ^ gm-bde397a-1782 ^  fl-bde397a-1787 fl-bde397a-1788 fl-bde397a-1789  `z  fl-bde397a-1784  `k ii# ]q ]q ]q ]q  _i ]q ]q  ]q ]6q g *unspecified* gid  gm-bde397a-17a3 ^  fl-bde397a-17aa  ` fl-bde397a-17a5  `k _i ]vq ]q   fl-bde397a-17ad  `k _i ]vq ]q  g unspecified? g gpwprpr g  gmake-parameter gfluid->parameter g parameter? fparameter-fluid fNot a parameter: ~S gparameter-fluid gparameter-converter g parameterize s    gp  fl-bde397a-17e2  ` gparam gbody* 5 ____ fl-bde397a-17d7 fl-bde397a-17d8 fl-bde397a-17d9 fl-bde397a-17da  ` fl-bde397a-17d4    `k   _ii   ] q  ]v q ]4 q ] q ] q ]6 q ] q  f parameterize ] q ] q ] q ] q  g with-fluids ] q g struct-ref ] q ]  q   ]  q !  "g%current-input-port-fluid #fexpected an input port $gcurrent-input-port %g%current-output-port-fluid &fexpected an output port 'gcurrent-output-port (g%current-error-port-fluid )g%current-warning-port-fluid *gscheme +gcurrent-language ,g *repl-stack* -g batch-mode? .gensure-batch-mode! /gexit 0gassq 1g gc-time-taken 2ggc-stats 3g gc-run-time 4g abort-hook 5gbefore-error-hook 6gafter-error-hook 7gbefore-backtrace-hook 8gafter-backtrace-hook 9gbefore-read-hook :gafter-read-hook ;gbefore-eval-hook gafter-print-hook ?g exit-hook @g fluid-ref Ag char-ready? Bgset-port-column! Cg repl-reader Dgiota Egwhile Fgbreak Ggcontinue Hgt-bde397a-1825 Igt-bde397a-1826 JHI Kgm-bde397a-1827 LK^ MLL Nfl-bde397a-182b Ofl-bde397a-182c PNO Q`JMP RE7 Sfl-bde397a-181f Tfl-bde397a-1820 Ufl-bde397a-1821 VSTU W`RV Xfl-bde397a-181c YX Z`kY [_iQWiZ \][q ]g break-tag ^]][q _][q `fbreak a]`[q b_a c^b dg continue-tag e]d[q ffcontinue g]f[q h_g ieh jci k][q l][q m][q n]j[q on p][q q][q r][q s][q tqrs u][q v] [q wv^rs xuw ytx z][q {] [q |{v^z }lz| ~u} q~ pny lo  glp ][q q ve u  qz ]N[q ]6[q ]G[q  ftoo many arguments ][q n  l u q pn lo  ]E[q ]4[q ][q  ][q   l  z ]v[q gnull? ][q z ][q gvalues ][q {z  l  gsymbol->keyword g substring gkeyword-like-symbol->keyword g define-module gt-bde397a-188a  gm-bde397a-188b ^  fl-bde397a-188e  ` gimp grex gaut  ______ fl-bde397a-1878 fl-bde397a-1879 fl-bde397a-187a fl-bde397a-187b fl-bde397a-187c fl-bde397a-187d  ` gparse g parse-iface g ->keyword g keyword-like?  ____ fl-bde397a-183a fl-bde397a-1838 fl-bde397a-1836 fl-bde397a-1834  ` fl-bde397a-1833  `k _ii ]q g quasiquote ]q gt-bde397a-1890  gm-bde397a-1891 ^  fl-bde397a-1894  ` _ii ]q ]6q gt-bde397a-1896  gm-bde397a-1897 ^  fl-bde397a-189a  ` _ii ]q ]6q gt-bde397a-189c  gm-bde397a-189d ^  fl-bde397a-18a0  ` _ii ]q ]6q gt-bde397a-18a2  gm-bde397a-18a3 ^  fl-bde397a-18a6  ` _ii ]q ]6q  g no-backtraceS l [  l   [  gt-bde397a-18de     gm-bde397a-18df  ^  fl-bde397a-18e2  `   fl-bde397a-18dc  ` _ii ]q ]q fkeyword arg without value l [  gt-bde397a-18ec   gm-bde397a-18ed ! ^ "! #fl-bde397a-18f0 $# %`"$ & 'fl-bde397a-18e8 (fl-bde397a-18e9 )'( *`&) +_i%*i ,]+q -]6+q .l /. 0gt-bde397a-18f8 10 2gm-bde397a-18f9 32^ 43 5fl-bde397a-18fc 65 7`146 8gd 98 :fl-bde397a-18f4 ;fl-bde397a-18f5 <:; =`9< >_i7=i ?]>q @]6>q Al BAt Cgt-bde397a-1904 DC Egm-bde397a-1905 FE^ GF Hfl-bde397a-1908 IH J`DGI Kgf LK Mfl-bde397a-1900 Nfl-bde397a-1901 OMN P`LO Q_iJPi R]Qq S]6Qq Tg use-moduleS UlT V [ WUV Xg use-syntaxS YlX ZYV [G[ \U[ ]gexportS ^l] _^ `g export-syntaxS al` ba cg re-exportS dlc ed fgre-export-syntaxS glf hg igreplaceS jli kj lgreplace-syntaxS mll nm ogautoloadS plo qpu rfunknown keyword or bad argument sl tst ugunquote vgrenamer wv xfl-bde397a-1867 yfl-bde397a-1868 zxy {`wz |gout }b| ~fl-bde397a-1846 fl-bde397a-1847 fl-bde397a-1848 ~ `} fl-bde397a-1845  ` _{ii ]uq gkeyword? fexpected keyword arg  gt-bde397a-1931  gm-bde397a-1932 ^  fl-bde397a-1935  ` gname* 4 fl-bde397a-192b fl-bde397a-192c fl-bde397a-192d  ` _ii ]q ]6q G g quoted-arg  fl-bde397a-19de fl-bde397a-19df  ` 4 fl-bde397a-19d5 fl-bde397a-19d6 fl-bde397a-19d7  ` _i ]q ]q ]q ]q  ]q gm ]q ]q ]6q ]q ]q   fno such module g use-modules gkw  fl-bde397a-1a31 fl-bde397a-1a32 fl-bde397a-1a33  ` fl-bde397a-1a0b fl-bde397a-1a0c fl-bde397a-1a0d  `} fl-bde397a-1a0a  ` gquotify g quotify-iface  fl-bde397a-19ff fl-bde397a-19fd fl-bde397a-19fb fl-bde397a-19f9  ` fl-bde397a-19f8  `k _ii ]6q  fl-bde397a-1a65  ` 4 fl-bde397a-1a5a fl-bde397a-1a5b fl-bde397a-1a5c fl-bde397a-1a5d  ` | fl-bde397a-1a39 fl-bde397a-1a3a fl-bde397a-1a3b  ` gspecs  fl-bde397a-1a38  ` _iiii  ]q ]6q 4 fl-bde397a-1a49 fl-bde397a-1a4a fl-bde397a-1a4b  ` _ii ]6q g quoted-args  fl-bde397a-1a73  ` gspec  fl-bde397a-1a6e   `  _i  ] q ] q ] q ] q     ] q ] q ] q   g use-syntax a gm-bde397a-1a78  ^  _ fl-bde397a-1a7d fl-bde397a-1a7e    `      fl-bde397a-1a7a   `k   _ i  ]" q ] q ] q ] q ] q     !gissue-deprecation-warning "] ! q #fE`use-syntax' is deprecated. Please contact guile-devel for more info. $] # q % " $ &   % '] q (glibrary )gsym? *gmake-custom-interface + ) * ,fl-bde397a-1b4a -fl-bde397a-1b48 . , - /` +M . 0g import-spec 1 0 2fl-bde397a-1b47 3 2 4` 1 3 5_ / 4 6] ( 5q 7 6 8gsrfi 9] 8 5q : 9 ; <[ ; =[ < > : = ? 7 > @ 7 = A 7  Bgonly C] B 5q D C E D  Fgexcept G] F 5q H G I H  Jgprefix K] J 5q L K M L[[ Ngrename O] N 5q P O Q[ R P Q Sgresolve-r6rs-interface T4 Ufl-bde397a-1c19 Vfl-bde397a-1c1a W U V X` T W Y_ X / 4 Z] ( Yq [4: \fl-bde397a-1c0b ]fl-bde397a-1c0c ^fl-bde397a-1c0d _ \ ] ^ `` [ _ a_ ` / 4 b] ( aq cf'duplicate binding for `~A' in module ~A dfl-bde397a-1b93 efl-bde397a-1b94 f d e g` T f h_ g / 4 i] ( hq jgcolon-n k j: lfl-bde397a-1b54 mfl-bde397a-1b55 nfl-bde397a-1b56 o l m n p` k o q_ p / 4 r] 8 qq sfsrfi- tgt-bde397a-1b68 u t vgm-bde397a-1b69 w v^ x w yfl-bde397a-1b6c z y {` u x z |gsrfi-n } | ~fl-bde397a-1b64  ~ ` }  fl-bde397a-1b5e fl-bde397a-1b5f fl-bde397a-1b60     ` k  _i {i   / 4 ] ( q ] 8 q gt-bde397a-1b74   gm-bde397a-1b75  ^   fl-bde397a-1b78   `    4 fl-bde397a-1b70 fl-bde397a-1b71    `   _i  i   / 4  ] ( q ] 8 q gexport gcompute-exports   fl-bde397a-1a86   `   gstx   fl-bde397a-1a85   `   _   ]  q     gimport ]  q                =    gfor gim   fl-bde397a-1b0b   `   gespec gispec 4:   fl-bde397a-1afe fl-bde397a-1aff fl-bde397a-1b00 fl-bde397a-1b01 fl-bde397a-1b02 fl-bde397a-1b03        `   _i i    ]  q      j fl-bde397a-1a96 fl-bde397a-1a97 fl-bde397a-1a98 fl-bde397a-1a99 fl-bde397a-1a9a       `   greplace? g re-export?    fl-bde397a-1a8e fl-bde397a-1a8c    ` M  gifaces   fl-bde397a-1a8a fl-bde397a-1a8b    `   _i      ] N q      [ t[  j fl-bde397a-1b1f fl-bde397a-1b20 fl-bde397a-1b21     `   gexports g re-exports    fl-bde397a-1b19 fl-bde397a-1b1a fl-bde397a-1b1b     `   _i ii      ]" q ] q ] q ] q ]  q ]  q g re-export ]  q gexport! ]  q g@@ ]  q 4   fl-bde397a-1ae2 fl-bde397a-1ae3 fl-bde397a-1ae4 fl-bde397a-1ae5 fl-bde397a-1ae6       `   _    ] ( q ]  q ]  q g import-set   fl-bde397a-1b32   `   g strip-for   fl-bde397a-1b2f   `   fl-bde397a-1b2e   `   _i    ]  q      glibrary-reference   fl-bde397a-1b42   `   fl-bde397a-1b3d !  "`  ! #_i  "   $] #q %] #q &] #q '] #q ( % & ' )] #q *giface +] * #q ,] S #q -]6 #q .]t #q /] #q 0] #q 1] #q 2 1 3] #q 4 3 + 5 0 2 4 6 / 5 7 . 6 8 7 9]v #q :] #q ; 9 : : < ; =gdefine-private >gfoo ?gbar @a > ? Agm-bde397a-1c1f B A^ C B__ Dfl-bde397a-1c24 Efl-bde397a-1c25 Ffl-bde397a-1c26 G D E F H` @ C G I B Jfl-bde397a-1c21 K J L`k I K M_ Hi L N]v Mq Og define-public P[ ጤ Qa4 Rgm-bde397a-1c2a S R^ T S___ Ufl-bde397a-1c2f Vfl-bde397a-1c30 Wfl-bde397a-1c31 Xfl-bde397a-1c32 Y U V W X Z` Q T Y [ S \fl-bde397a-1c2c ] \ ^`k [ ] __ Zi ^ `]" _q a]v _q b]  _q ca4 d S__ efl-bde397a-1c38 ffl-bde397a-1c39 gfl-bde397a-1c3a h e f g i` c d h j_ ii ^ k]" jq l]v jq m]  jq ngdefmacro-public ogm-bde397a-1c3f p o^ q p___ rfl-bde397a-1c44 sfl-bde397a-1c45 tfl-bde397a-1c46 ufl-bde397a-1c47 v r s t u w` Q q v x p yfl-bde397a-1c41 z y {`k x z |_ wi { }]" |q ~] |q g export-syntax ]  |q kT gformals a  gm-bde397a-1c4e  ^  __ fl-bde397a-1c53 fl-bde397a-1c54 fl-bde397a-1c55     `      fl-bde397a-1c50   `k   _ i  ] q gset-object-property! greplace gmodule-export-all! fre-exporting local variable: fUndefined variable: a4 gm-bde397a-1c95  ^  _ fl-bde397a-1c9a fl-bde397a-1c9b    `      fl-bde397a-1c97   `k   _ i  ] q ] q ] q ] q     ]t q ] q ] q ] q   ]6 q gm-bde397a-1ca0  ^  _ fl-bde397a-1ca5 fl-bde397a-1ca6    `      fl-bde397a-1ca2   `k   _ i  ] q ] q ] q ] q     ]t q ] q ] q ] q   ]6 q gm-bde397a-1cab  ^  _ fl-bde397a-1cb0 fl-bde397a-1cb1    `      fl-bde397a-1cad   `k   _ i  ] q ] q ] q ] q     ]t q ] q ] q ] q   ]6 q gm-bde397a-1cb6  ^  _ fl-bde397a-1cbb fl-bde397a-1cbc    `      fl-bde397a-1cb8   `k   _ i  ]  q gre-export-syntax gm-bde397a-1cc1  ^  _ fl-bde397a-1cc6 fl-bde397a-1cc7    `      fl-bde397a-1cc3   `k   _ i  ]  q gmake-mutable-parameter gduplicate-handlers gcheck f%~A: `~A' imported from both ~A and ~A f/WARNING: ~A: `~A' imported from both ~A and ~A  gobject-property gwarn-override-core f = ?` < > @gfile A @ Bfl-bde397a-1e0c C B D` A C Egsrc F E Gfl-bde397a-1e0a H G I` F H Jfl-bde397a-1e08 K J L`k K M_i 6 :ii ?i Di Iii L N] , Mq Oggetcwd Pgm-bde397a-1e1f Q P^ R Q Sfl-bde397a-1e20 T S U` R T V_i U :ii ?i Di Iii L W] O Vq X W Ygt-bde397a-1e28 Z Y [gm-bde397a-1e29 \ [^ ] \ ^fl-bde397a-1e2c _ ^ `` Z ] _ afl-bde397a-1e26 b a c` b d_i ` cii ?i Di Iii L e] dq f] dq g]  dq h] , dq igm-bde397a-1e2e j i^ k j lfl-bde397a-1e2f m l n` k m o_i n cii ?i Di Iii L p] O oq q p r f sgguile-2 tgr5rs ugsrfi-0 vgsrfi-4 wgsrfi-13 xgsrfi-14 ygsrfi-16 zgsrfi-23 {gsrfi-30 |gsrfi-39 }gsrfi-46 ~gsrfi-55 gsrfi-61 gsrfi-62 gsrfi-87 gsrfi-105 ? s t u v w x y z { | } ~     g%cond-expand-features g%cond-expand-table gcond-expand-provide g cond-expand g condition   fl-bde397a-1e49   `   gmatch gcondition-matches? gmodule-has-feature?     fl-bde397a-1e40 fl-bde397a-1e3e fl-bde397a-1e3c     `   fl-bde397a-1e3b   `k  _i    ]Y q     ] q     ]4 q    [   fl-bde397a-1e63 fl-bde397a-1e64 fl-bde397a-1e65     `   g alternate D  fl-bde397a-1e5f fl-bde397a-1e60    `   _ i    ]" q _   ]9 q       [    ? fl-bde397a-1e6d fl-bde397a-1e6e    `   _i    ]" q funfulfilled cond-expand g use-srfis grequire-extension fl-bde397a-1e7c   `k  _i  ] 8 q         fNot a recognized extension type gsrfi- fl-bde397a-1e87   ` }  gn   fl-bde397a-1e82   `   _i  i  ] q ] 8 q gdefine-inlinable f%  g -procedure g proc-name   fl-bde397a-1eaf fl-bde397a-1eb0    `   4  fl-bde397a-1ea6 fl-bde397a-1ea7 fl-bde397a-1ea8     `   gmake-procedure-name   J fl-bde397a-1e9a fl-bde397a-1e98    ` M  fl-bde397a-1e97   `k  _iiii      ]" q ]v q gsyntax-parameterize ]  q gidentifier-syntax ]  q gdefine-syntax-parameter ]  q ] q ]j q   ] q ] q ] q ga ]  q ] q     ]N q ]6 q ]t q    ]R q    gusing-readline? gice-9 g deprecated     8 v  fice-9/boot-9.scm gsyntax-local-binding g syntax-module g syntax-locally-bound-identifiers gsyntax-session-id      @ @ g guile-user    ! #  "  @ @C5hP3%]4i5$4i>"G"h -.,3#6{gstem gfilenamefice-9/boot-9.scm 7   7   8   gnamegmake-prompt-tagCR4i5hC]LC;gfilenamefice-9/boot-9.scm =    CORhD]L6<gfilenamefice-9/boot-9.scm  A    Ch(] U4O>XCXFG@gtag  %gthunk  %ghandler   %gargs   %gfilenamefice-9/boot-9.scm @ A   % gnamegcall-with-promptCRh-13WFgtag gargs gfilenamefice-9/boot-9.scm B  C   gnamegabort-to-promptC R RHH   h-13L&"L$aM[MLY4L5$"4L>"GL$4L>"4L>ZCZFL@gthrown-k gargs grunning  ! gfilenamefice-9/boot-9.scm c   d  d   d '  d  ! e * f 9 - g  9 g  > h  Y j  Z k  n l  m  Ch] M[LOCg prompt-tag  gcatch-k  gpre   gprev   gfilenamefice-9/boot-9.scm a   b    gnamegcustom-throw-handlerCOQ4 i5K4 ihh-13&0$$45$" $ " " 6445>"G 6 gk agargs agfilenamefice-9/boot-9.scm K  M  L   O   N   P  P " " P  & N  ) P . 0 Q  4 N  A N  B T  E T  K T # T T  a U  a gnamegdefault-exception-handlerC5K h0-13L&"L$ L@L@gthrown-k 0gargs 0gfilenamefice-9/boot-9.scm \   ]  ]   ] '  ]  ( ^ 0 _  0 Chg-.,3#$"$"!4 >"G45U>M$4L5"M[OY4> Z"XCXFG@_gk gthunk ghandler  gpre-unwind-handler  gtag  U gprev  x gcont  gk  gargs   gfilenamefice-9/boot-9.scm p        % # ) .  2  4 ) 6  <  A $ F  O  S & U  U ^ f  g  x [     gnamegcatchg documentationfoInvoke @var{thunk} in the dynamic context of @var{handler} for exceptions matching @var{key}. If thunk throws to the symbol @var{key}, then @var{handler} is invoked this way: @lisp (handler key args ...) @end lisp @var{key} is a symbol or @code{#t}. @var{thunk} takes no arguments. If @var{thunk} returns normally, that is the return value of @code{catch}. Handler is invoked outside the scope of its own @code{catch}. If @var{handler} again throws to the same key, a new handler from further up the call chain is invoked. If the key is @code{#t}, then a throw to @emph{any} symbol will match this call to @code{catch}. If a @var{pre-unwind-handler} is given and @var{thunk} throws an exception that matches @var{key}, Guile calls the @var{pre-unwind-handler} before unwinding the dynamic state and invoking the main @var{handler}. @var{pre-unwind-handler} should be a procedure with the same signature as @var{handler}, that is @code{(lambda (key . args))}. It is typically used to save the stack at the point where the exception occurred, but can also query other parts of the dynamic state at that point, such as fluid values. A @var{pre-unwind-handler} can exit either normally or non-locally. If it exits normally, Guile unwinds the stack and dynamic context and then calls the normal (third argument) handler. If it exits non-locally, that exit determines the continuation.COihX]$"$"!4 >"GM4L5Y4>ZCZFgk  Ugthunk  Ugpre-unwind-handler   Ugfilenamefice-9/boot-9.scm       #      ! ) #  )  . $ 3  >  J   U gnamegwith-throw-handlerg documentationfeAdd @var{handler} to the dynamic context as a throw handler for key @var{k}, then invoke @var{thunk}.CO ih0-13$ M[@M[ 6gkey /gargs /gfilenamefice-9/boot-9.scm       . > "  ( 8 - E /  / gnamegthrowg documentationfInvoke the catch form matching @var{key}, passing @var{args} to the @var{handler}. @var{key} is a symbol. It will match catches of the same symbol or of @code{#t}. If there is no handler at all, Guile prints an error and then exits.COih ](C4L54L5Cgl  gfilenamefice-9/boot-9.scm            #       gnamegmap1Ch(](C4L54L5Cgl1  "gl2  "gfilenamefice-9/boot-9.scm                 !   " gnamegmap2Ch0](C4L45?4L455Cgl1  .grest  .gfilenamefice-9/boot-9.scm        #     !  "  ,  -   . gnameglpChhE)3OQ6)3OQ6-13OQ6=gf gl gmap1   gf ( @gl1 ( @gl2  ( @gmap2  1 @gf I agl1 I agrest  I aglp  R a gfilenamefice-9/boot-9.scm    (  1  I  R    ( @  I a  gnamegmapCR h)43"%$4>"G"C")@3"-$$4>"G"C"-13";$2445>"G45"C"wgf :gl :gl  2gf C gl1 C gl2  C gl1  G tgl2  G tgf gl1 grest  gl1  grest   gfilenamefice-9/boot-9.scm          *  0 2  C  G  J N  O T  W  \ g  j ! r t         # :  C   gnamegfor-eachCR4 i!>"G"#$%&hX-134>"G4>"G4>"G4>"G45Cgstuff Vgfilenamefice-9/boot-9.scm        #   ,   >   N   U   V gnamegpeekC'R'i(R)*"#+&hP]4>"G4>"G4L>"G4>"G4L5Cgfilenamefice-9/boot-9.scm               %   7   G  N    O Ch |-1345O6tgstuff gfilenamefice-9/boot-9.scm        gnamegwarnC,R -h ]45$C Cgsym  gfilenamefice-9/boot-9.scm               gnamegprovideC.R -h]45$CCygfeature  gfilenamefice-9/boot-9.scm          gnameg provided?C/R0h-13 @gvtable gargs gfilenamefice-9/boot-9.scm &  '   gnamegmake-struct/no-tailC1Rh{]Csg file-name  gfilenamefice-9/boot-9.scm .    gnamegabsolute-file-name?C2RhP]":$2("$("C45"C"gf  Kglst  Kgresult   @gl   @gfilenamefice-9/boot-9.scm =  >  @   A  A # A , C  1 C  3 C  6 C  > C @ >   K gnamegand-mapC3Rh8]"$$C(C45""gf  5glst  5gresult   *gl   *gfilenamefice-9/boot-9.scm J  K  M   N   O   O   O  " O  * O * K   5 gnamegor-mapC4R5iR6789h^-.,3# # 45" 645$F$945$'45$C456"""Vg char_pred gs gstart  gend  gt  d }gfilenamefice-9/boot-9.scm Z   Z 2 4 `  4 [  5 [ ? [  D \ H [  K ]  R ] V [  W ^ b ^ 1 d ^ d ^  r _  y _ % { _  } _   gnameg string-anyC:R6;89hQ-.,3# # 45" 645$A$445$"45$456C"""Ig char_pred gs gstart  gend  gfilenamefice-9/boot-9.scm e   e 2 4 k  4 f  5 f ? f  D g H f  K h  R h V f  W i b i 4 d i h i  k j  r j & t j  v j   gnameg string-everyCR@ht]Clgx  gfilenamefice-9/boot-9.scm v  w    gnameg module-nameCARBCh]456gmodule  gsym  gvar   gfilenamefice-9/boot-9.scm x  y   y    gnameg module-add!CDRECDFh0] 4455$C45456gmodule  /gsym  /gval   /gv   /gfilenamefice-9/boot-9.scm z  {  {   {  {   |   }  ~  ' ~ * / ~   / gnamegmodule-define!CGRHI(h0] 45$C45456gmodule  +gsym  +gv  +gfilenamefice-9/boot-9.scm             "   - #  9 +    + gnameg module-refCJR Hh}] MNCugm  gi  gfilenamefice-9/boot-9.scm            COKRiLRhs-13Ckgargs gfilenamefice-9/boot-9.scm   gnamegresolve-moduleCMRNRORPRQRRRSRTRURVR4 iW>"G4XiYZV\rh-]C%gdummy     Csh<]C4gdummy  gx     CuhK]CCgdummy  gx  gy      CN hP]45$@45$@45$@ 6gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefice-9/boot-9.scm    P g macro-typeg syntax-rulesgpatternsgxgxgyC5YR4XiZV\h-]C%gdummy     Csh<]C4gdummy  gx     Cuh K]CCgdummy  gx  gy     CN hP]45$@45$@45$@ 6gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefice-9/boot-9.scm    P g macro-typeg syntax-rulesgpatternsgxgxgyC5R4XiZVVhK]CCgk  ge*  greps      CNh8]L4LL545$@6ge  3gtmp  3gtmp   3gfilenamefice-9/quasisyntax.scm  U " U 5  U "  T   3 CtVh^]45CVgh*  grep1  gt*   grep2      CNh@]4LL54LL545$@6gh  9gt  9gtmp   9gtmp  " 9gfilenamefice-9/quasisyntax.scm  p ( q (  p   9 CVh<]45C4ge*  greps     CNh8]4L4455L545$@6ge  7gtmp  7gtmp  7gfilenamefice-9/quasisyntax.scm  v   v  v   u   7 CRUh8] L $)45$45$C6CCgk  5gr  5gt   1gfilenamefice-9/quasisyntax.scm  i  i j   i  k   k  1 l   5 CVsh<]LC4gr*  greps    CNh8]4LL545$ O@6gk  3gr  3gtmp  3gtmp   3gfilenamefice-9/quasisyntax.scm  m " m 5 m " m   3 Chh]L C`ge  gr  gfilenamefice-9/quasisyntax.scm  b    CSVh7]C/gtmp-bde397a-a8c     CVh()]44?L544L5L5C!gt  &  & CNh8]4545$LO@6gr*  6grep  6gt   6gtmp  6gtmp   6gfilenamefice-9/quasisyntax.scm e   6 CNh@]4L 54545$ O@6ge  ;gr  ;gtmp   ;gtmp   ;gfilenamefice-9/quasisyntax.scm  c ' d '  c   ; Chh]L C`ge  gr  gfilenamefice-9/quasisyntax.scm  \    CSVh(J]4544L55CBgr*  !grep  !gt   !  ! CNh@]4L 54545$ O@6ge  ;gr  ;gtmp   ;gtmp   ;gfilenamefice-9/quasisyntax.scm  ] ' ^ '  ]   ; ChY]L CQge  gfilenamefice-9/quasisyntax.scm  X    CSV\h)]LC!gt     CNh0]4545$ O@6ge  0gtmp 0gtmp   0gfilenamefice-9/quasisyntax.scm  Y   Y 2 Y  Y   0 ChH]:45$LO@45"45"45"|45"B45$ LO@4 5$  LO@ C$!4 O?$  LO@""$4O?$ LO@"_"[$4O?$ LO@"'"#$4O?$@""gx  Aglevel  Agtmp  Agtmp  + Agtmp  : gtmp  I gtmp  X gtmp  g gtmp   gfilenamefice-9/quasisyntax.scm Q   A gnamegexpandCVVs hK]CCg template*  g replacements     CNh0]4L 545$@6gtemplate  ,gtmp ,gtmp   ,gfilenamefice-9/quasisyntax.scm  } / }   , CNh8|]OQ45$ O@6tge  4gexpand 4gtmp   4gfilenamefice-9/quasisyntax.scm C   4 C5R4XiZN ht]6lge  gfilenamefice-9/quasisyntax.scm       C5R4XiZN ht]6lge  gfilenamefice-9/quasisyntax.scm       C5R4Xi ZV!#hd]C\gdummy  gtest  gstmt   gstmt*      CNh(] 45$@6gx  "gtmp "gfilenamefice-9/boot-9.scm    " g macro-typeg syntax-rulesgpatternsgtestgstmtgstmt*g...C5 R4Xi$ZV356hd]C\gdummy  gtest  gstmt   gstmt*      CNh(] 45$@6gx  "gtmp "gfilenamefice-9/boot-9.scm    " g macro-typeg syntax-rulesgpatternsgtestgstmtgstmt*g...C5$R4Xi7Zh0]"(C45""gf  0gseed  0gxs   0gxs   $gseed   $gfilenamefice-9/boot-9.scm                    $  $    0 gnamegfoldChx]4L5Cpgx  gseed  gfilenamefice-9/boot-9.scm    #    Ch]LO6gf  gxs  gfilenamefice-9/boot-9.scm         gnameg reverse-mapCV8h|]6tgclause-builder  gtail  gfilenamefice-9/boot-9.scm        CVZgN7hh {]( LLCLL6sgtail  gfilenamefice-9/boot-9.scm        +   ,    Ch9]LLOC1ge  ge*     CiN7jhW]LL6Ogfilenamefice-9/boot-9.scm   +   <      CnVh(5]LLC-g t-bde397a-b36  #  # CNh0g] 45$ LLO@6_gtail  )gtmp )gfilenamefice-9/boot-9.scm    ) ChB]OC:gtest  greceiver    CN7h]LL6xgtest  greceiver  gfilenamefice-9/boot-9.scm   +   &      CVh85]LLLC-g t-bde397a-b4c  1  1 CNh0g] 45$LLLO@6_gtail  +gtmp +gfilenamefice-9/boot-9.scm    + ChZ]OCRg generator  gguard  greceiver      CN7h]LL6g generator  gguard  greceiver   gfilenamefice-9/boot-9.scm   +   &      C\Vh 5]LC-g t-bde397a-b60    CNh(g] 45$ LO@6_gtail  'gtmp 'gfilenamefice-9/boot-9.scm    ' Ch,]OC$gtest    C Vh5]LLLC-g t-bde397a-b71     CNh0g] 45$LLLO@6_gtail  +gtmp +gfilenamefice-9/boot-9.scm    + ChK]OCCgtest  ge  ge*      CN7jh ]A45$ LO@45$ LO@45$@45$  LO@4 5$ @4 5$  LO@45$@45$@L6gclause  gtmp gtmp  ) gtmp  G gtmp  ^ gtmp  | gtmp  gtmp  gtmp   gfilenamefice-9/boot-9.scm    +  <    CVh5]C-g t-bde397a-b12     CNh@]4L4LLO5545$@6gclause  =gclauses  =gtmp   =gtmp  & =gfilenamefice-9/boot-9.scm             = CNh@]OQ45$O@6g whole-expr  <gfold  <g reverse-map   <gtmp   <gfilenamefice-9/boot-9.scm    < C57R4XiZh0]"(C45""gf  0gseed  0gxs   0gxs   $gseed   $gfilenamefice-9/boot-9.scm                    $  $    0 gnamegfoldCh8](D4L> G"gxs  6ga  6gb   6ga   6gb   6gfilenamefice-9/boot-9.scm                  !  (   6    6 gnamegloopCh ] OQ6gf  ga  gb   gxs   gloop  gfilenamefice-9/boot-9.scm       gnamegfold2Ch ]4L> GDgx  gys  gseed   gy   gseed   gfilenamefice-9/boot-9.scm                Ch]LO6gf  gseed  gxs   gfilenamefice-9/boot-9.scm         gnamegreverse-map-with-seedCVh|]6tgclause-builder  gtail  gfilenamefice-9/boot-9.scm        CVtVh0]C(greceiver    CNhn]LL6fgreceiver  gfilenamefice-9/boot-9.scm   (   !      C  h9]C1ge  ge*    CNjP h]45$>444544L5554L54L5>"G"$"45$>444544L5554L54L5>"G"Cgdatum  gseen  gfilenamefice-9/boot-9.scm  $  & ,  & &   (   )  ' 4   )   1  ! 1 " " 2 * ! 1 ,  ) / $ ) 6 % ) A  ( P ( 0 T ( , U ( 0 Z ( > d ( & e  ( g  ) i ) 4 j  ) m  1 t ! 1 w " 2  ! 1  ) $ ) % )  ( * &"  CPV457h 5]LLC-g t-bde397a-bf5     CNh0g] 45$ LLO@6_gtail  )gtmp )gfilenamefice-9/boot-9.scm - &  ) Ch0] 4LLLLOL455LODgdatums  ,gseen  ,gfilenamefice-9/boot-9.scm   #  , $   #    , -   , C:Nhh {](LCLL6sgtail  gfilenamefice-9/boot-9.scm 2 )  3 +   (  6 0      ChE]LLLOLD=gfilenamefice-9/boot-9.scm  2 !   Ch]45$ 4?"R45$4LLO?",45$ 4?" 4  LL54 5$ LLLLO@4 5$LLLO@  LL6gtest  grest  gtmp  sgtmp  ' pgtmp  J mgtmp  s gtmp  ~ gtmp  gfilenamefice-9/boot-9.scm ^   b  ( d  9 j   s    (  9    CNjh0] 45$LLO@L6gclause  0gseen  0gtmp  0gfilenamefice-9/boot-9.scm   (  ( *  9 0    0 CVDh5]LC-g t-bde397a-bbf     CNhH]4L4LLLO5545$ O@6gexpr  Egclause  Egclauses   Egtmp   Egtmp  ) Egfilenamefice-9/boot-9.scm       :            E CN h@]!OQ45$O@6g whole-expr  @gfold  @gfold2   @greverse-map-with-seed   @gtmp  @gfilenamefice-9/boot-9.scm    @ C5R4XiEZVIacdefhikhT]CLgtmp-bde397a-c25  gtmp-bde397a-c24     C hH]44 55Cgdummy  Fgvar  Fginit   Fgstep   Fgtest   Fgexpr   Fgcommand   F  F Cnh<]C4gdummy  gx     CohK]CCgdummy  gx  gy      CN hP3]45$@45$@45$@ 6+gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefice-9/boot-9.scm =   P g macro-typeg syntax-rulesgpatternsgvarginitgstepg...g...gtestgexprg...gcommandg...fstepgxfstepgxgyC5ERpqh]6gfilenamefice-9/boot-9.scm U  V X Y V   gnameg%define-values-arity-errorCrR4XisZVtSuV\h-]LC%gdummy     CNh0]4545$ O@6gexpr  0gtmp 0gtmp   0gfilenamefice-9/boot-9.scm  a   a 4 a  a   0 CN3Rh|]456tgvar0  gvarn  gexpr   gfilenamefice-9/boot-9.scm      CSuV\h07]LLLC/gtmp-bde397a-c85  .  . Chx-]L4LL54LL544  OL5L   5C%gdummy  w  w CNh8]4545$O@6gvar0  4gvarn  4gexpr   4gtmp  4gtmp   4gfilenamefice-9/boot-9.scm      4      4 CRhi]6agvar  gexpr  gfilenamefice-9/boot-9.scm      Ch=]C5gvar  gexpr     C3Rh|]456tgvar0  gvarn  gexpr   gfilenamefice-9/boot-9.scm  o    CSuV\h07]LLLC/gtmp-bde397a-c64  .  . Ch-]L4LL54LL544  OL5L   5C%gdummy  z  z CNh8]4545$O@6gvar0  4gvarn  4gexpr   4gtmp  4gtmp   4gfilenamefice-9/boot-9.scm  q   q 4 q  q   4 CRhi]6agvar  gexpr  gfilenamefice-9/boot-9.scm  h    Ch=]C5gvar  gexpr     Ch])45$@45"45"e45"745"  6$4 ?$ @""$4 ?$ @""$4?$@""|$4?$@"R"Ng orig-form  gtmp gtmp  " gtmp  1 gtmp  @ gtmp  O }gfilenamefice-9/boot-9.scm ]   C5sR4XiZVsh>]C6gdummy  gexp     CNh(] 45$@6gx  "gtmp "gfilenamefice-9/boot-9.scm    " g macro-typeg syntax-rulesgpatternsgexpC5R4XiZVOQh r]4L4L55Cjgtmp  gfilenamefice-9/boot-9.scm      )         CNh(d] 45$ O@6\gx  'gtmp 'gfilenamefice-9/boot-9.scm    ' C5R4XiZQhq]44L556igfilenamefice-9/boot-9.scm        "   4         ChY-13CQgargs gfilenamefice-9/boot-9.scm   Ch ]O6gx  gfilenamefice-9/boot-9.scm        g documentationfA macro that expands to the current filename: the filename that the (current-filename) form appears in. Expands to #f if this information is unavailable.C5R4XiZV&')+,h(O]CGgdummy  !gsym  !gval   !  ! CNh(] 45$@6gx  "gtmp "gfilenamefice-9/boot-9.scm    " g macro-typeg syntax-rulesgpatternsgsymgvalC5R-./012 hh)3"|$Y$6&645"45"(66"r)3 "$$$[&6&645"45"h$"6()(6$"66"-1345"C("A45$ "4>"G"""6(64  544  5?""gf gl ghare  gtortoise  gmove?  gout  gf gl1 gl2  gh1  gh2  gt1  gt2  gmove?  gout  gf  cgl1  cgrest   cglen   grest   gl1   Tgrest   Tgout   Tgfilenamefice-9/boot-9.scm            "   &   (  . *  4 /   2   5   8  $ :   ?  A   D   P   S   W   \   ^   a   m   s  y   }     *  0        6                &  ,        &  ,         #  ,       #               #   (   +  # -   0   @  D   F  & I   M   O   U   Z   ]  c   i  o  s   u  $ x   |   ~                $              @                                              ,   2   "             $   *  -   .   7   <  =  ) G   J   T  T   Y  ) c       c  gnamegmapCRi3R4.0521  h])3"$j4>"G$I& 4>"G"4>"G"C(C6"k)"3""T((""$"$C$66$$$a&6&64>"G"34>"G""""-1345"C("A45$ "4>"G""";$24 4  5>"G4  5"C"Ugf gl ghare  gtortoise  ghare  * ~gf gl1 gl2  gh1  gh2  gt1  gt2  gmove?  gf  ygl1  ygrest   yglen   .grest   #gl1  2 mgrest  2 mgfilenamefice-9/boot-9.scm                 *   *  /   3   ;   <   @  " B  2 D  = I  " O   \   a   f   q  t  + |       *  5           ( ) )  )  *  * *    -   .  . $ . / /  . 1  1 $ 1 /  2   1                 '   )  & +  1 0   3  ;  ? "  A " & C " 1 H #  K " L % Q %  T %  Y % d &  g &  j & ( m & 1 | & }                         5   5   6   7  8   8   8   8   8  9   9   :   :   : ,  : 7  ; "  ;   :  # 6  2 =  5 > 9 >  : @ A @  B @  O @ Z A  [ A ! k A m = w     y  gnamegfor-eachCR<=>?8:hP-/03###$"6gfile  Jgbinary  Jgencoding   Jgguess-encoding   Jgfilenamefice-9/boot-9.scm J 8 O  : O  @ O " J O   J gbinaryS gencodingS gguess-encodingS gnamegopen-input-fileg documentationfTakes a string naming an existing file and returns an input port capable of delivering characters from the file. If the file cannot be opened, an error is signalled.C@RA=BC8h@-/03##$"6gfile  =gbinary  =gencoding   =gfilenamefice-9/boot-9.scm S / X  1 X  7 X " = X   = gbinaryS gencodingS gnamegopen-output-fileg documentationfTakes a string naming an output file to be created and returns an output port capable of writing characters to a new file by that name. If the file cannot be opened, an error is signalled. If a file with the given name already exists, the effect is unspecified.CDRH@68:Ihp-/03###454> G4>"GEgfile  igproc  igbinary   igencoding   igguess-encoding   igp  A igvals  N igfilenamefice-9/boot-9.scm [ / g A g  D l  Q k  T n  i o   i  gbinaryS gencodingS gguess-encodingS gnamegcall-with-input-fileg documentationfFPROC should be a procedure of one argument, and FILE should be a string naming a file. The file must already exist. These procedures call PROC with one argument: the port obtained by opening the named file for input or output. If the file cannot be opened, an error is signalled. If the procedure returns, then the port is closed automatically and the values yielded by the procedure are returned. If the procedure does not return, then the port will not be closed automatically unless it is possible to prove that the port will never again be used for a read or write operation.CJRKD68Lh`-/03##454> G4>"GEgfile  \gproc  \gbinary   \gencoding   \gp  4 \gvals  A \gfilenamefice-9/boot-9.scm q & | 4 |  7 ~  D }  G   \    \  gbinaryS gencodingS gnamegcall-with-output-fileg documentationfbPROC should be a procedure of one argument, and FILE should be a string naming a file. The behaviour is unspecified if the file already exists. These procedures call PROC with one argument: the port obtained by opening the named file for input or output. If the file cannot be opened, an error is signalled. If the procedure returns, then the port is closed automatically and the values yielded by the procedure are returned. If the procedure does not return, then the port will not be closed automatically unless it is possible to prove that the port will never again be used for a read or write operation.CMRHJNh]]L6Ugp  gfilenamefice-9/boot-9.scm      C68:hH5-/03###O6-gfile  Ggthunk  Ggbinary   Ggencoding   Ggguess-encoding   Ggfilenamefice-9/boot-9.scm  G    G  gbinaryS gencodingS gguess-encodingS gnamegwith-input-from-fileg documentationf THUNK must be a procedure of no arguments, and FILE must be a string naming a file. The file must already exist. The file is opened for input, an input port connected to it is made the default value returned by `current-input-port', and the THUNK is called with no arguments. When the THUNK returns, the port is closed and the previous default is restored. Returns the values yielded by THUNK. If an escape procedure is used to escape from the continuation of these procedures, their behavior is implementation dependent.CORKM)h]]L6Ugp  gfilenamefice-9/boot-9.scm      C68h@-/03##O6gfile  :gthunk  :gbinary   :gencoding   :gfilenamefice-9/boot-9.scm  :    :  gbinaryS gencodingS gnamegwith-output-to-fileg documentationf(THUNK must be a procedure of no arguments, and FILE must be a string naming a file. The effect is unspecified if the file already exists. The file is opened for output, an output port connected to it is made the default value returned by `current-output-port', and the THUNK is called with no arguments. When the THUNK returns, the port is closed and the previous default is restored. Returns the values yielded by THUNK. If an escape procedure is used to escape from the continuation of these procedures, their behavior is implementation dependent.CPRKMQh]]L6Ugp  gfilenamefice-9/boot-9.scm      C68h@-/03##O6gfile  :gthunk  :gbinary   :gencoding   :gfilenamefice-9/boot-9.scm  :    :  gbinaryS gencodingS gnamegwith-error-to-fileg documentationf'THUNK must be a procedure of no arguments, and FILE must be a string naming a file. The effect is unspecified if the file already exists. The file is opened for output, an output port connected to it is made the default value returned by `current-error-port', and the THUNK is called with no arguments. When the THUNK returns, the port is closed and the previous default is restored. Returns the values yielded by THUNK. If an escape procedure is used to escape from the continuation of these procedures, their behavior is implementation dependent.CRRSRHTUVWXhX_]"45$6$"66Wgframe  Qgport  Qgsource  Qgt   *gfilename  4 Igline  4 Igcol  4 Igfilenamefice-9/boot-9.scm                 '  , -   2   4  @   E  / I  O   Q    Q gnamegprint-locationCh]MNCgkey  gproc  gfilenamefice-9/boot-9.scm     #     gnamegset-exception-printer!COSiYhr]LLL6jgfilenamefice-9/boot-9.scm          gnamegdefault-printerCZ[\hM]L6Egfilenamefice-9/boot-9.scm     0   ChY-13CQgargs gfilenamefice-9/boot-9.scm   CYh0]4ML5$ LLLL6LLL6gprinter +gfilenamefice-9/boot-9.scm             %   +    + C]hy-13L6qgk gargs gfilenamefice-9/boot-9.scm         C"^ he]OQ$Z454L>"G44O5$">"G"4L>"G4LO O>"G4 >"G 6]gport  gframe  gkey   gargs   gdefault-printer  gproc  " qgt  N agfilenamefice-9/boot-9.scm        "   %   9   ?   @   N   f   v       gnamegprint-exceptionCO_i`hP*;13$4L>"G"L$"@-13L6gsubr Agmsg Agargs  Agrest  Ag_ J Ngfilenamefice-9/boot-9.scm             8  % ?  . A   J  N   A   J N Ch]O@gport  gkey  gargs   gdefault-printer   gfilenamefice-9/boot-9.scm        gnamegscm-error-printerC4Sia>"G4Sib>"G4Sicdh ]6gport  gkey  gargs   gdefault-printer   gmessage  gfaulty  gfilenamefice-9/boot-9.scm                    gnamegkeyword-error-printerC>"G4Sie>"G4Sif>"G4Sig>"G4Sih>"G4Sii>"G4Sij>"G4Sik>"G4Sil>"G4Sim>"G4Sin>"G4Sio>"G4Sip>"G4Siq>"G4Sip>"G4Si>"G4SirstTuvwWxyz{|h*13 4L>"G$b45$"44554 54L >"G"4L >"G$4L >"G"4L >"G$ L6$ L6C-13L6gwho gwhat gwhere  gform  gsubform  gextra  gt  / Bgfile  [ gline  [ gcol  [ g_  gfilenamefice-9/boot-9.scm          &   '  " -  2 /  " /   ?  = C   F  % L  5 N  % R   S   Y  - [   [   b   h  ! s                                #      )    Ch]O@gport  gkey  gargs   gdefault-printer   gfilenamefice-9/boot-9.scm        gnamegsyntax-error-printerC>"G4Si}~h]456gport  gkey  gargs   gdefault-printer   gfilenamefice-9/boot-9.scm       0   >   0      gnameggetaddrinfo-error-printerC>"G4XiZVhQ]CIgmacro  gargs  gbody      ChF]C>gmacro  g transformer     CNPh(] 4455$C45Cgmacro  "gdoc  "g transformer   "gt   "gfilenamefice-9/boot-9.scm  7  7   7  7   8  ! 8   " C h8W]    COgmacro  8gdoc  8g transformer   8  8 CPh]456gmacro  gargs  gdoc   gbody1   gbody   gfilenamefice-9/boot-9.scm  0  0   Chu]Cmgmacro  gargs  gdoc   gbody1   gbody      Ch]!45"e45$@45$@45"  6$4 ?$ @""$4 ?$ @""|gx  gtmp gtmp   vgtmp  1 vgtmp  H vgfilenamefice-9/boot-9.scm ,   g documentationfDefine a defmacro.C5R4XiZVhQ]CIgmacro  gargs  gbody      CNPh]456gmacro  gargs  gdoc   gbody1   gbody   gfilenamefice-9/boot-9.scm  H  H   Chu]Cmgmacro  gargs  gdoc   gbody1   gbody      C hP]45" 45$@6$4?$@""gx  Pgtmp Pgtmp   1gfilenamefice-9/boot-9.scm D   P g documentationf3Define a defmacro, with the old lispy defun syntax.C5R4.i>"G4XiZV8ht]45$ CClgform  gform*  gfilenamefice-9/boot-9.scm  X X    CNh(d] 45$@6\gx  "gtmp "gfilenamefice-9/boot-9.scm U   " C5Rhh]C`gx  gfilenamefice-9/boot-9.scm a    gnamegidentityCRhM]LL@Egfilenamefice-9/boot-9.scm k   k '   Ch b-13L4LO>6<Zgargs gfilenamefice-9/boot-9.scm j  k   Ch(z-13(C4?OCrgproc %grest %gg   %gfilenamefice-9/boot-9.scm c  g   i   i  % gnamegcomposeg documentationfCompose PROC with the procedures in REST, such that the last one in REST is applied first and PROC last, and return the resulting procedure. The given procedures must have compatible arity.CRhk-134L?Ccgargs gfilenamefice-9/boot-9.scm p  q  q   Ch]OCgproc  gfilenamefice-9/boot-9.scm m   gnamegnegateg documentationfWReturn a procedure with the same arity as PROC that returns the `not' of PROC's result.CRhV-13LCNg_ gfilenamefice-9/boot-9.scm v  Ch]OCgvalue  gfilenamefice-9/boot-9.scm s   gnamegconstg documentationfJReturn a procedure that accepts any number of arguments and returns VALUE.CRh]$6Cgvalue  g procedure  gfilenamefice-9/boot-9.scm y  {   {    gnamegand=>g documentationf=When VALUE is #f, return #f. Otherwise, return (PROC VALUE).CTRiR4XiZVs h?]C7gdummy  gexpr     C#$%()9;=@2?DFGhHf]     C^gdummy  Agexpr  Agtemplate   Agarg   A  A CNh@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefice-9/boot-9.scm    9 g macro-typeg syntax-rulesgpatternsgexprgexprgwarningSgtemplategargg...C5RHIJKhD]L6<gfilenamefice-9/boot-9.scm     CLhD]L6<gfilenamefice-9/boot-9.scm     CEh`q]LOLO4LO>"GV4L>X4LO>"GCX4LO>"GFigobj  `gfilenamefice-9/boot-9.scm      '  $ 4    ` CKhD]L6<gfilenamefice-9/boot-9.scm     CLhD]L6<gfilenamefice-9/boot-9.scm     CBhh]LOLO4LO>"GV4L>X4LO>"GCX4LO>"GFzgobj  bgval  bgfilenamefice-9/boot-9.scm      '  ( 6    b Ch(]4545OO6gprop &glock &gfilenamefice-9/boot-9.scm          &    & gnamegmake-object-propertyCMRNOh ] 4455$CCgsym  gprop  gpair   gfilenamefice-9/boot-9.scm                      gnamegsymbol-propertyCPRNOQh8] 4455$C456gsym  2gprop  2gval   2gpair   2gfilenamefice-9/boot-9.scm                    (   )  * 0   2    2 gnamegset-symbol-property!CRRNOQSh0] 4455$44556Cgsym  .gprop  .gpair   .gfilenamefice-9/boot-9.scm                    "  & *   ,    . gnamegsymbol-property-remove!CTRUhz]45$ CCrgind  gfilenamefice-9/boot-9.scm          /   '   CVh}]456uga  gfilenamefice-9/boot-9.scm          gnameg array-shapeCWRXh(] 45$$CCCgargs  $gkw  $grem  $gfilenamefice-9/boot-9.scm                     $ gnameg kw-arg-refCYRZh]Cwgs  gfilenamefice-9/boot-9.scm         gnameg struct-layoutC[R\]h ]45$ 456Cgold-port  gnew-port  gfilenamefice-9/boot-9.scm         &      gnameginherit-print-stateC^R4_i4`iaib5#cdeh8]4>"G445>"G6gs  7gp  7gfilenamefice-9/boot-9.scm        #         # '   3  # 7    7 C54fig>"GhRhh]$CCgobj  gfilenamefice-9/boot-9.scm         -      gnameg record-type?CiR#jdklmne h]4>"G44455>"G"l("w4>"G4>"G4>"G4>"G"4455 "6gs  gp  gfields  8 goff  8 gfilenamefice-9/boot-9.scm ,   -   -  -   .   .  .  % . , .  8 /  > 1  C 3  G 3  N 3  W 4  \ 4  c 4  l 5  p 5  w 5  6  6  6  7  7  7  /  /  / + /  /  8 8 "  gnamegdefault-record-printerCho`ph]]CUgf  gfilenamefice-9/boot-9.scm = '  = 3   Cqr2hD]LC<gfilenamefice-9/boot-9.scm B    ChT]LCLga  gfilenamefice-9/boot-9.scm B   Chc]LC[ga  gb  gfilenamefice-9/boot-9.scm B   Chr]LCjga  gb  gc   gfilenamefice-9/boot-9.scm B    Ch]LCyga  gb  gc   gd   gfilenamefice-9/boot-9.scm B    Ch]LCga  gb  gc   gd   ge   gfilenamefice-9/boot-9.scm B    Ch]LCga  gb  gc   gd   ge   gf   gfilenamefice-9/boot-9.scm B    Ch]LCga  gb  gc   gd   ge   gf   gg   gfilenamefice-9/boot-9.scm B    Ch ,3L Cga  gb  gc   gd   ge   gf   gg   gh   gfilenamefice-9/boot-9.scm B    Ch , 3 L Cga  gb  gc   gd   ge   gf   gg   gh   gi    gfilenamefice-9/boot-9.scm B    Ch , 3 L Cga  gb  gc   gd   ge   gf   gg   gh   gi   gj   gfilenamefice-9/boot-9.scm B   Ch(, 3 L  Cga  "gb  "gc   "gd   "ge   "gf   "gg   "gh   "gi   "gj  "gk  " gfilenamefice-9/boot-9.scm B   " Ch(, 3 L   Cga  $gb  $gc   $gd   $ge   $gf   $gg   $gh   $gi   $gj  $gk  $gl  $ gfilenamefice-9/boot-9.scm B   $ Ch(, 3 L    Cga  &gb  &gc   &gd   &ge   &gf   &gg   &gh   &gi   &gj  &gk  &gl  &gm  & gfilenamefice-9/boot-9.scm B   & Ch(,3L     Cga  (gb  (gc   (gd   (ge   (gf   (gg   (gh   (gi   (gj  (gk  (gl  (gm  (gn  (gfilenamefice-9/boot-9.scm B   ( Ch0&,3L     Cga  *gb  *gc   *gd   *ge   *gf   *gg   *gh   *gi   *gj  *gk  *gl  *gm  *gn  *go   *gfilenamefice-9/boot-9.scm B   * Ch05,3L     C-ga  ,gb  ,gc   ,gd   ,ge   ,gf   ,gg   ,gh   ,gi   ,gj  ,gk  ,gl  ,gm  ,gn  ,go   ,gp   ,gfilenamefice-9/boot-9.scm B   , Ch0D,3L     C<ga  .gb  .gc   .gd   .ge   .gf   .gg   .gh   .gi   .gj  .gk  .gl  .gm  .gn  .go   .gp   .gq   .gfilenamefice-9/boot-9.scm B   . Ch0S,3L     CKga  0gb  0gc   0gd   0ge   0gf   0gg   0gh   0gi   0gj  0gk  0gl  0gm  0gn  0go   0gp   0gq   0gr   0gfilenamefice-9/boot-9.scm B   0 Ch8b,3L     CZga  2gb  2gc   2gd   2ge   2gf   2gg   2gh   2gi   2gj  2gk  2gl  2gm  2gn  2go   2gp   2gq   2gr   2gs   2gfilenamefice-9/boot-9.scm B   2 C20psth8Y-1345L$ L @4L56Qgargs 4gfilenamefice-9/boot-9.scm B  4 Cfu!h(-.,3#4445?5$"45 4 5 $  O" $  O"s $  O"_ $  O"K $ O"7 $ O"# $ O" $ O" $ O" $ O" $ O" $ O" $ O" $ O" $ O"o $ O"[ $ O"G $ O"3 $ O" $ O" O4$"4 5>"GCg type-name !gfields !gprinter  !gdefault-record-printer   !grtd  H !gn  X gfilenamefice-9/boot-9.scm   ;   <  " = " , <  . ;  4 >  ? @  H : H :  Q A  R B ' X B   A   E   E %  E !  G %  E  !  gnamegmake-record-typeCvRirwh ]45$C6gobj  gfilenamefice-9/boot-9.scm J  K  K   L   M  M    gnamegrecord-type-nameCdRirwh ]45$C6gobj  gfilenamefice-9/boot-9.scm O  P  P   Q   Q   R  R    gnamegrecord-type-fieldsCnRx06 hf]4L5$CC^gf  gfilenamefice-9/boot-9.scm Y &  Z ,  Z (   Cnr hP-.,3#$+ 4O4556 Cgrtd Og field-names Ogfilenamefice-9/boot-9.scm T  U   X  , Y ! 6 ] & > Y ! ? X  F W  M V  N V  O gnamegrecord-constructorCyRhz]$LCCrgobj  gfilenamefice-9/boot-9.scm `   `  `   ` ,  ` #   Chr]OCjgrtd  gfilenamefice-9/boot-9.scm _   gnamegrecord-predicateCzRk{|dh0] 45$C456grtd  .gobj  .gt  .gfilenamefice-9/boot-9.scm b  c  c  c   d   d !  e  f  + f  . d   . gnameg%record-type-errorC}R~n}h z]L&LCL6rgobj  gfilenamefice-9/boot-9.scm m   n  n   o  p    Ch@] 4455$"4>"GOCgrtd  :g field-name  :gpos   :gfilenamefice-9/boot-9.scm i  j  j   j  j   k   l  ! l  ( l   : gnamegrecord-accessorCR~n}h ]L&LCL6gobj  gval  gfilenamefice-9/boot-9.scm v   w  w   x  y    Ch@] 4455$"4>"GOCgrtd  :g field-name  :gpos   :gfilenamefice-9/boot-9.scm r  s  s   s  s   t   u  ! u  ( u   : gnamegrecord-modifierCRih]$6Cgobj  gfilenamefice-9/boot-9.scm {  |  |   | #  |    gnamegrecord?CRh]$C6gobj  gfilenamefice-9/boot-9.scm ~               gnamegrecord-type-descriptorCkR4.i>"Ghx]Cpgx  gfilenamefice-9/boot-9.scm          gnameg->boolCRu`h -13445?6gargs gfilenamefice-9/boot-9.scm      '        gnameg symbol-appendCRuh-134?6{gargs gfilenamefice-9/boot-9.scm        gnameg list->symbolCRuh}-134?6ugargs gfilenamefice-9/boot-9.scm        gnamegsymbolCRh8]""(C&C" "gl  3gk  3gn   (gl   (gfilenamefice-9/boot-9.scm                 (  (    3 gnameg list-indexC~R4 i>"G4/i5$4 i>"G"4/i5$hh]456`gstr  gfilenamefice-9/boot-9.scm           C"o=hM]L6Egfilenamefice-9/boot-9.scm  )  4  ChY-13CQgargs gfilenamefice-9/boot-9.scm   Ch0] 4O5$4>"GCCgstr  0gport  0gfilenamefice-9/boot-9.scm                     0 CR4/i5$h]4455C{gstr  gfilenamefice-9/boot-9.scm            $      C"o=`hh]4L56`gfilenamefice-9/boot-9.scm     1  D  1   &   ChY-13CQgargs gfilenamefice-9/boot-9.scm   Ch0] 4O5$4>"GCCgstr  0gport  0gfilenamefice-9/boot-9.scm                     0 CRoh]& 4 5CCgargs  gfilenamefice-9/boot-9.scm               gnamegsystem-error-errnoCRe2 hH()36-134445556 gmessage  Dgargs  Dgmsg  3 Dgfilenamefice-9/boot-9.scm                 "  # #  ( &  3 .  A 0  ( 1   3   3   9   A  % D      D gnamegerrorCRhq] Cigobj  gfilenamefice-9/boot-9.scm       gnamegtm:secCRhq] Cigobj  gfilenamefice-9/boot-9.scm       gnamegtm:minCRhr] Cjgobj  gfilenamefice-9/boot-9.scm       gnamegtm:hourCRhr] Cjgobj  gfilenamefice-9/boot-9.scm       gnamegtm:mdayCRhq] Cigobj  gfilenamefice-9/boot-9.scm       gnamegtm:monCRhr] Cjgobj  gfilenamefice-9/boot-9.scm       gnamegtm:yearCRhr] Cjgobj  gfilenamefice-9/boot-9.scm       gnamegtm:wdayCRhr] Cjgobj  gfilenamefice-9/boot-9.scm       gnamegtm:ydayCRhs] Ckgobj  gfilenamefice-9/boot-9.scm       gnamegtm:isdstCRht] Clgobj  gfilenamefice-9/boot-9.scm       gnameg tm:gmtoffCRhr] Cjgobj  gfilenamefice-9/boot-9.scm       gnamegtm:zoneCRh] C~gobj  gval  gfilenamefice-9/boot-9.scm      gnameg set-tm:secCRh] C~gobj  gval  gfilenamefice-9/boot-9.scm      gnameg set-tm:minCRh] Cgobj  gval  gfilenamefice-9/boot-9.scm     gnameg set-tm:hourCRh] Cgobj  gval  gfilenamefice-9/boot-9.scm     gnameg set-tm:mdayCRh] C~gobj  gval  gfilenamefice-9/boot-9.scm     gnameg set-tm:monCRh] Cgobj  gval  gfilenamefice-9/boot-9.scm     gnameg set-tm:yearCRh] Cgobj  gval  gfilenamefice-9/boot-9.scm     gnameg set-tm:wdayCRh] Cgobj  gval  gfilenamefice-9/boot-9.scm     gnameg set-tm:ydayCRh] Cgobj  gval  gfilenamefice-9/boot-9.scm     gnameg set-tm:isdstCRh] Cgobj  gval  gfilenamefice-9/boot-9.scm     gnameg set-tm:gmtoffCRh] Cgobj  gval  gfilenamefice-9/boot-9.scm     gnameg set-tm:zoneCRht] Clgobj  gfilenamefice-9/boot-9.scm       gnameg tms:clockCRht] Clgobj  gfilenamefice-9/boot-9.scm       gnameg tms:utimeCRht] Clgobj  gfilenamefice-9/boot-9.scm       gnameg tms:stimeCRhu] Cmgobj  gfilenamefice-9/boot-9.scm       gnameg tms:cutimeCRhu] Cmgobj  gfilenamefice-9/boot-9.scm       gnameg tms:cstimeCRiRh -.,3#6gport goffset gwhence  gfilenamefice-9/boot-9.scm     gnamegfile-set-positionCRh`]45$)4>"G4>"GC4>"G4 >"GCgfd/port  `gfd  `gfilenamefice-9/boot-9.scm        "  7  K    ` gnameg move->fdesCRh ] 45 $ 6Cgport  grevealed gfilenamefice-9/boot-9.scm               !      gnamegrelease-port-handleCRh@)3456] 44554 >"GCgport/fd gmode gport/fd  @gmode  @gnew-fd   @gport  ( @gfilenamefice-9/boot-9.scm                (   (   +      @ gnameg dup->portCR?h ) 36]6gport/fd gport/fd  gnew-fd  gfilenamefice-9/boot-9.scm             "   "      gnameg dup->inportCRCh ) 36]6gport/fd gport/fd  gnew-fd  gfilenamefice-9/boot-9.scm %   '   '   %   )   )      gnameg dup->outportCRhP)!345$6456]45$6456gport/fd 'gport/fd ) Kgnew-fd ) Kgfilenamefice-9/boot-9.scm ,  .  .   /  0  ' 0 ) ,  * 2 4 2  < 3 A 4  K 4  '  ) K gnamegdupCRh]6gport  gmodes  gfilenamefice-9/boot-9.scm 6 7   gnamegduplicate-portCR?hpr]"\(!454 >"GC45$ 445>"GC"45"jgfdes  og rest-ports  bgresult   -gfilenamefice-9/boot-9.scm 9  :  ;  <   < &  <   <  = . ? 3 ?  5 ? 9 ;  : @ ? @  @ A " E A 1 G A " H A  M @ X B \ D  b D b :  c :  o :   o gnameg fdes->inportCRChps]"\(!454 >"GC45$ 445>"GC"45"kgfdes  og rest-ports  bgresult   -gfilenamefice-9/boot-9.scm F  G  H  I   I &  I   I  J . L 3 L  5 L 9 H  : M ? M  @ N " E N 1 G N " H N  M M X O \ Q  b Q b G  c G  o G   o gnameg fdes->outportCRh(]445>"G6gport  "gfilenamefice-9/boot-9.scm S  T   T   T   T  " U   " gnameg port->fdesCR`h ]$4566gname  gvalue  gfilenamefice-9/boot-9.scm W  X  Y   Y "  Y   Y   Z    gnamegsetenvCRh]6gname  gfilenamefice-9/boot-9.scm \  ^    gnamegunsetenvg documentationf/Remove the entry for NAME from the environment.CRh~]/6vgc  gfilenamefice-9/boot-9.scm x  y   gnamegfile-name-separator?CRRh]6g file-name  gfilenamefice-9/boot-9.scm }   ~  ~   gnamegabsolute-file-name?C2R69`hP%] 45 $" 45$ 45"$"6gvicinity  Mgfile  Mglen  %gtail  % Mgfilenamefice-9/boot-9.scm                 ) "   %   1   2  & =   A   C   M    M gnameg in-vicinityCRhe]6]gfilenamefice-9/boot-9.scm       gnameg command-lineCRhh]44556`gfilenamefice-9/boot-9.scm     3   =   3   '   ChY-13CQgargs gfilenamefice-9/boot-9.scm   C hX!]45$"45$"454 5$ 6Cgt 7gt ! 4ghome 7 Wg init-file B Wgfilenamefice-9/boot-9.scm               !   7   :   @  & B   B   E   O   U    W gnamegload-user-initCRh0y]LL[$"Y4L>ZCZFqgt gfilenamefice-9/boot-9.scm    %   =    "    - ChM]LL@Egfilenamefice-9/boot-9.scm     $   Ch@]45U4O>XCXFGO6gtag  =gthunk  =g prompt-tag  =gk  ' =gargs  ' =gfilenamefice-9/boot-9.scm       %        =    = gnameg %start-stackCR4XiZVhO]CGgdummy  gtag  gexp      CNh(] 45$@6gx  "gtmp "gfilenamefice-9/boot-9.scm    " g macro-typeg syntax-rulesgpatternsgtaggexpC5R hM]L6Egfilenamefice-9/boot-9.scm        Ch]O6{gname  gfilenamefice-9/boot-9.scm          gnamegload-from-pathCR4XiZVsh >]C6gdummy  gelt    CNh(] 45$@6gx  "gtmp "gfilenamefice-9/boot-9.scm    " g documentationf>Add ELT to Guile's load path, at compile-time and at run-time.g macro-typeg syntax-rulesgpatternsgeltC5RRh~] Cvgv  gfilenamefice-9/boot-9.scm    "   gnamegassert-load-verbosityC R)*#$!"^hP]4>"G4>"G4L>"G4>"G6gfilenamefice-9/boot-9.scm                '  9  L    L Ch ]$45O6Cgfile  gfilenamefice-9/boot-9.scm            gnameg%load-announceC"R"i#i4 i5$R4%i.$&'(h ][$454566gc  gport  gfilenamefice-9/boot-9.scm         *            C>"G#j)*lA+,e hr] 4>"G445$">"G4>"G445>"G4>"G4445 5>"G 6jgmod  gport  gt  3gfilenamefice-9/boot-9.scm ]  ^   ^  ^   _   _  _ 0 _ ! : _  C `  G ` N `  W a  Z a g a  p b  t b { b  c  c c  c c  d d   gnameg %print-moduleC-Rhi.-hq]6igobj  gport  gfilenamefice-9/boot-9.scm      C/?@R4fi@i/>"G@ih0,3L     Cgobarray  .guses  .gbinder   .g eval-closure   .g transformer   .gname   .gkind   .gduplicates-handlers   .gimport-obarray   .g observers  .gweak-observers  .gversion  .g submodules  .gsubmodule-binder  .gpublic-interface   .gfilename   .gnext-unique-id   .gfilenamefice-9/boot-9.scm    . COAR@iri Ai@hj]$CCbgobj  gfilenamefice-9/boot-9.scm     gnamegmodule?CBR@i}hY]L& CL6Qgmodule  gfilenamefice-9/boot-9.scm     COCR@i}h j]L& CL6bgmodule  gval  gfilenamefice-9/boot-9.scm     CODR@i}hY]L& CL6Qgmodule  gfilenamefice-9/boot-9.scm     COER@i}h j]L& CL6bgmodule  gval  gfilenamefice-9/boot-9.scm     COFR@i}h Y]L& CL6Qgmodule  gfilenamefice-9/boot-9.scm     COGR@i}h j]L& CL6bgmodule  gval  gfilenamefice-9/boot-9.scm     COHR@i}h Y]L& CL6Qgmodule  gfilenamefice-9/boot-9.scm     COIR@i}h j]L& CL6bgmodule  gval  gfilenamefice-9/boot-9.scm     COJR@i}h j]L& CL6bgmodule  gval  gfilenamefice-9/boot-9.scm     COKR@i}h j]L& CL6bgmodule  gval  gfilenamefice-9/boot-9.scm     COLR@i}h Y]L& CL6Qgmodule  gfilenamefice-9/boot-9.scm     CO)R@i}h j]L& CL6bgmodule  gval  gfilenamefice-9/boot-9.scm     COMR@i}h Y]L& CL6Qgmodule  gfilenamefice-9/boot-9.scm     CONR@i}h j]L& CL6bgmodule  gval  gfilenamefice-9/boot-9.scm     COOR@i}h Y]L& CL6Qgmodule  gfilenamefice-9/boot-9.scm     COPR@i}h Y]L& CL6Qgmodule  gfilenamefice-9/boot-9.scm     COQR@i}h j]L& CL6bgmodule  gval  gfilenamefice-9/boot-9.scm     CORR@i}h Y]L& CL6Qgmodule  gfilenamefice-9/boot-9.scm     COSR@i}h Y]L& CL6Qgmodule  gfilenamefice-9/boot-9.scm     COTR@i}h j]L& CL6bgmodule  gval  gfilenamefice-9/boot-9.scm     COUR@i}h Y]L& CL6Qgmodule  gfilenamefice-9/boot-9.scm     COVR@i}h j]L& CL6bgmodule  gval  gfilenamefice-9/boot-9.scm     COWR@i}h Y]L& CL6Qgmodule  gfilenamefice-9/boot-9.scm     COXR@i}h j]L& CL6bgmodule  gval  gfilenamefice-9/boot-9.scm     COYR@i}h Y]L& CL6Qgmodule  gfilenamefice-9/boot-9.scm     COZR@i}h j]L& CL6bgmodule  gval  gfilenamefice-9/boot-9.scm     CO[R@i}h Y]L& CL6Qgmodule  gfilenamefice-9/boot-9.scm     CO\R@i}h j]L& CL6bgmodule  gval  gfilenamefice-9/boot-9.scm     CO]R@i}h Y]L& CL6Qgmodule  gfilenamefice-9/boot-9.scm     CO^R@i}h j]L& CL6bgmodule  gval  gfilenamefice-9/boot-9.scm     CO_R`a3B8bAcdH h-.,3# ##45$"4>"G"4>"+G"$$45$""""$'45$"4>"G" 4 5 4 X54 54 5 6gsize guses gbinder  gfilenamefice-9/boot-9.scm    1 )  3   8   <  C   P   T  [   g   j   n   o   {                          gnameg make-moduleCeRRQh(]445>"GCgmodule  $gproc  $gfilenamefice-9/boot-9.scm      +      #    $ gnamegmodule-observeCfRBSh(-.,3#456gmodule %g observer-id %gproc  %gfilenamefice-9/boot-9.scm   !  % !  %  gnamegmodule-observe-weakCgRhSRiQh` ]45$445>"G" 44455>"GCgtoken  \gmodule  Zgid   Zgfilenamefice-9/boot-9.scm #  $   %  $  &   &   '   '  ( '  5 (  : ( & ? ( 1 G ( & L (   \ gnamegmodule-unobserveCjRkR4Iil5mR4ci5nRkonph]$ 66gm  gfilenamefice-9/boot-9.scm /  0   1   2    gnamegmodule-modifiedCqRKmkh V]4>"G CNgfilenamefice-9/boot-9.scm 9   :   ;    Ckrphp]6hgm  gdummy  gfilenamefice-9/boot-9.scm ?   @    CnsLmh8h] 4>"G4>"G6`gfilenamefice-9/boot-9.scm =   >   ?   B  1 C   1 CKmkh V]4>"G CNgfilenamefice-9/boot-9.scm 9   :   ;    Ckrphp]6hgm  gdummy  gfilenamefice-9/boot-9.scm ?   @    CnsLmh8h] 4>"G4>"G6`gfilenamefice-9/boot-9.scm =   >   ?   B  1 C   1 Ckrphp]6hgm  gdummy  gfilenamefice-9/boot-9.scm ?   @    CnsLmh8h] 4>"G4>"G6`gfilenamefice-9/boot-9.scm =   >   ?   B  1 C   1 ChH]4>"GV4>X4>"GCX4>"GFgthunk  Cgfilenamefice-9/boot-9.scm 7  8   C gnamegcall-with-deferred-observersCtRh`]L6Xgproc  gfilenamefice-9/boot-9.scm F  F    CQrhp]L6hgid  gproc  gfilenamefice-9/boot-9.scm K   K #   CSh8]4O45>"GO456gm  2gfilenamefice-9/boot-9.scm E  F  F %  F  * K - 2 K   2 gnamegmodule-call-observersCpRuEhP0]")$ 45$C"C45$C45"(gfn  Pgm  Pgv   Pgpos   /gt   -gt  8 Pgfilenamefice-9/boot-9.scm f  g  h h   i  i   i  i ' j  - j 0 k  8 k  D l P l   P gnameg module-searchCuRvh ] 45$CCgm  gv  gvar  gfilenamefice-9/boot-9.scm y  z z   {   |    gnamegmodule-locally-bound?C(RHh ] 45$CCgm  gv  gvar  gfilenamefice-9/boot-9.scm              gnameg module-bound?CwRxyh]$"6gob  gkey  gfilenamefice-9/boot-9.scm            gnamegmodule-obarray-get-handleCzRE{h]$"6gob  gkey  gfilenamefice-9/boot-9.scm            gnamegmodule-obarray-refC|RBoh ]$"6gob  gkey  gval   gfilenamefice-9/boot-9.scm            gnamegmodule-obarray-set!C}R~hh]$"6gob  gkey  gfilenamefice-9/boot-9.scm            gnamegmodule-obarray-remove!CRzCh]4455Cgm  gv  gfilenamefice-9/boot-9.scm      '           gnamegmodule-symbol-locally-interned?CRuh]6gm  gv  gfilenamefice-9/boot-9.scm     gnamegmodule-symbol-interned?CRvhH -1345"(6C$$C""gm Cgv Cgopt-val  Cgvar   Cgfilenamefice-9/boot-9.scm         "   &  )  *   3   7   :   C  gnamegmodule-symbol-local-bindingCRHhH-1345"(6C$$C""gm Cgv Cgopt-val  Cgvar   Cgfilenamefice-9/boot-9.scm         "   &  )  *   3   7   :   C  gnamegmodule-symbol-bindingCR|CqDhh] 445545$4>"G"$C454>"GCgm  dgv  dgb   9gt  9 dg local-var  I dgfilenamefice-9/boot-9.scm       #             9   E   I   L   d gnamegmodule-make-local-var!CRvDh8] 45$C454>"GCgmodule  6gsymbol  6gt  6gvar   6gfilenamefice-9/boot-9.scm                 6 gnamegmodule-ensure-local-variable!CR}Cqhh ]45$"4>"G$"4>"G445>"G6gm  egv  egvar   egfilenamefice-9/boot-9.scm              (  ,   1  5 <  E !  H !  W !  e "   e gnameg module-add!CDRCqh(]445>"G6gm  !gv  !gfilenamefice-9/boot-9.scm (  )   )   )  ! *   ! gnamegmodule-remove!CRsCqh ]445>"G6gm  gfilenamefice-9/boot-9.scm ,  -   -   -   .    gnameg module-clear!CRrCh]456gproc  gmodule  gfilenamefice-9/boot-9.scm 4  5   5    gnamegmodule-for-eachCRCh]456gproc  gmodule  gfilenamefice-9/boot-9.scm 7  8   8    gnameg module-mapCREVXh8] 4455$C45$ 456Cgmodule  5gname  5gt   5gfilenamefice-9/boot-9.scm @  A   A   A   A   B & B  ' C 3 C   5 gnamegmodule-ref-submoduleCRBVh]456gmodule  gname  g submodule   gfilenamefice-9/boot-9.scm E  F   F    gnamegmodule-define-submodule!CREVXvB,* h] 4455$C45$4455"$C45$1$(45$4>"GCCCCgmodule  gname  gt   gt  9 gvar  M gfilenamefice-9/boot-9.scm P  Q   Q   Q   Q   R & R  ' S ( S 4 S 9 Q  E T  M T  U U X U  \ U ] U ( b U 1 d U ( h U i W  m W  q W & v W  X   gnamegmodule-ref-submoduleCRvB,GBV ho]45$W$" 45$4>"G"4>"G"4>"G456ggmodule  gname  g submodule   gvar  gt   0gfilenamefice-9/boot-9.scm Z  [  [   \   ]   ]   ]  % ^  * ^ , ^  - ^  4 \ 5 _ 9 _  = _ ( D _ Q ` a  a   gnamegmodule-define-submodule!CRh h]45N4M>"GNC`gfilenamefice-9/boot-9.scm k   l ' l  m   n   Ch h]45N4M>"GNC`gfilenamefice-9/boot-9.scm p   q ' q  r   s   Ch h]45N4M>"GNC`gfilenamefice-9/boot-9.scm k   l ' l  m   n   Ch h]45N4M>"GNC`gfilenamefice-9/boot-9.scm p   q ' q  r   s   Ch h]45N4M>"GNC`gfilenamefice-9/boot-9.scm p   q ' q  r   s   Chp]45HHOO4O>"GV4>X4O>"GCX4O>"GFgthunk  pg inner-module  pg outer-module   pgfilenamefice-9/boot-9.scm h  i   i   k   p gnamegsave-module-excursionCRHhH-1345"( 6C$$C""gmodule Ggname Ggrest  Ggvariable   Ggfilenamefice-9/boot-9.scm ~        "  & , * - .  7  ;  >  G  gnameg module-refCJRHh(] 45$C6gmodule  &gname  &gvalue   &gvariable  &gfilenamefice-9/boot-9.scm          " ( &   & gnameg module-set!CRvqFDh8 ]45$ 6456gmodule  1gname  1gvalue   1gvariable  1gvariable  % 1gfilenamefice-9/boot-9.scm          %  1   1 gnamegmodule-define!CGRHh ] 45$CCgmodule  gname  gvariable  gfilenamefice-9/boot-9.scm          gnamegmodule-defined?CR EFsPqhh]&"4455$C44455>"G445>"G6gmodule  cg interface  cgfilenamefice-9/boot-9.scm        !  $  ) ! , ) 7 ) 9 ! >  G  J  U  c   c gnameg module-use!CRE FsPq h]*45"U( 45"O45$" 45$"""445>"G445>"G6gmodule  g interfaces  gcur  gin   dgout   dgiface  & \gt  1 Jgnew  o gfilenamefice-9/boot-9.scm          #  & % &  ) " 1  ? 3 N  Y  d  d  g , o  o  r  w        gnamegmodule-use-interfaces!CRJhXD]"(C"4( 645$"C"<groot  Ugnames  Ugcur   Cghead   Cgtail   Cgcur  ' Cgfilenamefice-9/boot-9.scm          ' /   4   7  ( A   C  H  K  U   U gnameg nested-refCRhX_]#";( 645$"6"Wgroot  Sgnames  Sgval   Sgcur   Aghead   Agtail   Agcur   Agfilenamefice-9/boot-9.scm             ' ,  / # 9  =  A  A   F   I   S    S gnameg nested-set!CRGhXb]#";( 645$"6"Zgroot  Sgnames  Sgval   Sgcur   Aghead   Agtail   Agcur   Agfilenamefice-9/boot-9.scm                '  ,   /  # 9   =   A   A   F   I   S    S gnamegnested-define!CRhXQ]""9(645$"6"Igroot  Qgnames  Qgcur   ?ghead   ?gtail   ?gcur   ?gfilenamefice-9/boot-9.scm              % ! * #  - # # 7 #  ; "  ? "  ?   D   G   Q    Q gnamegnested-remove!CRh@]"*(C45$ "C"groot  <gnames  <gcur   0gnames   0gcur   0gfilenamefice-9/boot-9.scm &  '  )   +   + -  +   +  ! , & -  . -  0 '   < gnamegnested-ref-moduleCReMLA h]#( 6"( 645$"[4 54>"G44 4 55>"G4>"G"g"U groot  gnames  gmodule   gcur   ghead   gtail   gt  / gm  D gcur   gfilenamefice-9/boot-9.scm /  0  1  1   2   5  & 6 ' 7  / 7  > 8 $ D 8  G 9  M 9 1 R 9  [ :  ` : 1 c : 9 n ; 9 p : 1 u :  ~ <  7 >  > # >  2  3  4  2   gnamegnested-define-module!CRh]456wgnames  gfilenamefice-9/boot-9.scm A  B  B   gnameg local-refCRh]456gnames  gval  gfilenamefice-9/boot-9.scm D  E   E    gnameg local-set!CRh]456gnames  gval  gfilenamefice-9/boot-9.scm G  H   H    gnameg local-defineCRh]456zgnames  gfilenamefice-9/boot-9.scm J  K  K   gnameg local-removeCRh]456~gnames  gfilenamefice-9/boot-9.scm M  N  N   gnameglocal-ref-moduleCRh]456gnames  gmod  gfilenamefice-9/boot-9.scm P  Q   Q    gnameglocal-define-moduleCR4ei 54Di4Ci5>"G4Li@>"G4_i4Ki5>"GR4ei 54Di4Ci5>"G4Li@>"G4Mi>"G4[i>"GR4[iii>"G@h -13$C6gname gargs gfilenamefice-9/boot-9.scm          gnamegresolve-moduleCMR^_h(] 454>"GCgm  #gi #gfilenamefice-9/boot-9.scm     "    # gnamegmodule-generate-unique-id!CKRRRRR4ii>"G4i@i45LMhX] 4L5$C454>"G445>"GL6gmod  Sgt Sgname  Sgfilenamefice-9/boot-9.scm          3 6 # 9 3 < # E S   S COARu`A+K hp-.,3##45$@444554  54 54  556 6gid ogm ognumber  @ Ngnumber  W egfilenamefice-9/boot-9.scm  '  1 )  ,  2  3 6 & @ @  C  P  Q W  Z  g  i  o  o gnameg module-gensymg documentationfReturn a fresh symbol in the context of module M, based on ID (a string or symbol). As long as M is a valid module, this procedure is deterministic.CLReMLA hp] 45$C4 54>"G44455>"G4>"GCgmodule  lgname  lgt  lgm   lgfilenamefice-9/boot-9.scm         &  +  4  9  < $ F  K  T   l gnamegmake-modules-inCRZeLAUTM[ Eh]45$ "$j4 5445>"G445>"G4>"G4 >"G"4  4 55$" $ 6Cgmodule  g interface g interface  & gfilenamefice-9/boot-9.scm           &  ) . & 9 B G ) R [ a & f o  %       gnamegbeautify-user-module!CRhr]LL6jgv  gfilenamefice-9/boot-9.scm  "  gnamegmatches?CUY344 h]OLQ45$C$p$C$C$ 6$ 6 $4L5C  6  6gv-ref  gt  gmatches?  gkey  - gv  gfilenamefice-9/boot-9.scm      "  & *  -  - =  ?  I N  P  Z a % c  l s $ u  ~ "  "       gnamegsub-version-matches?Chr]L6jgv  gfilenamefice-9/boot-9.scm    gnamegmatches?CY344 h]"<OQ(C(C45$"COQ(C$ 6$ 6$45C"] g version-ref  gtarget  gv-refs   Bgt   Bgsub-version-matches?   Bgmatches?  J gkey  Z gv  gfilenamefice-9/boot-9.scm       !  $ ) # , 0 . 2  5 " 8 / @ J  U  V  Z  Z  l # n  w  ~ "        gnamegversion-matches?CReh ]454>"GCgm  gfilenamefice-9/boot-9.scm       gnamegmake-fresh-user-moduleCR4ei54Li>"G4i?i>"GMZT h-/03###4L5">$4>"G6$C$L6C$Q$ 45"$7$.44 55$"4  >"G"C"k"ggname  gautoload  gversion   gensure   galready  7 gfilenamefice-9/boot-9.scm  /  7  C  D  b h q   y   {   "      2            gensureS COMRh]6gname  gversion  gfilenamefice-9/boot-9.scm     gnamegtry-load-moduleCR\ h0h]445>"G4L>"GLC`gfilenamefice-9/boot-9.scm             , Ch(] 45$ O66gm  &gf &gfilenamefice-9/boot-9.scm            "  &   & gnameg reload-moduleg documentationf e & F d " U f & X h ' ] i + c h ' e f & k a  n k  z k  { l ' l  n ) m   Cv5h(]4L5$C4L56gbinding  !gfilenamefice-9/boot-9.scm r   s   s   u   v   u  ! t   ! ChHx-/03 H##K##$ 45"#45$ 45"$"4>"G$"J( "$C$" 4  54 5 4   >"G4 >"G4 O>"G4OJ>"G Cpgname  Cgselect  Cghide   Cgprefix   Cgrenamer   Cgversion   Cgmodule  d Cgpublic-i  x Cg selection  Cgcustom-i C gfilenamefice-9/boot-9.scm K ( M " ? O % @ P ) X S  d S  l T  m T  x S  U  V  V V  W  W ' W  Y  Y $ [  Y  \ \ % \ ]  ` & r   C gselectS ghideS gprefixS grenamerS gversionS gnamegresolve-interfaceCRhb]L6Zgsymbol  gfilenamefice-9/boot-9.scm |  }   Chw]OCogprefix  gfilenamefice-9/boot-9.scm {   gnamegsymbol-prefix-procCRh0](C$45$ "CCgpred  .gl  .gfilenamefice-9/boot-9.scm               " 4 * &  . gnameglist-ofCh(]$C$$CCCgx  #gfilenamefice-9/boot-9.scm           ,  #    >  5  # gnameg valid-export?C/h`q]"L(6$1$ 4?" 45"6"igimports  ]gimports  Rgout   Rg import-spec   ?gfilenamefice-9/boot-9.scm             "   $ (  ) 4 8  < B J  N  R R  U $ ]   ] gnamegresolve-importsCM]UZt O h(]L$4LL>"G"4LLL5$#L$4LL>"G""4>"G4LLL5$#L$4LL>"G""4>"G4LLL5$#L$4LL>"G""4>"GL("4  LL>"GL$4 L5 L6Cghandlers  gfilenamefice-9/boot-9.scm   " . 1  5 6  R V  [ d p s  w x            $  ! C&KJhT-/ 0 3######## #  # O    Q 454>"G$4>"G"$4>"G"$T4  5$"4  >"G4 >"G4 4 5>"G"4 54   O >"G $x"4  >"_G"X $M4  5$84 54 5445>"G"""""4>"GCLgname  gfilename  gpure   gversion   g duplicates   gimports   gexports   g replacements   g re-exports   g autoloads  g transformer  glist-of } g valid-export? } gresolve-imports } gmodule  gimports  9 egiface   gsym   gfilenamefice-9/boot-9.scm 5 3 >  G " P 5 Y  b '                 & 3  9  <  k  p t  {        %            .    -   gfilenameS gpureS gversionS g duplicatesS gimportsS gexportsS g replacementsS g re-exportsS g autoloadsS g transformerS  gnamegdefine-module*CR4i 5R ZMEvhh ]4LL5$W44L55$"4L>"G4L4L55$ "L6Cgi  fgautoload I ^gfilenamefice-9/boot-9.scm        5     #  (  , 3  < % A - I % I  N  R  W  f   h C.*5h T]45$C456Lgs  gfilenamefice-9/boot-9.scm    C:<_h(i]4LL>"GLL6agport  %gfilenamefice-9/boot-9.scm     % Ch8i-13444LLO5 5>"GCagkey 6gargs 6gfilenamefice-9/boot-9.scm  6 Ch ]LLLOLO6ga  gsym  gdefinep   gfilenamefice-9/boot-9.scm     gnamegbCAchH] OQ4 54 54 54 5 6gmodule  Bgname  Bgbindings   Bgb  Bgfilenamefice-9/boot-9.scm     , & = (  . , / 0 7  B   B gnamegmake-autoload-interfaceCRh`j-13"I(C(6445>"G""bgmodule ^gargs ^gargs  Vgname  + Vgbindings  + Vgfilenamefice-9/boot-9.scm         $ '  *  + 0 5 ! D O  V V  ^ gnamegmodule-autoload!g documentationf Have @var{module} automatically load the module named @var{name} when one of the symbols listed in @var{bindings} is looked up. @var{args} should be a list of module-name/binding-list pairs, e.g., as in @code{(module-autoload! module '(ice-9 q) '(make-q q-length))}.CRR``hh]456`gelt  gfilenamefice-9/boot-9.scm     0   !   CMhM]LL6Egfilenamefice-9/boot-9.scm     ChM]LLM6Egfilenamefice-9/boot-9.scm 3 3   C hM]LWFEgfilenamefice-9/boot-9.scm #  # +   ChX]445>"G45U(44LL5O>"GNXCXFGDgtag  Tgk M Tgfilenamefice-9/boot-9.scm    '   ' '  '       %  & 0  ) 0 + = 0  H 2  P  T $ $  T C h-.,3#454545445?4>"G45$CHO O4O>"GV Y4  O>"GZX4 O>"GJC}g module-name gversion g reverse-name   gname  & gdir-hint-module-name  0 gdir-hint  @ gdidit  e gfilenamefice-9/boot-9.scm        $   &   &  )   .  ( 0   0  3   6   @   @  C   V   b   e  |      gnamegtry-module-autoloadg documentationfTry to load a module of the given name. If it is not found, return #f. Otherwise return #t. May raise an exception if a file is found, but it fails to load.CR  RX h0]45$" 456gp  0gm  0gn   0gt   .gfilenamefice-9/boot-9.scm =  >  >  ?   ? # @  0 ?   0 gnamegautoload-done-or-in-progress?CR X h8]45 45$C Cgp  1gm  1gn   1gt   1gfilenamefice-9/boot-9.scm B  C  C  E  D   F   F  - G  / G   1 gnamegautoload-done!C R  h ] 45  Cgp  gm  gn   gfilenamefice-9/boot-9.scm I  J  J  L  K   M  M    gnamegautoload-in-progress!CR   h0] $645 45 Cgp  /gm  /gdone?   /gn   /gfilenamefice-9/boot-9.scm O  P   Q   R   R   S  " S  # T $ - T   / gnamegset-autoloaded!CR4Xi ZV%&')*-.WY[\</_`a^bdhimrh]        Cgdummy  g interface  goptions   genable   gdisable   g option-set!     CNh(] 45$@6gx  "gtmp "gfilenamefice-9/boot-9.scm \   " g macro-typeg syntax-rulesgpatternsg interfacegoptionsgenablegdisableg option-set!C5 Rs#6"h] 4>"G4455 $54 >"G $4 >"G""4 >"G4>"G4 >"G4>"G6gname  gvalue  g documentation   glen  cgfilenamefice-9/boot-9.scm   ChX]@Pgoption  gfilenamefice-9/boot-9.scm    Ch8w)36]$4>"G6456ogarg  8gfilenamefice-9/boot-9.scm    8 gnameg debug-optionsCtRsh0r-1344455>"G6jgflags )gfilenamefice-9/boot-9.scm  ) gnameg debug-enableCuRsShV]4M5NCNgflag  gfilenamefice-9/boot-9.scm    Ch@-1345H4O>"G4J>"G6gflags ?g debug-options  ?gfilenamefice-9/boot-9.scm  ? gnameg debug-disableCvR4XiwZVh(O]CGgdummy  $gopt  $gval   $  $ CNh(] 45$@6gx  "gtmp "gfilenamefice-9/boot-9.scm   " g macro-typeg syntax-rulesgpatternsgoptgvalC5wR#6"h] 4>"G4455 $54 >"G $4 >"G""4 >"G4>"G4 >"G4>"G6gname  gvalue  g documentation   glen  cgfilenamefice-9/boot-9.scm   ChX]@Pgoption  gfilenamefice-9/boot-9.scm    Ch8v)36]$4>"G6456ngarg  8gfilenamefice-9/boot-9.scm    8 gnameg read-optionsCRh0q-1344455>"G6igflags )gfilenamefice-9/boot-9.scm  ) gnameg read-enableCRShV]4M5NCNgflag  gfilenamefice-9/boot-9.scm    Ch@-1345H4O>"G4J>"G6gflags ?g read-options  ?gfilenamefice-9/boot-9.scm  ? gnameg read-disableCR4XiZVh(O]CGgdummy  $gopt  $gval   $  $ CNh(] 45$@6gx  "gtmp "gfilenamefice-9/boot-9.scm   " g macro-typeg syntax-rulesgpatternsgoptgvalC5R#6"h] 4>"G4455 $54 >"G $4 >"G""4 >"G4>"G4 >"G4>"G6gname  gvalue  g documentation   glen  cgfilenamefice-9/boot-9.scm   ChX]@Pgoption  gfilenamefice-9/boot-9.scm    Ch8w)36]$4>"G6456ogarg  8gfilenamefice-9/boot-9.scm    8 gnameg print-optionsCRh0r-1344455>"G6jgflags )gfilenamefice-9/boot-9.scm  ) gnameg print-enableCRShV]4M5NCNgflag  gfilenamefice-9/boot-9.scm    Ch@-1345H4O>"G4J>"G6gflags ?g print-options  ?gfilenamefice-9/boot-9.scm  ? gnameg print-disableCR4XiZVh(O]CGgdummy  $gopt  $gval   $  $ CNh(] 45$@6gx  "gtmp "gfilenamefice-9/boot-9.scm   " g macro-typeg syntax-rulesgpatternsgoptgvalC5R4XiZRhV]6Ngid  gfilenamefice-9/boot-9.scm     Ch*]C"gid     CVh)]C!gx     CNh@]4?$@45$@6gx  :gtmp  :gtmp  # :gfilenamefice-9/boot-9.scm   : g macro-typegidentifier-syntaxC5Rhu]Cmgv  gfilenamefice-9/boot-9.scm     gnameg unspecified?CRiR4fii>"GhT]CLgx  gfilenamefice-9/boot-9.scm /   C h()3L[C] L[L4L5\Cwgx  !gprev  !gfilenamefice-9/boot-9.scm     ,   ! Ch8-.,3#4455OCginit 7gconv 7gfluid  " 7gfilenamefice-9/boot-9.scm     "  "  6  7 gnamegmake-parameterg documentationfBMake a new parameter. A parameter is a dynamically bound value, accessed through a procedure. To access the current value, apply the procedure with no arguments: (define p (make-parameter 10)) (p) => 10 To provide a new value for the parameter in a dynamic extent, use `parameterize': (parameterize ((p 20)) (p)) => 20 (p) => 10 The value outside of the dynamic extent of the body is unaffected. To update the current value, apply it to one argument: (p 20) => 10 (p) => 20 As you can see, the call that updates a parameter returns its previous value. All values for the parameter are first run through the CONV procedure, including INIT, the initial value. The default CONV procedure is the identity procedure. CONV is commonly used to ensure some set of invariants on the values that a parameter may have.CRhT]CLgx  gfilenamefice-9/boot-9.scm 2   Ch()3L[C] L[L4L5\Cwgx  !gprev  !gfilenamefice-9/boot-9.scm     *   ! Ch0-.,3#OCgfluid )gconv )gfilenamefice-9/boot-9.scm (  ) gnamegfluid->parameterg documentationf`Make a parameter that wraps a fluid. The value of the parameter will be the same as the value of the fluid. If the parameter is rebound in some dynamic extent, perhaps via `parameterize', the new value will be run through the optional CONV procedure, as with any parameter. Note that unlike `make-parameter', CONV is not applied to the initial value.CRh]$CCgx  gfilenamefice-9/boot-9.scm         gnameg parameter?CRh(]45$ C6gp  "gfilenamefice-9/boot-9.scm         !    ' "   " gnamegparameter-fluidCRh(]45$ C6gp  #gfilenamefice-9/boot-9.scm         !   ' #   # gnamegparameter-converterCR4XiZVSV   h08] C0gtmp-bde397a-17e9  *  * C!h V]CNgtmp-bde397a-17e7  gtmp-bde397a-17e6     Ch8)]4L54454L5LL5C!gp  7  7 CNh8]4545$O@6gparam  6gvalue  6gbody   6gbody*   6gtmp  6gtmp   6gfilenamefice-9/boot-9.scm     6 CNh(d] 45$@6\gx  "gtmp "gfilenamefice-9/boot-9.scm   " C5R4i4Ji4i5"5#hf]45$C6^gx  gfilenamefice-9/boot-9.scm   "     C5$i4i4i5">"G4i4Ji4i5%5&hf]45$C6^gx  gfilenamefice-9/boot-9.scm    #     C5'i4i4i5%>"G4i4Ji4i5(5&hf]45$C6^gx  gfilenamefice-9/boot-9.scm     #      C5i4i4i5(>"G4i4Ji4i5)5&hf]45$C6^gx  gfilenamefice-9/boot-9.scm     #      C5*i4i4i5)>"G4i*5+R4 i5,R,hd][C\gfilenamefice-9/boot-9.scm +  ,    gnameg batch-mode?C-Rh\]CTgfilenamefice-9/boot-9.scm 3    gnameg batch-mode?C-hk] Ccgfilenamefice-9/boot-9.scm 2  3    gnamegensure-batch-mode!C.Rh{-13@sgargs gfilenamefice-9/boot-9.scm 5 6   6   gnamegquitCRi/R012h]4455Cgfilenamefice-9/boot-9.scm :  ;   ;  ;   ;   ;    gnameg gc-run-timeC3R4i54R4i55R4i56R4i57R4i58R4i59R4i5:R4i 5;R4i 5R4i5?R@A#B'^9&$ h-.,3# 4545$"<445$"45>"G445 >"G4>"G4  >"G$" 4 56gprompt greader gfilenamefice-9/boot-9.scm Q   Q &  R $ R  ) T , T  6 T  = T / F T O f R f  \ f e g  u h  i  i  i  gnameg repl-readerCCRh0]" $C""gn  -gcount  !gresult   !gfilenamefice-9/boot-9.scm q  r  s   s   t   t  ! t  ! r  $ r  % r $ - r   - gnamegiotaCDR4XiEZV OFGVs\jk^lmehXR]    L LCJgt-bde397a-1825  Rgt-bde397a-1826  R  R CN h@]454545$ O@6gwhile  @gcond  @gbody   @gtmp   @gtmp  " @gfilenamefice-9/boot-9.scm   6  $  ;  $    @ CNh(d] 45$@6\gx  "gtmp "gfilenamefice-9/boot-9.scm   " C5ERuh]4445 556gsym  gfilenamefice-9/boot-9.scm    # .  #       gnamegkeyword-like-symbol->keywordCR4XiZVVh ]4445556gt-bde397a-18ac  gt-bde397a-18ab  gt-bde397a-18aa   gt-bde397a-18a9   gt-bde397a-18a8      CNh*]8L(" LL(" LL(" LL(" LL("   L4  5$ @6"gimp u gexp u grex  u grep  u gaut  u gtmp  gtmp  gfilenamefice-9/boot-9.scm   $   $ 6  7 $ M  N $ d  e $ u   CthX]LLLLLL6Pgargs  gfilenamefice-9/boot-9.scm     C h q] 4LLLLLL5Cigargs  gtmp  gfilenamefice-9/boot-9.scm       C\Nhh]L6`gkw  gfilenamefice-9/boot-9.scm    *     C,-h(] 4LLLLLL5Cygv  #gargs  #gtmp   #gfilenamefice-9/boot-9.scm  #    # C/?@h(] 4LLLLLL5Cygd  #gargs  #gtmp   #gfilenamefice-9/boot-9.scm  &    # CBRSh(] 4LLLLLL5Cygf  #gargs  #gtmp   #gfilenamefice-9/boot-9.scm      # CWZ\_Vh6]L6.gt-bde397a-1967    CNh@y] LL4L5$4O?" 4L5LLL6qgex  >gargs  >gtmp   6gfilenamefice-9/boot-9.scm >   > CbVh6]L6.gt-bde397a-1975    CNh@y] LL4L5$4O?" 4L5LLL6qgex  >gargs  >gtmp   6gfilenamefice-9/boot-9.scm >   > CeVh6]L6.gt-bde397a-1983    CNh@y] LLL4L5$4O?" 4L5LL6qgre  >gargs  >gtmp   8gfilenamefice-9/boot-9.scm >   > ChVh6]L6.gt-bde397a-1991    CNh@y] LLL4L5$4O?" 4L5LL6qgre  >gargs  >gtmp   8gfilenamefice-9/boot-9.scm >    > CkVh6]L6.gt-bde397a-199f    CNh@x] LLLL4L5$4O?" 4L5L6pgr  >gargs  >gtmp   :gfilenamefice-9/boot-9.scm >    > CnVh6]L6.gt-bde397a-19ad    CNh@x] LLLL4L5$4O?" 4L5L6pgr  >gargs  >gtmp   :gfilenamefice-9/boot-9.scm >    > CqVh6]LL6.gt-bde397a-19bd     CNh@] LLLLL4L5$4O?" 4L56gname  @gbindings  @gargs   @gtmp   >gfilenamefice-9/boot-9.scm @    @ CuNrh]6gkw  gval  gargs   gfilenamefice-9/boot-9.scm      *      CN3Ph]456gname  gname*  garg   gargs   gfilenamefice-9/boot-9.scm       CV/hE]L6=gfilenamefice-9/boot-9.scm     Cttht]LL6lgrenamer  gin  gfilenamefice-9/boot-9.scm       Cuh]LL6xgkw  gval  gin   gfilenamefice-9/boot-9.scm      CNPh]4455Cygkw  gin  gfilenamefice-9/boot-9.scm    $       CNhx]L6pgkw  gin  gfilenamefice-9/boot-9.scm    ,     CP9h(] 45$445 5:CCgsym  %gin  %gdat  %gfilenamefice-9/boot-9.scm             "   % CPuh8] L4544445 555L6gsym  5gin  5gsym  'gtmp  ' 1gfilenamefice-9/boot-9.scm  !       '  2 ' "  $  '  5   5 Ch]*45$ O@45"x45"E45$ LO@45$ LO@ 6$4 ?$  LO@""$4 ?$  LO@"f"bgin  gout  gtmp  gtmp  & gtmp  5 gtmp  D gtmp  b gfilenamefice-9/boot-9.scm   gnamegloopCVhR]LL6Jgt-bde397a-1955  gt-bde397a-1954     CNhh]LLOLQ4545$4O?" 45LLLL6gname  egname*  egarg   egargs   egloop   #gtmp  & [gtmp  1 Xgfilenamefice-9/boot-9.scm     &  e   e C3Ph]456~gname  gname*  gargs   gfilenamefice-9/boot-9.scm       CVh6]LL6.gt-bde397a-1938     CNhX] 4L4L5$4O?" 4L5LLLL5Cgname  Tgname*  Tgargs   Tgtmp   7gtmp  A Tgfilenamefice-9/boot-9.scm   A   T C3Ph]456~gname  gname*  gargs   gfilenamefice-9/boot-9.scm       CVh6]LL6.gt-bde397a-1919     CNh@] L4L5$4O?" 4L5LLLL6gname  @gname*  @gargs   @gtmp   6gfilenamefice-9/boot-9.scm @   @ CPh]4455C{gkw  gargs  gfilenamefice-9/boot-9.scm    $       CNhz]L6rgkw  gargs  gfilenamefice-9/boot-9.scm    *     CP9h(] 45$445 5:CCgsym  %gargs  %gdat  %gfilenamefice-9/boot-9.scm             "   % CPuh@] L4544445 555LLLLL6gsym  =gargs  =gsym  'gtmp  ' 1gfilenamefice-9/boot-9.scm        '  2 ' "  $  '  =   = C/hX<]45$O@45"45"45  $LO @45  $LO @45  $  LO @4 5  $ LO @4 5  $ LO @45$LO@45"45"i45"*45$LO@45$LO@45$LO@45$LO@45$LO@45$LO@45$ LO@4!5$"@#$6$&4%?$&LLO@""$$4'?$(LO@"m"i$$4)?$*LO@"0",$4+?$ ,LO@"#"$$4-?$.LO@""4gargs  Rgimp  Rgexp   Rgrex   Rgrep   Rgaut   Rgtmp  Rgtmp  . Rgtmp  = $gtmp L gtmp r gtmp gtmp gtmp gtmp   gtmp  & gtmp  5 gtmp  D gtmp  S tgtmp  y tgtmp   tgtmp   tgtmp   tgtmp   tgtmp  7 tgtmp  ] tgfilenamefice-9/boot-9.scm   R gnamegparseCVN3Ph]456}gname  gname*  garg   gfilenamefice-9/boot-9.scm         CQV h0H]LLC@g quoted-arg  .gfilename  .  . CN hxL]4L544L5$"545$"45$ O@ 6Dgname  qgname*  qgarg   qgt   *gf  . Egtmp  H qgtmp  S qgfilenamefice-9/boot-9.scm      )  -  1  5  9      (   6   2 '  H ,  2 .  ( .   1  & ;  ! H    q ChPw]OQ45" 6$4?$ O@""ogx  Pgparse Pgtmp   Pgfilenamefice-9/boot-9.scm   P C5Rh ] 4?$C6gmif-args  gt gfilenamefice-9/boot-9.scm %   &  &   ' &  '    CthV]45L6Ngfilenamefice-9/boot-9.scm *   +  +   Ch] 45O6gmodule-interface-args  g interfaces gfilenamefice-9/boot-9.scm $  %  %   )    gnamegprocess-use-modulesCR4XiZVhE]L6=gfilenamefice-9/boot-9.scm  G    CV[N3Ph]456gname  gname*  garg   gin   gfilenamefice-9/boot-9.scm  L   L    CV/hE]L6=gfilenamefice-9/boot-9.scm  9    Cttht]LL6lgrenamer  gin  gfilenamefice-9/boot-9.scm @   @    Cuh]LL6xgkw  gval  gin   gfilenamefice-9/boot-9.scm  B   B    CNPh]4455Cygkw  gin  gfilenamefice-9/boot-9.scm  =   = $  =   =    CNhx]L6pgkw  gin  gfilenamefice-9/boot-9.scm  >   > ,  >    CP9h(] 45$445 5:CCgsym  %gin  %gdat  %gfilenamefice-9/boot-9.scm  0  0   1  1   2   2   2  " 2   % CPuh8] L4544445 555L6gsym  5gin  5gsym  'gtmp  ' 1gfilenamefice-9/boot-9.scm  < ! <   4   4   4 '  4 2 4 ' " 4  $ 4  ' <  5 <   5 Ch]*45$ O@45"x45"E45$ LO@45$ LO@ 6$4 ?$  LO@""$4 ?$  LO@"f"bgin  gout  gtmp  gtmp  & gtmp  5 gtmp  D gtmp  b gfilenamefice-9/boot-9.scm 7   gnamegloopCVh g]LLLLL6_g quoted-arg  gfilenamefice-9/boot-9.scm  N   N    CNhP]OLQ4545$LLO@6gname  Lgname*  Lgarg   Lgin   Lgloop  gtmp   Lgtmp  ( Lgfilenamefice-9/boot-9.scm 7   7  7   M   L C3Ph]456|gname  gname*  gin   gfilenamefice-9/boot-9.scm  I   I    Ch]LL6|gname  gname*  gin   gfilenamefice-9/boot-9.scm  J   J    C h]45$ O@45"@45" 6$4?$LLO@""$4 ?$  LO@""gin  gout  gtmp  gtmp  & gtmp  5 lgfilenamefice-9/boot-9.scm E   gnameglpCh ] OLQ6gspecs  glp gfilenamefice-9/boot-9.scm D  E   E   E    gnamegquotifyCVV     h3]C+g quoted-args     CNh0]4L545$@6zgspec  +gtmp +gtmp   +gfilenamefice-9/boot-9.scm  S ( S   + CNh8y]OQ45$ O@6qgx  4gquotify 4gtmp   4gfilenamefice-9/boot-9.scm .   4 C5R4Xi ZV   & 'h?]C7gdummy  gspec     CNh(] 45$@6gx  "gtmp "gfilenamefice-9/boot-9.scm X   " g macro-typeg syntax-rulesgpatternsgspecg...C5 RPh|]45Ctgx  gfilenamefice-9/r6rs-libraries.scm         gnamegsym?CV ? @ A E I M R = 3hr]L6jgname  gname*  gfilenamefice-9/r6rs-libraries.scm y   C S Zhr]456jgname  gname*  gfilenamefice-9/r6rs-libraries.scm  z    CN3h]L6gname  gname*  gversion   gfilenamefice-9/r6rs-libraries.scm u   C S bh ]456gname  gname*  gversion   gfilenamefice-9/r6rs-libraries.scm  v    C3h ]4L5$L6Cg import-set  gfrom  gto   gfilenamefice-9/r6rs-libraries.scm  ^  ^   ^ &   C SeMLADhv]L6ngsym  gvar  gfilenamefice-9/r6rs-libraries.scm a  a *  Cv cDh(]4L5$ L6L6gpair  'gfilenamefice-9/r6rs-libraries.scm f  g  g / g   g   h   i   h  " j % % j 0 ' j   ' CvPh/]+45454>"G445>"G4O>"G"z(4  O>"GC4 5$" 4  54>"G"4455"m'g import-set  gfrom  gto   gmod  giface   Dgiface  D gin  c gout  c gt  gvar   gfilenamefice-9/r6rs-libraries.scm  _  _                '   ,   7   D _  G a  c b  i c j e n  n 5 n  n  o  o ! p ! o  n q q # q r  r ! r  r b  b  b > b $  CPh]45C}g import-set  g identifier  gfilenamefice-9/r6rs-libraries.scm       C SeMLAPDh~]L4L56vgsym  gvar  gfilenamefice-9/r6rs-libraries.scm X   Y -  Y    C hp-]45454>"G445>"G454 O>"GC%g import-set  mg identifier  mgmod  mgiface   Dgiface  D mgpre  M mgfilenamefice-9/r6rs-libraries.scm  U  U                '   ,   7   D U  G W  M U  P X   m C3h}]L6ug import-set  g identifier  gfilenamefice-9/r6rs-libraries.scm H   C SeMLADhv]L6ngsym  gvar  gfilenamefice-9/r6rs-libraries.scm K  K *  Cvh(]4L5$L6L6}gsym  !gfilenamefice-9/r6rs-libraries.scm L   M   M   N   O  ! O   ! CP h)]45454>"G445>"G4O>"G4  O4 5>"GC!g import-set  g identifier  gmod  giface   Dgiface  D gfilenamefice-9/r6rs-libraries.scm  I  I                '   ,   7   D I  G K  ` L  l P  w L   C3h}]L6ug import-set  g identifier  gfilenamefice-9/r6rs-libraries.scm <   C SeMLADvh0] L4L5$" 4L56gsym  /gt  -gfilenamefice-9/r6rs-libraries.scm ?  A $  A B $ $ B + * B $ / @   / CP hp]45454>"G445>"G4O4 5>"GCg import-set  ig identifier  igmod  igiface   Dgiface  D igfilenamefice-9/r6rs-libraries.scm  =  =                '   ,   7   D =  G ?  S D  ^ ?   i C3hr]L6jgname  gname*  gfilenamefice-9/r6rs-libraries.scm 8   C S ihr]456jgname  gname*  gfilenamefice-9/r6rs-libraries.scm  9    C3h]L6gname  gname*  gversion   gfilenamefice-9/r6rs-libraries.scm 3   CPh ]45456gname  gname*  gversion   gfilenamefice-9/r6rs-libraries.scm  4   5 "  4    C3 rP9h8]4L5$$45$44455 5:CCCgcolon-n  8grest  8gversion   8gfilenamefice-9/r6rs-libraries.scm  !  !   "   "  !   #  " #  % # , - #  0 #  3 #   8 Cu` sP SV  h]LLC   C   h >]L4L5C6gname  grest     CNh]4444455 55545$4 O?"04 5$4 O?" 4  56gcolon-n  {grest  {gversion   {gsrfi-n  {gtmp  , ygtmp  O vgfilenamefice-9/r6rs-libraries.scm  $   %  &  '   '  ' 0  '  '   %  $  $  { )   { C h>]Q45"45"f45"345"45"45"4 5"l4 5 "94 5  $4 O ?$  @66 $4O ?$ @""$4O?$@"t"p$4?$@"F"B$4O?$@""$4O?$@""$4O?$@""$4O?$@"z"v$4O?$@"G"C6g import-spec  gsym?  gtmp   gtmp   gtmp  - gtmp  < fgtmp  K Bgtmp  Z gtmp  i gtmp x gtmp  gfilenamefice-9/r6rs-libraries.scm     gnamegresolve-r6rs-interfaceC SR4Xi (ZV  3Rh]6gname  gname*  gversion   gespec   gispec   gbody   gfilenamefice-9/r6rs-libraries.scm   CV  Sh]6xg import-set  g import-level  gfilenamefice-9/r6rs-libraries.scm     C Sh v] 45$@6ngim  gtmp gfilenamefice-9/r6rs-libraries.scm   #   CVhM]LLLDEgfilenamefice-9/r6rs-libraries.scm   C tRhp]6hgid  grest  gfilenamefice-9/r6rs-libraries.scm     CP4vhi]L6agiface  gfilenamefice-9/r6rs-libraries.scm    CvhX] 454OL5$LLLL645$LLLL6LLLL6gid  Wgrest  Wgsym  Wgfilenamefice-9/r6rs-libraries.scm     (  ,  -  9 F  H  Q  W   W CN3Rh ]45$6Cgfrom  gto  grest   gfilenamefice-9/r6rs-libraries.scm        CVhM]LLLLL6Egfilenamefice-9/r6rs-libraries.scm     C P4vhi]L6agiface  gfilenamefice-9/r6rs-libraries.scm    Cvhp] 454OL5$LLLL64545$LLLL6LLLL6gfrom  ogto  ogin   ogsym  gsym  9 Ggfilenamefice-9/r6rs-libraries.scm      .  2  3  9  <  K  [ ]  i  o   o CNhX]45$LLO@45$LLO@6gin  Rge  Rgr   Rgx   Rgtmp  Rgtmp  . Rgfilenamefice-9/r6rs-libraries.scm   R gnameglp2Ch0] OLLQ45LLL6gfrom  -gto  -grest   -glp2  -gfilenamefice-9/r6rs-libraries.scm   - C h]45$O@45"A45$'4?$LLO@66$"4 ?$ LLO@""gspecs  ge  gr   gx   gtmp  gtmp  * gtmp  9 qgfilenamefice-9/r6rs-libraries.scm   gnameglpCV      h8]C0gtmp-bde397a-1b2c    C    h8]LLC0gtmp-bde397a-1b2b     C hHG]LLL44L5  4 LLOL55C?ge  Ggr  Ggx   G  G CN hp].45OQ4> G 4 5  $O @ 6gname  lgname*  lgversion   lgespec   lgispec   lgbody   lgifaces  *glp   *gexports  + lg re-exports  + lg replacements  + lgtmp = lgtmp H l gfilenamefice-9/r6rs-libraries.scm     # $ ( % 0 *  .  =   l CN3Rh]6gname  gname*  gespec   gispec   gbody   gfilenamefice-9/r6rs-libraries.scm   C   h(w]45Cogname  !gname*  !gespec   !gispec   !gbody   !  ! C hh~]45"445$4?$@66$4?$ @""vgstx  dgtmp dgtmp   Egfilenamefice-9/r6rs-libraries.scm }   d C5 (R4Xi ZVV hL]CDg import-set  g import-level     Ch ] 45$@Cg import-set  gtmp gfilenamefice-9/r6rs-libraries.scm    gnameg strip-forCV $ ( ) + , - 8h 8]C0gtmp-bde397a-1b44     C <h 9]4455C1glibrary-reference     CNh0]4545$@6g import-set  -gtmp -gtmp   -gfilenamefice-9/r6rs-libraries.scm  .   - CNh(n] 45$@6fgstx  "gtmp "gfilenamefice-9/r6rs-libraries.scm   " C5 R4Xi =ZV NhO]CGgdummy  gfoo  gbar     CNh(] 45$@6gx  "gtmp "gfilenamefice-9/boot-9.scm a   " g macro-typeg syntax-rulesgpatternsgfoogbarC5 =R4Xi OZV P ` a bh c]C[gdummy  gname  gargs   gbody      C k l mhP]CHgdummy  gname  gval      CNh@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefice-9/boot-9.scm e   9 g macro-typeg syntax-rulesgpatternsgnamegargsgbodygnamegvalC5 OR4Xi nZV } ~ h c]C[gdummy  gname  gargs   gbody      CNh(] 45$@6gx  "gtmp "gfilenamefice-9/boot-9.scm o   " g macro-typeg syntax-rulesgpatternsgnamegargsgbodyg...C5 nR4Xi ZV  hT]CLgdummy  gformals  gbody     CNh(] 45$@6gx  "gtmp "gfilenamefice-9/boot-9.scm u   " g macro-typeg syntax-rulesgpatternsgformalsgbodyg...C5 RZDh@]$"$"4L5L6gname  ;g internal-name  ;g external-name  $ ;gvar  / ;gfilenamefice-9/boot-9.scm     *  &  7      *   &   7 $   '   /   ;    ; Ch ] 45O6gm  gnames  gpublic-i  gfilenamefice-9/boot-9.scm ~           gnamegmodule-export!CRZ  DhP]$"$"4L54>"GL6gname  Pg internal-name  Pg external-name  $ Pgvar  / Pgfilenamefice-9/boot-9.scm     *  &  7      *   &   7 $   '   /   2   8  , >   P    P Ch ] 45O6gm  gnames  gpublic-i  gfilenamefice-9/boot-9.scm            gnamegmodule-replace!CRZeLAUTM[DC hG] 45$"f45445>"G445>"G4>"G4 >"G 4 56?gmod  gt giface  }giface gfilenamefice-9/boot-9.scm                $   /   8   =  ! H   Q   W   \   e          gnamegmodule-export-all!C RZHv D h`?]$"$"4L5$!4L5&6L667gname  `g internal-name  `g external-name  $ `gvar  / `gfilenamefice-9/boot-9.scm     *  &  7      *   &   7 $   '   /   7   :  " F   J  N   X   \  `    ` Ch ] 45O6gm  gnames  gpublic-i  gfilenamefice-9/boot-9.scm            gnamegmodule-re-export!CR4Xi ZV        h(?]C7gdummy  #gname  #  # CNh(] 45$@6gx  "gtmp "gfilenamefice-9/boot-9.scm    " g macro-typeg syntax-rulesgpatternsgnameg...C5 R4Xi ZV        h(?]C7gdummy  #gname  #  # CNh(] 45$@6gx  "gtmp "gfilenamefice-9/boot-9.scm    " g macro-typeg syntax-rulesgpatternsgnameg...C5 R4Xi ZV        h(?]C7gdummy  #gname  #  # CNh(] 45$@6gx  "gtmp "gfilenamefice-9/boot-9.scm    " g macro-typeg syntax-rulesgpatternsgnameg...C5 R4Xi ZV  h?]C7gdummy  gname     CNh(] 45$@6gx  "gtmp "gfilenamefice-9/boot-9.scm    " g macro-typeg syntax-rulesgpatternsgnameg...C5 R4Xi ZV  h?]C7gdummy  gname     CNh(] 45$@6gx  "gtmp "gfilenamefice-9/boot-9.scm    " g macro-typeg syntax-rulesgpatternsgnameg...C5 R h g)3L[C]L4L5\C_gval  gfilenamefice-9/boot-9.scm         Ch0-.,3#4455OCginit .g converter .gfluid  " .gfilenamefice-9/boot-9.scm        "   "   . gnamegmake-mutable-parameterC R4ei 5h,3Cgmodule  gname  gint1   gval1   gint2   gval2   gvar   gval   gfilenamefice-9/boot-9.scm     gnamegnoopC4Li >"G4Mi>"G4Gi e Ah0&,34545456gmodule  *gname  *gint1   *gval1   *gint2   *gval2   *gvar   *gval   *gfilenamefice-9/boot-9.scm                '   *    * gnamegcheckC>"G4Gi,* Ah8%,3445454545>"GCgmodule  6gname  6gint1   6gval1   6gint2   6gval2   6gvar   6gval   6gfilenamefice-9/boot-9.scm                 !   ,    6 gnamegwarnC>"G4Gi   Hh,3 $45$""$" 4545 45$  &" 4 5$CC4 5$ CCgmodule  gname  gint1   gval1   gint2   gval2   gvar   gval   gt  % ?gold  H gnew H  gfilenamefice-9/boot-9.scm         3       %   4   @   H   M  S  ! U  Y   a   b   g   m  / o   p   t  z    &      gnamegreplaceC>"G4Gi * Avh@<,3&/4454545>"G6C4gmodule  ?gname  ?gint1   ?gval1   ?gint2   ?gval2   ?gvar   ?gval   ?gfilenamefice-9/boot-9.scm                   -  =    ? gnamegwarn-override-coreC>"G4Gi vh,3$C6gmodule  gname  gint1   gval1   gint2   gval2   gvar   gval   gfilenamefice-9/boot-9.scm          gnamegfirstC>"G4Gi vh,36gmodule  gname  gint1   gval1   gint2   gval2   gvar   gval   gfilenamefice-9/boot-9.scm        gnameglastC>"G4Gi >"G4Gi >"G R  h ] 45$C6g handler-name  gt gfilenamefice-9/boot-9.scm .  /  /   1   1    Ch(]$$"6Cg handler-names  "gfilenamefice-9/boot-9.scm ,  -   3   3  5  .   " gnameglookup-duplicates-handlersCR4 i5R4 i h {]445>"GCsg handler-names  gfilenamefice-9/boot-9.scm <   =   >   =    C5 R  RhM]L6Egfilenamefice-9/boot-9.scm        C.*5h T]45$C456Lgs  gfilenamefice-9/boot-9.scm     C:< _h(i]4L>"GLL6agport  #gfilenamefice-9/boot-9.scm         # Ch8i-13444LO5 5>"GCagkey 4gargs 4gfilenamefice-9/boot-9.scm   4 C44`    J  h0]454545445L56gobjcode  -gprogram  -gfilenamefice-9/boot-9.scm        &       &                      %   '   +   -    - C.*5h T]45$C456Lgs  gfilenamefice-9/boot-9.scm     C:< _h(i]4L>"GLL6agport  #gfilenamefice-9/boot-9.scm        # Ch8i-13444LO5 5>"GCagkey 4gargs 4gfilenamefice-9/boot-9.scm   4 C hH]44LL5545$_454M5$"'454M5$454M5"$OO6CC@gext  g candidate  ggostat   gt  3 jgfilenamefice-9/boot-9.scm       ,            $   %  ,   3   3   A   H  # O  S   T   [   b  n      C h_]LLO6Wgdir  gfilenamefice-9/boot-9.scm        C ThM]L6Egfilenamefice-9/boot-9.scm    !   ChY-13CQgargs gfilenamefice-9/boot-9.scm   CT `.9  2 *    J " # $  % &      hX] $"4L5"$445LL>"G"$4>"G445L>"G44 4  5 5L 455445>"G4 54 54 544 556C$y454M5$"'454M5$454M5"$+4 54 54 544 5L56""Õggostat  Xgcfn gobjcode  gprogram  gt !gobjcode 3 Pgprogram  3 Pgfilenamefice-9/boot-9.scm            !  "   %   +   4   F  G   W   Z   `  . g   p   q   t   x  $ z   |   ~             0      &      &                                   #              %  &   *  & ,   -   1  & 3   3   8   >   @   A   B   H   J   N   P  K  X C.*5h T]45$C456Lgs  gfilenamefice-9/boot-9.scm     C:< '_h(i]4L>"GLL6agport  #gfilenamefice-9/boot-9.scm         # Ch8i-13444LO5 5>"GCagkey 4gargs 4gfilenamefice-9/boot-9.scm   4 Ch h]LLOLO6`g go-file-name  gfilenamefice-9/boot-9.scm        C h]$o445$" 44 55$";45&.4 5$4 4  54  55""M5" LLO6gcanon  gfilenamefice-9/boot-9.scm      g   g  h # h ! , h 0 f  7 j  = j . A f  B k L j  M o  R p  [ q  e o  u     C#hM]L6Egfilenamefice-9/boot-9.scm       Ch8]H4OO5KJ$D4LO5$"44O 5 LO5"$  $4 >"G"6  O60g abs-file-name  gscmstat  gt  1 agcompiled  f gfilenamefice-9/boot-9.scm      !   "   1  ! @   C  ^   f   n   t  u         gnameg load-absoluteC ., ( ) * +2h`]LY4L5$4LL>7"14L5$4L4LL5>"44LL5>ZCZFgfilenamefice-9/boot-9.scm    5       &  0   1  4   A  F  I   V    Z C hx'-.,3#HOQ$"45$4>"G"KO6gdir wg file-name wgreader  wgcompiled-extension   wg load-absolute  ! wgt  + Cgfilenamefice-9/boot-9.scm \ + v  + v 9 w  > w  @ w  G v  H x L x  S x ] z d {  w   w  gnamegload-in-vicinityg documentationfLoad source file FILE-NAME in vicinity of directory DIR. Use a pre-compiled version of FILE-NAME when available, and auto-compile one when none is available, reading FILE-NAME with READER.C ,R4XiZ4 -iQ .V N XhW]L$L"COgarg  gfilenamefice-9/boot-9.scm     CRhV]6Ngid  gfilenamefice-9/boot-9.scm      C e f g h q rh(V]L$L"CNgid  !gfilenamefice-9/boot-9.scm   (  ! CN h ])45$ 45"45$ 45"45$ O@4 ?$  O@  6gx  |gsrc |gfile   |gdir  8 |gtmp  C |gtmp  [ |gfilenamefice-9/boot-9.scm                )       "   ,   -  % 8    | C55R  R4ci 5 RZB Eh0] 45$44556Cgmodule  ,gfeatures  ,gmod  ,gfilenamefice-9/boot-9.scm K  L L   M   O   O  " O ? $ O  ( O  * N   , gnamegcond-expand-provideC R4Xi ZV 3hU]L6Mgc  gfilenamefice-9/boot-9.scm \   C 4hU]L6Mgc  gfilenamefice-9/boot-9.scm ^   C hU]4L5CMgc  gfilenamefice-9/boot-9.scm  `   CRhU]6Mgc  gfilenamefice-9/boot-9.scm  b    CP  4 E hz]L456rgmod  gfilenamefice-9/boot-9.scm U   V   V <  V   V    CEh8]4545$C45O456gc  3gsym 3gmod   3gfilenamefice-9/boot-9.scm  c  c d   d  f $  f  + W  3 U   3 CN hx]!45$ LO@45$ LO@45$ LO@4?$ @  6g condition  wgtmp wgtmp  ' wgtmp  C wgtmp  [ wgfilenamefice-9/boot-9.scm Y   w gnamegcondition-matches?CVV h ]4L5$CLL6g condition  gform  grest   gfilenamefice-9/boot-9.scm  k k  m    ChE]L6=gfilenamefice-9/boot-9.scm  n    CNhH]45$LLO@45$ O@6gclauses  Fg alternate  Fgtmp  Fgtmp  * Fgfilenamefice-9/boot-9.scm h   F gnamegmatchCV  hD]LC<gfilenamefice-9/boot-9.scm s    Chl]LO6dgclause  gform  gfilenamefice-9/boot-9.scm  r    CN  h_]L6Wgfilenamefice-9/boot-9.scm w  x   x * x   ChZ]LLO6Rgclause  gfilenamefice-9/boot-9.scm  v    CN hh]!OOQQ45$ O@45$ O@ 6gx  bgcondition-matches?  bgmatch   bgtmp  ( bgtmp  D bgfilenamefice-9/boot-9.scm S   b C5 R 8u` s+h ]444555Cgnum  gfilenamefice-9/boot-9.scm             ,  4               Ch]456wgsrfis  gfilenamefice-9/boot-9.scm }     ~    gnameg use-srfisC R4Xi ZV  NRhi]6agtype  garg  gfilenamefice-9/boot-9.scm      CN  h{]L6sgtype  garg  gfilenamefice-9/boot-9.scm      ,    C3Ph^]456Vgn  gfilenamefice-9/boot-9.scm         CO hx]L456pgn  gfilenamefice-9/boot-9.scm     %  4   %      Cu+PV  h8]C0gtmp-bde397a-1e89    Ch.]45C&gsrfi-n     CN hH]4LO444555545$@  6gn  Egtmp # Egtmp  . Egfilenamefice-9/boot-9.scm          +    !   #  #    E C hxu]45"<45" 6$4?$ O@""$4?$  O@""mgx  qgtmp qgtmp   Mgfilenamefice-9/boot-9.scm    q C5 R4Xi Zu VNRh]6wgname  gformals  gbody   gfilenamefice-9/boot-9.scm      COP SV                hF]LLLL   LLL  L  C>g proc-name  gargs    CN hP]44M45554545$O@  6gname  Ngformals  Ngbody   Ngtmp  # Ngtmp  . Ngfilenamefice-9/boot-9.scm        +   $         ! #    N C hP]H45K45" 6$4?$ O@""gx  Jgprefix  Jgtmp   Jgfilenamefice-9/boot-9.scm       #    J C5 R4 i54JihD]L[C<gfilenamefice-9/boot-9.scm     COhT]L\CLgv  gfilenamefice-9/boot-9.scm    CO5 R4ii4i 5>"G4ii4i 5>"G4i  54i>"Gi4Mi 54ivDh0] 4L54L>"GL6gsym  +gv +gfilenamefice-9/boot-9.scm          +    + CO >"G4i >"G4    54 >"GC+%g%default-prompt-tag Kg%running-exception-handlers D g%exception-handler D gcustom-throw-handler   gnext-id - .gexception-printers VOgprint-location 1Lgscm-error-printer Šgs grtd JM"grtd MNigrtd NrOgrtd O#Ogrtd OPbgrtd PkQgrtd Q Qgrtd QRQgrtd RZSgrtd S Sgrtd STbgrtd TkUgrtd U Ugrtd UVQgrtd VZWgrtd W Wgrtd WXAgrtd XJXgrtd XYgrtd YZ1grtd Z:Zgrtd Z[grtd [\2grtd \;\grtd \]grtd ]^!grtd ^*^grtd ^_qgrtd _z`"grtd `+`grtd `argm gm  tgaccessor groot ].gm vgnoop sgusing-readline? gm gfrom gto gm 6N3gfilenamefice-9/boot-9.scm  +  +  ,   ,  ,  6 <  <  N :  @ > B B I  W &  W 2  W &  X   o         !  & U \     !t  "7 & " . $) = %^ J %e U 'q Y )d d *; o * v + x , z -  -   .  .  />  /B  /F  /J  /N  /R  /V  /Z  /^  /b  /c  /i   /n  q U       T J  S  [ 3 q Y  R  P  U  V  V    I                    &  .  5  >  F  M  V  ^  e  n  v  }                                          %  .  6  =  F  N  U  ^  f  m  v  }     !  ! N ! W # _ #  # m M t M y M \ a  c њ m  s  y  }     i  ު                >                  s J ^ O B T v _  b  i  r  Y {  1 ~  2   9   >      _    ;  <  C  H  Q  X  Z  ^  _  f  k  x                    v      %    6    F    V    p      J      !B  !  "  #;  #  $  %3  %  &P  &  'q  (  (  (  *"  +  ,  -  . $ 0 + 0 6 2 9 4 F 5 S 6 W 7 \ 8* x 8- { (81 { 8 } :  ;  =  @$  B  Dj  E  F  F  F  F  F  J. ] J6  d+  e  f  g # g + g , %g , 1g , %g , g - %g - h / ne 7 pV E q f r y s  t  us  v]  w/  x  x  zI  {  }a  ~  ,   (  ,  4 _ 7  @ | E  P  Z [ h  ~  g \   x K  &    Z & f /  A  D  G . J  M  P  g  g  h  h  h  i  i  i  m  m " m  f  u  u  v  v ! v * w 3 w 8 w A x K x P x Y { x t y   x }       /    M   U V ] ` h m v  # 1      " , K K {    ݨ      9 < ; @ ; t =  B  I  O {   I Q ,T X Y f %k   q 2 3 7  s C        )     %  % ! %  %  +  2 & 5 . 8  :  =  =  >  >  ?  ?  @  @  A  A ! C , C - D 8 D 9 E E E F F R F S G _ G ` H l H m L x L g P  q !P Nm $ gfilenamefice-9/r6rs-libraries.scm|  gfilenamefice-9/boot-9.scm ~     A          #  (  1 ! ; ! @ ! I " R "  "  #  # Z # c $ l $  $ & % / %  %  &  &  &  '  ' 4 ' = ( F ( M ( V ) _ ) f ) z  7 , 8 8 D 7 E ; M ;  ;  :  Y  W  \   7 . ; * < F I F ֌ K K }               0          /        #  3  #                 P C62.0/ccache/ice-9/ls.go000064400000005462151463412640010141 0ustar00GOOF----LE-8-2.0 ]%4hU] gguile  gdefine-module*   gice-9 gls  gfilenameS f ice-9/ls.scm gimportsS g common-list      gexportsS glocal-definitions-in gdefinitions-in glls grecursive-local-define  gset-current-module   gnested-ref-module g module-map g nested-ref greduce gunion gmap g module-uses gcurrent-module !greverse! "greverse #gmodule-define! $gmake-modules-inC5hx]4   54>"Gh^]CVgk  gv  gfilenamef ice-9/ls.scm :    Ch(] 45$66groot  #gnames  #gm  #gfilenamef ice-9/ls.scm 7  8 8   9   :  # ;   # gnameglocal-definitions-inCRh`]6Xgm2  gfilenamef ice-9/ls.scm B   B ; B (  C h8] 45$45445566groot  8gnames  8gm  8gfilenamef ice-9/ls.scm =  > >   ?   A   A .  A  B  % C  - B  . A  0 @  8 D   8 gnamegdefinitions-inCR hq]4455Cigref  gfilenamef ice-9/ls.scm I   J   J ,  J   J    C h8-13$$6456456g various-refs 5gfilenamef ice-9/ls.scm F G   G   H  H   I " L  ) L + + L . M  3 M ' 5 M  5 gnameglsCR hq]4455Cigref  gfilenamef ice-9/ls.scm R   S   S 2  S   S    C h8-13$$6456456g various-refs 5gfilenamef ice-9/ls.scm O P   P   Q  Q   R " U ) U 1 + U . V  3 V - 5 V  5 gnamegllsCR!"#$ h(] 445544556gname  %gvalue  %gparent   %gfilenamef ice-9/ls.scm X  Y   Y  Y   Y   Y   Z   Z %  Z  % Z   % gnamegrecursive-local-defineCRCpgm  ,gfilenamef ice-9/ls.scm    7 i =  F  O  X    C62.0/ccache/ice-9/stack-catch.go000064400000003323151463412640011702 0ustar00GOOF----LE-8-2.0]4hE] gguile  gdefine-module*   gice-9 g stack-catch  gfilenameS fice-9/stack-catch.scm gimportsS g save-stack      gexportsS  gset-current-module   gcatch gthrowC5ha]4   54>"G h(}-134 >"G@ugkey #gargs #gfilenamefice-9/stack-catch.scm + - # .  # Ch]6gkey  gthunk  ghandler   gfilenamefice-9/stack-catch.scm   (    gnameg stack-catchg documentationfLike @code{catch}, invoke @var{thunk} in the dynamic context of @var{handler} for exceptions matching @var{key}, but also save the current stack state in the @var{the-last-stack} fluid, for the purpose of debugging or re-throwing of an error. If thunk throws to the symbol @var{key}, then @var{handler} is invoked this way: @example (handler key args ...) @end example @var{key} is a symbol or #t. @var{thunk} takes no arguments. If @var{thunk} returns normally, that is the return value of @code{catch}. Handler is invoked outside the scope of its own @code{catch}. If @var{handler} again throws to the same key, a new handler from further up the call chain is invoked. If the key is @code{#t}, then a throw to @emph{any} symbol will match this call to @code{catch}.CRCYgm  ,gfilenamefice-9/stack-catch.scm        C62.0/ccache/ice-9/local-eval.go000064400000117401151463412640011537 0ustar00GOOF----LE-8-2.0]x4hLW] gguile  gdefine-module*   gice-9 g local-eval  gfilenameS fice-9/local-eval.scm gimportsS gformat     gsrfi gsrfi-9   ggnu   gsystem gbase gcompile   gsyntax    gexportsS gthe-environment !g local-compile " ! #gset-current-module $# %# &glexical-environment-type 'g#%make-lexical-environment-procedure (gmake-syntax-transformer )( *( +gmake-lexical-environment ,gmacro -g $sc-dispatch .- /- 0g_ 1gany 201111 3g syntax-object 4glambda 5gm-3348ed57c594e3-7 6gtop 756 8gribcage 9gt-3348ed57c594e3-3 :gt-3348ed57c594e3-4 ;gt-3348ed57c594e3-5 7777 ?fl-3348ed57c594e3-c @fl-3348ed57c594e3-d Afl-3348ed57c594e3-e Bfl-3348ed57c594e3-f C?@AB D8=>C E8 Fgx GF H7 Ifl-3348ed57c594e3-9 JI K8GHJ Lgshift Mg proc-name Ngargs OMN P6 QPP Rfl-1e8ba8b5a-60 Sfl-1e8ba8b5a-61 TRS U8OQT Vgkey Wgvalue Xgname Ygformals Zgbody [VWXYZ \PPPPP ]fl-1e8ba8b5a-53 ^fl-1e8ba8b5a-54 _fl-1e8ba8b5a-55 `fl-1e8ba8b5a-56 afl-1e8ba8b5a-57 b]^_`a c8[\b dgmake-procedure-name ed fP gfl-1e8ba8b5a-43 hg i8efh jP kfl-1e8ba8b5a-42 lk m8Gjl n7DEKLEEEEUcim  oghygiene po q34np rgscope sPDEK to u3rst vgwrapper w3vst xgboxes y3xst zgpatterns {3zst |uwy{ }g make-struct ~gm-3348ed57c594e3-1 ~6 gt-1e8ba8b5a-133 gt-1e8ba8b5a-132 gt-1e8ba8b5a-131  gm-1e8ba8b5a-134 6  fl-1e8ba8b5a-138 fl-1e8ba8b5a-139 fl-1e8ba8b5a-13a  8 g ctor-args  fl-1e8ba8b5a-120  8j gctor gfield  fl-1e8ba8b5a-11c fl-1e8ba8b5a-11d  8Q gform g type-name gconstructor-spec g field-names  PPPP fl-1e8ba8b5a-111 fl-1e8ba8b5a-112 fl-1e8ba8b5a-113 fl-1e8ba8b5a-114  8 g record-layout gfunctional-setters gsetters gcopier ggetters g constructor ggetter-identifiers gfield-identifiers  PPPPPPPP fl-1e8ba8b5a-e9 fl-1e8ba8b5a-e7 fl-1e8ba8b5a-e5 fl-1e8ba8b5a-e3 fl-1e8ba8b5a-e1 fl-1e8ba8b5a-df fl-1e8ba8b5a-dd fl-1e8ba8b5a-db  8 fl-1e8ba8b5a-da  8Gj DEKLEEEEE 3}p 3&st 3 p uwy{ q| geach-any 0 gsyntax-violation   fWrong number of arguments g identifier?   PEK 3't   f-source expression failed to match any pattern grecord-type-vtable   gpwpwpwpw gdefault-record-printer   rvxz gset-struct-vtable-name!   gvtable-offset-user   g%lexical-environment?-procedure glexical-environment? 01 gm-3348ed57c594e3-1a 6 gt-3348ed57c594e3-19   fl-3348ed57c594e3-1f  8 fl-3348ed57c594e3-1c  8G ELEEEEUcim  34p gobj gt-1e8ba8b5a-224 gt-1e8ba8b5a-21e gt-1e8ba8b5a-21f gt-1e8ba8b5a-220 gt-1e8ba8b5a-223 gt-1e8ba8b5a-222 gt-1e8ba8b5a-221  gm-1e8ba8b5a-225 6  fl-1e8ba8b5a-229 fl-1e8ba8b5a-22a fl-1e8ba8b5a-22b fl-1e8ba8b5a-22c fl-1e8ba8b5a-22d fl-1e8ba8b5a-22e fl-1e8ba8b5a-22f  8 g copier-id  fl-1e8ba8b5a-21c  8j g ctor-name   fl-1e8ba8b5a-214     8j     fl-1e8ba8b5a-212   8 j glayout  fl-1e8ba8b5a-210  8j g immutable?  fl-1e8ba8b5a-20e  8j g field-count  fl-1e8ba8b5a-20c  8j g getter-ids   !fl-1e8ba8b5a-209 "! #8 j" $g field-ids %$ &fl-1e8ba8b5a-206 '& (8%j' )gpredicate-name *g field-spec +)* ,PPPPPP -fl-1e8ba8b5a-1f9 .fl-1e8ba8b5a-1fa /fl-1e8ba8b5a-1fb 0fl-1e8ba8b5a-1fc 1fl-1e8ba8b5a-1fd 2fl-1e8ba8b5a-1fe 3-./012 48+,3 5ELEEEEEE EEEEE#E(4 635p 76 8gand 9385p :gstruct? ;3:5p <;6 =geq? >3=5p ?g struct-vtable @3?5p A@6 BPE C3&Bt D>AC E9<D F7E GPE H3Gt Igthrow-bad-struct JI KI Lg lexenv-scope Mg%lexenv-scope-procedure Ngfree-id Og %%on-error Pgm-3348ed57c594e3-26 QP6 RQ Sfl-3348ed57c594e3-28 TS U8GRT VQEULEEEEUcim  W3OVp XNW YX1 Zg%%type [gt-1e8ba8b5a-14b \gt-1e8ba8b5a-14c ]gt-1e8ba8b5a-14d ^gt-1e8ba8b5a-14e _gt-1e8ba8b5a-14f `gt-1e8ba8b5a-150 agt-1e8ba8b5a-151 b[\]^_`a cgm-1e8ba8b5a-152 dc6 eddddddd ffl-1e8ba8b5a-156 gfl-1e8ba8b5a-157 hfl-1e8ba8b5a-158 ifl-1e8ba8b5a-159 jfl-1e8ba8b5a-15a kfl-1e8ba8b5a-15b lfl-1e8ba8b5a-15c mfghijkl n8bem oggetter pgindex qop rfl-1e8ba8b5a-149 sfl-1e8ba8b5a-14a trs u8qQt v wPPP xfl-1e8ba8b5a-144 yfl-1e8ba8b5a-145 zfl-1e8ba8b5a-146 {xyz |8vw{ }EULEnEEEuE| ~3Z}p N~ 0Y1 gck gerr gs  QQ fl-3348ed57c594e3-2b fl-3348ed57c594e3-2c  8 QEULEEEEUcim  3p gquote 3p PEU 3&t   g%%index 3}p N 0Y1 fl-3348ed57c594e3-30 fl-3348ed57c594e3-31  8 QEULEEEEUcim  3p 3p EU 3 t   g%%copier 3}p N 0Y1 fl-3348ed57c594e3-35 fl-3348ed57c594e3-36  8 QEULEEEEUcim  3p 3p g%%%lexical-environment-type-set-fields PEU 3t   gt-3348ed57c594e3-25  fl-3348ed57c594e3-3a  8R QEULEEEEUcim  34p EULEnEEEuE| 3p  gif 3p 3=p 3?p  PEU 3&t  g struct-ref 3p EU 3 t  3Ip 3p 3Lt     PEU 3Mt glexenv-wrapper g%lexenv-wrapper-procedure gm-3348ed57c594e3-41 6  fl-3348ed57c594e3-43  8G ELEEEEUcim  3Op N 1 ELEnEEEuE| 3Zp N 01  fl-3348ed57c594e3-46 fl-3348ed57c594e3-47  8 ELEEEEUcim  3p 3p PE 3&t   3p N 01 fl-3348ed57c594e3-4b fl-3348ed57c594e3-4c  8 ELEEEEUcim  3p 3p E 3 t   3p N 01 fl-3348ed57c594e3-50 fl-3348ed57c594e3-51  8 ELEEEEUcim  3p 3p PE 3t    gt-3348ed57c594e3-40     fl-3348ed57c594e3-55     8    ELEEEEUcim  34p  ELEnEEEuE| 3p  3p 3=p 3?p  P E 3&t  3p  E 3 t  3Ip 3p  3t !  "! #" $# %PE &3%t 'g lexenv-boxes (g%lexenv-boxes-procedure )gm-3348ed57c594e3-5c *)6 +* ,fl-3348ed57c594e3-5e -, .8G+- /*E.LEEEEUcim  03O/p 1N0 211 3E.LEnEEEuE| 43Z3p 5N4 60251 7** 8fl-3348ed57c594e3-61 9fl-3348ed57c594e3-62 :89 ;87: <*;E.LEEEEUcim  =3<p >3<p ?P;E. @3&?t A>@ BA C33p DNC E02D1 Ffl-3348ed57c594e3-66 Gfl-3348ed57c594e3-67 HFG I87H J*IE.LEEEEUcim  K3Jp L3Jp MIE. N3 Mt OLN PO Q33p RNQ S02R1 Tfl-3348ed57c594e3-6b Ufl-3348ed57c594e3-6c VTU W87V X*WE.LEEEEUcim  Y3Xp Z3Xp [PWE. \3[t ]Z\ ^] _gt-3348ed57c594e3-5b `_ afl-3348ed57c594e3-70 ba c8`+b d*cE.LEEEEUcim  e34dp fcE.LEnEEEuE| g3fp hg i3fp j3=fp k3?fp lkg mPcE. n3&mt ojln p3fp qcE. r3 qt spgr t3Ifp u3fp v3'mt wuv xtgw yiosx zehy {PE. |3({t }glexenv-patterns ~g%lexenv-patterns-procedure gm-3348ed57c594e3-77 6  fl-3348ed57c594e3-79  8G ELEEEEUcim  3Op N 1 ELEnEEEuE| 3Zp N 01  fl-3348ed57c594e3-7c fl-3348ed57c594e3-7d  8 ELEEEEUcim  3p 3p PE 3&t   3p N 01 fl-3348ed57c594e3-81 fl-3348ed57c594e3-82  8 ELEEEEUcim  3p 3p E 3 t   3p N 01 fl-3348ed57c594e3-86 fl-3348ed57c594e3-87  8 ELEEEEUcim  3p 3p PE 3t   gt-3348ed57c594e3-76  fl-3348ed57c594e3-8b  8 ELEEEEUcim  34p ELEnEEEuE| 3p  3p 3=p 3?p  PE 3&t  3p E 3 t  3Ip 3p 3}t     PE 3~t geach 11  1Ռ 1֌ 1׌ g %%set-fields gdummy gcheck? gexpr o gm-3348ed57c594e3-92 6  fl-3348ed57c594e3-97 fl-3348ed57c594e3-98 fl-3348ed57c594e3-99 fl-3348ed57c594e3-9a fl-3348ed57c594e3-9b  8  fl-3348ed57c594e3-94  8G gt-1e8ba8b5a-16a gt-1e8ba8b5a-16c gt-1e8ba8b5a-16b  gm-1e8ba8b5a-16d 6  fl-1e8ba8b5a-171 fl-1e8ba8b5a-172 fl-1e8ba8b5a-173  8 fl-1e8ba8b5a-167 fl-1e8ba8b5a-168 fl-1e8ba8b5a-169  8vw ELEEEE  3p PE 3&t 3Lt 3t 3't 3}t  gmap    glist  gset-record-type-printer!  f'#  g syntax-module  glength gsyntax-object-of g datum->syntax gt-3348ed57c594e3-cd  gm-3348ed57c594e3-ce 6  fl-3348ed57c594e3-d1  8 fl-3348ed57c594e3-cb  8Gj  fl-3348ed57c594e3-c8  8j PEE  3t !gmake-box "g case-lambda #gv $# %gm-3348ed57c594e3-d4 &%6 '&P (fl-3348ed57c594e3-d9 )fl-3348ed57c594e3-da *() +8$'* ,& -fl-3348ed57c594e3-d6 .- /8G,. 0P+E/ 13"0t 23F0t 32 4gset! 5340t 6gset-procedure-property! 7gidentifier-syntax-box 8gmake-transformer-from-box 9gidentifier-syntax-from-box :gbox ;: =P ?fl-3348ed57c594e3-e7 @fl-3348ed57c594e3-e8 A?@ B8;>A C= Dfl-3348ed57c594e3-e4 ED F8GCE GPBEF H38Gt I3Gt Jgidentifier-syntax K3JGt Lgid M3LGt N34Gt O3FGt PNMO QO Rgmake-variable-transformer Sf1unsupported binding captured by (the-environment) Tgunsupported-binding Ug... Vgt-3348ed57c594e3-f9 WV Xgm-3348ed57c594e3-fa YX6 ZY [fl-3348ed57c594e3-fd \[ ]8WZ\ ^gloop _gn `^_ afl-3348ed57c594e3-f3 bfl-3348ed57c594e3-f4 cfl-3348ed57c594e3-f5 dabc e8`wd fglvl gLf hfl-3348ed57c594e3-f1 ifl-3348ed57c594e3-f2 jhi k8gQj lPE]EeEk m3Ult nm ogwithin-nested-ellipses pgsyntax-local-binding qglexical rgor-map sgbound-identifier=? tghere ugmktmp vu wfl-3348ed57c594e3-101 xw y8vfx zgids {z |fl-3348ed57c594e3-100 }| ~8{j} PEy~ 3tt ggensym ft  gt-3348ed57c594e3-11f  gm-3348ed57c594e3-120 6  fl-3348ed57c594e3-123  8 gt  fl-3348ed57c594e3-11d  8j V gm-3348ed57c594e3-118 6  fl-3348ed57c594e3-119  8 gtype gval  fl-3348ed57c594e3-116 fl-3348ed57c594e3-117  8Q Lz fl-3348ed57c594e3-110 fl-3348ed57c594e3-111  8Q glp gcapture gwrappers zYz fl-3348ed57c594e3-103 fl-3348ed57c594e3-104 fl-3348ed57c594e3-105 fl-3348ed57c594e3-106 fl-3348ed57c594e3-107 fl-3348ed57c594e3-108  8, PEEEEEEEEy~ 3!t 111 g let-syntax gt-3348ed57c594e3-128 gt-3348ed57c594e3-127 gt-3348ed57c594e3-129  gm-3348ed57c594e3-12a 6  fl-3348ed57c594e3-12e fl-3348ed57c594e3-12f fl-3348ed57c594e3-130  8 fl-3348ed57c594e3-126  8Gj PEEEEEEEEEEEy~ 3t 39t gdisplaced-lexical gprocedure-property gt-3348ed57c594e3-139 gt-3348ed57c594e3-138 gt-3348ed57c594e3-13a  gm-3348ed57c594e3-13b 6  fl-3348ed57c594e3-13f fl-3348ed57c594e3-140 fl-3348ed57c594e3-141  8 fl-3348ed57c594e3-137  8Gj gb  fl-3348ed57c594e3-134  8j PEEEEEEEEEEEy~ 3t 39t gt-3348ed57c594e3-148 gt-3348ed57c594e3-147 gt-3348ed57c594e3-149  gm-3348ed57c594e3-14a 6  fl-3348ed57c594e3-14e fl-3348ed57c594e3-14f fl-3348ed57c594e3-150  8 fl-3348ed57c594e3-146  8Gj PEEEEEEEEEEEy~ 3t 3Tt 3t gpattern-variable fp  g with-syntax gt-3348ed57c594e3-15b gt-3348ed57c594e3-15a gt-3348ed57c594e3-15c  gm-3348ed57c594e3-15d 6  fl-3348ed57c594e3-161 fl-3348ed57c594e3-162 fl-3348ed57c594e3-163  8 fl-3348ed57c594e3-159  8Gj gnested  fl-3348ed57c594e3-154 fl-3348ed57c594e3-155  8Q  PEEEEEEEEEEEy~  3 t  3 t  PEEEEEEEy~  3t t g syntax->datum gellipsis g with-ellipsis gt-3348ed57c594e3-16a gt-3348ed57c594e3-169  gm-3348ed57c594e3-16b 6  fl-3348ed57c594e3-16f fl-3348ed57c594e3-170  8 fl-3348ed57c594e3-168  8Gj PEEEEEEEEEEy~ 3t  gerror !fwhat "ganalyze-identifiers #1 $g syntax-locally-bound-identifiers %gbegin &gwrap-expression '& (fl-3348ed57c594e3-186 )( *8'f) +Yz ,fl-3348ed57c594e3-182 -fl-3348ed57c594e3-183 .fl-3348ed57c594e3-184 /fl-3348ed57c594e3-185 0,-./ 18+0 2 r 3fl-3348ed57c594e3-17a 4fl-3348ed57c594e3-17b 534 682Q5 7fl-3348ed57c594e3-174 87 98Gj8 :P**16E9 ;3%:t <3:t =gexp >3=:t ?;<> @ A@1 Bgf Cgc Dgpname Egplvl Fgpformal Ggwrapped HBCDEFG Ifl-3348ed57c594e3-193 Jfl-3348ed57c594e3-194 Kfl-3348ed57c594e3-195 Lfl-3348ed57c594e3-196 Mfl-3348ed57c594e3-197 Nfl-3348ed57c594e3-198 OIJKLMN P8H,O QPEP**16E9  R3+Qt S3Qt T34Qt U3=Qt V3Qt WUU X3 Qt Y3Qt Zgmodule? [finvalid lexical environment \gresolve-module ]g env-module ^g env-boxes _gt-3348ed57c594e3-1d7 `_ agm-3348ed57c594e3-1d8 ba6 cb dfl-3348ed57c594e3-1db ed f8`ce gge hFg ifl-3348ed57c594e3-1be jfl-3348ed57c594e3-1bf kij l8hQk mPEfEEl n34mt o3mt pg local-wrap qgeval rgoptsS sr  ts ugenvS vgfromS wgschemeC5h0B]4   "54%>"G&h]Cgscope  gwrapper  gboxes   gpatterns   gfilenamefice-9/local-eval.scm     gnameg#%make-lexical-environment-procedureC'R4*+,/2h]Cgt-3348ed57c594e3-3  gt-3348ed57c594e3-4  gt-3348ed57c594e3-5   gt-3348ed57c594e3-6      C+hW]L6Oga  gfilenamefice-9/local-eval.scm     C0hG]L6?gfilenamefice-9/local-eval.scm      Ch]C   C hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/local-eval.scm    n C5+R&֨4&>"G ܖ'i&R&h]$CC|gobj  gfilenamefice-9/local-eval.scm     gnameg%lexical-environment?-procedureCR4*,/Fh;]C3gt-3348ed57c594e3-19    ChW]L6Oga  gfilenamefice-9/local-eval.scm     C0hG]L6?gfilenamefice-9/local-eval.scm      CHh]C   C hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenamefice-9/local-eval.scm    n C5R&KLhz]& C6rgs  gfilenamefice-9/local-eval.scm     gnameg%lexenv-scope-procedureCMR4*L,/h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch;]C3gt-3348ed57c594e3-25    CLhW]L6Oga  gfilenamefice-9/local-eval.scm     C0hG]L6?gfilenamefice-9/local-eval.scm      Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefice-9/local-eval.scm    C5LR&Kh|]& C6tgs  gfilenamefice-9/local-eval.scm     gnameg%lexenv-wrapper-procedureCR4*,/h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    C$h;]C3gt-3348ed57c594e3-40    ChW]L6Oga  gfilenamefice-9/local-eval.scm     C0hG]L6?gfilenamefice-9/local-eval.scm      C&h]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefice-9/local-eval.scm    C5R&K'h z]& C6rgs  gfilenamefice-9/local-eval.scm     gnameg%lexenv-boxes-procedureC(R4*',/6=Bh:]C2gerr  gs    CEKPh:]C2gerr  gs    CSY^h:]C2gerr  gs    Czh;]C3gt-3348ed57c594e3-5b    C'hW]L6Oga  gfilenamefice-9/local-eval.scm     C0hG]L6?gfilenamefice-9/local-eval.scm      C|h]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefice-9/local-eval.scm    C5'R&K}h }]& C6ugs  gfilenamefice-9/local-eval.scm     gnameg%lexenv-patterns-procedureC~R4*},/h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch;]C3gt-3348ed57c594e3-76    C}hW]L6Oga  gfilenamefice-9/local-eval.scm     C0hG]L6?gfilenamefice-9/local-eval.scm      Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefice-9/local-eval.scm    C5}R4*,/ h v]45Cngdummy  gcheck?  gs   ggetter   gexpr      Ch(] 45$@6gx  "gtmp "gfilenamefice-9/local-eval.scm    " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5R4 i&i   &KL '} hp]4& " 4554&  " 4554&  " 4 556ge  jgport  jgfilenamefice-9/local-eval.scm $  %  &  &  ' & ( '  - '  G '  H ' ( M ' 0 g ' ( h ' j %   j C>"G4*,/ hp] 45Chgx  gtmp gfilenamefice-9/local-eval.scm  ,  ,    Ch(j] 45$@6bgform  "gtmp "gfilenamefice-9/local-eval.scm *   " C5R4*!,/135h <]C4gdummy  gv     Ch(] 45$@6gx  "gtmp "gfilenamefice-9/local-eval.scm .   " g macro-typeg syntax-rulesgpatternsgvC5!R67h ]4>"GCgid  gtrans  gfilenamefice-9/local-eval.scm 3  4  4 !  4    gnamegmake-transformer-from-boxC8R4*9,/HIKMPQh(>]C6gdummy  (gbox  (  ( Ch(] 45$@6gx  "gtmp "gfilenamefice-9/local-eval.scm 7   " g macro-typeg syntax-rulesgpatternsgboxC59RRSho]6ggx  gfilenamefice-9/local-eval.scm ?   A   B  @   Ch]6ygname  gfilenamefice-9/local-eval.scm =  >    gnamegunsupported-bindingCTRnh0]" $C""gid  -glvl  -gs   !gn   !gfilenamefice-9/local-eval.scm E  F  G   G   I ! I  ! F   - gnamegwithin-nested-ellipsesCoRpqrsha]L6Ygx  gfilenamefice-9/local-eval.scm  '  C/h ]Cxgt-3348ed57c594e3-128  gt-3348ed57c594e3-127  gt-3348ed57c594e3-129      Ch0]LL45$@6zgx  -gtmp -gtmp   -gfilenamefice-9/local-eval.scm  "  - C,7/h ]Cxgt-3348ed57c594e3-139  gt-3348ed57c594e3-138  gt-3348ed57c594e3-13a      Ch0]LL45$@6zgx  -gtmp -gtmp   -gfilenamefice-9/local-eval.scm  "  - C/h ]Cxgt-3348ed57c594e3-148  gt-3348ed57c594e3-147  gt-3348ed57c594e3-149      Ch0]LL45$@6zgx  -gtmp -gtmp   -gfilenamefice-9/local-eval.scm  "  - Co/  h ]Cxgt-3348ed57c594e3-15b  gt-3348ed57c594e3-15a  gt-3348ed57c594e3-15c      Ch0]LL45$@6zgx  -gtmp -gtmp   -gfilenamefice-9/local-eval.scm    - C /h^]CVgt-3348ed57c594e3-16a  gt-3348ed57c594e3-169    Ch0]L45$@6zgx  +gtmp +gtmp   +gfilenamefice-9/local-eval.scm    + C !h]5( D4> G$g4O5$"4455     O"d $"C $Y4 5  $(   O"O"$U445545    O4455 "$ O"Z6gids  gcapture  gformals   gwrappers   gpatterns   gid   gids   gtype  ' gval  ' gt o gb !gt B gnested B  gfilenamefice-9/local-eval.scm            % *  7 8  I  a  b  g  k " m  o  o  }       0     .      !  * +  0 * 4 2 6 * 8  9  @ 8 B  B  X  Y ! ^ 7 f ! i ! n  q            <   gnameglpCh ] OQ6gids  glp gfilenamefice-9/local-eval.scm ~     ,  ;  J     gnameganalyze-identifiersC"R4* ,/#h7]C/gthe-environment    C"$h0]"(C45"L"gx  .gx  "gwrappers   "gfilenamefice-9/local-eval.scm          * "  "   . gnamegwrap-expressionC?/ARSTUVW XXYSh]C~gtmp-3348ed57c594e3-1a5  gtmp-3348ed57c594e3-1a4  gtmp-3348ed57c594e3-1a3      C hP]L45  4 5Cgf  Ogc  Ogpname   Ogplvl   Ogpformal   Ogwrapped   O  O C hh<]:445> GOQ4545$ O@ 64gthe-environment  agscope  agcapture   agformals   agwrappers   agpatterns   agwrap-expression  % agtmp  : agtmp  E a gfilenamefice-9/local-eval.scm         1 " :   a Ch@y]45$@45$@6qgx  9gtmp 9gtmp  " 9gfilenamefice-9/local-eval.scm   9 C5 RZ [&\ hH]"45$C6$& 4 56""ge  Agfilenamefice-9/local-eval.scm            #  &  / - 5 < 7 - 9   A gnameg env-moduleC]RZ [&h@]"45$C6$& C""ge  9gfilenamefice-9/local-eval.scm              "  %  0   9 gnameg env-boxesC^RZno [&oh(]456gl  #gname  #glvl   #gscope   #gfilenamefice-9/local-eval.scm          , #   # C h` ]"45$ C6$*& 4 54  5@""gx  Yge  Ygfilenamefice-9/local-eval.scm      $ $  '  +  .  8 9 ?  C D M  O Q   Y gnameg local-wrapCpRqp]^h ]44545545@gx  ge  gfilenamefice-9/local-eval.scm         gnameg local-evalg documentationfGEvaluate the expression @var{x} within the lexical environment @var{e}.CRtpu]vwr^ hHU-/03#4454554 5@Mgx  Dge  Dgopts   Dgfilenamefice-9/local-eval.scm  (   + ) 5  ; <  D   D  goptsS gnameg local-compileg documentationfSCompile and evaluate the expression @var{x} within the lexical environment @var{e}.C!RCgm  ,grtd  :gfilenamefice-9/local-eval.scm      " " 3 $ = % E 41 ~ ;N datum *) +) ,g datum->syntax -, ., /ggensym 0glet 1f 21 3gor 4gcurrent-input-port 54 635 76 8gif 9glet* :g secs-usecs ;g gettimeofday <; =:< >= ?g+ @gcar A@: Bg/ Cgcdr DC: EBDB@ F?AE G9>F H8G IH Jg next-char Kgand Lgnot M Ng read-char Og eof-object? Pgset! Qg string-append Rgstring Sgcond Tgappend UT VT Wgreverse Xg=> Yglength Zgapply [g scm-error \g misc-error ]fexpect ^fbad recipient: ~S _gmap `gelse aJ b`a cb dgsyntax-violation ed fd gf-source expression failed to match any pattern hgregexp/newline ig regexp/noteol jg make-regexp k lglambda mgs ngeof? omn pgselect qg regexp-exec rgmatch:substring sg match:countC5h` ]4   54>"GRRRRR4!"%(+./027IJ8KLMNOPQRSVWXYZ[\]^_@C`c$hq-1345454545       4"( 45"("M&@45 $"45""s454 5"V!"" #5Cigclauses gs  gc   gport   gtimeout   gtests  @gexprs  @gbody  @gfilenamefice-9/expect.scm 1 2  3  4   5   2  ' 6  O  R  T  W  X  Z  Z  [ * [  \ # ] ( ] 5 [  ^ / ^ 7 ^ / ^ , ^ #  e '  e 1  f 2  e '  ` '  ` 2  a 2 " b 2 % c 8 ( c 2 + ` ' 2 h # 3 Z  6 Y  @ V  @ O  A O ) J P ) S Q ( ] O  _ 6 /  Chd] 45L4?6\gargs  gv gfilenamefice-9/expect.scm  1    Cfgh(b] 45$ O@6Zgy  'gtmp 'gfilenamefice-9/expect.scm 1   ' C5RhiRiiR4!"%(+.0W/jklo_@C h-13"a(4545"c45 "4  54  5"Cgclauses gtests  pgexprs   pgdefs   pgbody   pgrxname  2 pgfilenamefice-9/expect.scm x y   y  }  ~   ~ (  ~ 3 & ~ ( ) ~  . ! 2  7 : > & A 2 C & K M & ] * ^ & a m  p y q y ! z z ! { | y y  Chd] 45L4?6\gargs  gv gfilenamefice-9/expect.scm  x    Cfgh(b] 45$ O@6Zgy  'gtmp 'gfilenamefice-9/expect.scm x   ' C5R;ph@L]45B@ $45CCDgport  :gtimeout  :g secs-usecs   :grelative   :gfilenamefice-9/expect.scm                 # '  (  /  0 ) 1 - 5  6  7   : gnameg expect-selectCRiqrsh]#""$$$ """"4 5$7"" $C45"45"C|grx  gs  geof?   gflags  0 gmatch  > gi  J lgresult  J lgfilenamefice-9/expect.scm       0  3  >  F  J  N R  X * Y  d  l  m  t  u  }    gnamegexpect-regexecCRCgm  ,gfilenamefice-9/expect.scm   0 ) 4 * 8 + < , @ -  s  t 7 W   Y C62.0/ccache/ice-9/calling.go000064400000026032151463412640011130 0ustar00GOOF----LE-8-2.0,]m4h] gguile  gdefine-module*   gice-9 gcalling  gfilenameS fice-9/calling.scm gexportsS gwith-excursion-function gwith-getter-and-setter g with-getter g!with-delegating-getter-and-setter g with-excursion-getter-and-setter g$with-configuration-getter-and-setter g/with-delegating-configuration-getter-and-setter g(let-with-configuration-getter-and-setter    gset-current-module   gmake-syntax-transformer   gmacro g $sc-dispatch   g_ gany !  "g syntax->datum #" $" %g datum->syntax &% '% (gexcursion-function-syntax )gsyntax-violation *) +) ,f-source expression failed to match any pattern -ggetter-and-setter-syntax .g#delegating-getter-and-setter-syntax /gmap 0ggensym 1ftemp 2fswap 3fthunk 4glambda 5gletrec 6 7gbegin 8gset! 9g dynamic-wind :fargs ;fan-arg gsymbol->keyword ?glet @gif Agnull? Bgquote CB Dgall-vals Egvals FED Ggkws HAE Ig quasiquote Jgunquote Kgcar LKG MJL NKE OJN Pgunquote-splicing Qgcdr RQE SQG TRS Ugcase Vgappend Wgelse Xgthrow Ygbad-get-option ZBY [gor \gcadr ]gbad-set-option ^B] _gcddr `gappend! ag simpler-get bg simpler-set cg body-proc dabc eabc f4de ggkw hg iglist jgnew-val kgj ljC5h#p]4   54>"G4 !$'(hx]45Cpgvars  gproc  gfilenamefice-9/calling.scm /  0  0    Che] 45L4?6]gargs  gv gfilenamefice-9/calling.scm  /    C+,h(c] 45$ O@6[gy  'gtmp 'gfilenamefice-9/calling.scm /   ' C5 R4 !$'-hx]45Cpgvars  gproc  gfilenamefice-9/calling.scm \  ] ]   Che] 45L4?6]gargs  gv gfilenamefice-9/calling.scm  \    C+,h(c] 45$ O@6[gy  'gtmp 'gfilenamefice-9/calling.scm \   ' C5 R4!$'-h]45Cxgvars  gproc  gfilenamefice-9/calling.scm d  e  e  e    Che] 45L4?6]gargs  gv gfilenamefice-9/calling.scm  d    C+,h(c] 45$ O@6[gy  'gtmp 'gfilenamefice-9/calling.scm d   ' C5R4!$'.h]45Cgvars  g get-delegate  g set-delegate   gproc   gfilenamefice-9/calling.scm u  v  v    Che] 45L4?6]gargs  gv gfilenamefice-9/calling.scm  u    C+,h(c] 45$ O@6[gy  'gtmp 'gfilenamefice-9/calling.scm u   ' C5R4!$'(-h]4545C|gvars  gproc  gfilenamefice-9/calling.scm      Chf] 45L4?6^gargs  gv gfilenamefice-9/calling.scm     C+,h(d] 45$ O@6\gy  'gtmp 'gfilenamefice-9/calling.scm   ' C5R/012345678h(n]LLCfgn  #gsn  #gfilenamefice-9/calling.scm $  &  # Chn]Cfgsn  gn  gfilenamefice-9/calling.scm  '  C9 hpw]!454545454 O54 5 Cogvars  ogsaved-value-names og tmp-var-name  og swap-fn-name  og thunk-name  ogfilenamefice-9/calling.scm                    *  <  L  Q  \   o gnamegexcursion-function-syntaxC(R0:;<=/>4?@ACDBFGHIMOPT/UVhn]Cfgkw  gv  gfilenamefice-9/calling.scm (  7  CWXZ[QK\8hn]LCfgkw  gv  gfilenamefice-9/calling.scm #  2   C^_%hx])4545454545   ( "P     4455     !44"O5#5$Cgvars  ug args-name ' ug an-arg-name  ' ug new-val-name  ' ug loop-name  ' ugkws  ' ugfilenamefice-9/calling.scm                        '  3 R  T  Z  " # # " 2  5  F  W  X t !  u gnameggetter-and-setter-syntaxC-R0:;<=/>4?@A`CDBFGHIMOPT/UVhn]Cfgkw  gv  gfilenamefice-9/calling.scm (  7  CWK[Q\8hn]LCfgkw  gv  gfilenamefice-9/calling.scm #  2   C_#hZ]+4545454545    ( "P    4455     44!O55"CRgvars  g get-delegate  g set-delegate   g args-name  ' g an-arg-name  ' g new-val-name  ' g loop-name  ' gkws  ' gfilenamefice-9/calling.scm                        '  3 T  V  \  " # # " ?  B  S  d  e  !   gnameg#delegating-getter-and-setter-syntaxC.R4!$'f4hUg/>ih8] 45$ "Cgv  1gt  -gfilenamefice-9/calling.scm        0          $  0 '  8 *  0 0    1 Ck>l8h8] 45$ " Cgv  3gt  /gfilenamefice-9/calling.scm        0            B %  0 (  8 *  0 2    3 C h8]454 5Cgvars-etc  6gproc  6gfilenamefice-9/calling.scm         #  ,    6 Chf] 45L4?6^gargs  gv gfilenamefice-9/calling.scm      C+,h(d] 45$ O@6\gy  'gtmp 'gfilenamefice-9/calling.scm    ' C5R4!$'f4hUg`/>ih8] 45$ "Cgv  1gt  -gfilenamefice-9/calling.scm     (   9  (  $  ! )   ' $ " 8 ' " @ * " 8 0  $  1 CWk>l8h8] 45$ " Cgv  3gt  /gfilenamefice-9/calling.scm (   ( (  ( 9 ( ( ( $  * )  ) '  * J % + 8 ( + @ * + 8 2 ( $  3 C h`]445 5 44 5  5Cgvars-etc  Zg delegate-get  Zg delegate-set   Zgproc   Zgfilenamefice-9/calling.scm          $  '  (   5 ( 8 (  B -  O ( P    Z Chf] 45L4?6^gargs  gv gfilenamefice-9/calling.scm      C+,h(d] 45$ O@6\gy  'gtmp 'gfilenamefice-9/calling.scm    ' C5R4!$'?/hp]Chgv  gfilenamefice-9/calling.scm C   C   C & C   Chy]Cqgv  gfilenamefice-9/calling.scm D 1  D @  D I D T  D =   Ch(]4545Cgvars-etc  !gproc  !gfilenamefice-9/calling.scm B  C   C  C   D ,  C   ! Chf] 45L4?6^gargs  gv gfilenamefice-9/calling.scm  B    C+,h(d] 45$ O@6\gy  'gtmp 'gfilenamefice-9/calling.scm B   ' C5RChgm  (gfilenamefice-9/calling.scm    ]   # C62.0/ccache/ice-9/hcons.go000064400000006355151463412640010637 0ustar00GOOF----LE-8-2.0 ]!4hm] gguile  gdefine-module*   gice-9 ghcons  gfilenameS fice-9/hcons.scm gexportsS ghashq-cons-hash ghashq-cons-assoc ghashq-cons-get-handle ghashq-cons-create-handle! ghashq-cons-ref ghashq-cons-set! g hashq-cons g hashq-conser gmake-gc-buffer     gset-current-module   ghashq ghashx-get-handle ghashx-create-handle! g hashx-ref g hashx-set! gmake-doubly-weak-hash-table g make-list gappend!C5h ]4   54>"Gh0]4?54?5Cgpair  )gn  )gfilenamefice-9/hcons.scm "  #   #   #   $   $  $ $  % # ( #   ) gnameghashq-cons-hashC R hp&] (C$D$7$)&&"""""$C6gkey  jgl  jgt  V jgfilenamefice-9/hcons.scm '  (  )   )  *   *   )  +   +  " ) % ,  ( ,  . ) 1 -  4 -  : ) = .  V )  h / ! j /   j gnameghashq-cons-assocC R  h]6gtable  gkey  gfilenamefice-9/hcons.scm 1  2    gnameghashq-cons-get-handleCR  h]6gtable  gkey  ginit   gfilenamefice-9/hcons.scm 4  5    gnameghashq-cons-create-handle!CR  h]6gtable  gkey  gfilenamefice-9/hcons.scm 7  8    gnameghashq-cons-refCR  h]6gtable  gkey  gval   gfilenamefice-9/hcons.scm :  ;    gnameghashq-cons-set!CRh]45Cgtable  ga  gd   gfilenamefice-9/hcons.scm =  >  > (  >   >    gnameg hashq-consCRhi]L6aga  gd  gfilenamefice-9/hcons.scm D  D   Ch ] $"45OCghash-tab-or-size  gtable  gfilenamefice-9/hcons.scm @  A  A   C   A   gnameg hashq-conserCR hm]MMNCegnext  gfilenamefice-9/hcons.scm L   M  N  N    Ch(] 45H4JJ>"GOCgn  (gring (gfilenamefice-9/hcons.scm I  J  J  K   ( gnamegmake-gc-bufferCRCgm  (gfilenamefice-9/hcons.scm   * "  '  1 a 4  7  :  =  @ x I   z C62.0/ccache/ice-9/regex.go000064400000016612151463412640010634 0ustar00GOOF----LE-8-2.0r]34h] gguile  gdefine-module*   gice-9 gregex  gfilenameS fice-9/regex.scm gexportsS g match:count g match:string g match:prefix g match:suffix g regexp-match? g regexp-quote g match:start g match:end gmatch:substring g string-match gregexp-substitute g fold-matches g list-matches gregexp-substitute/global    gset-current-module   g vector-length g substring gstring? !ginteger? "gcall-with-output-string #gstring-for-each $g write-char %g make-regexp &g regexp-exec 'gfor-each (gdisplay )gpre *gpost +gerror ,gwrong-type-arg -gregexp? .g regexp/notbol /g string-length 0greverse! 1gcons 2g procedure?C5h]4   54>"Gh}]45Cugmatch  gfilenamefice-9/regex.scm ;  <  <   gnameg match:countC Rhv] Cngmatch  gfilenamefice-9/regex.scm >  ?    gnameg match:stringC R h]45 4 56~gmatch  gfilenamefice-9/regex.scm A  B B $  B    gnameg match:prefixCR h]454 56~gmatch  gfilenamefice-9/regex.scm D  E E "  E    gnameg match:suffixCR !hpM] $a4 5$R"G45$C$+45$45$ "CCC "CCEgmatch  lgi  agfilenamefice-9/regex.scm J  K  K  L   L   L   K   M   N  $ N  ( N / O  0 O  4 N 5 P  < P $ = P  ? P  C O  D Q  K Q $ L Q  N Q  R O  U R  [ R  a M   l gnameg regexp-match?CR"#$h]*$"=.$"/\$"!^$"$$"[$4\L>"GL6($"K)$"=+$"/?$"!{$"}$"|$04[L>"G4L>"G]L6L6gc  gfilenamefice-9/regex.scm g  h  R j  m k  v h  m  n  o   q    ChZ]OL6Rgp  gfilenamefice-9/regex.scm f   g    Chw]O6ogstring  gfilenamefice-9/regex.scm d e   gnameg regexp-quoteCRh0-.,3#  $CCgmatch ,gn ,gstart   ,gfilenamefice-9/regex.scm t  u &  u   u   u  # v  ' v  , gnameg match:startCRh0-.,3#  $CCgmatch ,gn ,gend   ,gfilenamefice-9/regex.scm x  y %  y   y   y  # z  ' z  , gnameg match:endCR hP-.,3# 4545$$456CCgmatch Jgn Jgstart   Jgend  ) Jgfilenamefice-9/regex.scm |  }   }  ! ~  ) }  1   :   F   J gnamegmatch:substringCR%&h0-1345$" 6gpattern -gstr -gargs  -grx   -gstart   -gfilenamefice-9/regex.scm        -  -  gnameg string-matchCR' (!)*+, hh]45$L645$4L5L6& 4L5L6& 4L5L6  6gobj  agfilenamefice-9/regex.scm      )    # 2 / ) 1  7  : 2 D ) F  L  O 2 Y ) ] % a   a C"h\]LL@Tgp  gfilenamefice-9/regex.scm    Ch0-13$O6O6gport +gmatch +gitems  +gfilenamefice-9/regex.scm     +  +  gnamegregexp-substituteCR-%./&h2-.,3 # 45$"45"H  $ "K 45$"4J 5  $P"4 54 5"4 54 5$$"y""C "`*gregexp gstring ginit  gproc  gflags  gregexp  - gstart  3 gvalue  3 gabuts  3 gbol 4 gm j  gfilenamefice-9/regex.scm    ' , -  3  9  >  J  Q  U  [  h 4 j  j  r  w  ~    "      gnameg fold-matchesCR01h(-.,3# 456gregexp 'gstring 'gflags  'gfilenamefice-9/regex.scm   ( % '  '  gnameg list-matchesCR( (!2)*+, hE]45$L645$4L5L645$ 4L5L6&4LL4L55L6 &LL4 L56  6=gitem  gfilenamefice-9/regex.scm      &    # / / & 0  :  = / G & K  O  R  Y - a  e  i  m  r s . {     gnamegdo-itemChx\](4L5L6"OOLLLQ$*(64>"G"CL"Tgmatches  wgstart  wgm   wgitems  ogdo-item  - ogfilenamefice-9/regex.scm          ?  C  F  J  O ! Q  R  W # \  g % m  o   w gnameg next-matchC"h\]LLL@Tgp  gfilenamefice-9/regex.scm      ChH-13$$OQ45 6O6gport Bgregexp Bgstring  Bgitems  Bg next-match   3gfilenamefice-9/regex.scm     ( 3  B  B  gnamegregexp-substitute/globalCRCgm  (gfilenamefice-9/regex.scm  ' ; Y >  A  D  J j d j t f x |        C62.0/ccache/ice-9/control.go000064400000020267151463412640011203 0ustar00GOOF----LE-8-2.0 ]4h ] gguile  gdefine-module*   gice-9 gcontrol  gfilenameS fice-9/control.scm gexportsS g% gabort gshift greset gshift* greset* gcall-with-escape-continuation gcall/ec glet-escape-continuation glet/ec     g re-exportsS gcall-with-prompt gabort-to-prompt gdefault-prompt-tag gmake-prompt-tag  gset-current-module   gmake-syntax-transformer !  "  #gmacro $g $sc-dispatch %$ &$ 'gany ('' )g syntax-object *gtop +* ,gribcage -gdummy .gexpr /-. 0gm-3d0776c508-76 10* 21+ 3fl-3d0776c508-7b 4fl-3d0776c508-7c 534 6,/25 7, 8gx 98 :1 ;fl-3d0776c508-78 <; =,9:< >+67= ?ghygiene @? A)>@ B)>@ CB Dglambda E)D>@ Fgdefault-prompt-handler G)F>@ HG I''' Jghandler K-.J L1++ Mfl-3d0776c508-80 Nfl-3d0776c508-81 Ofl-3d0776c508-82 PMNO Q,KLP R+Q7= S)R@ T)R@ UT V)DR@ W'''' Xgtag Y-X.J Z1+++ [fl-3d0776c508-87 \fl-3d0776c508-88 ]fl-3d0776c508-89 ^fl-3d0776c508-8a _[\]^ `,YZ_ a+`7= b)a@ c)Da@ dgsyntax-violation ed fd gf-source expression failed to match any pattern h'' igbody j-i kgm-3d0776c508-95 lk* ml+ nfl-3d0776c508-9a ofl-3d0776c508-9b pno q,jmp rl sfl-3d0776c508-97 ts u,9rt v+q7u w)v@ x)v@ yx z)Dv@ {gcont |){v@ }gf ~)}v@ |~ ~| z  'h gvar -i gm-3d0776c508-9f * ++ fl-3d0776c508-a4 fl-3d0776c508-a5 fl-3d0776c508-a6  ,  fl-3d0776c508-a1  ,9 +7 )@ )@  )D@ ){@  )@ gvals )@ gapply )@     geach-any ' ' glet gk -i gm-3d0776c508-cf * ++ fl-3d0776c508-d4 fl-3d0776c508-d5 fl-3d0776c508-d6  ,  fl-3d0776c508-d1  ,9 +7 )@ )X@ glist )@ gquote )@ )@     )@ )D@ gargs )@ )@ )@    g_ )@ gresults )@ ̌ gvalues )@    gm-3d0776c508-dc * ++ fl-3d0776c508-e1 fl-3d0776c508-e2 fl-3d0776c508-e3  ,  fl-3d0776c508-de  ,9 +7 )@C5h`]4   54>"Ghz-1345@rgargs gfilenamefice-9/control.scm        gnamegabortC R4" #&(ACEHh?]C7gdummy  gexpr     CISUVhT]CLgdummy  gexpr  ghandler      CWbche]C]gdummy  gtag  gexpr   ghandler      Cfg hP]45$@45$@45$@ 6gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefice-9/control.scm    P g macro-typeg syntax-rulesgpatternsgexprgexprghandlergtaggexprghandlerC5 RFhE]LL6=gfilenamefice-9/control.scm  8    Ch0]45U4O>XCXFG@gk  .gproc  .ghandler   .gargs  # .gfilenamefice-9/control.scm 6  7   7   7   . gnamegdefault-prompt-handlerCFR4"#&hwyzh?]C7gdummy  gbody     Cfgh(] 45$@6gx  "gtmp "gfilenamefice-9/control.scm @   " g macro-typeg syntax-rulesgpatternsgbodyC5R4"#&h(P]CHgdummy  #gvar  #gbody   #  # Cfgh(] 45$@6gx  "gtmp "gfilenamefice-9/control.scm E   " g macro-typeg syntax-rulesgpatternsgvargbodyC5RhE]L6=gfilenamefice-9/control.scm  L    Ch0]45U4O>XCXFG6gthunk  *gcont  *gf   *gfilenamefice-9/control.scm K  L   * gnamegreset*CRhE]LL@=gfilenamefice-9/control.scm  O    Ch8y-1345U4LO>XCXFG6qgvals 3gcont & 3gf  & 3gfilenamefice-9/control.scm O  3 ChE]LLO6=gfilenamefice-9/control.scm O   Ch0w]45U4LO>XCXFG6ogcont  ,gcont  ,gf   ,gfilenamefice-9/control.scm O   , Cho]45OWFggfc  gfilenamefice-9/control.scm N  O    gnamegshift*CRha-13L@Ygargs gfilenamefice-9/control.scm V   W   Ch0%]U4O>XCXFGEgproc  .gtag  .g_  # .gargs  # .gfilenamefice-9/control.scm Q  S   S  S   T   V  & T  . Y   . gnamegcall-with-escape-continuationg documentationf&Call PROC with an escape continuation.CRiR4"#&h(N]CFgdummy  'gk  'gbody   '  ' Cfgh(] 45$@6gx  "gtmp "gfilenamefice-9/control.scm ]   " g documentationfCBind K to an escape continuation within the lexical extent of BODY.g macro-typeg syntax-rulesgpatternsgkgbodyg...C5R4"#&hN]CFgdummy  gk  gbody     Cfgh(] 45$@6gx  "gtmp "gfilenamefice-9/control.scm h   " g macro-typeg syntax-rulesgpatternsgkgbodyg...C5RC}gm  ,gfilenamefice-9/control.scm    * 6 5 K  N  Q  [   _ C62.0/ccache/ice-9/q.go000064400000006304151463412640007757 0ustar00GOOF----LE-8-2.0 ]"4h] gguile  gdefine-module*   gice-9 gq  gfilenameS f ice-9/q.scm gexportsS gsync-q! gmake-q gq? gq-empty? g q-empty-check gq-front gq-rear g q-remove! gq-push! genq! gq-pop! gdeq! gq-length     gset-current-module   g last-pair gthrow gq-empty gdelq! !glengthC5h ]4   54>"Gh ]$ 45"Cgq  gfilenamef ice-9/q.scm E  F   F  F  F "  F -  F "  F    gnamegsync-q!C Rh`]CXgfilenamef ice-9/q.scm M  M   M    gnamegmake-qC Rh0]$#$ 45C(CCCgobj  .gfilenamef ice-9/q.scm U  V  V  W  W  W   X   X   X %  X   X ! Y  % Y ( Z  ) Z   . gnamegq?CRht]Clgobj  gfilenamef ice-9/q.scm ^  ^   ^    gnamegq-empty?CRh]45$6Cgq  gfilenamef ice-9/q.scm b  b  b   b 2  b +   gnameg q-empty-checkCRh q]4>"GCigq  gfilenamef ice-9/q.scm f  f   f &   gnamegq-frontCRh p]4>"GChgq  gfilenamef ice-9/q.scm j  j   j %   gnamegq-rearCR  h]456gq  gobj  gfilenamef ice-9/q.scm n  o  o   o   o   p    gnameg q-remove!CRh0]$"Cgq  ,gobj  ,gh   )gt   &gfilenamef ice-9/q.scm t  u   u  u   v   w   w  # w   , gnamegq-push!CRh0] ( "Cgq  *gobj  *gh   'gfilenamef ice-9/q.scm |  }   }  ~   ~         $   * gnamegenq!CRh8]4>"G("Cgq  6git  6gnext   6gfilenamef ice-9/q.scm        &  *  3   6 gnamegq-pop!CRiR!hu]6mgq  gfilenamef ice-9/q.scm     gnamegq-lengthCRCgm  (gfilenamef ice-9/q.scm  : E k M  U  ^  b t f  j  n  t  |    C62.0/ccache/ice-9/gap-buffer.go000064400000024670151463412640011543 0ustar00GOOF----LE-8-2.0)]V4h] gguile  gdefine-module*   gice-9 g gap-buffer  gfilenameS fice-9/gap-buffer.scm gexportsS ggb? gmake-gap-buffer ggb-point g gb-point-min g gb-point-max ggb-insert-string! ggb-insert-char! ggb-delete-char! g gb-erase! g gb-goto-char g gb->string g gb-filter! g gb->lines ggb-filter-lines! gmake-gap-buffer-port    g autoloadsS gsrfi gsrfi-13  g string-join !  "! #gset-current-module $# %# &gmake-record-type 'gs (gall-sz )ggap-ofs *gaft-ofs +'()* ,grecord-predicate -grecord-accessor .gs: /gall-sz: 0ggap-ofs: 1gaft-ofs: 2grecord-modifier 3gs! 4gall-sz! 5ggap-ofs! 6gaft-ofs! 7gdefault-initial-allocation 8gdefault-chunk-size 9gdefault-realloc-threshold :ground-up ;grecord-constructor gsubstring-move! ?grealloc @gport? Ag eof-object? Bg list->string Cgreverse Dg read-char Egstring? Fg string-length Ggerror Hf bad init type Ig insert-prep Jg string-set! Kgmax Lgmin Mg point++n! Ng point+-n! Og string-append Pg substring Qg string-index Rfnot a gap-buffer: Sgmake-soft-port Tg string-ref UfrwC5h ]4   "54%>"G4&i+5R4,ii5 R4-ii'5.R4-ii(5/R4-ii)50R4-ii*51R42ii'53R42ii(54R42ii)55R42ii*56R 7R 8R 9R8h]Cgn  gfilenamefice-9/gap-buffer.scm     gnameground-upC:R4;ii5346 h]:45454545454  >"G4>"G4>"G4>"G 6ggb  ginc  gold-s  gall-sz   gnew-sz   ggap-ofs  " gaft-ofs  + gnew-s  4 g new-aft-ofs  ;  gfilenamefice-9/gap-buffer.scm             "  %  +  .  4  ;  ;  >  V  p     gnamegreallocC?R<3=7456@ABC:>.DEFGHhQ-1345(X445>"G4>"G4 >"G4>"G"45$"4 5$4 4 554 5445>"G4>"G4  45 >"G4>"G4>"9G"245"I45 "6"45$454 5445>"G4>"G4  45 >"G4>"G4>"G"4>"GCIginit ggb  gv  q gc  9gacc  9glen  9gstring   galloc  glen  b galloc  k  gfilenamefice-9/gap-buffer.scm        ' 0 D W q  q  t  ~   !  ' 5 ' ! +  ' >  ! 0 , . / ; 9 ! 9  : 0 A 6 L  Q  [  \ ! b  e + k  n s ' ~    >       %  ;  gnamegmake-gap-bufferC R0h]45Cwggb  gfilenamefice-9/gap-buffer.scm     gnameggb-pointCRhq] Ciggb  gfilenamefice-9/gap-buffer.scm    gnameg gb-point-minCR/10h ]454545Cggb  gfilenamefice-9/gap-buffer.scm    '         gnameg gb-point-maxCR019?:hP<]4545$44 5>"G"C4ggb  Iglen  Iggap-ofs  Igaft-ofs   Igslack   Igfilenamefice-9/gap-buffer.scm             # '  ( -  0  5  :   I gnameg insert-prepCIRFI>.5h@]45454 45>"G6ggb  ?gstring  ?glen  ?ggap-ofs   ?gfilenamefice-9/gap-buffer.scm          " ,  =  ?   ? gnameggb-insert-string!CRIJ.5h0] 4 5445>"G6ggb  0gchar  0ggap-ofs  0gfilenamefice-9/gap-buffer.scm         .  0   0 gnameggb-insert-char!CR5K06L/1hP ] $4 4556 $4454556 $CCggb  Pgcount  Pgfilenamefice-9/gap-buffer.scm          $ (  -  0  7 + @ ( B  D H L   P gnameggb-delete-char!CR56/h(]4 >"G456ggb  "gfilenamefice-9/gap-buffer.scm     "   " gnameg gb-erase!CR>56hH]4>"G4>"G6ggb  Agn  Ags   Aggap-ofs   Agaft-ofs   Agfilenamefice-9/gap-buffer.scm        )  .  ?  A   A gnameg point++n!CMR>56hH]4>"G4>"G6ggb  Dgn  Dgs   Dggap-ofs   Dgaft-ofs   Dgfilenamefice-9/gap-buffer.scm     -   #  ,  1  B  D   D gnameg point+-n!CNRNM.01 h]*45 $ 4 5"$"$ 45"$"Y45 $"74 $"454545>"GCggb  g new-point  gpmax  gt  gt  C gdelta  Y gt  _ gfilenamefice-9/gap-buffer.scm         1 5  6 C  R " Y  Y  _  _ l  p  t   .   gnameg gb-goto-charCR.OP01h0] 454 45544556ggb  ,gs ,gfilenamefice-9/gap-buffer.scm      "     " *  ,   , gnameg gb->stringCRh0] 44554>"G6ggb  *g string-proc  *gnew   *gfilenamefice-9/gap-buffer.scm         *   * gnameg gb-filter!CRQPChX8]!45"<4 5$45"456 "0ggb  Ugstr Ugstart   Kgacc   Kgt   Kgfilenamefice-9/gap-buffer.scm        %  & % 3  ;  > ! I  K  K  M  U   U gnameg gb->linesCR h8] 44554>"G4 56ggb  1g lines-proc  1g new-lines   1gfilenamefice-9/gap-buffer.scm                 '   1    1 gnameggb-filter-lines!CR GRSha]L6Ygc  gfilenamefice-9/gap-buffer.scm      Cha]L6Ygs  gfilenamefice-9/gap-buffer.scm      C01/.TJ56 h)] 4L54L54L5$C4L5454>"G4L>"G4L>"GC!ggap-ofs  {gaft-ofs  {gs  + {gc  6 {gfilenamefice-9/gap-buffer.scm                "   %   +   .   6   9   O   V  $ [   d   k  $ p    { CU hP] 45$"4>"GOOO6ggb  Lgt ,gfilenamefice-9/gap-buffer.scm            !   H   J   L    L gnamegmake-gap-buffer-portCRC~gm  ,gfilenamefice-9/gap-buffer.scm  Y - l  3 l  5 m  7 l  : k ; s H s I u  S u - U u  X u Y v  c v - e v  h v i w  s w - u w  x w y x  x - x  x z  z - z  z {  { - {  { |  | - |  | }  } - }  }    +    R g   { D      k    C  C62.0/ccache/ice-9/r5rs.go000064400000002641151463412640010412 0ustar00GOOF----LE-8-2.0]'4h] gguile  gdefine-module*   gice-9 gr5rs  gfilenameS fice-9/r5rs.scm gexportsS gscheme-report-environment   g re-exportsS ginteraction-environment gcall-with-input-file gcall-with-output-file gwith-input-from-file gwith-output-to-file gopen-input-file gopen-output-file gclose-input-port gclose-output-port gload   gset-current-module   g module-use! gmodule-public-interface gcurrent-module gresolve-interface !g safe-r5rs "! #gscheme-report-interface $g scm-error %g misc-error &f~A is not a valid versionC5hx]4    54>"G4i4i4i554 i"5>"G4i4i55#R$% &#h0] $"4>"GCgn  .gfilenamefice-9/r5rs.scm &  ' '   (   (   (   )   *   +  # (   . gnamegscheme-report-environmentC RCgm  ,gfilenamefice-9/r5rs.scm   - ! 2 ! 7 ! & ? ! @ " F " H " M ! V $ [ $ 9 c $ f $ q &   s C62.0/ccache/ice-9/match.go000064400000244343151463412640010622 0ustar00GOOF----LE-8-2.0H]4hR] gguile  gdefine-module*   gice-9 gmatch  gfilenameS fice-9/match.scm gexportsS g match-lambda g match-lambda* g match-let g match-let* g match-letrec    gset-current-module   gthrow g match-error fmatch gerror gmake-syntax-transformer   gslot-ref gmacro g $sc-dispatch   !gany "!!!! #g syntax-object $g struct-ref %gtop &% 'gribcage (gdummy )grtd *grec +gn ,()*+ -gm-1883f58c-6d8 .-% /.&&& 0fl-1883f58c-6dd 1fl-1883f58c-6de 2fl-1883f58c-6df 3fl-1883f58c-6e0 40123 5',/4 6' 7gx 87 9. :fl-1883f58c-6da ;: <'89; =&56< >ghygiene ?> @#$=? Agsyntax-violation BA CA Df-source expression failed to match any pattern Eg slot-set! F!!!!! Gg struct-set! Hgvalue I()*+H Jgm-1883f58c-6e5 KJ% LK&&&& Mfl-1883f58c-6ea Nfl-1883f58c-6eb Ofl-1883f58c-6ec Pfl-1883f58c-6ed Qfl-1883f58c-6ee RMNOPQ S'ILR TK Ufl-1883f58c-6e7 VU W'8TV X&S6W Y#GX? Zgis-a? [!!! \gand ](*) ^gm-1883f58c-6f4 _^% `_&& afl-1883f58c-6f9 bfl-1883f58c-6fa cfl-1883f58c-6fb dabc e']`d f_ gfl-1883f58c-6f6 hg i'8fh j&e6i k#\j? lgstruct? m#lj? ngeq? o#nj? pg struct-vtable q#pj? rgmatch-syntax-error s! t( ugm-1883f58c-701 vu% wv xfl-1883f58c-706 yx z'twy {fl-1883f58c-703 |{ }'8w| ~&z6} #r~? f invalid match-syntax-error usage #~?  gm-1883f58c-708 %  fl-1883f58c-70d  't fl-1883f58c-70a  '8 &6 #r? fmissing match expression #?  !! gatom ( & fl-1883f58c-710 fl-1883f58c-711  ' &6 #r? fno match clauses #?  geach-any geach !!   ! glet gapp gpat gbody ( &&& fl-1883f58c-715 fl-1883f58c-716 fl-1883f58c-717 fl-1883f58c-718  ' &6 #? gv #? g match-next #? gset! #? gmap   gcons gvector   ! gvec ( fl-1883f58c-723 fl-1883f58c-724 fl-1883f58c-725 fl-1883f58c-726  ' &6 #? #? g list->vector   #? #?   ! !Ҍ ( fl-1883f58c-72f fl-1883f58c-730 fl-1883f58c-731 fl-1883f58c-732  ' &6 #? #? #? #? gg+s ( gm-1883f58c-739 % && fl-1883f58c-73e fl-1883f58c-73f fl-1883f58c-740  '  fl-1883f58c-73b  '8 &6 #? gquote #? #?  fno matching pattern #? gfree-id g=> &6 #?  ! ! ! ! ! ! ! gfailure grest ( &&&&&& fl-1883f58c-745 fl-1883f58c-746 fl-1883f58c-747  fl-1883f58c-748  fl-1883f58c-749  fl-1883f58c-74a  fl-1883f58c-74b       '  &6 #? glambda #? #? g match-one #? gmatch-drop-ids #? gbegin #?  ! ! ! ! (  &&&&& !fl-1883f58c-754 "fl-1883f58c-755 #fl-1883f58c-756 $fl-1883f58c-757 %fl-1883f58c-758 &fl-1883f58c-759 '!"#$%& (' ' )&(6 *#)? +#)? ,#)? -+, .! /!!.!!!! 0gmatch-check-ellipse 1gp 2gq 3gr 4gsk 5gfk 6gi 7(123456  8gm-1883f58c-760 98% :9&&&&&&&&  ;fl-1883f58c-765 fl-1883f58c-768 ?fl-1883f58c-769 @fl-1883f58c-76a Afl-1883f58c-76b Bfl-1883f58c-76c Cfl-1883f58c-76d D;<=>?@ABC  E'7:D F9 Gfl-1883f58c-762 HG I'8FH J&E6I K#0J? Lgmatch-extract-vars M#LJ? Ngmatch-gen-ellipses O#NJ? Pg match-two Q#PJ? R(7 S9& Tfl-1883f58c-778 Ufl-1883f58c-779 VTU W'RSV X&W6I Y#PX? Z!!!!! [gif \(456 ]gm-1883f58c-77c ^]% _^&&&&& `fl-1883f58c-781 afl-1883f58c-782 bfl-1883f58c-783 cfl-1883f58c-784 dfl-1883f58c-785 efl-1883f58c-786 f`abcde g'\_f h^ ifl-1883f58c-77e ji k'8hj l&g6k m#[l? ngnull? o#nl? pgappend qp rp s&6k t#s? ut vu! w!!v!!! x(1456 y^&&&&&& zfl-1883f58c-78f {fl-1883f58c-790 |fl-1883f58c-791 }fl-1883f58c-792 ~fl-1883f58c-793 fl-1883f58c-794 fl-1883f58c-795 z{|}~ 'xy &6k #[? gequal? #? #? g quasiquote #s?  ! ! ! ! gmatch-quasiquote (17 ^&&& fl-1883f58c-79f fl-1883f58c-7a0 fl-1883f58c-7a1 fl-1883f58c-7a2  ' &6k #? #\s?   !!!!! !  !!!!!! (12456 ^&&&&&&& fl-1883f58c-7b6 fl-1883f58c-7b7 fl-1883f58c-7b8 fl-1883f58c-7b9 fl-1883f58c-7ba fl-1883f58c-7bb fl-1883f58c-7bc fl-1883f58c-7bd  ' &6k #? #\? gor #s?   !!!!!! ! ! ! ! fl-1883f58c-7d5 fl-1883f58c-7d6 fl-1883f58c-7d7 fl-1883f58c-7d8  ' &6k #?  !!!!!! fl-1883f58c-7de fl-1883f58c-7df fl-1883f58c-7e0 fl-1883f58c-7e1 fl-1883f58c-7e2 fl-1883f58c-7e3 fl-1883f58c-7e4  'xy &6k #L? #? g match-gen-or #? gnot #s?  ! !!!!! fl-1883f58c-7ef fl-1883f58c-7f0 fl-1883f58c-7f1 fl-1883f58c-7f2 fl-1883f58c-7f3 fl-1883f58c-7f4 fl-1883f58c-7f5  'xy &6k #? #? gget! #s?  ! !!!! ggetter gg gs (456 fl-1883f58c-7ff fl-1883f58c-800 fl-1883f58c-801 fl-1883f58c-802 fl-1883f58c-803 fl-1883f58c-804 fl-1883f58c-805 fl-1883f58c-806  ' &6k #? #? #s?  ! ! !!!! gsetter (456 fl-1883f58c-811 fl-1883f58c-812 fl-1883f58c-813 fl-1883f58c-814 fl-1883f58c-815 fl-1883f58c-816 fl-1883f58c-817 fl-1883f58c-818  '  &6k  # ?  # ?  #7 ?    g? #s?   !!!!!! gpred (1456 fl-1883f58c-824 fl-1883f58c-825 fl-1883f58c-826 fl-1883f58c-827 fl-1883f58c-828 fl-1883f58c-829 fl-1883f58c-82a fl-1883f58c-82b  ' &6k  #[? !#? "#\? #g= $##s? %$ &%!! '&! (!' )!( *gproc +(*17 ,^&&&& -fl-1883f58c-835 .fl-1883f58c-836 /fl-1883f58c-837 0fl-1883f58c-838 1fl-1883f58c-839 2-./01 3'+,2 4&36k 5#4? 6gw 7#64? 8#4? 9g___ :#9s? ;: <;! =!< >!!=!!!! ?(13456 @fl-1883f58c-840 Afl-1883f58c-841 Bfl-1883f58c-842 Cfl-1883f58c-843 Dfl-1883f58c-844 Efl-1883f58c-845 Ffl-1883f58c-846 Gfl-1883f58c-847 H@ABCDEFG I'?H J&I6k K#LJ? L#NJ? M!!s!!!! Nfl-1883f58c-851 Ofl-1883f58c-852 Pfl-1883f58c-853 Qfl-1883f58c-854 Rfl-1883f58c-855 Sfl-1883f58c-856 Tfl-1883f58c-857 UNOPQRST V'xyU W&V6k X#[W? Y#\W? Zgpair? [#ZW? \#nW? ]gcdr ^#]W? _#W? `#6W? agcar b#aW? c#W? dgset-car! e#dW? fg*** g#fs? hg i!h! j!!i!!!! kfl-1883f58c-860 lfl-1883f58c-861 mfl-1883f58c-862 nfl-1883f58c-863 ofl-1883f58c-864 pfl-1883f58c-865 qfl-1883f58c-866 rfl-1883f58c-867 sklmnopqr t's u&t6k v#Lu? wgmatch-gen-search x#wu? yh! z!y {!!z!!!! |fl-1883f58c-871 }fl-1883f58c-872 ~fl-1883f58c-873 fl-1883f58c-874 fl-1883f58c-875 fl-1883f58c-876 fl-1883f58c-877 fl-1883f58c-878 |}~ ' &6k #r? finvalid use of *** #? #f? g..1 #s?  ! !!!!!! fl-1883f58c-882 fl-1883f58c-883 fl-1883f58c-884 fl-1883f58c-885 fl-1883f58c-886 fl-1883f58c-887 fl-1883f58c-888  'xy &6k #[? #Z? #? #9?  g$ #s?   !!!!!! (*1456 fl-1883f58c-891 fl-1883f58c-892 fl-1883f58c-893 fl-1883f58c-894 fl-1883f58c-895 fl-1883f58c-896 fl-1883f58c-897 fl-1883f58c-898  ' &6k #[? #Z? gmatch-record-refs #? # ? !!!!!! fl-1883f58c-8a3 fl-1883f58c-8a4 fl-1883f58c-8a5 fl-1883f58c-8a6 fl-1883f58c-8a7 fl-1883f58c-8a8 fl-1883f58c-8a9 fl-1883f58c-8aa  ' &6k #[? #Z? #? #6? #a? #7? #]? #? #d? gset-cdr! #?  !̌ !͌ g match-vector (17 fl-1883f58c-8b4 fl-1883f58c-8b5 fl-1883f58c-8b6 fl-1883f58c-8b7 fl-1883f58c-8b8  ', &6k #? # ? g_ #s?  !!!!! !!!!! g let-syntax gid (745 fl-1883f58c-8ce fl-1883f58c-8cf fl-1883f58c-8d0 fl-1883f58c-8d1 fl-1883f58c-8d2 fl-1883f58c-8d3 fl-1883f58c-8d4  'y &6k #? gnew-sym? #? g syntax-rules #? gsk2 #? gfk2 #?   gy #?    grandom-sym-to-match #? #? #[? #? gunquote gm-1883f58c-8e1 %  fl-1883f58c-8e3  '8  &6  # ?      !  !! !!!! &&&&&& fl-1883f58c-8e6 fl-1883f58c-8e7 fl-1883f58c-8e8 fl-1883f58c-8e9 fl-1883f58c-8ea fl-1883f58c-8eb fl-1883f58c-8ec  'x &6 #? gunquote-splicing # ?  ! ! !!!!!!  (1456 !&&&&&&& "fl-1883f58c-8f5 #fl-1883f58c-8f6 $fl-1883f58c-8f7 %fl-1883f58c-8f8 &fl-1883f58c-8f9 'fl-1883f58c-8fa (fl-1883f58c-8fb )fl-1883f58c-8fc *"#$%&'() +' !* ,&+6 -#[,? .#Z,? /#,? 0gtmp 1#0,? 2#,? 3# ? 43 54! 6!. 7!6 857 9!8 :!9 ;gdepth <(1456; =fl-1883f58c-906 >fl-1883f58c-907 ?fl-1883f58c-908 @fl-1883f58c-909 Afl-1883f58c-90a Bfl-1883f58c-90b Cfl-1883f58c-90c Dfl-1883f58c-90d E=>?@ABCD F'<!E G&F6 H#G? I#G? J!7 K J L!K M!L N(14567;  O&&&&&&&&  Pfl-1883f58c-917 Qfl-1883f58c-918 Rfl-1883f58c-919 Sfl-1883f58c-91a Tfl-1883f58c-91b Ufl-1883f58c-91c Vfl-1883f58c-91d Wfl-1883f58c-91e Xfl-1883f58c-91f YPQRSTUVWX  Z'NOY [&Z6 \#[? ]J ^!] _!^ `fl-1883f58c-92a afl-1883f58c-92b bfl-1883f58c-92c cfl-1883f58c-92d dfl-1883f58c-92e efl-1883f58c-92f ffl-1883f58c-930 gfl-1883f58c-931 hfl-1883f58c-932 i`abcdefgh  j'NOi k&j6 l#k? m7 n!m o!n p(12456;  qfl-1883f58c-93d rfl-1883f58c-93e sfl-1883f58c-93f tfl-1883f58c-940 ufl-1883f58c-941 vfl-1883f58c-942 wfl-1883f58c-943 xfl-1883f58c-944 yfl-1883f58c-945 zqrstuvwxy  {'pOz |&{6 }#[|? ~#Z|? #|? #6|? #a|? #7|? #]|? #|? gmatch-quasiquote-step #|? 7 ! ! gelt (456; fl-1883f58c-950 fl-1883f58c-951 fl-1883f58c-952 fl-1883f58c-953 fl-1883f58c-954 fl-1883f58c-955 fl-1883f58c-956 fl-1883f58c-957  '! &6 #[? gvector? #? #? gls #? g vector->list #? #? !J ! (7456; fl-1883f58c-962 fl-1883f58c-963 fl-1883f58c-964 fl-1883f58c-965 fl-1883f58c-966 fl-1883f58c-967 fl-1883f58c-968 fl-1883f58c-969  '! &6 #? #? !!!!!!!! (7245;6 gm-1883f58c-972 % &&&&&&& fl-1883f58c-977 fl-1883f58c-978 fl-1883f58c-979 fl-1883f58c-97a fl-1883f58c-97b fl-1883f58c-97c fl-1883f58c-97d fl-1883f58c-97e  '  fl-1883f58c-974  '8 &6 #? ! gmatch-tuck-ids !!  !Ȍ gmatch-drop-first-arg  !!!!! gid-ls (1456  gm-1883f58c-9ae % &&&&&&&&  fl-1883f58c-9b3 fl-1883f58c-9b4 fl-1883f58c-9b5 fl-1883f58c-9b6 fl-1883f58c-9b7 fl-1883f58c-9b8 fl-1883f58c-9b9 fl-1883f58c-9ba fl-1883f58c-9bb   '  fl-1883f58c-9b0  '8 &6 #? #? #? gmatch-gen-or-step #? #? 6 !茤 !錤 s! !댤 !쌤 gm-1883f58c-9cb % &&& fl-1883f58c-9dd fl-1883f58c-9de fl-1883f58c-9df fl-1883f58c-9e0  '  fl-1883f58c-9cd  '8 &6 #? &&&&&&& fl-1883f58c-9e6 fl-1883f58c-9e7 fl-1883f58c-9e8 fl-1883f58c-9e9 fl-1883f58c-9ea fl-1883f58c-9eb fl-1883f58c-9ec fl-1883f58c-9ed  ' &6  #?  #?  #?  #?  #?   !!!!!!  gmatch-check-identifier gm-1883f58c-9f6 % &&&&&&&&  fl-1883f58c-9fb fl-1883f58c-9fc fl-1883f58c-9fd fl-1883f58c-9fe fl-1883f58c-9ff fl-1883f58c-a00 fl-1883f58c-a01 fl-1883f58c-a02 fl-1883f58c-a03   '   fl-1883f58c-9f8 !  "'8! #&6" $##? %##? &#[#? 'glist? (#'#? )gloop *#)#? +##? ,##? -, .- /gcond 0#/#? 1#n#? 21+ 3greverse 4#3#? 5#Z#? 65+ 7#6#? 8#a#? 98+ :79 ;: <##? =#d#? >=+ ?9> @##? A#]#? BA+ C##? Dgelse E#D#? F!!!!!!!  Ggmatch-verify-no-ellipses H(13456  I&&&&&&&&&  Jfl-1883f58c-a15 Kfl-1883f58c-a16 Lfl-1883f58c-a17 Mfl-1883f58c-a18 Nfl-1883f58c-a19 Ofl-1883f58c-a1a Pfl-1883f58c-a1b Qfl-1883f58c-a1c Rfl-1883f58c-a1d Sfl-1883f58c-a1e TJKLMNOPQRS  U'HIT V&U6" W#GV? Xglet* Y#XV? Zgtail-len [#ZV? \glength ]#\V? ^#V? _#V? `glen a#`V? b#\V? c#'V? dc_ e]_ fbde gaf hg i#[V? j#V? k#V? lka mg< n#mV? ona[ pjlo q#V? r#)V? s__ t#+V? uta v^ wv x#/V? y##V? zyt[ {#3V? |#V? }#V? ~}} #ZV? _ #6V? #aV? _   #dV? _  #V? #]V? _ g- #V? # V? t #V? #DV? !! (74 gm-1883f58c-a2f % &&& fl-1883f58c-a34 fl-1883f58c-a35 fl-1883f58c-a36 fl-1883f58c-a37  '  fl-1883f58c-a31  '8 &6 #0? #r? f3multiple ellipse patterns not allowed at same level #?  #G? !! (74 && fl-1883f58c-a42 fl-1883f58c-a43 fl-1883f58c-a44  ' &6 #r? f%dotted tail not allowed after ellipse #? !!!!!!!!  gletrec (12456  gm-1883f58c-a48 % &&&&&&&&&  fl-1883f58c-a4d fl-1883f58c-a4e fl-1883f58c-a4f fl-1883f58c-a50 fl-1883f58c-a51 fl-1883f58c-a52 fl-1883f58c-a53 fl-1883f58c-a54 fl-1883f58c-a55 fl-1883f58c-a56   '  fl-1883f58c-a4a  '8 &6 #? gtry #? #? #6? gfail #? #? #? #? #3? gnext #? #[? #? #Z?    gu #? #a?    #d?   #? #? glp #? #? #]?          #?   ! ! ! ! ! gpats (+127 gm-1883f58c-a6b % &&&&&& fl-1883f58c-a70 fl-1883f58c-a71 fl-1883f58c-a72 fl-1883f58c-a73 fl-1883f58c-a74 fl-1883f58c-a75  fl-1883f58c-a76     '     fl-1883f58c-a6d   '8  & 6 #0? gmatch-gen-vector-ellipses #? gmatch-vector-two #? &6 #9?  ! !!!!!!! (+1456 &&&&&&& fl-1883f58c-a7f fl-1883f58c-a80 fl-1883f58c-a81  fl-1883f58c-a82 !fl-1883f58c-a83 "fl-1883f58c-a84 #fl-1883f58c-a85 $fl-1883f58c-a86 % !"#$ &'% '&&6 (#'? )& *fl-1883f58c-a90 +fl-1883f58c-a91 ,*+ -'R), .&-6 /#.? 0!!!!!! 1gindex 2(+1456 3gm-1883f58c-a94 43% 54&&&&&&& 6fl-1883f58c-a99 7fl-1883f58c-a9a 8fl-1883f58c-a9b 9fl-1883f58c-a9c :fl-1883f58c-a9d ;fl-1883f58c-a9e 6789:;<= ?'25> @4 Afl-1883f58c-a96 BA C'8@B D&?6C E#[D? F#D? G#D? H#`D? Ig vector-length J#ID? K##D? Lgmatch-vector-step M#LD? Nglist O P!O Q!P R!Q S4&&&&&& Tfl-1883f58c-aac Ufl-1883f58c-aad Vfl-1883f58c-aae Wfl-1883f58c-aaf Xfl-1883f58c-ab0 Yfl-1883f58c-ab1 Zfl-1883f58c-ab2 [TUVWXYZ \'S[ ]&\6C ^#]? _g+ `#_]? a# ]? ba c!!!! d!!!!! e(1456 fgm-1883f58c-abb gf% hg&&&&&&& ifl-1883f58c-acc jfl-1883f58c-acd kfl-1883f58c-ace lfl-1883f58c-acf mfl-1883f58c-ad0 nfl-1883f58c-ad1 ofl-1883f58c-ad2 pfl-1883f58c-ad3 qijklmnop r'ehq sg tfl-1883f58c-abd ut v'8su w&r6v x#w? y#6w? zg vector-ref {#zw? |#w? }g vector-set! ~#}w? #Lw? !!!!!!! (+11456  gm-1883f58c-adc % &&&&&&&&  fl-1883f58c-ae1 fl-1883f58c-ae2 fl-1883f58c-ae3 fl-1883f58c-ae4 fl-1883f58c-ae5 fl-1883f58c-ae6 fl-1883f58c-ae7 fl-1883f58c-ae8 fl-1883f58c-ae9   '  fl-1883f58c-ade  '8 &6 #[? #? #? #`? #I? g>= #? #L? gmatch-vector-tail #? (1+`456 gm-1883f58c-af5 % &&&&&&& fl-1883f58c-afa fl-1883f58c-afb fl-1883f58c-afc fl-1883f58c-afd fl-1883f58c-afe fl-1883f58c-aff fl-1883f58c-b00 fl-1883f58c-b01  '  fl-1883f58c-af7  '8 &6 #L? gmatch-vector-tail-two #? (1+`456  gm-1883f58c-b0a % &&&&&&&&&  fl-1883f58c-b0f fl-1883f58c-b10 fl-1883f58c-b11 fl-1883f58c-b12 fl-1883f58c-b13 fl-1883f58c-b14 fl-1883f58c-b15 fl-1883f58c-b16 fl-1883f58c-b17 fl-1883f58c-b18   '  fl-1883f58c-b0c  '8 &6 #? #)? gj #? #?   #[? #? #3? #6? #z?  #? g vetor-set! #? #? #_? # ?  #? !!!!!!!!  (*+12456  gm-1883f58c-b29 % &&&&&&&&&  fl-1883f58c-b2e fl-1883f58c-b2f fl-1883f58c-b30 fl-1883f58c-b31 fl-1883f58c-b32 fl-1883f58c-b33 fl-1883f58c-b34 fl-1883f58c-b35 fl-1883f58c-b36 fl-1883f58c-b37   '  fl-1883f58c-b2b  '8 &6 #? #6? #? #? #E? #? #_? # ?  !!!!!!!  gm-1883f58c-b54 %  fl-1883f58c-b56  '8 &6 #?    !  !   (17  &&&  fl-1883f58c-b59 fl-1883f58c-b5a fl-1883f58c-b5b fl-1883f58c-b5c   '   &6 #L? #?   ! ! (*17 fl-1883f58c-b62 fl-1883f58c-b63 fl-1883f58c-b64 fl-1883f58c-b65   '  !& 6 "#L!? ###? $# %$!! &%! '!& ((*17 )fl-1883f58c-b6b *fl-1883f58c-b6c +fl-1883f58c-b6d ,fl-1883f58c-b6e -)*+, .'( - /&.6 0#L/? 1#? 21 32! 4!3!! 5#? 65 76! 8!7!!! 9gmatch-extract-quasiquote-vars :gk ;(7:6 <&&&& =fl-1883f58c-b80 >fl-1883f58c-b81 ?fl-1883f58c-b82 @fl-1883f58c-b83 Afl-1883f58c-b84 B=>?@A C';<B D&C6 E#9D? F#D? GF HG I#\? JI KJ! LK! M!L N(17 O&& Pfl-1883f58c-b8b Qfl-1883f58c-b8c Rfl-1883f58c-b8d SPQR T'NOS U&T6 V#LU? W#? XW YX! ZY! [!Z \fl-1883f58c-b92 ]fl-1883f58c-b93 ^fl-1883f58c-b94 _\]^ `'NO_ a&`6 b#La? c#? dc ed! fe! g!f hfl-1883f58c-b99 ifl-1883f58c-b9a jfl-1883f58c-b9b khij l'NOk m&l6 n#Lm? o!.!!! p(123:6 q&&&&&& rfl-1883f58c-ba0 sfl-1883f58c-ba1 tfl-1883f58c-ba2 ufl-1883f58c-ba3 vfl-1883f58c-ba4 wfl-1883f58c-ba5 xfl-1883f58c-ba6 yrstuvwx z'pqy {&z6 |#0{? }#L{? ~gmatch-extract-vars-step #~{? !!!! (12:6 &&&&& fl-1883f58c-baf fl-1883f58c-bb0 fl-1883f58c-bb1 fl-1883f58c-bb2 fl-1883f58c-bb3 fl-1883f58c-bb4  ' &6 #L? #~? ! ! fl-1883f58c-bbc fl-1883f58c-bbd fl-1883f58c-bbe  'NO &6 #L? #?  !!! #9?  !!! #f?  !!! #?  !!! !!! (1:6 fl-1883f58c-bec fl-1883f58c-bed fl-1883f58c-bee fl-1883f58c-bef fl-1883f58c-bf0  '< &6 #? #? #? #4? #5?   #!?    #? gp-ls #?  !!!!! gv2 gv2-ls (1:6 gm-1883f58c-bf9 % &&&&&& fl-1883f58c-bfe fl-1883f58c-bff fl-1883f58c-c00 fl-1883f58c-c01 fl-1883f58c-c02 fl-1883f58c-c03 fl-1883f58c-c04  '  fl-1883f58c-bfb  '8 &6 #L? gm-1883f58c-c0f %  fl-1883f58c-c11  '8 &6 #?  ! !!!!! gd (7:6 &&&&& fl-1883f58c-c14 fl-1883f58c-c15 fl-1883f58c-c16 fl-1883f58c-c17 fl-1883f58c-c18 fl-1883f58c-c19  ' &6 #9? #? #?  ! !!!!! fl-1883f58c-c21 fl-1883f58c-c22 fl-1883f58c-c23 fl-1883f58c-c24 fl-1883f58c-c25 fl-1883f58c-c26  ' &6 #9? #? #?  !   !!!! &&&& fl-1883f58c-c2e fl-1883f58c-c2f fl-1883f58c-c30 fl-1883f58c-c31 fl-1883f58c-c32  '; &6  #L?  !  !!!!   fl-1883f58c-c39  fl-1883f58c-c3a fl-1883f58c-c3b fl-1883f58c-c3c fl-1883f58c-c3d fl-1883f58c-c3e    ' &6 #9? !!!!  (7:6 &&&&&& fl-1883f58c-c46 fl-1883f58c-c47 fl-1883f58c-c48 fl-1883f58c-c49 fl-1883f58c-c4a fl-1883f58c-c4b fl-1883f58c-c4c   !'  "&!6 ##9"? $g"match-extract-quasiquote-vars-step %#$"? &!!!!  'fl-1883f58c-c55 (fl-1883f58c-c56 )fl-1883f58c-c57 *fl-1883f58c-c58 +fl-1883f58c-c59 ,fl-1883f58c-c5a -'()*+, .'- /&.6 0#9/? 1!!!!  2!!!!!! 3(7:6 4gm-1883f58c-c70 54% 65&&&&&&& 7fl-1883f58c-c75 8fl-1883f58c-c76 9fl-1883f58c-c77 :fl-1883f58c-c78 ;fl-1883f58c-c79 fl-1883f58c-c7c ?789:;<=> @'36? A5 Bfl-1883f58c-c72 CB D'8AC E&@6D F#9E? Ggpattern H(G Igm-1883f58c-c88 JI% KJ&& Lfl-1883f58c-c8d Mfl-1883f58c-c8e Nfl-1883f58c-c8f OLMN P'HKO QJ Rfl-1883f58c-c8a SR T'8QS U&P6T V#U? Wgexpr X#WU? YX Z#U? [gm-1883f58c-c95 \[% ]\&& ^fl-1883f58c-c9a _fl-1883f58c-c9b `fl-1883f58c-c9c a^_` b'H]a c\ dfl-1883f58c-c97 ed f'8ce g&b6f h#g? i#Wg? j#g? k! l!k mgmatch-let/helper ngvar o(nH pgm-1883f58c-ca2 qp% rq&&& sfl-1883f58c-ca7 tfl-1883f58c-ca8 ufl-1883f58c-ca9 vfl-1883f58c-caa wstuv x'orw yq zfl-1883f58c-ca4 {z |'8y{ }&x6| ~#m}? #}? !l gmatch-named-let ginit ()n q&&&& fl-1883f58c-cb2 fl-1883f58c-cb3 fl-1883f58c-cb4 fl-1883f58c-cb5 fl-1883f58c-cb6  ' &6| #? gm-1883f58c-cbe % &&& fl-1883f58c-cc3 fl-1883f58c-cc4 fl-1883f58c-cc5 fl-1883f58c-cc6  'o  fl-1883f58c-cc0  '8 &6 #m? #? !   ! !   ! ! (nW0 gm-1883f58c-ccd % &&&&&& fl-1883f58c-cdf fl-1883f58c-ce0 fl-1883f58c-ce1 fl-1883f58c-ce2 fl-1883f58c-ce3 fl-1883f58c-ce4 fl-1883f58c-ce5  '  fl-1883f58c-ccf  '8 &6 #? ! ! !   ! ! ga gb (1W  &&&&&&&&  fl-1883f58c-cf2 fl-1883f58c-cf3 fl-1883f58c-cf4 fl-1883f58c-cf5 fl-1883f58c-cf6 fl-1883f58c-cf7 fl-1883f58c-cf8 fl-1883f58c-cf9 fl-1883f58c-cfa   ' &6 #m? #0?  ! ! ! ֌ ׌ !، !ٌ (1W &&&&&&& fl-1883f58c-d07 fl-1883f58c-d08 fl-1883f58c-d09 fl-1883f58c-d0a fl-1883f58c-d0b fl-1883f58c-d0c fl-1883f58c-d0d fl-1883f58c-d0e  ' &6 #m? #0?  ! 댤 쌤 !팤 ! fl-1883f58c-d1b fl-1883f58c-d1c fl-1883f58c-d1d fl-1883f58c-d1e fl-1883f58c-d1f fl-1883f58c-d20 fl-1883f58c-d21 fl-1883f58c-d22  ' &6 #m? [  ! ! ()Wn gm-1883f58c-d2d % &&&&& fl-1883f58c-d32 fl-1883f58c-d33 fl-1883f58c-d34 fl-1883f58c-d35 fl-1883f58c-d36  fl-1883f58c-d37     '     fl-1883f58c-d2f   '8  & 6 #? #? !쌤 ! ()W &&&&&& fl-1883f58c-d43 fl-1883f58c-d44 fl-1883f58c-d45 fl-1883f58c-d46 fl-1883f58c-d47 fl-1883f58c-d48 fl-1883f58c-d49  '  &6 !# ? "#0 ? #" $! %( &gm-1883f58c-d52 '&% ('& )fl-1883f58c-d57 *fl-1883f58c-d58 +)* ,'%(+ -' .fl-1883f58c-d54 /. 0'8-/ 1&,60 2#1? 3!댤 4(W 5'&&&& 6fl-1883f58c-d5c 7fl-1883f58c-d5d 8fl-1883f58c-d5e 9fl-1883f58c-d5f :fl-1883f58c-d60 ;6789: <'45; =&<60 >#=? ?#=? @!!! A!!! Bg success-k Cg failure-k D(BC Egm-1883f58c-d66 FE% GF&&& Hfl-1883f58c-d7f Ifl-1883f58c-d80 Jfl-1883f58c-d81 Kfl-1883f58c-d82 LHIJK M'DGL NF Ofl-1883f58c-d68 PO Q'8NP R&M6Q S#R? Tgellipse? U#TR? V#R? Wgfoo X#WR? Y#4R? Z#5R? [YZ \Y ]gother ^#]R? _U^YZ `_Z a` b#R? c#R? dgc e#dR? fbce g(7BC hgm-1883f58c-d87 ih% ji&&& kfl-1883f58c-da0 lfl-1883f58c-da1 mfl-1883f58c-da2 nfl-1883f58c-da3 oklmn p'gjo qi rfl-1883f58c-d89 sr t'8qs u&p6t v#u? wgsym? x#wu? y#u? z#4u? {#5u? |z{ }z ~#u? x~z{ {  g abracadabra #u?C5hpa]4   54>"Gh-13@g_ gargs gfilenamefice-9/match.scm           gnamegerrorCR4 "@h^]CVgdummy  grtd  grec   gn     CCDh(] 45$@6gx  "gtmp "gfilenamefice-9/match.scm !   " g macro-typeg syntax-rulesgpatternsgrtdgrecgnC5R4E FYhq]Cigdummy  grtd  grec   gn   gvalue      CCDh(] 45$@6gx  "gtmp "gfilenamefice-9/match.scm &   " g macro-typeg syntax-rulesgpatternsgrtdgrecgngvalueC5ER4Z [kmoqh O]CGgdummy  grec  grtd      CCDh(] 45$@6gx  "gtmp "gfilenamefice-9/match.scm +   " g macro-typeg syntax-rulesgpatternsgrecgrtdC5ZR4r sh-]C%gdummy     CCDh(] 45$@6gx  "gtmp "gfilenamefice-9/match.upstream.scm   " g macro-typeg syntax-rulesgpatternsC5rR4 sh-]C%gdummy     Ch?]C7gdummy  gatom     Ch0a]45CYgdummy  0gapp  0gpat   0gbody   0  0 Ch0a]4545CYgdummy  +gvec  +gpat   +gbody   +  + Ch0b]45CZgdummy  0gatom  0gpat   0gbody   0  0 CCDhb])45$@45$@45$@45$ @4 5$ @  6Zgx  ~gtmp ~gtmp  " ~gtmp  9 ~gtmp  P ~gtmp  g ~gfilenamefice-9/match.upstream.scm    ~ g macro-typeg syntax-rulesgpatternsgatomgappg...gpatgbodyg...gvecg...gpatgbodyg...gatomgpatgbodyg...C5R4 [hM]CEgdummy  gv  gg+s      Ch@]Cgdummy  @gv  @gg+s   @gpat   @gfailure   @gbody   @grest   @  @ C*-h]Czgdummy  gv  gg+s   gpat   gbody   grest      CCD hP.]45$@45$@45$@ 6&gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefice-9/match.upstream.scm    P g macro-typeg syntax-rulesgpatternsgvgg+sgvgg+sgpatg=>gfailuregbodygrestgvgg+sgpatgbodygrestC5R4 /KMOQhH, 3 Cgdummy  Dgv  Dgp   Dgq   Dgr   Dgg+s   Dgsk   Dgfk   Dgi   D   D CYh<]C4gdummy  gx     CCDh@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefice-9/match.upstream.scm /   9 g macro-typeg syntax-rulesgpatternsgvgpgqgrgg+sgskgfkgigxC5R4P Zmorh |]45Ctgdummy  gv  gg+s   gsk   gfk   gi      Cwrh(]45Cgdummy  $gv  $gp   $gg+s   $gsk   $gfk   $gi   $  $ ChZ]CRgdummy  gv  gp   gx      Crh|]6tgdummy  gv  gg+s   gsk   gfk   gi     Ch(,3Cgdummy  (gv  (gp   (gq   (gg+s   (gsk   (gfk   (gi   (  ( Ch|]Ctgdummy  gv  gg+s   gsk   gfk   gi      ChZ]CRgdummy  gv  gp   gx      Ch(]Cgdummy  #gv  #gp   #gg+s   #gsk   #gfk   #gi   #  # Crh(]45Cgdummy  #gv  #gp   #gg+s   #gsk   #gfk   #gi   #  # Crh(,345Cgdummy  (gv  (ggetter   (gg   (gs   (gsk   (gfk   (gi   (  ( C   rh0,34545Cgdummy  0gv  0gsetter   0gg   0gs   0gsk   0gfk   0gi   0  0 C !"h0,3Cgdummy  )gv  )gpred   )gp   )gg+s   )gsk   )gfk   )gi   )  ) C)578h(l]Cdgdummy  "gv  "gproc   "gp   "gx   "  " C>KLh(,3Cgdummy  &gv  &gp   &gr   &gg+s   &gsk   &gfk   &gi   &  & CMXY[\^_`bce hX]  Cgdummy  Vgv  Vgp   Vgg+s   Vgsk   Vgfk   Vgi   V  V Cjvxh(,3Cgdummy  &gv  &gp   &gq   &gg+s   &gsk   &gfk   &gi   &  & C{h,3Cgdummy  gv  gp   gq   gg+s   gsk   gfk   gi      Ch(]Cgdummy  %gv  %gp   %gg+s   %gsk   %gfk   %gi   %  % Ch0,3 Cgdummy  ,gv  ,grec   ,gp   ,gg+s   ,gsk   ,gfk   ,gi   ,  , C hx,3  Cgdummy  qgv  qgp   qgq   qgg+s   qgsk   qgfk   qgi   q  q Chk]Ccgdummy  gv  gp   gg+s   gx      Crh|]6tgdummy  gv  gg+s   gsk   gfk   gi     Cr hp]4 4 55  4 5Cgdummy  lgv  lgx   lgg+s   lgsk   lgfk   lgid   l  l CCD2h ]45$@45$@45$@45$ @4 5$ @4 5$ @45$@45$@45  $ @45  $ @45  $ @45  $ @45  $ @45$@45$@4 5$!@4"5$#@4$5$%@4&5$'@4(5$)@4*5$+@4,5$-@4.5$/@016gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  ~ gtmp  gtmp  gtmp gtmp gtmp gtmp  gtmp  gtmp  6 gtmp  M gtmp  d gtmp  { gtmp   gtmp   gtmp   gtmp   gtmp   gtmp   gfilenamefice-9/match.upstream.scm N    g macro-typeg syntax-rulesgpatternsgvgg+sgskg...gfkgigvgquotegpgg+sgskg...gfkgigvg quasiquotegpgxgvgandgg+sgskg...gfkgigvgandgpgqg...gg+sgskgfkgigvgorgg+sgskgfkgigvgorgpgxgvgorgpg...gg+sgskgfkgigvgnotgpgg+sgskg...gfkgigvgget!ggettergggsgskg...gfkgigvgset!gsettergggsg...gskg...gfkgigvg?gpredgpgg+sgskgfkgigvg=gprocgpgxgvgpg___grgg+sgskgfkgigvgpgg+sgskgfkgigvgpg***gqgg+sgskgfkgigvgpg***gqgg+sgskgfkgigvgpg..1gg+sgskgfkgigvg$grecgpg...gg+sgskgfkgigvgpgqgg+sgskgfkgigvgpg...gg+sgxgvg_gg+sgskg...gfkgigvgxgg+sgskg...gfkgidg...C5PR4  h]Cgdummy  gv  gp   gg+s   gsk   gfk   gi      C-./12h8,3Cgdummy  4gv  4gp   4grest   4gg+s   4gsk   4gfk   4gi   4  4 C:HIh(,3Cgdummy  !gv  !gp   !gg+s   !gsk   !gfk   !gi   !gdepth   !  ! CM\h , 3 Cgdummy  gv  gp   gg+s   gsk   gfk   gi   gx   gdepth       C_lh , 3 Cgdummy  gv  gp   gg+s   gsk   gfk   gi   gx   gdepth       Co}~ h`, 3  Cgdummy  [gv  [gp   [gq   [gg+s   [gsk   [gfk   [gi   [gdepth   [   [ Ch@,3Cgdummy  @gv  @gelt   @gg+s   @gsk   @gfk   @gi   @gdepth   @  @ Ch ,3Cgdummy  gv  gx   gg+s   gsk   gfk   gi   gdepth      CCDh]A45$@45$@45$@45$ @4 5$ @4 5$ @45$@45$@6gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  ~ gtmp  gtmp   gfilenamefice-9/match.upstream.scm    g macro-typeg syntax-rulesgpatternsgvgunquotegpgg+sgskgfkgigvgunquote-splicinggpgrestgg+sgskgfkgigvg quasiquotegpgg+sgskgfkgigdepthgvgunquotegpgg+sgskgfkgigxgdepthgvgunquote-splicinggpgg+sgskgfkgigxgdepthgvgpgqgg+sgskgfkgigdepthgvgeltg...gg+sgskgfkgigdepthgvgxgg+sgskgfkgigdepth C5R4 h ,3Cgdummy  gx  gq   gg+s   gsk   gfk   gdepth   gi      CCDh(] 45$@6gx  "gtmp "gfilenamefice-9/match.upstream.scm    " g macro-typeg syntax-rulesgpatternsgxgqgg+sgskgfkgdepthgiC5R4 hP]CHgdummy  gexpr  gids      CCDh(] 45$@6gx  "gtmp "gfilenamefice-9/match.upstream.scm    " g macro-typeg syntax-rulesgpatternsgexprgidsg...C5R4 rhv]45Cngdummy  gletish  gargs   gexpr   gids      CCDh(] 45$@6gx  "gtmp "gfilenamefice-9/match.upstream.scm    " g macro-typeg syntax-rulesgpatternsgletishgargsgexprg...gidsg...C5R4 [hP]CHgdummy  garg  gexpr      CCDh(] 45$@6gx  "gtmp "gfilenamefice-9/match.upstream.scm    " g macro-typeg syntax-rulesgpatternsgarggexprC5R4 rhH, 3 4455Cgdummy  Ggv  Ggp   Ggg+s   Ggsk   Ggfk   Ggi   Ggid   Ggid-ls   G   G CCDh(] 45$@6gx  "gtmp "gfilenamefice-9/match.upstream.scm    " g macro-typeg syntax-rulesgpatternsgvgpgg+sgskg...gfkgig...gidgid-lsg...C5R4 h|]Ctgdummy  gv  gg+s   gsk   gfk   gx      ChZ]CRgdummy  gv  gp   gx      C     h@,3Cgdummy  <gv  <gp   <gq   <gg+s   <gsk   <gfk   <gi   <  < CCD hP]45$@45$@45$@ 6gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefice-9/match.upstream.scm    P g macro-typeg syntax-rulesgpatternsgvgg+sgskgfkgxgvgpgxgvgpgqgg+sgskgfkgiC5R4N $%&(r*+.h8]C0gtmp-1883f58c-a0e     C024hV]CNgtmp-1883f58c-a10  gtmp-1883f58c-a0f     C6;<7?@BChV]CNgtmp-1883f58c-a13  gtmp-1883f58c-a12    CEh, 3 454 5  4 545 45Cgdummy  gv  gp   gg+s   gsk   gfk   gi   gid   gid-ls      CFWY[]^_hipqrsuwh8]C0gtmp-1883f58c-a29     Cxz{hV]CNgtmp-1883f58c-a2b  gtmp-1883f58c-a2a     C|~hV]CNgtmp-1883f58c-a2e  gtmp-1883f58c-a2d    Ch, 3      4 5 4 5  4 5Cgdummy  gv  gp   gr   gg+s   gsk   gfk   gi   gid   gid-ls     CCDh@G]45$@45$@6?gx  9gtmp 9gtmp  " 9gfilenamefice-9/match.upstream.scm    9 g macro-typeg syntax-rulesgpatternsgvgpgg+sgskg...gfkgigidgid-lsg...gvgpgrgg+sgskg...gfkgigidgid-lsg...C5NR4G h[]CSgdummy  gx  gy   gsk      Ch=]C5gdummy  gsk     C[hL]CDgdummy  gx  gsk     CCD hP]45$@45$@45$@ 6gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefice-9/match.upstream.scm ,   P g macro-typeg syntax-rulesgpatternsgxgygskgskgxgskC5GR4w hV]CNgtmp-1883f58c-a63  gtmp-1883f58c-a62     ChV]CNgtmp-1883f58c-a67  gtmp-1883f58c-a66     Ch8]C0gtmp-1883f58c-a69     Ch, 3  4   5      4  5  4  5 Cgdummy  gv  gp   gq   gg+s   gsk   gfk   gi   gid   gid-ls     CCDh(] 45$@6gx  "gtmp "gfilenamefice-9/match.upstream.scm E   " g macro-typeg syntax-rulesgpatternsgvgpgqgg+sgskgfkgigidgid-lsg...C5wR4 h8]Cgdummy  1gv  1gn   1gpats   1gp   1gq   1gx   1  1 C(h ,3Cgdummy  gv  gn   gpats   gp   gsk   gfk   gi      C/h<]C4gdummy  gx     CCD hP]45$@45$@45$@ 6gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefice-9/match.upstream.scm h   P g macro-typeg syntax-rulesgpatternsgvgngpatsgpgqgxgvgngpatsgpg___gskgfkgigxC5R4 0EFGHJKMN hX,34 5Cgdummy  Qgv  Qgn   Qgpat   Qgindex   Qgsk   Qgfk   Qgi   Q  Q CR^`brh0]45Cgdummy  )gv  )gn   )gpats   )gp   )gq   )gx   )  ) CCDh@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefice-9/match.upstream.scm u   9 g macro-typeg syntax-rulesgpatternsgvgngpatgindexg...gskgfkgigvgngpatsg...gpgqgxC5R4L crhk]6cgdummy  gv  gsk   gfk   gi     Cdxy{|~hP,3Cgdummy  Lgv  Lgpat   Lgindex   Lgrest   Lgsk   Lgfk   Lgi   L  L CCDh@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefice-9/match.upstream.scm    9 g macro-typeg syntax-rulesgpatternsgvgskg...gfkgigvgpatgindexgrestgskgfkgiC5LR4 N h`, 3 4 5 Cgdummy  `gv  `gn   `gpat   `gindex   `gp   `gsk   `gfk   `gi   `   ` CCDh(] 45$@6gx  "gtmp "gfilenamefice-9/match.upstream.scm    " g macro-typeg syntax-rulesgpatternsgvgngpatgindexg...gpgskgfkgiC5R4 h(,3Cgdummy  &gv  &gp   &gn   &glen   &gsk   &gfk   &gi   &  & CCDh(] 45$@6gx  "gtmp "gfilenamefice-9/match.upstream.scm    " g macro-typeg syntax-rulesgpatternsgvgpgnglengskgfkgiC5R4 Fh8]C0gtmp-1883f58c-b23     ChV]CNgtmp-1883f58c-b25  gtmp-1883f58c-b24     CrhV]CNgtmp-1883f58c-b28  gtmp-1883f58c-b27    Ch, 3 4 54 54 5        4 5Cgdummy  gv  gp   gn   glen   gsk   gfk   gi   gid   gid-ls     CCDh(] 45$@6gx  "gtmp "gfilenamefice-9/match.upstream.scm    " g macro-typeg syntax-rulesgpatternsgvgpgnglengskg...gfkgigidgid-lsg...C5R4  h`, 3  Cgdummy  ^gv  ^grec   ^gn   ^gp   ^gq   ^gg+s   ^gsk   ^gfk   ^gi  ^   ^ Crh,36gdummy  gv  grec   gn   gg+s   gsk   gfk   gi      CCDh@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefice-9/match.upstream.scm    9 g macro-typeg syntax-rulesgpatternsgvgrecgngpgqgg+sgskgfkgigvgrecgngg+sgskg...gfkgiC5R4L  h]]CUgdummy  gpred  gp   gx     C"h\]CTgdummy  grec  gp   gx     C'0h]]CUgdummy  gproc  gp   gx     C4rhi]6agdummy  gx  gk   gi   gv     C8EHhi]Cagdummy  gx  gk   gi   gv      CMVhK]CCgdummy  gp  gx     C[bhK]CCgdummy  gp  gx     CgnhK]CCgdummy  gp  gx     Co|}h8]Cgdummy  6gp  6gq   6gr   6gk   6gi   6gv   6  6 Ch x]Cpgdummy  gp  gq   gk   gi   gv      ChK]CCgdummy  gp  gx     CrhZ]6Rgdummy  gk  gi   gv     CrhZ]6Rgdummy  gk  gi   gv     CrhZ]6Rgdummy  gk  gi   gv     CrhZ]6Rgdummy  gk  gi   gv     Cr hPi]4 545Cagdummy  Igp  Igk   Igi   Igv   I  I CCD$h]45$@45$@45$@45$ @4 5$ @4 5$ @45$@45$@45  $ @45  $ @45  $ @45  $ @45  $ @45$@45$@4 5$!@"#6gx  {gtmp {gtmp  " {gtmp  9 {gtmp  P {gtmp  g {gtmp  ~ {gtmp  {gtmp  {gtmp {gtmp {gtmp {gtmp  {gtmp  {gtmp  6 {gtmp  M {gtmp  d {gfilenamefice-9/match.upstream.scm    { g macro-typeg syntax-rulesgpatternsg?gpredgpgxg$grecgpgxg=gprocgpgxgquotegxgkg...gigvg quasiquotegxgkgigvgandgpgxgorgpgxgnotgpgxgpgqgrgkgigvgpgqgkgigvgpg...gxg_gkg...gigvg___gkg...gigvg***gkg...gigvg..1gkg...gigvgpgkg...gig...gvC5LR4~ rNh(]454455Cgdummy  'gp  'gk   'gi   'gv   'gv2   'gv2-ls   '  ' CCDh(] 45$@6gx  "gtmp "gfilenamefice-9/match.upstream.scm    " g macro-typeg syntax-rulesgpatternsgpgkgigvgv2gv2-lsg...C5~R49 hx]Cpgdummy  gx  gk   gi   gv   gd      Chx]Cpgdummy  gx  gk   gi   gv   gd      C hi]Cagdummy  gx  gk   gi   gv      C hx]Cpgdummy  gx  gk   gi   gv   gd      C#%h ]Cgdummy  gx  gy   gk   gi   gv   gd      C&0hx]Cpgdummy  gx  gk   gi   gv   gd      C1rhx]6pgdummy  gx  gk   gi   gv   gd     CCDh3]945$@45$@45$@45$ @4 5$ @4 5$ @45$@6+gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  ~ gtmp  gfilenamefice-9/match.upstream.scm    g macro-typeg syntax-rulesgpatternsg quasiquotegxgkgigvgdgunquote-splicinggxgkgigvgdgunquotegxgkgigvgunquotegxgkgigvgdgxgygkgigvgdgxg...gkgigvgdgxgkg...gigvgdC59R4$ 2FrNh0,3454455Cgdummy  -gx  -gk   -gi   -gv   -gd   -gv2   -gv2-ls   -  - CCDh(] 45$@6gx  "gtmp "gfilenamefice-9/match.upstream.scm    " g macro-typeg syntax-rulesgpatternsgxgkgigvgdgv2gv2-lsg...C5$R4  VYZXh T]45CLgdummy  gpattern  gbody      CCDh(] 45$@6gx  "gtmp "gfilenamefice-9/match.upstream.scm    " g macro-typeg syntax-rulesgpatternsgpatterngbodyg...C5 R4  hijh T]45CLgdummy  gpattern  gbody      CCDh(] 45$@6gx  "gtmp "gfilenamefice-9/match.upstream.scm    " g macro-typeg syntax-rulesgpatternsgpatterngbodyg...C5 R4 l~Nh c]45C[gdummy  gvar  gvalue   gbody      CNht]45Clgdummy  gloop  gvar   ginit   gbody      CCDh@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefice-9/match.upstream.scm )   9 g macro-typeg syntax-rulesgpatternsgvargvalueg...gbodygloopgvarginitg...gbodyC5R4 lNh c]45C[gdummy  gvar  gvalue   gbody      CCDh(] 45$@6gx  "gtmp "gfilenamefice-9/match.upstream.scm 3   " g macro-typeg syntax-rulesgpatternsgvargvalueg...gbodyC5R4m Nhs]45Ckgdummy  glet  gvar   gexpr   gbody      CNh(]4545Cgdummy  $glet  $gvar   $gexpr   $gpat   $gtmp   $gbody   $  $ Crh8, 3 4545Cgdummy  7glet  7gv   7gp   7ga   7gb   7gexpr   7grest   7gbody   7   7 Crh@,3454455Cgdummy  9glet  9gv   9gp   9ga   9gexpr   9grest   9gbody   9  9 Crh(,345Cgdummy  'glet  'gv   'gp   'ga   'gexpr   'grest   'gbody   '  ' CCDhH])45$@45$@45$@45$ @4 5$ @  6@gx  ~gtmp ~gtmp  " ~gtmp  9 ~gtmp  P ~gtmp  g ~gfilenamefice-9/match.upstream.scm 8   ~ g macro-typeg syntax-rulesgpatternsgletgvargexprg...gbodygletgvargexprg...gpatgtmpg...gbodygletgvg...gpg...gagbgexprgrestgbodygletgvg...gpg...gag...gexprgrestgbodygletgvg...gpg...gagexprgrestgbodyC5mR4 Nh(]4545C}gdummy  &gloop  &gpat   &gexpr   &gvar   &gbody   &  & C!r#h(]45Cgdummy  !gloop  !gv   !gpat   !gexpr   !grest   !gbody   !  ! CCDh@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefice-9/match.upstream.scm I   9 g macro-typeg syntax-rulesgpatternsgloopgpatgexprgvarg...gbodygloopgvg...gpatgexprgrestgbodyC5R4 $2h?]C7gdummy  gbody     C3>?ht]Clgdummy  gpat  gexpr   grest   gbody      CCDh@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefice-9/match.upstream.scm X   9 g macro-typeg syntax-rulesgpatternsgbodygpatgexprgrestgbodyC5R40 @hy]Cqgdummy  ga  gb   g success-k   g failure-k      CAhj]Cbgdummy  ga  g success-k   g failure-k      C"SUVX[\af h8k]Ccgdummy  3gid  3g success-k   3g failure-k   3  3 CCD hP3]45$@45$@45$@ 6+gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefice-9/match.upstream.scm l   P g macro-typeg syntax-rulesgpatternsgagbg success-kg failure-kgag...g success-kg failure-kgidg success-kg failure-kC50R4 @hy]Cqgdummy  gx  gy   g success-k   g failure-k      CAhj]Cbgdummy  gx  g success-k   g failure-k      C"vxy|}h0j]Cbgdummy  .gx  .g success-k   .g failure-k   .  . CCD hP2]45$@45$@45$@ 6*gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefice-9/match.upstream.scm    P g macro-typeg syntax-rulesgpatternsgxgyg success-kg failure-kgxg...g success-kg failure-kgxg success-kg failure-kC5RCYgm  (gfilenamefice-9/match.scm     j C62.0/ccache/ice-9/i18n.go000064400000051600151463412640010275 0ustar00GOOF----LE-8-2.0hS]4h] gguile  gdefine-module*   gice-9 gi18n  gfilenameS fice-9/i18n.scm gimportsS goptargs      gexportsS g make-locale glocale? g%global-locale gstring-locale? gstring-locale-ci? gstring-locale-ci=? g char-locale? gchar-locale-ci? gchar-locale-ci=? gchar-locale-downcase gchar-locale-upcase gchar-locale-titlecase !gstring-locale-downcase "gstring-locale-upcase #gstring-locale-titlecase $glocale-string->integer %glocale-string->inexact &glocale-encoding 'glocale-day-short (g locale-day )glocale-month-short *g locale-month +glocale-am-string ,glocale-pm-string -glocale-date+time-format .glocale-date-format /glocale-time-format 0glocale-time+am/pm-format 1g locale-era 2glocale-era-year 3glocale-era-date-format 4glocale-era-date+time-format 5glocale-era-time-format 6glocale-currency-symbol 7glocale-monetary-decimal-point 8g#locale-monetary-thousands-separator 9glocale-monetary-grouping :g!locale-monetary-fractional-digits ;g)locale-currency-symbol-precedes-positive? g#locale-negative-separated-by-space? ?glocale-monetary-positive-sign @glocale-monetary-negative-sign Aglocale-positive-sign-position Bglocale-negative-sign-position Cgmonetary-amount->locale-string Dglocale-digit-grouping Eglocale-decimal-point Fglocale-thousands-separator Ggnumber->locale-string Hglocale-yes-regexp Iglocale-no-regexp J !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHI9 Kgset-current-module LK MK Ngload-extension Og string-append Pf libguile- Qgeffective-version Rf scm_init_i18n Sg nl-langinfo TgCODESET Ugmake-syntax-transformer VU WU Xgdefine-vector-langinfo-mapping Ygmacro Zg $sc-dispatch [Z \Z ]g_ ^gany _]^ `g syntax->datum a` b` cg datum->syntax dc ec fglength ggdefine hg %nl-items igvector jgitem kglocale ljk mgif ngand oginteger? poj qgexact? rqj snpr tg>= utj  vg<= wgapply xg vector-ref yxhj zwSyk {gthrow |gquote }g out-of-range ~|} f out of range {~j  gwrong-type-arg | fwrong argument type {j  gsyntax-violation   f-source expression failed to match any pattern gABDAY_1 gABDAY_2 gABDAY_3 gABDAY_4 gABDAY_5 gABDAY_6 gABDAY_7 gDAY_1 gDAY_2 gDAY_3 gDAY_4 gDAY_5 gDAY_6 gDAY_7 gABMON_1 gABMON_2 gABMON_3 gABMON_4 gABMON_5 gABMON_6 gABMON_7 gABMON_8 gABMON_9 gABMON_10 gABMON_11 gABMON_12 gMON_1 gMON_2 gMON_3 gMON_4 gMON_5 gMON_6 gMON_7 gMON_8 gMON_9 gMON_10 gMON_11 gMON_12 gdefine-simple-langinfo-mapping gdefined? k gAM_STR gPM_STR gD_T_FMT gD_FMT gT_FMT g T_FMT_AMPM gERA gERA_YEAR g ERA_D_T_FMT g ERA_D_FMT g ERA_T_FMT g define-monetary-langinfo-mapping gintl? k gINT_CURR_SYMBOL gCRNCYSTR gINT_FRAC_DIGITS g FRAC_DIGITS g POSITIVE_SIGN g NEGATIVE_SIGN gMON_DECIMAL_POINT gMON_THOUSANDS_SEP g MON_GROUPING glocale-monetary-digit-grouping gINT_P_CS_PRECEDES g P_CS_PRECEDES gINT_N_CS_PRECEDES g N_CS_PRECEDES gINT_P_SEP_BY_SPACE gP_SEP_BY_SPACE gINT_N_SEP_BY_SPACE gN_SEP_BY_SPACE gINT_P_SIGN_POSN g P_SIGN_POSN gINT_N_SIGN_POSN g N_SIGN_POSN f0 g list->string g integer->char ginteger->string gexpt gfloor g string-pad ground ginexact->exact f gnumber-decimal-string gstring=? g string-length gmin g substring g%number-integer-part f  g parenthesize f( f) g sign-before g sign-after g unspecified gsign-before-currency-symbol gsign-after-currency-symbol gerror funsupported sign position gadd-monetary-sign+currency gabs gGROUPING g RADIXCHAR gTHOUSEP f- gYESEXPR gNOEXPRC5hh<]4   J54M>"G4Ni4OiP4Qi55R>"GSTh{-13@sglocale gfilenamefice-9/i18n.scm _  `   gnameglocale-encodingC&R4WXY\_befghilmsnuvjzhP]45     Cgname  Jgnl-items  Jg item-count  Jgdefines   Jgfilenamefice-9/i18n.scm i  j  j  k   j   r  & m  < t  > m  I r   J Chb] 45L4?6Zgargs  gv gfilenamefice-9/i18n.scm  i    Ch(`] 45$ O@6Xgy  'gtmp 'gfilenamefice-9/i18n.scm i   ' C5XR{oq}Sh-13HK"   64 5$A4 5$2"  6 $ $ J@""""gitem ~glocale ~g %nl-items  ~gfilenamefice-9/i18n.scm w * q 2 N p 4 j t ' n t  ~ gnameglocale-day-shortC'R{oq}Sh-13HK"   64 5$A4 5$2"  6 $ $ J@""""gitem ~glocale ~g %nl-items  ~gfilenamefice-9/i18n.scm z * q 2 N p 4 j t ' n t  ~ gnameg locale-dayC(R{oq}Sh-13H     K"  645$A45$2"  6 $ $ J@""""gitem glocale g %nl-items  gfilenamefice-9/i18n.scm } 4 q 2 X p 4 t t ' x t  gnameglocale-month-shortC)R{oq}Sh-13H     K"  645$A45$2"  6 $ $ J@""""gitem glocale g %nl-items  gfilenamefice-9/i18n.scm 4 q 2 X p 4 t t ' x t  gnameg locale-monthC*R4WY\_bewSgkh0] 45$"Cgname  -gitem  -gdefault   -gbody   -gfilenamefice-9/i18n.scm        "   - Chc] 45L4?6[gargs  gv gfilenamefice-9/i18n.scm     Ch(a] 45$ O@6Ygy  'gtmp 'gfilenamefice-9/i18n.scm   ' C5RShu-13@mglocale gfilenamefice-9/i18n.scm   gnameglocale-am-stringC+RShu-13@mglocale gfilenamefice-9/i18n.scm   gnameglocale-pm-stringC,RSh|-13@tglocale gfilenamefice-9/i18n.scm   gnameglocale-date+time-formatC-RShw-13@oglocale gfilenamefice-9/i18n.scm   gnameglocale-date-formatC.RShw-13@oglocale gfilenamefice-9/i18n.scm   gnameglocale-time-formatC/RSh}-13@uglocale gfilenamefice-9/i18n.scm   gnameglocale-time+am/pm-formatC0RSho-13@gglocale gfilenamefice-9/i18n.scm   gnameg locale-eraC1RSht-13@lglocale gfilenamefice-9/i18n.scm   gnameglocale-era-yearC2RSh-13@xglocale gfilenamefice-9/i18n.scm   gnameglocale-era-date+time-formatC4RSh{-13@sglocale gfilenamefice-9/i18n.scm   gnameglocale-era-date-formatC3RSh{-13@sglocale gfilenamefice-9/i18n.scm   gnameglocale-era-time-formatC5R4WY\_bewSmg h`I]45$"45$"CAgname  ^g local-item  ^g intl-item   ^g default/local   ^g default/intl   ^gintl  : Oglocal  : Ogbody  O ^gfilenamefice-9/i18n.scm        )  +  : @ O  S   ^ Chc] 45L4?6[gargs  gv gfilenamefice-9/i18n.scm     Ch(a] 45$ O@6Ygy  'gtmp 'gfilenamefice-9/i18n.scm   ' C5RSh -13$@@gintl? glocale gfilenamefice-9/i18n.scm   gnameglocale-currency-symbolC6RSh -13$@@gintl? glocale gfilenamefice-9/i18n.scm   gnameg!locale-monetary-fractional-digitsC:RSh-13@zglocale gfilenamefice-9/i18n.scm   gnameglocale-monetary-positive-signC?RSh-13@zglocale gfilenamefice-9/i18n.scm   gnameglocale-monetary-negative-signC@RSh-13@zglocale gfilenamefice-9/i18n.scm   gnameglocale-monetary-decimal-pointC7RSh-13@glocale gfilenamefice-9/i18n.scm   gnameg#locale-monetary-thousands-separatorC8RSh-13@{glocale gfilenamefice-9/i18n.scm   gnameglocale-monetary-digit-groupingCRSh -13$@@gintl? glocale gfilenamefice-9/i18n.scm   gnameg)locale-currency-symbol-precedes-positive?C;RSh -13$@@gintl? glocale gfilenamefice-9/i18n.scm   gnameg)locale-currency-symbol-precedes-negative?CRSh -13$@@gintl? glocale gfilenamefice-9/i18n.scm   gnameglocale-positive-sign-positionCARSh -13$@@gintl? glocale gfilenamefice-9/i18n.scm   gnameglocale-negative-sign-positionCBRhP] $C"2 $6  4 05""gnumber  Ngnumber  Cgdigits   Cgdigit  ) 8gfilenamefice-9/i18n.scm              $   )  % )   ,  2  3  5  ;   C  C  F   N   N gnameginteger->stringg documentationfDReturn a string representing NUMBER, an integer, written in base 10.CRo hg]"45$/4 54544455506"q4 545$" $7454 5444555 $CC" "_gnumber  g digit-count  gnumber  ! <gdecimals  @ gnumber'  L gt  X mgfraction  gstr  gfilenamefice-9/i18n.scm            !   !   !   &   )  % ,  , 4  % 6   <   @   C  ! L   L   Q   X   X   j   q  t  % {  %  "         '      !  !  "  $  $   )  gnamegnumber-decimal-stringg documentationfReturn a string representing the decimal part of NUMBER. When DIGIT-COUNT is an integer, return exactly DIGIT-COUNT digits; when DIGIT-COUNT is #t, return as many decimals as necessary, up to an arbitrary limit.CROh*]3"}45$@(@45454 545$ """t"gint  ggrouping  g separator   gint   ggrouping   gresult   glen  . gcut  : gsub  Z y gfilenamefice-9/i18n.scm &  ,   / /   /  /   /   /  ' 0  ( 2  . 2 1 3  6 3  : 3  : 2 = 4  G 4 $ I 4  L 5  M 6  V 6 - Z 6  Z 6  a 7  e 7  l 8  v 9  4 ,  .  ,   gnameg%number-integer-partCR?@6;<=>ABOh]D $ 45" $ 45"45$"$"$ "  45$ " 4 5   $/ 45$4  5" 4  56 $- 45$4  5" 4  56 $" $%45$   6  6 $%45$   6  6 $%45$   6  64 56gamount  gfigure  gintl?   glocale   g positive?   gsign  . gcurrency  9 gcurrency-precedes?  I g separated?  Y g sign-position i gcurrency-space gkey  gfilenamefice-9/i18n.scm ;  >   >  @   @  @   A  ! @ " A  . B  . >  1 C  9 >  A E I >  Q I Y >  a M i >  l Q  x Q z Q ( Q , >  X X  Z  T  T U  V  Z 3 Z  X  T  T U  V  \   X   _  _  + ` 7 a @ X  A c M c  Y d e e n X  o g { g   h  i  k   k *  k :   gnamegadd-monetary-sign+currencyCR:O78h-.,3#45$" 4444555544554 5$" $ "*4 4 54 5$4  5"545454 4556gamount gintl? glocale  gt   2gfraction-digits  2 gint  J gdec  Z gt  e ygdec  ggrouping  g separator   gfilenamefice-9/i18n.scm n  v   v 2 u  5   8  % ;  & >  - F  & H  % J   J u  M   P  , Z   Z   ] y  c y " e y  e y  v y & } y  z  {  {  | 6 | # |  } # {  u    u    u   "  #  "  (  gnamegmonetary-amount->locale-stringg documentationfConvert @var{amount} (an inexact) into a string according to the cultural conventions of either @var{locale} (a locale object) or the current locale. If @var{intl?} is true, then the international monetary format for the given locale is used.CCRShz-13@rglocale gfilenamefice-9/i18n.scm    gnameglocale-digit-groupingCDRShy-13@qglocale gfilenamefice-9/i18n.scm    gnameglocale-decimal-pointCERSh-13@wglocale gfilenamefice-9/i18n.scm    gnameglocale-thousands-separatorCFROEoDFhC-.,3## $" $"4444555544554 5$" $";4 4 54 5$"4 5$4 5""54545 456;gnumber gfraction-digits glocale  gsign  = gint  U gdec  e gt  p gdec  ggrouping  g separator   gfilenamefice-9/i18n.scm  #   '  )   1   5  7   =   =   @   C  ' F  ( I  / Q  ( S  ' U   U   X   [  . e   e   h   n  " p   p    &         (    +  (  #  #                - gnamegnumber->locale-stringg documentationf^Convert @var{number} (an inexact) into a string according to the cultural conventions of either @var{locale} (a locale object) or the current locale. By default, print as many fractional digits as necessary, up to an upper bound. Optionally, @var{fraction-digits} may be bound to an integer specifying the number of fractional digits to be displayed.CGRShv-13@nglocale gfilenamefice-9/i18n.scm    gnameglocale-yes-regexpCHRShu-13@mglocale gfilenamefice-9/i18n.scm    gnameglocale-no-regexpCIRCgm  ,gfilenamefice-9/i18n.scm   - W  2 W  8 W ! 9 W - A W  C X  H W  _  w i z  } p X R   J   F    E   [     e /  " &b  )E & . ; 3 n 4M  4  5  ;  ;  <`  1  . This is free software: you are free to change and redistribute it. There is NO WARRANTY, to the extent permitted by law. !fLicense LGPLv3+: GNU LGPL 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. "gportS #"  $gcopyright-yearS %$  &gcopyright-holderS '&  (g copyrightS )(  *glicenseS +*  ,g command-nameS -,  .gpackagerS /.  0gpackager-versionS 10  2#%')+-/1 3gcurrent-output-port 4fFree Software Foundation, Inc. 5gformat 6fCopyright (C) ~a ~a 7f ~a (~a) ~a  8f~a ~a  9fPackaged by ~a (~a)  :fPackaged by ~a  ;gdisplay =  ?.  @gpackager-bug-addressS A@  B#>?A Cg string-append Dfhttp://www.gnu.org/software/ Ef/ Ff Report bugs to: ~a  GfReport ~a bugs to: ~a  Hf~a home page: <~a>  If?General help using GNU software:  JfEvaluate code with Guile, interactively or from a script. [-s] FILE load source code from FILE, and exit -c EXPR evalute expression EXPR, and exit -- stop scanning arguments; run interactively The above switches stop argument processing, and pass all remaining arguments as the value of (command-line). If FILE begins with `-' the -s switch is mandatory. -L DIRECTORY add DIRECTORY to the front of the module load path -C DIRECTORY like -L, but for compiled files -x EXTENSION add EXTENSION to the front of the load extensions -l FILE load source code from FILE -e FUNCTION after reading script, apply FUNCTION to command line arguments --language=LANG change language; default: scheme -ds do -s script at this point --debug start with the "debugging" VM engine --no-debug start with the normal VM engine (backtraces but no breakpoints); default is --debug for interactive use, but not for `-s' and `-c'. --auto-compile compile source files automatically --fresh-auto-compile invalidate auto-compilation cache --no-auto-compile disable automatic source file compilation; default is to enable auto-compilation of source files. --listen[=P] listen on a local port or a path for REPL clients; if P is not given, the default is local port 37146 -q inhibit loading of user init file --use-srfi=LS load SRFI modules for the SRFIs in LS, which is a list of numbers like "2,13,14" -h, --help display this help and exit -v, --version display version information and exit \ read arguments from following script lines Kg*usage* Lgcurrent-error-port Mgapply Nf Usage: ~a [OPTION]... [FILE]...  Of GNU Guile Pfbug-guile@gnu.org Qf"http://www.gnu.org/software/guile/ Rgassq-ref Sg%guile-build-info Tgpackager Ugpackager-bug-address Vgexit Wg shell-usage Xgcurrent-language Ygscheme Zgcall-with-input-string [gread \g eof-object? ]geval ^gcurrent-module _g module-ref `gresolve-module ag eval-string ba cgeval-string/lang dgload-in-vicinity eggetcwd fgbase ggcompile hfg ig compile-file jgtoS kgvalue lg load/lang mfguile ngstring-prefix? of- pgstring=? qf-s rferror:  sfmissing argument to `-s' switch tf~% ug@@ vul wf-c xfmissing argument to `-c' switch yuc zf-- {f-l |fmissing argument to `-l' switch }f-L ~fmissing argument to `-L' switch f-C fmissing argument to `-C' switch f-x fmissing argument to `-x' switch f-e fmissing argument to `-e' switch gopen-input-string gmemq g@ u gand-map gsymbol? gmain  f --language= gquote gstring->symbol g substring f --language f'missing argument to `--language' option f-ds f)the -ds switch may only be specified once f--debug f --no-debug f--auto-compile g%load-should-auto-compile f--fresh-auto-compile g%fresh-auto-compile f--no-auto-compile f-q f --use-srfi= gmap gstring->number finvalid SRFI specification gexact? ginteger? g string-split g use-srfis f--listen grepl gserver  g spawn-server u  f --listen= finvalid port for --listen gmake-tcp-server-socket u gmake-unix-domain-server-socket u gpathS funknown argument to --listen f-h f--help f-v f --version gversion gpackager-version funrecognized switch ~a f1the `-ds' switch requires the use of `-s' as well gset-program-arguments gdebug gcontrol  g%  gbegin gappend   gload-user-init   gset! g%load-extensions gcons  g %load-path  g%load-compiled-path  greverse!   gtop-repl    gquit  g string-rindexC5h@.]4   54>"GiR4i 5R4i!5R23456789:;<hH-/ 0 3 #45# ##45### # $4>"G"4>"G$F $!44  5 >"G"44  5>"G"4 >"G4 >"G4 >"G4 >"G 6gpackage  Hgversion  Hgport   Hgcopyright-year   Hgcopyright-holder   Hg copyright   Hglicense   Hg command-name   Hgpackager   Hgpackager-version  H gfilenamefice-9/command-line.scm A  B  3 E ( < F ! A F , G F ! t K  u L  { L  L  M  M  M  O  P  Q Q  Q  Q  Q R R  R  R  R T   U   V  / W  H X   H  gportS gcopyright-yearS gcopyright-holderS g copyrightS glicenseS g command-nameS gpackagerS gpackager-versionS  gnameg version-etcC RB3CDE5FGHI h#-/03#45# 45##445>"G$+$!44 5>"G""44 5>"G4 56gpackage  g bug-address  gport   gurl   gpackager   gpackager-bug-address   gfilenamefice-9/command-line.scm ]  ^ + ' _ * + ` + / b + 1 _ * F d  K d  O d  Q d  X d  f e  l e  m f  r f  v f  x f  f  g  g  g  g  g  i i i h    gportS gurlS gpackagerS gpackager-bug-addressS gnamegemit-bug-reporting-addressCR4iJ5KRL3M5<N;KOP"=Q.RST@UVh-.13#$ 45"45$.4>"G4>"G"445>"G4 >"G4>"G4    4545> "G$ 6Cgname gfatal? gfmt  gargs  gport  ) gfilenamefice-9/command-line.scm     %  )  1  2  J  `  e  i  k  r  {       ,   !      gnameg shell-usageCWRXYZ[\]^h@] "14545$C445>"G""gport  ;gexp 7gfilenamefice-9/command-line.scm           "  +  7  7   ; C_`ba h0] 45$644556gstr  ,gkey  ,gfilenamefice-9/command-line.scm           " " $  & 8 (  ,   , gnamegeval-string/langCcRXYde_`hijk h8] 45$ 4564455  6gf  3gkey  3gfilenamefice-9/command-line.scm           !  % " '  ) : +  1 3   3 gnameg load/langClRmnopqWCrstvwxyz{|}~[\XWCrt hX] 45"M456$-45$45$ $C""""gx  Xgn Xgfilenamefice-9/command-line.scm i   j ) j     m -  *  !  ! k " ( k - 2 k & 3 k 8 = k & A k E E k &  X C"EV O*,.RST0he]C]gext  gfilenamefice-9/command-line.scm        Chf]C^gpath  gfilenamefice-9/command-line.scm        Chf]C^gpath  gfilenamefice-9/command-line.scm        ClhH-.,3H#KH H H HHHHHHH" (     "  45$D45$]("4J4  5>"G"KKJ$JJ   "% J   "4 5$A("4J4  5>"G"K   "45$    "45$>("4J4 5>"G"    "45$=("4J4 5>"G"JK   "q45$=("4J4 5>"G"JK   "'45$=("4J4 5>"G"JK   "45$("4J4 5>"G"45454545$?$245$" 4 5$ !"""" !K   "!4#5$%$%4&4' 55   "4(5$H("4J4) 5>"G"$%4&5   "4*5$@J$"4J4+ 5>"G"K J   "M4,5$K K    ".4-5$K K    "4.5$ /   "405$ / 1   "425$ /   "435$K    "445$_456O474' 5,55("4J48 5>"G"9%   "04:5$;   "4<5$4' 54=5$c"4J4> 55"D4?5$54@5$" $ABC"""""""24D5$AEF"4J4G 55   "E4H5$" 4I5$4J>"GJ 64K5$" 4L5$:4MN4O5PQRS4TUV5W4TUX5> "GJ 6J4Y 56KKJ$JJ   " J   ""J$-J$"4J4Z 5>"G"4 >"GJ $"J$J "$-4\]>"G4^4_5]>"G"`a4bJ$J $"c"4b45dJ54b45eJ54b45fJ54b4g 54bJ$ Jh"J$i"j555555C$7K4kJ/5  $4'J 5"JK   "  "gargs  Hg usage-name  Hgarg0  & Hg script-cell  & Hg entry-point  & Hguser-load-path  & Hguser-load-compiled-path  & Hguser-extensions  & Hg interactive?  & Hginhibit-user-init? & Hgturn-on-debugging? & Hgturn-off-debugging? & Hgargs > gout > garg  V gargs  V gport   garg1    garg2    gsrfis   gwhere  B gt  K gt   gt  @ Ygargs  gout  gt  + Igslash  1gfilenamefice-9/command-line.scm  =    ! ! "  &  >  D  P  S  V  V  [  _ ! c  g h n  p t z {    *              *               &  ( , 8 9  ?   A  E K  L  R V  X   Z * \ a  p   r   u  @ x   {                        *      '   !                           *                        $ *  +  1 5  7   9 * ; @  O  ( R  " T  W   a  b  h   j  n t  u  {       *         ,       !     "     '   &   )   &   *  * &  *  )   +   )   ,   (   %   /   /  2 " 2  & 2 * . 4  1 5  4 6  : 6 - < 6  > 5  A 4  G 4  O 3 P 9 T 9  X 9 \ b : c  i m  o ;  q * s x   <   =   = .  = >  = .  =   =   <  @  @   @   C       D   *     E   E  G   G   F  K  K   K   L  M  N  P  P   P   Q # R / S 0 W 6 W  8 W < ? X K Y L [ R [  T [ X [ \ ^ ] j ^ k ` q `  s ` w z a  b  d  d   d   e  f  h  h   h   i   n   n ,  n   i   i  o        p   *     r   r   q   t  t   t   v  " v  * u + x / x  3 x 7 : |  B |  E ~  K }  X  ^ b  d  " f * h j  n   o  y   z  0      >            "     }              *     {  y              $   2   $    7  8   >   @   @  N  $ T  2 V  $ ] ^  b   c  % o  ( r  $ x  @ z  $ }     5               *                         "            *          !   +  >   A  M   N  R  $ W  `  c   i  % n  |                                                                                $  . &   .   4   5   =  @   H   H gnamegcompile-shell-switchesC RCgm  ,gfilenamefice-9/command-line.scm  ! 3 * 4 -  : -  < -  ? , @ 2  F 2  H 2  K 1  A  ]  l   l   l   k V .>   .@ C62.0/ccache/texinfo/html.go000064400000037056151463412640011241 0ustar00GOOF----LE-8-2.0>]^4hp] gguile  gdefine-module*   gtexinfo ghtml  gfilenameS ftexinfo/html.scm gimportsS    gsxml g transform   gice-9 gmatch   gsrfi gsrfi-13     gexportsS g stexi->shtml gadd-ref-resolver! gurlify  gset-current-module !  "  #gand=> $gassq %garg-ref &gerror 'fMissing argument: (garg-req )gcar* *gstring-downcase +g string-map ,g string-append -f .f# /g ref-resolvers 0gor-map 1fCould not resolve reference 2g resolve-ref 3gnode 4gsection 5gmanual 6gspan 7gxref 8fSee  978 :gpxref ;fsee  <:; =9< >gcdr ?ga @g@ Aghref Bgref Cgurl Dgtitle Eguref Fgname G- Hgdefun IfFunction Jgdefspec Kf Special Form Lgdefvar MfVariable Ngcategory Ogdiv Pgtable Qg cellpadding Rf0 SQR Tg cellspacing UTR Vgwidth Wf100% XVW Ygclass Zfdef [YZ \@SUX[ ]gtr ^gtd _g data-type `gcode agb bg deftypeop cg deftypefn dg deftypefun eg arguments fgvar ggreverse! hf  ifright jYi k@j lf[ mf] nm of description pYo q@p rgdef sgol tg% ugstart vg string-ref wgnumber? xgstring->number yg char->integer zgchar-upper-case? {g enumerate |gul }gitemize ~gacronym & & fno matching pattern g formatter gdl gmap gdt gappend gdd gitemx gheading gentry g titlepage f titlepage Y @ O gh2 ftitle Y @ D gsubtitle gh3 fsubtitle Y @  gauthor fauthor Y @  gexample gpre  glisp  g smallexample fsmaller Y @  g smalllisp  g cartouche f cartouche Y @ O gverbatim fverbatim Y @  gchapter  4 g subsection gh4  g subsubsection gh5  gappendix  g appendixsec  gappendixsubsec  gappendixsubsubsec  g unnumbered  g unnumberedsec  gunnumberedsubsec  gunnumberedsubsubsec  g majorheading  g chapheading   g subheading  g subsubheading  g quotation g blockquote  gitem gli  gpara gp  g *fragment* O gasis 6 gbold a gsample gsamp   `` gkbd  gkey fkey Y @ ` ff genv fenv Y @ ` gfile ffile Y @ ` gcommand fcommand Y @ ` goption foption Y @ ` furl  Y  @   C`   gdfn     gcite  gacro ~ gemail femail Y @ ` gemph gem  gstrong  gsc f small-caps Y @  6 !   3 "gtag-replacements #gpage $g setfilename %gsetchapternewpage &giftex 'gifinfo (g ifplaintext )gifxml *gsp +gvskip ,gmenu -gignore .g syncodeindex /gcomment 0gc 1g dircategory 2gdirentry 3gtop 4g shortcontents 5gcindex 6g printindex 7#$%&'()*+,-./0123456 8g ignore-list 9g *preorder* :gpre-post-order ;gxmlns @= ?ghead @gbody Ag*text* Bg *default* Cg copyright Dg*ENTITY* Efcopy FDE Ggresult HfrArr IDH Jganchor Kgdeftp Lgdefcv Mgdefivar Ng deftypeivar Ogdefop Pg defmethod Qg deftypemethod Rgdefopt Sgdefvr Tg deftypevr Ug deftypevar Vgdeffn Wgdefmac Xgifnottex Ygmemq Zgwarn [fDon't know how to convert \fto HTML ]grulesC5h&$]4   54">"G#$hc]6[gx  gfilenameftexinfo/html.scm / !  / ; / -  Ch]456gkey  g%-args  gfilenameftexinfo/html.scm .  / /   /  /    gnamegarg-refC%R%&'h ] 45$C6gkey  g%-args  gt  gfilenameftexinfo/html.scm 0  1  1   2 2   gnamegarg-reqC(Rhs]$CCkgx  gfilenameftexinfo/html.scm 3  3  3    gnamegcar*C)R*+h0[] $"/$":$-CCSgc  -gfilenameftexinfo/html.scm 8  9   - Chw]456ogstr  gfilenameftexinfo/html.scm 5  7   6    gnamegurlifyCR,-.h ]4$"56g node-name  g manual-name  gfilenameftexinfo/html.scm @   A A   A ,  A 0  A  A    C/R/h] Cgproc  gfilenameftexinfo/html.scm C  K  K   gnamegadd-ref-resolver!g documentationfXAdd @var{proc} to the head of the list of ref-resolvers. @var{proc} will be expected to take the name of a node and the name of a manual and return the URL of the referent, or @code{#f} to pass control to the next ref-resolver in the list. The default ref-resolver will return the concatenation of the manual name, @code{#}, and the node name.CR0h[]LL6Sgx  gfilenameftexinfo/html.scm N  N   C/&1h(] 4O5$C6gnode  'gmanual  'gt   'gfilenameftexinfo/html.scm M  N   N  ! O ' O   ' gnameg resolve-refC2R(3)%4526#$=>?@Ahx]"454455$"4455454 4  5 5 Cgtag  ugargs  ugnode  ugt   /gsection  / ugmanual  ? ugtarget  J ugfilenameftexinfo/html.scm Q  R   R  R  R  R   S   S   S %  S   S   S  / R  2 T  5 T  9 T = T  ? T  ? R  B U  J R  N V  O V R V  X V  Z V  ^ V ` V   u gnamegrefCBR(C?@A)%D hH]454455$"Cgtag  Agargs  Agurl  Agt  * =gfilenameftexinfo/html.scm Y  Z   Z  Z  Z Z   [   [  [ # $ [ , ( [ # * [  * [  @ [   A gnamegurefCER?@F(Gh(]4455Cgtag  "gargs  "gfilenameftexinfo/html.scm _  `  `  `   ` &  `   `   `   `   " gnamegnodeC3RHIJKLM(NOP\]^%_`YaFbcdefghklnqh6-13$"($"$" 45     45$ "45$ "$ "45$ "$ "&"&"$"45$ ""645$ "$ ""E( 45"?( "("""   C.gtag gargs gbody  gcategory  @ gx  U jgx  s gx  gx  gx  gx   gx  $ 9gx  < Qgelts  T gin  Z gout  Z gfilenameftexinfo/html.scm b  u   v  ! u  # w 0 u  2 x  7 y ; y ) ? y @ y  @ u  D z  M n  Q n U n  U n  ] c  _ c b c  k o o o ) s o s o  { c  } c c  o  o  e  e  e  p p ) p p  c  c c  p  p  e  e  e  q  q  r  r $  r   r   c   c  c   s &  s / $ s & $ s , c  . c 1 c  < s  < s  D d  F d  I d  T n  Z g  ` h  a h  n i  r h  u i "  i   j   k   l   l 6  l 0  k   j   g   g   g   z U   gnamegdefCrRst@u(vwxyz h-13$$s&c454 545$ 45"!4 54 4 5$A"a5"""Cgtag gelts gstart  2 {gc  < xgfilenameftexinfo/html.scm      &     7 C $ &  ) * - 3 0 : 2 * 2 5 <  ? I  J  U  \  _ , i ( s  t  u  |   ! gnameg enumerateC{R|thX-13$=$ &"""Cgtag Sgelts Sgw   Kgx   Kgw  & ?gfilenameftexinfo/html.scm   R  S gnamegitemizeC}Rt~h -13 $($&$q$T&5$!( C456456456456456456456456456gtag gelts gw   gw  ) gx  ) gw  ? gw  R gx  R gw  o y gfilenameftexinfo/html.scm  s z  gnamegacronymC~R(h(]$& LCCCgx  %gfilenameftexinfo/html.scm     ,  4      6  &    % Ch0-13454O4?5Cgtag -gargs -gbody  -g formatter   -gfilenameftexinfo/html.scm   "         #  + ,  -  gnamegtableCPR( h-13"^"456$:$.& 4455""""45"gtag gargs gbody  gout  kgbody  kgfilenameftexinfo/html.scm      !  &  &  ) -  0 ! 1  5  8 2 ; > ?  @ F  G  N 1 Q  R  T W _  k  m  n  r ! v  w    gnamegentryCR!"R78Rt9hY-13CQgargs gfilenameftexinfo/html.scm  C:>?D(@t9hY-13CQgargs gfilenameftexinfo/html.scm ( CAhe]C]gtag  gx  gfilenameftexinfo/html.scm (   CBhr-13Cjgtag gbody gfilenameftexinfo/html.scm (  *  ChH-1345     6gtag Bgargs Bgbody  Bgfilenameftexinfo/html.scm    *  3  *  %  -  B  B  CCFhb-13CZgargs gfilenameftexinfo/html.scm   CGIhb-13CZgargs gfilenameftexinfo/html.scm   C7BiBBi:BiEEi33iJ3iPPi{{i}}i~~i9iKriLriMriNriOribriPriQriRriSriLriTriUriVricriWriJriHridriXhi-13Cagtag gbody gfilenameftexinfo/html.scm   CAhe]C]gtag  gx  gfilenameftexinfo/html.scm     CB$"Y8Z[\ hP-1345$ 645$C4>"GCgtag Kgbody Kgsubst   Kgfilenameftexinfo/html.scm    !         & #   $   0   3   7   ;  > @   K C%]R:]h ]6gtree  gfilenameftexinfo/html.scm     gnameg stexi->shtmlg documentationf~Transform the stexi @var{tree} into shtml, resolving references via ref-resolvers. See the module commentary for more details.CRCgm  ,gfilenameftexinfo/html.scm  & w . ^ 0  3 " 5  ?   >  C  M Q J Y J _  b ( _ t           % &    & C62.0/ccache/texinfo/string-utils.go000064400000040617151463412640012736 0ustar00GOOF----LE-8-2.0wA]S4h] gguile  gdefine-module*   gtexinfo g string-utils  gfilenameS ftexinfo/string-utils.scm gimportsS gsrfi gsrfi-13     gsrfi-14     gexportsS gescape-special-chars gtransform-string g expand-tabs g center-string gleft-justify-string gright-justify-string gcollapse-repeated-chars gmake-text-wrapper g fill-string gstring->wrapped-lines   gset-current-module !  "  #gopen-output-string $gchar? %gchar=? &g procedure? 'gstring? (g string-index )gboolean? *gthrow +gbad-type ,f'expected #t, char, string, or procedure -gdisplay .g string-length /g substring 0gstring-for-each 1g write-char 2gget-output-string 3g make-string 4gstring 5gmax 6g string-append 7godd? 8f 9gchar-set-complement :gchar-set:whitespace ;greverse gend-of-sentence? ?g line-widthS @?  Ag expand-tabs?S BA  Cg tab-widthS DC  Egcollapse-whitespace?S FE  Ggsubsequent-indentS HG  Iginitial-indentS JI  Kgbreak-long-words?S LK  M@BDFHJL Ng string-trim Of  Pg string-join Qf  RginfixC5hx:]4   54">"G#$%hc]L6[gc  gfilenameftexinfo/string-utils.scm O  O %  C&'(hc]L6[gc  gfilenameftexinfo/string-utils.scm S  S %  C)h[]LCSgc  gfilenameftexinfo/string-utils.scm U    C*+,-hk]4L5L6cgc  gfilenameftexinfo/string-utils.scm X   X ,  X #   C-hc]LL6[gc  gfilenameftexinfo/string-utils.scm Y  Y #  C.-/01h {]4L5$L6L6sgc  gfilenameftexinfo/string-utils.scm a   b b   d  g    C2hX- -.,3##4545$ O"F45$"545$ O"45$ O" 4   545$  O"  O$245$ 44 5>"G""4O$" $"45>"G$145$445>"G""6% gstr Xgmatch? Xgreplace  Xgstart  Xgend  Xgos  # Xgmatcher  Xgreplacer  Xgfilenameftexinfo/string-utils.scm '  M # M  & N  0 N  < P  F N  M R  W N  c T  m N  y V  } V %  V / V  M  W  W  M  \  \  \  \  ]  ]  ]  `  i   j   j  `  ! m  $ m  + m  / m  0 n  3 n  B n  X p ( X  gnamegtransform-stringg documentationfUses @var{match?} against each character in @var{str}, and performs a replacement on each character for which matches are found. @var{match?} may either be a function, a character, a string, or @code{#t}. If @var{match?} is a function, then it takes a single character as input, and should return @samp{#t} for matches. @var{match?} is a character, it is compared to each string character using @code{char=?}. If @var{match?} is a string, then any character in that string will be considered a match. @code{#t} will cause every character to be a match. If @var{replace} is a function, it is called with the matched character as an argument, and the returned value is sent to the output string via @samp{display}. If @var{replace} is anything else, it is sent through the output string via @samp{display}. Note that te replacement for the matched characters does not need to be a single character. That is what differentiates this function from @samp{string-map}, and what makes it useful for applications such as converting @samp{#\&} to @samp{"&"} in web page text. Some other functions in this module are just wrappers around common uses of @samp{transform-string}. Transformations not possible with this function should probably be done with regular expressions. If @var{start} and @var{end} are given, they control which portion of the string undergoes transformation. The entire input string is still output, though. So, if @var{start} is @samp{5}, then the first five characters of @var{str} will still appear in the returned string. @lisp ; these two are equivalent... (transform-string str #\space #\-) ; change all spaces to -'s (transform-string str (lambda (c) (char=? #\space c)) #\-) @end lispCR3h(u-.,3#  4 56mgstr 'gtab-size 'gfilenameftexinfo/string-utils.scm r  z  ' x  ' gnameg expand-tabsg documentationfReturns a copy of @var{str} with all tabs expanded to spaces. @var{tab-size} defaults to 8. Assuming tab size of 8, this is equivalent to: @lisp (transform-string str #\tab " ") @end lispCR$%he]L6]gc  gfilenameftexinfo/string-utils.scm  $  C(he]L6]gc  gfilenameftexinfo/string-utils.scm  $  C4he]L6]gc  gfilenameftexinfo/string-utils.scm    Ch0)]45$ O"OO6!gstr  ,g special-chars  ,g escape-char   ,gfilenameftexinfo/string-utils.scm |     ,   , gnamegescape-special-charsg documentationfGReturns a copy of @var{str} with all given special characters preceded by the given @var{escape-char}. @var{special-chars} can either be a single character, or a string consisting of all the special characters. @lisp ;; make a string regexp-safe... (escape-special-chars "***(Example String)***" "[]()/*." #\\) => "\\*\\*\\*\\(Example String\\)\\*\\*\\*" ;; also can escape a singe char... (escape-special-chars "richardt@@vzavenue.net" #\@@ #\@@) => "richardt@@@@vzavenue.net" @end lispCR.35%6748 h-.,3# P# #4544  554$"5$"!44  5$"5$C45$4$"5"6gstr gwidth gchr  grchr  glen  0 glpad  G grpad  gfilenameftexinfo/string-utils.scm *  0  3  6  = + @ ! C  G  G  J  R  ^  b  i  l s / v % y       ) / ) % >  > Q " gnameg center-stringg documentationfReturns a copy of @var{str} centered in a field of @var{width} characters. Any needed padding is done by character @var{chr}, which defaults to @samp{#\space}. If @var{rchr} is provided, then the padding to the right will use it instead. See the examples below. left and @var{rchr} on the right. The default @var{width} is 80. The default @var{chr} and @var{rchr} is @samp{#\space}. The string is never truncated. @lisp (center-string "Richard Todd" 24) => " Richard Todd " (center-string " Richard Todd " 24 #\=) => "===== Richard Todd =====" (center-string " Richard Todd " 24 #\< #\>) => "<<<<< Richard Todd >>>>>" @end lispCR.356hXH-.,3# P# 4544 55$C6@gstr Qgwidth Qgchr  Qglen  ' Qgpad  ; Qgfilenameftexinfo/string-utils.scm !  '  *  -  4 7  ;  ;  B  F  Q  Q gnamegleft-justify-stringg documentationf @code{left-justify-string str [width chr]}. Returns a copy of @var{str} padded with @var{chr} such that it is left justified in a field of @var{width} characters. The default @var{width} is 80. Unlike @samp{string-pad} from srfi-13, the string is never truncated.CR.356hXF-.,3# P# 4544 55$C6>gstr Qgwidth Qgchr  Qglen  ' Qgpad  ; Qgfilenameftexinfo/string-utils.scm !  '  *  -  4 7  ;  ;  B  F  Q  Q gnamegright-justify-stringg documentationfReturns a copy of @var{str} padded with @var{chr} such that it is right justified in a field of @var{width} characters. The default @var{width} is 80. The default @var{chr} is @samp{#\space}. Unlike @samp{string-pad} from srfi-13, the string is never truncated.CR%%h@]" NNC4M5$4ML5$ MNMLC""gc  <gfilenameftexinfo/string-utils.scm           )  , & .  3   < C8hX-.,3# # 4 5$A" HHO6gstr Xgchr Xgnum  Xgprev-chr  5 Lg match-count  5 Lgrepeat-locator  L Xgfilenameftexinfo/string-utils.scm  ,  5 L  V * X  X gnamegcollapse-repeated-charsg documentationfReturns a copy of @var{str} with all repeated instances of @var{chr} collapsed down to at most @var{num} instances. The default value for @var{chr} is @samp{#\space}, and the default value for @var{num} is 1. @lisp (collapse-repeated-chars "H e l l o") => "H e l l o" (collapse-repeated-chars "H--e--l--l--o" #\-) => "H-e-l-l-o" (collapse-repeated-chars "H-e--l---l----o" #\- 2) => "H-e--l--l--o" @end lispCR9:(/;hp])45"T45$;45$45"4566 "gstr  mg non-wschars mgans   cgindex   cg next-non-ws   cgnext-ws  - ]gfilenameftexinfo/string-utils.scm          "  #  - 5 6   C   M   P   [   ]   c  c  d  m   m gnamegsplit-by-single-wordsCRM8%he] 6]gc  gfilenameftexinfo/string-utils.scm D $ D 0  CN;.6>O/< hx]1H4J 5KL$4JL5K"L$ 4J5K"4J5K"( $ "6L45 $ 45"45$Q" 45",L$"4 5$4 5"""""_ $L "AL$044  554 5L " 45L "4 J5L "gstr  rgans H [gwords  H [gline  H [gcount  H [g length-left  [g next-word  [gfilenameftexinfo/string-utils.scm B   D   D   G   H  $ H  . K  / L  7 L  < O  D O  H R  N V  T X  X X  ] Y  e X h ^ o ]  s _  w _  x `  } ` ,  `  a  ] d  d  b g  l  h  i  h  k  k , k  m  f  p  b r   r   b  {   { .  {  ! {  " }  - ~  . }  = {  >   I   L   [   [ R  \ R  ] S  r R =  r Chp|-/03# P## ####OCtg line-width  jg expand-tabs?  jg tab-width   jgcollapse-whitespace?   jgsubsequent-indent   jginitial-indent   jgbreak-long-words?   jgfilenameftexinfo/string-utils.scm  A  / K  ,  j g line-widthS g expand-tabs?S g tab-widthS gcollapse-whitespace?S gsubsequent-indentS ginitial-indentS gbreak-long-words?S gnamegmake-text-wrapperg documentationfReturns a procedure that will split a string into lines according to the given parameters. @table @code @item #:line-width This is the target length used when deciding where to wrap lines. Default is 80. @item #:expand-tabs? Boolean describing whether tabs in the input should be expanded. Default is #t. @item #:tab-width If tabs are expanded, this will be the number of spaces to which they expand. Default is 8. @item #:collapse-whitespace? Boolean describing whether the whitespace inside the existing text should be removed or not. Default is #t. If text is already well-formatted, and is just being wrapped to fit in a different width, then set this to @samp{#f}. This way, many common text conventions (such as two spaces between sentences) can be preserved if in the original text. If the input text spacing cannot be trusted, then leave this setting at the default, and all repeated whitespace will be collapsed down to a single space. @item #:initial-indent Defines a string that will be put in front of the first line of wrapped text. Default is the empty string, ``''. @item #:subsequent-indent Defines a string that will be put in front of all lines of wrapped text, except the first one. Default is the empty string, ``''. @item #:break-long-words? If a single word is too big to fit on a line, this setting tells the wrapper what to do. Defaults to #t, which will break up long words. When set to #f, the line will be allowed, even though it is longer than the defined @code{#:line-width}. @end table The return value is a procedure of one argument, the input string, which returns a list of strings, where each element of the list is one line.CRh-134?6gstr gkwargs gfilenameftexinfo/string-utils.scm        gnamegstring->wrapped-linesg documentationf8@code{string->wrapped-lines str keywds ...}. Wraps the text given in string @var{str} according to the parameters provided in @var{keywds}, or the default setting if they are not given. Returns a list of strings representing the formatted lines. Valid keyword arguments are discussed in @code{make-text-wrapper}.CRPQRh -134?6gstr gkwargs gfilenameftexinfo/string-utils.scm              gnameg fill-stringg documentationfWraps the text given in string @var{str} according to the parameters provided in @var{kwargs}, or the default setting if they are not given. Returns a single string with the wrapped text. Valid keyword arguments are discussed in @code{make-text-wrapper}.CRCgm  ,gfilenameftexinfo/string-utils.scm    '  r  |  ;  $F &g (  6O  8o  :o    :q C62.0/ccache/texinfo/serialize.go000064400000037576151463412640012273 0ustar00GOOF----LE-8-2.0f?]4hw] gguile  gdefine-module*   gtexinfo g serialize  gfilenameS ftexinfo/serialize.scm gimportsS    g string-utils   gsxml g transform   gsrfi gsrfi-1   gsrfi-13     gexportsS g stexi->texi  gset-current-module !  "  #greverse $glist-intersperse %greverse! &gfilter* 'gappend (glist* )f  *f  +f@ ,ginclude -g empty-command .gstring=? /f*braces* 0f@} 1g append-map 2f@{ 3f} 4f{ 5g inline-text 6gmap 7gwarn 8fStrange inline-args! 9gerror :fInvalid inline-args ;f gassq-ref ?f, @g inline-args A? Bginline-text-args C* Dgserialize-text-args Eg eol-text-args Fgeol-text Gf,  Hgeol-args If@bye  Jf @c %**end of header  Kgtitle Lf @settitle  Mgand=> Ngfilename Of @setfilename  Pf8\input texinfo @c -*-texinfo-*- @c %**start of header  Qf  Rf@end  Sg string-ref Tg string-length Ugenviron Vgsymbol->string Wg table-environ Xg fill-string Ygstring-concatenate Zg line-widthS [gbreak-long-words?S \gwrap ]g paragraph ^f@item  _gitem `f@item  agentry bf @c %end of fragment  cf @c %start of fragment  dgfragment eg EMPTY-COMMAND fg INLINE-TEXT gg INLINE-ARGS hgINLINE-TEXT-ARGS igEOL-TEXT jg EOL-TEXT-ARGS kgINDEX lgEOL-ARGS mgENVIRON ng TABLE-ENVIRON ogENTRY pgITEM qg PARAGRAPH rgFRAGMENT sg serializers tfUnknown command type u}{@ vg escaped-chars wgstring xgmemq yg string->list zgescape {gstring-concatenate-reverse |gstring? }gassq ~gtexi-command-specs gsymbol? g% f$Unknown stexi command, not rendering f Invalid stexiC5h5<]4   54">"G#h@](C" (6""gsrc-l  @gelem  @gl   /gdest   /gfilenameftexinfo/serialize.scm "  #   $   %   %   &  ! & & & ( ' &  / & / $  2 $  5 $ - 8 $ 9 @ $   @ gnameglist-intersperseC$R%hhF]"U(6$#45$ ""45$ """>gpred  fgl  fgin   [gout   [gfilenameftexinfo/serialize.scm )  *  +   ,  -  +   .   .  " . " $ .  ( .  + . 2 . . , < . = 0  > 0  H 0  M 0 ! [ 0 [ *  ^ *  f *   f gnamegfilter*C&R#'hxz-1345"K(C$45"( """rgargs sgargs  sgtail   sgin   fgout   fgfilenameftexinfo/serialize.scm 3 4   4   5   4   6  ! 7  ' 8  ( 8 , 7  / 8 " 0 8 + 5 8 3 9 8 + A 8  D 9  H 7  K 9 " U 9  X :  [ : % ^ :  f :  f 6  i 6  s 6  s gnameglist*C(R()$*+h ]456gexp  glp  gcommand   gtype   gformals   gargs   gaccum   gfilenameftexinfo/serialize.scm ?   @  A C  A  D  D   @    gnamegincludeC,R(*+h]6gexp  glp  gcommand   gtype   gformals   gargs   gaccum   gfilenameftexinfo/serialize.scm F  G G   G    gnameg empty-commandC-R./(01hh]L6`gx  gfilenameftexinfo/serialize.scm O   O + O %  C#23hh]L6`gx  gfilenameftexinfo/serialize.scm L   L + L %  C4+ hP]45$4O4556 4 O455  6gexp  Oglp  Ogcommand   Ogtype   Ogformals   Ogargs   Ogaccum   Ogfilenameftexinfo/serialize.scm I  J J  J  J   N  O  O 1 # O : % O 1 ' O ) P - N  1 K 2 L < L 1 A L : C L 1 E L G M K M  O K   O gnameg inline-textC5R(3$6789:;h@]$3$$$4L>"G"CL6Cgx  >gfilenameftexinfo/serialize.scm W   X  Y   X   Z #  Z   Z   [   [ " # [  2 \  7 ] $ ; ]  = X   > C<=>h`]L6Xgx  gfilenameftexinfo/serialize.scm _ _ ,  C#?;4+hPb]$144O44O4 5555 5"   6Zgexp  Iglp  Igcommand   Igtype   Igformals   Igargs   Igaccum   Igfilenameftexinfo/serialize.scm R  S T U  V   ^   _  ) ` 1 _  3 ^  5 V  7 a  9 U ? T  A b E b  I S   I gnameg inline-argsC@R(3'$61hh]L6`gx  gfilenameftexinfo/serialize.scm k (  k : k 4  C#hh]LO456`gx  gfilenameftexinfo/serialize.scm k  k @  k    C<=>h`]L6Xgx  gfilenameftexinfo/serialize.scm m ! m -  C#A;4+hPw]$6444O44 O4 5555 5?"  6ogexp  Nglp  Ngcommand   Ngtype   Ngformals   Ngargs   Ngaccum   Ngfilenameftexinfo/serialize.scm d  e f g  i   j   l  " m  , n ! 4 m  6 l  8 j  : o  < i  > g D f  F p J p  N e   N gnameginline-text-argsCBR'$61hh]L6`gx  gfilenameftexinfo/serialize.scm v #  v 5 v /  Chb]LO6Zgarg  gfilenameftexinfo/serialize.scm v  v    C#<=>h`]L6Xgx  gfilenameftexinfo/serialize.scm z  z   CC h@]44O444O455555 5@glp  :gformals  :gargs   :gfilenameftexinfo/serialize.scm r  u   v   w  y  z  & {  . z  0 y 2 w 4 v  6 |  8 u  : s   : gnamegserialize-text-argsCDR()D*+h ]456gexp  glp  gcommand   gtype   gformals   gargs   gaccum   gfilenameftexinfo/serialize.scm ~            gnameg eol-text-argsCER()1hk]L6cgx  gfilenameftexinfo/serialize.scm   ' !  C#*+h8C]4O4$"556;gexp  2glp  2gcommand   2gtype   2gformals   2gargs   2gaccum   2gfilenameftexinfo/serialize.scm        ' $ 2 &  ( * .  2   2 gnamegeol-textCFR()$'<=6>hb]L6Zgx  gfilenameftexinfo/serialize.scm " .  C#G*+ h8^]4444O4 555? 5  6Vgexp  6glp  6gcommand   6gtype   6gformals   6gargs   6gaccum   6gfilenameftexinfo/serialize.scm       " $  &  ( * , . 2  6   6 gnamegeol-argsCHR(I1hk]L6cgx  gfilenameftexinfo/serialize.scm   * $  C#J>KLMN)#Oh]45Cgfilename  gfilenameftexinfo/serialize.scm     $ 3 -  $     C;PQRhk]L6cgx  gfilenameftexinfo/serialize.scm $  6 0  CST)D*+h]$T4O45544 55 4 4 5 5$"64O4$"55("4455 $"456 gexp  glp  gcommand   gtype   gformals   gargs   gaccum   gkey   gt  K ^gbody   gfilenameftexinfo/serialize.scm        0 $ 9 ' 0 ) + , /  5 $ 7  9 ; - <  ?  E & G  K  K [  ` d  h l  m  w $  - 6 A $     ( , ; , (       6  gnamegenvironCUR(QR1hk]L6cgx  gfilenameftexinfo/serialize.scm   ' !  C#);V+* hh]4O4$"55$ "$4 5 "  6 gexp  hglp  hgcommand   hgtype   hgformals   hgargs   hgaccum   hgarg  ? ^gfilenameftexinfo/serialize.scm       ' ( 2 *  , . 4  7  ? + ? D  H I  N % P  R 0 U  ` d  h   h gnameg table-environCWRXYZ[h]45 H6ygstrings  gfilenameftexinfo/serialize.scm       gnamegwrapC\R(Q\#1hk]L6cgx  gfilenameftexinfo/serialize.scm   ) #  Ch(D]444O455556<gexp  (glp  (gcommand   (gtype   (gformals   (gargs   (gaccum   (gfilenameftexinfo/serialize.scm    /  8  / " $ (   ( gnameg paragraphC]R(1hk]L6cgx  gfilenameftexinfo/serialize.scm   ' !  C#^h ]4O4556gexp  glp  gcommand   gtype   gformals   gargs   gaccum   gfilenameftexinfo/serialize.scm   -  6  -       gnamegitemC_R(1hk]L6cgx  gfilenameftexinfo/serialize.scm   ' !  C#)hk]L6cgx  gfilenameftexinfo/serialize.scm   ' !  C`h8R]4O4554O4556Jgexp  6glp  6gcommand   6gtype   6gformals   6gargs   6gaccum   6gfilenameftexinfo/serialize.scm   -  6  -    & - + 6 . - 0 2 6   6 gnamegentryCaR(b1hk]L6cgx  gfilenameftexinfo/serialize.scm   ' !  C#ch (]4O4556 gexp  glp  gcommand   gtype   gformals   gargs   gaccum   gfilenameftexinfo/serialize.scm    -  6  -     gnamegfragmentCdRe-if5ig@ihBiiFijEikEilHimUinWioaip_iq]irdi,isR>s9th8&]45$" 456gexp  4glp  4gcommand   4gtype   4gformals   4gargs   4gaccum   4gt  4gfilenameftexinfo/serialize.scm        $  4   4 gnameg serializeCRuvRw#xvyh`]"D( 45@45$@""45"gstr  Zgin  Jgout   Jgfilenameftexinfo/serialize.scm           ! %  (  + " 0  9 <  ? ! B  J J  K  R * Z   Z gnamegescapeg documentationfBEscapes any illegal texinfo characters (currently @{, @}, and @@).CzR{|z}~V&79h ] $"$C45$ 45C$45$rL4545"$"@"9$-$ & """"""64  >"GC  6gin  gout  g command-spec  > gfilenameftexinfo/serialize.scm          "  #  ,  0  4  5  : ! >  >  F  M   R  ( T   W   Y   `  ) c   j   o   w   {   ~  &       7  0    $  /               ,  gnameglpCh ] OQ456gtree  glp gfilenameftexinfo/serialize.scm          gnameg stexi->texig documentationf2Serialize the stexi @var{tree} into plain texinfo.CRC4gm  ,gfilenameftexinfo/serialize.scm    " a ) m 3  ?   F I e R  d  r 2 ~ V  #i $ &/ ( * , ,  -) . .  . 0 5   5 C62.0/ccache/texinfo/docbook.go000064400000023123151463412640011703 0ustar00GOOF----LE-8-2.0;&]4h] gguile  gdefine-module*   gtexinfo gdocbook  gfilenameS ftexinfo/docbook.scm gimportsS gsxml gfold     gsrfi gsrfi-1  gselectS     gexportsS g*sdocbook->stexi-rules* g*sdocbook-block-commands* gsdocbook-flatten gfilter-empty-elements greplace-titles  gset-current-module   !gidentity "g@ #gidentity-deattr $g detag-one %g parameter &gvar '%& (g replaceable )(& *gtype +gcode ,*+ -gfunction .-+ /gliteral 0gsamp 1/0 2gemphasis 3gemph 423 5gsimpara 6gpara 756 8gprogramlisting 9gexample :89 ;g firstterm gfilename ?gfile @>? Agquote Bgcite CAB Dg application EDB Fgsymbol GF+ Hgnote Ig cartouche JHI Kgenvar Lgenv MKL N'),.147:=@CEGJM Ogtag-replacements Pg ignore-list Qgwith-output-to-string Rgwrite Sg stringify Tg *preorder* Ug% Vg orderedlist Wglistitem Xgitem Yg enumerate Zg itemizedlist [gitemize \gacronym ]gterm ^ginformalexample _gsection `g subsection ag subsubsection bgulink cgassq dgurl eguref fgtitle gg*text* hg *default* igappend jgwarn kfIgnoring lf attributes mgmemq nfDon't know how to convert ofto stexi pgc qgall rg indexterm sg variablelist tgrefsect1 ugrefsect2 vgrefsect3 wgrefsect4 xg informaltable y68^rsVtuvwf9HZx zginline-command? {i |i }greverse ~gfoldts*-values gchapter t u_ v` wa C5h]4   54 >"Gho-13Cggargs gfilenameftexinfo/docbook.scm (  gnamegidentityC!R"h@-13$%$&"""Cgtag ;gbody ;gfilenameftexinfo/docbook.scm +  ,   ,  , (  , !  ,   -  - % $ ,  ' .  : ,  ; gnamegidentity-deattrC#Rh]Cwgtag  gbody  gfilenameftexinfo/docbook.scm 1    gnameg detag-oneC$RNORPRQRhN]L6Fgfilenameftexinfo/docbook.scm H   H $   Chu]O6mgexp  gfilenameftexinfo/docbook.scm G H   gnameg stringifyCSR"T!iUT!i6#iVWXhs-13Ckgtag gbody gfilenameftexinfo/docbook.scm R  S   CYhs-13Ckgtag gbody gfilenameftexinfo/docbook.scm T  U   CZWXhs-13Ckgtag gbody gfilenameftexinfo/docbook.scm W  X   C[hs-13Ckgtag gbody gfilenameftexinfo/docbook.scm Y  Z   C\\Uh s-13Ckgtag gbody gfilenameftexinfo/docbook.scm [  \   C]$i^$i_!i`!ia!ibcdeUfh8-1345$CCgtag 1gattrs 1gbody  1gt   1gfilenameftexinfo/docbook.scm b  d   d   d   d   c   f  0 h  1  Cg$ihcOi"jklmPnopUqSh-1345$U" 6$=$1&#4>"G6"""4 5$C4  >"G  45Cgtag gbody gsubst   gfilenameftexinfo/docbook.scm j  k !  k   l  # r $ ' r  ' n  * n ! . n  1 n 5 2 n . 6 n  9 n F < n R @ n  A p  E p $ I p 3 L p @ Q p  ^ q & a q 2 c q  p s  | l   u  u  u > u  v  v % v 0 v % v # CRyRmh]45Cgcommand  gfilenameftexinfo/docbook.scm     gnameginline-command?CzRU|}h(]L4L$ L"455Dgaccum  %gblock  %gfilenameftexinfo/docbook.scm      (  5    %   % ChXn]$&$&"""$"ODfgnode  Vgaccum  Vgblock   Vgcont   Vgcommand  4 Vgattrs  4 Vgfilenameftexinfo/docbook.scm         0  )      ( !  $  4  >  A  I $ J  K  V   V gnamegfdownC~zihHy]4> G45$45D45Dqgnode  Fgpaccum  Fgpblock   Fgpcont   Fgkaccum   Fgkblock   Fgkcont   Fgret   Fgblock   F gfilenameftexinfo/docbook.scm   !       "  '  ( & 4 7  @ * B  F   F gnamegfupCh]Dgstr  gaccum  gblock   gcont   gfilenameftexinfo/docbook.scm     gnamegfhereC}h0"]!4> G6gsdocbook  )gfdown  )gaccum   )gblock   )gcont   )gfilenameftexinfo/docbook.scm    :  >     )   ) gnamegsdocbook-flatteng documentationf"Flatten" a fragment of sdocbook so that block elements do not nest inside each other. Docbook is a nested format, where e.g. a @code{refsect2} normally appears inside a @code{refsect1}. Logical divisions in the document are represented via the tree topology; a @code{refsect2} element @emph{contains} all of the elements in its section. On the contrary, texinfo is a flat format, in which sections are marked off by standalone section headers like @code{@@chapter}, and block elements do not nest inside each other. This function takes a nested sdocbook fragment @var{sdocbook} and flattens all of the sections, such that e.g. @example (refsect1 (refsect2 (para "Hello"))) @end example becomes @example ((refsect1) (refsect2) (para "Hello")) @end example Oftentimes (always?) sectioning elements have @code{} as their first element child; users interested in processing the @code{refsect*} elements into proper sectioning elements like @code{chapter} might be interested in @code{replace-titles} and @code{filter-empty-elements}. @xref{texinfo docbook replace-titles,,replace-titles}, and @ref{texinfo docbook filter-empty-elements,,filter-empty-elements}. Returns a nodeset, as described in @ref{sxml xpath}. That is to say, this function returns an untagged list of stexi elements.�CR} ����h(������]"���C�$���(��C""����������g��x  %�g��rest  %��g��filenamef��texinfo/docbook.scm �  � �   �   �   �  � �  % ���C������h��� ��]4�56������g��sdocbook  ��g��filenamef��texinfo/docbook.scm �  �  �   �   � �   ��g��nameg��filter-empty-elementsg�� documentationf��gFilters out empty elements in an sdocbook nodeset. Mostly useful after running @code{sdocbook-flatten}.�CR}c���hh�����]"��U(��6$��45"��$��""�"��������g��sdocbook-fragment  f�g��in  [�g��out   [�g��t  * [��g��filenamef��texinfo/docbook.scm �  �  �   �   �   �  �   �  � " # �  % �  * �  5 �  9 � " < � / ? �  B �  J � M � P �  S �  [ �  [ �  ^ � ' f � �  f ��g��nameg��replace-titlesg�� documentationf�rIterate over the sdocbook nodeset @var{sdocbook-fragment}, transforming contiguous @code{refsect} and @code{title} elements into the appropriate texinfo sectioning command. Most useful after having run @code{sdocbook-flatten}. For example: @example (replace-titles '((refsect1) (title "Foo") (para "Bar."))) @result{} '((chapter "Foo") (para "Bar.")) @end example �CRC����������g��m  ,��g��filenamef��texinfo/docbook.scm   � (  +  1  5   4  E   E  G  N  q J s �  v � % �  � # �  � �   ���C6����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/texinfo/indexing.go����������������������������������������������������������������������0000644�����������������00000005520�15146341264�0012071 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.08 ������]�=�4�h������]� g��guile � g��define-module* � � g��texinfo g��indexing � g��filenameS f��texinfo/indexing.scm g��importsS g��sxml g��simple   � � g��srfi g��srfi-13 � � � g��exportsS g��stexi-extract-index � g��set-current-module � � g��deftp g��defcv g��defivar g�� deftypeivar g��defop g�� deftypeop !g�� defmethod "g�� deftypemethod #g��defopt $g��defvr %g��defvar &g�� deftypevr 'g�� deftypevar (g��deffn )g�� deftypefn *g��defspec +g��defmac ,g��defun -g�� deftypefun . !"#$%&'()*+,-� /g��defines 0g��cindex 1g��findex 2g��vindex 3g��kindex 4g��pindex 5g��tindex 6012345� 7g��indices 8g��anchor 9g��memq :g��assq ;g��name <g�� sxml->stringC�5h��~���]4   5�4�>��"��G���./R67R89/:;7<�������h���C��]�(��C�$��"���4L��5�"�$���$���&��{4�5$��/�4�54�5�"|4�5$��(�4�54�5�"D"U"Q"M"I��"'�����;������g��in  ��g��entries  ���g��filenamef��texinfo/indexing.scm 5   6   9  9   6   F   F  F  $ F  , F  , :  / ;  0 ; 4 :  7 ; % 9 ;  = ;  @ <  C <  G ;  H < % M < + S < % W ;  Z =  \ = % ` = + c = 6 g = 1 i = % j =  l > % p > + s > 1 x > % y >  { =  � =  � A % � A + � A % � @  � B  � B  � B - � B  � C % � C + � C 1 � C % � C  � B  � B  � H � H �8  � ��g��nameg��loop�C��h�����] O�Q��6��������g��tree  �g�� manual-name  �g��kind   �g��loop  ��g��filenamef��texinfo/indexing.scm * 5   5  5 �   ��g��nameg��stexi-extract-indexg�� documentationf�6Given an stexi tree @var{tree}, index all of the entries of type @var{kind}. @var{kind} can be one of the predefined texinfo indices (@code{concept}, @code{variable}, @code{function}, @code{key}, @code{program}, @code{type}) or one of the special symbols @code{auto} or @code{all}. @code{auto} will scan the stext for a @code{(printindex)} statement, and @code{all} will generate an index from all entries, regardless of type. The returned index is a list of pairs, the @sc{car} of which is the entry (a string) and the @sc{cdr} of which is a node name (a string).�CRC�v�������g��m  ,��g��filenamef��texinfo/indexing.scm   . #  1 " 3 (  6 '  * �   ���C6���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/texinfo/reflection.go��������������������������������������������������������������������0000644�����������������00000072521�15146341264�0012423 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.09u������],�4��h������]� g��guile � g��define-module* � � g��texinfo g�� reflection � g��filenameS f��texinfo/reflection.scm g��importsS g��srfi g��srfi-1   � g��selectS g�� append-map � � g��oop g��goops � � � � g�� plain-text � � g��srfi-13  � � g��ice-9 g��session ! � "!� #g�� documentation $#� %$� &g��optargs '&� ('� )g��sxml *g�� transform +)*� ,g��pre-post-order -,� .+-� /"%(.�  0g��exportsS 1g��module-stexi-documentation 2g��script-stexi-documentation 3g��object-stexi-documentation 4g��package-stexi-standard-copying 5g�� package-stexi-standard-titlepage 6g��package-stexi-generic-menu 7g��package-stexi-standard-menu 8g��package-stexi-extended-menu 9g��package-stexi-standard-prologue :g��package-stexi-documentation ;g��'package-stexi-documentation-for-include <123456789:;�  =g��set-current-module >=� ?=� @g��deftp Ag��defcv Bg��defivar Cg�� deftypeivar Dg��defop Eg�� deftypeop Fg�� defmethod Gg�� deftypemethod Hg��defopt Ig��defvr Jg��defvar Kg�� deftypevr Lg�� deftypevar Mg��deffn Ng�� deftypefn Og��defmac Pg��defspec Qg��defun Rg�� deftypefun S@ABCDEFGHIJKLMNOPQR� Tg��defs Ug��assq Vg��name Wg�� list-index Xg��= Yg��< Zg��string=? [g�� string<=? \g��string->symbol ]g�� sort-defs ^g��reverse! _g�� list*-join `g��map ag��string? bg��object->string cf��  df�� .  eg�� process-args fg��procedure-arguments gg��assq-ref hg��required ig��optional jg��keyword kg��rest lg��append mg��symbol->string ng��format of�� [~a = ~s] pf��[~a] qf��[#:~a] rf��. sg�� get-proc-args tg�� syntax-rules ug��procedure-property vg��patterns wg��identifier-syntax xg��defmacro yg�� defmacro-args zg��macro-arguments {g��defspecx |g��% }g�� arguments ~g��macro-additional-stexi g�� make-regexp �f��![[:space:]][[:space:]][[:space:]] �g�� many-space? �f�� ^[[:space:]] �g��initial-space? �g�� string-null? �g�� *fragment* �� �g�� string-index �g�� regexp-exec �g��catch �� �� �g��texi-fragment->stexi �g��verbatim �g�� string->stexi �g��defined? �g��method-formals �g��reverse �f�� ( �g��var �g��code �g�� class-name �f��) �� �f��... �g��method-specializers �g�� method-source �g��warn �g��method-stexi-arguments �g��forceS �  �� �f�� [unknown] �g��object-documentation �g��is-a? �g��<method> �g��method-procedure �g��<class> �g��category �f��Class �� �� �g��<macro> �g��macro-transformer �g�� macro-type �l� �l� �g�� <procedure> �f��Method �� �g�� <generic> �f��Generic �� �� �g��generic-function-methods �g��memq �g�� string-join �g��module-name->node-name �g�� string-append �f��/ �g��%search-load-path �g�� in-vicinity �g��module-filename �g��open-input-file �g�� eof-object? �g��read �g�� read-module �g�� define-module �g��and=> �g��exportS �g��cadr �g��identity �g��module-export-list �g�� docs-resolverS �  �� �g��issue-deprecation-warning �f��Qmodule-stexi-documentation: use #:docs-resolver instead of a positional argument. �g��module-commentary �g��string-trim-both �g��with-output-to-string �g��display �g��resolve-interface �g��title �g��node �g��section �f��Overview �� �f��Usage �� �g��append! �g��sort! �g�� module-map �g��anchor �f��variable unbound! �f�� [unbound!] �� �g��file-commentary �g��basename �g��add-value-help-handler! �g��stexi->plain-text �g��add-name-help-handler! �g��and-map �g��symbol? �!� �!� �g��copying �g��para �f��This manual is for  �f�� (version  �f�� , updated  �f�� Copyright  �g��number->string �f��, �g�� quotation �g�� titlepage �g��subtitle �f��version  �g��author �g��email �g��page �� �g��vskip �g��all �f��0pt plus 1filll �� �|� �� �g�� insertcopying �� � g��ifnottex f��Top V� |� � g��top  g��menu  f��*   f��::  g�� make-string  g��max g�� string-length f��  � g��iftex g�� shortcontents � � � g��cons g��car g��cdr g�� dircategory g��direntry f��: ( f��).  r� g��chapter g��*text*  g�� *default* !g��stexi->chapter "g��module-stexi-documentation-argsS #"  $g��scriptsS %$  &#%� 'g��error (f��2expected modules to be a list of a list of symbols )g��filename *"  +*�C�5�����hH]����]4   /0<5�4?�>��"��G���STRUV������h������]4�5C������������g��x  ��g��filenamef��texinfo/reflection.scm >   ?  ?  =  ?   ?  ? �   ��g��nameg��name�C����h@�����-�1�3�44�L54�L55$��(��CL�@4�L54�L56�������g��proc @�g��eq? @�g��<  @�g��args  @��g��filenamef��texinfo/reflection.scm F  G G   G   G G  & I  ' I . J 1 H 8 H  @ H � @  ��g��nameg��compare-in-order�CWT��h������]�6���~�������g��x  ��g��filenamef��texinfo/reflection.scm @  =  A  A �  ��g��nameg��priority�CXYZ[W\UV� ������h����]#O�Q��4�4 4  555$��"�� ����I4�4 4  555$��"�� ����I$��(��C@4�4 4  555$��"�� ����I4�4 4  555$��"�� ����IC�������g��ordering  �g��a  �g��b   �g��name   �g��compare-in-order   �g��args  ( �g��t  F `�g��t  | ��g��t  � ��g��t  � �� g��filenamef��texinfo/reflection.scm : ( K  + C  0 C  3 ? 7 ?  : =  < ?  @ ? A ?  D C  F C  F C  a C  f C  i ? m ?  p =  r ?  v ? w ?  z C  | C  | C  � G � G  � I  � I � J � C  � C  � ? � ?  � =  � ?  � ? � ?  � C  � C  � C  � C  � C  � ? � ?  � =  � ?  � ? � ?  � C  � C  � C   H �5   ��g��nameg�� sort-defs�C]R^������hX���@��]"��C(��6$�� 6(�� �"�� "�"����8������g��l  T�g��infix  T�g��restfix   T�g��in   I�g��out   I��g��filenamef��texinfo/reflection.scm O  P  Q   Q   R  Q  " R " % R  ( S  . S  1 T ' 4 T ! ; U ( @ U ! I S  I P  L P  T P �  T ��g��nameg�� list*-join�C_R`ab��h���q���]4�5$���C�6��i�������g��x  ��g��filenamef��texinfo/reflection.scm X   X  X   X %�   ���C_cd������h ������]4�$���"��56���������g��args  ��g��filenamef��texinfo/reflection.scm W  Y   Y   Y   Z   Z   Y   X �   ��g��nameg�� process-args�CeRfghijkel`mnop��h ������]�$����6�6�������g��a  ��g��filenamef��texinfo/reflection.scm j   k  k   l #  l /  l 7  l   m # m �  ���Cnpq�����h ������]�$�� �6�6�����������g��a  ��g��filenamef��texinfo/reflection.scm q   r  r   s #  s *  s   t #  t �   ���Cr��h�����])4�5$��g4545454544  54  54  5$�� 4 5�"��56C������������g��proc  z�g��t z�g�� required-args  5 x�g�� optional-args  5 x�g�� keyword-args  5 x�g��rest-arg  5 x��g��filenamef��texinfo/reflection.scm \  ^  ]   `   ` -  `   a  ! a - # a  $ b  * b - , b  - c  3 c ( 5 c  5 ` @ e C g L j U q c x e y  f y  o y  t z  v e x d �  z ��g��nameg�� get-proc-args�CsRetuvwxy��hh���n��] $��!45$��"��"��7$��"��)$��45$��"��"��6�f������g��name  g�g��type  g�g�� transformer   g�g��patterns   *�g��t  N `��g��filenamef��texinfo/reflection.scm | ~   �   � 6  �   �   �  �  " � ' � 7 ~  8 �  E ~  F � L � * N � N �  ] � e �  g } �  g ��g��nameg��macro-arguments�CzRtuv`{|V}e��������h ���u���]L��4�5��C��m�������g��x  ��g��filenamef��texinfo/reflection.scm �   �   � -  � �   ���C��������h0���#��] $��"45$���O�6CC�������g��name  /�g��type  /�g�� transformer   /�g��patterns   -��g��filenamef��texinfo/reflection.scm � �  �   � 5  �   �   �  �  ) �  + � , � . � �  / ��g��nameg��macro-additional-stexi�C~R4i5R4i5R�����h���S���]�L�6K�������g��filenamef��texinfo/reflection.scm �  � �   ���C���h���_���-��1��3�C�����W�������g��args ��g��filenamef��texinfo/reflection.scm � � ���C� �h���4��] �$�� 4�5"��$��"��$��C4�@5$��"��4�5$��"�� 4�5$��4�O� 5"��$��C  ���C�,������g��str  ��g��t  ��g��t 3 _�g��t w ���g��filenamef��texinfo/reflection.scm �  � �   �   �   �  �  + �  3 � A �  M �  S �  \ �  c �  d � w �  � � �  � ��g��nameg�� string->stexi�CR4i5$��i"��Rlmc��������h��^��])$��"��(��6$��S4445�44 55� 55"4545�44 55�  �64�54 �5"J4 �5$��"��(��6$��D4445�45� 55"4545�45�  �64 �5"a4�>��"��G��C����V������g��method  �g��formals ��g�� specializers  ��g��out  ��g��formal  1 b�g�� specializer  1 b�g��bindings � ^�g��out  � ^�g��arg  � �� g��filenamef��texinfo/reflection.scm �  �  �   �   �   �   �  " � % �  & � ) �  . � * 1 � 8 1 �  7 �  : �  C �  H �  K � ! S �  V �  d �  h � r �  u �  } �  � �  � �  � �  � � ! � �  � �  � �  � �  � �  � �  � �  � �  � �  � �  � �  � �  � �  � �  � �  � �  � � � �  � � � � � �  � � * � �  � �  � �  � � % � �   �   �   � !  �   �   �  ! � ) �  , �  4 �  7 �  < � % > �  A �  F �  K � ! N �  Q �  Y � ; \ � 5 ^ �  ^ �  _ �  f �  h � ; p �  q �  � �V   ��g��nameg��method-stexi-arguments�CRmaV@|uP}z~sQM`3��h���h���]�ML�6��`�������g��method  ��g��filenamef��texinfo/reflection.scm �  � �   ���CJT�(����h0��-��-�/���0���3�H#��K#��J$�� 4J5K"���44�5$�� 4�5"���545$�� 4 5"��7"��$�� "��'"��"$�� &��"��""��"$�u"�A4� 5$�� J�C4�5$��Q4�5$�� 45"�� J�4J5�44J55C4�5$��# J�4�5�C4�5$��% J�4�5�C4� 5$��5  J�!4"#O�4$�55C J��%C$��$$��4&'5$��C"""C�%������g��object  /�g��name  /�g��force   /�g��x  ^ ��g��stexi  � /�g��args  � ��g��proc  � @�g��type   @�g��args  a p�g��args   �g��args   �g��args   �� g��filenamef��texinfo/reflection.scm � � = . �  2 �  3 �  ; �  @ �  C �  O �  P �  ^ �  ^ �  a �  k �  l � % � �  � �  � �  � �  � �  � � - � � 5 � �  � �  � �  � �  � �  � �  � �  � �  � �  � �  � �  � �  � �  � �  � �  � �  � �   � 6  �   �   �   � " ' �  . � ; � = �  A �  M �  O �  W � & ^ �  a �  e �  g �  m �  n �  q �  } �   �   � &  �   �   �   �   �   �   �   �   �   �   �  �   �   �   �   �  �  �  �   �   �   �   �   �   �   �  � �   �  �   � &  �   �   �  �   �  � �c  / g��forceS ���g��nameg��object-stexi-documentation�C3R`mc����h������]4�56��������������g��sym-name  ��g��filenamef��texinfo/reflection.scm �  �   � -  � �   ��g��nameg��module-name->node-name�CR`m������h���n���]�6������f�������g��elt  ��g��filenamef��texinfo/reflection.scm     4  !�  ���C���hH���}��])4�54545445?456������u������g��name  B�g��name B�g�� reverse-name   B�g��leaf   B�g��dir-hint-module-name  # B�g��dir-hint  3 B��g��filenamef��texinfo/reflection.scm                      !  ( #   #   &   )   3   3   8   B  �  B ��g��nameg��module-filename�CR��hX���W��]!4�5$��B45"��%45$��645"45"C���O������g��name  U�g��filename U�g��port   S�g��out   C�g��form   C��g��filenamef��texinfo/reflection.scm                     )  /   4   5  $ C   C  D   E  # S  T  �  U ��g��nameg�� read-module�CR����hx�����]"��c(��C$��4&��&�$��4455"��"��"��$��6"4�5"��������g��sym-name  v�g��forms  i�g��form   R�g��t  R i��g��filenamef��texinfo/reflection.scm           $              #   &   *  .   /  2   9   <   @  R   c   i   i   j   v  �  v ��g��nameg��module-export-list�CR������h���n���]C���f�������g��name  �g��def  ��g��filenamef��texinfo/reflection.scm % 0�   ���C����h���c���]� 6������[�������g��x  ��g��filenamef��texinfo/reflection.scm -  - (�  ���C�h���S���]�L�6K�������g��filenamef��texinfo/reflection.scm 1   1 �   ���C|V|Vcm3J�����h���l��] 4L4�55���$��4L��4�55"��+4  �>��"��G�� 4�5��  &��"���C�d������g��sym  ��g��var  ��g��x  k ���g��filenamef��texinfo/reflection.scm 9   : 5   5   5 #  5   : $ ?  ( ?  ) @  . B  3 B 0 : B  < @  A E  E E  L E  V F  [ F ( d F  k ;  p <  r < " v <  y =  � >  � : �  � ���C]������h���r���]L��6����j�������g��a  �g��b  ��g��filenamef��texinfo/reflection.scm I  I �  ���C���h�����-�/���0���3� #��#��$��"��$��4>��"��G��"���44�55454 �54  �O�54 �54 �5�����4444O�5O�5?5C������������g��sym-name  ��g��%docs-resolver  ��g�� docs-resolver   ��g�� commentary  \ ��g��stexi  e ��g�� node-name  n ��g��name-str  | ��g��module  � ��g�� export-list  � ��� g��filenamef��texinfo/reflection.scm ! ( $ , 8 )  9 *  = +  B *  O ,  R ,  \ ,  \ ,  _ .  e ,  h /  n ,  q 0  | ,   2  � ,  � 3  � ,  � K  � N  � K  � P  � 7  � 8  � 7  � P  � K �  � g�� docs-resolverS ���g��nameg��module-stexi-documentationg�� documentationf��Return documentation for the module named @var{sym-name}. The documentation will be formatted as @code{stexi} (@pxref{texinfo,texinfo}).�C1R|V� ������hX�����] 4�54�5��4�5���$��44  55"��C������������g�� scriptpath  R�g�� commentary R��g��filenamef��texinfo/reflection.scm R  V  V  W   W   W  % X  . W  : Y  ; [  > \  H [  I Z  N ]  O W �  R ��g��nameg��script-stexi-documentationg�� documentationf��Return documentation for given script. The documentation will be taken from the script's commentary, and will be returned in the @code{stexi} format (@pxref{texinfo,texinfo}).�C2R4i5$�4i3������h������]4�56������z�������g��name  �g��value  ��g��filenamef��texinfo/reflection.scm b   d   c �   ���C>��"��G��4i1��������h(������]�$��4�5$�� 4�56CC����������g��name  %��g��filenamef��texinfo/reflection.scm f   g g  h  g   i  ! i �  % ���C>��"��G��"���R`c�hH�����]�44  5 5 � ���C��������g��name  F�g��version  F�g��updated   F�g��years   F�g��copyright-holder   F�g�� permissions   F��g��filenamef��texinfo/reflection.scm o  u  x  # x % - x @ / x  1 u �  F ��g��nameg��package-stexi-standard-copyingg�� documentationf��Create a standard texinfo @code{copying} section. @var{years} is a list of years (as integers) in which the modules being documented were released. All other arguments are strings.�C4R`������h������]���C�������g��pair  ��g��filenamef��texinfo/reflection.scm            $   �   ���C� �������h0�����]���445 5�C�������g��name  /�g��version  /�g��updated   /�g��authors   /��g��filenamef��texinfo/reflection.scm }       &  �  / ��g��nameg�� package-stexi-standard-titlepageg�� documentationf�Create a standard GNU title page. @var{authors} is a list of @code{(@var{name} . @var{email})} pairs. All other arguments are strings. Here is an example of the usage of this procedure: @smallexample (package-stexi-standard-titlepage "Foolib" "3.2" "26 September 2006" '(("Alyssa P Hacker" . "alyssa@@example.com")) '(2004 2005 2006) "Free Software Foundation, Inc." "Standard GPL permissions blurb goes here") @end smallexample �C5R| l`    �����hH������]�$��6��44 45 5 545CC��������������g��entry  A�g��node  >�g�� description   >��g��filenamef��texinfo/reflection.scm        (             !   (   ,   0   1   @  �  A ���C� ����h8�����]����44  5?� C�������������g��name  1�g��entries  1��g��filenamef��texinfo/reflection.scm          )   *  �  1 ��g��nameg��package-stexi-generic-menug�� documentationf��Create a menu from a generic alist of entries, the car of which should be the node name, and the cdr the description. As an exception, an entry of @code{#f} will produce a separator.�C6R6`�����h8�����] �44554(��"��56��������g��name  6�g��modules  6�g��module-descriptions   6�g�� extra-entries   6�g��module-entries   4��g��filenamef��texinfo/reflection.scm                %  ( /  8 1   6  �  6 ��g��nameg��package-stexi-standard-menug�� documentationf��ICreate a standard top node and menu, suitable for processing by makeinfo.�C7R6`� ����h���&��]�444554554445545544(��"��(��"��556��������g��name  ~�g�� module-pairs  ~�g�� script-pairs   ~�g�� extra-entries   ~�g��module-entries  F |�g��script-entries  F |��g��filenamef��texinfo/reflection.scm         #       &   '   ,   1  , ;   <   F   F   K   X  ( b  8 h  ( r  8 t   ~  �  ~ ��g��nameg��package-stexi-extended-menug�� documentationf��QCreate an "extended" menu, like the standard menu but with a section for scripts.�C8R| � ��h@���B��]����4 5C�������:������g��name  9�g��filename  9�g��category   9�g�� description   9�g��copying   9�g�� titlepage   9�g��menu   9��g��filenamef��texinfo/reflection.scm    �  9 ��g��nameg��package-stexi-standard-prologueg�� documentationf�Create a standard prologue, suitable for later serialization to texinfo and .info creation with makeinfo. Returns a list of stexinfo forms suitable for passing to @code{package-stexi-documentation} as the prologue. @xref{texinfo reflection package-stexi-documentation}, @ref{texinfo reflection package-stexi-standard-titlepage,package-stexi-standard-titlepage}, @ref{texinfo reflection package-stexi-standard-copying,package-stexi-standard-copying}, and @ref{texinfo reflection package-stexi-standard-menu,package-stexi-standard-menu}.�C9R,g���h ������-�1�3�45C����������g��tag �g��attrs �g��node  �g��body  ��g��filenamef��texinfo/reflection.scm         *   6     �   ���C�������h���n���]C���f�������g��tag  �g��text  ��g��filenamef��texinfo/reflection.scm  �   ���C �����h���_���-��1��3��C����W�������g��args ��g��filenamef��texinfo/reflection.scm  � ���C������h ������]��6�������������g��stexi  ��g��filenamef��texinfo/reflection.scm       �   ��g��nameg��stexi->chapter�C!R&���h0������] 4�5$��$��C��"C�����������g��pred  ,�g��l  ,�g��t   *��g��filenamef��texinfo/reflection.scm                    "  ) *  �  , ��g��nameg��all�C���h���c���]L��6������[�������g��x  ��g��filenamef��texinfo/reflection.scm   �  ���C��h���S���]�LLO�L�6�K�������g��filenamef��texinfo/reflection.scm     �   ���C���h���_���-��1��3�C�����W�������g��args ��g��filenamef��texinfo/reflection.scm  � ���C������h ������] O�Q�L�O�6��������g��l  �g��all ��g��filenamef��texinfo/reflection.scm     �   ��g��nameg��verify-modules-list�C'(|)!1�h���n���]4�L�?6�f�������g��mod  ��g��filenamef��texinfo/reflection.scm        �   ���C!2�h���q���]4�56���i�������g��script  ��g��filenamef��texinfo/reflection.scm       �  ���C� ���h���@��-�/���0���3�#��#��O��Q�4�5$��"��4�>��"��G�����4 4 4  O��54 4  5555C�8������g��modules  ��g��name  ��g��filename   ��g��prologue   ��g��epilogue   ��g��module-stexi-documentation-args   ��g��scripts   ��g��verify-modules-list  - ���g��filenamef��texinfo/reflection.scm    ' #  / 3  =   B   F  M   W   s   �   �   �  �  �  g��module-stexi-documentation-argsS g��scriptsS ���g��nameg��package-stexi-documentationg�� documentationf�8Create stexi documentation for a @dfn{package}, where a package is a set of modules that is released together. @var{modules} is expected to be a list of module names, where a module name is a list of symbols. The stexi that is returned will be titled @var{name} and a texinfo filename of @var{filename}. @var{prologue} and @var{epilogue} are lists of stexi forms that will be spliced into the output document before and after the generated modules documentation, respectively. @xref{texinfo reflection package-stexi-standard-prologue}, to create a conventional GNU texinfo prologue. @var{module-stexi-documentation-args} is an optional argument that, if given, will be added to the argument list when @code{module-texi-documentation} is called. For example, it might be useful to define a @code{#:docs-resolver} argument.�C:R+     � �������h8������] 4�544 45 5 545C��������g��modname  7�g��desc  7�g��node  7��g��filenamef��texinfo/reflection.scm <   = ! =  7   8   8   8  ! 8  % 8  ) 8  * 7 �  7 ���C!1�h���r���]4�L�?6�j�������g��modname  ��g��filenamef��texinfo/reflection.scm A   C   B �   ���C���h@���_��-�/���0���3�#��4�54O��5C���W������g��modules  =�g��module-descriptions  =�g��module-stexi-documentation-args   =��g��filenamef��texinfo/reflection.scm #  % S  :  ! <  , :  - A  ; : �  =  g��module-stexi-documentation-argsS ���g��nameg��'package-stexi-documentation-for-includeg�� documentationf�Create stexi documentation for a @dfn{package}, where a package is a set of modules that is released together. @var{modules} is expected to be a list of module names, where a module name is a list of symbols. Returns an stexinfo fragment. Unlike @code{package-stexi-documentation}, this function simply produces a menu and the module documentations instead of producing a full texinfo document. This can be useful if you write part of your manual by hand, and just use @code{@@include} to pull in the automatically generated parts. @var{module-stexi-documentation-args} is an optional argument that, if given, will be added to the argument list when @code{module-texi-documentation} is called. For example, it might be useful to define a @code{#:docs-resolver} argument.�C;RC����������g��m  ,��g��filenamef��texinfo/reflection.scm   . 6  1 5  :  O 7 W , \ ! | F � G �  M � ! O �  R � S �  Y � $ [ �  ^ � / � 0 �  6 �  8 �  < �  H � a � # � $y � &  (  *  3; ! 5 R 5 `  5 ` 5 `  5 _ 5 a  6p e  7a m 9 o = } @  B  E  Im  L>  V  ]B # �0  ]D ���C6��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/texinfo/plain-text.go��������������������������������������������������������������������0000644�����������������00000041042�15146341264�0012350 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0 B������]��4�����hC������]� g��guile � g��define-module* � � g��texinfo g�� plain-text � g��filenameS f��texinfo/plain-text.scm g��importsS �  � g�� string-utils � � g��sxml g�� transform � � g��srfi g��srfi-1 � � g��srfi-13 � � g��ice-9 g��match � �  � !g��exportsS "g��stexi->plain-text #"� $g��set-current-module %$� &$� 'g��and=> (g��assq )g��cdr *g��arg-ref +g��error ,f��Missing argument: -g��arg-req .g�� make-ticker /g��format 0f��~A.  1g��make-enumerator 2g�� make-fluid 3f��� 4g��*indent* 5f��*  6g�� *itemizer* 7g��make-syntax-transformer 87� 97� :g�� with-indent ;g��macro <g�� $sc-dispatch =<� ><� ?g��_ @g��any A?@ Bg�� syntax->datum CB� DB� Eg�� datum->syntax FE� GE� Hg�� with-fluids Ig�� string-append Jg�� fluid-ref KJ4� Lg�� make-string M � Ng��syntax-violation ON� PN� Qf��-source expression failed to match any pattern Rg��apply Sg�� make-indenter Tf��  Ug�� string-indent Vg�� with-itemizer Wg�� fill-string Xg��string-concatenate Yg�� line-widthS Zg��initial-indentS [g��subsequent-indentS \g��wrap* ]f��  ^g��wrap _g�� wrap-heading `g��node ag��name bg��manual cg��xref df��See  ecd� fg��pxref gf��see  hfg� ieh� jg��cadr kf�� in manual  lg��ref mg��url ng��title of�� ( pf��) qf��` rf��' sg��uref tg��defun uf��Function vg��defspec wf�� Special Form xg��defvar yf��Variable zg��category {f�� -  |f��:  }g�� string-join ~g��filter g��identity �g��map �g�� data-type �g��class �g�� arguments �a� �f��  �g��def �g��% �g��start �g�� string-ref �g��number? �g��string->number �g�� char->integer �g��char-upper-case? �g�� enumerate �g��itemize �g�� string-length �g�� string-null? �g�� string-copy! �g��item �g��table �g��heading �g��entry �g��make-underliner �g��chapter �g��section �g�� subsection �g�� subsubsection �g�� string-split �g��example �g��verbatim �g�� map-in-order �g��fragment �g��para �g��make-surrounder �g��code �f��< �f��> �g��key �g�� string-upcase �g��var �g�� passthrough �g��foo �g��page �g�� setfilename �g��setchapternewpage �g��iftex �g��ifinfo �g�� ifplaintext �g��ifxml �g��sp �g��vskip �g��menu �g��ignore �g�� syncodeindex �g��comment �g��c �g��anchor �`� �g�� ignore-list �g��memq �g��ignored? �g��appendix �g�� appendixsec �g��appendixsubsec �g��appendixsubsubsec �g�� unnumbered �g�� unnumberedsec �g��unnumberedsubsec �g��unnumberedsubsubsec �g�� majorheading �g�� chapheading �g�� subheading �g�� subsubheading �g��strong �f��* �g��sample �g��samp �g��math �g��kbd �g��env �g��file �g��command �g��option �g��dfn �f��" �g��cite �g��acro �g��email �g��emph �f��_ �g��sc �g�� copyright �f��(C) �g��result �f��==> �g��dots �f��... �g�� quotation �g��lisp �g�� smallexample �g�� smalllisp �g�� *fragment* �g��deftp �g��defcv �g��defivar �g�� deftypeivar �g��defop �g�� deftypeop �g�� defmethod �g�� deftypemethod �g��defopt �g��defvr �g�� deftypevr �g�� deftypevar �g��deffn �g�� deftypefn �g��defmac �g�� deftypefun �g�� tag-handlers �g��string?C�5h.����]4    !#5�4&�>��"��G���'()"��������h ������]44�556��������������g��key  �g��%-args  ��g��filenamef��texinfo/plain-text.scm %  &  &   &   &   &  & �   ��g��nameg��arg-ref�C*R*+,�h ������] 4�5$��C�6�������g��key  �g��%-args  �g��t  ��g��filenamef��texinfo/plain-text.scm (  )  )   * * �  ��g��nameg��arg-req�C-R�h���I���]�L�C���A�������g��filenamef��texinfo/plain-text.scm - �   ���C����h���r���]�O�C������j�������g��str  ��g��filenamef��texinfo/plain-text.scm , �  ��g��nameg�� make-ticker�C.R/0��h������]M��M�N��6����|�������g��last  ��g��filenamef��texinfo/plain-text.scm /   0  1  1   2   2 �   ���C�h���t���]�H��O�C��l�������g��n  ��g��filenamef��texinfo/plain-text.scm . �   ��g��nameg��make-enumerator�C1R42i354R42i4.i5556R49:;>ADGH4IKLM�h(���s���-�1�3�����C�k�������g��n '�g��body '��g��filenamef��texinfo/plain-text.scm 7 8 � ' ���C��h���j���] 4�5L�4?6b�������g��args  �g��v ��g��filenamef��texinfo/plain-text.scm  7 �   ���CPQ�������h(���h���] 4�5$�� �O�@�6�`�������g��y  '�g��tmp '��g��filenamef��texinfo/plain-text.scm 7 �  ' ���C5:R4ILR������h0���f���-��1��3�4[4L� 55Y4L�>��ZCZF��^�������g��args .��g��filenamef��texinfo/plain-text.scm =   = � . ���C�������h������]�O�C����|�������g��n  �g��proc  ��g��filenamef��texinfo/plain-text.scm < �  ��g��nameg�� make-indenter�CSRI4T�������h������][�6���|�������g��str  ��g��filenamef��texinfo/plain-text.scm ? @ * @ �  ��g��nameg�� string-indent�CUR49V;>ADGH6��������h ���z���-�1�3����C������r�������g��itemizer �g��body ��g��filenamef��texinfo/plain-text.scm B C �  ���C���h���j���] 4�5L�4?6b�������g��args  �g��v ��g��filenamef��texinfo/plain-text.scm  B �   ���CPQ�������h(���h���] 4�5$�� �O�@�6�`�������g��y  '�g��tmp '��g��filenamef��texinfo/plain-text.scm B �  ' ���C5VR4WXYZ[���h(������-��1��3�[4�5 H6����������g��strings %�g��indent %��g��filenamef��texinfo/plain-text.scm F G   H  % H � % ��g��nameg��wrap*�C\RI\]������h������-��1��3�4�?6���������g��strings ��g��filenamef��texinfo/plain-text.scm K L   L '  L �  ��g��nameg��wrap�C^RI\T��h������-��1��3�4�?6���������g��strings ��g��filenamef��texinfo/plain-text.scm M N   N '  N �  ��g��nameg�� wrap-heading�C_R-`*abX'(ij3k� �������hx�����]"4545$��"��4544� 5 5$��"�� $��  �"��6�����������g��tag  s�g��args  s�g��node  s�g��t   )�g��name  ) s�g��manual  4 s�g��t  H [��g��filenamef��texinfo/plain-text.scm P  Q   Q  Q  Q   R   R   R   R  ) Q  , S  0 S  4 S  4 Q  9 V < V  B V  D V  H V H V  X V B c X  e X  o X * p U  s T �  s ��g��nameg��ref�ClR-m*nIopqr� ����h8�����]4545$�� 6 6���� ������g��tag  4�g��args  4�g��url   4�g��title   4��g��filenamef��texinfo/plain-text.scm Z  [  [  [ \   \   \   [   ]  $ ^  ( ^ & * ^  . _  2 _  4 _ �  4 ��g��nameg��uref�CsRtuvwxy-zI_{|}~*�����h���a���]�L�6������Y�������g��x  ��g��filenamef��texinfo/plain-text.scm e  e �  ���C4L"��h���~��-�1�3��$��"��'�$��"���$��"�� 45 4 4   4 44O�555554 [4  55Y45Z6��v������g��tag ��g��args ��g��body  ��g��category  ? ���g��filenamef��texinfo/plain-text.scm a  i   j  ! i  # k 0 i  2 l  7 m  ; m $ ? m  ? i  D o  G o  K o " O o 1 P c  S d  X e c f  e e g d  i g  k c  m o  o o  � p  � n � �  ��g��nameg��def�CR*614IL"�������h�����-�1�3�$��$�� "��"��$��45"��4$��H4 545$�� 45"��!4 54 4 5$��A"��a5"�� 5Y 4  [4  55Y4$��"��>�� Z"��ZCZF������g��tag ��g��elts ��g��args?  ) ��g��start  @ ��g��c  U ���g��filenamef��texinfo/plain-text.scm r x   x   x )  x "  x   y   y &  y  ) x  1 z  2 z  6 z $ 9 z + ; z  @ x  E {  M { $ N t U t  X u b u  c u  n v  u w  x w , � w ( � w  � v  � v  � {  � }  � }  � } % � } �$ � ��g��nameg�� enumerate�CR6.54IL"����h@������-�1�3�45Y4[4  55Y4>�� Z"��ZCZF����������g��tag =�g��args =�g��elts  =��g��filenamef��texinfo/plain-text.scm  �   �   �  * � � =  ��g��nameg��itemize�CR"64����hh���6��-�1�3�454[5�4[54545$��"�� $��4>��"��G��"���C������.������g��tag b�g��elts b�g��ret   b�g��tick   b�g��tick-pos  * b��g��filenamef��texinfo/plain-text.scm � �   �   �   �   �  # �  * �  * �  - �  7 �  ? � + A � & E �  F � � b ��g��nameg��item�CR"�h������-�1�3�6��������g��tag �g��args �g��body  ��g��filenamef��texinfo/plain-text.scm �  � �   ��g��nameg��table�CR_"-I4L������hH�����-�1�3�4445554[4  55Y45Z6��������������g��tag A�g��args A�g��body  A�g��heading   A��g��filenamef��texinfo/plain-text.scm � �  �   � %  � .  � %  �   �   �  8 � " A � � A  ��g��nameg��entry�CR"ITUL�h8������-�1�3�45454445L�556�����������g��tag 4�g��body 4�g��str   4��g��filenamef��texinfo/plain-text.scm �  �   �   �   �   �  ! �  $ � # . �  0 �  2 �  4 � � 4 ���C��h���x���]�O�C������p�������g��char  ��g��filenamef��texinfo/plain-text.scm � �  ��g��nameg��make-underliner�CR4i*5R4i=5R4i-5R4i.5R"IX4LUT� ������hH������-�1�3�4544[4  55Y44 55Z5 6������������g��tag C�g��body C�g��ret   C��g��filenamef��texinfo/plain-text.scm � �  �   �  - �  2 � ( < �  ? �  A �  C � � C ��g��nameg��example�CR"IXUT�������h0������-�1�3�45444 5556����������g��tag -�g��body -�g��ret   -��g��filenamef��texinfo/plain-text.scm � �  �   �   �   �  ' �  ) �  + �  - � � - ��g��nameg��verbatim�CRX"������h������-�1�3�456���������g��tag �g��body ��g��filenamef��texinfo/plain-text.scm � �   � �  ��g��nameg��fragment�CR^"��������h������-�1�3�456�����������g��tag �g��body ��g��filenamef��texinfo/plain-text.scm � �   � �  ��g��nameg��para�CRI"���h������-�1�3�L�45L�6y�������g��tag �g��body ��g��filenamef��texinfo/plain-text.scm �   �   � �  ���C����h���w���]�O�C������o�������g��str  ��g��filenamef��texinfo/plain-text.scm � �  ��g��nameg��make-surrounder�CRIq"r��h������-�1�3�456�������g��tag �g��body ��g��filenamef��texinfo/plain-text.scm � �   �   � .  � �  ��g��nameg��code�CRI"������h������-�1�3�456�������g��tag �g��body ��g��filenamef��texinfo/plain-text.scm � �   �   � .  � �  ��g��nameg��key�CR"���h������-�1�3�456�����������g��tag �g��body ��g��filenamef��texinfo/plain-text.scm � �   � �  ��g��nameg��var�CR"�������h������-�1�3�6��������g��tag �g��body ��g��filenamef��texinfo/plain-text.scm �  � �  ��g��nameg�� passthrough�CR-nI"������h(������-�1�3�4455456�������g��tag (�g��args (�g��body  (�g��title   (��g��filenamef��texinfo/plain-text.scm � �   �   �   � &  �   �   �  �  ( � � (  ��g��nameg��texinfo�CRR������h���y���]�6������q�������g��tag  ��g��filenamef��texinfo/plain-text.scm � � �  ��g��nameg��ignored?�CRni�i�i�i�i�i�i�i�i�i�i�i�i�i�i�i�i�i�4i5�i�i�i�i�i�i�i�i�i�i�i�mi�4i5�4i5�i�i�4i5�i����h���h���-��1��3�C����`�������g��args ��g��filenamef��texinfo/plain-text.scm �  � � ���C������h���h���-��1��3�C����`�������g��args ��g��filenamef��texinfo/plain-text.scm �  � � ���C������h���h���-��1��3�C����`�������g��args ��g��filenamef��texinfo/plain-text.scm �  � � ���C�cli�lli�fli�ssi�i�4Si i5�i�i�i�i�i�i�i�i�i�i�i�i�i�i�i�i�i�i�i�i�i�xi�i�i�i�i�i�vi�ti�i��LR3'(jX"� �������h�����]�(��C4�5$���C�$����$��b$��D45$��"��#4455$��"��$���@C�$��  4  �56C�$��  4  �56C�$��  4  �56C�������������g��tree  ��g��w & ��g��x  & ��g��t  X k�g��handler  k |��g��filenamef��texinfo/plain-text.scm #  %  &  %  9 )  C )  I *  L * $ X *  X *  k )  s ,  y - { .  %  � 0  � 0  � 1  � %  � 0  � 0  � 1  � %  � 0  � 0  � 1 �  � ��g��nameg��stexi->plain-textg�� documentationf��7Transform @var{tree} into plain text. Returns a string.�C"RC���������g��m  ,��g��filenamef��texinfo/plain-text.scm    %  (  , 7 . 8 4  > 4  @ 4  C 4 D 5  I 5  O 5 , Q 5  S 5  V 5  < _ ? @ F K M  P l Z 9 a  r ,   �  �  �  �  �   �  �   �  �   �  �   � g �  � h � !, � "r � #F � $ � $ � % � & � & �  & � '| � '~ �  (! �  (' � $ () �  (, �  ( �  ( � $ ( �  ( �  ( �  ( � $ ( �  ( �  ( �  ( � $ ( �  ( �  *   * �  + � . # �H  . ���C6�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/web/server.go����������������������������������������������������������������������������0000644�����������������00000140721�15146341264�0010676 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�4������hI������]� g��guile � g��define-module* � � g��web g��server � g��filenameS f��web/server.scm g��importsS g��srfi g��srfi-9   � � g��gnu   � � g��rnrs g�� bytevectors � � g��ice-9 g�� binary-ports � � g��request � � g��response � � !g��system "g��repl #g��error-handling $!"#� %$� &g��control '&� ('� )g��iconv *)� +*� , %(+�  -g��exportsS .g��define-server-impl /g��lookup-server-impl 0g��make-server-impl 1g�� server-impl? 2g��server-impl-name 3g��server-impl-open 4g��server-impl-read 5g��server-impl-write 6g��server-impl-close 7g�� open-server 8g�� read-client 9g��handle-request :g��sanitize-response ;g�� write-client <g�� close-server =g��serve-one-client >g�� run-server ?./0123456789:;<=>� @g��set-current-module A@� B@� Cg�� gettimeofday Dg��*timer* Eg��pk Fg�� print-elapsed Gg��make-syntax-transformer HG� IG� Jg�� debug-elapsed Kg��macro Lg�� $sc-dispatch ML� NL� Og��_ Pg��any QOP� Rg�� *time-debug?* Sg�� syntax-object Tg��top UT� Vg��ribcage Wg��who XW� YU� Zf�� l-1e6f79399-8 [Z� \VXY[� ]V� ^g��x _^� `f�� l-1e6f79399-5 a`� bV_Ya� cU\]b� dg��hygiene ed� fSFce� gg�� *unspecified* hSgce� ig��syntax-violation ji� ki� lf��-source expression failed to match any pattern mg�� server-impl ng��%make-server-impl-procedure oOPPPPP� pg��lambda qg��m-1e6f79399-12 rqT� sg�� t-1e6f79399-d tg�� t-1e6f79399-e ug�� t-1e6f79399-f vg��t-1e6f79399-10 wg��t-1e6f79399-11 xstuvw� yrrrrr� zf��l-1e6f79399-17 {f��l-1e6f79399-18 |f��l-1e6f79399-19 }f��l-1e6f79399-1a ~f��l-1e6f79399-1b z{|}~� �Vxy� �r� �f��l-1e6f79399-14 �� �V_� �g��shift �g�� proc-name �g��args �� �UU� �f��l-1e8ba8b5a-2ba �f��l-1e8ba8b5a-2bb �� �V� �g��key �g��value �g��name �g��formals �g��body �� �UUUUU� �f��l-1e8ba8b5a-2ad �f��l-1e8ba8b5a-2ae �f��l-1e8ba8b5a-2af �f��l-1e8ba8b5a-2b0 �f��l-1e8ba8b5a-2b1 �� �V� �g��make-procedure-name �� �U� �f��l-1e8ba8b5a-29d �� �V� �f��l-1e8ba8b5a-29c �� �V_Y� �r]]]]]�  �d  � �Sp� �U]� �Se� �g��open �Se� �g��read �Se� �g��write �Se� �g��close �Se� �� �g�� make-struct �g�� m-1e6f79399-b �T� �g��t-1e8ba8b5a-38d �g��t-1e8ba8b5a-38c �g��t-1e8ba8b5a-38b �� �g��m-1e8ba8b5a-38e �T� �� �f��l-1e8ba8b5a-392 �f��l-1e8ba8b5a-393 �f��l-1e8ba8b5a-394 �� �V� �g�� ctor-args �� �f��l-1e8ba8b5a-37a �� �VY� �g��ctor �g��field �� �f��l-1e8ba8b5a-376 �f��l-1e8ba8b5a-377 �� �V� �g��form �g�� type-name �g��constructor-spec �g�� field-names �� �UUUU� �f��l-1e8ba8b5a-36b �f��l-1e8ba8b5a-36c �f��l-1e8ba8b5a-36d �f��l-1e8ba8b5a-36e �� �V� �g�� record-layout �g��functional-setters �g��setters �g��copier �g��getters �g�� constructor �g��getter-identifiers �g��field-identifiers �� �UUUUUUUU� �f��l-1e8ba8b5a-343 �f��l-1e8ba8b5a-341 �f��l-1e8ba8b5a-33f �f��l-1e8ba8b5a-33d �f��l-1e8ba8b5a-33b �f��l-1e8ba8b5a-339 �f��l-1e8ba8b5a-337 �f��l-1e8ba8b5a-335 �� �V� �f��l-1e8ba8b5a-334 �� �V_Y� �]]]]]]� �S� �Sme� �S � �� �� �g��each-any �O �i� �i� �f��Wrong number of arguments �g�� identifier? �� �� �U]� �Sne� g��record-type-vtable � � g�� pwpwpwpwpw g��default-record-printer � � �  g��set-struct-vtable-name!   �   �  g��vtable-offset-user   �  � g��%server-impl?-procedure g��m-1e6f79399-27 T� g��t-1e6f79399-26 � � f��l-1e6f79399-2c � V� f��l-1e6f79399-29 � V_� ]]]]]�  Sp� g��obj g��t-1e8ba8b5a-47e g��t-1e8ba8b5a-478  g��t-1e8ba8b5a-479 !g��t-1e8ba8b5a-47a "g��t-1e8ba8b5a-47d #g��t-1e8ba8b5a-47c $g��t-1e8ba8b5a-47b % !"#$� &g��m-1e8ba8b5a-47f '&T� ('''''''� )f��l-1e8ba8b5a-483 *f��l-1e8ba8b5a-484 +f��l-1e8ba8b5a-485 ,f��l-1e8ba8b5a-486 -f��l-1e8ba8b5a-487 .f��l-1e8ba8b5a-488 /f��l-1e8ba8b5a-489 0)*+,-./� 1V%(0� 2g�� copier-id 32� 4f��l-1e8ba8b5a-476 54� 6V3Y5� 7g�� ctor-name 87� 9f��l-1e8ba8b5a-46e :9� ;V8Y:� <� =f��l-1e8ba8b5a-46c >=� ?V<Y>� @g��layout A@� Bf��l-1e8ba8b5a-46a CB� DVAYC� Eg�� immutable? FE� Gf��l-1e8ba8b5a-468 HG� IVFYH� Jg�� field-count KJ� Lf��l-1e8ba8b5a-466 ML� NVKYM� Og�� getter-ids PO� Qf��l-1e8ba8b5a-463 RQ� SVPYR� Tg�� field-ids UT� Vf��l-1e8ba8b5a-460 WV� XVUYW� Yg��predicate-name Zg�� field-spec [EYZ� \UUUUUU� ]f��l-1e8ba8b5a-453 ^f��l-1e8ba8b5a-454 _f��l-1e8ba8b5a-455 `f��l-1e8ba8b5a-456 af��l-1e8ba8b5a-457 bf��l-1e8ba8b5a-458 c]^_`ab� dV[\c� e]]1]]]]6];]?]D]I]N]S]Xd� fSe� gf� hg��and iShe� jg��struct? kSje� lkf� mg��eq? nSme� og�� struct-vtable pSoe� qpf� rU]� sSmre� tnqs� uilt� vgu� wU]� xSwe� yg��throw-bad-struct zy� {y� |g��%server-impl-name-procedure }g��free-id ~g�� %%on-error g��m-1e6f79399-33 T� � f��l-1e6f79399-35 � V_� ]]]]]�  S~� }� P� g��%%type g��t-1e8ba8b5a-3a5 g��t-1e8ba8b5a-3a6 g��t-1e8ba8b5a-3a7 g��t-1e8ba8b5a-3a8 g��t-1e8ba8b5a-3a9 g��t-1e8ba8b5a-3aa g��t-1e8ba8b5a-3ab � g��m-1e8ba8b5a-3ac T� � f��l-1e8ba8b5a-3b0 f��l-1e8ba8b5a-3b1 f��l-1e8ba8b5a-3b2 f��l-1e8ba8b5a-3b3 f��l-1e8ba8b5a-3b4 f��l-1e8ba8b5a-3b5 f��l-1e8ba8b5a-3b6 � V� g��getter g��index � f��l-1e8ba8b5a-3a3 f��l-1e8ba8b5a-3a4 � V� O2� UUU� f��l-1e8ba8b5a-39e f��l-1e8ba8b5a-39f f��l-1e8ba8b5a-3a0 � V� ]]]]]]� S� }� OP� g��ck g��err g��s � � f��l-1e6f79399-38 f��l-1e6f79399-39 � V� ]]]]]�  S� g��quote S� U]� Sme� � � g��%%index S� }� OP� f��l-1e6f79399-3d f��l-1e6f79399-3e � V� ]]]]]�  S� S� ]� S e� � � g��%%copier S� }� OP� f��l-1e6f79399-42 f��l-1e6f79399-43 � V� ]]]]]�  S� S� g��%%server-impl-set-fields U]� Se� � � g��t-1e6f79399-32 � f��l-1e6f79399-47 � V� ]]]]]�  Sp� ]]]]]]� S� � g��if S� Sm� So� � U]� Sme� � g�� struct-ref S� ]� S e� � Sy� S� S2e� � � � � U]� S|e� �g��%server-impl-open-procedure g��m-1e6f79399-4e T� � f��l-1e6f79399-50 � V_� ]]]]]�  S~�  }�   P�  ]]]]]]�  S �  } � O  P� � f��l-1e6f79399-53 f��l-1e6f79399-54 � V� ]]]]]�  S� S� U]� Sme� � � S � }� O P� f��l-1e6f79399-58 f��l-1e6f79399-59  � !V � "!]]]]]�  #S"� $S"� %!]� &S %e� '$&� ('� )S � *})� +O *P� ,f��l-1e6f79399-5d -f��l-1e6f79399-5e .,-� /V.� 0/]]]]]�  1S0� 2S0� 3U/]� 4S3e� 524� 65� 7g��t-1e6f79399-4d 87� 9f��l-1e6f79399-62 :9� ;V8:� <;]]]]]�  =Sp<� >;]]]]]]� ?S>� @?� AS>� BSm>� CSo>� DC?� EU;]� FSmEe� GBDF� HS>� I;]� JS Ie� KH?J� LSy>� MS>� NS3Ee� OMN� PL?O� QAGKP� R=@Q� SU]� TS�Se� Ug��%server-impl-read-procedure Vg��m-1e6f79399-69 WVT� XW� Yf��l-1e6f79399-6b ZY� [V_XZ� \W][]]]]�  ]S~\� ^}]� _^P� `][]]]]]� aS`� b}a� cO_bP� dWW� ef��l-1e6f79399-6e ff��l-1e6f79399-6f gef� hVdg� iWh][]]]]�  jSi� kSi� lUh][� mSmle� nkm� on� pS`� q}p� rO_qP� sf��l-1e6f79399-73 tf��l-1e6f79399-74 ust� vVdu� wWv][]]]]�  xSw� ySw� zv][� {S ze� |y{� }|� ~S`� }~� O_P� f��l-1e6f79399-78 f��l-1e6f79399-79 � Vd� W][]]]]�  S� S� U][� Se� � � g��t-1e6f79399-68 � f��l-1e6f79399-7d � VX� W][]]]]�  Sp� ][]]]]]� S� � S� Sm� So� � U][� Sme� � S� ][� S e� � Sy� S� S4e� � � � � U][� SUe� g��%server-impl-write-procedure g��m-1e6f79399-84 T� � f��l-1e6f79399-86 � V_� ]]]]]�  S~� }� P� ]]]]]]� S� }� OP� � f��l-1e6f79399-89 f��l-1e6f79399-8a � V� ]]]]]�  S� S� U]� Sme� � � S� }� OP� f��l-1e6f79399-8e f��l-1e6f79399-8f � V� ]]]]]�  S� S� ]� S e� � � S� }� OP� f��l-1e6f79399-93 f��l-1e6f79399-94 � V� ]]]]]�  S� S� U]� Se� � � g��t-1e6f79399-83 � f��l-1e6f79399-98 � V� ]]]]]�  Sp� ]]]]]]� S� � S� Sm� So� � U]� Sme� � S� ]� S e� � Sy� S� S5e� � � � � U]� Se� g��%server-impl-close-procedure �g��m-1e6f79399-9f �T� � f��l-1e6f79399-a1 � V_� ]]]]]�  S~� }�  P�  ]]]]]]�  S �  } �  O  P� � f��l-1e6f79399-a4 f��l-1e6f79399-a5 � V� ]]]]]�  S� S� U]� Sme� � � S � }� O P� f��l-1e6f79399-a9 f��l-1e6f79399-aa �  V� ! ]]]]]�  "S!� #S!� $ ]� %S $e� &#%� '&� (S � )}(� *O )P� +f��l-1e6f79399-ae ,f��l-1e6f79399-af -+,� .V-� /.]]]]]�  0S/� 1S/� 2U.]� 3S2e� 413� 54� 6g��t-1e6f79399-9e 76� 8f��l-1e6f79399-b3 98� :V79� ;:]]]]]�  <Sp;� =:]]]]]]� >S=� ?>� @S=� ASm=� BSo=� CB>� DU:]� ESmDe� FACE� GS=� H:]� IS He� JG>I� KSy=� LS=� MS6De� NLM� OK>N� P@FJO� Q<?P� RU]� SSRe� Tg��each UPP� VTU� WPV XPW YPX Zg�� %%set-fields [g��dummy \g��check? ]g��expr ^[\]� _g��m-1e6f79399-ba `_T� a`� bf��l-1e6f79399-bf cf��l-1e6f79399-c0 df��l-1e6f79399-c1 ef��l-1e6f79399-c2 ff��l-1e6f79399-c3 gbcdef� hV^ag� i`� jf��l-1e6f79399-bc kj� lV_ik� mg��t-1e8ba8b5a-3c4 ng��t-1e8ba8b5a-3c6 og��t-1e8ba8b5a-3c5 pmno� qg��m-1e8ba8b5a-3c7 rqT� srrr� tf��l-1e8ba8b5a-3cb uf��l-1e8ba8b5a-3cc vf��l-1e8ba8b5a-3cd wtuv� xVpsw� yf��l-1e8ba8b5a-3c1 zf��l-1e8ba8b5a-3c2 {f��l-1e8ba8b5a-3c3 |yz{� }V|� ~h]l]x]]]}�  SZ~� Uh]l� Sme� S2e� S3e� S4e� S5e� S6e� � g��map � � g��list PPPPPP� g��define [� g��m-1e6f79399-e7 T� UUUUU� f��l-1e6f79399-ec f��l-1e6f79399-ed f��l-1e6f79399-ee f��l-1e6f79399-ef f��l-1e6f79399-f0 f��l-1e6f79399-f1 � V� � f��l-1e6f79399-e9 � V_� U]� Se� S0e� Se� g�� module-ref g��resolve-module g��error f�� expected a server impl in module f��"expected a server-impl or a symbol g��call-with-error-handling g�� pass-keysS g��quit g�� interrupt � g��on-errorS g�� batch-mode? g�� backtrace g��debug g�� post-errorS g�� <response> � � g�� assoc-set! g�� copy-tree g��%%<response>-set-fields g��extend-response g��build-response g��versionS g�� <request> � � g��request-version g��headersS g��response-version g��string? g��response-content-type g�� text/plain � g��assq-ref g��charset g�� content-type g��append � � f��utf-8 g��string->bytevector g�� procedure? g��call-with-encoded-output-string g�� bytevector? g��response-content-length g��bytevector-length f��bad content-length g��content-length g��request-method g��HEAD g��response-must-not-include-body? f��4response with this status code must not include body f��unexpected body type g��vu8 ���������j��� g��adapt-response-version g��with-stack-and-prompt g��codeS g�� provided? g��posix g��catch g�� sigaction g��SIGINT g��throw g��call-with-sigint g��default-prompt-tag g�� %start-stack � � g��httpC�5�������h�s����]4   ,-?5�4B�>��"��G���4Ci5�DRCED��������h@������] 45�4������B@>��"��G�� C�������������g��who  :�g��t  :��g��filenamef��web/server.scm i  j  j  k   k   k   k   k  " l  % l  & l  ' k , k  8 m �  : ��g��nameg�� print-elapsed�CFR4IJKNQRfh�����h���T���]$����CC�����L�������g��who  ��g��filenamef��web/server.scm  v �   ���Ckl�����h(���a���] 4�5$��@�6������Y�������g��x  "�g��tmp "��g��filenamef��web/server.scm s �  " ���C5JRm����h������]��C�������������g��name  �g��open  �g��read   �g��write   �g��close   ��g��filenamef��web/server.scm z �   ��g��nameg��%make-server-impl-procedure�CnR4I0KNo������h������]��C�������������g�� t-1e6f79399-d  �g�� t-1e6f79399-e  �g�� t-1e6f79399-f   �g��t-1e6f79399-10   �g��t-1e6f79399-11   ��   ���C0�h���Q���]L�6����I�������g��a  ��g��filenamef��web/server.scm  z �  ���CO�������h���A���]�L�69�������g��filenamef��web/server.scm  z �   ���C���������h������]�C����������   ���Ckl� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��z�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��web/server.scm z �  n ���C50Rm��4 �m>��"��G��� ni��mRm�����h���v���]�$���CC������n�������g��obj  ��g��filenamef��web/server.scm z �   ��g��nameg��%server-impl?-procedure�CR4I1KNQv���h���6���]��C������.�������g��t-1e6f79399-26  ��  ���C1������h���Q���]L�6����I�������g��a  ��g��filenamef��web/server.scm  z �  ���CO�������h���A���]�L�69�������g��filenamef��web/server.scm  z �   ���Cx��������h������]�C����������   ���Ckl� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��z�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��web/server.scm z �  n ���C51Rm{2������h���x���]�&��� C�6p�������g��s  ��g��filenamef��web/server.scm z �   ��g��nameg��%server-impl-name-procedure�C|R4I2KN�����h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���CQ�����h���6���]��C������.�������g��t-1e6f79399-32  ��  ���C2������h���Q���]L�6����I�������g��a  ��g��filenamef��web/server.scm  z �  ���CO�������h���A���]�L�69�������g��filenamef��web/server.scm  z �   ���C��������h������]�C����������   ���Ckl��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��web/server.scm z �  � ���C52Rm{3��h���x���]�&��� C�6p�������g��s  ��g��filenamef��web/server.scm z �   ��g��nameg��%server-impl-open-procedure�C�R4I3KN�����h���:���]C�����2�������g��err  �g��s  ��  ���C#(�h���:���]C�����2�������g��err  �g��s  ��  ���C+16�h���:���]C�����2�������g��err  �g��s  ��  ���CQR�����h���6���]��C������.�������g��t-1e6f79399-4d  ��  ���C3������h���Q���]L�6����I�������g��a  ��g��filenamef��web/server.scm  z �  ���CO�������h���A���]�L�69�������g��filenamef��web/server.scm  z �   ���CT��������h������]�C����������   ���Ckl��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��web/server.scm z �  � ���C53Rm{4��h ���x���]�&��� C�6�������p�������g��s  ��g��filenamef��web/server.scm z �   ��g��nameg��%server-impl-read-procedure�CUR4I4KNcjo�����h���:���]C�����2�������g��err  �g��s  ��  ���Crx}�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���CQ�����h���6���]��C������.�������g��t-1e6f79399-68  ��  ���C4������h���Q���]L�6����I�������g��a  ��g��filenamef��web/server.scm  z �  ���CO�������h���A���]�L�69�������g��filenamef��web/server.scm  z �   ���C��������h������]�C����������   ���Ckl��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��web/server.scm z �  � ���C54Rm{5��h ���y���]�&��� C�6�������q�������g��s  ��g��filenamef��web/server.scm z �   ��g��nameg��%server-impl-write-procedure�CR4I5KN����h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���CQ�����h���6���]��C������.�������g��t-1e6f79399-83  ��  ���C5������h���Q���]L�6����I�������g��a  ��g��filenamef��web/server.scm  z �  ���CO�������h���A���]�L�69�������g��filenamef��web/server.scm  z �   ���C��������h������]�C����������   ���Ckl��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��web/server.scm z �  � ���C55Rm{6��h ���y���]�&��� C�6�������q�������g��s  ��g��filenamef��web/server.scm z �   ��g��nameg��%server-impl-close-procedure�CR4I6KN ����h���:���]C�����2�������g��err  �g��s  ��  ���C"'�h���:���]C�����2�������g��err  �g��s  ��  ���C*05�h���:���]C�����2�������g��err  �g��s  ��  ���CQQ�����h���6���]��C������.�������g��t-1e6f79399-9e  ��  ���C6������h���Q���]L�6����I�������g��a  ��g��filenamef��web/server.scm  z �  ���CO�������h���A���]�L�69�������g��filenamef��web/server.scm  z �   ���CS��������h������]�C����������   ���Ckl��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��web/server.scm z �  � ���C56R4IKNY����h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���Ckl���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��web/server.scm z �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5R4I.KN����h ������]���C���������g��dummy  �g��name  �g��open   �g��read   �g��write   �g��close   ��   ���Ckl��������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��web/server.scm � �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��nameg��openg��readg��writeg��close���C5.Rm� �����hx�����] "��T�$��E44��5�5"���6$��&��C""�6�$���&���C""���������g��impl  u�g��impl " R��g��filenamef��web/server.scm � �  �   �   �   � ,  �  " �  " �  , �  . � 4 7 � 7 �  : � > �  A � V � Z �  Z �  ] �  a �  d � �  u ��g��nameg��lookup-server-implg�� documentation��k�L���o���o���k��� ���u���p��� ���a��� ���s���e���r���v���e���r��� ���i���m���p���l���e���m���e���n���t���a���t���i���o���n���.��� ��� ���I���f��� ���I���M���P���L��� ���i���s��� ���a��� ���s���e���r���v���e���r��� ���i���m���p���l���e���m���e���n���t���a���t���i���o���n��� ���a���l���r���e���a���d���y���,��� ���i���t��� ���i���s��� ���r���e���t���u���r���n���e���d��� ���d���i���r���e���c���t���l���y���.��� ��� ���I���f��� ���i���t��� ���i���s��� ���a��� ���s���y���m���b���o���l���,��� ���t���h���e��� ���b���i���n���d���i���n���g��� ���n���a���m���e���d��� ���I���M���P���L��� ���i���n��� ���t���h���e��� ��� ��(���w���e���b��� ���s���e���r���v���e���r��� ���I���M���P���L���)��� �� ���m���o���d���u���l���e��� ���i���s��� ���l���o���o���k���e���d��� ���u���p���.��� ��� ���O���t���h���e���r���w���i���s���e��� ���a���n��� ���e���r���r���o���r��� ���i���s��� ���s���i���g���n���a���l���e���d���.��� ��� ���C���u���r���r���e���n���t���l���y��� ���a��� ���s���e���r���v���e���r��� ���i���m���p���l���e���m���e���n���t���a���t���i���o���n��� ���i���s��� ���a��� ���s���o���m���e���w���h���a���t��� ���o���p���a���q���u���e��� ���t���y���p���e���,��� ���u���s���e���f���u���l��� ���o���n���l���y��� ���f���o���r��� ���p���a���s���s���i���n���g��� ���t���o��� ���o���t���h���e���r��� ���p���r���o���c���e���d���u���r���e���s��� ���i���n��� ���t���h���i���s��� ���m���o���d���u���l���e���,��� ���l���i���k���e��� ��� ��r���e���a���d���-���c���l���i���e���n���t��� ��.����C/Rm{3�h ���i��]�&��� "�� 4�5@a������g��impl  �g�� open-params  ��g��filenamef��web/server.scm �  � � �  ��g��nameg�� open-serverg�� documentationk�O���p���e���n��� ���a��� ���s���e���r���v���e���r��� ���f���o���r��� ���t���h���e��� ���g���i���v���e���n��� ���i���m���p���l���e���m���e���n���t���a���t���i���o���n���.��� ��� ���R���e���t���u���r���n��� ���o���n���e��� ���v���a���l���u���e���,��� ���t���h���e��� ���n���e���w��� ���s���e���r���v���e���r��� ���o���b���j���e���c���t���.��� ��� ���T���h���e��� ���i���m���p���l���e���m���e���n���t���a���t���i���o���n���'���s��� ��� ��o���p���e���n��� �� ���p���r���o���c���e���d���u���r���e��� ���i���s��� ���a���p���p���l���i���e���d��� ���t���o��� ���O���P���E���N���-���P���A���R���A���M���S���,��� ���w���h���i���c���h��� ���s���h���o���u���l���d��� ���b���e��� ���a��� ���l���i���s���t���.����C7Rm{4�����h(���K���]�L&�� L "�� 4L5L�6�������C�������g��filenamef��web/server.scm �   � �  ! ���C������h���]���-��1��3�D��U�������g��_ ��g��filenamef��web/server.scm �   � �  ���C� �������h0��� ��]�O�45�$��"��  6������������g��impl  *�g��server  *��g��filenamef��web/server.scm �  �   �   �   � $ � + * � �  * ��g��nameg�� read-clientg�� documentation�k�<R���e���a���d��� ���a��� ���n���e���w��� ���c���l���i���e���n���t��� ���f���r���o���m��� ���S���E���R���V���E���R���,��� ���b���y��� ���a���p���p���l���y���i���n���g��� ���t���h���e��� ���i���m���p���l���e���m���e���n���t���a���t���i���o���n���'���s��� ��� ��r���e���a���d��� �� ���p���r���o���c���e���d���u���r���e��� ���t���o��� ���t���h���e��� ���s���e���r���v���e���r���.��� ��� ���I���f��� ���s���u���c���c���e���s���s���f���u���l���,��� ���r���e���t���u���r���n��� ���t���h���r���e���e��� ���v���a���l���u���e���s���:��� ���a���n��� ���o���b���j���e���c���t��� ���c���o���r���r���e���s���p���o���n���d���i���n���g��� ���t���o��� ���t���h���e��� ���c���l���i���e���n���t���,��� ���a��� ���r���e���q���u���e���s���t��� ���o���b���j���e���c���t���,��� ���a���n���d��� ���t���h���e��� ���r���e���q���u���e���s���t��� ���b���o���d���y���.��� ��� ���I���f��� ���a���n���y��� ���e���x���c���e���p���t���i���o���n��� ���o���c���c���u���r���s���,��� ���r���e���t���u���r���n��� ��� ��#���f��� �� ���f���o���r��� ���a���l���l��� ���t���h���r���e���e��� ���v���a���l���u���e���s���.����C8R{������h`�����-�1�3��&��.� � � 44� 55� �"�� 4�5(��C@����������g��r \�g��k \�g��v  \�g�� additional  \�g��r  I \��g��filenamef��web/server.scm � � " �  % � " , � - . � " 4 �  9 � I �  Q �  \ � � \  ��g��nameg��extend-response�CR:{�#���h��M��]$��.�4�&�� � "�� 4�556�&�� � "�� 4�5&�� "�� 4 5$�{$�o4 5$��V4  54 5�$��"��44�554$��"��5645$��V4  54 5�$��"��44�554$��"��5645$��"��p4545$��$��"�� 45"�� 45�&��� "�� 4�5&��"��D45$��45 $��"t6"h 6!D�4"�&�� � "�� 4�556��E������g��request  �g��response  �g��body   �g��type  � ��g��declared-charset  � ��g��type  � 9�g��declared-charset  � 9�g��rlen  V �g��blen  V �� g��filenamef��web/server.scm �  �  �   �   � 1 3 �  7 �  : �  U � + m � q �  x �  � �  � �  � � ( � �  � �  � �  � � ' � � 2 � �  � �  � �  � � � � % � �  � � ) � �  � � � �  � �  � � ) � �  � �  � �  � �  � �  � � ( � �  � �  � �  � � ' � � 2 � �  � �   �   �  � %  �   � )  �  " � # �  + �  3 � ) 7 �  9 �  : � D �  I �  P �  V � ` �  e �  i �  p �  t � z �   �   � /  �   �   � .  �  �   �   �  �   �   �   �   �  �   �  �   �   �   �   � /  �   � �\   ��g��nameg��sanitize-responseg�� documentation�k� "���S���a���n���i���t���i���z���e���"��� ���t���h���e��� ���g���i���v���e���n��� ���r���e���s���p���o���n���s���e��� ���a���n���d��� ���b���o���d���y���,��� ���m���a���k���i���n���g��� ���t���h���e���m��� ���a���p���p���r���o���p���r���i���a���t���e��� ���f���o���r��� ���t���h���e��� ���g���i���v���e���n��� ���r���e���q���u���e���s���t���.��� ��� ���A���s��� ���a��� ���c���o���n���v���e���n���i���e���n���c���e��� ���t���o��� ���w���e���b��� ���h���a���n���d���l���e���r��� ���a���u���t���h���o���r���s���,��� ���R���E���S���P���O���N���S���E��� ���m���a���y��� ���b���e��� ���g���i���v���e���n��� ���a���s��� ���a���n��� ���a���l���i���s���t��� ���o���f��� ���h���e���a���d���e���r���s���,��� ���i���n��� ���w���h���i���c���h��� ���c���a���s���e��� ���i���t��� ���i���s��� ���u���s���e���d��� ���t���o��� ���c���o���n���s���t���r���u���c���t��� ���a��� ���d���e���f���a���u���l���t��� ���r���e���s���p���o���n���s���e���.��� ��� ���E���n���s���u���r���e���s��� ���t���h���a���t��� ���t���h���e��� ���r���e���s���p���o���n���s���e��� ���v���e���r���s���i���o���n��� ���c���o���r���r���e���s���p���o���n���d���s��� ���t���o��� ���t���h���e��� ���r���e���q���u���e���s���t��� ���v���e���r���s���i���o���n���.��� ��� ���I���f��� ���B���O���D���Y��� ���i���s��� ���a��� ���s���t���r���i���n���g���,��� ���e���n���c���o���d���e���s��� ���t���h���e��� ���s���t���r���i���n���g��� ���t���o��� ���a��� ���b���y���t���e���v���e���c���t���o���r���,��� ���i���n��� ���a���n��� ���e���n���c���o���d���i���n���g��� ���a���p���p���r���o���p���r���i���a���t���e��� ���f���o���r��� ���R���E���S���P���O���N���S���E���.��� ��� ���A���d���d���s��� ���a��� ��� ��c���o���n���t���e���n���t���-���l���e���n���g���t���h��� �� ���a���n���d��� ��� ��c���o���n���t���e���n���t���-���t���y���p���e��� �� ���h���e���a���d���e���r���,��� ���a���s��� ���n���e���c���e���s���s���a���r���y���.��� ��� ���I���f��� ���B���O���D���Y��� ���i���s��� ���a��� ���p���r���o���c���e���d���u���r���e���,��� ���i���t��� ���i���s��� ���c���a���l���l���e���d��� ���w���i���t���h��� ���a��� ���p���o���r���t��� ���a���s��� ���a���n��� ���a���r���g���u���m���e���n���t���,��� ���a���n���d��� ���t���h���e��� ���o���u���t���p���u���t��� ���c���o���l���l���e���c���t���e���d��� ���a���s��� ���a��� ���b���y���t���e���v���e���c���t���o���r���.��� ��� ���I���n��� ���t���h���e��� ���f���u���t���u���r���e��� ���w���e��� ���m���i���g���h���t��� ���t���r���y��� ���t���o��� ���i���n���s���t���e���a���d��� ���u���s���e��� ���a��� ���c���o���m���p���r���e���s���s���i���n���g���,��� ���c���h���u���n���k���-���e���n���c���o���d���e���d��� ���p���o���r���t���,��� ���a���n���d��� ���c���a���l���l��� ���t���h���i���s��� ���p���r���o���c���e���d���u���r���e��� ���l���a���t���e���r���,��� ���i���n��� ���t���h���e��� ���w���r���i���t���e���-���c���l���i���e���n���t��� ���p���r���o���c���e���d���u���r���e���.��� ��� ���A���u���t���h���o���r���s��� ���a���r���e��� ���a���d���v���i���s���e���d��� ���n���o���t��� ���t���o��� ���r���e���l���y��� ���o���n��� ���t���h���e��� ���p���r���o���c���e���d���u���r���e��� ���b���e���i���n���g��� ���c���a���l���l���e���d��� ���a���t��� ���a���n���y��� ���p���a���r���t���i���c���u���l���a���r��� ���t���i���m���e���.����C:R������h���K���]�LLLL�@����C�������g��filenamef��web/server.scm    �  ���C:��������h@������](4L�LLLO�>�� G�4L�>�� G�D��������g��response  ?�g��body  ?�g��state   ?�g��response  0 ?�g��body  0 ?��g��filenamef��web/server.scm         "   3  ?  �  ? ���C�������h���f���-��1��3�4 5L�D^�������g��_ ��g��filenamef��web/server.scm   !   ! �  ���C� ������h8�����]�O�45�$��"��  O�6�����������g��handler  3�g��request  3�g��body   3�g��state   3��g��filenamef��web/server.scm          "  (  + 3  �  3 ��g��nameg��handle-requestg�� documentationf�"Handle a given request, returning the response and body. The response and response body are produced by calling the given HANDLER with REQUEST and BODY as arguments. The elements of STATE are also passed to HANDLER as arguments, and may be returned as additional values. The new STATE, collected from the HANDLER's return values, is then returned as a list. The idea is that a server loop receives a handler from the user, along with whatever state values the user is interested in, allowing the user's handler to explicitly manage its state.�C9Rm{5����h(���K���]�L&�� L "�� 4L5LLLL�6�C�������g��filenamef��web/server.scm *   + �  ' ���C������h���]���-��1��3�D������U�������g��_ ��g��filenamef��web/server.scm .  . � ���C� �������h0�����]�O�45�$��"��  6������g��impl  0�g��server  0�g��client   0�g��response   0�g��body   0��g��filenamef��web/server.scm $  ,   -  " -  $ - * - + 0 ) �  0 ��g��nameg�� write-clientg�� documentationf��Write an HTTP response and body to CLIENT. If the server and client support persistent connections, it is the implementation's responsibility to keep track of the client thereafter, presumably by attaching it to the SERVER argument somehow.�C;Rm{6��������h(�����]�&�� � "�� 4�56�������������g��impl  !�g��server  !��g��filenamef��web/server.scm 1  4 �  ! ��g��nameg�� close-serverg�� documentation�k�R���e���l���e���a���s���e��� ���r���e���s���o���u���r���c���e���s��� ���a���l���l���o���c���a���t���e���d��� ���b���y��� ���a��� ���p���r���e���v���i���o���u���s��� ���i���n���v���o���c���a���t���i���o���n��� ���o���f��� ��� ��o���p���e���n���-���s���e���r���v���e���r��� ��.����C<R4i5$�����h���f���]6^�������g��sig  ��g��filenamef��web/server.scm @ *  @ ?  @ 8�   ���C�������h���T���]�45N�C�L�������g��filenamef��web/server.scm >   @  ? �   ���C��h ���o���]�M�$�� M�M�66�����g�������g��filenamef��web/server.scm B   C   E (  E 6  E   G �   ���C�������h ���o���]�M�$�� M�M�66�����g�������g��filenamef��web/server.scm B   C   E (  E 6  E   G �   ���C�������h ���o���]�M�$�� M�M�66�����g�������g��filenamef��web/server.scm B   C   E (  E 6  E   G �   ���C������h`���K���]�L�O�L�O�4L�O�>���"��G��V4L>���X4L�O�>���"��G��CX4L�O�>���"��G��F����C�������g��filenamef��web/server.scm <  = �  \ ���C���h���k���-�1�3�L�6����c�������g��k �g��_ ��g��filenamef��web/server.scm H H � ���C��h ������] H�O�O�6������������g��thunk  �g�� handler-thunk  �g��handler   ��g��filenamef��web/server.scm 9   :  ;   ; �   ���C"���h���z���]�6���r�������g��thunk  �g�� handler-thunk  ��g��filenamef��web/server.scm 8   8 $�   ���CRh���K���]�L�6���C�������g��filenamef��web/server.scm L   L /�   ���C��h���C���]�L�O�6��;�������g��filenamef��web/server.scm  L �   ���Ch���K���]�LL�6C�������g��filenamef��web/server.scm N -  N 8�   ���C��h8������]45�U���4�O�>���XCXFG�O�6��������������g��thunk  1�g��k  1�g��proc   1��g��filenamef��web/server.scm J  K  K  1 N �  1 ��g��nameg��with-stack-and-prompt�CR89;��������hX�����]44>�� G�$��74�>�� G� 4>��"��G�� CC ������g��handler  X�g��impl  X�g��server   X�g��state   X�g��client   X�g��request   X�g��body   X�g��response  / U�g��body  / U�g��state / U�� g��filenamef��web/server.scm Q  X   V   [   ^  2 \ 9 a �  X ��g��nameg��serve-one-clientg�� documentationf��Read one request from SERVER, call HANDLER on the request and body, and write the response to the client. Return the new state produced by the handler procedure.�C=R/7=���h(���z���]"��4LLL��5�"L�"�������r�������g��state  ��g��filenamef��web/server.scm            �  ! ���C<��������h���T���]�4LL�>��"��G��D�L�������g��filenamef��web/server.scm        �   ���C�hP�����-�.�1�3�#��#��4545�O�O�6���������g��handler M�g��impl M�g�� open-params  M�g��state  M�g��impl  & M�g��server  1 M��g��filenamef��web/server.scm f  f .  f B   &   )   1   M  � M  ��g��nameg�� run-serverg�� documentation���k� R���u���n��� ���G���u���i���l���e���'���s��� ���b���u���i���l���t���-���i���n��� ���w���e���b��� ���s���e���r���v���e���r���.��� ��� ���H���A���N���D���L���E���R��� ���s���h���o���u���l���d��� ���b���e��� ���a��� ���p���r���o���c���e���d���u���r���e��� ���t���h���a���t��� ���t���a���k���e���s��� ���t���w���o��� ���o���r��� ���m���o���r���e��� ���a���r���g���u���m���e���n���t���s���,��� ���t���h���e��� ���H���T���T���P��� ���r���e���q���u���e���s���t��� ���a���n���d��� ���r���e���q���u���e���s���t��� ���b���o���d���y���,��� ���a���n���d��� ���r���e���t���u���r���n���s��� ���t���w���o��� ���o���r��� ���m���o���r���e��� ���v���a���l���u���e���s���,��� ���t���h���e��� ���r���e���s���p���o���n���s���e��� ���a���n���d��� ���r���e���s���p���o���n���s���e��� ���b���o���d���y���.��� ��� ���F���o���r��� ���e���x���a���m���p���l���e���,��� ���h���e���r���e��� ���i���s��� ���a��� ���s���i���m���p���l���e��� ���"���H���e���l���l���o���,��� ���W���o���r���l���d���!���"��� ���s���e���r���v���e���r���:��� ��� ���@���e���x���a���m���p���l���e��� ��� ���(���d���e���f���i���n���e��� ���(���h���a���n���d���l���e���r��� ���r���e���q���u���e���s���t��� ���b���o���d���y���)��� ��� ��� ��� ���(���v���a���l���u���e���s��� ���'���(���(���c���o���n���t���e���n���t���-���t���y���p���e��� ���.��� ���(���t���e���x���t���/���p���l���a���i���n���)���)���)��� ��� ��� ��� ��� ��� ��� ��� ��� ��� ��� ��� ���"���H���e���l���l���o���,��� ���W���o���r���l���d���!���"���)���)��� ��� ���(���r���u���n���-���s���e���r���v���e���r��� ���h���a���n���d���l���e���r���)��� ���@���e���n���d��� ���e���x���a���m���p���l���e��� ��� ���T���h���e��� ���r���e���s���p���o���n���s���e��� ���a���n���d��� ���b���o���d���y��� ���w���i���l���l��� ���b���e��� ���r���u���n��� ���t���h���r���o���u���g���h��� ��� ��s���a���n���i���t���i���z���e���-���r���e���s���p���o���n���s���e��� �� ���b���e���f���o���r���e��� ���s���e���n���d���i���n���g��� ���b���a���c���k��� ���t���o��� ���t���h���e��� ���c���l���i���e���n���t���.��� ��� ���A���d���d���i���t���i���o���n���a���l��� ���a���r���g���u���m���e���n���t���s��� ���t���o��� ���H���A���N���D���L���E���R��� ���a���r���e��� ���t���a���k���e���n��� ���f���r���o���m��� ���S���T���A���T���E���.��� ��� ���A���d���d���i���t���i���o���n���a���l��� ���r���e���t���u���r���n��� ���v���a���l���u���e���s��� ���a���r���e��� ���a���c���c���u���m���u���l���a���t���e���d��� ���i���n���t���o��� ���a��� ���n���e���w��� ���S���T���A���T���E���,��� ���w���h���i���c���h��� ���w���i���l���l��� ���b���e��� ���u���s���e���d��� ���f���o���r��� ���s���u���b���s���e���q���u���e���n���t��� ���r���e���q���u���e���s���t���s���.��� ��� ���I���n��� ���t���h���i���s��� ���w���a���y��� ���a��� ���h���a���n���d���l���e���r��� ���c���a���n��� ���e���x���p���l���i���c���i���t���l���y��� ���m���a���n���a���g���e��� ���i���t���s��� ���s���t���a���t���e���.��� ��� ���T���h���e��� ���d���e���f���a���u���l���t��� ���s���e���r���v���e���r��� ���i���m���p���l���e���m���e���n���t���a���t���i���o���n��� ���i���s��� ��� ��h���t���t���p��� ��,��� ���w���h���i���c���h��� ���a���c���c���e���p���t���s��� ���O���P���E���N���-���P���A���R���A���M���S��� ���l���i���k���e��� ��� ��(���#���:���p���o���r���t��� ���8���0���8���1���)��� ��,��� ���a���m���o���n���g��� ���o���t���h���e���r���s���.��� ��� ���S���e���e��� ���"���W���e���b��� ���S���e���r���v���e���r���"��� ���i���n��� ���t���h���e��� ���m���a���n���u���a���l���,��� ���f���o���r��� ���m���o���r���e��� ���i���n���f���o���r���m���a���t���i���o���n���.����C>RC��������g��m  ,�g��rtd  ��g��filenamef��web/server.scm  J - h  6 h u i  z - � 14 � 7 � 9; � M � R  V% $ X$ 1 X% 7 X- 7  X/ 7 X3 7  ] 6 _ J b| Q r f �  r ���C6������������������������������������������������2.0/ccache/web/uri.go�������������������������������������������������������������������������������0000644�����������������00000157503�15146341264�0010175 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0+������]�4�������hX������]� g��guile � g��define-module* � � g��web g��uri � g��filenameS f�� web/uri.scm g��importsS g��srfi g��srfi-9   � � g��ice-9 g��regex � � g��rdelim � � g��control � � g��rnrs g�� bytevectors � � g�� binary-ports � � ! � "g��exportsS #g��uri? $g�� uri-scheme %g�� uri-userinfo &g��uri-host 'g��uri-port (g��uri-path )g�� uri-query *g�� uri-fragment +g�� build-uri ,g��declare-default-port! -g�� string->uri .g�� uri->string /g�� uri-decode 0g�� uri-encode 1g��split-and-decode-uri-path 2g��encode-and-join-uri-path 3#$%&'()*+,-./012� 4g��set-current-module 54� 64� 7g��<uri> 8g��%make-uri-procedure 9g��make-syntax-transformer :9� ;9� <g��make-uri =g��macro >g�� $sc-dispatch ?>� @>� Ag��_ Bg��any CABBBBBBB� Dg�� syntax-object Eg��lambda Fg�� m-50eea-a Gg��top HFG� Ig��ribcage Jg�� t-50eea-3 Kg�� t-50eea-4 Lg�� t-50eea-5 Mg�� t-50eea-6 Ng�� t-50eea-7 Og�� t-50eea-8 Pg�� t-50eea-9 QJKLMNOP� RHHHHHHH� Sf�� l-50eea-f Tf�� l-50eea-10 Uf�� l-50eea-11 Vf�� l-50eea-12 Wf�� l-50eea-13 Xf�� l-50eea-14 Yf�� l-50eea-15 ZSTUVWXY� [IQRZ� \I� ]g��x ^]� _H� `f�� l-50eea-c a`� bI^_a� cg��shift dg�� proc-name eg��args fde� gG� hgg� if��l-1e8ba8b5a-2ba jf��l-1e8ba8b5a-2bb kij� lIfhk� mg��key ng��value og��name pg��formals qg��body rmnopq� sggggg� tf��l-1e8ba8b5a-2ad uf��l-1e8ba8b5a-2ae vf��l-1e8ba8b5a-2af wf��l-1e8ba8b5a-2b0 xf��l-1e8ba8b5a-2b1 ytuvwx� zIrsy� {g��make-procedure-name |{� }g� ~f��l-1e8ba8b5a-29d ~� �I|}� �g� �f��l-1e8ba8b5a-29c �� �I^� �H[\bc\\\\lz�  �g��hygiene �  � �DE� �g��scheme �g[\b� �� �D� �g��userinfo �D� �g��host �D� �g��port �D� �g��path �D� �g��query �D� �g��fragment �D� �� �g�� make-struct �g�� m-50eea-1 �G� �g��t-1e8ba8b5a-38d �g��t-1e8ba8b5a-38c �g��t-1e8ba8b5a-38b �� �g��m-1e8ba8b5a-38e �G� �� �f��l-1e8ba8b5a-392 �f��l-1e8ba8b5a-393 �f��l-1e8ba8b5a-394 �� �I� �g�� ctor-args �� �f��l-1e8ba8b5a-37a �� �I� �g��ctor �g��field �� �f��l-1e8ba8b5a-376 �f��l-1e8ba8b5a-377 �� �Ih� �g��form �g�� type-name �g��constructor-spec �g�� field-names �� �gggg� �f��l-1e8ba8b5a-36b �f��l-1e8ba8b5a-36c �f��l-1e8ba8b5a-36d �f��l-1e8ba8b5a-36e �� �I� �g�� record-layout �g��functional-setters �g��setters �g��copier �g��getters �g�� constructor �g��getter-identifiers �g��field-identifiers �� �gggggggg� �f��l-1e8ba8b5a-343 �f��l-1e8ba8b5a-341 �f��l-1e8ba8b5a-33f �f��l-1e8ba8b5a-33d �f��l-1e8ba8b5a-33b �f��l-1e8ba8b5a-339 �f��l-1e8ba8b5a-337 �f��l-1e8ba8b5a-335 �� �I� �f��l-1e8ba8b5a-334 �� �I^� �[\bc\\\\\� �D� �D7� �D � ��  �� �g��each-any �Aތ �g��syntax-violation �� �� �f��Wrong number of arguments �g�� identifier? �� �� �g\b� �D8� �� �� �f��-source expression failed to match any pattern �g��record-type-vtable �� �� �g��pwpwpwpwpwpwpw �g��default-record-printer �� �� �� �g��set-struct-vtable-name! �� �� �g��vtable-offset-user �� �� �g��%uri?-procedure �AB� �g�� m-50eea-23 �G� �g�� t-50eea-22 �� �� f�� l-50eea-28 � I�� f�� l-50eea-25 � I^�� \c\\\\lz�  DE�  g��obj  g��t-1e8ba8b5a-47e  g��t-1e8ba8b5a-478  g��t-1e8ba8b5a-479  g��t-1e8ba8b5a-47a g��t-1e8ba8b5a-47d g��t-1e8ba8b5a-47c g��t-1e8ba8b5a-47b     � g��m-1e8ba8b5a-47f G� � f��l-1e8ba8b5a-483 f��l-1e8ba8b5a-484 f��l-1e8ba8b5a-485 f��l-1e8ba8b5a-486 f��l-1e8ba8b5a-487 f��l-1e8ba8b5a-488 f��l-1e8ba8b5a-489 � I� g�� copier-id �  f��l-1e8ba8b5a-476 ! � "I!� #g�� ctor-name $#� %f��l-1e8ba8b5a-46e &%� 'I$&� (� )f��l-1e8ba8b5a-46c *)� +I(*� ,g��layout -,� .f��l-1e8ba8b5a-46a /.� 0I-/� 1g�� immutable? 21� 3f��l-1e8ba8b5a-468 43� 5I24� 6g�� field-count 76� 8f��l-1e8ba8b5a-466 98� :I79� ;g�� getter-ids <;� =f��l-1e8ba8b5a-463 >=� ?I<>� @g�� field-ids A@� Bf��l-1e8ba8b5a-460 CB� DIAC� Eg��predicate-name Fg�� field-spec G1EF� Hgggggg� If��l-1e8ba8b5a-453 Jf��l-1e8ba8b5a-454 Kf��l-1e8ba8b5a-455 Lf��l-1e8ba8b5a-456 Mf��l-1e8ba8b5a-457 Nf��l-1e8ba8b5a-458 OIJKLMN� PIGHO� Q\c\\\\\"\'\+\0\5\:\?\DP� RD Q� SR� Tg��and UDTQ� Vg��struct? WDVQ� XWR� Yg��eq? ZDYQ� [g�� struct-vtable \D[Q� ]\R� ^g\� _D7^� `Z]_� aUX`� bSa� cg\� dDc� eg��throw-bad-struct fe� ge� hg��%uri-scheme-procedure ig��free-id jg�� %%on-error kg�� m-50eea-2f lkG� ml� nf�� l-50eea-31 on� pI^mo� ql\pc\\\\lz�  rDjq� sir� tsB� ug��%%type vg��t-1e8ba8b5a-3a5 wg��t-1e8ba8b5a-3a6 xg��t-1e8ba8b5a-3a7 yg��t-1e8ba8b5a-3a8 zg��t-1e8ba8b5a-3a9 {g��t-1e8ba8b5a-3aa |g��t-1e8ba8b5a-3ab }vwxyz{|� ~g��m-1e8ba8b5a-3ac ~G� � f��l-1e8ba8b5a-3b0 f��l-1e8ba8b5a-3b1 f��l-1e8ba8b5a-3b2 f��l-1e8ba8b5a-3b3 f��l-1e8ba8b5a-3b4 f��l-1e8ba8b5a-3b5 f��l-1e8ba8b5a-3b6 � I}� g��getter g��index � f��l-1e8ba8b5a-3a3 f��l-1e8ba8b5a-3a4 � Ih� ;� ggg� f��l-1e8ba8b5a-39e f��l-1e8ba8b5a-39f f��l-1e8ba8b5a-3a0 � I� \pc\\\\\� Du� i� AtB� g��ck g��err g��s � ll� f�� l-50eea-34 f�� l-50eea-35 � I� l\pc\\\\lz�  D� g��quote D� g\p� D7� � � g��%%index D� i� AtB� f�� l-50eea-39 f�� l-50eea-3a � I� l\pc\\\\lz�  D� D� \p� D � � � g��%%copier D� i� AtB� f�� l-50eea-3e f�� l-50eea-3f � I� l\pc\\\\lz�  D� D� g��%%<uri>-set-fields g\p� D� � � g�� t-50eea-2e � f�� l-50eea-43 � Im� l\pc\\\\lz�  DE� \pc\\\\\� D� � g��if D� DY� D[� � g\p� D7� � g�� struct-ref D� \p� D � � De� D� D$� � � � � g\p� Dh� g��%uri-userinfo-procedure g�� m-50eea-4a G� � f�� l-50eea-4c � I^� \c\\\\lz�  Dj� i� B� \c\\\\\� Du� i� AB� � f�� l-50eea-4f f�� l-50eea-50 � I� �\c\\\\lz�  D�� D�� g\� D7� � � D� i�  AB�  f�� l-50eea-54  f�� l-50eea-55    �  I �  \c\\\\lz�  D� D�  \� D � � � D� i� AB� f�� l-50eea-59 f�� l-50eea-5a � I� \c\\\\lz�  D� D� g\�  D� ! � "!� #g�� t-50eea-49 $#� %f�� l-50eea-5e &%� 'I$&� ('\c\\\\lz�  )DE(� *'\c\\\\\� +D*� ,+� -D*� .DY*� /D[*� 0/+� 1g'\� 2D71� 3.02� 4D*� 5'\� 6D 5� 74+6� 8De*� 9D*� :D%1� ;9:� <8+;� =-37<� >),=� ?g\� @D?� Ag��%uri-host-procedure Bg�� m-50eea-65 CBG� DC� Ef�� l-50eea-67 FE� GI^DF� HC\Gc\\\\lz�  IDjH� JiI� KJB� L\Gc\\\\\� MDuL� NiM� OAKNB� PCC� Qf�� l-50eea-6a Rf�� l-50eea-6b SQR� TIPS� UCT\Gc\\\\lz�  VDU� WDU� XgT\G� YD7X� ZWY� [Z� \DL� ]i\� ^AK]B� _f�� l-50eea-6f `f�� l-50eea-70 a_`� bIPa� cCb\Gc\\\\lz�  dDc� eDc� fb\G� gD f� heg� ih� jDL� kij� lAKkB� mf�� l-50eea-74 nf�� l-50eea-75 omn� pIPo� qCp\Gc\\\\lz�  rDq� sDq� tgp\G� uDt� vsu� wv� xg�� t-50eea-64 yx� zf�� l-50eea-79 {z� |IyD{� }C|\Gc\\\\lz�  ~DE}� |\Gc\\\\\� D� � D� DY� D[� � g|\G� D7� � D� |\G� D � � De� D� D&� � � � ~� g\G� DA� g��%uri-port-procedure g�� m-50eea-80 G� � f�� l-50eea-82 � I^� \c\\\\lz�  Dj� i� B� \c\\\\\� Du� i� AB� � f�� l-50eea-85 f�� l-50eea-86 � I� \c\\\\lz�  D� D� g\� D7� � � D� i� AB� f�� l-50eea-8a f�� l-50eea-8b � I� \c\\\\lz�  D� D� \� D � � � D� i� AB� f�� l-50eea-8f f�� l-50eea-90 � I� \c\\\\lz�  D� D� g\� D� � � g�� t-50eea-7f � f�� l-50eea-94 � I� \c\\\\lz�  DE� \c\\\\\� D� � D� DY� D[� � g\� D7� � D� \� D � � De� D� D'� � � � � g\� D� g��%uri-path-procedure g�� m-50eea-9b G� � f�� l-50eea-9d � I^� \c\\\\lz�  Dj� i� B� \c\\\\\� Du� i� AB� � f�� l-50eea-a0 f�� l-50eea-a1 � I� \c\\\\lz�  �D� D� g\� D7� � � D� i� AB�  f�� l-50eea-a5  f�� l-50eea-a6    �  I �   \c\\\\lz�  D � D �  \� D � � � D� i� AB� f�� l-50eea-aa f�� l-50eea-ab � I� \c\\\\lz�  D� D� g\� D�  � ! � "g�� t-50eea-9a #"� $f�� l-50eea-af %$� &I#%� '&\c\\\\lz�  (DE'� )&\c\\\\\� *D)� +*� ,D)� -DY)� .D[)� /.*� 0g&\� 1D70� 2-/1� 3D)� 4&\� 5D 4� 63*5� 7De)� 8D)� 9D(0� :89� ;7*:� <,26;� =(+<� >g\� ?D>� @g��%uri-query-procedure Ag�� m-50eea-b6 BAG� CB� Df�� l-50eea-b8 ED� FI^CE� GB\Fc\\\\lz�  HDjG� IiH� JIB� K\Fc\\\\\� LDuK� MiL� NAJMB� OBB� Pf�� l-50eea-bb Qf�� l-50eea-bc RPQ� SIOR� TBS\Fc\\\\lz�  UDT� VDT� WgS\F� XD7W� YVX� ZY� [DK� \i[� ]AJ\B� ^f�� l-50eea-c0 _f�� l-50eea-c1 `^_� aIO`� bBa\Fc\\\\lz�  cDb� dDb� ea\F� fD e� gdf� hg� iDK� jii� kAJjB� lf�� l-50eea-c5 mf�� l-50eea-c6 nlm� oIOn� pBo\Fc\\\\lz�  qDp� rDp� sgo\F� tDs� urt� vu� wg�� t-50eea-b5 xw� yf�� l-50eea-ca zy� {IxCz� |B{\Fc\\\\lz�  }DE|� ~{\Fc\\\\\� D~� � D~� DY~� D[~� � g{\F� D7� � D~� {\F� D � � De~� D~� D)� � � � }� g\F� D@� g��%uri-fragment-procedure g�� m-50eea-d1 G� � f�� l-50eea-d3 � I^� \c\\\\lz�  Dj� i� B� \c\\\\\� Du� i� AB� � f�� l-50eea-d6 f�� l-50eea-d7 � I� \c\\\\lz�  D� D� g\� D7� � � D� i� AB� f�� l-50eea-db f�� l-50eea-dc � I� \c\\\\lz�  D� D� \� D � � � D� i� AB� f�� l-50eea-e0 f�� l-50eea-e1 � I� \c\\\\lz�  D� D� g\� D� � � g�� t-50eea-d0 � f�� l-50eea-e5 � I� \c\\\\lz�  DE� \c\\\\\� D� � D� DY� D[� � g\� D7� � D� \� D � � De� D� D*� � � � � g\� D� g��each BB� � B쌤 B팤 B g�� %%set-fields g��dummy g��check? g��expr � g�� m-50eea-ec G� � f�� l-50eea-f1 f�� l-50eea-f2 f�� l-50eea-f3 f�� l-50eea-f4 f�� l-50eea-f5 � I� � �f�� l-50eea-ee �� I^� g��t-1e8ba8b5a-3c4 g��t-1e8ba8b5a-3c6 g��t-1e8ba8b5a-3c5 � g��m-1e8ba8b5a-3c7 G�  �  f��l-1e8ba8b5a-3cb  f��l-1e8ba8b5a-3cc  f��l-1e8ba8b5a-3cd     � I  � f��l-1e8ba8b5a-3c1 f��l-1e8ba8b5a-3c2 f��l-1e8ba8b5a-3c3 � I� \c\\\\�  D� g\� D7� D$� D%� D&� D'� D(� D)� D*� �  g��map ! � " � #g��list $g�� absolute-uri? %g��throw &g�� uri-error 'g��number? (g��exact? )g��integer? *g��positive-exact-integer? +g��string? ,g�� string-null? -g�� string-ref .f��3Expected path of absolute URI to start with a /: ~a /f��Expected string for path: ~s 0f�� Expected string for userinfo: ~s 1g�� valid-host? 2f��Expected valid host: ~s 3f��"Expected port to be an integer: ~s 4f��'Expected a host, given userinfo or port 5f��(Expected a symbol for the URI scheme: ~s 6g�� validate-uri 7g��userinfoS 87  9g��hostS :9  ;g��portS <;  =g��pathS >=  ?g��queryS @?  Ag��fragmentS BA  Cg�� validate?S DC  E8:<>@BD� Ff��� Gg�� make-regexp Hf�� ^([0-9.]+)$ Ig�� ipv4-regexp Jf��^([0-9a-fA-F:.]+)$ Kg�� ipv6-regexp Lf��(^[a-zA-Z0-9]([a-zA-Z0-9-]*[a-zA-Z0-9])?$ Mg��domain-label-regexp Nf��%^[a-zA-Z]([a-zA-Z0-9-]*[a-zA-Z0-9])?$ Og��top-label-regexp Pg�� regexp-exec Qg��catch RQ� SQ� Tg�� inet-pton Ug��AF_INET Vg��AF_INET6 Wg�� string-index Xg�� substring Yf��[a-zA-Z0-9_.!~*'();:&=+$,-]+ Zg�� userinfo-pat [f��[a-zA-Z0-9.-]+ \g��host-pat ]f��[0-9a-fA-F:.]+ ^g�� ipv6-host-pat _f��[0-9]* `g��port-pat ag��format bf��%^//((~a)@)?((~a)|(\[(~a)\]))(:(~a))?$ cg��authority-regexp df��// eg��match:substring fg��string->number gg��parse-authority hf��[a-zA-Z][a-zA-Z0-9+.-]* ig�� scheme-pat jf��[^/?#]* kg�� authority-pat lf��[^?#]* mg��path-pat nf��[^#]* og�� query-pat pf��.* qg�� fragment-pat rf��&^((~a):)?(//~a)?(~a)(\?(~a))?(#(~a))?$ sg��uri-pat tg�� uri-regexp ug��default-prompt-tag vu� wu� xg��abort yg��string->symbol zg��string-downcase {g�� string->uri* |g��make-hash-table }g��*default-ports* ~g�� hashq-set! g�� hashq-ref g�� default-port? g��http g��https g�� string-append g��symbol->string f��: f��@ f��[ f��] g��number->string f��? f��# g��open-output-string g��get-output-string g�� close-port g��call-with-output-string* g��open-bytevector-output-port g��call-with-output-bytevector* g�� string-ci=? f��utf-8 g�� string->utf8 g��set-port-encoding! g��call-with-encoded-output-string g��display g�� encode-string g�� utf8->string g��open-bytevector-input-port g�� read-string g�� decode-string g��string->char-set f��0123456789abcdefABCDEF g�� hex-chars g��encodingS   g��decode-plus-to-space?S   � g�� string-length g��char-set-contains? g��string g��put-u8 g�� char->integer f��'Invalid character in encoded URI ~a: ~s f��>abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 g��ascii-alnum-chars f��:/?#[]@ g�� gen-delims f�� !$&'()*+,l= g�� sub-delims g��char-set-union g��reserved-chars f��-._~ g��unreserved-chars g��unescaped-charsS   � g��string-for-each g��bytevector-length g�� string-upcase g��filter g�� string-split g�� string-join f��/C�5����h}����]4   !"35�46�>��"��G���7������h������]��C���������g��scheme  �g��userinfo  �g��host   �g��port   �g��path   �g��query   �g��fragment   ��g��filenamef�� web/uri.scm , �   ��g��nameg��%make-uri-procedure�C8R4;<=@C����h������]��C���������g�� t-50eea-3  �g�� t-50eea-4  �g�� t-50eea-5   �g�� t-50eea-6   �g�� t-50eea-7   �g�� t-50eea-8   �g�� t-50eea-9   ��   ���C<�h���N���]L�6����F�������g��a  ��g��filenamef�� web/uri.scm  , �  ���CA��h���>���]�L�66�������g��filenamef�� web/uri.scm  , �   ���C����h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��w�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef�� web/uri.scm , �  n ���C5<R7��4�7>��"��G��� 8i��7R7������h���k���]�$���CC������c�������g��obj  ��g��filenamef�� web/uri.scm , �   ��g��nameg��%uri?-procedure�CR4;#=@b�������h���2���]��C������*�������g�� t-50eea-22  ��  ���C#��h���N���]L�6����F�������g��a  ��g��filenamef�� web/uri.scm  , �  ���CA��h���>���]�L�66�������g��filenamef�� web/uri.scm  , �   ���Cd���h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��w�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef�� web/uri.scm , �  n ���C5#R7g$�h���o���]�&��� C�6g�������g��s  ��g��filenamef�� web/uri.scm , �   ��g��nameg��%uri-scheme-procedure�ChR4;$=@������h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�����h���2���]��C������*�������g�� t-50eea-2e  ��  ���C$��h���N���]L�6����F�������g��a  ��g��filenamef�� web/uri.scm  , �  ���CA��h���>���]�L�66�������g��filenamef�� web/uri.scm  , �   ���C���h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef�� web/uri.scm , �  � ���C5$R7g%�����h���q���]�&��� C�6i�������g��s  ��g��filenamef�� web/uri.scm , �   ��g��nameg��%uri-userinfo-procedure�CR4;%=@����h���:���]C�����2�������g��err  �g��s  ��  ���C �h���:���]C�����2�������g��err  �g��s  ��  ���C"�h���:���]C�����2�������g��err  �g��s  ��  ���C>�����h���2���]��C������*�������g�� t-50eea-49  ��  ���C%��h���N���]L�6����F�������g��a  ��g��filenamef�� web/uri.scm  , �  ���CA��h���>���]�L�66�������g��filenamef�� web/uri.scm  , �   ���C@���h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef�� web/uri.scm , �  � ���C5%R7g&�����h ���m���]�&��� C�6�������e�������g��s  ��g��filenamef�� web/uri.scm , �   ��g��nameg��%uri-host-procedure�CAR4;&=@OV[��������h���:���]C�����2�������g��err  �g��s  ��  ���C^di�h���:���]C�����2�������g��err  �g��s  ��  ���Clrw�h���:���]C�����2�������g��err  �g��s  ��  ���C�����h���2���]��C������*�������g�� t-50eea-64  ��  ���C&��h���N���]L�6����F�������g��a  ��g��filenamef�� web/uri.scm  , �  ���CA��h���>���]�L�66�������g��filenamef�� web/uri.scm  , �   ���C���h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef�� web/uri.scm , �  � ���C5&R7g'�����h ���m���]�&��� C�6�������e�������g��s  ��g��filenamef�� web/uri.scm , �   ��g��nameg��%uri-port-procedure�CR4;'=@��������h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�����h���2���]��C������*�������g�� t-50eea-7f  ��  ���C'��h���N���]L�6����F�������g��a  ��g��filenamef�� web/uri.scm  , �  ���CA��h���>���]�L�66�������g��filenamef�� web/uri.scm  , �   ���C���h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef�� web/uri.scm , �  � ���C5'R7g(�����h ���m���]�&��� C�6�������e�������g��s  ��g��filenamef�� web/uri.scm , �   ��g��nameg��%uri-path-procedure�CR4;(=@���������h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C!�h���:���]C�����2�������g��err  �g��s  ��  ���C=�����h���2���]��C������*�������g�� t-50eea-9a  ��  ���C(��h���N���]L�6����F�������g��a  ��g��filenamef�� web/uri.scm  , �  ���CA��h���>���]�L�66�������g��filenamef�� web/uri.scm  , �   ���C?���h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef�� web/uri.scm , �  � ���C5(R7g)�����h ���n���]�&��� C�6�������f�������g��s  ��g��filenamef�� web/uri.scm , �   ��g��nameg��%uri-query-procedure�C@R4;)=@NUZ�������h���:���]C�����2�������g��err  �g��s  ��  ���C]ch�h���:���]C�����2�������g��err  �g��s  ��  ���Ckqv�h���:���]C�����2�������g��err  �g��s  ��  ���C�����h���2���]��C������*�������g�� t-50eea-b5  ��  ���C)��h���N���]L�6����F�������g��a  ��g��filenamef�� web/uri.scm  , �  ���CA��h���>���]�L�66�������g��filenamef�� web/uri.scm  , �   ���C���h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef�� web/uri.scm , �  � ���C5)R7g*�����h ���q���]�&��� C�6�������i�������g��s  ��g��filenamef�� web/uri.scm , �   ��g��nameg��%uri-fragment-procedure�CR4;*=@����h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�����h���2���]��C������*�������g�� t-50eea-d0  ��  ���C*��h���N���]L�6����F�������g��a  ��g��filenamef�� web/uri.scm  , �  ���CA��h���>���]�L�66�������g��filenamef�� web/uri.scm  , �   ���C���h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef�� web/uri.scm , �  � ���C5*R4;=@"#�������h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef�� web/uri.scm , �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5R7���h(������]�$���&�� � $��CCCC�������������g��obj  "��g��filenamef�� web/uri.scm 7  8  8  8   8   8 �  " ��g��nameg�� absolute-uri?�C$R%&�h������-�1�3��6������������g��message �g��args ��g��filenamef�� web/uri.scm : ;  ; �  ��g��nameg�� uri-error�C&R'()���h0������]4�5$��4�5$��4�5$��� CCCC���������g��port  .��g��filenamef�� web/uri.scm =  >  >   >   >   > $ # >  & > 4�  . ��g��nameg��positive-exact-integer?�C*R+,-&./012*345�����h���E��]�$��"��E45$��2$��*45$��"�� 4 5/$��6CC6"��!$��45$��"6""��2$��(45$�� 45"��$�� 6"""��!$��4 5$��" 6"$��"��$��$��" 6" �6�=������g��scheme  ��g��userinfo  ��g��host   ��g��port   ��g��path   ��g��query   ��g��fragment   ���g��filenamef�� web/uri.scm @  B A   L  A   N  ) N  / O  9 O  : O > N  B P  F P  N M  R M  R A  ] J  g J  o K  s K  w A  � H  � H  � H , � H ' � H  � H  � I  � I  � A  � F  � F  � G  � G  � A  � D � A  � D  � E  � E  � C  � C �+  � ��g��nameg�� validate-uri�C6REF67��������h�����-�/���0���3�#��#��#��#��#��#��#��$��"4�>��"��G��"�����C�������g��scheme  ��g��userinfo  ��g��host   ��g��port   ��g��path   ��g��query   ��g��fragment   ��g�� validate?   ���g��filenamef�� web/uri.scm R 6 R : Y Y  Z Z  � [ �  � g��userinfoS g��hostS g��portS g��pathS g��queryS g��fragmentS g�� validate?S ���g��nameg�� build-urig�� documentation���k�C���o���n���s���t���r���u���c���t��� ���a��� ���U���R���I��� ���o���b���j���e���c���t���.��� ��� ���S���C���H���E���M���E��� ���s���h���o���u���l���d��� ���b���e��� ���a��� ���s���y���m���b���o���l���,��� ���P���O���R���T��� ���e���i���t���h���e���r��� ���a��� ���p���o���s���i���t���i���v���e���,��� ���e���x���a���c���t��� ���i���n���t���e���g���e���r��� ���o���r��� ��� ��#���f��� ��,��� ���a���n���d��� ���t���h���e��� ���r���e���s���t��� ���o���f��� ���t���h���e��� ���f���i���e���l���d���s��� ���a���r���e��� ���e���i���t���h���e���r��� ���s���t���r���i���n���g���s��� ���o���r��� ��� ��#���f��� ��.��� ��� ���I���f��� ���V���A���L���I���D���A���T���E���?��� ���i���s��� ���t���r���u���e���,��� ���a���l���s���o��� ���r���u���n��� ���s���o���m���e��� ���c���o���n���s���i���s���t���e���n���c���y��� ���c���h���e���c���k���s��� ���t���o��� ���m���a���k���e��� ���s���u���r���e��� ���t���h���a���t��� ���t���h���e��� ���c���o���n���s���t���r���u���c���t���e���d��� ���U���R���I��� ���i���s��� ���v���a���l���i���d���.����C+R4GiH5IR4GiJ5KR4GiL5MR4GiN5ORPISTU����h���F���]�L�6������>�������g��filenamef�� web/uri.scm l  l �  ���Ch���S���-��1��3�C�����K�������g��args ��g��filenamef�� web/uri.scm l � ���CKTV��������h���F���]�L�6������>�������g��filenamef�� web/uri.scm n  n �  ���Ch���S���-��1��3�C�����K�������g��args ��g��filenamef�� web/uri.scm n � ���CWMXO� �����h�����]4�5$���O�64�5$���O�6"��>4 �.5$��!4 4 �55$�� "C �6 "�������������g��host  ��g��start < z�g��end  G z��g��filenamef�� web/uri.scm i  k   j   l   m  * j  8 n  < p  = q  G q  O r  P s  U t  a s  e s h u  n u  z v z p �  � ��g��nameg�� valid-host?�C1RYZR[\R]^R_`R4Gi4aibZi\i^i`i55cRdPc1e,f������h�����]�$��D4�5$��44 5$��"�� 4 55$��^4 54 5$��"�� 4 54 5$��45$��"��45"��D6�6������������g�� authority  ��g��fail  ��g��m   ��g��t  - G�g��t  _ y�g��port  � ���g��filenamef�� web/uri.scm �  �   �  �   �   �   �  ! �  " �  % � $ - � < � $ I �  M � N �  W �  _ �  n �  z � � �  � �  � � % � �  � �  � � � � �  � ��g��nameg��parse-authority�CgRhiRjkRlmRnoRpqR4airiikimioiqi5sR4Gisi5tRwPtxeyzg7� �������h���i��]I45�U��4�5$��"��4>���"��G��4 5$��4455"��4 54 54 54 5$��4>��"��  "�� G�   �XCXFG�C�����a������g��string  ��g��m  ��g��str  : V�g��scheme  z ��g�� authority  z ��g��path  z ��g��query  z ��g��fragment  z ��g��userinfo  � ��g��host  � ��g��port � ��g��k � ��� g��filenamef�� web/uri.scm �  �  �   �   �  " �  2 � : �  B �  C � F � 0 N � W �  ` �  i �  r �  z �  � �  � �  � �  � � � � � � �  � ��g��nameg�� string->uri*g�� documentation��k�<P���a���r���s���e��� ���S���T���R���I���N���G��� ���i���n���t���o��� ���a��� ���U���R���I��� ���o���b���j���e���c���t���.��� ��� ���R���e���t���u���r���n��� ��� ��#���f��� �� ���i���f��� ���t���h���e��� ���s���t���r���i���n���g��� ���c���o���u���l���d��� ���n���o���t��� ���b���e��� ���p���a���r���s���e���d���.����C{R{7g$�����h8�����] 4�5$��#&�� "�� 45$��CCC��������g��string  6�g��uri 6��g��filenamef�� web/uri.scm �  � �   �   � / � �  6 ��g��nameg�� string->urig�� documentation���k�<P���a���r���s���e��� ���S���T���R���I���N���G��� ���i���n���t���o��� ���a��� ���U���R���I��� ���o���b���j���e���c���t���.��� ��� ���R���e���t���u���r���n��� ��� ��#���f��� �� ���i���f��� ���t���h���e��� ���s���t���r���i���n���g��� ���c���o���u���l���d��� ���n���o���t��� ���b���e��� ���p���a���r���s���e���d���.����C-R4|i5�}R~}��h������]�6�����������g��scheme  �g��port  ��g��filenamef�� web/uri.scm � � �  ��g��nameg��declare-default-port!g�� documentationf��0Declare a default port for the given URI scheme.�C,R}�����h������]$�� 4�5CC��������g��scheme  �g��port  ��g��filenamef�� web/uri.scm �  �  �   �   � �   ��g��nameg�� default-port?�CR4,i P>��"��G��4,i >��"��G��7g$%&'()*FdW����h����]9�&��� "�� 4�5�&��� "�� 4�5�&�� � "�� 4�5�&�� � "�� 4�5�&�� � "�� 4�5�&�� � "�� 4�5�&�� � "�� 4� 5 $��4 4 5 5"�� $��w4 $�� 4 5"�� 4:5$��4 5"��4�&��� "�� 4�55$�� "��4  4555"�� $�� 4 5"�� $�� 4 5"�� 6����������g��uri  �g��scheme  �g��userinfo  8 �g��host  U �g��port  r �g��path  � �g��query  � �g��fragment  � ��g��filenamef�� web/uri.scm �  �   �  ! �  8 �  = �  U �  Z �  r �  w �  � �  � �  � �  � �  � �  � �  � � � �  � � 0 � � � � � �  � � � �  � �  � � % � � =  � %  �   �   �   �   � +  � 4  �  & �  + � + F �  J �  L �  Q �  U � + V � / ^ �  ` � f � n �  o � s �  w � } �  �   �  �   �  �  � �:   ��g��nameg�� uri->stringg�� documentationf��Serialize URI to a string. If the URI has a port that is the default port for its scheme, the port is not included in the serialization.�C.R������h@������]45�4�>��"��G��454>��"��G��C��������������g��proc  9�g��port  9�g��str  " 9��g��filenamef�� web/uri.scm �  �   �  �   �  " �  % � �  9 ��g��nameg��call-with-output-string*�CR����h@������]4>��� G�4�>��"��G��45�4>��"��G��C�������g��proc  @�g��port @�g��get-bytevector  @�g��bv  ) @��g��filenamef�� web/uri.scm           %   )   ,  �  @ ��g��nameg��call-with-output-bytevector*�CR��������h ���d���]4�L>��"��G��L��6����\�������g��port  ��g��filenamef�� web/uri.scm       �   ���C�h(������]4�5$�� 456�O�6��������g��encoding  '�g��proc  '��g��filenamef�� web/uri.scm                  '  �  ' ��g��nameg��call-with-encoded-output-string�CR������h���[���]L��6������S�������g��port  ��g��filenamef�� web/uri.scm  '  )�  ���C��h(������]45$���6�O�6�������������g��str  "�g��encoding  "��g��filenamef�� web/uri.scm               "  �  " ��g��nameg�� encode-string�CR�����hP�����]45$���64�54>��"��G��454>��"��G��C�������g��bv  P�g��encoding  P�g��p   P�g��res  9 P��g��filenamef�� web/uri.scm                        3   9   < ! �  P ��g��nameg�� decode-string�CR4i5R-f&� ������h0��m��]!"�#L�$�4L5"�� L�$��f%$��X4L54L 545$��&45$��445 5"��"��"��"��$��4�>��"��G�� "N45 �$��"4�45>��"��G��" L6+$��'L$��4� >��"��G��"""C "e������g��port  0�g��i  )�g��ch   '�g��a  I ��g��b  I ��g��t  � ���g��filenamef�� web/uri.scm K  L M   M   N   N  # S  & S  * S  / S , 3 S  4 T % ; T 5 = T % > U % G U 5 I U % I T  N V # Z V  [ W # g V  h X # k X 3 w X # � O  � Z  � [ � [  � \  � \  � O  � ]  � ] $ � ]  � ^  � ^  � ` " � `  � O  � P  � O   P   Q   Q $  Q   R   R  ) L �2  0 ���C�����hX��� ��-�/���0���3�#��#��4�54�O�5$��6C������������g��str  R�g��encoding  R�g��decode-plus-to-space?   R�g��len  - R�g��bv  ? R��g��filenamef�� web/uri.scm 2  2 ) ' H  - H  0 J ? H  G b  O c �  R g��encodingS g��decode-plus-to-space?S ���g��nameg�� uri-decodeg�� documentation��k�P���e���r���c���e���n���t���-���d���e���c���o���d���e��� ���t���h���e��� ���g���i���v���e���n��� ���S���T���R���,��� ���a���c���c���o���r���d���i���n���g��� ���t���o��� ���E���N���C���O���D���I���N���G���,��� ���w���h���i���c���h��� ���s���h���o���u���l���d��� ���b���e��� ���t���h���e��� ���n���a���m���e��� ���o���f��� ���a��� ���c���h���a���r���a���c���t���e���r��� ���e���n���c���o���d���i���n���g���.��� ��� ���N���o���t���e��� ���t���h���a���t��� ���t���h���i���s��� ���f���u���n���c���t���i���o���n��� ���s���h���o���u���l���d��� ���n���o���t��� ���g���e���n���e���r���a���l���l���y��� ���b���e��� ���a���p���p���l���i���e���d��� ���t���o��� ���a��� ���f���u���l���l��� ���U���R���I��� ���s���t���r���i���n���g���.��� ���F���o���r��� ���p���a���t���h���s���,��� ���u���s���e��� ��� ��s���p���l���i���t���-���a���n���d���-���d���e���c���o���d���e���-���u���r���i���-���p���a���t���h��� �� ���i���n���s���t���e���a���d���.��� ���F���o���r��� ���q���u���e���r���y��� ���s���t���r���i���n���g���s���,��� ���s���p���l���i���t��� ���t���h���e��� ���q���u���e���r���y��� ���o���n��� ��� ��&��� �� ���a���n���d��� ��� ��=��� �� ���b���o���u���n���d���a���r���i���e���s���,��� ���a���n���d��� ���d���e���c���o���d���e��� ���t���h���e��� ���c���o���m���p���o���n���e���n���t���s��� ���s���e���p���a���r���a���t���e���l���y���.��� ��� ���N���o���t���e��� ���a���l���s���o��� ���t���h���a���t��� ���p���e���r���c���e���n���t���-���e���n���c���o���d���e���d��� ���s���t���r���i���n���g���s��� ���e���n���c���o���d���e��� ���_���b���y���t���e���s���_���,��� ���n���o���t��� ���c���h���a���r���a���c���t���e���r���s���.��� ���T���h���e���r���e��� ���i���s��� ���n���o��� ���g���u���a���r���a���n���t���e���e��� ���t���h���a���t��� ���a��� ���g���i���v���e���n��� ���b���y���t���e��� ���s���e���q���u���e���n���c���e��� ���i���s��� ���a��� ���v���a���l���i���d��� ���s���t���r���i���n���g��� ���e���n���c���o���d���i���n���g���.��� ���T���h���e���r���e���f���o���r���e��� ���t���h���i���s��� ���r���o���u���t���i���n���e��� ���m���a���y��� ���s���i���g���n���a���l��� ���a���n��� ���e���r���r���o���r��� ���i���f��� ���t���h���e��� ���d���e���c���o���d���e���d��� ���b���y���t���e���s��� ���a���r���e��� ���n���o���t��� ���v���a���l���i���d��� ���f���o���r��� ���t���h���e��� ���g���i���v���e���n��� ���e���n���c���o���d���i���n���g���.��� ���P���a���s���s��� ��� ��#���f��� �� ���f���o���r��� ���E���N���C���O���D���I���N���G��� ���i���f��� ���y���o���u��� ���w���a���n���t��� ���d���e���c���o���d���e���d��� ���b���y���t���e���s��� ���a���s��� ���a��� ���b���y���t���e���v���e���c���t���o���r��� ���d���i���r���e���c���t���l���y���.��� ��� ��� ��s���e���t���-���p���o���r���t���-���e���n���c���o���d���i���n���g���!��� ��,��� ���f���o���r��� ���m���o���r���e��� ���i���n���f���o���r���m���a���t���i���o���n��� ���o���n��� ���c���h���a���r���a���c���t���e���r��� ���e���n���c���o���d���i���n���g���s���.��� ��� ���I���f��� ���D���E���C���O���D���E���-���P���L���U���S���-���T���O���-���S���P���A���C���E���?��� ���i���s��� ���t���r���u���e���,��� ���w���h���i���c���h��� ���i���s��� ���t���h���e��� ���d���e���f���a���u���l���t���,��� ���a���l���s���o��� ���r���e���p���l���a���c���e��� ���i���n���s���t���a���n���c���e���s��� ���o���f��� ���t���h���e��� ���p���l���u���s��� ���c���h���a���r���a���c���t���e���r��� ���(���+���)��� ���w���i���t���h��� ���a��� ���s���p���a���c���e��� ���c���h���a���r���a���c���t���e���r���.��� ��� ���T���h���i���s��� ���i���s��� ���n���e���e���d���e���d��� ���w���h���e���n��� ���p���a���r���s���i���n���g��� ���a���p���p���l���i���c���a���t���i���o���n���/���x���-���w���w���w���-���f���o���r���m���-���u���r���l���e���n���c���o���d���e���d��� ���d���a���t���a���.��� ��� ���R���e���t���u���r���n���s��� ���a��� ���s���t���r���i���n���g��� ���o���f��� ���t���h���e��� ���d���e���c���o���d���e���d��� ���c���h���a���r���a���c���t���e���r���s���,��� ���o���r��� ���a��� ���b���y���t���e���v���e���c���t���o���r��� ���i���f��� ���E���N���C���O���D���I���N���G��� ���w���a���s��� ��� ��#���f��� ��.����C/R4i5R4i5R4i5R4iii5R4ii4i55RW�����h���}���]4L��5C���u�������g��ch  ��g��filenamef�� web/uri.scm      �  ��g��nameg��needs-escaped?�C���h�����]!4L�5$���L644�5L�545"��p$��e4%L>��"��G�� $��40L>��"��G��"���444 55L>��"��G��"C "�����������g��ch  ��g��bv % ��g��len  . ��g��i  4 ��g��byte  B ���g��filenamef�� web/uri.scm               * %   %   (   .   4   9   =   B  $ B   E   ]  a   b   z   }  # �  2 �  # �   �   �   �  �  � ���C������h���[���]L�LO�L�6�����S�������g��port  ��g��filenamef�� web/uri.scm     �   ���C��hP���e��-�/���0���3�#��#��4�O�5$���O�6�C�����]������g��str  K�g��encoding  K�g��unescaped-chars   K��g��filenamef�� web/uri.scm {  { ) (   9   H  �  K g��encodingS g��unescaped-charsS ���g��nameg�� uri-encodeg�� documentation��k�dP���e���r���c���e���n���t���-���e���n���c���o���d���e��� ���a���n���y��� ���c���h���a���r���a���c���t���e���r��� ���n���o���t��� ���i���n��� ���t���h���e��� ���c���h���a���r���a���c���t���e���r��� ���s���e���t���,��� ���U���N���E���S���C���A���P���E���D���-���C���H���A���R���S���.��� ��� ���T���h���e��� ���d���e���f���a���u���l���t��� ���c���h���a���r���a���c���t���e���r��� ���s���e���t��� ���i���n���c���l���u���d���e���s��� ���a���l���p���h���a���n���u���m���e���r���i���c���s��� ���f���r���o���m��� ���A���S���C���I���I���,��� ���a���s��� ���w���e���l���l��� ���a���s��� ���t���h���e��� ���s���p���e���c���i���a���l��� ���c���h���a���r���a���c���t���e���r���s��� ��� ��-��� ��,��� ��� ��.��� ��,��� ��� ��_��� ��,��� ���a���n���d��� ��� ��~��� ��.��� ��� ���A���n���y��� ���o���t���h���e���r��� ���c���h���a���r���a���c���t���e���r��� ���w���i���l���l��� ���b���e��� ���p���e���r���c���e���n���t���-���e���n���c���o���d���e���d���,��� ���b���y��� ���w���r���i���t���i���n���g��� ���o���u���t��� ���t���h���e��� ���c���h���a���r���a���c���t���e���r��� ���t���o��� ���a��� ���b���y���t���e���v���e���c���t���o���r��� ���w���i���t���h���i���n��� ���t���h���e��� ���g���i���v���e���n��� ���E���N���C���O���D���I���N���G���,��� ���t���h���e���n��� ���e���n���c���o���d���i���n���g��� ���e���a���c���h��� ���b���y���t���e��� ���a���s��� ��� ��%���H���H��� ��,��� ���w���h���e���r���e��� ���H���H��� ���i���s��� ���t���h���e��� ���u���p���p���e���r���c���a���s���e��� ���h���e���x���a���d���e���c���i���m���a���l��� ���r���e���p���r���e���s���e���n���t���a���t���i���o���n��� ���o���f��� ���t���h���e��� ���b���y���t���e���.����C0R,�����h���a���]4�5C�����Y�������g��x  ��g��filenamef�� web/uri.scm      �  ���C /���h���X���]�6�����P�������g��s  ��g��filenamef�� web/uri.scm    �  ���C��h���e��]44�/556]������g��path  ��g��filenamef�� web/uri.scm          �   ��g��nameg��split-and-decode-uri-pathg�� documentationk�S���p���l���i���t��� ���P���A���T���H��� ���i���n���t���o��� ���i���t���s��� ���c���o���m���p���o���n���e���n���t���s���,��� ���a���n���d��� ���d���e���c���o���d���e��� ���e���a���c���h��� ���c���o���m���p���o���n���e���n���t���,��� ���r���e���m���o���v���i���n���g��� ���e���m���p���t���y��� ���c���o���m���p���o���n���e���n���t���s���.��� ��� ���F���o���r��� ���e���x���a���m���p���l���e���,��� ��� ��"���/���f���o���o���/���b���a���r���%���2���0���b���a���z���/���"��� �� ���d���e���c���o���d���e���s��� ���t���o��� ���t���h���e��� ���t���w���o���-���e���l���e���m���e���n���t��� ���l���i���s���t���,��� ��� ��(���"���f���o���o���"��� ���"���b���a���r��� ���b���a���z���"���)��� ��.����C1R 0�h���I��]4�56�������A������g��parts  ��g��filenamef�� web/uri.scm       &   �   ��g��nameg��encode-and-join-uri-pathg�� documentation�k�U���R���I���-���e���n���c���o���d���e��� ���e���a���c���h��� ���e���l���e���m���e���n���t��� ���o���f��� ���P���A���R���T���S���,��� ���w���h���i���c���h��� ���s���h���o���u���l���d��� ���b���e��� ���a��� ���l���i���s���t��� ���o���f��� ���s���t���r���i���n���g���s���,��� ���a���n���d��� ���j���o���i���n��� ���t���h���e��� ���p���a���r���t���s��� ���t���o���g���e���t���h���e���r��� ���w���i���t���h��� ��� ��/��� �� ���a���s��� ���a��� ���d���e���l���i���m���i���t���e���r���.��� ��� ���F���o���r��� ���e���x���a���m���p���l���e���,��� ���t���h���e��� ���l���i���s���t��� ��� ��(���"���s���c���r���a���m���b���l���e���d��� ���e���g���g���s���"��� ���"���b���i���s���c���u���i���t���s���&���g���r���a���v���y���"���)��� �� ���e���n���c���o���d���e���s��� ���a���s��� ��� ��"���s���c���r���a���m���b���l���e���d���%���2���0���e���g���g���s���/���b���i���s���c���u���i���t���s���%���2���6���g���r���a���v���y���"��� ��.����C2RC��������g��m  ,�g��rtd I q��g��filenamef�� web/uri.scm   B , +5 7 + : , = 0i @ 6 R 6 a  6 a  6 a  6 ` 6 c  6 c  6 c  6 b 6 e  6 e  6 e  6 d 6 g  6 g  6 g  6 f : i : y  : x : {  : z : }  : | :   : ~ : �  : �  : �  : �  : �  : � =] � =` �  =d � =g �  =k � =n �  =r � =u �  =y � =| �  = � = �  = � = �  = � = �  = � B% � Dx � Dy �  D � E � FW � FX � F_ �  Ff � Fo � Fv �  F~ � L- � MZ � N  PV  Q  SN  SO 0  SW 0  SY 0  S] / h 2 h h  h i  h h  h g h m  h m  h m  h l h o  h o  h o  h n h q  h p h u  h v  i v $ i v  i u  i t th { y�  }|  �f  }~ ���C6����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/web/request.go���������������������������������������������������������������������������0000644�����������������00000147053�15146341264�0011065 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�4�h9W������]� g��guile � g��define-module* � � g��web g��request � g��filenameS f��web/request.scm g��importsS g��rnrs g�� bytevectors   � � g��ice-9 g�� binary-ports � � g��rdelim � � g��srfi g��srfi-9 � � g��uri � � g��http � � ! � "g��exportsS #g��request? $g��request-method %g�� request-uri &g��request-version 'g��request-headers (g�� request-meta )g�� request-port *g�� read-request +g�� build-request ,g�� write-request -g��read-request-body .g��write-request-body /g��request-cache-control 0g��request-connection 1g�� request-date 2g��request-pragma 3g��request-trailer 4g��request-transfer-encoding 5g��request-upgrade 6g�� request-via 7g��request-warning 8g�� request-allow 9g��request-content-encoding :g��request-content-language ;g��request-content-length <g��request-content-location =g��request-content-md5 >g��request-content-range ?g��request-content-type @g��request-expires Ag��request-last-modified Bg��request-accept Cg��request-accept-charset Dg��request-accept-encoding Eg��request-accept-language Fg��request-authorization Gg��request-expect Hg�� request-from Ig�� request-host Jg��request-if-match Kg��request-if-modified-since Lg��request-if-none-match Mg��request-if-range Ng��request-if-unmodified-since Og��request-max-forwards Pg��request-proxy-authorization Qg�� request-range Rg��request-referer Sg�� request-te Tg��request-user-agent Ug��request-absolute-uri V#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTU�3 Wg��set-current-module XW� YW� Zg�� <request> [g��%make-request-procedure \g��make-syntax-transformer ]\� ^\� _g�� make-request `g��macro ag�� $sc-dispatch ba� ca� dg��_ eg��any fdeeeeee� gg�� syntax-object hg��lambda ig��m-45c8615977-9 jg��top kij� lg��ribcage mg��t-45c8615977-3 ng��t-45c8615977-4 og��t-45c8615977-5 pg��t-45c8615977-6 qg��t-45c8615977-7 rg��t-45c8615977-8 smnopqr� tkkkkkk� uf��l-45c8615977-e vf��l-45c8615977-f wf��l-45c8615977-10 xf��l-45c8615977-11 yf��l-45c8615977-12 zf��l-45c8615977-13 {uvwxyz� |lst{� }l� ~g��x ~� �k� �f��l-45c8615977-b �� �l� �g��shift �g�� proc-name �g��args �� �j� �� �f��l-1e8ba8b5a-2ba �f��l-1e8ba8b5a-2bb �� �l� �g��key �g��value �g��name �g��formals �g��body �� �� �f��l-1e8ba8b5a-2ad �f��l-1e8ba8b5a-2ae �f��l-1e8ba8b5a-2af �f��l-1e8ba8b5a-2b0 �f��l-1e8ba8b5a-2b1 �� �l� �g��make-procedure-name �� �� �f��l-1e8ba8b5a-29d �� �l� �� �f��l-1e8ba8b5a-29c �� �l� �k|}}}}}�  �g��hygiene �� �gh� �g��method �|}� �� �g� �g� �g��version �g� �g��headers �g� �g��meta �g� �g��port �g� �� �g�� make-struct �g��m-45c8615977-1 �j� �g��t-1e8ba8b5a-38d �g��t-1e8ba8b5a-38c �g��t-1e8ba8b5a-38b �� �g��m-1e8ba8b5a-38e �j� �� �f��l-1e8ba8b5a-392 �f��l-1e8ba8b5a-393 �f��l-1e8ba8b5a-394 �� �l� �g�� ctor-args �� �f��l-1e8ba8b5a-37a �� �l� �g��ctor �g��field �� �f��l-1e8ba8b5a-376 �f��l-1e8ba8b5a-377 �� �l� �g��form �g�� type-name �g��constructor-spec �g�� field-names �� �� �f��l-1e8ba8b5a-36b �f��l-1e8ba8b5a-36c �f��l-1e8ba8b5a-36d �f��l-1e8ba8b5a-36e �� �l� �g�� record-layout �g��functional-setters �g��setters �g��copier �g��getters �g�� constructor �g��getter-identifiers �g��field-identifiers �� �� �f��l-1e8ba8b5a-343 �f��l-1e8ba8b5a-341 �f��l-1e8ba8b5a-33f �f��l-1e8ba8b5a-33d �f��l-1e8ba8b5a-33b �f��l-1e8ba8b5a-339 �f��l-1e8ba8b5a-337 �f��l-1e8ba8b5a-335 �� �l� �f��l-1e8ba8b5a-334 �� �l� �|}}}}}}� �g� �gZ� �g � ��  �� �g��each-any �d �g��syntax-violation �� �� f��Wrong number of arguments g�� identifier? � � }� g[� � �  f��-source expression failed to match any pattern  g��record-type-vtable   �   �  g�� pwpwpwpwpwpw g��default-record-printer � � � g��set-struct-vtable-name! � � g��vtable-offset-user � � g��%request?-procedure de� g��m-45c8615977-20 j� g��t-45c8615977-1f � � f��l-45c8615977-25  � !l � "f��l-45c8615977-22 #"� $l#� %!}$}}}}�  &gh%� 'g��obj (g��t-1e8ba8b5a-47e )g��t-1e8ba8b5a-478 *g��t-1e8ba8b5a-479 +g��t-1e8ba8b5a-47a ,g��t-1e8ba8b5a-47d -g��t-1e8ba8b5a-47c .g��t-1e8ba8b5a-47b /()*+,-.� 0g��m-1e8ba8b5a-47f 10j� 21111111� 3f��l-1e8ba8b5a-483 4f��l-1e8ba8b5a-484 5f��l-1e8ba8b5a-485 6f��l-1e8ba8b5a-486 7f��l-1e8ba8b5a-487 8f��l-1e8ba8b5a-488 9f��l-1e8ba8b5a-489 :3456789� ;l/2:� <g�� copier-id =<� >f��l-1e8ba8b5a-476 ?>� @l=?� Ag�� ctor-name BA� Cf��l-1e8ba8b5a-46e DC� ElBD� F� Gf��l-1e8ba8b5a-46c HG� IlFH� Jg��layout KJ� Lf��l-1e8ba8b5a-46a ML� NlKM� Og�� immutable? PO� Qf��l-1e8ba8b5a-468 RQ� SlPR� Tg�� field-count UT� Vf��l-1e8ba8b5a-466 WV� XlUW� Yg�� getter-ids ZY� [f��l-1e8ba8b5a-463 \[� ]lZ\� ^g�� field-ids _^� `f��l-1e8ba8b5a-460 a`� bl_a� cg��predicate-name dg�� field-spec eOcd� f� gf��l-1e8ba8b5a-453 hf��l-1e8ba8b5a-454 if��l-1e8ba8b5a-455 jf��l-1e8ba8b5a-456 kf��l-1e8ba8b5a-457 lf��l-1e8ba8b5a-458 mghijkl� nlefm� o!}$};}}}}@}E}I}N}S}X}]}bn� pg'o� qp� rg��and sgro� tg��struct? ugto� vup� wg��eq? xgwo� yg�� struct-vtable zgyo� {zp� |!}$� }gZ|� ~x{}� sv~� &q� }$� g� g��throw-bad-struct � � g��%request-method-procedure g��free-id g�� %%on-error g��m-45c8615977-2c j� � f��l-45c8615977-2e � l� }}}}}�  g� � e� g��%%type g��t-1e8ba8b5a-3a5 g��t-1e8ba8b5a-3a6 g��t-1e8ba8b5a-3a7 g��t-1e8ba8b5a-3a8 g��t-1e8ba8b5a-3a9 g��t-1e8ba8b5a-3aa g��t-1e8ba8b5a-3ab � g��m-1e8ba8b5a-3ac j� � f��l-1e8ba8b5a-3b0 f��l-1e8ba8b5a-3b1 f��l-1e8ba8b5a-3b2 f��l-1e8ba8b5a-3b3 f��l-1e8ba8b5a-3b4 f��l-1e8ba8b5a-3b5 f��l-1e8ba8b5a-3b6 � l� g��getter g��index � f��l-1e8ba8b5a-3a3 f��l-1e8ba8b5a-3a4 � l� Y<� � f��l-1e8ba8b5a-39e f��l-1e8ba8b5a-39f f��l-1e8ba8b5a-3a0 � l� }}}}}}� g� � de� g��ck g��err g��s � � f��l-45c8615977-31 f��l-45c8615977-32 � l� }}}}}�  g� g��quote g� }� gZ� � � g��%%index g� � de� f��l-45c8615977-36 f��l-45c8615977-37 � l� }}}}}�  g� g� }� g � � � g��%%copier g� � de� f��l-45c8615977-3b f��l-45c8615977-3c � l� }}}}}�  g� g� g��%%<request>-set-fields }� g� � � g��t-45c8615977-2b � f��l-45c8615977-40 � l� }}}}}�  gh� }}}}}}� g� � g��if g� gw� gy� � }� gZ� � g�� struct-ref g� }� g � �� g� g� g$� � � �� � }�  g�  g��%request-uri-procedure  g��m-45c8615977-47   j�   � f��l-45c8615977-49 � l �  }}}}}�  g� � e� }}}}}}� g� � de�   � f��l-45c8615977-4c f��l-45c8615977-4d � l�  }}}}}�  g�  g� !}� "gZ!� # "� $#� %g� &%� 'd&e� (f��l-45c8615977-51 )f��l-45c8615977-52 *()� +l*� , +}}}}}�  -g,� .g,� /+}� 0g /� 1.0� 21� 3g� 43� 5d4e� 6f��l-45c8615977-56 7f��l-45c8615977-57 867� 9l8� : 9}}}}}�  ;g:� <g:� =9}� >g=� ?<>� @?� Ag��t-45c8615977-46 BA� Cf��l-45c8615977-5b DC� ElB D� F E}}}}}�  GghF� HE}}}}}}� IgH� JI� KgH� LgwH� MgyH� NMI� OE}� PgZO� QLNP� RgH� SE}� Tg S� URIT� VgH� WgH� Xg%O� YWX� ZVIY� [KQUZ� \GJ[� ]}� ^g ]� _g��%request-version-procedure `g��m-45c8615977-62 a`j� ba� cf��l-45c8615977-64 dc� elbd� fa}e}}}}�  ggf� hg� ihe� j}e}}}}}� kgj� lk� mdile� naa� of��l-45c8615977-67 pf��l-45c8615977-68 qop� rlnq� sar}e}}}}�  tgs� ugs� vr}e� wgZv� xuw� yx� zgj� {z� |di{e� }f��l-45c8615977-6c ~f��l-45c8615977-6d }~� ln� a}e}}}}�  g� g� }e� g � � � gj� � die� f��l-45c8615977-71 f��l-45c8615977-72 � ln� a}e}}}}�  g� g� }e� g� � � g��t-45c8615977-61 � f��l-45c8615977-76 � lb� a}e}}}}�  gh� }e}}}}}� g� � g� gw� gy� � }e� gZ� � g� }e� g � � g� g� g&� � � � � }e� g_� g��%request-headers-procedure g��m-45c8615977-7d j� � f��l-45c8615977-7f � l� }}}}}�  g� � e� }}}}}}� g� � de� � f��l-45c8615977-82 f��l-45c8615977-83 � l� }}}}}�  g� g� }� gZ� � � g� � de� f��l-45c8615977-87 f��l-45c8615977-88 � l� }}}}}�  g� g� }� g � � � g� � de� f��l-45c8615977-8c f��l-45c8615977-8d � l� }}}}}�  g� g� }� g� � � g��t-45c8615977-7c � f��l-45c8615977-91 � l� }}}}}�  gh� }}}}}}� g� � g� gw� gy� � }� gZ� � g� }� g � � �g� g� g'� � �� � � }� g�  g��%request-meta-procedure  g��m-45c8615977-98   j�   �  f��l-45c8615977-9a  � l �  }}}}}�  g� � e� }}}}}}� g� � de�   � f��l-45c8615977-9d f��l-45c8615977-9e � l�  }}}}}�  g� g�  }� !gZ � "!� #"� $g� %$� &d%e� 'f��l-45c8615977-a2 (f��l-45c8615977-a3 )'(� *l)� + *}}}}}�  ,g+� -g+� .*}� /g .� 0-/� 10� 2g� 32� 4d3e� 5f��l-45c8615977-a7 6f��l-45c8615977-a8 756� 8l7� 9 8}}}}}�  :g9� ;g9� <8}� =g<� >;=� ?>� @g��t-45c8615977-97 A@� Bf��l-45c8615977-ac CB� DlA C� E D}}}}}�  FghE� GD}}}}}}� HgG� IH� JgG� KgwG� LgyG� MLH� ND}� OgZN� PKMO� QgG� RD}� Sg R� TQHS� UgG� VgG� Wg(N� XVW� YUHX� ZJPTY� [FIZ� \}� ]g \� ^g��%request-port-procedure _g��m-45c8615977-b3 `_j� a`� bf��l-45c8615977-b5 cb� dlac� e`}d}}}}�  fge� gf� hge� i}d}}}}}� jgi� kj� ldhke� m``� nf��l-45c8615977-b8 of��l-45c8615977-b9 pno� qlmp� r`q}d}}}}�  sgr� tgr� uq}d� vgZu� wtv� xw� ygi� zy� {dhze� |f��l-45c8615977-bd }f��l-45c8615977-be ~|}� lm~� `}d}}}}�  g� g� }d� g � � � gi� � dhe� f��l-45c8615977-c2 f��l-45c8615977-c3 � lm� `}d}}}}�  g� g� }d� g� � � g��t-45c8615977-b2 � f��l-45c8615977-c7 � la� `}d}}}}�  gh� }d}}}}}� g� � g� gw� gy� � }d� gZ� � g� }d� g � � g� g� g)� � � � � }d� g^� g��each ee� � e e e g�� %%set-fields g��dummy g��check? g��expr � g��m-45c8615977-ce j� � f��l-45c8615977-d3 f��l-45c8615977-d4 f��l-45c8615977-d5 f��l-45c8615977-d6 f��l-45c8615977-d7 � l� � f��l-45c8615977-d0 � l� g��t-1e8ba8b5a-3c4 g��t-1e8ba8b5a-3c6 g��t-1e8ba8b5a-3c5 � g��m-1e8ba8b5a-3c7 j� � f��l-1e8ba8b5a-3cb f��l-1e8ba8b5a-3cc f��l-1e8ba8b5a-3cd � l� f��l-1e8ba8b5a-3c1 f��l-1e8ba8b5a-3c2 f��l-1e8ba8b5a-3c3 � l� }}}}}�  g� }� gZ� g$� g%� g&� g'� g(� g)� � g��map � � g��list g��throw g�� bad-request g��display f�� Bad request:  g��apply g��format g��newline g��bad-request-printer g��set-exception-printer! g��number? g��exact? g��integer? g��non-negative-integer? g�� valid-header? g��validate-headers f��Bad value for header ~a: ~s f��Header not a pair: ~a f��Headers not a list: ~a g��methodS   �g��versionS �  g��headersS   g��portS   g��metaS   g��validate-headers?S      �  g��GET    g��assq-ref g��host f��Bad version: ~a f�� Bad uri: ~a g��<uri> � � g��POST g��PUT f��Missing port for message ~a f��;HTTP/1.1 request without Host header and no host in URI: ~a f��Bad metadata alist g��uri-host g��uri-port g��set-port-encoding! f�� ISO-8859-1 g��read-request-line g�� read-headers g��write-request-line  g�� write-headers !f��  "g��get-bytevector-n #g��bytevector-length $f��.EOF while reading request body: ~a bytes of ~a %g��put-bytevector &g��define-request-accessor '� (f��l-45c8615977-1b1 )(� *l')� +f��l-45c8615977-1ae ,+� -l,� .*}-� /g&.� 0g.� 10� 2dee� 3g�� datum->syntax 4g�� symbol-append 5g��request- 6g�� syntax->datum 7g��define* 8g��t-45c8615977-1bc 98� :g��m-45c8615977-1bd ;:j� <;� =f��l-45c8615977-1c0 >=� ?l9<>� @g��def A@� Bf��l-45c8615977-1b8 Cf��l-45c8615977-1b9 DBC� ElAD� F}?E}-� Gg7F� HgF� Ig��optionalS JgIF� Kg��default LgKF� Mg��cond NgMF� Og��assq PgOF� QgF� Rg'F� SRH� TS� Ug��=> VgUF� Wg��cdr XgWF� YVX� Zg��else [gZF� \[L� ]\� ^g�� cache-control _g�� connection `g��date ag��pragma bg��trailer cg��transfer-encoding dg��upgrade eg��via fg��warning gg��allow hg��content-encoding ig��content-language jg��content-length kg��content-location lg�� content-md5 mg�� content-range ng�� content-type og��expires pg�� last-modified qg��accept rg��accept-charset sg��accept-encoding tg��accept-language ug�� authorization vg��expect wg��from xg��if-match yg��if-modified-since zg�� if-none-match {g��if-range |g��if-unmodified-since }g�� max-forwards ~g��proxy-authorization g��range g��referer g��te g�� user-agent f��4URI not absolute, no Host header, and no default: ~s g�� build-uri g�� uri-scheme g��hostS g��pathS g��uri-path g��queryS g�� uri-query g��fragmentS g�� uri-fragmentC�5��ho��9��]4   !"V5�4Y�>��"��G���Z������h������]��C�����������g��method  �g��uri  �g��version   �g��headers   �g��meta   �g��port   ��g��filenamef��web/request.scm x �   ��g��nameg��%make-request-procedure�C[R4^_`cf��h������]��C�����������g��t-45c8615977-3  �g��t-45c8615977-4  �g��t-45c8615977-5   �g��t-45c8615977-6   �g��t-45c8615977-7   �g��t-45c8615977-8   ��   ���C�_��������h���R���]L�6����J�������g��a  ��g��filenamef��web/request.scm  x �  ���Cd�����h���B���]�L�6:�������g��filenamef��web/request.scm  x �   ���C�������h������]�C����������   ���C � �����hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��{�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��web/request.scm x �  n ���C5_R  Z��4�Z>��"��G��� [i��ZRZ����h���s���]�$���CC������k�������g��obj  ��g��filenamef��web/request.scm x �   ��g��nameg��%request?-procedure�CR4^#`c�����h���7���]��C������/�������g��t-45c8615977-1f  ��  ���C�#���h���R���]L�6����J�������g��a  ��g��filenamef��web/request.scm  x �  ���Cd�����h���B���]�L�6:�������g��filenamef��web/request.scm  x �   ���C�������h������]�C����������   ���C � �����hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��{�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��web/request.scm x �  n ���C5#RZ$�����h���w���]�&��� C�6o�������g��s  ��g��filenamef��web/request.scm x �   ��g��nameg��%request-method-procedure�CR4^$`c������h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C����h���7���]��C������/�������g��t-45c8615977-2b  ��  ���C�$���h���R���]L�6����J�������g��a  ��g��filenamef��web/request.scm  x �  ���Cd�����h���B���]�L�6:�������g��filenamef��web/request.scm  x �   ���C �������h������]�C����������   ���C ������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��web/request.scm x �  � ���C5$RZ%�h���t���]�&��� C�6l�������g��s  ��g��filenamef��web/request.scm x �   ��g��nameg��%request-uri-procedure�C R4^%`c$�h���:���]C�����2�������g��err  �g��s  ��  ���C'-2�h���:���]C�����2�������g��err  �g��s  ��  ���C5;@�h���:���]C�����2�������g��err  �g��s  ��  ���C\����h���7���]��C������/�������g��t-45c8615977-46  ��  ���C�%���h���R���]L�6����J�������g��a  ��g��filenamef��web/request.scm  x �  ���Cd�����h���B���]�L�6:�������g��filenamef��web/request.scm  x �   ���C^�������h������]�C����������   ���C ������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��web/request.scm x �  � ���C5%RZ&�h ���x���]�&��� C�6�������p�������g��s  ��g��filenamef��web/request.scm x �   ��g��nameg��%request-version-procedure�C_R4^&`cmty�����h���:���]C�����2�������g��err  �g��s  ��  ���C|�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C����h���7���]��C������/�������g��t-45c8615977-61  ��  ���C�&���h���R���]L�6����J�������g��a  ��g��filenamef��web/request.scm  x �  ���Cd�����h���B���]�L�6:�������g��filenamef��web/request.scm  x �   ���C�������h������]�C����������   ���C ������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��web/request.scm x �  � ���C5&RZ'�h ���x���]�&��� C�6�������p�������g��s  ��g��filenamef��web/request.scm x �   ��g��nameg��%request-headers-procedure�CR4^'`c�����h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C����h���7���]��C������/�������g��t-45c8615977-7c  ��  ���C�'���h���R���]L�6����J�������g��a  ��g��filenamef��web/request.scm  x �  ���Cd�����h���B���]�L�6:�������g��filenamef��web/request.scm  x �   ���C�������h������]�C����������   ���C ������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��web/request.scm x �  � ���C5'RZ(�h ���u���]�&��� C�6�������m�������g��s  ��g��filenamef��web/request.scm x �   ��g��nameg��%request-meta-procedure�C R4^(`c#��������h���:���]C�����2�������g��err  �g��s  ��  ���C&,1�h���:���]C�����2�������g��err  �g��s  ��  ���C4:?�h���:���]C�����2�������g��err  �g��s  ��  ���C[����h���7���]��C������/�������g��t-45c8615977-97  ��  ���C�(���h���R���]L�6����J�������g��a  ��g��filenamef��web/request.scm  x �  ���Cd�����h���B���]�L�6:�������g��filenamef��web/request.scm  x �   ���C]�������h������]�C����������   ���C ������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��web/request.scm x �  � ���C5(RZ)�h ���u���]�&��� C�6�������m�������g��s  ��g��filenamef��web/request.scm x �   ��g��nameg��%request-port-procedure�C^R4^)`clsx��������h���:���]C�����2�������g��err  �g��s  ��  ���C{�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C����h���7���]��C������/�������g��t-45c8615977-b2  ��  ���C�)���h���R���]L�6����J�������g��a  ��g��filenamef��web/request.scm  x �  ���Cd�����h���B���]�L�6:�������g��filenamef��web/request.scm  x �   ���C�������h������]�C����������   ���C ������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��web/request.scm x �  � ���C5)R4^`c���h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���C �h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��web/request.scm x �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5R���h������-�1�3��6������������g��message �g��args ��g��filenamef��web/request.scm � �  � �  ��g��nameg�� bad-request�CR���hH������)���53�4L>��"��G��4L�>��"��G��L6-��1��3�L�6��������g��msg ;�g��args ;�g��_ D H��g��filenamef��web/request.scm � �  �   �  � ; � D � H � � ; � D H ���C�������h������]�O�@��������g��port  �g��key  �g��args   �g��default-printer   ��g��filenamef��web/request.scm �  � �   ��g��nameg��bad-request-printer�CR4ii>��"��G��������h0������]4�5$��� $��4�5$���6CCC�����������g��n  ,��g��filenamef��web/request.scm �  �  �   �   �   �  �  & � '�  , ��g��nameg��non-negative-integer?�CR���hX���U��]�$��<�$��(45$���666�(��C�6���M������g��headers  U�g��h E�g��k   =�g��v   =��g��filenamef��web/request.scm �  �  �  �  �   �  �   �   � !  � �  , �  1 � $ 3 �  7 �  = �  A �  E � K �  Q �  U � �  U ��g��nameg��validate-headers�CR    Z��������h���[��-�/���0���3� #��#��#��#��#��#��$��45"��"��4>��"�)G��"�"$�45$�45$��"��4 �>��"��G��"���$��� &��$��"�� &��"�� $��4 >��"��G��"��v$��["�� $��4>��"��>G��"��7"��3$��)� $��""��4�>��"��G��"��""��4>��"��G��"��"!"��""��""��""��"$��A� &�� � "�� 4�5� &�� � "�� 4�5"����CS������g��uri  ��g��method  ��g��version   ��g��headers   ��g��port   ��g��meta   ��g��validate-headers?   ��g�� needs-host?  c ��g��headers   ��� g��filenamef��web/request.scm �  � * % � 9 . � ! @ � 1 O � * P �  T �  U �  [ � 1 ] �  ^ �  c �  j �  n �  u �  � �  � �  � �  � �  � � ' � �  � � � �  � � ' � �  � � � �  � �  � �  � �  � � � �  � � � �  � �  � �  � �  � �  � �   �  �   �   � 0 �  ; �  ? �  H �  L �  S �  h �  l �  s �   �   �   � )  � 8  � #  �   � �=  � g��methodS g��versionS g��headersS g��portS g��metaS g��validate-headers?S ���g��nameg�� build-requestg�� documentationf��}Construct an HTTP request object. If VALIDATE-HEADERS? is true, the headers are each run through their respective validators.�C+RZ��������hX�����-�.�,�3�#��4�>��"��G��4�>�� G�4�5��C������g��port X�g��meta X�g��method  4 X�g��uri  4 X�g��version  4 X�g��headers  D X��g��filenamef��web/request.scm �  � -  �   �  ! �  * �  7 �  > � ' D � � X ��g��nameg�� read-requestg�� documentationf�Read an HTTP request from PORT, optionally attaching the given metadata, META. As a side effect, sets the encoding on PORT to ISO-8859-1 (latin-1), so that reading one character reads one byte. See the discussion of character sets in "HTTP Requests" in the manual, for more information. Note that the body is not part of the request. Once you have read a request, you may read the body separately, and likewise for writing requests.�C*RZ$%& '!)(� ��hp����]*4�&��� "�� 4�5�&��� "�� 4�5�&�� � "�� 4�5>��"��G��4�&�� � "�� 4�5>��"��G��4  >��"��G���&�� � "�� 4� 5&���C�&��� "�� 4�5�&��� "�� 4�5�&�� � "�� 4�5�&�� � "�� 4�5�&�� � "�� 4� 5�C������� ������g��r  i�g��port  i�g��method  M i�g��uri  M i�g��version  M i�g��headers  M i�g��meta  M i��g��filenamef��web/request.scm �  �   �  " � ) < �  [ �  d �  i �  � �  � �  � � � �  � �  � �  � �  � � ' � � 7  �  5 � ( M � �  i ��g��nameg�� write-requestg�� documentationk�XW���r���i���t���e��� ���t���h���e��� ���g���i���v���e���n��� ���H���T���T���P��� ���r���e���q���u���e���s���t��� ���t���o��� ���P���O���R���T���.��� ��� ���R���e���t���u���r���n��� ���a��� ���n���e���w��� ���r���e���q���u���e���s���t���,��� ���w���h���o���s���e��� ��� ��r���e���q���u���e���s���t���-���p���o���r���t��� �� ���w���i���l���l��� ���c���o���n���t���i���n���u���e��� ���w���r���i���t���i���n���g��� ���o���n��� ���P���O���R���T���,��� ���p���e���r���h���a���p���s��� ���u���s���i���n���g��� ���s���o���m���e��� ���t���r���a���n���s���f���e���r��� ���e���n���c���o���d���i���n���g���.����C,R;"Z)#$� ��hX�����]4�5$��D4�&�� � "�� 4�5545$��C456C�������g��r  W�g��nbytes W�g��bv  3 U��g��filenamef��web/request.scm �  �  �   �   �   � % 3 �  3 � 6 �  ? �  C � J �  K �  U � �  W ��g��nameg��read-request-bodyg�� documentation���k�hR���e���a���d���s��� ���t���h���e��� ���r���e���q���u���e���s���t��� ���b���o���d���y��� ���f���r���o���m��� ���R���,��� ���a���s��� ���a��� ���b���y���t���e���v���e���c���t���o���r���.��� ��� ���R���e���t���u���r���n��� ��� ��#���f��� �� ���i���f��� ���t���h���e���r���e��� ���w���a���s��� ���n���o��� ���r���e���q���u���e���s���t��� ���b���o���d���y���.����C-R%Z)������h(������]�&�� � "�� 4�56������������g��r  #�g��bv  #��g��filenamef��web/request.scm �  �  # � �  # ��g��nameg��write-request-bodyg�� documentationf��HWrite BV, a bytevector, to the port corresponding to the HTTP request R.�C.R4^&`c/1����h���-���]�C�����%�������g��field  ��  ���C2 ���h���i���]�6a�������g��field  �g��def  ��g��filenamef��web/request.scm  � �   ���C3456GHJLNPQTY]�hH������] 4�44�555��   ��  �C����������g��field  E�g��def  E�g��tmp   E��g��filenamef��web/request.scm  �   �  � % � /  �   �   � �  E ���C� ����hP���t���]4�5$��@4�5"�� �6$��4?$��@""l�������g��x  P�g��tmp P�g��tmp  " P��g��filenamef��web/request.scm � �  P ���C5&RO^Z'�����hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm �  � '  � � F ��g��nameg��request-cache-control�C/RO_Z'�����hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm �  � $  � � F ��g��nameg��request-connection�C0RO`Z'��������hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm  � F ��g��nameg�� request-date�C1ROaZ'�������hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm      � F ��g��nameg��request-pragma�C2RObZ'����hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm    !   � F ��g��nameg��request-trailer�C3ROcZ'���hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm    +   � F ��g��nameg��request-transfer-encoding�C4ROdZ'�hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm    !   � F ��g��nameg��request-upgrade�C5ROeZ'���hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm       � F ��g��nameg�� request-via�C6ROfZ'�������hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm    !   � F ��g��nameg��request-warning�C7ROgZ'���hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm       � F ��g��nameg�� request-allow�C8ROhZ'�����hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm    *   � F ��g��nameg��request-content-encoding�C9ROiZ'��hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm    *   � F ��g��nameg��request-content-language�C:ROjZ'��hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm  � F ��g��nameg��request-content-length�C;ROkZ'�����hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm  � F ��g��nameg��request-content-location�C<ROlZ'���hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm  � F ��g��nameg��request-content-md5�C=ROmZ'��������hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm  � F ��g��nameg��request-content-range�C>ROnZ'������hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm  � F ��g��nameg��request-content-type�C?ROoZ'�������hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm  � F ��g��nameg��request-expires�C@ROpZ'����hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm  � F ��g��nameg��request-last-modified�CAROqZ'������hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm      � F ��g��nameg��request-accept�CBROrZ'����hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm    (   � F ��g��nameg��request-accept-charset�CCROsZ'����hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm    )   � F ��g��nameg��request-accept-encoding�CDROtZ'���hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm    )   � F ��g��nameg��request-accept-language�CEROuZ'���hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm  � F ��g��nameg��request-authorization�CFROvZ'������hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm      � F ��g��nameg��request-expect�CGROwZ'����hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm  � F ��g��nameg�� request-from�CHROZ'�������hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm  � F ��g��nameg�� request-host�CIROxZ'�������hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm ! � F ��g��nameg��request-if-match�CJROyZ'���hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm " � F ��g��nameg��request-if-modified-since�CKROzZ'��hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm # � F ��g��nameg��request-if-none-match�CLRO{Z'������hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm $ � F ��g��nameg��request-if-range�CMRO|Z'���hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm % � F ��g��nameg��request-if-unmodified-since�CNRO}Z'��������hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm & � F ��g��nameg��request-max-forwards�CORO~Z'�������hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm ' � F ��g��nameg��request-proxy-authorization�CPROZ'��������hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm ( � F ��g��nameg�� request-range�CQROZ'������hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm ) � F ��g��nameg��request-referer�CRROZ'����hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm *  *   * � F ��g��nameg�� request-te�CSROZ'��������hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��request F�g��default F�g��t  7 F��g��filenamef��web/request.scm + � F ��g��nameg��request-user-agent�CTRZ%I���h��}��-�.�,�3�#��#���&��� "�� 4�5&��  "�� 45$��C4�5$��"��$�� "�� 45 &�� "�� 4 5   &��  "�� 45&��  "�� 45&��  "�� 456 ���u������g��r  �g�� default-host  �g�� default-port   �g��uri  8  �g��t  c ��g��host  �  ��g��filenamef��web/request.scm . ! 1 8 1  = 2  Y 2  ] 5  c 5  w 6  | 7  � 8  � 9  � 8  � 4  � ;  � <  � =  � >  � ?  � @  ; �  ��g��nameg��request-absolute-urig�� documentation���k�A��� ���h���e���l���p���e���r��� ���r���o���u���t���i���n���e��� ���t���o��� ���d���e���t���e���r���m���i���n���e��� ���t���h���e��� ���a���b���s���o���l���u���t���e��� ���U���R���I��� ���o���f��� ���a��� ���r���e���q���u���e���s���t���,��� ���u���s���i���n���g��� ���t���h���e��� ��� ��h���o���s���t��� �� ���h���e���a���d���e���r��� ���a���n���d��� ���t���h���e��� ���d���e���f���a���u���l���t��� ���h���o���s���t��� ���a���n���d��� ���p���o���r���t���.����CURC������1������g��m  ,�g��rtd a ��g��filenamef��web/request.scm   4 x 'i � )r � )s � ){ �  ) � * � ,a � 3 � 6l � < � ?$ � @\ � Dj � E � F  G  H  I  J  K  L  M  O  P-  Q2  R<  S?  TI  UP  VS  WY  Xk  Y  Z  [  \  ]  ^  _  ` ! a " b # c $ d % e & f ' h ( i ) j * k + o . �6  o ���C6��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/web/response.go��������������������������������������������������������������������������0000644�����������������00000146032�15146341264�0011227 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]{�4���hU������]� g��guile � g��define-module* � � g��web g��response � g��filenameS f��web/response.scm g��importsS g��rnrs g�� bytevectors   � � g��ice-9 g�� binary-ports � � g��rdelim � � g��match � � g��srfi g��srfi-9 � � g��http � � ! � "g��exportsS #g�� response? $g��response-version %g�� response-code &g��response-reason-phrase 'g��response-headers (g�� response-port )g�� read-response *g��build-response +g��adapt-response-version ,g��write-response -g��response-must-not-include-body? .g��response-body-port /g��read-response-body 0g��write-response-body 1g��response-cache-control 2g��response-connection 3g�� response-date 4g��response-pragma 5g��response-trailer 6g��response-transfer-encoding 7g��response-upgrade 8g�� response-via 9g��response-warning :g��response-allow ;g��response-content-encoding <g��response-content-language =g��response-content-length >g��response-content-location ?g��response-content-md5 @g��response-content-range Ag��response-content-type Bg��text-content-type? Cg��response-expires Dg��response-last-modified Eg��response-accept-ranges Fg�� response-age Gg�� response-etag Hg��response-location Ig��response-proxy-authenticate Jg��response-retry-after Kg��response-server Lg�� response-vary Mg��response-www-authenticate N#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLM�+ Og��set-current-module PO� QO� Rg�� <response> Sg��%make-response-procedure Tg��make-syntax-transformer UT� VT� Wg�� make-response Xg��macro Yg�� $sc-dispatch ZY� [Y� \g��_ ]g��any ^\]]]]]� _g�� syntax-object `g��lambda ag��m-a15fd730aa5-8 bg��top cab� dg��ribcage eg��t-a15fd730aa5-3 fg��t-a15fd730aa5-4 gg��t-a15fd730aa5-5 hg��t-a15fd730aa5-6 ig��t-a15fd730aa5-7 jefghi� kccccc� lf��l-a15fd730aa5-d mf��l-a15fd730aa5-e nf��l-a15fd730aa5-f of��l-a15fd730aa5-10 pf��l-a15fd730aa5-11 qlmnop� rdjkq� sd� tg��x ut� vc� wf��l-a15fd730aa5-a xw� yduvx� zg��shift {g�� proc-name |g��args }{|� ~b� ~~� �f��l-1e8ba8b5a-2ba �f��l-1e8ba8b5a-2bb �� �d}� �g��key �g��value �g��name �g��formals �g��body �� �~~~~~� �f��l-1e8ba8b5a-2ad �f��l-1e8ba8b5a-2ae �f��l-1e8ba8b5a-2af �f��l-1e8ba8b5a-2b0 �f��l-1e8ba8b5a-2b1 �� �d� �g��make-procedure-name �� �~� �f��l-1e8ba8b5a-29d �� �d� �~� �f��l-1e8ba8b5a-29c �� �du� �crsyzssss�  �g��hygiene �� �_`� �g��version �~rsy� �� �_� �g��code �_� �g�� reason-phrase �_� �g��headers �_� �g��port �_� �� �g�� make-struct �g��m-a15fd730aa5-1 �b� �g��t-1e8ba8b5a-38d �g��t-1e8ba8b5a-38c �g��t-1e8ba8b5a-38b �� �g��m-1e8ba8b5a-38e �b� �� �f��l-1e8ba8b5a-392 �f��l-1e8ba8b5a-393 �f��l-1e8ba8b5a-394 �� �d� �g�� ctor-args �� �f��l-1e8ba8b5a-37a �� �d� �g��ctor �g��field �� �f��l-1e8ba8b5a-376 �f��l-1e8ba8b5a-377 �� �d� �g��form �g�� type-name �g��constructor-spec �g�� field-names �� �~~~~� �f��l-1e8ba8b5a-36b �f��l-1e8ba8b5a-36c �f��l-1e8ba8b5a-36d �f��l-1e8ba8b5a-36e �� �d� �g�� record-layout �g��functional-setters �g��setters �g��copier �g��getters �g�� constructor �g��getter-identifiers �g��field-identifiers �� �~~~~~~~~� �f��l-1e8ba8b5a-343 �f��l-1e8ba8b5a-341 �f��l-1e8ba8b5a-33f �f��l-1e8ba8b5a-33d �f��l-1e8ba8b5a-33b �f��l-1e8ba8b5a-339 �f��l-1e8ba8b5a-337 �f��l-1e8ba8b5a-335 �� �d� �f��l-1e8ba8b5a-334 �� �du� �rsyzsssss� �_� �_R� �_ � �� �� �g��each-any �\ �g��syntax-violation �� �� �f��Wrong number of arguments �g�� identifier? �� �� �~sy� �_S� �� �� �f��-source expression failed to match any pattern �g��record-type-vtable �� � g�� pwpwpwpwpw g��default-record-printer � � � g��set-struct-vtable-name! �  �  g��vtable-offset-user   �   �  g��%response?-procedure \]� g��m-a15fd730aa5-1d b� g��t-a15fd730aa5-1c � � f��l-a15fd730aa5-22 � d� f��l-a15fd730aa5-1f � du� szssss�  _`� g��obj g��t-1e8ba8b5a-47e g��t-1e8ba8b5a-478 g��t-1e8ba8b5a-479  g��t-1e8ba8b5a-47a !g��t-1e8ba8b5a-47d "g��t-1e8ba8b5a-47c #g��t-1e8ba8b5a-47b $ !"#� %g��m-1e8ba8b5a-47f &%b� '&&&&&&&� (f��l-1e8ba8b5a-483 )f��l-1e8ba8b5a-484 *f��l-1e8ba8b5a-485 +f��l-1e8ba8b5a-486 ,f��l-1e8ba8b5a-487 -f��l-1e8ba8b5a-488 .f��l-1e8ba8b5a-489 /()*+,-.� 0d$'/� 1g�� copier-id 21� 3f��l-1e8ba8b5a-476 43� 5d24� 6g�� ctor-name 76� 8f��l-1e8ba8b5a-46e 98� :d79� ;� <f��l-1e8ba8b5a-46c =<� >d;=� ?g��layout @?� Af��l-1e8ba8b5a-46a BA� Cd@B� Dg�� immutable? ED� Ff��l-1e8ba8b5a-468 GF� HdEG� Ig�� field-count JI� Kf��l-1e8ba8b5a-466 LK� MdJL� Ng�� getter-ids ON� Pf��l-1e8ba8b5a-463 QP� RdOQ� Sg�� field-ids TS� Uf��l-1e8ba8b5a-460 VU� WdTV� Xg��predicate-name Yg�� field-spec ZDXY� [~~~~~~� \f��l-1e8ba8b5a-453 ]f��l-1e8ba8b5a-454 ^f��l-1e8ba8b5a-455 _f��l-1e8ba8b5a-456 `f��l-1e8ba8b5a-457 af��l-1e8ba8b5a-458 b\]^_`a� cdZ[b� dszs0ssss5s:s>sCsHsMsRsWc� e_d� fe� gg��and h_gd� ig��struct? j_id� kje� lg��eq? m_ld� ng�� struct-vtable o_nd� poe� q~s� r_Rq� smpr� thks� uft� v~s� w_ v� xg��throw-bad-struct yx� zx� {g��%response-version-procedure |g��free-id }g�� %%on-error ~g��m-a15fd730aa5-29 ~b� � f��l-a15fd730aa5-2b � du� szssss�  _}� |� ]� g��%%type g��t-1e8ba8b5a-3a5 g��t-1e8ba8b5a-3a6 g��t-1e8ba8b5a-3a7 g��t-1e8ba8b5a-3a8 g��t-1e8ba8b5a-3a9 g��t-1e8ba8b5a-3aa g��t-1e8ba8b5a-3ab � g��m-1e8ba8b5a-3ac b� � f��l-1e8ba8b5a-3b0 f��l-1e8ba8b5a-3b1 f��l-1e8ba8b5a-3b2 f��l-1e8ba8b5a-3b3 f��l-1e8ba8b5a-3b4 f��l-1e8ba8b5a-3b5 f��l-1e8ba8b5a-3b6 � d� g��getter g��index � f��l-1e8ba8b5a-3a3 f��l-1e8ba8b5a-3a4 � d� N1� ~~~� f��l-1e8ba8b5a-39e f��l-1e8ba8b5a-39f f��l-1e8ba8b5a-3a0 � d� szsssss� _� |� \]� g��ck g��err g��s � � f��l-a15fd730aa5-2e f��l-a15fd730aa5-2f � d� szssss�  _� g��quote _� ~s� _R� � � g��%%index _� |� \]� f��l-a15fd730aa5-33 f��l-a15fd730aa5-34 � d� szssss�  _� _� s� _ � � � g��%%copier _� |� \]� f��l-a15fd730aa5-38 f��l-a15fd730aa5-39 � d� szssss�  _� _� g��%%<response>-set-fields ~s� _� � � g��t-a15fd730aa5-28 � f��l-a15fd730aa5-3d � d� szssss�  _`� szsssss� _� � g��if _� _l� _n� � ~s� _R� � g�� struct-ref _� s� _ � � _x� _� _$� � � � � ~s� _{� g��%response-code-procedure �g��m-a15fd730aa5-44 �b� � f��l-a15fd730aa5-46 � du� szssss�  _}� |�  ]�  szsssss�  _ �  | �  \  ]� � f��l-a15fd730aa5-49 f��l-a15fd730aa5-4a � d� szssss�  _� _� ~s� _R� � � _ � |� \ ]� f��l-a15fd730aa5-4e f��l-a15fd730aa5-4f �  d� ! szssss�  "_!� #_!� $ s� %_ $� &#%� '&� (_ � )|(� *\ )]� +f��l-a15fd730aa5-53 ,f��l-a15fd730aa5-54 -+,� .d-� /.szssss�  0_/� 1_/� 2~.s� 3_2� 413� 54� 6g��t-a15fd730aa5-43 76� 8f��l-a15fd730aa5-58 98� :d79� ;:szssss�  <_`;� =:szsssss� >_=� ?>� @_=� A_l=� B_n=� CB>� D~:s� E_RD� FACE� G_=� H:s� I_ H� JG>I� K_x=� L_=� M_%D� NLM� OK>N� P@FJO� Q<?P� R~s� S_R� Tg��%response-reason-phrase Ug��"%%response-reason-phrase-procedure Vg��m-a15fd730aa5-5f WVb� XW� Yf��l-a15fd730aa5-61 ZY� [duXZ� \Ws[zssss�  ]_}\� ^|]� _^]� `s[zsssss� a_`� b|a� c\_b]� dWW� ef��l-a15fd730aa5-64 ff��l-a15fd730aa5-65 gef� hddg� iWhs[zssss�  j_i� k_i� l~hs[� m_Rl� nkm� on� p_`� q|p� r\_q]� sf��l-a15fd730aa5-69 tf��l-a15fd730aa5-6a ust� vddu� wWvs[zssss�  x_w� y_w� zvs[� {_ z� |y{� }|� ~_`� |~� \_]� f��l-a15fd730aa5-6e f��l-a15fd730aa5-6f � dd� Ws[zssss�  _� _� ~s[� _� � � g��t-a15fd730aa5-5e � f��l-a15fd730aa5-73 � dX� Ws[zssss�  _`� s[zsssss� _� � _� _l� _n� � ~s[� _R� � _� s[� _ � � _x� _� _T� � � � � ~s[� _U� g��%response-headers-procedure g��m-a15fd730aa5-7a b� � f��l-a15fd730aa5-7c � du� szssss�  _}� |� ]� szsssss� _� |� \]� � f��l-a15fd730aa5-7f f��l-a15fd730aa5-80 � d� szssss�  _� _� ~s� _R� � � _� |� \]� f��l-a15fd730aa5-84 f��l-a15fd730aa5-85 � d� szssss�  _� _� s� _ � � � _� |� \]� f��l-a15fd730aa5-89 f��l-a15fd730aa5-8a � d� szssss�  _� _� ~s� _� � � g��t-a15fd730aa5-79 � f��l-a15fd730aa5-8e � d� szssss�  _`� szsssss� _� � _� _l� _n� � ~s� _R� � _� s� _ � � _x� _� _'� � � � � ~s� _� g��%response-port-procedure �g��m-a15fd730aa5-95 �b� � f��l-a15fd730aa5-97 � du� szssss�  _}� |�  ]�  szsssss�  _ �  | �  \  ]� � f��l-a15fd730aa5-9a f��l-a15fd730aa5-9b � d� szssss�  _� _� ~s� _R� � � _ � |� \ ]� f��l-a15fd730aa5-9f f��l-a15fd730aa5-a0 �  d� ! szssss�  "_!� #_!� $ s� %_ $� &#%� '&� (_ � )|(� *\ )]� +f��l-a15fd730aa5-a4 ,f��l-a15fd730aa5-a5 -+,� .d-� /.szssss�  0_/� 1_/� 2~.s� 3_2� 413� 54� 6g��t-a15fd730aa5-94 76� 8f��l-a15fd730aa5-a9 98� :d79� ;:szssss�  <_`;� =:szsssss� >_=� ?>� @_=� A_l=� B_n=� CB>� D~:s� E_RD� FACE� G_=� H:s� I_ H� JG>I� K_x=� L_=� M_(D� NLM� OK>N� P@FJO� Q<?P� R~s� S_R� Tg��each U]]� VTU� W]V X]W Y]X Zg�� %%set-fields [g��dummy \g��check? ]g��expr ^[\]� _g��m-a15fd730aa5-b0 `_b� a`� bf��l-a15fd730aa5-b5 cf��l-a15fd730aa5-b6 df��l-a15fd730aa5-b7 ef��l-a15fd730aa5-b8 ff��l-a15fd730aa5-b9 gbcdef� hd^ag� i`� jf��l-a15fd730aa5-b2 kj� lduik� mg��t-1e8ba8b5a-3c4 ng��t-1e8ba8b5a-3c6 og��t-1e8ba8b5a-3c5 pmno� qg��m-1e8ba8b5a-3c7 rqb� srrr� tf��l-1e8ba8b5a-3cb uf��l-1e8ba8b5a-3cc vf��l-1e8ba8b5a-3cd wtuv� xdpsw� yf��l-1e8ba8b5a-3c1 zf��l-1e8ba8b5a-3c2 {f��l-1e8ba8b5a-3c3 |yz{� }d|� ~hslzsxsss}�  _Z~� ~hsl� _R� _$� _%� _T� _'� _(� � g��map � � g��list g��throw g�� bad-response g��number? g��exact? g��integer? g��non-negative-integer? g�� valid-header? g��validate-headers f��Bad value for header ~a: ~s f��Header not a pair: ~a f��Headers not a list: ~a g��versionS   g��codeS   g�� reason-phraseS   g��headersS   g��portS   g��validate-headers?S   �   f��Bad version: ~a f�� Bad code: ~a g��string? f��Bad reason phrase f��Continue  d f��Switching Protocols  e f��OK  � f��Created  � f��Accepted  � f��Non-Authoritative Information  � f�� No Content  � f�� Reset Content  � f��Partial Content  � f��Multiple Choices  , f��Moved Permanently  - f��Found  . f�� See Other  / f�� Not Modified  0Ì f�� Use Proxy  1Ō f��Temporary Redirect  3nj f�� Bad Request  Ɍ f�� Unauthorized  ˌ f��Payment Required  ͌ f�� Forbidden  ό f�� Not Found  ь f��Method Not Allowed  ӌ f��Not Acceptable  Ռ f��Proxy Authentication Required  ׌ f��Request Timeout  ٌ f��Conflict  ی f��Gone  ݌ f��Length Required  ߌ f��Precondition Failed  ጤ f��Request Entity Too Large  ㌤ f��Request-URI Too Long  匤 f��Unsupported Media Type  猤 f��Requested Range Not Satisfiable  錤 f��Expectation Failed  댤 f��Internal Server Error  팤 f��Not Implemented   f�� Bad Gateway   f��Service Unavailable   f��Gateway Timeout   f��HTTP Version Not Supported   �( g��*reason-phrases* g��assv-ref f�� (Unknown) g��code->reason-phrase g��symbol->string g��string-prefix? �f��text/ g��string-suffix? f��/xml f��+xml g��set-port-encoding! f�� ISO-8859-1 g��read-response-line g�� read-headers g��write-response-line  g�� write-headers  g��display  f��   g�� close-port  g��make-custom-binary-input-port f��delimited input port g��min g�� eof-object? f��/EOF while reading response body: ~a bytes of ~a g��get-bytevector-n! g��make-delimited-input-port g��decode?S   g�� keep-alive?S   � g��member g��chunked � g��make-chunked-input-port g��memq g��close    g�� keep-alive !g��assq-ref "g��charset #g��and=> $g��get-bytevector-all %g��vu8 ���j��� &g��put-bytevector 'g��define-response-accessor (� )f��l-a15fd730aa5-22a *)� +d(*� ,f��l-a15fd730aa5-227 -,� .du-� /~+s.� 0_'/� 1_/� 21� 3\]]� 4g�� datum->syntax 5g�� symbol-append 6g�� response- 7g�� syntax->datum 8g��define* 9g��t-a15fd730aa5-235 :9� ;g��m-a15fd730aa5-236 <;b� =<� >f��l-a15fd730aa5-239 ?>� @d:=?� Ag��def BA� Cf��l-a15fd730aa5-231 Df��l-a15fd730aa5-232 ECD� FdBE� G~s@Fs.� H_8G� I_G� Jg��optionalS K_JG� Lg��default M_LG� Ng��cond O_NG� Pg��assq Q_PG� R_G� S_'G� TSI� UT� Vg��=> W_VG� Xg��cdr Y_XG� ZWY� [g��else \_[G� ]\M� ^]� _g�� cache-control `g�� connection ag��date bg��pragma cg��trailer dg��transfer-encoding eg��upgrade fg��via gg��warning hg��allow ig��content-encoding jg��content-language kg��content-length lg��content-location mg�� content-md5 ng�� content-range og�� content-type pg��expires qg�� last-modified rg�� accept-ranges sg��age tg��etag ug��location vg��proxy-authenticate wg�� retry-after xg��server yg��vary zg��www-authenticateC�5������h`o�����]4   !"N5�4Q�>��"��G���R������h������]��C�������������g��version  �g��code  �g�� reason-phrase   �g��headers   �g��port   ��g��filenamef��web/response.scm S �   ��g��nameg��%make-response-procedure�CSR4VWX[^��h������]��C�������������g��t-a15fd730aa5-3  �g��t-a15fd730aa5-4  �g��t-a15fd730aa5-5   �g��t-a15fd730aa5-6   �g��t-a15fd730aa5-7   ��   ���CW�h���S���]L�6����K�������g��a  ��g��filenamef��web/response.scm  S �  ���C\�����h���C���]�L�6;�������g��filenamef��web/response.scm  S �   ���C�������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��|�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��web/response.scm S �  n ���C5WRR��4 �R>��"��G���  Si��RRR���h���u���]�$���CC������m�������g��obj  ��g��filenamef��web/response.scm S �   ��g��nameg��%response?-procedure�C R4V#X[u���h���8���]��C������0�������g��t-a15fd730aa5-1c  ��  ���C#����h���S���]L�6����K�������g��a  ��g��filenamef��web/response.scm  S �  ���C\�����h���C���]�L�6;�������g��filenamef��web/response.scm  S �   ���Cw������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��|�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��web/response.scm S �  n ���C5#RRz$����h���z���]�&��� C�6r�������g��s  ��g��filenamef��web/response.scm S �   ��g��nameg��%response-version-procedure�C{R4V$X[���h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C����h���8���]��C������0�������g��t-a15fd730aa5-28  ��  ���C$����h���S���]L�6����K�������g��a  ��g��filenamef��web/response.scm  S �  ���C\�����h���C���]�L�6;�������g��filenamef��web/response.scm  S �   ���C������h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��web/response.scm S �  � ���C5$RRz%��������h���w���]�&��� C�6o�������g��s  ��g��filenamef��web/response.scm S �   ��g��nameg��%response-code-procedure�CR4V%X[ ������h���:���]C�����2�������g��err  �g��s  ��  ���C"'�h���:���]C�����2�������g��err  �g��s  ��  ���C*05�h���:���]C�����2�������g��err  �g��s  ��  ���CQ����h���8���]��C������0�������g��t-a15fd730aa5-43  ��  ���C%����h���S���]L�6����K�������g��a  ��g��filenamef��web/response.scm  S �  ���C\�����h���C���]�L�6;�������g��filenamef��web/response.scm  S �   ���CS������h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��web/response.scm S �  � ���C5%RRzT�������h ������]�&��� C�6�������y�������g��s  ��g��filenamef��web/response.scm S �   ��g��nameg��"%%response-reason-phrase-procedure�CUR4VTX[cjo���h���:���]C�����2�������g��err  �g��s  ��  ���Crx}�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C����h���8���]��C������0�������g��t-a15fd730aa5-5e  ��  ���CT���h���S���]L�6����K�������g��a  ��g��filenamef��web/response.scm  S �  ���C\�����h���C���]�L�6;�������g��filenamef��web/response.scm  S �   ���C������h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��web/response.scm S �  � ���C5TRRz'�������h ���z���]�&��� C�6�������r�������g��s  ��g��filenamef��web/response.scm S �   ��g��nameg��%response-headers-procedure�CR4V'X[���h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C����h���8���]��C������0�������g��t-a15fd730aa5-79  ��  ���C'����h���S���]L�6����K�������g��a  ��g��filenamef��web/response.scm  S �  ���C\�����h���C���]�L�6;�������g��filenamef��web/response.scm  S �   ���C������h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��web/response.scm S �  � ���C5'RRz(��������h ���w���]�&��� C�6�������o�������g��s  ��g��filenamef��web/response.scm S �   ��g��nameg��%response-port-procedure�CR4V(X[ ������h���:���]C�����2�������g��err  �g��s  ��  ���C"'�h���:���]C�����2�������g��err  �g��s  ��  ���C*05�h���:���]C�����2�������g��err  �g��s  ��  ���CQ����h���8���]��C������0�������g��t-a15fd730aa5-94  ��  ���C(����h���S���]L�6����K�������g��a  ��g��filenamef��web/response.scm  S �  ���C\�����h���C���]�L�6;�������g��filenamef��web/response.scm  S �   ���CS������h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��web/response.scm S �  � ���C5(R4VX[Y��h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��web/response.scm S �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5R��h������-�1�3��6������������g��message �g��args ��g��filenamef��web/response.scm \ ]  ] �  ��g��nameg�� bad-response�CR���h0������]4�5$��� $��4�5$���6CCC�����������g��n  ,��g��filenamef��web/response.scm _  `  `   `   `   `  `  & ` '�  , ��g��nameg��non-negative-integer?�CR��hX���A��]�$��<�$��(45$���666�(��C�6���9������g��headers  U�g��h E�g��k   =�g��v   =��g��filenamef��web/response.scm b  c  c  d  d   e  e   f   f !  f g  , g  1 h $ 3 h  7 i = i  A j  E j K k  Q l  U l �  U ��g��nameg��validate-headers�CRR� �hP����-��/�����0���3��#���#�� �#��#��#��#��"��4�>��"��G��"���$��4�5$��4�5$��"��4>��"��G��"��~45$��o X$��]"�� $��4>��"��@G��"��9"��5$��+45$��""��4 >��"��G��"��""��"r"��"j"��"'"��""��" ��C�������������g��version  I�g��code  I�g�� reason-phrase   I�g��headers   I�g��port   I�g��validate-headers?   I��g��filenamef��web/response.scm n  n ( 8 o " Q v  U v  \ v  h r  k s  o r  p t  u t % w t  { s | u  � u % � u  � s � x  � x  � x  � r  � w  � r  � w + � w � |  � }  � r  � y  � y  � z  � z   z  H ~ �#  I g��versionS g��codeS g�� reason-phraseS g��headersS g��portS g��validate-headers?S ���g��nameg��build-responseg�� documentationf��~Construct an HTTP response object. If VALIDATE-HEADERS? is true, the headers are each run through their respective validators.�C*RR�����h ������] 4�5$��CC��������������g��code  �g��t ��g��filenamef��web/response.scm �  �  �   � �   ��g��nameg��code->reason-phrase�CRRzT%����hH���'��] �&�� � "�� 4�5$��C�&��� "�� 4�56��������g��response  F�g��t  F��g��filenamef��web/response.scm �  �   �  - �  F � �  F ��g��nameg��response-reason-phraseg�� documentationf��bReturn the reason phrase given in RESPONSE, or the standard reason phrase for the response's code.�C&R���������h@�����]4�545$��C45$��C6�����������g��type  ;�g��type ;�g��t   ;�g��t  ( ;��g��filenamef��web/response.scm �  �  �  �   �   �   �  �  $ �  ( �  ( �  7 �  ; � �  ; ��g��nameg��text-content-type?g�� documentationf��sReturn #t if TYPE, a symbol as returned by `response-content-type', represents a textual type such as `text/plain'.�CBRR��hH�����]!4�>��"��G��4�>�� G�4�5��C�����������g��port  C�g��version ! C�g��code  ! C�g�� reason-phrase  ! C�g��headers  1 C��g��filenamef��web/response.scm �  �  �   �   �  $ �  + � 0 1 � �  C ��g��nameg�� read-responseg�� documentationf��Read an HTTP response from PORT. As a side effect, sets the encoding on PORT to ISO-8859-1 (latin-1), so that reading one character reads one byte. See the discussion of character sets in "HTTP Responses" in the manual, for more information.�C)R*Rz%'(� �h`���I��]�&��� "�� 4�5�&�� � "�� 4�5 �&�� � "�� 4� 56A������g��response  `�g��version  `��g��filenamef��web/response.scm � �  ) �  F �  ` � �  ` ��g��nameg��adapt-response-versiong�� documentationf�}Adapt the given response to a different HTTP version. Returns a new HTTP response. The idea is that many applications might just build a response for the default HTTP version, and this method could handle a number of programmatic transformations to respond to older HTTP versions (0.9 and 1.0). But currently this function is a bit heavy-handed, just updating the version field.�C+RRz$%& '  (� ����h(�� ��]"4�&��� "�� 4�5�&��� "�� 4�54�5>��"��G��4�&�� � "�� 4�5>��"��G��4  >��"��G���&�� � "�� 4� 5&���C�&��� "�� 4�5�&��� "�� 4�54�5�&�� � "�� 4�5�C������������g��r  "�g��port  "�g��version   "�g��code   "�g�� reason-phrase   "�g��headers   "��g��filenamef��web/response.scm �  �   �  " � , : �  G �  P �  U �  t �  } �  � � � �  � �  � �  � �  � � * � �  � � 0  � �  " ��g��nameg��write-responseg�� documentation��k�hW���r���i���t���e��� ���t���h���e��� ���g���i���v���e���n��� ���H���T���T���P��� ���r���e���s���p���o���n���s���e��� ���t���o��� ���P���O���R���T���.��� ��� ���R���e���t���u���r���n���s��� ���a��� ���n���e���w��� ���r���e���s���p���o���n���s���e���,��� ���w���h���o���s���e��� ��� ��r���e���s���p���o���n���s���e���-���p���o���r���t��� �� ���w���i���l���l��� ���c���o���n���t���i���n���u���e��� ���w���r���i���t���i���n���g��� ���o���n��� ���P���O���R���T���,��� ���p���e���r���h���a���p���s��� ���u���s���i���n���g��� ���s���o���m���e��� ���t���r���a���n���s���f���e���r��� ���e���n���c���o���d���i���n���g���.����C,RRz%�����h��� ��] �&��� "�� 4�5 d$��  �Ǔ"��$��C�&��� "�� 4�5 �̑$��C�&��� "�� 4�5 0C������g��r  ��g��b  5�g��t 5 ��g��t ^ ���g��filenamef��web/response.scm �  �   �  5 �  C � ^ �  ^ �  l � � � �  � ��g��nameg��response-must-not-include-body?g�� documentation�k��R���e���t���u���r���n���s��� ��� ��#���t��� �� ���i���f��� ���t���h���e��� ���r���e���s���p���o���n���s���e��� ���R��� ���i���s��� ���n���o���t��� ���p���e���r���m���i���t���t���e���d��� ���t���o��� ���h���a���v���e��� ���a��� ���b���o���d���y���.��� ��� ���T���h���i���s��� ���i���s��� ���t���r���u���e��� ���f���o���r��� ���s���o���m���e��� ���r���e���s���p���o���n���s���e��� ���t���y���p���e���s���,��� ���l���i���k���e��� ���t���h���o���s���e��� ���w���i���t���h��� ���c���o���d���e��� ���3���0���4���.����C-R ��������h���M���]�L�6E�������g��filenamef��web/response.scm    �   ���C ��h�����]4L�M5"��Y45$��ML�$�� CML�6"�� MNC $�� $��4L�5"""4L�5"~������g��bv  ��g��start  ��g��count   ��g��count   ��g��ret   m��g��filenamef��web/response.scm �   �  �   �   �   �   �   �  $ �  ( �  . �  4 �  =  ?   B �  E   J �  N  R   S   e   m �  n �  � � �  � ��g��nameg��read!�C�������h8�����]HH K$��"���O�K�O�J6����������g��port  4�g��len  4�g�� keep-alive?   4�g�� bytes-read   4�g��close   4��g��filenamef��web/response.scm �    #  ! 2   4  �  4 ��g��nameg��make-delimited-input-portg�� documentationf��Return an input port that reads from PORT, and makes sure that exactly LEN bytes are available from PORT. Closing the returned port closes PORT, unless KEEP-ALIVE? is true.�CR6Rz(=-2$ AB!"�h����-�/���0���3�#��#��H44�55$��(4�&�� � "�� 4�5 5"��4 �5$��(4 �&�� � "�� 4�55"��4 �5$��"��4 4�55$��"��5�&��� "�� 4�5$��4 4�55"��$���&�� � "�� 4�5"���&�� � "�� 4�5K$��rJ$��h4�5$��Q45$��24J45$��"��>��"��G��"���"���"���"���JC������������g��r  �g��decode?  �g�� keep-alive?   �g��port  & �g��t  i =�g��t  � ��g��v  R �g��w  a �g��x  a �g��t  ~ �� g��filenamef��web/response.scm  )   -   .   6   :   ;   @   ^   c   i   r  w  & �  �   �   � " � "  � "  � " � "  � #  � # , � #  � # � $  � $  � $ & � $  � $  �    %  " +  E -  K -  L .  q 0  v 1  | 1 / ~ 1  ~ 1   2   0 �,   g��decode?S g�� keep-alive?S ���g��nameg��response-body-portg�� documentation�k�R���e���t���u���r���n��� ���a���n��� ���i���n���p���u���t��� ���p���o���r���t��� ���f���r���o���m��� ���w���h���i���c���h��� ���t���h���e��� ���b���o���d���y��� ���o���f��� ���R��� ���c���a���n��� ���b���e��� ���r���e���a���d���.��� ��� ���T���h���e��� ���e���n���c���o���d���i���n���g��� ���o���f��� ���t���h���e��� ���r���e���t���u���r���n���e���d��� ���p���o���r���t��� ���i���s��� ���s���e���t��� ���a���c���c���o���r���d���i���n���g��� ���t���o��� ���R���'���s��� ��� ��c���o���n���t���e���n���t���-���t���y���p���e��� �� ���h���e���a���d���e���r���,��� ���w���h���e���n��� ���i���t���'���s��� ���t���e���x���t���u���a���l���,��� ���e���x���c���e���p���t��� ���i���f��� ���D���E���C���O���D���E���?��� ���i���s��� ��� ��#���f��� ��.��� ��� ���R���e���t���u���r���n��� ���#���f��� ���w���h���e���n��� ���n���o��� ���b���o���d���y��� ���i���s��� ���a���v���a���i���l���a���b���l���e���.��� ��� ���W���h���e���n��� ���K���E���E���P���-���A���L���I���V���E���?��� ���i���s��� ��� ��#���f��� ��,��� ���c���l���o���s���i���n���g��� ���t���h���e��� ���r���e���t���u���r���n���e���d��� ���p���o���r���t��� ���a���l���s���o��� ���c���l���o���s���e���s��� ���R���'���s��� ���r���e���s���p���o���n���s���e��� ���p���o���r���t���.����C.R#.$%�������h(���M��] 44�5545$��CC��E������g��r  &�g��body  &��g��filenamef��web/response.scm 7  :   :   :   :   >  >  " ? �  & ��g��nameg��read-response-bodyg�� documentation�k�tR���e���a���d���s��� ���t���h���e��� ���r���e���s���p���o���n���s���e��� ���b���o���d���y��� ���f���r���o���m��� ���R���,��� ���a���s��� ���a��� ���b���y���t���e���v���e���c���t���o���r���.��� ��� ���R���e���t���u���r���n���s��� ��� ��#���f��� �� ���i���f��� ���t���h���e���r���e��� ���w���a���s��� ���n���o��� ���r���e���s���p���o���n���s���e��� ���b���o���d���y���.����C/R&Rz(��h(������]�&�� � "�� 4�56������������g��r  #�g��bv  #��g��filenamef��web/response.scm B  E  # E �  # ��g��nameg��write-response-bodyg�� documentationf��IWrite BV, a bytevector, to the port corresponding to the HTTP response R.�C0R4V'X[02�h���-���]�C�����%�������g��field  ��  ���C3������h���j���]�6b�������g��field  �g��def  ��g��filenamef��web/response.scm  L �   ���C4567HIKMOQRUZ^��������hH������] 4�44�555��   ��  �C����������g��field  E�g��def  E�g��tmp   E��g��filenamef��web/response.scm  M   O  O % O 0  O   M   M �  E ���C� ���hP���u���]4�5$��@4�5"�� �6$��4?$��@""m�������g��x  P�g��tmp P�g��tmp  " P��g��filenamef��web/response.scm H �  P ���C5'RP_Rz'����hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��response F�g��default F�g��t  7 F��g��filenamef��web/response.scm X  X (  X � F ��g��nameg��response-cache-control�C1RP`Rz'��hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��response F�g��default F�g��t  7 F��g��filenamef��web/response.scm Y  Y %  Y � F ��g��nameg��response-connection�C2RPaRz'�����hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��response F�g��default F�g��t  7 F��g��filenamef��web/response.scm Z � F ��g��nameg�� response-date�C3RPbRz'����hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��response F�g��default F�g��t  7 F��g��filenamef��web/response.scm [  [ !  [ � F ��g��nameg��response-pragma�C4RPcRz'�hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��response F�g��default F�g��t  7 F��g��filenamef��web/response.scm \  \ "  \ � F ��g��nameg��response-trailer�C5RPdRz'��������hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��response F�g��default F�g��t  7 F��g��filenamef��web/response.scm ]  ] ,  ] � F ��g��nameg��response-transfer-encoding�C6RPeRz'������hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��response F�g��default F�g��t  7 F��g��filenamef��web/response.scm ^  ^ "  ^ � F ��g��nameg��response-upgrade�C7RPfRz'��������hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��response F�g��default F�g��t  7 F��g��filenamef��web/response.scm _  _   _ � F ��g��nameg�� response-via�C8RPgRz'����hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��response F�g��default F�g��t  7 F��g��filenamef��web/response.scm `  ` "  ` � F ��g��nameg��response-warning�C9RPhRz'��������hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��response F�g��default F�g��t  7 F��g��filenamef��web/response.scm d  d  d � F ��g��nameg��response-allow�C:RPiRz'��hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��response F�g��default F�g��t  7 F��g��filenamef��web/response.scm e  e +  e � F ��g��nameg��response-content-encoding�C;RPjRz'�������hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��response F�g��default F�g��t  7 F��g��filenamef��web/response.scm f  f +  f � F ��g��nameg��response-content-language�C<RPkRz'�������hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��response F�g��default F�g��t  7 F��g��filenamef��web/response.scm g � F ��g��nameg��response-content-length�C=RPlRz'��hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��response F�g��default F�g��t  7 F��g��filenamef��web/response.scm h � F ��g��nameg��response-content-location�C>RPmRz'��������hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��response F�g��default F�g��t  7 F��g��filenamef��web/response.scm i � F ��g��nameg��response-content-md5�C?RPnRz'�����hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��response F�g��default F�g��t  7 F��g��filenamef��web/response.scm j � F ��g��nameg��response-content-range�C@RPoRz'���hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��response F�g��default F�g��t  7 F��g��filenamef��web/response.scm k � F ��g��nameg��response-content-type�CARPpRz'����hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��response F�g��default F�g��t  7 F��g��filenamef��web/response.scm l � F ��g��nameg��response-expires�CCRPqRz'�hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��response F�g��default F�g��t  7 F��g��filenamef��web/response.scm m � F ��g��nameg��response-last-modified�CDRPrRz'���hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��response F�g��default F�g��t  7 F��g��filenamef��web/response.scm q � F ��g��nameg��response-accept-ranges�CERPsRz'���hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��response F�g��default F�g��t  7 F��g��filenamef��web/response.scm r � F ��g��nameg�� response-age�CFRPtRz'�����hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��response F�g��default F�g��t  7 F��g��filenamef��web/response.scm s � F ��g��nameg�� response-etag�CGRPuRz'����hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��response F�g��default F�g��t  7 F��g��filenamef��web/response.scm t � F ��g��nameg��response-location�CHRPvRz'��������hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��response F�g��default F�g��t  7 F��g��filenamef��web/response.scm u � F ��g��nameg��response-proxy-authenticate�CIRPwRz'������hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��response F�g��default F�g��t  7 F��g��filenamef��web/response.scm v � F ��g��nameg��response-retry-after�CJRPxRz'�����hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��response F�g��default F�g��t  7 F��g��filenamef��web/response.scm w � F ��g��nameg��response-server�CKRPyRz'��hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��response F�g��default F�g��t  7 F��g��filenamef��web/response.scm x  x   x � F ��g��nameg�� response-vary�CLRPzRz'���hH������-�.�,�3�#��4�&�� � "�� 4�55$��CC���������g��response F�g��default F�g��t  7 F��g��filenamef��web/response.scm y � F ��g��nameg��response-www-authenticate�CMRC�������������g��m  ,�g��rtd : d��g��filenamef��web/response.scm   , S " \ # _ %E b ) n ) �  ) � * � ,: � .< � 0 � 3 � 8 � < � A4 � K  M 7 N B R X T Y U Z V [ W' \ XI ] Y_ ^ Zs _ [ ` \ d ] e ^ f _ g ` h a i c j d k e l f m g q h r i s j t k1 u l: v m= w nL x oW y �0  oY ���C6�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/web/server/http.go�����������������������������������������������������������������������0000644�����������������00000071001�15146341264�0011647 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0q������]\�4��h=������]� g��guile � g��define-module* � � g��web g��server g��http � g��filenameS f��web/server/http.scm g��importsS g��srfi g��srfi-1  � g��selectS g��fold � � g��srfi-9  � � g��rnrs g�� bytevectors � � g��request � � g��response � � !� "!� #g��ice-9 $g��poll %#$� &%� ' "&� (g��exportsS )� *g��set-current-module +*� ,*� -g��socket .g��PF_INET /g�� SOCK_STREAM 0g�� setsockopt 1g�� SOL_SOCKET 2g�� SO_REUSEADDR 3g��bind 4g��make-default-socket 5g�� <http-server> 6g��%make-http-server-procedure 7g��make-syntax-transformer 87� 97� :g��make-http-server ;g��macro <g�� $sc-dispatch =<� ><� ?g��_ @g��any A?@@@� Bg�� syntax-object Cg��lambda Dg�� m-1e74a72e9-e Eg��top FDE� Gg��ribcage Hg�� t-1e74a72e9-b Ig�� t-1e74a72e9-c Jg�� t-1e74a72e9-d KHIJ� LFFF� Mf��l-1e74a72e9-13 Nf��l-1e74a72e9-14 Of��l-1e74a72e9-15 PMNO� QGKLP� RG� Sg��x TS� UF� Vf��l-1e74a72e9-10 WV� XGTUW� Yg��shift Zg�� proc-name [g��args \Z[� ]E� ^]]� _f��l-1e8ba8b5a-2ba `f��l-1e8ba8b5a-2bb a_`� bG\^a� cg��key dg��value eg��name fg��formals gg��body hcdefg� i]]]]]� jf��l-1e8ba8b5a-2ad kf��l-1e8ba8b5a-2ae lf��l-1e8ba8b5a-2af mf��l-1e8ba8b5a-2b0 nf��l-1e8ba8b5a-2b1 ojklmn� pGhio� qg��make-procedure-name rq� s]� tf��l-1e8ba8b5a-29d ut� vGrsu� w]� xf��l-1e8ba8b5a-29c yx� zGTwy� {FQRXYRRRRbpvz�  |g��hygiene }| � ~BC{}� ]QRX� �|� �B-� �g��poll-idx �B� �g��poll-set �B� �� �g�� make-struct �g�� m-1e74a72e9-9 �E� �g��t-1e8ba8b5a-38d �g��t-1e8ba8b5a-38c �g��t-1e8ba8b5a-38b �� �g��m-1e8ba8b5a-38e �E� �� �f��l-1e8ba8b5a-392 �f��l-1e8ba8b5a-393 �f��l-1e8ba8b5a-394 �� �G� �g�� ctor-args �� �f��l-1e8ba8b5a-37a �� �Gw� �g��ctor �g��field �� �f��l-1e8ba8b5a-376 �f��l-1e8ba8b5a-377 �� �G^� �g��form �g�� type-name �g��constructor-spec �g�� field-names �� �]]]]� �f��l-1e8ba8b5a-36b �f��l-1e8ba8b5a-36c �f��l-1e8ba8b5a-36d �f��l-1e8ba8b5a-36e �� �G� �g�� record-layout �g��functional-setters �g��setters �g��copier �g��getters �g�� constructor �g��getter-identifiers �g��field-identifiers �� �]]]]]]]]� �f��l-1e8ba8b5a-343 �f��l-1e8ba8b5a-341 �f��l-1e8ba8b5a-33f �f��l-1e8ba8b5a-33d �f��l-1e8ba8b5a-33b �f��l-1e8ba8b5a-339 �f��l-1e8ba8b5a-337 �f��l-1e8ba8b5a-335 �� �G� �f��l-1e8ba8b5a-334 �� �GTw� �QRXYRRRRR� �B}� �B5� �B }� �� �~� �g��each-any �?ˌ �g��syntax-violation �� �� �f��Wrong number of arguments �g�� identifier? �� �� �]RX� �B6� �� �� �f��-source expression failed to match any pattern �g��record-type-vtable �� �� �g��pwpwpw �g��default-record-printer �� �� �-� �g��set-struct-vtable-name! �� �� �g��vtable-offset-user �� �� �g��%http-server?-procedure �g�� http-server? �?@� �g��m-1e74a72e9-1f �E� �g��t-1e74a72e9-1e �� �� �f��l-1e74a72e9-24 �� �G� �f��l-1e74a72e9-21 �� �GT� �RYRRRRbpvz�  �BC}� �g��obj �g��t-1e8ba8b5a-47e �g��t-1e8ba8b5a-478 �g��t-1e8ba8b5a-479 �g��t-1e8ba8b5a-47a �g��t-1e8ba8b5a-47d �g��t-1e8ba8b5a-47c �g��t-1e8ba8b5a-47b �� �g��m-1e8ba8b5a-47f �E� � f��l-1e8ba8b5a-483 f��l-1e8ba8b5a-484 f��l-1e8ba8b5a-485 f��l-1e8ba8b5a-486 f��l-1e8ba8b5a-487 f��l-1e8ba8b5a-488  f��l-1e8ba8b5a-489   �  G �  g�� copier-id   � f��l-1e8ba8b5a-476 � G w� g�� ctor-name � f��l-1e8ba8b5a-46e � Gw� � f��l-1e8ba8b5a-46c � Gw� g��layout � f��l-1e8ba8b5a-46a � Gw� g�� immutable?  � !f��l-1e8ba8b5a-468 "!� #G w"� $g�� field-count %$� &f��l-1e8ba8b5a-466 '&� (G%w'� )g�� getter-ids *)� +f��l-1e8ba8b5a-463 ,+� -G*w,� .g�� field-ids /.� 0f��l-1e8ba8b5a-460 10� 2G/w1� 3g��predicate-name 4g�� field-spec 534� 6]]]]]]� 7f��l-1e8ba8b5a-453 8f��l-1e8ba8b5a-454 9f��l-1e8ba8b5a-455 :f��l-1e8ba8b5a-456 ;f��l-1e8ba8b5a-457 <f��l-1e8ba8b5a-458 =789:;<� >G56=� ?RYR RRRRRRRR#R(R-R2>� @B?}� A@� Bg��and CBB?}� Dg��struct? EBD?}� FE@� Gg��eq? HBG?}� Ig�� struct-vtable JBI?}� KJ@� L]R� MB5L� NHKM� OCFN� PAO� Q]R� RBQ� Sg��throw-bad-struct TS� US� Vg�� http-socket Wg��%http-socket-procedure Xg��free-id Yg�� %%on-error Zg��m-1e74a72e9-2b [ZE� \[� ]f��l-1e74a72e9-2d ^]� _GT\^� `[R_YRRRRbpvz�  aBY`}� bXa� cb@� dg��%%type eg��t-1e8ba8b5a-3a5 fg��t-1e8ba8b5a-3a6 gg��t-1e8ba8b5a-3a7 hg��t-1e8ba8b5a-3a8 ig��t-1e8ba8b5a-3a9 jg��t-1e8ba8b5a-3aa kg��t-1e8ba8b5a-3ab lefghijk� mg��m-1e8ba8b5a-3ac nmE� onnnnnnn� pf��l-1e8ba8b5a-3b0 qf��l-1e8ba8b5a-3b1 rf��l-1e8ba8b5a-3b2 sf��l-1e8ba8b5a-3b3 tf��l-1e8ba8b5a-3b4 uf��l-1e8ba8b5a-3b5 vf��l-1e8ba8b5a-3b6 wpqrstuv� xGlow� yg��getter zg��index {yz� |f��l-1e8ba8b5a-3a3 }f��l-1e8ba8b5a-3a4 ~|}� G{^~� ) � ]]]� f��l-1e8ba8b5a-39e f��l-1e8ba8b5a-39f f��l-1e8ba8b5a-3a0 � G� R_YRxRRRR� Bd}� X� ?c@� g��ck g��err g��s � [[� f��l-1e74a72e9-30 f��l-1e74a72e9-31 � G� [R_YRRRRbpvz�  B}� g��quote B}� ]R_� B5� � � g��%%index B}� X� ?c@� f��l-1e74a72e9-35 f��l-1e74a72e9-36 � G� [R_YRRRRbpvz�  B}� B}� R_� B � � � g��%%copier B}� X� ?c@� f��l-1e74a72e9-3a f��l-1e74a72e9-3b � G� [R_YRRRRbpvz�  B}� B}� g��%%<http-server>-set-fields ]R_� B� � � g��t-1e74a72e9-2a � f��l-1e74a72e9-3f � G\� [R_YRRRRbpvz�  BC}� R_YRxRRRR� B}� � g��if B}� BG}� BI}� � ]R_� B5� � g�� struct-ref B}� R_� B � � BS}� B}� BV� � � � � ]R_� BW� g�� http-poll-idx g��%http-poll-idx-procedure g��m-1e74a72e9-46 E� � f��l-1e74a72e9-48 � GT� RYRRRRbpvz�  BY}� X� @� RYRxRRRR� Bd}� X� ?@� � f��l-1e74a72e9-4b f��l-1e74a72e9-4c � G� RYRRRRbpvz�  B}� B}� ]R� B5� � � B}� X� ?@� f��l-1e74a72e9-50 f��l-1e74a72e9-51 � G� RYRRRRbpvz�  B}� �B}� R� B � �� � B}� X� ?@� f��l-1e74a72e9-55  f��l-1e74a72e9-56   �  G �   RYRRRRbpvz�   B }� B }� ] R� B� � � g��t-1e74a72e9-45 � f��l-1e74a72e9-5a � G� RYRRRRbpvz�  BC}� RYRxRRRR� B}� � B}� BG}� BI}�  � !]R� "B5!� # "� $B}� %R� &B %� '$&� (BS}� )B}� *B!� +)*� ,(+� -#',� .-� /]R� 0B/� 1g�� http-poll-set 2g��%http-poll-set-procedure 3g��m-1e74a72e9-61 43E� 54� 6f��l-1e74a72e9-63 76� 8GT57� 94R8YRRRRbpvz�  :BY9}� ;X:� <;@� =R8YRxRRRR� >Bd=}� ?X>� @?<?@� A44� Bf��l-1e74a72e9-66 Cf��l-1e74a72e9-67 DBC� EGAD� F4ER8YRRRRbpvz�  GBF}� HBF}� I]ER8� JB5I� KHJ� LK� MB=}� NXM� O?<N@� Pf��l-1e74a72e9-6b Qf��l-1e74a72e9-6c RPQ� SGAR� T4SR8YRRRRbpvz�  UBT}� VBT}� WSR8� XB W� YVX� ZY� [B=}� \X[� ]?<\@� ^f��l-1e74a72e9-70 _f��l-1e74a72e9-71 `^_� aGA`� b4aR8YRRRRbpvz�  cBb}� dBb}� e]aR8� fBe� gdf� hg� ig��t-1e74a72e9-60 ji� kf��l-1e74a72e9-75 lk� mGj5l� n4mR8YRRRRbpvz�  oBCn}� pmR8YRxRRRR� qBp}� rq� sBp}� tBGp}� uBIp}� vuq� w]mR8� xB5w� ytvx� zBp}� {mR8� |B {� }zq|� ~BSp}� Bp}� B1w� � ~q� sy}� or� ]R8� B2� g��each @@� � @ @ @ g�� %%set-fields g��dummy g��check? g��expr y� g��m-1e74a72e9-7c E� � f��l-1e74a72e9-81 f��l-1e74a72e9-82 f��l-1e74a72e9-83 f��l-1e74a72e9-84 f��l-1e74a72e9-85 � G� � f��l-1e74a72e9-7e � GT� g��t-1e8ba8b5a-3c4 g��t-1e8ba8b5a-3c6 g��t-1e8ba8b5a-3c5 � g��m-1e8ba8b5a-3c7 E� � f��l-1e8ba8b5a-3cb f��l-1e8ba8b5a-3cc f��l-1e8ba8b5a-3cd � G� f��l-1e8ba8b5a-3c1 f��l-1e8ba8b5a-3c2 f��l-1e8ba8b5a-3c3 � G� RYRRRR�  B}� ]R� B5� BV� B� B1� � g��map � � g��list g��set-http-poll-idx! g��%set-http-poll-idx!-procedure ?@@� g��m-1e74a72e9-90 E� g��t-1e74a72e9-8e g��t-1e74a72e9-8f � � f��l-1e74a72e9-95 f��l-1e74a72e9-96 � G� � f��l-1e74a72e9-92 � GT� RYRRRRbpvz�  BC}� g��t-1e8ba8b5a-3e6 g��t-1e8ba8b5a-3e7 � g��m-1e8ba8b5a-3e8 E� � f��l-1e8ba8b5a-3ec f��l-1e8ba8b5a-3ed � G� g��setter ey� f��l-1e8ba8b5a-3e0 f��l-1e8ba8b5a-3e1 f��l-1e8ba8b5a-3e2 � G� 4z� f��l-1e8ba8b5a-3d7 f��l-1e8ba8b5a-3d8 � G^� g�� field-specs � f��l-1e8ba8b5a-3d3 f��l-1e8ba8b5a-3d4 � G^� RYRRR� B}� g��val B}� � B}� BG}� BI}� � ]R� B5� � g�� struct-set! B}� R� B � � BS}� B}� B� �� �� � � ]R� B� g��POLLHUP g��POLLERR g��*error-events*  g��POLLIN  g�� *read-events*  g��*events*  g��hostS    g��familyS   g��addrS   g��portS   g��socketS    � g��AF_INET g�� inet-pton g��INADDR_LOOPBACK g��listen g�� sigaction g��SIGPIPE g��SIG_IGN g��make-empty-poll-set g�� poll-set-add!  g�� http-open !g��write-response "g��build-response #g��versionS $  %g��codeS &g��headersS 'g��content-length ('  )(� *g�� bad-request +g��poll-set-revents ,g�� <poll-set> -%,� .%,� /g�� poll-set-nfds 0g��accept 1g�� poll-set-port 2g��setvbuf 3g��_IOFBF 4g�� SO_SNDBUF 5g��throw 6g�� interrupt 7g��poll-set-remove! 8g�� eof-object? 9g�� peek-char :g�� close-port ;g��with-throw-handler <g�� read-request =g��read-request-body >g��catch ?g��format @g��current-error-port Af��In ~a:  Bg��port C*B� Dg��print-exception E:B� Fg�� http-read Gg�� <response> HG� IG� Jg��response-version Kg�� response-code Lg��memq Mg��close Ng��response-connection Og�� keep-alive Pg�� keep-alive? Qg�� response-port Rg�� bytevector? Sg��write-response-body Tg��error Uf��Expected a bytevector for body Vg�� force-output Wg�� http-write Xg�� http-close Yg�� server-impl Z!Y� [!Y�C�5���hh/��/��] 4    '()5�4,�>��"��G���-./0123��h@������] 4 54 >��"��G��4�>��"��G��C�������g��family  @�g��addr  @�g��port   @�g��sock  @��g��filenamef��web/server/http.scm (  )  )   *  & + �  @ ��g��nameg��make-default-socket�C4R5�������h������]��C���������g��socket  �g��poll-idx  �g��poll-set   ��g��filenamef��web/server/http.scm . �   ��g��nameg��%make-http-server-procedure�C6R49:;>A�����h���k���]��C��c�������g�� t-1e74a72e9-b  �g�� t-1e74a72e9-c  �g�� t-1e74a72e9-d   ��   ���C:�h���V���]L�6����N�������g��a  ��g��filenamef��web/server/http.scm  . �  ���C?��h���F���]�L�6>�������g��filenamef��web/server/http.scm  . �   ���C����h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6���������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��web/server/http.scm . �  n ���C5:R5��4�5>��"��G��� 6i��5R5������h���{���]�$���CC������s�������g��obj  ��g��filenamef��web/server/http.scm . �   ��g��nameg��%http-server?-procedure�CR49;>P�������h���6���]��C������.�������g��t-1e74a72e9-1e  ��  ���C������h���V���]L�6����N�������g��a  ��g��filenamef��web/server/http.scm  . �  ���C?��h���F���]�L�6>�������g��filenamef��web/server/http.scm  . �   ���CR���h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6���������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��web/server/http.scm . �  n ���C5R5UV��������h���x���]�&��� C�6p�������g��s  ��g��filenamef��web/server/http.scm . �   ��g��nameg��%http-socket-procedure�CWR49V;>����h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�����h���6���]��C������.�������g��t-1e74a72e9-2a  ��  ���CV�����h���V���]L�6����N�������g��a  ��g��filenamef��web/server/http.scm  . �  ���C?��h���F���]�L�6>�������g��filenamef��web/server/http.scm  . �   ���C���h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��web/server/http.scm . �  � ���C5VR5U���h���z���]�&��� C�6r�������g��s  ��g��filenamef��web/server/http.scm . �   ��g��nameg��%http-poll-idx-procedure�CR49;>��h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C �h���:���]C�����2�������g��err  �g��s  ��  ���C.�����h���6���]��C������.�������g��t-1e74a72e9-45  ��  ���C�����h���V���]L�6����N�������g��a  ��g��filenamef��web/server/http.scm  . �  ���C?��h���F���]�L�6>�������g��filenamef��web/server/http.scm  . �   ���C0���h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��web/server/http.scm . �  � ���C5R5U1���h ���z���]�&��� C�6�������r�������g��s  ��g��filenamef��web/server/http.scm . �   ��g��nameg��%http-poll-set-procedure�C2R491;>@GL��h���:���]C�����2�������g��err  �g��s  ��  ���COUZ�h���:���]C�����2�������g��err  �g��s  ��  ���C]ch�h���:���]C�����2�������g��err  �g��s  ��  ���C�����h���6���]��C������.�������g��t-1e74a72e9-60  ��  ���C1�����h���V���]L�6����N�������g��a  ��g��filenamef��web/server/http.scm  . �  ���C?��h���F���]�L�6>�������g��filenamef��web/server/http.scm  . �   ���C���h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��web/server/http.scm . �  � ���C51R49;>������h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��web/server/http.scm . �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5R5U�����h ������]�&��� C�6�������������g��s  �g��val  ��g��filenamef��web/server/http.scm . �   ��g��nameg��%set-http-poll-idx!-procedure�CR49;>�������h���R���]��C����J�������g��t-1e74a72e9-8e  �g��t-1e74a72e9-8f  ��  ���C�h���V���]L�6����N�������g��a  ��g��filenamef��web/server/http.scm  . �  ���C?��h���F���]�L�6>�������g��filenamef��web/server/http.scm  . �   ���C���h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6���������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��web/server/http.scm . �  n ���C5RiiR i Ri i R4 5���h���g��-��/�����0���3��#���#��#���$�� 4�5"��#�� #�� 454 �>��"��G��4 >��"��G��4 5�4  >��"��G��  �C������_������g��host  ��g��family  ��g��addr   ��g��port   ��g��socket   ��g��poll-set  � ���g��filenamef��web/server/http.scm : 2 =  3 >  U A  b B  w C  � D  � D  � E  � F �  � g��hostS g��familyS g��addrS g��portS g��socketS ���g��nameg�� http-open�C R!"#$%&)����h ������]4 5�6�������������g��port  ��g��filenamef��web/server/http.scm H  I  I ,  J ,  I   I �   ��g��nameg�� bad-request�C*R5U1+$./0123014 56789:;<=��h���y���]4L�5�L��4�5Dq�������g��req ��g��filenamef��web/server/http.scm }   ~  ~   �    �   ���C>*����h���P���]�L�6H�������g��filenamef��web/server/http.scm �   � �   ���C?@ACD�����h0���j���-�1�3�445�>��"��G��45��6b�������g��k 0�g��args 0��g��filenamef��web/server/http.scm � � 0 ���C:�������h���P���]�L�6H�������g��filenamef��web/server/http.scm �   � �   ���C?@AED�����h0���j���-�1�3�445�>��"��G��45��6b�������g��k 0�g��args 0��g��filenamef��web/server/http.scm � � 0 ���C���h8���|���-�1�3�4L�O�>��"��G��L�O�6�������t�������g��k 1�g��args 1��g��filenamef��web/server/http.scm �  �  1 � � 1 ���C������h����])�&�� � "�� 4�5"�45 $�� $��34>��"��G��&�� "�� 45" $��4 4 554  >��"��G��4  0�>��"��G��4>��"��G��4>��"��G��&�� "�� 45"�&�� � "��4�>��"��G��6 $�� "45�&�� � "��4�>��"��G��4455$��4>��"��G��"yO�O�6�&��� "�� 4�5"F���������g��server  �g��poll-set  �g��idx  # �g��revents  , �g��client  � �g��port  M �g��val  R ��g��filenamef��web/server/http.scm N  O   O  # P  $ Q  , Q  1 S 6 R  9 V > U ? X S Y  k Y  q Y v Z  w Z  | U } b  � b " � b  � b � d  � d  � d  � f  � f  � f < � f  � g  � g & � g  � h  � i  � i   i   \ 1 ]  3 ] 6 j ; R  > l  D l E p  M p R s ' R s  u   u   u   t  w   x   x   {   P   P   P �:   ��g��nameg�� http-read�CFRIUJKLMNO� ���h�����]�&��� "�� 4�5�&��� "�� 4�5 $��"���&��� "�� 4�5 $��C $��4 $��44�55C $�� 4�56CCC�����w������g��response  ��g��v  ��g��t  < j�g��key  q ��g��key  ~ ���g��filenamef��web/server/http.scm �  �  �  ! �  < � < � L �  g � n �  q �  q � ~ �  ~ � � �  � �  � � % � �  � �  � � � �  � � % � � �  � ��g��nameg�� keep-alive?�CPR!IUQRSTUPV51 :�����h�����]45&��  "�� 45$��;45$��4>��"��G��"��4>��"��G��"���4 5$��E4 >��"��G��4 � &�� � "�� 4� 5>��"��G��"��4>��"��G��D��������g��server  ��g��client  ��g��response   ��g��body   ��g��response  ��g��port  ( ���g��filenamef��web/server/http.scm �  �  �   �  ( �  0 �  1 �  ; �  < �  T �  X � _ �  l �  v �  w �  � �  � �  � �  � �  � � �  � ��g��nameg�� http-write�CWR5U1:7./�������hp�����]�&�� � "�� 4�5"��- $��#445>��"��G��"C&�� "�� 45"������g��server  p�g��poll-set  p�g��n  # P��g��filenamef��web/server/http.scm �  �   �  # �  & � + �  , � / �  6 � 3 8 �  = � H �  N � P �  S �  p � �  p ��g��nameg�� http-close�CXR iFiWiXi�[���RC��'������g��m  ,�g��rtd  !�g��open /= /a�g��read /= /a�g��write  /= /a�g��close  /= /a��g��filenamef��web/server/http.scm   [ ( 1 . P 5  T 5 ] 6 h 7  l 7  :  H (p N * � -q � /) � /= � �  /f ���C6��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/web/client.go����������������������������������������������������������������������������0000644�����������������00000102527�15146341264�0010650 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0?������]�4��hh������]� g��guile � g��define-module* � � g��web g��client � g��filenameS f��web/client.scm g��importsS g��rnrs g�� bytevectors   � � g��ice-9 g�� binary-ports � � g��iconv � � g��rdelim � � g��request � � g��response � � g��uri ! � "!� #g��http $#� %$� &g��srfi 'g��srfi-1 (&'� )(� *g��srfi-9 +&*� ,+� -g��gnu .&*-� /.� 0"%),/�  1g��exportsS 2g��current-http-proxy 3g��open-socket-for-uri 4g��http-get 5g�� http-get* 6g�� http-head 7g�� http-post 8g��http-put 9g�� http-delete :g�� http-trace ;g�� http-options <23456789:;�  =g��set-current-module >=� ?=� @g��make-parameter Ag��getenv Bf�� http_proxy Cf��� Dg��string? Eg�� string->uri Fg��error Gf�� Invalid URI Hg��<uri> I!H� J!H� Kg�� ensure-uri Lg��throw-bad-struct M+L� N+L� Og��uri-port Pg��delete-duplicates Qg�� getaddrinfo Rg��uri-host Sg��number->string Tg��symbol->string Ug�� uri-scheme Vg��AI_NUMERICSERV Wg�� addrinfo:addr Xg��%default-port-encoding Yg��socket Zg�� addrinfo:fam [g�� SOCK_STREAM \g�� IPPROTO_IP ]g��catch ^g�� system-error _g��connect `g��setvbuf ag��_IOFBF bg��set-http-proxy-port?! cg��close dg��throw eg�� <request> fe� ge� hg�� assoc-set! ig�� copy-tree jg��%%<request>-set-fields kg��extend-request lg��request-content-type mg�� text/plain nm� og��assq-ref pg��charset qg��sanitize-request rg�� content-type sg��append ts� us� vf��utf-8 wg��string->bytevector xg�� procedure? yg��call-with-encoded-output-string zg�� bytevector? {g��request-content-length |g��bytevector-length }f��bad content-length ~g��content-length f��unexpected body type �f��content-length, but no body �g��assq �g��transfer-encoding �g��request-headers �f��*transfer-encoding not allowed with no body �g��vu8 ��j��� �g��response-content-length �g��response-content-type �g��text-content-type? �g��bytevector->string �f�� iso-8859-1 �g��decode-response-body �g��bodyS �  �g��portS �  �g��methodS �  �g��versionS �  �g�� keep-alive?S �  �g��headersS �  �g�� decode-body?S �  �g�� streaming?S �  �g��requestS �  ��  �g��GET �  �g�� build-request �g�� connection �c� �g�� write-request �g��write-request-body �g�� force-output �g�� request-port �g�� read-response �g��request-method �g��HEAD �g�� close-port �g��response-body-port �g��decode?S �g��read-response-body �  �  �g�� extra-headersS �  �� �g��issue-deprecation-warning �f��HThe #:extra-headers argument to http-get has been renamed to #:headers.  �f��Please update your code. �� �f��"`http-get*' has been deprecated.  �f��BInstead, use `http-get' with the #:streaming? #t keyword argument. �g��make-syntax-transformer �� �� �g��define-http-verb �g��macro �g�� $sc-dispatch �� �� �g��any �� �g�� syntax-object �g��define* �g��top �� �g��ribcage �g��dummy �g�� http-verb �g��method �g��doc �� �g��m-1a596c681-fb �� �� �f��l-1a596c681-100 �f��l-1a596c681-101 �f��l-1a596c681-102 �f��l-1a596c681-103 �� �� �� �g��x �� �� �f��l-1a596c681-fd �� �� �� �g��hygiene �� �� � � �g��keyS �� �g��body �� �� �� �g��port �� �3� �� �� �g��version �� �g��quote �� � � � �� �� �g�� keep-alive? �� �� �g��headers �� �� �� �g�� decode-body? �� �� �� g�� streaming? � � ��  � � � �  �  �  �  �  �      �  g��syntax-violation � � f��-source expression failed to match any pattern       � g��POST g��PUT g��DELETE g��TRACE g��OPTIONSC�5���hho��-��]4   01<5�4?�>��"��G���4@i4AiB5��C$��"����52RDEFGJ������h@������]4�5$���6"���6�$���&���C""�������������g�� uri-or-string  :��g��filenamef��web/client.scm =  ?  >   ?   A   A  >  " @  & >  ) @ �  : ��g��nameg�� ensure-uri�CKR2KJNOPQRSTUVW���h���|���]4�545C������t�������g��ai1  �g��ai2  ��g��filenamef��web/client.scm P   Q  Q %  Q �   ���CXYZ[\]^_W`ab�������hP���q���]�4L4L5>��"��G��4L>��"��G��M�$��4L>��"��G��"���LC�i�������g��filenamef��web/client.scm Y   Z  Z   Z  ] 5 _ 6 _ �  O ���Ccd�������h0������-��1��3�4L>��"��G��L�(���@LL�6�~�������g��args /��g��filenamef��web/client.scm a  c  d  " d ( e  - f  / f � / ���C� ������h@������]�Y4455ZLO� �L�O�6������������g�� addresses  ;�g��ai  ;�g��s   ;��g��filenamef��web/client.scm S   T   T  W   W   W   T  # X ; X �  ; ��g��nameg��loop�C�����h�����]!HHH45�K4J$��J"���5KJ&�� J "�� 4J544J&�� J "�� 4J5$�� 4 5"��4 J&��J "�� 4J 55$�� "�� 5 5KO�Q�J6�����������g�� uri-or-string  ��g�� http-proxy  ��g��uri   ��g�� addresses   ��g��port  B ��g��loop  � ���g��filenamef��web/client.scm C E   F   F  % F  * H  B H  E I  H J  M J  k K  w L | L 0 � L � M  � J  � I  � S �  � ��g��nameg��open-socket-for-urig�� documentationf��9Return an open input/output port for a connection to URI.�C3RghiNjk��hh�����-�1�3��&��3� � � 44� 55� � �"�� 4�5(��C@��������������g��r a�g��k a�g��v  a�g�� additional  a�g��r  N a��g��filenamef��web/client.scm h i " j  % j " , j - . j " 4 j  9 i N i  V l  a n � a  ��g��nameg��extend-request�CkRDlnopqkruvwxyz{|F}~gN������h����]$�45$��T4�545$���"��4�4  �554 $��"�� 564 5$��T4�545$���"��4�4  �554 $��"�� 5645$��K4�545$��$���"�� 45"�� 4�5D64�5$��" $��"��4>��"��G��"��<4�&�� � "�� 4�55$��4>��"��G��"����D���}������g��request  �g��body  �g��type   g�g��declared-charset  ( g�g��type  { ��g��declared-charset  � ��g��rlen  � �g��blen  � �g��length  ) �� g��filenamef��web/client.scm q  �  �   �   �   � /  �   �   �  $ � ' & � 2 ( �  ( �  2 �  9 � ? � # @ �  H � ) I �  P � Q �  [ �  c � ) e �  g �  h �  r �  s �  y � ( { �  { �  ~ �  � � ' � � 2 � �  � �  � �  � � � � # � �  � � ) � �  � � � �  � �  � � ) � �  � �  � � � �  � �  � �  � � � �  � �  � �  � �  � �  �   �   � -  �   �   � " �  # �  ) �  1 �  4 �  9 � > � B �  G � T �  X �  [ � ) u �  y � z � ~ �   �  �   � �T   ��g��nameg��sanitize-requestg�� documentation�k�0"���S���a���n���i���t���i���z���e���"��� ���t���h���e��� ���g���i���v���e���n��� ���r���e���q���u���e���s���t��� ���a���n���d��� ���b���o���d���y���,��� ���e���n���s���u���r���i���n���g��� ���t���h���a���t��� ���t���h���e���y��� ���a���r���e��� ���c���o���m���p���l���e���t���e��� ���a���n���d��� ���c���o���h���e���r���e���n���t���.��� ��� ���T���h���i���s��� ���m���e���t���h���o���d��� ���i���s��� ���m���o���s���t��� ���u���s���e���f���u���l��� ���f���o���r��� ���m���e���t���h���o���d���s��� ���t���h���a���t��� ���s���e���n���d��� ���d���a���t���a��� ���t���o��� ���t���h���e��� ���s���e���r���v���e���r���,��� ���l���i���k���e��� ���P���O���S���T���,��� ���b���u���t��� ���c���a���n��� ���b���e��� ���u���s���e���d��� ���f���o���r��� ���a���n���y��� ���m���e���t���h���o���d���.��� ��� ���R���e���t���u���r���n��� ���t���w���o��� ���v���a���l���u���e���s���:��� ���a��� ���r���e���q���u���e���s���t��� ���a���n���d��� ���a��� ���b���y���t���e���v���e���c���t���o���r���,��� ���p���o���s���s���i���b���l���y��� ���t���h���e��� ���s���a���m���e��� ���o���n���e���s��� ���t���h���a���t��� ���w���e���r���e��� ���p���a���s���s���e���d��� ���a���s��� ���a���r���g���u���m���e���n���t���s���.��� ��� ���I���f��� ���B���O���D���Y��� ���i���s��� ���a��� ���s���t���r���i���n���g���,��� ���e���n���c���o���d���e���s��� ���t���h���e��� ���s���t���r���i���n���g��� ���t���o��� ���a��� ���b���y���t���e���v���e���c���t���o���r���,��� ���i���n��� ���a���n��� ���e���n���c���o���d���i���n���g��� ���a���p���p���r���o���p���r���i���a���t���e��� ���f���o���r��� ���R���E���Q���U���E���S���T���.��� ��� ���A���d���d���s��� ���a��� ��� ��c���o���n���t���e���n���t���-���l���e���n���g���t���h��� �� ���a���n���d��� ��� ��c���o���n���t���e���n���t���-���t���y���p���e��� �� ���h���e���a���d���e���r���,��� ���a���s��� ���n���e���c���e���s���s���a���r���y���.��� ��� ���I���f��� ���B���O���D���Y��� ���i���s��� ���a��� ���p���r���o���c���e���d���u���r���e���,��� ���i���t��� ���i���s��� ���c���a���l���l���e���d��� ���w���i���t���h��� ���a��� ���p���o���r���t��� ���a���s��� ���a���n��� ���a���r���g���u���m���e���n���t���,��� ���a���n���d��� ���t���h���e��� ���o���u���t���p���u���t��� ���c���o���l���l���e���c���t���e���d��� ���a���s��� ���a��� ���b���y���t���e���v���e���c���t���o���r���.��� ��� ���I���n��� ���t���h���e��� ���f���u���t���u���r���e��� ���w���e��� ���m���i���g���h���t��� ���t���r���y��� ���t���o��� ���i���n���s���t���e���a���d��� ���u���s���e��� ���a��� ���c���o���m���p���r���e���s���s���i���n���g���,��� ���c���h���u���n���k���-���e���n���c���o���d���e���d��� ���p���o���r���t���,��� ���a���n���d��� ���c���a���l���l��� ���t���h���i���s��� ���p���r���o���c���e���d���u���r���e��� ���l���a���t���e���r���.��� ���A���u���t���h���o���r���s��� ���a���r���e��� ���a���d���v���i���s���e���d��� ���n���o���t��� ���t���o��� ���r���e���l���y��� ���o���n��� ���t���h���e��� ���p���r���o���c���e���d���u���r���e��� ���b���e���i���n���g��� ���c���a���l���l���e���d��� ���a���t��� ���a���n���y��� ���p���a���r���t���i���c���u���l���a���r��� ���t���i���m���e���.��� ��� ���N���o���t���e��� ���t���h���a���t��� ���w���e��� ���r���e���l���y��� ���o���n��� ���t���h���e��� ���r���e���q���u���e���s���t��� ���i���t���s���e���l���f��� ���a���l���r���e���a���d���y��� ���h���a���v���i���n���g��� ���b���e���e���n��� ���v���a���l���i���d���a���t���e���d���,��� ���a���s��� ���i���s��� ���t���h���e��� ���c���a���s���e��� ���b���y��� ���d���e���f���a���u���l���t��� ���w���i���t���h��� ���a��� ���r���e���q���u���e���s���t��� ���r���e���t���u���r���n���e���d��� ���b���y��� ���`���b���u���i���l���d���-���r���e���q���u���e���s���t���'���.����CqRz|opF}� ���h�����]"$��45$��{4�545"��D4�5$��245$��#45$��"�� 6CC$��$��"  6"  6C�������������g��response  ��g��body  ��g��rlen  ! ��g��blen  ! ��g��t  0 m�g��t  R e��g��filenamef��web/client.scm �  �  �   �   �   �  ! �  * �  0 �  9 �  > � # @ �  D � I � , N � 6 P � A R � , R � ( b � , g �  m �  x �  | �  � �  � �  � � � � �  � ��g��nameg��decode-response-body�CR3KqgN���h����-�/��� 0�� �3�#��#�� 4�5#��#��#��#��#��#�� #��-44�5 $��"��  5  4  >�� G�  4  5  $��4  >��"��G��"���4 &��  "�� 4 5>��"��G��45  &�� "�� 4 5&��!$��"��4>��"��G�� D$�� 4 5D4 5$��"��4>��"��G�� $�� 4 5"��D�������g��uri  �g��body  �g��port   �g��method   �g��version   �g�� keep-alive?   �g��headers   �g�� decode-body?   �g�� streaming?   �g��request  �g��request � �g��body � �g��request � �g��response  �g��body  h ��g��filenamef��web/client.scm � # �  3 �  = �  O �  j �  m �  � �  � � ( � � " � �  � �  � �  � �  � �  � �  � � � �  � �  � �  � �   �   �  # � * ' � - � 2 �  H � N � Q �  a � b �  h � p �  u �   �   �   � �'   g��bodyS g��portS g��methodS g��versionS g�� keep-alive?S g��headersS g�� decode-body?S g�� streaming?S g��requestS � ��g��nameg��request�CR3���h���)��-�/��� 0�� �3� #��#�� 4�5#��#��#��#��$��"��#��#��$��4>��"��G��"����     6������!������g��uri  ��g��body  ��g��port   ��g��version   ��g�� keep-alive?   ��g�� extra-headers   ��g��headers   ��g�� decode-body?   ��g�� streaming?   ��� g��filenamef��web/client.scm � # �  3 �  S � / Z � A t   u   y   {   �   �   �  �  � g��bodyS g��portS g��versionS g�� keep-alive?S g�� extra-headersS g��headersS g�� decode-body?S g�� streaming?S � ��g��nameg��http-getg�� documentation���k�C���o���n���n���e���c���t��� ���t���o��� ���t���h���e��� ���s���e���r���v���e���r��� ���c���o���r���r���e���s���p���o���n���d���i���n���g��� ���t���o��� ���U���R���I��� ���a���n���d��� ���a���s���k��� ���f���o���r��� ���t���h���e��� ���r���e���s���o���u���r���c���e���,��� ���u���s���i���n���g��� ���t���h���e��� ��� ��G���E���T��� �� ���m���e���t���h���o���d���.��� ��� ���I���f��� ���y���o���u��� ���a���l���r���e���a���d���y��� ���h���a���v���e��� ���a��� ���p���o���r���t��� ���o���p���e���n���,��� ���p���a���s���s��� ���i���t��� ���a���s��� ���P���O���R���T���.��� ��� ���T���h���e��� ���p���o���r���t��� ���w���i���l���l��� ���b���e��� ���c���l���o���s���e���d��� ���a���t��� ���t���h���e��� ���e���n���d��� ���o���f��� ���t���h���e��� ���r���e���q���u���e���s���t��� ���u���n���l���e���s���s��� ���K���E���E���P���-���A���L���I���V���E���?��� ���i���s��� ���t���r���u���e���.��� ��� ���A���n���y��� ���e���x���t���r���a��� ���h���e���a���d���e���r���s��� ���i���n��� ���t���h���e��� ���a���l���i���s���t��� ���H���E���A���D���E���R���S��� ���w���i���l���l��� ���b���e��� ���a���d���d���e���d��� ���t���o��� ���t���h���e��� ���r���e���q���u���e���s���t���.��� ��� ���I���f��� ���B���O���D���Y��� ���i���s��� ���n���o���t��� ��� ��#���f��� ��,��� ���a��� ���m���e���s���s���a���g���e��� ���b���o���d���y��� ���w���i���l���l��� ���a���l���s���o��� ���b���e��� ���s���e���n���t��� ���w���i���t���h��� ���t���h���e��� ���H���T���T���P��� ���r���e���q���u���e���s���t���.��� ��� ���I���f��� ���B���O���D���Y��� ���i���s��� ���a��� ���s���t���r���i���n���g���,��� ���i���t��� ���i���s��� ���e���n���c���o���d���e���d��� ���a���c���c���o���r���d���i���n���g��� ���t���o��� ���t���h���e��� ���c���o���n���t���e���n���t���-���t���y���p���e��� ���i���n��� ���H���E���A���D���E���R���S���,��� ���d���e���f���a���u���l���t���i���n���g��� ���t���o��� ���U���T���F���-���8���.��� ��� ���O���t���h���e���r���w���i���s���e��� ���B���O���D���Y��� ���s���h���o���u���l���d��� ���b���e��� ���a��� ���b���y���t���e���v���e���c���t���o���r���,��� ���o���r��� ��� ��#���f��� �� ���f���o���r��� ���n���o��� ���b���o���d���y���.��� ��� ���A���l���t���h���o���u���g���h��� ���i���t���'���s��� ���a���l���l���o���w���e���d��� ���t���o��� ���s���e���n���d��� ���a��� ���m���e���s���s���a���g���e��� ���b���o���d���y��� ���a���l���o���n���g��� ���w���i���t���h��� ���a���n���y��� ���r���e���q���u���e���s���t���,��� ���u���s���u���a���l���l���y��� ���o���n���l���y��� ���P���O���S���T��� ���a���n���d��� ���P���U���T��� ���r���e���q���u���e���s���t���s��� ���h���a���v���e��� ���b���o���d���i���e���s���.��� ��� ���S���e���e��� ��� ��h���t���t���p���-���p���u���t��� �� ���a���n���d��� ��� ��h���t���t���p���-���p���o���s���t��� �� ���d���o���c���u���m���e���n���t���a���t���i���o���n���,��� ���f���o���r��� ���m���o���r���e���.��� ��� ���I���f��� ���D���E���C���O���D���E���-���B���O���D���Y���?��� ���i���s��� ���t���r���u���e���,��� ���a���s��� ���i���s��� ���t���h���e��� ���d���e���f���a���u���l���t���,��� ���t���h���e��� ���b���o���d���y��� ���o���f��� ���t���h���e��� ���r���e���s���p���o���n���s���e��� ���w���i���l���l��� ���b���e��� ���d���e���c���o���d���e���d��� ���t���o��� ���s���t���r���i���n���g���,��� ���i���f��� ���i���t��� ���i���s��� ���a��� ���t���e���x���t���u���a���l��� ���c���o���n���t���e���n���t���-���t���y���p���e���.��� ���O���t���h���e���r���w���i���s���e��� ���i���t��� ���w���i���l���l��� ���b���e��� ���r���e���t���u���r���n���e���d��� ���a���s��� ���a��� ���b���y���t���e���v���e���c���t���o���r���.��� ��� ���H���o���w���e���v���e���r���,��� ���i���f��� ���S���T���R���E���A���M���I���N���G���?��� ���i���s��� ���t���r���u���e���,��� ���i���n���s���t���e���a���d��� ���o���f��� ���e���a���g���e���r���l���y��� ���r���e���a���d���i���n���g��� ���t���h���e��� ���r���e���s���p���o���n���s���e��� ���b���o���d���y��� ���f���r���o���m��� ���t���h���e��� ���s���e���r���v���e���r���,��� ���t���h���i���s��� ���f���u���n���c���t���i���o���n��� ���o���n���l���y��� ���r���e���a���d���s��� ���o���f���f��� ���t���h���e��� ���h���e���a���d���e���r���s���.��� ��� ���T���h���e��� ���r���e���s���p���o���n���s���e��� ���b���o���d���y��� ���w���i���l���l��� ���b���e��� ���r���e���t���u���r���n���e���d��� ���a���s��� ���a��� ���p���o���r���t��� ���o���n��� ���w���h���i���c���h��� ���t���h���e��� ���d���a���t���a��� ���m���a���y��� ���b���e��� ���r���e���a���d���.��� ���U���n���l���e���s���s��� ���K���E���E���P���-���A���L���I���V���E���?��� ���i���s��� ���t���r���u���e���,��� ���t���h���e��� ���p���o���r���t��� ���w���i���l���l��� ���b���e��� ���c���l���o���s���e���d��� ���a���f���t���e���r��� ���t���h���e��� ���f���u���l���l��� ���r���e���s���p���o���n���s���e��� ���b���o���d���y��� ���h���a���s��� ���b���e���e���n��� ���r���e���a���d���.��� ��� ���R���e���t���u���r���n���s��� ���t���w���o��� ���v���a���l���u���e���s���:��� ���t���h���e��� ���r���e���s���p���o���n���s���e��� ���r���e���a���d��� ���f���r���o���m��� ���t���h���e��� ���s���e���r���v���e���r���,��� ���a���n���d��� ���t���h���e��� ���r���e���s���p���o���n���s���e��� ���b���o���d���y��� ���a���s��� ���a��� ���s���t���r���i���n���g���,��� ���b���y���t���e���v���e���c���t���o���r���,��� ���#���f��� ���v���a���l���u���e���,��� ���o���r��� ���a���s��� ���a��� ���p���o���r���t��� ���(���i���f��� ���S���T���R���E���A���M���I���N���G���?��� ���i���s��� ���t���r���u���e���)���.����C4R34����h�����-�/���0���3�#��#�� 4�5#��#��#��#��$��"��#��4>��"��G���     6�������������g��uri  ��g��body  ��g��port   ��g��version   ��g�� keep-alive?   ��g�� extra-headers   ��g��headers   ��g�� decode-body?   ���g��filenamef��web/client.scm ! # #  3 $  S & 0 Z & B f )  j *  l +  q )  � , �  � g��bodyS g��portS g��versionS g�� keep-alive?S g�� extra-headersS g��headersS g�� decode-body?S ���g��nameg�� http-get*g�� documentationf��2Deprecated in favor of (http-get #:streaming? #t).�C5R4� �h(���i���]�C�����a�������g��dummy  #�g�� http-verb  #�g��method   #�g��doc   #��  # ���C������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��web/client.scm 0 �  " ��g�� macro-typeg�� syntax-rulesg��patternsg�� http-verbg��methodg��doc���C5R3����h�����-�/���0���3�#��#�� 4�5#��#��#��#��#���     6�������g��uri  �g��body  �g��port   �g��version   �g�� keep-alive?   �g��headers   �g�� decode-body?   �g�� streaming?   ��g��filenamef��web/client.scm @ e A   @ �   g��bodyS g��portS g��versionS g�� keep-alive?S g��headersS g�� decode-body?S g�� streaming?S ���g��nameg�� http-headg�� documentation�k�@F���e���t���c���h��� ���m���e���s���s���a���g���e��� ���h���e���a���d���e���r���s��� ���f���o���r��� ���t���h���e��� ���g���i���v���e���n��� ���U���R���I��� ���u���s���i���n���g��� ���t���h���e��� ���H���T���T���P��� ���"���H���E���A���D���"��� ���m���e���t���h���o���d���.��� ��� ���T���h���i���s��� ���f���u���n���c���t���i���o���n��� ���i���s��� ���s���i���m���i���l���a���r��� ���t���o��� ��� ��h���t���t���p���-���g���e���t��� ��,��� ���e���x���c���e���p���t��� ���i���t��� ���u���s���e���s��� ���t���h���e��� ���"���H���E���A���D���"��� ���m���e���t���h���o���d���.��� ��� ���S���e���e��� ��� ��h���t���t���p���-���g���e���t��� �� ���f���o���r��� ���f���u���l���l��� ���d���o���c���u���m���e���n���t���a���t���i���o���n��� ���o���n��� ���t���h���e��� ���v���a���r���i���o���u���s��� ���k���e���y���w���o���r���d��� ���a���r���g���u���m���e���n���t���s��� ���t���h���a���t��� ���a���r���e��� ���a���c���c���e���p���t���e���d��� ���b���y��� ���t���h���i���s��� ���f���u���n���c���t���i���o���n���.��� ��� ���R���e���t���u���r���n���s��� ���t���w���o��� ���v���a���l���u���e���s���:��� ���t���h���e��� ���r���e���s���u���l���t���i���n���g��� ���r���e���s���p���o���n���s���e���,��� ���a���n���d��� ��� ��#���f��� ��.��� ��� ���R���e���s���p���o���n���s���e���s��� ���t���o��� ���H���E���A���D��� ���r���e���q���u���e���s���t���s��� ���d���o��� ���n���o���t��� ���h���a���v���e��� ���a��� ���b���o���d���y���.��� ��� ���T���h���e��� ���s���e���c���o���n���d��� ���v���a���l���u���e��� ���i���s��� ���o���n���l���y��� ���r���e���t���u���r���n���e���d��� ���s���o��� ���t���h���a���t��� ���o���t���h���e���r��� ���p���r���o���c���e���d���u���r���e���s��� ���c���a���n��� ���t���r���e���a���t��� ���a���l���l��� ���o���f��� ���t���h���e��� ���h���t���t���p���-���f���o���o��� ���v���e���r���b���s��� ���i���d���e���n���t���i���c���a���l���l���y���.����C6R3��������h���i��-�/���0���3�#��#�� 4�5#��#��#��#��#���     6�a������g��uri  �g��body  �g��port   �g��version   �g�� keep-alive?   �g��headers   �g�� decode-body?   �g�� streaming?   ��g��filenamef��web/client.scm M e N   M �   g��bodyS g��portS g��versionS g�� keep-alive?S g��headersS g�� decode-body?S g�� streaming?S ���g��nameg�� http-postg�� documentation�k�P���o���s���t��� ���d���a���t���a��� ���t���o��� ���t���h���e��� ���g���i���v���e���n��� ���U���R���I��� ���u���s���i���n���g��� ���t���h���e��� ���H���T���T���P��� ���"���P���O���S���T���"��� ���m���e���t���h���o���d���.��� ��� ���T���h���i���s��� ���f���u���n���c���t���i���o���n��� ���i���s��� ���s���i���m���i���l���a���r��� ���t���o��� ��� ��h���t���t���p���-���g���e���t��� ��,��� ���e���x���c���e���p���t��� ���i���t��� ���u���s���e���s��� ���t���h���e��� ���"���P���O���S���T���"��� ���m���e���t���h���o���d���.��� ��� ���S���e���e��� ��� ��h���t���t���p���-���g���e���t��� �� ���f���o���r��� ���f���u���l���l��� ���d���o���c���u���m���e���n���t���a���t���i���o���n��� ���o���n��� ���t���h���e��� ���v���a���r���i���o���u���s��� ���k���e���y���w���o���r���d��� ���a���r���g���u���m���e���n���t���s��� ���t���h���a���t��� ���a���r���e��� ���a���c���c���e���p���t���e���d��� ���b���y��� ���t���h���i���s��� ���f���u���n���c���t���i���o���n���.��� ��� ���R���e���t���u���r���n���s��� ���t���w���o��� ���v���a���l���u���e���s���:��� ���t���h���e��� ���r���e���s���u���l���t���i���n���g��� ���r���e���s���p���o���n���s���e���,��� ���a���n���d��� ���t���h���e��� ���r���e���s���p���o���n���s���e��� ���b���o���d���y���.����C7R3����h���]��-�/���0���3�#��#�� 4�5#��#��#��#��#���     6�U������g��uri  �g��body  �g��port   �g��version   �g�� keep-alive?   �g��headers   �g�� decode-body?   �g�� streaming?   ��g��filenamef��web/client.scm W e X   W �   g��bodyS g��portS g��versionS g�� keep-alive?S g��headersS g�� decode-body?S g�� streaming?S ���g��nameg��http-putg�� documentation��k�P���u���t��� ���d���a���t���a��� ���a���t��� ���t���h���e��� ���g���i���v���e���n��� ���U���R���I��� ���u���s���i���n���g��� ���t���h���e��� ���H���T���T���P��� ���"���P���U���T���"��� ���m���e���t���h���o���d���.��� ��� ���T���h���i���s��� ���f���u���n���c���t���i���o���n��� ���i���s��� ���s���i���m���i���l���a���r��� ���t���o��� ��� ��h���t���t���p���-���g���e���t��� ��,��� ���e���x���c���e���p���t��� ���i���t��� ���u���s���e���s��� ���t���h���e��� ���"���P���U���T���"��� ���m���e���t���h���o���d���.��� ��� ���S���e���e��� ��� ��h���t���t���p���-���g���e���t��� �� ���f���o���r��� ���f���u���l���l��� ���d���o���c���u���m���e���n���t���a���t���i���o���n��� ���o���n��� ���t���h���e��� ���v���a���r���i���o���u���s��� ���k���e���y���w���o���r���d��� ���a���r���g���u���m���e���n���t���s��� ���t���h���a���t��� ���a���r���e��� ���a���c���c���e���p���t���e���d��� ���b���y��� ���t���h���i���s��� ���f���u���n���c���t���i���o���n���.��� ��� ���R���e���t���u���r���n���s��� ���t���w���o��� ���v���a���l���u���e���s���:��� ���t���h���e��� ���r���e���s���u���l���t���i���n���g��� ���r���e���s���p���o���n���s���e���,��� ���a���n���d��� ���t���h���e��� ���r���e���s���p���o���n���s���e��� ���b���o���d���y���.����C8R3��������h�����-�/���0���3�#��#�� 4�5#��#��#��#��#���     6�}������g��uri  �g��body  �g��port   �g��version   �g�� keep-alive?   �g��headers   �g�� decode-body?   �g�� streaming?   ��g��filenamef��web/client.scm a e b   a �   g��bodyS g��portS g��versionS g�� keep-alive?S g��headersS g�� decode-body?S g�� streaming?S ���g��nameg�� http-deleteg�� documentation���k�D���e���l���e���t���e��� ���d���a���t���a��� ���a���t��� ���t���h���e��� ���g���i���v���e���n��� ���U���R���I��� ���u���s���i���n���g��� ���t���h���e��� ���H���T���T���P��� ���"���D���E���L���E���T���E���"��� ���m���e���t���h���o���d���.��� ��� ���T���h���i���s��� ���f���u���n���c���t���i���o���n��� ���i���s��� ���s���i���m���i���l���a���r��� ���t���o��� ��� ��h���t���t���p���-���g���e���t��� ��,��� ���e���x���c���e���p���t��� ���i���t��� ���u���s���e���s��� ���t���h���e��� ���"���D���E���L���E���T���E���"��� ���m���e���t���h���o���d���.��� ��� ���S���e���e��� ��� ��h���t���t���p���-���g���e���t��� �� ���f���o���r��� ���f���u���l���l��� ���d���o���c���u���m���e���n���t���a���t���i���o���n��� ���o���n��� ���t���h���e��� ���v���a���r���i���o���u���s��� ���k���e���y���w���o���r���d��� ���a���r���g���u���m���e���n���t���s��� ���t���h���a���t��� ���a���r���e��� ���a���c���c���e���p���t���e���d��� ���b���y��� ���t���h���i���s��� ���f���u���n���c���t���i���o���n���.��� ��� ���R���e���t���u���r���n���s��� ���t���w���o��� ���v���a���l���u���e���s���:��� ���t���h���e��� ���r���e���s���u���l���t���i���n���g��� ���r���e���s���p���o���n���s���e���,��� ���a���n���d��� ���t���h���e��� ���r���e���s���p���o���n���s���e��� ���b���o���d���y���.����C9R3��������h�����-�/���0���3�#��#�� 4�5#��#��#��#��#���     6�������g��uri  �g��body  �g��port   �g��version   �g�� keep-alive?   �g��headers   �g�� decode-body?   �g�� streaming?   ��g��filenamef��web/client.scm k e l   k �   g��bodyS g��portS g��versionS g�� keep-alive?S g��headersS g�� decode-body?S g�� streaming?S ���g��nameg�� http-traceg�� documentationk�dS���e���n���d��� ���a���n��� ���H���T���T���P��� ���"���T���R���A���C���E���"��� ���r���e���q���u���e���s���t���.��� ��� ���T���h���i���s��� ���f���u���n���c���t���i���o���n��� ���i���s��� ���s���i���m���i���l���a���r��� ���t���o��� ��� ��h���t���t���p���-���g���e���t��� ��,��� ���e���x���c���e���p���t��� ���i���t��� ���u���s���e���s��� ���t���h���e��� ���"���T���R���A���C���E���"��� ���m���e���t���h���o���d���.��� ��� ���S���e���e��� ��� ��h���t���t���p���-���g���e���t��� �� ���f���o���r��� ���f���u���l���l��� ���d���o���c���u���m���e���n���t���a���t���i���o���n��� ���o���n��� ���t���h���e��� ���v���a���r���i���o���u���s��� ���k���e���y���w���o���r���d��� ���a���r���g���u���m���e���n���t���s��� ���t���h���a���t��� ���a���r���e��� ���a���c���c���e���p���t���e���d��� ���b���y��� ���t���h���i���s��� ���f���u���n���c���t���i���o���n���.��� ��� ���R���e���t���u���r���n���s��� ���t���w���o��� ���v���a���l���u���e���s���:��� ���t���h���e��� ���r���e���s���u���l���t���i���n���g��� ���r���e���s���p���o���n���s���e���,��� ���a���n���d��� ���t���h���e��� ���r���e���s���p���o���n���s���e��� ���b���o���d���y���.����C:R3����h�����-�/���0���3�#��#�� 4�5#��#��#��#��#���     6�������g��uri  �g��body  �g��port   �g��version   �g�� keep-alive?   �g��headers   �g�� decode-body?   �g�� streaming?   ��g��filenamef��web/client.scm u e v   u �   g��bodyS g��portS g��versionS g�� keep-alive?S g��headersS g�� decode-body?S g�� streaming?S ���g��nameg�� http-optionsg�� documentation��k� Q���u���e���r���y��� ���c���h���a���r���a���c���t���e���r���i���s���t���i���c���s��� ���o���f��� ���a���n��� ���H���T���T���P��� ���r���e���s���o���u���r���c���e��� ���u���s���i���n���g��� ���t���h���e��� ���H���T���T���P��� ���"���O���P���T���I���O���N���S���"��� ���m���e���t���h���o���d���.��� ��� ���T���h���i���s��� ���f���u���n���c���t���i���o���n��� ���i���s��� ���s���i���m���i���l���a���r��� ���t���o��� ��� ��h���t���t���p���-���g���e���t��� ��,��� ���e���x���c���e���p���t��� ���i���t��� ���u���s���e���s��� ���t���h���e��� ���"���O���P���T���I���O���N���S���"��� ���m���e���t���h���o���d���.��� ��� ���S���e���e��� ��� ��h���t���t���p���-���g���e���t��� �� ���f���o���r��� ���f���u���l���l��� ���d���o���c���u���m���e���n���t���a���t���i���o���n��� ���o���n��� ���t���h���e��� ���v���a���r���i���o���u���s��� ���k���e���y���w���o���r���d��� ���a���r���g���u���m���e���n���t���s��� ���t���h���a���t��� ���a���r���e��� ���a���c���c���e���p���t���e���d��� ���b���y��� ���t���h���i���s��� ���f���u���n���c���t���i���o���n���.��� ��� ���R���e���t���u���r���n���s��� ���t���w���o��� ���v���a���l���u���e���s���:��� ���t���h���e��� ���r���e���s���u���l���t���i���n���g��� ���r���e���s���p���o���n���s���e���,��� ���a���n���d��� ���t���h���e��� ���r���e���s���p���o���n���s���e��� ���b���o���d���y���.����C;RC��%������g��m  ,�g��proxy : O��g��filenamef��web/client.scm  ! - 9  2 9  8 9 ' : 9  : 9  @ : , A :  E :  Q 9  T 8 n =  C & h  q  � % � = � @ ! K @ R M Z W a@ a g k od u �  of ���C6��������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/web/http.go������������������������������������������������������������������������������0000644�����������������00000364241�15146341264�0010354 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0�����]}�4�hg������]� g��guile � g��define-module* � � g��web g��http � g��filenameS f�� web/http.scm g��importsS g��srfi g��srfi-1   � g��selectS g�� append-map! g��map! � � g��srfi-9  � � g��srfi-19  � � g��ice-9 g��rdelim � � g��match � � !g��q "!� #"� $g�� binary-ports %$� &%� 'g��rnrs (g�� bytevectors )'(� *)� +g��uri ,+� -,� . #&*-�  /g��exportsS 0g��string->header 1g��header->string 2g��declare-header! 3g��declare-opaque-header! 4g�� known-header? 5g�� header-parser 6g��header-validator 7g�� header-writer 8g�� read-header 9g�� parse-header :g�� valid-header? ;g�� write-header <g�� read-headers =g�� write-headers >g��parse-http-method ?g��parse-http-version @g��parse-request-uri Ag��read-request-line Bg��write-request-line Cg��read-response-line Dg��write-response-line Eg��make-chunked-input-port Fg��make-chunked-output-port Gg��http-proxy-port? Hg��set-http-proxy-port?! I0123456789:;<=>?@ABCDEFGH� Jg��set-current-module KJ� LJ� Mg��string->symbol Ng��string-downcase Og�� <header-decl> Pg��%make-header-decl-procedure Qg��make-syntax-transformer RQ� SQ� Tg��make-header-decl Ug��macro Vg�� $sc-dispatch WV� XV� Yg��_ Zg��any [YZZZZZ� \g�� syntax-object ]g��lambda ^g�� m-556baa-a _g��top `^_� ag��ribcage bg�� t-556baa-5 cg�� t-556baa-6 dg�� t-556baa-7 eg�� t-556baa-8 fg�� t-556baa-9 gbcdef� h`````� if�� l-556baa-f jf�� l-556baa-10 kf�� l-556baa-11 lf�� l-556baa-12 mf�� l-556baa-13 nijklm� oaghn� pa� qg��x rq� s`� tf�� l-556baa-c ut� varsu� wg��shift xg�� proc-name yg��args zxy� {_� |{{� }f��l-1e8ba8b5a-2ba ~f��l-1e8ba8b5a-2bb }~� �az|� �g��key �g��value �g��name �g��formals �g��body �� �{{{{{� �f��l-1e8ba8b5a-2ad �f��l-1e8ba8b5a-2ae �f��l-1e8ba8b5a-2af �f��l-1e8ba8b5a-2b0 �f��l-1e8ba8b5a-2b1 �� �a� �g��make-procedure-name �� �{� �f��l-1e8ba8b5a-29d �� �a� �{� �f��l-1e8ba8b5a-29c �� �ar� �`opvwpppp�  �g��hygiene � � �\]� �{opv� �� �\� �g��parser �\� �g�� validator �\� �g��writer �\� �g�� multiple? �\� �� �g�� make-struct �g�� m-556baa-3 �_� �g��t-1e8ba8b5a-38d �g��t-1e8ba8b5a-38c �g��t-1e8ba8b5a-38b �� �g��m-1e8ba8b5a-38e �_� �� �f��l-1e8ba8b5a-392 �f��l-1e8ba8b5a-393 �f��l-1e8ba8b5a-394 �� �a� �g�� ctor-args �� �f��l-1e8ba8b5a-37a �� �a� �g��ctor �g��field �� �f��l-1e8ba8b5a-376 �f��l-1e8ba8b5a-377 �� �a|� �g��form �g�� type-name �g��constructor-spec �g�� field-names �� �{{{{� �f��l-1e8ba8b5a-36b �f��l-1e8ba8b5a-36c �f��l-1e8ba8b5a-36d �f��l-1e8ba8b5a-36e �� �a� �g�� record-layout �g��functional-setters �g��setters �g��copier �g��getters �g�� constructor �g��getter-identifiers �g��field-identifiers �� �{{{{{{{{� �f��l-1e8ba8b5a-343 �f��l-1e8ba8b5a-341 �f��l-1e8ba8b5a-33f �f��l-1e8ba8b5a-33d �f��l-1e8ba8b5a-33b �f��l-1e8ba8b5a-339 �f��l-1e8ba8b5a-337 �f��l-1e8ba8b5a-335 �� �a� �f��l-1e8ba8b5a-334 �� �ar� �opvwppppp� �\� �\O� �\ � �� �� �g��each-any �Y팤 �g��syntax-violation �� �� �f��Wrong number of arguments �g�� identifier? �� �� �{pv� �\P� �� �� �f��-source expression failed to match any pattern �g��record-type-vtable �� �� �g�� pwpwpwpwpw �g��default-record-printer �� � � g��set-struct-vtable-name! � � g��vtable-offset-user � �  g��%header-decl?-procedure  g�� header-decl?  YZ�  g�� m-556baa-1f   _� g�� t-556baa-1e �  � f�� l-556baa-24 � a� f�� l-556baa-21 � ar�  pwpppp�  \]� g��obj g��t-1e8ba8b5a-47e g��t-1e8ba8b5a-478 g��t-1e8ba8b5a-479 g��t-1e8ba8b5a-47a g��t-1e8ba8b5a-47d g��t-1e8ba8b5a-47c  g��t-1e8ba8b5a-47b ! � "g��m-1e8ba8b5a-47f #"_� $#######� %f��l-1e8ba8b5a-483 &f��l-1e8ba8b5a-484 'f��l-1e8ba8b5a-485 (f��l-1e8ba8b5a-486 )f��l-1e8ba8b5a-487 *f��l-1e8ba8b5a-488 +f��l-1e8ba8b5a-489 ,%&'()*+� -a!$,� .g�� copier-id /.� 0f��l-1e8ba8b5a-476 10� 2a/1� 3g�� ctor-name 43� 5f��l-1e8ba8b5a-46e 65� 7a46� 8� 9f��l-1e8ba8b5a-46c :9� ;a8:� <g��layout =<� >f��l-1e8ba8b5a-46a ?>� @a=?� Ag�� immutable? BA� Cf��l-1e8ba8b5a-468 DC� EaBD� Fg�� field-count GF� Hf��l-1e8ba8b5a-466 IH� JaGI� Kg�� getter-ids LK� Mf��l-1e8ba8b5a-463 NM� OaLN� Pg�� field-ids QP� Rf��l-1e8ba8b5a-460 SR� TaQS� Ug��predicate-name Vg�� field-spec WAUV� X{{{{{{� Yf��l-1e8ba8b5a-453 Zf��l-1e8ba8b5a-454 [f��l-1e8ba8b5a-455 \f��l-1e8ba8b5a-456 ]f��l-1e8ba8b5a-457 ^f��l-1e8ba8b5a-458 _YZ[\]^� `aWX_� apwp-pppp2p7p;p@pEpJpOpT`� b\a� cb� dg��and e\da� fg��struct? g\fa� hgb� ig��eq? j\ia� kg�� struct-vtable l\ka� mlb� n{p� o\On� pjmo� qehp� rcq� s{p� t\ s� ug��throw-bad-struct vu� wu� xg��header-decl-name yg��%header-decl-name-procedure zg��free-id {g�� %%on-error |g�� m-556baa-2b }|_� ~}� f�� l-556baa-2d � ar~� }pwpppp�  \{� z� Z� g��%%type g��t-1e8ba8b5a-3a5 g��t-1e8ba8b5a-3a6 g��t-1e8ba8b5a-3a7 g��t-1e8ba8b5a-3a8 g��t-1e8ba8b5a-3a9 g��t-1e8ba8b5a-3aa g��t-1e8ba8b5a-3ab � g��m-1e8ba8b5a-3ac _� � f��l-1e8ba8b5a-3b0 f��l-1e8ba8b5a-3b1 f��l-1e8ba8b5a-3b2 f��l-1e8ba8b5a-3b3 f��l-1e8ba8b5a-3b4 f��l-1e8ba8b5a-3b5 f��l-1e8ba8b5a-3b6 � a� g��getter g��index � f��l-1e8ba8b5a-3a3 f��l-1e8ba8b5a-3a4 � a|� K.� {{{� f��l-1e8ba8b5a-39e f��l-1e8ba8b5a-39f f��l-1e8ba8b5a-3a0 � a� pwppppp� \� z� YZ� g��ck g��err g��s � }}� f�� l-556baa-30 f�� l-556baa-31 � a� }pwpppp�  \� g��quote \� {p� \O� � � g��%%index \� z� YZ� f�� l-556baa-35 f�� l-556baa-36 � a� }pwpppp�  \� \� p� \ � � � g��%%copier \� z� YZ� f�� l-556baa-3a f�� l-556baa-3b � a� }pwpppp�  \� \� g��%%<header-decl>-set-fields {p� \� � � g�� t-556baa-2a � f�� l-556baa-3f � a~� }pwpppp�  \]� pwppppp� \� � g��if \� \i� \k� � {p� \O� � g�� struct-ref \� p� \ � � \u� \� \x� � � � � {p� \y� g��header-decl-parser g��%header-decl-parser-procedure g�� m-556baa-46 �_� �� f�� l-556baa-48 � ar� �pwpppp�  \{� z� Z�  pwppppp�  \ �  z �  Y Z�  ��� f�� l-556baa-4b f�� l-556baa-4c � a � �pwpppp�  \� \� {p� \O� � � \ � z� YZ� f�� l-556baa-50 f�� l-556baa-51 � a �  �pwpppp�  !\ � "\ � #p� $\ #� %"$� &%� '\ � (z'� )Y(Z� *f�� l-556baa-55 +f�� l-556baa-56 ,*+� -a ,� .�-pwpppp�  /\.� 0\.� 1{-p� 2\1� 302� 43� 5g�� t-556baa-45 65� 7f�� l-556baa-5a 87� 9a68� :�9pwpppp�  ;\]:� <9pwppppp� =\<� >=� ?\<� @\i<� A\k<� BA=� C{9p� D\OC� E@BD� F\<� G9p� H\ G� IF=H� J\u<� K\<� L\C� MKL� NJ=M� O?EIN� P;>O� Q{p� R\Q� Sg��header-decl-validator Tg�� %header-decl-validator-procedure Ug�� m-556baa-61 VU_� WV� Xf�� l-556baa-63 YX� ZarWY� [VpZwpppp�  \\{[� ]z\� ^]Z� _pZwppppp� `\_� az`� bY^aZ� cVV� df�� l-556baa-66 ef�� l-556baa-67 fde� gacf� hVgpZwpppp�  i\h� j\h� k{gpZ� l\Ok� mjl� nm� o\_� pzo� qY^pZ� rf�� l-556baa-6b sf�� l-556baa-6c trs� uact� vVupZwpppp�  w\v� x\v� yupZ� z\ y� {xz� |{� }\_� ~z}� Y^~Z� f�� l-556baa-70 f�� l-556baa-71 � ac� VpZwpppp�  \� \� {pZ� \� � � g�� t-556baa-60 � f�� l-556baa-75 � aW� VpZwpppp�  \]� pZwppppp� \� � \� \i� \k� � {pZ� \O� � \� pZ� \ � � \u� \� \S� � � � � {pZ� \T� g��header-decl-writer g��%header-decl-writer-procedure g�� m-556baa-7c _� � f�� l-556baa-7e � ar� pwpppp�  \{� z� Z� pwppppp� \� z� YZ� � f�� l-556baa-81 f�� l-556baa-82 � a� pwpppp�  \� \� {p� \O� � � \� z� YZ� f�� l-556baa-86 f�� l-556baa-87 � a� pwpppp�  \� \� p� \ � � � \� z� YZ� f�� l-556baa-8b f�� l-556baa-8c � a� pwpppp�  \� \� {p� \� � � g�� t-556baa-7b � f�� l-556baa-90 � a� pwpppp�  \]� pwppppp� \� � \� \i� \k� � {p� \O� � \� p� \ � � \u� \� \� � � � � {p� \� g��header-decl-multiple? �g�� %header-decl-multiple?-procedure g�� m-556baa-97 _� � f�� l-556baa-99 � ar� pwpppp�  \{�  z�   Z�  pwppppp�  \ �  z � Y  Z� � f�� l-556baa-9c f�� l-556baa-9d � a� pwpppp�  \� \� {p� \O� � � \ � z� Y Z� f�� l-556baa-a1 f�� l-556baa-a2  � !a � "!pwpppp�  #\"� $\"� %!p� &\ %� '$&� ('� )\ � *z)� +Y *Z� ,f�� l-556baa-a6 -f�� l-556baa-a7 .,-� /a.� 0/pwpppp�  1\0� 2\0� 3{/p� 4\3� 524� 65� 7g�� t-556baa-96 87� 9f�� l-556baa-ab :9� ;a8:� <;pwpppp�  =\]<� >;pwppppp� ?\>� @?� A\>� B\i>� C\k>� DC?� E{;p� F\OE� GBDF� H\>� I;p� J\ I� KH?J� L\u>� M\>� N\E� OMN� PL?O� QAGKP� R=@Q� S{p� T\�S� Ug��each VZZ� WUV� XZW YZX ZZY [g�� %%set-fields \g��dummy ]g��check? ^g��expr _\]^� `g�� m-556baa-b2 a`_� ba� cf�� l-556baa-b7 df�� l-556baa-b8 ef�� l-556baa-b9 ff�� l-556baa-ba gf�� l-556baa-bb hcdefg� ia_bh� ja� kf�� l-556baa-b4 lk� marjl� ng��t-1e8ba8b5a-3c4 og��t-1e8ba8b5a-3c6 pg��t-1e8ba8b5a-3c5 qnop� rg��m-1e8ba8b5a-3c7 sr_� tsss� uf��l-1e8ba8b5a-3cb vf��l-1e8ba8b5a-3cc wf��l-1e8ba8b5a-3cd xuvw� yaqtx� zf��l-1e8ba8b5a-3c1 {f��l-1e8ba8b5a-3c2 |f��l-1e8ba8b5a-3c3 }z{|� ~a}� ipmwpyppp~�  \[� {ipm� \O� \x� \� \S� \� \� � g��map � � g��list g��make-hash-table g��*declared-headers* g�� hashq-ref g��lookup-header-decl g�� multiple?S   � g��error f��bad header decl g��string? g�� hashq-set! g��string-titlecase g��symbol->string g��display g�� %read-line g��string-suffix? f��  g��string-drop-right g�� bad-header g��read-header-line � � f��no matching pattern g�� peek-char g��read-continuation-line g�� string-append g��call-with-input-string f��� g��read g��*eof* g�� string-null? g��string=? g�� string-index g��%read g�� substring g��string-trim-both g��char-set:whitespace f��header name not a symbol f��:  f��  g�� eof-object? g��reverse! g��throw g��bad-header-component g��format f��Bad ~a header: ~a  g��bad-header-printer f��Bad ~a header component: ~a  g��bad-header-component-printer g��set-exception-printer! g��parse-opaque-string g��validate-opaque-string g��write-opaque-string g��string->char-set f��[^][()<>@,;:\"?= ] g��separators-without-slash g�� string-rindex g��validate-media-type g�� media-type g��parse-media-type g�� string-length g��char-whitespace? g�� string-ref g��skip-whitespace g��trim-whitespace g��split-and-trim g��list-of? g��list-of-strings? g�� write-list f��,  g��write-list-of-strings g��split-header-names g��symbol? g��list-of-header-names? g��write-header-list g�� make-string g��substring-move! g�� string-set! g��collect-escaped-string g�� incremental?S   � g��qstring g�� parse-qstring g�� string-split f��\" g�� write-qstring g��string= f��1 f��1. f��1.0 f��1.00 f��1.000 g��quality f��0 f��0. g�� char->integer g�� parse-quality g��non-negative-integer? g��valid-quality? g�� integer->char g�� write-quality g��string-prefix? f��q= g��parse-quality-list g��validate-quality-list f��;q= f��, g��write-quality-list g��non-negative-integer g��parse-non-negative-integer g��number? g��exact? g��integer? g��default-val-parser �g��default-val-validator g��default-val-writer g��min g��key-value-list g��parse-key-value-list g��key-value-list? g��write-key-value-list g��char-set g��param-delimiters  g��char-set-adjoin  g��param-value-delimiters  g��parse-param-component  g�� param-list  g��parse-param-list g��validate-param-list f��; g��write-param-list g�� string-match? YZZ� g�� syntax->datum g�� char-numeric? g�� t-556baa-43c � g�� m-556baa-43d _� � f�� l-556baa-440 � a� � g�� m-556baa-439 _�  � !f�� l-556baa-43a "!� #a "� $g��c %$� &f�� l-556baa-437 '&� (a%'� )g��lp *g��i +g��tests ,)*+� -f�� l-556baa-431 .f�� l-556baa-432 /f�� l-556baa-433 0-./� 1a,0� 2g��p 32� 4f�� l-556baa-424 54� 6a35� 7g��str 8g��pat 978� :f�� l-556baa-420 ;f�� l-556baa-421 <:;� =a9|<� >f�� l-556baa-419 ?>� @ar?� A{pp#p(p1ppp6=p@� B\A� C\A� D\A� Eg��char-alphabetic? Fg�� t-556baa-442 GF� Hg�� m-556baa-443 IH_� JI� Kf�� l-556baa-446 LK� MaGJL� N{pMp#p(p1ppp6=p@� O\EN� P\N� Q\N� Rg��eqv? Sg�� t-556baa-448 Tg�� t-556baa-449 UST� Vg�� m-556baa-44a WV_� XWW� Yf�� l-556baa-44e Zf�� l-556baa-44f [YZ� \aUX[� ]{p\p#p(p1ppp6=p@� ^\R]� _\]� `\]� aZ� bg��let cg�� t-556baa-426 dg�� t-556baa-427 ecd� fg�� m-556baa-428 gf_� hgg� if�� l-556baa-42c jf�� l-556baa-42d kij� laehk� m{plppp6=p@�  n\bm� o\m� p\dm� qg��= r\qm� s\m� tso� ug��month vg�� parse-month wf��GMT xf��UTC yg�� zone-offset zg��parse-zone-offset {g��date |{� }{� ~g��parse-rfc-822-date g�� current-date g�� date-year g��parse-rfc-850-date g��parse-asctime-date g��date-zone-offset g��time-utc->date g��date->time-utc g��normalize-date g��catch � � g�� parse-date g�� truncate/ g��floor/ g��expt g��time-tai->date g��date->time-tai g�� date-week-day f��Sun,  f��Mon,  f��Tue,  f��Wed,  f��Thu,  f��Fri,  f��Sat,  f��bad date g��date-day g�� date-month f�� Jan  f�� Feb  f�� Mar  f�� Apr  f�� May  f�� Jun  f�� Jul  f�� Aug  f�� Sep  f�� Oct  f�� Nov  f�� Dec  g�� date-hour g�� date-minute g�� date-second f�� GMT g�� write-date f��W/ f��" g��parse-entity-tag g�� entity-tag? g��write-entity-tag g��parse-entity-tag-list g��entity-tag-list g��entity-tag-list? g��write-entity-tag-list g�� authorization g��basic g�� credentials g��parse-credentials g��validate-credentials g��write-credentials g�� challenge g��parse-challenge g��reverse g��parse-challenges g��validate-challenges g��write-challenge g��write-challenges g�� bad-request g�� bad-response g��*known-versions* g�� http-version f��HTTP/ g��write-http-version g��for-each f��HTTP/1.0 f��HTTP/1.1 � f��GET g��GET f��HEAD g��HEAD f��POST g��POST f��PUT g��PUT f��DELETE g��DELETE f��OPTIONS g��OPTIONS f��TRACE g��TRACE f��Invalid method: ~a f��Missing Request-URI f��* g�� build-uri g��pathS g��queryS g��fragmentS g�� string->uri f��Invalid URI: ~a f��Bad Request-Line: ~s g��<uri> ,� ,� g��uri-host g�� uri-scheme f��:// g�� uri-userinfo g��uri-port g��uri-path f��"Empty path and no host for URI: ~s f��Non-absolute URI path: ~s g�� uri-query g�� write-uri g�� default-port? ,� ,� f��/ f��? f��Bad Response-Line: ~s g��%date?-procedure � � g��declare-date-header! g��declare-string-list-header! g��declare-symbol-list-header! g��declare-header-list-header! g��declare-integer-header! g�� absolute-uri? �,� ,� g��declare-uri-header! g�� string->uri* ,� ,� g��%uri?-procedure ,� ,�  g��declare-relative-uri-header!  g��declare-quality-list-header!  g��declare-param-list-header!  g��declare-key-value-list-header!  g��* g��declare-entity-tag-list-header! g��declare-credentials-header! g��declare-challenge-list-header! f�� Cache-Control g��max-age g�� min-fresh g��s-maxage g�� max-stale g��private g��no-cache g��no-store g�� no-transform g�� only-if-cache g��must-revalidate g��proxy-revalidate g�� cache-control f�� Connection g��close  f��close !f��Date "f��Pragma #f��Trailer $f��Transfer-Encoding %f��Upgrade &f��Via 'f��Warning (g��warning )g��length *f��Allow +f��Content-Disposition ,g��content-disposition -f��Content-Encoding .f��Content-Language /f��Content-Length 0f��Content-Location 1f�� Content-MD5 2f�� Content-Range 3g�� content-range 4f��bytes  5g��bytes 6f�� Content-Type 7g�� content-type 8g�� string-trim 9g��string-trim-right :f��Thu, 01 Jan 1970 00:00:00 GMT ;g��*date-in-the-past* <f��Expires =g��member >f��-1 ?>� @f�� Last-Modified Af��Accept Bf��Accept-Charset Cf��Accept-Encoding Df��Accept-Language Ef�� Authorization Ff��Expect Gf��From Hf��Host Ig��host Jf��If-Match Kf��If-Modified-Since Lf�� If-None-Match Mf��If-Range Nf��If-Unmodified-Since Of�� Max-Forwards Pf��Proxy-Authorization Qf��Range Rf��bytes= Sg��range Tf��Referer Uf��TE Vf�� User-Agent Wf�� Accept-Ranges Xf��Age Yf��ETag Zf��Location [f��Proxy-Authenticate \f�� Retry-After ]f��Server ^f��Vary _f��WWW-Authenticate `g�� read-line ag��char=? bg��string->number cg��read-chunk-header dg�� keep-alive?S ed  fe� gg��get-bytevector-n! hg��get-u8 ig��make-custom-binary-input-port jf��chunked input port kg�� close-port lg��q-empty? mg��deq! ng��q-length og��number->string pg�� write-char qg��make-q rg��make-soft-port sg��enq! tg��string-for-each uf��0  vg�� force-output wf��w xg��make-object-property yg��%http-proxy-port? zg��setter {z� |z�C�5�����hHk���]4   ./I5�4L�>��"��G���MN����h������]4�56����������g��name  ��g��filenamef�� web/http.scm K  M  M �  ��g��nameg��string->headerg�� documentationf��%Parse NAME to a symbolic header name.�C0RO��������h������]��C�������������g��name  �g��parser  �g�� validator   �g��writer   �g�� multiple?   ��g��filenamef�� web/http.scm O �   ��g��nameg��%make-header-decl-procedure�CPR4STUX[����h������]��C�������������g�� t-556baa-5  �g�� t-556baa-6  �g�� t-556baa-7   �g�� t-556baa-8   �g�� t-556baa-9   ��   ���CT��h���O���]L�6����G�������g��a  ��g��filenamef�� web/http.scm  O �  ���CY�h���?���]�L�67�������g��filenamef�� web/http.scm  O �   ���C���h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��x�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef�� web/http.scm O �  n ���C5TRO��4�O>��"��G��� Pi��ORO�h���t���]�$���CC������l�������g��obj  ��g��filenamef�� web/http.scm O �   ��g��nameg��%header-decl?-procedure�C R4S UX r���h���3���]��C������+�������g�� t-556baa-1e  ��  ���C ��������h���O���]L�6����G�������g��a  ��g��filenamef�� web/http.scm  O �  ���CY�h���?���]�L�67�������g��filenamef�� web/http.scm  O �   ���Ct��h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��x�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef�� web/http.scm O �  n ���C5 ROwx������h���v���]�&��� C�6n�������g��s  ��g��filenamef�� web/http.scm O �   ��g��nameg��%header-decl-name-procedure�CyR4SxUX������h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C ����h���3���]��C������+�������g�� t-556baa-2a  ��  ���Cx��������h���O���]L�6����G�������g��a  ��g��filenamef�� web/http.scm  O �  ���CY�h���?���]�L�67�������g��filenamef�� web/http.scm  O �   ���C��h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef�� web/http.scm O �  � ���C5xROw��h���x���]�&��� C�6p�������g��s  ��g��filenamef�� web/http.scm O �   ��g��nameg��%header-decl-parser-procedure�CR4SUX ����h���:���]C�����2�������g��err  �g��s  ��  ���C!&�h���:���]C�����2�������g��err  �g��s  ��  ���C)/4�h���:���]C�����2�������g��err  �g��s  ��  ���C P����h���3���]��C������+�������g�� t-556baa-45  ��  ���C��������h���O���]L�6����G�������g��a  ��g��filenamef�� web/http.scm  O �  ���CY�h���?���]�L�67�������g��filenamef�� web/http.scm  O �   ���CR��h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef�� web/http.scm O �  � ���C5ROwS��h ���{���]�&��� C�6�������s�������g��s  ��g��filenamef�� web/http.scm O �   ��g��nameg�� %header-decl-validator-procedure�CTR4SSUXbin�h���:���]C�����2�������g��err  �g��s  ��  ���Cqw|�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C ����h���3���]��C������+�������g�� t-556baa-60  ��  ���CS��������h���O���]L�6����G�������g��a  ��g��filenamef�� web/http.scm  O �  ���CY�h���?���]�L�67�������g��filenamef�� web/http.scm  O �   ���C��h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef�� web/http.scm O �  � ���C5SROw��h ���x���]�&��� C�6�������p�������g��s  ��g��filenamef�� web/http.scm O �   ��g��nameg��%header-decl-writer-procedure�CR4SUX����h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C ����h���3���]��C������+�������g�� t-556baa-7b  ��  ���C��������h���O���]L�6����G�������g��a  ��g��filenamef�� web/http.scm  O �  ���CY�h���?���]�L�67�������g��filenamef�� web/http.scm  O �   ���C��h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef�� web/http.scm O �  � ���C5ROw��h ���{���]�&��� C�6�������s�������g��s  ��g��filenamef�� web/http.scm O �   ��g��nameg�� %header-decl-multiple?-procedure�C�R4SUX�h���:���]C�����2�������g��err  �g��s  ��  ���C#(�h���:���]C�����2�������g��err  �g��s  ��  ���C+16�h���:���]C�����2�������g��err  �g��s  ��  ���C R����h���3���]��C������+�������g�� t-556baa-96  ��  ���C��������h���O���]L�6����G�������g��a  ��g��filenamef�� web/http.scm  O �  ���CY�h���?���]�L�67�������g��filenamef�� web/http.scm  O �   ���CT��h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef�� web/http.scm O �  � ���C5R4SUXZ�����h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef�� web/http.scm O �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5R4i5�R��h���w���]�6������o�������g��sym  ��g��filenamef�� web/http.scm [ \ �  ��g��nameg��lookup-header-decl�CRO0� ��h�����-�/���0���3�#��"���64�5$��M$��C$��9$��/��44�5>��"��G��C""""����������g��name  ��g��parser  ��g�� validator   ��g��writer   ��g�� multiple?   ��g��decl  \ |��g��filenamef�� web/http.scm ^ $ h 0 h  0 d  1 d ; d  A d  \ e  \ e  _ f  d f ' q f �  �  g�� multiple?S ���g��nameg��declare-header!g�� documentationf��;Declare a parser, validator, and writer for a given header.�C2ROwx�����h8������] 4�5$��&�� C64�56�������������g��sym  2�g��decl 2��g��filenamef�� web/http.scm j  l  l   m   n  * o  2 o �  2 ��g��nameg��header->stringg�� documentationf��0Return the string form for the header named SYM.�C1R����h�����]4�5$��CC�������������g��sym  ��g��filenamef�� web/http.scm q  t  t �   ��g��nameg�� known-header?g�� documentation�k�pR���e���t���u���r���n��� ��� ��#���t��� �� ���i���f���f��� ���S���Y���M��� ���i���s��� ���a��� ���k���n���o���w���n��� ���h���e���a���d���e���r���,��� ���w���i���t���h��� ���a���s���s���o���c���i���a���t���e���d��� ���p���a���r���s���e���r���s��� ���a���n���d��� ���s���e���r���i���a���l���i���z���a���t���i���o���n��� ���p���r���o���c���e���d���u���r���e���s���.����C4ROw������h���O���]�C���G�������g��x  ��g��filenamef�� web/http.scm ~ �   ���C������h0�����] 4�5$��&�� C6C������������g��sym  *�g��decl *��g��filenamef�� web/http.scm v  {  {   |   } �  * ��g��nameg�� header-parserg�� documentationf��Return the value parser for headers named SYM. The result is a procedure that takes one argument, a string, and returns the parsed value. If the header isn't known to Guile, a default parser is returned that passes through the string unchanged.�C5ROwS����h0�����] 4�5$��&�� C6C�����������g��sym  +�g��decl +��g��filenamef�� web/http.scm �  �  �   �   � �  + ��g��nameg��header-validatorg�� documentationk�DR���e���t���u���r���n��� ���a��� ���p���r���e���d���i���c���a���t���e��� ���w���h���i���c���h��� ���r���e���t���u���r���n���s��� ��� ��#���t��� �� ���i���f��� ���t���h���e��� ���g���i���v���e���n��� ���v���a���l���u���e��� ���i���s��� ���v���a���l���i���d��� ���f���o���r��� ���h���e���a���d���e���r���s��� ���n���a���m���e���d��� ���S���Y���M���.��� ��� ���T���h���e��� ���d���e���f���a���u���l���t��� ���v���a���l���i���d���a���t���o���r��� ���f���o���r��� ���u���n���k���n���o���w���n��� ���h���e���a���d���e���r���s��� ���i���s��� ��� ��s���t���r���i���n���g���?��� ��.����C6ROw������h0���]��] 4�5$��&�� C6C�����U������g��sym  +�g��decl +��g��filenamef�� web/http.scm �  �  �   �   � �  + ��g��nameg�� header-writerg�� documentation���k�R���e���t���u���r���n��� ���a��� ���p���r���o���c���e���d���u���r���e��� ���t���h���a���t��� ���w���r���i���t���e���s��� ���v���a���l���u���e���s��� ���f���o���r��� ���h���e���a���d���e���r���s��� ���n���a���m���e���d��� ���S���Y���M��� ���t���o��� ���a��� ���p���o���r���t���.��� ��� ���T���h���e��� ���r���e���s���u���l���t���i���n���g��� ���p���r���o���c���e���d���u���r���e��� ���t���a���k���e���s��� ���t���w���o��� ���a���r���g���u���m���e���n���t���s���:��� ���a��� ���v���a���l���u���e��� ���a���n���d��� ���a��� ���p���o���r���t���.��� ���T���h���e��� ���d���e���f���a���u���l���t��� ���w���r���i���t���e���r��� ���i���s��� ��� ��d���i���s���p���l���a���y��� ��.����C7R� ������hp�����]!4�5$��M45$��, $��45$�� 6C664  56�����������g��port  l�g��v l�g��w   _�g��x   _�g��w  I S�g��w  U _��g��filenamef�� web/http.scm �  �  1 � 5 �  9 � = �  D � I �  O �  S �  U �  [ �  _ �  ` � �  l ��g��nameg��read-header-lineg�� documentationf��Read an HTTP header line and return it without its final CRLF or LF. Raise a 'bad-header' exception if the line does not end in CRLF or LF, or if EOF is reached.�CR�������hH������] 4�5 $��"�� 4�5 $���44�556C��������������g��port  A�g��val  A�g��t  &��g��filenamef�� web/http.scm �  �  � �   �  # � * �  / �  4 � - < �  > � �  A ��g��nameg��read-continuation-line�CR4ii5R09�����h�����]4�545$��"�� 45$��D4:5$��"�� 454 4  554 4 �4 555D�������������g��port  ��g��line ��g��t   +�g��t  > X�g��delim  X ��g��sym  i ���g��filenamef�� web/http.scm �  �  �  �  �  � & �  ( � / �  5 �  6 �  > �  M �  Q � & U �  X �  [ �  ^ � $ i �  i �  n � s � x � � � 8 � � � � � � � � �  � ��g��nameg�� read-headerg�� documentationf�Read one HTTP header from PORT. Return two values: the header name and the parsed Scheme value. May raise an exception if the header was known but the value was invalid. Returns the end-of-file object for both values if the end of the message body was reached (i.e., a blank line).�C8R5�����h�����]4�56����������g��sym  �g��val  ��g��filenamef�� web/http.scm �  �  � �  ��g��nameg�� parse-headerg�� documentationf��dParse VAL, a string, with the parser registered for the header named SYM. Returns the parsed value.�C9R6��h �����]�$�� 4�56�6����������g��sym  �g��val  ��g��filenamef�� web/http.scm �  �  �  �   �   �  � �   ��g��nameg�� valid-header?g�� documentationf��RReturns a true value iff VAL is a valid Scheme value for the header with name SYM.�C:R17��hP���]��]44�5>��"��G��4>��"��G��44�5>��"��G��6U������g��sym  P�g��val  P�g��port   P��g��filenamef�� web/http.scm �  �   �  �   �  � ' �  0 �  1 �  @ �  L � P � �  P ��g��nameg�� write-headerg�� documentation���k�TW���r���i���t���e��� ���t���h���e��� ���g���i���v���e���n��� ���h���e���a���d���e���r��� ���n���a���m���e��� ���a���n���d��� ���v���a���l���u���e��� ���t���o��� ���P���O���R���T���,��� ���u���s���i���n���g��� ���t���h���e��� ���w���r���i���t���e���r��� ���f���r���o���m��� ��� ��h���e���a���d���e���r���-���w���r���i���t���e���r��� ��.����C;R8���h8������]4L>�� G�45$���6��"������������g��headers  3�g��k 3�g��v  3��g��filenamef�� web/http.scm �   � !  �   �  �  % � * �  3 � �  3 ��g��nameg��lp�C����h������] O��Q�6��������g��port  �g��lp ��g��filenamef�� web/http.scm � �   �   � �   ��g��nameg�� read-headersg�� documentationf��RRead the headers of an HTTP message from PORT, returning them as an ordered alist.�C<R;��h@�����] "��,$��#4>��"��G��"C�"������������g��headers  :�g��port  :�g��headers   2��g��filenamef�� web/http.scm �  �  �  �   �  �   � '  � * �  0 � 2 � �  : ��g��nameg�� write-headersg�� documentation���k�W���r���i���t���e��� ���t���h���e��� ���g���i���v���e���n��� ���h���e���a���d���e���r��� ���a���l���i���s���t��� ���t���o��� ���P���O���R���T���.��� ��� ���D���o���e���s���n���'���t��� ���w���r���i���t���e��� ���t���h���e��� ���f���i���n���a���l��� ��� ��\���r���\���n��� ��,��� ���a���s��� ���t���h���e��� ���u���s���e���r��� ���m���i���g���h���t��� ���w���a���n���t��� ���t���o��� ���a���d���d��� ���a���n���o���t���h���e���r��� ���h���e���a���d���e���r���.����C=R��h������]�6�����������g��sym  �g��val  ��g��filenamef�� web/http.scm �  � � �  ��g��nameg�� bad-header�CR�������h������]�6�����������g��sym  �g��val  ��g��filenamef�� web/http.scm �  � � �  ��g��nameg��bad-header-component�CR1��h(������)���3�L4�56-��1��3�L�6���������g��sym �g��val �g��_ # '��g��filenamef�� web/http.scm �  �   � /  � # � ' � �  � # ' ���C�����h������]�O�@��������g��port  �g��key  �g��args   �g��default-printer   ��g��filenamef�� web/http.scm �  � �   ��g��nameg��bad-header-printer�CR�������h(������)���3�L�6-��1��3�L�6��������������g��sym �g��val �g��_  "��g��filenamef�� web/http.scm �  �   �  � " � �  �  " ���C������h������]�O�@��������g��port  �g��key  �g��args   �g��default-printer   ��g��filenamef�� web/http.scm �  � �   ��g��nameg��bad-header-component-printer�CR4ii>��"��G��4ii>��"��G��h���q���]�C���i�������g��str  ��g��filenamef�� web/http.scm  �   ��g��nameg��parse-opaque-string�CR����h���}���]�6u�������g��val  ��g��filenamef�� web/http.scm    �   ��g��nameg��validate-opaque-string�CR��������h������]�6�������������g��val  �g��port  ��g��filenamef�� web/http.scm   �  ��g��nameg��write-opaque-string�CR4i5R����h8������] 4�/5$��4�/5$�� 4�5CCC�������������g��str  2�g��idx 2��g��filenamef�� web/http.scm              #   $   -  �  2 ��g��nameg��validate-media-type�CRM����h ������]4�5$���6�6������������g��str  ��g��filenamef�� web/http.scm               �   ��g��nameg��parse-media-type�CR����h`�����-�.�,�3�#�� #�� 4�5"��*$��44�55$�� "CC"�������������g��str Z�g��start Z�g��end  Z�g��i  ( R��g��filenamef�� web/http.scm    8 (   -  1   2   5  ) ?   C   F  L   R  � Z ��g��nameg��skip-whitespace�CR���h`�����-�.�,�3�#�� #�� 4�5"��+$��44�55$�� "CC"�����������g��str [�g��start [�g��end  [�g��i  ( S��g��filenamef�� web/http.scm    8 (   -  1   2   5  + <  ; >  + @   D   G  M   S  � [ ��g��nameg��trim-whitespace�CR���h���S��-�.�,�3�#��,#�� #�� 4�5$��H4�54�$��"��54�$��"��5CC�������K������g��str ��g��delim ��g��start  ��g��end  ��g��idx  D �g��tok  _ ��g��filenamef�� web/http.scm ! & " ( 3 $  7 $  8 %  D %  G &  U & @ _ &  _ %  d '  p ' . s ' 6 } '  ~ ' � ( � � ��g��nameg��split-and-trim�CR�������h���w���]�6������o�������g��val  ��g��filenamef�� web/http.scm * + �  ��g��nameg��list-of-strings?�CR��������h������]�6���������g��val  �g��port  ��g��filenamef�� web/http.scm - .   . �   ��g��nameg��write-list-of-strings�CR0�h������]4�56�z�������g��str  ��g��filenamef�� web/http.scm 0  1   1 �   ��g��nameg��split-header-names�CR��������h���|���]�6������t�������g��val  ��g��filenamef�� web/http.scm 3 4 �  ��g��nameg��list-of-header-names?�CR1���h���t���]4�56�l�������g��x  �g��port  ��g��filenamef�� web/http.scm 8   9   9 �   ���C������h������]�6���������g��val  �g��port  ��g��filenamef�� web/http.scm 6 :   7 �   ��g��nameg��write-header-list�CR�h��� ��]445"��(��#4�>��"��G��C  4� >��"��G��44� 5>��"��G�� "x "i��������g��from  ��g��start  ��g��len   ��g��escapes   ��g��to  ��g��start   ��g��i   ��g��escapes   ��g��e  ; ��g�� next-start H ��� g��filenamef�� web/http.scm <  = =   >   ?   A # A 1 $ A ( - A ; C  ; C D D & E D  H C K E V E ( _ E h F o F  v F / x F  } F � G  � G " � G � > �  � ��g��nameg��collect-escaped-string�CR��h�����-�/���0���3� #�� #�� 4�5#��"���6$��4�5"$��"��$��x4�5\$�� ""$��24�5$��D$��C�6"�6 "h"?";�������g��str  ��g��start  ��g��end   ��g�� incremental?   ��g��i  _ ��g��qi  _ ��g��escapes  _ ��g��key  q ��g��out  � ��� g��filenamef�� web/http.scm K # L ' > ^  B ^  B N  G N K N  L N  W N  [ N  _ O  d P h P  i Q  q Q � S  � S  � S # � S  � Q � U  � U 6 � U  � U  � V  � W ! � W  � X  � X  � X  � Z / � Z  � \  � \  � \  � ] " � ] � O  � O  � O . � O �*  � g�� incremental?S ���g��nameg�� parse-qstring�CR�������hX���'��] �$��H"��<4>��"��G��$��4>��"��G��"C�"C�����������g��l  S�g��port  S�g�� write-item   S�g��delim   S�g��l  I��g��filenamef�� web/http.scm `  a  a  b   c   c   c  % d  & d * d  + f  A g  G g  I b �  S ��g��nameg�� write-list�CR��hh������]4">��"��G��4�"5$��#44�"5>��"��G��"��4�>��"��G��"6�������������g��str  b�g��port  b��g��filenamef�� web/http.scm i  j   k  # k  $ m  ' m  5 m 6 : m  G n  b o �  b ��g��nameg�� write-qstring�CR����h���J���]�L�6������B�������g��filenamef�� web/http.scm     �  ���C���h��6��-�.�,�3� #�� #�� 4�5$�4�51$��4�5$��"��d4�5$��"��G4�5$��"��*4�5$��"�� 4�5$�� C  �64�50$� 4� 5$��"�� 4� 5$�� C $��  "��$��"��$��4�5.$��C  �6 $��[4�54 5 0"�� 4  �5"��# $�� $��"��""��""��"b   "Q  �6O��Q�4�5.$�� $��  "��$��"��|$��C $��S4�54 5 0 $�� $��"��4 5�"��4 5� "��"   "s6�6�  �6.������g��str �g��start �g��end  �g��t  J ��g��t  d ��g��t  ~ ��g��t  � ��g��t  � �g��b   +�g��place  3 �g��i  3 �g��q  3 �g��c  w �g��i   �g��failure   �g��b   #�g��place  + �g��i  + �g��q  + �g��c  U �g��i  a �g��failure e ��g��filenamef�� web/http.scm q  q 6 ) x - w  . z 9 z  = w  > { D {  J { J {  X | ^ |  d | d {  r } x }  ~ } ~ {  � ~ � ~  � ~ � {  �  �   �  � {  �   �   �  �   � w  �  �   �  �   �  �             /   3  8   9   =   >   E  , G   J   N   U  , Y   ^   a  # f   j   o  7 w  ( z s   s "  s  s   v  v  v  t   t   t   t   t              "     "    w        w       '   +   0  4   <   ?   D   H   M  / U  X s  ` s " a s a s  e t  k t  o t  t t  x t                   y   y �r  ��g��nameg�� parse-quality�CR�������h������]4�5$��� CC��}�������g��q  ��g��filenamef�� web/http.scm         !�   ��g��nameg��valid-quality?�CR�����h�����] 4�  4 05>��"��G��4.>��"��G��4� d 4 05>��"��G��4� 4 05>��"��G��� 4 056����������g��q  ��g��port  ��g��d   �g��d  K Z�g��d  t ��g��d  � ���g��filenamef�� web/http.scm                       $   -   A   H  K   K  N   R   U   W   a   j   q  t   t  w   {   ~   �   �   �   �  �   �   �   �   �  �%  � ��g��nameg�� write-quality�CR����h0������]�(��C�$��4�5$�� �6CC�������������g��val  *�g��pred  *��g��filenamef�� web/http.scm                     "   &  �  * ��g��nameg��list-of?�CR� �h`��� ��]4�;5$��:4�545$��4 54� 5C6 4�5C�����������g��part  [�g��t [�g��qpart   M��g��filenamef�� web/http.scm           H       "   &  & *   .   /   8   D   I  , M   Q   Z  �  [ ���C�����h������]4�,56�������z�������g��str  ��g��filenamef�� web/http.scm       �   ��g��nameg��parse-quality-list�CR����h ������]�$��4�5$���6CC�������g��elt  ��g��filenamef�� web/http.scm           #            �  ���C���h���z���]�6������r�������g��l  ��g��filenamef�� web/http.scm   �  ��g��nameg��validate-quality-list�CR�hH������]��4>��"��G�� $��4>��"��G��6C�������g��x  H�g��port  H�g��q   H�g��str   H��g��filenamef�� web/http.scm              &   *   +   /  ! 6   F  �  H ���C������h������]�6���������g��l  �g��port  ��g��filenamef�� web/http.scm      �   ��g��nameg��write-quality-list�CR�������h�����-�.�,�3�#�� #�� 4�5$��}"��n$��b 4�545 0"�� 4�5"��# $�� $��"��""��""C "�6������������g��val ��g��start ��g��end  ��g��i  1 ��g��out  1 ��g��c  K ��g��i  W ���g��filenamef�� web/http.scm    * )  -   1   6  :   =   B   C  - K   N   V  " W  W   ^  b  f  j   n   r   w   {  �   �  �   �   �  � � ��g��nameg��parse-non-negative-integer�CR����h0������]4�5$��� $��4�5$���6CCC�����������g��code  ,��g��filenamef�� web/http.scm               "   &  0�  , ��g��nameg��non-negative-integer?�CR�������h������]C���w�������g��k  �g��val  ��g��filenamef�� web/http.scm  �   ��g��nameg��default-val-parser�CR������h������]$��6C�������g��k  �g��val  ��g��filenamef�� web/http.scm          �   ��g��nameg��default-val-validator�C�R��hX������]4;5$��"��"4,5$��"�� 4"5$��66��������������g��k  Q�g��val  Q�g��port   Q�g��t  =�g��t  ! :��g��filenamef�� web/http.scm        !   /  A   I   Q  �  Q ��g��nameg��default-val-writer�CRM� ������h����]R�L$�4L��L54L�=L54L�,L54$��"��L$��"��L544L�4L�555"��  "��$��$�� "��$��4L�L5"��44L�4L�$��"��L55$��"��L "��KL$��-4L�5"$��4L�L >��!"��""��""��"U"��"M G�4L54L�L5   L  $��"�� 4L� 5, $��  $��  "���"s  4L�LL56 6��������g��i  �g��out  �g��i   �g��eq  % �g��comma  4 �g��delim  W �g��k  r �g��i  � �g��v-str  , �g��next-i  , �g��v G �g��i G �g��t P l�� g��filenamef�� web/http.scm               %   (   4   7   ?   M  ' W   W   Z   ]   d  $ p   r   r   �   �   �   �  , �  �   �   �  2 �   �   �  " �  - �  > �  - �  " �  " �   � �  � �  � �  � � / � � ) � �  �   /  4   =   G   P   P   ^  ( i  " p   s   y  % ~  +         *   *      �?   ��g��nameg��lp�C���hP������-�.�,�3�#��#�� #�� 4�5O��Q�6���������g��str N�g�� val-parser N�g��start  N�g��end  N�g��lp  : N��g��filenamef�� web/http.scm  &  . :   L   N  � N ��g��nameg��parse-key-value-list�CR�h8������]�$����$��L�6C�$��L��6C�����������g��elt  4�g��k  $�g��v   $��g��filenamef�� web/http.scm                     "   '   +   2  �  4 ���C���h(������-�.�,�3�#���O�6������������g��list #�g��valid? #��g��filenamef�� web/http.scm  #  � # ��g��nameg��key-value-list?�CR��������h`������]�$���"����$���"��4>��"��G��$��4=>��"��G��L�6C��������g��x  _�g��port  _�g��k  ! _�g��v  ! _��g��filenamef�� web/http.scm !   "  "  "   #   #   #  ! "  & $  ? %  @ ' ] ( �  _ ���C��h8������-�.�,�3�#��#���O�6��������������g��list 1�g��port 1�g�� val-writer  1�g��delim  1��g��filenamef�� web/http.scm    F 1  � 1  ��g��nameg��write-key-value-list�CR4i,;=5R4 ii,;5 RM � �����h��k��]J�L$�4L�544L�4L�$��"��L555$�� 4L5"��=$�4LL5"��54LL5$��"��L4L5 "��;L$��-4L5"$��4 LL >��"��""��" G�4L5$�� "��4LL5  L$�� 4L 5"��  $��4 5LD ;$��4L L5�"4 5 D;$��24L54LL5$�� "���"V4L54 $�� "��5$��"��LD4 5LD������c������g��i  �g��out  �g��delim   �g��k  Q �g��delimc  Q �g��i  j ��g��t  } ��g��delim  � ��g��v-str  � q�g��next-i  � q�g��v  � q�g��x   q�g��i  q�g��key ) q�g��v   �g��v   ��g��filenamef�� web/http.scm 3   4 4  6   6   7   8  # 8 % / 8 < 9 8 % ; 8  = 7  C 9  D 9 # Q 7 ^ : _ >  f > 3 j >  j >  q B & } B " � A  � E % � E  � ?  � ? � ?  � ? 0 � ? * � ?  � @  � <  � H  � H  � I  � I #  H   J   H   K  K   K * ) K  4 M ; M * = M A M  J K  K O  R O 1 V O  [ P  c O  d R k R * m R q R  z : { T   T   U   U *  U   V   V !  V   U   Y   Y   Z   Z )  Z /  Z #  Z   [   Z   5   5 �P   ��g��nameg��lp�C��hP������-�.�,�3�#��#�� #�� 4�5O��Q�6������������g��str K�g�� val-parser K�g��start  K�g��end  K�g��lp  9 K��g��filenamef�� web/http.scm 0 & 2 / 9 3  I 3  K 3 � K ��g��nameg��parse-param-component�C R  ���h`���!��]4LL�L>�� G�L$��14L5,$��4LL5�"L66���������g��i  ]�g��out  ]�g��item   ]�g��i   ]��g��filenamef�� web/http.scm `   b   a   d # d  $ e  / e  3 e 4 f  ; f ) ? f  D g  L f  P h & T h  [ i  ] i �  ] ��g��nameg��lp�C����hP������-�.�,�3�#��#�� #�� 4�5O��Q�6������������g��str K�g�� val-parser K�g��start  K�g��end  K�g��lp  9 K��g��filenamef�� web/http.scm ] & _ * 9 `  I `  K ` � K ��g��nameg��parse-param-list�C R��������h���[���]�L�6������S�������g��elt  ��g��filenamef�� web/http.scm n o �  ���C��h(������-�.�,�3�#���O�6������������g��list #�g��valid? #��g��filenamef�� web/http.scm k # m � # ��g��nameg��validate-param-list�CR����h���w���]�L�6��o�������g��item  �g��port  ��g��filenamef�� web/http.scm u  v 0  v �   ���C���h(������-�.�,�3�#���O�6��������g��list '�g��port '�g�� val-writer  '��g��filenamef�� web/http.scm q % w  ' s � '  ��g��nameg��write-param-list�CR4SUX����h���m���]456���e�������g��str  �g��pat  ��g��filenamef�� web/http.scm  |  | �  ���CBCDOPQXV^_`�����h���N���]���C�����F�������g�� t-556baa-448  �g�� t-556baa-449  ��   ���Canoprt��������h(���N���]L������C�������F�������g�� t-556baa-426  !�g�� t-556baa-427  !��  ! ���C�������h�����]24545"��45$��45.$��"��td$����"��Va$�� ��"��8�4  5$�� 4 ?"�� 4 5"Y"�� "F�4 5$�� �O�@ 6������������g��str  ��g��pat  ��g��p  ��g��i   ��g��tests   ��g��c  - ��g��tmp  � ��g��tmp  � ��g��tmp  � ��g��tmp  � ��� g��filenamef�� web/http.scm  }  }   %         $   %  -   2   ;   [  h   y  �  ' �  �   �   �  ' �   � ~ �  � ���C���h@���`���] 4�5"�� �6$��4?$��@""�������X�������g��x  9�g��tmp 9��g��filenamef�� web/http.scm z �  9 ���C5Ru��h����] $�4� 54�54� 5J$��ha$��n$�� C4�56u$��)n$�� Cl$�� C4�564�56F$��7e$��b$�� C4�564�56M$��Ca$��)r$�� Cy$�� C4�564�56A$��]p$��r$�� C4�56u$��g$�� C4�564�56S$��7e$��p$�� C4�564�56O$��7c$��t$�� C4�564�56N$��7o$��v$�� C4�564�56D$��7e$��c$�� C4�564�564�564�56������������g��str  �g��start  �g��end   �g��a  / �g��b  / �g��c  / ��g��filenamef�� web/http.scm                     !   #   $   -   /   /   >   G  P   V   W  ! c   l  u   �   �  ! �   �   �  ! �   �   �  �   �   �  ! �   �   �  ! �   �   �          ! !   %   &  ! 2   ;   D  M   T   U  ! a   j  s   z   {  !         !                 !         !                 !         !    !   *  3   :   ;  ! G   K   L  ! X   a   j  s   z   {  !         !         !         !   �g   ��g��nameg�� parse-month�CvRwxy� ���h�����]"4�545$�� C45$�� C"��645 $��44  55$��44  55$��44  55$��r44  55$��]4  5+$�� "��-$�� "�� 454  54   5 < <C"B">":"6"2���������g��str  ��g��start  ��g��s  ��g��key  � ��g��sign  � ��g��hours  � ��g��minutes  � ���g��filenamef�� web/http.scm                     #   %   )   3   7   7   8   E   F   �   �   �   �   �   �   �   �   �   �   �   �  �  � ��g��nameg��parse-zone-offset�CzREv}{� �h ����]34� 545 $�*44 55$�44 55$�4 5:$�44 55$�44 55$�4 5:$�44 55$�44 55$�v4 5 $�a44 55$�J44 55$�344 55$�44 55$�4 5 $��44 55$��44 55$��44 55$��4 5 $��44 55$��44 55$��h4 5 $��S4 5,$��>44 55$��'44 55$��44 55"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��$��c4�  54�  54� 54�  54�  54�  5 � C4� 545 $�44 55$�44 55$�4 5:$�44 55$�44 55$�4 5:$�44 55$�v44 55$�_4 5 $�J44 55$�344 55$�44 55$�44 55$��4 5 $��44 55$��44 55$��44 55$��4 5 $��44 55$��h4 5 $��S4 5,$��>44 55$��'44 55$��44 55"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��$��c4�  54�  54� 54�  54�  54�  5 � C4� 545 $�(44 55$�44 55$�4 5:$�44 55$�44 55$�4 5:$�44 55$�4 5 $�v4 5 $�a44 55$�J44 55$�344 55$�44 55$�4 5 $��44 55$��44 55$��44 55$��4 5 $��44 55$��44 55$��h4 5 $��S4 5,$��>44 55$��'44 55$��44 55"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��$��c4�  54�  54� 54�  54�  54�  5 � C4� 545 $�44 55$�44 55$�4 5:$�44 55$�44 55$�4 5:$�44 55$�t4 5 $�_4 5 $�J44 55$�344 55$�44 55$�44 55$��4 5 $��44 55$��44 55$��44 55$��4 5 $��44 55$��h4 5 $��S4 5,$��>44 55$��'44 55$��44 55"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��"��$��c4�  54�  54� 54�  54�  54�  5 � C4  �>��"��G��C������������g��str  �g��space  �g�� zone-offset   �g��s  J�g��date   �g��month   �g��year   �g��hour   �g��minute   �g��second   �g��s   �g��date  ( I�g��month  ( I�g��year  ( I�g��hour  ( I�g��minute  ( I�g��second  ( I�g��s  S �g��date   �g��month   �g��year   �g��hour   �g��minute   �g��second   �g��s  � %�g��date  k �g��month  k �g��year  k �g��hour  k �g��minute  k �g��second  k ��g��filenamef�� web/http.scm      N   O   Z   e   p   {                                    (  H  J   S                              �  )   *   5   @   K �  V   a   k       �1  ��g��nameg��parse-rfc-822-date�C~R{Ev}w������h����]L4�5"��4�>��"�G��"�45 $�44 55$�44 55$�4 5:$�44 55$�~44 55$�d4 5:$�L44 55$�244 55$�4 5 $��44 55$��44 55$��4 5-$��44 55$��44 55$��44 55$��f4 5-$��N44 55$��444 55$��4 5 $��"��""��""��"z"��"r"��"j"��"b"��"Z"��"R"��"J"��"B"��":"��"2"��"*"��"""��""��""��" "��""��""��"4 54   54  54 54  54  5  4 5�   &��  "�� 4   5     d  2 $��  d"�� 2 $��  d"��        � C��������g��str  �g��comma  �g��space   �g�� zone-offset   �g��tail   �g��date  c �g��month  c �g��year  c �g��hour  c �g��minute c �g��second c �g��s t �g��now  �g��then  �g��year  ��g��filenamef�� web/http.scm                     ,   -  :   ;  #   -   8   C   N   Y   c   p  ( t           *   -   *                  .            .   �&   ��g��nameg��parse-rfc-850-date�CR{Ev}� �������h����]1"��4�>��"�eG��"�^4�5 $�L44� 55$�244� 55$�44� 55$�44� 55$�4� 5 $�44� 55$�44� 55$�4� 5:$�44� 55$�f44� 55$�L4� 5:$�444� 55$�44� 55$��4� 5 $��44� 55$��4� 5 $��44� 55$��44� 55$��44� 55$��h4� 5 $��P44� 55$��644� 55$��44� 55$��"��"B"��":"��"2"��"*"��"""��""��""��" "��""��""��""��""��""��""��""��""��""��""��""��""��""��""��""��"4�4� 5 $�� "��  54�  54�  54� 54�  54�  5  � C����������g��str  �g��date  �g��month   �g��year   �g��hour   �g��minute   �g��second   ��g��filenamef�� web/http.scm $  &  &   &   %   % , %  - % } '   )   )   )   '   +   ,   -   .   /   '   0 �   ��g��nameg��parse-asctime-date�CR}w����h8������]�&�� � "�� 4�5 $���C4�5 6�������������g��date  2��g��filenamef�� web/http.scm 3  4  4  # 4  ) 6  2 6 �  2 ��g��nameg��normalize-date�CRz����h���R���]�LL�6�����J�������g��filenamef�� web/http.scm : ! ; 9 ; "�  ���C����h���U���-��1��3�C�����M�������g��args ��g��filenamef�� web/http.scm : !� ���C~{� ��h���M��]4� 5$��4�O�5"��$��J4�,5$��) $��4�5"�� 4�5"�� 4  �5"��4 �56��E������g��str  ��g��space ��g�� zone-offset  ) ��g��comma  < y��g��filenamef�� web/http.scm 8  9  9   :   : ! ) 9  3 =  4 >  < > D ? I @  M ? N @  ] A  n ?  r ? * v ?  ~ B � < �  � ��g��nameg�� parse-date�CR���hX���E��] "��? $��544 04�5 5>��"��G��4 5"C4 5"���=������g��n  U�g��digits  U�g��port   U�g��tens   E��g��filenamef�� web/http.scm E   G  H  H   J  J   F   J 4 " J , # J $ % J  , J 5 L  C L E G  F G  M G  O G  U G �  U ��g��nameg��display-digits�C}w�%������h����]�&�� � "�� 4�5 $���"�� 44�5 5445 $�� "��b $�� "��T $�� "��E $�� "��6 $�� "��' $��"�� $��"�� 45>��"��G��4&��  "�� 45 >��"��G��4&��  "�� 45 $��"�� $��"�� $��"�� $��"�� $��"��r $��"��c $��"��T $��"��E $��"��6 $��"��' $��"�� $��"�� 45>��"��G��4&��  "�� 4 5 >��"��G��4 >��"��G��4&��  "�� 4!5 >��"��G��4:>��"��G��4&��  "�� 4"5 >��"��G��4:>��"��G��4&�� "�� 4#5 >��"��G��$6��������g��date  �g��port  �g��display-digits   �g��date  : �g��key  F ��g��key   ��g��filenamef�� web/http.scm D M  " M  ' M  . O  1 O " : O  : M  = P  @ P  F P R Q  ^ P ` Q " m P o Q 0 | P ~ R  � P � R " � P � R 0 � P � S  � S # � S * � S # � P  � U  � U  � U  � V  � V   V # W  0 V 2 W $ ? V A W 3 N V P X  ] V _ X $ l V n X 3 { V } Y   V  Y $  V  Y 3  V  Z   V  Z $  V  Z 3  [   [   [   V   ]   ]   ]   ^  + _  0 _  Q _  Z `  n a  s a   a   b   c   c   c   d  d �O   ��g��nameg�� write-date�CR��������h8������]4�5$�� 4� 5C4�5$�� 4�5C�C��������g��val  7��g��filenamef�� web/http.scm j  l   l  l   k   l $  l   m  m  $ m  ( k  ) m $ 1 m  6 n �  7 ��g��nameg��parse-entity-tag�CR��h������]�$���6C�������������g��val  ��g��filenamef�� web/http.scm p  q  q   r   r �   ��g��nameg�� entity-tag?�CR��h0������]�$��"��4>��"��G���6�������������g��val  *�g��port  *��g��filenamef�� web/http.scm t  u u   v   v   v  & w  * w �  * ��g��nameg��write-entity-tag�CR� ��h�����-�.�,�3�#�� #�� 4�54� 54�$��"�� >�� G�4�5$��64�5,$��4�4�55"�� 4  �5"��C��������g��val ��g��start ��g��end  ��g��strong?  5 ��g��tag  X ��g��next  X ��g��next  o ���g��filenamef�� web/http.scm y  z / % {  ) { & 4 {  5 {  5 {  8 }  B } + M } = W }  [ |  d   e   o   v   z   {  �   �   �   �   �  0 �   �   �   �  0 �   �   �  � � ��g��nameg��parse-entity-tag-list�CR�������h���w���]�6������o�������g��val  ��g��filenamef�� web/http.scm   �  ��g��nameg��entity-tag-list?�CR��������h������]�6���������g��val  �g��port  ��g��filenamef�� web/http.scm   )   �   ��g��nameg��write-entity-tag-list�CRMN����h���3��-�.�,�3�#��#�� #�� 4�54�54�5$��"��$��4�>��"��G��"���44 4 �$��"��555 $��-4�5$��4 �5C �64 �5C+������g��str ��g�� val-parser ��g��start  ��g��end  ��g��start  9 ��g��t  H [�g��delim  [ ��g��scheme  � ��g��start  � ��� g��filenamef�� web/http.scm  &  + /   9   <   H   [   b   f   g   k   r      �   �  $ �  9 �  $ �   �   �   �   �   �  �   �  �   �   �  % �   �   �  � � ��g��nameg��parse-credentials�CR����h8������] �$��&�$���$���6�6CC��������������g��val  1�g��key  -��g��filenamef�� web/http.scm                   $   &   +  -  �  1 ��g��nameg��validate-credentials�CR��hP������] 4�>��"��G��4 >��"��G���$�� �6�6������������g��val  K�g��port  K�g��key  . K��g��filenamef�� web/http.scm             .   .   >   B  G  K  �  K ��g��nameg��write-credentials�CRMNM� �h����]R�L$�4L��L54L�=L54L�,L54$��"��L$��"��L54L�54L� 5$�� 45D44L�55"��  "��$��$�� "��$��4L�L5"��44L�4L�$��"��L55$��"��L "��KL$��-4L�5"$��4 L�L >��!"��""��""��"U"��"M G� 4L� L5  L  $��"�� 4L� 5, $�� $�� "���"^  4L�LL5645LD������g��i  �g��out  �g��i   �g��eq  % �g��comma  4 �g��delim  W �g�� token-end  d �g��k  � �g��i  � ;�g��v  L �g��next-i L �g��i ^ �g��t e �� g��filenamef�� web/http.scm               %  (   4  7   ?   M  ) W   W  Z   d  g   w  x   �   �   �  ) �   �   �   �   �  $ �  4 �  ( �   �  % �  : �  % �   �  * �  + �  < �  + �  * �  *   "      '      7   1   "   " O   T   ^   e  e   s  0 ~  *        -   3   '                  �C   ��g��nameg��lp�C� �����h�����-�.�,�3�#�� #�� 4�54�54� 5$��444�555"�� 4�5 O��Q��6�����}������g��str ��g��start ��g��end  ��g��start  / ��g��sp  > ��g��scheme  h ��g��lp  u ���g��filenamef�� web/http.scm    ) %   /   2  >   F   G   J  % M  6 Y  % [   `   d  + h   h   u   �   �  � � ��g��nameg��parse-challenge�CR���hH������]4L��L5L$��%4L�L>�� G��"6������������g��i  C�g��ret  C�g��i  C�g�� challenge  ' =�g��i  ' =��g��filenamef�� web/http.scm              ' *  5   =   C  �  C ��g��nameg��lp�C�������hH������-�.�,�3�#��#�� #�� 4�5O��Q�6�������g��str H�g�� val-parser H�g��start  H�g��end  H�g��lp  8 H��g��filenamef�� web/http.scm  &  * 8   F   H  � H ��g��nameg��parse-challenges�CR��h ������]�$���$���6CC�����������g��x  ��g��filenamef�� web/http.scm         *  !      (   �   ���C������h���z���]�6������r�������g��val  ��g��filenamef�� web/http.scm   �  ��g��nameg��validate-challenges�CR��������h8������]4�>��"��G��4 >��"��G���6�����������g��val  4�g��port  4��g��filenamef�� web/http.scm             0   4  �  4 ��g��nameg��write-challenge�CR��h������]�6���������g��val  �g��port  ��g��filenamef�� web/http.scm   '   �   ��g��nameg��write-challenges�CR��������h������-�1�3��6������������g��message �g��args ��g��filenamef�� web/http.scm     �  ��g��nameg�� bad-request�CR��������h������-�1�3��6������������g��message �g��args ��g��filenamef�� web/http.scm     �  ��g��nameg�� bad-response�CRR� ������h���E��-�.�,�3�#�� #�� 4�5"��0$��$4�5$��"��""��"$��C4�.5"��4�564 � 5$��>$��44 �.5$��4 � 54 �5C"""���=������g��str ��g��start ��g��end  ��g��known  ( X�g��t  ` ��g��dot-idx  x ���g��filenamef�� web/http.scm    ; (   +  /   0   7   >   B  E   M   S   X   `   l   x   �  " �  0 �  �   �   �  ! �   �   �  �   �   �  �   �  2 �   �   �  2 �   �  �$ � ��g��nameg��parse-http-versiong�� documentationk�P���a���r���s���e��� ���a���n��� ���H���T���T���P��� ���v���e���r���s���i���o���n��� ���f���r���o���m��� ���S���T���R���,��� ���r���e���t���u���r���n���i���n���g��� ���i���t��� ���a���s��� ���a��� ���m���a���j���o���r��� ��m���i���n���o���r��� ���p���a���i���r���.��� ���F���o���r��� ���e���x���a���m���p���l���e���,��� ��� ��H���T���T���P���/���1���.���1��� �� ���p���a���r���s���e���s��� ���a���s��� ���t���h���e��� ���p���a���i���r��� ���o���f��� ���i���n���t���e���g���e���r���s���,��� ��� ��(���1��� ���.��� ���1���)��� ��.����C?R������hH�����]4>��"��G��4�>��"��G��4.>��"��G���6������g��val  H�g��port  H��g��filenamef�� web/http.scm               #   ,   D  H  �  H ��g��nameg��write-http-versiong�� documentationf��1Write the given major-minor version pair to PORT.�CR4i?��������h ���|���]�4� 4�55 C�����t�������g��v  ��g��filenamef�� web/http.scm "  $  $ *  $   $  # �   ���C>��"��G���������h���Y��-�.�,�3�#�� #�� 4�54�5$��C4�5$��C4�5$��C4� 5$�� C4� 5$�� C4� 5$��C4�5$��C4�56�������Q������g��str ��g��start ��g��end  ���g��filenamef�� web/http.scm /  / : % 3  + 3  1 3  5 2  7 3 " 9 4  ? 4  E 4  I 2  K 4 # M 5  S 5  Y 5  ] 2  _ 5 # a 6  g 6  m 6  q 2  s 6 " u 7  { 7  � 7  � 2  � 7 % � 8  � 8  � 8  � 2  � 8 & � 9  � 9  � 9  � 2  � 9 $ � :  � : + � : �) � ��g��nameg��parse-http-methodg�� documentationk�<P���a���r���s���e��� ���a���n��� ���H���T���T���P��� ���m���e���t���h���o���d��� ���f���r���o���m��� ���S���T���R���.��� ��� ���T���h���e��� ���r���e���s���u���l���t��� ���i���s��� ���a���n��� ���u���p���p���e���r���-���c���a���s���e��� ���s���y���m���b���o���l���,��� ���l���i���k���e��� ��� ��G���E���T��� ��.����C>R����h8����-�.�,�3�#�� #�� 4�5$��64�5$��C4�5/$��4�?54�#5$��$�� "��$��"��"��  4 �$��"��$��"��5 $��4 �$��"��5"�� $��4 �5"��644 �55$��C4 �56�������������g��str 1�g��start 1�g��end  1�g��q  c �g��f  r �g��q  � �g��t   1��g��filenamef�� web/http.scm <  < : ) @  - ?  1 A  3 A  4 B  : B  @ B  D ?  G D R D  V ?  W E  c E  f F  r E  z G  � G  � G ! � G  � G  � E  � H  � I  � I - � I  � J  � J � J / � J 6 � J � K  � K # � K 2 � K #  H   M   M   M   M  $ N  % N ' 1 N �- 1 ��g��nameg��parse-request-urig�� documentationf��Parse a URI from an HTTP request line. Note that URIs in requests do not have to have a scheme or host name. The result is a URI object.�C@R>@?� ���h�����]4�54545"��6$��I$��?$��24 544 554 4 55D"""������g��port  ��g��line ��g��d0   ��g��d1   ���g��filenamef�� web/http.scm P  S  S  T  S   U  S  ) Z  - Z  - V  9 V  > V  B V  C W  M X  R X ( Y X > ] X ( a X  b Y  i Y ) j Y 1 r Y  t W �  � ��g��nameg��read-request-lineg�� documentationf��oRead the first line of an HTTP request from PORT, returning three values: the method, the URI, and the version.�CARw��hx����]�&�� � "�� 4�5$�14�&��� "�� 4�5>��"��G��4>��"��G���&��� "�� 4�5$��D4�&��� "�� 4�5>��"��G��4@>��"��G��"���4�&�� � "�� 4�5>��"��G���&�� � "�� 4�5$��8 P&��"��(4:>��"��G��4>��"��G��"���"����&�� � "�� 4� 54 5"��4>��"��G��"��"��G $��;�&�� � "�� 4�5$��"4  �>��"��FG��"��?" $��/4  5/$��""��4 >��"��G��"��"~�&�� � "�� 4�5$��54?>��"��G���&�� � "�� 4�56C��������g��uri  v�g��port  v�g��p   N�g��path  m  �g��len  v ��g��filenamef�� web/http.scm \  ]  ! ]  " _  ' _  E _  N `  R `  Y `  d a  a  � c  � c  � c  � d  � e  � e  � e  � f   f   g  g   i  4 j  U k  m k  p l  v k  } s   m   p  m   p   p   q   q   q   m   n  m   n  n   n   o   o   o  # t  ? t  @ v  X w  t w �4  v ��g��nameg�� write-uri�CRGw��������hH����]4�>��"��G��4 >��"��G��45$�9&�� "�� 45&��  "�� 45&��  "�� 45$��$��4>��"��G��4>��"��G��4 :5$��@4[>��"��G��4>��"��G��4]>��"��G��"��4>��"��G��4 5$��"��(4:>��"��G��4>��"��G��"���"���"���&��  "�� 4 5&��  "�� 4 54 5$��4>��"��G��"��4>��"��G��$��,4>��"��G��4>��"��G��"���4 >��"��G��4>��"��G��6� ������g��method  G�g��uri  G�g��version   G�g��port   G�g��scheme  � j�g��host  � j�g�� host-port  � j�g��path   �g��query   �� g��filenamef�� web/http.scm y  {   |  + }  5 }  8 ~  R   m   � ~  �   �  �   �   �   �   �  �   �   �   �     !   #   )   -   2  F  q                                          ,   C  G  �.  G ��g��nameg��write-request-lineg�� documentationf��0Write the first line of an HTTP request to PORT.�CBR?� ���h�����]4�545$��4455"��"��6$��5$��+4 544554 5D""������g��port  ��g��line ��g��d0   ��g��d1  3 ���g��filenamef�� web/http.scm                $  # .   3   =   A   A   M   N   X   ]  1 k   l   x  �  � ��g��nameg��read-response-lineg�� documentationf��Read the first line of an HTTP response from PORT, returning three values: the HTTP version, the response code, and the (possibly empty) "reason phrase".�CCR�������hp���:��]4�>��"��G��4 >��"��G��4>��"��G��4 >��"��G��4>��"��G��6��2������g��version  n�g��code  n�g�� reason-phrase   n�g��port   n��g��filenamef�� web/http.scm        +   ?   S   j  n  �  n ��g��nameg��write-response-lineg�� documentationf��1Write the first line of an HTTP response to PORT.�CDR2����h�����]�6�� ������g��name  ��g��filenamef�� web/http.scm    �   ��g��nameg��declare-opaque-header!g�� documentationf��}Declares a given header as "opaque", meaning that its value is not treated specially, and is just returned as a plain string.�C3R2�����h���|���]�6��t�������g��name  ��g��filenamef�� web/http.scm    �   ��g��nameg��declare-date-header!�CR2�h������]�6��{�������g��name  ��g��filenamef�� web/http.scm    �   ��g��nameg��declare-string-list-header!�CR2M��h���d���]4�56�\�������g��str  ��g��filenamef�� web/http.scm        �   ���C��h���Y���]�6������Q�������g��v  ��g��filenamef�� web/http.scm    �  ���C��h���t���]�6��l�������g��v  �g��port  ��g��filenamef�� web/http.scm    !   �   ���C�h������]�6��{�������g��name  ��g��filenamef�� web/http.scm    �   ��g��nameg��declare-symbol-list-header!�CR2��h������]�6��{�������g��name  ��g��filenamef�� web/http.scm    �   ��g��nameg��declare-header-list-header!�CR2��h������]�6��w�������g��name  ��g��filenamef�� web/http.scm    �   ��g��nameg��declare-integer-header!�CR2+������h ������] 4�5$��C�6����|�������g��str  �g��t ��g��filenamef�� web/http.scm          >   (�   ���C���h���{���]�6��s�������g��name  ��g��filenamef�� web/http.scm    �   ��g��nameg��declare-uri-header!�CR2+��h ������] 4�5$��C�6�����������g��str  �g��t ��g��filenamef�� web/http.scm              �   ���C�h������]�6��|�������g��name  ��g��filenamef�� web/http.scm    �   ��g��nameg��declare-relative-uri-header!�C R2�h������]�6��|�������g��name  ��g��filenamef�� web/http.scm    �   ��g��nameg��declare-quality-list-header!�C R�2 �����h���[���]�L�6������S�������g��str  ��g��filenamef�� web/http.scm    �  ���C������h���[���]�L�6������S�������g��val  ��g��filenamef�� web/http.scm    �  ���C������h���m���]�L�6����e�������g��val  �g��port  ��g��filenamef�� web/http.scm    �  ���C��������hH������-�.�,�3�#��#��#���O�O�O�6����������g��name E�g�� val-parser E�g�� val-validator  E�g�� val-writer  E��g��filenamef�� web/http.scm  E  � E ��g��nameg��declare-param-list-header!�C R�2���h���[���]�L�6������S�������g��str  ��g��filenamef�� web/http.scm    �  ���C������h���[���]�L�6������S�������g��val  ��g��filenamef�� web/http.scm    �  ���C������h���m���]�L�6����e�������g��val  �g��port  ��g��filenamef�� web/http.scm    �  ���C��������hH������-�.�,�3�#��#��#���O�O�O�6����������g��name E�g�� val-parser E�g�� val-validator  E�g�� val-writer  E��g��filenamef�� web/http.scm  E  � E ��g��nameg��declare-key-value-list-header!�C R2 �������h������]4�5$��C�6�������g��str  ��g��filenamef�� web/http.scm       $        )   ,�   ���C ������h���v���]�&��C�6������n�������g��val  ��g��filenamef�� web/http.scm            #�   ���C ��h ������]�&��6�6�������������g��val  �g��port  ��g��filenamef�� web/http.scm               �   ���C����h������]�6���������g��name  ��g��filenamef�� web/http.scm    �   ��g��nameg��declare-entity-tag-list-header!�CR2������h������]�6��{�������g��name  ��g��filenamef�� web/http.scm    �   ��g��nameg��declare-credentials-header!�CR2��h������]�6��~�������g��name  ��g��filenamef�� web/http.scm    �   ��g��nameg��declare-challenge-list-header!�CR4 i� hp������]�$��"���$��"���$��6�$��$��6C�$��"���$��$��6CC�����������g��k  l�g��v-str  l��g��filenamef�� web/http.scm ;  <  - >  6 <  < @  B @  M <  a B  g B �  l ���C�������h������]�$��"���$��"���$��6�$��$��6C�$��"���$��$��6C� $��"��/� $��"��!� $��"��� $��"��� $��C$��6C�����������g��k  ��g��v  ���g��filenamef�� web/http.scm D  E  - G  6 E  < I  B I  C I M E  a K  g K  h K r E  � M  � O  � O  � O �  � ���C��hp������]45$�� �6$��04">��"��G��4>��"��G��"645$��66��������������g��k  i�g��v  i�g��port   i��g��filenamef�� web/http.scm P   R  Q   R   S   Q   T  3 U  N V  O W  Y Q  a X  e Z  i Z �  i ���C>��"��G��42iii 1��������h ������]�&��"��4�56����������g��x  �g��port  ��g��filenamef�� web/http.scm f   g & g   h   i   g �   ���C���h���v���]�6��n�������g��val  �g��port  ��g��filenamef�� web/http.scm d  k   e �   ���C>��"��G��4i!>��"��G��4 i">��"��G��4i#>��"��G��4 i$>��"��G��4i%>��"��G��42i&iii>��"��G��42i'(� h ����]Y4L �54L 5$��$��4L�54L54L>�� G�L�$�� 4L5"�� $��-4L>�� G� 45 "��"��  "�� G� � L�$�� 4L 5"��   $�� �C ,$�� 4L4L 55C  L6CC���� ������g��i  �g��idx1 �g��idx2   �g��code  @ �g��agent  @ �g��text  U �g��i  U �g��c  s ��g��date  � ��g��i � ��g��text  � �g��date  � �g��i � �g��w � �g��c � ��g��filenamef�� web/http.scm             /       #  )   *   5   <  * @   @   E   L  2 T   X   a  ( e  # f  2 s   ~     . �  A �  . �   �  0 �  # �   �   �  ! �  & �  ! �  0 �   �   �  " �   �  +   /   D   /   +   #   .   "�0   ��g��nameg��lp�C�����h0������]4�5O��Q�4� 56�������������g��str  *�g��len *�g��lp   *��g��filenamef�� web/http.scm           !   *  �  * ���C)}����hP������]4�5$��>� $��245$��%45$��$��$��CCCCCCC����������g��code  M�g��host  M�g��text   M�g��date   M��g��filenamef�� web/http.scm     #     @      # "   #  # -   3  # 6  2 D  '�  M ���C�h(������]�$��4�5 $���@CC��������������g��elt  !��g��filenamef�� web/http.scm                  �  ! ���C�����h���[���]�6������S�������g��val  ��g��filenamef�� web/http.scm    �  ���C���h������]4�L�>��"��G��4 L�>��"��G��4L�>��"��G��4 L�>��"��G��4L�>��"��G��$��4 L�>��"��G��L�6C�������������g��code  ��g��host  ��g��text   ��g��date   ���g��filenamef�� web/http.scm       +  ?  S  l  m   �  �  � ���C������h���k���]O��@���c�������g��w  �g��port  ��g��filenamef�� web/http.scm    �  ���C�������h���v���]�6��n�������g��val  �g��port  ��g��filenamef�� web/http.scm       �   ���C>��"��G��4i*>��"��G��42i+ ,���hP������] 4�5"��4�>��"��%G��"��$��(��"��""��"C������������g��str  K�g�� disposition K��g��filenamef�� web/http.scm                 )   ,   0   3   7   J  �  K ���C��������h ������]�$���$���6CC�����������g��x  ��g��filenamef�� web/http.scm         -  $      ?   6�   ���C������h ������]�$���$�� �6CC���������g��val  ��g��filenamef�� web/http.scm                  �   ���C��������h���v���]��6���n�������g��val  �g��port  ��g��filenamef�� web/http.scm      �  ���C>��"��G��4i->��"��G��4i.>��"��G��4i/>��"��G��4 i0>��"��G��43i1>��"��G��42i2345 � �����h�����]4�-54�/5"���64�5$��r$��h$��4� 54�5"�� 4� 5$�� "�� 4�54� 5$�� "�� 4�5�C"y"u�������g��str  ��g��dash  ��g��slash   ���g��filenamef�� web/http.scm           -  $ - $   %   )   -   1   7  9   ? !  @ $  K %  R % 3 V %  W #  \ &  b &  h &  l !  n '  s )  w )  { )  | *  � * ! � * % � *  � *  � +  � ,  � , 4 � ,  �  �&  � ���C) ����h���s��] �$��r4�5 $��b�$��X�&��"��%$��45$�� 45"��"��$���&��C6CCCC���k������g��val  }�g��x # Z�g��x c u��g��filenamef�� web/http.scm .   / /  /   /   /   0   0  /  " 1  # 1 ) 2  - 2 . 2  5 3  9 3  : 4  ? 4 + A 4  E 3  F 5  K 5 + M 5  ^ /  a 6  c 6 i 7  m 7 n 7  u 8 �  } ���C ���h���+��]4�>��"��G��4 >��"��G���&��4*>��"��G��"��B4�>��"��G��4->��"��G��4�>��"��G���&��*6�6���#������g��val  ��g��port  ���g��filenamef�� web/http.scm 9   :   :  :   ;  . < 1 <  5 <  6 =  N ? S ?  \ ? e @ y A ~ A  � A � B � B  � B  � C  � D  � D �  � ���C>��"��G��42i67M89� ��hX������] 4�=5"��L�6$��34�=5$��44� 554�5C""���������g��x  V�g��eq V��g��filenamef�� web/http.scm L   M  M   S %  S   N  " N ' + N ! / N  0 P  3 Q  @ P  A R  J R C L R  M O �  V ���C�������h(������] 4�;5454�O�5C���������g��str  &�g��parts &��g��filenamef�� web/http.scm I   J  J   K  K   K  L " T  $ L % K �  & ���C��������h ������]�$���$���6CC�����������g��x  ��g��filenamef�� web/http.scm Y   Z  Z  Z - Z $  Z   Z ?  Z 6�   ���C������h ������]�$���$�� �6CC���������g��val  ��g��filenamef�� web/http.scm U   V V  W  W  V   X   X �   ���C������h8������]4�>��"��G��4=>��"��G���6�����������g��pair  4�g��port  4��g��filenamef�� web/http.scm b  c  c   c  d 0 e  4 e �  4 ���C��hH������]4�>��"��G���$��!4>��"��G���6C�������������g��val  B�g��port  B��g��filenamef�� web/http.scm [   \   \  \   ]   ]   ]  _ $ _  + _ 8 a > f @ ` �  B ���C>��"��G��4i:5;R42i<=?;����h������]4�5$��C�6w�������g��str  ��g��filenamef�� web/http.scm m   n  n  n   n   p �   ���Ci>��"��G��4i@>��"��G��4 iA!����h���z���]�&��6C�����r�������g��k  �g��v  ��g��filenamef�� web/http.scm          �   ���C!��h ������]�&��6$��6C���������g��k  �g��v  ��g��filenamef�� web/http.scm                   �   ���C!�������h ������]�&��6�6�����������g��k  �g��v  �g��port   ��g��filenamef�� web/http.scm             �   ���C>��"��G��4 iB>��"��G��4 iC>��"��G��4 iD>��"��G��4iE>��"��G��4 iF>��"��G��43iG>��"��G��42iHI�����h���x��]!4�]54�:$��"�� 5$��54� 5[$��"��4�>��"��G��4� 5"��$��4� 5"���$��4�5"��C���p������g��str  ��g��rbracket ��g��colon  # ��g��host  v ��g��port  � ���g��filenamef�� web/http.scm             ( #   #   +   ,  ! 6   :   ?   C  ! J   S   f   g   v   ~      �  6 �   �   �  �  � ���C������h0������] �$��$4�5$���$��C�6CC��������g��val  /�g��t  +��g��filenamef�� web/http.scm                       )  $ +  �  / ���C���h�����]4�:5$��A4[>��"��G��4�>��"��G��4]>��"��G��"��4�>��"��G���$��4:>��"��G���6C�����������g��val  ��g��port  ���g��filenamef�� web/http.scm                %  *   1  :  R   W   ^   i   m   n  �   �  �  � ���C>��"��G��4iJ>��"��G��4iK>��"��G��4iL>��"��G��42iM����h8������] 4�5$��"�� 4�5$���6�6�����������g��str  4�g��t $��g��filenamef�� web/http.scm                !  (   .   4  �  4 ���C}����h(���{���] �$�� �"��$��C�6���s�������g��val  %�g��t  %��g��filenamef�� web/http.scm         %  �  % ���C}��������h0������]"���6�$���&���6""���������g��val  .�g��port  .��g��filenamef�� web/http.scm                  &  �  . ���C>��"��G��4iN>��"��G��4iO>��"��G��4iP>��"��G��42iQR5S�������h`�����] 4�-5$��E $�� 4� 5C4�5$�� 4� 5C4� 54�5CL�6 ������g��x  `�g��dash `��g��filenamef�� web/http.scm                    %   )  0   1   5   6   A   C   M   T  8 V   W   \  `  �  ` ���CS� ���h8������]4�5$�� 4�O�44� 5,55C �6��������g��str  7��g��filenamef�� web/http.scm                        +   -  .   3 !  7 ! �  7 ���C������hP������]�$��C��$��"��$��&$�� 45"��$��$��6CCCC���������g��elt  N�g��x  L�g��y   L��g��filenamef�� web/http.scm &   '  '  ( #  ( 1  (   ) ! $ )  * * ! + * - 6 * % : )  @ + ! F + - G + %�  N ���C��������h ������]�$���$�� �6CC���������g��val  ��g��filenamef�� web/http.scm "   # #  $  $  #   %   % �   ���C�hH������]�$��4�>��"��G��"���4->��"��G���$�� �6C�������g��pair  H�g��port  H��g��filenamef�� web/http.scm 1   2 2  3  3   3 # 4  9 5 = 5  B 6  F 6 �  H ���C���h8������]4�>��"��G��4=>��"��G���6�������g��val  8�g��port  8��g��filenamef�� web/http.scm ,   -   -  -   .  0 0  6 7  8 / �  8 ���C>��"��G��4 iT>��"��G��4 iU>��"��G��43iV>��"��G��4iW>��"��G��4iX>��"��G��42iYiii>��"��G��4 iZ>��"��G��4i[>��"��G��42i\��������h0������]4�5$��"�� 44� 55$���6�6��������g��str  /��g��filenamef�� web/http.scm i   j  j   k  k   k # j  ) l  / m �  / ���C}����h(���{���] �$�� �"��$��C�6���s�������g��val  %�g��t  %��g��filenamef�� web/http.scm n   o   o  % o �  % ���C}��������h0������]"���6�$���&���6""���������g��val  .�g��port  .��g��filenamef�� web/http.scm p   s   q   q   q   q  & r �  . ���C>��"��G��43i]>��"��G��42i^ �������h������]�$��C�6����w�������g��str  ��g��filenamef�� web/http.scm |   }   }  }  ~    �   ���C �������h���v���]�&��C�6������n�������g��val  ��g��filenamef�� web/http.scm            �   ���C ��h ������]�&��6�6�������������g��val  �g��port  ��g��filenamef�� web/http.scm                �   ���C>��"��G��4i_>��"��G��`a���h ���y���] 4�;5$��C� 6��q�������g��c  �g��t ��g��filenamef�� web/http.scm  *   0  ,   0�   ���Cb������h@���8��]4�545$�� C45$��4 5"�� 6�0������g��port  ?�g��v ?�g��extension-start  ! ?��g��filenamef�� web/http.scm        !   +   ,   ?  �  ? ��g��nameg��read-chunk-headerg�� documentationf��QRead a chunk header from PORT and return the size in bytes of the upcoming chunk.�CcRfcgh�����h���L��]+"��M�$��"�� $��CM $��'4L5N $��N�C"4M54L�545$��N�CMN $��(4L>��"��G��4L>��"��G��"���"9 ".D������g��bv  ��g��idx  ��g��to-read   ��g��to-read   ��g��num-read   ��g��t   �g��size  2 R�g��ask-for  [ ��g��read  m ��g��left  � ��� g��filenamef�� web/http.scm             &  +   ,   2  8   ;   @   C   R   S   [  ^   i  8 m   m  p   z   }   �   �   �   �   �   �   �  % �   �   �   �  �#  � ��g��nameg��read!�Cijk�������h���d���]�L$��CL�6\�������g��filenamef�� web/http.scm        �   ��g��nameg��close�C�hP���O��-�/���0���3�#��HHO��Q� KK�O�6��G������g��port  N�g�� keep-alive?  N�g�� remaining   N�g�� finished?   N�g��read!  , N��g��filenamef�� web/http.scm  ?  ! N  �  N g�� keep-alive?S ���g��nameg��make-chunked-input-portg�� documentationf�@Returns a new port which translates HTTP chunked transfer encoded data from PORT into a non-encoded format. Returns eof when it has read the final chunk from PORT. This does not necessarily mean that there is no more data on PORT. When the returned port is closed it will also close PORT, unless the KEEP-ALIVE? is true.�CERflm��������h@������]"��0"��(45$��C4�45>��"��G��"""�������������g��f  :�g��q  :��g��filenamef�� web/http.scm                &   2  �  : ��g��nameg�� q-for-each�Clnop����h���\���]�L�6������T�������g��elem  ��g��filenamef�� web/http.scm    #�  ���C�hh������]4M5$��C4M5�44� 5L�>��"��G��4L�>��"��G��4LL�O�M>��"��G��L�6�������g��len  h��g��filenamef�� web/http.scm                   +   4   8   ?   H   d   h  �  h ��g��nameg��flush�Cqrs��h���n���]M��6������f�������g��c  ��g��filenamef�� web/http.scm    �  ��g��nameg��put-char�Cts�������h���Y���]M��6������Q�������g��c  ��g��filenamef�� web/http.scm    !�  ���C����h���p���]L�O��6�h�������g��s  ��g��filenamef�� web/http.scm     �   ��g��nameg�� put-string�Cuvk��������hH������]�4L>���"��G��4L>��"��G��4L>��"��G��L�$��CL6���������g��filenamef�� web/http.scm              '   >   F  �  F ��g��nameg��close�Cw� hh�����-�/���0���3�#��HO��Q�45�KO�O��O�� 6������������g��port  b�g�� keep-alive?  b�g��queue   b�g�� q-for-each  - b�g��flush  - b��g��filenamef�� web/http.scm  7   ^   `  > b  �  b g�� keep-alive?S ���g��nameg��make-chunked-output-portg�� documentationf�Returns a new port which translates non-encoded data into a HTTP chunked transfer encoded data and writes this to PORT. Data written to this port is buffered until the port is flushed, at which point it is all sent as one chunk. Take care to close the port when done, as it will output the remaining data, and encode the final zero chunk. When the port is closed it will also close PORT, unless KEEP-ALIVE? is true.�CFR4xi5�yRy����h���x���]�6p�������g��port  ��g��filenamef�� web/http.scm    �   ��g��nameg��http-proxy-port?�CGR|y���h������]45�6��������g��port  �g��flag  ��g��filenamef�� web/http.scm    �   ��g��nameg��set-http-proxy-port?!�CHRC����������g��m  ,�g��rtd  ��g��filenamef�� web/http.scm    K  O ! Y  ! Y " [ $ ^ &= j (l q * v . � 1 � 4Q � 5 � 5 �  5 � & 5 �  5 � 9u � : � ; � > � @ � D$ � D � E � G^ � I( � I) � I1 �  I; � ID  IL   IV  I  J  K8  K9   KA   KC   KG  Le  M?  N  PR  RO ! R * S - Tf 0 U 3 Vg 6 Y8 < ] K ^ ` _ i i q jQ  m  n6  p~  q  s  v  w  x;  y  zk  ������  ������  ������p  ������q . ������ . ������ / ������ / ������p 0 ������[ ] ������ k ������8 q ������  ������4  ������  ������  ������ $ ������ 3 ������ 8 ������h D ������˧ j ������a p ������k t ������O y ������  ������ѻ  ������  ������I  ������נ  ������߉  ������#  ������  ������  ������N  ������  ������  ������  ������  ������H  ������  ������ ! ������ & ������ ! ������ / ������ < ������= P ������ \ �����6 y �����  �����  �����  �����  ����� G  �����  �����?  �����  �����O  �����  �����x  �����B  �����  �����  �����  �����R  �����S : �����[ : �����" : �����" a �����" a �����# a �����# q �����# q �����# q �����# w �����# w �����# w �����# { �����# { �����# { �����#  �����#  �����#  �����#  �����#  �����#  �����$  �����$  �����$!  �����$*  �����$1  �����.  �����.  �����.  �����.  �����.  �����.  �����2K  �����2T � �����2\ � �����2a � �����2j  �����2r  �����2w  �����2  �����2  �����2  �����2  �����2  �����2  �����2  �����2  �����2  �����2  �����2  �����9h  �����9q H �����9x H �����?} H �����? j �����? j '�����? j �����? j �����? l �����? l �����@\ l �����@e v �����@m v �����@r v �����@{  �����@  �����B  �����B  �����B  �����B  �����B  �����B  �����B  �����B  �����C  �����C  �����C  �����C  �����C"  �����C+  �����C3  �����C8  �����CA  �����CH  �����CM  �����CV  �����C]  �����HG  �����HP  �����HX  !�����H]  �����Hf  �����Hn  �����Hs  �����H|  �����H  !�����H  �����H  �����H  �����KO  �����KX  �����K`  �����Ke  �����Kn  �����Kv  �����K{  �����K  �����K  �����K  �����K  �����K  �����R  �����R ; �����R ; �����R ; �����R @ �����R @ �����R @ �����R D �����R D �����R D �����R P �����R P �����R P �����R U �����R U �����R U �����R Y �����S Y �����S Y �����S" ` �����S* ` �����S/ ` �����S8 d �����S@ d �����SE d �����SN h �����SU h �����U h �����U w �����U w �����U w �����V { �����V { �����X6 { �����X?  �����XG  �����XL  �����Z  �����a"  �����i  �����i  �����i  �����j  �����kB   �����kD ���C6����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/srfi/srfi-64.go��������������������������������������������������������������������������0000644�����������������00000527654�15146341264�0010766 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0�����]�4����hC�����]� g��guile � g��define-module* � � g��srfi g��srfi-64 � g��filenameS f��srfi/srfi-64.scm g��exportsS g�� test-begin g��test-end g�� test-assert g��test-eqv g��test-eq g�� test-equal g��test-approximate g�� test-error g�� test-apply g��test-with-runner g��test-match-nth g��test-match-all g��test-match-any g��test-match-name g�� test-skip g��test-expect-fail g��test-read-eval-string g��test-runner-group-path g�� test-group g��test-group-with-cleanup g��test-result-ref !g��test-result-set! "g��test-result-clear #g��test-result-remove $g��test-result-kind %g�� test-passed? &g��test-log-to-file 'g�� test-runner? (g��test-runner-reset )g��test-runner-null *g��test-runner-simple +g��test-runner-current ,g��test-runner-factory -g��test-runner-get .g��test-runner-create /g��test-runner-test-name 0g��test-runner-pass-count 1g��test-runner-pass-count! 2g��test-runner-fail-count 3g��test-runner-fail-count! 4g��test-runner-xpass-count 5g��test-runner-xpass-count! 6g��test-runner-xfail-count 7g��test-runner-xfail-count! 8g��test-runner-skip-count 9g��test-runner-skip-count! :g��test-runner-group-stack ;g��test-runner-group-stack! <g��test-runner-on-test-begin =g��test-runner-on-test-begin! >g��test-runner-on-test-end ?g��test-runner-on-test-end! @g��test-runner-on-group-begin Ag��test-runner-on-group-begin! Bg��test-runner-on-group-end Cg��test-runner-on-group-end! Dg��test-runner-on-final Eg��test-runner-on-final! Fg��test-runner-on-bad-count Gg��test-runner-on-bad-count! Hg��test-runner-on-bad-end-name Ig��test-runner-on-bad-end-name! Jg��test-result-alist Kg��test-result-alist! Lg��test-runner-aux-value Mg��test-runner-aux-value! Ng��test-on-group-begin-simple Og��test-on-group-end-simple Pg��test-on-bad-count-simple Qg��test-on-bad-end-name-simple Rg��test-on-final-simple Sg��test-on-test-end-simple T   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSR�J Ug��set-current-module VU� WU� Xg��cond-expand-provide Yg��current-module Z� [g��process-use-modules \[� ][� ^g��srfi-9 _^� `_� ag��srfi-39 ba� cb� dg��make-syntax-transformer ed� fd� gg�� %test-export hg��macro ig�� $sc-dispatch ji� ki� lg��any mll ng�� syntax-object og��if pg��top qp� rg��ribcage sg��dummy tg��names ust� vg��m-46961e5187-6 wvp� xwq� yf��l-46961e5187-b zf��l-46961e5187-c {yz� |rux{� }r� ~g��x ~� �w� �f��l-46961e5187-8 �� �r� �q|}� �g��hygiene �� �no� �n� �� �g��syntax-violation �� �� �f��-source expression failed to match any pattern �g��%test-record-define �g��each �llll� �� �l �l �l �g��define-record-type �g��alloc �g��runner? �g��name �g��index �g��setter �g��getter �s� �g��m-46961e5187-11 �p� �qqqqqq� �f��l-46961e5187-16 �f��l-46961e5187-17 �f��l-46961e5187-18 �f��l-46961e5187-19 �f��l-46961e5187-1a �f��l-46961e5187-1b �f��l-46961e5187-1c �� �r� �� �f��l-46961e5187-13 �� �r� �q}� �n� �g�� test-runner �n� �g��map �� �� �g��list �g��%%test-runner-alloc-procedure �g��%test-runner-alloc �g��_ �� �g��lambda �g��m-46961e5187-2b �p� �� �f��l-46961e5187-2d �� �r� �g��shift �g�� proc-name �g��args �� �qq� �f��l-1e8ba8b5a-2ba �f��l-1e8ba8b5a-2bb �� �r� �g��key �g��value �g��formals �g��body �� �qqqqq� �f��l-1e8ba8b5a-2ad �f��l-1e8ba8b5a-2ae �f��l-1e8ba8b5a-2af �f��l-1e8ba8b5a-2b0 �f��l-1e8ba8b5a-2b1 �� �r� �g��make-procedure-name �� �q� �f��l-1e8ba8b5a-29d �� �r� �q� �f��l-1e8ba8b5a-29c �� �r� �}}}}}�  �^� �n� �g�� make-struct �g��m-46961e5187-29 �p� �g��t-1e8ba8b5a-38d �g��t-1e8ba8b5a-38c �g��t-1e8ba8b5a-38b �� �g��m-1e8ba8b5a-38e �p� �� �f��l-1e8ba8b5a-392 �f��l-1e8ba8b5a-393 �f��l-1e8ba8b5a-394 �� �r� �g�� ctor-args �� �f��l-1e8ba8b5a-37a �� �r� �g��ctor �g��field �� �f��l-1e8ba8b5a-376 �f��l-1e8ba8b5a-377 �� �r� �g��form �g�� type-name �g��constructor-spec g�� field-names �� qqqq� f��l-1e8ba8b5a-36b f��l-1e8ba8b5a-36c f��l-1e8ba8b5a-36d f��l-1e8ba8b5a-36e �  r�  g�� record-layout  g��functional-setters  g��setters  g��copier g��getters g�� constructor g��getter-identifiers g��field-identifiers     � qqqqqqqq� f��l-1e8ba8b5a-343 f��l-1e8ba8b5a-341 f��l-1e8ba8b5a-33f f��l-1e8ba8b5a-33d f��l-1e8ba8b5a-33b f��l-1e8ba8b5a-339 f��l-1e8ba8b5a-337 f��l-1e8ba8b5a-335 � r� f��l-1e8ba8b5a-334 �  r� !}}}}}}  � "n!� #g��m-46961e5187-27 $#p� %$}}� &n%� 'n !� (}� )n(� *"&'))))))))))))))))))))))� +*� ,+� -g��each-any .- /_� 0_� 1f��Wrong number of arguments 2g�� identifier? 3_2� 4_2� 5q}� 6n5� 7g��record-type-vtable 8_7� 9_7� :g��,pwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpw ;g��default-record-printer <_;� =_;� >g�� pass-count ?g�� fail-count @g�� xpass-count Ag�� xfail-count Bg�� skip-count Cg�� skip-list Dg�� fail-list Eg��run-list Fg�� skip-save Gg�� fail-save Hg�� group-stack Ig�� on-test-begin Jg�� on-test-end Kg��on-group-begin Lg�� on-group-end Mg��on-final Ng�� on-bad-count Og��on-bad-end-name Pg�� total-count Qg�� count-list Rg�� result-alist Sg�� aux-value T>?@ABCDEFGHIJKLMNOPQRS� Ug��set-struct-vtable-name! V_U� W_U� Xg��vtable-offset-user Y_X� Z_X� [g��%test-runner?-procedure \l� ]g��m-46961e5187-36 ^]p� _g��t-46961e5187-35 `_� a^� bf��l-46961e5187-3b cb� dr`ac� ef��l-46961e5187-38 fe� graf� h^d}g}}}}�  inh� jg��obj kg��t-1e8ba8b5a-47e lg��t-1e8ba8b5a-478 mg��t-1e8ba8b5a-479 ng��t-1e8ba8b5a-47a og��t-1e8ba8b5a-47d pg��t-1e8ba8b5a-47c qg��t-1e8ba8b5a-47b rklmnopq� sg��m-1e8ba8b5a-47f tsp� uttttttt� vf��l-1e8ba8b5a-483 wf��l-1e8ba8b5a-484 xf��l-1e8ba8b5a-485 yf��l-1e8ba8b5a-486 zf��l-1e8ba8b5a-487 {f��l-1e8ba8b5a-488 |f��l-1e8ba8b5a-489 }vwxyz{|� ~rru}� g�� copier-id � f��l-1e8ba8b5a-476 � r� g�� ctor-name � f��l-1e8ba8b5a-46e � r� � f��l-1e8ba8b5a-46c � r� g��layout � f��l-1e8ba8b5a-46a � r� g�� immutable? � f��l-1e8ba8b5a-468 � r� g�� field-count � f��l-1e8ba8b5a-466 � r� g�� getter-ids � f��l-1e8ba8b5a-463 � r� g�� field-ids � f��l-1e8ba8b5a-460 � r� g��predicate-name g�� field-spec �� qqqqqq� f��l-1e8ba8b5a-453 f��l-1e8ba8b5a-454 f��l-1e8ba8b5a-455 f��l-1e8ba8b5a-456 f��l-1e8ba8b5a-457 f��l-1e8ba8b5a-458 � r� d}g}~}}}}}}}}}}} � nj� � g��and n� g��struct? n� � g��eq? n� g�� struct-vtable n� � $d}g}� n� � � i� q}g� n[� g��throw-bad-struct _� _� g��!%test-runner-pass-count-procedure g��free-id g�� %%on-error g��m-46961e5187-42 p� � f��l-46961e5187-44 � r� }}}}}�  n� � l� g��%%type g��t-1e8ba8b5a-3a5 g��t-1e8ba8b5a-3a6 g��t-1e8ba8b5a-3a7 g��t-1e8ba8b5a-3a8 g��t-1e8ba8b5a-3a9 g��t-1e8ba8b5a-3aa g��t-1e8ba8b5a-3ab � g��m-1e8ba8b5a-3ac p� � f��l-1e8ba8b5a-3b0 f��l-1e8ba8b5a-3b1 f��l-1e8ba8b5a-3b2 f��l-1e8ba8b5a-3b3 f��l-1e8ba8b5a-3b4 f��l-1e8ba8b5a-3b5 f��l-1e8ba8b5a-3b6 � r� � f��l-1e8ba8b5a-3a3 f��l-1e8ba8b5a-3a4 � r� � qqq� f��l-1e8ba8b5a-39e f��l-1e8ba8b5a-39f f��l-1e8ba8b5a-3a0 � r� }}}}}} � n� � l� g��ck g��err g��s � � �f��l-46961e5187-47 f��l-46961e5187-48 �� r� }}}}}�  n� g��quote n� $}}�  n�   �   �  g��%%index  n �  � l� f��l-46961e5187-4c f��l-46961e5187-4d � r� }}}}}�  n� n� }� n � � � g��%%copier n� � l� f��l-46961e5187-51  f��l-46961e5187-52 ! � "r!� #"}}}}}�  $n#� %n#� &g��%%test-runner-set-fields '$"}}� (n&'� )%(� *)� +g��t-46961e5187-41 ,+� -f��l-46961e5187-56 .-� /r,.� 0/}}}}}�  1n0� 2/}}}}}} � 3n2� 43� 5no2� 6n2� 7n2� 873� 9$/}}� :n9� ;68:� <g�� struct-ref =n<2� >/}� ?n >� @=3?� An2� Bn2� Cq/}� Dn0C� EBD� FA3E� G5;@F� H14G� Iq}� JnI� Kg��!%test-runner-fail-count-procedure Lg��m-46961e5187-5d MLp� NM� Of��l-46961e5187-5f PO� QrNP� RM}Q}}}}�  SnR� TS� UTl� V}Q}}}}} � WnV� XW� YUXl� ZMM� [f��l-46961e5187-62 \f��l-46961e5187-63 ][\� ^rZ]� _M^}Q}}}}�  `n_� an_� b$^}Q}� cnb� dac� ed� fn V� gf� hUgl� if��l-46961e5187-67 jf��l-46961e5187-68 kij� lrZk� mMl}Q}}}}�  nnm� onm� pl}Q� qn p� roq� sr� tnV� ut� vUul� wf��l-46961e5187-6c xf��l-46961e5187-6d ywx� zrZy� {Mz}Q}}}}�  |n{� }n{� ~$z}Q}� n&~� }� � g��t-46961e5187-5c � f��l-46961e5187-71 � rN� M}Q}}}}�  n� }Q}}}}} � n� � no� n� n� � $}Q}� n� � n<� }Q� n � � n� n� q}Q� n2� � � � � q}Q� nK� g��"%test-runner-xpass-count-procedure g��m-46961e5187-78 p� � f��l-46961e5187-7a � r� }}}}}�  n� � l� }}}}}} � n� � l� � f��l-46961e5187-7d f��l-46961e5187-7e � r� }}}}}�  n� n� $}}� n� � � n � � l� f��l-46961e5187-82 f��l-46961e5187-83 � r� }}}}}�  n� n� }� n � � � n� � l� f��l-46961e5187-87 f��l-46961e5187-88 � r� }}}}}�  n� n� $}}� n&� � � g��t-46961e5187-77 � f��l-46961e5187-8c � r� }}}}}�  n� }}}}}} � n� � no� n� n� � $}}� n� � n<� }� n � � n� n� q}� n4� � � � � q}� n� g��"%test-runner-xfail-count-procedure g��m-46961e5187-93 p� � f��l-46961e5187-95 � r� }}}}}�  n� �� �l� }}}}}} � n� � l� � f��l-46961e5187-98 f��l-46961e5187-99  �  r �   }}}}}�   n �  n � $ }}� n�  � � n � � l� f��l-46961e5187-9d f��l-46961e5187-9e � r� }}}}}�  n� n� }� n � � �  n� ! � "!l� #f��l-46961e5187-a2 $f��l-46961e5187-a3 %#$� &r%� '&}}}}}�  (n'� )n'� *$&}}� +n&*� ,)+� -,� .g��t-46961e5187-92 /.� 0f��l-46961e5187-a7 10� 2r/1� 32}}}}}�  4n3� 52}}}}}} � 6n5� 76� 8no5� 9n5� :n5� ;:6� <$2}}� =n<� >9;=� ?n<5� @2}� An @� B?6A� Cn5� Dn5� Eq2}� Fn6E� GDF� HC6G� I8>BH� J47I� Kq}� LnK� Mg��!%test-runner-skip-count-procedure Ng��m-46961e5187-ae ONp� PO� Qf��l-46961e5187-b0 RQ� SrPR� TO}S}}}}�  UnT� VU� WVl� X}S}}}}} � YnX� ZY� [WZl� \OO� ]f��l-46961e5187-b3 ^f��l-46961e5187-b4 _]^� `r\_� aO`}S}}}}�  bna� cna� d$`}S}� end� fce� gf� hn X� ih� jWil� kf��l-46961e5187-b8 lf��l-46961e5187-b9 mkl� nr\m� oOn}S}}}}�  pno� qno� rn}S� sn r� tqs� ut� vnX� wv� xWwl� yf��l-46961e5187-bd zf��l-46961e5187-be {yz� |r\{� }O|}S}}}}�  ~n}� n}� $|}S}� n&� � � g��t-46961e5187-ad � f��l-46961e5187-c2 � rP� O}S}}}}�  n� }S}}}}} � n� � no� n� n� � $}S}� n� � n<� }S� n � � n� n� q}S� n8� � � � � q}S� nM� g��%test-runner-skip-list g��!%%test-runner-skip-list-procedure g��m-46961e5187-c9 p� � f��l-46961e5187-cb � r� }}}}}�  n� � l� }}}}}} � n� � l� � f��l-46961e5187-ce f��l-46961e5187-cf � r� }}}}}�  n� n� $}}� n� � � n � � l� f��l-46961e5187-d3 f��l-46961e5187-d4 � r� }}}}}�  n� n� }� n � � � n� � l� f��l-46961e5187-d8 f��l-46961e5187-d9 � r� }}}}}�  n� n� $}}� n&� � � g��t-46961e5187-c8 � f��l-46961e5187-dd � r� }}}}}�  n� }}}}}} � n� � no� n� n� � $}}� n� � n<� }� n � � n� n� q}� n� � � � � q}� n� g��%test-runner-fail-list g��!%%test-runner-fail-list-procedure g��m-46961e5187-e4 p� � f��l-46961e5187-e6 �� r�� }}}}}�  n� � l� }}}}}} � n� �  l�  �  f��l-46961e5187-e9  f��l-46961e5187-ea    � r  � }}}}}�  n� n� $}}� n� � � n � � l� f��l-46961e5187-ee f��l-46961e5187-ef � r � }}}}}�  n� n�  }� !n  � "!� #"� $n� %$� &%l� 'f��l-46961e5187-f3 (f��l-46961e5187-f4 )'(� *r )� +*}}}}}�  ,n+� -n+� .$*}}� /n&.� 0-/� 10� 2g��t-46961e5187-e3 32� 4f��l-46961e5187-f8 54� 6r35� 76}}}}}�  8n7� 96}}}}}} � :n9� ;:� <no9� =n9� >n9� ?>:� @$6}}� An@� B=?A� Cn<9� D6}� En D� FC:E� Gn9� Hn9� Iq6}� JnI� KHJ� LG:K� M<BFL� N8;M� Oq}� PnO� Qg��%test-runner-run-list Rg�� %%test-runner-run-list-procedure Sg��m-46961e5187-ff TSp� UT� Vf��l-46961e5187-101 WV� XrUW� YT}X}}}}�  ZnY� [Z� \[l� ]}X}}}}} � ^n]� _^� `\_l� aTT� bf��l-46961e5187-104 cf��l-46961e5187-105 dbc� erad� fTe}X}}}}�  gnf� hnf� i$e}X}� jni� khj� lk� mn ]� nm� o\nl� pf��l-46961e5187-109 qf��l-46961e5187-10a rpq� srar� tTs}X}}}}�  unt� vnt� ws}X� xn w� yvx� zy� {n]� |{� }\|l� ~f��l-46961e5187-10e f��l-46961e5187-10f ~� ra� T}X}}}}�  n� n� $}X}� n&� � � g��t-46961e5187-fe � f��l-46961e5187-113 � rU� T}X}}}}�  n� }X}}}}} � n� � no� n� n� � $}X}� n� � n<� }X� n � � n� n� q}X� nQ� � � � � q}X� nR� g��%test-runner-skip-save g��!%%test-runner-skip-save-procedure g��m-46961e5187-11a p� � f��l-46961e5187-11c � r� }}}}}�  n� � l� }}}}}} � n� � l� � f��l-46961e5187-11f f��l-46961e5187-120 � r� }}}}}�  n� n� $}}� n� � � n � � l� f��l-46961e5187-124 f��l-46961e5187-125 � r� }}}}}�  n� n� }� n � � � n� � l� f��l-46961e5187-129 f��l-46961e5187-12a � r� }}}}}�  n� n� $}}� n&� � � g��t-46961e5187-119 � f��l-46961e5187-12e � r� }}}}}�  n� }}}}}} � n� � no� n� n� � $}}� n� � n<� }� n � � n� n� q}� n� � � � � q}� n� g��%test-runner-fail-save �g��!%%test-runner-fail-save-procedure g��m-46961e5187-135 p� � f��l-46961e5187-137 � r� }}}}}�  n�  �   l�  }}}}}} �  n �   �   l� � f��l-46961e5187-13a f��l-46961e5187-13b � r� }}}}}�  n� n� $}}� n� � � n  � �  l� f��l-46961e5187-13f f��l-46961e5187-140  � !r � "!}}}}}�  #n"� $n"� %!}� &n %� '$&� ('� )n � *)� + *l� ,f��l-46961e5187-144 -f��l-46961e5187-145 .,-� /r.� 0/}}}}}�  1n0� 2n0� 3$/}}� 4n&3� 524� 65� 7g��t-46961e5187-134 87� 9f��l-46961e5187-149 :9� ;r8:� <;}}}}}�  =n<� >;}}}}}} � ?n>� @?� Ano>� Bn>� Cn>� DC?� E$;}}� FnE� GBDF� Hn<>� I;}� Jn I� KH?J� Ln>� Mn>� Nq;}� OnN� PMO� QL?P� RAGKQ� S=@R� Tq}� Un�T� Vg��"%test-runner-group-stack-procedure Wg��m-46961e5187-150 XWp� YX� Zf��l-46961e5187-152 [Z� \rY[� ]X}\}}}}�  ^n]� _^� `_l� a}\}}}}} � bna� cb� d`cl� eXX� ff��l-46961e5187-155 gf��l-46961e5187-156 hfg� ireh� jXi}\}}}}�  knj� lnj� m$i}\}� nnm� oln� po� qn a� rq� s`rl� tf��l-46961e5187-15a uf��l-46961e5187-15b vtu� wrev� xXw}\}}}}�  ynx� znx� {w}\� |n {� }z|� ~}� na� � `l� f��l-46961e5187-15f f��l-46961e5187-160 � re� X}\}}}}�  n� n� $}\}� n&� � � g��t-46961e5187-14f � f��l-46961e5187-164 � rY� X}\}}}}�  n� }\}}}}} � n� � no� n� n� � $}\}� n� � n<� }\� n � � n� n� q}\� n:� � � � � q}\� nV� g��$%test-runner-on-test-begin-procedure g��m-46961e5187-16b p� � f��l-46961e5187-16d � r� }}}}}�  n� � l� }}}}}} � n� � l� � f��l-46961e5187-170 f��l-46961e5187-171 � r� }}}}}�  n� n� $}}� n� � � n � � l� f��l-46961e5187-175 f��l-46961e5187-176 � r� }}}}}�  n� n� }� n � � � n� � l� f��l-46961e5187-17a f��l-46961e5187-17b � r� }}}}}�  n� n� $}}� n&� � � g��t-46961e5187-16a � f��l-46961e5187-17f � r� }}}}}�  n� }}}}}} � n� � no� n� n� � $}}� n� � n<� }� n � � n� n� q}� n<� � � � � �q}� n�� g��"%test-runner-on-test-end-procedure g��m-46961e5187-186 p� � f��l-46961e5187-188 � r�  }}}}}�   n �   �   l�  }}}}}} � n � �  l� � f��l-46961e5187-18b f��l-46961e5187-18c � r� }}}}}�  n� n� $}}� n� � � n  � �  l�  f��l-46961e5187-190 !f��l-46961e5187-191 " !� #r"� $#}}}}}�  %n$� &n$� '#}� (n '� )&(� *)� +n � ,+� - ,l� .f��l-46961e5187-195 /f��l-46961e5187-196 0./� 1r0� 21}}}}}�  3n2� 4n2� 5$1}}� 6n&5� 746� 87� 9g��t-46961e5187-185 :9� ;f��l-46961e5187-19a <;� =r:<� >=}}}}}�  ?n>� @=}}}}}} � An@� BA� Cno@� Dn@� En@� FEA� G$=}}� HnG� IDFH� Jn<@� K=}� Ln K� MJAL� Nn@� On@� Pq=}� Qn>P� ROQ� SNAR� TCIMS� U?BT� Vq}� WnV� Xg��%%test-runner-on-group-begin-procedure Yg��m-46961e5187-1a1 ZYp� [Z� \f��l-46961e5187-1a3 ]\� ^r[]� _Z}^}}}}�  `n_� a`� bal� c}^}}}}} � dnc� ed� fbel� gZZ� hf��l-46961e5187-1a6 if��l-46961e5187-1a7 jhi� krgj� lZk}^}}}}�  mnl� nnl� o$k}^}� pno� qnp� rq� sn c� ts� ubtl� vf��l-46961e5187-1ab wf��l-46961e5187-1ac xvw� yrgx� zZy}^}}}}�  {nz� |nz� }y}^� ~n }� |~� � nc� � bl� f��l-46961e5187-1b0 f��l-46961e5187-1b1 � rg� Z}^}}}}�  n� n� $}^}� n&� � � g��t-46961e5187-1a0 � f��l-46961e5187-1b5 � r[� Z}^}}}}�  n� }^}}}}} � n� � no� n� n� � $}^}� n� � n<� }^� n � � n� n� q}^� n@� � � � � q}^� nX� g��#%test-runner-on-group-end-procedure g��m-46961e5187-1bc p� � f��l-46961e5187-1be � r� }}}}}�  n� � l� }}}}}} � n� � l� � f��l-46961e5187-1c1 f��l-46961e5187-1c2 � r� }}}}}�  n� n� $}}� n� � � n � � l� f��l-46961e5187-1c6 f��l-46961e5187-1c7 � r� }}}}}�  n� n� }� n � � � n� � l� f��l-46961e5187-1cb f��l-46961e5187-1cc � r� }}}}}�  n� n� $}}� n&� � � g��t-46961e5187-1bb � f��l-46961e5187-1d0 � r� }}}}}�  n� }}}}}} � n� � no� n� n� � $}}� n� � n<� }� n � � n� n� q}� nB� � � �� �� q}� n� g��%test-runner-on-final-procedure g��m-46961e5187-1d7 p� � f��l-46961e5187-1d9  �  r �  } }}}}�   n �   �  l� } }}}}} � n� � l� � f��l-46961e5187-1dc f��l-46961e5187-1dd � r� } }}}}�  n� n� $} }� n� � � n �  � ! l� "f��l-46961e5187-1e1 #f��l-46961e5187-1e2 $"#� %r$� &%} }}}}�  'n&� (n&� )%} � *n )� +(*� ,+� -n� .-� /.l� 0f��l-46961e5187-1e6 1f��l-46961e5187-1e7 201� 3r2� 43} }}}}�  5n4� 6n4� 7$3} }� 8n&7� 968� :9� ;g��t-46961e5187-1d6 <;� =f��l-46961e5187-1eb >=� ?r<>� @?} }}}}�  An@� B?} }}}}} � CnB� DC� EnoB� FnB� GnB� HGC� I$?} }� JnI� KFHJ� Ln<B� M?} � Nn M� OLCN� PnB� QnB� Rq?} � SnDR� TQS� UPCT� VEKOU� WADV� Xq} � YnX� Zg��#%test-runner-on-bad-count-procedure [g��m-46961e5187-1f2 \[p� ]\� ^f��l-46961e5187-1f4 _^� `r]_� a\}`}}}}�  bna� cb� dcl� e}`}}}}} � fne� gf� hdgl� i\\� jf��l-46961e5187-1f7 kf��l-46961e5187-1f8 ljk� mril� n\m}`}}}}�  onn� pnn� q$m}`}� rnq� spr� ts� un e� vu� wdvl� xf��l-46961e5187-1fc yf��l-46961e5187-1fd zxy� {riz� |\{}`}}}}�  }n|� ~n|� {}`� n � ~� � ne� � dl� f��l-46961e5187-201 f��l-46961e5187-202 � ri� \}`}}}}�  n� n� $}`}� n&� � � g��t-46961e5187-1f1 � f��l-46961e5187-206 � r]� \}`}}}}�  n� }`}}}}} � n� � no� n� n� � $}`}� n� � n<� }`� n � � n� n� q}`� nF� � � � � q}`� nZ� g��&%test-runner-on-bad-end-name-procedure g��m-46961e5187-20d p� � f��l-46961e5187-20f � r� }}}}}�  n� � l� }}}}}} � n� � l� � f��l-46961e5187-212 f��l-46961e5187-213 � r� }}}}}�  n� n� $}}� n� � � n � � l� f��l-46961e5187-217 f��l-46961e5187-218 � r� }}}}}�  n� n� }� n � � � n� � l� f��l-46961e5187-21c f��l-46961e5187-21d � r� }}}}}�  n� n� $}}� n&� � � g��t-46961e5187-20c � f��l-46961e5187-221 � r� }}}}}�  n� }}}}}} � n� � no� n� n� � $}}� n� � n<� }� n � � n� n� q}� nH� �� �� � � q}� n� g��%test-runner-total-count g��#%%test-runner-total-count-procedure g��m-46961e5187-228  p�   �  f��l-46961e5187-22a   �  r  �  } }}}}�  n� � l� } }}}}} � n� � l�   � f��l-46961e5187-22d f��l-46961e5187-22e � r�  } }}}}�  n� n� $} }� n�  � ! � "n � #"� $#l� %f��l-46961e5187-232 &f��l-46961e5187-233 '%&� (r'� ) (} }}}}�  *n)� +n)� ,(} � -n ,� .+-� /.� 0n� 10� 21l� 3f��l-46961e5187-237 4f��l-46961e5187-238 534� 6r5� 7 6} }}}}�  8n7� 9n7� :$6} }� ;n&:� <9;� =<� >g��t-46961e5187-227 ?>� @f��l-46961e5187-23c A@� Br? A� C B} }}}}�  DnC� EB} }}}}} � FnE� GF� HnoE� InE� JnE� KJF� L$B} }� MnL� NIKM� On<E� PB} � Qn P� ROFQ� SnE� TnE� UqB} � VnU� WTV� XSFW� YHNRX� ZDGY� [q} � \n[� ]g��%test-runner-count-list ^g��"%%test-runner-count-list-procedure _g��m-46961e5187-243 `_p� a`� bf��l-46961e5187-245 cb� drac� e`}d}}}}�  fne� gf� hgl� i}d}}}}} � jni� kj� lhkl� m``� nf��l-46961e5187-248 of��l-46961e5187-249 pno� qrmp� r`q}d}}}}�  snr� tnr� u$q}d}� vnu� wtv� xw� yn i� zy� {hzl� |f��l-46961e5187-24d }f��l-46961e5187-24e ~|}� rm~� `}d}}}}�  n� n� }d� n � � � ni� � hl� f��l-46961e5187-252 f��l-46961e5187-253 � rm� `}d}}}}�  n� n� $}d}� n&� � � g��t-46961e5187-242 � f��l-46961e5187-257 � ra� `}d}}}}�  n� }d}}}}} � n� � no� n� n� � $}d}� n� � n<� }d� n � � n� n� q}d� n]� � � � � q}d� n^� g��%test-result-alist-procedure g��m-46961e5187-25e p� � f��l-46961e5187-260 � r� }}}}}�  n� � l� }}}}}} � n� � l� � f��l-46961e5187-263 f��l-46961e5187-264 � r� }}}}}�  n� n� $}}� n� � � n � � l� f��l-46961e5187-268 f��l-46961e5187-269 � r� }}}}}�  n� n� }� n � � � n� � l� f��l-46961e5187-26d f��l-46961e5187-26e � r� }}}}}�  n� n� $}}� n&� � � g��t-46961e5187-25d � f��l-46961e5187-272 � r� }}}}}�  n� }}}}}} � n� � no� n� n� � $}}� n� � n<� }� n � � �n� n� q}� nJ �   �  � �  �  � q}� n � g�� %test-runner-aux-value-procedure g��m-46961e5187-279  p�  � f��l-46961e5187-27b  � r  �  } }}}}�  n �  �  l� } }}}}} � n �  �   l�   � f��l-46961e5187-27e f��l-46961e5187-27f   � r  �   } }}}}�  n � n � !$ } }� "n !� #  "� $ #� %n  � & %� '  &l� (f��l-46961e5187-283 )f��l-46961e5187-284 * ( )� +r  *� ,  +} }}}}�  -n ,� .n ,� / +} � 0n  /� 1 . 0� 2 1� 3n � 4 3� 5  4l� 6f��l-46961e5187-288 7f��l-46961e5187-289 8 6 7� 9r  8� :  9} }}}}�  ;n :� <n :� =$ 9} }� >n& =� ? < >� @ ?� Ag��t-46961e5187-278 B A� Cf��l-46961e5187-28d D C� Er B  D� F  E} }}}}�  Gn F� H E} }}}}} � In H� J I� Kno H� Ln H� Mn H� N M I� O$ E} }� Pn O� Q L N P� Rn< H� S E} � Tn  S� U R I T� Vn H� Wn H� Xq E} � YnL X� Z W Y� [ V I Z� \ K Q U [� ] G J \� ^q} � _n  ^� `ll� a `� bl a cl b dl c eg�� %%set-fields fg��check? gg��expr hs f g� ig��m-46961e5187-294 j ip� k j� lf��l-46961e5187-299 mf��l-46961e5187-29a nf��l-46961e5187-29b of��l-46961e5187-29c pf��l-46961e5187-29d q l m n o p� rr h k q� s j� tf��l-46961e5187-296 u t� vr s u� wg��t-1e8ba8b5a-3c4 xg��t-1e8ba8b5a-3c6 yg��t-1e8ba8b5a-3c5 z w x y� {g��m-1e8ba8b5a-3c7 | {p� } | | |� ~f��l-1e8ba8b5a-3cb f��l-1e8ba8b5a-3cc f��l-1e8ba8b5a-3cd  ~  � r z } � f��l-1e8ba8b5a-3c1 f��l-1e8ba8b5a-3c2 f��l-1e8ba8b5a-3c3    � r �  r} v} }}}  �  n e � $ r} v}� n � q r} v� n0 � n2 � n4 � n6 � n8 � n � n � nQ � n � n � n: � n< � n> � n@ � nB � nD � nF � nH � n � n] � nJ � nL �                       � g��"%test-runner-pass-count!-procedure ll� g��m-46961e5187-2a8  p� g��t-46961e5187-2a6 g��t-46961e5187-2a7   �   � f��l-46961e5187-2ad f��l-46961e5187-2ae   � r   �  � f��l-46961e5187-2aa  � r  �   } }}}}�  n � g��t-1e8ba8b5a-3e6 g��t-1e8ba8b5a-3e7   � g��m-1e8ba8b5a-3e8  p�   � f��l-1e8ba8b5a-3ec f��l-1e8ba8b5a-3ed   � r   � � f��l-1e8ba8b5a-3e0 f��l-1e8ba8b5a-3e1 f��l-1e8ba8b5a-3e2    � r  � � f��l-1e8ba8b5a-3d7 f��l-1e8ba8b5a-3d8   � r  � g�� field-specs  � f��l-1e8ba8b5a-3d3 f��l-1e8ba8b5a-3d4   � r  �  } }  } }  � n � g��val n  �   � no � n � n �   � $ } }� n �    � g�� struct-set! n  �  } � n  �     � n � n � q } � n1 �   �    �     �    � q} � n  � g��"%test-runner-fail-count!-procedure g��m-46961e5187-2b8  p� g��t-46961e5187-2b6 g��t-46961e5187-2b7   �   � f��l-46961e5187-2bd f��l-46961e5187-2be   � r   �  � f��l-46961e5187-2ba  � r  �   } }}}}�  n �  } }  } }  � n � n  � �  � no � n � n �   � $ } }� n �    � n  �  } � n  �     � n � n � q } � n3 �   �    �     �   � � q} � n  � g��#%test-runner-xpass-count!-procedure g��m-46961e5187-2c8  p� g��t-46961e5187-2c6 g��t-46961e5187-2c7   �   � f��l-46961e5187-2cd f��l-46961e5187-2ce   � r   � ! � "f��l-46961e5187-2ca # "� $r ! #� %  } $}}}}�  &n %� ' } $}  } }  � (n '� )n  '� * ( )� +no '� ,n '� -n '� . - (� /$ } $}� 0n /� 1 , . 0� 2n  '� 3 } $� 4n  3� 5 2 ( 4 )� 6n '� 7n '� 8q } $� 9n5 8� : 7 9� ; 6 ( :� < + 1 5 ;� = & * <� >q} $� ?n  >� @g��#%test-runner-xfail-count!-procedure Ag��m-46961e5187-2d8 B Ap� Cg��t-46961e5187-2d6 Dg��t-46961e5187-2d7 E C D� F B B� Gf��l-46961e5187-2dd Hf��l-46961e5187-2de I G H� Jr E F I� K B� Lf��l-46961e5187-2da M L� Nr K M� O B J} N}}}}�  Pn O� Q J} N}  } }  � Rn Q� Sn  Q� T R S� Uno Q� Vn Q� Wn Q� X W R� Y$ J} N}� Zn Y� [ V X Z� \n  Q� ] J} N� ^n  ]� _ \ R ^ S� `n Q� an Q� bq J} N� cn7 b� d a c� e ` R d� f U [ _ e� g P T f� hq} N� in @ h� jg��"%test-runner-skip-count!-procedure kg��m-46961e5187-2e8 l kp� mg��t-46961e5187-2e6 ng��t-46961e5187-2e7 o m n� p l l� qf��l-46961e5187-2ed rf��l-46961e5187-2ee s q r� tr o p s� u l� vf��l-46961e5187-2ea w v� xr u w� y l t} x}}}}�  zn y� { t} x}  } }  � |n {� }n  {� ~ | }� no {� n {� n {�   |� $ t} x}� n �    � n  {�  t} x� n  �   |  }� n {� n {� q t} x� n9 �   �   | �     �  z ~ � q} x� n j � g��%test-runner-skip-list! g��"%%test-runner-skip-list!-procedure g��m-46961e5187-2f8  p� g��t-46961e5187-2f6 g��t-46961e5187-2f7   �   � f��l-46961e5187-2fd f��l-46961e5187-2fe   � r   �  � f��l-46961e5187-2fa  � r  �   } }}}}�  n �  } }  } }  � n � n  �   � no � n � n �   � $ } }� n �    � n  �  } � n  �     � n � n � q } � n  �   �    �     �    � q} � n  � g��%test-runner-fail-list! g��"%%test-runner-fail-list!-procedure g��m-46961e5187-308  p� g��t-46961e5187-306 g��t-46961e5187-307   �   � f��l-46961e5187-30d f��l-46961e5187-30e   � r   �  � f��l-46961e5187-30a  � r  �   } }}}}�  n �  } }  } }  � n � n  �   � no � n � n �   � $ } }� n �    � n  �  } � n  �     � n � n � q } � n  �   �    �     �    � q} � n  � g��%test-runner-run-list! g��!%%test-runner-run-list!-procedure g��m-46961e5187-318  p� g��t-46961e5187-316 g��t-46961e5187-317   �   � f��l-46961e5187-31d f��l-46961e5187-31e   � r   �  � f��l-46961e5187-31a  � r  �   } }}}}�  n �  } }  } }  � n � n  �   � �no � n � n �   � $ } }� n �    � n  �  } � n  �     � n � n � q } � n  �   �    �  �   �    � q} � n  � g��%test-runner-skip-save! g��"%%test-runner-skip-save!-procedure g��m-46961e5187-328  p� g��t-46961e5187-326 g��t-46961e5187-327   �   � f��l-46961e5187-32d f��l-46961e5187-32e   � r   � ! � "f��l-46961e5187-32a # "� $r ! #� %  } $}}}}�  &n %� ' } $}  } }  � (n '� )n  '� * ( )� +no '� ,n '� -n '� . - (� /$ } $}� 0n /� 1 , . 0� 2n  '� 3 } $� 4n  3� 5 2 ( 4 )� 6n '� 7n '� 8q } $� 9n  8� : 7 9� ; 6 ( :� < + 1 5 ;� = & * <� >q} $� ?n  >� @g��%test-runner-fail-save! Ag��"%%test-runner-fail-save!-procedure Bg��m-46961e5187-338 C Bp� Dg��t-46961e5187-336 Eg��t-46961e5187-337 F D E� G C C� Hf��l-46961e5187-33d If��l-46961e5187-33e J H I� Kr F G J� L C� Mf��l-46961e5187-33a N M� Or L N� P C K} O}}}}�  Qn P� R K} O}  } }  � Sn R� Tn  R� U S T� Vno R� Wn R� Xn R� Y X S� Z$ K} O}� [n Z� \ W Y [� ]n  R� ^ K} O� _n  ^� ` ] S _ T� an R� bn R� cq K} O� dn @ c� e b d� f a S e� g V \ ` f� h Q U g� iq} O� jn A i� kg��#%test-runner-group-stack!-procedure lg��m-46961e5187-348 m lp� ng��t-46961e5187-346 og��t-46961e5187-347 p n o� q m m� rf��l-46961e5187-34d sf��l-46961e5187-34e t r s� ur p q t� v m� wf��l-46961e5187-34a x w� yr v x� z m u} y}}}}�  {n z� | u} y}  } }  � }n |� ~n  |�  } ~� no |� n |� n |�   }� $ u} y}� n �    � n  |�  u} y� n  �   }  ~� n |� n |� q u} y� n; �   �   } �     �  {  � q} y� n k � g��%%test-runner-on-test-begin!-procedure g��m-46961e5187-358  p� g��t-46961e5187-356 g��t-46961e5187-357   �   � f��l-46961e5187-35d f��l-46961e5187-35e   � r   �  � f��l-46961e5187-35a  � r  �   } }}}}�  n �  } }  } }  � n � n  �   � no � n � n �   � $ } }� n �    � n  �  } � n  �     � n � n � q } � n= �   �    �     �    � q} � n  � g��#%test-runner-on-test-end!-procedure g��m-46961e5187-368  p� g��t-46961e5187-366 g��t-46961e5187-367   �   � f��l-46961e5187-36d f��l-46961e5187-36e   � r   �  � f��l-46961e5187-36a  � r  �   } }}}}�  n �  } }  } }  � n � n  �   � no � n � n �   � $ } }� n �    � n  �  } � n  �     � n � n � q } � n? �   �    �     �    � q} � n  � g��&%test-runner-on-group-begin!-procedure g��m-46961e5187-378  p� g��t-46961e5187-376 g��t-46961e5187-377   �   � f��l-46961e5187-37d f��l-46961e5187-37e   � r   �  � f��l-46961e5187-37a  � r  �   } }}}}�  n �  } }  } }  � n � n  �   � no � n � �n �  � � $ } }� n �    � n  �  } � n  �     � n � n � q } � nA �   �    �     �    � q} � n  � g��$%test-runner-on-group-end!-procedure g��m-46961e5187-388  p� g��t-46961e5187-386 g��t-46961e5187-387   �   � f��l-46961e5187-38d f��l-46961e5187-38e   � r   �  � f��l-46961e5187-38a  � !r  � "  } !}}}}�  #n "� $ } !}  } }  � %n $� &n  $� ' % &� (no $� )n $� *n $� + * %� ,$ } !}� -n ,� . ) + -� /n  $� 0 } !� 1n  0� 2 / % 1 &� 3n $� 4n $� 5q } !� 6nC 5� 7 4 6� 8 3 % 7� 9 ( . 2 8� : # ' 9� ;q} !� <n  ;� =g�� %test-runner-on-final!-procedure >g��m-46961e5187-398 ? >p� @g��t-46961e5187-396 Ag��t-46961e5187-397 B @ A� C ? ?� Df��l-46961e5187-39d Ef��l-46961e5187-39e F D E� Gr B C F� H ?� If��l-46961e5187-39a J I� Kr H J� L ? G} K}}}}�  Mn L� N G} K}  } }  � On N� Pn  N� Q O P� Rno N� Sn N� Tn N� U T O� V$ G} K}� Wn V� X S U W� Yn  N� Z G} K� [n  Z� \ Y O [ P� ]n N� ^n N� _q G} K� `nE _� a ^ `� b ] O a� c R X \ b� d M Q c� eq} K� fn = e� gg��$%test-runner-on-bad-count!-procedure hg��m-46961e5187-3a8 i hp� jg��t-46961e5187-3a6 kg��t-46961e5187-3a7 l j k� m i i� nf��l-46961e5187-3ad of��l-46961e5187-3ae p n o� qr l m p� r i� sf��l-46961e5187-3aa t s� ur r t� v i q} u}}}}�  wn v� x q} u}  } }  � yn x� zn  x� { y z� |no x� }n x� ~n x�  ~ y� $ q} u}� n �  }  � n  x�  q} u� n  �   y  z� n x� n x� q q} u� nG �   �   y �  |   �  w { � q} u� n g � g��'%test-runner-on-bad-end-name!-procedure g��m-46961e5187-3b8  p� g��t-46961e5187-3b6 g��t-46961e5187-3b7   �   � f��l-46961e5187-3bd f��l-46961e5187-3be   � r   �  � f��l-46961e5187-3ba  � r  �   } }}}}�  n �  } }  } }  � n � n  �   � no � n � n �   � $ } }� n �    � n  �  } � n  �     � n � n � q } � nI �   �    �     �    � q} � n  � g��%test-runner-total-count! g��$%%test-runner-total-count!-procedure g��m-46961e5187-3c8  p� g��t-46961e5187-3c6 g��t-46961e5187-3c7   �   � f��l-46961e5187-3cd f��l-46961e5187-3ce   � r   �  � f��l-46961e5187-3ca  � r  �   } }}}}�  n �  } }  } }  � n � n  �   � no � n � n �   � $ } }� n �    � n  �  } � n  �     � n � n � q } � n  �   �    �     �    � q} � n  � g��%test-runner-count-list! g��#%%test-runner-count-list!-procedure g��m-46961e5187-3d8  p� g��t-46961e5187-3d6 g��t-46961e5187-3d7   �   � f��l-46961e5187-3dd f��l-46961e5187-3de   � r   �  � f��l-46961e5187-3da  � r  �   } }}}}�  n �  } }  } }  � n � n  �   � no � n � n �   � �$ } }� n ��    � n  �  } � n  �     � n � n � q } � n  �   �    �     �    � q} � n  � g��%test-result-alist!-procedure g��m-46961e5187-3e8  p� g��t-46961e5187-3e6 g��t-46961e5187-3e7   �   � f��l-46961e5187-3ed f��l-46961e5187-3ee   � r   �  � f��l-46961e5187-3ea  � r  �   } }}}}�  !n � " } }  } }  � #n "� $n  "� % # $� &no "� 'n "� (n "� ) ( #� *$ } }� +n *� , ' ) +� -n  "� . } � /n  .� 0 - # / $� 1n "� 2n "� 3q } � 4nK 3� 5 2 4� 6 1 # 5� 7 & , 0 6� 8 ! % 7� 9q} � :n  9� ;g��!%test-runner-aux-value!-procedure <g��m-46961e5187-3f8 = <p� >g��t-46961e5187-3f6 ?g��t-46961e5187-3f7 @ > ?� A = =� Bf��l-46961e5187-3fd Cf��l-46961e5187-3fe D B C� Er @ A D� F =� Gf��l-46961e5187-3fa H G� Ir F H� J = E} I}}}}�  Kn J� L E} I}  } }  � Mn L� Nn  L� O M N� Pno L� Qn L� Rn L� S R M� T$ E} I}� Un T� V Q S U� Wn  L� X E} I� Yn  X� Z W M Y N� [n L� \n L� ]q E} I� ^nM ]� _ \ ^� ` [ M _� a P V Z `� b K O a� cq} I� dn ; c� eg��reverse fg��%test-null-callback gg��test-on-test-begin-simple hg��make-parameter ig��error jf��1test-runner not initialized - test-begin missing? kg��%test-specifier-matches lg��%test-any-specifier-matches mg�� result-kind ng��skip og��xfail pg��%test-should-execute qg�� %test-begin rg�� suite-name ss r� tg��m-46961e5187-407 u tp� v uq� wf��l-46961e5187-40c xf��l-46961e5187-40d y w x� zr s v y� { u� |f��l-46961e5187-409 } |� ~r { }� q z} ~� n q � n �  � lll� g��count s r �  uqq� f��l-46961e5187-411 f��l-46961e5187-412 f��l-46961e5187-413    � r   � q } ~� n q � g��display f��%%%% Starting test  g��string? g�� string-append f��.log g��open-output-file g��newline f�� (Writing full log to " f��") g�� output-port? f�� Group begin:  f�� Group end:  f��*** Total number of tests was  f�� but should be  f��. *** f��<*** Discrepancy indicates testsuite error or exceptions. *** g��%test-on-bad-count-write g��current-output-port g��%test-format-line f�� test-end  f�� does not match test-begin  g��%test-final-report1 f��# of expected passes  f��# of expected failures  f��# of unexpected successes  f��# of unexpected failures  f��# of skipped tests  g��%test-final-report-simple g��assq g�� source-file g�� source-line f��� f��: g��number->string f��:  f��test-end not in a group g�� %test-end lm g��let s r� g��m-46961e5187-417  p�  qq� f��l-46961e5187-41c f��l-46961e5187-41d f��l-46961e5187-41e    � r   �  � f��l-46961e5187-419  � r  � q } � n  � g��r n  � n+ �  �   �  � nK � n � g��cons n  � n � g�� test-name n  �   � no � n p �   � g�� dynamic-wind n  � n � n  � n  � g�� cleanup-form s r � g��m-46961e5187-422  p�  qqq� f��l-46961e5187-427 f��l-46961e5187-428 f��l-46961e5187-429 f��l-46961e5187-42a     � r   �  � f��l-46961e5187-424  � r  � q } � n � n  � n � n �   � s r �  qq� f��l-46961e5187-430 f��l-46961e5187-431 f��l-46961e5187-432    � r   � q } � n � n � l  l  l  g��form1 g��form2 g��form3 g��rest �s r    �  qqqqq� f��l-46961e5187-437 f��l-46961e5187-438 f��l-46961e5187-439 f��l-46961e5187-43a f��l-46961e5187-43b f��l-46961e5187-43c �  r��  q } �  n �  g��begin  n  � g�� source-form f�� Test begin: g��%test-write-result1 g��runner g��pname s� g��m-46961e5187-443 p� qq� f��l-46961e5187-448 f��l-46961e5187-449 f��l-46961e5187-44a � r� � f��l-46961e5187-445 � r�  q}� !n  � "n � #"� $g��default %s$� &qqq� 'f��l-46961e5187-44f (f��l-46961e5187-450 )f��l-46961e5187-451 *f��l-46961e5187-452 +'()*� ,r%&+� -q,}� .n -� /g��p 0n/-� 1n -� 2nJ-� 3no-� 4g��cdr 5n4-� 650� 7g��fail 8g��xpass 9f��XPASS :f��FAIL ;f��  <f�� Test end: =g��memq >   � ?f��  @g��write Ag��pass BA8� Cg��%test-report-result Dg��%test-evaluate-with-catch Eg��catch Fg��test-expression GsF� Hg��m-46961e5187-458 IHp� JIq� Kf��l-46961e5187-45d Lf��l-46961e5187-45e MKL� NrGJM� OI� Pf��l-46961e5187-45a QP� RrOQ� SqN}R� TnES� UnS� VnS� WnS� XnS� YWX Zn!S� [n+S� \[� ]nS� ^g�� actual-error _n^S� `]_� an S� baWX� cZ\`b� dnS� eVYcd� fe� gg�� syntax-source hg��assq-ref ig��filename jg��line kg�� datum->syntax lg��here mg�� line-alist nm� of��l-46961e5187-5eb po� qrnp� rg�� file-alist sr� tf��l-46961e5187-5e8 ut� vrsu� wj� xf��l-46961e5187-5e4 yx� zrwy� {g��file |{� }f��l-46961e5187-5e0 ~}� r|~� g�� src-props � f��l-46961e5187-5de � r� � f��l-46961e5187-5dc � r� q}}q}v}z}}}}� nl� g�� syntax->datum g��append � � g��%test-source-line2 g��%test-on-test-begin g��%test-on-test-end g��%test-comp2body lllll� g��comp g��expected s  g� g��m-46961e5187-462 p� qqqq� f��l-46961e5187-467 f��l-46961e5187-468 f��l-46961e5187-469 f��l-46961e5187-46a f��l-46961e5187-46b � r� � f��l-46961e5187-464 � r� q}� n � no� n� g��exp n� n!� n� g��expected-value n� � � g��res n� nD� g�� actual-value n� � � n� � nC� � � g�� real-part g�� imag-part g��%test-approximate= g��%test-comp1body s  g� g��m-46961e5187-471 p� qq� f��l-46961e5187-476 f��l-46961e5187-477 f��l-46961e5187-478 � r� � f��l-46961e5187-473 � r� q}� n � no� n� n� nD� n!� n� n� � � n� � nC� � � f��l-46961e5187-47e � r� q}� n�  `l� g��mac  rj� f��l-46961e5187-481 f��l-46961e5187-482 f��l-46961e5187-483 � r� q}� n � l� l� j� f��l-46961e5187-488 f��l-46961e5187-489 � r� q}� n � n� f��l-46961e5187-48d � r� q}� n�  l� g��let* g��tname  gj� �f��l-46961e5187-490 f��l-46961e5187-491 f��l-46961e5187-492 f��l-46961e5187-493 �� r� q}� n� n �  n-�   �   �  n�  nK� n � n� n � � n�  gj� f��l-46961e5187-499 f��l-46961e5187-49a f��l-46961e5187-49b � r� q}� n� n � n-� � � �  nK� !n� "~� #f��l-46961e5187-58e $f��l-46961e5187-58f %#$� &r"%� 'q}&� (n'� )ll� * gj� +f��l-46961e5187-592 ,f��l-46961e5187-593 -f��l-46961e5187-594 .f��l-46961e5187-595 /f��l-46961e5187-596 0f��l-46961e5187-597 1+,-./0� 2r*1� 3q2}&� 4n3� 5n 3� 6n-3� 76� 857� 9n3� :nK3� ;n 3� <n3� =n 3� ><=� ?n3� @ ll� A gj� Bf��l-46961e5187-59f Cf��l-46961e5187-5a0 Df��l-46961e5187-5a1 Ef��l-46961e5187-5a2 Ff��l-46961e5187-5a3 GBCDEF� HrAG� IqH}&� JnI� Kn I� Ln-I� ML� NKM� ON� PnKI� QnI� Rg�� %test-comp2 Sg��eqv? Tf��l-46961e5187-4a0 UT� VrU� Wq}V� XnSW� Yf��l-46961e5187-4a2 ZY� [rZ� \q}[� ]n\� ^g��equal? _f��l-46961e5187-4a4 `_� ar`� bq}a� cn^b� df��l-46961e5187-4a6 ed� fre� gq}f� hng� il� j g ij� kf��l-46961e5187-4a9 lf��l-46961e5187-4aa mf��l-46961e5187-4ab nf��l-46961e5187-4ac of��l-46961e5187-4ad pf��l-46961e5187-4ae qklmnop� rrjq� sqr}f� tns� un s� vn-s� wv� xuw� yns� znKs� {n s� |ns� }n s� ~|}� ns� ns� l�  g ij� f��l-46961e5187-4b6 f��l-46961e5187-4b7 f��l-46961e5187-4b8 f��l-46961e5187-4b9 f��l-46961e5187-4ba � r� q}f� n� n � n-� � � � nK� n� n� g�� %test-error g��cond g��etype s  g� g��m-46961e5187-4c1 p� qqq� f��l-46961e5187-4c6 f��l-46961e5187-4c7 f��l-46961e5187-4c8 f��l-46961e5187-4c9 � r� � f��l-46961e5187-4c3 � r� q}� n� n� n � g��et n� n!� n� g��expected-error n� � � n� nE� n� n� n� � n� � n� n�  n^� � n � � � � nC� � � f��l-46961e5187-4d0 � r� q}� n�  gj� f��l-46961e5187-4d3 f��l-46961e5187-4d4 f��l-46961e5187-4d5 f��l-46961e5187-4d6 f��l-46961e5187-4d7 � r� q}� n� n � n-� � � n� nK� n � n� n � � n�  gj� f��l-46961e5187-4de f��l-46961e5187-4df f��l-46961e5187-4e0 f��l-46961e5187-4e1 � r� q}� n� n � n-� � � � nK� n� f��l-46961e5187-4e7 f��l-46961e5187-4e8 f��l-46961e5187-4e9 � r� q}� n� n � n-� � � � nK� n� n� g��apply l- �l s� g��m-46961e5187-4ed p� qq� f��l-46961e5187-4f2 f��l-46961e5187-4f3 f��l-46961e5187-4f4 �  r�  �  f��l-46961e5187-4ef   �  r  � q } � n � g�� saved-runner n� n+� � � � n � n� � � � g��%test-match-nth g��n s� g��m-46961e5187-4f9 p�  q� !f��l-46961e5187-4fe "f��l-46961e5187-4ff #!"� $r #� %� &f��l-46961e5187-4fb '&� (r%'� )q$}(� *n)� +n )� ,+� -s � .qq� /f��l-46961e5187-503 0f��l-46961e5187-504 1f��l-46961e5187-505 2/01� 3r-.2� 4q3}(� 5n4� 6g��%test-match-all 7g��pred 8s7� 9g��m-46961e5187-509 :9p� ;:q� <f��l-46961e5187-50e =f��l-46961e5187-50f ><=� ?r8;>� @:� Af��l-46961e5187-50b BA� Cr@B� Dq?}C� En6D� Fg��%test-as-specifier GnFD� Hg��%test-match-any Ig��m-46961e5187-513 JIp� KJq� Lf��l-46961e5187-518 Mf��l-46961e5187-519 NLM� Or8KN� PJ� Qf��l-46961e5187-515 RQ� SrPR� TqO}S� UnHT� VnFT� Wg�� procedure? Xg��integer? Yf��not a valid test specifier Zg��m-46961e5187-51d [Zp� \[q� ]f��l-46961e5187-522 ^f��l-46961e5187-523 _]^� `r8\_� a[� bf��l-46961e5187-51f cb� drac� eq`}d� fn e� gne� hn-e� ih� jgi� kj� ln e� mn e� nne� onFe� pne� qpg� rq� sg��m-46961e5187-527 tsp� utq� vf��l-46961e5187-52c wf��l-46961e5187-52d xvw� yr8ux� zt� {f��l-46961e5187-529 |{� }rz|� ~qy}}� n ~� n~� n-~� � � � n ~� n ~� n~� nF~� n~� � � g��open-input-string g��read g�� eof-object? g�� read-char g��eval f�� (not at eof)C�5��h(X���]4   T5�4W�>��"��G���4Xi4Yi5�Z>��"��G��4]`c�>��"��G��4fghkm����h���@���]C���8�������g��dummy  �g��names  ��   ���C�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-64/testing.scm ; �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��names��C5gR4fhk�h ������]�45C��������g��dummy  �g��alloc  �g��runner?   �g��name   �g��index   �g��setter   �g��getter   ��   ���C�������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-64/testing.scm g �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��allocg��runner?g��nameg��indexg��setterg��getter�g��...���C5R������h ���u���]��C��m�������g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��%%test-runner-alloc-procedure�CR4fhk,�����h������]�C����������   ���C.01��������h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C6�����h������]�C����������   ���C� ���hx������]4�5$��@4�5$�� �O�@4�5"�� �6$��4 �O�?$�� @""��������������g��x  q�g��tmp q�g��tmp  " q�g��tmp  > q��g��filenamef��srfi/srfi-64/testing.scm � �  q ���C5R9:=T��4W�>��"��G��� Zi��R��h������]�$���CC������y�������g��obj  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��%test-runner?-procedure�C[R4f'hk\�������h���7���]��C������/�������g��t-46961e5187-35  ��  ���C.0'1��h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C�����h������]�C����������   ���C� ���hx������]4�5$��@4�5$�� �O�@4�5"�� �6$��4 �O�?$�� @""��������������g��x  q�g��tmp q�g��tmp  " q�g��tmp  > q��g��filenamef��srfi/srfi-64/testing.scm � �  q ���C5'R0���h������]�&��� C�6�������g��s  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��!%test-runner-pass-count-procedure�CR4f0hk ����h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C$*�h���:���]C�����2�������g��err  �g��s  ��  ���C\H����h���7���]��C������/�������g��t-46961e5187-41  ��  ���C.001��h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���CJ�����h������]�C����������   ���C����h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5"��  �6$��4�O�?$��@""���������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-64/testing.scm � �  � ���C50R2�������h������]�&��� C�6�������g��s  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��!%test-runner-fail-count-procedure�CKR4f2hkY`e����h���:���]C�����2�������g��err  �g��s  ��  ���Chns�h���:���]C�����2�������g��err  �g��s  ��  ���Cv|�h���:���]C�����2�������g��err  �g��s  ��  ���C\����h���7���]��C������/�������g��t-46961e5187-5c  ��  ���C.021��h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C�����h������]�C����������   ���C����h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5"��  �6$��4�O�?$��@""���������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-64/testing.scm � �  � ���C52R4�������h ������]�&��� C�6��������������g��s  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��"%test-runner-xpass-count-procedure�CR4f4hk���h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C\����h���7���]��C������/�������g��t-46961e5187-77  ��  ���C.041��h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C�����h������]�C����������   ���C����h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5"��  �6$��4�O�?$��@""���������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-64/testing.scm � �  � ���C54R6�������h ������]�&��� C�6��������������g��s  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��"%test-runner-xfail-count-procedure�CR4f6hk ���h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C"(-�h���:���]C�����2�������g��err  �g��s  ��  ���C\J����h���7���]��C������/�������g��t-46961e5187-92  ��  ���C.061��h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���CL�����h������]�C����������   ���C����h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5"��  �6$��4�O�?$��@""���������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-64/testing.scm � �  � ���C56R8�������h ������]�&��� C�6��������������g��s  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��!%test-runner-skip-count-procedure�CMR4f8hk[bg����h���:���]C�����2�������g��err  �g��s  ��  ���Cjpu�h���:���]C�����2�������g��err  �g��s  ��  ���Cx~�h���:���]C�����2�������g��err  �g��s  ��  ���C\����h���7���]��C������/�������g��t-46961e5187-ad  ��  ���C.081��h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C�����h������]�C����������   ���C����h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5"��  �6$��4�O�?$��@""���������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-64/testing.scm � �  � ���C58R������h ������]�&��� C�6��������������g��s  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��!%%test-runner-skip-list-procedure�CR4fhk���h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C\����h���7���]��C������/�������g��t-46961e5187-c8  ��  ���C.01�h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C�����h������]�C����������   ���C����h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5"��  �6$��4�O�?$��@""���������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-64/testing.scm � �  � ���C5R�����h ������]�&��� C�6��������������g��s  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��!%%test-runner-fail-list-procedure�CR4fhk ���h���:���]C�����2�������g��err  �g��s  ��  ���C#�h���:���]C�����2�������g��err  �g��s  ��  ���C&,1�h���:���]C�����2�������g��err  �g��s  ��  ���C\N����h���7���]��C������/�������g��t-46961e5187-e3  ��  ���C.01�h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���CP�����h������]�C����������   ���C����h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5"��  �6$��4�O�?$��@""���������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-64/testing.scm � �  � ���C5RQ�����h ������]�&��� C�6��������������g��s  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg�� %%test-runner-run-list-procedure�CRR4fQhk`gl����h���:���]C�����2�������g��err  �g��s  ��  ���Couz�h���:���]C�����2�������g��err  �g��s  ��  ���C}�h���:���]C�����2�������g��err  �g��s  ��  ���C\����h���7���]��C������/�������g��t-46961e5187-fe  ��  ���C.0Q1�h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C�����h������]�C����������   ���C����h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5"��  �6$��4�O�?$��@""���������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-64/testing.scm � �  � ���C5QR�����h ������]�&��� C�6��������������g��s  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��!%%test-runner-skip-save-procedure�CR4fhk���h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C\����h���8���]��C������0�������g��t-46961e5187-119  ��  ���C.01��������h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C�����h������]�C����������   ���C����h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5"��  �6$��4�O�?$��@""���������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-64/testing.scm � �  � ���C5R�����h ������]�&��� C�6��������������g��s  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��!%%test-runner-fail-save-procedure�C�R4fhk���h���:���]C�����2�������g��err  �g��s  ��  ���C#(�h���:���]C�����2�������g��err  �g��s  ��  ���C+16�h���:���]C�����2�������g��err  �g��s  ��  ���C\S����h���8���]��C������0�������g��t-46961e5187-134  ��  ���C.01��������h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���CU�����h������]�C����������   ���C����h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5"��  �6$��4�O�?$��@""���������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-64/testing.scm � �  � ���C5R:������h ������]�&��� C�6��������������g��s  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��"%test-runner-group-stack-procedure�CVR4f:hkdkp���h���:���]C�����2�������g��err  �g��s  ��  ���Csy~�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C\����h���8���]��C������0�������g��t-46961e5187-14f  ��  ���C.0:1�h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C�����h������]�C����������   ���C����h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5"��  �6$��4�O�?$��@""���������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-64/testing.scm � �  � ���C5:R<�������h ������]�&��� C�6��������������g��s  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��$%test-runner-on-test-begin-procedure�CR4f<hk�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C\����h���8���]��C������0�������g��t-46961e5187-16a  ��  ���C.0<1�h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C�����h������]�C����������   ���C����h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5"��  �6$��4�O�?$��@""���������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-64/testing.scm � �  � ���C5<R>�������h ������]�&��� C�6��������������g��s  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��"%test-runner-on-test-end-procedure�CR4f>hk���h���:���]C�����2�������g��err  �g��s  ��  ���C%*�h���:���]C�����2�������g��err  �g��s  ��  ���C-38�h���:���]C�����2�������g��err  �g��s  ��  ���C\U����h���8���]��C������0�������g��t-46961e5187-185  ��  ���C.0>1�h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���CW�����h������]�C����������   ���C����h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5"��  �6$��4�O�?$��@""���������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-64/testing.scm � �  � ���C5>R@�������h ������]�&��� C�6��������������g��s  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��%%test-runner-on-group-begin-procedure�CXR4f@hkfmr��������h���:���]C�����2�������g��err  �g��s  ��  ���Cu{�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C\����h���8���]��C������0�������g��t-46961e5187-1a0  ��  ���C.0@1�h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C�����h������]�C����������   ���C����h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5"��  �6$��4�O�?$��@""���������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-64/testing.scm � �  � ���C5@RB�������h ������]�&��� C�6��������������g��s  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��#%test-runner-on-group-end-procedure�CR4fBhk��h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C\����h���8���]��C������0�������g��t-46961e5187-1bb  ��  ���C.0B1�h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C�����h������]�C����������   ���C����h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5"��  �6$��4�O�?$��@""���������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-64/testing.scm � �  � ���C5BRD�������h ������]�&��� C�6��������������g��s  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��%test-runner-on-final-procedure�CR4fDhk������h���:���]C�����2�������g��err  �g��s  ��  ���C!',�h���:���]C�����2�������g��err  �g��s  ��  ���C/5:�h���:���]C�����2�������g��err  �g��s  ��  ���C\W����h���8���]��C������0�������g��t-46961e5187-1d6  ��  ���C.0D1�h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���CY�����h������]�C����������   ���C����h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5"��  �6$��4�O�?$��@""���������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-64/testing.scm � �  � ���C5DRF�������h ������]�&��� C�6��������������g��s  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��#%test-runner-on-bad-count-procedure�CZR4fFhkhot��h���:���]C�����2�������g��err  �g��s  ��  ���Cw}�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C\����h���8���]��C������0�������g��t-46961e5187-1f1  ��  ���C.0F1�h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C�����h������]�C����������   ���C����h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5"��  �6$��4�O�?$��@""���������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-64/testing.scm � �  � ���C5FRH�������h ������]�&��� C�6��������������g��s  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��&%test-runner-on-bad-end-name-procedure�CR4fHhk�������h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C\����h���8���]��C������0�������g��t-46961e5187-20c  ��  ���C.0H1�h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C�����h������]�C����������   ���C����h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5"��  �6$��4�O�?$��@""���������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-64/testing.scm � �  � ���C5HR������h ������]�&��� C�6��������������g��s  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��#%%test-runner-total-count-procedure�CR4fhk!�h���:���]C�����2�������g��err  �g��s  ��  ���C$*/�h���:���]C�����2�������g��err  �g��s  ��  ���C28=�h���:���]C�����2�������g��err  �g��s  ��  ���C\Z����h���8���]��C������0�������g��t-46961e5187-227  ��  ���C.01��������h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C\�����h������]�C����������   ���C����h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5"��  �6$��4�O�?$��@""���������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-64/testing.scm � �  � ���C5R]�����h ������]�&��� C�6��������������g��s  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��"%%test-runner-count-list-procedure�C^R4f]hklsx��h���:���]C�����2�������g��err  �g��s  ��  ���C{�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C\����h���8���]��C������0�������g��t-46961e5187-242  ��  ���C.0]1��������h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C�����h������]�C����������   ���C����h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5"��  �6$��4�O�?$��@""���������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-64/testing.scm � �  � ���C5]RJ������h ������]�&��� C�6�������|�������g��s  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��%test-result-alist-procedure�CR4fJhk�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C\ ����h���8���]��C������0�������g��t-46961e5187-25d  ��  ���C.0J1�h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C �����h������]�C����������   ���C����h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5"��  �6$��4�O�?$��@""���������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-64/testing.scm � �  � ���C5JRL�������h ������]�&��� C�6��������������g��s  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg�� %test-runner-aux-value-procedure�C R4fLhk   $�����h���:���]C�����2�������g��err  �g��s  ��  ���C ' - 2�h���:���]C�����2�������g��err  �g��s  ��  ���C 5 ; @�h���:���]C�����2�������g��err  �g��s  ��  ���C\ ]����h���8���]��C������0�������g��t-46961e5187-278  ��  ���C.0L1�h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C _�����h������]�C����������   ���C����h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5"��  �6$��4�O�?$��@""���������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-64/testing.scm � �  � ���C5LR4f&hk d   ���h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-64/testing.scm � �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5&R1��������h ������]�&��� C�6�������������g��s  �g��val  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��"%test-runner-pass-count!-procedure�C R4f1hk  �����h���V���]��C����N�������g��t-46961e5187-2a6  �g��t-46961e5187-2a7  ��  ���C.011���h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C �����h������]�C����������   ���C� ���hx������]4�5$��@4�5$�� �O�@4�5"�� �6$��4 �O�?$�� @""��������������g��x  q�g��tmp q�g��tmp  " q�g��tmp  > q��g��filenamef��srfi/srfi-64/testing.scm � �  q ���C51R3���h ������]�&��� C�6�������������g��s  �g��val  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��"%test-runner-fail-count!-procedure�C R4f3hk  �����h���V���]��C����N�������g��t-46961e5187-2b6  �g��t-46961e5187-2b7  ��  ���C.031���h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C �����h������]�C����������   ���C� ���hx������]4�5$��@4�5$�� �O�@4�5"�� �6$��4 �O�?$�� @""��������������g��x  q�g��tmp q�g��tmp  " q�g��tmp  > q��g��filenamef��srfi/srfi-64/testing.scm � �  q ���C53R5���h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��#%test-runner-xpass-count!-procedure�C R4f5hk  =����h���V���]��C����N�������g��t-46961e5187-2c6  �g��t-46961e5187-2c7  ��  ���C.051���h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C ?�����h������]�C����������   ���C� ���hx������]4�5$��@4�5$�� �O�@4�5"�� �6$��4 �O�?$�� @""��������������g��x  q�g��tmp q�g��tmp  " q�g��tmp  > q��g��filenamef��srfi/srfi-64/testing.scm � �  q ���C55R7���h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��#%test-runner-xfail-count!-procedure�C @R4f7hk  g����h���V���]��C����N�������g��t-46961e5187-2d6  �g��t-46961e5187-2d7  ��  ���C.071���h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C i�����h������]�C����������   ���C� ���hx������]4�5$��@4�5$�� �O�@4�5"�� �6$��4 �O�?$�� @""��������������g��x  q�g��tmp q�g��tmp  " q�g��tmp  > q��g��filenamef��srfi/srfi-64/testing.scm � �  q ���C57R9���h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��"%test-runner-skip-count!-procedure�C jR4f9hk  �����h���V���]��C����N�������g��t-46961e5187-2e6  �g��t-46961e5187-2e7  ��  ���C.091���h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C �����h������]�C����������   ���C� ���hx������]4�5$��@4�5$�� �O�@4�5"�� �6$��4 �O�?$�� @""��������������g��x  q�g��tmp q�g��tmp  " q�g��tmp  > q��g��filenamef��srfi/srfi-64/testing.scm � �  q ���C59R ��h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��"%%test-runner-skip-list!-procedure�C R4f hk  ����h���V���]��C����N�������g��t-46961e5187-2f6  �g��t-46961e5187-2f7  ��  ���C.0 1��h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C �����h������]�C����������   ���C� ���hx������]4�5$��@4�5$�� �O�@4�5"�� �6$��4 �O�?$�� @""��������������g��x  q�g��tmp q�g��tmp  " q�g��tmp  > q��g��filenamef��srfi/srfi-64/testing.scm � �  q ���C5 R �h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��"%%test-runner-fail-list!-procedure�C R4f hk  ����h���V���]��C����N�������g��t-46961e5187-306  �g��t-46961e5187-307  ��  ���C.0 1��h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C �����h������]�C����������   ���C� ���hx������]4�5$��@4�5$�� �O�@4�5"�� �6$��4 �O�?$�� @""��������������g��x  q�g��tmp q�g��tmp  " q�g��tmp  > q��g��filenamef��srfi/srfi-64/testing.scm � �  q ���C5 R �h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��!%%test-runner-run-list!-procedure�C R4f hk  �����h���V���]��C����N�������g��t-46961e5187-316  �g��t-46961e5187-317  ��  ���C.0 1��h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C �����h������]�C����������   ���C� ���hx������]4�5$��@4�5$�� �O�@4�5"�� �6$��4 �O�?$�� @""��������������g��x  q�g��tmp q�g��tmp  " q�g��tmp  > q��g��filenamef��srfi/srfi-64/testing.scm � �  q ���C5 R �h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��"%%test-runner-skip-save!-procedure�C R4f hk  =����h���V���]��C����N�������g��t-46961e5187-326  �g��t-46961e5187-327  ��  ���C.0 1��h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C ?�����h������]�C����������   ���C� ���hx������]4�5$��@4�5$�� �O�@4�5"�� �6$��4 �O�?$�� @""��������������g��x  q�g��tmp q�g��tmp  " q�g��tmp  > q��g��filenamef��srfi/srfi-64/testing.scm � �  q ���C5 R @�h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��"%%test-runner-fail-save!-procedure�C AR4f @hk  h����h���V���]��C����N�������g��t-46961e5187-336  �g��t-46961e5187-337  ��  ���C.0 @1��h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C j�����h������]�C����������   ���C� ���hx������]4�5$��@4�5$�� �O�@4�5"�� �6$��4 �O�?$�� @""��������������g��x  q�g��tmp q�g��tmp  " q�g��tmp  > q��g��filenamef��srfi/srfi-64/testing.scm � �  q ���C5 @R;��h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��#%test-runner-group-stack!-procedure�C kR4f;hk  ����h���V���]��C����N�������g��t-46961e5187-346  �g��t-46961e5187-347  ��  ���C.0;1���h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C �����h������]�C����������   ���C� ���hx������]4�5$��@4�5$�� �O�@4�5"�� �6$��4 �O�?$�� @""��������������g��x  q�g��tmp q�g��tmp  " q�g��tmp  > q��g��filenamef��srfi/srfi-64/testing.scm � �  q ���C5;R=���h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��%%test-runner-on-test-begin!-procedure�C R4f=hk  ��h���V���]��C����N�������g��t-46961e5187-356  �g��t-46961e5187-357  ��  ���C.0=1���h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C �����h������]�C����������   ���C� ���hx������]4�5$��@4�5$�� �O�@4�5"�� �6$��4 �O�?$�� @""��������������g��x  q�g��tmp q�g��tmp  " q�g��tmp  > q��g��filenamef��srfi/srfi-64/testing.scm � �  q ���C5=R?���h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��#%test-runner-on-test-end!-procedure�C R4f?hk  ����h���V���]��C����N�������g��t-46961e5187-366  �g��t-46961e5187-367  ��  ���C.0?1���h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C �����h������]�C����������   ���C� ���hx������]4�5$��@4�5$�� �O�@4�5"�� �6$��4 �O�?$�� @""��������������g��x  q�g��tmp q�g��tmp  " q�g��tmp  > q��g��filenamef��srfi/srfi-64/testing.scm � �  q ���C5?RA���h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��&%test-runner-on-group-begin!-procedure�C R4fAhk  �h���V���]��C����N�������g��t-46961e5187-376  �g��t-46961e5187-377  ��  ���C.0A1���h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C �����h������]�C����������   ���C� ���hx������]4�5$��@4�5$�� �O�@4�5"�� �6$��4 �O�?$�� @""��������������g��x  q�g��tmp q�g��tmp  " q�g��tmp  > q��g��filenamef��srfi/srfi-64/testing.scm � �  q ���C5ARC���h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��$%test-runner-on-group-end!-procedure�C R4fChk  :���h���V���]��C����N�������g��t-46961e5187-386  �g��t-46961e5187-387  ��  ���C.0C1���h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C <�����h������]�C����������   ���C� ���hx������]4�5$��@4�5$�� �O�@4�5"�� �6$��4 �O�?$�� @""��������������g��x  q�g��tmp q�g��tmp  " q�g��tmp  > q��g��filenamef��srfi/srfi-64/testing.scm � �  q ���C5CRE���h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg�� %test-runner-on-final!-procedure�C =R4fEhk  d�������h���V���]��C����N�������g��t-46961e5187-396  �g��t-46961e5187-397  ��  ���C.0E1���h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C f�����h������]�C����������   ���C� ���hx������]4�5$��@4�5$�� �O�@4�5"�� �6$��4 �O�?$�� @""��������������g��x  q�g��tmp q�g��tmp  " q�g��tmp  > q��g��filenamef��srfi/srfi-64/testing.scm � �  q ���C5ERG���h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��$%test-runner-on-bad-count!-procedure�C gR4fGhk  ���h���V���]��C����N�������g��t-46961e5187-3a6  �g��t-46961e5187-3a7  ��  ���C.0G1���h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C �����h������]�C����������   ���C� ���hx������]4�5$��@4�5$�� �O�@4�5"�� �6$��4 �O�?$�� @""��������������g��x  q�g��tmp q�g��tmp  " q�g��tmp  > q��g��filenamef��srfi/srfi-64/testing.scm � �  q ���C5GRI���h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��'%test-runner-on-bad-end-name!-procedure�C R4fIhk  ��������h���V���]��C����N�������g��t-46961e5187-3b6  �g��t-46961e5187-3b7  ��  ���C.0I1���h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C �����h������]�C����������   ���C� ���hx������]4�5$��@4�5$�� �O�@4�5"�� �6$��4 �O�?$�� @""��������������g��x  q�g��tmp q�g��tmp  " q�g��tmp  > q��g��filenamef��srfi/srfi-64/testing.scm � �  q ���C5IR ��h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��$%%test-runner-total-count!-procedure�C R4f hk  ��h���V���]��C����N�������g��t-46961e5187-3c6  �g��t-46961e5187-3c7  ��  ���C.0 1��h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C �����h������]�C����������   ���C� ���hx������]4�5$��@4�5$�� �O�@4�5"�� �6$��4 �O�?$�� @""��������������g��x  q�g��tmp q�g��tmp  " q�g��tmp  > q��g��filenamef��srfi/srfi-64/testing.scm � �  q ���C5 R �h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��#%%test-runner-count-list!-procedure�C R4f hk  ���h���V���]��C����N�������g��t-46961e5187-3d6  �g��t-46961e5187-3d7  ��  ���C.0 1��h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C �����h������]�C����������   ���C� ���hx������]4�5$��@4�5$�� �O�@4�5"�� �6$��4 �O�?$�� @""��������������g��x  q�g��tmp q�g��tmp  " q�g��tmp  > q��g��filenamef��srfi/srfi-64/testing.scm � �  q ���C5 RK��h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��%test-result-alist!-procedure�C R4fKhk  8��h���V���]��C����N�������g��t-46961e5187-3e6  �g��t-46961e5187-3e7  ��  ���C.0K1���h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C :�����h������]�C����������   ���C� ���hx������]4�5$��@4�5$�� �O�@4�5"�� �6$��4 �O�?$�� @""��������������g��x  q�g��tmp q�g��tmp  " q�g��tmp  > q��g��filenamef��srfi/srfi-64/testing.scm � �  q ���C5KRM���h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��!%test-runner-aux-value!-procedure�C ;R4fMhk  b������h���V���]��C����N�������g��t-46961e5187-3f6  �g��t-46961e5187-3f7  ��  ���C.0M1���h���\���]L�6����T�������g��a  ��g��filenamef��srfi/srfi-64/testing.scm  � �  ���C4�������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  � �   ���C d�����h������]�C����������   ���C� ���hx������]4�5$��@4�5$�� �O�@4�5"�� �6$��4 �O�?$�� @""��������������g��x  q�g��tmp q�g��tmp  " q�g��tmp  > q��g��filenamef��srfi/srfi-64/testing.scm � �  q ���C5MRK13579       @;��h ����]�&�� � "��4�>��"��G���&�� � "��4�>��"��G���&�� � "��4�>��"��G���&�� �  "��4�>��"��G���&�� �  "��4�>��"��G���&�� �  "��4�>��"��G���&�� �  "��4� >��"��G���&�� � "��4� >��"��G���&�� � "��4� >��"��G���&�� � "��4� >��"��G���&�� � "��4� >��"��G���&�� � "��4�>��"��G���&�� � "��4�>��"��G���&��� C�6������g��runner   ��g��filenamef��srfi/srfi-64/testing.scm �  �   �   �  - �  T �  { �  � �  � �  � �   �  & � # ' �  C �  k �  v � " w �   �   � "  �   �   � "  �   �   � "  �   �   � #  � �   ��g��nameg��test-runner-reset�C(R e:�����h(������]�&�� � "�� 4�56��������������g��runner  !��g��filenamef��srfi/srfi-64/testing.scm �  � ! � �  ! ��g��nameg��test-runner-group-path�CR������h������]C����x�������g��runner  ��g��filenamef��srfi/srfi-64/testing.scm � �   ��g��nameg��%test-null-callback�C fR(�����h������]C����~�������g��runner  �g��name  �g��count   ��g��filenamef��srfi/srfi-64/testing.scm � (�   ���CA fCE=?h������]C�����������g��runner  �g��count  �g��expected   ��g��filenamef��srfi/srfi-64/testing.scm � &�   ���CG��h������]C����}�������g��runner  �g��begin  �g��end   ��g��filenamef��srfi/srfi-64/testing.scm � )�   ���CI������hp��%��]��4�>��"��G���&�� � "��4�>��"��G���&�� � "��4�>��"��G���&�� � "��4�>��"��G���&�� � "��4� >��"��G���&�� � "��4� >��"��G���&�� �  "��4� >��"��G���&�� �  "��4�>��"��G���C�������g��runner  o�g��val \ ��g��val � ��g��val � ��g��val � ��g��filenamef��srfi/srfi-64/testing.scm �  �   �  �  4 �  \ �  � �  � �  � �   �  F � �  o ��g��nameg��test-runner-null�C)R&R(NAOCRE g=S?PGQI����h��[��]��4�>��"��G���&�� � "��4�>��"��G���&�� � "��4�>��"��G���&�� � "��4� >��"��G�� �&�� � "��4� >��"��G�� �&�� � "��4� >��"��G���&�� � "��4�>��"��G���&�� � "��4�>��"��G���C����S������g��runner  �g��val 3 a�g��val c ��g��val � ��g��val � ��g��val � !�g��val # Q�g��val S ��g��filenamef��srfi/srfi-64/testing.scm �  �   �  �  3 �  c �  � �  � �  � �  # �  S � �   ��g��nameg��test-runner-simple�C*R4 hi5+R4 hi*i5,R+ i j���h(������]45���$��"��4>��"��G���C�������g��r  (��g��filenamef��srfi/srfi-64/testing.scm �  �  �   �   �   �   � �  ( ��g��nameg��test-runner-get�C-R������h������]�6�������g��spec  �g��runner  ��g��filenamef��srfi/srfi-64/testing.scm �  � �   ��g��nameg��%test-specifier-matches�C kR,�������h���|���]�45�6��������t�������g��filenamef��srfi/srfi-64/testing.scm �  �  � �  ��g��nameg��test-runner-create�C.R k��h8��� ��]H"��'(��JC45$��K"���"�"������g��list  8�g��runner  8�g��result   8�g��l  0��g��filenamef��srfi/srfi-64/testing.scm �  �  �   �   �   � *  �  � #   *   0  0 � �  8 ��g��nameg��%test-any-specifier-matches�C lRQ l! m n o� ���h�����]�&�� � "�� 4�5&��"�� 4�5$��"��"4�&�� � "�� 4�5�5$��4�>��"��G��C4�&�� � "�� 4� 5�5$��4� >��"��G�� CC����|������g��runner  ��g��run  ��g��t  5 g��g��filenamef��srfi/srfi-64/testing.scm       &   '   ,   5  5  C  H  d  k   l  r  % t  2 y  �  �  �  �   �  �  $ �  1 �  �  �  � ��g��nameg��%test-should-execute�C pR+.@  @] :;��h����]45�$��"��445�>��"��G��45�4&��  "�� 45�>��"��G��&��  "�� 45&��  "�� 45&��  "��4>��"��G��&��  "�� 4 5&��  "�� 4 5&��  "��4 >��"��G��&��  "�� 4 5&��  "�� 4 5&��  "��4>��"��G���&��  "�� 45&�� C6���������g�� suite-name  �g��count  �g��runner  ) �g��val  � ��g��val  � $�g��val  ^ �g��val   ��g��filenamef��srfi/srfi-64/testing.scm               %   )   ,   ]  % x  % �   �   �  % �  % �   �   ' " ) B " # E $ # ^ "  ^ !   & (  % %  % �   ��g��nameg�� %test-begin�C qR4f hk `  ����h���E���]C�����=�������g��dummy  �g�� suite-name  ��  ���C  �h���X���]�C����P�������g��dummy  �g�� suite-name  �g��count   ��  ���C�h@������]4�5$��@4�5$��@�6��������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��srfi/srfi-64/testing.scm 2 �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg�� suite-name�g�� suite-nameg��count���C5 R:  &     M  L  ���h��f��]�&�� � "�� 4�5(�4>��"��G��4>��"��G��$��45$��"�� 4 54 54>��"��G��4>��"��G��4 >��"��G���&�� � "��4� >��"��G��4 >��"��G��4>��"��G��4>��"��G��"���4 >���"��G��"����&�� � "�� 4�545$��>4>��"��G��4>��"��G��4 >��"��G��"���C������^������g��runner  �g�� suite-name  �g��count   �g�� log-file-name  e �g��log-file  n  �g��log  B ��g��filenamef��srfi/srfi-64/testing.scm 8  9 ! 9  " ;  & ;  + ;  4 <  K =  L ?  V ?  ] @  c @ 2 e @  e > h D ' n > q E  u E  | E  � F  � G  � H  � I  � I  � I  � J  � K  � K   K   L  * M B M  E N  O N  P P T P  [ P d Q x R �(   ��g��nameg��test-on-group-begin-simple�CNRL   : � �����h�����] �&�� � "�� 4�545$��X4>��"��G��4�&�� � "�� 4�5>��"��G��4>��"��G��"���C��������g��runner  ��g��log  ���g��filenamef��srfi/srfi-64/testing.scm U  V  V  W  * W  + Y / Y  6 Y ? Z D Z  ] Z  d Z m [ �  � ��g��nameg��test-on-group-end-simple�COR      ���h���]��]4>��"��G��4>��"��G��4>��"��G��4>��"��G��4>��"��G��4>��"��G��4>��"��G��6������U������g��runner  ��g��count  ��g��expected-count   ��g��port   ���g��filenamef��srfi/srfi-64/testing.scm ^  _   _  _   `  + a  / a 6 a  ? b  S c  W c ^ c  g d  y e  } e � e  � f �  � ��g��nameg��%test-on-bad-count-write�C R  L ���hX��� ��] 4�45�>��"��G���&�� � "�� 4�545$�� �6C�����������g��runner  S�g��count  S�g��expected-count   S�g��log  8 S��g��filenamef��srfi/srfi-64/testing.scm h  i  i 8  i  j 8 j  ; k  E k  Q l �  S ��g��nameg��test-on-bad-count-simple�CPR     i�����h �����] 44�556���������g��runner  �g�� begin-name  �g��end-name   �g��msg   ��g��filenamef��srfi/srfi-64/testing.scm n  o  o   o 7  p   o  o   r �   ��g��nameg��test-on-bad-end-name-simple�CQR  �����h@������]� $��.4>��"��G��4�>��"��G��6C�������������g��value  :�g��label  :�g��port   :��g��filenamef��srfi/srfi-64/testing.scm v  w  w  y   z  8 { �  : ��g��nameg��%test-final-report1�C R 0 6 4 2 8 ������h���N��]4�&��� "�� 4�5>��"��G��4�&�� � "�� 4�5>��"��G��4�&�� � "�� 4�5 >��"��G��4�&��� "�� 4� 5 >��"��G���&�� � "�� 4� 5 6�F������g��runner  ��g��port  ���g��filenamef��srfi/srfi-64/testing.scm }  ~   ~  !   ( ~  1   6   P   W   `   e      �   �   �   �   �   �   �   �  �  � ��g��nameg��%test-final-report-simple�C R  L ��hP������] 4�45�>��"��G���&�� � "�� 4�545$���6C������������g��runner  K�g��log 4 K��g��filenamef��srfi/srfi-64/testing.scm       $      4   7   A   I  �  K ��g��nameg��test-on-final-simple�CRRJ        � hh�����]!�&�� � "�� 4�54545$��"��$�� 4 5 6C�������������g��runner  a�g�� line-info  a�g�� source-file  ( a�g�� source-line  3 a�g��file  D a��g��filenamef��srfi/srfi-64/testing.scm          $   (   (   +   /   3   3   ;   >  D  2 D   L   R   S   X  ( Z   \  ; ^  `  �  a ��g��nameg��%test-format-line�C R-: K   iH]FB;    @ D������hh����]B45�&��  "�� 4545&��  "��4>��"��G��(��$454 >��"��G��"����$��B�$��"��04&��  "�� 4 5�>��"��G��"���&��  "�� 4 5&��  "�� 4 5$��@$��"��/4&��  "�� 4 5>��"��G��"���4&��  "�� 45>��"��G��&��  "�� 45 &��   "��4>��"��G�� &��  "�� 45 &��   "��4>��"��G�� &��  "�� 45 &��   "��4>��"��G�� &��  "�� 45 &��   "��4>��"��G�� &��  "�� 45 &��   "��4>��"��G��  &��   "��4>��"��G�� &��  "�� 45(��&��  "�� 456C�������g�� suite-name  g�g�� line-info  g�g��r   g�g��groups  $ g�g��line  - g�g��msg  g ~�g�� count-list  � g�g��expected-count  � g�g�� saved-count  � g�g�� group-count   g�g��val  �g��val  �g��val 4 b�g��val ~ �g��val  �g��val  '��g��filenamef��srfi/srfi-64/testing.scm         $   '   -   2   ^   _   e  ' g   g   j   �   �  0 �   �   �   �  6 �   �   �   �   �   �   �   �               "  '  Z     '   "      &   !      & 4  ! 4   e  & ~  ! ~     &   !      "    *   F   I  �8  g ��g��nameg�� %test-end�C R4fhk              ��������hP���W���]���    ��   �����C����O�������g��dummy  L�g�� suite-name  L�g��body   L��  L ���C��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-64/testing.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg�� suite-nameg��body��C5R4fhk    ������h(���q���]����C�������i�������g��dummy  !�g�� suite-name  !�g��form   !�g�� cleanup-form   !��  ! ���C   ��h���_���]�C��W�������g��dummy  �g�� suite-name  �g�� cleanup-form   ��   ���C   ����h������]�C�������g��dummy  �g�� suite-name  �g��form1   �g��form2   �g��form3   �g��rest   ��   ���C� hP���;��]4�5$��@4�5$��@4�5$��@ �63������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��srfi/srfi-64/testing.scm  �  P ��g�� macro-typeg�� syntax-rulesg��patternsg�� suite-nameg��formg�� cleanup-form�g�� suite-nameg�� cleanup-form�g�� suite-nameg��form1g��form2g��form3g��rest��C5RL J      �����h��O��]1�&�� � "�� 4�545$���&�� � "�� 4�545454 54 54  >��"��G��4 >��"��G��$��4>��"��G��"���$��4>��"��G��"���$��4>��"��G��"���$��6CC���G������g��runner  �g��log  �g��results  E �g�� source-file  P �g�� source-line  [ �g�� source-form  f �g�� test-name  q ��g��filenamef��srfi/srfi-64/testing.scm        *   -   E   H   L  " P   P   S   W  " [   [   ^   b  " f   f   i   m  q   q   t  x     �  �  �   �  �   �  �   �    �$   ��g��nameg��test-on-test-begin-simple�C gR4f hk !#������h���T���]C��L�������g��dummy  �g��runner  �g��pname   ��   ���C.01236����h0���i���]������C�������a�������g��dummy  )�g��runner  )�g��pname   )�g��default   )��  ) ���C��������h@������]4�5$��@4�5$��@�6��������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��srfi/srfi-64/testing.scm  �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��runnerg��pname�g��runnerg��pnameg��default���C5 RL  mJ78      9:;  <=>���h(����]1�&�� � "�� 4�54�&�� � "�� 4�55$��"��&��"��$� �&�� � "�� 4�54 54 54 5$��"��$��b$��4 >��"��G��"���4  >��"��G��$��4 >��"��G��"���4 >��"��G��"���4 &��"��>��"��G��$��)4 >��"��G��4 >��"��G��"���4>���"��G��"���45$��4 >��"��G��4>��"��G��"��=$��445$��"��4>��"��G��"C�&�� � "�� 4�5"C�������������g��runner  !�g��p ? R�g��log R !�g��kind  R !�g��results  � �g�� source-file  � �g�� source-line  � �g�� test-name  � �g��list   �g��pair   �� g��filenamef��srfi/srfi-64/testing.scm       "  & %   R   ^   l   o   �   �   �  " �   �   �   �  " �   �   �   �  �   �   �   �  �   �  �  ) �  �   �   �   �   �  �  ) �             $  ! (   *  ) 0  1 5  C  D   H   M   V   [   `   m                         �   �       !                       �J  ! ��g��nameg��test-on-test-end-simple�CSR ? @ ����h`�����]4>��"��G��4�>��"��G��4>��"��G��4�>��"��G��6�������������g��pair  Z�g��port  Z��g��filenamef��srfi/srfi-64/testing.scm               #   ,   0  7   @   E  L   Z  �  Z ��g��nameg��%test-write-result1�CRJ K�������h`���'��]�&�� � "�� 4�545$��C�&��� C�6������������g��runner  Z�g��pname  Z�g��value   Z�g��alist   Z�g��p  ( Z�g��val  ? Z��g��filenamef��srfi/srfi-64/testing.scm         (   0   5   <  ) ?  # ?  �  Z ��g��nameg��test-result-set!�C!RK���h ������]�&��� C�6�������������g��runner  ��g��filenamef��srfi/srfi-64/testing.scm          �   ��g��nameg��test-result-clear�C"RJ �������h ������]�L&���C�4L��5C������������g��r  ��g��filenamef��srfi/srfi-64/testing.scm  #  %  3   /   7   =   7   )�   ��g��nameg��loop�CK�������hh�����]�&�� � "�� 4�545$��5O�Q�45�&��� C�6C�������g��runner  g�g��pname  g�g��alist   g�g��p  ( g�g��loop  9 J�g��val  J e��g��filenamef��srfi/srfi-64/testing.scm         (   0   9  # J  �  g ��g��nameg��test-result-remove�C#R+  mJ����hP������-��1��3��$���"��45�4&��  "�� 455$��CC���������g��rest N�g��runner  N�g��p  @ N��g��filenamef��srfi/srfi-64/testing.scm ! "   "   " !  " ,  "   #  # #  & # � N ��g��nameg��test-result-kind�C$R-=  mJB� ����h`������-��1��3��$���"��45�4&��  "�� 455$��"��6��������������g��rest Y�g��runner  Y�g��p  B U��g��filenamef��srfi/srfi-64/testing.scm % &   &   & !  & ,  &  ! ' % ' " ( ' Y ' � Y ��g��nameg�� test-passed?�C%R-$A01723845 o6789 >����h �� ��]45��4�5$��L�&��� "�� 4�5�&�� � "��4�>��"��G��"�M$��L�&��� "�� 4� 5�&�� � "��4� >��"��G��"�� $��N�&�� � "�� 4� 5�&�� � "��4� >��"��G��"��$��N�&�� � "�� 4�5�&�� � "��4�>��"��G��"��J�&�� � "�� 4�5�&�� � "��4�>��"��G���&�� � "�� 4�5�&�� � "��4�>��"��G���&�� � "�� 4�5�6���������g��r  �g�� result-kind  �g��val  6 c�g��val  � ��g��val  � �g��val  8 f�g��val   �g��val   ��g��filenamef��srfi/srfi-64/testing.scm )  *  *  +   *   ,   . ' 6 . " 6 .  p ,  s 0 ' � 0 " � 0  � ,  � 2 ( � 2 # � 2   ,   4 ( 8 4 # 8 4  m 6 '  6 "  6   7 &  7 !  7   8 �   ��g��nameg��%test-report-result�CCR4fDhk `TUVf����h���J���]�C����B�������g��dummy  �g��test-expression  ��   ���C�������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-64/testing.scm = �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��test-expression���C5DRghij  k� ����h�����])4�5$�� 45"��$�� 45"��$�� �"��$�� �"�� 4 �54 56����������g��form  |�g�� src-props |�g��file   |�g��line  5 |�g�� file-alist  J |�g�� line-alist  ` |��g��filenamef��srfi/srfi-64/testing.scm p   q  q   r   r  r 4  r  q  ' s  ( s . s 4 0 s 5 q  = t  ? u  J v  J q  R w  T x  W x - X x  ` y  ` q  h {  i { ' p {  | z �  | ��g��nameg��%test-source-line2�CR p< n  mJ� h������] 4�>��"��G��4�&�� � "�� 4�5�>��"��G��4�&�� � "�� 4�55$��"��C��������������g��r  y�g��p c v��g��filenamef��srfi/srfi-64/testing.scm        A  B   F  % I   w   x  �  y ��g��nameg��%test-on-test-begin�CR! m J o8A7� ���hh�����] �4�&�� � "�� 4�55$��"��&��$��"��"��$�� "�� 6��� ������g��r  e�g��result  e�g��p  * =��g��filenamef��srfi/srfi-64/testing.scm        2    ?  @ C   I   K  % Q  , [   ]  % c  + e  �  e ��g��nameg��%test-on-test-end�CR  J �������h8������] 4�&�� � "�� 4�55$��CC������������g��runner  3�g��p $ 3��g��filenamef��srfi/srfi-64/testing.scm          2  %�  3 ��g��nameg��test-runner-test-name�C/R4fhk� ��hX���v���]������   ���� C��n�������g��dummy  V�g��r  V�g��comp   V�g��expected   V�g��expr   V��  V ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-64/testing.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��rg��compg��expectedg��expr���C5R�h`���N��]"4�54�54545L�$��%L�$��L�$�� L�CCCC�������F������g��value  Y�g��expected  Y�g��rval   Y�g��ival   Y�g��rexp   Y�g��iexp   Y��g��filenamef��srfi/srfi-64/testing.scm                 -   .  2   9   :  >   E   F  J   Q   R  �  Y ���C�������h���~���]�O�C������v�������g��error  ��g��filenamef��srfi/srfi-64/testing.scm  �  ��g��nameg��%test-approximate=�CR4fhk � �����hH���N���]���� ��� C�������F�������g��dummy  A�g��r  A�g��expr   A��  A ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-64/testing.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��rg��expr���C5R4f hk������h���U���]�C����M�������g��mac  �g�� suite-name  �g��line   ��  ���C������h���=���]�C����5�������g��mac  �g��line  ��  ���C� ���hP������]�4�5��45$��@45$��@ 6�����������g��x  L�g��tmp  L�g��tmp   L�g��tmp  5 L��g��filenamef��srfi/srfi-64/testing.scm     0         �  L ���C5 R4fhk   � �h8���b���]�������C����Z�������g��mac  4�g��tname  4�g��expr   4�g��line   4��  4 ���C !��������h ���O���]���C����G�������g��mac  �g��expr  �g��line   ��   ���C� �hP������]�4�5��45$��@45$��@ 6�����������g��x  L�g��tmp  L�g��tmp   L�g��tmp  5 L��g��filenamef��srfi/srfi-64/testing.scm     0         �  L ���C5R(k)489:5;>?� h8������]�������C�������g��mac  8�g��tname  8�g��expected   8�g��expr   8�g��line   8�g��comp   8��  8 ���C@JOPKQ��������h ���w���]���Co�������g��mac  �g��expected  �g��expr   �g��line   �g��comp   ��  ���C� �hP������]45���45$��@45$��@ 6���������g��comp  N�g��x  N�g��tmp   N�g��tmp  N�g��tmp  7 N��g��filenamef��srfi/srfi-64/testing.scm     .         �  N ��g��nameg�� %test-comp2�CRR4fhRX������h���e���]�6������]�������g��x  ��g��filenamef��srfi/srfi-64/testing.scm    �  ���C5R4fhR]�����h���e���]�6������]�������g��x  ��g��filenamef��srfi/srfi-64/testing.scm    �  ���C5R4fhRc�����h���e���]�6������]�������g��x  ��g��filenamef��srfi/srfi-64/testing.scm    �  ���C5R4fhhkitxyzu{~� ���h@������]����� ���C����������g��mac  =�g��tname  =�g��expected   =�g��expr   =�g��error   =�g��line   =��  = ���C����h(���x���]����C���p�������g��mac  %�g��expected  %�g��expr   %�g��error   %�g��line   %��  % ���C� hP������]�4�5��45$��@45$��@ 6�����������g��x  L�g��tmp  L�g��tmp   L�g��tmp  5 L��g��filenamef��srfi/srfi-64/testing.scm     0         �  L ���C5R4fhk��������h`���a���]���   �   ����C��Y�������g��dummy  ^�g��r  ^�g��etype   ^�g��expr   ^��  ^ ���C��������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-64/testing.scm ! �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��rg��etypeg��expr���C5R4fhk� �������h8���u���]�������C��m�������g��mac  6�g��tname  6�g��etype   6�g��expr   6�g��line   6��  6 ���C�����h ���b���]���C��Z�������g��mac  �g��etype  �g��expr   �g��line   ��   ���C�����h ���O���]���C��G�������g��mac  �g��expr  �g��line   ��   ���C� �hh������]!�4�5��45$��@45$��@45$�� @  6������������g��x  c�g��tmp  c�g��tmp   c�g��tmp  5 c�g��tmp  L c��g��filenamef��srfi/srfi-64/testing.scm |   } 0  }   }   } �  c ���C5R+Q e .+��h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  �   ���C+������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  �   ���CD+����h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  �   ���C+������h���L���]�L�6D�������g��filenamef��srfi/srfi-64/testing.scm  �   ���C�h��.��-�1�3�"�Y45�$��&��  "�� 45(��945&��  "��4>��"��G���6�&�� ��"���&��  "��4>��"��G��4>��"��G��&�� C64 5�45� O� O�4 O�>���"��G��V4�>��"��G��X4 O�>���"��G��&��  "�� 4 56�$��r�&��e45� �O�O�4 �O�>���"��G��V4>��X4O�>���"��G��CX4O�>���"��G��F"."*�����&������g��first �g��rest �g��r   f�g��run-list  5 ��g��val  D r�g��val  � ��g��r  � f�g�� saved-runner  � G�g�� saved-runner  { �� g��filenamef��srfi/srfi-64/testing.scm              5  =   >  / D   v   }   �  , �  9 �   �   �   �   �  �     " 0   J   f   i   m   p   w        �  ��g��nameg�� test-apply�CR4fhk�����h(���S���]���C���K�������g��dummy  %�g��runner  %�g��form   %��  % ���C������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-64/testing.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��runnerg��formg��...���C5R��h ������]MNML�$�� ML�LCC������������g��runner  ��g��filenamef��srfi/srfi-64/testing.scm                  �   ���C������h������] H�O�C��������������g��n  �g��count  �g��i   ��g��filenamef��srfi/srfi-64/testing.scm    �   ��g��nameg��%test-match-nth�CR4fhk `*,���h���<���]C�����4�������g��dummy  �g��n  ��  ���C 5��h���O���]�C����G�������g��dummy  �g��n  �g��count   ��  ���C��h@������]4�5$��@4�5$��@�6��������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��srfi/srfi-64/testing.scm  �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��n�g��ng��count���C5R����h8������]H"��%(��JC4�5$��"��K"L�"���������g��runner  6�g��result  6�g��l  .��g��filenamef��srfi/srfi-64/testing.scm                       %   (   .   .  �  6 ���C�������h������-��1��3��O�C�������y�������g�� pred-list ��g��filenamef��srfi/srfi-64/testing.scm  �  ��g��nameg��%test-match-all�C6R4fhkEG�h���:���]��C������2�������g��tmp-46961e5187-512  ��  ���C���h���?���]45C�7�������g��dummy  �g��pred  ��   ���C��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-64/testing.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��predg��...���C5R����h8������]H"��%(��JC4�5$��K"���"L�"���������g��runner  6�g��result  6�g��l  .��g��filenamef��srfi/srfi-64/testing.scm                       !   (   .   .  �  6 ���C�������h������-��1��3��O�C�������y�������g�� pred-list ��g��filenamef��srfi/srfi-64/testing.scm  �  ��g��nameg��%test-match-any�CHR4fhkUV�h���:���]��C������2�������g��tmp-46961e5187-51c  ��  ���C���h���?���]45C�7�������g��dummy  �g��pred  ��   ���C��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-64/testing.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��predg��...���C5RWX  iY�������h@������]4�5$���C4�5$�� �64�5$���66��������������g�� specifier  9��g��filenamef��srfi/srfi-64/testing.scm           "   #  -   3   7   9  �  9 ��g��nameg��%test-as-specifier�CFR4fhkfklgmno�������h���:���]��C������2�������g��tmp-46961e5187-526  ��  ���Cr� �������h(���?���]45 ��C�����7�������g��dummy  #�g��pred  #��  # ���C��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-64/testing.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��predg��...���C5R4fhk������h���:���]��C������2�������g��tmp-46961e5187-530  ��  ���C� �������h(���?���]45 ��C�����7�������g��dummy  #�g��pred  #��  # ���C��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-64/testing.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��predg��...���C5R/��������h���s���]L�4�5C���k�������g��runner  ��g��filenamef��srfi/srfi-64/testing.scm       �  ���C��h���z���]�O�C������r�������g��name  ��g��filenamef��srfi/srfi-64/testing.scm  �  ��g��nameg��test-match-name�CRY i� �������h8�����]4�5454455$�� 45�66��� ������g��string  5�g��port 5�g��form   5��g��filenamef��srfi/srfi-64/testing.scm                    $   )   /   3   5  �  5 ��g��nameg��test-read-eval-string�CRC��������g��m  (�g��rtd  ��g��filenamef��srfi/srfi-64.scm   ) 4 . 4  6 4 & ; 4 g��filenamef��srfi/srfi-64/testing.scm D   P � ������] � ������8 � ������ � ������h � ������l � ������؆ � ������؇ � ������ؒ � ������ؓ � ������ء � ������ِ � ������K � ������ � ������\ � ������  ������  ������ 8 ������ U ������ ^ ������h h ������ n ������ v ������B } ������  ������  ������H  �����c  �����q  �����  �����  �����t  �����  �����J ! ����� % �����. ) �����"6 p �����#  �����%U  �����&g  �����*  �����4  �����D  �����GF  �����K  �����N  �����Q  �����V  �����X$  �9 �����X& ���C6�������������������������������������������������������������������������������������2.0/ccache/srfi/srfi-35.go��������������������������������������������������������������������������0000644�����������������00000043344�15146341264�0010751 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0F������] �4��hQ������]� g��guile � g��define-module* � � g��srfi g��srfi-35 � g��filenameS f��srfi/srfi-35.scm g��importsS g��srfi-1  �  � � g��exportsS g��make-condition-type g��condition-type? g��make-condition g�� condition? g��condition-has-type? g�� condition-ref g��make-compound-condition g��extract-condition g��define-condition-type g�� condition g�� &condition g��&message g��message-condition? g��condition-message g��&serious g��serious-condition? !g��&error "g��error? # !"� $g��set-current-module %$� &$� 'g��cond-expand-provide (g��current-module )� *g�� make-vtable +g�� string-append ,g��standard-vtable-fields -f��prprpr .g��format /f��#<condition-type ~a ~a> 0g��condition-type-id 1g��number->string 2g��object-address 3g��set-struct-vtable-name! 4g��condition-type 5g��%condition-type-vtable 6g��make-struct-layout 7g��print-condition 8g��string? 9g��string->symbol :f��� ;g��%make-condition-type <g��vtable-offset-user =g��condition-type-parent >g��condition-type-all-fields ?g��string-concatenate/shared @f��pr A@� Bg��struct-layout-for-condition Cf��#<condition ~a [~a] ~a> Dg��fold Ef��~A: ~S Fg�� string-join Gg��reverse Hf��  Ig��error Jf��"invalid condition type field names Kg��every Lg��symbol? Mg��lset-intersection Ng��eq? Og��append Pf��parent is not a condition type Qf��)condition type identifier is not a symbol Rf��7`make-compound-condition-type' passed empty parent list Sg�� append-map Tg��make-compound-condition-type Ug��throw Vg��wrong-type-arg Wf��condition-has-type? Xf��Wrong type argument Yg��any Zg�� list-index [f��invalid field name \f��field name is not a symbol ]f�� condition-ref ^f��Wrong type argument: ~S _g�� make-struct `g��make-condition-from-values ag�� fold-right bg��memq cf��field not specified df��make-condition eg��map fg��compound gg��reverse! hf��extract-condition ig��+ jg��length kg��make-syntax-transformer lk� mk� ng��macro og�� $sc-dispatch po� qo� rg��each sYY� trs� uYt vYu wYv xYw yg�� syntax-object zg��begin {g��top |{� }g��ribcage ~g��dummy g��name �g��parent �g��pred �g�� field-name �g��field-accessor �~� �g��m-46961e5119-cc �{� �|||||� �f��l-46961e5119-d1 �f��l-46961e5119-d2 �f��l-46961e5119-d3 �f��l-46961e5119-d4 �f��l-46961e5119-d5 �f��l-46961e5119-d6 �� �}� �}� �g��x �� �� �f��l-46961e5119-ce �� �}� �|� �g��hygiene �� �yz� �g��define �y� �y� �g��quote �y� �g��c �y� �� �y� �e� �e� �y� �g��syntax-violation �� �� �f��-source expression failed to match any pattern �g��compound-condition �g��each-any �Y� �g��type �g��field �~� �g��m-46961e5119-e1 �{� �||� �f��l-46961e5119-e6 �f��l-46961e5119-e7 �f��l-46961e5119-e8 �� �}� �� �f��l-46961e5119-e3 �� �}� �|� �y� �yT� �y� �g�� %compound �y� �� �g�� quasiquote �y� �g��unquote �y� �g��condition-instantiation �YY� �g��out �~� �g��m-46961e5119-ee �{� �||� �f��l-46961e5119-f3 �f��l-46961e5119-f4 �f��l-46961e5119-f5 �� �}� �� �f��l-46961e5119-f0 �� �}� �|� �y� �s �ڌ �Yی �Y܌ �g�� field-value �g��rest �~� �|||||� �f��l-46961e5119-fb �f��l-46961e5119-fc �f��l-46961e5119-fd �f��l-46961e5119-fe �f��l-46961e5119-ff �f��l-46961e5119-100 �� �}� �|� �y� �O� �O� �y� �Y �Y� �g��m-46961e5119-109 �{� �||� �f��l-46961e5119-10e �f��l-46961e5119-10f �f��l-46961e5119-110 �� �}� �� �f��l-46961e5119-10b �� �}� �|� �y� �r� �Y f��l-46961e5119-116 f��l-46961e5119-117 f��l-46961e5119-118 � }� |� y� g��display  f�� <&condition>  g��message   �C�5��hx0����]4   #5�4&�>��"��G���4'i4(i5�)>��"��G��4*i4+i,i-5./012�h ������]4�544�5 56��������g��ct  �g��port  ��g��filenamef��srfi/srfi-35.scm 3   4 ' 5 "  6 "  6 2  6 "  4 �   ���C5�43i�4>��"��G����5R567389:������hX���0��] 4�5�4$��"��45$�� 45"��45>��"��G��C�(������g��layout  W�g��id  W�g��parent   W�g�� all-fields   W�g��struct   W��g��filenamef��srfi/srfi-35.scm ;  =   <   <   C  C + $ C $ + D + 5 C $ 6 D 8 A E 8 E E H G E 8 L C �  W ��g��nameg��%make-condition-type�C;R5�������h������]�$���CC�������������g��obj  ��g��filenamef��srfi/srfi-35.scm H  J  J  K  K �   ��g��nameg��condition-type?g�� documentationf��'Return true if OBJ is a condition type.�CR<��������h������]4�5$��� CC��������g��ct  ��g��filenamef��srfi/srfi-35.scm N  O  O   P   P �   ��g��nameg��condition-type-id�C0R<����h������]4�5$���CC���������g��ct  ��g��filenamef��srfi/srfi-35.scm R  S  S   T   T �   ��g��nameg��condition-type-parent�C=R<��������h������]4�5$�� � CC�������g��ct  ��g��filenamef��srfi/srfi-35.scm V  W  W   X   X �   ��g��nameg��condition-type-all-fields�C>R?@A��h0������]"��(��6"�"���������g�� field-names  .�g�� field-names  "�g��layout   "��g��filenamef��srfi/srfi-35.scm [  ^  `   a   b   c   c  " b  " ^  & _  . ^ �  . ��g��nameg��struct-layout-for-condition�CBR.C04D.E��������h ������]4�4L��55C��������������g��field  �g��result  ��g��filenamef��srfi/srfi-35.scm j   k "  k - l *  k "  k �   ���C>FGH12� �����hX���?��]44�55�4�O�45544 5 54 4 �5 56�����7������g��c  S�g��port  S�g��type   C�g��strings  - @��g��filenamef��srfi/srfi-35.scm e  r  s s   s  i   i   j  $ n  % o  - j  - i  0 p  3 p  ; p % = p  D u G u  Q u S r �  S ��g��nameg��print-condition�C7R>IJKLMNOB;PQ��������h�����]�$��l45$��Y45"��645$��345(�� 4 54 5 �6"" 6 �6���������g��id  }�g��parent  }�g�� field-names   }�g�� parent-fields   m�g�� all-fields  N e�g��layout  W e��g��filenamef��srfi/srfi-35.scm w  |  |  }  }   ~   ~ % �  ) �  )  *   6  7 �  E   F � # N �  Q � # W �  e �  q �  u � y � } � �  } ��g��nameg��make-condition-typeg�� documentationf��Return a new condition type named ID, inheriting from PARENT, and with the fields whose names are listed in FIELD-NAMES. FIELD-NAMES must be a list of symbols and must not contain names already used by PARENT or one of its supertypes.�CRIRS>B;�h@���!��](���6(��C4545�6�����������g��id  ;�g��parents  ;�g�� all-fields  $ ;�g��layout  - ;��g��filenamef��srfi/srfi-35.scm �  �  �   �  �   �   �  �  $ � ' �  - � ; � �  ; ��g��nameg��make-compound-condition-type�CTR������h������]�$���6C�������������g��c  ��g��filenamef��srfi/srfi-35.scm �  �  �   �   � �   ��g��nameg�� condition?g�� documentationf�� Return true if C is a condition.�CR���h ������] �$���45$��CCC�������g��c  �g��vtable ��g��filenamef��srfi/srfi-35.scm �  �  �  �  �   �  � �  ��g��nameg��condition-type�C4RUVWX=Y�h@������] �L&��C�$��%4�5$��L�64�5�"C��������������g��ct  9�g��parent  7��g��filenamef��srfi/srfi-35.scm �  �  �  �  �   �   �  " �  * �  + �  7 � �  9 ��g��nameg��loop�C4� �������hP���B��] "�� 64�5$��*45$��O�Q�4�56""�������:������g��c  I�g��type  I�g��loop  / A��g��filenamef��srfi/srfi-35.scm � � �   �  �   �   �  �   �  & �  / �  9 �  A � �  I ��g��nameg��condition-has-type?g�� documentationf��)Return true if condition C has type TYPE.�CR4>Zh���`���]�L�CX�������g��name  ��g��filenamef��srfi/srfi-35.scm � %  � '�   ���CI[\UV]^� ������h`�����]4�5$��E$��64�5454O�5$���C66    �6��������g��c  ^�g�� field-name  ^�g��type   J�g��fields  $ J�g��index  4 J��g��filenamef��srfi/srfi-35.scm �  �  �   �  �   �   �  �  $ � ' �  4 � < � A �  F �  J �  N �  R � V � X �  Z � ^ � �  ^ ��g��nameg�� condition-refg�� documentationf��@Return the value of the field named FIELD-NAME from condition C.�CR_�������h������]� @������������g��type  �g��values  ��g��filenamef��srfi/srfi-35.scm � � �  ��g��nameg��make-condition-from-values�C`R>abIc��h(������] 4�L�5$��C�6�����������g��field  $�g��inits  $�g��v  $��g��filenamef��srfi/srfi-35.scm � %  � 0 � '  � -  � )  � 3  � - � 4 $ � -�  $ ���C`UVd^� hH�����-�1�3�4�5$��"4�54O�5�6 �6������������g��type B�g�� field+value B�g�� all-fields   6�g��inits  , 6��g��filenamef��srfi/srfi-35.scm � �   �   �   �   �  ( � % , �  , �  6 �  : � < �  > � B � � B ��g��nameg��make-conditiong�� documentationf��Return a new condition of type TYPE with fields initialized as specified by FIELD+VALUE, a sequence of field names (symbols) and values.�CRe4TfS4e������h���]���]L��6������U�������g��f  ��g��filenamef��srfi/srfi-35.scm � & � (�  ���C>������h ������] 4�5�O�456����������g��c  �g��ct ��g��filenamef��srfi/srfi-35.scm �   � ) �   � &  � !�   ���C`����h8���U��-��1��3�4�5454�56������M������g�� conditions 2�g��types  2�g��ct   2�g��inits  ( 2��g��filenamef��srfi/srfi-35.scm � �   �   �   � /  �   �  �  ( �  2 � � 2 ��g��nameg��make-compound-conditiong�� documentationf��7Return a new compound condition composed of CONDITIONS.�CRg�h@���;��]"��((��6L�"�"���3������g�� start-index  =�g�� field-names  =�g��index   .�g�� field-names   .�g��result   .��g��filenamef��srfi/srfi-35.scm                     #   .  .   3   =  �  = ��g��nameg�� list-fields�CUVhX4=ie>j�hp���h��]��(��CL�&��C$��04L5$��C�445?�"4455��"�`������g��parents  o�g��index  o�g��parent   o�g��t  * Q�g��shift  ] o��g��filenamef��srfi/srfi-35.scm �   �   �  �   �  ! �  " �  * �  8 �  ; �  > � % H �  I �  Q �  R �  U � $ ] �  ] �  b �  g   o � �  o ��g��nameg��loop�C>� h�����]"O��Q�"�� 64�5$��f45$��W4�54 5&���C$��1 O�Q�4 5 44 55@C""������������g��c  ��g��type  ��g�� list-fields  ��g��ct  : ��g��parent  C ��g��loop  ` r�g�� field-index  r ���g��filenamef��srfi/srfi-35.scm �  !  !   "  !       (   )   3   4   :   =   C   M   S   W   ` �  r   y   ~  % �   �  �  � ��g��nameg��extract-conditiong�� documentationf��OReturn a condition of condition type TYPE with the field values specified by C.�CR4mnqx���h ���X���]����C�����P�������g��tmp-46961e5119-df  �g��tmp-46961e5119-de  ��   ���C� ����hH������]������4 5C�������������g��dummy  B�g��name  B�g��parent   B�g��pred   B�g�� field-name   B�g��field-accessor   B��  B ���C��������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-35.scm ) �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��nameg��parentg��predg�� field-nameg��field-accessor�g��...���C5R4mnq������h���9���]��C������1�������g��tmp-46961e5119-ec  ��  ���C����h ���R���]45���CJ�������g��dummy  �g��type  �g��field   ��  ���C�������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-35.scm 3 �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��typeg��...�g��fieldg��...����C5R4mnq��������h���P���]C�����H�������g��dummy  �g��type  �g��out   ��  ���C����h ������]4��5C��������g��dummy  �g��type  �g��out   �g�� field-name   �g�� field-value   �g��rest   ��   ���C������h@��� ��]4�5$��@4�5$��@�6�������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��srfi/srfi-35.scm : �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��typeg��outg��...��g��typeg��outg��...�g�� field-nameg�� field-value�g��restg��...���C5R4mnq�������h���R���]C���J�������g��dummy  �g��type  �g��field   ��  ���C���h���R���]4?�C�������J�������g��dummy  �g��type  �g��field   ��   ���C�������h@������]4�5$��@4�5$��@�6��������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��srfi/srfi-35.scm A �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��typeg��fieldg��...��g��typeg��fieldg��...�g��...���C5R5i46i:5 ������h���x���]6p�������g��c  �g��port  ��g��filenamef��srfi/srfi-35.scm P   Q   Q �   ���C�R4ii 5R��h���r���]�6������j�������g��c  ��g��filenamef��srfi/srfi-35.scm T �  ��g��nameg��message-condition?�CR ��h���q���]�6������i�������g��c  ��g��filenamef��srfi/srfi-35.scm T �  ��g��nameg��condition-message�CR4ii5R���h���r���]�6������j�������g��c  ��g��filenamef��srfi/srfi-35.scm X �  ��g��nameg��serious-condition?�C R4i!i5!R!��h���f���]�6������^�������g��c  ��g��filenamef��srfi/srfi-35.scm [ �  ��g��nameg��error?�C"RC�����������g��m  ,�g��s ( E��g��filenamef��srfi/srfi-35.scm   - ' 2 '  : ' & ? ' H 2 M 2  W 2 > Y 2  ( 2 ( 2  + 8  3 8  8 8  H .  ;  H  N x R D V  [  e o w  �  �  �  � k � - � \ � H � # � -@ O  -F O # -H O  - R  - R  - R " - N  - L - T /- X / [ �,  0s ���C6���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/srfi/srfi-42.go��������������������������������������������������������������������������0000644�����������������00000310764�15146341264�0010752 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0ܑ�����] w�4�������h������]� g��guile � g��define-module* � � g��srfi g��srfi-42 � g��filenameS f��srfi/srfi-42.scm g��exportsS g��: g��:-dispatch-ref g��:-dispatch-set! g�� :char-range g�� :dispatched g��:do g��:generator-proc g�� :integers g��:let g��:list g�� :parallel g��:port g��:range g�� :real-range g��:string g��:until g��:vector g��:while g��any?-ec g�� append-ec g��dispatch-union !g��do-ec "g�� every?-ec #g��first-ec $g��fold-ec %g��fold3-ec &g��last-ec 'g��list-ec (g��make-initial-:-dispatch )g��max-ec *g��min-ec +g�� product-ec ,g��string-append-ec -g�� string-ec .g��sum-ec /g�� vector-ec 0g��vector-of-length-ec 1   !"#$%&'()*+,-./0�% 2g��set-current-module 32� 42� 5g��cond-expand-provide 6g��current-module 7� 8g��make-syntax-transformer 98� :8� ;g��macro <g�� $sc-dispatch =<� ><� ?g��any @g��free-id Ag�� syntax-object Bg��nested Cg��top DC� Eg��ribcage FE� Gg��x HG� Ig��m-46961e513b-2 JIC� KJ� Lf��l-46961e513b-4 ML� NEHKM� ODFN� Pg��hygiene QP� RABOQ� S@R� Tg��each-any UST VUT W?V Xg��dummy Yg��q Zg��etc [XYZ� \JDD� ]f��l-46961e513b-7 ^f��l-46961e513b-8 _f��l-46961e513b-9 `]^_� aE[\`� bDaFN� cA!bQ� dg��append ed� fd� g?T h?g i?h j?i kg��q1 lg��q2 mg��etc1 nXklmZ� oJDDDD� pf��l-46961e513b-10 qf��l-46961e513b-11 rf��l-46961e513b-12 sf��l-46961e513b-13 tf��l-46961e513b-14 upqrst� vEnou� wDvFN� xA!wQ� y??� zg��begin {g��cmd |X{� }JD� ~f��l-46961e513b-1c f��l-46961e513b-1d �~� �E|}� �DFN� �AzQ� �g��if �AQ� �AQ� �� �� �AOQ� �@� �?� �??� �g��test �X{� �f��l-46961e513b-21 �f��l-46961e513b-22 �f��l-46961e513b-23 �� �E\� �DFN� �AQ� �A!Q� �g��not �AOQ� �@� �?� �??� �f��l-46961e513b-28 �f��l-46961e513b-29 �f��l-46961e513b-2a �� �E\� �DFN� �AQ� �AQ� �A!Q� �g��and �AOQ� �@� �T �??� �f��l-46961e513b-2f �f��l-46961e513b-30 �f��l-46961e513b-31 �� �E\� �DFN� �AQ� �AQ� �A!Q� �g��or �AOQ� �@� �T �??� �f��l-46961e513b-37 �f��l-46961e513b-38 �f��l-46961e513b-39 �� �E\� �DFN� �AQ� �AQ� �A!Q� �AzOQ� �@� �T �??� �XZ{� �f��l-46961e513b-3f �f��l-46961e513b-40 �f��l-46961e513b-41 �� �E\� �DFN� �AzQ� �A!Q� �AOQ� �@� �??????� �??� �g��do-ec:do �g��olet �g��lbs �g��ne1? �g��ilet �g��ne2? �g��lss �X{� �JDDDDDDD� �f��l-46961e513b-47 �f��l-46961e513b-48 �f��l-46961e513b-49 �f��l-46961e513b-4a �f��l-46961e513b-4b �f��l-46961e513b-4c �f��l-46961e513b-4d �f��l-46961e513b-4e �� �E� �DFN� �AQ� �AQ� �?h?� �g��g �g��arg1 �g��arg �X{� �f��l-46961e513b-58 �f��l-46961e513b-59 �f��l-46961e513b-5a �f��l-46961e513b-5b �f��l-46961e513b-5c �� �Eo� �DFN� �AQ� �g��syntax-violation �� �� �f��-source expression failed to match any pattern �g��m-46961e513b-63 �C� �� �f��l-46961e513b-65 �� �EH� �DF� A�Q� @� g��let A�Q� @� g ???T� ??�  g�� ec-simplify  g��obs  g��oc  g��ibs  g��ic g��ls X{    �  DDDDDDDDD�  f��l-46961e513b-68 f��l-46961e513b-69 f��l-46961e513b-6a f��l-46961e513b-6b f��l-46961e513b-6c f��l-46961e513b-6d f��l-46961e513b-6e f��l-46961e513b-6f f��l-46961e513b-70 f��l-46961e513b-71 �  E� DF� A Q� AQ�  g��loop !A Q� "AQ� #g��m-46961e513b-7f $#C� %$� &f��l-46961e513b-81 '&� (EH%'� )DF(� *A)Q� +@*� ,g��atom -,� .+-?� /?.� 0,� 1+0?� 2?1� 3g�� consequent 4X3� 5$D� 6f��l-46961e513b-89 7f��l-46961e513b-8a 867� 9E458� :D9F(� ;A:Q� <A:Q� =;<<� >+-??� ??>� @+0??� A?@� BA)Q� C@B� DC?� ECD� F+E?� G?F� HX3� I$DD� Jf��l-46961e513b-9c Kf��l-46961e513b-9d Lf��l-46961e513b-9e MJKL� NEHIM� ODNF(� PA OQ� QAOQ� R+E??� S?R� Tg�� alternate UX3T� V$DDD� Wf��l-46961e513b-a3 Xf��l-46961e513b-a4 Yf��l-46961e513b-a5 Zf��l-46961e513b-a6 [WXYZ� \EUV[� ]D\F(� ^A ]Q� _A]Q� `A)Q� a@`� bT cab d?c� eg��command fXe� gf��l-46961e513b-ac hf��l-46961e513b-ad igh� jEf5i� kDjF(� lA kQ� mAzkQ� nAz)Q� o@n� poT q?p� rf��l-46961e513b-b2 sf��l-46961e513b-b3 trs� uEf5t� vDuF(� wA vQ� xA vQ� y, � zpT {?y?z� |g��done }g��to-do1 ~g��to-do2 X|}~� f��l-46961e513b-b8 f��l-46961e513b-b9 f��l-46961e513b-ba f��l-46961e513b-bb � EV� DF(� A Q� A Q� ?yTg� g��to-do X|}� f��l-46961e513b-c3 f��l-46961e513b-c4 f��l-46961e513b-c5 f��l-46961e513b-c6 � EV� DF(� A Q� A Q� ?y� X� f��l-46961e513b-ce � E%� DF(� AQ� AQ� � ?� ?y� ?yg� g��command1 Xe� f��l-46961e513b-d6 f��l-46961e513b-d7 f��l-46961e513b-d8 � EI� DF(� AzQ� ?T??????� g��cc X� g��m-46961e513b-e2 C� DDDDDDD� f��l-46961e513b-e7 f��l-46961e513b-e8 f��l-46961e513b-e9 f��l-46961e513b-ea f��l-46961e513b-eb f��l-46961e513b-ec f��l-46961e513b-ed f��l-46961e513b-ee � E� � f��l-46961e513b-e4 � EH� DF� AQ� ?????� X� DDDD� f��l-46961e513b-f9 f��l-46961e513b-fa f��l-46961e513b-fb f��l-46961e513b-fc f��l-46961e513b-fd � E� DF� AQ� AQ� � AQ� g��index g��m-46961e513b-103 C� � f��l-46961e513b-105 � EH� DF� AQ� @� ?� ????� g��var g��i g�� expression X� DDDD� f��l-46961e513b-108 f��l-46961e513b-109 f��l-46961e513b-10a f��l-46961e513b-10b f��l-46961e513b-10c � E� DF� AQ� AQ� A Q� � AQ� � AQ� � ????� X� DDD� f��l-46961e513b-113 f��l-46961e513b-114 f��l-46961e513b-115 f��l-46961e513b-116 � E� DF� AQ� AQ� AQ� � AQ� � �hT ?� ? g�� :parallel-1 g��gen X� g��m-46961e513b-11b C� DDDDD�  f��l-46961e513b-125  f��l-46961e513b-126  f��l-46961e513b-127  f��l-46961e513b-128  f��l-46961e513b-129 f��l-46961e513b-12a      � E� � f��l-46961e513b-11d � EH� DF� AQ� ??�?� g��result X� g��m-46961e513b-133 C� DDDDDD� f��l-46961e513b-138 f��l-46961e513b-139 f��l-46961e513b-13a  f��l-46961e513b-13b !f��l-46961e513b-13c "f��l-46961e513b-13d #f��l-46961e513b-13e $ !"#� %E$� &� 'f��l-46961e513b-135 ('� )EH&(� *D%F)� +A*Q� ,DF)� -A,Q� .@-� /A,Q� 0@/� 1TT 201 3.2T?2?T� 4???33� 5g��gens 6g��ob1 7g��oc1 8g��lb1 9g��ne1?1 :g��ib1 ;g��ic1 <g��ne2?1 =g��ls1 >g��ob2 ?g��oc2 @g��lb2 Ag��ne1?2 Bg��ib2 Cg��ic2 Dg��ne2?2 Eg��ls2 FX56789:;<=>?@ABCDE� GDDDDDDDDDDDDDDDDDD� Hf��l-46961e513b-149 If��l-46961e513b-14a Jf��l-46961e513b-14b Kf��l-46961e513b-14c Lf��l-46961e513b-14d Mf��l-46961e513b-14e Nf��l-46961e513b-14f Of��l-46961e513b-150 Pf��l-46961e513b-151 Qf��l-46961e513b-152 Rf��l-46961e513b-153 Sf��l-46961e513b-154 Tf��l-46961e513b-155 Uf��l-46961e513b-156 Vf��l-46961e513b-157 Wf��l-46961e513b-158 Xf��l-46961e513b-159 Yf��l-46961e513b-15a Zf��l-46961e513b-15b [HIJKLMNOPQRSTUVWXYZ� \EFG[� ]D\F)� ^A]Q� _A]Q� `A]Q� aA]Q� b?T?� c??h?� dg��:while-1 eX� fg��m-46961e513b-183 gfC� hgDDDDD� if��l-46961e513b-188 jf��l-46961e513b-189 kf��l-46961e513b-18a lf��l-46961e513b-18b mf��l-46961e513b-18c nf��l-46961e513b-18d oijklmn� pEeho� qg� rf��l-46961e513b-185 sr� tEHqs� uDpFt� vAduQ� wg��m-46961e513b-195 xwC� yx� zf��l-46961e513b-197 {z� |EHy{� }DF|� ~A}Q� @~� ??????� ???� g��:while-2 X�  xDDDDDDDD�  f��l-46961e513b-19a f��l-46961e513b-19b f��l-46961e513b-19c f��l-46961e513b-19d f��l-46961e513b-19e f��l-46961e513b-19f f��l-46961e513b-1a0 f��l-46961e513b-1a1 f��l-46961e513b-1a2 �  E� DF|� AQ� AQ� g��m-46961e513b-1ac C� � f��l-46961e513b-1ae � EH� DF� AQ� @� AQ� @� yT T  ?????� ???TTT� g��ib-let g��ib-save g�� ib-restore g��ib-var g��ib-rhs g��ib X � DDDDDDDDDDDDDD� f��l-46961e513b-1b1 f��l-46961e513b-1b2 f��l-46961e513b-1b3 f��l-46961e513b-1b4 f��l-46961e513b-1b5 f��l-46961e513b-1b6 f��l-46961e513b-1b7 f��l-46961e513b-1b8 f��l-46961e513b-1b9 f��l-46961e513b-1ba f��l-46961e513b-1bb f��l-46961e513b-1bc f��l-46961e513b-1bd f��l-46961e513b-1be f��l-46961e513b-1bf � E� DF� AQ� g��ib-tmp AQ� AQ� � � � AQ� AQ� g��set! AQ� 1 b ????� ???TTT� g��ob X  �  DDDDDDDDDDDD�  f��l-46961e513b-1d5 f��l-46961e513b-1d6 f��l-46961e513b-1d7 f��l-46961e513b-1d8 f��l-46961e513b-1d9 f��l-46961e513b-1da f��l-46961e513b-1db f��l-46961e513b-1dc f��l-46961e513b-1dd f��l-46961e513b-1de f��l-46961e513b-1df f��l-46961e513b-1e0 f��l-46961e513b-1e1 �  E� DF� AQ� AQ� g�� ne1?-value AQ� AQ� g��:until-1 g��m-46961e513b-1f5 C� DDDDD� f��l-46961e513b-1fa f��l-46961e513b-1fb f��l-46961e513b-1fc f��l-46961e513b-1fd f��l-46961e513b-1fe f��l-46961e513b-1ff � Ee� � f��l-46961e513b-1f7 � EH� DF� AQ� g��m-46961e513b-207 C� � f��l-46961e513b-209 � EH� DF� AQ� @� ??????� �???� DDDDDDDD�  f��l-46961e513b-20c f��l-46961e513b-20d f��l-46961e513b-20e f��l-46961e513b-20f f��l-46961e513b-210 f��l-46961e513b-211 f��l-46961e513b-212  f��l-46961e513b-213  f��l-46961e513b-214    �   E �  D F� A Q� A Q� A Q� g��m-46961e513b-21e C� � f��l-46961e513b-220 � EH� DF� AQ� @� ?� T ? ? ? X�  DDDD� !f��l-46961e513b-223 "f��l-46961e513b-224 #f��l-46961e513b-225 $f��l-46961e513b-226 %f��l-46961e513b-227 &!"#$%� 'E &� (D'F� )A(Q� *A(Q� +A(Q� ,?j -g��arg2 .X-� /DDDDD� 0f��l-46961e513b-22f 1f��l-46961e513b-230 2f��l-46961e513b-231 3f��l-46961e513b-232 4f��l-46961e513b-233 5f��l-46961e513b-234 6012345� 7E./6� 8D7F� 9A8Q� :Ad8Q� ;X� <DDD� =f��l-46961e513b-23d >f��l-46961e513b-23e ?f��l-46961e513b-23f @f��l-46961e513b-240 A=>?@� BE;<A� CDBF� DACQ� EACQ� FE� Gg��t HAGCQ� IACQ� Jg��null? KAJCQ� LKH� MIL� Ng��car OANCQ� POH� QP� RACQ� Sg��cdr TASCQ� UTH� VU� WRV� Xg��m-46961e513b-245 YXC� ZY� [f��l-46961e513b-247 \[� ]EHZ\� ^DF]� _A^Q� `@_� a`?� b???a?� cYDDDD� df��l-46961e513b-24a ef��l-46961e513b-24b ff��l-46961e513b-24c gf��l-46961e513b-24d hf��l-46961e513b-24e idefgh� jEci� kDjF]� lAkQ� mAkQ� ng��str oAnkQ� pg��len qApkQ� rA kQ� sqr� ts� uAkQ� vg�� string-length wAvkQ� xwo� yuqx� zy� {r� |g��< }A|kQ� ~q� g�� string-ref AkQ� AkQ� g��+ AkQ� A kQ� � ah ? ? ? X-� YDDDDDD� f��l-46961e513b-255 f��l-46961e513b-256 f��l-46961e513b-257 f��l-46961e513b-258 f��l-46961e513b-259 f��l-46961e513b-25a f��l-46961e513b-25b � E� DF]� AQ� AQ� g�� string-append AQ� X� f��l-46961e513b-265 f��l-46961e513b-266 f��l-46961e513b-267 f��l-46961e513b-268 f��l-46961e513b-269 � Ec� DF]� AQ� AQ� AQ� � g��m-46961e513b-270 C� DDD� f��l-46961e513b-275 f��l-46961e513b-276 f��l-46961e513b-277 f��l-46961e513b-278 � E;� � f��l-46961e513b-272 � EH� DF� AQ� AQ� AQ� � DF� AQ� @� ?� ????� DDDD� f��l-46961e513b-27e f��l-46961e513b-27f f��l-46961e513b-280 f��l-46961e513b-281 f��l-46961e513b-282 � E� DF� AQ� AQ� g��vec AQ� ApQ� A Q� � � AQ� g�� vector-length AQ� � � � � A|Q� � g�� vector-ref AQ� AQ� AQ� A Q� � h ?ތ ?ߌ ? DDDDDD� f��l-46961e513b-289 f��l-46961e513b-28a f��l-46961e513b-28b f��l-46961e513b-28c f��l-46961e513b-28d f��l-46961e513b-28e f��l-46961e513b-28f � E� DF� AQ� AQ� AQ� DDDDD� f��l-46961e513b-299 f��l-46961e513b-29a f��l-46961e513b-29b f��l-46961e513b-29c f��l-46961e513b-29d f��l-46961e513b-29e � E.� DF� AQ� AQ� AQ� AQ� � ApQ� �A Q� �� g��vecs AQ� g��ec-:vector-filter AQ� g��list AQ� g��k  AQ�   ��   �  AQ�  A|Q�   � AQ� AJQ� � AzQ� AQ� ANQ� � � ASQ� � � AQ� � �  �� �  �   � !AQ� "! � #"� $AQ� %A Q� &$ %� '&� ('� )g��m-46961e513b-2a6 *)C� +*� ,f��l-46961e513b-2a8 -,� .EH+-� /DF.� 0A/Q� 1@0� 21?� 3???2� 4X� 5*DDD� 6f��l-46961e513b-2ab 7f��l-46961e513b-2ac 8f��l-46961e513b-2ad 9f��l-46961e513b-2ae :6789� ;E45:� <D;F.� =A<Q� >A <Q� ?>� @A<Q� AA<Q� BA <Q� CB� D???� EX� F*DD� Gf��l-46961e513b-2b4 Hf��l-46961e513b-2b5 If��l-46961e513b-2b6 JGHI� KEEFJ� LDKF.� MALQ� NA LQ� ON� PALQ� QALQ� RA LQ� SR� Tg��m-46961e513b-2ba UTC� VU� Wf��l-46961e513b-2bc XW� YEHVX� ZDFY� [AZQ� \@[� ]\?� ^]g _?^ `?_ a?` bX� cUDDDDD� df��l-46961e513b-2bf ef��l-46961e513b-2c0 ff��l-46961e513b-2c1 gf��l-46961e513b-2c2 hf��l-46961e513b-2c3 if��l-46961e513b-2c4 jdefghi� kEbcj� lDkFY� mAlQ� nAlQ� oAlQ� pX� qUDDD� rf��l-46961e513b-2cd sf��l-46961e513b-2ce tf��l-46961e513b-2cf uf��l-46961e513b-2d0 vrstu� wEpqv� xDwFY� yAxQ� zA xQ� {A xQ� |{� }X-� ~UDDDD� f��l-46961e513b-2d6 f��l-46961e513b-2d7 f��l-46961e513b-2d8 f��l-46961e513b-2d9 f��l-46961e513b-2da � E}~� DFY� AQ� A Q� � , � ????y� X-� f��l-46961e513b-2e1 f��l-46961e513b-2e2 f��l-46961e513b-2e3 f��l-46961e513b-2e4 � Eq� DFY� AQ� AQ� g��b AQ� AQ� AQ� AQ� g��integer? AQ� � g��exact? AQ� � � � g��error AQ� f��*arguments of :range are not exact integer  AQ� f��(use :real-range?) AQ� A Q� A Q� � � � � A|Q� � � AQ� AQ� � , � ????� f��l-46961e513b-2ea f��l-46961e513b-2eb f��l-46961e513b-2ec f��l-46961e513b-2ed � Eq� DFY� AQ� AQ� AQ� AQ� AQ� AQ� AQ� � AQ� � � � AQ� AQ� AQ� A Q� A Q� � � � � g��> AQ� � � AQ� g��- AQ� � ?????y� f��l-46961e513b-2f3 f��l-46961e513b-2f4 f��l-46961e513b-2f5 f��l-46961e513b-2f6 f��l-46961e513b-2f7 � E}~� DFY� AQ� AQ� g��a AQ� AQ� AQ� AQ� AQ� AQ� � AQ� � � � � � AQ� AQ� AQ� A Q� � � � � A|Q� � � AQ� �AQ� � ?????� f��l-46961e513b-2fe f��l-46961e513b-2ff f��l-46961e513b-300 f��l-46961e513b-301 f��l-46961e513b-302 �  E}~�  D FY�  A Q�  A Q�  A Q� A Q� g��s A Q� A  Q� � g��stop A Q� A  Q� � � A Q� A Q� A Q� A Q�  � A Q�  � �  � ! � "!� #A Q� $A Q� %A Q� &#$% � '"&� ('� ) � *A Q� +� , � -A Q� .A Q� /A  Q� 0/� 1??????� 2g��arg3 3X-2� 4f��l-46961e513b-309 5f��l-46961e513b-30a 6f��l-46961e513b-30b 7f��l-46961e513b-30c 8f��l-46961e513b-30d 9f��l-46961e513b-30e :456789� ;E3c:� <D;FY� =A<Q� >A<Q� ?A<Q� @A<Q� AA<Q� BA<Q� CA <Q� DBC� ED� FA<Q� GA<Q� HA<Q� IA<Q� JI?� KA<Q� LK?� MI@� NK@� OIA� PKA� QHJLMNOP� RGQ� SA<Q� TA<Q� UA<Q� VSTU?@A� WFRV� Xg��zero? YAX<Q� ZYA� [f��$step size must not be zero in :range \A[<Q� ]S\� ^FZ]� _A<Q� `A<Q� ag��* bAa<Q� cg��max dAc<Q� eg��ceiling fAe<Q� gg��/ hAg<Q� iA<Q� ji@?� khjA� lfk� mdCl� nbmA� o`?n� p_Bo� qW^p� r?� sg��= tAs<Q� uB� v>� wA<Q� xA� yg��m-46961e513b-315 zyC� {zDDD� |f��l-46961e513b-31a }f��l-46961e513b-31b ~f��l-46961e513b-31c f��l-46961e513b-31d |}~� Ep{� z� f��l-46961e513b-317 � EH� DF� AQ� AQ� AQ� � A Q� A Q� � DF� AQ� @� ?� ????� X� zDDDD� f��l-46961e513b-323 f��l-46961e513b-324 f��l-46961e513b-325 f��l-46961e513b-326 f��l-46961e513b-327 � E� DF� AQ� AQ� A Q� A Q� � f��l-46961e513b-32e f��l-46961e513b-32f f��l-46961e513b-330 f��l-46961e513b-331 f��l-46961e513b-332 � E}� DF� AQ� AQ� AQ� � A Q� � ?????� X-� zDDDDD� f��l-46961e513b-339 f��l-46961e513b-33a f��l-46961e513b-33b f��l-46961e513b-33c f��l-46961e513b-33d f��l-46961e513b-33e � E� DF� AQ� AQ� A Q� � f��l-46961e513b-346 f��l-46961e513b-347 f��l-46961e513b-348 f��l-46961e513b-349 f��l-46961e513b-34a f��l-46961e513b-34b � E3� DF� AQ� AQ� AQ� � ??????� X-2� zDDDDDD� f��l-46961e513b-353 f��l-46961e513b-354 f��l-46961e513b-355 f��l-46961e513b-356 f��l-46961e513b-357 f��l-46961e513b-358 f��l-46961e513b-359 � E� DF� AQ� AQ� AQ� AQ� AQ� g��istop AQ� A Q� � � AQ� AQ� AQ� g��real? AQ� � � � � � AQ� f��%arguments of :real-range are not real AQ� � � AQ� � AQ� � � � � � � AQ� g��exact->inexact AQ� � �� �� AgQ� AQ� � � � � �  A|Q�  �  AQ�  AaQ�  AQ� A Q� � g��m-46961e513b-361 C� � f��l-46961e513b-363 � EH� DF� AQ� @� ?� ?????� DDDDD� f��l-46961e513b-366 f��l-46961e513b-367 f��l-46961e513b-368 f��l-46961e513b-369  f��l-46961e513b-36a !f��l-46961e513b-36b " !� #E"� $D#F� %A$Q� &A$Q� 'A$Q� (DDDD� )f��l-46961e513b-373 *f��l-46961e513b-374 +f��l-46961e513b-375 ,f��l-46961e513b-376 -f��l-46961e513b-377 .)*+,-� /E}(.� 0D/F� 1A0Q� 2A0Q� 3g��imax 4A30Q� 5g�� char->integer 6A50Q� 7A0Q� 8g��<= 9A80Q� :974� ;g�� integer->char <A;0Q� =<7� >=� ?A0Q� @A0Q� AA 0Q� B@7A� CB� D?C� Eg��m-46961e513b-37d FEC� GF� Hf��l-46961e513b-37f IH� JEHGI� KDFJ� LAKQ� M@L� NM?� ONg P?O Q?P R?Q SFDDDDD� Tf��l-46961e513b-382 Uf��l-46961e513b-383 Vf��l-46961e513b-384 Wf��l-46961e513b-385 Xf��l-46961e513b-386 Yf��l-46961e513b-387 ZTUVWXY� [EbSZ� \D[FJ� ]A\Q� ^A\Q� _A\Q� `FDDD� af��l-46961e513b-390 bf��l-46961e513b-391 cf��l-46961e513b-392 df��l-46961e513b-393 eabcd� fE;`e� gDfFJ� hAgQ� ig��read jAigQ� kj� lFDDDD� mf��l-46961e513b-399 nf��l-46961e513b-39a of��l-46961e513b-39b pf��l-46961e513b-39c qf��l-46961e513b-39d rmnopq� sE}lr� tDsFJ� uAtQ� vAtQ� wg��port xAwtQ� yg�� read-proc zAytQ� {zx� |{� }AtQ� ~g�� eof-object? A~tQ� v� AtQ� |� g��m-46961e513b-3a3 C� � f��l-46961e513b-3a5 � EH� DF� AQ� @� ?� h ? ? ? g��dispatch X� DDDDDD� f��l-46961e513b-3a8 f��l-46961e513b-3a9 f��l-46961e513b-3aa f��l-46961e513b-3ab f��l-46961e513b-3ac f��l-46961e513b-3ad f��l-46961e513b-3ae � E� DF� AQ� AQ� AQ� X� DDDDD� f��l-46961e513b-3b8 f��l-46961e513b-3b9 f��l-46961e513b-3ba f��l-46961e513b-3bb f��l-46961e513b-3bc f��l-46961e513b-3bd � E� DF� AQ� AQ� g��d AQ� g��args AQ� AQ� AQ� AQ� � g��empty AQ� � � � AQ� � � AQ� AQ� g�� procedure? AQ� � � AQ� f��%unrecognized arguments in dispatching AQ� g��quote AQ� � � � � � � � g��eq? AQ� � � AQ� � ?g� X� g��m-46961e513b-3c5 C� DD� f��l-46961e513b-3ca f��l-46961e513b-3cb f��l-46961e513b-3cc � E� � f��l-46961e513b-3c7 � EH� DF� AQ� AQ� � DF� AQ� @� AQ� @� g g��each y� T  ??T� ??� g��lv g��li g��v X   �  DDDDDDDDDDD�  f��l-46961e513b-3d2 f��l-46961e513b-3d3 f��l-46961e513b-3d4 f��l-46961e513b-3d5 f��l-46961e513b-3d6 f��l-46961e513b-3d7 f��l-46961e513b-3d8 �f��l-46961e513b-3d9 f��l-46961e513b-3da f��l-46961e513b-3db f��l-46961e513b-3dc f��l-46961e513b-3dd ��  E� DF� A Q�  AQ�  g��map   �   �  g��ne2 A Q� AQ� � � AQ� � g��lambda AQ� AQ� � AQ� AQ� � AzQ� AQ� g��value AQ� �  � !� "X� #D� $f��l-46961e513b-3f4 %f��l-46961e513b-3f5 &$%� 'E"#&� (D'F� )A(Q� *f��illegal macro call +A*(Q� ,)+� -f��dispatching conflict .g��length /g��SRFI42 0g��string? 1g�� input-port? 2g��char? 3g��list? 4g��vector? 5g�� vector->list 6g�� :-dispatch 7f��not a procedure 8g��m-46961e513b-3f8 98C� :9� ;f��l-46961e513b-3fa <;� =EH:<� >DF=� ?A>Q� @@?� A@?� BAg C?B D?C E?D F9DDDDD� Gf��l-46961e513b-3fd Hf��l-46961e513b-3fe If��l-46961e513b-3ff Jf��l-46961e513b-400 Kf��l-46961e513b-401 Lf��l-46961e513b-402 MGHIJKL� NEbFM� ODNF=� PAOQ� QAOQ� RA6OQ� S9DDDD� Tf��l-46961e513b-40b Uf��l-46961e513b-40c Vf��l-46961e513b-40d Wf��l-46961e513b-40e Xf��l-46961e513b-40f YTUVWX� ZESY� [DZF=� \A[Q� ]A6[Q� ^g��m-46961e513b-416 _^C� `_� af��l-46961e513b-418 ba� cEH`b� dDFc� eABdQ� f@e� gfT hgj i?h j?i kg��x0 lg��etc2 mg��etc3 nXkkYmlmZ� o_DDDDDDD� pf��l-46961e513b-41b qf��l-46961e513b-41c rf��l-46961e513b-41d sf��l-46961e513b-41e tf��l-46961e513b-41f uf��l-46961e513b-420 vf��l-46961e513b-421 wf��l-46961e513b-422 xpqrstuvw� yEnox� zDyFc� {A%zQ� |ABzQ� }?, ~?} XkklmlmZ� f��l-46961e513b-42e f��l-46961e513b-42f f��l-46961e513b-430 f��l-46961e513b-431 f��l-46961e513b-432 f��l-46961e513b-433 f��l-46961e513b-434 f��l-46961e513b-435 � Eo� DFc� A%Q� ABQ� g��f1 g��f2 Xk� _DDDD� f��l-46961e513b-440 f��l-46961e513b-441 f��l-46961e513b-442 f��l-46961e513b-443 f��l-46961e513b-444 � E� DFc� A%Q� ABQ� � g�� qualifier Xk� _DDDDD� f��l-46961e513b-44b f��l-46961e513b-44c f��l-46961e513b-44d f��l-46961e513b-44e f��l-46961e513b-44f f��l-46961e513b-450 � E� DFc� AQ� AQ� AQ� � AQ� AQ� � � A!Q� AQ� AQ� AzQ� AQ� � � � � � g��m-46961e513b-457 C� � f��l-46961e513b-459 � EH� DF� ABQ� @� T i ?Č ?Ō XkkYmlZ� DDDDDD� f��l-46961e513b-45c f��l-46961e513b-45d f��l-46961e513b-45e f��l-46961e513b-45f f��l-46961e513b-460 f��l-46961e513b-461 f��l-46961e513b-462 � E� DF� A$Q� ABQ� XkklmlZ� f��l-46961e513b-46d f��l-46961e513b-46e f��l-46961e513b-46f f��l-46961e513b-470 f��l-46961e513b-471 f��l-46961e513b-472 f��l-46961e513b-473 � E� DF� A$Q� ABQ� Xk� DDD� f��l-46961e513b-47d f��l-46961e513b-47e f��l-46961e513b-47f f��l-46961e513b-480 � E� DF� A$Q� ABQ� � Xk� DDDD� f��l-46961e513b-486 f��l-46961e513b-487 f��l-46961e513b-488 f��l-46961e513b-489 f��l-46961e513b-48a � E� DF� AQ� AQ� A!Q� AQ� � g��reverse XmZ� g��m-46961e513b-490 �C� �DD� f��l-46961e513b-495 f��l-46961e513b-496 f��l-46961e513b-497 � E� �� f��l-46961e513b-492  �  EH �  DF �  A Q�  A$ Q� A Q� � g��cons A Q� � g��apply g��m-46961e513b-49c C� DD� f��l-46961e513b-4a1 f��l-46961e513b-4a2 f��l-46961e513b-4a3 � E� � f��l-46961e513b-49e � EH�  DF� !A Q� "Ad Q� #A' Q� $g�� list->string %g��m-46961e513b-4a8 &%C� '&DD� (f��l-46961e513b-4ad )f��l-46961e513b-4ae *f��l-46961e513b-4af +()*� ,E'+� -&� .f��l-46961e513b-4aa /.� 0EH-/� 1D,F0� 2A$1Q� 3A'1Q� 4g��m-46961e513b-4b4 54C� 65DD� 7f��l-46961e513b-4b9 8f��l-46961e513b-4ba 9f��l-46961e513b-4bb :789� ;E6:� <5� =f��l-46961e513b-4b6 >=� ?EH<>� @D;F?� AA@Q� BA@Q� CA'@Q� Dg�� list->vector Eg��m-46961e513b-4c0 FEC� GFDD� Hf��l-46961e513b-4c5 If��l-46961e513b-4c6 Jf��l-46961e513b-4c7 KHIJ� LEGK� MF� Nf��l-46961e513b-4c2 ON� PEHMO� QDLFP� RADQQ� SA'QQ� Tg��m-46961e513b-4cc UTC� VU� Wf��l-46961e513b-4ce XW� YEHVX� ZDFY� [ABZQ� \@[� ]\T ^]h _?^ `?_ aXkYmZ� bUDDDDD� cf��l-46961e513b-4d1 df��l-46961e513b-4d2 ef��l-46961e513b-4d3 ff��l-46961e513b-4d4 gf��l-46961e513b-4d5 hf��l-46961e513b-4d6 icdefgh� jEabi� kDjFY� lA0kQ� mABkQ� nXklmZ� of��l-46961e513b-4e0 pf��l-46961e513b-4e1 qf��l-46961e513b-4e2 rf��l-46961e513b-4e3 sf��l-46961e513b-4e4 tf��l-46961e513b-4e5 uopqrst� vEnbu� wDvFY� xA0wQ� yABwQ� zX� {UDD� |f��l-46961e513b-4ee }f��l-46961e513b-4ef ~f��l-46961e513b-4f0 |}~� Ez{� DFY� A0Q� ABQ� � X� UDDD� f��l-46961e513b-4f5 f��l-46961e513b-4f6 f��l-46961e513b-4f7 f��l-46961e513b-4f8 � E� DFY� AQ� ApQ� AQ� g�� make-vector AQ� � � AQ� A Q� � � A!Q� AQ� A|Q� � AzQ� g�� vector-set! AQ� AQ� AQ� A Q� � � � AQ� f��)vector is too short for the comprehension AQ� � � AsQ� � f��(vector is too long for the comprehension AQ� � � � g��m-46961e513b-4fd C� DD� f��l-46961e513b-502 f��l-46961e513b-503 f��l-46961e513b-504 � E� � f��l-46961e513b-4ff � EH� DF� A$Q� AQ� � g��m-46961e513b-509 C� DD� f��l-46961e513b-50e f��l-46961e513b-50f f��l-46961e513b-510 � E� � f��l-46961e513b-50b � EH� DF� A$Q� AaQ� � g��m-46961e513b-515 C� DD� f��l-46961e513b-51a f��l-46961e513b-51b f��l-46961e513b-51c � E� � f��l-46961e513b-517 � EH� DF� A%Q� g��min AQ� � � g��m-46961e513b-521 C� DD� f��l-46961e513b-526 f��l-46961e513b-527 f��l-46961e513b-528 � E� � f��l-46961e513b-523 � EH� DF� A%Q� AcQ� � � g��m-46961e513b-52d C� � f��l-46961e513b-52f � EH� DF� ABQ� @� T h �? ? � g��default X kYmZ� DDDDD� f��l-46961e513b-532 f��l-46961e513b-533 f��l-46961e513b-534 f��l-46961e513b-535 f��l-46961e513b-536 f��l-46961e513b-537       � E   � D F� A& Q� AB Q� X klmZ� f��l-46961e513b-541 f��l-46961e513b-542 f��l-46961e513b-543 f��l-46961e513b-544 f��l-46961e513b-545 f��l-46961e513b-546       � E   � D F� A& Q� AB Q� X � DD� f��l-46961e513b-54f f��l-46961e513b-550 f��l-46961e513b-551 !   � "E   !� #D "F� $A& #Q� %AB #Q� & %� 'X � (DDD� )f��l-46961e513b-556 *f��l-46961e513b-557 +f��l-46961e513b-558 ,f��l-46961e513b-559 - ) * + ,� .E ' ( -� /D .F� 0A /Q� 1A /Q� 2A! /Q� 3A /Q� 4 1� 5g��m-46961e513b-55e 6 5C� 7 6� 8f��l-46961e513b-560 9 8� :EH 7 9� ;DF :� <AB ;Q� =@ <� > =T ? >h @? ? A? @ B 6DDDDD� Cf��l-46961e513b-563 Df��l-46961e513b-564 Ef��l-46961e513b-565 Ff��l-46961e513b-566 Gf��l-46961e513b-567 Hf��l-46961e513b-568 I C D E F G H� JE  B I� KD JF :� LA# KQ� MAB KQ� Nf��l-46961e513b-572 Of��l-46961e513b-573 Pf��l-46961e513b-574 Qf��l-46961e513b-575 Rf��l-46961e513b-576 Sf��l-46961e513b-577 T N O P Q R S� UE  B T� VD UF :� WA# VQ� XAB VQ� Y 6DD� Zf��l-46961e513b-580 [f��l-46961e513b-581 \f��l-46961e513b-582 ] Z [ \� ^E  Y ]� _D ^F :� `A# _Q� aAB _Q� b a� c 6DDD� df��l-46961e513b-587 ef��l-46961e513b-588 ff��l-46961e513b-589 gf��l-46961e513b-58a h d e f g� iE ' c h� jD iF :� kA jQ� lA jQ� mA jQ� nA jQ� o m n� p o� qg��ec-guarded-do-ec rA q jQ� sAB jQ� tAz jQ� uA jQ� vA jQ� w u m v� x w� y l� zg��m-46961e513b-58f { zC� | {� }f��l-46961e513b-591 ~ }� EH | ~� DF � AB Q� @ �  T  T    ?? ?� Xkl{�  {DDDD� f��l-46961e513b-594 f��l-46961e513b-595 f��l-46961e513b-596 f��l-46961e513b-597 f��l-46961e513b-598      � E   � D F � A q Q� AB Q� A Q� @ �  ?�  T    ?? ?� XY{� f��l-46961e513b-5a1 f��l-46961e513b-5a2 f��l-46961e513b-5a3 f��l-46961e513b-5a4 f��l-46961e513b-5a5      � E   � D F � A Q� A q Q� AB Q� A Q� @ �  ?�  T    ?? ?� f��l-46961e513b-5ad f��l-46961e513b-5ae f��l-46961e513b-5af f��l-46961e513b-5b0 f��l-46961e513b-5b1      � E   � D F � A Q� A Q� A q Q� AB Q� A Q� @ �  T  T    ?? ?� f��l-46961e513b-5b9 f��l-46961e513b-5ba f��l-46961e513b-5bb f��l-46961e513b-5bc f��l-46961e513b-5bd      � E   � D F � A Q� A Q� A q Q� AB Q� A Q� @ �  T  T   ̌ ?? ?� f��l-46961e513b-5c6 f��l-46961e513b-5c7 f��l-46961e513b-5c8 f��l-46961e513b-5c9 f��l-46961e513b-5ca      � E   � D F � A Q� A Q� A q Q� AB Q� Az Q� @ �  T  T   ތ ?? ?� XZY{� f��l-46961e513b-5d3 f��l-46961e513b-5d4 f��l-46961e513b-5d5 f��l-46961e513b-5d6 f��l-46961e513b-5d7      � E   � D F � Az Q� A q Q� AB Q�  g ?? ?� XY{� f��l-46961e513b-5e0 f��l-46961e513b-5e1 f��l-46961e513b-5e2 f��l-46961e513b-5e3 f��l-46961e513b-5e4      � E   � D F � A! Q� A Q� A q Q� AB Q�  � ?? ?� X{�  {DD� �f��l-46961e513b-5ec f��l-46961e513b-5ed f��l-46961e513b-5ee  �  � E   � D F � A! Q� g��m-46961e513b-5f2  C�  � f��l-46961e513b-5f4  � EH  � DF � AB Q� @ �  T  h ?  XkYmZ�  DDDD� f��l-46961e513b-5f7 f��l-46961e513b-5f8 f��l-46961e513b-5f9 f��l-46961e513b-5fa f��l-46961e513b-5fb      � E   � D F � A Q� AB Q� f��l-46961e513b-604 f��l-46961e513b-605 !f��l-46961e513b-606 "f��l-46961e513b-607 #f��l-46961e513b-608 $   ! " #� %En  $� &D %F � 'A &Q� (AB &Q� )X� * D� +f��l-46961e513b-610 ,f��l-46961e513b-611 - + ,� .E ) * -� /D .F � 0A /Q� 1AB /Q� 2 1� 3X� 4 DD� 5f��l-46961e513b-615 6f��l-46961e513b-616 7f��l-46961e513b-617 8 5 6 7� 9E 3 4 8� :D 9F � ;A# :Q� <A :Q� =A :Q� >A :Q� ? >� @g��m-46961e513b-61b A @C� B A� Cf��l-46961e513b-61d D C� EEH B D� FDF E� GAB FQ� H@ G� I HT J Ih K? J L ADDDD� Mf��l-46961e513b-620 Nf��l-46961e513b-621 Of��l-46961e513b-622 Pf��l-46961e513b-623 Qf��l-46961e513b-624 R M N O P Q� SE  L R� TD SF E� UA" TQ� VAB TQ� Wf��l-46961e513b-62d Xf��l-46961e513b-62e Yf��l-46961e513b-62f Zf��l-46961e513b-630 [f��l-46961e513b-631 \ W X Y Z [� ]En L \� ^D ]F E� _A" ^Q� `AB ^Q� a AD� bf��l-46961e513b-639 cf��l-46961e513b-63a d b c� eE ) a d� fD eF E� gA" fQ� hAB fQ� i h� j ADD� kf��l-46961e513b-63e lf��l-46961e513b-63f mf��l-46961e513b-640 n k l m� oE 3 j n� pD oF E� qA# pQ� rA pQ� sA pQ� tA pQ� uA pQ� v u�C�5����h�����]4   15�44�>��"��G���45i46i5�7>��"��G��4:!;>Wcf�h���M���]45C�E�������g��dummy  �g��q  �g��etc   ��   ���Cjx���h���p���]�C���h�������g��dummy  �g��q1  �g��q2   �g��etc1   �g��etc   ��   ���Cy������h���>���]C�����6�������g��dummy  �g��cmd  ��  ���C��������h���P���]��C�������H�������g��dummy  �g��test  �g��cmd   ��   ���C����h���P���]���C��H�������g��dummy  �g��test  �g��cmd   ��   ���C����h���P���]��C����H�������g��dummy  �g��test  �g��cmd   ��   ���C����h���P���]��C����H�������g��dummy  �g��test  �g��cmd   ��   ���Cf����h���O���]4��5C�G�������g��dummy  �g��etc  �g��cmd   ��   ���C�������h ������,�3���C��������g��dummy  �g��olet  �g��lbs   �g��ne1?   �g��ilet   �g��ne2?   �g��lss   �g��cmd   ��   ���C��������h���p���]�C�����h�������g��dummy  �g��g  �g��arg1   �g��arg   �g��cmd   ��   ���C�h�����]Q4�5$��@4�5$��@4�5$��@4�5$�� @4� 5$�� @4� 5$�� @4�5$��@4�5$��@4�5  $�� @4�5  $�� @�6�������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  ~ ��g��tmp  � ��g��tmp  � ��g��tmp � ��g��tmp � ��� g��filenamef��srfi/srfi-42/ec.scm : �  � ��g�� macro-typeg�� syntax-rulesg��patternsg��nestedg��qg��...�g��etcg��...�g��q1g��q2g��etc1g��etcg��...�g��cmd�g��ifg��test�g��cmd�g��notg��test�g��cmd�g��andg��testg��...�g��cmd�g��org��testg��...�g��cmd�g��beging��etcg��...�g��cmd�g��:dog��oletg��lbsg��ne1?g��iletg��ne2?g��lss�g��cmd�g��gg��arg1g��argg��...�g��cmd�� �C5!R4:;>f!"����h`������,� 3� 44 ���5�����5�C��������������g��dummy  Y�g��cmd  Y�g��obs   Y�g��oc   Y�g��lbs   Y�g��ne1?   Y�g��ibs   Y�g��ic   Y�g��ne2?   Y�g��ls  Y��   Y ���C����h(��� ��] 4�5$��@�6������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-42/ec.scm g �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��cmdg��:dog��letg��obsg��ocg��...�g��lbsg��ne1?g��letg��ibsg��icg��...�g��ne2?g��lsg��...�����C5R4: ;>/h���E���]C���=�������g��dummy  �g�� consequent  ��   ���C2=�h���E���]C���=�������g��dummy  �g�� consequent  ��   ���C?������h���\���]C���T�������g��dummy  �g�� consequent  �g�� alternate   ��   ���CA�������h���\���]C���T�������g��dummy  �g�� consequent  �g�� alternate   ��   ���CGPQ�������h���W���]��C�������O�������g��dummy  �g��test  �g�� consequent   ��   ���CS^_����h���n���]��C�����f�������g��dummy  �g��test  �g�� consequent   �g�� alternate   ��   ���Cdlm�����h���B���]�C���:�������g��dummy  �g��command  ��  ���Cqwx�h���B���]�C���:�������g��dummy  �g��command  ��  ���C{f�������h���g���]45�C���_�������g��dummy  �g��done  �g��to-do1   �g��to-do2   ��   ���Cf��h���f���]4�5�C^�������g��dummy  �g��done  �g��to-do1   �g��to-do   ��   ���C��������h���-���]C���%�������g��dummy  ��   ���C������h���B���]C���:�������g��dummy  �g��command  ��   ���C����h���X���]C�����P�������g��dummy  �g��command1  �g��command   ��  ���Cy����h���E���]C���=�������g��dummy  �g�� expression  ��   ���C� ���hP����]q4�5$��@4�5$��@4�5$��@4�5$�� @4� 5$�� @4� 5$�� @4�5$��@4�5$��@4�5  $�� @4�5  $�� @4�5  $�� @4�5  $�� @4�5  $�� @4�5$��@�6���������g��x  M�g��tmp M�g��tmp  " M�g��tmp  9 M�g��tmp  P M�g��tmp  g M�g��tmp  ~ M�g��tmp  � M�g��tmp  � M�g��tmp � M�g��tmp � M�g��tmp � M�g��tmp  M�g��tmp  M�g��tmp  6 M��g��filenamef��srfi/srfi-42/ec.scm � �  M ��g�� macro-typeg�� syntax-rulesg��patternsg��ifg�� consequent��g��ifg�� consequent��g��ifg�� consequentg�� alternate��g��ifg�� consequentg�� alternate��g��ifg��notg��notg��test��g�� consequent��g��ifg��notg��notg��test��g�� consequentg�� alternate��g��letg��commandg��...��g��beging��commandg��...�� g��doneg��beging��to-do1g��...�g��to-do2g��...�� g��doneg��...�g��to-do1g��to-dog��...�� � g��command�� g��command1g��commandg��...��g�� expression���C5 R4:;>f��h ������,�3���6�������g��dummy  �g��cc  �g��olet   �g��lbs   �g��ne1?   �g��ilet   �g��ne2?   �g��lss   ��  ���C�h���q���]�C��i�������g��dummy  �g��cc  �g��lbs   �g��ne1?   �g��lss   ��   ���C��������h@�����]4�5$��@4�5$��@�6��������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��srfi/srfi-42/ec.scm � �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��ccg��...�g��oletg��lbsg��ne1?g��iletg��ne2?g��lss�g��ccg��lbsg��ne1?g��lss���C5R4:;>��������h ���u���]���Cm�������g��dummy  �g��cc  �g��var   �g��i   �g�� expression   ��  ���C���h ���f���]���C�����^�������g��dummy  �g��cc  �g��var   �g�� expression   ��   ���C���h@������]4�5$��@4�5$��@�6��������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��srfi/srfi-42/ec.scm � �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��ccg��varg��indexg��i�g�� expression�g��ccg��varg�� expression���C5R4:;>y��h���=���]C���5�������g��dummy  �g��cc  ��   ���C�h������]�C���x�������g��dummy  �g��cc  �g��g   �g��arg1   �g��arg   �g��gen   ��   ���C�h@������]4�5$��@4�5$��@�6��������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��srfi/srfi-42/ec.scm � �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��cc�g��ccg��gg��arg1g��argg��...�g��geng��...���C5R4:;>+��h������]�C��������g��dummy  �g��cc  �g��g   �g��arg1   �g��arg   �g��gen   �g��result   ��   ���C4^_`fa�������hh���g��,�3�4 54 54 5�4545 �4 5��C���_������g��dummy  e�g��cc  e�g��gens   e�g��ob1   e�g��oc1   e�g��lb1   e�g��ne1?1   e�g��ib1   e�g��ic1   e�g��ne2?1  e�g��ls1  e�g��ob2  e�g��oc2  e�g��lb2  e�g��ne1?2   e�g��ib2   e�g��ic2   e�g��ne2?2   e�g��ls2   e��  e ���Cbf��������h���Q���]�6���I�������g��dummy  �g��cc  �g��result   ��  ���C� �������hP���H��]4�5$��@4�5$��@4�5$��@ �6@������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��srfi/srfi-42/ec.scm � �  P ��g�� macro-typeg�� syntax-rulesg��patternsg��ccg��gg��arg1g��argg��...�g��geng��...�g��result�g��ccg��gensg��:dog��letg��ob1g��...�g��oc1g��...�g��lb1g��...�g��ne1?1g��letg��ib1g��...�g��ic1g��...�g��ne2?1g��ls1g��...��g��:dog��letg��ob2g��...�g��oc2g��...�g��lb2g��...�g��ne1?2g��letg��ib2g��...�g��ic2g��...�g��ne2?2g��ls2g��...���g��ccg��...�g��result���C5R4:;>cv������h������]�C���y�������g��dummy  �g��cc  �g��g   �g��arg1   �g��arg   �g��test   ��   ���C��������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-42/ec.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��ccg��gg��arg1g��argg��...�g��test���C5R4:d;>�������h(������,� 3� ��C�����������g��dummy  $�g��cc  $�g��test   $�g��olet   $�g��lbs   $�g��ne1?   $�g��ilet   $�g��ne2?   $�g��lss   $��   $ ���C��������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-42/ec.scm > �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��ccg��testg��:dog��oletg��lbsg��ne1?g��iletg��ne2?g��lss����C5dR4:;>f� ��hh���0��,�3�454  ��54 �5 4  ��5 ��C�������(������g��dummy  a�g��cc  a�g��test   a�g��ib-let   a�g��ib-save   a�g�� ib-restore   a�g��olet   a�g��lbs   a�g��ne1?   a�g��ib-var  a�g��ib-rhs  a�g��ib  a�g��ic  a�g��ne2?  a�g��lss   a��  a ���Cf���hX�����,� 3� 45 ��4 �5���  �C�������������g��dummy  R�g��cc  R�g��test   R�g��ib-let   R�g��ib-save   R�g�� ib-restore   R�g��ob   R�g��oc   R�g��lbs   R�g��ne1?  R�g��ic  R�g��ne2?  R�g��lss  R��   R ���C���h@�����]4�5$��@4�5$��@�6�������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��srfi/srfi-42/ec.scm C �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��ccg��testg��ib-letg��...�g��ib-saveg��...�g�� ib-restoreg��...�g��:dog��oletg��lbsg��ne1?g��letg��ib-varg��ib-rhs�g��ibg��...�g��icg��...�g��ne2?g��lss��g��ccg��testg��ib-letg��...�g��ib-saveg��...�g�� ib-restoreg��...�g��:dog��letg��obg��...�g��ocg��...�g��lbsg��ne1?g��letg��icg��...�g��ne2?g��lss����C5R4:;>c�������h������]�C���y�������g��dummy  �g��cc  �g��g   �g��arg1   �g��arg   �g��test   ��   ���C��������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-42/ec.scm n �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��ccg��gg��arg1g��argg��...�g��test���C5R4:;>�����h(������,� 3� ���C���������g��dummy  &�g��cc  &�g��test   &�g��olet   &�g��lbs   &�g��ne1?   &�g��ilet   &�g��ne2?   &�g��lss   &��   & ���C��������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-42/ec.scm s �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��ccg��testg��:dog��oletg��lbsg��ne1?g��iletg��ne2?g��lss����C5R4:;>)*+��h ���n���]��C�������f�������g��dummy  �g��cc  �g��var   �g��i   �g��arg   ��   ���C,9:�����h������]�C�{�������g��dummy  �g��cc  �g��var   �g��arg1   �g��arg2   �g��arg   ��   ���CDFHMEQW�h0���_���]����C������W�������g��dummy  *�g��cc  *�g��var   *�g��arg   *��  * ���C� �hP���+��]4�5$��@4�5$��@4�5$��@ �6#������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��srfi/srfi-42/ec.scm } �  P ��g�� macro-typeg�� syntax-rulesg��patternsg��ccg��varg��indexg��i�g��argg��...�g��ccg��varg��arg1g��arg2g��argg��...�g��ccg��varg��arg���C5R4:;>blmotz{}~� ��hP���n���]�� ����   ��C���f�������g��dummy  M�g��cc  M�g��var   M�g��i   M�g��arg   M��  M ���C��h ������]��C���������g��dummy  �g��cc  �g��var   �g��i   �g��arg1   �g��arg2   �g��arg   ��   ���Cj��h���q���]C����i�������g��dummy  �g��cc  �g��var   �g��arg1   �g��arg   ��   ���C� �������hP���D��]4�5$��@4�5$��@4�5$��@ �6<������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��srfi/srfi-42/ec.scm  �  P ��g�� macro-typeg�� syntax-rulesg��patternsg��ccg��varg��indexg��i�g��arg�g��ccg��varg��indexg��i�g��arg1g��arg2g��argg��...�g��ccg��varg��arg1g��argg��...���C5R4:;>��������h���_���]�CW�������g��dummy  �g��cc  �g��var   �g��arg   ��   ���C� �����hP���n���]�� ����   ��C���f�������g��dummy  M�g��cc  M�g��var   M�g��i   M�g��arg   M��  M ���C��h(������]��C�������������g��dummy  "�g��cc  "�g��var   "�g��i   "�g��arg1   "�g��arg2   "�g��arg   "��  " ���C,  #(� �����hH������]����  �� C�������{�������g��dummy  A�g��cc  A�g��var   A�g��arg1   A�g��arg2   A�g��arg   A��  A ���C� �����hh���t��]!4�5$��@4�5$��@4�5$��@4�5$�� @  �6�l������g��x  g�g��tmp g�g��tmp  " g�g��tmp  9 g�g��tmp  P g��g��filenamef��srfi/srfi-42/ec.scm  �  g ��g�� macro-typeg�� syntax-rulesg��patternsg��ccg��varg��arg�g��ccg��varg��indexg��i�g��arg�g��ccg��varg��indexg��i�g��arg1g��arg2g��argg��...�g��ccg��varg��arg1g��arg2g��argg��...���C5R�����h0������]�(��C4�5 $���6�4�5C�����������g��vecs  ,��g��filenamef��srfi/srfi-42/ec.scm                        "   #   (  . *   +  �  , ��g��nameg��ec-:vector-filter�CR4:;>3=?@AC�������h0���]���]���C����U�������g��dummy  ,�g��cc  ,�g��var   ,�g��i   ,��  , ���CDMOPQS�����h ���N���]���C�F�������g��dummy  �g��cc  �g��var   ��   ���C���h@������]4�5$��@4�5$��@�6��������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��srfi/srfi-42/ec.scm  �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��ccg��varg��indexg��i��g��ccg��var���C5R4:;>amno��h ������]��C����x�������g��dummy  �g��cc  �g��var   �g��i   �g��arg1   �g��arg   ��   ���Cyz|��������h���`���]C����X�������g��dummy  �g��cc  �g��var   �g��arg1   ��   ���C���h���r���]C����j�������g��dummy  �g��cc  �g��var   �g��arg1   �g��arg2   ��   ���C� �����h@���`���]���   ��C�������X�������g��dummy  9�g��cc  9�g��var   9�g��arg2   9��  9 ���C� �������h@���`���]���   ��C�������X�������g��dummy  9�g��cc  9�g��var   9�g��arg2   9��  9 ���C�� ����h@���r���]����    ��Cj�������g��dummy  @�g��cc  @�g��var   @�g��arg1   @�g��arg2   @��  @ ���C   ()*+,-.0��������hH���r���]���     ��C�������j�������g��dummy  A�g��cc  A�g��var   A�g��arg1   A�g��arg2   A��  A ���C1=>?@AEqrGtuvw`x��hP������]����   �  ��C��|�������g��dummy  N�g��cc  N�g��var   N�g��arg1   N�g��arg2   N�g��arg3   N��  N ���C�����h���'��]A4�5$��@4�5$��@4�5$��@4�5$�� @4� 5$�� @4� 5$�� @4�5$��@4�5$��@�6�����������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  ~ ��g��tmp  � ��g��tmp  � ��� g��filenamef��srfi/srfi-42/ec.scm  �  � ��g�� macro-typeg�� syntax-rulesg��patternsg��ccg��varg��indexg��i�g��arg1g��argg��...�g��ccg��varg��arg1�g��ccg��varg��arg1g��arg2�g��ccg��var g��arg2 �g��ccg��var g��arg2 �g��ccg��varg��arg1g��arg2 �g��ccg��varg��arg1g��arg2 �g��ccg��varg��arg1g��arg2g��arg3�� �C5R4:;>�������h���`���]C�X�������g��dummy  �g��cc  �g��var   �g��arg1   ��   ���C�����h ���o���]�C����g�������g��dummy  �g��cc  �g��var   �g��i   �g��arg1   ��   ���C�h���r���]C�j�������g��dummy  �g��cc  �g��var   �g��arg1   �g��arg2   ��   ���C������h ������]�C����y�������g��dummy  �g��cc  �g��var   �g��i   �g��arg1   �g��arg2   ��   ���C1��h������]�C����|�������g��dummy  �g��cc  �g��var   �g��arg1   �g��arg2   �g��arg3   ��   ���C     ���hh������]����    �����  ��C�����������g��dummy  d�g��cc  d�g��var   d�g��i   d�g��arg1   d�g��arg2   d�g��arg3   d��  d ���C������h�����]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$�� @4� 5$�� @�6���������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  ~ ���g��filenamef��srfi/srfi-42/ec.scm 5 �  � ��g�� macro-typeg�� syntax-rulesg��patternsg��ccg��varg��arg1�g��ccg��varg��indexg��i�g��arg1�g��ccg��varg��arg1g��arg2�g��ccg��varg��indexg��i�g��arg1g��arg2�g��ccg��varg��arg1g��arg2g��arg3�g��ccg��varg��indexg��i�g��arg1g��arg2g��arg3���C5R4:;>%&'����h ������]���C����y�������g��dummy  �g��cc  �g��var   �g��i   �g��arg1   �g��arg2   ��   ���C12467:>D� �������hH���r���]���������C�������j�������g��dummy  A�g��cc  A�g��var   A�g��arg1   A�g��arg2   A��  A ���C�������h@������]4�5$��@4�5$��@�6��������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��srfi/srfi-42/ec.scm X �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��ccg��varg��indexg��i�g��arg1g��arg2�g��ccg��varg��arg1g��arg2���C5R4:;>R]^_��h ������]��C����x�������g��dummy  �g��cc  �g��var   �g��i   �g��arg1   �g��arg   ��   ���Chk���h���_���]C�������W�������g��dummy  �g��cc  �g��var   �g��arg   ��   ���Cuvxz|}� �h8���r���]�������Cj�������g��dummy  8�g��cc  8�g��var   8�g��arg1   8�g��arg2   8��  8 ���C� ������hP���%��]4�5$��@4�5$��@4�5$��@ �6������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��srfi/srfi-42/ec.scm j �  P ��g�� macro-typeg�� syntax-rulesg��patternsg��ccg��varg��indexg��i�g��arg1g��argg��...�g��ccg��varg��arg�g��ccg��varg��arg1g��arg2���C5R4:;>����h ������]��C��������g��dummy  �g��cc  �g��var   �g��i   �g��dispatch   �g��arg1   �g��arg   ��   ���C,� ������hH������]���   � C��������������g��dummy  A�g��cc  A�g��var   A�g��dispatch   A�g��arg1   A�g��arg   A��  A ���C��h@�����]4�5$��@4�5$��@�6�������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��srfi/srfi-42/ec.scm ~ �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��ccg��varg��indexg��i�g��dispatchg��arg1g��argg��...�g��ccg��varg��dispatchg��arg1g��argg��...���C5R4:;>�h���M���]C��E�������g��dummy  �g��g  �g��arg   ��   ���C f �������h���:���]�C2�������g��tmp-46961e513b-3ec  ��   ���C�����h���Z���]��C����R�������g��tmp-46961e513b-3f1  �g��tmp-46961e513b-3f0  ��  ���C����h���Z���]��C����R�������g��tmp-46961e513b-3ee  �g��tmp-46961e513b-3ed  ��  ���C !�����h������,� 3� 4445545     4454 ��   4 5���55� �����5�C�������g��dummy  ��g��var  ��g��obs   ��g��oc   ��g��lv   ��g��li   ��g��ne1?   ��g��i   ��g��v   ��g��ic  ��g��ne2?  ��g��ls  ���   � ���Cy,�h���>���]C���6�������g��dummy  �g��var  ��   ���C� ��hP���s��]4�5$��@4�5$��@4�5$��@ �6k������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��srfi/srfi-42/ec.scm  �  P ��g�� macro-typeg�� syntax-rulesg��patternsg��gg��argg��...��g��varg��:dog��letg��obsg��ocg��...�g��lvg��li�g��...�g��ne1?g��letg��ig��v�g��...�g��icg��...�g��ne2?g��lsg��...���g��var���C5Rd-���hp���?��]4L��54L�5$��K$��B�(��($��"���$��"���6�4L�54L56C$��CC7������g��args  p�g��g1  p�g��g2   p��g��filenamef��srfi/srfi-42/ec.scm               &   +   /   :  , =   A   L  , N   R   U  5 X  9 Z  5 [  > ^  B `  > b   k  �  p ���C������h������]�O�C����z�������g��d1  �g��d2  ��g��filenamef��srfi/srfi-42/ec.scm  �  ��g��nameg��dispatch-union�C R./�h ���m���] M'��MN�M�MNC�C����e�������g��empty  �g��value  ��g��filenamef��srfi/srfi-42/ec.scm  �   ���C0v������h(���m���] MM$��4L�M5NMMNC�C���e�������g��empty  %�g��value  "��g��filenamef��srfi/srfi-42/ec.scm  �  % ���C������h(���m���] MM$��L�MNMMNC�C�������e�������g��empty  !�g��value  ��g��filenamef��srfi/srfi-42/ec.scm  �  ! ���C��h(���m���] MM$��M� MNMMNC�C�����e�������g��empty  #�g��value  ��g��filenamef��srfi/srfi-42/ec.scm  �  # ���C1i~������h ���m���] 4M5#��M4L�L5NC�Ce�������g��empty  �g��value  ��g��filenamef��srfi/srfi-42/ec.scm  �  ���C������h ���m���] ML�$�� MMNC�C������e�������g��empty  �g��value ��g��filenamef��srfi/srfi-42/ec.scm  �   ���C~�h ���m���] 4M5#��M4L�L5NC�Ce�������g��empty  �g��value  ��g��filenamef��srfi/srfi-42/ec.scm  �  ���C25;������h(���m���] ML$��4M5N�M�MNC�C�����e�������g��empty  #�g��value  ��g��filenamef��srfi/srfi-42/ec.scm  �  # ���C�h(���m���] MM$��M� MNMMNC�C�����e�������g��empty  #�g��value  ��g��filenamef��srfi/srfi-42/ec.scm  �  # ���C�h ���m���] ML�$�� MMNC�C������e�������g��empty  �g��value ��g��filenamef��srfi/srfi-42/ec.scm  �   ���C�hP���m���] MM$��"��"M(��"��MNMN4M5N N$��MMN�M�MNC�C����e�������g��empty  L�g��value ? I��g��filenamef��srfi/srfi-42/ec.scm  �  L ���C�h(���m���] MM$��4L�M5NMMNC�C���e�������g��empty  %�g��value  "��g��filenamef��srfi/srfi-42/ec.scm  �  % ���Cd�������h ���m���] M'��MN�M�MNC�C����e�������g��empty  �g��value  ��g��filenamef��srfi/srfi-42/ec.scm  �   ���C�h(���m���] MM$��M�LMNMMNC�C����e�������g��empty  $�g��value  !��g��filenamef��srfi/srfi-42/ec.scm  �  $ ���C[ceh ���m���] MM#��MML�NC�C����e�������g��empty  �g��value ��g��filenamef��srfi/srfi-42/ec.scm  �   ���C����hP���m���] MM$��"��"M(��"��MNMN4M5N N$��MMN�M�MNC�C����e�������g��empty  L�g��value ? I��g��filenamef��srfi/srfi-42/ec.scm  �  L ���C����h(���m���] MM$��4L�M5NMMNC�C���e�������g��empty  %�g��value  "��g��filenamef��srfi/srfi-42/ec.scm  �  % ���C�h ���m���] M'��MN�M�MNC�C����e�������g��empty  �g��value  ��g��filenamef��srfi/srfi-42/ec.scm  �   ���C�h(������](��C4�5$�� ��"C����������g��pred  %�g��args  %��g��filenamef��srfi/srfi-42/ec.scm          "         ) #  �  % ��g��nameg��every?�C3�����h ���m���] M'��MN�M�MNC�C����e�������g��empty  �g��value  ��g��filenamef��srfi/srfi-42/ec.scm  �   ���C����h(���m���] MM$��4L�M5NMMNC�C���e�������g��empty  %�g��value  "��g��filenamef��srfi/srfi-42/ec.scm  �  % ���C4 5h ���m���] M'��MN�M�MNC�C����e�������g��empty  �g��value  ��g��filenamef��srfi/srfi-42/ec.scm  �   ���C�1�������h�� ��]I4�5 $��C $�S�$��HHO�C45$�� H45K HHO�C$�� H45K HHO�C"��4 5$�� HH"��4  J >��"��G��"��4 J5$��"��"4 J5$��$4 5$�� 4 J5K"���"���J K HHO�C45$��45HO�CC45$��4 5$�� HO�C"$"  $�&��"��/45$��"45$��45HO�CCC"��?45$��045$��!4545HHO�C"""��4 5$��4 5$�� HH"��4  J >��"��G��"��4 J5$��"��"4 J5$��$4 5$�� 4 J5K"���"���J K HHO�C"""��J45$��;4 5$��,45$��4 5$��HO�C"""""��@$��5$��* 4�5HHH HHO�C"v"r"��:45$��+45 H45K HHO�C"$��#$��45HH O�C"" $�\���"��4 5$��4 5$��4 5$�� HH"��4  J>��"��G��"��4 J5$��"��"4 J5$��54 5$��"��4 5$�� 4 J5K"���"���JK HH!O�CCCC"��45$��4 5$��45$��y4 5$��j45$��[4 5$��L H $��4 ">��"��G��"���4# 4$55KH%O�C"""""""��M$��B$��7$��, 4�5HHH HH & O�C"" " "��K45$��<45$��-45 H45K HH'O�C"h"d$��0$��%$��45HH(O�C""~"z)O�Q�4*�5$��4�?HH+O�C4�5$��)4�? H45K HH,O�C4-�5$��44./�5?HH0O�CC� ������g��args  �g��key �g��a1  ! q�g��t  , ;�g��var  / ;�g��len  G f�g��i  S f�g��var  V f�g��len  n ��g��i  z ��g��var  } ��g��a  �  �g��istop  �  �g��t  � ��g��i    �g��var    �g�� read-proc  - D�g��var  6 D�g��var  ] i�g��a1   �g��a2   �g��var   �g��imax   �g��i   �g��var   �g��a   �g��istop   �g��t  a h�g��i   �g��var   �g��var   �g��vec   ,�g��len   ,�g��vecs   ,�g��k   ,�g��var   ,�g��str  M n�g��len  M n�g��i  [ n�g��var  ^ n�g��t   �g��var   �g��a1   �g��a2   �g��a3   �g��a   z�g��istop   z�g��t  - E�g��i  e z�g��var  h z�g��stop   �g��var   �g��vec  S o�g��len  S o�g��vecs  S o�g��k  Z o�g��var ] o�g��str   �g��len   �g��i   �g��var   �g��t   �g��var   �g��every?   �g��t  & 5�g��var  ) 5�g��str  J k�g��len  J k�g��i  X k�g��var  [ k�g��t   �g��var   ��Hg��filenamef��srfi/srfi-42/ec.scm            !   !  &   *  ,   <   F  G   i   m  n   �   �  �   !   +  -   F  G   Q  R  " \   ]   z   }     %          %                         �                       "      .      <                !       4  9   C  D   r  u   y  |                 %   6                *                "            "            "       *  1 �  5  8 � ! < �  ? � . C �  F   {         .                      *                # &  6  B  C  % J  l  x  y  # |  1   #   �   ���C��������h���j���]�C���b�������g��filenamef��srfi/srfi-42/ec.scm  �   ��g��nameg��make-initial-:-dispatch�C(R4(i5�6R6�h���a���]�C���Y�������g��filenamef��srfi/srfi-42/ec.scm  �   ��g��nameg��:-dispatch-ref�C R76����h0������]4�5$��"��4�>��"��G��� C������������g��dispatch  +��g��filenamef��srfi/srfi-42/ec.scm !  " "   #   #  #  ) $ �  + ��g��nameg��:-dispatch-set!�CR4: ;>EPQR����h ������]�C����x�������g��dummy  �g��cc  �g��var   �g��i   �g��arg1   �g��arg   ��   ���Cj\]����h���q���]C����i�������g��dummy  �g��cc  �g��var   �g��arg1   �g��arg   ��   ���C��������h@�����]4�5$��@4�5$��@�6��������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��srfi/srfi-42/ec.scm ' �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��ccg��varg��indexg��i�g��arg1g��argg��...�g��ccg��varg��arg1g��argg��...���C5 R4:%;>j{|f�������h(������,�3�4�5C�������g��dummy  (�g��x0  (�g��q1   (�g��q   (�g��etc1   (�g��etc2   (�g��etc3   (�g��etc   (��  ( ���C~��������h(������,�3��C�������������g��dummy  "�g��x0  "�g��q1   "�g��q2   "�g��etc1   "�g��etc2   "�g��etc3   "�g��etc   "��  " ���C�������h���u���]�C������m�������g��dummy  �g��x0  �g�� expression   �g��f1   �g��f2   ��   ���C1�����hP������]��  �   ���� �C�������g��dummy  P�g��x0  P�g�� qualifier   P�g�� expression   P�g��f1   P�g��f2   P��  P ���C� ����hh�����]!4�5$��@4�5$��@4�5$��@4�5$�� @  �6�������g��x  g�g��tmp g�g��tmp  " g�g��tmp  9 g�g��tmp  P g��g��filenamef��srfi/srfi-42/ec.scm 3 �  g ��g�� macro-typeg�� syntax-rulesg��patternsg��x0g��nestedg��q1g��...�g��qg��etc1g��etc2g��etc3g��etcg��...�g��x0g��q1g��q2g��etc1g��etc2g��etc3g��etcg��...�g��x0g�� expressiong��f1g��f2�g��x0g�� qualifierg�� expressiong��f1g��f2���C5%R4:$;>f������h(������]4�5C��������������g��dummy  !�g��x0  !�g��q1   !�g��q   !�g��etc1   !�g��etc2   !�g��etc   !��  ! ���C}��h ������]�C������������g��dummy  �g��x0  �g��q1   �g��q2   �g��etc1   �g��etc2   �g��etc   ��   ���C�h���e���]�C]�������g��dummy  �g��x0  �g�� expression   �g��f2   ��   ���C�����h0���|���]����C������t�������g��dummy  *�g��x0  *�g�� qualifier   *�g�� expression   *�g��f2   *��  * ���C� ����hh�����]!4�5$��@4�5$��@4�5$��@4�5$�� @  �6�������g��x  g�g��tmp g�g��tmp  " g�g��tmp  9 g�g��tmp  P g��g��filenamef��srfi/srfi-42/ec.scm G �  g ��g�� macro-typeg�� syntax-rulesg��patternsg��x0g��nestedg��q1g��...�g��qg��etc1g��etc2g��etcg��...�g��x0g��q1g��q2g��etc1g��etc2g��etcg��...�g��x0g�� expressiong��f2�g��x0g�� qualifierg�� expressiong��f2���C5$R4:';>h  f�����h ���P���]45�C������H�������g��dummy  �g��etc1  �g��etc   ��   ���C�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-42/ec.scm Z �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��etc1g��etcg��...���C5'R4:;>h!"#����h���P���]�C������H�������g��dummy  �g��etc1  �g��etc   ��   ���C�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-42/ec.scm f �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��etc1g��etcg��...���C5R4:-;>h23�������h���P���]�CH�������g��dummy  �g��etc1  �g��etc   ��   ���C�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-42/ec.scm k �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��etc1g��etcg��...���C5-R4:,;>hABC����h���P���]�C������H�������g��dummy  �g��etc1  �g��etc   ��   ���C�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-42/ec.scm w �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��etc1g��etcg��...���C5,R4:/;>hRS�������h���P���]�CH�������g��dummy  �g��etc1  �g��etc   ��   ���C�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-42/ec.scm | �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��etc1g��etcg��...���C5/R4:0;>`lmf����h ���~���]4�5C��v�������g��dummy  �g��k  �g��q1   �g��q   �g��etc1   �g��etc   ��   ���C,xy�����h������]�Cw�������g��dummy  �g��k  �g��q1   �g��q2   �g��etc1   �g��etc   ��   ���CD����h���T���]�C��L�������g��dummy  �g��k  �g�� expression   ��   ���C������h@���k���]��  �  � �C����c�������g��dummy  <�g��k  <�g�� qualifier   <�g�� expression   <��  < ���C� �����hh���h��]!4�5$��@4�5$��@4�5$��@4�5$�� @  �6�`������g��x  g�g��tmp g�g��tmp  " g�g��tmp  9 g�g��tmp  P g��g��filenamef��srfi/srfi-42/ec.scm  �  g ��g�� macro-typeg�� syntax-rulesg��patternsg��kg��nestedg��q1g��...�g��qg��etc1g��etcg��...�g��kg��q1g��q2g��etc1g��etcg��...�g��kg�� expression�g��kg�� qualifierg�� expression���C50R4:.;>hf���h���P���]45C���H�������g��dummy  �g��etc1  �g��etc   ��   ���C�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-42/ec.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��etc1g��etcg��...���C5.R4:+;>hf�����h���P���]45C���H�������g��dummy  �g��etc1  �g��etc   ��   ���C�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-42/ec.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��etc1g��etcg��...���C5+R4:*;>hf��h���P���]45C���H�������g��dummy  �g��etc1  �g��etc   ��   ���C�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-42/ec.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��etc1g��etcg��...���C5*R4:);>hf��h���P���]45C���H�������g��dummy  �g��etc1  �g��etc   ��   ���C�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-42/ec.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��etc1g��etcg��...���C5)R4:&;>   f����h ������]4�5C��|�������g��dummy  �g��default  �g��q1   �g��q   �g��etc1   �g��etc   ��   ���C,  �������h������]�C}�������g��dummy  �g��default  �g��q1   �g��q2   �g��etc1   �g��etc   ��   ���CD $ &������h���Z���]�C��R�������g��dummy  �g��default  �g�� expression   ��   ���C 0 1 2 3 4��������h(���q���]����C����i�������g��dummy  $�g��default  $�g�� qualifier   $�g�� expression   $��  $ ���C� �������hh�����]!4�5$��@4�5$��@4�5$��@4�5$�� @  �6�x������g��x  g�g��tmp g�g��tmp  " g�g��tmp  9 g�g��tmp  P g��g��filenamef��srfi/srfi-42/ec.scm  �  g ��g�� macro-typeg�� syntax-rulesg��patternsg��defaultg��nestedg��q1g��...�g��qg��etc1g��etcg��...�g��defaultg��q1g��q2g��etc1g��etcg��...�g��defaultg�� expression�g��defaultg�� qualifierg�� expression���C5&R4:#;> A L Mf��h ������]4�5C��|�������g��dummy  �g��default  �g��q1   �g��q   �g��etc1   �g��etc   ��   ���C, W X�������h������]�C}�������g��dummy  �g��default  �g��q1   �g��q2   �g��etc1   �g��etc   ��   ���CD ` b������h���Z���]�C��R�������g��dummy  �g��default  �g�� expression   ��   ���C k l p r m s t u x y� h8���q���]��� � C�������i�������g��dummy  1�g��default  1�g�� qualifier   1�g�� expression   1��  1 ���C� �������hh�����]!4�5$��@4�5$��@4�5$��@4�5$�� @  �6�x������g��x  g�g��tmp g�g��tmp  " g�g��tmp  9 g�g��tmp  P g��g��filenamef��srfi/srfi-42/ec.scm  �  g ��g�� macro-typeg�� syntax-rulesg��patternsg��defaultg��nestedg��q1g��...�g��qg��etc1g��etcg��...�g��defaultg��q1g��q2g��etc1g��etcg��...�g��defaultg�� expression�g��defaultg�� qualifierg�� expression���C5#R4: q;>   f�h���p���]45�Ch�������g��dummy  �g��stop  �g��q1   �g��q2   �g��cmd   ��   ���C    ��������h���q���]��Ci�������g��dummy  �g��stop  �g��test   �g��q   �g��cmd   ��   ���C     ����h ���q���]���C���i�������g��dummy  �g��stop  �g��test   �g��q   �g��cmd   ��   ���C     ����h ���q���]��C�����i�������g��dummy  �g��stop  �g��test   �g��q   �g��cmd   ��   ���C     ����h ���q���]��C�����i�������g��dummy  �g��stop  �g��test   �g��q   �g��cmd   ��   ���C  f  �����h ���p���]4��5C��h�������g��dummy  �g��stop  �g��etc   �g��q   �g��cmd   ��   ���C     �����h ���p���]���C�h�������g��dummy  �g��stop  �g��gen   �g��q   �g��cmd   ��   ���C  ������h���P���]�C������H�������g��dummy  �g��stop  �g��cmd   ��  ���C�h�����]A4�5$��@4�5$��@4�5$��@4�5$�� @4� 5$�� @4� 5$�� @4�5$��@4�5$��@�6�����������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  ~ ��g��tmp  � ��g��tmp  � ��� g��filenamef��srfi/srfi-42/ec.scm  �  � ��g�� macro-typeg�� syntax-rulesg��patternsg��stopg��nestedg��nestedg��q1g��...�g��q2g��...�g��cmd�g��stopg��nestedg��ifg��test�g��qg��...�g��cmd�g��stopg��nestedg��notg��test�g��qg��...�g��cmd�g��stopg��nestedg��andg��testg��...�g��qg��...�g��cmd�g��stopg��nestedg��org��testg��...�g��qg��...�g��cmd�g��stopg��nestedg��beging��etcg��...�g��qg��...�g��cmd�g��stopg��nestedg��geng��qg��...�g��cmd�g��stopg��nested�g��cmd�� �C5 qR4:;>   f�����h ���o���]4�5C�����g�������g��dummy  �g��q1  �g��q   �g��etc1   �g��etc   ��   ���Cj ' (�����h���p���]�C���h�������g��dummy  �g��q1  �g��q2   �g��etc1   �g��etc   ��   ���Cy 0 2����h���E���]�C����=�������g��dummy  �g�� expression  ��  ���CD ; < = ?��������h���\���]�C��T�������g��dummy  �g�� qualifier  �g�� expression   ��   ���C� ����hh���T��]!4�5$��@4�5$��@4�5$��@4�5$�� @  �6�L������g��x  g�g��tmp g�g��tmp  " g�g��tmp  9 g�g��tmp  P g��g��filenamef��srfi/srfi-42/ec.scm  �  g ��g�� macro-typeg�� syntax-rulesg��patternsg��nestedg��q1g��...�g��qg��etc1g��etcg��...�g��q1g��q2g��etc1g��etcg��...�g�� expression�g�� qualifierg�� expression���C5R4:";> K U Vf������h ���o���]4�5C�����g�������g��dummy  �g��q1  �g��q   �g��etc1   �g��etc   ��   ���Cj _ `�����h���p���]�C���h�������g��dummy  �g��q1  �g��q2   �g��etc1   �g��etc   ��   ���Cy g i����h���E���]�C����=�������g��dummy  �g�� expression  ��  ���CD q r s t v�����h ���\���]��C�����T�������g��dummy  �g�� qualifier  �g�� expression   ��   ���C� ����hh���T��]!4�5$��@4�5$��@4�5$��@4�5$�� @  �6�L������g��x  g�g��tmp g�g��tmp  " g�g��tmp  9 g�g��tmp  P g��g��filenamef��srfi/srfi-42/ec.scm  �  g ��g�� macro-typeg�� syntax-rulesg��patternsg��nestedg��q1g��...�g��qg��etc1g��etcg��...�g��q1g��q2g��etc1g��etcg��...�g�� expression�g�� qualifierg�� expression���C5"RC������������g��m  (��g��filenamef��srfi/srfi-42.scm   ) ? . ?  6 ? & ; ? g��filenamef��srfi/srfi-42/ec.scm A)  f  ������  ������  ������  ������  ������ ! � ������ó ���C6�������������2.0/ccache/srfi/srfi-8.go���������������������������������������������������������������������������0000644�����������������00000001153�15146341264�0010661 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0S������]��4�����hf������]� g��guile � g��define-module* � � g��srfi g��srfi-8 � g��filenameS f��srfi/srfi-8.scm g��importsS g��ice-9 g��receive   � � � g�� re-exportsS  � g��set-current-module � � g��cond-expand-provide g��current-module �C�5�����h@���i���]4   5�4�>��"��G���i4i5�6�����a�������g��m  ,��g��filenamef��srfi/srfi-8.scm   1   9  & ;  �  ; ���C6����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/srfi/srfi-13.go��������������������������������������������������������������������������0000644�����������������00000005572�15146341264�0010746 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0b ������]�p�4������h ������]� g��guile � g��define-module* � � g��srfi g��srfi-13 � g��filenameS f��srfi/srfi-13.scm g��set-current-module  �  � g��call-with-deferred-observers � � g��module-re-export! � � g��current-module � � g��string? g�� string-null? g�� string-any g�� string-every g�� make-string g��string g��string-tabulate g�� string->list g�� list->string g��reverse-list->string !g�� string-join "g�� string-length #g�� string-ref $g�� string-copy %g��substring/shared &g�� string-copy! 'g�� string-take (g��string-take-right )g�� string-drop *g��string-drop-right +g�� string-pad ,g��string-pad-right -g�� string-trim .g��string-trim-right /g��string-trim-both 0g�� string-set! 1g�� string-fill! 2g��string-compare 3g��string-compare-ci 4g��string= 5g��string<> 6g��string< 7g��string> 8g��string<= 9g��string>= :g�� string-ci= ;g�� string-ci<> <g�� string-ci< =g�� string-ci> >g�� string-ci<= ?g�� string-ci>= @g�� string-hash Ag��string-hash-ci Bg��string-prefix-length Cg��string-prefix-length-ci Dg��string-suffix-length Eg��string-suffix-length-ci Fg��string-prefix? Gg��string-prefix-ci? Hg��string-suffix? Ig��string-suffix-ci? Jg�� string-index Kg��string-index-right Lg�� string-skip Mg��string-skip-right Ng�� string-count Og��string-contains Pg��string-contains-ci Qg�� string-upcase Rg��string-upcase! Sg��string-downcase Tg��string-downcase! Ug��string-titlecase Vg��string-titlecase! Wg��string-reverse Xg��string-reverse! Yg�� string-append Zg��string-append/shared [g��string-concatenate \g��string-concatenate-reverse ]g��string-concatenate/shared ^g��!string-concatenate-reverse/shared _g�� string-map `g�� string-map! ag�� string-fold bg��string-fold-right cg�� string-unfold dg��string-unfold-right eg��string-for-each fg��string-for-each-index gg�� xsubstring hg�� string-xcopy! ig��string-replace jg��string-tokenize kg�� string-filter lg�� string-delete m !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijkl�V ng��cond-expand-provide o�C�5����h���x���]4  5�4 �>��"��G���4m�������h���B���]�45�6���:�������g��filenamef��srfi/srfi-13.scm  �  ���C>��"��G��ni4i5�o6��p�������g��m $��g��filenamef��srfi/srfi-13.scm   %  � �  � � & � � �  � ���C6���������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/srfi/srfi-38.go��������������������������������������������������������������������������0000644�����������������00000017670�15146341264�0010757 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�U�4�h������]� g��guile � g��define-module* � � g��srfi g��srfi-38 � g��filenameS f��srfi/srfi-38.scm g��importsS g��rnrs g�� bytevectors   � � g��srfi-8 � � g��srfi-69 � � g��system g��vm g�� trap-state � � � g��exportsS g��write-with-shared-structure g��read-with-shared-structure � g��set-current-module ! � " � #g��cond-expand-provide $g��current-module %� &g��current-output-port 'g�� vector-length (g��string? )g�� string-length *g�� bytevector? +g��port? ,g��display -f��( .f��) /f�� .  0g��hash-table-ref 1f��  2f��#( 3g��write 4g��number? 5f��# 6g��counter 7f��= 8g��hash-table-set! 9g��hash-table-exists? :g��make-hash-table ;g��eq? <g��current-input-port =g��eqv? >g�� peek-char ?g�� eof-object? @g�� list->string Ag��reverse Bg�� read-char Cg��string->number Dg�� char-numeric? Eg��hash-table-ref/default Fg��error Gf��Double declaration of part  Hg��read If��Use of undeclared part  Jf��Malformed shared part specifier Kg�� with-fluid* Lg��%read-hash-procedures Mg��for-each Ng��read-hash-extend O0123456789�  Pg��hash-table-size Qg��patch! Rg�� procedure? Sg��hole? Tg�� fill-holeC�5�������h�����]4   5�4"�>��"��G���4#i4$i5�%>��"��G��&'()*+��������h���\��] �$��C�$��4�5 "��$��C4�5$��4�5 "��$��C4�5$��C�$��C4�5$��CCT������g��obj  ��g��t ! ��g��t F ��g��t X ��g��t s ���g��filenamef��srfi/srfi-38.scm 9   :  :  :   ;  ;   ; '  ;  ;  ! :  - < 7 <  8 < ' ? < A <  F :  R =  X :  f >  j :  k >  m ?  s : �  � ��g��nameg�� interesting?�C,-./012'345678����h@����]"�_�$��4L>��"��G��4L��>��"��G��"��"��>(��L64L>��"��G��4L�>��"��G��L6$��C45$��"4L>��"��G��4L�>��"��G��"t"t�"g�$��4L>��"��G��4�54L�� >��"��G��"��E$��L64L>��"��G��4L��>��"��G��" " �L64L�5$��4�5$��4 5$��04 L>��"��G��4 L>��"��G�� L64 54 L>��"��G��4 L>��"��G��4 L>��"��G��4 >��"��G��4�>��"��G��"" �L6������g��obj  @�g��state  @�g��obj  : ��g��len  � ]�g��i   V�g��val  y 8�g��n   4��g��filenamef��srfi/srfi-38.scm N   O  P P   Q  Q   Q " R ' R  . R : S D T  H Y  L Y  M [  Q [  X [  a \  x ]  | ]  | T   T  � T  � T , � T  � U  � U  � U  � V  � V ! � V  � W ! � W  � S � S " � S � ^ � P  � _ � _  � _ � `  � ` � a  � a   a   b   c   c   c + " c " # d  ' d & . d  7 e  > e ( E e  P f ( V f  V b  e h  f i p i  q j  y j  k  l   k  m   m $  m   n   o $  o   q "  q 8  q "  q   q   r   r   r   s   t   t   t   u   u -  u   v  4 w  8 k  @ y �^  @ ��g��nameg�� write-obj�C98'����h�����]4L��5$��C4�5$�� �64�>��"��G���$��"4L�>��"��G����"�$��?4�5"��+$��C4L�>��"��G��" "C�������������g��obj  ��g��state  ��g��t  ��g��len  w ��g��i  } ���g��filenamef��srfi/srfi-38.scm ~         � "   + � , � C �  G � H �  M �  T �  _ �  i �  l �  p � q �  w �  } �  � �  � �  � �  � �  � �  � �  � � �  � ��g��nameg��scan�C:;86� �h���L��-�.�,�3�#��45�#��O�O�Q�Q�454�>��"��G��4 >��"��G���6�����D������g��obj ��g��outport ��g��optarg  ��g�� interesting?  9 ��g�� write-obj  9 ��g��scan  9 ��g��state  P ���g��filenamef��srfi/srfi-38.scm .  0 / J �  P �  S �  g �  m �  s �  � � � � ��g��nameg��write-with-shared-structure�CR<:=>?@AB����hX���7��]"��G4L�545$��"��4�5$�� 4564L�5""���/������g��pred  U�g��initial  U�g��chars   M�g��c  M�g��t   .��g��filenamef��srfi/srfi-38.scm �   �   �  �   �   �  $ � ' + � " 2 � 5 �  = �  > �  G �  M �  M � �  U ��g��nameg��read-some-chars�CCDBEFG8h���_���]�L�C��W�������g��filenamef��srfi/srfi-38.scm �   � $�   ��g��nameg��thunk�CHIJ� �������h�����]*44L���55454L5=$��P$��4>��"��G��"����4LO�>��"��G��4 5C#$��$��C 6 6�����������g��c  ��g��port  ��g��n   ��g��c   ��g��thunk  ( ��g��cell  U ��g��obj  y ���g��filenamef��srfi/srfi-38.scm �   �   �  � ?  �  �   �   �   �   �  ( �  3 �  9 � : �  > �  E �  U �  U � X � s �  y � � �  � �  � � � �  � �  � �  � � �  � ��g��nameg�� read-hash�CKLMN�h���a���]�L�6������Y�������g��digit  ��g��filenamef��srfi/srfi-38.scm �  � �  ���COHPQ����hP������]4LO�>��"��G��4L5� 4L�5$��4�>��"��G��"����C�������������g��result " J��g��filenamef��srfi/srfi-38.scm �   �   �   �   �  " �  & �  - �  1 � 2 � �  J ���C� ��hX������-��.�,�3��#��45��45O�O��Q�Q�[�O�6������������g��port S�g�� parts-table S�g��read-some-chars  3 S�g�� read-hash  3 S��g��filenamef��srfi/srfi-38.scm �  � 6  �  �  S � � S ��g��nameg��read-with-shared-structure�CRR�h���n���]�6f�������g��x  ��g��filenamef��srfi/srfi-38.scm �  � �   ��g��nameg��hole?�CSRST�������h ������]4�5$�� 4�5�6�C��������������g��x  ��g��filenamef��srfi/srfi-38.scm �  �  �   � /  � $�   ��g��nameg�� fill-hole�CTRSTQ'����h�����]�$��N4�5$���4�5"��4�>��"��G��4�5$�� �4�5C�6�$��\"��J $��C�45$���45"��4>��"��G��"4�5"C����������g��x  ��g��i b ��g��elt  q ���g��filenamef��srfi/srfi-38.scm �  �  �  �   �   �   �   � $  � /  � $ �  % � 9 * � A / � 9 8 �  = �  ? �  C �  F � $ K � / M � $ N �  U � A W � 9 Z �  ^ �  b �  f � j �  q �  q �  t � ~ �  � �  � � � � � � $ � �  � �  � � � � �*  � ��g��nameg��patch!�CQRC���������g��m  ,��g��filenamef��srfi/srfi-38.scm   - " 2 "  : " & ? "  .  � A �  �  � �   ���C6�������������������������������������������������������������������������2.0/ccache/srfi/srfi-4.go���������������������������������������������������������������������������0000644�����������������00000054423�15146341264�0010665 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0X������]��4��������h������]� g��guile � g��define-module* � � g��srfi g��srfi-4 � g��filenameS f��srfi/srfi-4.scm g��importsS g��rnrs g�� bytevectors   � � � g��exportsS g�� u8vector? g�� make-u8vector g��u8vector g��u8vector-length g�� u8vector-ref g�� u8vector-set! g��u8vector->list g��list->u8vector g�� s8vector? g�� make-s8vector g��s8vector g��s8vector-length g�� s8vector-ref g�� s8vector-set! g��s8vector->list !g��list->s8vector "g�� u16vector? #g��make-u16vector $g�� u16vector %g��u16vector-length &g�� u16vector-ref 'g��u16vector-set! (g��u16vector->list )g��list->u16vector *g�� s16vector? +g��make-s16vector ,g�� s16vector -g��s16vector-length .g�� s16vector-ref /g��s16vector-set! 0g��s16vector->list 1g��list->s16vector 2g�� u32vector? 3g��make-u32vector 4g�� u32vector 5g��u32vector-length 6g�� u32vector-ref 7g��u32vector-set! 8g��u32vector->list 9g��list->u32vector :g�� s32vector? ;g��make-s32vector <g�� s32vector =g��s32vector-length >g�� s32vector-ref ?g��s32vector-set! @g��s32vector->list Ag��list->s32vector Bg�� u64vector? Cg��make-u64vector Dg�� u64vector Eg��u64vector-length Fg�� u64vector-ref Gg��u64vector-set! Hg��u64vector->list Ig��list->u64vector Jg�� s64vector? Kg��make-s64vector Lg�� s64vector Mg��s64vector-length Ng�� s64vector-ref Og��s64vector-set! Pg��s64vector->list Qg��list->s64vector Rg�� f32vector? Sg��make-f32vector Tg�� f32vector Ug��f32vector-length Vg�� f32vector-ref Wg��f32vector-set! Xg��f32vector->list Yg��list->f32vector Zg�� f64vector? [g��make-f64vector \g�� f64vector ]g��f64vector-length ^g�� f64vector-ref _g��f64vector-set! `g��f64vector->list ag��list->f64vector b !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`a�P cg��set-current-module dc� ec� fg��cond-expand-provide gg��current-module h� ig��make-syntax-transformer ji� ki� lg��define-bytevector-type mg��macro ng�� $sc-dispatch on� pn� qg��_ rg��any sqr tg�� syntax->datum ut� vt� wg�� datum->syntax xw� yw� zg��begin {g��define |g�� symbol-append }g��vector? ~g��obj ~� �g��and �g�� bytevector? �~� �g��eq? �g�� array-type �~� �g��quote �g��make- �g��vector �g��len �g��fill � �g��apply �g��make-srfi-4-vector �� �g�� vector-length �g��v �� �g��let �g��/ �g��bytevector-length �� �g��if �g��integer? �� �g��error �f��fractional length �g��elts �g��list-> �� �g��let* �g��length �� �� �� �g��lp �g��i � � �� �� �g��< �� �g��pair? �� �� �g�� vector-set! �g��car �� �� �g��1+ �� �g��cdr �� �� �� �g�� vector->list �g��1- �� �� �� � � �� �g��cons �g�� vector-ref �� �g�� bytevector- �g��-ref �g��* �g��x �� �g��-set! �� �g��syntax-violation �� �� �f��-source expression failed to match any pattern �g��u8 �g��s8 �g��u16 �g��s16 �g��u32 �g��s32 �g��u64 �g��s64 �g��f32 �g��f64C�5������hH�����]4   b5�4e�>��"��G���4fi4gi5�h>��"��G��4klmpsvyz{|}�7�������h����]4�5  �����4 � 5  ���4�5��� ������4� 54� 5�4� 5 4 � 5!��"#$4�%5&'���4�(5")*4�5��+,"-.4�/50����4�/5041253)���4�%5441553)�6�4�%5441553)�6�� C�����������g��tag  �g��infix  �g��size   ��g��filenamef��srfi/srfi-4.scm J  K   L  L "  L   K  - N  1 N  5 N ) 7 N  9 K  P P  V P " X P  Z K  � U  � U " � U  � K  � V � V  � V $ � V � K  � W  � W  � W * � W  � K  � Y  � Y " � Y - � Y  � K  � ]  � ] & � ]  � K   `   ` "  `   K   a   a , ! a  # K  : d @ d 3 B d D K  X e  ^ e " ` e  b K  d f h f  l f + n f p K   g   g "  g   K   h  h   h +  h  K   i   i "  i   K   j  j   j +  j  K �N   ���C���h���c���] 4�5L�4?6[�������g��args  �g��v ��g��filenamef��srfi/srfi-4.scm  J �   ���C������h(���a���] 4�5$�� �O�@�6�Y�������g��y  '�g��tmp '��g��filenamef��srfi/srfi-4.scm J �  ' ���C5lR��������h ���i���]4�5$�� 4�5CC������a�������g��obj  ��g��filenamef��srfi/srfi-4.scm l �   ��g��nameg�� u8vector?�CR����h������-�1�3��@�����x�������g��len �g��fill ��g��filenamef��srfi/srfi-4.scm l �  ��g��nameg�� make-u8vector�CR�������h(������] 4�5 45$��C� 6��}�������g��v  &�g��len &��g��filenamef��srfi/srfi-4.scm l  T �  & ��g��nameg��u8vector-length�CR��h���k���-��1��3��6�c�������g��elts ��g��filenamef��srfi/srfi-4.scm l �  ��g��nameg��u8vector�CR��hP������]!4�545"��,$�� $��"CC �"��������g��elts  O�g��len O�g��v   O�g��i   D�g��elts   D��g��filenamef��srfi/srfi-4.scm l �  O ��g��nameg��list->u8vector�CR��������h8������]"�� $��C�"4�5"����������g��v  5�g��i  $�g��elts   $��g��filenamef��srfi/srfi-4.scm l �  5 ��g��nameg��u8vector->list�CR�������h���y���]� C������q�������g��v  �g��i  ��g��filenamef��srfi/srfi-4.scm l �  ��g��nameg�� u8vector-ref�CR��h������]� C����������g��v  �g��i  �g��x   ��g��filenamef��srfi/srfi-4.scm l �  ��g��nameg�� u8vector-set!�CR��h������]� C����������g��v  �g��i  �g��x   ��g��filenamef��srfi/srfi-4.scm l �  ��g��nameg�� u8vector-set!�CR��h ���i���]4�5$�� 4�5CC������a�������g��obj  ��g��filenamef��srfi/srfi-4.scm m �   ��g��nameg�� s8vector?�CR����h������-�1�3��@�����x�������g��len �g��fill ��g��filenamef��srfi/srfi-4.scm m �  ��g��nameg�� make-s8vector�CR�������h(������] 4�5 45$��C� 6��}�������g��v  &�g��len &��g��filenamef��srfi/srfi-4.scm m  T �  & ��g��nameg��s8vector-length�CR!��h���k���-��1��3��6�c�������g��elts ��g��filenamef��srfi/srfi-4.scm m �  ��g��nameg��s8vector�CR��hP������]!4�545"��,$�� $��"CC �"��������g��elts  O�g��len O�g��v   O�g��i   D�g��elts   D��g��filenamef��srfi/srfi-4.scm m �  O ��g��nameg��list->s8vector�C!R��������h8������]"�� $��C�"4�5"����������g��v  5�g��i  $�g��elts   $��g��filenamef��srfi/srfi-4.scm m �  5 ��g��nameg��s8vector->list�C R�������h���y���]� C������q�������g��v  �g��i  ��g��filenamef��srfi/srfi-4.scm m �  ��g��nameg�� s8vector-ref�CR��h������]� C����������g��v  �g��i  �g��x   ��g��filenamef��srfi/srfi-4.scm m �  ��g��nameg�� s8vector-set!�CR��h������]� C����������g��v  �g��i  �g��x   ��g��filenamef��srfi/srfi-4.scm m �  ��g��nameg�� s8vector-set!�CR��h ���j���]4�5$�� 4�5CC������b�������g��obj  ��g��filenamef��srfi/srfi-4.scm n �   ��g��nameg�� u16vector?�C"R���h������-�1�3��@�����y�������g��len �g��fill ��g��filenamef��srfi/srfi-4.scm n �  ��g��nameg��make-u16vector�C#R������h(������] 4�5 45$��C� 6~�������g��v  (�g��len (��g��filenamef��srfi/srfi-4.scm n T �  ( ��g��nameg��u16vector-length�C%R)�h���l���-��1��3��6�d�������g��elts ��g��filenamef��srfi/srfi-4.scm n �  ��g��nameg�� u16vector�C$R#�hX������]!4�545"��/$��#$�� "CC �"�������������g��elts  R�g��len R�g��v   R�g��i   G�g��elts   G��g��filenamef��srfi/srfi-4.scm n �  R ��g��nameg��list->u16vector�C)R%�������h8������]"��! $��C� "4�5"΅�������g��v  8�g��i  '�g��elts   '��g��filenamef��srfi/srfi-4.scm n �  8 ��g��nameg��u16vector->list�C(R������h���z���]� C�����r�������g��v  �g��i  ��g��filenamef��srfi/srfi-4.scm n �  ��g��nameg�� u16vector-ref�C&R�h������]� C���������g��v  �g��i  �g��x   ��g��filenamef��srfi/srfi-4.scm n �   ��g��nameg��u16vector-set!�C'R�h������]� C���������g��v  �g��i  �g��x   ��g��filenamef��srfi/srfi-4.scm n �   ��g��nameg��u16vector-set!�C'R�h ���j���]4�5$�� 4�5CC������b�������g��obj  ��g��filenamef��srfi/srfi-4.scm o �   ��g��nameg�� s16vector?�C*R���h������-�1�3��@�����y�������g��len �g��fill ��g��filenamef��srfi/srfi-4.scm o �  ��g��nameg��make-s16vector�C+R������h(������] 4�5 45$��C� 6~�������g��v  (�g��len (��g��filenamef��srfi/srfi-4.scm o T �  ( ��g��nameg��s16vector-length�C-R1�h���l���-��1��3��6�d�������g��elts ��g��filenamef��srfi/srfi-4.scm o �  ��g��nameg�� s16vector�C,R+�hX������]!4�545"��/$��#$�� "CC �"�������������g��elts  R�g��len R�g��v   R�g��i   G�g��elts   G��g��filenamef��srfi/srfi-4.scm o �  R ��g��nameg��list->s16vector�C1R-�������h8������]"��! $��C� "4�5"΅�������g��v  8�g��i  '�g��elts   '��g��filenamef��srfi/srfi-4.scm o �  8 ��g��nameg��s16vector->list�C0R������h���z���]� C�����r�������g��v  �g��i  ��g��filenamef��srfi/srfi-4.scm o �  ��g��nameg�� s16vector-ref�C.R�h������]� C���������g��v  �g��i  �g��x   ��g��filenamef��srfi/srfi-4.scm o �   ��g��nameg��s16vector-set!�C/R�h������]� C���������g��v  �g��i  �g��x   ��g��filenamef��srfi/srfi-4.scm o �   ��g��nameg��s16vector-set!�C/R�h ���j���]4�5$�� 4�5CC������b�������g��obj  ��g��filenamef��srfi/srfi-4.scm p �   ��g��nameg�� u32vector?�C2R���h������-�1�3��@�����y�������g��len �g��fill ��g��filenamef��srfi/srfi-4.scm p �  ��g��nameg��make-u32vector�C3R������h(������] 4�5 45$��C� 6~�������g��v  (�g��len (��g��filenamef��srfi/srfi-4.scm p T �  ( ��g��nameg��u32vector-length�C5R9�h���l���-��1��3��6�d�������g��elts ��g��filenamef��srfi/srfi-4.scm p �  ��g��nameg�� u32vector�C4R3�hX������]!4�545"��/$��#$�� "CC �"�������������g��elts  R�g��len R�g��v   R�g��i   G�g��elts   G��g��filenamef��srfi/srfi-4.scm p �  R ��g��nameg��list->u32vector�C9R5�������h8������]"��! $��C� "4�5"΅�������g��v  8�g��i  '�g��elts   '��g��filenamef��srfi/srfi-4.scm p �  8 ��g��nameg��u32vector->list�C8R������h���z���]� C�����r�������g��v  �g��i  ��g��filenamef��srfi/srfi-4.scm p �  ��g��nameg�� u32vector-ref�C6R�h������]� C���������g��v  �g��i  �g��x   ��g��filenamef��srfi/srfi-4.scm p �   ��g��nameg��u32vector-set!�C7R�h������]� C���������g��v  �g��i  �g��x   ��g��filenamef��srfi/srfi-4.scm p �   ��g��nameg��u32vector-set!�C7R�h ���j���]4�5$�� 4�5CC������b�������g��obj  ��g��filenamef��srfi/srfi-4.scm q �   ��g��nameg�� s32vector?�C:R���h������-�1�3��@�����y�������g��len �g��fill ��g��filenamef��srfi/srfi-4.scm q �  ��g��nameg��make-s32vector�C;R������h(������] 4�5 45$��C� 6~�������g��v  (�g��len (��g��filenamef��srfi/srfi-4.scm q T �  ( ��g��nameg��s32vector-length�C=RA�h���l���-��1��3��6�d�������g��elts ��g��filenamef��srfi/srfi-4.scm q �  ��g��nameg�� s32vector�C<R;�hX������]!4�545"��/$��#$�� "CC �"�������������g��elts  R�g��len R�g��v   R�g��i   G�g��elts   G��g��filenamef��srfi/srfi-4.scm q �  R ��g��nameg��list->s32vector�CAR=�������h8������]"��! $��C� "4�5"΅�������g��v  8�g��i  '�g��elts   '��g��filenamef��srfi/srfi-4.scm q �  8 ��g��nameg��s32vector->list�C@R������h���z���]� C�����r�������g��v  �g��i  ��g��filenamef��srfi/srfi-4.scm q �  ��g��nameg�� s32vector-ref�C>R�h������]� C���������g��v  �g��i  �g��x   ��g��filenamef��srfi/srfi-4.scm q �   ��g��nameg��s32vector-set!�C?R�h������]� C���������g��v  �g��i  �g��x   ��g��filenamef��srfi/srfi-4.scm q �   ��g��nameg��s32vector-set!�C?R�h ���j���]4�5$�� 4�5CC������b�������g��obj  ��g��filenamef��srfi/srfi-4.scm r �   ��g��nameg�� u64vector?�CBR���h������-�1�3��@�����y�������g��len �g��fill ��g��filenamef��srfi/srfi-4.scm r �  ��g��nameg��make-u64vector�CCR������h(������] 4�5 45$��C� 6~�������g��v  (�g��len (��g��filenamef��srfi/srfi-4.scm r T �  ( ��g��nameg��u64vector-length�CERI�h���l���-��1��3��6�d�������g��elts ��g��filenamef��srfi/srfi-4.scm r �  ��g��nameg�� u64vector�CDRC�hX������]!4�545"��/$��#$�� "CC �"�������������g��elts  R�g��len R�g��v   R�g��i   G�g��elts   G��g��filenamef��srfi/srfi-4.scm r �  R ��g��nameg��list->u64vector�CIRE�������h8������]"��! $��C� "4�5"΅�������g��v  8�g��i  '�g��elts   '��g��filenamef��srfi/srfi-4.scm r �  8 ��g��nameg��u64vector->list�CHR������h���z���]� C�����r�������g��v  �g��i  ��g��filenamef��srfi/srfi-4.scm r �  ��g��nameg�� u64vector-ref�CFR�h������]� C���������g��v  �g��i  �g��x   ��g��filenamef��srfi/srfi-4.scm r �   ��g��nameg��u64vector-set!�CGR�h������]� C���������g��v  �g��i  �g��x   ��g��filenamef��srfi/srfi-4.scm r �   ��g��nameg��u64vector-set!�CGR�h ���j���]4�5$�� 4�5CC������b�������g��obj  ��g��filenamef��srfi/srfi-4.scm s �   ��g��nameg�� s64vector?�CJR���h������-�1�3��@�����y�������g��len �g��fill ��g��filenamef��srfi/srfi-4.scm s �  ��g��nameg��make-s64vector�CKR������h(������] 4�5 45$��C� 6~�������g��v  (�g��len (��g��filenamef��srfi/srfi-4.scm s T �  ( ��g��nameg��s64vector-length�CMRQ�h���l���-��1��3��6�d�������g��elts ��g��filenamef��srfi/srfi-4.scm s �  ��g��nameg�� s64vector�CLRK�hX������]!4�545"��/$��#$�� "CC �"�������������g��elts  R�g��len R�g��v   R�g��i   G�g��elts   G��g��filenamef��srfi/srfi-4.scm s �  R ��g��nameg��list->s64vector�CQRM�������h8������]"��! $��C� "4�5"΅�������g��v  8�g��i  '�g��elts   '��g��filenamef��srfi/srfi-4.scm s �  8 ��g��nameg��s64vector->list�CPR������h���z���]� C�����r�������g��v  �g��i  ��g��filenamef��srfi/srfi-4.scm s �  ��g��nameg�� s64vector-ref�CNR�h������]� C���������g��v  �g��i  �g��x   ��g��filenamef��srfi/srfi-4.scm s �   ��g��nameg��s64vector-set!�COR�h������]� C���������g��v  �g��i  �g��x   ��g��filenamef��srfi/srfi-4.scm s �   ��g��nameg��s64vector-set!�COR�h ���j���]4�5$�� 4�5CC������b�������g��obj  ��g��filenamef��srfi/srfi-4.scm t �   ��g��nameg�� f32vector?�CRR���h������-�1�3��@�����y�������g��len �g��fill ��g��filenamef��srfi/srfi-4.scm t �  ��g��nameg��make-f32vector�CSR������h(������] 4�5 45$��C� 6~�������g��v  (�g��len (��g��filenamef��srfi/srfi-4.scm t T �  ( ��g��nameg��f32vector-length�CURY�h���l���-��1��3��6�d�������g��elts ��g��filenamef��srfi/srfi-4.scm t �  ��g��nameg�� f32vector�CTRS�hX������]!4�545"��/$��#$�� "CC �"�������������g��elts  R�g��len R�g��v   R�g��i   G�g��elts   G��g��filenamef��srfi/srfi-4.scm t �  R ��g��nameg��list->f32vector�CYRU�������h8������]"��! $��C� "4�5"΅�������g��v  8�g��i  '�g��elts   '��g��filenamef��srfi/srfi-4.scm t �  8 ��g��nameg��f32vector->list�CXR������h���z���]� C�����r�������g��v  �g��i  ��g��filenamef��srfi/srfi-4.scm t �  ��g��nameg�� f32vector-ref�CVR�h������]� C���������g��v  �g��i  �g��x   ��g��filenamef��srfi/srfi-4.scm t �   ��g��nameg��f32vector-set!�CWR�h������]� C���������g��v  �g��i  �g��x   ��g��filenamef��srfi/srfi-4.scm t �   ��g��nameg��f32vector-set!�CWR�h ���j���]4�5$�� 4�5CC������b�������g��obj  ��g��filenamef��srfi/srfi-4.scm u �   ��g��nameg�� f64vector?�CZR���h������-�1�3��@�����y�������g��len �g��fill ��g��filenamef��srfi/srfi-4.scm u �  ��g��nameg��make-f64vector�C[R������h(������] 4�5 45$��C� 6~�������g��v  (�g��len (��g��filenamef��srfi/srfi-4.scm u T �  ( ��g��nameg��f64vector-length�C]Ra�h���l���-��1��3��6�d�������g��elts ��g��filenamef��srfi/srfi-4.scm u �  ��g��nameg�� f64vector�C\R[�hX������]!4�545"��/$��#$�� "CC �"�������������g��elts  R�g��len R�g��v   R�g��i   G�g��elts   G��g��filenamef��srfi/srfi-4.scm u �  R ��g��nameg��list->f64vector�CaR]�������h8������]"��! $��C� "4�5"΅�������g��v  8�g��i  '�g��elts   '��g��filenamef��srfi/srfi-4.scm u �  8 ��g��nameg��f64vector->list�C`R������h���z���]� C�����r�������g��v  �g��i  ��g��filenamef��srfi/srfi-4.scm u �  ��g��nameg�� f64vector-ref�C^R�h������]� C���������g��v  �g��i  �g��x   ��g��filenamef��srfi/srfi-4.scm u �   ��g��nameg��f64vector-set!�C_R�h������]� C���������g��v  �g��i  �g��x   ��g��filenamef��srfi/srfi-4.scm u �   ��g��nameg��f64vector-set!�C_RC��������g��m  ,��g��filenamef��srfi/srfi-4.scm   - G 2 G  : G & ? G  l , m  n E o ! p (e q . r 5 s < t B u �  H ���C6����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/srfi/srfi-27.go��������������������������������������������������������������������������0000644�����������������00000045051�15146341264�0010747 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0J������]H�4������h*������]� g��guile � g��define-module* � � g��srfi g��srfi-27 � g��filenameS f��srfi/srfi-27.scm g��importsS g��srfi-9  �  � � g��exportsS g��random-integer g�� random-real g��default-random-source g��make-random-source g��random-source? g��random-source-state-ref g��random-source-state-set! g��random-source-randomize! g��random-source-pseudo-randomize! g��random-source-make-integers g��random-source-make-reals �  g��set-current-module � � g��cond-expand-provide !g��current-module "� #g��:random-source $g��%%make-random-source-procedure %g��make-syntax-transformer &%� '%� (g��%make-random-source )g��macro *g�� $sc-dispatch +*� ,*� -g��_ .g��any /-.� 0g�� syntax-object 1g��lambda 2g��m-46961e50f6-4 3g��top 423� 5g��ribcage 6g��t-46961e50f6-3 76� 84� 9f��l-46961e50f6-9 :9� ;578:� <5� =g��x >=� ?f��l-46961e50f6-6 @?� A5>8@� Bg��shift Cg�� proc-name Dg��args ECD� F3� GFF� Hf��l-1e8ba8b5a-2ba If��l-1e8ba8b5a-2bb JHI� K5EGJ� Lg��key Mg��value Ng��name Og��formals Pg��body QLMNOP� RFFFFF� Sf��l-1e8ba8b5a-2ad Tf��l-1e8ba8b5a-2ae Uf��l-1e8ba8b5a-2af Vf��l-1e8ba8b5a-2b0 Wf��l-1e8ba8b5a-2b1 XSTUVW� Y5QRX� Zg��make-procedure-name [Z� \F� ]f��l-1e8ba8b5a-29d ^]� _5[\^� `F� af��l-1e8ba8b5a-29c ba� c5>`b� d4;<AB<<<<KY_c�  eg��hygiene fe � g01df� hg��state iF;<A� je� k0hij� lk� mg�� make-struct ng��m-46961e50f6-1 on3� pg��t-1e8ba8b5a-38d qg��t-1e8ba8b5a-38c rg��t-1e8ba8b5a-38b spqr� tg��m-1e8ba8b5a-38e ut3� vuuu� wf��l-1e8ba8b5a-392 xf��l-1e8ba8b5a-393 yf��l-1e8ba8b5a-394 zwxy� {5svz� |g�� ctor-args }|� ~f��l-1e8ba8b5a-37a ~� �5}`� �g��ctor �g��field �� �f��l-1e8ba8b5a-376 �f��l-1e8ba8b5a-377 �� �5G� �g��form �g�� type-name �g��constructor-spec �g�� field-names �� �FFFF� �f��l-1e8ba8b5a-36b �f��l-1e8ba8b5a-36c �f��l-1e8ba8b5a-36d �f��l-1e8ba8b5a-36e �� �5� �g�� record-layout �g��functional-setters �g��setters �g��copier �g��getters �g�� constructor �g��getter-identifiers �g��field-identifiers �� �FFFFFFFF� �f��l-1e8ba8b5a-343 �f��l-1e8ba8b5a-341 �f��l-1e8ba8b5a-33f �f��l-1e8ba8b5a-33d �f��l-1e8ba8b5a-33b �f��l-1e8ba8b5a-339 �f��l-1e8ba8b5a-337 �f��l-1e8ba8b5a-335 �� �5� �f��l-1e8ba8b5a-334 �� �5>`� �o;<AB<{<<<<� �0mf� �0#ij� �0 f� �k� �gl� �g��each-any �- �g��syntax-violation � � � � �f��Wrong number of arguments �g�� identifier? � � � � �F<A� �0$j� �� �� �f��-source expression failed to match any pattern �g��record-type-vtable � � � � �g��pw �g��default-record-printer � � � � �h� �g��set-struct-vtable-name! � � � � �g��vtable-offset-user � � � � �g��%random-source?-procedure �g��m-46961e50f6-11 �3� �g��t-46961e50f6-10 �� �� �f��l-46961e50f6-16 �� �5� �f��l-46961e50f6-13 �� �5>� �<B<<<<KY_c�  �01f� �g��obj �g��t-1e8ba8b5a-47e �g��t-1e8ba8b5a-478 �g��t-1e8ba8b5a-479 �g��t-1e8ba8b5a-47a �g��t-1e8ba8b5a-47d �g��t-1e8ba8b5a-47c �g��t-1e8ba8b5a-47b �� �g��m-1e8ba8b5a-47f �3� �� �f��l-1e8ba8b5a-483 �f��l-1e8ba8b5a-484 �f��l-1e8ba8b5a-485 �f��l-1e8ba8b5a-486 �f��l-1e8ba8b5a-487 �f��l-1e8ba8b5a-488 �f��l-1e8ba8b5a-489 �� �5� �g�� copier-id �� �f��l-1e8ba8b5a-476 �� �5`� �g�� ctor-name �� �f��l-1e8ba8b5a-46e �� �5`� �� �f��l-1e8ba8b5a-46c �� �5`� �g��layout �� �f��l-1e8ba8b5a-46a �� 5`� g�� immutable? � f��l-1e8ba8b5a-468 � 5`� g�� field-count  �  f��l-1e8ba8b5a-466   �  5 ` �  g�� getter-ids  � f��l-1e8ba8b5a-463 � 5`� g�� field-ids � f��l-1e8ba8b5a-460 � 5`� g��predicate-name g�� field-spec � FFFFFF� f��l-1e8ba8b5a-453 f��l-1e8ba8b5a-454 f��l-1e8ba8b5a-455 f��l-1e8ba8b5a-456 f��l-1e8ba8b5a-457  f��l-1e8ba8b5a-458 ! � "5!� #o<B<<<<<<<<<< <<"� $0#f� %$� &g��and '0&#f� (g��struct? )0(#f� *)$� +g��eq? ,0+#f� -g�� struct-vtable .0-#f� /.$� 0F<� 10#0j� 2,/1� 3'*2� 4%3� 5F<� 605j� 7g��throw-bad-struct 8 7� 9 7� :g��random-source-state ;g��%random-source-state-procedure <g��free-id =g�� %%on-error >g��m-46961e50f6-1d ?>3� @?� Af��l-46961e50f6-1f BA� C5>@B� D?<CB<<<<KY_c�  E0=Df� F<E� GF.� Hg��%%type Ig��t-1e8ba8b5a-3a5 Jg��t-1e8ba8b5a-3a6 Kg��t-1e8ba8b5a-3a7 Lg��t-1e8ba8b5a-3a8 Mg��t-1e8ba8b5a-3a9 Ng��t-1e8ba8b5a-3aa Og��t-1e8ba8b5a-3ab PIJKLMNO� Qg��m-1e8ba8b5a-3ac RQ3� SRRRRRRR� Tf��l-1e8ba8b5a-3b0 Uf��l-1e8ba8b5a-3b1 Vf��l-1e8ba8b5a-3b2 Wf��l-1e8ba8b5a-3b3 Xf��l-1e8ba8b5a-3b4 Yf��l-1e8ba8b5a-3b5 Zf��l-1e8ba8b5a-3b6 [TUVWXYZ� \5PS[� ]g��getter ^g��index _]^� `f��l-1e8ba8b5a-3a3 af��l-1e8ba8b5a-3a4 b`a� c5_Gb� d � eFFF� ff��l-1e8ba8b5a-39e gf��l-1e8ba8b5a-39f hf��l-1e8ba8b5a-3a0 ifgh� j5dei� ko<CB<\<<<c<j� l0Hkf� m<l� n-Gm.� og��ck pg��err qg��s rpq� s??� tf��l-46961e50f6-22 uf��l-46961e50f6-23 vtu� w5rsv� x?w<CB<<<<KY_c�  y0oxf� zg��quote {0zxf� |Fw<C� }0#|j� ~{}� ~� g��%%index 0kf� <� -G.� f��l-46961e50f6-27 f��l-46961e50f6-28 � 5rs� ?<CB<<<<KY_c�  0of� 0zf� <C� 0 j� � � g��%%copier 0kf� <� -G.� f��l-46961e50f6-2c f��l-46961e50f6-2d � 5rs� ?<CB<<<<KY_c�  0of� 0zf� g��%%:random-source-set-fields F<C� 0j� � � g��t-46961e50f6-1c � f��l-46961e50f6-31 � 5@� ?<CB<<<<KY_c�  01f� o<CB<\<<<c<j� 0qf� � g��if 0f� 0+f� 0-f� � F<C� 0#j� � g�� struct-ref 0f� <C� 0 j� � 07f� 0zf� 0:j� � � � � F<C� 0;j� g��each ..� � . .Œ .Ì g�� %%set-fields g��dummy g��check? g��expr q]� g��m-46961e50f6-38 3� oooo� f��l-46961e50f6-3d f��l-46961e50f6-3e f��l-46961e50f6-3f f��l-46961e50f6-40 f��l-46961e50f6-41 � 5� � f��l-46961e50f6-3a � 5>� g��t-1e8ba8b5a-3c4 g��t-1e8ba8b5a-3c6 g��t-1e8ba8b5a-3c5 � g��m-1e8ba8b5a-3c7 3� � f��l-1e8ba8b5a-3cb f��l-1e8ba8b5a-3cc f��l-1e8ba8b5a-3cd � 5� f��l-1e8ba8b5a-3c1 f��l-1e8ba8b5a-3c2 f��l-1e8ba8b5a-3c3 � 5de� o<B<<<<�  0f� F<� 0#j� 0:j� � g��map � � g��list g��set-random-source-state! g��#%set-random-source-state!-procedure -..� g��m-46961e50f6-4c 3� g��t-46961e50f6-4a g��t-46961e50f6-4b � � f��l-46961e50f6-51 f��l-46961e50f6-52 � 5� �� f��l-46961e50f6-4e � 5>�� <B<<<<KY_c�  01f� g��t-1e8ba8b5a-3e6 g��t-1e8ba8b5a-3e7 �  g��m-1e8ba8b5a-3e8   3�    �  f��l-1e8ba8b5a-3ec  f��l-1e8ba8b5a-3ed   � 5 � g��setter N]� f��l-1e8ba8b5a-3e0 f��l-1e8ba8b5a-3e1 f��l-1e8ba8b5a-3e2 � 5e� ^� f��l-1e8ba8b5a-3d7 f��l-1e8ba8b5a-3d8 � 5G� g�� field-specs � f��l-1e8ba8b5a-3d3 f��l-1e8ba8b5a-3d4  � !5G � "o<B<<<!� #0q"f� $g��val %0$"f� &#%� '0"f� (0+"f� )0-"f� *)#� +F<� ,0#+j� -(*,� .g�� struct-set! /0."f� 0<� 10 0j� 2/#1%� 307"f� 40z"f� 50+j� 645� 73#6� 8'-27� 9&8� :F<� ;0:j� <g��seed->random-state =g��random-state->datum >g��datum->random-state ?g�� gettimeofday @e�� 1000000.0 Ag�� i+j->seed Bg��spread Cg��random Dg��random:uniform Eg��real? Fg��error Gf��!unit must be real between 0 and 1C�5�������h����]4   5�4�>��"��G���4 i4!i5�">��"��G��#���h������]��C������y�������g��state  ��g��filenamef��srfi/srfi-27.scm ( �  ��g��nameg��%%make-random-source-procedure�C$R4'(),/��h���6���]��C������.�������g��t-46961e50f6-3  ��  ���C(������h���S���]L�6����K�������g��a  ��g��filenamef��srfi/srfi-27.scm  ( �  ���C-�����h���C���]�L�6;�������g��filenamef��srfi/srfi-27.scm  ( �   ���C�������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��|�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-27.scm ( �  n ���C5(R#ƨ��4�#>��"��G��� ̖$i��#R#�h���z���]�$���CC������r�������g��obj  ��g��filenamef��srfi/srfi-27.scm ( �   ��g��nameg��%random-source?-procedure�CR4'),/4��������h���7���]��C������/�������g��t-46961e50f6-10  ��  ���C�����h���S���]L�6����K�������g��a  ��g��filenamef��srfi/srfi-27.scm  ( �  ���C-�����h���C���]�L�6;�������g��filenamef��srfi/srfi-27.scm  ( �   ���C6������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��|�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-27.scm ( �  n ���C5R#9:���h���}���]�&��� C�6u�������g��s  ��g��filenamef��srfi/srfi-27.scm ( �   ��g��nameg��%random-source-state-procedure�C;R4':),ny�������h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C/�����h���7���]��C������/�������g��t-46961e50f6-1c  ��  ���C:����h���S���]L�6����K�������g��a  ��g��filenamef��srfi/srfi-27.scm  ( �  ���C-�����h���C���]�L�6;�������g��filenamef��srfi/srfi-27.scm  ( �   ���C������h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-27.scm ( �  � ���C5:R4'),�h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-27.scm ( �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5R#9��������h ������]�&��� C�6�������������g��s  �g��val  ��g��filenamef��srfi/srfi-27.scm ( �   ��g��nameg��#%set-random-source-state!-procedure�CR4'),9����h���T���]��C����L�������g��t-46961e50f6-4a  �g��t-46961e50f6-4b  ��  ���C�������h���S���]L�6����K�������g��a  ��g��filenamef��srfi/srfi-27.scm  ( �  ���C-�����h���C���]�L�6;�������g��filenamef��srfi/srfi-27.scm  ( �   ���C;������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��|�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-27.scm ( �  n ���C5R<#�����h������]4 5���C������}�������g��state  ��g��filenamef��srfi/srfi-27.scm -  .   . �   ��g��nameg��make-random-source�CR=#9:�h ������]�&��� "�� 4�56~�������g��s  ��g��filenamef��srfi/srfi-27.scm 0  1  1 �  ��g��nameg��random-source-state-ref�CR>#9��������h(������] 45�&��� C�6������������g��s  #�g��state  #�g��val  #��g��filenamef��srfi/srfi-27.scm 3  4  4 �  # ��g��nameg��random-source-state-set!�CR?<@#9�����h8������]45�45�&��� C�6�������������g��s  2�g��time  2�g��val   2��g��filenamef��srfi/srfi-27.scm 6  7   7  8  9 '  9 2  9 $  9 7  9 !  8  8 �  2 ��g��nameg��random-source-randomize!�CR<A#9��h0������] 4455�&��� C�6�������������g��s  *�g��i  *�g��j   *�g��val   *��g��filenamef��srfi/srfi-27.scm ;  <   < 2  <   < �  * ��g��nameg��random-source-pseudo-randomize!�CRB�h������]4� 5 4 5C�������g��i  �g��j  ��g��filenamef��srfi/srfi-27.scm >  ?  ?  @  ? �   ��g��nameg�� i+j->seed�CAR���h@������]"��) $��C  " � "����������g��n  =�g��amount  =�g��result   /�g��n   /�g��shift   /��g��filenamef��srfi/srfi-27.scm B  C  D   D   G   G   F  H  % I  / F  / C �  = ��g��nameg��spread�CBRC#9:�����h(���c���]�L�&��L� "�� 4L�56������[�������g��n  "��g��filenamef��srfi/srfi-27.scm L  M  " M �  " ���C��h���z���]�O�C������r�������g��s  ��g��filenamef��srfi/srfi-27.scm K �  ��g��nameg��random-source-make-integers�CRD#9:���h@������]"��04L�&��L� "�� 4L�55�� $��"�C"�������������g��x % 6��g��filenamef��srfi/srfi-27.scm R   S   T  T " % T  % T * U  / U 3 V  6 S �  : ���CEFG�������h`������)��� 3��O�C] 45$�� $�� "��"��$��"��4>��"��G���6����������g��s �g��s  ]�g��unit  ]�g��t  4 W��g��filenamef��srfi/srfi-27.scm P   Y   Y " Y  4 Y  A Z E Z  L Z ] [ �  �  ] ��g��nameg��random-source-make-reals�CR4i5�R4ii5R4ii5RC�������������g��m  ,�g��rtd ~ ��g��filenamef��srfi/srfi-27.scm   - & 2 &  : & & ? & � (  - q 0 f 3  6  ;  >  B  K  O  ]   ]  ^   ^  _   _ �   ���C6����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/srfi/srfi-2.go���������������������������������������������������������������������������0000644�����������������00000001173�15146341264�0010655 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0c������]��4����h{������]� g��guile � g��define-module* � � g��srfi g��srfi-2 � g��filenameS f��srfi/srfi-2.scm g��importsS g��ice-9 g�� and-let-star   � � � g�� re-exportsS g��and-let* � g��set-current-module � � g��cond-expand-provide g��current-module �C�5h@���i���]4   5�4�>��"��G���i4i5�6�����a�������g��m  ,��g��filenamef��srfi/srfi-2.scm   1   9  & ;  �  ; ���C6������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/srfi/srfi-11.go��������������������������������������������������������������������������0000644�����������������00000016544�15146341264�0010745 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0L������]��4����h ������]� g��guile � g��define-module* � � g��srfi g��srfi-11 � g��filenameS f��srfi/srfi-11.scm g��exportsS g�� let-values g�� let*-values   � g��set-current-module � � g��cond-expand-provide g��current-module � g��make-syntax-transformer � � g��macro g�� $sc-dispatch � � g��_ g��any � � g��each-any !  "! #" $g�� syntax-object %g��call-with-values &g��top '&� (g��ribcage )g��binds *g��exp +g��b0 ,g��b1 -)*+,� .''''� /f��l-46961e50cb-93 0f��l-46961e50cb-94 1f��l-46961e50cb-95 2f��l-46961e50cb-96 3/012� 4(-.3� 5(� 6g��x 76� 8'� 9f��l-46961e50cb-90 :9� ;(78:� <'45;� =g��hygiene >=� ?$%<>� @g��lambda A$@<>� B ! CB D  � Eg��let Fg��id Gg��tmp HFG� I''� Jf��l-46961e50cb-af Kf��l-46961e50cb-b0 LJK� M(HIL� Ng��lp Og��clauses Pg��ids Qg��tmps RNOPQ� Sf��l-46961e50cb-a3 Tf��l-46961e50cb-a4 Uf��l-46961e50cb-a5 Vf��l-46961e50cb-a6 WSTUV� X(R.W� Yg��clause ZY+,� ['''� \f��l-46961e50cb-9d ]f��l-46961e50cb-9e ^f��l-46961e50cb-9f _\]^� `(Z[_� a'5M5X`5;� b$Ea>� cg��map dc� ec� fg��list gg��syntax-violation hg� ig� jf��-source expression failed to match any pattern k � lg��generate-temporaries m   � ng��append on� pn� qg��inner rq� sf��l-46961e50cb-c7 ts� u(r8t� vg��new-tmp wvFG� xf��l-46961e50cb-bf yf��l-46961e50cb-c0 zf��l-46961e50cb-c1 {xyz� |(w[{� }g��var ~}*� f��l-46961e50cb-b8 �f��l-46961e50cb-b9 �� �(~I� �'5u55|5X`5;�  �$%>� �$@>� � �g��each �� �  � �� �g��args �q� �f��l-46961e50cb-e2 �f��l-46961e50cb-e3 �� �(I� �g��new-var �vFG� �f��l-46961e50cb-d7 �f��l-46961e50cb-d8 �f��l-46961e50cb-d9 �f��l-46961e50cb-da �� �(.� �g��vars �*� �f��l-46961e50cb-d0 �f��l-46961e50cb-d1 �� �(I� �'5555X`5;�  �$%>� �$@>� �  � �g��dummy �g��body �� �g��m-46961e50cb-104 �&� �'� �f��l-46961e50cb-109 �f��l-46961e50cb-10a �� �(� �� �f��l-46961e50cb-106 �� �(7� �'5� �$E>� �� � �  � �g��vars-1 �g�� binding-1 �g��vars-2 �g�� binding-2 �� �'''''� �f��l-46961e50cb-10f �f��l-46961e50cb-110 �f��l-46961e50cb-111 �f��l-46961e50cb-112 �f��l-46961e50cb-113 �f��l-46961e50cb-114 �� �(� �'5� �$%>� �$@>� �$ >�C�5�������h@��r���]4   5�4�>��"��G���4i4i5�>��"��G��4 #?A�h ���^���]���C�����V�������g��binds  �g��exp  �g��b0   �g��b1   ��   ���CCDbef��������h���;���]4�5L�LC�3�������g��id  �g��tmp  ��   ���Cijklmp������h8������] 4L�L4L54�55L����C����������g��new-tmp  5�g��id  5�g��tmp   5�g��tmp   5��g��filenamef��srfi/srfi-11.scm  W '  W +  W '  W �  5 ���Cij�����h@������]4�5L�L�45$��LL�O�@6����������g��var  =�g��exp  =�g��tmp   =�g��tmp   =��g��filenamef��srfi/srfi-11.scm  S -  S �  = ���Cl�h ������]�4��54L�5C��������������g��id  �g��rest  ��g��filenamef��srfi/srfi-11.scm  c ,  b +  a $  d +  a $�   ���Cl����h0������] 4�5$�� L�O�@�4��5�C�������g��vars  0�g��tmp 0��g��filenamef��srfi/srfi-11.scm ^  ! g / + f . , e ' / h .�  0 ��g��nameg��lp�Cp�����h���*���]�C���"�������g��id  ��   ���C��h���o���]�4L�5C���g�������g��id  �g��rest  ��g��filenamef��srfi/srfi-11.scm  r = q 7�  ���Cij��h@������]4�5$��@4�5$�� L�O�@�6��~�������g��tmps  >�g��tmp >�g��tmp  " >��g��filenamef��srfi/srfi-11.scm n &�  > ��g��nameg��lp�C������h ���?���]L�����C�������7�������g��inner  �g��args  ��   ���Cij��h`������]4L�L454�55O�Q�4�5�45$�� LO�@6����������g��new-tmp  ]�g��new-var  ]�g��id   ]�g��tmp   ]�g��lp  $ 3�g��tmp  6 ]�g��tmp  A ]��g��filenamef��srfi/srfi-11.scm  k '  k +  k ' $ n & 6 k �  ] ���Cij�������hP������]O�Q�4�5L�L�45$��LLO�@6������������g��vars  K�g��exp  K�g��lp  �g��tmp  K�g��tmp  + K��g��filenamef��srfi/srfi-11.scm ^  ] �  K ���C� ��h�����]�(��0�45$�� LLO�@6�45$���L�O�@45$�� �L�O�@6�������������g��clauses  ��g��ids  ��g��tmps   ��g��tmp   8�g��tmp   8�g��tmp  ; ��g��tmp  F ��g��tmp  h ���g��filenamef��srfi/srfi-11.scm I   L  M ; Q  ; Q �  � ��g��nameg��lp�C������h ������] O�Q��6����������g��clause  �g��b0  �g��b1   �g��lp  ��g��filenamef��srfi/srfi-11.scm I   J   K   I �   ���Cij��������h@���t���]4�5$��@4�5$��@�6�������l�������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��srfi/srfi-11.scm C �  9 ���C5 R4 �����h���?���]C������7�������g��dummy  �g��body  ��  ���Cef�h(������]�45��C�������g��dummy  (�g��vars-1  (�g�� binding-1   (�g��vars-2   (�g�� binding-2   (�g��body   (��  ( ���Cij����h@�����]4�5$��@4�5$��@�6��������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��srfi/srfi-11.scm � �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��bodyg��...�g��vars-1g�� binding-1�g��vars-2g�� binding-2�g��...�g��bodyg��...���C5 RC���j�������g��m  (��g��filenamef��srfi/srfi-11.scm  & ) ) . )  6 ) & ; ) �  = ���C6�������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/srfi/srfi-37.go��������������������������������������������������������������������������0000644�����������������00000072526�15146341264�0010757 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0>u������]�4��h6:������]� g��guile � g��define-module* � � g��srfi g��srfi-37 � g��filenameS f��srfi/srfi-37.scm g��importsS g��srfi-9  �  � � g��exportsS g��option g�� option-names g��option-required-arg? g��option-optional-arg? g��option-processor g�� args-fold � g��set-current-module � � g��cond-expand-provide g��current-module � g��srfi-37:option g��%option-procedure g��make-syntax-transformer ! � " � #g��macro $g�� $sc-dispatch %$� &$� 'g��_ (g��any )'((((� *g�� syntax-object +g��lambda ,g��m-46961e511b-153 -g��top .,-� /g��ribcage 0g��t-46961e511b-14f 1g��t-46961e511b-150 2g��t-46961e511b-151 3g��t-46961e511b-152 40123� 5....� 6f��l-46961e511b-158 7f��l-46961e511b-159 8f��l-46961e511b-15a 9f��l-46961e511b-15b :6789� ;/45:� </� =g��x >=� ?.� @f��l-46961e511b-155 A@� B/>?A� Cg��shift Dg�� proc-name Eg��args FDE� G-� HGG� If��l-1e8ba8b5a-2ba Jf��l-1e8ba8b5a-2bb KIJ� L/FHK� Mg��key Ng��value Og��name Pg��formals Qg��body RMNOPQ� SGGGGG� Tf��l-1e8ba8b5a-2ad Uf��l-1e8ba8b5a-2ae Vf��l-1e8ba8b5a-2af Wf��l-1e8ba8b5a-2b0 Xf��l-1e8ba8b5a-2b1 YTUVWX� Z/RSY� [g��make-procedure-name \[� ]G� ^f��l-1e8ba8b5a-29d _^� `/\]_� aG� bf��l-1e8ba8b5a-29c cb� d/>ac� e.;<BC<<<<LZ`d�  fg��hygiene gf � h*+eg� ig��names jG;<B� kf� l*ijk� mg�� required-arg? n*mjk� og�� optional-arg? p*ojk� qg�� processor r*qjk� slnpr� tg�� make-struct ug��m-46961e511b-14d vu-� wg��t-1e8ba8b5a-38d xg��t-1e8ba8b5a-38c yg��t-1e8ba8b5a-38b zwxy� {g��m-1e8ba8b5a-38e |{-� }|||� ~f��l-1e8ba8b5a-392 f��l-1e8ba8b5a-393 �f��l-1e8ba8b5a-394 �~� �/z}� �g�� ctor-args �� �f��l-1e8ba8b5a-37a �� �/a� �g��ctor �g��field �� �f��l-1e8ba8b5a-376 �f��l-1e8ba8b5a-377 �� �/H� �g��form �g�� type-name �g��constructor-spec �g�� field-names �� �GGGG� �f��l-1e8ba8b5a-36b �f��l-1e8ba8b5a-36c �f��l-1e8ba8b5a-36d �f��l-1e8ba8b5a-36e �� �/� �g�� record-layout �g��functional-setters �g��setters �g��copier �g��getters �g�� constructor �g��getter-identifiers �g��field-identifiers �� �GGGGGGGG� �f��l-1e8ba8b5a-343 �f��l-1e8ba8b5a-341 �f��l-1e8ba8b5a-33f �f��l-1e8ba8b5a-33d �f��l-1e8ba8b5a-33b �f��l-1e8ba8b5a-339 �f��l-1e8ba8b5a-337 �f��l-1e8ba8b5a-335 �� �/� �f��l-1e8ba8b5a-334 �� �/>a� �v;<BC<<<<<� �*tg� �*jk� �* g� �lnpr� �hs� �g��each-any �' �g��syntax-violation � � � � �f��Wrong number of arguments �g�� identifier? � � � � �G<B� �*k� �� �� �f��-source expression failed to match any pattern �g��record-type-vtable � � � � �g��pwpwpwpw �g��default-record-printer � � � � �imoq� �g��set-struct-vtable-name! � � � � �g��vtable-offset-user � � � � �g��%option?-procedure �g��option? �'(� �g��m-46961e511b-166 �-� �g��t-46961e511b-165 �� �� �f��l-46961e511b-16b �� �/� �f��l-46961e511b-168 �� �/>� �<C<<<<LZ`d�  �*+g� �g��obj �g��t-1e8ba8b5a-47e �g��t-1e8ba8b5a-478 �g��t-1e8ba8b5a-479 �g��t-1e8ba8b5a-47a �g��t-1e8ba8b5a-47d �g��t-1e8ba8b5a-47c �g��t-1e8ba8b5a-47b �� �g��m-1e8ba8b5a-47f �-� �� �f��l-1e8ba8b5a-483 �f��l-1e8ba8b5a-484 �f��l-1e8ba8b5a-485 �f��l-1e8ba8b5a-486 �f��l-1e8ba8b5a-487 �f��l-1e8ba8b5a-488 �f��l-1e8ba8b5a-489 �� �/� �g�� copier-id �� �f��l-1e8ba8b5a-476 �� �/a� �g�� ctor-name �� �f��l-1e8ba8b5a-46e �� /a� � f��l-1e8ba8b5a-46c � /a� g��layout �  f��l-1e8ba8b5a-46a   �  /a �  g�� immutable?   � f��l-1e8ba8b5a-468 � / a� g�� field-count � f��l-1e8ba8b5a-466 � /a� g�� getter-ids � f��l-1e8ba8b5a-463 � /a� g�� field-ids � f��l-1e8ba8b5a-460 � /a�  g��predicate-name !g�� field-spec "  !� #GGGGGG� $f��l-1e8ba8b5a-453 %f��l-1e8ba8b5a-454 &f��l-1e8ba8b5a-455 'f��l-1e8ba8b5a-456 (f��l-1e8ba8b5a-457 )f��l-1e8ba8b5a-458 *$%&'()� +/"#*� ,v<C<<<<<<<< <<<<+� -*,g� .-� /g��and 0*/,g� 1g��struct? 2*1,g� 32-� 4g��eq? 5*4,g� 6g�� struct-vtable 7*6,g� 87-� 9G<� :*9k� ;58:� <03;� =.<� >G<� ?*>k� @g��throw-bad-struct A @� B @� Cg��%option-names-procedure Dg��free-id Eg�� %%on-error Fg��m-46961e511b-172 GF-� HG� If��l-46961e511b-174 JI� K/>HJ� LG<KC<<<<LZ`d�  M*ELg� NDM� ON(� Pg��%%type Qg��t-1e8ba8b5a-3a5 Rg��t-1e8ba8b5a-3a6 Sg��t-1e8ba8b5a-3a7 Tg��t-1e8ba8b5a-3a8 Ug��t-1e8ba8b5a-3a9 Vg��t-1e8ba8b5a-3aa Wg��t-1e8ba8b5a-3ab XQRSTUVW� Yg��m-1e8ba8b5a-3ac ZY-� [ZZZZZZZ� \f��l-1e8ba8b5a-3b0 ]f��l-1e8ba8b5a-3b1 ^f��l-1e8ba8b5a-3b2 _f��l-1e8ba8b5a-3b3 `f��l-1e8ba8b5a-3b4 af��l-1e8ba8b5a-3b5 bf��l-1e8ba8b5a-3b6 c\]^_`ab� d/X[c� eg��getter fg��index gef� hf��l-1e8ba8b5a-3a3 if��l-1e8ba8b5a-3a4 jhi� k/gHj� l� mGGG� nf��l-1e8ba8b5a-39e of��l-1e8ba8b5a-39f pf��l-1e8ba8b5a-3a0 qnop� r/lmq� sv<KC<d<<<k<r� t*Psg� uDt� v'Ou(� wg��ck xg��err yg��s zxy� {GG� |f��l-46961e511b-177 }f��l-46961e511b-178 ~|}� /z{~� G<KC<<<<LZ`d�  *wg� g��quote *g� G<K� *k� � � g��%%index *sg� D� 'O(� f��l-46961e511b-17c f��l-46961e511b-17d � /z{� G<KC<<<<LZ`d�  *wg� *g� <K� * k� � � g��%%copier *sg� D� 'O(� f��l-46961e511b-181 f��l-46961e511b-182 � /z{� G<KC<<<<LZ`d�  *wg� *g� g��%%srfi-37:option-set-fields G<K� *k� � � g��t-46961e511b-171 � f��l-46961e511b-186 � /H� G<KC<<<<LZ`d�  *+g� v<KC<d<<<k<r� *yg� � g��if *g� *4g� *6g� � G<K� *k� � g�� struct-ref *g� <K� * k� � *@g� *g� *k� � � � � G<K� *Ck� g��%option-required-arg?-procedure g��m-46961e511b-18d -� � f��l-46961e511b-18f � />� <C<<<<LZ`d�  *Eg� D� (� v<C<d<<<k<r� *Pg� D� '(� � f��l-46961e511b-192 f��l-46961e511b-193 � /z� <C<<<<LZ`d�  *wg� *g� G<� *k� � � *g� D� '(� f��l-46961e511b-197 f��l-46961e511b-198 � /z� <C<<<<LZ`d�  *wg� *g� <� * k� � � *g� D� '(� f��l-46961e511b-19c f��l-46961e511b-19d � /z� <C<<<<LZ`d�  *wg� *g� G<� *k� � � g��t-46961e511b-18c � �f��l-46961e511b-1a1 �� /� <C<<<<LZ`d�  *+g� v<C<d<<<k<r� *yg� � *g�  *4g�  *6g�   �  G<�  * k�    � *g� <� * k� � *@g� *g� * k� � � � � G<� *k� g��%option-optional-arg?-procedure g��m-46961e511b-1a8 -� �  f��l-46961e511b-1aa ! � "/>!� #<"C<<<<LZ`d�  $*E#g� %D$� &%(� 'v<"C<d<<<k<r� (*P'g� )D(� *'&)(� +� ,f��l-46961e511b-1ad -f��l-46961e511b-1ae .,-� //z+.� 0/<"C<<<<LZ`d�  1*w0g� 2*0g� 3G/<"� 4*3k� 524� 65� 7*'g� 8D7� 9'&8(� :f��l-46961e511b-1b2 ;f��l-46961e511b-1b3 <:;� =/z+<� >=<"C<<<<LZ`d�  ?*w>g� @*>g� A=<"� B* Ak� C@B� DC� E*'g� FDE� G'&F(� Hf��l-46961e511b-1b7 If��l-46961e511b-1b8 JHI� K/z+J� LK<"C<<<<LZ`d�  M*wLg� N*Lg� OGK<"� P*Ok� QNP� RQ� Sg��t-46961e511b-1a7 TS� Uf��l-46961e511b-1bc VU� W/TV� XW<"C<<<<LZ`d�  Y*+Xg� ZvW<"C<d<<<k<r� [*yZg� \[� ]*Zg� ^*4Zg� _*6Zg� `_[� aGW<"� b*ak� c^`b� d*Zg� eW<"� f* ek� gd[f� h*@Zg� i*Zg� j*ak� kij� lh[k� m]cgl� nY\m� oG<"� p*ok� qg��%option-processor-procedure rg��m-46961e511b-1c3 sr-� ts� uf��l-46961e511b-1c5 vu� w/>tv� xs<wC<<<<LZ`d�  y*Exg� zDy� {z(� |v<wC<d<<<k<r� }*P|g� ~D}� '{~(� ss� f��l-46961e511b-1c8 f��l-46961e511b-1c9 � /z� s<wC<<<<LZ`d�  *wg� *g� G<w� *k� � � *|g� D� '{(� f��l-46961e511b-1cd f��l-46961e511b-1ce � /z� s<wC<<<<LZ`d�  *wg� *g� <w� * k� � � *|g� D� '{(� f��l-46961e511b-1d2 f��l-46961e511b-1d3 � /z� s<wC<<<<LZ`d�  *wg� *g� G<w� *k� � � g��t-46961e511b-1c2 � f��l-46961e511b-1d7 � /t� s<wC<<<<LZ`d�  *+g� v<wC<d<<<k<r� *yg� � *g� *4g� *6g� � G<w� *k� � *g� <w� * k� � *@g� *g� *k� � � � � G<w� *qk� g��each ((� � (Ȍ (Ɍ (ʌ g�� %%set-fields g��dummy g��check? g��expr ye� g��m-46961e511b-1de -� vvvv� f��l-46961e511b-1e3 f��l-46961e511b-1e4 f��l-46961e511b-1e5 f��l-46961e511b-1e6 f��l-46961e511b-1e7 � /� � f��l-46961e511b-1e0 � />� g��t-1e8ba8b5a-3c4 g��t-1e8ba8b5a-3c6 g��t-1e8ba8b5a-3c5 � g��m-1e8ba8b5a-3c7 -� � f��l-1e8ba8b5a-3cb f��l-1e8ba8b5a-3cc f��l-1e8ba8b5a-3cd � /� f��l-1e8ba8b5a-3c1 f��l-1e8ba8b5a-3c2 f��l-1e8ba8b5a-3c3 � /lm� v<C<<<<�  *g� G<� *k� *k� *k� *k� *k� � g��map � � g��list g�� scm-error g�� program-error f�� args-fold �f��Duplicate option name `~A~A' g��char? f��-- g��error-duplicate-option g��make-hash-table g��length g��for-each g��hash-create-handle! g��build-options-lookup  g��append  g�� string-length  g�� substring  g�� string-ref  g��hash-ref g�� misc-error f��%Missing required argument after `-~A' g��char=? g�� string-index f��&Missing required argument after `--~A' f�� Extraneous argument after `--~A'C�5�����h(7�����]4   5�4�>��"��G���4i4i5�>��"��G�����h������]��C�������g��names  �g�� required-arg?  �g�� optional-arg?   �g�� processor   ��g��filenamef��srfi/srfi-37.scm E �   ��g��nameg��%option-procedure�CR4"#&)��h������]��C�������g��t-46961e511b-14f  �g��t-46961e511b-150  �g��t-46961e511b-151   �g��t-46961e511b-152   ��   ���C��h���S���]L�6����K�������g��a  ��g��filenamef��srfi/srfi-37.scm  E �  ���C'�����h���C���]�L�6;�������g��filenamef��srfi/srfi-37.scm  E �   ���C�������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��|�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-37.scm E �  n ���C5Rͨ��4�>��"��G��� Ӗi��R�h���s���]�$���CC������k�������g��obj  ��g��filenamef��srfi/srfi-37.scm E �   ��g��nameg��%option?-procedure�CR4"#&=�������h���8���]��C������0�������g��t-46961e511b-165  ��  ���C����h���S���]L�6����K�������g��a  ��g��filenamef��srfi/srfi-37.scm  E �  ���C'�����h���C���]�L�6;�������g��filenamef��srfi/srfi-37.scm  E �   ���C?������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��|�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-37.scm E �  n ���C5RB����h���v���]�&��� C�6n�������g��s  ��g��filenamef��srfi/srfi-37.scm E �   ��g��nameg��%option-names-procedure�CCR4"#&v�������h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�����h���8���]��C������0�������g��t-46961e511b-171  ��  ���C����h���S���]L�6����K�������g��a  ��g��filenamef��srfi/srfi-37.scm  E �  ���C'�����h���C���]�L�6;�������g��filenamef��srfi/srfi-37.scm  E �   ���C������h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-37.scm E �  � ���C5RB��������h���~���]�&��� C�6v�������g��s  ��g��filenamef��srfi/srfi-37.scm E �   ��g��nameg��%option-required-arg?-procedure�CR4"#&�������h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�����h���8���]��C������0�������g��t-46961e511b-18c  ��  ���C����h���S���]L�6����K�������g��a  ��g��filenamef��srfi/srfi-37.scm  E �  ���C'�����h���C���]�L�6;�������g��filenamef��srfi/srfi-37.scm  E �   ���C������h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-37.scm E �  � ���C5RB��������h ���~���]�&��� C�6�������v�������g��s  ��g��filenamef��srfi/srfi-37.scm E �   ��g��nameg��%option-optional-arg?-procedure�CR4"#&*16�������h���:���]C�����2�������g��err  �g��s  ��  ���C9?D�h���:���]C�����2�������g��err  �g��s  ��  ���CGMR�h���:���]C�����2�������g��err  �g��s  ��  ���Cn�����h���8���]��C������0�������g��t-46961e511b-1a7  ��  ���C����h���S���]L�6����K�������g��a  ��g��filenamef��srfi/srfi-37.scm  E �  ���C'�����h���C���]�L�6;�������g��filenamef��srfi/srfi-37.scm  E �   ���Cp������h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-37.scm E �  � ���C5RB��������h ���z���]�&��� C�6�������r�������g��s  ��g��filenamef��srfi/srfi-37.scm E �   ��g��nameg��%option-processor-procedure�CqR4"#&���h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�����h���8���]��C������0�������g��t-46961e511b-1c2  ��  ���C����h���S���]L�6����K�������g��a  ��g��filenamef��srfi/srfi-37.scm  E �  ���C'�����h���C���]�L�6;�������g��filenamef��srfi/srfi-37.scm  E �   ���C������h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-37.scm E �  � ���C5R4"#&��h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-37.scm E �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5R�������h(������]4�5$��-"����6����������g�� option-name  %��g��filenamef��srfi/srfi-37.scm M  N  N  O P   P   P / " P % N �  % ��g��nameg��error-duplicate-option�CR�����h(������] 4L��5$��6LC������������g��name  #�g��assoc #��g��filenamef��srfi/srfi-37.scm [   \ \   ^   ^   _ 1  _  ! ` �  # ���CB������h0���e���]L��O��&��� "�� 4�56�������]�������g��opt  )��g��filenamef��srfi/srfi-37.scm Z   a  ) [ �  ) ���C��������h0���k��] 4 4�554O��>��"��G��C�c������g��options  /�g��lookup  /��g��filenamef��srfi/srfi-37.scm T  X   X &  X !  X   X   Y �  / ��g��nameg��build-options-lookupg�� documentationf��Answer an `equal?' Guile hash-table that maps OPTIONS' names back to the containing options, signalling an error if a name is encountered more than once.�CRB �������h���S���]�L4L�M5@�K�������g��filenamef��srfi/srfi-37.scm q   r )  r �   ���C��h���q��]�&�� � "�� 4�5��&��� "�� 4�5$�� 45�"��9�&�� � "�� 4�5$�� 45�"��4>���"��G���44L�O�>���5"��=N�C�i������g��opt  ��g��name  ��g�� req-arg-proc   ��g�� opt-arg-proc   ��g�� no-arg-proc   ��g�� procedure  � ��g��params  � ���g��filenamef��srfi/srfi-37.scm    �  $ �  ? �  @ � ) K �  g �  h � ) q �  � �  � p  � p �  � ��g��nameg��invoke-option-processor�C  �����hP���{��] �4M�5$��4M��5M�N�CM�$��M�M�N�CM�$��M�N�CC��s������g��position  N�g��result  '�g��result 3 >��g��filenamef��srfi/srfi-37.scm �   �   �  � - �   �  �   �   � &  � 1  �   � " �  $ �  * �  + � / �  2 �  3 � 8 �  ; �  A � E �  H �  J � �  N ��g��nameg��short-option-argument�C   ���h(������]4L�L5��$���CL���6�������g��t (�g��args  (��g��filenamef��srfi/srfi-37.scm �   �  �   �   m  ! m  # � ! ( m �  ( ���C�����h���M���]�LL�6E�������g��filenamef��srfi/srfi-37.scm �   � �   ���C�h���D���]�C����<�������g��filenamef��srfi/srfi-37.scm � �   ���CB �h���S���]�L4L�M5@�K�������g��filenamef��srfi/srfi-37.scm q   r )  r �   ���C� �h�����]�4M5$�� MNL6�4M�54L5$��~4LL�O��LO�>��"��G��&�� "�� 4 5$��"��&��  "�� 4 5$��C��"M�L��4 4 LLO�>���5"��=N��"�����������g��position  ��g��opt-name $ ��g�� option-here  / ��g��t  { ��g��names  � ��g��params  � ���g��filenamef��srfi/srfi-37.scm �   �  � & �  �  �   �   �  �  �  � ' $ �  $ � ' �  / � 7 � 8 �  d � { �  � � � �  � � % � �  � � * � � " � �  � p  � p  � � ! � � �  � ��g��nameg�� short-option�C   �����h���S���]�L4L�M5@�K�������g��filenamef��srfi/srfi-37.scm q   r )  r �   ���C �������h���S���]�L4L�M5@�K�������g��filenamef��srfi/srfi-37.scm q   r )  r �   ���C��h(������] ��44L�LO�>���5"��=N�Cx�������g��arg  (�g��params  (��g��filenamef��srfi/srfi-37.scm w   w  p  & p �  ( ���C   ����h(������]L$�� LL6L����6����������g��args  %��g��filenamef��srfi/srfi-37.scm �   �   � &  �   �   m   m  �  % m �  % ���C �����h���_���]�L$�� L�L6C�����W�������g��filenamef��srfi/srfi-37.scm �   �   � 6  � '�   ���C�h ������]L$��L����6C���������g��args ��g��filenamef��srfi/srfi-37.scm �   �  �   m   m   �   m �   ���C �����h���S���]�L4L�M5@�K�������g��filenamef��srfi/srfi-37.scm q   r )  r �   ���C��h��A��]8M(��MEM�4-4� 55$��"�� 4�5$��0��44LL�O�>���5"��=NMN"�@4-4� 55$� 4�5$��'MN4LL�O�M>��"��G��N"��M"��4=54  $��"��4554 L5$��54L O� O� O�>��"��hG��"��a$�� "�L��44LLO�>���5"��=N"�� ".MN"��4L >��"��G��"P������9������g��arg  �g��t ! :�g��params C e�g��arg � �g�� start-pos  � �g��index  � �g��opt-name  � �g�� option-here  � �g��names  D T�g��params  Z �� g��filenamef��srfi/srfi-37.scm �   �  �  �   �  �   � ( �  ! �  ! �  0 �  7 �  > � C �  F p  b p  h �  j �  o �  t �  } �  � � � �  � �  � �  � � ) � �  � w  � y  � y  � �  � �  � �  � �  � � � �  � � , � � 6 � �  � � � �  � � � � � �  6 �  9 � # ? �  D �  D �  Z �  ] p  y p   �   �   �   �   � �:   ��g��nameg��next-arg�C����h���J��-�1�3� �H�H45O�O�O�O� Q��Q� �Q� �Q�  6�����B������g��args  |�g��options  |�g��unrecognized-option-proc   |�g�� operand-proc   |�g��seeds   |�g��lookup   |�g��invoke-option-processor  H |�g��short-option-argument  H |�g�� short-option  H |�g��next-arg H |�� g��filenamef��srfi/srfi-37.scm e  j   j  | � � |  ��g��nameg�� args-foldg�� documentationf��Answer the results of folding SEEDS as multiple values against the program-arguments in ARGS, as decided by the OPTIONS' `option-processor's, UNRECOGNIZED-OPTION-PROC, and OPERAND-PROC.�CRC��������g��m  ,�g��rtd  >��g��filenamef��srfi/srfi-37.scm  * - 0 2 0  : 0 & ? 0 , E  M ! T 7% e �  7' ���C6���������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/srfi/srfi-39.go��������������������������������������������������������������������������0000644�����������������00000002504�15146341264�0010746 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0,������]��4��������h������]� g��guile � g��define-module* � � g��srfi g��srfi-39 � g��filenameS f��srfi/srfi-39.scm g��exportsS g��with-parameters*  � g�� re-exportsS g��make-parameter g�� parameterize g��current-input-port g��current-output-port g��current-error-port � g��set-current-module � � g��cond-expand-provide g��current-module � g�� with-fluids* g��parameter-fluid g��parameter-converterC�5����hP��z���]4    5�4�>��"��G���4i4i5�>��"��G���������hX�����]#"��>(�� 6454455"�"��������g��params  V�g��values  V�g��thunk   V�g��params   D�g��values   D�g��fluids   D�g��convs   D��g��filenamef��srfi/srfi-39.scm -  .  2   3   4   4   5  " 5 % $ 5  ' 5  ( 6  ) 6  . 6 * 0 6  3 6 8 5 6  8 6  D 4  D .  I 0  J 1  V . �  V ��g��nameg��with-parameters*�C RC�r�������g��m  ,��g��filenamef��srfi/srfi-39.scm  $ - + 2 +  : + & ? + M - �  O ���C6���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/srfi/srfi-26.go��������������������������������������������������������������������������0000644�����������������00000014614�15146341264�0010747 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0t������]��4���h ������]� g��guile � g��define-module* � � g��srfi g��srfi-26 � g��filenameS f��srfi/srfi-26.scm g��exportsS g��cut g��cute   � g��set-current-module � � g��cond-expand-provide g��current-module � g��make-syntax-transformer � � g��macro g�� $sc-dispatch � � g��any g��each-any   g��reverse !� "g�� syntax-object #g��lambda $g��top %$� &g��ribcage '&� (g��t-46961e50f5-72 )g��t-46961e50f5-71 *()� +g��m-46961e50f5-73 ,+$� -,,� .f��l-46961e50f5-77 /f��l-46961e50f5-78 0./� 1&*-0� 2g��loop 3g��slots 4g��params 5g��args 62345� 7%%%%� 8f��l-46961e50f5-68 9f��l-46961e50f5-69 :f��l-46961e50f5-6a ;f��l-46961e50f5-6b <89:;� =&67<� >g��slot0 ?g��slot1+ @ >?� A%%%� Bf��l-46961e50f5-62 Cf��l-46961e50f5-63 Df��l-46961e50f5-64 EBCD� F&@AE� Gg��stx HG� I%� Jf��l-46961e50f5-5f KJ� L&HIK� M%'1'=F'L� Ng��hygiene ON� P"#MO� Qg��syntax-violation RQ� SQ� Tf��-source expression failed to match any pattern Ug��generate-temporaries Vg��var WV� X� Yg��free-id Zg��<> [V� \f��l-46961e50f5-82 ]\� ^&[I]� _g��s `g��rest a_`� b%%� cf��l-46961e50f5-7b df��l-46961e50f5-7c ecd� f&abe� g%'^''f'=F'L�  h"ZgO� iYh� jg��<...> k"jgO� lYk� mg��error nf��&<...> not on the end of cut expression og��append p� qg��t-46961e50f5-88 rg��t-46961e50f5-87 sqr� tg��m-46961e50f5-89 ut$� vuu� wf��l-46961e50f5-8d xf��l-46961e50f5-8e ywx� z&svy� {%'z'^''f'=F'L�  |"#{O� }g��apply ~"}{O� g��let �g��t-46961e50f5-a8 �g��t-46961e50f5-a7 �� �g��m-46961e50f5-a9 �$� �� �f��l-46961e50f5-ad �f��l-46961e50f5-ae �� �&� �g�� process-hole �� �%� �f��l-46961e50f5-a5 �� �&� �g��bindings �g�� arguments �23� �f��l-46961e50f5-9c �f��l-46961e50f5-9d �f��l-46961e50f5-9e �f��l-46961e50f5-9f �� �&7� � 3� �f��l-46961e50f5-98 �f��l-46961e50f5-99 �� �&b� �f��l-46961e50f5-95 �� �&HI� �%''� �"O� �" O� �%'� �"ZO� �Y� �"jO� �Y� �g��t ��C�5�������hP ��r���]4   5�4�>��"��G���4i4i5�>��"��G��4  !P���h���T���]��C����L�������g��t-46961e50f5-72  �g��t-46961e50f5-71  ��  ���CSTUWXi���h���T���]�LLLLLL�6������L�������g��filenamef��srfi/srfi-26.scm %   % 3  % �   ���Clmn��h���\���]�L�$��6C�������T�������g��filenamef��srfi/srfi-26.scm  '  '  (   ( �   ���Co p|~���h���T���]��C�L�������g��t-46961e50f5-88  �g��t-46961e50f5-87  ��   ���CST�����h@������]44L�5L54LL5��4�5$��@�6��������g��tmp  ?�g��tmp ( ?��g��filenamef��srfi/srfi-26.scm  )  ) (  )  * "  * +  * "  ) �  ? ���C�������hp������]4L�5$��L�LLLO�@4L�5"�� LLLL�L6$��#4LO�?$��L�LO�@""�w�������g��var  o�g��tmp o�g��tmp  / o��g��filenamef��srfi/srfi-26.scm @ , & B , �  o ���C� �����h���K��]#�(��34545�45$��@6��454 5$�� L�O�@6�����C������g��slots  {�g��params  {�g��args   {�g��tmp   ;�g��tmp  $ ;�g��s  A {�g��rest  A {�g��tmp  L {�g��tmp  W {�� g��filenamef��srfi/srfi-26.scm         ,    >  A !  A F " $ J " : L " $ L " �  { ��g��nameg��loop�C��h ������] O�Q�6�������������g��cut  �g��slot0  �g��slot1+   �g��loop  ��g��filenamef��srfi/srfi-26.scm          �   ���CST��h(���e���] 4�5$��@�6������]�������g��stx  "�g��tmp "��g��filenamef��srfi/srfi-26.scm  �  " ���C5 R4  p��h���T���]��C�L�������g��t-46961e50f5-a8  �g��t-46961e50f5-a7  ��   ���CST����h���\���]�LLLLL�6�������T�������g��filenamef��srfi/srfi-26.scm  6  6 ,  6 &  6 �   ���Ch���\���]�LLLLL�6�������T�������g��filenamef��srfi/srfi-26.scm  6  6 ,  6 &  6 �   ���CUX����h���l���]LL�L�L�L�6d�������g��t  ��g��filenamef��srfi/srfi-26.scm  ?   @   A   ? �   ���C�h���c��]+�(��.45�45$��@6�45$���L�O�@4 5$�� �L�O�@4  54 5$���L�O�@6���[������g��slots  ��g��bindings  ��g�� arguments   ��g��tmp   6�g��tmp   6�g��tmp  9 ��g��tmp  D ��g��tmp  f ��g��tmp  � ��g��tmp  � ��� g��filenamef��srfi/srfi-26.scm 2   7 9   8  9 :  9 : � > # � > 9 � > # � > �  � ��g��nameg��loop�C��h������] O�Q�6��������g��cute  �g��slots  �g��loop  ��g��filenamef��srfi/srfi-26.scm 2   3   4   2 �   ���CST�����h(���e���] 4�5$��@�6������]�������g��stx  "�g��tmp "��g��filenamef��srfi/srfi-26.scm / �  " ���C5 RC����j�������g��m  (��g��filenamef��srfi/srfi-26.scm   )  .   6  & ;  �  L ���C6���������������������������������������������������������������������������������������������������������������������2.0/ccache/srfi/srfi-67.go��������������������������������������������������������������������������0000644�����������������00000207571�15146341264�0010762 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0a�����]�4�����h 4������]� g��guile � g��define-module* � � g��srfi g��srfi-67 � g��filenameS f��srfi/srfi-67.scm g��importsS g��srfi-27  �  � � g��exportsS g��</<=? g��</<? g��<=/<=? g��<=/<? g��<=? g��<? g��=? g��>/>=? g��>/>? g��>=/>=? g��>=/>? g��>=? g��>? g��boolean-compare g��chain<=? g��chain<? !g��chain=? "g��chain>=? #g��chain>? $g�� char-compare %g��char-compare-ci &g�� compare-by< 'g�� compare-by<= (g�� compare-by=/< )g�� compare-by=/> *g�� compare-by> +g�� compare-by>= ,g��complex-compare -g�� cond-compare .g�� debug-compare /g��default-compare 0g��if-not=? 1g��if3 2g��if<=? 3g��if<? 4g��if=? 5g��if>=? 6g��if>? 7g��integer-compare 8g�� kth-largest 9g�� list-compare :g��list-compare-as-vector ;g�� max-compare <g�� min-compare =g��not=? >g��number-compare ?g�� pair-compare @g��pair-compare-car Ag��pair-compare-cdr Bg��pairwise-not=? Cg��rational-compare Dg�� real-compare Eg��refine-compare Fg��select-compare Gg��symbol-compare Hg��vector-compare Ig��vector-compare-as-list J !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHI�9 Kg�� replacementsS Lg��string-compare Mg��string-compare-ci NLM� Og��set-current-module PO� QO� Rg��cond-expand-provide Sg��current-module T� Ug��for-each Vg��compare:checked Wg��make-syntax-transformer XW� YW� Zg��macro [g�� $sc-dispatch \[� ][� ^g��any _^^^^^� `g�� syntax-object ag��case bg��top cb� dg��ribcage eg��dummy fg��c gg��less hg��equal ig��greater jefghi� kg��m-46961e518a-3 lkb� mlcccc� nf��l-46961e518a-8 of��l-46961e518a-9 pf��l-46961e518a-a qf��l-46961e518a-b rf��l-46961e518a-c snopqr� tdjms� ud� vg��x wv� xl� yf��l-46961e518a-5 zy� {dwxz� |ctu{� }g��hygiene ~}� `a|~� �` |~� �� �` |~� �� �` |~� �� �g��else �`|~� �g��error �`|~� �f�� comparison value not in {-1,0,1} �`|~� �� �� �� �g��syntax-violation �� �� �f��-source expression failed to match any pattern �g��compare:if-rel? �g��c-cases �g��a-cases �g�� consequence �ef� �g��m-46961e518a-12 �b� �cccc� �f��l-46961e518a-17 �f��l-46961e518a-18 �f��l-46961e518a-19 �f��l-46961e518a-1a �f��l-46961e518a-1b �� �d� �� �f��l-46961e518a-14 �� �dw� �cu� �`~� �g��if �`~� �`~� �� �� �^^^^^^� �g�� alternate �ef� �ccccc� �f��l-46961e518a-22 �f��l-46961e518a-23 �f��l-46961e518a-24 �f��l-46961e518a-25 �f��l-46961e518a-26 �f��l-46961e518a-27 �� �d� �cu� �`a~� �`~� �`~� �`~� �� �� �� �g��each-any �^ �g��arg �e� �g��m-46961e518a-2f �b� �c� �f��l-46961e518a-34 �f��l-46961e518a-35 �� �d� �� �f��l-46961e518a-31 �� �dw� �cu� �`~� �` ~� �� �` ~� �` ~� �� �g��m-46961e518a-3a �b� �c� �f��l-46961e518a-3f �f��l-46961e518a-40 �� �d� �� �f��l-46961e518a-3c �� �dw� �cu� �`~� �` ~� �� �` ~� �` ~� �� �g��m-46961e518a-45 �b� �c� �f��l-46961e518a-4a �f��l-46961e518a-4b �� �d� �� �f��l-46961e518a-47 �� �dw� �cu� �`~� �` ~� �� �` ~� �` ~� �� �g��m-46961e518a-50 �b� �c� �f��l-46961e518a-55 �f��l-46961e518a-56 �� d�� � f��l-46961e518a-52 � dw� cu� `~� ` ~�  ` ~�   �  ` ~�   �  g��m-46961e518a-5b  b� c� f��l-46961e518a-60 f��l-46961e518a-61 � d� � f��l-46961e518a-5d � dw� cu� `~� ` ~� ` ~� � ` ~� � g��m-46961e518a-66  b� ! c� "f��l-46961e518a-6b #f��l-46961e518a-6c $"#� %d!$� & � 'f��l-46961e518a-68 ('� )dw&(� *c%u)� +`*~� ,` *~� -` *~� .,-� /` *~� 0/� 1g��compare:define-rel? 2^^^� 3g��define 4g��rel? 5g��if-rel? 6e45� 7g��m-46961e518a-71 87b� 98cc� :f��l-46961e518a-76 ;f��l-46961e518a-77 <f��l-46961e518a-78 =:;<� >d69=� ?8� @f��l-46961e518a-73 A@� Bdw?A� Cc>uB� D`3C~� Eg�� case-lambda F`EC~� Gg��lambda H`GC~� I`vC~� Jg��y K`JC~� LIK� M`/C~� NMIK� O`C~� P`C~� QNOP� Rg��compare S`RC~� TS� USIK� VUOP� W`C~� Xg�� procedure? Y`XC~� ZYS� [`C~� \f��*not a procedure (Did you mean rel/rel??):  ]`\C~� ^[]S� _^� `g��compare:define-rel1/rel2? a^^^^� bg�� rel1/rel2? cg��if-rel1? dg��if-rel2? eebcd� fg��m-46961e518a-83 gfb� hgccc� if��l-46961e518a-88 jf��l-46961e518a-89 kf��l-46961e518a-8a lf��l-46961e518a-8b mijkl� ndehm� og� pf��l-46961e518a-85 qp� rdwoq� scnur� t`3s~� u`Es~� v`Gs~� w`vs~� x`Js~� yg��z z`ys~� {wxz� |`/s~� }|wx� ~|xz� `s~� `s~� ~� `Vs~� |z� � `Rs~� � wx� xz� � z� � wxz� g��compare:define-chain-rel? g�� chain-rel? e5� g��m-46961e518a-99 b� cc� f��l-46961e518a-9e f��l-46961e518a-9f f��l-46961e518a-a0 � d� � f��l-46961e518a-9b � dw� cu� `3~� `E~� `R~� � `~� � g��x1 `~� � `V~� � � g��x2 `~� � `~� � g��x3 `~� � � � � � g��x3+ `~�    g��let `~� g��chain? `~� g��head `~� � g��tail `~� � � `~� g��null? `~� � g��car `~� � � g��cdr `~� � � g��apply `~� � � � � g��random-integer g��list-ref g��length f�� bad index g��integer? g��exact? ^� e� g��m-46961e518a-a9 b� � f��l-46961e518a-ae � d� f��l-46961e518a-ab � dw� cu� ` ~� ^^� ^Œ ^댤 g��c1 g��c2 g��cs e� ccc� f��l-46961e518a-b6 f��l-46961e518a-b7 f��l-46961e518a-b8 f��l-46961e518a-b9 � d� cu� `1~� ` ~� `E~� ` ~� � g��clause evJ� �g��m-46961e518a-bf �b� ccc� f��l-46961e518a-c4 f��l-46961e518a-c5 f��l-46961e518a-c6 f��l-46961e518a-c7 � d�  �  f��l-46961e518a-c1   �  dw  �  cu � ` ~� g��x-val ` ~� g��y-val ` ~� `F ~� ^� evJ� cc� f��l-46961e518a-ce f��l-46961e518a-cf f��l-46961e518a-d0 � d� cu � ` ~� g��free-id cu �  `~� ! � "! #^^"� $^#� %evJf� &f��l-46961e518a-d5 'f��l-46961e518a-d6 (f��l-46961e518a-d7 )f��l-46961e518a-d8 *&'()� +d%*� ,c+u � -`E,~� . /^. 0^/ 1^0� 2g��t? 3evJ2f� 4ccccc� 5f��l-46961e518a-df 6f��l-46961e518a-e0 7f��l-46961e518a-e1 8f��l-46961e518a-e2 9f��l-46961e518a-e3 :f��l-46961e518a-e4 ;56789:� <d34;� =c<u � >`=~� ?g��t?-val @`?=~� Ag��tx B`A=~� Cg��ty D`C=~� E`=~� F`E=~� G` =~� HG� I` =~� J`F=~� Kg��m-46961e518a-ed LKb� ML� Nf��l-46961e518a-f2 ON� PdMO� Qf��l-46961e518a-ef RQ� SdwMR� TcPuS� U` T~� VcuS� W`V~� XW� YX Z^Y� [e� \Lc� ]f��l-46961e518a-f5 ^f��l-46961e518a-f6 _]^� `d[\_� ac`uS� b`Ea~� c dc e^d feAC� gLcccc� hf��l-46961e518a-fb if��l-46961e518a-fc jf��l-46961e518a-fd kf��l-46961e518a-fe lf��l-46961e518a-ff mhijkl� ndfgm� ocnuS� p`o~� qg��tx-val r`qo~� sg��ty-val t`so~� u`o~� v`Eo~� w` o~� xw� y` o~� z`-o~� {g��compare:type-check |g��type? }g�� type-name ~e|}v� g��m-46961e518a-107 b� ccc� f��l-46961e518a-10c f��l-46961e518a-10d f��l-46961e518a-10e f��l-46961e518a-10f � d~� � f��l-46961e518a-109 � dw� cu� `~� g��not `~� `~� g�� string-append `~� f��not  `~� f��: `~� � g��begin e|}vJ� cccc� f��l-46961e518a-115 f��l-46961e518a-116 f��l-46961e518a-117 f��l-46961e518a-118 f��l-46961e518a-119 � d� cu� `~� `{~� g��compare:define-by=/< g��= g��< eR|}� g��m-46961e518a-120 b� ccccc� f��l-46961e518a-125 f��l-46961e518a-126 f��l-46961e518a-127 f��l-46961e518a-128 f��l-46961e518a-129 f��l-46961e518a-12a � d� � f��l-46961e518a-122 � dw� cu� `3~� `~� `G~� `v~� `J~� � `~� � g��eq? `~� � ` ~� � ` ~� ` ~� � `~� `~� `~� `~� � g��boolean? f��boolean g��char=? g��char? g��char<? f��char g�� char-ci=? g�� char-ci<? g��string=? g��string<? g��string? f��string g�� string-ci=? g�� string-ci<? f��symbol g��symbol->string f��integer g�� rational? f��rational g��real? f��real g��complex? f��complex g�� real-part g�� imag-part g��number? f��number g�� vector-length g�� vector-ref g��min f��$unrecognized type in default-compare f��compare value not in {-1,0,1} f��compare error: not reflexive f��!compare error: not anti-symmetric yJv� Jyv� yvJ� vyJ� Jvy� vJy�        � f��compare error: not transitive g��mapC�5h8����]4   JKN5 �4Q�>��"��G���4Ri4Si5�T>��"��G��Uh���c���]L���6������[�������g��x  ��g��filenamef��srfi/srfi-67/compare.scm U U �  ���C��h(������-�1�3�4O�>��"��G���C����������g��result %�g��compare %�g��args  %��g��filenamef��srfi/srfi-67/compare.scm T U � %  ��g��nameg��compare:checked�CVR4Y1Z]_������h(���v���]���C�����n�������g��dummy  #�g��c  #�g��less   #�g��equal   #�g��greater   #��  # ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-67/compare.scm [ �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��cg��lessg��equalg��greater���C51R4YZ]_���h������]C����w�������g��dummy  �g��c-cases  �g��a-cases   �g��c   �g�� consequence   ��   ���C�������h ������]��C������������g��dummy  �g��c-cases  �g��a-cases   �g��c   �g�� consequence   �g�� alternate   ��   ���C���h@�����]4�5$��@4�5$��@�6������� ������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��srfi/srfi-67/compare.scm f �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��c-casesg��a-casesg��cg�� consequence�g��c-casesg��a-casesg��cg�� consequenceg�� alternate���C5R4Y4Z]����h���>���]C��6�������g��dummy  �g��arg  ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-67/compare.scm o �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��argg��...���C54R4Y3Z]����h���>���]C��6�������g��dummy  �g��arg  ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-67/compare.scm r �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��argg��...���C53R4Y6Z]����h���>���]C��6�������g��dummy  �g��arg  ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-67/compare.scm u �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��argg��...���C56R4Y2Z]  �h���>���]C��6�������g��dummy  �g��arg  ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-67/compare.scm x �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��argg��...���C52R4Y5Z]�h���>���]C��6�������g��dummy  �g��arg  ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-67/compare.scm { �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��argg��...���C55R4Y0Z]+.0�h���>���]C��6�������g��dummy  �g��arg  ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-67/compare.scm ~ �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��argg��...���C50R4Y1Z]2DFHLQTVUWZ_� ������hP���T���]�����   ���C���L�������g��dummy  M�g��rel?  M�g��if-rel?   M��  M ���C�����h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-67/compare.scm � �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��rel?g��if-rel?���C51R/��������h8���{���] 4�5 $��C $��"�� $��C6���s�������g��x  5�g��y  5�g��key  5��g��filenamef��srfi/srfi-67/compare.scm � �  5 ���C�����h8���{���] 4L��5 $��C $��"�� $��C6���s�������g��x  5�g��y  5�g��key  5��g��filenamef��srfi/srfi-67/compare.scm � �  5 ���C/X\������h�����)����3��C)��� 3��O�C)���63�4�5 $��C $��"�� $��C6] 4�5$��34�5 $��C $��"�� $��C6�6�������������g��compare  �g��x & Y�g��y & Y�g��key  / Y�g��compare [ ��g��x [ ��g��y  [ ��g��key  o ���g��filenamef��srfi/srfi-67/compare.scm � � � � � � �   � & Y � [ � ��g��nameg��=?�CR/��h8���{���] 4�5 $��C $��"�� $��C6���s�������g��x  5�g��y  5�g��key  5��g��filenamef��srfi/srfi-67/compare.scm � �  5 ���C�����h8���{���] 4L��5 $��C $��"�� $��C6���s�������g��x  5�g��y  5�g��key  5��g��filenamef��srfi/srfi-67/compare.scm � �  5 ���C/X\������h�����)����3��C)��� 3��O�C)���63�4�5 $��C $��"�� $��C6] 4�5$��34�5 $��C $��"�� $��C6�6�������������g��compare  �g��x & Y�g��y & Y�g��key  / Y�g��compare [ ��g��x [ ��g��y  [ ��g��key  o ���g��filenamef��srfi/srfi-67/compare.scm � � � � � � �   � & Y � [ � ��g��nameg��<?�CR/��h8���{���] 4�5 $��C $��"�� $��C6���s�������g��x  5�g��y  5�g��key  5��g��filenamef��srfi/srfi-67/compare.scm � �  5 ���C�����h8���{���] 4L��5 $��C $��"�� $��C6���s�������g��x  5�g��y  5�g��key  5��g��filenamef��srfi/srfi-67/compare.scm � �  5 ���C/X\������h�����)����3��C)��� 3��O�C)���63�4�5 $��C $��"�� $��C6] 4�5$��34�5 $��C $��"�� $��C6�6�������������g��compare  �g��x & Y�g��y & Y�g��key  / Y�g��compare [ ��g��x [ ��g��y  [ ��g��key  o ���g��filenamef��srfi/srfi-67/compare.scm � � � � � � �   � & Y � [ � ��g��nameg��>?�CR/��h8���{���] 4�5 $��"�� $��C $��C6���s�������g��x  5�g��y  5�g��key  5��g��filenamef��srfi/srfi-67/compare.scm � �  5 ���C�����h8���{���] 4L��5 $��"�� $��C $��C6���s�������g��x  5�g��y  5�g��key  5��g��filenamef��srfi/srfi-67/compare.scm � �  5 ���C/X\������h�����)����3��C)��� 3��O�C)���63�4�5 $��"�� $��C $��C6] 4�5$��34�5 $��"�� $��C $��C6�6������� ������g��compare  �g��x & Y�g��y & Y�g��key  / Y�g��compare [ ��g��x [ ��g��y  [ ��g��key  o ���g��filenamef��srfi/srfi-67/compare.scm � � � � � � �   � & Y � [ � ��g��nameg��<=?�CR/�h8���{���] 4�5 $��"�� $��C $��C6���s�������g��x  5�g��y  5�g��key  5��g��filenamef��srfi/srfi-67/compare.scm � �  5 ���C�����h8���{���] 4L��5 $��"�� $��C $��C6���s�������g��x  5�g��y  5�g��key  5��g��filenamef��srfi/srfi-67/compare.scm � �  5 ���C/X\������h�����)����3��C)��� 3��O�C)���63�4�5 $��"�� $��C $��C6] 4�5$��34�5 $��"�� $��C $��C6�6������� ������g��compare  �g��x & Y�g��y & Y�g��key  / Y�g��compare [ ��g��x [ ��g��y  [ ��g��key  o ���g��filenamef��srfi/srfi-67/compare.scm � � � � � � �   � & Y � [ � ��g��nameg��>=?�CR/�h8���{���] 4�5 $��"�� $��C $��C6���s�������g��x  5�g��y  5�g��key  5��g��filenamef��srfi/srfi-67/compare.scm � �  5 ���C�����h8���{���] 4L��5 $��"�� $��C $��C6���s�������g��x  5�g��y  5�g��key  5��g��filenamef��srfi/srfi-67/compare.scm � �  5 ���C/X\������h�����)����3��C)��� 3��O�C)���63�4�5 $��"�� $��C $��C6] 4�5$��34�5 $��"�� $��C $��C6�6��������������g��compare  �g��x & Y�g��y & Y�g��key  / Y�g��compare [ ��g��x [ ��g��y  [ ��g��key  o ���g��filenamef��srfi/srfi-67/compare.scm � � �   � & Y � [ � ��g��nameg��not=?�C=R4Y`Z]atuv{}� �����hh���q���]��   ���    ���Ci�������g��dummy  h�g�� rel1/rel2?  h�g��if-rel1?   h�g��if-rel2?   h��  h ���C��������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-67/compare.scm � �  " ��g�� macro-typeg�� syntax-rulesg��patternsg�� rel1/rel2?g��if-rel1?g��if-rel2?���C5`R/V���hp������]4�5 $��345 $��C $��"�� $��C6 $��"�� $�� 66����������g��x  m�g��y  m�g��z   m�g��key  m�g��key   I��g��filenamef��srfi/srfi-67/compare.scm � �  m ���CV���hp������]4L��5 $��34L�5 $��C $��"�� $��C6 $��"�� $�� L�66����������g��x  m�g��y  m�g��z   m�g��key  m�g��key   I��g��filenamef��srfi/srfi-67/compare.scm � �  m ���C/V��h���N��)����3��C)��� 3��O�C)���n3�4�5 $��345 $��C $��"�� $��C6 $��"�� $�� 66]4�5 $��34�5 $��C $��"�� $��C6 $��"�� $�� �66��F������g��compare  �g��x & ��g��y & ��g��z  & ��g��key  / ��g��key  C m�g��compare � ��g��x � ��g��y  � ��g��z  � ��g��key  � ��g��key  � ��� g��filenamef��srfi/srfi-67/compare.scm � � �   � & � � � � ��g��nameg��</<?�CR/V��hp������]4�5 $��345 $��"�� $��C $��C6 $��"�� $�� 66����������g��x  m�g��y  m�g��z   m�g��key  m�g��key   I��g��filenamef��srfi/srfi-67/compare.scm � �  m ���CV���hp������]4L��5 $��34L�5 $��"�� $��C $��C6 $��"�� $�� L�66����������g��x  m�g��y  m�g��z   m�g��key  m�g��key   I��g��filenamef��srfi/srfi-67/compare.scm � �  m ���C/V��h���O��)����3��C)��� 3��O�C)���n3�4�5 $��345 $��"�� $��C $��C6 $��"�� $�� 66]4�5 $��34�5 $��"�� $��C $��C6 $��"�� $�� �66��G������g��compare  �g��x & ��g��y & ��g��z  & ��g��key  / ��g��key  C m�g��compare � ��g��x � ��g��y  � ��g��z  � ��g��key  � ��g��key  � ��� g��filenamef��srfi/srfi-67/compare.scm � � �   � & � � � � ��g��nameg��</<=?�CR/V�hp������]4�5 $��"�� $��345 $��C $��"�� $��C6 $�� 66����������g��x  m�g��y  m�g��z   m�g��key  m�g��key  , V��g��filenamef��srfi/srfi-67/compare.scm � �  m ���CV���hp������]4L��5 $��"�� $��34L�5 $��C $��"�� $��C6 $�� L�66����������g��x  m�g��y  m�g��z   m�g��key  m�g��key  , V��g��filenamef��srfi/srfi-67/compare.scm � �  m ���C/V��h���O��)����3��C)��� 3��O�C)���n3�4�5 $��"�� $��345 $��C $��"�� $��C6 $�� 66]4�5 $��"�� $��34�5 $��C $��"�� $��C6 $�� �66��G������g��compare  �g��x & ��g��y & ��g��z  & ��g��key  / ��g��key  P z�g��compare � ��g��x � ��g��y  � ��g��z  � ��g��key  � ��g��key  � ��� g��filenamef��srfi/srfi-67/compare.scm � � �   � & � � � � ��g��nameg��<=/<?�CR/V�hp������]4�5 $��"�� $��345 $��"�� $��C $��C6 $�� 66����������g��x  m�g��y  m�g��z   m�g��key  m�g��key  , V��g��filenamef��srfi/srfi-67/compare.scm � �  m ���CV���hp������]4L��5 $��"�� $��34L�5 $��"�� $��C $��C6 $�� L�66����������g��x  m�g��y  m�g��z   m�g��key  m�g��key  , V��g��filenamef��srfi/srfi-67/compare.scm � �  m ���C/V��h���P��)����3��C)��� 3��O�C)���n3�4�5 $��"�� $��345 $��"�� $��C $��C6 $�� 66]4�5 $��"�� $��34�5 $��"�� $��C $��C6 $�� �66��H������g��compare  �g��x & ��g��y & ��g��z  & ��g��key  / ��g��key  P z�g��compare � ��g��x � ��g��y  � ��g��z  � ��g��key  � ��g��key  � ��� g��filenamef��srfi/srfi-67/compare.scm � � �   � & � � � � ��g��nameg��<=/<=?�CR/V��������hp������]4�5 $��345 $��C $��"�� $��C6 $��"�� $�� 66����������g��x  m�g��y  m�g��z   m�g��key  m�g��key   H��g��filenamef��srfi/srfi-67/compare.scm � �  m ���CV���hp������]4L��5 $��34L�5 $��C $��"�� $��C6 $��"�� $�� L�66����������g��x  m�g��y  m�g��z   m�g��key  m�g��key   H��g��filenamef��srfi/srfi-67/compare.scm � �  m ���C/V��h���N��)����3��C)��� 3��O�C)���n3�4�5 $��345 $��C $��"�� $��C6 $��"�� $�� 66]4�5 $��34�5 $��C $��"�� $��C6 $��"�� $�� �66��F������g��compare  �g��x & ��g��y & ��g��z  & ��g��key  / ��g��key  B l�g��compare � ��g��x � ��g��y  � ��g��z  � ��g��key  � ��g��key  � ��� g��filenamef��srfi/srfi-67/compare.scm � � �   � & � � � � ��g��nameg��>/>?�CR/V��hp������]4�5 $��345 $��"�� $��C $��C6 $��"�� $�� 66����������g��x  m�g��y  m�g��z   m�g��key  m�g��key   H��g��filenamef��srfi/srfi-67/compare.scm � �  m ���CV���hp������]4L��5 $��34L�5 $��"�� $��C $��C6 $��"�� $�� L�66����������g��x  m�g��y  m�g��z   m�g��key  m�g��key   H��g��filenamef��srfi/srfi-67/compare.scm � �  m ���C/V��h���O��)����3��C)��� 3��O�C)���n3�4�5 $��345 $��"�� $��C $��C6 $��"�� $�� 66]4�5 $��34�5 $��"�� $��C $��C6 $��"�� $�� �66��G������g��compare  �g��x & ��g��y & ��g��z  & ��g��key  / ��g��key  B l�g��compare � ��g��x � ��g��y  � ��g��z  � ��g��key  � ��g��key  � ��� g��filenamef��srfi/srfi-67/compare.scm � � �   � & � � � � ��g��nameg��>/>=?�CR/V�hp������]4�5 $��"�� $��345 $��C $��"�� $��C6 $�� 66����������g��x  m�g��y  m�g��z   m�g��key  m�g��key  + U��g��filenamef��srfi/srfi-67/compare.scm � �  m ���CV���hp������]4L��5 $��"�� $��34L�5 $��C $��"�� $��C6 $�� L�66����������g��x  m�g��y  m�g��z   m�g��key  m�g��key  + U��g��filenamef��srfi/srfi-67/compare.scm � �  m ���C/V��h���O��)����3��C)��� 3��O�C)���n3�4�5 $��"�� $��345 $��C $��"�� $��C6 $�� 66]4�5 $��"�� $��34�5 $��C $��"�� $��C6 $�� �66��G������g��compare  �g��x & ��g��y & ��g��z  & ��g��key  / ��g��key  O y�g��compare � ��g��x � ��g��y  � ��g��z  � ��g��key  � ��g��key  � ��� g��filenamef��srfi/srfi-67/compare.scm � � �   � & � � � � ��g��nameg��>=/>?�CR/V�hp������]4�5 $��"�� $��345 $��"�� $��C $��C6 $�� 66����������g��x  m�g��y  m�g��z   m�g��key  m�g��key  + U��g��filenamef��srfi/srfi-67/compare.scm � �  m ���CV���hp������]4L��5 $��"�� $��34L�5 $��"�� $��C $��C6 $�� L�66����������g��x  m�g��y  m�g��z   m�g��key  m�g��key  + U��g��filenamef��srfi/srfi-67/compare.scm � �  m ���C/V��h���P��)����3��C)��� 3��O�C)���n3�4�5 $��"�� $��345 $��"�� $��C $��C6 $�� 66]4�5 $��"�� $��34�5 $��"�� $��C $��C6 $�� �66��H������g��compare  �g��x & ��g��y & ��g��z  & ��g��key  / ��g��key  O y�g��compare � ��g��x � ��g��y  � ��g��z  � ��g��key  � ��g��key  � ��� g��filenamef��srfi/srfi-67/compare.scm � � �   � & � � � � ��g��nameg��>=/>=?�CR4YZ]2�����hX���Z���]� �    �����C���R�������g��dummy  U�g�� chain-rel?  U�g��if-rel?   U��  U ���C�������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-67/compare.scm � �  " ��g�� macro-typeg�� syntax-rulesg��patternsg�� chain-rel?g��if-rel?���C5RV���hp�� ��)���3�C)��� 3��6)���63�4�5 $��C $��"�� $��C6)���n3�4�5 $��34�5 $��C $��"�� $��C6 $��"�� $�� �66-�1�3�4�5 $��`"��P(��C4�5 $��" $��"�� $�� �@6" $��"�� $�� �@6��������g��compare �g��compare  �g��x1  �g��compare & Y�g��x1 & Y�g��x2  & Y�g��key  / Y�g��compare b ��g��x1 b ��g��x2  b ��g��x3  b ��g��key  k ��g��key  ~ ��g��compare � n�g��x1 � n�g��x2  � n�g��x3+  � n�g��key  � n�g��head  � =�g��tail  � =�g��key  � =��g��filenamef��srfi/srfi-67/compare.scm � � �   � & Y � b � � � n  ��g��nameg��chain=?�C!RV��������hp�� ��)���3�C)��� 3��6)���63�4�5 $��C $��"�� $��C6)���n3�4�5 $��34�5 $��C $��"�� $��C6 $��"�� $�� �66-�1�3�4�5 $��`"��P(��C4�5 $��" $��"�� $�� �@6" $��"�� $�� �@6��������g��compare �g��compare  �g��x1  �g��compare & Y�g��x1 & Y�g��x2  & Y�g��key  / Y�g��compare b ��g��x1 b ��g��x2  b ��g��x3  b ��g��key  k ��g��key   ��g��compare � n�g��x1 � n�g��x2  � n�g��x3+  � n�g��key  � n�g��head  � >�g��tail  � >�g��key  � >��g��filenamef��srfi/srfi-67/compare.scm � � �   � & Y � b � � � n  ��g��nameg��chain<?�C RV��������hp�� ��)���3�C)��� 3��6)���63�4�5 $��C $��"�� $��C6)���n3�4�5 $��34�5 $��C $��"�� $��C6 $��"�� $�� �66-�1�3�4�5 $��`"��P(��C4�5 $��" $��"�� $�� �@6" $��"�� $�� �@6��������g��compare �g��compare  �g��x1  �g��compare & Y�g��x1 & Y�g��x2  & Y�g��key  / Y�g��compare b ��g��x1 b ��g��x2  b ��g��x3  b ��g��key  k ��g��key  ~ ��g��compare � n�g��x1 � n�g��x2  � n�g��x3+  � n�g��key  � n�g��head  � =�g��tail  � =�g��key  � =��g��filenamef��srfi/srfi-67/compare.scm � � �   � & Y � b � � � n  ��g��nameg��chain>?�C#RV��������hp�� ��)���3�C)��� 3��6)���63�4�5 $��"�� $��C $��C6)���n3�4�5 $��"�� $��34�5 $��"�� $��C $��C6 $�� �66-�1�3�4�5 $��"�� $��`"��P(��C4�5 $��"�� $��" $�� �@6" $�� �@6��������g��compare �g��compare  �g��x1  �g��compare & Y�g��x1 & Y�g��x2  & Y�g��key  / Y�g��compare b ��g��x1 b ��g��x2  b ��g��x3  b ��g��key  k ��g��key  � ��g��compare � n�g��x1 � n�g��x2  � n�g��x3+  � n�g��key  � n�g��head  � K�g��tail  � K�g��key   K��g��filenamef��srfi/srfi-67/compare.scm � � �   � & Y � b � � � n  ��g��nameg��chain<=?�CRV������hp�� ��)���3�C)��� 3��6)���63�4�5 $��"�� $��C $��C6)���n3�4�5 $��"�� $��34�5 $��"�� $��C $��C6 $�� �66-�1�3�4�5 $��"�� $��`"��P(��C4�5 $��"�� $��" $�� �@6" $�� �@6��������g��compare �g��compare  �g��x1  �g��compare & Y�g��x1 & Y�g��x2  & Y�g��key  / Y�g��compare b ��g��x1 b ��g��x2  b ��g��x3  b ��g��key  k ��g��key  � ��g��compare � n�g��x1 � n�g��x2  � n�g��x3+  � n�g��key  � n�g��head  � J�g��tail  � J�g��key   J��g��filenamef��srfi/srfi-67/compare.scm � � �   � & Y � b � � � n  ��g��nameg��chain>=?�C"RVV������h����]; $��$�� $�� L�6CC454�5"��(��)4L�455$��45�"C$��"4L5  $��" $��$�� L@C $��"G6 �"0�������g��x  �g��n  �g�� unchecked?   �g��i-pivot  . �g��x-pivot  9 �g��i  ? ��g��x  ? ��g��x<  ? ��g��x>  ? ��g��key � ��� g��filenamef��srfi/srfi-67/compare.scm �   � �  �  � !  �  ! � - # �  ( �  . � 1 �  9 � ? �  E �  F �  K � ' T �  X �  [ � ' l �  s �  w �  z � } � ( � �  � �  � � ' � �  � �  � � % � � - � � ; � � 5 � �  � �  � �  � � D � � " � �  � � % � � - � � > � � 8 � �  � �  � �   � +  � 4  � �2   ��g��nameg��unequal?�C����h(����)���3�C)��� 3��6)���63�4�5 $��"�� $��C $��C6)���3�4�5 $��"�� $��d4�5 $��"�� $��34�5 $��"�� $��C $��C6 $��C6 $�� �66-�1�3�O��Q�456���}������g��compare �g��compare  �g��x1  �g��compare & Y�g��x1 & Y�g��x2  & Y�g��key  / Y�g��compare b ��g��x1 b ��g��x2  b ��g��x3  b ��g��key  k ��g��key  � ��g��key  � ��g��compare  %�g��x1+  %�g��unequal?   %��g��filenamef��srfi/srfi-67/compare.scm �   �  & �  ' �  / �  b �  c �  k �  � �  � �  � � % � �  � �  � �  � �  � �  � �  � �  � �   �   �   � ! % � � �   � & Y � b � �  % ���CBRV������h����)��� 3��6)���83�4�5 $��"�� $��C $��C6)���3�4�5 $��"�� $��54�5 $��"�� $��C $��C6 $��54�5 $��"�� $��C $��C66)��d3�4�5 $��"�� $��4�5 $��"�� $��54�5 $��"�� $��C $��C6 $��54�5 $��"�� $��C $��C66 $��4�5 $��"�� $��54�5 $��"�� $��C $��C6 $��54�5 $��"�� $��C $��C666-�1�3�"��U(��C4�5 $��"�� $��"�� $��"��45"4�5 $��"�� $��"�� $��"��45"b������g��compare �g��x1 �g��compare  Q�g��x1  Q�g��x2   Q�g��key  % Q�g��compare Z ��g��x1 Z ��g��x2  Z ��g��x3  Z ��g��key  c ��g��key  � ��g��key  � ��g��compare � ]�g��x1 � ]�g��x2  � ]�g��x3  � ]�g��x4  � ]�g��key   ]�g��key  & �g��key  G s�g��key   �g��key   W�g��key   �g��key  % Q�g��compare f �g��x1 f �g��x2  f �g��x3+  f �g��xmin  j �g��xs  j �g��key  } �g��key   ��!g��filenamef��srfi/srfi-67/compare.scm           %   Z   [  c   |   �  �   �   �  �   �   �        &  ?   G   {  |                           %   W  [   ]   f   j   p   t   {  % }   }     4                    �4  �  Q � Z � � � ] � f   ��g��nameg�� min-compare�C<RV����h����)��� 3��6)���83�4�5 $��"�� $��C $��C6)���3�4�5 $��"�� $��54�5 $��"�� $��C $��C6 $��54�5 $��"�� $��C $��C66)��d3�4�5 $��"�� $��4�5 $��"�� $��54�5 $��"�� $��C $��C6 $��54�5 $��"�� $��C $��C66 $��4�5 $��"�� $��54�5 $��"�� $��C $��C6 $��54�5 $��"�� $��C $��C666-�1�3�"��U(��C4�5 $��"�� $��"�� $��"��45"4�5 $��"�� $��"�� $��"��45"b������g��compare �g��x1 �g��compare  Q�g��x1  Q�g��x2   Q�g��key  % Q�g��compare Z ��g��x1 Z ��g��x2  Z ��g��x3  Z ��g��key  c ��g��key  � ��g��key  � ��g��compare � ]�g��x1 � ]�g��x2  � ]�g��x3  � ]�g��x4  � ]�g��key   ]�g��key  % �g��key  E q�g��key   �g��key   W�g��key   �g��key  % Q�g��compare f �g��x1 f �g��x2  f �g��x3+  f �g��xmax  j �g��xs  j �g��key  } �g��key   ��!g��filenamef��srfi/srfi-67/compare.scm          ! % !  Z   [ # c #  { $  � $ � #  � %  � % � #  �   � '  '   (  % ( = )  E )  z ( { *   *   (  '   +   +  ,   ,   +  -  % -  W + [ -  ] '  f   j /  p 0  t 2  { 2 % } 2  } 2   2 4  2   3   2  /   /   /   / �4  �  Q � Z � � � ] � f   ��g��nameg�� max-compare�C;RV� �h����)���#3�  $�� �66)���3�  $��54�5 $��"�� $��C $��C6 $��54�5 $��"�� $��C $��C66)��3�   $��4�5 $��"�� $��54�5 $��"�� $��C $��C6 $��54�5 $��"�� $��C $��C66 $�-4�5 $��g4�5 $��"�� $��C $��54�5 $��"�� $��C $��C66 $��54�5 $��"�� $��C $��C6 $��g4�5 $��"�� $��C $��54�5 $��"�� $��C $��C666 $��4�5 $��"�� $��54�5 $��"�� $��C $��C6 $��54�5 $��"�� $��C $��C666-�1�3�"��4>��"��-G��"��&45$��45$��"��""��"45"�644 55 "� (��e $��  " $�� $��  6  6 "4�  5 $��&         "Z $��&         ", $��&         "6       ""�����������g��compare )�g��k )�g��x0  )�g��key  )�g��compare 2 ��g��k 2 ��g��x0  2 ��g��x1  2 ��g��key  7 ��g��key  J v�g��key  � ��g��compare � K�g��k � K�g��x0  � K�g��x1  � K�g��x2  � K�g��key  � K�g��key  � l�g��key  � )�g��key  : f�g��key  } �g��key   �g��key   �g��key  � ,�g��key  = �g��key  i �g��key   C�g��key   ��g��key   =�g��compare T �g��k T �g��x0  T �g��x1+  T �g��n   �g��k   �g��n   �g��rev   �g��x   �g��pivot  �g��x  �g��x<  �g��n<  �g��x=  �g��n=   �g��x>   �g��n>   �g��key  - ��/g��filenamef��srfi/srfi-67/compare.scm :  < <  ! =  % >  ) >  2 :  7 @ 7 @  B A  J A  ~ @   B  � B  � C  � C  � :  � E � E  � F  � F  � G  � G  1 F  2 H  : H  l F  t E  u I  } I   J   J   L !  L   J   I   M  � M  4 I  5 N  = N  a P ! i P   N   I   E   Q   Q   R   R   Q   S   S  C Q  G T  K T  T :  Y W ] W  d W p V  q V  { V  | V "  V   X   X   X   Y  ]   ] $  ]   ]  ^  _   a   `   b  b   c   c   `   d   e *  e 3  e '  e   f '  f   h  h   h . # h  $ i  ) i ! - i  - i  ; j  > j - A j ' D j 9 ^ j  f i  i k  p k 3 s k - v k ?  k   i   l   l 9  l 3  l E  l   i   ^  ^ #  ^ 3  ^ C  ^  Y  Y   \   Y �} ) � 2 � � � K � T   ���C8R�����h(������]4L��5$�� C4L��5$�� C C������������g��x  #�g��y  #��g��filenamef��srfi/srfi-67/compare.scm s  s   s   s /  s +�  # ���C������h8������)��� 3��O�C]4�5$�� C4�5$�� C C�����������g��lt �g��lt  4�g��x  4�g��y   4��g��filenamef��srfi/srfi-67/compare.scm r   t  t  $ t / 0 t +�  �  4 ��g��nameg�� compare-by<�C&R����h(������]4L��5$�� C4L��5$�� C C������������g��x  #�g��y  #��g��filenamef��srfi/srfi-67/compare.scm x  x   x   x .  x *�  # ���C������h8������)��� 3��O�C]4�5$�� C4�5$�� C C�����������g��gt �g��gt  4�g��x  4�g��y   4��g��filenamef��srfi/srfi-67/compare.scm w   y  y  # y . / y *�  �  4 ��g��nameg�� compare-by>�C*R����h(������]4L��5$��4L��5$�� C C C������������g��x  #�g��y  #��g��filenamef��srfi/srfi-67/compare.scm }  }   }   } ,  } (�  # ���C������h8������)��� 3��O�C]4�5$��4�5$�� C C C�����������g��le �g��le  4�g��x  4�g��y   4��g��filenamef��srfi/srfi-67/compare.scm |   ~  ~  ! ~ , - ~ (�  �  4 ��g��nameg�� compare-by<=�C'R���h(������]4L��5$��4L��5$�� C C C������������g��x  #�g��y  #��g��filenamef��srfi/srfi-67/compare.scm          ,   (�  # ���C������h8������)��� 3��O�C]4�5$��4�5$�� C C C�����������g��ge �g��ge  4�g��x  4�g��y   4��g��filenamef��srfi/srfi-67/compare.scm        !  , -  (�  �  4 ��g��nameg�� compare-by>=�C+R���h(������]4L�5$�� C4L��5$�� C C������������g��x  #�g��y  #��g��filenamef��srfi/srfi-67/compare.scm     "      1   -�  # ���C������h8������)��� 3��O�C]4�5$�� C45$�� C C���������g��eq �g��lt �g��eq  6�g��lt  6�g��x   6�g��y   6��g��filenamef��srfi/srfi-67/compare.scm     " "   %  1 1  -�  �  6 ��g��nameg�� compare-by=/<�C(R��h(������]4L�5$�� C4L��5$�� C C������������g��x  #�g��y  #��g��filenamef��srfi/srfi-67/compare.scm     "      1   -�  # ���C������h8������)��� 3��O�C]4�5$�� C45$�� C C���������g��eq �g��gt �g��eq  6�g��gt  6�g��x   6�g��y   6��g��filenamef��srfi/srfi-67/compare.scm     " "   %  1 1  -�  �  6 ��g��nameg�� compare-by=/>�C)R4YEZ]�h���-���]C���%�������g��dummy  ��   ���C������h���=���]C���5�������g��dummy  �g��c1  ��   ���C��������h���]���]C�U�������g��dummy  �g��c1  �g��c2   �g��cs   ��   ���C� ���hP������]4�5$��@4�5$��@4�5$��@ �6�������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��srfi/srfi-67/compare.scm  �  P ��g�� macro-typeg�� syntax-rulesg��patternsg��c1�g��c1g��c2g��csg��...���C5ER4YFZ]����h(���_���]�����C��W�������g��dummy  &�g��x  &�g��y   &�g��clause   &��  & ���C�������h���K���]C���C�������g��dummy  �g��x  �g��y   ��   ���C$-���h���Z���]CR�������g��dummy  �g��x  �g��y   �g��c   ��   ���C1>@BDEFHIJ� ���h`���~���]������� �����C���v�������g��dummy  ]�g��x  ]�g��y   ]�g��t?   ]�g��c   ]�g��clause   ]��  ] ���C� ��hh���X��]!4�5$��@4�5$��@4�5$��@4�5$�� @  �6�P������g��x  g�g��tmp g�g��tmp  " g�g��tmp  9 g�g��tmp  P g��g��filenamef��srfi/srfi-67/compare.scm  �  g ��g�� macro-typeg�� syntax-rulesg��patternsg��xg��yg��clauseg��...�g��xg��y��g��xg��yg��elseg��cg��...���g��xg��yg��t?g��cg��...�g��clauseg��...����C5FR4Y-Z]U�������h���-���]C���%�������g��dummy  ��   ���CZb�h���=���]C5�������g��dummy  �g��cs  ��   ���Ceprtuvxyz� ���h@���q���]������C����i�������g��dummy  <�g��tx  <�g��ty   <�g��cs   <�g��clause   <��  < ���C� �������hP��� ��]4�5$��@4�5$��@4�5$��@ �6������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��srfi/srfi-67/compare.scm  �  P ��g�� macro-typeg�� syntax-rulesg��patternsg��elseg��csg��...��g��txg��ty�g��csg��...�g��clauseg��...���C5-R4Y{Z]a����h(���f���]����C��^�������g��dummy  &�g��type?  &�g�� type-name   &�g��x   &��  & ���C_������h ���u���]���C��m�������g��dummy  �g��type?  �g�� type-name   �g��x   �g��y   ��   ���C����h@������]4�5$��@4�5$��@�6��������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��srfi/srfi-67/compare.scm  �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��type?g�� type-nameg��x�g��type?g�� type-nameg��xg��y���C5{R4YZ]���h������]���  �    ��   ����C����������g��dummy  }�g��compare  }�g��=   }�g��<   }�g��type?   }�g�� type-name   }��  } ���C�������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-67/compare.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��compareg��=g��<g��type?g�� type-name���C5R������hx������]4�5$��"��445�>��"��G��45$��"��445>��"��G���$�� $�� C C$�� C C����������g��x  u�g��y  u��g��filenamef��srfi/srfi-67/compare.scm           G   I   `   f   p  �  u ��g��nameg��boolean-compare�CRi���������hh������]4�5$��G�&�� C45$��!4L��5$�� C4�5$�� C C45645�6����������g��x  e�g��y  e��g��filenamef��srfi/srfi-67/compare.scm  J  L  7 N  P  [  ]  7 _  a  �  e ���C�O��$Rii�������hh������]4�5$��G�&�� C45$��!4L��5$�� C4L�5$�� C C45645�6����������g��x  e�g��y  e��g��filenamef��srfi/srfi-67/compare.scm  J  L  @ N  P  [  ]  @ _  a  �  e ���C�O��%Rii��hh������]4�5$��G�&�� C45$��!4L��5$�� C4L�5$�� C C45645�6����������g��x  e�g��y  e��g��filenamef��srfi/srfi-67/compare.scm  J  L  ? N  P  [  ]  ? _  a  �  e ���C�O��LRii��hh������]4�5$��G�&�� C45$��!4L��5$�� C4L�5$�� C C45645�6����������g��x  e�g��y  e��g��filenamef��srfi/srfi-67/compare.scm  J  L  H N  P  [  ]  H _  a  �  e ���C�O��MRL�����hh������]�$��"��445�>��"��G��$��"��445>��"��G��4�5456�����������g��x  d�g��y  d��g��filenamef��srfi/srfi-67/compare.scm           ?   A   U   \  % d  �  d ��g��nameg��symbol-compare�CGR���h`������]4�5$��?�&�� C45$���$�� C�$�� C C45645�6����������g��x  ]�g��y  ]��g��filenamef��srfi/srfi-67/compare.scm  B  D  3 F  H  S  U  3 W  Y  �  ] ���C7R����h`������]4�5$��?�&�� C45$���$�� C�$�� C C45645�6����������g��x  ]�g��y  ]��g��filenamef��srfi/srfi-67/compare.scm  B  D  5 F  H  S  U  5 W  Y  �  ] ���CCR����h`������]4�5$��?�&�� C45$���$�� C�$�� C C45645�6����������g��x  ]�g��y  ]��g��filenamef��srfi/srfi-67/compare.scm  D  - F  U  - W  �  ] ���CDRD� ������h���Y��] 4�5$��"��445�>��"��G��45$��"��445>��"��G��"��K44�5455 $�� C $��4 �54 56 $�� C 64 �5$��4 5$���6""�Q������g��x  ��g��y  ��g��key  q ���g��filenamef��srfi/srfi-67/compare.scm           G   I   _   b  $ i  2 q   q   �  $ �  2 �   �   �   �  �   �   �   �  �  � ��g��nameg��complex-compare�C,R,�����hh������]4�5$��"��445�>��"��G��45$��"��445>��"��G���6�������������g��x  b�g��y  b��g��filenamef��srfi/srfi-67/compare.scm           G   I   b  �  b ��g��nameg��number-compare�C>R�������h������]L��6����~�������g��x  �g��y  ��g��filenamef��srfi/srfi-67/compare.scm        �  ���C�������h���~���]�O�C������v�������g��compare  ��g��filenamef��srfi/srfi-67/compare.scm  �  ��g��nameg��pair-compare-car�C@R����h������]L��6����~�������g��x  �g��y  ��g��filenamef��srfi/srfi-67/compare.scm        �  ���C�������h���~���]�O�C������v�������g��compare  ��g��filenamef��srfi/srfi-67/compare.scm  �  ��g��nameg��pair-compare-cdr�CAR?/���h���Z��)���>3�4�5 $�� C $�� 6 $�� C6)���{3�(�� (�� C C(�� C$��G$��=4�5 $�� C $�� �6 $�� C6 C$�� C�6]�6�������R������g��pair-compare-car D�g��pair-compare-cdr D�g��x  D�g��y  D�g��key   D�g��compare M ��g��x M ��g��y  M ��g��key   ��g��x � ��g��y � ��� g��filenamef��srfi/srfi-67/compare.scm   �   � '  � /  �   �  /  ' 2  / 4   < �  M   S   i   m   p   t   u   z  3 }  ;       �  3 �  ; �   �   �   �   �   �   �  � D � M � � � � ��g��nameg�� pair-compare�C?R9/������h�����)���3� 4545$�� $�� C C$�� C4�45455 $�� C $���45456 $�� C6)���3��6)���3��6]�6�����������g��compare ��g��x ��g��y  ��g��empty?  ��g��head  ��g��tail  ��g��tx-val   ��g��ty-val   ��g��key  G ��g��x � ��g��y � ��g��empty?  � ��g��head  � ��g��tail  � ��g��compare � ��g��x � ��g��y  � ��g��x � ��g��y � ���g��filenamef��srfi/srfi-67/compare.scm           5  8  " ?  + G  G   b  " i  + w     �   �   �   �   �   �  � � � � � � � � � � � ��g��nameg�� list-compare�C9R9:/� ���h�����)���3� "��P4545 $�� $�� "��9 "��3 $�� "��(4545" " $�� C $���6 $�� C6)���3��6)���3��6]�6�����������g��compare ��g��x ��g��y  ��g��empty?  ��g��head  ��g��tail  ��g��x  ]�g��y  ]�g��tx-val   ]�g��ty-val  ]�g��key  i ��g��x � ��g��y � ��g��empty?  � ��g��head  � ��g��tail  � ��g��compare � ��g��x � ��g��y  � ��g��x � ��g��y � ���g��filenamef��srfi/srfi-67/compare.scm   #   %  %   $  B &  I & ( W &  ] #  i "  � '  � "  �   � +  �   � -  �   � / � � � � � � � � � � � ��g��nameg��list-compare-as-vector�C:R7H/��������h�����)���3� 454545 $�� C $��\"��Q$�� C4�45455  $�� C $�� " $�� C6 " $�� C6)���3��6)���3��6]�6����������g��compare ��g��x ��g��y  ��g��size  ��g��ref  ��g��n   ��g��m   ��g��key  $ ��g��i  > ��g��key ` ��g��x � ��g��y � ��g��size  � ��g��ref  � ��g��compare � ��g��x � ��g��y  � ��g��x � ��g��y � ���g��filenamef��srfi/srfi-67/compare.scm 3  5   5   5   7 $ 6 > 8 C 9  G 9 J ; M ; ) V ; 3 ` ; ` ;  y < .  < � ;  � 8 � 6 � ;  � 6 � 3  � @  � 3  � B  � 3  � D � � � � � � � � � � � ���CHR7I/� ����h�����)���3� 454545"��W$��64�45455  $�� C $�� " $�� C6 ")���3��6)���3��6]�6��������g��compare ��g��x ��g��y  ��g��size  ��g��ref  ��g��nx   ��g��ny   ��g��n  $ ��g��i  * ��g��key R ��g��x � ��g��y � ��g��size  � ��g��ref  � ��g��compare � ��g��x � ��g��y  � ��g��x � ��g��y � ���g��filenamef��srfi/srfi-67/compare.scm H  J   J   J   K  $ K * L / M  3 M ; N  < O ! ? O * H O 4 R O ! R O  k P / q P ! y O  � L � H  � T  � H  � V  � H  � X � � � � � � � � � � � ���CIR/$LG>H�����h����]�(�� (�� C C(�� C�$��E$��;4�5 $�� C $�� �6 $�� C6 C$�� C4�545$��$���6 C$�� C4�5$��45$���6 C45$�� C4�5$��45$�� �6 C45$�� C�$��$�� �6 C$�� C4 �5$��4 5$�� �6 C4 5$�� C�$��$��  �6 C$�� C�6�������g��x  �g��y  �g��key  4 d�g��t?-val  r �g��tx  � �g��ty  � ��g��filenamef��srfi/srfi-67/compare.scm ]  ^  * a / a  2 a & 4 a 4 ^  O b  R b & T b \ ^  � c � ^  � d � ^  � e � ^   f  ^  A g E ^  i h o ^  y i   i �   ��g��nameg��default-compare�C/RvJy�������h(���e���]�$��LC�$��L�C�$��MCC]�������g��i  (��g��filenamef��srfi/srfi-67/compare.scm   ,�  ( ���C� ����h����]J4L��5 &��"�� &��"�� $��"��4L���54L5 &��"�� &��"�� $��"��4L�54L�5 &��"�� &��"�� $��"��4L��54L�5 &��"�� &��"�� $��"��4L��5 $��"��4L�>��"��G�� $��"��4L>��"��G�� $��"��4L�>��"��G��M�$�M4L�5 &��"�� &��"�� $��"��4L��5M4L�5 &��"�� &��"�� $��"��4L��5M4L5 &��"�� &��"�� $��"��4L�5M4L5 &��"�� &��"�� $��"��4L�5  $��"��4L�M>��"��G�� $��"��4LM>��"��G��     $��,4L4 L�O� 5>��"��G��"���  "��N�4 5 $���"��NC��������g��x  �g��y  �g��c-xy  I�g��c-xy  R ��g��c-xy  � ��g��c-xy  � �g��c-xx   �g��c-yy   �g��c-xy   �g��c-yx   �g��y   �g��c-xy   �g��x   3�g��c-xy   0�g��y  5 �g��c-xy  @ ~�g��x   �g��c-xy   �g��c-xz   }�g��c-zx   }�g��c-yz   }�g��c-zy  }�g��ijk 9 q��g��filenamef��srfi/srfi-67/compare.scm    u  u   v  v  ! v " v  * v + . v  5 x 9 x  D x 6 F x J u  R u  \ v ] v  h v i v  q v + u v  | x � x  � x 6 � x � u  � u  � v � v  � v � v  � v + � v  � x � x  � x 6 � x � u  � u  � v � v  � v � v  � v +  v   x  x   x 6  x    )   .   3  7   @  K   P   U  Y   b  o   p   u   z  ~            u   u   v  v   v  v   v +  v   x  x   x 6  x     u   u   v  v   v  v   v +  v   x  x  + x 6 - x 5   8 u  @ u  J v K v  V v W v  _ v + c v  j x n x  y x 6 { x     u   u   v  v   v  v   v +  v   x  x   x 6  x                                       ' ~  .  / /  ' 4  : 5  ' 9   9   >   B   C   I   L   b      {  {       �   ���C������h������]HH�O�C�����������g��c  �g��z?  �g��z   ��g��filenamef��srfi/srfi-67/compare.scm r   �   ��g��nameg�� debug-compare�C.RC�������������g��m  0�g��char=? �������������g�� char-ci=? ������������A�g�� char-ci<? ������������A�g��string=? ������N�������g��string<? ������N�������g�� string-ci=? �������������g�� string-ci<? ��������������g��filenamef��srfi/srfi-67.scm   1 U 6 U  > U & C U g��filenamef��srfi/srfi-67/compare.scm  T  �  �  �  � !T � $ � +y � 0" � 4 � 9s � >! � B � Gr � L � Q � UF � X � \x � ` � g � o  w  ������ 8 ������ q ������a v ������B { ������"  ������#  ������#  ������  ������  ������  ������N  ������  ������@  ������o  ������  ������  ������  ������V  ������  ������  ������5  ������  ������|  ������< 1 ������ F ������4 ] ������/ r �9 ������1 ���C6����������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/srfi/srfi-69.go��������������������������������������������������������������������������0000644�����������������00000133275�15146341264�0010763 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]W�4�������hR������]� g��guile � g��define-module* � � g��srfi g��srfi-69 � g��filenameS f��srfi/srfi-69.scm g��importsS g��srfi-1  �  � g��srfi-9 � � g��srfi-13 � � g��ice-9 g��optargs � � � g��exportsS g��make-hash-table g�� hash-table? g��alist->hash-table g��hash-table-equivalence-function g��hash-table-hash-function g��hash-table-ref !g��hash-table-ref/default "g��hash-table-set! #g��hash-table-delete! $g��hash-table-exists? %g��hash-table-update! &g��hash-table-update!/default 'g��hash-table-size (g��hash-table-keys )g��hash-table-values *g��hash-table-walk +g��hash-table-fold ,g��hash-table->alist -g��hash-table-copy .g��hash-table-merge! /g��string-ci-hash 0g��hash-by-identity 1 !"#$%&'()*+,-./0� 2g�� re-exportsS 3g�� string-hash 43� 5g�� replacementsS 6g��hash 76� 8g��set-current-module 98� :8� ;g��cond-expand-provide <g��current-module =� >g��make-syntax-transformer ?>� @>� Ag�� hashx-invoke Bg��macro Cg�� $sc-dispatch DC� EC� Fg��_ Gg��any HFG Ig�� syntax->datum JI� KI� Lg�� datum->syntax ML� NL� Og�� ht-associator Pg�� ht-real-table Qg��syntax-violation RQ� SQ� Tf��-source expression failed to match any pattern Ug��with-hashx-values Vg��let Wg��first Xg��second Yg��third Zg��most-positive-fixnum [g��caller-with-default-size \6� ]6� ^g��string-hash-ci _g��hashq `g��srfi-69:hash-table ag��"%make-srfi-69-hash-table-procedure bg��make-srfi-69-hash-table cFGGGGGG� dg�� syntax-object eg��lambda fg��m-46961e518c-31 gg��top hfg� ig��ribcage jg��t-46961e518c-2b kg��t-46961e518c-2c lg��t-46961e518c-2d mg��t-46961e518c-2e ng��t-46961e518c-2f og��t-46961e518c-30 pjklmno� qhhhhhh� rf��l-46961e518c-36 sf��l-46961e518c-37 tf��l-46961e518c-38 uf��l-46961e518c-39 vf��l-46961e518c-3a wf��l-46961e518c-3b xrstuvw� yipqx� zi� {g��x |{� }h� ~f��l-46961e518c-33 ~� �i|}� �g��shift �g�� proc-name �g��args �� �g� �� �f��l-1e8ba8b5a-2ba �f��l-1e8ba8b5a-2bb �� �i� �g��key �g��value �g��name �g��formals �g��body �� �� �f��l-1e8ba8b5a-2ad �f��l-1e8ba8b5a-2ae �f��l-1e8ba8b5a-2af �f��l-1e8ba8b5a-2b0 �f��l-1e8ba8b5a-2b1 �� �i� �g��make-procedure-name �� �� �f��l-1e8ba8b5a-29d �� �i� �� �f��l-1e8ba8b5a-29c �� �i|� �hyzzzzz�  �g��hygiene �� �de� �g�� real-table �yz� �� �d� �g�� associator �d� �g��size �d� �g��weakness �d� �g��equivalence-function �d� �g�� hash-function �d� �� �g�� make-struct �g��m-46961e518c-29 �g� �g��t-1e8ba8b5a-38d �g��t-1e8ba8b5a-38c �g��t-1e8ba8b5a-38b �� �g��m-1e8ba8b5a-38e �g� �� �f��l-1e8ba8b5a-392 �f��l-1e8ba8b5a-393 �f��l-1e8ba8b5a-394 �� �i� �g�� ctor-args �� �f��l-1e8ba8b5a-37a �� �i� �g��ctor �g��field �� �f��l-1e8ba8b5a-376 �f��l-1e8ba8b5a-377 �� �i� �g��form �g�� type-name �g��constructor-spec �g�� field-names �� �� �f��l-1e8ba8b5a-36b �f��l-1e8ba8b5a-36c �f��l-1e8ba8b5a-36d �f��l-1e8ba8b5a-36e �� �i� �g�� record-layout �g��functional-setters �g��setters �g��copier �g��getters �g�� constructor �g��getter-identifiers �g��field-identifiers �� �� �f��l-1e8ba8b5a-343 �f��l-1e8ba8b5a-341 �f��l-1e8ba8b5a-33f �f��l-1e8ba8b5a-33d �f��l-1e8ba8b5a-33b �f��l-1e8ba8b5a-339 �f��l-1e8ba8b5a-337 �f��l-1e8ba8b5a-335 �� �i� �f��l-1e8ba8b5a-334 �� �i|� �yzzzzzz� �d� �d`� �d � ��  �� �g��each-any �F �Q� �Q� �f��Wrong number of arguments �g�� identifier? �� � z� da� g��record-type-vtable � � g�� pwpwpwpwpwpw g��default-record-printer  �  �  �  g��set-struct-vtable-name!   �  � g��vtable-offset-user � � g��%hash-table?-procedure FG� g��m-46961e518c-48 g� g��t-46961e518c-47 � � f��l-46961e518c-4d � i� f��l-46961e518c-4a � i|� zzzzz�   de� !g��obj "g��t-1e8ba8b5a-47e #g��t-1e8ba8b5a-478 $g��t-1e8ba8b5a-479 %g��t-1e8ba8b5a-47a &g��t-1e8ba8b5a-47d 'g��t-1e8ba8b5a-47c (g��t-1e8ba8b5a-47b )"#$%&'(� *g��m-1e8ba8b5a-47f +*g� ,+++++++� -f��l-1e8ba8b5a-483 .f��l-1e8ba8b5a-484 /f��l-1e8ba8b5a-485 0f��l-1e8ba8b5a-486 1f��l-1e8ba8b5a-487 2f��l-1e8ba8b5a-488 3f��l-1e8ba8b5a-489 4-./0123� 5i),4� 6g�� copier-id 76� 8f��l-1e8ba8b5a-476 98� :i79� ;g�� ctor-name <;� =f��l-1e8ba8b5a-46e >=� ?i<>� @� Af��l-1e8ba8b5a-46c BA� Ci@B� Dg��layout ED� Ff��l-1e8ba8b5a-46a GF� HiEG� Ig�� immutable? JI� Kf��l-1e8ba8b5a-468 LK� MiJL� Ng�� field-count ON� Pf��l-1e8ba8b5a-466 QP� RiOQ� Sg�� getter-ids TS� Uf��l-1e8ba8b5a-463 VU� WiTV� Xg�� field-ids YX� Zf��l-1e8ba8b5a-460 [Z� \iY[� ]g��predicate-name ^g�� field-spec _I]^� `� af��l-1e8ba8b5a-453 bf��l-1e8ba8b5a-454 cf��l-1e8ba8b5a-455 df��l-1e8ba8b5a-456 ef��l-1e8ba8b5a-457 ff��l-1e8ba8b5a-458 gabcdef� hi_`g� izz5zzzz:z?zCzHzMzRzWz\h� jd!i� kj� lg��and mdli� ng��struct? odni� poj� qg��eq? rdqi� sg�� struct-vtable tdsi� utj� vz� wd`v� xruw� ympx� z ky� {z� |d{� }g��throw-bad-struct ~}� }� g��%ht-real-table-procedure g��free-id g�� %%on-error g��m-46961e518c-54 g� � f��l-46961e518c-56 � i|� zzzzz�  d� � G� g��%%type g��t-1e8ba8b5a-3a5 g��t-1e8ba8b5a-3a6 g��t-1e8ba8b5a-3a7 g��t-1e8ba8b5a-3a8 g��t-1e8ba8b5a-3a9 g��t-1e8ba8b5a-3aa g��t-1e8ba8b5a-3ab � g��m-1e8ba8b5a-3ac g� � f��l-1e8ba8b5a-3b0 f��l-1e8ba8b5a-3b1 f��l-1e8ba8b5a-3b2 f��l-1e8ba8b5a-3b3 f��l-1e8ba8b5a-3b4 f��l-1e8ba8b5a-3b5 f��l-1e8ba8b5a-3b6 � i� g��getter g��index � f��l-1e8ba8b5a-3a3 f��l-1e8ba8b5a-3a4 � i� S6� � f��l-1e8ba8b5a-39e f��l-1e8ba8b5a-39f f��l-1e8ba8b5a-3a0 � i� zzzzzz� d� � FG� g��ck g��err g��s � � f��l-46961e518c-59 f��l-46961e518c-5a � i� zzzzz�  d� g��quote d� z� d`� � � g��%%index d� � FG� f��l-46961e518c-5e f��l-46961e518c-5f � i� zzzzz�  d� d� z� d � � � g��%%copier d� � FG� f��l-46961e518c-63 f��l-46961e518c-64 � i� zzzzz�  d� d� g��%%srfi-69:hash-table-set-fields z� d� � � g��t-46961e518c-53 � f��l-46961e518c-68 � i� zzzzz�  de� zzzzzz� d� � g��if d� dq� ds� � z� d`� � g�� struct-ref d� z� d � � d}� d� dP� � � �� �� z� d� g��%ht-associator-procedure g��m-46961e518c-6f g� � f��l-46961e518c-71  �  i| �  z zzzz�   d �   �  G� z zzzzz� d� � FG� � f��l-46961e518c-74 f��l-46961e518c-75 � i� z zzzz�  d� d� z � d`� � � d�  � !F G� "f��l-46961e518c-79 #f��l-46961e518c-7a $"#� %i$� &%z zzzz�  'd&� (d&� )%z � *d )� +(*� ,+� -d� .-� /F.G� 0f��l-46961e518c-7e 1f��l-46961e518c-7f 201� 3i2� 43z zzzz�  5d4� 6d4� 73z � 8d7� 968� :9� ;g��t-46961e518c-6e <;� =f��l-46961e518c-83 >=� ?i<>� @?z zzzz�  Ade@� B?z zzzzz� CdB� DC� EdB� FdqB� GdsB� HGC� I?z � Jd`I� KFHJ� LdB� M?z � Nd M� OLCN� Pd}B� QdB� RdOI� SQR� TPCS� UEKOT� VADU� Wz � XdW� Yg��ht-size Zg��%ht-size-procedure [g��m-46961e518c-8a \[g� ]\� ^f��l-46961e518c-8c _^� `i|]_� a\z`zzzz�  bda� cb� dcG� ez`zzzzz� fde� gf� hFdgG� i\\� jf��l-46961e518c-8f kf��l-46961e518c-90 ljk� miil� n\mz`zzzz�  odn� pdn� qmz`� rd`q� spr� ts� ude� vu� wFdvG� xf��l-46961e518c-94 yf��l-46961e518c-95 zxy� {iiz� |\{z`zzzz�  }d|� ~d|� {z`� d � ~� � de� � FdG� f��l-46961e518c-99 f��l-46961e518c-9a � ii� \z`zzzz�  d� d� z`� d� � � g��t-46961e518c-89 � f��l-46961e518c-9e � i]� \z`zzzz�  de� z`zzzzz� d� � d� dq� ds� � z`� d`� � d� z`� d � � d}� d� dY� � � � � z`� dZ� g�� ht-weakness g��%ht-weakness-procedure g��m-46961e518c-a5 g� � f��l-46961e518c-a7 � i|� zzzzz�  d� � G� zzzzzz� d� � FG� � f��l-46961e518c-aa f��l-46961e518c-ab � i� zzzzz�  d� d� z� d`� � � d� � FG� f��l-46961e518c-af f��l-46961e518c-b0 � i� zzzzz�  d� d� z� d � � � d� � FG� f��l-46961e518c-b4 f��l-46961e518c-b5 � i� zzzzz�  d� d� z� d� � � g��t-46961e518c-a4 � f��l-46961e518c-b9 � i� zzzzz�  de� zzzzzz� d� � d� dq� ds� � z� d`� � d� z� d � � d}� d� d� � �� �� � z� d� g��*%hash-table-equivalence-function-procedure g��m-46961e518c-c0 g� �  f��l-46961e518c-c2   �  i| �  z zzzz�   d �  � G� z zzzzz� d� � FG� � f��l-46961e518c-c5 f��l-46961e518c-c6 � i� z zzzz�  d� d� z � d`� � �  d� ! � "F!G� #f��l-46961e518c-ca $f��l-46961e518c-cb %#$� &i%� '&z zzzz�  (d'� )d'� *&z � +d *� ,)+� -,� .d� /.� 0F/G� 1f��l-46961e518c-cf 2f��l-46961e518c-d0 312� 4i3� 54z zzzz�  6d5� 7d5� 84z � 9d8� :79� ;:� <g��t-46961e518c-bf =<� >f��l-46961e518c-d4 ?>� @i=?� A@z zzzz�  BdeA� C@z zzzzz� DdC� ED� FdC� GdqC� HdsC� IHD� J@z � Kd`J� LGIK� MdC� N@z � Od N� PMDO� Qd}C� RdC� SdJ� TRS� UQDT� VFLPU� WBEV� Xz � YdX� Zg��#%hash-table-hash-function-procedure [g��m-46961e518c-db \[g� ]\� ^f��l-46961e518c-dd _^� `i|]_� a\z`zzzz�  bda� cb� dcG� ez`zzzzz� fde� gf� hFdgG� i\\� jf��l-46961e518c-e0 kf��l-46961e518c-e1 ljk� miil� n\mz`zzzz�  odn� pdn� qmz`� rd`q� spr� ts� ude� vu� wFdvG� xf��l-46961e518c-e5 yf��l-46961e518c-e6 zxy� {iiz� |\{z`zzzz�  }d|� ~d|� {z`� d � ~� � de� � FdG� f��l-46961e518c-ea f��l-46961e518c-eb � ii� \z`zzzz�  d� d� z`� d� � � g��t-46961e518c-da � f��l-46961e518c-ef � i]� \z`zzzz�  de� z`zzzzz� d� � d� dq� ds� � z`� d`� � d� z`� d � � d}� d� d� � � � � z`� dZ� g��each GG� � G G G g�� %%set-fields g��dummy g��check? g��expr � g��m-46961e518c-f6 g� � f��l-46961e518c-fb f��l-46961e518c-fc f��l-46961e518c-fd f��l-46961e518c-fe f��l-46961e518c-ff � i� � f��l-46961e518c-f8 � i|� g��t-1e8ba8b5a-3c4 g��t-1e8ba8b5a-3c6 g��t-1e8ba8b5a-3c5 � g��m-1e8ba8b5a-3c7 g� � f��l-1e8ba8b5a-3cb f��l-1e8ba8b5a-3cc f��l-1e8ba8b5a-3cd � i� f��l-1e8ba8b5a-3c1 f��l-1e8ba8b5a-3c2 f��l-1e8ba8b5a-3c3 � i� zzzzz�  d� z� d`� dP� dO� dY� d� d� d� � g��map � � g��list g��ht-size! g��%ht-size!-procedure FGG� g��m-46961e518c-10a g� g��t-46961e518c-108 g��t-46961e518c-109 � � f��l-46961e518c-10f f��l-46961e518c-110 � i� � f��l-46961e518c-10c � i|� zzzzz�  de� g��t-1e8ba8b5a-3e6 g��t-1e8ba8b5a-3e7 � g��m-1e8ba8b5a-3e8 g� �� f��l-1e8ba8b5a-3ec f��l-1e8ba8b5a-3ed � i�� g��setter � f��l-1e8ba8b5a-3e0 f��l-1e8ba8b5a-3e1  f��l-1e8ba8b5a-3e2   �  i �  ^�  f��l-1e8ba8b5a-3d7 f��l-1e8ba8b5a-3d8  � i � g�� field-specs � f��l-1e8ba8b5a-3d3 f��l-1e8ba8b5a-3d4 � i� zz zz� d� g��val d� � d� dq� ds� �  z� !d` � "!� #g�� struct-set! $d#� %z� &d %� '$&� (d}� )d� *d � +)*� ,(+� -"',� .-� /z� 0d/� 1g��equal? 2g��eqv? 3g��hashv 4g��string=? 5g�� string-ci=? 6g��guess-hash-function 7g��reverse! 8g��keyword? 9g��without-keyword-args :� ;� <g��make-weak-key-hash-table =g��make-weak-value-hash-table >g�� key-or-value ?g��make-doubly-weak-hash-table @g��error Af��Invalid weak hash table type Bg�� guile-ht-ctor Cg��assoc DC� EC� Fg��assq Gg��assv Hg��equivalence-proc->associator Ig��weakS JI  KJ� Lg��for-each Mg��hashx-get-handle Ng�� hashx-set! Of��ht-value Pg��ht-unspecified Qg�� hashx-ref Rf��Key not in table Sg��hashx-create-handle! Tg�� hashx-remove! Ug�� hash-fold Vg�� alist-consC�5�h]����]4   124575 �4:�>��"��G���4;i4<i5�=>��"��G��4@ABEHKNOP������h(������-�1�3�����C��������g�� hashx-proc '�g��ht-var '�g��args  '��g��filenamef��srfi/srfi-69.scm a d � '  ���C�h���d���] 4�5L�4?6\�������g��args  �g��v ��g��filenamef��srfi/srfi-69.scm  a �   ���CST�����h(���!��] 4�5$�� �O�@�6�������g��y  '�g��tmp '��g��filenamef��srfi/srfi-69.scm a �  ' ��g�� documentationf��rInvoke HASHX-PROC, a `hashx-*' procedure taking a hash-function, assoc-function, and the hash-table as first args.g�� macro-typeg��defmacrog�� defmacro-argsg��args��C5AR4@UBEHKNVWXOYP�������hH������-�1�3�4�5��4�5��4�5���C���������g��bindings F�g��ht-var F�g�� body-forms  F��g��filenamef��srfi/srfi-69.scm i l  l  l   m % l  . n 6 l � F  ���C�����h���d���] 4�5L�4?6\�������g��args  �g��v ��g��filenamef��srfi/srfi-69.scm  i �   ���CST�����h(�����] 4�5$�� �O�@�6� ������g��y  '�g��tmp '��g��filenamef��srfi/srfi-69.scm i �  ' ��g�� documentationf��fBind BINDINGS to the hash-function, associator, and real-table of HT-VAR, while evaluating BODY-FORMS.g�� macro-typeg��defmacrog�� defmacro-argsg��args��C5URZ�������h ���o���-�.�,�3�#��L��6��g�������g��obj �g��size ��g��filenamef��srfi/srfi-69.scm z   { �  ���C������h�����]�O�C�������������g��hash-fn  ��g��filenamef��srfi/srfi-69.scm w �  ��g��nameg��caller-with-default-sizeg�� documentationf��nAnswer a function that makes `most-positive-fixnum' the default second argument to HASH-FN, a 2-arg procedure.�C[R4[i]56R^i/R4[i_i50R`�����h�����]��C�����������g�� real-table  �g�� associator  �g��size   �g��weakness   �g��equivalence-function   �g�� hash-function   ��g��filenamef��srfi/srfi-69.scm � �   ��g��nameg��"%make-srfi-69-hash-table-procedure�CaR4@bBEc���h������]��C�����������g��t-46961e518c-2b  �g��t-46961e518c-2c  �g��t-46961e518c-2d   �g��t-46961e518c-2e   �g��t-46961e518c-2f   �g��t-46961e518c-30   ��   ���Cb����h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-69.scm  � �  ���CF���h���D���]�L�6<�������g��filenamef��srfi/srfi-69.scm  � �   ���C�����h������]�C����������   ���CST� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��}�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-69.scm � �  n ���C5bR ` ��4�`>��"��G��� ai��`R`��h���x���]�$���CC������p�������g��obj  ��g��filenamef��srfi/srfi-69.scm � �   ��g��nameg��%hash-table?-procedure�CR4@BEz��������h���7���]��C������/�������g��t-46961e518c-47  ��  ���C�����h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-69.scm  � �  ���CF���h���D���]�L�6<�������g��filenamef��srfi/srfi-69.scm  � �   ���C|�����h������]�C����������   ���CST� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��}�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-69.scm � �  n ���C5R`P���h���x���]�&��� C�6p�������g��s  ��g��filenamef��srfi/srfi-69.scm � �   ��g��nameg��%ht-real-table-procedure�CR4@PBE�����h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C����h���7���]��C������/�������g��t-46961e518c-53  ��  ���CP�����h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-69.scm  � �  ���CF���h���D���]�L�6<�������g��filenamef��srfi/srfi-69.scm  � �   ���C�����h������]�C����������   ���CST��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-69.scm � �  � ���C5PR`O�������h���x���]�&��� C�6p�������g��s  ��g��filenamef��srfi/srfi-69.scm � �   ��g��nameg��%ht-associator-procedure�CR4@OBE�����h���:���]C�����2�������g��err  �g��s  ��  ���C!',�h���:���]C�����2�������g��err  �g��s  ��  ���C/5:�h���:���]C�����2�������g��err  �g��s  ��  ���CV����h���7���]��C������/�������g��t-46961e518c-6e  ��  ���CO�����h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-69.scm  � �  ���CF���h���D���]�L�6<�������g��filenamef��srfi/srfi-69.scm  � �   ���CX�����h������]�C����������   ���CST��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-69.scm � �  � ���C5OR`Y������h ���r���]�&��� C�6�������j�������g��s  ��g��filenamef��srfi/srfi-69.scm � �   ��g��nameg��%ht-size-procedure�CZR4@YBEhot��h���:���]C�����2�������g��err  �g��s  ��  ���Cw}�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C����h���7���]��C������/�������g��t-46961e518c-89  ��  ���CY����h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-69.scm  � �  ���CF���h���D���]�L�6<�������g��filenamef��srfi/srfi-69.scm  � �   ���C�����h������]�C����������   ���CST��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-69.scm � �  � ���C5YR`�����h ���v���]�&��� C�6�������n�������g��s  ��g��filenamef��srfi/srfi-69.scm � �   ��g��nameg��%ht-weakness-procedure�CR4@BE������h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C����h���7���]��C������/�������g��t-46961e518c-a4  ��  ���C����h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-69.scm  � �  ���CF���h���D���]�L�6<�������g��filenamef��srfi/srfi-69.scm  � �   ���C�����h������]�C����������   ���CST��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-69.scm � �  � ���C5R`������h ������]�&��� C�6��������������g��s  ��g��filenamef��srfi/srfi-69.scm � �   ��g��nameg��*%hash-table-equivalence-function-procedure�CR4@BE���h���:���]C�����2�������g��err  �g��s  ��  ���C"(-�h���:���]C�����2�������g��err  �g��s  ��  ���C06;�h���:���]C�����2�������g��err  �g��s  ��  ���CW����h���7���]��C������/�������g��t-46961e518c-bf  ��  ���C�����h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-69.scm  � �  ���CF���h���D���]�L�6<�������g��filenamef��srfi/srfi-69.scm  � �   ���CY�����h������]�C����������   ���CST��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-69.scm � �  � ���C5R`�������h ������]�&��� C�6�������{�������g��s  ��g��filenamef��srfi/srfi-69.scm � �   ��g��nameg��#%hash-table-hash-function-procedure�CZR4@BEhot��h���:���]C�����2�������g��err  �g��s  ��  ���Cw}�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C����h���7���]��C������/�������g��t-46961e518c-da  ��  ���C�����h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-69.scm  � �  ���CF���h���D���]�L�6<�������g��filenamef��srfi/srfi-69.scm  � �   ���C�����h������]�C����������   ���CST��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-69.scm � �  � ���C5R4@BE�h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���CST���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-69.scm � �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5R`�������h ������]�&��� C�6�����|�������g��s  �g��val  ��g��filenamef��srfi/srfi-69.scm � �   ��g��nameg��%ht-size!-procedure�CR4@BE.���h���V���]��C����N�������g��t-46961e518c-108  �g��t-46961e518c-109  ��  ���C�����h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-69.scm  � �  ���CF���h���D���]�L�6<�������g��filenamef��srfi/srfi-69.scm  � �   ���C0�����h������]�C����������   ���CST� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��}�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-69.scm � �  n ���C5R1]q_23435/� ������h@�����]�&��C�&��C�&��C�&��C �&�� CC�����������g�� equal-proc  <��g��filenamef��srfi/srfi-69.scm � � �  < ��g��nameg��guess-hash-functiong�� documentationf��lGuess a hash function for EQUAL-PROC, falling back on `hash', as specified in SRFI-69 for `make-hash-table'.�C6R78W�hP�����]"��?(��64455$��"45"�"������g�� rest-list  P�g��acc  E�g�� rest-list   E��g��filenamef��srfi/srfi-69.scm �  �  �   �   �  �   � " �  ' �  0 � 1 �  : �  = � 1 E �  E �  F �  P � �  P ��g��nameg��without-keyword-argsg�� documentationf��MAnswer REST-LIST with all keywords removed along with items that follow them.�C9R;<=>?@A� h@������]�$��C�$��C�$��C�$��C �6��������������g��weakness  9��g��filenamef��srfi/srfi-69.scm � �  5 �  9 � �  9 ��g��nameg�� guile-ht-ctorg�� documentationf��7Answer the Guile HT constructor for the given WEAKNESS.�CBR14EqF2GC���h���s���]�L�6����k�������g��item  �g��alist  ��g��filenamef��srfi/srfi-69.scm �  � �  ���C� �h@�����]�&��"���$��C�&��C�&��C�O�C�������������g�� equal-proc  9��g��filenamef��srfi/srfi-69.scm � � �  �  � �  9 ��g��nameg��equivalence-proc->associatorg�� documentationf��^Answer an `assoc'-like procedure that compares the argument key to alist keys with EQUAL-PROC.�CHRK16B9H`�������hh�����-��/����0��2��3��#���#�� 4�5#��44545?4�5 ��C�������g�� equal-proc  g�g�� hash-proc  g�g��weak   g�g�� guile-opts   g�g�� real-table  R g�g�� associator  R g��g��filenamef��srfi/srfi-69.scm � ) �  ; �  < � C �  K �  L �  R � �  g  g��weakS ���g��nameg��make-hash-tableg�� documentationf��Answer a new hash table using EQUAL-PROC as the comparison function, and HASH-PROC as the hash function. See the reference manual for specifics, of which there are many.�CR`YOPLMN����h0������] 4LLL�5$��CM�N�LLL��6��������g��pair  /�g��handle  /��g��filenamef��srfi/srfi-69.scm �   �  � =  �  �   �   � &  �  * � ' - � 2 / � �  / ���C� �����h�����-�1�3�4?&��  "�� 45H&��  "�� 45&�� "�� 45&�� "�� 454 O��>��"��G��J&��  "��4 >��"��G��C�������g��alist ��g��mht-args ��g��result   ��g��size  - ��g�� hash-proc  ~ ��g�� associator  ~ ��g�� real-table  ~ ��g��val  � ���g��filenamef��srfi/srfi-69.scm � �   �   �  - �  ~ �  � �  � � � � ��g��nameg��alist->hash-tableg�� documentationf��4Convert ALIST to a hash table created with MHT-ARGS.�CROPRQ`OPPW@R� �������h�����-�1�3�4�&�� � "�� 4�5�&��� "�� 4�5�&��� "�� 4�55&��$�� 456�  �6C������g��ht ��g��key ��g��default-thunk-lst  ��g��result  a ���g��filenamef��srfi/srfi-69.scm � �  a �  k �  n � r �  s � { �  �  � � � �  ��g��nameg��hash-table-refg�� documentationf��Lookup KEY in HT and answer the value, invoke DEFAULT-THUNK if KEY isn't present, or signal an error if DEFAULT-THUNK isn't provided.�C RQ`OP���h`�����]�&�� � "�� 4�5�&��� "�� 4�5�&��� "�� 4�56��������������g��ht  Y�g��key  Y�g��default   Y��g��filenamef��srfi/srfi-69.scm � Y � �  Y ��g��nameg��hash-table-ref/defaultg�� documentationf��LLookup KEY in HT and answer the value. Answer DEFAULT if KEY isn't present.�C!RS`OPPY� �h���@��]4�&�� � "�� 4�5�&��� "�� 4�5�&��� "�� 4�55&��N�&�� � "�� 4�5�&�� � "��4� >��"��G��"���C���8������g��ht  ��g��key  ��g�� new-value   ��g��handle  Z ��g��val  � ���g��filenamef��srfi/srfi-69.scm �  �  Z �  a �  e �  h �  � �  � �  � � �  � ��g��nameg��hash-table-set!g�� documentationf��Set KEY to NEW-VALUE in HT.�C"R`OPMYT� �h���G��]"�&�� � "�� 4�5�&��� "�� 4�5�&��� "�� 4�545$��f�&�� � "�� 4�5�&�� � "��4�>��"��G��4 >��"��G��"���C�������?������g��ht  ��g��key  ��g��h  Q ��g��a  Q ��g��real-ht  Q ��g��val  � ���g��filenamef��srfi/srfi-69.scm � Q �  X �  h �  k �  � �  � � � � �  � ��g��nameg��hash-table-delete!g�� documentationf��Remove KEY's association in HT.�C#RM`OP����h`������]4�&�� � "�� 4�5�&��� "�� 4�5�&��� "�� 4�55$��CC�������g��ht  `�g��key  `��g��filenamef��srfi/srfi-69.scm �  �  \ � �  ` ��g��nameg��hash-table-exists?g�� documentationf��"Return whether KEY is a key in HT.�C$R`OPMN@RY� �����h����-�1�3� �&�� � "�� 4�5�&��� "�� 4�5�&��� "�� 4�545$��45"��4$��445�5"�� 4 �5>��"��G���&�� � "�� 4� 5�&�� � "��4� >��"��G��C�����������g��ht �g��key �g��modifier  �g��default-thunk-lst  �g�� hash-proc  X �g�� associator  X �g�� real-table  X �g��handle  k �g��val  � �� g��filenamef��srfi/srfi-69.scm  X   _   k   s   v   {  ( }   ~  �  �   �   �   �  ' �  ( �  ' �   �   �  $ �   �  �   �   �  �   ��g��nameg��hash-table-update!g�� documentationf��Modify HT's value at KEY by passing its value to MODIFIER and setting it to the result thereof. Invoke DEFAULT-THUNK for the old value if KEY isn't in HT, or signal an error if DEFAULT-THUNK is not provided.�C%R%�h���D���]�L�C���<�������g��filenamef��srfi/srfi-69.scm  &�   ���C�h���^��]�O�6�����V������g��ht  �g��key  �g��modifier   �g��default   ��g��filenamef��srfi/srfi-69.scm    �   ��g��nameg��hash-table-update!/defaultg�� documentationf��Modify HT's value at KEY by passing its old value, or DEFAULT if it doesn't have one, to MODIFIER, and setting it to the result thereof.�C&R`+��h���}���]C��u�������g��k  �g��v  �g��ans   ��g��filenamef��srfi/srfi-69.scm !   ! ,�   ���CY�����hH���-��]�&�� � "�� 4�5$�� � 6�&��� C�6�������%������g��ht  A��g��filenamef��srfi/srfi-69.scm     !   * !  - " �  A ��g��nameg��hash-table-sizeg�� documentationf��Return the number of associations in HT. This is guaranteed O(1) for tables where #:weak was #f or not specified at creation time.�C'R+���h���}���]�Cu�������g��k  �g��v  �g��lst   ��g��filenamef��srfi/srfi-69.scm &   & (�   ���C��������h������]�6������������g��ht  ��g��filenamef��srfi/srfi-69.scm $ & 6 & �  ��g��nameg��hash-table-keysg�� documentationf�� Return a list of the keys in HT.�C(R+h���}���]Cu�������g��k  �g��v  �g��lst   ��g��filenamef��srfi/srfi-69.scm *   * (�   ���C��������h������]�6������������g��ht  ��g��filenamef��srfi/srfi-69.scm ( * 6 * �  ��g��nameg��hash-table-valuesg�� documentationf��"Return a list of the values in HT.�C)R+����h������] 4L��>�� GC��������g��k  �g��v  �g��unspec   �g��vals   ��g��filenamef��srfi/srfi-69.scm .   / 5  / �   ���C��h������]�O�6�������g��ht  �g��proc  ��g��filenamef��srfi/srfi-69.scm ,  . �   ��g��nameg��hash-table-walkg�� documentationf��3Call PROC with each key and value as two arguments.�C*RU`P���h(���Z��]�&��� "�� 4�56����R������g��ht  $�g��f  $�g��knil   $��g��filenamef��srfi/srfi-69.scm 3 7  $ 7 �  $ ��g��nameg��hash-table-foldg�� documentationf��Invoke (F KEY VAL PREV) for each KEY and VAL in HT, where PREV is the result of the previous invocation, using KNIL as the first PREV. Answer the final F result.�C+R+V��h������]�6������������g��ht  ��g��filenamef��srfi/srfi-69.scm 9 ; ! ; �  ��g��nameg��hash-table->alistg�� documentationf��Return an alist for HT.�C,R`OP'BUN������h���}���]LLL��6u�������g��k  �g��v  �g��ign   ��g��filenamef��srfi/srfi-69.scm B   B #�   ���C� �����h�����]9�&�� � "�� 4�5�&��� "�� 4�5�&��� "�� 4�54�5�&�� � "�� 4�544554  O�>��"��G���&�� � "�� 4� 5�C������g��ht  ��g��h Q ��g��a  Q ��g��real-ht  Q ��g��size  ^ ��g��weak  { ��g�� new-real-ht  � ��g��equivalence-function  � ���g��filenamef��srfi/srfi-69.scm = Q ?  X @  ^ @  c @ - { @  ~ A   A  � A  � @  � B  � F  � D �  � ��g��nameg��hash-table-copyg�� documentationf��Answer a copy of HT.�C-R+"�����h���}���]L��6����u�������g��k  �g��v  �g��ign   ��g��filenamef��srfi/srfi-69.scm L  L �  ���C��������h �����]4��O�>��"��G���C��������g��ht  �g��other-ht  ��g��filenamef��srfi/srfi-69.scm H  K �   ��g��nameg��hash-table-merge!g�� documentationf��`Add all key/value pairs from OTHER-HT to HT, overriding HT's mappings where present. Return HT.�C.RC����������g��m  4�g��rtd ��g��filenamef��srfi/srfi-69.scm  D 5 Z : Z  B Z & G Z  w  }  }    �   � S � 3 � 5 � 78 � 9Q � ; � ? � ? � + ? �  ? � A � C � E � G � II � M  Oi  Q  S $ Tw ( V/ , W 3 X 9 [ = ] H �%  ] ���C6������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/srfi/srfi-9/gnu.go�����������������������������������������������������������������������0000644�����������������00000032341�15146341264�0011456 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.04������]R�4����hh������]� g��guile � g��define-module* � � g��srfi g��srfi-9 g��gnu � g��filenameS f��srfi/srfi-9/gnu.scm g��importsS g��srfi-1  � � g��system g��base g��ck � � � g��exportsS g��set-record-type-printer! g��define-immutable-record-type g�� set-field g�� set-fields � g��set-current-module � � g��vtable-index-printer g��make-syntax-transformer ! � " � #g��macro $g�� $sc-dispatch %$� &$� 'g��any (g��each-any )'( *') +'* ,'+ -g�� syntax-object .g��@@ /g��top 0/� 1g��ribcage 2g��dummy 3g��name 4g��ctor 5g��pred 6g��fields 723456� 8g��m-1e8bcc284-11e 98/� :90000� ;f��l-1e8bcc284-123 <f��l-1e8bcc284-124 =f��l-1e8bcc284-125 >f��l-1e8bcc284-126 ?f��l-1e8bcc284-127 @;<=>?� A17:@� B1� Cg��x DC� E9� Ff��l-1e8bcc284-120 GF� H1DEG� I0ABH� Jg��hygiene KJ� L-.IK� M-IK� N-IK� OMN� Pg��%define-record-type Q-PIK� RLOQ� S-IK� T-IK� Ug��syntax-violation VU� WU� Xf��-source expression failed to match any pattern Y''('� Zg�� %set-fields [g��s \g��getter ]g��expr ^2[\]� _g��m-1e8bcc284-130 `_/� a`000� bf��l-1e8bcc284-135 cf��l-1e8bcc284-136 df��l-1e8bcc284-137 ef��l-1e8bcc284-138 fbcde� g1^af� h`� if��l-1e8bcc284-132 ji� k1Dhj� l0gBk� m-ZlK� n-lK� o-lK� p'' q'p rg��rest s2[r� tg��m-1e8bcc284-140 ut/� vu00� wf��l-1e8bcc284-145 xf��l-1e8bcc284-146 yf��l-1e8bcc284-147 zwxy� {1svz� |u� }f��l-1e8bcc284-142 ~}� 1D|~� �0{B� �-ZK� �-K� �-K� �g��each �p'� �� �g��fold �g��find �g��free-identifier=? �g��delq �g��collate-set-field-specs �g��unknown-getter �g��_ �''� �f��unknown getter �g��c-list �g��free-id �g��quote �0� �f��l-1e8bcc284-175 �� �1D� �0B� �-K� �� �'� �� �' � �g��v �[� �00� �f��l-1e8bcc284-178 �f��l-1e8bcc284-179 �� �1� �0B� �-K� �-K� �g��c-same-type-check �f��l-1e8bcc284-17e �� �1D� �0B� �-K� �� �'� �(� �)� �'� �g��every �g��format �f��\field paths ~a and ~a require one object to belong to two different record types (~a and ~a) �g�� syntax->datum �g��append �� �� �g�� orig-form �g��path �g��getter0 �g��type0 �g��type �g�� on-success �[\� �00000000� �f��l-1e8bcc284-1a3 �f��l-1e8bcc284-1a4 �f��l-1e8bcc284-1a5 �f��l-1e8bcc284-1a6 �f��l-1e8bcc284-1a7 �f��l-1e8bcc284-1a8 �f��l-1e8bcc284-1a9 �f��l-1e8bcc284-1aa �� �1� �0B� �-K� �-K� �f��l-1e8bcc284-1b4 �� �1D� �0BB� �-.K� �-K� �-K� �� �g�� getter-type �-K� �� �g�� getter-index �-K� �� �g�� getter-copier �-K� �� �'''� �''('� �'� �''('� �' �(䌤 �'匤 �'挤 �猤 �g��map �� �� �g��car �\� �f��l-1e8bcc284-1ea �f��l-1e8bcc284-1eb �� �1� �g��collated-specs �� �f��l-1e8bcc284-1e2 �� �1� �g��check? �g�� path-so-far �g�� struct-expr �g��head �g��tail �]� �0000000� �f��l-1e8bcc284-1d4 �f��l-1e8bcc284-1d5 �f��l-1e8bcc284-1d6 f��l-1e8bcc284-1d7 f��l-1e8bcc284-1d8 f��l-1e8bcc284-1d9 f��l-1e8bcc284-1da �� 1� � 000�  f��l-1e8bcc284-1b8  f��l-1e8bcc284-1b9  f��l-1e8bcc284-1ba     �  1 � 0BBBBB BB�  -K� ''� � ' ]� f��l-1e8bcc284-202 f��l-1e8bcc284-203 f��l-1e8bcc284-204 � 1� g��spec � f��l-1e8bcc284-1fe � 1� g��err �  f��l-1e8bcc284-1f0 ! � "1!� #0BBBBBBB"BBBBB BB� $-#K� %f��l-1e8bcc284-20a &%� '1&� (0B'BBBBBBB"BBBBB BB� )-Z(K� *g�� struct-ref +-*(K� ,-[(K� --(K� .-(K� /g��list 0g��t-1e8bcc284-1f2 10� 2g��m-1e8bcc284-1f3 32/� 43� 5f��l-1e8bcc284-1f7 65� 71146� 80B7BBB"BBBBB BB� 9-8K� :-8K� ;-8K� <-8K� =g��let >-=8K� ?-[8K� @� A@ B'A C(B D'C E'D FE Gf��duplicate field path H('� IH� J'I K(J L'K M'L NM Of��%one field path is a prefix of another Pq Qf��invalid syntaxC�5���h��g���]4    5�4�>��"��G���������h������]�C�������������g��type  �g��proc  ��g��filenamef��srfi/srfi-9/gnu.scm " �  ��g��nameg��set-record-type-printer!g�� documentationf��(Set PROC as the custom printer for TYPE.�CR4"#&,RST��h(���w���]C�����o�������g��dummy  #�g��name  #�g��ctor   #�g��pred   #�g��fields   #��  # ���CWX��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-9/gnu.scm $ �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��nameg��ctorg��predg��fieldsg��...���C5R4"#&Ymno������h ���b���]���C�Z�������g��dummy  �g��s  �g��getter   �g��expr   ��   ���CWX�������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-9/gnu.scm ) �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��sg��getterg��...�g��expr���C5R4"#&q������h ���N���]C�������F�������g��dummy  �g��s  �g��rest   ��   ���CWX���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-9/gnu.scm - �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��sg��rest��C5R&�h���i���]L��6�����a�������g��tree  ��g��filenamef��srfi/srfi-9/gnu.scm C  D + D �  ���C��hH������] 4�O�5$����45C���C��������������g��head  A�g��tail  A�g��expr   A�g��result   A�g��t   A��g��filenamef��srfi/srfi-9/gnu.scm B   C  C  ! G  $ H  % G  ' I  0 G  : J �  A ��g��nameg��insert�C��h������]�6�~�������g��head  �g��tail  �g��expr   ��g��filenamef��srfi/srfi-9/gnu.scm  M   M �   ���CWX���h(������] 4�5$��@�6�������������g��specs  "�g��tmp "��g��filenamef��srfi/srfi-9/gnu.scm A �  " ��g��nameg��collate-set-field-specs�CR4"#&U��h������]�6��{�������g�� orig-form  �g��getter  ��g��filenamef��srfi/srfi-9/gnu.scm  S   S %  S �   ���CWX������h(���f���] 4�5$��@�6������^�������g��x  "�g��tmp "��g��filenamef��srfi/srfi-9/gnu.scm P �  " ���C5R4"#&�h���8���]���C�������0�������g��s  �g��v  ��   ���CWX�h(���f���] 4�5$��@�6������^�������g��x  "�g��tmp "��g��filenamef��srfi/srfi-9/gnu.scm V �  " ���C5R4"#&WXU��������hX������] 4�L5$��C444L��5544L�L�554�54L55L6���������g��t  V�g��g  V�g��t  V��g��filenamef��srfi/srfi-9/gnu.scm b   c  c   e   f  g  ! i  2 j  C k  J l  R f  V d �  V ���C�h ������,�3�O�6������������g��s  �g�� orig-form  �g��path   �g��getter0   �g��getter   �g��type0   �g��type   �g�� on-success   ��g��filenamef��srfi/srfi-9/gnu.scm  b �   ���C��h������,�3����C����������g��s  �g�� orig-form  �g��path   �g��getter0   �g��getter   �g��type0   �g��type   �g�� on-success   ��   ���C�����h@���f���] 4�5"�� �6$��4?$��@""�������^�������g��x  9�g��tmp 9��g��filenamef��srfi/srfi-9/gnu.scm \ �  9 ���C5R4"Z#&&����h���m���]C���e�������g��check?  �g�� orig-form  �g�� path-so-far   �g��s   ��   ���C�������h���|���]C���t�������g��check?  �g�� orig-form  �g�� path-so-far   �g��s   �g��e   ��   ���C���h���w���]��C���o�������g��tmp-1e8bcc284-1e6  �g��tmp-1e8bcc284-1e5  �g��tmp-1e8bcc284-1e4   ��  ���C&)&$)+,-./� �������hX������] L���L�L4L��5L������4 5�C����������g��head  U�g��tail  U�g��expr   U�g��tmp  U��g��filenamef��srfi/srfi-9/gnu.scm � #�  U ���CWX�h0���j���] 4�5$��LLLL�O�@�6���b�������g��spec  -�g��tmp -��g��filenamef��srfi/srfi-9/gnu.scm � �  - ���C&(9:;<;����h���9���]L��L���C��1�������g��tmp-1e8bcc284-1fb  ��   ���C>?� �����h���9���]L�L�LL�LL�L��4LLO�L5L���LL�L���L�����C�����1�������g��t-1e8bcc284-1f2  ���  � ���CWX� �������hX������]L��4LL�LLO�L545$��LLLL�LLO� @6�������g��getter0  X�g��getter  X�g��tmp  X�g��tmp  ! X�g��tmp  , X��g��filenamef��srfi/srfi-9/gnu.scm �  �  ! � �  X ���CWX� �hX���5��]44554545  $��LLL��O� @  6����-������g��check?  T�g�� orig-form  T�g�� path-so-far   T�g�� struct-expr   T�g��head   T�g��tail   T�g��expr   T�g��collated-specs   T�g��tmp   T�g��tmp * T�� g��filenamef��srfi/srfi-9/gnu.scm  �   �  �   � �  T ���CFUG�����h������]6���������g��check?  �g�� orig-form  �g�� path-so-far   �g��s   �g��e   �g��e*   ��g��filenamef��srfi/srfi-9/gnu.scm  �   � '  � �   ���CNUO�����h������]6���������g��check?  �g�� orig-form  �g�� path-so-far   �g��s   �g��getter   �g��expr   ��g��filenamef��srfi/srfi-9/gnu.scm  �   � '  � �   ���CPUQ������h������]6�����������g��check?  �g�� orig-form  �g��rest   ��g��filenamef��srfi/srfi-9/gnu.scm  �   � ' � �  ���CWX�h������]34L�5$��@4L�5$��@4L�5$���O�@4L�5$�� @4L� 5$�� @4L� 5$�� @L�6���������g�� getter-type  ��g�� getter-index  ��g�� getter-copier   ��g��tmp  ��g��tmp  " ��g��tmp  9 ��g��tmp  Y ��g��tmp  p ��g��tmp  � ���   � ���CWX� �������h8������]�45$�� �O�@6������w�������g��x  2�g��tmp 2�g��tmp   2��g��filenamef��srfi/srfi-9/gnu.scm s  t �  2 ���C5ZRC��_�������g��m  ,��g��filenamef��srfi/srfi-9/gnu.scm   ( @ A �  ~ ���C6������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/srfi/srfi-31.go��������������������������������������������������������������������������0000644�����������������00000004314�15146341264�0010737 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�O�4�������h������]� g��guile � g��define-module* � � g��srfi g��srfi-31 � g��filenameS f��srfi/srfi-31.scm g��exportsS g��rec  � g��set-current-module � � g��cond-expand-provide g��current-module � g��make-syntax-transformer � � g��macro g�� $sc-dispatch � � g��any  g��each-any   g�� syntax-object !g��letrec "g��top #"� $g��ribcage %g��dummy &g��name 'g��formals (g��body )%&'(� *g��m-46961e5115-0 +*"� ,+###� -f��l-46961e5115-5 .f��l-46961e5115-6 /f��l-46961e5115-7 0f��l-46961e5115-8 1-./0� 2$),1� 3$� 4g��x 54� 6+� 7f��l-46961e5115-2 87� 9$568� :#239� ;g��hygiene <;� = !:<� >g��lambda ? >:<� @� Ag��expr B%&A� C+##� Df��l-46961e5115-f Ef��l-46961e5115-10 Ff��l-46961e5115-11 GDEF� H$BCG� I#H39� J !I<� Kg��syntax-violation LK� MK� Nf��-source expression failed to match any patternC�5�����h��r���]4    5�4�>��"��G���4i4i5�>��"��G��4 =?�h ���f���]���C������^�������g��dummy  �g��name  �g��formals   �g��body   ��   ���C@J��h���Q���]���C����I�������g��dummy  �g��name  �g��expr   ��   ���CMN��������h@���I��]4�5$��@4�5$��@�6�������A������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��srfi/srfi-31.scm  �  9 ��g�� documentationf��XReturn the given object, defined in a lexical environment where NAME is bound to itself.g�� macro-typeg�� syntax-rulesg��patternsg��nameg��formalsg��bodyg��...�g��nameg��expr���C5 RCj�������g��m  (��g��filenamef��srfi/srfi-31.scm   )  .   6  & ;  �   ���C6���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/srfi/srfi-10.go��������������������������������������������������������������������������0000644�����������������00000003523�15146341264�0010735 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0;������]�'�4�������h������]� g��guile � g��define-module* � � g��srfi g��srfi-10 � g��filenameS f��srfi/srfi-10.scm g��importsS g��ice-9 g��rdelim   � � � g��exportsS g��define-reader-ctor � g��set-current-module � � g��cond-expand-provide g��current-module � g��make-hash-table g�� reader-ctors g�� hashq-set! g�� hashq-ref g�� procedure? g��error f��unknown hash-comma tag  !g��lookup "g��read #f��%syntax error in hash-comma expression $g��length %g�� hash-comma &g��read-hash-extendC�5��h�����]4   5�4�>��"��G���4i4i5�>��"��G��4i 5R�����h ������]4�>��"��G��C�������������g��symbol  �g��proc  ��g��filenamef��srfi/srfi-10.scm =  > �   ��g��nameg��define-reader-ctor�CR �������h(������] 4�545$��C�6�����������g��symbol  $�g��p $��g��filenamef��srfi/srfi-10.scm D  E E   F   F  H  $ H �  $ ��g��nameg��lookup�C!R"#$!�������hP���6��]45"��6$��.45 $��$��45@"""��.������g��char  N�g��port  N�g��obj  N�g��p  9 B��g��filenamef��srfi/srfi-10.scm L  M  M   R   R   N   N  N   N $ $ N  ) N  , N ; - N 2 1 N  2 O  7 O  9 O  9 O  @ P  B P �  N ��g��nameg�� hash-comma�C%R&i,%i6����������g��m  ,��g��filenamef��srfi/srfi-10.scm  / - 3 2 3  : 3 & ? 3 H 8  S 8  =  D  L  V �   ���C6������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/srfi/srfi-1.go���������������������������������������������������������������������������0000644�����������������00000122634�15146341264�0010662 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]��4���h������]� g��guile � g��define-module* � � g��srfi g��srfi-1 � g��filenameS f��srfi/srfi-1.scm g��exportsS g��xcons g�� list-tabulate g�� list-copy g�� circular-list g�� proper-list? g��circular-list? g�� dotted-list? g�� null-list? g�� not-pair? g��list= g��first g��second g��third g��fourth g��fifth g��sixth g��seventh g��eighth g��ninth g��tenth g��car+cdr !g��take "g��drop #g�� take-right $g�� drop-right %g��take! &g�� drop-right! 'g��split-at (g�� split-at! )g��last *g��length+ +g�� concatenate ,g�� concatenate! -g��append-reverse .g��append-reverse! /g��zip 0g��unzip1 1g��unzip2 2g��unzip3 3g��unzip4 4g��unzip5 5g��count 6g��fold 7g�� fold-right 8g�� pair-fold 9g��pair-fold-right :g��reduce ;g�� reduce-right <g��unfold =g�� unfold-right >g�� append-map ?g�� append-map! @g��map! Ag�� pair-for-each Bg�� filter-map Cg�� partition Dg��remove Eg�� partition! Fg��remove! Gg��find Hg�� find-tail Ig�� take-while Jg�� take-while! Kg�� drop-while Lg��span Mg��span! Ng��break Og��break! Pg��any Qg��every Rg��delete-duplicates Sg��delete-duplicates! Tg�� alist-cons Ug�� alist-copy Vg�� alist-delete Wg�� alist-delete! Xg��lset<= Yg��lset= Zg�� lset-adjoin [g�� lset-union \g��lset-intersection ]g��lset-difference ^g��lset-xor _g��lset-diff+intersection `g�� lset-union! ag��lset-intersection! bg��lset-difference! cg�� lset-xor! dg��lset-diff+intersection! e   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcd�Y fg�� re-exportsS gg��cons hg��list ig��cons* jg�� make-list kg��pair? lg��null? mg��car ng��cdr og��caar pg��cadr qg��cdar rg��cddr sg��caaar tg��caadr ug��cadar vg��caddr wg��cdaar xg��cdadr yg��cddar zg��cdddr {g��caaaar |g��caaadr }g��caadar ~g��caaddr g��cadaar �g��cadadr �g��caddar �g��cadddr �g��cdaaar �g��cdaadr �g��cdadar �g��cdaddr �g��cddaar �g��cddadr �g��cdddar �g��cddddr �g��list-ref �g�� last-pair �g��length �g��append �g��append! �g��reverse �g��reverse! �g��filter �g��filter! �g��memq �g��memv �g��assq �g��assv �g��set-car! �g��set-cdr! �ghijklmnopqrstuvwxyz{|}~�3 �g�� replacementsS �g��iota �g��map �g��for-each �g�� map-in-order �g�� list-index �g��member �g��delete �g��delete! �g��assoc ��  �g��set-current-module �� �� �g��cond-expand-provide �g��current-module �� �g��load-extension �g�� string-append �f�� libguile- �g��effective-version �f��scm_init_srfi_1 �g�� scm-error �g��wrong-type-arg �g��symbol->string �f��Wrong type argument: ~S �g��make-syntax-transformer �� �� �g�� check-arg �g��macro �g�� $sc-dispatch �� �� �PPPP� �g�� syntax-object �g��if �g��top �� �g��ribcage �g��dummy �g��pred �g��arg �g��caller �� �g��m-1e8ba8b52-388 �� �� �f��l-1e8ba8b52-38d �f��l-1e8ba8b52-38e �f��l-1e8ba8b52-38f �f��l-1e8ba8b52-390 �� �� �� �g��x �� �� �f��l-1e8ba8b52-38a �� �� �� �g��hygiene �� �� �g��not �� �� �g��quote �� �g��syntax-violation �� �� �f��-source expression failed to match any pattern �g�� out-of-range �f��Value out of range: ~A �g��integer? �g��non-negative-integer? �g��error �f��not a proper list in null-list? �g�� procedure? �g�� list-head �g�� list-tail �g��any1 �f��map �f��Circular list: ~S �f��Not a list: ~S �g��min �f��.Args do not contain a proper (finite) list: ~S �f��for-each �g��apply �g��every1 �g��acons �g��equal? �g��eq? �g��eqv?C�5�����h����]4   ef5 �4�>��"��G���4i4i5�>��"��G��4i4i4i5�5>��"��G���������h������]�C�������g��d  �g��a  ��g��filenamef��srfi/srfi-1.scm �  � �   ��g��nameg��xconsg�� documentationf��dLike `cons', but with interchanged arguments. Useful mostly when passed to higher-order procedures.�C R���h������]4�5�6��������g��caller  �g��arg  ��g��filenamef��srfi/srfi-1.scm �  �  �   �  � '  � 2  � �   ��g��nameg��wrong-type-arg�CR4����h(���d���]�����C������\�������g��dummy  "�g��pred  "�g��arg   "�g��caller   "��  " ���C�����h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-1.scm � �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��predg��argg��caller���C5R�����h������]���6���������g��proc  �g��arg  ��g��filenamef��srfi/srfi-1.scm �  � �  � &  � 1  � �   ��g��nameg�� out-of-range�CR���h������]4�5$��� CC�����������g��x  ��g��filenamef��srfi/srfi-1.scm �  � ' � "  � 4�   ��g��nameg��non-negative-integer?�CR ����hX�����]4�5$��"��4�>��"��G��"��! $��C45"�"���������g��n  U�g�� init-proc  U�g��n  ) J�g��acc  ) J��g��filenamef��srfi/srfi-1.scm �    )   -   1   7  8   =  % ?   B   J   J   M   U  �  U ��g��nameg�� list-tabulateg�� documentationf��Return an N-element list, where each list element is produced by applying the procedure INIT-PROC to the corresponding list index. The order in which INIT-PROC is applied to the indices is not specified.�C R�����h(������-�1�3�H�JK4J5JJC��������������g��elt1 !�g��elts !��g��filenamef��srfi/srfi-1.scm           � ! ��g��nameg�� circular-list�CR���hx���"��-�.�,�3�#�� #�� 4�5$��"��4�>��"��G��"��%�$��6" "����������g��count t�g��start t�g��step  t�g��n  E j�g��acc  E j��g��filenamef��srfi/srfi-1.scm     E   J   N   T   W  ^  # _   b   j   j   l   t  � t ��g��nameg��iota�CR�h���t���]�C��l�������g��x  ��g��filenamef��srfi/srfi-1.scm    �   ��g��nameg�� proper-list?�CR���hX���6��]4�5$��C"��745$��C45$��C&��C"��"�.������g��x  W�g��hare  J�g��tortoise   J�g��hare  # J��g��filenamef��srfi/srfi-1.scm               #   #   &   0  : ! ? #  B #  J #  J   M   W  �  W ��g��nameg��circular-list?�CR�hp���F��]�(��C4�5$��C"��G(��C45$��C(��C45$��C&��C"��"�>������g��x  o�g��hare  b�g��tortoise   b�g��hare  3 b��g��filenamef��srfi/srfi-1.scm %  &  (   &   *  ! +  $ - . +  3 /  3 / ; 0 > 2  H 0 W 5  Z 5  b 5  b *  e *  o * �  o ��g��nameg�� dotted-list?�CR���h(������]4�5$���C4�5$��C6�����������g��x  $��g��filenamef��srfi/srfi-1.scm 7  9  8   :   ;   8  " > $ > �  $ ��g��nameg�� null-list?�CR���h���I��]�C�A������g��x  ��g��filenamef��srfi/srfi-1.scm @  E   E �   ��g��nameg�� not-pair?g�� documentationf��Return #t if X is not a pair, #f otherwise. This is shorthand notation `(not (pair? X))' and is supposed to be used for end-of-list checking in contexts where dotted lists are allowed.�CR�hH��� ��]"��1(��C(��C4L�5$��"C�"�����������g��a  C�g��b  C�g��a   7�g��b   7��g��filenamef��srfi/srfi-1.scm H   I  J   K  J   O   O  ! O # O  ' O * P  - P  5 P  7 I �  C ��g��nameg�� lists-equal�C��hx���<��-�1�3�O��Q�4�5$��"��4�>��"��G��(��C"��*$��C45$�� "C"�4������g��elt= w�g��rest w�g�� lists-equal   w�g��lists  E o�g��t  I o��g��filenamef��srfi/srfi-1.scm G  R  ? S  @ S  E T  H U  I U I U  U V  Z V  ] V * ` V  d V g W  m W  o T � w ��g��nameg��list=�CRmiRpiRviRiR���h���v���]�C������n�������g��x  ��g��filenamef��srfi/srfi-1.scm _  _  _ �  ��g��nameg��fifth�CR�����h���v���]�C�����n�������g��x  ��g��filenamef��srfi/srfi-1.scm `  `  ` �  ��g��nameg��sixth�CR�����h���x���]�C����p�������g��x  ��g��filenamef��srfi/srfi-1.scm a  a  a �  ��g��nameg��seventh�CR���h���w���]�C���o�������g��x  ��g��filenamef��srfi/srfi-1.scm b  b  b �  ��g��nameg��eighth�CR����h������]�C��w�������g��x  ��g��filenamef��srfi/srfi-1.scm c  c  c  c �   ��g��nameg��ninth�CR����h������]�C�w�������g��x  ��g��filenamef��srfi/srfi-1.scm d  d d  d �   ��g��nameg��tenth�CR����h������]��D�������������g��x  ��g��filenamef��srfi/srfi-1.scm f  h  h  h �  ��g��nameg��car+cdrg�� documentationf��3Return two values, the `car' and the `cdr' of PAIR.�C Ri!Ri"R"�������h8������]"��$��"C�4�5"��������������g��lis  1�g��k  1�g��lag   �g��lead   ��g��filenamef��srfi/srfi-1.scm q  r  s  s   t  t   t   r  ! r  1 r �  1 ��g��nameg�� take-right�C#R"�������h@���&��]"��#$��"6�4�5"�������g��lis  ?�g��k  ?�g��lag   )�g��lead   )�g��result   )��g��filenamef��srfi/srfi-1.scm w  x  y  y   z  z   z '  z ! # z  ) {  ) x  , x  5 x 1 ? x �  ? ��g��nameg�� drop-right�C$R"�h �����]  $��C4�5�C�������g��lst  �g��i  �g��tail   ��g��filenamef��srfi/srfi-1.scm }                        �   ��g��nameg��take!g�� documentationf�� Linear-update variant of `take'.�C%R"�hP���}��]4�5(��C"��%(��$���C�C"�"�����u������g��lst  K�g��i  K�g��tail  K�g��prev   >�g��tail   >��g��filenamef��srfi/srfi-1.scm                  "   &   )  # *   3   6   >   >   C   K  �  K ��g��nameg�� drop-right!g�� documentationf��&Linear-update variant of `drop-right'.�C&R'������hP�����] $��6"��) $�� 45D"�"��������g��lst  N�g��i  N�g��l   ?�g��n   ?�g��acc   ?��g��filenamef��srfi/srfi-1.scm                        )  ,   /   2  & 5  ?  ?   D  " N  �  N ��g��nameg��split-atg�� documentationf��[Return two values, a list of the elements before index I in LST, and a list of those after.�C'R(����hX�����] $��6 $���D"��% $���D"�"���������g��lst  U�g��i  U�g��l  # H�g��n  # H�g��tmp  . :��g��filenamef��srfi/srfi-1.scm                     #  '   +  .   .   3   4   :   =   @   H   H  M   U  �  U ��g��nameg�� split-at!g�� documentationf��$Linear-update variant of `split-at'.�C(R�������h������]4�5C������������g��pair  ��g��filenamef��srfi/srfi-1.scm      �  ��g��nameg��lastg�� documentationf��;Return the last element of the non-empty, finite list PAIR.�C)RPlnm����hP�����-�1�3�"��045$��64545"�"������������g��clist1 K�g��rest K�g��l  =�g��acc  =��g��filenamef��srfi/srfi-1.scm            !  *   5   =   =   B   C  ' K  � K ��g��nameg��zip�C/R�������h���n���]�6������f�������g��l  ��g��filenamef��srfi/srfi-1.scm   �  ��g��nameg��unzip1�C0R�����h������]4�54�5D��x�������g��l  ��g��filenamef��srfi/srfi-1.scm        �   ��g��nameg��unzip2�C1R�h ������]4�54�54�5D��������g��l  ��g��filenamef��srfi/srfi-1.scm        '   �   ��g��nameg��unzip3�C2R������h(������]4�54�54�54�5D�������g��l  (��g��filenamef��srfi/srfi-1.scm        '   5 (  �  ( ��g��nameg��unzip4�C3R���h8������]4�54�54�54�54�5D��������������g��l  1��g��filenamef��srfi/srfi-1.scm        '   5 '  1  �  1 ��g��nameg��unzip5�C4R6Plmn� ���h�����-�1�3�4�5$��"��4�>��"��G��(��."��(��C4�5"""��A45$��C45454�4 �5?""����������g��kons ��g��knil ��g��list1  ��g��rest  ��g��knil  6 T�g��list1  6 T�g��knil  d ��g��lists  d ��g��cars  � ��g��cdrs  � ��� g��filenamef��srfi/srfi-1.scm    2   6   <   @   E   I   L  ' T  T   d   e  q   u   ~   �  �   �   �  + �   �   �   �   �  ! �  � �  ��g��nameg��foldg�� documentationf��uApply PROC to the elements of LIST1 ... LISTN to build a result, and return that result. See the manual for details.�C6R7lnm� �����h�����-�1�3�4�5$��"��4�>��"��G��(��3"��(��C4�5"45""��945$��C454�4 4 5�5?"45"������g��kons ��g��knil ��g��clist1  ��g��rest  ��g��lst  6 T�g��result  6 T�g��lists  i ��g��result  i ���g��filenamef��srfi/srfi-1.scm    2   6   <   B   C   H   L   T  T   U   e   i   j  v   z   �   �   �  ' �  7 �   �   �  �   �   �  & �   �  � �  ��g��nameg�� fold-right�C7R8Pln� ������h�����-�1�3�4�5$��"��4�>��"��G��(��1"��!(��C4�5"""��645$��C454�4�5?""����������g��kons ��g��knil ��g��clist1  ��g��rest  ��g��knil  6 W�g��list1  6 W�g��tail  B W�g��knil  g ��g��lists  g ��g��tails  � ��� g��filenamef��srfi/srfi-1.scm    2   6   <   B   B  E   W  W   g   h  t   x   �  �   �   �  , �   �   �   �   �  ! �  � �  ��g��nameg�� pair-fold�C8R9�����h ������]�(��LCL��4L�56��������������g��list1  ��g��filenamef��srfi/srfi-1.scm                 �   ��g��nameg��f�CPln��������h0������]4�5$��LCL�4�4L4�55�5@���������g��lists  .��g��filenamef��srfi/srfi-1.scm             )   , '  ) *  # ,   .  �  . ��g��nameg��f�C�������hh������-�1�3�4�5$��"��4�>��"��G��(��O��Q�6O��Q�6��������g��kons g�g��knil g�g��clist1  g�g��rest  g�g��f  < K�g��f  U g��g��filenamef��srfi/srfi-1.scm    2   <   U   e   g  � g  ��g��nameg��pair-fold-right�C9R��h���\���]C����T�������g��x  ��g��filenamef��srfi/srfi-1.scm  1   =�   ���C<���h����-�.�,�3� #��"��/"��(��C"45"4�5$��"��4�>��"��G��45$��"��4>��"��G��45$��"��4>��"��G��45$��"��4>��"��G��"��04�5$�� "*4545""���� ������g��p �g��f �g��g  �g��seed  �g��tail-gen  �g��lst   I�g��seed   I�g��lst   8�g��result   8�g��seed  �  �g��result  �  �� g��filenamef��srfi/srfi-1.scm        $   *   -   0   8  8   ;   I   J   m   �   �   �   �   �   �   �   �                 �   ��g��nameg��unfold�C<R=�h���O��-�.�,�3�#��4�5$��"��4�>��"��G��45$��"��4>��"��G��45$��"��4>��"��G��"��'4�5$��C4545""���G������g��p ��g��f ��g��g  ��g��seed  ��g��tail  ��g��seed  � ��g��lis  � ���g��filenamef��srfi/srfi-1.scm    3    9   \   �   �   �   �  �   �   �   �  � �  ��g��nameg�� unfold-right�C=R:6��h@�����]4�5$��"��4�>��"��G��(��C�6������������g��f  :�g�� ridentity  :�g��lst   :��g��filenamef��srfi/srfi-1.scm   %  + &  5 (  8 (  : ( �  : ��g��nameg��reduceg�� documentationf��`reduce' is a variant of `fold', where the first call to F is on two elements from LST, rather than one element and a given initial value. If LST is empty, RIDENTITY is returned. If LST has just one element then that's the return value.�C:R:��������h�����]�456�������������g��f  �g�� ridentity  �g��lst   ��g��filenamef��srfi/srfi-1.scm * /   / �   ��g��nameg�� reduce-rightg�� documentationf��`reduce-right' is a variant of `fold-right', where the first call to F is on two elements from LST, rather than one element and a given initial value. If LST is empty, RIDENTITY is returned. If LST has just one element then that's the return value.�C;R6*���h(������] 4�5$��$��6CC����������g��ls  %�g��len  %�g��ls-len  %��g��filenamef��srfi/srfi-1.scm F   G & G   H   I   I )�  % ���C*nm�����h����)���3�4�5$��"��4�>��"��G��"��|$��Y$��6&���64�5"4�5"(��6 �6"r-�1�3�4�5$��"��4�>��"��G��4  4 55$��"��4 �>��"��G��"��= $��6454�45?""�������������g��f ��g��l ��g��hare  0 ��g��tortoise  0 ��g��move?  0 ��g��out  0 ��g��f � y�g��l1 � y�g��rest  � y�g��len  � y�g��l1  ) f�g��rest  ) f�g��len  ) f�g��out  ) f��g��filenamef��srfi/srfi-1.scm 2  4  0 5  3 6 7 6  = 7 E 8  I 9  K 9 . M 9 4 R :  U 9  X ;  [ ; $ ] <  b < d <  g <  s ;  v =  z >   >  � >  � >  � =  � ? � @  � A  � A * � A 0 � B  � A  � 5  � 5 6 � 5  � 2  � E  � F  � K  � F  � F   M   N  N   N &  O   P   P   N ) Q  , R 1 R 7 S : T  ; T  F T + G U  L U " M U + W U  Z U  f T f Q  m Q 5 y Q �B � � � y  ��g��nameg��map�CRiR6*�h(������] 4�5$��$��6CC����������g��ls  %�g��len  %�g��ls-len  %��g��filenamef��srfi/srfi-1.scm p   q & q   r   s   s )�  % ���C*mn���h��Z��)���3�4�5$��"��4�>��"��G��"��$��e$��<&���64�>��"��G��"4�>��"��G��"(��C�6"m-�1�3�4�5$��"��4�>��"��G��4  4 55$��"��4 �>��"��G��"��A $��74 �45>��"��G��45"C"�R������g��f ��g��l ��g��hare  0 ��g��tortoise  0 ��g��move?  0 ��g��f � �g��l1 � �g��rest  � �g��len  � �g��l1  . o�g��rest  . o�g��len  . o�� g��filenamef��srfi/srfi-1.scm Z  \  0 ]  3 ^ 7 ^  = _ E `  I a  K a . M a 9 R b  U a  V d  [ d  ` d  k e n e + y e  z g   g  � g  � h  � h  � j � k  � k * � k 5 � l  � k  � ]  � Z  � o  � p  � u  � p  � p   w   x  x   x &  y   z   z  " x . {  2 | 6 | 7 ~  > ~  ? ~ ! L ~  W   X  # c  2 m   o { �9 � � �   ��g��nameg��for-each�CR+���h������-�1�3�4�?6�������g��f �g��clist1 �g��rest  ��g��filenamef��srfi/srfi-1.scm      �   ��g��nameg�� append-map�C>R,�h������-�1�3�4�?6�������g��f �g��clist1 �g��rest  ��g��filenamef��srfi/srfi-1.scm      �   ��g��nameg�� append-map!�C?Ri@RBlmn� ��h�����-�1�3�4�5$��"��4�>��"��G��(��H"��9(��64�5$��""""��R45$��64�45?$��4 5"4 5""��������g��proc ��g��list1 ��g��rest  ��g��l  6 o�g��rl  6 o�g��res  J o�g��l  ~ ��g��rl  ~ ��g��res  � ��� g��filenamef��srfi/srfi-1.scm    2   6   <   B  C   H   J   J  R   U   Z   b   e   o   o   r   z   ~     �   �  �   �  # �   �  �   �   �  " �   �   �   �   �   �   �  �& �  ��g��nameg�� filter-mapg�� documentationf��Apply PROC to the elements of LIST1... and return a list of the results as per SRFI-1 `map', except that any #f results are omitted from the list returned.�CBRAln� �������h���V��-�1�3�4�5$��"��4�>��"��G��(��/"��#(��C4�>��"��G��"""��245$��C4�>��"��G��45""������N������g��f ��g��clist1 ��g��rest  ��g��l  6 Y�g��l  e ���g��filenamef��srfi/srfi-1.scm    2   6   <   ?  S   Y  Y   e   f  r   u  �   �  �   �   �  � �  ��g��nameg�� pair-for-each�CARI�����h�����]4�5$��"��4�>��"��G��(��C4�5$��H�"��/(��C4�5$���"C"C�����������g��pred  ��g��ls  ��g��result  ? ��g��ls  E t�g��p  E t��g��filenamef��srfi/srfi-1.scm     +   ,   .   3   5   9   <   ?   ?  E  K  O   T   V   Z  _  & b  c   f   i  ! q   t  w   �  �  �  � ��g��nameg�� take-whileg�� documentationf��jReturn a new list which is the longest initial prefix of LS whose elements all satisfy the predicate PRED.�CIRJ����hh���e��]4�5$��"��4�>��"��G��"��2(��C4�5$�� "$��CC"��]������g��pred  f�g��lst  f�g��prev  ) [�g��rest  ) [��g��filenamef��srfi/srfi-1.scm     )   /   3  8   :  >   C   K  N   R  U  V   Z   [  �  f ��g��nameg�� take-while!g�� documentationf��&Linear-update variant of `take-while'.�CJRK������hX���\��] 4�5$��"��4�>��"��G��"�� (��C4�5$�� "C"�������T������g��pred  Q�g��lst  Q�g��lst  ) I��g��filenamef��srfi/srfi-1.scm     )   /   0  2  7   9  =   @   F  I  �  Q ��g��nameg�� drop-whileg�� documentationf��UDrop the longest initial prefix of LST whose elements all satisfy the predicate PRED.�CKRL�����hh�����]4�5$��"��4�>��"��G��"��3(��"��4�5$��"45D"�������g��pred  g�g��lst  g�g��lst  ) \�g��rl  ) \��g��filenamef��srfi/srfi-1.scm     )   /   5  :   <  @   C  F   I   Q   R   \   \   _   g  �  g ��g��nameg��spang�� documentationf��}Return two values, the longest initial prefix of LST whose elements all satisfy the predicate PRED, and the remainder of LST.�CLRM��������hp���~��]4�5$��"��4�>��"��G��"��:(��D4�5$�� "$�� DD"��v������g��pred  n�g��list  n�g��prev  ) c�g��rest  ) c��g��filenamef��srfi/srfi-1.scm     )   /   2   4  5  :   <  @   E   M  P   T  W  X   ^   _   c   c  �  n ��g��nameg��span!g�� documentationf�� Linear-update variant of `span'.�CMRN���hh�����]4�5$��"��4�>��"��G��"��3(��"��4�5$�� 45D""�������g��pred  g�g��clist  g�g��clist  ) \�g��rl  ) \��g��filenamef��srfi/srfi-1.scm     )   /   0  5  :   <  @   A   K   N � Q �  T �  \ �  \   _   g  �  g ��g��nameg��breakg�� documentationf��zReturn two values, the longest initial prefix of LST whose elements all fail the predicate PRED, and the remainder of LST.�CNRO�����hp���}��]4�5$��"��4�>��"��G��"��:(��D4�5$��$�� DD""��u������g��pred  n�g��list  n�g��l  ) c�g��prev  ) c��g��filenamef��srfi/srfi-1.scm     )   /   2   4  5  :   <  @   C   G  J  K   Q   R   V   Y   c  c  �  n ��g��nameg��break!g�� documentationf��!Linear-update variant of `break'.�CORPlnm� ���h���u��-�1�3�4�5$��"��4�>��"��G��(���6"��X45$��C4455$�� �45@4�45?$��C45""�������m������g��pred ��g��ls ��g��lists  ��g��lists  > ��g��t  | ���g��filenamef��srfi/srfi-1.scm    2   :   >   ?   K   N   S   ]   a   d   n   o   r   |   |   �  4 �  0 �   �   �  � �  ��g��nameg��any�CPR������h@��� ��]"��2(��C(���64�5$��C""������g��pred  @�g��ls  @�g��ls   8�g��t  $ 8��g��filenamef��srfi/srfi-1.scm        "      #   #  %  " %  $ %  $ % 2 % # 8 %  8  �  @ ��g��nameg��any1�CRQlnm� ����h���h��-�1�3�4�5$��"��4�>��"��G��(���6"��S45$��C4455$�� �4 5@4�4 5?$��45"C"����`������g��pred ��g��ls ��g��lists  ��g��lists  > ���g��filenamef��srfi/srfi-1.scm ' (  2 )  : *  > +  ? ,  K ,  N .  S .  ] .  a ,  d /  n /  o 1  r 1 | 1  � 1  � 1 5 � 1 1 � +  � +  � + � �  ��g��nameg��every�CQR���h@������] "��-(��C(���64�5$�� "C"������������g��pred  ;�g��ls  ;�g��ls   3��g��filenamef��srfi/srfi-1.scm 3  4  5   7   5   8   8  :  " :  $ :  ( : + : $ 1 : 3 4 �  ; ��g��nameg��every1�CRlmn� ���h���A��-�1�3�4�5$��"��4�>��"��G��(��4"��%(��C4�5$��C" ""��845$��C4�45?$��C45" "9������g��pred ��g��clist1 ��g��rest  ��g��l  6 [�g��i  6 [�g��lists  j ��g��i  j ���g��filenamef��srfi/srfi-1.scm < ?  2 @  6 A  < B  ? D D D  F D J D  P F  S F  [ F [ A  j G  k H w H  z J } J  � J � H  � L  � L ! � L � G  � G  � G � �  ��g��nameg�� list-indexg�� documentationf��gReturn the index of the first set of elements, one from each of CLIST1 ... CLISTN, that satisfies PRED.�CRiTRT�����h8���r��]"��&(��645"�"�j������g��alist  7�g��a  ,�g��rl   ,��g��filenamef��srfi/srfi-1.scm R  U  W   X   Y  Y   Y  Y ) $ Y  , Y  , U  / V  7 U �  7 ��g��nameg�� alist-copyg�� documentationf��eReturn a copy of ALIST, copying both the pairs comprising the list and those making the associations.�CURV�����h���N��-�.�,�3�#��45$��"��4>��"��G��"��9(��64�5$�� """�������F������g��key ��g��alist ��g��k=  ��g��a  = v�g��rl  = v��g��filenamef��srfi/srfi-1.scm [  \  = ]  C ^  I _  J ` Q `  T ` X `  [ a  e a h b  k b  n b  v b v ]  y ]  � ] � �  ��g��nameg�� alist-delete�CVRV�������h ������-�.�,�3�#���6�������g��key �g��alist �g��k=  ��g��filenamef��srfi/srfi-1.scm d e �  ��g��nameg�� alist-delete!�CWRH�����h���\���]LL��6������T�������g��y  ��g��filenamef��srfi/srfi-1.scm q  q �  ���C� hh������-�.�,�3�#��&���6&���645$��"��4>��"��G��  �O�6�������g��x h�g��ls h�g��=  h��g��filenamef��srfi/srfi-1.scm i  j  & m  . j  6 n  7 p  h q � h  ��g��nameg��member�CRXQ���h���f���]�LL�6���^�������g��el  ��g��filenamef��srfi/srfi-1.scm {  { 0 { %�  ���C�������hx�����-�1�3�4�5$��"��4�>��"��G��(��C"��,(��C4�O�5$��"C"������ ������g��= r�g��rest r�g��f  8 d�g��r  8 d��g��filenamef��srfi/srfi-1.scm u v  2 w  8 y  > z  ? z A {  T { W |  Z |  b |  d y  g y  j y ! r y � r ��g��nameg��lset<=�CXRXQ��h���f���]�LL�6���^�������g��el  ��g��filenamef��srfi/srfi-1.scm    .  #�  ���C�����h���k���]L��6������c�������g��x  �g��y  ��g��filenamef��srfi/srfi-1.scm  0  >�  ���C��h���]���]�LL�O�6�������U�������g��el  ��g��filenamef��srfi/srfi-1.scm     #�   ���C��������h���<��-�1�3�4�5$��"��4�>��"��G��(��C"��C(��C4�O�5$��%4�O�5$��"CC"�������4������g��= ��g��rest ��g��f  8 {�g��r  8 {��g��filenamef��srfi/srfi-1.scm ~   2   8   >   ?  A   T  U   c  I e   i  l   o   w   {   ~   �   �  � � ��g��nameg��lset=�CYRZ����h���k���]L��6������c�������g��x  �g��y  ��g��filenamef��srfi/srfi-1.scm   �  ���C��������h�����-�1�3�H�&��"���$���"��*4�5$��"��4�>��"��G���O�K"��0(��C4J5$��"��""����������g��= ��g��list ��g��rest  ��g��pred  ��g��ans  X ��g��rest  X ���g��filenamef��srfi/srfi-1.scm          "   )  X   ^   b   g   m   q  z   }   �  �   �  � �  ��g��nameg�� lset-adjoing�� documentationf�lAdd to LIST any of the elements of REST not already in the list. These elements are `cons'ed onto the start of LIST (so the return shares a common tail with LIST), but the order they're added is unspecified. The given `=' procedure is used for comparing elements, called as `(@var{=} listelem elem)', i.e., the second argument is one of the given REST parameters.�CZR[������h���k���]L��6������c�������g��x  �g��y  ��g��filenamef��srfi/srfi-1.scm   �  ���C66��h ������]4�M�5$��C�C������y�������g��elt  �g��ans  ��g��filenamef��srfi/srfi-1.scm           �   ���C����h0���x���]�(��C(���C�&��CL�O��6��p�������g��lis  .�g��ans  .��g��filenamef��srfi/srfi-1.scm     .  �  . ���C� ����hh������-�1�3�H�&��"���$���"��*4�5$��"��4�>��"��G���O�KO�6�������������g��= b�g��rest b�g��pred  b��g��filenamef��srfi/srfi-1.scm          "   )  ^   b  � b ��g��nameg�� lset-union�C[R\Q�������h���f���]L�L�6���^�������g��ll  ��g��filenamef��srfi/srfi-1.scm     &  �  ���C�������h���?��-�1�3�4�5$��"��4�>��"��G��"��>(��64�O�5$��"""�������7������g��= y�g��list1 y�g��rest  y�g��l  0 n�g��acc  0 n��g��filenamef��srfi/srfi-1.scm    0   6   <   =  P   S  V   Y   a   d  n   n   q   y  � y  ��g��nameg��lset-intersection�C\R]P�����h���f���]L�L�6���^�������g��ll  ��g��filenamef��srfi/srfi-1.scm     &  �  ���C�������h���K��-�1�3�4�5$��"��4�>��"��G��(��C"��>(��64�O�5$�� """������C������g��= ��g��list1 ��g��rest  ��g��l  9 w�g��acc  9 w��g��filenamef��srfi/srfi-1.scm    2   9   ?   E   F  Y   \   f  i   l   o   w  w   z   �  � �  ��g��nameg��lset-difference�C]R^6�h�����]""��~(��J"��:(��64�L�5$�� """4L�5$�� ""�"w�������g��lst  ��g��res  ��g��l   ��g��acc   ��g��r   J�g��acc   J��g��filenamef��srfi/srfi-1.scm                  "   (   ,   /   9   <   ?  ' B  ! J   J   W   \   b   f   i   s   v   y  " |   �   �  �  �  �  � ���C�h@������-�1�3�4�5$��"��4�>��"��G���O�6�������������g��= :�g��rest :��g��filenamef��srfi/srfi-1.scm    6   :  � : ��g��nameg��lset-xor�C^R_Q�������h���f���]L�L�6���^�������g��ll  ��g��filenamef��srfi/srfi-1.scm     1  )�  ���C�������h�����-�1�3�4�5$��"��4�>��"��G��"��X(��4545D4�O�5$��"""��������g��= ��g��list1 ��g��rest  ��g��l  0 ��g��accd  0 ��g��acci  0 ��g��appears  V ���g��filenamef��srfi/srfi-1.scm    0   6   7   >   F   G   V   ^   a   f  ! i   s  v   y   |   �  �   �   �  & �  � �  ��g��nameg��lset-diff+intersection�C_R`[��h8������-�1�3�4�5$��"��4�>��"��G���@�����������g��= 4�g��rest 4��g��filenamef��srfi/srfi-1.scm    4  � 4 ��g��nameg�� lset-union!�C`Ra\��h8������-�1�3�4�5$��"��4�>��"��G���@���������g��= 6�g��list1 6�g��rest  6��g��filenamef��srfi/srfi-1.scm    6  � 6  ��g��nameg��lset-intersection!�CaRc^������h8������-�1�3�4�5$��"��4�>��"��G���@�����������g��= 4�g��rest 4��g��filenamef��srfi/srfi-1.scm    4  � 4 ��g��nameg�� lset-xor!�CcRd_����h8������-�1�3�4�5$��"��4�>��"��G���@���������g��= 6�g��list1 6�g��rest  6��g��filenamef��srfi/srfi-1.scm    6  � 6  ��g��nameg��lset-diff+intersection!�CdRC���������g��m  0��g��filenamef��srfi/srfi-1.scm  ' 1 � 6 �  > � & C � L � Q �  W �  X � + ` �  b �  g �  � l �  �  �  �    /    %  7  @  G  [  \ $ ] + ^  _ Y `  a  b * c  d  f  j  k  q  w  }    "  #  %9  %  &  'D  (  )  ,z  /]  2*  5s  9%  ;B  =X  ?@ * E 1 E W K Y Lg  M8  M?  QD  Si  V*  X  Y  \  ^)  `q  bx  d  f  hC ' i 3 l < l P nm R pa [ q6 d r i u' u x ~ |  ������  ������  ������  ������@  ������2  ������  ������  ������  ������  �a ������ ���C6�����������������������������������������������������������������������������������������������������2.0/ccache/srfi/srfi-16.go��������������������������������������������������������������������������0000644�����������������00000000704�15146341264�0010741 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]��4�����h�������]� g��guile � g��define-module* � � g��srfi g��srfi-16 � g��filenameS f��srfi/srfi-16.scm g�� re-exportsS g�� case-lambda  � g��set-current-module � �C�5���h(���R���]4    5�4�>��"��G���CJ�������g��m  (��g��filenamef��srfi/srfi-16.scm / �  ( ���C6�������������������������������������������������������������2.0/ccache/srfi/srfi-34.go��������������������������������������������������������������������������0000644�����������������00000011613�15146341264�0010742 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0s������]�z�4����hn������]� g��guile � g��define-module* � � g��srfi g��srfi-34 � g��filenameS f��srfi/srfi-34.scm g��exportsS g��with-exception-handler g��guard   � g�� replacementsS g��raise � g��set-current-module � � g��cond-expand-provide g��current-module � g�� throw-key g��with-throw-handler g��throw g��make-syntax-transformer � � g��macro g�� $sc-dispatch � !� "g��any #g��each+ $g��free-id %g�� syntax-object &g��else 'g��top ('� )g��ribcage *)� +g��x ,+� -g��m-46961e5118-a .-'� /.� 0f��l-46961e5118-c 10� 2),/1� 3(*2� 4g��hygiene 54� 6%&35� 7$6� 8g��each-any 9"8 :79 ;:� <#";� ="< >=9 ?"> @g��catch Ag��dummy Bg��var Cg��clause Dg��e Eg��e* Fg��body Gg��body* HABCDEFG� I.((((((� Jf��l-46961e5118-f Kf��l-46961e5118-10 Lf��l-46961e5118-11 Mf��l-46961e5118-12 Nf��l-46961e5118-13 Of��l-46961e5118-14 Pf��l-46961e5118-15 QJKLMNOP� R)HIQ� S(R*2� T%@S5� U%S5� Vg��lambda W%VS5� Xg��key Y%XS5� Zg��cond [%ZS5� \g��append ]\� ^\� _%&S5� `"9 a`9 b"a cg��clause* dABCcFG� e.(((((� ff��l-46961e5118-21 gf��l-46961e5118-22 hf��l-46961e5118-23 if��l-46961e5118-24 jf��l-46961e5118-25 kf��l-46961e5118-26 lfghijk� m)del� n(m*2� o%@n5� p%n5� q%Vn5� r%Xn5� s%Zn5� t%&n5� u%n5� vg��syntax-violation wv� xv� yf��-source expression failed to match any patternC�5�����h �����]4   5�4�>��"��G���4i4i5�>��"��G��R�����h���n���]L�6f�������g��key  �g��obj  ��g��filenamef��srfi/srfi-34.scm ,   - �   ���C�������h�����]�O�6�������������g��handler  �g��thunk  ��g��filenamef��srfi/srfi-34.scm %  * �   ��g��nameg��with-exception-handlerg�� documentationf��Returns the result(s) of invoking THUNK. HANDLER must be a procedure that accepts one argument. It is installed as the current exception handler for the dynamic extent (as determined by dynamic-wind) of the invocation of THUNK.�C R�����h�����]�6������������g��obj  ��g��filenamef��srfi/srfi-34.scm / 5 �  ��g��nameg��raiseg�� documentationf�6Invokes the current exception handler on OBJ. The handler is called in the dynamic environment of the call to raise, except that the current exception handler is that in place for the call to with-exception-handler that installed the handler being called. The handler's continuation is otherwise unspecified.�CR4 !?TUWY[^_�����h8������]�4�5��C����������g��dummy  5�g��var  5�g��clause   5�g��e   5�g��e*   5�g��body   5�g��body*   5��  5 ���Cbopqrs^tu� ���h@������]�4���5��C���������g��dummy  >�g��var  >�g��clause   >�g��clause*   >�g��body   >�g��body*   >��  > ���Cxy�����h@�����]4�5$��@4�5$��@�6������� ������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��srfi/srfi-34.scm 8 �  9 ��g�� documentationf�Syntax: (guard (<var> <clause1> <clause2> ...) <body>) Each <clause> should have the same form as a `cond' clause. Semantics: Evaluating a guard form evaluates <body> with an exception handler that binds the raised object to <var> and within the scope of that binding evaluates the clauses as if they were the clauses of a cond expression. That implicit cond expression is evaluated with the continuation and dynamic environment of the guard expression. If every <clause>'s <test> evaluates to false and there is no else clause, then raise is re-invoked on the raised object within the dynamic environment of the original call to raise except that the current exception handler is that of the guard expression.g�� macro-typeg�� syntax-rulesg��patternsg��varg��clauseg��...g��elseg��eg��e*g��...��g��bodyg��body*g��...�g��varg��clauseg��clause*g��...�g��bodyg��body*g��...���C5 RC�����������g��m  ,��g��filenamef��srfi/srfi-34.scm   - ! 2 !  : ! & ? ! I #  L #  % u / �  ���C6����������������������������������������������������������������������������������������������������������������������2.0/ccache/srfi/srfi-6.go���������������������������������������������������������������������������0000644�����������������00000002167�15146341264�0010665 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0_������]��4��������h������]� g��guile � g��define-module* � � g��srfi g��srfi-6 � g��filenameS f��srfi/srfi-6.scm g�� re-exportsS g��get-output-string  � g�� replacementsS g��open-input-string g��open-output-string � g��set-current-module � � g��%default-port-encoding f��UTF-8 � � � � g��cond-expand-provide g��current-module �C�5�������h��}���]4    5�4�>��"��G�����h������]Y4�>��ZCZF���������g��s  ��g��filenamef��srfi/srfi-6.scm  ! ( "  "   " �   ��g��nameg��open-input-string�CR����h������]�Y4>���ZCZF����x�������g��filenamef��srfi/srfi-6.scm $  % ( &  &   & �   ��g��nameg��open-output-string�CRi4i5�6������u�������g��m  ,��g��filenamef��srfi/srfi-6.scm   �  $  (   ( &  ( �   ���C6����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/srfi/srfi-45.go��������������������������������������������������������������������������0000644�����������������00000077560�15146341264�0010761 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0X������]�4�������hE������]� g��guile � g��define-module* � � g��srfi g��srfi-45 � g��filenameS f��srfi/srfi-45.scm g��importsS g��srfi-9  �  � g��gnu  � � � g��exportsS g��delay g��lazy g��force g��eager g��promise? � g�� replacementsS � g��set-current-module � � g��cond-expand-provide g��current-module !� "g��promise #g��%make-promise-procedure $g��make-syntax-transformer %$� &$� 'g�� make-promise (g��macro )g�� $sc-dispatch *)� +)� ,g��_ -g��any .,-� /g�� syntax-object 0g��lambda 1g��m-46961e513e-4 2g��top 312� 4g��ribcage 5g��t-46961e513e-3 65� 73� 8f��l-46961e513e-9 98� :4679� ;4� <g��x =<� >f��l-46961e513e-6 ?>� @4=7?� Ag��shift Bg�� proc-name Cg��args DBC� E2� FEE� Gf��l-1e8ba8b5a-2ba Hf��l-1e8ba8b5a-2bb IGH� J4DFI� Kg��key Lg��value Mg��name Ng��formals Og��body PKLMNO� QEEEEE� Rf��l-1e8ba8b5a-2ad Sf��l-1e8ba8b5a-2ae Tf��l-1e8ba8b5a-2af Uf��l-1e8ba8b5a-2b0 Vf��l-1e8ba8b5a-2b1 WRSTUV� X4PQW� Yg��make-procedure-name ZY� [E� \f��l-1e8ba8b5a-29d ]\� ^4Z[]� _E� `f��l-1e8ba8b5a-29c a`� b4=_a� c3:;@A;;;;JX^b�  dg��hygiene ed � f/0ce� gg��val hE:;@� id� j/ghi� kj� lg�� make-struct mg��m-46961e513e-1 nm2� og��t-1e8ba8b5a-38d pg��t-1e8ba8b5a-38c qg��t-1e8ba8b5a-38b ropq� sg��m-1e8ba8b5a-38e ts2� uttt� vf��l-1e8ba8b5a-392 wf��l-1e8ba8b5a-393 xf��l-1e8ba8b5a-394 yvwx� z4ruy� {g�� ctor-args |{� }f��l-1e8ba8b5a-37a ~}� 4|_~� �g��ctor �g��field �� �f��l-1e8ba8b5a-376 �f��l-1e8ba8b5a-377 �� �4F� �g��form �g�� type-name �g��constructor-spec �g�� field-names �� �EEEE� �f��l-1e8ba8b5a-36b �f��l-1e8ba8b5a-36c �f��l-1e8ba8b5a-36d �f��l-1e8ba8b5a-36e �� �4� �g�� record-layout �g��functional-setters �g��setters �g��copier �g��getters �g�� constructor �g��getter-identifiers �g��field-identifiers �� �EEEEEEEE� �f��l-1e8ba8b5a-343 �f��l-1e8ba8b5a-341 �f��l-1e8ba8b5a-33f �f��l-1e8ba8b5a-33d �f��l-1e8ba8b5a-33b �f��l-1e8ba8b5a-339 �f��l-1e8ba8b5a-337 �f��l-1e8ba8b5a-335 �� �4� �f��l-1e8ba8b5a-334 �� �4=_� �n:;@A;z;;;;� �/le� �/"hi� �/ e� �j� �fk� �g��each-any �, �g��syntax-violation � � � � �f��Wrong number of arguments �g�� identifier? � � � � �E;@� �/#i� �� �� �f��-source expression failed to match any pattern �g��record-type-vtable � � � � �g��pw �g��default-record-printer � � � � �g� �g��set-struct-vtable-name! � � � � �g��vtable-offset-user � � � � �g��%promise?-procedure �g��m-46961e513e-11 �2� �g��t-46961e513e-10 �� �� �f��l-46961e513e-16 �� �4� �f��l-46961e513e-13 �� �4=� �;A;;;;JX^b�  �/0e� �g��obj �g��t-1e8ba8b5a-47e �g��t-1e8ba8b5a-478 �g��t-1e8ba8b5a-479 �g��t-1e8ba8b5a-47a �g��t-1e8ba8b5a-47d �g��t-1e8ba8b5a-47c �g��t-1e8ba8b5a-47b �� �g��m-1e8ba8b5a-47f �2� �� �f��l-1e8ba8b5a-483 �f��l-1e8ba8b5a-484 �f��l-1e8ba8b5a-485 �f��l-1e8ba8b5a-486 �f��l-1e8ba8b5a-487 �f��l-1e8ba8b5a-488 �f��l-1e8ba8b5a-489 �� �4� �g�� copier-id �� �f��l-1e8ba8b5a-476 �� �4_� �g�� ctor-name �� �f��l-1e8ba8b5a-46e �� �4_� �� �f��l-1e8ba8b5a-46c �� �4_� �g��layout �� �f��l-1e8ba8b5a-46a �� 4_�� g�� immutable? � f��l-1e8ba8b5a-468 � 4_� g�� field-count �  f��l-1e8ba8b5a-466   �  4_ �  g�� getter-ids   � f��l-1e8ba8b5a-463 � 4 _� g�� field-ids � f��l-1e8ba8b5a-460 � 4_� g��predicate-name g�� field-spec � EEEEEE� f��l-1e8ba8b5a-453 f��l-1e8ba8b5a-454 f��l-1e8ba8b5a-455 f��l-1e8ba8b5a-456 f��l-1e8ba8b5a-457 f��l-1e8ba8b5a-458  � !4 � "n;A;;;;;;;;;; ;;!� #/"e� $#� %g��and &/%"e� 'g��struct? (/'"e� )(#� *g��eq? +/*"e� ,g�� struct-vtable -/,"e� .-#� /E;� 0/"/i� 1+.0� 2&)1� 3$2� 4E;� 5/4i� 6g��throw-bad-struct 7 6� 8 6� 9g�� promise-val :g��%promise-val-procedure ;g��free-id <g�� %%on-error =g��m-46961e513e-1d >=2� ?>� @f��l-46961e513e-1f A@� B4=?A� C>;BA;;;;JX^b�  D/<Ce� E;D� FE-� Gg��%%type Hg��t-1e8ba8b5a-3a5 Ig��t-1e8ba8b5a-3a6 Jg��t-1e8ba8b5a-3a7 Kg��t-1e8ba8b5a-3a8 Lg��t-1e8ba8b5a-3a9 Mg��t-1e8ba8b5a-3aa Ng��t-1e8ba8b5a-3ab OHIJKLMN� Pg��m-1e8ba8b5a-3ac QP2� RQQQQQQQ� Sf��l-1e8ba8b5a-3b0 Tf��l-1e8ba8b5a-3b1 Uf��l-1e8ba8b5a-3b2 Vf��l-1e8ba8b5a-3b3 Wf��l-1e8ba8b5a-3b4 Xf��l-1e8ba8b5a-3b5 Yf��l-1e8ba8b5a-3b6 ZSTUVWXY� [4ORZ� \g��getter ]g��index ^\]� _f��l-1e8ba8b5a-3a3 `f��l-1e8ba8b5a-3a4 a_`� b4^Fa� c � dEEE� ef��l-1e8ba8b5a-39e ff��l-1e8ba8b5a-39f gf��l-1e8ba8b5a-3a0 hefg� i4cdh� jn;BA;[;;;b;i� k/Gje� l;k� m,Fl-� ng��ck og��err pg��s qop� r>>� sf��l-46961e513e-22 tf��l-46961e513e-23 ust� v4qru� w>v;BA;;;;JX^b�  x/nwe� yg��quote z/ywe� {Ev;B� |/"{i� }z|� ~}� g��%%index /je� ;� ,F-� f��l-46961e513e-27 f��l-46961e513e-28 � 4qr� >;BA;;;;JX^b�  /ne� /ye� ;B� / i� � � g��%%copier /je� ;� ,F-� f��l-46961e513e-2c f��l-46961e513e-2d � 4qr� >;BA;;;;JX^b�  /ne� /ye� g��%%promise-set-fields E;B� /i� � � g��t-46961e513e-1c � f��l-46961e513e-31 � 4?� >;BA;;;;JX^b�  /0e� n;BA;[;;;b;i� /pe� � g��if /e� /*e� /,e� � E;B� /"i� � g�� struct-ref /e� ;B� / i� � /6e� /ye� /9i� � � � � E;B� /:i� g��each --� � - - -Œ g�� %%set-fields g��dummy g��check? g��expr p\� g��m-46961e513e-38 2� nnnn� f��l-46961e513e-3d f��l-46961e513e-3e f��l-46961e513e-3f f��l-46961e513e-40 f��l-46961e513e-41 � 4� � f��l-46961e513e-3a � 4=� g��t-1e8ba8b5a-3c4 g��t-1e8ba8b5a-3c6 g��t-1e8ba8b5a-3c5 � g��m-1e8ba8b5a-3c7 2� � f��l-1e8ba8b5a-3cb f��l-1e8ba8b5a-3cc f��l-1e8ba8b5a-3cd � 4� f��l-1e8ba8b5a-3c1 f��l-1e8ba8b5a-3c2 f��l-1e8ba8b5a-3c3 � 4cd� n;A;;;;�  /e� E;� /"i� /9i� � g��map � � g��list g��promise-val-set! g��%promise-val-set!-procedure ,--� g��m-46961e513e-4c 2� g��t-46961e513e-4a g��t-46961e513e-4b � � f��l-46961e513e-51 f��l-46961e513e-52 � 4� � �f��l-46961e513e-4e �� 4=� ;A;;;;JX^b�  /0e� g��t-1e8ba8b5a-3e6 g��t-1e8ba8b5a-3e7 � g��m-1e8ba8b5a-3e8  2�    �  f��l-1e8ba8b5a-3ec  f��l-1e8ba8b5a-3ed    � 4  � g��setter M\� f��l-1e8ba8b5a-3e0 f��l-1e8ba8b5a-3e1 f��l-1e8ba8b5a-3e2 � 4d� ]� f��l-1e8ba8b5a-3d7 f��l-1e8ba8b5a-3d8 � 4F� g�� field-specs � f��l-1e8ba8b5a-3d3 f��l-1e8ba8b5a-3d4 �  4F� !n;A;;; � "/p!e� #/g!e� $"#� %/!e� &/*!e� '/,!e� ('"� )E;� */")i� +&(*� ,g�� struct-set! -/,!e� .;� // .i� 0-"/#� 1/6!e� 2/y!e� 3/)i� 423� 51"4� 6%+05� 7$6� 8E;� 9/8i� :g��%make-value-procedure ;g�� make-value <g��m-46961e513e-6d =<2� >g��t-46961e513e-6b ?g��t-46961e513e-6c @>?� A==� Bf��l-46961e513e-72 Cf��l-46961e513e-73 DBC� E4@AD� F=� Gf��l-46961e513e-6f HG� I4=FH� J=E;IA;;;;JX^b�  K/0Je� Lg��tag MEE;I� N/LMi� Og��proc P/OMi� QNP� Rg��m-46961e513e-69 SR2� TSE;IA;z;;;;� U/lTe� V/LMi� W/ Te� XUVWNP� YKQX� ZE;I� [/:Zi� \g��pwpw ]LO� ^g��%value?-procedure _g��value? `g��m-46961e513e-7c a`2� bg��t-46961e513e-7b cb� da� ef��l-46961e513e-81 fe� g4cdf� hf��l-46961e513e-7e ih� j4=di� kag;jA;;;;JX^b�  l/0ke� mSg;jA;;;;;;;;;; ;;!� n/me� on� p/%me� q/'me� rqn� s/*me� t/,me� utn� vEg;j� w/Lvi� xsuw� yprx� zloy� {E;j� |/^{i� }g�� value-tag ~g��%value-tag-procedure g��m-46961e513e-88 2� � f��l-46961e513e-8a � 4=� ;A;;;;JX^b�  /<e� ;� -� S;A;[;;;b;i� /Ge� ;� ,-� � f��l-46961e513e-8d f��l-46961e513e-8e � 4q� ;A;;;;JX^b�  /ne� /ye� E;� /Li� � � /e� ;� ,-� f��l-46961e513e-92 f��l-46961e513e-93 � 4q� ;A;;;;JX^b�  /ne� /ye� ;� / i� � � /e� ;� ,-� f��l-46961e513e-97 f��l-46961e513e-98 � 4q� ;A;;;;JX^b�  /ne� /ye� g��%%value-set-fields E;� /i� � � g��t-46961e513e-87 � f��l-46961e513e-9c � 4� ;A;;;;JX^b�  /0e� S;A;[;;;b;i� /pe� � /e� /*e� /,e� � E;� /Li� � /e� ;� / i� � /6e� /ye� /}i� � � � � E;� /~i� g�� value-proc g��%value-proc-procedure g��m-46961e513e-a3 2� � f��l-46961e513e-a5 � 4=� ;A;;;;JX^b�  /<e� ;� -� S;A;[;;;b;i� /Ge� ;� ,-� � f��l-46961e513e-a8 f��l-46961e513e-a9 � 4q� ;A;;;;JX^b�  /ne� /ye� E;� /Li� � � /e� ;� ,-� f��l-46961e513e-ad f��l-46961e513e-ae � 4q� ;A;;;;JX^b�  /ne� /ye� ;� / i� � � /e� ;� �,-� f��l-46961e513e-b2 f��l-46961e513e-b3 � 4q� ;A;;;;JX^b�  /ne� /ye� E;�  /i�   �   �  g��t-46961e513e-a2   � f��l-46961e513e-b7 � 4 � ;A;;;;JX^b�  /0e� S;A;[;;;b;i� /pe� � /e� /*e� /,e� � E;� /Li� � /e� ;� / i�  � !/6e� "/ye� #/i� $"#� %!$� & %� '&� (E;� )/(i� *g��m-46961e513e-be +*2� ,+SSSS� -f��l-46961e513e-c3 .f��l-46961e513e-c4 /f��l-46961e513e-c5 0f��l-46961e513e-c6 1f��l-46961e513e-c7 2-./01� 34,2� 4+� 5f��l-46961e513e-c0 65� 74=46� 8S3;7A;;;;�  9/8e� :E3;7� ;/L:i� </}:i� =/:i� ><=� ?g��value-tag-set! @g��%value-tag-set!-procedure Ag��m-46961e513e-d2 BA2� Cg��t-46961e513e-d0 Dg��t-46961e513e-d1 ECD� FBB� Gf��l-46961e513e-d7 Hf��l-46961e513e-d8 IGH� J4EFI� KB� Lf��l-46961e513e-d4 ML� N4=KM� OBJ;NA;;;;JX^b�  P/0Oe� QSJ;NA;;; � R/pQe� S/gQe� TRS� U/Qe� V/*Qe� W/,Qe� XWR� YEJ;N� Z/LYi� [VXZ� \/,Qe� ]J;N� ^/ ]i� _\R^S� `/6Qe� a/yQe� b/?Yi� cab� d`Rc� eU[_d� fPTe� gE;N� h/@gi� ig��value-proc-set! jg��%value-proc-set!-procedure kg��m-46961e513e-e2 lk2� mg��t-46961e513e-e0 ng��t-46961e513e-e1 omn� pll� qf��l-46961e513e-e7 rf��l-46961e513e-e8 sqr� t4ops� ul� vf��l-46961e513e-e4 wv� x4=uw� ylt;xA;;;;JX^b�  z/0ye� {St;xA;;; � |/p{e� }/g{e� ~|}� /{e� /*{e� /,{e� |� Et;x� /Li� � /,{e� t;x� / i� |}� /6{e� /y{e� /ii� � |� � z~� E;x� /ji� g��exp � g��m-46961e513e-107 2� E� f��l-46961e513e-10c f��l-46961e513e-10d � 4� � f��l-46961e513e-109 � 4=� E;� /'i� /;i� /yi� /i� � /0i� g��m-46961e513e-11b 2� E� f��l-46961e513e-120 f��l-46961e513e-121 � 4� � f��l-46961e513e-11d � 4=� E;� /i� /i� g��on-eagerS   g��on-lazyS   � g�� promise-visit g��set-record-type-printer! g��format f��#<promise = ~s> f��#<promise => ~s>C�5h4�����]4   5 �4�>��"��G���4i4 i5�!>��"��G��"�������h���x���]��C������p�������g��val  ��g��filenamef��srfi/srfi-45.scm . �  ��g��nameg��%make-promise-procedure�C#R4&'(+.���h���6���]��C������.�������g��t-46961e513e-3  ��  ���C'������h���S���]L�6����K�������g��a  ��g��filenamef��srfi/srfi-45.scm  . �  ���C,�����h���C���]�L�6;�������g��filenamef��srfi/srfi-45.scm  . �   ���C�������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��|�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-45.scm . �  n ���C5'R"Ũ��4�">��"��G��� ˖#i��"R"�h���t���]�$���CC������l�������g��obj  ��g��filenamef��srfi/srfi-45.scm . �   ��g��nameg��%promise?-procedure�CR4&(+.3������h���7���]��C������/�������g��t-46961e513e-10  ��  ���C�����h���S���]L�6����K�������g��a  ��g��filenamef��srfi/srfi-45.scm  . �  ���C,�����h���C���]�L�6;�������g��filenamef��srfi/srfi-45.scm  . �   ���C5������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��|�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-45.scm . �  n ���C5R"89���h���u���]�&��� C�6m�������g��s  ��g��filenamef��srfi/srfi-45.scm . �   ��g��nameg��%promise-val-procedure�C:R4&9(+mx~�������h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C.�����h���7���]��C������/�������g��t-46961e513e-1c  ��  ���C9����h���S���]L�6����K�������g��a  ��g��filenamef��srfi/srfi-45.scm  . �  ���C,�����h���C���]�L�6;�������g��filenamef��srfi/srfi-45.scm  . �   ���C������h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-45.scm . �  � ���C59R4&(+�h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-45.scm . �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5R"8��������h ������]�&��� C�6�������������g��s  �g��val  ��g��filenamef��srfi/srfi-45.scm . �   ��g��nameg��%promise-val-set!-procedure�CR4&(+7����h���T���]��C����L�������g��t-46961e513e-4a  �g��t-46961e513e-4b  ��  ���C�������h���S���]L�6����K�������g��a  ��g��filenamef��srfi/srfi-45.scm  . �  ���C,�����h���C���]�L�6;�������g��filenamef��srfi/srfi-45.scm  . �   ���C9������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��|�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-45.scm . �  n ���C5RL��������h������]��C�����������g��tag  �g��proc  ��g��filenamef��srfi/srfi-45.scm 1 �  ��g��nameg��%make-value-procedure�C:R4&;(+Y�������h���T���]��C����L�������g��t-46961e513e-6b  �g��t-46961e513e-6c  ��  ���C;�������h���S���]L�6����K�������g��a  ��g��filenamef��srfi/srfi-45.scm  1 �  ���C,�����h���C���]�L�6;�������g��filenamef��srfi/srfi-45.scm  1 �   ���C[������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��|�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-45.scm 1 �  n ���C5;R\L]��4�L>��"��G��� ˖:i��LRL�����h���r���]�$���CC������j�������g��obj  ��g��filenamef��srfi/srfi-45.scm 1 �   ��g��nameg��%value?-procedure�C^R4&_(+.z������h���7���]��C������/�������g��t-46961e513e-7b  ��  ���C_����h���S���]L�6����K�������g��a  ��g��filenamef��srfi/srfi-45.scm  1 �  ���C,�����h���C���]�L�6;�������g��filenamef��srfi/srfi-45.scm  1 �   ���C|������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��|�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-45.scm 1 �  n ���C5_RL8}��h���s���]�&��� C�6k�������g��s  ��g��filenamef��srfi/srfi-45.scm 1 �   ��g��nameg��%value-tag-procedure�C~R4&}(+�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C.�����h���7���]��C������/�������g��t-46961e513e-87  ��  ���C}����h���S���]L�6����K�������g��a  ��g��filenamef��srfi/srfi-45.scm  1 �  ���C,�����h���C���]�L�6;�������g��filenamef��srfi/srfi-45.scm  1 �   ���C������h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-45.scm 1 �  � ���C5}RL8������h���t���]�&��� C�6l�������g��s  ��g��filenamef��srfi/srfi-45.scm 1 �   ��g��nameg��%value-proc-procedure�CR4&(+��������h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C� �h���:���]C�����2�������g��err  �g��s  ��  ���C.'�����h���7���]��C������/�������g��t-46961e513e-a2  ��  ���C����h���S���]L�6����K�������g��a  ��g��filenamef��srfi/srfi-45.scm  1 �  ���C,�����h���C���]�L�6;�������g��filenamef��srfi/srfi-45.scm  1 �   ���C)������h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-45.scm 1 �  � ���C5R4&(+9;>�h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-45.scm 1 �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5RL8?��������h ������]�&��� C�6�������������g��s  �g��val  ��g��filenamef��srfi/srfi-45.scm 1 �   ��g��nameg��%value-tag-set!-procedure�C@R4&?(+f������h���T���]��C����L�������g��t-46961e513e-d0  �g��t-46961e513e-d1  ��  ���C?�������h���S���]L�6����K�������g��a  ��g��filenamef��srfi/srfi-45.scm  1 �  ���C,�����h���C���]�L�6;�������g��filenamef��srfi/srfi-45.scm  1 �   ���Ch������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��|�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-45.scm 1 �  n ���C5?RL8i��h ������]�&��� C�6�������������g��s  �g��val  ��g��filenamef��srfi/srfi-45.scm 1 �   ��g��nameg��%value-proc-set!-procedure�CjR4&i(+�����h���T���]��C����L�������g��t-46961e513e-e0  �g��t-46961e513e-e1  ��  ���Ci�������h���S���]L�6����K�������g��a  ��g��filenamef��srfi/srfi-45.scm  1 �  ���C,�����h���C���]�L�6;�������g��filenamef��srfi/srfi-45.scm  1 �   ���C������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��|�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-45.scm 1 �  n ���C5iR4&(+�h���>���]���C�6�������g��dummy  �g��exp  ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-45.scm 5 �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��exp���C5RL"�������h������] ���C����������g��x  �g��val ��g��filenamef��srfi/srfi-45.scm 8  9  9  9 �   ��g��nameg��eager�CR4&(+��h���>���]��C�6�������g��dummy  �g��exp  ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-45.scm ; �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��exp���C5R"89L}?i� �����h����])�&��� "�� 4�5&�� "�� 45$��&�� C6$�Y4&�� "�� 455��&��� "�� 4�5&�� "�� 45&��"��&�� "�� 45&�� "�� 45&��  "��4 >��"��G��&�� "�� 45&�� "�� 45&��  "��4 >��"��G��&��  "��4 >��"��G�� �6C���������g��promise  �g��content  �g��key  8 �g��promise*   �g��content  � �g��s  � ��g��val  � '�g��s  A `�g��val  ` �� g��filenamef��srfi/srfi-45.scm >  ?   ?  ! @ 8 @  F A  b @  c B  B  � C � B  � D 4 � D � D  � F 7 � F , � E  * H 9 A H - ` G   I   J �   ��g��nameg��force�CR"89L}� ���h���0��-�/���0���3�#��#��H�&��� "�� 4�5KJ&��J "�� 4J5$��J&��J "�� 4J56 $��J&��J "�� 4J56C(������g��promise  ��g��on-eager  ��g��on-lazy   ��g��content  & ��g��key  ^ ���g��filenamef��srfi/srfi-45.scm P + Q  G R  ^ R  n S  � S � R  � T  � T �  � g��on-eagerS g��on-lazyS ���g��nameg�� promise-visit�CRi"i��h���g���]L��6����_�������g��value  ��g��filenamef��srfi/srfi-45.scm Y   Z Z �  ���C����h���f���]L��6����^�������g��proc  ��g��filenamef��srfi/srfi-45.scm [   \ \ �  ���C�������h ���s���]�O�O�6������k�������g��promise  �g��port  ��g��filenamef��srfi/srfi-45.scm W   X �   ���C6����������g��m  0�g��rtd ~ �g��rtd Q z��g��filenamef��srfi/srfi-45.scm  " 1 , 6 ,  > , & C , � .  1 , 8 1 > 3 P 4 V �  4 ���C6�������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/srfi/srfi-98.go��������������������������������������������������������������������������0000644�����������������00000002403�15146341264�0010751 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]� �4������h������]� g��guile � g��define-module* � � g��srfi g��srfi-98 � g��filenameS f��srfi/srfi-98.scm g��importsS g��srfi-1  �  � � g��exportsS g��get-environment-variable g��get-environment-variables � g��set-current-module � � g��cond-expand-provide g��current-module � g��getenv g�� filter-map g�� string-index g�� string-length g�� substring g��environC�5h �����]4   5�4�>��"��G���4i4i5�>��"��G��iR�����h8������]4�=54�5$��4� 54�5CC���������g��str  6�g��pvt  6�g��len   6��g��filenamef��srfi/srfi-98.scm '   (  )   (   *   *  ' * + . * : 2 * + 3 * �  6 ��g��nameg��string->alist-entry�C�����h���x���]�45�6���p�������g��filenamef��srfi/srfi-98.scm &  + " + �  ��g��nameg��get-environment-variables�CRC���y�������g��m  ,��g��filenamef��srfi/srfi-98.scm   - # 2 #  : # & ? # N %  & �   ���C6��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/srfi/srfi-17.go��������������������������������������������������������������������������0000644�����������������00000010767�15146341264�0010754 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]��4�����h3������]� g��guile � g��define-module* � � g��srfi g��srfi-17 � g��filenameS f��srfi/srfi-17.scm g��exportsS g��getter-with-setter  � g�� replacementsS g��setter g��car g��cdr g��caar g��cadr g��cdar g��cddr g��caaar g��caadr g��cadar g��caddr g��cdaar g��cdadr g��cddar g��cdddr g��caaaar g��caaadr g��caadar !g��caaddr "g��cadaar #g��cadadr $g��caddar %g��cadddr &g��cdaaar 'g��cdaadr (g��cdadar )g��cdaddr *g��cddaar +g��cddadr ,g��cdddar -g��cddddr .g�� string-ref /g�� vector-ref 0 !"#$%&'()*+,-./�! 1g��set-current-module 21� 31� 4g��cond-expand-provide 5g��current-module 6� 7g��make-procedure-with-setter 8� 9� :g��error ;f��3Setting setters is not supported for a good reason. <g��compose-setter =� >� ?g��set-car! @� A� Bg��set-cdr! C� D� E� F� G� H� I� J� K� L� M� N� O� P� Q� R� S� T� U� V� W� X� Y� Z� [� \� ]� ^� _ � ` � a!� b!� c"� d"� e#� f#� g$� h$� i%� j%� k&� l&� m'� n'� o(� p(� q)� r)� s*� t*� u+� v+� w,� x,� y-� z-� {.� |.� }g�� string-set! ~/� /� �g�� vector-set!C�5h(����]4    05�43�>��"��G���44i45i5�6>��"��G��7i R4 i9:;���h���h���-��1��3�6�`�������g��args ��g��filenamef��srfi/srfi-17.scm >  ?  ? �  ���C5Rh���x���]L4L��56�p�������g��obj  �g��value  ��g��filenamef��srfi/srfi-17.scm D   E  E �   ���C�����h������]�O�C�����������g��setter  �g��location  ��g��filenamef��srfi/srfi-17.scm C �  ��g��nameg��compose-setter�C<R4 i>?i5R4 iABi5R4 iD4<i?i>55R4 iF4<i?iA55R4 iH4<iBi>55R4 iJ4<iBiA55R4 iL4<i?iD55R4 iN4<i?iF55R4 iP4<i?iH55R4 iR4<i?iJ55R4 iT4<iBiD55R4 iV4<iBiF55R4 iX4<iBiH55R4 iZ4<iBiJ55R4 i\4<i?iL55R4 i^4<i?iN55R4 i`4<i?iP55 R4 ib4<i?iR55!R4 id4<i?iT55"R4 if4<i?iV55#R4 ih4<i?iX55$R4 ij4<i?iZ55%R4 il4<iBiL55&R4 in4<iBiN55'R4 ip4<iBiP55(R4 ir4<iBiR55)R4 it4<iBiT55*R4 iv4<iBiV55+R4 ix4<iBiX55,R4 iz4<iBiZ55-R4 i|}i5.R4 ii5/RC�������������g��m  ,��g��filenamef��srfi/srfi-17.scm  , - 5 2 5  : 5 & ? 5 N 9 O <  � ; # C $ H  3 G 4 K  C J D O  K P  Y O  \ N ] R  d S  r R  u Q v U  } V   U   T  X   Y   X   W  \   ]   \   [  _   `   _   ^  b   c   b   a  e   f   e   d  h   i  ! h  $ g % k  , l  : k  = j > n  E o  S n  V m W q  ^ r  l q  o p p u  w v   u   t  x   y   x   w  {   |   {   z  ~      ~   }  �   �   �   �  �   �   �   �  �   �   �   �  �  & �  4 �  7 � 8 �  ? �  M �  P � Q �  X �  f �  i � j �  q �   �   �  �   �   �   �  �   �   �   �  �   �   �   �  �   �   �   �  �   �   �   � � �   �  �   � �  ! ���C6����������2.0/ccache/srfi/srfi-14.go��������������������������������������������������������������������������0000644�����������������00000004707�15146341264�0010746 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0 ������]�Z�4����h ������]� g��guile � g��define-module* � � g��srfi g��srfi-14 � g��filenameS f��srfi/srfi-14.scm g��set-current-module  �  � g��call-with-deferred-observers � � g��module-re-export! � � g��current-module � � g�� char-set? g�� char-set= g�� char-set<= g�� char-set-hash g��char-set-cursor g�� char-set-ref g��char-set-cursor-next g��end-of-char-set? g�� char-set-fold g��char-set-unfold !g��char-set-unfold! "g��char-set-for-each #g�� char-set-map $g�� char-set-copy %g��char-set &g��list->char-set 'g��list->char-set! (g��string->char-set )g��string->char-set! *g��char-set-filter +g��char-set-filter! ,g��ucs-range->char-set -g��ucs-range->char-set! .g�� ->char-set /g�� char-set-size 0g��char-set-count 1g��char-set->list 2g��char-set->string 3g��char-set-contains? 4g��char-set-every 5g�� char-set-any 6g��char-set-adjoin 7g��char-set-adjoin! 8g��char-set-delete 9g��char-set-delete! :g��char-set-complement ;g��char-set-union <g��char-set-intersection =g��char-set-difference >g�� char-set-xor ?g��char-set-diff+intersection @g��char-set-complement! Ag��char-set-union! Bg��char-set-intersection! Cg��char-set-difference! Dg�� char-set-xor! Eg��char-set-diff+intersection! Fg��char-set:lower-case Gg��char-set:upper-case Hg��char-set:title-case Ig��char-set:letter Jg��char-set:digit Kg��char-set:letter+digit Lg��char-set:graphic Mg��char-set:printing Ng��char-set:whitespace Og��char-set:iso-control Pg��char-set:punctuation Qg��char-set:symbol Rg��char-set:hex-digit Sg��char-set:blank Tg��char-set:ascii Ug��char-set:empty Vg�� char-set:full W !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUV�@ Xg��cond-expand-provide Y�C�5��h���u���]4  5�4 �>��"��G���4W�������h���B���]�45�6���:�������g��filenamef��srfi/srfi-14.scm  �  ���C>��"��G��Xi4i5�Y6��m�������g��m $��g��filenamef��srfi/srfi-14.scm   %  � `  � ` & � ` �  � ���C6����������������������������������������������������������2.0/ccache/srfi/srfi-60.go��������������������������������������������������������������������������0000644�����������������00000004120�15146341264�0010734 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.08������]�:�4����h+������]� g��guile � g��define-module* � � g��srfi g��srfi-60 � g��filenameS f��srfi/srfi-60.scm g��exportsS g�� bitwise-and g�� bitwise-ior g�� bitwise-xor g�� bitwise-not g�� any-bits-set? g�� bitwise-if g�� bitwise-merge g��log2-binary-factors g�� first-set-bit g��bit-set? g��copy-bit g�� bit-field g��copy-bit-field g��arithmetic-shift g��rotate-bit-field g��reverse-bit-field g�� integer->list g�� list->integer g��booleans->integer   � g�� re-exportsS !g��logand "g��logior #g��logxor $g��integer-length %g��logtest &g��logcount 'g��logbit? (g��ash )!"#$%&'(� *g�� replacementsS +g�� bit-count ,+� -g��set-current-module .-� /-� 0g��load-extension 1g�� string-append 2f�� libguile- 3g��effective-version 4f��scm_init_srfi_60 5g��lognot 6g�� bit-extract 7g��cond-expand-provide 8g��current-module 9�C�5h����]4    )*,5 �4/�>��"��G���40i41i243i5�54>��"��G��!i R"i R#iR5iR%iR&i+R5����h������]�4�5C������������g��mask  �g��n0  �g��n1   ��g��filenamef��srfi/srfi-60.scm 8  9  :   :  9 �   ��g��nameg�� bitwise-if�CRiRiR'iR6iR6�������h(������]�4�54 5C�������������g��n  "�g��newbits  "�g��start   "�g��end   "��g��filenamef��srfi/srfi-60.scm A  B   C   C 0  C   B  B ! B �  " ��g��nameg��copy-bit-field�CR(iR7i48i5�96��������g��m  0��g��filenamef��srfi/srfi-60.scm   1 . 6 .  < .  = . + E .  G /  L . [ 1 b 2 i 3 p 4 w 5 ~ 6 W 8 ^ ; e = l > s ?  A  F  H   H &  H �   ���C6�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/srfi/srfi-4/gnu.go�����������������������������������������������������������������������0000644�����������������00000032320�15146341264�0011446 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.04������]��4�hF ������]� g��guile � g��define-module* � � g��srfi g��srfi-4 g��gnu � g��filenameS f��srfi/srfi-4/gnu.scm g��importsS g��rnrs g�� bytevectors  � � � � � g��exportsS g�� c32vector? g��make-c32vector g�� c32vector g��c32vector-length g�� c32vector-ref g��c32vector-set! g��c32vector->list g��list->c32vector g�� c64vector? g��make-c64vector g�� c64vector g��c64vector-length !g�� c64vector-ref "g��c64vector-set! #g��c64vector->list $g��list->c64vector %g��make-srfi-4-vector &g�� any->u8vector 'g�� any->s8vector (g��any->u16vector )g��any->s16vector *g��any->u32vector +g��any->s32vector ,g��any->u64vector -g��any->s64vector .g��any->f32vector /g��any->f64vector 0g��any->c32vector 1g��any->c64vector 2 !"#$%&'()*+,-./01� 3g��set-current-module 43� 53� 6%� 7%� 8g��make-rectangular 9g��bytevector-c32-native-ref :g�� real-part ;g�� imag-part <g��bytevector-c32-native-set! =g��bytevector-c64-native-ref >g��bytevector-c64-native-set! ?g�� bytevector? @g�� array-type Ag��c32 Bg��bytevector-length Cg��integer? Dg��error Ef��fractional length Fg��length Gg��c64 Hg��make-syntax-transformer IH� JH� Kg��define-any->vector Lg��macro Mg�� $sc-dispatch NM� OM� Pg��_ Qg��any RPQ Sg�� syntax->datum TS� US� Vg�� datum->syntax WV� XV� Yg��begin Zg��map [g��define \g�� symbol-append ]g��any-> ^g��vector _g��obj `_� ag��cond bg��vector? cg��pair? dc_� eg��list-> fg��and gg��array? hg_� ig��eqv? jg�� array-rank kj_� li k� mfhl� ng��let* og��len pg�� array-length qp_� roq� sg��v tg��make- uo� vg��let wg��lp xg��i yx � zy� {g��if |g��< }|xo� ~g�� vector-set! g�� array-ref �_x� �sx� �g��1+ �x� �w� �� �s� �g��else �g�� scm-error �g��quote �g��wrong-type-arg �� �f��� �� �g��list �_� �� �� �� �g��syntax-violation �� �� �f��-source expression failed to match any pattern �g�� u8vector? �g��list->u8vector �g�� make-u8vector �g�� s8vector? �g��list->s8vector �g�� make-s8vector �g�� u16vector? �g��list->u16vector �g��make-u16vector �g�� s16vector? �g��list->s16vector �g��make-s16vector �g�� u32vector? �g��list->u32vector �g��make-u32vector �g�� s32vector? �g��list->s32vector �g��make-s32vector �g�� u64vector? �g��list->u64vector �g��make-u64vector �g�� s64vector? �g��list->s64vector �g��make-s64vector �g�� f32vector? �g��list->f32vector �g��make-f32vector �g�� f64vector? �g��list->f64vector �g��make-f64vectorC�5�����h�'�����]4    25�45�>��"��G���7%R8�h������]�� 6������������g��v  �g��i  ��g��filenamef��srfi/srfi-4/gnu.scm , -   . 9  .   - �   ��g��nameg��bytevector-c32-native-ref�C9R:;���h ������]�45� 45C��������g��v  �g��i  �g��x   ��g��filenamef��srfi/srfi-4/gnu.scm /  0 *  0   1 (  1 0  1 �   ��g��nameg��bytevector-c32-native-set!�C<R8�����h������]�� 6������������g��v  �g��i  ��g��filenamef��srfi/srfi-4/gnu.scm 2 3   4 9  4   3 �   ��g��nameg��bytevector-c64-native-ref�C=R:;���h ������]�45� 45C��������g��v  �g��i  �g��x   ��g��filenamef��srfi/srfi-4/gnu.scm 5  6 *  6   7 (  7 0  7 �   ��g��nameg��bytevector-c64-native-set!�C>R?@A�h ���n���]4�5$�� 4�5CC������f�������g��obj  ��g��filenamef��srfi/srfi-4/gnu.scm 9 �   ��g��nameg�� c32vector?�CR%A�������h������-�1�3��@�����}�������g��len �g��fill ��g��filenamef��srfi/srfi-4/gnu.scm 9 �  ��g��nameg��make-c32vector�CRBCDEA��h(������] 4�5 45$��C� 6�������g��v  (�g��len (��g��filenamef��srfi/srfi-4/gnu.scm 9 g��filenamef��9/builddir/build/BUILD/guile-2.0.14/module/srfi/srfi-4.scm T �  ( ��g��nameg��c32vector-length�CR���h���p���-��1��3��6�h�������g��elts ��g��filenamef��srfi/srfi-4/gnu.scm 9 �  ��g��nameg�� c32vector�CRF���h`������]!4�545"��;$��/$��%4>��"��G��"CC �"���������g��elts  ^�g��len ^�g��v   ^�g��i   S�g��elts   S��g��filenamef��srfi/srfi-4/gnu.scm 9 �  ^ ��g��nameg��list->c32vector�CR�h@������]"��" $��C4�5"4�5"��������������g��v  9�g��i  (�g��elts   (��g��filenamef��srfi/srfi-4/gnu.scm 9 �  9 ��g��nameg��c32vector->list�CR9������h���~���]� 6���v�������g��v  �g��i  ��g��filenamef��srfi/srfi-4/gnu.scm 9 �  ��g��nameg�� c32vector-ref�CR<�h������]� 6��������g��v  �g��i  �g��x   ��g��filenamef��srfi/srfi-4/gnu.scm 9 �   ��g��nameg��c32vector-set!�CR<�h������]� 6��������g��v  �g��i  �g��x   ��g��filenamef��srfi/srfi-4/gnu.scm 9 �   ��g��nameg��c32vector-set!�CR?@G�����h ���n���]4�5$�� 4�5CC������f�������g��obj  ��g��filenamef��srfi/srfi-4/gnu.scm : �   ��g��nameg�� c64vector?�CR%G�������h������-�1�3��@�����}�������g��len �g��fill ��g��filenamef��srfi/srfi-4/gnu.scm : �  ��g��nameg��make-c64vector�CRBCDEG��h(������] 4�5 45$��C� 6�������g��v  (�g��len (��g��filenamef��srfi/srfi-4/gnu.scm : g��filenamef��9/builddir/build/BUILD/guile-2.0.14/module/srfi/srfi-4.scm T �  ( ��g��nameg��c64vector-length�C R$���h���p���-��1��3��6�h�������g��elts ��g��filenamef��srfi/srfi-4/gnu.scm : �  ��g��nameg�� c64vector�CRF"���h`������]!4�545"��;$��/$��%4>��"��G��"CC �"���������g��elts  ^�g��len ^�g��v   ^�g��i   S�g��elts   S��g��filenamef��srfi/srfi-4/gnu.scm : �  ^ ��g��nameg��list->c64vector�C$R! �h@������]"��" $��C4�5"4�5"��������������g��v  9�g��i  (�g��elts   (��g��filenamef��srfi/srfi-4/gnu.scm : �  9 ��g��nameg��c64vector->list�C#R=������h���~���]� 6���v�������g��v  �g��i  ��g��filenamef��srfi/srfi-4/gnu.scm : �  ��g��nameg�� c64vector-ref�C!R>�h������]� 6��������g��v  �g��i  �g��x   ��g��filenamef��srfi/srfi-4/gnu.scm : �   ��g��nameg��c64vector-set!�C"R>�h������]� 6��������g��v  �g��i  �g��x   ��g��filenamef��srfi/srfi-4/gnu.scm : �   ��g��nameg��c64vector-set!�C"R4JKLORUXYZ[\]^`abdemnrstuvwz{}Y~�h�����]4�54�54 �5�    4�5��4�5����C��������g��tag  ���g��filenamef��srfi/srfi-4/gnu.scm >  ?   ?  ? ( ? 3  ?   ?   @   @ -  @   ?  & A & * A 5 . A A 0 A & 2 ?  ? D $ C D 3 G D > I D $ K ?  _ H $ e H 7 g H $ i ? �  � ���C���h���r���-��1��3�4�5C��j�������g��tags ��g��filenamef��srfi/srfi-4/gnu.scm < =  >   = �  ���C���h���g���] 4�5L�4?6_�������g��args  �g��v ��g��filenamef��srfi/srfi-4/gnu.scm  < �   ���C��h(���e���] 4�5$�� �O�@�6�]�������g��y  '�g��tmp '��g��filenamef��srfi/srfi-4/gnu.scm < �  ' ���C5KRgjp� �����h������]4�5$���C�$���6"����64�5$��P 4�5&��@4�54 5"��#$��4 �5"C """��������g��obj  ��g��len N ��g��v  W ��g��i  ] ���g��filenamef��srfi/srfi-4/gnu.scm O ( L ;�  � ��g��nameg�� any->u8vector�C&Rgjp� h������]4�5$���C�$���6"����64�5$��P 4�5&��@4�54 5"��#$��4 �5"C """��������g��obj  ��g��len N ��g��v  W ��g��i  ] ���g��filenamef��srfi/srfi-4/gnu.scm O ( L ;�  � ��g��nameg�� any->s8vector�C'Rgjp� h������]4�5$���C�$���6"����64�5$��S 4�5&��C4�54 5"��&$�� 4 �5"C """�������������g��obj  ��g��len N ��g��v  W ��g��i  ] ���g��filenamef��srfi/srfi-4/gnu.scm O ( L ;�  � ��g��nameg��any->u16vector�C(Rgjp� �������h������]4�5$���C�$���6"����64�5$��S 4�5&��C4�54 5"��&$�� 4 �5"C """�������������g��obj  ��g��len N ��g��v  W ��g��i  ] ���g��filenamef��srfi/srfi-4/gnu.scm O ( L ;�  � ��g��nameg��any->s16vector�C)Rgjp� �������h������]4�5$���C�$���6"����64�5$��S 4�5&��C4�54 5"��&$�� 4 �5"C """�������������g��obj  ��g��len N ��g��v  W ��g��i  ] ���g��filenamef��srfi/srfi-4/gnu.scm O ( L ;�  � ��g��nameg��any->u32vector�C*Rgjp� �������h������]4�5$���C�$���6"����64�5$��S 4�5&��C4�54 5"��&$�� 4 �5"C """�������������g��obj  ��g��len N ��g��v  W ��g��i  ] ���g��filenamef��srfi/srfi-4/gnu.scm O ( L ;�  � ��g��nameg��any->s32vector�C+Rgjp� �������h������]4�5$���C�$���6"����64�5$��S 4�5&��C4�54 5"��&$�� 4 �5"C """�������������g��obj  ��g��len N ��g��v  W ��g��i  ] ���g��filenamef��srfi/srfi-4/gnu.scm O ( L ;�  � ��g��nameg��any->u64vector�C,Rgjp� �������h������]4�5$���C�$���6"����64�5$��S 4�5&��C4�54 5"��&$�� 4 �5"C """�������������g��obj  ��g��len N ��g��v  W ��g��i  ] ���g��filenamef��srfi/srfi-4/gnu.scm O ( L ;�  � ��g��nameg��any->s64vector�C-Rgjp� �������h������]4�5$���C�$���6"����64�5$��S 4�5&��C4�54 5"��&$�� 4 �5"C """�������������g��obj  ��g��len N ��g��v  W ��g��i  ] ���g��filenamef��srfi/srfi-4/gnu.scm O ( L ;�  � ��g��nameg��any->f32vector�C.Rgjp� �������h������]4�5$���C�$���6"����64�5$��S 4�5&��C4�54 5"��&$�� 4 �5"C """�������������g��obj  ��g��len N ��g��v  W ��g��i  ] ���g��filenamef��srfi/srfi-4/gnu.scm O ( L ;�  � ��g��nameg��any->f64vector�C/Rgjp� �����h������]4�5$���C�$���6"����64�5$��_ 4�5&��O4�54 5"��2$��&4 4 �5>��"��G��"C """���������g��obj  ��g��len N ��g��v  W ��g��i  ] ���g��filenamef��srfi/srfi-4/gnu.scm O ( L ;�  � ��g��nameg��any->c32vector�C0R$gjp"� �����h������]4�5$���C�$���6"����64�5$��_ 4�5&��O4�54 5"��2$��&4 4 �5>��"��G��"C """���������g��obj  ��g��len N ��g��v  W ��g��i  ] ���g��filenamef��srfi/srfi-4/gnu.scm O ( L ;�  � ��g��nameg��any->c64vector�C1RC�������������g��m  ,��g��filenamef��srfi/srfi-4/gnu.scm   1 *  ,  /  2  5 q 9 : / O �  & ���C6�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/srfi/srfi-43.go��������������������������������������������������������������������������0000644�����������������00000176476�15146341264�0010765 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0&������]t�4��h������]� g��guile � g��define-module* � � g��srfi g��srfi-43 � g��filenameS f��srfi/srfi-43.scm g��importsS g��srfi-1  �  � g��srfi-8 � � � g��exportsS g�� vector-empty? g��vector= g�� vector-unfold g��vector-unfold-right g��vector-reverse-copy g�� vector-append g��vector-concatenate g�� vector-fold g��vector-fold-right g�� vector-map g�� vector-map! g��vector-for-each g�� vector-count !g�� vector-index "g��vector-index-right #g�� vector-skip $g��vector-skip-right %g��vector-binary-search &g�� vector-any 'g�� vector-every (g�� vector-swap! )g��vector-reverse! *g�� vector-copy! +g��vector-reverse-copy! ,g��reverse-vector->list -g��reverse-list->vector . !"#$%&'()*+,-� /g�� re-exportsS 0g�� make-vector 1g��vector 2g��vector? 3g�� vector-ref 4g�� vector-set! 5g�� vector-length 6012345� 7g�� replacementsS 8g�� vector-copy 9g�� vector-fill! :g�� list->vector ;g�� vector->list <89:;� =g��set-current-module >=� ?=� @g��cond-expand-provide Ag��current-module B� Cg��error Dg�� string-append Eg��symbol->string Ff��:  Gg�� error-from Hg��make-syntax-transformer IH� JH� Kg��assert-nonneg-exact-integer Lg��macro Mg�� $sc-dispatch NM� OM� Pg��any QPPP� Rg�� syntax-object Sg��unless Tg��top UT� Vg��ribcage Wg��dummy Xg��k Yg��who ZWXY� [g��m-46961e513c-7 \[T� ]\UU� ^f��l-46961e513c-c _f��l-46961e513c-d `f��l-46961e513c-e a^_`� bVZ]a� cV� dg��x ed� f\� gf��l-46961e513c-9 hg� iVefh� jUbci� kg��hygiene lk� mRSjl� ng��and oRnjl� pg��exact-integer? qRpjl� rg��not sRrjl� tg�� negative? uRtjl� vRGjl� wf��(expected non-negative exact integer, got xRwjl� yg��syntax-violation zy� {y� |f��-source expression failed to match any pattern }g��assert-procedure ~g��f W~Y� �g��m-46961e513c-13 �T� �UU� �f��l-46961e513c-18 �f��l-46961e513c-19 �f��l-46961e513c-1a �� �V� �� �f��l-46961e513c-15 �� �Ve� �Uc� �RSl� �g�� procedure? �Rl� �RGl� �f��expected procedure, got �Rl� �g�� assert-vector �g��v �WY� �g��m-46961e513c-1f �T� �UU� �f��l-46961e513c-24 �f��l-46961e513c-25 �f��l-46961e513c-26 �� �V� �� �f��l-46961e513c-21 �� �Ve� �Uc� �RSl� �R2l� �RGl� �f��expected vector, got �Rl� �g��assert-valid-index �PPPP� �g��i �g��len �WY� �g��m-46961e513c-2b �T� �UUU� �f��l-46961e513c-30 �f��l-46961e513c-31 �f��l-46961e513c-32 �f��l-46961e513c-33 �� �V� �� �f��l-46961e513c-2d �� �Ve� �Uc� �RSl� �Rnl� �Rpl� �g��<= �Rl� �R l� �RGl� �f�� invalid index �Rl� �g��assert-valid-start �g��start �WY� �g��m-46961e513c-39 �T� �UUU� �f��l-46961e513c-3e �f��l-46961e513c-3f �f��l-46961e513c-40 �f��l-46961e513c-41 �� �V� �� �f��l-46961e513c-3b �� �Ve� �Uc� �RSl� �Rnl� �Rpl� �Rl� �R l� �RGl� �f��invalid start index �Rl� �g��assert-valid-range �PPPPP� �g��end �WY� �g��m-46961e513c-47 �T� �UUUU� �f��l-46961e513c-4c �f��l-46961e513c-4d �f��l-46961e513c-4e �f��l-46961e513c-4f �f��l-46961e513c-50 �� �V� �� �f��l-46961e513c-49 �� �Ve� �Uc� �RSl� �Rnl� �Rpl� �Rl� �R l� �RGl� �f��invalid index range �Rl� �g��assert-vectors �g��let �g��vs �WY� �g��m-46961e513c-57 �T� �UU� �f��l-46961e513c-5c �f��l-46961e513c-5d f��l-46961e513c-5e �� V� � f��l-46961e513c-59 � Ve� Uc�  Rl�  g��loop  R l�  RSl�  g��null? R l� Rl� g��car Rl� g��cdr Rl� g��min g�� min-length g��reverse! g�� vectors-ref g��apply 8� 8� g��guile-vector-copy g��vector-move-left! g��%vector-concatenate 9� 9�  g��%vector-reverse! !g��define-vector-copier! "g��define #g��copy! $g�� docstring %g�� inner-proc &W#$%� 'g��m-46961e513c-5ea ('T� )(UUU� *f��l-46961e513c-5ef +f��l-46961e513c-5f0 ,f��l-46961e513c-5f1 -f��l-46961e513c-5f2 .*+,-� /V&).� 0(� 1f��l-46961e513c-5ec 21� 3Ve02� 4U/c3� 5R"4l� 6R4l� 7g��%copy! 8R74l� 9g�� case-lambda :R94l� ;g��target <R;4l� =g��tstart >R=4l� ?g��source @R?4l� A<>@� BR4l� Cg��quote DRC4l� Eg��tlen FRE4l� GR54l� HG<� IFH� Jg��slen KRJ4l� LG@� MKL� NIM� OR4l� PRS4l� Qg��>= RRQ4l� Sg��+ TRS4l� UT>K� VRFU� WRG4l� Xf��would write past end of target YRX4l� ZY� [R 4l� \8<>@[K� ]\� ^g��sstart _R^4l� `<>@_� ag��- bRa4l� cbK_� dT>c� eRFd� f8<>@_K� gf� hg��send iRh4l� j<>@_i� kR4l� lbi_� mT>l� nRFm� o8<>@_i� po� qg��vector-move-right! rg��length sg��dropC�5������hh��l��]4   ./67<5 �4?�>��"��G���4@i4Ai5�B>��"��G��CDEF�����h ������-�1�3�44�55@��������g��who �g��msg �g��args  ��g��filenamef��srfi/srfi-43.scm + -  -   - -  -  , �   ��g��nameg�� error-from�CGR4JKLOQmoqsuvx������h0���M���]������C�����E�������g��dummy  +�g��k  +�g��who   +��  + ���C{|����h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-43.scm 0 �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��kg��who���C5KR4J}LOQ����h ���M���]���C������E�������g��dummy  �g��f  �g��who   ��   ���C{|����h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-43.scm 5 �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��fg��who���C5}R4JLOQ����h ���M���]���C������E�������g��dummy  �g��v  �g��who   ��   ���C{|����h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-43.scm 9 �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��vg��who���C5R4JLO������h0���^���]�����C������V�������g��dummy  *�g��i  *�g��len   *�g��who   *��  * ���C{|���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-43.scm = �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��ig��leng��who���C5R4JLO�������h0���b���]�����C������Z�������g��dummy  *�g��start  *�g��len   *�g��who   *��  * ���C{|�������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-43.scm B �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��startg��leng��who���C5R4JLO���h8���s���]������C���k�������g��dummy  5�g��start  5�g��end   5�g��len   5�g��who   5��  5 ���C{|������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-43.scm G �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��startg��endg��leng��who���C5R4JLOQ   �����h@���N���]���������C������F�������g��dummy  :�g��vs  :�g��who   :��  : ���C{|���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-43.scm M �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��vsg��who���C5R5��h@�����]"��#(��C4455"�4�5"�����������g��vs  <�g��vs  )�g��result   )��g��filenamef��srfi/srfi-43.scm U  V  X   Z   Z   Z #  Z 2  Z # ! Z  ) Z  ) V  , V  - W  2 W $ 4 W  < V �  < ��g��nameg�� min-length�CR��������h8������]"�� (��6"�"��������������g��vs  1�g��i  1�g��vs   &�g��xs   &��g��filenamef��srfi/srfi-43.scm ]  ^  _   `   a   a )  a   a  & a  & ^  ) ^  1 ^ �  1 ��g��nameg�� vectors-ref�CRGwp0�h8������]�L$��C4L��>�� G�L���"����������g��i  5�g��seed  5�g��x   5�g��seed   5��g��filenamef��srfi/srfi-43.scm {   |  |  }   } ( ~ +   5  �  5 ��g��nameg��loop�C�������h@������]�L$��C4L��>�� G�L���"����������g��i  =�g��seed1  =�g��seed2   =�g��x   =�g��seed1   =�g��seed2   =��g��filenamef��srfi/srfi-43.scm �   �  �  � $  � , � / �  = � �  = ��g��nameg��loop�C��h8������]�L$��C4L��>�� GL���"��������g��i  7�g��seeds  7�g��x   7�g��seeds   7��g��filenamef��srfi/srfi-43.scm �   �  �  �  � * � - �  7 � �  7 ��g��nameg��loop�C� ���h��s��)���3�4�5$��"��4�>��"��G��"��4>��"��*G��"��#45$�� $��""���"��"45"��"$��"��4�5" "C)���3�4�5$��"��4�>��"��G��"��4>��"��*G��"��#45$�� $��""���"��"45O��Q�4 >��"��G��C)���3�4�5$��"��4�>��"��G��"��4>��"��*G��"��#45$�� $��""���"��"45 O��Q�4 >��"��G��C-�1�3�4�5$��"��4�>��"��G��"��4>��"��*G��"��#45$�� $��""���"��"45 O��Q�4 >��"��G��C�k������g��f ��g��len ��g��v  v ��g��i  | ��g��f � O�g��len � O�g��seed  � O�g��v   O�g��loop  + L�g��f X �g��len X �g��seed1  X �g��seed2  X �g��v   �g��loop   �g��f  �g��len  �g��seeds   �g��v  n �g��loop  { ��g��filenamef��srfi/srfi-43.scm e  o   o   o  3 p  7 p & 9 p  p q  v q  | r  � s  � s � t  � t � u  � u � r  � e  � x  � x  � x  � y  � y & � y   z   z  + {  X e  Y �  l �  n �   �   � &  �   �   �   �   e   �   �   �  + �  / � & 1 �  h �  n �  { � �0 � � � O � X  �    ��g��nameg�� vector-unfoldg�� documentationf�(vector-unfold f length initial-seed ...) -> vector The fundamental vector constructor. Create a vector whose length is LENGTH and iterates across each index k from 0 up to LENGTH - 1, applying F at each iteration to the current index and current seeds, in that order, to receive n + 1 values: the element to put in the kth slot of the new vector, and n new seeds for the next iteration. It is an error for the number of seeds to vary between iterations.�CRGwp0�h8������]� $��C4L��>�� G�L���"�����������g��i  4�g��seed  4�g��x   4�g��seed   4��g��filenamef��srfi/srfi-43.scm �   �  � �   � ' � * �  4 � �  4 ��g��nameg��loop�C�������h@������]� $��C4L��>�� G�L���"�����������g��i  <�g��seed1  <�g��seed2   <�g��x   <�g��seed1   <�g��seed2   <��g��filenamef��srfi/srfi-43.scm �   �  � � $  � + � . �  < � �  < ��g��nameg��loop�C��h8������]� $��C4L��>�� GL���"���������g��i  6�g��seeds  6�g��x   6�g��seeds   6��g��filenamef��srfi/srfi-43.scm �   �  � �  � ) � , �  6 � �  6 ��g��nameg��loop�C� ���h����)���3�4�5$��"��4�>��"��G��"��4>��"��*G��"��#45$�� $��""���"��"45"��! $��"��4�5""C)���3�4�5$��"��4�>��"��G��"��4>��"��*G��"��#45$�� $��""���"��"45O��Q�4>��"��G��C)���3�4�5$��"��4�>��"��G��"��4>��"��*G��"��#45$�� $��""���"��"45 O��Q�4>��"��G��C-�1�3�4�5$��"��4�>��"��G��"��4>��"��*G��"��#45$�� $��""���"��"45 O��Q�4>��"��G��C���������g��f ��g��len ��g��v  v ��g��i  | ��g��f � O�g��len � O�g��seed  � O�g��v   O�g��loop  + L�g��f X �g��len X �g��seed1  X �g��seed2  X �g��v   �g��loop   �g��f � �g��len � �g��seeds  � �g��v  m �g��loop  y ��g��filenamef��srfi/srfi-43.scm �  �   �   �  3 �  7 � & 9 �  p �  v �  | �   �  � � � �  � � � �  � � � �  � �  � �  � �  � �  � �  � �  � �  � � & � �   �   �  + �  : �  A �  X �  Y �  l �  n �   �   � &  �   �   �   �   �   �  � �   �   �   �  * �  . � & 0 �  g �  m �  y �   �   � �8 � � � O � X  � �   ��g��nameg��vector-unfold-rightg�� documentationf�(vector-unfold-right f length initial-seed ...) -> vector The fundamental vector constructor. Create a vector whose length is LENGTH and iterates across each index k from LENGTH - 1 down to 0, applying F at each iteration to the current index and current seeds, in that order, to receive n + 1 values: the element to put in the kth slot of the new vector, and n new seeds for the next iteration. It is an error for the number of seeds to vary between iterations.�CRRG85p0� ���h����)��� 3��6)���3��$��"��4�>��"��G��4�5"��4>��"��;G��"��445$��% $��$��"��""��""��"454 � >��"��G��C-�.�,�3�#���$��"��4�>��"��G��4�5"��4 >��"��NG��"��G45$��845$��% $��$��"��""��""��""��"454 �4 5 >��"��G��C�����������g��v �g��v  ��g��start  ��g��len  @ ��g��result  � ��g��v � �g��start � �g��end  � �g��fill  � �g��len  � �g��result  n �� g��filenamef��srfi/srfi-43.scm �   �   �   �  ( �  * �  : �  @ �  G �  K � $ M �  � �  � � ! � �  � �  � �  � �  � �  � �  � �  � �  � �  � �   �   � !  �   �   �  & �  ' �  1 �  5 �  9 �  > �  c �  j � ! n �  n �  q �  x � #  � �*  �  � � �   ��g��nameg�� vector-copyg�� documentationf�(vector-copy vec [start [end [fill]]]) -> vector Allocate a new vector whose length is END - START and fills it with elements from vec, taking elements from vec starting at index START and stopping at index END. START defaults to 0 and END defaults to the value of (vector-length VEC). If END extends beyond the length of VEC, the slots in the new vector that obviously cannot be filled by elements from VEC are filled with FILL, whose default value is unspecified.�C8R0�������hP���e��]#45"��%$��"��$�" "C������]������g��vec  J�g��start  J�g��end   J�g��len   J�g��result   J�g��i   ;�g��j   ;��g��filenamef��srfi/srfi-43.scm �   �   �  �   �   �   �   � , � " - � 0 �  3 �  ; � ; �  ? �  G � �  J ��g��nameg��%vector-reverse-copy�C�G5p�������hx�� ��)���23��$��"��4�>��"��G��L�� 4�56)���3��$��"��4�>��"��G��4�5"��4>��"��;G��"��445$��% $��$��"��""��""��"L��6] �$��"��4�>��"��G��4�5"��4>��"��_G��"��X45$��I45$��6 $��&$��$��"��""��""��""��""��"L��6���������g��vec 8�g��vec A ��g��start A ��g��len  i ��g��vec � u�g��start � u�g��end  � u�g��len  � u��g��filenamef��srfi/srfi-43.scm �  �   �   �  0 � # 8 �  A �  D �  Q �  S �  c �  i �  p � t � ' v � �  � �  �   �   �   �   �   �  �  + �  u  � 8 � A � � � u ��g�� documentationf�1(vector-reverse-copy vec [start [end]]) -> vector Allocate a new vector whose length is END - START and fills it with elements from vec, taking elements from vec in reverse order starting at index START and stopping at index END. START defaults to 0 and END defaults to the value of (vector-length VEC).�C�O��R50��h�����]1"��"(��"��!45"� "45"��G(��"��H454 >��"��G��"� "C�������g��vs  ��g��vs  (�g��len   (�g�� result-len 3 ��g��result  < ��g��vs  B ��g��pos  B ��g��v  O ��g��len  X ��� g��filenamef��srfi/srfi-43.scm         !   1   @   1  * (   (   3   6   <   B   H   O   O   R   X   [  v   {   �  �  �  � ��g��nameg��%vector-concatenate�CRG50� ���h0����)����3����C)���*3��$��"��4�>��"��G���6)���3��$��"��4�>��"��G��$��"��4>��"��G��4�545454�  >��"��G��4 >��"��G��C-��1��3�"��6(��"��4$��"��4>��"��G��"�"�6�����������g��v  =�g��v1 F ��g��v2 F ��g��len1  � ��g��len2  � ��g��result  � ��g��vs � +�g��vs � ��g��filenamef��srfi/srfi-43.scm           &   (   =   F   I !  V !  X !  j "  w "  y "  � #  � $  � #  � %  � % " � %  � %  � & � ' �   � *   *   *  + + � �  = � F � � � + ��g��nameg�� vector-appendg�� documentationf��(vector-append vec ...) -> vector Return a newly allocated vector that contains all elements in order from the subsequent locations in VEC ...�CRG������hP���J��] "��6(��"��4$��"��4>��"��G��"�"�6������B������g��vs  J�g��vs  <��g��filenamef��srfi/srfi-43.scm -  2  ! 2  # 2  J 3 �  J ��g��nameg��vector-concatenateg�� documentationf��(vector-concatenate list-of-vectors) -> vector Append each vector in LIST-OF-VECTORS. Equivalent to: (apply vector-append LIST-OF-VECTORS)�CRG5�������h0�����]�$��"��4�>��"��G��4�5 C���������g��vec  -��g��filenamef��srfi/srfi-43.scm 5  9   9   9  $ : + : �  - ��g��nameg�� vector-empty?g�� documentationf��d(vector-empty? vec) -> boolean Return true if VEC is empty, i.e. its length is 0, and false if not.�CR5�h(������](��C�45$�� ��"C�������g��len  (�g��vs  (��g��filenamef��srfi/srfi-43.scm >   ?  ? @   @ %  @   @   @  A # & A �  ( ��g��nameg��all-of-length?�CO��������hP���-��]� $��C��&��"�� 45$����"C%������g��i  P�g��elt=?  P�g��v1   P�g��v2   P�g��t   P�g��x1   P�g��x2   P��g��filenamef��srfi/srfi-43.scm B   C  C   D   E   D ' F  ( F  - F ! 9 F < G  N G �  P ��g��nameg��=up-to?�CO��Q��Q�G5���h����)���*3�4�5$��"��4�>��"��G��C)���K3�4�5$��"��4�>��"��G��$��"��4>��"��G��C)���3�4�5$��"��4�>��"��G��$��"��4>��"��G��$��"��4>��"��G��4545$�� L�6C-�1�3�4�5$��"��4�>��"��G��$��"��4>��"��G��"��6(��"��4$��"��4>��"��G��""454L�5$��2"��&(��C4L�5$�� "C"C������������g��elt=? 0�g��elt=? 9 ��g��v 9 ��g��elt=? � �g��v1 � �g��v2  � �g��len  � �g��elt=?  �g��v1  �g��vs   �g��vs  j �g��len   �g��vs   �� g��filenamef��srfi/srfi-43.scm H  R   R   R  9 H  : U  M U  O U  a V  n V  p V  � H  � Y  � Y  � Y  � Z  � Z  � Z  � [  � [  � [  � \  � \  � ]   ]   ]  ^   ^   H  ! `  4 `  6 `  H a  U a  W a  j b   b   b   c   c   d   d  e   f   f   g   g "  g 5  g   g   h   h   e �6 0 � 9 � � �  �    ��g�� documentationf�u(vector= elt=? vec ...) -> boolean Return true if the vectors VEC ... have equal lengths and equal elements according to ELT=?. ELT=? is always applied to two arguments. Element comparison must be consistent with eq?, in the following sense: if (eq? a b) returns true, then (elt=? a b) must also return true. The order in which comparisons are performed is unspecified.�C�O��RG5� h�����)���3�4�5$��"��4�>��"��G��$��"��4>��"��G��45"��%$��C4�5" ")���3�4�5$��"��4�>��"��G��$��"��4>��"��G��$��"��4>��"��G��445455"��*$��C4�5" "-�1�3�4�5$��"��4�>��"��G��"��6(��"��4$��"��4>��"��G��""45"��)$��C4�4 5?" "�����������g��kcons ��g��knil ��g��v  ��g��len  V ��g��i  \ ��g��state  \ ��g��kcons � J�g��knil � J�g��v1  � J�g��v2  � J�g��len   J�g��i   ?�g��state   ?�g��kcons S �g��knil S �g��vs  S �g��vs  | �g��len   �g��i   �g��state   ��g��filenamef��srfi/srfi-43.scm k  v   v   v  1 w  > w  @ w  P x  V x  \ y  a z e z k |  l |  w | * y |  � | � y  � k  � ~  � ~  � ~  �   �   �   �   �   �   �   �     (              $   %   0  " 5  4 7   ?  ?   S k  T   g   i   |                              0        �> � � � J � S   ��g��nameg�� vector-foldg�� documentationf�(vector-fold kons knil vec1 vec2 ...) -> value The fundamental vector iterator. KONS is iterated over each index in all of the vectors, stopping at the end of the shortest; KONS is applied as (KONS i state (vector-ref VEC1 i) (vector-ref VEC2 i) ...) where STATE is the current state value, and I is the current index. The current state value begins with KNIL, and becomes whatever KONS returned at the respective iteration. The iteration is strictly left-to-right.�CRG5� ����h���g��)���3�4�5$��"��4�>��"��G��$��"��4>��"��G��45"��$ $��C4�5"")���3�4�5$��"��4�>��"��G��$��"��4>��"��G��$��"��4>��"��G��445455"��) $��C4�5""-�1�3�4�5$��"��4�>��"��G��"��6(��"��4$��"��4>��"��G��""45"��( $��C4�4 5?""��_������g��kcons ��g��knil ��g��v  ��g��len  V ��g��i  \ ��g��state  \ ��g��kcons � L�g��knil � L�g��v1  � L�g��v2  � L�g��len   L�g��i   ?�g��state   ?�g��kcons U �g��knil U �g��vs  U �g��vs  ~ �g��len   �g��i   �g��state   ��g��filenamef��srfi/srfi-43.scm           1   >   @   P   V   \   _  d  j   k   v  * x   �  �   �   �   �   �   �   �   �   �   �   �   �   �   �        (              $   %   0  " 5  4 7   ?  ?   B   L   U   V   i   k   ~                              0              �D � � � L � U   ��g��nameg��vector-fold-rightg�� documentationf�(vector-fold-right kons knil vec1 vec2 ...) -> value The fundamental vector iterator. KONS is iterated over each index in all of the vectors, starting at the end of the shortest; KONS is applied as (KONS i state (vector-ref VEC1 i) (vector-ref VEC2 i) ...) where STATE is the current state value, and I is the current index. The current state value begins with KNIL, and becomes whatever KONS returned at the respective iteration. The iteration is strictly right-to-left.�CRG50� ��h ��~��)���3�4�5$��"��4�>��"��G��$��"��4>��"��G��4545"��'$��"��!4�5" "C)���3�4�5$��"��4�>��"��G��$��"��4>��"��G��$��"��4>��"��G��44545545"��,$��"��&4�5" "C-�1�3�4�5$��"��4�>��"��G��"��6(��"��4$��"��4>��"��G��""4 545"��+$��"��%4�4 5?" "C�������v������g��f ��g��v ��g��len  V ��g��result  _ ��g��i  e ��g��f � ^�g��v1 � ^�g��v2  � ^�g��len   ^�g��result  " ^�g��i  ( T�g��f g �g��vs g �g��vs   �g��len   �g��result   �g��i   ��g��filenamef��srfi/srfi-43.scm           1   >   @   P   V   Y   _   e   j   n  w  ! �  & �  ! �  �   �  �   �   �   �   �   �   �   �   �   �   �           )          "   (   -   1  :  ! C  & H  8 J  ! K  N   T  T   g   h   {   }                                  !   ,   !          �G � � � ^ � g  ��g��nameg�� vector-mapg�� documentationf�(vector-map f vec2 vec2 ...) -> vector Return a new vector of the shortest size of the vector arguments. Each element at index i of the new vector is mapped from the old vectors by (F i (vector-ref VEC1 i) (vector-ref VEC2 i) ...). The dynamic order of application of F is unspecified.�CRG5� �����h����)���3�4�5$��"��4�>��"��G��$��"��4>��"��G��45"��%$��C4�5" ")���3�4�5$��"��4�>��"��G��$��"��4>��"��G��$��"��4>��"��G��445455"��*$��C4�5" "-�1�3�4�5$��"��4�>��"��G��"��6(��"��4$��"��4>��"��G��""45"��)$��C4�4 5?" "����������g��f ��g��v ��g��len  V ��g��i  \ ��g��f � B�g��v1 � B�g��v2  � B�g��len   B�g��i   ;�g��f K �g��vs K �g��vs  t �g��len   �g��v1   �g��i   ��g��filenamef��srfi/srfi-43.scm           1   >   @   P   V   \   a   e  l   u  ! w   x  {   �  �   �   �   �   �   �   �   �   �   �   �   �   �     (               !   *  " /  4 1   2  5   ;  ;   K   L   _   a   t                               (             �B � � � B � K  ��g��nameg�� vector-map!g�� documentationf��(vector-map! f vec2 vec2 ...) -> unspecified Similar to vector-map, but rather than mapping the new elements into a new vector, the new mapped elements are destructively inserted into VEC1. The dynamic order of application of F is unspecified.�CRG5� ������h����)���3�4�5$��"��4�>��"��G��$��"��4>��"��G��45"��+$��C4�>��"��G��" ")���3�4�5$��"��4�>��"��G��$��"��4>��"��G��$��"��4>��"��G��445455"��0$��C4�>��"��G��" "-�1�3�4�5$��"��4�>��"��G��"��6(��"��4$��"��4>��"��G��""45"��1$��C4 �4 5>��"��G��" "�����������g��f ��g��v ��g��len  V ��g��i  \ ��g��f � N�g��v1 � N�g��v2  � N�g��len   N�g��i   G�g��f W �g��vs W �g��vs   �g��len   �g��i   ��g��filenamef��srfi/srfi-43.scm           1   >   @   P   V   \   a   e  h  q   v  �   �  �   �   �   �   �   �   �   �   �   �   �   �                       #  ,   1  " 6  A   G  G   W   X   k   m                                        �> � � � N � W  ��g��nameg��vector-for-eachg�� documentationf��(vector-for-each f vec1 vec2 ...) -> unspecified Call (F i VEC1[i] VEC2[i] ...) for each index i less than the length of the shortest vector passed. The iteration is strictly left-to-right.�CRG 5� ���h0��V��)���3�4�5$��"��4�>��"��G��$��"��4>��"��G��45"��7$��C4�5$��"" ")���3�4�5$��"��4�>��"��G��$��"��4>��"��G��$��"��4>��"��G��445455"��<$��C4�5$��"" "-�1�3�4�5$��"��4�>��"��G��"��6(��"��4$��"��4>��"��G��""45"��;$��C4�4 5?$��"" "��N������g��pred? ��g��v ��g��len  V ��g��i  \ ��g��count  \ ��g��pred? � l�g��v1 � l�g��v2  � l�g��len   l�g��i  & b�g��count  & b�g��pred? u .�g��vs u .�g��vs   �g��len   .�g��i   $�g��count   $��g��filenamef��srfi/srfi-43.scm #  *   *   *  1 +  > +  @ +  P ,  V ,  \ -  a .  e . i /  r /  t /  x . { 0  ~ 0  � 0  � 2  � 2  � -  � #  � 4  � 4  � 4  � 5  � 5  � 5  � 6  � 6  � 6   7   7   8   7   7  & 9  + :  / : 3 ;  < ;  A ; + C ;  G : J <  M <  U <  X >  b >  b 9  u #  v @   @   @   A   A   A   B   B   C   D   D  E   E   E   D  F   F   F   H  $ H  $ C �J � � � l � u . ��g��nameg�� vector-countg�� documentationf��(vector-count pred? vec1 vec2 ...) -> exact nonnegative integer Count the number of indices i for which (PRED? VEC1[i] VEC2[i] ...) returns true, where i is less than the length of the shortest vector passed.�C RG!5� �����h����)���3�4�5$��"��4�>��"��G��$��"��4>��"��G��45"��%$��4�5$��C"C ")���3�4�5$��"��4�>��"��G��$��"��4>��"��G��$��"��4>��"��G��445455"��*$��4�5$��C"C "-�1�3�4�5$��"��4�>��"��G��"��6(��"��4$��"��4>��"��G��""45"��)$��4�4 5?$��C"C "�������g��pred? ��g��v ��g��len  V ��g��i  \ ��g��pred? � B�g��v1 � B�g��v2  � B�g��len   B�g��i   ;�g��pred? K �g��vs K �g��vs  t �g��len   �g��i   ��g��filenamef��srfi/srfi-43.scm K  R   R   R  1 S  > S  @ S  P T  V T  \ U  a V  e V f W  m W  o W  s W  y Y   Y  � U  � K  � [  � [  � [  � \  � \  � \  � ]  � ]  � ]  � ^  � ^   _   ^   ^   `   a   a  b  " b  ' c  ) b  - b  3 e  9 e  ; `  K K  L g  _ g  a g  t h   h   h   i   i   j   k   k  l   l   l   l   n   n   j �A � � � B � K  ��g��nameg�� vector-indexg�� documentationf��(vector-index pred? vec1 vec2 ...) -> exact nonnegative integer or #f Find and return the index of the first elements in VEC1 VEC2 ... that satisfy PRED?. If no matching element is found by the end of the shortest vector, return #f.�C!RG"5� ����h��@��)���3�4�5$��"��4�>��"��G��$��"��4>��"��G��45"��$ $��4�5$��C"C")���3�4�5$��"��4�>��"��G��$��"��4>��"��G��$��"��4>��"��G��445455"��) $��4�5$��C"C"-�1�3�4�5$��"��4�>��"��G��"��6(��"��4$��"��4>��"��G��""45"��( $��4�4 5?$��C"C"������8������g��pred? ��g��v ��g��len  V ��g��i  \ ��g��pred? � D�g��v1 � D�g��v2  � D�g��len   D�g��i   ;�g��pred? M �g��vs M �g��vs  v �g��len   �g��i   ��g��filenamef��srfi/srfi-43.scm q  x   x   x  1 y  > y  @ y  P z  V z  \ {  ` |  d | e }  l }  n }  r }  x   ~   � {  � {  � {  � q  �   �   �   �   �   �   �   �   �   �   �                       "   '   )   -   3   9   ;   >   D   M q  N   a   c   v                                                 �G � � � D � M  ��g��nameg��vector-index-rightg�� documentationf�(vector-index-right pred? vec1 vec2 ...) -> exact nonnegative integer or #f Find and return the index of the last elements in VEC1 VEC2 ... that satisfy PRED?, searching from right-to-left. If no matching element is found before the end of the shortest vector, return #f.�C"RG#5� ���h����)���3�4�5$��"��4�>��"��G��$��"��4>��"��G��45"��%$��4�5$�� "CC ")���3�4�5$��"��4�>��"��G��$��"��4>��"��G��$��"��4>��"��G��445455"��*$��4�5$�� "CC "-�1�3�4�5$��"��4�>��"��G��"��6(��"��4$��"��4>��"��G��""45"��)$��4�4 5?$�� "CC "�������g��pred? ��g��v ��g��len  V ��g��i  \ ��g��pred? � B�g��v1 � B�g��v2  � B�g��len   B�g��i   ;�g��pred? K �g��vs K �g��vs  t �g��len   �g��i   ��g��filenamef��srfi/srfi-43.scm           1   >   @   P   V   \   a   e  f   m   o   s   v   |   �   �   �   �   �   �   �   �   �   �   �   �   �                       "   '   )   -   0   6   ;   K   L   _   a   t                                           �A � � � B � K  ��g��nameg�� vector-skipg�� documentationf��(vector-skip pred? vec1 vec2 ...) -> exact nonnegative integer or #f Find and return the index of the first elements in VEC1 VEC2 ... that do not satisfy PRED?. If no matching element is found by the end of the shortest vector, return #f.�C#RG$5� �������h��E��)���3�4�5$��"��4�>��"��G��$��"��4>��"��G��45"��$ $��C4�5$�� "C")���3�4�5$��"��4�>��"��G��$��"��4>��"��G��$��"��4>��"��G��445455"��) $��C4�5$�� "C"-�1�3�4�5$��"��4�>��"��G��"��6(��"��4$��"��4>��"��G��""45"��( $��C4�4 5?$�� "C"������=������g��pred? ��g��v ��g��len  V ��g��i  \ ��g��pred? � D�g��v1 � D�g��v2  � D�g��len   D�g��i   ;�g��pred? M �g��vs M �g��vs  v �g��len   �g��i   ��g��filenamef��srfi/srfi-43.scm           1   >   @   P   V   \   _   d  g   n   p   t   w   }   �   �   �   �   �   �   �   �   �   �   �   �   �   �   �                       $   )   +   /   2   8   ;   >   D   M   N   a   c   v                                                 �G � � � D � M  ��g��nameg��vector-skip-rightg�� documentationf�(vector-skip-right pred? vec1 vec2 ...) -> exact nonnegative integer or #f Find and return the index of the last elements in VEC1 VEC2 ... that do not satisfy PRED?, searching from right-to-left. If no matching element is found before the end of the shortest vector, return #f.�C$R������hp�����]-"��]$��R �45  $��C $�� " $�� "CC"�������g��vec  o�g��value  o�g��cmp   o�g��start   o�g��end   o�g��lo   c�g��hi   c�g��i   a�g��x   a�g��c ) a�� g��filenamef��srfi/srfi-43.scm            !           !   )  .   3   9   >   J  $ M   R   U  * _  $ c  �  o ��g��nameg��%vector-binary-search�C�G%5p� ������h����)���[3��$��"��4�>��"��G��45$��"��4>��"��G��L�� 4�56)���3��$��"��4�>��"��G��4�5"��4>��"��;G��"��445$��% $��$��"��""��""��"L��6] �$��"��4�>��"��G��4�5"��4 >��"��_G��"��X45$��I45$��6 $��&$��$��"��""��""��""��""��"L��6��������g��vec a�g��value a�g��cmp  a�g��vec j ��g��value j ��g��cmp  j ��g��start  j ��g��len  � ��g��vec � �g��value � �g��cmp  � �g��start  � �g��end  � �g��len   ��g��filenamef��srfi/srfi-43.scm           +   >   @   Y  . a   j   m   z   |   �   �   �  �  ' �  � � �   �               %  )  + +    � a � j � � �  ��g�� documentationf�(vector-binary-search vec value cmp [start [end]]) -> exact nonnegative integer or #f Find and return an index of VEC between START and END whose value is VALUE using a binary search. If no matching element is found, return #f. The default START is 0 and the default END is the length of VEC. CMP must be a procedure of two arguments such that (CMP A B) returns a negative integer if A < B, a positive integer if A > B, or zero if A = B. The elements of VEC must be sorted in non-decreasing order according to CMP.�C�O��%RG&5� ���h���P��)���3�4�5$��"��4�>��"��G��$��"��4>��"��G��45"��)$��4�5$��C"C ")���3�4�5$��"��4�>��"��G��$��"��4>��"��G��$��"��4>��"��G��445455"��.$��#4�5$��C"C "-�1�3�4�5$��"��4�>��"��G��"��6(��"��4$��"��4>��"��G��""45"��-$��"4�4 5?$��C"C "�����H������g��pred? ��g��v ��g��len  V ��g��i  \ ��g��t  o ��g��pred? � J�g��v1 � J�g��v2  � J�g��len   J�g��i   C�g��t  - A�g��pred? S �g��vs S �g��vs  | �g��len   �g��i   �g��t   ��g��filenamef��srfi/srfi-43.scm           1   >   @   P   V   \   a   e  f   m   o   o   }   �   �   �   �   �   �   �   �   �   �   �   �   �   �                       &   + !  -   -   ; "  A "  C   S   T $  g $  i $  | %   %   %   &   &   '   (   (  )   )   )   )   *   *   ' �A � � � J � S  ��g��nameg�� vector-anyg�� documentationf�2(vector-any pred? vec1 vec2 ...) -> value or #f Find the first parallel set of elements from VEC1 VEC2 ... for which PRED? returns a true value. If such a parallel set of elements exists, vector-any returns the value that PRED? returned for that set of elements. The iteration is strictly left-to-right.�C&RG'5� ���h@��m��)���3�4�5$��"��4�>��"��G��$��"��4>��"��G��45 $��C"��04�5$�� "��$��C" ")���3�4�5$��"��4�>��"��G��$��"��4>��"��G��$��"��4>��"��G��445455 $��C"��54�5$�� "��$��C" "-�1�3�4�5$��"��4�>��"��G��"��6(��"��4$��"��4>��"��G��""45 $��C"��44�4 5?$�� "��$��C" "���e������g��pred? ��g��v ��g��len  V ��g��t  \ ��g��i  k ��g��val  x ��g��next-i  x ��g��pred? � v�g��v1 � v�g��v2  � v�g��len  % v�g��t  + v�g��i  : o�g��val  L o�g��next-i  L o�g��pred?  =�g��vs  =�g��vs   �g��len   =�g��t   =�g��i   6�g��val   6�g��next-i   6��g��filenamef��srfi/srfi-43.scm -  6   6   6  1 7  > 7  @ 7  P 8  V 8  [ 9 \ 9  k : l ;  s ;  u ;  x <  x ; � =  � = ! � =  � =  � ?  � : � -  � A  � A  � A  � B  � B  � B  � C   C   C   D   D   E  % D  % D  * F + F  : G ; H  B H  G I  I H  L J  L H V K  [ K ! ` K  d K  o M  o G  -   O   O   O   P   P   P   Q   Q   R  R   S  T   T %  T   U   T  V  " V ! ' V  + V  6 X  6 S �M � � � v �  = ��g��nameg�� vector-everyg�� documentationf�\(vector-every pred? vec1 vec2 ...) -> value or #f If, for every index i less than the length of the shortest vector argument, the set of elements VEC1[i] VEC2[i] ... satisfies PRED?, vector-every returns the value that PRED? returned for the last set of elements, at the last index of the shortest vector. The iteration is strictly left-to-right.�C'RG(5p��������h�����]�$��"��4�>��"��G��4�5"��4>��"��;G��"��445$��% $��$��"��""��""��""��4>��"��;G��"��445$��% $��$��"��""��""��"����C������������g��vec  ��g��i  ��g��j   ��g��len  * ��g��tmp  � ���g��filenamef��srfi/srfi-43.scm Z  ^   ^   ^  $ _ * _  1 `  5 `  7 `  � a  � a  � a  � b  � b  � c  � c  � d �  � ��g��nameg�� vector-swap!g�� documentationf��Z(vector-swap! vec i j) -> unspecified Swap the values of the locations in VEC at I and J.�C(RH����h0������] "��$���"C"��������������g��vec  )�g��fill  )�g��start   )�g��end   )�g��i   !��g��filenamef��srfi/srfi-43.scm k   l  m   m   n  o   o ! l �  ) ��g��nameg�� %vector-fill!�CK�G95p���hX����)��� 3�M�6)���3��$��"��4�>��"��G��4�5"��4>��"��;G��"��445$��% $��$��"��""��""��"L��6] �$��"��4�>��"��G��4�5"��4>��"��_G��"��X45$��I45$��6 $��&$��$��"��""��""��""��""��"L��6������������g��vec �g��fill �g��vec  ��g��fill  ��g��start   ��g��len  B ��g��vec � R�g��fill � R�g��start  � R�g��end  � R�g��len  � R�� g��filenamef��srfi/srfi-43.scm p   v   p   x  * x  , x  < y  B y  I z M z ' O z � { � p  � }  � }  � }  � ~  � ~  �  �  + �  R  �  �  � � � R ��g�� documentationf��(vector-fill! vec fill [start [end]]) -> unspecified Assign the value of every location in VEC between START and END to FILL. START defaults to 0 and END defaults to the length of VEC.�C�O��9RhH���C��]"��1$��&����"C"����;������g��vec  D�g��start  D�g��end   D�g��i   7�g��j   7�g��tmp   5��g��filenamef��srfi/srfi-43.scm                    '   *   -   5   7   <   D  �  D ��g��nameg��%vector-reverse!�C RG) 5p� ���hx����)���23��$��"��4�>��"��G��� 4�56)���3��$��"��4�>��"��G��4�5"��4>��"��;G��"��445$��% $��$��"��""��""��"�6] �$��"��4�>��"��G��4�5"��4>��"��_G��"��X45$��I45$��6 $��&$��$��"��""��""��""��""��"�6���������g��vec 8�g��vec A ��g��start A ��g��len  i ��g��vec � u�g��start � u�g��end  � u�g��len  � u��g��filenamef��srfi/srfi-43.scm           0   8   A   D   Q   S   c   i   p   t  % v   �   �   �   �   �   �   �   �   �  ) �   u  � 8 � A � � � u ��g��nameg��vector-reverse!g�� documentationf��(vector-reverse! vec [start [end]]) -> unspecified Destructively reverse the contents of VEC between START and END. START defaults to 0 and END defaults to the length of VEC.�C)R4J!LO568:AB<D@NO>FPVWZ]`_Kegjkinp������h8��t���]���� ��    ������� ��    �� ������� ��    ����������C�������l�������g��dummy  1�g��copy!  1�g�� docstring   1�g�� inner-proc   1��  1 ���C{|�����h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-43.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��copy!g�� docstringg�� inner-proc���C5!RG*5pXq� ������h����)���3��$��"��4�>��"��G��$��"��4>��"��G��4�545"��4>��"��;G��"��445$��% $��$��"��""��""��"$��"��4>��"��G�� $��  �6  �6)��G3��$��"��4�>��"��G��$��"��4>��"��G��4�545"��4>��"��;G��"��445$��% $��$��"��""��""��""��4>��"��;G��"��445$��% $��$��"��""��""��"$��"��4>��"��G��$���6 �6]�$��"��4�>��"��G��$��"��4>��"��G��4�545"��4>��"��;G��"��445$��% $��$��"��""��""��""��4 >��"��_G��"��X45$��I45$��6 $��&$��$��"��""��""��""��""��"$��"��4>��"��G��$���6 �6��������g��target ��g��tstart ��g��source  ��g��tlen  Y ��g��slen  Y ��g��target � B�g��tstart � B�g��source  � B�g��sstart  � B�g��tlen  N B�g��slen  N B�g��target D �g��tstart D �g��source  D �g��sstart  D �g��send  D �g��tlen   �g��slen   ��g��filenamef��srfi/srfi-43.scm  �   �   �   �   �  "   &   4   B   D             � � � � B � D  ��g�� documentationf�(vector-copy! target tstart source [sstart [send]]) -> unspecified Copy a block of elements from SOURCE to TARGET, both of which must be vectors, starting in TARGET at TSTART and starting in SOURCE at SSTART, ending when SEND - SSTART elements have been copied. It is an error for TARGET to have a length less than TSTART + (SEND - SSTART). SSTART defaults to 0 and SEND defaults to the length of SOURCE.�C*R ��������h`���_��]"��4"��#$���"C"�&��$�� �6""���W������g��target  ]�g��tstart  ]�g��source   ]�g��sstart   ]�g��send   ]�g��i  -�g��j  -��g��filenamef��srfi/srfi-43.scm            "     #   +  -   2  ! :   :   G  ! K   U  �  ] ��g��nameg��%copy!�C�G+5pX� �hp��>��)���3��$��"��4�>��"��G��$��"��4>��"��G��4�545"��4>��"��;G��"��445$��% $��$��"��""��""��"$��"��4>��"��G��L�� 6)��03��$��"��4�>��"��G��$��"��4>��"��G��4�545"��4>��"��;G��"��445$��% $��$��"��""��""��""��4>��"��;G��"��445$��% $��$��"��""��""��"$��"��4>��"��G��L��6]�$��"��4�>��"��G��$��"��4>��"��G��4�545"��4>��"��;G��"��445$��% $��$��"��""��""��""��4>��"��_G��"��X45$��I45$��6 $��&$��$��"��""��""��""��""��"$��"��4>��"��G��L��6�����6������g��target ��g��tstart ��g��source  ��g��tlen  Y ��g��slen  Y ��g��target � �g��tstart � �g��source  � �g��sstart  � �g��tlen  9 �g��slen  9 �g��target  k�g��tstart  k�g��source   k�g��sstart   k�g��send   k�g��tlen  h k�g��slen  h k��g��filenamef��srfi/srfi-43.scm  � � � �  �  k ��g�� documentationf�X(vector-reverse-copy! target tstart source [sstart [send]]) -> unspecified Like vector-copy!, but copy the elements in the reverse order. It is an error if TARGET and SOURCE are identical vectors and the TARGET and SOURCE ranges overlap; however, if TSTART = SSTART, vector-reverse-copy! behaves as (vector-reverse! TARGET TSTART SEND) would.�C�O��+R�����h8�����]"��$��C�""�������������g��vec  1�g��start  1�g��end   1�g��i   %�g��result   %��g��filenamef��srfi/srfi-43.scm                  %  %   (   )   1  �  1 ��g��nameg�� %vector->list�C�G;5p��hx����)���23��$��"��4�>��"��G��L�� 4�56)���3��$��"��4�>��"��G��4�5"��4>��"��;G��"��445$��% $��$��"��""��""��"L��6] �$��"��4�>��"��G��4�5"��4>��"��_G��"��X45$��I45$��6 $��&$��$��"��""��""��""��""��"L��6���������g��vec 8�g��vec A ��g��start A ��g��len  i ��g��vec � u�g��start � u�g��end  � u�g��len  � u��g��filenamef��srfi/srfi-43.scm           0   8   A   D   Q   S   c   i   p  t  ' v  �  �   �   �   �   �   �   �  �  + �  u  � 8 � A � � � u ��g�� documentationf��(vector->list vec [start [end]]) -> proper-list Return a newly allocated list containing the elements in VEC between START and END. START defaults to 0 and END defaults to the length of VEC.�C�O��;R����h0�����]"��$��C�""������g��vec  0�g��start  0�g��end   0�g��i   %�g��result   %��g��filenamef��srfi/srfi-43.scm                  %  %   ( �  0  �  0 ��g��nameg��%reverse-vector->list�C�G,5p���hx����)���23��$��"��4�>��"��G��L�� 4�56)���3��$��"��4�>��"��G��4�5"��4>��"��;G��"��445$��% $��$��"��""��""��"L��6] �$��"��4�>��"��G��4�5"��4>��"��_G��"��X45$��I45$��6 $��&$��$��"��""��""��""��""��"L��6���������g��vec 8�g��vec A ��g��start A ��g��len  i ��g��vec � u�g��start � u�g��end  � u�g��len  � u��g��filenamef��srfi/srfi-43.scm           0  $ 8   A   D   Q   S   c   i   p  t  ' v  �  �   �   �   �   �   �   �  �  + �  u  � 8 � A � � � u ��g�� documentationf��(reverse-vector->list vec [start [end]]) -> proper-list Return a newly allocated list containing the elements in VEC between START and END in reverse order. START defaults to 0 and END defaults to the length of VEC.�C�O��,Rr0s�hp���Z��-�.�,�3�#�� #�� 4�545"��"$��C" 4�5"����R������g��lst l�g��start l�g��end  l�g��len  ) l�g��result  2 l�g��i  8 Z�g��lst  8 Z��g��filenamef��srfi/srfi-43.scm    5 )   )   ,   2   8 !  = " A "  K $ ' L $  O %  R %  Z %  Z !  \ !  l ! � l ��g��nameg�� list->vectorg�� documentationf��(list->vector proper-list [start [end]]) -> vector Return a newly allocated vector of the elements from PROPER-LIST with indices between START and END. START defaults to 0 and END defaults to the length of PROPER-LIST.�C:Rr0s�������hp�����-�.�,�3�#�� #�� 4�545"��! $��C"4�5"���}������g��lst m�g��start m�g��end  m�g��len  ) m�g��result  2 m�g��i  8 Y�g��lst  8 Y��g��filenamef��srfi/srfi-43.scm (  ( = ) .  ) .  , /  2 .  8 0  ; 1 @ 1  J 3 ' K 3  N 4  Q 4  Y 4  Y 0  \ 0  ] 0 " m 0 � m ��g��nameg��reverse-list->vectorg�� documentationf��(reverse-list->vector proper-list [start [end]]) -> vector Return a newly allocated vector of the elements from PROPER-LIST with indices between START and END, in reverse order. START defaults to 0 and END defaults to the length of PROPER-LIST.�C-RC������d������g��m  4�g��%vector-reverse-copy /7 3�g��all-of-length? @K GS�g��=up-to? @K GS�g��%vector-binary-search ������c�������g��guile-vector-fill! ������������[�g�� %vector-fill! ������������X�g��%copy! ������!�������g�� %vector->list ������\������ҧ�g��%reverse-vector->list ������������h�� g��filenamef��srfi/srfi-43.scm   5 ) : )  B ) & G ) D + U  ]  d & � & � -k � 3 � 6  :  <E - = 5 GV < O j X*  _  g  m � uq " |b J ������ p ������  ������  ������  ������;  ������ , ������ Z ������^ g ������  ������M  ������I  ������!  ������Ҫ  ������k  ������M  ������` ( �* ������b ���C6���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/srfi/srfi-111.go�������������������������������������������������������������������������0000644�����������������00000037127�15146341264�0011026 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0?>������]<�4��h(������]� g��guile � g��define-module* � � g��srfi g��srfi-111 � g��filenameS f��srfi/srfi-111.scm g��importsS g��srfi-9  �  � g��gnu  � � � g��exportsS g��box g��box? g��unbox g��set-box! � g��set-current-module � � g��cond-expand-provide g��current-module � g��<box> g��%box-procedure !g��make-syntax-transformer "!� #!� $g��macro %g�� $sc-dispatch &%� '%� (g��_ )g��any *()� +g�� syntax-object ,g��lambda -g��m-a33a589db48-4 .g��top /-.� 0g��ribcage 1g��t-a33a589db48-3 21� 3/� 4f��l-a33a589db48-9 54� 60235� 70� 8g��x 98� :f��l-a33a589db48-6 ;:� <093;� =g��shift >g�� proc-name ?g��args @>?� A.� BAA� Cf��l-1e8ba8b5a-2ba Df��l-1e8ba8b5a-2bb ECD� F0@BE� Gg��key Hg��value Ig��name Jg��formals Kg��body LGHIJK� MAAAAA� Nf��l-1e8ba8b5a-2ad Of��l-1e8ba8b5a-2ae Pf��l-1e8ba8b5a-2af Qf��l-1e8ba8b5a-2b0 Rf��l-1e8ba8b5a-2b1 SNOPQR� T0LMS� Ug��make-procedure-name VU� WA� Xf��l-1e8ba8b5a-29d YX� Z0VWY� [A� \f��l-1e8ba8b5a-29c ]\� ^09[]� _/67<=7777FTZ^�  `g��hygiene a` � b+,_a� cA67<� d`� e+Hcd� fe� gg�� make-struct hg��m-a33a589db48-1 ih.� jg��t-1e8ba8b5a-38d kg��t-1e8ba8b5a-38c lg��t-1e8ba8b5a-38b mjkl� ng��m-1e8ba8b5a-38e on.� pooo� qf��l-1e8ba8b5a-392 rf��l-1e8ba8b5a-393 sf��l-1e8ba8b5a-394 tqrs� u0mpt� vg�� ctor-args wv� xf��l-1e8ba8b5a-37a yx� z0w[y� {g��ctor |g��field }{|� ~f��l-1e8ba8b5a-376 f��l-1e8ba8b5a-377 �~� �0}B� �g��form �g�� type-name �g��constructor-spec �g�� field-names �� �AAAA� �f��l-1e8ba8b5a-36b �f��l-1e8ba8b5a-36c �f��l-1e8ba8b5a-36d �f��l-1e8ba8b5a-36e �� �0� �g�� record-layout �g��functional-setters �g��setters �g��copier �g��getters �g�� constructor �g��getter-identifiers �g��field-identifiers �� �AAAAAAAA� �f��l-1e8ba8b5a-343 �f��l-1e8ba8b5a-341 �f��l-1e8ba8b5a-33f �f��l-1e8ba8b5a-33d �f��l-1e8ba8b5a-33b �f��l-1e8ba8b5a-339 �f��l-1e8ba8b5a-337 �f��l-1e8ba8b5a-335 �� �0� �f��l-1e8ba8b5a-334 �� �09[� �i67<=7u777z7� �+ga� �+cd� �+ a� �e� �bf� �g��each-any �( �g��syntax-violation � � � � �f��Wrong number of arguments �g�� identifier? � � � � �A7<� �+ d� �� �� �f��-source expression failed to match any pattern �g��record-type-vtable � � � � �g��pw �g��default-record-printer � � � � �H� �g��set-struct-vtable-name! � � � � �g��vtable-offset-user � � � � �g��%box?-procedure �g��m-a33a589db48-11 �.� �g��t-a33a589db48-10 �� �� �f��l-a33a589db48-16 �� �0� �f��l-a33a589db48-13 �� �09� �7=7777FTZ^�  �+,a� �g��obj �g��t-1e8ba8b5a-47e �g��t-1e8ba8b5a-478 �g��t-1e8ba8b5a-479 �g��t-1e8ba8b5a-47a �g��t-1e8ba8b5a-47d �g��t-1e8ba8b5a-47c �g��t-1e8ba8b5a-47b �� �g��m-1e8ba8b5a-47f �.� �� �f��l-1e8ba8b5a-483 �f��l-1e8ba8b5a-484 �f��l-1e8ba8b5a-485 �f��l-1e8ba8b5a-486 �f��l-1e8ba8b5a-487 �f��l-1e8ba8b5a-488 �f��l-1e8ba8b5a-489 �� �0� �g�� copier-id �� �f��l-1e8ba8b5a-476 �� �0[� �g�� ctor-name �� �f��l-1e8ba8b5a-46e �� �0[� �� �f��l-1e8ba8b5a-46c �� �0[� �g��layout �� �f��l-1e8ba8b5a-46a �� �0[� �g�� immutable? �� �f��l-1e8ba8b5a-468 �� 0[�� g�� field-count � f��l-1e8ba8b5a-466 � 0[� g�� getter-ids �  f��l-1e8ba8b5a-463   �  0[ �  g�� field-ids   � f��l-1e8ba8b5a-460 � 0 [� g��predicate-name g�� field-spec � AAAAAA� f��l-1e8ba8b5a-453 f��l-1e8ba8b5a-454 f��l-1e8ba8b5a-455 f��l-1e8ba8b5a-456 f��l-1e8ba8b5a-457 f��l-1e8ba8b5a-458 � 0� i7=77777777777 7� +a� �  g��and !+ a� "g��struct? #+"a� $#� %g��eq? &+%a� 'g�� struct-vtable (+'a� )(� *A7� ++*d� ,&)+� -!$,� .-� /A7� 0+/d� 1g��throw-bad-struct 2 1� 3 1� 4g��%unbox-procedure 5g��free-id 6g�� %%on-error 7g��m-a33a589db48-1d 87.� 98� :f��l-a33a589db48-1f ;:� <099;� =87<=7777FTZ^�  >+6=a� ?5>� @?)� Ag��%%type Bg��t-1e8ba8b5a-3a5 Cg��t-1e8ba8b5a-3a6 Dg��t-1e8ba8b5a-3a7 Eg��t-1e8ba8b5a-3a8 Fg��t-1e8ba8b5a-3a9 Gg��t-1e8ba8b5a-3aa Hg��t-1e8ba8b5a-3ab IBCDEFGH� Jg��m-1e8ba8b5a-3ac KJ.� LKKKKKKK� Mf��l-1e8ba8b5a-3b0 Nf��l-1e8ba8b5a-3b1 Of��l-1e8ba8b5a-3b2 Pf��l-1e8ba8b5a-3b3 Qf��l-1e8ba8b5a-3b4 Rf��l-1e8ba8b5a-3b5 Sf��l-1e8ba8b5a-3b6 TMNOPQRS� U0ILT� Vg��getter Wg��index XVW� Yf��l-1e8ba8b5a-3a3 Zf��l-1e8ba8b5a-3a4 [YZ� \0XB[� ]� ^AAA� _f��l-1e8ba8b5a-39e `f��l-1e8ba8b5a-39f af��l-1e8ba8b5a-3a0 b_`a� c0]^b� di7<=7U777\7c� e+Ada� f5e� g(@f)� hg��ck ig��err jg��s kij� l88� mf��l-a33a589db48-22 nf��l-a33a589db48-23 omn� p0klo� q8p7<=7777FTZ^�  r+hqa� sg��quote t+sqa� uAp7<� v+ud� wtv� xw� yg��%%index z+yda� {5z� |(@{)� }f��l-a33a589db48-27 ~f��l-a33a589db48-28 }~� 0kl� 87<=7777FTZ^�  +ha� +sa� 7<� + d� � � g��%%copier +da� 5� (@)� f��l-a33a589db48-2c f��l-a33a589db48-2d � 0kl� 87<=7777FTZ^�  +ha� +sa� g��%%<box>-set-fields A7<� +d� � � g��t-a33a589db48-1c � f��l-a33a589db48-31 � 09� 87<=7777FTZ^�  +,a� i7<=7U777\7c� +ja� � g��if +a� +%a� +'a� � A7<� +d� � g�� struct-ref +a� 7<� + d� � +1a� +sa� +d� � � � � A7<� +4d� g��each ))� � ) ) ) g�� %%set-fields g��dummy g��check? g��expr jV� g��m-a33a589db48-38 .� iiii� f��l-a33a589db48-3d f��l-a33a589db48-3e f��l-a33a589db48-3f f��l-a33a589db48-40 f��l-a33a589db48-41 � 0� � f��l-a33a589db48-3a � 09� g��t-1e8ba8b5a-3c4 g��t-1e8ba8b5a-3c6 g��t-1e8ba8b5a-3c5 � g��m-1e8ba8b5a-3c7 .� � f��l-1e8ba8b5a-3cb f��l-1e8ba8b5a-3cc f��l-1e8ba8b5a-3cd � 0� f��l-1e8ba8b5a-3c1 f��l-1e8ba8b5a-3c2 f��l-1e8ba8b5a-3c3 � 0]^� i7=7777�  +a� A7� +d� +d� � g��map � � g��list g��%set-box!-procedure ())� g��m-a33a589db48-4c .� g��t-a33a589db48-4a g��t-a33a589db48-4b � � f��l-a33a589db48-51 f��l-a33a589db48-52 � 0� � f��l-a33a589db48-4e � 09� 7=7777FTZ^�  +,a� g��t-1e8ba8b5a-3e6 g��t-1e8ba8b5a-3e7 �� g��m-1e8ba8b5a-3e8 .� � f��l-1e8ba8b5a-3ec f��l-1e8ba8b5a-3ed � 0�� g��setter  IV�  f��l-1e8ba8b5a-3e0  f��l-1e8ba8b5a-3e1  f��l-1e8ba8b5a-3e2     � 0 ^ � W� f��l-1e8ba8b5a-3d7 f��l-1e8ba8b5a-3d8 � 0B� g�� field-specs � f��l-1e8ba8b5a-3d3 f��l-1e8ba8b5a-3d4 � 0B� i7=777� +ja� g��val +a� � +a�  +%a� !+'a� "!� #A7� $+#d� % "$� &g�� struct-set! '+&a� (7� )+ (d� *')� ++1a� ,+sa� -+#d� .,-� /+.� 0%*/� 10� 2A7� 3+2d� 4g��set-record-type-printer! 5g��display 6f��#<box  7g��number->string 8g��object-address 9f�� value:  :g��write ;f��>C�5��hh�����]4   5�4�>��"��G���4i4i5�>��"��G�����h���r���]��C������j�������g��value  ��g��filenamef��srfi/srfi-111.scm  �  ��g��nameg��%box-procedure�C R4#$'*�h���7���]��C������/�������g��t-a33a589db48-3  ��  ���C�����h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-111.scm   �  ���C(����h���D���]�L�6<�������g��filenamef��srfi/srfi-111.scm   �   ���C������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��}�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-111.scm  �  n ���C5R��4�>��"��G��� Ɩ i��R��������h���q���]�$���CC������i�������g��obj  ��g��filenamef��srfi/srfi-111.scm  �   ��g��nameg��%box?-procedure�CR4#$'*.�h���8���]��C������0�������g��t-a33a589db48-10  ��  ���C����h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-111.scm   �  ���C(����h���D���]�L�6<�������g��filenamef��srfi/srfi-111.scm   �   ���C0�����h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��}�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-111.scm  �  n ���C5R3���h���p���]�&��� C�6h�������g��s  ��g��filenamef��srfi/srfi-111.scm  �   ��g��nameg��%unbox-procedure�C4R4#$'grx�����h���:���]C�����2�������g��err  �g��s  ��  ���C|�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C*�����h���8���]��C������0�������g��t-a33a589db48-1c  ��  ���C����h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-111.scm   �  ���C(����h���D���]�L�6<�������g��filenamef��srfi/srfi-111.scm   �   ���C�����h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-111.scm  �  � ���C5R4#$'�h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-111.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5R3��������h ������]�&��� C�6������|�������g��s  �g��val  ��g��filenamef��srfi/srfi-111.scm  �   ��g��nameg��%set-box!-procedure�CR4#$'1����h���V���]��C����N�������g��t-a33a589db48-4a  �g��t-a33a589db48-4b  ��  ���C������h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-111.scm   �  ���C(����h���D���]�L�6<�������g��filenamef��srfi/srfi-111.scm   �   ���C3�����h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��}�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-111.scm  �  n ���C5R4ii56789:3;� ����h������]4>��"��G��444�5 5>��"��G��4>��"��G��4�&��� "�� 4� 5>��"��G�� 6�����������g��box  |�g��port  |��g��filenamef��srfi/srfi-111.scm         !   !  !  ' ! . !  7 "  ; " @ "  I #  N # l #  x $ | $ �  | ���C6�������������g��m  ,�g��rtd o ��g��filenamef��srfi/srfi-111.scm   -  2   :  & ?  �  b  �  b ���C6������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/srfi/srfi-18.go��������������������������������������������������������������������������0000644�����������������00000040543�15146341264�0010750 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0KA������]��4��h ������]� g��guile � g��define-module* � � g��srfi g��srfi-18 � g��filenameS f��srfi/srfi-18.scm g��importsS g��srfi-34  �  � � g��exportsS g�� make-thread g�� thread-name g��thread-specific g��thread-specific-set! g�� thread-start! g�� thread-yield! g�� thread-sleep! g��thread-terminate! g�� thread-join! g�� make-mutex g�� mutex-name g��mutex-specific g��mutex-specific-set! g�� mutex-state g�� mutex-lock! g�� mutex-unlock! !g��make-condition-variable "g��condition-variable-name #g��condition-variable-specific $g�� condition-variable-specific-set! %g��condition-variable-signal! &g��condition-variable-broadcast! 'g��condition-variable-wait! (g�� current-time )g��time? *g�� time->seconds +g�� seconds->time ,g��current-exception-handler -g��with-exception-handler .g��raise /g��join-timeout-exception? 0g��abandoned-mutex-exception? 1g��terminated-thread-exception? 2g��uncaught-exception? 3g��uncaught-exception-reason 4 !"#$%&'()*+,-./0123�# 5g�� re-exportsS 6g��current-thread 7g��thread? 8g��mutex? 9g��condition-variable? :6789� ;g�� replacementsS <(!.� =g��set-current-module >=� ?=� @g�� provided? Ag��threads Bg��error Cf��+SRFI-18 requires Guile with threads support Dg��cond-expand-provide Eg��current-module F� Gg�� scm-error Hg��wrong-type-arg If��Wrong type argument: ~S Jg��check-arg-type Kg��abandoned-mutex-exception Lg��join-timeout-exception Mg��terminated-thread-exception Ng��uncaught-exception Og��make-weak-key-hash-table Pg�� object-names Qg��object-specifics Rg��thread-start-conds Sg��thread-exception-handlers T .� U .� Vg��srfi-18-exception-preserver Wg��initial-handler Xg��make-object-property Yg��thread->exception Zg��setter [Z� \Z� ]g��srfi-18-exception-handler ^g�� hashq-ref _g�� hashq-set! `g��current-handler-stack ag�� procedure? bf��with-exception-handler cg��thunk? d -� e -� ff��uncaught-exception-reason gg�� launch-mutex hg��launch-condition-variable ig�� start-mutex jg��start-condition-variable kg�� lock-mutex lg��call-with-new-thread mg��signal-condition-variable ng�� unlock-mutex og��wait-condition-variable pf�� thread-name qf��thread-specific rf��thread-specific-set! sf�� thread-start! tg�� hashq-remove! ug��yield vg��number? wf�� thread-sleep! xg��inexact->exact yg��truncate zg��sleep {g��usleep |g��wrap }g��thread-cleanup ~g��set-thread-cleanup! g�� cancel-thread �g�� join-thread �g��length �� �� �g��unchecked-unlock �g��allow-external-unlock �g�� recursive �f�� mutex-name �f��mutex-specific �f��mutex-specific-set! �g�� mutex-owner �g��thread-exited? �g�� abandoned �g�� mutex-level �g�� not-owned �g�� not-abandoned �g��catch �g��abandoned-mutex-error �!� �!� �f��condition-variable-name �f��condition-variable-specific �f�� condition-variable-specific-set! �g��broadcast-condition-variable �g�� gettimeofday �g��integer? �f�� time->seconds �f�� seconds->timeC�5���h@0����]4   45:;<5 �4?�>��"��G���4@iA5$��"��4BiC>��"��G��4Di4Ei5�F>��"��G��GHI��h ������]4�5$��C�6�������g��pred  �g��arg  �g��caller   ��g��filenamef��srfi/srfi-18.scm `  a  a   c   d   d +  d 6 c �  ��g��nameg��check-arg-type�CJRK�KRL�LRM�MRN�NR4Oi5�PR4Oi5�QR4Oi5�RR4Oi5�SRU.RVN���h������]�6�����x�������g��obj  ��g��filenamef��srfi/srfi-18.scm s t  t �  ��g��nameg��initial-handler�CWR4Xi5�YR12\Y6�����h8������] 4�5$��"��4�5$��4545��6C���������g��obj  6�g��t ��g��filenamef��srfi/srfi-18.scm x  y y   z $ y  , {  4 { �  6 ��g��nameg��srfi-18-exception-preserver�CVR VN�h0������-�1�3��&��C(�� �"���6���������g��key .�g��args .��g��filenamef��srfi/srfi-18.scm } �   �   � $ � ( + � ( . � � . ��g��nameg��srfi-18-exception-handler�C]R6^S_W����h0������]45��4�5$��C��6�������������g��ct  *�g��t  *��g��filenamef��srfi/srfi-18.scm �  �  �  �   �  ( � 1 * � �  * ��g��nameg��current-handler-stack�C`R6`Jabc_Se_S��������h ���h���]4LL>��"��G��L��6��`�������g��obj  ��g��filenamef��srfi/srfi-18.scm �   �   � �   ���C_S��������h0���q���]4L>��� G�4L�L>��"��G���E������i�������g��res *��g��filenamef��srfi/srfi-18.scm �   �   �  * � �  * ���C� ���hp���$��]45�45�4�>��"��G��4>��"��G��4�>��"��G��  �O� O�6�������g��handler  o�g��thunk  o�g��ct  o�g��hl  o��g��filenamef��srfi/srfi-18.scm �  �  � �   �   � '  �  ' �  / � ! 4 �  = �  H � - M �  o � �  o ��g��nameg��with-exception-handler�C-R`���h���{���]�45�C�������s�������g��filenamef��srfi/srfi-18.scm �  �   � �  ��g��nameg��current-exception-handler�C,RL����h������]�Cz�������g��obj  ��g��filenamef��srfi/srfi-18.scm �  � &�   ��g��nameg��join-timeout-exception?�C/RK�����h������]�C}�������g��obj  ��g��filenamef��srfi/srfi-18.scm �  � )�   ��g��nameg��abandoned-mutex-exception?�C0RN��h������]�$���CC�������������g��obj  ��g��filenamef��srfi/srfi-18.scm �  �  �  �   � �   ��g��nameg��uncaught-exception?�C2RJ2f��h������]4�5C��������g��exc  ��g��filenamef��srfi/srfi-18.scm �  �  � / �   � �   ��g��nameg��uncaught-exception-reason�C3RM��������h������]�C�������g��obj  ��g��filenamef��srfi/srfi-18.scm �  � �   ��g��nameg��terminated-thread-exception?�C1Rg!hijklkmno-W�����hx������]�4L>��"��G��4L>��"��G��4L>��"��G��4L>��"��G��4LL>��"��G��4L>��"��G��L�6{�������g��filenamef��srfi/srfi-18.scm �   �   �  ' �  9 �  K �  _ �  x � �  x ���C]_RPon������h�����-�1�3�$��"��454545454>��"��G��4 �O� 54  >��"��G��$��4  >��"��G��"���4>��"��G��4>��"��G��C������������g��thunk ��g��name ��g��n  4 ��g��lm  4 ��g��lc  4 ��g��sm  4 ��g��sc  4 ��g��t  f ���g��filenamef��srfi/srfi-18.scm �  �   �   � !  �   �   �  �  $ � ) & �  ' �  + �  - �  . �  2 � ) 4 �  4 �  ? �  Q �  f �  i � t � + y � � � � �  � � � � � � ���CR^PJ7p�������h������]4�56������������g��thread  ��g��filenamef��srfi/srfi-18.scm �  �   � 9  �   � �   ��g��nameg�� thread-name�CR^QJ7q���h������]4�56������������g��thread  ��g��filenamef��srfi/srfi-18.scm �  �  � ,  �  � �   ��g��nameg��thread-specific�CR_QJ7r�������h(������]44�5>��"��G��C������������g��thread  #�g��obj  #��g��filenamef��srfi/srfi-18.scm �  �   �   � -  �   � �  # ��g��nameg��thread-specific-set!�CR^RJ7stkmn� �������h���%��]44�55$��^4�>��"��G��4>��"��G��4>��"��G��4 >��"��G��"����C���������g��thread  }�g��x  }�g��smutex  " v�g��scond  " v��g��filenamef��srfi/srfi-18.scm �  �  �   � 5  �   �  �   �   �  " �  " � ' � ; � M � _ � �  } ��g��nameg�� thread-start!�CRu��h���f���]�4>���"��G��C����^�������g��filenamef��srfi/srfi-18.scm �  � �   ��g��nameg�� thread-yield!�CR*()vGHwIxyz{� ��h�����]!445�54�5$��4�5"��%4�5$�� �"��4��54 4 554 4 �����B@55 $��4 >��"��G��"��� $��4 >��"��G��"���C���������g��timeout  ��g��ct ��g��t  L ��g��secs  Z ��g��usecs  u ���g��filenamef��srfi/srfi-18.scm �  �  �  � �   �   �  � & # � # ( �  2 � 7 � % < �  @ � # B � 3 D � # I � # J � # L �  L �  O �  R �  Z �  Z �  ] �  ` � g � - q � * s � u �  u �  { �  �  � �  � � � �  � � �&  � ��g��nameg�� thread-sleep!�CR-,�������h ���z���]445��>��"��G��L�6������r�������g��obj  ��g��filenamef��srfi/srfi-18.scm �   �   �   �   � �   ���C���h���h���]�O�L�6�`�������g�� continuation  ��g��filenamef��srfi/srfi-18.scm �   � �   ���C�����h���h���]�O�C������`�������g��thunk  ��g��filenamef��srfi/srfi-18.scm � �  ��g��nameg��wrap�C|R}c~-WVM��h ���V���]�4L�>��"��G��6����N�������g��filenamef��srfi/srfi-18.scm     !   !�   ���CVM��h���M���]�6E�������g��filenamef��srfi/srfi-18.scm     *�   ���C������h`������] 4�545$��4�O�>��"��G��"��4�>��"��G��4�>��"��G��C������������g��thread  [�g��current-handler [��g��filenamef��srfi/srfi-18.scm             4  H  �  [ ��g��nameg��thread-terminate!�CR|Y.L���hh������]4L�L?4L�5�4L5 $�� �$��"��4>��"��G��"���$��4>��"��G��"����C�������������g��v  b�g��e  b��g��filenamef��srfi/srfi-18.scm               #   )   .   I   J  �  b ���C�h ������-�1�3�H4�O�5KJB��������g��thread �g��args �g��thread-join-inner!  ��g��filenamef��srfi/srfi-18.scm      �  ��g��nameg�� thread-join!�CR_P�������hP������-��1��3��$���"��45$��4>��"��G��"���C�������������g��name J�g��n # J�g��m  # J��g��filenamef��srfi/srfi-18.scm #  $   $  $   %  %   &   '  ! (  # % # $  - )  . ) � J ��g��nameg�� make-mutex�CR^PJ8������h������]4�56������������g��mutex  ��g��filenamef��srfi/srfi-18.scm +  ,   , 7  ,   , �   ��g��nameg�� mutex-name�CR^QJ8�����h������]4�56������������g��mutex  ��g��filenamef��srfi/srfi-18.scm .  0  0 *  0  / �   ��g��nameg��mutex-specific�CR_QJ8�h(������]44�5>��"��G��C������������g��mutex  #�g��obj  #��g��filenamef��srfi/srfi-18.scm 2  3   4   4 +  4   3 �  # ��g��nameg��mutex-specific-set!�CR��������h8������] 4�5$��45$��CC4�5 $��CC����������g��mutex  5�g��owner 5��g��filenamef��srfi/srfi-18.scm 8  9  9   :   ;  ;   ; # # <  + < / <  1 < & 4 < 1�  5 ��g��nameg�� mutex-state�CR|k���h���M���]�LL�@������E�������g��filenamef��srfi/srfi-18.scm B  B �  ���C.K���h���r���-�1�3�6�j�������g��key �g��args ��g��filenamef��srfi/srfi-18.scm C   C (�  ���C���h���V���]�L�LO�6�����N�������g��filenamef��srfi/srfi-18.scm @  A   A �   ���C�������h ������-�1�3�H4�O�5KJB��������g��mutex �g��args �g��mutex-lock-inner!  ��g��filenamef��srfi/srfi-18.scm > @   D �  ��g��nameg�� mutex-lock!�CRn����h������-�1�3��@��������������g��mutex �g��args ��g��filenamef��srfi/srfi-18.scm F  G �  ��g��nameg�� mutex-unlock!�C R_P������hH������-��1��3��$���"��45�$��4>��"��G��"���C�����������g��name D�g��n  D�g��m   D��g��filenamef��srfi/srfi-18.scm M  N   N  N   O  O   O  N  ' P  ( P � D ��g��nameg��make-condition-variable�C!R^PJ9����h������]4�56������������g��condition-variable  ��g��filenamef��srfi/srfi-18.scm R  S   U *  S   S �   ��g��nameg��condition-variable-name�C"R^QJ9���h������]4�56������������g��condition-variable  ��g��filenamef��srfi/srfi-18.scm W  X   Z .  X   X �   ��g��nameg��condition-variable-specific�C#R_QJ9�������h(������]44�5>��"��G��C������������g��condition-variable  #�g��obj  #��g��filenamef��srfi/srfi-18.scm \  ]   ^   `   ^   ] �  # ��g��nameg�� condition-variable-specific-set!�C$Rm��������h������]4�>��"��G��C��~�������g��cond  ��g��filenamef��srfi/srfi-18.scm d  e �   ��g��nameg��condition-variable-signal!�C%R�h������]4�>��"��G��C���������g��cond  ��g��filenamef��srfi/srfi-18.scm h  i �   ��g��nameg��condition-variable-broadcast!�C&Ri(R�������hH������] �$��9�45$�� "��$���45$�� CCCC�����������g��obj  D�g��co %�g��co , @��g��filenamef��srfi/srfi-18.scm o  p  p  q  q   q "  q   q 0 ) p  , r  , r  / r " 9 r  = r 0�  D ��g��nameg��time?�C)RJ)�h(������]4�5$���������B@CC����������g��time  %��g��filenamef��srfi/srfi-18.scm t  u  u " u   u   v  v  ! v  " v �  % ��g��nameg�� time->seconds�C*RJvyx�������h@������] 4�5$��+4�54544������B@55CC���������g��x  >�g��fx  <��g��filenamef��srfi/srfi-18.scm x  y  y ! y   y   z   z   {  " |  % |  , | , 6 | ) 8 |  : |  ; { �  > ��g��nameg�� seconds->time�C+RC�������g��m  4��g��filenamef��srfi/srfi-18.scm  5 [ ; [  = [ A [ F \  L \ Q \  Z ^ _ ^  g ^ & l ^ x ` z f ( } f "  f  g %  g   g  h *  h $  h  i !  i   i  k   k  l   l  m   m  n "  n  r k s l v  u v  x  }  �  � F � � � L �  � �  � _ � + � * �  �  � o � 3 � t     " + ! . " 2 # 8 &> > & F (F L )' R * W +" \ + d , h , n - o . t 0= x �K  0? ���C6��������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/srfi/srfi-88.go��������������������������������������������������������������������������0000644�����������������00000002574�15146341264�0010761 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0d������]�$�4��hC������]� g��guile � g��define-module* � � g��srfi g��srfi-88 � g��filenameS f��srfi/srfi-88.scm g��exportsS g��keyword->string g��string->keyword   � g�� re-exportsS g��keyword? � g��set-current-module � � g��cond-expand-provide g��current-module � g�� read-options � � g��append � � g��keywords g��postfix g��symbol->string !g��keyword->symbol "g��symbol->keyword #g��string->symbolC�5h@�����]4   5�4�>��"��G���4i4i5�>��"��G��4445��5>��"��G�� !��������h������]4�56����������g��k  ��g��filenamef��srfi/srfi-88.scm (  *  * �  ��g��nameg��keyword->stringg�� documentationf��'Return the name of @var{k} as a string.�C R"#��h������]4�56����������g��s  ��g��filenamef��srfi/srfi-88.scm ,  .  . �  ��g��nameg��string->keywordg�� documentationf��0Return the keyword object whose name is @var{s}.�C RC��������������g��m  ,��g��filenamef��srfi/srfi-88.scm   - 2  : & ? H &  V &  Y &  N ( 7 , �  9 ���C6�������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/srfi/srfi-19.go��������������������������������������������������������������������������0000644�����������������00000413373�15146341264�0010756 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0�����]�4������hƭ������]� g��guile � g��define-module* � � g��srfi g��srfi-19 � g��filenameS f��srfi/srfi-19.scm g��importsS g��srfi-6  �  � g��srfi-8 � � g��srfi-9 � � g��ice-9 g��i18n � � � g��exportsS g�� time-duration g��time-monotonic g�� time-process g��time-tai g�� time-thread g��time-utc !g�� current-date "g��current-julian-day #g��current-modified-julian-day $g��time-resolution %g�� make-time &g��time? 'g�� time-type (g��time-nanosecond )g�� time-second *g��set-time-type! +g��set-time-nanosecond! ,g��set-time-second! -g�� copy-time .g��time<=? /g��time<? 0g��time=? 1g��time>=? 2g��time>? 3g��time-difference 4g��time-difference! 5g�� add-duration 6g�� add-duration! 7g��subtract-duration 8g��subtract-duration! 9g�� make-date :g��date? ;g��date-nanosecond <g�� date-second =g�� date-minute >g�� date-hour ?g��date-day @g�� date-month Ag�� date-year Bg��date-zone-offset Cg�� date-year-day Dg�� date-week-day Eg��date-week-number Fg��date->julian-day Gg��date->modified-julian-day Hg��date->time-monotonic Ig��date->time-tai Jg��date->time-utc Kg��julian-day->date Lg��julian-day->time-monotonic Mg��julian-day->time-tai Ng��julian-day->time-utc Og��modified-julian-day->date Pg��#modified-julian-day->time-monotonic Qg��modified-julian-day->time-tai Rg��modified-julian-day->time-utc Sg��time-monotonic->date Tg��time-monotonic->julian-day Ug��#time-monotonic->modified-julian-day Vg��time-monotonic->time-tai Wg��time-monotonic->time-tai! Xg��time-monotonic->time-utc Yg��time-monotonic->time-utc! Zg��time-tai->date [g��time-tai->julian-day \g��time-tai->modified-julian-day ]g��time-tai->time-monotonic ^g��time-tai->time-monotonic! _g��time-tai->time-utc `g��time-tai->time-utc! ag��time-utc->date bg��time-utc->julian-day cg��time-utc->modified-julian-day dg��time-utc->time-monotonic eg��time-utc->time-monotonic! fg��time-utc->time-tai gg��time-utc->time-tai! hg�� date->string ig�� string->date j !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghi�O kg�� replacementsS lg�� current-time ml� ng�� autoloadsS og��rdelim po� qg�� read-line rq� spr� tg��set-current-module ut� vt� wg��cond-expand-provide xg��current-module y� zf��~a ~b ~d ~H:~M:~S~z ~Y {g��locale-date-time-format |f��~m/~d/~y }g��locale-short-date-format ~f��~H:~M:~S g��locale-time-format �f��~Y-~m-~dT~H:~M:~S~z �g��iso-8601-date-time-format �g��nano �g��sid �g��sihd �e�� 4881175/2 �g��tai-epoch-in-jd �g��throw �g�� misc-error �f��TIME-ERROR type ~A: ~S �f��TIME-ERROR type ~A �g�� time-error �g��open-input-file �g�� eof-object? �g��read �g��open-input-string �g�� string-append �f��( �f��) �g��inexact->exact �g��read-tai-utc-data �����U- $ �����O� # �����I\ " �����C ! �����6�  �����3H  �����0$�  �����.\  �����,2)�  �����*P  �����'�  �����%  �����!�  �����%�  �����b1  ������  �����ʀ  �����Φ�  �����r  ����� ?�  ����� +  ����� H  ����� gS�  �����  ������  �����X�  �����g�  �� �g��leap-second-table �g��read-leap-second-table �g��leap-second-delta �g��time �g��!%make-time-unnormalized-procedure �g��make-syntax-transformer �� �� �g��make-time-unnormalized �g��macro �g�� $sc-dispatch �� �� �g��_ �g��any �� �g�� syntax-object �g��lambda �g��m-46961e50d3-30 �g��top �� �g��ribcage �g��t-46961e50d3-2d �g��t-46961e50d3-2e �g��t-46961e50d3-2f �� �� �f��l-46961e50d3-35 �f��l-46961e50d3-36 �f��l-46961e50d3-37 �� �� �� �g��x �� �� �f��l-46961e50d3-32 �� �� �g��shift �g�� proc-name �g��args �� �� �� �f��l-1e8ba8b5a-60 �f��l-1e8ba8b5a-61 �� �� �g��key �g��value �g��name �g��formals �g��body �� �� �f��l-1e8ba8b5a-53 �f��l-1e8ba8b5a-54 �f��l-1e8ba8b5a-55 �f��l-1e8ba8b5a-56 �f��l-1e8ba8b5a-57 �� �� �g��make-procedure-name �� �� �f��l-1e8ba8b5a-43 �� �� �� �f��l-1e8ba8b5a-42 �� �� ��  �g��hygiene �� �� �g��type �� �� �� g�� nanosecond �� g��second �� � g�� make-struct g��m-46961e50d3-2b  �  g��t-1e8ba8b5a-133  g��t-1e8ba8b5a-132  g��t-1e8ba8b5a-131     � g��m-1e8ba8b5a-134 � � f��l-1e8ba8b5a-138 f��l-1e8ba8b5a-139 f��l-1e8ba8b5a-13a �  � g�� ctor-args � f��l-1e8ba8b5a-120 � � g��ctor g��field � f��l-1e8ba8b5a-11c f��l-1e8ba8b5a-11d  � ! � "g��form #g�� type-name $g��constructor-spec %g�� field-names &"#$%� '� (f��l-1e8ba8b5a-111 )f��l-1e8ba8b5a-112 *f��l-1e8ba8b5a-113 +f��l-1e8ba8b5a-114 ,()*+� -&',� .g�� record-layout /g��functional-setters 0g��setters 1g��copier 2g��getters 3g�� constructor 4g��getter-identifiers 5g��field-identifiers 6./012345� 7� 8f��l-1e8ba8b5a-e9 9f��l-1e8ba8b5a-e7 :f��l-1e8ba8b5a-e5 ;f��l-1e8ba8b5a-e3 <f��l-1e8ba8b5a-e1 =f��l-1e8ba8b5a-df >f��l-1e8ba8b5a-dd ?f��l-1e8ba8b5a-db @89:;<=>?� A67@� Bf��l-1e8ba8b5a-da CB� DC� E !-AD� FE� G�� H E� IFGH� JI� Kg��each-any LK Mg��syntax-violation NM� OM� Pf��Wrong number of arguments Qg�� identifier? RQ� SQ� T� UT�� VM� WM� Xf��-source expression failed to match any pattern Yg��record-type-vtable ZY� [Y� \g��pwpwpw ]g��default-record-printer ^]� _]� `� ag��set-struct-vtable-name! ba� ca� dg��vtable-offset-user ed� fd� gg��%time?-procedure h� ig��m-46961e50d3-41 ji� kg��t-46961e50d3-40 lk� mj� nf��l-46961e50d3-46 on� plmo� qf��l-46961e50d3-43 rq� smr� tjps�  ut� vg��obj wg��t-1e8ba8b5a-224 xg��t-1e8ba8b5a-21e yg��t-1e8ba8b5a-21f zg��t-1e8ba8b5a-220 {g��t-1e8ba8b5a-223 |g��t-1e8ba8b5a-222 }g��t-1e8ba8b5a-221 ~wxyz{|}� g��m-1e8ba8b5a-225 � � f��l-1e8ba8b5a-229 f��l-1e8ba8b5a-22a f��l-1e8ba8b5a-22b f��l-1e8ba8b5a-22c f��l-1e8ba8b5a-22d f��l-1e8ba8b5a-22e f��l-1e8ba8b5a-22f � ~� g�� copier-id � f��l-1e8ba8b5a-21c � � g�� ctor-name � f��l-1e8ba8b5a-214 � � %� f��l-1e8ba8b5a-212 � � g��layout � f��l-1e8ba8b5a-210 � � g�� immutable? � f��l-1e8ba8b5a-20e � � g�� field-count � f��l-1e8ba8b5a-20c � � g�� getter-ids � f��l-1e8ba8b5a-209 � � g�� field-ids � f��l-1e8ba8b5a-206 � � g��predicate-name g�� field-spec "#$� � f��l-1e8ba8b5a-1f9 f��l-1e8ba8b5a-1fa f��l-1e8ba8b5a-1fb f��l-1e8ba8b5a-1fc f��l-1e8ba8b5a-1fd f��l-1e8ba8b5a-1fe � �  psAD� v� � g��and � g��struct? � � g��eq? � g�� struct-vtable � � ps� �� � � u� s� g�� g��throw-bad-struct � � g��%time-type-procedure g��free-id g�� %%on-error g��m-46961e50d3-4d � � f��l-46961e50d3-4f � � �  � � � g��%%type g��t-1e8ba8b5a-14b g��t-1e8ba8b5a-14c g��t-1e8ba8b5a-14d g��t-1e8ba8b5a-14e g��t-1e8ba8b5a-14f g��t-1e8ba8b5a-150 g��t-1e8ba8b5a-151 � g��m-1e8ba8b5a-152 � � f��l-1e8ba8b5a-156 f��l-1e8ba8b5a-157 f��l-1e8ba8b5a-158 f��l-1e8ba8b5a-159 f��l-1e8ba8b5a-15a f��l-1e8ba8b5a-15b f��l-1e8ba8b5a-15c � � g��getter g��index � f��l-1e8ba8b5a-149 f��l-1e8ba8b5a-14a � � #� � �f��l-1e8ba8b5a-144 f��l-1e8ba8b5a-145 f��l-1e8ba8b5a-146 �� �  AD� � � �  g��ck  g��err  g��s    �  � f��l-46961e50d3-52 f��l-46961e50d3-53 �   � �   � g��quote � � �� � � g��%%index � � � f��l-46961e50d3-57 f��l-46961e50d3-58  � !   � "!�  # "� $"� %!� & %�� '$&� ('� )g��%%copier *)� +*� ,+� -f��l-46961e50d3-5c .f��l-46961e50d3-5d /-.� 0  /� 10�  2 1� 31� 4g��%%time-set-fields 50� 645�� 736� 87� 9g��t-46961e50d3-4c :9� ;f��l-46961e50d3-61 <;� =:<� >=�  ?>� @ =AD� A @� BA� Cg��if DC@� E@� F@� GFA� H=� IH�� JEGI� Kg�� struct-ref LK@� M=� N M�� OLAN� P@� Q@� R'H�� SQR� TPAS� UDJOT� V?BU� W� XW�� Yg��%time-nanosecond-procedure Zg��m-46961e50d3-68 [Z� \[� ]f��l-46961e50d3-6a ^]� _\^� `[_�  a`� ba� cb� d _AD� ed� fe� gcf� h[[� if��l-46961e50d3-6d jf��l-46961e50d3-6e kij� l hk� m[l_�  n m� om� pl_� qp�� roq� sr� td� ut� vcu� wf��l-46961e50d3-72 xf��l-46961e50d3-73 ywx� z hy� {[z_�  | {� }{� ~z_�  ~�� }� � )d� � c� f��l-46961e50d3-77 f��l-46961e50d3-78 �  h� [_�   � � _� 4�� � � g��t-46961e50d3-67 � f��l-46961e50d3-7c � \� [_�  �  _AD�  � � C� � � � _� �� � K� _�  �� � � � (�� � � � � _� Y�� g��%time-second-procedure g��m-46961e50d3-83 � � f��l-46961e50d3-85 � � �  � � �  AD� � � � � f��l-46961e50d3-88 f��l-46961e50d3-89 �  � �   � � � �� � � � � � f��l-46961e50d3-8d f��l-46961e50d3-8e �  � �   � � �  �� � � )� � � f��l-46961e50d3-92 f��l-46961e50d3-93 �  � �   � � � 4�� � � g��t-46961e50d3-82 � f��l-46961e50d3-97 � � �  �  AD�  � � C� � � � � �� � K� �  �� � � � )�� � � � �� � �� g��each � �     g�� %%set-fields  g��dummy  g��check?  g��expr      � g��m-46961e50d3-9e �     � f��l-46961e50d3-a3 f��l-46961e50d3-a4 f��l-46961e50d3-a5 f��l-46961e50d3-a6 f��l-46961e50d3-a7 �  � � f��l-46961e50d3-a0 � � g��t-1e8ba8b5a-16a g��t-1e8ba8b5a-16c g��t-1e8ba8b5a-16b �  g��m-1e8ba8b5a-16d ! � "!!!� #f��l-1e8ba8b5a-171 $f��l-1e8ba8b5a-172 %f��l-1e8ba8b5a-173 &#$%� '"&� (f��l-1e8ba8b5a-167 )f��l-1e8ba8b5a-168 *f��l-1e8ba8b5a-169 +()*� ,+� - ',AD�  . -� /� 0/�� 1'/�� 2(/�� 3)/�� 4123� 5g��map 65� 75� 8g��list 9g��%set-time-type!-procedure :� ;g��m-46961e50d3-b2 <;� =g��t-46961e50d3-b0 >g��t-46961e50d3-b1 ?=>� @<<� Af��l-46961e50d3-b7 Bf��l-46961e50d3-b8 CAB� D?@C� E<� Ff��l-46961e50d3-b4 GF� HEG� I<DH�  JI� Kg��t-1e8ba8b5a-18c Lg��t-1e8ba8b5a-18d MKL� Ng��m-1e8ba8b5a-18e ON� POO� Qf��l-1e8ba8b5a-192 Rf��l-1e8ba8b5a-193 SQR� TMPS� Ug��setter VU� Wf��l-1e8ba8b5a-186 Xf��l-1e8ba8b5a-187 Yf��l-1e8ba8b5a-188 ZWXY� [VZ� \� ]f��l-1e8ba8b5a-17d ^f��l-1e8ba8b5a-17e _]^� `\_� ag�� field-specs b#a� cf��l-1e8ba8b5a-179 df��l-1e8ba8b5a-17a ecd� fbe� g DHT[`fAD� h g� ig��val jig� khj� lCg� mg� ng� onh� pDH� qp�� rmoq� sg�� struct-set! tsg� uDH� v u�� wthvj� xg� yg� z*p�� {yz� |xh{� }lrw|� ~Jk}� H� 9�� g��%set-time-nanosecond!-procedure g��m-46961e50d3-c2 � g��t-46961e50d3-c0 g��t-46961e50d3-c1 � � f��l-46961e50d3-c7 f��l-46961e50d3-c8 � � � f��l-46961e50d3-c4 � � �  �  T[`fAD�  � i� � C� � � � � �� � s� �  �� � � � +�� � � � � � �� g��%set-time-second!-procedure g��m-46961e50d3-d2 � g��t-46961e50d3-d0 g��t-46961e50d3-d1 � � f��l-46961e50d3-d7 f��l-46961e50d3-d8 � � � f��l-46961e50d3-d4 � � �  �  T[`fAD�  � i� � C� � � � � �� � s� �  �� � � � ,�� � � � � � �� g��integer? g��truncate g�� split-real g��abs g��time-normalize! g��mktime g�� set-tm:sec g�� set-tm:min g�� set-tm:hour g�� set-tm:mday g�� set-tm:mon g�� set-tm:year g�� set-tm:isdst g�� set-tm:gmtoff g��date->broken-down-time g�� gettimeofday g��current-time-utc g��current-time-tai g��current-time-monotonic g��unsupported-clock-type g��current-time-thread g��internal-time-units-per-second g��ns-per-guile-tick g��get-internal-run-time g��current-time-process g��invalid-clock-type g�� not-duration g��incompatible-time-types g��priv:time-tai->time-utc! g��priv:time-utc->time-tai! g��date g��%make-date-procedure �  g��m-46961e50d3-343 � g��t-46961e50d3-33b g��t-46961e50d3-33c g��t-46961e50d3-33d g��t-46961e50d3-33e g��t-46961e50d3-33f g��t-46961e50d3-340 g��t-46961e50d3-341 g��t-46961e50d3-342 � � �f��l-46961e50d3-348 f��l-46961e50d3-349 f��l-46961e50d3-34a f��l-46961e50d3-34b f��l-46961e50d3-34c f��l-46961e50d3-34d f��l-46961e50d3-34e f��l-46961e50d3-34f ��  �  �  f��l-46961e50d3-345   �    �   �  �   � �� �� g��minute �� g��hour �� g��day �� g��month �� g��year �� g�� zone-offset �� �  g��m-46961e50d3-339 ! � "!  !-AD� #"� $�� % "� &#$%�  '&� ( � )(�� *g��pwpwpwpwpwpwpwpw +� ,g��%date?-procedure -g��m-46961e50d3-35e .-� /g��t-46961e50d3-35d 0/� 1.� 2f��l-46961e50d3-363 32� 4013� 5f��l-46961e50d3-360 65� 716� 8.47�  98� :!47AD� ;v:� <;� =:� >:� ?>;� @:� A:� BA;� C47� DC�� E@BD� F=?E� G9<F� H7� I,H�� Jg��%date-nanosecond-procedure Kg��m-46961e50d3-36a LK� ML� Nf��l-46961e50d3-36c ON� PMO� QLP�  RQ� SR� TS� U!PAD� VU� WV� XTW� YLL� Zf��l-46961e50d3-36f [f��l-46961e50d3-370 \Z[� ] Y\� ^L]P�  _ ^� `^� a]P� ba�� c`b� dc� eU� fe� gTf� hf��l-46961e50d3-374 if��l-46961e50d3-375 jhi� k Yj� lLkP�  m l� nl� okP� p o�� qnp� rq� s)U� ts� uTt� vf��l-46961e50d3-379 wf��l-46961e50d3-37a xvw� y Yx� zLyP�  { z� |z� }g��%%date-set-fields ~yP� }~�� |� � g��t-46961e50d3-369 � f��l-46961e50d3-37e � M� LP�  � !PAD�  � � C� � � � P� �� � K� P�  �� � � � ;�� � � � � P� J�� g��%date-second-procedure g��m-46961e50d3-385 � � f��l-46961e50d3-387 � � �  � � � !AD� � � � � f��l-46961e50d3-38a f��l-46961e50d3-38b �  � �   � � � �� � � � � � f��l-46961e50d3-38f f��l-46961e50d3-390 �  � �   � � �  �� � � )� � � f��l-46961e50d3-394 f��l-46961e50d3-395 �  � �   � � � }�� � � g��t-46961e50d3-384 � f��l-46961e50d3-399 � � �  � !AD�  � � C� � � � � �� � K� �  �� � � � <�� � � � � � �� g��%date-minute-procedure g��m-46961e50d3-3a0 � � f��l-46961e50d3-3a2 � � �  � � � �!AD� �� � � � f��l-46961e50d3-3a5 f��l-46961e50d3-3a6 �  �  �     �   �  �   ��   � � �� � � f��l-46961e50d3-3aa f��l-46961e50d3-3ab �  � �   � � �  �� � � )�� �  � !f��l-46961e50d3-3af "f��l-46961e50d3-3b0 #!"� $ #� %$�  & %� '%� ($� )}(�� *')� +*� ,g��t-46961e50d3-39f -,� .f��l-46961e50d3-3b4 /.� 0-/� 10�  21� 3!0AD� 4 3� 54� 6C3� 73� 83� 984� :0� ;:�� <79;� =K3� >0� ? >�� @=4?� A3� B3� C=:�� DBC� EA4D� F6<@E� G25F� H� IH�� Jg��%date-hour-procedure Kg��m-46961e50d3-3bb LK� ML� Nf��l-46961e50d3-3bd ON� PMO� QLP�  RQ� SR� TS� U!PAD� VU� WV� XTW� YLL� Zf��l-46961e50d3-3c0 [f��l-46961e50d3-3c1 \Z[� ] Y\� ^L]P�  _ ^� `^� a]P� ba�� c`b� dc� eU� fe� gTf� hf��l-46961e50d3-3c5 if��l-46961e50d3-3c6 jhi� k Yj� lLkP�  m l� nl� okP� p o�� qnp� rq� s)U� ts� uTt� vf��l-46961e50d3-3ca wf��l-46961e50d3-3cb xvw� y Yx� zLyP�  { z� |z� }yP� ~}}�� |~� � g��t-46961e50d3-3ba � f��l-46961e50d3-3cf � M� LP�  � !PAD�  � � C� � � � P� �� � K� P�  �� � � � >�� � � � � P� J�� g��%date-day-procedure g��m-46961e50d3-3d6 � � f��l-46961e50d3-3d8 � � �  � � � !AD� � � � � f��l-46961e50d3-3db f��l-46961e50d3-3dc �  � �   � � � �� � � � � � f��l-46961e50d3-3e0 f��l-46961e50d3-3e1 �  � �   � � �  �� � � )� � � f��l-46961e50d3-3e5 f��l-46961e50d3-3e6 �  � �   � � � }�� � � g��t-46961e50d3-3d5 � f��l-46961e50d3-3ea � � �  � !AD�  � � C� � � � � �� � K� �  �� � � � ?�� � � � � � �� g��%date-month-procedure g��m-46961e50d3-3f1 � � f��l-46961e50d3-3f3 � � �  � � � !AD� �� �� � � f��l-46961e50d3-3f6 f��l-46961e50d3-3f7 �  � �    �  �  �   ��    �  � � � � f��l-46961e50d3-3fb f��l-46961e50d3-3fc �  � �   � � �  �� � � )� � �  f��l-46961e50d3-400 !f��l-46961e50d3-401 " !� # "� $#�  % $� &$� '#� (}'�� )&(� *)� +g��t-46961e50d3-3f0 ,+� -f��l-46961e50d3-405 .-� /,.� 0/�  10� 2!/AD� 3 2� 43� 5C2� 62� 72� 873� 9/� :9�� ;68:� <K2� =/� > =�� ?<3>� @2� A2� B@9�� CAB� D@3C� E5;?D� F14E� G� HG�� Ig��%date-year-procedure Jg��m-46961e50d3-40c KJ� LK� Mf��l-46961e50d3-40e NM� OLN� PKO�  QP� RQ� SR� T!OAD� UT� VU� WSV� XKK� Yf��l-46961e50d3-411 Zf��l-46961e50d3-412 [YZ� \ X[� ]K\O�  ^ ]� _]� `\O� a`�� b_a� cb� dT� ed� fSe� gf��l-46961e50d3-416 hf��l-46961e50d3-417 igh� j Xi� kKjO�  l k� mk� njO� o n�� pmo� qp� r)T� sr� tSs� uf��l-46961e50d3-41b vf��l-46961e50d3-41c wuv� x Xw� yKxO�  z y� {y� |xO� }}|�� ~{}� ~� g��t-46961e50d3-40b � f��l-46961e50d3-420 � L� KO�  � !OAD�  � � C� � � � O� �� � K� O�  �� � � � A�� � � � � O� I�� g��%date-zone-offset-procedure g��m-46961e50d3-427 � � f��l-46961e50d3-429 � � �  � � � !AD� � � � � f��l-46961e50d3-42c f��l-46961e50d3-42d �  � �   � � � �� � � � � � f��l-46961e50d3-431 f��l-46961e50d3-432 �  � �   � � �  �� � � )� � � f��l-46961e50d3-436 f��l-46961e50d3-437 �  � �   � � � }�� � � g��t-46961e50d3-426 � f��l-46961e50d3-43b � � �  � !AD�  � � C� � � � � �� � K� �  �� � � � B�� � � � � � �� g��m-46961e50d3-442 � !!!!� f��l-46961e50d3-447 f��l-46961e50d3-448 f��l-46961e50d3-449 f��l-46961e50d3-44a f��l-46961e50d3-44b �  � � f��l-46961e50d3-444 � �� !�',AD�   � �� �� ;�� <�� =�� >��  ?��  @��  A��  B��      � g��set-date-nanosecond! g��%set-date-nanosecond!-procedure g��m-46961e50d3-456 � g��t-46961e50d3-454 g��t-46961e50d3-455 � � f��l-46961e50d3-45b f��l-46961e50d3-45c � � � f��l-46961e50d3-458 � � �  �  !T[`fAD� !  � "i � #!"� $C � % � & � '&!� (� )(�� *%')� +s � ,� - ,�� .+!-"� / � 0 � 1(�� 201� 3/!2� 4$*.3� 5#4� 6� 76�� 8g��set-date-second! 9g��%set-date-second!-procedure :g��m-46961e50d3-466 ;:� <g��t-46961e50d3-464 =g��t-46961e50d3-465 ><=� ?;;� @f��l-46961e50d3-46b Af��l-46961e50d3-46c B@A� C>?B� D;� Ef��l-46961e50d3-468 FE� GDF� H;CG�  IH� J!CGT[`fAD� K J� LiJ� MKL� NCJ� OJ� PJ� QPK� RCG� SR�� TOQS� UsJ� VCG� W V�� XUKWL� YJ� ZJ� [8R�� \Z[� ]YK\� ^NTX]� _IM^� `G� a9`�� bg��set-date-minute! cg��%set-date-minute!-procedure dg��m-46961e50d3-476 ed� fg��t-46961e50d3-474 gg��t-46961e50d3-475 hfg� iee� jf��l-46961e50d3-47b kf��l-46961e50d3-47c ljk� mhil� ne� of��l-46961e50d3-478 po� qnp� remq�  sr� t!mqT[`fAD� u t� vit� wuv� xCt� yt� zt� {zu� |mq� }|�� ~y{}� st� mq�  �� uv� t� t� b|�� � u� x~� sw� q� c�� g��set-date-hour! g��%set-date-hour!-procedure g��m-46961e50d3-486 � g��t-46961e50d3-484 g��t-46961e50d3-485 � � f��l-46961e50d3-48b f��l-46961e50d3-48c � � � f��l-46961e50d3-488 � � �  � !T[`fAD�  � i� � C� � � � � �� � s� �  �� � � � �� � � � � � �� g�� set-date-day! g��%set-date-day!-procedure g��m-46961e50d3-496 � g��t-46961e50d3-494 g��t-46961e50d3-495 � � f��l-46961e50d3-49b f��l-46961e50d3-49c � � � f��l-46961e50d3-498 � � �  � !T[`fAD�  � i� � C� � � � � �� � s� �  �� � � � �� � � � � � �� g��set-date-month! g��%set-date-month!-procedure g��m-46961e50d3-4a6 � g��t-46961e50d3-4a4 g��t-46961e50d3-4a5 � � f��l-46961e50d3-4ab f��l-46961e50d3-4ac � � � f��l-46961e50d3-4a8 � � �  � !T[`fAD�  � i� � C� � � � � �� � s� �  �� �� � � �� � � �� � �  ��  g��set-date-year!  g��%set-date-year!-procedure  g��m-46961e50d3-4b6   � g��t-46961e50d3-4b4 g��t-46961e50d3-4b5 �   � f��l-46961e50d3-4bb f��l-46961e50d3-4bc � �  � f��l-46961e50d3-4b8 � �  �  � !T[`fAD�  � i� �  C� !� "� #"� $� %$�� &!#%� 's� (� ) (�� *')� +� ,� - $�� .,-� /+.� 0 &*/� 10� 2� 3 2�� 4g��set-date-zone-offset! 5g�� %set-date-zone-offset!-procedure 6g��m-46961e50d3-4c6 76� 8g��t-46961e50d3-4c4 9g��t-46961e50d3-4c5 :89� ;77� <f��l-46961e50d3-4cb =f��l-46961e50d3-4cc ><=� ?:;>� @7� Af��l-46961e50d3-4c8 BA� C@B� D7?C�  ED� F!?CT[`fAD� G F� HiF� IGH� JCF� KF� LF� MLG� N?C� ON�� PKMO� QsF� R?C� S R�� TQGSH� UF� VF� W4N�� XVW� YUGX� ZJPTY� [EIZ� \C� ]5\�� ^g��encode-julian-day-number _g��decode-julian-day-number `g�� tm:gmtoff ag�� localtime bg��local-tz-offset cg��time->julian-day-number dg��assoc eg�� leap-second? fg�� time->date gg��round he��1/2 ig�� leap-year? j  k   l  ; m  Z n  x o  � p  � q  �Ԍ r � s  t 0 u N vjklmnopqrstu�  wg�� month-assoc xg��invalid-month-specification yg��year-day zg��week-day {g��days-before-first-week |g�� natural-year }e��-1/2 ~e�� 4800001/2 g��number->string g�� string-length g�� make-string g��padding g��expt g�� last-n-digits g��locale-day-short g��locale-abbr-weekday g�� locale-day g��locale-long-weekday g��locale-month-short g��locale-abbr-month g�� locale-month g��locale-long-month g��date-reverse-lookup g��string=? g��locale-abbr-weekday->index g��locale-long-weekday->index g��locale-abbr-month->index g��locale-long-month->index g�� tz-printer g��locale-print-time-zone g��locale-pm-string g��locale-am-string g��locale-am-string/pm g��display f��Z f��- f��+ e��1.0 g��locale-decimal-point g�� substring f��~b g��newline f�� ~I:~M:~S ~p f��~Y-~m-~d f�� ~H:~M:~S~z f��~Y-~m-~dT~H:~M:~S g�� directives g�� get-formatter g�� string-ref g��char=? g�� date-printer g��bad-date-format-string g��open-output-string f��~c g��get-output-string g�� char->int g��bad-date-template-string f��Non-integer character g�� peek-char g�� char-numeric? g�� read-char g��integer-reader g��make-integer-reader f��!Premature ending to integer read. f��'Non-numeric characters in integer read. g��integer-reader-exact g��make-integer-exact-reader f��Invalid time zone +/- f��Invalid time zone number g�� zone-reader g��char-alphabetic? g�� list->string g��reverse! f��Invalid string for  g�� locale-reader g��make-locale-reader f��Invalid character match. g��make-char-id-reader g��read-directives g��priv:string->date f��Incomplete date read. C�5�����h8S� ��]@4   jkmns5 �4v�>��"��G���4wi4xi5�y>��"��G��R  RRRRRz{R|}R~RR����;�R�����QR������RR��h0������]$����6��6�������������g��caller  *�g��type  *�g��value   *��g��filenamef��srfi/srfi-19.scm �  �  �  �  � 9  �   � " � ' � 5 * � �  * ��g��nameg�� time-error�CRq� �����h���N��]94�5H"��45$��"��~444555 $��45  45JK"���4 5"4 5"sJC������F������g��filename  ��g��port ��g��table  ��g��line   ��g��data  6 ��g��year  ; ��g��jd  D ��g��secs  O ���g��filenamef��srfi/srfi-19.scm �  �  �  �   �   �   �  " �  % �  ( � , � / 0 � 8 2 � 4 �  6 �  6 � ; �  ; � @ � ! A �  D � I � ! L �  O � W �  [ �  \ � e �  h �  i �  p �  s �  u �  z �  � �  � �  � �  � � �'  � ��g��nameg��read-tai-utc-data�CRR��h������]4�5 C����������g��filename  ��g��filenamef��srfi/srfi-19.scm �  �  � �  ��g��nameg��read-leap-second-table�CR������h8������] "���$��C"� $�� C"���������g�� utc-seconds  6�g��table  ��g��filenamef��srfi/srfi-19.scm �  �  � ) �   �   �   � #  �   �  $ �  ( �  , �  6 � �  6 ��g��nameg��leap-second-delta�CR������h������]��C���������g��type  �g�� nanosecond  �g��second   ��g��filenamef��srfi/srfi-19.scm � �   ��g��nameg��!%make-time-unnormalized-procedure�CR4J��h���q���]��C��i�������g��t-46961e50d3-2d  �g��t-46961e50d3-2e  �g��t-46961e50d3-2f   ��   ���CLOP��������h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-19.scm  � �  ���CS���h���D���]�L�6<�������g��filenamef��srfi/srfi-19.scm  � �   ���CU�����h������]�C����������   ���CWX� �����hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��}�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-19.scm � �  n ���C5R[\_`��4c�>��"��G��� fi��R��h���r���]�$���CC������j�������g��obj  ��g��filenamef��srfi/srfi-19.scm � �   ��g��nameg��%time?-procedure�CgR4&h������h���7���]��C������/�������g��t-46961e50d3-40  ��  ���CLO&P��h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-19.scm  � �  ���CS���h���D���]�L�6<�������g��filenamef��srfi/srfi-19.scm  � �   ���C�����h������]�C����������   ���CWX� �����hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��}�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-19.scm � �  n ���C5&R'���h���t���]�&��� C�6l�������g��s  ��g��filenamef��srfi/srfi-19.scm � �   ��g��nameg��%time-type-procedure�CR4'�h���:���]C�����2�������g��err  �g��s  ��  ���C#(�h���:���]C�����2�������g��err  �g��s  ��  ���C,28�h���:���]C�����2�������g��err  �g��s  ��  ���ChV����h���7���]��C������/�������g��t-46961e50d3-4c  ��  ���CLO'P��h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-19.scm  � �  ���CS���h���D���]�L�6<�������g��filenamef��srfi/srfi-19.scm  � �   ���CX�����h������]�C����������   ���CWX������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-19.scm � �  � ���C5'R(�������h���z���]�&��� C�6r�������g��s  ��g��filenamef��srfi/srfi-19.scm � �   ��g��nameg��%time-nanosecond-procedure�CYR4(gns���h���:���]C�����2�������g��err  �g��s  ��  ���Cv|�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���Ch����h���7���]��C������/�������g��t-46961e50d3-67  ��  ���CLO(P��h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-19.scm  � �  ���CS���h���D���]�L�6<�������g��filenamef��srfi/srfi-19.scm  � �   ���C�����h������]�C����������   ���CWX������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-19.scm � �  � ���C5(R)�������h ���v���]�&��� C�6�������n�������g��s  ��g��filenamef��srfi/srfi-19.scm � �   ��g��nameg��%time-second-procedure�CR4)�������h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���Ch�����h���7���]��C������/�������g��t-46961e50d3-82  ��  ���CLO)P��h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-19.scm  � �  ���CS���h���D���]�L�6<�������g��filenamef��srfi/srfi-19.scm  � �   ���C�����h������]�C����������   ���CWX������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-19.scm � �  � ���C5)R44.0478�h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���CWX�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-19.scm � �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C54R*��������h ������]�&��� C�6�������������g��s  �g��val  ��g��filenamef��srfi/srfi-19.scm � �   ��g��nameg��%set-time-type!-procedure�C9R4*:~������h���T���]��C����L�������g��t-46961e50d3-b0  �g��t-46961e50d3-b1  ��  ���CLO*P�����h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-19.scm  � �  ���CS���h���D���]�L�6<�������g��filenamef��srfi/srfi-19.scm  � �   ���C�����h������]�C����������   ���CWX� �����hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��}�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-19.scm � �  n ���C5*R+���h ������]�&��� C�6�������������g��s  �g��val  ��g��filenamef��srfi/srfi-19.scm � �   ��g��nameg��%set-time-nanosecond!-procedure�CR4+:��������h���T���]��C����L�������g��t-46961e50d3-c0  �g��t-46961e50d3-c1  ��  ���CLO+P�����h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-19.scm  � �  ���CS���h���D���]�L�6<�������g��filenamef��srfi/srfi-19.scm  � �   ���C�����h������]�C����������   ���CWX� �����hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��}�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-19.scm � �  n ���C5+R,���h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��srfi/srfi-19.scm � �   ��g��nameg��%set-time-second!-procedure�CR4,:����h���T���]��C����L�������g��t-46961e50d3-d0  �g��t-46961e50d3-d1  ��  ���CLO,P�����h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-19.scm  � �  ���CS���h���D���]�L�6<�������g��filenamef��srfi/srfi-19.scm  � �   ���C�����h������]�C����������   ���CWX� �����hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��}�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-19.scm � �  n ���C5,R%'()�����hX������]�&��� "�� 4�5�&��� "�� 4�5�&�� � "�� 4�56����������g��time  U��g��filenamef��srfi/srfi-19.scm �  � ! �  ; � 5 U � �  U ��g��nameg�� copy-time�C-R�h0������] 4�5$�� 4�5 D4�545�D���������g��r  .�g��l  .��g��filenamef��srfi/srfi-19.scm                   !   ,  # .  �  . ��g��nameg�� split-real�CR(),+� ���h����]4�&��� "�� 4�55����;�$��4�&��� "�� 4�5>�� G��&�� � "�� 4�5����;��&�� � "��4�>��"��G������;��&�� � "��4�>��"��G��"���"���&�� � "�� 4�5 $���&��� "�� 4�5 $���&�� � "�� 4�5�&�� � "��4�>��"��G������;��&��� "�� 4�5�&�� � "�4�>��"��G��"��"��"���&�� � "�� 4�5 $���&��� "�� 4�5 $���&�� � "�� 4�5�&�� � "��4�>��"��G������;��&��� "�� 4�5�&�� � "��4�>��"��G��"��"4"��",�C������g��t  �g��int R ��g��frac  R ��g��val  � ��g��val  � ��g��val V �g��val  �g��val > l�g��val  �� g��filenamef��srfi/srfi-19.scm       !  +   /   0  5   Q  U   \   �   �   �   �  # �  �   �            5   :  =  # V  V    2   $                   "   %   >   >   x  .     �+   ��g��nameg��time-normalize!�CR��������h������]��6��������������g��type  �g�� nanosecond  �g��second   ��g��filenamef��srfi/srfi-19.scm       �   ��g��nameg�� make-time�C%R<=>?@AB������h�����] 4 544�5>��"��G��44�5>��"��G��44�5>��"��G��44 �5>��"��G��4 4 �5>��"��G��4  l4 �5>��"��G��4 >��"��G��4 4�5>��"��G��C�������g��date  ��g��result  ���g��filenamef��srfi/srfi-19.scm !  "   "  %   %   %  $ &  ) &  4 &  = '  B '  M '  V )  [ )  f )  o *  t *  { *  � *  � ,  � , � ,  � ,  � -  � .  � .  � .  � .  � . �  � ��g��nameg��date->broken-down-time�CR% ���h ������]45��� �6��������������g��tod  ��g��filenamef��srfi/srfi-19.scm 5  7  7   8   8   8 +  8 �   ��g��nameg��current-time-utc�CR%�������h0������]45���� 456��������������g��tod  )�g��sec )�g��usec   )��g��filenamef��srfi/srfi-19.scm :  <   <  =  <   >   <   @   A  A  ' A  ) ? �  ) ��g��nameg��current-time-tai�CR������h���o���]�6���g�������g��filenamef��srfi/srfi-19.scm N  P �   ��g��nameg��current-time-monotonic�CRl��������h������]�6�����������g��filenamef��srfi/srfi-19.scm R  S   S  S 4 S �  ��g��nameg��current-time-thread�CR����;�iR%�h ������]45����6�����������g��run-time  ��g��filenamef��srfi/srfi-19.scm W  X   X   [   [   ]   Y �   ��g��nameg��current-time-process�CR l�������h`�����-��1��3��(��"���&��6�&��6�&��6�&��6� &�� 6�   6������g�� clock-type `�g�� clock-type  `��g��filenamef��srfi/srfi-19.scm b  c   c 4  c  " d  & e . d  2 f : d  > g & F d  J h # R d  V i $ Z k  \ k % ` k � ` ��g��nameg�� current-time�ClR  $� ������hX������-��1��3��(��"���$�� C$�� C$�� C$��C 6��������g�� clock-type W�g�� clock-type  W��g��filenamef��srfi/srfi-19.scm q  r   r 4  r  # s  Q z  S z ) W z � W ��g��nameg��time-resolution�C$R)('������h������]�&�� � "�� 4�5&��  "�� 45$��q�&��� "�� 4�5&�� "�� 45$��6�&��� "�� 4�5&�� "�� 45CCC�������g��t1  ��g��t2  ���g��filenamef��srfi/srfi-19.scm ~     9   =   @  Z   r   v   y  �   �  �  � ��g��nameg��time=?�C0R)(�h������] �&�� � "�� 4�5&��  "�� 45$��C�&�� � "�� 4�5&��  "�� 45$��6�&��� "�� 4�5&�� "�� 45CC��������g��t1  ��g��t2  ��g��t  9 ���g��filenamef��srfi/srfi-19.scm      9   9   G   b   {     �   �  # �  �  � ��g��nameg��time>?�C2R)(��������h������] �&�� � "�� 4�5&��  "�� 45$��C�&�� � "�� 4�5&��  "�� 45$��6�&��� "�� 4�5&�� "�� 45CC��������g��t1  ��g��t2  ��g��t  9 ���g��filenamef��srfi/srfi-19.scm      9   9   G   b   {     �   �  # �  �  � ��g��nameg��time<?�C/R)(��������h������] �&�� � "�� 4�5&��  "�� 45$��C�&�� � "�� 4�5&��  "�� 45$��6�&��� "�� 4�5&�� "�� 45CC��������g��t1  ��g��t2  ��g��t  9 ���g��filenamef��srfi/srfi-19.scm      9   9   G   b   {     �   �  $ �  �  � ��g��nameg��time>=?�C1R)(�������h������] �&�� � "�� 4�5&��  "�� 45$��C�&�� � "�� 4�5&��  "�� 45$��6�&��� "�� 4�5&�� "�� 45CC��������g��t1  ��g��t2  ��g��t  9 ���g��filenamef��srfi/srfi-19.scm      9   9   G   b   {     �   �  $ �  �  � ��g��nameg��time<=?�C.R)(*,+� ���h���1��]�&�� � "�� 4�5&��  "�� 45�&��� "�� 4�5&�� "�� 45�&�� � "��4�>��"��G���&�� � "��4�>��"��G���&�� � "��4�>��"��G�� �6)������g��time1  ��g��time2  ��g��sec-diff  n ��g�� nsec-diff  n ��g��val  t ���g��filenamef��srfi/srfi-19.scm      ) 9   <   V  . n   n   t   �   �   �  �  � ��g��nameg��time-difference!�C4R-4����h������] 4�56������������g��time1  �g��time2  �g��result  ��g��filenamef��srfi/srfi-19.scm         �   ��g��nameg��time-difference�C3R')(,+5� h���F��]&�� "�� 45&���&�� � "�� 4�5&��  "�� 45�&��� "�� 4�5&�� "�� 45�&�� � "��4�>��"��G���&�� � "��4�>��"��G�� �6   6�����>������g��t  ��g��duration  ��g��sec-plus  � ��g�� nsec-plus  � ���g��filenamef��srfi/srfi-19.scm     "   %   @  ) Y   \   v  . �   �   �   �   �   �   �  �  �  � ��g��nameg�� add-duration!�C6R-6�������h������] 4�56������������g��t  �g��duration  �g��result  ��g��filenamef��srfi/srfi-19.scm         �   ��g��nameg�� add-duration�C5R')(,+5� ����h���M��]&�� "�� 45&���&�� � "�� 4�5&��  "�� 45�&��� "�� 4�5&�� "�� 45�&�� � "��4�>��"��G���&�� � "��4�>��"��G�� �6   6�����E������g��t  ��g��duration  ��g�� sec-minus  � ��g�� nsec-minus  � ���g��filenamef��srfi/srfi-19.scm     "   %   @  + Y   \   v  / �   �   �   �   �   �   �  �  �  � ��g��nameg��subtract-duration!�C8R-8��������h������] 4�56������������g��time1  �g��duration  �g��result  ��g��filenamef��srfi/srfi-19.scm         �   ��g��nameg��subtract-duration�C7R' *(+),���h ��h��] �&��� "�� 4�5&��"��4�>��"��G��&��  "��4>��"��G���&��� "�� 4� 5&��  "��4 >��"��G���&�� � "�� 4� 54 �&�� � "�� 4� 55&��  "��4 >��"��G��C�`������g��time-in  �g��time-out  �g��caller   �g��val  > k�g��val  � ��g��val  � ��g��filenamef��srfi/srfi-19.scm     "   '   -   4   >   n  ! �   �  $ �  $ �  % �  $ �  ! �  �   ��g��nameg��priv:time-tai->time-utc!�CR_�h������]��6�������������g��time-in  ��g��filenamef��srfi/srfi-19.scm    $   F   �   ��g��nameg��time-tai->time-utc�C_R`�h������]��6�����������g��time-in  ��g��filenamef��srfi/srfi-19.scm   ,  �  ��g��nameg��time-tai->time-utc!�C`R' *(+),��h ��h��] �&��� "�� 4�5&��"��4�>��"��G��&��  "��4>��"��G���&��� "�� 4� 5&��  "��4 >��"��G���&�� � "�� 4� 54 �&�� � "�� 4� 55&��  "��4 >��"��G��C�`������g��time-in  �g��time-out  �g��caller   �g��val  > k�g��val  � ��g��val  � ��g��filenamef��srfi/srfi-19.scm     "   '   -   4   >   n  ! �   �  $ �  $ �  % �  $ �  ! �  �   ��g��nameg��priv:time-utc->time-tai!�CRf�h������]��6�������������g��time-in  ��g��filenamef��srfi/srfi-19.scm    $   F   �   ��g��nameg��time-utc->time-tai�CfRg�h������]��6�����������g��time-in  ��g��filenamef��srfi/srfi-19.scm   ,  �  ��g��nameg��time-utc->time-tai!�CgR'X-*� ����h�����]�&��� "�� 4�5&��"��4�>��"��G��4�5 &��  "��4 >��"��G�� 6���������g��time-in  ~�g��ntime C ~�g��val  G t��g��filenamef��srfi/srfi-19.scm     "   '   +   -   4   =   C   G   |  * ~  �  ~ ��g��nameg��time-monotonic->time-utc�CXR'Y*X� ���hx������] �&��� "�� 4�5&��"��4�>��"��G���&�� � "��4� >��"��G�� �� 6����������g��time-in  u�g��val > k��g��filenamef��srfi/srfi-19.scm     "   '   +   -   4   >   s  , u  �  u ��g��nameg��time-monotonic->time-utc!�CYR'V-*� ��hx������]�&��� "�� 4�5&��"��4�>��"��G��4�5 &��  "��4 >��"��G��C��������g��time-in  w�g��ntime C w�g��val  G t��g��filenamef��srfi/srfi-19.scm     "   '   +   -   4   =   C   G  �  w ��g��nameg��time-monotonic->time-tai�CVR'W*� ��hp������] �&��� "�� 4�5&��"��4�>��"��G���&�� � "��4� >��"��G���C���������g��time-in  n�g��val > k��g��filenamef��srfi/srfi-19.scm     "   '   +   -   4   > � �  n ��g��nameg��time-monotonic->time-tai!�CWR' d*� ���h�����]�&��� "�� 4�5&��"��4�>��"��G��4��5 &��  "��4 >��"��G��C�������������g��time-in  ��g��ntime M ��g��val  Q ~��g��filenamef��srfi/srfi-19.scm     "   '   +   -   4   =   I  1 K  ) M   M   Q  �  � ��g��nameg��time-utc->time-monotonic�CdR' e*� �h�����]�&��� "�� 4�5&��"��4�>��"��G��4��5 &��  "��4 >��"��G��C������������g��time-in  {�g��ntime G {�g��val  K x��g��filenamef��srfi/srfi-19.scm     "   '   +   -   4   =   E  ) G   G   K  �  { ��g��nameg��time-utc->time-monotonic!�CeR']-*� �����hx������]�&��� "�� 4�5&��"��4�>��"��G��4�5 &��  "��4 >��"��G��C��������g��time-in  w�g��ntime C w�g��val  G t��g��filenamef��srfi/srfi-19.scm     "   '   +   -   4   =   C   G  �  w ��g��nameg��time-tai->time-monotonic�C]R'^*� ��hp������] �&��� "�� 4�5&��"��4�>��"��G���&�� � "��4� >��"��G���C���������g��time-in  n�g��val > k��g��filenamef��srfi/srfi-19.scm     "   '   +   -   4   > ! �  n ��g��nameg��time-tai->time-monotonic!�C^R��������h �����,�3��� C�����������g�� nanosecond  �g��second  �g��minute   �g��hour   �g��day   �g��month   �g��year   �g�� zone-offset   ��g��filenamef��srfi/srfi-19.scm ) �   ��g��nameg��%make-date-procedure�CR49'��h ��� ��,�3��� C����������g��t-46961e50d3-33b  �g��t-46961e50d3-33c  �g��t-46961e50d3-33d   �g��t-46961e50d3-33e   �g��t-46961e50d3-33f   �g��t-46961e50d3-340   �g��t-46961e50d3-341   �g��t-46961e50d3-342   ��   ���CLO9P�������h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-19.scm  ) �  ���CS���h���D���]�L�6<�������g��filenamef��srfi/srfi-19.scm  ) �   ���C)�����h������]�C����������   ���CWX� �����hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��}�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-19.scm ) �  n ���C59R[*_+��4c�>��"��G��� fi��R�����h���r���]�$���CC������j�������g��obj  ��g��filenamef��srfi/srfi-19.scm ) �   ��g��nameg��%date?-procedure�C,R4:hG������h���8���]��C������0�������g��t-46961e50d3-35d  ��  ���CLO:P�h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-19.scm  ) �  ���CS���h���D���]�L�6<�������g��filenamef��srfi/srfi-19.scm  ) �   ���CI�����h������]�C����������   ���CWX� �����hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��}�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-19.scm ) �  n ���C5:R;��h���z���]�&��� C�6r�������g��s  ��g��filenamef��srfi/srfi-19.scm ) �   ��g��nameg��%date-nanosecond-procedure�CJR4;X_d���h���:���]C�����2�������g��err  �g��s  ��  ���Cgmr�h���:���]C�����2�������g��err  �g��s  ��  ���Cu{�h���:���]C�����2�������g��err  �g��s  ��  ���Ch����h���8���]��C������0�������g��t-46961e50d3-369  ��  ���CLO;P�h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-19.scm  ) �  ���CS���h���D���]�L�6<�������g��filenamef��srfi/srfi-19.scm  ) �   ���C�����h������]�C����������   ���CWX������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-19.scm ) �  � ���C5;R<������h���v���]�&��� C�6n�������g��s  ��g��filenamef��srfi/srfi-19.scm ) �   ��g��nameg��%date-second-procedure�CR4<�������h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���Ch����h���8���]��C������0�������g��t-46961e50d3-384  ��  ���CLO<P�h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-19.scm  ) �  ���CS���h���D���]�L�6<�������g��filenamef��srfi/srfi-19.scm  ) �   ���C�����h������]�C����������   ���CWX������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-19.scm ) �  � ���C5<R=������h ���v���]�&��� C�6�������n�������g��s  ��g��filenamef��srfi/srfi-19.scm ) �   ��g��nameg��%date-minute-procedure�CR4= �������h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C &+�h���:���]C�����2�������g��err  �g��s  ��  ���ChG����h���8���]��C������0�������g��t-46961e50d3-39f  ��  ���CLO=P�h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-19.scm  ) �  ���CS���h���D���]�L�6<�������g��filenamef��srfi/srfi-19.scm  ) �   ���CI�����h������]�C����������   ���CWX������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-19.scm ) �  � ���C5=R>������h ���t���]�&��� C�6�������l�������g��s  ��g��filenamef��srfi/srfi-19.scm ) �   ��g��nameg��%date-hour-procedure�CJR4>X_d�h���:���]C�����2�������g��err  �g��s  ��  ���Cgmr�h���:���]C�����2�������g��err  �g��s  ��  ���Cu{�h���:���]C�����2�������g��err  �g��s  ��  ���Ch����h���8���]��C������0�������g��t-46961e50d3-3ba  ��  ���CLO>P�h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-19.scm  ) �  ���CS���h���D���]�L�6<�������g��filenamef��srfi/srfi-19.scm  ) �   ���C�����h������]�C����������   ���CWX������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-19.scm ) �  � ���C5>R?������h ���s���]�&��� C�6�������k�������g��s  ��g��filenamef��srfi/srfi-19.scm ) �   ��g��nameg��%date-day-procedure�CR4?��h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���Ch����h���8���]��C������0�������g��t-46961e50d3-3d5  ��  ���CLO?P�h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-19.scm  ) �  ���CS���h���D���]�L�6<�������g��filenamef��srfi/srfi-19.scm  ) �   ���C�����h������]�C����������   ���CWX������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-19.scm ) �  � ���C5?R@������h ���u���]�&��� C�6�������m�������g��s  ��g��filenamef��srfi/srfi-19.scm ) �   ��g��nameg��%date-month-procedure�CR4@ ��������h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C%*�h���:���]C�����2�������g��err  �g��s  ��  ���ChF����h���8���]��C������0�������g��t-46961e50d3-3f0  ��  ���CLO@P�h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-19.scm  ) �  ���CS���h���D���]�L�6<�������g��filenamef��srfi/srfi-19.scm  ) �   ���CH�����h������]�C����������   ���CWX������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-19.scm ) �  � ���C5@RA������h ���t���]�&��� C�6�������l�������g��s  ��g��filenamef��srfi/srfi-19.scm ) �   ��g��nameg��%date-year-procedure�CIR4AW^c�h���:���]C�����2�������g��err  �g��s  ��  ���Cflq�h���:���]C�����2�������g��err  �g��s  ��  ���Ctz�h���:���]C�����2�������g��err  �g��s  ��  ���Ch����h���8���]��C������0�������g��t-46961e50d3-40b  ��  ���CLOAP�h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-19.scm  ) �  ���CS���h���D���]�L�6<�������g��filenamef��srfi/srfi-19.scm  ) �   ���C�����h������]�C����������   ���CWX������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-19.scm ) �  � ���C5ARB������h ���{���]�&��� C�6�������s�������g��s  ��g��filenamef��srfi/srfi-19.scm ) �   ��g��nameg��%date-zone-offset-procedure�CR4B��h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���Ch����h���8���]��C������0�������g��t-46961e50d3-426  ��  ���CLOBP�h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-19.scm  ) �  ���CS���h���D���]�L�6<�������g��filenamef��srfi/srfi-19.scm  ) �   ���C�����h������]�C����������   ���CWX������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-19.scm ) �  � ���C5BR4} 78�h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���CWX�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-19.scm ) �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5}R������h ������]�&��� C�6�������������g��s  �g��val  ��g��filenamef��srfi/srfi-19.scm ) �   ��g��nameg��%set-date-nanosecond!-procedure�CR4:5�������h���V���]��C����N�������g��t-46961e50d3-454  �g��t-46961e50d3-455  ��  ���CLOP��h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-19.scm  ) �  ���CS���h���D���]�L�6<�������g��filenamef��srfi/srfi-19.scm  ) �   ���C7�����h������]�C����������   ���CWX� �����hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��}�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-19.scm ) �  n ���C5R8��������h ������]�&��� C�6�������������g��s  �g��val  ��g��filenamef��srfi/srfi-19.scm ) �   ��g��nameg��%set-date-second!-procedure�C9R48:_���h���V���]��C����N�������g��t-46961e50d3-464  �g��t-46961e50d3-465  ��  ���CLO8P��h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-19.scm  ) �  ���CS���h���D���]�L�6<�������g��filenamef��srfi/srfi-19.scm  ) �   ���Ca�����h������]�C����������   ���CWX� �����hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��}�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-19.scm ) �  n ���C58Rb��������h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��srfi/srfi-19.scm ) �   ��g��nameg��%set-date-minute!-procedure�CcR4b:���h���V���]��C����N�������g��t-46961e50d3-474  �g��t-46961e50d3-475  ��  ���CLObP��h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-19.scm  ) �  ���CS���h���D���]�L�6<�������g��filenamef��srfi/srfi-19.scm  ) �   ���C�����h������]�C����������   ���CWX� �����hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��}�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-19.scm ) �  n ���C5bR��������h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��srfi/srfi-19.scm ) �   ��g��nameg��%set-date-hour!-procedure�CR4:�����h���V���]��C����N�������g��t-46961e50d3-484  �g��t-46961e50d3-485  ��  ���CLOP��h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-19.scm  ) �  ���CS���h���D���]�L�6<�������g��filenamef��srfi/srfi-19.scm  ) �   ���C�����h������]�C����������   ���CWX� �����hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��}�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-19.scm ) �  n ���C5R��������h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��srfi/srfi-19.scm ) �   ��g��nameg��%set-date-day!-procedure�CR4:������h���V���]��C����N�������g��t-46961e50d3-494  �g��t-46961e50d3-495  ��  ���CLOP��h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-19.scm  ) �  ���CS���h���D���]�L�6<�������g��filenamef��srfi/srfi-19.scm  ) �   ���C�����h������]�C����������   ���CWX� �����hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��}�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-19.scm ) �  n ���C5R��������h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��srfi/srfi-19.scm ) �   ��g��nameg��%set-date-month!-procedure�CR4:����h���V���]��C����N�������g��t-46961e50d3-4a4  �g��t-46961e50d3-4a5  ��  ���CLOP��h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-19.scm  ) �  ���CS���h���D���]�L�6<�������g��filenamef��srfi/srfi-19.scm  ) �   ���C �����h������]�C����������   ���CWX� �����hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��}�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-19.scm ) �  n ���C5R ��������h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��srfi/srfi-19.scm ) �   ��g��nameg��%set-date-year!-procedure�C R4 :1�����h���V���]��C����N�������g��t-46961e50d3-4b4  �g��t-46961e50d3-4b5  ��  ���CLO P��h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-19.scm  ) �  ���CS���h���D���]�L�6<�������g��filenamef��srfi/srfi-19.scm  ) �   ���C3�����h������]�C����������   ���CWX� �����hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��}�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-19.scm ) �  n ���C5 R4��������h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��srfi/srfi-19.scm ) �   ��g��nameg�� %set-date-zone-offset!-procedure�C5R44:[������h���V���]��C����N�������g��t-46961e50d3-4c4  �g��t-46961e50d3-4c5  ��  ���CLO4P��h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-19.scm  ) �  ���CS���h���D���]�L�6<�������g��filenamef��srfi/srfi-19.scm  ) �   ���C]�����h������]�C����������   ���CWX� �����hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��}�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-19.scm ) �  n ���C54R���hh�����]    $�� "��   � �   m   d  ӖC����������g��day  d�g��month  d�g��year   d�g��a  d�g��y  % d�g��m  2 d��g��filenamef��srfi/srfi-19.scm 9  :  : :   ;   ;  ; #  ;  % ; % :  . <  / <  2 < 2 :  < >  ? >  B >  C =  I ?  J =  O @  P =  Q A  V A W A  X =  ^ B  _ = �  d ��g��nameg��encode-julian-day-number�C^R��h�����]A44�55 },  �����:�����:         � d @ � �      $��"��D������������g��jdn  ��g��days  ��g��a   ��g��b  * ��g��c  > ��g��d  L ��g��e  Z ��g��m  h ��g��y  | ��� g��filenamef��srfi/srfi-19.scm F  G   G   G   G   H  G   I  I  * I * G  : J  = J  > J > G  E K  H K  L K L G  V L  Y L  Z L Z G  a M  d M  h M h G  o N  r N { N ! | N | G  � P  � P  � Q � Q  � Q  � Q � Q � Q  � R  � R  � R � R  � S � S  � S  � O �1  � ��g��nameg��decode-julian-day-number�C_R`a)������h0������] 44�&�� � "�� 4�555C�������������g��utc-time  *��g��filenamef��srfi/srfi-19.scm Y  [   [   [  [  & [  ( [  ) [ �  * ��g��nameg��local-tz-offset�CbR�����h������]�C��������������g��seconds  �g�� tz-offset  ��g��filenamef��srfi/srfi-19.scm ^  _  _   _ �   ��g��nameg��time->julian-day-number�CcRd����h������]4�5$��CC�����{�������g��second  ��g��filenamef��srfi/srfi-19.scm c  d   d �   ��g��nameg�� leap-second?�CeR' fbe)c_g(����hP��R��-�1�3��&��� "�� 4�5&��"��4�>��"��G��(�� 4�5"��4 �&�� � "�� 4� 554 $�� �&�� � "�� 4� 5"���&�� � "�� 4� 554 >�� G�4 455      <  < �&��� "�� 4�5$�� "��   � C���J������g��time M�g�� tz-offset M�g��offset  W M�g�� leap-second?  | M�g��jdn  � M�g��secs  � M�g��date  � M�g��month  � M�g��year  � M�g��int-secs � M�g��hours � M�g��rem � M�g��minutes  M�g��seconds  M�g�� nanosecond  3 M�g��second  3 M��g��filenamef��srfi/srfi-19.scm f g  ) g  . h  2 h  4 h  ; h  I i  J j  W k  W i  Z l  a l / z l % | l  | i   m  � m ' � n 3 � n 0 � o 0 � m  � i  � r ! � r  � v  � v ) � v  � v  � w , � w  � v  � x - � x  � v   y   v   z   v   {  * |  - | & 3 { �, M ��g��nameg��time-utc->date�CaR'fb_)ec_g(��hH����-�1�3��&��� "�� 4�5&��"��4�>��"��G��(��44 �55"���&�� � "�� 4� 54 �&�� � "�� 4� 554 54 $��"��54>�� G� 4455      <  <�&��� "�� 4�5$��"��   � C���������g��time E�g�� tz-offset E�g��offset  \ E�g��seconds  � E�g�� leap-second?  � E�g��jdn  � E�g��secs  � E�g��date  � E�g��month  � E�g��year � E�g��int-secs � E�g��hours � E�g��rem � E�g��minutes � E�g��seconds  � E�g�� nanosecond  + E�g��second  + E��g��filenamef��srfi/srfi-19.scm    )   .   2   4   ;   I   J   M  & U   \   \   a   z     ( �   �   �   �   �  % �   �   �   �  ' �  0 �   �   �  ! �   �   �  ) �   �   �  , �   �   �  - �   �   �   �   �   �      "   %  & +  �1 E ��g��nameg��time-tai->date�CZR'fbX)ec_g(�������hH����-�1�3��&��� "�� 4�5&��"��4�>��"��G��(��44 �55"���&�� � "�� 4� 54 �&�� � "�� 4� 554 54 $��"��54>�� G� 4455      <  <�&��� "�� 4�5$��"��   � C���������g��time E�g�� tz-offset E�g��offset  \ E�g��seconds  � E�g�� leap-second?  � E�g��jdn  � E�g��secs  � E�g��date  � E�g��month  � E�g��year � E�g��int-secs � E�g��hours � E�g��rem � E�g��minutes � E�g��seconds  � E�g�� nanosecond  + E�g��second  + E��g��filenamef��srfi/srfi-19.scm    )   .   2   4   ;   I   J   M  & U   \   \   a   z     ( �   �   �   �   �  % �   �   �   �  ' �  0 �   �   �  ! �   �   �  ) �   �   �  , �   �   �  - �   �   �   �   �   �      "   %  & +  �1 E ��g��nameg��time-monotonic->date�CSR^?@Ah% ;>=<B��h����]4�&�� � "�� 4�5�&�� � "�� 4�5�&�� � "�� 4�554 5  �&��� "�� 4� 5  < <�&�� � "�� 4� 5 < <�&�� � "�� 4�5 <�&��� "�� 4�5 �&�� � "�� 4�56��������g��date  �g��jdays [ �g�� jdays-1/2  g ��g��filenamef��srfi/srfi-19.scm       - #  1 >  1 X   [   [   ^   d  - e  $ g   g   p   �   �  �   �   �  �   �   �   �   �   �          �   ��g��nameg��date->time-utc�CJRgJ������h������]4�56���{�������g��date  ��g��filenamef��srfi/srfi-19.scm      �  ��g��nameg��date->time-tai�CIReJ��h������]4�56����������g��date  ��g��filenamef��srfi/srfi-19.scm      �  ��g��nameg��date->time-monotonic�CHR��h0������] �  $��C�  $�� � d CC������������g��year  +�g��t +��g��filenamef��srfi/srfi-19.scm               %  ) '  & (  !�  + ��g��nameg�� leap-year?�CiRvwRdwCxi�����h`���4��] 45$��"��4>��"��G��"���C45$�� $�� � C""���,������g��day  ]�g��month  ]�g��year   ]�g��days-pr  ]��g��filenamef��srfi/srfi-19.scm                  # %   6   7   8   9  C   H   L   Q   R  �  ] ��g��nameg��year-day�CyRy?@A�����hX������]�&�� � "�� 4�5�&�� � "�� 4�5�&�� � "�� 4�56��������g��date  W��g��filenamef��srfi/srfi-19.scm    "   =  . W  �  W ��g��nameg�� date-year-day�CCR�������hH���y��]    �   d   C�q������g��day  G�g��month  G�g��year   G�g��a  G�g��y   G�g��m   G��g��filenamef��srfi/srfi-19.scm                     %  *   +  ,   1   2   3  9   :  ?   B   C  F  �  G ��g��nameg��week-day�CzRz?@A��������hX������]�&�� � "�� 4�5�&�� � "�� 4�5�&�� � "�� 4�56��������g��date  W��g��filenamef��srfi/srfi-19.scm    "   =  . W  �  W ��g��nameg�� date-week-day�CDRAD���hH��� ��]�&�� � "�� 4�5 � 45 C����������g��date  D�g��day-of-week-starting-week  D�g��year   0�g�� first-day  0 D�g�� fdweek-day  9 D��g��filenamef��srfi/srfi-19.scm �       0   3   9   @  C  �  D ��g��nameg��days-before-first-week�C{RC{���h������]4�54�5 C�������g��date  �g��day-of-week-starting-week  ��g��filenamef��srfi/srfi-19.scm            �   ��g��nameg��date-week-number�CERl ab�h0������-��1��3�45�(�� 45"���6�����������g�� tz-offset ,�g��time  ,��g��filenamef��srfi/srfi-19.scm            *  ,  � , ��g��nameg�� current-date�C!R!A��hh���I��]45�&��  "�� 45 d d� d$���C� $���C� 2$���C d�CA������g��n  h�g��s  '�g�� current-year ' h�g��current-century  1 h��g��filenamef��srfi/srfi-19.scm    "    '   .   1   1   8 !  <   C "  G   O #  R # U #  Y   ^ # 6 d $  g $ �  h ��g��nameg�� natural-year�C|R;<=>?@AB^}�������h����]A�&��� "�� 4�5�&��� "�� 4�5�&�� � "�� 4�5�&�� � "�� 4�5�&�� � "�� 4�5�&�� � "�� 4�5�&�� � "�� 4� 5�&�� � "�� 4� 54 5  < < < C�������g��date  �g�� nanosecond � �g��second  � �g��minute  � �g��hour  � �g��day  � �g��month  � �g��year  � �g��offset  � �� g��filenamef��srfi/srfi-19.scm &  '   (  9 )  T *  o + � ,  � -  � .  � '  � /  � 0  � /  � 1  � 2   1  3   1  5   1  1  / �   ��g��nameg��date->julian-day�CFRF~�������h������]4�5C����������g��date  ��g��filenamef��srfi/srfi-19.scm 8  9  :  9 �  ��g��nameg��date->modified-julian-day�CGR' f)(� ������h������]�&��� "�� 4�5&��"��4�>��"��G���&�� � "�� 4�5�&��� "�� 4� 5   C�����������g��time  |��g��filenamef��srfi/srfi-19.scm <  =  " =  ' >  + >  - >  4 >  ? ? Z ? ! t ?  u ?  x ?  { ? �  | ��g��nameg��time-utc->julian-day�CbRb~�h������]4�5C����������g��time  ��g��filenamef��srfi/srfi-19.scm C  D  E  D �  ��g��nameg��time-utc->modified-julian-day�CcR'f)(�h��� ��]�&��� "�� 4�5&��"��4�>��"��G���&�� � "�� 4�54 �&�� � "�� 4�55�&��� "�� 4� 5   C���������g��time  ���g��filenamef��srfi/srfi-19.scm G  H  " H  ' I  + I  - I  4 I  ? J  X K  ] K ! w K  x J { L  � L � J  � J  � J �  � ��g��nameg��time-tai->julian-day�C[R[~�������h������]4�5C����������g��time  ��g��filenamef��srfi/srfi-19.scm P  Q  R  Q �  ��g��nameg��time-tai->modified-julian-day�C\R'f)(�h�����]�&��� "�� 4�5&��"��4�>��"��G���&�� � "�� 4�54 �&�� � "�� 4�55�&��� "�� 4� 5   C��� ������g��time  ���g��filenamef��srfi/srfi-19.scm U  V  " V  ' W  + W  - W  4 W  ? X  X Y  ] Y ! w Y  x X { Z  � Z � X  � X  � X �  � ��g��nameg��time-monotonic->julian-day�CTRT~�h������]4�5C����������g��time  ��g��filenamef��srfi/srfi-19.scm ^  _  `  _ �  ��g��nameg��#time-monotonic->modified-julian-day�CUR% ���h0������]�4>�� G�6������������g��jdn  +�g��secs +�g��seconds   +�g��parts   +��g��filenamef��srfi/srfi-19.scm b c  c  c  e   d  ' g  + f �  + ��g��nameg��julian-day->time-utc�CNRgN�������h������]4�56����������g��jdn  ��g��filenamef��srfi/srfi-19.scm j  k  k �  ��g��nameg��julian-day->time-tai�CMReN�����h������]4�56����������g��jdn  ��g��filenamef��srfi/srfi-19.scm m  n  n �  ��g��nameg��julian-day->time-monotonic�CLRNba����h0������-�1�3�4�5(�� 45"��6�������g��jdn 0�g�� tz-offset 0�g��time   0�g��offset  & 0��g��filenamef��srfi/srfi-19.scm p q   q   r   s  & t  & q  0 u � 0 ��g��nameg��julian-day->date�CKRK~�����h������-�1�3��@�����������g��jdn �g�� tz-offset ��g��filenamef��srfi/srfi-19.scm w  x !  x   x �  ��g��nameg��modified-julian-day->date�CORN~������h������]�6������������g��jdn  ��g��filenamef��srfi/srfi-19.scm {  |  |  | �  ��g��nameg��modified-julian-day->time-utc�CRRM~��h������]�6������������g��jdn  ��g��filenamef��srfi/srfi-19.scm ~       �  ��g��nameg��modified-julian-day->time-tai�CQRL~��h������]�6������������g��jdn  ��g��filenamef��srfi/srfi-19.scm    %    �  ��g��nameg��#modified-julian-day->time-monotonic�CPRbl ���h���t���]�456���l�������g��filenamef��srfi/srfi-19.scm      �  ��g��nameg��current-julian-day�C"Rcl �������h���}���]�456���u�������g��filenamef��srfi/srfi-19.scm    !  �  ��g��nameg��current-modified-julian-day�C#R�hH���2��]4�545$��"��$��C456���*������g��n  E�g��pad-with  E�g��length   E�g��str  E�g��str-len   E�g��t   ,��g��filenamef��srfi/srfi-19.scm                 )  0   6   =  $ A   E  �  E ��g��nameg��padding�CR��������h������]�4 56�������������g��i  �g��n  ��g��filenamef��srfi/srfi-19.scm          �   ��g��nameg�� last-n-digits�CR������h������]�6�������}�������g��n  ��g��filenamef��srfi/srfi-19.scm    2  �  ��g��nameg��locale-abbr-weekday�CR��������h������]�6�������}�������g��n  ��g��filenamef��srfi/srfi-19.scm    ,  �  ��g��nameg��locale-long-weekday�CRiRiR���h8���,��] "��)$��C4�455$��C" "��$������g��needle  6�g�� haystack-ref  6�g�� haystack-len   6�g��same?   6�g��index   /��g��filenamef��srfi/srfi-19.scm                #   )   /   /  �  6 ��g��nameg��date-reverse-lookup�CR���h������]� 6���������g��string  ��g��filenamef��srfi/srfi-19.scm    �   ��g��nameg��locale-abbr-weekday->index�CR�������h������]� 6���������g��string  ��g��filenamef��srfi/srfi-19.scm    �   ��g��nameg��locale-long-weekday->index�CR�������h������]� 6��~�������g��string  ��g��filenamef��srfi/srfi-19.scm    �   ��g��nameg��locale-abbr-month->index�CR�h������]� 6��~�������g��string  ��g��filenamef��srfi/srfi-19.scm    �   ��g��nameg��locale-long-month->index�CRB�������h(������]�&�� � "�� 4�56������������g��date  #�g��port  #��g��filenamef��srfi/srfi-19.scm     #  �  # ��g��nameg��locale-print-time-zone�CR�����h������]� $��6�6�������������g��hr  ��g��filenamef��srfi/srfi-19.scm            #�   ��g��nameg��locale-am-string/pm�CR������h�����]� $��4>��"��G��"��4� $��4>��"��G��"��4>��"��G��� $��C4� 54�  <5440 5>��"��G��40 56�����������g��offset  ��g��port  ��g��hours  y ��g��minutes  y ���g��filenamef��srfi/srfi-19.scm               %   *   +   /  6   C  G   N  Z  ^   a   h  + i   k   l   s  6 t  $ w   y   y   ~   �   �   �   �  �  � ��g��nameg�� tz-printer�CR~���h������]~6�������������g��date  �g��pad-with  �g��port   ��g��filenamef��srfi/srfi-19.scm   �  ���CaD�h������]44�556�����������g��date  �g��pad-with  �g��port   ��g��filenamef��srfi/srfi-19.scm       -      �   ���CAD������h������]44�556�����������g��date  �g��pad-with  �g��port   ��g��filenamef��srfi/srfi-19.scm       -      �   ���Cb@��������h(������]4�&�� � "�� 4�556�������g��date  (�g��pad-with  (�g��port   (��g��filenamef��srfi/srfi-19.scm      + $   (  �  ( ���CB@��������h(������]4�&�� � "�� 4�556�������g��date  (�g��pad-with  (�g��port   (��g��filenamef��srfi/srfi-19.scm      + $   (  �  ( ���Cch{�������h������]4�56��������������g��date  �g��pad-with  �g��port   ��g��filenamef��srfi/srfi-19.scm       �   ���Cd?��h0������]4�&�� � "�� 4�50 56�����������g��date  ,�g��pad-with  ,�g��port   ,��g��filenamef��srfi/srfi-19.scm      ! (   ,  �  , ���CDh|�������h������]4�56��������������g��date  �g��pad-with  �g��port   ��g��filenamef��srfi/srfi-19.scm      +     �   ���Ce?��������h0������]4�&�� � "�� 4�5 56�����������g��date  ,�g��pad-with  ,�g��port   ,��g��filenamef��srfi/srfi-19.scm      ! (   ,  �  , ���Cf;<��h����]#�&��� "�� 4�5$��:44�&��� "�� 4�5 5>��"��G��"��544�&��� "�� 4�5 5>��"��G��4�&��� "�� 4�5 >�� G�4 54 5 $��(44 5�>��"��G��4  56C�������g��date  �g��pad-with  �g��port   �g��i  � �g��f  � �g��ns  � �g��le  � ��g��filenamef��srfi/srfi-19.scm        #   $   '   ,  ( D  % J   Q   ^   a   f  % �   �   �   �  * �  $ �  / �  $ �   �   �  # �   �  # �   �   �   �  �  ) �  �  )   �"   ���Chh����h������]4�56��������������g��date  �g��pad-with  �g��port   ��g��filenamef��srfi/srfi-19.scm      +     �   ���CH>��������h0������]4�&�� � "�� 4�5 56�����������g��date  ,�g��pad-with  ,�g��port   ,��g��filenamef��srfi/srfi-19.scm �     ! (   ,  �  , ���CI>��������hP������] �&�� � "�� 4�5 $��4  564 56����������g��date  M�g��pad-with  M�g��port   M�g��hr   M��g��filenamef��srfi/srfi-19.scm        $   (   +   2  ' 8   <   ?   M  �  M ���CjC��������h������]44�5 56�������g��date  �g��pad-with  �g��port   ��g��filenamef��srfi/srfi-19.scm       !      �   ���Ck>��������h0������]4�&�� � "�� 4�5 56�����������g��date  ,�g��pad-with  ,�g��port   ,��g��filenamef��srfi/srfi-19.scm      ! (   ,  �  , ���Cl>��������hx������] �&�� � "�� 4�5 $��"�&�� � "�� 4�5 "���&�� � "�� 4�54 56�����������g��date  t�g��pad-with  t�g��port   t�g��hr  a t��g��filenamef��srfi/srfi-19.scm      $   '  B   I  5 a   f   t  �  t ���Cm@���h0������]4�&�� � "�� 4�5 56�����������g��date  ,�g��pad-with  ,�g��port   ,��g��filenamef��srfi/srfi-19.scm      ! (   ,  �  , ���CM=��������h0������]4�&�� � "�� 4�5 56�����������g��date  ,�g��pad-with  ,�g��port   ,��g��filenamef��srfi/srfi-19.scm      ! (   ,  �  , ���Cn���h������]6�������g��date  �g��pad-with  �g��port   ��g��filenamef��srfi/srfi-19.scm "  # �   ���CN;���h0������]4�&��� "�� 4�5 56������������g��date  +�g��pad-with  +�g��port   +��g��filenamef��srfi/srfi-19.scm $  %  % ! ' %  + % �  + ���Cp>��������h(������]4�&�� � "�� 4�556�������g��date  (�g��pad-with  (�g��port   (��g��filenamef��srfi/srfi-19.scm (  )  ) - $ )  ( ) �  ( ���Crh������h������]4�56��������������g��date  �g��pad-with  �g��port   ��g��filenamef��srfi/srfi-19.scm *  +  + + +   + �   ���CsJ)��h0������] 4�5&��  "�� 456��������g��date  /�g��pad-with  /�g��port   /�g��s  +��g��filenamef��srfi/srfi-19.scm ,  - % -  / - �  / ���CS;<������hx������]�&��� "�� 4�5$��*4�&��� "�� 4�5 564�&��� "�� 4�5 56���������g��date  v�g��pad-with  v�g��port   v��g��filenamef��srfi/srfi-19.scm .  /   /  # /  & 1  + 1 ( C 1 % I 1  M 1  P 4  U 4 % r 4  v 4 �  v ���Ct���h������] 6�������������g��date  �g��pad-with  �g��port   ��g��filenamef��srfi/srfi-19.scm 7 8 �  ���CTh~��h������]4�56��������������g��date  �g��pad-with  �g��port   ��g��filenamef��srfi/srfi-19.scm 9  :  : + :   : �   ���CU{E���h@������]4� 5 $��44� 50 5644� 50 56��������g��date  ?�g��pad-with  ?�g��port   ?��g��filenamef��srfi/srfi-19.scm ;  <  <   <   =   = (  = % $ =  ( =  + ?  . ? % ; ?  ? ? �  ? ���CVE������h ������]44� 50 56��������������g��date  �g��pad-with  �g��port   ��g��filenamef��srfi/srfi-19.scm A  B   B !  B   B �   ���CwD�h������]4�56��������g��date  �g��pad-with  �g��port   ��g��filenamef��srfi/srfi-19.scm D  E   E �   ���Cxh}�h������]4�56��������������g��date  �g��pad-with  �g��port   ��g��filenamef��srfi/srfi-19.scm F  G   G �   ���CXh�h������]4�56��������������g��date  �g��pad-with  �g��port   ��g��filenamef��srfi/srfi-19.scm H  I   I �   ���CW{E�����h@������]4� 5 $��44� 50 5644� 50 56��������g��date  ?�g��pad-with  ?�g��port   ?��g��filenamef��srfi/srfi-19.scm J  K  K   K   L   L (  L % $ L  ( L  + N  . N % ; N  ? N �  ? ���CyA�����h8������]44�&�� � "�� 4�5 5 56������������g��date  3�g��pad-with  3�g��port   3��g��filenamef��srfi/srfi-19.scm P  Q   Q ! R ' ) Q ! / Q  3 Q �  3 ���CYA�h(������]�&�� � "�� 4�56������������g��date  #�g��pad-with  #�g��port   #��g��filenamef��srfi/srfi-19.scm V  W  # W �  # ���CzB�����h(������]�&�� � "�� 4�56������������g��date  #�g��pad-with  #�g��port   #��g��filenamef��srfi/srfi-19.scm X  Y  # Y �  # ���CZ�����h������]�6�������������g��date  �g��pad-with  �g��port   ��g��filenamef��srfi/srfi-19.scm Z [ �  ���C1h�h������]4�56��������������g��date  �g��pad-with  �g��port   ��g��filenamef��srfi/srfi-19.scm \  ]  ] + ]   ] �   ���C2h������h������]4�56��������������g��date  �g��pad-with  �g��port   ��g��filenamef��srfi/srfi-19.scm ^  _  _ + _   _ �   ���C3h~�������h������]4�56��������������g��date  �g��pad-with  �g��port   ��g��filenamef��srfi/srfi-19.scm `  a  a + a   a �   ���C4h�������h������]4�56��������������g��date  �g��pad-with  �g��port   ��g��filenamef��srfi/srfi-19.scm b  c  c + c   c �   ���C5h������h������]4�56��������������g��date  �g��pad-with  �g��port   ��g��filenamef��srfi/srfi-19.scm d  e  e + e   e �   ���C�)Rd���h ������] 4�5$��CC��������������g��char  �g�� associated ��g��filenamef��srfi/srfi-19.scm h  i  i   j   j �   ��g��nameg�� get-formatter�CR� �����h�� ��]$�|454~5$�A$�� 6454-5$��_ $�� 644 55$��&4�>��"��G��� 664_5$��` $�� 644 55$��'4� >��"��G��� 664455$��'4�0>��"��G��� 664>��"��G���6C�������������g��date  �g��index  �g�� format-string   �g��str-len   �g��port   �g�� current-char   �g�� pad-char?  A d�g�� formatter  w ��g�� formatter  � �g�� formatter  + d�� g��filenamef��srfi/srfi-19.scm l  m  m  n   n   o  # o  & s  ) s  - s 1 t  3 t * 7 t  8 v ! ? v ; A v ! A v  D x  P w  U y  X y  \ y  ` z $ b { ) f z  g } ) j ~ * s  6 u ~ * w } ) w }     �  �  3 �  �  * �  / �   �   � w  �   �   �   �  $ �  ) �   �  ) �  * �  6 �  * �  ) �   �   �    3     *   /      %   & '  2 )  & +  % +   3   4   R  / Z   ^  & `  + d   e q   r !  r �L   ��g��nameg�� date-printer�CR�����hH�����-�1�3�45�(��"��4� 45>��"��G��6����������g��date E�g�� format-string E�g��str-port   E�g��fmt-str   E��g��filenamef��srfi/srfi-19.scm         +   0    "   *  ! 7   E  � E ��g��nameg�� date->string�ChR�������h������]�0$�� C�1$�� C�2$�� C�3$�� C�4$�� C�5$�� C�6$�� C�7$�� C�8$�� C�9$�� C��6��������g��ch  ���g��filenamef��srfi/srfi-19.scm    |   ~  �  �   �  �  � ��g��nameg�� char->int�CR�����h�����]*"��l4545$��"��(45$��"���$�� �"��$��C 4455" "����{������g��upto  |�g��port  |�g��accum   r�g��nchars   r�g��ch  r�g��t   N�g��t  + K��g��filenamef��srfi/srfi-19.scm               $   +   +  >   C   R   Z   [  ^  + f  g   j   r  r  �  | ��g��nameg��integer-reader�CR�h���`���]L��6������X�������g��port  ��g��filenamef��srfi/srfi-19.scm    �  ���C�����h���v���]�O�C������n�������g��upto  ��g��filenamef��srfi/srfi-19.scm  �  ��g��nameg��make-integer-reader�CRi� ������h��� ��]*H"��45�$��C45$�� 645$��$K 44 55"J$��#4 >��"��G��"~ 6 "f�����������g��n  ��g��port  ��g�� padding-ok   ��g��port  ��g��accum  ��g��nchars  ��g��ch   ���g��filenamef��srfi/srfi-19.scm                   )   -   /  $ 1   3  4  >   A  H   I  % L  0 T  % U   X   b  h   i  �  �  �   �  $ �   �  �  �!  � ��g��nameg��integer-reader-exact�CR�������h���`���]L��6������X�������g��port  ��g��filenamef��srfi/srfi-19.scm    �  ���C�����h���y���]�O�C������q�������g��n  ��g��filenamef��srfi/srfi-19.scm  �  ��g��nameg��make-integer-exact-reader�CRi� ������h��9��]! HH4�545$��4�>��"��G��"���4Z5$��"�� 4z5$�� C4+5$��K"��/4-5$��K"��4�>��"��G��4�545$��4�>��"��G��"���4 5 < <K4�545$��4�>��"��G��"���J4 5 < <K4�545$��4�>��"��G��"���J4 5 <K4�545$��4�>��"��G��"���J4 5 <KJ$��JC JC�������1������g��port  �g��offset  �g�� positive?   �g��ch   �g��t  D ]�g��ch  � ��g��ch  � 6�g��ch  = ~�g��ch   �� g��filenamef��srfi/srfi-19.scm                 !   #  $ %  ! *   /  <   D  R   a   d   p  s   x   �  �   �   �   �  ( �  % �   �   � �  � � �   �   �   �   �  , �  ) �  # �   �   �   �   �   �  �              ,   )   #    $  ( -  % 1   3   7   =  @   J   K   O   Q  , S  ) X  # ]   l  ( u  % y   {                      ,   )   #      (   %           !�V   ��g��nameg�� zone-reader�CR�������h8������] 4L545$��4L5��"4�56��������������g��result  1�g��ch 1��g��filenamef��srfi/srfi-19.scm              "   &  ) !  1 ! �  1 ��g��nameg��read-char-string�Ci�����h@���3��]O��Q�4545$��C�6�����+������g��port  ;�g��indexer  ;�g��read-char-string  ;�g��str   ;�g��index  ! ;��g��filenamef��srfi/srfi-19.scm   #   #  #   #   $  ! #  ) %  0 % 2 & % 4 ' + 9 ' % ; % �  ; ��g��nameg�� locale-reader�CR�h���`���]�L�6������X�������g��port  ��g��filenamef��srfi/srfi-19.scm *  + �  ���C�����h���x���]�O�C������p�������g��indexer  ��g��filenamef��srfi/srfi-19.scm ) �  ��g��nameg��make-locale-reader�CRi�������h(������]4L�4�55$��L�C6��������������g��port  !��g��filenamef��srfi/srfi-19.scm .   /   /   /   /   1   2   3  ! 1 �  ! ���C������h���v���]�O�C������n�������g��char  ��g��filenamef��srfi/srfi-19.scm - �  ��g��nameg��make-char-id-reader�CR����h���k���]C����c�������g��ch  ��g��filenamef��srfi/srfi-19.scm M �   ��g��nameg�� char-fail�C�4i 54i 54i 54ii54ii54ii54ii5~�4i~5�ai�Ai�bi�h ���s���]&�� �C6�����k�������g��val  �g��object  ��g��filenamef��srfi/srfi-19.scm T  U �   ���C�Bi����h ���s���]&�� �C6�����k�������g��val  �g��object  ��g��filenamef��srfi/srfi-19.scm W  X �   ���C�di����h ���s���]&�� �C6�����k�������g��val  �g��object  ��g��filenamef��srfi/srfi-19.scm Y &  Z (�   ���C�e��������h ���s���]&�� �C6�����k�������g��val  �g��object  ��g��filenamef��srfi/srfi-19.scm \ #  ] %�   ���C�hi����h ���s���]&�� �C6�����k�������g��val  �g��object  ��g��filenamef��srfi/srfi-19.scm _  ` �   ���C�Hi����h ���s���]&�� �C6�����k�������g��val  �g��object  ��g��filenamef��srfi/srfi-19.scm a &  b (�   ���C�k��������h ���s���]&�� �C6�����k�������g��val  �g��object  ��g��filenamef��srfi/srfi-19.scm c #  d %�   ���C�mi����h ���s���]&�� �C6�����k�������g��val  �g��object  ��g��filenamef��srfi/srfi-19.scm e &  f (�   ���C�Mib����h ���s���]&�� �C6�����k�������g��val  �g��object  ��g��filenamef��srfi/srfi-19.scm g &  h (�   ���C�Si8����h ���s���]&�� �C6������k�������g��val  �g��object  ��g��filenamef��srfi/srfi-19.scm j &  k (�   ���C�y�| ����h(������] 4�5&�� C6�����������g��val  $�g��object  $�g��val  $��g��filenamef��srfi/srfi-19.scm m  n $ n �  $ ���C�Yi ��h ���s���]&�� �C6�����k�������g��val  �g��object  ��g��filenamef��srfi/srfi-19.scm o &  p (�   ���C�z�hH������] 4�Z5$��C4�z5$��C4�+5$��C�-6���������g��c  F�g��t F�g��t  F�g��t 3 F��g��filenamef��srfi/srfi-19.scm q   r  r   s   r  + t  3 r  F u �  F ���Ci4�h ���s���]&�� �C6�����k�������g��val  �g��object  ��g��filenamef��srfi/srfi-19.scm v   w �   ���C���Ri�������hP������] 4�545$�� L645$��C4�>��"��G����"������������g��port  K�g��skipper  K�g��ch  K��g��filenamef��srfi/srfi-19.scm z   {  {  |  |   }   } $ } ! ~  + ~ .   K  &�  K ��g��nameg�� skip-until�Cid� ���hX����]FO�Q�$�7454~5$��$�� 64545  $��      4 >��"��G��4 5 4  5$��4>��"��G��"�� $��4  �>��"��G��"���  � 664 54 5  $��"�� 45 $��4>��"��G��"��� �6C����������g��date  T�g��index  T�g�� format-string   T�g��str-len   T�g��port   T�g��template-string   T�g�� skip-until  T�g�� current-char  $ R�g�� format-char  Q ��g�� format-info \ ��g��skipper s ��g��reader s ��g��actor s ��g��val � ��g�� port-char  � R�g��t  #��g��filenamef��srfi/srfi-19.scm y          $   '   3   6   9   =  A   C  ! G   H  $ O  > Q  $ Q   T  $ \   d   g  ' k  ' p  ' s   z   �  % �   �  �   �  �  , �  1 �  �  �  * �  - �   �  " �  ' �   �   �              '   (   ,   .  # 5   H  ! R  �6  T ��g��nameg��priv:string->date�CRBb% 4Ji;<=>?@A���h���B��] � 4 454�5>��"��G��&��  "�� 45$��"��v44 55&��  "��4 >��"��G��44 55&��  "��4 >��"��G��"��  �6&�� "�� 45$��&�� "�� 45$��&��  "�� 45$��&��  "�� 45$��&��  "�� 45$��l&��  "�� 45$��I&��  "�� 45$��&&��  "�� 45$��C""""""""���:������g�� input-string  �g��template-string  �g��newdate   �g��val  g ��g��val  � ���g��filenamef��srfi/srfi-19.scm              !   .   9  U   Z  ! ]  " g  ! g  �  ! �  " �  ! �  �  �  �   �  �   �   �          #  ?   B  ^   a  }                 �(   ��g��nameg�� string->date�CiRC� ������g��m  4�g��rtd �g��rtd g g�g�� char-fail �����<�����G�g��ireader4 �����=�����G�g��ireader2 �����=�����G�g�� eireader2 �����=�����G�g��locale-reader-abbr-weekday �����=�����G�g��locale-reader-long-weekday �����=�����G�g��locale-reader-abbr-month �����=�����G�g��locale-reader-long-month �����=�����G�� g��filenamef��srfi/srfi-19.scm  ) 5 � : �  B � & G � Q �  T � V �  Y � [ �  ^ � ` �  c � e �  h � j �  m � o � r � t � ! w � y �  | � ~ � " � � � � � � � � � �  � �  �  �  �   �  �  �  � ) � *  0_  1=  3 ! 4 5 6 : 6 N 7[ R 7j U  7n U 8] W : b ;c q = ~ >  @  Bd  D,  F|  G`  I  J  M  N  P  Q  R6  T  U  V^  X  Y  [%  \  ^K  _  a  b  d2 ) ������ 9 ������y F ������ Y ������c ^ ������ c ������ f ������  ������F  ������*  ������  ������˄  ������̐  ������̓  ������̗  ������P  ������_  ������5  ������G  ������ � ������  ������  ������ו  ������ & ������ے 8 ������& < ������ C ������ G ������ P ������f U ������, ^ ������i b ������ j ������ m ������ p ������ w ������ { ������m ~ ������3  ������  ������x  ������  ������  ������  ������9  ������B  ������K  ������  ������t  ������,  ������  ������  ������y  ������D  ������  ������  ������\  ������4  ������$  ������  ������  ������  ������  ������  �����  �����  ����� � �����  �����  �����  ����� Q  ����� D  ����� <  ����� " ����� $ ����� ( ����� * ����� , ����� . ����� 7 ����� 9 ����� ; ����� A �����z D �����: F ����� H �����D J �����V P �����* V ����� X ����� Z ����� \ �����\ ^ �����4 ` ����� b ����� d �����  �����  ����� h �����& l �����(  �����)Y  �����+  �����,  �����/  �����0  �����6  �����9  �����: ) �����<J - �����< B �����< B �����< C �����< D �����< E $�����< G $�����= I $�����= K $�����= B �����=2 P �����=? P �����=L Q �����=Y R �����> S �����> V �����?~ Y �����@6 \ �����@ ^ �����A a �����B^ c �����C e �����C g �����D j �����E` l �����F o �����G q �����G O �����G A �����N y �����S5  � �����S7 ���C6����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/srfi/srfi-28.go��������������������������������������������������������������������������0000644�����������������00000001370�15146341264�0010744 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]��4�hD������]� g��guile � g��define-module* � � g��srfi g��srfi-28 � g��filenameS f��srfi/srfi-28.scm g�� replacementsS g��format  � g��set-current-module � � g�� simple-format g��cond-expand-provide g��current-module �C�5�������h���v���]4    5�4�>��"��G�����h������-�1�3��@������~�������g��message �g��args ��g��filenamef��srfi/srfi-28.scm    �  ��g��nameg��format�C Ri4i5�6n�������g��m  (��g��filenamef��srfi/srfi-28.scm   �  � !  � ! & � ! �  � ���C6�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/srfi/srfi-9.go���������������������������������������������������������������������������0000644�����������������00000071676�15146341264�0010703 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0s������]�4���hG3������]� g��guile � g��define-module* � � g��srfi g��srfi-9 � g��filenameS f��srfi/srfi-9.scm g��importsS g��srfi-1  �  � g��system g��base g��ck � � � g��exportsS g��define-record-type � g��set-current-module � � g��cond-expand-provide g��current-module � g��make-syntax-transformer � � !g��define-inlinable "g��macro #g�� $sc-dispatch $#� %#� &g��any 'g��each-any (&' )(' *&) +g�� syntax-object ,g��define-tagged-inlinable -g��top .-� /g��ribcage 0g��dummy 1g��name 2g��formals 3g��body 40123� 5g��m-1e8ba8b5a-25b 65-� 76...� 8f��l-1e8ba8b5a-260 9f��l-1e8ba8b5a-261 :f��l-1e8ba8b5a-262 ;f��l-1e8ba8b5a-263 <89:;� =/47<� >/� ?g��x @?� A6� Bf��l-1e8ba8b5a-25d CB� D/@AC� E.=>D� Fg��hygiene GF� H+,EG� Ig��syntax-violation JI� KI� Lf��-source expression failed to match any pattern Mg�� %%on-error N&&� Og��%%type Pg�� getter-type Qg��free-id Rg��quote Sg��m-1e8ba8b5a-274 TS-� UT� Vf��l-1e8ba8b5a-276 WV� X/@UW� Y.>X� Z+RYG� [QZ� \[&� ]&&\\� ^g��s _g��getter `g��err a0^_`� bT...� cf��l-1e8ba8b5a-279 df��l-1e8ba8b5a-27a ef��l-1e8ba8b5a-27b ff��l-1e8ba8b5a-27c gcdef� h/abg� i.h>X� j+MiG� k+OiG� lg��%%index mg�� getter-index ng��m-1e8ba8b5a-281 on-� po� qf��l-1e8ba8b5a-283 rq� s/@pr� t.>s� u+RtG� vQu� wv&� x&&ww� yo...� zf��l-1e8ba8b5a-286 {f��l-1e8ba8b5a-287 |f��l-1e8ba8b5a-288 }f��l-1e8ba8b5a-289 ~z{|}� /ay~� �.>s� �+MG� �+lG� �g��%%copier �g�� getter-copier �g��m-1e8ba8b5a-28e �-� �� �f��l-1e8ba8b5a-290 �� �/@� �.>� �+RG� �Q� �&� �&&� �...� �f��l-1e8ba8b5a-293 �f��l-1e8ba8b5a-294 �f��l-1e8ba8b5a-295 �f��l-1e8ba8b5a-296 �� �/a� �.>� �+MG� �+G� �g��_ �g��each �N� �) � �g�� identifier? �g�� datum->syntax �g�� symbol-append �g��% �g�� syntax->datum �g�� -procedure �g��generate-temporaries �&'� �g��begin �g�� proc-name �g��args �� �..� �f��l-1e8ba8b5a-2ba �f��l-1e8ba8b5a-2bb �� �/� �g��key �g��value �123� �.....� �f��l-1e8ba8b5a-2ad �f��l-1e8ba8b5a-2ae �f��l-1e8ba8b5a-2af �f��l-1e8ba8b5a-2b0 �f��l-1e8ba8b5a-2b1 �� �/� �g��make-procedure-name �� �.� �f��l-1e8ba8b5a-29d �� �/� �.� �f��l-1e8ba8b5a-29c �� �/@� �.>>>>�  �+G� �g��define �+G� �g�� define-syntax �+G� �g��lambda �+G� �+?G� �� �g�� syntax-case �+G� �+MG� �g��append �� �� �g��map �� �� �+G� �+`G� �� �+^G� �� �g��syntax �+G� �+G� �+RG� �g��a �+G� �g��... �+G� �� �+IG� �f��Wrong number of arguments �+G� �� �+G� �� �g��display �f��#< �g��record-type-name �g��record-type-descriptor �f��  �f��:  �g��write �g��record-type-fields �f��> �g��default-record-printer �g��throw �g��wrong-type-arg �f��Wrong type argument: ~S �g��throw-bad-struct �g��%% �g�� -set-fields �g��make-copier-id �g�� %%set-fields �& �& �' &�  g��every g��list g��for-each g��find g��free-identifier=? f��unknown getter  g�� struct-ref  g��t-1e8ba8b5a-32b   �  g��m-1e8ba8b5a-32c   -�  � f��l-1e8ba8b5a-32f � / � g��index _� f��l-1e8ba8b5a-329 f��l-1e8ba8b5a-32a � /� g��lookup � f��l-1e8ba8b5a-2fe � /� g�� copier-name g�� getter+exprs �  f��l-1e8ba8b5a-2f8 !f��l-1e8ba8b5a-2f9 " !� #/"� $g�� type-name %g�� getter-id &g��check? 'g��expr ($%&^_'� )......� *f��l-1e8ba8b5a-2ec +f��l-1e8ba8b5a-2ed ,f��l-1e8ba8b5a-2ee -f��l-1e8ba8b5a-2ef .f��l-1e8ba8b5a-2f0 /f��l-1e8ba8b5a-2f1 0*+,-./� 1/()0� 2f��l-1e8ba8b5a-2dc 32� 4/@3� 5.>>#1>4�  6+ 5G� 7g��filter 8g��length 9f��duplicate getter :g��iota ;g�� make-struct <g��t-1e8ba8b5a-31f =<� >g��m-1e8ba8b5a-320 ?>-� @?� Af��l-1e8ba8b5a-324 BA� C/=@B� D.>C#1>4� E+;DG� F+ DG� Gg��here Hg�� unsafe-expr IH� Jf��l-1e8ba8b5a-317 KJ� L/IK� M.>L#1>4� N+GMG� Og��if Pg��t-1e8ba8b5a-319 QP� Rg��m-1e8ba8b5a-31a SR-� TS� Uf��l-1e8ba8b5a-31d VU� W/QTV� X.>W>L#1>4�  Y+OXG� Zg��eq? [+ZXG� \g�� struct-vtable ]+\XG� ^+XG� _+RXG� `g��%define-record-type a&( b&a c&b d&c ed f&& g&f hg if�� invalid record definition syntax jg��boolean? kf��expected type name lf��invalid constructor spec mf��expected predicate name n&&&� of��invalid field spec pg��string-concatenate qg�� make-list rf��pr sf��pw tg��memq uf��!unknown field in constructor spec vg��assq-ref w&&'� xg��t-1e8ba8b5a-38d yg��t-1e8ba8b5a-38c zg��t-1e8ba8b5a-38b {xyz� |g��m-1e8ba8b5a-38e }|-� ~}}}� f��l-1e8ba8b5a-392 f��l-1e8ba8b5a-393 f��l-1e8ba8b5a-394 � /{~� g�� ctor-args � f��l-1e8ba8b5a-37a � /� g��ctor g��field � f��l-1e8ba8b5a-376 f��l-1e8ba8b5a-377 � /� g��form g��constructor-spec g�� field-names $� ....� f��l-1e8ba8b5a-36b f��l-1e8ba8b5a-36c f��l-1e8ba8b5a-36d f��l-1e8ba8b5a-36e � /� g�� record-layout g��functional-setters g��setters g��copier g��getters g�� constructor g��getter-identifiers g��field-identifiers � ........� f��l-1e8ba8b5a-343 f��l-1e8ba8b5a-341 f��l-1e8ba8b5a-33f f��l-1e8ba8b5a-33d f��l-1e8ba8b5a-33b f��l-1e8ba8b5a-339 f��l-1e8ba8b5a-337 f��l-1e8ba8b5a-335 � /� f��l-1e8ba8b5a-334 � /@� .>>>>>�  +!G� +;G� + G� g�� copier-id � f��l-1e8ba8b5a-476 � /� g�� ctor-name � f��l-1e8ba8b5a-46e � /� � f��l-1e8ba8b5a-46c � /� g��layout � f��l-1e8ba8b5a-46a � /� g�� immutable? � f��l-1e8ba8b5a-468 � /� g�� field-count � f��l-1e8ba8b5a-466 � /� g�� getter-ids � f��l-1e8ba8b5a-463 � /� g�� field-ids � f��l-1e8ba8b5a-460 � /� g��predicate-name g�� field-spec $� f��l-1e8ba8b5a-453 f��l-1e8ba8b5a-454 f��l-1e8ba8b5a-455 f��l-1e8ba8b5a-456 f��l-1e8ba8b5a-457 f��l-1e8ba8b5a-458 � /)� .>>>>>>>>>>>� +GG� g��make-struct-layout &&&&&&&� g��t-1e8ba8b5a-3a5 g��t-1e8ba8b5a-3a6 g��t-1e8ba8b5a-3a7 g��t-1e8ba8b5a-3a8 g��t-1e8ba8b5a-3a9 g��t-1e8ba8b5a-3aa g��t-1e8ba8b5a-3ab � g��m-1e8ba8b5a-3ac -� � f��l-1e8ba8b5a-3b0 f��l-1e8ba8b5a-3b1 f��l-1e8ba8b5a-3b2 f��l-1e8ba8b5a-3b3 f��l-1e8ba8b5a-3b4 f��l-1e8ba8b5a-3b5 f��l-1e8ba8b5a-3b6 � /� �f��l-1e8ba8b5a-3a3 f��l-1e8ba8b5a-3a4 �� /� $� ...� f��l-1e8ba8b5a-39e f��l-1e8ba8b5a-39f f��l-1e8ba8b5a-3a0  �  / �  .>>>>> �   +, G�  +O G� +l G� + G� +^ G� � +O G� +Z G� +\ G� � +  G� + G� +R G� g��define-syntax-rule g��t-1e8ba8b5a-3c4 g��t-1e8ba8b5a-3c6 g��t-1e8ba8b5a-3c5 � g��m-1e8ba8b5a-3c7 -�  � !f��l-1e8ba8b5a-3cb "f��l-1e8ba8b5a-3cc #f��l-1e8ba8b5a-3cd $!"#� %/ $� &f��l-1e8ba8b5a-3c1 'f��l-1e8ba8b5a-3c2 (f��l-1e8ba8b5a-3c3 )&'(� */)� +.>%>>>*�  ,++G� -+&+G� .+^+G� /+_+G� 0+'+G� 1/0� 2++G� 3-.12� 4++G� 5g�� filter-map 6g��t-1e8ba8b5a-405 76� 8g��m-1e8ba8b5a-406 98-� :9� ;f��l-1e8ba8b5a-409 <;� =/7:<� >g��setter ?1_>� @f��l-1e8ba8b5a-3ff Af��l-1e8ba8b5a-400 Bf��l-1e8ba8b5a-401 C@AB� D/?C� E� Ff��l-1e8ba8b5a-3f6 Gf��l-1e8ba8b5a-3f7 HFG� I/EH� Jg�� field-specs KJ� Lf��l-1e8ba8b5a-3f2 Mf��l-1e8ba8b5a-3f3 NLM� O/KN� P.>=D>I>O�  Q+!PG� R+^PG� Sg��val T+SPG� URT� V+PG� WT� Xg��t-1e8ba8b5a-3e6 Yg��t-1e8ba8b5a-3e7 ZXY� [g��m-1e8ba8b5a-3e8 \[-� ]\\� ^f��l-1e8ba8b5a-3ec _f��l-1e8ba8b5a-3ed `^_� a/Z]`� bf��l-1e8ba8b5a-3e0 cf��l-1e8ba8b5a-3e1 df��l-1e8ba8b5a-3e2 ebcd� f/?e� gf��l-1e8ba8b5a-3d7 hf��l-1e8ba8b5a-3d8 igh� j/Ei� k$J� lf��l-1e8ba8b5a-3d3 mf��l-1e8ba8b5a-3d4 nlm� o/kn� p.>af>j>o�  q+!pG� r+^pG� s+SpG� trs� u+OpG� v+ZpG� w+\pG� xwr� yg�� struct-set! z+ypG� {s� |+pG� }+RpG� ~&&&&'&'� g��t-1e8ba8b5a-47e g��t-1e8ba8b5a-478 g��t-1e8ba8b5a-479 g��t-1e8ba8b5a-47a g��t-1e8ba8b5a-47d g��t-1e8ba8b5a-47c g��t-1e8ba8b5a-47b � g��m-1e8ba8b5a-47f -� � f��l-1e8ba8b5a-483 f��l-1e8ba8b5a-484 f��l-1e8ba8b5a-485 f��l-1e8ba8b5a-486 f��l-1e8ba8b5a-487 f��l-1e8ba8b5a-488 f��l-1e8ba8b5a-489 � /� .>>>>>>>>>>>>� +G� +G� g��let +G� g��rtd +G� g��make-struct/no-tail +G� g��record-type-vtable +G� +RG� +G� g��set-struct-vtable-name! +G� +yG� g��+ +G� + G� g��vtable-offset-user +G� � � +!G� g��obj +G� � g��and +G� g��struct? +G� � +ZG� +\G� � g��pred g��fields 01� g��m-1e8ba8b5a-4a3 -� ....� f��l-1e8ba8b5a-4a8 f��l-1e8ba8b5a-4a9 f��l-1e8ba8b5a-4aa f��l-1e8ba8b5a-4ab f��l-1e8ba8b5a-4ac � /� � f��l-1e8ba8b5a-4a5 � /@� .>� +`G� +G� +G�C�5����h<�����]4   5�4�>��"��G���4i4i5�>��"��G��4 !"%*H�������h���f���]C^�������g��dummy  �g��name  �g��formals   �g��body   ��   ���CKL���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-9.scm J �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��nameg��formalsg��...�g��bodyg��...���C5!R4 M"%N�������h���>���]C���6�������g��dummy  �g��err  ��   ���CKL���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-9.scm R �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��err���C5MROR4 P"%]jk��h���a���]��C�����Y�������g��dummy  �g��s  �g��getter   �g��err   ��   ���CKL��������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-9.scm V �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��sg��quoteg��getter�g��quoteg��err����C5PRlR4 m"%x��h���a���]��C�����Y�������g��dummy  �g��s  �g��getter   �g��err   ��   ���CKL��������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-9.scm \ �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��sg��quoteg��getter�g��quoteg��err����C5mRR4 "%��h���a���]��C�����Y�������g��dummy  �g��s  �g��getter   �g��err   ��   ���CKL��������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-9.scm b �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��sg��quoteg��getter�g��quoteg��err����C5R4 ,"%KL����h������]6�������g��key  �g��value  �g��name   �g��formals   �g��body   ��g��filenamef��srfi/srfi-9.scm  o �   ���C%�������h(���X���]�����C����P�������g��tmp-1e8ba8b5a-2c8  $�g��tmp-1e8ba8b5a-2c7  $��  $ ���C�������hx���C���]�LLL�L4 4  LL5  LL��L���  ����5���C;�������g�� proc-name  x�g��args  x��  x ���CKL� �����hX�����]44455545�45$�� �O�@  6�������������g��key  R�g��value  R�g��name   R�g��formals   R�g��body   R�g��tmp  # R�g��tmp  . R��g��filenamef��srfi/srfi-9.scm  i   j  j $ j '  k $  j   i   q ! # p �  R ���C��h@���b���] 4�5"�� �6$��4?$��@""�������Z�������g��x  9�g��tmp 9��g��filenamef��srfi/srfi-9.scm g �  9 ���C5,R� ��h�����]4>��"��G��444�55>��"��G��"��l(��"��w4>��"��G��4>��"��G��4>��"��G��4�>��"��G��"44�55 " 6�������������g��s  ��g��p  ��g��fields  8 ��g��off  8 ���g��filenamef��srfi/srfi-9.scm �  �   �  �   �   �  �  % � , �  8 �  > �  C �  G �  N �  W �  \ �  c �  l �  p �  w �  � �  � � � �  � � � �  � �  � �  � �  � � ) � �  � �  � � � � �"  � ��g��nameg��default-record-printer�CR��������h������]����6���������g��s  �g��who  ��g��filenamef��srfi/srfi-9.scm �  � �  � #  �  � �   ��g��nameg��throw-bad-struct�CR��h������]�44�556�������g�� type-name  ��g��filenamef��srfi/srfi-9.scm �  �  � � $  �  �   � �   ��g��nameg��make-copier-id�CR4 "%KL��������h������]6�������������g�� type-name  �g�� getter-id  �g��check?   �g��s   �g��getter   �g��expr   ��g��filenamef��srfi/srfi-9.scm � �  ���C����h���d���]L��6������\�������g�� getter-id  ��g��filenamef��srfi/srfi-9.scm �  � !�  ���CI����h(������] 4�O�L�5$��CLL�6�~�������g��id  '�g��t  '��g��filenamef��srfi/srfi-9.scm �   �   �  ! � & ' � �  ' ���C67��h���g���]L��6�����_�������g��g+e  ��g��filenamef��srfi/srfi-9.scm �  � 2 � �  ���C8I9������hP������]L��4�O�L545 $��C $��CLL�6������������g��getter  K�g��index  K�g�� default-expr  K�g��results   K�g��key  $ K��g��filenamef��srfi/srfi-9.scm � # � %  �   �  �  $ � < �  E � " K � �  K ���C:8%'EF�h���7���]L��C��/�������g��t-1e8ba8b5a-31f  ��   ���CKLNY[]^_������h�����]&44�55454L�O�>��"��G��4L�O�4 4 5554  5  $��4 �O� ?"�� 45 45$��/45 ��� ���CC����������g�� type-name  ��g�� getter-id  ��g��check?   ��g��s   ��g��getter   ��g��expr   ��g�� copier-name   ��g�� getter+exprs   ��g��tmp  Z ��g��tmp e ��g��tmp  � ��g��tmp � ��� g��filenamef��srfi/srfi-9.scm  �   � )  �   �   � ; �  M � # P � ) X � # Z �  Z �  � � � �  � � � �  � � �  � ���C�������h@���c���] 4�5"�� �6$��4?$�� �O�@""��[�������g��x  >�g��tmp >��g��filenamef��srfi/srfi-9.scm � �  > ���C5R4 `"%ehI%f�h���j���]�6b�������g��macro  �g��args  ��g��filenamef��srfi/srfi-9.scm  O �   ���CKLi����h8������] 45$�� 4?"�� 456������������g�� immutable?  3�g��form  3�g��rest   3�g��tmp  -��g��filenamef��srfi/srfi-9.scm / P  3 M �  3 ���CKLjI%f����h���j���]�6b�������g��macro  �g��args  ��g��filenamef��srfi/srfi-9.scm   /�   ���CKLk(�������h���j���]�6b�������g��macro  �g��args  ��g��filenamef��srfi/srfi-9.scm   /�   ���Cl��h���i���]�6���a�������g��ctor  �g��args  ��g��filenamef��srfi/srfi-9.scm  �  ���C�����h���>���]C����6�������g��ctor  �g��args  ��   ���C����h���j���]�6b�������g��macro  �g��args  ��g��filenamef��srfi/srfi-9.scm   /�   ���Cm%N�h���A���]C����9�������g��field  �g��getter  ��   ���Cn��h���U���]C����M�������g��field  �g��getter  �g��setter   ��   ���CIf��������h���j���]�6b�������g��macro  �g��args  ��g��filenamef��srfi/srfi-9.scm   /�   ���CKLo� ���hh������]4�5$��@4�5$��@4L�5$�� 4?"�� 4  L�5 L��6������������g��spec  c�g��tmp c�g��tmp  " c�g��tmp  ; [��g��filenamef��srfi/srfi-9.scm &  ] * * c  �  c ���C���h@����]44�55$�'45$��"��4445$�� 4?"�� 4 5 5$��4 5"��8445$�� 4 ?"�� 4 5 5"��($��4?$�� 4?"��""��"$��^45$��"��4445$�� 4?"�� 4 55$�� O�6CCCC�����������g�� immutable?  ;�g��form  ;�g�� type-name   ;�g��constructor-spec   ;�g��predicate-name   ;�g�� field-spec   ;�g��t   ]�g��tmp  2 R�g��tmp  j ��g��tmp  | ��g��t  � "�g��tmp  � �� g��filenamef��srfi/srfi-9.scm                  '  T  Z  a  q  � " ! �  �  � $  � $  �   %   &  3 & �  ; ���C%N�h���@���]�C���8�������g��name  �g��getter  ��   ���Cn���h���T���]�C���L�������g��name  �g��getter  �g��setter   ��   ���CKL�����h@���}���]4�5$��@4�5$��@�6�������u�������g�� field-spec  9�g��tmp 9�g��tmp  " 9��g��filenamef��srfi/srfi-9.scm � �  9 ���C%N����h���@���]C���8�������g��name  �g��getter  ��   ���Cn���h���T���]C���L�������g��name  �g��getter  �g��setter   ��   ���CKL�����h@���}���]4�5$��@4�5$��@�6�������u�������g�� field-spec  9�g��tmp 9�g��tmp  " 9��g��filenamef��srfi/srfi-9.scm � �  9 ���C8pqrs%(����h���>���]�C���6�������g��ctor  �g��args  ��   ���CKL���h���j���]6������b�������g��ctor  �g��field  ��g��filenamef��srfi/srfi-9.scm � �  ���CtI%f��������h���j���]�6b�������g��macro  �g��args  ��g��filenamef��srfi/srfi-9.scm  � +�   ���CKLu� ���hh������]4�54L�5$��"��?44L5$�� 4?"�� 4L5 L�>��"��G���C�������g��field  h�g��name h�g��t   b�g��tmp  , L��g��filenamef��srfi/srfi-9.scm �   � - � ! � '  � # ! � ' N � ( W � ' g � #�  h ���Cv�h���_���]L��6������W�������g��name  ��g��filenamef��srfi/srfi-9.scm � $ � &�  ���C%w�������h���q���]��C���i�������g��t-1e8ba8b5a-38d  �g��t-1e8ba8b5a-38c  �g��t-1e8ba8b5a-38b   ��   ���CKL� �������hP������]4LL�O�5LL4O�L5�45$��@6������������g��ctor  K�g��field  K�g�� ctor-args   K�g��tmp  ) K�g��tmp  4 K��g��filenamef��srfi/srfi-9.scm  �   �  �  ) � �  K ���C%  � ���hP������]������  �   ����C�������������g��t-1e8ba8b5a-3a5  J�g��t-1e8ba8b5a-3a6  J�g��t-1e8ba8b5a-3a7   J�g��t-1e8ba8b5a-3a8   J�g��t-1e8ba8b5a-3a9   J�g��t-1e8ba8b5a-3aa   J�g��t-1e8ba8b5a-3ab   J��  J ���CKL����h8������]L�L�L���45$��@6����������g��getter  5�g��index  5�g��tmp   5�g��tmp   5��g��filenamef��srfi/srfi-9.scm �  � �  5 ���C:n,34�������h���q���]��Ci�������g��t-1e8ba8b5a-3c4  �g��t-1e8ba8b5a-3c6  �g��t-1e8ba8b5a-3c5   ��   ���C5%N�����h���@���]C����8�������g��name  �g��getter  ��   ���CnQUVRW��h ���T���]L���C�����L�������g��name  �g��getter  �g��setter   ��   ���CKL�����h@������]4�5$��@4�5$�� L�O�@�6���������g�� field-spec  >�g��index  >�g��tmp  >�g��tmp  " >��g��filenamef��srfi/srfi-9.scm  �  > ���C%Nh���@���]C����8�������g��name  �g��getter  ��   ���Cn%Nqtuvxzr{|}� �����h8���T���]L���  L�����C����L�������g��t-1e8ba8b5a-3e6  4�g��t-1e8ba8b5a-3e7  4��  4 ���CKL�����h0������]L�L�45$�� O�@6�������g��name  0�g��getter  0�g��setter   0�g��tmp  0�g��tmp   0��g��filenamef��srfi/srfi-9.scm � �  0 ���CKL��������h@������]4�5$��@4�5$�� L�O�@�6�������g�� field-spec  @�g��index  @�g��tmp  @�g��tmp  " @��g��filenamef��srfi/srfi-9.scm � �  @ ���C~��������h������]�L��L������ L���  � � LL����45C��������g��t-1e8ba8b5a-47e  �g��t-1e8ba8b5a-478  �g��t-1e8ba8b5a-479   �g��t-1e8ba8b5a-47a   �g��t-1e8ba8b5a-47d   �g��t-1e8ba8b5a-47c   �g��t-1e8ba8b5a-47b   ��   ���C��������h����]V4545454�5 44 $��"�� 55 45 4  5  $�� 4  ?"�� 4 5  45 4  5"��4 5"��3$��)4?$��4 O�?"��""��"44 55 4 O�44555 �4 5$�� 4?"�� 4 5 $��4 O�44555"��4O�44555�4 5$�� O�@ 6�������g�� immutable?  �g��form  �g�� type-name   �g��constructor-spec   �g��predicate-name   �g�� field-spec   �g�� field-ids  �g�� getter-ids   �g�� field-count   �g�� immutable? ( �g��layout D �g�� field-names O �g��tmp Z z�g�� ctor-name z �g�� copier-id � �g��tmp  � ��g��tmp   =�g��tmp   :�g��tmp  ~ �g��tmp   ��g��filenamef��srfi/srfi-9.scm  �  ,   �   ,   .   ,  " /  ( ,  +   .   8   :  ! @  & B   D   D ,  G 1  O ,  } 4  � ,  � ;  � ; 4 � ;  � �  � � � �   �  �   �  C I  D   P   S   [   ]   b �  n   q   y   { �  ~ 5 �*   ���C� ���hP���t���]4�5"�� 4�5$��@�6$��4?$��@""l�������g��x  P�g��tmp P�g��tmp   1��g��filenamef��srfi/srfi-9.scm � �  P ���C5`R4 "%c����h(���w���]C�����o�������g��dummy  #�g��name  #�g��ctor   #�g��pred   #�g��fields   #��  # ���CKL��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-9.scm S �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��nameg��ctorg��predg��fieldsg��...���C5RC������������g��m  ,��g��filenamef��srfi/srfi-9.scm  = - B 2 B  : B & ? B  T  Z Z ` N � 0 �  � �  < ���C6�������������������������������������������������������������������2.0/ccache/srfi/srfi-41.go��������������������������������������������������������������������������0000644�����������������00000304156�15146341264�0010747 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0V�����]�4��������hE������]� g��guile � g��define-module* � � g��srfi g��srfi-41 � g��filenameS f��srfi/srfi-41.scm g��importsS g��srfi-1  �  � g��srfi-8 � � g��srfi-9 � � g��gnu � � g��srfi-26 � � g��ice-9 g��match � � � g��exportsS !g�� stream-null "g�� stream-cons #g��stream? $g�� stream-null? %g�� stream-pair? &g�� stream-car 'g�� stream-cdr (g�� stream-lambda )g�� define-stream *g�� list->stream +g�� port->stream ,g��stream -g�� stream->list .g�� stream-append /g�� stream-concat 0g��stream-constant 1g�� stream-drop 2g��stream-drop-while 3g�� stream-filter 4g�� stream-fold 5g��stream-for-each 6g�� stream-from 7g��stream-iterate 8g�� stream-length 9g�� stream-let :g�� stream-map ;g�� stream-match <g�� stream-of =g�� stream-range >g�� stream-ref ?g��stream-reverse @g�� stream-scan Ag�� stream-take Bg��stream-take-while Cg�� stream-unfold Dg��stream-unfolds Eg�� stream-zip F!"#$%&'()*+,-./0123456789:;<=>?@ABCDE�% Gg��set-current-module HG� IG� Jg��cond-expand-provide Kg��current-module L� Mg��make-syntax-transformer NM� OM� Pg��must Qg��macro Rg�� $sc-dispatch SR� TR� Ug��any Vg��each-any WUV XUW YUX ZUY [UZ \g�� syntax-object ]g��let ^g��top _^� `g��ribcage ag��dummy bg��pred cg��obj dg��func eg��msg fg��args gabcdef� hg��m-46961e513a-1 ih^� ji_____� kf��l-46961e513a-6 lf��l-46961e513a-7 mf��l-46961e513a-8 nf��l-46961e513a-9 of��l-46961e513a-a pf��l-46961e513a-b qklmnop� r`gjq� s`� tg��x ut� vi� wf��l-46961e513a-3 xw� y`uvx� z_rsy� {g��hygiene |{� }\]z|� ~g��item \~z|� �g��unless �\z|� �� �g��throw �\z|� �g��quote �\z|� �g��wrong-type-arg �\z|� �� �g��list �\z|� �� �� �g��syntax-violation �� �� �f��-source expression failed to match any pattern �g��must-not �g��m-46961e513a-14 �^� �_____� �f��l-46961e513a-19 �f��l-46961e513a-1a �f��l-46961e513a-1b �f��l-46961e513a-1c �f��l-46961e513a-1d �f��l-46961e513a-1e �� �`g� �� �f��l-46961e513a-16 �� �`u� �_s� �\]|� �\~|� �g��when �\|� �� �\|� �\|� �\|� �� �\|� �� �� �g�� must-every �g��objs �abdef� �g��m-46961e513a-27 �^� �_____� �f��l-46961e513a-2c �f��l-46961e513a-2d �f��l-46961e513a-2e �f��l-46961e513a-2f �f��l-46961e513a-30 �f��l-46961e513a-31 �� �`� �� �f��l-46961e513a-29 �� �`u� �_s� �\]|� �g��flunk �\|� �g��remove �\|� �\|� �g��null? �\|� �� �\|� �\|� �\|� �� �\|� �� �g�� first-value �UU� �g��receive �g��expr �a� �g��m-46961e513a-3a �^� �_� �f��l-46961e513a-3f �f��l-46961e513a-40 �� �`� �� �f��l-46961e513a-3c �� �`u� �_s� �\|� �g��first �\|� �g��_ �\|� �挤 �� �g�� second-value �g��m-46961e513a-44 �^� �_� �f��l-46961e513a-49 �f��l-46961e513a-4a �� �`� �� �f��l-46961e513a-46 �� �`u� �_s� �\|� �\|� �g��second �\|� �\|� � � �� �g�� third-value �g��m-46961e513a-4e �^� �_� f��l-46961e513a-53 f��l-46961e513a-54 � `� �� f��l-46961e513a-50 �  `u�  _s �  \ |�  \ |�  \ |� g��third \ |� \ |�      � g��define-syntax* UU V U g�� define-syntax g��name g��body af� g��m-46961e513a-57 ^� ___�  f��l-46961e513a-5c !f��l-46961e513a-5d "f��l-46961e513a-5e #f��l-46961e513a-5f $ !"#� %`$� &� 'f��l-46961e513a-59 ('� )`u&(� *_%s)� +\*|� ,g��lambda* -\,*|� .UUU� /g��syntax 0a/� 1__� 2f��l-46961e513a-66 3f��l-46961e513a-67 4f��l-46961e513a-68 5234� 6`015� 7_6s)� 8\7|� 9g��stream-promise :g��%make-stream-promise-procedure ;g��make-stream-promise <U� =g��lambda >g��m-46961e513a-70 ?>^� @g��t-46961e513a-6f A@� B?� Cf��l-46961e513a-75 DC� E`ABD� Ff��l-46961e513a-72 GF� H`uBG� Ig��shift Jg�� proc-name KJf� L__� Mf��l-1e8ba8b5a-2ba Nf��l-1e8ba8b5a-2bb OMN� P`KLO� Qg��key Rg��value Sg��formals TQRS� U_____� Vf��l-1e8ba8b5a-2ad Wf��l-1e8ba8b5a-2ae Xf��l-1e8ba8b5a-2af Yf��l-1e8ba8b5a-2b0 Zf��l-1e8ba8b5a-2b1 [VWXYZ� \`TU[� ]g��make-procedure-name ^]� __� `f��l-1e8ba8b5a-29d a`� b`^_a� c_� df��l-1e8ba8b5a-29c ed� f`uce� g?EsHIssssP\bf�  h{� i\=gh� jg��val k_EsH� l\jk|� ml� ng�� make-struct og��m-46961e513a-6d po^� qg��t-1e8ba8b5a-38d rg��t-1e8ba8b5a-38c sg��t-1e8ba8b5a-38b tqrs� ug��m-1e8ba8b5a-38e vu^� wvvv� xf��l-1e8ba8b5a-392 yf��l-1e8ba8b5a-393 zf��l-1e8ba8b5a-394 {xyz� |`tw{� }g�� ctor-args ~}� f��l-1e8ba8b5a-37a � `~c� g��ctor g��field � f��l-1e8ba8b5a-376 f��l-1e8ba8b5a-377 � `L� g��form g�� type-name g��constructor-spec g�� field-names � ____� f��l-1e8ba8b5a-36b f��l-1e8ba8b5a-36c f��l-1e8ba8b5a-36d f��l-1e8ba8b5a-36e � `� g�� record-layout g��functional-setters g��setters g��copier g��getters g�� constructor g��getter-identifiers g��field-identifiers � ________� f��l-1e8ba8b5a-343 f��l-1e8ba8b5a-341 f��l-1e8ba8b5a-33f f��l-1e8ba8b5a-33d f��l-1e8ba8b5a-33b f��l-1e8ba8b5a-339 f��l-1e8ba8b5a-337 f��l-1e8ba8b5a-335 � `� f��l-1e8ba8b5a-334 � `uc� pEsHIs|ssss� \nh� \9k|� \ h� l� im� V � � f��Wrong number of arguments g�� identifier? � � _sH� \:|� g��record-type-vtable � � g��pw g��default-record-printer � � j� g��set-struct-vtable-name! � � g��vtable-offset-user � � g��%stream-promise?-procedure g��stream-promise? g��m-46961e513a-7d ^� g��t-46961e513a-7c � � f��l-46961e513a-82 � `� f��l-46961e513a-7f � `u� sIssssP\bf�  \=h� g��t-1e8ba8b5a-47e g��t-1e8ba8b5a-478 g��t-1e8ba8b5a-479 g��t-1e8ba8b5a-47a g��t-1e8ba8b5a-47d g��t-1e8ba8b5a-47c g��t-1e8ba8b5a-47b � g��m-1e8ba8b5a-47f ^� � f��l-1e8ba8b5a-483 f��l-1e8ba8b5a-484 f��l-1e8ba8b5a-485 f��l-1e8ba8b5a-486 f��l-1e8ba8b5a-487 f��l-1e8ba8b5a-488 f��l-1e8ba8b5a-489 � `� g�� copier-id � f��l-1e8ba8b5a-476 � `c� g�� ctor-name � f��l-1e8ba8b5a-46e � `c� � f��l-1e8ba8b5a-46c � `c� g��layout � f��l-1e8ba8b5a-46a � `c� g�� immutable? �� f��l-1e8ba8b5a-468 � `�c� g�� field-count � f��l-1e8ba8b5a-466 � `c�  g�� getter-ids   �  f��l-1e8ba8b5a-463   �  ` c � g�� field-ids � f��l-1e8ba8b5a-460 � `c� g��predicate-name g�� field-spec � ______� f��l-1e8ba8b5a-453 f��l-1e8ba8b5a-454 f��l-1e8ba8b5a-455 f��l-1e8ba8b5a-456 f��l-1e8ba8b5a-457 f��l-1e8ba8b5a-458 � `� psIsssssssssss s�  \ch� ! � "g��and #\"h� $g��struct? %\$h� &% � 'g��eq? (\'h� )g�� struct-vtable *\)h� +* � ,_s� -\9,|� .(+-� /#&.� 0!/� 1_s� 2\1|� 3g��throw-bad-struct 43� 53� 6g��stream-promise-val 7g��%stream-promise-val-procedure 8g��free-id 9g�� %%on-error :g��m-46961e513a-89 ;:^� <;� =f��l-46961e513a-8b >=� ?`u<>� @;s?IssssP\bf�  A\9@h� B8A� CBU� Dg��%%type Eg��t-1e8ba8b5a-3a5 Fg��t-1e8ba8b5a-3a6 Gg��t-1e8ba8b5a-3a7 Hg��t-1e8ba8b5a-3a8 Ig��t-1e8ba8b5a-3a9 Jg��t-1e8ba8b5a-3aa Kg��t-1e8ba8b5a-3ab LEFGHIJK� Mg��m-1e8ba8b5a-3ac NM^� ONNNNNNN� Pf��l-1e8ba8b5a-3b0 Qf��l-1e8ba8b5a-3b1 Rf��l-1e8ba8b5a-3b2 Sf��l-1e8ba8b5a-3b3 Tf��l-1e8ba8b5a-3b4 Uf��l-1e8ba8b5a-3b5 Vf��l-1e8ba8b5a-3b6 WPQRSTUV� X`LOW� Yg��getter Zg��index [YZ� \f��l-1e8ba8b5a-3a3 ]f��l-1e8ba8b5a-3a4 ^\]� _`[L^� ` � a___� bf��l-1e8ba8b5a-39e cf��l-1e8ba8b5a-39f df��l-1e8ba8b5a-3a0 ebcd� f``ae� gps?IsXsss_sf� h\Dgh� i8h� jCiU� kg��ck lg��err mg��s nlm� o;;� pf��l-46961e513a-8e qf��l-46961e513a-8f rpq� s`nor� t;ss?IssssP\bf�  u\kth� v\th� w_ss?� x\9w|� yvx� zy� {g��%%index |\{gh� }8|� ~C}U� f��l-46961e513a-93 f��l-46961e513a-94 � `no� ;s?IssssP\bf�  \kh� \h� s?� \ |� � � g��%%copier \gh� 8� CU� f��l-46961e513a-98 f��l-46961e513a-99 � `no� ;s?IssssP\bf�  \kh� \h� g��%%stream-promise-set-fields _s?� \|� � � g��t-46961e513a-88 � f��l-46961e513a-9d � `<� ;s?IssssP\bf�  \=h� ps?IsXsss_sf� \mh� � g��if \h� \'h� \)h� � _s?� \9|� � g�� struct-ref \h� s?� \ |� � \3h� \h� \6|� � � � � _s?� \7|� g��each � U U U g�� %%set-fields g��check? amY� g��m-46961e513a-a4 ^� pppp� f��l-46961e513a-a9 f��l-46961e513a-aa f��l-46961e513a-ab f��l-46961e513a-ac f��l-46961e513a-ad � `� � f��l-46961e513a-a6 � `u� g��t-1e8ba8b5a-3c4 g��t-1e8ba8b5a-3c6 g��t-1e8ba8b5a-3c5 � g��m-1e8ba8b5a-3c7 ^� � f��l-1e8ba8b5a-3cb f��l-1e8ba8b5a-3cc f��l-1e8ba8b5a-3cd � `� f��l-1e8ba8b5a-3c1 f��l-1e8ba8b5a-3c2 f��l-1e8ba8b5a-3c3 � ``a� psIssss�  \h� _s� \9|� \6|� � g��map � � g��stream-promise-val-set! g��"%stream-promise-val-set!-procedure UU� g��m-46961e513a-b8 ^� g��t-46961e513a-b6 g��t-46961e513a-b7 � � f��l-46961e513a-bd f��l-46961e513a-be � `� � f��l-46961e513a-ba � `u� sIssssP\bf�  \=h� g��t-1e8ba8b5a-3e6 g��t-1e8ba8b5a-3e7 � �g��m-1e8ba8b5a-3e8 �^� � f��l-1e8ba8b5a-3ec f��l-1e8ba8b5a-3ed � `� g��setter Y�  f��l-1e8ba8b5a-3e0  f��l-1e8ba8b5a-3e1  f��l-1e8ba8b5a-3e2     �  `a � Z� f��l-1e8ba8b5a-3d7 f��l-1e8ba8b5a-3d8 � `L� g�� field-specs � f��l-1e8ba8b5a-3d3 f��l-1e8ba8b5a-3d4 � `L� psIs ss� \mh� \jh� � \h� \'h� \)h�  � !_s� "\9!|� # "� $g�� struct-set! %\$h� &s� '\ &|� (%'� )\3h� *\h� +\!|� ,*+� -),� .#(-� /.� 0_s� 1\0|� 2g�� stream-value 3g��%make-stream-value-procedure 4g��make-stream-value 5g��m-46961e513a-d9 65^� 7g��t-46961e513a-d7 8g��t-46961e513a-d8 978� :66� ;f��l-46961e513a-de <f��l-46961e513a-df =;<� >`9:=� ?6� @f��l-46961e513a-db A@� B`u?A� C6>sBIssssP\bf�  D\=Ch� Eg��tag F_>sB� G\EF|� Hg��proc I\HF|� JGI� Kg��m-46961e513a-d5 LK^� ML>sBIs|ssss� N\nMh� O\2F|� P\ Mh� QNOPGI� RDJQ� S_sB� T\3S|� Ug��pwpw VEH� Wg��%stream-value?-procedure Xg�� stream-value? Yg��m-46961e513a-e8 ZY^� [g��t-46961e513a-e7 \[� ]Z� ^f��l-46961e513a-ed _^� ``\]_� af��l-46961e513a-ea ba� c`u]b� dZ`scIssssP\bf�  e\=dh� fL`scIsssssssssss s� g\cfh� hg� i\"fh� j\$fh� kjg� l\'fh� m\)fh� nmg� o_`sc� p\2o|� qlnp� rikq� sehr� t_sc� u\Wt|� vg��stream-value-tag wg��%stream-value-tag-procedure xg��m-46961e513a-f4 yx^� zy� {f��l-46961e513a-f6 |{� }`uz|� ~ys}IssssP\bf�  \9~h� 8� U� Ls}IsXsss_sf� \Dh� 8� U� yy� f��l-46961e513a-f9 f��l-46961e513a-fa � `n� ys}IssssP\bf�  \kh� \h� _s}� \2|� � � \{h� 8� U� f��l-46961e513a-fe f��l-46961e513a-ff � `n� ys}IssssP\bf�  \kh� \h� s}� \ |� � � \h� 8� U� f��l-46961e513a-103 f��l-46961e513a-104 � `n� ys}IssssP\bf�  \kh� \h� g��%%stream-value-set-fields _s}� \|� � � g��t-46961e513a-f3 � f��l-46961e513a-108 � `z� ys}IssssP\bf�  \=h� Ls}IsXsss_sf� \mh� � \h� \'h� \)h� � _s}� \2|� � \h� s}� \ |� � \3h� \h� \v|� � � � � _s}� \w|� g��stream-value-proc g��%stream-value-proc-procedure g��m-46961e513a-10f ^� � f��l-46961e513a-111 � `u� sIssssP\bf�  \9h� 8� U� LsIsXsss_sf� \Dh� 8� U� � f��l-46961e513a-114 f��l-46961e513a-115 � `n� sIssssP\bf�  \kh� \h� _s� \2|� � � \{h� 8� U� f��l-46961e513a-119 f��l-46961e513a-11a � `n� sIssssP\bf�  \kh� \h� s� \ |� � � \h� 8� U� f��l-46961e513a-11e f��l-46961e513a-11f � `n� sIssssP\bf�  \kh� �\h� _s� \|� �� � g��t-46961e513a-10e � f��l-46961e513a-123 �  `�   sIssssP\bf�   \= h�  L sIsXsss_sf�  \m h�  � \ h� \' h� \) h�  � _ s� \2|� � \ h�  s� \ |�  � \3 h� \ h� \|� �  � �   � !_s� "\!|� #g��m-46961e513a-12a $#^� %$LLLL� &f��l-46961e513a-12f 'f��l-46961e513a-130 (f��l-46961e513a-131 )f��l-46961e513a-132 *f��l-46961e513a-133 +&'()*� ,`%+� -$� .f��l-46961e513a-12c /.� 0`u-/� 1L,s0Issss�  2\1h� 3_,s0� 4\23|� 5\v3|� 6\3|� 756� 8g��stream-value-tag-set! 9g�� %stream-value-tag-set!-procedure :g��m-46961e513a-13e ;:^� <g��t-46961e513a-13c =g��t-46961e513a-13d ><=� ?;;� @f��l-46961e513a-143 Af��l-46961e513a-144 B@A� C`>?B� D;� Ef��l-46961e513a-140 FE� G`uDF� H;CsGIssssP\bf�  I\=Hh� JLCsGIs ss� K\mJh� L\jJh� MKL� N\Jh� O\'Jh� P\)Jh� QPK� R_CsG� S\2R|� TOQS� U\$Jh� VCsG� W\ V|� XUKWL� Y\3Jh� Z\Jh� [\8R|� \Z[� ]YK\� ^NTX]� _IM^� `_sG� a\9`|� bg��stream-value-proc-set! cg��!%stream-value-proc-set!-procedure dg��m-46961e513a-14e ed^� fg��t-46961e513a-14c gg��t-46961e513a-14d hfg� iee� jf��l-46961e513a-153 kf��l-46961e513a-154 ljk� m`hil� ne� of��l-46961e513a-150 po� q`unp� remsqIssssP\bf�  s\=rh� tLmsqIs ss� u\mth� v\jth� wuv� x\th� y\'th� z\)th� {zu� |_msq� }\2||� ~y{}� \$th� msq� \ |� uv� \3th� \th� \b||� � u� x~� sw� _sq� \c|� g�� stream-lazy g��exp a� g��m-46961e513a-173 ^� _� f��l-46961e513a-178 f��l-46961e513a-179 � `� � f��l-46961e513a-175 � `u� _s� \;|� \4|� \|� g��lazy \|� � \=|� g��eager g�� stream-eager g�� stream-delay g��m-46961e513a-187 ^� _� f��l-46961e513a-18c f��l-46961e513a-18d � `� � f��l-46961e513a-189 � `u� _s� \|� \|� g�� stream-force g��null g�� %stream-null g�� stream-pare g��%make-stream-pare-procedure g��make-stream-pare g��m-46961e513a-1d9 ^� g��t-46961e513a-1d7 g��t-46961e513a-1d8 � � f��l-46961e513a-1de f��l-46961e513a-1df � `� � f��l-46961e513a-1db � `u� sIssssP\bf�  \=h� g��kar _s� \|� g��kdr \|� � g��m-46961e513a-1d5 ^� sIs|ssss� \nh� \|� \ h� � � _s� \|� � g��%stream-pare?-procedure g�� stream-pare? g��m-46961e513a-1e8 ^� g��t-46961e513a-1e7 � � f��l-46961e513a-1ed � `� f��l-46961e513a-1ea � `u� sIssssP\bf�  \=h� sIsssssssssss s� \ch� � \"h� \$h� � \'h� \)h� � _s� \|� � � � _s� \|� g�� stream-kar g��%stream-kar-procedure g��m-46961e513a-1f4 ^� � f��l-46961e513a-1f6 � �`u� s�IssssP\bf�  \9h� 8� U� s�IsXsss_sf� \Dh� 8� U�  �  f��l-46961e513a-1f9  f��l-46961e513a-1fa    �  `n  �  s�IssssP\bf�  \kh� \h� _ s�� \|� � � \{h� 8� U� f��l-46961e513a-1fe f��l-46961e513a-1ff � `n � s�IssssP\bf�  \kh� \h� s��  \ |� ! � "!� #\h� $8#� %$U� &f��l-46961e513a-203 'f��l-46961e513a-204 (&'� )`n (� *)s�IssssP\bf�  +\k*h� ,\*h� -g��%%stream-pare-set-fields ._)s�� /\-.|� 0,/� 10� 2g��t-46961e513a-1f3 32� 4f��l-46961e513a-208 54� 6`35� 76s�IssssP\bf�  8\=7h� 96s�IsXsss_sf� :\m9h� ;:� <\9h� =\'9h� >\)9h� ?>:� @_6s�� A\@|� B=?A� C\9h� D6s�� E\ D|� FC:E� G\39h� H\9h� I\@|� JHI� KG:J� L<BFK� M8;L� N_s�� O\N|� Pg�� stream-kdr Qg��%stream-kdr-procedure Rg��m-46961e513a-20f SR^� TS� Uf��l-46961e513a-211 VU� W`uTV� XSsWIssssP\bf�  Y\9Xh� Z8Y� [ZU� \sWIsXsss_sf� ]\D\h� ^8]� _[^U� `SS� af��l-46961e513a-214 bf��l-46961e513a-215 cab� d`n`c� eSdsWIssssP\bf�  f\keh� g\eh� h_dsW� i\h|� jgi� kj� l\{\h� m8l� n[mU� of��l-46961e513a-219 pf��l-46961e513a-21a qop� r`n`q� sSrsWIssssP\bf�  t\ksh� u\sh� vrsW� w\ v|� xuw� yx� z\\h� {8z� |[{U� }f��l-46961e513a-21e ~f��l-46961e513a-21f }~� `n`� SsWIssssP\bf�  \kh� \h� _sW� \-|� � � g��t-46961e513a-20e � f��l-46961e513a-223 � `T� SsWIssssP\bf�  \=h� sWIsXsss_sf� \mh� � \h� \'h� \)h� � _sW� \|� � \h� sW� \ |� � \3h� \h� \P|� � � � � _sW� \Q|� g��m-46961e513a-22a ^� � f��l-46961e513a-22f f��l-46961e513a-230 f��l-46961e513a-231 f��l-46961e513a-232 f��l-46961e513a-233 � `� � f��l-46961e513a-22c � `u� sIssss�  \h� _s� \|� \|� \P|� � g��strm ac� g��m-46961e513a-259 ^� __� f��l-46961e513a-25e f��l-46961e513a-25f f��l-46961e513a-260 � `� � f��l-46961e513a-25b � `u� _s� \|� \|� \|� \|� f�� non-stream f�� null stream g��body0 g��body1 aS� g��m-46961e513a-28d ^� ___� f��l-46961e513a-292 f��l-46961e513a-293 f��l-46961e513a-294 f��l-46961e513a-295 � `� � f��l-46961e513a-28f � `u� _s� \=|� \|� g��begin \|� g��on-eagerS   g��on-lazyS   � g��stream-promise-visit g��set-record-type-printer! g��display f��#<stream g�� write-char g��write f�� ...> W U g��define g��formal a� g��m-46961e513a-2cf ^� ____� f��l-46961e513a-2d4 f��l-46961e513a-2d5 f��l-46961e513a-2d6 f��l-46961e513a-2d7 f��l-46961e513a-2d8 � `� �� f��l-46961e513a-2d1 � `u�� _s� \|� \(|� W U  U  g��letrec  g��body2  aEj �  g��m-46961e513a-2e0  ^� _____� f��l-46961e513a-2e5 f��l-46961e513a-2e6 f��l-46961e513a-2e7 f��l-46961e513a-2e8 f��l-46961e513a-2e9 f��l-46961e513a-2ea � ` � � f��l-46961e513a-2e2 � `u� _s� \ |� \(|� g�� proper-list?  g��circular-list? !f��non-list argument "g��current-input-port #g�� input-port? $f��non-input-port argument %g�� read-char &g�� eof-object? 'U� (a� )g��m-46961e513a-359 *)^� +*� ,f��l-46961e513a-35e -,� .`(+-� /f��l-46961e513a-35b 0/� 1`u+0� 2_.s1� 3\!2|� 4g��y 5at4� 6*__� 7f��l-46961e513a-361 8f��l-46961e513a-362 9f��l-46961e513a-363 :789� ;`56:� <_;s1� =\"<|� >\,<|� ?g��% stream-fold-aux-procedure @g��stream-fold-aux AUUUU� Bg��syntax-parameterize Cg��m-46961e513a-36c DC^� Eg��t-46961e513a-368 Fg��t-46961e513a-369 Gg��t-46961e513a-36a Hg��t-46961e513a-36b IEFGH� JDDDD� Kf��l-46961e513a-371 Lf��l-46961e513a-372 Mf��l-46961e513a-373 Nf��l-46961e513a-374 OKLMN� P`IJO� QD� Rf��l-46961e513a-36e SR� T`uQS� Uf��l-bde397a-1eaf Vf��l-bde397a-1eb0 WUV� X`KLW� YS� Zf��l-bde397a-1ea6 [f��l-bde397a-1ea7 \f��l-bde397a-1ea8 ]Z[\� ^`Ya]� _g��prefix `]_� a__� bf��l-bde397a-1e9a cf��l-bde397a-1e98 dbc� e``ad� ff��l-bde397a-1e97 gf� h`ucg� iDPsTIssssX^eh�  j{� k\Bij� l_PsT� m\@l|� ng��identifier-syntax o\nij� p\?l|� qop� rmq� sr� t\=ij� u\Hl|� vg��base w\vl|� x\l|� yg��limit z\yl|� {uwxz� |g��do }\|l|� ~\jl|� \"l|� \&l|� x� u~� u� ~w� \'l|� x� xx� g��1- \l|� z� z� zz� � g��or \l|� g��zero? \l|� z� z� \$l|� x� � g��values \l|� ~xz� � }� t{� ks� � � _sT� \?|� f��non-stream argument g��integer? f��non-integer count g��exact? f�� inexact count f��negative count g��reverse! g��xcons f��!non-stream object in input stream g�� circular-list g�� stream-do U � WV   f��l-46961e513a-478 � `uc� g��var-step g��end � f��l-46961e513a-475 f��l-46961e513a-473 � `a� f��l-46961e513a-472 � `uc� _s� \|� \|� � g��result � f��l-46961e513a-47f � `c� _s� \|� f��bad step expression UV� g��step � f��l-46961e513a-49c f��l-46961e513a-49d � `L� g��var g��init g��test � f��l-46961e513a-48d f��l-46961e513a-48e f��l-46961e513a-48f f��l-46961e513a-490 f��l-46961e513a-491 f��l-46961e513a-492 � `� _s� \9|� g��loop \|� \|� \|� g��append � � f��non-integer argument f��inexact argument f��negative argument g�� procedure? f��non-procedural argument g��apply g��number? f��non-numeric starting number f��non-numeric step size g��? f��l-46961e513a-6c1 � `uc� g�� make-guarded g�� make-matcher � f��l-46961e513a-6be f��l-46961e513a-6bc � `a� f��l-46961e513a-6bb � `uc� _s� \|� �\$|� �� g��next � f��l-46961e513a-6d4 � `c� g��rest �  f��l-46961e513a-6ce  f��l-46961e513a-6cf    �  `L �  _s s� \ |� g��negate \ |� \$ |� � g��= \ |� \& |� \' |� � U  g��generate-temporaries '� U� g��guard g��fail �  f��l-46961e513a-6df !f��l-46961e513a-6e0 "f��l-46961e513a-6e1 # !"� $`a#� %t� &f��l-46961e513a-6d8 'f��l-46961e513a-6d9 (&'� )`%L(� *_$s)� +\*|� ,VV� -g��matcher .-� /f��l-46961e513a-6f5 0f��l-46961e513a-6f6 1/0� 2`.L1� 3� 4f��l-46961e513a-6f0 54� 6`3c5� 7g�� strm-expr 8g��pat 978� :f��l-46961e513a-6e7 ;f��l-46961e513a-6e8 <f��l-46961e513a-6e9 =:;<� >`9a=� ?_s2ss6>�  @\]?|� A\?|� B\P?|� C\#?|� D\?|� E\;?|� FDE� G\?|� HBCAFG� I\?|� Jg��=> K\J?|� Lg�� stream-of-aux Ma� Ng��m-46961e513a-701 ON^� PO__� Qf��l-46961e513a-706 Rf��l-46961e513a-707 Sf��l-46961e513a-708 TQRS� U`MPT� VO� Wf��l-46961e513a-703 XW� Y`uVX� Z_UsY� [\LZ|� \\!Z|� ]av� ^g��m-46961e513a-70d _^^� `___� af��l-46961e513a-712 bf��l-46961e513a-713 cf��l-46961e513a-714 dabc� e`]`d� f_� gf��l-46961e513a-70f hg� i`ufh� j_esi� k\"j|� lg��in m_si� n\lm|� o8n� pUoU� qpV rUq sUr tUs uav,� v______� wf��l-46961e513a-719 xf��l-46961e513a-71a yf��l-46961e513a-71b zf��l-46961e513a-71c {f��l-46961e513a-71d |f��l-46961e513a-71e }wxyz{|� ~`uv}� _~si� \9|� g��recur \|� \|� \|� \$|� � \]|� \&|� � � \L|� \'|� � � g��is \m|� 8� UU� V U U U av� f��l-46961e513a-727 f��l-46961e513a-728 f��l-46961e513a-729 f��l-46961e513a-72a f��l-46961e513a-72b f��l-46961e513a-72c � `v� _si� \]|� \L|� g��pred? av� _____� f��l-46961e513a-735 f��l-46961e513a-736 f��l-46961e513a-737 f��l-46961e513a-738 f��l-46961e513a-739 � `� _si� \|� \L|� f��non-numeric ending number g��< g��> f��beyond end of stream f��non-procedural mapper f��non-procedural pred? f��non-procedural generator g�� list->vector g��error � � f��no matching pattern g�� list-tabulate g�� vector-lengthC�5������h����]4    F5�4I�>��"��G���4Ji4Ki5�L>��"��G��4OPQT[}� h0������]����C}�������g��dummy  0�g��pred  0�g��obj   0�g��func   0�g��msg   0�g��args   0��  0 ���C����h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-41.scm . �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��predg��objg��funcg��msgg��argsg��...���C5PR4OQT[� ��h0������]����C}�������g��dummy  0�g��pred  0�g��obj   0�g��func   0�g��msg   0�g��args   0��  0 ���C����h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-41.scm 3 �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��predg��objg��funcg��msgg��argsg��...���C5R4OQT[� h8������]��� ��C����~�������g��dummy  4�g��pred  4�g��objs   4�g��func   4�g��msg   4�g��args   4��  4 ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-41.scm 8 �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��predg��objsg��funcg��msgg��argsg��...���C5R4OQT����h���?���]C��7�������g��dummy  �g��expr  ��   ���C��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-41.scm = �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��expr���C5R4OQT��h���?���]C��7�������g��dummy  �g��expr  ��   ���C��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-41.scm A �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��expr���C5R4OQT �������h���?���]C��7�������g��dummy  �g��expr  ��   ���C��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-41.scm E �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��expr���C5R4OQT+-��������h���c���]�C������[�������g��dummy  �g��name  �g��args   �g��body   ��   ���C.8���h���S���]�C����K�������g��dummy  �g��name  �g��syntax   ��  ���C������h@������]4�5$��@4�5$��@�6��������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��srfi/srfi-41.scm J �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��nameg��argsg��bodyg��...�g��nameg��syntax���C5R9�h������]��C������w�������g��val  ��g��filenamef��srfi/srfi-41.scm q �  ��g��nameg��%make-stream-promise-procedure�C:R4O;QT<��������h���7���]��C������/�������g��t-46961e513a-6f  ��  ���C;�h���S���]L�6����K�������g��a  ��g��filenamef��srfi/srfi-41.scm  q �  ���C����h���C���]�L�6;�������g��filenamef��srfi/srfi-41.scm  q �   ���C������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��|�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-41.scm q �  n ���C5;R9¨��4�9>��"��G��� Ȗ:i��9R9�����h���{���]�$���CC������s�������g��obj  ��g��filenamef��srfi/srfi-41.scm q �   ��g��nameg��%stream-promise?-procedure�CR4OQT<0����h���7���]��C������/�������g��t-46961e513a-7c  ��  ���C�h���S���]L�6����K�������g��a  ��g��filenamef��srfi/srfi-41.scm  q �  ���C����h���C���]�L�6;�������g��filenamef��srfi/srfi-41.scm  q �   ���C2������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��|�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-41.scm q �  n ���C5R956�h���|���]�&��� C�6t�������g��s  ��g��filenamef��srfi/srfi-41.scm q �   ��g��nameg��%stream-promise-val-procedure�C7R4O6QTjuz��������h���:���]C�����2�������g��err  �g��s  ��  ���C~�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C<����h���7���]��C������/�������g��t-46961e513a-88  ��  ���C6�h���S���]L�6����K�������g��a  ��g��filenamef��srfi/srfi-41.scm  q �  ���C����h���C���]�L�6;�������g��filenamef��srfi/srfi-41.scm  q �   ���C������h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-41.scm q �  � ���C56R4OQT��h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-41.scm q �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5R95�������h ������]�&��� C�6�������������g��s  �g��val  ��g��filenamef��srfi/srfi-41.scm q �   ��g��nameg��"%stream-promise-val-set!-procedure�CR4OQT/�����h���T���]��C����L�������g��t-46961e513a-b6  �g��t-46961e513a-b7  ��  ���C����h���S���]L�6����K�������g��a  ��g��filenamef��srfi/srfi-41.scm  q �  ���C����h���C���]�L�6;�������g��filenamef��srfi/srfi-41.scm  q �   ���C1������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��|�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-41.scm q �  n ���C5R2�������h������]��C�����������g��tag  �g��proc  ��g��filenamef��srfi/srfi-41.scm t �  ��g��nameg��%make-stream-value-procedure�C3R4O4QTR��������h���T���]��C����L�������g��t-46961e513a-d7  �g��t-46961e513a-d8  ��  ���C4����h���S���]L�6����K�������g��a  ��g��filenamef��srfi/srfi-41.scm  t �  ���C����h���C���]�L�6;�������g��filenamef��srfi/srfi-41.scm  t �   ���CT������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��|�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-41.scm t �  n ���C54RU2V��4�2>��"��G��� Ȗ3i��2R2�����h���y���]�$���CC������q�������g��obj  ��g��filenamef��srfi/srfi-41.scm t �   ��g��nameg��%stream-value?-procedure�CWR4OXQT<s������h���7���]��C������/�������g��t-46961e513a-e7  ��  ���CX�h���S���]L�6����K�������g��a  ��g��filenamef��srfi/srfi-41.scm  t �  ���C����h���C���]�L�6;�������g��filenamef��srfi/srfi-41.scm  t �   ���Cu������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��|�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-41.scm t �  n ���C5XR25v�h���z���]�&��� C�6r�������g��s  ��g��filenamef��srfi/srfi-41.scm t �   ��g��nameg��%stream-value-tag-procedure�CwR4OvQT��h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C<����h���7���]��C������/�������g��t-46961e513a-f3  ��  ���Cv�h���S���]L�6����K�������g��a  ��g��filenamef��srfi/srfi-41.scm  t �  ���C����h���C���]�L�6;�������g��filenamef��srfi/srfi-41.scm  t �   ���C������h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-41.scm t �  � ���C5vR25�����h���{���]�&��� C�6s�������g��s  ��g��filenamef��srfi/srfi-41.scm t �   ��g��nameg��%stream-value-proc-procedure�CR4OQT�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C< ����h���8���]��C������0�������g��t-46961e513a-10e  ��  ���C��������h���S���]L�6����K�������g��a  ��g��filenamef��srfi/srfi-41.scm  t �  ���C����h���C���]�L�6;�������g��filenamef��srfi/srfi-41.scm  t �   ���C"������h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-41.scm t �  � ���C5R4OQT247��h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-41.scm t �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5R258�������h ������]�&��� C�6�������������g��s  �g��val  ��g��filenamef��srfi/srfi-41.scm t �   ��g��nameg�� %stream-value-tag-set!-procedure�C9R4O8QT_�������h���V���]��C����N�������g��t-46961e513a-13c  �g��t-46961e513a-13d  ��  ���C8��h���S���]L�6����K�������g��a  ��g��filenamef��srfi/srfi-41.scm  t �  ���C����h���C���]�L�6;�������g��filenamef��srfi/srfi-41.scm  t �   ���Ca������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��|�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-41.scm t �  n ���C58R25b�h ������]�&��� C�6�������������g��s  �g��val  ��g��filenamef��srfi/srfi-41.scm t �   ��g��nameg��!%stream-value-proc-set!-procedure�CcR4ObQT������h���V���]��C����N�������g��t-46961e513a-14c  �g��t-46961e513a-14d  ��  ���Cb��h���S���]L�6����K�������g��a  ��g��filenamef��srfi/srfi-41.scm  t �  ���C����h���C���]�L�6;�������g��filenamef��srfi/srfi-41.scm  t �   ���C������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��|�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-41.scm t �  n ���C5bR4OQT�h���>���]���C�6�������g��dummy  �g��exp  ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-41.scm x �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��exp���C5R29���h������] ���C����������g��x  �g��val ��g��filenamef��srfi/srfi-41.scm {  | * |  | �   ��g��nameg�� stream-eager�CR4OQT��h���>���]��C�6�������g��dummy  �g��exp  ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-41.scm ~ �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��exp���C5R9562v8b� �������h����])�&��� "�� 4�5&�� "�� 45$��&�� C6$�Y4&�� "�� 455��&��� "�� 4�5&�� "�� 45&��"��&�� "�� 45&�� "�� 45&��  "��4 >��"��G��&�� "�� 45&�� "�� 45&��  "��4 >��"��G��&��  "��4 >��"��G�� �6C���������g��promise  �g��content  �g��key  8 �g��promise*   �g��content  � �g��s  � ��g��val  � '�g��s  A `�g��val  ` �� g��filenamef��srfi/srfi-41.scm �  �   �  ! � 8 �  F �  b �  c �  �  � � � �  � � ; � � � �  � � E � � 3 � �  * � G A � 4 ` �   �   � �   ��g��nameg�� stream-force�CRi#R,R4ii5!R9��h(������]�$���&�� 4�5CCC��������������g��obj  !��g��filenamef��srfi/srfi-41.scm �  �  �  �   �  � �  ! ��g��nameg�� stream-null?�C$R���h������]��C�����������g��kar  �g��kdr  ��g��filenamef��srfi/srfi-41.scm � �  ��g��nameg��%make-stream-pare-procedure�CR4OQT�h���V���]��C����N�������g��t-46961e513a-1d7  �g��t-46961e513a-1d8  ��  ���C��h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-41.scm  � �  ���C���h���D���]�L�6<�������g��filenamef��srfi/srfi-41.scm  � �   ���C�����h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��}�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-41.scm � �  n ���C5RU٨��4�>��"��G��� Ȗi��R����h���y���]�$���CC������q�������g��obj  ��g��filenamef��srfi/srfi-41.scm � �   ��g��nameg��%stream-pare?-procedure�CR4OQT<������h���8���]��C������0�������g��t-46961e513a-1e7  ��  ���C��������h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-41.scm  � �  ���C���h���D���]�L�6<�������g��filenamef��srfi/srfi-41.scm  � �   ���C�����h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��}�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-41.scm � �  n ���C5R5��������h���u���]�&��� C�6m�������g��s  ��g��filenamef��srfi/srfi-41.scm � �   ��g��nameg��%stream-kar-procedure�CR4OQT�������h���:���]C�����2�������g��err  �g��s  ��  ���C"�h���:���]C�����2�������g��err  �g��s  ��  ���C%+1�h���:���]C�����2�������g��err  �g��s  ��  ���C<M����h���8���]��C������0�������g��t-46961e513a-1f3  ��  ���C��������h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-41.scm  � �  ���C���h���D���]�L�6<�������g��filenamef��srfi/srfi-41.scm  � �   ���CO�����h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-41.scm � �  � ���C5R5P����h���u���]�&��� C�6m�������g��s  ��g��filenamef��srfi/srfi-41.scm � �   ��g��nameg��%stream-kdr-procedure�CQR4OPQT_fk�������h���:���]C�����2�������g��err  �g��s  ��  ���Cnty�h���:���]C�����2�������g��err  �g��s  ��  ���C|�h���:���]C�����2�������g��err  �g��s  ��  ���C<����h���8���]��C������0�������g��t-46961e513a-20e  ��  ���CP��������h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-41.scm  � �  ���C���h���D���]�L�6<�������g��filenamef��srfi/srfi-41.scm  � �   ���C�����h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��srfi/srfi-41.scm � �  � ���C5PR4O-QT�h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-41.scm � �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5-R9������h0������] �$��$�&��4�5$��CCCC��������g��obj  /�g��obj  +��g��filenamef��srfi/srfi-41.scm �  �  �  �   � +  � �  / ��g��nameg�� stream-pair?�C%R4O"QT.�����h ���P���]����C�����H�������g��dummy  �g��obj  �g��strm   ��   ���C�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-41.scm � �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��objg��strm���C5"R#&� �������h������] 4�5$��"��4����>��"��G��4�5"��"4���>��"��'G��"�� $��&��"��""��" 6���������g��strm  ��g��pare 6 ���g��filenamef��srfi/srfi-41.scm �  �   �   � !  �  0 �  6 �  = �  C �  E � ( H �  � �  � � �  � ��g��nameg�� stream-car�C&R#'� �����h������] 4�5$��"��4����>��"��G��4�5"��"4���>��"��'G��"�� $��&��"��""��" C������������g��strm  ��g��pare 6 ���g��filenamef��srfi/srfi-41.scm �  �   �   � !  �  0 �  6 �  = �  C �  E � ( H �  � � �  � ��g��nameg�� stream-cdr�C'R4O(QTY�������h���h���]��C�`�������g��dummy  �g��formals  �g��body0   �g��body1   ��   ���C�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-41.scm � �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��formalsg��body0g��body1g��...���C5(R9562v� ���h���@��-�/���0���3�#��#��H�&��� "�� 4�5KJ&��J "�� 4J5$��J&��J "�� 4J56 $��J&��J "�� 4J56C8������g��promise  ��g��on-eager  ��g��on-lazy   ��g��content  & ��g��key  ^ ���g��filenamef��srfi/srfi-41.scm � + �  G �  ^ �  n �  � � � �  � �  � � �  � g��on-eagerS g��on-lazyS ���g��nameg��stream-promise-visit�CR4i9i5������h���c���]�L�6������[�������g��t-46961e513a-2c2  ��g��filenamef��srfi/srfi-41.scm � )�  ���C���h���]���]?L�6������U�������g��_  ��g��filenamef��srfi/srfi-41.scm � ) � 5�  ���CP� ����h������]�&��>L64 L>��"��G��4�&��� "�� 4�5LO�  LO�>��"��G��L��&��� "�� 4� 56�������g��pare  ���g��filenamef��srfi/srfi-41.scm �  �   �   �  ' �  , � 2 Z �  g � " � � �  � ���C�h���f���]L�6������^�������g��_  ��g��filenamef��srfi/srfi-41.scm �   � ' � �  ���C�������h ���q���]�LL�O�L�O�6����i�������g��strm  ��g��filenamef��srfi/srfi-41.scm �   � �   ��g��nameg��loop�C����h0������] 4>��"��G��O�Q��6�����������g��strm  ,�g��port  ,�g��loop   ,��g��filenamef��srfi/srfi-41.scm �   �   �  �   � �  , ���C>��"��G��4O)QT�����h���y���]�C���q�������g��dummy  �g��name  �g��formal   �g��body0   �g��body1   ��   ���C��������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-41.scm � �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��nameg��formalg��body0g��body1g��...���C5)R4O9QT ����h ������]���C�������g��dummy  �g��tag  �g��name   �g��val   �g��body1   �g��body2   ��  ���C��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-41.scm � �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��tagg��nameg��val�g��...�g��body1g��body2g��...���C59R *!2!2�h���V���]�L�6�������N�������g��filenamef��srfi/srfi-41.scm �   �  � �  ���C9�����h���V���]�LL�6�������N�������g��filenamef��srfi/srfi-41.scm �   � ' � �  ���C� ���hX������]L(��CLO������LL�O����������6�������g��val  '�g��val 7 C�g��kar C V�g��kdr C V��g��filenamef��srfi/srfi-41.scm �   �   � �  X ���C9��h ���y���] L��O���C����q�������g��objs  �g��val  ��g��filenamef��srfi/srfi-41.scm � �   ��g��nameg��recur�C����h`������] 4�5$��"��4�5$��"��4����>��"��G��O�Q��6�����������g��objs  \�g��t �g��recur N X��g��filenamef��srfi/srfi-41.scm �  �  �   �  $ �  / �  1 � ! 4 �  N � �  \ ��g��nameg�� list->stream�C*R"#+$2%&!2������h���D���]�L�6<�������g��filenamef��srfi/srfi-41.scm � �   ���C9�������h���M���]�L�6���E�������g��filenamef��srfi/srfi-41.scm �  � �   ���C� ����hh������]4L�5�4�5$��C�O��� LO��� �6�����������g��c d�g��val ) 5�g��val C O�g��kar O b�g��kdr  O b��g��filenamef��srfi/srfi-41.scm �   � �  �  �   � �  d ���C9��������h ���h���]LL�O�����C����`�������g��val  ��g��filenamef��srfi/srfi-41.scm � �   ��g��nameg��recur�C�����h`������-��.�,�3��#��45��4�5$��"��4����>��"��G��O��Q�6�����������g��port ]�g��recur O [��g��filenamef��srfi/srfi-41.scm �  � (  �  / �  1 � ' 4 �  O � � ] ��g��nameg�� port->stream�C+R4O,QT'3�h���-���]C���%�������g��dummy  ��   ���CX=>�������h���K���]�C�C�������g��dummy  �g��x  �g��y   ��   ���C������h@������]4�5$��@4�5$��@�6��������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��srfi/srfi-41.scm � �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��xg��yg��...���C5,R$&'�h�����]$"��j$�� "��$��"��45$��D�$��4�455"��45$��"��""~������g��proc  ��g��base  ��g��strm   ��g��limit   ��g��val   p�g��strm   p�g��limit   p�g��t   ,��g��filenamef��srfi/srfi-41.scm �  �  �  �   �  # � % 0 �  8 �  > �  ? �  D � % L �  R �  ^ �  a �  p � �  � ��g��nameg��% stream-fold-aux-procedure�C?R4O@QTA�h������]��C�������g��t-46961e513a-368  �g��t-46961e513a-369  �g��t-46961e513a-36a   �g��t-46961e513a-36b   ��   ���C@�������h���T���]L�6����L�������g��a  ��g��filenamef��srfi/srfi-41.scm  � �  ���C���h���D���]�L�6<�������g��filenamef��srfi/srfi-41.scm  � �   ���C�����h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6��}�������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��srfi/srfi-41.scm � �  n ���C5@R-#-$&'�hh����)��� 3��6]*45$��"��4���>��"��G���$��4�5$��"��4����>��"��G��4 �5$��"��4 ����>��"��G��� $��"4 ����>��"��G��"���"���  "��n$�� "��$��"��45$��  "��H$��4455"��45$��"��"�" G6��������g��strm �g��n  f�g��strm  f�g��proc  � T�g��val  � E�g��strm  � E�g��limit  � E�g��t  � ��g��first  U d�g��_  U d�� g��filenamef��srfi/srfi-41.scm �   �  �   �  ( �  * � % - �  E �  F �  [ �  ] � % ` �  s �  � �  � � # � �  � �  � �  � � * � �  � �  F � 2 T �  X �  f � �  �  f ��g��nameg�� stream->list�C-R#.!$2&�h���V���]�4L�56���N�������g��filenamef��srfi/srfi-41.scm       �  ���C9'�h���h���]�L4L�5L6�������`�������g��filenamef��srfi/srfi-41.scm     (   :   "   �   ���C� �hx������]L(��CL�4�5$��L�L6�O����LL�O��� �6��������������g��strm  q�g��val 2 >�g��val P \�g��kar \ o�g��kdr  \ o��g��filenamef��srfi/srfi-41.scm �   �              ) "  " (  �  q ���C29����h(������] O�L��Q���C�������g��strms  (�g��proc �g��val  (��g��filenamef��srfi/srfi-41.scm � �  ( ��g��nameg��recur�C��hX������-��1��3�4�5(��"��4��>��"��G��O�Q��6�������������g��strms R�g��flunk  <�g��recur D N��g��filenamef��srfi/srfi-41.scm � �  % �  ' � + * �  D � � R ��g��nameg�� stream-append�C.R#/$!&#/'2&������h���V���]�4L�56���N�������g��filenamef��srfi/srfi-41.scm       �  ���C92'����h���V���]�4L�56���N�������g��filenamef��srfi/srfi-41.scm  "   /  "�  ���C9'�h���M���]�L�6E�������g��filenamef��srfi/srfi-41.scm  "   /�   ���C�����hX������]L4L�O������LO����������56�������������g��val  !�g��val / ;�g��kar ; N�g��kdr ; N��g��filenamef��srfi/srfi-41.scm     " R  �  R ���C��h�����]4L5$��C4L5�4�5$��"��4����>��"��G��4�5$�� L�4 L56    �O���  �LL�O����6����� ������g��strm  ��g��val l x�g��val � ��g��kar � ��g��kdr  � ���g��filenamef��srfi/srfi-41.scm                /   1  , 4  G   Q  T  ) \  " b  �  � ���C29�������h(������] O�L��Q���C�������g��strms  (�g��proc �g��val  (��g��filenamef��srfi/srfi-41.scm  �  ( ��g��nameg��recur�C��hH������] 4�5$��"��4����>��"��G��O�Q��6����������g��strms  E�g��recur 7 A��g��filenamef��srfi/srfi-41.scm          %    7  �  E ��g��nameg�� stream-concat�C/R!*��h ������)����3��C-��1��3�4�?6�������g��objs  ��g��filenamef��srfi/srfi-41.scm       � �  ��g��nameg��stream-constant�C0R4OQTT������h������]�C����������   ���C'��h���.���]�C���&�������g��result  ��   ���CV�h���.���]�C&�������g��result  ��   ���CT������h������]�L�C����������   ���C'��h���)���]�C���!�������g��e  ��   ���C����h@������]45$�� �O�@45$��@L�6�������g��v  @�g��s  @�g��tmp  @�g��tmp  & @��g��filenamef��srfi/srfi-41.scm   8   :  & @  �  @ ��g��nameg��var-step�C��������h0���@���]4LL5L��4L�5��C8�������g��result  0�g��step  0��  0 ���C� ����h�����]45$�� 4?"��H45$�� 4?"��)45$�� 4?"�� 454  L�O��5�4 5$�� �O�@6������g��var  ��g��init  ��g��step   ��g��test   ��g��result   ��g��expr   ��g��tmp  h�g��tmp  & e�g��tmp  B b�g��tmp  { ��g��tmp  � ��� g��filenamef��srfi/srfi-41.scm i '  { & �  � ���C������h(���c���] 4�5$�� �O�@�6�[�������g��x  '�g��tmp '��g��filenamef��srfi/srfi-41.scm  �  ' ���C5R1#$'� ����h0����]"4�5$��"��4����>��"��G��4�5$��"��4����>��"��G��� $��"4����>��"��G��"���4 5$��"��4 ���>��"��G��"��V$�� "��$��"��4 5$��  "��04 5$��"��"�" GC�������������g��n  )�g��strm  )�g��val  �  �g��strm  �  �g��limit  �  �g��t  � ��g��first   )�g��second   )�g��_   )�� g��filenamef��srfi/srfi-41.scm .  /   /   /  /  0 0  E 0  G 0  J 0  _ 1  k 1  m 1 % p 1  � 2  � 2  � 2 " � 2  � 3   3 �  ) ��g��nameg�� stream-drop�C1R2#2$&'�h8������]4L5��$��"�� 4L4L55�$��LCL�4L56�������g��t &��g��filenamef��srfi/srfi-41.scm 8   9  9   9 +  9 2 " 9 + # 9 & * 8  0 8  8 8 �  8 ���C9�����h ���x���] LL��O���C��p�������g��strm  �g��val  ��g��filenamef��srfi/srfi-41.scm 8 �   ��g��nameg��loop�C� ����hx������] 4�5$��"��4����>��"��G��45$��"��4���>��"��G��O��Q�6����������g��pred?  u�g��strm  u�g��loop  e q��g��filenamef��srfi/srfi-41.scm 5  6   6   6 ,  6  0 7  E 7  G 7 ( J 7  e 8 �  u ��g��nameg��stream-drop-while�C2R3#$!&2&�������h���V���]�4L�56���N�������g��filenamef��srfi/srfi-41.scm A  A  A �  ���C9'�h���V���]�L4L�56���N�������g��filenamef��srfi/srfi-41.scm A  A 1 A *�  ���C'� �hx������]4L5$��C4L�4L55$��MLO������ LLO������� ���6L4 L56�������g��val 0 <�g��val L X�g��kar X k�g��kdr X k��g��filenamef��srfi/srfi-41.scm >   ? ?   @  @   @ ?  & A p B  x B �  x ���C29�����h0������] O�L�L�Q���C������������g��strm  +�g��proc !�g��val ! +��g��filenamef��srfi/srfi-41.scm > �  + ��g��nameg��recur�C� ��hx������] 4�5$��"��4����>��"��G��45$��"��4���>��"��G��O��Q�6����������g��pred?  u�g��strm  u�g��recur  e q��g��filenamef��srfi/srfi-41.scm ;  <   <   < (  <  0 =  E =  G = $ J =  e > �  u ��g��nameg�� stream-filter�C3R4#$&'� ��h���`��]#4�5$��"��4����>��"��G��45$��"��4���>��"��G��"��n$�� "��$��"��45$��  "��H�$��4�4 55"��4 5$��"��"" GCX������g��proc  ��g��base  ��g��strm   ��g��val  ` ��g��strm  ` ��g��limit  ` ��g��t  o ��g��first  � ��g��_  � ��� g��filenamef��srfi/srfi-41.scm D  E   E   E %  E  0 F  E F  G F " J F  ` G  � G �  � ��g��nameg�� stream-fold�C4R5#$&'U��������hX��s��)���3�4�5$��"��4����>��"��G��45$��"��4���>��"��G��"��145$��C4�4 5>��"��G��4 5""-�1�3�4�5$��"��4����>��"��G��4 5(��"��4��>��"��G��"��94 5$��C4 �4 5>��"��G��4 5""���k������g��proc ��g��strm ��g��strm  g ��g��proc � U�g��strm � U�g��rest  � U�g��strms  � U�g��flunk  � �g��strms   M�� g��filenamef��srfi/srfi-41.scm J  L   L  ! L + $ L  7 M  L M  N M ( Q M  g N  h O r N  u P  x P � P  � N  � N  � J  � R  � R  � S  � S  � S - � S  � T  � T � T 1 � T   U   V ! U  $ W  ) W  6 W  ? U  M U �% � � � U  ��g��nameg��stream-for-each�C5R622��h���D���]�L�6<�������g��filenamef��srfi/srfi-41.scm ] �   ���C9�������h���V���]�LL�L6�����N�������g��filenamef��srfi/srfi-41.scm ]  ]  ] �  ���C����hX������]LO������LL�LO����������6��������������g��val  �g��val 0 <�g��kar < O�g��kdr < O��g��filenamef��srfi/srfi-41.scm \   ] �  Q ���C9���h ���z���] LL��O���C��r�������g��first  �g��val  ��g��filenamef��srfi/srfi-41.scm \ �   ��g��nameg��recur�C���h������-�.�,�3�#�� 4�5$��"��4����>��"��G��45$��"��4���>��"��G��O�Q��6�������g��first ��g��step ��g��recur  x ���g��filenamef��srfi/srfi-41.scm Y  Z  + Z  - Z # 0 Z  C [  X [  Z [ " ] [  x \ � � ��g��nameg�� stream-from�C6R722�������h���D���]�L�6<�������g��filenamef��srfi/srfi-41.scm b �   ���C9�������h���V���]�L4L�L56���N�������g��filenamef��srfi/srfi-41.scm b   b  b �  ���C����hX������]LO������L�LLO����������6��������������g��val  �g��val 0 <�g��kar < O�g��kdr < O��g��filenamef��srfi/srfi-41.scm a   b �  Q ���C9���h ���y���] LL��O���C��q�������g��base  �g��val  ��g��filenamef��srfi/srfi-41.scm a �   ��g��nameg��recur�C����hH������] 4�5$��"��4����>��"��G��O��Q�6�������g��proc  H�g��base  H�g��recur  8 D��g��filenamef��srfi/srfi-41.scm _  `   `   ` (  `  8 a �  H ��g��nameg��stream-iterate�C7R#8$'�������h���J��]!4�5$��"��4����>��"��G�� "��V$�� "��$��"��45$��  "��045$��"��"� " GC��B������g��strm  ��g��val 5 ��g��strm  5 ��g��limit  5 ��g��t  D [�g��first � ��g��second  � ��g��third  � ��g��_  � ��� g��filenamef��srfi/srfi-41.scm d  e   e   e $  e  5 f  � f  � f �  � ��g��nameg�� stream-length�C8R:#$!2&�h���h���]�4L4L�556������`�������g��filenamef��srfi/srfi-41.scm o  o   o   o   o �   ���C9'�������h���V���]�L4L�56���N�������g��filenamef��srfi/srfi-41.scm o  p  p �  ���C� ���h`������]4L5$��CLL�O������LLO������� ���6��������g��val " .�g��val > J�g��kar J ]�g��kdr J ]��g��filenamef��srfi/srfi-41.scm m   n n   o �  _ ���C29���h0������] O�L�L�Q���C������������g��strm  +�g��proc !�g��val ! +��g��filenamef��srfi/srfi-41.scm m �  + ��g��nameg��recur�CU$!2&�������h���h���]�4L4L�5?6����`�������g��filenamef��srfi/srfi-41.scm w  w   w %  w   w �   ���C9'����h���V���]�L4L�56�N�������g��filenamef��srfi/srfi-41.scm w  x  x �   ���C� ���hh������]4L5$��CLL�O������ LLO������� ���6��������������g��val $ 0�g��val @ L�g��kar L _�g��kdr L _��g��filenamef��srfi/srfi-41.scm u   v  v   w �  a ���C29���h0������] O�L�L�Q���C������������g��strms  +�g��proc !�g��val ! +��g��filenamef��srfi/srfi-41.scm u �  + ��g��nameg��recur�C� �h����)���v3�4�5$��"��4����>��"��G��45$��"��4���>��"��G��O��Q�6-�1�3�4�5$��"��4����>��"��G��4 5(��"��4��>��"��G�� O��Q�6���������g��proc |�g��strm |�g��recur  l x�g��proc � �g��strm � �g��rest  � �g��strms  � �g��flunk  � ��g��recur  � �� g��filenamef��srfi/srfi-41.scm i  k   k  ! k & $ k  7 l  L l  N l # Q l  l m  � i  � r  � r  � s  � s  � s ( � s  � t  � t � t , � t  � u � | � �   ��g��nameg�� stream-map�C:R4O;QT��������h������]�C����������   ���C��������h���X���]�6P�������g��rest  ��g��filenamef��srfi/srfi-41.scm  ~ �   ���C������h���,���]�C���$�������g��rest  ��   ���C������h���i���]�6a�������g��var  �g��rest  ��g��filenamef��srfi/srfi-41.scm   �   ���C����h(������] 4L�5����C���{�������g��var  %�g��rest  %�g��tmp  %��g��filenamef��srfi/srfi-41.scm     �  % ���C� �hp������]4�5$��@��4?$��@4�5"�� �6$��4?$��  L�O�@""�����������g��x  l�g��tmp l�g��tmp   l�g��tmp  9 l��g��filenamef��srfi/srfi-41.scm { �  l ��g��nameg�� make-matcher�CTTVTh���,���]�C���$�������g��expr  ��   ���C+��h���Q���]���C�������I�������g��guard  �g��expr  �g��fail   ��   ���C��������hH������]��45$��@45$��@6�������������g��x  B�g��fail  B�g��tmp  B�g��tmp   B�g��tmp  + B��g��filenamef��srfi/srfi-41.scm      �  B ��g��nameg�� make-guarded�CT,@AHIK��������h���z���]���C�������r�������g��tmp-46961e513a-6fb  �g��tmp-46961e513a-6fa  �g��tmp-46961e513a-6f9   ��   ���C���h(���A���]L��4L��5�C�9�������g��matcher  '�g��expr  '��  ' ���C��������hH������]4L�L54L�5�45$�� �LO�@6�������������g��fail  B�g��tmp  B�g��tmp  $ B��g��filenamef��srfi/srfi-41.scm   $  !   �  B ���C������h8������]4545$��L��O�@6���������g�� strm-expr  6�g��pat  6�g��expr   6�g��tmp  6�g��tmp   6��g��filenamef��srfi/srfi-41.scm     �  6 ���C������h8���}���]O�Q�4�5$�� O�@�6����u�������g��x  4�g�� make-matcher 4�g��tmp   4��g��filenamef��srfi/srfi-41.scm z �  4 ���C5;R4O<QTX[\��������h���Q���]C��I�������g��dummy  �g��expr  �g��rest   ��   ���C��������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��srfi/srfi-41.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��exprg��restg��...���C5<R4OLQT.k���h���Q���]�C����I�������g��dummy  �g��expr  �g��base   ��  ���Ct� ����h8������]��� ���C����������g��dummy  5�g��expr  5�g��base   5�g��var   5�g��stream   5�g��rest   5��  5 ���C���h ������]���C���}�������g��dummy  �g��expr  �g��base   �g��var   �g��exp   �g��rest   ��   ���CZ�������h���v���]�C�n�������g��dummy  �g��expr  �g��base   �g��pred?   �g��rest   ��   ���C� ��hh���x��]!4�5$��@4�5$��@4�5$��@4�5$�� @  �6�p������g��x  g�g��tmp g�g��tmp  " g�g��tmp  9 g�g��tmp  P g��g��filenamef��srfi/srfi-41.scm  �  g ��g�� macro-typeg�� syntax-rulesg��patternsg��exprg��base�g��exprg��baseg��varg��ing��stream�g��restg��...�g��exprg��baseg��varg��isg��exp�g��restg��...�g��exprg��baseg��pred?g��restg��...���C5LR=22�h���D���]�L�6<�������g��filenamef��srfi/srfi-41.scm  �   ���C9�������h���V���]�LL�L6�����N�������g��filenamef��srfi/srfi-41.scm   $  �  ���C!� �hh������]4LLL5$��OLO������LLL�O����������6C��������������g��val  +�g��val = I�g��kar I \�g��kdr I \��g��filenamef��srfi/srfi-41.scm          �  a ���C9�h(���z���] LLL�L�O���C������r�������g��first  "�g��val  "��g��filenamef��srfi/srfi-41.scm  �  " ��g��nameg��recur�C� ��h�����-�.�,�3�#��4�5$��"��4����>��"��G��45$��"��4���>��"��G��$��145$��"��4���>��"��G��"���$��"���$�� "��  $��"��  O�Q��6���������g��first ��g��past ��g��step  ��g��step  � ��g��lt?  � ��g��recur  � ���g��filenamef��srfi/srfi-41.scm     +   -  $ 0   C   X   Z  # ]   u   v   �   �  % �   �   �   �   �   �   �   �   �  � �  ��g��nameg�� stream-range�C=R#>1$&�h���l��] 4�5$��"��4����>��"��G��45$��"��4���>��"��G��45$��"��4 ���>��"��G�� $��"4 ���>��"��G��"���4 �54 5$��"4 ���>��"��G��"���6�������d������g��strm  ��g��n  ��g��res  � ���g��filenamef��srfi/srfi-41.scm          !    0   E   G   J   ]   r   t   w   �   �   �  $ �   �  �   �   �   �  + �   �  �  � ��g��nameg�� stream-ref�C>R#?2$'2&�������h���V���]�4L�56���N�������g��filenamef��srfi/srfi-41.scm     ,  �  ���C9�����h���D���]�L�C���<�������g��filenamef��srfi/srfi-41.scm  �   ���C� �����hh������]4L5$��LCL�4L54LO������LO������� ���56��������g��val * 6�g��val D P�g��kar P c�g��kdr P c��g��filenamef��srfi/srfi-41.scm              g  �  g ���C9�������h ������] L��O���C���������g��strm  �g��rev  �g��val   ��g��filenamef��srfi/srfi-41.scm  �   ��g��nameg��loop�C!�hH������] 4�5$��"��4����>��"��G��O�Q��6��������g��strm  G�g��loop 7 A��g��filenamef��srfi/srfi-41.scm          %    7  �  G ��g��nameg��stream-reverse�C?R@#$2��������h���D���]�L�6<�������g��filenamef��srfi/srfi-41.scm  �   ���C9!���h���D���]�C���<�������g��filenamef��srfi/srfi-41.scm  �   ���C��h���D���]�L�6<�������g��filenamef��srfi/srfi-41.scm  �   ���C&'����h ���q���]�L4L�L4L554L56�����i�������g��filenamef��srfi/srfi-41.scm     !  ,   !   !   �   ���C� ���h������]4L5$��FLO���������������6 LO������ LLLL�O����������6�����������g��val  )�g��val 2 >�g��kar > Q�g��kdr > Q�g��val c o�g��val � ��g��kar � ��g��kdr � ���g��filenamef��srfi/srfi-41.scm           Y  �  � ���C29���h0������] O�L�L�Q���C���������g��base  .�g��strm  .�g��proc  $�g��val  $ .��g��filenamef��srfi/srfi-41.scm  �  . ��g��nameg��recur�C� ������hx������] 4�5$��"��4����>��"��G��45$��"��4���>��"��G��O��Q�6��������g��proc  w�g��base  w�g��strm   w�g��recur  e q��g��filenamef��srfi/srfi-41.scm          %    0   E   G  " J   e  �  w ��g��nameg�� stream-scan�C@R#A$!2&����h���V���]�4L�56���N�������g��filenamef��srfi/srfi-41.scm       �  ���C9'�h���_���]�LL4L�56W�������g��filenamef��srfi/srfi-41.scm     .   5   '�   ���C� ��hx������]L ��$��"��4L5�$��CLO������LLL�O������� ���6������������g��t  �g��val 4 @�g��val R ^�g��kar ^ q�g��kdr ^ q��g��filenamef��srfi/srfi-41.scm           !   *  �  s ���C29���h0������] O�L��Q���C������������g��n  +�g��strm  +�g��proc  !�g��val  ! +��g��filenamef��srfi/srfi-41.scm  �  + ��g��nameg��recur�C� �h���3��] 45$��"��4���>��"��G��4�5$��"��4����>��"��G��4�5$��"��4 ����>��"��G��� $��"4 ����>��"��G��"��� O�Q��6�����+������g��n  ��g��strm  ��g��recur  � ���g��filenamef��srfi/srfi-41.scm          "    0   E   G  J   ]   r   t   w   �   �   �  % �   �  �  � ��g��nameg�� stream-take�CARB#$!&2&������h���V���]�4L�56���N�������g��filenamef��srfi/srfi-41.scm      �  ���C9'�h���V���]�L4L�56���N�������g��filenamef��srfi/srfi-41.scm    1  *�  ���C� ���hp������]4L5$��C4L�4L55$��MLO������ LLO������� ���6C�������g��val 0 <�g��val L X�g��kar X k�g��kdr X k��g��filenamef��srfi/srfi-41.scm                &  �  p ���C29�������h0������] O�L�L�Q���C������������g��strm  +�g��proc !�g��val ! +��g��filenamef��srfi/srfi-41.scm  �  + ��g��nameg��recur�C� ��hx������] 4�5$��"��4����>��"��G��45$��"��4���>��"��G��O��Q�6����������g��pred?  u�g��strm  u�g��recur  e q��g��filenamef��srfi/srfi-41.scm          ,    0   E   G  ( J   e  �  u ��g��nameg��stream-take-while�CBRC2�����h���V���]�4LL�56���N�������g��filenamef��srfi/srfi-41.scm       �  ���C9�����h���V���]�L4L�L56���N�������g��filenamef��srfi/srfi-41.scm     *  #�  ���C!� �hh������]4LL5$��QLL�O������LLLO����������6C��������������g��val  +�g��val = I�g��kar I \�g��kdr I \��g��filenamef��srfi/srfi-41.scm          �  a ���C29���h8������] O�L�LL�LQ���C��������������g��base  1�g��proc  '�g��val ' 1��g��filenamef��srfi/srfi-41.scm  �  1 ��g��nameg��recur�C� ��h���>��] 4�5$��"��4����>��"��G��45$��"��4���>��"��G��45$��"��4���>��"��G��O��Q�66������g��mapper  ��g��pred?  ��g�� generator   ��g��base   ��g��recur  � ���g��filenamef��srfi/srfi-41.scm          )    0   E   G  ( J   ]   r   t  , w   �  �  � ��g��nameg�� stream-unfold�CCR2�h���V���]�4L�56���N�������g��filenamef��srfi/srfi-41.scm       �  ���C9�����h���M���]�LL�6E�������g��filenamef��srfi/srfi-41.scm     (�   ���C�����hh������] 4LL>�� G�O����L�O����6��������������g��next a�g��items a�g��val  $ 0�g��val  @ L�g��kar  L _�g��kdr  L _��g��filenamef��srfi/srfi-41.scm           �  a ���C29����h0������] O�L��LQ���C������������g��seed  +�g��proc !�g��val ! +��g��filenamef��srfi/srfi-41.scm  �  + ��g��nameg��generator-stream�C&!2'�h���V���]�L4L5L�6�N�������g��filenamef��srfi/srfi-41.scm     .   �   ���C9.*'�����h���V���]�L4L5L�6�N�������g��filenamef��srfi/srfi-41.scm     .   �   ���C��������h���D���]�L�6<�������g��filenamef��srfi/srfi-41.scm  �   ���C2'�������h���V���]�L4L5L�6�N�������g��filenamef��srfi/srfi-41.scm     .   �   ���C9����h ���_���]LLL�O�����C��W�������g��val  ��g��filenamef��srfi/srfi-41.scm     �   ���C���h���0��] H�4L5LK�J�(��CJ�&��LLL�O���C"��=J�$��)4J�5 LLL�O���64   J�56�J�$��_J�(��TJ� O���L�LLO����6"]"Y(������g��head  ��g��val 3 =�g��val c o�g��w � ��g��val  � ��g��val  � ��g��kar  � ��g��kdr  � ���g��filenamef��srfi/srfi-41.scm            %   D   K  & U   q   r   �  �  � ���C29����h0������] O�L��Q���C������������g��genstrm  +�g��index  +�g��proc  !�g��val  ! +��g��filenamef��srfi/srfi-41.scm  �  + ��g��nameg��make-result-stream�CD&���h���c���]LL��6������[�������g��t-46961e513a-9f4  ��g��filenamef��srfi/srfi-41.scm  !�  ���C� �hx���A��]O�O��Q�Q�4�5$��"��4����>��"��G��4544 4 55 O�5E�������9������g��gen  q�g��seed  q�g��generator-stream   q�g��make-result-stream   q�g��genstrm  S q��g��filenamef��srfi/srfi-41.scm    5   7  ' :   M   S   V   Y  ! \  0 d  ! o   q  �  q ��g��nameg��stream-unfolds�CDR#EU$!2&�h���V���]�4L�56�N�������g��filenamef��srfi/srfi-41.scm       �   ���C9'������h���V���]�L4L�56�N�������g��filenamef��srfi/srfi-41.scm    5   .�   ���C� ���h`������]4L5$��CLO������ LL�O������� ���6��������g��val " .�g��val > J�g��kar J ]�g��kdr J ]��g��filenamef��srfi/srfi-41.scm          �  _ ���C29���h(������] O�L��Q���C�������g��strms  (�g��proc �g��val  (��g��filenamef��srfi/srfi-41.scm  �  ( ��g��nameg��recur�C��h`������-�1�3��45(��"��4��>��"��G��O�Q�6��������������g��strm Y�g��rest Y�g��strms   Y�g��flunk   C�g��recur  K U��g��filenamef��srfi/srfi-41.scm           ,   .  * 1   K  � Y ��g��nameg�� stream-zip�CERC���������g��m  ,�g��rtd d �g��rtd d �g��rtd A B��g��filenamef��srfi/srfi-41.scm   - * 2 *  : * & ? * q  t 8_ { = � = � = �  = � # = �  = � = �  = � >~ � ?2 � Q � U � V � ZT � ZU � fr � jk � nb � t � yw �   ������  ������ . ������- 5 ������ ; ������[ D ������^ I ������| Y ������6 _ ������] d ������ h ������  ������  ������  ������  ������n  ������  ������  ������  ������{  �1 ������} ���C6�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/system/base/language.go������������������������������������������������������������������0000644�����������������00000013644�15146341264�0012637 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�l�4��h$������]� g��guile � g��define-module* � � g��system g��base g��language � g��filenameS f��system/base/language.scm g��importsS g��syntax  � � � g��exportsS g��define-language g�� language? g��lookup-language g�� make-language g�� language-name g��language-title g��language-reader g��language-printer g��language-parser g��language-compilers g��language-decompilers g��language-evaluator g��language-joiner g��language-for-humans? g��!language-make-default-environment !g��lookup-compilation-order "g��lookup-decompilation-order #g��invalidate-compilation-cache! $g��default-environment %g��*current-language* & !"#$%� 'g�� re-exportsS (g��current-language )(� *g��set-current-module +*� ,*� -g��make-record-type .f�� <language> /g��name 0g��title 1g��reader 2g��printer 3g��parser 4g�� compilers 5g�� decompilers 6g�� evaluator 7g��joiner 8g�� for-humans? 9g��make-default-environment :/0123456789�  ;g�� <language> <g��make-fresh-user-module =g��record-constructor >g��%compute-initargs ?g��record-predicate @g��make-procedure-with-setter Ag��record-accessor Bg��record-modifier Cg��make-syntax-transformer DC� EC� Fg��macro Gg�� $sc-dispatch HG� IG� Jg��_ Kg��any LJK Mg�� syntax->datum NM� OM� Pg�� datum->syntax QP� RP� Sg��begin T#� Ug��define Vg��nameS Wg��quote Xg��syntax-violation YX� ZX� [f��-source expression failed to match any pattern \g��resolve-module ]g��spec ^]� _g�� module-bound? `g�� module-ref ag��error bf��no such language cg��*compilation-cache* dg��*decompilation-cache* eg��reverse! fg��memq gg��or-map hg��compute-translation-order ig�� assoc-ref jg��and=> kg��parameter-fluidC�5�������h �� ��]4    &')5 �4,�>��"��G���4-i.:5;R/01234�5�6789<i� 4=i;i5�>�h���.���-��1��3�L4�L�5@��&�������g��args ��  ���C�O��R4?i;i5R4@i4Ai;i/54Bi;i/55R4@i4Ai;i054Bi;i055R4@i4Ai;i154Bi;i155R4@i4Ai;i254Bi;i255R4@i4Ai;i354Bi;i355R4@i4Ai;i454Bi;i455R4@i4Ai;i554Bi;i555R4@i4Ai;i654Bi;i655R4@i4Ai;i754Bi;i755R4@i4Ai;i854Bi;i855R4@i4Ai;i954Bi;i955 R4EFILORSTUVW�������h(���x���-�1�3������Cp�������g��name (�g��spec (��g��filenamef��system/base/language.scm 7 8 � ( ���C�����h���l���] 4�5L�4?6d�������g��args  �g��v ��g��filenamef��system/base/language.scm  7 �   ���CZ[�����h(���j���] 4�5$�� �O�@�6�b�������g��y  '�g��tmp '��g��filenamef��system/base/language.scm 7 �  ' ���C5R\^_`ab�������h0������] 4�54�5$���6�6���������g��name  .�g��m  .��g��filenamef��system/base/language.scm <  =  =   =  =   >   >  & ?  * @  . @ �  . ��g��nameg��lookup-language�CRcRdRdc������h������]�  C�������������g��filenamef��system/base/language.scm E  F   F   G   G �  ��g��nameg��invalidate-compilation-cache!�C#Refg���h���~���]L�L��L6������v�������g��pair  ��g��filenamef��system/base/language.scm T   U  U 2 U &  U �   ���C�����hX������]4�5$��3�L�&��64�5$��C�LO�4L�564�5�"��������������g��from  Q�g��seen  Q��g��filenamef��system/base/language.scm N   P O   R   S  ( O  8 V  @ T A Q Q Q �  Q ��g��nameg��lp�Ch��h8������] 45$��O�Q��6�456���������g��from  6�g��to  6�g��language-translators   6�g��lp   '��g��filenamef��system/base/language.scm I  K J   N  % N  ' N  , L $ 6 L �  6 ��g��nameg��compute-translation-order�ChRich����h8�����]�45$��C4�5 C��������g��from  7�g��to  7�g��key   7�g��t   7�g��order  ( 7��g��filenamef��system/base/language.scm X  Y  Y  Z   Z   [  ( [  / ]  4 \ �  7 ��g��nameg��lookup-compilation-order�C!Ridjhe��������h@�����]�45$��C44�55 C��������g��from  >�g��to  >�g��key   >�g��t   >�g��order  / >��g��filenamef��system/base/language.scm `  a  a  b   b   d  ! e  / d  / d  6 g & ; g �  > ��g��nameg��lookup-decompilation-order�C"R ����h(�����]44�5$���"��4�556���������������g��lang  !��g��filenamef��system/base/language.scm j  l   m   m   m   l  ! l �  ! ��g��nameg��default-environmentg�� documentationf��DReturn the default compilation environment for source language LANG.�C$R4ki(i5%RC������������g��m  0�g��slots u ��g�� constructor u ���g��filenamef��system/base/language.scm   > * O 0 T 1  � *  <  B   B  C   C o E I X j ` j v  v �  ���C6���������������������������������������������������������������������������������������������2.0/ccache/system/base/message.go�������������������������������������������������������������������0000644�����������������00000071700�15146341264�0012475 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0s������]�4������h;������]� g��guile � g��define-module* � � g��system g��base g��message � g��filenameS f��system/base/message.scm g��importsS g��srfi g��srfi-1  � � g��srfi-9  � � g��ice-9 g��match � � � g��exportsS g��*current-warning-port* g��*current-warning-prefix* g��warning g�� warning-type? g��warning-type-name g��warning-type-description g��warning-type-printer !g��lookup-warning-type "g��%warning-types # !"�  $g��set-current-module %$� &$� 'g��format (f��~a:~a:~a )g�� assoc-ref *g��filename +f��<stdin> ,g��line -g��column .f��<unknown-location> /g��location-string 0g��parameter-fluid 1g��current-warning-port 2g�� make-fluid 3f��;;;  4g��<warning-type> 5g��%make-warning-type-procedure 6g��make-syntax-transformer 76� 86� 9g��make-warning-type :g��macro ;g�� $sc-dispatch <;� =;� >g��_ ?g��any @>???� Ag�� syntax-object Bg��lambda Cg��m-44b57084b9-69a Dg��top ECD� Fg��ribcage Gg��t-44b57084b9-697 Hg��t-44b57084b9-698 Ig��t-44b57084b9-699 JGHI� KEEE� Lf��l-44b57084b9-69f Mf��l-44b57084b9-6a0 Nf��l-44b57084b9-6a1 OLMN� PFJKO� QF� Rg��x SR� TE� Uf��l-44b57084b9-69c VU� WFSTV� Xg��shift Yg�� proc-name Zg��args [YZ� \D� ]\\� ^f��l-1e8ba8b5a-60 _f��l-1e8ba8b5a-61 `^_� aF[]`� bg��key cg��value dg��name eg��formals fg��body gbcdef� h\\\\\� if��l-1e8ba8b5a-53 jf��l-1e8ba8b5a-54 kf��l-1e8ba8b5a-55 lf��l-1e8ba8b5a-56 mf��l-1e8ba8b5a-57 nijklm� oFghn� pg��make-procedure-name qp� r\� sf��l-1e8ba8b5a-43 ts� uFqrt� v\� wf��l-1e8ba8b5a-42 xw� yFSvx� zEPQWXQQQQaouy�  {g��hygiene |{ � }ABz|� ~\PQW� {� �Ad~� �g�� description �A~� �g��printer �A~� �� �g�� make-struct �g��m-44b57084b9-695 �D� �g��t-1e8ba8b5a-133 �g��t-1e8ba8b5a-132 �g��t-1e8ba8b5a-131 �� �g��m-1e8ba8b5a-134 �D� �� �f��l-1e8ba8b5a-138 �f��l-1e8ba8b5a-139 �f��l-1e8ba8b5a-13a �� �F� �g�� ctor-args �� �f��l-1e8ba8b5a-120 �� �Fv� �g��ctor �g��field �� �f��l-1e8ba8b5a-11c �f��l-1e8ba8b5a-11d �� �F]� �g��form �g�� type-name �g��constructor-spec �g�� field-names �� �\\\\� �f��l-1e8ba8b5a-111 �f��l-1e8ba8b5a-112 �f��l-1e8ba8b5a-113 �f��l-1e8ba8b5a-114 �� �F� �g�� record-layout �g��functional-setters �g��setters �g��copier �g��getters �g�� constructor �g��getter-identifiers �g��field-identifiers �� �\\\\\\\\� �f��l-1e8ba8b5a-e9 �f��l-1e8ba8b5a-e7 �f��l-1e8ba8b5a-e5 �f��l-1e8ba8b5a-e3 �f��l-1e8ba8b5a-e1 �f��l-1e8ba8b5a-df �f��l-1e8ba8b5a-dd �f��l-1e8ba8b5a-db �� �F� �f��l-1e8ba8b5a-da �� �FSv� �PQWXQQQQQ� �A|� �A4~� �A |� �� �}� �g��each-any �>ʌ �g��syntax-violation �� �� �f��Wrong number of arguments �g�� identifier? �� �� �\QW� �A5� �� �� �f��-source expression failed to match any pattern �g��record-type-vtable �� �� �g��pwpwpw �g��default-record-printer �� �� �d� �g��set-struct-vtable-name! �� �� �g��vtable-offset-user �� �� �g��%warning-type?-procedure �>?� �g��m-44b57084b9-6ab �D� �g��t-44b57084b9-6aa �� �� �f��l-44b57084b9-6b0 �� �F� �f��l-44b57084b9-6ad �� �FS� �QXQQQQaouy�  �AB|� �g��obj �g��t-1e8ba8b5a-224 �g��t-1e8ba8b5a-21e �g��t-1e8ba8b5a-21f �g��t-1e8ba8b5a-220 �g��t-1e8ba8b5a-223 �g��t-1e8ba8b5a-222 �g��t-1e8ba8b5a-221 �� �g��m-1e8ba8b5a-225 �D� �� f��l-1e8ba8b5a-229 f��l-1e8ba8b5a-22a f��l-1e8ba8b5a-22b f��l-1e8ba8b5a-22c f��l-1e8ba8b5a-22d f��l-1e8ba8b5a-22e f��l-1e8ba8b5a-22f �  F��  g�� copier-id   �  f��l-1e8ba8b5a-21c   � F v � g�� ctor-name � f��l-1e8ba8b5a-214 � Fv� � f��l-1e8ba8b5a-212 � Fv� g��layout � f��l-1e8ba8b5a-210 � Fv� g�� immutable? � f��l-1e8ba8b5a-20e  � !Fv � "g�� field-count #"� $f��l-1e8ba8b5a-20c %$� &F#v%� 'g�� getter-ids ('� )f��l-1e8ba8b5a-209 *)� +F(v*� ,g�� field-ids -,� .f��l-1e8ba8b5a-206 /.� 0F-v/� 1g��predicate-name 2g�� field-spec 312� 4\\\\\\� 5f��l-1e8ba8b5a-1f9 6f��l-1e8ba8b5a-1fa 7f��l-1e8ba8b5a-1fb 8f��l-1e8ba8b5a-1fc 9f��l-1e8ba8b5a-1fd :f��l-1e8ba8b5a-1fe ;56789:� <F34;� =QXQ QQQQQQQQ!Q&Q+Q0<� >A=|� ?>� @g��and AA@=|� Bg��struct? CAB=|� DC>� Eg��eq? FAE=|� Gg�� struct-vtable HAG=|� IH>� J\Q� KA4J� LFIK� MADL� N?M� O\Q� PAO� Qg��throw-bad-struct RQ� SQ� Tg��%warning-type-name-procedure Ug��free-id Vg�� %%on-error Wg��m-44b57084b9-6b7 XWD� YX� Zf��l-44b57084b9-6b9 [Z� \FSY[� ]XQ\XQQQQaouy�  ^AV]|� _U^� `_?� ag��%%type bg��t-1e8ba8b5a-14b cg��t-1e8ba8b5a-14c dg��t-1e8ba8b5a-14d eg��t-1e8ba8b5a-14e fg��t-1e8ba8b5a-14f gg��t-1e8ba8b5a-150 hg��t-1e8ba8b5a-151 ibcdefgh� jg��m-1e8ba8b5a-152 kjD� lkkkkkkk� mf��l-1e8ba8b5a-156 nf��l-1e8ba8b5a-157 of��l-1e8ba8b5a-158 pf��l-1e8ba8b5a-159 qf��l-1e8ba8b5a-15a rf��l-1e8ba8b5a-15b sf��l-1e8ba8b5a-15c tmnopqrs� uFilt� vg��getter wg��index xvw� yf��l-1e8ba8b5a-149 zf��l-1e8ba8b5a-14a {yz� |Fx]{� }' � ~\\\� f��l-1e8ba8b5a-144 f��l-1e8ba8b5a-145 f��l-1e8ba8b5a-146 � F}~� Q\XQuQQQ|Q� Aa|� U� >`?� g��ck g��err g��s � XX� f��l-44b57084b9-6bc f��l-44b57084b9-6bd � F� XQ\XQQQQaouy�  A|� g��quote A|� \Q\� A4� � � g��%%index A|� U� >`?� f��l-44b57084b9-6c1 f��l-44b57084b9-6c2 � F� XQ\XQQQQaouy�  A|� A|� Q\� A � � � g��%%copier A|� U� >`?� f��l-44b57084b9-6c6 f��l-44b57084b9-6c7 � F� XQ\XQQQQaouy�  A|� A|� g��%%<warning-type>-set-fields \Q\� A� � � g��t-44b57084b9-6b6 � f��l-44b57084b9-6cb � FY� XQ\XQQQQaouy�  AB|� Q\XQuQQQ|Q� A|� � g��if A|� AE|� AG|� � \Q\� A4� � g�� struct-ref A|� Q\� A � � AQ|� A|� A� � � � � \Q\� AT� g��#%warning-type-description-procedure g��m-44b57084b9-6d2 D� � f��l-44b57084b9-6d4 � FS� QXQQQQaouy�  AV|� U� ?� QXQuQQQ|Q� Aa|� U� >?� � f��l-44b57084b9-6d7 f��l-44b57084b9-6d8 � F� QXQQQQaouy�  A|� A|� \Q� A4� � � A|� U� >?� f��l-44b57084b9-6dc f��l-44b57084b9-6dd � F� QXQQQQaouy�  A|� A|� Q� A � � �� A|� U� >?� f��l-44b57084b9-6e1 f��l-44b57084b9-6e2 � F� QXQQQQaouy�   A|�  A|�  \Q�  A �    �  � g��t-44b57084b9-6d1 � f��l-44b57084b9-6e6 � F� QXQQQQaouy�  AB|� QXQuQQQ|Q� A|� � A|� AE|� AG|� � \Q� A4� �  A|� !Q� "A !� # "� $AQ|� %A|� &A� '%&� ($'� )#(� *)� +\Q� ,A+� -g��%warning-type-printer-procedure .g��m-44b57084b9-6ed /.D� 0/� 1f��l-44b57084b9-6ef 21� 3FS02� 4/Q3XQQQQaouy�  5AV4|� 6U5� 76?� 8Q3XQuQQQ|Q� 9Aa8|� :U9� ;>7:?� <//� =f��l-44b57084b9-6f2 >f��l-44b57084b9-6f3 ?=>� @F<?� A/@Q3XQQQQaouy�  BAA|� CAA|� D\@Q3� EA4D� FCE� GF� HA8|� IUH� J>7I?� Kf��l-44b57084b9-6f7 Lf��l-44b57084b9-6f8 MKL� NF<M� O/NQ3XQQQQaouy�  PAO|� QAO|� RNQ3� SA R� TQS� UT� VA8|� WUV� X>7W?� Yf��l-44b57084b9-6fc Zf��l-44b57084b9-6fd [YZ� \F<[� ]/\Q3XQQQQaouy�  ^A]|� _A]|� `\\Q3� aA`� b_a� cb� dg��t-44b57084b9-6ec ed� ff��l-44b57084b9-701 gf� hFe0g� i/hQ3XQQQQaouy�  jABi|� khQ3XQuQQQ|Q� lAk|� ml� nAk|� oAEk|� pAGk|� qpl� r\hQ3� sA4r� toqs� uAk|� vhQ3� wA v� xulw� yAQk|� zAk|� {A r� |z{� }yl|� ~ntx}� jm~� \Q3� A-� g��each ??� � ? ? ? g�� %%set-fields g��dummy g��check? g��expr v� g��m-44b57084b9-708 D� � f��l-44b57084b9-70d f��l-44b57084b9-70e f��l-44b57084b9-70f f��l-44b57084b9-710 f��l-44b57084b9-711 � F� � f��l-44b57084b9-70a � FS� g��t-1e8ba8b5a-16a g��t-1e8ba8b5a-16c g��t-1e8ba8b5a-16b � g��m-1e8ba8b5a-16d D� � f��l-1e8ba8b5a-171 f��l-1e8ba8b5a-172 f��l-1e8ba8b5a-173 � F� f��l-1e8ba8b5a-167 f��l-1e8ba8b5a-168 f��l-1e8ba8b5a-169 � F}~� QXQQQQ�  A|� \Q� A4� A� A� A � � g��map � � g��list g��unsupported-warning f�� warn about unknown warning types f��&~awarning: unknown warning type `~A'~% g��unused-variable f��report unused variables f��%~a~A: warning: unused variable `~A'~% g��unused-toplevel f��'report unused local top-level variables f��>~a~A: warning: possibly unused local top-level variable `~A'~% g��unbound-variable f��!report possibly unbound variables f��/~a~A: warning: possibly unbound variable `~A'~% g��arity-mismatch f��=report procedure arity mismatches (wrong number of arguments) f��2~a~A: warning: wrong number of arguments to `~A'~% f��;~a~A: warning: possibly wrong number of arguments to `~A'~% g��duplicate-case-datum f��-report a duplicate datum in a case expression f��F~a~A: warning: duplicate datum ~S in clause ~S of case expression ~S~% g��bad-case-datum f��Ereport a case datum that cannot be meaningfully compared using `eqv?' f��i~a~A: warning: datum ~S cannot be meaningfully compared using `eqv?' in clause ~S of case expression ~S~% f��,report wrong number of arguments to `format' g��wrong-num-args f��~a~A: `format' warning~% f��6~a~A: warning: wrong number of arguments to `format'~% g��non-literal-format-string f��*~a~A: warning: non-literal format string~% g��wrong-format-string f��(~a~A: warning: ~S: wrong format string~% g�� wrong-port f��(~a~A: warning: ~S: wrong port argument~% g�� syntax-error g��"unexpected-conditional-termination f��%~a~A: warning: ~S: unexpected `~~]'~% g�� list->string g��string-fold-right g��append \n� g��unexpected-semicolon f��%~a~A: warning: ~S: unexpected `~~;'~% g��unterminated-conditional f��-~a~A: warning: ~S: unterminated conditional~% g��unterminated-iteration f��+~a~A: warning: ~S: unterminated iteration~% g��wrong-format-arg-count f��L~a~A: warning: ~S: wrong number of `format' arguments: expected ~A, got ~A~% f�� any number f�� ~aup to ~a f�� ~aat least ~a g��number->string f�� ~a~a to ~a g�� simple-format f��O~a~A: warning: ~S: unsupported format option ~~~A, use (ice-9 format) instead~% g��find f��#~A: unknown warning type `~A': ~A~%C�5��h3�����]4    #5�4&�>��"��G���'()*+,-.� �������hH��� ��] �$��64�5$��"��4�54�56C������������g��loc  B�g��t  *��g��filenamef��system/base/message.scm +  ,  ,   -   .   . !  .   .  ' . , + /  1 / ! 3 /  4 /  5 0  ; 0  = 0  ? -  A 1 �  B ��g��nameg��location-string�C/R40i1i5R42i35R4��������h������]��C���������g��name  �g�� description  �g��printer   ��g��filenamef��system/base/message.scm E �   ��g��nameg��%make-warning-type-procedure�C5R489:=@��������h���t���]��C��l�������g��t-44b57084b9-697  �g��t-44b57084b9-698  �g��t-44b57084b9-699   ��   ���C9��������h���Z���]L�6����R�������g��a  ��g��filenamef��system/base/message.scm  E �  ���C>������h���J���]�L�6B�������g��filenamef��system/base/message.scm  E �   ���C��������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6���������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��system/base/message.scm E �  n ���C59R4ߨ��4�4>��"��G��� 5i��4R4��h������]�$���CC������x�������g��obj  ��g��filenamef��system/base/message.scm E �   ��g��nameg��%warning-type?-procedure�CR48:=N��h���8���]��C������0�������g��t-44b57084b9-6aa  ��  ���C����h���Z���]L�6����R�������g��a  ��g��filenamef��system/base/message.scm  E �  ���C>������h���J���]�L�6B�������g��filenamef��system/base/message.scm  E �   ���CP�������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6���������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��system/base/message.scm E �  n ���C5R4S�����h������]�&��� C�6z�������g��s  ��g��filenamef��system/base/message.scm E �   ��g��nameg��%warning-type-name-procedure�CTR48:=���h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�����h���8���]��C������0�������g��t-44b57084b9-6b6  ��  ���C����h���Z���]L�6����R�������g��a  ��g��filenamef��system/base/message.scm  E �  ���C>������h���J���]�L�6B�������g��filenamef��system/base/message.scm  E �   ���C�������h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/base/message.scm E �  � ���C5R4S�h������]�&��� C�6�������g��s  ��g��filenamef��system/base/message.scm E �   ��g��nameg��#%warning-type-description-procedure�CR48:=����h���:���]C�����2�������g��err  �g��s  ��  ���C��h���:���]C�����2�������g��err  �g��s  ��  ���C �h���:���]C�����2�������g��err  �g��s  ��  ���C*�����h���8���]��C������0�������g��t-44b57084b9-6d1  ��  ���C����h���Z���]L�6����R�������g��a  ��g��filenamef��system/base/message.scm  E �  ���C>������h���J���]�L�6B�������g��filenamef��system/base/message.scm  E �   ���C,�������h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/base/message.scm E �  � ���C5R4S �h ������]�&��� C�6�������}�������g��s  ��g��filenamef��system/base/message.scm E �   ��g��nameg��%warning-type-printer-procedure�C-R48 :=;BG��������h���:���]C�����2�������g��err  �g��s  ��  ���CJPU�h���:���]C�����2�������g��err  �g��s  ��  ���CX^c�h���:���]C�����2�������g��err  �g��s  ��  ���C�����h���8���]��C������0�������g��t-44b57084b9-6ec  ��  ���C ����h���Z���]L�6����R�������g��a  ��g��filenamef��system/base/message.scm  E �  ���C>������h���J���]�L�6B�������g��filenamef��system/base/message.scm  E �   ���C�������h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/base/message.scm E �  � ���C5 R48:=���h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��system/base/message.scm E �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5R4i5�h���e���]�@]�������g��args  ��g��filenamef��system/base/message.scm N   O �   ���C'��h������]�[6��������g��port  �g��unused  �g��name   ��g��filenamef��system/base/message.scm _  ` �   ���C�'�h������]�[6��������������g��port  �g��loc  �g��name   ��g��filenamef��system/base/message.scm e  f �   ���C�'����h������]�[6��������������g��port  �g��loc  �g��name   ��g��filenamef��system/base/message.scm k  l �   ���C�'����h������]�[6��������������g��port  �g��loc  �g��name   ��g��filenamef��system/base/message.scm q  r �   ���C�'�h(������]$���[6�[6���������g��port  &�g��loc  &�g��name   &�g��certain?   &��g��filenamef��system/base/message.scm w  x   y   | �  & ���C�'������h������]�[6����������g��port  �g��loc  �g��datum   �g��clause   �g�� case-expr   ��g��filenamef��system/base/message.scm �  � �   ���C�'������h������]�[6����������g��port  �g��loc  �g��datum   �g��clause   �g�� case-expr   ��g��filenamef��system/base/message.scm �  � �   ���C�''�h������]� &��6�C�������g��c  �g��r  ��g��filenamef��system/base/message.scm � % � '  � 3  � +  � +�   ���C��h������]� &��6�C�������g��c  �g��r  ��g��filenamef��system/base/message.scm � % � '  � 3  � +  � +�   ���C��h������]� &��6�C�������g��c  �g��r  ��g��filenamef��system/base/message.scm � % � '  � 3  � +  � +�   ���C��h������]� &��6�C�������g��c  �g��r  ��g��filenamef��system/base/message.scm � % � '  � 3  � +  � +�   ���C��h������]� &��6�C�������g��c  �g��r  ��g��filenamef��system/base/message.scm � % � '  � 3  � +  � +�   ���C?�h������]� &��6�C�������g��c  �g��r  ��g��filenamef��system/base/message.scm � % � '  � 3  � +  � +�   ���C�'������h��7��-�1�3� "�5"�5"�"�;"�"�A"��"��"��k$��W&��8"�� �[6$��(���[6""�[6�[6$��)(��&�� �[6"i"e"a$��@&��*$��(��� [6""""$��@ &��*$��(��� [6""""$��n &��X$��M &��7$��,(��!�[44556"Z"V"R"N"J"F$��n &��X$��M&��7$��,(��!�[44556""""""$��n &��X$��M&��7$��,(��!�[44556"`"\"X"T"P"L$��n &��X$��M&��7$��,(��!�[44556""""""$��&��$��$��$��   $�� (��  �[4455&�� &��"�� 4 [ 5"��< &��4![5"��# $�� 4"5"��4#[ 5 6"""""""$��d$&��N$��C$��.(��#�%[44&556"l"h"d"`"\�������/������g��port �g��loc �g��rest  �g��w  : ��g��x  : ��g��w  � ��g��w  � �g��x  � �g��w  � �g��w  $ ^�g��x  $ ^�g��w  A R�g��w  o �g��x  o �g��w   �g��x   �g��w   �g��w   P�g��x   P�g��w   H�g��x   H�g��w   <�g��w  a �g��x  a �g��w  z �g��x  z �g��w   �g��w   B�g��x   B�g��w   :�g��x   :�g��w   .�g��w  S >�g��x  S >�g��w  l 6�g��x  l 6�g��w  } 2�g��x  } 2�g��w  .�g��x  .�g��w  &�g��w  O �g��x  O �g��w  h �g��x  h �g��w  } ��.g��filenamef��system/base/message.scm � �  P �  W �  o �  � �  � �  � �  � �  � �   �  I �  V �   �   �   �   � %  �   �   �   �  & �  , �  / �  4 � % 8 �  : �  < �  @ �   �   �   �   � %  �   �   �   �   �   �  ! �  & � % * �  , �  . �  2 �   �   �   �   � %  �   �   � !  �   � %  �   �   �   � !  �   �   �   �   � $  �  & �  * �   �   �   �   � %  �   �   �   � �K   ���C��5"R4S�������h ���n���]L��&��� "�� 4�5Cf�������g��wt  ��g��filenamef��system/base/message.scm �   �   � �  ���C"�����h������]�O�6��������g��name  ��g��filenamef��system/base/message.scm �  � �   ��g��nameg��lookup-warning-typeg�� documentationf��2Return the warning type NAME or `#f' if not found.�C!R!1'/4������h`�����-�1�3�4�545�"��45�6$��&�� 45@""������������g��type Z�g��location Z�g��args  Z�g��wt   Z�g��port   Z��g��filenamef��system/base/message.scm � �   �   �  # �  $ �  0 �  0 �  3 �  7 �  : �  E �  H �  R � � Z  ��g��nameg��warningg�� documentationf��jEmit a warning of type TYPE for source location LOCATION (a source property alist) using the data in ARGS.�CRC�������g��m  ,�g��rtd  ��g��filenamef��system/base/message.scm    +  >   :  B   B   B   @  E  N  P ] / N  / L 1 � 3 � �  3 ���C6�����������������������������������������������������������������2.0/ccache/system/base/syntax.go��������������������������������������������������������������������0000644�����������������00000046234�15146341264�0012403 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0L������] �4��h������]� g��guile � g��define-module* � � g��system g��base g��syntax � g��filenameS f��system/base/syntax.scm g��exportsS g��%compute-initargs g�� define-type g�� define-record g��define-record/keywords g�� record-case g��transform-record  � g��set-current-module � � g��string->symbol g��string-trim-both g��symbol->string g��symbol-trim-both g��list->char-set <>� g�� trim-brackets g��make-syntax-transformer � � !g��macro "g�� $sc-dispatch #"� $"� %g��_ &g��any '%& (g�� syntax->datum )(� *(� +g�� datum->syntax ,+� -+� .g�� kw-arg-ref /g��printerS 0g�� common-slotsS 1g��begin 2g��append 32� 42� 5g��map 6g��define 7g�� symbol-append 8g��- 9g��make-procedure-with-setter :g��lambda ;g��x <;� =g�� struct-ref >g��v ?;>� @g�� struct-set! A>� Bg��iota Cg��length Dg��syntax-violation ED� FD� Gf��-source expression failed to match any pattern Hg��make-record-type Ig��quote Jg�� list-tail Kg�� module-gensym Lf��defrec Mg��make- Ng��let Og��cond Pg��null? Qg��else Rg��_x Sg��car Tg��set! Ug��cdr VR� Wg�� make-struct Xg��? Yg��record-predicate Zg��record-accessor [g��record-modifier \g��slots ]g��list ^g��cons _g�� constructor `g��record-constructor ag��args bg��apply c a\� db_c� e:ad� fe� gg��assq hg��error if�� unbound slot jg��keyword? kg��keyword->symbol lg��memq mg��filter ng��pair? of�� unknown slot pf��slot already set qf��too many initargs rg��each-any s&r t%s ug�� syntax-object vg��r wg��top xw� yg��ribcage zg��record {g��clause |z{� }xx� ~f��l-3d2ad63ef-21d f��l-3d2ad63ef-21e �~� �y|}� �y� �;� �x� �f��l-3d2ad63ef-21a �� �y� �x� �g��hygiene �� �uv� �g��rtd �u� �g��reverse! �g��lp �g��clauses �g��out �� �xxx� �f��l-3d2ad63ef-265 �f��l-3d2ad63ef-266 �f��l-3d2ad63ef-267 �� �y� �g��process-clause �� �x� �f��l-3d2ad63ef-225 �� �y� �v� �f��l-3d2ad63ef-221 �f��l-3d2ad63ef-222 �� �y}� �x�  �uQ� �uh� �f��unhandled record �u� �uv� �� �� �g��free-id �� �s �� �g��e0 �g��e1 �� �f��l-3d2ad63ef-26f �f��l-3d2ad63ef-270 �� �y}� �x�  �uQ� �& �f��bad else clause placement �g��rest �� �f��l-3d2ad63ef-275 �f��l-3d2ad63ef-276 �f��l-3d2ad63ef-277 �� �y� �x�  �u;� �uQ� �sr �& �&&� �r �g��infix �� �f��l-3d2ad63ef-22e �� �y� �g��tag �g��fields �g��exprs �� �f��l-3d2ad63ef-22b �f��l-3d2ad63ef-22c �f��l-3d2ad63ef-22d �� �y� �x�  �u� �� �g��each �&& �� �&s� �g��eq? �g��f �g��accessor �� �xxxxx� �f��l-3d2ad63ef-233 �f��l-3d2ad63ef-234 �f��l-3d2ad63ef-235 �f��l-3d2ad63ef-236 �f��l-3d2ad63ef-237 �� �y� �x�  �u� �u� �uN� �5� �5� �uv� �� �&&r� �g��let* �g�� processed �v� �f��l-3d2ad63ef-25e �f��l-3d2ad63ef-25f �f��l-3d2ad63ef-260 �� �y� �x�  �u� �g�� struct-vtable �u� �uO� �f��rec f��rtd g��-> g��unquote f�� bad -> form g��< g��> g��and g��reverse  g��if   �   �C�5�������h9��r���]4    5�4�>��"��G���������h������]44�556�����������g��sym  �g��pred  ��g��filenamef��system/base/syntax.scm       $      �   ��g��nameg��symbol-trim-both�CR��h������]�456��������g��sym  ��g��filenamef��system/base/syntax.scm      (     �   ��g��nameg�� trim-brackets�CR4 !$'*-./01454���h(������]L$�� �L�"���4L��5C���������g��def  &��g��filenamef��system/base/syntax.scm (   )  ) ( * /  * ,  + ,  )  ! -  # ) �  & ���C6789:<=;?@A� h@������]44L�5�5 ��    ���C��������g�� common-slot  ?�g��i  ?��g��filenamef��system/base/syntax.scm /   0   0 !  0 0  1 0  0 !  0 �  ? ���CBC� ������h�����-�1�3��$���"����$���"��4545$��"��44O�54O�4 4 5555C�z������g��name ��g��rest ��g��name  ( ��g��opts  ( ��g��t  > P�g��printer  P ��g�� common-slots  P ���g��filenamef��system/base/syntax.scm # $   $   $   %  %  # %  ( % * ( $  - &  6 '  > '  M ' = P &  V (  Z (  j /  v 5 " y 5 ( � 5 " � /  � ( � � ���C���h���j���] 4�5L�4?6b�������g��args  �g��v ��g��filenamef��system/base/syntax.scm  # �   ���CFG�������h(���h���] 4�5$�� �O�@�6�`�������g��y  '�g��tmp '��g��filenamef��system/base/syntax.scm # �  ' ���C5R4 !$'*-5�����h���t���]�$���C�Cl�������g��slot  ��g��filenamef��system/base/syntax.scm ?   ? - ? ) ? :�   ���C16HI������h(������]�(��"���$��C�4L��5C����������g��slots  %��g��filenamef��system/base/syntax.scm E   F  F   F ;  F 2  F -  F   G   H !  H - ! H 1 # H - $ H �  % ��g��nameg��lp�CJCKL7M4NOPQNRSTUV� �����hH���y���]�L����L����L�L��� ���C���q�������g��o  E��g��filenamef��system/base/syntax.scm L   M   M   M ;  M �  E ���CWXY6789ZI[�������h8������]4L�5L����L������C����}�������g��sname  4��g��filenamef��system/base/syntax.scm T   U   U  U .  U   U �  4 ���C��������h����-�1�3� �$���"����$���"��454545�$�� �"��� O�Q�454 4 554  545454O�5 ��45��4O�5C�������g�� name-form �g��slots �g��name   �g��printer  + �g�� slot-names  6 �g��stem  ? �g��lp  u ��g��reqs  � ��g��opts  � ��g��tail  � ��� g��filenamef��system/base/syntax.scm < =   =   = %  =   >  " >  % > ) + =  . ?  6 =  9 A  ? =  C B  J C ( R B  ] D ) b D 5 g D D h B  u E  � E  � I  � I & � I  � E  � J  � J $ � J  � E  � K � K  � K $ � K  � K � L  � K � B  � S  � S $ � S  � B  � T  B �-  ���C�����h���j���] 4�5L�4?6b�������g��args  �g��v ��g��filenamef��system/base/syntax.scm  < �   ���CFG�������h(���h���] 4�5$�� �O�@�6�`�������g��y  '�g��tmp '��g��filenamef��system/base/syntax.scm < �  ' ���C5R4 !$'*-5�����h���t���]�$���C�Cl�������g��slot  ��g��filenamef��system/base/syntax.scm `   ` - ` ) ` :�   ���C16HI7MN\]^I������h(������]�$������C��C������������g��slot  #��g��filenamef��system/base/syntax.scm g #  h ) h % i )  i 2  i )  i >  i )  j )�  # ���C_`fXY6789ZI[��������h8������]4L�5L����L������C����}�������g��sname  4��g��filenamef��system/base/syntax.scm p   q   q  q .  q   q �  4 ���C��������h�����-�1�3��$���"����$���"��454545�$�� �"���4  5   45�����4 5��4O�5C�����������g�� name-form ��g��slots ��g��name   ��g��printer  + ��g�� slot-names  6 ��g��stem  ? ���g��filenamef��system/base/syntax.scm ] ^   ^   ^ %  ^   _  " _  % _ ) + ^  . `  6 ^  9 b  ? ^  C c  J d ( R c  ] e ) b e 5 g e D h c  p f  t f  x f  z c   g  � c  � o  � o $ � o  � c  � p � c �! � ���C��h���j���] 4�5L�4?6b�������g��args  �g��v ��g��filenamef��system/base/syntax.scm  ] �   ���CFG�������h(���h���] 4�5$�� �O�@�6�`�������g��y  '�g��tmp '��g��filenamef��system/base/syntax.scm ] �  ' ���C5R5ghi������h@������]�$���"���4L�5$��C�$���CLL6�������g��slot  @�g��name  @�g��t   @��g��filenamef��system/base/syntax.scm y  z  z  z (  z  {   { , |  0 { 3 | ! 8 } @ } �  @ ���Cjklgmnhopq� ����h�����]""��(���O�645$��i4545$��"��4455$��  645$��   6"t(��   �6$��"��"5�"&������g��args  ��g��slots  ��g��in   ��g�� positional   ��g��out   ��g��sym  1 ��g��slot  � ���g��filenamef��system/base/syntax.scm w    �   y   �  # �  % �  ) �  * �  / � " 1 �  1 �  4 �  @ � F �  K �  U �  V �  Z �  ^ �  b � c � o �  s � y �  | �  ~ �  � � , � � ! � �  � �  � � � �  � � � �  � �  � � � �  � �  � � $ � �  � � � �  �   �  - �  �/  � ��g��nameg��%compute-initargs�C R4 !$t$�����h���T���]�L�6�����L�������g��filenamef��system/base/syntax.scm �  � �  ���C��h���u���]�L�6�������m�������g��e0  �g��e1  ��g��filenamef��system/base/syntax.scm  �   � �   ���CD���h������]�6�����������g��e0  �g��e1  �g��rest   ��g��filenamef��system/base/syntax.scm  � &  � &  � �   ���C($����h������]�C�����������   ���C+78(�h(������]�4L4L45554L�5C����������g��v0  %�g��f0  %�g��f1   %��g��filenamef��system/base/syntax.scm  � ( � 7  � L  � O  � 7  � (  � !  � ( $ � !�  % ���Cs+78(������h(������]�4L4L4�5554L�5C����������g��f0  %�g��f1  %��g��filenamef��system/base/syntax.scm  � ( � 7  � L  � O  � 7  � (  � !  � ( $ � !�  % ���CFG� ����hh������]4�5$��@4�5$��L�LLO�@4�5$��L�LLO�@�6��������������g��fields  a�g��tmp a�g��tmp  ! a�g��tmp  A a��g��filenamef��system/base/syntax.scm � �  a ��g��nameg��lp�C$��������h������]�C����������   ���Cs���h���:���]�C2�������g��e0  �g��e1  ��   ���CFG�h���X���]��C���P�������g��tmp-3d2ad63ef-23e  �g��tmp-3d2ad63ef-23d  ��  ���C�����h(���p���]��45�C�����h�������g��tag  #�g��f  #�g��accessor   #�g��e0   #�g��e1   #��  # ���C� ����h���B��]L44�55�O�L�Q�4545$�� 4?"��)45$�� 4?"�� 4 5�4 5$�� 4 ?"�� 4 5L6�����:������g��<foo>  ��g��f0  ��g��e0   ��g��rest   ��g��infix   ��g��lp  3�g��tmp  ; z�g��tmp  W w�g��tmp  } ��g��tmp  � ��� g��filenamef��system/base/syntax.scm  �  � '  �   � �  } � � �  � � �  � ���CFG� ������h������]"4�5$�� O�@4�5$�� O�@4�5$��@4�5$��L�LO�@  �6��������������g��clauses  y�g��out  y�g��tmp  y�g��tmp  & y�g��tmp  B y�g��tmp  Y y��g��filenamef��system/base/syntax.scm � �  y ��g��nameg��lp�C$������h(���Q���]�L�������C�����I�������g��r  #�g��rtd  #�g�� processed   #��  # ���CFG� �������hP������]O�L�Q�45�45$�� �O�@6������������g��record  K�g��clause  K�g��lp   !�g��tmp  $ K�g��tmp  / K��g��filenamef��system/base/syntax.scm  �   �   �  $ � �  K ���CFG��������h(���j���] 4�5$�� �O�@�6�b�������g��x  '�g��tmp '��g��filenamef��system/base/syntax.scm � �  ' ���C5R4 !$'*-K�278I�������h�����]#"��(��C$��$�� "$��644L44L�55��55"44L�55����"^"Q"F������g��x  ��g�� record-stem  ��g��slots   ��g��in   ��g��out   ��g��slot  ��g��arg  ���g��filenamef��system/base/syntax.scm �   �  �   �   �   �   �     �  '   +   .   8   ;   ?   B   C   F  $ I � L �  R �  V �  X � 2 \ � a �  d  8 g  8 i  $ m   u   x  ! z  0 { � ~ �  � �  � �  � � 2 � � � �  �  0 �  * �   �   �   � �  � �  � � �0  � ��g��nameg��further-predicates�C782��h�����]#"��(��C$��$��,44L�55���"$��644L44L�55��55"r"e44L�55���"0"%�������������g��x  ��g�� record-stem  ��g��slots   ��g��in   ��g��out   ��g��slot  ��g��arg  ��g��slot  � ���g��filenamef��system/base/syntax.scm                         '   +   .   1  4 �  : �  > �  @  2 D  I   L  " O   W   Z   ^   a   b   e  $ h  k �  q �  u �  w  2 {  �   �  1 �  1 �  $ �   �   �   �   � !  � "  � " . � " & �  � �  � �  � �  �  2 �  �   � "  � "  � !  �   �   �  �;  � ��g��nameg�� let-clauses�CC7M845�h ������]�$���&��L��6�C�C�������g��y  ��g��filenamef��system/base/syntax.scm *   + ' +  + 6  + >  + "  , 2  , "�  ���Ch� ������hx�����]�$��g�&��O4�5 $��9�44L�554L4LO�55C  �6�4L�5C�C�����������g��x  s�g��form $ Y�g��s  . >��g��filenamef��system/base/syntax.scm #   $  $  %   %   $   &   &  & # '  $ '  ' (  + ( % . ( 7 . ( , 1 �  7 �  ; �  @ (  A (  F )  G *  S .  U *  W (  ] /  a /  d 0  e 0 l 0 4 n 0 o 0 �!  s ��g��nameg��transform-expr�CQ78N5 � ����h�����]!�&���C���44L55L��44LL55 44LL55$�� 4 L5"�� �C������g��clause  ��g��stem  ��g��slots   ��g��body   ��g�� record-type  3 ���g��filenamef��system/base/syntax.scm 1   2   2  2   4   5   6   4 7  $ 7 . % �  + �  / �  1 7 B 3 7  3 7 7 8  A 9  D 9 P 9  Q 8  U :  X :  d :  g ;  k ;  l <  z =  { 8 �  � ��g��nameg��process-clause�C578�������h������]�4L��5L��Cy�������g��slot  ��g��filenamef��system/base/syntax.scm @   �  �   �   A �   ���COgQ2h��������h���L��-�1�3� 45454�5O�O�O�O� Q�Q��Q�Q�  � ��4  O��5 4  5 4 5$�� "��4 ���5 �C����D������g��type-and-common ��g��record ��g��clauses  ��g��r   ��g��rtd   ��g�� type-stem   ��g��further-predicates  N ��g�� let-clauses  N ��g��transform-expr  N ��g��process-clause N ��g��clauses � ��� g��filenamef��system/base/syntax.scm � �  �   �  �  �   �  �   � "  �   �  v >  � @  � B  � @  � >  � C  � C  � D  � D  � D  � D  � F  � F % � F  � > � �  ���C�h���k���] 4�5L�4?6c�������g��args  �g��v ��g��filenamef��system/base/syntax.scm  � �   ���CFG������h(���i���] 4�5$�� �O�@�6�a�������g��y  '�g��tmp '��g��filenamef��system/base/syntax.scm � �  ' ���C5RCj�������g��m  (��g��filenamef��system/base/syntax.scm        w �  9 ���C6���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/system/base/ck.go������������������������������������������������������������������������0000644�����������������00000007540�15146341264�0011447 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0H������]��4������h������]� g��guile � g��define-module* � � g��system g��base g��ck � g��filenameS f��system/base/ck.scm g��exportsS � g��set-current-module � � g��make-syntax-transformer � � g��macro g�� $sc-dispatch � � g��any g��free-id g�� syntax-object g��quote g��top � g��ribcage � g��x ! � "g��m-1e97f9b4a-48 #"� $#� %f��l-1e97f9b4a-4a &%� '!$&� ('� )g��hygiene *)� +(*� ,+� -,� .-� /g��each-any 0// 10 21-� 3g��ck-arg 4g��dummy 5g��op 6g��ea 7g��s 8g��v 945678� :#� ;f��l-1e97f9b4a-52 <f��l-1e97f9b4a-53 =f��l-1e97f9b4a-54 >f��l-1e97f9b4a-55 ?f��l-1e97f9b4a-56 @;<=>?� A9:@� BA'� C3B*� Dg��append ED� FD� GB*� H/ IH� J4756� K#� Lf��l-1e97f9b4a-5f Mf��l-1e97f9b4a-60 Nf��l-1e97f9b4a-61 Of��l-1e97f9b4a-62 PLMNO� QJKP� RQ'� S3R*� Tg��syntax-violation UT� VT� Wf��-source expression failed to match any pattern Xg��m-1e97f9b4a-68 YX� ZY� [f��l-1e97f9b4a-6a \[� ]!Z\� ^]� _^*� `_� a`� ba/ c/b dc ed fg��ea1 g4758f� hY� if��l-1e97f9b4a-77 jf��l-1e97f9b4a-78 kf��l-1e97f9b4a-79 lf��l-1e97f9b4a-7a mf��l-1e97f9b4a-7b nijklm� oghn� po]� q3p*� rp*� s/H ts ut v4756f� wf��l-1e97f9b4a-84 xf��l-1e97f9b4a-85 yf��l-1e97f9b4a-86 zf��l-1e97f9b4a-87 {f��l-1e97f9b4a-88 |wxyz{� }vh|� ~}]� ~*�C�5�����h��V���]4     5�4�>��"��G���4.��h���<���]C���4�������g��dummy  �g��v  ��   ���C2CFG��������h ���k���]4��5C���c�������g��dummy  �g��op  �g��ea   �g��s   �g��v   ��   ���CIS�����h���\���]�C�������T�������g��dummy  �g��s  �g��op   �g��ea   ��   ���CVW� ����hP���"��]4�5$��@4�5$��@4�5$��@ �6������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��system/base/ck.scm $ �  P ��g�� macro-typeg�� syntax-rulesg��patternsg��quoteg��v��g��opg��...�g��eag��...�g��sg��quoteg��v��g��sg��opg��eag��...����C5R43I���h���\���]C�����T�������g��dummy  �g��s  �g��op   �g��va   ��  ���CeqFr��������h ���l���]4��5C���d�������g��dummy  �g��s  �g��op   �g��v   �g��ea1   ��   ���Cu����h���m���]�C������e�������g��dummy  �g��s  �g��op   �g��ea   �g��ea1   ��   ���CVW� ���hP���6��]4�5$��@4�5$��@4�5$��@ �6.������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��system/base/ck.scm . �  P ��g�� macro-typeg�� syntax-rulesg��patternsg��sg��opg��vag��...��g��sg��opg��...�g��quoteg��v�g��ea1g��...�g��sg��opg��...�g��eag��ea1g��...���C53RC���N�������g��m  (��g��filenamef��system/base/ck.scm  �   ���C6�����������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/system/base/lalr.go����������������������������������������������������������������������0000644�����������������00000335610�15146341264�0012006 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0p�����]b�4����hg������]� g��guile � g��define-module* � � g��system g��base g��lalr � g��filenameS f��system/base/lalr.scm g��importsS g��srfi g��srfi-9  � � � g��exportsS g�� lalr-parser g�� print-states g��make-lexical-token g��lexical-token? g��lexical-token-category g��lexical-token-source g��lexical-token-value g��make-source-location g��source-location? g��source-location-input g��source-location-line g��source-location-column g��source-location-offset g��source-location-length !g��"source-location->source-properties "g�� lr-driver #g�� glr-driver $ !"#� %g��set-current-module &%� '%� (f��2.5.0 )g��*lalr-scm-version* *g��process-use-modules +*� ,*� -g��ice-9 .g�� pretty-print /-.� 0/� 1g��pprint 2g��symbol? 3g�� lalr-keyword? 4g��make-syntax-transformer 54� 64� 7g�� BITS-PER-WORD 8g��macro 9g�� $sc-dispatch :9� ;9� <g��_ =g��any ><= ?g�� syntax->datum @?� A?� Bg�� datum->syntax CB� DB� Eg��syntax-violation FE� GE� Hf��-source expression failed to match any pattern Ig�� logical-or Jg��logior Kg�� lalr-error Lg��error Mg��supports-source-properties? Ng��source-property Og��loc Pg�� lexical-token Qg��set-source-property! Rg��throw-bad-struct SR� TR� Ug��note-source-location Vg��%make-lexical-token-procedure W<===� Xg�� syntax-object Yg��lambda Zg��m-1e9d51c93-35 [g��top \Z[� ]g��ribcage ^g��t-1e9d51c93-32 _g��t-1e9d51c93-33 `g��t-1e9d51c93-34 a^_`� b\\\� cf��l-1e9d51c93-3a df��l-1e9d51c93-3b ef��l-1e9d51c93-3c fcde� g]abf� h]� ig��x ji� k\� lf��l-1e9d51c93-37 ml� n]jkm� og��shift pg�� proc-name qg��args rpq� s[� tss� uf��l-1e8ba8b5a-60 vf��l-1e8ba8b5a-61 wuv� x]rtw� yg��key zg��value {g��name |g��formals }g��body ~yz{|}� sssss� �f��l-1e8ba8b5a-53 �f��l-1e8ba8b5a-54 �f��l-1e8ba8b5a-55 �f��l-1e8ba8b5a-56 �f��l-1e8ba8b5a-57 �� �]~� �g��make-procedure-name �� �s� �f��l-1e8ba8b5a-43 �� �]� �s� �f��l-1e8ba8b5a-42 �� �]j� �\ghnohhhhx�  �g��hygiene � � �XY� �g��category �sghn� �� �X� �g��source �X� �Xz� �� �g�� make-struct �g��m-1e9d51c93-30 �[� �g��t-1e8ba8b5a-133 �g��t-1e8ba8b5a-132 �g��t-1e8ba8b5a-131 �� �g��m-1e8ba8b5a-134 �[� �� �f��l-1e8ba8b5a-138 �f��l-1e8ba8b5a-139 �f��l-1e8ba8b5a-13a �� �]� �g�� ctor-args �� �f��l-1e8ba8b5a-120 �� �]� �g��ctor �g��field �� �f��l-1e8ba8b5a-11c �f��l-1e8ba8b5a-11d �� �]t� �g��form �g�� type-name �g��constructor-spec �g�� field-names �� �ssss� �f��l-1e8ba8b5a-111 �f��l-1e8ba8b5a-112 �f��l-1e8ba8b5a-113 �f��l-1e8ba8b5a-114 �� �]� �g�� record-layout �g��functional-setters �g��setters �g��copier �g��getters �g�� constructor �g��getter-identifiers �g��field-identifiers �� �ssssssss� �f��l-1e8ba8b5a-e9 �f��l-1e8ba8b5a-e7 �f��l-1e8ba8b5a-e5 �f��l-1e8ba8b5a-e3 �f��l-1e8ba8b5a-e1 �f��l-1e8ba8b5a-df �f��l-1e8ba8b5a-dd �f��l-1e8ba8b5a-db �� �]� �f��l-1e8ba8b5a-da �� �]j� �ghnohhhhh� �X� �XP� �X � �� �� �g��each-any �<ጤ �E� �E� �f��Wrong number of arguments �g�� identifier? �� �� �shn� �XV� �g��record-type-vtable �� �� �g��pwpwpw �g��default-record-printer �� �� �z� �g��set-struct-vtable-name! �� �� �g��vtable-offset-user �� �� �g��%lexical-token?-procedure �<=� �g��m-1e9d51c93-46 �[� �g��t-1e9d51c93-45 �� �� �f��l-1e9d51c93-4b �� ]� f��l-1e9d51c93-48 � ]j� hohhhhx�  XY� g��obj  g��t-1e8ba8b5a-224  g��t-1e8ba8b5a-21e  g��t-1e8ba8b5a-21f  g��t-1e8ba8b5a-220  g��t-1e8ba8b5a-223 g��t-1e8ba8b5a-222 g��t-1e8ba8b5a-221      � g��m-1e8ba8b5a-225 [� � f��l-1e8ba8b5a-229 f��l-1e8ba8b5a-22a f��l-1e8ba8b5a-22b f��l-1e8ba8b5a-22c f��l-1e8ba8b5a-22d f��l-1e8ba8b5a-22e f��l-1e8ba8b5a-22f � ]� g�� copier-id � f��l-1e8ba8b5a-21c  � !] � "g�� ctor-name #"� $f��l-1e8ba8b5a-214 %$� &]#%� '� (f��l-1e8ba8b5a-212 )(� *]')� +g��layout ,+� -f��l-1e8ba8b5a-210 .-� /],.� 0g�� immutable? 10� 2f��l-1e8ba8b5a-20e 32� 4]13� 5g�� field-count 65� 7f��l-1e8ba8b5a-20c 87� 9]68� :g�� getter-ids ;:� <f��l-1e8ba8b5a-209 =<� >];=� ?g�� field-ids @?� Af��l-1e8ba8b5a-206 BA� C]@B� Dg��predicate-name Eg�� field-spec F0DE� Gssssss� Hf��l-1e8ba8b5a-1f9 If��l-1e8ba8b5a-1fa Jf��l-1e8ba8b5a-1fb Kf��l-1e8ba8b5a-1fc Lf��l-1e8ba8b5a-1fd Mf��l-1e8ba8b5a-1fe NHIJKLM� O]FGN� Phohhhhh!h&h*h/h4h9h>hCO� QXP� RQ� Sg��and TXSP� Ug��struct? VXUP� WVQ� Xg��eq? YXXP� Zg�� struct-vtable [XZP� \[Q� ]sh� ^XP]� _Y\^� `TW_� aR`� bsh� cXb� dg��!%lexical-token-category-procedure eg��free-id fg�� %%on-error gg��m-1e9d51c93-52 hg[� ih� jf��l-1e9d51c93-54 kj� l]jik� mhhlohhhhx�  nXfm� oen� po=� qg��%%type rg��t-1e8ba8b5a-14b sg��t-1e8ba8b5a-14c tg��t-1e8ba8b5a-14d ug��t-1e8ba8b5a-14e vg��t-1e8ba8b5a-14f wg��t-1e8ba8b5a-150 xg��t-1e8ba8b5a-151 yrstuvwx� zg��m-1e8ba8b5a-152 {z[� |{{{{{{{� }f��l-1e8ba8b5a-156 ~f��l-1e8ba8b5a-157 f��l-1e8ba8b5a-158 f��l-1e8ba8b5a-159 f��l-1e8ba8b5a-15a f��l-1e8ba8b5a-15b f��l-1e8ba8b5a-15c }~� ]y|� g��getter g��index � f��l-1e8ba8b5a-149 f��l-1e8ba8b5a-14a � ]t� :� sss� f��l-1e8ba8b5a-144 f��l-1e8ba8b5a-145 f��l-1e8ba8b5a-146 � ]� hlohhhhh� Xq� e� <p=� g��ck g��err g��s � hh� f��l-1e9d51c93-57 f��l-1e9d51c93-58 � ]� hhlohhhhx�  X� g��quote X� shl� XP� � � g��%%index X� e� <p=� f��l-1e9d51c93-5c f��l-1e9d51c93-5d � ]� hhlohhhhx�  X� X� hl� X � � � g��%%copier X� e� <p=� f��l-1e9d51c93-61 f��l-1e9d51c93-62 � ]� hhlohhhhx�  X� X� g��%%lexical-token-set-fields shl� X� � � g��t-1e9d51c93-51 � f��l-1e9d51c93-66 � ]i� hhlohhhhx�  XY� hlohhhhh� X� � g��if X� XX� XZ� � shl� XP� � g�� struct-ref X� hl� X � � XR� X� X� � � � � shl� Xd� g��%lexical-token-source-procedure g��m-1e9d51c93-6d [� � f��l-1e9d51c93-6f � ]j� hohhhhx�  Xf� e� =� hohhhhh� Xq� e� <=� � f��l-1e9d51c93-72 f��l-1e9d51c93-73 � ]� hohhhhx�  X� X� sh� �XP� �� � X� e� <=� f��l-1e9d51c93-77 f��l-1e9d51c93-78 �  ]�   hohhhhx�   X �  X �   h� X  �  � � X� e� <=� f��l-1e9d51c93-7c f��l-1e9d51c93-7d � ]� hohhhhx�  X� X� sh� X� � � g��t-1e9d51c93-6c  � !f��l-1e9d51c93-81 "!� #] "� $#hohhhhx�  %XY$� &#hohhhhh� 'X&� ('� )X&� *XX&� +XZ&� ,+'� -s#h� .XP-� /*,.� 0X&� 1#h� 2X 1� 30'2� 4XR&� 5X&� 6X-� 756� 84'7� 9)/38� :%(9� ;sh� <X;� =g��%lexical-token-value-procedure >g��m-1e9d51c93-88 ?>[� @?� Af��l-1e9d51c93-8a BA� C]j@B� D?hCohhhhx�  EXfD� FeE� GF=� HhCohhhhh� IXqH� JeI� K<GJ=� L??� Mf��l-1e9d51c93-8d Nf��l-1e9d51c93-8e OMN� P]LO� Q?PhCohhhhx�  RXQ� SXQ� TsPhC� UXPT� VSU� WV� XXH� YeX� Z<GY=� [f��l-1e9d51c93-92 \f��l-1e9d51c93-93 ][\� ^]L]� _?^hCohhhhx�  `X_� aX_� b^hC� cX b� dac� ed� fXH� gef� h<Gg=� if��l-1e9d51c93-97 jf��l-1e9d51c93-98 kij� l]Lk� m?lhCohhhhx�  nXm� oXm� pslhC� qXp� roq� sr� tg��t-1e9d51c93-87 ut� vf��l-1e9d51c93-9c wv� x]u@w� y?xhCohhhhx�  zXYy� {xhCohhhhh� |X{� }|� ~X{� XX{� XZ{� |� sxhC� XP� � X{� xhC� X � |� XR{� X{� X� � |� ~� z}� shC� X=� g��each ==� � = = = g�� %%set-fields g��dummy g��check? g��expr � g��m-1e9d51c93-a3 [� � f��l-1e9d51c93-a8 f��l-1e9d51c93-a9 f��l-1e9d51c93-aa f��l-1e9d51c93-ab f��l-1e9d51c93-ac � ]� � f��l-1e9d51c93-a5 � ]j� g��t-1e8ba8b5a-16a g��t-1e8ba8b5a-16c g��t-1e8ba8b5a-16b � g��m-1e8ba8b5a-16d [� � f��l-1e8ba8b5a-171 f��l-1e8ba8b5a-172 f��l-1e8ba8b5a-173 � ]� f��l-1e8ba8b5a-167 f��l-1e8ba8b5a-168 f��l-1e8ba8b5a-169 � ]� hohhhh�  X� sh� XP� X� X� X� � g��map � � g��list g��source-location g��%make-source-location-procedure <=====� g��m-1e9d51c93-bc [� g��t-1e9d51c93-b7 g��t-1e9d51c93-b8 g��t-1e9d51c93-b9 g��t-1e9d51c93-ba g��t-1e9d51c93-bb � � f��l-1e9d51c93-c1 f��l-1e9d51c93-c2 f��l-1e9d51c93-c3 f��l-1e9d51c93-c4 f��l-1e9d51c93-c5 � ]� � f��l-1e9d51c93-be � ]j� hohhhhx�  XY� g��input sh� X� g��line X� g��column X� g��offset X� g��length X� � g��m-1e9d51c93-b5 [� hohhhhh� X� X� X � � � sh� X� g�� pwpwpwpwpw � g��%source-location?-procedure g��m-1e9d51c93-d1 [� g��t-1e9d51c93-d0 � � f��l-1e9d51c93-d6 �� ]�� f��l-1e9d51c93-d3 � ]j� hohhhhx�  XY� hohhhhh!h&h*h/h4h9h>hCO� X�  �  XS�  XU�   �  XX� XZ� � sh� X�  �   �  � sh� X� g�� %source-location-input-procedure g��m-1e9d51c93-dd [� � f��l-1e9d51c93-df � ]j� hohhhhx�  Xf�  e� ! =� "hohhhhh� #Xq"� $e#� %<!$=� &� 'f��l-1e9d51c93-e2 (f��l-1e9d51c93-e3 )'(� *]&)� +*hohhhhx�  ,X+� -X+� .s*h� /X.� 0-/� 10� 2X"� 3e2� 4<!3=� 5f��l-1e9d51c93-e7 6f��l-1e9d51c93-e8 756� 8]&7� 98hohhhhx�  :X9� ;X9� <8h� =X <� >;=� ?>� @X"� Ae@� B<!A=� Cf��l-1e9d51c93-ec Df��l-1e9d51c93-ed ECD� F]&E� GFhohhhhx�  HXG� IXG� Jg��%%source-location-set-fields KsFh� LXJK� MIL� NM� Og��t-1e9d51c93-dc PO� Qf��l-1e9d51c93-f1 RQ� S]PR� TShohhhhx�  UXYT� VShohhhhh� WXV� XW� YXV� ZXXV� [XZV� \[W� ]sSh� ^X]� _Z\^� `XV� aSh� bX a� c`Wb� dXRV� eXV� fX]� gef� hdWg� iY_ch� jUXi� ksh� lXk� mg��%source-location-line-procedure ng��m-1e9d51c93-f8 on[� po� qf��l-1e9d51c93-fa rq� s]jpr� tohsohhhhx�  uXft� veu� wv=� xhsohhhhh� yXqx� zey� {<wz=� |oo� }f��l-1e9d51c93-fd ~f��l-1e9d51c93-fe }~� ]|� ohsohhhhx�  X� X� shs� X� � � Xx� e� <w=� f��l-1e9d51c93-102 f��l-1e9d51c93-103 � ]|� ohsohhhhx�  X� X� hs� X � � � Xx� e� <w=� f��l-1e9d51c93-107 f��l-1e9d51c93-108 � ]|� ohsohhhhx�  X� X� shs� XJ� � � g��t-1e9d51c93-f7 � f��l-1e9d51c93-10c � ]p� ohsohhhhx�  XY� hsohhhhh� X� � X� XX� XZ� � shs� X� � X� hs� X � � XR� X� X� � � � � shs� Xm� g��!%source-location-column-procedure g��m-1e9d51c93-113 [� � f��l-1e9d51c93-115 � ]j� hohhhhx�  Xf� e� =� hohhhhh� Xq� e� <=� � f��l-1e9d51c93-118 f��l-1e9d51c93-119 � ]� hohhhhx�  X� X� sh� X� � � X� e� <=� f��l-1e9d51c93-11d f��l-1e9d51c93-11e � ]� hohhhhx�  X� X� h� X � � � X� e� <=� f��l-1e9d51c93-122 f��l-1e9d51c93-123 � ]� hohhhhx�  X� X� sh� XJ� � � g��t-1e9d51c93-112 � f��l-1e9d51c93-127 � ]� hohhhhx�  XY� �hohhhhh� X�� � X�� XX�� XZ�� � sh� X�  �  X��  h�  X  �    � XR�� X�� X� � �   � � sh� X� g��!%source-location-offset-procedure g��m-1e9d51c93-12e [� � f��l-1e9d51c93-130 � ]j� hohhhhx�  Xf�  e� ! =� "hohhhhh� #Xq"� $e#� %<!$=� &� 'f��l-1e9d51c93-133 (f��l-1e9d51c93-134 )'(� *]&)� +*hohhhhx�  ,X+� -X+� .s*h� /X.� 0-/� 10� 2X"� 3e2� 4<!3=� 5f��l-1e9d51c93-138 6f��l-1e9d51c93-139 756� 8]&7� 98hohhhhx�  :X9� ;X9� <8h� =X <� >;=� ?>� @X"� Ae@� B<!A=� Cf��l-1e9d51c93-13d Df��l-1e9d51c93-13e ECD� F]&E� GFhohhhhx�  HXG� IXG� JsFh� KXJJ� LIK� ML� Ng��t-1e9d51c93-12d ON� Pf��l-1e9d51c93-142 QP� R]OQ� SRhohhhhx�  TXYS� URhohhhhh� VXU� WV� XXU� YXXU� ZXZU� [ZV� \sRh� ]X\� ^Y[]� _XU� `Rh� aX `� b_Va� cXRU� dXU� eX\� fde� gcVf� hX^bg� iTWh� jsh� kXj� lg��!%source-location-length-procedure mg��m-1e9d51c93-149 nm[� on� pf��l-1e9d51c93-14b qp� r]joq� snhrohhhhx�  tXfs� uet� vu=� whrohhhhh� xXqw� yex� z<vy=� {nn� |f��l-1e9d51c93-14e }f��l-1e9d51c93-14f ~|}� ]{~� nhrohhhhx�  X� X� shr� X� � � Xw� e� <v=� f��l-1e9d51c93-153 f��l-1e9d51c93-154 � ]{� nhrohhhhx�  X� X� hr� X � � � Xw� e� <v=� f��l-1e9d51c93-158 f��l-1e9d51c93-159 � ]{� nhrohhhhx�  X� X� shr� XJ� � � g��t-1e9d51c93-148 � f��l-1e9d51c93-15d � ]o� nhrohhhhx�  XY� hrohhhhh� X� � X� XX� XZ� � shr� X� � X� hr� X � � XR� X� X � � � � � shr� Xl� g��m-1e9d51c93-164 [� � f��l-1e9d51c93-169 f��l-1e9d51c93-16a f��l-1e9d51c93-16b f��l-1e9d51c93-16c f��l-1e9d51c93-16d � ]� � f��l-1e9d51c93-166 � ]j� hohhhh�  X� sh� X� X� X� X� X� X � � g�� make-vector g�� list->vector g��reverse  � g��max g��display f��Error in map-goto g��newline g��expt g��bidon f��Error in add-lookback-edge :  g��assv g��assq g��reduce g��left g��right g��none f�� %% Shift/Reduce conflict (shift  f�� , reduce  f��) on ' f�� ' in state  f��"%% Reduce/Reduce conflict (reduce  g��default g��accept g��for-each g��number? g��list-ref g�� *default* g��*error* � g��left: g��right: g�� nonassoc: f��+invalid operator precedence specification:  猤 茤 g��nonassoc  � �g��member f��"duplicate definition of terminal:  f��invalid terminal:  g��assoc f��Nonterminal previously defined: f��Invalid nonterminal: f��/Nonterminal definition must be a non-empty list g��*eoi* g��eoi   �  L �  g��*start*  g��car  f��-Grammar must contain at least one nonterminal g��cdar g��append g��: g��$1 � f��<Grammar definition must have a non-empty list of productions f��Invalid token list:  f��undefined symbol :  g��prec: f��*prec: directive should be at end of rule:  f��Invalid prec: directive:  f��!Invalid terminal or nonterminal:  g��symbol->string f�� Invalid terminal or nonterminal: f��TInvalid 'error' production. A single terminal symbol must follow the 'error' token.: g��vector g��string->symbol g�� string-append  f��- !g��number->string "f��$ #f��/At least one production needed for nonterminal: $g�� vector->list %� &g��___stack 'g��___sp (g�� ___goto-table )g��___push *g�� yypushback +&'()*� ,'()� -g��let* .g��tok /g�� vector-ref 0g��- 1.� 2.� 312.� 43� 5f��@ 6.� 716.� 87� 9� :� ;'� <g��output: =g��with-output-to-file >g��define ?f��Malformed lalr-parser form @f��Invalid option: Ag��expect: Bg��driver: Cg��glr Dg�� out-table: Ef�� State table Ff�� ----------- Gf��state  Hf��  If�� -->  Jf��.  Kf��  Lf�� (rule  Mf��) Nf��default action Of�� : Error Pf�� : Accept input Qf�� : reduce using rule  Rf�� : shift and goto state  Sf��No generated parser available! Tg��string? Ug��integer? Vg��memq Wg��lr XWC� Yg��combine-locations Zg��*max-stack-size* [g�� vector-length \f��%Syntax error: unexpected end of input ]f��!Syntax error: unexpected token :  ^f��Syntax error: invalid token:  _g�� take-right `g��drop ag��filenameC�5������hL���]4    $5�4'�>��"��G���()R4,0�>��"��G��4,�>��"��G��.i1R2i3R4678;>AD����h���P���]� C���H�������g��filenamef��system/base/lalr.upstream.scm S �   ���C�����h���r���] 4�5L�4?6j�������g��args  �g��v ��g��filenamef��system/base/lalr.upstream.scm  S �   ���CGH�������h(���p���] 4�5$�� �O�@�6�h�������g��y  '�g��tmp '��g��filenamef��system/base/lalr.upstream.scm S �  ' ���C57R46I8;>ADJ����h���x���-�1�3��C������p�������g��x �g��y ��g��filenamef��system/base/lalr.upstream.scm T  T #�  ���C�����h���r���] 4�5L�4?6j�������g��args  �g��v ��g��filenamef��system/base/lalr.upstream.scm  T �   ���CGH�������h(���p���] 4�5$�� �O�@�6�h�������g��y  '�g��tmp '��g��filenamef��system/base/lalr.upstream.scm T �  ' ���C5IR46K8;>ADL����h���{���]��C����s�������g��msg  �g��obj  ��g��filenamef��system/base/lalr.upstream.scm U   U %�  ���C��h���r���] 4�5L�4?6j�������g��args  �g��v ��g��filenamef��system/base/lalr.upstream.scm  U �   ���CGH�������h(���p���] 4�5$�� �O�@�6�h�������g��y  '�g��tmp '��g��filenamef��system/base/lalr.upstream.scm U �  ' ���C5KRMNOPQT�hp������]4�5$��^4�5$��"��$�� "��$��24�&�� "�� 45>��"��G��"���"����C���������g��lvalue  n�g��tok  n��g��filenamef��system/base/lalr.upstream.scm V   W W   X   X *  X   W  " Y 5 W  6 Z  < Z % ? Z * [ Z �  n ��g��nameg��note-source-location�CURP��������h������]��C���������g��category  �g��source  �g��value   ��g��filenamef��system/base/lalr.upstream.scm x �   ��g��nameg��%make-lexical-token-procedure�CVR468;W����h���n���]��C��f�������g��t-1e9d51c93-32  �g��t-1e9d51c93-33  �g��t-1e9d51c93-34   ��   ���C������h���`���]L�6����X�������g��a  ��g��filenamef��system/base/lalr.upstream.scm  x �  ���C<��������h���P���]�L�6H�������g��filenamef��system/base/lalr.upstream.scm  x �   ���C��h������]�C����������   ���CGH� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6���������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��system/base/lalr.upstream.scm x �  n ���C5RP��4�P>��"��G��� Vi��PRP����h������]�$���CC�������������g��obj  ��g��filenamef��system/base/lalr.upstream.scm x �   ��g��nameg��%lexical-token?-procedure�CR468;a���h���6���]��C������.�������g��t-1e9d51c93-45  ��  ���C������h���`���]L�6����X�������g��a  ��g��filenamef��system/base/lalr.upstream.scm  x �  ���C<��������h���P���]�L�6H�������g��filenamef��system/base/lalr.upstream.scm  x �   ���Cc�h������]�C����������   ���CGH� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6���������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��system/base/lalr.upstream.scm x �  n ���C5RPT��������h������]�&��� C�6�������g��s  ��g��filenamef��system/base/lalr.upstream.scm x �   ��g��nameg��!%lexical-token-category-procedure�CdR468;��������h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�����h���6���]��C������.�������g��t-1e9d51c93-51  ��  ���C������h���`���]L�6����X�������g��a  ��g��filenamef��system/base/lalr.upstream.scm  x �  ���C<��������h���P���]�L�6H�������g��filenamef��system/base/lalr.upstream.scm  x �   ���C�h������]�C����������   ���CGH��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/base/lalr.upstream.scm x �  � ���C5RPT����h������]�&��� C�6�������g��s  ��g��filenamef��system/base/lalr.upstream.scm x �   ��g��nameg��%lexical-token-source-procedure�CR468;��h���:���]C�����2�������g��err  �g��s  ��  ���C �h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C:�����h���6���]��C������.�������g��t-1e9d51c93-6c  ��  ���C������h���`���]L�6����X�������g��a  ��g��filenamef��system/base/lalr.upstream.scm  x �  ���C<��������h���P���]�L�6H�������g��filenamef��system/base/lalr.upstream.scm  x �   ���C<�h������]�C����������   ���CGH��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/base/lalr.upstream.scm x �  � ���C5RPT����h ������]�&��� C�6��������������g��s  ��g��filenamef��system/base/lalr.upstream.scm x �   ��g��nameg��%lexical-token-value-procedure�C=R468;KRW���h���:���]C�����2�������g��err  �g��s  ��  ���CZ`e�h���:���]C�����2�������g��err  �g��s  ��  ���Chns�h���:���]C�����2�������g��err  �g��s  ��  ���C�����h���6���]��C������.�������g��t-1e9d51c93-87  ��  ���C������h���`���]L�6����X�������g��a  ��g��filenamef��system/base/lalr.upstream.scm  x �  ���C<��������h���P���]�L�6H�������g��filenamef��system/base/lalr.upstream.scm  x �   ���C�h������]�C����������   ���CGH��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/base/lalr.upstream.scm x �  � ���C5R468;�����h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���CGH���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��system/base/lalr.upstream.scm x �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5R��������h������]��C�������������g��input  �g��line  �g��column   �g��offset   �g��length   ��g��filenamef��system/base/lalr.upstream.scm � �   ��g��nameg��%make-source-location-procedure�CR468;��h������]��C�������������g��t-1e9d51c93-b7  �g��t-1e9d51c93-b8  �g��t-1e9d51c93-b9   �g��t-1e9d51c93-ba   �g��t-1e9d51c93-bb   ��   ���C������h���a���]L�6����Y�������g��a  ��g��filenamef��system/base/lalr.upstream.scm  � �  ���C<�������h���Q���]�L�6I�������g��filenamef��system/base/lalr.upstream.scm  � �   ���C��������h������]�C����������   ���CGH� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6���������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��system/base/lalr.upstream.scm � �  n ���C5R��4�>��"��G��� i��R����h������]�$���CC�������������g��obj  ��g��filenamef��system/base/lalr.upstream.scm � �   ��g��nameg��%source-location?-procedure�CR468;�������h���6���]��C������.�������g��t-1e9d51c93-d0  ��  ���C������h���a���]L�6����Y�������g��a  ��g��filenamef��system/base/lalr.upstream.scm  � �  ���C<�������h���Q���]�L�6I�������g��filenamef��system/base/lalr.upstream.scm  � �   ���C��������h������]�C����������   ���CGH� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6���������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��system/base/lalr.upstream.scm � �  n ���C5RT������h������]�&��� C�6�������g��s  ��g��filenamef��system/base/lalr.upstream.scm � �   ��g��nameg�� %source-location-input-procedure�CR468;%,1��������h���:���]C�����2�������g��err  �g��s  ��  ���C4:?�h���:���]C�����2�������g��err  �g��s  ��  ���CBHN�h���:���]C�����2�������g��err  �g��s  ��  ���Cj�����h���6���]��C������.�������g��t-1e9d51c93-dc  ��  ���C������h���a���]L�6����Y�������g��a  ��g��filenamef��system/base/lalr.upstream.scm  � �  ���C<�������h���Q���]�L�6I�������g��filenamef��system/base/lalr.upstream.scm  � �   ���Cl��������h������]�C����������   ���CGH��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/base/lalr.upstream.scm � �  � ���C5RT��h������]�&��� C�6�������g��s  ��g��filenamef��system/base/lalr.upstream.scm � �   ��g��nameg��%source-location-line-procedure�CmR468;{�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�����h���6���]��C������.�������g��t-1e9d51c93-f7  ��  ���C������h���a���]L�6����Y�������g��a  ��g��filenamef��system/base/lalr.upstream.scm  � �  ���C<�������h���Q���]�L�6I�������g��filenamef��system/base/lalr.upstream.scm  � �   ���C��������h������]�C����������   ���CGH��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/base/lalr.upstream.scm � �  � ���C5RT��h ������]�&��� C�6��������������g��s  ��g��filenamef��system/base/lalr.upstream.scm � �   ��g��nameg��!%source-location-column-procedure�CR468;�������h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�����h���7���]��C������/�������g��t-1e9d51c93-112  ��  ���C�����h���a���]L�6����Y�������g��a  ��g��filenamef��system/base/lalr.upstream.scm  � �  ���C<�������h���Q���]�L�6I�������g��filenamef��system/base/lalr.upstream.scm  � �   ���C��������h������]�C����������   ���CGH��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/base/lalr.upstream.scm � �  � ���C5RT��h ������]�&��� C�6��������������g��s  ��g��filenamef��system/base/lalr.upstream.scm � �   ��g��nameg��!%source-location-offset-procedure�CR468;%,1�������h���:���]C�����2�������g��err  �g��s  ��  ���C4:?�h���:���]C�����2�������g��err  �g��s  ��  ���CBHM�h���:���]C�����2�������g��err  �g��s  ��  ���Ci�����h���7���]��C������/�������g��t-1e9d51c93-12d  ��  ���C�����h���a���]L�6����Y�������g��a  ��g��filenamef��system/base/lalr.upstream.scm  � �  ���C<�������h���Q���]�L�6I�������g��filenamef��system/base/lalr.upstream.scm  � �   ���Ck��������h������]�C����������   ���CGH��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/base/lalr.upstream.scm � �  � ���C5RT ��h ������]�&��� C�6��������������g��s  ��g��filenamef��system/base/lalr.upstream.scm � �   ��g��nameg��!%source-location-length-procedure�ClR46 8;z�������h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�����h���7���]��C������/�������g��t-1e9d51c93-148  ��  ���C �����h���a���]L�6����Y�������g��a  ��g��filenamef��system/base/lalr.upstream.scm  � �  ���C<�������h���Q���]�L�6I�������g��filenamef��system/base/lalr.upstream.scm  � �   ���C��������h������]�C����������   ���CGH��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/base/lalr.upstream.scm � �  � ���C5 R46J8;����h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���CGH���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��system/base/lalr.upstream.scm � �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5JR468;>AD��h8������] "��$$��C��" "��������������g��v1  1�g��v2  1�g��n   1�g��i   *��g��filenamef��system/base/lalr.upstream.scm �   �  �  �   � $  � $ �  ! �  $ �  * � �  1 ��g��nameg�� bit-union�Ch��� ��]"�$��L�LL $��tM $��IM$��4L>��"��G��"��#ML4L>��"��G��"��4L>��"��G��"��4L>��"��G��"���L�L6������������g��p  ��g��s4  ��g��x  ��g��ruleno   ��g��y   ��g��symbol  0 ���g��filenamef��system/base/lalr.upstream.scm       $     )      '   $    #   '  +   0  . 0  6  + :  " ?  0 C  & D  & I  - P  & b  ( i  ( j  ( o  / r  7 w  ( �  & �  - �  & �  �  ' �  �   �  �$  � ��g��nameg��loop2�C���h@������] �$��0O�L�LL�LLLQ�LL��6C����������g��s1  =�g��s3  =�g��loop2   ;��g��filenamef��system/base/lalr.upstream.scm           6  5 7  # ;  �  = ��g��nameg��loop�C�h����]45N4�5N45N4�5N 45N M M N 45"��#(��"��"45" "4L�>��"��G��4L>���"��G��4M 5N4M 54M 54M 54MM 5  "�RM $�  $��DM  $��,M$��"�,M       ""� "��M $��$��"��M "$��     "a "��PM $��-   "    "   " "GO� LL Q�4  >��"��G��"��    "  4L>���"��G��4L>���"��G��4L >���"��G��4L �>��"��G��C���������g��terms  �g�� terms/prec  �g��vars   �g��gram   �g�� gram/actions   �g��l  A d�g��count  A d�g�� no-of-rules  o �g�� no-of-items  o �g��squeue  � @�g��rcount  � @�g��rsets � @�g��relts � @�g��r � '�g��s2 � '�g��p � '�g��*r  � '�g��symbol  � .�g��r1  2 �g�� any-tokens  2 �g��symbol  7 �g��ruleno  x �g��r2  ~ �g��p2  ~ �g��symbol   �g��loop   $��g��filenamef��system/base/lalr.upstream.scm                     &   '   /   4   6   7   A   G   P  & S  7 X  ? [  7 \  . d  d   o   t  �  � |  � |  � }  � ~  � ~  � ~  �   �   �   �   � }  �   �   �   �  �   �   �  1 �  �   �   �   �  "              ( '   2   7  # 7   =   A   D  ! J  * U  9 ]   c   f  $ t   u  , x   ~    0   "   (   $   :   7   *   =   7   *   *   1   :   *   .   (         '   A  Q  a  q  �_   ���C����h�����]N4N3N2N1N0N/N.N-N,N+N*4 5N)N(N'N&N%N$N#N"N!N NNNNNNNNNNNNNNNNNL��LLL1LLL2L3LLLLL L L L L LO�6�����������g��tokens  ��g��gram  ���g��filenamef��system/base/lalr.upstream.scm �                    !   "   #  $  # %  $ '  * ' 5 , '  . '  1 (  4 )  7 *  : +  = ,  @ -  C .  F /  I 0  L 1  O 2  R 3  U 4  X 5  [ 6  ^ 7  a 8  d 9  g :  j ;  m <  p =  s >  v @  y A  z B  | B  �  �-  � ��g��nameg�� gen-tables!�C��h�����]K�NN4M5N4M5N4M5N�"��(��C"��n(�� "M M "��8 (��M�     "M�      "  " " "`��������g�� no-of-rules  ��g�� no-of-items  ��g��gram   ��g��p  . ��g��item-no  . ��g��rule-no  . ��g��nt  : ��g��prods  @ ��g��it-no2  @ ��g��rl-no2 @ ��g��rhs i ��g��it-no3 i ��� g��filenamef��system/base/lalr.upstream.scm E   F   F  G  H   H   I   I  J  % J  ( J  * J  . L  4 M  9 N  : N @ O F P  I Q  W Q  ^ S  e T  i U  o V  t X 6 x X  { Y # ~ Y / � Y < � Y  � [ 6 � [  � \ # � \ - � \  � U  � U % � U  � O � O  � O � L �+  � ��g��nameg�� pack-grammar�C�����h�����]0HH�4M 5K�4M 5K"��NM$��AM $��"J�JJ"""�� "4M 5N�"��XM$��M"��) $��"��)J�"J"M�"C "�������g��delts  ��g��dset  ��g��i  " p�g��j  " p�g��lhs  0 l�g��i  � ��g��j  � ��g��s  � ��g��x  � ��g��q  � ��� g��filenamef��system/base/lalr.upstream.scm _  `   `   `   a  " c  ' d + d  0 e  0 e 6 f  : f E h / F h ' G h  N i  Q j  T j \ j  _ k  i k  p c  { m  � m  � o  � p � p  � q  � r  � r  � t " � t  � u " � u 0 � u * � u  � q  � q " � q : � q  � q � v � w  � w � o �.  � ��g��nameg�� set-derives�C��hX����]04M5N"��m�M$��`"��Q(�� ��"MM $��"M$��M�4LM�5"���"���"M�""�� �""���$��"��}M$���"M"��$(��"��$4L�M5""$�� "M" "y"���"d"��%�M$��M�4L�M�5��"C �"����������g��i  }�g��sp  n�g��sym  5 n�g��continue � �g��i � �g��cont  � �g��x  � �g��l  � ��g��z  � ��g��y  �  �g��i ( M�� g��filenamef��system/base/lalr.upstream.scm        $               #  &   ,   3  > 4  - 5   5   <   @   E   N  , W  9 Y  , Z   e   k   n  s   y  }   �   �   �  �   �  �   �   �   �   �   �  ' �  ' �  B �  / �  ' �  �   �   �   �   �   �   �   �           (   -  1   6  " ?  - A  " B  E   K  M  �C  T ��g��nameg�� set-firsts�C���h���u��]4M5N4L>���"��G��"��S�M$��H"��$(��"��&4L�M5"M�"M���"C �"������m������g��i s�g��l - Q�g��fd  - Q�g��x _ q��g��filenamef��system/base/lalr.upstream.scm            %  )   -   3   <  =  D  < E  ( I  Q   Q   V  " W  = _   _  h  k   q  s  �  z ��g��nameg�� set-fderives�C�h@����]9H4M5K"��a(��"��_M $��:M$��-"��(��"��J"M""���"���"�""��M$��{J$��aM�"��J$��/$��"""""|"��$��"6" �"@������g��core  @�g��ruleset  @�g��csp   t�g��sym  # t�g��dsp  ; U�g��ruleno  � 2�g��csp  � 2�g��itemsetv  � 2�g��itemno  � ��g��c  � ��g�� itemsetv2  � ��g��c   &�g�� itemsetv2   &�� g��filenamef��system/base/lalr.upstream.scm            "  ' #   #  *   .  3   ;   A   J  - L   O   U   U   Z  ! `   k   q  t   �   �  �   �   �  � �  � �  �   �   �   �   �   �   �   �  + �  % �   �   �  + �   �   �  + �   �   �                  %       &   &  2   6  / @  �=  @ ��g��nameg��closure�C��������h8����](4M 5N4M5N 4M >��"��G��4L >���"��G��4  5�� � �  � ��NMN N �"���$���4L 54L�>��"��G��4L>��"��G��4L>���"��G��M $��]4  5  M M M$��M�MN"�� �NMN"�����"DCM�":��������g��p B l�g�� this-state p .�g��x z ,�g��is  � ,�g��p  � �g��x  � ��g��x  � ��g��x  � ���g��filenamef��system/base/lalr.upstream.scm '                  "   + )  ; � " B   I � " N � " T � " Z   [ � " ` !  b !  f "  i #  p +  s , w ,  z -  z - } .  � � " � .  � - � / � 0 � 1 � 2  � 2 � � # �   � � " �   � � # �   � � # �   � � # �     !               & 4  , 4 . + �7  6 ��g��nameg��generate-states�C�����h���<��]!N"��M$��M""�� ""��w$��lM $��I4LM5NM(��MMM"���M"���""���"4M5N�C������4������g��itemset  ��g��i %�g��isp 0 ��g��i  : ��g��sym  A ��g��x  [ ���g��filenamef��system/base/lalr.upstream.scm 7   9   9  :   ;  ;   = &  =  >  ! > % :  0 @  3 A 7 A  : B  : B A C  A B G D  K D L F % V F  [ G  [ G  c H  j J = m J 7 n J  w K 6 x K  � M , � M & � M  � N 6 � N  � O  � O � @  � Q  � Q �)  � ��g��nameg�� new-itemsets�C�����h0����]9M��45"��!(��  "��" "M(��4L�5M� C"�� $��}"��.$�� $��""��"�� "$��  C(��4L�5� C"o(��4L�5� C"I"A����������g��sym  ,�g��isp  ,�g��n   ,�g��isp1   7�g��k   7�g��key  B ,�g��sp  I ,�g��x  X i�g��sp1  m $�g��c  r |�g��i1  � ��g��t  � ��g��c  � ��g��c  � ��g��x  � ��g��x   ��g��filenamef��system/base/lalr.upstream.scm U   V   V  W   V   X   Y  " Z  ) [  . [ - / [ ( 7 [  7 X  B V  I \  I V  Q ]  R ^  X ^ c _ ) d _ h � " m a r b ' r b  y � " } b  � b � c  � d � d  � e # � f # � e � d  � g " � g + � g  � h  � c  � c 9 � c - � � " � c  � b  � i  � i  � � " � j  � j  � k  � k  � l $ � l  � � " � n  � n   j   j   k   k   l $  l   � "  n  $ n  $ a �D  , ��g��nameg�� get-state�C�����hh���j��]!M��454  5M  ��M$��MN"���  M�MNMNC�����b������g��sym  c�g��isp  c�g��n   c�g��p   c�g��n   )��g��filenamef��system/base/lalr.upstream.scm q   r   r  s   r   � "  r   u  & � " / � " 4 w 8 w  < w  G � " N � " U z  V z  Y {  [ {  ^ |  ` | �  c ��g��nameg�� new-state�C���h ������]�(��C4L��54L�5C�����������g��l  ��g��filenamef��system/base/lalr.upstream.scm          !      *   0   *   �   ��g��nameg��loop�C�������h(������]O��L�Q��4�4M55�N�C����������g��loop !��g��filenamef��system/base/lalr.upstream.scm         #  �  % ��g��nameg�� append-states�C���h8�����] �(��CM� $�� 4L��5C��"��������������g��l  1�g��item  1��g��filenamef��system/base/lalr.upstream.scm          2                ) $  / &  ) '   +  1  �  1 ��g��nameg��loop�C������h�����]O�L�Q�45$��T4  5�  45  M$��M�MNC�NMNCC�����������g��core  {�g��itemset  {�g��loop  �g��rs   {�g��p  - y�g��x  3 >�g��x  E P��g��filenamef��system/base/lalr.upstream.scm        !  %   & � # -  3 � " 3  ; � # ?   E  M � # W � # ]  d  + e   h  ' j   q  ( s   w  �  { ��g��nameg��save-reductions�C�����h������]�M N 4L >���"��G��4L >���"��G��4L>���"��G��4L>���"��G��4L>���"��G��4L>���"��G��4L>���"��G��4L>���"��G��4LM>��"��G��L�6��������g��filenamef��system/base/lalr.upstream.scm     /              +   ;   K   [   k   {   �   �  �  � ��g��nameg��lalr�C������h@�����]4M5N"��"�$���M  ��"CM��"�������������g��l  2�g��x  0��g��filenamef��system/base/lalr.upstream.scm                     " � " & � " '  *   0  2  �  : ��g��nameg��set-accessing-symbol�C����h8������]4M5N"�� �$���M ��"CM��"�������g��l  0�g��x  .��g��filenamef��system/base/lalr.upstream.scm                     " � # %  (   .  0  �  8 ��g��nameg��set-shift-table�C��h8������]4M5N"�� �$���M ��"CM��"�������g��l  0�g��x  .��g��filenamef��system/base/lalr.upstream.scm                     " � # %  (   .  0  �  8 ��g��nameg��set-reduction-table�C������hX���$��] "��@M��$��1 $����"�45 �"C �"�����������g��p  F�g��curmax  F�g��length   F�g��x  F��g��filenamef��system/base/lalr.upstream.scm                     #  % -   0   1   D   F  �  S ��g��nameg�� set-max-rhs�C�h������]�(���C��"���������g��l  ��g��filenamef��system/base/lalr.upstream.scm              �   ��g��nameg��last�C��������h��X��]@O���Q��4M 5N 4M 5N"�M $��MMM$��[ $��"��$��M4� 5M"��$�� "M "M "nMM 4 545N"��*$��"��$MM4 5" "4 5N45N�"��wM $��lM $�� "M$��<"��)(�� "M" ""C " "w�������P������g��last �g��count ( �g��i  ( �g��rp  B ��g��sp  B ��g��t  R ~�g��c  � "�g��j  � �g��nelem  � ��g��i  & �g��np  & �g��rp  J �g��j  V �g��np2  V ��g��filenamef��system/base/lalr.upstream.scm              " "   $   (   -  1   8  =   B   B  L   P � # R   R   e   h  0 o � # q  0 r  $ u  ! v  �   � � # �   �  1 �   �   �  �   �   �  �   �  �   �  �   �   �   �  # �   �  > � �  �  , �                  & � +   /   4   8   ;   E   J  J   R   V   \   _  ( i  " p  > q  $ t  + w  3   $     � #      "     �   �P   ��g��nameg�� initialize-LA�C������h����]`4M 5N4M 5�"�$��k"��K$��7MM$��MM"""4 5""�M$���M""�� M$��"��M�" "NMMM�MM4M5N4M5N"��(��C "��R(��"��S M   M$��$�  �  M M   "���  " ""}M�"u " M�"r������������g��temp-map  �g��ng  �g��sp   �g��i  ' r�g��ng2  ' r�g��symbol  4 e�g��s  x ��g��k  � �g��i  � �g��i  � ��g��sp   �g��x   �g��state1   �g��i  ! s�g��state2 . j�g��symbol 5 g�g��k E `��g��filenamef��system/base/lalr.upstream.scm                 !            #   '  *   .   3  9 4  4   ;   ?   H  , I  ' J   M  ! P  ) X   [   e   j   r   r  s   x  2 x  $  � # �   �  �  �   �   � "  � #  � #  � # 8 � #  � &  � '  � &  � ( . � (  � &  � &  � *  � +  � ,  � - % � -  � . #  .   0   2  2   � #  2  ! 4  . 6 ) . 6  5 7 ) 5 6  < 8 @ 8  E 9 ) E 9 N : ? O : " V ; " ] < " m 4 1 s 4  x � # ~ 4   0 )  0      �V   ��g��nameg�� set-goto-map�C���h�����]""��t$��+4��>��"��G��4>���"��G�� C M��$��C�$�� ""MM"x��������g��state  ��g��symbol  ��g��low   z�g��high   z�g��middle  B z�g��s  I z��g��filenamef��system/base/lalr.upstream.scm ?   @  B  B   D  D   D  D ) D > ? F # B F  B F I G  I F P I  T H \ K  ` H c L  m L  r N  z N  z @   @  � A - � A  � A  � @ �  � ��g��nameg��map-goto�C�����hX����]`4M 5N"��*�M $��"��$M�M4 5��" �"4M 5�"��M $��MMM$��"��$��M�M$��-M$��4L5""M  4  5        "|$���45"��"�� "P"���""�� "L�6��������g��i  :�g��nelem # 0�g��reads I V�g��i O F�g��rowp  O F�g��rowf  ] B�g��stateno  d ?�g��sp  k <�g��j  w �g��edges  w �g��symbol  � ��g��b � ��g��x � ��g��y � ���g��filenamef��system/base/lalr.upstream.scm Q   R R   S   S   S  # S 8 & �  1 S ' 4 S  : S  B U  I U  O W  T X X X  ] Y  ] Y d Z  d Y k [  k Y s \  w ]  z ^  ~ ^  � _ ? � _ & � _  � `  � `  � a " � a  � b ) � b 7 � b 1 � b " � d ) � d " � f . � f � �  � � � � � � " � �  � � � �  � � # � �  � �  � g ' � g  h   h   i 1  i   ]   � #  ] ; ' ]  . j  1 j  9 j  F W  V k �C  V ��g��nameg�� initialize-F�C����h�����]:4545"��.$��"��(�" ""��n$��"��h�$��G"��7$��,""��""���" ""��!$��"��" "C�������g��r-arg  ��g��n  ��g��new-end   ��g��new-R   ��g��i   H�g��x  , ?�g��i  S ��g��sp  e ��g��sp2  r ��g��x  | ��g��y  � ��g��i  � ��� g��filenamef��system/base/lalr.upstream.scm |   }  ~   }       #   )   ,   ,   5  <  B   H   S   X  \   e   e   j   n  r   u   y   |   |   �   �   �  * �  " �   �  - �   �   �   �   �   �   �   �  �   �  " �   �   �   �  �/  � ��g��nameg�� transpose�C��hP���P��]"��*(��CM�$��C"M� �"�������H������g��stateno  I�g��symbol  I�g��j   0�g��stno   0�g��st2   0�g��s  5 ?��g��filenamef��system/base/lalr.upstream.scm                     &   0   0   5  " 5   < � # I  �  I ��g��nameg�� get-state�C�h(��X��]O��LL�Q��4M5N"�M$��"�M MM "�$�"�M  $��"4� 5     " M$��"��M "�� $��"��  $��$M $��    "    " $��M M "��M4>��"��G��4�>��"��G��4>���"��G��"��M  "d "��z $�� "M  $��AM $��%M   4L  5   "     "     "    "q M� "kM"��M"?" "4LMM5NC��P������g�� get-state &�g��i �g��state1  :  �g��symbol1  :  �g��rulep  B �g��edges  B �g��*rulep  L �g��rp  R �g��stateno  R �g��states R �g��*rp W �g��st j ��g��k � ;�g��found � *�g��i � *�g��done ? �g��stp ? �g��rp2 ? �g��edgp  ? �g��*rp  W ��g��filenamef��system/base/lalr.upstream.scm           %  )   2   9  . :   :   B   E   I  L   L   R   W   W   ]   a   b  " j   o  ! v  - �   �  # �   � n $ � n � n  � o  � p � p  � p  � q  � q  � q � r  � s  � s  � u � y * � y  � x  � v  � v � v  � w   w  w   w > * o  0 o  8 o  ?   E   H  & R  W  + W  ^  & b  " g  & p  2 q  - t  - w  - x  3 }  =   3   -   &   &      +   +           $                            $  �[  & ��g��nameg��build-relations�C������hp���~��](M�M�"��X�$��M"��>$��.MM4LM>��"��G��""M"C "����v������g��n  l�g��i e�g��sp   X�g��LA-i  , O�g��F-j  , O��g��filenamef��system/base/lalr.upstream.scm                    !   &   +  , ,   ,   1   I   O   R   X   X  ]   c  e  �  l ��g��nameg��compute-lookaheads�C�������h����]1MNMM�MM��L�$��"��$��y M�$��4L>��"��G��"���M��M�$��M��M�"���M�M4LM>��"��G��""��"t"���M��$��F"��>MMMNM�M�$��C4LM�MM>��"��G��""C�������g��i  �g��height  �g��rp   �g��rp2  + ��g��j  5 ��g��F-i   ��g��F-j   ��g��j  �  ��g��filenamef��system/base/lalr.upstream.scm                        #   '  +   .   2   5   5   =   >   B   C   ]   b   c   g   p  / q   z  !   !    �   �   �   �   �   �   �  �   �   �   �   �   �   �   �   �   �  # �  # �        �2   ��g��nameg��traverse�C�h�����]1HHHHO� �LLL�Q�M K4M 5K4M 5K K"��CM$��8 J$��$�$��4>��"��G��"���"���"C "�������������g��relation  ��g��infinity  ��g��INDEX   ��g��VERTICES   ��g��top   ��g��traverse   ��g��i  W ���g��filenamef��system/base/lalr.upstream.scm   8   ;   @   C   F   K  " N   W   \ � ` �  f   g   k  p   q   u   v   �   �  �  �  � ��g��nameg��digraph�C�������h������]�M�N�C���������g��rule  �g��sym  ��g��filenamef��system/base/lalr.upstream.scm        �   ��g��nameg��add-rule-precedence!�Co#��hH����]SM��45$�$��C"� MM4M5$��M"��c"��QM  $�� "��J  M$��  M M   "   "  M  "  $��"��- $��"��&��"��&��"�� $��M&�� CC$��C   MM$�� MM"��M ��M N M&�� CC $��u $��i   MM$�� MM"��M ��M N M&�� C45C""M���C�����������g��state  C�g��symbol  C�g�� new-action   C�g�� state-actions   C�g��actions   C�g��current-action   2�g��rule  4 �g��t  N ��g��sym  Y f�g��i  n ��g��prec n ��g��item s ��g��i1 � ��g��sym � ��g��sym-prec  � �g�� sym-assoc  � �g�� rule-prec � �g��key   �g��n  b �g��l   �g��n   �g��l   ��g��filenamef��system/base/lalr.upstream.scm O   P   P  Q   P   R  R   S "  S & T  * T  1 b 7 4 b  ;  <   C  D   F   N   Y  " Y  `  a   n "  s $  s $  y &  } & � (  � (  � )  � )  � + 4 � +  �  �   � +  � ,  � "  � "  � "  � 7  � ; � :  � ; % � < � :  � < % � =  � :  � = %  >   :   > %  ? %  b  - �  1 d % 4 e 3 9 e R ; e A < e ) A f 3 D f ) O b  S k & W k T X k ` ] l & b l ; b l / i   m   t  " u   ~    l M  j %  D   D   �   m %  n 3  n R  n A  n )  o 3  o )  W   W   W   W 3  W   [   [ @  [ O  [ [  \   \ 0  \ $         "        \ B  Z   D   D   �   ]   ^ (  ^ G  ^ 6  ^   _ (  _ 6 ( _  = q 2 @ q , A q �z  C ��g��nameg�� add-action�C������h8������] "��*M�$��C4L�>��"��G��" "��������g��state  7�g��action  7�g��i   0��g��filenamef��system/base/lalr.upstream.scm t   u  v  u   w  * u  0 u �  7 ��g��nameg��add-action-for-all-terminals�C#���h ���y���]4�>��"��G��6�������q�������g��message  ��g��filenamef��system/base/lalr.upstream.scm I  J  K �   ���C� ���hh����]pH�O� O�LLLLLLLL�L�Q�L Q�K�4M5N"�M$��"�M$�L $�>"��M "��$�� M M "��t M $��g   $��4 >��"��G��"���  $��       "        ""��      "y"S"��sM "> $��WM $��FM&��4  >��"��G��"��4  >��"��G��"��""��""���"���M$��_"��L$��AMM$��4M>��"��G��"���""��  ""���" "4M >��"��G��4J�5M$�� J�6C�����������g��conflict-messages  c�g�� add-action  c�g��add-action-for-all-terminals   c�g��i  N /�g��red  ` �g��k  | G�g��j  � 9�g��rule  � 5�g��lav  � 5�g��token � �g��x � �g��y � �g��z � �g�� in-la-set? � ��g��shiftp   &�g��k   �g��state   �g��symbol    ��g��filenamef��system/base/lalr.upstream.scm 4  > A  A y  F y , H y  J y  N {  S | W {  ` }  ` }  h ~  l � # n ~  r ~ {  0 |   |   �   �   �   �  $ �  ' �  $ �  $ �   �   �  �   �  4 �  " �  ( �  $ �  ( �  + �  & �  " �  - �  = �  - �  - �  & �  - �  9   H   &      3 &   )  /   9   >  D   G  K � # M   Q  V  + Z   ^ �  b   c   h  4 m � # n  7 o  4 t        "   +  � #   .   +                            !               &             � #   ) {  / {  7   >   C   L G U G Y G  a H �i  c ��g��nameg�� build-tables�C���h���d��])H"��a$��V4J545$��* $��$�� "��  JK"���"���""���""��<(��C$��""J "\������g��acts  ��g��accums  ��g��l  j�g��x   f�g��y  c�g��l  v ��g��max  v ��g��sym  v ��g��x  � ��� g��filenamef��system/base/lalr.upstream.scm                          #   -   1  % 5   ;   @  ) A  $ B   I  + M  % O   Z   `   j   v   |  �   �   �   �   �   �   �  " �  * �   �   �   �  �'  � ��g��nameg��most-common-action�C�h������]4L��5�C��������������g��act  ��g��filenamef��system/base/lalr.upstream.scm      #        �   ���C�����h������]L�O��6��������g��acts  ��g��filenamef��system/base/lalr.upstream.scm     �   ��g��nameg��translate-terms�C��h ������]4�5 $�� �L�"��C���������g��x  ��g��filenamef��system/base/lalr.upstream.scm  /   >  ;   6   @   ;   1�   ���C����h������]4L��5�C��������������g��act  ��g��filenamef��system/base/lalr.upstream.scm      #        �   ���C� ����h�����])O��Q�"��zM�$��CMM$��<45M$��"���44LO�55"��M4�O�5" "������g��terms  ��g��most-common-action  ��g��translate-terms   ��g��i   ��g��acts  ' ��g��act  : k��g��filenamef��system/base/lalr.upstream.scm          '   '   .   /  3   4   :  B  ! H  . P  : S  ! T  ! W  " f  ! g   h   u   v   �   �  �   �  �  � ��g��nameg��compact-action-table�CL�L     �����h���|���]�4�5C������t�������g��x  ��g��filenamef��system/base/lalr.upstream.scm 3 (  3 :  3 D  3 4�   ���C�����h�� ��]{�$�$�"�$�c$��&��"��&��"��$��(��645 "�� (��  "{   $��)4  5$��4  >��"��G��"���"��4  >��"��G��     �    "~   "m6$��)45$��4 >��"��G��"���"��4 >��"��G�� �""�1$��e  $��R   $��>4 5  $��"�� 4  5 $��  6 " 6645 45 45 4 5 4 5 $��6"��Z $��0 4L�  5 45 "45   454?6 �  ""� "E6�6�� ������g��tokens  �g��grammar  �g��k   �g��lst   �g�� rev-terms   �g��rev-terms/prec   �g�� prec-level   �g��term   ~�g��t  * N�g��prec  g v�g��prec  v �g��optype v �g��l ~ ��g�� rev-terms ~ ��g��rev-terms/prec ~ ��g��term � ��g��lst   �g��rev-nonterm-defs   �g��def  �g��nonterm  �g��t  �g��terms  �g�� terms/prec  �g�� nonterm-defs  �g��nonterms ! �g��defs ; �g��ruleno  ; �g�� comp-defs  ; �g�� nonterm-def  E r�g�� compiled-def  T r�g��compiled-nonterm-defs  y ��g��filenamef��system/base/lalr.upstream.scm                        #   '   *   *   R   U  % Y   ]  a   d  # g  / g  # j  p   r  s   v   ~   �   �  # �   �  ( �   �   �   �   �   �   �   �   �   �   �   �   � �  �  % �   �   �     5               !   -   .   2   9   J   N   U   `   e   i  ( m   p   ~                         '            %   !   %      -   !   (   (   !   -   !   $   V         B   R   <   '      -   B   R   <   '      '      -   6 !  ' !   $   ,   0   4  $ 5  T 7   ; !  > %  B %  E & 3 E &  H ' 3 T &  Y + + \ , 5 c , + h - + r + s / ; y /   3 #  5 #  0  !   ! 9  ! E     ! 9  ! 3  $ 3  !      8        "   "         Q         �   ��g��nameg��rewrite-grammar�CL������h8������] 4L�L�5$��C4L�L5$��MC�6����������g��x  5�g��PosInNT 5�g��PosInT  5��g��filenamef��system/base/lalr.upstream.scm <   =  =   >   @   @ ' A  , B  1 C  5 C �  5 ��g��nameg��encode�C�L������h���F��]�(��C��4L5$��"�� 4L�5$�� 4L5C$��{&��j$��Z(��J4L5$��3(��%4LL4LL5>��"��G���"cL666666�>������g��l  ��g��first  ��g��rest   ��g��t   6��g��filenamef��system/base/lalr.upstream.scm F   G  H I   J   I  L   L  + L ) : K  = M  D M  H N  L K  O O  Q O & U N  X P Y P  ] P  ` Q e P  f R  k R ! p R  t P  z S  { U  � U 7 � U D � U 7 � U  � V  � W $ � W  � X � X  � X � X  � X � X  � Z  � Z  � Z  � Z �.  � ��g��nameg��loop�C�������h(������] O�LLLL��Q��6��������g��rhs  '�g��ruleno  '�g��loop   '��g��filenamef��system/base/lalr.upstream.scm E   F �  ' ��g��nameg��process-prec-directive�C�L���h8������] 4�L�5$��"�� 4�L5$��C�6�������������g��x  2�g��t $��g��filenamef��system/base/lalr.upstream.scm t   u + u '  u < ( u  . v . 2 v "�  2 ���CL�L !"!�������h0������]�L$��C444�5554L��5C�������������g��j  *��g��filenamef��system/base/lalr.upstream.scm  *   0  ,  0   6   7   8   8   7  6 !  6 &  > (  6 )  0�  * ��g��nameg��loop-j�C#���h����]lHO�O�LQ�L�LQ�45K�$�4�5"�i$�\4 5  4� 5 4O� >��"��G��"��s$��h&��V$��"��"4 5$��"��$��4  >��"��G��"���"���""�� ""��Y4 5  444 555�O�Q�4 5      " $��4 &��' $��       ""p"l"h 6�   " �6�������������g�� nonterm-def  �g��ruleno  �g��terms   �g��nonterms   �g��No-NT   �g��encode   �g��process-prec-directive   �g��name  J �g��lst  P �g��i P �g��rev-productions-and-actions P �g��rhs g �g��rest l �g��prod { �g��rhs  � �g��t  � ��g��t  � ��g�� rhs-length  " t�g��loop-j  I Y�g��action  [ t��g��filenamef��system/base/lalr.upstream.scm 8  2 :  = h  > h B h  C j  H j $ J j  J j  P k S n  W n X p  ] p 5 b p ? g p  g p  l q  l p  o r  v r / y r ) { r  { p  ~ t  � ]  � ^ � ^  � `  � ` & � `  � a " � a  � a  � b � b ( � b � b  � a  � c ' � c � c  � `  � d  � d  � d   e   e   ]    ) "   &  $ (  0 )  7 ,  8 2  9 3  9 ;  8 =  7 @  * I  * Z  $ [   [   b   g  % j   t   t {  w {  { {  ~ |  | +  {   } "  }   {   ~       .   #     ~   o   k  k   m 3  k  i   i F  i �\   ��g��nameg��rewrite-nonterm-def�C�����h8�����]"��$$���$��C"C "����������g��x  5�g��lst  5�g��lst   *�g��i   *��g��filenamef��system/base/lalr.upstream.scm                    (  2 (  " *  �  5 ��g��nameg�� pos-in-list�C�h`���C��]�(��C(���C�$��4L��5C$��4L��5C��"�������;������g��L1  Y�g��L2  Y�g��x   Y�g��y   Y��g��filenamef��system/base/lalr.upstream.scm           #   #   '   *   1  " 3   4   :   >   A   F   J   K   O   Y  �  Y ��g��nameg��loop�C��h������] O�Q��6��������g��lst1  �g��lst2  �g��loop  ��g��filenamef��system/base/lalr.upstream.scm    �   ��g��nameg��sunion�C�h@������] �(��L�C�L$��L�CL$�� 4L��5C�C�������������g��l1  :�g��x  :��g��filenamef��system/base/lalr.upstream.scm                 !   '   +  .   3  ! 5   6  �  : ��g��nameg��loop�C�������h������] O��Q�6�������g��elem  �g��lst  �g��loop  ��g��filenamef��system/base/lalr.upstream.scm    �   ��g��nameg��sinsert�C�h8������]�(��C��4L�5$�� 4L5C�"�������������g��l  2�g��x  2�g��y   2��g��filenamef��system/base/lalr.upstream.scm                   "   )   2  �  2 ��g��nameg��loop�C����h������] O��Q�6�������g��p  �g��lst  �g��loop  ��g��filenamef��system/base/lalr.upstream.scm    �   ��g��nameg�� lalr-filter�C������h8�����]�(��C�MM�$��4L�5C��"�������g��l  7�g��state 7�g��symbol   7��g��filenamef��system/base/lalr.upstream.scm 3   4  5  6 , 6   7 ,  6   8 #  8  $ 9 ) % : ) * : / , : ) - 9 # 1 ; ) 7 ; #�  7 ��g��nameg��loop�C������h8������] �$��$O�L�LQ�4� 5"���C������������g��shifts  3�g��loop  *��g��filenamef��system/base/lalr.upstream.scm 0  1  2   3  % � # ' 3  / <  2 1 �  3 ���C$����h ������]�4LLO�4M�55C������������g��filenamef��system/base/lalr.upstream.scm -   .   /  =  /  . �   ��g��nameg��build-goto-table�C%Y"+,-!."/&0'"458�����h�����]$��u4L�5M�&��� ��"��� ��4 4  55 4 4  554L�5CC������g��i  ��g��l  ��g��rest   ~�g��ns   ~��g��filenamef��system/base/lalr.upstream.scm L #  M ) M % N 5 O 3  O F  O C  O 3  N )  Q , ! Q H % Q 3 ' R 7 2 R Z 3 R W 6 R 7 ? S 7 D S O G S L H S I K S 7 N Q , O U 0 R U @ V U O Z U @ \ U 0 ^ U - ` X 1 c X A g X P k X A m X 1 o X . q Z . v Z 4 z Z . { W - | T , } P +  [ )�*  � ��g��nameg��loop�C):;/&0'����h�����])�M�&��"����45$��"O�L�Q�4 5"�� $��"��S �4 M�&��"�� M�&��  45��"��45��5��C������������g��p  ��g��act  ��g��nt   ��g��rhs  # ��g��n  , ��g��loop  @ T��g��filenamef��system/base/lalr.upstream.scm E  F   F G  G .  G   H   I   J   J  " J - # J  & J : , J  0 K  6 K  @ L # Y \ # ] ]  a ]  c ^  i _  p _ / q _  w _ N { _ 9 | _ Z � _ ^ � ` = � ` ( � a , � a L � a , � b , � b > � b , � _  � K  � G �(  � ���C��h������]4L�O��5C��������g�� gram/actions  ��g��filenamef��system/base/lalr.upstream.scm A   B   D  B �   ��g��nameg��build-reduction-table�C<=1>�h ���u���]�4LL��>��"��G��6��m�������g��filenamef��system/base/lalr.upstream.scm              �   ���C��������h8���)��]4�5$��O�6C�������!������g��options  1�g��code  1�g��option  1�g�� parser-name   /�g�� file-name   /��g��filenamef��system/base/lalr.upstream.scm                        /  �  1 ��g��nameg��output-parser!�C3L?L@�����h0������] 4�M�5$�� 4�5"��$���6C�������g��option  0�g��p 0��g��filenamef��system/base/lalr.upstream.scm                           "   &  *   .  �  0 ���CABC#"D=EFGHIJKLM� ������h0����]14>��"��G��"� M $�� " M�4M>��"��G��4>��"��G��"��M�$��4>��"��G��"��� $��E4M$�� MM"��M>��"��G��4>��"��G��"4>��"��G��4 >��"��G��4>��"��G��6�M"F�"������������g��x  *�g��i  "�g��v   "�g��rlno  4 "�g��nt  ; "�g��i  h �g��v  m ��g��filenamef��system/base/lalr.upstream.scm !   ! (  ! 1 ! (          #  '   *   0  1   4  ;   ;  >   E   J   S  9 W  B \  9 h   m   m   t   x   y   }   �   �   �   �   �   �   �  " �   �   �   �   �  ! �   �   �   �   �  ! �   �   �  ! �        !             "   "  �:  * ���CHNOPQRS�h��b��]HM$�j4>��"��G��4>���"��G��4>��"��G��4>���"��G��4>���"��G��"� �(��C�  M4>��"��G��4>��"��G��4>���"��G��4>���"��G��4LLLLLLO�>��"��G��4>���"��G��"�M(��"�K4>��"��G�� &��4 >��"��G��"��U4 5$��84MM$�� MM"��M>��"��G��"��4>��"��G�� &��4 >��"��G��"��t&��4>��"��G��"��V $��*4>��"��G��4 >��"��G��"��$4>��"��G��4>��"��G��4>���"��G��""4>���"��G����"M��"4>��"��G��4>���"��G��C��Z������g��l ` j�g��core k j�g��i  q j�g��items  x j�g��actions   j�g��l  � I�g��sym   I�g��act   I�g��n  V u�� g��filenamef��system/base/lalr.upstream.scm             " +  /   4  =  " M  , `  f  k   k   q � " q   x � " x        �   �   �   �  % �  1 �   � !  � #  �    �                   )   -   .   2   7   D   N   O   V  ) V   ]   a   h  " i   r   z                                                                        +   =   C   I   R %  d &  j &  j  s  w   |    �Y   ��g��nameg�� print-states�C� ��h�����]#4LO��>��"��G��4�5$��"�� N 4�5$��&��"��N "���4L 5M  M��4L 5�4L 5�4 �5$��44  LLLLLLLL�O�>��"��G��"���4L�>��"��G��C�������������g��options  ��g��tokens  ��g��rules   ��g��option  $ :�g��option  C m�g�� driver-type  O f�g�� gram/actions  v ��g��code  � ��g��option  � ��g�� file-name  � ��� g��filenamef��system/base/lalr.upstream.scm           $   $   ,   /  * 7   ;   ?   C   C   K   N   O  U  3 Y   [  9 a  E c  n   v   |   �  8 �  L �   �   �   �   �   �   �   �   �  �  �  �&  � ��g��nameg�� build-driver�C"DT������h(������]�$��4�5 $���6CC������������g��option  #��g��filenamef��system/base/lalr.upstream.scm m  n  n o   o   n  p   p �  # ���C<T������h0������]�$��$4�5 $���$�� �6CCC��������g��option  /��g��filenamef��system/base/lalr.upstream.scm r  s  s t   t   s  u   u  s % v  ) v �  / ���CAU���h8������]�$��&4�5 $��4�5$��� CCCC��������������g��option  1��g��filenamef��system/base/lalr.upstream.scm x  y  y z   z   y  {   {  {  $ y ' |  * | �  1 ���CBVX�������h0������]�$��%4�5 $���$�� �6CCC�������g��option  0��g��filenamef��system/base/lalr.upstream.scm                    %   *  �  0 ���C�5����h�� ��-��1��3�`H1H0H/H.H-H,H+H*H)H(H'H&H%H$H#H"H!H HHHHHHHHHHHHHHHHHHH H H H H HHHHHHHH2O�53O�4O�5O�6O�7O�8O�9 O�: O�; O�< O�= O�>O� ?O�@O�AO�BO�CO� DO�EO�FO� GHO�IO�JO�KO�LO�MO�NO�OO�P Q!R"S#T$O�U%O�V&W"��"��n^$��_^__$��H4'_5$��14(_J15$��_[\]^^]\["Z[_^6Z[_^6Z[_^6)*^6Y^]\["+O�XO459?MN0/,-*)('&%$#"!      Q�3Q�4Q�5RSQ�6R6Q�7Q�8>:= $%(8!" 7 Q�9(S  Q�: <Q�;"# Q�< ; Q�=&'Q�>JKIGEDCBA@*Q�?!  Q�@$ Q�A& Q�BQ�C*  Q�D$) Q�EQ�F FK*)Q�GHF )Q�I *2Q�J2*)Q�K-Q�L/0,-.#+  Q�M TQ�NPQ�OLQQ�P Q�U+Q�V0/!WVU3+.1Q�XKKKKKKKKK K K K K KKKKKKKKKKKKKKKKKKK K!K"K#K$K%K&K'K(K)K*,K+K,K- K.K/K0-./01234�K1�XZY"g���� ������g�� arguments �g��rrhs : �g��rlhs  : �g��ritem  : �g��nullable  : �g��derives  : �g��fderives  : �g��firsts  : �g�� kernel-base  : �g�� kernel-end : �g�� shift-symbol : �g�� shift-set : �g�� state-table : �g�� acces-symbol : �g��reduction-table  : �g�� shift-table  : �g�� consistent  : �g�� lookaheads  : �g��LA  : �g��LAruleno  : �g��lookback  : �g��goto-map  : �g�� from-state  : �g��to-state  : �g��includes  : �g��F  : �g�� action-table  : �g��nitems  : �g��nrules  : �g��nvars  : �g��nterms  : �g��nsyms  : �g��nstates : �g�� first-state ! : �g�� last-state " : �g�� final-state # : �g�� first-shift $ : �g�� last-shift % : �g��first-reduction & : �g��last-reduction ' : �g��nshifts ( : �g��ngotos ) : �g��token-set-size * : �g�� driver-name + : �g��the-terminals/prec , : �g��rule-precedences - : �g��expected-conflicts . : �g�� the-terminals / : �g��the-nonterminals 0 : �g��*valid-options* 1 : �g��lst Y { �g��proc Z { �g��options [  �g��tokens \  �g��rules ]  �g��lst ^  �g��p _  �g�� bit-union 2  �g�� gen-tables! 3  �g�� pack-grammar 4  �g�� set-derives 5  �g�� set-firsts 6  �g�� set-fderives 7  �g��closure 8  �g��generate-states 9  �g�� new-itemsets :  �g�� get-state ;  �g�� new-state <  �g�� append-states =  �g��save-reductions >  �g��lalr ?  �g��set-accessing-symbol @  �g��set-shift-table A  �g��set-reduction-table B  �g�� set-max-rhs C  �g�� initialize-LA D  �g�� set-goto-map E  �g��map-goto F  �g�� initialize-F G  �g�� transpose H  �g��build-relations I  �g��compute-lookaheads J  �g��digraph K  �g��add-rule-precedence! L  �g�� build-tables M  �g��compact-action-table N  �g��rewrite-grammar O  �g��rewrite-nonterm-def P  �g�� pos-in-list Q  �g��sunion R  �g��sinsert S  �g�� lalr-filter T  �g��build-goto-table U  �g��build-reduction-table V  �g��output-parser! W  �g�� build-driver X  ��`g��filenamef��system/base/lalr.upstream.scm � {                          "                        2                                           �      l  l   q  q   w  w  � ~  ~   k    �.  ���C�����h���r���] 4�5L�4?6j�������g��args  �g��v ��g��filenamef��system/base/lalr.upstream.scm  � �   ���CGH�������h(���p���] 4�5$�� �O�@�6�h�������g��y  '�g��tmp '��g��filenamef��system/base/lalr.upstream.scm � �  ' ���C5RT � ����h����]B�&�� � "�� 4�5&��  "�� 45�&�� � "�� 4�5&��  "�� 45�&��� "�� 4�5&�� "�� 45$�45$��t45$��d45$��T45$��D $��"��, $��"�� $��"�� "��"��"��"��$��e�&��� "�� 4�5�&��� "�� 4�5�&�� � "�� 4�5 �C$��o�&��� "�� 4�5�&��� "�� 4�5�&�� � "�� 4�5  �C�&��� "�� 4�5�&��� "�� 4�5�&�� � "�� 4�5  �CC�������������g��src-location-1  �g��src-location-2  �g��offset-1  n �g��offset-2  n �g��length-1  n �g��length-2  n �g��t  � �g��t  � �g��t   �g��input   �g��line   �g��column   �g��input   �g��line   �g��column   �g��length  �g��input  g �g��line  g �g��column  g �g��length g ��g��filenamef��system/base/lalr.upstream.scm       ;   V   n   y   �   �   �   �   �  �  - �  �   �  �  - �  �   �  �   �            ( %   *  ( /   3   6  ! P  ! j  !          !   !  � !   $   !     ! -  ! G  ! d  $ g  ! g  �1   ��g��nameg��combine-locations�CYR ZR[��������hP���)��]4 4M�5 5�"�� $���M�""��4M�5"�N�C�����!������g�� new-stack  K�g��i  7��g��filenamef��system/base/lalr.upstream.scm -   .   . '  . "  .   .   /   0 0  ) 2 ' * 2  - 3  3 3  7 /  8 /  ? /  E /  I 4 �  K ��g��nameg�� ___growstack�C[��������h������]�M4M5$��L�6�C���������g��filenamef��system/base/lalr.upstream.scm 6   7  7   7   8 �   ��g��nameg�� ___checkstack�CU��������hX���{��]M� NMM4L5M N4L�>���"��G��MMMM45C�������s������g��delta  Q�g�� new-category  Q�g��lvalue   Q�g��tok   Q�g��state   Q�g�� new-state  Q��g��filenamef��system/base/lalr.upstream.scm :  ;  ;  ;   <   <   =   = /  =  =  <  ' >  ) >  * ?  @ @  E A  F A ( O A �  Q ��g��nameg��___push�C��h���r���]�N�C�j�������g��filenamef��system/base/lalr.upstream.scm &   ' �   ��g��nameg�� ___pushback�C���h������]L�MMLLL�O�6�������g��st  ��g��filenamef��system/base/lalr.upstream.scm C   D   D �   ��g��nameg�� ___reduce�C����h0������]M N4L>���"��G��M�MM�M�C�������������g��token  *�g�� attribute  *��g��filenamef��system/base/lalr.upstream.scm F   G  G  H   I  ! I  ( J �  * ��g��nameg��___shift�CL��������hP���O��]"��B $��NCM�4L5$��NL�6 "M"G������g��tok  P�g��sp  H�g��state   H�g��act  ' H��g��filenamef��system/base/lalr.upstream.scm P   Q  R  R   S  T   T  U  U  % U & ' U  ' T / V 3 X  8 Y  = Y  B Z  H Z  H Q �  P ��g��nameg�� ___recover�C PV����h���G��]4L��5M N4L>���"��G��MM MM �"��M$��&�� "��"��&�� NC45$�� 4L��5MMMMCM$��M"��4M5�NNMN"~"z���?������g��state  ��g��tok  ��g��sync-set   ��g��tok  A f�g��i  f ��g��act  � ���g��filenamef��system/base/lalr.upstream.scm \   ]  ] " ]   ]   ]   ^   ^   _  / `  1 `  8 a  ; a  ? b  A c  F o  J o  M o  W p  f c  l d  p d t e  w f  � f  � g  � g & � g  � g  � h * � h  � i 0 � i  � "  � " 4 � "  � #  � $  � l  � b �)  � ��g��nameg��___sync�CP\]^� ��h��7��] "�M�$�4MM�M�$��&�� "��"��L�45$��"��$��&��M C&��\&��4M>��"��G��C4MM�>��"��G��4L>��"��G��M $��N�"�� NN�"% $��)4LM�>��"��G��&��"��N�"4L >��"��G��"4MM�>��"��G��CMM�L�$�� "�� 4 5$��> $��4L >��"��G��"��M $��M "��4M5�N�N M�N "��M $��M "��4M5�N�N M�N "<"8��/������g��state  @�g��tok  :�g��i : @�g��l  A g�g��y  L d�g��act  g @�g��state E �g��acts L �g��defact  _ �� g��filenamef��system/base/lalr.upstream.scm s   t  u   v   v  w   o   o  ! o  + p  : v A x % A x  D M L M  T N  W N _ N  g v l z  p z t   x z |   �   � z �   �   �   �  $ �   �   �  $ �   �   �   �   �   �   �  . �   �   �   � z �     -   "   5                *   + {  / {  6 {  E   E  L   L  Q   U   X  * _  c   j   n  r  ) v   w   z       "   " 4  "   #   $   "   " 4  "   #   $     t �V   ��g��nameg��___run�CZ�������h ������]N�N4 5N NL�6�������������g��lexerp  �g��errorp  ��g��filenamef��system/base/lalr.upstream.scm        *   *   +    �   ���C� ����h��%��]{H HHHHHHO� O� O� O� O�O�O�O� Q�  Q�  Q�  Q�  Q��Q��  Q� � Q�KKK KKKK  O�C����������g�� action-table  �g�� goto-table  �g��reduction-table   �g�� ___lexerp  �g�� ___errorp  �g��___stack  �g��___sp  �g�� ___curr-input  �g��___reuse-input  �g��___input �g�� ___growstack w �g�� ___checkstack w �g��___push w �g�� ___reduce w �g��___shift  w �g�� ___recover  w �g��___sync  w �g��___run  w ��g��filenamef��system/base/lalr.upstream.scm  �   ��g��nameg�� lr-driver�C"RP_`U�����h8�����]4� 54L�545C����{������g��delta  4�g�� new-category  4�g��lvalue   4�g��stack   4�g��tok   4�g��stack   4�g��state   4�g�� new-state  " 4��g��filenamef��system/base/lalr.upstream.scm       "                  . !   "   "   '   2   3  �  4 ��g��nameg��push�C����h0����]I"�$��"��$��&�� "&��"4 5  M�N� " $��'M     MN "  4L LLO�5   "U"3L4L5$��"��"$��45"C��"���������g��process  -�g��stacks  �g�� active-stacks   �g��stack   �g��state   �g��actions   ��g�� active-stacks   ��g��action  ( ��g�� other-actions  ( ��g��parse R ^�g��symbol t ��g�� new-stack � ��g��state � ��g�� new-stack � ��g�� action-list  � ��g��pair  � ���g��filenamef��system/base/lalr.upstream.scm         $      $          "   %  1 (  1 (   0  1 4   @  % D  1 H   I  5 R  0 R  % Y   [   j  % n  % r   t  6 }   ~   �  % �   �   �  % �  > �  6 �   �   �   �  % �  B �  & �  " �   �   �  K �  7 �   �   �   �  �               2      $   %  = -  �?  - ���C������h�����]�NNNNMN"��{4M5�NM$��&�� "��"��4M5N4LL�LLLLO�>��"��G��4M5$��""��"MC����������g��lexerp  ��g��errorp  ��g��tok  # H�g��symbol  H ��g�� processes  Q ~��g��filenamef��system/base/lalr.upstream.scm                  #              !   #   (   ,   /   9   H   K   Q   T   V   W   �   �  �   �  �  �  � ���C��h0���$��]#HHHHKKKK�O�C��������g�� action-table  .�g�� goto-table  .�g��reduction-table   .�g�� ___lexerp   .�g��*input*   .�g�� *processes*   .�g��*parses*   .��g��filenamef��system/base/lalr.upstream.scm       �  . ��g��nameg�� glr-driver�C#R`��h(������] $���$�� �6�C�C��������������g��l  !�g��n  !��g��filenamef��system/base/lalr.upstream.scm (  )  )  )   )  *   *   * �  ! ��g��nameg��drop�C`R`���h������]�4�56�������������g��l  �g��n  ��g��filenamef��system/base/lalr.upstream.scm .  /  /  / �   ��g��nameg�� take-right�C_RaT� ��h`������]�&��� "�� 4�5�&��� "�� 4�5�&�� � "�� 4�5�C���������g��loc  ^��g��filenamef��system/base/lalr.scm /  0   0   0  $ 1 < 0  A 2  Z 0 �  ^ ��g��nameg��"source-location->source-properties�C!RC����~������g��m  ,�g��rtd { �g��rtd $g $��g��filenamef��system/base/lalr.scm   g��filenamef��system/base/lalr.upstream.scm .   1  2 N  G O  b Q  i R   V   x !* � �����(  �����(  �����>  �����I  �����J ( �����K} . g��filenamef��system/base/lalr.scm�����L / � �����L ���C6�������������������������������������������������������������������������������������������������������������������������2.0/ccache/system/base/target.go��������������������������������������������������������������������0000644�����������������00000014774�15146341264�0012347 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�i�4�����h������]� g��guile � g��define-module* � � g��system g��base g��target � g��filenameS f��system/base/target.scm g��importsS g��rnrs g�� bytevectors  � � g��ice-9 g��regex � � � g��exportsS g�� target-type g�� with-target g�� target-cpu g�� target-vendor g�� target-os g��target-endianness g��target-word-size � g��set-current-module � !� "g��foreign #"� $g��sizeof %#$� &#$� 'g��* (g��%native-word-size )g�� make-fluid *g�� %host-type +g�� %target-type ,g��native-endianness -g��%target-endianness .g��%target-word-size /g��string? 0g�� string-split 1g��length 2g��or-map 3g�� string-null? 4g��error 5f��invalid target 6g��validate-target 7g�� triplet-cpu 8g��cpu-endianness 9g��triplet-pointer-size :g��string=? ;g�� string-match <f�� ^i[0-9]86$ =g��little >g��member ?f��x86_64 @f��ia64 Af�� powerpcle Bf�� powerpc64le Cf��mipsel Df��mips64el Ef��nios2 Ff��sh3 Gf��sh4 Hf��alpha I?@ABCDEFGH�  Jf��sparc Kf��sparc64 Lf��powerpc Mf�� powerpc64 Nf��spu Of��mips Pf��mips64 Qf��m68k Rf��s390x SJKLMNOPQR�  Tg��big Uf��^arm.*el Vf��^arm.*eb Wg��string-prefix? Xf��arm Yf�� ^aarch64.*be Zf��aarch64 [f��unknown CPU endianness \f��^mips64.*-gnuabi64 ]f��^mips64 ^f��^x86_64-.*-gnux32 _f��64$ `f��64_?[lbe][lbe]$ aJLOCEQFG� bRH� cf��^arm.* df��unknown CPU word size eg�� triplet-os fg�� substring gg�� string-index hg��triplet-vendorC�5������hH��*��]4    5�4!�>��"��G���4&'5(R4)i*i5+R4)i4,i5�5-R4)i(i5.R/012345���hX������]4�5$��54�-545 $��"�� 45"��$���6C��������������g��target  Q�g��parts  >�g��t  " ;��g��filenamef��system/base/target.scm -  .  .   /   /  0  " 0  " 0 0 1  C . G .  K 2 O 2 �  Q ��g��nameg��validate-target�C6R67+-.89�hH������] 4�>��"��G��4�5�454�5Y4>���ZCZF��������������g��target  A�g��thunk  A�g��cpu   A��g��filenamef��system/base/target.scm 4  5   6  6  & 8 & - 9 % 6 : �  A ��g��nameg�� with-target�CR:7*,;<=>ISTUVWXYZ4[��h���-��]4�455$��6�4�5$��C4� 5$��C4� 5$�� C4 �5$��C4 �5$�� C4�5$��C4�5$�� C4�5$��C�6%������g��cpu  ���g��filenamef��system/base/target.scm <  >   >   >   >   ?   @  @  ! @ % @  ' A ) B / B  1 B 5 @  7 D 9 E ? E  A E E @  G G I H M H  Q H U @  W I Y J ] J  a J e @  g K i L m L  q L u @  w M y N } N  � N � @  � O � P � P  � P � @  � Q � S  � S �1  � ��g��nameg��cpu-endiannessg�� documentationf��Return the endianness for CPU.�C8R7;<\]^_`>abc4d:*e(��������h���}��] 4�5"��45$�� C4�5$�� C45$�� C4�5$�� C45$�� C45$�� C4  5$�� C4  5$�� C4 5$�� C 64455$��44�5455$��C"8"4�����u������g��triplet  ��g��cpu ���g��filenamef��system/base/target.scm U  W W   \  \   \  X  c $ c  ( c , X  0 d 4 d  8 d < X  @ f D f  H f L X  P h T h  X h \ X  ` i d i  h i l X  p j v j  x j | X  � k � k  � k � X  � l � l  � l � X  � m  � m  � X  � X  � X  � X  � X  � Y  � Y  � Y / � Y  � X �4  � ��g��nameg��triplet-pointer-sizeg�� documentationf��1Return the size of pointers in bytes for TRIPLET.�C9Rfg��������h������]� 4�-56������x�������g��t  ��g��filenamef��system/base/target.scm o  p   p �   ��g��nameg�� triplet-cpu�C7Rgf�����h(������] 4�-5�4�-56��������������g��t  !�g��start !��g��filenamef��system/base/target.scm r  s  s  s   t  ! t �  ! ��g��nameg��triplet-vendor�ChRgf��������h ������] 4�-4�-55�6�������g��t  �g��start  ��g��filenamef��system/base/target.scm v  w  w +  w '  w   w   w  x �  ��g��nameg�� triplet-os�CeR+������h������]�[C���������g��filenamef��system/base/target.scm { �   ��g��nameg�� target-typeg�� documentationf��<Return the GNU configuration triplet of the target platform.�CR7���h������]�45�6������������g��filenamef��system/base/target.scm   �  � �  ��g��nameg�� target-cpug�� documentationf��+Return the CPU name of the target platform.�CRh���h������]�45�6������������g��filenamef��system/base/target.scm �  �  � �  ��g��nameg�� target-vendorg�� documentationf��.Return the vendor name of the target platform.�CRe����h������]�45�6������������g��filenamef��system/base/target.scm �  �  � �  ��g��nameg�� target-osg�� documentationf��8Return the operating system name of the target platform.�CR-��������h������]�[C���������g��filenamef��system/base/target.scm � �   ��g��nameg��target-endiannessg�� documentationf��4Return the endianness object of the target platform.�CR.������h������]�[C���������g��filenamef��system/base/target.scm � �   ��g��nameg��target-word-sizeg�� documentationf��7Return the word size, in bytes, of the target platform.�CRC"������g��m  ,��g��filenamef��system/base/target.scm   - '  / '  1 '  3 '  6 $ 7 )  D ) E *  J * ' R *  U * V +  c +  -  4  < U S o @ r 4 v  {   �  � t � F � �  H ���C6�����2.0/ccache/system/base/compile.go�������������������������������������������������������������������0000644�����������������00000034101�15146341264�0012473 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0)8������]��4�h ������]� g��guile � g��define-module* � � g��system g��base g��compile � g��filenameS f��system/base/compile.scm g��importsS g��syntax  � � g��language � � g��message � � g��vm � � g��ice-9 g��regex � � g��optargs � � g��receive ! � "!� #"� $g��exportsS %g��compiled-file-name &g�� compile-file 'g��compile-and-load (g��read-and-compile )g�� decompile *%&'()� +g��set-current-module ,+� -+� .g��error /f��"thunk may only be entered once: ~a 0g�� call-once 1g�� string-append 2f��.XXXXXX 3g��mkstemp! 4f��wb 5g��with-throw-handler 6g��catch 76� 86� 9g�� stat:perms :g��stat ;g��lognot <g��umask =g��chmod >g�� close-port ?g�� rename-file @g�� delete-file Ag��call-with-output-file/atomic Bg�� language? Cg��lookup-language Dg��ensure-language Eg�� system-error Fg��mkdir Gg��EEXIST Hg��ENOENT Ig��ensure-directory Jg��dirname Kg��throw Lg��%compile-fallback-path Mg��canonicalize-path Ng��string-prefix? Of��/ Pg�� string-length Qg�� string-ref Rg�� substring Sg��%load-compiled-extensions Tg�� string-null? Ug��warn Vf��!invalid %load-compiled-extensions Wf��.go Xg�� output-fileS YX  Zg��fromS [Z  \g��toS ]\  ^g��envS _^  `g��optsS a`  bg��canonicalizationS cb  dY[]_ac� eg��current-language fg��objcode gg��default-environment hg��relative ig�� %file-port-name-canonicalization jf��,failed to create path for auto-compiled file kg��open-input-file lg�� file-encoding mg��set-port-encoding! nf��UTF-8 og��language-printer pZ  q\  r^  s`  tb  upqrst� vg��value wg��current-module xg��map yg��cdr zg��lookup-compilation-order {f��no way to compile |f��to }g��compile-passes ~g�� compile-fold g��language-joiner �g��reverse �g��find-language-joint �f��BMultiple expressions read and compiled, but language has no joiner �g��default-language-joiner �g��language-reader �g�� eof-object? �g��language-parser �g��read-and-parse �pqrs� �g�� parameter? �� �� �g�� scm-error �g��wrong-type-arg �f�� parameterize �f��Not a parameter: ~S �g��memq �g��warningsS �g��for-each �g��lookup-warning-type �g��warning �g��unsupported-warning �g��lookup-decompilation-order �f��no way to decompile �g��decompile-passes �g��decompile-fold �^  �[]s� �g��assemblyC�5����hp+�����]4    #$*5�4-�>��"��G���./���h(���r���]�M$��4L�>��"��G��"���NC���j�������g��filenamef��system/base/compile.scm +   , -  -   -  # . �  % ���C����h���J���]�C����B�������g��filenamef��system/base/compile.scm 0 �   ���C./������h(���r���]�M$��4L�>��"��G��"���NC���j�������g��filenamef��system/base/compile.scm +   , -  -   -  # . �  % ���C���hX������] H�O�4�O�>���"��G��V4�>���X4>���"��G��CX4>���"��G��F�����������g��thunk  T�g��entered  T��g��filenamef��system/base/compile.scm (  )   * �  T ��g��nameg�� call-once�C0R12340589:�����h���Z���]�4L�56���R�������g��filenamef��system/base/compile.scm =   = < = 0�  ���C����h���_���-��1��3�C�����W�������g��args ��g��filenamef��system/base/compile.scm = � ���C;<=>?� ���hx������]4LL>��"��G��4LO�5��$���"�� 445�5��4L �>��"��G���4L>��"��G��LL�6����������g��t # >�g��perms > [��g��filenamef��system/base/compile.scm 9  :  =  # =  2 >  5 > $ ; >  > = A ? K ?  P ? \ @ u A �  u ���C>@����h(���o���-��1��3�4L>��"��G��L�6�������g�������g��args !��g��filenamef��system/base/compile.scm B C ! D � ! ���C������h ���R���]�L�LLLLO�LLO�6�J�������g��filenamef��system/base/compile.scm 7   8 �   ���C���h@���"��-�.�,�3�#��4�545�O�6��������g��filename >�g��proc >�g�� reference  >�g��template   >�g��tmp  ) >��g��filenamef��system/base/compile.scm 3  4   4 +  4   4  ! 5  ' 5 ! ) 5  ) 4  > 6 � >  ��g��nameg��call-with-output-file/atomic�CARBC���h������]4�5$���C�6���������g��x  ��g��filenamef��system/base/compile.scm F  G  G   I �   ��g��nameg��ensure-language�CDR6EF�����h���R���]�L�6J�������g��filenamef��system/base/compile.scm Q   R �   ���CGHIJK��������hX�����] $��"��$��C$��44L�5>��"��G��L�6�6������������g��k  R�g��subr  R�g��fmt   R�g��args   R�g��rest   R�g��errno   R��g��filenamef��system/base/compile.scm S   T  T  T %  T   V  U  # Z ' U  ( [ + [  6 [ D \ R ^ �  R ���C�h������]�O��O�6���������g��dir  ��g��filenamef��system/base/compile.scm O  P  P �   ��g��nameg��ensure-directory�CIRL1MNOPQRSTUVW8IJ��������h���]���]�4L�56���U�������g��filenamef��system/base/compile.scm �   � 4 � "�  ���C�h���`���-��1��3�C�����X�������g��args ��g��filenamef��system/base/compile.scm � � ���C�����h�����] $��44�545$��"��B45 $��24 5:$��44 54 55"��"�� $��"��4  5$��4   >��"��G�� "�� 54O�5$��CCC������g��file  ��g��canon  n�g��t q ��g��f � ���g��filenamef��system/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 � | � }  �   �   � �  � � �$  � ��g��nameg��compiled-file-name�C%Rdefghi%.jklmnIJAoD(^Z\`����h0������]44L554L�LLLL5 �6��������������g��port  )��g��filenamef��system/base/compile.scm �   �  �   �  � ) � �  ) ���C��h�����-�/���0���3� #��#��45�#��#�� 45#��#��Y$��"��!4�5$��"�� 4 �54 �54 5 4  $�� "�� >��"��G��445>��"��G��4O��>��"��G��ZCZF����~������g��file  ��g�� output-file  ��g��from   ��g��to   ��g��env   ��g��opts   ��g��canonicalization   ��g��t  n ��g��comp  � ��g��in  � ��g��enc � ��� g��filenamef��system/base/compile.scm � # �  1 �  : �  I �  S � ) a �  h � ! n �  } �  � �  � �  � �  � �  � �  � �  � �  � �  � �  � � % � �  � �  � �  � �  � � �  � g�� output-fileS g��fromS g��toS g��envS g��optsS g��canonicalizationS ���g��nameg�� compile-file�C&Ruevwhi(kZ\`^� ��hx���n��-�/���0���3�#��45�#��#��45�#��#��Y44�5    > ��ZCZF�����f������g��file  s�g��from  s�g��to   s�g��env   s�g��opts   s�g��canonicalization   s��g��filenamef��system/base/compile.scm �  � , ( � D 1 � > � 8 H � - Q �  T �  o � �  s g��fromS g��toS g��envS g��optsS g��canonicalizationS ���g��nameg��compile-and-load�C'Rxyz.{|�������h0������] 4�5$��"�� 4�56��������g��from  /�g��to  /�g��opts   /�g��t   -��g��filenamef��system/base/compile.scm �  �  �   � " �  & � + * � / � �  / ��g��nameg��compile-passes�C}R��hP���8��]�(��D4�L�>�� G��$��"���"���0������g��passes  M�g��x  M�g��e   M�g��cenv   M�g��first?   M�g��x  M�g��e  M�g��new-cenv  M��g��filenamef��system/base/compile.scm �   �   �   �  � !  � # �  , �  6 �  M � �  M ��g��nameg��lp�C�����h ������] O�Q��6��������g��passes  �g��exp  �g��env   �g��opts   �g��lp  ��g��filenamef��system/base/compile.scm � � �   ��g��nameg�� compile-fold�C~Rz.{|��������hh���W��]"��&(��C45$��C"44�5$��"�� 4�55"������O������g��from  b�g��to  b�g��in   ,�g��lang   ,�g��t  8 V��g��filenamef��system/base/compile.scm �  �  �   �  �  �  # �  , � , �  - �  0 �  8 �  G �  K � # O � < S �  X �  b � �  b ��g��nameg��find-language-joint�CR.�����h(������]"��L�6�$���(���C""ޯ�������g��exps  (�g��env  (��g��filenamef��system/base/compile.scm �  �  �   �   �  �   � !  �   � �  ( ���C������h������]�O�C������y�������g��lang  ��g��filenamef��system/base/compile.scm � �  ��g��nameg��default-language-joiner�CR��h8��� ��]44�5545$��C4�5$��6C������g��lang  8�g��port  8�g��cenv   8�g��exp   8�g��t  ' 8��g��filenamef��system/base/compile.scm �  �  �   �  �   �   �  ! �  ' �  5 � 0�  8 ��g��nameg��read-and-parse�CRefgDe>Z\^g`~}�������h�����]#445�L545$��b4L>��"��G��44L5$��"��4L54�55 L L $��"��4 L5 L6 4445�LL5L>�� G���"J������g��exps  ��g��env  ��g��cenv   ��g��x   ��g��t  9 Q�g��jexp  � ��g��jenv  � ��g��jcenv  � ���g��filenamef��system/base/compile.scm �   �   � #  �   �  �   �  �  2 �  3 �  9 �  H �  R �  \ �  l �  s � %  �  � �  � � � � 0 � � � �  � �  � �  � � �  � ��g��nameg��lp�C� ����h�����-�/���0���3� #��45�#��#�� 45#��45454545$��"��4   �>��"��G�� 4 5Y O�  �Q� 4 >��ZCZF�������g��port  ��g��from  ��g��to   ��g��env   ��g��opts   ��g��from  P ��g��to  P ��g��joint  ] ��g��t-3ee4cd0d75-1ff  a ��g��lp � ��� g��filenamef��system/base/compile.scm �  � ! ( �  1 � @ � ! C �  J � P �  U �  ] �  a �  � �  � �  � � �  � g��fromS g��toS g��envS g��optsS ���g��nameg��read-and-compile�C(Revg�����h ������] 4�5$��C�6����������g��w  �g��t ��g��filenamef��system/base/compile.scm �   �  �   � #  � �   ���C~}� ���h�����-�/���0���3�#��45�#��#�� 45#��45$��!4>��"��G��"���4 4 5�>�� G�C��������g��x  ��g��from  ��g��to   ��g��env   ��g��opts   ��g��warnings  K x�g��warnings  X q�g��exp  � ��g��env  � ��g��cenv  � ��� g��filenamef��system/base/compile.scm �  �  ( �  1 �  @ �  C �  K �  P �  T �  W �  X �  [ � y �  | �  � �  � � �  � g��fromS g��toS g��envS g��optsS ���g��nameg��compile�CRxy.|����h0������] 4�5$��"�� 4�56��������g��from  /�g��to  /�g��opts   /�g��t   -��g��filenamef��system/base/compile.scm         "   &  - *  /  �  / ��g��nameg��decompile-passes�CR�����h8�����]�(��D4�>�� G��6������������g��passes  2�g��exp  2�g��env   2�g��opts   2�g��exp   2�g��env   2��g��filenamef��system/base/compile.scm                 !   *   2  �  2 ��g��nameg��decompile-fold�CRv�������hP�����-�/���0���3�#��#��#��#��45�6�� ������g��x  N�g��env  N�g��from   N�g��to   N�g��opts   N��g��filenamef��system/base/compile.scm  $   .   7   <   N  �  N g��envS g��fromS g��toS g��optsS ���g��nameg�� decompile�C)RC�������g��m  ,��g��filenamef��system/base/compile.scm    (  3  F c O ) l  �  �  �  � r �  � h � # � 'L � (  )  +n  �  +p ���C6����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/system/base/pmatch.go��������������������������������������������������������������������0000644�����������������00000017104�15146341264�0012323 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0,������]�4���h3������]� g��guile � g��define-module* � � g��system g��base g��pmatch � g��filenameS f��system/base/pmatch.scm g��exportsS � g��set-current-module � � g��make-syntax-transformer � � g��macro g�� $sc-dispatch � � g��any g��each-any   g�� syntax-object g��let g��top � g��ribcage !g��dummy "g��e #g��cs $!"#� %g��m-3c4e5dc25-86 &%� '&� (f��l-3c4e5dc25-8b )f��l-3c4e5dc25-8c *f��l-3c4e5dc25-8d +()*� , $'+� - � .g��x /.� 0&� 1f��l-3c4e5dc25-88 21� 3 /02� 4,-3� 5g��hygiene 65� 746� 8g��v 9846� :g��pmatch1 ;:46� <g��syntax-violation =<� ><� ?f��-source expression failed to match any pattern @� Ag��if B!8� Cg��m-3c4e5dc25-92 DC� ED� Ff��l-3c4e5dc25-97 Gf��l-3c4e5dc25-98 HFG� I BEH� JD� Kf��l-3c4e5dc25-94 LK� M /JL� NI-M� OAN6� PN6� QOPP� Rg��free-id Sg��else T-M� UST6� VRU� WV XW� Yg��e0 Z!8Y"� [D� \f��l-3c4e5dc25-9c ]f��l-3c4e5dc25-9d ^f��l-3c4e5dc25-9e _f��l-3c4e5dc25-9f `\]^_� a Z[`� ba-M� cb6� dg��guard edT6� fRe� gf hg ih ji kj lk mg��pat ng��g o!8mnY"#� pD� qf��l-3c4e5dc25-a6 rf��l-3c4e5dc25-a7 sf��l-3c4e5dc25-a8 tf��l-3c4e5dc25-a9 uf��l-3c4e5dc25-aa vf��l-3c4e5dc25-ab wf��l-3c4e5dc25-ac xqrstuvw� y opx� zy-M� {z6� |g��fk }|z6� ~g��lambda ~z6� �:z6� �g��ppat �z6� �Az6� �g��and �z6� �}� �� � � � �!8mY"#� �D� �f��l-3c4e5dc25-b8 �f��l-3c4e5dc25-b9 �f��l-3c4e5dc25-ba �f��l-3c4e5dc25-bb �f��l-3c4e5dc25-bc �f��l-3c4e5dc25-bd �� � � �-M� �6� �|6� �~6� �:6� �6� �� �� �g��_ �g��m-3c4e5dc25-c6 �� �� �f��l-3c4e5dc25-c8 �� � /� �-� �6� �R� �� �� �g��kt �g��kf �!8� �� �f��l-3c4e5dc25-d4 �f��l-3c4e5dc25-d5 �f��l-3c4e5dc25-d6 �f��l-3c4e5dc25-d7 �� � � �-� �A6� �g��null? �6� �g��quote �6� �R� �� �� �g��lit �!8� �� �f��l-3c4e5dc25-dd �f��l-3c4e5dc25-de �f��l-3c4e5dc25-df �f��l-3c4e5dc25-e0 �f��l-3c4e5dc25-e1 �� � � �-� �A6� �g��equal? �6� �6� �g��unquote �6� �R� �� �� �g��var �!8� �f��l-3c4e5dc25-e8 �f��l-3c4e5dc25-e9 �f��l-3c4e5dc25-ea �f��l-3c4e5dc25-eb �f��l-3c4e5dc25-ec �� � � �-� �6� � �� �g��y �!8.� �� �f��l-3c4e5dc25-f3 �f��l-3c4e5dc25-f4 �f��l-3c4e5dc25-f5 �f��l-3c4e5dc25-f6 �f��l-3c4e5dc25-f7 �f��l-3c4e5dc25-f8 �� � � �-� �A6� �g��pair? �6� �6� �g��vx �6� �g��car �6� �g��vy �6� �g��cdr �6� �6� �� �f��l-3c4e5dc25-100 �f��l-3c4e5dc25-101 �f��l-3c4e5dc25-102 �f��l-3c4e5dc25-103 �f��l-3c4e5dc25-104 �� � � �-� �A6� �g��eq? �6� 6�C�5hx ��Z���]4     5�4�>��"��G���479;��h ���L���]���C������D�������g��dummy  �g��e  �g��cs   ��   ���C>?�����h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��system/base/pmatch.scm ' �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��eg��csg��...���C5R4:@Q������h���<���]C���4�������g��dummy  �g��v  ��   ���CXc����h���[���]C���S�������g��dummy  �g��v  �g��e0   �g��e   ��  ���Cl{}� ������h@������]����C�������g��dummy  @�g��v  @�g��pat   @�g��g   @�g��e0   @�g��e   @�g��cs   @��  @ ���C���h8���|���]����C����t�������g��dummy  4�g��v  4�g��pat   4�g��e0   4�g��e   4�g��cs   4��  4 ���C>?� ����hh���q��]!4�5$��@4�5$��@4�5$��@4�5$�� @  �6�i������g��x  g�g��tmp g�g��tmp  " g�g��tmp  9 g�g��tmp  P g��g��filenamef��system/base/pmatch.scm + �  g ��g�� macro-typeg�� syntax-rulesg��patternsg��v�g��vg��elseg��e0g��eg��...��g��vg��patg��guardg��gg��...�g��e0g��eg��...�g��csg��...�g��vg��patg��e0g��eg��...�g��csg��...���C5:R4����h���\���]C���T�������g��dummy  �g��v  �g��kt   �g��kf   ��   ���C��h���\���]��C�����T�������g��dummy  �g��v  �g��kt   �g��kf   ��   ���C��������h ���m���]���C������e�������g��dummy  �g��v  �g��lit   �g��kt   �g��kf   ��   ���C���h���m���]���C����e�������g��dummy  �g��v  �g��var   �g��kt   �g��kf   ��   ���C� ����hP���z���]����������C�������r�������g��dummy  I�g��v  I�g��x   I�g��y   I�g��kt   I�g��kf   I��  I ���C��������h ���m���]���C������e�������g��dummy  �g��v  �g��lit   �g��kt   �g��kf   ��   ���C>?����h�����]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$�� @4� 5$�� @�6���������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  ~ ���g��filenamef��system/base/pmatch.scm 8 �  � ��g�� macro-typeg�� syntax-rulesg��patternsg��vg��_g��ktg��kf�g��vg��ktg��kf�g��vg��quoteg��lit�g��ktg��kf�g��vg��unquoteg��var�g��ktg��kf�g��vg��xg��yg��ktg��kf�g��vg��litg��ktg��kf���C5RC�����R�������g��m  (��g��filenamef��system/base/pmatch.scm  $ �  s ���C6�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/system/base/types.go���������������������������������������������������������������������0000644�����������������00000300005�15146341264�0012206 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0�����] �4��������h������]� g��guile � g��define-module* � � g��system g��base g��types � g��filenameS f��system/base/types.scm g��importsS g��rnrs g�� bytevectors  � � g��io g��ports  � � g��srfi g��srfi-1 � � g��srfi-9 � � g��gnu � � g��srfi-11 � ! � "g��srfi-26 #"� $#� %g��srfi-60 &%� '&� (g��ice-9 )g��match *()� +*� ,g��iconv -(,� .-� /g��format 0(/� 10� 2g��vlist 3(2� 43� 5g��foreign 65� 76� 8!$'+.147�  9g��exportsS :g�� %word-size ;g��memory-backend <g��memory-backend? =g��%ffi-memory-backend >g��dereference-word ?g�� memory-port @g��type-number->name Ag��inferior-object? Bg��inferior-object-kind Cg��inferior-object-sub-kind Dg��inferior-object-address Eg��inferior-fluid? Fg��inferior-fluid-number Gg��inferior-struct? Hg��inferior-struct-name Ig��inferior-struct-fields Jg�� scm->object K:;<=>?@ABCDEFGHIJ� Lg��set-current-module ML� NL� Og��sizeof Pg��* Qg��<memory-backend> Rg��%memory-backend-procedure Sg��make-syntax-transformer TS� US� Vg��macro Wg�� $sc-dispatch XW� YW� Zg��_ [g��any \Z[[[� ]g�� syntax-object ^g��lambda _g�� m-1f6d4c535-6 `g��top a_`� bg��ribcage cg�� t-1f6d4c535-3 dg�� t-1f6d4c535-4 eg�� t-1f6d4c535-5 fcde� gaaa� hf�� l-1f6d4c535-b if�� l-1f6d4c535-c jf�� l-1f6d4c535-d khij� lbfgk� mb� ng��x on� pa� qf�� l-1f6d4c535-8 rq� sbopr� tg��shift ug�� proc-name vg��args wuv� x`� yxx� zf��l-1e8ba8b5a-60 {f��l-1e8ba8b5a-61 |z{� }bwy|� ~g��key g��value �g��name �g��formals �g��body �~� �xxxxx� �f��l-1e8ba8b5a-53 �f��l-1e8ba8b5a-54 �f��l-1e8ba8b5a-55 �f��l-1e8ba8b5a-56 �f��l-1e8ba8b5a-57 �� �b� �g��make-procedure-name �� �x� �f��l-1e8ba8b5a-43 �� �b� �x� �f��l-1e8ba8b5a-42 �� �bo� �almstmmmm}�  �g��hygiene �� �]^� �g��peek �xlms� �� �]� �g��open �]� �g�� type-name �]� �� �g�� make-struct �g�� m-1f6d4c535-1 �`� �g��t-1e8ba8b5a-133 �g��t-1e8ba8b5a-132 �g��t-1e8ba8b5a-131 �� �g��m-1e8ba8b5a-134 �`� �� �f��l-1e8ba8b5a-138 �f��l-1e8ba8b5a-139 �f��l-1e8ba8b5a-13a �� �b� �g�� ctor-args �� �f��l-1e8ba8b5a-120 �� �b� �g��ctor �g��field �� �f��l-1e8ba8b5a-11c �f��l-1e8ba8b5a-11d �� �by� �g��form �g��constructor-spec �g�� field-names �� �xxxx� �f��l-1e8ba8b5a-111 �f��l-1e8ba8b5a-112 �f��l-1e8ba8b5a-113 �f��l-1e8ba8b5a-114 �� �b� �g�� record-layout �g��functional-setters �g��setters �g��copier �g��getters �g�� constructor �g��getter-identifiers �g��field-identifiers �� �xxxxxxxx� �f��l-1e8ba8b5a-e9 �f��l-1e8ba8b5a-e7 �f��l-1e8ba8b5a-e5 �f��l-1e8ba8b5a-e3 �f��l-1e8ba8b5a-e1 �f��l-1e8ba8b5a-df �f��l-1e8ba8b5a-dd �f��l-1e8ba8b5a-db �� �b� �f��l-1e8ba8b5a-da �� �bo� �lmstmmmmm� �]� �]Q� �] � �� �� �g��each-any �Z挤 �g��syntax-violation �� �� �f��Wrong number of arguments �g�� identifier? �� �� �xms� �]R� �� �� �f��-source expression failed to match any pattern �g��record-type-vtable �� �� �g��pwpwpw �g��default-record-printer �� �� �� �g��set-struct-vtable-name! �� �� �g��vtable-offset-user �� � g��%memory-backend?-procedure Z[� g��m-1f6d4c535-17 `� g��t-1f6d4c535-16 � �  f��l-1f6d4c535-1c   �  b �  f��l-1f6d4c535-19   � bo �  mtmmmm}�  ]^� g��obj g��t-1e8ba8b5a-224 g��t-1e8ba8b5a-21e g��t-1e8ba8b5a-21f g��t-1e8ba8b5a-220 g��t-1e8ba8b5a-223 g��t-1e8ba8b5a-222 g��t-1e8ba8b5a-221 � g��m-1e8ba8b5a-225 `� � f��l-1e8ba8b5a-229 f��l-1e8ba8b5a-22a f��l-1e8ba8b5a-22b  f��l-1e8ba8b5a-22c !f��l-1e8ba8b5a-22d "f��l-1e8ba8b5a-22e #f��l-1e8ba8b5a-22f $ !"#� %b$� &g�� copier-id '&� (f��l-1e8ba8b5a-21c )(� *b')� +g�� ctor-name ,+� -f��l-1e8ba8b5a-214 .-� /b,.� 0� 1f��l-1e8ba8b5a-212 21� 3b02� 4g��layout 54� 6f��l-1e8ba8b5a-210 76� 8b57� 9g�� immutable? :9� ;f��l-1e8ba8b5a-20e <;� =b:<� >g�� field-count ?>� @f��l-1e8ba8b5a-20c A@� Bb?A� Cg�� getter-ids DC� Ef��l-1e8ba8b5a-209 FE� GbDF� Hg�� field-ids IH� Jf��l-1e8ba8b5a-206 KJ� LbIK� Mg��predicate-name Ng�� field-spec O9MN� Pxxxxxx� Qf��l-1e8ba8b5a-1f9 Rf��l-1e8ba8b5a-1fa Sf��l-1e8ba8b5a-1fb Tf��l-1e8ba8b5a-1fc Uf��l-1e8ba8b5a-1fd Vf��l-1e8ba8b5a-1fe WQRSTUV� XbOPW� Y mtm%mmmm*m/m3m8m=mBmGmLX� Z]Y� [Z� \g��and ]]\Y� ^g��struct? _]^Y� `_Z� ag��eq? b]aY� cg�� struct-vtable d]cY� edZ� fx m� g]Qf� hbeg� i]`h� j[i� kxm� l]k� mg��throw-bad-struct nm� om� pg��memory-backend-peek qg��%memory-backend-peek-procedure rg��free-id sg�� %%on-error tg��m-1f6d4c535-23 ut`� vu� wf��l-1f6d4c535-25 xw� ybovx� zumytmmmm}�  {]sz� |r{� }|[� ~g��%%type g��t-1e8ba8b5a-14b g��t-1e8ba8b5a-14c g��t-1e8ba8b5a-14d g��t-1e8ba8b5a-14e g��t-1e8ba8b5a-14f g��t-1e8ba8b5a-150 g��t-1e8ba8b5a-151 � g��m-1e8ba8b5a-152 `� � f��l-1e8ba8b5a-156 f��l-1e8ba8b5a-157 f��l-1e8ba8b5a-158 f��l-1e8ba8b5a-159 f��l-1e8ba8b5a-15a f��l-1e8ba8b5a-15b f��l-1e8ba8b5a-15c � b� g��getter g��index � f��l-1e8ba8b5a-149 f��l-1e8ba8b5a-14a � by� C&� xxx� f��l-1e8ba8b5a-144 f��l-1e8ba8b5a-145 f��l-1e8ba8b5a-146 � b� mytmmmmm� ]~� r� Z}[� g��ck g��err g��s � uu� f��l-1f6d4c535-28 f��l-1f6d4c535-29 � b� umytmmmm}�  ]� g��quote ]� xmy� ]Q� � � g��%%index ]� r� Z}[� f��l-1f6d4c535-2d f��l-1f6d4c535-2e � b� umytmmmm}�  ]� ]� my� ] � � � g��%%copier ]� r� Z}[� f��l-1f6d4c535-32 f��l-1f6d4c535-33 � b� umytmmmm}�  ]� ]� g��%%<memory-backend>-set-fields xmy� ]� � � g��t-1f6d4c535-22 � f��l-1f6d4c535-37 � bv� umytmmmm}�  ]^� mytmmmmm� ]� � g��if ]� ]a� ]c� � xmy� ]Q� � g�� struct-ref ]� my� ] � � ]m� ]� ]p� � � � � xmy� ]q� g��memory-backend-open g��%memory-backend-open-procedure g��m-1f6d4c535-3e `� � f��l-1f6d4c535-40 � bo� mtmmmm}�  ]s� r� �[� mtmmmmm� ]~� r� Z�[� � f��l-1f6d4c535-43 f��l-1f6d4c535-44 �  b�   mtmmmm}�   ] �  ] �  x m� ]Q �  � � ]� r� Z�[� f��l-1f6d4c535-48 f��l-1f6d4c535-49 � b� mtmmmm}�  ]� ]� m� ] � � � ]�  r� !Z� [� "f��l-1f6d4c535-4d #f��l-1f6d4c535-4e $"#� %b$� &%mtmmmm}�  ']&� (]&� )x%m� *])� +(*� ,+� -g��t-1f6d4c535-3d .-� /f��l-1f6d4c535-52 0/� 1b.0� 21mtmmmm}�  3]^2� 41mtmmmmm� 5]4� 65� 7]4� 8]a4� 9]c4� :95� ;x1m� <]Q;� =8:<� >]4� ?1m� @] ?� A>5@� B]m4� C]4� D];� ECD� FB5E� G7=AF� H36G� Ixm� J]I� Kg��memory-backend-type-name Lg��#%memory-backend-type-name-procedure Mg��m-1f6d4c535-59 NM`� ON� Pf��l-1f6d4c535-5b QP� RboOQ� SNmRtmmmm}�  T]sS� UrT� VU[� WmRtmmmmm� X]~W� YrX� ZZVY[� [NN� \f��l-1f6d4c535-5e ]f��l-1f6d4c535-5f ^\]� _b[^� `N_mRtmmmm}�  a]`� b]`� cx_mR� d]Qc� ebd� fe� g]W� hrg� iZVh[� jf��l-1f6d4c535-63 kf��l-1f6d4c535-64 ljk� mb[l� nNmmRtmmmm}�  o]n� p]n� qmmR� r] q� spr� ts� u]W� vru� wZVv[� xf��l-1f6d4c535-68 yf��l-1f6d4c535-69 zxy� {b[z� |N{mRtmmmm}�  }]|� ~]|� x{mR� ]� ~� � g��t-1f6d4c535-58 � f��l-1f6d4c535-6d � bO� NmRtmmmm}�  ]^� mRtmmmmm� ]� � ]� ]a� ]c� � xmR� ]Q� � ]� mR� ] � � ]m� ]� ]K� � � � � xmR� ]L� g��each [[� � [ [ [ g�� %%set-fields g��dummy g��check? g��expr � g��m-1f6d4c535-74 `� � f��l-1f6d4c535-79 f��l-1f6d4c535-7a f��l-1f6d4c535-7b f��l-1f6d4c535-7c f��l-1f6d4c535-7d � b� � f��l-1f6d4c535-76 � bo� g��t-1e8ba8b5a-16a g��t-1e8ba8b5a-16c g��t-1e8ba8b5a-16b � g��m-1e8ba8b5a-16d `� � f��l-1e8ba8b5a-171 f��l-1e8ba8b5a-172 f��l-1e8ba8b5a-173 � b� f��l-1e8ba8b5a-167 f��l-1e8ba8b5a-168 f��l-1e8ba8b5a-169 � b� mtmmmm�  ]� xm� ]Q� ]p� ]� ]K� � g��map � � g��list g�� make-pointer g��pointer->bytevector g��bytevector-uint-ref g��native-endianness g��open-bytevector-input-port g��make-custom-binary-input-port f�� ffi-memory g��bytevector-copy! g��setvbuf g��_IONBF g��% dereference-word-procedure Z[[� g��syntax-parameterize g��m-1f6d4c535-c6 `� g��t-1f6d4c535-c4 g��t-1f6d4c535-c5 � � f��l-1f6d4c535-cb f��l-1f6d4c535-cc � b� � f��l-1f6d4c535-c8 � bo� f��l-bde397a-1eaf f��l-bde397a-1eb0 � bwy� � f��l-bde397a-1ea6 f��l-bde397a-1ea7 f��l-bde397a-1ea8 � b� g��prefix � xx� f��l-bde397a-1e9a �f��l-bde397a-1e98 �� b� f��l-bde397a-1e97 � bo� mtmmmm�  � ]�  xm�  ]> �  g��identifier-syntax  ] �  ] �   �  � � ]^� g��backend ] � g��address ] � � f��*Return the word at ADDRESS, using BACKEND. ] � g��let ] � ] � ]p � � � �  � ! � "!� #"� $� %� &xm� ']&� ([[[� )� *g��m-1f6d4c535-e9 +*`� ,+xx� -f��l-1f6d4c535-ee .f��l-1f6d4c535-ef /f��l-1f6d4c535-f0 0-./� 1b),0� 2+� 3f��l-1f6d4c535-eb 43� 5bo24� 6x1m5� 7]6� 8]6� 9]6� :]6� ;:� <[[[[� =g��size >=� ?+xxx� @f��l-1f6d4c535-f5 Af��l-1f6d4c535-f6 Bf��l-1f6d4c535-f7 Cf��l-1f6d4c535-f8 D@ABC� Eb>?D� FxEm5� G]F� Hg��zero? I]HF� J]F� K]F� Lg��vu8 ��������j��� M]LF� NKM� OJN� P]F� Q]F� R]F� Sg��get-bytevector-n Tg��get-word Ug��% type-number->name-procedure Vg��m-1f6d4c535-104 WV`� Xg��t-1f6d4c535-101 Yg��t-1f6d4c535-102 Zg��t-1f6d4c535-103 [XYZ� \WWW� ]f��l-1f6d4c535-109 ^f��l-1f6d4c535-10a _f��l-1f6d4c535-10b `]^_� ab[\`� bW� cf��l-1f6d4c535-106 dc� ebobd� fWametmmmm�  g]f� hxame� i]@h� j] f� k]Uh� ljk� mil� nm� o]^f� p]h� qg��kind r]qh� sg��number t]sh� uprt� vf��yReturn the name of the type NUMBER of KIND, where KIND is one of 'smob or 'port, or #f if the information is unavailable. w]vh� x]h� yg��proc z]yh� {]Kh� |{p� }z|� ~}� ]\h� zrt� z� x~� ouw� gn� xme� ]U� g��match-cell-words g�� bytevector g��m-1f6d4c535-12d `� � f��l-1f6d4c535-12f � bo� xm� ]� r� [[� 挤 [[[� g��port g��len g��rest � xxxxx� f��l-1f6d4c535-132 f��l-1f6d4c535-133 f��l-1f6d4c535-134 f��l-1f6d4c535-135 f��l-1f6d4c535-136 f��l-1f6d4c535-137 � b� xm� ]� ]S� g�� remainder ]� g��modulo ]� ]:� � g��unless ]� ]H� � g��- ]� � � ]� [挤 [[[� � xxxx� f��l-1f6d4c535-140 f��l-1f6d4c535-141 f��l-1f6d4c535-142 f��l-1f6d4c535-143 f��l-1f6d4c535-144 � b� xm� ]� ]T� ]� [[[� g��match-bit-pattern g��|| g��m-1f6d4c535-152 `� � f��l-1f6d4c535-154 � bo� xm� ]� r� [[� g��& ]� r� g��= ]� r� [[� [[[[� g��bits g��a g��b g��n g��c g�� consequent g�� alternate � xxxxxxx� f��l-1f6d4c535-157 f��l-1f6d4c535-158 f��l-1f6d4c535-159 f��l-1f6d4c535-15a f��l-1f6d4c535-15b f��l-1f6d4c535-15c f��l-1f6d4c535-15d f��l-1f6d4c535-15e � b� xm� ]� g��tag ]� g��logand ]� ]� ]� � g�� bitwise-not ]� [[[� [[[[� n� xxxxxx� f��l-1f6d4c535-168 f��l-1f6d4c535-169 f��l-1f6d4c535-16a f��l-1f6d4c535-16b f��l-1f6d4c535-16c f��l-1f6d4c535-16d �f��l-1f6d4c535-16e �� b� xm� ]� ]� ]� ]� ]�  ]Z�  r �   [[�  [[ [[�  � xxxxx� f��l-1f6d4c535-177 f��l-1f6d4c535-178 f��l-1f6d4c535-179 f��l-1f6d4c535-17a f��l-1f6d4c535-17b f��l-1f6d4c535-17c � b � xm� ]� ]� ]� ]� ]� ([� [[[[� g��<<  � !f��l-1f6d4c535-184 "f��l-1f6d4c535-185 #f��l-1f6d4c535-186 $f��l-1f6d4c535-187 %f��l-1f6d4c535-188 &f��l-1f6d4c535-189 'f��l-1f6d4c535-18a (f��l-1f6d4c535-18b )!"#$%&'(� *b )� +x*m� ,]+� -]+� .g�� bitwise-and /].+� 0]+� 1g��expt 2]1+� 3] +� 4] +� 54� 6]+� 7]+� 8g��arithmetic-shift 9]8+� :g��match-cell-clauses ;[� <;挤 =[[[<� >g�� tag-pattern ?g��thing @>?� Ag��m-1f6d4c535-194 BA`� CBxxxxxx� Df��l-1f6d4c535-199 Ef��l-1f6d4c535-19a Ff��l-1f6d4c535-19b Gf��l-1f6d4c535-19c Hf��l-1f6d4c535-19d If��l-1f6d4c535-19e Jf��l-1f6d4c535-19f KDEFGHIJ� Lb@CK� MB� Nf��l-1f6d4c535-196 ON� PboMO� QxLmP� R]Q� S]Q� T]:Q� U[[[� Vg��inferior-object W� XBxx� Yf��l-1f6d4c535-1aa Zf��l-1f6d4c535-1ab [f��l-1f6d4c535-1ac \YZ[� ]bWX\� ^x]mP� _]V^� `]^� ag�� unmatched-tag b]a^� c`b� dg�� match-cell e� f[e g[f hg��pattern ih� jg��m-1f6d4c535-1b0 kj`� lkxxx� mf��l-1f6d4c535-1b5 nf��l-1f6d4c535-1b6 of��l-1f6d4c535-1b7 pf��l-1f6d4c535-1b8 qmnop� rbilq� sk� tf��l-1f6d4c535-1b2 ut� vbosu� wxrmv� x]w� yg��port* z]yw� {]w� |]Tw� }]:w� ~g��begin ]~w� g��match-scm-clauses 挤 [ [ g�� bit-pattern � g��m-1f6d4c535-1c0 `� xxxx� f��l-1f6d4c535-1c5 f��l-1f6d4c535-1c6 f��l-1f6d4c535-1c7 f��l-1f6d4c535-1c8 f��l-1f6d4c535-1c9 � b� � f��l-1f6d4c535-1c2 � bo� xm� ]� ]~� ]� � x� f��l-1f6d4c535-1d2 f��l-1f6d4c535-1d3 � b� xm� ]� g�� unmatched-scm ]� � g�� match-scm [ g��clauses � g��m-1f6d4c535-1d6 `� xx� f��l-1f6d4c535-1db f��l-1f6d4c535-1dc f��l-1f6d4c535-1dd � b� � f��l-1f6d4c535-1d8 � bo� xm� ]� g��bits* ]� ]� g��%tc2-int g�� %tc3-imm24 g�� %tc3-cons g�� %tc3-int1 g�� %tc3-int2 g�� %tc8-char g�� %tc8-flag g�� %tc3-struct g�� %tc7-symbol g�� %tc7-variable g�� %tc7-vector g�� %tc7-wvect g�� %tc7-string g�� %tc7-number g��%tc7-hashtable g�� %tc7-pointer g�� %tc7-fluid g��%tc7-stringbuf g��%tc7-dynamic-state g�� %tc7-frame g�� %tc7-objcode g��%tc7-vm g��%tc7-vm-continuation g��%tc7-bytevector g�� %tc7-program g�� %tc7-array g��%tc7-bitvector g�� %tc7-port g�� %tc7-smob g�� %tc16-bignum g�� %tc16-real g�� %tc16-complex g��%tc16-fraction g�� <stringbuf> g��%stringbuf-procedure g�� stringbuf g��m-1f6d4c535-1e6 `� g��t-1f6d4c535-1e5 � � f��l-1f6d4c535-1eb � b� f��l-1f6d4c535-1e8 � bo� mtmmmm}�  ]^� g��string xm� ]� � g��m-1f6d4c535-1e3 `� mtmmmmm� ]� ]� ] � � � xm� ]� g��pw � g��%stringbuf?-procedure g�� stringbuf? g��m-1f6d4c535-1f3 `� g��t-1f6d4c535-1f2 � � �f��l-1f6d4c535-1f8 �� b� f��l-1f6d4c535-1f5 � bo� mtmmmm}�  ]^� mtm%mmmm*m/m3m8m=mBmGmLX�  ]�   �  ]\�  ]^�    � ]a� ]c�  � xm� ]� �   �  � xm� ]� g��stringbuf-contents g��%stringbuf-contents-procedure g��m-1f6d4c535-1ff `� � f��l-1f6d4c535-201 � bo�  mtmmmm}�  !]s � "r!� #"[� $mtmmmmm� %]~$� &r%� 'Z#&[� (� )f��l-1f6d4c535-204 *f��l-1f6d4c535-205 +)*� ,b(+� -,mtmmmm}�  .]-� /]-� 0x,m� 1]0� 2/1� 32� 4]$� 5r4� 6Z#5[� 7f��l-1f6d4c535-209 8f��l-1f6d4c535-20a 978� :b(9� ;:mtmmmm}�  <];� =];� >:m� ?] >� @=?� A@� B]$� CrB� DZ#C[� Ef��l-1f6d4c535-20e Ff��l-1f6d4c535-20f GEF� Hb(G� IHmtmmmm}�  J]I� K]I� Lg��%%<stringbuf>-set-fields MxHm� N]LM� OKN� PO� Qg��t-1f6d4c535-1fe RQ� Sf��l-1f6d4c535-213 TS� UbRT� VUmtmmmm}�  W]^V� XUmtmmmmm� Y]X� ZY� []X� \]aX� ]]cX� ^]Y� _xUm� `]_� a\^`� b]X� cUm� d] c� ebYd� f]mX� g]X� h]_� igh� jfYi� k[aej� lWZk� mxm� n]m� og��m-1f6d4c535-21a po`� qp� rf��l-1f6d4c535-21f sf��l-1f6d4c535-220 tf��l-1f6d4c535-221 uf��l-1f6d4c535-222 vf��l-1f6d4c535-223 wrstuv� xbqw� yp� zf��l-1f6d4c535-21c {z� |boy{� }xm|tmmmm�  ~]}� xxm|� ]� ]� � g��set-record-type-printer! g��display f�� #<stringbuf  g��write f��#> g��<inferior-struct> g��%inferior-struct-procedure g��inferior-struct g��m-1f6d4c535-242 `� g��t-1f6d4c535-240 g��t-1f6d4c535-241 � � f��l-1f6d4c535-247 f��l-1f6d4c535-248 � b� � f��l-1f6d4c535-244 � bo� mtmmmm}�  ]^� xm� ]� g��fields ]� � g��m-1f6d4c535-23e `� mtmmmmm� ]� ]� ] � � � xm� ]� g��pwpw � g��%inferior-struct?-procedure g��m-1f6d4c535-251 `� g��t-1f6d4c535-250 � � f��l-1f6d4c535-256 � b� f��l-1f6d4c535-253 � bo� mtmmmm}�  ]^� mtm%mmmm*m/m3m8m=mBmGmLX� ]� � ]\� ]^� � ]a� ]c� � xm� ]� � � � xm� ]� g��%inferior-struct-name-procedure g��m-1f6d4c535-25d `� � f��l-1f6d4c535-25f � bo� mtmmmm}�  ]s� r� [� mtmmmmm� ]~� r� Z[� � f��l-1f6d4c535-262 f��l-1f6d4c535-263 � b� mtmmmm}�  ]� ]� xm� ]� � � ]� r� Z[� f��l-1f6d4c535-267 f��l-1f6d4c535-268 � b� mtmmmm}�  ]� ]� m� ] � � � ]� r� Z[� f��l-1f6d4c535-26c f��l-1f6d4c535-26d � b� mtmmmm}�  ]� ]� g��%%<inferior-struct>-set-fields xm� ]� �� �� g��t-1f6d4c535-25c � f��l-1f6d4c535-271 � b� mtmmmm}�  ]^�  mtmmmmm�  ] �   �  ] �  ]a � ]c �  � xm� ]�  � ] � m� ] �  � ]m � ] � ]H� �  �  �  � xm� ]�  g��!%inferior-struct-fields-procedure !g��m-1f6d4c535-278 "!`� #"� $f��l-1f6d4c535-27a %$� &bo#%� '"m&tmmmm}�  (]s'� )r(� *)[� +m&tmmmmm� ,]~+� -r,� .Z*-[� /""� 0f��l-1f6d4c535-27d 1f��l-1f6d4c535-27e 201� 3b/2� 4"3m&tmmmm}�  5]4� 6]4� 7x3m&� 8]7� 968� :9� ;]+� <r;� =Z*<[� >f��l-1f6d4c535-282 ?f��l-1f6d4c535-283 @>?� Ab/@� B"Am&tmmmm}�  C]B� D]B� EAm&� F] E� GDF� HG� I]+� JrI� KZ*J[� Lf��l-1f6d4c535-287 Mf��l-1f6d4c535-288 NLM� Ob/N� P"Om&tmmmm}�  Q]P� R]P� SxOm&� T]S� URT� VU� Wg��t-1f6d4c535-277 XW� Yf��l-1f6d4c535-28c ZY� [bX#Z� \"[m&tmmmm}�  ]]^\� ^[m&tmmmmm� _]^� `_� a]^� b]a^� c]c^� dc_� ex[m&� f]e� gbdf� h]^� i[m&� j] i� kh_j� l]m^� m]^� n]Ie� omn� pl_o� qagkp� r]`q� sxm&� t] s� ug��m-1f6d4c535-293 vu`� wv� xf��l-1f6d4c535-298 yf��l-1f6d4c535-299 zf��l-1f6d4c535-29a {f��l-1f6d4c535-29b |f��l-1f6d4c535-29c }xyz{|� ~bw}� v� f��l-1f6d4c535-295 � bo� ~mtmmmm�  ]� x~m� ]� ]H� ]I� � g��set-inferior-struct-fields! g��&%set-inferior-struct-fields!-procedure g��m-1f6d4c535-2a7 `� g��t-1f6d4c535-2a5 g��t-1f6d4c535-2a6 � � f��l-1f6d4c535-2ac f��l-1f6d4c535-2ad � b� � f��l-1f6d4c535-2a9 � bo� mtmmmm}�  ]^� g��t-1e8ba8b5a-18c g��t-1e8ba8b5a-18d � g��m-1e8ba8b5a-18e `� � f��l-1e8ba8b5a-192 f��l-1e8ba8b5a-193 � b� g��setter � f��l-1e8ba8b5a-186 f��l-1e8ba8b5a-187 f��l-1e8ba8b5a-188 � b� N� f��l-1e8ba8b5a-17d f��l-1e8ba8b5a-17e � by� g�� field-specs � f��l-1e8ba8b5a-179 f��l-1e8ba8b5a-17a � by� mtmmm� ]� g��val ]� � ]� ]a� ]c� � xm� ]� � g�� struct-set! ]� m� ] � � ]m� ]� ]� � � � � xm� ]� g��make-parameter g�� vlist-null g�� vhash-assq f��#-1# f�� #<struct ~a g�� parameter? � � g�� scm-error g��wrong-type-arg f�� parameterize f��Not a parameter: ~S g�� vhash-consq g��for-each f�� #0# f�� ~s f�� ~x> g��object-address g��print-inferior-struct g��<inferior-fluid> g��%inferior-fluid-procedure g��inferior-fluid g��m-1f6d4c535-2de `� g��t-1f6d4c535-2dc g��t-1f6d4c535-2dd � � f��l-1f6d4c535-2e3 f��l-1f6d4c535-2e4 � b� � f��l-1f6d4c535-2e0 � bo� mtmmmm}�  ]^� xm� ]s� ]� � g��m-1f6d4c535-2da `� mtmmmmm� ]� �]� ] � �� � xm� ]� s� g��%inferior-fluid?-procedure g��m-1f6d4c535-2ed  `�  g��t-1f6d4c535-2ec   �   �  f��l-1f6d4c535-2f2  � b  � f��l-1f6d4c535-2ef � bo �  mtmmmm}�  ]^� mtm%mmmm*m/m3m8m=mBmGmLX� ]� � ]\� ]^� � ]a� ]c� � xm� ]�  � ! � "!� #xm� $]#� %g�� %inferior-fluid-number-procedure &g��m-1f6d4c535-2f9 '&`� ('� )f��l-1f6d4c535-2fb *)� +bo(*� ,'m+tmmmm}�  -]s,� .r-� /.[� 0m+tmmmmm� 1]~0� 2r1� 3Z/2[� 4''� 5f��l-1f6d4c535-2fe 6f��l-1f6d4c535-2ff 756� 8b47� 9'8m+tmmmm}�  :]9� ;]9� <x8m+� =]<� >;=� ?>� @]0� Ar@� BZ/A[� Cf��l-1f6d4c535-303 Df��l-1f6d4c535-304 ECD� Fb4E� G'Fm+tmmmm}�  H]G� I]G� JFm+� K] J� LIK� ML� N]0� OrN� PZ/O[� Qf��l-1f6d4c535-308 Rf��l-1f6d4c535-309 SQR� Tb4S� U'Tm+tmmmm}�  V]U� W]U� Xg��%%<inferior-fluid>-set-fields YxTm+� Z]XY� [WZ� \[� ]g��t-1f6d4c535-2f8 ^]� _f��l-1f6d4c535-30d `_� ab^(`� b'am+tmmmm}�  c]^b� dam+tmmmmm� e]d� fe� g]d� h]ad� i]cd� jie� kxam+� l]k� mhjl� n]d� oam+� p] o� qnep� r]md� s]d� t]Fk� ust� vreu� wgmqv� xcfw� yxm+� z]%y� {g��inferior-fluid-value |g��%inferior-fluid-value-procedure }g��m-1f6d4c535-314 ~}`� ~� f��l-1f6d4c535-316 � bo� ~mtmmmm}�  ]s� r� [� mtmmmmm� ]~� r� Z[� ~~� f��l-1f6d4c535-319 f��l-1f6d4c535-31a � b� ~mtmmmm}�  ]� ]� xm� ]� � � ]� r� Z[� f��l-1f6d4c535-31e f��l-1f6d4c535-31f � b� ~mtmmmm}�  ]� ]� m� ] � � � ]� r� Z[� f��l-1f6d4c535-323 f��l-1f6d4c535-324 � b� ~mtmmmm}�  ]� ]� xm� ]X� � � g��t-1f6d4c535-313 � f��l-1f6d4c535-328 � b� ~mtmmmm}�  ]^� mtmmmmm� ]� � ]� ]a� ]c� � xm� ]� � ]� m� ] � � ]m� ]� ]{� � � � � xm� ]|� g��m-1f6d4c535-32f `� � f��l-1f6d4c535-334 f��l-1f6d4c535-335 f��l-1f6d4c535-336 f��l-1f6d4c535-337 f��l-1f6d4c535-338 � b� � f��l-1f6d4c535-331 � bo� mtmmmm�  ]� xm� ]� ]F� ]{� � f��#<fluid ~a ~x> g��error *� *� f��no matching pattern g��<inferior-object> g��%%inferior-object-procedure g��%inferior-object g��m-1f6d4c535-3a3 `� g��t-1f6d4c535-3a0 g��t-1f6d4c535-3a1 g��t-1f6d4c535-3a2 � � f��l-1f6d4c535-3a8 f��l-1f6d4c535-3a9 f��l-1f6d4c535-3aa � b� � f��l-1f6d4c535-3a5 � bo� mtmmmm}�  ]^� �xm� ]q�� g��sub-kind ]�� ]�� � g��m-1f6d4c535-39e `� mtmmmmm�  ]�  ]��  ] �     �   � xm� ]� q� g��%inferior-object?-procedure g��m-1f6d4c535-3b4 `� g��t-1f6d4c535-3b3 � � f��l-1f6d4c535-3b9 � b� f��l-1f6d4c535-3b6 � bo� mtmmmm}�  ]^� mtm%mmmm*m/m3m8m=mBmGmLX�  ]� ! � "]\� #]^� $# � %]a� &]c� '& � (xm� )](� *%')� +"$*� ,!+� -xm� .]-� /g��%inferior-object-kind-procedure 0g��m-1f6d4c535-3c0 10`� 21� 3f��l-1f6d4c535-3c2 43� 5bo24� 61m5tmmmm}�  7]s6� 8r7� 98[� :m5tmmmmm� ;]~:� <r;� =Z9<[� >11� ?f��l-1f6d4c535-3c5 @f��l-1f6d4c535-3c6 A?@� Bb>A� C1Bm5tmmmm}�  D]C� E]C� FxBm5� G]F� HEG� IH� J]:� KrJ� LZ9K[� Mf��l-1f6d4c535-3ca Nf��l-1f6d4c535-3cb OMN� Pb>O� Q1Pm5tmmmm}�  R]Q� S]Q� TPm5� U] T� VSU� WV� X]:� YrX� ZZ9Y[� [f��l-1f6d4c535-3cf \f��l-1f6d4c535-3d0 ][\� ^b>]� _1^m5tmmmm}�  `]_� a]_� bg��%%<inferior-object>-set-fields cx^m5� d]bc� ead� fe� gg��t-1f6d4c535-3bf hg� if��l-1f6d4c535-3d4 ji� kbh2j� l1km5tmmmm}�  m]^l� nkm5tmmmmm� o]n� po� q]n� r]an� s]cn� tso� uxkm5� v]u� wrtv� x]n� ykm5� z] y� {xoz� |]mn� }]n� ~]Bu� }~� |o� qw{� mp� xm5� ]/� g��#%inferior-object-sub-kind-procedure g��m-1f6d4c535-3db `� � f��l-1f6d4c535-3dd � bo� mtmmmm}�  ]s� r� [� mtmmmmm� ]~� r� Z[� � f��l-1f6d4c535-3e0 f��l-1f6d4c535-3e1 � b� mtmmmm}�  ]� ]� xm� ]� � � ]� r� Z[� f��l-1f6d4c535-3e5 f��l-1f6d4c535-3e6 � b� mtmmmm}�  ]� ]� m� ] � � � ]� r� Z[� f��l-1f6d4c535-3ea f��l-1f6d4c535-3eb � b� mtmmmm}�  ]� ]� xm� ]b� � � g��t-1f6d4c535-3da � f��l-1f6d4c535-3ef � b� mtmmmm}�  ]^� mtmmmmm� ]� � ]� ]a� ]c� � xm� ]� � ]� m� ] � � ]m� ]� ]C� � � � � xm� ]� g��"%inferior-object-address-procedure g��m-1f6d4c535-3f6 `� � f��l-1f6d4c535-3f8 � bo� mtmmmm}�  ]s� r� [� mtmmmmm� ]~� r� Z[� � f��l-1f6d4c535-3fb f��l-1f6d4c535-3fc � b� mtmmmm}�  ]� ]� xm� ]� � � ]� r� Z[� f��l-1f6d4c535-400 f��l-1f6d4c535-401 � b� mtmmmm}�  ]� ]� m� �] �  ��  � ]� r � Z [� f��l-1f6d4c535-405 f��l-1f6d4c535-406   � b �  mtmmmm}�  ] � ] � x m� ]b �   �  � g��t-1f6d4c535-3f5  � f��l-1f6d4c535-40a  � b  �  mtmmmm}�  ]^ �  mtmmmmm� ] �  � ] � ]a � ]c �   � x m� ] � !   � "] � # m� $]  #� % "  $� &]m � '] � (]D � ) ' (� * &  )� +  ! % *� ,   +� -xm� .] -� /g��m-1f6d4c535-411 0 /`� 1 0� 2f��l-1f6d4c535-416 3f��l-1f6d4c535-417 4f��l-1f6d4c535-418 5f��l-1f6d4c535-419 6f��l-1f6d4c535-41a 7 2 3 4 5 6� 8b 1 7� 9 0� :f��l-1f6d4c535-413 ; :� <bo 9 ;� = 8m <tmmmm�  >] =� ?x 8m <� @] ?� A]B ?� B]C ?� C]D ?� D A B C� Ef��#<~a ~:[~*~;~a ~]~x> Fg��smob Gg�� inferior-smob Hg�� inferior-port Ig��%visited-cells Jg��visited Kg��-> Lg��m-1f6d4c535-525 M L`� N M� Of��l-1f6d4c535-527 P O� Qbo N P� Rxm Q� S] K R� Tr S� U[ T[� V U挤 W[ V Xg�� parameterize Yg��object Z Y� [ Mxxx� \f��l-1f6d4c535-52a ]f��l-1f6d4c535-52b ^f��l-1f6d4c535-52c _f��l-1f6d4c535-52d ` \ ] ^ _� ab Z [ `� bx am Q� c] X b� d] I b� eg�� vhash-consv f] e b� g d� h g� ig��symbol->string jg�� string-length kg��bytevector->uint-list lg��invalid-struct mg��address->inferior-struct ng��and=> og�� vhash-assv pg��cdr qg�� cell->object rg��string->symbol sg��variable tg�� substring ug��bytevector->string vf�� ISO-8859-1 wg�� bitwise-ior xg��little yf��UTF-32LE zg��big {f��UTF-32BE |g�� make-vector }g��fold ~g�� weak-vector g�� dynamic-state g��program g��bignum g��double g�� hash-table g��objcode g��vm g��vm-continuation g��array g�� bitvector g��bit-set? g�� integer->char g�� undefined g�� eof-object g��unboundC�5h����]4    89K5�4N�>��"��G���4OiP5:RQ��h������]��C���������g��peek  �g��open  �g�� type-name   ��g��filenamef��system/base/types.scm D �   ��g��nameg��%memory-backend-procedure�CRR4U;VY\��h���k���]��C��c�������g�� t-1f6d4c535-3  �g�� t-1f6d4c535-4  �g�� t-1f6d4c535-5   ��   ���C;�h���X���]L�6����P�������g��a  ��g��filenamef��system/base/types.scm  D �  ���CZ��������h���H���]�L�6@�������g��filenamef��system/base/types.scm  D �   ���C��h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6���������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��system/base/types.scm D �  n ���C5;RQ��4�Q>��"��G��� Ri��QRQ���h������]�$���CC������x�������g��obj  ��g��filenamef��system/base/types.scm D �   ��g��nameg��%memory-backend?-procedure�CR4U<VYj��������h���6���]��C������.�������g��t-1f6d4c535-16  ��  ���C<������h���X���]L�6����P�������g��a  ��g��filenamef��system/base/types.scm  D �  ���CZ��������h���H���]�L�6@�������g��filenamef��system/base/types.scm  D �   ���Cl�h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6���������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��system/base/types.scm D �  n ���C5<RQop������h������]�&��� C�6z�������g��s  ��g��filenamef��system/base/types.scm D �   ��g��nameg��%memory-backend-peek-procedure�CqR4UpVY��h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C����h���6���]��C������.�������g��t-1f6d4c535-22  ��  ���Cp�����h���X���]L�6����P�������g��a  ��g��filenamef��system/base/types.scm  D �  ���CZ��������h���H���]�L�6@�������g��filenamef��system/base/types.scm  D �   ���C�h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/base/types.scm D �  � ���C5pRQo�h������]�&��� C�6z�������g��s  ��g��filenamef��system/base/types.scm D �   ��g��nameg��%memory-backend-open-procedure�CR4UVY ��h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C!',�h���:���]C�����2�������g��err  �g��s  ��  ���CH����h���6���]��C������.�������g��t-1f6d4c535-3d  ��  ���C�����h���X���]L�6����P�������g��a  ��g��filenamef��system/base/types.scm  D �  ���CZ��������h���H���]�L�6@�������g��filenamef��system/base/types.scm  D �   ���CJ�h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/base/types.scm D �  � ���C5RQoK�h ������]�&��� C�6��������������g��s  ��g��filenamef��system/base/types.scm D �   ��g��nameg��#%memory-backend-type-name-procedure�CLR4UKVYZaf�����h���:���]C�����2�������g��err  �g��s  ��  ���Ciot�h���:���]C�����2�������g��err  �g��s  ��  ���Cw}�h���:���]C�����2�������g��err  �g��s  ��  ���C����h���6���]��C������.�������g��t-1f6d4c535-58  ��  ���CK�����h���X���]L�6����P�������g��a  ��g��filenamef��system/base/types.scm  D �  ���CZ��������h���H���]�L�6@�������g��filenamef��system/base/types.scm  D �   ���C�h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/base/types.scm D �  � ���C5KR4UVY����h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��system/base/types.scm D �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5RQi:�h(������]4�545 45�6�����������g��address  $�g��ptr $�g��bv   $��g��filenamef��system/base/types.scm O   P  P  Q   P   R " $ R �  $ ��g��nameg��dereference-word�C��������h@������]4M�5454 �>��"��G��M�N�C��������������g��bv  9�g��index  9�g��count   9�g��ptr  9�g��mem   9��g��filenamef��system/base/types.scm W   X  X  Y   X   Z 4 [ 6 [ �  9 ��g��nameg�� read-memory!�C� ����hX���)��]H�K$��4�54564O�54>��"��G��C�����!������g��address  S�g��size  S�g��current-address   S�g��ptr   )�g��bv  ! )�g��port  : S��g��filenamef��system/base/types.scm T   ^   _   _  `  ! _ ) a * b  . b 5 : b  : b = e �  S ��g��nameg��open�C�=RQop����h(������] �&��� "�� 4�56�����������g��backend  $�g��address  $�g��peek   $��g��filenamef��system/base/types.scm j  l   l  $ m �  $ ��g��nameg��% dereference-word-procedure�CR4U>VY#���h���R���]��C����J�������g��t-1f6d4c535-c4  �g��t-1f6d4c535-c5  ��  ���C>��h���X���]L�6����P�������g��a  ��g��filenamef��system/base/types.scm  j �  ���CZ%�������h���H���]�L�6@�������g��filenamef��system/base/types.scm  j �   ���C'�h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6���������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��system/base/types.scm j �  n ���C5>R4U?VY(789;�����h ���W���]����C�O�������g��dummy  �g��backend  �g��address   ��   ���C<GIOPQR��������h0���i���]�������C��a�������g��dummy  .�g��backend  .�g��address   .�g��size   .��  . ���C��������h@�����]4�5$��@4�5$��@�6�������z������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��system/base/types.scm p �  9 ��g�� documentationf��Return an input port to the SIZE bytes at ADDRESS, using BACKEND. When SIZE is omitted, return an unbounded port to the memory at ADDRESS.g�� macro-typeg�� syntax-rulesg��patternsg��backendg��address�g��backendg��addressg��size���C5?RS:��h ������] 4�5 45�6������������g��port  �g��bv ��g��filenamef��system/base/types.scm ~  � �   �   � �   ��g��nameg��get-wordg�� documentationf��2Read a word from PORT and return it as an integer.�CTRQoK������h0������] �&�� � "�� 4�5$��6C��������g��backend  /�g��kind  /�g��number   /�g��proc   /��g��filenamef��system/base/types.scm �  �   �  % �  - � �  / ��g��nameg��% type-number->name-procedure�CUR4U@VY\�����h���q���]��C��i�������g��t-1f6d4c535-101  �g��t-1f6d4c535-102  �g��t-1f6d4c535-103   ��   ���C@���h���Y���]L�6����Q�������g��a  ��g��filenamef��system/base/types.scm  � �  ���CZ%������h���I���]�L�6A�������g��filenamef��system/base/types.scm  � �   ���C��������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6���������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��system/base/types.scm � �  n ���C5@R4UVY� ���h@������]����� ��C~�������g��dummy  @�g��port  @�g��name   @�g��len   @�g��rest   @�g��body   @��  @ ���C��h(���u���]�����C������m�������g��dummy  "�g��port  "�g��name   "�g��rest   "�g��body   "��  " ���C������h���Q���]C���I�������g��dummy  �g��port  �g��body   ��   ���C� �������hP���?��]4�5$��@4�5$��@4�5$��@ �67������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��system/base/types.scm � �  P ��g�� macro-typeg�� syntax-rulesg��patternsg��portg�� bytevectorg��nameg��len�g��restg��...�g��body�g��portg��nameg��restg��...�g��body�g��portg��body���C5R4UVY����hP������,�3������������C��������g��dummy  O�g��bits  O�g��a   O�g��b   O�g��n   O�g��c   O�g�� consequent   O�g�� alternate   O��  O ���C��������h@������]���������C�������������g��dummy  :�g��bits  :�g��x   :�g��n   :�g��c   :�g�� consequent   :�g�� alternate   :��  : ���C �������h0������]������C������������g��dummy  +�g��bits  +�g��n   +�g��c   +�g�� consequent   +�g�� alternate   +��  + ���C,-/0235679� ������hX������,�3����� � �������C��������g��dummy  W�g��bits  W�g��a   W�g��<<   W�g��n   W�g��c   W�g�� consequent   W�g�� alternate   W��  W ���C� �����hh�����]!4�5$��@4�5$��@4�5$��@4�5$�� @  �6�������g��x  g�g��tmp g�g��tmp  " g�g��tmp  9 g�g��tmp  P g��g��filenamef��system/base/types.scm � �  g ��g�� macro-typeg�� syntax-rulesg��patternsg��bitsg��ag��||g��b�g��&g��ng��=g��c�g�� consequentg�� alternate�g��bitsg��xg��&g��ng��=g��c�g�� consequentg�� alternate�g��bitsg��_g��&g��ng��=g��c�g�� consequentg�� alternate�g��bitsg��ag��<<g��n�g��||g��c�g�� consequentg�� alternate���C5R4U:VY=RST��h(������]���C�������������g��dummy  "�g��port  "�g��tag   "�g�� tag-pattern   "�g��thing   "�g��body   "�g��rest   "��  " ���CU_c���h���P���]�C����H�������g��dummy  �g��port  �g��tag   ��  ���C�h@��� ��]4�5$��@4�5$��@�6�������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��system/base/types.scm � �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��portg��tagg�� tag-patterng��thingg��...�g��body�g��restg��...��g��portg��tag���C5:R4UdVYgxz{|}������h���X���]��C���P�������g��tmp-1f6d4c535-1be  �g��tmp-1f6d4c535-1bd  ��  ���C�����h8���f���]����45��C������^�������g��dummy  2�g��port  2�g��pattern   2�g��body   2��  2 ���C���h(���B��] 4�5$��@�6������:������g��x  "�g��tmp "��g��filenamef��system/base/types.scm � �  " ��g�� documentationf��fMatch a cell---i.e., a non-immediate value other than a pair. The cell's contents are read from PORT.g�� macro-typeg�� syntax-rulesg��patternsg��portg��patterng��bodyg��...�g��...���C5dR4UVY�����h ���|���]�C�������t�������g��dummy  �g��bits  �g�� bit-pattern   �g��body   �g��rest   ��   ���C��h���?���]C���7�������g��dummy  �g��bits  ��   ���C��h@������]4�5$��@4�5$��@�6��������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��system/base/types.scm � �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��bitsg�� bit-patterng��bodyg��...�g��restg��...�g��bits���C5R4UVY�h ���T���]���C������L�������g��dummy  �g��bits  �g��clauses   ��   ���C�����h(���,��] 4�5$��@�6������$������g��x  "�g��tmp "��g��filenamef��system/base/types.scm � �  " ��g�� documentationf�bMatch BITS, an integer representation of an 'SCM' value, against CLAUSES. Each clause must have the form: (PATTERN BODY ...) PATTERN is a bit pattern that may specify bitwise operations on BITS to determine if it matches. TEMPLATE specify the name of the variable to bind the matching bits, possibly with bitwise operations to extract it from BITS.g�� macro-typeg�� syntax-rulesg��patternsg��bitsg��clausesg��...���C5R R R RiRi R iRi R R R R R R R R R R %R 'R -R /R 5R 7R GR MR OR UR WR }R Ri �Ri �Ri �Ri �R���h���~���]��C������v�������g��string  ��g��filenamef��system/base/types.scm  �  ��g��nameg��%stringbuf-procedure�CR4UVY�h���7���]��C������/�������g��t-1f6d4c535-1e5  ��  ���C����h���Y���]L�6����Q�������g��a  ��g��filenamef��system/base/types.scm   �  ���CZ�������h���I���]�L�6A�������g��filenamef��system/base/types.scm   �   ���C��������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6���������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��system/base/types.scm  �  n ���C5R��4�>��"��G��� i��R��h���|���]�$���CC������t�������g��obj  ��g��filenamef��system/base/types.scm  �   ��g��nameg��%stringbuf?-procedure�CR4UVY���h���7���]��C������/�������g��t-1f6d4c535-1f2  ��  ���C����h���Y���]L�6����Q�������g��a  ��g��filenamef��system/base/types.scm   �  ���CZ�������h���I���]�L�6A�������g��filenamef��system/base/types.scm   �   ���C��������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6���������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��system/base/types.scm  �  n ���C5Ro���h������]�&��� C�6z�������g��s  ��g��filenamef��system/base/types.scm  �   ��g��nameg��%stringbuf-contents-procedure�CR4UVY'.3��h���:���]C�����2�������g��err  �g��s  ��  ���C6<A�h���:���]C�����2�������g��err  �g��s  ��  ���CDJP�h���:���]C�����2�������g��err  �g��s  ��  ���Cl����h���7���]��C������/�������g��t-1f6d4c535-1fe  ��  ���C����h���Y���]L�6����Q�������g��a  ��g��filenamef��system/base/types.scm   �  ���CZ�������h���I���]�L�6A�������g��filenamef��system/base/types.scm   �   ���Cn��������h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/base/types.scm  �  � ���C5R4ULVY~���h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��system/base/types.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5LR4iio��hP������]4>��"��G��4�&��� "�� 4�5>��"��G��6�������������g�� stringbuf  J�g��port  J��g��filenamef��system/base/types.scm        %         # :   F  % J  �  J ���C>��"��G���h������]��C�����������g��name  �g��fields  ��g��filenamef��system/base/types.scm  �  ��g��nameg��%inferior-struct-procedure�CR4UVY�h���T���]��C����L�������g��t-1f6d4c535-240  �g��t-1f6d4c535-241  ��  ���C�������h���Y���]L�6����Q�������g��a  ��g��filenamef��system/base/types.scm   �  ���CZ�������h���I���]�L�6A�������g��filenamef��system/base/types.scm   �   ���C��������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6���������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��system/base/types.scm  �  n ���C5R��4�>��"��G��� i��R��h������]�$���CC������z�������g��obj  ��g��filenamef��system/base/types.scm  �   ��g��nameg��%inferior-struct?-procedure�CR4UGVY������h���7���]��C������/�������g��t-1f6d4c535-250  ��  ���CG�����h���Y���]L�6����Q�������g��a  ��g��filenamef��system/base/types.scm   �  ���CZ�������h���I���]�L�6A�������g��filenamef��system/base/types.scm   �   ���C��������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6���������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��system/base/types.scm  �  n ���C5GRoH�����h������]�&��� C�6|�������g��s  ��g��filenamef��system/base/types.scm  �   ��g��nameg��%inferior-struct-name-procedure�CR4UHVY�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C����h���7���]��C������/�������g��t-1f6d4c535-25c  ��  ���CH�����h���Y���]L�6����Q�������g��a  ��g��filenamef��system/base/types.scm   �  ���CZ�������h���I���]�L�6A�������g��filenamef��system/base/types.scm   �   ���C��������h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/base/types.scm  �  � ���C5HRoI�h������]�&��� C�6~�������g��s  ��g��filenamef��system/base/types.scm  �   ��g��nameg��!%inferior-struct-fields-procedure�C R4UIVY.5:�������h���:���]C�����2�������g��err  �g��s  ��  ���C=CH�h���:���]C�����2�������g��err  �g��s  ��  ���CKQV�h���:���]C�����2�������g��err  �g��s  ��  ���Cr����h���7���]��C������/�������g��t-1f6d4c535-277  ��  ���CI�����h���Y���]L�6����Q�������g��a  ��g��filenamef��system/base/types.scm   �  ���CZ�������h���I���]�L�6A�������g��filenamef��system/base/types.scm   �   ���Ct��������h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/base/types.scm  �  � ���C5IR4UVY����h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��system/base/types.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5Ro�h ������]�&��� C�6�������������g��s  �g��val  ��g��filenamef��system/base/types.scm  �   ��g��nameg��&%set-inferior-struct-fields!-procedure�CR4UVY���h���T���]��C����L�������g��t-1f6d4c535-2a5  �g��t-1f6d4c535-2a6  ��  ���C�������h���Y���]L�6����Q�������g��a  ��g��filenamef��system/base/types.scm   �  ���CZ�������h���I���]�L�6A�������g��filenamef��system/base/types.scm   �   ���C��������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6���������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��system/base/types.scm  �  n ���C5R4ii5�/oH/�h ������]�L&��L�6L��6�����������g��field  ��g��filenamef��system/base/types.scm /  0   1 '  1   2 +  2 �   ���CI���h���9��]4�4L�5�5$��64�&��� "�� 4�5>��"��G��4L�5$��"��4    L��>��"��G��L� 4L� 4 �4L�5�55Y4�O��&��� "�� 4�5>��"��G��Z4�56�������1������g��struct  ��g��port  ���g��filenamef��system/base/types.scm '   (  (   (  (   )   )  + ! +  $ ,  @ + I - ~ .  � . 3 � .  � - � /  � 3  � /  � 4  � 4 � 4 �  � ���C�O��R4iii>��"��G���������h������]��C�����������g��number  �g��value  ��g��filenamef��system/base/types.scm 9 �  ��g��nameg��%inferior-fluid-procedure�CR4UVY�h���T���]��C����L�������g��t-1f6d4c535-2dc  �g��t-1f6d4c535-2dd  ��  ���C�������h���Y���]L�6����Q�������g��a  ��g��filenamef��system/base/types.scm  9 �  ���CZ�������h���I���]�L�6A�������g��filenamef��system/base/types.scm  9 �   ���C��������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6���������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��system/base/types.scm 9 �  n ���C5R��4�>��"��G��� i��R��h������]�$���CC������y�������g��obj  ��g��filenamef��system/base/types.scm 9 �   ��g��nameg��%inferior-fluid?-procedure�CR4UEVY"�������h���7���]��C������/�������g��t-1f6d4c535-2ec  ��  ���CE�����h���Y���]L�6����Q�������g��a  ��g��filenamef��system/base/types.scm  9 �  ���CZ�������h���I���]�L�6A�������g��filenamef��system/base/types.scm  9 �   ���C$��������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6���������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��system/base/types.scm 9 �  n ���C5ERoF�����h������]�&��� C�6}�������g��s  ��g��filenamef��system/base/types.scm 9 �   ��g��nameg�� %inferior-fluid-number-procedure�C%R4UFVY3:?��������h���:���]C�����2�������g��err  �g��s  ��  ���CBHM�h���:���]C�����2�������g��err  �g��s  ��  ���CPV\�h���:���]C�����2�������g��err  �g��s  ��  ���Cx����h���7���]��C������/�������g��t-1f6d4c535-2f8  ��  ���CF�����h���Y���]L�6����Q�������g��a  ��g��filenamef��system/base/types.scm  9 �  ���CZ�������h���I���]�L�6A�������g��filenamef��system/base/types.scm  9 �   ���Cz��������h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/base/types.scm 9 �  � ���C5FRo{��������h������]�&��� C�6|�������g��s  ��g��filenamef��system/base/types.scm 9 �   ��g��nameg��%inferior-fluid-value-procedure�C|R4U{VY��������h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C����h���7���]��C������/�������g��t-1f6d4c535-313  ��  ���C{����h���Y���]L�6����Q�������g��a  ��g��filenamef��system/base/types.scm  9 �  ���CZ�������h���I���]�L�6A�������g��filenamef��system/base/types.scm  9 �   ���C��������h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/base/types.scm 9 �  � ���C5{R4UXVY���h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��system/base/types.scm 9 �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5XR4ii/)����hH������] �$��-�&��� 4�564�56�4�56�������������g��fluid  C�g��port  C�g��w   )��g��filenamef��system/base/types.scm @   A   C , ! E ' ) C  * A �  C ���C>��"��G���h������]��C���������g��kind  �g��sub-kind  �g��address   ��g��filenamef��system/base/types.scm J �   ��g��nameg��%%inferior-object-procedure�CR4UVY\ ��h���q���]��C��i�������g��t-1f6d4c535-3a0  �g��t-1f6d4c535-3a1  �g��t-1f6d4c535-3a2   ��   ���C��h���Y���]L�6����Q�������g��a  ��g��filenamef��system/base/types.scm  J �  ���CZ�������h���I���]�L�6A�������g��filenamef��system/base/types.scm  J �   ���C��������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6���������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��system/base/types.scm J �  n ���C5R��4�>��"��G��� i��R���h������]�$���CC������z�������g��obj  ��g��filenamef��system/base/types.scm J �   ��g��nameg��%inferior-object?-procedure�CR4UAVY,������h���7���]��C������/�������g��t-1f6d4c535-3b3  ��  ���CA�����h���Y���]L�6����Q�������g��a  ��g��filenamef��system/base/types.scm  J �  ���CZ�������h���I���]�L�6A�������g��filenamef��system/base/types.scm  J �   ���C.��������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6���������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��system/base/types.scm J �  n ���C5ARoB�����h������]�&��� C�6|�������g��s  ��g��filenamef��system/base/types.scm J �   ��g��nameg��%inferior-object-kind-procedure�C/R4UBVY=DI�h���:���]C�����2�������g��err  �g��s  ��  ���CLRW�h���:���]C�����2�������g��err  �g��s  ��  ���CZ`f�h���:���]C�����2�������g��err  �g��s  ��  ���C����h���7���]��C������/�������g��t-1f6d4c535-3bf  ��  ���CB�����h���Y���]L�6����Q�������g��a  ��g��filenamef��system/base/types.scm  J �  ���CZ�������h���I���]�L�6A�������g��filenamef��system/base/types.scm  J �   ���C��������h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/base/types.scm J �  � ���C5BRoC�h������]�&��� C�6�������g��s  ��g��filenamef��system/base/types.scm J �   ��g��nameg��#%inferior-object-sub-kind-procedure�CR4UCVY�����h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C����h���7���]��C������/�������g��t-1f6d4c535-3da  ��  ���CC�����h���Y���]L�6����Q�������g��a  ��g��filenamef��system/base/types.scm  J �  ���CZ�������h���I���]�L�6A�������g��filenamef��system/base/types.scm  J �   ���C��������h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/base/types.scm J �  � ���C5CRoD�h ������]�&��� C�6��������������g��s  ��g��filenamef��system/base/types.scm J �   ��g��nameg��"%inferior-object-address-procedure�CR4UDVY������h���:���]C�����2�������g��err  �g��s  ��  ���C �h���:���]C�����2�������g��err  �g��s  ��  ���C   �h���:���]C�����2�������g��err  �g��s  ��  ���C ,����h���7���]��C������/�������g��t-1f6d4c535-3f5  ��  ���CD�����h���Y���]L�6����Q�������g��a  ��g��filenamef��system/base/types.scm  J �  ���CZ�������h���I���]�L�6A�������g��filenamef��system/base/types.scm  J �   ���C .��������h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/base/types.scm J �  � ���C5DR4UbVY > @ D����h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��system/base/types.scm J �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5bR�������h(���U��)���3���C]��C������M������g��kind �g��address �g��kind  "�g��sub-kind  "�g��address   "��g��filenamef��system/base/types.scm R   V   R  ! X �  �  " ��g��nameg��inferior-objectg�� documentationf��SReturn an object representing an inferior object at ADDRESS, of type KIND/SUB-KIND.�CVR4ii/ E)��������hP������]�$��9�&��#� � � 64�56�4�56���������g��io  O�g��port  O�g��w   5�g��w   5�g��w  # 5��g��filenamef��system/base/types.scm [   \  + ^ , 5 ^  6 \ �  O ���C>��"��G��V FQoK����hX���_��] �&�� � "�� 4�5$�� 45"��$��"��6�������W������g��backend  Q�g�� type-number  Q�g��address   Q�g��proc  ! :�g��t  : M��g��filenamef��system/base/types.scm b  e  f  . f 2 2 f  : f  Q e �  Q ��g��nameg�� inferior-smobg�� documentationf��LReturn an object representing the SMOB at ADDRESS whose type is TYPE-NUMBER.�C GRVQoK���hX���_��] �&�� � "�� 4�5$�� 45"��$��"��6�������W������g��backend  Q�g�� type-number  Q�g��address   Q�g��proc  ! :�g��t  : M��g��filenamef��system/base/types.scm j  m  n  . n 2 2 n  : n  Q m �  Q ��g��nameg�� inferior-portg�� documentationf��LReturn an object representing the port at ADDRESS whose type is TYPE-NUMBER.�C HR4ii5 IR4U JVY W c d f h������h ���h���]��C����`�������g��dummy  �g��address  �g��object   �g��body   ��   ���C�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��system/base/types.scm y �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��addressg��->g��object�g��bodyg��...���C5 JR:QopJ i jLS I eJ���h���g���]�L�6������_�������g��t-1f6d4c535-5af  ��g��filenamef��system/base/types.scm  �  ���C kV l�������h����]s &�� "�� 454545 &�� "�� 454545$�745 4 5  � &�� "�� 45 4  5     $�� 4 5"��+&�� "�� 4 5 4   5  4   5  � 45$��"��4�>��"��G�� 4 4�4 5�55Y4O�4 45�55 &��  "��4>��"��G��ZCZF�6�������������g��address  �g��vtable-data-address  �g��backend   �g��layout-address  �g��peek  % 1�g�� layout-bits  1 �g��layout  < �g�� name-address  F �g��peek  b n�g�� name-bits  n �g��name  y �g��layout � �g��len � �g��address � ��g��peek � ��g��slots � �g��open �  �g��port  �g��fields  �g��result  " �g��t-1f6d4c535-5a8  & �g��values   ��g��filenamef��system/base/types.scm            1   4   <   E   F   F   K   n   q   y   ~   �   �   �   �   �   �   �  1 �   �   �  2 �     2            .       "   "   &  p   z     6                 �/   ��g��nameg��address->inferior-structg�� documentationf��^Read the struct at ADDRESS using BACKEND. Return an 'inferior-struct' object representing it.�C mR= n o I pQoT m q r)V s tS: u v w x y z {L.18 | e }������h������]L��C���|�������g��element  �g��index  ��g��filenamef��system/base/types.scm      �  ���CJ���h���g���]�L�6������_�������g��t-1f6d4c535-732  ��g��filenamef��system/base/types.scm  �  ���C k ~  H  O s       Ga�X�����h�� ��-�.�,�3�#��44�45�55$��C&�� "�� 454�54 5  $��  � 6  $��n4 54 >��"��G��4 >��"��G��4 5$��"&��  6456�456�$��4 >��"��G���6$��c4 54 5 4 5 4 5  $��) &��      64 56�4 56� $��Q4 5 4 5    $��"��4 >��"��G��4 5  �C  4 �5$��4 5 4  5     $��"��4 >��"��G��4 45�  &�� "��! &��""��44 55� 5  �C   #$��W4 5 4 5  $�� 4$%5"��(&�� "�� 45 4   5    64&4'  55  ($��4) 5 4 >��"��G��4) 5 4 54* 54+5$��"��4,-./�>��"��G�� 4 40�45�55Y412O� 434O�4545�55>��"��G��ZCZF   6$��7�64&4'  55  8$��&4) 54 >��"��G��9�C :$��;�64&4'  55<$��4) 5= ��6 >$��?�6������@$��A�6B$��}4 >��"��G��� 4CD5 $�� 4$%5"��-&�� "�� 4544CD5544CD55 45�CE$��4 >��"��G��F�6G$��>4 >��"��G��4 >��"��G��4 >��"��G��H�6I$��4 5J6K$��L�6M$��N�6O$��P�6Q$��R�6S$��T�64&4'  55U$��'4) 54 >��"��G��V�6W6�} ������g��address �g��backend �g��t  ) �g��open  N [�g��port  [ �g��tag  d �g��tag  k �g��tag  � �g��buf  � �g��v  � �g��w  � ��g��tag   �g��tag  * �g��buf  < �g��start E �g��len N �g��v Y �g��w o ~�g��tag   �g��len  �g��buf  �g�� remainder  �g��string  �g��tag  �g��len  �g��buf , �g�� remainder , �g��v ] �g��string  �g��tag  �g��len  �g��address  �g��open  �g��bv-port  �g��tag  �g��len $ �g��len A �g��words  O �g��vector  X �g��t-1f6d4c535-729  \ �g��tag  �g��tag  �g��n   7�g��tag  < �g��tag  ` �g�� flags+type  t �g��tag   �g��tag   �g��tag   �g��address   E�g��open   )�g��port  ) E�g��words  9 E�g��tag  G �g��tag  n �g��tag   �g��address   �g��tag   �g��tag   �g��tag   �g��tag   �g��tag  ) �g��tag  M �g�� smob-type  a ��@g��filenamef��system/base/types.scm         ! %  )   )   7   [   ^     % �  �   �  �   �     $   (  *   Q  |  & ~             .               "  $   )  ,   T   Y  . i  9 o  . w  6 |  .                �   9   A  D   M  1 O   O  R   X  \             7                     6  <   K   O  P     "                        &        8      8 &   )  ,   1  2 9   9  ?  1 D  G   h   l  n                                        #   '  )   8   <  =       �|  ��g��nameg�� cell->objectg�� documentationf��WReturn an object representing the object at ADDRESS, reading from memory using BACKEND.�C qR=.18Qop  n o I p: eJ q V   � �h���|��-�.�,�3� #��4�4  55$��� 6� $��&�� "�� 4 54�54 5$��4 4 �4 5�55$��C� 45$��"��4�>��"��G�� 4 4�4 5�55Y454&�� "�� 4 5 4 5 5ZCZF�64�4  55$��4� 564�4  55$��q4� 5 $��C $��C $��C $��C $��C $���6 $��6� $���6CC�t������g��bits �g��backend �g��tag  ' �g��tag  ? �g��peek  d p�g��type  p B�g��pair?  { B�g��t  � :�g��cdrloc  � :�g��pair  � :�g��t-1f6d4c535-80f  � :�g��peek # /�g��tag  S �g��char  g o�g��tag   �g��flag   ��g��filenamef��system/base/types.scm     M   p   s   {   {   �   �   �   �  * �   �   �  �   �   �   �   �  "         * 3   4 �  B  C   o   p                               �(  ��g��nameg�� scm->objectg�� documentationf��LReturn the Scheme object corresponding to BITS, the bits of an 'SCM' object.�CJRC�������������g��m  ,�g��rtd  �g��rtd A B�g��rtd P Q�g��%printed-struct c f�g��rtd j j�g��rtd ~ ��g��filenamef��system/base/types.scm   - B  3 B 5 B  8 @  D  h  � K  j $ ~ %P � = � = � = � = � = �  = � = �  = � = �  = � = � = � = � = � = � > � > � > � > � > � > � >& � >,  >2  >8  >>  >D  >J  >P  >V  >\  >b  >j  $ >k   >o  >w  " >x   >|  >  % >   >  >  & >   >  ?:  L#  N"  c &  c &  f % f 6 g 9 y ? { J ������ Q ������ Z ������ b ������ j ������ v ������ r ������  ������  ������  �K ������ ���C6����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/system/vm/trap-state.go������������������������������������������������������������������0000644�����������������00000037452�15146341264�0012653 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0?������]��4����hp ������]� g��guile � g��define-module* � � g��system g��vm g�� trap-state � g��filenameS f��system/vm/trap-state.scm g��importsS g��base g��syntax  � � g��srfi g��srfi-1 � g��selectS g��fold � � � � g��traps � � g��trace � � g��frame ! � "!� #g��program $#� %$� &"%� 'g��exportsS (g�� add-trap! )g�� list-traps *g�� trap-enabled? +g�� trap-name ,g�� enable-trap! -g�� disable-trap! .g�� delete-trap! /g��with-default-trap-handler 0g��install-trap-handler! 1g��add-trap-at-procedure-call! 2g��add-trace-at-procedure-call! 3g��add-trap-at-source-location! 4g��#add-ephemeral-trap-at-frame-finish! 5g��add-ephemeral-stepping-trap! 6()*+,-./012345� 7g��set-current-module 87� 97� :g�� make-fluid ;g��%default-trap-handler <g��warn =f��Trap with no handler installed >g��default-trap-handler ?g��make-record-type @f��<trap-wrapper> Ag��index Bg��enabled? Cg��trap Dg��name EABCD� Fg��<trap-wrapper> Gg��make-trap-wrapper Hg��record-predicate Ig�� trap-wrapper? Jg��make-procedure-with-setter Kg��record-accessor Lg��record-modifier Mg��trap-wrapper-index Ng��trap-wrapper-enabled? Og��trap-wrapper-trap Pg��trap-wrapper-name Qf�� <trap-state> Rg��handler Sg��next-idx Tg��next-ephemeral-idx Ug��wrappers VRSTU� Wg�� <trap-state> Xg��make-trap-state Yg�� trap-state? Zg��trap-state-handler [g��trap-state-next-idx \g��trap-state-next-ephemeral-idx ]g��trap-state-wrappers ^g��trap-wrapper<? _g��error `f��Trap already enabled ag��setter ba� ca� dg��enable-trap-wrapper! ef��Trap already disabled fg��disable-trap-wrapper! gg��append hg��add-trap-wrapper! ig��delq jg��remove-trap-wrapper! kg��trap-state->trace-level lf��)no wrapper found with index in trap-state mg��wrapper-at-index ng�� next-index! og��next-ephemeral-index! pg��handler-for-index qg��ephemeral-handler-for-index rg��make-weak-key-hash-table sg�� *trap-states* tg�� hashq-ref ug�� hashq-set! vg��trap-state-for-vm wg��the-vm xg��the-trap-state yg��set-vm-trace-level! zg��map {g��and=> |g��trap-at-procedure-call }g��format ~f��Breakpoint at ~a g��trace-calls-to-procedure �g��prefixS �f�� Trap ~a:  �f��Tracepoint at ~a �g��trap-at-source-location �f��Breakpoint at ~a:~a �g��trap-frame-finish �f��Return from ~a �f��~a:~a:~a �g�� source:file �f�� unknown file �g��source:line-for-user �g�� source:column �f��unknown source location �g�� source-string �g��into?S �  �g�� instruction?S �  �� �g��frame-next-source �g��trap-matching-instructions �g�� frame-address �f��Step to different instruction �f��#Step to different instruction in ~a �f�� Step into ~a �f��Step out of ~aC�5���hX0����]4    &'65�49�>��"��G���4:i5�;R;<=��������h(������] [$�� �6�6������������g��frame  #�g��idx  #�g�� trap-name   #�g��default-handler   #��g��filenamef��system/vm/trap-state.scm 1  2  3   4   5  # 5 �  # ��g��nameg��default-trap-handler�C>R4?i@E5FRF�����h������-�1�3���C��������g��index �g��enabled? �g��trap  �g��name  �g��defrec-3703f9048699c1-8  ��g��filenamef��system/vm/trap-state.scm 7 �   ��g��nameg��make-trap-wrapper�CGR4HiFi5IR4Ji4KiFiA54LiFiA55MR4Ji4KiFiB54LiFiB55NR4Ji4KiFiC54LiFiC55OR4Ji4KiFiD54LiFiD55PR4?iQV5WR>W���h���9��-��1��3��H�J�(��"��J�J�K�J�(�� "��J�J�K�J�(�� "��J�J�K�J�(��"��J�J�K��C���1������g��defrec-3703f9048699c1-14 ��g��_x  (�g��_x 6 B�g��_x Q ]�g��_x k w�g��handler w ��g��next-idx  w ��g��next-ephemeral-idx  w ��g��wrappers  w ��� g��filenamef��system/vm/trap-state.scm = d A � � ��g��nameg��make-trap-state�CXR4HiWi5YR4Ji4KiWiR54LiWiR55ZR4Ji4KiWiS54LiWiS55[R4Ji4KiWiT54LiWiT55\R4Ji4KiWiU54LiWiU55]RM��������h������]4�545C�������������g��t1  �g��t2  ��g��filenamef��system/vm/trap-state.scm C  D  D   D �   ��g��nameg��trap-wrapper<?�C^RN_`MOc�������hP������] 4�5$�� 4�564�5445�45�>��"��G��45�6������������g��wrapper  K�g��trap ! K��g��filenamef��system/vm/trap-state.scm J  K  K   L  L $  L   M  ! M  $ N  . N * 7 N  K O �  K ��g��nameg��enable-trap-wrapper!�CdRNOc_eM���hP������] 4�5$��14�5445�45�>��"��G��45�64�56������������g��wrapper  K�g��trap  >��g��filenamef��system/vm/trap-state.scm Q  R R   T   T   U  ! U * * U  > V  B S C S % K S �  K ��g��nameg��disable-trap-wrapper!�CfRc]gM������h0������]445�44�5�5>��"��G��6�������g�� trap-state  0�g��wrapper  0��g��filenamef��system/vm/trap-state.scm X  Y  Z   Z   Z 1  Z  " Y  0 [ �  0 ��g��nameg��add-trap-wrapper!�ChRc]i�����h ������]45�44�556������������g�� trap-state  �g��wrapper  ��g��filenamef��system/vm/trap-state.scm ] _   _   _   ^ �   ��g��nameg��remove-trap-wrapper!�CjRN���h������]4�5$��CC�����������g��wrapper  �g��level  ��g��filenamef��system/vm/trap-state.scm b   c  c  d �   ���C]�������h������] 4�56�������g�� trap-state  ��g��filenamef��system/vm/trap-state.scm a  g   b �   ��g��nameg��trap-state->trace-level�CkR<lM]��hP���'��] "��8(��4>��"��G��C45$��C"4�5"�����������g�� trap-state  K�g��idx  K�g��wrappers   >��g��filenamef��system/vm/trap-state.scm i  j  k  m   m  m  # o ( o * o - o  1 k  4 p  8 r > r  > j  ? j  K j �  K ��g��nameg��wrapper-at-index�CmR[c������h(������] 4�5445�>��"��G��C�������g�� trap-state  (�g��idx (��g��filenamef��system/vm/trap-state.scm t  u u  v   v +  v �  ( ��g��nameg�� next-index!�CnR\c��h(������] 4�5445�>��"��G��C�������g�� trap-state  (�g��idx (��g��filenamef��system/vm/trap-state.scm y  z z  {   { 5  { �  ( ��g��nameg��next-ephemeral-index!�CoRmZMP���h8������]4L�L54L�5$���45456C�������������g��frame  2�g��wrapper  2�g��handler   2��g��filenamef��system/vm/trap-state.scm    �  �   �   �  ! �  ( �  0 � �  2 ���C������h������]�O�C�����������g�� trap-state  �g��idx  ��g��filenamef��system/vm/trap-state.scm ~ �  ��g��nameg��handler-for-index�CpRmNfj������hP������] 4LL�5$��;45$��4>��"��G��"���4L>��"��G��L�6C�������g��frame  P�g��wrapper P��g��filenamef��system/vm/trap-state.scm �   �  �   �   �   �  �  5 � N � �  P ���C�h������]�O�C���������g�� trap-state  �g��idx  �g��handler   ��g��filenamef��system/vm/trap-state.scm � �   ��g��nameg��ephemeral-handler-for-index�CqR4ri5�sRtsXuv���h@������] 4�5$��C45�4�>��"��G���6��������������g��vm  9�g��t 9�g��ts  9��g��filenamef��system/vm/trap-state.scm �  �  �   �   �   �  9 � �  9 ��g��nameg��trap-state-for-vm�CvRvw��������h���x���]�45�6�����p�������g��filenamef��system/vm/trap-state.scm �  �  � �  ��g��nameg��the-trap-state�CxRx;ywk������h ���p���]�L$��45�4L�56C������h�������g��filenamef��system/vm/trap-state.scm �   �  � !  � *  � �   ���Cyw��������h���g���]�L�$�� 45� 6C����_�������g��filenamef��system/vm/trap-state.scm �   �  � !  � �   ���Cywk�������h ���p���]�L$��45�4L�56C������h�������g��filenamef��system/vm/trap-state.scm �   �  � !  � *  � �   ���Cyw��������h���g���]�L�$�� 45� 6C����_�������g��filenamef��system/vm/trap-state.scm �   �  � !  � �   ���C������hp������-�.�,�3�#��45��Y�O��O�4�O�>���"��G��V4>��� X4�O�>���"��G��"��ZCZF���������g��handler n�g��thunk n�g�� trap-state  n��g��filenamef��system/vm/trap-state.scm �  � ; 0 � � n  ��g��nameg��with-default-trap-handler�C/RxzM]����h(������-��.�,�3��#��45��4�56���������g�� trap-state &��g��filenamef��system/vm/trap-state.scm �  � ,  �  & � � & ��g��nameg�� list-traps�C)Rx{mP��h(������-�.�,�3�#��45�4�56�������g��idx (�g�� trap-state (��g��filenamef��system/vm/trap-state.scm �  � /  � ( � � ( ��g��nameg�� trap-name�C+Rx{mN���h(������-�.�,�3�#��45�4�56�������g��idx (�g�� trap-state (��g��filenamef��system/vm/trap-state.scm �  � 3  � ( � � ( ��g��nameg�� trap-enabled?�C*Rx{md�������h(������-�.�,�3�#��45�4�56�������g��idx (�g�� trap-state (��g��filenamef��system/vm/trap-state.scm �  � 2  � ( � � ( ��g��nameg�� enable-trap!�C,Rx{mf��������h(������-�.�,�3�#��45�4�56�������g��idx (�g�� trap-state (��g��filenamef��system/vm/trap-state.scm �  � 3  � ( � � ( ��g��nameg�� disable-trap!�C-Rx{mNfj��h0������]4�5$��4�>��"��G��"���L��6�����~�������g��wrapper  +��g��filenamef��system/vm/trap-state.scm �  �  �  �  + � �  + ���C�������h0������-�.�,�3�#��45�4�5O�6����������g��idx -�g�� trap-state -��g��filenamef��system/vm/trap-state.scm �  � 2  � - � � - ��g��nameg�� delete-trap!�C.RxcZ��h(������-�.�,�3�#��45�45�6���������g��handler &�g�� trap-state &��g��filenamef��system/vm/trap-state.scm �  � ? & � � & ��g��nameg��install-trap-handler!�C0Rxn|phG}~� ���hP���6��-�.�,�3�#��45�454�45544�556��.������g��proc N�g�� trap-state N�g��idx  N�g��trap  2 N��g��filenamef��system/vm/trap-state.scm �  � B  �  �  # �  ( �  2 �  2 �  9 �  A �  F �  J �  L �  N � � N ��g��nameg��add-trap-at-procedure-call!�C1Rxn}hG� hX���I��-�.�,�3�#��45�454�45544 �556�������A������g��proc Q�g�� trap-state Q�g��idx  Q�g��trap  5 Q��g��filenamef��system/vm/trap-state.scm �  � >  �  �  # �  * �  / � $ 3 �  5 �  5 �  < �  D �  I �  M �  O �  Q � � Q ��g��nameg��add-trace-at-procedure-call!�C2RxnphG}� �������hX���O��-�.�,�3�#��45�454�45544�556������G������g��file R�g�� user-line R�g�� trap-state  R�g��idx  R�g��trap  4 R��g��filenamef��system/vm/trap-state.scm �  � >  �  �  # �  * � ( 4 �  4 �  ; �  C �  H �  N �  P �  R � � R  ��g��nameg��add-trap-at-source-location!�C3Rxoq.�������h���i���]LL�6������a�������g��frame  ��g��filenamef��system/vm/trap-state.scm �  � �  ���ChG}� ���h`���U��-�.�,�3�#��45�454�45O�544 �556�������M������g��frame Y�g��handler Y�g�� trap-state  Y�g��idx  Y�g��trap  = Y��g��filenamef��system/vm/trap-state.scm �  � :  �  �  # �  ( �  = �  = �  D �  L   Q   U   W �  Y � � Y  ��g��nameg��#add-ephemeral-trap-at-frame-finish!�C4R}������h@������] �$��/4�5$��"��4�54�56C�������������g��source  :�g��t  '��g��filenamef��system/vm/trap-state.scm            $  5 (   /  , 7   9  �  : ��g��nameg�� source-string�CRxo�������h���\���]C����T�������g��f  ��g��filenamef��system/vm/trap-state.scm  �   ���C������h���w���]4�5L�C��o�������g��f  ��g��filenamef��system/vm/trap-state.scm     .  &  !�   ���C�h������]4�5L$��L��6Cx�������g��f  ��g��filenamef��system/vm/trap-state.scm           �   ���CqhG}���h�����-�/���0���3� #��45�#��#��4�5454$��"��O�$��"��4�5 O�4 55 4 $��$�� "�� 4�5"��($��4455"��445556�������g��frame  ��g��handler  ��g�� trap-state   ��g��into?   ��g�� instruction?   ��g��source  9 ��g��idx  B ��g�� predicate  Z ��g��fp  o }�g��trap  � ��� g��filenamef��system/vm/trap-state.scm    3 3   9   <   B   E   M   Z   b   i   o   �   �   �   �   � !  � " � #  � $  � $  � $  � % � &  � &  � & ( � &  � '  � '  � ' * � '  �   �  �"  �  g��into?S g�� instruction?S ���g��nameg��add-ephemeral-stepping-trap!�C5RxnhG��h8������-�.�,�3�#��45�454�56�����������g��trap 4�g��name 4�g�� trap-state  4�g��idx  4��g��filenamef��system/vm/trap-state.scm )  ) 5  *  *  ' -  4 + � 4  ��g��nameg�� add-trap!�C(RC������������g��m  ,��g��filenamef��system/vm/trap-state.scm   - /  6 / g 1 u 7 - = y C  J . Q I X < ] a B i 6 t 0 y  ~  �  �   � ( �  �  � r � Y � E � 4 � % �  � � "y � $< � & � (p � )  /"  0P ) �%  0R ���C6�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/system/vm/coverage.go��������������������������������������������������������������������0000644�����������������00000113372�15146341264�0012356 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]X�4������h?������]� g��guile � g��define-module* � � g��system g��vm g��coverage � g��filenameS f��system/vm/coverage.scm g��importsS �  � g��frame � � g��program � � g��srfi g��srfi-1 � � g��srfi-9 � � g��srfi-11 � � g��srfi-26 � ! � "!� #g��exportsS $g��with-code-coverage %g��coverage-data? &g��instrumented-source-files 'g��instrumented/executed-lines (g��line-execution-counts )g��procedure-execution-count *g��coverage-data->lcov +$%&'()*� ,g��set-current-module -,� .,� /g��hashq 0g��program-objcode 1g�� hashq-proc 2g��find 3g�� assq-proc 4g��frame-procedure 5g��frame-instruction-pointer 6g��hashx-create-handle! 7g��hashv-create-handle! 8g��make-hash-table 9g��vm-trace-level :g�� vm-next-hook ;g��set-vm-trace-level! <g�� add-hook! =g�� remove-hook! >g�� call-with-vm ?g��make-coverage-data @g��<coverage-data> Ag��%%make-coverage-data-procedure Bg��make-syntax-transformer CB� DB� Eg��%make-coverage-data Fg��macro Gg�� $sc-dispatch HG� IG� Jg��_ Kg��any LJKKKK� Mg�� syntax-object Ng��lambda Og��m-8d25f648290-30 Pg��top QOP� Rg��ribcage Sg��t-8d25f648290-2c Tg��t-8d25f648290-2d Ug��t-8d25f648290-2e Vg��t-8d25f648290-2f WSTUV� XQQQQ� Yf��l-8d25f648290-35 Zf��l-8d25f648290-36 [f��l-8d25f648290-37 \f��l-8d25f648290-38 ]YZ[\� ^RWX]� _R� `g��x a`� bQ� cf��l-8d25f648290-32 dc� eRabd� fg��shift gg�� proc-name hg��args igh� jP� kjj� lf��l-1e8ba8b5a-2ba mf��l-1e8ba8b5a-2bb nlm� oRikn� pg��key qg��value rg��name sg��formals tg��body upqrst� vjjjjj� wf��l-1e8ba8b5a-2ad xf��l-1e8ba8b5a-2ae yf��l-1e8ba8b5a-2af zf��l-1e8ba8b5a-2b0 {f��l-1e8ba8b5a-2b1 |wxyz{� }Ruv|� ~g��make-procedure-name ~� �j� �f��l-1e8ba8b5a-29d �� �R� �j� �f��l-1e8ba8b5a-29c �� �Ra� �Q^_ef____o}�  �g��hygiene �� �MN� �g��procedure->ip-counts �j^_e� �� �M� �g��procedure->sources �M� �g��file->procedures �M� �g��file->line-counts �M� �� �g�� make-struct �g��m-8d25f648290-2a �P� �g��t-1e8ba8b5a-38d �g��t-1e8ba8b5a-38c �g��t-1e8ba8b5a-38b �� �g��m-1e8ba8b5a-38e �P� �� �f��l-1e8ba8b5a-392 �f��l-1e8ba8b5a-393 �f��l-1e8ba8b5a-394 �� �R� �g�� ctor-args �� �f��l-1e8ba8b5a-37a �� �R� �g��ctor �g��field �� �f��l-1e8ba8b5a-376 �f��l-1e8ba8b5a-377 �� �Rk� �g��form �g�� type-name �g��constructor-spec �g�� field-names �� �jjjj� �f��l-1e8ba8b5a-36b �f��l-1e8ba8b5a-36c �f��l-1e8ba8b5a-36d �f��l-1e8ba8b5a-36e �� �R� �g�� record-layout �g��functional-setters �g��setters �g��copier �g��getters �g�� constructor �g��getter-identifiers �g��field-identifiers �� �jjjjjjjj� �f��l-1e8ba8b5a-343 �f��l-1e8ba8b5a-341 �f��l-1e8ba8b5a-33f �f��l-1e8ba8b5a-33d �f��l-1e8ba8b5a-33b �f��l-1e8ba8b5a-339 �f��l-1e8ba8b5a-337 �f��l-1e8ba8b5a-335 �� �R� �f��l-1e8ba8b5a-334 �� �Ra� �^_ef_____� �M� �M@� �M � �� �� �g��each-any �Jی �g��syntax-violation �� �� �f��Wrong number of arguments �g�� identifier? �� �� �j_e� �MA� �� �� �f��-source expression failed to match any pattern �g��record-type-vtable �� �� �g��pwpwpwpw �g��default-record-printer �� �� �� �g��set-struct-vtable-name! �� �� �g��vtable-offset-user �� �� �g��%coverage-data?-procedure �JK� �g��m-8d25f648290-43 �P� �g��t-8d25f648290-42 �� �� �f��l-8d25f648290-48 �� �R� f��l-8d25f648290-45 � Ra� �_f____o}�  MN� g��obj g��t-1e8ba8b5a-47e g��t-1e8ba8b5a-478  g��t-1e8ba8b5a-479  g��t-1e8ba8b5a-47a  g��t-1e8ba8b5a-47d  g��t-1e8ba8b5a-47c  g��t-1e8ba8b5a-47b      � g��m-1e8ba8b5a-47f P� � f��l-1e8ba8b5a-483 f��l-1e8ba8b5a-484 f��l-1e8ba8b5a-485 f��l-1e8ba8b5a-486 f��l-1e8ba8b5a-487 f��l-1e8ba8b5a-488 f��l-1e8ba8b5a-489 � R� g�� copier-id � f��l-1e8ba8b5a-476 � R�  g�� ctor-name ! � "f��l-1e8ba8b5a-46e #"� $R!#� %� &f��l-1e8ba8b5a-46c '&� (R%'� )g��layout *)� +f��l-1e8ba8b5a-46a ,+� -R*,� .g�� immutable? /.� 0f��l-1e8ba8b5a-468 10� 2R/1� 3g�� field-count 43� 5f��l-1e8ba8b5a-466 65� 7R46� 8g�� getter-ids 98� :f��l-1e8ba8b5a-463 ;:� <R9;� =g�� field-ids >=� ?f��l-1e8ba8b5a-460 @?� AR>@� Bg��predicate-name Cg�� field-spec D.BC� Ejjjjjj� Ff��l-1e8ba8b5a-453 Gf��l-1e8ba8b5a-454 Hf��l-1e8ba8b5a-455 If��l-1e8ba8b5a-456 Jf��l-1e8ba8b5a-457 Kf��l-1e8ba8b5a-458 LFGHIJK� MRDEL� N�_f______$_(_-_2_7_<_AM� OMN� PO� Qg��and RMQN� Sg��struct? TMSN� UTO� Vg��eq? WMVN� Xg�� struct-vtable YMXN� ZYO� [j�_� \M@[� ]WZ\� ^RU]� _P^� `j_� aM`� bg��throw-bad-struct cb� db� eg��data-procedure->ip-counts fg��$%data-procedure->ip-counts-procedure gg��free-id hg�� %%on-error ig��m-8d25f648290-4f jiP� kj� lf��l-8d25f648290-51 ml� nRakm� oj_nf____o}�  pMho� qgp� rqK� sg��%%type tg��t-1e8ba8b5a-3a5 ug��t-1e8ba8b5a-3a6 vg��t-1e8ba8b5a-3a7 wg��t-1e8ba8b5a-3a8 xg��t-1e8ba8b5a-3a9 yg��t-1e8ba8b5a-3aa zg��t-1e8ba8b5a-3ab {tuvwxyz� |g��m-1e8ba8b5a-3ac }|P� ~}}}}}}}� f��l-1e8ba8b5a-3b0 f��l-1e8ba8b5a-3b1 f��l-1e8ba8b5a-3b2 f��l-1e8ba8b5a-3b3 f��l-1e8ba8b5a-3b4 f��l-1e8ba8b5a-3b5 f��l-1e8ba8b5a-3b6 � R{~� g��getter g��index � f��l-1e8ba8b5a-3a3 f��l-1e8ba8b5a-3a4 � Rk� 8� jjj� f��l-1e8ba8b5a-39e f��l-1e8ba8b5a-39f f��l-1e8ba8b5a-3a0 � R� _nf_____� Ms� g� JrK� g��ck g��err g��s � jj� f��l-8d25f648290-54 f��l-8d25f648290-55 � R� j_nf____o}�  M� g��quote M� j_n� M@� � � g��%%index M� g� JrK� f��l-8d25f648290-59 f��l-8d25f648290-5a � R� j_nf____o}�  M� M� _n� M � � � g��%%copier M� g� JrK� f��l-8d25f648290-5e f��l-8d25f648290-5f � R� j_nf____o}�  M� M� g��%%<coverage-data>-set-fields j_n� M� � � g��t-8d25f648290-4e � f��l-8d25f648290-63 � Rk� j_nf____o}�  MN� _nf_____� M� � g��if M� MV� MX� � j_n� M@� � g�� struct-ref M� _n� M � � Mb� M� Me� � � � � j_n� Mf� g��data-procedure->sources g��"%data-procedure->sources-procedure g��m-8d25f648290-6a P� � f��l-8d25f648290-6c � Ra� _f____o}�  Mh� g� K� _f_____� Ms� g� JK� � f��l-8d25f648290-6f f��l-8d25f648290-70 � R� _f____o}�  �M� M� j_� M@� � � M� g� JK�  f��l-8d25f648290-74  f��l-8d25f648290-75    �  R �   _f____o}�  M � M �  _� M � � � M� g� JK� f��l-8d25f648290-79 f��l-8d25f648290-7a � R� _f____o}�  M� M� j_� M�  � ! � "g��t-8d25f648290-69 #"� $f��l-8d25f648290-7e %$� &R#%� '&_f____o}�  (MN'� )&_f_____� *M)� +*� ,M)� -MV)� .MX)� /.*� 0j&_� 1M@0� 2-/1� 3M)� 4&_� 5M 4� 63*5� 7Mb)� 8M)� 9M0� :89� ;7*:� <,26;� =(+<� >j_� ?M>� @g��data-file->procedures Ag�� %data-file->procedures-procedure Bg��m-8d25f648290-85 CBP� DC� Ef��l-8d25f648290-87 FE� GRaDF� HC_Gf____o}�  IMhH� JgI� KJK� L_Gf_____� MMsL� NgM� OJKNK� PCC� Qf��l-8d25f648290-8a Rf��l-8d25f648290-8b SQR� TRPS� UCT_Gf____o}�  VMU� WMU� XjT_G� YM@X� ZWY� [Z� \ML� ]g\� ^JK]K� _f��l-8d25f648290-8f `f��l-8d25f648290-90 a_`� bRPa� cCb_Gf____o}�  dMc� eMc� fb_G� gM f� heg� ih� jML� kgj� lJKkK� mf��l-8d25f648290-94 nf��l-8d25f648290-95 omn� pRPo� qCp_Gf____o}�  rMq� sMq� tjp_G� uMt� vsu� wv� xg��t-8d25f648290-84 yx� zf��l-8d25f648290-99 {z� |RyD{� }C|_Gf____o}�  ~MN}� |_Gf_____� M� � M� MV� MX� � j|_G� M@� � M� |_G� M � � Mb� M� M@� � � � ~� j_G� MA� g��data-file->line-counts g��!%data-file->line-counts-procedure g��m-8d25f648290-a0 P� � f��l-8d25f648290-a2 � Ra� _f____o}�  Mh� g� K� _f_____� Ms� g� JK� � f��l-8d25f648290-a5 f��l-8d25f648290-a6 � R� _f____o}�  M� M� j_� M@� � � M� g� JK� f��l-8d25f648290-aa f��l-8d25f648290-ab � R� _f____o}�  M� M� _� M � � � M� g� JK� f��l-8d25f648290-af f��l-8d25f648290-b0 � R� _f____o}�  M� M� j_� M� � � g��t-8d25f648290-9f � f��l-8d25f648290-b4 � R� _f____o}�  MN� _f_____� M� � M� MV� MX� � j_� M@� � M� _� M � � Mb� M� M� � � � � j_� M� g��each KK� � K K K g�� %%set-fields g��dummy g��check? g��expr � g��m-8d25f648290-bb P� � f��l-8d25f648290-c0 f��l-8d25f648290-c1 f��l-8d25f648290-c2 f��l-8d25f648290-c3 f��l-8d25f648290-c4 � �R� � f��l-8d25f648290-bd � Ra� g��t-1e8ba8b5a-3c4 g��t-1e8ba8b5a-3c6 g��t-1e8ba8b5a-3c5 �  g��m-1e8ba8b5a-3c7   P�     �  f��l-1e8ba8b5a-3cb  f��l-1e8ba8b5a-3cc f��l-1e8ba8b5a-3cd   � R � f��l-1e8ba8b5a-3c1 f��l-1e8ba8b5a-3c2 f��l-1e8ba8b5a-3c3 � R� �_f____�  M� j�_� M@� Me� M� M@� M� � g��map  � !� "g��list #g�� hash-for-each $g��program-sources* %g�� source:file &g��for-each 'g�� source:line (g��hash-create-handle! )g��max *g�� append-map +g��closed-over-procedures ,g��closest-source-line -g�� hashq-ref .g�� source:addr /g��module-procedures 0g��loaded-modules 1g��and=> 2g�� hashx-ref 3g�� hashv-ref 4g��program? 5g��program-sources 6g�� hashq-set! 7g��hash-ref 8g��file-procedures 9g�� hash-fold :  ;g�� alist-cons <g��module-submodules =g��resolve-module >g�� procedure? ?g��module-obarray @g��memq Ag��fold Bg��append Cg�� vector->list Dg��program-objects E�� Fg��program-free-variables Gg��format Hf��TN:~% Ig�� search-path Jg�� %load-path Kg��string? Lf��SF:~A~% Mg��source:line-for-user Ng��procedure-name Of�� anonymous-l~a Pf�� FN:~A,~A~% Qf�� FNDA:~A,~A~% Rf�� DA:~A,~A~% Sf��LH: ~A~% Tf��LF: ~A~% Uf��end_of_record~% Vg��current-error-port Wf��"skipping unknown source file: ~a~%C�5���hpR�����]4    "#+5�4.�>��"��G���/0����h������]4�56��������g��proc  �g��n  ��g��filenamef��system/vm/coverage.scm 0  2  2 �   ��g��nameg�� hashq-proc�C1R020�h���|���]L�4�5C��t�������g��pair  ��g��filenamef��system/vm/coverage.scm :  ;  ; ' ;  ; �   ���C�h������] 4�5O�6�������g��proc  �g��alist  �g��code  ��g��filenamef��system/vm/coverage.scm 4  9  9   : �   ��g��nameg�� assq-proc�C3R4561378����h`���h��])4�54�54M�5"��/HKJ$��4J 5C45�""�����`������g��frame  [�g��proc [�g��ip   [�g�� proc-entry  " [�g�� ip-counts  ) W�g��ip-entry  @ K��g��filenamef��system/vm/coverage.scm G   I  I  J   I   K  " I  ( M  . N  6 O  7 P  @ P G Q $ H Q ! I Q  N S # S S  W T  W M �  [ ��g��nameg��collect!�C89:;<��h ���i���]�4LL>��"��G��L�L6�a�������g��filenamef��system/vm/coverage.scm ]   ^  ^ 4  ^   _ �   ���C;=�������h ���Y���]�4LL>��"��G��L�L6��Q�������g��filenamef��system/vm/coverage.scm b   c   d �   ���C>?� �������h���*��]2HO�Q�4 5K4�54�5O�O��Q��Q�4>���"��G��V4�>�� X4>���"��G��"�� G4J5E������"������g��vm  ��g��thunk  ��g��procedure->ip-counts   ��g��collect!  ��g��level  * ��g��hook  * ��g��pre  D ��g��post  D ��g��args  � ��� g��filenamef��system/vm/coverage.scm >  E   Z % $ [ % * Z  9 \  p a  ~ \  � Y  � f  � f �  � ��g��nameg��with-code-coverageg�� documentationf��Run THUNK, a zero-argument procedure, using VM; instrument VM to collect code coverage data. Return code coverage data and the values returned by THUNK.�C$R@�����h������]��C�������g��procedure->ip-counts  �g��procedure->sources  �g��file->procedures   �g��file->line-counts   ��g��filenamef��system/vm/coverage.scm m �   ��g��nameg��%%make-coverage-data-procedure�CAR4DEFIL��������h������]��C�������g��t-8d25f648290-2c  �g��t-8d25f648290-2d  �g��t-8d25f648290-2e   �g��t-8d25f648290-2f   ��   ���CE��h���Y���]L�6����Q�������g��a  ��g��filenamef��system/vm/coverage.scm  m �  ���CJ�������h���I���]�L�6A�������g��filenamef��system/vm/coverage.scm  m �   ���C�h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6���������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��system/vm/coverage.scm m �  n ���C5ER@��4�@>��"��G��� Ai��@R@���h������]�$���CC������x�������g��obj  ��g��filenamef��system/vm/coverage.scm m �   ��g��nameg��%coverage-data?-procedure�CR4D%FI_��h���8���]��C������0�������g��t-8d25f648290-42  ��  ���C%����h���Y���]L�6����Q�������g��a  ��g��filenamef��system/vm/coverage.scm  m �  ���CJ�������h���I���]�L�6A�������g��filenamef��system/vm/coverage.scm  m �   ���Ca��������h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6���������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��system/vm/coverage.scm m �  n ���C5%R@de�����h������]�&��� C�6�������g��s  ��g��filenamef��system/vm/coverage.scm m �   ��g��nameg��$%data-procedure->ip-counts-procedure�CfR4DeFI���h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�����h���8���]��C������0�������g��t-8d25f648290-4e  ��  ���Ce���h���Y���]L�6����Q�������g��a  ��g��filenamef��system/vm/coverage.scm  m �  ���CJ�������h���I���]�L�6A�������g��filenamef��system/vm/coverage.scm  m �   ���C��������h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/vm/coverage.scm m �  � ���C5eR@d��������h������]�&��� C�6�������g��s  ��g��filenamef��system/vm/coverage.scm m �   ��g��nameg��"%data-procedure->sources-procedure�CR4DFI������h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C!�h���:���]C�����2�������g��err  �g��s  ��  ���C=�����h���8���]��C������0�������g��t-8d25f648290-69  ��  ���C���h���Y���]L�6����Q�������g��a  ��g��filenamef��system/vm/coverage.scm  m �  ���CJ�������h���I���]�L�6A�������g��filenamef��system/vm/coverage.scm  m �   ���C?��������h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/vm/coverage.scm m �  � ���C5R@d@��������h ������]�&��� C�6�������}�������g��s  ��g��filenamef��system/vm/coverage.scm m �   ��g��nameg�� %data-file->procedures-procedure�CAR4D@FIOV[�������h���:���]C�����2�������g��err  �g��s  ��  ���C^di�h���:���]C�����2�������g��err  �g��s  ��  ���Clrw�h���:���]C�����2�������g��err  �g��s  ��  ���C�����h���8���]��C������0�������g��t-8d25f648290-84  ��  ���C@���h���Y���]L�6����Q�������g��a  ��g��filenamef��system/vm/coverage.scm  m �  ���CJ�������h���I���]�L�6A�������g��filenamef��system/vm/coverage.scm  m �   ���C��������h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/vm/coverage.scm m �  � ���C5@R@d��������h ������]�&��� C�6�������~�������g��s  ��g��filenamef��system/vm/coverage.scm m �   ��g��nameg��!%data-file->line-counts-procedure�CR4DFI������h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�����h���8���]��C������0�������g��t-8d25f648290-9f  ��  ���C���h���Y���]L�6����Q�������g��a  ��g��filenamef��system/vm/coverage.scm  m �  ���CJ�������h���I���]�L�6A�������g��filenamef��system/vm/coverage.scm  m �   ���C��������h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/vm/coverage.scm m �  � ���C5R4DFI!"���h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��system/vm/coverage.scm m �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5R8@#$%&%'(87)��������hX���K��]!4�54�54L�5$��"�� 4 54 54 5C�������C������g��source  Q�g��file  Q�g��line   Q�g�� file-entry   Q�g�� line-entry  A Q��g��filenamef��system/vm/coverage.scm �   � - � -  � !  �   �  # �  ' �  . � ! 6 � 7 �  < � 0 A �  A �  F �  K � $ N �  O � �  Q ���C*$���h���j���]L��6������b�������g��t-8d25f648290-118  ��g��filenamef��system/vm/coverage.scm � +�  ���C+#,(87)�������hP���@��]4L��54LL5$��"�� 4 54 545C�����8������g��ip  K�g��count  K�g��line  K�g�� file-entry   K�g�� line-entry  : K��g��filenamef��system/vm/coverage.scm �   � - � !  �   �   �  �  ' � ! / � 0 �  5 � 0 : �  : �  ? �  D � $ H �  I � �  K ���C� ����hh���"��]4L�5$�� 45"��$��;4L�O�4LO�4�55>��"��G�� L�O�6C��������g��proc  f�g�� ip-counts  f�g��sources  f�g��file  ! f��g��filenamef��system/vm/coverage.scm �   � % �   � *  � %  � *  � 7  � * ! �  ) �  * �  4 �  > � + F �  K �  d � �  f ���C&-&$%&,(87)�hP���,��]4L��54LL5$��"�� 4 54 54 5C������$������g��ip  J�g��line J�g�� file-entry   J�g�� line-entry  : J��g��filenamef��system/vm/coverage.scm � )  � 7 � +  �   �   �  �  ' � ! / � 0 �  5 � 0 : �  : �  ? �  D � $ G �  H � �  J ���C.���hH������]4L��5$�� 45"��$��LO�456C������������g��proc  C�g��sources C�g��file  ! C��g��filenamef��system/vm/coverage.scm �   � 1 � !  � 6  � 1  � 6  � C  � 6 ! � ! ) � # 7 � ) A � (�  C ���C+����h(������]4L�5$��CLL�O�4�56���y�������g��proc  %��g��filenamef��system/vm/coverage.scm �   �   �   �  % � �  % ���C*/0� ��hx���w��]!4 54 d54 d5��4O��>��"��G��4O�44 5�5>��"��G��C������o������g��procedure->ip-counts  r�g��procedure->sources r�g��file->procedures   r�g��file->line-counts   r�g��data  + r��g��filenamef��system/vm/coverage.scm �  �  �  �   �   �   �  + �  + �  . �  I �  W �  \ � , b �  g � �  r ��g��nameg��make-coverage-data�C?R$1213@de.3������h������] 4L�5� 6����������g�� ip-counts  �g��entry-ip ��g��filenamef��system/vm/coverage.scm �   � "  � / � " �   � �   ���C� hH�����] 4�5$��04�&��� "�� 4�55 O�6C��������g��data  F�g��proc  F�g��sources  F��g��filenamef��system/vm/coverage.scm �  �  �   �  �   �  �  ; �  D � �  F ��g��nameg��procedure-execution-countg�� documentationf�Return the number of times PROC's code was executed, according to DATA, or #f if PROC was not executed. When PROC is a closure, the number of times its code was executed is returned, not the number of times this code associated with this particular closure was executed.�C)R-@d45@%(6� �����h�����]*4�&��� "�� 4�55$��C45$��45�&��� "�� 4�5�&�� � "�� 4�5$��8454 54 >��"��G��CCC�������g��data  ��g��proc  ��g��t  # ��g��sources  u ��g��p->s  u ��g��f->p  u ��g��file  � ��g��entry  � ���g��filenamef��system/vm/coverage.scm �  �   �  # �  # �  / � 9 �  : �  C �  ] �  u � ~ �  � � � �  � � , � �  � �  � �  � � > � �  � �  � �  � � . � � # � � �  � ��g��nameg��program-sources*�C$R7@d@�����h(������]�&�� � "�� 4�56�����������g��data  $�g��file  $��g��filenamef��system/vm/coverage.scm �  � " � . $ � �  $ ��g��nameg��file-procedures�C8R17@d9��h(������] $��"��C�������������g��line  "�g��count  "�g�� instr+exec   "�g��instr   "�g��exec   "��g��filenamef��system/vm/coverage.scm �   � '  � '  �   � "  � &  � "  � & ! � �  " ���C:�����h���v���]�6����n�������g�� line-counts  ��g��filenamef��system/vm/coverage.scm �  �  � �  ���C�������h8���p��] H44�&�� � "�� 4�555KJJDh������g��data  8�g��file  8�g�� instr+exec   8��g��filenamef��system/vm/coverage.scm �  �  �  �  * � . �  3 � 6 �  8 � �  8 ��g��nameg��instrumented/executed-linesg�� documentationf��dReturn the number of instrumented and the number of executed source lines in FILE according to DATA.�C'R17@d9;����h���v���]�6�����n�������g�� line-counts  ��g��filenamef��system/vm/coverage.scm �  � ! � �  ���C�������h0���<��]4�&�� � "�� 4�556������4������g��data  *�g��file  *��g��filenamef��system/vm/coverage.scm �  � �  & � * � �  * ��g��nameg��line-execution-countsg�� documentationf��rReturn a list of line number/execution count pairs for FILE, or #f if FILE is not among the files covered by DATA.�C(R9���h������]�C�������g��file  �g��counts  �g��files   ��g��filenamef��system/vm/coverage.scm    �   ���C@d��������h(���+��]�&�� � "�� 4�56����#������g��data  $��g��filenamef��system/vm/coverage.scm �    $  �  $ ��g��nameg��instrumented-source-filesg�� documentationf��xReturn the list of `instrumented' source files, i.e., source files whose code was loaded at the time DATA was collected.�C&R89-6<������h8������]4M5$��C4M>��"��G��L�456��������g��name  7�g��module  7�g��result   7��g��filenamef��system/vm/coverage.scm            *   5   7  �  7 ���C��h������]L�LO��6������������g��modules  �g��result  ��g��filenamef��system/vm/coverage.scm     �   ��g��nameg��loop�C<=�h0������]H�45�K�O��Q�44556����������g��seen  -�g��loop  -��g��filenamef��system/vm/coverage.scm           "  ) %  9 (  ) *   +   -  �  - ��g��nameg��loaded-modules�C0R9>��������h(������] $��45$��CCC����������g��binding  %�g��var  %�g��result   %�g��value  "��g��filenamef��system/vm/coverage.scm                 ! �  % ���C?���h������]4�56�������g��module  ��g��filenamef��system/vm/coverage.scm   $  %   �   ��g��nameg��module-procedures�C/R.'���hX���c��]"��1(��C45$��C45"��$�� 4�5"��"���[������g��sources  U�g��ip  U�g��sources   7�g��line   7�g��source   7��g��filenamef��system/vm/coverage.scm '  +  -   /   /   0   0  " 0 ( 2  ) 2 " 7 2  7 +  < ,  @ ,  A , + F , 8 H , + U + �  U ��g��nameg��closest-source-line�C,R4@ABCDEF� ���hX�����] 4�5$��F4�5$��CL��444�5$��"��54�556C��������g��proc  V�g��result  V�g��t  3 F��g��filenamef��system/vm/coverage.scm 6   8 8   8 "  8  & 9  ' :  * :  - : ( 3 : $ C : ? H :  I ;  Q :  S 9 �  V ��g��nameg��loop�C4ABCDEF� hX�����]O�Q�4�5$��6��444�5$��"��54�556C������������g��proc  R�g��loop R�g��t  0 C��g��filenamef��system/vm/coverage.scm 4 6   8  8  # 7  $ :  ' :  * : ( 0 : $ @ : ? E :  F ;  N :  P 9  Q 7 �  R ��g��nameg��closed-over-procedures�C+RGH&8IJKGL&4$MNGOP1)GQ��h���p���]L�L�6��h�������g��count  ��g��filenamef��system/vm/coverage.scm S   T (  T �   ���C� ����h���{��]4�5$��p4L��5$��\454�5$��"�� 454L>��"��G��4 L��5 LO�6CC�s������g��proc  �g��sources  }�g��line  ' {�g��t  0 K�g��name  K {��g��filenamef��system/vm/coverage.scm I   K K   L   L  M   M N  % N 3 ' N  ' N  * O ! 0 O  ? P ! D P , H P ! K N  N Q  T Q  ] Q  h R  { R �   ��g��nameg�� dump-function�CGR���h ������]��L�6��������������g�� line+count  �g��line  �g��count   ��g��filenamef��system/vm/coverage.scm _  ` /  a /  ` "  b 1  c ,  b $�   ���C('STUVW�����h�����]!4L�54�545$��4L�>��"��G��4LL�O�>��"��G��4 L�O�4 L�5>��"��G��4 L�>�� G�4L� >��"��G��4L� >��"��G��L�645��6�������g��file  ��g��procs  ��g��path   ��g��instr  � ��g��exec  � ���g��filenamef��system/vm/coverage.scm X  Y  Z   Y   [  # [  $ ]  * ] # 1 ]  : ^  U _  _ d l _  u f $ � e  � g  � g % � g  � h  � h % � h  � i # � i  � k  � l  � k �  � ���C&��������h0�����]4>��"��G���O�4�56������������g��data  *�g��port  *��g��filenamef��system/vm/coverage.scm C  W  W   W  " n * X �  * ��g��nameg��coverage-data->lcovg�� documentationf�Traverse code coverage information DATA, as obtained with `with-code-coverage', and write coverage information in the LCOV format to PORT. The report will include all the modules loaded at the time coverage data was gathered, even if their code was not executed.�C*RC�����������g��m  ,�g��rtd t ��g��filenamef��system/vm/coverage.scm   � 0 Y 4 ] > v m 1B � 4 � 7t � 8a � ; � > � @6 � C  D  F ' I 4 Rj C �  Rl ���C6�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/system/vm/inspect.go���������������������������������������������������������������������0000644�����������������00000023373�15146341264�0012231 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0&������]�t�4��h������]� g��guile � g��define-module* � � g��system g��vm g��inspect � g��filenameS f��system/vm/inspect.scm g��importsS g��base g��pmatch  � � g��syntax  � � � � g��frame � � g��language g��assembly g�� disassemble � g��selectS g�� %disassemble  � ! � "g��ice-9 #g��rdelim $"#� %$� &g�� pretty-print '"&� ('� )g��format *")� +*� ,g��program -,� .-� /!%(+.�  0g��exportsS 1� 2g��set-current-module 32� 42� 5g��make-hash-table 6g�� hash-for-each 7g�� hashq-set! 8g�� hashq-ref 9g�� reverse-hashq :g��catch ;g��wrong-number-of-args <g��keyword-argument-error =g��catch-bad-arguments >g�� eof-object? ?g��char=? @g�� read-char Ag�� repl-reader Bg��char-whitespace? Cg�� unread-char Dg��read Eg��reverse Fg�� read-args Gg�� make-module Hg��throw Ig��quit Jg��set-procedure-property! Kg��name Lg��module-define! Mg�� module-add! Ng��q Og��module-local-variable Pg��continue Qg��cont Rg��c Sg��print Tg��p Ug��write Vg��w Wg��display Xg��d Yf��Error disassembling object: ~a  Zg��x [g��module-obarray \g��procedure-name ]f��~a~{ ~:@(~a~)~}~?~%~a~&~% ^g��program-lambda-list _f��"~#[~:;~40t(aliases: ~@{~a~^, ~})~] `g��delq ag��procedure-documentation bf��Invalid command ~s.~% cf��#Try `help' for a list of commands~% dg��sort eg��hash-map->list fg��string<? gg��symbol->string hf��Available commands:~%~% ig��for-each jg��help kg��h lg��? mg��apply ng��current-error-port of��)Invalid arguments to ~a. Try `help ~a'.~% pg��newline qf��$~&Unknown command: ~a. Try `help'.~% rg��save-module-excursion sf��~20@y inspect> C�5������h���y���]4    /015�44�>��"��G���5678�������h������]L��4L�56��������g��k  �g��v  ��g��filenamef��system/vm/inspect.scm %  & !  & 2  & !  &   & �   ���C������h(������] 45�4O��>��"��G��C����������g��h  %�g��ret  %��g��filenamef��system/vm/inspect.scm "  #  #  $ �  % ��g��nameg�� reverse-hashq�C9R:;:<h���s���-�1�3�L�6����k�������g��k �g��args ��g��filenamef��system/vm/inspect.scm /  0 � ���C��h���X���]�LL�O�6�������P�������g��filenamef��system/vm/inspect.scm ,   -  - �   ���C������h���s���-�1�3�L�6����k�������g��k �g��args ��g��filenamef��system/vm/inspect.scm 1  2 � ���C��h������]�O�O�6�������g��thunk  �g��bad-args-thunk  ��g��filenamef��system/vm/inspect.scm *  +  + �   ��g��nameg��catch-bad-arguments�C=R>?@ABCDE� �h@����]!"��45$���C4 5$��4�5"45$��4�5"4>��"��G��4�5�4�5"��"��45$��64 5$��645$��4�5"4>��"��G��4�54�5"v4�5"������g��prompt  @�g��chr  ��g��reader  & 4�g��reader  G U�g��reader  o }�g��tok  } ��g��reader  � ��g��out � *�g��chr  � *�g��reader  � ��g��reader  �  �g��tok   *�g��reader   "�g��reader , :��g��filenamef��system/vm/inspect.scm 4  9   ;   :   ;   <  $ :  & 8  ) 6  : <  ; =  E :  G 8  J 6  [ =  \ ?  o @  r 6  } @  � A  � 8  � 6  � A  � B  � D  � C  � D  � E  � C  � E  � F  � C  � 8  � 6  � F  � H  � I  � 6   I   J   8   6  * J  , 8  / 6  @ K �/  @ ��g��nameg�� read-args�CFRGHI�������h������]�6�������g��filenamef��system/vm/inspect.scm a   c  c �   ��g��nameg��cg�� documentationf��Quit the inspector.�CJKILMNOPQR&�������h������]�L�6�������g��filenamef��system/vm/inspect.scm e   g �   ��g��nameg��cg�� documentationf��.Print the current object using `pretty-print'.�CSTh������]�ML�6�������g��filenamef��system/vm/inspect.scm i   k �   ��g��nameg��cg�� documentationf��'Print the current object using `write'.�CUV�������h������]�ML�6�������g��filenamef��system/vm/inspect.scm m   o �   ��g��nameg��cg�� documentationf��)Print the current object using `display'.�CWX:������h���P���]�L�6H�������g��filenamef��system/vm/inspect.scm t   u �   ���C)Y��������h���m���-��1��3��6������e�������g��args ��g��filenamef��system/vm/inspect.scm v   w   w �  ���C��������h������]�L�O�6�������g��filenamef��system/vm/inspect.scm q   s �   ��g��nameg��cg�� documentationf��GDisassemble the current object, which should be objcode or a procedure.�CZ9[O\)]^_`8a� �����hH��� ��]4L��5454544L554 56����������g��cmd  D�g��v D�g��p   D�g��canonical-name   D��g��filenamef��system/vm/inspect.scm |   }  }  ~   }   !  } �  # � # + �  , �  1 � ) ; �  < �  D � �  D ��g��nameg��help-cmd�C)bcO\]^_`8ade\��������h���z���]�6�������r�������g��k  �g��v  ��g��filenamef��system/vm/inspect.scm �   � + � �  ���Cfg������h������]4�5456����{�������g��x  �g��y  ��g��filenamef��system/vm/inspect.scm �   � $ � $  � �   ���Chi������h���i��-��.�,�3��#���44L�55O�L�Q��$��~"��4�>��"��G��6�$��S4L��5$��B4L��545 4 5 4 4 55456""44554>��"��G��6����a������g��cmd ��g��rhash ! ��g��help-cmd  , ��g��v  v ��g��p  { ��g��canonical-name  � ��g��names  � ���g��filenamef��system/vm/inspect.scm y   {   { " ! {  ! {  9 �  > � C �  J � W �  Y � Y � \ �  ` � a �  m � n }  v } { ~  { } ~  ! � } � �  � � # � �  � �  � � ) � �  � �  � � � �  � �  � �  � � � � � �  � � � � �' � ��g��nameg��cg�� documentationf��Show this help message.�Cjkl:mO=�����h���[���]�LL�@�������S�������g��filenamef��system/vm/inspect.scm �   �  � �  ���C)no\�h ���v���]�45�4L�54L�56�����n�������g��filenamef��system/vm/inspect.scm �   �  �  �   � 0  � �   ���C>pHI)nq� h���2��-�1�3��$�� 4L��5"��$��O�O�64�5$��4>���"��G��64 4 5� �>��"��G��C�����*������g��cmd {�g��args {�g��t   {�g��proc  ) ?��g��filenamef��system/vm/inspect.scm �  �  �   �  �  ) �  ) � ? �  @ �  J �  K �  ^ �  ` �  a �  d �  j �  q � � { ��g��nameg��handle�Cr2F)s�������h���k���]�L�6�����c�������g��filenamef��system/vm/inspect.scm ^   _  _ �  ��g��nameg��prompt�C��h ���[���]�4L>��"��G��L�O�6�S�������g��filenamef��system/vm/inspect.scm �  �   � �   ���C��h8������]�"��)4L�O�4LL�O�5>��"��G��""�����w�������g��filenamef��system/vm/inspect.scm �   �   �  � # � / � / � �  3 ���C�������h���u���-�1�3�E���m�������g��k �g��args ��g��filenamef��system/vm/inspect.scm �  � � ���C� �������h����]A45�HHHHHH4>��"��G��4>��"��G��44 5>��"��G��4 4 5>��"��G��4 4 5>��"��G��4 4 5>��"��G��K O��Q�4>��"��G��4>��"��G��44 5>��"��G��KO��Q�4>��"��G��4>��"��G��44 5>��"��G��KO��Q�4>��"��G��4>��"��G��44 5>��"��G��KO��Q�4>��"��G��4>��"��G��44 5>��"��G��KO�Q�4>��"��G��4>��"��G��44 5>��"��G��44 5>��"��G��K�O�6�����������g��x  �g��commands  �g��quit   �g��print   �g��write   �g��display   �g�� disassemble   �g��help   �g��c   ��g��c  � !�g��c  , �g��c   �g��c   >�g��c  H ��g��filenamef��system/vm/inspect.scm R  ]   ]   a  � e  , i   m   q  H y   �  � �   ��g��nameg��inspect�CRC����q�������g��m  ,��g��filenamef��system/vm/inspect.scm    " : *  4  R �   ���C6����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/system/vm/vm.go��������������������������������������������������������������������������0000644�����������������00000002044�15146341264�0011176 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0 ������]�'�4�������h������]� g��guile � g��define-module* � � g��system g��vm � g��filenameS f��system/vm/vm.scm g��exportsS g��vm? g��make-vm g��the-vm g�� call-with-vm g��vm:ip g��vm:sp g��vm:fp g��vm-trace-level g��set-vm-trace-level! g�� vm-engine g��set-vm-engine! g��set-default-vm-engine! g��vm-push-continuation-hook g��vm-pop-continuation-hook g�� vm-apply-hook g�� vm-next-hook g��vm-abort-continuation-hook g��vm-restore-continuation-hook   � g��set-current-module � !� "g��load-extension #g�� string-append $f�� libguile- %g��effective-version &f�� scm_init_vmC�5�������h@������]4   5�4!�>��"��G���"i4#i$4%i5�5&6z�������g��m  (��g��filenamef��system/vm/vm.scm   -  3  4 + <  > !  @ �  @ ���C6���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/system/vm/trace.go�����������������������������������������������������������������������0000644�����������������00000017500�15146341264�0011655 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0(������]�h�4������h������]� g��guile � g��define-module* � � g��system g��vm g��trace � g��filenameS f��system/vm/trace.scm g��importsS g��base g��syntax  � � � � g��frame � � g��program � � g��objcode � � g��traps � � g��rnrs g�� bytevectors ! � "!� #g�� instruction $#� %$� &g��ice-9 'g��format (&'� )(� *"%)�  +g��exportsS ,g��trace-calls-in-procedure -g��trace-calls-to-procedure .g��trace-instructions-in-procedure /g��call-with-trace 0,-./� 1g��set-current-module 21� 31� 4g��*objcode-header-len* 5g�� string-append 6g�� string-length 7f��� 8g�� build-prefix 9f��|  :f��~d>  ;g��current-error-port <f��~a~v:@y  =g��frame-call-representation >g��print-application ?g��frame-num-locals @g��frame-local-ref Af��~d<  Bf�� ~ano values  Cf��~a~d values:~{ ~a~}  Dg��map Ef��~v:@y Fg��frame-return-values Gg�� print-return Hg��widthS IH  Jg��vmS KJ  Lg��prefixS ML  Ng�� max-indentS ON  PIKMO� Qg��the-vm Rf��trace:  Sg��trap-calls-to-procedure Tg��trap-calls-in-dynamic-extent UN  VIKU� Wg��#trap-instructions-in-dynamic-extent Xg��frame-instruction-pointer Yg��program-objcode Zg��frame-procedure [g��objcode->bytecode \f��~8d: ~a  ]g��opcode->instruction ^g��calls?S _^  `g�� instructions?S a`  bH  cJ  dN  e_abcd� fg��set-vm-trace-level! gg��vm-trace-levelC�5�h@�����]4    *+05�43�>��"��G��� 4R56'7���h`���x��]"��M$���64545$��45"�456 "��p������g��prefix  ^�g��depth  ^�g��infix   ^�g��numeric-format   ^�g�� max-indent   ^�g��indent   S�g��n   S��g��filenamef��system/vm/trace.scm &  '  )   (   *   +  + # & + ) +  - (  . , 9 , ' A ,  H . # S .  S '  U '  ^ ' �  ^ ��g��nameg�� build-prefix�C8R89:';<=���h0���%��] 4545�4�56�������������g��frame  )�g��depth  )�g��width   )�g��prefix   )�g�� max-indent   )�g��prefix   )��g��filenamef��system/vm/trace.scm 0  1  1 + 1 1  1   1   2  2 ! ! 5 ) 2 �  ) ��g��nameg��print-application�C>R?@89A';B<CD'E�h���h���]L��6���`�������g��val  ��g��filenamef��system/vm/trace.scm H   I ! I �  ���CF���h�����]4�54�545 $�� 45�6 $��45� 4� 5645� 4  O�4 �556������������g��frame  ��g��depth  ��g��width   ��g��prefix   ��g�� max-indent   ��g��len  ��g��nvalues   ��g��prefix  & ���g��filenamef��system/vm/trace.scm 7  8  8  9   9 )  9   8   :  : , " : 2 & :  & 8  0 ;  3 =  9 = $ = =  E ;  H ?  N ? $ S B  \ B & ^ B  ` ?  c F  i F $ n H  x J  � H  � F �  � ��g��nameg�� print-return�CGRPQRS>�����h������]�LLL�6�������g��frame  �g��depth  ��g��filenamef��system/vm/trace.scm O   P �   ��g��nameg�� apply-handler�CG���h������]�LLL�6�������g��frame  �g��depth  ��g��filenamef��system/vm/trace.scm Q   R �   ��g��nameg��return-handler�CJ���hh���'��-�/���0���3�#�� P#��45�#��#�� (�O�O�6�������������g��proc  a�g��width  a�g��vm   a�g��prefix   a�g�� max-indent   a��g��filenamef��system/vm/trace.scm L $ L = 2 M + ? N / a S �  a g��widthS g��vmS g��prefixS g�� max-indentS ���g��nameg��trace-calls-to-procedure�C-RPQRT>�������h������]�LLL�6�������g��frame  �g��depth  ��g��filenamef��system/vm/trace.scm Y   Z �   ��g��nameg�� apply-handler�CG���h������]�LLL�6�������g��frame  �g��depth  ��g��filenamef��system/vm/trace.scm [   \ �   ��g��nameg��return-handler�CJ���hh���'��-�/���0���3�#�� P#��45�#��#�� (�O�O�6�������������g��proc  a�g��width  a�g��vm   a�g��prefix   a�g�� max-indent   a��g��filenamef��system/vm/trace.scm V $ V = 2 W + ? X / a ] �  a g��widthS g��vmS g��prefixS g�� max-indentS ���g��nameg��trace-calls-in-procedure�C,RVQWXYZ[4'\]� ��h8�����]4�544�5545456 ������g��frame  8�g��ip 8�g��objcode   8�g��opcode  & 8��g��filenamef��system/vm/trace.scm b   c  c  d   d %  d   c   e & % f & & e  & c  - g  0 g 8 g �  8 ��g��nameg�� trace-next�CJ��hH�����-�/���0���3�#�� P#��45�#�� (�6������������g��proc  C�g��width  C�g��vm   C�g�� max-indent   C��g��filenamef��system/vm/trace.scm ` $ ` D 5 a 6 C i �  C g��widthS g��vmS g�� max-indentS ���g��nameg��trace-instructions-in-procedure�C.ReQ,JHN.fg��hP������]�L$��4LLLL5N"���L�$��4LLLL5N"���L4L56���������g��filenamef��system/vm/trace.scm t   u  w   v ' y  ( {  < z E } $ L } N } �  N ���Cfg��hX������]�4L4L5>��"��G��M$��4M>���"��G��"���M�$��4M�>���"��G��"���NN�C�������g��filenamef��system/vm/trace.scm    �   � $  �  �  " �  # �  < �  = �  S �  V � �  X ���C,JHN.fg������hP������]�L$��4LLLL5N"���L�$��4LLLL5N"���L4L56���������g��filenamef��system/vm/trace.scm t   u  w   v ' y  ( {  < z E } $ L } N } �  N ���Cfg��hX������]�4L4L5>��"��G��M$��4M>���"��G��"���M�$��4M�>���"��G��"���NN�C�������g��filenamef��system/vm/trace.scm    �   � $  �  �  " �  # �  < �  = �  S �  V � �  X ���Cfg��������hX������]�4L4L5>��"��G��M$��4M>���"��G��"���M�$��4M�>���"��G��"���NN�C�������g��filenamef��system/vm/trace.scm    �   � $  �  �  " �  # �  < �  = �  S �  V � �  X ���C�����h�����-�/���0���3�#��#��#�� P#��45�#�� (HH�O�O�4�O�>���"��G��V4�>���X4O�>���"��G��CX4O�>���"��G��F�������~������g��thunk  ��g��calls?  ��g�� instructions?   ��g��width   ��g��vm   ��g�� max-indent   ��g�� call-trap  K ��g�� inst-trap  K ���g��filenamef��system/vm/trace.scm o 6 p ) G p ? K q  p s �  � g��calls?S g�� instructions?S g��widthS g��vmS g�� max-indentS ���g��nameg��call-with-trace�C/RC������������g��m  ,��g��filenamef��system/vm/trace.scm   1 $ # &  0  7 L V  ` 9 o �  ; ���C6�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/system/vm/instruction.go�����������������������������������������������������������������0000644�����������������00000001515�15146341264�0013137 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.05������]��4�h)������]� g��guile � g��define-module* � � g��system g��vm g�� instruction � g��filenameS f��system/vm/instruction.scm g��exportsS g��instruction-list g�� instruction? g��instruction-length g��instruction-pops g��instruction-pushes g��instruction->opcode g��opcode->instruction  � g��set-current-module � � g��load-extension g�� string-append f�� libguile- g��effective-version f��scm_init_instructionsC�5��h@������]4    5�4�>��"��G���i4i4i5�56�������g��m  (��g��filenamef��system/vm/instruction.scm   -   3   4  + <   >   @  �  @ ���C6������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/system/vm/objcode.go���������������������������������������������������������������������0000644�����������������00000001471�15146341264�0012164 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0!������]��4��������h������]� g��guile � g��define-module* � � g��system g��vm g��objcode � g��filenameS f��system/vm/objcode.scm g��exportsS g��objcode? g�� objcode-meta g��bytecode->objcode g��objcode->bytecode g�� load-objcode g�� write-objcode g�� word-size g�� byte-order  � g��set-current-module � � g��load-extension g�� string-append f�� libguile- g��effective-version f��scm_init_objcodesC�5h@������]4    5�4�>��"��G���i4i4i5�56�������g��m  (��g��filenamef��system/vm/objcode.scm   -   3   4  + <   >   @  �  @ ���C6��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/system/vm/frame.go�����������������������������������������������������������������������0000644�����������������00000015605�15146341264�0011655 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0m������]�E�4�h������]� g��guile � g��define-module* � � g��system g��vm g��frame � g��filenameS f��system/vm/frame.scm g��importsS g��base g��pmatch  � � g��program � � g�� instruction � � g��objcode � � � g��exportsS g��frame-bindings g��frame-lookup-binding g��frame-binding-ref g��frame-binding-set! g��frame-next-source !g��frame-call-representation "g��frame-environment #g��frame-object-binding $g��frame-object-name %g��frame-return-values & !"#$%�  'g��set-current-module ('� )'� *g��frame-procedure +g��program? ,g��program-bindings-for-ip -g��frame-instruction-pointer .g�� binding:name /g��frame-local-set! 0g�� binding:index 1g��error 2f��variable not bound in frame 3g��frame-local-ref 4g��frame-arguments 5g��program-source 6g��program-sources-pre-retire 7g��catch 87� 97� :g��procedure-name ;g��program-arguments-alist <g��frame-num-locals =g��??? >g��assq-ref ?g��required @g��optional Ag��keyword Bg��rest Cg��map Dg��iotaC�5�hh�����]4    &5�4)�>��"��G���*+,-��������h(������] 4�545$�� 4�56C����������g��frame  %�g��p %��g��filenamef��system/vm/frame.scm !  " "  #   #   $ # # $  $ % �  % ��g��nameg��frame-bindings�CR.���h8�����] "��#(��C45&��C"4�5"���������g��frame  6�g��var  6�g��bindings   )��g��filenamef��system/vm/frame.scm '  (  )   +   +   +   )   , # .  ) . ) (  * (  6 ( �  6 ��g��nameg��frame-lookup-binding�CR/012������h8������] �44�5$��"�� 4�556�����������g��frame  4�g��var  4�g��val   4�g��t   .��g��filenamef��system/vm/frame.scm 0  2  3   3  ! 4  % 4 + 4  0 2  4 1 �  4 ��g��nameg��frame-binding-set!�CR3012������h8������] �44�5$��"�� 4�556�������������g��frame  2�g��var  2�g��t   .��g��filenamef��system/vm/frame.scm 7  9  :   :  ! ;  % ;  + ;  0 9  2 8 �  2 ��g��nameg��frame-binding-ref�CR!��������h������]4�5C�����}�������g��frame  ��g��filenamef��system/vm/frame.scm A  B  B �  ��g��nameg��frame-arguments�C4R*+5-6��h0������] 4�545$��4�5456C�����������g��frame  ,�g��proc ,��g��filenamef��system/vm/frame.scm J  K  K  L   L   N  " O  * M  + P �  , ��g��nameg��frame-next-source�C R*9:��h���N���]�L�6F�������g��filenamef��system/vm/frame.scm e  e �   ���Ch���[���-��1��3�C�����S�������g��args ��g��filenamef��system/vm/frame.scm e � ���C+;-30<=�h8����]�$��^�4L�5$��4L�455"��4L�5$�� 4L�5"��4L�5C$��^4L�5$��4L�455"��4L�5$�� 4L�5"��4L�5C$��#4L�54L�5C$��74L�5$�� L�4564L�5$��L�6CC��� ������g��req  5�g��opt  5�g��key   5�g��rest   5�g��i   5�g��sym  T�g��t   Q�g��sym  q ��g��t  | ��g��t   3�� g��filenamef��system/vm/frame.scm t  z  y  { # {   m   l  n  % n 6 - n  4 o  ; o  ? l  @ p  N s  U |  Z |  c | 1 e |  f {  j }  n y  q ~ # q ~  t m  | l  � n  � n 6 � n  � o  � o  � l  � p  � s  �   �   �  1 �   � ~  � �  � y  � �  � �  � � . � �  � �  � � # � � 2 � �  � �  � y  � m   l   n 6  n   o  $ o  ( l  0 p  2 s  4 � �>  5 ��g��nameg��lp�C>?@ABC3�����h���`���]L��6������X�������g��i  ��g��filenamef��system/vm/frame.scm � � �  ���CD<�h���E��]!4�54O�5$��"��45$��44�55"��$��O��Q�44  5$��"��4  5$��"��4  5$��"��4  5$��"�� 5"��4�O�44�555C�������=������g��frame  ��g��p ��g��t   -�g��t  K ��g��lp  \ ��g��t  o ��g��t  � ��g��t  � ��g��t  � ��� g��filenamef��system/vm/frame.scm b  c c  e  e  . g 8 g  9 h > h ' F h K f  \ t g t  m t 2 o t  o t  ~ t = � u  � u 2 � u  � u  � u = � v  � v 2 � v  � v  � v < � w  � w 3 � w  � w  � t � �  � � � �  � � � �  � d �'  � ��g��nameg��frame-call-representation�C!RC.�����h���x���]4�54L��5C����p�������g��binding  ��g��filenamef��system/vm/frame.scm �   �  � &  � �   ���C���h������]�O�4�56�����������g��frame  ��g��filenamef��system/vm/frame.scm � �   � �   ��g��nameg��frame-environment�C"R���hH���#��] "��2(��"�� 4�5$�� $��CC"4�5"���������g��frame  E�g��obj  E�g��bs   8��g��filenamef��system/vm/frame.scm �  �  �  �  �   � 8  �   �  " �  % � ) �  , �  2 � " 8 �  9 � E � �  E ��g��nameg��frame-object-binding�C#R#.��h ������] 4�5$��6C������������g��frame  �g��obj  �g��t  ��g��filenamef��system/vm/frame.scm �  � � �   ��g��nameg��frame-object-name�C$R<3C3������h���r���]LL�L �6������j�������g��i  ��g��filenamef��system/vm/frame.scm � � %  � "  � �   ���CD�h0������]4�54�5�O�456����������g��frame  -�g��len -�g��nvalues   -��g��filenamef��system/vm/frame.scm �  �  �  �   � )  �   �  % � - � �  - ��g��nameg��frame-return-values�C%RC�����������g��m  ,��g��filenamef��system/vm/frame.scm   - ! | '  0  7  A  J  b 5 �  �  � b � �  d ���C6����������������������������������������������������������������������������������������������������������������������������2.0/ccache/system/vm/traps.go�����������������������������������������������������������������������0000644�����������������00000072243�15146341264�0011715 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0t������]��4����hU������]� g��guile � g��define-module* � � g��system g��vm g��traps � g��filenameS f��system/vm/traps.scm g��importsS g��base g��pmatch  � � � � g��frame � � g��program � � g��objcode � � g�� instruction � � g��xref � ! � "g��rnrs #g�� bytevectors $"#� %$� &!%� 'g��exportsS (g��trap-at-procedure-call )g��trap-in-procedure *g��trap-instructions-in-procedure +g��trap-at-procedure-ip-in-range ,g��trap-at-source-location -g��trap-frame-finish .g��trap-in-dynamic-extent /g��trap-calls-in-dynamic-extent 0g��#trap-instructions-in-dynamic-extent 1g��trap-calls-to-procedure 2g��trap-matching-instructions 3()*+,-./012�  4g��set-current-module 54� 64� 7g��make-syntax-transformer 87� 97� :g�� arg-check ;g��macro <g�� $sc-dispatch =<� ><� ?g��any @????� Ag�� syntax-object Bg��if Cg��top DC� Eg��ribcage Fg��dummy Gg��arg Hg�� predicate? Ig��message JFGHI� Kg�� m-1f68148ae-0 LKC� MLDDD� Nf�� l-1f68148ae-5 Of�� l-1f68148ae-6 Pf�� l-1f68148ae-7 Qf�� l-1f68148ae-8 RNOPQ� SEJMR� TE� Ug��x VU� WL� Xf�� l-1f68148ae-2 YX� ZEVWY� [DSTZ� \g��hygiene ]\� ^AB[]� _g��not `A_[]� ag��error bAa[]� cf��bad argument ~a: ~a dAc[]� eg��quote fAe[]� g???� hFGH� iLDD� jf�� l-1f68148ae-e kf�� l-1f68148ae-f lf��l-1f68148ae-10 mjkl� nEhim� oDnTZ� pABo]� qA_o]� rAao]� sf��bad argument ~a: expected ~a tAso]� uAeo]� vg��syntax-violation wv� xv� yf��-source expression failed to match any pattern zf��trap already enabled {f��trap already disabled |g��new-disabled-trap }g��new-enabled-trap ~g�� procedure g��frame-procedure �g��program? �g��program-objcode �g�� frame-matcher �g��vmS �  �g��closure?S �  �g�� our-frame?S �  �� �g��the-vm �g�� procedure? �g��proc �g��handler �g�� add-hook! �g�� vm-apply-hook �g�� remove-hook! �g�� current-frameS �  �  �  �  �� �g�� enter-handler �g�� exit-handler �g��warn �f��already in proc �g��frame-previous �g��vm-push-continuation-hook �g��vm-pop-continuation-hook �g��vm-abort-continuation-hook �g��vm-restore-continuation-hook �g�� next-handler �g�� vm-next-hook �g��number? �g��integer? �g��exact? �g��non-negative-integer? �g��positive-integer? �g��and-map �g��range? �g��or-map �g�� in-range? �g��range �g�� frame-address �g��frame-instruction-pointer �g��objcode->bytecode �g��program-last-ip �f�� unexpected �g��for-each �g�� assv-set! �g��assv-ref �g��sort! �g��program-sources-pre-retire �g��program-sources-by-line �f��no instructions found at �f��: �f�� ; using line �f��instead �f��no instructions found for �g��source->ip-range �g��source-closures �g��source-procedures �g��source-closures-or-procedures �� �g��string? �g��file �g�� user-line �g��map �f��No procedures found at ~a:~a. �  �� �g��frame? �g��return-handler �g�� abort-handler �f��.return-or-abort traps may only be enabled once �  �  �  �  �� �g�� apply-handler �  �  �  �� �g��length �g��delq �� �g�� frame-predC�5������hc����]4    &'35�46�>��"��G���49:;>@^`bdf��h(���k���]�����C����c�������g��dummy  $�g��arg  $�g�� predicate?   $�g��message   $��  $ ���Cgpqrtu�����h0���V���]������C�������N�������g��dummy  )�g��arg  )�g�� predicate?   )��  ) ���Cxy���h@������]4�5$��@4�5$��@�6��������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��system/vm/traps.scm N �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��argg�� predicate?g��message�g��argg�� predicate?���C5:Raza{�����hP������-��.�,�3��#���M$��"��4>��"��G��4L�>��"��G��NL�C��������������g��frame I��g��filenamef��system/vm/traps.scm c   d  d  $ d  ) d  2 e  D f � I ��g��nameg�� disable-trap�C�hX������-��.�,�3��#���M$��4>��"��G��"���4L�>��"��G��NLL�LO�C�������������g��frame R��g��filenamef��system/vm/traps.scm ]   ^   ^  ^  % ^  2 _  F ` � R ��g��nameg�� enable-trap�C��h ������]HO�Q�C���������g��vm  �g��enable  �g��disable   �g��enabled?   �g�� enable-trap   ��g��filenamef��system/vm/traps.scm V  W �   ��g��nameg��new-disabled-trap�C|R|���h������]4�56��������������g��vm  �g��frame  �g��enable   �g��disable   ��g��filenamef��system/vm/traps.scm k  l   l �   ��g��nameg��new-enabled-trap�C}R~�h8������] 4�5L�&��C45$��454L�5CC�������������g��frame  2�g�� frame-proc 2��g��filenamef��system/vm/traps.scm s   t  t  u  u   v  v  ! w  ( x  / w �  2 ���C�h���j���]4�5L�C���b�������g��frame  ��g��filenamef��system/vm/traps.scm y   z  z �  ���C���h0������] �$�� 4�5"���$��O�CO�C���������g��proc  .�g��match-objcode?  .�g��proc   .��g��filenamef��system/vm/traps.scm n  o  o  p   o   r �  . ��g��nameg�� frame-matcher�CRash������]4L�5$��L��6C����������g��frame  ��g��filenamef��system/vm/traps.scm �   � �   � �   ��g��nameg�� apply-hook�C}�h���m���]4L5L�6�e�������g��frame  ��g��filenamef��system/vm/traps.scm �   �   � �   ���C���h���m���]4L5L�6�e�������g��frame  ��g��filenamef��system/vm/traps.scm �   �   � �   ���C��������h���M��-�/���0���3�#��45�#��#�� 4�54�5$��"��4>��"��G��45$��"��4 >��"��G�� O�Q�  O� O�6���E������g��proc  ��g��handler  ��g��vm   ��g��closure?   ��g�� our-frame?   ��g�� apply-hook  � ���g��filenamef��system/vm/traps.scm ~  ~ 8 0 � - ; �  ` �  � � �  �  g��vmS g��closure?S g�� our-frame?S ���g��nameg��trap-at-procedure-call�C(Ras���hX������]M$��4L�>��"��G��N"���4L��5$��%M$���64L�>��"��G��NCC������������g��frame  S��g��filenamef��system/vm/traps.scm �   �  �  � " � , �  2 �  6 �  : � ; � O � �  S ��g��nameg�� apply-hook�C��h(������]M$��4L��>��"��G��NCC��������������g��frame  !��g��filenamef��system/vm/traps.scm �   �  �  � �  ! ��g��nameg��push-cont-hook�C�����hh�����] M$��4L�>��"��G��N"���4L�4�55$��.4�5M$��64L>��"��G��NCC��������������g��frame  a�g��frame 8 _��g��filenamef��system/vm/traps.scm �   �  �  � " � % �  - � 1 �  2 �  8 � @ �  D �  H � I � ] � �  a ��g��nameg�� pop-cont-hook�C���hX������]M$��4L�>��"��G��N"���4L��5$��%M$���64L�>��"��G��NCC������������g��frame  S��g��filenamef��system/vm/traps.scm �   �  �  � " � , �  2 �  6 �  : � ; � O � �  S ��g��nameg�� abort-hook�C����hX������]M$��4L�>��"��G��N"���4L��5$��%M$���64L�>��"��G��NCC������������g��frame  S��g��filenamef��system/vm/traps.scm �   �  �  � " � , �  2 �  6 �  : � ; � O � �  S ��g��nameg�� restore-hook�C}� ���h���4��]44L5L>��"��G��44L5L>��"��G��44L5L>��"��G��44L5L>��"��G��44L5L>��"��G���$��24L�5$��%M�$���64L�>��"��G��N�CCC�������,������g��frame  ���g��filenamef��system/vm/traps.scm �   �   �   �   �   �  , �  5 �  8 �  E �  N �  Q �  ^ �  g �  j �  w �  � �  � �  � � � �  � �  � � � � � � �  � ���C����h������]M$��4L�>��"��G��N"���44L5L>��"��G��44L5L>��"��G��44L5L>��"��G��44L5L>��"��G��4L5L�6�������������g��frame  ���g��filenamef��system/vm/traps.scm �   �  �  � " �  % �  2 �  ; �  > �  K �  T �  W �  d �  m �  p �  } �  � �  � � �  � ���C�����hX��9��-�/���0���3� #��#��45�#��#�� 4�54�5$��"��4>��"��G��45$��"��4 >��"��G��45$��"��4 >��"��G��H O� O�  O� O� O� Q�Q� Q� Q� Q�     O�     O�6�������1������g��proc  Q�g�� enter-handler  Q�g�� exit-handler   Q�g�� current-frame   Q�g��vm   Q�g��closure?   Q�g�� our-frame?   Q�g��in-proc?  � Q�g�� apply-hook  � Q�g��push-cont-hook � Q�g�� pop-cont-hook � Q�g�� abort-hook � Q�g�� restore-hook � Q�� g��filenamef��system/vm/traps.scm � # � 4 9 � ( D �  i �  � �  � �  Q � �  Q  g�� current-frameS g��vmS g��closure?S g�� our-frame?S ���g��nameg��trap-in-procedure�C)Ras�����h������]4L�5$��L��6C����������g��frame  ��g��filenamef��system/vm/traps.scm �   � �   � �   ��g��nameg�� next-hook�C)��h8������]44L5L>��"��G���$��4L�5$��L��6CC���������g��frame  6��g��filenamef��system/vm/traps.scm �   �   �   �  ! �  " � , �  2 � �  6 ��g��nameg��enter�C����h(������]4L�>��"��G��4L�5L6��������������g��frame  !��g��filenamef��system/vm/traps.scm �   �   �  ! � �  ! ��g��nameg��exit�C��������h�����-�/���0���3�#��#��45�#��#�� 4�54�5$��"��4>��"��G��45$��"��4 >��"��G��45$��"��4 >��"��G�� O�Q� � O�O�6 ����������g��proc  ��g�� next-handler  ��g�� exit-handler   ��g�� current-frame   ��g��vm   ��g��closure?   ��g�� our-frame?   ��g�� next-hook  � ���g��filenamef��system/vm/traps.scm � # � A 9 � * D �  i �  � �  � � �  �  g�� current-frameS g��vmS g��closure?S g�� our-frame?S ���g��nameg��trap-instructions-in-procedure�C*R��h0������]4�5$�� 4�5$��4�5$��� CCCC��������g��x  /��g��filenamef��system/vm/traps.scm �  �  �   �   �   � # �  & � 0 ( � +�  / ��g��nameg��non-negative-integer?�CR���h0������]4�5$��4�5$��4�5$��� CCCC���������g��x  .��g��filenamef��system/vm/traps.scm �              #   &  +�  . ��g��nameg��positive-integer?�CR�h ������]�$��4�5$���6CC�������g��x  ��g��filenamef��system/vm/traps.scm            .         .   �  ���C������h������]�$���6C�����|�������g��x  ��g��filenamef��system/vm/traps.scm         �   ��g��nameg��range?�CR����h������]�L�$��L��CC����������g��bounds  ��g��filenamef��system/vm/traps.scm              �   ���C����h������]O��6��������g��range  �g��i  ��g��filenamef��system/vm/traps.scm    �   ��g��nameg�� in-range?�CRas��h@������] "��,"��N�C$���$�� """M�"�������������g��fp  :�g��frames  2��g��filenamef��system/vm/traps.scm       !            #   !  $   *  2  �  : ��g��nameg�� cull-frames!�C�������hp���k��]!4�54�54L>��"��G��4L5M�$�� M�"��$��$��CM�N�C$�� M�N�L�6C�c������g��frame  o�g��fp  o�g��ip   o�g�� now-in-range?  A o�g�� was-in-range?  A o��g��filenamef��system/vm/traps.scm #   $  %   $   &  ' '  2 ( " 6 (  9 ( 6 < ( 3 A '  K ) Q + V ,  X ,  ` ) e .  g . m / �  o ��g��nameg�� next-handler�C*�����h(������]M�$��M�4�5$��M�N�CCC������������g��frame  #��g��filenamef��system/vm/traps.scm 1   2  2  3  3 !  3   2  4   4 �  # ��g��nameg�� exit-handler�C���h�����-�/���0���3� #��#��45�#��#�� 4�54�5$��"��4>��"��G��4 5$��"��4  >��"��G��45$��"��4 >��"��G��H O�O� Q�Q� � O�6 �����������g��proc  ��g��range  ��g��handler   ��g�� current-frame   ��g��vm   ��g��closure?   ��g�� our-frame?   ��g��fp-stack  � ��g�� cull-frames!  � ��g�� next-handler � ��� g��filenamef��system/vm/traps.scm  #  @ 9  ) D   i   �   �   �   � 6 �  �  g�� current-frameS g��vmS g��closure?S g�� our-frame?S ���g��nameg��trap-at-procedure-ip-in-range�C+R������h������]44�55 C��������������g��prog  ��g��filenamef��system/vm/traps.scm =  >   > 0  >   > �   ��g��nameg��program-last-ip�CRa���h0������] 4M���4M��5$��"��5N�C�������g��pair  0�g��t  )��g��filenamef��system/vm/traps.scm T  V  V $ W $  X (  X 8  X (  X $ & Y ( * W  , V  . U �  0 ���C�h������]�C������y�������g��x  �g��y  ��g��filenamef��system/vm/traps.scm [   [ (  [ 0 [ %�  ���C� �h ����]R"�$��$��$��$��g $��L $��0  $��     "��45 "�� 4�5"�� "��45"��45"��45"-H4O�>��"��G��4J>��"��G��JC4�5"����������g��proc  �g��file  �g��sources    �g��out    �g��v   ��g��vx  " ��g��vy  " ��g��vx  3 ��g��vy  3 ��g��vx A ��g��v ^ ��g��vx j x�g��alist  �  �� g��filenamef��system/vm/traps.scm @  A  C  C   D  E   E L G  P G  U I * V I # Z I  ] J + ^ J # u L & } M + � M 2 � M + � N 2 � N # � H  � H  � Q  � Q  � Q  � Q  � Q  � Q  � Q  � D  � R  � R  � S � [  A   A   B   A �'   ��g��nameg��program-sources-by-line�CR�����h@������]�L$���C�L$��#4L�L�>��"��G���CC��������g��line-and-ranges  ?��g��filenamef��system/vm/traps.scm _   a   a  `   b   c   c   `   d   d  # d 8 ' e  * e ' , e = 1 d  < f �  ? ���C�h@������] 4O�4�55$��C4>��"��G��C���������g��proc  >�g��file  >�g��line   >�g��t   >��g��filenamef��system/vm/traps.scm ^  _   h   _   _  % j  ) j  - j / 4 j  = k �  > ��g��nameg��source->ip-range�CR���h(������] 4�5$��D4�5D����������g��file  %�g��line  %�g��closures  %��g��filenamef��system/vm/traps.scm m  n  n   o   o   p   q  % q �  % ��g��nameg��source-closures-or-procedures�CRas}+���h(������] 4�L�L5�LLLL6 ���������g��proc  &�g��range  &��g��filenamef��system/vm/traps.scm     !  =   !    &  �  & ���Ca��������h0������]4LLLLLLO�L5N�M�(�� LL6C���������g��frame  .��g��filenamef��system/vm/traps.scm       "  &   ,  �  . ���C���h���c���]�L�6[�������g��trap  ��g��filenamef��system/vm/traps.scm     $�   ���C��h ���m���]4�O�M�>��"��G��N�Ce�������g��frame  ��g��filenamef��system/vm/traps.scm      �  ���C��������h�����-�/���0���3�#��#��45�4�5$��"��4>��"��G��45$��"��4  >��"��G��4 5$��"��4  >��"��G��H4�>�� G��O�O�6����������g��file  ��g�� user-line  ��g��handler   ��g�� current-frame   ��g��vm   ��g��traps  � ��g��procs  � ��g�� closures?  � ���g��filenamef��system/vm/traps.scm w # x : * y  O z  t {  � |  � ~  � ~ 7 � ~  � }  �  �  �  g�� current-frameS g��vmS ���g��nameg��trap-at-source-location�C,Ras����h(������]M$��4�5M&�� NL��6CC�������������g��frame  "��g��filenamef��system/vm/traps.scm              �  " ��g��nameg�� pop-cont-hook�C��������h(������]M$��4�5M$�� NL��6CC������������g��frame  #��g��filenamef��system/vm/traps.scm                 �  # ��g��nameg�� abort-hook�C}a������h`������]M$��"��4>��"��G��44L5L>��"��G��44L5L�>��"��G��4L5L�6����������g��frame  ]��g��filenamef��system/vm/traps.scm               "   /   8   ;   H   S   ]  �  ] ���C�����hH������]N44L5L>��"��G��44L5L�>��"��G��4L5L�6�����������g��frame  D��g��filenamef��system/vm/traps.scm                 "   /   :   D  �  D ���C�h���_��-�/���0���3�#��45�4�5$��"��4>��"��G��45$��"��4  >��"��G��45$��"��4  >��"��G��4 �5H O�O�Q�Q��O�O�6������W������g��frame  ��g��return-handler  ��g�� abort-handler   ��g��vm   ��g��fp  � ��g�� pop-cont-hook  � ��g�� abort-hook  � ���g��filenamef��system/vm/traps.scm    & !   F   k   �  �   �  �  �  g��vmS ���g��nameg��trap-frame-finish�C-Ras�����h ������]4M�>��"��G��NL��6����������g��frame  ��g��filenamef��system/vm/traps.scm           �   ��g��nameg�� abort-hook�C-������h ������]4M�>��"��G��NL��6����������g��frame  ��g��filenamef��system/vm/traps.scm           �   ��g��nameg�� return-hook�C�����hH������]M$��"��4L�5$��,4L��>��"��G��4�LLO�LL5NCC���������g��frame  F��g��filenamef��system/vm/traps.scm             +   B  �  F ��g��nameg�� apply-hook�C}������h���m���]4L5L�6�e�������g��frame  ��g��filenamef��system/vm/traps.scm        �   ���C���hH������]M$��+4M�>��"��G��N4L�>��"��G��"���N4L�5L6������������g��frame  C��g��filenamef��system/vm/traps.scm              6   9   C  �  C ���C���h(����-�/���0���3� #��#��45�#��#�� 4�54�5$��"��4>��"��G��45$��"��4 >��"��G��45$��"��4 >��"��G��45$��"��4 >��"��G��H O�  O� Q�  Q�  O� O�6����������g��proc  $�g�� enter-handler  $�g��return-handler   $�g�� abort-handler   $�g�� current-frame   $�g��vm   $�g��closure?   $�g�� our-frame?   $�g�� exit-trap  � $�g�� abort-hook � $�g�� apply-hook � $�� g��filenamef��system/vm/traps.scm  #  9 9  - D   i   �   �   �   $  �  $  g�� current-frameS g��vmS g��closure?S g�� our-frame?S ���g��nameg��trap-in-dynamic-extent�C.Ras������h������]M�N�C�������|�������g��frame  ��g��filenamef��system/vm/traps.scm        �  ��g��nameg�� trace-push�C��h ������]4L�M�>��"��G��M�N�C����������g��frame  ��g��filenamef��system/vm/traps.scm           �   ��g��nameg�� trace-pop�C��h���|���]L�M�6������t�������g��frame  ��g��filenamef��system/vm/traps.scm    �  ��g��nameg�� trace-apply�C.������hH������]44L5L>��"��G��44L5L>��"��G��4L5L�6��������������g��frame  A��g��filenamef��system/vm/traps.scm                  ,   7   A  �  A ��g��nameg��enter�C�������hH������]44L5L>��"��G��44L5L>��"��G��4L5L�6��������������g��frame  A��g��filenamef��system/vm/traps.scm                  ,   7 �  A � �  A ��g��nameg��return�C������hH������]44L5L>��"��G��44L5L>��"��G��4L5L�6��������������g��frame  A��g��filenamef��system/vm/traps.scm                  ,   7 �  A � �  A ��g��nameg��abort�C��h �� ��-�/���0���3� #��#��45�#��#�� 4�54�5$��"��4>��"��G��45$��"��4 >��"��G��45$��"��4 >��"��G�� H O� O�  O� Q�Q� Q� �  O�  O�  O�6 �����������g��proc  �g�� apply-handler  �g��return-handler   �g�� current-frame   �g��vm   �g��closure?   �g�� our-frame?   �g�� *call-depth*  � �g�� trace-push  � �g�� trace-pop � �g�� trace-apply � �� g��filenamef��system/vm/traps.scm  #  ? 9  ( D   i   �   �     �    g�� current-frameS g��vmS g��closure?S g�� our-frame?S ���g��nameg��trap-calls-in-dynamic-extent�C/Ras���h���{���]L��6s�������g��frame  ��g��filenamef��system/vm/traps.scm     �   ��g��nameg�� trace-next�C.���h������]4L5L�6�w�������g��frame  ��g��filenamef��system/vm/traps.scm        �   ��g��nameg��enter�C�h������]4L5L�6�x�������g��frame  ��g��filenamef��system/vm/traps.scm        �   ��g��nameg��return�C��������h������]4L5L�6�w�������g��frame  ��g��filenamef��system/vm/traps.scm "       �   ��g��nameg��abort�C��������h�����-�/���0���3�#��#��45�#��#�� 4�54�5$��"��4>��"��G��45$��"��4 >��"��G�� O�Q� � O� O�O�6 �������g��proc  ��g�� next-handler  ��g�� current-frame   ��g��vm   ��g��closure?   ��g�� our-frame?   ��g�� trace-next  � ���g��filenamef��system/vm/traps.scm  #  F 9  / D   i   � % �  �  g�� current-frameS g��vmS g��closure?S g�� our-frame?S ���g��nameg��#trap-instructions-in-dynamic-extent�C0Ras-���h0������]4M�>��"��G��4MM5NNL��L6�������������g��frame  *��g��filenamef��system/vm/traps.scm ?   :   <   ;  " =  * A �  * ��g��nameg�� return-hook�C��h(������]4M�>��"��G��4MM�5N�NC�����������g��frame  $��g��filenamef��system/vm/traps.scm D   :   <   ;  " = �  $ ��g��nameg�� abort-hook�C�����h`������]4M54L�>��"��G��4�5&��CH4�LLO�LO�L�5KJMNC�����������g��frame  \�g��depth \�g�� finish-trap  . \��g��filenamef��system/vm/traps.scm 2   3  3  5  7  + 7  . 8 1 H  S G  X J  Z I �  \ ��g��nameg�� apply-hook�C���h���f���]�L�6^�������g��disable  ��g��filenamef��system/vm/traps.scm _   _ $�   ���Ch ���n���-��.�,�3��#���L4L��56f�������g��frame ��g��filenamef��system/vm/traps.scm [   \ ) \ � ���C�������hH������-��.�,�3��#���4�O�M>��"��G��N4L�5L�O�C�����������g��frame D�g��trap 8 D��g��filenamef��system/vm/traps.scm ^   _  / a # 1 a  2 b & 8 b � D ���C���h������]L��LO�C��|�������g��trap  ��g��filenamef��system/vm/traps.scm Y �   ��g��nameg��with-pending-finish-disablers�C(�����h�����-�/���0���3�#��45�4�5$��"��4>��"��G��45$��"��4>��"��G��45$��"��4 >��"��G��H O� O�Q�Q�4 � 56�������������g��proc  ��g�� apply-handler  ��g��return-handler   ��g��vm   ��g��pending-finish-traps  � ��g�� apply-hook  � ��g��with-pending-finish-disablers  � ���g��filenamef��system/vm/traps.scm +  , , ! -  F .  k /  � 0  � 0  � e  � d �  �  g��vmS ���g��nameg��trap-calls-to-procedure�C1Ras��h������]4L�5$��L��6C����������g��frame  ��g��filenamef��system/vm/traps.scm n   o o   p �   ��g��nameg�� next-hook�C}��h���m���]4L5L�6�e�������g��frame  ��g��filenamef��system/vm/traps.scm t   u   u �   ���C���h���m���]4L5L�6�e�������g��frame  ��g��filenamef��system/vm/traps.scm v   w   w �   ���C� �������h������-�/���0���3�#��45�4�5$��"��4>��"��G��45$��"��4>��"��G�� O��Q�  O� O�6������������g�� frame-pred  ��g��handler  ��g��vm   ��g�� next-hook  s ���g��filenamef��system/vm/traps.scm i  j / ! k  F l  � r �  �  g��vmS ���g��nameg��trap-matching-instructions�C2RC�������������g��m  ,��g��filenamef��system/vm/traps.scm  8  V  k [ n P ~  �  � ! � ! � #  $  ,  , = 2z @ 5 ^ 6= m ; w B*  I  R(  W-  _ + c i �  c ���C6��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/system/vm/program.go���������������������������������������������������������������������0000644�����������������00000036773�15146341264�0012243 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0=������]��4����hI ������]� g��guile � g��define-module* � � g��system g��vm g��program � g��filenameS f��system/vm/program.scm g��importsS g��base g��pmatch  � � g�� instruction � � g��objcode � � g��rnrs g�� bytevectors � � g��srfi g��srfi-1 � � g��srfi-26 � ! � "!� #g��exportsS $g�� make-program %g�� make-binding &g�� binding:name 'g��binding:boxed? (g�� binding:index )g�� binding:start *g�� binding:end +g�� source:addr ,g�� source:line -g�� source:column .g�� source:file /g��source:line-for-user 0g��program-sources 1g��program-sources-pre-retire 2g��program-source 3g��program-bindings 4g��program-bindings-by-index 5g��program-bindings-for-ip 6g��program-arities 7g�� program-arity 8g�� arity:start 9g�� arity:end :g�� arity:nreq ;g�� arity:nopt <g�� arity:rest? =g��arity:kw >g��arity:allow-other-keys? ?g��program-arguments-alist @g��program-lambda-list Ag�� program-meta Bg��program-objcode Cg��program? Dg��program-objects Eg��program-module Fg�� program-base Gg��program-free-variables Hg��program-num-free-variables Ig��program-free-variable-ref Jg��program-free-variable-set! K$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJ�' Lg��set-current-module ML� NL� Og��load-extension Pg�� string-append Qf�� libguile- Rg��effective-version Sf��scm_init_programs Tg��list-ref Ug��*bytecode-header-len* Vg��opcode->instruction Wg�� load-program Xg��instruction-length Yg��bytecode-instruction-length Zg��objcode->bytecode [g��reverse \g��error ]f�� unexpected ^g��map _g��cdr `g��sort! ag��assv-ref bg��append! cg��collapse-locals df�� bad arity eg��required fg��optional gg��keyword hg��allow-other-keys? ig��rest jg��extents kg��arglist->arguments-alist lg��string->symbol mf��_ ng��length og��arity->arguments-alist pg��and=> qg��arguments-alist->lambda-list rg��assq-ref sg��keyword->symbol tg��car ug��append vu� wu� xg��optionalS yg��keyS zg��unfold {g��1+ |g��format }f��#<procedure ~a~a> ~g��procedure-name f��~a at ~a:~a:~a �g��number->string �g��object-address �f��<current input> �f��<unknown port> �f��� �f��  �g�� string-join �g��object->string �f�� |  �g�� write-programC�5��hH1����]4    "#K5�4N�>��"��G���4Oi4PiQ4Ri5�5S>��"��G��������h������]��C�������g��name  �g��boxed?  �g��index   �g��start   �g��end   ��g��filenamef��system/vm/program.scm 5  6 �   ��g��nameg�� make-binding�C%RT�h���x���]� 6�������p�������g��b  ��g��filenamef��system/vm/program.scm 7 7 �  ��g��nameg�� binding:name�C&RT�������h���z���]� 6�������r�������g��b  ��g��filenamef��system/vm/program.scm 8 8 �  ��g��nameg��binding:boxed?�C'RT�����h���y���]� 6������q�������g��b  ��g��filenamef��system/vm/program.scm 9 9 �  ��g��nameg�� binding:index�C(RT������h���y���]� 6������q�������g��b  ��g��filenamef��system/vm/program.scm : : �  ��g��nameg�� binding:start�C)RT������h���w���]� 6������o�������g��b  ��g��filenamef��system/vm/program.scm ; ; �  ��g��nameg�� binding:end�C*R����h���|���]�C��t�������g��source  ��g��filenamef��system/vm/program.scm =  > �   ��g��nameg�� source:addr�C+R�������h���|���]�C�t�������g��source  ��g��filenamef��system/vm/program.scm ?  @ �   ��g��nameg�� source:file�C.R�������h���|���]�Ct�������g��source  ��g��filenamef��system/vm/program.scm A  B �   ��g��nameg�� source:line�C,R�������h���~���]�Cv�������g��source  ��g��filenamef��system/vm/program.scm C  D �   ��g��nameg�� source:column�C-R,�h������]4�5C������������g��source  ��g��filenamef��system/vm/program.scm I  J  J �  ��g��nameg��source:line-for-user�C/R URUVWX�������hh�����]4�5&���� "��645 $��"� �  � "��45C������g��bytecode  h�g��ip  h�g��idx   h�g��inst   h��g��filenamef��system/vm/program.scm Q  R   R  S   S $  S   R   V   U  " W 1 # W * X 1 + X , W 1 Y 9 Y = U  B \ . C \  F \ M ] . N ]  Q ] R \ Y ^ ) Z ^ [ \ ` a g U �  h ��g��nameg��bytecode-instruction-length�CYRZB[Y\]0��h�����]I44�55"��n(��6$��P"��6 $��  4 5 " " "64�5 "���������g��proc  ��g��bv  ��g��in   ��g��out   ��g��ip   ��g��v  # ��g��vx  2 |�g��vy  2 |�g��ip  : p�g��next : p�� g��filenamef��system/vm/program.scm m  n  n   n  n   o   r  t  # v  # v  : x ? z  C z H { # Q {  Y {  \ |  a }  p |  p x � �  � � � o  � o  � p  � o �  � ��g��nameg��program-sources-pre-retire�C1R^_`���h������]�C������{�������g��x  �g��y  ��g��filenamef��system/vm/program.scm �   � )  � 1 � &�  ���Ca(b����h�����]!"��n(��4564455$��$4�>��"��G��"45�"�"�~������g��locs  �g��ret  t�g��locs   t�g��b   t�g��t  . t��g��filenamef��system/vm/program.scm �  �  �   �   �   �   �  ! � & �  . � . � 7 �  @ � # E �  R �  Z �  [ �  f � ) i �  l �  t � t �  u �   � �   ��g��nameg��collapse-locals�CcR3c�������h ������] 4�5$��6C��������������g��prog  �g��t ��g��filenamef��system/vm/program.scm �  � �   � �   ��g��nameg��program-bindings-by-index�C4R[)*4�������h�����]"��m(��6"��I(��"��F"�� "45$��45$�� "��""""4�5"�����������g��prog  ��g��ip  ��g��in   s�g��out   s�g��binds   b��g��filenamef��system/vm/program.scm �  �  �   �   �  �  �  , � ! 2 �  2 �  3 �  8 � ( : �  = �  A �  D �  I � & K �  L �  S �  V �  b � e �  k � s �  s �  t �  { � 6 � � �  � ��g��nameg��program-bindings-for-ip�C5R\d��h8������]�$��$��$�� C�6�6����������g��a  5�g��vx  -�g��vy   -��g��filenamef��system/vm/program.scm �  �  ) � 3 - � , 1 � 3 5 � ,�  5 ��g��nameg�� arity:start�C8R\d�h8������] �$�� ��$��C�6�6��������������g��a  1�g��vy )��g��filenamef��system/vm/program.scm �  �  % � 1 ) � * - � 1 1 � *�  1 ��g��nameg�� arity:end�C9R�h8������]�$��,��$��$��C C C C��������g��a  7�g��vy 5�g��vy   3��g��filenamef��system/vm/program.scm �  � �  7 ��g��nameg�� arity:nreq�C:R����hP������]�$��>��$��,$��$��C C C C C��������������g��a  I�g��vy G�g��vy   E�g��vy  , C��g��filenamef��system/vm/program.scm �  � �  I ��g��nameg�� arity:nopt�C;R����h`������]!�$��P��$��>$��,$��$��CCCCCC������������g��a  [�g��vy Y�g��vy   W�g��vy  , U�g��vy  < S��g��filenamef��system/vm/program.scm �  � �  [ ��g��nameg�� arity:rest?�C<R���h�����]A�$����$��o$��]$��K$��9$��'$��(��CCCCCCCCC�����������g��a  ��g��vy ��g��vy   ��g��vy  , ��g��vy  < ��g��vy  L ��g��vx  _ ��g��vy  _ ��g��vy  m ~�� g��filenamef��system/vm/program.scm �  �  } � :�  � ��g��nameg��arity:kw�C=R����h��� ��]A�$����$��o$��]$��K$��9$��'$��(��CCCCCCCCC����������g��a  ��g��vy ��g��vy   ��g��vy  , ��g��vy  < ��g��vy  L ��g��vx  _ ��g��vy  _ ��g��vx  m ~�� g��filenamef��system/vm/program.scm �  � �  � ��g��nameg��arity:allow-other-keys?�C>R689������hh���l��]4�5$��U"��I(��C$��7"�� "45$��45$��C""C"Cd������g��prog  h�g��ip  h�g��arities  h�g��arities   ^��g��filenamef��system/vm/program.scm �  �  �   �   �  � * �  0 �  0 � 1 �  6 � ' 8 �  ; �  ? � B �  G � ) I �  J �  N �  Q �  ] �  ^ � �  h ��g��nameg�� program-arity�C7Refghij�h���8��]Q�$��x��$��e$��R$��?$��,    �CCCCCC�����0������g��arglist  ��g��vx  ��g��vy   ��g��vx  �g��vy  �g��vx  1 }�g��vy  1 }�g��vx  B {�g��vy  B {�g��vx S y�g��vy S y�� g��filenamef��system/vm/program.scm �  �  Y � �  � ��g��nameg��arglist->arguments-alist�CkRlm����h���k���]6c�������g��i  ��g��filenamef��system/vm/program.scm � "  � >  � .�   ���C^(&���h���t���]4�54�5C������l�������g��x  ��g��filenamef��system/vm/program.scm �   �  � 1  � �   ���C58a��h ������] 4L��5$��CL�6����z�������g��i  �g��t ��g��filenamef��system/vm/program.scm �   � �   � �   ���Cn=e[fgh>i:;<���h@�� ��-�.�,�3� #��H44�4555O�K"�� $��*4J 5    " $��*4J 5    "$��24J 44555   "d 4 5 4 5 45 45 �C454545   "������������g��prog :�g��arity :�g��make-placeholder  :�g�� var-by-index   :�g��rbinds  . <�g��nreq  B �g��req  B �g��nopt  B �g��opt  B �g��rest?  B �g��rest B �g��n B �� g��filenamef��system/vm/program.scm �  �   �  $ � 0 , �  . �  . �  B �  F �  J �  M � N �  W �  b �  t �  x �  | �  � � � �  � �  � �  � �  � �  � � � � � � ( � � � �  � � � � � �  � �  � �  � �  � �  � �  � �  � �  � �   �   �   �   � *  �   � *  �  : � �0 :  ��g��nameg��arity->arguments-alist�CoR7o�����h0���,��-�.�,�3�#��4�5$���6C$������g��prog 0�g��ip 0�g��arity   0��g��filenamef��system/vm/program.scm �  �   �  & �  . � � 0 ��g��nameg��program-arguments-alistg�� documentationf��PReturns the signature of the given procedure in the form of an association list.�C?Rp?q�������h(������-�.�,�3�#��4�56�����������g��prog $�g��ip $��g��filenamef��system/vm/program.scm �  � $ � � $ ��g��nameg��program-lambda-listg�� documentationf��MReturns the signature of the given procedure in the form of an argument list.�C@Rref^stgiwxy� ��h���`��]!4�5$��"��4�5$��"��444�5$��"��554�5$��"�� 4 $��  "��4 $��  "��556X������g��arguments-alist  ��g��t �g��t & 8�g��t K ]�g��t j |�g��req | ��g��opt  | ��g��key  | ��g��rest  | ��� g��filenamef��system/vm/program.scm �  �  � + �  �  � 6  �  $ � + & �  & � 5 � 6 9 � > �  C �  I � 9 K �  K �  Z � C _ �  a � b �  h � , j �  j �  y � 3 | �  � �  � � � �  � �  � � . � �  �  �   �   �  ) � � �&  � ��g��nameg��arguments-alist->lambda-list�CqRHz������h���b���]�L�CZ�������g��i  ��g��filenamef��system/vm/program.scm    �   ���CI��������h���h���]L��6������`�������g��t-46b52c6efc-47d  ��g��filenamef��system/vm/program.scm  �  ���C{���h ������] 4�5O��O� 6�������g��prog  �g��count ��g��filenamef��system/vm/program.scm        �  ��g��nameg��program-free-variablesg�� documentationf��*Return the list of free variables of PROG.�CGR|}~p2|./-� hP������] 44L�5 54�5$��"���$��"��4�54 �56������������g��s  K�g��t  ;��g��filenamef��system/vm/program.scm     "     /      #    0  # 2  ) 8  ; <   C  8 K  �  K ���C6P^qo���h���}���]44L��556����u�������g��a  ��g��filenamef��system/vm/program.scm  '   *   +   *   )�   ���C������h�����] 4�5$��"��344� 5�O�5$��"��44�5 54 �5$��"��$�� "��4  4 4�O�5556���������g��prog  ��g��port  ��g��t   S�g��t  1 P�g��arities  Z ���g��filenamef��system/vm/program.scm            !   1   1  @   C   M   T   Z  b   e  " j   n  p   u   y   z   }  " �  " �   �   �  �  � ��g��nameg�� write-program�CRC������g��m  ,��g��filenamef��system/vm/program.scm   - 2 2 2  8 2  9 2 + A 2  C 3  H 2 9 5  7 u 8  9  : R ;  =  ?  A  C ` I e M Q $ m  �  � 6 � ? � 5 �  �  � C �  �  �  � c � $ � &? � ' � * � ,  1F  �)  1H ���C6������2.0/ccache/system/repl/server.go��������������������������������������������������������������������0000644�����������������00000042115�15146341264�0012405 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.05D������]��4�������h������]� g��guile � g��define-module* � � g��system g��repl g��server � g��filenameS f��system/repl/server.scm g��importsS �  � g��ice-9 g��threads � � g��rdelim � � g��match � � g��iconv � � g��rnrs g�� bytevectors � � g��io !g��ports " !� #"� $g��srfi %g��srfi-1 &$%� '&� (g��srfi-26 )$(� *)� +#'*�  ,g��exportsS -g��make-tcp-server-socket .g��make-unix-domain-server-socket /g�� run-server 0g�� spawn-server 1g��stop-server-and-clients! 2-./01� 3g��set-current-module 43� 53� 6g��*open-sockets* 7g�� make-mutex 8g�� sockets-lock 9g�� lock-mutex :9� ;9� <g�� unlock-mutex =<� ><� ?g�� assq-remove! @g�� close-port Ag�� close-socket! Bg��add-open-socket! Cg��error DC� EC� Ff��no matching pattern Gg��hostS HG  Ig��addrS JI  Kg��portS LK  MHJL� Ng�� inet-aton Og��INADDR_LOOPBACK Pg��socket Qg��PF_INET Rg�� SOCK_STREAM Sg�� setsockopt Tg�� SOL_SOCKET Ug�� SO_REUSEADDR Vg��bind Wg��AF_INET Xg��pathS YX  ZY� [f��/tmp/guile-socket \g��PF_UNIX ]g��AF_UNIX ^g��delete-duplicates _g�� filter-map `g��and=> ag��module-variable bg��the-root-module cg�� variable-ref dg��EINTR eg��EAGAIN fg�� EWOULDBLOCK gdef� hg�� errs-to-retry ig�� run-server* jg�� serve-client kg��catch lg��select mg��memq ng��accept og��system-error-errno pg��memv qg��warn rf��Error accepting client sg��sleep tg��pipe ug��fcntl vg��F_SETFL wg�� O_NONBLOCK xg��F_GETFL yg�� sigaction zg��SIGPIPE {g��SIG_IGN |g��display }g�� force-output ~g��listen g��call-with-new-thread �� �� �g��%thread-handler �� �� �g��close �g��current-thread �g��set-thread-cleanup! �g�� cancel-thread �g��guard-against-http-request �g��with-continuation-barrier �g��current-input-port �g��current-output-port �g��current-error-port �g��current-warning-port �g�� parameter? �� �� �g�� scm-error �g��wrong-type-arg �f�� parameterize �f��Not a parameter: ~S �g�� *repl-stack* �g�� start-repl �g�� port-closed? �g�� port-encoding �g��set-port-encoding! �g��with-temporary-port-encoding �g�� port-line �g�� port-column �g��set-port-line! �g��set-port-column! �g��with-saved-port-line+column �g�� char-ready? �g��get-bytevector-some �g�� bytevector? �g��bytevector->string �f�� ISO-8859-1 �g��string-concatenate-reverse �g��setvbuf �g��_IOFBF �g��drain-input-and-close �g��ucs-range->char-set �g�� make-regexp �g�� string-append �f��2^(OPTIONS|GET|HEAD|POST|PUT|DELETE|TRACE|CONNECT)  �f��[^ ]+  �f��HTTP/[0-9]+.[0-9]+$ �g�� string-every �g�� regexp-exec �g��permissive-http-request-line? �g��read-delimited �f��  �g��peek �g�� eof-object? �g��done �g��%make-void-port �f��rw �g��call-with-port �g�� dup->port �f��w �g��format �f� @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@ POSSIBLE BREAK-IN ATTEMPT ON THE REPL SERVER @@ @@ BY AN HTTP INTER-PROTOCOL EXPLOITATION ATTACK. See: @@ @@ <https://en.wikipedia.org/wiki/Inter-protocol_exploitation> @@ @@ Possible HTTP request received: ~S @@ The associated socket has been closed. @@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@  �g�� unread-string �g��check-for-http-request �g��%set-port-property! �g��guard-against-http-request? �g��%port-property �g��maybe-check-for-http-request �g�� add-hook! �g��before-read-hookC�5�������h1����]4    +,25�45�>��"��G���6R47i5�8R8;�����h���I���]�L�6A�������g��filenamef��system/repl/server.scm / �   ���C>�h���I���]�L�6A�������g��filenamef��system/repl/server.scm / �   ���C?6@������hX������] O�O�4O�>���"��G��V4�5 X4O�>���"��G���6�����������g��s  T�g��x  N��g��filenamef��system/repl/server.scm .  /  + 0  5 0  7 /  T 3 �  T ��g��nameg�� close-socket!�CAR8;����h���I���]�L�6A�������g��filenamef��system/repl/server.scm 7 �   ���C>�h���I���]�L�6A�������g��filenamef��system/repl/server.scm 7 �   ���C6��hh������] O�O�4O�>���"��G��V� X4O�>���"��G��CX4O�>���"��G��F������������g��s  c�g�� force-close  c�g��x   c��g��filenamef��system/repl/server.scm 6  7  / 8  4 8  7 7 �  c ��g��nameg��add-open-socket!�CBR8;�������h���I���]�L�6A�������g��filenamef��system/repl/server.scm < �   ���C>�h���I���]�L�6A�������g��filenamef��system/repl/server.scm < �   ���C6EF1� �h�����](��O��O�4�O�>���"��G��V(��"��T$��?$�� "��4455�"��4455�X4�O�>���"��G�����$��4�>���"��G��6�C�������g��x  ��g��v , ��g��w  F {�g��x  F {�g��x  T c�g��t � ���g��filenamef��system/repl/server.scm :  <  , =  ^ @ h =  � <  � ;  � C � D �  � ��g��nameg��stop-server-and-clients!�C1RMNOPQRSTUVW� ���h�����-��/�����0���3��#���#���$�� 4�5"��#�� ������4 54 >��"��G��4  >��"��G��C��������g��host  ��g��addr  ��g��port   ��g��sock  R ���g��filenamef��system/repl/server.scm F ( H ) H ) I J  R J  U K  l L �  � g��hostS g��addrS g��portS ���g��nameg��make-tcp-server-socket�C-RZ[P\RSTUV]� ����h`������-��/�����0���3��#���4 54 >��"��G��4  �>��"��G��C��������������g��path  Y�g��sock ' Y��g��filenamef��system/repl/server.scm O  O 5  P  ' P  * Q  A R �  Y g��pathS ���g��nameg��make-unix-domain-server-socket�C.R4^i4_i`abc�������h���l���]4�56�������d�������g��name  ��g��filenamef��system/repl/server.scm Y   Z   Z �   ���Cg55hR-ij�h(������-��.�,�3��#��45���6��������������g�� server-socket !��g��filenamef��system/repl/server.scm ^  ^ / ! _ � ! ��g��nameg�� run-server�C/Rklmn���h(������]4M�5�4M�5$��CL6������������g�� ready-ports #��g��filenamef��system/repl/server.scm s   t  t 8 t < t t  t   v   v # w �  # ���Cophqrs�����hP������-��1��3�4�545$��L�6�4�>��"��G��4 >��"��G��L�6������������g��k-args L�g��err  L��g��filenamef��system/repl/server.scm x  y   y   {  z # | $ ~ ( ~  / ~ 8 � L � � L ���C���h ���o���]�LLLO�L�O�6�������g�������g��filenamef��system/repl/server.scm q   r �   ��g��nameg��accept-new-client�Ctuvwxyz{B|}�������h ���u���]�4!M�>��"��G��M�6����m�������g��filenamef��system/repl/server.scm i   j   k �   ��g��nameg��shutdown-server�C~�����h���J���]�LLL�6������B�������g��filenamef��system/repl/server.scm � �  ���C�������h��q��]BHHHHO��Q�45�KJKJK�J�K4�4�5>��"��G��4 >��"��G��4 � O�>��"��G��4 � >��"��G��"��b$��2 4  O�>��"��G��45�"4J>��"��G��4J>��"��G���645�"i������g�� server-socket  �g�� serve-client  �g��shutdown-pipes   �g��shutdown-read-pipe   �g��shutdown-write-pipe   �g��monitored-ports   �g��accept-new-client   �g��client  � �g�� client-socket  � ��g�� client-addr � ��� g��filenamef��system/repl/server.scm b % d  . e  3 f  < n  ? �  H �  Q � V �  _ �  s �  � �  � �  � �  � �  � �  � �  � � � �  � � � �  � �   �   �   �   � �   ��g��nameg�� run-server*�CiR-/�h���J���]�L�6B�������g��filenamef��system/repl/server.scm � �   ���C�h(������-��.�,�3��#��45���O�6���������g�� server-socket &��g��filenamef��system/repl/server.scm �  � 1 & � � & ��g��nameg�� spawn-server�C0RA�h���S���]�L�6K�������g��filenamef��system/repl/server.scm �  � +�   ���CB�����h���S���]�L�6K�������g��filenamef��system/repl/server.scm �   � (�   ���C� ������h�����] �4�5$��"��4 ��>��"��G��45$��"��4 �>��"��G��45$��"��4 �>��"��G��45$��"��4 �>��"��G���    4� L�54 L�54 L�54 L�5Y Y4 >��� Z"��ZCZF��������g��t-3d081069b-c3 �g��t-3d081069b-c4 �g��t-3d081069b-c5  �g��t-3d081069b-c6  ��g��filenamef��system/repl/server.scm �  �  � � # � � �   ���C� h`������] 45�4�O�>��"��G��4�O�>��"��G��4�>��"��G���O�6������������g��client  [�g��addr  [�g��thread   >��g��filenamef��system/repl/server.scm �  �   �  �  # �  ? �  [ � �  [ ��g��nameg�� serve-client�CjR�������h ���w���]�4L5$��C4L5N�LM6o�������g��filenamef��system/repl/server.scm �   �  �   �   � � �  ���C�������h ���w���]�4L5$��C4L5N�LM6o�������g��filenamef��system/repl/server.scm �   �  �   �   � � �  ���C�������h ���w���]�4L5$��C4L5N�LM6o�������g��filenamef��system/repl/server.scm �   �  �   �   � � �  ���C�������h ���w���]�4L5$��C4L5N�LM6o�������g��filenamef��system/repl/server.scm �   �  �   �   � � �  ���C�������h ���w���]�4L5$��C4L5N�LM6o�������g��filenamef��system/repl/server.scm �   �  �   �   � � �  ���C������hx���S��] HH�O��O�4�O�>���"��G��V4>���X4�O�>���"��G��CX4�O�>���"��G��F�K������g��port  w�g��encoding  w�g��thunk   w�g��saved-encoding   w��g��filenamef��system/repl/server.scm �  �  � �  w ��g��nameg��with-temporary-port-encodingg�� documentationf��aCall THUNK in a dynamic environment in which the encoding of PORT is temporarily set to ENCODING.�CR�������h(������]�4L5$��C4L5N�4L5NC�����x�������g��filenamef��system/repl/server.scm �   �  �   �   �  �  ! � �  # ���C������h0���n���]�4L5$��C4LM�>��"��G��LM6�����f�������g��filenamef��system/repl/server.scm �   �  �   � + � �  + ���C��������h(������]�4L5$��C4L5N�4L5NC�����x�������g��filenamef��system/repl/server.scm �   �  �   �   �  �  ! � �  # ���C������h0���n���]�4L5$��C4LM�>��"��G��LM6�����f�������g��filenamef��system/repl/server.scm �   �  �   � + � �  + ���C��������h0���n���]�4L5$��C4LM�>��"��G��LM6�����f�������g��filenamef��system/repl/server.scm �   �  �   � + � �  + ���C�������hx���t��]HH�O��O�4�O�>���"��G��V4>���X4�O�>���"��G��CX4�O�>���"��G��F��l������g��port  v�g��thunk  v�g�� saved-line   v�g�� saved-column   v��g��filenamef��system/repl/server.scm �  �   � �  v ��g��nameg��with-saved-port-line+columng�� documentationf��Save the line and column of PORT before entering THUNK, and restore their previous values upon normal or non-local exit from THUNK.�CR��������hP�����]"��<4L�5$�� 4L�5"��45$��45��"�6�"��������������g��chunks  B�g��result  B��g��filenamef��system/repl/server.scm �   �   �   �   �   �  �  * � + �  1 � 5 3 �  6 �  < �  B �  B �  C �  I � �  I ���C������h���S���]�L�6������K�������g��filenamef��system/repl/server.scm �  � �  ���C@�������h���S���]�L�6K�������g��filenamef��system/repl/server.scm �   � �   ���C��hp���2��] O��Q��O��O�4�O�>���"��G��V4>���X4�O�>���"��G��CX4�O�>���"��G��F�������*������g��socket  i�g��thunk i��g��filenamef��system/repl/server.scm � � �  i ��g��nameg��drain-input-and-closeg�� documentationf��Drain input from SOCKET using ISO-8859-1 encoding until it would block, and then close it. Return the drained input as a string.�CR4i ~54i4i55���������h ������]4L�5$��L��6C��������������g��line  ��g��filenamef��system/repl/server.scm �   �  �   � �   ��g�� documentationf��QReturn true if LINE might plausibly be an HTTP request-line, otherwise return #f.�C�O��R������h������]�4L�L56�����{�������g��t-3d081069b-183  ��g��filenamef��system/repl/server.scm -   - 5   - �   ���C��������h���Q��]4L�5�4�5$��C4�5$��s454 >��"��G��4 >��"��G��4 >��"��G��4 >��"��G��4 L�54 5�O�6�L�6�����I������g��v ��g�� void-port / |�g�� drained-input � ���g��filenamef��system/repl/server.scm       !  /      )   -  / /   /  2 !  D "  V #  h $  } ( " � ( � ,  � , , � ,  � ,  � ; �  � ���C����h���S���]�L�L�O�6�K�������g��filenamef��system/repl/server.scm     �   ���C��h���T��]��O�6�������L������g��socket  ��g��filenamef��system/repl/server.scm �   '   �   ��g��nameg��check-for-http-requestg�� documentationf��Check for a possible HTTP request in the initial input from SOCKET. If one is found, close the socket and print a report to STDERR (fdes 2). Otherwise, put back the bytes.�CR�h��� ��]�6�����������g��socket  ��g��filenamef��system/repl/server.scm =  D  D �  ��g��nameg��guard-against-http-requestg�� documentationf�\Arrange for the Guile REPL to check for an HTTP request in the initial input from SOCKET, in which case the socket will be closed. This guards against HTTP inter-protocol exploitation attacks, a scenario whereby an attacker can, via an HTML page, cause a web browser to send data to TCP servers listening on a loopback interface or private network.�CR����hP�����-��.�,�3��#��45��4�5$��(4�>��"��G��4�5$��C�6C������g��socket P��g��filenamef��system/repl/server.scm F  G   K  K  " K  & K  ' L  9 M C M  K N " N N � P ��g��nameg��maybe-check-for-http-requestg�� documentationf��Apply check-for-http-request to SOCKET if previously requested by guard-against-http-request. This procedure is intended to be added to before-read-hook.�CRiii6�����������g��m  ,�g��cs 't (�g��rx 't (��g��filenamef��system/repl/server.scm   - (  0 ( 1 *  : *  .  6  :  F O X  Y  \  Y  X  W g ^  b  � N �  � #G � 'U � 'V � 'a � 'f � 'l �  'n �  'p �  'r � 't � 't �  ( � -w � / = 1 F 1 Q �&  1 ���C6����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/system/repl/common.go��������������������������������������������������������������������0000644�����������������00000033433�15146341264�0012372 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.07������]��4����h|������]� g��guile � g��define-module* � � g��system g��repl g��common � g��filenameS f��system/repl/common.scm g��importsS g��base g��syntax  � � g��compile  � � g��language  � � g��message  � � g��vm g��program � � g��ice-9 g��control � ! � "g��history #"� $#� %!$� &g��exportsS 'g��<repl> (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 2g��repl-prepare-eval-thunk 3g�� repl-eval 4g�� repl-expand 5g�� repl-optimize 6g�� repl-parse 7g�� repl-print 8g��repl-option-ref 9g��repl-option-set! :g��repl-default-option-set! ;g��repl-default-prompt-set! <g��puts =g��->string >g�� user-error ?g�� *warranty* @g�� *copying* Ag�� *version* B'()*+,-./0123456789:;<=>?@A� Cg�� autoloadsS Dg��tree-il Eg��optimize FDE� Gg�� optimize! HG� IFH� Jg��set-current-module KJ� LJ� Mg��format Nf�GNU 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. Og��version Pf�qGuile 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 <http://www.gnu.org/licenses/lgpl.html>. Qf�8Guile 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 <http://www.gnu.org/licenses/lgpl.html>, for more details. Rg��make-record-type Sf��<repl> Tg��options Ug��tm-stats Vg��gc-stats Wg��debug XTUVW� Yg��record-constructor Zg��%compute-initargs [g��record-predicate \g��repl? ]g��make-procedure-with-setter ^g��record-accessor _g��record-modifier `g�� copy-tree ag��compile-options bg��%auto-compilation-options c� dg��trace ed� fg��interp gf� hg��prompt ig��string? jg��thunk? kg�� procedure? lg��error mf��Invalid prompt ng��print of��Invalid print procedure pg�� value-history qg��value-history-enabled? rg��enable-value-history! sg��disable-value-history! tg��->bool ug��on-error vg�� backtrace wg��report xg��pass yf��)Bad on-error value ~a; expected one of ~a zWvwx� {g��repl-default-options |g�� %make-repl }g��languageS ~g�� language? g��lookup-language �g��optionsS �g��tm-statsS �g��times �g��gc-statsS �g��debugS �g��display �g��newline �f��Enter `,help' for help.  �f�� ~A@~A~A>  �g�� language-name �g�� module-name �g��current-module �g��length �g�� *repl-stack* �f��� �f�� [~a] �g��language-reader �g��current-input-port �g��repl-compile-options �g��fromS �g��toS �g��objcode �g��optsS �g��envS �g�� decompile �g��language-parser �g��language-evaluator �g�� make-program �g��language-compilers �g��default-prompt-handler � � � � �g��default-prompt-tag � � � � �g��run-hook �g��before-print-hook �g��write �g��assq �f��unknown repl option �g��object->string �g��throwC�5�������h����]4    %&BCI5 �4L�>��"��G���4MiN4Oi5�5ARP@RQ?R4RiSX5'RTUVW�4Yi'i5�Z��h���.���-��1��3�L4�L�5@��&�������g��args ��  ���C�O��(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`iabiceghi�����h���\���]L�C���T�������g��repl  ��g��filenamef��system/repl/common.scm u &�   ���Cjh���d���]L�6���\�������g��repl  ��g��filenamef��system/repl/common.scm v %  v 4�   ���Cklm���hH������]�$��<4�5$���O�C4�5$���O�C4�5$���C�6C���������g��prompt  F��g��filenamef��system/repl/common.scm r   s  u   s   v  & s  / w  9 s  @ x ! D x �  F ���C�nklo��h ������]�$��4�5$���C�6C}�������g��print  ��g��filenamef��system/repl/common.scm y   z  |   z   }  } �  ���C�p4qi5�rst�����h8���~���]�$��4>���"��G��"��4>���"��G���6������v�������g��x  2��g��filenamef��system/repl/common.scm �   � �   � ' 2 � �  2 ���C�uWWvwxlyz�h@������]�&��"���&��"���&��"���$���C�6��������g��x  ?��g��filenamef��system/repl/common.scm � �  2 � 9 �  = �  ? � �  ? ���C��5{R(i|R|}~`{V� ��hP������-�.�,�3�#��4�5$���"��4�5454 5� 4 5� 6 ���������g��lang N�g��debug N��g��filenamef��system/repl/common.scm �  �  $ �  + �  4 �  = �  D �  N � � N ��g��nameg�� make-repl�C(RA�����h@������]4>��"��G��4>���"��G��4>���"��G��6�������������g��repl  :��g��filenamef��system/repl/common.scm �  �   �  % �  8 � : � �  : ��g��nameg�� repl-welcome�C.R8hM)� ������hp���|��]4�5$���644�55445�54  [$��"��5 $�� "�� 4 56��t������g��repl  n�g��t n�g��t  : M�g��level  O l��g��filenamef��system/repl/common.scm �  �  �  �  �   �   �   �  " � * * �  + � . �  4 � 5 �  : � ! J � ( O �  O � T �  Y �  [ � ` � # e � . i � # n � �  n ��g��nameg�� repl-prompt�C/R)�����h ������] 44�5545�45�6���������g��repl  �g��reader  ��g��filenamef��system/repl/common.scm �  �   � !  �   �   �  � !  � �   ��g��nameg�� repl-read�C0R8a�h������]�6�������������g��repl  ��g��filenamef��system/repl/common.scm �  �  � �  ��g��nameg��repl-compile-options�CR)� �������h0������]4�54�54 5�6 ����������g��repl  -�g��form  -�g��from   -�g��opts   -��g��filenamef��system/repl/common.scm �  �  �   �  � # ' �  - � �  - ��g��nameg�� repl-compile�C1R)D� ���h@������]4�54�54 4 5�5 6�������������g��repl  :�g��form  :�g��from   :�g��opts   :��g��filenamef��system/repl/common.scm �  �  �   �   �  # � . * �  0 �  4 �  : � �  : ��g��nameg�� repl-expand�C4R)GD� �������hH�����]4�54�544  4 5�5 4 5�56��������g��repl  F�g��form  F�g��from   F�g��opts   F��g��filenamef��system/repl/common.scm �  �  �   �   �   �  & � 9 - � ) 3 �  4 �  < �  @ �  F � �  F ��g��nameg�� repl-optimize�C5R)�����h ������] 44�55$��6C��������g��repl  �g��form  �g��parser   ��g��filenamef��system/repl/common.scm �  �   � !  �   �   �   � �   ��g��nameg�� repl-parse�C6R)18f�h���\���]�LL�45�6���T�������g��filenamef��system/repl/common.scm �   �  � �  ���C� hh���C��]44�55"�� 4�56$��844�55$��"�� 4�5$�� O�C""�����;������g��repl  c�g��form  c�g��eval   c�g��t  4 M��g��filenamef��system/repl/common.scm �  �   � #  �   �   �  ! �  ! �  ( �  + � , 3 �  4 �  4 � B �  H � ' J �  Q � �  c ��g��nameg��repl-prepare-eval-thunk�C2R2�h���K���]�L�6���C�������g��filenamef��system/repl/common.scm  � �   ���C��h8������]4�545�U���4O�>���XCXFG@��������g��repl  7�g��form  7�g��thunk  7�g��handler   7�g��args  , 7��g��filenamef��system/repl/common.scm �  �  �   � �  7 ��g��nameg�� repl-eval�C3R8n����hP������] &��C4>��"��G��4�5$���64>��"��G��6����������g��repl  N�g��val  N�g��t  ( N��g��filenamef��system/repl/common.scm � �  �  � & � ( � ( �  8 �  9 � N � �  N ��g��nameg�� repl-print�C7R*l�����h0������] 44�55$��"�� 45C����������g��repl  -�g��key  -�g��t   *��g��filenamef��system/repl/common.scm �  �  �   �  �   � # �  ' � + � �  - ��g��nameg��repl-option-ref�C8R*lk�������hP���U��] 44�55$��"�� 4545$��45"��CM������g��repl  P�g��key  P�g��val   P�g��t   *�g��spec  * P��g��filenamef��system/repl/common.scm �  �   �   �   �   �  # �  ' �  * �  / �  0 �  5 �  9 �  = �  > �  A �  G �  N � �  P ��g��nameg��repl-option-set!�C9R{lk��hP���9��] 4�5$��"�� 4�545$��45"��C�����1������g��key  K�g��val  K�g��t  %�g��spec  % K��g��filenamef��system/repl/common.scm �  �  �   �   �  " �  % �  * �  + �  0 �  4 �  8 �  9 �  < �  B �  I � �  K ��g��nameg��repl-default-option-set!�C:R:h����h������]�6�������������g��prompt  ��g��filenamef��system/repl/common.scm �  �  � �  ��g��nameg��repl-default-prompt-set!�C;R��������h���|���]4�>��"��G��6�t�������g��x  ��g��filenamef��system/repl/common.scm �  �   � �   ��g��nameg��puts�C<R�h���w���]�6������o�������g��x  ��g��filenamef��system/repl/common.scm   �  ��g��nameg��->string�C=R>������h������-�1�3��6����������g��msg �g��args ��g��filenamef��system/repl/common.scm     �  ��g��nameg�� user-error�C>RC����������g��m  0�g��slots t ��g�� constructor t ���g��filenamef��system/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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/system/repl/debug.go���������������������������������������������������������������������0000644�����������������00000026171�15146341264�0012171 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0a,������]��4�����h- ������]� g��guile � g��define-module* � � g��system g��repl g��debug � g��filenameS f��system/repl/debug.scm g��importsS g��base g��pmatch  � � g��syntax  � � g��language  � � g��vm � � g��frame � � g��ice-9 g��rdelim � � !g�� pretty-print "!� #"� $g��format %$� &%� 'g��inspect ('� )g��selectS *g��%inspect +'* ,+� -(),� .g��program /.� 0/� 1 #&-0�  2g��exportsS 3g��<debug> 4g�� make-debug 5g��debug? 6g�� debug-frames 7g�� debug-index 8g��debug-error-message 9g��debug-for-trap? :g��terminal-width ;g��print-registers <g�� print-locals =g�� print-frame >g�� print-frames ?g�� frame->module @g�� stack->vector Ag��narrow-stack->vector Bg��frame->stack-vector C3456789:;<=>?@AB� Dg��set-current-module ED� FD� Gg��make-record-type Hf��<debug> Ig��frames Jg��index Kg�� error-message Lg�� for-trap? MIJKL� Ng��record-predicate Og��make-procedure-with-setter Pg��record-accessor Qg��record-modifier Rg�� make-fluid Sg��catch TS� US� Vg��string->number Wg��getenv Xf��COLUMNS Yg��integer? Zg��exact? [g��error \f��-Expected a column number (a positive integer) ]g��make-hash-table ^g�� hash-for-each _g�� hashq-set! `g�� hashq-ref ag�� reverse-hashq bg��per-line-prefixS cb  dc� eg��current-output-port ff��  gf��~aRegisters:~% hg��frame-instruction-pointer ig��display jg��run-hook kg��before-print-hook lf��ip = ~d  mg��frame-stack-pointer nf�� sp = #x~x  og�� frame-address pf�� fp = #x~x  qg��widthS rq  sb  trs� ug��frame-bindings vf��~aNo local variables.~% wf��~aLocal variables:~% xg��for-each yg��frame-local-ref zg�� binding:index {g��binding:boxed? |f��~a~:[~; (boxed)~] = ~v:@y  }g�� binding:name ~g��indexS ~  �q  �g��full?S �  �g�� last-sourceS �  �g�� next-source?S �  �� �g��frame-next-source �g�� frame-source �g�� source:file �f�� current input �f�� unknown file �g��and=> �g��source:line-for-user �g�� source:column �f�� ~&In ~a:~& �f��~9@a~:[~*~3_~;~3d~] ~v:@y~% �f��~a:~a �f��� �g��frame-call-representation �f��  �  �g��forward?S �  �g��countS �  �g�� for-trap?S �  �r� �g�� vector-length �g��max �g��min �g��frame-procedure �g��program? �g��program-module �g��current-module �g�� make-module �g�� module-use! �g�� make-variable �f��3~:[Read-only~;Mutable~] local variable ~a = ~70:@y  �g�� module-add! �g�� stack-length �g�� make-vector �g��frame-previous �g�� stack-ref �g�� make-stack ��� �g��%stacksC�5������hx�����]4    12C5�4F�>��"��G���4GiHM53R3��������h������-�1�3���C��������g��frames �g��index �g�� error-message  �g�� for-trap?  �g��defrec-1f507eb13-0  ��g��filenamef��system/repl/debug.scm 9 �   ��g��nameg�� make-debug�C4R4Ni3i55R4Oi4Pi3iI54Qi3iI556R4Oi4Pi3iJ54Qi3iJ557R4Oi4Pi3iK54Qi3iK558R4Oi4Pi3iL54Qi3iL559R4Ri5��UVWX������h���h���]�456���`�������g��filenamef��system/repl/debug.scm E   E 8 E @ E 8 E (�  ���C������h���]���-��1��3�C�����U�������g��args ��g��filenamef��system/repl/debug.scm E � ���CYZ[\��������h���:��)����]3�L�[��$���C45�4�5$��#4�5$��� $���"��"��"�����$���C HC]�$��(4�5$��4�5$��� "��"��"��$��L��\C�6�2������g��t c�g��w ! U�g��t U c�g��w e ���g��filenamef��system/repl/debug.scm B  D   E  ! E $ F  . F / F  9 F = F * A F U D  e B  k I l I  v I  w I ) � I  � I 4 � I  � I  � K  � K � c � e � ���C�O��:R]^_`������h������]L��4L�56��������g��k  �g��v  ��g��filenamef��system/repl/debug.scm S  T !  T 2  T !  T   T �   ���C������h(������] 45�4O��>��"��G��C����������g��h  %�g��ret  %��g��filenamef��system/repl/debug.scm P  Q  Q  R �  % ��g��nameg�� reverse-hashq�CaRdef$ghijklmnop����h����-�/���0���3�#��45�#��4>��"��G��4�54>��"��G��4 >��"��G��4 >��"��G��4 �54>��"��G��4 >��"��G��4 >��"��G��4 �54>��"��G��4 >��"��G��6�������g��frame  �g��port  �g��per-line-prefix   �g��val  G ��g��val  � ��g��val  � ��g��filenamef��system/repl/debug.scm X  X 1 ( Y 1 + _  1 _  8 _  A `  G `  J [  ^ \  r ]  x `  ]  � a  � a  � [  � \  � ]  � a � ]  � b  � b  � [  � \   b  ] �   g��per-line-prefixS ���g��nameg��print-registers�C;Rte:fu$vwxyz{ijk$|}� hp������] 4L�4�554�5$��"��4LL>��"��G��4>��"��G��L4 �54�5L6����������g��binding  m�g��x  )�g��v ) m��g��filenamef��system/repl/debug.scm m   n   n 2  n   n   o   o  p  ) n , r @ s Y t  Z u  a u * m t �  m ���C� ��h���]��-�/���0���3�#��45�#��45�#��4�5(�� 64>��"��G��  �O�4�56��U������g��frame  ~�g��port  ~�g��width   ~�g��per-line-prefix   ~�g��bindings  > ~��g��filenamef��system/repl/debug.scm d  d . ' e $ 5 e G 8 f  > f  F g  L i  P i  Q k  W k  ^ k  v v  ~ l �  ~ g��widthS g��per-line-prefixS ���g��nameg�� print-locals�C<Re:$<qb��hH��'��-�/���0���3� #��45�#��#��45�#��#��#��4$��"���5$��45$��"��"��4  5 4  5 $��K$��45  $�� "�� "��$��"��4  >��"��G��"���4  $��4   5"��4�5>��"��G��$���6C����������g��frame  D�g��port  D�g��index   D�g��width   D�g��full?   D�g�� last-source   D�g�� next-source?   D�g��source  d D�g��t  s ��g��file  � D�g��line � D�g��col � D�g��t � ��� g��filenamef��system/repl/debug.scm x  x - 0 y ) R   X   d   d   l |  m } s }  � } ! � ~  �   � �  �   � �  �   � �  � |  � } � }  � } ! � ~  � �  � �  � �  � �  � �  � �  � �   �  �   �  �   � 2  �  & �  4 �  @ � ( B � �)  D g��indexS g��widthS g��full?S g�� last-sourceS g�� next-source?S ���g��nameg�� print-frame�C=Re:=~q������h��_��-�/���0���3� #��45�#��45�#��#��#��#��4�5$�� "��$�� "�� 4 5"��$�� 45"��"��!$�� $��"��""��" "�� $��  $���  4        $��"��> ��"��G�� $�� "�� "�� 4  5"��% $��$�� 4 5"��""��"  "fCC$��"��   "K�������W������g��frames  y�g��port  y�g��width   y�g��full?   y�g��forward?   y�g��count   y�g�� for-trap?   y�g��len  X y�g�� lower-idx  } y�g�� upper-idx � y�g��i � b�g�� last-source � b�g��frame � ^�� g��filenamef��system/repl/debug.scm �  � ( ' � $ R �  X �  ` �  c � ( i �  m �  s �  { �  } �  } �  � �  � � & � �  � �  � � # � �  � �  � �  � �  � � � �  � � � �  � � � � � � - � � (  �  �  " �  ' �  1 �  4 �  9 �  ? �  @ �  ^ � b �  h �  y � �,  y g��widthS g��full?S g��forward?S g��countS g�� for-trap?S ���g��nameg�� print-frames�C>Rxyz{$}� ��hp��� ��]4L�4�554�5$��"��4544�54�5$��"��>��"��G��L4�56����������g��binding  l�g��x  l�g��var  * l��g��filenamef��system/repl/debug.scm �  �   � .  �   �  �   �  $ � 8 * � - �  2 �  3 �  : �  C �  G �  J � 1 U �  b � ! l � �  l ���Cu� ��hx���@��]4�545$��]45$��"��45�45�4>��"��G��4�O�4 �5>��"��G��C6��8������g��frame  w�g��proc w�g��t   3�g��mod  3 s�g��mod*  : s��g��filenamef��system/repl/debug.scm �  �  �  �   �   �   �  , � . 3 �  6 �  : �  = � Q � ] � h � w � �  w ��g��nameg�� frame->module�C?R�h`���G��]!4�545 $��?"��&$��45""�� 4� 5""���C��?������g��stack  ^�g��len ^�g��v   ^�g��i  F�g��frame  F��g��filenamef��system/repl/debug.scm �  �  �  �  �   �   �  �  % �  ) � 0 �  3 �  4 �  B �  F �  H �  W � �  ^ ��g��nameg�� stack->vector�C@R@��h0������-�1�3�44� 5?$��6C��������������g��stack )�g��args )�g��narrowed   )��g��filenamef��system/repl/debug.scm � �  � $  �   �  �  & �  ( � � ) ��g��nameg��narrow-stack->vector�CARA������h8������] [$�� ["��4�5  $�� "��6��������������g��frame  1�g��tag  1��g��filenamef��system/repl/debug.scm �  �  �  �   �   �  ) �  1 � �  1 ��g��nameg��frame->stack-vector�CBRC�������g��m  ,�g�� set-width  ��g��filenamef��system/repl/debug.scm   : 9  A   A   @  P X ( d  x  � k � * � X � v � �  x ���C6��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/system/repl/command.go�������������������������������������������������������������������0000644�����������������00000331665�15146341264�0012530 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0�����]8�4������h/<������]� g��guile � g��define-module* � � g��system g��repl g��command � g��filenameS f��system/repl/command.scm g��importsS g��base g��syntax  � � g��pmatch  � � g��compile  � � g��common � � g��debug � � g��vm g��objcode � � !g��program "!� #"� $g�� trap-state %$� &%� '� ('� )g��frame *)� +g��selectS ,g��frame-return-values -,� .*+-� /g��ice-9 0g��format 1/0� 21� 3g��session 4/3� 54� 6g�� documentation 7/6� 87� 9g�� and-let-star :/9� ;:� <g��rdelim =/<� >=� ?g��control @/?� A@� Bg�� pretty-print C/B� Dg��pp EBD FE� GC+F� Hg��inspect IH� Jg��%inspect KHJ LK� MI+L� Ng��statprof ON� PO� Q #&(.258;>AGMP� Rg��exportsS Sg�� meta-command Tg��define-meta-command UST� Vg�� autoloadsS Wg��language X W� Yg��lookup-language Zg��language-reader [YZ� \g��trace ]\� ^g��call-with-trace _^� `X[]_� ag��set-current-module ba� ca� dg��help eg��h fde� gg��show hg� ig��apropos jg��a kij� lg��describe mg��d nlm� odfhkn� pg��module qg��m rpq� sg��import tg��use ust� vg��load wg��l xvw� yg��reload zg��re {yz� |g��binding }g��b ~|}� g��in �� �prux{~� �g��L �W� �W� �g��c �� �g�� compile-file �g��cc �� �g��expand �g��exp �� �g��optimize �g��opt �� �g�� disassemble �g��x �� �g��disassemble-file �g��xx �� �� �g��profile �g��time �g��t �� �g��pr �� �g��tr �\� �� �g�� backtrace �g��bt �� �g��up �� �g��down �� �g��fr �)� �g�� procedure �g��proc �� �g��locals �� �g�� error-message �g��error �� �g��break �g��br �g��bp �� �g��break-at-source �g��break-at �g��bs �� �g��step �g��s �� �g��step-instruction �g��si �� �g��next �g��n �� �g��next-instruction �g��ni �� �g��finish �� �g�� tracepoint �g��tp �� �g��traps �� �g��delete �g��del �� �g��disable �� �g��enable �� �g�� registers �g��regs �� �� �g��i �H� �BD� �H� �g��gc �� �g�� statistics �g��stat �� �g��option �g��o �� �g��quit �g��q �g��continue �g��cont �� �� �o� �g��*command-table* �g��warranty �g��w �� �g��copying �� �g��version �g��v �� �g� �� �g�� *show-table* �g�� group-name �g��group-commands �g��make-hash-table �g��*command-infos* �g�� command-name �g��command-abbrevs �g�� hashq-ref �g�� command-info �g��command-info-procedure �g��command-procedure �g��procedure-documentation g�� command-doc g��make-command-info g��command-info-arguments-reader g�� substring g�� string-index g�� command-usage g��command-summary g��assq  g�� lookup-group  g��memq  g��lookup-command  f��$~:(~A~) Commands~:[~; [abbrev]~]:~2%  g��for-each g��display-summary g��newline g�� display-group g��display f��Usage:  g��display-command g�� string-length f�� [,~A~{ ,~A~}] f��� f�� ,~A~A~A - ~A  f��abbrevs too long f��~%~v_ f��~v_ g��catch g��read f��)Throw to key `~a' while reading command:  g�� display-error g��current-output-port  f��8Throw to key `~a' with args `~s' while reading command.  !g�� force-output "g�� read-command #g��read-command-arguments $g��and=> %f��Unknown meta command: ~A~% &f��Meta-command not a symbol: ~s~% 'g�� hashq-set! (g��append )g��add-meta-command! *g��make-syntax-transformer +*� ,*� -g��macro .g�� $sc-dispatch /.� 0.� 1g��any 211� 3g��each-any 431 514 625 713 817 968 :19 ;g�� syntax-object <g��top =<� >g��ribcage ?g��dummy @g��name Ag��category Bg�� expression0 Cg��datums Dg�� docstring Eg��b0 Fg��b1 G?@ABCDEF�  Hg��m-3ee4d7042b-92 IH<� JI========�  Kf��l-3ee4d7042b-97 Lf��l-3ee4d7042b-98 Mf��l-3ee4d7042b-99 Nf��l-3ee4d7042b-9a Of��l-3ee4d7042b-9b Pf��l-3ee4d7042b-9c Qf��l-3ee4d7042b-9d Rf��l-3ee4d7042b-9e Sf��l-3ee4d7042b-9f TKLMNOPQRS�  U>GJT� V>� W� XI� Yf��l-3ee4d7042b-94 ZY� [>WXZ� \=UV[� ]g��hygiene ^]� _;)\^� `g��quote a;`\^� bg��lambda* c;b\^� d(� e(� fg��lambda g;f\^� hg��define i;h\^� jg��handle-read-error k;j\^� lg�� form-name m;l\^� ng��key o;n\^� pg��args q;p\^� rkmoq� s;\^� tg��unquote u;t\^� vg��subr w;v\^� xuw� yg��msg z;y\^� {uz� |uq� }g��rest ~;}\^� x{|u~� ;0\^� ;\^� f��DThrow to key `~a' while reading ~@[argument `~A' of ~]command `~A':  ;\^� ;\^� ;\^� ;\^� � wzq~� � g��else ;\^� f��TThrow to key `~a' with args `~s' while reading ~@[ argument `~A' of ~]command `~A'.  ;\^� g��abort ;\^� � � g��% ;\^� g��let* ;\^� g��map � � ;\^� g�� repl-reader ;\^� ;\^� g��optionalS ;\^� g��port ;\^� g��current-input-port ;\^� � � � ;Z\^� g�� repl-language ;\^� g��current-module ;\^� � � g��k ;\^� q q� ;(\^� g��list ;\^� g��let ;\^� g��open-input-string ;\^� g�� read-line ;\^� � � � � g��lp ;\^� g��out ;\^� a� � � ;\^� ;\^� � � � g��if ;\^� g�� eof-object? ;\^� � g��reverse ;\^� � g��cons ;\^� � � � � � � g� kq� g� � � � g� � 11 2⌤ 8 1䌤 ?@ACDEF� I=======� f��l-3ee4d7042b-ae f��l-3ee4d7042b-af f��l-3ee4d7042b-b0 f��l-3ee4d7042b-b1 f��l-3ee4d7042b-b2 f��l-3ee4d7042b-b3 f��l-3ee4d7042b-b4 f��l-3ee4d7042b-b5 � >� =V[� ;T^� 15 8 1 ?@BCDEF� f��l-3ee4d7042b-c0 f��l-3ee4d7042b-c1 f��l-3ee4d7042b-c2 f��l-3ee4d7042b-c3 f��l-3ee4d7042b-c4 f��l-3ee4d7042b-c5 f��l-3ee4d7042b-c6 f��l-3ee4d7042b-c7 �� >�� =V[� ;T^� ;^� � 1⌤ 8 1  ?@CDEF�  I======�  f��l-3ee4d7042b-d3  f��l-3ee4d7042b-d4  f��l-3ee4d7042b-d5 f��l-3ee4d7042b-d6 f��l-3ee4d7042b-d7 f��l-3ee4d7042b-d8 f��l-3ee4d7042b-d9    � >  � =V[� ;T^� ;^� � g��syntax-violation � � f��-source expression failed to match any pattern f��Command Groups:  f��help all f��List all commands g��symbol->string  g�� string-append !f��help  "f��List  #f�� commands $f��FType `,help -c COMMAND' to show documentation of a particular command. %g��-c &f��Unknown command: ~A~% 'f��Bad arguments: ~A~% (f��Unknown command or group: ~A~% )g��all *g��default-prompt-tag +@*� ,@*� -f��Unknown topic: ~A~% .g�� *warranty* /g�� *copying* 0g�� *version* 1g��->string 2g��object-documentation 3g�� repl-parse 4g�� module-ref 5g�� repl-eval 6g��form 7f�� ~A~24t~A  8g�� repl-options 9g��repl-option-set! :g��eval ;g��repl-option-ref <g��throw =g��puts >g�� module-name ?g��resolve-module @g�� module-uses Ag��resolve-interface Bg�� module-use! Cf��No such module: ~A~% Dg��load-in-vicinity ED� FD� Gf�� system/repl Hg�� reload-module Ig��module-for-each Jf��~23A ~A  Kg��ensureS Lg��save-module-excursion Mg�� repl-print Nf��FInvalid arguments to `in': expected a single expression or a command.  Of��No such module: ~s  Pf��6Happy hacking with ~a! To switch back, type `,L ~a'.  Qg��language-title Rg�� language-name Sg��current-language Tg��setter UT� VT� Wg�� repl-compile Xg��objcode? Yg��guile:disassemble Zg��optsS [g�� repl-expand \g��run-hook ]g��before-print-hook ^g�� repl-optimize _g��assembly `W_� a`� b`� cg��program? df��9Argument to ,disassemble not a procedure or objcode: ~a~% eg�� load-objcode fg�� gc-run-time gg��get-internal-real-time hg��get-internal-run-time if��8;; ~,6Fs real time, ~,6Fs run time. ~,6Fs spent in GC.  je��1.0 kg��internal-time-units-per-second lg��repl-prepare-eval-thunk mg��widthS ng��terminal-width og��define-stack-command pg��_ qp rg�� datum->syntax sg��frames tg��message ug�� for-trap? vg��index wg��cur x1111111� yg��t-3ee4d7042b-8e0 zg��t-3ee4d7042b-8e1 {g��t-3ee4d7042b-8e2 |g��t-3ee4d7042b-8e3 }g��t-3ee4d7042b-8e6 ~g��t-3ee4d7042b-8e5 g��t-3ee4d7042b-8e4 yz{|}~� g��m-3ee4d7042b-8e7 <� � f��l-3ee4d7042b-8eb f��l-3ee4d7042b-8ec f��l-3ee4d7042b-8ed f��l-3ee4d7042b-8ee f��l-3ee4d7042b-8ef f��l-3ee4d7042b-8f0 f��l-3ee4d7042b-8f1 � >� g��body g��body* @pD� ======� f��l-3ee4d7042b-8d4 f��l-3ee4d7042b-8d5 f��l-3ee4d7042b-8d6 f��l-3ee4d7042b-8d7 f��l-3ee4d7042b-8d8 f��l-3ee4d7042b-8d9 � >� =� f��l-3ee4d7042b-8d1 � >W� =VV� ;T^� ;^� ;^� g�� repl-debug ;^� ;^� g�� letrec-syntax ;^� g��identifier-syntax ;^� g�� debug-frames ;^� � � � g��debug-error-message ;^� � � � g��debug-for-trap? ;^� � � � g��id ;^� g�� debug-index ;^� � � g��set! ;^� ;^� � � � � � g�� vector-ref ;^� ;0^� ;^� f��Nothing to debug.~% ;^� � � m  g��full?S   � g�� print-frames g��countS g�� for-trap?S g��integer? f��BInvalid argument to `up': expected a positive integer for COUNT.~% g�� vector-length f��Already at outermost frame.  g�� print-frame g��indexS g�� next-source?S f��DInvalid argument to `down': expected a positive integer for COUNT.~% f��Already at innermost frame.  f��GInvalid argument to `frame': expected a non-negative integer for IDX.~% f��No such frame.~% g��frame-procedure m  � g�� print-locals f��~a~% g��string? f��No error message g�� procedure? g��add-trap-at-procedure-call! f��Trap ~a: ~a.~% g�� trap-name f��Not a procedure: ~a g��add-trap-at-source-location! g��default-prompt-handler @� @� g��frame->stack-vector g��frame-previous f��No return values.~% f��Return values:~% � g�� start-repl g��debugS g�� make-debug g��repl-pop-continuation-resumer f��Return from ~a g��#add-ephemeral-trap-at-frame-finish! g��repl-next-resumer f�� Step into ~a g��add-ephemeral-stepping-trap! g��into?S g�� instruction?S g��add-trace-at-procedure-call! �g�� list-traps f��No traps set.~% f�� ~a: ~a~a~% g�� trap-enabled? f�� (disabled) g�� delete-trap! f��.expected a trap index (a non-negative integer) g�� disable-trap! g�� enable-trap!  g��print-registers  g��width  f��!Set screen width to ~a columns.~%  g��times  g��gc-stats g�� repl-tm-stats g�� repl-gc-stats g��assq-ref g��gc-times g��display-diff-stat f�� GC times: f��times g�� heap-size g��heap-free-size g��display-stat-title f�� Memory size: f��current f��limit g�� display-stat f��heap f��bytes g��heap-total-allocated f��Bytes allocated:  f��diff !f��total "f�� allocated #g�� gc-time-taken $f��GC time taken: %g��display-time-stat &g�� tms:utime 'g�� tms:stime (g�� tms:cutime )g�� tms:cstime *f��Process time spent: +f��user ,f��system -f�� child user .f�� child system /f��~~20~AA ~~10@A /~~10@A ~~A~~% 0f��@ 1f��~10,2F 2g��exact->inexact 3f��s 4f��---- 5e�� 1000000.0 6f��mips 7g��display-mips-statC�5����ho�C��]4    QRUV`5 �4c�>��"��G���RR����h���x���]�C��p�������g��g  ��g��filenamef��system/repl/command.scm J  J �   ��g��nameg�� group-name�CR���h���|���]�C��t�������g��g  ��g��filenamef��system/repl/command.scm K  K �   ��g��nameg��group-commands�CR4i5�R�����h���z���]�C��r�������g��c  ��g��filenamef��system/repl/command.scm N  N �   ��g��nameg�� command-name�CR�h���}���]�C��u�������g��c  ��g��filenamef��system/repl/command.scm O  O �   ��g��nameg��command-abbrevs�CR������h������]4�56�z�������g��c  ��g��filenamef��system/repl/command.scm P  P 4  P �   ��g��nameg�� command-info�CR���h������]4�56����������g��c  ��g��filenamef��system/repl/command.scm Q  Q 6 Q �  ��g��nameg��command-procedure�CR������h������]4�56���y�������g��c  ��g��filenamef��system/repl/command.scm R  R 1 R �  ��g��nameg�� command-doc�CR�h������]�C�������g��proc  �g��arguments-reader  ��g��filenamef��system/repl/command.scm T  U �   ��g��nameg��make-command-info�CR��h������]�C���������g��info  ��g��filenamef��system/repl/command.scm W  X �   ��g��nameg��command-info-procedure�CR����h������]�C���������g��info  ��g��filenamef��system/repl/command.scm Z  [ �   ��g��nameg��command-info-arguments-reader�CR�h ������] 4�5 4 56������������g��c  �g��doc ��g��filenamef��system/repl/command.scm ]  ^ ^   _   _ �   ��g��nameg�� command-usage�CR����h@������]4�54 54 5$�� 66�����������g��c  <�g��doc <�g��start   <�g��t  " <��g��filenamef��system/repl/command.scm a  b  b  c   c   b   d " d  4 e  < f �  < ��g��nameg��command-summary�CR����h���}���]�6������u�������g��name  ��g��filenamef��system/repl/command.scm h i �  ��g��nameg�� lookup-group�C R ������hx���;��-�.�,�3�#��"��N"��4(��"4�5$��C"(�� (��C"""�����3������g��key s�g��table s�g��groups   h�g��commands   h��g��filenamef��system/repl/command.scm k  l  $ m  ' o  * o  3 o 4 p ; p  = p A m  D p % J q  R q  R m  ^ m h l  k l & s l � s ��g��nameg��lookup-command�C R0  �������h(������]4�5L�$�� 4�5"��4�56���������g��c  &��g��filenamef��system/repl/command.scm u  v   w   w +  w ?  x  & v �  & ���C������hX������-�.�,�3�#��44�5>��"��G��4O�4�5>��"��G��6�������������g��group S�g��abbrev? S��g��filenamef��system/repl/command.scm s  t   t  t 4 ) t  2 u  < y G u  S z � S ��g��nameg�� display-group�CR��������h0������]4>��"��G��44�5>��"��G��6���������g��command  /��g��filenamef��system/repl/command.scm |  }   } }   ~   ~ # ~  /  �  / ��g��nameg��display-command�CR0� ���h�����]4�5$��45"��45� $�� 45"��0 $��4  5"��4 56���� ������g��usage  ��g��abbrevs  ��g��summary   ��g�� usage-len  ��g��abbrevs  & ��g�� abbrevs-len  / ���g��filenamef��system/repl/command.scm �  �  �   �   �   �   � !  � 1  � ? �  & �  & �  ) �  / �  6 �  = �  A � B �  F �  J �  S �  V �  Z � [ �  ` �  g � & h � ! j �  o �  t �  y �  ~ �  � � �"  � ��g��nameg��display-summary�CR��������h���T���]�6���L�������g��filenamef��system/repl/command.scm �   � �   ���C0 !�������h���d��-�1�3�$��$��y$��G4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��4>���"��G��C����\������g��key ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 u�g��vy  8 u��g��filenamef��system/repl/command.scm �  �  = � B �  I � R � V �  g � z �  �  � � � �  � � � �  � � � � � � ���C�h������]6�����w�������g��repl  ��g��filenamef��system/repl/command.scm � � �  ��g��nameg�� read-command�C"R����h������]44�556�������������g��c  �g��repl  ��g��filenamef��system/repl/command.scm �  �   � "  �   � �   ��g��nameg��read-command-arguments�C#R" $#������h���p���]4L5L��@�h�������g��args  ��g��filenamef��system/repl/command.scm �   � (  � !�   ���C0%&� ����hX�����]4�5&��C$��.45$��4�5�O�666������������g��repl  R�g��command R�g��t  " I��g��filenamef��system/repl/command.scm �  �  �   �   �   �  �   �  " �  - �  @ � E �  I �  N �  R � �  R ��g��nameg�� meta-command�CSR'(��hh���~��] 4�45>��"��G��$��>45$��4���5C4����5 CC���v������g��name  e�g��category  e�g��proc   e�g��argument-reader   e�g��entry  . c��g��filenamef��system/repl/command.scm �  �  � #  �  % �  & �  . �  6 �  9 �  > � $ C � 6 F � 0 H �  I � L �  W � / Z � ] �  _ �  a � �  e ��g��nameg��add-meta-command!�C)R4,T-0:_acegirsqomgcka�����hH���9���]� L��� ���   �����C��1�������g��tmp-3ee4d7042b-ab  F��  F ���C��������h������,� 3� ��45�     ��   ����4O�5���C����������g��dummy  ��g��name  ��g��category   ��g��repl   ��g�� expression0   ��g��datums   ��g�� docstring   ��g��b0   ��g��b1   ���   � ���C�h(������,�3��C�������������g��dummy  "�g��name  "�g��category   "�g��repl   "�g��datums   "�g�� docstring   "�g��b0   "�g��b1   "��  " ���C�h(������,�3�C��������������g��dummy  !�g��name  !�g��repl   !�g�� expression0   !�g��datums   !�g�� docstring   !�g��b0   !�g��b1   !��  ! ���C������h ������]C�����������g��dummy  �g��name  �g��repl   �g��datums   �g�� docstring   �g��b0   �g��b1   ��   ���C� ��hh�����]!4�5$��@4�5$��@4�5$��@4�5$�� @  �6�������g��x  g�g��tmp g�g��tmp  " g�g��tmp  9 g�g��tmp  P g��g��filenamef��system/repl/command.scm � �  g ��g�� macro-typeg�� syntax-rulesg��patternsg��nameg��category�g��replg�� expression0g��...�g��datumsg�� docstringg��b0g��b1g��...�g��nameg��category�g��replg��datumsg�� docstringg��b0g��b1g��...�g��nameg��replg�� expression0g��...�g��datumsg�� docstringg��b0g��b1g��...�g��nameg��replg��datumsg�� docstringg��b0g��b1g��...���C5TR4)id d  !"#�����h8�����]44�5545456������� ������g��g  1�g��name  1�g��usage   1�g��header  & 1��g��filenamef��system/repl/command.scm        .            .          / $  < &  &   1  �  1 ���C$%0&'( )�����h ��j��-�1�3�(��y445>��"��G��4>��"��G��4>��"��G��4   >��"��G��4 >���"��G��4 >��"��G�� 6�"�a"�$"��"��"��]$��M&��2$��"(�� 66666$��(�� 6""{$��O&��9$��.(��45$�� 456"-")"%"!"$��.(��45$�� 456"""$��.(��45$�� 456"""$��(&��(��  6"t"p"lb������g��repl  �g��args  �g��vx  � ��g��vy  � ��g��vx  � ��g��vy  � ��g��vx   �g��vy   �g��vx  . w�g��vy  . w�g��vx  G o�g��vy  G o�g��vx   �g��vy   �g��vx   �g��vy   �g��vx   �g��vy   ��g��filenamef��system/repl/command.scm �            "       '   +   0   9   =   @  $ E   N   U   Z   c   s   w   |   �   �   � !  � !  � #  � #  � #  � #  � #  � #  � #  � #  �            R   \   _   g   k                                      �7  ��g�� documentationf�help [all | GROUP | [-c] COMMAND] Show help. With one argument, tries to look up the argument as a group name, giving help on that group if successful. Otherwise tries to look up the argument as a command, giving help on the command. If there is a command whose name is also a group name, use the ,help -c COMMAND form to give help on the command instead of the group. Without any argument, a list of help commands and command groups are displayed.�C,(�h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm � �  > ���C0d�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm � � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm � �  , ���C>��"��G��4)ig 0-'� �����h�����-�1�3�(��4>��"��G��6�$��q(��A45$��4455�6(�� 66(�� 666������g��repl ��g��args ��g��vx  4 ��g��vy  4 ��g��vx  c �g��vy  c �g��vx  � ��g��vy  � ���g��filenamef��system/repl/command.scm %  /   1   1   1  ' 2  * /  ? 3  K /  L 4  O 4  Y 4  ] 4  ` /  r 6  v 6  { 8   8  � /  � 6  � 6  � 8  � 8  � 8  � 8 � � ��g�� documentationf�show [TOPIC] Gives information about Guile. With one argument, tries to show a particular piece of information; currently supported topics are `warranty' (or `w'), `copying' (or `c'), and `version' (or `v'). Without any argument, a list of topics is displayed.�C,(������h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm % �  > ���C0g�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm % � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm % �  , ���C>��"��G��4)i.��h������]4>��"��G��6��������g��repl  ��g��filenamef��system/repl/command.scm >  A   B �   ��g�� documentationf��.show warranty Details on the lack of warranty.�C,(��������h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm > �  > ���C0�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm > � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm > �  , ���C>��"��G��4)i/��h������]4>��"��G��6��������g��repl  ��g��filenamef��system/repl/command.scm D  G   H �   ��g�� documentationf��show copying Show the LGPLv3.�C,(�h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm D �  > ���C0�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm D � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm D �  , ���C>��"��G��4)i0��h������]4>��"��G��6��������g��repl  ��g��filenamef��system/repl/command.scm J  M   N �   ��g�� documentationf��!show version Version information.�C,(�����h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm J �  > ���C0�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm J � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm J �  , ���C>��"��G��4)iii1������h������]456����������g��repl  �g��regexp  ��g��filenamef��system/repl/command.scm P  S S �  ��g�� documentationf��.apropos REGEXP Find bindings/modules/packages.�C,(����h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm P �  > ���C0i�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm P � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm P �  , ���C>��"��G��4)il2345������hP���9��] 444�5$��445�5"�� 4�55>��"��G��6��������1������g��repl  I�g��form  I�g��input   6��g��filenamef��system/repl/command.scm U  X   Y  Z   Z   [  [   \  \  & \ + ] 8 Y  = X  I ^ �  I ��g�� documentationf��,describe OBJ Show description/documentation.�C0l�������h��� ��]3$��$��$��K4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������g�� form-name  ��g��key  ��g��args   ��g��vx   ��g��vy   ��g��vx  ��g��vy  ��g��vx  1 r�g��vy  1 r�� g��filenamef��system/repl/command.scm U �  � ��g��nameg��handle-read-error�C,Z�h0���^���-��.�,�3��#��45��44L�55�45�6��V�������g��port .��g��filenamef��system/repl/command.scm U � . ���C�������h���J���]�L�O�6�B�������g��filenamef��system/repl/command.scm U �   ���C6�������h���m���-�1�3�L��6�����e�������g��k �g��args ��g��filenamef��system/repl/command.scm U �  ���C(�����h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm U �  > ���C��h���m���-�1�3�L��6������e�������g��k �g��args ��g��filenamef��system/repl/command.scm U �  ���C� �������hP������]45�U��64�O�O�54�4O�5>��XCXFG�C����������g��repl  M�g��handle-read-error  M�g��form  $ B�g��k  F M��g��filenamef��system/repl/command.scm U �  M ���C>��"��G��4)i 07�h������]��6z�������g��spec  ��g��filenamef��system/repl/command.scm e   f  f + f 6  f �   ���C89:;� �����h�����-�1�3�(�� 4�56"��B$��9$��&(���445�56CCC$��1(��44�5>��"��G�� 6�""��������g��repl ��g��args ��g��vx  - `�g��vy  - `�g��vx  > ^�g��vy  > ^�g��vx  o ��g��vy  o ���g��filenamef��system/repl/command.scm `  c   g   e  c  O n ! T n + Z n ! \ n  b c  z i  } i  � i  � j  � c � � ��g�� documentationf��*option [NAME] [EXP] List/show/set options.�C,(�����h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm ` �  > ���C0�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm ` � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm ` �  , ���C>��"��G��4)i<������h������]6�������g��repl  ��g��filenamef��system/repl/command.scm p  s  s �   ��g�� documentationf��quit Quit this session.�C,(�������h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm p �  > ���C0�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm p � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm p �  , ���C>��"��G��4)ip=>a?�����hh���k��-�1�3�(��445�56$��8(��$�� 456456456456�c������g��repl g�g��args g�g��vx  * \�g��vy  * \��g��filenamef��system/repl/command.scm z  }   ~   ~   ~   ~  }  7   ; }  >   F   I  # Q   T  # \   _  # g  � g ��g�� documentationf��5module [MODULE] Change modules / Show current module.�C,(��������h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm z �  > ���C0p�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm z � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm z �  , ���C>��"��G��4)is =>@AB0C��h(������] 4�5$�� 45�6�6����������g��name  %�g��mod %��g��filenamef��system/repl/command.scm                !   %  �  % ��g��nameg��use�C��������h0�����-�1�3�(��4445�5566���������g��repl .�g��args .��g��filenamef��system/repl/command.scm          (   5 "  ( $   &   .  � . ��g�� documentationf��9import [MODULE ...] Import modules / List those imported.�C,(����h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm  �  > ���C0s�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm  � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm  �  , ���C>��"��G��4)ivFG1��h������]456��������g��repl  �g��file  ��g��filenamef��system/repl/command.scm          �   ��g�� documentationf��,load FILE Load a file in the current module.�C,(�������h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm  �  > ���C0v�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm  � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm  �  , ���C>��"��G��4)iyH?��hh���u��-�1�3�(�� 45�6$��8(��$�� 456456456456������m������g��repl b�g��args b�g��vx  % W�g��vy  % W��g��filenamef��system/repl/command.scm              2   6   9   A   D   L   O   W   Z   b  � b ��g�� documentationf��Qreload [MODULE] Reload the given module, or the current module if none was given.�C,(������h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm  �  > ���C0y�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm  � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm  �  , ���C>��"��G��4)i|I0J��h���|���]�6���t�������g��k  �g��v  ��g��filenamef��system/repl/command.scm     ,  !�  ���C������h������]45�6����������g��repl  ��g��filenamef��system/repl/command.scm      �  ��g�� documentationf��binding List current bindings.�C,(��������h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm  �  > ���C0|�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm  � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm  �  , ���C>��"��G��4)i?Kt La ����h(���x���]�4L>��"��G��44L�55LL@��p�������g��filenamef��system/repl/command.scm          (   &  �  & ���CM:0NO� ������h�����-�1�3� 45$��$��&��$��d(��845$���O�6(���456  6(���456  6(���456  6(���456  6(���456  6  6����������g��repl ��g��module ��g��command-or-expression  ��g��args  ��g��m   ��g��vx  ( ��g��vy  ( ��g��vx  A ��g��vy  A ��� g��filenamef��system/repl/command.scm            L  & V   g  m   r   |  �   �  �   �   �  �   �  �   �   �  �   �  �   �   �  �   �  �   �   �  �   �  �   �  �$ �  ��g�� documentationf��[in MODULE COMMAND-OR-EXPRESSION Evaluate an expression or command in the context of module.�C,(������h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm  �  > ���C0�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm  � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm  �  , ���C>��"��G��4)iWY0PQRSV� ����hX���%��]454�544545>��"��G��4>��"��G��45�6����������g��repl  T�g��name  T�g��lang   T�g��cur   T��g��filenamef��system/repl/command.scm                 "  " -   6   T  �  T ��g�� documentationf��#language LANGUAGE Change languages.�C,(������h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm  �  > ���C0W�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm  � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm  �  , ���C>��"��G��4)iW3XYM����h0������] 4�4�5545$��6�6����������g��repl  -�g��form  -�g��x   -��g��filenamef��system/repl/command.scm                 %   -  �  - ��g�� documentationf��#compile EXP Generate compiled code.�C0�h��� ��]3$��$��$��K4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������g�� form-name  ��g��key  ��g��args   ��g��vx   ��g��vy   ��g��vx  ��g��vy  ��g��vx  1 r�g��vy  1 r�� g��filenamef��system/repl/command.scm  �  � ��g��nameg��handle-read-error�C,Z�h0���^���-��.�,�3��#��45��44L�55�45�6��V�������g��port .��g��filenamef��system/repl/command.scm  � . ���C�������h���J���]�L�O�6�B�������g��filenamef��system/repl/command.scm  �   ���C6�������h���m���-�1�3�L��6�����e�������g��k �g��args ��g��filenamef��system/repl/command.scm  �  ���C(�����h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm  �  > ���C��h���m���-�1�3�L��6������e�������g��k �g��args ��g��filenamef��system/repl/command.scm  �  ���C� �������hP������]45�U��64�O�O�54�4O�5>��XCXFG�C����������g��repl  M�g��handle-read-error  M�g��form  $ B�g��k  F M��g��filenamef��system/repl/command.scm  �  M ���C>��"��G��4)i1Z��h������-�1�3�456�������g��repl �g��file �g��opts  ��g��filenamef��system/repl/command.scm      �   ��g�� documentationf��!compile-file FILE Compile a file.�C,(������h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm  �  > ���C0�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm  � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm  �  , ���C>��"��G��4)i[3\]D�����h0������] 4�4�554>��"��G��6���������g��repl  .�g��form  .�g��x   .��g��filenamef��system/repl/command.scm               .  �  . ��g�� documentationf��'expand EXP Expand any macros in a form.�C0�������h��� ��]3$��$��$��K4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������g�� form-name  ��g��key  ��g��args   ��g��vx   ��g��vy   ��g��vx  ��g��vy  ��g��vx  1 r�g��vy  1 r�� g��filenamef��system/repl/command.scm  �  � ��g��nameg��handle-read-error�C,Z�h0���^���-��.�,�3��#��45��44L�55�45�6��V�������g��port .��g��filenamef��system/repl/command.scm  � . ���C�������h���J���]�L�O�6�B�������g��filenamef��system/repl/command.scm  �   ���C6�������h���m���-�1�3�L��6�����e�������g��k �g��args ��g��filenamef��system/repl/command.scm  �  ���C(�����h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm  �  > ���C��h���m���-�1�3�L��6������e�������g��k �g��args ��g��filenamef��system/repl/command.scm  �  ���C� �������hP������]45�U��64�O�O�54�4O�5>��XCXFG�C����������g��repl  M�g��handle-read-error  M�g��form  $ B�g��k  F M��g��filenamef��system/repl/command.scm  �  M ���C>��"��G��4)i^3\]D����h0�����] 4�4�554>��"��G��6�� ������g��repl  .�g��form  .�g��x   .��g��filenamef��system/repl/command.scm               .  �  . ��g�� documentationf��Goptimize EXP Run the optimizer on a piece of code and print the result.�C0�������h��� ��]3$��$��$��K4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������g�� form-name  ��g��key  ��g��args   ��g��vx   ��g��vy   ��g��vx  ��g��vy  ��g��vx  1 r�g��vy  1 r�� g��filenamef��system/repl/command.scm  �  � ��g��nameg��handle-read-error�C,Z�h0���^���-��.�,�3��#��45��44L�55�45�6��V�������g��port .��g��filenamef��system/repl/command.scm  � . ���C�������h���J���]�L�O�6�B�������g��filenamef��system/repl/command.scm  �   ���C6�������h���m���-�1�3�L��6�����e�������g��k �g��args ��g��filenamef��system/repl/command.scm  �  ���C(�����h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm  �  > ���C��h���m���-�1�3�L��6������e�������g��k �g��args ��g��filenamef��system/repl/command.scm  �  ���C� �������hP������]45�U��64�O�O�54�4O�5>��XCXFG�C����������g��repl  M�g��handle-read-error  M�g��form  $ B�g��k  F M��g��filenamef��system/repl/command.scm  �  M ���C>��"��G��b��������h������]�6�������g��x  ��g��filenamef��system/repl/command.scm       �   ��g��nameg��guile:disassemble�CYR4)i53cXY0d�hH���9��]4�4�5545$��"��45$��66���1������g��repl  E�g��form  E�g��obj   E�g��t   2��g��filenamef��system/repl/command.scm                 )   6   <   A   E  �  E ��g�� documentationf��1disassemble EXP Disassemble a compiled procedure.�C0�������h��� ��]3$��$��$��K4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������g�� form-name  ��g��key  ��g��args   ��g��vx   ��g��vy   ��g��vx  ��g��vy  ��g��vx  1 r�g��vy  1 r�� g��filenamef��system/repl/command.scm  �  � ��g��nameg��handle-read-error�C,Z�h0���^���-��.�,�3��#��45��44L�55�45�6��V�������g��port .��g��filenamef��system/repl/command.scm  � . ���C�������h���J���]�L�O�6�B�������g��filenamef��system/repl/command.scm  �   ���C6�������h���m���-�1�3�L��6�����e�������g��k �g��args ��g��filenamef��system/repl/command.scm  �  ���C(�����h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm  �  > ���C��h���m���-�1�3�L��6������e�������g��k �g��args ��g��filenamef��system/repl/command.scm  �  ���C� �������hP������]45�U��64�O�O�54�4O�5>��XCXFG�C����������g��repl  M�g��handle-read-error  M�g��form  $ B�g��k  F M��g��filenamef��system/repl/command.scm  �  M ���C>��"��G��4)iYe1�h������]44556�������������g��repl  �g��file  ��g��filenamef��system/repl/command.scm       #      �   ��g�� documentationf��)disassemble-file FILE Disassemble a file.�C,(�h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm  �  > ���C0�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm  � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm  �  , ���C>��"��G��4)ifgh53M0ijk� �����h���D��]:45�45�45�4�4�5545�45�45�4�>��"��G��4      >��"��G��C�������<������g��repl  ��g��form  ��g��gc-start   ��g�� real-start   ��g�� run-start   ��g��result  ' ��g��run-end  . ��g��real-end  5 ��g��gc-end  < ��� g��filenamef��system/repl/command.scm                    �   � ! ' �  '   *   .   1   5   8   <   ?   S   X   ]  _   `   h  j   k   s  u   v   ~  �  � ��g�� documentationf��time EXP Time execution.�C0����h��� ��]3$��$��$��K4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������g�� form-name  ��g��key  ��g��args   ��g��vx   ��g��vy   ��g��vx  ��g��vy  ��g��vx  1 r�g��vy  1 r�� g��filenamef��system/repl/command.scm  �  � ��g��nameg��handle-read-error�C,Z�h0���^���-��.�,�3��#��45��44L�55�45�6��V�������g��port .��g��filenamef��system/repl/command.scm  � . ���C�������h���J���]�L�O�6�B�������g��filenamef��system/repl/command.scm  �   ���C6�������h���m���-�1�3�L��6�����e�������g��k �g��args ��g��filenamef��system/repl/command.scm  �  ���C(�����h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm  �  > ���C��h���m���-�1�3�L��6������e�������g��k �g��args ��g��filenamef��system/repl/command.scm  �  ���C� �������hP������]45�U��64�O�O�54�4O�5>��XCXFG�C����������g��repl  M�g��handle-read-error  M�g��form  $ B�g��k  F M��g��filenamef��system/repl/command.scm  �  M ���C>��"��G��4)iNl3��h ������-�1�3�4�4�55@��������g��repl �g��form �g��opts  ��g��filenamef��system/repl/command.scm     '     �   ��g�� documentationf��profile EXP Profile execution.�C0����h��� ��]3$��$��$��K4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������g�� form-name  ��g��key  ��g��args   ��g��vx   ��g��vy   ��g��vx  ��g��vy  ��g��vx  1 r�g��vy  1 r�� g��filenamef��system/repl/command.scm  �  � ��g��nameg��handle-read-error�C,Z�h0���^���-��.�,�3��#��45��44L�55�45�6��V�������g��port .��g��filenamef��system/repl/command.scm  � . ���C�������h���J���]�L�O�6�B�������g��filenamef��system/repl/command.scm  �   ���C6�������h���m���-�1�3�L��6�����e�������g��k �g��args ��g��filenamef��system/repl/command.scm  �  ���C(�����h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm  �  > ���C��h���m���-�1�3�L��6������e�������g��k �g��args ��g��filenamef��system/repl/command.scm  �  ���C� �������hP������]45�U��64�O�O�54�4O�5>��XCXFG�C����������g��repl  M�g��handle-read-error  M�g��form  $ B�g��k  F M��g��filenamef��system/repl/command.scm  �  M ���C>��"��G��4)i\^l3mn����h(������-�1�3�4�4�5545�@���������g��repl &�g��form &�g��opts  &��g��filenamef��system/repl/command.scm     '      &  � &  ��g�� documentationf��trace EXP Trace execution.�C0\�������h��� ��]3$��$��$��K4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������g�� form-name  ��g��key  ��g��args   ��g��vx   ��g��vy   ��g��vx  ��g��vy  ��g��vx  1 r�g��vy  1 r�� g��filenamef��system/repl/command.scm  �  � ��g��nameg��handle-read-error�C,Z�h0���^���-��.�,�3��#��45��44L�55�45�6��V�������g��port .��g��filenamef��system/repl/command.scm  � . ���C�������h���J���]�L�O�6�B�������g��filenamef��system/repl/command.scm  �   ���C6�������h���m���-�1�3�L��6�����e�������g��k �g��args ��g��filenamef��system/repl/command.scm  �  ���C(�����h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm  �  > ���C��h���m���-�1�3�L��6������e�������g��k �g��args ��g��filenamef��system/repl/command.scm  �  ���C� �������hP������]45�U��64�O�O�54�4O�5>��XCXFG�C����������g��repl  M�g��handle-read-error  M�g��form  $ B�g��k  F M��g��filenamef��system/repl/command.scm  �  M ���C>��"��G��4,o-0qrstuvw0x��hh������]LLLLL����    ����L�L ��C�������������g��t-3ee4d7042b-8e0  b�g��t-3ee4d7042b-8e1  b�g��t-3ee4d7042b-8e2   b�g��t-3ee4d7042b-8e3   b�g��t-3ee4d7042b-8e6   b�g��t-3ee4d7042b-8e5   b�g��t-3ee4d7042b-8e4   b��  b ���C� ��hx�����]45454545454545�45$�� �O�@  6���������g��name  u�g��repl  u�g��args   u�g�� docstring   u�g��body   u�g��body*   u�g��tmp  D u�g��tmp  O u��g��filenamef��system/repl/command.scm  +  + / +  -   - /  -   /   / /  /   1  $ 1 / & 1  ' 5  - 5 / / 5  0 7 & 6 7 < 8 7 & 9 8 & ? 8 < A 8 & D & �  u ���C�h(���k���] 4�5$��@�6������c�������g��x  "�g��tmp "��g��filenamef��system/repl/command.scm # �  " ���C5oR4)inm0� ������hh�����-�/���0���3�#��#��45�#��4�5$�� 45 4 56   6������g��repl  h�g��count  h�g��width   h�g��full?   h�g��debug  9 h��g��filenamef��system/repl/command.scm < # = . 3 < a C  f < �  h g��widthS g��full?S ���g�� documentationf��backtrace [COUNT] [#:width W] [#:full? F] Print a backtrace. Print a backtrace of all stack frames, or innermost COUNT frames. If COUNT is negative, the last COUNT frames will be shown.�C,(�h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm < �  > ���C0�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm < � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm < �  , ���C>��"��G��4)i0V��h@��Z��-�.�,�3�#�� 4�5$�45$��"�� $��6454455$��{454455$��644 54455>��"��G�� 4545 45 45 $�� 4 5"��644 545>��"��G�� 4545 45 45 $�� 4 5"��66R������g��repl @�g��count @�g��debug   @�g��t  , @��g��filenamef��system/repl/command.scm I % P , P  , P  = P  D O  I Q  K Q  U R  V R  b R  f O  n T  z T  { T   S  � U  � U  � W  � W  � W  � W  � Y ' � Y " � X  � [  � [  � [  & ] % + ] 9 \  > I �! @ ��g�� documentationf��up [COUNT] Select a calling stack frame. Select and print stack frames that called this one. An argument says how many frames up to go.�C,(�h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm I �  > ���C0�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm I � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm I �  , ���C>��"��G��4)i0V�����h�� ��-�.�,�3�#�� 4�5$��45$��"�� $��645 $��Q45 $��6445 >��"��G��4 545 45 4 5644545>��"��G��4 545 45 45 $�� 4 5"��6 6�����������g��repl  �g��count  �g��debug    �g��t  , @��g��filenamef��system/repl/command.scm _ % f , f  , f  = f  D e  I g  K g  U h  W h  [ e  c j  h i  m k  o k  p m  � n  � p  � p  � p  � r % � r  q   _ �  ��g�� documentationf��down [COUNT] Select a called stack frame. Select and print stack frames called by this one. An argument says how many frames down to go.�C,(��������h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm _ �  > ���C0�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm _ � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm _ �  , ���C>��"��G��4)i)0V��h�����-�.�,�3�#��4�5$��$��45$��"�� $��64455$��P445>��"��G�� 4545 45 45 $�� 4 5"��6 6 4545 45 45 $�� 4 5"��66�������������g��repl ��g��idx ��g��debug   ��g��t  2 F��g��filenamef��system/repl/command.scm t * z  + }  2 } 2 }  C }  J |  O ~  Q ~  T  `   d |  e   �  ' �  " �   �   �   �  * �  % �  � t � � ��g�� documentationf��lframe [IDX] Show a frame. Show the selected frame. With an argument, select a frame by index, then show it.�C,(��������h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm t �  > ���C0)�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm t � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm t �  , ���C>��"��G��4)iM0�������h8������] 4�5$���44545566�������������g��repl  2�g��debug 2��g��filenamef��system/repl/command.scm     +   0  �  2 ��g�� documentationf��5procedure Print the procedure for the selected frame.�C,(�������h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm  �  > ���C0�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm  � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm  �  , ���C>��"��G��4)inm0� hP�����-�/���0���3�#��45�4�5$��45456 6���������g��repl  M�g��width  M�g��debug  ' M��g��filenamef��system/repl/command.scm    0 !  F   K  �  M g��widthS ���g�� documentationf��Qlocals Show local variables. Show locally-bound variables in the selected frame.�C,(������h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm  �  > ���C0�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm  � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm  �  , ���C>��"��G��4)i0�������h@���3��] 4�5$��$4455$�� 45"��66����+������g��repl  <�g��debug <��g��filenamef��system/repl/command.scm       &   3  2 5   :  �  < ��g�� documentationf��yerror-message Show error message. Display the message associated with the error that started the current debugging REPL.�C,(��������h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm  �  > ���C0�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm  � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm  �  , ���C>��"��G��4)i530� �h@���~��]4�4�5545$��45456 6v������g��repl  @�g��form  @�g��proc   @�g��idx  & 8��g��filenamef��system/repl/command.scm                     &   -   0  * 8  <   @  �  @ ��g�� documentationf��abreak PROCEDURE Break on calls to PROCEDURE. Starts a recursive prompt when PROCEDURE is called.�C0��h��� ��]3$��$��$��K4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������g�� form-name  ��g��key  ��g��args   ��g��vx   ��g��vy   ��g��vx  ��g��vy  ��g��vx  1 r�g��vy  1 r�� g��filenamef��system/repl/command.scm  �  � ��g��nameg��handle-read-error�C,Z�h0���^���-��.�,�3��#��45��44L�55�45�6��V�������g��port .��g��filenamef��system/repl/command.scm  � . ���C�������h���J���]�L�O�6�B�������g��filenamef��system/repl/command.scm  �   ���C6�������h���m���-�1�3�L��6�����e�������g��k �g��args ��g��filenamef��system/repl/command.scm  �  ���C(�����h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm  �  > ���C��h���m���-�1�3�L��6������e�������g��k �g��args ��g��filenamef��system/repl/command.scm  �  ���C� �������hP������]45�U��64�O�O�54�4O�5>��XCXFG�C����������g��repl  M�g��handle-read-error  M�g��form  $ B�g��k  F M��g��filenamef��system/repl/command.scm  �  M ���C>��"��G��4)i0����h8�����]$�� 45"��45456�����������g��repl  3�g��file  3�g��line   3�g��file   3�g��idx  ! 3��g��filenamef��system/repl/command.scm        !       !   (   +  & 3  �  3 ��g�� documentationf��break-at-source FILE LINE Break when control reaches the given source location. Starts a recursive prompt when control reaches line LINE of file FILE. Note that the given source location must be inside a procedure.�C,(�h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm  �  > ���C0�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm  � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm  �  , ���C>��"��G��,��h������]L��44�556����{�������g��frame  ��g��filenamef��system/repl/command.scm             �   ���C��h���[���]�O�C������S�������g��k  ��g��filenamef��system/repl/command.scm  �  ���C0, M������h���d���]L��6������\�������g��x  ��g��filenamef��system/repl/command.scm    '�  ���C4A�������h���S��]4>�� G��4L>��"��G��4�5(��4>��"��G��"��,4>��"��G��4 L�O�>��"��G��4 4  5 54 L56�����K������g��from ��g��stack ��g��vals  0 ~��g��filenamef��system/repl/command.scm           !  *   0  8  9   >   C   P   U   Z   c     �   �  ) �   �  > �  �   �  �  � ���C��h0������]45�U���4�O�>���XCXFG@���������g��repl  .�g��msg  .�g��handler   .�g��args  # .��g��filenamef��system/repl/command.scm    �  . ��g��nameg��repl-pop-continuation-resumer�CR4)i0<� ��h`���\��]4�5$��G4�445455544545>��"��G�� 6 6�T������g��repl  _�g��debug _�g��handler  / X��g��filenamef��system/repl/command.scm          " -   /   /   2   V  X   ]  �  _ ��g�� documentationf��ifinish Run until the current frame finishes. Resume execution, breaking when the current frame finishes.�C,(�������h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm  �  > ���C0�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm  � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm  �  , ���C>��"��G��,�����h���q���]L�4�56���i�������g��frame  ��g��filenamef��system/repl/command.scm       �  ���C����h���[���]�O�C������S�������g��k  ��g��filenamef��system/repl/command.scm  �  ���C04A� ��h@������]45�4L�>��"��G��4455 4 � L�56����������g��stack =��g��filenamef��system/repl/command.scm              !   $   (  ' *   ,  < .   1   =  �  = ���C�h0������]45�U���4�O�>���XCXFG@�����������g��msg  ,�g��handler  ,�g��args  ! ,��g��filenamef��system/repl/command.scm    �  , ��g��nameg��repl-next-resumer�CR4)i0<� ���hh���d��]4�5$��K4454554454545 >��"��G��  6 6�����\������g��repl  c�g��debug c�g��msg  ( \��g��filenamef��system/repl/command.scm       (  (   +   =  & N   Z  \   a  �  c ��g�� documentationf��ustep Step until control reaches a different source location. Step until control reaches a different source location.�C,(�������h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm  �  > ���C0�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm  � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm  �  , ���C>��"��G��4)i0<� hh���k��]4�5$��K4454554454545 >��"��G��  6 6�����c������g��repl  c�g��debug c�g��msg  ( \��g��filenamef��system/repl/command.scm       (  (   +   =  & N   Z  \   a  �  c ��g�� documentationf��|step-instruction Step until control reaches a different instruction. Step until control reaches a different VM instruction.�C,(��������h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm  �  > ���C0�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm  � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm  �  , ���C>��"��G��4)i0<� hh�����]4�5$��K4454554454545 >��"��G��  6 6�����������g��repl  c�g��debug c�g��msg  ( \��g��filenamef��system/repl/command.scm       (  (   +   =  & N   Z  \   a  �  c ��g�� documentationf��next Step until control reaches a different source location in the current frame. Step until control reaches a different source location in the current frame.�C,(�����h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm  �  > ���C0�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm  � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm  �  , ���C>��"��G��4)i0<� hh�����]4�5$��K4454554454545 >��"��G��  6 6�����������g��repl  c�g��debug c�g��msg  ( \��g��filenamef��system/repl/command.scm �      (  (   +   =  & N   Z  \   a � �  c ��g�� documentationf��next-instruction Step until control reaches a different instruction in the current frame. Step until control reaches a different VM instruction in the current frame.�C,(������h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm � �  > ���C0�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm � � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm � �  , ���C>��"��G��4)i530� �h@�����]4�4�5545$��45456 6������g��repl  @�g��form  @�g��proc   @�g��idx  & 8��g��filenamef��system/repl/command.scm                     &   -   0  * 8  <   @  �  @ ��g�� documentationf��tracepoint PROCEDURE Add a tracepoint to PROCEDURE. A tracepoint will print out the procedure and its arguments, when it is called, and its return value(s) when it returns.�C0������h��� ��]3$��$��$��K4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������g�� form-name  ��g��key  ��g��args   ��g��vx   ��g��vy   ��g��vx  ��g��vy  ��g��vx  1 r�g��vy  1 r�� g��filenamef��system/repl/command.scm  �  � ��g��nameg��handle-read-error�C,Z�h0���^���-��.�,�3��#��45��44L�55�45�6��V�������g��port .��g��filenamef��system/repl/command.scm  � . ���C�������h���J���]�L�O�6�B�������g��filenamef��system/repl/command.scm  �   ���C6�������h���m���-�1�3�L��6�����e�������g��k �g��args ��g��filenamef��system/repl/command.scm  �  ���C(�����h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm  �  > ���C��h���m���-�1�3�L��6������e�������g��k �g��args ��g��filenamef��system/repl/command.scm  �  ���C� �������hP������]45�U��64�O�O�54�4O�5>��XCXFG�C����������g��repl  M�g��handle-read-error  M�g��form  $ B�g��k  F M��g��filenamef��system/repl/command.scm  �  M ���C>��"��G��4)i�0 0�����h(������]�4�54�5$��"��6����������g��idx  %��g��filenamef��system/repl/command.scm        !  !   ! 4 # ! 7 %  �  % ���C�h ���3��] 45�(��66��+������g��repl  �g��traps  ��g��filenamef��system/repl/command.scm                   �   ��g�� documentationf��xtraps Show the set of currently attached traps. Show the set of currently attached traps (breakpoints and tracepoints).�C,(��������h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm  �  > ���C0�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm  � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm  �  , ���C>��"��G��4)i��������h ������]45$��66������������g��repl  �g��idx  ��g��filenamef��system/repl/command.scm $  ) )   +   *  * �   ��g�� documentationf��)delete IDX Delete a trap. Delete a trap.�C,(�h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm $ �  > ���C0�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm $ � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm $ �  , ���C>��"��G��4)i��������h ������]45$��66������������g��repl  �g��idx  ��g��filenamef��system/repl/command.scm -  2 2   4   3  3 �   ��g�� documentationf��,disable IDX Disable a trap. Disable a trap.�C,(������h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm - �  > ���C0�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm - � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm - �  , ���C>��"��G��4)i��������h ������]45$��66������������g��repl  �g��idx  ��g��filenamef��system/repl/command.scm 6  ; ;   =   <  < �   ��g�� documentationf��)enable IDX Enable a trap. Enable a trap.�C,(�h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm 6 �  > ���C0�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm 6 � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm 6 �  , ���C>��"��G��4)i 0��h0������] 4�5$��454566������������g��repl  +�g��debug +��g��filenamef��system/repl/command.scm ? $ D  ) ? �  + ��g�� documentationf��Eregisters Print registers. Print the registers of the current frame.�C,(��������h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm ? �  > ���C0�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm ? � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm ? �  , ���C>��"��G��4)i n0 ��h8�����-�.�,�3�#��4>��"��G��45�6�����������g��repl 3�g��x 3��g��filenamef��system/repl/command.scm F  L  , M - M 1 3 M � 3 ��g�� documentationf��pwidth [X] Set debug output width. Set the number of screen columns in the output from `backtrace' and `locals'.�C,(�����h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm F �  > ���C0 ����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm F � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm F �  , ���C>��"��G��4)iHl3 J��������h(�����] 44�4�55>��� G6���������g��repl  &�g��form  &�g��args   &��g��filenamef��system/repl/command.scm U  X   X  X 2  X   X  & Z �  & ��g�� documentationf��4inspect EXP Inspect the result(s) of evaluating EXP.�C0H�������h��� ��]3$��$��$��K4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������g�� form-name  ��g��key  ��g��args   ��g��vx   ��g��vy   ��g��vx  ��g��vy  ��g��vx  1 r�g��vy  1 r�� g��filenamef��system/repl/command.scm U �  � ��g��nameg��handle-read-error�C,Z�h0���^���-��.�,�3��#��45��44L�55�45�6��V�������g��port .��g��filenamef��system/repl/command.scm U � . ���C�������h���J���]�L�O�6�B�������g��filenamef��system/repl/command.scm U �   ���C6�������h���m���-�1�3�L��6�����e�������g��k �g��args ��g��filenamef��system/repl/command.scm U �  ���C(�����h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm U �  > ���C��h���m���-�1�3�L��6������e�������g��k �g��args ��g��filenamef��system/repl/command.scm U �  ���C� �������hP������]45�U��64�O�O�54�4O�5>��XCXFG�C����������g��repl  M�g��handle-read-error  M�g��form  $ B�g��k  F M��g��filenamef��system/repl/command.scm U �  M ���C>��"��G��4)iBl3 \]D��������h ���m���]4�>��"��G���6����e�������g��x  ��g��filenamef��system/repl/command.scm b   c  d �   ���C��������h(��� ��] 44�4�55>��� G6��������g��repl  &�g��form  &�g��args   &��g��filenamef��system/repl/command.scm \  _   _  _ 2  _   _  & a �  & ��g�� documentationf��>pretty-print EXP Pretty-print the result(s) of evaluating EXP.�C0B�����h��� ��]3$��$��$��K4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������g�� form-name  ��g��key  ��g��args   ��g��vx   ��g��vy   ��g��vx  ��g��vy  ��g��vx  1 r�g��vy  1 r�� g��filenamef��system/repl/command.scm \ �  � ��g��nameg��handle-read-error�C,Z�h0���^���-��.�,�3��#��45��44L�55�45�6��V�������g��port .��g��filenamef��system/repl/command.scm \ � . ���C�������h���J���]�L�O�6�B�������g��filenamef��system/repl/command.scm \ �   ���C6�������h���m���-�1�3�L��6�����e�������g��k �g��args ��g��filenamef��system/repl/command.scm \ �  ���C(�����h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm \ �  > ���C��h���m���-�1�3�L��6������e�������g��k �g��args ��g��filenamef��system/repl/command.scm \ �  ���C� �������hP������]45�U��64�O�O�54�4O�5>��XCXFG�C����������g��repl  M�g��handle-read-error  M�g��form  $ B�g��k  F M��g��filenamef��system/repl/command.scm \ �  M ���C>��"��G��4)i��������h������]6����������g��repl  ��g��filenamef��system/repl/command.scm l  o �   ��g�� documentationf��gc Garbage collection.�C,(�h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm l �  > ���C0�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm l � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm l �  , ���C>��"��G��4)i   !"#$%&'()*+,-.V�&���h��;��]a45�45�4�54�545454 >��"��G��4 >���"��G��4 54 54 >��"��G��4>��"��G��4 >���"��G��45454 >��"��G��4>��"��G��4 >���"��G��45454 >��"��G��4>��"��G��4 >���"��G��4545454545454545    4  >��"��G��4!>��"��G��4">��"��G��4#  >��"��G��4$  >��"��G��4 >���"��G��    44%5�>��"��G��4%5�6����3������g��repl  |�g��this-tms  |�g��this-gcs   |�g��last-tms   |�g��last-gcs   |�g�� this-times  4 g�g�� last-times  4 g�g�� this-heap  y ��g�� this-free  y ��g�� this-alloc  �  �g�� last-alloc  �  �g�� this-total  2 x�g�� last-total  2 x�g�� this-utime   V�g�� last-utime   V�g�� this-stime   V�g�� last-stime   V�g�� this-cutime  V�g�� last-cutime  V�g�� this-cstime  V�g�� last-cstime  V��g��filenamef��system/repl/command.scm q  t   u  v   w   t  # y  ) y * + y  , z  2 z * 4 z  4 y  9 {  = {  D { > I {  R |  h ~  n ~ ) p ~  q   w  * y   y ~  ~   �   �  ) �  3 �   �   �   �   �  @ �   �   �   �  ) �   �   �  ) �   �   �   �   �  - �  4 �   �   �   �  >       !   '  ) )   *   0  ) 2   2   7   ;   =  + ?  2 D   M   Q   Z   c   y                                   0   7                                     &   /   W   |  �c  | ��g�� documentationf��statistics Display statistics.�C,(��������h@���|���]445�5�"��%4�545$��6""��t�������g��port >�g��out  7�g��x   7��g��filenamef��system/repl/command.scm q �  > ���C0�����h������-�1�3�$��$��$��J4�>��"��G��445�>��"��G��"��4�>��"��G��"��4�>��"��G��"��4�>��"��G��6��������������g��k ��g��args ��g��vx   ��g��vy   ��g��vx  ' ��g��vy  ' ��g��vx  8 x�g��vy  8 x��g��filenamef��system/repl/command.scm q � � ���C�h0���k���] 45�U��4��45>��XCXFG�C����c�������g��repl  ,�g��k % ,��g��filenamef��system/repl/command.scm q �  , ���C>��"��G��0/0�h0�����] 4$��"��5�6�������������g��title  )�g��flag  )�g��field1   )�g��field2   )�g��unit   )�g��fmt   )��g��filenamef��system/repl/command.scm         8   A   D      )  �  ) ��g��nameg�� display-stat�CR������h������]�6��������g��title  �g��field1  �g��field2   ��g��filenamef��system/repl/command.scm   '   �   ��g��nameg��display-stat-title�CR������h������]�6������������g��title  �g��flag  �g��this   �g��last   �g��unit   ��g��filenamef��system/repl/command.scm      �   ��g��nameg��display-diff-stat�CR012k3�h@���8��] �445544556�������0������g��title  9�g��this  9�g��last   9�g��num  #��g��filenamef��system/repl/command.scm                 (      )   *   1  ( 3   5   7  : 9  �  9 ��g��nameg��display-time-stat�C%R40156�������h`�����]� $��"��45 $��"��456�����������g��title  [�g�� this-time  [�g�� this-clock   [�g�� last-time   [�g�� last-clock   [�g��time   9�g��clock   9��g��filenamef��system/repl/command.scm      .             $   )  % .  . 0  < 1  . 3   =   A   C   H   M  % R  . T  < U  . W   Y  , [  �  [ ��g��nameg��display-mips-stat�C7RC����;������g��m  0��g��filenamef��system/repl/command.scm   2 3  5 2 7 H  : G � J _ K ` M  i M  N  O = P  Q  R L T  W  Z o ]  a a h / k H s O |  �  �  �  �  � ! � .q % 5 > : D >Q J B P G U O ` U p Y z _Y  e9  i  o)  t  |A  ������i  ������  ������  ������  ������n  ������o  ������b  ������  ������2  ������  ������ƒ < ������i I ������ӹ _ ������ڑ t ������)  ������  ������  ������  ������J  �����  �����  �����  �����  �����  �����  �����A � �����!  �����*r  �����0I $ �����4 - �����9 6 �����> ? �����B F �����G U �����OJ \ �����W l �����[ q �����i  �����j  �����k  �����ml  �����o  �W �����o ���C6����������������������������������������������������������������������������2.0/ccache/system/repl/repl.go����������������������������������������������������������������������0000644�����������������00000026343�15146341264�0012046 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0,������]��4�������h" ������]� g��guile � g��define-module* � � g��system g��repl � g��filenameS f��system/repl/repl.scm g��importsS g��base g��syntax   � � g��pmatch  � � g��compile  � � g��language  � � g��vm � � g��error-handling � � g��common � ! � "g��command #"� $#� %g��ice-9 &g��control '%&� ('� )!$(�  *g��exportsS +g�� start-repl ,g��run-repl -+,� .g��set-current-module /.� 0.� 1g�� read-char 2g�� eof-object? 3g��read-scheme-line-comment 4g��read 5g��read-scheme-datum-comment 6g�� language-name 7g��scheme 8g�� peek-char 9g�� unread-char :g�� read-comment ;g��meta <g��meta-command-token =g��current-input-port >g��with-input-from-port ?g��flush-leading-whitespace @g��language-reader Ag�� meta-reader Bg�� char-ready? Cg��flush-all-input Dg��catch Eg�� repl-reader Fg�� repl-prompt Gg�� repl-language Hg��current-module Ig��quit Jg��throw Kg��format Lg��current-output-port Mf��While reading expression:  Ng��print-exception Og��prompting-meta-read Pg��debugS QP  RQ� Sg��current-language Tg�� start-repl* Ug�� parameter? VU� WU� Xg�� scm-error Yg��wrong-type-arg Zf�� parameterize [f��Not a parameter: ~S \g�� run-repl* ]g�� make-repl ^g��make-syntax-transformer _^� `^� ag��abort-on-error bg��macro cg�� $sc-dispatch dc� ec� fg��any gfff� hg�� syntax-object ig��top ji� kg��ribcage lg��dummy mg��string ng��exp olmn� pg��m-1e9e6487f-43 qpi� rqjj� sf��l-1e9e6487f-48 tf��l-1e9e6487f-49 uf��l-1e9e6487f-4a vstu� wkorv� xk� yg��x zy� {q� |f��l-1e9e6487f-45 }|� ~kz{}� jwx~� �g��hygiene �� �hD� �h� �g��lambda �h� �g��key �h� �g��args �h� � �hK� �f�� While ~A:~% �h� �hN� �hL� �� �h� �� �g��abort �h� �� �� �g��syntax-violation �� �� �f��-source expression failed to match any pattern �g��default-prompt-tag �g�� %start-stack �� �� �'� �'� �g�� *repl-stack* �g�� repl-welcome �g�� meta-command �f��While executing meta-command:~% �g��newline �g��flush-to-newline �g��call-with-error-handling �g��repl-prepare-eval-thunk �g�� repl-parse �f��parsing expression �f��compiling expression �g��run-hook �g��before-eval-hook �g��on-errorS �g��repl-option-ref �g��on-error �g��for-each �g�� repl-print �g�� trap-handlerS �g��disabled �g��char-whitespace? �g��char=?C�5�h�����]4   )*-5�40�>��"��G���12����h8������]"��*4�545$��C $��C""�����������g��port  4�g��ch 0�g��t   0��g��filenamef��system/repl/repl.scm )  *   +  +   ,  ,  & - * ,  + - 0 . 0 * �  4 ��g��nameg��read-scheme-line-comment�C3R4���h������]�6�������g��port  ��g��filenamef��system/repl/repl.scm 0  1 �   ��g��nameg��read-scheme-datum-comment�C5R6713859����h�����] 4�5&��;$��&4>��"��G��4>��"��G��C#$��`4>��"��G��45;$��&4>��"��G��4>��"��G��C4#>��"��G��CCC����� ������g��lang  ��g��port  ��g��ch   ��g��key  ` ���g��filenamef��system/repl/repl.scm 4  5 5 !  5   6   8 + 9 G 6  H < Z =  ` = l ? ~ @ � G �  � ��g��nameg�� read-comment�C:R;"<R=>?21<:@����hX������]45��4�5$��6��,$��4>���"��G��C4LL�5$��C4L5LL�6�������������g��ch  R��g��filenamef��system/repl/repl.scm W   X   X  Y   Y  Z   [  ! Y " \  5 ^  C Y F `  R ` �  R ���C�����h0���k���-��.�,�3��#��45���L�L�O�6������c�������g��port *��g��filenamef��system/repl/repl.scm U   U  * V � * ���C��h������]�O�C����z�������g��lang  �g��env  ��g��filenamef��system/repl/repl.scm T �  ��g��nameg�� meta-reader�CARB281C�����h8������]�45�$��$445�5$��C4>���"��G��6�C��������������g��filenamef��system/repl/repl.scm b  c c  d   d   d   c   f  / g �  1 ��g��nameg��flush-all-input�CCRDEF�������h���O���]�L�6G�������g��filenamef��system/repl/repl.scm s   s �   ���CAGH��������h ���o���]�L�O�44L�545�56��g�������g��filenamef��system/repl/repl.scm r  t   t  t 5  t   s �   ���CIJKLMNC�������h`������-�1�3��$���@445�>��"��G��445��>��"��G��4>���"��G��C����������g��key ]�g��args ]��g��filenamef��system/repl/repl.scm u   v   x  z  z  $ z ' ) z 2 { 5 {  C { L | � ] ���C�h������]�O�6y�������g��repl  ��g��filenamef��system/repl/repl.scm p  q �   ��g��nameg��prompting-meta-read�CORRSTO��������h8������-��/����0���3��#��45��#���6������������g��lang  3�g��debug  3��g��filenamef��system/repl/repl.scm �  � & 3 � �  3 g��debugS ���g��nameg�� start-repl�C+RSWXYZ[\]� �hX������] 45$��"��4�>��"��G�� 4 �5Y44�5>��ZCZF�������g��lang  X�g��debug  X�g��prompting-meta-read   X�g��t-1e9e6487f-3e   X��g��filenamef��system/repl/repl.scm �  �  B �  E �  T � �  X ��g��nameg�� start-repl*�CTR4`abeg�h(���R���]���C��J�������g��dummy  &�g��string  &�g��exp   &��  & ���C�������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��system/repl/repl.scm � �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��stringg��exp���C5aR\O��h���x���]�6������p�������g��repl  ��g��filenamef��system/repl/repl.scm � � �  ��g��nameg��run-repl�C,R����h���Q���]�L�6���I�������g��filenamef��system/repl/repl.scm � !  � 1�   ���C����h���I���]�L�O�6��A�������g��filenamef��system/repl/repl.scm  � !�   ���C�����h���Q���]�LL�6I�������g��filenamef��system/repl/repl.scm � /  � :�   ���C����h8������]45�U���4�O�>���XCXFG�O��"������������g��thunk  3�g��k  3�g��proc   3��g��filenamef��system/repl/repl.scm �   �  �  3 � �  3 ��g��nameg��with-stack-and-prompt�C<D�������h���Q���]�L�6I�������g��filenamef��system/repl/repl.scm �   � �   ���CIKNL�������h8������-�1�3��&��64>��"��G��45��6�������g��k 8�g��args 8��g��filenamef��system/repl/repl.scm �  �   �   �   �   � " " �  - � ( 8 � � 8 ���C2DIDD������h���Q���]�LL�6������I�������g��filenamef��system/repl/repl.scm � ' � )�  ���CKNL�������h@������-�1�3�4>��"��G��445��>��"��G��6�����w�������g��key <�g��args <��g��filenamef��system/repl/repl.scm � '  � 7  � '� < ���C������h ���Z���]�L4L�LO�56�������R�������g��filenamef��system/repl/repl.scm � $  � '  � &�   ���CKNL������h@������-�1�3�4>��"��G��445��>��"��G��6������������g��key <�g��args <��g��filenamef��system/repl/repl.scm � $  � '  � 4  � $� < ���Ch���Q���]�LL�6I�������g��filenamef��system/repl/repl.scm �  � "�   ���C�h���a���]L��6������Y�������g��v  ��g��filenamef��system/repl/repl.scm � " � $�  ���C����hx������]45�U��I4LLO�5�4L>��"��G��4�L�O� 4 L 5>�� X"�� G�� "�� G�  LO��6�������������g��thunk  O�g��k U _�g��l ` r��g��filenamef��system/repl/repl.scm �   �  � $  �  �  4 �  B � + H � A J � + O �  X �  _ � ) c �  r � �  r ���C�����h���t���-�1�3�6�l�������g��k �g��args ��g��filenamef��system/repl/repl.scm �   � �  ���C�h���Z���]�L�LLO�6���R�������g��filenamef��system/repl/repl.scm �   �   � �   ���C�h(����]O�Q�45�U��[$��"��Y[(��4�>��"��G��"���"��4�5$��"��&��4�O�>��"��G��"��j4 5$��%4 >���"��G��4 >��"��G��"��:4 >���"��G��4 �O�4�5>��"��G��4 >���"��G��"G"C Z"��XCXFG�C������g��repl  (�g��prompting-meta-read  (�g��with-stack-and-prompt  (�g��t  2�g��exp  ^ �g��k   (�g��status   (��g��filenamef��system/repl/repl.scm �  �  �  / � < 3 �  9 �  = �  > � W �  X �  ^ � d � h � u � � � � � � � � � � �  � � � � � � � �  � � / � �  � �  � � � �  �  �  ! � �  ( ��g��nameg�� run-repl*�C\R821?��������h@������]45��4�5$���C4�5$��4>���"��G��6��C��������������g��ch  9��g��filenamef��system/repl/repl.scm �  �  �  �  �   � " �  # � ! 6 � -�  9 ��g��nameg��flush-leading-whitespace�C?RB821������hX������]45�$��G45��4�5$��"��4�5$��#4>���"��G��4� 5$��C6�CC�����������g��ch  R��g��filenamef��system/repl/repl.scm �  �  �  �   �   �   � # � ( - �  . �  > �  J �  P � �  T ��g��nameg��flush-to-newline�CRC���������g��m  ,��g��filenamef��system/repl/repl.scm   g )  0  4  R !  R '  R   R u T m b d p b � �  � b �  �  � �   ���C6����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/system/repl/coop-server.go���������������������������������������������������������������0000644�����������������00000142472�15146341264�0013352 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0"������]�4��������hO^������]� g��guile � g��define-module* � � g��system g��repl g�� coop-server � g��filenameS f��system/repl/coop-server.scm g��importsS g��ice-9 g��match  � � g��receive  � � g��threads  � � g��q  � � g��srfi g��srfi-9 � � � g��selectS g�� start-repl* !g��prompting-meta-read " !� #"� $g��server %$� &g�� run-server* 'g��make-tcp-server-socket (g��add-open-socket! )g�� close-socket! *g��guard-against-http-request +&'()*� ,%+� -#,� .g��exportsS /g��spawn-coop-repl-server 0g��poll-coop-repl-server 1/0� 2g��set-current-module 32� 42� 5g��<coop-repl-server> 6g��!%%make-coop-repl-server-procedure 7g��make-syntax-transformer 87� 97� :g��%make-coop-repl-server ;g��macro <g�� $sc-dispatch =<� ><� ?g��_ @g��any A?@@� Bg�� syntax-object Cg��lambda Dg��m-6cff15a80cd23e5-5 Eg��top FDE� Gg��ribcage Hg��t-6cff15a80cd23e5-3 Ig��t-6cff15a80cd23e5-4 JHI� KFF� Lf��l-6cff15a80cd23e5-a Mf��l-6cff15a80cd23e5-b NLM� OGJKN� PG� Qg��x RQ� SF� Tf��l-6cff15a80cd23e5-7 UT� VGRSU� Wg��shift Xg�� proc-name Yg��args ZXY� [E� \[[� ]f��l-1e8ba8b5a-2ba ^f��l-1e8ba8b5a-2bb _]^� `GZ\_� ag��key bg��value cg��name dg��formals eg��body fabcde� g[[[[[� hf��l-1e8ba8b5a-2ad if��l-1e8ba8b5a-2ae jf��l-1e8ba8b5a-2af kf��l-1e8ba8b5a-2b0 lf��l-1e8ba8b5a-2b1 mhijkl� nGfgm� og��make-procedure-name po� q[� rf��l-1e8ba8b5a-29d sr� tGpqs� u[� vf��l-1e8ba8b5a-29c wv� xGRuw� yFOPVWPPPP`ntx�  zg��hygiene {z� |BCy{� }g��mutex ~[OPV� z� �B}~� �g��queue �B~� �� �g�� make-struct �g��m-6cff15a80cd23e5-1 �E� �g��t-1e8ba8b5a-38d �g��t-1e8ba8b5a-38c �g��t-1e8ba8b5a-38b �� �g��m-1e8ba8b5a-38e �E� �� �f��l-1e8ba8b5a-392 �f��l-1e8ba8b5a-393 �f��l-1e8ba8b5a-394 �� �G� �g�� ctor-args �� �f��l-1e8ba8b5a-37a �� �Gu� �g��ctor �g��field �� �f��l-1e8ba8b5a-376 �f��l-1e8ba8b5a-377 �� �G\� �g��form �g�� type-name �g��constructor-spec �g�� field-names �� �[[[[� �f��l-1e8ba8b5a-36b �f��l-1e8ba8b5a-36c �f��l-1e8ba8b5a-36d �f��l-1e8ba8b5a-36e �� �G� �g�� record-layout �g��functional-setters �g��setters �g��copier �g��getters �g�� constructor �g��getter-identifiers �g��field-identifiers �� �[[[[[[[[� �f��l-1e8ba8b5a-343 �f��l-1e8ba8b5a-341 �f��l-1e8ba8b5a-33f �f��l-1e8ba8b5a-33d �f��l-1e8ba8b5a-33b �f��l-1e8ba8b5a-339 �f��l-1e8ba8b5a-337 �f��l-1e8ba8b5a-335 �� �G� �f��l-1e8ba8b5a-334 �� �GRu� �OPVWPPPPP� �B{� �B5~� �B {� �� �|� �g��each-any �?Ȍ �g��syntax-violation �� �� �f��Wrong number of arguments �g�� identifier? �� �� �[PV� �B6� �� �� �f��-source expression failed to match any pattern �g��record-type-vtable �� �� �g��pwpw �g��default-record-printer �� �� �}� �g��set-struct-vtable-name! �� �� �g��vtable-offset-user �� �� �g��%coop-repl-server?-procedure �g��coop-repl-server? �?@� �g��m-6cff15a80cd23e5-14 �E� �g��t-6cff15a80cd23e5-13 �� �� �f��l-6cff15a80cd23e5-19 �� �G� �f��l-6cff15a80cd23e5-16 �� �GR� �PWPPPP`ntx�  �BC{� �g��obj �g��t-1e8ba8b5a-47e �g��t-1e8ba8b5a-478 �g��t-1e8ba8b5a-479 �g��t-1e8ba8b5a-47a �g��t-1e8ba8b5a-47d �g��t-1e8ba8b5a-47c �g��t-1e8ba8b5a-47b �� �g��m-1e8ba8b5a-47f �E� �� �f��l-1e8ba8b5a-483 f��l-1e8ba8b5a-484 f��l-1e8ba8b5a-485 f��l-1e8ba8b5a-486 f��l-1e8ba8b5a-487 f��l-1e8ba8b5a-488 f��l-1e8ba8b5a-489 �� G�  g�� copier-id   �  f��l-1e8ba8b5a-476   �  G u � g�� ctor-name � f��l-1e8ba8b5a-46e � Gu� � f��l-1e8ba8b5a-46c � Gu� g��layout � f��l-1e8ba8b5a-46a � Gu� g�� immutable? � f��l-1e8ba8b5a-468 �  Gu� !g�� field-count "!� #f��l-1e8ba8b5a-466 $#� %G"u$� &g�� getter-ids '&� (f��l-1e8ba8b5a-463 )(� *G'u)� +g�� field-ids ,+� -f��l-1e8ba8b5a-460 .-� /G,u.� 0g��predicate-name 1g�� field-spec 201� 3[[[[[[� 4f��l-1e8ba8b5a-453 5f��l-1e8ba8b5a-454 6f��l-1e8ba8b5a-455 7f��l-1e8ba8b5a-456 8f��l-1e8ba8b5a-457 9f��l-1e8ba8b5a-458 :456789� ;G23:� <PWPPPPP PPPP P%P*P/;� =B<{� >=� ?g��and @B?<{� Ag��struct? BBA<{� CB=� Dg��eq? EBD<{� Fg�� struct-vtable GBF<{� HG=� I[P� JB5I� KEHJ� L@CK� M>L� N[P� OBN� Pg��throw-bad-struct QP� RP� Sg��coop-repl-server-mutex Tg��!%coop-repl-server-mutex-procedure Ug��free-id Vg�� %%on-error Wg��m-6cff15a80cd23e5-20 XWE� YX� Zf��l-6cff15a80cd23e5-22 [Z� \GRY[� ]XP\WPPPP`ntx�  ^BV]{� _U^� `_@� ag��%%type bg��t-1e8ba8b5a-3a5 cg��t-1e8ba8b5a-3a6 dg��t-1e8ba8b5a-3a7 eg��t-1e8ba8b5a-3a8 fg��t-1e8ba8b5a-3a9 gg��t-1e8ba8b5a-3aa hg��t-1e8ba8b5a-3ab ibcdefgh� jg��m-1e8ba8b5a-3ac kjE� lkkkkkkk� mf��l-1e8ba8b5a-3b0 nf��l-1e8ba8b5a-3b1 of��l-1e8ba8b5a-3b2 pf��l-1e8ba8b5a-3b3 qf��l-1e8ba8b5a-3b4 rf��l-1e8ba8b5a-3b5 sf��l-1e8ba8b5a-3b6 tmnopqrs� uGilt� vg��getter wg��index xvw� yf��l-1e8ba8b5a-3a3 zf��l-1e8ba8b5a-3a4 {yz� |Gx\{� }& � ~[[[� f��l-1e8ba8b5a-39e f��l-1e8ba8b5a-39f f��l-1e8ba8b5a-3a0 � G}~� P\WPuPPP|P� Ba{� U� ?`@� g��ck g��err g��s � XX� f��l-6cff15a80cd23e5-25 f��l-6cff15a80cd23e5-26 � G� XP\WPPPP`ntx�  B{� g��quote B{� [P\� B5� � � g��%%index B{� U� ?`@� f��l-6cff15a80cd23e5-2a f��l-6cff15a80cd23e5-2b � G� XP\WPPPP`ntx�  B{� B{� P\� B � � � g��%%copier B{� U� ?`@� f��l-6cff15a80cd23e5-2f f��l-6cff15a80cd23e5-30 � G� XP\WPPPP`ntx�  B{� B{� g��%%<coop-repl-server>-set-fields [P\� B� � � g��t-6cff15a80cd23e5-1f � f��l-6cff15a80cd23e5-34 � GY� XP\WPPPP`ntx�  BC{� P\WPuPPP|P� B{� � g��if B{� BD{� BF{� � [P\� B5� � g�� struct-ref B{� P\� B � � BP{� B{� BS� � � � � [P\� BT� g��coop-repl-server-queue g��!%coop-repl-server-queue-procedure g��m-6cff15a80cd23e5-3b E� � f��l-6cff15a80cd23e5-3d � GR� PWPPPP`ntx�  BV{� U� @� PWPuPPP|P� Ba{� U� ?@� � f��l-6cff15a80cd23e5-40 f��l-6cff15a80cd23e5-41 � G� PWPPPP`ntx�  B{� B{� [P� B5� � � B{� U� ?@� f��l-6cff15a80cd23e5-45 f��l-6cff15a80cd23e5-46 � G� PWPPPP`ntx�  B{� B{� P� B � �� �� B{� U� ?@� f��l-6cff15a80cd23e5-4a f��l-6cff15a80cd23e5-4b � G�  PWPPPP`ntx�   B {�  B {�  [P�  B �   � � g��t-6cff15a80cd23e5-3a � f��l-6cff15a80cd23e5-4f � G� PWPPPP`ntx�  BC{� PWPuPPP|P� B{� � B{� BD{� BF{� � [P� B5�  � !B{� "P� #B "� $!#� %BP{� &B{� 'B� (&'� )%(� * $)� +*� ,[P� -B,� .g��each /@@� 0./� 1@0 2@1 3@2 4g�� %%set-fields 5g��dummy 6g��check? 7g��expr 856v7� 9g��m-6cff15a80cd23e5-56 :9E� ;:� <f��l-6cff15a80cd23e5-5b =f��l-6cff15a80cd23e5-5c >f��l-6cff15a80cd23e5-5d ?f��l-6cff15a80cd23e5-5e @f��l-6cff15a80cd23e5-5f A<=>?@� BG8;A� C:� Df��l-6cff15a80cd23e5-58 ED� FGRCE� Gg��t-1e8ba8b5a-3c4 Hg��t-1e8ba8b5a-3c6 Ig��t-1e8ba8b5a-3c5 JGHI� Kg��m-1e8ba8b5a-3c7 LKE� MLLL� Nf��l-1e8ba8b5a-3cb Of��l-1e8ba8b5a-3cc Pf��l-1e8ba8b5a-3cd QNOP� RGJMQ� Sf��l-1e8ba8b5a-3c1 Tf��l-1e8ba8b5a-3c2 Uf��l-1e8ba8b5a-3c3 VSTU� WG}~V� XBPFWPRPPPW�  YB4X{� Z[BPF� [B5Z� \BSZ� ]BZ� ^\]� _g��map `_� a_� bg��list cg�� make-mutex dg��make-q eg��make-coop-repl-server fg�� lock-mutex gf� hf� ig�� unlock-mutex ji� ki� lg��enq! mg��coop-repl-server-eval ng�� <coop-repl> og��%%make-coop-repl-procedure pg��%make-coop-repl q?@@@@� rg��m-6cff15a80cd23e5-91 srE� tg��t-6cff15a80cd23e5-8d ug��t-6cff15a80cd23e5-8e vg��t-6cff15a80cd23e5-8f wg��t-6cff15a80cd23e5-90 xtuvw� yssss� zf��l-6cff15a80cd23e5-96 {f��l-6cff15a80cd23e5-97 |f��l-6cff15a80cd23e5-98 }f��l-6cff15a80cd23e5-99 ~z{|}� Gxy~� s� f��l-6cff15a80cd23e5-93 � GR� sPWPPPP`ntx�  BC{� [P� B}� g��condvar B� g��thunk B� g��cont B� � g��m-6cff15a80cd23e5-8b E� PWPPPPP� B{� Bn� B {� � � [P� Bo� g��pwpwpwpw }� g��%coop-repl?-procedure g�� coop-repl? g��m-6cff15a80cd23e5-a4 E� g��t-6cff15a80cd23e5-a3 � � f��l-6cff15a80cd23e5-a9 � G� f��l-6cff15a80cd23e5-a6 � GR� PWPPPP`ntx�  BC{� PWPPPPP PPPP P%P*P/;� B{� � B?{� BA{� � BD{� BF{� � [P� Bn� � � � [P� B� g��coop-repl-mutex g��%coop-repl-mutex-procedure g��m-6cff15a80cd23e5-b0 E� � f��l-6cff15a80cd23e5-b2 � GR� PWPPPP`ntx�  BV{� U� @� PWPuPPP|P� Ba{� U� ?@� � f��l-6cff15a80cd23e5-b5 f��l-6cff15a80cd23e5-b6 � G� PWPPPP`ntx�  B{� B{� [P� Bn� � � B{� U� ?@� f��l-6cff15a80cd23e5-ba f��l-6cff15a80cd23e5-bb � G� PWPPPP`ntx�  B{� B{� P� B � � � B{� U� ?@� f��l-6cff15a80cd23e5-bf f��l-6cff15a80cd23e5-c0 � G� PWPPPP`ntx�  B{� B{� g��%%<coop-repl>-set-fields [P� B� � � g��t-6cff15a80cd23e5-af � f��l-6cff15a80cd23e5-c4 � G� PWPPPP`ntx�  BC{� PWPuPPP|P� B{� � B{� BD{� BF{� �� [P� Bn� �� B{� P� B � � BP{�  B{�  B�    �   �   �  � [P� B� g��coop-repl-condvar g��%coop-repl-condvar-procedure g��m-6cff15a80cd23e5-cb E� � f��l-6cff15a80cd23e5-cd � GR� PWPPPP`ntx�  BV{� U� @� PWPuPPP|P� Ba{� U�  ?@� !� "f��l-6cff15a80cd23e5-d0 #f��l-6cff15a80cd23e5-d1 $"#� %G!$� &%PWPPPP`ntx�  'B&{� (B&{� )[%P� *Bn)� +(*� ,+� -B{� .U-� /?.@� 0f��l-6cff15a80cd23e5-d5 1f��l-6cff15a80cd23e5-d6 201� 3G!2� 43PWPPPP`ntx�  5B4{� 6B4{� 73P� 8B 7� 968� :9� ;B{� <U;� =?<@� >f��l-6cff15a80cd23e5-da ?f��l-6cff15a80cd23e5-db @>?� AG!@� BAPWPPPP`ntx�  CBB{� DBB{� E[AP� FBE� GDF� HG� Ig��t-6cff15a80cd23e5-ca JI� Kf��l-6cff15a80cd23e5-df LK� MGJL� NMPWPPPP`ntx�  OBCN{� PMPWPuPPP|P� QBP{� RQ� SBP{� TBDP{� UBFP{� VUQ� W[MP� XBnW� YTVX� ZBP{� [MP� \B [� ]ZQ\� ^BPP{� _BP{� `BW� a_`� b^Qa� cSY]b� dORc� e[P� fBe� gg��coop-repl-read-thunk hg��%coop-repl-read-thunk-procedure ig��m-6cff15a80cd23e5-e6 jiE� kj� lf��l-6cff15a80cd23e5-e8 ml� nGRkm� ojPnWPPPP`ntx�  pBVo{� qUp� rq@� sPnWPuPPP|P� tBas{� uUt� v?ru@� wjj� xf��l-6cff15a80cd23e5-eb yf��l-6cff15a80cd23e5-ec zxy� {Gwz� |j{PnWPPPP`ntx�  }B|{� ~B|{� [{Pn� Bn� ~� � Bs{� U� ?r@� f��l-6cff15a80cd23e5-f0 f��l-6cff15a80cd23e5-f1 � Gw� jPnWPPPP`ntx�  B{� B{� Pn� B � � � Bs{� U� ?r@� f��l-6cff15a80cd23e5-f5 f��l-6cff15a80cd23e5-f6 � Gw� jPnWPPPP`ntx�  B{� B{� [Pn� B� � � g��t-6cff15a80cd23e5-e5 � f��l-6cff15a80cd23e5-fa � Gk� jPnWPPPP`ntx�  BC{� PnWPuPPP|P� B{� � B{� BD{� BF{� � [Pn� Bn� � B{� Pn� B � � BP{� B{� Bg� � � � � [Pn� Bh� g��coop-repl-cont g��%coop-repl-cont-procedure g��m-6cff15a80cd23e5-101 E� � f��l-6cff15a80cd23e5-103 � GR� PWPPPP`ntx�  BV{� U� @� PWPuPPP|P� Ba{� U� ?@� � f��l-6cff15a80cd23e5-106 f��l-6cff15a80cd23e5-107 � G� PWPPPP`ntx�  B{� B{� [P� Bn� � � B{� U� ?@� f��l-6cff15a80cd23e5-10b f��l-6cff15a80cd23e5-10c � G� PWPPPP`ntx�  B{� B{� P� B � � � B{� U� ?@� f��l-6cff15a80cd23e5-110 f��l-6cff15a80cd23e5-111 � G� PWPPPP`ntx�  B{� B{� [P� B� � � g��t-6cff15a80cd23e5-100 � f��l-6cff15a80cd23e5-115 � G� PWPPPP`ntx�  BC{� PWPuPPP|P� B{� � B{� �BD{� BF{� � [P� Bn� �� B{� P� B �  �  BP{�  B{�  B�    �   �  � � [P� B� g��m-6cff15a80cd23e5-11c E� � f��l-6cff15a80cd23e5-121 f��l-6cff15a80cd23e5-122 f��l-6cff15a80cd23e5-123 f��l-6cff15a80cd23e5-124 f��l-6cff15a80cd23e5-125 � G8� � f��l-6cff15a80cd23e5-11e �  GR� !P WPRPPPW�  "B4!{� #[P � $Bn#� %B#� &B#� 'Bg#� (B#� )%&'(� *g��set-coop-repl-read-thunk! +g��$%set-coop-repl-read-thunk!-procedure ,g��m-6cff15a80cd23e5-130 -,E� .g��t-6cff15a80cd23e5-12e /g��t-6cff15a80cd23e5-12f 0./� 1--� 2f��l-6cff15a80cd23e5-135 3f��l-6cff15a80cd23e5-136 423� 5G014� 6-� 7f��l-6cff15a80cd23e5-132 87� 9GR68� :-5P9WPPPP`ntx�  ;BC:{� <g��t-1e8ba8b5a-3e6 =g��t-1e8ba8b5a-3e7 ><=� ?g��m-1e8ba8b5a-3e8 @?E� A@@� Bf��l-1e8ba8b5a-3ec Cf��l-1e8ba8b5a-3ed DBC� EG>AD� Fg��setter GcvF� Hf��l-1e8ba8b5a-3e0 If��l-1e8ba8b5a-3e1 Jf��l-1e8ba8b5a-3e2 KHIJ� LGG~K� M1w� Nf��l-1e8ba8b5a-3d7 Of��l-1e8ba8b5a-3d8 PNO� QGM\P� Rg�� field-specs SR� Tf��l-1e8ba8b5a-3d3 Uf��l-1e8ba8b5a-3d4 VTU� WGS\V� X5P9WPELPQPW� YBX{� Zg��val [BZX{� \Y[� ]BX{� ^BDX{� _BFX{� `_Y� a[5P9� bBna� c^`b� dg�� struct-set! eBdX{� f5P9� gB f� heYg[� iBPX{� jBX{� kB*a� ljk� miYl� n]chm� o;\n� p[P9� qB+p� rg��set-coop-repl-cont! sg��%set-coop-repl-cont!-procedure tg��m-6cff15a80cd23e5-140 utE� vg��t-6cff15a80cd23e5-13e wg��t-6cff15a80cd23e5-13f xvw� yuu� zf��l-6cff15a80cd23e5-145 {f��l-6cff15a80cd23e5-146 |z{� }Gxy|� ~u� f��l-6cff15a80cd23e5-142 � GR~� u}PWPPPP`ntx�  BC{� }PWPELPQPW� B{� BZ{� � B{� BD{� BF{� � [}P� Bn� � Bd{� }P� B � � BP{� B{� Br� � � � � [P� Bs� g��make-condition-variable g��make-coop-repl g��wait-condition-variable g��error f��2coop-repl-read: condvar signaled, but thunk is #f! g��coop-repl-read g��coop-repl-prompt g��store-repl-cont g�� *repl-stack* g��current-module f��"coop-reader: read-thunk is not #f! g��signal-condition-variable g��make-coop-reader g��eval g�� reader-loop g��q-empty? g��deq! � � f��no matching pattern g��new-repl g��start-repl-client g��catch � � g��call-with-new-thread � � g��%thread-handler � � g��current-language g��start-coop-repl g��make-coop-client-proc g��run-coop-repl-server g�� close-fdes g��fileno g��with-continuation-barrier g��current-input-port g��current-output-port g��current-error-port g��current-warning-port g�� parameter? � � g�� scm-error g��wrong-type-arg f�� parameterize f��Not a parameter: ~S g��save-module-excursionC�5����h`����]4    -.15�44�>��"��G���5������h������]��C�����������g��mutex  �g��queue  ��g��filenamef��system/repl/coop-server.scm $ �  ��g��nameg��!%%make-coop-repl-server-procedure�C6R49:;>A�h���\���]��C����T�������g��t-6cff15a80cd23e5-3  �g��t-6cff15a80cd23e5-4  ��  ���C:��������h���^���]L�6����V�������g��a  ��g��filenamef��system/repl/coop-server.scm  $ �  ���C?��h���N���]�L�6F�������g��filenamef��system/repl/coop-server.scm  $ �   ���C����h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6���������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��system/repl/coop-server.scm $ �  n ���C5:R5ݨ��4�5>��"��G��� 6i��5R5������h������]�$���CC�������������g��obj  ��g��filenamef��system/repl/coop-server.scm $ �   ��g��nameg��%coop-repl-server?-procedure�CR49;>M��h���<���]��C������4�������g��t-6cff15a80cd23e5-13  ��  ���C��������h���^���]L�6����V�������g��a  ��g��filenamef��system/repl/coop-server.scm  $ �  ���C?��h���N���]�L�6F�������g��filenamef��system/repl/coop-server.scm  $ �   ���CO���h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6���������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��system/repl/coop-server.scm $ �  n ���C5R5RS��������h������]�&��� C�6�������g��s  ��g��filenamef��system/repl/coop-server.scm $ �   ��g��nameg��!%coop-repl-server-mutex-procedure�CTR49S;>�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�����h���<���]��C������4�������g��t-6cff15a80cd23e5-1f  ��  ���CS�������h���^���]L�6����V�������g��a  ��g��filenamef��system/repl/coop-server.scm  $ �  ���C?��h���N���]�L�6F�������g��filenamef��system/repl/coop-server.scm  $ �   ���C���h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/repl/coop-server.scm $ �  � ���C5SR5R���h������]�&��� C�6�������g��s  ��g��filenamef��system/repl/coop-server.scm $ �   ��g��nameg��!%coop-repl-server-queue-procedure�CR49;>�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C �h���:���]C�����2�������g��err  �g��s  ��  ���C+�����h���<���]��C������4�������g��t-6cff15a80cd23e5-3a  ��  ���C�������h���^���]L�6����V�������g��a  ��g��filenamef��system/repl/coop-server.scm  $ �  ���C?��h���N���]�L�6F�������g��filenamef��system/repl/coop-server.scm  $ �   ���C-���h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/repl/coop-server.scm $ �  � ���C5R49;>3Y[^ab������h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��system/repl/coop-server.scm $ �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5Rcd5�����h ������]45�45����C�������������g��mutex �g��queue ��g��filenamef��system/repl/coop-server.scm *  +   + ' + �   ��g��nameg��make-coop-repl-server�CeR5RSh�������h���N���]�L�6F�������g��filenamef��system/repl/coop-server.scm 0 �   ���Ck���h���N���]�L�6F�������g��filenamef��system/repl/coop-server.scm 0 �   ���Cl�h�����-�1�3��&��� "�� 4�5O�O�4O�>���"��G��V4�&��� "�� 4�5>��X4O�>���"��G��CX4O�>���"��G��F��������g�� coop-server ��g��opcode ��g��args  ��g��x  # ���g��filenamef��system/repl/coop-server.scm - 0  # 0  J 1  O 1 k 2 p 1  r 0 � �  ��g��nameg��coop-repl-server-evalg�� documentationf��Queue a new instruction with the symbolic name OPCODE and an arbitrary number of arguments, to be processed the next time COOP-SERVER is polled.�CmRn�h������]��C�������g��mutex  �g��condvar  �g��thunk   �g��cont   ��g��filenamef��system/repl/coop-server.scm 4 �   ��g��nameg��%%make-coop-repl-procedure�CoR49p;>q�����h������]��C�������g��t-6cff15a80cd23e5-8d  �g��t-6cff15a80cd23e5-8e  �g��t-6cff15a80cd23e5-8f   �g��t-6cff15a80cd23e5-90   ��   ���Cp�h���^���]L�6����V�������g��a  ��g��filenamef��system/repl/coop-server.scm  4 �  ���C?��h���N���]�L�6F�������g��filenamef��system/repl/coop-server.scm  4 �   ���C���h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6���������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��system/repl/coop-server.scm 4 �  n ���C5pRn��4�n>��"��G��� oi��nRn������h������]�$���CC������y�������g��obj  ��g��filenamef��system/repl/coop-server.scm 4 �   ��g��nameg��%coop-repl?-procedure�CR49;>�������h���<���]��C������4�������g��t-6cff15a80cd23e5-a3  ��  ���C�������h���^���]L�6����V�������g��a  ��g��filenamef��system/repl/coop-server.scm  4 �  ���C?��h���N���]�L�6F�������g��filenamef��system/repl/coop-server.scm  4 �   ���C���h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6���������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��system/repl/coop-server.scm 4 �  n ���C5RnR������h������]�&��� C�6|�������g��s  ��g��filenamef��system/repl/coop-server.scm 4 �   ��g��nameg��%coop-repl-mutex-procedure�CR49;>��������h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�����h���<���]��C������4�������g��t-6cff15a80cd23e5-af  ��  ���C�������h���^���]L�6����V�������g��a  ��g��filenamef��system/repl/coop-server.scm  4 �  ���C?��h���N���]�L�6F�������g��filenamef��system/repl/coop-server.scm  4 �   ���C���h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/repl/coop-server.scm 4 �  � ���C5RnR��h������]�&��� C�6~�������g��s  ��g��filenamef��system/repl/coop-server.scm 4 �   ��g��nameg��%coop-repl-condvar-procedure�CR49;> ',������h���:���]C�����2�������g��err  �g��s  ��  ���C/5:�h���:���]C�����2�������g��err  �g��s  ��  ���C=CH�h���:���]C�����2�������g��err  �g��s  ��  ���Cd�����h���<���]��C������4�������g��t-6cff15a80cd23e5-ca  ��  ���C�������h���^���]L�6����V�������g��a  ��g��filenamef��system/repl/coop-server.scm  4 �  ���C?��h���N���]�L�6F�������g��filenamef��system/repl/coop-server.scm  4 �   ���Cf���h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/repl/coop-server.scm 4 �  � ���C5RnRg��h ������]�&��� C�6��������������g��s  ��g��filenamef��system/repl/coop-server.scm 4 �   ��g��nameg��%coop-repl-read-thunk-procedure�ChR49g;>v}���h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�����h���<���]��C������4�������g��t-6cff15a80cd23e5-e5  ��  ���Cg�������h���^���]L�6����V�������g��a  ��g��filenamef��system/repl/coop-server.scm  4 �  ���C?��h���N���]�L�6F�������g��filenamef��system/repl/coop-server.scm  4 �   ���C���h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/repl/coop-server.scm 4 �  � ���C5gRnR��h ������]�&��� C�6�������{�������g��s  ��g��filenamef��system/repl/coop-server.scm 4 �   ��g��nameg��%coop-repl-cont-procedure�CR49;>�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�����h���=���]��C������5�������g��t-6cff15a80cd23e5-100  ��  ���C������h���^���]L�6����V�������g��a  ��g��filenamef��system/repl/coop-server.scm  4 �  ���C?��h���N���]�L�6F�������g��filenamef��system/repl/coop-server.scm  4 �   ���C���h������]�C����������   ���C��������h������]14�5$��@4�5$��@4�5$��@4�5$�� @4� 5$��  �O�@4� 5$��4 �O�?$��@�6�6������������g��x  ��g��tmp ��g��tmp  " ��g��tmp  9 ��g��tmp  P ��g��tmp  g ��g��tmp  � ���g��filenamef��system/repl/coop-server.scm 4 �  � ���C5R49;>3"$)ab������h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��system/repl/coop-server.scm 4 �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5RnR*����h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��system/repl/coop-server.scm 4 �   ��g��nameg��$%set-coop-repl-read-thunk!-procedure�C+R49*;>Ao�h���`���]��C����X�������g��t-6cff15a80cd23e5-12e  �g��t-6cff15a80cd23e5-12f  ��  ���C*���h���^���]L�6����V�������g��a  ��g��filenamef��system/repl/coop-server.scm  4 �  ���C?��h���N���]�L�6F�������g��filenamef��system/repl/coop-server.scm  4 �   ���Cq���h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6���������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��system/repl/coop-server.scm 4 �  n ���C5*RnRr������h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��system/repl/coop-server.scm 4 �   ��g��nameg��%set-coop-repl-cont!-procedure�CsR49r;>A�������h���`���]��C����X�������g��t-6cff15a80cd23e5-13e  �g��t-6cff15a80cd23e5-13f  ��  ���Cr���h���^���]L�6����V�������g��a  ��g��filenamef��system/repl/coop-server.scm  4 �  ���C?��h���N���]�L�6F�������g��filenamef��system/repl/coop-server.scm  4 �   ���C���h������]�C����������   ���C� �������hp������]4�5$��@4�5$�� �O�@4�5$��4�O�?$��@  �6  �6���������g��x  n�g��tmp n�g��tmp  " n�g��tmp  > n��g��filenamef��system/repl/coop-server.scm 4 �  n ���C5rRcn������h ������]45�45����C�����������g��mutex �g��condvar ��g��filenamef��system/repl/coop-server.scm <  =   = = �   ��g��nameg��make-coop-repl�CRnRh���h���N���]�L�6F�������g��filenamef��system/repl/coop-server.scm B �   ���Ck���h���N���]�L�6F�������g��filenamef��system/repl/coop-server.scm B �   ���Cg*� ����h0����]�&��� "�� 4�5O�O�4O�>���"��G��V�&�� � "�� 4�5$��"��D4�&��� "�� 4�5�&��� "�� 4�5>��"��G���&�� � "�� 4�5$��"��4  >��"��G���&�� � "��4� >��"��G��X4O�>���"��G��6���������g�� coop-repl  .�g��x  (�g��thunk  � �g��thunk ( .��g��filenamef��system/repl/coop-server.scm ?  B   B E C  a C f D k D & � E & � D � F  � F � G � H  � H  � H  � I  B ( A  . K �  . ��g��nameg��coop-repl-readg�� documentationf��5Read an expression via the thunk stored in COOP-REPL.�CRn�h���V���]�LL�6N�������g��filenamef��system/repl/coop-server.scm R   R %�   ���C�������h���h���]�L�O�6�`�������g��exp  ��g��filenamef��system/repl/coop-server.scm P   Q �   ���CRr�������h ������]&��  �O�C6�������g��cont  �g�� coop-repl  ��g��filenamef��system/repl/coop-server.scm M  O �  ��g��nameg��store-repl-contg�� documentationf��4Save the partial continuation CONT within COOP-REPL.�CR������h������]�L�6����������   ���C����h0�����]U���4�O�>���XCXFG@��������������g��thunk  )�g��handler  )�g��args   )��g��filenamef��system/repl/coop-server.scm T  V   V  V �  ) ��g��nameg��coop-repl-promptg�� documentationf��2Apply THUNK within a prompt for cooperative REPLs.�CR2!�����h(���^���]�L�Y4L>��"��G��4L>��ZCZFV�������g��filenamef��system/repl/coop-server.scm b d   e �  ( ���CnRh��h���N���]�L�6F�������g��filenamef��system/repl/coop-server.scm f �   ���Ck���h���N���]�L�6F�������g��filenamef��system/repl/coop-server.scm f �   ���Cg*��h��D��][45��O�L�&��L� "�� 4L�5O�O�4O�>���"��G��VL�&�� L� "�� 4L� 5$��4  >��"��G��"���L�&�� L� "��4L� >��"��G��4 L�&��L� "�� 4L�5>��"��G��X4O�>���"��G��L�WF���<������g��repl   �g��stack �g��module  �g�� read-thunk  �g��x  ; ��g��filenamef��system/repl/coop-server.scm \   a  `  ]  $ f  ; f  d g  � g  � h � h  � h � i  � j  � j # � j  � f   k   k �   ���C�h���S��]�O�C������K������g�� coop-repl  ��g��filenamef��system/repl/coop-server.scm X �  ��g��nameg��make-coop-readerg�� documentationf��Return a new procedure for reading user input from COOP-REPL. The generated procedure passes the responsibility of reading input to another thread and aborts the cooperative REPL prompt.�CRm�h(���S��]4�45>��"��G���6�K������g�� coop-server  '�g�� coop-repl  '��g��filenamef��system/repl/coop-server.scm m  p  p % q   p  ' r �  ' ��g��nameg�� reader-loopg�� documentationf��Run an unbounded loop that reads an expression for COOP-REPL and stores the expression within COOP-SERVER for later evaluation.�CR5RSh�h���N���]�L�6F�������g��filenamef��system/repl/coop-server.scm y �   ���Ck���h���N���]�L�6F�������g��filenamef��system/repl/coop-server.scm y �   ���Cn�������h����]1�&��� "�� 4�5O�O�4O�>���"��G��V�&��� "�� 4�545$��"��45X4O�>���"��G��$�}"� $�� &��$��$��[(��74 &��  "�� 4 5>��"�G��"� 44  5>���"��G��"��44  5>���"��G��"��44  5>���"��G��"��44  5>���"��G��"��44  5>���"��pG��"��i$��^&��>$��/(�� 4�>��"��G��"��""��""��""��""���C������g�� coop-server  �g��x  ��g��queue  \ x�g��op � �g��w  � �g��x  � �g��w  � L�g��x  � L�g��w  �  �g��w    �g��x    �g��w   �� g��filenamef��system/repl/coop-server.scm t  y   y E z  \ z  _ {  i {  o |  z y � y  � }  � ~  � �  ~   �  ~ �   ��g��nameg��poll-coop-repl-serverg�� documentationf��Poll the cooperative REPL server COOP-SERVER and apply a pending operation if there is one, such as evaluating an expression typed at the REPL prompt. This procedure must be called from the same thread that called spawn-coop-repl-server.�C0R��������h���O���]�LL�6������G�������g��filenamef��system/repl/coop-server.scm � �  ���C ���h8������]45��4�L�O�>��"��G��45�4�56����������g�� coop-repl  5��g��filenamef��system/repl/coop-server.scm �   �   �  �  ' �  - � ( 5 � �  5 ���C�h���d���-��1��3�C�����\�������g��args ��g��filenamef��system/repl/coop-server.scm � � ���C�h������]�O�6�������g�� coop-server  ��g��filenamef��system/repl/coop-server.scm �  � �   ��g��nameg��start-coop-replg�� documentationf��5Start a new cooperative REPL process for COOP-SERVER.�CR&���h�����]4�56�������g�� coop-server  �g�� server-socket  ��g��filenamef��system/repl/coop-server.scm �  �   � �   ��g��nameg��run-coop-repl-serverg�� documentationf��QStart the cooperative REPL server for COOP-SERVER using the socket SERVER-SOCKET.�CR'e�������h���O���]�LL�6������G�������g��filenamef��system/repl/coop-server.scm � �  ���C���h@�����-��.�,�3��#��45��45�4�O�>��"��G��C��������g�� server-socket >�g�� coop-server  >��g��filenamef��system/repl/coop-server.scm �  � $  �   �  ! � � > ��g��nameg��spawn-coop-repl-serverg�� documentationf��Create and return a new cooperative REPL server object, and spawn a new thread to listen for connections on SERVER-SOCKET. Proper functioning of the REPL server requires that poll-coop-repl-server be called periodically on the returned server object.�C/Rm�������h������]L��6�����������g��client  �g��addr  ��g��filenamef��system/repl/coop-server.scm �   � ' � �  ���C�����h�����]�O�C�������������g�� coop-server  ��g��filenamef��system/repl/coop-server.scm � �  ��g��nameg��make-coop-client-procg�� documentationf��gReturn a new procedure that is used to schedule the creation of a new cooperative REPL for COOP-SERVER.�CR(��������h���a���]�4L�56���Y�������g��filenamef��system/repl/coop-server.scm �   � 2 � &�  ���C*�����h���X���]�L�6P�������g��filenamef��system/repl/coop-server.scm �  � �   ���C)�������h���X���]�L�6P�������g��filenamef��system/repl/coop-server.scm �   � �   ���C������h���d���-��1��3�C�����\�������g��args ��g��filenamef��system/repl/coop-server.scm � � ���C�h0����] �4�5$��"��4 ��>��"��G��45$��"��4 �>��"��G��45$��"��4 �>��"��G��45$��"��4 �>��"��G���    4� L54 L54 L54 L5Y Y4  L�O�>��"��G��ZZ� LO�6�������g��t-6cff15a80cd23e5-300 "�g��t-6cff15a80cd23e5-301 "�g��t-6cff15a80cd23e5-302  "�g��t-6cff15a80cd23e5-303  "��g��filenamef��system/repl/coop-server.scm �  �  � � & � � 0 � �  0 ���C������h���X���]�L�LO�6�P�������g��filenamef��system/repl/coop-server.scm �   � �   ���C�����h@���8��]4O�>��"��G��4>��"��G���O�6������0������g�� coop-server  :�g��client  :��g��filenamef��system/repl/coop-server.scm �  �   �  : � �  : ��g��nameg��start-repl-clientg�� documentationf��mRun a cooperative REPL for COOP-SERVER within a prompt. All input and output is sent over the socket CLIENT.�CRC���������g��m  ,�g��rtd  �g��rtd m ��g��filenamef��system/repl/coop-server.scm   � $ 1 * h - N 4 =L < A ? C9 M D T J X K m Q t T � U � X~ � Z[ � ` � �  ` ���C6�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/system/repl/error-handling.go������������������������������������������������������������0000644�����������������00000023544�15146341264�0014017 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0L'������]��4�����h������]� g��guile � g��define-module* � � g��system g��repl g��error-handling � g��filenameS f��system/repl/error-handling.scm g��importsS g��base g��pmatch  � � g��vm g�� trap-state � � g��debug � � g��ice-9 g��format � � � g��exportsS g��call-with-error-handling g��with-error-handling � !g��set-current-module "!� #!� $g��call-with-output-string %g�� vector-length &g��print-exception 'g�� error-string (g��on-errorS )(  *g�� post-errorS +*  ,g�� pass-keysS -,  .g�� trap-handlerS /.  0)+-/� 1g��catch 2g��quit 32� 4g��current-input-port 5g��current-output-port 6g��current-error-port 7g��%stacks 8g��narrow-stack->vector 9g�� make-stack :f�� Trap ~d: ~a ;g�� make-debug <g��with-input-from-port =g��with-output-to-port >g��with-error-to-port ?f��~a~% @f��Entering a new prompt.  Af��0Type `,bt' for a backtrace or `,q' to continue.  B� Cg�� start-repl DBC� EBC� Fg��debugS Gg��pass Hg��disabled Ig��error Jf��Unknown trap-handler strategy Kg��with-default-trap-handler Lg�� %start-stack Mg��report Ng��memq Og��throw Pg��run-hook Qg��before-error-hook Rg��after-error-hook Sg�� force-output Tg�� procedure? Uf��Unknown post-error strategy Vg�� backtrace Wg�� print-frames Xf��Unknown on-error strategy Yg��make-syntax-transformer ZY� [Y� \g��macro ]g�� $sc-dispatch ^]� _]� `g��any a``� bg�� syntax-object cg��top dc� eg��ribcage fg��dummy gg��form hfg� ig��m-82c280f576c6227-80 jic� kjd� lf��l-82c280f576c6227-85 mf��l-82c280f576c6227-86 nlm� oehkn� pe� qg��x rq� sj� tf��l-82c280f576c6227-82 ut� versu� wdopv� xg��hygiene yx� zbwy� {g��lambda |b{wy� }g��syntax-violation ~}� }� �f��-source expression failed to match any patternC�5�hx��r���]4     5�4#�>��"��G���$%&�h(������] 4L�5$��L� "���LL6���������g��port  &�g��frame  &��g��filenamef��system/repl/error-handling.scm &   '  '   '   ' 3  '  & ( �  & ���C�������h������]�O�6��������������g��stack  �g��key  �g��args   ��g��filenamef��system/repl/error-handling.scm $  % �   ��g��nameg�� error-string�C'R013456789:;<=>?@AEF�hP������]�L$��?4L>��"��G��4>��"��G��4>��"��G��"���L�6��������g��filenamef��system/repl/error-handling.scm L  M O   O   O   P  # P  ( P  1 Q  6 Q  ; Q  I R O R �  O ���C����h���Y���]�LLLL�O�6�����Q�������g��filenamef��system/repl/error-handling.scm 4  5 �   ���C����h���Y���]�LLLLL�O�6���Q�������g��filenamef��system/repl/error-handling.scm 2   3 �   ���C� ���hp�����]#[$�� ["��44�5  $�� "��5$��45"��4 5LLL�O�6������g��frame  p�g��trap-idx  p�g�� trap-name   p�g��tag   p�g��stack  2 p�g�� error-msg  L p�g��debug  Y p��g��filenamef��system/repl/error-handling.scm 8   9  9   :   9   ;   <  * F  2 ;  2 9  : G  ; H  @ H ' F H  L 9  O J  Y 9  p 1 �  p ��g��nameg��debug-trap-handler�CG�����h������]C�����������g��frame  �g��trap-idx  �g�� trap-name   ��g��filenamef��system/repl/error-handling.scm T �   ��g��nameg��null-trap-handler�CHIJ1KL�������h���Y���]�L�6�������Q�������g��filenamef��system/repl/error-handling.scm a a �  ���C����h���Y���]�ML�O�6�Q�������g��filenamef��system/repl/error-handling.scm _   ` �   ���CMNO<=>PQ&RS��hH���q���]�4>��"��G��4LLL�>��"��G��4>��"��G��L6�����i�������g��filenamef��system/repl/error-handling.scm j   k   l  , m  C n �  C ���C����h���Y���]�LLL�LO�6�����Q�������g��filenamef��system/repl/error-handling.scm 4  5 �   ���C����h���Y���]�LLLL�O�6�����Q�������g��filenamef��system/repl/error-handling.scm 2   3 �   ���C����h@������-�1�3�4�L5$���@4L�L�LO�>��"��G��C��������g��key ?�g��args ?��g��filenamef��system/repl/error-handling.scm e f   f  g   1 � ? ���CNO��h ������-�1�3�4�L�5$���@C�������g��key �g��args ��g��filenamef��system/repl/error-handling.scm q r   r  s � ���CTNO��������h(������-�1�3�4�L5$��"��L��@�����������g��k $�g��args $��g��filenamef��system/repl/error-handling.scm v w   w  $ w � $ ���CUN789';<=>?@AEF�����hH������]�4L>��"��G��4>��"��G��4>��"��G��L�6����������g��filenamef��system/repl/error-handling.scm �   �   �   �   �   �  " �  + �  0 �  5 �  ? �  E � �  E ���C��������h���Y���]�LLL�O�6�������Q�������g��filenamef��system/repl/error-handling.scm 4  5 �   ���C����h���Y���]�LLLL�O�6�����Q�������g��filenamef��system/repl/error-handling.scm 2   3 �   ���C� ���hx���J��-�1�3�4�L5$��C[$�� ["��445  $�� "��54�54 5L�LLO�6�B������g��key w�g��args w�g��tag  * w�g��stack  H w�g�� error-msg  U w�g��debug  b w��g��filenamef��system/repl/error-handling.scm | }   }  ~ ~  $  * ~  - �  0 �  @ � H �  H ~  K � ! U ~  X �  b ~  w 1 � w ���CN<=>PQ&RS�����hH���v���]�4>��"��G��4LLL�>��"��G��4>��"��G��L6�����n�������g��filenamef��system/repl/error-handling.scm �   �   �  , �  C � �  C ���C�������h���Y���]�LLL�LO�6�����Q�������g��filenamef��system/repl/error-handling.scm 4  5 �   ���C����h���Y���]�LLLL�O�6�����Q�������g��filenamef��system/repl/error-handling.scm 2   3 �   ���C����h@������-�1�3�4�L5$��C4L�L�LO�>��"��G��C��������������g��key 9�g��args 9��g��filenamef��system/repl/error-handling.scm � �   �  1 � 9 ���CVN789<=>WPQ&RS����hX������]�4L>��"��G��4>��"��G��4L�LL>��"��G��4>��"��G��L�6���w�������g��filenamef��system/repl/error-handling.scm �   �   �  ' �  > �  U � �  U ���C������h���Y���]�LLLLL�O�6���Q�������g��filenamef��system/repl/error-handling.scm 4  5 �   ���C����h���Y���]�LLLLL�O�6���Q�������g��filenamef��system/repl/error-handling.scm 2   3 �   ���C����hp�����-�1�3�4�L5$��C[$�� ["��445  $�� "��54L�L�LO�>��"��G��C����������g��key m�g��args m�g��tag  * m�g��frames  H m��g��filenamef��system/repl/error-handling.scm � �   �  � �  $ � * �  - �  0 �  @ � ' H �  H �  K 1 � m ���C�������h���w���-�1�3�C�����o�������g��key �g��args ��g��filenamef��system/repl/error-handling.scm � � ���CNO�h(������-�1�3�4�L5$��"��L��@�����������g��k $�g��args $��g��filenamef��system/repl/error-handling.scm � �   �  $ � � $ ���CX���hx����-�/���0���3� #��#��#��#��45�45�45�HO� Q� $�� "��& $�� "�� $��"�� 4  5K�O�$��O�"��5$�� O�"��!45$�� O�"�� 4 5$��O�"��d$��O�"��J$��O�"��0 $��"��!45$�� O�"�� 4 56������g��thunk  x�g��on-error  x�g�� post-error   x�g�� pass-keys   x�g�� trap-handler   x�g��in  J x�g��out  J x�g��err  J x�g��le-trap-handler  Q x�g��debug-trap-handler ] x�� g��filenamef��system/repl/error-handling.scm *  + - % + A / , . 9 , E < - A . F / J -  o X  � \  � \  � \  � c  � u � u � x � x  � x  z  V � ` � n � r �  v � x ^ �  x g��on-errorS g�� post-errorS g�� pass-keysS g�� trap-handlerS ���g��nameg��call-with-error-handling�CR4[\_az|�������h���?���]��C7�������g��dummy  �g��form  ��   ���C��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��system/repl/error-handling.scm � �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��form���C5RC�������j�������g��m  ,��g��filenamef��system/repl/error-handling.scm    $  * �  q ���C6�������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/system/xref.go���������������������������������������������������������������������������0000644�����������������00000046607�15146341264�0011113 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0oM������]��4���h ������]� g��guile � g��define-module* � � g��system g��xref � g��filenameS f��system/xref.scm g��importsS g��base g��pmatch   � � g��compile  � � g��vm g��program � � g��srfi g��srfi-1 � � � g��exportsS g��*xref-ignored-modules* g��procedure-callees g��procedure-callers g��source-closures !g��source-procedures " !� #g��set-current-module $#� %#� &g��memq 'g��program-objects (g�� vector-length )g�� make-vector *g�� decompile +g��program-objcode ,g��toS -g��assembly .g�� load-program /g��for-each 0g�� toplevel-set 1g�� toplevel-ref 2g��program? 3g��fold 4g��program-callee-rev-vars 5g�� variable? 6g��module-variable 7g��program-module 8g��the-root-module 9g��nested-ref-module :g��resolve-module ;g��module-public-interface <g��procedure-callee-rev-vars =g�� *callers-db* >g��make-hash-table ?g��*module-callees-db* @g��*tainted-modules* Ag�� value-history BA� CB� Dg�� module-name Eg��member Fg��on-module-modified Gg�� hashq-ref Hg��assoc Ig�� hashq-set! Jg�� add-caller Kg�� assoc-remove! Lg��forget-callers Mg�� hash-set! Ng��append Og��hash-ref Pg�� add-callees Qg��ensure-callers-db Rg��untaint-modules Sg�� hash-for-each Tg��module-observers Ug��module-observe Vg��module-for-each Wg�� procedure? Xg��filter Yg��variable-bound? Zg��module-submodules [g��current-module \g��error ]f��/expected a variable, symbol, or (modname . sym) ^g��program-sources _g��procedure-sources `g��*closure-sources-db* ag�� *sources-db* bg��*module-sources-db* cg��*tainted-sources* dg��on-source-modified eg�� hashv-set! fg�� hashv-ref gg�� add-source hg��delq ig�� hashv-remove! jg�� forget-source kf��unexpected source format lg�� add-sources mg��and=> ng�� vector->list og�� hashq-remove! pg��forget-sources qg��ensure-sources-db rg��untaint-sources sg��sort! tg��hash-map->list ug��cons vg�� lines->ranges wg��reverse xg��lookup-source-procedures yg��canonicalizationS zy  {z� |g��relative }g�� %file-port-name-canonicalization ~g��catch ~� �~� �g��open-input-file �g�� port-filenameC�5���hA����]4   "5�4%�>��"��G���&�����h������]4�5$��C�C�������g��x  �g��y  ��g��filenamef��system/xref.scm "   #   #   # �   ��g��nameg�� cons-uniq�C'()*+,-./01�������h������]!"��@�$��7��&��#$��(��L�CCCCC�$��=��&��'$��(��L�C"""|"x���������g��x  ��g��vx  D�g��vy   D�g��vx  , @�g��vy  , @�g��vx S ��g��vy  S ��g��vx  l ��g��vy  l ��� g��filenamef��system/xref.scm -   .  < 0 ' F .  | / ' � . �  � ���C2345&6789:;��������h@����]4�5$�)45445544�55$��g &��K$��@$��) 4  O� >��"��G�� "���"���"���"���"�$��C4 5$��4 455"$�545$��#45$��"��"$��R44�5  $�� "�� 5  $��4 5$��"�� "��"1$��   $��     $��x   (��f445 5$��4 $�� 45"�� 5"��$��45$��"��"��"CCCC"} "sC������g��prog  @�g�� cons-uniq  @�g��t  @�g��n  9 >�g��progv  9 >�g��asm  9 >�g��vx  L ��g��vy  L ��g��vy  b ��g��vy r ��g��i  � 4�g��out  � 4�g��obj  � '�g��t 8 K�g��v O �g��vx  %�g��vy  %�g��vx  #�g��vy  #�g��vx  !�g��vy   !�g��m   �g��v   ��g��filenamef��system/xref.scm !  %  $   '   (  ( $ ) (  * )  - ) 7 ) < 9 )  9 ' B * y ,  � 2 � 4  � 3  � 5  � 5  � 5  � 3  � 6  � 7  � 8  � 8 3 � 8  � 7  � 6  � 9  � 3  � :  � :  � ;   ;   <   #   #   #  ' <  * ? % . >  / @ " 2 @ 7 8 @ 3 O @ " O @  T C  Z C & [ #  g #  r #   C   >   F #  F 6  F F  F 6  F #  F   H #  I (  J )  K -  I (  F   N   O   #   #   #   N  * P  4 P  4 2 6 2 > 2 ? Q �N  @ ��g��nameg��program-callee-rev-vars�C4R24����h������]4�5$���6C����������g��proc  ��g��filenamef��system/xref.scm S  U  T   U   V �   ��g��nameg��procedure-callee-rev-vars�C<R<�����hH���Y��]"��0(��C$��""4�5"��Q������g��prog  F�g��in  6�g��out   6��g��filenamef��system/xref.scm X  Z  [   \   \  [   ]   ] ,  ]  ! ]  ) ] , ^  6 ^  6 Z  7 Z  > Z 6 F Z �  F ��g��nameg��procedure-calleesg�� documentationf��1Evaluates to a list of the given program callees.�CR=R4>i5�?R@RCRDE@�hH������] 4�545$��"��45$��"��$��  CC��������������g��m  A�g��name A��g��filenamef��system/xref.scm h  i  i  j   j   k  * j  2 l 6 j  ; m = m �  A ��g��nameg��on-module-modified�CFRG=HEI������hh���E��]4�5$��=45$��45$��CC��6���6������=������g��callee  b�g��caller  b�g��mod-name   b�g�� all-callers  b�g��callers   P��g��filenamef��system/xref.scm o  p  p   q   s   s  $ t % u  1 u  : v 1 ; v $ < v  K x N x  P w  ] r ( b r �  b ��g��nameg�� add-caller�CJRI=KG����h ������]�44�556������������g��callee  �g��mod-name  ��g��filenamef��system/xref.scm z | |   | ;  |   |  { �   ��g��nameg��forget-callers�CLRM?NO��h ������]4�4556������������g��callees  �g��mod-name  ��g��filenamef��system/xref.scm ~ �  �   � D  �   �   �   ��g��nameg�� add-callees�CPRQ//L�����h���a���]�L�6������Y�������g��callee  ��g��filenamef��system/xref.scm �  � �  ���CO?Q������h0������]4�O�4�5>��"��G���6��������������g��m  )��g��filenamef��system/xref.scm �   �  �   � .  �   �  ) � �  ) ��g��nameg��untaint�C@������h0������]�4>��"��G��4>��"��G�� C����z�������g��filenamef��system/xref.scm �  �   �  ( �  * � �  , ��g��nameg��untaint-modules�CRR:SI&FTUDVGWIXY</J�h���a���]�LL�6����Y�������g��callee  ��g��filenamef��system/xref.scm �  � �  ���CP� �h���9��]$��M�$�� 4M�5"��$��C45$��RM�$��4M�>��"��G��"���44554LO�>��"��G�� L6CC��1������g��sym  ��g��var  ��g��x  ��g��t  " ��g��callees  e ���g��filenamef��system/xref.scm �   � �  �  �  �   �  " � . �  8 � > �  ? �  X �  ] � % e �  e �  h �  � � �  � ���CG� �h������] "��vM$��4M>��"��G��"���4455$��"��4>��"��G��454LO�>��"��G��L�6M$��4 M5$��C"q"m��������������g��name  ��g��sub  ��g��name  V v��g��filenamef��system/xref.scm �  �  �  & �  + � ( 3 �  7 �  < � P �  V �  Y �  | �  | � � �  � � �  � ���CZ�������h������]L�LO�4�56��|�������g��mod  ��g��filenamef��system/xref.scm �   �   � �   ��g��nameg��visit-submodules�C=>I&FTUDVGWIXY</J�����h���a���]�LL�6����Y�������g��callee  ��g��filenamef��system/xref.scm �  � �  ���CP� �h���9��]$��M�$�� 4M�5"��$��C45$��RM�$��4M�>��"��G��"���44554LO�>��"��G�� L6CC��1������g��sym  ��g��var  ��g��x  ��g��t  " ��g��callees  e ���g��filenamef��system/xref.scm �   � �  �  �  �   �  " � . �  8 � > �  ? �  X �  ] � % e �  e �  h �  � � �  � ���C� ���h�����]!�$�� 4�5"��HO�Q��$��"��$��4 5 4 5K456�$��aJ$��4J>��"��G��"���4455$��"��4 >��"��G��4 5  O�6C�����������g��mod-name  ��g��mod  ��g��visited   ��g��visit-submodules  " ��g��name  � ���g��filenamef��system/xref.scm �  � �   �  / � 7 �  ; �  < �  E � F �  O � R �  U � - X �  Z � ` �  f �  g �  � �  � � ( � �  � �  � � � �  � �  � � �  � ��g��nameg��ensure-callers-db�CQR56[:\]RG=� ��hx���N��]4�5$���"��I�$��445��5"��2�$��"��4455"�� 4�54>���"��G�� 6�F������g��var  w�g��vx 7 O�g��vy  7 O�g��v \ w��g��filenamef��system/xref.scm �  �  �  �   �  �  � 1 & � - �  < �  ? � & I �  T �  X �  \ �  \ �  _ �  u �  w � �  w ��g��nameg��procedure-callersg�� documentationf��Returns an association list, keyed by module name, of known callers of the given procedure. The latter can specified directly as a variable, a symbol (which gets resolved in the current module) or a pair of the form (module-name . variable-name), �CR2^�������h������]4�5$���6C����������g��proc  ��g��filenamef��system/xref.scm �  �  �   �   � �   ��g��nameg��procedure-sources�C_R`RaR4>i5�bRcRDEc����hH������] 4�545$��"��45$��"��$��  CC��������������g��m  A�g��name A��g��filenamef��system/xref.scm �  �  �  �   �   �  * �  2 � 6 �  ; � = � �  A ��g��nameg��on-source-modified�CdRO>Mef���hX���=��] 45$��"��"45�4>��"��G���456���5������g��proc  U�g��file  U�g��line   U�g��db   U�g��t  >�g��table   ;�g�� file-table  > U��g��filenamef��system/xref.scm �  �  �   � %  �  ! �  > �  I �  P � 6 R �  S �  U � �  U ��g��nameg�� add-source�CgROhfei��hH���C��]45$��,4�455$�� 66C�������;������g��proc  A�g��file  A�g��line   A�g��db   A�g�� file-table  A�g��procs  $ ?��g��filenamef��system/xref.scm �  �  �   �   �   � � ; " � $ �  $ �  ) �  - � 7 �  ? � �  A ��g��nameg�� forget-source�CjR_IOb>M/g\k�hX������]!�$��F��$��.$��L�L6�6�6�6��������g��source  W�g��vy O�g��vx   G�g��vy   G�g��vx  - ?��g��filenamef��system/xref.scm �   �  ?   C  % G   K  % O   S  % W  �  W ���CWl`�������h ���p���]4�5$�� �L�6C�������h�������g��obj  ��g��filenamef��system/xref.scm          �   ���C2m'n�����h�����]4�5$��o445$��"��"45�4>��"��G���>��"��G��4�O�>��"��G��"��� O�4 �5$��4 4 �5 5"��$��"��6����������g��proc  ��g��mod-name  ��g��db   ��g��sources  ��g��t   Q�g��table  1 N�g��t  � ���g��filenamef��system/xref.scm �  �  �   �   �   �  �   �  - � ' 1 �  4 �  Z � c � �   �   �   �   �   �   �   �  �  � ��g��nameg�� add-sources�ClROb/j\k��������hX������]!�$��F��$��.$��L�L6�6�6�6��������g��source  W�g��vy O�g��vx   G�g��vy   G�g��vx  - ?��g��filenamef��system/xref.scm      ?   C  % G   K  % O   S  % W  �  W ���CGoWp`���h ���p���]4�5$�� �L�6C�������h�������g��obj  ��g��filenamef��system/xref.scm          �   ���C2m'n� ����h���]��]45$��r4�O�4�5>��"��G��4�>��"��G��O�4�5$��4 4 �5 5"��$��"��6C�U������g��proc  ��g��mod-name  ��g��db   ��g�� mod-table  ��g��t  q ���g��filenamef��system/xref.scm              '  . )   .  7  T   ^   _   b   l   q   �   �  �  � ��g��nameg��forget-sources�CpRq//pa��������h���_���]�L�6����W�������g��proc  ��g��filenamef��system/xref.scm $  $ �  ���CObS�h���k���]�C���c�������g��proc  �g��sources  ��g��filenamef��system/xref.scm ( $�   ���Cq��������hH������] 4�O�4�5$�� 45"��>��"��G���6��������������g��m  A�g��t  .��g��filenamef��system/xref.scm #   $  &   %   (  + )  3 $  A * �  A ��g��nameg��untaint�Cc�������h0������]�4>��"��G��4>��"��G�� C����z�������g��filenamef��system/xref.scm "  +   ,  ( -  * - �  , ��g��nameg��untaint-sources�CrR&dTUDVWla���h(������] $��45$�� L�6CC��������g��sym  '�g��var  '�g��x  %��g��filenamef��system/xref.scm 5   6 6 7  7  8   8  # 9 �  ' ���C�hH������] 44�55$��"��4�>��"��G��4�5O��6�������������g��mod  B�g��name 3 B��g��filenamef��system/xref.scm 0   1  1 &  1  1   2  - 3  3 3  B 4 �  B ��g��nameg�� visit-module�C>SGI����h@������]4M5$��C4M>��"��G��4L�>��"��G��M6���������g��name  >�g��sub  >��g��filenamef��system/xref.scm B  C   C  E  ' F  > G �  > ���CZ�������h0������]M$��"��45�NLL�LO�4�56�������z�������g��mod  )��g��filenamef��system/xref.scm >   ?  @   @ ! H ) A �  ) ���Ca`>:���hp���J��]HHO�K�$��"��$��"��$��4 5 4 5 J456�$�� 4�56C�����B������g��mod-name  k�g��visit-submodules  k�g�� visit-module  k�g��visited  ��g��filenamef��system/xref.scm / =  " J 5 J 0 9 J  : K $ C K D L  M L P M  S M + V M  X M ^ J  a N i N �  k ��g��nameg��ensure-sources-db�CqR>S/GI���hH������] 4L��5$��&L$�� L"���L$��LCCL��LL6���������g��proc  F�g��t F��g��filenamef��system/xref.scm U   W V  Y   Y   Y  " Z  + [  , [  0 [  5 \  D ^ $ F ^ �  F ���C�����h���r���]L��O�6�������j�������g��line  �g��procs  ��g��filenamef��system/xref.scm S   T �   ���Cstu������h���}���]�C����u�������g��x  �g��y  ��g��filenamef��system/xref.scm b  b  b % b �  ���C��������h8������] 45�4O��>��"��G��456��������������g�� file-table  1�g��ranges  1��g��filenamef��system/xref.scm P  Q   Q  R  % a 1 a �  1 ��g��nameg�� lines->ranges�CvROwv������h�����]4�5"��O(��6"�� "$��"$��"""$�� 45"��"�����������g�� canon-file  {�g��line  {�g��db   {�g�� file-table  {�g��ranges   `�g��procs   `��g��filenamef��system/xref.scm d  e  e   f   h   i  $ m . m  . h  1 j 6 j  : h  ? j B j  I k L k  P k  X k  ` f  f f  g f $ r f ? s g  { f �  { ��g��nameg��lookup-source-procedures�CxR{|q}����h���L���]�L�6D�������g��filenamef��system/xref.scm r   r %�   ���C��h���X���-��1��3�C�����P�������g��args ��g��filenamef��system/xref.scm r � ���Cx`� ������hh���+��-�/���0���3�#��4>��"��G��Y4�O�5Z$�� 45"���  6���#������g��file  e�g��line  e�g��canonicalization   e�g��port  D e�g��file  Y e��g��filenamef��system/xref.scm o  o <  p  5 r  D q  L s  M s  Y q  e t �  e  g��canonicalizationS ���g��nameg��source-closures�C R{|q}�h���L���]�L�6D�������g��filenamef��system/xref.scm y   y %�   ���C��h���X���-��1��3�C�����P�������g��args ��g��filenamef��system/xref.scm y � ���Cxa� ������hh���-��-�/���0���3�#��4>��"��G��Y4�O�5Z$�� 45"���  6���%������g��file  e�g��line  e�g��canonicalization   e�g��port  D e�g��file  Y e��g��filenamef��system/xref.scm v  v >  w  5 y  D x  L z  M z  Y x  e { �  e  g��canonicalizationS ���g��nameg��source-procedures�C!RC������}������g��m  ,��g��filenamef��system/xref.scm   ! u S , X 0 a 1 c  : c ; e  > e @ g  C g t h @ o 2 z % ~ ] � G � 1 � � � ! � ! �  ! � ! �  ! � "O � $� � % � * � .  1 " 6 / : P <k d > o A v �%  A ���C6��������������������������������������������������������������������������������������������������������������������������2.0/ccache/system/foreign.go������������������������������������������������������������������������0000644�����������������00000023253�15146341264�0011570 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0&������]��4���h������]� g��guile � g��define-module* � � g��system g��foreign � g��filenameS f��system/foreign.scm g��importsS g��rnrs g�� bytevectors   � � g��srfi g��srfi-1 � � g��srfi-9 � � g��gnu � � � g��exportsS g��void g��float g��double g��short g��unsigned-short !g��int "g�� unsigned-int #g��long $g�� unsigned-long %g��size_t &g��ssize_t 'g�� ptrdiff_t (g��int8 )g��uint8 *g��uint16 +g��int16 ,g��uint32 -g��int32 .g��uint64 /g��int64 0g��sizeof 1g��alignof 2g�� %null-pointer 3g�� null-pointer? 4g��pointer? 5g�� make-pointer 6g�� pointer->scm 7g�� scm->pointer 8g��pointer-address 9g��pointer->bytevector :g��bytevector->pointer ;g��set-pointer-finalizer! <g��dereference-pointer =g��string->pointer >g��pointer->string ?g��pointer->procedure @g�� make-c-struct Ag��parse-c-struct Bg��define-wrapped-pointer-type C !"#$%&'()*+,-./0123456789:;<=>?@AB�' Dg��set-current-module ED� FD� Gg��load-extension Hg�� string-append If�� libguile- Jg��effective-version Kf��scm_init_foreign Lg��defined? Mg��procedure->pointer Ng��call-with-deferred-observers ON� PN� Qg��module-export! RQ� SQ� Tg��current-module UT� VT� WM� Xg��* Yg��error Zf��what machine is this? [g��bytevector-pointer-ref \g��bytevector-pointer-set! ]g��"bytevector-ieee-single-native-set! ^]� _]� `g��"bytevector-ieee-double-native-set! a`� b`� cg��bytevector-s8-set! dc� ec� fg��bytevector-u8-set! gf� hf� ig��bytevector-s16-native-set! ji� ki� lg��bytevector-u16-native-set! ml� nl� og��bytevector-s32-native-set! po� qo� rg��bytevector-u32-native-set! sr� tr� ug��bytevector-s64-native-set! vu� wu� xg��bytevector-u64-native-set! yx� zx� {g�� *writers* |g��!bytevector-ieee-single-native-ref }|� ~|� g��!bytevector-ieee-double-native-ref �� �� �g��bytevector-s8-ref �� �� �g��bytevector-u8-ref �� �� �g��bytevector-s16-native-ref �� �� �g��bytevector-u16-native-ref �� �� �g��bytevector-s32-native-ref �� �� �g��bytevector-u32-native-ref �� �� �g��bytevector-s64-native-ref �� �� �g��bytevector-u64-native-ref �� �� �g�� *readers* �g��align �g��write-c-struct �g��assv-ref �f��too few values �f��too many values �g�� read-c-struct �g��reverse �g��make-bytevector �g��fold �g��make-syntax-transformer �� �� �g��macro �g�� $sc-dispatch �� �� �g��_ �g��any �� �g�� datum->syntax �g��gensym �f��wrap �g�� syntax-object �g��begin �g��top �� �g��ribcage �� �g��%wrap �� �� �f��l-40afcf54ff-e4 �� �� �g�� type-name �g��pred �g��wrap �g��unwrap �g��print �� �� �f��l-40afcf54ff-d8 �f��l-40afcf54ff-d9 �f��l-40afcf54ff-da �f��l-40afcf54ff-db �f��l-40afcf54ff-dc �� �� �g��stx �� �f��l-40afcf54ff-d5 �� �� �� �g��hygiene �� �� �g��define-record-type �� �g��pointer �� �� �g��define �� �g��let �� �g��ptr->obj �� �g��make-weak-value-hash-table �� � � �� �� �� �g��lambda �� �g��ptr �� �� �g��or �� �g��hash-ref �� �� �g��o �� �g�� hash-set! �� �� �� �g��set-record-type-printer! �� �g��syntax-violation �� �� �f��-source expression failed to match any patternC�5���h0����]4   C5�4F�>��"��G���4Gi4HiI4Ji5�5K>��"��G��8��h������]4�5 C�����������g��pointer  ��g��filenamef��system/foreign.scm B  D  D �  ��g��nameg�� null-pointer?g�� documentationf��+Return true if POINTER is the null pointer.�C3R4LiM5$��4PSVW������h���E���]�45�6���=�������g��filenamef��system/foreign.scm G �  ���C>��"��G��"���40iX5�� $��5��������h���z���]�6�����r�������g��bv  �g��offset  ��g��filenamef��system/foreign.scm P Q  Q �  ���C"��� $��5���h���z���]�6�����r�������g��bv  �g��offset  ��g��filenamef��system/foreign.scm R S  S �  ���C"�� 4YiZ5�[R40iX5�� $��8�h������]�45C�������g��bv  �g��offset  �g��ptr   ��g��filenamef��system/foreign.scm X  Y 1  Y �   ���C"��� $��8��h������]�45C�������g��bv  �g��offset  �g��ptr   ��g��filenamef��system/foreign.scm Z  [ 1  [ �   ���C"�� 4YiZ5�\Ri_ib(ie)ih+ik*in-iq,it/iw.izX\i� {Ri~i(i)i+i*i-i,i/i.iX[i� R��h������]�C������������g��off  �g�� alignment  ��g��filenamef��system/foreign.scm y  z   z  z  z �  ��g��nameg��align�CR1{0Y� �������h���>��],"��$��$��r4455$��4�>��"��G��"��445�>��"��G��45"6(��C 6"X��6������g��bv  ��g��offset  ��g��types   ��g��vals   ��g��offset   ��g��types   ��g��vals   ��g��type   ��g��offset  ' ��� g��filenamef��system/foreign.scm |  }   ~   �  ~   �   �   �   � # ' �  ' �  , � 0 �  1 � : � & = � 2 B � O � P � _ � 1 d � o �  v � y � % | � 1 � �  � � � �  � �  � � � �  � � � } �#  � ��g��nameg��write-c-struct�CR10�����hx�����]+"��c$��V445545$��4�5"��445�5"6"������g��bv  x�g��offset  x�g��types   x�g��offset   i�g��types   i�g��vals   i�g��type   c�g��offset  c��g��filenamef��system/foreign.scm �  �  � �   �   �   �   � # �  �  % �  , � / � % 2 �  6 �  7 �  @ � / B �  G �  H �  V �  Y � c �  i �  i �  n � / x � �  x ��g��nameg�� read-c-struct�CR0:�h0������] 44�5 54 �>��"��G��6���������g��types  .�g��vals  .�g��bv   .��g��filenamef��system/foreign.scm �  �  �   �  �   �  . � �  . ��g��nameg�� make-c-struct�C@R01�����h ������]4�544�55C��������������g��type  �g��total  ��g��filenamef��system/foreign.scm �   �  �   � &  �   � �   ���C9��������h ������] 4 54�5 6���������g��foreign  �g��types  �g��size  ��g��filenamef��system/foreign.scm �  �  �   �   � �   ��g��nameg��parse-c-struct�CAR4B����hh������] 4455���       ���������C����������g�� type-name  e�g��pred  e�g��wrap   e�g��unwrap   e�g��print   e�g��tmp   e��g��filenamef��system/foreign.scm  �   � 2 � :  � 2  �   � �  e ���C�h(�����] 4�5$��@�6������������g��stx  "�g��tmp "��g��filenamef��system/foreign.scm � �  " ��g�� documentationf�SDefine helper procedures to wrap pointer objects into Scheme objects with a disjoint type. Specifically, this macro defines PRED, a predicate for the new Scheme type, WRAP, a procedure that takes a pointer object and returns an object that satisfies PRED, and UNWRAP which does the reverse. PRINT must name a user-defined object printer.�C5BRC������g��m  ,�g��key  2�g��key > ��g��filenamef��system/foreign.scm   - :  2 :  8 : ! 9 : - A :  C ;  H :  8 B 9 F  ? F  A F  E F F G   O   O   O   O  ' T - T  / T 5 N 6 W  < W  > W  > W   \  \   \  V  _   ^  l  d k " y 9 | � �  � �(  0 ���C6������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/rnrs/syntax-case.go����������������������������������������������������������������������0000644�����������������00000006202�15146341264�0012031 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0j ������]�H�4������h������]� g��guile � g��define-module* � � g��rnrs g�� syntax-case � g��filenameS f��rnrs/syntax-case.scm g��pureS g��versionS � g��set-current-module � � g��resolve-r6rs-interface � � g��only g��make-variable-transformer g��syntax g�� identifier? g��bound-identifier=? g��free-identifier=? g�� syntax->datum g�� datum->syntax g��generate-temporaries g�� with-syntax g�� quasisyntax g��unsyntax g��unsyntax-splicing ! � "g��call-with-deferred-observers #"� $"� %g��module-use-interfaces! &%� '%� (g��current-module )(� *(� +g��ice-9 ,g��optargs -+,� .g��base /. � 0g�� conditions 10 � 2g�� exceptions 32 � 4g��records 5g�� procedural 645 � 7g��module-export! 87� 97� :g��module-re-export! ;:� <:� = �  >g��module-replace! ?>� @>� Ag��syntax-violation BA� Cg��make-message-condition Dg��make-syntax-violation Eg��make-who-condition Fg��raise Gg�� conditionC�5��h(�����]4     5�4�>��"��G���4!5�4$'*�h���F���]�45�L��6>�������g��filenamef��rnrs/syntax-case.scm  �   ���C�O�>��"��G���4-5�4$'*�h���F���]�45�L��6>�������g��filenamef��rnrs/syntax-case.scm  �   ���C�O�>��"��G���4/5�4$'*�h���F���]�45�L��6>�������g��filenamef��rnrs/syntax-case.scm  �   ���C�O�>��"��G���415�4$'*�h���F���]�45�L��6>�������g��filenamef��rnrs/syntax-case.scm  �   ���C�O�>��"��G���435�4$'*�h���F���]�45�L��6>�������g��filenamef��rnrs/syntax-case.scm  �   ���C�O�>��"��G���465�4$'*�h���F���]�45�L��6>�������g��filenamef��rnrs/syntax-case.scm  �   ���C�O�>��"��G���4$9*��h���F���]�45�6����>�������g��filenamef��rnrs/syntax-case.scm  �  ���C>��"��G��4$<*=��������h���F���]�45�6���>�������g��filenamef��rnrs/syntax-case.scm  �  ���C>��"��G��4$@*B��������h���F���]�45�6���>�������g��filenamef��rnrs/syntax-case.scm  �  ���C>��"��G��CDEFG�������hP������-�.�,�3�#��4545��$��4�5"��4?6����������g��who M�g��message M�g��form  M�g��subform  M�g�� conditions  ( M�g�� conditions  @ M��g��filenamef��rnrs/syntax-case.scm < � M  ��g��nameg��syntax-violation�CARC�������g��m  +�g��iface 2 ��g��iface � ;�g��iface B �g��iface  K�g��iface R �g��iface  [��g��filenamef��rnrs/syntax-case.scm   & < �  ( ���C6�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/rnrs/files.go����������������������������������������������������������������������������0000644�����������������00000011136�15146341264�0010676 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0F������]�y�4�����hG ������]� g��guile � g��define-module* � � g��rnrs g��files � g��filenameS f��rnrs/files.scm g��pureS g��versionS � g��set-current-module � � g��resolve-r6rs-interface � � g��rename g��only g�� file-exists? g�� delete-file g��catch g��@@ � g��delete-file-internal � � g��call-with-deferred-observers � � !g��module-use-interfaces! "!� #!� $g��current-module %$� &$� 'g��base (' � )g�� conditions *) � +g�� exceptions ,+ � -g��module-export! .-� /-� 0g��i/o-error-port 1g��i/o-port-error? 2g��make-i/o-port-error 3g�� &i/o-port 4g��i/o-file-does-not-exist-error? 5g��"make-i/o-file-does-not-exist-error 6g��&i/o-file-does-not-exist 7g��i/o-file-already-exists-error? 8g��"make-i/o-file-already-exists-error 9g��&i/o-file-already-exists :g��i/o-file-is-read-only-error? ;g�� make-i/o-file-is-read-only-error <g��&i/o-file-is-read-only =g��i/o-file-protection-error? >g��make-i/o-file-protection-error ?g��&i/o-file-protection @g��i/o-error-filename Ag��i/o-filename-error? Bg��make-i/o-filename-error Cg�� &i/o-filename Dg��i/o-error-position Eg��i/o-invalid-position-error? Fg��make-i/o-invalid-position-error Gg��&i/o-invalid-position Hg��i/o-write-error? Ig��make-i/o-write-error Jg�� &i/o-write Kg��i/o-read-error? Lg��make-i/o-read-error Mg�� &i/o-read Ng�� i/o-error? Og��make-i/o-error Pg��&i/o Q0123456789:;<=>?@ABCDEFGHIJKLMNOP�! Rg��module-re-export! SR� TR� U� Vg��module-replace! WV� XV� Y� Zg��raise [)� \g��make-record-type-descriptor ][\� ^[\� _g��&error `g�� list->vector a[`� b[`� cg��record-constructor d[c� e[c� fg��"make-record-constructor-descriptor g[f� h[f� ig��condition-predicate j[i� k[i� lg�� immutable mg��position nlmD� og��condition-accessor p[o� q[o� rg��record-accessor s[r� t[r� ug��filename vlu@� wg��port xlw0�C�5����hX����]4     5�4�>��"��G���45�4 #&�h���@���]�45�L��68�������g��filenamef��rnrs/files.scm  �   ���C�O�>��"��G���4(5�4 #&�������h���@���]�45�L��68�������g��filenamef��rnrs/files.scm  �   ���C�O�>��"��G���4*5�4 #&�������h���@���]�45�L��68�������g��filenamef��rnrs/files.scm  �   ���C�O�>��"��G���4,5�4 #&�������h���@���]�45�L��68�������g��filenamef��rnrs/files.scm  �   ���C�O�>��"��G���4 /&Q������h���@���]�45�6���8�������g��filenamef��rnrs/files.scm  �  ���C>��"��G��4 T&U������h���@���]�45�6���8�������g��filenamef��rnrs/files.scm  �  ���C>��"��G��4 X&Y������h���@���]�45�6���8�������g��filenamef��rnrs/files.scm  �  ���C>��"��G����h������]�L�6�������   ���CZB�������h���>���-�1�3�4L�56����6�������g��key �g��args ��  ���C�������h���p���]�O��O�6���h�������g��filename  ��g��filenamef��rnrs/files.scm @ �   ��g��nameg�� delete-file�CR4^P_i4b55PR4e4hPi55OR4kPi5NR4^MPi4b55MR4e4hMi55LR4kMi5KR4^JPi4b55JR4e4hJi55IR4kJi5HR4^GPi4bn�55GR4e4hGi55FR4kGi5ER4qGi4tGi 55DR4^CPi4bv�55CR4e4hCi55BR4kCi5AR4qCi4tCi 55@R4^?Ci4b55?R4e4h?i55>R4k?i5=R4^<?i4b55<R4e4h<i55;R4k<i5:R4^9Ci4b559R4e4h9i558R4k9i57R4^6Ci4b556R4e4h6i555R4k6i54R4^3Pi4bx�553R4e4h3i552R4k3i51R4q3i4t3i 550RC��������g��m  +�g��iface 2 ��g��iface � 5�g��iface < �g��iface  E��g��filenamef��rnrs/files.scm    @   I  " J  X K   L   O  . R  d T   W   Z   ] �  W ���C6�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/rnrs/io/ports.go�������������������������������������������������������������������������0000644�����������������00000112030�15146341264�0011345 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0�������]�4����h4������]� g��guile � g��define-module* � � g��rnrs g��io g��ports � g��filenameS f��rnrs/io/ports.scm g��pureS g��versionS  � g��set-current-module � � g��resolve-r6rs-interface � � g��ice-9 g�� binary-ports � g��call-with-deferred-observers � � g��module-use-interfaces! � � g��current-module � � !g��only "g��base #"� $g��assertion-violation %!#$� &g��enums '&� (g��records )g�� syntactic *()� +g�� exceptions ,+� -g�� conditions .-� /g��files 0/� 1g��srfi 2g��srfi-8 312� 4g��rdelim 54� 6g��except 7g��raise 8g��display 9678� :g��prefix ;!8� <g��guile: =:;<� >g��module-export! ?>� @>� Ag��i/o-encoding-error-char Bg��make-i/o-encoding-error Cg��i/o-encoding-error? Dg��&i/o-encoding-error Eg��make-i/o-decoding-error Fg��i/o-decoding-error? Gg��&i/o-decoding-error Hg��standard-error-port Ig��standard-output-port Jg��standard-input-port Kg�� put-string Lg�� put-datum Mg��put-char Ng��lookahead-char Og�� get-string-n Pg��get-string-all Qg��get-line Rg�� get-datum Sg��get-char Tg��open-file-input/output-port Ug��flush-output-port Vg��make-custom-textual-output-port Wg��call-with-string-output-port Xg�� call-with-bytevector-output-port Yg��open-file-output-port Zg��open-string-output-port [g��open-file-input-port \g��open-string-input-port ]g��call-with-port ^g��port-has-set-port-position!? _g��port-has-port-position? `g��set-port-position! ag�� port-position bg��transcoded-port cg�� textual-port? dg�� binary-port? eg��port-transcoder fg�� port-eof? gg�� utf-16-codec hg�� utf-8-codec ig�� latin-1-codec jg��native-transcoder kg��transcoder-error-handling-mode lg��transcoder-eol-style mg��transcoder-codec ng��make-transcoder og��error-handling-mode pg��native-eol-style qg�� eol-style rg�� buffer-mode? sg�� buffer-mode tg�� file-options uABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrst�4 vg��module-re-export! wv� xv� yg��i/o-error-port zg��make-i/o-port-error {g��i/o-port-error? |g�� &i/o-port }g��"make-i/o-file-does-not-exist-error ~g��i/o-file-does-not-exist-error? g��&i/o-file-does-not-exist �g��"make-i/o-file-already-exists-error �g��i/o-file-already-exists-error? �g��&i/o-file-already-exists �g�� make-i/o-file-is-read-only-error �g��i/o-file-is-read-only-error? �g��&i/o-file-is-read-only �g��make-i/o-file-protection-error �g��i/o-file-protection-error? �g��&i/o-file-protection �g��i/o-error-filename �g��make-i/o-filename-error �g��i/o-filename-error? �g�� &i/o-filename �g��make-i/o-invalid-position-error �g��i/o-invalid-position-error? �g��&i/o-invalid-position �g��make-i/o-write-error �g��i/o-write-error? �g�� &i/o-write �g��make-i/o-read-error �g��i/o-read-error? �g�� &i/o-read �g��make-i/o-error �g�� i/o-error? �g��&i/o �g��current-error-port �g��current-output-port �g��current-input-port �g�� get-string-n! �g��put-bytevector �g��put-u8 �g��make-custom-binary-output-port �g��open-bytevector-output-port �g��get-bytevector-all �g��get-bytevector-some �g��get-bytevector-n! �g��get-bytevector-n �g�� lookahead-u8 �g��get-u8 �g��make-custom-binary-input-port �g��open-bytevector-input-port �g�� close-port �g�� output-port? �g�� input-port? �g��port? �g�� eof-object? �g�� eof-object �yz{|}~�6 �g��module-replace! �� �� �g��make-syntax-transformer �� �� �g�� file-option �g��macro �g�� $sc-dispatch �� �� �g��any �� �g�� syntax->datum �'� �'� �g�� no-create �g��no-fail �g�� no-truncate �g�� syntax-object �g��quote �g�� m-d35b14d-24 �g��top �� �g��ribcage �g��sym �� �� �� �f�� l-d35b14d-29 �f�� l-d35b14d-2a �� �� �� �g��s �� �� �f�� l-d35b14d-26 �� �� �g��shift �g��dummy �g�� type-name �g��symbol �g��constructor-syntax �� �g�� m-bfa5881-18 �� �� �f�� l-bfa5881-1d �f�� l-bfa5881-1e �f�� l-bfa5881-1f �f�� l-bfa5881-20 �� �� �g��x �� �� �f�� l-bfa5881-1a �� �� �� �g��private �&� �� �g��syntax-violation �'� �'� �g��symbol->string �'� �'� �f��not a member of the set �� �� �f��-source expression failed to match any pattern �g��_ �g��each-any � �g�� datum->syntax �'� �'� � g��every '� '� g��memq f��not a subset of the universe g��enum-set-constructor g�� t-d35b14d-43  g�� t-d35b14d-44   �  g�� m-d35b14d-45   �    � f�� l-d35b14d-49 f�� l-d35b14d-4a �   � g�� quoted-syms � f�� l-d35b14d-3b � � g��quoted-universe � f�� l-d35b14d-39 � � g��syms � f�� l-d35b14d-36 �  � !g��universe "!� #f�� l-d35b14d-34 $#� %"$� &� 'f�� l-d35b14d-31 ('� )&(� *f�� l-d35b14d-2e +*� ,+� - %),� .-� /g��make-enumeration 0/-� 1g��none 2g��line 3g��block 4g�� m-d35b14d-4d 54� 6s� 75� 8f�� l-d35b14d-52 9f�� l-d35b14d-53 :89� ;67:� <5� =f�� l-d35b14d-4f >=� ?<>� @5;?� A@� Bg�� buffer-modes C123� Dg�� t-d35b14d-6c Eg�� t-d35b14d-6d FDE� Gg�� m-d35b14d-6e HG� IHH� Jf�� l-d35b14d-72 Kf�� l-d35b14d-73 LJK� MFIL� Nf�� l-d35b14d-64 ON� P<O� Qf�� l-d35b14d-62 RQ� S<R� Tf�� l-d35b14d-5f UT� V<U� Wf�� l-d35b14d-5d XW� Y"<X� Zf�� l-d35b14d-5a [Z� \&<[� ]f�� l-d35b14d-57 ^]� _<^� `5MPSVY\_� a`� b/`� cg��enum-set-member? dg��enum-set-universe e'� f'� g'/� h'/� ig��lf jg��cr kg��crlf lg��nel mg��crnel ng��ls og�� m-d35b14d-76 po� qq� rp� sf�� l-d35b14d-7b tf�� l-d35b14d-7c ust� vqru� wp� xf�� l-d35b14d-78 yx� zwy� {pvz� |{� }g�� eol-styles ~ijklmn1� g�� t-d35b14d-95 g�� t-d35b14d-96 � g�� m-d35b14d-97 � � f�� l-d35b14d-9b f�� l-d35b14d-9c � � f�� l-d35b14d-8d � w� f�� l-d35b14d-8b � w� f�� l-d35b14d-88 � w� f�� l-d35b14d-86 � "w� f�� l-d35b14d-83 � &w� f�� l-d35b14d-80 � w� p� � /� g��ignore g��replace g�� m-d35b14d-9f � o� � f�� l-d35b14d-a4 f�� l-d35b14d-a5 � � � f�� l-d35b14d-a1 � � � � g��error-handling-modes 7� g�� t-d35b14d-be g�� t-d35b14d-bf � g�� m-d35b14d-c0 � � f�� l-d35b14d-c4 f�� l-d35b14d-c5 � � f�� l-d35b14d-b6 � � f�� l-d35b14d-b4 � � f�� l-d35b14d-b1 � � f�� l-d35b14d-af � "� f�� l-d35b14d-ac � &� f�� l-d35b14d-a9 � � � � /� g��make-record-type-descriptor *� *� g�� transcoder g�� immutable g��codec � q� o� � g��record-constructor *� *� g��"make-record-constructor-descriptor *� *� g��%make-transcoder g��register-record-type *� *� g��record-predicate *� *� g�� transcoder? g��record-accessor *� *� g��%default-port-encoding f�� ISO-8859-1 f��UTF-8 f��UTF-16 g��with-throw-handler g�� system-error g��system-error-errno g��EACCES g��EEXIST g��ENOENT g��EROFS g��with-i/o-filename-conditions g��memv g��EIO g��EFBIG g��ENOSPC g��EPIPE g�� condition g��throw g��with-i/o-port-error g��with-textual-output-conditions  � � g��port g��body0 g��body � g�� m-d35b14d-cb � �  f�� l-d35b14d-d0  f�� l-d35b14d-d1  f�� l-d35b14d-d2  f�� l-d35b14d-d3      �  � � f�� l-d35b14d-cd � � � � � � g��lambda � g��with-i/o-encoding-error � g��with-textual-input-conditions g�� m-d35b14d-d9 � � f�� l-d35b14d-de  f�� l-d35b14d-df !f�� l-d35b14d-e0 "f�� l-d35b14d-e1 # !"� $#� %� &f�� l-d35b14d-db '&� (%'� )$(� *)� +)� ,)� -g��with-i/o-decoding-error .-)� /g�� port-encoding 0g��port-conversion-strategy 1g��error 2g�� substitute 3f��unsupported error handling mode 4g��%make-transcoded-port 54� 64� 7g��set-port-encoding! 8g��set-port-conversion-strategy! 9g��seek :g��SEEK_CUR ;g��SEEK_SET <g��catch =<� ><� ?g��open-input-string @g��open Ag�� r6rs-open Bg��O_CREAT Cg��O_TRUNC Dg��O_EXCL Eg��file-options->mode Fg��O_RDONLY Gg��O_RDWR Hg��open-output-string Ig��get-output-string Jg��O_WRONLY Kg��make-soft-port Lg��string Mg�� string-length Nf��w Og�� force-output P.� Q.� Rg�� &i/o-encoding Sg�� list->vector T.S� U.S� Vg��char WVA� X.� Y.� Z.� [.� \g��condition-predicate ].\� ^.\� _g��condition-accessor `._� a._� b.� c.� d� eg�� m-d35b14d-114 fe� gf� hf�� l-d35b14d-119 if�� l-d35b14d-11a jhi� kdgj� lf� mf�� l-d35b14d-116 nm� oln� pko� qp� rp� sg��encoding-error tsp� urt� vp� wg��begin xwp� yg��key zyp� {g��subr |{p� }g��message ~}p� g��errno p� p� g��chr p� z|~� 7p� Bp� � � v� � g�� write-char g��write g��string? g��substring/shared f��expected string g�� guile:display g�� &i/o-decoding g�� m-d35b14d-148 � � f�� l-d35b14d-14d f�� l-d35b14d-14e � d� � f�� l-d35b14d-14a � � � � � g��decoding-error � � � w� y� {� }� � � � 7� E� � � � � g�� read-char g��read g�� read-line g��trim g�� read-string g�� make-string g�� peek-char g�� dup->inport g�� dup->outportC�5��h@Z����]4     5�4�>��"��G���45�4 �h���C���]�45�L��6;�������g��filenamef��rnrs/io/ports.scm  �   ���C�O�>��"��G���4%5�4 ����h���C���]�45�L��6;�������g��filenamef��rnrs/io/ports.scm  �   ���C�O�>��"��G���4'5�4 ����h���C���]�45�L��6;�������g��filenamef��rnrs/io/ports.scm  �   ���C�O�>��"��G���4*5�4 ����h���C���]�45�L��6;�������g��filenamef��rnrs/io/ports.scm  �   ���C�O�>��"��G���4,5�4 ����h���C���]�45�L��6;�������g��filenamef��rnrs/io/ports.scm  �   ���C�O�>��"��G���4.5�4 ����h���C���]�45�L��6;�������g��filenamef��rnrs/io/ports.scm  �   ���C�O�>��"��G���405�4 ����h���C���]�45�L��6;�������g��filenamef��rnrs/io/ports.scm  �   ���C�O�>��"��G���435�4 ����h���C���]�45�L��6;�������g��filenamef��rnrs/io/ports.scm  �   ���C�O�>��"��G���455�4 ����h���C���]�45�L��6;�������g��filenamef��rnrs/io/ports.scm  �   ���C�O�>��"��G���495�4 ����h���C���]�45�L��6;�������g��filenamef��rnrs/io/ports.scm  �   ���C�O�>��"��G���4=5�4 ����h���C���]�45�L��6;�������g��filenamef��rnrs/io/ports.scm  �   ���C�O�>��"��G���4@ u���h���C���]�45�6���;�������g��filenamef��rnrs/io/ports.scm  �  ���C>��"��G��4x ���h���C���]�45�6���;�������g��filenamef��rnrs/io/ports.scm  �  ���C>��"��G��4 �����h���C���]�45�6����;�������g��filenamef��rnrs/io/ports.scm  �  ���C>��"��G��4� �����hH���~���] 45&��"��&��"��$���C45 6�v�������g�� file-option  G�g��sym  G�g��t  -��g��filenamef��rnrs/io/ports.scm  } �  G ���C���h(���c���] 4�5$��@�6������[�������g��s  "�g��tmp "��g��filenamef��rnrs/io/ports.scm } �  " ���C5R4t�����h���S���]�6������K�������g��x  ��g��filenamef��rnrs/io/ports.scm } �  ���Ct.0������h���N���]����C����F�������g�� t-d35b14d-43  �g�� t-d35b14d-44  ��   ���C���h������])4�54L��54L��545$��"��44 5 >��"��G���4  5$�� @6���������g��sym  ��g��syms ��g��quoted-universe   ��g�� quoted-syms  ) ��g��t  4 ]�g��tmp  d ��g��tmp  o ���g��filenamef��rnrs/io/ports.scm  } �  � ���C����h(���c���] 4�5$�� �O�@�6�[�������g��s  '�g��tmp '��g��filenamef��rnrs/io/ports.scm } �  ' ���C5tR4s123As� �hH������] 45&��"��&��"��$���C45 6�w�������g�� buffer-mode  G�g��sym  G�g��t  -��g��filenamef��rnrs/io/ports.scm  � �  G ���C��h(���d���] 4�5$��@�6������\�������g��s  "�g��tmp "��g��filenamef��rnrs/io/ports.scm � �  " ���C5sR4B�CC��h���T���]�6������L�������g��x  ��g��filenamef��rnrs/io/ports.scm � �  ���CBab����h���N���]����C����F�������g�� t-d35b14d-6c  �g�� t-d35b14d-6d  ��   ���C���h������])4�54L��54L��545$��"��44 5 >��"��G���4  5$�� @6���������g��sym  ��g��syms ��g��quoted-universe   ��g�� quoted-syms  ) ��g��t  4 ]�g��tmp  d ��g��tmp  o ���g��filenamef��rnrs/io/ports.scm  � �  � ���C���h(���d���] 4�5$�� �O�@�6�\�������g��s  '�g��tmp '��g��filenamef��rnrs/io/ports.scm � �  ' ���C5BRcdfhC���h ���r���]�444455556���j�������g��symbol  ��g��filenamef��rnrs/io/ports.scm � �   ��g��nameg�� buffer-mode?�CrR4qijklmn1|q�h���}���] 45&��"��F&��"��9&��"��,&��"��&��"��&��"��$�� �C 4  5 6�����u�������g�� eol-style  {�g��sym  {�g��t  a��g��filenamef��rnrs/io/ports.scm  � �  { ���C����h(���d���] 4�5$��@�6������\�������g��s  "�g��tmp "��g��filenamef��rnrs/io/ports.scm � �  " ���C5qR4}�~~��h���T���]�6������L�������g��x  ��g��filenamef��rnrs/io/ports.scm � �  ���C}����h���N���]����C����F�������g�� t-d35b14d-95  �g�� t-d35b14d-96  ��   ���C���h������])4�54L��54L��545$��"��44 5 >��"��G���4  5$�� @6���������g��sym  ��g��syms ��g��quoted-universe   ��g�� quoted-syms  ) ��g��t  4 ]�g��tmp  d ��g��tmp  o ���g��filenamef��rnrs/io/ports.scm  � �  � ���C���h(���d���] 4�5$�� �O�@�6�\�������g��s  '�g��tmp '��g��filenamef��rnrs/io/ports.scm � �  ' ���C5}R1�������h���a���]�C���Y�������g��filenamef��rnrs/io/ports.scm � �   ��g��nameg��native-eol-style�CpR4o7o� ������hH������] 45&��"��&��"��$���C45 6��������g��error-handling-mode  G�g��sym  G�g��t  -��g��filenamef��rnrs/io/ports.scm  � �  G ���C��h(���d���] 4�5$��@�6������\�������g��s  "�g��tmp "��g��filenamef��rnrs/io/ports.scm � �  " ���C5oR4���h���T���]�6������L�������g��x  ��g��filenamef��rnrs/io/ports.scm � �  ���C����h���N���]����C����F�������g�� t-d35b14d-be  �g�� t-d35b14d-bf  ��   ���C���h������])4�54L��54L��545$��"��44 5 >��"��G���4  5$�� @6���������g��sym  ��g��syms ��g��quoted-universe   ��g�� quoted-syms  ) ��g��t  4 ]�g��tmp  d ��g��tmp  o ���g��filenamef��rnrs/io/ports.scm  � �  � ���C���h(���d���] 4�5$�� �O�@�6�\�������g��s  '�g��tmp '��g��filenamef��rnrs/io/ports.scm � �  ' ���C5R45R44i55R4i4i5>��"��G��R4i5R4i 5kR4i 5lR4i 5mRp�������h0������-�.�,�3�#��45�#���6����������g��codec -�g�� eol-style -�g�� handling-mode  -��g��filenamef��rnrs/io/ports.scm � � - ��g��nameg��make-transcoder�CnRni���h ���r���][��$���"��45��6�j�������g��t  ��g��filenamef��rnrs/io/ports.scm � �   ��g��nameg��native-transcoder�CjR����h���g���]�C���_�������g��filenamef��rnrs/io/ports.scm �  � �   ��g��nameg�� latin-1-codec�CiR�������h���e���]�C���]�������g��filenamef��rnrs/io/ports.scm �  � �   ��g��nameg�� utf-8-codec�ChR�h���f���]�C���^�������g��filenamef��rnrs/io/ports.scm �  � �   ��g��nameg�� utf-16-codec�CgR}7� h`���a���-��1��3�4�5$��"��/$��"�� $��"��$�� "��  4L�56���Y�������g��args ]�g��errno  ]�g��construct-condition  P ]�� ] ���C����h������]�O�6��������������g��filename  �g��thunk  ��g��filenamef��rnrs/io/ports.scm � �   ��g��nameg��with-i/o-filename-conditions�CR7z� �����hH���@���-��1��3�4�54�5$��44L�5�4 L556 �@�����8�������g��args C�g��errno  C�� C ���C�����h������]�O�6������������g��port  �g��make-primary-condition  �g��thunk   ��g��filenamef��rnrs/io/ports.scm � �   ��g��nameg��with-i/o-port-error�CR4��������h ���d���]��C������\�������g��dummy  �g��port  �g��body0   �g��body   ��   ���C�����h(������] 4�5$��@�6�������������g��x  "�g��tmp "��  " ��g�� macro-typeg�� syntax-rulesg��patternsg��portg��body0g��bodyg��...���C5R4*+,.��h ���d���]��C������\�������g��dummy  �g��port  �g��body0   �g��body   ��   ���C�����h(������] 4�5$��@�6�������������g��x  "�g��tmp "��  " ��g�� macro-typeg�� syntax-rulesg��patternsg��portg��body0g��bodyg��...���C5R/np0172$e3� �������hX�����]4�5$��>45�4�5$��"��$��"�� 4   56C������� ������g��port  Q�g��t Q�g��key  ! M��g��filenamef��rnrs/io/ports.scm � H � '�  Q ��g��nameg��port-transcoderg�� documentationf��dReturn the transcoder object associated with @var{port}, or @code{#f} if the port has no transcoder.�CeR/�h������]4�5C������������g��port  ��g��filenamef��rnrs/io/ports.scm � �  ��g��nameg�� binary-port?g�� documentationf��ZReturns @code{#t} if @var{port} does not have an associated encoding, @code{#f} otherwise.�CdR���h������]C�����������g��port  ��g��filenamef��rnrs/io/ports.scm � �   ��g��nameg�� textual-port?g�� documentationf��LAlways returns @code{#t}, as all ports can be used for textual I/O in Guile.�CcRdN������h(���m���]4�5$�� 4�5"��4�56�����e�������g��port  #��g��filenamef��rnrs/io/ports.scm � �  # ��g��nameg�� port-eof?�CfR67mk781213� �����h���r��]4�5445>��"��G��45$��4>��"��G��"��:$��4 >��"��G��"��4  45>��"��G��C��j������g��port  ��g�� transcoder  ��g��result  ��g��key  + ���g��filenamef��rnrs/io/ports.scm � t  �  � ��g��nameg��transcoded-portg�� documentationf��Return a new textual port based on @var{port}, using @var{transcoder} to encode and decode data written to or read from its underlying binary port @var{port}.�CbR9:�h������]� 6������������g��port  ��g��filenamef��rnrs/io/ports.scm  �  ��g��nameg�� port-positiong�� documentationf��jReturn the offset (an integer) indicating where the next octet will be read from/written to in @var{port}.�CaR9;��h������]�6�����������g��port  �g��offset  ��g��filenamef��rnrs/io/ports.scm  �  ��g��nameg��set-port-position!g�� documentationf��NSet the position where the next octet will be read from/written to @var{port}.�C`R>a�����h������]�L�6�������   ���C�����h���.���-��1��3�C�����&�������g��args �� ���C�������h ������]4�O�5$��CC��������������g��port  ��g��filenamef��rnrs/io/ports.scm  �   ��g��nameg��port-has-port-position?g�� documentationf��=Return @code{#t} is @var{port} supports @code{port-position}.�C_R>`a���h������]�L�4L�56��������   ���C�����h���.���-��1��3�C�����&�������g��args �� ���C�������h ������]4�O�5$��CC��������������g��port  ��g��filenamef��rnrs/io/ports.scm  �   ��g��nameg��port-has-set-port-position!?g�� documentationf��BReturn @code{#t} is @var{port} supports @code{set-port-position!}.�C^R�������h(���+��] 4�>�� G4�>��"��G��E#������g��port  (�g��proc  (�g��vals  (��g��filenamef��rnrs/io/ports.scm # �  ( ��g��nameg��call-with-portg�� documentationf��Call @var{proc}, passing it @var{port} and closing @var{port} upon exit of @var{proc}. Return the return values of @var{proc}.�C]R]��h@������-�.�,�3�#��4>�� G�4�>��"��G��6���������g��proc ?�g�� transcoder ?�g��port  ?�g��extract  ?��g��filenamef��rnrs/io/ports.scm , � ? ��g��nameg�� call-with-bytevector-output-port�CXR?�����h������]Y4�>��ZCZF���������g��str  ��g��filenamef��rnrs/io/ports.scm 1  3 (�   ��g��nameg��open-string-input-portg�� documentationf��1Open an input port that will read from @var{str}.�C\R@������h������]�Y4LL�>��ZCZF��������   ���C7m�������h@������] 4��O�5$��445>��"��G��"���C�������������g��filename  :�g��mode  :�g�� buffer-mode   :�g�� transcoder   :�g��port   :��g��filenamef��rnrs/io/ports.scm 6 �  : ��g��nameg�� r6rs-open�CARcBCD��������hH������]4�5$�� "��4�5$�� "��4�5$�� "��C�����������g�� file-options  D�g�� base-mode  D��g��filenamef��rnrs/io/ports.scm ? �  D ��g��nameg��file-options->mode�CERfh3AF�hH�����-�.�,�3�#��444555#��#���6����� ������g��filename C�g�� file-options C�g�� buffer-mode  C�g�� transcoder  C��g��filenamef��rnrs/io/ports.scm K � C ��g��nameg��open-file-input-portg�� documentationf��5Return an input port for reading from @var{filename}.�C[Rfh3AEG�hP���"��-�.�,�3�#��444555#��#���456������������g��filename J�g�� file-options J�g�� buffer-mode  J�g�� transcoder  J��g��filenamef��rnrs/io/ports.scm S � J ��g��nameg��open-file-input/output-portg�� documentationf��=Return a port for reading from and writing to @var{filename}.�CTRHI��h������]�L�6�������   ���C����h ���5��]Y45�Z���O�D�����-������g��port  ��g��filenamef��rnrs/io/ports.scm ^  a 4�   ��g��nameg��open-string-output-portg�� documentationf��Return two values: an output port that will collect characters written to it as a string, and a thunk to retrieve the characters associated with that port.�CZRfh3AEJ�������hP�����-�.�,�3�#��444555#��#���456������������g��filename J�g�� file-options J�g�� buffer-mode  J�g��maybe-transcoder  J��g��filenamef��rnrs/io/ports.scm f � J ��g��nameg��open-file-output-portg�� documentationf��4Return an output port for writing to @var{filename}.�CYRHI��h(���!��] 45�4�>��"��G��6�������������g��proc  !�g��port  !��g��filenamef��rnrs/io/ports.scm q �  ! ��g��nameg��call-with-string-output-portg�� documentationf��zCall @var{proc}, passing it a string output port. When @var{proc} returns, return the characters accumulated in that port.�CWRKL�h���)���]L�4�5 6�!�������g��c  ��   ���CM��������h���)���]L�� 4�56!�������g��s  ��   ���CN�h ������]O�O��6����������g��id  �g��write!  �g�� get-position   �g�� set-position!   �g��close   ��g��filenamef��rnrs/io/ports.scm x   �   ��g��nameg��make-custom-textual-output-port�CVRO��������h���u���]�6m�������g��port  ��g��filenamef��rnrs/io/ports.scm  �   ��g��nameg��flush-output-port�CUR4QR|i4UW�55RR4Y4[Ri55BR4^Ri5CR4aRi4cRi 55AR4quvx�h���?���]�C�7�������g��dummy  �g��body  ��   ���C��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��  " ��g�� documentationf��BConvert Guile throws to `encoding-error' to `&i/o-encoding-error'.g�� macro-typeg�� syntax-rulesg��patternsg��bodyg��...���C5Rs�����h������]�LL�6�������������  ���C7B�������h������]456��������g��key  �g��subr  �g��message   �g��errno   �g��port   �g��chr   ��   ���C�����h������]�L�LO�6������������   ���C����h���~���]��O�6�����v�������g��port  �g��char  ��g��filenamef��rnrs/io/ports.scm  �   ��g��nameg��put-char�CMRs���h������]�LL�6�������������  ���C7B�������h������]456��������g��key  �g��subr  �g��message   �g��errno   �g��port   �g��chr   ��   ���C�����h������]�L�LO�6������������   ���C����h������]��O�6�����x�������g��port  �g��datum  ��g��filenamef��rnrs/io/ports.scm  �   ��g��nameg�� put-datum�CLRs8M$K��hX���F���]�4L5$��>L�$��0L$��4LL�L�L5L64LL�4L55L6LL6L6���>�������g��filenamef��rnrs/io/ports.scm Q  +�  U ���C7B��h������]456��������g��key  �g��subr  �g��message   �g��errno   �g��port   �g��chr   ��   ���C�����h������]�L�LLLO�6��������   ���C����h8������-�.�,�3�#��#����O�6������������g��port 3�g��s 3�g��start  3�g��count  3��g��filenamef��rnrs/io/ports.scm  � 3  ��g��nameg�� put-string�CKRs��h������]�LL�6�������������  ���C7B�������h������]456��������g��key  �g��subr  �g��message   �g��errno   �g��port   �g��chr   ��   ���C�����h������]�L�LO�6������������   ���C����h0������-�.�,�3�#��45��O�6������w�������g��object *�g��port *��g��filenamef��rnrs/io/ports.scm  � * ��g��nameg��display�C8R4Q|i4U55R4Y4[i55ER4^i5FR4-������h���?���]�C�7�������g��dummy  �g��body  ��   ���C��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��  " ��g�� documentationf��BConvert Guile throws to `decoding-error' to `&i/o-decoding-error'.g�� macro-typeg�� syntax-rulesg��patternsg��bodyg��...���C5-R�����h������]�L�6�������   ���C7E�������h���w���]456���o�������g��key  �g��subr  �g��message   �g��errno   �g��port   ��  ���C������h������]�L�O�6��������������   ���C����h���l���]��O�6�������d�������g��port  ��g��filenamef��rnrs/io/ports.scm  �   ��g��nameg��get-char�CSR�����h������]�L�6�������   ���C7E�������h���w���]456���o�������g��key  �g��subr  �g��message   �g��errno   �g��port   ��  ���C������h������]�L�O�6��������������   ���C����h���m���]��O�6�������e�������g��port  ��g��filenamef��rnrs/io/ports.scm  �   ��g��nameg�� get-datum�CRR�h������]�L�6�������������  ���C7E�������h���w���]456���o�������g��key  �g��subr  �g��message   �g��errno   �g��port   ��  ���C������h������]�L�O�6��������������   ���C����h���l���]��O�6�������d�������g��port  ��g��filenamef��rnrs/io/ports.scm  �   ��g��nameg��get-line�CQR�����h������]�L�6�������   ���C7E�������h���w���]456���o�������g��key  �g��subr  �g��message   �g��errno   �g��port   ��  ���C������h������]�L�O�6��������������   ���C����h���r���]��O�6�������j�������g��port  ��g��filenamef��rnrs/io/ports.scm  �   ��g��nameg��get-string-all�CPR�����h@�����]454� 545$��C$��C 6����������g��port  <�g��count  <�g��s  <�g��rv   <��g��filenamef��rnrs/io/ports.scm  �  < ��g��nameg�� get-string-ng�� documentationf��Read up to @var{count} characters from @var{port}. If no characters could be read before encountering the end of file, return the end-of-file object, otherwise return a string containing the characters read.�COR��h������]�L�6�������   ���C7E�������h���w���]456���o�������g��key  �g��subr  �g��message   �g��errno   �g��port   ��  ���C������h������]�L�O�6��������������   ���C����h���r���]��O�6�������j�������g��port  ��g��filenamef��rnrs/io/ports.scm  �   ��g��nameg��lookahead-char�CNR�h���d���]�Y4 >��ZCZF����\�������g��filenamef��rnrs/io/ports.scm  �   ��g��nameg��standard-input-port�CJR�������h���e���]�Y4 >��ZCZF����]�������g��filenamef��rnrs/io/ports.scm  �   ��g��nameg��standard-output-port�CIR������h���d���]�Y4 >��ZCZF���\�������g��filenamef��rnrs/io/ports.scm  �   ��g��nameg��standard-error-port�CHRC�������������g��m  +�g��iface 2 ��g��iface � 8�g��iface ? �g��iface  H�g��iface O �g��iface  X�g��iface _ �g��iface  h�g��iface o �g��iface  x�g��iface  ��� g��filenamef��rnrs/io/ports.scm    � < �  �  � E �  � P �  � ! � # � ' � ( � ) � *P � , � -  .  09  1  3> # 4V , 5T 1 6 6 7 ? 9F K : S < ^ > f ?t q A) x A  A  E  Gs  J  L  L  O  QX  S  T  V  Xu  Y  Y  Z7  �0  Z9 ���C6���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/rnrs/io/simple.go������������������������������������������������������������������������0000644�����������������00000014771�15146341264�0011504 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]��4������h/ ������]� g��guile � g��define-module* � � g��rnrs g��io g��simple � g��filenameS f��rnrs/io/simple.scm g��pureS g��versionS  � g��set-current-module � � g��resolve-r6rs-interface � � g��only g��ports � g��call-with-port g�� close-port g��open-file-input-port g��open-file-output-port g�� eof-object g�� eof-object? g�� file-options g�� buffer-mode g��native-transcoder !g��get-char "g��lookahead-char #g�� get-datum $g��put-char %g�� put-datum &g�� input-port? 'g�� output-port? ( !"#$%&'� )g��call-with-deferred-observers *)� +)� ,g��module-use-interfaces! -,� .,� /g��current-module 0/� 1/� 2g��@@ 3g��current-input-port 4g��current-output-port 5g��current-error-port 6g��define* 7g��with-input-from-port 8g��with-output-to-port 92345678�  :g��base ;:� <g��files =<� >g��module-export! ?>� @>� Ag��module-re-export! BA� CA� Dg��i/o-error-port Eg��i/o-port-error? Fg��make-i/o-port-error Gg�� &i/o-port Hg��i/o-file-does-not-exist-error? Ig��"make-i/o-file-does-not-exist-error Jg��&i/o-file-does-not-exist Kg��i/o-file-already-exists-error? Lg��"make-i/o-file-already-exists-error Mg��&i/o-file-already-exists Ng��i/o-file-is-read-only-error? Og�� make-i/o-file-is-read-only-error Pg��&i/o-file-is-read-only Qg��i/o-file-protection-error? Rg��make-i/o-file-protection-error Sg��&i/o-file-protection Tg��i/o-error-filename Ug��i/o-filename-error? Vg��make-i/o-filename-error Wg�� &i/o-filename Xg��i/o-error-position Yg��i/o-invalid-position-error? Zg��make-i/o-invalid-position-error [g��&i/o-invalid-position \g��i/o-write-error? ]g��make-i/o-write-error ^g�� &i/o-write _g��i/o-read-error? `g��make-i/o-read-error ag�� &i/o-read bg�� i/o-error? cg��make-i/o-error dg��&i/o eDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcd543'&�( fg��module-replace! gf� hf� ig��write jg��display kg��newline lg�� write-char mg��read ng�� peek-char og�� read-char pg��close-output-port qg��close-input-port rg��open-output-file sg��open-input-file tg��with-output-to-file ug��with-input-from-file vg��call-with-output-file wg��call-with-input-file xijklmnopqrstuvw� yj� zj� {g��enums |{� }g��enum-set-constructor ~|}� |}� �g��make-enumeration �|� �|� �g�� no-create �g��no-fail �g�� no-truncate �� �g��blockC�5����h ��7��]4     5�4�>��"��G���4(5�4+.1�h���D���]�45�L��6<�������g��filenamef��rnrs/io/simple.scm  �   ���C�O�>��"��G���495�4+.1���h���D���]�45�L��6<�������g��filenamef��rnrs/io/simple.scm  �   ���C�O�>��"��G���4;5�4+.1���h���D���]�45�L��6<�������g��filenamef��rnrs/io/simple.scm  �   ���C�O�>��"��G���4=5�4+.1���h���D���]�45�L��6<�������g��filenamef��rnrs/io/simple.scm  �   ���C�O�>��"��G���4+@1����h���D���]�45�6����<�������g��filenamef��rnrs/io/simple.scm  �  ���C>��"��G��4+C1e��h���D���]�45�6���<�������g��filenamef��rnrs/io/simple.scm  �  ���C>��"��G��4+h1x��h���D���]�45�6���<�������g��filenamef��rnrs/io/simple.scm  �  ���C>��"��G��zjR��h������]4�56��������g��filename  �g��proc  ��g��filenamef��rnrs/io/simple.scm w �   ��g��nameg��call-with-input-file�CwR������h������]4�56��������g��filename  �g��proc  ��g��filenamef��rnrs/io/simple.scm z �   ��g��nameg��call-with-output-file�CvRw7����h���,���]�L�6������$�������g��port  ��  ���C�h������]�O�6��������g��filename  �g��thunk  ��g��filenamef��rnrs/io/simple.scm } �   ��g��nameg��with-input-from-file�CuRv8����h���,���]�L�6������$�������g��port  ��  ���C�h������]�O�6��������g��filename  �g��thunk  ��g��filenamef��rnrs/io/simple.scm � �   ��g��nameg��with-output-to-file�CtR �����h ���y���]�44455545�6�q�������g��filename  ��g��filenamef��rnrs/io/simple.scm � �   ��g��nameg��open-input-file�CsR ����h ���z���]�44455545�6�r�������g��filename  ��g��filenamef��rnrs/io/simple.scm � �   ��g��nameg��open-output-file�CrRiqRipR3!�����h ���p���-��.�,�3��#��45���6�h�������g��port ��g��filenamef��rnrs/io/simple.scm � �  ��g��nameg�� read-char�CoR3"�����h ���p���-��.�,�3��#��45���6�h�������g��port ��g��filenamef��rnrs/io/simple.scm � �  ��g��nameg�� peek-char�CnR3#�����h ���k���-��.�,�3��#��45���6�c�������g��port ��g��filenamef��rnrs/io/simple.scm � �  ��g��nameg��read�CmR4$��h(������-�.�,�3�#��45��6�������z�������g��char !�g��port !��g��filenamef��rnrs/io/simple.scm � � ! ��g��nameg�� write-char�ClR4$���h(���n���-��.�,�3��#��45��� 6�������f�������g��port !��g��filenamef��rnrs/io/simple.scm � � ! ��g��nameg��newline�CkR4%�������h(������-�.�,�3�#��45��6�������w�������g��object !�g��port !��g��filenamef��rnrs/io/simple.scm � � ! ��g��nameg��write�CiRC����/������g��m  +�g��iface 2 ��g��iface � 9�g��iface @ �g��iface  I��g��filenamef��rnrs/io/simple.scm    u  j w  # z  # }  # �   �   �   �   �  K �  �  �  U �   �  � �  ���C6��������2.0/ccache/rnrs/programs.go�������������������������������������������������������������������������0000644�����������������00000002572�15146341264�0011432 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0b������]�+�4���h������]� g��guile � g��define-module* � � g��rnrs g��programs � g��filenameS f��rnrs/programs.scm g��pureS g��versionS � g��set-current-module � � g��resolve-r6rs-interface � � g��only g�� command-line g��exit � g��call-with-deferred-observers � � g��module-use-interfaces! � � g��current-module � � !g��module-export! "!� #!� $g��module-re-export! %$� &$� '� (g��module-replace! )(� *(�C�5h��h���]4     5�4�>��"��G���45�4 �h���C���]�45�L��6;�������g��filenamef��rnrs/programs.scm  �   ���C�O�>��"��G���4# �����h���C���]�45�6����;�������g��filenamef��rnrs/programs.scm  �  ���C>��"��G��4& '���h���C���]�45�6���;�������g��filenamef��rnrs/programs.scm  �  ���C>��"��G��* ������h���C���]�45�6����;�������g��filenamef��rnrs/programs.scm  �  ���C6���`�������g��m  +�g��iface 2 ���g��filenamef��rnrs/programs.scm   �   ���C6���������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/rnrs/sorting.go��������������������������������������������������������������������������0000644�����������������00000004240�15146341264�0011257 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�1�4�����h������]� g��guile � g��define-module* � � g��rnrs g��sorting � g��filenameS f��rnrs/sorting.scm g��pureS g��versionS � g��set-current-module � � g��resolve-r6rs-interface � � g��base  � g��call-with-deferred-observers � � g��module-use-interfaces! � � g��current-module � � g��only g�� *unspecified* !g�� stable-sort "g��sort! # !"� $g��module-export! %$� &$� 'g�� vector-sort! (g�� vector-sort )g�� list-sort *'()� +g��module-re-export! ,+� -+� .g��module-replace! /.� 0.�C�5h�����]4     5�4�>��"��G���45�4�h���B���]�45�L��6:�������g��filenamef��rnrs/sorting.scm  �   ���C�O�>��"��G���4#5�4�����h���B���]�45�L��6:�������g��filenamef��rnrs/sorting.scm  �   ���C�O�>��"��G���4&*����h���B���]�45�6���:�������g��filenamef��rnrs/sorting.scm  �  ���C>��"��G��4-������h���B���]�45�6����:�������g��filenamef��rnrs/sorting.scm  �  ���C>��"��G��40������h���B���]�45�6����:�������g��filenamef��rnrs/sorting.scm  �  ���C>��"��G��!���h���~���]�6������v�������g��proc  �g��list  ��g��filenamef��rnrs/sorting.scm  �  ��g��nameg�� list-sort�C)R!�h������]�6������z�������g��proc  �g��vector  ��g��filenamef��rnrs/sorting.scm  �  ��g��nameg�� vector-sort�C(R"�����h������]4�>��"��G��C{�������g��proc  �g��vector  ��g��filenamef��rnrs/sorting.scm  �   ��g��nameg�� vector-sort!�C'RC�������g��m  +�g��iface 2 ��g��iface � 7��g��filenamef��rnrs/sorting.scm   A        �   ���C6�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/rnrs/enums.go����������������������������������������������������������������������������0000644�����������������00000022341�15146341264�0010723 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0$������]��4��h������]� g��guile � g��define-module* � � g��rnrs g��enums � g��filenameS f��rnrs/enums.scm g��pureS g��versionS � g��set-current-module � � g��resolve-r6rs-interface � � g��only g��and=> � g��call-with-deferred-observers � � g��module-use-interfaces! � � g��current-module � � g��base !  � "g�� conditions #" � $g�� exceptions %$ � &g��records 'g�� procedural (&' � )g�� syntax-case *) � +g��srfi ,g��:1 -+,� .g��module-export! /.� 0.� 1g��define-enumeration 2g��enum-set-projection 3g��enum-set-complement 4g��enum-set-difference 5g��enum-set-intersection 6g��enum-set-union 7g�� enum-set=? 8g��enum-set-subset? 9g��enum-set-member? :g��enum-set->list ;g��enum-set-constructor <g��enum-set-indexer =g��enum-set-universe >g��make-enumeration ?123456789:;<=>� @g��module-re-export! A@� B@� Cg��module-replace! DC� EC� Fg��make-record-type-descriptor Gg��enum-set Hg��mutable Ig��universe JHI� Kg�� immutable Lg��set MKL� NJM� Og�� enum-set-rtd Pg��record-constructor Qg��"make-record-constructor-descriptor Rg�� make-enum-set Sg��record-accessor Tg��enum-set-universe-internal Ug��record-mutator Vg��enum-set-universe-set! Wg�� enum-set-set Xg��length Yg��memq Zg�� list-copy [g��lset-intersection \g��eq? ]g��lset<= ^g�� lset-union _g��raise `g��make-assertion-violation ag��lset-difference bg��make-syntax-transformer cb� db� eg��macro fg�� $sc-dispatch gf� hf� ig��any jg��each-any kiiji� lg�� syntax-object mg��begin ng��top on� pg��ribcage qg��dummy rg�� type-name sg��symbol tg��constructor-syntax uqrst� vg�� m-bfa5881-18 wvn� xwooo� yf�� l-bfa5881-1d zf�� l-bfa5881-1e {f�� l-bfa5881-1f |f�� l-bfa5881-20 }yz{|� ~pux}� p� �g��x �� �w� �f�� l-bfa5881-1a �� �p� �o~� �g��private �� �lm� �g�� define-syntax �l� �g��lambda �l� �g��s �l� �� �l)� �g��sym �l� �� �g��if �l� �lY� �g�� syntax->datum �l� �g��syntax �l� �� �� �g��quote �l� �� �� �g��syntax-violation �l� �g��symbol->string �l� �f��not a member of the set �l� �l� �� �g��_ �l� �g��... �l� �� �g��let* �l� �lI� �g��syms �l� �� �� �� �� �g��quoted-universe �l� �g�� datum->syntax �l� �g��list �l� �� �� �� �� �g�� quoted-syms �l� �� �� �� �� �g��or �l� �g��every �l� �l� �� �� �� �� �f��not a subset of the universe �l� �� �g�� quasisyntax �l� �l;� �l>� �g��unsyntax �l� �� �� �� �� �� �� �� �� �� �f��-source expression failed to match any patternC�5�����hx����]4     5�4�>��"��G���45�4�h���@���]�45�L��68�������g��filenamef��rnrs/enums.scm  �   ���C�O�>��"��G���4!5�4�������h���@���]�45�L��68�������g��filenamef��rnrs/enums.scm  �   ���C�O�>��"��G���4#5�4�������h���@���]�45�L��68�������g��filenamef��rnrs/enums.scm  �   ���C�O�>��"��G���4%5�4�������h���@���]�45�L��68�������g��filenamef��rnrs/enums.scm  �   ���C�O�>��"��G���4(5�4�������h���@���]�45�L��68�������g��filenamef��rnrs/enums.scm  �   ���C�O�>��"��G���4*5�4�������h���@���]�45�L��68�������g��filenamef��rnrs/enums.scm  �   ���C�O�>��"��G���4-5�4�������h���@���]�45�L��68�������g��filenamef��rnrs/enums.scm  �   ���C�O�>��"��G���40?������h���@���]�45�6���8�������g��filenamef��rnrs/enums.scm  �  ���C>��"��G��4B��������h���@���]�45�6����8�������g��filenamef��rnrs/enums.scm  �  ���C>��"��G��4E��������h���@���]�45�6����8�������g��filenamef��rnrs/enums.scm  �  ���C>��"��G��4FiGN5OR4Pi4QiOi55RR4SiOi 5TR4UiOi 5VR4SiOi 5WRRV�����h������] 4�56�����������g�� symbol-list  �g��es ��g��filenamef��rnrs/enums.scm - �   ��g��nameg��make-enumeration�C>RT��������h������] 4�5$��C�C�|�������g��enum-set  �g��t ��g��filenamef��rnrs/enums.scm 1 �   ��g��nameg��enum-set-universe�C=R:=XYX�������h���-���]L�4�5C���%�������g��probe  ��  ���C��������h���)���]4�L5L�O�6��!�������g��x  ��   ���C����h(������]44�5545O�C������������g��enum-set  #�g��symbols  #�g�� cardinality   #��g��filenamef��rnrs/enums.scm 5 �  # ��g��nameg��enum-set-indexer�C<RR=Z��������h���3���]4L�54�56����+�������g�� symbol-list  ��   ���C��h���y���]�O�C������q�������g��enum-set  ��g��filenamef��rnrs/enums.scm < �  ��g��nameg��enum-set-constructor�C;R[\W=��������h ���s���]44�554�56�����k�������g��enum-set  ��g��filenamef��rnrs/enums.scm A �   ��g��nameg��enum-set->list�C:RYW��h������]4�455$��CC�������g��symbol  �g��enum-set  ��g��filenamef��rnrs/enums.scm F �   ��g��nameg��enum-set-member?�C9R]\W=��������h@������]444�5544555$��4�5456C������������g�� enum-set-1  ;�g�� enum-set-2  ;��g��filenamef��rnrs/enums.scm I �  ; ��g��nameg��enum-set-subset?�C8R8��������h ������]4�5$���6C��������������g�� enum-set-1  �g�� enum-set-2  ��g��filenamef��rnrs/enums.scm O �   ��g��nameg�� enum-set=?�C7R=R^\W_`��h@������]4�545$�� 4�544�5455645�6���������g�� enum-set-1  >�g�� enum-set-2  >��g��filenamef��rnrs/enums.scm S �  > ��g��nameg��enum-set-union�C6R=R[\W_`������h@������]4�545$�� 4�544�5455645�6���������g�� enum-set-1  >�g�� enum-set-2  >��g��filenamef��rnrs/enums.scm \ �  > ��g��nameg��enum-set-intersection�C5R=Ra\W_`�������h@������]4�545$�� 4�544�5455645�6���������g�� enum-set-1  >�g�� enum-set-2  >��g��filenamef��rnrs/enums.scm e �  > ��g��nameg��enum-set-difference�C4R=Ra\:W���h(������] 4�54454�556���������g��enum-set  &�g��universe &��g��filenamef��rnrs/enums.scm n �  & ��g��nameg��enum-set-complement�C3RR=[\W:��������h(������]4544�5445556��������g�� enum-set-1  '�g�� enum-set-2  '��g��filenamef��rnrs/enums.scm t �  ' ��g��nameg��enum-set-projection�C2R4d1ehk�����h���}���]   ��   ������� ��  ��������C�u�������g��dummy  ��g�� type-name  ��g��symbol   ��g��constructor-syntax   ���  � ���C����h(������] 4�5$��@�6�������������g��x  "�g��tmp "��  " ��g�� macro-typeg�� syntax-rulesg��patternsg�� type-nameg��symbolg��...�g��constructor-syntax���C51RCw������g��m  +�g��iface 2 ��g��iface � 5�g��iface < �g��iface  E�g��iface L �g��iface  U�g��iface \ ��g��filenamef��rnrs/enums.scm   W  n $  } (   )   +  R -   1   5  <  F A  F  I  O  S   \   e  X n  5 t �  x ���C6������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/rnrs/lists.go����������������������������������������������������������������������������0000644�����������������00000007405�15146341264�0010736 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�T�4��h������]� g��guile � g��define-module* � � g��rnrs g��lists � g��filenameS f��rnrs/lists.scm g��pureS g��versionS � g��set-current-module � � g��resolve-r6rs-interface � � g��base  � g��call-with-deferred-observers � � g��module-use-interfaces! � � g��current-module � � g��only g��filter !g��member "g��memv #g��memq $g��assoc %g��assv &g��assq 'g��cons* ( !"#$%&'�  )g��rename *g��srfi +g��srfi-1 ,*+� -g��any .g��every /g��remove 0g��find 1g�� partition 2g�� fold-right 3g�� filter-map 4,-./!$0123�  5g��exists 6-5� 7g��for-all 8.7� 9g��remp :/9� ;g�� memp-internal <!;� =g�� assp-internal >$=� ?)468:<>� @g��module-export! A@� B@� Cg��assp Dg��memp Eg��remq Fg��remv Gg�� fold-left HCDEF/G� Ig��module-re-export! JI� KI� L'&%$#"!921 570� Mg��module-replace! NM� OM� Pg��null? Qg��map Rg��car Sg��cdrC�5���h�����]4     5�4�>��"��G���45�4�h���@���]�45�L��68�������g��filenamef��rnrs/lists.scm  �   ���C�O�>��"��G���4(5�4�������h���@���]�45�L��68�������g��filenamef��rnrs/lists.scm  �   ���C�O�>��"��G���4?5�4�������h���@���]�45�L��68�������g��filenamef��rnrs/lists.scm  �   ���C�O�>��"��G���4BH������h���@���]�45�6���8�������g��filenamef��rnrs/lists.scm  �  ���C>��"��G��4KL������h���@���]�45�6���8�������g��filenamef��rnrs/lists.scm  �  ���C>��"��G��4O��������h���@���]�45�6����8�������g��filenamef��rnrs/lists.scm  �  ���C>��"��G��5PQRS�����hP������-�1�3�"��145$��C4�45?45""����������g��combine M�g��nil M�g��list  M�g��lists  M�g��nil  >�g��lists  >��g��filenamef��rnrs/lists.scm ( � M  ��g��nameg�� fold-left�CGR9������h���+���]L��C#�������g��elt  ��   ���C��h���x���]�O�6�p�������g��obj  �g��list  ��g��filenamef��rnrs/lists.scm 0 �   ��g��nameg��remove�C/R9h���+���]L��C#�������g��elt  ��   ���C��h���v���]�O�6�n�������g��obj  �g��list  ��g��filenamef��rnrs/lists.scm 1 �   ��g��nameg��remv�CFR9��h���+���]L��C#�������g��elt  ��   ���C��h���v���]�O�6�n�������g��obj  �g��list  ��g��filenamef��rnrs/lists.scm 2 �   ��g��nameg��remq�CER;��h���8���]L�60�������g��x  �g��y  ��   ���C�����h���w���]�O�6o�������g��pred  �g��list  ��g��filenamef��rnrs/lists.scm 4 �   ��g��nameg��memp�CDR=�h���8���]L�60�������g��x  �g��y  ��   ���C�����h���w���]�O�6o�������g��pred  �g��list  ��g��filenamef��rnrs/lists.scm 5 �   ��g��nameg��assp�CCRC�����������g��m  +�g��iface 2 ��g��iface � 5�g��iface < ��g��filenamef��rnrs/lists.scm   ] (  ; 0   1   2   4   5 �   ���C6������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/rnrs/hashtables.go�����������������������������������������������������������������������0000644�����������������00000020415�15146341264�0011712 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0 ������]��4��������h ������]� g��guile � g��define-module* � � g��rnrs g�� hashtables � g��filenameS f��rnrs/hashtables.scm g��pureS g��versionS � g��set-current-module � � g��resolve-r6rs-interface � � g��rename g��only g��string-hash-ci g�� string-hash g��hashq g��hashv g��modulo g�� *unspecified* g��@@ �  g��string-ci-hash � � !g��call-with-deferred-observers "!� #!� $g��module-use-interfaces! %$� &$� 'g��current-module ('� )'� *g��ice-9 +g��optargs ,*+� -g��define* .,-� /g��srfi 0g��:69 1/0� 2g��make-hash-table 3g��hash 4g��hash-by-identity 5g��hash-table-size 6g��hash-table-ref/default 7g��hash-table-set! 8g��hash-table-delete! 9g��hash-table-exists? :g��hash-table-update!/default ;g��hash-table-copy <g��hash-table-equivalence-function =g��hash-table-hash-function >g��hash-table-keys ?g��hash-table-fold @123456789:;<=>?� Ag�� equal-hash B3A� Cg�� symbol-hash D4C� E@BD� Fg��base GF � Hg��records Ig�� procedural JHI � Kg��module-export! LK� MK� Ng��hashtable-mutable? Og��hashtable-hash-function Pg��hashtable-equivalence-function Qg��hashtable-entries Rg��hashtable-keys Sg��hashtable-clear! Tg��hashtable-copy Ug��hashtable-update! Vg��hashtable-contains? Wg��hashtable-delete! Xg��hashtable-set! Yg�� hashtable-ref Zg��hashtable-size [g�� hashtable? \g��make-hashtable ]g��make-eqv-hashtable ^g��make-eq-hashtable _NOPQRSTUVWXYZ[\]^� `g��module-re-export! a`� b`� cCA� dg��module-replace! ed� fd� gg��make-record-type-descriptor hg��r6rs:hashtable ig��mutable jg�� wrapped-table kij� lg�� immutable mg��orig-hash-function nlm� oli� pkno� qg��record-predicate rg��record-constructor sg��"make-record-constructor-descriptor tg��make-r6rs-hashtable ug��record-accessor vg��r6rs:hashtable-wrapped-table wg��record-mutator xg��!r6rs:hashtable-set-wrapped-table! yg��!r6rs:hashtable-orig-hash-function zg��r6rs:hashtable-mutable? {g��srfi-69 |/{� }g��caller-with-default-size ~|}� |}� �g�� hash-by-value �g��wrap-hash-function �g��eq? �g��eqv? �g��srfi-69:hash-table �|� �|� �g��srfi-9 �/� �g��throw-bad-struct �� �� �g�� list->vector �g�� make-vectorC�5�����h����]4     5�4�>��"��G���4 5�4#&)�h���E���]�45�L��6=�������g��filenamef��rnrs/hashtables.scm  �   ���C�O�>��"��G���4.5�4#&)��h���E���]�45�L��6=�������g��filenamef��rnrs/hashtables.scm  �   ���C�O�>��"��G���4E5�4#&)��h���E���]�45�L��6=�������g��filenamef��rnrs/hashtables.scm  �   ���C�O�>��"��G���4G5�4#&)��h���E���]�45�L��6=�������g��filenamef��rnrs/hashtables.scm  �   ���C�O�>��"��G���4J5�4#&)��h���E���]�45�L��6=�������g��filenamef��rnrs/hashtables.scm  �   ���C�O�>��"��G���4#M)_�h���E���]�45�6���=�������g��filenamef��rnrs/hashtables.scm  �  ���C>��"��G��4#b)c�h���E���]�45�6���=�������g��filenamef��rnrs/hashtables.scm  �  ���C>��"��G��4#f)���h���E���]�45�6����=�������g��filenamef��rnrs/hashtables.scm  �  ���C>��"��G��4gihp5hR4qihi5[R4ri4sihi55tR4uihi 5vR4wihi 5xR4uihi 5yR4uihi 5zRziNR4i5R����h���A���]4L��5C���9�������g��key  �g��capacity  ��  ���C����h���x���]�O�C������p�������g��proc  ��g��filenamef��rnrs/hashtables.scm [ �  ��g��nameg��wrap-hash-function�CRt2C�������h@���u���-��.�,�3��#����$��4�5"�� 456������m�������g��k :��g��filenamef��rnrs/hashtables.scm ^ � : ��g��nameg��make-eq-hashtable�C^Rt2��h@���v���-��.�,�3��#����$��4�5"�� 456������n�������g��k :��g��filenamef��rnrs/hashtables.scm d � : ��g��nameg��make-eqv-hashtable�C]Rt2�����hH������-�.�,�3�#��4�5$��45"�� 45�6������������g�� hash-function C�g��equiv C�g��k  C�g��wrapped-hash-function   C��g��filenamef��rnrs/hashtables.scm j � C  ��g��nameg��make-hashtable�C\R5v��h���y���]4�56���q�������g�� hashtable  ��g��filenamef��rnrs/hashtables.scm s �  ��g��nameg��hashtable-size�CZR6v����h������]4�56��������������g�� hashtable  �g��key  �g��default   ��g��filenamef��rnrs/hashtables.scm v �   ��g��nameg�� hashtable-ref�CYRz7v�����h0������]4�5$��44�5>��"��G��"���C���������g�� hashtable  .�g��key  .�g��obj   .��g��filenamef��rnrs/hashtables.scm z �  . ��g��nameg��hashtable-set!�CXRz8v��������h0������]4�5$��44�5>��"��G��"���C�����������g�� hashtable  ,�g��key  ,��g��filenamef��rnrs/hashtables.scm  �  , ��g��nameg��hashtable-delete!�CWR9v��������h������]4�56��������g�� hashtable  �g��key  ��g��filenamef��rnrs/hashtables.scm � �   ��g��nameg��hashtable-contains?�CVRz:v���h0������]4�5$��!44�5>��"��G��"���C�������g�� hashtable  0�g��key  0�g��proc   0�g��default   0��g��filenamef��rnrs/hashtables.scm � �  0 ��g��nameg��hashtable-update!�CURt;vy����h8������-�.�,�3�#��44�554�5$��"��6�������g�� hashtable 8�g��mutable 8��g��filenamef��rnrs/hashtables.scm � � 8 ��g��nameg��hashtable-copy�CTRzv<yx2� �������h������-�.�,�3�#��4�5$��x4�5&��  "�� 454�5454�$��4 5"�� 4 5>��"��G��"���C�������������g�� hashtable ��g��k ��g��ht  ' ��g��equiv  D ��g�� hash-function  M ��g��wrapped-hash-function  V ���g��filenamef��rnrs/hashtables.scm � � � ��g��nameg��hashtable-clear!�CSR>v��������h���z���]44�556������r�������g�� hashtable  ��g��filenamef��rnrs/hashtables.scm � �   ��g��nameg��hashtable-keys�CRRv5?h���G���]L�L�C����?�������g��k  �g��v  �g��i   ��   ���C������hP������]!4�545454544�5O� >��"��G��D����������g�� hashtable  M�g��ht M�g��size   M�g��keys   M�g��vals  $ M��g��filenamef��rnrs/hashtables.scm � �  M ��g��nameg��hashtable-entries�CQRv<�������h(������] 4�5&�� C6�������������g�� hashtable  "�g��s "��g��filenamef��rnrs/hashtables.scm � �  " ��g��nameg��hashtable-equivalence-function�CPRy�������h������]�6{�������g�� hashtable  ��g��filenamef��rnrs/hashtables.scm � �   ��g��nameg��hashtable-hash-function�CORC������g��m  +�g��iface 2 ��g��iface � :�g��iface A �g��iface  J�g��iface Q ��g��filenamef��rnrs/hashtables.scm   L H  Z O  q P   S   T   U   V   X   Z   [   ^  a d   j  $ s  v  z    k �  h �  J �   �   �  M �  + �   � �   ���C6����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/rnrs/eval.go�����������������������������������������������������������������������������0000644�����������������00000004713�15146341264�0010526 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0 ������]�9�4�����ht������]� g��guile � g��define-module* � � g��rnrs g��eval � g��filenameS f�� rnrs/eval.scm g��pureS g��versionS � g��set-current-module � � g��resolve-r6rs-interface � � g��only g�� make-module g�� module-uses g��beautify-user-module! g��set-module-uses! � g��call-with-deferred-observers � � g��module-use-interfaces! � � g��current-module ! � " � #g��base $# � %g��io &g��simple '%& � (g��lists )( � *g��module-export! +*� ,*� -g�� environment .-� /g��module-re-export! 0/� 1/� 2� 3g��module-replace! 43� 53� 6g��member 7g��for-each 8g��importC�5�������h0�����]4     5�4�>��"��G���45�4"�h���?���]�45�L��67�������g��filenamef�� rnrs/eval.scm  �   ���C�O�>��"��G���4$5�4"��������h���?���]�45�L��67�������g��filenamef�� rnrs/eval.scm  �   ���C�O�>��"��G���4'5�4"��������h���?���]�45�L��67�������g��filenamef�� rnrs/eval.scm  �   ���C�O�>��"��G���4)5�4"��������h���?���]�45�L��67�������g��filenamef�� rnrs/eval.scm  �   ���C�O�>��"��G���4,".�������h���?���]�45�6���7�������g��filenamef�� rnrs/eval.scm  �  ���C>��"��G��41"2�������h���?���]�45�6���7�������g��filenamef�� rnrs/eval.scm  �  ���C>��"��G��45"�h���?���]�45�6����7�������g��filenamef�� rnrs/eval.scm  �  ���C>��"��G��678�h���3���]��L�6�+�������g�� import-spec  ��   ���C� �����hp������-��1��3�45�4�54>��"��G��4O��>��"��G��$��445>��"��G��"���C���������g�� import-specs n�g��module  n�g�� needs-purify?   n��g��filenamef�� rnrs/eval.scm  � n ��g��nameg�� environment�C-RC�������g��m  +�g��iface 2 ��g��iface � 4�g��iface ; �g��iface  D��g��filenamef�� rnrs/eval.scm   .  �  0 ���C6������������������������������������������������������2.0/ccache/rnrs/bytevectors.go����������������������������������������������������������������������0000644�����������������00000007010�15146341264�0012141 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0 ������]�n�4��������ho ������]� g��guile � g��define-module* � � g��rnrs g�� bytevectors � g��filenameS f��rnrs/bytevectors.scm g��versionS � g��exportsS g�� endianness g��native-endianness g�� bytevector? g��make-bytevector g��bytevector-length g�� bytevector=? g��bytevector-fill! g��bytevector-copy! g��bytevector-copy g��uniform-array->bytevector g��bytevector-u8-ref g��bytevector-s8-ref g��bytevector-u8-set! g��bytevector-s8-set! g��bytevector->u8-list g��u8-list->bytevector g��bytevector-uint-ref g��bytevector-uint-set! g��bytevector-sint-ref !g��bytevector-sint-set! "g��bytevector->sint-list #g��bytevector->uint-list $g��uint-list->bytevector %g��sint-list->bytevector &g��bytevector-u16-ref 'g��bytevector-s16-ref (g��bytevector-u16-set! )g��bytevector-s16-set! *g��bytevector-u16-native-ref +g��bytevector-s16-native-ref ,g��bytevector-u16-native-set! -g��bytevector-s16-native-set! .g��bytevector-u32-ref /g��bytevector-s32-ref 0g��bytevector-u32-set! 1g��bytevector-s32-set! 2g��bytevector-u32-native-ref 3g��bytevector-s32-native-ref 4g��bytevector-u32-native-set! 5g��bytevector-s32-native-set! 6g��bytevector-u64-ref 7g��bytevector-s64-ref 8g��bytevector-u64-set! 9g��bytevector-s64-set! :g��bytevector-u64-native-ref ;g��bytevector-s64-native-ref <g��bytevector-u64-native-set! =g��bytevector-s64-native-set! >g��bytevector-ieee-single-ref ?g��bytevector-ieee-single-set! @g��!bytevector-ieee-single-native-ref Ag��"bytevector-ieee-single-native-set! Bg��bytevector-ieee-double-ref Cg��bytevector-ieee-double-set! Dg��!bytevector-ieee-double-native-ref Eg��"bytevector-ieee-double-native-set! Fg�� string->utf8 Gg�� string->utf16 Hg�� string->utf32 Ig�� utf8->string Jg�� utf16->string Kg�� utf32->string L !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJK�> Mg��set-current-module NM� OM� Pg��load-extension Qg�� string-append Rf�� libguile- Sg��effective-version Tf��scm_init_bytevectors Ug��make-syntax-transformer VU� WU� Xg��macro Yg�� $sc-dispatch ZY� [Y� \g��_ ]g��any ^\] _g�� syntax->datum `_� a_� bg�� datum->syntax cb� db� eg��big fg��little gg��quote hg��error if��unsupported endianness jg��syntax-violation kj� lj� mf��-source expression failed to match any patternC�5����hX�����]4     L5�4O�>��"��G���4Pi4QiR4Si5�5T>��"��G��4WX[^adefghi�h(������]�&��"���$����C�6x�������g��sym  (��g��filenamef��rnrs/bytevectors.scm M N   N   O  $ P ( P �  ( ���C�����h���h���] 4�5L�4?6`�������g��args  �g��v ��g��filenamef��rnrs/bytevectors.scm  M �   ���Clm�h(���f���] 4�5$�� �O�@�6�^�������g��y  '�g��tmp '��g��filenamef��rnrs/bytevectors.scm M �  ' ���C5RC����������g��m  ,��g��filenamef��rnrs/bytevectors.scm   - J 2 J  8 J  9 J + A J  C K  H J �  U ���C6�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/rnrs/mutable-pairs.go��������������������������������������������������������������������0000644�����������������00000002647�15146341264�0012350 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�+�4���h������]� g��guile � g��define-module* � � g��rnrs g�� mutable-pairs � g��filenameS f��rnrs/mutable-pairs.scm g��pureS g��versionS � g��set-current-module � � g��resolve-r6rs-interface � � g��only g��set-car! g��set-cdr! � g��call-with-deferred-observers � � g��module-use-interfaces! � � g��current-module � � !g��module-export! "!� #!� $g��module-re-export! %$� &$� '� (g��module-replace! )(� *(�C�5������h(��m���]4     5�4�>��"��G���45�4 �h���H���]�45�L��6@�������g��filenamef��rnrs/mutable-pairs.scm  �   ���C�O�>��"��G���4# ��������h���H���]�45�6����@�������g��filenamef��rnrs/mutable-pairs.scm  �  ���C>��"��G��4& '������h���H���]�45�6���@�������g��filenamef��rnrs/mutable-pairs.scm  �  ���C>��"��G��* �h���H���]�45�6����@�������g��filenamef��rnrs/mutable-pairs.scm  �  ���C6������e�������g��m  +�g��iface 2 ���g��filenamef��rnrs/mutable-pairs.scm   �  " ���C6������������������������������������������������������������������������������������������2.0/ccache/rnrs/unicode.go��������������������������������������������������������������������������0000644�����������������00000005550�15146341264�0011225 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0P ������]�K�4���h������]� g��guile � g��define-module* � � g��rnrs g��unicode � g��filenameS f��rnrs/unicode.scm g��pureS g��versionS � g��set-current-module � � g��resolve-r6rs-interface � � g��only g�� char-upcase g�� char-downcase g��char-titlecase g�� char-ci=? g�� char-ci<? g�� char-ci>? g�� char-ci<=? g�� char-ci>=? g��char-alphabetic? g�� char-numeric? g��char-whitespace? g��char-upper-case? !g��char-lower-case? "g��char-set-contains? #g��char-set:title-case $g��char-general-category %g�� string-upcase &g��string-downcase 'g��string-titlecase (g�� string-ci=? )g�� string-ci<? *g�� string-ci>? +g�� string-ci<=? ,g�� string-ci>=? -g��string-normalize-nfd .g��string-normalize-nfkd /g��string-normalize-nfc 0g��string-normalize-nfkc 1 !"#$%&'()*+,-./0�! 2g��call-with-deferred-observers 32� 42� 5g��module-use-interfaces! 65� 75� 8g��current-module 98� :8� ;g��base <; � =g��module-export! >=� ?=� @g��string-foldcase Ag��char-title-case? Bg�� char-foldcase C@AB� Dg��module-re-export! ED� FD� G0/.-,+*)('&%$! � Hg��module-replace! IH� JH�C�5���h�����]4     5�4�>��"��G���415�447:�h���B���]�45�L��6:�������g��filenamef��rnrs/unicode.scm  �   ���C�O�>��"��G���4<5�447:�����h���B���]�45�L��6:�������g��filenamef��rnrs/unicode.scm  �   ���C�O�>��"��G���44?:C����h���B���]�45�6���:�������g��filenamef��rnrs/unicode.scm  �  ���C>��"��G��44F:G����h���B���]�45�6���:�������g��filenamef��rnrs/unicode.scm  �  ���C>��"��G��44J:������h���B���]�45�6����:�������g��filenamef��rnrs/unicode.scm  �  ���C>��"��G���h0���p���]���0$��"�����1$���C4�56���h�������g��char  -��g��filenamef��rnrs/unicode.scm ` �  - ��g��nameg�� char-foldcase�CBR"#�����h���s���]�6������k�������g��char  ��g��filenamef��rnrs/unicode.scm d �  ��g��nameg��char-title-case?�CAR&%��h���q���]4�56���i�������g��str  ��g��filenamef��rnrs/unicode.scm f �  ��g��nameg��string-foldcase�C@RC���������g��m  +�g��iface 2 ��g��iface � 7��g��filenamef��rnrs/unicode.scm   S `   d   f �   ���C6���������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/rnrs/base.go�����������������������������������������������������������������������������0000644�����������������00000052774�15146341264�0010523 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0U������]�4��h,������]� g��guile � g��define-module* � � g��rnrs g��base � g��filenameS f�� rnrs/base.scm g��pureS g��versionS � g��set-current-module � � g��resolve-r6rs-interface � � g��rename g��except g��error g��raise g��map g��string-for-each � g��log g�� log-internal � g��euclidean-quotient g��div � !g��euclidean-remainder "g��mod #!"� $g�� euclidean/ %g�� div-and-mod &$%� 'g��centered-quotient (g��div0 )'(� *g��centered-remainder +g��mod0 ,*+� -g�� centered/ .g�� div0-and-mod0 /-.� 0g��inf? 1g�� infinite? 201� 3g��exact->inexact 4g��inexact 534� 6g��inexact->exact 7g��exact 867� 9 #&),/258�  :g��call-with-deferred-observers ;:� <:� =g��module-use-interfaces! >=� ?=� @g��current-module A@� B@� Cg��srfi Dg��srfi-11 ECD� Fg��module-export! GF� HF� Ig��assert Jg��assertion-violation Kg��vector-for-each Lg�� vector-map Mg��symbol=? Ng�� boolean=? Og��integer-valued? Pg��rational-valued? Qg�� real-valued? RIJKLMNOPQ�  Sg��module-re-export! TS� US� Vg��identifier-syntax Wg�� syntax-rules Xg�� letrec-syntax Yg�� let-syntax Zg��unquote-splicing [g��unquote \g�� quasiquote ]g��apply ^g��values _g�� dynamic-wind `g��call-with-values ag��call/cc bg��call-with-current-continuation cg�� vector-fill! dg�� list->vector eg�� vector->list fg�� vector-set! gg�� vector-ref hg�� vector-length ig��vector jg�� make-vector kg��vector? lg�� string-copy mg�� list->string ng�� string->list og�� string-append pg�� substring qg�� string>=? rg�� string<=? sg��string>? tg��string<? ug��string=? vg�� string-ref wg�� string-length xg��string yg�� make-string zg��char>=? {g��char<=? |g��char>? }g��char<? ~g��char=? g�� integer->char �g�� char->integer �g��string->symbol �g��symbol->string �g��for-each �g��list-ref �g�� list-tail �g��reverse �g��append �g��length �g��list �g��list? �g��cddddr �g��cdddar �g��cddadr �g��cdaddr �g��cadddr �g��caddar �g��caaddr �g��cadadr �g��cdaadr �g��cdadar �g��cddaar �g��cdaaar �g��cadaar �g��caadar �g��caaadr �g��caaaar �g��cdddr �g��cddar �g��cdadr �g��caddr �g��cdaar �g��cadar �g��caadr �g��caaar �g��cddr �g��cdar �g��cadr �g��caar �g��cdr �g��car �g��cons �g��string->number �g��number->string �g��>= �g��<= �g��> �g��< �g��= �g��finite? �g��nan? �g��even? �g��odd? �g�� negative? �g�� positive? �g��zero? �g��inexact? �g��exact? �g��integer? �g�� rational? �g��real? �g��complex? �g��angle �g�� magnitude �g�� make-polar �g��atan �g��acos �g��asin �g��tan �g��cos �g��sin �g��exp �g��sqrt �g��exact-integer-sqrt �g��expt �g��make-rectangular �g�� imag-part �g�� real-part �g�� rationalize �g��round �g��truncate �g��ceiling �g��floor �g��lcm �g��gcd �g�� denominator �g�� numerator �g��abs �g��min �g��max �g��/ �g��* �g��- �g��+ �g��eq? �g��equal? �g��eqv? �g��not �g��and �g��or �g��case �g��cond �g��set! �g��if �g��lambda �g��quote �g��begin �g��letrec* �g��letrec �g�� let*-values �g�� let-values �g��let* �g��let �g�� define-syntax �g��define �g�� procedure? �g��string? �g��number? �g��pair? �g��null? �g��char? �g��symbol? �g��boolean? �VWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~471.+(%"Wk� �g��module-replace! �� �� �� �f��.string arguments must all have the same length g�� scm-error g��wrong-type-arg f��map f��Circular list: ~S f��Not a list: ~S f��List of wrong length: ~S g��make-syntax-transformer �  �  g�� define-proxy  g��macro  g�� $sc-dispatch   �  � g��any g��free-id g�� syntax-object g��@ g��top � g��ribcage � g��x � g�� m-a850ec-9 � � f�� l-a850ec-b � � �  g��private ! � "!� #"� $#� %$� &g��dummy 'g��binding (g��module )g��original *&'()� +� ,f�� l-a850ec-e -f�� l-a850ec-f .f�� l-a850ec-10 /f�� l-a850ec-11 0,-./� 1*+0� 21� 32!� 4V2!� 5g�� module-ref 652!� 7g��resolve-interface 872!� 92!� :g��syntax-violation ;:� <:� =f��-source expression failed to match any pattern >g�� identifier? ?>� @>� Ag�� m-a850ec-16 BA� Cg��id DC� Eg�� m-a850ec-17 FE� GF� Hf�� l-a850ec-1e IH� JDGI� Kf�� l-a850ec-19 LK� MGL� Ng��shift OBJMN1� P5O!� Q7O!� RO!� SJM� TS!� Ug�� exceptions VUS!� WTV� XRW� YQX� ZS!� [RZ� \PY[� ]g��_ ^g��each-any _]^ `f�� l-a850ec-21 a`� bGa� cBbMN1� d5c!� e7c!� fc!� gbM� hg!� iUg!� jhi� kfj� lek� mg!� nfm� odln� pg�� condition qg�� m-a850ec-24 rq� sg�� m-a850ec-25 ts� ut� vf�� l-a850ec-2c wv� xDuw� yf�� l-a850ec-27 zy� {uz� |rx{N1� }5|!� ~7|!� |!� x{� !� g�� conditions !� � � ~� p!� � }� f�� l-a850ec-2f � u� r{N1� 5!� 7!� !� {� !� !� � � � p!� � � g�� make-error g�� m-a850ec-32 � g�� m-a850ec-33 � � f�� l-a850ec-3a � D� f�� l-a850ec-35 � � N1� 5!� 7!� !� � !� !� � � � !� � � f�� l-a850ec-3d � � N1� 5!� 7!� !� � !� !� � � � !� � � g��make-assertion-violation g�� m-a850ec-40 � g�� m-a850ec-41 � � f�� l-a850ec-48 � D� f�� l-a850ec-43 � � N1� 5!� 7!� !� � !� !� � � � !� � � f�� l-a850ec-4b � � N1� 5!� 7!� !� � !� !� � � � !� � � g��make-who-condition g�� m-a850ec-4e � g�� m-a850ec-4f � � f�� l-a850ec-56 � D� f�� l-a850ec-51 � � N1� 5!� 7!� !� � !� !� � �� �� !� � � f�� l-a850ec-59 � � N1�  5!�  7!�  !�  �   !�  !�  �  �  �  !�  �  � g��make-message-condition g�� m-a850ec-5c � g�� m-a850ec-5d � � f�� l-a850ec-64 � D� f�� l-a850ec-5f �  � ! N1� "5!!� #7!!� $!!� % � &%!� '%!� (&'� )$(� *#)� +%!� ,$+� -"*,� .f�� l-a850ec-67 /.� 0/� 10 N1� 251!� 371!� 41!� 50 � 65!� 75!� 867� 948� :39� ;5!� <4;� =2:<� >g��make-irritants-condition ?g�� m-a850ec-6a @?� Ag�� m-a850ec-6b BA� CB� Df�� l-a850ec-72 ED� FDCE� Gf�� l-a850ec-6d HG� ICH� J@FIN1� K5J!� L7J!� MJ!� NFI� ON!� PN!� QOP� RMQ� SLR� T>N!� UMT� VKSU� Wf�� l-a850ec-75 XW� YCX� Z@YIN1� [5Z!� \7Z!� ]Z!� ^YI� _^!� `^!� a_`� b]a� c\b� d>^!� e]d� f[ce� gU� h� i� jg�� expression k&j� lg�� m-a850ec-78 ml� nm� of�� l-a850ec-7d pf�� l-a850ec-7e qop� rknq� sm� tf�� l-a850ec-7a ut� vsu� wrv� xw!� yw!� zpw!� {w!� |{� }w!� ~g��format ~w!� w!� f��assertion failed: ~s w!� w!�C�5�h%�����]4     5�4�>��"��G���495�4<?B�h���?���]�45�L��67�������g��filenamef�� rnrs/base.scm  �   ���C�O�>��"��G���4E5�4<?B��������h���?���]�45�L��67�������g��filenamef�� rnrs/base.scm  �   ���C�O�>��"��G���4<HBR�������h���?���]�45�6���7�������g��filenamef�� rnrs/base.scm  �  ���C>��"��G��4<UB�������h���?���]�45�6���7�������g��filenamef�� rnrs/base.scm  �  ���C>��"��G��4<B�������h���?���]�45�6���7�������g��filenamef�� rnrs/base.scm  �  ���C>��"��G��wvJ�J��h ���Q���]L�$��CL�L@�������I�������g��x  ��g��filenamef�� rnrs/base.scm  s �   ���C]v�������h���)���]�L�6������!�������g��s  ��  ���C� ���hP����)���D3�45"��-$��C4�45>��"��G��" ")���{3�4545$��"��4>��"��G��"��6$��C4�4545>��"��G��" "-�1�3�45454O�>��"��G��"��=$��C4 �454 O�5>��"��G��" "���������g��proc J�g��string J�g��end   J�g��i   C�g��proc S ��g��string1 S ��g��string2  S ��g��end1  a ��g��end2  a ��g��i  � ��g��proc � M�g��string � M�g��strings  � M�g��end  � M�g��ends  � M�g��i   F��g��filenamef�� rnrs/base.scm y e � J � S � � � M  ��g��nameg��string-for-each�CR� �����hh����)���3�"��|$��Y$��6&���64�5"4�5"(��6�6"r)��3� "��$��$��$��[&���6&���64�5"4�5"h$��"���6(��)(��6$��"���6�6"-�1�3�45"��C(��"��A45$�� "4�>��"��G��"��""��6(��64  54�4  5?""�����������g��f ��g��l ��g��hare  ��g��tortoise  ��g��move?  ��g��out  ��g��f � �g��l1 � �g��l2  � �g��h1  � �g��h2  � �g��t1  � �g��t2  � �g��move?  � �g��out  � �g��f  c�g��l1  c�g��rest   c�g��len   �g��rest   �g��l1   T�g��rest   T�g��out   T��g��filenamef�� rnrs/base.scm ( � / * � 5  � + � � 1 � � ' � � - � � ' � � - F � ' O �  U �  u � % ~ �   �   � %  �   � -  � 3� � � �  �  c  ��g��nameg��map�CR��������h(���a���)��� 3��6]4�545C�������Y�������g��n �g��n  !�g��base  !��  �  ! ��g��nameg��log�CR������h`������-��1��3�"��%(��C$�� "C�(��C�45$�� �"C��������������g��bools Y�g��lst 2�g��last  2�g��bool   2�g��bool = Y��g��filenamef�� rnrs/base.scm � � Y ��g��nameg�� boolean=?�CNR��hX������-��1��3�"��$(��C&�� "C�(��C�$�� �"C�����������g��syms T�g��lst 1�g��last  1�g��sym   1�g��sym < T��g��filenamef�� rnrs/base.scm � � T ��g��nameg��symbol=?�CMR��������h ���i���]4�5$�� 4�5 CC�������a�������g��x  ��g��filenamef�� rnrs/base.scm � �   ��g��nameg�� real-valued?�CQRQ��h ���m���]4�5$�� 4�56C������e�������g��x  ��g��filenamef�� rnrs/base.scm � �   ��g��nameg��rational-valued?�CPRP������h ���l���]4�5$���44�55CC�d�������g��x  ��g��filenamef�� rnrs/base.scm � �   ��g��nameg��integer-valued?�CORe�������h������-�1�3��45@z�������g��proc �g��vecs ��g��filenamef�� rnrs/base.scm � �  ��g��nameg��vector-for-each�CKRde�h ���}���-�1�3�4�45?6���u�������g��proc �g��vecs ��g��filenamef�� rnrs/base.scm � �  ��g��nameg�� vector-map�CLR4   %34689����h(���l���]������C�d�������g��dummy  '�g��binding  '�g��module   '�g��original   '��  ' ���C<=���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��  " ��g�� macro-typeg�� syntax-rulesg��patternsg��bindingg��@g��moduleg��original����C5 R4  @������h���R���]�6J�������g��id  ��g��filenamef�� rnrs/base.scm  � �   ���C\�������h���*���]C���"�������g��id  ��   ���C_o�h���)���]�C!�������g��x  ��   ���C<=������h@������]��4?$��@4�5$��@�6�������������g��x  :�g��tmp  :�g��tmp  # :��g��filenamef�� rnrs/base.scm � �  : ��g�� macro-typeg��identifier-syntax�C5R4 p @����h���R���]�6J�������g��id  ��g��filenamef�� rnrs/base.scm  � �   ���C�������h���*���]C���"�������g��id  ��   ���C_�h���)���]�C!�������g��x  ��   ���C<=������h@������]��4?$��@4�5$��@�6�������������g��x  :�g��tmp  :�g��tmp  # :��g��filenamef�� rnrs/base.scm � �  : ��g�� macro-typeg��identifier-syntax�C5pR4  @���h���R���]�6J�������g��id  ��g��filenamef�� rnrs/base.scm  � �   ���C�������h���*���]C���"�������g��id  ��   ���C_�h���)���]�C!�������g��x  ��   ���C<=������h@������]��4?$��@4�5$��@�6�������������g��x  :�g��tmp  :�g��tmp  # :��g��filenamef�� rnrs/base.scm � �  : ��g�� macro-typeg��identifier-syntax�C5R4  @���h���R���]�6J�������g��id  ��g��filenamef�� rnrs/base.scm   �   ���C�������h���*���]C���"�������g��id  ��   ���C_�h���)���]�C!�������g��x  ��   ���C<=������h@������]��4?$��@4�5$��@�6�������������g��x  :�g��tmp  :�g��tmp  # :��g��filenamef�� rnrs/base.scm  �  : ��g�� macro-typeg��identifier-syntax�C5R4  @���h���R���]�6J�������g��id  ��g��filenamef�� rnrs/base.scm   �   ���C�������h���*���]C���"�������g��id  ��   ���C_�h���)���]�C!�������g��x  ��   ���C<=������h@������]��4?$��@4�5$��@�6�������������g��x  :�g��tmp  :�g��tmp  # :��g��filenamef�� rnrs/base.scm  �  : ��g�� macro-typeg��identifier-syntax�C5R4  @���h���R���]�6J�������g��id  ��g��filenamef�� rnrs/base.scm   �   ���C-�������h���*���]C���"�������g��id  ��   ���C_=�h���)���]�C!�������g��x  ��   ���C<=������h@������]��4?$��@4�5$��@�6�������������g��x  :�g��tmp  :�g��tmp  # :��g��filenamef�� rnrs/base.scm  �  : ��g�� macro-typeg��identifier-syntax�C5R4 > @���h���R���]�6J�������g��id  ��g��filenamef�� rnrs/base.scm   �   ���CV�������h���*���]C���"�������g��id  ��   ���C_f�h���)���]�C!�������g��x  ��   ���C<=������h@������]��4?$��@4�5$��@�6�������������g��x  :�g��tmp  :�g��tmp  # :��g��filenamef�� rnrs/base.scm  �  : ��g�� macro-typeg��identifier-syntax�C5>R57ghp>� �h������-�1�3�4455444554444555���$��4445 5�5�"��4445 554445 55�5?6����������g��who ��g��message ��g�� irritants  ���g��filenamef�� rnrs/base.scm  � �  ��g��nameg��error�CR57ghp>� ��h������-�1�3�4455444554444555���$��4445 5�5�"��4445 554445 55�5?6����������g��who ��g��message ��g�� irritants  ���g��filenamef�� rnrs/base.scm  � �  ��g��nameg��assertion-violation�CJR4 I ixyz|}� h0���E���] ������C�����=�������g��dummy  +�g�� expression  +��  + ���C<=��h(���x���] 4�5$��@�6������p�������g��x  "�g��tmp "��  " ��g�� macro-typeg�� syntax-rulesg��patternsg�� expression���C5IRC��������g��m  +�g��iface 2 ��g��iface � 4��g��filenamef�� rnrs/base.scm    X } � �  � d �  �  � e �  � "  $8  �  % ���C6�����2.0/ccache/rnrs/mutable-strings.go������������������������������������������������������������������0000644�����������������00000002671�15146341264�0012720 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�+�4���h������]� g��guile � g��define-module* � � g��rnrs g��mutable-strings � g��filenameS f��rnrs/mutable-strings.scm g��pureS g��versionS � g��set-current-module � � g��resolve-r6rs-interface � � g��only g�� string-set! g�� string-fill! � g��call-with-deferred-observers � � g��module-use-interfaces! � � g��current-module � � !g��module-export! "!� #!� $g��module-re-export! %$� &$� '� (g��module-replace! )(� *(�C�5���h0��o���]4     5�4�>��"��G���45�4 �h���J���]�45�L��6B�������g��filenamef��rnrs/mutable-strings.scm  �   ���C�O�>��"��G���4# ������h���J���]�45�6����B�������g��filenamef��rnrs/mutable-strings.scm  �  ���C>��"��G��4& '����h���J���]�45�6���B�������g��filenamef��rnrs/mutable-strings.scm  �  ���C>��"��G��* �������h���J���]�45�6����B�������g��filenamef��rnrs/mutable-strings.scm  �  ���C6����g�������g��m  +�g��iface 2 ���g��filenamef��rnrs/mutable-strings.scm   �  , ���C6������������������������������������������������������������������������2.0/ccache/rnrs/records/procedural.go���������������������������������������������������������������0000644�����������������00000024303�15146341264�0013375 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0(������]��4�h ������]� g��guile � g��define-module* � � g��rnrs g��records g�� procedural � g��filenameS f��rnrs/records/procedural.scm g��pureS g��versionS  � g��set-current-module � � g��resolve-r6rs-interface � � g��base � g��call-with-deferred-observers � � g��module-use-interfaces! � � g��current-module � � g��only !g��cons* "g��logand #g��logior $g��ash %g��and=> &g��throw 'g��display (g�� make-struct )g�� make-vtable *g��map +g�� simple-format ,g�� string-append -g�� symbol-append .g��struct? /g�� struct-layout 0g�� struct-ref 1g�� struct-set! 2g�� struct-vtable 3g��vtable-index-layout 4g��make-hash-table 5g�� hashq-ref 6g�� hashq-set! 7g�� vector->list 8 !"#$%&'()*+,-./01234567� 9g��ice-9 :g��receive ;9:� <g��srfi =g��:1 ><=� ?g��fold @g��split-at Ag��take B >?@A� Cg��module-export! DC� EC� Fg��record-mutator Gg��"make-record-constructor-descriptor Hg��record-type-descriptor? Ig��make-record-type-descriptor JFGHI� Kg��module-re-export! LK� MK� Ng��module-replace! ON� PN� Qg��record-accessor Rg��record-predicate Sg��record-constructor TQRS� Ug��record-internal? Vg��rtd-index-name Wg�� rtd-index-uid Xg��rtd-index-parent Yg��rtd-index-sealed? Zg��rtd-index-opaque? [g��rtd-index-predicate \g��rtd-index-field-names ]g��rtd-index-field-bit-field ^g��rtd-index-field-binder _g��rctd-index-rtd `g��rctd-index-parent ag��rctd-index-protocol bg��symbol->string cf��� dg��vtable-base-layout ef��prprprprprprprprprpr ff��#<r6rs:record-type:~A> gg��record-type-vtable hf��prprpr if��#<r6rs:record-constructor:~A> jg��record-constructor-vtable kg�� uid-table lg�� immutable mg��pr ng��mutable og��pw pg�� r6rs-raise qg��make-assertion-violation rg�� list->vector sg��cadr tf��#<r6rs:record:~A> ug�� vector-length vg��length wg�� &condition x�� yg��!&condition-constructor-descriptor zg��&serious {g��&serious-constructor-descriptor |g��make-serious-condition }g�� &violation ~g��!&violation-constructor-descriptor g��make-violation �g�� &assertion �g��&raise-object-wrapper �g��obj �l� �g�� continuation �l� �� �g��make-raise-object-wrapper �g��raise-object-wrapper? �g��raise-object-wrapper-obj �g��!raise-object-wrapper-continuation �g��r6rs:exception �g��r6rs-raise-continuableC�5�������h��Q��]4     5�4�>��"��G���45�4�h���M���]�45�L��6E�������g��filenamef��rnrs/records/procedural.scm  �   ���C�O�>��"��G���485�4��h���M���]�45�L��6E�������g��filenamef��rnrs/records/procedural.scm  �   ���C�O�>��"��G���4;5�4��h���M���]�45�L��6E�������g��filenamef��rnrs/records/procedural.scm  �   ���C�O�>��"��G���4B5�4��h���M���]�45�L��6E�������g��filenamef��rnrs/records/procedural.scm  �   ���C�O�>��"��G���4EJ�h���M���]�45�6���E�������g��filenamef��rnrs/records/procedural.scm  �  ���C>��"��G��4M���h���M���]�45�6����E�������g��filenamef��rnrs/records/procedural.scm  �  ���C>��"��G��4PT�h���M���]�45�6���E�������g��filenamef��rnrs/records/procedural.scm  �  ���C>��"��G��H��������h���}���]�$���6C������u�������g��obj  ��g��filenamef��rnrs/records/procedural.scm < �   ��g��nameg��record-internal?�CUR VR WR XR YR ZR [R \R ]R ^R _R `R aR4bi4/i4)ic555dR4)i4,idie5+fV��������h���s���]�6�k�������g��obj  �g��port  ��g��filenamef��rnrs/records/procedural.scm  R '�   ���C5gR4)ih+i_V�����h���s���]�6������k�������g��obj  �g��port  ��g��filenamef��rnrs/records/procedural.scm  X '�   ���C5jR44i5�kRU%�����h0���^���] 4�5$���M$��C� L�6C������V�������g��obj  *�g��t  (��  * ��g��nameg��private-record-predicate�Cl-mnopq7r*sY5kZVX\]g+t��h���t���]L�6����l�������g��obj  �g��port  ��g��filenamef��rnrs/records/procedural.scm  � *�  ���C(������h���a���-�1�3�M� �@����Y�������g�� parent-struct �g��args ��  ��g��nameg�� field-binder�C6��h��_��]^H H HHHO�   Q� "��w (��  "�� $�� 4 5  "$��" 4 5   "445�5"��4 5   "rKJKJK4 4  4 555K K $��& $��445�>��"��G��"���"���$�� 45"��$��"��$�� "��   $��A� J J�       �$�� C45�6J�O��  J J O�� K $��4>��"��G��"���C����W������g��name  �g��parent  �g��uid   �g��sealed?   �g��opaque?   �g��fields   �g�� fields-pair   �g�� fields-layout   �g��fields-bit-field   �g�� field-names  �g��late-rtd  �g��private-record-predicate  �g�� field-list % ��g�� layout-sym % ��g��layout-bit-field  % ��g��counter  % ��g��key  8 ��g�� matching-rtd 3 �g��opaque? 3 �g��rtd   ��g��filenamef��rnrs/records/procedural.scm ^ �   ��g��nameg��make-record-type-descriptor�CIRg��������h������]�$���CC������}�������g��obj  ��g��filenamef��rnrs/records/procedural.scm � �   ��g��nameg��record-type-descriptor?�CHRu\X%G�h���)���]L�6������!�������g��d  ��  ���Cj@v����h8���d���-��1��3�4�4�5M>�� G�4L�?@����\�������g��args 4�g��n-args  4�g��p-args   4�g��p  , 4�� 4 ���C�h���P���]�L�O�C����H�������g��n  ��  ��g��nameg��default-inherited-protocol�C������h���F���]�C���>�������g��p  ��   ��g��nameg��default-protocol�C� ������h`��� ��]H4�5K�$��"��4O�5�$��"��$�� O�"���C���������g��rtd  ]�g��parent-constructor-descriptor  ]�g��protocol   ]�g�� rtd-arity   ]�g��prtd   ]�g��pcd  2 ]��g��filenamef��rnrs/records/procedural.scm � �  ] ��g��nameg��"make-record-constructor-descriptor�CGR_`aS^��h���.���-��1��3�LL��@����&�������g��args ��  ���C�������h ���A���-��1��3�4L��?LO�C����9�������g��args �g��struct  ��  ���C^�h���.���-��1��3�L��@�����&�������g��args ��  ���C�������hH������]!���$��45O�"��O�6��������g��rctd  G�g��rtd  G�g�� parent-rctd   G�g��protocol   G�g��parent-record-constructor  & :��g��filenamef��rnrs/records/procedural.scm � �  G ��g��nameg��record-constructor�CSR[��������h���~���]�Cv�������g��rtd  ��g��filenamef��rnrs/records/procedural.scm � �   ��g��nameg��record-predicate�CRR%��������h ���M���]�L&���LC� L�6����E�������g��obj  ��   ��g��nameg��record-accessor-inner�CUpq%�������h@���+���]4�5$��"��445�>��"��G���L�&���LC� L6#�������g��obj  @��  @ ���C��h(������] O��Q��O�C��������������g��rtd  !�g��k  !�g��record-accessor-inner  !��g��filenamef��rnrs/records/procedural.scm � �  ! ��g��nameg��record-accessor�CQR���h@���l���] �$��/�L&�� �L"��$��C� �"C�������d�������g��obj  9�g��val  9�g��t   7��  9 ��g��nameg��record-mutator-inner�C]pq����h���<���]L��6������4�������g��obj  �g��val  ��  ���C�hP������]O��Q��  $��445�>��"��G��"���O�C����������g��rtd  M�g��k  M�g��record-mutator-inner  M�g�� bit-field   E��g��filenamef��rnrs/records/procedural.scm � �  M ��g��nameg��record-mutator�CFR4Iiwx5wR4Giwi5yR4Iizwix5zR4Giziyi5{R4Si{i5|R4Ii}zix5}R4Gi}i{i5~R4Si~i5R4Ii}ix5R4Si4Gii~i55qR4Ii5R4Si4Gii55R4Rii5R4Qii 5R4Qii 5R&�����h���x���]4�56p�������g��obj  ��g��filenamef��rnrs/records/procedural.scm  �   ��g��nameg�� r6rs-raise�CpR&��h���`���]4L��56�������X�������g�� continuation  ��   ��g��nameg��r6rs-raise-continuable-internal�C�����h������]�O�B������|�������g��obj  ��g��filenamef��rnrs/records/procedural.scm  �  ��g��nameg��r6rs-raise-continuable�CRC�������I������g��m  +�g��iface 2 ��g��iface � J�g��iface Q �g��iface  j��g��filenamef��rnrs/records/procedural.scm    <   ?   @   A   B   C   D   E   F   G   I   J   K   M I  M   P 3  O   V  P U  Z \  ^  @ �   �   �   �   �   �   �   �   �   �   �  4 �  G �  U   j                     {     �.   ���C6������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/rnrs/records/inspection.go���������������������������������������������������������������0000644�����������������00000012223�15146341264�0013406 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0{������]�_�4�������h������]� g��guile � g��define-module* � � g��rnrs g��records g�� inspection � g��filenameS f��rnrs/records/inspection.scm g��pureS g��versionS  � g��set-current-module � � g��resolve-r6rs-interface � � g�� arithmetic g��bitwise � g��call-with-deferred-observers � � g��module-use-interfaces! � � g��current-module � � !g��base "!� #g�� procedural $#� %g��only &g�� struct-ref 'g�� struct-vtable (g��vtable-index-layout )g��@@ *%&'()� +g��module-export! ,+� -+� .g��record-field-mutable? /g��record-type-field-names 0g��record-type-opaque? 1g��record-type-sealed? 2g��record-type-generative? 3g��record-type-uid 4g��record-type-parent 5g�� record-rtd 6./012345� 7g��module-re-export! 87� 97� :g��module-replace! ;:� <:� =g��record-type-name >g��record? ?=>� @#� Ag��record-internal? B@A� C@A� Dg��rtd-index-name E@D� F@D� Gg��rtd-index-parent H@G� I@G� Jg�� rtd-index-uid K@J� L@J� Mg��rtd-index-sealed? N@M� O@M� Pg��rtd-index-opaque? Q@P� R@P� Sg��rtd-index-field-names T@S� U@S� Vg��rtd-index-field-bit-field W@V� X@V� Yg��assertion-violation Zf�� not a record [g��record-type-descriptor? \f��not a record type descriptor ]g�� guarantee-rtd ^g��bitwise-bit-set?C�5h� ��Y��]4     5�4�>��"��G���45�4 �h���M���]�45�L��6E�������g��filenamef��rnrs/records/inspection.scm  �   ���C�O�>��"��G���4"5�4 ��h���M���]�45�L��6E�������g��filenamef��rnrs/records/inspection.scm  �   ���C�O�>��"��G���4$5�4 ��h���M���]�45�L��6E�������g��filenamef��rnrs/records/inspection.scm  �   ���C�O�>��"��G���4*5�4 ��h���M���]�45�L��6E�������g��filenamef��rnrs/records/inspection.scm  �   ���C�O�>��"��G���4- 6�h���M���]�45�6���E�������g��filenamef��rnrs/records/inspection.scm  �  ���C>��"��G��49 ���h���M���]�45�6����E�������g��filenamef��rnrs/records/inspection.scm  �  ���C>��"��G��4< ?�h���M���]�45�6���E�������g��filenamef��rnrs/records/inspection.scm  �  ���C>��"��G��CARFDRIGRLJROMRRPRUSRXVRA0������h ���t���]4�5$�� 4�5CC�������l�������g��obj  ��g��filenamef��rnrs/records/inspection.scm / �   ��g��nameg��record?�C>RAPY5Z���h@������] 4�5$���$��"��"��$��C�6��������g��record  ?�g��rtd  %�g��t * ?��g��filenamef��rnrs/records/inspection.scm 3  ; 7 )�  ? ��g��nameg�� record-rtd�C5R[Y\���h ������]45$��C�6�������������g��who  �g��rtd  ��g��filenamef��rnrs/records/inspection.scm 9   < !�   ��g��nameg�� guarantee-rtd�C]R]=D��������h���}���]4�5C�u�������g��rtd  ��g��filenamef��rnrs/records/inspection.scm > �   ��g��nameg��record-type-name�C=R]4G������h������]4�5C�w�������g��rtd  ��g��filenamef��rnrs/records/inspection.scm @ �   ��g��nameg��record-type-parent�C4R]3J����h���|���]4�5C�t�������g��rtd  ��g��filenamef��rnrs/records/inspection.scm B �   ��g��nameg��record-type-uid�C3R3]2�������h������]44�55C������|�������g��rtd  ��g��filenamef��rnrs/records/inspection.scm D �   ��g��nameg��record-type-generative?�C2R]1M�������h������]4�5C�x�������g��rtd  ��g��filenamef��rnrs/records/inspection.scm F �   ��g��nameg��record-type-sealed?�C1R]0P���h������]4�5C�x�������g��rtd  ��g��filenamef��rnrs/records/inspection.scm H �   ��g��nameg��record-type-opaque?�C0R]/S���h������]4�5C�|�������g��rtd  ��g��filenamef��rnrs/records/inspection.scm J �   ��g��nameg��record-type-field-names�C/R^].V�����h������]4�56�����������g��rtd  �g��k  ��g��filenamef��rnrs/records/inspection.scm L �   ��g��nameg��record-field-mutable?�C.RC��Q������g��m  +�g��iface 2 ��g��iface � J�g��iface Q �g��iface  j��g��filenamef��rnrs/records/inspection.scm    #   %   &   '   (   )   *   ,   /   3   9  0 >   @   B  7 D  F  H  7 J  L �  ���C6������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/rnrs/records/syntactic.go����������������������������������������������������������������0000644�����������������00000052104�15146341264�0013236 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0,T������]�4��hF&������]� g��guile � g��define-module* � � g��rnrs g��records g�� syntactic � g��filenameS f��rnrs/records/syntactic.scm g��pureS g��versionS  � g��set-current-module � � g��resolve-r6rs-interface � � g��only g��and=> g��gensym � g��call-with-deferred-observers � � g��module-use-interfaces! � � g��current-module � !� "g��base #"� $g�� conditions %$� &g�� exceptions '&� (g�� hashtables )(� *g��lists +*� ,g�� procedural -,� .g�� syntax-case /.� 0g��srfi 1g��:1 201� 3g��take 423� 5g��module-export! 65� 75� 8g��record-constructor-descriptor 9g��define-record-type :89� ;g��module-re-export! <;� =;� >g��module-replace! ?>� @>� Ag��record-type-descriptor BA� Cg��make-eq-hashtable Dg��record-type-registry Eg��string->symbol Fg�� string-append Gf��make- Hg��symbol->string Ig��guess-constructor-name Jf��? Kg��guess-predicate-name Lg��hashtable-set! Mg��register-record-type Ng�� hashtable-ref Og��car Pg��lookup-record-type-descriptor Qg��cdr Rg��$lookup-record-constructor-descriptor Sg��make-syntax-transformer TS� US� Vg��macro Wg�� $sc-dispatch XW� YW� Zg��_ [g��any \[[[� ]g��each-any ^\] _Z^ `g�� syntax-object ag��define-record-type0 bg��top cb� dg��ribcage eg�� record-name fg��constructor-name gg��predicate-name hg�� record-clause iefgh� jcccc� kf��l-17a5c5a65d375-22 lf��l-17a5c5a65d375-23 mf��l-17a5c5a65d375-24 nf��l-17a5c5a65d375-25 oklmn� pdijo� qd� rg��stx sr� tc� uf��l-17a5c5a65d375-1f vu� wdstv� xcpqw� yg��private zy� {`axz� |[] }Z| ~g�� syntax->datum g�� datum->syntax �[[� �g��t-17a5c5a65d375-38 �g��t-17a5c5a65d375-37 �� �g��m-17a5c5a65d375-39 �b� �� �f��l-17a5c5a65d375-3d �f��l-17a5c5a65d375-3e �� �d� �g� �f��l-17a5c5a65d375-35 �� �dt� �f� �f��l-17a5c5a65d375-33 �� �dt� �g��record-name-sym �� �f��l-17a5c5a65d375-31 �� �dt� �eh� �cc� �f��l-17a5c5a65d375-2c �f��l-17a5c5a65d375-2d �� �d� �cqqqqqqqqw� �`az� �g��syntax-violation �� �� �f��-source expression failed to match any pattern � � �g��reverse �g��sequence �g�� number-fields �g��free-id �g�� immutable �g��x �� �f��l-17a5c5a65d375-135 �� �dt� �g��f �g��guess-mutator-name �g��guess-accessor-name �g��record-name-str �g�� id->string �g��wrap �� �cccccc� �f��l-17a5c5a65d375-12a �f��l-17a5c5a65d375-128 �f��l-17a5c5a65d375-126 �f��l-17a5c5a65d375-124 �f��l-17a5c5a65d375-122 �f��l-17a5c5a65d375-120 �� �d� �g��fields �e� �f��l-17a5c5a65d375-11e �f��l-17a5c5a65d375-11f �� �d� �cq� �`z� �� �[� �f��- �[[� �g��mutable �`z� �� �[� �f��-set! �[[[� �g�� identifier? �f��invalid field specifier �g��map �g��process-fields �g�� list->vector �g�� fold-left �g��define �g��t-17a5c5a65d375-79 �g��t-17a5c5a65d375-78 �� �g��m-17a5c5a65d375-7a �b� �� �f��l-17a5c5a65d375-7e �f��l-17a5c5a65d375-7f �� �d� �g��lst �g��c �� �ccc� �f��l-17a5c5a65d375-75 �f��l-17a5c5a65d375-76 �f��l-17a5c5a65d375-77 �� �d� �g�� field-names �� �f��l-17a5c5a65d375-6e �� �dt� �� �f��l-17a5c5a65d375-6c �� �dt� �g��loop �g��_fields �g��_parent �g�� _protocol �g��_sealed �g��_opaque �g��_nongenerative �g�� _constructor �g�� _parent-rtd �g��record-clauses ��  �cccccccccc�  �f��l-17a5c5a65d375-54 f��l-17a5c5a65d375-55 f��l-17a5c5a65d375-56 f��l-17a5c5a65d375-57 f��l-17a5c5a65d375-58 f��l-17a5c5a65d375-59 f��l-17a5c5a65d375-5a f��l-17a5c5a65d375-5b f��l-17a5c5a65d375-5c  f��l-17a5c5a65d375-5d  � �   d �  f��l-17a5c5a65d375-4c  f��l-17a5c5a65d375-4d f��l-17a5c5a65d375-4e f��l-17a5c5a65d375-4f   � dij� g�� unspecified? g�� *unspecified* � cc� f��l-17a5c5a65d375-46 f��l-17a5c5a65d375-44 � d� f��l-17a5c5a65d375-43 � dst� cqqqqq � `z� g��record-accessor  `z� !g��length "g��t-17a5c5a65d375-8b #g��t-17a5c5a65d375-8a $"#� %g��m-17a5c5a65d375-8c &%b� '&&� (f��l-17a5c5a65d375-90 )f��l-17a5c5a65d375-91 *()� +d$'*� ,f��l-17a5c5a65d375-87 -f��l-17a5c5a65d375-88 .f��l-17a5c5a65d375-89 /,-.� 0d/� 1g��field-accessors 21� 3f��l-17a5c5a65d375-70 43� 5d2t4� 6cq+q0q5qqq � 7`6z� 8g��record-mutator 9`86z� :g��t-17a5c5a65d375-97 ;:� <g��m-17a5c5a65d375-98 =<b� >=� ?f��l-17a5c5a65d375-9b @?� Ad;>@� Bg��field-mutators CB� Df��l-17a5c5a65d375-82 ED� FdCtE� GcqAqFq5qqq � H`8Gz� Ig��t-17a5c5a65d375-a0 JI� Kg��m-17a5c5a65d375-a1 LKb� ML� Nf��l-17a5c5a65d375-a4 ON� PdJMO� Qg�� parent-cd RQ� Sf��l-17a5c5a65d375-94 TS� UdRtT� VcqPqUqFq5qqq � W`AVz� X[[[[[[[[[]]�  Yg��begin Zg��t-17a5c5a65d375-b2 [g��t-17a5c5a65d375-b1 \g��t-17a5c5a65d375-b0 ]g��t-17a5c5a65d375-af ^g��t-17a5c5a65d375-ae _g��t-17a5c5a65d375-b4 `g��t-17a5c5a65d375-b3 ag��t-17a5c5a65d375-b6 bg��t-17a5c5a65d375-b5 cg��t-17a5c5a65d375-b8 dg��t-17a5c5a65d375-b7 eZ[\]^_`abcd�  fg��m-17a5c5a65d375-b9 gfb� hggggggggggg�  if��l-17a5c5a65d375-bd jf��l-17a5c5a65d375-be kf��l-17a5c5a65d375-bf lf��l-17a5c5a65d375-c0 mf��l-17a5c5a65d375-c1 nf��l-17a5c5a65d375-c2 of��l-17a5c5a65d375-c3 pf��l-17a5c5a65d375-c4 qf��l-17a5c5a65d375-c5 rf��l-17a5c5a65d375-c6 sf��l-17a5c5a65d375-c7 tijklmnopqrs�  udeht� vg��opaque? wv� xf��l-17a5c5a65d375-ac yx� zdwty� {g��sealed? |{� }f��l-17a5c5a65d375-aa ~}� d|t~� g��uid � f��l-17a5c5a65d375-a8 � dt� g��protocol � f��l-17a5c5a65d375-a6 � dt� g�� parent-rtd � f��l-17a5c5a65d375-9d � dt� cquqqqqzqqqqqUqFq5qqq � `Yz� `z� g��make-record-type-descriptor `z� g��quote `z� g��record-constructor `z� g��"make-record-constructor-descriptor `z� g��dummy `z� g��let `z� `Mz� � � g��record-predicate `z� g��append � � cq � `z� � ] [ g��raise g��make-assertion-violation g��parent `z� � [� [ `z� � [� [ g��sealed `z� � [� [ g��opaque `z� � [� [ g�� nongenerative `z� � � [ g��t-17a5c5a65d375-f2 � g��m-17a5c5a65d375-f3 b� � f��l-17a5c5a65d375-f6 � d� g��rest � f��l-17a5c5a65d375-f0 � dt� cqq �  `z� [� [ � f��l-17a5c5a65d375-f9 f��l-17a5c5a65d375-fa � d� cq � `z� `z� � [[� [ Z[� g��t-17a5c5a65d375-10a � g��m-17a5c5a65d375-10b b� � f��l-17a5c5a65d375-10e � d� g��name � f��l-17a5c5a65d375-108 � dt� f��l-17a5c5a65d375-105 � dst� cqq� `Pz� g��t-17a5c5a65d375-116 � g��m-17a5c5a65d375-117 b� � f��l-17a5c5a65d375-11a � d� f��l-17a5c5a65d375-114 � dt� f��l-17a5c5a65d375-111 �� dst�� cqq� `Rz�C�5�����hX*��b��]4     5�4�>��"��G���45�4!�h���L���]�45�L��6D�������g��filenamef��rnrs/records/syntactic.scm  �   ���C�O�>��"��G���4#5�4!���h���L���]�45�L��6D�������g��filenamef��rnrs/records/syntactic.scm  �   ���C�O�>��"��G���4%5�4!���h���L���]�45�L��6D�������g��filenamef��rnrs/records/syntactic.scm  �   ���C�O�>��"��G���4'5�4!���h���L���]�45�L��6D�������g��filenamef��rnrs/records/syntactic.scm  �   ���C�O�>��"��G���4)5�4!���h���L���]�45�L��6D�������g��filenamef��rnrs/records/syntactic.scm  �   ���C�O�>��"��G���4+5�4!���h���L���]�45�L��6D�������g��filenamef��rnrs/records/syntactic.scm  �   ���C�O�>��"��G���4-5�4!���h���L���]�45�L��6D�������g��filenamef��rnrs/records/syntactic.scm  �   ���C�O�>��"��G���4/5�4!���h���L���]�45�L��6D�������g��filenamef��rnrs/records/syntactic.scm  �   ���C�O�>��"��G���445�4!���h���L���]�45�L��6D�������g��filenamef��rnrs/records/syntactic.scm  �   ���C�O�>��"��G���47!:��h���L���]�45�6���D�������g��filenamef��rnrs/records/syntactic.scm  �  ���C>��"��G��4=!����h���L���]�45�6����D�������g��filenamef��rnrs/records/syntactic.scm  �  ���C>��"��G��4@!B��h���L���]�45�6���D�������g��filenamef��rnrs/records/syntactic.scm  �  ���C>��"��G��4Ci5�DREFGH�h������]44�556�����������g�� record-name  ��g��filenamef��rnrs/records/syntactic.scm #  $ #�   ��g��nameg��guess-constructor-name�CIREFHJ�������h������]44�556�����������g�� record-name  ��g��filenamef��rnrs/records/syntactic.scm %   & @�   ��g��nameg��guess-predicate-name�CKRLD�����h������]�6��������g��name  �g��rtd  �g��rcd   ��g��filenamef��rnrs/records/syntactic.scm ' �   ��g��nameg��register-record-type�CMRNDO������h������]4�56�������������g��name  ��g��filenamef��rnrs/records/syntactic.scm ) �   ��g��nameg��lookup-record-type-descriptor�CPRNDQ�������h������]4�56�������������g��name  ��g��filenamef��rnrs/records/syntactic.scm + �   ��g��nameg��$lookup-record-constructor-descriptor�CRR4U9VY_{��h������]��C�������������g�� record-name  �g��constructor-name  �g��predicate-name   �g�� record-clause   ��   ���C}~IKY���h���Z���]L��L�C������R�������g��t-17a5c5a65d375-38  �g��t-17a5c5a65d375-37  ��   ���C� ������h`������]*4�54�4554�455�45$�� �O�@ 6������������g�� record-name  [�g�� record-clause  [�g��record-name-sym  [�g��constructor-name   [�g��predicate-name  ) [�g��tmp  2 [�g��tmp  = [��  [ ���C��h@���L���]4�5$��@4�5$��@�6�������D�������g��stx  9�g��tmp 9�g��tmp  " 9��  9 ���C59R��������h ���?���]� $��C�4L��5C�������7�������g��n  ��   ��g��nameg�� seq-inner�C����h ������] O�Q�4�56�������������g��n  �g�� seq-inner ��g��filenamef��rnrs/records/syntactic.scm A �   ��g��nameg��sequence�CR��h ���c���]�(��C�4L��5C����[�������g��fields  �g��counter  ��   ��g��nameg��number-fields-inner�C��h������] O�Q�� 6���������g��fields  �g��number-fields-inner ��g��filenamef��rnrs/records/syntactic.scm D �   ��g��nameg�� number-fields�CRY~EFH�hP���}���] 4�5�4L544M�44�55554L5�C�������u�������g��name  I�g��x  �g��x 6 D��g��filenamef��rnrs/records/syntactic.scm & T (�  I ���C~�������h(���Q���] 4�5�4L�5�C�����I�������g��name  #�g��accessor  #�g��x   ��  # ���C~EFH� hx������] 4�5�4L544M�44�55554L544M�44�55554L5�C�������������g��name  r�g��x  �g��x 6 D�g��x ` n��g��filenamef��rnrs/records/syntactic.scm & T ( N Y  \ Y 5�  r ���C~�h(���f���] 4�5�4L�5�C����^�������g��name  $�g��accessor  $�g��mutator   $�g��x   ��  $ ���C����h���,���]�6$�������g��name  ��   ���C~EFH��hP���}���] 4�5�4L544M�44�55554L5�C�������u�������g��name  I�g��x  �g��x 6 D��g��filenamef��rnrs/records/syntactic.scm & T (�  I ���C9��h������])4�5$�� LL�O�@4�5$�� L�O�@4�5$�� LL�O�@4�5$��  L�O�@��4 ?$��  LL�O�@  �6��������g��x  ��g��tmp ��g��tmp  ) ��g��tmp  E ��g��tmp  c ��g��tmp  { ���g��filenamef��rnrs/records/syntactic.scm � n /�  � ��g��nameg��f�CH~�������h0������]HO��Q�44�55K6������������g�� record-name  +�g��fields  +�g��record-name-str   +�g��f   +��g��filenamef��rnrs/records/syntactic.scm L �  + ��g��nameg��process-fields�CR4UaVY_YOY ���h���Z���]�L���C�����R�������g��t-17a5c5a65d375-79  �g��t-17a5c5a65d375-78  ��   ���C�������hH���k���]�45$��4L�O�?"�� 45�C������c�������g��lst  B�g��x  B�g��c   B�g��tmp  >�g��tmp   ;��  B ���C!Y79�h���Z���]�L���C�����R�������g��t-17a5c5a65d375-8b  �g��t-17a5c5a65d375-8a  ��   ���C�������hP���k���]$��A�45$��4L�O�?"�� 45�C�C�c�������g��lst  O�g��x  O�g��c   O�g��tmp   H�g��tmp  E��  O ���CHWYX� �h�����,� 3� LL����L�L��� L�LL�� �L L��4   5C�������~������g��t-17a5c5a65d375-b2  ��g��t-17a5c5a65d375-b1  ��g��t-17a5c5a65d375-b0   ��g��t-17a5c5a65d375-af   ��g��t-17a5c5a65d375-ae   ��g��t-17a5c5a65d375-b4   ��g��t-17a5c5a65d375-b3   ��g��t-17a5c5a65d375-b6   ��g��t-17a5c5a65d375-b5   ��g��t-17a5c5a65d375-b8  ��g��t-17a5c5a65d375-b7  ���   � ���C���h`�����]844LL�&��"��L�55�4LO�LL�&��"��L�44LL�&��"��L�5554LO�LL�&��"��L�44LL�&��"��L�555LL&��LL&��"��L"�� L�LL&��LL&��"��L"�� L�LL&��"��LLL&��"��LLL&��"��L�LL&��"��LLL&��"��L� 4  5$�� L L LO�@6����������g�� field-names  ]�g��field-accessors T ]�g��field-mutators  � ]�g�� parent-cd  � ]�g�� parent-rtd  � ]�g��tmp  2 ]�g��tmp  = ]��  ] ���C��������h0���G���]L L &��L�4L�5LLLLLLL6 45�6?�������g�� record-fields  0�g��rest  0��  0 ���C����h@���E���]L L&��'L L�&��LL�LLLLLL6 45�645�6������=�������g�� parent-name  :�g��rest  :��  : ���C������h0���D���]L L&��L�LL�LLLLL6 45�6�������<�������g�� expression  )�g��rest  )��  ) ���C�������h0���A���]L L&��L�LLL�LLLL6 45�6�������9�������g��sealed?  )�g��rest  )��  ) ���C��h0���A���]L L&��L�LLLL�LLL6 45�6�������9�������g��opaque?  )�g��rest  )��  ) ���C���h@���<���] L L &��,L�LLLLL4L45�5�LL�6 45�6�4�������g��rest  ?�g��tmp " .��  ? ���C����h0���=���]L L&��L�LLLLL��LL6 45�6��5�������g��uid  .�g��rest  .��  . ���C������h@���M���]L L&��,L L�&��LLLLLLLL��6 45�645�6�E�������g��rtd  ?�g��cd  ?�g��rest   ?��  ? ���C����h����,� 3�45  $���LLLLO�  @45  $��L�L�LO�  @45  $���L�LO�  @45  $��L��LO�  @4 5  $�� L��LO�  @4 5$�� L��LO� @4 5$��L��LLO� @45$��L��LO� @45$���L�LO� @6������������g��_fields  �g��_parent  �g�� _protocol   �g��_sealed   �g��_opaque   �g��_nongenerative   �g�� _constructor   �g�� _parent-rtd   �g��record-clauses   �g��tmp  �g��tmp > �g��tmp n �g��tmp � �g��tmp � �g��tmp  � �g��tmp  & �g��tmp  V �g��tmp   ��   ��g��nameg��loop�C��h8������] O��L�Q�L�L�L�L�L�L�L�L�6 ��������������g�� record-name  1�g��constructor-name  1�g��predicate-name   1�g�� record-clause   1�g��loop   1��  1 ���C�������h0���V���]4�5$�� O�@�6����N�������g��stx  ,�g�� *unspecified*  ,�g��tmp   ,��  , ���C5aR4UAVY~��h ���<���] 4L�4�5�5�C�4�������g��name  �g��tmp  ��   ���C�����h(���;���] 4�5$�� �O�@�6�3�������g��stx  '�g��tmp '��  ' ���C5AR4U8VY~�����h ���<���] 4L�4�5�5�C�4�������g��name  �g��tmp  ��   ���C�����h(���;���] 4�5$�� �O�@�6�3�������g��stx  '�g��tmp '��  ' ���C58RC������Z������g��m  +�g��iface 2 ��g��iface � I�g��iface P �g��iface  i�g��iface p �g��iface � �g��iface  �g��iface  �g��iface  9�� g��filenamef��rnrs/records/syntactic.scm    !   #  K %   '  )  +   A  O D  ] L �  *R ���C6�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/rnrs/arithmetic/bitwise.go���������������������������������������������������������������0000644�����������������00000010377�15146341264�0013401 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�c�4���h������]� g��guile � g��define-module* � � g��rnrs g�� arithmetic g��bitwise � g��filenameS f��rnrs/arithmetic/bitwise.scm g��pureS g��versionS  � g��set-current-module � � g��resolve-r6rs-interface � � g��base � g��call-with-deferred-observers � � g��module-use-interfaces! � � g��current-module � � g��control ! � "g��rename #g��only $g��srfi %g��srfi-60 &$%� 'g�� bitwise-if (g��integer-length )g�� first-set-bit *g��copy-bit +g�� bit-field ,g��copy-bit-field -g��rotate-bit-field .g��reverse-bit-field /#&'()*+,-.�  0g��bitwise-length 1(0� 2g��bitwise-first-bit-set 3)2� 4g��bitwise-bit-field 5+4� 6g��bitwise-reverse-bit-field 7.6� 8"/1357� 9g��lognot :g��logand ;g��logior <g��logxor =g��logcount >g��logbit? ?g��modulo @g��ash A#9:;<=>?@�  Bg�� bitwise-not C9B� Dg�� bitwise-and E:D� Fg�� bitwise-ior G;F� Hg�� bitwise-xor I<H� Jg��bitwise-arithmetic-shift K@J� L"ACEGIK� Mg��module-export! NM� OM� Pg��bitwise-rotate-bit-field Qg��bitwise-arithmetic-shift-right Rg��bitwise-arithmetic-shift-left Sg��bitwise-copy-bit-field Tg��bitwise-copy-bit Ug��bitwise-bit-set? Vg��bitwise-bit-count WPQRSTUV� Xg��module-re-export! YX� ZX� [6J420'HFDB�  \g��module-replace! ]\� ^\� _9� `9� a@� b@�C�5���h�����]4     5�4�>��"��G���45�4�h���M���]�45�L��6E�������g��filenamef��rnrs/arithmetic/bitwise.scm  �   ���C�O�>��"��G���4!5�4��h���M���]�45�L��6E�������g��filenamef��rnrs/arithmetic/bitwise.scm  �   ���C�O�>��"��G���485�4��h���M���]�45�L��6E�������g��filenamef��rnrs/arithmetic/bitwise.scm  �   ���C�O�>��"��G���4L5�4��h���M���]�45�L��6E�������g��filenamef��rnrs/arithmetic/bitwise.scm  �   ���C�O�>��"��G���4OW�h���M���]�45�6���E�������g��filenamef��rnrs/arithmetic/bitwise.scm  �  ���C>��"��G��4Z[�h���M���]�45�6���E�������g��filenamef��rnrs/arithmetic/bitwise.scm  �  ���C>��"��G��4^���h���M���]�45�6����E�������g��filenamef��rnrs/arithmetic/bitwise.scm  �  ���C>��"��G��`=������h ���}���]� $�� 4�56�6�����u�������g��ei  ��g��filenamef��rnrs/arithmetic/bitwise.scm E �   ��g��nameg��bitwise-bit-count�CVR>��h������]�6�������������g��ei1  �g��ei2  ��g��filenamef��rnrs/arithmetic/bitwise.scm J �  ��g��nameg��bitwise-bit-set?�CUR*>�������h������]�4 56�������������g��ei1  �g��ei2  �g��ei3   ��g��filenamef��rnrs/arithmetic/bitwise.scm L �   ��g��nameg��bitwise-copy-bit�CTR,��������h������]�6���������g��ei1  �g��ei2  �g��ei3   �g��ei4   ��g��filenamef��rnrs/arithmetic/bitwise.scm S �   ��g��nameg��bitwise-copy-bit-field�CSR-�h������]�6���������g��ei1  �g��ei2  �g��ei3   �g��ei4   ��g��filenamef��rnrs/arithmetic/bitwise.scm V �   ��g��nameg��bitwise-rotate-bit-field�CPRbRR������h������]� C�������������g��ei1  �g��ei2  ��g��filenamef��rnrs/arithmetic/bitwise.scm Z �  ��g��nameg��bitwise-arithmetic-shift-right�CQRC��������������g��m  +�g��iface 2 ��g��iface � J�g��iface Q �g��iface  j��g��filenamef��rnrs/arithmetic/bitwise.scm    E  Q J  " L   S   V   Y   Z �   ���C6������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/rnrs/arithmetic/flonums.go���������������������������������������������������������������0000644�����������������00000035461�15146341264�0013417 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0;������]��4�������h ������]� g��guile � g��define-module* � � g��rnrs g�� arithmetic g��flonums � g��filenameS f��rnrs/arithmetic/flonums.scm g��pureS g��versionS  � g��set-current-module � � g��resolve-r6rs-interface � � g��ice-9 g��optargs � g��call-with-deferred-observers � � g��module-use-interfaces! � � g��current-module � � !g��only "g��inf? #!"� $g��fixnums %$� &g��base '&� (g��control )(� *g�� conditions +*� ,g�� exceptions -,� .g��lists /.� 0g��r5rs 10� 2g��module-export! 32� 42� 5g��fixnum->flonum 6g��no-nans-violation? 7g��make-no-nans-violation 8g��&no-nans 9g��no-infinities-violation? :g��make-no-infinities-violation ;g��&no-infinities <g��flexpt =g��flsqrt >g��flatan ?g��flasin @g��flacos Ag��fltan Bg��flcos Cg��flsin Dg��fllog Eg��flexp Fg��flround Gg�� fltruncate Hg�� flceiling Ig��flfloor Jg�� fldenominator Kg�� flnumerator Lg��flmod0 Mg��fldiv0 Ng��fldiv0-and-mod0 Og��flmod Pg��fldiv Qg�� fldiv-and-mod Rg��flabs Sg��fl/ Tg��fl- Ug��fl* Vg��fl+ Wg��flmin Xg��flmax Yg��flnan? Zg�� flinfinite? [g�� flfinite? \g��fleven? ]g��flodd? ^g�� flnegative? _g�� flpositive? `g��flzero? ag�� flinteger? bg��fl>=? cg��fl>? dg��fl<=? eg��fl<? fg��fl=? gg�� real->flonum hg��flonum? i56789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefgh�4 jg��module-re-export! kj� lj� mg��module-replace! nm� om� pg��real? qg��inexact? rg��for-all sg��raise tg��make-assertion-violation ug�� assert-flonum vg��integer? wg��assert-iflonum xg�� imag-part yg�� real-part ze��+nan.0 {g�� ensure-flonum |g��exact->inexact }g��apply ~g��= g��< �g��<= �g��> �g��>= �g��odd? �g��even? �g��nan? �g��max �g��min �e��0.0 �g��+ �e��1.0 �g��* �g��- �g��/ �g��abs �g�� div-and-mod �g��div �g��mod �g�� div0-and-mod0 �g��div0 �g��mod0 �g�� numerator �g�� denominator �g��floor �g��ceiling �g��truncate �g��round �g��exp �g��log �g��sin �g��cos �g��tan �g��asin �g��acos �g��atan �g��sqrt �g��expt �*� �g��make-record-type-descriptor �� �� �g��&implementation-restriction �g�� list->vector �� �� �g��record-constructor �� �� �g��"make-record-constructor-descriptor �� �� �g��condition-predicate �� �� �g��fixnum?C�5���h+����]4     5�4�>��"��G���45�4 �h���M���]�45�L��6E�������g��filenamef��rnrs/arithmetic/flonums.scm  �   ���C�O�>��"��G���4#5�4 ��h���M���]�45�L��6E�������g��filenamef��rnrs/arithmetic/flonums.scm  �   ���C�O�>��"��G���4%5�4 ��h���M���]�45�L��6E�������g��filenamef��rnrs/arithmetic/flonums.scm  �   ���C�O�>��"��G���4'5�4 ��h���M���]�45�L��6E�������g��filenamef��rnrs/arithmetic/flonums.scm  �   ���C�O�>��"��G���4)5�4 ��h���M���]�45�L��6E�������g��filenamef��rnrs/arithmetic/flonums.scm  �   ���C�O�>��"��G���4+5�4 ��h���M���]�45�L��6E�������g��filenamef��rnrs/arithmetic/flonums.scm  �   ���C�O�>��"��G���4-5�4 ��h���M���]�45�L��6E�������g��filenamef��rnrs/arithmetic/flonums.scm  �   ���C�O�>��"��G���4/5�4 ��h���M���]�45�L��6E�������g��filenamef��rnrs/arithmetic/flonums.scm  �   ���C�O�>��"��G���415�4 ��h���M���]�45�L��6E�������g��filenamef��rnrs/arithmetic/flonums.scm  �   ���C�O�>��"��G���44 i�h���M���]�45�6���E�������g��filenamef��rnrs/arithmetic/flonums.scm  �  ���C>��"��G��4l ���h���M���]�45�6����E�������g��filenamef��rnrs/arithmetic/flonums.scm  �  ���C>��"��G��4o ���h���M���]�45�6����E�������g��filenamef��rnrs/arithmetic/flonums.scm  �  ���C>��"��G��pq������h���t���]4�5$���6C���l�������g��obj  ��g��filenamef��rnrs/arithmetic/flonums.scm E �   ��g��nameg��flonum?�ChRrhst�����h(������-��1��3�4�5$��C45�6���������g��args &�g��t  &��g��filenamef��rnrs/arithmetic/flonums.scm F � & ��g��nameg�� assert-flonum�CuRrhv�������h���)���]4�5$���6C���!�������g��i  ��   ���Cst��������h(������-��1��3�4�5$��C45�6���������g��args &�g��t  &��g��filenamef��rnrs/arithmetic/flonums.scm H � & ��g��nameg��assert-iflonum�CwRpxyz�����h(������]4�5$���C4�5 $���6C��x�������g��z  &��g��filenamef��rnrs/arithmetic/flonums.scm L  % O �  & ��g��nameg�� ensure-flonum�C{Rpst|�h8������] 4�5$��"��445�>��"��G���6�����}�������g��x  3�g��t -��g��filenamef��rnrs/arithmetic/flonums.scm Q �  3 ��g��nameg�� real->flonum�CgR}u~������h(���t���-��1��3�4�>��"��G���@�����l�������g��args #��g��filenamef��rnrs/arithmetic/flonums.scm U � # ��g��nameg��fl=?�CfR}u�������h(���t���-��1��3�4�>��"��G���@�����l�������g��args #��g��filenamef��rnrs/arithmetic/flonums.scm V � # ��g��nameg��fl<?�CeR}u�������h(���u���-��1��3�4�>��"��G���@�����m�������g��args #��g��filenamef��rnrs/arithmetic/flonums.scm W � # ��g��nameg��fl<=?�CdR}u������h(���t���-��1��3�4�>��"��G���@�����l�������g��args #��g��filenamef��rnrs/arithmetic/flonums.scm X � # ��g��nameg��fl>?�CcR}u�������h(���u���-��1��3�4�>��"��G���@�����m�������g��args #��g��filenamef��rnrs/arithmetic/flonums.scm Y � # ��g��nameg��fl>=?�CbRuv��������h ���v���]4�>��"��G���6������n�������g��fl  ��g��filenamef��rnrs/arithmetic/flonums.scm [ �   ��g��nameg�� flinteger?�CaRu�h ���s���]4�>��"��G��� C�������k�������g��fl  ��g��filenamef��rnrs/arithmetic/flonums.scm \ �   ��g��nameg��flzero?�C`Ru����h ���w���]4�>��"��G��� C�������o�������g��fl  ��g��filenamef��rnrs/arithmetic/flonums.scm ] �   ��g��nameg�� flpositive?�C_Ru��������h ���w���]4�>��"��G��� C�������o�������g��fl  ��g��filenamef��rnrs/arithmetic/flonums.scm ^ �   ��g��nameg�� flnegative?�C^Rw������h ���s���]4�>��"��G���6������k�������g��ifl  ��g��filenamef��rnrs/arithmetic/flonums.scm _ �   ��g��nameg��flodd?�C]Rw��h ���t���]4�>��"��G���6������l�������g��ifl  ��g��filenamef��rnrs/arithmetic/flonums.scm ` �   ��g��nameg��fleven?�C\Ru"�������h8������] 4�>��"��G��4�5$��"��4�5C���{�������g��fl  5�g��t  3��g��filenamef��rnrs/arithmetic/flonums.scm a �  5 ��g��nameg�� flfinite?�C[Ru"��h ���w���]4�>��"��G���6������o�������g��fl  ��g��filenamef��rnrs/arithmetic/flonums.scm b �   ��g��nameg�� flinfinite?�CZRu������h ���r���]4�>��"��G���6������j�������g��fl  ��g��filenamef��rnrs/arithmetic/flonums.scm c �   ��g��nameg��flnan?�CYR}u�h0������-�1�3��4>��"��G��@�������������g��fl1 *�g��args *�g��flargs   *��g��filenamef��rnrs/arithmetic/flonums.scm e � * ��g��nameg��flmax�CXR}u��h0������-�1�3��4>��"��G��@�������������g��fl1 *�g��args *�g��flargs   *��g��filenamef��rnrs/arithmetic/flonums.scm j � * ��g��nameg��flmin�CWR}u��������h0���{���-��1��3�4�>��"��G���(��C�@����s�������g��args ,��g��filenamef��rnrs/arithmetic/flonums.scm o  % q � , ��g��nameg��fl+�CVR}u������h0���{���-��1��3�4�>��"��G���(��C�@����s�������g��args ,��g��filenamef��rnrs/arithmetic/flonums.scm s  % u � , ��g��nameg��fl*�CUR}u��������h0������-�1�3��4>��"��G��@�������������g��fl1 *�g��args *�g��flargs   *��g��filenamef��rnrs/arithmetic/flonums.scm w � * ��g��nameg��fl-�CTR}u����h0������-�1�3��4>��"��G��@�������������g��fl1 *�g��args *�g��flargs   *��g��filenamef��rnrs/arithmetic/flonums.scm | � * ��g��nameg��fl/�CSRu������h ���r���]4�>��"��G���6������j�������g��fl  ��g��filenamef��rnrs/arithmetic/flonums.scm � �   ��g��nameg��flabs�CRRw���h ������]4�>��"��G���6���������g��fl1  �g��fl2  ��g��filenamef��rnrs/arithmetic/flonums.scm � �   ��g��nameg�� fldiv-and-mod�CQRw�h ������]4�>��"��G���6��|�������g��fl1  �g��fl2  ��g��filenamef��rnrs/arithmetic/flonums.scm � �   ��g��nameg��fldiv�CPRw�h ������]4�>��"��G���6��|�������g��fl1  �g��fl2  ��g��filenamef��rnrs/arithmetic/flonums.scm � �   ��g��nameg��flmod�CORw�h ������]4�>��"��G���6���������g��fl1  �g��fl2  ��g��filenamef��rnrs/arithmetic/flonums.scm � �   ��g��nameg��fldiv0-and-mod0�CNRw�������h ������]4�>��"��G���6��}�������g��fl1  �g��fl2  ��g��filenamef��rnrs/arithmetic/flonums.scm � �   ��g��nameg��fldiv0�CMRw��������h ������]4�>��"��G���6��}�������g��fl1  �g��fl2  ��g��filenamef��rnrs/arithmetic/flonums.scm � �   ��g��nameg��flmod0�CLRu��������h ���x���]4�>��"��G���6������p�������g��fl  ��g��filenamef��rnrs/arithmetic/flonums.scm � �   ��g��nameg�� flnumerator�CKRu�����h ���z���]4�>��"��G���6������r�������g��fl  ��g��filenamef��rnrs/arithmetic/flonums.scm � �   ��g��nameg�� fldenominator�CJRu���h ���t���]4�>��"��G���6������l�������g��fl  ��g��filenamef��rnrs/arithmetic/flonums.scm � �   ��g��nameg��flfloor�CIRu�h ���v���]4�>��"��G���6������n�������g��fl  ��g��filenamef��rnrs/arithmetic/flonums.scm � �   ��g��nameg�� flceiling�CHRu�������h ���w���]4�>��"��G���6������o�������g��fl  ��g��filenamef��rnrs/arithmetic/flonums.scm � �   ��g��nameg�� fltruncate�CGRu������h ���t���]4�>��"��G���6������l�������g��fl  ��g��filenamef��rnrs/arithmetic/flonums.scm � �   ��g��nameg��flround�CFRu�h ���r���]4�>��"��G���6������j�������g��fl  ��g��filenamef��rnrs/arithmetic/flonums.scm � �   ��g��nameg��flexp�CERu{�������hX������)���#3�4�>��"��G��4�56]4�>��"��G��4�5456�������g��fl )�g��fl + X�g��fl2 + X��g��filenamef��rnrs/arithmetic/flonums.scm $ � ! H � $ R � %� ) � + X ��g��nameg��fllog�CDRu��������h ���r���]4�>��"��G���6������j�������g��fl  ��g��filenamef��rnrs/arithmetic/flonums.scm � �   ��g��nameg��flsin�CCRu���h ���r���]4�>��"��G���6������j�������g��fl  ��g��filenamef��rnrs/arithmetic/flonums.scm � �   ��g��nameg��flcos�CBRu���h ���r���]4�>��"��G���6������j�������g��fl  ��g��filenamef��rnrs/arithmetic/flonums.scm � �   ��g��nameg��fltan�CARu{�h ���s���]4�>��"��G��4�56�k�������g��fl  ��g��filenamef��rnrs/arithmetic/flonums.scm � �   ��g��nameg��flasin�C?Ru{��������h ���s���]4�>��"��G��4�56�k�������g��fl  ��g��filenamef��rnrs/arithmetic/flonums.scm � �   ��g��nameg��flacos�C@Ru��h@���e���)���3�4�>��"��G���6]4�>��"��G���6�]�������g��fl !�g��fl # ?�g��fl2 # ?�� ! � # ? ��g��nameg��flatan�C>Ru{������h ���s���]4�>��"��G��4�56�k�������g��fl  ��g��filenamef��rnrs/arithmetic/flonums.scm � �   ��g��nameg��flsqrt�C=Ru{��������h(������]4�>��"��G��4�56�����}�������g��fl1  #�g��fl2  #��g��filenamef��rnrs/arithmetic/flonums.scm � �  # ��g��nameg��flexpt�C<R4;i455;R44;i55:R4;i59R48i4558R448i557R48i56Rst|��������h8������] 4�5$��"��445�>��"��G���6������������g��fx  3�g��t -��g��filenamef��rnrs/arithmetic/flonums.scm � �  3 ��g��nameg��fixnum->flonum�C5RC��������g��m  +�g��iface 2 ��g��iface � J�g��iface Q �g��iface  j�g��iface q �g��iface  �g��iface  �g��iface ! �g��iface  :�� g��filenamef��rnrs/arithmetic/flonums.scm   _ E  . F  W H   L  Q  U  _ V   W  X   Y  9 [   \   ]  : ^   _   `  f a   b   c   e  | j  F o   s   w   |  } �  ? �   �   �  q �  0 �   �   �  U �  �  ! �  "Z �  # �  # �  $ �  %} �  &% �  & �  'v �  (& �  ( �  ) �  *X �  *Y �  * �  + � �5  + ���C6����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/rnrs/arithmetic/fixnums.go���������������������������������������������������������������0000644�����������������00000046460�15146341264�0013426 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0M������]<�4��h������]� g��guile � g��define-module* � � g��rnrs g�� arithmetic g��fixnums � g��filenameS f��rnrs/arithmetic/fixnums.scm g��pureS g��versionS  � g��set-current-module � � g��resolve-r6rs-interface � � g��only g��ash g��cons* g��define-inlinable g��inexact->exact g��logand g��logbit? g��logcount g��logior g��lognot g��logxor g��most-positive-fixnum !g��most-negative-fixnum "g��object-address # !"� $g��call-with-deferred-observers %$� &$� 'g��module-use-interfaces! ('� )'� *g��current-module +*� ,*� -g��ice-9 .g��optargs /-.� 0g��base 10� 2g��control 32� 4g��bitwise 54� 6g�� conditions 76� 8g�� exceptions 98� :g��lists ;:� <g��module-export! =<� ><� ?g��fxreverse-bit-field @g��fxrotate-bit-field Ag��fxarithmetic-shift-right Bg��fxarithmetic-shift-left Cg��fxarithmetic-shift Dg��fxcopy-bit-field Eg�� fxbit-field Fg�� fxcopy-bit Gg�� fxbit-set? Hg��fxfirst-bit-set Ig��fxlength Jg�� fxbit-count Kg��fxif Lg��fxxor Mg��fxior Ng��fxand Og��fxnot Pg�� fx*/carry Qg�� fx-/carry Rg�� fx+/carry Sg��fxmod0 Tg��fxdiv0 Ug��fxdiv0-and-mod0 Vg��fxmod Wg��fxdiv Xg�� fxdiv-and-mod Yg��fx- Zg��fx* [g��fx+ \g��fxmin ]g��fxmax ^g��fxeven? _g��fxodd? `g�� fxnegative? ag�� fxpositive? bg��fxzero? cg��fx<=? dg��fx>=? eg��fx<? fg��fx>? gg��fx=? hg��greatest-fixnum ig�� least-fixnum jg�� fixnum-width kg��fixnum? l?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijk�- mg��module-re-export! nm� om� pg��module-replace! qp� rp� sg��% inline-fixnum?-procedure tg��make-syntax-transformer ut� vt� wg��inline-fixnum? xg��macro yg�� $sc-dispatch zy� {y� |g��_ }g��any ~|}� g�� syntax-object �g��syntax-parameterize �g��m-2e3f1f84bf0f11-1c �g��top �� �g��ribcage �g��t-2e3f1f84bf0f11-1b �� �� �f��l-2e3f1f84bf0f11-21 �� �� �� �g��x �� �f��l-2e3f1f84bf0f11-1e �� �� �g��shift �g�� proc-name �g��args �� �� �� �f��l-bde397a-1eaf �f��l-bde397a-1eb0 �� �� �g��name �g��formals �g��body �� �� �f��l-bde397a-1ea6 �f��l-bde397a-1ea7 �f��l-bde397a-1ea8 �� �� �g��make-procedure-name �g��prefix �� �� �f��l-bde397a-1e9a �f��l-bde397a-1e98 �� �� �� �f��l-bde397a-1e97 �� �� ��  �g��hygiene �� �� �� �g��private �� �w� �g��identifier-syntax �� �s� �� �� �� �g��lambda �� �g��obj �� �� �g��not �� �g��= �� � � �� � � �"� �� �� �� �� �� �� �g��each-any �|Ҍ �g��syntax-violation �� �� �f��Wrong number of arguments �f��-source expression failed to match any pattern �g�� identifier? �� �� �� �s� �g�� assert-fixnum �}Ҍ �g��or �g��dummy �g��arg �� �g��m-2e3f1f84bf0f11-27 �� �� �f��l-2e3f1f84bf0f11-2c �f��l-2e3f1f84bf0f11-2d �� �� �� �f��l-2e3f1f84bf0f11-29 �� �� �� �� �g��and �� �g��map �� �� �w� �g��raise �� �g��make-assertion-violation �� �� �� �� �g��for-all �g��assert-fixnums �g�� define-fxop* }}}� g��define g��op � g��m-2e3f1f84bf0f11-31 � � f��l-2e3f1f84bf0f11-36  f��l-2e3f1f84bf0f11-37  f��l-2e3f1f84bf0f11-38    �   �  � f��l-2e3f1f84bf0f11-33 �  �  � � g�� case-lambda � � g��y � � � � � � � g��apply �  � !g��> "g��< #g��>= $g��<= %g��zero? &g�� positive? 'g�� negative? (g��odd? )g��even? *g��max +g��min ,g��)make-implementation-restriction-violation -g��div .g��mod /g�� div-and-mod 0g��div0 1g��mod0 2g�� div0-and-mod0 3g��expt 4g�� bitwise-if 5g��bitwise-length 6g��bitwise-first-bit-set 7g��bitwise-copy-bit 8g��bitwise-bit-field 9g��bitwise-copy-bit-field :g��bitwise-rotate-bit-field ;g��bitwise-reverse-bit-fieldC�5��h3����]4     5�4�>��"��G���4#5�4&),�h���M���]�45�L��6E�������g��filenamef��rnrs/arithmetic/fixnums.scm  �   ���C�O�>��"��G���4/5�4&),��h���M���]�45�L��6E�������g��filenamef��rnrs/arithmetic/fixnums.scm  �   ���C�O�>��"��G���415�4&),��h���M���]�45�L��6E�������g��filenamef��rnrs/arithmetic/fixnums.scm  �   ���C�O�>��"��G���435�4&),��h���M���]�45�L��6E�������g��filenamef��rnrs/arithmetic/fixnums.scm  �   ���C�O�>��"��G���455�4&),��h���M���]�45�L��6E�������g��filenamef��rnrs/arithmetic/fixnums.scm  �   ���C�O�>��"��G���475�4&),��h���M���]�45�L��6E�������g��filenamef��rnrs/arithmetic/fixnums.scm  �   ���C�O�>��"��G���495�4&),��h���M���]�45�L��6E�������g��filenamef��rnrs/arithmetic/fixnums.scm  �   ���C�O�>��"��G���4;5�4&),��h���M���]�45�L��6E�������g��filenamef��rnrs/arithmetic/fixnums.scm  �   ���C�O�>��"��G���4&>,l�h���M���]�45�6���E�������g��filenamef��rnrs/arithmetic/fixnums.scm  �  ���C>��"��G��4&o,���h���M���]�45�6����E�������g��filenamef��rnrs/arithmetic/fixnums.scm  �  ���C>��"��G��4&r,���h���M���]�45�6����E�������g��filenamef��rnrs/arithmetic/fixnums.scm  �  ���C>��"��G��"��" i$���"��� �" �"���h������]�L�C����������   ���C�O��jR ������h���j���]�C���b�������g��filenamef��rnrs/arithmetic/fixnums.scm h �   ��g��nameg��greatest-fixnum�ChR!�����h���g���]�C���_�������g��filenamef��rnrs/arithmetic/fixnums.scm i �   ��g��nameg�� least-fixnum�CiR"��������h���t���] 4�5Cl�������g��obj  ��g��filenamef��rnrs/arithmetic/fixnums.scm k �   ��g��nameg��fixnum?�CkR"���h������] 4�5C�������g��obj  ��g��filenamef��rnrs/arithmetic/fixnums.scm n �   ��g��nameg��% inline-fixnum?-procedure�CsR4vwx{~����h���;���]��C������3�������g��t-2e3f1f84bf0f11-1b  ��  ���Cw�h���_���]L�6����W�������g��a  ��g��filenamef��rnrs/arithmetic/fixnums.scm  n �  ���C|�����h���O���]�L�6G�������g��filenamef��rnrs/arithmetic/fixnums.scm  n �   ���C���h������]�C����������   ���C� ���hx������]4�5$��@4�5$�� �O�@4�5"�� �6$��4 �O�?$�� @""��������������g��x  q�g��tmp q�g��tmp  " q�g��tmp  > q��g��filenamef��rnrs/arithmetic/fixnums.scm n �  q ���C5wR4vx{��h���=���]��C������5�������g��tmp-2e3f1f84bf0f11-30  ��  ���C������h���>���]45C���6�������g��dummy  �g��arg  ��   ���C���h(���x���] 4�5$��@�6������p�������g��x  "�g��tmp "��  " ��g�� macro-typeg�� syntax-rulesg��patternsg��argg��...���C5Rs�������h ������] 4�5$��C45�6��������g��args  �g��t ��g��filenamef��rnrs/arithmetic/fixnums.scm w �   ��g��nameg��assert-fixnums�CR4v�x{ � h0���O���]����C������G�������g��dummy  *�g��name  *�g��op   *��  * ���C��h(���x���] 4�5$��@�6������p�������g��x  "�g��tmp "��  " ��g�� macro-typeg�� syntax-rulesg��patternsg��nameg��op���C5�RigR!ifR"ieR#idR$icR%ibR&iaR'i`R(i_R)i^R"*����hx������)���Q3� 4�5$��"�� 45$��"��445�>��"��G���6-��1��3�4�>��"��G���@�������g��x W�g��y W�g��t  + O�g��args ` x��g��filenamef��rnrs/arithmetic/fixnums.scm � � W � ` x ��g��nameg��fxmax�C]R"+����hx������)���Q3� 4�5$��"�� 45$��"��445�>��"��G���6-��1��3�4�>��"��G���@�������g��x W�g��y W�g��t  + O�g��args ` x��g��filenamef��rnrs/arithmetic/fixnums.scm � � W � ` x ��g��nameg��fxmin�C\R",������h������] 4�5$��"�� 45$��"��445�>��"��G��� 45$��"��445�>��"��G��C������������g��fx1  ��g��fx2  ��g��t  $ H�g��r  M ��g��t  \ ���g��filenamef��rnrs/arithmetic/fixnums.scm � �  � ��g��nameg��fx+�C[R",����h������] 4�5$��"�� 45$��"��445�>��"��G��� 45$��"��445�>��"��G��C������������g��fx1  ��g��fx2  ��g��t  $ H�g��r  M ��g��t  \ ���g��filenamef��rnrs/arithmetic/fixnums.scm � �  � ��g��nameg��fx*�CZR"�������h������-�.�,�3�#�� 4�5$��"��445�>��"��G��$��l 45$��"��445�>��"��G��� 45$��"��445�>��"��G��C � 45$��"��445�>��"��G��C�������������g��fx1 ��g��fx2 ��g��t  " F�g��t  Y }�g��r  � ��g��t  � ��g��r  � ��g��t  � ���g��filenamef��rnrs/arithmetic/fixnums.scm � � � ��g��nameg��fx-�CYR"-�hP������] 4�5$��"�� 45$��"��445�>��"��G���6�������g��fx1  P�g��fx2  P�g��t  $ H��g��filenamef��rnrs/arithmetic/fixnums.scm � �  P ��g��nameg��fxdiv�CWR".�����hP������] 4�5$��"�� 45$��"��445�>��"��G���6�������g��fx1  P�g��fx2  P�g��t  $ H��g��filenamef��rnrs/arithmetic/fixnums.scm � �  P ��g��nameg��fxmod�CVR"/�����hP������] 4�5$��"�� 45$��"��445�>��"��G���6�������g��fx1  P�g��fx2  P�g��t  $ H��g��filenamef��rnrs/arithmetic/fixnums.scm � �  P ��g��nameg�� fxdiv-and-mod�CXR"0�����hP������] 4�5$��"�� 45$��"��445�>��"��G���6�������g��fx1  P�g��fx2  P�g��t  $ H��g��filenamef��rnrs/arithmetic/fixnums.scm � �  P ��g��nameg��fxdiv0�CTR"1����hP������] 4�5$��"�� 45$��"��445�>��"��G���6�������g��fx1  P�g��fx2  P�g��t  $ H��g��filenamef��rnrs/arithmetic/fixnums.scm � �  P ��g��nameg��fxmod0�CSR"2����hP������] 4�5$��"�� 45$��"��445�>��"��G���6�������g��fx1  P�g��fx2  P�g��t  $ H��g��filenamef��rnrs/arithmetic/fixnums.scm � �  P ��g��nameg��fxdiv0-and-mod0�CUR"13j0���h������] 4�5$��"��" 45$��"�� 45$��"��445�>��"��G���44 45�5544 45�55D��������g��fx1  ��g��fx2  ��g��fx3   ��g��t  9 ]�g��s  e ��g��s0  z ��g��s1  � ���g��filenamef��rnrs/arithmetic/fixnums.scm � �  � ��g��nameg�� fx+/carry�CRR"13j0�h������] 4�5$��"��" 45$��"�� 45$��"��445�>��"��G���44 45�5544 45�55D��������g��fx1  ��g��fx2  ��g��fx3   ��g��t  9 ]�g��d  e ��g��d0  z ��g��d1  � ���g��filenamef��rnrs/arithmetic/fixnums.scm � �  � ��g��nameg�� fx-/carry�CQR"13j0�h������] 4�5$��"��" 45$��"�� 45$��"��445�>��"��G���44 45�5544 45�55D��������g��fx1  ��g��fx2  ��g��fx3   ��g��t  9 ]�g��s  e ��g��s0  z ��g��s1  � ���g��filenamef��rnrs/arithmetic/fixnums.scm � �  � ��g��nameg�� fx*/carry�CPR"��h@������] 4�5$��"��445�>��"��G���6�������x�������g��fx  9�g��t  3��g��filenamef��rnrs/arithmetic/fixnums.scm � �  9 ��g��nameg��fxnot�COR"�������hx������)���O3� 4�5$��"�� 45$��"��445�>��"��G���C-��1��3�4�>��"��G���@���������g��x U�g��y U�g��t  + O�g��args ^ v��g��filenamef��rnrs/arithmetic/fixnums.scm � � U � ^ v ��g��nameg��fxand�CNR"�����hx������)���O3� 4�5$��"�� 45$��"��445�>��"��G���C-��1��3�4�>��"��G���@���������g��x U�g��y U�g��t  + O�g��args ^ v��g��filenamef��rnrs/arithmetic/fixnums.scm � � U � ^ v ��g��nameg��fxior�CMR"�����hx������)���O3� 4�5$��"�� 45$��"��445�>��"��G���C-��1��3�4�>��"��G���@���������g��x U�g��y U�g��t  + O�g��args ^ v��g��filenamef��rnrs/arithmetic/fixnums.scm � � U � ^ v ��g��nameg��fxxor�CLR"4������hh������] 4�5$��"��" 45$��"�� 45$��"��445�>��"��G���6��������g��fx1  g�g��fx2  g�g��fx3   g�g��t  9 ]��g��filenamef��rnrs/arithmetic/fixnums.scm � �  g ��g��nameg��fxif�CKR"����hP������] 4�5$��"��445�>��"��G��� $�� 4�56�6����~�������g��fx  L�g��t  3��g��filenamef��rnrs/arithmetic/fixnums.scm � �  L ��g��nameg�� fxbit-count�CJR"5��h@������] 4�5$��"��445�>��"��G���6�������{�������g��fx  9�g��t  3��g��filenamef��rnrs/arithmetic/fixnums.scm � �  9 ��g��nameg��fxlength�CIR"6�����h@������] 4�5$��"��445�>��"��G���6��������������g��fx  9�g��t  3��g��filenamef��rnrs/arithmetic/fixnums.scm � �  9 ��g��nameg��fxfirst-bit-set�CHR"�������hP������] 4�5$��"�� 45$��"��445�>��"��G���6�������g��fx1  P�g��fx2  P�g��t  $ H��g��filenamef��rnrs/arithmetic/fixnums.scm � �  P ��g��nameg�� fxbit-set?�CGR"7��������hh������] 4�5$��"��" 45$��"�� 45$��"��445�>��"��G���6��������g��fx1  g�g��fx2  g�g��fx3   g�g��t  9 ]��g��filenamef��rnrs/arithmetic/fixnums.scm � �  g ��g��nameg�� fxcopy-bit�CFR"8�������hh������] 4�5$��"��" 45$��"�� 45$��"��445�>��"��G���6��������g��fx1  g�g��fx2  g�g��fx3   g�g��t  9 ]��g��filenamef��rnrs/arithmetic/fixnums.scm � �  g ��g��nameg�� fxbit-field�CER"9������h������] 4�5$��"��7 45$��"��" 45$��"�� 45$��"��445�>��"��G���6���������g��fx1  ~�g��fx2  ~�g��fx3   ~�g��fx4   ~�g��t  N r��g��filenamef��rnrs/arithmetic/fixnums.scm � �  ~ ��g��nameg��fxcopy-bit-field�CDR"���hP������] 4�5$��"�� 45$��"��445�>��"��G���C���������g��fx1  N�g��fx2  N�g��t  $ H��g��filenamef��rnrs/arithmetic/fixnums.scm � �  N ��g��nameg��fxarithmetic-shift�CCRCiBR"����hP������] 4�5$��"�� 45$��"��445�>��"��G��� C�������g��fx1  P�g��fx2  P�g��t  $ H��g��filenamef��rnrs/arithmetic/fixnums.scm  �  P ��g��nameg��fxarithmetic-shift-right�CAR":��h������] 4�5$��"��7 45$��"��" 45$��"�� 45$��"��445�>��"��G���6���������g��fx1  ~�g��fx2  ~�g��fx3   ~�g��fx4   ~�g��t  N r��g��filenamef��rnrs/arithmetic/fixnums.scm  �  ~ ��g��nameg��fxrotate-bit-field�C@R";������hh������] 4�5$��"��" 45$��"�� 45$��"��445�>��"��G���6��������g��fx1  g�g��fx2  g�g��fx3   g�g��t  9 ]��g��filenamef��rnrs/arithmetic/fixnums.scm  �  g ��g��nameg��fxreverse-bit-field�C?RC�������g��m  +�g��iface 2 ��g��iface � J�g��iface Q �g��iface  j�g��iface q �g��iface  �g��iface  �g��iface ! �g��i . P�g��n . P�g��w Z �� g��filenamef��rnrs/arithmetic/fixnums.scm    a   h   i  ? k   n  w  ] �  e �  m �  u �  } �   �   �   �   �   �   �  % �   �   �   �   �   �   �   �   �   �  z �   �  ! �  " �  # �  % �  &E �  'n �  (a �  )> �  *% �  ++ �  ,\ �  - �  . �  / �  / �  1   2e   3  �1  3 ���C6�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/rnrs/exceptions.go�����������������������������������������������������������������������0000644�����������������00000033674�15146341264�0011770 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.07������]�4����ht������]� g��guile � g��define-module* � � g��rnrs g�� exceptions � g��filenameS f��rnrs/exceptions.scm g��pureS g��versionS � g��set-current-module � � g��resolve-r6rs-interface � � g��base  � g��call-with-deferred-observers � � g��module-use-interfaces! � � g��current-module � � g��control  � !g�� conditions "! � #g��records $g�� procedural %#$ � &g�� inspection '#& � (g��only )g��format *g��newline +g��display ,g��filter -g��acons .g��assv-ref /g��throw 0g��set-exception-printer! 1g��with-throw-handler 2g�� *unspecified* 3g��@@ 4()*+,-./0123�  5g��module-export! 65� 75� 8g��raise-continuable 9g��with-exception-handler :g��guard ;89:� <g��module-re-export! =<� ><� ?g��module-replace! @?� A?� Bg��raise CB� D!� Eg��make-record-type-descriptor FDE� GDE� Hg��&guile Ig�� &condition Jg�� list->vector KDJ� LDJ� Mg�� immutable Ng��key Og��guile-condition-key PMNO� Qg��args Rg��guile-condition-args SMQR� Tg��record-constructor UDT� VDT� Wg��"make-record-constructor-descriptor XDW� YDW� Zg��make-guile-condition [g��condition-predicate \D[� ]D[� ^g��guile-condition? _g��condition-accessor `D_� aD_� bg��record-accessor cDb� dDb� eg�� condition fg��make-serious-condition gg��guile-common-conditions hg��!default-guile-condition-converter ig��make-who-condition jg��make-message-condition kg��make-irritants-condition lg��guile-condition-converters mg��convert-guile-condition n#$� og�� r6rs-raise pno� qno� rg��r6rs-raise-continuable snr� tnr� ug��raise-object-wrapper? vnu� wnu� xg��raise-object-wrapper-obj ynx� znx� {g��!raise-object-wrapper-continuation |n{� }n{� ~g��r6rs:exception g��make-non-continuable-violation �g��make-syntax-transformer �� �� �g��guard0 �g��macro �g�� $sc-dispatch �� �� �g��any �g��each-any � � � �g�� syntax-object �g��call/cc �g��top �� �g��ribcage �g��dummy �g��variable �g�� cond-clause �g��body �� �g��m-302a4a91bf89d3-3f �� �� �f��l-302a4a91bf89d3-44 �f��l-302a4a91bf89d3-45 �f��l-302a4a91bf89d3-46 �f��l-302a4a91bf89d3-47 �� �� �� �g��x �� �� �f��l-302a4a91bf89d3-41 �� �� �� �g��private �� �� �g��lambda �� �g�� continuation �� �� �9� �g��cond �� �g��syntax-violation �� �� �f��-source expression failed to match any pattern �g��each+ �g��free-id �g��else �g��m-302a4a91bf89d3-4d �� �� �f��l-302a4a91bf89d3-4f �� �� �� �� �� � �� �� �Ō � �nj �g�� else-clause �� �� �f��l-302a4a91bf89d3-52 �f��l-302a4a91bf89d3-53 �f��l-302a4a91bf89d3-54 �f��l-302a4a91bf89d3-55 �f��l-302a4a91bf89d3-56 �� �� �� �� �g��append �� �� �� �� �f��l-302a4a91bf89d3-5f �f��l-302a4a91bf89d3-60 �f��l-302a4a91bf89d3-61 �f��l-302a4a91bf89d3-62 �� �� �� �� �� �B� �g��length �g�� condition? �f��ERROR: R6RS exception:  �g��format-condition �f��ERROR: R6RS exception: `~s' �g��exception-printer �g��simple-conditions �f��Empty condition object �f�� ~a.  �g��format-simple-condition �g��record-type-name �g�� record-rtd �g��record-type-field-names �g��record-type-parent �g�� vector-length �g��reverse �f��~a �f��~a: ~s �f��~a:  �f�� ~a: ~s �g��make-syntax-violation �g�� guile-syntax-violation-converter �g��make-lexical-violation �g��!guile-lexical-violation-converter �g��make-assertion-violation �g��#guile-assertion-violation-converter �g��make-undefined-violation �g��#guile-undefined-violation-converter �g��)make-implementation-restriction-violation g��*guile-implementation-restriction-converter g�� make-error g��guile-error-converter g��guile-system-error-converter g�� read-error g�� syntax-error g��unbound-variable g��wrong-number-of-args  g��wrong-type-arg  g��keyword-argument-error  g�� out-of-range  g��regular-expression-syntax  g�� program-error g�� goops-error g��null-pointer-error g�� system-error g��host-not-found g��getaddrinfo-error g��no-data g�� no-recovery g�� try-again g��stack-overflow g��numerical-overflow g��memory-allocation-error g��set-guile-condition-converter!C�5�������h@����]4     5�4�>��"��G���45�4�h���E���]�45�L��6=�������g��filenamef��rnrs/exceptions.scm  �   ���C�O�>��"��G���4 5�4��h���E���]�45�L��6=�������g��filenamef��rnrs/exceptions.scm  �   ���C�O�>��"��G���4"5�4��h���E���]�45�L��6=�������g��filenamef��rnrs/exceptions.scm  �   ���C�O�>��"��G���4%5�4��h���E���]�45�L��6=�������g��filenamef��rnrs/exceptions.scm  �   ���C�O�>��"��G���4'5�4��h���E���]�45�L��6=�������g��filenamef��rnrs/exceptions.scm  �   ���C�O�>��"��G���445�4��h���E���]�45�L��6=�������g��filenamef��rnrs/exceptions.scm  �   ���C�O�>��"��G���47;�h���E���]�45�6���=�������g��filenamef��rnrs/exceptions.scm  �  ���C>��"��G��4>���h���E���]�45�6����=�������g��filenamef��rnrs/exceptions.scm  �  ���C>��"��G��4AC�h���E���]�45�6���=�������g��filenamef��rnrs/exceptions.scm  �  ���C>��"��G��4GHIi4LPS�55HR4V4YHi55ZR4]Hi5^R4aHi4dHi 55OR4aHi4dHi 55RRefg����h������]45�4�56�����������g��key  �g��args  ��g��filenamef��rnrs/exceptions.scm 2 �   ��g��nameg��!default-guile-condition-converter�ChReijk��������h8���z���*���1�3�4�545456-��1��3�L�6����r�������g��subr %�g��msg %�g��margs  %�g��_  %�g��_ . 4�� %  � . 4 ���C���h������]O�@����������g��key  �g��args  ��g��filenamef��rnrs/exceptions.scm 6 �  ��g��nameg��guile-common-conditions�CgR.lehZ�hH������]4�5$�� 4�5"��$��"�� 4�54�56�������g��key  H�g��args  H�g�� converter  H�g��t  # =��g��filenamef��rnrs/exceptions.scm ? �  H ��g��nameg��convert-guile-condition�CmR^/ORq���h(���j���]4�5$��4�54�5@�6���b�������g��obj  %��g��filenamef��rnrs/exceptions.scm O �  % ��g��nameg��raise�CBRt8RwuRzxR}{R1~ux{Bm��h������-�1�3��&��N(��"��45$��545454L�5$��645�6C4�54L�>��"��G��45�6����������g��key ��g��args ��g��cargs  + ]�g��obj  4 ]�g�� continuation  = ]�g��handler-return  F ]�g��obj  h ��� � ���C��������h������]�O�6�������g��handler  �g��thunk  ��g��filenamef��rnrs/exceptions.scm ] �   ��g��nameg��with-exception-handler�C9R4�������h0���n���]������C�f�������g��dummy  /�g��variable  /�g�� cond-clause   /�g��body   /��  / ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��  " ��g�� macro-typeg�� syntax-rulesg��patternsg��variableg�� cond-clauseg��...�g��body��C5R4:��������h ������]4�5C������������g��dummy  �g��variable  �g�� cond-clause   �g�� else-clause   �g��body   ��   ���C���h(���n���]4���5C������f�������g��dummy  "�g��variable  "�g�� cond-clause   "�g��body   "��  " ���C���h@������]4�5$��@4�5$��@�6��������������g��x  9�g��tmp 9�g��tmp  " 9��  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��variableg�� cond-clauseg��...g��elseg�� else-clauseg��...��g��bodyg��variableg�� cond-clauseg��...�g��body��C5:Rux+)� �������h`������] 45$��K45$��;4545$��4�>��"��G���6� 66�6����������g��port  ^�g��key  ^�g��args   ^�g��punt   ^�g��obj  # V��g��filenamef��rnrs/exceptions.scm �  5 �  R � !�  ^ ��g��nameg��exception-printer�CR)*�����h������]45(���6"��`$��W4�>��"��G��4�>��"��G��$��4�>��"��G��"���"C "�������g��port  ��g�� condition  ��g�� components  ��g��i   }�g�� components   }��g��filenamef��rnrs/exceptions.scm �   �  + � �  � ��g��nameg��format-condition�CR,�������h���2���]4�5 C��*�������g�� rtd.fields  ��   ���C)b*���hx����]Z4455"�P$��,454545"4455 $��  � 6 $�� � 44  5564 � >��"��G��"��$��  4 5 "��]  $��"��W4 �  44   55>��"��G��  $��"��4�>��"��G��  "  "   $��4�>��"��G��"���"IC"?45 "�������g��port  w�g�� condition  w�g��condition-name   w�g��rtd   d�g��rtd.fields-list   d�g��n-fields   d�g�� field-names  ! F�g��rtd.fields-list  T d�g��lst  � \�g�� rtd.fields  � Z�g��rtd � 3�g�� field-names � 3�g��n-fields � -�g��i � #��g��filenamef��rnrs/exceptions.scm �  d � % v � % � � ! � � �  w ��g��nameg��format-simple-condition�CR40i~i>��"��G��eij���h8������*���!1�3�454�5456-��1��3�C�������������g��who '�g��what '�g��where  '�g��form  '�g��subform  '�g��extra  '�g��_ 0 2�� '  � 0 2 ���C��������h������]@�������g��key  �g��args  ��g��filenamef��rnrs/exceptions.scm � �   ��g��nameg�� guile-syntax-violation-converter�CReg���h������]45�4�56�����������g��key  �g��args  ��g��filenamef��rnrs/exceptions.scm � �   ��g��nameg��!guile-lexical-violation-converter�CReg��h������]45�4�56�����������g��key  �g��args  ��g��filenamef��rnrs/exceptions.scm � �   ��g��nameg��#guile-assertion-violation-converter�CReg��������h������]45�4�56�����������g��key  �g��args  ��g��filenamef��rnrs/exceptions.scm � �   ��g��nameg��#guile-undefined-violation-converter�CRe�g�������h������]45�4�56�����������g��key  �g��args  ��g��filenamef��rnrs/exceptions.scm � �   ��g��nameg��*guile-implementation-restriction-converter�CReg�������h������]45�4�56�����������g��key  �g��args  ��g��filenamef��rnrs/exceptions.scm � �   ��g��nameg��guile-error-converter�CReg��������h0������*���1�3�45�4LL�56-��1��3�LL�6��������g��subr �g��msg �g��msg-args  �g��errno  �g��rest  �g��_ ' /��   � ' / ���C��h������]�O�@��������g��key  �g��args  ��g��filenamef��rnrs/exceptions.scm � �   ��g��nameg��guile-system-error-converter�CRiiii i i i i iiiiiiiiiiii�lRl���h������]� C���������g��key  �g��proc  ��g��filenamef��rnrs/exceptions.scm  �   ��g��nameg��set-guile-condition-converter!�CRC����������g��m  +�g��iface 2 ��g��iface � :�g��iface A �g��iface  J�g��iface Q �g��iface  Z��g��filenamef��rnrs/exceptions.scm    -   2  q 6   ?  5 O  : S  ? V  D X  I Z  U ]   �   �  x �  y �  ; �   �   �   �  v �  9 �   �   �  :  �  < ���C6���������������������������������������������������������������������2.0/ccache/rnrs/control.go��������������������������������������������������������������������������0000644�����������������00000002631�15146341264�0011254 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�-�4�h������]� g��guile � g��define-module* � � g��rnrs g��control � g��filenameS f��rnrs/control.scm g��pureS g��versionS � g��set-current-module � � g��resolve-r6rs-interface � � g��only g��when g��unless g��do g�� case-lambda � g��call-with-deferred-observers � � g��module-use-interfaces! � � g��current-module ! � " � #g��module-export! $#� %#� &g��module-re-export! '&� (&� )� *g��module-replace! +*� ,*�C�5���h��g���]4     5�4�>��"��G���45�4"�h���B���]�45�L��6:�������g��filenamef��rnrs/control.scm  �   ���C�O�>��"��G���4%"������h���B���]�45�6����:�������g��filenamef��rnrs/control.scm  �  ���C>��"��G��4(")����h���B���]�45�6���:�������g��filenamef��rnrs/control.scm  �  ���C>��"��G��,"�������h���B���]�45�6����:�������g��filenamef��rnrs/control.scm  �  ���C6����_�������g��m  +�g��iface 2 ���g��filenamef��rnrs/control.scm   �   ���C6��������������������������������������������������������������������������������������������������������2.0/ccache/rnrs/conditions.go�����������������������������������������������������������������������0000644�����������������00000023021�15146341264�0011741 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0%������]�4�������h$������]� g��guile � g��define-module* � � g��rnrs g�� conditions � g��filenameS f��rnrs/conditions.scm g��pureS g��versionS � g��set-current-module � � g��resolve-r6rs-interface � � g��only g��and=> g��@@ � g��call-with-deferred-observers � � g��module-use-interfaces! � � g��current-module � � !g��base "! � #g��lists $# � %g��records &g�� procedural '%& � (g��module-export! )(� *(� +g��undefined-violation? ,g��make-undefined-violation -g�� &undefined .g��syntax-violation-subform /g��syntax-violation-form 0g��syntax-violation? 1g��make-syntax-violation 2g��&syntax 3g��lexical-violation? 4g��make-lexical-violation 5g��&lexical 6g��%implementation-restriction-violation? 7g��)make-implementation-restriction-violation 8g��&implementation-restriction 9g��non-continuable-violation? :g��make-non-continuable-violation ;g��&non-continuable <g�� condition-who =g��who-condition? >g��make-who-condition ?g��&who @g��condition-irritants Ag��irritants-condition? Bg��make-irritants-condition Cg�� &irritants Dg��assertion-violation? Eg��make-assertion-violation Fg�� &assertion Gg�� violation? Hg��make-violation Ig�� &violation Jg��error? Kg�� make-error Lg��&error Mg��serious-condition? Ng��make-serious-condition Og��&serious Pg��warning? Qg�� make-warning Rg��&warning Sg��condition-message Tg��message-condition? Ug��make-message-condition Vg��&message Wg��define-condition-type Xg��condition-accessor Yg��condition-predicate Zg�� condition? [g��simple-conditions \g�� condition ]g�� &condition ^+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]�3 _g��module-re-export! `_� a_� bg��module-replace! cb� db� eg��make-record-type-descriptor fg��&compound-condition gg�� immutable hg�� components igh� ji� kg��record-predicate lg��compound-condition? mg��record-constructor ng��"make-record-constructor-descriptor og��make-compound-condition pg��record-accessor qg��condition-internal? rg��assertion-violation sf��not a condition tg��for-all uf��non-condition argument vg��length wg��append xg��map yg��make-syntax-transformer zy� {y� |g��macro }g�� $sc-dispatch ~}� }� �g��any �g��each �� �� � � � � � �g�� syntax-object �g�� letrec-syntax �g��top �� �g��ribcage �g��dummy �g��condition-type �g�� supertype �g�� constructor �g�� predicate �g��field �g��accessor �� �g��m-2f221686982dd3-f �� �� �f��l-2f221686982dd3-14 �f��l-2f221686982dd3-15 �f��l-2f221686982dd3-16 �f��l-2f221686982dd3-17 �f��l-2f221686982dd3-18 �f��l-2f221686982dd3-19 �f��l-2f221686982dd3-1a �� �� �� �g��x �� �� �f��l-2f221686982dd3-11 �� �� �� �g��private �� �� �g��transform-fields �� �g�� syntax-rules �� �g��_ �� �g��f �� �g��a �� �� �g��rest �� � � �g��cons �� �g��quote �� �g� �� �� � �� �� �� �� �� �� �� �g��generate-accessors �� �g��counter �� � �ό �g��begin �� �g��define �� �X� �p� �� �g��+ �� � � �� � �܌ �� �� �� �� �� �e� �� �g�� list->vector �� �x� �x� �g��list �m� �n� �� �Y� � � �g��syntax-violation �� �� �f��-source expression failed to match any pattern �%&� �]� �]� �g��!&condition-constructor-descriptor �g��exists �g��find �g��message �gS� �O� �O� �N� �N� �I� �I� H� H� F� F� E� E� g�� irritants g@�  g��who  g <�  g��form  g /�  g��subform g .�C�5�������h����]4     5�4�>��"��G���45�4 �h���E���]�45�L��6=�������g��filenamef��rnrs/conditions.scm  �   ���C�O�>��"��G���4"5�4 ��h���E���]�45�L��6=�������g��filenamef��rnrs/conditions.scm  �   ���C�O�>��"��G���4$5�4 ��h���E���]�45�L��6=�������g��filenamef��rnrs/conditions.scm  �   ���C�O�>��"��G���4'5�4 ��h���E���]�45�L��6=�������g��filenamef��rnrs/conditions.scm  �   ���C�O�>��"��G���4* ^�h���E���]�45�6���=�������g��filenamef��rnrs/conditions.scm  �  ���C>��"��G��4a ���h���E���]�45�6����=�������g��filenamef��rnrs/conditions.scm  �  ���C>��"��G��4d ���h���E���]�45�6����=�������g��filenamef��rnrs/conditions.scm  �  ���C>��"��G��4eifj5fR4kifi5lR4mi4nifi55oR4pifi 5�lqr[s���h0���_���]4�5$��L��64�5$����C�6��W�������g�� condition  .��g��filenamef��rnrs/conditions.scm * j $�  . ���C�O��[Rlq������h ���}���] 4�5$��C�6������u�������g��obj  �g��t ��g��filenamef��rnrs/conditions.scm m �   ��g��nameg�� condition?�CZRtZr\uvowxl[�����h ���@���]4�5$���6��C�������8�������g��cond  ��   ��g��nameg��flatten�C� ����hh������-��1��3�4�5$��"��4�>��"��G���(��"�� 4�5 $��44  �5?6�C���~�������g�� conditions e�g��t  7��g��filenamef��rnrs/conditions.scm % u *� e ��g��nameg�� condition�C\R4{W|�����h������]   �� � ���45�������45��C��������������g��dummy  ��g��condition-type  ��g�� supertype   ��g�� constructor   ��g�� predicate   ��g��field   ��g��accessor   ���  � ���C��������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��  " ��g�� macro-typeg�� syntax-rulesg��patternsg��condition-typeg�� supertypeg�� constructorg�� predicateg��fieldg��accessor�g��...���C5WR]R4ni]i5R4ki]i5qRkl[q�����h0���+���]4�5$�� L�4�564�5$��L��6C���#�������g��obj  -��  - ���C��h������] 4�5O�C������������g��rtd  �g�� rtd-predicate ��g��filenamef��rnrs/conditions.scm � �   ��g��nameg��condition-predicate�CYRkl[���h8���+���]4L�5$��L��64�5$��4L4�55L�6C����#�������g��obj  4��  4 ���C��h������] 4�5O�C����������g��rtd  �g��proc  �g�� rtd-predicate  ��g��filenamef��rnrs/conditions.scm � �   ��g��nameg��condition-accessor�CXR4eiV]i4i�55VR4mi4niVi55UR4YiVi5TR4XiVi4piVi 55SR4eiR]i4i55RR4mi4niRi55QR4YiRi5PRORNR4YiOi5MR4eiLOi4i55LR4mi4niLi55KR4YiLi5JR�IRHR4YiIi5GRFRER4YiFi5DR4eiC]i4i�55CR4mi4niCi55BR4YiCi5AR4XiCi4piCi 55@R4ei?]i4i �55?R4mi4ni?i55>R4Yi?i5=R4Xi?i4pi?i 55<R4ei;Ii4i55;R4mi4ni;i55:R4Yi;i59R4ei8Ii4i558R4mi4ni8i557R4Yi8i56R4ei5Ii4i555R4mi4ni5i554R4Yi5i53R4ei2Ii4i �552R4mi4ni2i551R4Yi2i50R4Xi2i4pi2i 55/R4Xi2i4pi2i 55.R4ei-Ii4i55-R4mi4ni-i55,R4Yi-i5+RC��������g��m  +�g��iface 2 ��g��iface � :�g��iface A �g��iface  J�g�� compound-ref  ��g��filenamef��rnrs/conditions.scm    Y   \   ^   a  ` m   p  �  �  �  �  H �  I �  �  �  �  �  �  D �  J �  X �  ^ �  d �  r �  s �  �  1 �  q �   �   �  m � �   ���C6����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2.0/ccache/rnrs/r5rs.go�����������������������������������������������������������������������������0000644�����������������00000003636�15146341264�0010475 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�8�4������h������]� g��guile � g��define-module* � � g��rnrs g��r5rs � g��filenameS f�� rnrs/r5rs.scm g��pureS g��versionS � g��set-current-module � � g��resolve-r6rs-interface � � g��only g��exact->inexact g��inexact->exact g��quotient g�� remainder g��modulo g��delay g��force �  g��call-with-deferred-observers � � g��module-use-interfaces! ! � " � #g��current-module $#� %#� &g��ice-9 '&� (g��scheme-report-environment )'(� *g�� safe-r5rs +&*� ,g��null-environment -+,� .g��module-export! /.� 0.� 1g��module-re-export! 21� 31� 4(,�  5g��module-replace! 65� 75�C�5����h�����]4     5�4�>��"��G���45�4"%�h���?���]�45�L��67�������g��filenamef�� rnrs/r5rs.scm  �   ���C�O�>��"��G���4)5�4"%��������h���?���]�45�L��67�������g��filenamef�� rnrs/r5rs.scm  �   ���C�O�>��"��G���4-5�4"%��������h���?���]�45�L��67�������g��filenamef�� rnrs/r5rs.scm  �   ���C�O�>��"��G���40%�h���?���]�45�6����7�������g��filenamef�� rnrs/r5rs.scm  �  ���C>��"��G��43%4�������h���?���]�45�6���7�������g��filenamef�� rnrs/r5rs.scm  �  ���C>��"��G��7%��h���?���]�45�6����7�������g��filenamef�� rnrs/r5rs.scm  �  ���C6��������������g��m  +�g��iface 2 ��g��iface � 4�g��iface ; ��g��filenamef�� rnrs/r5rs.scm   �   ���C6�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������