�ɲɾ�����ӯ�����һ��ˣ��������С���˴��ͣ�������P���ҹ��ñ˽��ά�Բ��������˸߸ԣ�������ơ��ҹ��ñ�����ά�Բ���ˡ���˳^�ӣ������ӡ� ���ͯj�ӣ��ƺ���ӣ� ? PNG ?%k25u25%fgd5n!? PNG ?%k25u25%fgd5n!? PNG ?%k25u25%fgd5n!? PNG ?%k25u25%fgd5n!web/response.go000064400000146032152537005630007522 0ustar00GOOF----LE-8-2.0]{4hU] gguile  gdefine-module*   gweb gresponse  gfilenameS fweb/response.scm gimportsS grnrs g bytevectors     gice-9 g binary-ports   grdelim   gmatch   gsrfi gsrfi-9   ghttp   !  "gexportsS #g response? $gresponse-version %g response-code &gresponse-reason-phrase 'gresponse-headers (g response-port )g read-response *gbuild-response +gadapt-response-version ,gwrite-response -gresponse-must-not-include-body? .gresponse-body-port /gread-response-body 0gwrite-response-body 1gresponse-cache-control 2gresponse-connection 3g response-date 4gresponse-pragma 5gresponse-trailer 6gresponse-transfer-encoding 7gresponse-upgrade 8g response-via 9gresponse-warning :gresponse-allow ;gresponse-content-encoding gresponse-content-location ?gresponse-content-md5 @gresponse-content-range Agresponse-content-type Bgtext-content-type? Cgresponse-expires Dgresponse-last-modified Egresponse-accept-ranges Fg response-age Gg response-etag Hgresponse-location Igresponse-proxy-authenticate Jgresponse-retry-after Kgresponse-server Lg response-vary Mgresponse-www-authenticate N#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLM+ Ogset-current-module PO QO Rg  Sg%make-response-procedure Tgmake-syntax-transformer UT VT Wg make-response Xgmacro Yg $sc-dispatch ZY [Y \g_ ]gany ^\]]]]] _g syntax-object `glambda agm-a15fd730aa5-8 bgtop cab dgribcage egt-a15fd730aa5-3 fgt-a15fd730aa5-4 ggt-a15fd730aa5-5 hgt-a15fd730aa5-6 igt-a15fd730aa5-7 jefghi kccccc lfl-a15fd730aa5-d mfl-a15fd730aa5-e nfl-a15fd730aa5-f ofl-a15fd730aa5-10 pfl-a15fd730aa5-11 qlmnop rdjkq sd tgx ut vc wfl-a15fd730aa5-a xw yduvx zgshift {g proc-name |gargs }{| ~b ~~ fl-1e8ba8b5a-2ba fl-1e8ba8b5a-2bb  d} gkey gvalue gname gformals gbody  ~~~~~ fl-1e8ba8b5a-2ad fl-1e8ba8b5a-2ae fl-1e8ba8b5a-2af fl-1e8ba8b5a-2b0 fl-1e8ba8b5a-2b1  d gmake-procedure-name  ~ fl-1e8ba8b5a-29d  d ~ fl-1e8ba8b5a-29c  du crsyzssss  ghygiene  _` gversion ~rsy  _ gcode _ g reason-phrase _ gheaders _ gport _  g make-struct gm-a15fd730aa5-1 b gt-1e8ba8b5a-38d gt-1e8ba8b5a-38c gt-1e8ba8b5a-38b  gm-1e8ba8b5a-38e b  fl-1e8ba8b5a-392 fl-1e8ba8b5a-393 fl-1e8ba8b5a-394  d g ctor-args  fl-1e8ba8b5a-37a  d gctor gfield  fl-1e8ba8b5a-376 fl-1e8ba8b5a-377  d gform g type-name gconstructor-spec g field-names  ~~~~ fl-1e8ba8b5a-36b fl-1e8ba8b5a-36c fl-1e8ba8b5a-36d fl-1e8ba8b5a-36e  d g record-layout gfunctional-setters gsetters gcopier ggetters g constructor ggetter-identifiers gfield-identifiers  ~~~~~~~~ fl-1e8ba8b5a-343 fl-1e8ba8b5a-341 fl-1e8ba8b5a-33f fl-1e8ba8b5a-33d fl-1e8ba8b5a-33b fl-1e8ba8b5a-339 fl-1e8ba8b5a-337 fl-1e8ba8b5a-335  d fl-1e8ba8b5a-334  du rsyzsssss _ _R _    geach-any \ gsyntax-violation   fWrong number of arguments g identifier?   ~sy _S   f-source expression failed to match any pattern grecord-type-vtable   g pwpwpwpwpw gdefault-record-printer    gset-struct-vtable-name!     gvtable-offset-user        g%response?-procedure \] gm-a15fd730aa5-1d b gt-a15fd730aa5-1c   fl-a15fd730aa5-22  d fl-a15fd730aa5-1f  du szssss  _` gobj gt-1e8ba8b5a-47e gt-1e8ba8b5a-478 gt-1e8ba8b5a-479  gt-1e8ba8b5a-47a !gt-1e8ba8b5a-47d "gt-1e8ba8b5a-47c #gt-1e8ba8b5a-47b $ !"# %gm-1e8ba8b5a-47f &%b '&&&&&&& (fl-1e8ba8b5a-483 )fl-1e8ba8b5a-484 *fl-1e8ba8b5a-485 +fl-1e8ba8b5a-486 ,fl-1e8ba8b5a-487 -fl-1e8ba8b5a-488 .fl-1e8ba8b5a-489 /()*+,-. 0d$'/ 1g copier-id 21 3fl-1e8ba8b5a-476 43 5d24 6g ctor-name 76 8fl-1e8ba8b5a-46e 98 :d79 ; d;= ?glayout @? Afl-1e8ba8b5a-46a BA Cd@B Dg immutable? ED Ffl-1e8ba8b5a-468 GF HdEG Ig field-count JI Kfl-1e8ba8b5a-466 LK MdJL Ng getter-ids ON Pfl-1e8ba8b5a-463 QP RdOQ Sg field-ids TS Ufl-1e8ba8b5a-460 VU WdTV Xgpredicate-name Yg field-spec ZDXY [~~~~~~ \fl-1e8ba8b5a-453 ]fl-1e8ba8b5a-454 ^fl-1e8ba8b5a-455 _fl-1e8ba8b5a-456 `fl-1e8ba8b5a-457 afl-1e8ba8b5a-458 b\]^_`a cdZ[b dszs0ssss5s:s>sCsHsMsRsWc e_d fe ggand h_gd igstruct? j_id kje lgeq? m_ld ng struct-vtable o_nd poe q~s r_Rq smpr thks uft v~s w_ v xgthrow-bad-struct yx zx {g%response-version-procedure |gfree-id }g %%on-error ~gm-a15fd730aa5-29 ~b  fl-a15fd730aa5-2b  du szssss  _} | ] g%%type gt-1e8ba8b5a-3a5 gt-1e8ba8b5a-3a6 gt-1e8ba8b5a-3a7 gt-1e8ba8b5a-3a8 gt-1e8ba8b5a-3a9 gt-1e8ba8b5a-3aa gt-1e8ba8b5a-3ab  gm-1e8ba8b5a-3ac b  fl-1e8ba8b5a-3b0 fl-1e8ba8b5a-3b1 fl-1e8ba8b5a-3b2 fl-1e8ba8b5a-3b3 fl-1e8ba8b5a-3b4 fl-1e8ba8b5a-3b5 fl-1e8ba8b5a-3b6  d ggetter gindex  fl-1e8ba8b5a-3a3 fl-1e8ba8b5a-3a4  d N1 ~~~ fl-1e8ba8b5a-39e fl-1e8ba8b5a-39f fl-1e8ba8b5a-3a0  d szsssss _ | \] gck gerr gs   fl-a15fd730aa5-2e fl-a15fd730aa5-2f  d szssss  _ gquote _ ~s _R   g%%index _ | \] fl-a15fd730aa5-33 fl-a15fd730aa5-34  d szssss  _ _ s _    g%%copier _ | \] fl-a15fd730aa5-38 fl-a15fd730aa5-39  d szssss  _ _ g%%-set-fields ~s _   gt-a15fd730aa5-28  fl-a15fd730aa5-3d  d szssss  _` szsssss _  gif _ _l _n  ~s _R  g struct-ref _ s _   _x _ _$     ~s _{ g%response-code-procedure gm-a15fd730aa5-44 b  fl-a15fd730aa5-46  du szssss  _} |  ]  szsssss  _   |   \  ]  fl-a15fd730aa5-49 fl-a15fd730aa5-4a  d szssss  _ _ ~s _R   _  | \ ] fl-a15fd730aa5-4e fl-a15fd730aa5-4f   d ! szssss  "_! #_! $ s %_ $ &#% '& (_  )|( *\ )] +fl-a15fd730aa5-53 ,fl-a15fd730aa5-54 -+, .d- /.szssss  0_/ 1_/ 2~.s 3_2 413 54 6gt-a15fd730aa5-43 76 8fl-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 Vgm-a15fd730aa5-5f WVb XW Yfl-a15fd730aa5-61 ZY [duXZ \Ws[zssss  ]_}\ ^|] _^] `s[zsssss a_` b|a c\_b] dWW efl-a15fd730aa5-64 ffl-a15fd730aa5-65 gef hddg iWhs[zssss  j_i k_i l~hs[ m_Rl nkm on p_` q|p r\_q] sfl-a15fd730aa5-69 tfl-a15fd730aa5-6a ust vddu wWvs[zssss  x_w y_w zvs[ {_ z |y{ }| ~_` |~ \_] fl-a15fd730aa5-6e fl-a15fd730aa5-6f  dd Ws[zssss  _ _ ~s[ _   gt-a15fd730aa5-5e  fl-a15fd730aa5-73  dX Ws[zssss  _` s[zsssss _  _ _l _n  ~s[ _R  _ s[ _   _x _ _T     ~s[ _U g%response-headers-procedure gm-a15fd730aa5-7a b  fl-a15fd730aa5-7c  du szssss  _} | ] szsssss _ | \]  fl-a15fd730aa5-7f fl-a15fd730aa5-80  d szssss  _ _ ~s _R   _ | \] fl-a15fd730aa5-84 fl-a15fd730aa5-85  d szssss  _ _ s _    _ | \] fl-a15fd730aa5-89 fl-a15fd730aa5-8a  d szssss  _ _ ~s _   gt-a15fd730aa5-79  fl-a15fd730aa5-8e  d szssss  _` szsssss _  _ _l _n  ~s _R  _ s _   _x _ _'     ~s _ g%response-port-procedure gm-a15fd730aa5-95 b  fl-a15fd730aa5-97  du szssss  _} |  ]  szsssss  _   |   \  ]  fl-a15fd730aa5-9a fl-a15fd730aa5-9b  d szssss  _ _ ~s _R   _  | \ ] fl-a15fd730aa5-9f fl-a15fd730aa5-a0   d ! szssss  "_! #_! $ s %_ $ &#% '& (_  )|( *\ )] +fl-a15fd730aa5-a4 ,fl-a15fd730aa5-a5 -+, .d- /.szssss  0_/ 1_/ 2~.s 3_2 413 54 6gt-a15fd730aa5-94 76 8fl-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 Tgeach U]] VTU W]V X]W Y]X Zg %%set-fields [gdummy \gcheck? ]gexpr ^[\] _gm-a15fd730aa5-b0 `_b a` bfl-a15fd730aa5-b5 cfl-a15fd730aa5-b6 dfl-a15fd730aa5-b7 efl-a15fd730aa5-b8 ffl-a15fd730aa5-b9 gbcdef hd^ag i` jfl-a15fd730aa5-b2 kj lduik mgt-1e8ba8b5a-3c4 ngt-1e8ba8b5a-3c6 ogt-1e8ba8b5a-3c5 pmno qgm-1e8ba8b5a-3c7 rqb srrr tfl-1e8ba8b5a-3cb ufl-1e8ba8b5a-3cc vfl-1e8ba8b5a-3cd wtuv xdpsw yfl-1e8ba8b5a-3c1 zfl-1e8ba8b5a-3c2 {fl-1e8ba8b5a-3c3 |yz{ }d| ~hslzsxsss}  _Z~ ~hsl _R _$ _% _T _' _(  gmap   glist gthrow g bad-response gnumber? gexact? ginteger? gnon-negative-integer? g valid-header? gvalidate-headers fBad value for header ~a: ~s fHeader not a pair: ~a fHeaders not a list: ~a gversionS   gcodeS   g reason-phraseS   gheadersS   gportS   gvalidate-headers?S      fBad version: ~a f Bad code: ~a gstring? fBad reason phrase fContinue  d fSwitching Protocols  e fOK   fCreated   fAccepted   fNon-Authoritative Information   f No Content   f Reset Content   fPartial Content   fMultiple Choices  , fMoved Permanently  - fFound  . f See Other  / f Not Modified  0Ì f Use Proxy  1Ō fTemporary Redirect  3nj f Bad Request  Ɍ f Unauthorized  ˌ fPayment Required  ͌ f Forbidden  ό f Not Found  ь fMethod Not Allowed  ӌ fNot Acceptable  Ռ fProxy Authentication Required  ׌ fRequest Timeout  ٌ fConflict  ی fGone  ݌ fLength Required  ߌ fPrecondition Failed  ጤ fRequest Entity Too Large  ㌤ fRequest-URI Too Long  匤 fUnsupported Media Type  猤 fRequested Range Not Satisfiable  錤 fExpectation Failed  댤 fInternal Server Error  팤 fNot Implemented   f Bad Gateway   fService Unavailable   fGateway Timeout   fHTTP Version Not Supported   ( g*reason-phrases* gassv-ref f (Unknown) gcode->reason-phrase gsymbol->string gstring-prefix? ftext/ gstring-suffix? f/xml f+xml gset-port-encoding! f ISO-8859-1 gread-response-line g read-headers gwrite-response-line  g write-headers  gdisplay  f   g close-port  gmake-custom-binary-input-port fdelimited input port gmin g eof-object? f/EOF while reading response body: ~a bytes of ~a gget-bytevector-n! gmake-delimited-input-port gdecode?S   g keep-alive?S    gmember gchunked  gmake-chunked-input-port gmemq gclose    g keep-alive !gassq-ref "gcharset #gand=> $gget-bytevector-all %gvu8 j &gput-bytevector 'gdefine-response-accessor ( )fl-a15fd730aa5-22a *) +d(* ,fl-a15fd730aa5-227 -, .du- /~+s. 0_'/ 1_/ 21 3\]] 4g datum->syntax 5g symbol-append 6g response- 7g syntax->datum 8gdefine* 9gt-a15fd730aa5-235 :9 ;gm-a15fd730aa5-236 <;b =< >fl-a15fd730aa5-239 ?> @d:=? Agdef BA Cfl-a15fd730aa5-231 Dfl-a15fd730aa5-232 ECD FdBE G~s@Fs. H_8G I_G JgoptionalS K_JG Lgdefault M_LG Ngcond O_NG Pgassq Q_PG R_G S_'G TSI UT Vg=> W_VG Xgcdr Y_XG ZWY [gelse \_[G ]\M ^] _g cache-control `g connection agdate bgpragma cgtrailer dgtransfer-encoding egupgrade fgvia ggwarning hgallow igcontent-encoding jgcontent-language kgcontent-length lgcontent-location mg content-md5 ng content-range og content-type pgexpires qg last-modified rg accept-ranges sgage tgetag uglocation vgproxy-authenticate wg retry-after xgserver ygvary zgwww-authenticateC5h`o]4   !"N54Q>"GRh]Cgversion  gcode  g reason-phrase   gheaders   gport   gfilenamefweb/response.scm S    gnameg%make-response-procedureCSR4VWX[^h]Cgt-a15fd730aa5-3  gt-a15fd730aa5-4  gt-a15fd730aa5-5   gt-a15fd730aa5-6   gt-a15fd730aa5-7      CWhS]L6Kga  gfilenamefweb/response.scm  S   C\hC]L6;gfilenamefweb/response.scm  S    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefweb/response.scm S   n C5WRR4 R>"G  SiRRRhu]$CCmgobj  gfilenamefweb/response.scm S    gnameg%response?-procedureC R4V#X[uh8]C0gt-a15fd730aa5-1c    C#hS]L6Kga  gfilenamefweb/response.scm  S   C\hC]L6;gfilenamefweb/response.scm  S    Cwh]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefweb/response.scm S   n C5#RRz$hz]& C6rgs  gfilenamefweb/response.scm S    gnameg%response-version-procedureC{R4V$X[h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch8]C0gt-a15fd730aa5-28    C$hS]L6Kga  gfilenamefweb/response.scm  S   C\hC]L6;gfilenamefweb/response.scm  S    Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefweb/response.scm S   C5$RRz%hw]& C6ogs  gfilenamefweb/response.scm S    gnameg%response-code-procedureCR4V%X[ h:]C2gerr  gs    C"'h:]C2gerr  gs    C*05h:]C2gerr  gs    CQh8]C0gt-a15fd730aa5-43    C%hS]L6Kga  gfilenamefweb/response.scm  S   C\hC]L6;gfilenamefweb/response.scm  S    CSh]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefweb/response.scm S   C5%RRzTh ]& C6ygs  gfilenamefweb/response.scm S    gnameg"%%response-reason-phrase-procedureCUR4VTX[cjoh:]C2gerr  gs    Crx}h:]C2gerr  gs    Ch:]C2gerr  gs    Ch8]C0gt-a15fd730aa5-5e    CThS]L6Kga  gfilenamefweb/response.scm  S   C\hC]L6;gfilenamefweb/response.scm  S    Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefweb/response.scm S   C5TRRz'h z]& C6rgs  gfilenamefweb/response.scm S    gnameg%response-headers-procedureCR4V'X[h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch8]C0gt-a15fd730aa5-79    C'hS]L6Kga  gfilenamefweb/response.scm  S   C\hC]L6;gfilenamefweb/response.scm  S    Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefweb/response.scm S   C5'RRz(h w]& C6ogs  gfilenamefweb/response.scm S    gnameg%response-port-procedureCR4V(X[ h:]C2gerr  gs    C"'h:]C2gerr  gs    C*05h:]C2gerr  gs    CQh8]C0gt-a15fd730aa5-94    C(hS]L6Kga  gfilenamefweb/response.scm  S   C\hC]L6;gfilenamefweb/response.scm  S    CSh]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefweb/response.scm S   C5(R4VX[Yh v]45Cngdummy  gcheck?  gs   ggetter   gexpr      Ch(] 45$@6gx  "gtmp "gfilenamefweb/response.scm S   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5Rh-136gmessage gargs gfilenamefweb/response.scm \ ]  ]   gnameg bad-responseCRh0]45$ $45$6CCCgn  ,gfilenamefweb/response.scm _  `  `   `   `   `  `  & ` '  , gnamegnon-negative-integer?CRhXA]$<$(45$666(C69gheaders  Ugh Egk   =gv   =gfilenamefweb/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 gnamegvalidate-headersCRR hP-/03## ####"4>"G"$45$45$"4>"G"~45$o X$]" $4>"@G"9"5$+45$""4 >"G""""r""j""'"""" Cgversion  Igcode  Ig reason-phrase   Igheaders   Igport   Igvalidate-headers?   Igfilenamefweb/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 gversionS gcodeS g reason-phraseS gheadersS gportS gvalidate-headers?S gnamegbuild-responseg documentationf~Construct an HTTP response object. If VALIDATE-HEADERS? is true, the headers are each run through their respective validators.C*RRh ] 45$CCgcode  gt gfilenamefweb/response.scm        gnamegcode->reason-phraseCRRzT%hH'] &  " 45$C& " 456gresponse  Fgt  Fgfilenamefweb/response.scm     -  F   F gnamegresponse-reason-phraseg documentationfbReturn the reason phrase given in RESPONSE, or the standard reason phrase for the response's code.C&Rh@]4545$C45$C6gtype  ;gtype ;gt   ;gt  ( ;gfilenamefweb/response.scm            $  (  (  7  ;   ; gnamegtext-content-type?g documentationfsReturn #t if TYPE, a symbol as returned by `response-content-type', represents a textual type such as `text/plain'.CBRRhH]!4>"G4> G45Cgport  Cgversion ! Cgcode  ! Cg reason-phrase  ! Cgheaders  1 Cgfilenamefweb/response.scm        $  + 0 1   C gnameg read-responseg documentationfRead 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]& " 45&  " 45 &  " 4 56Agresponse  `gversion  `gfilenamefweb/response.scm  )  F  `   ` gnamegadapt-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& " 45& " 4545>"G4&  " 45>"G4  >"G&  " 4 5&C& " 45& " 4545&  " 45Cgr  "gport  "gversion   "gcode   "g reason-phrase   "gheaders   "gfilenamefweb/response.scm     " , :  G  P  U  t  }      *  0    " gnamegwrite-responseg documentationkhWrite the given HTTP response to PORT. Returns a new response, whose  response-port will continue writing on PORT, perhaps using some transfer encoding.C,RRz%h ] & " 45 d$  Ǔ"$C& " 45 ̑$C& " 45 0Cgr  gb  5gt 5 gt ^ gfilenamefweb/response.scm     5  C ^  ^  l   gnamegresponse-must-not-include-body?g documentationkReturns  #t if the response R is not permitted to have a body. This is true for some response types, like those with code 304.C-R hM]L6Egfilenamefweb/response.scm       C h]4LM5"Y45$ML$ CML6" MNC $ $4L5"""4L5"~gbv  gstart  gcount   gcount   gret   mgfilenamefweb/response.scm               $  (  .  4  =  ?   B  E   J  N  R   S   e   m  n    gnamegread!Ch8]HH K$"OKOJ6gport  4glen  4g keep-alive?   4g bytes-read   4gclose   4gfilenamefweb/response.scm    #  ! 2   4    4 gnamegmake-delimited-input-portg documentationfReturn 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-/03##H4455$(4&  " 45 5"4 5$(4 &  " 455"4 5$"4 455$"5& " 45$4 455"$&  " 45"&  " 45K$rJ$h45$Q45$24J45$">"G""""JCgr  gdecode?  g keep-alive?   gport  & gt  i =gt  gv  R gw  a gx  a gt  ~  gfilenamefweb/response.scm  )   -   .   6   :   ;   @   ^   c   i   r  w  &      " "  "  " "  #  # , #  # $  $  $ & $  $      %  " +  E -  K -  L .  q 0  v 1  | 1 / ~ 1  ~ 1   2   0 ,   gdecode?S g keep-alive?S gnamegresponse-body-portg documentationkReturn an input port from which the body of R can be read. The encoding of the returned port is set according to R's  content-type header, when it's textual, except if DECODE? is  #f . Return #f when no body is available. When KEEP-ALIVE? is  #f , closing the returned port also closes R's response port.C.R#.$%h(M] 445545$CCEgr  &gbody  &gfilenamefweb/response.scm 7  :   :   :   :   >  >  " ?   & gnamegread-response-bodyg documentationktReads the response body from R, as a bytevector. Returns  #f if there was no response body.C/R&Rz(h(]&  " 456gr  #gbv  #gfilenamefweb/response.scm B  E  # E   # gnamegwrite-response-bodyg documentationfIWrite BV, a bytevector, to the port corresponding to the HTTP response R.C0R4V'X[02h-]C%gfield    C3hj]6bgfield  gdef  gfilenamefweb/response.scm  L    C4567HIKMOQRUZ^hH] 444555     Cgfield  Egdef  Egtmp   Egfilenamefweb/response.scm  M   O  O % O 0  O   M   M   E C hPu]45$@45" 6$4?$@""mgx  Pgtmp Pgtmp  " Pgfilenamefweb/response.scm H   P C5'RP_Rz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm X  X (  X  F gnamegresponse-cache-controlC1RP`Rz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm Y  Y %  Y  F gnamegresponse-connectionC2RPaRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm Z  F gnameg response-dateC3RPbRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm [  [ !  [  F gnamegresponse-pragmaC4RPcRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm \  \ "  \  F gnamegresponse-trailerC5RPdRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm ]  ] ,  ]  F gnamegresponse-transfer-encodingC6RPeRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm ^  ^ "  ^  F gnamegresponse-upgradeC7RPfRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm _  _   _  F gnameg response-viaC8RPgRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm `  ` "  `  F gnamegresponse-warningC9RPhRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm d  d  d  F gnamegresponse-allowC:RPiRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm e  e +  e  F gnamegresponse-content-encodingC;RPjRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm f  f +  f  F gnamegresponse-content-languageCRPmRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm i  F gnamegresponse-content-md5C?RPnRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm j  F gnamegresponse-content-rangeC@RPoRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm k  F gnamegresponse-content-typeCARPpRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm l  F gnamegresponse-expiresCCRPqRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm m  F gnamegresponse-last-modifiedCDRPrRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm q  F gnamegresponse-accept-rangesCERPsRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm r  F gnameg response-ageCFRPtRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm s  F gnameg response-etagCGRPuRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm t  F gnamegresponse-locationCHRPvRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm u  F gnamegresponse-proxy-authenticateCIRPwRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm v  F gnamegresponse-retry-afterCJRPxRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm w  F gnamegresponse-serverCKRPyRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm x  x   x  F gnameg response-varyCLRPzRz'hH-.,3#4&  " 455$CCgresponse Fgdefault Fgt  7 Fgfilenamefweb/response.scm y  F gnamegresponse-www-authenticateCMRCgm  ,grtd : dgfilenamefweb/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 C6web/client.go000064400000102527152537005630007143 0ustar00GOOF----LE-8-2.0?]4hh] gguile  gdefine-module*   gweb gclient  gfilenameS fweb/client.scm gimportsS grnrs g bytevectors     gice-9 g binary-ports   giconv   grdelim   grequest   gresponse   guri !  "! #ghttp $# %$ &gsrfi 'gsrfi-1 (&' )( *gsrfi-9 +&* ,+ -ggnu .&*- /. 0"%),/  1gexportsS 2gcurrent-http-proxy 3gopen-socket-for-uri 4ghttp-get 5g http-get* 6g http-head 7g http-post 8ghttp-put 9g http-delete :g http-trace ;g http-options <23456789:;  =gset-current-module >= ?= @gmake-parameter Aggetenv Bf http_proxy Cf Dgstring? Eg string->uri Fgerror Gf Invalid URI Hg I!H J!H Kg ensure-uri Lgthrow-bad-struct M+L N+L Oguri-port Pgdelete-duplicates Qg getaddrinfo Rguri-host Sgnumber->string Tgsymbol->string Ug uri-scheme VgAI_NUMERICSERV Wg addrinfo:addr Xg%default-port-encoding Ygsocket Zg addrinfo:fam [g SOCK_STREAM \g IPPROTO_IP ]gcatch ^g system-error _gconnect `gsetvbuf ag_IOFBF bgset-http-proxy-port?! cgclose dgthrow eg  fe ge hg assoc-set! ig copy-tree jg%%-set-fields kgextend-request lgrequest-content-type mg text/plain nm ogassq-ref pgcharset qgsanitize-request rg content-type sgappend ts us vfutf-8 wgstring->bytevector xg procedure? ygcall-with-encoded-output-string zg bytevector? {grequest-content-length |gbytevector-length }fbad content-length ~gcontent-length funexpected body type fcontent-length, but no body gassq gtransfer-encoding grequest-headers f*transfer-encoding not allowed with no body gvu8 j gresponse-content-length gresponse-content-type gtext-content-type? gbytevector->string f iso-8859-1 gdecode-response-body gbodyS   gportS   gmethodS   gversionS   g keep-alive?S   gheadersS   g decode-body?S   g streaming?S   grequestS     gGET  g build-request g connection c g write-request gwrite-request-body g force-output g request-port g read-response grequest-method gHEAD g close-port gresponse-body-port gdecode?S gread-response-body     g extra-headersS    gissue-deprecation-warning fHThe #:extra-headers argument to http-get has been renamed to #:headers.  fPlease update your code.  f"`http-get*' has been deprecated.  fBInstead, use `http-get' with the #:streaming? #t keyword argument. gmake-syntax-transformer   gdefine-http-verb gmacro g $sc-dispatch   gany  g syntax-object gdefine* gtop  gribcage gdummy g http-verb gmethod gdoc  gm-1a596c681-fb   fl-1a596c681-100 fl-1a596c681-101 fl-1a596c681-102 fl-1a596c681-103    gx   fl-1a596c681-fd    ghygiene     gkeyS  gbody    gport  3   gversion  gquote       g keep-alive?   gheaders    g decode-body?    g streaming?                          gsyntax-violation   f-source expression failed to match any pattern        gPOST gPUT gDELETE gTRACE gOPTIONSC5hho-]4   01<54?>"G4@i4AiB5C$"52RDEFGJh@]45$6"6$&C""g uri-or-string  :gfilenamefweb/client.scm =  ?  >   ?   A   A  >  " @  & >  ) @   : gnameg ensure-uriCKR2KJNOPQRSTUVWh|]4545Ctgai1  gai2  gfilenamefweb/client.scm P   Q  Q %  Q    CXYZ[\]^_W`abhPq]4L4L5>"G4L>"GM$4L>"G"LCigfilenamefweb/client.scm Y   Z  Z   Z  ] 5 _ 6 _   O Ccdh0-134L>"GL(@LL6~gargs /gfilenamefweb/client.scm a  c  d  " d ( e  - f  / f  / C h@]Y4455ZLO LO6g addresses  ;gai  ;gs   ;gfilenamefweb/client.scm S   T   T  W   W   W   T  # X ; X   ; gnamegloopCh]!HHH45K4J$J"5KJ& J " 4J544J& J " 4J5$ 4 5"4 J&J " 4J 55$ " 5 5KOQJ6g uri-or-string  g http-proxy  guri   g addresses   gport  B gloop  gfilenamefweb/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   gnamegopen-socket-for-urig documentationf9Return an open input/output port for a connection to URI.C3RghiNjkhh-13&3   44 55  " 45(C@gr agk agv  ag additional  agr  N agfilenamefweb/client.scm h i " j  % j " , j - . j " 4 j  9 i N i  V l  a n  a  gnamegextend-requestCkRDlnopqkruvwxyz{|F}~gNh]$45$T4545$"44  554 $" 564 5$T4545$"44  554 $" 5645$K4545$$" 45" 45D645$" $"4>"G"<4&  " 455$4>"G"D}grequest  gbody  gtype   ggdeclared-charset  ( ggtype  { gdeclared-charset  grlen  gblen  glength  )  gfilenamefweb/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   gnamegsanitize-requestg documentationk0"Sanitize" the given request and body, ensuring that they are complete and coherent. This method is most useful for methods that send data to the server, like POST, but can be used for any method. Return two values: a request and a bytevector, possibly the same ones that were passed as arguments. If BODY is a string, encodes the string to a bytevector, in an encoding appropriate for REQUEST. Adds a  content-length and  content-type header, as necessary. If BODY is a procedure, it is called with a port as an argument, and the output collected as a bytevector. In the future we might try to instead use a compressing, chunk-encoded port, and call this procedure later. Authors are advised not to rely on the procedure being called at any particular time. Note that we rely on the request itself already having been validated, as is the case by default with a request returned by `build-request'.CqRz|opF} h]"$45${4545"D45$245$#45$" 6CC$$"  6"  6Cgresponse  gbody  grlen  ! gblen  ! gt  0 mgt  R egfilenamefweb/client.scm          !  *  0  9  > # @  D I , N 6 P A R , R ( b , g  m  x  |      gnamegdecode-response-bodyCR3KqgNh-/ 0 3## 45###### #-445 $"  5  4  > G  4  5  $4  >"G"4 &  " 4 5>"G45  & " 4 5&!$"4>"G D$ 4 5D4 5$"4>"G $ 4 5"Dguri  gbody  gport   gmethod   gversion   g keep-alive?   gheaders   g decode-body?   g streaming?   grequest  grequest gbody grequest gresponse  gbody  h gfilenamefweb/client.scm #  3  =  O  j  m   ( "               # * ' - 2  H N Q  a b  h p  u       '   gbodyS gportS gmethodS gversionS g keep-alive?S gheadersS g decode-body?S g streaming?S grequestS  gnamegrequestCR3h)-/ 0 3 ## 45####$"##$4>"G"     6!guri  gbody  gport   gversion   g keep-alive?   g extra-headers   gheaders   g decode-body?   g streaming?    gfilenamefweb/client.scm #  3  S / Z A t   u   y   {          gbodyS gportS gversionS g keep-alive?S g extra-headersS gheadersS g decode-body?S g streaming?S  gnameghttp-getg documentationkConnect to the server corresponding to URI and ask for the resource, using the  GET method. If you already have a port open, pass it as PORT. The port will be closed at the end of the request unless KEEP-ALIVE? is true. Any extra headers in the alist HEADERS will be added to the request. If BODY is not  #f , a message body will also be sent with the HTTP request. If BODY is a string, it is encoded according to the content-type in HEADERS, defaulting to UTF-8. Otherwise BODY should be a bytevector, or  #f for no body. Although it's allowed to send a message body along with any request, usually only POST and PUT requests have bodies. See  http-put and  http-post documentation, for more. If DECODE-BODY? is true, as is the default, the body of the response will be decoded to string, if it is a textual content-type. Otherwise it will be returned as a bytevector. However, if STREAMING? is true, instead of eagerly reading the response body from the server, this function only reads off the headers. The response body will be returned as a port on which the data may be read. Unless KEEP-ALIVE? is true, the port will be closed after the full response body has been read. Returns two values: the response read from the server, and the response body as a string, bytevector, #f value, or as a port (if STREAMING? is true).C4R34h-/03## 45####$"#4>"G     6guri  gbody  gport   gversion   g keep-alive?   g extra-headers   gheaders   g decode-body?   gfilenamefweb/client.scm ! # #  3 $  S & 0 Z & B f )  j *  l +  q )  ,   gbodyS gportS gversionS g keep-alive?S g extra-headersS gheadersS g decode-body?S gnameg http-get*g documentationf2Deprecated in favor of (http-get #:streaming? #t).C5R4 h(i]Cagdummy  #g http-verb  #gmethod   #gdoc   #  # Ch(] 45$@6gx  "gtmp "gfilenamefweb/client.scm 0   " g macro-typeg syntax-rulesgpatternsg http-verbgmethodgdocC5R3h-/03## 45#####     6guri  gbody  gport   gversion   g keep-alive?   gheaders   g decode-body?   g streaming?   gfilenamefweb/client.scm @ e A   @    gbodyS gportS gversionS g keep-alive?S gheadersS g decode-body?S g streaming?S gnameg http-headg documentationk@Fetch message headers for the given URI using the HTTP "HEAD" method. This function is similar to  http-get , except it uses the "HEAD" method. See  http-get for full documentation on the various keyword arguments that are accepted by this function. Returns two values: the resulting response, and  #f . Responses to HEAD requests do not have a body. The second value is only returned so that other procedures can treat all of the http-foo verbs identically.C6R3hi-/03## 45#####     6aguri  gbody  gport   gversion   g keep-alive?   gheaders   g decode-body?   g streaming?   gfilenamefweb/client.scm M e N   M    gbodyS gportS gversionS g keep-alive?S gheadersS g decode-body?S g streaming?S gnameg http-postg documentationkPost data to the given URI using the HTTP "POST" method. This function is similar to  http-get , except it uses the "POST" method. See  http-get for full documentation on the various keyword arguments that are accepted by this function. Returns two values: the resulting response, and the response body.C7R3h]-/03## 45#####     6Uguri  gbody  gport   gversion   g keep-alive?   gheaders   g decode-body?   g streaming?   gfilenamefweb/client.scm W e X   W    gbodyS gportS gversionS g keep-alive?S gheadersS g decode-body?S g streaming?S gnameghttp-putg documentationkPut data at the given URI using the HTTP "PUT" method. This function is similar to  http-get , except it uses the "PUT" method. See  http-get for full documentation on the various keyword arguments that are accepted by this function. Returns two values: the resulting response, and the response body.C8R3h-/03## 45#####     6}guri  gbody  gport   gversion   g keep-alive?   gheaders   g decode-body?   g streaming?   gfilenamefweb/client.scm a e b   a    gbodyS gportS gversionS g keep-alive?S gheadersS g decode-body?S g streaming?S gnameg http-deleteg documentationkDelete data at the given URI using the HTTP "DELETE" method. This function is similar to  http-get , except it uses the "DELETE" method. See  http-get for full documentation on the various keyword arguments that are accepted by this function. Returns two values: the resulting response, and the response body.C9R3h-/03## 45#####     6guri  gbody  gport   gversion   g keep-alive?   gheaders   g decode-body?   g streaming?   gfilenamefweb/client.scm k e l   k    gbodyS gportS gversionS g keep-alive?S gheadersS g decode-body?S g streaming?S gnameg http-traceg documentationkdSend an HTTP "TRACE" request. This function is similar to  http-get , except it uses the "TRACE" method. See  http-get for full documentation on the various keyword arguments that are accepted by this function. Returns two values: the resulting response, and the response body.C:R3h-/03## 45#####     6guri  gbody  gport   gversion   g keep-alive?   gheaders   g decode-body?   g streaming?   gfilenamefweb/client.scm u e v   u    gbodyS gportS gversionS g keep-alive?S gheadersS g decode-body?S g streaming?S gnameg http-optionsg documentationk Query characteristics of an HTTP resource using the HTTP "OPTIONS" method. This function is similar to  http-get , except it uses the "OPTIONS" method. See  http-get for full documentation on the various keyword arguments that are accepted by this function. Returns two values: the resulting response, and the response body.C;RC%gm  ,gproxy : Ogfilenamefweb/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 C6web/server/http.go000064400000071001152537005630010142 0ustar00GOOF----LE-8-2.0q]\4h=] gguile  gdefine-module*   gweb gserver ghttp  gfilenameS fweb/server/http.scm gimportsS gsrfi gsrfi-1   gselectS gfold   gsrfi-9    grnrs g bytevectors   grequest   gresponse   ! "! #gice-9 $gpoll %#$ &% ' "& (gexportsS ) *gset-current-module +* ,* -gsocket .gPF_INET /g SOCK_STREAM 0g setsockopt 1g SOL_SOCKET 2g SO_REUSEADDR 3gbind 4gmake-default-socket 5g  6g%make-http-server-procedure 7gmake-syntax-transformer 87 97 :gmake-http-server ;gmacro < ?g_ @gany A?@@@ Bg syntax-object Cglambda Dg m-1e74a72e9-e Egtop FDE Ggribcage Hg t-1e74a72e9-b Ig t-1e74a72e9-c Jg t-1e74a72e9-d KHIJ LFFF Mfl-1e74a72e9-13 Nfl-1e74a72e9-14 Ofl-1e74a72e9-15 PMNO QGKLP RG Sgx TS UF Vfl-1e74a72e9-10 WV XGTUW Ygshift Zg proc-name [gargs \Z[ ]E ^]] _fl-1e8ba8b5a-2ba `fl-1e8ba8b5a-2bb a_` bG\^a cgkey dgvalue egname fgformals ggbody hcdefg i]]]]] jfl-1e8ba8b5a-2ad kfl-1e8ba8b5a-2ae lfl-1e8ba8b5a-2af mfl-1e8ba8b5a-2b0 nfl-1e8ba8b5a-2b1 ojklmn pGhio qgmake-procedure-name rq s] tfl-1e8ba8b5a-29d ut vGrsu w] xfl-1e8ba8b5a-29c yx zGTwy {FQRXYRRRRbpvz  |ghygiene }|  ~BC{} ]QRX | B- gpoll-idx B gpoll-set B  g make-struct g m-1e74a72e9-9 E gt-1e8ba8b5a-38d gt-1e8ba8b5a-38c gt-1e8ba8b5a-38b  gm-1e8ba8b5a-38e E  fl-1e8ba8b5a-392 fl-1e8ba8b5a-393 fl-1e8ba8b5a-394  G g ctor-args  fl-1e8ba8b5a-37a  Gw gctor gfield  fl-1e8ba8b5a-376 fl-1e8ba8b5a-377  G^ gform g type-name gconstructor-spec g field-names  ]]]] fl-1e8ba8b5a-36b fl-1e8ba8b5a-36c fl-1e8ba8b5a-36d fl-1e8ba8b5a-36e  G g record-layout gfunctional-setters gsetters gcopier ggetters g constructor ggetter-identifiers gfield-identifiers  ]]]]]]]] fl-1e8ba8b5a-343 fl-1e8ba8b5a-341 fl-1e8ba8b5a-33f fl-1e8ba8b5a-33d fl-1e8ba8b5a-33b fl-1e8ba8b5a-339 fl-1e8ba8b5a-337 fl-1e8ba8b5a-335  G fl-1e8ba8b5a-334  GTw QRXYRRRRR B} B5 B }  ~ geach-any ?ˌ gsyntax-violation   fWrong number of arguments g identifier?   ]RX B6   f-source expression failed to match any pattern grecord-type-vtable   gpwpwpw gdefault-record-printer   - gset-struct-vtable-name!   gvtable-offset-user   g%http-server?-procedure g http-server? ?@ gm-1e74a72e9-1f E gt-1e74a72e9-1e   fl-1e74a72e9-24  G fl-1e74a72e9-21  GT RYRRRRbpvz  BC} gobj gt-1e8ba8b5a-47e gt-1e8ba8b5a-478 gt-1e8ba8b5a-479 gt-1e8ba8b5a-47a gt-1e8ba8b5a-47d gt-1e8ba8b5a-47c gt-1e8ba8b5a-47b  gm-1e8ba8b5a-47f E  fl-1e8ba8b5a-483 fl-1e8ba8b5a-484 fl-1e8ba8b5a-485 fl-1e8ba8b5a-486 fl-1e8ba8b5a-487 fl-1e8ba8b5a-488  fl-1e8ba8b5a-489     G   g copier-id    fl-1e8ba8b5a-476  G w g ctor-name  fl-1e8ba8b5a-46e  Gw  fl-1e8ba8b5a-46c  Gw glayout  fl-1e8ba8b5a-46a  Gw g immutable?   !fl-1e8ba8b5a-468 "! #G w" $g field-count %$ &fl-1e8ba8b5a-466 '& (G%w' )g getter-ids *) +fl-1e8ba8b5a-463 ,+ -G*w, .g field-ids /. 0fl-1e8ba8b5a-460 10 2G/w1 3gpredicate-name 4g field-spec 534 6]]]]]] 7fl-1e8ba8b5a-453 8fl-1e8ba8b5a-454 9fl-1e8ba8b5a-455 :fl-1e8ba8b5a-456 ;fl-1e8ba8b5a-457 G56= ?RYR RRRRRRRR#R(R-R2> @B?} A@ Bgand CBB?} Dgstruct? EBD?} FE@ Ggeq? HBG?} Ig struct-vtable JBI?} KJ@ L]R MB5L NHKM OCFN PAO Q]R RBQ Sgthrow-bad-struct TS US Vg http-socket Wg%http-socket-procedure Xgfree-id Yg %%on-error Zgm-1e74a72e9-2b [ZE \[ ]fl-1e74a72e9-2d ^] _GT\^ `[R_YRRRRbpvz  aBY`} bXa cb@ dg%%type egt-1e8ba8b5a-3a5 fgt-1e8ba8b5a-3a6 ggt-1e8ba8b5a-3a7 hgt-1e8ba8b5a-3a8 igt-1e8ba8b5a-3a9 jgt-1e8ba8b5a-3aa kgt-1e8ba8b5a-3ab lefghijk mgm-1e8ba8b5a-3ac nmE onnnnnnn pfl-1e8ba8b5a-3b0 qfl-1e8ba8b5a-3b1 rfl-1e8ba8b5a-3b2 sfl-1e8ba8b5a-3b3 tfl-1e8ba8b5a-3b4 ufl-1e8ba8b5a-3b5 vfl-1e8ba8b5a-3b6 wpqrstuv xGlow yggetter zgindex {yz |fl-1e8ba8b5a-3a3 }fl-1e8ba8b5a-3a4 ~|} G{^~ )  ]]] fl-1e8ba8b5a-39e fl-1e8ba8b5a-39f fl-1e8ba8b5a-3a0  G R_YRxRRRR Bd} X ?c@ gck gerr gs  [[ fl-1e74a72e9-30 fl-1e74a72e9-31  G [R_YRRRRbpvz  B} gquote B} ]R_ B5   g%%index B} X ?c@ fl-1e74a72e9-35 fl-1e74a72e9-36  G [R_YRRRRbpvz  B} B} R_ B    g%%copier B} X ?c@ fl-1e74a72e9-3a fl-1e74a72e9-3b  G [R_YRRRRbpvz  B} B} g%%-set-fields ]R_ B   gt-1e74a72e9-2a  fl-1e74a72e9-3f  G\ [R_YRRRRbpvz  BC} R_YRxRRRR B}  gif 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 gm-1e74a72e9-46 E  fl-1e74a72e9-48  GT RYRRRRbpvz  BY} X @ RYRxRRRR Bd} X ?@  fl-1e74a72e9-4b fl-1e74a72e9-4c  G RYRRRRbpvz  B} B} ]R B5   B} X ?@ fl-1e74a72e9-50 fl-1e74a72e9-51  G RYRRRRbpvz  B} B} R B    B} X ?@ fl-1e74a72e9-55  fl-1e74a72e9-56     G    RYRRRRbpvz   B } B } ] R B   gt-1e74a72e9-45  fl-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 3gm-1e74a72e9-61 43E 54 6fl-1e74a72e9-63 76 8GT57 94R8YRRRRbpvz  :BY9} ;X: <;@ =R8YRxRRRR >Bd=} ?X> @?<?@ A44 Bfl-1e74a72e9-66 Cfl-1e74a72e9-67 DBC EGAD F4ER8YRRRRbpvz  GBF} HBF} I]ER8 JB5I KHJ LK MB=} NXM O?<N@ Pfl-1e74a72e9-6b Qfl-1e74a72e9-6c RPQ SGAR T4SR8YRRRRbpvz  UBT} VBT} WSR8 XB W YVX ZY [B=} \X[ ]?<\@ ^fl-1e74a72e9-70 _fl-1e74a72e9-71 `^_ aGA` b4aR8YRRRRbpvz  cBb} dBb} e]aR8 fBe gdf hg igt-1e74a72e9-60 ji kfl-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 geach @@  @ @ @ g %%set-fields gdummy gcheck? gexpr y gm-1e74a72e9-7c E  fl-1e74a72e9-81 fl-1e74a72e9-82 fl-1e74a72e9-83 fl-1e74a72e9-84 fl-1e74a72e9-85  G  fl-1e74a72e9-7e  GT gt-1e8ba8b5a-3c4 gt-1e8ba8b5a-3c6 gt-1e8ba8b5a-3c5  gm-1e8ba8b5a-3c7 E  fl-1e8ba8b5a-3cb fl-1e8ba8b5a-3cc fl-1e8ba8b5a-3cd  G fl-1e8ba8b5a-3c1 fl-1e8ba8b5a-3c2 fl-1e8ba8b5a-3c3  G RYRRRR  B} ]R B5 BV B B1  gmap   glist gset-http-poll-idx! g%set-http-poll-idx!-procedure ?@@ gm-1e74a72e9-90 E gt-1e74a72e9-8e gt-1e74a72e9-8f   fl-1e74a72e9-95 fl-1e74a72e9-96  G  fl-1e74a72e9-92  GT RYRRRRbpvz  BC} gt-1e8ba8b5a-3e6 gt-1e8ba8b5a-3e7  gm-1e8ba8b5a-3e8 E  fl-1e8ba8b5a-3ec fl-1e8ba8b5a-3ed  G gsetter ey fl-1e8ba8b5a-3e0 fl-1e8ba8b5a-3e1 fl-1e8ba8b5a-3e2  G 4z fl-1e8ba8b5a-3d7 fl-1e8ba8b5a-3d8  G^ g field-specs  fl-1e8ba8b5a-3d3 fl-1e8ba8b5a-3d4  G^ RYRRR B} gval B}  B} BG} BI}  ]R B5  g struct-set! B} R B   BS} B} B     ]R B gPOLLHUP gPOLLERR g*error-events*  gPOLLIN  g *read-events*  g*events*  ghostS    gfamilyS   gaddrS   gportS   gsocketS     gAF_INET g inet-pton gINADDR_LOOPBACK glisten g sigaction gSIGPIPE gSIG_IGN gmake-empty-poll-set g poll-set-add!  g http-open !gwrite-response "gbuild-response #gversionS $  %gcodeS &gheadersS 'gcontent-length ('  )( *g bad-request +gpoll-set-revents ,g  -%, .%, /g poll-set-nfds 0gaccept 1g poll-set-port 2gsetvbuf 3g_IOFBF 4g SO_SNDBUF 5gthrow 6g interrupt 7gpoll-set-remove! 8g eof-object? 9g peek-char :g close-port ;gwith-throw-handler gcatch ?gformat @gcurrent-error-port AfIn ~a:  Bgport C*B Dgprint-exception E:B Fg http-read Gg  HG IG Jgresponse-version Kg response-code Lgmemq Mgclose Ngresponse-connection Og keep-alive Pg keep-alive? Qg response-port Rg bytevector? Sgwrite-response-body Tgerror UfExpected a bytevector for body Vg force-output Wg http-write Xg http-close Yg server-impl Z!Y [!YC5hh//] 4    '()54,>"G-./0123h@] 4 54 >"G4>"GCgfamily  @gaddr  @gport   @gsock  @gfilenamefweb/server/http.scm (  )  )   *  & +   @ gnamegmake-default-socketC4R5h]Cgsocket  gpoll-idx  gpoll-set   gfilenamefweb/server/http.scm .    gnameg%make-http-server-procedureC6R49:;>Ahk]Ccg t-1e74a72e9-b  g t-1e74a72e9-c  g t-1e74a72e9-d      C:hV]L6Nga  gfilenamefweb/server/http.scm  .   C?hF]L6>gfilenamefweb/server/http.scm  .    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenamefweb/server/http.scm .   n C5:R545>"G 6i5R5h{]$CCsgobj  gfilenamefweb/server/http.scm .    gnameg%http-server?-procedureCR49;>Ph6]C.gt-1e74a72e9-1e    ChV]L6Nga  gfilenamefweb/server/http.scm  .   C?hF]L6>gfilenamefweb/server/http.scm  .    CRh]C   C hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenamefweb/server/http.scm .   n C5R5UVhx]& C6pgs  gfilenamefweb/server/http.scm .    gnameg%http-socket-procedureCWR49V;>h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch6]C.gt-1e74a72e9-2a    CVhV]L6Nga  gfilenamefweb/server/http.scm  .   C?hF]L6>gfilenamefweb/server/http.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  gfilenamefweb/server/http.scm .   C5VR5Uhz]& C6rgs  gfilenamefweb/server/http.scm .    gnameg%http-poll-idx-procedureCR49;>h:]C2gerr  gs    Ch:]C2gerr  gs    C h:]C2gerr  gs    C.h6]C.gt-1e74a72e9-45    ChV]L6Nga  gfilenamefweb/server/http.scm  .   C?hF]L6>gfilenamefweb/server/http.scm  .    C0h]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefweb/server/http.scm .   C5R5U1h z]& C6rgs  gfilenamefweb/server/http.scm .    gnameg%http-poll-set-procedureC2R491;>@GLh:]C2gerr  gs    COUZh:]C2gerr  gs    C]chh:]C2gerr  gs    Ch6]C.gt-1e74a72e9-60    C1hV]L6Nga  gfilenamefweb/server/http.scm  .   C?hF]L6>gfilenamefweb/server/http.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  gfilenamefweb/server/http.scm .   C51R49;>h v]45Cngdummy  gcheck?  gs   ggetter   gexpr      Ch(] 45$@6gx  "gtmp "gfilenamefweb/server/http.scm .   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5R5Uh ]& C6gs  gval  gfilenamefweb/server/http.scm .    gnameg%set-http-poll-idx!-procedureCR49;>hR]CJgt-1e74a72e9-8e  gt-1e74a72e9-8f    ChV]L6Nga  gfilenamefweb/server/http.scm  .   C?hF]L6>gfilenamefweb/server/http.scm  .    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6gx  ngtmp ngtmp  " ngtmp  > ngfilenamefweb/server/http.scm .   n C5RiiR i Ri i R4 5hg-/03###$ 45"# # 454 >"G4 >"G4 54  >"G  C_ghost  gfamily  gaddr   gport   gsocket   gpoll-set  gfilenamefweb/server/http.scm : 2 =  3 >  U A  b B  w C  D  D  E  F   ghostS gfamilyS gaddrS gportS gsocketS gnameg http-openC R!"#$%&)h ]4 56gport  gfilenamefweb/server/http.scm H  I  I ,  J ,  I   I    gnameg bad-requestC*R5U1+$./0123014 56789:;<=hy]4L5L45Dqgreq gfilenamefweb/server/http.scm }   ~  ~         C>*hP]L6Hgfilenamefweb/server/http.scm      C?@ACDh0j-13445>"G456bgk 0gargs 0gfilenamefweb/server/http.scm  0 C:hP]L6Hgfilenamefweb/server/http.scm      C?@AEDh0j-13445>"G456bgk 0gargs 0gfilenamefweb/server/http.scm  0 Ch8|-134LO>"GLO6tgk 1gargs 1gfilenamefweb/server/http.scm   1  1 Ch])&  " 45"45 $ $34>"G& " 45" $4 4 554  >"G4  0>"G4>"G4>"G& " 45"&  "4>"G6 $ "45&  "4>"G4455$4>"G"yOO6& " 45"Fgserver  gpoll-set  gidx  # grevents  , gclient  gport  M gval  R gfilenamefweb/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 :   gnameg http-readCFRIUJKLMNO h]& " 45& " 45 $"& " 45 $C $4 $4455C $ 456CCCwgresponse  gv  gt  < jgkey  q gkey  ~ gfilenamefweb/server/http.scm    !  < < L  g n  q  q ~  ~   %    %   gnameg keep-alive?CPR!IUQRSTUPV51 :h]45&  " 45$;45$4>"G"4>"G"4 5$E4 >"G4  &  " 4 5>"G"4>"GDgserver  gclient  gresponse   gbody   gresponse  gport  ( gfilenamefweb/server/http.scm      (  0  1  ;  <  T  X _  l  v  w        gnameg http-writeCWR5U1:7./hp]&  " 45"- $#445>"G"C& " 45"gserver  pgpoll-set  pgn  # Pgfilenamefweb/server/http.scm     #  & +  , /  6 3 8  = H  N P  S  p   p gnameg http-closeCXR iFiWiXi[RC'gm  ,grtd  !gopen /= /agread /= /agwrite  /= /agclose  /= /agfilenamefweb/server/http.scm   [ ( 1 . P 5  T 5 ] 6 h 7  l 7  :  H (p N * -q /) /=   /f C6web/http.go000064400000364241152537005630006647 0ustar00GOOF----LE-8-2.0]}4hg] gguile  gdefine-module*   gweb ghttp  gfilenameS f web/http.scm gimportsS gsrfi gsrfi-1    gselectS g append-map! gmap!   gsrfi-9    gsrfi-19    gice-9 grdelim   gmatch   !gq "! #" $g binary-ports %$ &% 'grnrs (g bytevectors )'( *) +guri ,+ -, . #&*-  /gexportsS 0gstring->header 1gheader->string 2gdeclare-header! 3gdeclare-opaque-header! 4g known-header? 5g header-parser 6gheader-validator 7g header-writer 8g read-header 9g parse-header :g valid-header? ;g write-header gparse-http-method ?gparse-http-version @gparse-request-uri Agread-request-line Bgwrite-request-line Cgread-response-line Dgwrite-response-line Egmake-chunked-input-port Fgmake-chunked-output-port Gghttp-proxy-port? Hgset-http-proxy-port?! I0123456789:;<=>?@ABCDEFGH Jgset-current-module KJ LJ Mgstring->symbol Ngstring-downcase Og  Pg%make-header-decl-procedure Qgmake-syntax-transformer RQ SQ Tgmake-header-decl Ugmacro Vg $sc-dispatch WV XV Yg_ Zgany [YZZZZZ \g syntax-object ]glambda ^g m-556baa-a _gtop `^_ agribcage 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 qgx rq s` tf l-556baa-c ut varsu wgshift xg proc-name ygargs zxy {_ |{{ }fl-1e8ba8b5a-2ba ~fl-1e8ba8b5a-2bb }~ az| gkey gvalue gname gformals gbody  {{{{{ fl-1e8ba8b5a-2ad fl-1e8ba8b5a-2ae fl-1e8ba8b5a-2af fl-1e8ba8b5a-2b0 fl-1e8ba8b5a-2b1  a gmake-procedure-name  { fl-1e8ba8b5a-29d  a { fl-1e8ba8b5a-29c  ar `opvwpppp  ghygiene   \] {opv  \ gparser \ g validator \ gwriter \ g multiple? \  g make-struct g m-556baa-3 _ gt-1e8ba8b5a-38d gt-1e8ba8b5a-38c gt-1e8ba8b5a-38b  gm-1e8ba8b5a-38e _  fl-1e8ba8b5a-392 fl-1e8ba8b5a-393 fl-1e8ba8b5a-394  a g ctor-args  fl-1e8ba8b5a-37a  a gctor gfield  fl-1e8ba8b5a-376 fl-1e8ba8b5a-377  a| gform g type-name gconstructor-spec g field-names  {{{{ fl-1e8ba8b5a-36b fl-1e8ba8b5a-36c fl-1e8ba8b5a-36d fl-1e8ba8b5a-36e  a g record-layout gfunctional-setters gsetters gcopier ggetters g constructor ggetter-identifiers gfield-identifiers  {{{{{{{{ fl-1e8ba8b5a-343 fl-1e8ba8b5a-341 fl-1e8ba8b5a-33f fl-1e8ba8b5a-33d fl-1e8ba8b5a-33b fl-1e8ba8b5a-339 fl-1e8ba8b5a-337 fl-1e8ba8b5a-335  a fl-1e8ba8b5a-334  ar opvwppppp \ \O \    geach-any Y팤 gsyntax-violation   fWrong number of arguments g identifier?   {pv \P   f-source expression failed to match any pattern grecord-type-vtable   g pwpwpwpwpw gdefault-record-printer    gset-struct-vtable-name!   gvtable-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  \] gobj gt-1e8ba8b5a-47e gt-1e8ba8b5a-478 gt-1e8ba8b5a-479 gt-1e8ba8b5a-47a gt-1e8ba8b5a-47d gt-1e8ba8b5a-47c  gt-1e8ba8b5a-47b !  "gm-1e8ba8b5a-47f #"_ $####### %fl-1e8ba8b5a-483 &fl-1e8ba8b5a-484 'fl-1e8ba8b5a-485 (fl-1e8ba8b5a-486 )fl-1e8ba8b5a-487 *fl-1e8ba8b5a-488 +fl-1e8ba8b5a-489 ,%&'()*+ -a!$, .g copier-id /. 0fl-1e8ba8b5a-476 10 2a/1 3g ctor-name 43 5fl-1e8ba8b5a-46e 65 7a46 8 9fl-1e8ba8b5a-46c :9 ;a8: fl-1e8ba8b5a-46a ?> @a=? Ag immutable? BA Cfl-1e8ba8b5a-468 DC EaBD Fg field-count GF Hfl-1e8ba8b5a-466 IH JaGI Kg getter-ids LK Mfl-1e8ba8b5a-463 NM OaLN Pg field-ids QP Rfl-1e8ba8b5a-460 SR TaQS Ugpredicate-name Vg field-spec WAUV X{{{{{{ Yfl-1e8ba8b5a-453 Zfl-1e8ba8b5a-454 [fl-1e8ba8b5a-455 \fl-1e8ba8b5a-456 ]fl-1e8ba8b5a-457 ^fl-1e8ba8b5a-458 _YZ[\]^ `aWX_ apwp-pppp2p7p;p@pEpJpOpT` b\a cb dgand e\da fgstruct? g\fa hgb igeq? j\ia kg struct-vtable l\ka mlb n{p o\On pjmo qehp rcq s{p t\ s ugthrow-bad-struct vu wu xgheader-decl-name yg%header-decl-name-procedure zgfree-id {g %%on-error |g m-556baa-2b }|_ ~} f l-556baa-2d  ar~ }pwpppp  \{ z Z g%%type gt-1e8ba8b5a-3a5 gt-1e8ba8b5a-3a6 gt-1e8ba8b5a-3a7 gt-1e8ba8b5a-3a8 gt-1e8ba8b5a-3a9 gt-1e8ba8b5a-3aa gt-1e8ba8b5a-3ab  gm-1e8ba8b5a-3ac _  fl-1e8ba8b5a-3b0 fl-1e8ba8b5a-3b1 fl-1e8ba8b5a-3b2 fl-1e8ba8b5a-3b3 fl-1e8ba8b5a-3b4 fl-1e8ba8b5a-3b5 fl-1e8ba8b5a-3b6  a ggetter gindex  fl-1e8ba8b5a-3a3 fl-1e8ba8b5a-3a4  a| K. {{{ fl-1e8ba8b5a-39e fl-1e8ba8b5a-39f fl-1e8ba8b5a-3a0  a pwppppp \ z YZ gck gerr gs  }} f l-556baa-30 f l-556baa-31  a }pwpppp  \ gquote \ {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%%-set-fields {p \   g t-556baa-2a  f l-556baa-3f  a~ }pwpppp  \] pwppppp \  gif \ \i \k  {p \O  g struct-ref \ p \   \u \ \x     {p \y gheader-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 Sgheader-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 gheader-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 \ gheader-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 Ugeach VZZ WUV XZW YZX ZZY [g %%set-fields \gdummy ]gcheck? ^gexpr _\]^ `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 ngt-1e8ba8b5a-3c4 ogt-1e8ba8b5a-3c6 pgt-1e8ba8b5a-3c5 qnop rgm-1e8ba8b5a-3c7 sr_ tsss ufl-1e8ba8b5a-3cb vfl-1e8ba8b5a-3cc wfl-1e8ba8b5a-3cd xuvw yaqtx zfl-1e8ba8b5a-3c1 {fl-1e8ba8b5a-3c2 |fl-1e8ba8b5a-3c3 }z{| ~a} ipmwpyppp~  \[ {ipm \O \x \ \S \ \  gmap   glist gmake-hash-table g*declared-headers* g hashq-ref glookup-header-decl g multiple?S    gerror fbad header decl gstring? g hashq-set! gstring-titlecase gsymbol->string gdisplay g %read-line gstring-suffix? f  gstring-drop-right g bad-header gread-header-line   fno matching pattern g peek-char gread-continuation-line g string-append gcall-with-input-string f gread g*eof* g string-null? gstring=? g string-index g%read g substring gstring-trim-both gchar-set:whitespace fheader name not a symbol f:  f  g eof-object? greverse! gthrow gbad-header-component gformat fBad ~a header: ~a  gbad-header-printer fBad ~a header component: ~a  gbad-header-component-printer gset-exception-printer! gparse-opaque-string gvalidate-opaque-string gwrite-opaque-string gstring->char-set f[^][()<>@,;:\"?= ] gseparators-without-slash g string-rindex gvalidate-media-type g media-type gparse-media-type g string-length gchar-whitespace? g string-ref gskip-whitespace gtrim-whitespace gsplit-and-trim glist-of? glist-of-strings? g write-list f,  gwrite-list-of-strings gsplit-header-names gsymbol? glist-of-header-names? gwrite-header-list g make-string gsubstring-move! g string-set! gcollect-escaped-string g incremental?S    gqstring g parse-qstring g string-split f\" g write-qstring gstring= f1 f1. f1.0 f1.00 f1.000 gquality f0 f0. g char->integer g parse-quality gnon-negative-integer? gvalid-quality? g integer->char g write-quality gstring-prefix? fq= gparse-quality-list gvalidate-quality-list f;q= f, gwrite-quality-list gnon-negative-integer gparse-non-negative-integer gnumber? gexact? ginteger? gdefault-val-parser gdefault-val-validator gdefault-val-writer gmin gkey-value-list gparse-key-value-list gkey-value-list? gwrite-key-value-list gchar-set gparam-delimiters  gchar-set-adjoin  gparam-value-delimiters  gparse-param-component  g param-list  gparse-param-list gvalidate-param-list f; gwrite-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 " $gc %$ &f l-556baa-437 '& (a%' )glp *gi +gtests ,)*+ -f l-556baa-431 .f l-556baa-432 /f l-556baa-433 0-./ 1a,0 2gp 32 4f l-556baa-424 54 6a35 7gstr 8gpat 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 Egchar-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 Rgeqv? 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 bglet 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 ugmonth vg parse-month wfGMT xfUTC yg zone-offset zgparse-zone-offset {gdate |{ }{ ~gparse-rfc-822-date g current-date g date-year gparse-rfc-850-date gparse-asctime-date gdate-zone-offset gtime-utc->date gdate->time-utc gnormalize-date gcatch   g parse-date g truncate/ gfloor/ gexpt gtime-tai->date gdate->time-tai g date-week-day fSun,  fMon,  fTue,  fWed,  fThu,  fFri,  fSat,  fbad date gdate-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 fW/ f" gparse-entity-tag g entity-tag? gwrite-entity-tag gparse-entity-tag-list gentity-tag-list gentity-tag-list? gwrite-entity-tag-list g authorization gbasic g credentials gparse-credentials gvalidate-credentials gwrite-credentials g challenge gparse-challenge greverse gparse-challenges gvalidate-challenges gwrite-challenge gwrite-challenges g bad-request g bad-response g*known-versions* g http-version fHTTP/ gwrite-http-version gfor-each fHTTP/1.0 fHTTP/1.1  fGET gGET fHEAD gHEAD fPOST gPOST fPUT gPUT fDELETE gDELETE fOPTIONS gOPTIONS fTRACE gTRACE fInvalid method: ~a fMissing Request-URI f* g build-uri gpathS gqueryS gfragmentS g string->uri fInvalid URI: ~a fBad Request-Line: ~s g , , guri-host g uri-scheme f:// g uri-userinfo guri-port guri-path f"Empty path and no host for URI: ~s fNon-absolute URI path: ~s g uri-query g write-uri g default-port? , , f/ f? fBad Response-Line: ~s g%date?-procedure   gdeclare-date-header! gdeclare-string-list-header! gdeclare-symbol-list-header! gdeclare-header-list-header! gdeclare-integer-header! g absolute-uri? , , gdeclare-uri-header! g string->uri* , , g%uri?-procedure , ,  gdeclare-relative-uri-header!  gdeclare-quality-list-header!  gdeclare-param-list-header!  gdeclare-key-value-list-header!  g* gdeclare-entity-tag-list-header! gdeclare-credentials-header! gdeclare-challenge-list-header! f Cache-Control gmax-age g min-fresh gs-maxage g max-stale gprivate gno-cache gno-store g no-transform g only-if-cache gmust-revalidate gproxy-revalidate g cache-control f Connection gclose  fclose !fDate "fPragma #fTrailer $fTransfer-Encoding %fUpgrade &fVia 'fWarning (gwarning )glength *fAllow +fContent-Disposition ,gcontent-disposition -fContent-Encoding .fContent-Language /fContent-Length 0fContent-Location 1f Content-MD5 2f Content-Range 3g content-range 4fbytes  5gbytes 6f Content-Type 7g content-type 8g string-trim 9gstring-trim-right :fThu, 01 Jan 1970 00:00:00 GMT ;g*date-in-the-past* f-1 ?> @f Last-Modified AfAccept BfAccept-Charset CfAccept-Encoding DfAccept-Language Ef Authorization FfExpect GfFrom HfHost Ighost JfIf-Match KfIf-Modified-Since Lf If-None-Match MfIf-Range NfIf-Unmodified-Since Of Max-Forwards PfProxy-Authorization QfRange Rfbytes= Sgrange TfReferer UfTE Vf User-Agent Wf Accept-Ranges XfAge YfETag ZfLocation [fProxy-Authenticate \f Retry-After ]fServer ^fVary _fWWW-Authenticate `g read-line agchar=? bgstring->number cgread-chunk-header dg keep-alive?S ed  fe ggget-bytevector-n! hgget-u8 igmake-custom-binary-input-port jfchunked input port kg close-port lgq-empty? mgdeq! ngq-length ognumber->string pg write-char qgmake-q rgmake-soft-port sgenq! tgstring-for-each uf0  vg force-output wfw xgmake-object-property yg%http-proxy-port? zgsetter {z |zC5hHk]4   ./I54L>"GMNh]456gname  gfilenamef web/http.scm K  M  M   gnamegstring->headerg documentationf%Parse NAME to a symbolic header name.C0ROh]Cgname  gparser  g validator   gwriter   g multiple?   gfilenamef web/http.scm O    gnameg%make-header-decl-procedureCPR4STUX[h]Cg t-556baa-5  g t-556baa-6  g t-556baa-7   g t-556baa-8   g t-556baa-9      CThO]L6Gga  gfilenamef web/http.scm  O   CYh?]L67gfilenamef web/http.scm  O    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6xgx  ngtmp ngtmp  " ngtmp  > ngfilenamef web/http.scm O   n C5TRO4O>"G PiOROht]$CClgobj  gfilenamef web/http.scm O    gnameg%header-decl?-procedureC R4S UX rh3]C+g t-556baa-1e    C hO]L6Gga  gfilenamef web/http.scm  O   CYh?]L67gfilenamef web/http.scm  O    Cth]C   C hp]45$@45$ O@45$4O?$@  6  6xgx  ngtmp ngtmp  " ngtmp  > ngfilenamef web/http.scm O   n C5 ROwxhv]& C6ngs  gfilenamef web/http.scm O    gnameg%header-decl-name-procedureCyR4SxUXh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    C h3]C+g t-556baa-2a    CxhO]L6Gga  gfilenamef web/http.scm  O   CYh?]L67gfilenamef web/http.scm  O    Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamef web/http.scm O   C5xROwhx]& C6pgs  gfilenamef web/http.scm O    gnameg%header-decl-parser-procedureCR4SUX h:]C2gerr  gs    C!&h:]C2gerr  gs    C)/4h:]C2gerr  gs    C Ph3]C+g t-556baa-45    ChO]L6Gga  gfilenamef web/http.scm  O   CYh?]L67gfilenamef web/http.scm  O    CRh]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamef web/http.scm O   C5ROwSh {]& C6sgs  gfilenamef web/http.scm O    gnameg %header-decl-validator-procedureCTR4SSUXbinh:]C2gerr  gs    Cqw|h:]C2gerr  gs    Ch:]C2gerr  gs    C h3]C+g t-556baa-60    CShO]L6Gga  gfilenamef web/http.scm  O   CYh?]L67gfilenamef web/http.scm  O    Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamef web/http.scm O   C5SROwh x]& C6pgs  gfilenamef web/http.scm O    gnameg%header-decl-writer-procedureCR4SUXh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    C h3]C+g t-556baa-7b    ChO]L6Gga  gfilenamef web/http.scm  O   CYh?]L67gfilenamef web/http.scm  O    Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamef web/http.scm O   C5ROwh {]& C6sgs  gfilenamef web/http.scm O    gnameg %header-decl-multiple?-procedureCR4SUXh:]C2gerr  gs    C#(h:]C2gerr  gs    C+16h:]C2gerr  gs    C Rh3]C+g t-556baa-96    ChO]L6Gga  gfilenamef web/http.scm  O   CYh?]L67gfilenamef web/http.scm  O    CTh]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamef web/http.scm O   C5R4SUXZh v]45Cngdummy  gcheck?  gs   ggetter   gexpr      Ch(] 45$@6gx  "gtmp "gfilenamef web/http.scm O   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5R4i5Rhw]6ogsym  gfilenamef web/http.scm [ \   gnameglookup-header-declCRO0 h-/03#"645$M$C$9$/445>"GC""""gname  gparser  g validator   gwriter   g multiple?   gdecl  \ |gfilenamef web/http.scm ^ $ h 0 h  0 d  1 d ; d  A d  \ e  \ e  _ f  d f ' q f    g multiple?S gnamegdeclare-header!g documentationf;Declare a parser, validator, and writer for a given header.C2ROwxh8] 45$& C6456gsym  2gdecl 2gfilenamef web/http.scm j  l  l   m   n  * o  2 o   2 gnamegheader->stringg documentationf0Return the string form for the header named SYM.C1Rh]45$CCgsym  gfilenamef web/http.scm q  t  t    gnameg known-header?g documentationkpReturn  #t iff SYM is a known header, with associated parsers and serialization procedures.C4ROwhO]CGgx  gfilenamef web/http.scm ~    Ch0] 45$& C6Cgsym  *gdecl *gfilenamef web/http.scm v  {  {   |   }   * gnameg header-parserg documentationfReturn 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.C5ROwSh0] 45$& C6Cgsym  +gdecl +gfilenamef web/http.scm         + gnamegheader-validatorg documentationkDReturn a predicate which returns  #t if the given value is valid for headers named SYM. The default validator for unknown headers is  string? .C6ROwh0]] 45$& C6CUgsym  +gdecl +gfilenamef web/http.scm         + gnameg header-writerg documentationkReturn a procedure that writes values for headers named SYM to a port. The resulting procedure takes two arguments: a value and a port. The default writer is  display .C7R hp]!45$M45$, $45$ 6C664  56gport  lgv lgw   _gx   _gw  I Sgw  U _gfilenamef web/http.scm   1 5  9 =  D I  O  S  U  [  _  `   l gnamegread-header-lineg documentationfRead 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.CRhH] 45 $" 45 $44556Cgport  Agval  Agt  &gfilenamef web/http.scm      # *  /  4 - <  >   A gnamegread-continuation-lineCR4ii5R09h]4545$" 45$D4:5$" 454 4  554 4 4 555Dgport  gline gt   +gt  > Xgdelim  X gsym  i gfilenamef web/http.scm      &  ( /  5  6  >  M  Q & U  X  [  ^ $ i  i  n s x 8   gnameg read-headerg documentationfRead 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).C8R5h]456gsym  gval  gfilenamef web/http.scm     gnameg parse-headerg documentationfdParse VAL, a string, with the parser registered for the header named SYM. Returns the parsed value.C9R6h ]$ 4566gsym  gval  gfilenamef web/http.scm            gnameg valid-header?g documentationfRReturns a true value iff VAL is a valid Scheme value for the header with name SYM.C:R17hP]]445>"G4>"G445>"G6Ugsym  Pgval  Pgport   Pgfilenamef web/http.scm        '  0  1  @  L P   P gnameg write-headerg documentationkTWrite the given header name and value to PORT, using the writer from  header-writer .C;R8h8]4L> G45$6"gheaders  3gk 3gv  3gfilenamef web/http.scm   !      % *  3   3 gnameglpCh] OQ6gport  glp gfilenamef web/http.scm        gnameg read-headersg documentationfRRead the headers of an HTTP message from PORT, returning them as an ordered alist.C"G"C"gheaders  :gport  :gheaders   2gfilenamef web/http.scm         '  *  0 2   : gnameg write-headersg documentationkWrite the given header alist to PORT. Doesn't write the final  \r\n , as the user might want to add another header.C=Rh]6gsym  gval  gfilenamef web/http.scm    gnameg bad-headerCRh]6gsym  gval  gfilenamef web/http.scm    gnamegbad-header-componentCR1h()3L456-13L6gsym gval g_ # 'gfilenamef web/http.scm    /  # '    # ' Ch]O@gport  gkey  gargs   gdefault-printer   gfilenamef web/http.scm     gnamegbad-header-printerCRh()3L6-13L6gsym gval g_  "gfilenamef web/http.scm     "     " Ch]O@gport  gkey  gargs   gdefault-printer   gfilenamef web/http.scm     gnamegbad-header-component-printerCR4ii>"G4ii>"Ghq]Cigstr  gfilenamef web/http.scm     gnamegparse-opaque-stringCRh}]6ugval  gfilenamef web/http.scm       gnamegvalidate-opaque-stringCRh]6gval  gport  gfilenamef web/http.scm     gnamegwrite-opaque-stringCR4i5Rh8] 4/5$4/5$ 45CCCgstr  2gidx 2gfilenamef web/http.scm              #   $   -    2 gnamegvalidate-media-typeCRMh ]45$66gstr  gfilenamef web/http.scm                  gnamegparse-media-typeCRh`-.,3# # 45"*$4455$ "CC"gstr Zgstart Zgend  Zgi  ( Rgfilenamef web/http.scm    8 (   -  1   2   5  ) ?   C   F  L   R   Z gnamegskip-whitespaceCRh`-.,3# # 45"+$4455$ "CC"gstr [gstart [gend  [gi  ( Sgfilenamef web/http.scm    8 (   -  1   2   5  + <  ; >  + @   D   G  M   S   [ gnamegtrim-whitespaceCRhS-.,3#,# # 45$H454$"54$"5CCKgstr gdelim gstart  gend  gidx  D gtok  _ gfilenamef web/http.scm ! & " ( 3 $  7 $  8 %  D %  G &  U & @ _ &  _ %  d '  p ' . s ' 6 } '  ~ ' (  gnamegsplit-and-trimCRhw]6ogval  gfilenamef web/http.scm * +   gnameglist-of-strings?CRh]6gval  gport  gfilenamef web/http.scm - .   .    gnamegwrite-list-of-stringsCR0h]456zgstr  gfilenamef web/http.scm 0  1   1    gnamegsplit-header-namesCRh|]6tgval  gfilenamef web/http.scm 3 4   gnameglist-of-header-names?CR1ht]456lgx  gport  gfilenamef web/http.scm 8   9   9    Ch]6gval  gport  gfilenamef web/http.scm 6 :   7    gnamegwrite-header-listCRh ]445"(#4>"GC  4 >"G44 5>"G "x "igfrom  gstart  glen   gescapes   gto  gstart   gi   gescapes   ge  ; g next-start H  gfilenamef 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 >   gnamegcollect-escaped-stringCRh-/03 # # 45#"6$45"$"$x45\$ ""$245$D$C6"6 "h"?";gstr  gstart  gend   g incremental?   gi  _ gqi  _ gescapes  _ gkey  q gout   gfilenamef 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 gnameg parse-qstringCRhX'] $H"<4>"G$4>"G"C"Cgl  Sgport  Sg write-item   Sgdelim   Sgl  Igfilenamef web/http.scm `  a  a  b   c   c   c  % d  & d * d  + f  A g  G g  I b   S gnameg write-listCRhh]4">"G4"5$#44"5>"G"4>"G"6gstr  bgport  bgfilenamef web/http.scm i  j   k  # k  $ m  ' m  5 m 6 : m  G n  b o   b gnameg write-qstringCRhJ]L6Bgfilenamef web/http.scm       Ch6-.,3 # # 45$451$45$"d45$"G45$"*45$" 45$ C  6450$ 4 5$" 4 5$ C $  "$"$45.$C  6 $[454 5 0" 4  5"# $ $""""""b   "Q  6OQ45.$ $  "$"|$C $S454 5 0 $ $"4 5"4 5 ""   "s66  6.gstr gstart gend  gt  J gt  d gt  ~ gt  gt  gb   +gplace  3 gi  3 gq  3 gc  w gi   gfailure   gb   #gplace  + gi  + gq  + gc  U gi  a gfailure e gfilenamef 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  gnameg parse-qualityCRh]45$ CC}gq  gfilenamef web/http.scm         !   gnamegvalid-quality?CRh] 4  4 05>"G4.>"G4 d 4 05>"G4 4 05>"G 4 056gq  gport  gd   gd  K Zgd  t gd  gfilenamef web/http.scm                       $   -   A   H  K   K  N   R   U   W   a   j   q  t   t  w   {   ~                   %  gnameg write-qualityCRh0](C$45$ 6CCgval  *gpred  *gfilenamef web/http.scm                     "   &    * gnameglist-of?CR h` ]4;5$:4545$4 54 5C6 45Cgpart  [gt [gqpart   Mgfilenamef web/http.scm           H       "   &  & *   .   /   8   D   I  , M   Q   Z    [ Ch]4,56zgstr  gfilenamef web/http.scm          gnamegparse-quality-listCRh ]$45$6CCgelt  gfilenamef web/http.scm           #              Chz]6rgl  gfilenamef web/http.scm     gnamegvalidate-quality-listCRhH]4>"G $4>"G6Cgx  Hgport  Hgq   Hgstr   Hgfilenamef web/http.scm              &   *   +   /  ! 6   F    H Ch]6gl  gport  gfilenamef web/http.scm         gnamegwrite-quality-listCRh-.,3# # 45$}"n$b 4545 0" 45"# $ $"""""C "6gval gstart gend  gi  1 gout  1 gc  K gi  W gfilenamef web/http.scm    * )  -   1   6  :   =   B   C  - K   N   V  " W  W   ^  b  f  j   n   r   w   {           gnamegparse-non-negative-integerCRh0]45$ $45$6CCCgcode  ,gfilenamef web/http.scm               "   &  0  , gnamegnon-negative-integer?CRh]Cwgk  gval  gfilenamef web/http.scm     gnamegdefault-val-parserCRh]$6Cgk  gval  gfilenamef web/http.scm             gnamegdefault-val-validatorCRhX]4;5$""4,5$" 4"5$66gk  Qgval  Qgport   Qgt  =gt  ! :gfilenamef web/http.scm        !   /  A   I   Q    Q gnamegdefault-val-writerCRM h]RL$4LL54L=L54L,L54$"L$"L544L4L555"  "$$ "$4LL5"44L4L$"L55$"L "KL$-4L5"$4LL >!""""""U""M G4L54LL5   L  $" 4L 5, $  $  ""s  4LLL56 6gi  gout  gi   geq  % gcomma  4 gdelim  W gk  r gi  gv-str  , gnext-i  , gv G gi G gt P l gfilenamef web/http.scm               %   (   4   7   ?   M  ' W   W   Z   ]   d  $ p   r   r          ,       2      "  -  >  -  "  "          /  )     /  4   =   G   P   P   ^  ( i  " p   s   y  % ~  +         *   *      ?   gnameglpChP-.,3## # 45OQ6gstr Ng val-parser Ngstart  Ngend  Nglp  : Ngfilenamef web/http.scm  &  . :   L   N   N gnamegparse-key-value-listCRh8]$$L6C$L6Cgelt  4gk  $gv   $gfilenamef web/http.scm                     "   '   +   2    4 Ch(-.,3#O6glist #gvalid? #gfilenamef web/http.scm  #   # gnamegkey-value-list?CRh`]$"$"4>"G$4=>"GL6Cgx  _gport  _gk  ! _gv  ! _gfilenamef web/http.scm !   "  "  "   #   #   #  ! "  & $  ? %  @ ' ] (   _ Ch8-.,3##O6glist 1gport 1g val-writer  1gdelim  1gfilenamef web/http.scm    F 1   1  gnamegwrite-key-value-listCR4i,;=5R4 ii,;5 RM  hk]JL$4L544L4L$"L555$ 4L5"=$4LL5"54LL5$"L4L5 ";L$-4L5"$4 LL >"""" G4L5$ "4LL5  L$ 4L 5"  $4 5LD ;$4L L5"4 5 D;$24L54LL5$ ""V4L54 $ "5$"LD4 5LDcgi  gout  gdelim   gk  Q gdelimc  Q gi  j gt  } gdelim  gv-str  qgnext-i  qgv  qgx   qgi  qgkey ) qgv   gv   gfilenamef 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   gnameglpChP-.,3## # 45OQ6gstr Kg val-parser Kgstart  Kgend  Kglp  9 Kgfilenamef web/http.scm 0 & 2 / 9 3  I 3  K 3  K gnamegparse-param-componentC R  h`!]4LLL> GL$14L5,$4LL5"L66gi  ]gout  ]gitem   ]gi   ]gfilenamef 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   ] gnameglpChP-.,3## # 45OQ6gstr Kg val-parser Kgstart  Kgend  Kglp  9 Kgfilenamef web/http.scm ] & _ * 9 `  I `  K `  K gnamegparse-param-listC Rh[]L6Sgelt  gfilenamef web/http.scm n o   Ch(-.,3#O6glist #gvalid? #gfilenamef web/http.scm k # m  # gnamegvalidate-param-listCRhw]L6ogitem  gport  gfilenamef web/http.scm u  v 0  v    Ch(-.,3#O6glist 'gport 'g val-writer  'gfilenamef web/http.scm q % w  ' s  '  gnamegwrite-param-listCR4SUXhm]456egstr  gpat  gfilenamef web/http.scm  |  |   CBCDOPQXV^_`hN]CFg t-556baa-448  g t-556baa-449     Canoprth(N]LCFg t-556baa-426  !g t-556baa-427  !  ! Ch]24545"45$45.$"td$"Va$ "84  5$ 4 ?" 4 5"Y" "F4 5$ O@ 6gstr  gpat  gp  gi   gtests   gc  - gtmp  gtmp  gtmp  gtmp   gfilenamef web/http.scm  }  }   %         $   %  -   2   ;   [  h   y   '       '   ~   Ch@`] 45" 6$4?$@""Xgx  9gtmp 9gfilenamef web/http.scm z   9 C5Ruh] $4 5454 5J$ha$n$ C456u$)n$ Cl$ C456456F$7e$b$ C456456M$Ca$)r$ Cy$ C456456A$]p$r$ C456u$g$ C456456S$7e$p$ C456456O$7c$t$ C456456N$7o$v$ C456456D$7e$c$ C456456456456gstr  gstart  gend   ga  / gb  / gc  / gfilenamef 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   gnameg parse-monthCvRwxy h]"4545$ C45$ C"645 $44  55$44  55$44  55$r44  55$]4  5+$ "-$ " 454  54   5 < <C"B">":"6"2gstr  gstart  gs  gkey  gsign  ghours  gminutes  gfilenamef web/http.scm                     #   %   )   3   7   7   8   E   F                            gnamegparse-zone-offsetCzREv}{ 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  >"GCgstr  gspace  g zone-offset   gs  Jgdate   gmonth   gyear   ghour   gminute   gsecond   gs   gdate  ( Igmonth  ( Igyear  ( Ighour  ( Igminute  ( Igsecond  ( Igs  S gdate   gmonth   gyear   ghour   gminute   gsecond   gs   %gdate  k gmonth  k gyear  k ghour  k gminute  k gsecond  k gfilenamef web/http.scm      N   O   Z   e   p   {                                    (  H  J   S                                )   *   5   @   K   V   a   k       1  gnamegparse-rfc-822-dateC~R{Ev}wh]L45"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"         Cgstr  gcomma  gspace   g zone-offset   gtail   gdate  c gmonth  c gyear  c ghour  c gminute c gsecond c gs t gnow  gthen  gyear  gfilenamef web/http.scm                     ,   -  :   ;  #   -   8   C   N   Y   c   p  ( t           *   -   *                  .            .   &   gnamegparse-rfc-850-dateCR{Ev} h]1"4>"eG"^45 $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""*""""""""" """"""""""""""""""""""""""""""""44 5 $ "  54  54  54 54  54  5  Cgstr  gdate  gmonth   gyear   ghour   gminute   gsecond   gfilenamef web/http.scm $  &  &   &   %   % , %  - % } '   )   )   )   '   +   ,   -   .   /   '   0    gnamegparse-asctime-dateCR}wh8]&  " 45 $C45 6gdate  2gfilenamef web/http.scm 3  4  4  # 4  ) 6  2 6   2 gnamegnormalize-dateCRzhR]LL6Jgfilenamef web/http.scm : ! ; 9 ; "  ChU-13CMgargs gfilenamef web/http.scm : ! C~{ hM]4 5$4O5"$J4,5$) $45" 45" 4  5"4 56Egstr  gspace g zone-offset  ) gcomma  < ygfilenamef web/http.scm 8  9  9   :   : ! ) 9  3 =  4 >  < > D ? I @  M ? N @  ] A  n ?  r ? * v ?  ~ B <   gnameg parse-dateCRhXE] "? $544 045 5>"G4 5"C4 5"=gn  Ugdigits  Ugport   Ugtens   Egfilenamef 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 gnamegdisplay-digitsC}w%h]&  " 45 $" 445 5445 $ "b $ "T $ "E $ "6 $ "' $" $" 45>"G4&  " 45 >"G4&  " 45 $" $" $" $" $"r $"c $"T $"E $"6 $"' $" $" 45>"G4&  " 4 5 >"G4 >"G4&  " 4!5 >"G4:>"G4&  " 4"5 >"G4:>"G4& " 4#5 >"G$6gdate  gport  gdisplay-digits   gdate  : gkey  F gkey   gfilenamef 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   gnameg write-dateCRh8]45$ 4 5C45$ 45CCgval  7gfilenamef web/http.scm j  l   l  l   k   l $  l   m  m  $ m  ( k  ) m $ 1 m  6 n   7 gnamegparse-entity-tagCRh]$6Cgval  gfilenamef web/http.scm p  q  q   r   r    gnameg entity-tag?CRh0]$"4>"G6gval  *gport  *gfilenamef web/http.scm t  u u   v   v   v  & w  * w   * gnamegwrite-entity-tagCR h-.,3# # 454 54$" > G45$645,$4455" 4  5"Cgval gstart gend  gstrong?  5 gtag  X gnext  X gnext  o gfilenamef web/http.scm y  z / % {  ) { & 4 {  5 {  5 {  8 }  B } + M } = W }  [ |  d   e   o   v   z   {           0        0       gnamegparse-entity-tag-listCRhw]6ogval  gfilenamef web/http.scm     gnamegentity-tag-list?CRh]6gval  gport  gfilenamef web/http.scm   )      gnamegwrite-entity-tag-listCRMNh3-.,3## # 454545$"$4>"G"44 4 $"555 $-45$4 5C 64 5C+gstr g val-parser gstart  gend  gstart  9 gt  H [gdelim  [ gscheme  gstart   gfilenamef web/http.scm  &  + /   9   <   H   [   b   f   g   k   r         $  9  $                    %       gnamegparse-credentialsCRh8] $&$$66CCgval  1gkey  -gfilenamef web/http.scm                   $   &   +  -    1 gnamegvalidate-credentialsCRhP] 4>"G4 >"G$ 66gval  Kgport  Kgkey  . Kgfilenamef web/http.scm             .   .   >   B  G  K    K gnamegwrite-credentialsCRMNM h]RL$4LL54L=L54L,L54$"L$"L54L54L 5$ 45D44L55"  "$$ "$4LL5"44L4L$"L55$"L "KL$-4L5"$4 LL >!""""""U""M G 4L L5  L  $" 4L 5, $ $ ""^  4LLL5645LDgi  gout  gi   geq  % gcomma  4 gdelim  W g token-end  d gk  gi  ;gv  L gnext-i L gi ^ gt e  gfilenamef web/http.scm               %  (   4  7   ?   M  ) W   W  Z   d  g   w  x        )          $  4  (    %  :  %    *  +  <  +  *  *   "      '      7   1   "   " O   T   ^   e  e   s  0 ~  *        -   3   '                  C   gnameglpC h-.,3# # 45454 5$444555" 45 OQ6}gstr gstart gend  gstart  / gsp  > gscheme  h glp  u gfilenamef web/http.scm    ) %   /   2  >   F   G   J  % M  6 Y  % [   `   d  + h   h   u       gnamegparse-challengeCRhH]4LL5L$%4LL> G"6gi  Cgret  Cgi  Cg challenge  ' =gi  ' =gfilenamef web/http.scm              ' *  5   =   C    C gnameglpChH-.,3## # 45OQ6gstr Hg val-parser Hgstart  Hgend  Hglp  8 Hgfilenamef web/http.scm  &  * 8   F   H   H gnamegparse-challengesCRh ]$$6CCgx  gfilenamef web/http.scm         *  !      (      Chz]6rgval  gfilenamef web/http.scm     gnamegvalidate-challengesCRh8]4>"G4 >"G6gval  4gport  4gfilenamef web/http.scm             0   4    4 gnamegwrite-challengeCRh]6gval  gport  gfilenamef web/http.scm   '      gnamegwrite-challengesCRh-136gmessage gargs gfilenamef web/http.scm       gnameg bad-requestCRh-136gmessage gargs gfilenamef web/http.scm       gnameg bad-responseCRR hE-.,3# # 45"0$$45$""""$C4.5"4564  5$>$44 .5$4  54 5C"""=gstr gstart gend  gknown  ( Xgt  ` gdot-idx  x gfilenamef web/http.scm    ; (   +  /   0   7   >   B  E   M   S   X   `   l   x    "  0       !              2      2    $ gnamegparse-http-versiong documentationkParse an HTTP version from STR, returning it as a major minor pair. For example,  HTTP/1.1 parses as the pair of integers,  (1 . 1) .C?RhH]4>"G4>"G4.>"G6gval  Hgport  Hgfilenamef web/http.scm               #   ,   D  H    H gnamegwrite-http-versiong documentationf1Write the given major-minor version pair to PORT.CR4i?h |]4 455 Ctgv  gfilenamef web/http.scm "  $  $ *  $   $  #    C>"GhY-.,3# # 4545$C45$C45$C4 5$ C4 5$ C4 5$C45$C456Qgstr gstart gend  gfilenamef 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 $ :  : + : ) gnamegparse-http-methodg documentationkRh8-.,3# # 45$645$C45/$4?54#5$$ "$""  4 $"$"5 $4 $"5" $4 5"644 55$C4 56gstr 1gstart 1gend  1gq  c gf  r gq  gt   1gfilenamef 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 gnamegparse-request-urig documentationfParse 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]454545"6$I$?$24 544 554 4 55D"""gport  gline gd0   gd1   gfilenamef 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   gnamegread-request-lineg documentationfoRead the first line of an HTTP request from PORT, returning three values: the method, the URI, and the version.CARwhx]&  " 45$14& " 45>"G4>"G& " 45$D4& " 45>"G4@>"G"4&  " 45>"G&  " 45$8 P&"(4:>"G4>"G""&  " 4 54 5"4>"G""G $;&  " 45$"4  >"FG"?" $/4  5/$""4 >"G""~&  " 45$54?>"G&  " 456Cguri  vgport  vgp   Ngpath  m  glen  v gfilenamef 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 gnameg write-uriCRGwhH]4>"G4 >"G45$9& " 45&  " 45&  " 45$$4>"G4>"G4 :5$@4[>"G4>"G4]>"G"4>"G4 5$"(4:>"G4>"G"""&  " 4 5&  " 4 54 5$4>"G"4>"G$,4>"G4>"G"4 >"G4>"G6 gmethod  Gguri  Ggversion   Ggport   Ggscheme  jghost  jg host-port  jgpath   gquery    gfilenamef web/http.scm y  {   |  + }  5 }  8 ~  R   m   ~                        !   #   )   -   2  F  q                                          ,   C  G  .  G gnamegwrite-request-lineg documentationf0Write the first line of an HTTP request to PORT.CBR? h]4545$4455""6$5$+4 544554 5D""gport  gline gd0   gd1  3 gfilenamef web/http.scm                $  # .   3   =   A   A   M   N   X   ]  1 k   l   x    gnamegread-response-lineg documentationfRead the first line of an HTTP response from PORT, returning three values: the HTTP version, the response code, and the (possibly empty) "reason phrase".CCRhp:]4>"G4 >"G4>"G4 >"G4>"G62gversion  ngcode  ng reason-phrase   ngport   ngfilenamef web/http.scm        +   ?   S   j  n    n gnamegwrite-response-lineg documentationf1Write the first line of an HTTP response to PORT.CDR2h]6 gname  gfilenamef web/http.scm       gnamegdeclare-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.C3R2h|]6tgname  gfilenamef web/http.scm       gnamegdeclare-date-header!CR2h]6{gname  gfilenamef web/http.scm       gnamegdeclare-string-list-header!CR2Mhd]456\gstr  gfilenamef web/http.scm           ChY]6Qgv  gfilenamef web/http.scm      Cht]6lgv  gport  gfilenamef web/http.scm    !      Ch]6{gname  gfilenamef web/http.scm       gnamegdeclare-symbol-list-header!CR2h]6{gname  gfilenamef web/http.scm       gnamegdeclare-header-list-header!CR2h]6wgname  gfilenamef web/http.scm       gnamegdeclare-integer-header!CR2+h ] 45$C6|gstr  gt gfilenamef web/http.scm          >   (   Ch{]6sgname  gfilenamef web/http.scm       gnamegdeclare-uri-header!CR2+h ] 45$C6gstr  gt gfilenamef web/http.scm                 Ch]6|gname  gfilenamef web/http.scm       gnamegdeclare-relative-uri-header!C R2h]6|gname  gfilenamef web/http.scm       gnamegdeclare-quality-list-header!C R2 h[]L6Sgstr  gfilenamef web/http.scm      Ch[]L6Sgval  gfilenamef web/http.scm      Chm]L6egval  gport  gfilenamef web/http.scm      ChH-.,3###OOO6gname Eg val-parser Eg val-validator  Eg val-writer  Egfilenamef web/http.scm  E   E gnamegdeclare-param-list-header!C R2h[]L6Sgstr  gfilenamef web/http.scm      Ch[]L6Sgval  gfilenamef web/http.scm      Chm]L6egval  gport  gfilenamef web/http.scm      ChH-.,3###OOO6gname Eg val-parser Eg val-validator  Eg val-writer  Egfilenamef web/http.scm  E   E gnamegdeclare-key-value-list-header!C R2 h]45$C6gstr  gfilenamef web/http.scm       $        )   ,   C hv]&C6ngval  gfilenamef web/http.scm            #   C h ]&66gval  gport  gfilenamef web/http.scm                  Ch]6gname  gfilenamef web/http.scm       gnamegdeclare-entity-tag-list-header!CR2h]6{gname  gfilenamef web/http.scm       gnamegdeclare-credentials-header!CR2h]6~gname  gfilenamef web/http.scm       gnamegdeclare-challenge-list-header!CR4 i hp]$"$"$6$$6C$"$$6CCgk  lgv-str  lgfilenamef web/http.scm ;  <  - >  6 <  < @  B @  M <  a B  g B   l Ch]$"$"$6$$6C$"$$6C $"/ $"! $" $" $C$6Cgk  gv  gfilenamef 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   Chp]45$ 6$04">"G4>"G"645$66gk  igv  igport   igfilenamef 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>"G42iii 1h ]&"456gx  gport  gfilenamef web/http.scm f   g & g   h   i   g    Chv]6ngval  gport  gfilenamef web/http.scm d  k   e    C>"G4i!>"G4 i">"G4i#>"G4 i$>"G4i%>"G42i&iii>"G42i'( h ]Y4L 54L 5$$4L54L54L> GL$ 4L5" $-4L> G 45 ""  " G  L$ 4L 5"   $ C ,$ 4L4L 55C  L6CC gi  gidx1 gidx2   gcode  @ gagent  @ gtext  U gi  U gc  s gdate  gi gtext  gdate  gi gw gc gfilenamef web/http.scm             /       #  )   *   5   <  * @   @   E   L  2 T   X   a  ( e  # f  2 s   ~     .  A  .    0  #      !  &  !  0      "     +   /   D   /   +   #   .   "0   gnameglpCh0]45OQ4 56gstr  *glen *glp   *gfilenamef web/http.scm           !   *    * C)}hP]45$> $245$%45$$$CCCCCCCgcode  Mghost  Mgtext   Mgdate   Mgfilenamef web/http.scm     #     @      # "   #  # -   3  # 6  2 D  '  M Ch(]$45 $@CCgelt  !gfilenamef web/http.scm                    ! Ch[]6Sgval  gfilenamef web/http.scm      Ch]4L>"G4 L>"G4L>"G4 L>"G4L>"G$4 L>"GL6Cgcode  ghost  gtext   gdate   gfilenamef web/http.scm       +  ?  S  l  m      Chk]O@cgw  gport  gfilenamef web/http.scm      Chv]6ngval  gport  gfilenamef web/http.scm          C>"G4i*>"G42i+ ,hP] 45"4>"%G"$(""""Cgstr  Kg disposition Kgfilenamef web/http.scm                 )   ,   0   3   7   J    K Ch ]$$6CCgx  gfilenamef web/http.scm         -  $      ?   6   Ch ]$$ 6CCgval  gfilenamef web/http.scm                     Chv]6ngval  gport  gfilenamef web/http.scm        C>"G4i->"G4i.>"G4i/>"G4 i0>"G43i1>"G42i2345  h]4-54/5"645$r$h$4 545" 4 5$ " 454 5$ " 45C"y"ugstr  gdash  gslash   gfilenamef web/http.scm           -  $ - $   %   )   -   1   7  9   ? !  @ $  K %  R % 3 V %  W #  \ &  b &  h &  l !  n '  s )  w )  { )  | *  * ! * % *  *  +  ,  , 4 ,   &  C) hs] $r45 $b$X&"%$45$ 45""$&C6CCCCkgval  }gx # Zgx c ugfilenamef 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>"G4 >"G&4*>"G"B4>"G4->"G4>"G&*66#gval  gport  gfilenamef web/http.scm 9   :   :  :   ;  . < 1 <  5 <  6 =  N ? S ?  \ ? e @ y A ~ A  A B B  B  C  D  D   C>"G42i67M89 hX] 4=5"L6$34=5$44 5545C""gx  Vgeq Vgfilenamef 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 Ch(] 4;5454O5Cgstr  &gparts &gfilenamef web/http.scm I   J  J   K  K   K  L " T  $ L % K   & Ch ]$$6CCgx  gfilenamef web/http.scm Y   Z  Z  Z - Z $  Z   Z ?  Z 6   Ch ]$$ 6CCgval  gfilenamef web/http.scm U   V V  W  W  V   X   X    Ch8]4>"G4=>"G6gpair  4gport  4gfilenamef web/http.scm b  c  c   c  d 0 e  4 e   4 ChH]4>"G$!4>"G6Cgval  Bgport  Bgfilenamef web/http.scm [   \   \  \   ]   ]   ]  _ $ _  + _ 8 a > f @ `   B C>"G4i:5;R42i<=?;h]45$C6wgstr  gfilenamef web/http.scm m   n  n  n   n   p    Ci>"G4i@>"G4 iA!hz]&6Crgk  gv  gfilenamef web/http.scm             C!h ]&6$6Cgk  gv  gfilenamef web/http.scm                      C!h ]&66gk  gv  gport   gfilenamef web/http.scm                C>"G4 iB>"G4 iC>"G4 iD>"G4iE>"G4 iF>"G43iG>"G42iHIhx]!4]54:$" 5$54 5[$"4>"G4 5"$4 5"$45"Cpgstr  grbracket gcolon  # ghost  v gport  gfilenamef web/http.scm             ( #   #   +   ,  ! 6   :   ?   C  ! J   S   f   g   v   ~       6        Ch0] $$45$$C6CCgval  /gt  +gfilenamef web/http.scm                       )  $ +    / Ch]4:5$A4[>"G4>"G4]>"G"4>"G$4:>"G6Cgval  gport  gfilenamef web/http.scm                %  *   1  :  R   W   ^   i   m   n       C>"G4iJ>"G4iK>"G4iL>"G42iMh8] 45$" 45$66gstr  4gt $gfilenamef web/http.scm                !  (   .   4    4 C}h({] $ "$C6sgval  %gt  %gfilenamef web/http.scm         %    % C}h0]"6$&6""gval  .gport  .gfilenamef web/http.scm                  &    . C>"G4iN>"G4iO>"G4iP>"G42iQR5Sh`] 4-5$E $ 4 5C45$ 4 5C4 545CL6 gx  `gdash `gfilenamef web/http.scm                    %   )  0   1   5   6   A   C   M   T  8 V   W   \  `    ` CS h8]45$ 4O44 5,55C 6gstr  7gfilenamef web/http.scm                        +   -  .   3 !  7 !   7 ChP]$C$"$&$ 45"$$6CCCCgelt  Ngx  Lgy   Lgfilenamef web/http.scm &   '  '  ( #  ( 1  (   ) ! $ )  * * ! + * - 6 * % : )  @ + ! F + - G + %  N Ch ]$$ 6CCgval  gfilenamef web/http.scm "   # #  $  $  #   %   %    ChH]$4>"G"4->"G$ 6Cgpair  Hgport  Hgfilenamef web/http.scm 1   2 2  3  3   3 # 4  9 5 = 5  B 6  F 6   H Ch8]4>"G4=>"G6gval  8gport  8gfilenamef web/http.scm ,   -   -  -   .  0 0  6 7  8 /   8 C>"G4 iT>"G4 iU>"G43iV>"G4iW>"G4iX>"G42iYiii>"G4 iZ>"G4i[>"G42i\h0]45$" 44 55$66gstr  /gfilenamef web/http.scm i   j  j   k  k   k # j  ) l  / m   / C}h({] $ "$C6sgval  %gt  %gfilenamef web/http.scm n   o   o  % o   % C}h0]"6$&6""gval  .gport  .gfilenamef web/http.scm p   s   q   q   q   q  & r   . C>"G43i]>"G42i^ h]$C6wgstr  gfilenamef web/http.scm |   }   }  }  ~       C hv]&C6ngval  gfilenamef web/http.scm               C h ]&66gval  gport  gfilenamef web/http.scm                   C>"G4i_>"G`ah y] 4;5$C 6qgc  gt gfilenamef web/http.scm  *   0  ,   0   Cbh@8]4545$ C45$4 5" 60gport  ?gv ?gextension-start  ! ?gfilenamef web/http.scm        !   +   ,   ?    ? gnamegread-chunk-headerg documentationfQRead a chunk header from PORT and return the size in bytes of the upcoming chunk.CcRfcghhL]+"M$" $CM $'4L5N $NC"4M54L545$NCMN $(4L>"G4L>"G""9 ".Dgbv  gidx  gto-read   gto-read   gnum-read   gt   gsize  2 Rgask-for  [ gread  m gleft   gfilenamef web/http.scm             &  +   ,   2  8   ;   @   C   R   S   [  ^   i  8 m   m  p   z   }                %        #  gnamegread!Cijkhd]L$CL6\gfilenamef web/http.scm           gnamegcloseChPO-/03#HHOQ KKO6Ggport  Ng keep-alive?  Ng remaining   Ng finished?   Ngread!  , Ngfilenamef web/http.scm  ?  ! N    N g keep-alive?S gnamegmake-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.CERflmh@]"0"(45$C445>"G"""gf  :gq  :gfilenamef web/http.scm                &   2    : gnameg q-for-eachClnoph\]L6Tgelem  gfilenamef web/http.scm    #  Chh]4M5$C4M544 5L>"G4L>"G4LLOM>"GL6glen  hgfilenamef web/http.scm                   +   4   8   ?   H   d   h    h gnamegflushCqrshn]M6fgc  gfilenamef web/http.scm      gnamegput-charCtshY]M6Qgc  gfilenamef web/http.scm    !  Chp]LO6hgs  gfilenamef web/http.scm        gnameg put-stringCuvkhH]4L>"G4L>"G4L>"GL$CL6gfilenamef web/http.scm              '   >   F    F gnamegcloseCw hh-/03#HOQ45KOOO 6gport  bg keep-alive?  bgqueue   bg q-for-each  - bgflush  - bgfilenamef web/http.scm  7   ^   `  > b    b g keep-alive?S gnamegmake-chunked-output-portg documentationfReturns 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.CFR4xi5yRyhx]6pgport  gfilenamef web/http.scm       gnameghttp-proxy-port?CGR|yh]456gport  gflag  gfilenamef web/http.scm       gnamegset-http-proxy-port?!CHRCgm  ,grtd  gfilenamef 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 C6web/uri.go000064400000157503152537005630006470 0ustar00GOOF----LE-8-2.0+]4hX] gguile  gdefine-module*   gweb guri  gfilenameS f web/uri.scm gimportsS gsrfi gsrfi-9     gice-9 gregex   grdelim   gcontrol   grnrs g bytevectors   g binary-ports   !  "gexportsS #guri? $g uri-scheme %g uri-userinfo &guri-host 'guri-port (guri-path )g uri-query *g uri-fragment +g build-uri ,gdeclare-default-port! -g string->uri .g uri->string /g uri-decode 0g uri-encode 1gsplit-and-decode-uri-path 2gencode-and-join-uri-path 3#$%&'()*+,-./012 4gset-current-module 54 64 7g 8g%make-uri-procedure 9gmake-syntax-transformer :9 ;9 g $sc-dispatch ?> @> Ag_ Bgany CABBBBBBB Dg syntax-object Eglambda Fg m-50eea-a Ggtop HFG Igribcage 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 ]gx ^] _H `f l-50eea-c a` bI^_a cgshift dg proc-name egargs fde gG hgg ifl-1e8ba8b5a-2ba jfl-1e8ba8b5a-2bb kij lIfhk mgkey ngvalue ogname pgformals qgbody rmnopq sggggg tfl-1e8ba8b5a-2ad ufl-1e8ba8b5a-2ae vfl-1e8ba8b5a-2af wfl-1e8ba8b5a-2b0 xfl-1e8ba8b5a-2b1 ytuvwx zIrsy {gmake-procedure-name |{ }g ~fl-1e8ba8b5a-29d ~ I|} g fl-1e8ba8b5a-29c  I^ H[\bc\\\\lz  ghygiene    DE gscheme g[\b  D guserinfo D ghost D gport D gpath D gquery D gfragment D  g make-struct g m-50eea-1 G gt-1e8ba8b5a-38d gt-1e8ba8b5a-38c gt-1e8ba8b5a-38b  gm-1e8ba8b5a-38e G  fl-1e8ba8b5a-392 fl-1e8ba8b5a-393 fl-1e8ba8b5a-394  I g ctor-args  fl-1e8ba8b5a-37a  I gctor gfield  fl-1e8ba8b5a-376 fl-1e8ba8b5a-377  Ih gform g type-name gconstructor-spec g field-names  gggg fl-1e8ba8b5a-36b fl-1e8ba8b5a-36c fl-1e8ba8b5a-36d fl-1e8ba8b5a-36e  I g record-layout gfunctional-setters gsetters gcopier ggetters g constructor ggetter-identifiers gfield-identifiers  gggggggg fl-1e8ba8b5a-343 fl-1e8ba8b5a-341 fl-1e8ba8b5a-33f fl-1e8ba8b5a-33d fl-1e8ba8b5a-33b fl-1e8ba8b5a-339 fl-1e8ba8b5a-337 fl-1e8ba8b5a-335  I fl-1e8ba8b5a-334  I^ [\bc\\\\\ D D7 D     geach-any Aތ gsyntax-violation   fWrong number of arguments g identifier?   g\b D8   f-source expression failed to match any pattern grecord-type-vtable   gpwpwpwpwpwpwpw gdefault-record-printer    gset-struct-vtable-name!   gvtable-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  gobj  gt-1e8ba8b5a-47e  gt-1e8ba8b5a-478  gt-1e8ba8b5a-479  gt-1e8ba8b5a-47a gt-1e8ba8b5a-47d gt-1e8ba8b5a-47c gt-1e8ba8b5a-47b      gm-1e8ba8b5a-47f G  fl-1e8ba8b5a-483 fl-1e8ba8b5a-484 fl-1e8ba8b5a-485 fl-1e8ba8b5a-486 fl-1e8ba8b5a-487 fl-1e8ba8b5a-488 fl-1e8ba8b5a-489  I g copier-id   fl-1e8ba8b5a-476 !  "I! #g ctor-name $# %fl-1e8ba8b5a-46e &% 'I$& ( )fl-1e8ba8b5a-46c *) +I(* ,glayout -, .fl-1e8ba8b5a-46a /. 0I-/ 1g immutable? 21 3fl-1e8ba8b5a-468 43 5I24 6g field-count 76 8fl-1e8ba8b5a-466 98 :I79 ;g getter-ids <; =fl-1e8ba8b5a-463 >= ?I<> @g field-ids A@ Bfl-1e8ba8b5a-460 CB DIAC Egpredicate-name Fg field-spec G1EF Hgggggg Ifl-1e8ba8b5a-453 Jfl-1e8ba8b5a-454 Kfl-1e8ba8b5a-455 Lfl-1e8ba8b5a-456 Mfl-1e8ba8b5a-457 Nfl-1e8ba8b5a-458 OIJKLMN PIGHO Q\c\\\\\"\'\+\0\5\:\?\DP RD Q SR Tgand UDTQ Vgstruct? WDVQ XWR Ygeq? ZDYQ [g struct-vtable \D[Q ]\R ^g\ _D7^ `Z]_ aUX` bSa cg\ dDc egthrow-bad-struct fe ge hg%uri-scheme-procedure igfree-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 vgt-1e8ba8b5a-3a5 wgt-1e8ba8b5a-3a6 xgt-1e8ba8b5a-3a7 ygt-1e8ba8b5a-3a8 zgt-1e8ba8b5a-3a9 {gt-1e8ba8b5a-3aa |gt-1e8ba8b5a-3ab }vwxyz{| ~gm-1e8ba8b5a-3ac ~G  fl-1e8ba8b5a-3b0 fl-1e8ba8b5a-3b1 fl-1e8ba8b5a-3b2 fl-1e8ba8b5a-3b3 fl-1e8ba8b5a-3b4 fl-1e8ba8b5a-3b5 fl-1e8ba8b5a-3b6  I} ggetter gindex  fl-1e8ba8b5a-3a3 fl-1e8ba8b5a-3a4  Ih ; ggg fl-1e8ba8b5a-39e fl-1e8ba8b5a-39f fl-1e8ba8b5a-3a0  I \pc\\\\\ Du i AtB gck gerr gs  ll f l-50eea-34 f l-50eea-35  I l\pc\\\\lz  D gquote 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%%-set-fields g\p D   g t-50eea-2e  f l-50eea-43  Im l\pc\\\\lz  DE \pc\\\\\ D  gif 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 geach BB  B쌤 B팤 B g %%set-fields gdummy gcheck? gexpr  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^ gt-1e8ba8b5a-3c4 gt-1e8ba8b5a-3c6 gt-1e8ba8b5a-3c5  gm-1e8ba8b5a-3c7 G    fl-1e8ba8b5a-3cb  fl-1e8ba8b5a-3cc  fl-1e8ba8b5a-3cd      I   fl-1e8ba8b5a-3c1 fl-1e8ba8b5a-3c2 fl-1e8ba8b5a-3c3  I \c\\\\  D g\ D7 D$ D% D& D' D( D) D*   gmap !  "  #glist $g absolute-uri? %gthrow &g uri-error 'gnumber? (gexact? )ginteger? *gpositive-exact-integer? +gstring? ,g string-null? -g string-ref .f3Expected path of absolute URI to start with a /: ~a /fExpected string for path: ~s 0f Expected string for userinfo: ~s 1g valid-host? 2fExpected 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 7guserinfoS 87  9ghostS :9  ;gportS <;  =gpathS >=  ?gqueryS @?  AgfragmentS 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])?$ Mgdomain-label-regexp Nf%^[a-zA-Z]([a-zA-Z0-9-]*[a-zA-Z0-9])?$ Ogtop-label-regexp Pg regexp-exec Qgcatch RQ SQ Tg inet-pton UgAF_INET VgAF_INET6 Wg string-index Xg substring Yf[a-zA-Z0-9_.!~*'();:&=+$,-]+ Zg userinfo-pat [f[a-zA-Z0-9.-]+ \ghost-pat ]f[0-9a-fA-F:.]+ ^g ipv6-host-pat _f[0-9]* `gport-pat agformat bf%^//((~a)@)?((~a)|(\[(~a)\]))(:(~a))?$ cgauthority-regexp df// egmatch:substring fgstring->number ggparse-authority hf[a-zA-Z][a-zA-Z0-9+.-]* ig scheme-pat jf[^/?#]* kg authority-pat lf[^?#]* mgpath-pat nf[^#]* og query-pat pf.* qg fragment-pat rf&^((~a):)?(//~a)?(~a)(\?(~a))?(#(~a))?$ sguri-pat tg uri-regexp ugdefault-prompt-tag vu wu xgabort ygstring->symbol zgstring-downcase {g string->uri* |gmake-hash-table }g*default-ports* ~g hashq-set! g hashq-ref g default-port? ghttp ghttps g string-append gsymbol->string f: f@ f[ f] gnumber->string f? f# gopen-output-string gget-output-string g close-port gcall-with-output-string* gopen-bytevector-output-port gcall-with-output-bytevector* g string-ci=? futf-8 g string->utf8 gset-port-encoding! gcall-with-encoded-output-string gdisplay g encode-string g utf8->string gopen-bytevector-input-port g read-string g decode-string gstring->char-set f0123456789abcdefABCDEF g hex-chars gencodingS   gdecode-plus-to-space?S    g string-length gchar-set-contains? gstring gput-u8 g char->integer f'Invalid character in encoded URI ~a: ~s f>abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 gascii-alnum-chars f:/?#[]@ g gen-delims f !$&'()*+,l= g sub-delims gchar-set-union greserved-chars f-._~ gunreserved-chars gunescaped-charsS    gstring-for-each gbytevector-length g string-upcase gfilter g string-split g string-join f/C5h}]4   !"3546>"G7h]Cgscheme  guserinfo  ghost   gport   gpath   gquery   gfragment   gfilenamef web/uri.scm ,    gnameg%make-uri-procedureC8R4;<=@Ch]Cg 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<hN]L6Fga  gfilenamef web/uri.scm  ,   CAh>]L66gfilenamef web/uri.scm  ,    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6wgx  ngtmp ngtmp  " ngtmp  > ngfilenamef web/uri.scm ,   n C5"G 8i7R7hk]$CCcgobj  gfilenamef web/uri.scm ,    gnameg%uri?-procedureCR4;#=@bh2]C*g t-50eea-22    C#hN]L6Fga  gfilenamef web/uri.scm  ,   CAh>]L66gfilenamef web/uri.scm  ,    Cdh]C   C hp]45$@45$ O@45$4O?$@  6  6wgx  ngtmp ngtmp  " ngtmp  > ngfilenamef web/uri.scm ,   n C5#R7g$ho]& C6ggs  gfilenamef web/uri.scm ,    gnameg%uri-scheme-procedureChR4;$=@h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch2]C*g t-50eea-2e    C$hN]L6Fga  gfilenamef web/uri.scm  ,   CAh>]L66gfilenamef web/uri.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  gfilenamef web/uri.scm ,   C5$R7g%hq]& C6igs  gfilenamef web/uri.scm ,    gnameg%uri-userinfo-procedureCR4;%=@h:]C2gerr  gs    C h:]C2gerr  gs    C"h:]C2gerr  gs    C>h2]C*g t-50eea-49    C%hN]L6Fga  gfilenamef web/uri.scm  ,   CAh>]L66gfilenamef web/uri.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  gfilenamef web/uri.scm ,   C5%R7g&h m]& C6egs  gfilenamef web/uri.scm ,    gnameg%uri-host-procedureCAR4;&=@OV[h:]C2gerr  gs    C^dih:]C2gerr  gs    Clrwh:]C2gerr  gs    Ch2]C*g t-50eea-64    C&hN]L6Fga  gfilenamef web/uri.scm  ,   CAh>]L66gfilenamef web/uri.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  gfilenamef web/uri.scm ,   C5&R7g'h m]& C6egs  gfilenamef web/uri.scm ,    gnameg%uri-port-procedureCR4;'=@h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch2]C*g t-50eea-7f    C'hN]L6Fga  gfilenamef web/uri.scm  ,   CAh>]L66gfilenamef web/uri.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  gfilenamef web/uri.scm ,   C5'R7g(h m]& C6egs  gfilenamef web/uri.scm ,    gnameg%uri-path-procedureCR4;(=@h:]C2gerr  gs    Ch:]C2gerr  gs    C!h:]C2gerr  gs    C=h2]C*g t-50eea-9a    C(hN]L6Fga  gfilenamef web/uri.scm  ,   CAh>]L66gfilenamef web/uri.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  gfilenamef web/uri.scm ,   C5(R7g)h n]& C6fgs  gfilenamef web/uri.scm ,    gnameg%uri-query-procedureC@R4;)=@NUZh:]C2gerr  gs    C]chh:]C2gerr  gs    Ckqvh:]C2gerr  gs    Ch2]C*g t-50eea-b5    C)hN]L6Fga  gfilenamef web/uri.scm  ,   CAh>]L66gfilenamef web/uri.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  gfilenamef web/uri.scm ,   C5)R7g*h q]& C6igs  gfilenamef web/uri.scm ,    gnameg%uri-fragment-procedureCR4;*=@h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch2]C*g t-50eea-d0    C*hN]L6Fga  gfilenamef web/uri.scm  ,   CAh>]L66gfilenamef web/uri.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  gfilenamef web/uri.scm ,   C5*R4;=@"#h v]45Cngdummy  gcheck?  gs   ggetter   gexpr      Ch(] 45$@6gx  "gtmp "gfilenamef web/uri.scm ,   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5R7h(]$&  $CCCCgobj  "gfilenamef web/uri.scm 7  8  8  8   8   8   " gnameg absolute-uri?C$R%&h-136gmessage gargs gfilenamef web/uri.scm : ;  ;   gnameg uri-errorC&R'()h0]45$45$45$ CCCCgport  .gfilenamef web/uri.scm =  >  >   >   >   > $ # >  & > 4  . gnamegpositive-exact-integer?C*R+,-&./012*345hE]$"E45$2$*45$" 4 5/$6CC6"!$45$"6""2$(45$ 45"$ 6"""!$4 5$" 6"$"$$" 6" 6=gscheme  guserinfo  ghost   gport   gpath   gquery   gfragment   gfilenamef 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 +  gnameg validate-uriC6REF67h-/03#######$"4>"G"Cgscheme  guserinfo  ghost   gport   gpath   gquery   gfragment   g validate?   gfilenamef web/uri.scm R 6 R : Y Y  Z Z  [   guserinfoS ghostS gportS gpathS gqueryS gfragmentS g validate?S gnameg build-urig documentationkConstruct a URI object. SCHEME should be a symbol, PORT either a positive, exact integer or  #f , and the rest of the fields are either strings or  #f . If VALIDATE? is true, also run some consistency checks to make sure that the constructed URI is valid.C+R4GiH5IR4GiJ5KR4GiL5MR4GiN5ORPISTUhF]L6>gfilenamef web/uri.scm l  l   ChS-13CKgargs gfilenamef web/uri.scm l  CKTVhF]L6>gfilenamef web/uri.scm n  n   ChS-13CKgargs gfilenamef web/uri.scm n  CWMXO h]45$O645$O6">4 .5$!4 4 55$ "C 6 "ghost  gstart < zgend  G zgfilenamef 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   gnameg valid-host?C1RYZR[\R]^R_`R4Gi4aibZi\i^i`i55cRdPc1e,fh]$D45$44 5$" 4 55$^4 54 5$" 4 54 5$45$"45"D66g authority  gfail  gm   gt  - Ggt  _ ygport  gfilenamef web/uri.scm            !  "  % $ - < $ I  M N  W  _  n  z   %     gnamegparse-authorityCgRhiRjkRlmRnoRpqR4airiikimioiqi5sR4Gisi5tRwPtxeyzg7 hi]I45U45$"4>"G4 5$4455"4 54 54 54 5$4>"  " G   XCXFGCagstring  gm  gstr  : Vgscheme  z g authority  z gpath  z gquery  z gfragment  z guserinfo  ghost  gport gk  gfilenamef web/uri.scm        "  2 :  B  C F 0 N W  `  i  r  z       gnameg string->uri*g documentationkurig documentationk"G4,i >"G7g$%&'()*FdWh]9& " 45& " 45&  " 45&  " 45&  " 45&  " 45&  " 4 5 $4 4 5 5" $w4 $ 4 5" 4:5$4 5"4& " 455$ "4  4555" $ 4 5" $ 4 5" 6guri  gscheme  guserinfo  8 ghost  U gport  r gpath  gquery  gfragment  gfilenamef web/uri.scm     !  8  =  U  Z  r  w         0    % =  %          +  4   &  + + F  J  L  Q  U + V / ^  ` f n  o s  w }         :   gnameg uri->stringg documentationfSerialize 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.Rh@]454>"G454>"GCgproc  9gport  9gstr  " 9gfilenamef web/uri.scm        "  %   9 gnamegcall-with-output-string*CRh@]4> G4>"G454>"GCgproc  @gport @gget-bytevector  @gbv  ) @gfilenamef web/uri.scm           %   )   ,    @ gnamegcall-with-output-bytevector*CRh d]4L>"GL6\gport  gfilenamef web/uri.scm          Ch(]45$ 456O6gencoding  'gproc  'gfilenamef web/uri.scm                  '    ' gnamegcall-with-encoded-output-stringCRh[]L6Sgport  gfilenamef web/uri.scm  '  )  Ch(]45$6O6gstr  "gencoding  "gfilenamef web/uri.scm               "    " gnameg encode-stringCRhP]45$6454>"G454>"GCgbv  Pgencoding  Pgp   Pgres  9 Pgfilenamef web/uri.scm                        3   9   < !   P gnameg decode-stringCR4i5R-f& h0m]!"#L$4L5" L$f%$X4L54L 545$&45$445 5""""$4>"G "N45 $"445>"G" L6+$'L$4 >"G"""C "egport  0gi  )gch   'ga  I gb  I gt  gfilenamef 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 ChX -/03##454O5$6Cgstr  Rgencoding  Rgdecode-plus-to-space?   Rglen  - Rgbv  ? Rgfilenamef web/uri.scm 2  2 ) ' H  - H  0 J ? H  G b  O c   R gencodingS gdecode-plus-to-space?S gnameg uri-decodeg documentationkPercent-decode the given STR, according to ENCODING, which should be the name of a character encoding. Note that this function should not generally be applied to a full URI string. For paths, use  split-and-decode-uri-path instead. For query strings, split the query on  & and  = boundaries, and decode the components separately. Note also that percent-encoded strings encode _bytes_, not characters. There is no guarantee that a given byte sequence is a valid string encoding. Therefore this routine may signal an error if the decoded bytes are not valid for the given encoding. Pass  #f for ENCODING if you want decoded bytes as a bytevector directly.  set-port-encoding! , for more information on character encodings. If DECODE-PLUS-TO-SPACE? is true, which is the default, also replace instances of the plus character (+) with a space character. This is needed when parsing application/x-www-form-urlencoded data. Returns a string of the decoded characters, or a bytevector if ENCODING was  #f .C/R4i5R4i5R4i5R4iii5R4ii4i55RWh}]4L5Cugch  gfilenamef web/uri.scm        gnamegneeds-escaped?Ch]!4L5$L6445L545"p$e4%L>"G $40L>"G"444 55L>"G"C "gch  gbv % glen  . gi  4 gbyte  B gfilenamef web/uri.scm               * %   %   (   .   4   9   =   B  $ B   E   ]  a   b   z   }  #  2  #          Ch[]LLOL6Sgport  gfilenamef web/uri.scm        ChPe-/03##4O5$O6C]gstr  Kgencoding  Kgunescaped-chars   Kgfilenamef web/uri.scm {  { ) (   9   H    K gencodingS gunescaped-charsS gnameg uri-encodeg documentationkdPercent-encode any character not in the character set, UNESCAPED-CHARS. The default character set includes alphanumerics from ASCII, as well as the special characters  - ,  . ,  _ , and  ~ . Any other character will be percent-encoded, by writing out the character to a bytevector within the given ENCODING, then encoding each byte as  %HH , where HH is the uppercase hexadecimal representation of the byte.C0R,ha]45CYgx  gfilenamef web/uri.scm        C /hX]6Pgs  gfilenamef web/uri.scm      Che]44/556]gpath  gfilenamef web/uri.scm             gnamegsplit-and-decode-uri-pathg documentationkSplit PATH into its components, and decode each component, removing empty components. For example,  "/foo/bar%20baz/" decodes to the two-element list,  ("foo" "bar baz") .C1R 0hI]456Agparts  gfilenamef web/uri.scm       &      gnamegencode-and-join-uri-pathg documentationkURI-encode each element of PARTS, which should be a list of strings, and join the parts together with  / as a delimiter. For example, the list  ("scrambled eggs" "biscuits&gravy") encodes as  "scrambled%20eggs/biscuits%26gravy" .C2RCgm  ,grtd I qgfilenamef 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  }~ C6web/server.go000064400000140721152537005630007171 0ustar00GOOF----LE-8-2.0]4hI] gguile  gdefine-module*   gweb gserver  gfilenameS fweb/server.scm gimportsS gsrfi gsrfi-9     ggnu     grnrs g bytevectors   gice-9 g binary-ports   grequest   gresponse   !gsystem "grepl #gerror-handling $!"# %$ &gcontrol '& (' )giconv *) +* , %(+  -gexportsS .gdefine-server-impl /glookup-server-impl 0gmake-server-impl 1g server-impl? 2gserver-impl-name 3gserver-impl-open 4gserver-impl-read 5gserver-impl-write 6gserver-impl-close 7g open-server 8g read-client 9ghandle-request :gsanitize-response ;g write-client g run-server ?./0123456789:;<=> @gset-current-module A@ B@ Cg gettimeofday Dg*timer* Egpk Fg print-elapsed Ggmake-syntax-transformer HG IG Jg debug-elapsed Kgmacro Lg $sc-dispatch ML NL Og_ Pgany QOP Rg *time-debug?* Sg syntax-object Tgtop UT Vgribcage Wgwho XW YU Zf l-1e6f79399-8 [Z \VXY[ ]V ^gx _^ `f l-1e6f79399-5 a` bV_Ya cU\]b dghygiene ed fSFce gg *unspecified* hSgce igsyntax-violation ji ki lf-source expression failed to match any pattern mg server-impl ng%make-server-impl-procedure oOPPPPP pglambda qgm-1e6f79399-12 rqT sg t-1e6f79399-d tg t-1e6f79399-e ug t-1e6f79399-f vgt-1e6f79399-10 wgt-1e6f79399-11 xstuvw yrrrrr zfl-1e6f79399-17 {fl-1e6f79399-18 |fl-1e6f79399-19 }fl-1e6f79399-1a ~fl-1e6f79399-1b z{|}~ Vxy r fl-1e6f79399-14  V_ gshift g proc-name gargs  UU fl-1e8ba8b5a-2ba fl-1e8ba8b5a-2bb  V gkey gvalue gname gformals gbody  UUUUU fl-1e8ba8b5a-2ad fl-1e8ba8b5a-2ae fl-1e8ba8b5a-2af fl-1e8ba8b5a-2b0 fl-1e8ba8b5a-2b1  V gmake-procedure-name  U fl-1e8ba8b5a-29d  V fl-1e8ba8b5a-29c  V_Y r]]]]]  d   Sp U] Se gopen Se gread Se gwrite Se gclose Se  g make-struct g m-1e6f79399-b T gt-1e8ba8b5a-38d gt-1e8ba8b5a-38c gt-1e8ba8b5a-38b  gm-1e8ba8b5a-38e T  fl-1e8ba8b5a-392 fl-1e8ba8b5a-393 fl-1e8ba8b5a-394  V g ctor-args  fl-1e8ba8b5a-37a  VY gctor gfield  fl-1e8ba8b5a-376 fl-1e8ba8b5a-377  V gform g type-name gconstructor-spec g field-names  UUUU fl-1e8ba8b5a-36b fl-1e8ba8b5a-36c fl-1e8ba8b5a-36d fl-1e8ba8b5a-36e  V g record-layout gfunctional-setters gsetters gcopier ggetters g constructor ggetter-identifiers gfield-identifiers  UUUUUUUU fl-1e8ba8b5a-343 fl-1e8ba8b5a-341 fl-1e8ba8b5a-33f fl-1e8ba8b5a-33d fl-1e8ba8b5a-33b fl-1e8ba8b5a-339 fl-1e8ba8b5a-337 fl-1e8ba8b5a-335  V fl-1e8ba8b5a-334  V_Y ]]]]]] S Sme S    geach-any O i i fWrong number of arguments g identifier?   U] Sne grecord-type-vtable   g pwpwpwpwpw gdefault-record-printer     gset-struct-vtable-name!        gvtable-offset-user      g%server-impl?-procedure gm-1e6f79399-27 T gt-1e6f79399-26   fl-1e6f79399-2c  V fl-1e6f79399-29  V_ ]]]]]  Sp gobj gt-1e8ba8b5a-47e gt-1e8ba8b5a-478  gt-1e8ba8b5a-479 !gt-1e8ba8b5a-47a "gt-1e8ba8b5a-47d #gt-1e8ba8b5a-47c $gt-1e8ba8b5a-47b % !"#$ &gm-1e8ba8b5a-47f '&T (''''''' )fl-1e8ba8b5a-483 *fl-1e8ba8b5a-484 +fl-1e8ba8b5a-485 ,fl-1e8ba8b5a-486 -fl-1e8ba8b5a-487 .fl-1e8ba8b5a-488 /fl-1e8ba8b5a-489 0)*+,-./ 1V%(0 2g copier-id 32 4fl-1e8ba8b5a-476 54 6V3Y5 7g ctor-name 87 9fl-1e8ba8b5a-46e :9 ;V8Y: < =fl-1e8ba8b5a-46c >= ?V<Y> @glayout A@ Bfl-1e8ba8b5a-46a CB DVAYC Eg immutable? FE Gfl-1e8ba8b5a-468 HG IVFYH Jg field-count KJ Lfl-1e8ba8b5a-466 ML NVKYM Og getter-ids PO Qfl-1e8ba8b5a-463 RQ SVPYR Tg field-ids UT Vfl-1e8ba8b5a-460 WV XVUYW Ygpredicate-name Zg field-spec [EYZ \UUUUUU ]fl-1e8ba8b5a-453 ^fl-1e8ba8b5a-454 _fl-1e8ba8b5a-455 `fl-1e8ba8b5a-456 afl-1e8ba8b5a-457 bfl-1e8ba8b5a-458 c]^_`ab dV[\c e]]1]]]]6];]?]D]I]N]S]Xd fSe gf hgand iShe jgstruct? kSje lkf mgeq? nSme og struct-vtable pSoe qpf rU] sSmre tnqs uilt vgu wU] xSwe ygthrow-bad-struct zy {y |g%server-impl-name-procedure }gfree-id ~g %%on-error gm-1e6f79399-33 T  fl-1e6f79399-35  V_ ]]]]]  S~ } P g%%type gt-1e8ba8b5a-3a5 gt-1e8ba8b5a-3a6 gt-1e8ba8b5a-3a7 gt-1e8ba8b5a-3a8 gt-1e8ba8b5a-3a9 gt-1e8ba8b5a-3aa gt-1e8ba8b5a-3ab  gm-1e8ba8b5a-3ac T  fl-1e8ba8b5a-3b0 fl-1e8ba8b5a-3b1 fl-1e8ba8b5a-3b2 fl-1e8ba8b5a-3b3 fl-1e8ba8b5a-3b4 fl-1e8ba8b5a-3b5 fl-1e8ba8b5a-3b6  V ggetter gindex  fl-1e8ba8b5a-3a3 fl-1e8ba8b5a-3a4  V O2 UUU fl-1e8ba8b5a-39e fl-1e8ba8b5a-39f fl-1e8ba8b5a-3a0  V ]]]]]] S } OP gck gerr gs   fl-1e6f79399-38 fl-1e6f79399-39  V ]]]]]  S gquote S U] Sme   g%%index S } OP fl-1e6f79399-3d fl-1e6f79399-3e  V ]]]]]  S S ] S e   g%%copier S } OP fl-1e6f79399-42 fl-1e6f79399-43  V ]]]]]  S S g%%server-impl-set-fields U] Se   gt-1e6f79399-32  fl-1e6f79399-47  V ]]]]]  Sp ]]]]]] S  gif S Sm So  U] Sme  g struct-ref S ] S e  Sy S S2e     U] S|e g%server-impl-open-procedure gm-1e6f79399-4e T  fl-1e6f79399-50  V_ ]]]]]  S~  }   P  ]]]]]]  S   }  O  P  fl-1e6f79399-53 fl-1e6f79399-54  V ]]]]]  S S U] Sme   S  } O P fl-1e6f79399-58 fl-1e6f79399-59   !V  "!]]]]]  #S" $S" %!] &S %e '$& (' )S  *}) +O *P ,fl-1e6f79399-5d -fl-1e6f79399-5e .,- /V. 0/]]]]]  1S0 2S0 3U/] 4S3e 524 65 7gt-1e6f79399-4d 87 9fl-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] TSSe Ug%server-impl-read-procedure Vgm-1e6f79399-69 WVT XW Yfl-1e6f79399-6b ZY [V_XZ \W][]]]]  ]S~\ ^}] _^P `][]]]]] aS` b}a cO_bP dWW efl-1e6f79399-6e ffl-1e6f79399-6f gef hVdg iWh][]]]]  jSi kSi lUh][ mSmle nkm on pS` q}p rO_qP sfl-1e6f79399-73 tfl-1e6f79399-74 ust vVdu wWv][]]]]  xSw ySw zv][ {S ze |y{ }| ~S` }~ O_P fl-1e6f79399-78 fl-1e6f79399-79  Vd W][]]]]  S S U][ Se   gt-1e6f79399-68  fl-1e6f79399-7d  VX W][]]]]  Sp ][]]]]] S  S Sm So  U][ Sme  S ][ S e  Sy S S4e     U][ SUe g%server-impl-write-procedure gm-1e6f79399-84 T  fl-1e6f79399-86  V_ ]]]]]  S~ } P ]]]]]] S } OP  fl-1e6f79399-89 fl-1e6f79399-8a  V ]]]]]  S S U] Sme   S } OP fl-1e6f79399-8e fl-1e6f79399-8f  V ]]]]]  S S ] S e   S } OP fl-1e6f79399-93 fl-1e6f79399-94  V ]]]]]  S S U] Se   gt-1e6f79399-83  fl-1e6f79399-98  V ]]]]]  Sp ]]]]]] S  S Sm So  U] Sme  S ] S e  Sy S S5e     U] Se g%server-impl-close-procedure gm-1e6f79399-9f T  fl-1e6f79399-a1  V_ ]]]]]  S~ }  P  ]]]]]]  S   }   O  P  fl-1e6f79399-a4 fl-1e6f79399-a5  V ]]]]]  S S U] Sme   S  } O P fl-1e6f79399-a9 fl-1e6f79399-aa   V ! ]]]]]  "S! #S! $ ] %S $e &#% '& (S  )}( *O )P +fl-1e6f79399-ae ,fl-1e6f79399-af -+, .V- /.]]]]]  0S/ 1S/ 2U.] 3S2e 413 54 6gt-1e6f79399-9e 76 8fl-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 Tgeach UPP VTU WPV XPW YPX Zg %%set-fields [gdummy \gcheck? ]gexpr ^[\] _gm-1e6f79399-ba `_T a` bfl-1e6f79399-bf cfl-1e6f79399-c0 dfl-1e6f79399-c1 efl-1e6f79399-c2 ffl-1e6f79399-c3 gbcdef hV^ag i` jfl-1e6f79399-bc kj lV_ik mgt-1e8ba8b5a-3c4 ngt-1e8ba8b5a-3c6 ogt-1e8ba8b5a-3c5 pmno qgm-1e8ba8b5a-3c7 rqT srrr tfl-1e8ba8b5a-3cb ufl-1e8ba8b5a-3cc vfl-1e8ba8b5a-3cd wtuv xVpsw yfl-1e8ba8b5a-3c1 zfl-1e8ba8b5a-3c2 {fl-1e8ba8b5a-3c3 |yz{ }V| ~h]l]x]]]}  SZ~ Uh]l Sme S2e S3e S4e S5e S6e  gmap   glist PPPPPP gdefine [ gm-1e6f79399-e7 T UUUUU fl-1e6f79399-ec fl-1e6f79399-ed fl-1e6f79399-ee fl-1e6f79399-ef fl-1e6f79399-f0 fl-1e6f79399-f1  V  fl-1e6f79399-e9  V_ U] Se S0e Se g module-ref gresolve-module gerror f expected a server impl in module f"expected a server-impl or a symbol gcall-with-error-handling g pass-keysS gquit g interrupt  gon-errorS g batch-mode? g backtrace gdebug g post-errorS g    g assoc-set! g copy-tree g%%-set-fields gextend-response gbuild-response gversionS g    grequest-version gheadersS gresponse-version gstring? gresponse-content-type g text/plain  gassq-ref gcharset g content-type gappend   futf-8 gstring->bytevector g procedure? gcall-with-encoded-output-string g bytevector? gresponse-content-length gbytevector-length fbad content-length gcontent-length grequest-method gHEAD gresponse-must-not-include-body? f4response with this status code must not include body funexpected body type gvu8 j gadapt-response-version gwith-stack-and-prompt gcodeS g provided? gposix gcatch g sigaction gSIGINT gthrow gcall-with-sigint gdefault-prompt-tag g %start-stack   ghttpC5hs]4   ,-?54B>"G4Ci5DRCEDh@] 454B@>"G Cgwho  :gt  :gfilenamefweb/server.scm i  j  j  k   k   k   k   k  " l  % l  & l  ' k , k  8 m   : gnameg print-elapsedCFR4IJKNQRfhhT]$CCLgwho  gfilenamefweb/server.scm  v    Cklh(a] 45$@6Ygx  "gtmp "gfilenamefweb/server.scm s   " C5JRmh]Cgname  gopen  gread   gwrite   gclose   gfilenamefweb/server.scm z    gnameg%make-server-impl-procedureCnR4I0KNoh]Cg t-1e6f79399-d  g t-1e6f79399-e  g t-1e6f79399-f   gt-1e6f79399-10   gt-1e6f79399-11      C0hQ]L6Iga  gfilenamefweb/server.scm  z   COhA]L69gfilenamefweb/server.scm  z    Ch]C   Ckl hp]45$@45$ O@45$4O?$@  6  6zgx  ngtmp ngtmp  " ngtmp  > ngfilenamefweb/server.scm z   n C50Rm4 m>"G nimRmhv]$CCngobj  gfilenamefweb/server.scm z    gnameg%server-impl?-procedureCR4I1KNQvh6]C.gt-1e6f79399-26    C1hQ]L6Iga  gfilenamefweb/server.scm  z   COhA]L69gfilenamefweb/server.scm  z    Cxh]C   Ckl hp]45$@45$ O@45$4O?$@  6  6zgx  ngtmp ngtmp  " ngtmp  > ngfilenamefweb/server.scm z   n C51Rm{2hx]& C6pgs  gfilenamefweb/server.scm z    gnameg%server-impl-name-procedureC|R4I2KNh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    CQh6]C.gt-1e6f79399-32    C2hQ]L6Iga  gfilenamefweb/server.scm  z   COhA]L69gfilenamefweb/server.scm  z    Ch]C   Cklh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefweb/server.scm z   C52Rm{3hx]& C6pgs  gfilenamefweb/server.scm z    gnameg%server-impl-open-procedureCR4I3KNh:]C2gerr  gs    C#(h:]C2gerr  gs    C+16h:]C2gerr  gs    CQRh6]C.gt-1e6f79399-4d    C3hQ]L6Iga  gfilenamefweb/server.scm  z   COhA]L69gfilenamefweb/server.scm  z    CTh]C   Cklh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefweb/server.scm z   C53Rm{4h x]& C6pgs  gfilenamefweb/server.scm z    gnameg%server-impl-read-procedureCUR4I4KNcjoh:]C2gerr  gs    Crx}h:]C2gerr  gs    Ch:]C2gerr  gs    CQh6]C.gt-1e6f79399-68    C4hQ]L6Iga  gfilenamefweb/server.scm  z   COhA]L69gfilenamefweb/server.scm  z    Ch]C   Cklh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefweb/server.scm z   C54Rm{5h y]& C6qgs  gfilenamefweb/server.scm z    gnameg%server-impl-write-procedureCR4I5KNh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    CQh6]C.gt-1e6f79399-83    C5hQ]L6Iga  gfilenamefweb/server.scm  z   COhA]L69gfilenamefweb/server.scm  z    Ch]C   Cklh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefweb/server.scm z   C55Rm{6h y]& C6qgs  gfilenamefweb/server.scm z    gnameg%server-impl-close-procedureCR4I6KN h:]C2gerr  gs    C"'h:]C2gerr  gs    C*05h:]C2gerr  gs    CQQh6]C.gt-1e6f79399-9e    C6hQ]L6Iga  gfilenamefweb/server.scm  z   COhA]L69gfilenamefweb/server.scm  z    CSh]C   Cklh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefweb/server.scm z   C56R4IKNYh v]45Cngdummy  gcheck?  gs   ggetter   gexpr      Cklh(] 45$@6gx  "gtmp "gfilenamefweb/server.scm z   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5R4I.KNh ]Cgdummy  gname  gopen   gread   gwrite   gclose      Cklh(] 45$@6gx  "gtmp "gfilenamefweb/server.scm   " g macro-typeg syntax-rulesgpatternsgnamegopengreadgwritegcloseC5.Rm hx] "T$E4455"6$&C""6$&C""gimpl  ugimpl " Rgfilenamefweb/server.scm        ,   "  "  ,  . 4 7 7  : >  A V Z  Z  ]  a  d   u gnameglookup-server-implg documentationkLook up a server implementation. If IMPL is a server implementation already, it is returned directly. If it is a symbol, the binding named IMPL in the  (web server IMPL) module is looked up. Otherwise an error is signaled. Currently a server implementation is a somewhat opaque type, useful only for passing to other procedures in this module, like  read-client .C/Rm{3h i]& " 45@agimpl  g open-params  gfilenamefweb/server.scm    gnameg open-serverg documentationkOpen a server for the given implementation. Return one value, the new server object. The implementation's  open procedure is applied to OPEN-PARAMS, which should be a list.C7Rm{4h(K]L& L " 4L5L6Cgfilenamefweb/server.scm     ! Ch]-13DUg_ gfilenamefweb/server.scm     C h0 ]O45$"  6gimpl  *gserver  *gfilenamefweb/server.scm        $ + *   * gnameg read-clientg documentationk G4L> GDgresponse  ?gbody  ?gstate   ?gresponse  0 ?gbody  0 ?gfilenamefweb/server.scm         "   3  ?    ? Chf-134 5LD^g_ gfilenamefweb/server.scm   !   !   C h8]O45$"  O6ghandler  3grequest  3gbody   3gstate   3gfilenamefweb/server.scm          "  (  + 3    3 gnameghandle-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{5h(K]L& L " 4L5LLLL6Cgfilenamefweb/server.scm *   +   ' Ch]-13DUg_ gfilenamefweb/server.scm .  .  C h0]O45$"  6gimpl  0gserver  0gclient   0gresponse   0gbody   0gfilenamefweb/server.scm $  ,   -  " -  $ - * - + 0 )   0 gnameg write-clientg documentationfWrite 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{6h(]&  " 456gimpl  !gserver  !gfilenamefweb/server.scm 1  4   ! gnameg close-serverg documentationkRelease resources allocated by a previous invocation of  open-server .C   @  ?    Ch o]M$ MM66ggfilenamefweb/server.scm B   C   E (  E 6  E   G    Ch o]M$ MM66ggfilenamefweb/server.scm B   C   E (  E 6  E   G    Ch o]M$ MM66ggfilenamefweb/server.scm B   C   E (  E 6  E   G    Ch`K]LOLO4LO>"GV4L>X4LO>"GCX4LO>"GFCgfilenamefweb/server.scm <  =   \ Chk-13L6cgk g_ gfilenamefweb/server.scm H H  Ch ] HOO6gthunk  g handler-thunk  ghandler   gfilenamefweb/server.scm 9   :  ;   ;    C"hz]6rgthunk  g handler-thunk  gfilenamefweb/server.scm 8   8 $   CRhK]L6Cgfilenamefweb/server.scm L   L /   ChC]LO6;gfilenamefweb/server.scm  L    ChK]LL6Cgfilenamefweb/server.scm N -  N 8   Ch8]45U4O>XCXFGO6gthunk  1gk  1gproc   1gfilenamefweb/server.scm J  K  K  1 N   1 gnamegwith-stack-and-promptCR89;hX]44> G$74> G 4>"G CC ghandler  Xgimpl  Xgserver   Xgstate   Xgclient   Xgrequest   Xgbody   Xgresponse  / Ugbody  / Ugstate / U gfilenamefweb/server.scm Q  X   V   [   ^  2 \ 9 a   X gnamegserve-one-clientg documentationfRead 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]"4LLL5"L"rgstate  gfilenamefweb/server.scm              ! C<hT]4LL>"GDLgfilenamefweb/server.scm           ChP-.13##4545OO6ghandler Mgimpl Mg open-params  Mgstate  Mgimpl  & Mgserver  1 Mgfilenamefweb/server.scm f  f .  f B   &   )   1   M   M  gnameg run-serverg documentationk Run Guile's built-in web server. HANDLER should be a procedure that takes two or more arguments, the HTTP request and request body, and returns two or more values, the response and response body. For example, here is a simple "Hello, World!" server: @example (define (handler request body) (values '((content-type . (text/plain))) "Hello, World!")) (run-server handler) @end example The response and body will be run through  sanitize-response before sending back to the client. Additional arguments to HANDLER are taken from STATE. Additional return values are accumulated into a new STATE, which will be used for subsequent requests. In this way a handler can explicitly manage its state. The default server implementation is  http , which accepts OPEN-PARAMS like  (#:port 8081) , among others. See "Web Server" in the manual, for more information.C>RCgm  ,grtd  gfilenamefweb/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 C6web/request.go000064400000147053152537005630007360 0ustar00GOOF----LE-8-2.0]4h9W] gguile  gdefine-module*   gweb grequest  gfilenameS fweb/request.scm gimportsS grnrs g bytevectors     gice-9 g binary-ports   grdelim   gsrfi gsrfi-9   guri   ghttp   !  "gexportsS #grequest? $grequest-method %g request-uri &grequest-version 'grequest-headers (g request-meta )g request-port *g read-request +g build-request ,g write-request -gread-request-body .gwrite-request-body /grequest-cache-control 0grequest-connection 1g request-date 2grequest-pragma 3grequest-trailer 4grequest-transfer-encoding 5grequest-upgrade 6g request-via 7grequest-warning 8g request-allow 9grequest-content-encoding :grequest-content-language ;grequest-content-length grequest-content-range ?grequest-content-type @grequest-expires Agrequest-last-modified Bgrequest-accept Cgrequest-accept-charset Dgrequest-accept-encoding Egrequest-accept-language Fgrequest-authorization Ggrequest-expect Hg request-from Ig request-host Jgrequest-if-match Kgrequest-if-modified-since Lgrequest-if-none-match Mgrequest-if-range Ngrequest-if-unmodified-since Ogrequest-max-forwards Pgrequest-proxy-authorization Qg request-range Rgrequest-referer Sg request-te Tgrequest-user-agent Ugrequest-absolute-uri V#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTU3 Wgset-current-module XW YW Zg  [g%make-request-procedure \gmake-syntax-transformer ]\ ^\ _g make-request `gmacro ag $sc-dispatch ba ca dg_ egany fdeeeeee gg syntax-object hglambda igm-45c8615977-9 jgtop kij lgribcage mgt-45c8615977-3 ngt-45c8615977-4 ogt-45c8615977-5 pgt-45c8615977-6 qgt-45c8615977-7 rgt-45c8615977-8 smnopqr tkkkkkk ufl-45c8615977-e vfl-45c8615977-f wfl-45c8615977-10 xfl-45c8615977-11 yfl-45c8615977-12 zfl-45c8615977-13 {uvwxyz |lst{ }l ~gx ~ k fl-45c8615977-b  l gshift g proc-name gargs  j  fl-1e8ba8b5a-2ba fl-1e8ba8b5a-2bb  l gkey gvalue gname gformals gbody   fl-1e8ba8b5a-2ad fl-1e8ba8b5a-2ae fl-1e8ba8b5a-2af fl-1e8ba8b5a-2b0 fl-1e8ba8b5a-2b1  l gmake-procedure-name   fl-1e8ba8b5a-29d  l  fl-1e8ba8b5a-29c  l k|}}}}}  ghygiene  gh gmethod |}  g g gversion g gheaders g gmeta g gport g  g make-struct gm-45c8615977-1 j gt-1e8ba8b5a-38d gt-1e8ba8b5a-38c gt-1e8ba8b5a-38b  gm-1e8ba8b5a-38e j  fl-1e8ba8b5a-392 fl-1e8ba8b5a-393 fl-1e8ba8b5a-394  l g ctor-args  fl-1e8ba8b5a-37a  l gctor gfield  fl-1e8ba8b5a-376 fl-1e8ba8b5a-377  l gform g type-name gconstructor-spec g field-names   fl-1e8ba8b5a-36b fl-1e8ba8b5a-36c fl-1e8ba8b5a-36d fl-1e8ba8b5a-36e  l g record-layout gfunctional-setters gsetters gcopier ggetters g constructor ggetter-identifiers gfield-identifiers   fl-1e8ba8b5a-343 fl-1e8ba8b5a-341 fl-1e8ba8b5a-33f fl-1e8ba8b5a-33d fl-1e8ba8b5a-33b fl-1e8ba8b5a-339 fl-1e8ba8b5a-337 fl-1e8ba8b5a-335  l fl-1e8ba8b5a-334  l |}}}}}} g gZ g     geach-any d gsyntax-violation   fWrong number of arguments g identifier?   } g[    f-source expression failed to match any pattern  grecord-type-vtable        g pwpwpwpwpwpw gdefault-record-printer    gset-struct-vtable-name!   gvtable-offset-user   g%request?-procedure de gm-45c8615977-20 j gt-45c8615977-1f   fl-45c8615977-25   !l  "fl-45c8615977-22 #" $l# %!}$}}}}  &gh% 'gobj (gt-1e8ba8b5a-47e )gt-1e8ba8b5a-478 *gt-1e8ba8b5a-479 +gt-1e8ba8b5a-47a ,gt-1e8ba8b5a-47d -gt-1e8ba8b5a-47c .gt-1e8ba8b5a-47b /()*+,-. 0gm-1e8ba8b5a-47f 10j 21111111 3fl-1e8ba8b5a-483 4fl-1e8ba8b5a-484 5fl-1e8ba8b5a-485 6fl-1e8ba8b5a-486 7fl-1e8ba8b5a-487 8fl-1e8ba8b5a-488 9fl-1e8ba8b5a-489 :3456789 ;l/2: fl-1e8ba8b5a-476 ?> @l=? Ag ctor-name BA Cfl-1e8ba8b5a-46e DC ElBD F Gfl-1e8ba8b5a-46c HG IlFH Jglayout KJ Lfl-1e8ba8b5a-46a ML NlKM Og immutable? PO Qfl-1e8ba8b5a-468 RQ SlPR Tg field-count UT Vfl-1e8ba8b5a-466 WV XlUW Yg getter-ids ZY [fl-1e8ba8b5a-463 \[ ]lZ\ ^g field-ids _^ `fl-1e8ba8b5a-460 a` bl_a cgpredicate-name dg field-spec eOcd f gfl-1e8ba8b5a-453 hfl-1e8ba8b5a-454 ifl-1e8ba8b5a-455 jfl-1e8ba8b5a-456 kfl-1e8ba8b5a-457 lfl-1e8ba8b5a-458 mghijkl nlefm o!}$};}}}}@}E}I}N}S}X}]}bn pg'o qp rgand sgro tgstruct? ugto vup wgeq? xgwo yg struct-vtable zgyo {zp |!}$ }gZ| ~x{} sv~ &q }$ g gthrow-bad-struct   g%request-method-procedure gfree-id g %%on-error gm-45c8615977-2c j  fl-45c8615977-2e  l }}}}}  g  e g%%type gt-1e8ba8b5a-3a5 gt-1e8ba8b5a-3a6 gt-1e8ba8b5a-3a7 gt-1e8ba8b5a-3a8 gt-1e8ba8b5a-3a9 gt-1e8ba8b5a-3aa gt-1e8ba8b5a-3ab  gm-1e8ba8b5a-3ac j  fl-1e8ba8b5a-3b0 fl-1e8ba8b5a-3b1 fl-1e8ba8b5a-3b2 fl-1e8ba8b5a-3b3 fl-1e8ba8b5a-3b4 fl-1e8ba8b5a-3b5 fl-1e8ba8b5a-3b6  l ggetter gindex  fl-1e8ba8b5a-3a3 fl-1e8ba8b5a-3a4  l Y<  fl-1e8ba8b5a-39e fl-1e8ba8b5a-39f fl-1e8ba8b5a-3a0  l }}}}}} g  de gck gerr gs   fl-45c8615977-31 fl-45c8615977-32  l }}}}}  g gquote g } gZ   g%%index g  de fl-45c8615977-36 fl-45c8615977-37  l }}}}}  g g } g    g%%copier g  de fl-45c8615977-3b fl-45c8615977-3c  l }}}}}  g g g%%-set-fields } g   gt-45c8615977-2b  fl-45c8615977-40  l }}}}}  gh }}}}}} g  gif g gw gy  } gZ  g struct-ref g } g   g g g$     }  g  g%request-uri-procedure  gm-45c8615977-47   j    fl-45c8615977-49  l   }}}}}  g  e }}}}}} g  de    fl-45c8615977-4c fl-45c8615977-4d  l  }}}}}  g  g !} "gZ! # " $# %g &% 'd&e (fl-45c8615977-51 )fl-45c8615977-52 *() +l* , +}}}}}  -g, .g, /+} 0g / 1.0 21 3g 43 5d4e 6fl-45c8615977-56 7fl-45c8615977-57 867 9l8 : 9}}}}}  ;g: <g: =9} >g= ?<> @? Agt-45c8615977-46 BA Cfl-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 `gm-45c8615977-62 a`j ba cfl-45c8615977-64 dc elbd fa}e}}}}  ggf hg ihe j}e}}}}} kgj lk mdile naa ofl-45c8615977-67 pfl-45c8615977-68 qop rlnq sar}e}}}}  tgs ugs vr}e wgZv xuw yx zgj {z |di{e }fl-45c8615977-6c ~fl-45c8615977-6d }~ ln a}e}}}}  g g }e g    gj  die fl-45c8615977-71 fl-45c8615977-72  ln a}e}}}}  g g }e g   gt-45c8615977-61  fl-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 gm-45c8615977-7d j  fl-45c8615977-7f  l }}}}}  g  e }}}}}} g  de  fl-45c8615977-82 fl-45c8615977-83  l }}}}}  g g } gZ   g  de fl-45c8615977-87 fl-45c8615977-88  l }}}}}  g g } g    g  de fl-45c8615977-8c fl-45c8615977-8d  l }}}}}  g g } g   gt-45c8615977-7c  fl-45c8615977-91  l }}}}}  gh }}}}}} g  g gw gy  } gZ  g } g   g g g'     } g  g%request-meta-procedure  gm-45c8615977-98   j     fl-45c8615977-9a   l   }}}}}  g  e }}}}}} g  de    fl-45c8615977-9d fl-45c8615977-9e  l  }}}}}  g g  } !gZ  "! #" $g %$ &d%e 'fl-45c8615977-a2 (fl-45c8615977-a3 )'( *l) + *}}}}}  ,g+ -g+ .*} /g . 0-/ 10 2g 32 4d3e 5fl-45c8615977-a7 6fl-45c8615977-a8 756 8l7 9 8}}}}}  :g9 ;g9 <8} =g< >;= ?> @gt-45c8615977-97 A@ Bfl-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 _gm-45c8615977-b3 `_j a` bfl-45c8615977-b5 cb dlac e`}d}}}}  fge gf hge i}d}}}}} jgi kj ldhke m`` nfl-45c8615977-b8 ofl-45c8615977-b9 pno qlmp r`q}d}}}}  sgr tgr uq}d vgZu wtv xw ygi zy {dhze |fl-45c8615977-bd }fl-45c8615977-be ~|} lm~ `}d}}}}  g g }d g    gi  dhe fl-45c8615977-c2 fl-45c8615977-c3  lm `}d}}}}  g g }d g   gt-45c8615977-b2  fl-45c8615977-c7  la `}d}}}}  gh }d}}}}} g  g gw gy  }d gZ  g }d g   g g g)     }d g^ geach ee  e e e g %%set-fields gdummy gcheck? gexpr  gm-45c8615977-ce j  fl-45c8615977-d3 fl-45c8615977-d4 fl-45c8615977-d5 fl-45c8615977-d6 fl-45c8615977-d7  l  fl-45c8615977-d0  l gt-1e8ba8b5a-3c4 gt-1e8ba8b5a-3c6 gt-1e8ba8b5a-3c5  gm-1e8ba8b5a-3c7 j  fl-1e8ba8b5a-3cb fl-1e8ba8b5a-3cc fl-1e8ba8b5a-3cd  l fl-1e8ba8b5a-3c1 fl-1e8ba8b5a-3c2 fl-1e8ba8b5a-3c3  l }}}}}  g } gZ g$ g% g& g' g( g)  gmap   glist gthrow g bad-request gdisplay f Bad request:  gapply gformat gnewline gbad-request-printer gset-exception-printer! gnumber? gexact? ginteger? gnon-negative-integer? g valid-header? gvalidate-headers fBad value for header ~a: ~s fHeader not a pair: ~a fHeaders not a list: ~a gmethodS   gversionS   gheadersS   gportS   gmetaS   gvalidate-headers?S        gGET    gassq-ref ghost fBad version: ~a f Bad uri: ~a g   gPOST gPUT fMissing port for message ~a f;HTTP/1.1 request without Host header and no host in URI: ~a fBad metadata alist guri-host guri-port gset-port-encoding! f ISO-8859-1 gread-request-line g read-headers gwrite-request-line  g write-headers !f  "gget-bytevector-n #gbytevector-length $f.EOF while reading request body: ~a bytes of ~a %gput-bytevector &gdefine-request-accessor ' (fl-45c8615977-1b1 )( *l') +fl-45c8615977-1ae ,+ -l, .*}- /g&. 0g. 10 2dee 3g datum->syntax 4g symbol-append 5grequest- 6g syntax->datum 7gdefine* 8gt-45c8615977-1bc 98 :gm-45c8615977-1bd ;:j <; =fl-45c8615977-1c0 >= ?l9<> @gdef A@ Bfl-45c8615977-1b8 Cfl-45c8615977-1b9 DBC ElAD F}?E}- Gg7F HgF IgoptionalS JgIF Kgdefault LgKF Mgcond NgMF Ogassq PgOF QgF Rg'F SRH TS Ug=> VgUF Wgcdr XgWF YVX Zgelse [gZF \[L ]\ ^g cache-control _g connection `gdate agpragma bgtrailer cgtransfer-encoding dgupgrade egvia fgwarning ggallow hgcontent-encoding igcontent-language jgcontent-length kgcontent-location lg content-md5 mg content-range ng content-type ogexpires pg last-modified qgaccept rgaccept-charset sgaccept-encoding tgaccept-language ug authorization vgexpect wgfrom xgif-match ygif-modified-since zg if-none-match {gif-range |gif-unmodified-since }g max-forwards ~gproxy-authorization grange greferer gte g user-agent f4URI not absolute, no Host header, and no default: ~s g build-uri g uri-scheme ghostS gpathS guri-path gqueryS g uri-query gfragmentS g uri-fragmentC5ho9]4   !"V54Y>"GZh]Cgmethod  guri  gversion   gheaders   gmeta   gport   gfilenamefweb/request.scm x    gnameg%make-request-procedureC[R4^_`cfh]Cgt-45c8615977-3  gt-45c8615977-4  gt-45c8615977-5   gt-45c8615977-6   gt-45c8615977-7   gt-45c8615977-8      C_hR]L6Jga  gfilenamefweb/request.scm  x   CdhB]L6:gfilenamefweb/request.scm  x    Ch]C   C  hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefweb/request.scm x   n C5_R  Z4Z>"G [iZRZhs]$CCkgobj  gfilenamefweb/request.scm x    gnameg%request?-procedureCR4^#`ch7]C/gt-45c8615977-1f    C#hR]L6Jga  gfilenamefweb/request.scm  x   CdhB]L6:gfilenamefweb/request.scm  x    Ch]C   C  hp]45$@45$ O@45$4O?$@  6  6{gx  ngtmp ngtmp  " ngtmp  > ngfilenamefweb/request.scm x   n C5#RZ$hw]& C6ogs  gfilenamefweb/request.scm x    gnameg%request-method-procedureCR4^$`ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch7]C/gt-45c8615977-2b    C$hR]L6Jga  gfilenamefweb/request.scm  x   CdhB]L6:gfilenamefweb/request.scm  x    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  gfilenamefweb/request.scm x   C5$RZ%ht]& C6lgs  gfilenamefweb/request.scm x    gnameg%request-uri-procedureC R4^%`c$h:]C2gerr  gs    C'-2h:]C2gerr  gs    C5;@h:]C2gerr  gs    C\h7]C/gt-45c8615977-46    C%hR]L6Jga  gfilenamefweb/request.scm  x   CdhB]L6:gfilenamefweb/request.scm  x    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  gfilenamefweb/request.scm x   C5%RZ&h x]& C6pgs  gfilenamefweb/request.scm x    gnameg%request-version-procedureC_R4^&`cmtyh:]C2gerr  gs    C|h:]C2gerr  gs    Ch:]C2gerr  gs    Ch7]C/gt-45c8615977-61    C&hR]L6Jga  gfilenamefweb/request.scm  x   CdhB]L6:gfilenamefweb/request.scm  x    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  gfilenamefweb/request.scm x   C5&RZ'h x]& C6pgs  gfilenamefweb/request.scm x    gnameg%request-headers-procedureCR4^'`ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch7]C/gt-45c8615977-7c    C'hR]L6Jga  gfilenamefweb/request.scm  x   CdhB]L6:gfilenamefweb/request.scm  x    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  gfilenamefweb/request.scm x   C5'RZ(h u]& C6mgs  gfilenamefweb/request.scm x    gnameg%request-meta-procedureC R4^(`c#h:]C2gerr  gs    C&,1h:]C2gerr  gs    C4:?h:]C2gerr  gs    C[h7]C/gt-45c8615977-97    C(hR]L6Jga  gfilenamefweb/request.scm  x   CdhB]L6:gfilenamefweb/request.scm  x    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  gfilenamefweb/request.scm x   C5(RZ)h u]& C6mgs  gfilenamefweb/request.scm x    gnameg%request-port-procedureC^R4^)`clsxh:]C2gerr  gs    C{h:]C2gerr  gs    Ch:]C2gerr  gs    Ch7]C/gt-45c8615977-b2    C)hR]L6Jga  gfilenamefweb/request.scm  x   CdhB]L6:gfilenamefweb/request.scm  x    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  gfilenamefweb/request.scm x   C5)R4^`ch v]45Cngdummy  gcheck?  gs   ggetter   gexpr      C h(] 45$@6gx  "gtmp "gfilenamefweb/request.scm x   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5Rh-136gmessage gargs gfilenamefweb/request.scm    gnameg bad-requestCRhH)534L>"G4L>"GL6-13L6gmsg ;gargs ;g_ D Hgfilenamefweb/request.scm     ; D H  ;  D H Ch]O@gport  gkey  gargs   gdefault-printer   gfilenamefweb/request.scm     gnamegbad-request-printerCR4ii>"Gh0]45$ $45$6CCCgn  ,gfilenamefweb/request.scm           & '  , gnamegnon-negative-integer?CRhXU]$<$(45$666(C6Mgheaders  Ugh Egk   =gv   =gfilenamefweb/request.scm            !   ,  1 $ 3  7  =  A  E K  Q  U   U gnamegvalidate-headersCR    Zh[-/03 ######$45""4>")G""$45$45$"4 >"G"$ &$" &" $4 >"G"v$[" $4>">G"7"3$) $""4>"G"""4>"G""!""""""""$A &  " 45 &  " 45"CSguri  gmethod  gversion   gheaders   gport   gmeta   gvalidate-headers?   g needs-host?  c gheaders    gfilenamefweb/request.scm  * % 9 . ! @ 1 O * P  T  U  [ 1 ]  ^  c  j  n  u      '   '                   0  ;  ?  H  L  S  h  l  s       )  8  #    =   gmethodS gversionS gheadersS gportS gmetaS gvalidate-headers?S gnameg build-requestg documentationf}Construct an HTTP request object. If VALIDATE-HEADERS? is true, the headers are each run through their respective validators.C+RZhX-.,3#4>"G4> G45Cgport Xgmeta Xgmethod  4 Xguri  4 Xgversion  4 Xgheaders  D Xgfilenamefweb/request.scm  -     !  *  7  > ' D  X gnameg read-requestg documentationfRead 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& " 45& " 45&  " 45>"G4&  " 45>"G4  >"G&  " 4 5&C& " 45& " 45&  " 45&  " 45&  " 4 5C gr  igport  igmethod  M iguri  M igversion  M igheaders  M igmeta  M igfilenamefweb/request.scm     " ) <  [  d  i        ' 7   5 ( M   i gnameg write-requestg documentationkXWrite the given HTTP request to PORT. Return a new request, whose  request-port will continue writing on PORT, perhaps using some transfer encoding.C,R;"Z)#$ hX]45$D4&  " 45545$C456Cgr  Wgnbytes Wgbv  3 Ugfilenamefweb/request.scm         % 3  3 6  ?  C J  K  U   W gnamegread-request-bodyg documentationkhReads the request body from R, as a bytevector. Return  #f if there was no request body.C-R%Z)h(]&  " 456gr  #gbv  #gfilenamefweb/request.scm   #   # gnamegwrite-request-bodyg documentationfHWrite BV, a bytevector, to the port corresponding to the HTTP request R.C.R4^&`c/1h-]C%gfield    C2 hi]6agfield  gdef  gfilenamefweb/request.scm     C3456GHJLNPQTY]hH] 444555     Cgfield  Egdef  Egtmp   Egfilenamefweb/request.scm     % /        E C hPt]45$@45" 6$4?$@""lgx  Pgtmp Pgtmp  " Pgfilenamefweb/request.scm   P C5&RO^Z'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm  '   F gnamegrequest-cache-controlC/RO_Z'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm    $    F gnamegrequest-connectionC0RO`Z'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm   F gnameg request-dateC1ROaZ'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm       F gnamegrequest-pragmaC2RObZ'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm    !    F gnamegrequest-trailerC3ROcZ'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm    +    F gnamegrequest-transfer-encodingC4ROdZ'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm    !    F gnamegrequest-upgradeC5ROeZ'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm        F gnameg request-viaC6ROfZ'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm    !    F gnamegrequest-warningC7ROgZ'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm        F gnameg request-allowC8ROhZ'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm    *    F gnamegrequest-content-encodingC9ROiZ'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm    *    F gnamegrequest-content-languageC:ROjZ'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm   F gnamegrequest-content-lengthC;ROkZ'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm   F gnamegrequest-content-locationCROnZ'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm   F gnamegrequest-content-typeC?ROoZ'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm   F gnamegrequest-expiresC@ROpZ'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm   F gnamegrequest-last-modifiedCAROqZ'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm       F gnamegrequest-acceptCBROrZ'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm    (    F gnamegrequest-accept-charsetCCROsZ'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm    )    F gnamegrequest-accept-encodingCDROtZ'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm    )    F gnamegrequest-accept-languageCEROuZ'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm   F gnamegrequest-authorizationCFROvZ'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm       F gnamegrequest-expectCGROwZ'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm   F gnameg request-fromCHROZ'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm   F gnameg request-hostCIROxZ'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm !  F gnamegrequest-if-matchCJROyZ'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm "  F gnamegrequest-if-modified-sinceCKROzZ'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm #  F gnamegrequest-if-none-matchCLRO{Z'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm $  F gnamegrequest-if-rangeCMRO|Z'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm %  F gnamegrequest-if-unmodified-sinceCNRO}Z'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm &  F gnamegrequest-max-forwardsCORO~Z'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm '  F gnamegrequest-proxy-authorizationCPROZ'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm (  F gnameg request-rangeCQROZ'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm )  F gnamegrequest-refererCRROZ'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm *  *   *  F gnameg request-teCSROZ'hH-.,3#4&  " 455$CCgrequest Fgdefault Fgt  7 Fgfilenamefweb/request.scm +  F gnamegrequest-user-agentCTRZ%Ih}-.,3##& " 45&  " 45$C45$"$ " 45 & " 4 5   &  " 45&  " 45&  " 456 ugr  g default-host  g default-port   guri  8  gt  c ghost   gfilenamefweb/request.scm . ! 1 8 1  = 2  Y 2  ] 5  c 5  w 6  | 7  8  9  8  4  ;  <  =  >  ?  @  ;   gnamegrequest-absolute-urig documentationkA helper routine to determine the absolute URI of a request, using the  host header and the default host and port.CURC1gm  ,grtd a gfilenamefweb/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 C6texinfo.go000064400000126470152537005630006567 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 C6rnrs/lists.go000064400000007405152537005630007231 0ustar00GOOF----LE-8-2.0]T4h] gguile  gdefine-module*   grnrs glists  gfilenameS frnrs/lists.scm gpureS gversionS  gset-current-module   gresolve-r6rs-interface   gbase   gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module   gonly gfilter !gmember "gmemv #gmemq $gassoc %gassv &gassq 'gcons* ( !"#$%&'  )grename *gsrfi +gsrfi-1 ,*+ -gany .gevery /gremove 0gfind 1g partition 2g fold-right 3g filter-map 4,-./!$0123  5gexists 6-5 7gfor-all 8.7 9gremp :/9 ;g memp-internal <!; =g assp-internal >$= ?)468:<> @gmodule-export! A@ B@ Cgassp Dgmemp Egremq Fgremv Gg fold-left HCDEF/G Igmodule-re-export! JI KI L'&%$#"!921 570 Mgmodule-replace! NM OM Pgnull? Qgmap Rgcar SgcdrC5h]4     54>"G454h@]45L68gfilenamefrnrs/lists.scm     CO>"G4(54h@]45L68gfilenamefrnrs/lists.scm     CO>"G4?54h@]45L68gfilenamefrnrs/lists.scm     CO>"G4BHh@]4568gfilenamefrnrs/lists.scm    C>"G4KLh@]4568gfilenamefrnrs/lists.scm    C>"G4Oh@]4568gfilenamefrnrs/lists.scm    C>"G5PQRShP-13"145$C445?45""gcombine Mgnil Mglist  Mglists  Mgnil  >glists  >gfilenamefrnrs/lists.scm (  M  gnameg fold-leftCGR9h+]LC#gelt     Chx]O6pgobj  glist  gfilenamefrnrs/lists.scm 0    gnamegremoveC/R9h+]LC#gelt     Chv]O6ngobj  glist  gfilenamefrnrs/lists.scm 1    gnamegremvCFR9h+]LC#gelt     Chv]O6ngobj  glist  gfilenamefrnrs/lists.scm 2    gnamegremqCER;h8]L60gx  gy     Chw]O6ogpred  glist  gfilenamefrnrs/lists.scm 4    gnamegmempCDR=h8]L60gx  gy     Chw]O6ogpred  glist  gfilenamefrnrs/lists.scm 5    gnamegasspCCRCgm  +giface 2 giface 5giface < gfilenamefrnrs/lists.scm   ] (  ; 0   1   2   4   5    C6rnrs/exceptions.go000064400000033674152537005630010263 0ustar00GOOF----LE-8-2.07]4ht] gguile  gdefine-module*   grnrs g exceptions  gfilenameS frnrs/exceptions.scm gpureS gversionS  gset-current-module   gresolve-r6rs-interface   gbase   gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module   gcontrol   !g conditions "!  #grecords $g procedural %#$  &g inspection '#&  (gonly )gformat *gnewline +gdisplay ,gfilter -gacons .gassv-ref /gthrow 0gset-exception-printer! 1gwith-throw-handler 2g *unspecified* 3g@@ 4()*+,-./0123  5gmodule-export! 65 75 8graise-continuable 9gwith-exception-handler :gguard ;89: < ?gmodule-replace! @? A? Bgraise CB D! Egmake-record-type-descriptor FDE GDE Hg&guile Ig &condition Jg list->vector KDJ LDJ Mg immutable Ngkey Ogguile-condition-key PMNO Qgargs Rgguile-condition-args SMQR Tgrecord-constructor UDT VDT Wg"make-record-constructor-descriptor XDW YDW Zgmake-guile-condition [gcondition-predicate \D[ ]D[ ^gguile-condition? _gcondition-accessor `D_ aD_ bgrecord-accessor cDb dDb eg condition fgmake-serious-condition ggguile-common-conditions hg!default-guile-condition-converter igmake-who-condition jgmake-message-condition kgmake-irritants-condition lgguile-condition-converters mgconvert-guile-condition n#$ og r6rs-raise pno qno rgr6rs-raise-continuable snr tnr ugraise-object-wrapper? vnu wnu xgraise-object-wrapper-obj ynx znx {g!raise-object-wrapper-continuation |n{ }n{ ~gr6rs:exception gmake-non-continuable-violation gmake-syntax-transformer   gguard0 gmacro g $sc-dispatch   gany geach-any    g syntax-object gcall/cc gtop  gribcage gdummy gvariable g cond-clause gbody  gm-302a4a91bf89d3-3f   fl-302a4a91bf89d3-44 fl-302a4a91bf89d3-45 fl-302a4a91bf89d3-46 fl-302a4a91bf89d3-47    gx   fl-302a4a91bf89d3-41    gprivate   glambda  g continuation   9 gcond  gsyntax-violation   f-source expression failed to match any pattern geach+ gfree-id gelse gm-302a4a91bf89d3-4d   fl-302a4a91bf89d3-4f         Ō  nj g else-clause   fl-302a4a91bf89d3-52 fl-302a4a91bf89d3-53 fl-302a4a91bf89d3-54 fl-302a4a91bf89d3-55 fl-302a4a91bf89d3-56     gappend     fl-302a4a91bf89d3-5f fl-302a4a91bf89d3-60 fl-302a4a91bf89d3-61 fl-302a4a91bf89d3-62      B glength g condition? fERROR: R6RS exception:  gformat-condition fERROR: R6RS exception: `~s' gexception-printer gsimple-conditions fEmpty condition object f ~a.  gformat-simple-condition grecord-type-name g record-rtd grecord-type-field-names grecord-type-parent g vector-length greverse f~a f~a: ~s f~a:  f ~a: ~s gmake-syntax-violation g guile-syntax-violation-converter gmake-lexical-violation g!guile-lexical-violation-converter gmake-assertion-violation g#guile-assertion-violation-converter gmake-undefined-violation g#guile-undefined-violation-converter g)make-implementation-restriction-violation g*guile-implementation-restriction-converter g make-error gguile-error-converter gguile-system-error-converter g read-error g syntax-error gunbound-variable gwrong-number-of-args  gwrong-type-arg  gkeyword-argument-error  g out-of-range  gregular-expression-syntax  g program-error g goops-error gnull-pointer-error g system-error ghost-not-found ggetaddrinfo-error gno-data g no-recovery g try-again gstack-overflow gnumerical-overflow gmemory-allocation-error gset-guile-condition-converter!C5h@]4     54>"G454hE]45L6=gfilenamefrnrs/exceptions.scm     CO>"G4 54hE]45L6=gfilenamefrnrs/exceptions.scm     CO>"G4"54hE]45L6=gfilenamefrnrs/exceptions.scm     CO>"G4%54hE]45L6=gfilenamefrnrs/exceptions.scm     CO>"G4'54hE]45L6=gfilenamefrnrs/exceptions.scm     CO>"G4454hE]45L6=gfilenamefrnrs/exceptions.scm     CO>"G47;hE]456=gfilenamefrnrs/exceptions.scm    C>"G4>hE]456=gfilenamefrnrs/exceptions.scm    C>"G4AChE]456=gfilenamefrnrs/exceptions.scm    C>"G4GHIi4LPS55HR4V4YHi55ZR4]Hi5^R4aHi4dHi 55OR4aHi4dHi 55RRefgh]45456gkey  gargs  gfilenamefrnrs/exceptions.scm 2    gnameg!default-guile-condition-converterChReijkh8z*134545456-13L6rgsubr %gmsg %gmargs  %g_  %g_ . 4 %   . 4 Ch]O@gkey  gargs  gfilenamefrnrs/exceptions.scm 6   gnamegguile-common-conditionsCgR.lehZhH]45$ 45"$" 45456gkey  Hgargs  Hg converter  Hgt  # =gfilenamefrnrs/exceptions.scm ?   H gnamegconvert-guile-conditionCmR^/ORqh(j]45$4545@6bgobj  %gfilenamefrnrs/exceptions.scm O   % gnamegraiseCBRt8RwuRzxR}{R1~ux{Bmh-13&N("45$545454L5$6456C454L>"G456gkey gargs gcargs  + ]gobj  4 ]g continuation  = ]ghandler-return  F ]gobj  h  Ch]O6ghandler  gthunk  gfilenamefrnrs/exceptions.scm ]    gnamegwith-exception-handlerC9R4h0n]Cfgdummy  /gvariable  /g cond-clause   /gbody   /  / Ch(] 45$@6gx  "gtmp "  " g macro-typeg syntax-rulesgpatternsgvariableg cond-clauseg...gbodyC5R4:h ]45Cgdummy  gvariable  g cond-clause   g else-clause   gbody      Ch(n]45Cfgdummy  "gvariable  "g cond-clause   "gbody   "  " Ch@]45$@45$@6gx  9gtmp 9gtmp  " 9  9 g macro-typeg syntax-rulesgpatternsgvariableg cond-clauseg...gelseg else-clauseg...gbodygvariableg cond-clauseg...gbodyC5:Rux+) h`] 45$K45$;4545$4>"G6 666gport  ^gkey  ^gargs   ^gpunt   ^gobj  # Vgfilenamefrnrs/exceptions.scm  5  R !  ^ gnamegexception-printerCR)*h]45(6"`$W4>"G4>"G$4>"G""C "gport  g condition  g components  gi   }g components   }gfilenamefrnrs/exceptions.scm    +   gnamegformat-conditionCR,h2]45 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 "gport  wg condition  wgcondition-name   wgrtd   dgrtd.fields-list   dgn-fields   dg field-names  ! Fgrtd.fields-list  T dglst  \g rtd.fields  Zgrtd 3g field-names 3gn-fields -gi #gfilenamefrnrs/exceptions.scm  d % v % !   w gnamegformat-simple-conditionCR40i~i>"Geijh8*!134545456-13Cgwho 'gwhat 'gwhere  'gform  'gsubform  'gextra  'g_ 0 2 '   0 2 Ch]@gkey  gargs  gfilenamefrnrs/exceptions.scm    gnameg guile-syntax-violation-converterCRegh]45456gkey  gargs  gfilenamefrnrs/exceptions.scm    gnameg!guile-lexical-violation-converterCRegh]45456gkey  gargs  gfilenamefrnrs/exceptions.scm    gnameg#guile-assertion-violation-converterCRegh]45456gkey  gargs  gfilenamefrnrs/exceptions.scm    gnameg#guile-undefined-violation-converterCRegh]45456gkey  gargs  gfilenamefrnrs/exceptions.scm    gnameg*guile-implementation-restriction-converterCRegh]45456gkey  gargs  gfilenamefrnrs/exceptions.scm    gnamegguile-error-converterCRegh0*13454LL56-13LL6gsubr gmsg gmsg-args  gerrno  grest  g_ ' /    ' / Ch]O@gkey  gargs  gfilenamefrnrs/exceptions.scm    gnamegguile-system-error-converterCRiiii i i i i iiiiiiiiiiiilRlh] Cgkey  gproc  gfilenamefrnrs/exceptions.scm     gnamegset-guile-condition-converter!CRCgm  +giface 2 giface :giface A giface  Jgiface Q giface  Zgfilenamefrnrs/exceptions.scm    -   2  q 6   ?  5 O  : S  ? V  D X  I Z  U ]      x  y  ;        v  9      :    < C6rnrs/r5rs.go000064400000003636152537005630006770 0ustar00GOOF----LE-8-2.0]84h] gguile  gdefine-module*   grnrs gr5rs  gfilenameS f rnrs/r5rs.scm gpureS gversionS  gset-current-module   gresolve-r6rs-interface   gonly gexact->inexact ginexact->exact gquotient g remainder gmodulo gdelay gforce   gcall-with-deferred-observers   gmodule-use-interfaces! !  "  #gcurrent-module $# %# &gice-9 '& (gscheme-report-environment )'( *g safe-r5rs +&* ,gnull-environment -+, .gmodule-export! /. 0. 1gmodule-re-export! 21 31 4(,  5gmodule-replace! 65 75C5h]4     54>"G454"%h?]45L67gfilenamef rnrs/r5rs.scm     CO>"G4)54"%h?]45L67gfilenamef rnrs/r5rs.scm     CO>"G4-54"%h?]45L67gfilenamef rnrs/r5rs.scm     CO>"G40%h?]4567gfilenamef rnrs/r5rs.scm    C>"G43%4h?]4567gfilenamef rnrs/r5rs.scm    C>"G7%h?]4567gfilenamef rnrs/r5rs.scm    C6gm  +giface 2 giface 4giface ; gfilenamef rnrs/r5rs.scm      C6rnrs/sorting.go000064400000004240152537005630007552 0ustar00GOOF----LE-8-2.0]14h] gguile  gdefine-module*   grnrs gsorting  gfilenameS frnrs/sorting.scm gpureS gversionS  gset-current-module   gresolve-r6rs-interface   gbase   gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module   gonly g *unspecified* !g stable-sort "gsort! # !" $gmodule-export! %$ &$ 'g vector-sort! (g vector-sort )g list-sort *'() +gmodule-re-export! ,+ -+ .gmodule-replace! /. 0.C5h]4     54>"G454hB]45L6:gfilenamefrnrs/sorting.scm     CO>"G4#54hB]45L6:gfilenamefrnrs/sorting.scm     CO>"G4&*hB]456:gfilenamefrnrs/sorting.scm    C>"G4-hB]456:gfilenamefrnrs/sorting.scm    C>"G40hB]456:gfilenamefrnrs/sorting.scm    C>"G!h~]6vgproc  glist  gfilenamefrnrs/sorting.scm    gnameg list-sortC)R!h]6zgproc  gvector  gfilenamefrnrs/sorting.scm    gnameg vector-sortC(R"h]4>"GC{gproc  gvector  gfilenamefrnrs/sorting.scm     gnameg vector-sort!C'RCgm  +giface 2 giface 7gfilenamefrnrs/sorting.scm   A           C6rnrs/hashtables.go000064400000020415152537005630010205 0ustar00GOOF----LE-8-2.0 ]4h ] gguile  gdefine-module*   grnrs g hashtables  gfilenameS frnrs/hashtables.scm gpureS gversionS  gset-current-module   gresolve-r6rs-interface   grename gonly gstring-hash-ci g string-hash ghashq ghashv gmodulo g *unspecified* g@@   gstring-ci-hash   !gcall-with-deferred-observers "! #! $gmodule-use-interfaces! %$ &$ 'gcurrent-module (' )' *gice-9 +goptargs ,*+ -gdefine* .,- /gsrfi 0g:69 1/0 2gmake-hash-table 3ghash 4ghash-by-identity 5ghash-table-size 6ghash-table-ref/default 7ghash-table-set! 8ghash-table-delete! 9ghash-table-exists? :ghash-table-update!/default ;ghash-table-copy ghash-table-keys ?ghash-table-fold @123456789:;<=>? Ag equal-hash B3A Cg symbol-hash D4C E@BD Fgbase GF  Hgrecords Ig procedural JHI  Kgmodule-export! LK MK Nghashtable-mutable? Oghashtable-hash-function Pghashtable-equivalence-function Qghashtable-entries Rghashtable-keys Sghashtable-clear! Tghashtable-copy Ughashtable-update! Vghashtable-contains? Wghashtable-delete! Xghashtable-set! Yg hashtable-ref Zghashtable-size [g hashtable? \gmake-hashtable ]gmake-eqv-hashtable ^gmake-eq-hashtable _NOPQRSTUVWXYZ[\]^ `gmodule-re-export! a` b` cCA dgmodule-replace! ed fd ggmake-record-type-descriptor hgr6rs:hashtable igmutable jg wrapped-table kij lg immutable mgorig-hash-function nlm oli pkno qgrecord-predicate rgrecord-constructor sg"make-record-constructor-descriptor tgmake-r6rs-hashtable ugrecord-accessor vgr6rs:hashtable-wrapped-table wgrecord-mutator xg!r6rs:hashtable-set-wrapped-table! yg!r6rs:hashtable-orig-hash-function zgr6rs:hashtable-mutable? {gsrfi-69 |/{ }gcaller-with-default-size ~|} |} g hash-by-value gwrap-hash-function geq? geqv? gsrfi-69:hash-table | | gsrfi-9 / gthrow-bad-struct   g list->vector g make-vectorC5h]4     54>"G4 54#&)hE]45L6=gfilenamefrnrs/hashtables.scm     CO>"G4.54#&)hE]45L6=gfilenamefrnrs/hashtables.scm     CO>"G4E54#&)hE]45L6=gfilenamefrnrs/hashtables.scm     CO>"G4G54#&)hE]45L6=gfilenamefrnrs/hashtables.scm     CO>"G4J54#&)hE]45L6=gfilenamefrnrs/hashtables.scm     CO>"G4#M)_hE]456=gfilenamefrnrs/hashtables.scm    C>"G4#b)chE]456=gfilenamefrnrs/hashtables.scm    C>"G4#f)hE]456=gfilenamefrnrs/hashtables.scm    C>"G4gihp5hR4qihi5[R4ri4sihi55tR4uihi 5vR4wihi 5xR4uihi 5yR4uihi 5zRziNR4i5RhA]4L5C9gkey  gcapacity    Chx]OCpgproc  gfilenamefrnrs/hashtables.scm [   gnamegwrap-hash-functionCRt2Ch@u-.,3#$45" 456mgk :gfilenamefrnrs/hashtables.scm ^  : gnamegmake-eq-hashtableC^Rt2h@v-.,3#$45" 456ngk :gfilenamefrnrs/hashtables.scm d  : gnamegmake-eqv-hashtableC]Rt2hH-.,3#45$45" 456g hash-function Cgequiv Cgk  Cgwrapped-hash-function   Cgfilenamefrnrs/hashtables.scm j  C  gnamegmake-hashtableC\R5vhy]456qg hashtable  gfilenamefrnrs/hashtables.scm s   gnameghashtable-sizeCZR6vh]456g hashtable  gkey  gdefault   gfilenamefrnrs/hashtables.scm v    gnameg hashtable-refCYRz7vh0]45$445>"G"Cg hashtable  .gkey  .gobj   .gfilenamefrnrs/hashtables.scm z   . gnameghashtable-set!CXRz8vh0]45$445>"G"Cg hashtable  ,gkey  ,gfilenamefrnrs/hashtables.scm    , gnameghashtable-delete!CWR9vh]456g hashtable  gkey  gfilenamefrnrs/hashtables.scm    gnameghashtable-contains?CVRz:vh0]45$!445>"G"Cg hashtable  0gkey  0gproc   0gdefault   0gfilenamefrnrs/hashtables.scm   0 gnameghashtable-update!CURt;vyh8-.,3#445545$"6g hashtable 8gmutable 8gfilenamefrnrs/hashtables.scm  8 gnameghashtable-copyCTRzv<yx2 h-.,3#45$x45&  " 4545454$4 5" 4 5>"G"Cg hashtable gk ght  ' gequiv  D g hash-function  M gwrapped-hash-function  V gfilenamefrnrs/hashtables.scm  gnameghashtable-clear!CSR>vhz]44556rg hashtable  gfilenamefrnrs/hashtables.scm    gnameghashtable-keysCRRv5?hG]LLC?gk  gv  gi      ChP]!45454545445O >"GDg hashtable  Mght Mgsize   Mgkeys   Mgvals  $ Mgfilenamefrnrs/hashtables.scm   M gnameghashtable-entriesCQRv<h(] 45& C6g hashtable  "gs "gfilenamefrnrs/hashtables.scm   " gnameghashtable-equivalence-functionCPRyh]6{g hashtable  gfilenamefrnrs/hashtables.scm    gnameghashtable-hash-functionCORCgm  +giface 2 giface :giface A giface  Jgiface Q gfilenamefrnrs/hashtables.scm   L H  Z O  q P   S   T   U   V   X   Z   [   ^  a d   j  $ s  v  z    k  h  J      M  +      C6rnrs/eval.go000064400000004713152537005630007021 0ustar00GOOF----LE-8-2.0 ]94ht] gguile  gdefine-module*   grnrs geval  gfilenameS f rnrs/eval.scm gpureS gversionS  gset-current-module   gresolve-r6rs-interface   gonly g make-module g module-uses gbeautify-user-module! gset-module-uses!  gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module !  "  #gbase $#  %gio &gsimple '%&  (glists )(  *gmodule-export! +* ,* -g environment .- /gmodule-re-export! 0/ 1/ 2 3gmodule-replace! 43 53 6gmember 7gfor-each 8gimportC5h0]4     54>"G454"h?]45L67gfilenamef rnrs/eval.scm     CO>"G4$54"h?]45L67gfilenamef rnrs/eval.scm     CO>"G4'54"h?]45L67gfilenamef rnrs/eval.scm     CO>"G4)54"h?]45L67gfilenamef rnrs/eval.scm     CO>"G4,".h?]4567gfilenamef rnrs/eval.scm    C>"G41"2h?]4567gfilenamef rnrs/eval.scm    C>"G45"h?]4567gfilenamef rnrs/eval.scm    C>"G678h3]L6+g import-spec     C hp-1345454>"G4O>"G$445>"G"Cg import-specs ngmodule  ng needs-purify?   ngfilenamef rnrs/eval.scm   n gnameg environmentC-RCgm  +giface 2 giface 4giface ; giface  Dgfilenamef rnrs/eval.scm   .    0 C6rnrs/syntax-case.go000064400000006202152537005630010324 0ustar00GOOF----LE-8-2.0j ]H4h] gguile  gdefine-module*   grnrs g syntax-case  gfilenameS frnrs/syntax-case.scm gpureS gversionS  gset-current-module   gresolve-r6rs-interface   gonly gmake-variable-transformer gsyntax g identifier? gbound-identifier=? gfree-identifier=? g syntax->datum g datum->syntax ggenerate-temporaries g with-syntax g quasisyntax gunsyntax gunsyntax-splicing !  "gcall-with-deferred-observers #" $" %gmodule-use-interfaces! &% '% (gcurrent-module )( *( +gice-9 ,goptargs -+, .gbase /.  0g conditions 10  2g exceptions 32  4grecords 5g procedural 645  7gmodule-export! 87 97 :gmodule-re-export! ;: <: =   >gmodule-replace! ?> @> Agsyntax-violation BA Cgmake-message-condition Dgmake-syntax-violation Egmake-who-condition Fgraise Gg conditionC5h(]4     54>"G4!54$'*hF]45L6>gfilenamefrnrs/syntax-case.scm     CO>"G4-54$'*hF]45L6>gfilenamefrnrs/syntax-case.scm     CO>"G4/54$'*hF]45L6>gfilenamefrnrs/syntax-case.scm     CO>"G4154$'*hF]45L6>gfilenamefrnrs/syntax-case.scm     CO>"G4354$'*hF]45L6>gfilenamefrnrs/syntax-case.scm     CO>"G4654$'*hF]45L6>gfilenamefrnrs/syntax-case.scm     CO>"G4$9*hF]456>gfilenamefrnrs/syntax-case.scm    C>"G4$<*=hF]456>gfilenamefrnrs/syntax-case.scm    C>"G4$@*BhF]456>gfilenamefrnrs/syntax-case.scm    C>"GCDEFGhP-.,3#4545$45"4?6gwho Mgmessage Mgform  Mgsubform  Mg conditions  ( Mg conditions  @ Mgfilenamefrnrs/syntax-case.scm <  M  gnamegsyntax-violationCARCgm  +giface 2 giface ;giface B giface  Kgiface R giface  [gfilenamefrnrs/syntax-case.scm   & <   ( C6rnrs/arithmetic/bitwise.go000064400000010377152537005630011674 0ustar00GOOF----LE-8-2.0]c4h] gguile  gdefine-module*   grnrs g arithmetic gbitwise  gfilenameS frnrs/arithmetic/bitwise.scm gpureS gversionS   gset-current-module   gresolve-r6rs-interface   gbase  gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module   gcontrol !  "grename #gonly $gsrfi %gsrfi-60 &$% 'g bitwise-if (ginteger-length )g first-set-bit *gcopy-bit +g bit-field ,gcopy-bit-field -grotate-bit-field .greverse-bit-field /#&'()*+,-.  0gbitwise-length 1(0 2gbitwise-first-bit-set 3)2 4gbitwise-bit-field 5+4 6gbitwise-reverse-bit-field 7.6 8"/1357 9glognot :glogand ;glogior glogbit? ?gmodulo @gash A#9:;<=>?@  Bg bitwise-not C9B Dg bitwise-and E:D Fg bitwise-ior G;F Hg bitwise-xor I<H Jgbitwise-arithmetic-shift K@J L"ACEGIK Mgmodule-export! NM OM Pgbitwise-rotate-bit-field Qgbitwise-arithmetic-shift-right Rgbitwise-arithmetic-shift-left Sgbitwise-copy-bit-field Tgbitwise-copy-bit Ugbitwise-bit-set? Vgbitwise-bit-count WPQRSTUV Xgmodule-re-export! YX ZX [6J420'HFDB  \gmodule-replace! ]\ ^\ _9 `9 a@ b@C5h]4     54>"G454hM]45L6Egfilenamefrnrs/arithmetic/bitwise.scm     CO>"G4!54hM]45L6Egfilenamefrnrs/arithmetic/bitwise.scm     CO>"G4854hM]45L6Egfilenamefrnrs/arithmetic/bitwise.scm     CO>"G4L54hM]45L6Egfilenamefrnrs/arithmetic/bitwise.scm     CO>"G4OWhM]456Egfilenamefrnrs/arithmetic/bitwise.scm    C>"G4Z[hM]456Egfilenamefrnrs/arithmetic/bitwise.scm    C>"G4^hM]456Egfilenamefrnrs/arithmetic/bitwise.scm    C>"G`=h }] $ 4566ugei  gfilenamefrnrs/arithmetic/bitwise.scm E    gnamegbitwise-bit-countCVR>h]6gei1  gei2  gfilenamefrnrs/arithmetic/bitwise.scm J   gnamegbitwise-bit-set?CUR*>h]4 56gei1  gei2  gei3   gfilenamefrnrs/arithmetic/bitwise.scm L    gnamegbitwise-copy-bitCTR,h]6gei1  gei2  gei3   gei4   gfilenamefrnrs/arithmetic/bitwise.scm S    gnamegbitwise-copy-bit-fieldCSR-h]6gei1  gei2  gei3   gei4   gfilenamefrnrs/arithmetic/bitwise.scm V    gnamegbitwise-rotate-bit-fieldCPRbRRh] Cgei1  gei2  gfilenamefrnrs/arithmetic/bitwise.scm Z   gnamegbitwise-arithmetic-shift-rightCQRCgm  +giface 2 giface Jgiface Q giface  jgfilenamefrnrs/arithmetic/bitwise.scm    E  Q J  " L   S   V   Y   Z    C6rnrs/arithmetic/fixnums.go000064400000046460152537005630011721 0ustar00GOOF----LE-8-2.0M]<4h] gguile  gdefine-module*   grnrs g arithmetic gfixnums  gfilenameS frnrs/arithmetic/fixnums.scm gpureS gversionS   gset-current-module   gresolve-r6rs-interface   gonly gash gcons* gdefine-inlinable ginexact->exact glogand glogbit? glogcount glogior glognot glogxor gmost-positive-fixnum !gmost-negative-fixnum "gobject-address # !" $gcall-with-deferred-observers %$ &$ 'gmodule-use-interfaces! (' )' *gcurrent-module +* ,* -gice-9 .goptargs /-. 0gbase 10 2gcontrol 32 4gbitwise 54 6g conditions 76 8g exceptions 98 :glists ;: < ?gfxreverse-bit-field @gfxrotate-bit-field Agfxarithmetic-shift-right Bgfxarithmetic-shift-left Cgfxarithmetic-shift Dgfxcopy-bit-field Eg fxbit-field Fg fxcopy-bit Gg fxbit-set? Hgfxfirst-bit-set Igfxlength Jg fxbit-count Kgfxif Lgfxxor Mgfxior Ngfxand Ogfxnot Pg fx*/carry Qg fx-/carry Rg fx+/carry Sgfxmod0 Tgfxdiv0 Ugfxdiv0-and-mod0 Vgfxmod Wgfxdiv Xg fxdiv-and-mod Ygfx- Zgfx* [gfx+ \gfxmin ]gfxmax ^gfxeven? _gfxodd? `g fxnegative? ag fxpositive? bgfxzero? cgfx<=? dgfx>=? egfx? ggfx=? hggreatest-fixnum ig least-fixnum jg fixnum-width kgfixnum? l?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijk- mgmodule-re-export! nm om pgmodule-replace! qp rp sg% inline-fixnum?-procedure tgmake-syntax-transformer ut vt wginline-fixnum? xgmacro yg $sc-dispatch zy {y |g_ }gany ~|} g syntax-object gsyntax-parameterize gm-2e3f1f84bf0f11-1c gtop  gribcage gt-2e3f1f84bf0f11-1b   fl-2e3f1f84bf0f11-21    gx  fl-2e3f1f84bf0f11-1e   gshift g proc-name gargs    fl-bde397a-1eaf fl-bde397a-1eb0   gname gformals gbody   fl-bde397a-1ea6 fl-bde397a-1ea7 fl-bde397a-1ea8   gmake-procedure-name gprefix   fl-bde397a-1e9a fl-bde397a-1e98    fl-bde397a-1e97     ghygiene    gprivate  w gidentifier-syntax  s    glambda  gobj   gnot  g=       "       geach-any |Ҍ gsyntax-violation   fWrong number of arguments f-source expression failed to match any pattern g identifier?    s g assert-fixnum }Ҍ gor gdummy garg  gm-2e3f1f84bf0f11-27   fl-2e3f1f84bf0f11-2c fl-2e3f1f84bf0f11-2d    fl-2e3f1f84bf0f11-29     gand  gmap   w graise  gmake-assertion-violation     gfor-all gassert-fixnums g define-fxop* }}} gdefine gop  gm-2e3f1f84bf0f11-31   fl-2e3f1f84bf0f11-36  fl-2e3f1f84bf0f11-37  fl-2e3f1f84bf0f11-38          fl-2e3f1f84bf0f11-33       g case-lambda   gy        gapply    !g> "g< #g>= $g<= %gzero? &g positive? 'g negative? (godd? )geven? *gmax +gmin ,g)make-implementation-restriction-violation -gdiv .gmod /g div-and-mod 0gdiv0 1gmod0 2g div0-and-mod0 3gexpt 4g bitwise-if 5gbitwise-length 6gbitwise-first-bit-set 7gbitwise-copy-bit 8gbitwise-bit-field 9gbitwise-copy-bit-field :gbitwise-rotate-bit-field ;gbitwise-reverse-bit-fieldC5h3]4     54>"G4#54&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm     CO>"G4/54&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm     CO>"G4154&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm     CO>"G4354&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm     CO>"G4554&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm     CO>"G4754&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm     CO>"G4954&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm     CO>"G4;54&),hM]45L6Egfilenamefrnrs/arithmetic/fixnums.scm     CO>"G4&>,lhM]456Egfilenamefrnrs/arithmetic/fixnums.scm    C>"G4&o,hM]456Egfilenamefrnrs/arithmetic/fixnums.scm    C>"G4&r,hM]456Egfilenamefrnrs/arithmetic/fixnums.scm    C>"G"" i$" " "h]LC   COjR hj]Cbgfilenamefrnrs/arithmetic/fixnums.scm h    gnameggreatest-fixnumChR!hg]C_gfilenamefrnrs/arithmetic/fixnums.scm i    gnameg least-fixnumCiR"ht] 45Clgobj  gfilenamefrnrs/arithmetic/fixnums.scm k    gnamegfixnum?CkR"h] 45Cgobj  gfilenamefrnrs/arithmetic/fixnums.scm n    gnameg% inline-fixnum?-procedureCsR4vwx{~h;]C3gt-2e3f1f84bf0f11-1b    Cwh_]L6Wga  gfilenamefrnrs/arithmetic/fixnums.scm  n   C|hO]L6Ggfilenamefrnrs/arithmetic/fixnums.scm  n    Ch]C   C hx]45$@45$ O@45" 6$4 O?$ @""gx  qgtmp qgtmp  " qgtmp  > qgfilenamefrnrs/arithmetic/fixnums.scm n   q C5wR4vx{h=]C5gtmp-2e3f1f84bf0f11-30    Ch>]45C6gdummy  garg     Ch(x] 45$@6pgx  "gtmp "  " g macro-typeg syntax-rulesgpatternsgargg...C5Rsh ] 45$C456gargs  gt gfilenamefrnrs/arithmetic/fixnums.scm w    gnamegassert-fixnumsCR4vx{  h0O]CGgdummy  *gname  *gop   *  * Ch(x] 45$@6pgx  "gtmp "  " g macro-typeg syntax-rulesgpatternsgnamegopC5RigR!ifR"ieR#idR$icR%ibR&iaR'i`R(i_R)i^R"*hx)Q3 45$" 45$"445>"G6-134>"G@gx Wgy Wgt  + Ogargs ` xgfilenamefrnrs/arithmetic/fixnums.scm  W  ` x gnamegfxmaxC]R"+hx)Q3 45$" 45$"445>"G6-134>"G@gx Wgy Wgt  + Ogargs ` xgfilenamefrnrs/arithmetic/fixnums.scm  W  ` x gnamegfxminC\R",h] 45$" 45$"445>"G 45$"445>"GCgfx1  gfx2  gt  $ Hgr  M gt  \ gfilenamefrnrs/arithmetic/fixnums.scm   gnamegfx+C[R",h] 45$" 45$"445>"G 45$"445>"GCgfx1  gfx2  gt  $ Hgr  M gt  \ gfilenamefrnrs/arithmetic/fixnums.scm   gnamegfx*CZR"h-.,3# 45$"445>"G$l 45$"445>"G 45$"445>"GC  45$"445>"GCgfx1 gfx2 gt  " Fgt  Y }gr  gt  gr  gt  gfilenamefrnrs/arithmetic/fixnums.scm  gnamegfx-CYR"-hP] 45$" 45$"445>"G6gfx1  Pgfx2  Pgt  $ Hgfilenamefrnrs/arithmetic/fixnums.scm   P gnamegfxdivCWR".hP] 45$" 45$"445>"G6gfx1  Pgfx2  Pgt  $ Hgfilenamefrnrs/arithmetic/fixnums.scm   P gnamegfxmodCVR"/hP] 45$" 45$"445>"G6gfx1  Pgfx2  Pgt  $ Hgfilenamefrnrs/arithmetic/fixnums.scm   P gnameg fxdiv-and-modCXR"0hP] 45$" 45$"445>"G6gfx1  Pgfx2  Pgt  $ Hgfilenamefrnrs/arithmetic/fixnums.scm   P gnamegfxdiv0CTR"1hP] 45$" 45$"445>"G6gfx1  Pgfx2  Pgt  $ Hgfilenamefrnrs/arithmetic/fixnums.scm   P gnamegfxmod0CSR"2hP] 45$" 45$"445>"G6gfx1  Pgfx2  Pgt  $ Hgfilenamefrnrs/arithmetic/fixnums.scm   P gnamegfxdiv0-and-mod0CUR"13j0h] 45$"" 45$" 45$"445>"G44 455544 4555Dgfx1  gfx2  gfx3   gt  9 ]gs  e gs0  z gs1  gfilenamefrnrs/arithmetic/fixnums.scm   gnameg fx+/carryCRR"13j0h] 45$"" 45$" 45$"445>"G44 455544 4555Dgfx1  gfx2  gfx3   gt  9 ]gd  e gd0  z gd1  gfilenamefrnrs/arithmetic/fixnums.scm   gnameg fx-/carryCQR"13j0h] 45$"" 45$" 45$"445>"G44 455544 4555Dgfx1  gfx2  gfx3   gt  9 ]gs  e gs0  z gs1  gfilenamefrnrs/arithmetic/fixnums.scm   gnameg fx*/carryCPR"h@] 45$"445>"G6xgfx  9gt  3gfilenamefrnrs/arithmetic/fixnums.scm   9 gnamegfxnotCOR"hx)O3 45$" 45$"445>"GC-134>"G@gx Ugy Ugt  + Ogargs ^ vgfilenamefrnrs/arithmetic/fixnums.scm  U  ^ v gnamegfxandCNR"hx)O3 45$" 45$"445>"GC-134>"G@gx Ugy Ugt  + Ogargs ^ vgfilenamefrnrs/arithmetic/fixnums.scm  U  ^ v gnamegfxiorCMR"hx)O3 45$" 45$"445>"GC-134>"G@gx Ugy Ugt  + Ogargs ^ vgfilenamefrnrs/arithmetic/fixnums.scm  U  ^ v gnamegfxxorCLR"4hh] 45$"" 45$" 45$"445>"G6gfx1  ggfx2  ggfx3   ggt  9 ]gfilenamefrnrs/arithmetic/fixnums.scm   g gnamegfxifCKR"hP] 45$"445>"G $ 4566~gfx  Lgt  3gfilenamefrnrs/arithmetic/fixnums.scm   L gnameg fxbit-countCJR"5h@] 45$"445>"G6{gfx  9gt  3gfilenamefrnrs/arithmetic/fixnums.scm   9 gnamegfxlengthCIR"6h@] 45$"445>"G6gfx  9gt  3gfilenamefrnrs/arithmetic/fixnums.scm   9 gnamegfxfirst-bit-setCHR"hP] 45$" 45$"445>"G6gfx1  Pgfx2  Pgt  $ Hgfilenamefrnrs/arithmetic/fixnums.scm   P gnameg fxbit-set?CGR"7hh] 45$"" 45$" 45$"445>"G6gfx1  ggfx2  ggfx3   ggt  9 ]gfilenamefrnrs/arithmetic/fixnums.scm   g gnameg fxcopy-bitCFR"8hh] 45$"" 45$" 45$"445>"G6gfx1  ggfx2  ggfx3   ggt  9 ]gfilenamefrnrs/arithmetic/fixnums.scm   g gnameg fxbit-fieldCER"9h] 45$"7 45$"" 45$" 45$"445>"G6gfx1  ~gfx2  ~gfx3   ~gfx4   ~gt  N rgfilenamefrnrs/arithmetic/fixnums.scm   ~ gnamegfxcopy-bit-fieldCDR"hP] 45$" 45$"445>"GCgfx1  Ngfx2  Ngt  $ Hgfilenamefrnrs/arithmetic/fixnums.scm   N gnamegfxarithmetic-shiftCCRCiBR"hP] 45$" 45$"445>"G Cgfx1  Pgfx2  Pgt  $ Hgfilenamefrnrs/arithmetic/fixnums.scm    P gnamegfxarithmetic-shift-rightCAR":h] 45$"7 45$"" 45$" 45$"445>"G6gfx1  ~gfx2  ~gfx3   ~gfx4   ~gt  N rgfilenamefrnrs/arithmetic/fixnums.scm    ~ gnamegfxrotate-bit-fieldC@R";hh] 45$"" 45$" 45$"445>"G6gfx1  ggfx2  ggfx3   ggt  9 ]gfilenamefrnrs/arithmetic/fixnums.scm    g gnamegfxreverse-bit-fieldC?RCgm  +giface 2 giface Jgiface Q giface  jgiface q giface  giface  giface ! gi . Pgn . Pgw Z  gfilenamefrnrs/arithmetic/fixnums.scm    a   h   i  ? k   n  w  ]  e  m  u  }              %                    z    !  "  #  %  &E  'n  (a  )>  *%  ++  ,\  -  .  /  /  1   2e   3  1  3 C6rnrs/arithmetic/flonums.go000064400000035461152537005630011712 0ustar00GOOF----LE-8-2.0;]4h ] gguile  gdefine-module*   grnrs g arithmetic gflonums  gfilenameS frnrs/arithmetic/flonums.scm gpureS gversionS   gset-current-module   gresolve-r6rs-interface   gice-9 goptargs  gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module   !gonly "ginf? #!" $gfixnums %$ &gbase '& (gcontrol )( *g conditions +* ,g exceptions -, .glists /. 0gr5rs 10 2gmodule-export! 32 42 5gfixnum->flonum 6gno-nans-violation? 7gmake-no-nans-violation 8g&no-nans 9gno-infinities-violation? :gmake-no-infinities-violation ;g&no-infinities gflatan ?gflasin @gflacos Agfltan Bgflcos Cgflsin Dgfllog Egflexp Fgflround Gg fltruncate Hg flceiling Igflfloor Jg fldenominator Kg flnumerator Lgflmod0 Mgfldiv0 Ngfldiv0-and-mod0 Ogflmod Pgfldiv Qg fldiv-and-mod Rgflabs Sgfl/ Tgfl- Ugfl* Vgfl+ Wgflmin Xgflmax Ygflnan? Zg flinfinite? [g flfinite? \gfleven? ]gflodd? ^g flnegative? _g flpositive? `gflzero? ag flinteger? bgfl>=? cgfl>? dgfl<=? egflflonum hgflonum? i56789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefgh4 jgmodule-re-export! kj lj mgmodule-replace! nm om pgreal? qginexact? rgfor-all sgraise tgmake-assertion-violation ug assert-flonum vginteger? wgassert-iflonum xg imag-part yg real-part ze+nan.0 {g ensure-flonum |gexact->inexact }gapply ~g= g< g<= g> g>= godd? geven? gnan? gmax gmin e0.0 g+ e1.0 g* g- g/ gabs g div-and-mod gdiv gmod g div0-and-mod0 gdiv0 gmod0 g numerator g denominator gfloor gceiling gtruncate ground gexp glog gsin gcos gtan gasin gacos gatan gsqrt gexpt * gmake-record-type-descriptor   g&implementation-restriction g list->vector   grecord-constructor   g"make-record-constructor-descriptor   gcondition-predicate   gfixnum?C5h+]4     54>"G454 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm     CO>"G4#54 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm     CO>"G4%54 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm     CO>"G4'54 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm     CO>"G4)54 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm     CO>"G4+54 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm     CO>"G4-54 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm     CO>"G4/54 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm     CO>"G4154 hM]45L6Egfilenamefrnrs/arithmetic/flonums.scm     CO>"G44 ihM]456Egfilenamefrnrs/arithmetic/flonums.scm    C>"G4l hM]456Egfilenamefrnrs/arithmetic/flonums.scm    C>"G4o hM]456Egfilenamefrnrs/arithmetic/flonums.scm    C>"Gpqht]45$6Clgobj  gfilenamefrnrs/arithmetic/flonums.scm E    gnamegflonum?ChRrhsth(-1345$C456gargs &gt  &gfilenamefrnrs/arithmetic/flonums.scm F  & gnameg assert-flonumCuRrhvh)]45$6C!gi     Csth(-1345$C456gargs &gt  &gfilenamefrnrs/arithmetic/flonums.scm H  & gnamegassert-iflonumCwRpxyzh(]45$C45 $6Cxgz  &gfilenamefrnrs/arithmetic/flonums.scm L  % O   & gnameg ensure-flonumC{Rpst|h8] 45$"445>"G6}gx  3gt -gfilenamefrnrs/arithmetic/flonums.scm Q   3 gnameg real->flonumCgR}u~h(t-134>"G@lgargs #gfilenamefrnrs/arithmetic/flonums.scm U  # gnamegfl=?CfR}uh(t-134>"G@lgargs #gfilenamefrnrs/arithmetic/flonums.scm V  # gnamegfl"G@mgargs #gfilenamefrnrs/arithmetic/flonums.scm W  # gnamegfl<=?CdR}uh(t-134>"G@lgargs #gfilenamefrnrs/arithmetic/flonums.scm X  # gnamegfl>?CcR}uh(u-134>"G@mgargs #gfilenamefrnrs/arithmetic/flonums.scm Y  # gnamegfl>=?CbRuvh v]4>"G6ngfl  gfilenamefrnrs/arithmetic/flonums.scm [    gnameg flinteger?CaRuh s]4>"G Ckgfl  gfilenamefrnrs/arithmetic/flonums.scm \    gnamegflzero?C`Ruh w]4>"G Cogfl  gfilenamefrnrs/arithmetic/flonums.scm ]    gnameg flpositive?C_Ruh w]4>"G Cogfl  gfilenamefrnrs/arithmetic/flonums.scm ^    gnameg flnegative?C^Rwh s]4>"G6kgifl  gfilenamefrnrs/arithmetic/flonums.scm _    gnamegflodd?C]Rwh t]4>"G6lgifl  gfilenamefrnrs/arithmetic/flonums.scm `    gnamegfleven?C\Ru"h8] 4>"G45$"45C{gfl  5gt  3gfilenamefrnrs/arithmetic/flonums.scm a   5 gnameg flfinite?C[Ru"h w]4>"G6ogfl  gfilenamefrnrs/arithmetic/flonums.scm b    gnameg flinfinite?CZRuh r]4>"G6jgfl  gfilenamefrnrs/arithmetic/flonums.scm c    gnamegflnan?CYR}uh0-134>"G@gfl1 *gargs *gflargs   *gfilenamefrnrs/arithmetic/flonums.scm e  * gnamegflmaxCXR}uh0-134>"G@gfl1 *gargs *gflargs   *gfilenamefrnrs/arithmetic/flonums.scm j  * gnamegflminCWR}uh0{-134>"G(C@sgargs ,gfilenamefrnrs/arithmetic/flonums.scm o  % q  , gnamegfl+CVR}uh0{-134>"G(C@sgargs ,gfilenamefrnrs/arithmetic/flonums.scm s  % u  , gnamegfl*CUR}uh0-134>"G@gfl1 *gargs *gflargs   *gfilenamefrnrs/arithmetic/flonums.scm w  * gnamegfl-CTR}uh0-134>"G@gfl1 *gargs *gflargs   *gfilenamefrnrs/arithmetic/flonums.scm |  * gnamegfl/CSRuh r]4>"G6jgfl  gfilenamefrnrs/arithmetic/flonums.scm    gnamegflabsCRRwh ]4>"G6gfl1  gfl2  gfilenamefrnrs/arithmetic/flonums.scm    gnameg fldiv-and-modCQRwh ]4>"G6|gfl1  gfl2  gfilenamefrnrs/arithmetic/flonums.scm    gnamegfldivCPRwh ]4>"G6|gfl1  gfl2  gfilenamefrnrs/arithmetic/flonums.scm    gnamegflmodCORwh ]4>"G6gfl1  gfl2  gfilenamefrnrs/arithmetic/flonums.scm    gnamegfldiv0-and-mod0CNRwh ]4>"G6}gfl1  gfl2  gfilenamefrnrs/arithmetic/flonums.scm    gnamegfldiv0CMRwh ]4>"G6}gfl1  gfl2  gfilenamefrnrs/arithmetic/flonums.scm    gnamegflmod0CLRuh x]4>"G6pgfl  gfilenamefrnrs/arithmetic/flonums.scm    gnameg flnumeratorCKRuh z]4>"G6rgfl  gfilenamefrnrs/arithmetic/flonums.scm    gnameg fldenominatorCJRuh t]4>"G6lgfl  gfilenamefrnrs/arithmetic/flonums.scm    gnamegflfloorCIRuh v]4>"G6ngfl  gfilenamefrnrs/arithmetic/flonums.scm    gnameg flceilingCHRuh w]4>"G6ogfl  gfilenamefrnrs/arithmetic/flonums.scm    gnameg fltruncateCGRuh t]4>"G6lgfl  gfilenamefrnrs/arithmetic/flonums.scm    gnamegflroundCFRuh r]4>"G6jgfl  gfilenamefrnrs/arithmetic/flonums.scm    gnamegflexpCERu{hX)#34>"G456]4>"G45456gfl )gfl + Xgfl2 + Xgfilenamefrnrs/arithmetic/flonums.scm $ ! H $ R % )  + X gnamegfllogCDRuh r]4>"G6jgfl  gfilenamefrnrs/arithmetic/flonums.scm    gnamegflsinCCRuh r]4>"G6jgfl  gfilenamefrnrs/arithmetic/flonums.scm    gnamegflcosCBRuh r]4>"G6jgfl  gfilenamefrnrs/arithmetic/flonums.scm    gnamegfltanCARu{h s]4>"G456kgfl  gfilenamefrnrs/arithmetic/flonums.scm    gnamegflasinC?Ru{h s]4>"G456kgfl  gfilenamefrnrs/arithmetic/flonums.scm    gnamegflacosC@Ruh@e)34>"G6]4>"G6]gfl !gfl # ?gfl2 # ? !  # ? gnamegflatanC>Ru{h s]4>"G456kgfl  gfilenamefrnrs/arithmetic/flonums.scm    gnamegflsqrtC=Ru{h(]4>"G456}gfl1  #gfl2  #gfilenamefrnrs/arithmetic/flonums.scm   # gnamegflexptC"G6gfx  3gt -gfilenamefrnrs/arithmetic/flonums.scm   3 gnamegfixnum->flonumC5RCgm  +giface 2 giface Jgiface Q giface  jgiface q giface  giface  giface ! giface  : gfilenamefrnrs/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  + C6rnrs/conditions.go000064400000023021152537005630010234 0ustar00GOOF----LE-8-2.0%]4h$] gguile  gdefine-module*   grnrs g conditions  gfilenameS frnrs/conditions.scm gpureS gversionS  gset-current-module   gresolve-r6rs-interface   gonly gand=> g@@  gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module   !gbase "!  #glists $#  %grecords &g procedural '%&  (gmodule-export! )( *( +gundefined-violation? ,gmake-undefined-violation -g &undefined .gsyntax-violation-subform /gsyntax-violation-form 0gsyntax-violation? 1gmake-syntax-violation 2g&syntax 3glexical-violation? 4gmake-lexical-violation 5g&lexical 6g%implementation-restriction-violation? 7g)make-implementation-restriction-violation 8g&implementation-restriction 9gnon-continuable-violation? :gmake-non-continuable-violation ;g&non-continuable 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 ^+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]3 _gmodule-re-export! `_ a_ bgmodule-replace! cb db egmake-record-type-descriptor fg&compound-condition gg immutable hg components igh ji kgrecord-predicate lgcompound-condition? mgrecord-constructor ng"make-record-constructor-descriptor ogmake-compound-condition pgrecord-accessor qgcondition-internal? rgassertion-violation sfnot a condition tgfor-all ufnon-condition argument vglength wgappend xgmap ygmake-syntax-transformer zy {y |gmacro }g $sc-dispatch ~} } gany geach        g syntax-object g letrec-syntax gtop  gribcage gdummy gcondition-type g supertype g constructor g predicate gfield gaccessor  gm-2f221686982dd3-f   fl-2f221686982dd3-14 fl-2f221686982dd3-15 fl-2f221686982dd3-16 fl-2f221686982dd3-17 fl-2f221686982dd3-18 fl-2f221686982dd3-19 fl-2f221686982dd3-1a    gx   fl-2f221686982dd3-11    gprivate   gtransform-fields  g syntax-rules  g_  gf  ga   grest    gcons  gquote  g           ggenerate-accessors  gcounter   ό gbegin  gdefine  X p  g+      ܌      e  g list->vector  x x glist m n  Y   gsyntax-violation   f-source expression failed to match any pattern %& ] ] g!&condition-constructor-descriptor gexists gfind gmessage gS O O N N I I H H F F E E g irritants g@  gwho  g <  gform  g /  gsubform g .C5h]4     54>"G454 hE]45L6=gfilenamefrnrs/conditions.scm     CO>"G4"54 hE]45L6=gfilenamefrnrs/conditions.scm     CO>"G4$54 hE]45L6=gfilenamefrnrs/conditions.scm     CO>"G4'54 hE]45L6=gfilenamefrnrs/conditions.scm     CO>"G4* ^hE]456=gfilenamefrnrs/conditions.scm    C>"G4a hE]456=gfilenamefrnrs/conditions.scm    C>"G4d hE]456=gfilenamefrnrs/conditions.scm    C>"G4eifj5fR4kifi5lR4mi4nifi55oR4pifi 5lqr[sh0_]45$L645$C6Wg condition  .gfilenamefrnrs/conditions.scm * j $  . CO[Rlqh }] 45$C6ugobj  gt gfilenamefrnrs/conditions.scm m    gnameg condition?CZRtZr\uvowxl[h @]45$6C8gcond     gnamegflattenC hh-1345$"4>"G(" 45 $44  5?6C~g conditions egt  7gfilenamefrnrs/conditions.scm % u * e gnameg conditionC\R4{W|h]     4545Cgdummy  gcondition-type  g supertype   g constructor   g predicate   gfield   gaccessor     Ch(] 45$@6gx  "gtmp "  " g macro-typeg syntax-rulesgpatternsgcondition-typeg supertypeg constructorg predicategfieldgaccessorg...C5WR]R4ni]i5R4ki]i5qRkl[qh0+]45$ L45645$L6C#gobj  -  - Ch] 45OCgrtd  g rtd-predicate gfilenamefrnrs/conditions.scm    gnamegcondition-predicateCYRkl[h8+]4L5$L645$4L455L6C#gobj  4  4 Ch] 45OCgrtd  gproc  g rtd-predicate  gfilenamefrnrs/conditions.scm    gnamegcondition-accessorCXR4eiV]i4i55VR4mi4niVi55UR4YiVi5TR4XiVi4piVi 55SR4eiR]i4i55RR4mi4niRi55QR4YiRi5PRORNR4YiOi5MR4eiLOi4i55LR4mi4niLi55KR4YiLi5JRIRHR4YiIi5GRFRER4YiFi5DR4eiC]i4i55CR4mi4niCi55BR4YiCi5AR4XiCi4piCi 55@R4ei?]i4i 55?R4mi4ni?i55>R4Yi?i5=R4Xi?i4pi?i 55 ggensym  gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module  ! "gbase #" $g conditions %$ &g exceptions '& (g hashtables )( *glists +* ,g procedural -, .g syntax-case /. 0gsrfi 1g:1 201 3gtake 423 5gmodule-export! 65 75 8grecord-constructor-descriptor 9gdefine-record-type :89 ;gmodule-re-export! <; =; >gmodule-replace! ?> @> Agrecord-type-descriptor BA Cgmake-eq-hashtable Dgrecord-type-registry Egstring->symbol Fg string-append Gfmake- Hgsymbol->string Igguess-constructor-name Jf? Kgguess-predicate-name Lghashtable-set! Mgregister-record-type Ng hashtable-ref Ogcar Pglookup-record-type-descriptor Qgcdr Rg$lookup-record-constructor-descriptor Sgmake-syntax-transformer TS US Vgmacro Wg $sc-dispatch XW YW Zg_ [gany \[[[ ]geach-any ^\] _Z^ `g syntax-object agdefine-record-type0 bgtop cb dgribcage eg record-name fgconstructor-name ggpredicate-name hg record-clause iefgh jcccc kfl-17a5c5a65d375-22 lfl-17a5c5a65d375-23 mfl-17a5c5a65d375-24 nfl-17a5c5a65d375-25 oklmn pdijo qd rgstx sr tc ufl-17a5c5a65d375-1f vu wdstv xcpqw ygprivate zy {`axz |[] }Z| ~g syntax->datum g datum->syntax [[ gt-17a5c5a65d375-38 gt-17a5c5a65d375-37  gm-17a5c5a65d375-39 b  fl-17a5c5a65d375-3d fl-17a5c5a65d375-3e  d g fl-17a5c5a65d375-35  dt f fl-17a5c5a65d375-33  dt grecord-name-sym  fl-17a5c5a65d375-31  dt eh cc fl-17a5c5a65d375-2c fl-17a5c5a65d375-2d  d cqqqqqqqqw `az gsyntax-violation   f-source expression failed to match any pattern  greverse gsequence g number-fields gfree-id g immutable gx  fl-17a5c5a65d375-135  dt gf gguess-mutator-name gguess-accessor-name grecord-name-str g id->string gwrap  cccccc fl-17a5c5a65d375-12a fl-17a5c5a65d375-128 fl-17a5c5a65d375-126 fl-17a5c5a65d375-124 fl-17a5c5a65d375-122 fl-17a5c5a65d375-120  d gfields e fl-17a5c5a65d375-11e fl-17a5c5a65d375-11f  d cq `z  [ f- [[ gmutable `z  [ f-set! [[[ g identifier? finvalid field specifier gmap gprocess-fields g list->vector g fold-left gdefine gt-17a5c5a65d375-79 gt-17a5c5a65d375-78  gm-17a5c5a65d375-7a b  fl-17a5c5a65d375-7e fl-17a5c5a65d375-7f  d glst gc  ccc fl-17a5c5a65d375-75 fl-17a5c5a65d375-76 fl-17a5c5a65d375-77  d g field-names  fl-17a5c5a65d375-6e  dt  fl-17a5c5a65d375-6c  dt gloop g_fields g_parent g _protocol g_sealed g_opaque g_nongenerative g _constructor g _parent-rtd grecord-clauses   cccccccccc  fl-17a5c5a65d375-54 fl-17a5c5a65d375-55 fl-17a5c5a65d375-56 fl-17a5c5a65d375-57 fl-17a5c5a65d375-58 fl-17a5c5a65d375-59 fl-17a5c5a65d375-5a fl-17a5c5a65d375-5b fl-17a5c5a65d375-5c  fl-17a5c5a65d375-5d      d   fl-17a5c5a65d375-4c  fl-17a5c5a65d375-4d fl-17a5c5a65d375-4e fl-17a5c5a65d375-4f    dij g unspecified? g *unspecified*  cc fl-17a5c5a65d375-46 fl-17a5c5a65d375-44  d fl-17a5c5a65d375-43  dst cqqqqq  `z grecord-accessor  `z !glength "gt-17a5c5a65d375-8b #gt-17a5c5a65d375-8a $"# %gm-17a5c5a65d375-8c &%b '&& (fl-17a5c5a65d375-90 )fl-17a5c5a65d375-91 *() +d$'* ,fl-17a5c5a65d375-87 -fl-17a5c5a65d375-88 .fl-17a5c5a65d375-89 /,-. 0d/ 1gfield-accessors 21 3fl-17a5c5a65d375-70 43 5d2t4 6cq+q0q5qqq  7`6z 8grecord-mutator 9`86z :gt-17a5c5a65d375-97 ;: = ?fl-17a5c5a65d375-9b @? Ad;>@ Bgfield-mutators CB Dfl-17a5c5a65d375-82 ED FdCtE GcqAqFq5qqq  H`8Gz Igt-17a5c5a65d375-a0 JI Kgm-17a5c5a65d375-a1 LKb ML Nfl-17a5c5a65d375-a4 ON PdJMO Qg parent-cd RQ Sfl-17a5c5a65d375-94 TS UdRtT VcqPqUqFq5qqq  W`AVz X[[[[[[[[[]]  Ygbegin Zgt-17a5c5a65d375-b2 [gt-17a5c5a65d375-b1 \gt-17a5c5a65d375-b0 ]gt-17a5c5a65d375-af ^gt-17a5c5a65d375-ae _gt-17a5c5a65d375-b4 `gt-17a5c5a65d375-b3 agt-17a5c5a65d375-b6 bgt-17a5c5a65d375-b5 cgt-17a5c5a65d375-b8 dgt-17a5c5a65d375-b7 eZ[\]^_`abcd  fgm-17a5c5a65d375-b9 gfb hggggggggggg  ifl-17a5c5a65d375-bd jfl-17a5c5a65d375-be kfl-17a5c5a65d375-bf lfl-17a5c5a65d375-c0 mfl-17a5c5a65d375-c1 nfl-17a5c5a65d375-c2 ofl-17a5c5a65d375-c3 pfl-17a5c5a65d375-c4 qfl-17a5c5a65d375-c5 rfl-17a5c5a65d375-c6 sfl-17a5c5a65d375-c7 tijklmnopqrs  udeht vgopaque? wv xfl-17a5c5a65d375-ac yx zdwty {gsealed? |{ }fl-17a5c5a65d375-aa ~} d|t~ guid  fl-17a5c5a65d375-a8  dt gprotocol  fl-17a5c5a65d375-a6  dt g parent-rtd  fl-17a5c5a65d375-9d  dt cquqqqqzqqqqqUqFq5qqq  `Yz `z gmake-record-type-descriptor `z gquote `z grecord-constructor `z g"make-record-constructor-descriptor `z gdummy `z glet `z `Mz   grecord-predicate `z gappend   cq  `z  ] [ graise gmake-assertion-violation gparent `z  [ [ `z  [ [ gsealed `z  [ [ gopaque `z  [ [ g nongenerative `z   [ gt-17a5c5a65d375-f2  gm-17a5c5a65d375-f3 b  fl-17a5c5a65d375-f6  d grest  fl-17a5c5a65d375-f0  dt cqq   `z [ [  fl-17a5c5a65d375-f9 fl-17a5c5a65d375-fa  d cq  `z `z  [[ [ Z[ gt-17a5c5a65d375-10a  gm-17a5c5a65d375-10b b  fl-17a5c5a65d375-10e  d gname  fl-17a5c5a65d375-108  dt fl-17a5c5a65d375-105  dst cqq `Pz gt-17a5c5a65d375-116  gm-17a5c5a65d375-117 b  fl-17a5c5a65d375-11a  d fl-17a5c5a65d375-114  dt fl-17a5c5a65d375-111  dst cqq `RzC5hX*b]4     54>"G454!hL]45L6Dgfilenamefrnrs/records/syntactic.scm     CO>"G4#54!hL]45L6Dgfilenamefrnrs/records/syntactic.scm     CO>"G4%54!hL]45L6Dgfilenamefrnrs/records/syntactic.scm     CO>"G4'54!hL]45L6Dgfilenamefrnrs/records/syntactic.scm     CO>"G4)54!hL]45L6Dgfilenamefrnrs/records/syntactic.scm     CO>"G4+54!hL]45L6Dgfilenamefrnrs/records/syntactic.scm     CO>"G4-54!hL]45L6Dgfilenamefrnrs/records/syntactic.scm     CO>"G4/54!hL]45L6Dgfilenamefrnrs/records/syntactic.scm     CO>"G4454!hL]45L6Dgfilenamefrnrs/records/syntactic.scm     CO>"G47!:hL]456Dgfilenamefrnrs/records/syntactic.scm    C>"G4=!hL]456Dgfilenamefrnrs/records/syntactic.scm    C>"G4@!BhL]456Dgfilenamefrnrs/records/syntactic.scm    C>"G4Ci5DREFGHh]44556g record-name  gfilenamefrnrs/records/syntactic.scm #  $ #   gnamegguess-constructor-nameCIREFHJh]44556g record-name  gfilenamefrnrs/records/syntactic.scm %   & @   gnamegguess-predicate-nameCKRLDh]6gname  grtd  grcd   gfilenamefrnrs/records/syntactic.scm '    gnamegregister-record-typeCMRNDOh]456gname  gfilenamefrnrs/records/syntactic.scm )    gnameglookup-record-type-descriptorCPRNDQh]456gname  gfilenamefrnrs/records/syntactic.scm +    gnameg$lookup-record-constructor-descriptorCRR4U9VY_{h]Cg record-name  gconstructor-name  gpredicate-name   g record-clause      C}~IKYhZ]LLCRgt-17a5c5a65d375-38  gt-17a5c5a65d375-37     C h`]*454455445545$ O@ 6g record-name  [g record-clause  [grecord-name-sym  [gconstructor-name   [gpredicate-name  ) [gtmp  2 [gtmp  = [  [ Ch@L]45$@45$@6Dgstx  9gtmp 9gtmp  " 9  9 C59Rh ?] $C4L5C7gn     gnameg seq-innerCh ] OQ456gn  g seq-inner gfilenamefrnrs/records/syntactic.scm A    gnamegsequenceCRh c](C4L5C[gfields  gcounter     gnamegnumber-fields-innerCh] OQ 6gfields  gnumber-fields-inner gfilenamefrnrs/records/syntactic.scm D    gnameg number-fieldsCRY~EFHhP}] 454L544M4455554L5Cugname  Igx  gx 6 Dgfilenamefrnrs/records/syntactic.scm & T (  I C~h(Q] 454L5CIgname  #gaccessor  #gx     # C~EFH hx] 454L544M4455554L544M4455554L5Cgname  rgx  gx 6 Dgx ` ngfilenamefrnrs/records/syntactic.scm & T ( N Y  \ Y 5  r C~h(f] 454L5C^gname  $gaccessor  $gmutator   $gx     $ Ch,]6$gname     C~EFHhP}] 454L544M4455554L5Cugname  Igx  gx 6 Dgfilenamefrnrs/records/syntactic.scm & T (  I C9h])45$ LLO@45$ LO@45$ LLO@45$  LO@4 ?$  LLO@  6gx  gtmp gtmp  ) gtmp  E gtmp  c gtmp  { gfilenamefrnrs/records/syntactic.scm n /  gnamegfCH~h0]HOQ4455K6g record-name  +gfields  +grecord-name-str   +gf   +gfilenamefrnrs/records/syntactic.scm L   + gnamegprocess-fieldsCR4UaVY_YOY hZ]LCRgt-17a5c5a65d375-79  gt-17a5c5a65d375-78     ChHk]45$4LO?" 45Ccglst  Bgx  Bgc   Bgtmp  >gtmp   ;  B C!Y79hZ]LCRgt-17a5c5a65d375-8b  gt-17a5c5a65d375-8a     ChPk]$A45$4LO?" 45CCcglst  Ogx  Ogc   Ogtmp   Hgtmp  E  O CHWYX h, 3 LLLL LLL L L4   5C~gt-17a5c5a65d375-b2  gt-17a5c5a65d375-b1  gt-17a5c5a65d375-b0   gt-17a5c5a65d375-af   gt-17a5c5a65d375-ae   gt-17a5c5a65d375-b4   gt-17a5c5a65d375-b3   gt-17a5c5a65d375-b6   gt-17a5c5a65d375-b5   gt-17a5c5a65d375-b8  gt-17a5c5a65d375-b7     Ch`]844LL&"L554LOLL&"L44LL&"L5554LOLL&"L44LL&"L555LL&LL&"L" LLL&LL&"L" LLL&"LLL&"LLL&"LLL&"LLL&"L 4  5$ L L LO@6g field-names  ]gfield-accessors T ]gfield-mutators  ]g parent-cd  ]g parent-rtd  ]gtmp  2 ]gtmp  = ]  ] Ch0G]L L &L4L5LLLLLLL6 456?g record-fields  0grest  0  0 Ch@E]L L&'L L&LLLLLLLL6 456456=g parent-name  :grest  :  : Ch0D]L L&LLLLLLLL6 456<g expression  )grest  )  ) Ch0A]L L&LLLLLLLL6 4569gsealed?  )grest  )  ) Ch0A]L L&LLLLLLLL6 4569gopaque?  )grest  )  ) Ch@<] L L &,LLLLLL4L455LL6 4564grest  ?gtmp " .  ? Ch0=]L L&LLLLLLLL6 4565guid  .grest  .  . Ch@M]L L&,L L&LLLLLLLL6 456456Egrtd  ?gcd  ?grest   ?  ? Ch, 345  $LLLLO  @45  $LLLO  @45  $LLO  @45  $LLO  @4 5  $ LLO  @4 5$ LLO @4 5$LLLO @45$LLO @45$LLO @6g_fields  g_parent  g _protocol   g_sealed   g_opaque   g_nongenerative   g _constructor   g _parent-rtd   grecord-clauses   gtmp  gtmp > gtmp n gtmp gtmp gtmp  gtmp  & gtmp  V gtmp      gnamegloopCh8] OLQLLLLLLLL6 g record-name  1gconstructor-name  1gpredicate-name   1g record-clause   1gloop   1  1 Ch0V]45$ O@6Ngstx  ,g *unspecified*  ,gtmp   ,  , C5aR4UAVY~h <] 4L455C4gname  gtmp     Ch(;] 45$ O@63gstx  'gtmp '  ' C5AR4U8VY~h <] 4L455C4gname  gtmp     Ch(;] 45$ O@63gstx  'gtmp '  ' C58RCZgm  +giface 2 giface Igiface P giface  igiface p giface  giface  giface  giface  9 gfilenamefrnrs/records/syntactic.scm    !   #  K %   '  )  +   A  O D  ] L   *R C6rnrs/records/procedural.go000064400000024303152537005630011670 0ustar00GOOF----LE-8-2.0(]4h ] gguile  gdefine-module*   grnrs grecords g procedural  gfilenameS frnrs/records/procedural.scm gpureS gversionS   gset-current-module   gresolve-r6rs-interface   gbase  gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module   gonly !gcons* "glogand #glogior $gash %gand=> &gthrow 'gdisplay (g make-struct )g make-vtable *gmap +g simple-format ,g string-append -g symbol-append .gstruct? /g struct-layout 0g struct-ref 1g struct-set! 2g struct-vtable 3gvtable-index-layout 4gmake-hash-table 5g hashq-ref 6g hashq-set! 7g vector->list 8 !"#$%&'()*+,-./01234567 9gice-9 :greceive ;9: <= ?gfold @gsplit-at Agtake B >?@A Cgmodule-export! DC EC Fgrecord-mutator Gg"make-record-constructor-descriptor Hgrecord-type-descriptor? Igmake-record-type-descriptor JFGHI Kgmodule-re-export! LK MK Ngmodule-replace! ON PN Qgrecord-accessor Rgrecord-predicate Sgrecord-constructor TQRS Ugrecord-internal? Vgrtd-index-name Wg rtd-index-uid Xgrtd-index-parent Ygrtd-index-sealed? Zgrtd-index-opaque? [grtd-index-predicate \grtd-index-field-names ]grtd-index-field-bit-field ^grtd-index-field-binder _grctd-index-rtd `grctd-index-parent agrctd-index-protocol bgsymbol->string cf dgvtable-base-layout efprprprprprprprprprpr ff# ggrecord-type-vtable hfprprpr if# jgrecord-constructor-vtable kg uid-table lg immutable mgpr ngmutable ogpw pg r6rs-raise qgmake-assertion-violation rg list->vector sgcadr tf# ug vector-length vglength wg &condition x yg!&condition-constructor-descriptor zg&serious {g&serious-constructor-descriptor |gmake-serious-condition }g &violation ~g!&violation-constructor-descriptor gmake-violation g &assertion g&raise-object-wrapper gobj l g continuation l  gmake-raise-object-wrapper graise-object-wrapper? graise-object-wrapper-obj g!raise-object-wrapper-continuation gr6rs:exception gr6rs-raise-continuableC5hQ]4     54>"G454hM]45L6Egfilenamefrnrs/records/procedural.scm     CO>"G4854hM]45L6Egfilenamefrnrs/records/procedural.scm     CO>"G4;54hM]45L6Egfilenamefrnrs/records/procedural.scm     CO>"G4B54hM]45L6Egfilenamefrnrs/records/procedural.scm     CO>"G4EJhM]456Egfilenamefrnrs/records/procedural.scm    C>"G4MhM]456Egfilenamefrnrs/records/procedural.scm    C>"G4PThM]456Egfilenamefrnrs/records/procedural.scm    C>"GHh}]$6Cugobj  gfilenamefrnrs/records/procedural.scm <    gnamegrecord-internal?CUR VR WR XR YR ZR [R \R ]R ^R _R `R aR4bi4/i4)ic555dR4)i4,idie5+fVhs]6kgobj  gport  gfilenamefrnrs/records/procedural.scm  R '   C5gR4)ih+i_Vhs]6kgobj  gport  gfilenamefrnrs/records/procedural.scm  X '   C5jR44i5kRU%h0^] 45$M$C L6CVgobj  *gt  (  * gnamegprivate-record-predicateCl-mnopq7r*sY5kZVX\]g+tht]L6lgobj  gport  gfilenamefrnrs/records/procedural.scm  *  C(ha-13M @Yg parent-struct gargs   gnameg field-binderC6h_]^H H HHHO   Q "w (  " $ 4 5  "$" 4 5   "4455"4 5   "rKJKJK4 4  4 555K K $& $445>"G""$ 45"$"$ "   $A J J       $ C456JO  J J O K $4>"G"CWgname  gparent  guid   gsealed?   gopaque?   gfields   g fields-pair   g fields-layout   gfields-bit-field   g field-names  glate-rtd  gprivate-record-predicate  g field-list % g layout-sym % glayout-bit-field  % gcounter  % gkey  8 g matching-rtd 3 gopaque? 3 grtd   gfilenamefrnrs/records/procedural.scm ^    gnamegmake-record-type-descriptorCIRgh]$CC}gobj  gfilenamefrnrs/records/procedural.scm    gnamegrecord-type-descriptor?CHRu\X%Gh)]L6!gd    Cj@vh8d-13445M> G4L?@\gargs 4gn-args  4gp-args   4gp  , 4 4 ChP]LOCHgn    gnamegdefault-inherited-protocolChF]C>gp     gnamegdefault-protocolC h` ]H45K$"4O5$"$ O"Cgrtd  ]gparent-constructor-descriptor  ]gprotocol   ]g rtd-arity   ]gprtd   ]gpcd  2 ]gfilenamefrnrs/records/procedural.scm   ] gnameg"make-record-constructor-descriptorCGR_`aS^h.-13LL@&gargs   Ch A-134L?LOC9gargs gstruct    C^h.-13L@&gargs   ChH]!$45O"O6grctd  Ggrtd  Gg parent-rctd   Ggprotocol   Ggparent-record-constructor  & :gfilenamefrnrs/records/procedural.scm   G gnamegrecord-constructorCSR[h~]Cvgrtd  gfilenamefrnrs/records/procedural.scm    gnamegrecord-predicateCRR%h M]L&LC L6Egobj     gnamegrecord-accessor-innerCUpq%h@+]45$"445>"GL&LC L6#gobj  @  @ Ch(] OQOCgrtd  !gk  !grecord-accessor-inner  !gfilenamefrnrs/records/procedural.scm   ! gnamegrecord-accessorCQRh@l] $/L& L"$C "Cdgobj  9gval  9gt   7  9 gnamegrecord-mutator-innerC]pqh<]L64gobj  gval    ChP]OQ  $445>"G"OCgrtd  Mgk  Mgrecord-mutator-inner  Mg bit-field   Egfilenamefrnrs/records/procedural.scm   M gnamegrecord-mutatorCFR4Iiwx5wR4Giwi5yR4Iizwix5zR4Giziyi5{R4Si{i5|R4Ii}zix5}R4Gi}i{i5~R4Si~i5R4Ii}ix5R4Si4Gii~i55qR4Ii5R4Si4Gii55R4Rii5R4Qii 5R4Qii 5R&hx]456pgobj  gfilenamefrnrs/records/procedural.scm     gnameg r6rs-raiseCpR&h`]4L56Xg continuation     gnamegr6rs-raise-continuable-internalCh]OB|gobj  gfilenamefrnrs/records/procedural.scm    gnamegr6rs-raise-continuableCRCIgm  +giface 2 giface Jgiface Q giface  jgfilenamefrnrs/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                     {     .   C6rnrs/records/inspection.go000064400000012223152537005630011701 0ustar00GOOF----LE-8-2.0{]_4h] gguile  gdefine-module*   grnrs grecords g inspection  gfilenameS frnrs/records/inspection.scm gpureS gversionS   gset-current-module   gresolve-r6rs-interface   g arithmetic gbitwise  gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module   !gbase "! #g procedural $# %gonly &g struct-ref 'g struct-vtable (gvtable-index-layout )g@@ *%&'() +gmodule-export! ,+ -+ .grecord-field-mutable? /grecord-type-field-names 0grecord-type-opaque? 1grecord-type-sealed? 2grecord-type-generative? 3grecord-type-uid 4grecord-type-parent 5g record-rtd 6./012345 7gmodule-re-export! 87 97 :gmodule-replace! ;: <: =grecord-type-name >grecord? ?=> @# Agrecord-internal? B@A C@A Dgrtd-index-name E@D F@D Ggrtd-index-parent H@G I@G Jg rtd-index-uid K@J L@J Mgrtd-index-sealed? N@M O@M Pgrtd-index-opaque? Q@P R@P Sgrtd-index-field-names T@S U@S Vgrtd-index-field-bit-field W@V X@V Ygassertion-violation Zf not a record [grecord-type-descriptor? \fnot a record type descriptor ]g guarantee-rtd ^gbitwise-bit-set?C5h Y]4     54>"G454 hM]45L6Egfilenamefrnrs/records/inspection.scm     CO>"G4"54 hM]45L6Egfilenamefrnrs/records/inspection.scm     CO>"G4$54 hM]45L6Egfilenamefrnrs/records/inspection.scm     CO>"G4*54 hM]45L6Egfilenamefrnrs/records/inspection.scm     CO>"G4- 6hM]456Egfilenamefrnrs/records/inspection.scm    C>"G49 hM]456Egfilenamefrnrs/records/inspection.scm    C>"G4< ?hM]456Egfilenamefrnrs/records/inspection.scm    C>"GCARFDRIGRLJROMRRPRUSRXVRA0h t]45$ 45CClgobj  gfilenamefrnrs/records/inspection.scm /    gnamegrecord?C>RAPY5Zh@] 45$$""$C6grecord  ?grtd  %gt * ?gfilenamefrnrs/records/inspection.scm 3  ; 7 )  ? gnameg record-rtdC5R[Y\h ]45$C6gwho  grtd  gfilenamefrnrs/records/inspection.scm 9   < !   gnameg guarantee-rtdC]R]=Dh}]45Cugrtd  gfilenamefrnrs/records/inspection.scm >    gnamegrecord-type-nameC=R]4Gh]45Cwgrtd  gfilenamefrnrs/records/inspection.scm @    gnamegrecord-type-parentC4R]3Jh|]45Ctgrtd  gfilenamefrnrs/records/inspection.scm B    gnamegrecord-type-uidC3R3]2h]4455C|grtd  gfilenamefrnrs/records/inspection.scm D    gnamegrecord-type-generative?C2R]1Mh]45Cxgrtd  gfilenamefrnrs/records/inspection.scm F    gnamegrecord-type-sealed?C1R]0Ph]45Cxgrtd  gfilenamefrnrs/records/inspection.scm H    gnamegrecord-type-opaque?C0R]/Sh]45C|grtd  gfilenamefrnrs/records/inspection.scm J    gnamegrecord-type-field-namesC/R^].Vh]456grtd  gk  gfilenamefrnrs/records/inspection.scm L    gnamegrecord-field-mutable?C.RCQgm  +giface 2 giface Jgiface Q giface  jgfilenamefrnrs/records/inspection.scm    #   %   &   '   (   )   *   ,   /   3   9  0 >   @   B  7 D  F  H  7 J  L   C6rnrs/files.go000064400000011136152537005630007171 0ustar00GOOF----LE-8-2.0F]y4hG ] gguile  gdefine-module*   grnrs gfiles  gfilenameS frnrs/files.scm gpureS gversionS  gset-current-module   gresolve-r6rs-interface   grename gonly g file-exists? g delete-file gcatch g@@  gdelete-file-internal   gcall-with-deferred-observers   !gmodule-use-interfaces! "! #! $gcurrent-module %$ &$ 'gbase ('  )g conditions *)  +g exceptions ,+  -gmodule-export! .- /- 0gi/o-error-port 1gi/o-port-error? 2gmake-i/o-port-error 3g &i/o-port 4gi/o-file-does-not-exist-error? 5g"make-i/o-file-does-not-exist-error 6g&i/o-file-does-not-exist 7gi/o-file-already-exists-error? 8g"make-i/o-file-already-exists-error 9g&i/o-file-already-exists :gi/o-file-is-read-only-error? ;g make-i/o-file-is-read-only-error gmake-i/o-file-protection-error ?g&i/o-file-protection @gi/o-error-filename Agi/o-filename-error? Bgmake-i/o-filename-error Cg &i/o-filename Dgi/o-error-position Egi/o-invalid-position-error? Fgmake-i/o-invalid-position-error Gg&i/o-invalid-position Hgi/o-write-error? Igmake-i/o-write-error Jg &i/o-write Kgi/o-read-error? Lgmake-i/o-read-error Mg &i/o-read Ng i/o-error? Ogmake-i/o-error Pg&i/o Q0123456789:;<=>?@ABCDEFGHIJKLMNOP! Rgmodule-re-export! SR TR U Vgmodule-replace! WV XV Y Zgraise [) \gmake-record-type-descriptor ][\ ^[\ _g&error `g list->vector a[` b[` cgrecord-constructor d[c e[c fg"make-record-constructor-descriptor g[f h[f igcondition-predicate j[i k[i lg immutable mgposition nlmD ogcondition-accessor p[o q[o rgrecord-accessor s[r t[r ugfilename vlu@ wgport xlw0C5hX]4     54>"G454 #&h@]45L68gfilenamefrnrs/files.scm     CO>"G4(54 #&h@]45L68gfilenamefrnrs/files.scm     CO>"G4*54 #&h@]45L68gfilenamefrnrs/files.scm     CO>"G4,54 #&h@]45L68gfilenamefrnrs/files.scm     CO>"G4 /&Qh@]4568gfilenamefrnrs/files.scm    C>"G4 T&Uh@]4568gfilenamefrnrs/files.scm    C>"G4 X&Yh@]4568gfilenamefrnrs/files.scm    C>"Gh]L6   CZBh>-134L566gkey gargs   Chp]OO6hgfilename  gfilenamefrnrs/files.scm @    gnameg delete-fileCR4^P_i4b55PR4e4hPi55OR4kPi5NR4^MPi4b55MR4e4hMi55LR4kMi5KR4^JPi4b55JR4e4hJi55IR4kJi5HR4^GPi4bn55GR4e4hGi55FR4kGi5ER4qGi4tGi 55DR4^CPi4bv55CR4e4hCi55BR4kCi5AR4qCi4tCi 55@R4^?Ci4b55?R4e4h?i55>R4k?i5=R4^<?i4b55gmodule-export! ?> @> Agmodule-re-export! BA CA Dgi/o-error-port Egi/o-port-error? Fgmake-i/o-port-error Gg &i/o-port Hgi/o-file-does-not-exist-error? Ig"make-i/o-file-does-not-exist-error Jg&i/o-file-does-not-exist Kgi/o-file-already-exists-error? Lg"make-i/o-file-already-exists-error Mg&i/o-file-already-exists Ngi/o-file-is-read-only-error? Og make-i/o-file-is-read-only-error Pg&i/o-file-is-read-only Qgi/o-file-protection-error? Rgmake-i/o-file-protection-error Sg&i/o-file-protection Tgi/o-error-filename Ugi/o-filename-error? Vgmake-i/o-filename-error Wg &i/o-filename Xgi/o-error-position Ygi/o-invalid-position-error? Zgmake-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 ag &i/o-read bg i/o-error? cgmake-i/o-error dg&i/o eDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcd543'&( fgmodule-replace! gf hf igwrite jgdisplay kgnewline lg write-char mgread ng peek-char og read-char pgclose-output-port qgclose-input-port rgopen-output-file sgopen-input-file tgwith-output-to-file ugwith-input-from-file vgcall-with-output-file wgcall-with-input-file xijklmnopqrstuvw yj zj {genums |{ }genum-set-constructor ~|} |} gmake-enumeration | | g no-create gno-fail g no-truncate  gblockC5h 7]4     54>"G4(54+.1hD]45L6<gfilenamefrnrs/io/simple.scm     CO>"G4954+.1hD]45L6<gfilenamefrnrs/io/simple.scm     CO>"G4;54+.1hD]45L6<gfilenamefrnrs/io/simple.scm     CO>"G4=54+.1hD]45L6<gfilenamefrnrs/io/simple.scm     CO>"G4+@1hD]456<gfilenamefrnrs/io/simple.scm    C>"G4+C1ehD]456<gfilenamefrnrs/io/simple.scm    C>"G4+h1xhD]456<gfilenamefrnrs/io/simple.scm    C>"GzjRh]456gfilename  gproc  gfilenamefrnrs/io/simple.scm w    gnamegcall-with-input-fileCwRh]456gfilename  gproc  gfilenamefrnrs/io/simple.scm z    gnamegcall-with-output-fileCvRw7h,]L6$gport    Ch]O6gfilename  gthunk  gfilenamefrnrs/io/simple.scm }    gnamegwith-input-from-fileCuRv8h,]L6$gport    Ch]O6gfilename  gthunk  gfilenamefrnrs/io/simple.scm    gnamegwith-output-to-fileCtR h y]444555456qgfilename  gfilenamefrnrs/io/simple.scm    gnamegopen-input-fileCsR h z]444555456rgfilename  gfilenamefrnrs/io/simple.scm    gnamegopen-output-fileCrRiqRipR3!h p-.,3#456hgport gfilenamefrnrs/io/simple.scm   gnameg read-charCoR3"h p-.,3#456hgport gfilenamefrnrs/io/simple.scm   gnameg peek-charCnR3#h k-.,3#456cgport gfilenamefrnrs/io/simple.scm   gnamegreadCmR4$h(-.,3#456zgchar !gport !gfilenamefrnrs/io/simple.scm  ! gnameg write-charClR4$h(n-.,3#45 6fgport !gfilenamefrnrs/io/simple.scm  ! gnamegnewlineCkR4%h(-.,3#456wgobject !gport !gfilenamefrnrs/io/simple.scm  ! gnamegwriteCiRC/gm  +giface 2 giface 9giface @ giface  Igfilenamefrnrs/io/simple.scm    u  j w  # z  # }  #          K    U      C6rnrs/io/ports.go000064400000112030152537005630007640 0ustar00GOOF----LE-8-2.0]4h4] gguile  gdefine-module*   grnrs gio gports  gfilenameS frnrs/io/ports.scm gpureS gversionS   gset-current-module   gresolve-r6rs-interface   gice-9 g binary-ports  gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module   !gonly "gbase #" $gassertion-violation %!#$ &genums '& (grecords )g syntactic *() +g exceptions ,+ -g conditions .- /gfiles 0/ 1gsrfi 2gsrfi-8 312 4grdelim 54 6gexcept 7graise 8gdisplay 9678 :gprefix ;!8 gmodule-export! ?> @> Agi/o-encoding-error-char Bgmake-i/o-encoding-error Cgi/o-encoding-error? Dg&i/o-encoding-error Egmake-i/o-decoding-error Fgi/o-decoding-error? Gg&i/o-decoding-error Hgstandard-error-port Igstandard-output-port Jgstandard-input-port Kg put-string Lg put-datum Mgput-char Nglookahead-char Og get-string-n Pgget-string-all Qgget-line Rg get-datum Sgget-char Tgopen-file-input/output-port Ugflush-output-port Vgmake-custom-textual-output-port Wgcall-with-string-output-port Xg call-with-bytevector-output-port Ygopen-file-output-port Zgopen-string-output-port [gopen-file-input-port \gopen-string-input-port ]gcall-with-port ^gport-has-set-port-position!? _gport-has-port-position? `gset-port-position! ag port-position bgtranscoded-port cg textual-port? dg binary-port? egport-transcoder fg port-eof? gg utf-16-codec hg utf-8-codec ig latin-1-codec jgnative-transcoder kgtranscoder-error-handling-mode lgtranscoder-eol-style mgtranscoder-codec ngmake-transcoder ogerror-handling-mode pgnative-eol-style qg eol-style rg buffer-mode? sg buffer-mode tg file-options uABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrst4 vgmodule-re-export! wv xv ygi/o-error-port zgmake-i/o-port-error {gi/o-port-error? |g &i/o-port }g"make-i/o-file-does-not-exist-error ~gi/o-file-does-not-exist-error? g&i/o-file-does-not-exist g"make-i/o-file-already-exists-error gi/o-file-already-exists-error? g&i/o-file-already-exists g make-i/o-file-is-read-only-error gi/o-file-is-read-only-error? g&i/o-file-is-read-only gmake-i/o-file-protection-error gi/o-file-protection-error? g&i/o-file-protection gi/o-error-filename gmake-i/o-filename-error gi/o-filename-error? g &i/o-filename gmake-i/o-invalid-position-error gi/o-invalid-position-error? g&i/o-invalid-position gmake-i/o-write-error gi/o-write-error? g &i/o-write gmake-i/o-read-error gi/o-read-error? g &i/o-read gmake-i/o-error g i/o-error? g&i/o gcurrent-error-port gcurrent-output-port gcurrent-input-port g get-string-n! 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 g close-port g output-port? g input-port? gport? g eof-object? g eof-object yz{|}~6 gmodule-replace!   gmake-syntax-transformer   g file-option gmacro g $sc-dispatch   gany  g syntax->datum ' ' g no-create gno-fail g no-truncate g syntax-object gquote g m-d35b14d-24 gtop  gribcage gsym    f l-d35b14d-29 f l-d35b14d-2a    gs   f l-d35b14d-26   gshift gdummy g type-name gsymbol gconstructor-syntax  g m-bfa5881-18   f l-bfa5881-1d f l-bfa5881-1e f l-bfa5881-1f f l-bfa5881-20   gx   f l-bfa5881-1a    gprivate &  gsyntax-violation ' ' gsymbol->string ' ' fnot a member of the set   f-source expression failed to match any pattern g_ geach-any  g datum->syntax ' '  gevery ' ' gmemq fnot a subset of the universe genum-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   gquoted-universe  f l-d35b14d-39   gsyms  f l-d35b14d-36    !guniverse "! #f l-d35b14d-34 $# %"$ & 'f l-d35b14d-31 (' )&( *f l-d35b14d-2e +* ,+ - %), .- /gmake-enumeration 0/- 1gnone 2gline 3gblock 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/` cgenum-set-member? dgenum-set-universe e' f' g'/ h'/ iglf jgcr kgcrlf lgnel mgcrnel ngls 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  / gignore greplace g m-d35b14d-9f  o  f l-d35b14d-a4 f l-d35b14d-a5    f l-d35b14d-a1     gerror-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     / gmake-record-type-descriptor * * g transcoder g immutable gcodec  q o  grecord-constructor * * g"make-record-constructor-descriptor * * g%make-transcoder gregister-record-type * * grecord-predicate * * g transcoder? grecord-accessor * * g%default-port-encoding f ISO-8859-1 fUTF-8 fUTF-16 gwith-throw-handler g system-error gsystem-error-errno gEACCES gEEXIST gENOENT gEROFS gwith-i/o-filename-conditions gmemv gEIO gEFBIG gENOSPC gEPIPE g condition gthrow gwith-i/o-port-error gwith-textual-output-conditions    gport gbody0 gbody  g m-d35b14d-cb    f l-d35b14d-d0  f l-d35b14d-d1  f l-d35b14d-d2  f l-d35b14d-d3          f l-d35b14d-cd       glambda  gwith-i/o-encoding-error  gwith-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 '& (%' )$( *) +) ,) -gwith-i/o-decoding-error .-) /g port-encoding 0gport-conversion-strategy 1gerror 2g substitute 3funsupported error handling mode 4g%make-transcoded-port 54 64 7gset-port-encoding! 8gset-port-conversion-strategy! 9gseek :gSEEK_CUR ;gSEEK_SET < ?gopen-input-string @gopen Ag r6rs-open BgO_CREAT CgO_TRUNC DgO_EXCL Egfile-options->mode FgO_RDONLY GgO_RDWR Hgopen-output-string Igget-output-string JgO_WRONLY Kgmake-soft-port Lgstring Mg string-length Nfw Og force-output P. Q. Rg &i/o-encoding Sg list->vector T.S U.S Vgchar WVA X. Y. Z. [. \gcondition-predicate ].\ ^.\ _gcondition-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 sgencoding-error tsp urt vp wgbegin xwp ygkey zyp {gsubr |{p }gmessage ~}p gerrno p p gchr p z|~ 7p Bp   v  g write-char gwrite gstring? gsubstring/shared fexpected 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      gdecoding-error    w y { }    7 E     g read-char gread g read-line gtrim g read-string g make-string g peek-char g dup->inport g dup->outportC5h@Z]4     54>"G454 hC]45L6;gfilenamefrnrs/io/ports.scm     CO>"G4%54 hC]45L6;gfilenamefrnrs/io/ports.scm     CO>"G4'54 hC]45L6;gfilenamefrnrs/io/ports.scm     CO>"G4*54 hC]45L6;gfilenamefrnrs/io/ports.scm     CO>"G4,54 hC]45L6;gfilenamefrnrs/io/ports.scm     CO>"G4.54 hC]45L6;gfilenamefrnrs/io/ports.scm     CO>"G4054 hC]45L6;gfilenamefrnrs/io/ports.scm     CO>"G4354 hC]45L6;gfilenamefrnrs/io/ports.scm     CO>"G4554 hC]45L6;gfilenamefrnrs/io/ports.scm     CO>"G4954 hC]45L6;gfilenamefrnrs/io/ports.scm     CO>"G4=54 hC]45L6;gfilenamefrnrs/io/ports.scm     CO>"G4@ uhC]456;gfilenamefrnrs/io/ports.scm    C>"G4x hC]456;gfilenamefrnrs/io/ports.scm    C>"G4 hC]456;gfilenamefrnrs/io/ports.scm    C>"G4 hH~] 45&"&"$C45 6vg file-option  Ggsym  Ggt  -gfilenamefrnrs/io/ports.scm  }   G Ch(c] 45$@6[gs  "gtmp "gfilenamefrnrs/io/ports.scm }   " C5R4thS]6Kgx  gfilenamefrnrs/io/ports.scm }   Ct.0hN]CFg t-d35b14d-43  g t-d35b14d-44     Ch])454L54L545$"44 5 >"G4  5$ @6gsym  gsyms gquoted-universe   g quoted-syms  ) gt  4 ]gtmp  d gtmp  o gfilenamefrnrs/io/ports.scm  }   Ch(c] 45$ O@6[gs  'gtmp 'gfilenamefrnrs/io/ports.scm }   ' C5tR4s123As hH] 45&"&"$C45 6wg buffer-mode  Ggsym  Ggt  -gfilenamefrnrs/io/ports.scm    G Ch(d] 45$@6\gs  "gtmp "gfilenamefrnrs/io/ports.scm   " C5sR4BCChT]6Lgx  gfilenamefrnrs/io/ports.scm   CBabhN]CFg t-d35b14d-6c  g t-d35b14d-6d     Ch])454L54L545$"44 5 >"G4  5$ @6gsym  gsyms gquoted-universe   g quoted-syms  ) gt  4 ]gtmp  d gtmp  o gfilenamefrnrs/io/ports.scm    Ch(d] 45$ O@6\gs  'gtmp 'gfilenamefrnrs/io/ports.scm   ' C5BRcdfhCh r]444455556jgsymbol  gfilenamefrnrs/io/ports.scm    gnameg buffer-mode?CrR4qijklmn1|qh}] 45&"F&"9&",&"&"&"$ C 4  5 6ug eol-style  {gsym  {gt  agfilenamefrnrs/io/ports.scm    { Ch(d] 45$@6\gs  "gtmp "gfilenamefrnrs/io/ports.scm   " C5qR4}~~hT]6Lgx  gfilenamefrnrs/io/ports.scm   C}hN]CFg t-d35b14d-95  g t-d35b14d-96     Ch])454L54L545$"44 5 >"G4  5$ @6gsym  gsyms gquoted-universe   g quoted-syms  ) gt  4 ]gtmp  d gtmp  o gfilenamefrnrs/io/ports.scm    Ch(d] 45$ O@6\gs  'gtmp 'gfilenamefrnrs/io/ports.scm   ' C5}R1ha]CYgfilenamefrnrs/io/ports.scm    gnamegnative-eol-styleCpR4o7o hH] 45&"&"$C45 6gerror-handling-mode  Ggsym  Ggt  -gfilenamefrnrs/io/ports.scm    G Ch(d] 45$@6\gs  "gtmp "gfilenamefrnrs/io/ports.scm   " C5oR4hT]6Lgx  gfilenamefrnrs/io/ports.scm   ChN]CFg t-d35b14d-be  g t-d35b14d-bf     Ch])454L54L545$"44 5 >"G4  5$ @6gsym  gsyms gquoted-universe   g quoted-syms  ) gt  4 ]gtmp  d gtmp  o gfilenamefrnrs/io/ports.scm    Ch(d] 45$ O@6\gs  'gtmp 'gfilenamefrnrs/io/ports.scm   ' C5R45R44i55R4i4i5>"GR4i5R4i 5kR4i 5lR4i 5mRph0-.,3#45#6gcodec -g eol-style -g handling-mode  -gfilenamefrnrs/io/ports.scm  - gnamegmake-transcoderCnRnih r][$"456jgt  gfilenamefrnrs/io/ports.scm    gnamegnative-transcoderCjRhg]C_gfilenamefrnrs/io/ports.scm     gnameg latin-1-codecCiRhe]C]gfilenamefrnrs/io/ports.scm     gnameg utf-8-codecChRhf]C^gfilenamefrnrs/io/ports.scm     gnameg utf-16-codecCgR}7 h`a-1345$"/$" $"$ "  4L56Ygargs ]gerrno  ]gconstruct-condition  P ] ] Ch]O6gfilename  gthunk  gfilenamefrnrs/io/ports.scm    gnamegwith-i/o-filename-conditionsCR7z hH@-134545$44L54 L556 @8gargs Cgerrno  C C Ch]O6gport  gmake-primary-condition  gthunk   gfilenamefrnrs/io/ports.scm    gnamegwith-i/o-port-errorCR4h d]C\gdummy  gport  gbody0   gbody      Ch(] 45$@6gx  "gtmp "  " g macro-typeg syntax-rulesgpatternsgportgbody0gbodyg...C5R4*+,.h d]C\gdummy  gport  gbody0   gbody      Ch(] 45$@6gx  "gtmp "  " g macro-typeg syntax-rulesgpatternsgportgbody0gbodyg...C5R/np0172$e3 hX]45$>4545$"$" 4   56C gport  Qgt Qgkey  ! Mgfilenamefrnrs/io/ports.scm H '  Q gnamegport-transcoderg documentationfdReturn the transcoder object associated with @var{port}, or @code{#f} if the port has no transcoder.CeR/h]45Cgport  gfilenamefrnrs/io/ports.scm   gnameg binary-port?g documentationfZReturns @code{#t} if @var{port} does not have an associated encoding, @code{#f} otherwise.CdRh]Cgport  gfilenamefrnrs/io/ports.scm    gnameg textual-port?g documentationfLAlways returns @code{#t}, as all ports can be used for textual I/O in Guile.CcRdNh(m]45$ 45"456egport  #gfilenamefrnrs/io/ports.scm   # gnameg port-eof?CfR67mk781213 hr]45445>"G45$4>"G":$4 >"G"4  45>"GCjgport  g transcoder  gresult  gkey  + gfilenamefrnrs/io/ports.scm t    gnamegtranscoded-portg documentationfReturn 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] 6gport  gfilenamefrnrs/io/ports.scm    gnameg port-positiong documentationfjReturn the offset (an integer) indicating where the next octet will be read from/written to in @var{port}.CaR9;h]6gport  goffset  gfilenamefrnrs/io/ports.scm    gnamegset-port-position!g documentationfNSet the position where the next octet will be read from/written to @var{port}.C`R>ah]L6   Ch.-13C&gargs  Ch ]4O5$CCgport  gfilenamefrnrs/io/ports.scm     gnamegport-has-port-position?g documentationf=Return @code{#t} is @var{port} supports @code{port-position}.C_R>`ah]L4L56   Ch.-13C&gargs  Ch ]4O5$CCgport  gfilenamefrnrs/io/ports.scm     gnamegport-has-set-port-position!?g documentationfBReturn @code{#t} is @var{port} supports @code{set-port-position!}.C^Rh(+] 4> G4>"GE#gport  (gproc  (gvals  (gfilenamefrnrs/io/ports.scm #   ( gnamegcall-with-portg documentationfCall @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> G4>"G6gproc ?g transcoder ?gport  ?gextract  ?gfilenamefrnrs/io/ports.scm ,  ? gnameg call-with-bytevector-output-portCXR?h]Y4>ZCZFgstr  gfilenamefrnrs/io/ports.scm 1  3 (   gnamegopen-string-input-portg documentationf1Open an input port that will read from @var{str}.C\R@h]Y4LL>ZCZF   C7mh@] 4O5$445>"G"Cgfilename  :gmode  :g buffer-mode   :g transcoder   :gport   :gfilenamefrnrs/io/ports.scm 6   : gnameg r6rs-openCARcBCDhH]45$ "45$ "45$ "Cg file-options  Dg base-mode  Dgfilenamefrnrs/io/ports.scm ?   D gnamegfile-options->modeCERfh3AFhH-.,3#444555##6 gfilename Cg file-options Cg buffer-mode  Cg transcoder  Cgfilenamefrnrs/io/ports.scm K  C gnamegopen-file-input-portg documentationf5Return an input port for reading from @var{filename}.C[Rfh3AEGhP"-.,3#444555##456gfilename Jg file-options Jg buffer-mode  Jg transcoder  Jgfilenamefrnrs/io/ports.scm S  J gnamegopen-file-input/output-portg documentationf=Return a port for reading from and writing to @var{filename}.CTRHIh]L6   Ch 5]Y45ZOD-gport  gfilenamefrnrs/io/ports.scm ^  a 4   gnamegopen-string-output-portg documentationfReturn 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.CZRfh3AEJhP-.,3#444555##456gfilename Jg file-options Jg buffer-mode  Jgmaybe-transcoder  Jgfilenamefrnrs/io/ports.scm f  J gnamegopen-file-output-portg documentationf4Return an output port for writing to @var{filename}.CYRHIh(!] 454>"G6gproc  !gport  !gfilenamefrnrs/io/ports.scm q   ! gnamegcall-with-string-output-portg documentationfzCall @var{proc}, passing it a string output port. When @var{proc} returns, return the characters accumulated in that port.CWRKLh)]L45 6!gc     CMh)]L 456!gs     CNh ]OO6gid  gwrite!  g get-position   g set-position!   gclose   gfilenamefrnrs/io/ports.scm x      gnamegmake-custom-textual-output-portCVROhu]6mgport  gfilenamefrnrs/io/ports.scm     gnamegflush-output-portCUR4QR|i4UW55RR4Y4[Ri55BR4^Ri5CR4aRi4cRi 55AR4quvxh?]C7gdummy  gbody     Ch(] 45$@6gx  "gtmp "  " g documentationfBConvert Guile throws to `encoding-error' to `&i/o-encoding-error'.g macro-typeg syntax-rulesgpatternsgbodyg...C5Rsh]LL6  C7Bh]456gkey  gsubr  gmessage   gerrno   gport   gchr      Ch]LLO6   Ch~]O6vgport  gchar  gfilenamefrnrs/io/ports.scm     gnamegput-charCMRsh]LL6  C7Bh]456gkey  gsubr  gmessage   gerrno   gport   gchr      Ch]LLO6   Ch]O6xgport  gdatum  gfilenamefrnrs/io/ports.scm     gnameg put-datumCLRs8M$KhXF]4L5$>L$0L$4LLLL5L64LL4L55L6LL6L6>gfilenamefrnrs/io/ports.scm Q  +  U C7Bh]456gkey  gsubr  gmessage   gerrno   gport   gchr      Ch]LLLLO6   Ch8-.,3##O6gport 3gs 3gstart  3gcount  3gfilenamefrnrs/io/ports.scm   3  gnameg put-stringCKRsh]LL6  C7Bh]456gkey  gsubr  gmessage   gerrno   gport   gchr      Ch]LLO6   Ch0-.,3#45O6wgobject *gport *gfilenamefrnrs/io/ports.scm   * gnamegdisplayC8R4Q|i4U55R4Y4[i55ER4^i5FR4-h?]C7gdummy  gbody     Ch(] 45$@6gx  "gtmp "  " g documentationfBConvert Guile throws to `decoding-error' to `&i/o-decoding-error'.g macro-typeg syntax-rulesgpatternsgbodyg...C5-Rh]L6   C7Ehw]456ogkey  gsubr  gmessage   gerrno   gport     Ch]LO6   Chl]O6dgport  gfilenamefrnrs/io/ports.scm     gnamegget-charCSRh]L6   C7Ehw]456ogkey  gsubr  gmessage   gerrno   gport     Ch]LO6   Chm]O6egport  gfilenamefrnrs/io/ports.scm     gnameg get-datumCRRh]L6  C7Ehw]456ogkey  gsubr  gmessage   gerrno   gport     Ch]LO6   Chl]O6dgport  gfilenamefrnrs/io/ports.scm     gnamegget-lineCQRh]L6   C7Ehw]456ogkey  gsubr  gmessage   gerrno   gport     Ch]LO6   Chr]O6jgport  gfilenamefrnrs/io/ports.scm     gnamegget-string-allCPRh@]454 545$C$C 6gport  <gcount  <gs  <grv   <gfilenamefrnrs/io/ports.scm    < gnameg get-string-ng documentationfRead 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.CORh]L6   C7Ehw]456ogkey  gsubr  gmessage   gerrno   gport     Ch]LO6   Chr]O6jgport  gfilenamefrnrs/io/ports.scm     gnameglookahead-charCNRhd]Y4 >ZCZF\gfilenamefrnrs/io/ports.scm     gnamegstandard-input-portCJRhe]Y4 >ZCZF]gfilenamefrnrs/io/ports.scm     gnamegstandard-output-portCIRhd]Y4 >ZCZF\gfilenamefrnrs/io/ports.scm     gnamegstandard-error-portCHRCgm  +giface 2 giface 8giface ? giface  Hgiface O giface  Xgiface _ giface  hgiface o giface  xgiface   gfilenamefrnrs/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 C6rnrs/mutable-pairs.go000064400000002647152537005630010643 0ustar00GOOF----LE-8-2.0]+4h] gguile  gdefine-module*   grnrs g mutable-pairs  gfilenameS frnrs/mutable-pairs.scm gpureS gversionS  gset-current-module   gresolve-r6rs-interface   gonly gset-car! gset-cdr!  gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module   !gmodule-export! "! #! $gmodule-re-export! %$ &$ ' (gmodule-replace! )( *(C5h(m]4     54>"G454 hH]45L6@gfilenamefrnrs/mutable-pairs.scm     CO>"G4# hH]456@gfilenamefrnrs/mutable-pairs.scm    C>"G4& 'hH]456@gfilenamefrnrs/mutable-pairs.scm    C>"G* hH]456@gfilenamefrnrs/mutable-pairs.scm    C6egm  +giface 2 gfilenamefrnrs/mutable-pairs.scm     " C6rnrs/programs.go000064400000002572152537005630007725 0ustar00GOOF----LE-8-2.0b]+4h] gguile  gdefine-module*   grnrs gprograms  gfilenameS frnrs/programs.scm gpureS gversionS  gset-current-module   gresolve-r6rs-interface   gonly g command-line gexit  gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module   !gmodule-export! "! #! $gmodule-re-export! %$ &$ ' (gmodule-replace! )( *(C5hh]4     54>"G454 hC]45L6;gfilenamefrnrs/programs.scm     CO>"G4# hC]456;gfilenamefrnrs/programs.scm    C>"G4& 'hC]456;gfilenamefrnrs/programs.scm    C>"G* hC]456;gfilenamefrnrs/programs.scm    C6`gm  +giface 2 gfilenamefrnrs/programs.scm      C6rnrs/base.go000064400000052774152537005630007016 0ustar00GOOF----LE-8-2.0U]4h,] gguile  gdefine-module*   grnrs gbase  gfilenameS f rnrs/base.scm gpureS gversionS  gset-current-module   gresolve-r6rs-interface   grename gexcept gerror graise gmap gstring-for-each  glog g log-internal  geuclidean-quotient gdiv  !geuclidean-remainder "gmod #!" $g euclidean/ %g div-and-mod &$% 'gcentered-quotient (gdiv0 )'( *gcentered-remainder +gmod0 ,*+ -g centered/ .g div0-and-mod0 /-. 0ginf? 1g infinite? 201 3gexact->inexact 4ginexact 534 6ginexact->exact 7gexact 867 9 #&),/258  :gcall-with-deferred-observers ;: <: =gmodule-use-interfaces! >= ?= @gcurrent-module A@ B@ Cgsrfi Dgsrfi-11 ECD Fgmodule-export! GF HF Igassert Jgassertion-violation Kgvector-for-each Lg vector-map Mgsymbol=? Ng boolean=? Oginteger-valued? Pgrational-valued? Qg real-valued? RIJKLMNOPQ  Sgmodule-re-export! TS US Vgidentifier-syntax Wg syntax-rules Xg letrec-syntax Yg let-syntax Zgunquote-splicing [gunquote \g quasiquote ]gapply ^gvalues _g dynamic-wind `gcall-with-values agcall/cc bgcall-with-current-continuation cg vector-fill! dg list->vector eg vector->list fg vector-set! gg vector-ref hg vector-length igvector jg make-vector kgvector? lg string-copy mg list->string ng string->list og string-append pg substring qg string>=? rg string<=? sgstring>? tgstring=? {gchar<=? |gchar>? }gcharchar g char->integer gstring->symbol gsymbol->string gfor-each 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 gstring->number gnumber->string g>= g<= g> g< g= gfinite? gnan? geven? godd? g negative? g positive? gzero? ginexact? gexact? ginteger? g rational? greal? gcomplex? gangle g magnitude g make-polar gatan gacos gasin gtan gcos gsin gexp gsqrt gexact-integer-sqrt gexpt gmake-rectangular g imag-part g real-part g rationalize ground gtruncate gceiling gfloor glcm ggcd g denominator g numerator gabs gmin gmax g/ g* g- g+ geq? gequal? geqv? gnot gand gor gcase gcond gset! gif glambda gquote gbegin gletrec* gletrec g let*-values g let-values glet* glet g define-syntax gdefine g procedure? gstring? gnumber? gpair? gnull? gchar? gsymbol? gboolean? VWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~471.+(%"Wk gmodule-replace!    f.string arguments must all have the same length g scm-error gwrong-type-arg fmap fCircular list: ~S fNot a list: ~S fList of wrong length: ~S gmake-syntax-transformer     g define-proxy  gmacro  g $sc-dispatch      gany gfree-id g syntax-object g@ gtop  gribcage  gx  g m-a850ec-9   f l-a850ec-b     gprivate !  "! #" $# %$ &gdummy 'gbinding (gmodule )goriginal *&'() + ,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! 7gresolve-interface 872! 92! :gsyntax-violation ;: <: =f-source expression failed to match any pattern >g identifier? ?> @> Ag m-a850ec-16 BA Cgid DC Eg m-a850ec-17 FE GF Hf l-a850ec-1e IH JDGI Kf l-a850ec-19 LK MGL Ngshift OBJMN1 P5O! Q7O! RO! SJM TS! Ug exceptions VUS! WTV XRW YQX ZS! [RZ \PY[ ]g_ ^geach-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! !  ! !    !   gmake-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! !  ! !    !   gmake-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!  !     !  !        !     gmake-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:< >gmake-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! ~gformat ~w! w! fassertion failed: ~s w! w!C5h%]4     54>"G4954<?Bh?]45L67gfilenamef rnrs/base.scm     CO>"G4E54<?Bh?]45L67gfilenamef rnrs/base.scm     CO>"G4<HBRh?]4567gfilenamef rnrs/base.scm    C>"G4<UBh?]4567gfilenamef rnrs/base.scm    C>"G4<Bh?]4567gfilenamef rnrs/base.scm    C>"GwvJJh Q]L$CLL@Igx  gfilenamef rnrs/base.scm  s    C]vh)]L6!gs    C hP)D345"-$C445>"G" "){34545$"4>"G"6$C44545>"G" "-1345454O>"G"=$C4 454 O5>"G" "gproc Jgstring Jgend   Jgi   Cgproc S gstring1 S gstring2  S gend1  a gend2  a gi  gproc Mgstring Mgstrings  Mgend  Mgends  Mgi   Fgfilenamef rnrs/base.scm y e  J  S  M  gnamegstring-for-eachCR 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   Tgfilenamef rnrs/base.scm ( / * 5  + 1 ' - ' - F ' O  U  u % ~     %    -  3     c  gnamegmapCRh(a) 36]4545CYgn gn  !gbase  !    ! gnameglogCRh`-13"%(C$ "C(C45$ "Cgbools Yglst 2glast  2gbool   2gbool = Ygfilenamef rnrs/base.scm  Y gnameg boolean=?CNRhX-13"$(C& "C(C$ "Cgsyms Tglst 1glast  1gsym   1gsym < Tgfilenamef rnrs/base.scm  T gnamegsymbol=?CMRh i]45$ 45 CCagx  gfilenamef rnrs/base.scm    gnameg real-valued?CQRQh m]45$ 456Cegx  gfilenamef rnrs/base.scm    gnamegrational-valued?CPRPh l]45$4455CCdgx  gfilenamef rnrs/base.scm    gnameginteger-valued?COReh-1345@zgproc gvecs gfilenamef rnrs/base.scm   gnamegvector-for-eachCKRdeh }-13445?6ugproc gvecs gfilenamef rnrs/base.scm   gnameg vector-mapCLR4   %34689h(l]Cdgdummy  'gbinding  'gmodule   'goriginal   '  ' C<=h(] 45$@6gx  "gtmp "  " g macro-typeg syntax-rulesgpatternsgbindingg@gmodulegoriginalC5 R4  @hR]6Jgid  gfilenamef rnrs/base.scm     C\h*]C"gid     C_oh)]C!gx     C<=h@]4?$@45$@6gx  :gtmp  :gtmp  # :gfilenamef rnrs/base.scm   : g macro-typegidentifier-syntaxC5R4 p @hR]6Jgid  gfilenamef rnrs/base.scm     Ch*]C"gid     C_h)]C!gx     C<=h@]4?$@45$@6gx  :gtmp  :gtmp  # :gfilenamef rnrs/base.scm   : g macro-typegidentifier-syntaxC5pR4  @hR]6Jgid  gfilenamef rnrs/base.scm      Ch*]C"gid     C_h)]C!gx     C<=h@]4?$@45$@6gx  :gtmp  :gtmp  # :gfilenamef rnrs/base.scm    : g macro-typegidentifier-syntaxC5R4  @hR]6Jgid  gfilenamef rnrs/base.scm      Ch*]C"gid     C_h)]C!gx     C<=h@]4?$@45$@6gx  :gtmp  :gtmp  # :gfilenamef rnrs/base.scm    : g macro-typegidentifier-syntaxC5R4  @hR]6Jgid  gfilenamef rnrs/base.scm      Ch*]C"gid     C_h)]C!gx     C<=h@]4?$@45$@6gx  :gtmp  :gtmp  # :gfilenamef rnrs/base.scm    : g macro-typegidentifier-syntaxC5R4  @hR]6Jgid  gfilenamef rnrs/base.scm      C-h*]C"gid     C_=h)]C!gx     C<=h@]4?$@45$@6gx  :gtmp  :gtmp  # :gfilenamef rnrs/base.scm    : g macro-typegidentifier-syntaxC5R4 > @hR]6Jgid  gfilenamef rnrs/base.scm      CVh*]C"gid     C_fh)]C!gx     C<=h@]4?$@45$@6gx  :gtmp  :gtmp  # :gfilenamef rnrs/base.scm    : g macro-typegidentifier-syntaxC5>R57ghp> h-134455444554444555$4445 55"4445 554445 555?6gwho gmessage g irritants  gfilenamef rnrs/base.scm    gnamegerrorCR57ghp> h-134455444554444555$4445 55"4445 554445 555?6gwho gmessage g irritants  gfilenamef rnrs/base.scm    gnamegassertion-violationCJR4 I ixyz|} h0E] C=gdummy  +g expression  +  + C<=h(x] 45$@6pgx  "gtmp "  " g macro-typeg syntax-rulesgpatternsg expressionC5IRCgm  +giface 2 giface 4gfilenamef rnrs/base.scm    X }  d   e  "  $8    % C6rnrs/enums.go000064400000022341152537005630007216 0ustar00GOOF----LE-8-2.0$]4h] gguile  gdefine-module*   grnrs genums  gfilenameS frnrs/enums.scm gpureS gversionS  gset-current-module   gresolve-r6rs-interface   gonly gand=>  gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module   gbase !   "g conditions #"  $g exceptions %$  &grecords 'g procedural (&'  )g syntax-case *)  +gsrfi ,g:1 -+, .gmodule-export! /. 0. 1gdefine-enumeration 2genum-set-projection 3genum-set-complement 4genum-set-difference 5genum-set-intersection 6genum-set-union 7g enum-set=? 8genum-set-subset? 9genum-set-member? :genum-set->list ;genum-set-constructor gmake-enumeration ?123456789:;<=> @gmodule-re-export! A@ B@ Cgmodule-replace! DC EC Fgmake-record-type-descriptor Ggenum-set Hgmutable Iguniverse JHI Kg immutable Lgset MKL NJM Og enum-set-rtd Pgrecord-constructor Qg"make-record-constructor-descriptor Rg make-enum-set Sgrecord-accessor Tgenum-set-universe-internal Ugrecord-mutator Vgenum-set-universe-set! Wg enum-set-set Xglength Ygmemq Zg list-copy [glset-intersection \geq? ]glset<= ^g lset-union _graise `gmake-assertion-violation aglset-difference bgmake-syntax-transformer cb db egmacro fg $sc-dispatch gf hf igany jgeach-any kiiji lg syntax-object mgbegin ngtop on pgribcage qgdummy rg type-name sgsymbol tgconstructor-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 gx  w f l-bfa5881-1a  p o~ gprivate  lm g define-syntax l glambda l gs l  l) gsym l  gif l lY g syntax->datum l gsyntax l   gquote l   gsyntax-violation l gsymbol->string l fnot a member of the set l l  g_ l g... l  glet* l lI gsyms l     gquoted-universe l g datum->syntax l glist l     g quoted-syms l     gor l gevery l l     fnot a subset of the universe l  g quasisyntax l l; l> gunsyntax l          f-source expression failed to match any patternC5hx]4     54>"G454h@]45L68gfilenamefrnrs/enums.scm     CO>"G4!54h@]45L68gfilenamefrnrs/enums.scm     CO>"G4#54h@]45L68gfilenamefrnrs/enums.scm     CO>"G4%54h@]45L68gfilenamefrnrs/enums.scm     CO>"G4(54h@]45L68gfilenamefrnrs/enums.scm     CO>"G4*54h@]45L68gfilenamefrnrs/enums.scm     CO>"G4-54h@]45L68gfilenamefrnrs/enums.scm     CO>"G40?h@]4568gfilenamefrnrs/enums.scm    C>"G4Bh@]4568gfilenamefrnrs/enums.scm    C>"G4Eh@]4568gfilenamefrnrs/enums.scm    C>"G4FiGN5OR4Pi4QiOi55RR4SiOi 5TR4UiOi 5VR4SiOi 5WRRVh] 456g symbol-list  ges gfilenamefrnrs/enums.scm -    gnamegmake-enumerationC>RTh] 45$CC|genum-set  gt gfilenamefrnrs/enums.scm 1    gnamegenum-set-universeC=R:=XYXh-]L45C%gprobe    Ch)]4L5LO6!gx     Ch(]445545OCgenum-set  #gsymbols  #g cardinality   #gfilenamefrnrs/enums.scm 5   # gnamegenum-set-indexerClistC:RYWh]4455$CCgsymbol  genum-set  gfilenamefrnrs/enums.scm F    gnamegenum-set-member?C9R]\W=h@]4445544555$45456Cg enum-set-1  ;g enum-set-2  ;gfilenamefrnrs/enums.scm I   ; gnamegenum-set-subset?C8R8h ]45$6Cg enum-set-1  g enum-set-2  gfilenamefrnrs/enums.scm O    gnameg enum-set=?C7R=R^\W_`h@]4545$ 454454556456g enum-set-1  >g enum-set-2  >gfilenamefrnrs/enums.scm S   > gnamegenum-set-unionC6R=R[\W_`h@]4545$ 454454556456g enum-set-1  >g enum-set-2  >gfilenamefrnrs/enums.scm \   > gnamegenum-set-intersectionC5R=Ra\W_`h@]4545$ 454454556456g enum-set-1  >g enum-set-2  >gfilenamefrnrs/enums.scm e   > gnamegenum-set-differenceC4R=Ra\:Wh(] 454454556genum-set  &guniverse &gfilenamefrnrs/enums.scm n   & gnamegenum-set-complementC3RR=[\W:h(]45445445556g enum-set-1  'g enum-set-2  'gfilenamefrnrs/enums.scm t   ' gnamegenum-set-projectionC2R4d1ehkh}]         Cugdummy  g type-name  gsymbol   gconstructor-syntax     Ch(] 45$@6gx  "gtmp "  " g macro-typeg syntax-rulesgpatternsg type-namegsymbolg...gconstructor-syntaxC51RCwgm  +giface 2 giface 5giface < giface  Egiface L giface  Ugiface \ gfilenamefrnrs/enums.scm   W  n $  } (   )   +  R -   1   5  <  F A  F  I  O  S   \   e  X n  5 t   x C6rnrs/mutable-strings.go000064400000002671152537005630011213 0ustar00GOOF----LE-8-2.0]+4h] gguile  gdefine-module*   grnrs gmutable-strings  gfilenameS frnrs/mutable-strings.scm gpureS gversionS  gset-current-module   gresolve-r6rs-interface   gonly g string-set! g string-fill!  gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module   !gmodule-export! "! #! $gmodule-re-export! %$ &$ ' (gmodule-replace! )( *(C5h0o]4     54>"G454 hJ]45L6Bgfilenamefrnrs/mutable-strings.scm     CO>"G4# hJ]456Bgfilenamefrnrs/mutable-strings.scm    C>"G4& 'hJ]456Bgfilenamefrnrs/mutable-strings.scm    C>"G* hJ]456Bgfilenamefrnrs/mutable-strings.scm    C6ggm  +giface 2 gfilenamefrnrs/mutable-strings.scm     , C6rnrs/unicode.go000064400000005550152537005630007520 0ustar00GOOF----LE-8-2.0P ]K4h] gguile  gdefine-module*   grnrs gunicode  gfilenameS frnrs/unicode.scm gpureS gversionS  gset-current-module   gresolve-r6rs-interface   gonly g char-upcase g char-downcase gchar-titlecase 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? "gchar-set-contains? #gchar-set:title-case $gchar-general-category %g string-upcase &gstring-downcase 'gstring-titlecase (g string-ci=? )g string-ci? +g string-ci<=? ,g string-ci>=? -gstring-normalize-nfd .gstring-normalize-nfkd /gstring-normalize-nfc 0gstring-normalize-nfkc 1 !"#$%&'()*+,-./0! 2gcall-with-deferred-observers 32 42 5gmodule-use-interfaces! 65 75 8gcurrent-module 98 :8 ;gbase <;  =gmodule-export! >= ?= @gstring-foldcase Agchar-title-case? Bg char-foldcase C@AB Dgmodule-re-export! ED FD G0/.-,+*)('&%$!  Hgmodule-replace! IH JHC5h]4     54>"G415447:hB]45L6:gfilenamefrnrs/unicode.scm     CO>"G4<5447:hB]45L6:gfilenamefrnrs/unicode.scm     CO>"G44?:ChB]456:gfilenamefrnrs/unicode.scm    C>"G44F:GhB]456:gfilenamefrnrs/unicode.scm    C>"G44J:hB]456:gfilenamefrnrs/unicode.scm    C>"Gh0p]0$"1$C456hgchar  -gfilenamefrnrs/unicode.scm `   - gnameg char-foldcaseCBR"#hs]6kgchar  gfilenamefrnrs/unicode.scm d   gnamegchar-title-case?CAR&%hq]456igstr  gfilenamefrnrs/unicode.scm f   gnamegstring-foldcaseC@RCgm  +giface 2 giface 7gfilenamefrnrs/unicode.scm   S `   d   f    C6rnrs/bytevectors.go000064400000007010152537005630010434 0ustar00GOOF----LE-8-2.0 ]n4ho ] gguile  gdefine-module*   grnrs g bytevectors  gfilenameS frnrs/bytevectors.scm gversionS  gexportsS g endianness gnative-endianness g bytevector? gmake-bytevector gbytevector-length g bytevector=? gbytevector-fill! gbytevector-copy! gbytevector-copy guniform-array->bytevector gbytevector-u8-ref gbytevector-s8-ref gbytevector-u8-set! gbytevector-s8-set! gbytevector->u8-list gu8-list->bytevector gbytevector-uint-ref gbytevector-uint-set! gbytevector-sint-ref !gbytevector-sint-set! "gbytevector->sint-list #gbytevector->uint-list $guint-list->bytevector %gsint-list->bytevector &gbytevector-u16-ref 'gbytevector-s16-ref (gbytevector-u16-set! )gbytevector-s16-set! *gbytevector-u16-native-ref +gbytevector-s16-native-ref ,gbytevector-u16-native-set! -gbytevector-s16-native-set! .gbytevector-u32-ref /gbytevector-s32-ref 0gbytevector-u32-set! 1gbytevector-s32-set! 2gbytevector-u32-native-ref 3gbytevector-s32-native-ref 4gbytevector-u32-native-set! 5gbytevector-s32-native-set! 6gbytevector-u64-ref 7gbytevector-s64-ref 8gbytevector-u64-set! 9gbytevector-s64-set! :gbytevector-u64-native-ref ;gbytevector-s64-native-ref gbytevector-ieee-single-ref ?gbytevector-ieee-single-set! @g!bytevector-ieee-single-native-ref Ag"bytevector-ieee-single-native-set! Bgbytevector-ieee-double-ref Cgbytevector-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> Mgset-current-module NM OM Pgload-extension Qg string-append Rf libguile- Sgeffective-version Tfscm_init_bytevectors Ugmake-syntax-transformer VU WU Xgmacro Yg $sc-dispatch ZY [Y \g_ ]gany ^\] _g syntax->datum `_ a_ bg datum->syntax cb db egbig fglittle ggquote hgerror ifunsupported endianness jgsyntax-violation kj lj mf-source expression failed to match any patternC5hX]4     L54O>"G4Pi4QiR4Si55T>"G4WX[^adefghih(]&"$C6xgsym  (gfilenamefrnrs/bytevectors.scm M N   N   O  $ P ( P   ( Chh] 45L4?6`gargs  gv gfilenamefrnrs/bytevectors.scm  M    Clmh(f] 45$ O@6^gy  'gtmp 'gfilenamefrnrs/bytevectors.scm M   ' C5RCgm  ,gfilenamefrnrs/bytevectors.scm   - J 2 J  8 J  9 J + A J  C K  H J   U C6rnrs/control.go000064400000002631152537005630007547 0ustar00GOOF----LE-8-2.0]-4h] gguile  gdefine-module*   grnrs gcontrol  gfilenameS frnrs/control.scm gpureS gversionS  gset-current-module   gresolve-r6rs-interface   gonly gwhen gunless gdo g case-lambda  gcall-with-deferred-observers   gmodule-use-interfaces!   gcurrent-module !  "  #gmodule-export! $# %# &gmodule-re-export! '& (& ) *gmodule-replace! +* ,*C5hg]4     54>"G454"hB]45L6:gfilenamefrnrs/control.scm     CO>"G4%"hB]456:gfilenamefrnrs/control.scm    C>"G4(")hB]456:gfilenamefrnrs/control.scm    C>"G,"hB]456:gfilenamefrnrs/control.scm    C6_gm  +giface 2 gfilenamefrnrs/control.scm      C6texinfo/plain-text.go000064400000041042152537005630010643 0ustar00GOOF----LE-8-2.0 B]4hC] gguile  gdefine-module*   gtexinfo g plain-text  gfilenameS ftexinfo/plain-text.scm gimportsS    g string-utils   gsxml g transform   gsrfi gsrfi-1   gsrfi-13   gice-9 gmatch     !gexportsS "gstexi->plain-text #" $gset-current-module %$ &$ 'gand=> (gassq )gcdr *garg-ref +gerror ,fMissing argument: -garg-req .g make-ticker /gformat 0f~A.  1gmake-enumerator 2g make-fluid 3f 4g*indent* 5f*  6g *itemizer* 7gmake-syntax-transformer 87 97 :g with-indent ;gmacro < ?g_ @gany 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  Ngsyntax-violation ON PN Qf-source expression failed to match any pattern Rgapply Sg make-indenter Tf  Ug string-indent Vg with-itemizer Wg fill-string Xgstring-concatenate Yg line-widthS Zginitial-indentS [gsubsequent-indentS \gwrap* ]f  ^gwrap _g wrap-heading `gnode agname bgmanual cgxref dfSee  ecd fgpxref gfsee  hfg ieh jgcadr kf in manual  lgref mgurl ngtitle of ( pf) qf` rf' sguref tgdefun ufFunction vgdefspec wf Special Form xgdefvar yfVariable zgcategory {f -  |f:  }g string-join ~gfilter gidentity gmap g data-type gclass g arguments a f  gdef g% gstart g string-ref gnumber? gstring->number g char->integer gchar-upper-case? g enumerate gitemize g string-length g string-null? g string-copy! gitem gtable gheading gentry gmake-underliner gchapter gsection g subsection g subsubsection g string-split gexample gverbatim g map-in-order gfragment gpara gmake-surrounder gcode f< f> gkey g string-upcase gvar g passthrough gfoo gpage g setfilename gsetchapternewpage giftex gifinfo g ifplaintext gifxml gsp gvskip gmenu gignore g syncodeindex gcomment gc ganchor ` g ignore-list gmemq gignored? gappendix g appendixsec gappendixsubsec gappendixsubsubsec g unnumbered g unnumberedsec gunnumberedsubsec gunnumberedsubsubsec g majorheading g chapheading g subheading g subsubheading gstrong f* gsample gsamp gmath gkbd genv gfile gcommand goption gdfn f" gcite gacro gemail gemph f_ gsc g copyright f(C) gresult f==> gdots f... g quotation glisp g smallexample g smalllisp g *fragment* gdeftp gdefcv gdefivar g deftypeivar gdefop g deftypeop g defmethod g deftypemethod gdefopt gdefvr g deftypevr g deftypevar gdeffn g deftypefn gdefmac g deftypefun g tag-handlers gstring?C5h.]4    !#54&>"G'()"h ]44556gkey  g%-args  gfilenameftexinfo/plain-text.scm %  &  &   &   &   &  &    gnamegarg-refC*R*+,h ] 45$C6gkey  g%-args  gt  gfilenameftexinfo/plain-text.scm (  )  )   * *   gnamegarg-reqC-RhI]LCAgfilenameftexinfo/plain-text.scm -    Chr]OCjgstr  gfilenameftexinfo/plain-text.scm ,   gnameg make-tickerC.R/0h]MMN6|glast  gfilenameftexinfo/plain-text.scm /   0  1  1   2   2    Cht]HOClgn  gfilenameftexinfo/plain-text.scm .    gnamegmake-enumeratorC1R42i354R42i4.i5556R49:;>ADGH4IKLMh(s-13Ckgn 'gbody 'gfilenameftexinfo/plain-text.scm 7 8  ' Chj] 45L4?6bgargs  gv gfilenameftexinfo/plain-text.scm  7    CPQh(h] 45$ O@6`gy  'gtmp 'gfilenameftexinfo/plain-text.scm 7   ' C5:R4ILRh0f-134[4L 55Y4L>ZCZF^gargs .gfilenameftexinfo/plain-text.scm =   =  . Ch]OC|gn  gproc  gfilenameftexinfo/plain-text.scm <   gnameg make-indenterCSRI4Th][6|gstr  gfilenameftexinfo/plain-text.scm ? @ * @   gnameg string-indentCUR49V;>ADGH6h z-13Crgitemizer gbody gfilenameftexinfo/plain-text.scm B C   Chj] 45L4?6bgargs  gv gfilenameftexinfo/plain-text.scm  B    CPQh(h] 45$ O@6`gy  'gtmp 'gfilenameftexinfo/plain-text.scm B   ' C5VR4WXYZ[h(-13[45 H6gstrings %gindent %gfilenameftexinfo/plain-text.scm F G   H  % H  % gnamegwrap*C\RI\]h-134?6gstrings gfilenameftexinfo/plain-text.scm K L   L '  L   gnamegwrapC^RI\Th-134?6gstrings gfilenameftexinfo/plain-text.scm M N   N '  N   gnameg wrap-headingC_R-`*abX'(ij3k hx]"4545$"4544 5 5$" $  "6gtag  sgargs  sgnode  sgt   )gname  ) sgmanual  4 sgt  H [gfilenameftexinfo/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 gnamegrefClR-m*nIopqr h8]4545$ 6 6 gtag  4gargs  4gurl   4gtitle   4gfilenameftexinfo/plain-text.scm Z  [  [  [ \   \   \   [   ]  $ ^  ( ^ & * ^  . _  2 _  4 _   4 gnamegurefCsRtuvwxy-zI_{|}~*ha]L6Ygx  gfilenameftexinfo/plain-text.scm e  e   C4L"h~-13$"'$"$" 45 4 4   4 44O555554 [4  55Y45Z6vgtag gargs gbody  gcategory  ? gfilenameftexinfo/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   gnamegdefCR*614IL"h-13$$ ""$45"4$H4 545$ 45"!4 54 4 5$A"a5" 5Y 4  [4  55Y4$"> Z"ZCZFgtag gelts gargs?  ) gstart  @ gc  U gfilenameftexinfo/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  {  }  }  } % } $ gnameg enumerateCR6.54IL"h@-1345Y4[4  55Y4> Z"ZCZFgtag =gargs =gelts  =gfilenameftexinfo/plain-text.scm       *  =  gnamegitemizeCR"64hh6-13454[54[54545$" $4>"G"C.gtag bgelts bgret   bgtick   bgtick-pos  * bgfilenameftexinfo/plain-text.scm          #  *  *  -  7  ? + A & E  F  b gnamegitemCR"h-136gtag gargs gbody  gfilenameftexinfo/plain-text.scm     gnamegtableCR_"-I4LhH-134445554[4  55Y45Z6gtag Agargs Agbody  Agheading   Agfilenameftexinfo/plain-text.scm    %  .  %       8 " A  A  gnamegentryCR"ITULh8-1345454445L556gtag 4gbody 4gstr   4gfilenameftexinfo/plain-text.scm           !  $ # .  0  2  4  4 Chx]OCpgchar  gfilenameftexinfo/plain-text.scm   gnamegmake-underlinerCR4i*5R4i=5R4i-5R4i.5R"IX4LUT hH-134544[4  55Y44 55Z5 6gtag Cgbody Cgret   Cgfilenameftexinfo/plain-text.scm     -  2 ( <  ?  A  C  C gnamegexampleCR"IXUTh0-1345444 5556gtag -gbody -gret   -gfilenameftexinfo/plain-text.scm         '  )  +  -  - gnamegverbatimCRX"h-13456gtag gbody gfilenameftexinfo/plain-text.scm     gnamegfragmentCR^"h-13456gtag gbody gfilenameftexinfo/plain-text.scm     gnamegparaCRI"h-13L45L6ygtag gbody gfilenameftexinfo/plain-text.scm       Chw]OCogstr  gfilenameftexinfo/plain-text.scm   gnamegmake-surrounderCRIq"rh-13456gtag gbody gfilenameftexinfo/plain-text.scm     .    gnamegcodeCRI"h-13456gtag gbody gfilenameftexinfo/plain-text.scm     .    gnamegkeyCR"h-13456gtag gbody gfilenameftexinfo/plain-text.scm     gnamegvarCR"h-136gtag gbody gfilenameftexinfo/plain-text.scm    gnameg passthroughCR-nI"h(-134455456gtag (gargs (gbody  (gtitle   (gfilenameftexinfo/plain-text.scm       &        (  (  gnamegtexinfoCRRhy]6qgtag  gfilenameftexinfo/plain-text.scm   gnamegignored?CRniiiiiiiiiiiiiiiiii4i5iiiiiiiiiiimi4i54i5ii4i5ihh-13C`gargs gfilenameftexinfo/plain-text.scm   Chh-13C`gargs gfilenameftexinfo/plain-text.scm   Chh-13C`gargs gfilenameftexinfo/plain-text.scm   Cclilliflissii4Si i5iiiiiiiiiiiiiiiiiiiiixiiiiiivitiiLR3'(jX" h](C45$C$$b$D45$"#4455$"$@C$  4  56C$  4  56C$  4  56Cgtree  gw & gx  & gt  X kghandler  k |gfilenameftexinfo/plain-text.scm #  %  &  %  9 )  C )  I *  L * $ X *  X *  k )  s ,  y - { .  %  0  0  1  %  0  0  1  %  0  0  1   gnamegstexi->plain-textg documentationf7Transform @var{tree} into plain text. Returns a string.C"RCgm  ,gfilenameftexinfo/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  . C6texinfo/string-utils.go000064400000040617152537005630011231 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 C6texinfo/docbook.go000064400000023123152537005630010176 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������texinfo/html.go�������������������������������������������������������������������������������������0000644�����������������00000037056�15253700563�0007534 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0>������]^�4��������hp������]� g��guile � g��define-module* � � g��texinfo g��html � g��filenameS f��texinfo/html.scm g��importsS �  � g��sxml g�� transform � � g��ice-9 g��match � � g��srfi g��srfi-13 � �  � g��exportsS g�� stexi->shtml g��add-ref-resolver! g��urlify � g��set-current-module ! � " � #g��and=> $g��assq %g��arg-ref &g��error 'f��Missing argument: (g��arg-req )g��car* *g��string-downcase +g�� string-map ,g�� string-append -f��� .f��# /g�� ref-resolvers 0g��or-map 1f��Could not resolve reference 2g�� resolve-ref 3g��node 4g��section 5g��manual 6g��span 7g��xref 8f��See  978� :g��pxref ;f��see  <:;� =9<� >g��cdr ?g��a @g��@ Ag��href Bg��ref Cg��url Dg��title Eg��uref Fg��name G-� Hg��defun If��Function Jg��defspec Kf�� Special Form Lg��defvar Mf��Variable Ng��category Og��div Pg��table Qg�� cellpadding Rf��0 SQR� Tg�� cellspacing UTR� Vg��width Wf��100% XVW� Yg��class Zf��def [YZ� \@SUX[� ]g��tr ^g��td _g�� data-type `g��code ag��b bg�� deftypeop cg�� deftypefn dg�� deftypefun eg�� arguments fg��var gg��reverse! hf��  if��right jYi� k@j� lf��[ mf��] nm� of�� description pYo� q@p� rg��def sg��ol tg��% ug��start vg�� string-ref wg��number? xg��string->number yg�� char->integer zg��char-upper-case? {g�� enumerate |g��ul }g��itemize ~g��acronym &� �&� �f��no matching pattern �g�� formatter �g��dl �g��map �g��dt �g��append �g��dd �g��itemx �g��heading �g��entry �g�� titlepage �f�� titlepage �Y� �@� �O� �g��h2 �f��title �Y� �@� �D� �g��subtitle �g��h3 �f��subtitle �Y� �@� �� �g��author �f��author �Y� �@� �� �g��example �g��pre �� �g��lisp �� �g�� smallexample �f��smaller �Y� �@� �� �g�� smalllisp �� �g�� cartouche �f�� cartouche �Y� �@� �O� �g��verbatim �f��verbatim �Y� �@� �� �g��chapter �� �4� �g�� subsection �g��h4 �� �g�� subsubsection �g��h5 �� �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�� quotation �g�� blockquote �� �g��item �g��li �� �g��para �g��p �� �g�� *fragment* �O� �g��asis �6� �g��bold �a� �g��sample �g��samp �� �� �``� �g��kbd �� �g��key �f��key �Y� �@� �`� �ff� �g��env �f��env �Y� �@� �`� �g��file �f��file �Y� �@� �`� �g��command �f��command �Y� @�� `� g��option f��option Y� @� `� f��url  Y�  @ �  C` �  g��dfn    � g��cite � g��acro ~� g��email f��email Y� @� `� g��emph g��em � g��strong � g��sc f�� small-caps Y� @�  6� !   �3 "g��tag-replacements #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 0g��c 1g�� dircategory 2g��direntry 3g��top 4g�� shortcontents 5g��cindex 6g�� printindex 7#$%&'()*+,-./0123456� 8g�� ignore-list 9g�� *preorder* :g��pre-post-order ;g��xmlns <f��http://www.w3.org/1999/xhtml =;<� >@=� ?g��head @g��body Ag��*text* Bg�� *default* Cg�� copyright Dg��*ENTITY* Ef��copy FDE� Gg��result Hf��rArr IDH� Jg��anchor Kg��deftp Lg��defcv Mg��defivar Ng�� deftypeivar Og��defop Pg�� defmethod Qg�� deftypemethod Rg��defopt Sg��defvr Tg�� deftypevr Ug�� deftypevar Vg��deffn Wg��defmac Xg��ifnottex Yg��memq Zg��warn [f��Don't know how to convert \f��to HTML ]g��rulesC�5���h&��$��]4   5�4"�>��"��G���#$�h���c���]�6�������[�������g��x  ��g��filenamef��texinfo/html.scm / !  / ; / -�  ���C��h������]4�56�������������g��key  �g��%-args  ��g��filenamef��texinfo/html.scm .  / /   /  / �   ��g��nameg��arg-ref�C%R%&'�������h ������] 4�5$��C�6�������g��key  �g��%-args  �g��t  ��g��filenamef��texinfo/html.scm 0  1  1   2 2 �  ��g��nameg��arg-req�C(Rh���s���]�$���CC��k�������g��x  ��g��filenamef��texinfo/html.scm 3  3  3 �   ��g��nameg��car*�C)R*+���h0���[���]� $��"���/$��"���:$��-C�C���S�������g��c  -��g��filenamef��texinfo/html.scm 8  9 �  - ���C��h���w���]4�56�o�������g��str  ��g��filenamef��texinfo/html.scm 5  7   6 �   ��g��nameg��urlify�CR,-.��h ������]4$��"���56����������g�� node-name  �g�� manual-name  ��g��filenamef��texinfo/html.scm @   A A   A ,  A 0  A  A �   ���C�/R/��������h�����]� C�����������g��proc  ��g��filenamef��texinfo/html.scm C  K  K �  ��g��nameg��add-ref-resolver!g�� documentationf�XAdd @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.�CR0�������h���[���]�LL�6������S�������g��x  ��g��filenamef��texinfo/html.scm N  N �  ���C/&1����h(������] 4�O�5$��C�6��������g��node  '�g��manual  '�g��t   '��g��filenamef��texinfo/html.scm M  N   N  ! O ' O �  ' ��g��nameg�� resolve-ref�C2R(3)%4526#$=>?@A���hx�����]"454455$��"��4455454 4 � 5 5 ����C���������g��tag  u�g��args  u�g��node  u�g��t   /�g��section  / u�g��manual  ? u�g��target  J u��g��filenamef��texinfo/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 ��g��nameg��ref�CBR(C?@A)%D� ����hH������]45��4455$��"���C��������������g��tag  A�g��args  A�g��url  A�g��t  * =��g��filenamef��texinfo/html.scm Y  Z   Z  Z  Z Z   [   [  [ # $ [ , ( [ # * [  * [  @ [ �  A ��g��nameg��uref�CER?@F(G������h(������]4455��C�������������g��tag  "�g��args  "��g��filenamef��texinfo/html.scm _  `  `  `   ` &  `   `   `   ` �  " ��g��nameg��node�C3RHIJKLM(NOP\]^%_`YaFbcdefghklnq������h��6��-�1�3��$��"��(�$��"���$��"�� 45     45$�� "��45$�� "���$�� "��45$�� "���$�� "���&��"���&��"���$��"45$�� "��"��645$�� "���$�� "���"��E(�� 45"��?(�� "(��"��""  ��� �C�����.������g��tag �g��args �g��body  �g��category  @ �g��x  U j�g��x  s ��g��x  � ��g��x  � ��g��x  � ��g��x   �g��x  $ 9�g��x  < Q�g��elts  T �g��in  Z �g��out  Z ��g��filenamef��texinfo/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   ��g��nameg��def�CrRst@u(vwxyz� ������h�����-�1�3�$��$��s&��c454 545$�� 45"��!4 54 4 5$��A"��a5�"��"��"��C�������g��tag ��g��elts ��g��start  2 {�g��c  < x��g��filenamef��texinfo/html.scm � �   �   �  � &  �   �  � 7 � C $ � & �  ) � * - � 3 0 � : 2 � * 2 � 5 � < �  ? � I �  J �  U �  \ �  _ � , i � ( s �  t �  u �  | �  � �  � � � � �! � ��g��nameg�� enumerate�C{R|t��������hX������-�1�3�$��=$�� &��"��"��"��C������������g��tag S�g��elts S�g��w   K�g��x   K�g��w  & ?��g��filenamef��texinfo/html.scm � �   � R � � S ��g��nameg��itemize�C}Rt~���h��� ��-�1�3� $��(��$��&��$��q$��T&��5$��!(�� �C456�456�456�456�456�456�456�456�456���������g��tag ��g��elts ��g��w   ��g��w  ) ��g��x  ) ��g��w  ? ��g��w  R ��g��x  R ��g��w  o y�� g��filenamef��texinfo/html.scm � �  s � z � � � ��g��nameg��acronym�C~R(�����h(������]�$���&�� �L���C�C�C����������g��x  %��g��filenamef��texinfo/html.scm �   �  �  � ,  � 4  �   �   � 6  � &  � �  % ���C������h0������-�1�3�454O�4?5C����������g��tag -�g��args -�g��body  -�g�� formatter   -��g��filenamef��texinfo/html.scm � �   � "  �   �   �   �  � # �  + � , � � -  ��g��nameg��table�CPR(� �h�����-�1�3�"��^"��45�6$��:$��.&�� 4455""""45�"����������g��tag ��g��args ��g��body  ��g��out  k�g��body  k��g��filenamef��texinfo/html.scm � �   �   �  ! �  & �  & �  ) � - �  0 � ! 1 �  5 �  8 � 2 ; � > ? �  @ � F �  G �  N � 1 Q �  R �  T � W � _ �  k �  m �  n �  r � ! v �  w �  � � � �  ��g��nameg��entry�CR!"R78Rt9����h���Y���-��1��3��C����Q�������g��args ��g��filenamef��texinfo/html.scm � � ���C:>?D(@t9�h���Y���-��1��3�C�����Q�������g��args ��g��filenamef��texinfo/html.scm � (� ���CA��h���e���]C���]�������g��tag  �g��x  ��g��filenamef��texinfo/html.scm � (�   ���CB������h���r���-�1�3��C�j�������g��tag �g��body ��g��filenamef��texinfo/html.scm � (  � *�  ���C���hH������-�1�3�45���     �6�������������g��tag B�g��args B�g��body  B��g��filenamef��texinfo/html.scm �  �   � *  � 3  � *  � % �  - �  B � � B  ���CCF��������h���b���-��1��3�C����Z�������g��args ��g��filenamef��texinfo/html.scm �  � � ���CGI���h���b���-��1��3�C����Z�������g��args ��g��filenamef��texinfo/html.scm �  � � ���C7BiBBi:BiEEi33iJ3iPPi{{i}}i~~i9iKriLriMriNriOribriPriQriRriSriLriTriUriVricriWriJriHridriX����h���i���-�1�3�C����a�������g��tag �g��body ��g��filenamef��texinfo/html.scm  � ���CA�h���e���]C���]�������g��tag  �g��x  ��g��filenamef��texinfo/html.scm  �   ���CB$"Y8Z[\� ����hP������-�1�3�4�5$�� 64�5$��C4�>��"��G��C������������g��tag K�g��body K�g��subst   K��g��filenamef��texinfo/html.scm    !         & #   $   0   3   7   ;  > @  � K ���C�%]R:]�������h��� ��]�6������������g��tree  ��g��filenamef��texinfo/html.scm   �  ��g��nameg�� stexi->shtmlg�� documentationf��~Transform the stexi @var{tree} into shtml, resolving references via ref-resolvers. See the module commentary for more details.�CRC�������������g��m  ,��g��filenamef��texinfo/html.scm  & w . ^ 0  3 " 5  ?   >  C  M Q J Y J _  b ( � _ � t �  �  �  �   �  �   �  �  % � &  �  & ���C6�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������texinfo/reflection.go�������������������������������������������������������������������������������0000644�����������������00000072521�15253700563�0010716 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������texinfo/indexing.go���������������������������������������������������������������������������������0000644�����������������00000005520�15253700563�0010364 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������texinfo/serialize.go��������������������������������������������������������������������������������0000644�����������������00000037576�15253700563�0010566 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0f?������]��4���hw������]� g��guile � g��define-module* � � g��texinfo g�� serialize � g��filenameS f��texinfo/serialize.scm g��importsS �  � g�� string-utils � � g��sxml g�� transform � � g��srfi g��srfi-1 � � g��srfi-13 � �  � g��exportsS g�� stexi->texi � g��set-current-module ! � " � #g��reverse $g��list-intersperse %g��reverse! &g��filter* 'g��append (g��list* )f��  *f��  +f��@ ,g��include -g�� empty-command .g��string=? /f��*braces* 0f��@} 1g�� append-map 2f��@{ 3f��} 4f��{ 5g�� inline-text 6g��map 7g��warn 8f��Strange inline-args! 9g��error :f��Invalid inline-args ;f��� <g�� drop-while =g��not >g��assq-ref ?f��, @g�� inline-args A?� Bg��inline-text-args C*� Dg��serialize-text-args Eg�� eol-text-args Fg��eol-text Gf��,  Hg��eol-args If��@bye  Jf�� @c %**end of header  Kg��title Lf�� @settitle  Mg��and=> Ng��filename Of�� @setfilename  Pf��8\input texinfo @c -*-texinfo-*- @c %**start of header  Qf��  Rf��@end  Sg�� string-ref Tg�� string-length Ug��environ Vg��symbol->string Wg�� table-environ Xg�� fill-string Yg��string-concatenate Zg�� line-widthS [g��break-long-words?S \g��wrap ]g�� paragraph ^f��@item  _g��item `f��@item  ag��entry bf�� @c %end of fragment  cf�� @c %start of fragment  dg��fragment eg�� EMPTY-COMMAND fg�� INLINE-TEXT gg�� INLINE-ARGS hg��INLINE-TEXT-ARGS ig��EOL-TEXT jg�� EOL-TEXT-ARGS kg��INDEX lg��EOL-ARGS mg��ENVIRON ng�� TABLE-ENVIRON og��ENTRY pg��ITEM qg�� PARAGRAPH rg��FRAGMENT sg�� serializers tf��Unknown command type u}{@� vg�� escaped-chars wg��string xg��memq yg�� string->list zg��escape {g��string-concatenate-reverse |g��string? }g��assq ~g��texi-command-specs g��symbol? �g��% �f��$Unknown stexi command, not rendering �f�� Invalid stexiC�5����h5��<��]4   5�4"�>��"��G���#������h@�����]�(���C"�� (��6"���"������g��src-l  @�g��elem  @�g��l   /�g��dest   /��g��filenamef��texinfo/serialize.scm "  #   $   %   %   &  ! & & & ( ' &  / & / $  2 $  5 $ - 8 $ 9 @ $ �  @ ��g��nameg��list-intersperse�C$R%����hh���F��]"��U(��6$��#4�5$�� "��"4�5$�� "��""��>������g��pred  f�g��l  f�g��in   [�g��out   [��g��filenamef��texinfo/serialize.scm )  *  +   ,  -  +   .   .  " . " $ .  ( .  + . 2 . . , < . = 0  > 0  H 0  M 0 ! [ 0 [ *  ^ *  f * �  f ��g��nameg��filter*�C&R#'�������hx���z��-��1��3�4�5"��K(��C$��45"(�� """�����r������g��args s�g��args  s�g��tail   s�g��in   f�g��out   f��g��filenamef��texinfo/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 ��g��nameg��list*�C(R()$*+�����h �����]456�������������g��exp  �g��lp  �g��command   �g��type   �g��formals   �g��args   �g��accum   ��g��filenamef��texinfo/serialize.scm ?   @  A C  A  D  D   @ �   ��g��nameg��include�C,R(*+����h������]6���������g��exp  �g��lp  �g��command   �g��type   �g��formals   �g��args   �g��accum   ��g��filenamef��texinfo/serialize.scm F  G G   G �   ��g��nameg�� empty-command�C-R./(01����h���h���]L��6�������`�������g��x  ��g��filenamef��texinfo/serialize.scm O   O + O %�  ���C#23h���h���]L��6�������`�������g��x  ��g��filenamef��texinfo/serialize.scm L   L + L %�  ���C4+� hP�����]45$��4O�4�556 4 O�4�55  6�������g��exp  O�g��lp  O�g��command   O�g��type   O�g��formals   O�g��args   O�g��accum   O��g��filenamef��texinfo/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 ��g��nameg�� inline-text�C5R(3$6789:;����h@������]�$��3�$��$�$��4L�>��"��G��"����CL�6C���������g��x  >��g��filenamef��texinfo/serialize.scm W   X  Y   X   Z #  Z   Z   [   [ " # [  2 \  7 ] $ ; ]  = X �  > ���C<=>������h���`���]L��6������X�������g��x  ��g��filenamef��texinfo/serialize.scm _ _ ,�  ���C#?;4+���hP���b��]$��144O�44O�4 5555 5"��   6�������Z������g��exp  I�g��lp  I�g��command   I�g��type   I�g��formals   I�g��args   I�g��accum   I��g��filenamef��texinfo/serialize.scm R  S T U  V   ^   _  ) ` 1 _  3 ^  5 V  7 a  9 U ? T  A b E b  I S �  I ��g��nameg�� inline-args�C@R(3'$61���h���h���]L��6�������`�������g��x  ��g��filenamef��texinfo/serialize.scm k (  k : k 4�  ���C#���h���h���]L�O�4�56����`�������g��x  ��g��filenamef��texinfo/serialize.scm k  k @  k �   ���C<=>������h���`���]L��6������X�������g��x  ��g��filenamef��texinfo/serialize.scm m ! m -�  ���C#A;4+���hP���w��]$��6444O�44 O�4 5555 5?"��  6��o������g��exp  N�g��lp  N�g��command   N�g��type   N�g��formals   N�g��args   N�g��accum   N��g��filenamef��texinfo/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 ��g��nameg��inline-text-args�CBR'$61��h���h���]L��6�������`�������g��x  ��g��filenamef��texinfo/serialize.scm v #  v 5 v /�  ���C�����h���b���]L�O��6�Z�������g��arg  ��g��filenamef��texinfo/serialize.scm v  v �   ���C#<=>��h���`���]L��6������X�������g��x  ��g��filenamef��texinfo/serialize.scm z  z �  ���CC� ��h@�����]44�O�444O�455555 5@�������������g��lp  :�g��formals  :�g��args   :��g��filenamef��texinfo/serialize.scm r  u   v   w  y  z  & {  . z  0 y 2 w 4 v  6 |  8 u  : s �  : ��g��nameg��serialize-text-args�CDR()D*+��������h �����]456�����������g��exp  �g��lp  �g��command   �g��type   �g��formals   �g��args   �g��accum   ��g��filenamef��texinfo/serialize.scm ~    �  �  �    �   ��g��nameg�� eol-text-args�CER()1�����h���k���]L��6�������c�������g��x  ��g��filenamef��texinfo/serialize.scm �   � ' � !�  ���C#*+����h8���C��]4O�4$���"���556������;������g��exp  2�g��lp  2�g��command   2�g��type   2�g��formals   2�g��args   2�g��accum   2��g��filenamef��texinfo/serialize.scm �  �  �  �   �   � ' $ � 2 & �  ( � * � . �  2 � �  2 ��g��nameg��eol-text�CFR()$'<=6>�����h���b���]L��6������Z�������g��x  ��g��filenamef��texinfo/serialize.scm � " � .�  ���C#G*+� ��h8���^��]4444O�4 555? 5  6��V������g��exp  6�g��lp  6�g��command   6�g��type   6�g��formals   6�g��args   6�g��accum   6��g��filenamef��texinfo/serialize.scm �  �  � � �   �   � " $ �  & �  ( � * � , � . � 2 �  6 � �  6 ��g��nameg��eol-args�CHR(I1����h���k���]L��6�������c�������g��x  ��g��filenamef��texinfo/serialize.scm �   � * � $�  ���C#J>KLMN)#O�����h������]4�5C�������g��filename  ��g��filenamef��texinfo/serialize.scm �   �   � $ � 3 � -  � $  � �   ���C;PQRh���k���]L��6�������c�������g��x  ��g��filenamef��texinfo/serialize.scm � $  � 6 � 0�  ���CST)D*+������h�����]�$��T4O�4�5544 55 4 4 5 5$��"��64O�4$���"���55(��"��4455 $��"��456 ������g��exp  ��g��lp  ��g��command   ��g��type   ��g��formals   ��g��args   ��g��accum   ��g��key   ��g��t  K ^�g��body  � ��� g��filenamef��texinfo/serialize.scm �  �   �   �  �  � 0 $ � 9 ' � 0 ) � + � , � / �  5 � $ 7 �  9 � ; � - < �  ? �  E � & G �  K �  K � [ �  ` � d �  h � l �  m �  w � $  � - � � 6 � � A � � $ � �  � � � �  � �  � �  � � ( � � , � � ; � � , � � ( � �  � �  � �  � �  � �  � � � � � � � �  � � �6  � ��g��nameg��environ�CUR(QR1���h���k���]L��6�������c�������g��x  ��g��filenamef��texinfo/serialize.scm �   � ' � !�  ���C#);V+*� �����hh�����]4O�4$���"���55$�� "��$��4 5 �"��  6 ������g��exp  h�g��lp  h�g��command   h�g��type   h�g��formals   h�g��args   h�g��accum   h�g��arg  ? ^��g��filenamef��texinfo/serialize.scm �  � �  �  �   �  � ' ( � 2 * �  , � . � 4 �  7 �  ? � + ? � D �  H � I �  N � % P �  R � 0 U �  ` � d �  h � �  h ��g��nameg�� table-environ�CWRXYZ[���h������]4�5 H6����y�������g��strings  ��g��filenamef��texinfo/serialize.scm �  �   � �   ��g��nameg��wrap�C\R(Q\#1�������h���k���]L��6�������c�������g��x  ��g��filenamef��texinfo/serialize.scm �   � ) � #�  ���C��h(���D��]444O�4�55556<������g��exp  (�g��lp  (�g��command   (�g��type   (�g��formals   (�g��args   (�g��accum   (��g��filenamef��texinfo/serialize.scm �  �  � � �  � /  � 8  � / � " � $ � ( � �  ( ��g��nameg�� paragraph�C]R(1��h���k���]L��6�������c�������g��x  ��g��filenamef��texinfo/serialize.scm �   � ' � !�  ���C#^������h �����]4O�4�556��������g��exp  �g��lp  �g��command   �g��type   �g��formals   �g��args   �g��accum   ��g��filenamef��texinfo/serialize.scm �  �  � -  � 6  � -  �  �  � �   ��g��nameg��item�C_R(1���h���k���]L��6�������c�������g��x  ��g��filenamef��texinfo/serialize.scm �   � ' � !�  ���C#)�������h���k���]L��6�������c�������g��x  ��g��filenamef��texinfo/serialize.scm �   � ' � !�  ���C`��������h8���R��]4O�4�554O�4556��J������g��exp  6�g��lp  6�g��command   6�g��type   6�g��formals   6�g��args   6�g��accum   6��g��filenamef��texinfo/serialize.scm �  �  � -  � 6  � -  �  �  � & � - + � 6 . � - 0 � 2 � 6 � �  6 ��g��nameg��entry�CaR(b1��h���k���]L��6�������c�������g��x  ��g��filenamef��texinfo/serialize.scm �   � ' � !�  ���C#c������h ���(��]4O�4�556 ������g��exp  �g��lp  �g��command   �g��type   �g��formals   �g��args   �g��accum   ��g��filenamef��texinfo/serialize.scm �  �  �  � -  � 6  � -  �  � � �  ��g��nameg��fragment�CdRe-if5ig@ihBiiFijEikEilHimUinWioaip_iq]irdi,i�sR>s9t���h8���&��]45$��"�� 4�5�6����������g��exp  4�g��lp  4�g��command   4�g��type   4�g��formals   4�g��args   4�g��accum   4�g��t  4��g��filenamef��texinfo/serialize.scm �  �  �   �   �  $ �  4 � �  4 ��g��nameg�� serialize�CRuvRw#xvy����h`�����]"��D(�� 45@45$��@""4�5"������������g��str  Z�g��in  J�g��out   J��g��filenamef��texinfo/serialize.scm �  �  �   �   �   �  �  ! � % �  ( �  + � " 0 �  9 � < �  ? � ! B �  J � J �  K �  R � * Z � �  Z ��g��nameg��escapeg�� documentationf��BEscapes any illegal texinfo characters (currently @{, @}, and @@).�CzR{|z}~V&79���h��� ��] �$���"��$��C4�5$�� 4�5C�$��4�5$��r�L�4�545"��$��"��@�"��9�$��-�$��� &�� �"��""��""��"64  �>��"��G��C  �6�������g��in  ��g��out  ��g�� command-spec  > ���g��filenamef��texinfo/serialize.scm �   �  �   �  �   �  " �  # �  , �  0 �  4 �  5 �  : � ! > �  > �  F � M   R  ( T   W   Y   `  ) c   j   o   w   {   ~  &    �   �  7 �  0 �   �  $ �  / �   �   �  �   �   �   �   �  �,  � ��g��nameg��lp�C�����h ������] O�Q�4�56���������g��tree  �g��lp ��g��filenamef��texinfo/serialize.scm � �   �   �   � �   ��g��nameg�� stexi->texig�� documentationf��2Serialize the stexi @var{tree} into plain texinfo.�CRC�����4������g��m  ,��g��filenamef��texinfo/serialize.scm    " a ) m 3  ?   F I e R  d  r 2 ~ V �  � � #i � $ � &/ � ( � * � , � , �  -) � . � . �  . � 0 � 5 � �  5 ���C6�����������������������������������������������������������������������������������������������������������������������������������scripts/read-scheme-source.go�����������������������������������������������������������������������0000644�����������������00000021410�15253700563�0012241 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0"������]�N�4��������hA������]� g��guile � g��define-module* � � g��scripts g��read-scheme-source � g��filenameS f��scripts/read-scheme-source.scm g��importsS g��ice-9 g��rdelim   � � � g��exportsS g��read-scheme-source-silently g��quoted? g��clump � g��set-current-module � � g��%include-in-guild-list f��/Print a parsed representation of a Scheme file. g��%summary g��:type g��variable g�� define-module g��length g��define !g��alias "g��lambda #g��string? $g�� procedure %g�� :signature &g�� :std-int-doc 'g�� annotate! (g��quote )g��filename *g�� make-regexp +f��^#! ,f��^!# -f�� ^[ ]*(;+) .f��^[ ]*$ /g��open-input-file 0g�� eof-object? 1g�� regexp-exec 2g��hash-bang-comment 3g��:line 4g�� :line-count 5g�� :text-list 6g��reverse 7g�� read-line 8g�� whitespace 9g��:text :g��comment ;g��:leading-semicolons <g�� unread-string =g��read >g�� port-line ?g��append @g��following-form-properties Ag��process Bg��for-each Cg��write Dg��newline Eg��error Ff�� bad list! Gg��string->symbol Hg�� substring Ig��symbol->string Jg��assq-ref Kg��leading-semicolons Lg��text Mg��mainC�5��h�����]4   5�4�>��"��G���RR !"#$%&� h����]"��6�$�"���&��6""��B 4�5$��0�&��#�$���$��6"""" 4�5$��&� "���$���$��z 4�5$��e�&��U4�5$��@4 >��"��G��4 ��>��"��G�� �6"""""�$��c�$��U4 >��"��G��4 �>��"��G�� 4�5$��4�5$��  �6CC"""""f������g��form  �g��note!  ��g��filenamef��scripts/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   ��g��nameg�� annotate!�C'R()*+,-./0123456789:;<=>'?�����h������-��1��3�4M��5N�C���������g��args ��g��filenamef��scripts/read-scheme-source.scm � / � 7  � 1�  ��g��nameg��prop+�C@��������h`��i��]b4���>��"��G��454545454�5"�$�4 5  $�� C4 5$��"��p4  5  $��"�� 4  5 $��84   4 54  5��>��"��/G��"��(45    "45�  "|"�.4 5$��"4��>��"��G��"��4 5  $��44     ��>��"��G��"��4>��"��G��45 45H H 4  O�>��"��G��J   J   $��"��4>��"��G��J K  4  J  �>��"��G��4 >��"��G��    4545" C4545"��a������g��file  ^�g��nb!  ^�g�� hash-bang-rx  A ^�g�� bang-hash-rx  A ^�g��all-comment-rx  A ^�g��all-whitespace-rx  A ^�g��p  A ^�g��n  O G�g��line  O G�g��t \ E�g��line x ��g��text x ��g��t  ��g��t 8 .�g��m1 M Y�g��form  +�g��count  (�g��props  �g��props  %�g��t  ��g��filenamef��scripts/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 � , ^ � �\  ^ ��g��nameg��process�CARBA����h���t���]�M�N�C�����l�������g��e  ��g��filenamef��scripts/read-scheme-source.scm �   � 4 � *�  ���C�h���n���]�L�O�6�f�������g��file  ��g��filenamef��scripts/read-scheme-source.scm �   � �   ���C6�����h0�����-��1��3�H4O��>��"��G��J6�����������g��files +�g��res +��g��filenamef��scripts/read-scheme-source.scm � �  �  �  + � � + ��g��nameg��read-scheme-source-silentlyg�� documentationf��6See commentary in module (scripts read-scheme-source).�CRBACD��������h���t���]4�>��"��G��6�l�������g��e  ��g��filenamef��scripts/read-scheme-source.scm �   � (  � 2�   ���C�h���n���]�6������f�������g��file  ��g��filenamef��scripts/read-scheme-source.scm � � �  ���C�������h������-��1��3��6��������������g��files ��g��filenamef��scripts/read-scheme-source.scm �  � �  ��g��nameg��read-scheme-sourceg�� documentationf��6See commentary in module (scripts read-scheme-source).�CR(EFGHI��������h���B��]"$�� 45$��&��$��{ 45$��l�&��a"��Q(��C$��"��4>��"��G��4445 55""CCCCCC:������g��sym  ��g��form  ��g��inside  $ ��g��ls  G ��g��alist  G ��g��first  S ���g��filenamef��scripts/read-scheme-source.scm �  �  �  �  �   �   �  �  �  # �  $ �  ) �  - � / �  6 �  : � ? �  C � G �  M �  S � ! S �  X �  \ �  a �  e � ! j �  u �  w � # z � $ } � / � � $ � � # � � # � �  � �  � �  � �  � � 2 � � �)  � ��g��nameg��quoted?�CR6@82:JKL� ����h��t��]Y"�g(��6$��"45$��"45$��"45$��"|45$��"��(��45"G 4 5  $��I4 5  $��4  5"45"45"454 5�"E"�"�����l������g��forms  {�g��forms  m�g��acc   m�g��pass-this-one-through?   m�g��form   m�g��t  � m�g�� inner-forms  � 8�g��level  � 8�g��text  � 8�g�� inner-form � 8�g��t � 8�g�� new-level � �� g��filenamef��scripts/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  { ��g��nameg��clump�CRiMRC�������g��m  ,��g��filenamef��scripts/read-scheme-source.scm  V 0 ] 2 ^  5 ^  c  �  � F � ] � w � ~  �   ���C6���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������scripts/use2dot.go����������������������������������������������������������������������������������0000644�����������������00000007717�15253700563�0010171 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�[�4���h"������]� g��guile � g��define-module* � � g��scripts g��use2dot � g��filenameS f��scripts/use2dot.scm g��importsS g��srfi g��srfi-13   � g��selectS g�� string-join � � g��frisk � g�� make-frisker g�� edge-type g��edge-up g�� edge-down � � � g��exportsS � g�� autoloadsS g��ice-9 g�� getopt-long ! � " � #!"� $g��set-current-module %$� &$� 'f��1Print a module's dependencies in graphviz format. (g��%summary )g�� guile-user *)� +g��*default-module* ,g��format -f��~S .g��q /g��map 0f��~A=~A 1g��vv 2f��digraph use2dot {  3g��for-each 4f�� ~A;  5g��label 6f��Guile Module Dependencies 7g��ratio 8g��fill 978 :9� ;g��>>header <f�� "~A" -> "~A" =g��autoload >g��style ?g��dotted @>? Ag��fontsize BA  C@B� Dg��computed Eg��bold F>E GF� Hf�� [~A] If��, Jf��;  Kg��>>body Lf��} Mg��>>footer Ng��>> Of��use2dot Pg��default-module Qg�� single-char RQm� Sg��value TS� UPRT� VU� Wg�� option-ref Xg��reverse Yg��edges Zg��mainC�5�h` �����]4   #5 �4&�>��"��G���'(R*+R,-������h���s���]�6�����k�������g��s  ��g��filenamef��scripts/use2dot.scm ;  < < �  ��g��nameg��q�C.R/,0�������h���y���]��6�q�������g��pair  ��g��filenamef��scripts/use2dot.scm ?   @  @  @ '  @ �   ���C����h���p���]�6������h�������g��pairs  ��g��filenamef��scripts/use2dot.scm > ? �  ��g��nameg��vv�C1R,23,4������h���f���]�6�����^�������g��s  ��g��filenamef��scripts/use2dot.scm E  E # E �  ���C15.6:� ����h0������]�4>��"��G��445 56����������g��filenamef��scripts/use2dot.scm C  D   D D   F  F   F  # F  % F  & F  + F - E �  - ��g��nameg��>>header�C;R3,<=CDGH1IJ��������h�����] 44�54�5>��"��G��4�5$��"��$�� "��$��%4 4 4 5 5>��"��G��"���6���������g��edge  ��g��key * N�g��t N ~��g��filenamef��scripts/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 �  � ���C��h���t���]�6������l�������g��edges  ��g��filenamef��scripts/use2dot.scm M N �  ��g��nameg��>>body�CKR,L�h���j���]�6�������b�������g��filenamef��scripts/use2dot.scm Z  [ [ �  ��g��nameg��>>footer�CMR;KM�h(������]4>���"��G��4�>��"��G��6�x�������g��edges  (��g��filenamef��scripts/use2dot.scm ]  ^   _  ( ` �  ( ��g��nameg��>>�CNR OVWP+NXY� ����hP�����-��1��3�4�54545454 445 556������g��args P�g�� parsed-args  P�g��=m  " P�g��scan  . P�g��files  9 P��g��filenamef��scripts/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 ��g��nameg��use2dot�CRiZRC��������g��m  0��g��filenamef��scripts/use2dot.scm  0 2 7  5 7 7 9  : 9 � ;  >  C  M  Z S ] V b ] k �  _ ���C6��������������������������������������������������scripts/generate-autoload.go������������������������������������������������������������������������0000644�����������������00000007662�15253700563�0012203 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�2�4����h������]� g��guile � g��define-module* � � g��scripts g��generate-autoload � g��filenameS f��scripts/generate-autoload.scm g��exportsS � g��set-current-module  �  � g��%include-in-guild-list f��)Generate #:autoload clauses for a module. g��%summary g��open-input-file g�� eof-object? g��read g��length g��defmacro-public g�� define-public g�� define-module g��member g��:export g��append g��export g�� export-syntax g�� autoload-info f��--target !g��display "f��;;; do not edit --- generated  #g��strftime $f��%Y-%m-%d %H:%M:%S %g�� localtime &g�� current-time 'g��newline (f��(define-module  )f�� (guile-user) *g��for-each +f�� :autoload  ,f��  -f��) .f�� ;;;  /f�� symbols in  0f�� modules  1g��mainC�5�����h( �����]4    5�4�>��"��G���RR� ��h����])4�5"�45$��$��(��C�CC"��45"$�a"��F 45$��4&��'$��45"""""�� 45$��n&��a"��'$��45"1"t$��)$��45"""":"6 45$��&��:454 5$��4 5"��" &��"�� $��454 5"d"""45"E������������g��file  �g��p �g��form   �g�� module-name   �g��exports   �g��t  J f�g��t  s ��g��filenamef��scripts/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   ��g��nameg�� autoload-info�CR !"#$%&'()**!+,��������h(������]MN45M�N���6�����������g�� module-name  $�g��exports  $��g��filenamef��scripts/generate-autoload.scm } (  ~ =  ~ *   >   ;   *  � :  � F " � 4 $ � *�  $ ���C��h ������] 4�5$�� LL�O�@C�������g��file  �g��t ��g��filenamef��scripts/generate-autoload.scm y   z  z   } !�  ���C-./0����h��J��-��1��3� H H4�5$��"��$���"���4>��"��G��44445�55>��"��G��4 >���"��G��4 >��"��G��4$��"�� >��"��G��4  O�>��"��G��4>��"��G��4 >���"��G�� JJ�6����B������g��args �g�� module-count �g�� syms-count  �g��t   ,�g��target-override  , �g��files  ? ��g��filenamef��scripts/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  � �  � � � �  � �  � �  � � ' � � )  �   � �)  ��g��nameg��generate-autoload�CRi1RC���������g��m  (��g��filenamef��scripts/generate-autoload.scm  : , = . >  1 >  @  n $ � �  & ���C6�������������������������������������������������������������������������������scripts/disassemble.go������������������������������������������������������������������������������0000644�����������������00000002174�15253700563�0011067 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0d������]�#�4���h������]� g��guile � g��define-module* � � g��scripts g�� disassemble � g��filenameS f��scripts/disassemble.scm g��importsS g��system g��vm g��objcode   � � g��language g��assembly � g��prefixS g��asm: � � g��exportsS � g��set-current-module � � f�� Disassemble a compiled .go file. g��%summary g��for-each g��asm:disassemble !g�� load-objcode "g��mainC�5�������h��z���]4   5�4�>��"��G���R !����h���m���]4�56���e�������g��file  ��g��filenamef��scripts/disassemble.scm $  %  % �  ���C��������h������-��1��3��6�������w�������g��files ��g��filenamef��scripts/disassemble.scm #  $ �  ��g��nameg�� disassemble�CRi"RC�����r�������g��m  ,��g��filenamef��scripts/disassemble.scm   . !  1 ! r # y ( �  { ���C6�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������scripts/snarf-check-and-output-texi.go��������������������������������������������������������������0000644�����������������00000043443�15253700563�0014031 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0 G������]��4���h ������]� g��guile � g��define-module* � � g��scripts g��snarf-check-and-output-texi � g��filenameS f��'scripts/snarf-check-and-output-texi.scm g��importsS g��ice-9 g��streams   � � g��match  � � � g��exportsS � g��set-current-module � � g��%include-in-guild-list f��8Transform snarfed .doc files into texinfo documentation. g��%summary g��make-syntax-transformer � � g��when g��macro !g�� $sc-dispatch "!� #!� $g��_ %g��any &$% 'g�� syntax->datum ('� )'� *g�� datum->syntax +*� ,*� -g��if .g��begin /g��syntax-violation 0/� 1/� 2f��-source expression failed to match any pattern 3g��unless 4g��not 5g�� *manual-flag* 6g��member 7f��--manual 8g��process-stream 9g��current-input-port :g�� stream-null? ;g�� stream-car <g�� snarf_cookie =g��dispatch-top-cookie >g�� stream-cdr ?g�� stream-map @g��string? Ag��string Bg��int_hex Cg��int Dg��string->number Eg��int_oct Fg��int_dec Gg��id Hg��string->symbol Ig�� make-stream Jg��eol Kg��hash Lg�� port->stream Mg��read Ng��error Og��syntax Pf��premature end of file Qg�� brace_open Rg��consume-multiline Sg��consume-upto-cookie Tg��process-singleline Uf��*premature end of file in directive context Vg��reverse! Wg��begin-multiline Xf��*premature end of file in multiline context Yg�� brace_close Zg�� end-multiline [g��process-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* hg��register ig��length jg��format kf��;~A:~A: ~A's C implementation takes ~A args (should take ~A) lg��with-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  xg��string=? yg�� substring zg��display {f��  |f�� @end deffn  }f��� ~g�� string-append f��@ �f��@@ �g�� texi-quote �g��SCM �G �f��invalid argument syntax: ~A �g��map �g��cdr �g��comma � �g�� paren_close � �g��argsig �f��unknown doc attribute: ~A �g��arglist �g�� paren_open � �f��invalid arglist syntax: ~A �g��void �G �g��location �g��type �g��fname �g��reverse �� �� �g��cname �g��symbol->string �f�� unknown doc attribute syntax: ~A �g��argpos �G �g�� list-index �f��9~A:~A: wrong position for argument ~A: ~A (should be ~A)  �g��current-error-port �f��unknown check: ~A �g��mainC�5�����h8��Q��]4   5�4�>��"��G���RR4 #&),-.��h������-�1�3���C���������g��cond �g��body ��g��filenamef��'scripts/snarf-check-and-output-texi.scm ! " �  ���C������h���{���] 4�5L�4?6s�������g��args  �g��v ��g��filenamef��'scripts/snarf-check-and-output-texi.scm  ! �   ���C12������h(���y���] 4�5$�� �O�@�6�q�������g��y  '�g��tmp '��g��filenamef��'scripts/snarf-check-and-output-texi.scm ! �  ' ���C5R43 #&),-4.�������h ������-�1�3����C������������g��cond �g��body ��g��filenamef��'scripts/snarf-check-and-output-texi.scm $ % �  ���C������h���{���] 4�5L�4?6s�������g��args  �g��v ��g��filenamef��'scripts/snarf-check-and-output-texi.scm  $ �   ���C12������h(���y���] 4�5$�� �O�@�6�q�������g��y  '�g��tmp '��g��filenamef��'scripts/snarf-check-and-output-texi.scm $ �  ' ���C53R5R67589��������h(������-��1��3�4�5$�� "���45�6���������g��flags &��g��filenamef��'scripts/snarf-check-and-output-texi.scm ) *   *   *   *   +  ,  & , � & ��g��nameg��snarf-check-and-output-texi�CR:;<=>�������h@������] 4�5$��C4�5&�� 4�5L�64�5�"������������g��input  ;�g��token  ;��g��filenamef��'scripts/snarf-check-and-output-texi.scm /   F F   G   G   H   H  ! H  $ I  . I / K  ; K �  ; ��g��nameg��loop�C?@ABCDEFGH� ������h�����]"��"��"��S"��!�$����C4�5$���C�C�$��#��&�� 4 5C""�$��#��&�� 4 5C""�$��!��&�� 45C"S"O�$��!��&�� 4 5C"#"�������g��expr  ��g��w @ ]�g��x  @ ]�g��w n ��g��x  n ��g��w � ��g��x  � ��g��w � ��g��x  � ��� g��filenamef��'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�"�������������g��s  Z�g��s  R�g��t   1��g��filenamef��'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 ���CLM��h0������] O�Q�444�5556�������������g��port  *�g��loop *��g��filenamef��'scripts/snarf-check-and-output-texi.scm . /   /   =  D - & = ( /  * / �  * ��g��nameg��process-stream�C8R:NOP;QR>ST� ����hP���"��] 4�5$��4>��"��G��"���4�5&�� 4�56  �6��������g��input  N�g��cont  N�g��token  , N��g��filenamef��'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 ��g��nameg��dispatch-top-cookie�C=R:NOU;<V>� ������h�����]"��k45$��4>��"��G��"���45&��"4�45>��"��G��45645""����������g��process  |�g��input  |�g��cont   |�g��acc   q�g��input   q�g��token  0 q��g��filenamef��'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 ]  | ] �  | ��g��nameg��consume-upto-cookie�CSRW:NOX;YZ>S[� ������h`��� ��] 4�5$��4>��"��G��"���4�5&��4>���"��G��L�4�56  �L6����������g��input  \�g��token , \��g��filenamef��'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 �  \ ��g��nameg��loop�C:NOX;YZ>S[� �������h���J��]4>���"��G��O�Q�4�5$��4>��"��G��"���4�5&��4 >���"��G��4 �56  �6����B������g��input  |�g��cont  |�g��loop   |�g��token  L |��g��filenamef��'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 �  | ��g��nameg��consume-multiline�CRR\R]R^R_R`RaRbRcR\]^_`abc� ������h ������]�        C�����������g��filenamef��'scripts/snarf-check-and-output-texi.scm �  �   �  �   �   �   �   �   � �   ��g��nameg��begin-multiline�CWRdeR4fiei5gRbh`iaNjk\]_ljm_nopa�h���`��]04>��"��G��"��L�$��$4�>��"��G����""��L$��+4>��"��G��]"L $��4>��"��G��"���"��'(��C4>��"��G��"" �"i �"-��X������g��args  ��g��r  ��g��o  L ��g��args  L ��g��tail  L ��g��tail  � ���g��filenamef��'scripts/snarf-check-and-output-texi.scm �   �   �   �   �  �  $ �  % �  * � " - � ( 2 �  = � ! @ � , H �  L �  Q �  U �  V �  [ � % ^ � , c �  n � $ q � , v � 7 � �  � �  � �  � �  � � ' � � $ � �  � �  � �  � � " � � - � � 2 � � " � � - � � " � �  � �  � � = � �  � � �-  � ���C5qjr^amst��hx���+��]4>��"��G��(��"��L4>��"��G��"��)�(��"��(4�>��"��G����"�"6����#������g��args ; d��g��filenamef��'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  �O�5$��&�� 4 5"��"��4 >��"��G��4  >��"��G��4>��"��G��"��|(��"��~$��*45$��44 55"��"��$�� 4>��"��G��"4>��"��G��""x4>��"��G��6�����������g��req  �g��opt �g��var   �g��all   �g��nice-sig  � �g�� scm-deffnx  � �g��strings  � g�g�� scm-deffnx  � g��g��filenamef��'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   ��g��nameg�� end-multiline�CZRf}~yx�������hH���#��] �4L5$��C4L��545$��"��4L��56���������g��i  E�g��ss ! ;��g��filenamef��'scripts/snarf-check-and-output-texi.scm �   � �   �   �   �   � . ! �  ! �  $ �  * � ( , �  0 �  2 �  < �  A �  C �  E � �  E ��g��nameg��rec�C��h������] O��Q� 6��������g��s  �g��rec ��g��filenamef��'scripts/snarf-check-and-output-texi.scm � � �   ��g��nameg�� texi-quote�CRGNj� ���h@��|��]1"� "���$����$��$��t$��N&��'$�� 4L�5C44�55644�55644�55644�55644�55644�556�$��*��$��$���""""�$���(��� $��C"""���t������g��expr  =�g��w  ��g��x   ��g��w  1 ��g��x  1 ��g��w  B ��g��x  B ��g��w � �g��x  � �g��w $ 5�� g��filenamef��'scripts/snarf-check-and-output-texi.scm �  X �  _ �  c �  h �  i � 8 s �  u �  x �  } �  ~ � 8 � �  � �  � �  � �  � � 8 � �  � �  � �  � �  � � 8 � �  � �  � �  � �  � � 8 � �  � �  � �  � �  � � 8 � �  � �  � �   �   �  0 �  5 � �'  = ��g��nameg��do-args�CCNjbaA\]`G~_^c�!��h��Z ��]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 ������g��l  �g��expr   �g��w  3 d�g��x  3 d�g��w  L H�g��x  L H�g��w  ] :�g��x  ] :�g��w v �g��x v �g��w � �g��x � �g��w � ��g��w  � ��g��x  � ��g��w   �g��x   �g��w   �g��x   �g��w  # �g��x  # �g��w  = �g��x  = �g��w [ r�g��w   W�g��x   W�g��w   O�g��x   O�g��w   K�g��x   K�g��w  ?�g��w ! ;�g��x ! ;�g��w  h �g��x  h �g��w   �g��w   �g��x   �g��w   �g��x   �g��w   �g��w    �g��x    �g��w  . �g��x  . �g��ls  > �g��p-ls  > �g��name  K ]�g��w  g �g��w  v �g��x v �g��w   �g��x   �g��w   �g��w    �g��x    �g��expr  " �g��ls  * �g��p-ls  * �g��string  7 ?�g��w  I �g��w  X �g��x  X �g��w   �g��x   �g��w   �g��x   �g��do-args  ��Dg��filenamef��'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   ��g��nameg��process-multiline-directive�C[R_GCazj\N�����h(��{��]q$��$���$��$��$��$��&��$��$��   &��o$��f(��]  $��O     &��;45$��( $��C4    54 5�6CCCCCCCCCCC 4 �56 4 �56 4 �56C����s������g��l  $�g��w  �g��x   �g��w  6 ��g��x  6 ��g��w  G ��g��x  G ��g��w  ` ��g��x  ` ��g��w q ��g��x q ��g��w � ��g��w � ��g��x � ��g��idx  � ���g��filenamef��'scripts/snarf-check-and-output-texi.scm   3  .  , #  � %  � %  � &  � '  � '  � ' � (  � ( � ) 2 � (  � *  � ( � 1  � 1   1   1   1   1   1   1   1   1   1  " 1 �  $ ��g��nameg��process-singleline�CTRiRC�I������g��m  ,��g��filenamef��'scripts/snarf-check-and-output-texi.scm   0  2   5   '  ) . M  \ u j y | } }  ~    �  �  �  �  �  � %  �  � &  � > � ! � 5 � 8  8 6 �  8 ���C6������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������scripts/scan-api.go���������������������������������������������������������������������������������0000644�����������������00000024553�15253700563�0010274 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0S)������]��4��������hT ������]� g��guile � g��define-module* � � g��scripts g��scan-api � g��filenameS f��scripts/scan-api.scm g��importsS g��ice-9 g��popen   � � g��rdelim  � � g��regex  � � � g��exportsS � g��set-current-module � � g��%include-in-guild-list f��2Generate an API description for a Guile extension. g��%summary g��set-object-property! g��put !g��object-property "g��get #g�� add-props $g�� make-regexp %g�� open-pipe &g�� OPEN_READ 'g�� eof-object? (g�� regexp-exec )g�� read-line *g��scan +f�� ^.guile.+: ([^ ]+)([ ]+(.+))*$ ,g��format -f�� ~A -c '~S ~S' .g�� use-modules /g��session 0 /� 1.0� 2g��apropos 3f��. 423� 5g��string->symbol 6g��match:substring 7g��Scheme 8f��� 9g�� hashq-set! :g�� scan-Scheme! ;f��^[0-9a-fA-F]+ ([B-TV-Z]) (.+)$ <f��nm ~A =g��C >g��hashq-get-handle ?g��error @f��both Scheme and C: Ag��scan-C! Bg��current-module Cg�� THIS-MODULE Dg��memq Eg��groups Fg�� in-group? Gg�� string-match Hg�� string-append If��^ Jg��symbol->string Kg�� name-prefix? Lg��add-group-name! Mg��eval Ng��name Og��make-grok-proc Pg��make-members-proc Qg�� make-hook Rg��for-each Sg��assq-ref Tg��members Ug��grok Vf��+bad grouping, must have `members' or `grok' Wg�� add-hook! Xg�� description Yg��read Zg�� open-file [g�� make-grouper \g��list-ref ]g��catch ^]� _]� `g��make-hash-table ag��sort bg�� hash-fold cg��string dg�� scan-data e7� f=� gg��run-hook hg��string<? if��+;;; generated by scan-api -- do not edit!  jf��(  kf��(meta  lf�� (GUILE_LOAD_PATH . ~S)  mg��getenv nf��GUILE_LOAD_PATH of�� (LTDL_LIBRARY_PATH . ~S)  pf��LTDL_LIBRARY_PATH qf�� (guile . ~S)  rf�� (libguileinterface . ~S)  sf��(.+) tf��~A -c '(display ~A)' ug��%guile-build-info vg��quote wg��libguileinterface xvw� ySux� zf�� (sofile . ~S)  {f�� ~A  |g��append }g��map ~g�� hook->list 7=� �f��) ;; end of meta  �f�� (interface  �f��(~A ~A (scan-data ~S))  �f��) ;; end of interface  �f�� ) ;; eof  �g��mainC�5�������hX�����]4   5�4�>��"��G���RRi R!i"R �������hP�����-�1�3�"��4(���C4�>��"��G��""��������������g��object I�g��args I�g��args  A�g��key   A�g��value   A��g��filenamef��scripts/scan-api.scm I J   K   M   N   M  " O : P  A P A J � I ��g��nameg�� add-props�C#R$%&'()���hp���J��]#4�545"��I45$��C45$��4>��"��G��"���45"45"B������g��re  p�g��command  p�g��match   p�g��rx   p�g��port   p�g��line   c�g��t  ! c�g��t  5 V��g��filenamef��scripts/scan-api.scm R  S T   S   U   V ! V  - X  5 X W Y  c Y c U  d U  p U �  p ��g��nameg��scan�C*R*+,-1456 789������hP������]44� 5544� 5$��"��>��"��G��L�6�������������g��m  J�g��x  J�g��t  ! 4��g��filenamef��scripts/scan-api.scm a   b   b #  b   b  c  c   c  ! c  1 d  9 c J e �  J ���C�h ������]45�O�6����������g��ht  �g��guile  ��g��filenamef��scripts/scan-api.scm [  \   ]  ]   _   `   ]   \ �   ��g��nameg�� scan-Scheme!�C:R*;,<56 =>?@9� ����hh������] 44� 55444� 55>��"��G��4L�5$��4>��"��G��"���L�6��������������g��m  a�g��x  a��g��filenamef��scripts/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 ���C��������h ������]45�O�6��������������g��ht  �g��sofile  ��g��filenamef��scripts/scan-api.scm g  h   i  i   i   h �   ��g��nameg��scan-C!�CAR4Bi5�CRD"E��h������]4�56��������������g��x  �g��group  ��g��filenamef��scripts/scan-api.scm s  t  t   t   t �   ��g��nameg�� in-group?�CFRGHIJ��h������]454�56���������g��x  �g��prefix  ��g��filenamef��scripts/scan-api.scm v  w  w  w   w +  w �   ��g��nameg�� name-prefix?�CKR E"��������h������]�4�56���������g��x  �g��name  ��g��filenamef��scripts/scan-api.scm y  z z   z #  z   z   z �   ��g��nameg��add-group-name!�CLRMCL������h���~���]4L�5$���L�6C�v�������g��x  ��g��filenamef��scripts/scan-api.scm ~       � �   ��g��nameg��p�C N���h8������]45O��Q�4�>��"��G��C���������g��name  6�g��form  6�g�� predicate?  6�g��p   6��g��filenamef��scripts/scan-api.scm |  }  }   �  $ � + � �  6 ��g��nameg��make-grok-proc�CORDL����h ������]4�L5$���L�6C�������y�������g��x  ��g��filenamef��scripts/scan-api.scm �  �   �  � �   ��g��nameg��p�C N��������h0������] O��Q�4�>��"��G��C������������g��name  +�g��members  +�g��p  +��g��filenamef��scripts/scan-api.scm � �   �   � � �  + ��g��nameg��make-members-proc�CPRQRRSTU?VW#OXP� ����hx���k��]�4�54�5$��"��$��"��4>��"��G��L�$��445 4� 55"�� 4 56c������g��gdef  x�g��name  x�g��members   x�g��grok   x��g��filenamef��scripts/scan-api.scm �   �   �  � (  �   �   � %  �   � # � 2 �  6 �  ; �  M �  N �  Q � & X � ; [ � & ] � & ^ � & d � 5 f � & h �  m �  x � �  x ���CYZ&����h ������]L�O�44�556�����w�������g��file  ��g��filenamef��scripts/scan-api.scm �  �   �   �   � �   ���C������h(������] 4 54O��>��"��G��C���������g��files  &�g��hook  &��g��filenamef��scripts/scan-api.scm �  �   �  � �  & ��g��nameg�� make-grouper�C[R\_[��h���Z���]�L�6������R�������g��filenamef��scripts/scan-api.scm �   � 3 � %�  ���C����h���]���-��1��3�C�����U�������g��args ��g��filenamef��scripts/scan-api.scm � � ���C`:Aab#cJd"7=Eefg� ������h���\��] 4�4�54�5$��"�� 4�54�5$�� "�� >��"��G��L�$��4 L��>��"��G��"����C���T������g��key  }�g��value  }�g�� prior-result   }�g��t   5��g��filenamef��scripts/scan-api.scm �  � " � # � +  � #  � 2  � ;  � 2  � . * � 2 0 � ; 2 � 2 7 � # 8 � / > � 8 @ � / D � + F � / L � / Q � " _ � " ` � / | � "�  } ���Ch"c��h������]4�5456�������g��a  �g��b  ��g��filenamef��scripts/scan-api.scm �   � ! � ( � !  � !  � (  � !  � �   ���C,ijklmn8opqr*sty6����h���j���]4� 5N�C��b�������g��m  ��g��filenamef��scripts/scan-api.scm �   � * � "�   ���Cz{E|}"N����h���j���]�6������b�������g��p  ��g��filenamef��scripts/scan-api.scm � -  � @ � 9�  ���C~R,E"d������h ������]�4�54�56�������g��x  ��g��filenamef��scripts/scan-api.scm �   �  � � (  � /  � (  �   �   � !  �  � �  ���C�+������h ��"��-��1��3�4� 54� 54�O�54 54>��"��G��4>��"��G��44  O�5 54  >��"��G��4 >��"��G��4 >��"��G��4 45$��"��>��"��G��4 45$��"��>��"��G��4 >��"��G��4 H44 5O�>��"��G��J>��"��G��4 >��"��G��4 4 $��4!"4#55"��$5>��"��G��4 %>��"��G��4 &>��"��G��4'(>��"��G��4 )>��"��G��4 *>��"��G��C����������g��args �g��guile 0 �g��sofile  0 �g��grouper  0 �g��ht  0 �g��all  v �g��t  � ��g��t  � ��g��i  ' S�� g��filenamef��scripts/scan-api.scm � �   �   �  ) � 0 �  9 �  M �  a �  d �  n � r �  v �  v �  y �  ~ �  � �  � �  � �  � �  � �  � �  � �  � �  � �  � �  � �  � �  � �  � � - � �  � �  � �  � �  � �  � �  � �  � � /  �   �   �   �  ! �  & �  ' �  * �  . �  / �  4 � ! 8 �  : �  F �  X �  a �  f �  m �  v �  { �  } �  ~ �   � $  � (  � -  � (  � (  � $  �   �   �   �   �   �   �   �   �   �   �   �   �   �   �   � �S  ��g��nameg��scan-api�CRiRC���������g��m  ,��g��filenamef��scripts/scan-api.scm  = 0 C 2 D  5 D < F C G  I  R  [  g  q   q  s v y { | ; �  � M � T � �  V ���C6������������������������������������������������������������������������������������������������������������������������������������������������������scripts/punify.go�����������������������������������������������������������������������������������0000644�����������������00000004756�15253700563�0010116 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0 ������]�%�4�hs������]� g��guile � g��define-module* � � g��scripts g��punify � g��filenameS f��scripts/punify.scm g��exportsS � g��set-current-module  �  � g��%include-in-guild-list f��1Strip comments and whitespace from a Scheme file. g��%summary g�� string->list g��symbol->string g��char=? g��memq g�� list->string g��display g��write f��( g�� write-punily f��) f��  g��with-input-from-file g�� eof-object? g��read !g��current-input-port "g�� punify-one #g��for-each $g��mainC�5h�����]4    5�4�>��"��G���RR� ����h ����]!"��p�$��B44�554:5$��4 5$��"��45"��"��$��4:>��"��G��6�6�$���(��"�4>��"��G��4 >��"��G��"��X(�� 6$��"��$��"��4 >��"��G��4 >��"��G��"�""��������g��form  �g��ls  K�g��t P v�g��first � �g��ls  �  �g��last-was-list?  �  �g�� new-first  �  ��g��filenamef��scripts/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   ��g��nameg�� write-punily�CR !�������hP������]"��44�5$��C4�>��"��G��445�5�"445�5�"�������������g��form  :�g��t :��g��filenamef��scripts/punify.scm I   K   L  L  N  + J  . J # 4 J  : O  : K  ; J  > J # D J  J K �  J ���C�������h���v���]�6������n�������g��file  ��g��filenamef��scripts/punify.scm G H �  ��g��nameg�� punify-one�C"R#"�������h���t���-��1��3��6�������l�������g��args ��g��filenamef��scripts/punify.scm Q  R �  ��g��nameg��punify�CRi$RC�������g��m  (��g��filenamef��scripts/punify.scm  ( , + . ,  1 ,  .  G  Q  T �   ���C6�������������������scripts/autofrisk.go��������������������������������������������������������������������������������0000644�����������������00000023350�15253700563�0010602 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0&������]�|�4��h# ������]� g��guile � g��define-module* � � g��scripts g�� autofrisk � g��filenameS f��scripts/autofrisk.scm g��importsS g��srfi g��srfi-1   � � g��srfi-8  � � g��srfi-13  � � g��srfi-14  � � g��read-scheme-source � � g��frisk � � � g��exportsS !� "g�� autoloadsS #g��ice-9 $g��popen %#$� &g��open-input-pipe '&� (%'� )g��set-current-module *)� +)� ,g��%include-in-guild-list -f��0Generate snippets for use in configure.ac files. .g��%summary /g�� files-glob 0g��non-critical-external 1g��non-critical-internal 2g��programs 3g�� pww-varname 4/0123� 5g��*recognized-keys* 6g��error 7f�� syntax error: 8f��input not a list 9g��every :g��list? ;f��non-list element <g��length =f��list too short >g��quote ?g��memq @f��unrecognized key: Ag��apply Bg��map Cg��fold Dg��append Eg��assq-ref Fg��canonical-configuration Gg��for-each Hg��format If��GUILE_MODULE_REQUIRED~A  Jg��>>strong Kg��object->string Lg�� string-map! Mg��char-set-contains? Ng��char-set:letter+digit Og�� safe-name Pf��probably_wont_work Qg��*pww* Rg��edge-up Sg�� edge-down Tf��have_guile_module~A Uf��GUILE_MODULE_AVAILABLE(~A, ~A)  Vf��"test "$~A" = no && ~A="~A $~A"~A Wf��  Xg��>>weak Yf��guile_module~Asupport_~A Zf��AC_PATH_PROG(~A, ~A)  [f��test \  \f�� "$~A" = "" -o \  ]f��~A && ~A="~A $~A"  ^g��list-ref _f�� war = peace `f��freedom = slavery af��ignorance = strength bg��random cg�� >>program dg�� >>programs ef��echo '(' ~A ')' fg��symbol->string gg��read hg��unglob ig�� make-frisker jg��external kg�� partition lg��member mg�� mod-down-ls nf��AC_DEFUN([AUTOFRISK_CHECKS],[  of�� ~A=~S  pf��� qf��AC_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? wf��could not find input file: xg��with-output-to-file yf��~A.m4 zg��read-scheme-source-silently {g��mainC�5h �����]4    !"(5 �4+�>��"��G���,R-.R45R6789:;<�������h���k���] 4�5C����c�������g��form  ��g��filenamef��scripts/autofrisk.scm N   N $ N �  ���C=>?5�h8������]�$��$&��C45$��CN�CC�����������g��form  4�g��key  4�g��t  ! 2��g��filenamef��scripts/autofrisk.scm P   Q   Q  R   R   S $  S   S   T  ! S  0 V !�  4 ���C@ABCD�������h8������] �L�&���$��4�5"��"��$��CC�����������g��form  4�g��so-far  4�g��t  & 4��g��filenamef��scripts/autofrisk.scm [  \ 0 \ &  ] +  \ &  ^ +  ^ :  ^ + & \ "�  4 ���C�������h���j���]�O���L�6����b�������g��key  ��g��filenamef��scripts/autofrisk.scm Z   `  [ �   ���C5E������h���b���]L��6������Z�������g��key  ��g��filenamef��scripts/autofrisk.scm c  d �  ���C���h�����]�$��"��4>��"��G��4�5$��"��4>��"��G��4�5$��"��4>��"��G��H4 O��5 J�$��"��4 >��"��G��4  �O�5O�C��������g��forms  ��g�� condition * M�g�� condition V y�g��un z ��g�� condition  � ��g��x  � ��g��bunched � ���g��filenamef��scripts/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 �  � ��g��nameg��canonical-configuration�CFRGHI�����h���m���]�6�����e�������g��module  ��g��filenamef��scripts/autofrisk.scm g  h  h �  ���C��������h���z���]�6������r�������g��modules  ��g��filenamef��scripts/autofrisk.scm f g �  ��g��nameg��>>strong�CJRKLMN������h���h���]4�5$���C_C���`�������g��c  ��g��filenamef��scripts/autofrisk.scm m   n   n �   ���C�����h(������] 4�54>��"��G��C�������������g��module  "�g��var "��g��filenamef��scripts/autofrisk.scm k  l l  m �  " ��g��nameg�� safe-name�CORPQRGRSHTOUVQW� ����hP�����]4�54�544554>��"��G�� 6����������g��edge  M�g��up M�g��down   M�g��var  # M��g��filenamef��scripts/autofrisk.scm w  x  x  y   x   z   z %  z ; # z  # x  & {  + {  4 {  A |  K } - M | �  M ���C��������h���{���]�6������s�������g�� weak-edges  ��g��filenamef��scripts/autofrisk.scm v w �  ��g��nameg��>>weak�CXRBHYO�����h���w���]4L�5�6������o�������g��prog  ��g��filenamef��scripts/autofrisk.scm �   �  �   � �   ���CGHZ�������h������]�6���w�������g��var  �g��prog  ��g��filenamef��scripts/autofrisk.scm �   �  � �  ���CH[H\�����h���m���]�6�����e�������g��var  ��g��filenamef��scripts/autofrisk.scm �   �  � �  ���C]^_`abQ��hx���(��] 4�O�54>��"��G��4>��"��G��4>��"��G��4    �4 55�6������� ������g��module  q�g��progs  q�g��vars   q��g��filenamef��scripts/autofrisk.scm �  �   �   �  ) �  . �  3 �  < �  T �  U � Y �  [ �  ] �  ` �  a �  i � q � �  q ��g��nameg�� >>program�CcRGc����h���w���]��6����o�������g��form  ��g��filenamef��scripts/autofrisk.scm �  �  � $ � �  ���C������h������]�6������w�������g��programs  ��g��filenamef��scripts/autofrisk.scm � � �  ��g��nameg�� >>programs�CdR&HeBfg������h ������] 44�55456�������g��pattern  �g��p  ��g��filenamef��scripts/autofrisk.scm �  �  �  � '  �   �  �   �  � �  ��g��nameg��unglob�ChRFDBh/01ij3Qkl9l��h���b���]�L�6������Z�������g��i  ��g��filenamef��scripts/autofrisk.scm � � "�  ���CBSm�����h0������] 4�L�5$��CLO�44�556��������g��module  /�g��t /��g��filenamef��scripts/autofrisk.scm �   �  �  � % � / - � / � �  / ���CHnJopXCDm��������h������]4�56�|�������g��module  �g��so-far  ��g��filenamef��scripts/autofrisk.scm �   � %  � �   ���Cd2q���h���+��]A4�544455?4545445�54 54 5(��"�� 4  O�>�� G�4>��"��G��4>��"��G��4 >��"��G��44��5>��"��G��445>��"��G�� 6���#������g��forms  ��g��cfg ��g��files   ��g��ncx  ' ��g��nci  0 ��g��report  < ��g��external  E ��g�� pww-varname  N b�g��weak  v ��g��strong  v ��� g��filenamef��scripts/autofrisk.scm �  �  �  �   �   � *  � /  � *  �   �   �  ! �  % �  ' �  ' �  * �  . �  0 �  0 �  3 �  4 �  < �  < �  ? �  C �  E �  E �  H �  L �  N �  N �  V �  ] � * _ �  c �  y �  ~ �  � �  � �  � �  � �  � �  � � % � �  � �  � �  � �  � �  � �  � �  � �  � �  � �  � �  � �  � � �9  � ��g��nameg��>>checks�CrRHfsQ������h������]�456������z�������g��filenamef��scripts/autofrisk.scm �  � � �  � �   ��g��nameg�� >>summary�CtRuv6wxHyrzt��h ���m���]�44L�5>��"��G��6����e�������g��filenamef��scripts/autofrisk.scm �   �   �   �   � �   ���C� �������h`�����-��1��3��(��"���45$��"��4>��"��G��45O�6��������������g��args Y�g��file  Y�g��t  ! D��g��filenamef��scripts/autofrisk.scm �  �   �   � ,  �   �  ! �  . �  2 �  9 �  G �  L � $ P �  Y � � Y ��g��nameg�� autofrisk�CRi{RC�����������g��m  0��g��filenamef��scripts/autofrisk.scm  6 4 @ 6 A  9 A ; C  > C � I 5 f k t  t v k �  �  � . �  �  �  � �   ���C6�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������scripts/summarize-guile-TODO.go���������������������������������������������������������������������0000644�����������������00000021024�15253700563�0012451 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0!������]�}�4�h������]� g�� debug-enable g�� backtrace g��guile � g��define-module* � � g��scripts g��summarize-guile-TODO  � g��filenameS f�� scripts/summarize-guile-TODO.scm g��importsS g��read-text-outline � � g��ice-9 g�� getopt-long � � � g��exportsS  � g�� autoloadsS g��srfi g��srfi-13 � g��string-tokenize � g��srfi-14 � g��char-set ! � "g�� common-list #"� $g�� remove-if-not %$� &!#%� 'g��set-current-module ('� )'� *g��%include-in-guild-list +f��A quaint relic of the past. ,g��%summary -g��set-object-property! .g��put /g��object-property 0g��get 1g��who 2g��map 3g��string->symbol 4g��pct-done 5g��string->number 6g��as-leaf 7g��parent 8g��for-each 9g��hang-by-the-leaves :g��make-text-outline-reader ;f��=(([ ][ ])*)([-+])(D*)(R*)(X*)(([0-9]+)%)* *([^[]*)(\[(.*)\])* <g��level-substring-divisor =<  >g��body-submatch-number ?>  @g�� extra-fields Ag��status BA  Cg��design? DC  Eg��review? FE  Gg�� extblock? HG  I4  J1  K@BDFHIJ� L=?K� Mg�� open-file Nf��r Og�� read-TODO Pg�� option-ref Qg��involved Rg��memq Sg��personal Tg��reverse Ug��todo Vg��string=? Wf��- Xg��done Yf��+ Zg��review [g�� select-items \g��format ]f�� ~A ^f��� _f�� under : ~A~A  `g�� make-string af�� status: ~A~A~A~A~A~A item : ~A  bf��D cf��R df��X ef�� ~A% fg��make-display-item gg�� no-parent hg�� display-items if��summarize-guile-TODO jg�� single-char kjw� l1k� mjn� ngm� oji� pg��value qp� rQoq� sjp� tSsq� ujt� vUu� wjd� xXw� yjr� zZy� {lnrtvxz� |g��mainC�5h�����]4i>��"��G��4    &5 �4)�>��"��G���*R+,R-i.R/i0R01.23 45� ������h���2��] 4�5$��-4�444:555>��"��G��"���4�5$��4�4 5>��"��G��"����C�������*������g��x  y�g��t C�g��t L v��g��filenamef�� 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 ��g��nameg��as-leaf�C6R.78�h���w���]L�L�6�����o�������g��child  ��g��filenamef�� scripts/summarize-guile-TODO.scm b % c 3 c '�  ���C6����hX������]�$��'4�>��"��G���LO��64�>��"��G��4�5M�N�C�����������g��tree  T�g��parent  T��g��filenamef�� scripts/summarize-guile-TODO.scm ^   _  _  a   a  a +  a  . d % 0 b  1 f  7 f % > f  G g . P g ( R g �  T ��g��nameg��hang�C8�h���n���]L��6�������f�������g��tree  ��g��filenamef�� scripts/summarize-guile-TODO.scm h  i �  ���C�������h8������]HO�Q�4O��>��"��G��JC�����������g��trees  4�g��leaves  4�g��hang   1��g��filenamef�� scripts/summarize-guile-TODO.scm \  ]   ]   ^   h �  4 ��g��nameg��hang-by-the-leaves�C9R9:;LMN���h ������]4454�556������������g��file  ��g��filenamef�� scripts/summarize-guile-TODO.scm m  o   o  p  q   o   y   y   y   o   n �   ��g��nameg�� read-TODO�CORPQ301R�h ������]4�5$��L�4�56C�������g��x  ��g��filenamef�� scripts/summarize-guile-TODO.scm �   � $ � + � $  �   � ,  � 3  � ,  � $�  ���CS01T��������h(������] 4�5$�� 45L�CC��������������g��x  !�g��t !��g��filenamef�� scripts/summarize-guile-TODO.scm �   � & � - � & �   � 5  � 0  � +�  ! ���C8P�������h ������]4L�5$�� �M�N�CC����������g��pair  ��g��filenamef�� scripts/summarize-guile-TODO.scm �   �  � % �   �   � '  � !  � �   ���CUV0AW����h������]4�56��������������g��x  ��g��filenamef�� scripts/summarize-guile-TODO.scm �   � / � 6 � /  � ?  � %�   ���CXV0AY�h������]4�56��������������g��x  ��g��filenamef�� scripts/summarize-guile-TODO.scm �   � / � 6 � /  � ?  � %�   ���CZ0E�����h���v���]�6������n�������g��x  ��g��filenamef�� scripts/summarize-guile-TODO.scm �   � . � '�  ���CT$���h���+��]H4�5$��45O�JK"���4�5$��45O�JK"���4�O�     �>��"��G��"��!(��645"4J5"#������g��p  ��g��items  ��g��sub   ��g��t   6�g��u   /�g��t  @ g�g��u  O `�g��sub  � ��g��items  � ��� g��filenamef�� scripts/summarize-guile-TODO.scm {  |  |   } }   }  }        * �  , �  7 � = �  @ � @ �  I �  O �  [ �  ] �  h �  u �  � �  � �  � �  � � � �  � �  � � ) � �  � � � �  � �  � � �"  � ��g��nameg�� select-items�C[R01\]^���h ������] 4�5$�� 6C��������g��item  �g��t ��g��filenamef�� scripts/summarize-guile-TODO.scm �  �  � �  �   � 2  � '  � �   ���C^������h���p���]C���h�������g��item  ��g��filenamef�� scripts/summarize-guile-TODO.scm �  � �   ���C\_`07��hX�����]"��<$��444 5>��"��G��45 "C4�5 "���������g��item  U�g��parent  B�g��indent   B��g��filenamef�� scripts/summarize-guile-TODO.scm �  �  �  �   � #  � " �  + �  1 � * 3 �  8 � 3 @ �  B �  C � " I � , K � " U � �  U ���Ch���g���]C����_�������g��item  ��g��filenamef�� scripts/summarize-guile-TODO.scm � �   ���C\a0ACb^EcGd4e���h�����] 44�54�5$��"��4�5$�� "��4� 5$�� "��4� 5$��4 5"��4L�5�> ��"��G��L��6������g��item  ��g��t Y t��g��filenamef�� scripts/summarize-guile-TODO.scm �   �   �  �   �   �   �   �   �   �  � & & � * ' �  - �  / �  3 �  5 � & ; � * < �  B �  D �  H �  J � ( P � , Q �  W �  Y �  Y �  b �  g � % k �  q �  u �  � �  � � �$  � ���C��h0������]�$��"��$��"��O�C�����������g�� show-who?  ,�g�� show-parent?  ,�g��show-who   ,�g�� show-parents   ,��g��filenamef�� scripts/summarize-guile-TODO.scm �  �  �  � �  , ��g��nameg��make-display-item�CfRfP1g8�h(��� ��] 44�54�556��������g��p  &�g��items  &�g�� display-item   &��g��filenamef�� scripts/summarize-guile-TODO.scm �  �   � ) � 7  � )  � .  � <  � .  � )  �   �  & � �  & ��g��nameg�� display-items�ChRi{h[OP������hH���'��-��1��3�4�54444555>��"��G��C����������g��args D�g��p  B��g��filenamef�� scripts/summarize-guile-TODO.scm � �  �   �   �   �  �   �   �  " � % % � 5 * � C - � 5 . � 0 0 � % 2 �  7 � � D ��g��nameg��summarize-guile-TODO�C R i|RC������������g��m - D��g��filenamef�� scripts/summarize-guile-TODO.scm  A A   A  C H K J L  M L T N [ O 5 Q  \  m  {  �  �  �  � �   ���C6�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������scripts/snarf-guile-m4-docs.go����������������������������������������������������������������������0000644�����������������00000007053�15253700563�0012255 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�3�4���hS������]� g��guile � g��define-module* � � g��scripts g��snarf-guile-m4-docs � g��filenameS f��scripts/snarf-guile-m4-docs.scm g��importsS g��ice-9 g��rdelim   � � � g��exportsS � g��set-current-module � � g��%include-in-guild-list f��/Snarf out texinfo documentation from .m4 files. g��%summary g��display f��@deffn {Autoconf Macro} g��for-each g��string=? f��# g�� substring g�� string-length f��#  !g��newline "f�� @end deffn #g�� display-texi $g��catch %$� &$� 'g��prefix? (g�� list->string )g��reverse *g�� string->list +g�� massage-usage ,g�� open-file -f��r .g�� eof-object? /f��# Usage: 0g�� read-line 1f��AC_DEFUN 2g��mainC�5h �����]4   5�4�>��"��G���RR !��h������]4"��&44� 55$�� 4� 5"��B�"��<4�5 $��*44� 55$�� 4� 5"��""��">��"��G��6������������g��line  |��g��filenamef��scripts/snarf-guile-m4-docs.scm *  +  .   . (  . ,  .   +   /  / +  0 + ' 9 + # = +  > , # B , - C , 2 N , # R +  S -  p +  | 1 �  | ���C"!����hP������]4>��"��G��4�>��"��G��4>��"��G��4>���"��G��6����������g��lines  N��g��filenamef��scripts/snarf-guile-m4-docs.scm (  )   ) )   *  ) 3  - 3 2 3  ; 4  N 4 �  N ��g��nameg�� display-texi�C#R&��h���r���]�L4L� 4L556�j�������g��filenamef��scripts/snarf-guile-m4-docs.scm 7   8  8 #  8   8 �   ���C����h���g���-��1��3�C�����_�������g��args ��g��filenamef��scripts/snarf-guile-m4-docs.scm 7 � ���C������h������]�O�6�������������g��line  �g��sub  ��g��filenamef��scripts/snarf-guile-m4-docs.scm 6  7 �   ��g��nameg��prefix?�C'R()*��hp���1��]"��Y(��4455�C($��"��)$��"��,$�� "��"4�5"�)������g��line  o�g��line  _�g��acc   _�g��key  " T��g��filenamef��scripts/snarf-guile-m4-docs.scm :  ;  <  =   =   =   =   >  " ?  " ?  Q A  W ?  _ >  _ ;  ` ;  g ; - o ; �  o ��g��nameg�� massage-usage�C+R,-.'/0+1#)� �������h�����-��1��3�4�5"��45$��C45$��4544 55"4 5$��'4 4 5>��"��G��45""��45"|$��%4 5$��45"U""45"=���� ������g��args ��g��p  ��g��line   ��g��acc   ��g��t  ���g��filenamef��scripts/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 �) � ��g��nameg��snarf-guile-m4-docs�CRi2RC���������g��m  ,��g��filenamef��scripts/snarf-guile-m4-docs.scm  ! 0 % 2 &  5 &  (  6  : D S �  ���C6��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������scripts/list.go�������������������������������������������������������������������������������������0000644�����������������00000007524�15253700563�0007553 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0<������]�@�4������h������]� g��guile � g��define-module* � � g��scripts g��list � g��filenameS f��scripts/list.scm g��importsS g��srfi g��srfi-1   � � � g��exportsS g�� list-scripts � g��set-current-module � � g��%include-in-guild-list f��An alias for "help". g��%summary g�� file-exists? g��file-is-directory? g��opendir g�� eof-object? g��closedir g��readdir g��string=? !f��. "f��.. #g��directory-files $g��or-map %g��string-suffix? &g�� string-null? 'g�� substring (g�� string-length )g��append *g��%load-compiled-extensions +g��%load-extensions ,g��strip-extensions -g��unique .g��map /g��symbol->string 0g��sort 1g�� append-map 2g��fold 3g�� in-vicinity 4g�� %load-path 5g��string<? 6g��find-submodules 7g��for-each 8g��format 9f��~A  :� ;g��help <;� =g��main ><=� ?<=�C�5����h8 �����]4   5�4�>��"��G���RR !"� ����h�����]!4�5$��4�5$��}4�5"��`45$��4>��"��G��C4545$��"�� 4 5$��"��"45"CC�������������g��dir  ��g�� dir-stream  ��g��new  % ��g��acc  % ��g��t  U n��g��filenamef��scripts/list.scm #  $ $   $   $   %   %  % &  & (  0 ( 1 *  F ,  M -  Q - & U -  U -  c .  g . & k .  r -  } 0  � ,  � &  � &  � '  � &  � 1 �  � ��g��nameg��directory-files�C#R$%&'(���h8������]4�L�5$��#4�5$��CL� 4L�54�56C�����������g��ext  4��g��filenamef��scripts/list.scm 4  6  5  :   5 " <  ) < 0 0 <  2 ; �  4 ���C)*+��h������]�O�456��z�������g��path  ��g��filenamef��scripts/list.scm 3 =  4 �   ��g��nameg��strip-extensions�C,R-�����h8������]�(���C�(���C��$���6�4�5C����������g��l  5��g��filenamef��scripts/list.scm ?  @   A   @   B   B   B ! @  & B + ( B # + C  , C  1 C $ 3 C  4 C �  5 ��g��nameg��unique�C-R./-012,����h ������] 4�5$��CC�������������g��x  �g��rest  �g��stripped  ��g��filenamef��scripts/list.scm J   K , K   L   L +�   ���C#3�����h���j���]�6������b�������g��x  �g��y  ��g��filenamef��scripts/list.scm O ! O /�  ���C���h ���~���]44�L�556�������v�������g��path  ��g��filenamef��scripts/list.scm I   M   N  O   N   J �   ���C45� ��h(������] 4�544O�556���������g��head  &�g��shead &��g��filenamef��scripts/list.scm E  F  F   H   I  $ H  & G �  & ��g��nameg��find-submodules�C6R789�������h���c���]�6�����[�������g��x  ��g��filenamef��scripts/list.scm T  V  V �  ���C6:������h������-��1��3�456���������g��args ��g��filenamef��scripts/list.scm S  W  W   W  T �  ��g��nameg�� list-scripts�CR?�������h���p���-��1��3��@�h�������g��args ��g��filenamef��scripts/list.scm Y  Z �  ��g��nameg��main�C=RC����������g��m  ,��g��filenamef��scripts/list.scm   0  2  5  # % 3 H ? N E S 3 Y �  5 ���C6�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������scripts/read-rfc822.go������������������������������������������������������������������������������0000644�����������������00000011640�15253700563�0010511 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�L�4��h������]� g��guile � g��define-module* � � g��scripts g�� read-rfc822 � g��filenameS f��scripts/read-rfc822.scm g��importsS g��ice-9 g��regex   � � g��rdelim  � � � g��exportsS g��read-rfc822-silently � g�� autoloadsS g��srfi g��srfi-13 � g�� string-join � � g��set-current-module � � !g��%include-in-guild-list "f��Validate an RFC822-style file. #g��%summary $g�� make-regexp %f��^From  &g�� from-line-rx 'f��^([^:]+):[ ]* (g��header-name-rx )f��^[ ]+ *g��header-cont-rx +g��option ,g�� eof-object? -g��reverse .g�� read-line /g�� regexp-exec 0g��for-each 1g�� unread-char 2g�� string->list 3g�� drain-message 4g�� match:suffix 5g��string->symbol 6g��match:substring 7g�� substring 8g�� match:end 9f��  :g�� string-null? ;g��from <g�� body-lines =g��headers >g��body ?f��  @g��suffix Ag��error Bf��bad component: Cg�� parse-message Dg��format Ef��From ~A  Ff��~A: ~A  Gf�� ~A Hg��display-rfc822 Ig�� open-file Jg�� OPEN_READ Kg��mainC�5������h8 ����]4   5 �4 �>��"��G���!R"#R4$i%5&R4$i'5(R4$i)5*R+R,-.+/&01��h���b���]�L�6������Z�������g��c  ��g��filenamef��scripts/read-rfc822.scm A  B �  ���C2� h���C��]"��p45$��6"��4�5"$��=45$��,4�O� 44 55>��"��G��6""4�5"��;������g��port  ��g��line  v�g��acc   v��g��filenamef��scripts/read-rfc822.scm <  =   >  >   ?  G  ' G " / G / >  6 @  B @ C A O D  R D $ Z D  [ C  ` A n E v =  w =  ~ = * � = �  � ��g��nameg�� drain-message�C3R+4/&.-/(56789� hX�����])4�54544 5544455 5M�N�C�������y������g��reversed-hlines  Q�g��hlines Q�g��first   Q�g��m   Q�g��name  ( Q�g��data  C Q��g��filenamef��scripts/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 ��g��nameg�� add-header!�C:3*-;<=>?@AB� hX������] �$��LC�$��M�C�$��MC�$��M$��C4M�5NMC �6�����������g�� component  T�g��t 1 L��g��filenamef��scripts/read-rfc822.scm g  h  1 l  = m & C m > E m C G m & I m  P o  T o �  T ���C� ����h���4��]A$��444�555"��HHHO�Q�"��45$��)$��4>��"��G��"���4�5K"��m4 5$��4�545"$��4>��"��G��"���4�5�"r4�5"_4 J5K O�C����,������g��port  ��g��from ��g�� body-lines  # ��g��body  & ��g��headers  ) ��g�� add-header!  3 ��g��line  < ��g��current-header  < ��g��t  y ��� g��filenamef��scripts/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 �"  � ��g��nameg�� parse-message�CCRC���h������]�6}�������g��port  ��g��filenamef��scripts/read-rfc822.scm q  r �   ��g��nameg��read-rfc822-silently�CR;DE0DF�������h������]��6�w�������g��header  ��g��filenamef��scripts/read-rfc822.scm v  w  w $ w 1  w �   ���C=G>� �������hX�����] 4�5$��4>��"��G��"���44�5>��"��G��4�56����������g��parse  T�g��t -��g��filenamef��scripts/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 ��g��nameg��display-rfc822�CHRIJH���h8������-��1��3�44�554>��"��G��C��������������g��args 1�g��parse  /��g��filenamef��scripts/read-rfc822.scm { |  | %  | 0  | %  |   |   } � 1 ��g��nameg�� read-rfc822�CRiKRC�����������g��m  0��g��filenamef��scripts/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 ���C6�������������������������������������������������������������������������������������������������scripts/api-diff.go���������������������������������������������������������������������������������0000644�����������������00000021022�15253700563�0010244 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0!������]�^�4��������h������]� g��guile � g��define-module* � � g��scripts g��api-diff � g��filenameS f��scripts/api-diff.scm g��importsS g��ice-9 g�� common-list   � � g��format  � � g�� getopt-long  � � � g��exportsS � g�� autoloadsS g��srfi g��srfi-13 � g��string-tokenize � � g��set-current-module ! � " � #g��%include-in-guild-list $f��,Show differences between two scan-api files. %g��%summary &g��with-input-from-file 'g��read (g��read-alist-file )g��set-object-property! *g��put +g��object-property ,g��get -g��assq-ref .g��meta /g�� interface 0g��groups 1g��make-hash-table 2g��for-each 3g�� hashq-set! 4g��read-api-alist-file 5g�� hashq-ref 6g��hang-by-the-roots 7g��set-difference 8g��diff? 9g�� diff+note! :g�� hash-fold ;g��acons <g��map =g��car >f��groups-removed: ~A  ?f��groups-added: ~A  @g��length Af�� ~5@A ~5@A :  Bf��- Cf��~5@A ~5@A : ~5@A Df��~5@D ~5@D : ~5@D Ef�� ~A  Fg��sort Gg��union Hg��string<? Ig��symbol->string Jg��details Kf��~A ~A:  Lg��removals Mf�� ~A  Ng�� additions Of��~A: no changes  Pg��error Qf��!api-diff: group-diff: bad options Rg�� group-diff Sg�� single-char TSd� Ug��value VU� WJTV� XW� Yg�� option-ref Zf�� /dev/null [ZZ� \g��string->symbol ]g��mainC�5�h�����]4   5 �4"�>��"��G���#R$%R&'������h���O���]�6���G�������g��filenamef��scripts/api-diff.scm 5   5 �   ���C������h���}���]�6������u�������g��file  ��g��filenamef��scripts/api-diff.scm 3 4 �  ��g��nameg��read-alist-file�C(R)i*R+i,R(-./*0123���h���k���]L��6�����c�������g��group  ��g��filenamef��scripts/api-diff.scm @ ' A > A )�  ���C� �h���|��]!4�545454>��"��G��44 54 O�45>��"��G��>��"��G��C����t������g��file  |�g��alist |�g��meta   |�g�� interface   |�g��ht  E l��g��filenamef��scripts/api-diff.scm :  ;  ;  <   <   <   ;   =   = $  =   ;  " >  ( >  / >  8 ?  > ?  ? ? % E ?  H @  R B ' X B 6 Z B ' _ @  q ? �  | ��g��nameg��read-api-alist-file�C4R,02235�������h���{���]L�L�4L�56�s�������g��group  ��g��filenamef��scripts/api-diff.scm I  K . L .  K (  J �   ���C-0������h���w���]�L�O�4�56o�������g��x  ��g��filenamef��scripts/api-diff.scm H   M   M &  M   I �   ���C������h0������] 4�54O��>��"��G���C�����������g�� interface  ,�g��ht )��g��filenamef��scripts/api-diff.scm F  G G  G G   H �  , ��g��nameg��hang-by-the-roots�C6R7����h������] 4�5(��CC�������g��a  �g��b  �g��result  ��g��filenamef��scripts/api-diff.scm Q  R  R   S �   ��g��nameg��diff?�C8R8����hp���S��]H4�5$��4>��"��G��K"���4�5$��4>��"��G��K"���J$��6�C�����K������g��a  k�g��b  k�g�� note-removals   k�g��note-additions   k�g�� note-same   k�g��same?   k�g��t   2�g��t  ; _��g��filenamef��scripts/api-diff.scm W  X   Y  Y   Y & + Y 8 3 Z ; Z  D Z & X Z 9 e [  i [ �  k ��g��nameg�� diff+note!�C9R6:;,0<=9>�h���n���]�6�����f�������g��removals  ��g��filenamef��scripts/api-diff.scm f   g $ g �  ���C?��h���o���]�6�����g�������g�� additions  ��g��filenamef��scripts/api-diff.scm h   i $ i �  ���C�������h���G���]�C����?�������g��filenamef��scripts/api-diff.scm j �   ���C2-@ABC9@��h���j���]4�5N�C���b�������g��subs  ��g��filenamef��scripts/api-diff.scm x #  y 5 y %�  ���C@��������h���j���]4�5N�C���b�������g��adds  ��g��filenamef��scripts/api-diff.scm z #  { 5 { %�  ���C����h���G���]�C����?�������g��filenamef��scripts/api-diff.scm | #�   ���CDE� �h ��/��]94L��54L�5$�� 45"��$�� 45"��$��$�� "��"��4$��"��$��"��>��"��G��"��4>��"��nG��"��g$��]$��O HH4O� O� >��"��G��4 J J>��"��G��"��""��"| �6���'������g��group  �g��old �g��new   �g�� old-count  * �g�� new-count  > �g��delta  [ �g�� add-count  � �g�� sub-count  � ��g��filenamef��scripts/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 � } "  � $  � �&   ���CFGHI�����h������]4�5456����z�������g��a  �g��b  ��g��filenamef��scripts/api-diff.scm �   � ' � '  � �   ���C-J-9KL2M����h���j���]�6�����b�������g��x  ��g��filenamef��scripts/api-diff.scm � 4  � A � 6�  ���C���h(������]4L�>��"��G���6��������������g��removals  !��g��filenamef��scripts/api-diff.scm � *  � *  � 5 � 1  � * ! � *�  ! ���CKN2M���h���j���]�6�����b�������g��x  ��g��filenamef��scripts/api-diff.scm � 4  � A � 6�  ���C���h(������]4L�>��"��G���6��������������g�� additions  !��g��filenamef��scripts/api-diff.scm � *  � *  � 5 � 1  � * ! � *�  ! ���CO���h���Z���]�L�6�����R�������g��filenamef��scripts/api-diff.scm � *  � 7 � ,�  ���C���h`������]4L��5$��"��4L�5$��"���O��O��O�6��������������g��group  Y�g��t �g��old  Y�g��t  ( :�g��new  : Y��g��filenamef��scripts/api-diff.scm �   � , � (  � C  �  � , ( � ( 7 � C : �  Y � �  Y ���CPQ������h���a��-�1�3� 4�544554545445545(��74   >��"��G��  O�4455645  $�� O� 66������Y������g��i-old ��g��i-new ��g��options  ��g��i-old   ��g��g-old  # ��g�� g-old-names  . ��g��i-new  7 ��g��g-new  J ��g�� g-new-names  U ��g��t � ��� g��filenamef��scripts/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  � �  � �  � � �% �  ��g��nameg�� group-diff�CRRXY[4J<\R� �hx�����-��1��3�4�5454545H45$��4 4 ,55JK"��� J@��������g��args v�g��p  v�g��rest  ! v�g��i-old  + v�g��i-new  6 v�g��options  9 v�g��t  E l��g��filenamef��scripts/api-diff.scm � �  �   �   �   �  �   �   �   � ! ! �  ! �  $ �  ) � % + �  + �  . �  3 � % 6 �  6 �  9 �  9 �  < � B �  E � E �  O � * P � * U � / _ � * ` � $ c �  e �  v � �# v ��g��nameg��api-diff�CRi]RC�������g��m  0��g��filenamef��scripts/api-diff.scm  ) 4 0 6 1  9 1 H 3 O 7 V 8  : N F  Q  W  ]  �  � �   ���C6���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������scripts/compile.go����������������������������������������������������������������������������������0000644�����������������00000023525�15253700563�0010227 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0='������]��4�������h" ������]� g��guile � g��define-module* � � g��scripts g��compile � g��filenameS f��scripts/compile.scm g��importsS g��system g��base   � g��selectS g�� compile-file � � g��target   � � g��message   � � g��srfi g��srfi-1 � � g��srfi-13 � � g��srfi-37 ! � "!� #g��ice-9 $g��format %#$� &%� '"&� (g��exportsS )� *g��set-current-module +*� ,*� -f��Compile a file. .g��%summary /g��current-error-port 0f��error: ~{~a~}~% 1g��exit 2g��fail 3g��srfi-37:option 4!3� 5!3� 6f��help 7h6� 8g�� alist-cons 9g��help? :f��version ;:� <g�� show-version =f�� load-path >L=� ?g�� assoc-ref @g�� load-path Af��output BoA� Cg�� output-file Df��.`-o' option cannot be specified more than once Ef��warn FWE� Gg��string=? Hg��show-warning-help Ig��warnings Jg��string->symbol Kg�� alist-delete Lf��optimize MOL� Ng�� optimize? Of��from PfO� Qg��from Rf��2`--from' option cannot be specified more than once Sf��to TtS� Ug��to Vf��0`--to' option cannot be specified more than once Wf��target XTW� Yf��4`--target' option cannot be specified more than once Zg��%options [g�� args-fold \f��~A: unrecognized option ]g�� input-files ^]� _@� `g��unsupported-warning aI`� b^_a� cg�� parse-args df��compile (GNU Guile) ~A~% eg��version ff�Copyright (C) 2009, 2011 Free Software Foundation, Inc. License LGPLv3+: GNU LGPL version 3 or later <http://gnu.org/licenses/lgpl.html>. 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:~%~% hg��for-each if�� ~22A ~A~% jf��`~A' kg��<warning-type> lk� mk� ng��srfi-9 on� pg��throw-bad-struct qop� rop� sg��warning-type-name tg��warning-type-description ug��%warning-types vf��~% wg��warningsS xg��OS yg��scheme zg��objcode {g�� %host-type |f�Usage: 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 ~g��append g�� %load-path �g��%load-should-auto-compile �f��"`-o' option can only be specified  �f��when compiling a single file �g�� sigaction �g��SIGINT �f��interrupted by the user �f�� wrote `~A'  �g��*current-warning-prefix* �f��� �g�� with-target �g�� output-fileS �g��fromS �g��toS �g��optsS �g��mainC�5�h��K��]4   '()5�4,�>��"��G���-.R$/01���h(������-��1��3�445��>��"��G�� 6��������g��messages '��g��filenamef��scripts/compile.scm + ,  ,  ,   ,  ' - � ' ��g��nameg��fail�C2R5789��������h������]6������������g��opt  �g��name  �g��arg   �g��result   ��g��filenamef��scripts/compile.scm 2   3  3 �  ���C�5;<1��������h������]4>���"��G�� 6��������g��opt  �g��name  �g��arg   �g��result   ��g��filenamef��scripts/compile.scm 5   6   7 �   ���C�5>?@8������h ������] 456�������������g��opt  �g��name  �g��arg   �g��result   �g�� load-path  ��g��filenamef��scripts/compile.scm :   ; # ; 5 ; # ;   <  < +  < �   ���C�5B?C2D8���h ������]45$��66��������g��opt  �g��name  �g��arg   �g��result   ��g��filenamef��scripts/compile.scm ?   @  @ ( @   @   A   A   B "  B �   ���C�5FG6H1?I8JK� �hH���-��] 45$��4>���"��G�� 645454 56%������g��opt  H�g��name  H�g��arg   H�g��result   H�g��warnings  - H��g��filenamef��scripts/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 ���C�5M8N��h������]6������������g��opt  �g��name  �g��arg   �g��result   ��g��filenamef��scripts/compile.scm P   Q  Q �  ���C�5P?Q2R8J��������h(������]45$��6456�����������g��opt  $�g��name  $�g��arg   $�g��result   $��g��filenamef��scripts/compile.scm S   T  T ( T   T   U   U   V "  V ( $ V �  $ ���C�5T?U2V8J��������h(������]45$��6456�����������g��opt  $�g��name  $�g��arg   $�g��result   $��g��filenamef��scripts/compile.scm X   Y  Y ( Y   Y   Z   Z   [ "  [ & $ [ �  $ ���C�5X?2Y8��h ������]45$��66��������g��opt  �g��name  �g��arg   �g��result   ��g��filenamef��scripts/compile.scm ]   ^  ^ ( ^   ^   _   _   ` "  ` �   ���C�� ZR[Z$/\1�������h ������]445�>��"��G�� 6�������g��opt  �g��name  �g��arg   �g��result   ��g��filenamef��scripts/compile.scm f  g   g  g ,  g  h �  ���C?]8�������h ������] 45�6�������������g��file  �g��result  �g�� input-files  ��g��filenamef��scripts/compile.scm i  j " j 4 j " j   k   k *  k �   ���Cb�����h������]�6�������g��args  ��g��filenamef��scripts/compile.scm b  o  e �   ��g��nameg�� parse-argsg�� documentationf��QParse argument list @var{args} and return an alist with all the relevant options.�CcR$def���h(������]�445�>��"��G��6��������������g��filenamef��scripts/compile.scm s  t   t t (  t   u ! u �  ! ��g��nameg�� show-version�C<R$gh$ijmrst������hH������]4�&��� "�� 4�55�&��� "�� 4�56����������g��wt  E��g��filenamef��scripts/compile.scm |  }   ~  ~ !  ~ ( ) ~  ,   E } �  E ���Cuv��h0������]�4>��"��G��4>��"��G��6�������g��filenamef��scripts/compile.scm z  {   { {   |  . � 0 � �  0 ��g��nameg��show-warning-help�CHRc?9wINxQyUz{]C@$|}1~22�������h���n���-��1��3�6�f�������g��args ��g��filenamef��scripts/compile.scm �  �   � �  ���Ch$�������h���P���]�LLLLL�6 H�������g��filenamef��scripts/compile.scm �   � �   ���C�����h(���~���]Y4LLLLL��O�5Z6��v�������g��file  &��g��filenamef��scripts/compile.scm �   �  � @  �  & � �  & ���C� ������hp����-��1��3� 4�54545�45$�� "��45$��"�� 4 5$��"�� 4 5$��"�� 454545 $��"��$��*4>��"��G��4 >��"��G��"���4 5  $��0(��"��$��4>��"��G��"���"���4>��"��G��O�6��������g��args n�g��options  n�g��help?   n�g��o  + H�g�� compile-opts  H n�g��t  S f�g��from  f n�g��t  q ��g��to  � n�g��t  � ��g��target  � n�g�� input-files  � n�g�� output-file  � n�g�� load-path � n��g��filenamef��scripts/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 ��g��nameg��compile�CRiRC������C������g��m  ,��g��filenamef��scripts/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  �  � �   ���C6����������������������������������������������������������������������������������������������������������������������������������������������������������������������������scripts/display-commentary.go�����������������������������������������������������������������������0000644�����������������00000004633�15253700563�0012417 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0 ������]�*�4����h ������]� g��guile � g��define-module* � � g��scripts g��display-commentary � g��filenameS f��scripts/display-commentary.scm g��importsS g��ice-9 g�� documentation   � � � g��exportsS � g��set-current-module � � f��5Display the Commentary section from a file or module. g��%summary g��format f��~A commentary: ~A g��file-commentary g��display-commentary-one g��map g��symbol->string g�� string-append f��/ g��module-name->filename-frag !g��%search-load-path "f�� module ~A  #g��display-module-commentary $g��for-each %g��string? &g�� string-index 'g��with-input-from-string (g��read )g��mainC�5�������h�����]4   5�4�>��"��G���R�����h������]�4�56�������������g��file  ��g��filenamef��scripts/display-commentary.scm %  & & '  & �   ��g��nameg��display-commentary-one�CR���h@���(��]4�5"�� (��C45""� ������g��ls  ?�g��ls ?�g��ls   1�g��acc   1��g��filenamef��scripts/display-commentary.scm (  ) )   *   +   -   -  $ - , ' - 0 ) -  1 - 1 *  4 *  7 * " ? * �  ? ��g��nameg��module-name->filename-frag�C R! "�������h8������] 44�55$��4�>��"��G��6C������������g�� module-name  3�g��t  3��g��filenamef��scripts/display-commentary.scm /  0  0   0  0   2   2  # 2  1 3 �  3 ��g��nameg��display-module-commentary�C#R$%&#'(����h@������]4�5$��! 4�(5&�� 4�56�6�$���6C����������g��ref  =��g��filenamef��scripts/display-commentary.scm 6  7  7   8 #  8   :  ( 9  . ;  1 <  5 7  ; = �  = ���C��h������-��1��3��6��������������g��refs ��g��filenamef��scripts/display-commentary.scm 5  6 �  ��g��nameg��display-commentary�CRi)RC�������g��m  ,��g��filenamef��scripts/display-commentary.scm   . #  1 #  %  (  /  5  @ �   ���C6������������������������������������������������������������������������������������������������������scripts/help.go�������������������������������������������������������������������������������������0000644�����������������00000020701�15253700563�0007520 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0!������]�p�4������h ������]� g��guile � g��define-module* � � g��scripts g��help � g��filenameS f��scripts/help.scm g��importsS g��ice-9 g��format   � � g�� documentation  � � g��srfi g��srfi-1 � g��selectS g��fold g�� append-map � � � g��exportsS g�� show-help g�� show-summary g�� show-usage g��main ! � "g��set-current-module #"� $"� %f��Show a brief help message. &g��%summary 'f��help 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? ,g��file-is-directory? -g��opendir .g�� eof-object? /g��closedir 0g��readdir 1g��string=? 2f��. 3f��.. 4g��directory-files 5g��or-map 6g��string-suffix? 7g�� string-null? 8g�� substring 9g�� string-length :g��append ;g��%load-compiled-extensions <g��%load-extensions =g��strip-extensions >g��unique ?g��map @g��symbol->string Ag��sort Bg�� in-vicinity Cg�� %load-path Dg��string<? Eg��find-submodules Fg��display Gf��lUsage: guild COMMAND [ARGS] Run command-line scripts provided by GNU Guile and related programs. Commands:  Hg��for-each Ig��string->symbol Jg��resolve-module Kg��ensureS Lg��and=> Mg��module-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: <http://www.gnu.org/software/guile/> General help using GNU software: <http://www.gnu.org/gethelp/> For complete documentation, run: info guile 'Using Guile Tools'  Tg��%guile-bug-report-address Ug�� list-commands Vg��file-commentary Wg��%search-load-path Xg��module-filename Yg��module-commentary Zg�� last-pair [g�� module-name \g��module-command-name ]g��current-output-port ^g�� string-split _g�� string-append `f�� OPTION... af�� Usage: guild  bg��newline cf�� guild  df��)No documentation found for command "~a".  eg��current-module fg��%mod gf��--all hg� if��-a ji� kg��current-error-port lg��exit mg��string-prefix? nf��- of��No command named "~a". C�5���hx�����]4   !5�4$�>��"��G���%&R'(R)*R+,-./0123� ������h�����]!4�5$��4�5$��}4�5"��`45$��4>��"��G��C4545$��"�� 4 5$��"��"45"CC�������������g��dir  ��g�� dir-stream  ��g��new  % ��g��acc  % ��g��t  U n��g��filenamef��scripts/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 �  � ��g��nameg��directory-files�C4R56789���h8������]4�L�5$��#4�5$��CL� 4L�54�56C�����������g��ext  4��g��filenamef��scripts/help.scm :  <  ;  @   ; " B  ) B 0 0 B  2 A �  4 ���C:;<��h������]�O�456��z�������g��path  ��g��filenamef��scripts/help.scm 9 C  : �   ��g��nameg��strip-extensions�C=R>�����h8������]�(���C�(���C��$���6�4�5C����������g��l  5��g��filenamef��scripts/help.scm E  F   G   F   H   H   H ! F  & H + ( H # + I  , I  1 I $ 3 I  4 I �  5 ��g��nameg��unique�C>R?@>A=����h ������] 4�5$��CC�������������g��x  �g��rest  �g��stripped  ��g��filenamef��scripts/help.scm P   Q , Q   R   R +�   ���C4B�����h���j���]�6������b�������g��x  �g��y  ��g��filenamef��scripts/help.scm U ! U /�  ���C���h ���~���]44�L�556�������v�������g��path  ��g��filenamef��scripts/help.scm O   S   T  U   T   P �   ���CCD� ��h(������] 4�544O�556���������g��head  &�g��shead &��g��filenamef��scripts/help.scm K  L  L   N   O  $ N  & M �  & ��g��nameg��find-submodules�CERFGHIJKLM&NO PQ� ������h���~��]!4�5�45$��4455"��$��GL�$��"��4 5$��"��$��$��   �6  �6CCv������g��name  ��g��modname  ��g��mod   ��g��summary  7 ��g��v  S f��g��filenamef��scripts/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>��"��G��4�O�45>��"��G�� 6������������g��all?  ;��g��filenamef��scripts/help.scm Y  Z   Z Z   a   n  # n  % n  * a  7 o ; o �  ; ��g��nameg�� list-commands�CURVWX����h������]44�556�������������g��mod  ��g��filenamef��scripts/help.scm x  z   z   z   y �   ��g��nameg��module-commentary�CYR@Z[�h������]44�556������������g��mod  ��g��filenamef��scripts/help.scm |  }   } "  }   }   } �   ��g��nameg��module-command-name�C\R]^M(_\`FabHFcb��������h0������]4L�>��"��G��4�L�>��"��G��L�6y�������g��u  0��g��filenamef��scripts/help.scm �   �   �   �   �  0 � �  0 ���C� ���h���v��-�.�,�3�#��45�44�5$��"��44�55 54 >��"��G��4>��"��G��4 >��"��G��  O�6������n������g��mod ��g��port ��g��var  % E�g��usages  I ���g��filenamef��scripts/help.scm    *  �   �  # � 1 % �  % �  - �  0 �  5 �  8 � & @ � & B �  I �  I �  L �  P � W �  ` �  e � j �  s �  � �  � � � � ��g��nameg�� show-usage�CR]M&Fb�hH������-�.�,�3�#��45�4�5$��4>��"��G��6C��������g��mod G�g��port G�g��var  " G��g��filenamef��scripts/help.scm �  � ,  � � " " � " �  * �  + � 0 �  7 � E � � G ��g��nameg�� show-summary�CR]M*FbY d\� �������h���F��-�.�,�3�#��45�4�>��"��G��4�>��"��G��4�5$��4>��"��G��64�5$��4>��"��G��6  4 �56����>������g��mod ��g��port ��g��t  J ��g��t  t ���g��filenamef��scripts/help.scm �  � )  �  . �  B �  H �  J �  J �  S � X �  _ � m � n �  t �  } � � � � �  � � � � � � ��g��nameg�� show-help�CR4ei5�fRUhjfklmnJIK o���h�����-��1��3��(��6�$��"���$��6"��445�>��"��G�� 6�(��d4 �5$��"�4  4 5� 5$��4>��"��G�� 64>��"��G�� 6"u�������g��args ��g��name l ��g��t  � ���g��filenamef��scripts/help.scm �  �   �   �   �   �   �  & � . ' � ! + �  0 �  5 �  : �  C �  P �  P �  S �  W �  X � ! \ � 1 _ � 5 a � ! e �  l �  l �  o �  s �  t � # } �  � �  � �  � � � � � �  � �  � �  � � �& � ��g��nameg��main�C RC��������g��m  ,��g��filenamef��scripts/help.scm   . !  1 ! 3 "  6 " 8 #  ; #  ) - 9 P E V K Y m x 7 | 9   �  �  �  � u � �  w ���C6����������������������������������������������������������������scripts/lint.go�������������������������������������������������������������������������������������0000644�����������������00000020131�15253700563�0007533 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0A ������]�I�4�����h������]� g��guile � g��define-module* � � g��scripts g��lint � g��filenameS f��scripts/lint.scm g��importsS g��ice-9 g�� common-list   � � g��format  � � � g��exportsS � g��set-current-module � � g��%include-in-guild-list f��1Check for bugs and style errors in a Scheme file. g��%summary g��scan-file-for-module-name g��uniq g��scan-file-for-free-variables g��resolve-module f��Resolved module: ~S  !g��catch "g��eval #f��!Unresolved free variables in ~A:  $g�� write-char %g��write &g��newline 'f��#No unresolved free variables in ~A  (g��with-input-from-file )g�� eof-object? *g��read +g�� define-module ,g��append -g��detect-free-variables .g��memq /g��define-generic 0g��quote 1g�� quasiquote 2g��let 3g��letrec 4g��map 5g��car 6g��let* 7g��and-let* 8g��define 9g�� define-public :g�� define-macro ;g��lambda <g��lambda* =g��receive >g�� define-method ?g��define* @g�� define-class Ag��detect-free-variables-noncar Bg��case Cg��unquote Dg��unquote-splicing Eg��else Fg��=> Gg��for-each Hg��mainC�5h0�����]4   5�4�>��"��G���RR !"������h���S���]�LL�6�����K�������g��filenamef��scripts/lint.scm x   y  y �  ���C#$%&�������hh������-��1��3�M$��4L>��"��G��"���4 >��"��G��4L�>��"��G��4>���"��G��NC�������������g��args b��g��filenamef��scripts/lint.scm z   {   |   }   |  )   ; �  @ �  E �  N �  ` � � b ���C'� �����h�����])4�544�5545H4>��"��G��"��8(��"��64O� �O�>��"��G��""J$��  �6C�}������g��filename  ��g�� module-name  ��g�� free-vars   ��g��module  ! ��g�� all-resolved?  ! ��g�� free-vars  > v��g��filenamef��scripts/lint.scm n  o  p  p   p   o   q  ! q  & s  + s  2 s  > t  D u  I w  p �  v �  v t  � �  � �  � � �  � ��g��nameg��lint�CR()*+���hP������]"��94�5$��C"�� 45��"�$���&���C""45��"�������������g��x  ?��g��filenamef��scripts/lint.scm �   �   �   �   �  " �  " �  % �  ) �  , �  . � ! 2 �  5 �  ? �  @ �  J � �  J ���C��h������]�6�������������g��filename  ��g��filenamef��scripts/lint.scm � � �  ��g��nameg��scan-file-for-module-name�CR(),*-�����h@������]"��)4�5$��@45�4�5�"45��"����������g��x  /�g��fvlists  /��g��filenamef��scripts/lint.scm �   �   �  �   �  �   �  " � 8 $ �  ' �  / � / �  0 �  5 � % = � �  = ���C�������h������]�6�������������g��filename  ��g��filenamef��scripts/lint.scm � � �  ��g��nameg��scan-file-for-free-variables�CR.+/0123,45-������h���u���]�L�$��L"��M6m�������g��binding  ��g��filenamef��scripts/lint.scm � "  � ;  � ;  � $�   ���C-�����h���d���]�L�6������\�������g��bodyform  ��g��filenamef��scripts/lint.scm � " � $�  ���C67-��h���d���]�M�6������\�������g��bodyform  ��g��filenamef��scripts/lint.scm �  � �  ���C-89:;<-��h���d���]�L�6������\�������g��bodyform  ��g��filenamef��scripts/lint.scm �  � �  ���C=-����h���d���]�L�6������\�������g��bodyform  ��g��filenamef��scripts/lint.scm �  � �  ���C>?-��h���d���]�L�6������\�������g��bodyform  ��g��filenamef��scripts/lint.scm    �  ���C@A����h������]�$���"���M�6z�������g�� slot/option  ��g��filenamef��scripts/lint.scm     <  8   <   �   ���CB-������h���i���]�M�6�����a�������g��case  ��g��filenamef��scripts/lint.scm     1  �  ���CCDEFA�%�hh����]H�$��4�J5$��C��C�$�;�$��"��!$��"��$��"��$��C$��"��$��r�$�������"����4J4  �5544  O��5?44  O��5?6 $��"��$��I�(��4 O��5@4�J54 ���J56$��"��$��"��$��:�$���JK��J6�JK�J6$��"��$��U"��-(��"��/$��""��J�"4 O��5@$��.4J�54�J54 O��5@$��"��$��f"��=(��"��@$��!$��"��""��J�"4 O��5@$��4 O��5@$��4�J54 O��5@ $��"��!!$��"��"$��"��#$�� $�J64J54$�J56C��������g��x  f�g��locals  f�g��key  , d�g��letrec?  � ��g��locals-for-let-body  � ��g��locals   �g��args   �g��locals-for-lambda-body   �g��locals-for-receive-body  + N�g��locals  i �g��args  i �g��locals-for-method-body   �� g��filenamef��scripts/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 ��g��nameg��detect-free-variables�C-R.FA,-��������hX���U��] �$��4�5$��C��C�$��.�$�� �6454�56C���M������g��x  U�g��locals  U�g��key  ( S��g��filenamef��scripts/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 ��g��nameg��detect-free-variables-noncar�CARG��������h���s���-��1��3��6�������k�������g��files ��g��filenamef��scripts/lint.scm :  ; �  ��g��nameg��main�CHRC�������g��m  ,��g��filenamef��scripts/lint.scm  f 0 k 2 l  5 l  n  �  �  �  ) . : �  0 ���C6����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������scripts/frisk.go������������������������������������������������������������������������������������0000644�����������������00000024671�15253700563�0007720 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0)������]��4�������h������]� g��guile � g��define-module* � � g��scripts g��frisk � g��filenameS f��scripts/frisk.scm g��importsS g��srfi g��srfi-1   � g��selectS g��filter g��remove � � � g��exportsS g�� make-frisker g�� mod-up-ls g�� mod-down-ls g��mod-int? g�� edge-type g��edge-up g�� edge-down � g�� autoloadsS g��ice-9 g�� getopt-long ! � " � #!"� $g��set-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 .f��r /g�� eof-object? 0g�� define-module 1g��def 2g�� use-moduleS 3g�� :use-module 4g��regular 5g��autoloadS 6g�� :autoload 7g��autoload 8g�� use-modules 9g��for-each :g��load ;g��primitive-load <g��computed =g��string? >g��format ?f��[computed in ~A] @g��read Ag�� grok-proc Bg��make-object-property Cg��up-ls Dg��dn-ls Eg��int? Fg��i Gg��x Hg��i-or-x Ig��setter JI� KI� Lg�� make-edge Mg��car Ng��cdr Og��up-ls+! Pg��dn-ls+! Qg��assq-ref Rg�� make-body Sg��member Tg��modules Ug��internal Vg��external Wg��i-up Xg��map Yg��x-up Zg��i-down [g��x-down \g��edges ]g��scan ^g��default-module _f��~A ~A --- ~A --- ~A  `g�� dump-updown af��~A ~A  bf�� ~A ~A  cg��dump-up dg�� dump-down ef��frisk fg��upstream gg�� single-char hgu� ifh� jg�� downstream kgd� ljk� mgi� nUm� ogx� pVo� qgm� rg��value sr� t^qs� uilnpt� vg�� option-ref wf��$~A ~A, ~A ~A (~A ~A, ~A ~A), ~A ~A  xg��length yf��files zf��modules {f��internal |f��external }f��edges ~g��mainC�5������h��g��]4   #5 �4&�>��"��G���'R()R+,R-./01234567894��������h8������] LM$��"��L��$��"���6�����������g��use  4�g��t  �g��maybe  2��g��filenamef��scripts/frisk.scm � !  � .  � .  s "  s  # t  ' t  4 � #�  4 ���C:;<=>?@�����h����]I4�5H"�45$��C$�$��K4L�>��"��G��"��(��"��$��"��$��>4L�  $�� "�� >��"��G��" $��"�� $��#4L� >��"��G��"b"Y"N"�� $��"4 LL�O�>��"��G��"��f$��"��$��O4L�J$��"��L45$��"�� 4�5>��"��G��"���45"\45"O45"B������������g��filename  �g��p �g��curmod   �g��form   �g��t   �g��key  0 �g��module  ? �g��ls  ^ �g��key  k �g��use  � ��g��maybe � ��g��t  ` s�g��file  w �� g��filenamef��scripts/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   ���C��h������]�O�C�����������g��default-module  �g�� note-use!  ��g��filenamef��scripts/frisk.scm n �  ��g��nameg�� grok-proc�CAR4Bi5�CR4Bi5�DR4Bi5�ERCiRDiREiREFG���h������]4�5$��CC������������g��module  ��g��filenamef��scripts/frisk.scm �  �  �   �   � �   ��g��nameg��i-or-x�CHR4Bi5�RK���h(������] 445�>��"��G��C����������g��type  %�g��up  %�g��down   %�g��new   %��g��filenamef��scripts/frisk.scm �  �  �  � �  % ��g��nameg�� make-edge�CLRMiRNiRKC����h������]45�4�56��������g��m  �g��new  ��g��filenamef��scripts/frisk.scm �  � 2  � (  � �   ��g��nameg��up-ls+!�CORKD�h������]45�4�56��������g��m  �g��new  ��g��filenamef��scripts/frisk.scm �  � 2  � (  � �   ��g��nameg��dn-ls+!�CPRQ��h���`���]L��6������X�������g��key  ��g��filenamef��scripts/frisk.scm �  � �  ���C�����h���n���]�O�C������f�������g��alist  ��g��filenamef��scripts/frisk.scm � �  ��g��nameg�� make-body�CRRASKCD1ELOP� �����h�����]4M5$��"��=445��>��"��G��445��>��"��G��MN�&�� 4564M5$��"��=445��>��"��G��445��>��"��G��MN4�5M�N�4>��"��G�� 6������������g��type  ��g��d  ��g��u   ��g��t  Z�g��d  Z ��g��t  y ��g��u  � ��g��edge  � ���g��filenamef��scripts/frisk.scm �   �  �   �  ' � 4 , �  5 �  A � 4 F �  S � - U �  Z �  ` � , d �  p � " q �  y �  � �  � � 4 � �  � �  � � 4 � �  � � - � �  � � " � � / � � " � � 0 � � $ � � $ � � $�!  � ���C9RTUEVWXYZ[\�h�����]��H��H4�O�54>��"��G��J4J5 4 J5 44  J554 4  J5544 J554 4 J55J�6�������g��default-module  ��g��files  ��g��modules   ��g��edges  ��g��grok   ���g��filenamef��scripts/frisk.scm �  �   �  �  �  �   �   �  6 �  < �  E �  H �  Q �  T �  Y � ! c �  d �  g �  l � ! v �  w �  z �   � ! � �  � �  � �  � � ! � �  � �  � � �  � ��g��nameg��scan�C]RQ^,]�������h���b���]L��6������Z�������g��files  ��g��filenamef��scripts/frisk.scm �  � �  ���C���h0������-��1��3�4�5$��"��O�C��������g��options /�g��t  %�g��default-module % /��g��filenamef��scripts/frisk.scm � �   � .  �   �  % � � / ��g��nameg�� make-frisker�CR9>_HX������h���s���]4�54�5C������k�������g��edge  ��g��filenamef��scripts/frisk.scm �   � # � #  � �   ���CC���h���s���]4�54�5C������k�������g��edge  ��g��filenamef��scripts/frisk.scm �   � # � #  � �   ���CD� �������h0������]4�5�44�5544�556���������g��m  .��g��filenamef��scripts/frisk.scm �  �   �   �   �   �   �  $ �  , �  . � �  . ���C�������h���{���]�6������s�������g��modules  ��g��filenamef��scripts/frisk.scm � � �  ��g��nameg�� dump-updown�C`R9>aH9>b��h���|���]4�54�56�t�������g��edge  ��g��filenamef��scripts/frisk.scm �   � %  � "  � 3  � �   ���CC�������h0������]44�5�>��"��G��4�56������������g��m  +��g��filenamef��scripts/frisk.scm �  �   �  � #  �  # �  + � �  + ���C��h���w���]�6������o�������g��modules  ��g��filenamef��scripts/frisk.scm � � �  ��g��nameg��dump-up�CcR9>aH9>b������h���|���]4�54�56�t�������g��edge  ��g��filenamef��scripts/frisk.scm �   � %  � "  � 3  � �   ���CD�������h0������]44�5�>��"��G��4�56������������g��m  +��g��filenamef��scripts/frisk.scm �  �   �  � #  �  # �  + � �  + ���C��h���y���]�6������q�������g��modules  ��g��filenamef��scripts/frisk.scm � � �  ��g��nameg�� dump-down�CdR euvfjUV^,T\>wxyz{|}`cd��������h����-��1��3� 4�5454545454��544  4  5554 545 45 4 5 445454 54 54 5> ��"��G��$��$��"��"��$��$��"�� "�� 6������g��args �g�� parsed-opts  �g��=u  ! �g��=d  - �g��=i  9 �g��=x  E �g��files  R �g��report  l �g��modules  u �g��internal ~ �g��external � �g��edges � �� g��filenamef��scripts/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  ��g��nameg��frisk�CRi~RC������_������g��m  0��g��filenamef��scripts/frisk.scm  a 4 i 6 j  9 j ; l  > l  n  �   �  �   �  �   �  �  �  �  �  �   � � � � W �  � ) �  �  � ^ � z �  �  �   �!   ���C6������������������������������������������������������������������������scripts/doc-snarf.go��������������������������������������������������������������������������������0000644�����������������00000040700�15253700563�0010445 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0A������]��4��������h! ������]� g��foo g��bar g��foo/bar f��0.0.2 g��doc-snarf-version g��guile � g��define-module* � � g��scripts g�� doc-snarf   � g��filenameS f��scripts/doc-snarf.scm g��importsS g��ice-9 g�� getopt-long � � g��regex � � g�� string-fun � � g��rdelim � � � g��exportsS  � !g��set-current-module "!� #!� $f��$Snarf out documentation from a file. %g��%summary &g��version 'g�� single-char ('v� )g��value *)� +&(*� ,g��help -'h� .,-*� /g��output 0'o� 1)� 2/01� 3g��texinfo 4't� 534*� 6g��lang 7'l� 8671� 9+.258� :g��command-synopsis ;g��display <f�� doc-snarf  =g��newline >g��display-version ?f��(Usage: doc-snarf [options...] inputfile  @f��6 --help, -h Show this usage information  Af��3 --version, -v Show version information  Bf��? --output=FILE, -o Specify output file [default=stdout]  Cf��3 --texinfo, -t Format output as texinfo  Df��5 --lang=[c,scheme], -l Specify the input language  Eg�� display-help Ff�� doc-snarf Gg�� option-ref Hg��string->symbol Ig��string-downcase Jf��scheme Kg�� snarf-file Lg��main Mg��c Nf��^/\*(.*) Of��^ \*/ Pf�� ^ \* (.*) Qf�� ^ \*-(.*) Rf��NOTHING AT THIS TIME!!! SMNOPQR� Tg��scheme Uf��^;; (.*) Vf��^;;\. Wf��^;;-(.*) Xf�� ^\(define YTUVUWX� ZSY� [g��supported-languages \g��list-ref ]g��assq-ref ^g��docstring-start _g�� docstring-end `g��docstring-prefix ag�� option-prefix bg��signature-start cg�� std-int-doc? dg�� lang-parm eg��memq fg��map gg��car hg��error if��.doc-snarf: input language must be c or scheme. jg�� write-output kg��snarf lg��format-texinfo mg�� format-plain ng�� unread-string og��read pg��length qg��define rg��lambda sg��string? tg��find-std-int-doc ug��separate-fields-discarding-char vg�� string-append wg��split-prefixed xg��open-input-file yg�� make-regexp zg�� eof-object? {g��close-input-port |g��reverse }g��neutral ~g�� regexp-exec g�� read-line �g�� doc-string �g��match:substring �g��options �f�� internal:  �g��append �g�� parse-entry �g��entry �g�� make-entry �g�� entry-symbol �g��entry-signature �g��entry-docstrings �g�� entry-options �g��entry-filename �g�� entry-line �g�� get-symbol �g��make-prototype �f��� �g��call-with-input-string �g�� read-char �g�� join-symbols �g��symbol->string �f��.  �f��  �g��with-output-to-port �g��open-output-file �g��current-output-port �g��for-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�� C�5��h@3��v��]������h������]�$��CC��~�������g��braz  ��g��filenamef��scripts/doc-snarf.scm 1  2  2 2 �   ��g��nameg��foo/bar�CRR4   5�4#�>��"��G���$%R9:R;<=��h0������]�4>��"��G��4>��"��G��6��������������g��filenamef��scripts/doc-snarf.scm `  a   a a   a  * a 5�  * ��g��nameg��display-version�C>R;?@ABCD��������hh������]�4>��"��G��4>��"��G��4>��"��G��4>��"��G��4>��"��G��6�������������g��filenamef��scripts/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 ��g��nameg�� display-help�CERF:G,&3HI6J>E/K���h���Z��-��1��3�4�545454544 4  555$�� 6�$�� 6�4545$�� 6 6����R������g��args ��g��options  ��g�� help-wanted  J ��g��version-wanted  J ��g��texinfo-wanted  J ��g��lang  J ��g��input  y ��g��output  y ���g��filenamef��scripts/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 {  � � � } � �  � � � � �) � ��g��nameg�� doc-snarf�C R iLRZ[R\][^_`abc� hh������]4�5$�� "��K$�� "��=$�� "��.$�� "��$�� "�� $�� "��6�������g��lang  h�g��parm  h��g��filenamef��scripts/doc-snarf.scm �  �  � h � �  h ��g��nameg�� lang-parm�CdRefg[hijklm� ������hP�����] 4455$��"��4>��"��G��4�5$�� "�� 6������g��input  P�g��output  P�g��texinfo?   P�g��lang   P�g��t   3��g��filenamef��scripts/doc-snarf.scm �  �   �   �   �   �  # � ( �  6 �  F �  P � �  P ��g��nameg�� snarf-file�CKRnopqrs�����h���)��] 4�>��"��G��45$��"��o 45$��_&��T$��I$��= 45$��*&��45$�� CCCCCCCC 45$��@&��3$��&$��45$��C"O"K"G"C"?C���!������g��line  ��g�� input-port  ��g��form   ���g��filenamef��scripts/doc-snarf.scm �  �   �   �  " �  & �  - �  4 �  8 � : �  = �  A � D �  F �  J � M �  P �  T � W �  \ �  ` �  a �  e � g �  j � " m �  q � r �  w � z �  ~ �  � � � �  � � � �  � �  � �  � � � �  � �  � � � �  � �  � � � �  � �  � � � �  � �  � �  � � � � �5  � ��g��nameg��find-std-int-docg�� documentationf��Unread @var{line} from @var{input-port}, then read in the entire form and return the standard internal docstring if found. Return #f if not.�CtRufv��������h���e���]L��6������]�������g��line  ��g��filenamef��scripts/doc-snarf.scm � � �  ���C��������h���h���-��1��3�L�O��6��`�������g��lines ��g��filenamef��scripts/doc-snarf.scm �   � �  ���C�����h������] �O�6��������������g��string  �g��prefix  ��g��filenamef��scripts/doc-snarf.scm �  � �   ��g��nameg��split-prefixed�CwRxyd^_`abz{|}~ctw������h��u ��]4�544554455445544554455"�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  �g��lang  �g��i-p  �g��docstring-start   �g�� docstring-end  ) �g��docstring-prefix  9 �g�� option-prefix  I �g��signature-start  Y �g��line  _ �g��state _ �g�� doc-strings _ �g��options _ �g��entries _ �g��lno _ �g��m  � ��g��m0   Z�g��m1   Z�g��m2   Z�g��m3   Z�g��d   �g��int-doc   �g��options   �g��m1  } �g��m2  } �g��m3  } �g��d   �g��int-doc    �g��options   ?��g��filenamef��scripts/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  �   � $  � �   ��g��nameg��snarf�CkR��h������]��C�����������g��symbol  �g�� signature  �g�� docstrings   �g��options   �g��filename   �g��line   ��g��filenamef��scripts/doc-snarf.scm 6  7  7 �   ��g��nameg�� make-entry�CR�h���z���]� C�r�������g��e  ��g��filenamef��scripts/doc-snarf.scm 8  9 �   ��g��nameg�� entry-symbol�CR�h���}���]� Cu�������g��e  ��g��filenamef��scripts/doc-snarf.scm :  ; �   ��g��nameg��entry-signature�CR������h���~���]� Cv�������g��e  ��g��filenamef��scripts/doc-snarf.scm <  = �   ��g��nameg��entry-docstrings�CR�����h���{���]� Cs�������g��e  ��g��filenamef��scripts/doc-snarf.scm >  ? �   ��g��nameg�� entry-options�CRh���|���]� Ct�������g��e  ��g��filenamef��scripts/doc-snarf.scm @  A �   ��g��nameg��entry-filename�CR�������h������]� C�������g��e  ��g��filenamef��scripts/doc-snarf.scm B  D �   ��g��nameg�� entry-lineg�� documentationf��4This docstring will not be snarfed, unfortunately...�CR|pH� ������h���A��]$��545454�5454�54564�5 $��=44�554�54�5454�54564�5454�5456������9������g�� docstrings  ��g��options  ��g��def-line   ��g��filename   ��g��line-no   ���g��filenamef��scripts/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 �)  � ��g��nameg�� parse-entry�CRo���hP������] 4�>��"��G��4�>��"��G��4�5$��6$��6C�����������g��s-p  L�g��tmp - L��g��filenamef��scripts/doc-snarf.scm a   b   c  ' d  - b  2 f 6 e  < g ? h C e  I i K k �  L ���C�������h������]�6������{�������g��def-line  ��g��filenamef��scripts/doc-snarf.scm ^ _ �  ��g��nameg��make-prototype�CRo�����hH������] 4�>��"��G��4�>��"��G��4�5$��C$��CC��������g��s-p  G�g��tmp - G��g��filenamef��scripts/doc-snarf.scm p   q   r  ' s  - q  2 u 6 t  9 v = w A t  F z �  G ���C��������h������]�6������w�������g��def-line  ��g��filenamef��scripts/doc-snarf.scm m n �  ��g��nameg�� get-symbol�CRv������hH�����]�(��C�$�� 4�56�(���64�54�56�����������g��s  C��g��filenamef��scripts/doc-snarf.scm ~                  "   &   +   -  0   5  ( 7   9  1 :  5 ?  C A  5 C  �  C ��g��nameg�� join-symbols�CR����h���R���]�LL�6������J�������g��filenamef��scripts/doc-snarf.scm    �  ���C���h(������]$�� 45"��45��O�6����������g��entries  %�g�� output-file  %�g��writer   %��g��filenamef��scripts/doc-snarf.scm     *   # %  �  % ��g��nameg�� write-output�CjR;=��������h���b���]�6Z�������g��s  ��g��filenamef��scripts/doc-snarf.scm    �   ���C;��h ���}���]4>��"��G���6������u�������g��s  ��g��filenamef��scripts/doc-snarf.scm       !     (�   ���C��h����]4>��"��G��44�5>��"��G��4>���"��G��4>��"��G��44�5>��"��G��4>��"��G��44�5>��"��G��4>���"��G��4 >��"��G��44 �5>��"��G��4>���"��G��4  4 �5>��"��G��4 4�5>��"��G��6��������g��entry  ��g��filenamef��scripts/doc-snarf.scm              #   ,   <   @  E   N   Q  \   e   i  n   w   z  �   �   �   �  �   �   �  �   �   �   �  �   �   �  �        �%   ��g��nameg��format-texinfo�ClR;=�������h���b���]�6Z�������g��s  ��g��filenamef��scripts/doc-snarf.scm    �   ���C;��h ���}���]4>��"��G���6������u�������g��s  ��g��filenamef��scripts/doc-snarf.scm       !     (�   ���C��h�����]4>��"��G��44�5>��"��G��4>���"��G��44�5>��"��G��44 �5>��"��G��4 >��"��G��44 �5>��"��G��4 >��"��G��44 �5>��"��G��4>���"��G��6���w������g��entry  ���g��filenamef��scripts/doc-snarf.scm              #   ,   <   A  L   U   Z  e   n   r  w   �   �  �   �   �  �   �   �  �   �   �   �  �  � ��g��nameg�� format-plain�CmRC����n������g��m � ���g��filenamef��scripts/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< ���C6�����������������������������������������������������������������scripts/read-text-outline.go������������������������������������������������������������������������0000644�����������������00000015737�15253700563�0012157 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�L�4��h������]� g��guile � g��define-module* � � g��scripts g��read-text-outline � g��filenameS f��scripts/read-text-outline.scm g��importsS g��ice-9 g��regex   � � � g��exportsS g��read-text-outline-silently g��make-text-outline-reader � g�� autoloadsS g��rdelim  � g�� read-line � g�� getopt-long  � � � g��set-current-module � � !g��%include-in-guild-list "f��*Convert textual outlines to s-expressions. #g��%summary $g��symbol->string %g��string=? &f��? 'g�� substring (g�� string-length )g��?? *g��match:substring +g��msub ,f��� -g�� ??-predicates .g�� make-regexp /f��^ 0g�� string-append 1g��assq-ref 2g��level-submatch-number 3g�� compute-level 4g��level-substring-divisor 5g��body-submatch-number 6g�� match:suffix 7g�� extra-fields 8g��map 9g��for-each :g��set-object-property! ;g�� regexp-exec <g��level =g��make-line-parser >g��start ?>� @g�� eof-object? Ag��object-property Bg��error Cf��unhandled diff not 1: Df��(([ ][ ])*)- * E4  FE� Gg��write Hg�� open-file If��r Jg��newline Kg��mainC�5�������hP�����]4   5 �4 �>��"��G���!R"#R$%&'(�h ������] 4�544556�������g��symbol  �g��name ��g��filenamef��scripts/read-text-outline.scm {  |  |   }   }   } &  } "  }  } �  ��g��nameg��??�C)R*��h���j���]�L�6������b�������g��m  ��g��filenamef��scripts/read-text-outline.scm �  � �  ���C���h���p���]�O�C������h�������g��n  ��g��filenamef��scripts/read-text-outline.scm  �  ��g��nameg��msub�C+R)%,*��������h������]44�L�55C����������g��m  ��g��filenamef��scripts/read-text-outline.scm �  �   �   �  � 3  �  �   � �   ���C+���h(������]�4�5$�� �O�"��4�5C���������g��pair  &��g��filenamef��scripts/read-text-outline.scm �  �   � �  �  �   � " �  $ � % � �  & ��g��nameg�� ??-predicates�C-R'.%/0+123��h���j���]L��6b�������g��m  ��g��filenamef��scripts/read-text-outline.scm � $  � &�   ���C4(������h������]44L�55L�C������}�������g��m  ��g��filenamef��scripts/read-text-outline.scm � $  � )  � 8  � )  � &�   ���C(�����h���s���]4L��56���k�������g��m  ��g��filenamef��scripts/read-text-outline.scm �   � 0 � !�  ���C56�����h���j���]�6b�������g��m  ��g��filenamef��scripts/read-text-outline.scm �   � *�   ���C78-9:�������h������]L�4�L�56������������g��pair  ��g��filenamef��scripts/read-text-outline.scm � ' � . � * � +  � *  � )�   ���C����h���{���]�O�L�6�������s�������g��obj  �g��m  ��g��filenamef��scripts/read-text-outline.scm � $  � &�   ���C���h���r���]C����j�������g��obj  �g��m  ��g��filenamef��scripts/read-text-outline.scm � �   ���C;:<����hX������]4L��5$��?4L54L54>��"��G��4L>��"��G��CC�����������g��line  T�g��t T�g��level  ! R�g��body  ! R��g��filenamef��scripts/read-text-outline.scm �   � �   �   �  ! �  & �  , � / 3 �  < � �  T ���C�����h������]24� 5445$���"�� 4�55445$��"�� 54 5$��  O�"��(4 5$��  O�"�� O�45$�� 45"��45$��45O�"��O�C������g��re  ��g��specs  ��g��fc  1�g��rx  1 ��g��t  ? Q�g��level-substring  S ��g��t  ^ ��g��t  z ��g�� extract-level  � ��g��t  � ��g�� extract-body  � ��g��t  � ��g��new  � ��g�� misc-props!  � ���g��filenamef��scripts/read-text-outline.scm �  �  �  �   �  � *  �  �  $ � ( � / , � . �  1 �  4 �  7 �  = � + ? �  ? � S �  S �  V �  \ � & ^ �  ^ �  r �  x � & z �  z �  � �  � �  � � % � �  � �  � �  � �  � � $ � �  � �  � � - � � " � � �*  � ��g��nameg��make-line-parser�C=R=?@A<BC:>� ���h`����]QH��H"�%45$��"�'4L�5$���45  $�� "�� $��S    $��"��4 >��"��G�� 4>��"��G��JK"��E $��="��"4 5$�� K"��  "J "JJK"���4�5" 4�5"4�5 J"JK J&��CJC����������g��port  \�g��all  \�g��pchain  \�g��line   4�g�� prev-level   4�g��tp   4�g��t   4�g��t  ) 1�g��words  6 �g��level  A �g��diff H �g��t g ��g��p � ��� g��filenamef��scripts/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  \ ���C��h������] 4�5O�C����������g��re  �g��specs  �g�� parse-line  ��g��filenamef��scripts/read-text-outline.scm �  �  � �   ��g��nameg��make-text-outline-reader�CR4iDF5RGHIJ������h@������-��1��3�444�55>��"��G��4>���"��G��C�������������g��args :��g��filenamef��scripts/read-text-outline.scm � �  �  � %  � 0  � ;  � %  � �  ) � � : ��g��nameg��read-text-outline�CRiKRC�������g��m  0��g��filenamef��scripts/read-text-outline.scm  p 4 x 6 y  9 y 7 { S  1 � �  �  �   �   �   �   � G � N � �  P ���C6����������������������������������oop/goops/simple.go���������������������������������������������������������������������������������0000644�����������������00000003330�15253700563�0010315 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�D�4��h2������]� g��guile � g��define-module* � � g��oop g��goops g��simple � g��filenameS f��oop/goops/simple.scm g��importsS g�� accessors  � � � g��exportsS g�� define-class � g��set-current-module � � g��make-syntax-transformer � � g��macro g�� $sc-dispatch � � g��any g��each-any  !g�� syntax-object "g��$define-class-with-accessors-keywords #g��top $#� %g��ribcage &g��dummy 'g��arg (&'� )g�� m-1f33f87a8-1 *)#� +*$� ,f�� l-1f33f87a8-6 -f�� l-1f33f87a8-7 .,-� /%(+.� 0%� 1g��x 21� 3*� 4f�� l-1f33f87a8-3 54� 6%235� 7$/06� 8g��hygiene 98� :!"79� ;g��syntax-violation <;� =;� >f��-source expression failed to match any pattern ?g�� module-use! @g��module-public-interface Ag��current-module Bg��resolve-interface C�C�5�h�����]4    5�4�>��"��G���4 :��h���>���]C6�������g��dummy  �g��arg  ��   ���C=>���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��oop/goops/simple.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��argg��...���C5R?i4@i4Ai5�54BiC56��������g��m  ,��g��filenamef��oop/goops/simple.scm   w  |  &           �   ���C6���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������oop/goops/dispatch.go�������������������������������������������������������������������������������0000644�����������������00000024204�15253700563�0010626 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0l(������]�a�4�����h������]� g��guile � g��define-module* � � g��oop g��goops g��dispatch � g��filenameS f��oop/goops/dispatch.scm g��importsS �  � g��util � � g��system g��base g��target � � � g��exportsS g��memoize-method! � g��set-current-module � � g��current-module g��*dispatch-module* g��gensym !f��a "f��t #g��append $#� %#� &g��rest 'g��let (g��map )g��class-of *f��p +g��if ,g��and -g��apply .&� /g��assq-ref 0g��eq? 1f��c 2g�� cache-miss 3g��cons* 4g��list 5g��emit-linear-dispatch 6g�� make-vector 7f��g 8g�� vector-length 9g��lambda :g��cdr ;g�� case-lambda <g��car =g�� with-target >g�� %host-type ?g��compile @?� A@?� B@?� Cg��envS Dg��fromS Eg��scheme Fg��optsS Gg�� partial-eval?S Hg��cse?S IGH� Jg��args KJ� Lg��max Mg��compute-dispatch-procedure Ng�� timer-init Og��slot-ref Pg��effective-methods Qg�� slot-set! Rg�� procedure Sg��cache-dispatch Tg��delayed-compile Ug�� n-specialized V )� W )� Xg��compute-cmethod Y X� Z X� [g��memoize-effective-method! \g��compute-applicable-methods ]g��%compute-applicable-methods ^g��no-applicable-method _g��set-procedure-property! `g��system-procedureC�5h8!�����]4    5�4�>��"��G���4i5�R ���h8������]"��  $��C45"�"�������������g��n  2�g��stem  2�g��n   &�g��syms   &��g��filenamef��oop/goops/dispatch.scm @   A  B  B   D   D   D  & D & A  ) A  * A  2 A �  2 ��g��nameg��gen-syms�C!"%&'()�����h���p���]���C�h�������g��t  �g��a  ��g��filenamef��oop/goops/dispatch.scm P   Q �   ���C *+,-./01234�����hX��&��]e4545"�(��.$�� 45"��45 �� D"�� (��L4  5    $�� 45"�� �  "v4  5$��!    �   "{4 5     �   "J     "4�$��45"���  "����������g��gf-sym  T�g��nargs  T�g��methods   T�g��free   T�g��rest?   T�g��gen-syms   T�g��args   T�g��types   T�g��methods  $�g��free $�g��exp $�g��free X �g��types X �g��specs X �g��checks  X �g��m-sym  e ��g��var  � �g��var  � ��g��filenamef��oop/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 ��g��nameg��emit-linear-dispatch�C5R6 785��������hp���b��]�4L5$��KL�(����"4L�>�� G���"L�4L56�����Z������g��n  k�g��clauses  k�g��free   k�g��methods   [�g��clause  @ [�g��free  @ [��g��filenamef��oop/goops/dispatch.scm �   �  �  �   �   �  �  �  . �  / �  C �  J �  O � & [ �  ^ �  e �  k � �  k ��g��nameg�� emit-rest�C9(:;<=>BCDEFI�����h ������]4L�5��L@����������g��p  ��g��filenamef��oop/goops/dispatch.scm �   �   �   �   �   �   �   � �   ���C5� �h�����]� $��/45�45O�6L�(����"4 L�>�� G���"~����������g��n  ��g��clauses  ��g��free   ��g��exp  & 9�g��vals  & 9�g��methods  > ��g��clause  i ��g��free  i ���g��filenamef��oop/goops/dispatch.scm �   � �  �  �   �   �  & � 9 �  > �  > � F �  I �  W �  X �  l �  s �  x � % � � �  � ��g��nameg��emit-req�C8J2KL� ����hH����]R"�-(��4545"��(��y45O� O�   Q�  Q�  45   $��"��  $�� ��"����6 $�� "Y ";"3 $��4  5"4  5" "�����������g��gf  C�g��cache  C�g��ls   3�g��nreq   3�g��nrest   3�g��req   ��g��rest   ��g��ls  & ��g��gf-sym  3 ��g�� emit-rest K ��g��emit-req K ��g��t m ��g��n  � ��g��n  � ���g��filenamef��oop/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 ��g��nameg��compute-dispatch-procedure�CMR NRNMOPQRS������hP������-��1��3�MNM $��.4L�4L�554L�>��"��G���@L��6�����������g��args L�g��dispatch & D��g��filenamef��oop/goops/dispatch.scm �  �   �   �   �   �   �  " � ) $ �  & �  & �  ) � / �  6 � D � L � � L ���C��h������] H�O�C�������g��gf  �g��timer  ��g��filenamef��oop/goops/dispatch.scm �  � �   ��g��nameg��delayed-compile�CTR�h8�����] � $��"��$��C454L��5C�� ������g��n  6�g��f  6�g��ls   6�g��t   ��g��filenamef��oop/goops/dispatch.scm �   �  �   �   �   �  �  % �  ' �  ( �  - � & 2 � / 4 �  5 � �  6 ��g��nameg�� map-until�C���h8������]�$��#$���&����"CC�(��CC�������g��x  8�g��y  8��g��filenamef��oop/goops/dispatch.scm �   � �  �   �   �   � '  �   � " � * ( �  2 �  5 � �  8 ��g��nameg��equal?�COUW2P���h�����]"O�O�Q�Q�4�5$��X44�55"��1(���64 5$��  @"4�5"�6�������������g��gf  ��g��args  ��g�� map-until   ��g��equal?   ��g��types  ; ��g��cache  A r��g��filenamef��oop/goops/dispatch.scm �  �  # �  % �  ) �  * �  - �  3 � + 5 �  ; �  ; �  A �  G � O �  P �  U � % W �  [ �  _ � b � $ e �  i �  l �  r �  r �  s �  y � % { �  � �  � � �  � ��g��nameg��cache-dispatch�CSR��h������]4�5@��������g��gf  �g��args  ��g��filenamef��oop/goops/dispatch.scm �  �  � �   ��g��nameg�� cache-miss�C2R�����h0������]  $��"���$��C�4L��5C��������g��ls  /�g��n  /�g��t   ��g��filenamef��oop/goops/dispatch.scm �   �  �   �   �   �  " �  # �  ( � + � ) - �  . � �  / ��g��nameg��first-n�C(WZOPQRTU� ��h ��z��]3O�"��(��`4545�4�54�>��"��G��4�4 �5>��"��G��C4� 5$��4455"��"_"��V45�4�54�>��"��G��4�4 �5>��"��G��CQ� "�������r������g��gf  �g��args  �g�� applicable   �g��n   ��g��ls   ��g��types   t�g��cmethod  ( t�g��cache  > t�g��len  �  �g��rest?  �  �g��types  �  �g��cmethod  �  �g��cache  �  �g��first-n   ��g��filenamef��oop/goops/dispatch.scm �  �   �   �   � �  " �  ( �  ( �  4 �  5 �  ; � % = �  > �  > �  A �  G �  N �  W �  ] �  ^ �  i �  w �  } �   �  � � � �  � �  � � ' � �  � � � �  � �  � � � �  � �  � �  � �  � �  � �  � �  � � % � �  � �  � �  � �  � �  � �  � �  � �  � �  � �    �6   ��g��nameg��memoize-effective-method!�C[R\][^�������h8������] 4�&��"���5$�� �6�6������������g��gf  3�g��args  3�g�� applicable   3��g��filenamef��oop/goops/dispatch.scm             !   +  3  �  3 ��g��nameg��memoize-method!�CR_ii`6��������g��m  ,��g��filenamef��oop/goops/dispatch.scm   -   6   ?  t  � < � P �  �  � !*  !4  ) !7  �  !7 ���C6���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������oop/goops/composite-slot.go�������������������������������������������������������������������������0000644�����������������00000007711�15253700563�0012014 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�\�4��h������]� g��guile � g��define-module* � � g��oop g��goops g��composite-slot � g��filenameS f��oop/goops/composite-slot.scm g��importsS �  � � g��exportsS g��<composite-class> � g��set-current-module � � g��toplevel-define!  �  � g�� make-class g��<class> g��nameS g��defined?  �  � g��is-a?  � ! � " � # � $g��memq %g��<object> & %� ' %� (g��class-precedence-list ) (� * (� +g��class-redefinition , +� - +� .g��compute-get-n-set /g��make 0 /� 1 /� 2g�� <generic> 3 2� 4 2� 5g�� add-method! 6 5� 7 5� 8g��<method> 9 8� : 8� ;g�� specializersS <g��<top> = <� > <� ?g��formalsS @g��class Ag��slot B@A� Cg��bodyS Dg��if Eg��eq? Fg��slot-definition-allocation GFA� Hg�� propagatedS IEGH� Jg��compute-propagated-get-n-set KJA� Lg�� next-method ML� NDIKM� ON� Pg��make-procedureS Qg�� procedureS Rg�� get-keyword Sg�� propagate-toS Tg��slot-definition-name Ug�� goops-error Vf��%Propagation not specified for slot ~S Wf�� Bad propagation list for slot ~S Xg��map Yg��slot-ref Zg�� slot-set! [g��for-eachC�5��h�����]4    5�4�>��"��G���"��+44ii���5>��"��xG��"��q45$��b4!i#5$��K4$i'4*i55$��-4-i4ii���5>��"��G��"��"t"��"l"��"d4.5��$��"��.i�$��!4.414.5>��"��G��"���47.i41:;i>�?BCOPFHJ������h ������]45&��6L��6����������g��class  �g��slot  ��g��filenamef��oop/goops/composite-slot.scm 1  2  2   3   1 �   ���C��h���m���]�O�C������e�������g��real-next-method  ��g��filenamef��oop/goops/composite-slot.scm 1 �  ���CQ5 >��"��G��RSTUVWXh���w���]�$���C�Co�������g��p  ��g��filenamef��oop/goops/composite-slot.scm ?   ? ( ? $ ? 2�   ���C�������h���w���]�$���CL�C�������o�������g��p  ��g��filenamef��oop/goops/composite-slot.scm @   @ & @ " @ 0�   ���CY���h���o���]4�L5L�6�������g�������g��o  ��g��filenamef��oop/goops/composite-slot.scm E  F   F �   ���CZY�h���~���]4�L5L�6�����v�������g��o  �g��v  ��g��filenamef��oop/goops/composite-slot.scm J  K   K �   ���C[ZY�������h������]4L�5L�6�����~�������g��object  �g��slot  ��g��filenamef��oop/goops/composite-slot.scm M   N &  N �   ���C�������h���v���]�O�LL�6�����n�������g��o  �g��v  ��g��filenamef��oop/goops/composite-slot.scm L  M �   ���C� ������h�����]14�54�5$��"��4>��"��G��$��"��4>��"��G��454 O�5 O�(��  O�"��  O��C����������g��s  ��g��prop  ��g��s-name   ��g��objects  l ��g��slots  l ��g�� first-object  v ��g�� first-slot  v ���g��filenamef��oop/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 �  � ��g��nameg��compute-propagated-get-n-set�CJRC���������g��m  ,�g��t � ���g��filenamef��oop/goops/composite-slot.scm   1 / � 1  6 �   ���C6��������������������������������������������������������oop/goops/accessors.go������������������������������������������������������������������������������0000644�����������������00000006265�15253700563�0011023 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0 ������]�4�4��hp������]� g��guile � g��define-module* � � g��oop g��goops g�� accessors � g��filenameS f��oop/goops/accessors.scm g��importsS �  � � g��exportsS g��define-class-with-accessors g��$define-class-with-accessors-keywords � g�� re-exportsS g��standard-define-class � g��set-current-module � � g��make-syntax-transformer � � g��macro g�� $sc-dispatch � � !g��_ "g��any #!" $g�� syntax->datum %$� &$� 'g�� datum->syntax ('� )'� *g�� map-in-order +g��keyword? ,g�� get-keyword -g��accessorS .g��syntax-violation /.� 0.� 1f��-source expression failed to match any pattern 2g�� init-keywordS 3g��symbol->keywordC�5���hx��[���]4    5 �4�>��"��G���4 #&)*+,-��������hX������] M�$��N��C4�5$��N��C�$��$4�5$���C��C���C�����������g��slot  T�g��name ; J��g��filenamef��oop/goops/accessors.scm       !     "  " $  &  ' %  . % . 1 %  5 %  ; ' " ; '  A (  F ( 3 G (  N * �  T ���C�������h(������-�1�3�H�4O�5C�����������g��name $�g��supers $�g��slots  $�g��eat?  $��g��filenamef��oop/goops/accessors.scm          !  � $  ���C�����h���k���] 4�5L�4?6c�������g��args  �g��v ��g��filenamef��oop/goops/accessors.scm   �   ���C01������h(���i���] 4�5$�� �O�@�6�a�������g��y  '�g��tmp '��g��filenamef��oop/goops/accessors.scm  �  ' ���C5R4 #&)*+,-23������h�����]M�$��N��C4�5$��N��C�$��X4�5$���"����45$��C45C��4�5�C�������������g��slot  ��g��name > O�g��slot O ~�g��name  f ~�g��keyword  o ~��g��filenamef��oop/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 �!  � ���C��h(������-�1�3�H�4O�5C�����������g��name $�g��supers $�g��slots  $�g��eat?  $��g��filenamef��oop/goops/accessors.scm - .   /   1  ! / � $  ���C�����h���k���] 4�5L�4?6c�������g��args  �g��v ��g��filenamef��oop/goops/accessors.scm  - �   ���C01������h(���i���] 4�5$�� �O�@�6�a�������g��y  '�g��tmp '��g��filenamef��oop/goops/accessors.scm - �  ' ���C5RCS�������g��m  0��g��filenamef��oop/goops/accessors.scm   �  x ���C6��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������oop/goops/stklos.go���������������������������������������������������������������������������������0000644�����������������00000012045�15253700563�0010346 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0 ������]��4�������h ������]� g��guile � g��define-module* � � g��oop g��goops g��stklos � g��filenameS f��oop/goops/stklos.scm g��importsS g��internal  � � � g��set-current-module � � g��module-for-each g�� module-add! g��module-public-interface g��current-module g��resolve-interface � g��call-with-deferred-observers � � g��module-export! � � � !� "g�� define-class #g�� define-method $"#� %g�� write-object &%� 'g�� read-options ('� )'� *g��append +*� ,*� -g��keywords .g��prefix /g��make-syntax-transformer 0/� 1/� 2g��macro 3g�� $sc-dispatch 43� 53� 6g��any 7g��each-any 877 968 :69 ;6: <g�� syntax-object =g��standard-define-class >g��top ?>� @g��ribcage Ag��dummy Bg��name Cg��supers Dg��slot Eg��rest FABCDE� Gg�� m-1f4787962-8 HG>� IH????� Jf�� l-1f4787962-d Kf�� l-1f4787962-e Lf�� l-1f4787962-f Mf��l-1f4787962-10 Nf��l-1f4787962-11 OJKLMN� P@FIO� Q@� Rg��x SR� TH� Uf�� l-1f4787962-a VU� W@STV� X?PQW� Yg��hygiene ZY� [<=XZ� \g��syntax-violation ]\� ^\� _f��-source expression failed to match any pattern `g��module-define! ag��toplevel-define! bg��free-id cg��setter dg��m-1f4787962-1d ed>� fe� gf��l-1f4787962-1f hg� i@Sfh� j?Qi� k<cjZ� lbk� ml6� nm7 o6n pg��begin qABE� re??� sf��l-1f4787962-22 tf��l-1f4787962-23 uf��l-1f4787962-24 vstu� w@qrv� x?wQi� y<pxZ� zg��if {<zxZ� |g��or }<|xZ� ~g��not <~xZ� �g��defined? �<xZ� �g��quote �<xZ� �g��is-a? �<xZ� �g��<generic-with-setter> �<xZ� �� �<axZ� �g��ensure-accessor �<xZ� �<xZ� �� �g�� add-method! �<xZ� �<cxZ� �g��method �<xZ� �67 �6 �f��l-1f4787962-2a �f��l-1f4787962-2b �f��l-1f4787962-2c �� �@qr� �?Qi� �<pZ� �<zZ� �<|Z� �<~Z� �<Z� �<Z� �<Z� �g�� <generic> �<Z� �� �g��<primitive-generic> �<Z� �� �<aZ� �g��ensure-generic �<Z� �<Z� �� �<Z� �<Z�C�5�������h�����]4    5�4�>��"��G���4i�h������]445�5�6�����������g��sym  �g��var  ��g��filenamef��oop/goops/stklos.scm #   $  $ 9  $  $ �   ���C4i5>��"��G��4!$���h���F���]�45�6���>�������g��filenamef��oop/goops/stklos.scm ) �  ���C>��"��G��4!&��������h���F���]�45�6���>�������g��filenamef��oop/goops/stklos.scm , �  ���C>��"��G��4)4,4)5�-.�5>��"��G��41"25;[,��������h���w���]45C���o�������g��dummy  �g��name  �g��supers   �g��slot   �g��rest   ��   ���C^_��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��oop/goops/stklos.scm 1 �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��nameg��supersg��slotg��...�g��restg��...���C5"R`�h������]45��6��������g��name  �g��val  ��g��filenamef��oop/goops/stklos.scm 4  5   5 �   ��g��nameg��toplevel-define!�CaR41#25oy{}��hp���Q���]����� � �� ����  ���C��I�������g��dummy  n�g��name  n�g��rest   n��  n ���C�����hx���Q���]��� ��� � �� ���� ��C��I�������g��dummy  v�g��name  v�g��rest   v��  v ���C^_��������h@������]4�5$��@4�5$��@�6��������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��oop/goops/stklos.scm 8 �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��setterg��name�g��restg��...�g��nameg��restg��...���C5#RC���������g��m  (��g��filenamef��oop/goops/stklos.scm   ) # � &  � & $ � &  � # � ) t ,  /  /   /  4 �   ���C6��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������oop/goops/describe.go�������������������������������������������������������������������������������0000644�����������������00000031216�15253700563�0010610 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0v2������]i�4�����h_������]� g��guile � g��define-module* � � g��oop g��goops g��describe � g��filenameS f��oop/goops/describe.scm g��importsS �  � g��ice-9 g��session � � g��format � � � g��exportsS � g��set-current-module � � g��defined?  �  � g��toplevel-define!  � ! � "g��make # "� $ "� %g�� <generic> & %� ' %� (g��nameS )g�� add-method! * )� + )� ,g��<method> - ,� . ,� /g�� specializersS 0g��<top> 1g��formalsS 2g��x 32� 4g��bodyS 5f��~s is  652� 7g��cond 8g��integer? 982� :f�� an integer ;:� <9;� =g��real? >=2� ?f��a real @?� A>@� Bg��complex? CB2� Df��a complex number ED� FCE� Gg��null? HG2� If�� an empty list JI� KHJ� Lg��boolean? ML2� Nf��a boolean value (~s) Og��if Pg��quote Qg��true RPQ� Sg��false TPS� UO2RT� VNU� WMV� Xg��char? YX2� Zf��a character, ascii value is ~s [g�� char->integer \[2� ]Z\� ^Y]� _g��symbol? `_2� af��a symbol ba� c`b� dg��list? ed2� ff��a list gf� heg� ig��pair? ji2� kg��cdr lk2� mil� nf��an improper list on� pf��a pair qp� rOmoq� sjr� tg��string? ut2� vg��eqv? wf��� xv2w� yf��an empty string zy� {f��a string of length ~s |g�� string-length }|2� ~{}� Oxz~� �u� �g��vector? �2� ��� �P� �v2� �f��an empty vector �� �f��a vector of length ~s �g�� vector-length �2� �� �O� �� �g�� eof-object? �2� �f��the end-of-file object �� �� �g��else �f��an unknown object (~s) �2� �� �7<AFKW^chs� �f��.~% �� �g�� *unspecified* �6� �g��make-procedureS �g�� procedureS �g�� <procedure> �g��let �g��name �g��procedure-name �2� �� �� �f��`~s' �� �g��display �2� �O� �f�� is  �� �f�� an anonymous �Oa� �� �f�� procedure �� �f�� with  �� �g��arity �2� �� �� �g�� slot-bound? �g�� class-name �g��safe-class-name �g��<object> �f��~S is an instance of class ~A~% �g��class-of �2� �� �2� �f�� Slots are: ~% �� �g��for-each �g��lambda �g��slot �� �g��slot-definition-name �� �� �� �f�� ~S = ~A~% �2� �f��~S �g��slot-ref �2� �� �f�� #<unbound> �O� �� �� �� �g�� class-slots �� �� �� �g��<class> �f��'~S is a class. It's an instance of ~A~% �2� �� �f��Superclasses are:~% �� �g��class �� �f�� ~A~% �� �� �� �g��class-direct-supers �2� �� �g��slots �g��class-direct-slots �2� �� �� �G� �f��(No direct slot)~% �� �g��begin �f��Directs slots are:~% �� �g��s �� �� �� �� �� �� �O� �� �g��classes �g��class-direct-subclasses �2� �� �� G� f��(No direct subclass)~% � f��Directs subclasses are:~% � � � �  �   �  O �  � �  f��Class Precedence List is:~%  � g��class-precedence-list 2� � g��methods g��class-direct-methods 2� � � G� f��(No direct method)~% � f��Class direct methods are:~% � � � O� �   � !g��generic-function-name "!2� #"� $g��generic-function-methods %$2� &%� '#&� (f��3~S is a generic function. It's an instance of ~A.~% )(� *f��(No method defined for ~S)~% +*� ,f��Methods defined for ~S~% -,� .2� /3.� 0/� 1-0� 2O+1� 3')2� 43� 5 0� 6 0� 7g�� omit-generic 827 9g��letrec :g�� print-args ;g��args <;� =G;� >g��newline ?>� @=?� Ai;� B � Cg��car DC;� ED� FE� Gk;� H:G� IABFH� J;� KJ� LBK?� M7@IL� N<M� O:N� PO� Qf�� Method ~A~% RQ2� SG7� Tg��gf Ug��method-generic-function VU2� WTV� XW� Yf�� Generic: ~A~% Z!T� [YZ� \f�� (No generic)~% ]\� ^OT[]� _X^� `OS_� af�� Specializers: ba� cg��method-specializers dc2� e:d� f9PR`be� gf� hg��provideC�5����h����]4    5�4�>��"��G���45��$��"��i�$��!4!4$'(5>��"��G��"���4+i4$./0i�13458:=?BDILNQSXZ[afnptwy{|�"�hH����]4�>��"��G��4�5$��4>��"��G��"�4�5$��4>��"��G��"�4�5$��4>��"��G��"��(��4 >��"��G��"�4 �5$��%4 �$�� "�� >��"��G��"�g4�5$��44�5>��"��G��"�>�$��4>��"��G��"� �$��4>��"��G��"��$��6�$��4>��"��G��"��4>��"��G��"��4�5$��>�$��4>��"��G��"��44�5>��"��G��"��|�$��>�$��4>��"��G��"��44�5>��"��G��"��74�5$��4>��"��G��"��4 �>��"��G��4!>��"��G��C��|������g��x  F��g��filenamef��oop/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 >��"��G��45��$��"��i�$��!4!4$'(5>��"��G��"���4+i4$./i�134� ��h�����] 4�5$��4>��"��G��"��4�>��"��G��4>��"��G��4$��a"��>��"��G��4>��"��G��4>��"��G�� �6��������g��x  ��g��name ���g��filenamef��oop/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 >��"��G����������h������]4�5$���6�C�������g��class  ��g��filenamef��oop/goops/describe.scm K  L  L  L   L   M �   ��g��nameg��safe-class-name�CR45��$��"��i�$��!4!4$'(5>��"��G��"���4+i4$./i�134����h8������] 4�54L�5$��44L�55"��6�������g��slot  8�g��name 8��g��filenamef��oop/goops/describe.scm V  W  W   X   Z   Z  [  % [ ' & [ , 0 [  6 \  8 X �  8 ���C������hX������]4�4�5>��"��G��4>��"��G��4�O�4�5>��"��G��C������������g��x  S��g��filenamef��oop/goops/describe.scm P  Q   Q R  R   R  Q  U  % U * U  3 V  = ] B ]  D ] I V �  S ���C5 >��"��G��45��$��"��i�$��!4!4$'(5>��"��G��"���4+i4$./i�134 �������h���u���]4�56m�������g��class  ��g��filenamef��oop/goops/describe.scm i  i '  i 2  i �   ���C�h���q���]4�56i�������g��s  ��g��filenamef��oop/goops/describe.scm r   s !  s ,  s �   ���C�����h���q���]4�56i�������g��s  ��g��filenamef��oop/goops/describe.scm }   ~ !  ~ ,  ~ �   ���C ��h���u���]4�56m�������g��s  ��g��filenamef��oop/goops/describe.scm �  � #  � .  � �   ���C��hP��C��] 44�54�5>��"��G��4>��"��G��44�5>��"��G��4�5(��4 >��"��G��"��'4 >��"��G��4 >��"��G��4 �5(��4 >��"��G��"��'4>��"��G��4>��"��G��4>��"��G��44�5>��"��G��4�5(��64>��"��G��6���;������g��x  M�g��slots W ��g��classes � ��g��methods # M��g��filenamef��oop/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 >��"��G��45��$��"��i�$��!4!4$'(5>��"��G��"���4+i4$./%i�1344!$(*,�����h���c���]�6�������[�������g��x  ��g��filenamef��oop/goops/describe.scm �  � �  ���C� �h`�����]4�54�544�5>��"��G��(�� 64>��"��G�� 6���������g��x  ]�g��name  ]�g��methods   ]��g��filenamef��oop/goops/describe.scm �  �  �   �   �   �   �  " � " $ �  ) �  7 �  < �  @ �  A � F �  M � ] � �  ] ���C5 >��"��G��45��$��"��i�$��!4!4$'(5>��"��G��"���4+i4$./,i6184g>QUY!\ac� h�����-�1�3�"��q(��6�$��34 >��"��G��445>��"��G��"4 >��"��G��445>��"��G��6�4�>��"��G��(��G4�5$��445>��"��G��"��4 >��"��G��"���4 >��"��G��4 �5" ������g��x ��g�� omit-generic ��g��args  ~�g��gf  � ���g��filenamef��oop/goops/describe.scm � �   �   � -  �  �   � 1 � 4 � ) 9 � : ; � ) @ � K � , Q � R � d � g � ) r � ~ � ~ �   �  � �  � �  � �  � �  � �  � �  � � � �  � � . � � � � � �  � � � �  � �  � �  � �  � � �( � ���C5 >��"��G��hi6������������g��m  ,�g��t 4 I�g��t  �g��t �g��t �g��t J _�g��t  ��g��filenamef��oop/goops/describe.scm   - #  = K P c C �  � y � { � �  { ���C6�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������oop/goops/active-slot.go����������������������������������������������������������������������������0000644�����������������00000010466�15253700563�0011266 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]��4��h������]� g��guile � g��define-module* � � g��oop g��goops g�� active-slot � g��filenameS f��oop/goops/active-slot.scm g��importsS g��internal  � � � g��exportsS g��<active-class> � g��set-current-module � � � g��toplevel-define! � � g�� make-class g��<class> g��nameS g��defined? � � !g��is-a? "!� #!� $� %� &g��memq 'g��<object> ('� )'� *g��class-precedence-list +*� ,*� -g��class-redefinition .-� /-� 0g��compute-get-n-set 1g��make 21� 31� 4g�� <generic> 54� 64� 7g�� add-method! 87� 97� :g��<method> ;:� <:� =g�� specializersS >g��<top> ?>� @>� Ag��formalsS Bg��class Cg��slot DBC� Eg��bodyS Fg��if Gg��eq? Hg��slot-definition-allocation IHC� Jg��activeS KGIJ� Lg��let* Mg��index Ng��slot-ref Og��quote Pg��nfields QOP� RNBQ� SMR� Tg��s Ug��cdr VUC� WTV� Xg�� before-ref Yg�� get-keyword Zg��before-slot-refS [YZT� \X[� ]g�� after-ref ^g��after-slot-refS _Y^T� `]_� ag�� before-set! bg��before-slot-set!S cYbT� dac� eg�� after-set! fg��after-slot-set!S gYfT� heg� ig��unbound jg�� make-unbound kj� lik� mSW\`dhl� ng�� slot-set! og��+ poM � qnBQp� rg��list sg��lambda tg��o ut� vXt� wg��let xg��res yg��%fast-slot-ref zytM� {xz� |{� }g��and ~g��not g��eqv? �xi� �~� �]t� �}]� �w|x� �Fvk� �FX� �su� �g��v �t� �at� �g��begin �g��%fast-slot-set! �tM� �et� �}e� �� �F� �Fa� �s� �r� �Lmq� �g�� next-method �� �FK� �� �g��make-procedureS �g�� procedureSC�5�h��|���]4    5�4�>��"��G���"��+44ii���5>��"��xG��"��q4 5$��b4#i%5$��K4&i)4,i55$��-4/i4ii���5>��"��G��"��"t"��"l"��"d4 05��$��"��0i�$��!4043605>��"��G��"���90i43<=i@�ADEHJNPYZ^bfjnyj��h������] L$��F4L�5$��74�L�5L$��#L$��"��4L�>��"��G��"���C6�4�L�5L$��#L$��"��4L�>��"��G��"���C����������g��o  ��g��res  J�g��res W ���g��filenamef��oop/goops/active-slot.scm *   +  ,   ,   - #  -  $ .  ) . . - .  2 . B N 0  O 1  W 1  _ 2  d 2 * h 2  m 2 >�  � ���C���hh������]L$��54L�5$��&4�L>��"��G��L�$��L��6CC4�L>��"��G��L�$��L��6C������������g��o  c�g��v  c��g��filenamef��oop/goops/active-slot.scm 5   6  7   7   9  1 :  9 : * > <  Y =  a = &�  c ���C��h�����]:45&��z4�54545454 54 5�4 �>��"��G�� O� O��CL��6�������������g��class  ��g��slot  ��g��index   ��g��s   ��g�� before-ref  ) ��g�� after-ref  5 ��g�� before-set!  A ��g�� after-set!  M ��g��unbound  T ��� g��filenamef��oop/goops/active-slot.scm  !  !   "   " *  "   "   #   "  $  ) "  , %  5 "  8 &  A "  D '  M "  P (  T "  W )  ] )  ` ) " e )  � *  � �  � ���C��h���j���]�O�C������b�������g��real-next-method  ��g��filenamef��oop/goops/active-slot.scm �  ���C5 6�������t�������g��m  ,�g��t � ���g��filenamef��oop/goops/active-slot.scm   1  � �   ���C6�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������oop/goops/save.go�����������������������������������������������������������������������������������0000644�����������������00000146545�15253700563�0010002 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0M������]�4����h.������]� g��guile � g��define-module* � � g��oop g��goops g��save � g��filenameS f��oop/goops/save.scm g��importsS g��internal  � � g��util � � � g��exportsS g�� save-objects g�� load-objects g��restore g�� enumerate! g��enumerate-component! g��write-readably g��write-component g��write-component-procedure g��literal? g��readable g�� make-readable �  !g�� re-exportsS "g�� make-unbound #"� $g��set-current-module %$� &$� '� (g��defined? )'(� *'(� +g�� immediate? ,g��toplevel-define! -',� .',� /g��make 0'/� 1'/� 2g�� <generic> 3'2� 4'2� 5g��nameS 6g�� add-method! 7'6� 8'6� 9g��<method> :'9� ;'9� <g�� specializersS =g��<top> >g��formalsS ?g��o @?� Ag��bodyS B� Cg��make-procedureS Dg�� procedureS Eg��<null> F� Gg��<number> Hg�� <boolean> Ig��<symbol> Jg��<char> Kg�� <keyword> L'=� M'=� Ng��env O?N� Pg��file Q?PN� Rg��write SR?P� TS� Ug��make-weak-key-hash-table Vg�� readables Wg��make-syntax-transformer XW� YW� Zg��macro [g�� $sc-dispatch \[� ][� ^g��_ _g��any `^_ ag�� syntax->datum ba� ca� dg�� datum->syntax ed� fd� gg��quote hg�� copy-tree ig��syntax-violation ji� ki� lf��-source expression failed to match any pattern mg�� hashq-set! ng�� hashq-ref og��readable-expression pg�� readable? qg�� excluded? rg��display sg�� object-info tg��binding? ug��visiting vg��definedS wg��binding xg��or yg��begin zg�� add-patcher! {g��<string> |g��<vector> }g��not ~g��vector? ~?� �}� �g��let �� �� �g��array-for-each �g��lambda �g��if �?N� �}� �g��set! �� �� �@� �?� �� �x� �� �g��n �g�� vector-length �?� �� �� �g��zero? �� �f��#() �rP� �g�� not-literal? �?N� �}� �� �� �f��(vector  �f��#( �� �rP� �g��and �g�� vector-ref �? � �N� �� �r'P� �� �g�� quasiquote �g�� vector-set! �g��unquote �?� �� � � �� �PN� �g��do �g��i �g��+ � � � � �� �g��= �� �� �r P� �?� �N� �� �� �� �� �� �� �PN� �� �r)P� �� �� �� �S� �� �g��<array> �g��shared-array-root �?� �N� �� �g�� array-rank �g��reverse �g�� list-tail �g��t �g��s �g��r �g��q �g��p �g��m �g��l �g��k �g��j ��  �g��gensym �f��i �g��shared-array-offset �g��map �g��* �g��- �g��array-dimensions �g��shared-array-increments �g�� make-mapper �g�� array-ref �g�� array-set! �g�� write-array �g��root �� �� �g��cond �~� �}� �r#P� �?� �rP� �(?PN� �y� �S� �� �tN� �f��(make-shared-array  �rP� �N� �� �g�� goops-error �f��'write-readably(<array>): internal error �� �PN� �?� r�P� g��for-each g��dim � rP� � ?� �  �  g��else  f��(list->uniform-array   r P�  f�� '()  r P� f��(list  ?PN�   �  � � � g��<pair> g��car ?� N� � � g��cdr ?� N� � �  � !g��proper? "g��loop #g��ls $#?� %$� &g��null? '&#� (g��pair? )(#� *#� +t*N� ,}+� -"*� .),-� /x'.� 0"%/� 1!0� 2g��1? 3(� 4}3� 5tN� 6x45� 726� 8g��infos 9g� :89� ;g��refs <g�� ref-stack =<N� >;=� ?17:>� @}� A@(� B!� Cf��(cons  D2C� Ef��(cons*  F E� GABDF� HrGP� IN� JI� KJ� Lg��set-car! M� NLM� ON� POPN� Q#*� Rg��prev SR?#� TQS� U})� Vt#N� WxUV� X}'� Yf�� . ZrYP� [@Z� \#N� ]\� ^]� _g��set-cdr! `R� a#� b_`a� cb� d#cPN� ey[^d� fXe� gWf� hg��cons is#N� jhi8� k8j� lg�� push-ref! ml#N� ng�� visiting? o8� pno� qp� r#� srN� ts� ut� vr� wLav� xw� yrxPN� zTgkmquy�  {g��info |{� }n{� ~}� |~� 8� =;� ?HKPz� � g��setter � � g��integer? g�� standard-get g�� standard-set g��memq g��slot-definition-allocation g��classS g�� each-subclassS � g�� class-slots g��slot-ref g��getters-n-setters g��get-set-for-each g��slot-definition-accessor g��slot-definition-name g��generic-function-name g��access-for-each g��@@ g��%allocate-instance '� 9� g��name g��val � g�� slot-set! ?� � g��list g��<object> g��get g��set � ?� � � g��unbound? � }� N� � � � g��class-of ?� � � g��class � � f�� (restore  rP� g�� class-name � rP� f�� ( rP� g��slotdefs g��filter g��slotdef � � g� � g�� slot-bound? � ?� ?� qN� � x� }� � � � � � &� }� � � rP� rP� � � � y� � � g��aname � g#� rP� � qN� � N� � � � � � � � g� � � � PN�  � � � � � �  � g��<class> ?� rP� � ?� rP� � �f��#No read-syntax for <method> defined �� � g��is-a? '� '� g�� <accessor> '� '�  g��ensure-accessor  ' �  ' �  g��excluded  g��pass-2? g��objects g�� pre-defines g��locals g�� stand-ins g�� post-defines g��patchers g��multiple-bound g�� <environment> g�� make-class g��accessorS g�� init-formS g��make-hash-table  =� g�� init-thunkS g�� init-valueS '� '� '�  '� !g��class-precedence-list "'!� #'!� $g��class-redefinition %'$� &'$� 'g�� initialize (g��initargs )N(� *g�� next-method +*� ,g�� get-keyword -g��excludedS .,-(� /g��=> 0g�� excludees 10� 2g��e 32� 4g��hashq-create-handle! 5 N� 6452� 736� 870� 918� :./9� ;:� <+;� =sN� >n=?� ?>� @'� A'� Bg��x C?NB� Dm=?B� ED� Fg��hashq-get-handle Gg��pop-ref! Hg�� container Ig�� <object-info> Js?N� KwJ� LK� M+?� Nq?N� O{J� PO� Qt{� R}Q� Sg��eq? Tu{� Ug��definingS VSTU� W=� X&W� YVX� ZxRY� [{� \Z[� ]P\� ^xMN]� _^� `g��pass-2S ag�� binding-name bg��binding-object cg��pass-1! dg��string->symbol eg�� string-append ff��%o gg��number->string hg�� make-local ig��boolean? jg��name-bindings! kg��append lg��pass-2! mf��(define  nf��)  og�� write-define! pg��write-empty-defines! qg��write-definition! rf��(let* ( sf��( tf�� ( ug��write-let*-head! vg��write-rebindings! wg��newline xg��write-definitions! yg��assq zg��write-patches! {g��write-immediates! |g��write-readables! }g��alist ~g��rest P~ } g��port g��open-output-file P� � � g��apply }~� g�� close-port � g�� *unspecified* � � g�� <output-port> g��>= g��length ~�  � ~� 9�  � g��uses  � g��cadr ~� 9� � � /- � N� � c}N� j}N� lN� &� }� g�� use-modules g��unquote-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� g��let* g��open-input-file P� � � � � � � g��module-public-interface g��current-module g��iface g�� <input-port> g�� make-module � � � g�� module-use! g��the-scm-module � � g��save-module-excursion $� g��sexp g��read P� � � g�� eof-object? � }� g��eval � "� y� � "� � � g�� module-map g��var � g�� variable-ref � h� � � � �C�5��h(��#��]4     !#5 �4&�>��"��G���4*+5��$��"��+i�$��!4.+4145+5>��"��G��"���48+i41;<=i�>@ABCD��h���T���]C����L�������g��o  ��g��filenamef��oop/goops/save.scm X �   ���C5 >��"��G��4*+5��$��"��+i�$��!4.+4145+5>��"��G��"���48+i41;<Ei�>@AFCD�������h���T���]C����L�������g��o  ��g��filenamef��oop/goops/save.scm Z �   ���C5 >��"��G��4*+5��$��"��+i�$��!4.+4145+5>��"��G��"���48+i41;<Gi�>@AFCD�������h���T���]C����L�������g��o  ��g��filenamef��oop/goops/save.scm [ �   ���C5 >��"��G��4*+5��$��"��+i�$��!4.+4145+5>��"��G��"���48+i41;<Hi�>@AFCD�������h���T���]C����L�������g��o  ��g��filenamef��oop/goops/save.scm \ �   ���C5 >��"��G��4*+5��$��"��+i�$��!4.+4145+5>��"��G��"���48+i41;<Ii�>@AFCD�������h���T���]C����L�������g��o  ��g��filenamef��oop/goops/save.scm ] �   ���C5 >��"��G��4*+5��$��"��+i�$��!4.+4145+5>��"��G��"���48+i41;<Ji�>@AFCD�������h���T���]C����L�������g��o  ��g��filenamef��oop/goops/save.scm ^ �   ���C5 >��"��G��4*+5��$��"��+i�$��!4.+4145+5>��"��G��"���48+i41;<Ki�>@AFCD�������h���T���]C����L�������g��o  ��g��filenamef��oop/goops/save.scm _ �   ���C5 >��"��G��4*5��$��"��i�$��!4.41455>��"��G��"���48i41;<=iM�>OAFCD�����h���e���]C����]�������g��o  �g��env  ��g��filenamef��oop/goops/save.scm e �   ���C5 >��"��G��4*5��$��"��i�$��!4.41455>��"��G��"���48i41;<=iMM�>QATCDR������h������]�6������w�������g��o  �g��file  �g��env   ��g��filenamef��oop/goops/save.scm g i �  ���C5 >��"��G��4Ui =5VR4YZ]`cfgh���h���n���]�4�5��C��f�������g��exp  ��g��filenamef��oop/goops/save.scm r  s  s   s �   ���C�������h���f���] 4�5L�4?6^�������g��args  �g��v ��g��filenamef��oop/goops/save.scm  r �   ���Ckl���h(���d���] 4�5$�� �O�@�6�\�������g��y  '�g��tmp '��g��filenamef��oop/goops/save.scm r �  ' ���C5RmV�������h ������]4�>��"��G���C������������g��obj  �g��expr  ��g��filenamef��oop/goops/save.scm u  v �   ��g��nameg�� make-readable�CRnV�h������]4�5�C��������������g��obj  ��g��filenamef��oop/goops/save.scm y  z   z   z �   ��g��nameg��readable-expression�CoRnV�������h���t���]�6������l�������g��obj  ��g��filenamef��oop/goops/save.scm ~  �  ��g��nameg�� readable?�CpR+Rpoqrstuvw� ����h�����] 4�5$��4�>��"��G��C4�5$��44�5>��"��G��C4�5$��4>��"��G��C4�545$��*4 5 &��44 5>��"��G��CC4 �>��"��G��C�����������g��o  ��g��file  ��g��env   ��g��info  t ���g��filenamef��oop/goops/save.scm �  � �   �  $ � . �  / �  2 �  ? �  J � V �  W �  l �  t � w �  � � � �  � � � �  � � � �  � � (�  � ��g��nameg��write-component-procedureg�� documentationf��Return #f if circular reference�CR4YZ]`cfxyrz��������h0������]������C��������������g��object  )�g��patcher  )�g��file   )�g��env   )��g��filenamef��oop/goops/save.scm �  � �  ) ���C��h���g���] 4�5L�4?6_�������g��args  �g��v ��g��filenamef��oop/goops/save.scm  � �   ���Ckl��h(���e���] 4�5$�� �O�@�6�]�������g��y  '�g��tmp '��g��filenamef��oop/goops/save.scm � �  ' ���C5R4*5��$��"��i�$��!4.41455>��"��G��"���48i41;<{iM�>OABCD������h���f���]C����^�������g��o  �g��env  ��g��filenamef��oop/goops/save.scm � �   ���C5 >��"��G��4*5��$��"��i�$��!4.41455>��"��G��"���48i41;<|iM�>OACD����h���q���]4�L5$��CN�C��i�������g��o  ��g��filenamef��oop/goops/save.scm �   � #  �   � �   ���C����h0������] �$��!H4O��>��"��G��JCC�����������g��o  ,�g��env  ,�g��literal?  *��g��filenamef��oop/goops/save.scm �  � �  �  �  + � �  , ���C5 >��"��G��4*5��$��"��i�$��!4.41455>��"��G��"���48i41;<|iMM�>QACDrzR� �������h����]#�$�4�5 $��64�54$��"��>��"��G��$��+4� 5$��4'>��"��G��"���"���4� 5$��"��14>��"��G��4 � � �>��"��G��"��$��"��4 >��"��G��$��,4�5$��4'>��"��G��"���"���4�5$��"��34>��"��G��4 ���>��"��G��"T "M)6 �6�����������g��o  �g��file  �g��env   �g��n   �g�� not-literal?  , �g��t  � ��g��i  � |�g��t  1 s��g��filenamef��oop/goops/save.scm �  � �  �   �   �  �   �  " � # � % , � , � / �  7 �  9 �  ? �  F �  T �  U �  [ � ! _ �  c �  d �  � �  � �  � �  � � 3 � �  � �  � �  � �  � �  � �  � �  � � #  �   �   �  + � ! 1 �  U � ! ^ � 6 a � ! v �  | �   �   � �0   ���C5 >��"��G��4*5��$��"��i�$��!4.41455>��"��G��"���48i41;<iM�>OACD���h���x���]4�56�p�������g��o  �g��env  ��g��filenamef��oop/goops/save.scm �  �   � �   ���C5 >��"��G������h(������]$����"����C��������������g��ind  !�g��dim  !�g��inc   !��g��filenamef��oop/goops/save.scm �   �  � ! �   � -  � 7  � - � �  ! ���C��������h�����]4�54 $��4 5"��2"��# $��"�� 45""54 �54  4 �54 �55�C�������g��array  ��g��n ��g��n  + N�g��ls  + N�g��indices  [ ���g��filenamef��oop/goops/save.scm �  � �  �   �   �   �   � * ! � D # �  + �  . � % 3 � ! < � + = � 1 A � 9 C � 1 F � + N � % N �  Q � . Y �  [ �  [ �  _ �  d � k � r �  y �  � � � � �  � ��g��nameg�� make-mapper�CRrrz�h�����]"�(�a� $��"��4L4 5?L$��)4L5$��4'L>��"��G��"���"���4LL5$��"��04L>��"��G��4LL>��"��G��"��$��C4 L>��"��G��4L45?L$��)4L5$��4'L>��"��G��"���"���4LL5$��"��04L>��"��G��4LL>��"��G��"I "B�"��t$��C $��4 L>��"��G��"���4L�L>��"��G��4L�>��"��G��4)L>��"��G��" "��������g��dims  �g��indices  �g��n  j�g��el  * ��g��t  f ��g��i  � c�g��el  � Z�g��t   W�g��n  m �g��i  s �� g��filenamef��oop/goops/save.scm �   �  �      �   �   � " � ) & � 2 ( � ) * � " * �  2 �  3 � # ? �  @ �  f �  � �  � �  � �  � �  � �  � � � � ) � � 2 � � ) � � � �  � �  � � # � �  � �   �  < �  ] �  c �  m   m  s   x   |                       "            �6   ��g��nameg��loop�C���hX�����] 4�>��"��G��O��Q�445>��"��G��)6����������g��prefix  U�g��o  U�g�� not-literal?   U�g��file   U�g��env   U�g��loop  # M��g��filenamef��oop/goops/save.scm �  �  # �  6 �  = �  B �  U  �  U ��g��nameg�� write-array�CR4*5��$��"��i�$��!4.41455>��"��G��"���48i41;<iMM�>QACDrRtzr��h ���j���]4 L�>��"��G���L�6��b�������g��dim  ��g��filenamef��oop/goops/save.scm    !   " �   ���C  ��������h��=��]4�54�5$��I$��:4#>��"��G��44�5>��"��G��(�6�645$��4>��"��G��45$��4'>��"��G��"���4 5$��"��,4>��"��G��4 4  5>��"��G��4 >��"��G��44 �5>��"��G��4O�4�5>��"��G��)64>��"��G��44�5>��"��G��4>��"��G���6��5������g��o  �g��file  �g��env   �g��root  �g��t  � ���g��filenamef��oop/goops/save.scm                  4   7   D   Y   a   b  n   o  s   z  �   �  �   �  �   �  ) �   �           % #  0  @ $ A & E &  L & U ' X '  e ' n ( r (  y (  )   ) �-   ���C5 >��"��G��4*5��$��"��i�$��!4.41455>��"��G��"���48i41;<iM�>OA CD������h(������] 4�54�5$��CC��������������g��o  !�g��env  !�g��literal?  !��g��filenamef��oop/goops/save.scm 4  5   5 ( 5  5   6  6   6  6 �  ! ���C5 >��"��G��4*5��$��"��i�$��!4.41455>��"��G��"���48i41;<iMM�>QACDt<rCEzLY_slnn���h���b���]45�6��Z�������g��info  ��g��filenamef��oop/goops/save.scm d   e �   ���C���h ����]C"��3(��"��0$��45$��"��""���"�$��"�� 4�54�545H4$��$��"��$��"��"��(>��"��G��$��*4�5$��4'>��"��G��"���"���4�5$��"��/4>��"��G��4  ���>��"��G��"�$�� 45"��$��(��"��$��"��4 >��"��G��4 >��"��G��$��)45$��4'>��"��G��"���"���45  $��"��.4>��"��G��4   �>��"��G�� 4)>��"��G��"��4 >��"��G��4 5JK4>��"��G��445J>��"��G��$��*45$��4'>��"��G��"���"���45  $��"��/4>��"��G��4  �>��"��G��  "F�� "94J>��"��G��456�����������g��o  �g��file  �g��env   �g��ls   9�g��t  F a�g��proper?  s �g��1?  s �g�� not-literal?  s �g��infos  s �g��refs  s �g��t  � /�g��ls  3 �g��prev 3 �g��t  �g��t  ��g��filenamef��oop/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 >��"��G���������hH������] 45$��L�4545644�55$��CL�6�����������g��slotdef  D�g��g-n-s  D�g��g-n-s   D��g��filenamef��oop/goops/save.scm s  t   t  u   u   v   v 2 % v  & w  ) w " 3 w  7 u  > y  A y ) D y �  D ���C����h ������]�O�45456����������g��proc  �g��class  ��g��filenamef��oop/goops/save.scm r z  {  {   {  s �   ��g��nameg��get-set-for-each�CR� ���h���N��]4�545$��+L�4�5$�� 45"��4545644�5 5$��CL�4�5$�� 45"��6�F������g��slotdef  �g��g-n-s  �g��g-n-s  �g��a  ��g��filenamef��oop/goops/save.scm ~                  +   ,  $ 8   ?   G   H   K  " U   Y   ^   j   k  $ y   |     �   ���C������h ������]�O�45456����������g��proc  �g��class  ��g��filenamef��oop/goops/save.scm }          ~ �   ��g��nameg��access-for-each�CR4YZ]`cf?g@� ���h8������-�1�3������ C�����������g��class 4�g��slots 4�g��exps  4��g��filenamef��oop/goops/save.scm   � 4  ���C���h���g���] 4�5L�4?6_�������g��args  �g��v ��g��filenamef��oop/goops/save.scm   �   ���Ckl��h(������] 4�5$�� �O�@�6��������g��y  '�g��tmp '��g��filenamef��oop/goops/save.scm  �  ' ��g�� documentationf��)(restore CLASS (SLOT-NAME1 ...) EXP1 ...)g�� macro-typeg��defmacrog�� defmacro-argsg��args��C5R4*5��$��"��i�$��!4.41455>��"��G��"���48i41;<iM�>OACD���h ������] 4�L�545$��CL6�������g��get  �g��set  �g��val  ��g��filenamef��oop/goops/save.scm     !    !     �  ���C������h ������]4�O��>��"��G��Cy�������g��o  �g��env  ��g��filenamef��oop/goops/save.scm          �  ���C5 >��"��G��4*5��$��"��i�$��!4.41455>��"��G��"���48i41;<iMM�>QACDrq�������hP������] 44�55$��"��,4L�4�55$��44L�4�55L5"��C��������g��slotdef  O�g��t  M��g��filenamef��oop/goops/save.scm        $         # $  2 ,  # 0   1  # 4  $ 9  0 A  $ E  # N  �  O ���Cr������h(���w���]4 L�>��"��G��4�5L�6�����o�������g��slotdef  #��g��filenamef��oop/goops/save.scm        ! #  �  # ���Cr#qzg� ���h���X��]4 L>��"��G��4L545$��L64L�5$��C4L�5$��4'L>��"��G��"���4LL�5$��C4L>��"��G��$��L��"�� L ���L�6������P������g��name  ��g��aname  ��g��get   ��g��set   ��g��val   ��g��t  ; ��g��t  v ���g��filenamef��oop/goops/save.scm        "     *   .  ) 2  3  ;   G  $ S  T  $ v  �  1 �  5 �  5�  � ���C� ����h�����]�4>��"��G��445>��"��G��4>��"��G��4�O�455(��"��4445>��"��G��4  O�>��"��G��4)>��"��G��4  �O�>��"��G��)6�������������g��o  ��g��file  ��g��env   ��g��class   ��g��slotdefs  ] ���g��filenamef��oop/goops/save.scm                    ,   5   9  @   I  U   ]  ]   e   j  m   r  + t   {  �  �   �  �   �   �  �  � ���C5 >��"��G��4*5��$��"��i�$��!4.41455>��"��G��"���48i41;<iM�>OABCDh���f���]C����^�������g��o  �g��env  ��g��filenamef��oop/goops/save.scm  �   ���C5 >��"��G��4*5��$��"��i�$��!4.41455>��"��G��"���48i41;<iMM�>QACDr��������h������]4�56��������g��o  �g��file  �g��env   ��g��filenamef��oop/goops/save.scm      �   ���C5 >��"��G��4*5��$��"��i�$��!4.41455>��"��G��"���48i41;<2iM�>OABCD�������h���f���]C����^�������g��o  �g��env  ��g��filenamef��oop/goops/save.scm  �   ���C5 >��"��G��4*5��$��"��i�$��!4.41455>��"��G��"���48i41;<2iMM�>QACDr�h������]4�56��������g��o  �g��file  �g��env   ��g��filenamef��oop/goops/save.scm      �   ���C5 >��"��G��4*5��$��"��i�$��!4.41455>��"��G��"���48i41;<9iM�>OABCD�������h���f���]C����^�������g��o  �g��env  ��g��filenamef��oop/goops/save.scm  �   ���C5 >��"��G��4*5��$��"��i�$��!4.41455>��"��G��"���48i41;<9iMM�>QACD��h������]6�������g��o  �g��file  �g��env   ��g��filenamef��oop/goops/save.scm       �   ���C5 >��"��G��4*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<i5�$��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*5��$��"��4i5�$��64.4 4*5$�� i"��5>��"��G��"���"�4.4i��ssi���h���G���]� =6?�������g��filenamef��oop/goops/save.scm   �   ���C�  i���h���G���]� =6?�������g��filenamef��oop/goops/save.scm   �   ���C�  i�<<i�i�i�i�i�i�i�i�� 55>��"�G��"� 4*5$�4i5$�4i 4#i55$�4&i4i��ssi������h���G���]� =6?�������g��filenamef��oop/goops/save.scm   �   ���C�  i���h���G���]� =6?�������g��filenamef��oop/goops/save.scm   �   ���C�  i�<<i�i�i�i�i�i�i�i�� 55>��"��G��"��"J"��"B"��":4*'5��$��"��'i�$��#4.'4145'5>��"��G��"���48'i41;<iM�>)A<C,-4 �����h���h���]4L�5�6`�������g��e  ��g��filenamef��oop/goops/save.scm     0   �   ���C�����h8������] 4L��>��"��G��45$�� �O�6C��������g��env  7�g��initargs  7�g��t  7��g��filenamef��oop/goops/save.scm      5  �  7 ���C������h���d���]�O�C������\�������g��real-next-method  ��g��filenamef��oop/goops/save.scm  �  ���CD5 >��"��G��4*s5��$��"��si�$��!4.s4145s5>��"��G��"���48si41;<MM�>OA?CDns�����h���x���]45�6�p�������g��o  �g��env  ��g��filenamef��oop/goops/save.scm      �   ���C5 >��"��G��4*s5��$��"��4si5�$��24.s4 4*s5$��si"��s5>��"��G��"���484Asi541;<MMM�>CAECDms�h������]45�6��������������g��o  �g��env  �g��x   ��g��filenamef��oop/goops/save.scm       �   ���C5 >��"��G��F ��������h������]45�6��������g��o  �g��env  ��g��filenamef��oop/goops/save.scm       �   ��g��nameg�� excluded?�CqR�����h������]45�456��������g��patcher  �g��env  ��g��filenamef��oop/goops/save.scm    %      �   ��g��nameg�� add-patcher!�CzR<���h������]45�456��������g��o  �g��env  ��g��filenamef��oop/goops/save.scm         �   ��g��nameg�� push-ref!�ClR<���h������]45�4�56����������g��env  ��g��filenamef��oop/goops/save.scm         �   ��g��nameg��pop-ref!�CGR<������h������]4�5C�����w�������g��env  ��g��filenamef��oop/goops/save.scm "  #  # �  ��g��nameg�� container�CHR4*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&Ii4i��uui�wwi�i��5I5>��"��G��"��V4.I4i��uui�wwi�i��5I5>��"��G��"��V4.I4i��uui�wwi�i��5I5>��"��G��"��V4.I4i��uui�wwi�i��5I5>��"��G��uinR4*w5��$��"��wi�$��!4.w4145w5>��"��G��"���48wi41;<Hi�>|ABCD���h���X���]C����P�������g��info  ��g��filenamef��oop/goops/save.scm 0 �   ���C5 >��"��G��4*w5��$��"��wi�$��!4.w4145w5>��"��G��"���48wi41;<MM�>OALCDws����h���x���]4�56�p�������g��o  �g��env  ��g��filenamef��oop/goops/save.scm 3  4  4 �   ���C5 >��"��G��witR4*5��$��"��i�$��!4.41455>��"��G��"���48i41;<Hi�>|AFCD���h���X���]C����P�������g��info  ��g��filenamef��oop/goops/save.scm 8 �   ���C5 >��"��G��4*5��$��"��i�$��!4.41455>��"��G��"���48i41;<MM�>OA_CD+qstuU<� �����hx���5��]4�5$��C4�5$��C4�545$��"��45&�� 45"��$��6C������-������g��o  r�g��env  r�g��t  r�g��t   r�g��info  1 r�g��t  ; f��g��filenamef��oop/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/IlG���hx��,��]4�5$��C4�5$��C4�5$��C45$��K4�545$�� 45C4 �5$��44  5>��"��G��CC4�5$��=44  5>��"��G��45$��4  544 556C4544 5�>��"��G��4�>��"��G��44 5>��"��G��4 �>��"��G��44 5>��"��G��4>��"��G��4 5�456������$������g��o  r�g��env  r�g��info  ? ��g��t  � r�g��info  � r��g��filenamef��oop/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 ��g��nameg��enumerate-component!�CRiaRibRb��h���n���]4�5L�6�f�������g��binding  ��g��filenamef��oop/goops/save.scm ~   $   �   ���C�������h������]O��6��������g��alist  �g��env  ��g��filenamef��oop/goops/save.scm |  ~ �   ��g��nameg��pass-1!�CcRdefg�����h������]44�556�����������g��i  ��g��filenamef��oop/goops/save.scm      !  &      �   ��g��nameg�� make-local�ChRb+pqswa� ����h���X��]4�545$��"�� 45$��"�� 4L�5$��C4L�545$��"45L�454 �54L�56454 �56�����P������g��b  ��g��o ��g��t   B�g��t  & ?�g��info  Q ���g��filenamef��oop/goops/save.scm              &   4   F   I  Q   T  # [   _   i  ' p  ' w  x  '   �   �  �  �  � ���Cwstih�����h��R��]:4O��>��"��G��"��}(��"�� 45$��6445>��"��G��445>��"��CG��"��<45$��""45"s"�C(��N44545>��"��G��44 545>��"��G��4 54564 54 5$��4 455$��<44545>��"��G��"I(��"&4544545>��"��G��45""4455 "�������J������g��alist  �g��env  �g��ls   ��g�� post-defs   ��g��ls  � �g��i  � �g��pre-defs  � �g��locs  � �g��sins  � �g��info   �g�� real-name   �� g��filenamef��oop/goops/save.scm        %  &   +   0   4   6   :   ;  T  q   v   z   ~   �   �  % �   �  �   �  �   �   �   �   �   �   �  �  " �  �  �   �  �         !                  '   +  ,   6  & A   L   O   T  ! W   g   m  p   u  ! x        "         (            #      $                                    �R   ��g��nameg��name-bindings!�CjR su`������h@������] 4�L�54454�L�5>��"��G��456�������������g��o  :�g��info :��g��filenamef��oop/goops/save.scm            & %   :  �  : ���Ck� ���h@������]445�>��"��G���O�44�54�54�556��������g��env  ?��g��filenamef��oop/goops/save.scm     $  '   .   5   =  ?  �  ? ��g��nameg��pass-2!�ClRrmRn����hx�����]4>��"��G��4�>��"��G��4 >��"��G��$��4'>��"��G��"���4>��"��G��6�������g��name  x�g��val  x�g��literal?   x�g��file   x��g��filenamef��oop/goops/save.scm             +   D   E   ]   t  x  �  x ��g��nameg�� write-define!�CoRo����h���o���]�L�6���g�������g��stand-in  ��g��filenamef��oop/goops/save.scm      �  ���Cow�����h���h���]4�L5L�6�����`�������g��o  ��g��filenamef��oop/goops/save.scm       �   ���C��h8������]4�O�45>��"��G���O�456�����������g��file  4�g��env  4��g��filenamef��oop/goops/save.scm         ,  4  �  4 ��g��nameg��write-empty-defines!�CpRrswluUvG� ������h���W��] 4�>��"��G��45445>��"��G��4 >��"��G��45$��4'>��"��G��"���4>��"��G��445>��"��G��4 >��"��G��445 >��"��G��4 >��"��G��)6�O������g��prefix  ��g��o  ��g��file   ��g��env   ��g��info   ���g��filenamef��oop/goops/save.scm           "   %  2   ;   O   Y   Z   r   �   �   �   �   �  �  � ��g��nameg��write-definition!�CqRrrqsqt�h���h���]�LL�6��`�������g��o  ��g��filenamef��oop/goops/save.scm    !   �   ���Cn� �h`�����]4�>��"��G��445�>��"��G��4�O�45>��"��G���6����������g��file  ]�g��env  ]��g��filenamef��oop/goops/save.scm                   #   ,   5   A   H  M   Y  ]  �  ] ��g��nameg��write-let*-head!�CuRrn���h`������]4LL�>��"��G��4�L�>��"��G��4 L�>��"��G��4�L�>��"��G��L�6�����������g��patch  \��g��filenamef��oop/goops/save.scm           #   ,   @   E   L   X   \  �  \ ���C�h������]�O�6��������������g��prefix  �g��bindings  �g��file   �g��env   ��g��filenamef��oop/goops/save.scm    �   ��g��nameg��write-rebindings!�CvRqw����h ���h���]4L�LL�>��"��G��L6`�������g��o  ��g��filenamef��oop/goops/save.scm   �   �  ���C�����h������]O�4�56�������g��selector  �g��prefix  �g��file   �g��env   ��g��filenamef��oop/goops/save.scm      �   ��g��nameg��write-definitions!�CxRrwy�����hP�����]4�L5$��44L55$��CC�$��4L��54L��5C�C����������g��patcher  L�g��t L�g��t  ! 0��g��filenamef��oop/goops/save.scm         ,   7 !  , !  % 3  7   8  & =  4 ?  & @  & E  4 G  & H  �  L ��g��nameg�� name-objects�Cw�hH������] 4LL>��"��G��4O�L�Q�4�5L>��"��G��L6�������g��patch  H�g�� name-objects " 3��g��filenamef��oop/goops/save.scm        "   :   H  �  H ���C��������h ������]�O�44556����������g��prefix  �g��file  �g��env   ��g��filenamef��oop/goops/save.scm           �   ��g��nameg��write-patches!�CzR+boa�����h0������]44�55$��4�54�5L�6C��������������g��b  )��g��filenamef��oop/goops/save.scm                !   ! '  �  ) ���C��������h������]O��6��������g��alist  �g��file  ��g��filenamef��oop/goops/save.scm    �   ��g��nameg��write-immediates!�C{Rpbyaoo� ���h���Y��] 44�55$��C44�5M5$��45L�4�54L�5644�544�55L>��"��G��4�54�5MNC������Q������g��b  ��g��t  ��g��t ( ���g��filenamef��oop/goops/save.scm    !   ! '  !   !   !   "   "  ( "  ( !  < % ) = & ) D % " E ' ) L % " N $  O )  R ) & Y * & \ * ; d * & l )  u - , | . , � - % � - �  � ���C����h������] HO��6���������g��alist  �g��file  �g��env   �g��written   ��g��filenamef��oop/goops/save.scm          �   ��g��nameg��write-readables!�C|R4*5��$��"��i�$��!4.41455>��"��G��"���48i41;<i{iM>ACD��������h@������-�1�3�454�>��"��G��4>��"��G��C���������g��alist >�g��file >�g��rest  >�g��port   >��g��filenamef��oop/goops/save.scm 2 3   3   4  + 5 � >  ���C5 >��"��G��4*5��$��"��i�$��!4.41455>��"��G��"���48i41;<iiM>ACD/-cjlRw{xmzpuvr|�������h����-�1�3�45 $��"��45 $��"��454�>��"��G��4�>��"��G��4>��"��G��(��"��)4 >��"��G��4 >��"��G��4 �>��"��G��4 5(��24 >��"��G��4>��"��G��"��4 >��"��G��4>��"��G��4>��"��G��445>��"��G��4 >��"��G��4>��"��G��4>��"��G��4�>��"��G��44556�������g��alist �g��file �g��rest  �g��excluded  5 �g��uses  5 �g��env  D ��g��filenamef��oop/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 >��"��G��4*5��$��"��i�$��!4.41455>��"��G��"���48i41;<{i�>ACD���h0������]4�5454>��"��G��C��������������g��file  )�g��port )�g��objects   )��g��filenamef��oop/goops/save.scm S  T  T  U   T   V �  ) ���C5 >��"��G��4i4i5�5R4*5��$��"��i�$��!4.41455>��"��G��"���8i41;<i�>ACD$�����hX������]4L>��"��G��"��.4�5$��C4�L>��"��G��4L�5�"4L�5�"������������g��sexp  F��g��filenamef��oop/goops/save.scm `   a   b   c  # c & e  : f  F f  F b  G b  S b �  S ���Ch���|���]�C�������t�������g��name  �g��var  ��g��filenamef��oop/goops/save.scm g   h   h �  ���C� hX������] 45�4>��"��G��4>��"��G��4�O�>��"��G��6�������������g��file  R�g��m  R��g��filenamef��oop/goops/save.scm [  \  \  ]   ^  2 _  R g �  R ���C5 6������g��m  0�g��t 8 M�g��t  (�g��t  �g��t  �g��t  �g��t  �g��t s �g��t S h�g��t D Y�g��t 2 G�g��t % :�g��t  5�g��t  �g��t # #�g��t ) )�g��t *{ *�g��t ;h ;}�g��t =p =�g��t D E�g��t E E�g��t G G�g��t G H�g��t I! I6�g��t J J*�g��t K1 KO�g��t K K�g��t K L�g��t LR Lq�g��t L L�g��t M M5�g��t Mx M�g��t M M�g��t N< N[�g��t N N�g��t O� O�g��t S, SB�g��t U U�g��t V V�g��t [ [�g��t \ \-�g��t \k \�g��t ^n ^�g��t _O _d�g��t `f `{�g��t aG a\�g��t ������m�������g��t �������������g��t ������{�������g��t ������������ ��2g��filenamef��oop/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 ������ [ �^ ������( ���C6������������������������������������������������������������������������������������������������������������������������������������������������������������oop/goops/compile.go��������������������������������������������������������������������������������0000644�����������������00000001061�15253700563�0010453 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]��4�������hN������]� g��guile � g��define-module* � � g��oop g��goops g��compile � g��filenameS f��oop/goops/compile.scm g��importsS g��internal  � � � g�� re-exportsS g��compute-cmethod � g��set-current-module � �C�5�����h0���W���]4    5�4�>��"��G���C����O�������g��m  ,��g��filenamef��oop/goops/compile.scm  �  , ���C6��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������oop/goops/util.go�����������������������������������������������������������������������������������0000644�����������������00000005717�15253700563�0010014 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0 ������]�5�4�h(������]� g��guile � g��define-module* � � g��oop g��goops g��util � g��filenameS f��oop/goops/util.scm g��importsS g��srfi g��srfi-1  � � � g��exportsS g�� mapappend g��find-duplicate g��map* g�� for-each* g��length* g��improper->proper � g�� re-exportsS g��any g��every � g��set-current-module � � !g�� append-map "g��memv #g��current-module $g��module-eval-closure %g�� top-level-env &g�� procedure? 'g��top-level-env? (g��call-with-deferred-observers )(� *(� +g��module-export! ,+� -+� .#� /#� 0'%� 1g��map 2g��car 3g��cdr 4g��applyC�5���h�����]4    5 �4 �>��"��G���!iR"�h(������]�(��C4��5$���C�6�����������g��l  $��g��filenamef��oop/goops/util.scm !  "  $   $  $   $   "   $ " % 0 $ % �  $ ��g��nameg��find-duplicate�CR#$������h������]45���$���6C��������g��mod  ��g��filenamef��oop/goops/util.scm (  )   )   *   +  , �   ��g��nameg�� top-level-env�C%R&�������h������]�(��C�6��������������g��env  ��g��filenamef��oop/goops/util.scm .  /  /   0   0 �   ��g��nameg��top-level-env?�C'R4*-/0�������h���D���]�45�6���<�������g��filenamef��oop/goops/util.scm 2 �  ���C>��"��G��123���h@������-�1�3�(��C$�� 4�45?4�45?C�@�������g��fn @�g��l @��g��filenamef��oop/goops/util.scm 4 6  5   6   7  7   5   7   7 ) ( 7  ) 8  . 8 ) 8 8  9 7  @ 9 � @ ��g��nameg��map*�CR4123�hP������-�1�3�(��C$��*4�45>��"��G���45@�@�������������g��fn J�g��l J��g��filenamef��oop/goops/util.scm ; =  <   =   >  >   <   >  >  - >  : > ? D > + J ? � J ��g��nameg�� for-each*�CRh0������]"��$��"C �"��������������g��ls  )�g��n  �g��ls   ��g��filenamef��oop/goops/util.scm A  B  D B   B  C   B �  ) ��g��nameg��length*�CR��������h ������]�$�� �4�5C��C�����������g��ls  ��g��filenamef��oop/goops/util.scm F  G  G  H H   H '  H   H   I �   ��g��nameg��improper->proper�CRC��������g��m  0��g��filenamef��oop/goops/util.scm   7  * !  (  .  2 q 4  ;  A  F �   ���C6��������������������������������������������������oop/goops/internal.go�������������������������������������������������������������������������������0000644�����������������00000001655�15253700563�0010650 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]��4�����h������]� g��guile � g��define-module* � � g��oop g��goops g��internal � g��filenameS f��oop/goops/internal.scm g��importsS �  � � g��set-current-module � � g��module-public-interface g��current-module g��module-for-each g��%module-public-interface g�� module-add! g��resolve-moduleC�5���h������]4    5�4�>��"��G���4i4i5�5�i����h������]�&��CL��6��}�������g��name  �g��var  ��g��filenamef��oop/goops/internal.scm     #     �   ���C�O�4i 56����������g��m  (�g��public-i 6 ���g��filenamef��oop/goops/internal.scm   )   .  ) 6   6  �   �  # �   �  �  � ���C6������������������������������������������������������������������������������������oop/goops.go����������������������������������������������������������������������������������������0000644�����������������00000314760�15253700563�0007040 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0ؙ�����]�4�hc������]� g��guile � g��define-module* � � g��oop g��goops � g��filenameS f�� oop/goops.scm g��importsS g��srfi g��srfi-1   � � g��ice-9 g��match � � g��util � � � g��exportsS g�� define-class g��class g��standard-define-class g��define-generic g��define-accessor g�� define-method g��define-extended-generic g��define-extended-generics !g��method "g��is-a? #g��class-of $g��ensure-metaclass %g��ensure-metaclass-with-supers &g�� make-class 'g�� make-generic (g��ensure-generic )g��make-extended-generic *g�� make-accessor +g��ensure-accessor ,g�� add-method! -g��class-slot-ref .g��class-slot-set! /g�� slot-unbound 0g�� slot-missing 1g��slot-definition-name 2g��slot-definition-options 3g��slot-definition-allocation 4g��slot-definition-getter 5g��slot-definition-setter 6g��slot-definition-accessor 7g��slot-definition-init-value 8g��slot-definition-init-form 9g��slot-definition-init-thunk :g��slot-definition-init-keyword ;g��slot-init-function <g��class-slot-definition =g�� method-source >g�� compute-cpl ?g��compute-std-cpl @g��compute-get-n-set Ag�� compute-slots Bg��compute-getter-method Cg��compute-setter-method Dg��allocate-instance Eg�� initialize Fg�� make-instance Gg��make Hg��no-next-method Ig��no-applicable-method Jg�� no-method Kg�� change-class Lg��#update-instance-for-different-class Mg�� shallow-clone Ng�� deep-clone Og��class-redefinition Pg�� apply-generic Qg�� apply-method Rg�� apply-methods Sg��compute-applicable-methods Tg��%compute-applicable-methods Ug��method-more-specific? Vg��sort-applicable-methods Wg��class-subclasses Xg�� class-methods Yg�� goops-error Zg�� min-fixnum [g�� max-fixnum \g�� instance? ]g��slot-ref-using-class ^g��slot-set-using-class! _g��slot-bound-using-class? `g��slot-exists-using-class? ag��slot-ref bg�� slot-set! cg�� slot-bound? dg�� class-name eg��class-direct-supers fg��class-direct-subclasses gg��class-direct-methods hg��class-direct-slots ig��class-precedence-list jg�� class-slots kg��generic-function-name lg��generic-function-methods mg��method-generic-function ng��method-specializers og��method-formals pg��primitive-generic-generic qg��enable-primitive-generic! rg��method-procedure sg��accessor-method-slot-definition tg�� slot-exists? ug�� find-method vg�� get-keyword w !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstGuv�_ xg��set-current-module yx� zx� {g��current-module |g��*goops-module* }g��%init-goops-builtins ~g��process-use-modules ~� �~� �g��language �g��tree-il �g�� primitives �� �g��selectS �g��add-interesting-primitive! �� �g��dispatch �� �� �g��make-procedure �g��compute-cmethod �g��error �� �� �f��no matching pattern �g��expt �g�� scm-error �g��memq �g��assoc �g��<class> �g��dsupersS �g��slotsS �g��nameS �g��gensym �f�� metaclass �g��map �g�� append-map �g��for-each �g��member �g��append �g��keyword? �f��malformed keyword arguments: ~a �g�� kw-do-map �g�� make-unbound �g��or-map �g��<object> �g�� metaclassS �g��find-duplicate �f��3make-class: super class ~S is duplicate in class ~S �f��,make-class: slot ~S is duplicate in class ~S �g��make-syntax-transformer �� �� �g��macro �g�� $sc-dispatch �� �� �g��_ �g��any � �g�� syntax->datum �� �� �g�� datum->syntax �� �� �f��malformed superclass list: ~S �g�� take-while �g�� find-tail �g��list �g��quote �g�� init-formS �g�� init-thunkS �g��lambda �g��syntax-violation �� �� �f��-source expression failed to match any pattern �g��define-class-pre-definition �g��each-any �nj �Ȍ �nj �ʌ �nj �̌ �g�� syntax-object �g��begin �g��top �� �g��ribcage �g��out �� �� �f�� l-bdc1916-ed �� �� �� �g��x �� �f�� l-bdc1916-d0 �� �� �� �g��hygiene �� �� �g��getterS �g��setterS �g��key �� �g�� m-bdc1916-e3 �� �� �f�� l-bdc1916-e4 �� �� �g��k �g��arg �g��rest �� �� �f�� l-bdc1916-db �f�� l-bdc1916-dc �f�� l-bdc1916-dd �f�� l-bdc1916-de �� �� �� �� �� �� �g��if �� �g��or �� �g��not �� g��defined? � � "� g�� <generic> � �  g��toplevel-define!   �  (�  �   � g��accessorS g�� <accessor> � � +� g��define-class-pre-definitions f�� l-bdc1916-f4 � � f�� l-bdc1916-f1 � � � � nj  nj   g��slotname !g��slotopt " !� #f�� l-bdc1916-115 $f�� l-bdc1916-116 %f�� l-bdc1916-117 &f�� l-bdc1916-118 '#$%&� ("'� )(� *)� +)� ,g�� identifier? -g��slot .-� /� 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� ;./:� <;� =<� >Ɍ ?g��dummy @g��name Ag��supers 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� Tg��and 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� pf��bad generic function name: ~S qg��define r� s� tg��prefixS ug�� symbol-append vf��no prefixes supplied wg��<generic-with-setter> xg��make-setter-name yg��setter zg��<extended-generic-with-setter> {g��extendsS |g��<extended-generic> }g�� extended-by! ~g�� extended-by g��invalidate-method-cache! g��delq! g��not-extended-by! g��procedure-with-setter? g��defaultS g�� procedure g�� procedure? g��generic-capability? � ?@� g�� m-bdc1916-19d � � f�� l-bdc1916-1a2 f�� l-bdc1916-1a3 � � � f�� l-bdc1916-19f � � � q� g��cond � �� � � +� � "� � � G� � g��else � g��string->symbol g�� string-append f��setter: g��symbol->string g��upgrade-accessor g��methods g�� extended-byS g��extends g��generic-function g��module-define! g��free-id g�� m-bdc1916-1c5 � � f�� l-bdc1916-1c7 � � � y� � �  nj  g��args g��body ?@� � 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� � � ,� !� g��free-identifier=? � � f�� l-bdc1916-26f � � g��compute-procedures g��compute-make-procedure g��->proper g��compute-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 � � � !� �  �    �   �  Ɍ   g��reverse g��lp g��ls g��formals g�� specializers � f�� l-bdc1916-1ed f�� l-bdc1916-1ee f�� l-bdc1916-1ef f�� l-bdc1916-1f0 � � f�� l-bdc1916-1ec � � � � �  g��<top> !g��tail "!� #f�� l-bdc1916-212 $#� %"$� &%� ' &� (g��f )(� *� +f�� l-bdc1916-20a ,f�� l-bdc1916-20b -+,� .)*-� /.� 0 /� 1� 2g�� next-method 3g��id 43� 5f�� l-bdc1916-26b 65� 746� 8� 9f�� l-bdc1916-269 :f�� l-bdc1916-26a ;9:� <8*;� =7<� >=� ?g��formal @?� 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� Tg��real-next-method UTR� VU� Wg��let XWR� YR� ZR� [g��null? \[R� ]\Y� ^g��apply _^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� xg��body0 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 � *� g��body1 x� f�� l-bdc1916-272 f�� l-bdc1916-273 f�� l-bdc1916-274 � /� �  G� g��<method> � g�� specializersS � g��cons* � g��formalsS � � g��bodyS � g��make-procedureS � g�� procedureS � g�� for-each* g��direct-methods g��add-method-in-classes! g��delv! g��remove-method-in-classes! g��compute-new-list-of-methods g��length* g��method-n-specializers g��fold g��max g��calculate-n-specialized g��%invalidate-method-cache! g�� n-specialized g��gf g��m � � b� � � b� � � g�� *unspecified* � g��internal-add-method! g�� <procedure> g��proc � � q� ,� � 2� � � g��<primitive-generic> g��pg � p� ,� � g��obj � f��"~S is not a valid generic function Y� � � g��let* g��spec g��map* � a� d� � g��src g��procedure-source � a� � � � g��cadr � � g��cddr � � � g��cons !� � � � W� T� � � � a� � g��car g��cdr g�� allocationS g��instanceS g�� init-valueS �g�� init-keywordS g��assq g��getters-n-setters g��slot-definition g��equal? g��g-equal? g��y � g��set-primitive-generic!  g��display  g��number->string  g��object-address  g��display-address  g��write g��o g��file � f�� #<instance   �  �  >� � g�� write-object #� � � @� c� f��#<  � d�  �    � ! � "!� #W"� $#� %� &g��meta '#� (&'� )(� *c&� +T*� ,d&� - ,� . � /-  .� 0+/� 1W)0� 21� 3� 4#� 5&4� 65� 7c� 8T*7� 9k� :@9� ;:� < @� = <� >@=� ?W;>� @f�� ( A @� Bg��length 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� \� ]\� ^g��merge-generics _g��<module> `g��<symbol> ag��module bg��int1 cg��val1 dg��int2 eg��val2 fg��var gg��val ha@bcdefg� ig�� <boolean> jg��eq? kjce� l�k� mg�� make-variable nec� o)n@� pmo� qTlp� rq� sa@bcdef� t� uat� veu� w�v� xeu� yex� zbty� {~� |ae{� }|� ~}� be{~� zf� Tw� � g��duplicate-handlers g��merge-accessors ^a@bcdefg�  � g��slots g��classS g�� each-subclassS � g��class-slot-g-n-s g��unbound? g��c g��s � f��!Slot `~S' is unbound in object ~S Y� � � f�� Slot `~S' is unbound in class ~S Y� � � f��Unbound 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� � g��value � 0� � � f��0No next method when calling ~S with arguments ~S Y� � f��&No applicable method for ~S in call ~S 9� Y� � f��No method defined for ~S Y� � g��self � g��clone g��%allocate-instance #� � � � j� 1� � � -� c-� a-� b-� � � � W� � � � \� N� � W� b-� � � � W� � g��old g��new � g��remove-class-accessors! � g� � � g��update-direct-method! � � � � g� � b� W� g��set-car! g��cpl � a� � � g��direct-subclasses � f� � b� � e� � � � b� � e� � g�� %modify-class � g��update-direct-subclass! � � f� � g�� redefined � b� �g��%invalidate-class �� �  g��<accessor-method> "� a� � � g��delq1!  a�   �  b �  �  W  �  � � g� � � � g��loop g��l n� � � g��pair? � g��eqv? � � � �  � ! � "!� #"� $W#� %$� &� 'e� (h� )d� *#� +&'()*� ,O+� -,� .g��compute-slot-accessors /g��g-n-s 0/� 1g�� init-thunk 2/� 312� 4/� 5/4� 635� 7� 8/� 9g��make-generic-bound-check-getter :/� ;9:� <8;� =g�� standard-get >=/� ?1>� @g��bound-check-get A@/� BA� C<?B� Dg��slot-definitionS EG7CD/� FW6E� GF� H � Ig�� standard-set JI/� K82J� LGHKD/� MW6L� NM� Og�� assert-bound Pg��num-standard-pre-cache Qg��define-standard-accessor-method Rg��cache Sg��vector Tg�� struct-ref Ug�� struct-set! Vg��iota Wg��n XW� Yg��< Zg�� vector-ref [ZRW� \g��nfields ]g��integer? ^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 bg��thunk? cf��&Bad init-thunk for slot `~S' in ~S: ~S dg��compute-getters-n-setters e� f?e� gf� hg��filter ig�� only-non-null jg�� merge-lists kg��every lg��reverse! mf��*merge-lists: Inconsistent precedence graph ng��top-sort og��build-transitive-closure pg��build-constraints qg��std-tie-breaker rg��compute-clos-cpl sf��top-sort: Invalid constraints tf��std-tie-breaker: Nothing valid u� vg��class-slot-init-value wv� xg��thunk y9� zxy� {z� |x� }7� ~x|}� W{~� qw� g��case 3� � g��already-allocated \� a� � � g��+  � b� W� � � 1� @� � h� 1� @� g��make-closure-variable w� i� � � � g��r � a� @� � � � !� W� W� � W� � � � g��virtualS � g��get g��slot-refS 2� v� � g��set g�� slot-set!S v� � � T� �� f��4You must supply a #:slot-ref and a #:slot-set! in ~S Y� � � W� � � � � � f��Allocation "~S" is unknown Y� � g��%compute-slots � � g��object g��initargs � g��%initialize-object � � � g��dslots 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�  � g��initialize-object-procedure g��<applicable-struct> g��applicable-struct � � � �g��generic �� g��previous-definition v� � v� @� � "�  ^�  ! �   �   �  b� � g��set-procedure-property! �@� @� W � �  � g��gws � g��%set-object-setter! v� � � g��eg � v{� bt� � g��dummy-procedure  !� !g��generic-functionS "v!� #b!"� $v� %b!$� &v� 'b!&� (v� )b!(� *� +v� ,b!*+� -� .v� /b!-.� 0#%'),/� 1g��%modify-instance 2g��change-object-class 3g�� old-instance 4g�� new-instance 534� 64� 7g�� new-class 837� 9#3� :2397� ;:� <� =<� >Ɍ ?g��instance @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� Vg��targs W#� XVW� YX� Zg��sort [g��m1 \g��m2 ][\� ^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��<list> r� sg��letrec tg��next ug��procs vu� wg��new-args xg��a y[w� zyw� {xz� |{� }[u� ~Hx� Qutx� }~� W|� w� v� t� � Qt� s� � g��system-procedure g��list2set g�� mapappend g�� %goops-loadedC�5�����h"���]4   w5�4z�>��"��G���4{i5�|R4}i>���"��G��4��>��"��G��4i#>��"��G��4�>��"��G��aHm������h���e���-��1��3�4L�5�6��]�������g��args ��g��filenamef�� oop/goops.scm q  r "  r �  ���Cr� �����hX�����]�$��?��45$��(�� O�"�� 45664�56����������g��methods  U�g��types  U�g��w   H�g��x   H�g��make-procedure   H��g��filenamef�� oop/goops.scm j  k   m   m ,  m   m  $ n  , p 8 s  B o H t I k �  U ��g��nameg��compute-cmethod�CR 4i  5ZR4i  5[RY��������h������-�1�3��6����������g�� format-string �g��args ��g��filenamef�� oop/goops.scm ~    0   �  ��g��nameg�� goops-error�CYRi�������h ������]44�55$��CC��������������g��obj  �g��class  ��g��filenamef�� oop/goops.scm �  �   �  � *  �   �   � �   ��g��nameg��is-a?�C"RH�G� h@������]4�M�5$��C4�455�M�N�C����������g�� meta-supers  =�g��entry =�g��new  . =��g��filenamef�� oop/goops.scm �   �  �   �   �  �  # � / & � . * � 6 , � . . �  . � 5 � ) 8 � # : � �  = ���C�O��%R��h���Z���]�C��R�������g��x  ��g��filenamef�� oop/goops.scm �   � )�   ���Ci������h���c���]4�5C�����[�������g��m  ��g��filenamef�� oop/goops.scm � $  � + � &�  ���C���h8������]4�L5$��"�� 4�M�5$��4M���5N�CC�����������g��meta  4��g��filenamef�� oop/goops.scm �  �   �   �   �  " � # � , � 5 . � 0 � �  4 ���C%� �����hP���$��]�(��C4�545H4O�>��"��G��J(��JCJ6������g��supers  P�g�� all-metas  P�g��all-cpls   P�g�� needed-metas  " P��g��filenamef�� oop/goops.scm �  �  �   �   �   �  " �  " �  % �  B �  F �  I � P � �  P ��g��nameg��ensure-metaclass�C$RY������hH��� ��] �(��C�$��"�� 4�5$��L�6�4L�5C�������������g��l  A�g��t  '��g��filenamef�� oop/goops.scm �   �  �  �   �  �   �  ! � ) # �  $ �  + �  / �  3 �  6 �  7 �  < � # ? �  @ � �  A ��g��nameg��keywords�C�h ������]�(��C�4L��5C��������������g��l  ��g��filenamef�� oop/goops.scm �   �  �  �   � %  � +  � %  � �   ��g��nameg��args�C����h@�����]#O�O�Q�Q�4545�6������������g��mapper  ;�g��f  ;�g��kwargs   ;�g��keywords   ;�g��args   ;�g��k  & ;�g��a  / ;��g��filenamef�� oop/goops.scm � � & �  ) � / �  ; � �  ; ��g��nameg�� kw-do-map�CRvi�h���g���]4�56�_�������g��class  ��g��filenamef�� oop/goops.scm � "  � *  � $�   ���C$1YG����h�����-�1�3�445�54�5$���"�� 4��545$��"��4 54 54 4  55$��4 >��"��G��"���$��4 >��"��G��"���@ ������� ������g��supers ��g��slots ��g��options  ��g��name   ��g��supers  8 ��g��t  D \�g�� metaclass  \ ��g��tmp1  s ��g��tmp2  s ��� g��filenamef�� oop/goops.scm � �   � +  �   �   �  & �  - �  6 � $ 8 �  8 �  ; �  D �  S �  \ �  _ �  f �  i � s �  s �  } �  ~ � � �  � � � �  � � � �  � � � � � �  ��g��nameg�� make-class�C&R4Y����h���c���]4�5C�����[�������g��x  ��g��filenamef�� oop/goops.scm �   � , � '�  ���C&������h0���~���]�$�����C��C������v�������g��kw  *�g��arg  *��g��filenamef�� oop/goops.scm �  �  � " ) � '�  * ���C�������h0������]�$����4�5C���C��������g��def  /��g��filenamef�� oop/goops.scm �   � �  �  �   �  �   �   �  � $ � �  / ���C� �������hp�����-�1�3��$��"��4�>��"��G��4545$��"���4  5C������� ������g��supers i�g��slots i�g��t  : L�g��slots  L i�g��options  L i��g��filenamef�� oop/goops.scm � �  �   �   �  �  ) �  2 �  : �  I � 0 L �  R �  Z �  c � � i ���C��������h���b���] 4�5L�4?6Z�������g��args  �g��v ��g��filenamef�� oop/goops.scm  � �   ���C�������h(���`���] 4�5$�� �O�@�6�X�������g��y  '�g��tmp '��g��filenamef�� oop/goops.scm � �  ' ���C5R4�������h���+���]�C#�������g��out  ��   ���C�h������]4�56����������g��k  �g��arg  �g��rest   �g��out   ��g��filenamef�� oop/goops.scm     �  ���C   ������h������] 4�5$��"��$��f4  ���  ��  �  �� �����5C$��f4  ��� ��  �  �� �����5CC�������g��k  ��g��arg  ��g��rest   ��g��out   ��g��key  ���g��filenamef�� oop/goops.scm    �  � ���C� ������hP���r���]4�5"�� 4�5$��@�6$��4?$��@""j�������g��x  P�g��tmp P�g��tmp   1��g��filenamef�� oop/goops.scm  �  P ���C5R4�����h���+���]�C#�������g��out  ��   ���C*+���h ���h���]4��5C������`�������g��slotname  �g��slotopt  �g��rest   �g��out   ��   ���C,�����h���x���]�6p�������g��slot  �g��rest  �g��out   ��g��filenamef�� oop/goops.scm  / �   ���C6�h���O���]C�����G�������g��slot  �g��rest  �g��out   ��  ���C�h������]4�56���y�������g��slot  �g��rest  �g��out   ��g��filenamef�� oop/goops.scm  ,  , �  ���C=��������h���O���]CG�������g��slot  �g��rest  �g��out   ��   ���C� �����h������]!4�5$��@4�5"��N4�5"�� 4�5$��@�6$��4 ?$�� @""$��4 ?$�� @""����������g��x  ��g��tmp ��g��tmp  " ��g��tmp  1 v�g��tmp  @ W��g��filenamef�� oop/goops.scm ' �  � ���C5R4>QRSUVWXZ[\]^_`a��h���j���]���   ���  4��5�� 4��5���Cb�������g��dummy  ��g��name  ��g��supers   ��g��slot   ���  � ���C�������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef�� oop/goops.scm 6 �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��nameg��supersg��slotg��...���C5R4o������h���>���]C6�������g��dummy  �g��arg  ��   ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef�� oop/goops.scm @ �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��argg��...���C5R4YpqT"rG(s����hx������]�$��"��4�>��"��G������� �   ��� ���������C�������g��name  x��g��filenamef�� oop/goops.scm J  K K   L   L   L  # M �  x ���C����h���b���] 4�5L�4?6Z�������g��args  �g��v ��g��filenamef�� oop/goops.scm  J �   ���C�������h(���`���] 4�5$�� �O�@�6�X�������g��y  '�g��tmp '��g��filenamef�� oop/goops.scm J �  ' ���C5R4Ypq)��h8������]�$��"��4�>��"��G�������C��������g��name  7�g��val  7��g��filenamef�� oop/goops.scm R  S S   T   T   T  # U �  7 ���C���h���b���] 4�5L�4?6Z�������g��args  �g��v ��g��filenamef�� oop/goops.scm  R �   ���C�������h(���`���] 4�5$�� �O�@�6�X�������g��y  '�g��tmp '��g��filenamef�� oop/goops.scm R �  ' ���C5R4 vtu��h���_���]�L�6������W�������g��prefix  ��g��filenamef�� oop/goops.scm ] $ ^ &�  ���C������h ���o���]�4�O�L�5�C�����g�������g��name  ��g��filenamef�� oop/goops.scm [   \  ]   \ �   ���CYv�h8������-�1�3�45$��4O��5C6������������g��names 3�g��args 3�g��prefixes   3��g��filenamef�� oop/goops.scm W X   X   Y   Z   [ , Z  1 a  3 a � 3 ���C��������h���b���] 4�5L�4?6Z�������g��args  �g��v ��g��filenamef�� oop/goops.scm  W �   ���C�������h(���`���] 4�5$�� �O�@�6�X�������g��y  '�g��tmp '��g��filenamef�� oop/goops.scm W �  ' ���C5 RG��������h ���v���-��.�,�3��#����6�n�������g��name ��g��filenamef�� oop/goops.scm c  d �  ��g��nameg�� make-generic�C'R"w���h���[���]�6������S�������g��gf  ��g��filenamef�� oop/goops.scm h  h !�  ���Cx"w(y��h(������]4�5$��44�5L�5�CC������������g��gf  #��g��filenamef�� oop/goops.scm l '  m -  m )  n 3  n C  n 3 n - " p -�  # ���CGz{|}y�������h�����-�.�,�3�#���$���"����45$��n$�� 45"��4O�54  4  554 4 5>��"��G��"��4  54 >��"��G��C������g��gfs ��g��name ��g��gfs  ' ��g��gws?  2 ��g��sname  L ��g��setters  \ ��g��es  ~ ��g��ans  � ���g��filenamef�� 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  � } � � ��g��nameg��make-extended-generic�C)Rb~a�������h������]�L�4�56���������g��gf  ��g��filenamef�� oop/goops.scm      "   /   "      �   ���C��h(������]4O��>��"��G��6��������������g��gfs  !�g��eg  !��g��filenamef�� oop/goops.scm     !  �  ! ��g��nameg�� extended-by!�C}Rb~a������h ������]�4L�4�556�������������g��gf  ��g��filenamef�� oop/goops.scm         #   0   #      �   ���C�h(������]4O��>��"��G��6��������������g��gfs  !�g��eg  !��g��filenamef�� oop/goops.scm     !  �  ! ��g��nameg��not-extended-by!�CR"Gwy� ������h������-�.�,�3�#��4�5$���C4�5$��4�5 4 �564 �5$��4 �5$���C�66����������g��old-definition }�g��name }��g��filenamef�� oop/goops.scm    "   &  0   ;   D   L  M  W   X  b  s  }  � } ��g��nameg��ensure-generic�C(R4������h`���?���]������    ��� �����C�7�������g��dummy  _�g��name  _��  _ ���C��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef�� oop/goops.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��name���C5R��h������]44�556�����������g��name  ��g��filenamef�� oop/goops.scm      !  +      �   ��g��nameg��make-setter-name�CxRGx����h@������-��.�,�3��#����4�$�� 4�5"��56�����������g��name <��g��filenamef�� oop/goops.scm   ,   -  :  <  � < ��g��nameg�� make-accessor�C*R"wy'G(+*��������h�����-�.�,�3�#��"��4�5$�� �4�564�5$�� �4564�5$��#   4 �5 44�5564�5$��-4�5$��4  �5"�� 4�5664� 5$��44�55$���C":"6�����������g��proc ��g��name ���g��filenamef�� oop/goops.scm    &   +  3  4  @   E  M  N  X   c   l   o  $ y   {  |  �   �   �   �   �   �  �  �   �   �   �   �   �   �  � � ��g��nameg��ensure-accessor�C+RaG"|zk~b}b��������h���h���]�L�6����`�������g��method  ��g��filenamef�� oop/goops.scm     "  �  ���C��h�����]4�544�5$��"��4 �5 4� 5 54�5$��P4� 54�>��"��G��4 >��"��G��4>��"��G��"���4O�>��"��G��4>��"��G��4>��"��G��C������������g��generic  ��g��setter  ��g��methods  = ��g��gws  = ��g��gfs  W ���g��filenamef�� oop/goops.scm      #          &   /  ! 5  3 7  ! =  =   B   N   O   U  % W   W   Z  n  t   {  �  �   �   �   �   �  �  � ��g��nameg��upgrade-accessor�CR{�����h������]45��6��������g��name  �g��val  ��g��filenamef�� oop/goops.scm       �   ��g��nameg��toplevel-define!�C R4������hx���c���]����� � �� ����  ���C�������[�������g��dummy  q�g��name  q�g��args   q�g��body   q��  q ���C� �hX���c���]������  ����  ��C���[�������g��dummy  U�g��name  U�g��args   U�g��body   U��  U ���C������h@������]4�5$��@4�5$��@�6��������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef�� oop/goops.scm  �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��setterg��name�g��argsg��bodyg��...�g��nameg��argsg��bodyg��...���C5R4!h ������] 4L��L5$��CL�L6��z�������g��x  �g��y  �g��t  ��g��filenamef�� oop/goops.scm      �   ���C,�������h���R���]�6J�������g��x  ��g��filenamef�� oop/goops.scm   �   ���C�����h ���|���] 4�L�54�5$��CC�t�������g��x  �g��id ��g��filenamef�� oop/goops.scm          �   ���C�h@������]4�5$�� L�O�@��4?$�� O�@C��������g��exp  ?�g��referent  ?�g��tmp  ?�g��tmp  % ?��g��filenamef�� oop/goops.scm  �  ? ��g��nameg�� find-free-id�C �����h���,���]�C�����$�������g��args  ��  ���C  �����h���f���]�4L54L�5�C�^�������g��filenamef�� oop/goops.scm              �   ���C,���h���U���]�6M�������g��tail  ��g��filenamef�� oop/goops.scm   �   ���C'�������h ������]44L5�54L�5�C���������g��tail  ��g��filenamef�� oop/goops.scm                     �   ���C,��h���d���]�6\�������g��f  �g��rest  ��g��filenamef�� oop/goops.scm   �   ���C0�����h���v���]L�LL�6������n�������g��f  �g��rest  ��g��filenamef�� oop/goops.scm        �   ���C,���h������]4�5$��6C���}�������g��f  �g��s  �g��rest   ��g��filenamef�� oop/goops.scm       "�   ���C�h������]L�LL�6������}�������g��f  �g��s  �g��rest   ��g��filenamef�� oop/goops.scm        �   ���C� �������h������]#4�5"��|4�5"��E4�5$�� O�@��4?$�� O�@�6$��4 ?$�� L�O�@""$��4 ?$�� L�O�@"`"\����������g��ls  ��g��formals  ��g�� specializers   ��g��tmp  ��g��tmp   ��g��tmp  ( e�g��tmp  B e��g��filenamef�� oop/goops.scm  �  � ��g��nameg��lp�C12>SVXYZ]Ua� ����h8���.���]�L�����L��C����&�������g��formal  4��  4 ���C��h���k���]L�L�6���c�������g��x  �g��xs  ��g��filenamef�� oop/goops.scm  $  �  ���C������h���B���]�L�6:�������g��filenamef�� oop/goops.scm   �   ���C��������hH������]4�5$�� L�O�@4�5$�� O�@�6�����������g��ls  D�g��out  D�g��tmp  D�g��tmp  ( D��g��filenamef�� oop/goops.scm   B  $ D  �  D ��g��nameg��lp�Cjlmnoqrkt� ��h8���.���]LL�� ���L��C�&�������g��formal  7��  7 ���C���hh������]4L�5$�� L�O�@O�Q�4L�545$��L�L�O�@6������������g��body  c�g��tmp c�g��lp  ( 8�g��tmp  8 c�g��tmp  C c��g��filenamef�� oop/goops.scm (   3   5   8 . �  c ���C���h���-���]L��C�����%�������g��body0  ��  ���C� h0���M���]LL�L�L� �� C��E�������g�� procedure  .�g��make-procedure  .��  . ���C� �������h���l��]"L�L4L5$��<45$��4�O�?"�� 45 "��;"��645$��4�O�?"�� 45 "�� G��4 5$�� L�L�O�@6d������g��formals  ��g�� specializer  ��g��body   ��g��id   ��g��tmp  % L�g��tmp  _ ��g�� procedure  � ��g��make-procedure  � ��g��tmp  � ��g��tmp  � ��� g��filenamef�� oop/goops.scm  I  ;   ; #  ;   ;   <  R > � @ � G � K �  � ���C�����hH������]O�Q�4�545$��L�O�@6���������g��args  F�g��body0  F�g��body1   F�g��lp  �g��tmp   F�g��tmp  & F��g��filenamef�� oop/goops.scm     "   5     F �  F ���C� �������hP������]O�Q�4�5$��@4�5$�� O�@�6������������g��x  K�g�� find-free-id K�g��tmp   K�g��tmp  / K��g��filenamef�� oop/goops.scm  �  K ���C5!Rgb������h(������] 4�54L�5$��C�L�6��������g��x  '�g��dm '��g��filenamef�� oop/goops.scm Z  [  [  \   \  ] " % ] 2 ' ] �  ' ���Cn����h������]�O�4�56����}�������g��m  ��g��filenamef�� oop/goops.scm X ^  Z �   ��g��nameg��add-method-in-classes!�CRbg�����h���~���]�4L�4�556v�������g��x  ��g��filenamef�� oop/goops.scm b  d  e   e #  e   c �   ���Cn�����h������]�O�4�56�����������g��m  ��g��filenamef�� oop/goops.scm ` f  b �   ��g��nameg��remove-method-in-classes!�CRna������hh���x��]454�5"��?(��C45$��4>��"��G��C""�������p������g��gf  a�g��new  a�g��new-spec   a�g��methods   a�g��l   Y��g��filenamef�� 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 ��g��nameg��compute-new-list-of-methods�CRa��������h������]4�56��������g��m  ��g��filenamef�� oop/goops.scm v  w w  w  w �   ��g��nameg��method-n-specializers�CR��������h���r���]4�56�j�������g��m  �g��n  ��g��filenamef�� oop/goops.scm z   z   z �   ���Cl�h������] 4�56�������g��gf  ��g��filenamef�� oop/goops.scm y  |   z �   ��g��nameg��calculate-n-specialized�CRb��������h���[���]�6S�������g��gf  ��g��filenamef�� oop/goops.scm    �   ���Ca~� ����h@������]4�>��"��G��4�4�5>��"��G��4�56���������g��gf  >��g��filenamef�� oop/goops.scm ~             '   4  :   <  >  �  > ��g��nameg��invalidate-method-cache!�CR4Giiii�b���h`������]4�>��"��G��4�4�5>��"��G��4�>��"��G��4>��"��G��C������������g��gf  [�g��m  [��g��filenamef�� oop/goops.scm                   -   6   H  �  [ ���C5 R"��$4(i4i,5$��,i"��,5"��B4i,5$��04"i,ii5$��4Gii,5"��""��",R44rii5,ii>��"��G��4i,5��$��"��,i�$��)4 i,4Gii,5>��"��G��"���4,i,i4Giiii�q,�����h0������]4�5$��4�>��"��G���6L��6��������g��proc  /�g��m  /��g��filenamef�� oop/goops.scm          '   /  �  / ���C�������h���_���]�O�C������W�������g��real-next-method  ��g��filenamef�� oop/goops.scm  �  ���C5 >��"��G��4i,5��$��"��,i�$��)4 i,4Gii,5>��"��G��"���4,i,i4Giiii�,p���h���r���]4�56�j�������g��pg  �g��m  ��g��filenamef�� oop/goops.scm       �   ���C5 >��"��G��4i,5��$��"��,i�$��)4 i,4Gii,5>��"��G��"���4,i,i4Gii ii�Y���h���s���]�6������k�������g��obj  �g��m  ��g��filenamef�� oop/goops.scm      �  ���C5 >��"��G��4i=5��$��"��=i�$��)4 i=4Gii=5>��"��G��"���4,i=i4Giii�da!� �������hP���J��]!44�5544�55$��45CC������B������g��m  J�g��spec  J�g��src  " J�g��args  2 H�g��body  2 H��g��filenamef�� oop/goops.scm         ,                ,  "   "   *   -   1   2  8   9   F   G  �  J ���C5 >��"��G��4io5��$��"��oi�$��)4 io4Giio5>��"��G��"���4,ioi4Giii�a��������h���b���]�6������Z�������g��m  ��g��filenamef�� oop/goops.scm      �  ���C5 >��"��G��i1Ri2Rv���h������]�6����������g��s  ��g��filenamef�� oop/goops.scm     �  ��g��nameg��slot-definition-allocation�C3Rv����h������]�6����}�������g��s  ��g��filenamef�� oop/goops.scm     �  ��g��nameg��slot-definition-getter�C4Rv��������h������]�6����}�������g��s  ��g��filenamef�� oop/goops.scm     �  ��g��nameg��slot-definition-setter�C5Rv�������h������]�6�����������g��s  ��g��filenamef�� oop/goops.scm     �  ��g��nameg��slot-definition-accessor�C6Rv���h������]�45�6�������g��s  ��g��filenamef�� oop/goops.scm     $   �   ��g��nameg��slot-definition-init-value�C7Rv�h������]�45�6�������g��s  ��g��filenamef�� oop/goops.scm     #   �   ��g��nameg��slot-definition-init-form�C8Rv����h������]�6�����������g��s  ��g��filenamef�� oop/goops.scm     �  ��g��nameg��slot-definition-init-thunk�C9Rv����h������]�6�����������g��s  ��g��filenamef�� oop/goops.scm     �  ��g��nameg��slot-definition-init-keyword�C:Rj�h������]4�56��������g��class  �g�� slot-name  ��g��filenamef�� oop/goops.scm       �   ��g��nameg��class-slot-definition�C<Ra��h������]44�55C����������g��class  �g�� slot-name  ��g��filenamef�� oop/goops.scm          (         �   ��g��nameg��slot-init-function�C;Ra����h������]�6�������������g��obj  ��g��filenamef�� oop/goops.scm      �  ��g��nameg��accessor-method-slot-definitiong�� documentationf��5Return the slot definition of the accessor @var{obj}.�CsR4'i5R4,ii4Gii i i�s���h���`���]C����X�������g��x  �g��y  ��g��filenamef�� oop/goops.scm  �   ���C5 >��"��G��4iii>��"��G��   �������h������]44�5 56���������g��o  �g��file  ��g��filenamef�� oop/goops.scm           �   ��g��nameg��display-address�C R4i 5��$��"�� i�$��+4 i 4Gii 5>��"��G��"���4,i i4Gii i i�  �����h8������]4>��"��G��4�>��"��G��>6�������������g��o  2�g��file  2��g��filenamef�� oop/goops.scm             2  �  2 ���C5 >��"��G��4pi i5R4i 5��$��"�� i�$��+4 i 4Gii 5>��"��G��"���4,i i4Giii i�$c@ d ��h�����] �45$��]4>��"��G��445>��"��G��4 >��"��G��4�>��"��G��>6L��6��������������g��o  y�g��file  y�g��class   y��g��filenamef�� oop/goops.scm �                         )  ,   9  B  V  q  y � �  y ���C�h���_���]�O�C������W�������g��real-next-method  ��g��filenamef�� oop/goops.scm � �  ���C5 >��"��G��4i 5��$��"�� i�$��+4 i 4Gii 5>��"��G��"���4,i i4Giii i�%2c@ d ������h���V��] �4�5$��45$��4>��"��G��445>��"��G��4 >��"��G��44�5>��"��G��4 >��"��G��4�>��"��G��>6L��6L��6�����N������g��class  ��g��file  ��g��meta   ���g��filenamef�� oop/goops.scm                        !   "  &   -  6  9   F  O  c  f   s  |  �  �  �  �  � ���C�������h���_���]�O�C������W�������g��real-next-method  ��g��filenamef�� oop/goops.scm  �  ���C5 >��"��G��4i 5��$��"�� i�$��+4 i 4Gii 5>��"��G��"���4,i i4Giii i�3Kc@ dk@BlF� �������h�����]�45$��4�5$��4>��"��G��445>��"��G��4�5$��,4 >��"��G��4>��"��G��"���4>��"��G��44 4 �55>��"��G�� 6L��6L��6��������g��gf  ��g��file  ��g��meta   ��g��name  U ���g��filenamef�� oop/goops.scm                         !   "  &   -  6  9   F  O   U  ] ! ^ #  r $  � % � %  � % � & � &  � &  � &  � & � '  � ' �  �"  � ���C�������h���_���]�O�C������W�������g��real-next-method  ��g��filenamef�� oop/goops.scm  �  ���C5 >��"��G��4i 5��$��"�� i�$��+4 i 4Gii 5>��"��G��"���4,i i4Giii i�[c@ dc@a��h ������]4�5$���6�C�������������g��spec  ��g��filenamef�� oop/goops.scm 2   3  3 1 3   3   4 .  4 �   ���Cn � �����h���e��] �45$��4�5$��4>��"��G��445>��"��G��4 >��"��G��444 �55>��"��G��4 >��"��G��4 �>��"��G��>6L��6L��6������]������g��o  ��g��file  ��g��meta   ���g��filenamef�� oop/goops.scm *  +   +   ,  ,   ,  ,   -  -   - ! ,  " / & /  - / 6 0 9 0  F 0 O 1 c 2 f 2  k 6  s 2  z 2 � 8 � 9 � : � * �  � ���C��������h���_���]�O�C������W�������g��real-next-method  ��g��filenamef�� oop/goops.scm * �  ���C5 >��"��G��4i 5��$��"�� i�$��+4 i 4Gii 5>��"��G��"���4,i i4Gii i i�]�������h���k���]�6������c�������g��o  �g��file  ��g��filenamef�� oop/goops.scm > ? �  ���C5 >��"��G��4i^5��$��"��^i�$��+4 i^4Gii^5>��"��G��"���4,i^i4Gii_i`i_i i_i i i i�hs������h������,�3�C�������g��module  �g��name  �g��int1   �g��val1   �g��int2   �g��val2   �g��var   �g��val   ��g��filenamef�� oop/goops.scm E �   ���C5 >��"��G��4i^5��$��"��^i�$��+4 i^4Gii^5>��"��G��"���4,i^i4Gii_i`i_ii_ii iii�hrm)�h(������,�3�&��C4�56�������������g��module  "�g��name  "�g��int1   "�g��val1   "�g��int2   "�g��val2   "�g��var   "�g��val   "��g��filenamef�� oop/goops.scm O  W   X   X - X  " X �  " ���C5 >��"��G��4i^5��$��"��^i�$��+4 i^4Gii^5>��"��G��"���4,i^i4Gii_i`i_ii_ii i|i�sab~�������h�����,�3�4455$��C44455>��"��G��44455>��"��G��4>��"��G��C�������g��module  �g��name  �g��int1   �g��val1   �g��int2   �g��val2   �g��var   �g��gf   ��g��filenamef�� 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 >��"��G��4ii^^i>��"��G��4i5��$��"��i�$��+4 i4Gii5>��"��G��"���4,ii4Gii_i`i_i i_i i i i�hsh������,�3�C�������g��module  �g��name  �g��int1   �g��val1   �g��int2   �g��val2   �g��var   �g��val   ��g��filenamef�� oop/goops.scm o �   ���C5 >��"��G��4i5��$��"��i�$��+4 i4Gii5>��"��G��"���4,ii4Gii_i`i_ii_ii i i�h^���h ������,�3��6�������������g��module  �g��name  �g��int1   �g��val1   �g��int2   �g��val2   �g��var   �g��val   ��g��filenamef�� oop/goops.scm y   �   ���C5 >��"��G��4iii>��"��G��a03� ������hp���u��]44�5544�55$��"�� 4�54455$��"��4�>��"��G��C�m������g��class  o�g�� slot-name  o�g�� this-slot   o�g��t  $ >�g��g-n-s  @ o��g��filenamef�� oop/goops.scm       $   4   $            *  : "  * $   $   3   ?   @   C  F   P  T   Y  �  o ��g��nameg��class-slot-g-n-s�CR/���h(������] 44�5545$���6C�������g��class  (�g��slot  (�g��x   (��g��filenamef�� oop/goops.scm                   %  �  ( ��g��nameg��class-slot-ref�C-R������h������]4�56�������������g��class  �g��slot  �g��value   ��g��filenamef�� oop/goops.scm        �   ��g��nameg��class-slot-set!�C.R4i/5��$��"��/i�$��)4 i/4Gii/5>��"��G��"���4,i/i4Giiii i�Y������h������]6����x�������g��c  �g��o  �g��s   ��g��filenamef�� oop/goops.scm      �  ���C5 >��"��G��4i/5��$��"��/i�$��)4 i/4Gii/5>��"��G��"���4,i/i4Giii i�Y������h���q���]�6����i�������g��c  �g��s  ��g��filenamef�� oop/goops.scm      �  ���C5 >��"��G��4i/5��$��"��/i�$��)4 i/4Gii/5>��"��G��"���4,i/i4Giii�Y��h���b���]�6������Z�������g��o  ��g��filenamef�� oop/goops.scm      �  ���C5 >��"��G��4i05��$��"��0i�$��)4 i04Gii05>��"��G��"���4,i0i4Giiii i�Y��������h������]6����x�������g��c  �g��o  �g��s   ��g��filenamef�� oop/goops.scm      �  ���C5 >��"��G��4i05��$��"��0i�$��)4 i04Gii05>��"��G��"���4,i0i4Giii i�Y������h���q���]�6����i�������g��c  �g��s  ��g��filenamef�� oop/goops.scm      �  ���C5 >��"��G��4i05��$��"��0i�$��)4 i04Gii05>��"��G��"���4,i0i4Giiii i i�0�������h������]�6�����������g��c  �g��o  �g��s   �g��value   ��g��filenamef�� oop/goops.scm   �  ���C5 >��"��G��4iH5��$��"��Hi�$��)4 iH4GiiH5>��"��G��"���4,iHi4Giii i�Y���h���u���]�6����m�������g��gf  �g��args  ��g��filenamef�� oop/goops.scm      �  ���C5 >��"��G��4iI5��$��"��Ii�$��)4 iI4GiiI5>��"��G��"���4,iIi4Giii i�Yk������h������]�4�56�����������g��gf  �g��args  ��g��filenamef�� oop/goops.scm            �   ���C5 >��"��G��4iJ5��$��"��Ji�$��)4 iJ4GiiJ5>��"��G��"���4,iJi4Giii i�Y������h���u���]�6������m�������g��gf  �g��args  ��g��filenamef�� oop/goops.scm      �  ���C5 >��"��G��4iM5��$��"��Mi�$��)4 iM4GiiM5>��"��G��"���4,iMi4Giii�1jcba�h(���x���]4L�5$��L��4L�56C������p�������g��slot  "��g��filenamef�� oop/goops.scm           *  �  " ���C�����h@������]4�544�554�O�>��"��G��C�����������g��self  <�g��clone  <�g��slots   <��g��filenamef�� oop/goops.scm       #  3          !            �  < ���C5 >��"��G��4iN5��$��"��Ni�$��)4 iN4GiiN5>��"��G��"���4,iNi4Giii�1jcba\N�������h@������] 4L�5$��.L��4L�545$�� 45"��6C��������g��slot  ?�g��value  ;��g��filenamef�� oop/goops.scm           ,    !  % +  ! ,  % =  �  ? ���C�������h@������]4�544�554�O�>��"��G��C�����������g��self  <�g��clone  <�g��slots   <��g��filenamef�� oop/goops.scm       #  3          !            �  < ���C5 >��"��G��4iO5��$��"��Oi�$��)4 iO4GiiO5>��"��G��"���4,iOi4Giiii�g������h���Z���]�LL�6����R�������g��m  ��g��filenamef�� oop/goops.scm    �  ���Cbabf����h���~���]�4L�4�556v�������g��c  ��g��filenamef�� oop/goops.scm    %  #   .   #   �   ���Cebf��h ������]�L�4L4�556������������g��c  ��g��filenamef�� oop/goops.scm �     #   .   #      �   ���C�������h���Z���]�LL�6����R�������g��c  ��g��filenamef�� oop/goops.scm    �  ���Cf����h����] 4�>��"��G��454�O�>��"��G��444�55>��"��G��4 5�4 �O�4 �5>��"��G��4 �O�4 5>��"��G��4 �>��"��G��4�O�45>��"��G��4�>��"��G��4>��"��G���C��z������g��old  �g��new  �g��methods   ]��g��filenamef�� oop/goops.scm              9   ?   @   E   M   R   ^  d   f  i   j   t     � �  �  � �  �   �   �   �   �   �   �   �  �   ���C5 >��"��G��4i5��$��"��i�$��+4 i4Gii5>��"��G��"���4,ii4Giii�"ab� �����hX������] 4�5$��G4�544�455>��"��G��4>��"��G�� �6C�������g��m  X�g��gf  V��g��filenamef�� oop/goops.scm             (          !  " " !  ' ! ) - ! 6 / ! ) 1 !  6   ? "  V $ �  X ���Cg���h���b���]4�56�Z�������g��c  ��g��filenamef�� oop/goops.scm   %   �   ���C5 >��"��G��4i5��$��"��i�$��+4 i4Gii5>��"��G��"���4,ii4Giiiii�%n������h8������] "��%$��$�� "���"C4�5"�������g��m  8�g��old  8�g��new   8�g��l   +��g��filenamef�� oop/goops.scm +  .  1  1   3   3   3  4  # 5  ) 5 + .  , .  8 . �  8 ���C5 >��"��G��4i5��$��"��i�$��+4 i4Gii5>��"��G��"���4,ii4Giiiii�&-O&ehd��������h0������]�44�54�54�5�56��������������g��c  )�g��old  )�g��new   )��g��filenamef�� oop/goops.scm ;  ?  ? "  @ "  A ) % B . ' ?  ) > �  ) ���C5 >��"��G��456,BCy��h���i��]4�54�54�5$��44L�5>��"��G��"���$��44L�5>��"��G��"���$��/44L�5>��"��G��454L�56C��a������g��s  ��g��g-n-s  ��g��getter-function   ��g��setter-function   ��g��accessor   ���g��filenamef�� 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 �  � ���Ca�������h������]�O�4�56�������g��class  �g��slots  ��g��filenamef�� oop/goops.scm J  \  \   \  K �   ��g��nameg��compute-slot-accessors�C.R4iB5��$��"��Bi�$��)4 iB4GiiB5>��"��G��"���4,iBi4Giii i�0GG9=@D� hP�����]��$�� 45"��$�� 45"��456�����������g��class  L�g��g-n-s  L�g�� init-thunk  L�g��g-n-s  L��g��filenamef�� oop/goops.scm ^  _  `  _   b   c  " c  # d  ( d > * d  4 c  5 f  @ h  L a �  L ���C5 >��"��G��4iC5��$��"��Ci�$��)4 iC4GiiC5>��"��G��"���4,iCi4Giii i�0NG ID��������h8������] ��$��"��456�������g��class  8�g��g-n-s  8�g��g-n-s   8��g��filenamef�� oop/goops.scm k  m   l  l   o   p  # p  & q  , r  8 n �  8 ���C5 >��"��G��O������h���c���]4L��5�6�[�������g��o  ��g��filenamef�� oop/goops.scm v   v   v �   ���C��h������]�O�C������w�������g��proc  ��g��filenamef�� oop/goops.scm u �  ��g��nameg��make-generic-bound-check-getter�C9R PR4QqWRSTU�hH������]�$��:�&�� ��L��C�&����L���CL�6�C���������g��form  F��g��filenamef�� oop/goops.scm                         "   $   (   +   .   4  . :   C  �  F ��g��nameg�� body-trans�C������h(������] O��Q�L4L�5C�������������g��x  "�g�� body-trans "��g��filenamef�� oop/goops.scm          �  " ��g��nameg��make-one�CVPXYW[�������hx������-�1�3����4O�455��     � � � ����C�����������g��form t�g��body t�g��name   t�g��n-var   t�g��args   t��g��filenamef�� oop/goops.scm ~               &   2  , :   ;  � t ���C�������h���b���] 4�5L�4?6Z�������g��args  �g��v ��g��filenamef�� oop/goops.scm  ~ �   ���C�������h(���`���] 4�5$�� �O�@�6�X�������g��y  '�g��tmp '��g��filenamef�� oop/goops.scm ~ �  ' ���C5QR/�h ���7���] � 45$���6C����/�������g��o  �g��x  ��   ���C/��������h ���7���] � 45$���6C����/�������g��o  �g��x  ��   ���C/��������h ���7���] � 45$���6C���/�������g��o  �g��x  ��   ���C/��������h ���7���] � 45$���6C���/�������g��o  �g��x  ��   ���C/��������h ���7���] � 45$���6C���/�������g��o  �g��x  ��   ���C/��������h ���7���] � 45$���6C���/�������g��o  �g��x  ��   ���C/��������h ���7���] � 45$���6C���/�������g��o  �g��x  ��   ���C/��������h ���7���] � 45$���6C���/�������g��o  �g��x  ��   ���C/��������h ���7���] � 45$���6C���/�������g��o  �g��x  ��   ���C/��������h ���7���] � 45$���6C���/�������g��o  �g��x  ��   ���C/��������h ���7���] � 45$���6C���/�������g��o  �g��x  ��   ���C/��������h ���7���] � 45$���6C���/�������g��o  �g��x  ��   ���C/��������h ���7���] � 45$���6C���/�������g��o  �g��x  ��   ���C/��������h ���7���] � 45$���6C���/�������g��o  �g��x  ��   ���C/��������h ���7���] � 45$���6C���/�������g��o  �g��x  ��   ���C/��������h ���7���] � 45$���6C���/�������g��o  �g��x  ��   ���C/��������h ���7���] � 45$���6C���/�������g��o  �g��x  ��   ���C/��������h ���7���] � 45$���6C���/�������g��o  �g��x  ��   ���C/��������h ���7���] � 45$���6C���/�������g��o  �g��x  ��   ���C/��������h ���7���] � 45$���6C���/�������g��o  �g��x  ��   ���C��/��h ������] �L�45$���6C���|�������g��o  �g��x  ��g��filenamef�� oop/goops.scm             �   ���C�h ���)���]� $��L��C�O�C�������!�������g��n  ��   ���C�O��@R�h���)���]� C�!�������g��o  ��   ���C�����h���)���]� C�!�������g��o  ��   ���C�����h���)���]� C!�������g��o  ��   ���C�����h���)���]� C!�������g��o  ��   ���C�����h���)���]� C!�������g��o  ��   ���C�����h���)���]� C!�������g��o  ��   ���C�����h���)���]� C!�������g��o  ��   ���C�����h���)���]� C!�������g��o  ��   ���C�����h���)���]� C!�������g��o  ��   ���C�����h���)���]� C!�������g��o  ��   ���C�����h���)���]� C!�������g��o  ��   ���C�����h���)���]� C!�������g��o  ��   ���C�����h���)���]� C!�������g��o  ��   ���C�����h���)���]� C!�������g��o  ��   ���C�����h���)���]� C!�������g��o  ��   ���C�����h���)���]� C!�������g��o  ��   ���C�����h���)���]� C!�������g��o  ��   ���C�����h���)���]� C!�������g��o  ��   ���C�����h���)���]� C!�������g��o  ��   ���C�����h���)���]� C!�������g��o  ��   ���C���������h���R���]�L�CJ�������g��o  ��g��filenamef�� oop/goops.scm   �   ���C���h ���)���]� $��L��C�O�C�������!�������g��n  ��   ���C�O��=R�h���8���]� C�������0�������g��o  �g��v  ��  ���C������h���8���]� C�������0�������g��o  �g��v  ��  ���C������h���8���]� C������0�������g��o  �g��v  ��  ���C������h���8���]� C������0�������g��o  �g��v  ��  ���C������h���8���]� C������0�������g��o  �g��v  ��  ���C������h���8���]� C������0�������g��o  �g��v  ��  ���C������h���8���]� C������0�������g��o  �g��v  ��  ���C������h���8���]� C������0�������g��o  �g��v  ��  ���C������h���8���]� C������0�������g��o  �g��v  ��  ���C������h���8���]� C������0�������g��o  �g��v  ��  ���C������h���8���]� C������0�������g��o  �g��v  ��  ���C������h���8���]� C������0�������g��o  �g��v  ��  ���C������h���8���]� C������0�������g��o  �g��v  ��  ���C������h���8���]� C������0�������g��o  �g��v  ��  ���C������h���8���]� C������0�������g��o  �g��v  ��  ���C������h���8���]� C������0�������g��o  �g��v  ��  ���C������h���8���]� C������0�������g��o  �g��v  ��  ���C������h���8���]� C������0�������g��o  �g��v  ��  ���C������h���8���]� C������0�������g��o  �g��v  ��  ���C������h���8���]� C������0�������g��o  �g��v  ��  ���C��h���a���]�L�C������Y�������g��o  �g��v  ��g��filenamef�� oop/goops.scm  �  ���C����h ���)���]� $��L��C�O�C�������!�������g��n  ��   ���C�O��IRa\@1]Y^B_`3a9bc7������h���A���]�L�C���9�������g��filenamef�� oop/goops.scm  �   ���C��h����]94L�54L��54L�54�545$��"��"��4L�>��"��G��"��$��y45 $��c4 5$��"��4 L�>��"��G��4 5$��"��4 L�>��"��G��"��"h"��"`4 �5 $��"��$��A"��4>��"��&G��"�� $��$��"��""��"C4�5$��"45$��"�� 4L�5"��$��"��#4�545$��"��O�45$��"�� $��"��4�5C�����������g��s  �g��index �g��g-n-s   �g��size  $ �g��name  - �g��t  6 ��g��get  ~ ��g��set  ~ ��g��key  � �g��thunk  S �g��t   �g��init   �g��t   �� g��filenamef�� 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   ���C��������h������]�O�6��������g��class  �g��slots  ��g��filenamef�� oop/goops.scm    �   ��g��nameg��compute-getters-n-setters�CdR4i>5��$��"��>i�$��)4 i>4Gii>5>��"��G��"���4,i>i4Giii�eg?e�h���]���]�6������U�������g��class  ��g��filenamef�� oop/goops.scm   �  ���C5 >��"��G��h������h���c���]�C�[�������g��l  ��g��filenamef�� oop/goops.scm       �   ���C��h���u���]�6������m�������g��lst  ��g��filenamef�� oop/goops.scm   �  ��g��nameg�� only-non-null�CiRjii�������h0�����] 4�5��4445�556�����������g��c  ,�g��get-direct-supers  ,�g��c-direct-supers  ,��g��filenamef�� oop/goops.scm                 ( & � ( (  *   ,  �  , ��g��nameg��compute-std-cpl�C?Rk[l������h���c���]L��6�����[�������g��l  ��g��filenamef�� oop/goops.scm  '  1  )�  ���C��h(������] �(��C�4O�L�5$��CC���������g��l  &�g��c &��g��filenamef�� oop/goops.scm       ,  !   " !  �  & ��g��nameg�� candidate-car�CYmji���h������]�L�&���C�C������|�������g��l  ��g��filenamef�� oop/goops.scm     $     �   ��g��nameg�� remove-next�C� h`���"��] 45$���64O�5$��"��4>��"��G���4 4  O�556���������g��reversed-partial-result  ]�g��inputs  ]�g��next  # ]��g��filenamef�� oop/goops.scm              #   +   0  4   9  H   I   L  $ [   ]  �  ] ��g��nameg�� merge-lists�CjRnopq��h(������]445�5445�5456����������g��c  %�g��get-direct-supers  %��g��filenamef�� oop/goops.scm #  $  $  $  %  %  %  & % $ �  % ��g��nameg��compute-clos-cpl�CrRhk��h ������] �L�$��C�L6���������g�� constraint  �g��t ��g��filenamef�� oop/goops.scm 2   3 ) 3 $ 3  3   4 %  4 �   ���C�������h���Z���]�LO�L�6�������R�������g��x  ��g��filenamef�� oop/goops.scm 1   2 �   ���CYs�������h���c���]�L�C�������[�������g��x  ��g��filenamef�� oop/goops.scm >   > *  > %�  ���C��������h�����]+"��f(��C4O�5(��6(��"�� 454O�54�5"�"�����������g��elements  {�g�� constraints  {�g�� tie-breaker   {�g��elements   l�g�� constraints   l�g��result   l�g�� can-go-in-now   l�g��choice  D l��g��filenamef�� oop/goops.scm )  *  -   0   /  ' 7 + 8  - 8  0 9 ' 4 9  7 : < ; D 9  G >  W A  ` A b A  l =  l *  q ,  { * �  { ��g��nameg��top-sort�CnRh�����h���Z���]�L�6������R�������g��x  ��g��filenamef�� oop/goops.scm H I &�  ���CYt���hX���h��]""��>4L�54O�5(��(��6"C4�5"�������`������g�� partial-cpl  Q�g��min-elts  Q�g��pcpl   D�g�� current-elt  D�g��ds-of-ce   D�g��common  " D��g��filenamef�� 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 ���C�����h���u���]�O�C������m�������g�� get-supers  ��g��filenamef�� oop/goops.scm C �  ��g��nameg��std-tie-breaker�CqR������hX���-��]"��D(��C45$�� "44L�55"��"%������g��x  X�g��result  J�g��pending   J�g��next   J��g��filenamef�� 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 ���C��������h������]�O�C������z�������g��get-follow-ons  ��g��filenamef�� oop/goops.scm R �  ��g��nameg��build-transitive-closure�CoRo��hx�����]"��S(��"��$��$(��C4L�5"�"44L�5�5"�������{������g��x  q�g��elements  Y�g��this-one   Y�g��result   Y��g��filenamef�� 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 ���C��h���{���]�O�C������s�������g��get-follow-ons  ��g��filenamef�� oop/goops.scm _ �  ��g��nameg��build-constraints�CpR4i@5��$��"��@i�$��)4 i@4Gii@5>��"��G��"���4,i@i4Giii i�u3a\b1h97iv2Y����hp����]"45$��%4�54�>��"��G��C$��4544 4 �555$��( �4 5$�� 45�"��4 56"��'4455$��C"4�5"$��( �4 5$�� 45�"��4 56$��f44554455$��"$��"��4>��"��G��"��4>��"��G���CL��6���������g��class  m�g��s  m�g��key  m�g��already-allocated   9�g��name  I ��g��thunk  o ��g��l  � ��g��r  � ��g��thunk  � ��g��get   e�g��set   e�� g��filenamef�� 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 ���C��������h���_���]�O�C������W�������g��real-next-method  ��g��filenamef�� oop/goops.scm r �  ���C5 >��"��G�����h���Q���]M�C���I�������g��o  ��g��filenamef�� oop/goops.scm  �   ���C�����h���i���]N�Ca�������g��o  �g��v  ��g��filenamef�� oop/goops.scm     �   ���C����h������]HO�O��C�������g��class  �g��value  ��g��filenamef�� oop/goops.scm    �   ��g��nameg��make-closure-variable�CR4i@5��$��"��@i�$��)4 i@4Gii@5>��"��G��"���4,i@i4Giii i�Y3�����h���z���]456�r�������g��o  �g��s  ��g��filenamef�� oop/goops.scm       .   �   ���C5 >��"��G��4iA5��$��"��Ai�$��)4 iA4GiiA5>��"��G��"���4,iAi4Giii�e���h���]���]�6U�������g��class  ��g��filenamef�� oop/goops.scm    �   ���C5 >��"��G��4iE5��$��"��Ei�$��)4 iE4GiiE5>��"��G��"���4,iEi4Giii i����h���t���]�6������l�������g��object  �g��initargs  ��g��filenamef�� oop/goops.scm   �  ���C5 >��"��G��4iE5��$��"��Ei�$��)4 iE4GiiE5>��"��G��"���4,iEi4Giii i�vb@>A\d.ba���h������]�L�4�56���������g��x  ��g��filenamef�� oop/goops.scm       '   3   '      �   ���C��������hp����]4L��>��"��G��45454�45>��"��G��4�>��"��G��4� >��"��G��4� >��"��G��4� >��"��G��4� 4 �5>��"��G��4�>��"��G��4�54�>��"��G��4� >��"��G��4�4�5>��"��G��4�>��"��G��4�O�>��"��G��4�>��"��G���6��������g��class  n�g��initargs  n�g��dslots  * n�g��supers  * n�g��slots  � ;��g��filenamef�� oop/goops.scm       .   !   (  3 *   *   /   5   6  ( >  E @  ( E   N   T   [   d   j   q   z   �   �  ( �   �   �   �  ( �   �   �   �  ( �   �   �   �   �   �   �   �   �   �   �   �           *    %   <   U   n  �4  n ���C�h���_���]�O�C������W�������g��real-next-method  ��g��filenamef�� oop/goops.scm  �  ���C5 >��"��G��vb��������h8������] 45$��$�� �@�6C��������������g��object  1�g��initargs  1�g��proc  1��g��filenamef�� oop/goops.scm               !  # %  +   /  0  �  1 ��g��nameg��initialize-object-procedure�CR4iE5��$��"��Ei�$��)4 iE4GiiE5>��"��G��"���4,iEi4Giii i�������h ������]4L��>��"��G���6��w�������g��applicable-struct  �g��initargs  ��g��filenamef�� oop/goops.scm    �   ���C������h���_���]�O�C������W�������g��real-next-method  ��g��filenamef�� oop/goops.scm  �  ���C5 >��"��G��4iE5��$��"��Ei�$��)4 iE4GiiE5>��"��G��"���4,iEi4Giii i�vb"G �����h���_���-��1��3�L��@�W�������g��args ��g��filenamef�� oop/goops.scm  *   ,�  ���C@��������h���,��]45454L��>��"��G��4�45$��&4     O�5 �"��>��"��G��$�� �6C$������g��generic  ��g��initargs  ��g��previous-definition   ��g��name   ���g��filenamef�� oop/goops.scm            /   5   6  $ B  C  * d  $ i  $ n   |   �  ) �  �  � ���C�h���_���]�O�C������W�������g��real-next-method  ��g��filenamef�� oop/goops.scm  �  ���C5 >��"��G��4iE5��$��"��Ei�$��)4 iE4GiiE5>��"��G��"���4,iEi4Giiwi i�v���h(���z���]4L��>��"��G���456��r�������g��gws  &�g��initargs  &��g��filenamef�� oop/goops.scm     &  �  & ���C���h���_���]�O�C������W�������g��real-next-method  ��g��filenamef�� oop/goops.scm  �  ���C5 >��"��G��4iE5��$��"��Ei�$��)4 iE4GiiE5>��"��G��"���4,iEi4Gii|i i�bv{��������h(������]4L��>��"��G���456�������g��eg  (�g��initargs  (��g��filenamef�� oop/goops.scm        $  9 &   (  �  ( ���C�h���_���]�O�C������W�������g��real-next-method  ��g��filenamef�� oop/goops.scm  �  ���C5 >��"��G������h���r���-��1��3�C�����j�������g��args ��g��filenamef�� oop/goops.scm  � ��g��nameg��dummy-procedure�CR4iE5��$��"��Ei�$��)4 iE4GiiE5>��"��G��"���4,iEi4Giii i� 0bv!�������h���~��]4L��>��"��G��4�45>��"��G��4�45>��"��G��4�45>��"��G��4� 4 5>��"��G��4� 4 5>��"��G��� 456��v������g��method  ��g��initargs  ���g��filenamef�� oop/goops.scm          & ,   5   ;   <  " C  G E  " J   S   Y   Z  h   q   w   x     = �   �   �   �   �   �  7 �   �   �   �  $ �  �  � ���C�������h���_���]�O�C������W�������g��real-next-method  ��g��filenamef�� oop/goops.scm  �  ���C5 >��"��G��D;^`3<_]� ���h������] "��"4L��5$��L�L�45�6C4LL�5$��@44L�55&��(4LL�5$��L�L�4LL�56"""������������g��slot  {�g��init  (��g��filenamef�� oop/goops.scm             &   (   )   7   8   ;   E   K   L   Z   c   o  �  { ���C1j1L� ����hh���&��] 454�O�4455>��"��G��4�>��"��G��4�>��"��G���C������������g�� old-instance  b�g�� old-class  b�g�� new-class   b�g�� new-instance  b��g��filenamef�� oop/goops.scm �      3          "  ( *   /   8   L  �  b ��g��nameg��change-object-class�C2R4iL5��$��"��Li�$��)4 iL4GiiL5>��"��G��"���4,iLi4Giiii�56���h���u���]C���m�������g�� old-instance  �g�� new-instance  ��g��filenamef�� oop/goops.scm  �   ���C5 >��"��G��4iK5��$��"��Ki�$��)4 iK4GiiK5>��"��G��"���4,iKi4Giiii�8;2����h������]��6���|�������g�� old-instance  �g�� new-class  ��g��filenamef�� oop/goops.scm % & $ & �  ���C5 >��"��G��4iD5��$��"��Di�$��)4 iD4GiiD5>��"��G��"���4,iDi4Giii i�=����h���s���]�6������k�������g��class  �g��initargs  ��g��filenamef�� oop/goops.scm . / �  ���C5 >��"��G��4iF5��$��"��Fi�$��)4 iF4GiiF5>��"��G��"���4,iFi4Giii i>EDE������h0������-�1�3�4�54>��"��G��C������������g��class +�g��initargs +�g��instance   +��g��filenamef�� oop/goops.scm 1 2   2   3 � + ���C5 >��"��G��FiGR4iP5��$��"��Pi�$��)4 iP4GiiP5>��"��G��"���4,iPi4Giii i�QaJSRVI��������hX������] 4�5(��4�>��"��G��"���4�5$���4�56�6������������g��gf  S�g��args  S�g��methods  0 S��g��filenamef�� oop/goops.scm F  G G  G  G   H  ( I  0 I  8 J  = K  K K  S L �  S ���C5 >��"��G��4GiiS5RR4iR5��$��"��Ri�$��+4 iR4GiiR5>��"��G��"���4,iRi4Giii i�TT����h���l���]�6������d�������g��gf  �g��args  ��g��filenamef�� oop/goops.scm S T �  ���C5 >��"��G��RiSi4iV5��$��"��Vi�$��)4 iV4GiiV5>��"��G��"���4,iVi4Giii i i�UbdZU�����h���k���]�L�6����c�������g��m1  �g��m2  ��g��filenamef�� oop/goops.scm Z  Z "�  ���C��h ������] 45O�6�������������g��gf  �g��methods  �g��args   �g��targs  ��g��filenamef�� oop/goops.scm X  Y  Y   Z �   ���C5 >��"��G��4iU5��$��"��Ui�$��)4 iU4GiiU5>��"��G��"���4,iUi4Giiii i�ehf����h���}���]�6����u�������g��m1  �g��m2  �g��targs   ��g��filenamef�� oop/goops.scm \ ] �  ���C5 >��"��G��4iQ5��$��"��Qi�$��)4 iQ4GiiQ5>��"��G��"���4,iQi4Giii i i i�jpr�h������]4545@�������g��gf  �g��methods  �g�� build-next   �g��args   ��g��filenamef�� oop/goops.scm _  `  `  ` a  a   a  ` �   ���C5 >��"��G��4iR5��$��"��Ri�$��)4 iR4GiiR5>��"��G��"���4,iRi4Giiiqi i�rHQ��������h@������-��1��3�L(��L�(��L"���6LLL��(��L"���6������������g��new-args ;��g��filenamef�� oop/goops.scm f   h   g  # i  1 g  ; j � ; ���C������h���x���]L�L�O�Cp�������g��procs  �g��args  ��g��filenamef�� oop/goops.scm e �   ��g��nameg��next�CQ���h ������] O��Q��6���������g��gf  �g��l  �g��args   �g��next  ��g��filenamef�� oop/goops.scm d e   k �   ���C5 >��"��G��4i����h���f���]�6�����^�������g��proc  ��g��filenamef�� oop/goops.scm n  o * o �  ���C/i0iHiIiJi�>��"��G����������hH��� ��]"��5(��C45$�� ""�"��������g��l  F�g��l  ;�g��res   ;��g��filenamef�� oop/goops.scm                    *   -   0   3   ;  ;   >   F  �  F ��g��nameg��list2set�CRf�������h������]�4L�4�55C�����������g��c  ��g��filenamef�� oop/goops.scm       )      �   ��g��nameg��allsubs�Cf����h(������] O�Q�44�556��������������g��c  !�g��allsubs !��g��filenamef�� oop/goops.scm         )    !  �  ! ��g��nameg��class-subclasses�CWRgW�h������]4�4�556��������g��c  ��g��filenamef�� oop/goops.scm             �   ��g��nameg�� class-methods�CXRi6�������� ������g��m  ,�g��table-of-metas  �g��t ^ ^�g��t ` `�g��t a a�g��t b b�g��t e$ e9�g��t pZ pp�g��t q q�g��t t t�g��t w w�g��t { {�g��t �������g��t ������������,�g��t �������������g��t �������������g��t �������������g��t ������d������z�g��t ������N������c�g��t �������������g��t �������������g��t �������������g��t �������������g��t ������+������@�g��t ������t�������g��t �������������g��t �������������g��t ������������,�g��t �������������g��t ������]������r�g��t ������������+�g��t �������������g��t ������p�������g��t ������������*�g��t ������!������6�g��cache �������������g��cache ������������DZ�g��cache ������Γ������q�g��t ������֭�������g��t ������������'�g��t ������������&�g��t ������D������Y�g��t ������G������\�g��t ������n�������g��t �������������g��t �������������g��t �����%�����:�g��t �����������g��t �����i�����~�g��t �����=�����R�g��t �����W�����l�g��t �����������g��t �����������g��t �����-�����B�g��t �����*�����@�g��t �����W�����l�g��t �����X�����m�g��t �����������g��t �����!�����6��;g��filenamef�� 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 �����   �����!  �����"  �����"  � �����" ���C6�����������������sxml/simple.go��������������������������������������������������������������������������������������0000644�����������������00000050334�15253700563�0007362 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0P������]��4�������hI������]� g��guile � g��define-module* � � g��sxml g��simple � g��filenameS f��sxml/simple.scm g��importsS g��ssax g�� input-parse   � �  � � g�� transform � � g��ice-9 g��match � � g��srfi g��srfi-13 � � � g��exportsS g�� xml->sxml g�� sxml->xml !g�� sxml->string " !� #g��set-current-module $#� %#� &g��string-concatenate/shared 'g��string? (g��ssax:reverse-collect-str )g�� next-token *]� +f��reading internal DOCTYPE ,g��peek-next-char -g�� read-char .f��] /g��read-internal-doctype-as-string 0g�� namespacesS 10  2g��declare-namespaces?S 32  4g��trim-whitespace?S 54  6g��entitiesS 76  8g��default-entity-handlerS 98  :g��doctype-handlerS ;:  <13579;� =g��current-input-port >g��map ?g��ssax:uri-string->symbol @g��error A@� B@� Cf��no matching pattern Dg�� symbol-append Eg��string->symbol Ff��: Gg��ssax:scan-Misc HG� IG� Jg�� eof-object? KJ� LJ� Mg�� parser-error NM� OM� Pf��XML [22], unexpected EOF Qg��PI Rg��*PI* Sg��ssax:read-pi-body-as-string Tg��DECL UE� VE� Wf��DOCTYPE Xf��.XML [22], expected DOCTYPE declaration, found  Yg��assert-curr-char ZY� [Y� \g�� ssax:S-chars ]\� ^\� _f��XML [28], space after DOCTYPE `g�� ssax:skip-S a`� b`� cg��ssax:read-QName dc� ec� fg��ssax:ncname-starting-char? gf� hf� ig��ssax:read-external-id ji� ki� l>[� mf��XML [28], end-of-DOCTYPE ng��call-with-values og��ssax:skip-internal-dtd p6  qp1� rg��append sg��assq tg�� *DEFAULT* ug��START vf��XML [22], unexpected markup  wg��ssax:Prefix-XML xw� yw� zf��space {g��ssax:complete-start-tag |{� }{� ~g�� EMPTY-TAG g�� ssax:reverse-collect-str-drop-ws �g�� attlist-fold �g��@ �g��EMPTY �g��ssax:assert-token �� �� �g��ssax:read-markup-token �� �� �g��END �f��[elementvalid] broken for  �f�� while expecting  �g��assoc �� �� �f��preserve �g��ssax:read-char-data �� �� �g�� string-null? �f��[GIMatch] broken for  �g�� ENTITY-REF �g��ssax:handle-parsed-entity �� �� �g��PCDATA �f��* with char content only; unexpected token  �f��XML [43] broken for  �g��open-input-string �g��reverse �g��*TOP* �g��make-hash-table �g�� hashq-ref �g��symbol->string �g�� string-index �g�� substring �f��"Invalid QName: more than one colon �g��for-each �g��char-alphabetic? �g�� string-ref �f��Invalid name starting character �g��string-for-each �f�� 0123456789.-_ �f��Invalid name character �g�� hashq-set! �g�� check-name �g��attribute-value->xml �g��string->escaped-xml �g�� procedure? �g��with-output-to-port �g��call-with-output-string �g��display �f��=" �g��attribute->xml �f�� bad attribute �f��bad attributes �f��</ �f��> �f��bad element body �f�� /> �g�� element->xml �g�� entity->xml �f��<? �f��?> �g��pi->xml �g��current-output-port �g��*ENTITY* �f��bad *ENTITY* args �g��length �f�� bad *PI* args �g��string-concatenate-reverse �g��foldts �g��append! �g��list->char-set �g��car �g�� string-length �g��assv �g��make-char-quotator �f��< �<Ό �f��> �>Ќ �f��& �&Ҍ �f��" �"Ԍ ��C�5��hh?����]4   "5�4%�>��"��G���&'����h�����]�(��C�(���C"��c(��(��C45C45$��"(��"�� 45"�"�������������g�� fragments  ��g�� fragments  {�g��result   {�g��strs   {��g��filenamef��sxml/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 �  � ��g��nameg��ssax:reverse-collect-str�C(R&)*+,-.�����hH������]4L5�>4L5$��4L>��"��G����C�4L�5�C�������������g��fragment  B��g��filenamef��sxml/simple.scm B   D  D   D  D $  D  C   E   E  E   G  5 H  : I  ; I @ I �  B ��g��nameg��loop�C���h ������] O��Q�45�6���������g��port  �g��loop ��g��filenamef��sxml/simple.scm @ B   A �   ��g��nameg��read-internal-doctype-as-string�C/R<=>?BC��������h@������]�$��#��L�$��"��45C4�56���������������g��el  9�g��w  ,�g��x   ,��g��filenamef��sxml/simple.scm l  m  o  # q  * o  - m �  9 ���C�����h������]L�O��6�x�������g�� namespaces  ��g��filenamef��sxml/simple.scm k   l �   ��g��nameg��munge-namespaces�CDEF������h(������]�$����456�C����������g��name  %�g��w  "�g��x   "��g��filenamef��sxml/simple.scm }   ~   �   � -  �  " � �  % ��g��nameg�� name->sxml�CILOPQRSTVWX[^_behklmn/o��������h@���C���]�L$��LL�LL$�� 4L5"��6L$��4L>��"��G��"���D�;�������g��filenamef��sxml/simple.scm � �  @ ���Cqrst�hp�����-��/�����0���3��#���#��4�L$��4L5$��L"��LL"��L544L54LL55L�D�����������g��entities  k�g�� namespaces  k��g��filenamef��sxml/simple.scm �   �  # � / ' �  1 x  2 y  6 y  : y  > x  F z  I z  T �  U �  X �  _ u  g �  k � �  k g��entitiesS g�� namespacesS ����Cu�����h���C���]�L�$��L�6D��������;�������g��filenamef��sxml/simple.scm � �   ���Cqrst�hp�����-��/�����0���3��#���#��4�L$��4L5$��L"��LL"��L544L54LL55L�D�����������g��entities  k�g�� namespaces  k��g��filenamef��sxml/simple.scm �   �  # � / ' �  1 x  2 y  6 y  : y  > x  F z  I z  T �  U �  X �  _ u  g �  k � �  k g��entitiesS g�� namespacesS ����CvILOPQRSuv� h���+��]4�545$���6$��34�5���"$��L�6� 6#������g��port  ��g��elems  ��g��entities   ��g�� namespaces   ��g��seed   ��g��token  ��g��key  ! ��g��target  / E�g��seed  E _�� g��filenamef��sxml/simple.scm � �  � ��g��nameg��#scan-for-significant-prolog-token-2�CyVz}~(�h���i���]4L��5��C����a�������g��attr  �g��accum  ��g��filenamef��sxml/simple.scm � �   ���CbO�h������]L��6������{�������g��token  �g��exp-kind  �g��exp-head   ��g��filenamef��sxml/simple.scm � �   ���C���h���i���]4L��5��C����a�������g��attr  �g��accum  ��g��filenamef��sxml/simple.scm � �   ���C��h ������]45$���C�C����x�������g��string1  �g��string2  �g��seed   ��g��filenamef��sxml/simple.scm � �   ���CLO��������h������]LL�6������{�������g��token  �g��exp-kind  �g��exp-head   ��g��filenamef��sxml/simple.scm � �   ���C(�����h���i���]4L��5��C����a�������g��attr  �g��accum  ��g��filenamef��sxml/simple.scm � �   ���CQRS�h���~���]L��6���v�������g��port  �g��entities  �g��seed   ��g��filenamef��sxml/simple.scm � �  ���C����h ������]45$���C�C����x�������g��string1  �g��string2  �g��seed   ��g��filenamef��sxml/simple.scm � �   ���CuO�hp��d��],4�>�� G�45$��C$��j4L�O�>��"��G��L$�� 45"��454  L O�L54L L 5(��"�� LC $��/ 4�5���"*$��-4�L�O�5��"$��NL&��4�L >��"��G��"���4L�LL5��"�6�\������g��port  o�g��entities  o�g�� expect-eof?   o�g��seed   o�g��seed   o�g�� term-token   o�g��key  + o�g��seed  | ��g��attrs  | ��g��target  � ��g��seed  � ��g��seed  � �g��seed  O e�� g��filenamef��sxml/simple.scm � �  o ��g��nameg��loop�C�hP����]64�L>�� G�  $��IL�$�� 45"��454LO�5  4L5 (�� "��  C $��~4 <4 5$�� 4 5"�� � O�>��"��G��L�$�� 45"��454LO�5  4L5 (�� "��  C4M5  $��  "��  O�    L �L�LQ�  6������g��start-tag-head  P�g��port  P�g��entities   P�g�� namespaces   P�g�� preserve-ws?   P�g�� parent-seed   P�g��elem-gi   P�g�� attributes   P�g�� namespaces   P�g��expected-content  P�g��seed N r�g��attrs N r�g��seed � ��g��attrs � ��g��t  �g�� preserve-ws?  P�g��loop - P��g��filenamef��sxml/simple.scm � �  P ��g��nameg��handle-start-tag�C��������h@���2��]H45KO�L�LQ��6������*������g��start-tag-head  :�g��port  :�g��elems   :�g��entities   :�g�� namespaces   :�g�� preserve-ws?   :�g��seed   :�g�� xml-space-gi   :�g��handle-start-tag   :�� g��filenamef��sxml/simple.scm � �  : ��g��nameg��element-parser�C���h��o��]r"�4545$��6$��'45�"$��4  5  $��"��4 >��"��G�� 4  >��"��G��4>��"��G��45 4455$�� 45"�� 4>��"��G��[4 5 4   LO�LLLLO�>�� G�    6$��@4LO�LLLLO�>�� G�      66O�O�Q�LL�Q��"B����g������g��port  �g��seed  �g��port   �g��seed   �g��token  �g��key  % �g��target  3 I�g��seed  I W�g�� token-head  c E�g��t o ��g��docname � E�g��systemid � E�g��internal-subset?  E�g��elems , E�g��entities , E�g�� namespaces  , E�g��seed  , E�g��elems  q �g��entities q �g�� namespaces q �g��seed q �g��#scan-for-significant-prolog-token-2   �g��element-parser   ��g��filenamef��sxml/simple.scm � �   ��g��nameg��parser�C'� �����h���V��-��/����0���3� �#��45��#��#��#��#��#��#��O�O� Q�Q� 4�5$�� 4�5"��� 44  55   C���N������g��string-or-port  ��g�� namespaces  ��g��declare-namespaces?   ��g��trim-whitespace?   ��g��entities   ��g��default-entity-handler   ��g��doctype-handler   ��g��munge-namespaces  p ��g�� name->sxml  p ��g��parser p ��g��port � ��g��elements � ��� g��filenamef��sxml/simple.scm V  V / ' W B Z  � �  � �  � �  � �  � �  � �  � � ) � �  � �  � �  � � �  � g�� namespacesS g��declare-namespaces?S g��trim-whitespace?S g��entitiesS g��default-entity-handlerS g��doctype-handlerS ���g��nameg�� xml->sxmlg�� documentationf��Use 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������] 4�5$��C4�5$��C�LL�6�����������g��c  4�g��t 4�g��t  4��g��filenamef��sxml/simple.scm �   �  �   � 0  � >  � 0  �  , � " 4 � �  4 ���C������hh������]�$��X44� 55$��"��&4� 5_$��"�� 4�L�5$��L��O��6CC�������������g��s  b�g��t  K�g��t  - H��g��filenamef��sxml/simple.scm �  �  �  � *  �   �  # �  - �  - �  ; �  ? �  E �  O �  ^ � �  b ���C� �����h�����]!4L��5$��C4�54:5$��4 5"��$��"��$��45"��$��1445:5$��4�>��"��G��"���"���4�O��>��"��G�� L��6����������g��name  ��g��str  ��g��i  # ��g��t  : M�g��head  M ��g��tail  d ���g��filenamef��sxml/simple.scm �   �   �   �   �  �  # � + �  , � " : �  M � U �  V �  ] � - _ �  d � l � m �  p � ! w � 0 y � ! } �  � � � �  � �  � �  � � � � � � � � �  � ���C�O��R'�������h���_���]L��6������W�������g��port  ��g��filenamef��sxml/simple.scm    -�  ���C������hh�����]�$��4�>��"��G���6�(��C4�5$���64�5$���64�O�56�������g��value  g�g��port  g��g��filenamef��sxml/simple.scm �  �  �  �   �   �  # �  ' �  - �  0 �  : �  B �  C �  M �  U �  X   g  �  g ��g��nameg��attribute-value->xml�CR��������hX������]4�>��"��G��4�>��"��G��4>��"��G��4>��"��G��"6�������g��attr  X�g��value  X�g��port   X��g��filenamef��sxml/simple.scm        )   -  4   =   X  �  X ��g��nameg��attribute->xml�CR@ � ������hp����]4�>��"��G��4<>��"��G��4�>��"��G��$��"��$��^4 >��"��G��$��4>��"��G��"��4�>��"��G��"(��"��"4�>��"��G��"��"o"���$��4>>��"��G��"��e$��4>��"��G��"(��04>��"��G��4�>��"��G�� 6 �6" 6�������g��tag  o�g��attrs  o�g��body   o�g��port   o�g��attrs  F ��g��attr  P ��g��body  � _��g��filenamef��sxml/simple.scm        )   B   F   I  M   P   P  S   i   m   n   s  " v  - }   �   �   �   �   �   �  �   �   �   �   �   �   �   �   �     !  !   !  "   " %  & $ * $  1 $ : % Q &  U & Y (  _ ( _   k )  o ) �3  o ��g��nameg�� element->xml�CR�h8������]4&>��"��G��4�>��"��G��;6�������������g��name  2�g��port  2��g��filenamef��sxml/simple.scm ,  -   .  2 / �  2 ��g��nameg�� entity->xml�CR�h`������]4>��"��G��4�>��"��G��4 >��"��G��4>��"��G��6�������������g��tag  Z�g��str  Z�g��port   Z��g��filenamef��sxml/simple.scm 2  3   3  3   4  + 5  ? 6  V 7 Z 7 �  Z ��g��nameg��pi->xml�CR @R �������h���\���]�L�6������T�������g��x  ��g��filenamef��sxml/simple.scm T  T �  ���C'����h���_���]L��6������W�������g��port  ��g��filenamef��sxml/simple.scm ^  ^ -�  ���C������hp����-�.�,�3�#��45��$���$���$�� �6$��5"�� �6�$��4�5 $�� �6"" $��;"��  �6�$��"4�5 $�� ��6""�$��$$�� &��"��"��"�� $��"��6O��64�5$���6�(��C�$��.�&��C4�5$���64�O�56C�����������g��tree k�g��port k�g��tag  +  �g��elems  �  �g��attrs  �  ��g��filenamef��sxml/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 ��g��nameg�� sxml->xmlg�� documentationf��Serialize 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 R���h���q���]C����i�������g��seed  �g��tree  ��g��filenamef��sxml/simple.scm f   g �   ���C�h������]�6�������������g��seed  �g��kid-seed  �g��tree   ��g��filenamef��sxml/simple.scm h  i �  ���C'���h������]45$���C�C��{�������g��seed  �g��tree  ��g��filenamef��sxml/simple.scm j   k k   k �   ���C��h������]4�56�����������g��sxml  ��g��filenamef��sxml/simple.scm a  e   l   e   d �   ��g��nameg�� sxml->stringg�� documentationf��MDetag an sxml tree @var{sxml} into a string. Does not perform any formatting.�C!R>�h�����]*4�L� 5$��"��4�5$��C$��s44�5L54�L�5$��!44�5>��"��G��"���4>��"��G��"w4�4�556 "V�6������������g��str  ��g��port  ��g��bad-pos  ��g��from   ��g��to   ��g��i  B R�g�� quoted-char  R ��g��new-to  R ���g��filenamef��sxml/simple.scm y   v  z   {   }    "   & ~  /   2  " >   ?   B  ' B   E v  R   [   _   `   c   t   �   �   �   �   �  - �   �   � } � | �  � ���C�����h ������] 44�55�O�C�����������g�� char-encoding  �g�� bad-chars  ��g��filenamef��sxml/simple.scm o  p   p #  p   p �   ��g��nameg��make-char-quotator�CR4i5RC ������g��m  ,�g�� *good-cache* " (��g��filenamef��sxml/simple.scm   x ,  @ " V " �  " �  ( � *, � +w  /  0 , 1 2 8 9 ; a ?Z o ?[   ?a   ?c   ?f  �  ?h ���C6�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������sxml/ssax.go����������������������������������������������������������������������������������������0000644�����������������00000210602�15253700563�0007043 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0j�����]�4�������h$c������]� g��guile � g��define-module* � � g��sxml g��ssax � g��filenameS f�� sxml/ssax.scm g��importsS g�� input-parse  �  � g��srfi g��srfi-1 � � g��srfi-13 � � � g��exportsS g��current-ssax-error-port g��with-ssax-error-to-port g�� xml-token? g��xml-token-kind g��xml-token-head g��make-empty-attlist g�� attlist-add g�� attlist-null? g��attlist-remove-top !g��attlist->alist "g�� attlist-fold #g��define-parsed-entity! $g�� reset-parsed-entity-definitions! %g��ssax:uri-string->symbol &g��ssax:skip-internal-dtd 'g��ssax:read-pi-body-as-string (g�� ssax:reverse-collect-str-drop-ws )g��ssax:read-markup-token *g��ssax:read-cdata-body +g��ssax:read-char-ref ,g��ssax:read-attributes -g��ssax:complete-start-tag .g��ssax:read-external-id /g��ssax:read-char-data 0g��ssax:xml->sxml 1g��ssax:make-parser 2g��ssax:make-pi-parser 3g��ssax:make-elem-parser 4 !"#$%&'()*+,-./0123� 5g��set-current-module 65� 75� 8g��throw 9g�� parser-error :g�� integer->char ;g�� ascii->char <g�� char->integer =g�� char->ascii >g��make-parameter ?g��current-error-port @g��parameter-fluid Ag��*current-ssax-error-port* Bg�� parameter? CB� DB� Eg�� scm-error Fg��wrong-type-arg Gf�� parameterize Hf��Not a parameter: ~S Ig��with-output-to-port Jg��display Kf��;;; SSAX warning:  Lg��for-each Mg��newline Ng�� ssax:warn Og��string Pg��ucscode->string Qg�� char-newline Rg�� char-return Sg��char-tab Tf��  Ug��nl Vg��amp Wf��& XVW Yg��lt Zf��< [YZ \g��gt ]f��> ^\] _g��apos `f��' a_` bg��quot cf��" dbc eX[^ad� fg��ssax:predefined-parsed-entities gg��make-syntax-transformer hg� ig� jg��begin0 kg��macro lg�� $sc-dispatch ml� nl� og��any pg��each-any qop roq sg�� syntax-object tg��let ug��top vu� wg��ribcage xg��dummy yg��form zg��form1 {xyz� |g�� m-b6cceb-18 }|u� ~}vv� f�� l-b6cceb-1d �f�� l-b6cceb-1e �f�� l-b6cceb-1f �� �w{~� �w� �g��x �� �}� �f�� l-b6cceb-1a �� �w� �v� �g��hygiene �� �st� �g��val �s� �g��append �� �� �� �g��syntax-violation �� �� �f��-source expression failed to match any pattern �g�� let*-values �o �o �g��begin �g��bodies �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 �g��var �g�� initializer �g��rest �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Œ �g��call-with-values �g��vars �x� �f�� l-b6cceb-39 �f�� l-b6cceb-3a �f�� l-b6cceb-3b �f�� l-b6cceb-3c �f�� l-b6cceb-3d �� �w� �v� �s� �g��lambda �s� �s� �g��1+ �g��inc �g��1- �g��dec �g��include-from-path/filtered �g��with-input-from-file �g��%search-load-path �g�� eof-object? �g��reverse �g��read �g��memq �g��_ �oo� �g�� datum->syntax �g�� syntax->datum �g��exp �� �v� �f�� l-b6cceb-5d �� �w� �g�� accept-list �g��file �� �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� �g��assert �g��atom �f��doit �� �opp� �g��cond g��expr g��r-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�� g��and s� g��=> s� s� s� � � � g��else s� g��error s� f��assertion failure: ~a  s� !g��list "s!� #g��quote $s#� %f��collect &%� 'o&p� (x� )v� *f�� l-b6cceb-71 +f�� l-b6cceb-72 ,*+� -w(),� .v-� /s.� 0s.� 1� 2g��free-id 3g��report: 4v� 5s34� 625� 76p 8p7 9&8 :o9 ;f�� l-b6cceb-77 <f�� l-b6cceb-78 =f�� l-b6cceb-79 >;<=� ?w>� @v?� As@� Bs@� Cpq D&C EoD Fg��expr1 Gg��stuff 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� [g��assure \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� ng��run-test of��scan-exp po� qg��define rg�� m-b6cceb-9c sru� ts� uf�� l-b6cceb-9e vu� wwtv� xvw� ysqx� z2y� {zoo� |op{� }g��body ~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� g��scan-exp s� g�� syntax-rules s� s#� g�� quasiquote s� g��! s� � � g��k-head s� g��args s�   �   � g��hd s� g��tl s�  � g��k s� � g�� scan-lit-lst s� g��do-wrap s� � � � � � � s� � � g��if s� g��string? s� � g��string->symbol s� � �  Ȍ � � g��do-tl s� � � � �  Ҍ � � � � g�� processed-hd s� g��fn s� � �  ތ � g��old-tl s� � g��do-cons s� � � � � � g�� processed-tl s� � 쌤   � � � s� � �   � � � g�� do-finish s� g��new-body s� �� �� � � g��unquote s� g��unquote-splicing s� �  �   �  �  �   �   � � � � � � � � � � � � �   � � �  � ! � "� #"� $ !#�  %$� &%� '� ('� )x}� *f�� l-b6cceb-ad +f�� l-b6cceb-ae ,*+� -w),� .v-w� /s.� 0g��map 10� 20� 3sn.� 4so.� 5g��make-xml-token 6g��pair? 7g��car 8g��token 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� Gg��cdr 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 Vg��char-whitespace? Wg�� string-ref Xg��string-whitespace? Yg�� assq-values Zg�� fold-right [g��fold \ � ]g�� ssax:S-chars ^g�� skip-while _g�� ssax:skip-S `g��char? ag��char-alphabetic? bg��char=? cg��ssax:ncname-starting-char? dg�� peek-char ef��XMLNS [4] for ' fg�� next-token-of gg�� string-index hf�� 0123456789.-_ ig��ssax:read-NCName jg�� read-char kg��ssax:read-QName lf��xml mg��ssax:Prefix-XML ng��= og��string<? pg��symbol->string qg��< rg��> sg��ssax:largest-unres-name tg�� name-compare uf��#LARGEST-SYMBOL vg��assert-curr-char w<� xf��start of the token yg��END z>� {f��XML [42] |g��PI }g��peek-next-char ~-� f��XML [15], second dash g��find-string-from-port? f��--> f��XML [15], no --> g��COMMENT g��string=? f��CDATA[ g�� read-string g��port  � � � g��CDSECT g��DECL g��START f��?> f��$Failed to find ?> terminating the PI g�� ssax:skip-pi g��string-concatenate/shared g�� next-token ?� f��reading PI content f��? f��]> f��5Failed to find ]> terminating the internal DTD subset f�� reading CDATA f��] f��� f��]] g�� string-null? f��gt ;� f��XML [66] g��string->number g��integer? f��f-Legalchar] broken for ' f��amp f��lt f��apos f��quot g��assq g��call-with-input-string g�� procedure? g��close-input-port f��[norecursion] broken for  g�� *DEFAULT* f��[wf-entdeclared] broken for  g��ssax:handle-parsed-entity g��null? <&� f��XML [10] f��  g��memv f��XML [68] g��*eof* f��[CleanAttrVals] broken =� f��XML [25] '"� g��!string-concatenate-reverse/shared f��[uniqattspec] broken for  f�� [nsc-NSDeclared] broken; prefix  g��ssax:resolve-name f��xmlns f��[dt-NSName] broken for  >/� f��XML [40], XML [44], no '>' f��XML [44], no '>' g��assoc g�� EMPTY-TAG f��#[elementvalid] broken, no decl for  g��ANY g��apply g��values g��REQUIRED f��[RequiredAttr] broken for f��[ValueType] broken for  g��FIXED f��[FixedAttr] broken for  g��CDATA g��member f��[enum] broken for  f��= f��declared content type  f�� not verified yet f��,[uniqattspec] after NS expansion broken for  f��space after SYSTEM or PUBLIC f��XML [11], XML [12] f��SYSTEM f��XML [11] f��PUBLIC g�� skip-until f��space after PubidLiteral f�� XML [75],  f�� rather than SYSTEM or PUBLIC f��#XML [22], unexpected token of kind  f��XML [22], char ' f�� ' unexpected g��ssax:scan-Misc f��reading char data g�� ENTITY-REF g��ssax: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� g��loop s� s� s� � s� g��accum s� s� g��target s� g��seed �s� �� g�� make-case s� s� sN� f�� Skipping PI:  s� sU�  �  s�   �    ��     � � g��default s� �� �� �  � �  g��handlers s�  g��old-def s� �� ��  � !g��tag "s!� #g��handler $s#� %"$ &% '&�� ("� )$�� *()� +* ,+�� -',� . -� /.� 0g��clauses 1s0� 21� 3g��case 4s3� 51 645 726� 8g��clause 9s8� :91 ;:� <9 =1<� >;=� ?7>� @?� A/@� Bs� C�� D�� Eooooo� Fg��my-new-level-seed Gg��my-finish-element Hg��my-char-data-handler Ig��my-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� [g��start-tag-head \s[Y� ]sY� ^g��elems _s^Y� `g��entities as`Y� bg�� namespaces csbY� dg�� preserve-ws? esdY� fsY� g\]_acef� hsqY� ig�� xml-space-gi jsiY� kg��cons lskY� msmY� nsY� of��space psoY� qnp� rlmq� shjr� tstY� ug��handle-start-tag vsuY� w\\� x]]� yaa� zcc� {ee� |g�� parent-seed }s|Y� ~}f� wxyz{~� sY� g��elem-gi sY� g�� attributes sY� g��expected-content sY� c� s-Y� \]_ac� � f� c}� s3Y� sY� � c}f� g��EMPTY sY� � sY� sY� g��eqv? sY� s<Y� s_Y� ]� � s)Y� ]� � s#Y� syY� � s8Y� g��exp-kind sY� g��exp-head sY� � s9Y� f��[elementvalid] broken for  sY� f�� while expecting  sY� ]� Z� \� sY� s�Y� sY� j� sY� g�� name-value sY� � g��equal? sY� f��preserve 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� � g��eq? sY� g��PCDATA sY� � � f��* with char content only; unexpected token  sY� ]� � v]acef� f� � t� � f��XML [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#� %"$� &g��or 's&� (s� )s� *f��DOCTYPE +s*� ,)+� -(,$� .s9� /f��.XML [22], expected DOCTYPE declaration, found  0s/� 1.0$� 2'-1� 3sv� 4s]� 5f��XML [28], space after DOCTYPE 6s5� 7346� 8s_� 98� :s� ;g��docname <s;� =<� >sk� ?>� @=?� Ag��systemid BsA� CB� Ds� Esc� FE9� Gs.� HG� IDFH� JCI� Kg��internal-subset? LsK� ML� Ns� Os� Ps[� Qs#� Rs>� SRP� TQS� Uf��XML [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� pf��XML [22], unexpected EOF qsp� r.q� ss3� ts� uth� vs|� wv� xs2� ys� zyh� {z� |f� }s� ~}� "z� ~� s� � z� g��element-parser s� s� z[\]� � s� f��XML [22], unexpected markup  s� .h� � � s3� g��ssax:define-labeled-arg-macro g��each oo � o oo� g�� define-syntax g��labeled-arg-macro-name g��positional-macro-name g��arg-name g��arg-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� g��find s� g��k-args s� s� s� g��others s�  g��next s�   � g��key s� g��arg-no-match-name s�  Œ Ì Č  ƌ nj � �  ˌ � g��vals s� g��keys s� ь Ҍ ӌ Ԍ ό ь  ، ٌ � � g�� rev-apply s� � � � � � sy� s� g��xs 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� �g��shift �� s� s� s� g��DOCTYPE v� s� g�� UNDECL-ROOT  s�  g�� DECL-ROOT  s �  g��NEW-LEVEL-SEED  s � g��FINISH-ELEMENT s� g��CHAR-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� � g��when 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� � �  � �  �  � � � � �  � g��ssax:reverse-collect-str g��*PI* >[� g�� string-append f��: g��@ g��*TOP* g�� *NAMESPACES* g��SSAX:XML->SXMLC�5�������hТ����]4   45�47�>��"��G���89����h������-�1�3��@����������g��port �g��message �g��rest  ��g��filenamef�� sxml/ssax.scm � �   � �   ��g��nameg�� parser-error�C9R:i;R<i=R4>i4?i5�5R4@ii5ARDEFGH��������hP������] 45$��"��4�>��"��G�� 4 �5Y4>���ZCZF����������g��port  M�g��thunk  M�g�� t-b6cceb-a   M��g��filenamef�� sxml/ssax.scm �  �  B � �  M ��g��nameg��with-ssax-error-to-port�CRIJKLM��������h0���n���]�4>��"��G��4L�>��"��G��6�����f�������g��filenamef�� sxml/ssax.scm �   �   �  �   �  , � �  , ���C�������h ������-�1�3�45�O�6��������������g��port �g��args ��g��filenamef�� sxml/ssax.scm � �   � �  ��g��nameg�� ssax:warn�CNRO:�������h������]4�56���~�������g�� codepoint  ��g��filenamef�� sxml/ssax.scm �  � � �  ��g��nameg��ucscode->string�CPR QR RR SRTURef���h������]� C�������g��filenamef�� sxml/ssax.scm �  �   � �   ��g��nameg�� reset-parsed-entity-definitions!g�� documentationf��BRestore the set of parsed entity definitions to its initial state.�C$Rf��������h���\��]� C��T������g��entity  �g��str  ��g��filenamef�� sxml/ssax.scm �  �  � �   ��g��nameg��define-parsed-entity!g�� documentationf��Define 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#R4ijknr�h ���R���]��45C������J�������g��dummy  �g��form  �g��form1   ��   ���C�������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef�� sxml/ssax.scm � �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��formg��form1g��...���C5jR4ikn�������h���A���]C9�������g��dummy  �g��bodies  ��   ���C�����h ���}���]���C������u�������g��dummy  �g��var  �g�� initializer   �g��rest   �g��bodies   ��   ���C�������h ���~���]���C�v�������g��dummy  �g��vars  �g�� initializer   �g��rest   �g��bodies   ��   ���C� ��hP�����]4�5$��@4�5$��@4�5$��@ �6������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef�� sxml/ssax.scm � �  P ��g�� macro-typeg�� syntax-rulesg��patternsg��bodiesg��var�g�� initializer�g��restg��bodiesg��varsg�� initializer�g��restg��bodies��C5RiRiR4ik�hh�����]"��S4�5$��6"��45��"�$��$4�L�5$��45���"""45��"�������g��sexp  Y�g��out  Y��g��filenamef�� sxml/ssax.scm �   �  �   �  � !  �  * �  * � - �  1 � 2 � 7 � & ; � ? �  @ �  I �  Q �  Y � Z �  _ � ( g � �  g ���C�����h������]45�O�6�����������g�� accept-list  �g��file  ��g��filenamef�� sxml/ssax.scm �   �   � �   ��g��nameg�� read-filtered�Cnnp����h���+���]�C#�������g��exp  ��   ���C������h@������]4L�4L4�5455545$��@6���������g�� accept-list  >�g��file  >�g��tmp   >�g��tmp  ' >��g��filenamef�� sxml/ssax.scm  �  � !  "   "  � !  �  � �  > ���C���h0���|���]4�5$�� �O�@�6���t�������g��x  -�g�� read-filtered  -�g��tmp   -��g��filenamef�� sxml/ssax.scm � �  - ���C5R4ikn "$� ������h0���R���]����C����J�������g��dummy  ,�g��expr  ,�g��r-exp   ,��  , ���C'/01������h���?���]C��7�������g��dummy  �g��expr  ��   ���C:AB����h���R���]�C��J�������g��dummy  �g��expr  �g��r-exp   ��   ���CEQR�������h���e���]4�5C]�������g��dummy  �g��expr  �g��expr1   �g��stuff   ��   ���CqYZ�������h���@���]C���8�������g��dummy  �g��stuff  ��  ���C�h�����])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��filenamef��sxml/upstream/assert.scm  �  ~ ��g�� macro-typeg�� syntax-rulesg��patternsf��doitg��exprg��...�g��r-expg��...��f��collectg��exprg��...��f��collectg��exprg��...�g��report:g��r-expg��...�f��collectg��exprg��...�g��expr1g��stuffg��...�g��stuffg��...���C5R4i[kn\lm�������h���U���]�C��M�������g��dummy  �g��exp  �g�� error-msg   ��   ���C����h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��sxml/upstream/assert.scm �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��expg�� error-msg���C5[R4inkn|�������h���Q���]��C�����I�������g��dummy  �g��vars  �g��body   ��   ���C&(����h���@���]�C������8�������g��dummy  �g��?body  ��   ���Cq/234�����h���5���]��C����-�������g�� tmp-b6cceb-b1  ��  ���C��������h���?���]45C�7�������g��dummy  �g��body  ��   ���C� �hP�����]4�5$��@4�5$��@4�5$��@ �6������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��sxml/upstream/SSAX.scm 2 �  P ��g�� macro-typeg�� syntax-rulesg��patternsf��scan-expg��defineg��varsg��body��f��scan-expg��?body�g��bodyg��...���C5nR�h������]�C�������g��kind  �g��head  ��g��filenamef��sxml/upstream/SSAX.scm    #�   ��g��nameg��make-xml-token�C5R6iR4iknF�������h���@���]�C������8�������g��dummy  �g��token  ��  ���C�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��sxml/upstream/SSAX.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��token���C5R4iknT����h���@���]�C������8�������g��dummy  �g��token  ��  ���C�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��sxml/upstream/SSAX.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��token���C5RUVW��������h�����]4�5 $��C $�� 4� 56 $��44� 55$�� 4� 56C"��1$��C44�55$�� 45"C "���������g��str  ��g��len ��g��i  U ��g��t  Z ���g��filenamef��sxml/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 �  � ��g��nameg��string-whitespace?�CXR�����hH���P��]"��6(��D�$��45D""�H������g��val  G�g��alist  G�g��alist   <�g��scanned   <��g��filenamef��sxml/upstream/SSAX.scm                        '  * )   +   .  1   4   <   <   ?  $ G  �  G ��g��nameg�� assq-values�CYR�h ������] �(��LC�L�4L�56���������g��lis  �g��head  ��g��filenamef��sxml/upstream/SSAX.scm                     �   ��g��nameg��recur�C�������h ������] O��Q�6������������g��kons  �g��knil  �g��lis1   �g��recur  ��g��filenamef��sxml/upstream/SSAX.scm   �   ��g��nameg�� fold-right�CZR�������h0������]"��(��C4�5""�������g��kons  0�g��knil  0�g��lis1   0�g��lis   $�g��ans   $��g��filenamef��sxml/upstream/SSAX.scm                  $   $  �  0 ��g��nameg��fold�C[R40i;i\5]R^]����h���}���]�6������u�������g��port  ��g��filenamef��sxml/upstream/SSAX.scm   �  ��g��nameg�� ssax:skip-S�C_R`ab��h0������] 4�5$��4�5$��C_�6C��������������g��a-char  )�g��t  '��g��filenamef��sxml/upstream/SSAX.scm             '  �  ) ��g��nameg��ssax:ncname-starting-char?�CcRdc9e`fagh�h0������]4�5$��C4�5$���C4�5$���CC��������g��c  /��g��filenamef��sxml/upstream/SSAX.scm              "   &  *  �  / ���C� ��hP������]4�545$��"��4�>��"��G��4�56��������������g��port  I�g�� first-char <�g��t   9��g��filenamef��sxml/upstream/SSAX.scm               %   )  6 .   ?   I  �  I ��g��nameg��ssax:read-NCName�CiRidj������h@������]4�54�5:$��4�>��"��G��4�5CC����������g��port  =�g��prefix-or-localpart =�g��key   =��g��filenamef��sxml/upstream/SSAX.scm              2  ! 9  �  = ��g��nameg��ssax:read-QName�CkR4il5mRnopqrs�������h�����]�$��2$��(�&��C44�5455$��CCC$��C&��C�&��C�&��2�&��C445455$��CC�&��C445455$��CC�������������g��name1  ��g��name2  ��g��symb1  k ��g��symb2  k ��g��symb1  � ��g��symb2  � ���g��filenamef��sxml/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}~9�����h����]4�>��"��G��4�5/$��M4�>��"��G��44�554 �>��"��G��4  �>��"��G��C?$��4�>��"��G�� 4 �56!$��4�5-$��T4�>��"��G��4�>��"��G��4�5$��"��4�>��"��G��6[$��O4�>��"��G��44 �55$��"��4�>��"��G��64 �564�56������g��port  �g��key  �g��val  J w�g��key  � s�g��t  9 _��g��filenamef��sxml/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)R9������h ������]4�5$��C�6��������������g��port  ��g��filenamef��sxml/upstream/SSAX.scm t  u  u # u  u   v   v �   ��g��nameg�� ssax:skip-pi�CR_}j����hH������]4L5�>4L5$��4L>��"��G����C�4L�5�C�������������g�� pi-fragment  B��g��filenamef��sxml/upstream/SSAX.scm            $                 5  :   ;  # @  �  B ��g��nameg��loop�C��h0������] 4�>��"��G��O��Q�45�6�������g��port  0�g��loop  .��g��filenamef��sxml/upstream/SSAX.scm ~       0  �  0 ��g��nameg��ssax:read-pi-body-as-string�C'R9������h ������]4�5$��C�6��������������g��port  ��g��filenamef��sxml/upstream/SSAX.scm      #          �   ��g��nameg��ssax:skip-internal-dtd�C&RRi ]&��jUd}fa�������h ���~���]4�5$��C4�5$���CC�v�������g��c  ��g��filenamef��sxml/upstream/SSAX.scm          ,   �   ���CW]�����h����]+"�~4L��54�5 $��45"]$��4�5]$��x"��R4�5>$��4�>��"��G��C]$��45"4 5"b4 5$��"�� 45"45"/&$��o4  �5"��44 55"45$��54�5;$��#4�>��"��G��45"""4�5 $��4�>��"��G��"���45""z����������g��port  �g�� str-handler  �g��seed   �g��seed   �g��fragment   �g��key   �g��seed  R ��g��key  Y ��g��ent-ref  � O�� g��filenamef��sxml/upstream/SSAX.scm          $   $            '   7   @   A   J   N   R  S   Y   e   �   �   �  % �  ) �   �   �   �  ) �  . �   �   �  �   �   �   �  1 �   �  �   �  ( �   �  �   �   �   �  �  " �   �  0                       /   ) $  %  7   =  ( A   G  P   Y  ]  ^  / t       �H   ���C�O��*RdjP9`� ����hx���i��]4�5x$��4�>��"��G�� "�� 4�5454�>��"��G��45$��6 �  6����a������g��port  t�g��base * t�g��name  8 t�g�� char-code  C t��g��filenamef��sxml/upstream/SSAX.scm           . *   -   0   2   4  & 8   8   ;   C   F   X   b   h   n   r  < t  �  t ��g��nameg��ssax:read-char-ref�C+R4i5W4i5Z4i5]4i5`4i5c�fR����h���f���]L�LL�6����^�������g��port  ��g��filenamef��sxml/upstream/SSAX.scm F F �  ���C9f�����h���f���]L�LL�6����^�������g��port  ��g��filenamef��sxml/upstream/SSAX.scm X X �  ���C����h���%��].45$��h45$��O�645$��)45� 4 5 4 >��"��G�� C�64 5$��  64 5$��;  4 5$��4 �5  O�6�6� 6���������g��port  ��g��name  ��g��entities   ��g��content-handler   ��g�� str-handler   ��g��seed   ��g��t  ��g��ent-body   {�g�� new-entities   {�g��port M q�g��val Z q�g��t  � ��g��t  � ��g��fallback � ��g�� new-entities � ���g��filenamef��sxml/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 � [  � [ �)  � ��g��nameg��ssax:handle-parsed-entity�CR�����h���q���]�C����i�������g��filenamef��sxml/upstream/SSAX.scm c  c �   ��g��nameg��make-empty-attlist�CRtnq�����hH�����] �(���C4�5$��C$���C�4�5C��� ������g��attlist  E�g�� name-value  E�g��key   E��g��filenamef��sxml/upstream/SSAX.scm i  j  j   k  k   k +  k  k  5 m 9 n  : n " ? n / C n " D n �  E ��g��nameg�� attlist-add�CRiR������h������]��D�������������g��attlist  ��g��filenamef��sxml/upstream/SSAX.scm t  u  u  u �  ��g��nameg��attlist-remove-top�C R��h���z���]�C���r�������g��attlist  ��g��filenamef��sxml/upstream/SSAX.scm w �   ��g��nameg��attlist->alist�C!R[i"R4i]i5�jRd]+iv��������h������]L��6���������g��port  �g��entities  �g�� fragments   ��g��filenamef��sxml/upstream/SSAX.scm        �   ���C�����h ������]$���C�C�������������g��str1  �g��str2  �g�� fragments   ��g��filenamef��sxml/upstream/SSAX.scm               �   ���C9�����hH����]4�L�54545$��"���$��C$��;45 $��4>��"��G��"�����"|4 5$����"X&$��45#$��.4>��"��G���4 5�"�4 54  >��"��G��4LO�5�"6�������������g�� delimiter  A�g��port  A�g��entities   A�g��prev-fragments   A�g�� new-fragments   A�g��cterm   A�g��t  & ;�g��name  � -��g��filenamef��sxml/upstream/SSAX.scm          "                  &  8  ! ?   G  K   L   U   Y  Z  0 w  # z   �  �  �   �  # �   �  �  �   �   �  �  �   �   �   �   �   �   �               9   ?  ! A  �0  A ��g��nameg��read-attrib-value�CO��Q�c_kv9�������h�����]""��44�55$��4�54�>��"��G��4�>��"��G��4�>��"��G��4�54 4 4L��555$��"�� 4 � 5"cC4 5�"U�������������g��port  ��g��entities  ��g�� attr-list   ��g��name   ��g�� delimiter  d ��g��t  � ���g��filenamef��sxml/upstream/SSAX.scm          +             2  6   8  % ?  H  Z   ^  % `  1 d   d  g   n   q   z  6 |   ~      �   �   �   �  & �   �   �   �   �  �$  � ���CO��,Rm9���hx�����] $��=45$��"��&��"�� 4�5C$��'45$��$��CCCC��������g��port  v�g�� unres-name  v�g�� namespaces   v�g��apply-default-ns?   v�g��t   A�g�� default-ns  U s��g��filenamef��sxml/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 ��g��nameg��ssax:resolve-name�CR�����h������]�6�������g��uri-str  ��g��filenamef��sxml/upstream/SSAX.scm i  j �   ��g��nameg��ssax:uri-string->symbol�C%R4i5si��9%�hp�����]$��4�>��"��G��"���45"��5(�� C&��C""�������g��port  o�g��prefix  o�g��uri-str   o�g�� namespaces   o�g�� uri-symbol  , o�g��nss  2 g��g��filenamef��sxml/upstream/SSAX.scm                &   ,   2   8   ?   C  I   O   T   Y   ]  a   g   g  �  o ��g��nameg��add-ns�C,_vz99���hP���O��]"4�>�� G�&��4L�>��"��G��"���$�� CC��G������g�� decl-attr  N�g��result  N�g�� attr-name   N�g�� content-type   N�g��use-type   N�g�� default-value   N��g��filenamef��sxml/upstream/SSAX.scm           "  #   )  ! 0   B  G   J  �  N ��g��nameg��add-default-decl�C" tq9rN���h����]S4�5$�� L64�>�� G�45$��L "��"�� 4>�� G�45$��KL$��"��$�� L"��$���"WL�6$��h�4  >�� G�     &��4L� >��"��G��"��� $��  "��   �"4  >�� G�     &��/   $��"��4L�>��"��G�� "��c &��"��W $��84 5  $��"��4L�>��"��G�� "��4L� >��"��G���"�����������g��attlist  �g�� decl-attrs  �g��result   �g��attr  " �g�� attr-others  " �g�� decl-attr  M �g�� other-decls  M �g��key  _ �g��t  p ��g�� attr-name  � �g�� content-type � �g��use-type � �g�� default-value � �g�� attr-name  3 �g�� content-type 3 �g��use-type 3 �g�� default-value 3 �g��t L q�g��t  ��g��filenamef��sxml/upstream/SSAX.scm           %  *   4  >   C   P  U   Z   ]  * _   _  o  ! p   p   �  " �   �   �  9 �  . �   �  / �   �  % �   �  �  �   �   �  �   �  ! �          &   '   6   B   F   I   L   L   Y   _  ( f   y  # }                          (   G            !         -   �G   ��g��nameg��loop�C!Z9����h0������] 44L�L�5�5$��CL�6��������g�� name-value  /�g��attlist  /�g��t   /��g��filenamef��sxml/upstream/SSAX.scm           )               +   /  �  / ���C��h����]E454>��"��G��/45$��45"��$��B4�5$��$�� "�� "��,"��4  �>��"��$�� "��  "�� G�$��: O� Q� O�  L�L Q� 4 5  "��45 "�� (��   "��L� &��6   $��  "��4L  5   ""��       " $��0L� &��!  4L   5   "b""    "K G�  4� 54 O�45� 5 D�������������g��tag-head  �g��port  �g��elems   �g��entities   �g�� namespaces   �g��attlist  �g�� empty-el-tag?  A �g��t  R ��g�� elem-content  � �g�� decl-attrs  � �g��add-default-decl � ��g��loop � ��g�� merged-attrs � �g��attrs � �g�� proper-attrs � �g�� namespaces � �g�� proper-attrs  �g�� namespaces  ��g��filenamef��sxml/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   ���C�O��-Riv]_j9�h�����]!4�54�>��"��G��4�>��"��G��4�54 5&��&4 � �54 �>��"��G��C4 5&��r4��>��"��G��4�>��"��G��4�>��"��G��4 �54 � �54 �>��"��G��C�6��������g��port  ��g�� discriminator ��g�� delimiter  > ��g��val  \ s�g�� delimiter  � ��g��systemid  � ���g��filenamef��sxml/upstream/SSAX.scm           #    "   4  8   :  ( >  >   C   G  , I   M   N  Q   V   X  - \  \  _  v   z  - |   �   �  �   �  �  �  * �  �  �   �  $ �  0 �   �  �   �  �  $ �  5 �   �  �   �   �   �  �2  � ��g��nameg��ssax:read-external-id�C.Rb)_|9� ���h���n��]"��}45$��C4<5$��V4�5$�� 4�5"$��"��$��"��$��C � 6 �  64�5"vf������g��port  ��g��c  ��g��token  ( w�g��key  - w��g��filenamef��sxml/upstream/SSAX.scm             !   "   (   -   -  9   E   N  s  ! u   w   }   �  0 �   �   �   �  �  � ��g��nameg��ssax:scan-Misc�CR<&Ri�<&Ri��d)y*/}j+iv5O������h0����],<4�5$��h4�5$��"��$��D$��4�5�6$�� �6D"�4 $��L�"��L �54�54 5$�� 4 5$��"�� 4 5D<$��4�5$��+4�4 5$��"�� 4 55"g$��"4 5$��"�� 4 5"<4 5$��"�� 4 5D&$��4�5#$��(4�>��"��G��44�55"4�54�>��"��G��4 5$��"�� 4 545D4�5 $��4�>��"��G��"���44 55"Y"Q�����������g��port  +�g�� expect-eof?  +�g�� str-handler   +�g��seed   +�g��token   x�g��key   x�g��seed  O ]�g��seed  | #�g��fragment  � #�g�� term-char  � #�g��token  � `�g��key  � `�g��key  p �g��name   ��g��filenamef��sxml/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 �\  + ���C�O��/R��������h@��� ��] 4�5$���&�� �"��"��$��C�6�����������g��token  ;�g��kind  ;�g��gi   ;�g�� error-cont   ;�g��t  & ;��g��filenamef��sxml/upstream/SSAX.scm                  &   ;  �  ; ��g��nameg��ssax:assert-token�CR4i2knABCD������h ���H���]��C�������@�������g��dummy  �g�� orig-handlers  ��   ���C�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��sxml/upstream/SSAX.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg�� orig-handlers���C52R4i3knEZgstv]fa�)�����h������]  ��   �� �� � �!��"�#$%&' ��"�(���������C�������������g��dummy  ��g��my-new-level-seed  ��g��my-finish-element   ��g��my-char-data-handler   ��g��my-pi-handlers   ���  � ���C��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��sxml/upstream/SSAX.scm o �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��my-new-level-seedg��my-finish-elementg��my-char-data-handlerg��my-pi-handlers���C53R4i�kn %279:@JZ^_cfglmorsuwx{|bz[\]�*������h���!��,�3�     ������� ��� ���!����"#$%&'(�� ���")��C�������g��dummy  ��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   ���  � ���C��������h(���@��] 4�5$��@�6������8������g��x  "�g��tmp "��g��filenamef��sxml/upstream/SSAX.scm �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��*handler-DOCTYPEg��*handler-UNDECL-ROOTg��*handler-DECL-ROOTg��*handler-NEW-LEVEL-SEEDg��*handler-FINISH-ELEMENTg��*handler-CHAR-DATA-HANDLERg�� *handler-PI���C5�R4ikn2����h���6���]��C�.�������g��tmp-b6cceb-102  ��   ���C�������h���6���]��C������.�������g��tmp-b6cceb-101  ��   ���Ck������hX������]445 4 55�  4 5����C�������g��dummy  X�g��labeled-arg-macro-name  X�g��positional-macro-name   X�g��arg-name   X�g��arg-def   X��  X ���C��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��sxml/upstream/SSAX.scm �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��labeled-arg-macro-nameg��positional-macro-nameg��arg-nameg��arg-defg��...����C5R4i1knhnpFv� �������h0���G���]� �  C����?�������g��dummy  ,�g�� kw-val-pairs  ,��  , ���C��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��sxml/upstream/SSAX.scm �  " ��g�� macro-typeg�� syntax-rulesg��patternsg�� kw-val-pairs��C51R��h�����]�(��C�(���C"��c(��(��C45C45$��"(��"�� 45"�"�������������g�� fragments  ��g�� fragments  {�g��result   {�g��strs   {��g��filenamef��sxml/upstream/SSAX.scm          $ (  1  3 8  : >  A  F / I ) S V  Y  _  f  o  p  q  { {  ~ /  : � �  � ��g��nameg��ssax:reverse-collect-str�CRX�����h���t��]!�(��C�(�� 4�5$��4�5$��C�C�C"��{(��$��C45C45$��*$�� 45"��"$��"�� 45"�"t�������l������g�� fragments  ��g�� fragments 5 ��g��result  5 ��g��strs  5 ��g��all-whitespace?  5 ���g��filenamef��sxml/upstream/SSAX.scm   �                   ( #  < %  ( )  *   5   ;   A E  N  P U  W [   ^  c / f ) l  m   r  $ t   � �   �   �   �   �   �   �   �  �   �  / �  : �  �,  � ��g��nameg�� ssax:reverse-collect-str-drop-ws�C(R0%�������h������]�4�5C��������������g��el  ��g��filenamef��sxml/upstream/SSAX.scm %  &   & " & ;  & "  & �   ���C9p|'*/v]5_kc.UN&mo-"p�������h@������] �$���"��$�44454555��C��������g��attr  ?�g��accum  ?�g��res-name   5��g��filenamef��sxml/upstream/SSAX.scm 4  +  ,  - " -  $ - & . ' / , /  . / 0 , 2 + 8 4 �  ? ���Cp_)y9�����h������]L��6�������������g��token  �g��exp-kind  �g��exp-head   ��g��filenamef��sxml/upstream/SSAX.scm 4 �   ���Cp������h@������] �$���"��$�44454555��C��������g��attr  ?�g��accum  ?�g��res-name   5��g��filenamef��sxml/upstream/SSAX.scm 4  +  ,  - " -  $ - & . ' / , /  . / 0 , 2 + 8 4 �  ? ���C/������h ������]45$���C�C�����������g��string1  �g��string2  �g��seed   ��g��filenamef��sxml/upstream/SSAX.scm 4 �   ���Cy9�����h������]LL�6�������������g��token  �g��exp-kind  �g��exp-head   ��g��filenamef��sxml/upstream/SSAX.scm 4 �   ���C"p�h@������] �$���"��$�44454555��C��������g��attr  ?�g��accum  ?�g��res-name   5��g��filenamef��sxml/upstream/SSAX.scm 4  +  ,  - " -  $ - & . ' / , /  . / 0 , 2 + 8 4 �  ? ���Cp|'�������h������]L��6���}�������g��port  �g��entities  �g��seed   ��g��filenamef��sxml/upstream/SSAX.scm 4 �  ���C����h ������]45$���C�C�����������g��string1  �g��string2  �g��seed   ��g��filenamef��sxml/upstream/SSAX.scm 4 �   ���C9�����h����],4�>�� G�45$��C$��v4L�O�>��"��G��454 L5L$��L"��4 4 4 L5 4 L555(��"��LC$��/4�5���"$��-4�L�O�5��"$��NL&��4�L>��"��G��"���4L�LL5��"�6�����������g��port  {�g��entities  {�g�� expect-eof?   {�g��seed   {�g��seed   {�g�� term-token   {�g��key  + {�g��seed  f ��g��attrs  f ��g��target  � ��g��seed  � ��g��seed   �g��seed  [ q�� g��filenamef��sxml/upstream/SSAX.scm 4 x + { , ~ - � -  � - � . � / � /  � / � , � + � 4 �  { ��g��nameg��loop�C�����hh����]64�L>�� G�  $��V4545  $��"��4445 4555 (�� "��   C  $��4 <4 5$�� 45"���O�>��"��G��4545  $��"��4445 4555 (�� "��   C4M5  $��  "��  O�    L� �Q�  6����������g��start-tag-head  d�g��port  d�g��entities   d�g�� namespaces   d�g�� preserve-ws?   d�g�� parent-seed   d�g��elem-gi   d�g�� attributes   d�g�� namespaces   d�g��expected-content  d�g��seed 9 �g��attrs 9 �g��seed � �g��attrs � �g��t  3�g�� preserve-ws? 3 d�g��loop E d��g��filenamef��sxml/upstream/SSAX.scm 4 K + N , Q - V -  X - Z . [ / ` /  b / d , f + l 4 � + � , � - � -  � - � . � / � /  � / � , � + � 4 �  d ��g��nameg��handle-start-tag�C�����h���v���]���C����n�������g��ns  ��g��filenamef��sxml/upstream/SSAX.scm l &  l 9  l B l 3�  ���C�'������h����]RH45K4"�4545$�� 45"�$��* 4 5�" $�4  5$��"��4>��"��G��4>��"��G��4>��"��G��454455$�� 45"�� 4>��"��G��[45  $��*4>��"��G��4>��"��G��"���4 >��"��G��J"��P  $��"J "��45"��"��4545$�� 45"��  $��6   4 5�   "  $��$ "��45"��R "��=H  4 !5K "O�   Q� 4  5"��  �"T5#(��"��$%4&5�C������������g��port  �g��namespace-prefix-assig  �g�� namespaces   �g�� namespaces   �g��port   �g��seed   �g��token  % �g��key  B �g��target  P f�g��seed  f w�g�� token-head  � �g��t  � ��g��docname  � �g��systemid  �g��internal-subset? # �g��port   ~�g��elems   ~�g��entities   ~�g�� namespaces   ~�g��seed   ~�g��token   ~�g��key  {�g��target  �g��seed  <�g��start-tag-head   �g��port   �g��elems   �g��entities   �g�� namespaces   �g�� preserve-ws?   �g��seed  �g�� xml-space-gi  �g��handle-start-tag  �g��result   ��"g��filenamef��sxml/upstream/SSAX.scm "  #   %   3  4  g   4  3  2   h  i  k   k  l !  k   k   j   h �   ��g��nameg��ssax:xml->sxml�C0R0iRC������������g��m  ,�g��cdata-delimiters 6 <�g��value-delimeters G Q�g��read-attrib-value N Q�g��xmlns T- gS�g��largest-dummy-decl-attr T- gS�g��add-ns  VH gM�g��terminators-usual m u�g��terminators-usual-eof m u�� g��filenamef�� sxml/ssax.scm  �  �  �  �  �   �   �  " � # �  0 � W �  �  �  �  �  �  �  �  �  � � � g��filenamef��sxml/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 ������ ���C6�������������������������������������������������������������������������������������������������������������������������������sxml/ssax/input-parse.go����������������������������������������������������������������������������0000644�����������������00000031005�15253700563�0011310 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.01������]�l�4��ho������]� g��guile � g��define-module* � � g��sxml g��ssax g�� input-parse � g��filenameS f��sxml/ssax/input-parse.scm g��importsS g��ice-9 g��rdelim  � � � g��exportsS g��peek-next-char g��assert-curr-char g�� skip-until g�� skip-while g�� next-token g�� next-token-of g��read-text-line g�� read-string g��find-string-from-port? �  g��set-current-module � � g�� integer->char !g�� ascii->char "g�� char->integer #g�� char->ascii $g�� char-newline %g�� char-return &g��1+ 'g��inc (g��1- )g��dec *g��make-syntax-transformer +*� ,*� -g�� define-opt .g��macro /g�� $sc-dispatch 0/� 1/� 2g��_ 3g��any 423 5g�� syntax->datum 65� 75� 8g�� datum->syntax 98� :8� ;g��reverse <g��optional =g��define* >g��append ?g��optionalS @g��syntax-violation A@� B@� Cf��-source expression failed to match any pattern Dg��throw Eg�� parser-error Fg��current-input-port Gg�� read-char Hg�� peek-char Ig��memv Jf��Wrong character  Kf�� (0x Lg�� eof-object? Mf��*eof* Ng��number->string Of��)  Pf��.  Qf�� expected Rg��number? Sf��Unexpected EOF while skipping  Tf�� characters Ug��memq Vg��*eof* Wf��$Unexpected EOF while skipping until  Xg�� make-string Yg��input-parse:init-buffer Zf��� [g�� string-length \g�� substring ]f��EOF while reading a token  ^g�� string-append _g�� string-set! `g��next-token-old ag��string-concatenate-reverse bg�� procedure? cg��*read-line-breaks* df��reading a line eg�� list->string fg��delete gg��read-delimited hg��peek ig�� read-line jg��char=? kg�� string-refC�5����hP(����]4    5�4�>��"��G��� i!R"i#R $R %R&i'R(i)R4,-.147:;<=>?�������hp���r��-�1�3�4�5$��$$��&��"��"��"��$��4455C�C��j������g��bindings n�g��body n�g�� body-rest  n�g�� rev-bindings   n�g�� opt-bindings  > n��g��filenamef��sxml/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  ���C���h���m���] 4�5L�4?6e�������g��args  �g��v ��g��filenamef��sxml/ssax/input-parse.scm  J �   ���CBC����h(���k���] 4�5$�� �O�@�6�c�������g��y  '�g��tmp '��g��filenamef��sxml/ssax/input-parse.scm J �  ' ���C5-RDE��������h������-�1�3��@����������g��port �g��message �g��rest  ��g��filenamef��sxml/ssax/input-parse.scm V W   W �   ��g��nameg�� parser-error�CERFGH��h8������-��.�,�3��#��45��4�>��"��G���6��������������g��port 1��g��filenamef��sxml/upstream/input-parse.scm ,  , ,  -  1 . � 1 ��g��nameg��peek-next-char�CRFGIEJKLMN"OPQ�hh���H��-�.�,�3�#��45�454�5$��C45$��"��4 4 5 5  � 6 �@������g��expected-chars g�g��comment g�g��port  g�g��c  g��g��filenamef��sxml/upstream/input-parse.scm ;  < .  = =  # >  / >  8 ?  < @ = @  G @  I @ & N A  Q A $ [ A  ] A ; a B  e B ' g ? � g  ��g��nameg��assert-curr-char�CRFRLGEST)IUVW� h�����-�.�,�3�#��45�4�5$��O"��C $��94455$��4�>��"��G��"���45"C�""��B4 �5$��C45$��4  �5$��C �645"45"��������g��arg ��g��port ��g��i  ( k�g��c  w ���g��filenamef��sxml/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 �" � ��g��nameg�� skip-until�CRFIGH�������h`������-�.�,�3�#��45�"��/4�5$��4>��"��G��45"C45"��������������g�� skip-chars Y�g��port Y�g��c   L��g��filenamef��sxml/upstream/input-parse.scm k  k 3  l   m * l  + n  = l  I l  M l Y l � Y ��g��nameg�� skip-while�CR4Xi �5��������h���Q���]�L�C���I�������g��filenamef��sxml/upstream/input-parse.scm � �   ���C�O��YRZFY[I\LUVE]^X_G'H����h�����-�.�,�3� #��#��45�45�H4J5HJH"��45$�� J 645$�� 4 5$�� J 6  6J$��!4 J4 J55KJK4J5K"���4J>��"��G��4>��"��G��4545"W 4�5"E��������g��prefix-skipped-chars ��g�� break-chars ��g��comment  ��g��port  ��g��buffer  ( ��g�� curr-buf-len  1 ��g��quantum  5 ��g��i  ; ��g��c  ; ��� g��filenamef��sxml/upstream/input-parse.scm �  � +  � 5 $ �  ( �  + �  1 �  ; �  < � H �  Q �  R � \ �  ] �  a �  e �  i � r � x �  | � � �  � � � �  � � 1 � �  � �  � �  � � ! � �  � � � � � �  � �  � � � �  � �  � � �& �  ��g��nameg��next-token-old�C`RZF[I\aLUVE]X_G'HY�����h����-�.�,�3� #��#��45�"��45"��4 5$��(��  664 5$��04 5$��(��  66  6$��4 5 "q4  >��"��G��4>��"��G��4545 "@  "545�4�5"������g��prefix-skipped-chars �g�� break-chars �g��comment  �g��port  �g��buffer  ' ��g��filled-buffer-l  ' ��g��c  ' ��g�� curr-buf-len  . ��g��i  4 ��g��c 4 ��� g��filenamef��sxml/upstream/input-parse.scm �  � %  � / ' �  ( �  . �  4 �  5 � A �  G � P � ( Z �  [ � e �  f �  j �  n �  r � x �  � � * � �  � � ! � �  � � � �  � �  � �  � � � � � � � �  � �  � � � �  � �  � �   � B  �   � �(   ��g��nameg�� next-token�CRFY[bXH_G'\aI� �������hh��j��-�.�,�3�#��45�45�454�5$��"��"��$��45"4�455$��54>��"��G��4>��"��G��4 5"(��   6 6 "z"k"��"��$��45"454 �5$��54>��"��G��4>��"��G��4 5"(��   6 6 "x"ib������g��incl-list/pred h�g��port h�g��buffer   h�g�� curr-buf-len  ' h�g��buffer  8 ��g��filled-buffer-l  8 ��g��i  < ��g��c  e ��g��buffer  � ]�g��filled-buffer-l  � ]�g��i  � V�g��c  � V�� g��filenamef��sxml/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 ��g��nameg�� next-token-of�CR$i%iV�cRFLHcdG%� ������h���J��-��.�,�3��#��45��44�55$���64�54�5$��(4�5 $��4�>��"��G��"���"���C������B������g��port z�g��line ; z�g��c  D z��g��filenamef��sxml/upstream/input-parse.scm *  * ,  +   +  % +  ) +  / + % 0 - 3 -  7 .  ; - ; ,  > /  D ,  K 0 O 0  P 0 ' Y 0 ! ] 0  ^ 1 � z ��g��nameg��read-text-line�CRFXL\'_GZ� ������h�����-�.�,�3�#��45�� $��m4�5"��P45$��  6454>��"��G���$��C45" 45"C�������������g��n ��g��port ��g��buffer  ( ��g��i  . ~�g��c  . ~�g��i1  I ~��g��filenamef��sxml/upstream/input-parse.scm <  < +  = ! =  " >  ( >  . ?  / @ 9 @  B @  C A  I A L B f C  j C p D  ~ D  ~ ?  � ?  � ?  � = � � ��g��nameg�� read-string�CRZFefVLHUE]gh��������h�����-�.�,�3�#��#��45�44554�(�� 45"�� 4�55$��4 5$��C  64  54455$��4 5$��C  6C������������g��prefix-skipped-chars ��g�� break-chars ��g��comment  ��g��port  ��g��delims  1 ��g��token  { ���g��filenamef��sxml/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 �% �  ��g��nameg�� next-token�CRFi�������h ������-��.�,�3��#��45���6��������g��port ��g��filenamef��sxml/ssax/input-parse.scm l  l ,  m �  ��g��nameg��read-text-line�CRRHLb������hp�����]4M5��$��"��MM�$��K4L5�M�$���C4�5$��C4M5$��N�4M�5$��C�CM�$��C�CC ������g��t �g��c * n��g��filenamef��sxml/ssax/input-parse.scm |   | ! |  |   }  # |  $ ~ ! * ~  2   6 � ! @   C � ! M   P � ! Q � % [ � ! e � ! i  �  p ��g��nameg�� my-peek-char�CGjk[����hp����-�1�3� HJ(��"��JKHHO�"��G45�$��8K4>��"��G��JK44� 55$�� "�� "C"��b4�5$��JC45�$��B44�55$��#K4>��"��G��JK" "��C"��c $��"<"��E $��"r44� 54� 55$��   ""  "Q� KK"�������~������g��str i�g�� <input-port> i�g�� max-no-char  i�g�� no-chars-read   i�g��peeked?   i�g��c  7 y�g�� pos-to-match  } ��g��c  � ��g��i  � F�g��matched-substr-len  � F�g��j  � F�g��k � ?�g�� my-peek-char  F i�g�� no-chars-read  S e�g��peeked?  S e��g��filenamef��sxml/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  ��g��nameg��find-string-from-port?g�� documentationf��dLooks for @var{str} in @var{<input-port>}, optionally within the first @var{max-no-char} characters.�CRC�����������g��m  ,�g��buffer ] ��g��filenamef��sxml/ssax/input-parse.scm  6 3 B : C ? D D E K F R G  V g��filenamef��sxml/upstream/input-parse.scm i , C ; Q S k T �  ] �  �  �  �  �  ( :  (   (  *  < g��filenamef��sxml/ssax/input-parse.scm  ] l (I t �  (K ���C6����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������sxml/apply-templates.go�����������������������������������������������������������������������������0000644�����������������00000004526�15253700563�0011214 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0> ������]�"�4����h������]� g��guile � g��define-module* � � g��sxml g��apply-templates � g��filenameS f��sxml/apply-templates.scm g��importsS g��ssax  �  � g��xpath � g��hideS g��filter � � � g��exportsS � g��set-current-module � � g�� node-typeof? g�� procedure? g��error f��ambiguous template match g��nodeset? g�� map-union !g��appendC�5���h��d���]4   5�4�>��"��G��������hP���*��](��C$��/445�5$��4L��5C��"��"�"������g��node  O�g�� templates  O��g��filenamef��sxml/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 ��g��nameg��filter-templates�C����hH������]�$��;4�5$��&4L��5$��4>��"��G��"����C��"C���������g�� templates  F��g��filenamef��sxml/apply-templates.scm K   L L  N  N   N  M  O   O   O  ! O " P  & P  + P  : Q > R  D R �  F ��g��nameg�� find-handler�C �����h���h���]L�L�6������`�������g��a-tree  ��g��filenamef��sxml/apply-templates.scm W  W $�  ���C!���h`���@��]4�5$��LO��644L�54L�L554L�5$���6�$�� ��"C8������g��tree  `�g��active-templates  `�g��still-active-templates  3 `�g��t  < `��g��filenamef��sxml/apply-templates.scm T   V  V   W   Y  Z  ) [  3 Y  3 X  6 ^ < \ J _  M `  Q \ T b  ^ b _ ` �  ` ��g��nameg��loop�C�����h@������]O�O�Q�Q�O�Q��6��������������g��tree  9�g�� templates  9�g��filter-templates   9�g�� find-handler   9�g��loop  ' 9��g��filenamef��sxml/apply-templates.scm 8 ' T  7 T + 9 T �  9 ��g��nameg��apply-templates�CRC�\�������g��m  ,��g��filenamef��sxml/apply-templates.scm  2  8 �   ���C6���������������������������������������������������������������������������������������������������������������������������������������������������������������������������sxml/transform.go�����������������������������������������������������������������������������������0000644�����������������00000015604�15253700563�0010105 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0l������]�;�4���h������]� g��guile � g��define-module* � � g��sxml g�� transform � g��filenameS f��sxml/transform.scm g��exportsS g��SRV:send-reply g��foldts g�� post-order g��pre-post-order g�� replace-range   � g��set-current-module � � g��make-syntax-transformer � � g�� let*-values g��macro g�� $sc-dispatch � � g��_ g��any  g�� syntax->datum ! � " � #g�� datum->syntax $#� %#� &g��begin 'g��let (g��call-with-values )g��lambda *g��syntax-violation +*� ,*� -f��-source expression failed to match any pattern .g�� procedure? /g��display 0g��assq 1g�� *default* 2g��*text* 3g�� *preorder* 4g��*macro* 5g��append 6g��map 7g��error 8f��Unknown binding for  9f�� and no default :g��reverseC�5��h�����]4   5�4�>��"��G���4"%&'()��������hX������] L�L�$��1�(������C����C����C��������g��vars  W�g�� initializer  W�g��cont  W��g��filenamef��sxml/transform.scm V   X   Y  Y  X  W  [   Z  ]   Z  ^ ^  % ^ 0 ` G \ �  W ���C��h(������-�1�3��(��C�O��@������������g��bindings #�g��body #��g��filenamef��sxml/transform.scm S  T   T   T  ! b  # U � # ���C�������h���f���] 4�5L�4?6^�������g��args  �g��v ��g��filenamef��sxml/transform.scm  S �   ���C,-���h(���d���] 4�5$�� �O�@�6�\�������g��y  '�g��tmp '��g��filenamef��sxml/transform.scm S �  ' ���C5R./������h�����]�(��C�$���(�� ��"�&�� ��"�$���4L��5�"4�5$��4�>���"��G����"4�>��"��G����"c��"V����������g�� fragments  ��g��result  ���g��filenamef��sxml/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 �%  � ��g��nameg��loop�C��������h �����-��1��3�O�Q��6���������g�� fragments �g��loop  ��g��filenamef��sxml/transform.scm d  n �  ��g��nameg��SRV: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�$���$���4L�5$��"��L$��_$��F&���@&��4�?�"4�4L�55@4L�5@ 6L�6L$��L �6  6�����������g��tree  ��g��trigger  ��g��t  ' :�g��binding  : ���g��filenamef��sxml/transform.scm �   �  �  �   �   �   �   �   �   �  �  ' �  : � B � E �  F �  J � L �  O � T � W �  \ �  ^ �  a �  f � g �  j �  o �  u �  x �  | �  � � " � � - � � 5 � � - � �  � �  � �  � � - � � 7 � � - � �  � �  � � 6 � �  � � $ � � � �  � �  � �  � �  � � 4 � � �6  � ��g��nameg��loop�C�����hp�����]"4545$��"��$��45$��"��"��O�Q��6�����������g��tree  k�g��bindings  k�g��default-binding  k�g��t   )�g�� text-binding  ) k�g�� text-handler  M k�g��loop  Z k��g��filenamef��sxml/transform.scm �  �   � �  �   �   � !  �   �  ) �  1 � 2 �  7 �  9 �  = � @ �  G � $ M �  Z � �  k ��g��nameg��pre-post-order�CRiR ���h`���l��](��C$��C"��+(�� 64�5"4�5"6���d������g��fdown  ]�g��fup  ]�g��fhere   ]�g��seed   ]�g��tree   ]�g��kid-seed   A�g��kids   A��g��filenamef��sxml/transform.scm �  �   �  �   �   �  & � ' �  4 � 1 6 �  9 �  A � A �  B �  M � 2 U �  ] � �  ] ��g��nameg��foldts�C R:5��������hP����]+�(�� 45D�$��4L�5$���4455�"$��K4L$��"��>�� G��$�� "���"g��"S4L5$��4�5�"-$��c4L$��"��>�� G��$��"��$��$�� "��"���"��"~������g��forest  P�g��keep?  P�g�� new-forest   P�g��node   P�g��t  % ��g��node?  T ��g��new-kids  p ��g��keep?  p ��g��t  � P�g��node?  � ?�g��new-kids  � ?�g��keep?  � ?�� g��filenamef��sxml/transform.scm �   �  �   �   �   �   �    % �  0   2   5  ?   I   L   P �  S  $ T   T   W   _   b  # j  7 o   z   �   �  ( �  " �   �   �   �  ) �   �   �   �   �  . �   �   �   �   �  $ �   �   �   �   �  # �  7 �           %       #  , &  & /   ?   B   P  �=  P ��g��nameg��loop�C�������h0�����]O��Q�4>�� G�C�����������g��beg-pred  ,�g��end-pred  ,�g��forest   ,�g��loop  ,�g�� new-forest  " ,�g��keep?  " ,��g��filenamef��sxml/transform.scm �  % $  % 4 ! % $ % % �  , ��g��nameg�� replace-range�CRC��z�������g��m  (��g��filenamef��sxml/transform.scm  H  d  �  �  �  � �   ���C6�����������������������������������������������������������������������������������������������������������������������������sxml/fold.go����������������������������������������������������������������������������������������0000644�����������������00000022763�15253700563�0007022 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0%������]�-�4�h������]� g��guile � g��define-module* � � g��sxml g��fold � g��filenameS f�� sxml/fold.scm g��importsS g��srfi g��srfi-1   � � � g��exportsS g��foldt g��foldts g��foldts* g�� fold-values g��foldts*-values g�� fold-layout � g��set-current-module � � g��atom? g��map g��apply g��append g��assq !g��assq-ref "g��error #f��no binding available $g��@ %g��macro &g��pre 'g��reverse (g��bindings )g�� pre-layout *g��post +g�� *default* ,g��*text*C�5���hp"�����]4   5�4�>��"��G�����h���q���]�C�i�������g��x  ��g��filenamef�� sxml/fold.scm &  '   ' �   ��g��nameg��atom?�CR�h���Z���]LL��6����R�������g��kid  ��g��filenamef�� sxml/fold.scm 0  1 �  ���C���h(���0��]45$��6�4�O�56�(������g��fup  '�g��fhere  '�g��tree   '��g��filenamef�� sxml/fold.scm )  .  .   /   0 ' 0 �  ' ��g��nameg��foldtg�� documentationf��jThe standard multithreaded tree fold. @var{fup} is of type [a] -> a. @var{fhere} is of type object -> a. �CR��h���m���]LLL��6e�������g��kid  �g��kseed  ��g��filenamef�� sxml/fold.scm :   ; �   ���C��������h8���j��]45$��64�O�4�556b������g��fdown  8�g��fup  8�g��fhere   8�g��seed   8�g��tree   8��g��filenamef�� sxml/fold.scm 4  7  7   8   : ( <  4 : 8 9 �  8 ��g��nameg��foldtsg�� documentationf��nThe single-threaded tree fold originally defined in SSAX. @xref{sxml ssax,,(sxml ssax)}, for more information.�CR��������h���m���]LLL��6e�������g��kid  �g��kseed  ��g��filenamef�� sxml/fold.scm J   K �   ���C��������hH�����]45$��64�>�� G�4�O�56���������g��fdown  E�g��fup  E�g��fhere   E�g��seed   E�g��tree   E�g��kseed  " E�g��tree  " E��g��filenamef�� sxml/fold.scm @  D  D   E   G  % F  . J  E I �  E ��g��nameg��foldts*g�� documentationf��A 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}.�CR�h8�����-�1�3�(��E4�>�� G�@�����������g��proc 3�g��list 3�g��seeds  3�g��seeds  # 3��g��filenamef�� sxml/fold.scm Q  U   V   X   X ! " X  & W  / Z " 3 Z � 3  ��g��nameg�� fold-valuesg�� documentationf��A 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}.�CR��h���o���-�1�3�LLL��@�g�������g��tree �g��seeds ��g��filenamef�� sxml/fold.scm h   i �  ���C����h`�����-�1�3�45$��@4�>�� G4�O�>�� G45@������g��fdown `�g��fup `�g��fhere  `�g��tree  `�g��seeds  `�g��tree  + `�g��kseeds  + `�g��kseeds  L `��g��filenamef�� sxml/fold.scm \ `   `   a   c  . b  3 g  O e V m  ` m � `  ��g��nameg��foldts*-valuesg�� documentationf��A 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 ������] 4�5$��CC�������������g��alist  �g��key  �g��default   �g��t  ��g��filenamef�� sxml/fold.scm o  p p �   ��g��nameg��assq-ref�C!R"#�������h���x���-��1��3��6�������p�������g��args ��g��filenamef�� sxml/fold.scm �  �  � �  ��g��nameg��err�C�����h������-��1��3�LL��@������z�������g��args ��g��filenamef�� sxml/fold.scm �   � )  � �  ��g��nameg�� cont-with-tag�C!$%&'������h������]45D����������g��params  �g��layout  �g�� old-layout   �g��kids   ��g��filenamef�� sxml/fold.scm �   �  � �  ���C()����h���{���]C���s�������g��tag  �g��params  �g��layout   ��g��filenamef�� sxml/fold.scm � �   ���C*+� �����h`��b��]>"��O� �Q� $�� 45"��4L��5  �(��   D"���   D�$��/�&�� 4� 5 �   D""4�5$��45$��!4�?�"45$��4�?D4544  5�54 4 L55"4 L5"�Z������g��tree  _�g��bindings  _�g��pcont   _�g��params   _�g��layout   _�g��ret   _�g�� new-bindings   ��g�� new-layout   ��g��cont   ��g�� cont-with-tag  ��g��bindings 6 ��g�� style-params 6 ��g��params � ��g�� tag-bindings  � _�g��t  � G�g��t  � G��g��filenamef�� 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  _ ��g��nameg��fdown�C'������h8�����,� 3� 4 4 5>�� G�    D������������g��tree  2�g��bindings  2�g��cont   2�g��params   2�g��layout   2�g��ret   2�g�� kbindings   2�g��kcont   2�g��kparams   2�g��klayout  2�g��kret  2�g��klayout  2�g��kret  2�� g��filenamef�� sxml/fold.scm �   �  � (  �  �  0 � - 2 � �  2 ��g��nameg��fup�C!,��������h0���6��]44L�5�>�� G�D.������g��tree  0�g��bindings  0�g��cont   0�g��params   0�g��layout   0�g��ret   0�g��tlayout   0�g��tret   0��g��filenamef�� sxml/fold.scm �   �  � �   �  �  �  . � - 0 � �  0 ��g��nameg��fhere�C�������hP�����]=O�Q�4O���> �� G�     D��������g��tree  N�g��bindings  N�g��params   N�g��layout   N�g�� stylesheet   N�g��err   N�g��fdown   N�g��bindings  : N�g��cont  : N�g��params : N�g��layout : N�g��ret : N�� g��filenamef�� sxml/fold.scm s  �  1 � 7 4 � C 9 �  = �  J �  N � �  N ��g��nameg�� 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>...) binding := (<tag> <bandler-pair>...) | (*default* . <post-handler>) | (*text* . <text-handler>) tag := <symbol> handler-pair := (pre-layout . <pre-layout-handler>) | (post . <post-handler>) | (bindings . <bindings>) | (pre . <pre-handler>) | (macro . <macro-handler>) @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 �CRC�������g��m  ,��g��filenamef�� sxml/fold.scm   � &  )  4  @ Q \ o "n s �  "p ���C6��������������sxml/xpath.go���������������������������������������������������������������������������������������0000644�����������������00000025456�15253700563�0007224 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0+������]�@�4������h������]� g��guile � g��define-module* � � g��sxml g��xpath � g��filenameS f��sxml/xpath.scm g��importsS g��ice-9 g�� pretty-print   � � � g��exportsS g��nodeset? g�� node-typeof? g��node-eq? g�� node-equal? g��node-pos g��filter 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 !g��node-or "g�� node-closure #g�� node-parent $g��sxpath % !"#$� &g��set-current-module '&� (&� )g��* *g��memq +g��@ ,g��*PI* -+,� .g��*any* /g��*text* 0g��string? 1g��length 2g��error 3f��yikes! 4g��reverse 5g��append 6g��cons 7g��display 8f�� --> 9f�� : :g�� procedure? ;g��// <g��equal? =g��eq? >g��number? ?f��Invalid path step: C�5��h%�����]4   %5�4(�>��"��G�����h(������] �$�� �"��$��C�C�������������g��x  "�g��t  "��g��filenamef��sxml/xpath.scm o  p p  p # p   p   p  ! p .�  " ��g��nameg��nodeset?�CR)*-./0�hP������]L�$���$�� 4�5CCL�$��CL�$���6�$��L��CC�������������g��node  J��g��filenamef��sxml/xpath.scm �  �   �   �  � "  � (  � "  �  ) �  : �  = � A �  F � # G � �  J ���C���h���m���]�O�C������e�������g��crit  ��g��filenamef��sxml/xpath.scm � �  ��g��nameg�� node-typeof?�CR�����h���^���]L��CV�������g��node  ��g��filenamef��sxml/xpath.scm �   � �   ���C�������h���j���]�O�C������b�������g��other  ��g��filenamef��sxml/xpath.scm � �  ��g��nameg��node-eq?�CRh���^���]L��CV�������g��node  ��g��filenamef��sxml/xpath.scm �   � �   ���C�������h���m���]�O�C������e�������g��other  ��g��filenamef��sxml/xpath.scm � �  ��g��nameg�� node-equal?�CR123�hx���5��] 4�5$��e�(���C L�&����CL� $��4L�4�55�6L� $��"��4>��"��G��4L�5�6C����-������g��nodeset  t�g��t D e��g��filenamef��sxml/xpath.scm �   � �  �  # �  ' �  , �  - �  2 �  3 � & : �  < �  @ �  C � D �  Q �  U �  Z �  f �  k �  m �  p �  r �  s � �  t ���C��������h���f���]�O�C������^�������g��n  ��g��filenamef��sxml/xpath.scm � �  ��g��nameg��node-pos�CR4������hh���9��]"��?(��64L�5$��(��"��"��"4�5$���"����"����1������g��lst  d�g��lst  E�g��res   E�g�� pred-result   E��g��filenamef��sxml/xpath.scm �   �  �   �  �   � $  �   �  �  % �  + �  4 �  7 �  E � E �  F �  P �  [ � + \ � = d � �  d ���C����h���h���]�O�C������`�������g��pred?  ��g��filenamef��sxml/xpath.scm � �  ��g��nameg��filter�CR�h@������] �(���C4L�5"�� �4L��5C$�� (��"C"�����������g��lst  <�g�� pred-result  <��g��filenamef��sxml/xpath.scm �   �  �   � $  �   �  �   � " � & $ � % �  & � 2 �  7 � �  < ��g��nameg��loop�C�h0������] O�L�Q�4�5$���"����6�����������g��lst  ,�g��loop ,��g��filenamef��sxml/xpath.scm �  �   �   �  * � + , � �  , ���C���h���l���]�O�C������d�������g��pred?  ��g��filenamef��sxml/xpath.scm � �  ��g��nameg�� take-until�CR��h`��� ��]"��8(��C4L�5"�� "$��(��"C"4�5$���"����"������������g��lst  Z�g��lst  >�g�� pred-result   >��g��filenamef��sxml/xpath.scm �   �  �   �   � $  �   � �  & �  & � 2 �  9 �  > �  ? �  I �  T � + Z � �  Z ���C��������h���l���]�O�C������d�������g��pred?  ��g��filenamef��sxml/xpath.scm � �  ��g��nameg�� take-after�CR56�����h8������] (��C4�545$��"��4�56���������g��proc  6�g��lst  6�g��proc-res   6��g��filenamef��sxml/xpath.scm �  �  �   �   �   �   � � + �  2 � " 4 �  6 � �  6 ��g��nameg�� map-union�CR4�h ������]4�5$���6��C��������������g��node-or-nodeset  ��g��filenamef��sxml/xpath.scm            )�   ��g��nameg�� node-reverse�CR789 ���hP������]4>��"��G��4L�>��"��G��4>��"��G��4�>��"��G���C����������g��node-or-nodeset  M��g��filenamef��sxml/xpath.scm             '   +  0   9  �  M ���C�����h���l���]�O�C������d�������g��title  ��g��filenamef��sxml/xpath.scm  �  ��g��nameg�� node-trace�CR������h8������]�(���C�$��!�$�� 4L�5�64L�5�6C����������g��node  5��g��filenamef��sxml/xpath.scm 3   4   6  4   7   7   4   8  $ 8  & 8  ) 9  3 9 4 6 �  5 ���C����h���r���]�O�C������j�������g�� test-pred?  ��g��filenamef��sxml/xpath.scm 2 �  ��g��nameg�� select-kids�CRiR���hH������]"��5(��C45$��45"��45"�L�"��������g��nodeset  G�g��nodeset  ;�g�� selectors   ;��g��filenamef��sxml/xpath.scm I   J  K   M   M  N  N  $ N  ) O  , O  0 O  3 P ; L ; J �  G ���C�����h���q���-��1��3��O�C�������i�������g�� selectors ��g��filenamef��sxml/xpath.scm H �  ��g��nameg�� node-join�CR�h0������]"��(��C45"�L�"���������g��nodeset  .�g��nodeset  "�g�� converters   "��g��filenamef��sxml/xpath.scm ]   ^  _   `   `   `   ` + " ` " ^ �  . ���C�h���t���-��1��3��O�C�������l�������g�� converters ��g��filenamef��sxml/xpath.scm \ �  ��g��nameg�� node-reduce�C R5��hH�����]"��5(��C44�5$��"��5"L�"��������g��node-or-nodeset  F�g��result  ;�g�� converters   ;�g��t   .��g��filenamef��sxml/xpath.scm p   q  r   s   s #  s $  s #  s  + s F 0 s  3 t  ; s ; q  < q  F q �  F ���C�����h���p���-��1��3��O�C�������h�������g�� converters ��g��filenamef��sxml/xpath.scm o �  ��g��nameg��node-or�C!R)5��������hH�����]"��5(��C444555444L�555"�"��������g��node  F�g��parent  ;�g��result   ;��g��filenamef��sxml/xpath.scm                   ,         !   &   '   1   3   ;  ;   >  % F  �  F ���C�������h���s���]�O�C������k�������g�� test-pred?  ��g��filenamef��sxml/xpath.scm  �  ��g��nameg�� node-closure�C"R#! )+"���hx�����] 4�5$�� 4L�5�64444554 4 �5554 4 4 554 4 �55554454 55L�6������~������g��node  r�g��pred Y r��g��filenamef��sxml/xpath.scm          #          !   $   (  * *   ,   -   0   8   :   ;   >   A   E  , G   I   J   M   U   W   Y   Y   \  _  f  n  r  �"  r ���C�������h���p���]�O�C������h�������g��rootnode  ��g��filenamef��sxml/xpath.scm  �  ��g��nameg�� node-parent�C#R$:;56".<=>2?�������h����](���C4�5$�� 45�645$��4�5�"&��444�5$��"���444  55�55�"$��44 4 55�5�"^$�� &��44 4 ?5�5�".&��44 4?5�5�""��T(�� �"45$��4455"444555"$��44 4 55�5"�� 4L��5"u6����������g��nodeset  �g��path  �g��nodeset  � T�g�� reducing-path  � T��g��filenamef��sxml/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   ��g��nameg��loop�C�h���r���] O�Q��L�6�j�������g��nodeset  �g��loop ��g��filenamef��sxml/xpath.scm    �   ���C���h���g���]�O�C������_�������g��path  ��g��filenamef��sxml/xpath.scm  �  ��g��nameg��sxpath�C$RC�����������g��m  ,��g��filenamef��sxml/xpath.scm  d  o  �  �  � ) � k �  �  � _ � 0    u 2 | A l H  \  o 6    %  �  % ���C6�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������sxml/match.go���������������������������������������������������������������������������������������0000644�����������������00000277563�15253700563�0007204 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0[�����]�4�����hx������]� g��guile � g��define-module* � � g��sxml g��match � g��filenameS f��sxml/match.scm g��importsS g��srfi g��srfi-1   � � g��srfi-11  � � g��ice-9 g��control � � � g��exportsS g�� sxml-match g��sxml-match-let g��sxml-match-let* � g��set-current-module � � g��make-syntax-transformer ! � " � #g��syntax-object->datum $g��macro %g�� $sc-dispatch &%� '%� (g��any )((� *g�� syntax-object +g�� syntax->datum ,g��top -,� .g��ribcage /g��dummy 0g��stx 1/0� 2g�� m-cd60791-1 32,� 43-� 5f�� l-cd60791-6 6f�� l-cd60791-7 756� 8.147� 9.� :g��x ;:� <3� =f�� l-cd60791-3 >=� ?.;<>� @-89?� Ag��hygiene BA� C*+@B� Dg��syntax-violation ED� FD� Gf��-source expression failed to match any pattern Hg��void 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� Wg��throw Xg��sxml-match-error Yg��raise-syntax-error Zg��module [g��free-id \g��provide ]g�� m-cd60791-1a ^],� _^� `f�� l-cd60791-1c a`� b.;_a� c-9b� d*\cB� e[d� fg��each-any gef hg��require i*hcB� j[i� kjf lkf mgl n(m o(n p(o qg��begin rg��name sg��lang tg��p_ ug��r_ vg��body 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� �g��nodeset? �g��error �g��xml-element-tag �f��expected an xml-element, given �g��xml-element-attributes �g�� fold-right �g��@ �g��filter �g��xml-element-contents �g��match-xml-attribute �g��member �g��filter-attributes �g��compile-clause �g��map �f(� �g�� let-values �g�� cata-binding �g��body-stx �� �--� �f�� l-cd60791-b1 �f�� l-cd60791-b2 �� �.� �g�� cata-defs �v� �f�� l-cd60791-ac �f�� l-cd60791-ad �� �.� �g��sxml-match-syntax-error �g�� ellipsis? �g��literal? �g��keyword? �g��extract-cata-fun �g�� add-pat-var �g�� add-cata-def �g��process-cata-exp �g��process-cata-defs �g��cata-defs->pvar-lst �g��process-output-action �g��compile-element-pat �g��compile-end-element �g��compile-attr-list �g��compile-item-list �g��compile-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��... �g��quote �g��lst �� �f�� l-cd60791-fe �� �.� �g��process-quasiquote �g��expand-quasiquote-body �g��expand-dotted-item �g��select-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 ��  �.� �g��action �g�� dotted-vars �� �f�� l-cd60791-ce �f�� l-cd60791-cf �� �.� �-99� �*B� �� �g��cons �g��exp-lft �g��exp-rgt �� �f�� l-cd60791-122 �f�� l-cd60791-123 �� �.� �g��fst g��rst �� f�� l-cd60791-11b f�� l-cd60791-11c � .� -999�  *B�  g��append  f�� l-cd60791-116  f�� l-cd60791-117    �  . � g��dots �� ---� f�� l-cd60791-10d f�� l-cd60791-10e f�� l-cd60791-10f � .� -9 99�  * B� g��bound-identifier=? g��free-identifier=? g��unquote g��y � f�� l-cd60791-13d � .�  g��walk-quasi-body ! � "-� #f�� l-cd60791-13a $#� %.!"$� &f�� l-cd60791-139 '&� (.;'� )-9%(9�  **)B� +[*� ,+(� -,( .g��unquote-splicing /*.)B� 0[/� 10(� 21( 3-%(9� 4*3B� 5[4� 65( 7g�� quasiquote 8*73B� 9[8� :9( ;g��dv <;� =f�� l-cd60791-174 >=� ?.<>� @f�� l-cd60791-16f A@� B.;A� Cg��dvars DC� Ef�� l-cd60791-167 FE� G.DF� Hg��item IH� Jf�� l-cd60791-166 KJ� L.IK� M-9?B9G9L9�  N*MB� Og��lambda 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� f��bad quasiquote-form g��s � f�� l-cd60791-5b � .� g��msg g��exp g��sub � f�� l-cd60791-56 f�� l-cd60791-57 f�� l-cd60791-58 � .� -999� *B� -9� *B� [� ( *7B� [� ( g��apply f�� l-cd60791-1e6 f�� l-cd60791-1e7 � .� f�� l-cd60791-1d8 f�� l-cd60791-1d9 � .� -99�  *B� g��ele g��nextp g��fail-k g��pvar-lst g��depth g��cata-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� [� ( ( (ƌ g��generate-temporaries ((((� g��if g��bx g��fail-to :v� ----� f�� l-cd60791-23d f�� l-cd60791-23e f�� l-cd60791-23f f�� l-cd60791-240 � .� g��tests g�� new-pvar-lst g�� new-cata-defs g��new-dotted-vars � f�� l-cd60791-236 f�� l-cd60791-237 f�� l-cd60791-238 f�� l-cd60791-239 � .� g��body-exp � f�� l-cd60791-22f � .� g��tag g��items � f�� l-cd60791-22b f�� l-cd60791-22c � .� -999999� *B� g��and *B� g��pair? *B� g��eq? *B� *B� *B� g��let *B� *B� (((((� g��ax :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 �  .�  g��attr-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� !g��attr-lst "g��body-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)( Qg��string? Rg��char? Sg��number? Tg��boolean? 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.`� bg��atag cg��literal dbc� ef�� l-cd60791-39f ff�� l-cd60791-3a0 gf�� l-cd60791-3a1 hefg� i.dh� j-9[9ai939�  k*jB� lg��binding m*ljB� n*jB� o*jB� p*jB� qg��equal? r*qjB� sg��cadr t*sjB� utm� vg��kwd wg��i xbw� yf�� l-cd60791-390 zf�� l-cd60791-391 {f�� l-cd60791-392 |yz{� }.x|� ~-}939� *v~B� f��bad 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 � .� g��var b� f�� l-cd60791-361 f�� l-cd60791-362 f�� l-cd60791-363 � .� -99939�  *B� *lB� *B� *B� *B� *sB� � � f��<sxml-match pattern: catamorphism not allowed in this context g��ct v� f�� l-cd60791-350 f�� l-cd60791-351 f�� l-cd60791-352 f�� l-cd60791-353 � .� f�� l-cd60791-349 f�� l-cd60791-34a f�� l-cd60791-34b f�� l-cd60791-34c � .� g��ctemp � f�� l-cd60791-33f � .� g��cvar b� f�� l-cd60791-339 f�� l-cd60791-33a f�� l-cd60791-33b � .� -999939�  *B� *lB� *B� *B� *B� *sB� � � f�� l-cd60791-32a f�� l-cd60791-32b f�� l-cd60791-32c f�� l-cd60791-32d � .� f�� l-cd60791-323 f�� l-cd60791-324 f�� l-cd60791-325 f�� l-cd60791-326 � .� f�� l-cd60791-31a � .� g��cata b� f�� l-cd60791-312 f�� l-cd60791-313 f�� l-cd60791-314 f�� l-cd60791-315 � .� -9999939� *B� *lB� *B� *B� *B� *sB� � � v� f�� l-cd60791-305 f�� l-cd60791-306 � .� f�� l-cd60791-2fe f�� l-cd60791-2ff f�� l-cd60791-300 f�� l-cd60791-301 � .� g��default b� f�� l-cd60791-2f1 f�� l-cd60791-2f2 f�� l-cd60791-2f3 f�� l-cd60791-2f4 � .� -99939�  *B� *lB� *B� *B� *B� �*sB� �� v� f�� l-cd60791-2e0 f�� l-cd60791-2e1 f�� l-cd60791-2e2 � .� f�� l-cd60791-2d9  f�� l-cd60791-2da  f�� l-cd60791-2db  f�� l-cd60791-2dc     �  . � f�� l-cd60791-2cf � .� b� f�� l-cd60791-2c7 f�� l-cd60791-2c8 f�� l-cd60791-2c9 f�� l-cd60791-2ca � .� -99 9939�  *B� *lB� *B� *B� *B� *sB� �  f�� l-cd60791-2b8 !f�� l-cd60791-2b9 "f�� l-cd60791-2ba # !"� $.#� %f�� l-cd60791-2b1 &f�� l-cd60791-2b2 'f�� l-cd60791-2b3 (f�� l-cd60791-2b4 )%&'(� *.)� +f�� l-cd60791-2a8 ,+� -.,� .b� /f�� l-cd60791-29e 0f�� l-cd60791-29f 1f�� l-cd60791-2a0 2f�� l-cd60791-2a1 3f�� l-cd60791-2a2 4/0123� 5..4� 6-9$9*99-5939� 7*6B� 8*l6B� 9*6B� :*6B� ;*6B� <*s6B� =<8� >g�� 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� mg��null? n*mkB� og��ellipsis-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� f��1improper 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� g��tail 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� g��values g��npv � f�� l-cd60791-458 � .� � f�� l-cd60791-452 f�� l-cd60791-453 f�� l-cd60791-454 � .� -999999�  *B� *B� g��fail *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 � .� g��new-exp � f�� l-cd60791-467 f�� l-cd60791-468 f�� l-cd60791-469 f�� l-cd60791-46a � .� -9999999� *B� *B� g��cdr *B� *B� � *B� w� f�� l-cd60791-4bf � .� g��temp-item-pvar-lst � f�� l-cd60791-492 �� .�� g�� final-tests g��final-pvar-lst g��final-cata-defs g��final-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 g��item-cata-defs g��item-dotted-vars g�� tail-tests g�� tail-pvar-lst g��tail-cata-defs g��tail-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� ;g��xa <g��xb =;<� >f�� l-cd60791-4cb ?f�� l-cd60791-4cc @>?� A.=@� Bg��a Cg��b DBC� Ef�� l-cd60791-4c6 Ff�� l-cd60791-4c7 GEF� H.DG� I-9A99H99 99 9+9999� J*IB� K(((((fffffff�  Lg��letrec Mg�� tail-body Ng�� item-body Og�� final-body Pg��ipv Qg��gpv Rg��tpv 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� wg��tail-res x*wfB� y*fB� z � { � |g��res }*|fB� ~g��new-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 ( � g��nx :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� g��car *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) f��7bad 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  g��more-cata-defs !g��more-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 1g��after-pvar-lst 2g��after-cata-defs 3g��after-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 Wg��nct 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� cg��cfun 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(� ug��guard v*uqB� w[v� xwf yx挤 zty {(z(((� |*8qB� }[|� ~}f (~ s� y ((((� g��gexp g��action0 g��fail-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 ((((� g��atom � � 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� g��failure  -99�  * B�  v�  f�� l-cd60791-72a  f�� l-cd60791-72b   � . � g��result � 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 <f�� l-cd60791-6ee =9:;<� >.=� ?-9899>*9p99�  @*?B� Ag��list 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� ug��exp-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 g��clause /� 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� � f��no matching clause found *B� � � � (֌ (Č g��let/ec g��clause0 /� ----� f�� l-cd60791-7dd f�� l-cd60791-7de f�� l-cd60791-7df f�� l-cd60791-7e0 f�� l-cd60791-7e1 � .� -9� *B� g��escape *B� *B� *OB� g��call-with-values *B� *B� � g��val /� 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� g��sxml-match-let1 挤 ( ( ( g��syntag g��synform g��body0 /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�  )�   挤  (   (  (  g��pat /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� "f��could not match pattern ~s #*"B� $g��each %$)� &)% '&挤 ((' )(( *() +g��pat0 ,g��exp0 -/+,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� Dg��sxml-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� *DB�C�5���hx�����]4   5�4�>��"��G���4"#$')C��h���>���]�C������6�������g��dummy  �g��stx  ��  ���CFG���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��sxml/match.scm + �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��stx���C5#R4"H$'IV�h���-���]C���%�������g��dummy  ��   ���CFG����h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��sxml/match.scm . �  " ��g�� macro-typeg�� syntax-rulesg��patterns��C5HRWX����h������]�6�������g��x  �g��msg  �g��obj   �g��sub   ��g��filenamef��sxml/match.scm 1  2  2 �   ��g��nameg��raise-syntax-error�CYR4"Z$'p�h������]C{�������g��dummy  �g��name  �g��lang   �g��p_   �g��r_   �g��body   ��   ���CFG������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��sxml/match.scm 5 �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��nameg��langg��provideg��p_g��...�g��requireg��r_g��...�g��bodyg��...���C5ZR��h(������] �$�� �"��$��C�C�������������g��x  "�g��t  "��g��filenamef��sxml/sxml-match.ss        %         !  0�  " ��g��nameg��nodeset?�CR���h0������]"�� �6�$���$���C""������������g��s  +��g��filenamef��sxml/sxml-match.ss                         "  �  + ��g��nameg��xml-element-tag�CR��������h������]�$�� �"��C��}�������g��i  ��g��filenamef��sxml/sxml-match.ss  &   <  7  K   N   F   2�   ���C���h(������]"���C�$���&��C""��������g��c  '�g��d  '��g��filenamef��sxml/sxml-match.ss  * ! 0  ,   5   ,   D   G   0�  ' ���C�h8������]�$��&�&��(�� �6�6CC�������������g��a  2�g��b  2��g��filenamef��sxml/sxml-match.ss         .   1         Z !   * " , ,  �  2 ���C�h8������]"�� �6�$���$�� �6""��������������g��s  1��g��filenamef��sxml/sxml-match.ss   &  & '  &                  $ $  ' %  )  �  1 ��g��nameg��xml-element-attributes�CR������h������]�$�� �"��C��}�������g��i  ��g��filenamef��sxml/sxml-match.ss *   +  +  + +  + .  + &  + �   ���C��������h0������]"�� �6�$���$�� �6""�������g��s  0��g��filenamef��sxml/sxml-match.ss (  -  - %  -   )   )  )   )  )   )  & ,  ( * �  0 ��g��nameg��xml-element-contents�CR�h(������]$���&��C�6C�������������g��key  "�g��l  "��g��filenamef��sxml/sxml-match.ss /   0 0  2  2   2   3  4 % 4 �  " ��g��nameg��match-xml-attribute�CR�������h8������](��C4�5$�� �64�5C��������������g��keys  1�g��lst  1��g��filenamef��sxml/sxml-match.ss 6   7  8  9  9   9  9  : $ " : % ;  & ;  - ; 4 / ;  0 ; �  1 ��g��nameg��filter-attributes�CR4"$')����h���>���]��C������6�������g��bvar  �g��bval  ��  ���CFG���h@������]�4L����5�45$��@6���������g��def  >�g��tmp  >�g��tmp  ' >��g��filenamef��sxml/sxml-match.ss v &  w <  x < x N  y N  z N  x <  w (�  > ���C'������h���J���]��C����B�������g�� cata-binding  �g��body-stx  ��  ���CFG�������h@������]�(��C4L�O��5�45$��@6�������g�� cata-defs  @�g��body  @�g��tmp   @�g��tmp  ) @��g��filenamef��sxml/sxml-match.ss r  s  v !  u �  @ ��g��nameg��process-cata-defs�C�h���Z���]�6R�������g��item  ��g��filenamef��sxml/sxml-match.ss  � �   ���C����h���,���]C����$�������g��item  ��   ���C'h������]�C�����������   ���C�h���j���]L�6b�������g��fst  �g��rst  ��g��filenamef��sxml/sxml-match.ss  � �   ���CFG+��������h ������]45$�� 45CC�������������g��fst  �g��dots  �g��rst   ��g��filenamef��sxml/sxml-match.ss  E  E   E *  E /  E %�   ���C���h���N���]C����F�������g��fst  �g��dots  �g��rst   ��   ���C� ������h������]!��4?$��@4�5$��@4�5"��%4�5$�� L�O�@ �6$��4 ?$�� @""������������g��lst  ��g��tmp  ��g��tmp  " ��g��tmp  9 ��g��tmp  H d��g��filenamef��sxml/sxml-match.ss � �  � ��g��nameg�� finite-lst?�C'�������h������]�C����������   ���C�h���Z���]�6R�������g��item  ��g��filenamef��sxml/sxml-match.ss  � �   ���C����h���,���]�C���$�������g��item  ��   ���C')����h���D���]��C����<�������g��exp-lft  �g��exp-rgt  ��  ���CFG�����h8������]4L��L54L5�45$��@6��������g��fst  7�g��rst  7�g��tmp   7�g��tmp  7��g��filenamef��sxml/sxml-match.ss  � * � *  � �  7 ���CFG+����h ������]45$�� 45CC�������������g��fst  �g��dots  �g��rst   ��g��filenamef��sxml/sxml-match.ss  E  E   E *  E /  E %�   ���C')�h���D���]��C����<�������g��exp-lft  �g��exp-rgt  ��  ���CFG�����h@������]4L�4L�L554L5�45$��@6�����������g��fst  <�g��dots  <�g��rst   <�g��tmp   <�g��tmp  % <��g��filenamef��sxml/sxml-match.ss  � *  � +  � *  � *  � �  < ���C� ��h������]!4�5$��@��4?$��@4�5"��)4�5$��LLLO�@ �6$�� 4 ?$�� L�LLLO�@""�������������g��lst  ��g��tmp ��g��tmp   ��g��tmp  9 ��g��tmp  H h��g��filenamef��sxml/sxml-match.ss � �  � ��g��nameg�� expand-lst�C�������hP�����]"��;(��C4�5$��"�� 4�5$��C""�������������g��var  I�g��lst  I�g��lst   A�g��t   2��g��filenamef��sxml/sxml-match.ss �   �  �   �   � 6  �   �  & �  - � 5 / �  6 �  ; � A �  A � �  I ��g��nameg�� member-var?�Ch���y���]L�L�6������q�������g��var  ��g��filenamef��sxml/sxml-match.ss �  � �  ��g��nameg�� dotted-var?�C�����h8������]�(��C4L��5$�� ��"�4L�5C����������g��lst1  5�g��lst2  5��g��filenamef��sxml/sxml-match.ss �   �  �   � %  �   �   � % & �  ) �  * � ) / � 6 3 � ) 4 � �  5 ��g��nameg�� merge-pvars�C'-h���z���]L4L�54L�56����r�������g��a  �g��rst  ��g��filenamef��sxml/sxml-match.ss  � " � "  � �   ���C2�h���z���]L4L�54L�56����r�������g��a  �g��rst  ��g��filenamef��sxml/sxml-match.ss  � " � "  � �   ���C��h���|���]L4L��54L�56����t�������g��fst  �g��rst  ��g��filenamef��sxml/sxml-match.ss  � " � "  � �   ���C�hh������]4�5$��LLL�O�@4�5$��LLL�O�@4�5$�� LL�O�@C�������������g��y  b�g��tmp b�g��tmp  + b�g��tmp  K b��g��filenamef��sxml/sxml-match.ss �  a � �  b ��g��nameg��walk-quasi-body�C'6����h���Y���]C����Q�������g��rst  ��g��filenamef��sxml/sxml-match.ss  � !�   ���C:��h���Y���]L��6Q�������g��rst  ��g��filenamef��sxml/sxml-match.ss  � &�   ���C���h���|���]L4L��54L�56����t�������g��fst  �g��rst  ��g��filenamef��sxml/sxml-match.ss  � �  � �   ���C������h���l���]4�5$��L��6C���d�������g��item  ��g��filenamef��sxml/sxml-match.ss  �  �   � �   ���C��h���Z���]��CR�������g��item  ��g��filenamef��sxml/sxml-match.ss  � �   ���C� ��h������])O�LLQ�4�5$��@4�5$�� O�@4�5$�� LLO�@��4 L�O�?$�� @C����������g��x  ��g��walk-quasi-body ��g��tmp   ��g��tmp  5 ��g��tmp  Q ��g��tmp  k ���g��filenamef��sxml/sxml-match.ss �  � � �  � ��g��nameg��select-dotted-vars�C���h���W���]�6O�������g��x  ��g��filenamef��sxml/sxml-match.ss  � �   ���C�������h���)���]�C���!�������g��x  ��   ���C'fNP�h���*���]�L���C������"�������g��dv  ��   ���CFG�������hH������]4L��5��4?$��@45$�� �O�@6�������g��item  H�g��dvars H�g��tmp   H�g��tmp  , H��g��filenamef��sxml/sxml-match.ss �   �  � �  H ��g��nameg��expand-dotted-item�C'W��h���Y���]LL�6Q�������g��rst  ��g��filenamef��sxml/sxml-match.ss  � &�   ���CZd�����h���s���] 4L��L5�C���k�������g��item  �g��tmp ��g��filenamef��sxml/sxml-match.ss  � 0 � �   ���Cgo���h���s���] 4L��L5�C���k�������g��item  �g��tmp ��g��filenamef��sxml/sxml-match.ss  � 0 � �   ���Cp')�������h���N���]�CF�������g�� expanded-fst  �g�� expanded-rst  ��   ���CFG���h8������]4L��54L�5�45$��@6����������g��fst  5�g��rst  5�g��tmp   5�g��tmp   5��g��filenamef��sxml/sxml-match.ss  � / � /  � �  5 ���C+��������h ������]45$�� 45CC�������������g��item  �g��dots  �g��rst   ��g��filenamef��sxml/sxml-match.ss  E  E   E *  E /  E %�   ���Cx')�����h���O���]��C���G�������g�� expanded-item  �g�� expanded-rst  ��  ���CFG��hH������]4L�4L��L554L5�45$��@6��������������g��item  A�g��dots  A�g��rst   A�g��tmp   A�g��tmp  * A��g��filenamef��sxml/sxml-match.ss  � 0  � 1  � 0  � /  � �  A ���C+���h ������]45$�� 45CC�������������g��item  �g��dots  �g��rst   ��g��filenamef��sxml/sxml-match.ss  E  E   E *  E /  E %�   ���C')��������h���O���]��C���G�������g�� expanded-item  �g�� expanded-rst  ��  ���CFG��h@������]4L�4L�L554L5�45$��@6�����������g��item  <�g��dots  <�g��rst   <�g��tmp   <�g��tmp  % <��g��filenamef��sxml/sxml-match.ss  � 0  � 1  � 0  � /  � �  < ���C��h������]14�5$�� �LO�@4�5$�� L�LO�@4�5$�� L�LO�@4�5"��X4� 5"��4� 5$��  LO�@�C$�� 4 ?$�� LLL�LO�@""$�� 4?$��LLL�LO�@""~����������g��x  ��g��tmp ��g��tmp  ) ��g��tmp  G ��g��tmp  e ��g��tmp  t ��g��tmp  � ���g��filenamef��sxml/sxml-match.ss � �  � ��g��nameg��expand-quasiquote-body�C')��h������] 4L�5��C������������g�� quasiquote  �g��term  �g��tmp  ��g��filenamef��sxml/sxml-match.ss  � B � %�   ���CY�h0������] 4�5$�� LO�@L���6���������g��x  .�g��tmp .��g��filenamef��sxml/sxml-match.ss �  # � 1 . B �  . ��g��nameg��process-quasiquote�C'���h���+���]L�C���#�������g��rst  ��   ���Ch���Y���]LL�6Q�������g��rst  ��g��filenamef��sxml/sxml-match.ss  � $�   ���C')������h���D���]�C<�������g��exp-lft  �g��exp-rgt  ��   ���CFG�h���D���]��C����<�������g��exp-lft  �g��exp-rgt  ��  ���C�h������]4LL5$��74L�L54LL5�45$��@64L�L54L�5�45$��@6��������������g��fst  y�g��rst  y�g��tmp  " D�g��tmp  - D�g��tmp  W y�g��tmp  b y��g��filenamef��sxml/sxml-match.ss   !     8   8 "  ! E  8 N  8 W  !�  y ���C��������h�����]bO�O�O�O�O�O�O�  O� Q�LQ�Q�Q�Q�Q�L  Q� L� Q� 4 � 5  $��  �O� @4 � 5  $�� � O� @4 �5  $��L�O� @�C�����������g��action  ��g�� dotted-vars  ��g�� finite-lst?  R ��g�� expand-lst  R ��g�� member-var?  R ��g�� dotted-var?  R ��g�� merge-pvars  R ��g��select-dotted-vars  R ��g��expand-dotted-item  R ��g��expand-quasiquote-body R ��g��process-quasiquote R ��g��tmp � ��g��tmp � ��g��tmp � ���g��filenamef��sxml/sxml-match.ss � �  � ��g��nameg��process-output-action�C'FG���h���l���]�6d�������g��tag  �g��items  ��g��filenamef��sxml/sxml-match.ss  , �   ���C'� ������hH���`���]��L�������������C������X�������g��x  B�g��bx  B�g��body   B�g��fail-to   B��  B ���CFG�h���Q��]:4L��54LLLLLLLL> �� G�L�L�45$��4�O�?"�� 45D����I������g��tag  |�g��items  |�g��body-exp  |�g��tests  + |�g�� new-pvar-lst  + |�g�� new-cata-defs  + |�g��new-dotted-vars  + |�g��tmp  A t�g��tmp  L q�� g��filenamef��sxml/sxml-match.ss  - & - < - & - ! -   / ! . .  A 9  | 9 �  | ���C�h������]�6|�������g��tag  �g�� attr-items  �g��items   ��g��filenamef��sxml/sxml-match.ss   �   ���C' � ���hP���p���]��L��������� �������C��h�������g��x  N�g��ax  N�g��bx   N�g��body   N�g��fail-to   N��  N ���CFG�h�����]C4L��54L��54LLLLLLLL> �� G�L�L� 4 5  $��4�O� ?"�� 4 5  D�������g��tag  ��g�� attr-items  ��g��items   ��g��attr-exp   ��g��body-exp   ��g��tests  < ��g�� new-pvar-lst  < ��g�� new-cata-defs  < ��g��new-dotted-vars  < ��g��tmp T ��g��tmp _ ��� g��filenamef��sxml/sxml-match.ss   &  <  &  !   &   <   &   !      ! (  4 ;  ! ?   T   �  �  � ���C� ��h���L��,� 3� 4�5 "��L4�5 "�� �6 $��*4 ?$��L�O�  @"" $��*4 ?$�� LO�  @""���D������g��ele  ��g��exp  ��g��nextp   ��g��fail-k   ��g��pvar-lst   ��g��depth   ��g��cata-fun   ��g�� cata-defs   ��g�� dotted-vars   ��g��tmp  ��g��tmp  a�� g��filenamef��sxml/sxml-match.ss  �  � ��g��nameg��compile-element-pat�C'7@DGIKMOP����h ���G���]�L LLLLLLLLL�6 �������?�������g��filenamef��sxml/sxml-match.ss  F �   ���CFG+QRST�hH������] 4�5$��64545$��C45$��C45$��C6C����������g��atag  E�g��literal  E�g��rst   E�g��x   C��g��filenamef��sxml/sxml-match.ss  +  +   H   H   I  ! I  " I  $ J  . I  / J  1 K  ; I  < K  C L �  E ���C'Ukmnopru�h@���Q���]L�����L�������C�I�������g��ax  ?�g��body  ?�g��fail-to   ?��  ? ���CFG��������hx���4��]34L L L L�LLLLLLLL�> �� G�L L�45$��4�O�?"�� 45D�,������g��atag  w�g��literal  w�g��rst   w�g��tests  & w�g�� new-pvar-lst  & w�g�� new-cata-defs  & w�g��new-dotted-vars  & w�g��tmp  : o�g��tmp  E l�� g��filenamef��sxml/sxml-match.ss  -   1 2 % -  ) ,  : 9  w 9 �  w ���C������h������]4�5$��6C����������g��atag  �g��i  �g��rst   ��g��filenamef��sxml/sxml-match.ss  &  &   & 2�   ���CY�����h ������] �L��6������������g��atag  �g��i  �g��rst   �g��sub  ��g��filenamef��sxml/sxml-match.ss '   ' *  B �   ���C������h���z���]�6r�������g��atag  �g��i  �g��rst   ��g��filenamef��sxml/sxml-match.ss  ! �   ���CY�������h ������] �L��6������������g��atag  �g��i  �g��rst   �g��sub  ��g��filenamef��sxml/sxml-match.ss "   " *  B �   ���C������h������]4�5$��6C����������g��atag  �g��var  �g��rst   ��g��filenamef��sxml/sxml-match.ss        2�   ���C'U������h@���Q���]L�����L������C�������I�������g��ax  9�g��body  9�g��fail-to   9��  9 ���CFG��������h���9��]34L L L L �LLL4LL5LLLL�> �� G�L L�45$��4�O�?"�� 45D��1������g��atag  ~�g��var  ~�g��rst   ~�g��tests  - ~�g�� new-pvar-lst  - ~�g�� new-cata-defs  - ~�g��new-dotted-vars  - ~�g��tmp  A v�g��tmp  L s�� g��filenamef��sxml/sxml-match.ss      2   2 ,   0   A   ~  �  ~ ���C�h���}���]�6u�������g��atag  �g��cvar  �g��rst   ��g��filenamef��sxml/sxml-match.ss   �   ���CY'����h@���a���]L�����������C�������Y�������g��ax  9�g��ct  9�g��body   9�g��fail-to   9��  9 ���CFG� �������h�����];4�5L $��"��4L �>��"��G��4L�LLL�LLL4LL5L L L L �L L > �� G�LL�45  $��4�O� ?"�� 4 5 D���������g��atag  ��g��cvar  ��g��rst   ��g��ctemp  ��g��tests  l ��g�� new-pvar-lst  l ��g�� new-cata-defs  l ��g��new-dotted-vars  l ��g��tmp  � ��g��tmp � ��� g��filenamef��sxml/sxml-match.ss   #         B    0 - B  6  ! E  4 J  4 a e  d e  k  ! o   �   �  �  � ���C�h������]�6�������g��atag  �g��cata  �g��cvar   �g��rst   ��g��filenamef��sxml/sxml-match.ss   �   ���C'��h@���a���]L�����������C�������Y�������g��ax  9�g��ct  9�g��body   9�g��fail-to   9��  9 ���CFG��������h�����]<4�54L L L L �LLL4LL5LLL�LL�> �� G�L L� 4 5  $��4�O� ?"�� 4 5  D�������g��atag  ��g��cata  ��g��cvar   ��g��rst   ��g��ctemp  ��g��tests  F ��g�� new-pvar-lst  F ��g�� new-cata-defs  F ��g��new-dotted-vars  F ��g��tmp \ ��g��tmp g ��� g��filenamef��sxml/sxml-match.ss   #       !   4 $  4 ; e  > e  E  ! I   \   �  �  � ���C���h������]4�5$��6C����������g��atag  �g��var  �g��default   �g��rst   ��g��filenamef��sxml/sxml-match.ss        2�   ���C')��h8���<���]L�����L�L�����C4�������g��ax  8�g��body  8��  8 ���CFG�����h���N��]44L L L L �LLL4LL5LLLL�> �� G�L �45  $��4�O� ?"�� 45 D��F������g��atag  ~�g��var  ~�g��default   ~�g��rst   ~�g��tests  - ~�g�� new-pvar-lst  - ~�g�� new-cata-defs  - ~�g��new-dotted-vars  - ~�g��tmp  ? v�g��tmp J s�� g��filenamef��sxml/sxml-match.ss      2   2 ,   0   ?   ~  �  ~ ���C����h������]�6�������g��atag  �g��cvar  �g��default   �g��rst   ��g��filenamef��sxml/sxml-match.ss   �   ���CY'U�������h8���L���]L�����L������CD�������g��ax  8�g��ct  8�g��body   8��  8 ���CFG� ����h�����]<4�5L $��"��4L �>��"��G��4L�LLL�LLL4LL5L L L L �L L > �� G�L� 4 5  $��4�O� ?"�� 4  5  D���������g��atag  ��g��cvar  ��g��default   ��g��rst   ��g��ctemp  ��g��tests  l ��g�� new-pvar-lst  l ��g�� new-cata-defs  l ��g��new-dotted-vars  l ��g��tmp � ��g��tmp � ��� g��filenamef��sxml/sxml-match.ss   #         B    0 - B  6  ! E  4 J  4 a e  d e  k  ! o   �   �  �  � ���C���h������]�6�������g��atag  �g��cata  �g��cvar   �g��default   �g��rst   ��g��filenamef��sxml/sxml-match.ss  h �   ���C'U789:;=�����h8���L���]L�����L������CD�������g��ax  8�g��ct  8�g��body   8��  8 ���CFG�����h�����]=4�54L L L L �LLL4LL5LLL�LL�> �� G� L � 4 5  $��4�O� ?"�� 4 5   D�������g��atag  ��g��cata  ��g��cvar   ��g��default   ��g��rst   ��g��ctemp  ��g��tests  F ��g�� new-pvar-lst  F ��g�� new-cata-defs  F ��g��new-dotted-vars F ��g��tmp Z ��g��tmp e ��� g��filenamef��sxml/sxml-match.ss  i # i  i   k !  o 4 $ r 4 ; e  > e  E k ! I j  Z {  � { �  � ���C�����h���Y���]�6Q�������g��var  ��g��filenamef��sxml/sxml-match.ss  S �   ���C'UPQR����h ���W���]L�������CO�������g��ax  �g�� matched-attrs  �g��body   ��  ���CFG��hx��� ��]14L L L L L4L�L5LLLL> �� G�LL��45$��4�O�?"�� 45D����������g��var  t�g��tests % t�g�� new-pvar-lst  % t�g�� new-cata-defs  % t�g��new-dotted-vars  % t�g��tmp  9 l�g��tmp  D i��g��filenamef��sxml/sxml-match.ss  U   Z 2 $ U  ( T  9 _  t _ �  t ���C�"h���C��,� 3�4�5 "�4�5 "�`4�5"�4�5"�4�5"�}4�5"�04�5"��4� 5"��4� 5"��4� 5"��64�5$��    LO� @  �6$��04?$��!   L�O� @""$��4?$�� LO�@"a"]$��4?$�� LO�@"."*$��24?$��#   LL�O� @""$��44?$��%L�L  L O�@""$��24?$��#   LL�O� @"K"G$��24?$��#   LL�O� @"�"$��44?$��%L�L  L O�@"" $��24 ?$��#   LL�O�  @"h"d $��24  ?$��#!   LLO�  @""����;������g��attr-lst  �g��body-lst  �g��attr-exp   �g��body-exp   �g�� attr-key-lst   �g��nextp   �g��fail-k   �g��pvar-lst   �g��depth   �g��cata-fun  �g�� cata-defs  �g�� dotted-vars  �g��tmp  �g��tmp  �g��tmp  - �g��tmp  < F�g��tmp  K  �g��tmp  Z �g��tmp  i �g��tmp  x T�g��tmp  � 0�g��tmp  �  �g��tmp  � ���g��filenamef��sxml/sxml-match.ss P �   ��g��nameg��compile-attr-list�C''Uln��h���P���]����C��H�������g��x  �g��body  �g��fail-to   ��   ���CFG�h`������]04LLLL>�� G��L�L��45$�� 4?"�� 45D������������g�� next-tests  [�g�� new-pvar-lst  [�g�� new-cata-defs   [�g��new-dotted-vars   [�g��tmp  % S�g��tmp  0 P��g��filenamef��sxml/sxml-match.ss  G   F  % H  [ H �  [ ���C'U����h���K���]����C����C�������g��ct  �g��x  �g��body   ��   ���CFGY� ��h�����]:L$��y4�54L4LL5L��LL>�� G�L�45$�� 4?"�� 45D L�� 6�������������g��cata  ��g��cvar  ��g��ctemp   ��g�� next-tests  7 ��g�� new-pvar-lst  7 ��g�� new-cata-defs  7 ��g��new-dotted-vars  7 ��g��tmp  K y�g��tmp  V v�� g��filenamef��sxml/sxml-match.ss  c  g '  g "  g   i %  i , , e  / e  6 i % : h  K p ! � p  � d . � B �  � ���CY'U�����h���K���]����C����C�������g��ct  �g��x  �g��body   ��   ���CFG� �����h���|��]94��5L$��"��4L��>��"��G��4L�4LL5L�L�LL>�� G�L�45$�� 4?"�� 4 5D�������t������g��cvar  ��g��ctemp ��g�� next-tests  W ��g�� new-pvar-lst  W ��g�� new-cata-defs  W ��g��new-dotted-vars  W ��g��tmp  k ��g��tmp  v ���g��filenamef��sxml/sxml-match.ss  x # x  x   y   B   z 0 - B  6 ~ ! 9 ~ ( L e  O e  V ~ ! Z }  k   �  �  � ���C�����h ������]LL�LLLLL�6 �������������g��new-exp  �g�� new-pvar-lst  �g�� new-cata-defs   �g��new-dotted-vars   ��g��filenamef��sxml/sxml-match.ss     !�   ���C������h0���k���]L �L LLLLLLO�LLLLLL�6 �������c�������g��item  )�g��rst  )��g��filenamef��sxml/sxml-match.ss )  �  ) ���CFG+�������h ������]45$�� 45CC�������������g��item  �g��dots  �g��rst   ��g��filenamef��sxml/sxml-match.ss  E  E   E *  E /  E %�   ���C'f�h���+���]�C�����#�������g��npv  ��  ���CFG������h8������] 4�5$�� 4?"�� 4�5�D������������g�� new-pvar-lst  3�g�� new-cata-defs  3�g��new-dotted-vars   3�g��tmp  +��g��filenamef��sxml/sxml-match.ss  / 3  1�  3 ���C'f�����h���+���]�C��#�������g��npv  ��   ���CFG������h8������] 45$�� 4?"�� 45D������������g��new-exp  3�g�� new-pvar-lst  3�g�� new-cata-defs   3�g��new-dotted-vars   3�g��tmp  +��g��filenamef��sxml/sxml-match.ss  * 3  ,�  3 ���C .������h���V���]C���N�������g��i  ��g��filenamef��sxml/sxml-match.ss  0�   ���C4���h���V���]C���N�������g��i  ��g��filenamef��sxml/sxml-match.ss  0�   ���C:���h���V���]C���N�������g��i  ��g��filenamef��sxml/sxml-match.ss  0�   ���C')J������h���:���]��C����2�������g��xa  �g��xb  ��  ���CFG�������h0������]��45$��@6������������g��a  +�g��b  +�g��tmp  +�g��tmp   +��g��filenamef��sxml/sxml-match.ss  0  2�  + ���C'Kgijmopqlrskuvxy{}���h�� ��,� 3� ��   ������ �� �   ���� 4 5 ���� 45� 4 5� ���� 4 5�������� 45 ������C�����������g��x  �g��fail-to  �g�� tail-body   �g�� item-body   �g�� final-body   �g��ipv   �g��gpv   �g��tpv   �g�� item-void   �g�� tail-void  �g�� item-null  �g�� item-cons  ��    ���CFGY�h��;��]{L $��4LLL> �� G�4L �LL L> �� G�  4L4L54 L544L 5L5>�� G�   45LL  4  54  54  54  5� 45$�� 4?"�� 45  DL��6���3������g��item  �g��dots  �g��rst   �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 � �g��final-pvar-lst � �g��final-cata-defs � �g��final-dotted-vars  � �g��temp-item-pvar-lst  � �g��tmp  � ��g��tmp  � ���g��filenamef��sxml/sxml-match.ss        /   /   /   $   -   8  * ;  * >  * E   I   R   U  % `  % k  % p  - |  % �   �   �  , �   �  + �  + �  + �  + �        .  B �   ���C�������h���Y���]�6Q�������g��var  ��g��filenamef��sxml/sxml-match.ss  U �   ���C')���h���;���]L�����C����3�������g��x  �g��body  ��   ���CFGY� ��h���+��]1L$��c4L4L�L5LL>�� G�L�45$��4�O�?"�� 45DL�� 6�����#������g��var  {�g�� next-tests  k�g�� new-pvar-lst   k�g�� new-cata-defs   k�g��new-dotted-vars   k�g��tmp  0 c�g��tmp  ; `��g��filenamef��sxml/sxml-match.ss  V  [ # [ *  [ # ! Z  0 \  k \  p W . { B �  { ���C��hH����,� 3�4�5  $�� O� @4�5 "��4�5  $��LL� O�  @4�5  $��L� LO�  @4�5"��94� 5$��  LLO� @  �6$��24 ?$��#LL LLO� @"" $��(4 ?$��LL� O� @""������g��lst  H�g��exp  H�g��nextp   H�g��fail-k   H�g��ellipsis-allowed?   H�g��pvar-lst   H�g��depth   H�g��cata-fun   H�g�� cata-defs   H�g�� dotted-vars  H�g��tmp  H�g��tmp 4 H�g��tmp C �g��tmp o �g��tmp  � �g��tmp  � ���g��filenamef��sxml/sxml-match.ss Q �  H ��g��nameg��compile-item-list�C''������h8���p���]������������C��h�������g��x  6�g��nx  6�g��ct   6�g��body   6�g��fail-to   6��  6 ���CFG�h�����]B4L�54�54L4LL5L��LL>�� G�LL��45  $�� 4 ?"�� 45 D��������g��cata  ��g��cvar  ��g��new-exp   ��g��ctemp   ��g�� next-tests  @ ��g�� new-pvar-lst  @ ��g�� new-cata-defs  @ ��g��new-dotted-vars  @ ��g��tmp  X ��g��tmp c ��� g��filenamef��sxml/sxml-match.ss  / % / ; / % /  0 #  0   /   2 ! " 3 ( 5 e  8 e  ? 2 ! C 1  X :  � : �  � ���CY'�h8���p���]������������C��h�������g��x  6�g��nx  6�g��ct   6�g��body   6�g��fail-to   6��  6 ���CFG� h�����]A4L�54��5L $��"��4L��>��"��G��4L�4LL5L�L �LL>�� G�LL�45$�� 4?"�� 4 5D����������g��cvar  ��g��new-exp  ��g��ctemp   ��g�� next-tests  f ��g�� new-pvar-lst  f ��g�� new-cata-defs  f ��g��new-dotted-vars  f ��g��tmp  ~ ��g��tmp  � ��� g��filenamef��sxml/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 �  � ���CfY��������h���_���]L���6������W�������g��i  ��g��filenamef��sxml/sxml-match.ss   *  B �   ���C���h���W���]�6O�������g��i  ��g��filenamef��sxml/sxml-match.ss   �   ���CY�����h���_���]L���6������W�������g��i  ��g��filenamef��sxml/sxml-match.ss   *  B �   ���C+QRST�������h8������] 4�545$��C45$��C45$��C6�������g��literal  8�g��x 8��g��filenamef��sxml/sxml-match.ss  H  H  I   I   I   J  # I  $ J  & K  0 I  1 K  8 L �  8 ���C'�����h@���`���]��L������������C���X�������g��x  =�g��nx  =�g��body   =�g��fail-to   =��  = ���CFG�hx���E��]94L�54LLLL>�� G�LL��45$��4�O�?"�� 45D�������=������g��literal  q�g��new-exp q�g�� next-tests  q�g�� new-pvar-lst  q�g�� new-cata-defs  q�g��new-dotted-vars  q�g��tmp  6 i�g��tmp  A f��g��filenamef��sxml/sxml-match.ss   %  ;  %      ! #   6   q  �  q ���CFG�h���k���]�6c�������g��tag  �g��item  ��g��filenamef��sxml/sxml-match.ss  f �   ���C'U)*������h ���K���]�����C�������C�������g��x  �g��nx  �g��body   ��   ���CFG������h`���L��]34LL�>�� G�L�L�45$�� 4?"�� 45D���D������g�� more-pvar-lst  ]�g��more-cata-defs  ]�g��more-dotted-vars   ]�g�� next-tests   ]�g�� new-pvar-lst   ]�g�� new-cata-defs   ]�g��new-dotted-vars   ]�g��tmp  ' U�g��tmp  2 R�� g��filenamef��sxml/sxml-match.ss l 6  p F  m 8 ' t B ] t :�  ] ���C'U<=�����h���P���]����C��H�������g��x  �g��body  �g��fail-to   ��   ���CFG� h���d��]:4L�54L�L�LLO�LLLLLL�> �� G�LL�45$�� 4?"�� 45D���\������g��tag  ��g��item  ��g��new-exp  ��g�� after-tests  ; ��g��after-pvar-lst  ; ��g��after-cata-defs  ; ��g��after-dotted-vars  ; ��g��tmp  O }�g��tmp  Z z�� g��filenamef��sxml/sxml-match.ss  g % g ; g % g g   i ! > h  O   �  �  � ���C������h���Y���]�6Q�������g��var  ��g��filenamef��sxml/sxml-match.ss   �   ���C'QRSTU���h8���`���]�����L��������C��X�������g��x  6�g��nx  6�g��body   6�g��fail-to   6��  6 ���CFG�hx���S��]94L�54L4L�L5LL>�� G�LL��45$��4�O�?"�� 45DK������g��var  x�g��new-exp x�g�� next-tests  ' x�g�� new-pvar-lst  ' x�g�� new-cata-defs  ' x�g��new-dotted-vars  ' x�g��tmp  = p�g��tmp  H m��g��filenamef��sxml/sxml-match.ss   %  ;  %      !   0 &  ! *   = !  x ! �  x ���C��hP����,� 3�4�5 "�4�5  $��LO� @4�5  $��LLO�  @4�5 "��i4�5  $��  LO� @��4 ?$��  LO�@��4 ?$�� O�@�6 $��*4 ?$��L�O�  @"g"c $��&4 ?$��LO� @""�������������g��item  I�g��exp  I�g��nextp   I�g��fail-k   I�g��pvar-lst   I�g��depth   I�g��cata-fun   I�g�� cata-defs   I�g�� dotted-vars   I�g��tmp  I�g��tmp  �g��tmp H �g��tmp v �g��tmp � ��g��tmp  � ��g��tmp  � ���g��filenamef��sxml/sxml-match.ss  �  I ��g��nameg�� compile-item�CYV����h8������]�(��C4�L�5$��L�L�6��"��������������g��lst  1��g��filenamef��sxml/sxml-match.ss Y   Z  \   \ ,  \   \   ] 1 ( B  + ` $ 1 ` �  1 ��g��nameg�� check-pvar�C�������h0������] O��L�Q�4>��"��G���C����������g��pvar  -�g��pvar-lst  -�g�� check-pvar  -��g��filenamef��sxml/sxml-match.ss X  a  , b �  - ��g��nameg�� add-pat-var�C')���h���:���]��C������2�������g��cf  �g��ct  ��  ���CFGUkl��h���M���]����C��E�������g��ct  �g��nct  �g��body   ��   ���C� �������hx���V��]� $��)�45$��@64�54L��5�45$��@6���N������g��depth  u�g��cfun  u�g��ctemp   u�g��tmp   3�g��tmp   3�g�� new-ctemp  > u�g��tmp  S u�g��tmp  ^ u��g��filenamef��sxml/sxml-match.ss g  h  h   i  4 l ( ; l > = l ( > l # > l  E o ( J o : P o ( S m �  u ��g��nameg��process-cata-exp�C'����h���P���]�LL�6�������H�������g��filenamef��sxml/sxml-match.ss  � / � �  ���C����h���s���]�4L�5C���k�������g��fst  �g��rst  ��g��filenamef��sxml/sxml-match.ss  � 6 � #�  ���CFG������hH������]4�5$�� LLO�@4�5$�� L�O�@�6�����������g��items  D�g��tmp D�g��tmp  ( D��g��filenamef��sxml/sxml-match.ss � �  D ��g��nameg��iter�C�h(������] �(��CO�L��Q��6���������g��lst  &�g��iter  &��g��filenamef��sxml/sxml-match.ss �  �  �   �  " � * # � $ & � �  & ��g��nameg��cata-defs->pvar-lst�C'{�h8������,� 3� ������C�������������g��compile-clause  2�g��cata  2�g��cvar   2�g��gexp   2�g��action0   2�g��action   2�g��exp   2�g��cata-fun   2�g��fail-exp   2��   2 ���C'���h������]�C�����������   ���CY� �������hh�����,�3� 45$�� 4?"��$��,������C  L��6�������g��compile-clause  g�g��cvar  g�g��gexp   g�g��action0   g�g��action   g�g��exp   g�g��cata-fun   g�g��fail-exp   g�g��tmp   '�� g��filenamef��sxml/sxml-match.ss +  \  * g B �  g ���C���h ������,�3����C��������g��compile-clause  �g��cata  �g��cvar   �g��action0   �g��action   �g��exp   �g��cata-fun   �g��fail-exp   ��   ���C'�����h������]�C�����������   ���CY�hP������]45$�� 4?"��$�����CL��6�������g��compile-clause  P�g��cvar  P�g��action0   P�g��action   P�g��exp   P�g��cata-fun   P�g��fail-exp   P�g��tmp  #��g��filenamef��sxml/sxml-match.ss '  E  * P B �  P ���CY�����h������,�3�L��6���������g��compile-clause  �g��i  �g��gexp   �g��action0   �g��action   �g��exp   �g��cata-fun   �g��fail-exp   ��g��filenamef��sxml/sxml-match.ss B &  B �   ���CY������h������]L��6�������������g��compile-clause  �g��i  �g��action0   �g��action   �g��exp   �g��cata-fun   �g��fail-exp   ��g��filenamef��sxml/sxml-match.ss  F &  B �   ���CFG+QRST���h8���E��]4545$��C45$��C45$��C6=������g��compile-clause  8�g��literal  8�g��action0   8�g��action   8�g��exp   8�g��cata-fun   8�g��fail-exp   8�g��x  8��g��filenamef��sxml/sxml-match.ss  H  H  I   I   I   J  # I  $ J  & K  0 I  1 K  8 L �  8 ���C������h ������]���C���������g��compile-clause  �g��literal  �g��action0   �g��action   �g��exp   �g��cata-fun   �g��fail-exp   ��   ���C+QRST�����h@���W��,�3� 4545$��C45$��C45$��C6����O������g��compile-clause  <�g��literal  <�g��gexp   <�g��action0   <�g��action   <�g��exp   <�g��cata-fun   <�g��fail-exp   <�g��x  <�� g��filenamef��sxml/sxml-match.ss  H  H   I   I   I   J  ' I  ( J  * K  4 I  5 K  < L �  < ���C�h0������,�3�����C�����������g��compile-clause  ,�g��literal  ,�g��gexp   ,�g��action0   ,�g��action   ,�g��exp   ,�g��cata-fun   ,�g��fail-exp   ,��  , ���C�������h������]6�������g��compile-clause  �g��pat  �g��action0   �g��action   �g��exp   �g��cata-fun   �g��fail-exp   ��g��filenamef��sxml/sxml-match.ss  O �   ���CY�h������]L��6�������������g��compile-clause  �g��pat  �g��action0   �g��action   �g��exp   �g��cata-fun   �g��fail-exp   ��g��filenamef��sxml/sxml-match.ss  P &  B �   ���C�������h������,�3�6�����������g��compile-clause  �g��pat  �g��gexp   �g��action0   �g��action   �g��exp   �g��cata-fun   �g��fail-exp   ��g��filenamef��sxml/sxml-match.ss J �  ���CY�������h������,�3�L��6���������g��compile-clause  �g��pat  �g��gexp   �g��action0   �g��action   �g��exp   �g��cata-fun   �g��fail-exp   ��g��filenamef��sxml/sxml-match.ss K &  B �   ���C�����h������,�3�6�����������g��compile-clause  �g��fst  �g��rst   �g��action0   �g��action   �g��exp   �g��cata-fun   �g��fail-exp   ��g��filenamef��sxml/sxml-match.ss * �  ���C����h ������]4L4L�LL55�D�������g�� new-pvar-lst  �g�� new-cata-defs  �g��new-dotted-vars   ��g��filenamef��sxml/sxml-match.ss . 0  / :  0 M  / : / 2�  ���C '�h������]�C�����������   ���C)������h���A���]�L����C����9�������g��fail-to  �g��body  ��   ���CFG� �������h�����,�3�4LLL�O� 45$�� 4?"��> �� G�   � 4 5  $�� O� @  6�����������g��compile-clause  ��g��fst  ��g��rst   ��g��action0   ��g��action   ��g��exp   ��g��cata-fun   ��g��fail-exp   ��g��tmp  * B�g��result  J ��g��pvar-lst J ��g�� cata-defs J ��g�� dotted-vars J ��g��tmp \ ��g��tmp g ���g��filenamef��sxml/sxml-match.ss  ,  8 0 C ; 0 D < 0 I ,  M + \ = �  � ���C����h������,� 3� 6�����������g��compile-clause  �g��fst  �g��rst   �g��gexp   �g��action0   �g��action   �g��exp   �g��cata-fun   �g��fail-exp   �� g��filenamef��sxml/sxml-match.ss  �  ���C, ')34����h���A���]L����C����9�������g��body  �g��fail-to  ��   ���CFG��������hX������]4L�4LLL55�45$��4LO�?"�� 45�D�������g�� new-pvar-lst  X�g�� new-cata-defs  X�g��new-dotted-vars   X�g��tmp   P�g��tmp  ( M��g��filenamef��sxml/sxml-match.ss  0   >   Q   >   3 X  2�  X ���C '������h������]�C�����������   ���C)@������h���A���]�L����C����9�������g��fail-to  �g��body  ��   ���CFG� �������h�����,� 3�4LLL�O� 45  $�� 4 ?"�� > �� G�     � 4 5$�� O�@  6���������g��compile-clause  ��g��fst  ��g��rst   ��g��gexp   ��g��action0   ��g��action   ��g��exp   ��g��cata-fun   ��g��fail-exp   ��g��tmp , D�g��result L ��g��pvar-lst L ��g�� cata-defs L ��g�� dotted-vars L ��g��tmp ^ ��g��tmp  i ���g��filenamef��sxml/sxml-match.ss    "  0 E # 0 F $ 0 K   O  ^ % �  � ���CA+����h �����,�3�45$�� 45CC��������g��compile-clause  �g��lst  �g��rst   �g��action0   �g��action   �g��exp   �g��cata-fun   �g��fail-exp   ��g��filenamef��sxml/sxml-match.ss        2   8   -�   ���CS��������h ������]4L4L�LL55�D�������g�� new-pvar-lst  �g�� new-cata-defs  �g��new-dotted-vars   ��g��filenamef��sxml/sxml-match.ss  .   8   K   8  0�  ���C '�h������]�C�����������   ���C)_`a��������h(���A���]L��L������C���9�������g��body  %�g��fail-to  %��  % ���CFG� �������h�����,�3�4LLL�O� 45$�� 4?"��> �� G�   � 4 5  $�� O� @  6�����������g��compile-clause  ��g��lst  ��g��rst   ��g��action0   ��g��action   ��g��exp   ��g��cata-fun   ��g��fail-exp   ��g��tmp  ( @�g��result  H ��g��pvar-lst H ��g�� cata-defs H ��g�� dotted-vars H ��g��tmp Z ��g��tmp e ���g��filenamef��sxml/sxml-match.ss      . A  . B  . G   K  Z  �  � ���CA+�������h ���"��,� 3� 45$�� 45CC��������g��compile-clause  �g��lst  �g��rst   �g��gexp   �g��action0   �g��action   �g��exp   �g��cata-fun   �g��fail-exp   �� g��filenamef��sxml/sxml-match.ss        2   8   -�   ���Ct ')|}��������h���E���]L����C����=�������g��exp-body  �g��fail-to  ��   ���CFG����hX������]4L�4LLL55�45$��4LO�?"�� 45�D�������g�� new-pvar-lst  X�g�� new-cata-defs  X�g��new-dotted-vars   X�g��tmp   P�g��tmp  ( M��g��filenamef��sxml/sxml-match.ss  .   @   S   @   1 X  0�  X ���C '������h������]�C�����������   ���C)��������h(���A���]�L��L������C���9�������g��fail-to  %�g��body  %��  % ���CFG� �������h�����,� 3�4LLL�O� 45  $�� 4 ?"�� > �� G�     � 4 5$�� O�@  6���������g��compile-clause  ��g��lst  ��g��rst   ��g��gexp   ��g��action0   ��g��action   ��g��exp   ��g��cata-fun   ��g��fail-exp   ��g��tmp * B�g��result J ��g��pvar-lst J ��g�� cata-defs J ��g�� dotted-vars J ��g��tmp \ ��g��tmp  g ���g��filenamef��sxml/sxml-match.ss     . C  . D  . I   M  \  �  � ���C�h������]6�������g��compile-clause  �g��var  �g��action0   �g��action   �g��exp   �g��cata-fun   �g��fail-exp   ��g��filenamef��sxml/sxml-match.ss   �   ���C������h������]��C���������g��compile-clause  �g��var  �g��action0   �g��action   �g��exp   �g��cata-fun   �g��fail-exp   ��   ���C�����h������,�3�6�����������g��compile-clause  �g��var  �g��gexp   �g��action0   �g��action   �g��exp   �g��cata-fun   �g��fail-exp   ��g��filenamef��sxml/sxml-match.ss  �  ���C���h0������,�3������C����������g��compile-clause  -�g��var  -�g��gexp   -�g��action0   -�g��action   -�g��exp   -�g��cata-fun   -�g��fail-exp   -��  - ���C�3�����h@����]O�O�O�O�O�O�O�O� O� Q��Q�Q��Q�� Q��Q��Q�Q� 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"n�������������g��stx  9�g��process-cata-defs U 9�g��process-output-action  U 9�g��compile-element-pat  U 9�g��compile-attr-list  U 9�g��compile-item-list  U 9�g�� compile-item  U 9�g�� add-pat-var  U 9�g��process-cata-exp  U 9�g��cata-defs->pvar-lst U 9�g��tmp � 9�g��tmp � �g��tmp � �g��tmp � �g��tmp  � �g��tmp   �g��tmp  % �g��tmp  4 �g��tmp  C �g��tmp  R �g��tmp  a [�g��tmp  } [�g��tmp   [�g��tmp   7�g��tmp   �g��tmp   ��g��filenamef��sxml/sxml-match.ss >  ? �  9 ���C5R4"$'�������h���h���]C�������`�������g��dummy  �g��exp  �g��cata-fun   �g��clause   ��   ���C����h8���}���]����C������u�������g��dummy  2�g��exp  2�g��cata-fun   2�g��clause0   2�g��clause   2��  2 ���CFG����h@������]4�5$��@4�5$��@�6��������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��sxml/sxml-match.ss _ �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��expg��cata-fung��clause�g��expg��cata-fung��clause0g��clauseg��...���C5R4"$'��������h0���g���]�����C����_�������g��dummy  ,�g��val  ,�g��clause0   ,�g��clause   ,��  , ���CFG��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��sxml/sxml-match.ss l �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��valg��clause0g��clauseg��...���C5R4"$' ����h���{���]C���s�������g��dummy  �g��syntag  �g��synform   �g��body0   �g��body   ��  ���C !#�h8������]������C���������g��dummy  6�g��syntag  6�g��synform   6�g��pat   6�g��exp   6�g��body0   6�g��body   6��  6 ���C*;<>A?@ABC� hP������,� 3� 45�� ����C�������������g��dummy  J�g��syntag  J�g��synform   J�g��pat0   J�g��exp0   J�g��pat   J�g��exp   J�g��body0   J�g��body   J��   J ���CFG� �������hP�����]4�5$��@4�5$��@4�5$��@ �6������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��sxml/sxml-match.ss s �  P ��g�� macro-typeg�� syntax-rulesg��patternsg��syntagg��synformg��body0g��bodyg��...�g��syntagg��synformg��patg��exp��g��body0g��bodyg��...�g��syntagg��synformg��pat0g��exp0�g��patg��exp�g��...�g��body0g��bodyg��...���C5R4"D$'H'f\>A]���h0���1���]4�L5L�L4L�5LL�C���)�������g�� temp-name  -��  - ���CFG��������h@�����]4545$��O�@6�������������g��sxml-match-let-help  :�g��syntag  :�g��synform   :�g��pat   :�g��exp   :�g��body0   :�g��body   :�g��tmp  :�g��tmp   :�� g��filenamef��sxml/sxml-match.ss   (  �  : ���CFG�����h(���h���] 4�5$��@�6������`�������g��stx  "�g��tmp "��g��filenamef��sxml/sxml-match.ss  �  " ���C5DR4"$'Fn>A��������h ���}���]�L�45C���u�������g��sxml-match-let  �g��pat  �g��exp   �g��body0   �g��body   ��   ���CFG����h(���h���] 4�5$�� �O�@�6�`�������g��stx  '�g��tmp '��g��filenamef��sxml/sxml-match.ss  �  ' ���C5R4"$'y�������h���\���]C���T�������g��sxml-match-let*  �g��body0  �g��body   ��  ���C(>A����h0������]�L����45�C�������������g��sxml-match-let*  *�g��pat0  *�g��exp0   *�g��pat   *�g��exp   *�g��body0   *�g��body   *��  * ���CFG�������h@���y���]4�5$��@4�5$�� �O�@�6��q�������g��stx  >�g��tmp >�g��tmp  " >��g��filenamef��sxml/sxml-match.ss  �  > ���C5RC�������g��m  ,��g��filenamef��sxml/match.scm   e 1 g��filenamef��sxml/sxml-match.ss    $     (  /   6 � ������x ���C6����������������������������������������������������������������������������������������������������������������������������������������������srfi/srfi-4/gnu.go����������������������������������������������������������������������������������0000644�����������������00000032320�15253700563�0007741 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�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������srfi/srfi-60.go�������������������������������������������������������������������������������������0000644�����������������00000004120�15253700563�0007227 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�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������srfi/srfi-41.go�������������������������������������������������������������������������������������0000644�����������������00000304156�15253700563�0007242 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�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������srfi/srfi-31.go�������������������������������������������������������������������������������������0000644�����������������00000004314�15253700563�0007232 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������srfi/srfi-27.go�������������������������������������������������������������������������������������0000644�����������������00000045051�15253700563�0007242 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������srfi/srfi-26.go�������������������������������������������������������������������������������������0000644�����������������00000014614�15253700563�0007242 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���������������������������������������������������������������������������������������������������������������������srfi/srfi-16.go�������������������������������������������������������������������������������������0000644�����������������00000000704�15253700563�0007234 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�������������������������������������������������������������srfi/srfi-10.go�������������������������������������������������������������������������������������0000644�����������������00000003523�15253700563�0007230 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������������������������������������������������������������������������������������������������������������������������������������������������������������������������������srfi/srfi-35.go�������������������������������������������������������������������������������������0000644�����������������00000043344�15253700563�0007244 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������srfi/srfi-37.go�������������������������������������������������������������������������������������0000644�����������������00000072526�15253700563�0007252 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������srfi/srfi-67.go�������������������������������������������������������������������������������������0000644�����������������00000207571�15253700563�0007255 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����������������������������������������������������������������������������������������������������������������������������������������srfi/srfi-1.go��������������������������������������������������������������������������������������0000644�����������������00000122634�15253700563�0007155 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�����������������������������������������������������������������������������������������������������srfi/srfi-98.go�������������������������������������������������������������������������������������0000644�����������������00000002403�15253700563�0007244 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������srfi/srfi-42.go�������������������������������������������������������������������������������������0000644�����������������00000310764�15253700563�0007245 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�������������srfi/srfi-6.go��������������������������������������������������������������������������������������0000644�����������������00000002167�15253700563�0007160 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������srfi/srfi-9.go��������������������������������������������������������������������������������������0000644�����������������00000071676�15253700563�0007176 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�������������������������������������������������������������������srfi/srfi-9/gnu.go����������������������������������������������������������������������������������0000644�����������������00000032341�15253700563�0007751 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������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������srfi/srfi-88.go�������������������������������������������������������������������������������������0000644�����������������00000002574�15253700563�0007254 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�������������������������������������������������������������������������������������������������������������������������������������srfi/srfi-8.go��������������������������������������������������������������������������������������0000644�����������������00000001153�15253700563�0007154 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������srfi/srfi-13.go�������������������������������������������������������������������������������������0000644�����������������00000005572�15253700563�0007241 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���������������������������������������������������������������������������������������������������������������������������������������srfi/srfi-19.go�������������������������������������������������������������������������������������0000644�����������������00000413373�15253700563�0007251 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������srfi/srfi-69.go�������������������������������������������������������������������������������������0000644�����������������00000133275�15253700563�0007256 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������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������srfi/srfi-4.go��������������������������������������������������������������������������������������0000644�����������������00000054423�15253700563�0007160 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������srfi/srfi-38.go�������������������������������������������������������������������������������������0000644�����������������00000017670�15253700563�0007252 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�������������������������������������������������������������������������srfi/srfi-11.go�������������������������������������������������������������������������������������0000644�����������������00000016544�15253700563�0007240 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�������������������������������������������������������������������������������������������������������������������������������������������������������������srfi/srfi-2.go��������������������������������������������������������������������������������������0000644�����������������00000001173�15253700563�0007150 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������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������srfi/srfi-18.go�������������������������������������������������������������������������������������0000644�����������������00000040543�15253700563�0007243 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��������������������������������������������������������������������������������������������������������������������������������������������������������������srfi/srfi-45.go�������������������������������������������������������������������������������������0000644�����������������00000077560�15253700563�0007254 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�������������������������������������������������������������������������������������������������������������������������������������������������srfi/srfi-111.go������������������������������������������������������������������������������������0000644�����������������00000037127�15253700563�0007321 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������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������srfi/srfi-14.go�������������������������������������������������������������������������������������0000644�����������������00000004707�15253700563�0007241 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����������������������������������������������������������srfi/srfi-64.go�������������������������������������������������������������������������������������0000644�����������������00000527654�15253700563�0007261 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�������������������������������������������������������������������������������������srfi/srfi-28.go�������������������������������������������������������������������������������������0000644�����������������00000001370�15253700563�0007237 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�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������srfi/srfi-34.go�������������������������������������������������������������������������������������0000644�����������������00000011613�15253700563�0007235 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����������������������������������������������������������������������������������������������������������������������srfi/srfi-17.go�������������������������������������������������������������������������������������0000644�����������������00000010767�15253700563�0007247 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����������srfi/srfi-43.go�������������������������������������������������������������������������������������0000644�����������������00000176476�15253700563�0007260 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������srfi/srfi-39.go�������������������������������������������������������������������������������������0000644�����������������00000002504�15253700563�0007241 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������system/foreign.go�����������������������������������������������������������������������������������0000644�����������������00000023253�15253700563�0010063 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������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������system/repl/debug.go��������������������������������������������������������������������������������0000644�����������������00000026171�15253700563�0010464 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������system/repl/coop-server.go��������������������������������������������������������������������������0000644�����������������00000142472�15253700563�0011645 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�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������system/repl/repl.go���������������������������������������������������������������������������������0000644�����������������00000026343�15253700563�0010341 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������system/repl/server.go�������������������������������������������������������������������������������0000644�����������������00000042115�15253700563�0010700 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������system/repl/common.go�������������������������������������������������������������������������������0000644�����������������00000033433�15253700563�0010665 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������system/repl/command.go������������������������������������������������������������������������������0000644�����������������00000331665�15253700563�0011023 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����������������������������������������������������������������������������system/repl/error-handling.go�����������������������������������������������������������������������0000644�����������������00000023544�15253700563�0012312 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�������������������������������������������������������������������������������������������������������������������������������������������������������������system/vm/instruction.go����������������������������������������������������������������������������0000644�����������������00000001515�15253700563�0011432 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������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������system/vm/coverage.go�������������������������������������������������������������������������������0000644�����������������00000113372�15253700563�0010651 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�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������system/vm/vm.go�������������������������������������������������������������������������������������0000644�����������������00000002044�15253700563�0007471 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������system/vm/trace.go����������������������������������������������������������������������������������0000644�����������������00000017500�15253700563�0010150 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�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������system/vm/trap-state.go�����������������������������������������������������������������������������0000644�����������������00000037452�15253700563�0011146 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�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������system/vm/inspect.go��������������������������������������������������������������������������������0000644�����������������00000023373�15253700563�0010524 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������system/vm/objcode.go��������������������������������������������������������������������������������0000644�����������������00000001471�15253700563�0010457 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������system/vm/frame.go����������������������������������������������������������������������������������0000644�����������������00000015605�15253700563�0010150 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����������������������������������������������������������������������������������������������������������������������������system/vm/traps.go����������������������������������������������������������������������������������0000644�����������������00000072243�15253700563�0010210 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������system/vm/program.go��������������������������������������������������������������������������������0000644�����������������00000036773�15253700563�0010536 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������system/xref.go��������������������������������������������������������������������������������������0000644�����������������00000046607�15253700563�0007406 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��������������������������������������������������������������������������������������������������������������������������system/base/pmatch.go�������������������������������������������������������������������������������0000644�����������������00000017104�15253700563�0010616 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�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������system/base/lalr.go���������������������������������������������������������������������������������0000644�����������������00000335610�15253700563�0010301 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�������������������������������������������������������������������������������������������������������������������������system/base/language.go�����������������������������������������������������������������������������0000644�����������������00000013644�15253700563�0011132 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���������������������������������������������������������������������������������������������system/base/types.go��������������������������������������������������������������������������������0000644�����������������00000300005�15253700563�0010501 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������system/base/ck.go�����������������������������������������������������������������������������������0000644�����������������00000007540�15253700563�0007742 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�����������������������������������������������������������������������������������������������������������������������������������������������������������������system/base/target.go�������������������������������������������������������������������������������0000644�����������������00000014774�15253700563�0010642 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�����system/base/syntax.go�������������������������������������������������������������������������������0000644�����������������00000046234�15253700563�0010676 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������system/base/message.go������������������������������������������������������������������������������0000644�����������������00000071700�15253700563�0010770 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�����������������������������������������������������������������system/base/compile.go������������������������������������������������������������������������������0000644�����������������00000034101�15253700563�0010766 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/assembly/decompile-bytecode.go�������������������������������������������������������������0000644�����������������00000023416�15253700563�0014246 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0&������]�\�4��hk������]� g��guile � g��define-module* � � g��language g��assembly g��decompile-bytecode � g��filenameS f��(language/assembly/decompile-bytecode.scm g��importsS g��system g��vm g�� instruction  � � g��base g��pmatch  � � g��srfi g��srfi-4 � � g��rnrs g�� bytevectors � � � � g��objcode !  � "g��selectS #g�� byte-order $#� %!"$� &%� 'g��exportsS (� )g��set-current-module *)� +)� ,g��u8vector-length -g��decode-load-program .g��error /f��tried to decode too many bytes 0f��-bad bytecode: only decoded ~a out of ~a bytes 1g��memq 2g��br 3g��br-if 4g�� br-if-not 5g��br-if-eq 6g�� br-if-not-eq 7g�� br-if-null 8g��br-if-not-null 92345678� :g��br-instruction? ;g��br-if-nargs-ne <g��br-if-nargs-lt =g��br-if-nargs-gt >g��br-if-nargs-lt/non-kw ?;<=>� @g��br-nargs-instruction? Ag�� bytes->s24 Bf��-error decoding program -- read too many bytes Cg�� load-program Dg��map Eg��reverse Fg��reverse! Gg��decode-bytecode Hg��prompt Ig��assv-ref Jg��gensym Kf��:L Lg��mv-call Mg��bind-optionals/shuffle-or-br Ng��and=> Og��opcode->instruction Pg��instruction-length Qg�� load-array Rg��load-wide-string Sg��make-bytevector Tg�� make-string Ug��bytevector-u8-set! V U� W U� Xg�� string-set! Yg�� integer->char Zg�� utf32->string [g��native-endiannessC�5hp�����]4    &'(5�4+�>��"��G���,-./�������h@������]ML�$�� LM"��ML�$��"��45��$�� MN"����C����������g��b ) =��g��filenamef��(language/assembly/decompile-bytecode.scm       !  !    # "  ' " " ) "  )  1 #  4 #  6 # �  = ��g��nameg��pop�C.0������h@���&��] 4�5H4�O�5J$��DJ6�������������g��x  9�g��env  9�g��opts   9�g��i  9�g��size  9�g��ret   9��g��filenamef��(language/assembly/decompile-bytecode.scm        %   %  % & ) &  / ' 3 (  9 ( �  9 ��g��nameg��decompile-bytecode�CR19�������h������]�6�������������g��x  ��g��filenamef��(language/assembly/decompile-bytecode.scm * + �  ��g��nameg��br-instruction?�C:R1?�������h������]�6�������������g��x  ��g��filenamef��(language/assembly/decompile-bytecode.scm , - �  ��g��nameg��br-nargs-instruction?�C@R�������h8������] �  ������� $��C�������C�����������g��a  4�g��b  4�g��c   4�g��x   4��g��filenamef��(language/assembly/decompile-bytecode.scm /  0  0  0  0   1   1   1  $ 1  2 3 3 3 �  4 ��g��nameg�� bytes->s24�CAR.BCD����h������]��C������{�������g��x  ��g��filenamef��(language/assembly/decompile-bytecode.scm N "  N 4  N < N .�  ���CE-FG./�����h@������]ML�$�� 4L5�"��ML�$��"��45��$�� MN"����C����������g��b ) =��g��filenamef��(language/assembly/decompile-bytecode.scm D   E  E  E  F   E  # G  ' G " ) G  ) E  1 H  4 H  6 H �  = ��g��nameg��sub-pop�CHAIJKLM@:����h�� ��,�3�%4�5�4�5�4�5�4�5�4�5�4�5�4�5�4�5�        H H "�<J  $�� 6J  $��244J 55  $��"��4�54 5C4   � O�5"�"�("�"�$�� &��$��$��$��$��p(��U J 4 54 J 5$��"��45J K �  "  "  "  "  "  "  "  "$��&��$��$��$��~$��i(��UJ 4 54 J 5$��"��45J K �  ""?";"7"3"/"+"'$�<&�&$�$�$��$��$��$��$��$��  $��s  "!"(��_J 4 !5#4 J #5$$$��$"��45$#$J K $$$#�  """"�"""""""""$��$��$��$��$��$��z(��f45$��WJ 4 54 J 5$��"��45J K �  """""""""$��$��$��$��v(��b45$��SJ 4 54 J 5$��"��45J K �  "":"6"2"."*"& "� ������g��pop  �g��a �g��b   �g��c   �g��d  �g��e  ' �g��f  . �g��g  5 �g��h  < �g��len R �g��metalen h �g��labels k �g��i n �g��out t �g��exp  � �g��vx  � �g��vy  � �g��vx   �g��vy   �g��vx   �g��vy   �g��vx  * �g��vy  * �g��vx  ; �g��vy  ; �g��where  W �g��t  b �g��l  w �g��vx   �g��vy   �g��vx   �g��vy   �g��vx   �g��vy   �g��vx  / �g��vy  / �g��vx  @ �g��vy  @ �g��where  \ �g��t  g �g��l  | �g��vx   �g��vy   �g��vx   �g��vy   �g��vx   �g��vy   �g��vx   �g��vy   �g��vx   �g��vy   �g��vx  % �g��vy  % �g��vx  6 �g��vy  6 �g��vx  G �g��vy  G �g��vx  X �g��vy X �g��vx ! i �g��vy " i �g��where #  �g��t $  �g��l $  �g��vx   �g��vy   �g��vx   �g��vy   �g��vx  1 �g��vy  1 �g��vx  B �g��vy  B �g��vx  S �g��vy  S �g��vx  d �g��vy  d �g��where   �g��t   �g��l   �g��vx   �g��vy   �g��vx   �g��vy   �g��vx   �g��vy   �g��vx  0 �g��vy  0 �g��where  U �g��t  ` �g��l  u ��Zg��filenamef��(language/assembly/decompile-bytecode.scm 6  7 7   7   7   7  7   7 * 7  # 8 ' 7  * 8  . 7  1 8 5 7  8 8 * < 7  E 9  F 9  K 9  L 9  Q 9 ( R 9  R 7  [ :  \ :  a : ! b :  g : , h :  h 7  k ;  k 7  t J  y K } K  � L  � L � M � K  � N � N  � O " � N  � Q ! � Q  � Q 4 � R  � N � T  � T � U  G g  L >  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 �   ��g��nameg��decode-load-program�C-RNOC-PQRSTWXY��h������]�456��������������g��str  �g��pos  �g��value   ��g��filenamef��(language/assembly/decompile-bytecode.scm }  ~ 2  ~ �   ���CZ[F������h0��/��]14�5&��L�645 $��&��"��$��"��&��"��$�� "�� 4L�5�4L�5�4L�5�  45"��K$�� &��4 4 5�5"���C44L�5�>��"��G��" ""��! $�� 64L�5�"45�"����'������g��opcode  ,�g��inst ,�g�� make-sequence  D ��g�� sequence-set!  d ��g��a  k ��g��b  r ��g��c  y ��g��len  � ��g��seq  � ��g��i  � ��g��n  � �g��out  � �� g��filenamef��(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  , ���C������h������]4�5��O�6�������������g��pop  ��g��filenamef��(language/assembly/decompile-bytecode.scm k  l  l �   ��g��nameg��decode-bytecode�CGRC����������g��m  ,��g��filenamef��(language/assembly/decompile-bytecode.scm      * W ,  / P 6 k k �  m ���C6���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/assembly/spec.go���������������������������������������������������������������������������0000644�����������������00000002301�15253700563�0011431 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�+�4���h������]� g��guile � g��define-module* � � g��language g��assembly g��spec � g��filenameS f��language/assembly/spec.scm g��importsS g��system g��base  � � g��compile-bytecode � � g��decompile-bytecode � � � g��exportsS � g��set-current-module � � g��invalidate-compilation-cache! g�� make-language g��nameS g��titleS !f��'Guile Virtual Machine Assembly Language "g��readerS #g��read $g��printerS %g��write &g��parserS 'g�� compilersS (g��bytecode )g�� decompilersS *g�� for-humans?SC�5����h�����]4    5�4�>��"��G���4i>���"��G��4i !"#�����h���y���]�6q�������g��port  �g��env  ��g��filenamef��language/assembly/spec.scm     #�   ���C$%i&#i'(i�)(i�*5RC��������g��m  ,��g��filenamef��language/assembly/spec.scm   -  K   �   �    �   ���C6��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/assembly/compile-bytecode.go���������������������������������������������������������������0000644�����������������00000023154�15253700563�0013734 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0T&������]�V�4��������h������]� g��guile � g��define-module* � � g��language g��assembly g��compile-bytecode � g��filenameS f��&language/assembly/compile-bytecode.scm g��importsS g��system g��base g��pmatch  � � g��target  � � � � g��vm g�� instruction  � � g��rnrs g�� bytevectors � � g��srfi g��srfi-1 ! � "g��selectS #g��fold $#� %!"$� &%� 'g��exportsS (� )g��set-current-module *)� +)� ,g��assq-ref -g��error .f��jump too far forward /f��jump too far backwards 0g��big 1g��instruction->opcode 2g��instruction-length 3f��$unhanded variable-length instruction 4g��length 5g��for-each 6f��!bad number of args to instruction 7g��prompt 8g��mv-call 9g��bind-optionals/shuffle-or-br :g��br-if-nargs-gt ;g��br-if-nargs-lt <g��br-if-nargs-ne =g��br-if-not-null >g�� br-if-null ?g�� br-if-not-eq @g��br-if-eq Ag�� br-if-not Bg��br-if Cg��br Dg�� load-array Eg��bytevector-length Fg��bytevector-copy! Gg�� load-symbol Hg�� string-length Ig�� char->integer Jg�� string-ref Kg��load-wide-string Lg�� string->utf32 Mg�� load-string Ng�� load-number Og�� make-char32 Pg�� load-program Qg�� byte-length Rg��make-bytevector Sf��failed to fill bytevector Tg��target-endianness Uf�� bad assemblyC�5��hp��r���]4    &'(5�4+�>��"��G���,-./0������h���i���]�LM�LC�����a�������g��filenamef��&language/assembly/compile-bytecode.scm \ ]  ] �  ���C12345���h���s���]LM��M�N�Ck�������g��x  ��g��filenamef��&language/assembly/compile-bytecode.scm �  � '�   ���C6789:;<=>?@ABCDEFGHIJKLMNOPQ#�h(������] M�4L�L>��"��G��M�C���������g��asm  &�g��address  &�g��start   &��g��filenamef��&language/assembly/compile-bytecode.scm n   o   p  $ q $ % q �  & ���C�+�hH �� ��]H"��v454J5� �������$��6 ��$��6M� LMM� LMM� LM M� M NCMLO�K��4545$��LMMN"���"� "� W"�"�"�9"�~"�"�"�I"�"�"�e"�"�"�?"�"�#"�"��"��7 $�� �64 5$��  LLO�6 �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 >��"��G��M NC""""�$����   &�� $��     (��w4 5 LM LM �LM  �M N"��, $��LM4 4! 55""�� "M NC""""�$����   "&�� $��x     (��d4# L5 4 5LM LM �LM  �M N4 LM>��"��G��MNC"/"+"'"#�$����   $&�� $��     (��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"""""��� ������g��asm  E�g��labels  E�g��address   E�g�� emit-opcode?   E�g��get-addr   E�g��label  �g��offset   �g��start  � ��g��inst  � E�g��args  � E�g��opcode  � E�g��len  � E�g��vx Y �g��vy Y �g��vx r �g��vy r �g��vx  �g��vy   �g��vx  �g��vy  �g��vx  �g��vy  �g��vx  �g��vy   �g��vx + (�g��vy + (�g��vx D  �g��vy D  �g��vx U �g��vy  U �g��vx  f �g��vy  f �g��vx  w �g��vy  w �g��vx   �g��vy   �g��vx    �g��vy    �g��vx   �g��vy   �g��vx 9 �g��vy 9 �g��vx R �g��vy R �g��vx c �g��vy  c �g��vx  t �g��vy  t �g��vx  <�g��vy  <�g��vx  4�g��vy  4�g��vx  0�g��vy   0�g��vx   ,�g��vy   ,�g��vx M �g��vy M �g��vx f �g��vy f �g��vx w �g��vy  w �g��vx   �g��vy   �g��vx  �g��vy  �g��vx  �g��vy  �g��vx  V�g��vy  V�g��vx 8 N�g��vy 8 N�g��vx g �g��vy g �g��vx  �g��vy  �g��vx  �g��vy  �g��vx  �g��vy  �g��vx  .�g��vy  .�g��vx  &�g��vy  &�g��vx ? v�g��vy ? v�g��vx X n�g��vy X n�g��vx  �g��vy  �g��vx  �g��vy  �g��vx  W�g��vy  W�g��vx  O�g��vy  O�g��len  K�g��vx h �g��vy h �g��vx  �g��vy  �g��len  �g��i   �g��vx  �g��vy  �g��vx 8 �g��vy 8 �g��x K �g��len  T �g��vx  i�g��vy  i�g��vx  a�g��vy  a�g��len  ]�g��i  ! M�g��vx z �g��vy z �g��vx �g��vy �g��len �g��i  �g��vx 1 r�g��vy 1 r�g��vx J j�g��vy J j�g��vx A�g��vy A�g��vx 9�g��vy 9�g��vx 5�g��vy  5�g��vx  1�g��vy  1�g��x  ��g��filenamef��&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 ��g��nameg��write-bytecode�CRE-SPQTU� ������h����-�1�3� "��d HHO�Q�4 5K4� >��"��G��J45$��DJ456�$����&��t$��e$��M$��44 $�� 45"�� 545�"' �6 �6 �6 �6 �6��������g��assembly �g��env �g��opts  �g��bv  q�g��target-endianness  q�g��pos   q�g��u32-bv   q�g��write-bytecode   q�g��vx  ~ �g��vy  ~ �g��vy  � ��g��vx  � ��g��vy  � ��g��vx  � ���g��filenamef��&language/assembly/compile-bytecode.scm  '   (  - ,  6 �  ; �  B �  M �  T � X �  ` � d �  i �  q � t �  � �  � � % � � ( � � 0 � � , � � % � �  � �  � �  � �  � � � �  � � � �  � �  �   �  �   � �#   ��g��nameg��compile-bytecode�CRC��j�������g��m  ,��g��filenamef��&language/assembly/compile-bytecode.scm   l  �  n ���C6���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/assembly/disassemble.go��������������������������������������������������������������������0000644�����������������00000025701�15253700563�0013003 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0+������]��4����h ������]� g��guile � g��define-module* � � g��language g��assembly g�� disassemble � g��filenameS f��!language/assembly/disassemble.scm g��importsS g��ice-9 g��format  � � g��srfi g��srfi-1 � � g��system g��vm g�� instruction � � g��program � � g��base g��pmatch � � !� "!� #g��compile $#� %$� & "%� 'g��exportsS (� )g��set-current-module *)� +)� ,f��Disassembly of ~A:  -g��disassemble-load-program .g�� decompile /g��fromS 0g��value 1g��toS 2g�� load-program 3g��assq-ref 4g��objects 5g�� free-vars 6g��meta 7g��blocs 8g��sources 9g��newline :g��for-each ;f��Embedded program ~A:  <g��reverse! =g�� byte-length >g��nop ?g�� print-info @g��code-annotation Ag��and=> Bg��assq Cg��source->string Dg��gensym Ef��� Fg��disassemble-free-vars Gg��disassemble-meta Hg��program? Ig��display Jf��)----------------------------------------  Kg�� vector->list Lg��error Mf��bad load-program form Nf��Free variables:  Og��fold Pg��make-syntax-transformer QP� RP� Sg��unless Tg��macro Ug�� $sc-dispatch VU� WU� Xg��_ Yg��any ZXY [g�� syntax->datum \[� ][� ^g�� datum->syntax _^� `^� ag��if bg��not cg��begin dg��syntax-violation ed� fd� gf��-source expression failed to match any pattern hg��name ih� jg��*uninteresting-props* kg��filter lg��memq mf�� Properties:  nf��~a:~a:~a og�� source:file pf��(unknown file) qg��source:line-for-user rg�� source:column sg�� make-int16 tg��assembly-unpack ug��list vg��vector wf�� ~a element~:p xg��br yg��br-if zg��br-if-eq {g�� br-if-not |g�� br-if-not-eq }g��br-if-not-null ~g�� br-if-null f��-> ~A �g��br-if-nargs-ne �g��br-if-nargs-lt �g��br-if-nargs-gt �g��bind-optionals/shuffle-or-br �g�� last-pair �g�� object-ref �f��~s �g�� local-ref �g��local-boxed-ref �g�� local-set �g��local-boxed-set �g�� binding:start �g�� binding:end �f��`~a'~@[ (arg)~] �g�� binding:name �g�� binding:index �g��list-ref �g��assert-nargs-ee/locals �g��assert-nargs-ge/locals �f��~a arg~:p, ~a local~:p �g��free-ref �g��free-boxed-ref �g��free-boxed-set �f��(closure variable) �g�� toplevel-ref �g�� toplevel-set �f��`~s' �g�� variable? �g��mv-call �f��MV -> ~A �g��prompt �f��H -> ~A �g��assembly->object �f��,~4@S ~32S~@[;; ~1{~@?~}~]~@[~61t at ~a~] C�5����h�����]4    &'(5�4+�>��"��G���,-./01�������h���l���]�L�6d�������g��filenamef��!language/assembly/disassemble.scm !  ! %  ! 1  ! �   ���C�h0������]4�>��"��G��4�O�>���6<��������������g��x  )��g��filenamef��!language/assembly/disassemble.scm           �  ) ��g��nameg�� disassemble�CR23456789:;-�����h ������]4�>��"��G���6�������g��sym+asm  ��g��filenamef��!language/assembly/disassemble.scm 1  2   2  2 4  2   3 (  3 6 3 �  ���C<=>?@ABCDEFGHIJ��h(������]4�5$��4>��"��G���6C��������g��x  '��g��filenamef��!language/assembly/disassemble.scm S  T  T   U   U "  U  % V �  ' ���CKLM���hP����]�$�9��&�$�$�$�$�� 45"��$�� 45"��$�� 45"��$�� 45"��$�� 45"��    "�(��-4>���"��G��4  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��"���$�� 456C�6�6�6�6�6������������g��asm  J�g��env  J�g��vx   B�g��vy   B�g��vx  ( 2�g��vy  ( 2�g��vy  6 *�g��vy  F "�g��objs  � "�g�� free-vars � "�g��meta � "�g��blocs � "�g��srcs � "�g��pos � �g��code  � �g��programs  � �g��asm  � �g��len  � �g��end   �g��vx   �g��vy   �g��vx  ] �g��sym  r ��g��filenamef��!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 ��g��nameg��disassemble-load-program�C-RINO?��������h ������]4�>��"��G��C�����������g��free-var  �g��i  ��g��filenamef��!language/assembly/disassemble.scm ]   ^  _ �   ���C���h ������]4>��"��G�� �6����������g�� free-vars  ��g��filenamef��!language/assembly/disassemble.scm [  \   \ \   ] �   ��g��nameg��disassemble-free-vars�CFR4RSTWZ]`abc�����h ������-�1�3����C�����y�������g��test �g��body ��g��filenamef��!language/assembly/disassemble.scm c d �  ���C����h���u���] 4�5L�4?6m�������g��args  �g��v ��g��filenamef��!language/assembly/disassemble.scm  c �   ���Cfg����h(���s���] 4�5$�� �O�@�6�k�������g��y  '�g��tmp '��g��filenamef��!language/assembly/disassemble.scm c �  ' ���C5SRijRklj��������h������]4�5C��|�������g��x  ��g��filenamef��!language/assembly/disassemble.scm i   j   j $ j  j �   ���CIm:?��������h���l���]�6�����d�������g��x  ��g��filenamef��!language/assembly/disassemble.scm n  n �  ���C9�������hH������] 4�5(��C4>��"��G��4>��"��G��6��������������g��meta  B�g��props  B��g��filenamef��!language/assembly/disassemble.scm h  i  k   i   i   l   m   m  " m  + n  B o �  B ��g��nameg��disassemble-meta�CGRnopqr��������h8������] 4�5$��"��4�54�56��������������g��src  1�g��t  !��g��filenamef��!language/assembly/disassemble.scm q  r  r   r   r . " s ) s % 1 r �  1 ��g��nameg��source->string�CCR�����h������]� �C�����������g��byte1  �g��byte2  ��g��filenamef��!language/assembly/disassemble.scm u  v  v �  ��g��nameg�� make-int16�CsRtuvwsxyz{|}~3A�����h���y���]��C������q�������g��obj  ��g��filenamef��!language/assembly/disassemble.scm �   � " � �  ���C�2���h��O��].45$��"��$�� 4?�C$��"��K$��"��=$��"��/ $��"��! $��"�� $��"�� $�� 45�C$��"��$��"��$�� 45�C$�� 4455�C$��$�� �CC$��"��!$��"��$��"��$��s$��k"��W $��N  "��   "4 5�$��*4 5�$��4 54 5�C""C45 "C $��"��!$��"  �C#$��"��$$��"��%$��&�C'$��"��($��?$��7 "��) �C4* 5$�� $��  �C""C+$��,45�C-$��.45�C/40516�������G������g��end-addr  �g��code  �g��objs   �g��nargs   �g��blocs   �g��labels   �g��code  �g��inst   �g��args   �g��bindings U �g��b _ �g��v 5 f�� g��filenamef��!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   ��g��nameg��code-annotation�C@R������h������]�6��������������g��addr  �g��info  �g��extra   �g��src   ��g��filenamef��!language/assembly/disassemble.scm �  �  � �   ��g��nameg�� print-info�C?RC������������g��m  ,��g��filenamef��!language/assembly/disassemble.scm     $ x [  f   f  h A q  u  x  � �   ���C6����������������������������������������������������������������language/glil/compile-assembly.go�������������������������������������������������������������������0000644�����������������00000120523�15253700563�0013063 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0;������]L�4��h������]� g��guile � g��define-module* � � g��language g��glil g��compile-assembly � g��filenameS f��"language/glil/compile-assembly.scm g��importsS g��system g��base g��syntax  � � g��pmatch  � � � � g��assembly � � g��vm g�� instruction  � � g��program  � g��selectS !g�� make-binding "!� # "� $g��ice-9 %g��receive &$%� '&� (g��vlist )$(� *)� +g��srfi ,g��srfi-1 -+,� .g��fold /.� 0- /� 1g��rnrs 2g�� bytevectors 312� 43� 5#'*04�  6g��exportsS 7� 8g��set-current-module 98� :8� ;g�� vlist-ref <g�� vlist-length =g��vhash-fold-right2 >g��fold2 ?g�� vector-length @g�� vector-fold2 Ag��make-record-type Bf��<variable-cache-cell> Cg��key DC� Eg��<variable-cache-cell> Fg��make-variable-cache-cell Gg��record-predicate Hg��variable-cache-cell? Ig��make-procedure-with-setter Jg��record-accessor Kg��record-modifier Lg��variable-cache-cell-key Mg��reverse! Ng��assq-ref Og��filename Pg��line Qg��column Rg�� limn-sources Sg��append TS� US� Vg�� dump-object Wg��return XW� YX� Zg�� load-program [g��addr+ \g�� make-meta ]g��object->assembly ^g�� immediate? _g�� last-pair `g�� scheme-list? ag�� vhash-assoc bg��number? cg��string? dg��keyword? eg�� vhash-cons fg��array? gg��error hf��)build-constant-store: unrecognized object ig�� array-shape jg�� vector->list kg��<glil-program> lg��glil-program-body mg��glil-program-meta ng�� <glil-const> og��glil-const-obj pg��<glil-kw-prelude> qg��glil-kw-prelude-kw rg��<glil-toplevel> sg��glil-toplevel-name tg��glil-toplevel-op ug�� <glil-module> vg��glil-module-mod wg��glil-module-name xg��glil-module-public? yg��glil-module-op zg�� vlist-null {g��build-constant-store |f��unhandled record }g��build-object-table ~g��make-open-binding g��make-closed-binding �g��map �f��unknown binding type �g�� open-binding �f��broken bindings �g�� close-binding �g��cdr �g�� stable-sort �g��reverse �g��close-all-bindings �g�� open-arity �f�� bad arities �g�� close-arity �g�� begin-arity �g��compile-program �g�� byte-length �g�� vlist-null? �g��dump-constants �g�� align-program �g�� tail-call � � �� �g�� make-list �g��nop �� �g��glil->assembly �� �g�� make-false �� �� �g�� object-ref �g��long-object-ref �f��vcache cell key not in table �g�� glil-program? �g��compile-objtable �f��unrecognized constant �� �g��vector �g��<glil-std-prelude> �g��glil-std-prelude-nreq �g��glil-std-prelude-nlocs �g��glil-std-prelude-else-label �g��br-if-nargs-ne �g��assert-nargs-ee �g��reserve-locals �g��assert-nargs-ee/locals �g��<glil-opt-prelude> �g��glil-opt-prelude-nreq �g��glil-opt-prelude-nopt �g��glil-opt-prelude-rest �g��glil-opt-prelude-nlocs �g��glil-opt-prelude-else-label �g��br-if-nargs-lt �g��assert-nargs-ge �g��bind-optionals �g�� push-rest �g��br-if-nargs-gt �g��glil-kw-prelude-nreq �g��glil-kw-prelude-nopt �g��glil-kw-prelude-rest �g��!glil-kw-prelude-allow-other-keys? �g��glil-kw-prelude-nlocs �g��glil-kw-prelude-else-label �g��and=> �f��kw not in objtable �g��max �g��1+ �g��bind-optionals/shuffle �g��bind-optionals/shuffle-or-br �g�� bind-kwargs �g�� bind-rest �g�� <glil-bind> �g��glil-bind-vars �g��<glil-mv-bind> �g��glil-mv-bind-vars �g��glil-mv-bind-rest �g��integer? �g��truncate-values �g��length �g�� <glil-unbind> �g�� <glil-source> �g��glil-source-props �g�� <glil-void> �g��void �� �� �f��const not in table �g��<glil-lexical> �g��glil-lexical-local? �g��glil-lexical-boxed? �g��glil-lexical-op �g��glil-lexical-index �g��ref �g��local-boxed-ref �g�� local-ref �g��set �g��local-boxed-set �g�� local-set �g��box �g�� empty-box �g��fix �g�� fix-closure �g��bound? �g��variable-bound? �� �� �g�� local-bound? �f��what �g��long-local-ref �g�� variable-ref �� �� �g�� variable-set �� �� �g��long-local-set �g�� make-variable �� �g��long-local-bound? �g��free-boxed-ref �g��free-ref �g��free-boxed-set �f��what. �g�� toplevel-ref �g�� toplevel-set �g��long-toplevel-ref �g��long-toplevel-set �f��toplevel name not in objtable �g��link-now �� g��define � � f��unknown toplevel var kind f��module vcache not in objtable f��unknown module var kind g�� <glil-label> g��glil-label-label  g�� align-block  g�� <glil-branch>  g��glil-branch-inst  g��glil-branch-label  g�� <glil-call> g��glil-call-inst g��glil-call-nargs g�� instruction? f��Unknown instruction: g��instruction-pops g��instruction-length f��,Unknown length for variable-arg instruction: f��/Wrong number of stack arguments to instruction: g��<glil-mv-call> g��glil-mv-call-nargs g��glil-mv-call-ra g��mv-call g�� <glil-prompt> g��glil-prompt-label g��glil-prompt-escape-only? g��prompt g�� load-number g��number->string  g��string-bytes-per-char !g�� load-string "g�� align-code #g��load-wide-string $f��bad string bytes per char %g��symbol->string &g�� load-symbol 'g�� make-symbol ('� )(� *g��keyword->symbol +g�� make-keyword ,+� -,� .g�� string-append /f��list 0f�� too long 1g��list 2g��cons 32� 43� 5g�� array-type 6g�� load-array 7g��uniform-array->bytevector 8g��array-contents 9g�� make-array :f�� dump-object: unrecognized object ;f��vector <f�� write-table: unrecognized object =g��dup >=� ?g�� vector-set @?� A@� B � C � DBC� ED� F � Gg�� new-frame HG� Ig��call JI � KCJ�C�5���h��A��]4    5675�4:�>��"��G���;�����hH���6��]� $��D4L�54L�>�� G���"�.������g��i  G�g��s0  G�g��s1   G�g��pair   .�g��s0  / G�g��s1  / G��g��filenamef��"language/glil/compile-assembly.scm $   %  %   &   ' %  ' 6  ' %  '   (  " ( ! % ( , . (  2 '  9 )  G ) �  G ��g��nameg��lp�C<�����h(������] O��Q�456�����������g��proc  $�g��vhash  $�g��s0   $�g��s1   $�g��lp  $��g��filenamef��"language/glil/compile-assembly.scm # $   $  $ $ �  $ ��g��nameg��vhash-fold-right2�C=R��h8������]�(��D4L��>�� G���"���������g��ls  6�g��s0  6�g��s1   6�g��s0   6�g��s1   6��g��filenamef��"language/glil/compile-assembly.scm ,   -   .   /   /   /  ! /  ( 0  6 0 �  6 ��g��nameg��lp�C��������h ������] O��Q�6�����������g��proc  �g��ls  �g��s0   �g��s1   �g��lp  ��g��filenamef��"language/glil/compile-assembly.scm + , �   ��g��nameg��fold2�C>R?�������h@������]�L$��*4L�L�>�� G���"D������������g��i  ;�g��s0  ;�g��s1   ;�g��s0   5�g��s1   5��g��filenamef��"language/glil/compile-assembly.scm 4   5 5  6   6 !  6  6 ' 7  5 7 ; 8 �  ; ��g��nameg��lp�C�h0������]45O��Q� 6�������������g��proc  *�g��vect  *�g��s0   *�g��s1   *�g��len  *�g��lp   *��g��filenamef��"language/glil/compile-assembly.scm 2  3 3   4 �  * ��g��nameg�� vector-fold2�C@R4AiBD5ERE������h������-�1�3���C��������������g��key �g��defrec-4ed7d27bcd936f9-49d ��g��filenamef��"language/glil/compile-assembly.scm @ �  ��g��nameg��make-variable-cache-cell�CFR4GiEi5HR4Ii4JiEiC54KiEiC55LRMNOPQ�h���C��]9"��(��6454545$��E(��"�� $��""y"Y�"K�����;������g��sources  ��g��in  ��g��out   ��g��filename   ��g��addr  7 ��g�� new-filename  7 ��g��line  7 ��g��column  7 ���g��filenamef��"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 �'  � ��g��nameg�� limn-sources�CRRUVYZ[����h0�����] 44� 554 5C�������g��bindings  /�g��sources  /�g��arities   /�g��tail   /�g��body   /��g��filenamef��"language/glil/compile-assembly.scm \  ]   ]   ]   ]   ]   ]   _  `  ( _ �  / ��g��nameg�� make-meta�C\R]��������h������]�6{�������g��x  ��g��filenamef��"language/glil/compile-assembly.scm f  g �   ��g��nameg�� immediate?�C^R_����h0������] �$��!�&��C4�5$��CCC�����������g��x  ,�g��p  *��g��filenamef��"language/glil/compile-assembly.scm k  l  l  m   m   m  n   n  o  " o % p  & p  ' p �  , ��g��nameg�� scheme-list?�C`Ra^bcde<HL.��h������]L��6������z�������g��x  �g��store  ��g��filenamef��"language/glil/compile-assembly.scm �  � �  ���Cfghi?��h������]L��6������z�������g��x  �g��store  ��g��filenamef��"language/glil/compile-assembly.scm �  � �  ���Cj�h`��r��] 4�5$���C45$���C45$��"��#45$��"��$��"��45$��4�5�645$�� 4L��4 55456$��"4  L�O��5456$��$4L�4L��55456"��#4 5$��4�5�6 6$��F45 45��$��'4 L�O��455456""��j������g��store  ^�g��x  ^�g��store  � ��g��store  � ��g��store  � ��g��store  D V��g��filenamef��"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  ^ ��g��nameg�� add-to-store�Cklm.nopqrstuvwxyF��������h�����]"�&��%4�54�>��"��G��L6&��4�5L�6&��4�5L�6 &��#4 �54 �>��"��G��L�6 &��A4 �54�54�54�>��"��G��L�4�56C���������g��x  ��g��store  ��g��rtd   ��g��body   4�g��obj  C M�g��kw  \ f�g��name  u ��g��mod  � ��g��name  � ��g��public?  � ��� g��filenamef��"language/glil/compile-assembly.scm �   �  4 �  < �  M �  U �  f �  n �  � �  � �  � �  � � / � �  � � �  � ��g��nameg��walk�Cz�����h(������]O�Q�O�Q��6��������g��x  '�g�� add-to-store '�g��walk   '��g��filenamef��"language/glil/compile-assembly.scm y  � �  ' ��g��nameg��build-constant-store�C{Rklm.kmlae<no^pqrstFuvwxy�������hx����]*�&��D4�>��"��G��4�>��"��G��4�5$��C�456&��74�54 5$��C45$��C456 &��)4 �545$��C456 &��D4 �54�>��"��G��4545$��C456&��]4�54�54�54�>��"��G��4�545$��C456C�������g��x  w�g��table  w�g��rtd   w�g��obj  b ��g��kw  � ��g��name  � �g��x  � �g��mod  , t�g��name  , t�g��public?  , t�g��x  R t�� g��filenamef��"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@������]�&��%4�54�>��"��G��6�6�����������g��x  <�g��rtd  <�g��body   4��g��filenamef��"language/glil/compile-assembly.scm �  �  4 �  8 � �  < ��g��nameg��build-object-table�C}R��h������]��C�����������g��name  �g��boxed?  �g��index   ��g��filenamef��"language/glil/compile-assembly.scm � � �  ��g��nameg��make-open-binding�C~R!�h������]���6���������g�� open-binding  �g��start  �g��end   ��g��filenamef��"language/glil/compile-assembly.scm �  �  � #  �   � �   ��g��nameg��make-closed-binding�CR~g��������hh�����]1�$��T��$��;$��"(�� 6�6�6�6�6���������g��v  e�g��vx  ]�g��vy   ]�g��vx  U�g��vy  U�g��vx  1 M�g��vy  1 M��g��filenamef��"language/glil/compile-assembly.scm �  � E �  I �  M �  Q �  U �  Y �  ] �  a �  e � �  e ���C������h������]45��C��������g��bindings  �g��vars  �g��start   ��g��filenamef��"language/glil/compile-assembly.scm �  �  �   �  �   �   � �   ��g��nameg�� open-binding�CR.����h������]L4�LL�5C�����������g��o  �g��tail  ��g��filenamef��"language/glil/compile-assembly.scm �   �  � �   ���Cg�������hh���H��]2�$��R��$��9$�� 4O�5C�6�6�6�����@������g��bindings  c�g��end  c�g��vx   [�g��vy   [�g��vx  S�g��vy  S�g��vx  1 K�g��vy  1 K��g��filenamef��"language/glil/compile-assembly.scm �  �  8 � J �  O �  S � W �  [ � _ �  c � �  c ��g��nameg�� close-binding�CR��h������]�C�������������g��x  �g��y  ��g��filenamef��"language/glil/compile-assembly.scm     )   1  &�  ���C�h0������]�(��44�5564�56����������g��bindings  -�g��end  -��g��filenamef��"language/glil/compile-assembly.scm �  � �         !       �  !   -  �  - ��g��nameg��close-all-bindings�CR�����h`���4��]$����"��>$����"��)$�� ��"��$�� ��"����C�����,������g��addr  [�g��nreq  [�g��nopt   [�g��rest   [�g��kw   [�g��arities   [��g��filenamef��"language/glil/compile-assembly.scm           *  4   =  G   N  W  Z  �  [ ��g��nameg�� open-arity�CRg�hH�����]"(��C$��/$���C66������g��addr  H�g��arities  H�g��vx   @�g��vy   @�g��vx  ( 8�g��vy  ( 8��g��filenamef��"language/glil/compile-assembly.scm         3   <   @  D   H  �  H ��g��nameg�� close-arity�CR��������h ������]4�56��������������g��end  �g��start  �g��nreq   �g��nopt   �g��rest   �g��kw   �g��arities   ��g��filenamef��"language/glil/compile-assembly.scm    &   �   ��g��nameg�� begin-arity�CR{Z[U� �����hx���s��])4�54�54>��"��G��45$��C4>�� G�4545 4 4  55Ck������g��glil  x�g�� all-constants x�g��prog   x�g�� tablecode  A x�g��addr  A x�g��prog  Q x��g��filenamef��"language/glil/compile-assembly.scm               ) %  3 $  7 + D +  I ,  Q ,  U . W /  b /  c . �  x ��g��nameg��compile-assembly�CRkml.SRM\ZU[���h���o��]?�(��45454455454455   4  L5  $��   "��      4  $�� 4   5"��5C4 �L�>�� G�   �   45�"g������g��body  ��g��code  ��g��bindings   ��g�� source-alist   ��g�� label-alist   ��g��arities   ��g��addr   ��g��code  < ��g��bindings  < ��g��sources < ��g��labels < ��g��arities < ��g��meta S ��g��meta-pad k ��g��subcode  � ��g��bindings  � ��g�� source-alist � ��g�� label-alist � ��g��arities � ���g��filenamef��"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 �'  � ��g��nameg��lp�Cg|��������hP���1��]"�&��24�54�5O�Q� 6�6�������)������g��glil  I�g�� constants  I�g��rtd   I�g��meta   A�g��body   A�g��lp  + A��g��filenamef��"language/glil/compile-assembly.scm 9  :  + <  9 < ; < / < < D = =  > = ) A <  E : �  I ��g��nameg��compile-program�CR=aHLg}U[���hH����]44�L�5$��U �$����  "��!"�� � ���  "�� G�D4�5$��s44�5L�5$��U �$����  "��!"�� � ���  "�� G�D�64�5$��L4 �54 �54 L�>�� G�4 5 4  54 5D�6���������g��obj  E�g��idx  E�g��codes   E�g��addr   E�g��t  E�g��idx   T�g��load  U h�g��len  U h�g��t  � ��g��idx  � ��g��load  � ��g��len  � ��g��table  � =�g��prog   =�g�� tablecode   =�g��addr   =�g��prog $ =��g��filenamef��"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$��D4�O�>�� G�454  � ���5 D������g�� constants  `�g��table  `�g��addr   `�g��elts  + `�g��addr  + `�g��len  : `��g��filenamef��"language/glil/compile-assembly.scm X  a  `   c  d  c   h "  %   * h . f  3   :   :   =  C   I   O  0 R   Y  ^  `  �  ` ��g��nameg��compile-objtable�CRkmla}U[pqgno]rtsF�uyvwx     |�h0 ��Q��]�&��4�>��"��G��4�>��"��G��4�5$��;  �$�� ��"�� � ���D4�5 4� 5 4  >�� G�  4  4   55  D &��4 �54�54�5  "��F $�� � � �"�� � �� � ���"��F $��9  $��% $��""��  ��"��"|"��"t  44 55D&�@4�54�54�54�54�5     $�� � � ��"�� � ��� $��"��  � ��� $�� � ���"��@ $��   � � ��"�� � ��� 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&��45�5465D7&��k48�549�5 4:5$�� ; $�� "�� ��D;4<5 $�� "�� ��465D=&��4>5D?&��4@�5DA&�� BDC&��4D�54E5  $�� �  D45  $��;   �$�� ��"�� � ���D+F6G&�e4H�54I�54J�54K�5   $� �$�� 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+d�5"�� 4+Y 5 ��  De&�4f�54g�5 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&��4t�54u�54v�54w�5      � 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~�54�5  ��  D&��4�54�5 45$��"��4+>��"��G��45  $��c45  $�� ��  D $��" � ���  D+456  $����  D+ 6&��,4�54�5  ��  D&��64�54�5  $�� "�� ��  D+�6��I������g��glil  .�g��bindings  .�g�� source-alist   .�g�� label-alist   .�g�� constants   .�g��arities   .�g��addr   .�g��rtd   .�g��t  < ��g��i G �g��table � ��g��prog � ��g�� tablecode � ��g��addr � ��g��x � ��g��nreq  � �g��nlocs � �g�� else-label � �g��x z �g��nreq   �g��nopt  �g��rest  �g��nlocs  �g�� else-label  �g�� bind-required  �g��bind-optionals   �g�� bind-rest   �g��x   �g��nreq   �g��nopt  �g��rest  �g��kw  �g��allow-other-keys?  �g��nlocs  �g�� else-label   �g��t  < T�g��kw-idx  T �g�� bind-required   �g��ntotal   �g��bind-optionals-and-shuffle   �g��bind-kw  M �g�� bind-rest  z �g��code   �g��vars   �g��vars   x�g��rest  x�g��props   �g��obj   O�g��t  O�g��x  �g��t  O�g��i  G�g��local?  s �g��boxed? s �g��op s �g��index s �g��a k \�g��b k \�g��x  �g��op   x�g��name  x�g��t  �g��x p ~�g��t �g��i �g��x �g��t  5�g��i 5 n�g��x ` n�g��op  u�g��mod u�g��name u�g��public? u�g��key u�g��t �g��i k�g��x  ] k�g��label  �g��code �g��inst  �g��label �g��x �g��inst  �g��nargs �g��pops  �g��key / �g��x C Q�g��x n |�g��x �g��nargs  �g��ra �g��x �g��label  &�g�� escape-only? &�g��x  &��_g��filenamef��"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   |      "                                      &   *    . ��g��nameg��glil->assembly�CR]HVLbc !"#g$%&U)d*-`./01.S[4f5i678?9:;�+���h��a ��]:4�5$���C4�5$�� 4�564�5$��4�5��C4�5$��>4 �5 $��  ���C $��  ��  6 �6�$��E4�54 5 $�� ��C $��456 64�5$��44�5564�5$��4�5�������$��4 45>��"��G��"��� � ���"��7(�� 64545"�"�$��*4�544�45556"� 4 �5$��4!�5$��Y44!�5544"�545544 #4$�5�4455  5564%�54&5"��m$��)4545"444"�55' � � ���56 " (�6�$��4"�5 4&�5��$��4&�5�������$��4 4)55"��* � ���"��<$�� 64�545" ""B">�������Y ������g��x  �g��addr  �g��t  �g��key  \ ��g��str  � ��g��key  � ��g��len   V�g��tail  V �g��objects  \ �g��codes  \ �g��addr  \ �g��code  v �g��kar   �g��type   G�g��shape   G�g��contents  N �g��len  W �g��i  ] �g��codes  ] �g��addr  ] �g��code  r �g��len   �g��tail  A �g��i  G �g��codes  G �g��addr  G �g��code  f ��g��filenamef��"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           &   �   ��g��nameg�� dump-object�CVRa�hp���v��]4�L�5"�� L�6$��I$��; �$���� D � ��� D""��n������g��x  n�g��i  n�g��addr   n�g��pair  n�g��idx  . f��g��filenamef��"language/glil/compile-assembly.scm $   %  %   .  &  $ &  ' &  + & . '  . ' 6 (  : ( < )  I *  K )  M +  S + , Y , , \ +  d -  f + �  n ��g��nameg�� ref-or-dump�C]bcdV[HL`>�h(������]4L�L�>�� G�D��������������g��x  !�g��codes  !�g��addr   !�g��subcode   !�g��addr   !��g��filenamef��"language/glil/compile-assembly.scm @   A +  A   B  ! B �  ! ���C.S1U4f5i"678@�����h(������]4L�L�>�� G�D��������������g��x  !�g��codes  !�g��addr   !�g��subcode   !�g��addr   !��g��filenamef��"language/glil/compile-assembly.scm e   f 4  f   g & ! g �  ! ���C?9g<������h(������]4L�L�>�� G�D��������������g��x  !�g��codes  !�g��addr   !�g��subcode   !�g��addr   !��g��filenamef��"language/glil/compile-assembly.scm R   S 2  S   T $ ! T �  ! ���C�"����h��W��];4�5$���45D4�5$��"��#4�5$��"���$��"��4�5$��4�545D4�5$��4 �5�"q4 �5$��N4  L�O��>�� G�4 4�5 � ���5 D�$��C4L��>�� G�4L��>�� G�4455D"�4�5$��4�5$��j4L�4�5>�� G�4L�4�5>�� G�44�5�  5445545D4�54L�O�>�� G�4L�4�5>�� G�4 45 4 � � � ��5 5 D�6�$��4�5������$��m4�5 4�5��$��N4 L�O��>�� G�4 4�5! � ���5 D"i"e"a�O������g��x  �g��i  �g��addr   �g��t  �g��code  b q�g��codes  � ��g��addr  � ��g��len  � ��g��car-code   4�g��addr   4�g��cdr-code   4�g��addr   4�g��type  c �g��addr  c �g��shape  ~ �g��addr  ~ �g��bv   �g��contents   >�g��codes   >�g��addr   >�g��shape   >�g��addr   >�g��len  3�g��codes   �g��addr   �g��len   ��g��filenamef��"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 �   ��g��nameg��dump1�C=>][A�h@���A��]45�4L��45>�� G�D���9������g��obj  =�g��idx  =�g��code   =�g��addr   =�g��pre   =�g��valcode  & =�g��addr  & =��g��filenamef��"language/glil/compile-assembly.scm v   y &  z )  y &  y   { 5  | < % { 5 ) {  / } . 6 } ' ;  ' = } �  = ���CE<Z.SYUFHCK[�����h���J��]9O�O��Q�Q�4O�� >�� G�4�5    44   55 �4 45 � ��4 5545  D���B������g�� constants  ��g�� ref-or-dump  ��g��dump1   ��g��codes  8 ��g��addr  8 ��g��len  G ��g�� pre-prog-addr  Y ��g��prog  x ���g��filenamef��"language/glil/compile-assembly.scm # # v  0   7 v  ; u  @   G   G   N   Y   \   `   d  " e   f  $ l  1 p  $ q   x   x   |   ~  ) �   �   �  ! �   �   �   �  - �   �   �   �  �"  � ��g��nameg��dump-constants�CRC�9������g��m  ,��g��filenamef��"language/glil/compile-assembly.scm    #  +  2  @ B * \ f  k  y T � ) � + � " � %[ � 'I � (  *h  +  -  3 9 ;, X b  p|  ������ # � ������ ���C6������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/glil/spec.go�������������������������������������������������������������������������������0000644�����������������00000003126�15253700563�0010547 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0>������]�-�4�h������]� g��guile � g��define-module* � � g��language g��glil g��spec � g��filenameS f��language/glil/spec.scm g��importsS g��system g��base  � � � � g��compile-assembly � � � g��exportsS � g��set-current-module � � g��write g�� unparse-glil g�� write-glil g�� compile-asm g��invalidate-compilation-cache! !g�� make-language "g��nameS #g��titleS $f��+Guile Lowlevel Intermediate Language (GLIL) %g��readerS &g��read 'g��printerS (g��parserS )g�� parse-glil *g�� compilersS +g��assembly ,g�� for-humans?SC�5�����h�����]4    5�4�>��"��G�������h������-�1�3�4�5@���������g��exp �g��port ��g��filenamef��language/glil/spec.scm      �  ��g��nameg�� write-glil�CR���h������]4�5D��������g��x  �g��e  �g��opts   ��g��filenamef��language/glil/spec.scm      �   ��g��nameg�� compile-asm�CR4 i>���"��G��4!i"#$%&�����h���u���]�6m�������g��port  �g��env  ��g��filenamef��language/glil/spec.scm "   " #�   ���C'i()i*+i�,5RC��������g��m  ,��g��filenamef��language/glil/spec.scm   �      !  u %   �   ���C6�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/assembly.go��������������������������������������������������������������������������������0000644�����������������00000023304�15253700563�0010505 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0&������]�g�4�������h������]� g��guile � g��define-module* � � g��language g��assembly � g��filenameS f��language/assembly.scm g��importsS g��rnrs g�� bytevectors   � � g��system g��base g��pmatch � � g��vm g�� instruction � � g��srfi g��srfi-1 � g��selectS g��fold � � � !g��exportsS "g�� byte-length #g��addr+ $g�� align-program %g�� align-code &g�� align-block 'g�� assembly-pack (g��assembly-unpack )g��object->assembly *g��assembly->object +"#$%&'()*�  ,g��set-current-module -,� .,� /g��*program-header-len* 0g�� *len-len* 1g�� load-program 2g��error 3f��unknown instruction 4g�� load-array 5g��bytevector-length 6g�� load-symbol 7g�� string-length 8g��load-wide-string 9g�� load-string :g�� load-number ;g��instruction-length <g��*program-alignment* =g�� make-list >g��nop ?>� @g��code-alignment Ag��append BA� CA� Dg�� make-int8 ED � Fg�� make-int8:0 GEF� HD � Ig�� make-int8:1 JHI� KGJ� Lg��*abbreviations* Mg��map Ng�� *expansions* Og�� assoc-ref Pg�� make-true QP� Rg�� make-false SR� Tg��make-nil UT� Vg��make-eol WV� Xg��char? Yg�� char->integer Zg�� make-char8 [g�� make-char32 \g��integer? ]g��exact? ^g�� make-int64 _g��bytevector->u8-list `g��make-bytevector ag��big bg�� make-uint64 cg�� make-int16 dg��string->symbol eg�� integer->char fg��u8-list->bytevectorC�5�������h�����]4    !+5�4.�>��"��G��� /R 0R1/"234056789:;��hP����]1"�"�"�z"�'"��"���$��~��&��d$��U$��=$��$$�� 45"�� C�6�6�6�6 C�$��A��&��+$�� (�� 45C"9"5"1"-�$��A�� &��+$�� (�� 4 5C""""�$��D�� &��.$��#(�� 4 5C""""�$��A�� &��+$�� (�� 4 5C"F"B">":�$��A�� &��+$�� (�� 4 5C""""�$��#��45 $�� 45C""��������g��assembly  N�g��vx ' ��g��vy  ' ��g��vy  = ��g��vx  P ��g��vy  P ��g��vx  ^ �g��vx � ��g��vy  � ��g��vx  � ��g��vy  � ��g��vx � 5�g��vy  � 5�g��vx   -�g��vy   -�g��vx F �g��vy  F �g��vx  _ |�g��vy  _ |�g��vx  �g��vy   �g��vx   �g��vy   �g��vx  �g��vy   �g��vx   �g��vy   �g��vx * J��g��filenamef��language/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 ��g��nameg�� byte-length�C"R <R"���h���y���]4�5C���q�������g��x  �g��len  ��g��filenamef��language/assembly.scm =   =  = �  ���C����h������]�6����~�������g��addr  �g��code  ��g��filenamef��language/assembly.scm < = �  ��g��nameg��addr+�C#R=?�������h������]�6���������g��addr  �g�� alignment  �g�� header-len   ��g��filenamef��language/assembly.scm A C  C   B   B  E  B �   ��g��nameg��code-alignment�C@R�������h���z���]C����r�������g��addr  ��g��filenamef��language/assembly.scm G  H �   ��g��nameg�� align-block�C&RC@���h������]45��6���������g��code  �g��addr  �g�� alignment   �g�� header-len   ��g��filenamef��language/assembly.scm J  K   K �   ��g��nameg�� align-code�C%R%<���h������]� 6����������g��prog  �g��addr  ��g��filenamef��language/assembly.scm N O �  ��g��nameg�� align-program�C$RKLR4Mi���h���p���]��C������h�������g��x  ��g��filenamef��language/assembly.scm Z   Z   Z ! Z �  ���CLi5NROL�������h ������] 4�5$��C�C��������������g��code  �g��t ��g��filenamef��language/assembly.scm \  ]  ] �   ��g��nameg�� assembly-pack�C'RON���h ������] 4�5$��C�C��������������g��code  �g��t ��g��filenamef��language/assembly.scm `  a  a �   ��g��nameg��assembly-unpack�C(RQSUWXYZ[\]^_`abc'D�h����] �&��C�&��C�&��C�(��C"��64�5$��)4�5 �$�� 4�5�C4�5�CC4 �5$�#4 �5$�"��O�������� $��"��$�� 4 4 5 �5CC"��? �$��3�$��4 4 5 �5C"r"n"��P ��$��B��������$��.� $����������"��� � ��C"q"m �$��� �$��� ��6""""���������g��x  �g��b � ��g��bv � ��g��bv � �g��n G [��g��filenamef��language/assembly.scm i j  j   j   k   j   l  & j  ( m  .  8 j  9 �  C �  G � I �  J �  S �  V �  W �  ` �  c j  d n  n j  o n  y n � y  � y  � o � z  � z  � { * � { � | > � | " � 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   ��g��nameg��object->assembly�C)R6d9[eZ^fabcDVTRP���h��<��]"�"�"�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$��?(��+ ��������$��C�������C"/"+"'"#"�$��I�� &��3$��((�� �$��C �C""""�$��"�� &�� (��C"""�$��"��&�� (��C"m"i"e�$��"��&�� (��C"<"8"4�$��"��&�� (��C" ""�����4������g��code  �g��vx ; j�g��vy  ; j�g��vx  T f�g��vy  T f�g��vx y ��g��vy  y ��g��vx  � ��g��vy  � ��g��vx � Q�g��vy  � Q�g��vx  � I�g��vy  � I�g��vx  � E�g��vy  � E�g��vx  � A�g��vy  � A�g��vx  =�g��vy  =�g��vx b �g��vy  b �g��vx  { �g��vy  { �g��vx  �g��vy   �g��vx   �g��vy   �g��vx   {�g��vy   {�g��vx   w�g��vy   w�g��vx  s�g��vy  s�g��vx  o�g��vy  o�g��vx  k�g��vy   k�g��vx  ' g�g��vy  ' g�g��vx  8 c�g��vy  8 c�g��vx  w�g��vy   w�g��vx   o�g��vy   o�g��vx   k�g��vy   k�g��vx   g�g��vy   g�g��vx  c�g��vy  c�g��vx  _�g��vy  _�g��vx  [�g��vy   [�g��vx   W�g��vy   W�g��vx  ( S�g��vy  ( S�g��vx  �g��vy   �g��vx   �g��vy   �g��vx   �g��vy   �g��n   �g��vx  K�g��vy   K�g��vx  ! C�g��vy  ! C�g��vx \ x�g��vy  \ x�g��vx  �g��vy   �g��vx  �g��vy   �g��vx  �g��vy   ��Ng��filenamef��language/assembly.scm �  �  d �  l �   �  , �  - �  3 �  4 �  9 �  = �   �   �  C �  X �  Z �  ] �  ^ �  c �  3 �  H �  J �  M �  N �  S �   �   �   �   �  �   �   �  1 � 5 �  > �  C �  o �  t � �'   ��g��nameg��assembly->object�C*RC��������������g��m  ,��g��filenamef��language/assembly.scm   .   1  6 " w % | :  <  A ] G M J  N  V   U  Z  Y m \ 7 `  i  � �   ���C6�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/bytecode/spec.go���������������������������������������������������������������������������0000644�����������������00000003163�15253700563�0011417 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0[������]�+�4���h������]� g��guile � g��define-module* � � g��language g��bytecode g��spec � g��filenameS f��language/bytecode/spec.scm g��importsS g��system g��base  � � g��vm g��objcode  � � � g��exportsS � g��set-current-module � � g��bytecode->objcode g��compile-objcode g��objcode->bytecode g��decompile-objcode g��invalidate-compilation-cache! g�� make-language !g��nameS "g��titleS #f��Guile Bytecode Vectors $g��readerS %g��read &g��printerS 'g��write (g�� compilersS )g�� decompilersS *g�� for-humans?SC�5���h�����]4    5�4�>��"��G���������h������]4�5D��������g��x  �g��e  �g��opts   ��g��filenamef��language/bytecode/spec.scm      �   ��g��nameg��compile-objcode�CR������h������]4�5D����������g��x  �g��e  �g��opts   ��g��filenamef��language/bytecode/spec.scm     �  ��g��nameg��decompile-objcode�CR4i>���"��G��4 i!"#$%���h���y���]�6q�������g��port  �g��env  ��g��filenamef��language/bytecode/spec.scm !   ! #�   ���C&'i(i�)i�*5RC��������������g��m  ,��g��filenamef��language/bytecode/spec.scm   �         #   $    �   ���C6��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/objcode/spec.go����������������������������������������������������������������������������0000644�����������������00000006512�15253700563�0011227 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.02 ������]�D�4��h������]� g��guile � g��define-module* � � g��language g��objcode g��spec � g��filenameS f��language/objcode/spec.scm g��importsS g��system g��base  � � g��vm  � � g��program  � � � g��exportsS � g��set-current-module � � g�� make-program g��current-module g��save-module-excursion g��objcode->value !g��map "g��cdr #g��sort! $g��assv-ref %g�� binding:index &g��append! 'g��collapse-locals (g��program? )g��program-objects *g�� program-meta +g��program-free-variables ,g��program-bindings -g��program-sources .g��program-objcode /g��objects 0g��meta 1g�� free-vars 2g��blocs 3g��sources 4g��objcode? 5g��error 6f��/Object for disassembly not a program or objcode 7g��decompile-value 8g��invalidate-compilation-cache! 9g�� make-language :g��nameS ;g��titleS <f��Guile Object Code =g��readerS >g��printerS ?g�� write-objcode @g�� compilersS Ag��value Bg�� decompilersS Cg�� for-humans?SC�5������h�����]4    5�4�>��"��G����������h ���d���]�4L>��"��G��4L�5�LLD�\�������g��filenamef��language/objcode/spec.scm  !  "   " �   ���C�h0������] 4�545�&�� 45�DO�6�������g��x  0�g��e  0�g��opts   0�g��thunk  0��g��filenamef��language/objcode/spec.scm                #   0  �  0 ��g��nameg��objcode->value�C R!"#��h������]�C������{�������g��x  �g��y  ��g��filenamef��language/objcode/spec.scm ,   , )  , 1 , &�  ���C$%&����h���r��]!"��n(��4564455$��$4�>��"��G��"45�"�"�j������g��locs  �g��ret  t�g��locs   t�g��b   t�g��t  . t��g��filenamef��language/objcode/spec.scm (  )  *   +   +   -   -  ! / & /  . / . . 7 1  @ 1 # E 1  R 2  Z 2  [ 4  f 4 ) i 4  l 5  t 4 t )  u )   ) �   ��g��nameg��collapse-locals�C'R()*+,-'./0123456�������h�����]34�5$��t4�54�54�54�54�5$�� 45"��4�5  $�� 45�"��   �D4�5$���D�6�������������g��x  ��g��env  ��g��opts   ��g��objs  0 ��g��meta  0 ��g�� free-vars  0 ��g��binds  0 ��g��srcs  0 ��g��blocs  L ��� g��filenamef��language/objcode/spec.scm 7  9  8   :   ;   <  # =  * >  0 :  @ ?  A ?  L ?  O @  W A  b B  c B ( m A  � @  � F  � 8  � G  � I � I �  � ��g��nameg��decompile-value�C7R48i>���"��G��49i:;<=>?i@A i�BA7i�C5RC�������������g��m  ,��g��filenamef��language/objcode/spec.scm      ( @ 7 A K _ L  l O  x P   K �   ���C6���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/tree-il.go���������������������������������������������������������������������������������0000644�����������������00000223161�15253700563�0010232 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0Y&�����]p�4������h.������]� g��guile � g��define-module* � � g��language g��tree-il � g��filenameS f��language/tree-il.scm g��importsS g��srfi g��srfi-1   � � g��srfi-11  � � g��system g��base g��pmatch � � g��syntax � � � g��exportsS g�� tree-il-src g��<void> g��void? g�� make-void !g��void-src "g��<const> #g��const? $g�� make-const %g�� const-src &g�� const-exp 'g��<primitive-ref> (g��primitive-ref? )g��make-primitive-ref *g��primitive-ref-src +g��primitive-ref-name ,g�� <lexical-ref> -g�� lexical-ref? .g��make-lexical-ref /g��lexical-ref-src 0g��lexical-ref-name 1g��lexical-ref-gensym 2g�� <lexical-set> 3g�� lexical-set? 4g��make-lexical-set 5g��lexical-set-src 6g��lexical-set-name 7g��lexical-set-gensym 8g��lexical-set-exp 9g�� <module-ref> :g�� module-ref? ;g��make-module-ref <g��module-ref-src =g��module-ref-mod >g��module-ref-name ?g��module-ref-public? @g�� <module-set> Ag�� module-set? Bg��make-module-set Cg��module-set-src Dg��module-set-mod Eg��module-set-name Fg��module-set-public? Gg��module-set-exp Hg��<toplevel-ref> Ig�� toplevel-ref? Jg��make-toplevel-ref Kg��toplevel-ref-src Lg��toplevel-ref-name Mg��<toplevel-set> Ng�� toplevel-set? Og��make-toplevel-set Pg��toplevel-set-src Qg��toplevel-set-name Rg��toplevel-set-exp Sg��<toplevel-define> Tg��toplevel-define? Ug��make-toplevel-define Vg��toplevel-define-src Wg��toplevel-define-name Xg��toplevel-define-exp Yg�� <conditional> Zg�� conditional? [g��make-conditional \g��conditional-src ]g��conditional-test ^g��conditional-consequent _g��conditional-alternate `g�� <application> ag�� application? bg��make-application cg��application-src dg��application-proc eg��application-args fg�� <sequence> gg�� sequence? hg�� make-sequence ig�� sequence-src jg�� sequence-exps kg��<lambda> lg��lambda? mg�� make-lambda ng�� lambda-src og�� lambda-meta pg�� lambda-body qg�� <lambda-case> rg�� lambda-case? sg��make-lambda-case tg��lambda-case-src ug��lambda-case-req vg��lambda-case-opt wg��lambda-case-rest xg��lambda-case-kw yg��lambda-case-inits zg��lambda-case-gensyms {g��lambda-case-body |g��lambda-case-alternate }g��<let> ~g��let? g��make-let �g��let-src �g�� let-names �g�� let-gensyms �g��let-vals �g��let-body �g��<letrec> �g��letrec? �g�� make-letrec �g�� letrec-src �g��letrec-in-order? �g�� letrec-names �g��letrec-gensyms �g�� letrec-vals �g�� letrec-body �g��<fix> �g��fix? �g��make-fix �g��fix-src �g�� fix-names �g�� fix-gensyms �g��fix-vals �g��fix-body �g�� <let-values> �g�� let-values? �g��make-let-values �g��let-values-src �g��let-values-exp �g��let-values-body �g�� <dynwind> �g��dynwind? �g�� make-dynwind �g�� dynwind-src �g��dynwind-winder �g�� dynwind-body �g��dynwind-unwinder �g��<dynlet> �g��dynlet? �g�� make-dynlet �g�� dynlet-src �g�� dynlet-fluids �g�� dynlet-vals �g�� dynlet-body �g��<dynref> �g��dynref? �g�� make-dynref �g�� dynref-src �g�� dynref-fluid �g��<dynset> �g��dynset? �g�� make-dynset �g�� dynset-src �g�� dynset-fluid �g�� dynset-exp �g��<prompt> �g��prompt? �g�� make-prompt �g�� prompt-src �g�� prompt-tag �g�� prompt-body �g��prompt-handler �g��<abort> �g��abort? �g�� make-abort �g�� abort-src �g�� abort-tag �g�� abort-args �g�� abort-tail �g�� parse-tree-il �g��unparse-tree-il �g��tree-il->scheme �g�� tree-il-fold �g��make-tree-il-folder �g�� post-order! �g�� pre-order! �g�� tree-il=? �g�� tree-il-hash � !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~� �g��set-current-module �� �� �g��format �f�� #<tree-il ~S> �g�� print-tree-il �g��make-syntax-transformer �� �� �g��borrow-core-vtables �g��macro �g�� $sc-dispatch �� �� �g��_ �� �g�� vector-length �g��%expanded-vtables �g��vtable-offset-user �g��map �g�� datum->syntax �g�� symbol-append �g��< �g��> �g��make- �g��? �g��- �g��any �� �g�� syntax-object �g��define �g��top �� �g��ribcage �� �g��t-9d61459b896-a19 �g��t-9d61459b896-a17 �g��t-9d61459b896-a18 �� �g��m-9d61459b896-a1a �� �� �f��l-9d61459b896-a1e �f��l-9d61459b896-a1f �f��l-9d61459b896-a20 �� �� �g��acc �� �� �f��l-9d61459b896-a15 �� �� g��lp g��n g��fields g��out � � f��l-9d61459b896-9e1  f��l-9d61459b896-9e2  f��l-9d61459b896-9e3  f��l-9d61459b896-9e4     �   � g��pred � f��l-9d61459b896-9df � � g��ctor � f��l-9d61459b896-9dd � � g��type � f��l-9d61459b896-9db � � g��sfields � f��l-9d61459b896-9d7  � ! � "� #f��l-9d61459b896-9d5 $#� %"$� &g��stem '&� (f��l-9d61459b896-9d3 )(� *')� +g��vtable ,+� -f��l-9d61459b896-9d1 .-� /,.� 0� 1� 2f��l-9d61459b896-9ca 3f��l-9d61459b896-9cb 4f��l-9d61459b896-9cc 5234� 6015� 7g��x 87� 9f��l-9d61459b896-9c7 :9� ;8:� < !%*/6;� =g��hygiene >=� ?<>� @g��make-procedure-with-setter A@<>� Bg��lambda CB<>� D7<>� ED� Fg�� struct-ref GF<>� Hg��v IH<>� JDI� Kg�� struct-set! LK<>� MI� Ng��syntax-violation ON� PN� Qf��-source expression failed to match any pattern Rg��each-any SRR� Tg��t-9d61459b896-9ea Ug��t-9d61459b896-9e9 Vg��t-9d61459b896-9ec Wg��t-9d61459b896-9eb XTUVW� Yg��m-9d61459b896-9ed ZY� [ZZZZ� \f��l-9d61459b896-9f1 ]f��l-9d61459b896-9f2 ^f��l-9d61459b896-9f3 _f��l-9d61459b896-9f4 `\]^_� aX[`� ba!%*/6;� cb>� dg�� make-struct edb>� f b>� g� hg��t-9d61459b896-9fb ig��t-9d61459b896-9fc jhi� kg��m-9d61459b896-9fd lk� mll� nf��l-9d61459b896-a01 of��l-9d61459b896-a02 pno� qjmp� rq!%*/6;� sr>� t7r>� ut� vg��and wvr>� xg��struct? yxr>� zyt� {g��eq? |{r>� }g�� struct-vtable ~}r>� ~t� g��t-9d61459b896-a05 � g��m-9d61459b896-a06 � � f��l-9d61459b896-a09 � � !%*/6;� K>� g��vtable-index-printer >� >� � g��t-9d61459b896-a0c g��t-9d61459b896-a0b � g��m-9d61459b896-a0d � � f��l-9d61459b896-a11 f��l-9d61459b896-a12 � � !%*/6;� >� g�� vector-ref >� >� g��reverse g��begin g��t-9d61459b896-a24 � g��m-9d61459b896-a25 � � f��l-9d61459b896-a29 � � 6;� >� g��make-record-type f��<fix> g��src g��names g��gensyms g��vals g��body � g��record-predicate g��record-accessor g��record-modifier f�� <let-values> g��exp � f�� <dynwind> g��winder g��unwinder � f��<dynref> g��fluid � f��<dynset> � f��<prompt> g��tag g��handler � f��<abort> g��args g��tail � g��source-properties g��location g��abort g��error f��unrecognized tree-il g��prompt g��dynset g��dynref g��dynlet g��dynwind g�� let-values g��fix g��letrec* g��letrec g��let g��const g�� lambda-case g��and=> g��set! g��toplevel g��@@ g��and-map g��symbol? g��@ g��lexical g�� primitive g��if g��apply g��void � � � f��unhandled record g��scheme g��decompile-tree-il � � � g��fold R g��dummy g��seed � g��m-9d61459b896-1211 � � f��l-9d61459b896-1216 f��l-9d61459b896-1217 � � � f��l-9d61459b896-1213 � 8� � B>� �g��tree �>� g��down >� g��up >� >� g�� fold-values >�  g��proc   >�  g��exps   >�  >� g��null? >�  � g��values >� >� g��car >�  � g��cdr >�  � >� g��foldts >� � � �  g��list !g�� let*-values "!>� #g�� record-case $#>� %2>� &>� '%&� (@>� )(&� *M>� +*&� ,S>� -,&� .Y>� /g��test 0/>� 1g�� consequent 21>� 3g�� alternate 43>� 5.024� 6`>� 7>� 86 7� 9f>� :9 � ;k>� <>� =;<� >q>� ?g��inits @?>� A>@<4� B}>� C>� DBC<� E>� FEC<� G>� HGC<� I>� JI&<� K>� L>� M>� NK<LM� O>� Pg��fluids QP>� ROQC<� S>� T>� UST� V>� WVT&� X>� Y>� Z>� [XY<Z� \>� ]>� ^\Y7]� _g��else `_>� ag��setter ba� ca� dg�� string-length eg��symbol->string fg�� struct-layout gg��struct-nfields hg�� hash-bits ig��make-variable-transformer jg�� identifier? kg��logcount lg��most-positive-fixnum mg��hashq ng��max og��hashC�5h����]4   5�4�>��"��G�����h������]4�56��������������g��exp  �g��port  ��g��filenamef��language/tree-il.scm B  C  C   C �   ��g��nameg�� print-tree-il�CR4������h���_���]L��6������W�������g��f  ��g��filenamef��language/tree-il.scm P " P .�  ���C?ACEGDJLM� �������h8���w���]��� ���C�������o�������g��t-9d61459b896-a19  1�g��t-9d61459b896-a17  1�g��t-9d61459b896-a18   1��  1 ���CPQScef���h������]��C�������g��t-9d61459b896-9ea  �g��t-9d61459b896-9e9  �g��t-9d61459b896-9ec   �g��t-9d61459b896-9eb   ��   ���Cgsuwz|�h ���X���]����C���P�������g��t-9d61459b896-9fb  �g��t-9d61459b896-9fc  ��   ���C�����h���X���]���C�����P�������g��t-9d61459b896-a0c  �g��t-9d61459b896-a0b  ��   ���CR���h���9���]�C1�������g��t-9d61459b896-a24  ��   ���C����h�����]x"��45$���  4L�O�54L�4 554L�4 554L�4 55"��n (�� "�   4L�4  55    � 4  5$�� 4?"�� 4 5      " � 4  5  $�� 4 ?"�� 4 5  � 4  5  $�� 4 ?"�� 4 5  �� 4  5  $�� 4 ?"�� 4 5     "�"@454 5$��@6 �" �������������g��n  �g��out  �g��vtable   �g��stem  % �g��fields  / �g��sfields  ? �g��type  S �g��ctor  e �g��pred  w �g��n } ��g��fields } ��g��out } ��g��acc � ��g��tmp � ��g��tmp  � ��g��tmp � '�g��tmp  $�g��tmp . \�g��tmp 9 Y�g��tmp k �g��tmp v �g��tmp   �g��tmp   ��g��filenamef��language/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 �=   ���CPQ�������h(���g���] 4�5$�� �O�@�6�_�������g��x  '�g��tmp '��g��filenamef��language/tree-il.scm F �  ' ���C5Ri Riii������h���h���]�$���CC������`�������g��x  ��g��filenamef��language/tree-il.scm n �   ��g��nameg��void?�CR�������h���n���]��C������f�������g��src  ��g��filenamef��language/tree-il.scm n �  ��g��nameg�� make-void�C R4@i�������h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5!Ri "R"iii"��������h���i���]�$���CC������a�������g��x  ��g��filenamef��language/tree-il.scm n �   ��g��nameg��const?�C#R"������h������]��C����x�������g��src  �g��exp  ��g��filenamef��language/tree-il.scm n �  ��g��nameg�� make-const�C$R4@i�����h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5%R4@i������h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5&Ri 'R'iii'�������h���q���]�$���CC������i�������g��x  ��g��filenamef��language/tree-il.scm n �   ��g��nameg��primitive-ref?�C(R'������h������]��C�����������g��src  �g��name  ��g��filenamef��language/tree-il.scm n �  ��g��nameg��make-primitive-ref�C)R4@i����h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5*R4@i������h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5+Ri ,R,iii,�������h���o���]�$���CC������g�������g��x  ��g��filenamef��language/tree-il.scm n �   ��g��nameg�� lexical-ref?�C-R,��������h������]��C���������g��src  �g��name  �g��gensym   ��g��filenamef��language/tree-il.scm n �   ��g��nameg��make-lexical-ref�C.R4@i��h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5/R4@i������h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C50R4@i������h���V���]� CN�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C51Ri 2R2iii2�������h���o���]�$���CC������g�������g��x  ��g��filenamef��language/tree-il.scm n �   ��g��nameg�� lexical-set?�C3R2��������h������]��C�������g��src  �g��name  �g��gensym   �g��exp   ��g��filenamef��language/tree-il.scm n �   ��g��nameg��make-lexical-set�C4R4@i�h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C55R4@i������h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C56R4@i������h���V���]� CN�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C57R4@i������h���V���]� CN�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C58Ri 9R9iii9�������h���n���]�$���CC������f�������g��x  ��g��filenamef��language/tree-il.scm n �   ��g��nameg�� module-ref?�C:R9�h������]��C�������g��src  �g��mod  �g��name   �g��public?   ��g��filenamef��language/tree-il.scm n �   ��g��nameg��make-module-ref�C;R4@i�h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5<R4@i������h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5=R4@i������h���V���]� CN�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5>R4@i������h���V���]� CN�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5?Ri @R@iii@�������h���n���]�$���CC������f�������g��x  ��g��filenamef��language/tree-il.scm n �   ��g��nameg�� module-set?�CAR@�h������]��C�������������g��src  �g��mod  �g��name   �g��public?   �g��exp   ��g��filenamef��language/tree-il.scm n �   ��g��nameg��make-module-set�CBR4@ih���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5CR4@i������h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5DR4@i������h���V���]� CN�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5ER4@i������h���V���]� CN�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5FR4@i������h���V���]� CN�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5GRi HRHiiiH�������h���p���]�$���CC������h�������g��x  ��g��filenamef��language/tree-il.scm n �   ��g��nameg�� toplevel-ref?�CIRH�������h������]��C�����������g��src  �g��name  ��g��filenamef��language/tree-il.scm n �  ��g��nameg��make-toplevel-ref�CJR4@i�����h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5KR4@i������h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5LRi MRMiiiM�������h���p���]�$���CC������h�������g��x  ��g��filenamef��language/tree-il.scm n �   ��g��nameg�� toplevel-set?�CNRM�������h������]��C���������g��src  �g��name  �g��exp   ��g��filenamef��language/tree-il.scm n �   ��g��nameg��make-toplevel-set�COR4@i����h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5PR4@i������h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5QR4@i������h���V���]� CN�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5RRi SRSiiiS�������h���s���]�$���CC������k�������g��x  ��g��filenamef��language/tree-il.scm n �   ��g��nameg��toplevel-define?�CTRS����h������]��C���������g��src  �g��name  �g��exp   ��g��filenamef��language/tree-il.scm n �   ��g��nameg��make-toplevel-define�CUR4@i�h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5VR4@i������h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5WR4@i������h���V���]� CN�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5XRi YRYiiiY�������h���o���]�$���CC������g�������g��x  ��g��filenamef��language/tree-il.scm n �   ��g��nameg�� conditional?�CZRY��������h������]��C�������g��src  �g��test  �g�� consequent   �g�� alternate   ��g��filenamef��language/tree-il.scm n �   ��g��nameg��make-conditional�C[R4@i�������h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5\R4@i������h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5]R4@i������h���V���]� CN�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5^R4@i������h���V���]� CN�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5_Ri `R`iii`�������h���o���]�$���CC������g�������g��x  ��g��filenamef��language/tree-il.scm n �   ��g��nameg�� application?�CaR`��������h������]��C���������g��src  �g��proc  �g��args   ��g��filenamef��language/tree-il.scm n �   ��g��nameg��make-application�CbR4@i����h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5cR4@i������h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5dR4@i������h���V���]� CN�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5eRi fRfiiif�������h���l���]�$���CC������d�������g��x  ��g��filenamef��language/tree-il.scm n �   ��g��nameg�� sequence?�CgRf���h������]��C����|�������g��src  �g��exps  ��g��filenamef��language/tree-il.scm n �  ��g��nameg�� make-sequence�ChR4@i�h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5iR4@i������h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5jRi kRkiiik�������h���j���]�$���CC������b�������g��x  ��g��filenamef��language/tree-il.scm n �   ��g��nameg��lambda?�ClRk�����h������]��C���������g��src  �g��meta  �g��body   ��g��filenamef��language/tree-il.scm n �   ��g��nameg�� make-lambda�CmR4@i�h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5nR4@i������h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5oR4@i������h���V���]� CN�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5pRi qRqiiiq�������h���o���]�$���CC������g�������g��x  ��g��filenamef��language/tree-il.scm n �   ��g��nameg�� lambda-case?�CrRq��������h ��� ��,� 3� �� C��������g��src  �g��req  �g��opt   �g��rest   �g��kw   �g��inits   �g��gensyms   �g��body   �g�� alternate   �� g��filenamef��language/tree-il.scm n �   ��g��nameg��make-lambda-case�CsR4@i���h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5tR4@i������h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5uR4@i������h���V���]� CN�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5vR4@i������h���V���]� CN�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5wR4@i������h���V���]� CN�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5xR4@i������h���V���]� CN�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5yR4@i������h���V���]� CN�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5zR4@i������h���V���]� CN�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5{R4@i������h���V���]� CN�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5|Ri }R}iii}�������h���g���]�$���CC������_�������g��x  ��g��filenamef��language/tree-il.scm n �   ��g��nameg��let?�C~R}��������h������]��C�������������g��src  �g��names  �g��gensyms   �g��vals   �g��body   ��g��filenamef��language/tree-il.scm n �   ��g��nameg��make-let�CR4@i����h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5R4@i������h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5R4@i������h���V���]� CN�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5R4@i������h���V���]� CN�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5R4@i������h���V���]� CN�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5Ri Riii�������h���j���]�$���CC������b�������g��x  ��g��filenamef��language/tree-il.scm n �   ��g��nameg��letrec?�CR�����h������]��C�����������g��src  �g�� in-order?  �g��names   �g��gensyms   �g��vals   �g��body   ��g��filenamef��language/tree-il.scm n �   ��g��nameg�� make-letrec�CR4@i��h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5R4@i������h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5R4@i������h���V���]� CN�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5R4@i������h���V���]� CN�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5R4@i������h���V���]� CN�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5R4@i������h���V���]� CN�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5Ri Riii�������h���j���]�$���CC������b�������g��x  ��g��filenamef��language/tree-il.scm n �   ��g��nameg��dynlet?�CR�����h������]��C�������g��src  �g��fluids  �g��vals   �g��body   ��g��filenamef��language/tree-il.scm n �   ��g��nameg�� make-dynlet�CR4@i�����h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5R4@i������h���V���]� C�N�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C�������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5R4@i������h���V���]� CN�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5R4@i������h���V���]� CN�������g��x  ��g��filenamef��language/tree-il.scm n �   ���Ch���e���]� C������]�������g��x  �g��v  ��g��filenamef��language/tree-il.scm n �  ���C5R4ii5R���h ������-�1�3���C��������������g��src �g��names �g��gensyms  �g��vals  �g��body  �g��defrec-9d61459b896-c7e  ��g��filenamef��language/tree-il.scm � �   ��g��nameg��make-fix�CR4ii5R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4ii5R�����h������-�1�3���C����������g��src �g��exp �g��body  �g��defrec-9d61459b896-c80  ��g��filenamef��language/tree-il.scm � �   ��g��nameg��make-let-values�CR4ii5R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4ii5R�h������-�1�3���C��������g��src �g��winder �g��body  �g��unwinder  �g��defrec-9d61459b896-c82  ��g��filenamef��language/tree-il.scm � �   ��g��nameg�� make-dynwind�CR4ii5R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4ii5R��h������-�1�3���C������������g��src �g��fluid �g��defrec-9d61459b896-c84  ��g��filenamef��language/tree-il.scm � �   ��g��nameg�� make-dynref�CR4ii5R4@i4ii54ii55R4@i4ii54ii55R4ii5R������h������-�1�3���C����������g��src �g��fluid �g��exp  �g��defrec-9d61459b896-c86  ��g��filenamef��language/tree-il.scm � �   ��g��nameg�� make-dynset�CR4ii5R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4ii5R����h������-�1�3���C��������g��src �g��tag �g��body  �g��handler  �g��defrec-9d61459b896-c88  ��g��filenamef��language/tree-il.scm � �   ��g��nameg�� make-prompt�CR4ii5R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4ii5R�������h������-�1�3���C��������g��src �g��tag �g��args  �g��tail  �g��defrec-9d61459b896-c8a  ��g��filenamef��language/tree-il.scm � �   ��g��nameg�� make-abort�CR4ii5R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4@i4ii54ii55R4@i������h���)���]� C�!�������g��x  ��   ���C�����h���8���]� C�������0�������g��x  �g��v  ��  ���C5R����h ������] �$��4�5$��CCC�������g��x  �g��props  ��g��filenamef��language/tree-il.scm �  �  �  �   �   �   � �  ��g��nameg��location�CR�h���u���]�6m�������g��x  ��g��filenamef��language/tree-il.scm �   � �   ��g��nameg��retrans�Ch$sBmUOJB;4.)[b �<�����h0����]4�5"�"�"�"�"�^"�"�0"� ["� "� "� "� "� L"� "� &"�"�"�_"�"�"�B"�"�"�i"�"�s"�"�"�("���$����&��v$��g$��N$��5   (��45454 56�6�6�6�6�6�6�$��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"-")�$��q��0&��[$��P$��;(��'4,-5$��$�� /6"""""""�$����'&��$��$��1&��z$��o   $��Z     (��F$��; (��' $�� $��2  4 56"�"""""""""""�$����'&��$��$��p1&��Z$��O   (��;$��0   (�� $��2  4 56"C"?";"7"3"/"+"'"#"�$��j��1&��T$��I$��4(�� $��$�� 36"""""""�$��J��1&��4$��)(��$�� 36"]"Y"U"Q"M�$��H��4&��2$��'(��$��56"""""�$��z��6&��d$��Y$��D$��/   (��745454 56""}"y"u"q"m�$��A��8&��+$�� 945456"%"!"�$��&��:&��(��;6"""�����������g��exp  +�g��retrans  +�g��loc  +�g��vx  � �g��vy  � �g��vx  � �g��vy  � �g��vx  � �g��vy  � �g��vx � ��g��vy � ��g��vx  3 �g��vy  3 �g��vx  L �g��vy  L �g��vx  ] �g��vy  ] �g��vx n �g��vy n �g��vx   �g��vy   �g��vx   �g��vy   �g��vx   �g��vy   �g��vx  ! ]�g��vy  ! ]�g��vx  : U�g��vy  : U�g��vx  n �g��vy  n �g��vx   �g��vy   �g��vx   �g��vy   �g��vx  �g��vy  �g��vx   k�g��vy   k�g��vx   c�g��vy   c�g��vx  ! _�g��vy  ! _�g��vx 2 [�g��vy 2 [�g��vx  | �g��vy  | �g��vx   �g��vy   �g��vx   �g��vy   �g��vx   m�g��vy   m�g��vx   e�g��vy   e�g��vx   a�g��vy   a�g��vx  ]�g��vy  ]�g��vx 1 Y�g��vy 1 Y�g��vx  ~ �g��vy  ~ �g��vx   �g��vy   �g��vx   �g��vy   �g��vx  �g��vy  �g��vx  �g��vy  �g��vx   �g��vy   �g��vx  1 �g��vy  1 �g��vx  B �g��vy  B �g��vx S �g��vy S �g��vx d �g��vy d �g��vx   :�g��vy   :�g��vx   2�g��vy   2�g��vx   .�g��vy   .�g��vx  *�g��vy  *�g��vx  &�g��vy  &�g��vx  K j�g��vy  K j�g��vx  { �g��vy  { �g��vx   �g��vy   �g��vx   �g��vy   �g��vx   �g��vy   �g��vx   �g��vy   �g��vx  �g��vy  �g��vx  �g��vy  �g��vx  �g��vy   �g��vx  1 �g��vy  1 �g��vx  B �g��vy  B �g��vx  S �g��vy  S �g��vx  j �g��vy  j �g��vx   �g��vy   �g��vx   �g��vy   �g��vx   �g��vy   �g��vx  �g��vy  �g��vx , �g��vy , �g��vx = �g��vy  = �g��vx  N �g��vy  N �g��vx  _ �g��vy  _ �g��vx  p �g��vy  p �g��vx   �g��vy   �g��vx   �g��vy   �g��vx   m�g��vy   m�g��vx  3 e�g��vy  3 e�g��vx  D a�g��vy  D a�g��vx  ~ �g��vy  ~ �g��vx  �g��vy  �g��vx  �g��vy  �g��vx  �g��vy  �g��vx   �g��vy   �g��vx   �g��vy   �g��vx 0 w�g��vy 0 w�g��vx G o�g��vy G o�g��vx  �g��vy  �g��vx  �g��vy  �g��vx  �g��vy  �g��vx   �g��vy   �g��vx   �g��vy   �g��vx 2 �g��vy 2 �g��vx C �g��vy C �g��vx Z �g��vy  Z �g��vx  2�g��vy  2�g��vx  *�g��vy  *�g��vx  &�g��vy  &�g��vx  C �g��vy  C �g��vx  \ �g��vy  \ �g��vx  m �g��vy  m �g��vx �g��vy �g��vx �g��vy �g��vx �g��vy  �g��vx   �g��vy   �g��vx  4 ~�g��vy  4 ~�g��vx  E z�g��vy  E z�g��vx  W�g��vy  W�g��vx  O�g��vy  O�g��vx  K�g��vy  K�g��vx C�g��vy C�g��vx ?�g��vy ?�g��vx  7�g��vy   7�g��vx  h �g��vy  h �g��vx   ��g��vy   ��g��vx   �g��vy   �g��vx  �g��vy  �g��vx  �g��vy  �g��vx   }�g��vy   }�g��vx  2 u�g��vy  2 u�g��vx  C q�g��vy  C q�g��vx   �g��vy   �g��vx   �g��vy   �g��vx   %�g��vy   %�g��vx   �g��vy   �g��vx  6 �g��vy  6 �g��vx  O �g��vy  O �g��vx  ` �g��vy  ` �g��vx q �g��vy q �g��vx   �g��vy   �g��vx   �g��vy   �g��vx   '�g��vy   '��g��filenamef��language/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 �   �   �   �   �   �   �   �   �   �   �   �   �   � +  �   �   �  # � �  + ��g��nameg�� parse-tree-il�CR`deY]^_'+,0126789=>?@DEFGHLMQRSWXkopBquvwxyz{|"&fj}�y���hP�� ��]I�&��C&��'4�54�54545C &��64 �54 �54 �5 454545�C&��4�5�C&��4�54�5�C&��14�54�54�5�45�C&��14�54�54�5$��"���C &��F4!�54"�54#�54$�5$��"���45�C%&��4&�5'�C(&��&4)�54*�5'�45�C+&��!4,�54-�5.45�C/&��040�541�5$��245�C23C4&��45�546�547�548�549�54:�54;�54<�5 =45�45� $��4 5�"��C>&��4?�5@�CA&��4B�5C45CD&��>4E�54F�54G�54H�5I4545�CJ&��S4K�54L�54M�54N�54O�5$��P"��Q4545�CR&��>4S�54T�54U�54V�5W4545�CX&��&4Y�54Z�5[4545�C\&��64]�54^�54_�5`454545�Ca&��:4b�54c�54d�5e454545�Cf&��4g�5h45�Ci&��&4j�54k�5l4545�Cm&��64n�54o�54p�5q454545�Cr&��84s�54t�54u�5v454545�Cwx�6����| ������g��tree-il  L�g��rtd  L�g��proc  ( A�g��args  ( A�g��test  ^ �g�� consequent  ^ �g�� alternate  ^ �g��name  � ��g��name  � ��g��gensym  � ��g��name  � ��g��gensym  � ��g��exp  � ��g��mod   .�g��name   .�g��public?   .�g��mod  R |�g��name  R |�g��public?  R |�g��exp  R |�g��name   �g��name   �g��exp   �g��name   �g��exp   �g��meta   $�g��body   $�g��req  d �g��opt  d �g��rest  d �g��kw  d �g��inits  d �g��gensyms  d �g��body  d �g�� alternate d �g��exp   �g��exps   �g��names   +�g��gensyms   +�g��vals   +�g��body   +�g�� in-order?  V �g��names  V �g��gensyms  V �g��vals  V �g��body  V �g��names   �g��gensyms   �g��vals   �g��body   �g��exp   �g��body   �g��winder   8�g��body   8�g��unwinder   8�g��fluids  U z�g��vals  U z�g��body  U z�g��fluid   �g��fluid   �g��exp   �g��tag   �g��body   �g��handler   �g��tag  ! D�g��args  ! D�g��tail  ! D��Cg��filenamef��language/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 ��g��nameg��unparse-tree-il�CR��h0������-�.�,�3�#��#��4�5C�������������g��e *�g��env *�g��opts  *��g��filenamef��language/tree-il.scm R  R 6  S ! S ) S * S � * ��g��nameg��tree-il->scheme�CR28@GMRSXY]^_`defjkpqy{|}�:h`��' ��]"�(��"���$�� L�6�&��4�5L�4L4L��556&��4�5L�4L4L��556&��4�5L�4L4L��556&��4 �5L�4L4L��556 &��?4 �54 �54 �5L�4L4L4L4L��55556&��+4�54�5L�4L4L��556&��4�5L�4L4L��556&��/4�54L��5L�$�� 4L5"��6&��`4�54�54�5L�$��"4L4L4L4L��5555"��4L4L4L��5556&��/4�54�5L�4L4L4L��5556&��/4�54�5L�4L4L4L��5556&��/4 �54!�5L�4L4L4L��5556"&��/4#�54$�5L�4L4L4L��5556%&��?4&�54'�54(�5L�4L4L4L4L��55556)&��?4*�54+�54,�5L�4L4L4L4L��55556-&��4.�5L�4L4L��556/&��/40�541�5L�4L4L4L��55562&��?43�544�545�5L�4L4L4L4L��555566&��?47�548�549�5L�4L4L4L4L��55556L�6��� ������g��tree  ]�g��result  ]�g��rtd  ! ]�g��exp  2 J�g��exp  Y q�g��exp  � ��g��exp  � ��g��test  � �g�� consequent  � �g�� alternate  � �g��proc   9�g��args   9�g��exps  H `�g��body  o �g��result  z �g��inits   �g��body   �g�� alternate   �g��vals   6�g��body   6�g��vals  L m�g��body  L m�g��vals   �g��body   �g��exp   �g��body   �g��body   "�g��winder   "�g��unwinder   "�g��fluids  ? i�g��vals  ? i�g��body  ? i�g��fluid  x �g��fluid   �g��exp   �g��tag   �g��body   �g��handler   �g��tag  + U�g��args  + U�g��tail  + U��)g��filenamef��language/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  ]  �  ] ��g��nameg��loop�C������h ���|��] O��Q�6t������g��leaf  �g��down  �g��up   �g��seed   �g��tree   �g��loop  ��g��filenamef��language/tree-il.scm X ` �  ��g��nameg�� tree-il-foldg�� documentationf�Traverse 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^]`�9�������h��B���]     �����45���������� �� ��!�" ## ��$ %��  #���#���&'��#��('��#��)'��#��*��#��+#�,��-��./�'��#��01�21����34�#��5��64� ��7��8 �������C��:�������g��dummy  �g��seed  ��   ���CPQ�����h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��language/tree-il.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��seedg��...���C5R`decY]^_2867@GDEFMRQSXWkpqy{|fj}�E�����h����]!�&��Z4�54�5445�4L5>��"��G��445�4L5>��"��G��"�Y&��4�54�54 �5445�4L5>��"��G��445�4L5>��"��G��44 5�4L5>��"��G��"� &��R4 �54 �>��"��G��4 �>��"��G��44 5�4L5>��"��G��"�u&��d4�54�>��"��G��4�>��"��G��4�>��"��G��445�4L5>��"��G��"� &��@4�54�>��"��G��445�4L5>��"��G��"�&��@4�54�>��"��G��445�4L5>��"��G��"�y&��84�5$��"445�4L5>��"��G��"���"�9&��y4�54�54�5H4LJ5K445�4L5>��"��G��$��"445�4L5>��"��G��"���"�&��04 �544 5�4L5>��"��G��"�!&��l4"�54#�54$�>��"��G��44"5�4L5>��"��G��44#5�4L5>��"��G��"� %&��l4&�54'�54(�>��"��G��44&5�4L5>��"��G��44'5�4L5>��"��G��"�)&��l4*�54+�54,�>��"��G��44*5�4L5>��"��G��44+5�4L5>��"��G��"�$-&��X4.�54/�544.5�4L5>��"��G��44/5�4L5>��"��G��"�0&��41�542�543�54415�4L5>��"��G��4425�4L5>��"��G��4435�4L5>��"��G��"�:4&��45�546�547�54455�4L5>��"��G��4465�4L5>��"��G��4475�4L5>��"��G��"�8&��.49�54495�4L5>��"��G��"�v:&��X4;�54<�544;5�4L5>��"��G��44<5�4L5>��"��G��"�=&��4>�54?�54@�544>5�4L5>��"��G��44?5�4L5>��"��G��44@5�4L5>��"��G��"��A&��4B�54C�54D�544B5�4L5>��"��G��44C5�4L5>��"��G��44D5�4L5>��"��G��"���4L��5$��C�C������������g��x  �g��rtd  �g��proc   e�g��args   e�g��test  � ��g�� consequent  � ��g�� alternate  � ��g��exp   I�g��exp  \ �g��exp   �g��exp   E�g��body  X �g��inits   �g��body   �g�� alternate   �g��exps   >�g��vals  X �g��body  X �g��vals   &�g��body   &�g��vals  @ �g��body  @ �g��exp   �g��body   �g��body   �g��winder   �g��unwinder   �g��fluids   �g��vals   �g��body   �g��fluid  % H�g��fluid  b �g��exp  b �g��tag   2�g��body   2�g��handler   2�g��tag  S �g��args  S �g��tail  S �g��t  ��(g��filenamef��language/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 �   ��g��nameg��lp�C���h������] O��Q�6�������g��f  �g��x  �g��lp  ��g��filenamef��language/tree-il.scm   �   ��g��nameg�� post-order!�CR`decY]^_28@GMRSXkpqy{|fj}�;���h0����])4L��5$��"���&��Z45454454L5>��"��G��4454L5>��"��G��"�&��45454 54454L5>��"��G��4454L5>��"��G��44 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>��"��G��4454L5>��"��G��"�&��Z45454454L5>��"��G��4454L5>��"��G��"� &��Z4!54"544!54L5>��"��G��44"54L5>��"��G��"�$#&��X4$54%544$54L5>��"��G��44%54L5>��"��G��"�&&��4'54(54)544'54L5>��"��G��44(54L5>��"��G��44)54L5>��"��G��"�:*&��4+54,54-544+54L5>��"��G��44,54L5>��"��G��44-54L5>��"��G��"�.&��.4/544/54L5>��"��G��"�v0&��X41542544154L5>��"��G��44254L5>��"��G��"�3&��44545546544454L5>��"��G��44554L5>��"��G��44654L5>��"��G��"��7&��4854954:544854L5>��"��G��44954L5>��"��G��44:54L5>��"��G��"���C������g��x  0�g��t �g��x  0�g��rtd  ! -�g��proc  9 ��g��args  9 ��g��test  �  �g�� consequent  �  �g�� alternate  �  �g��exp   A�g��exp  T w�g��exp   �g��exp   �g��body   #�g��inits  D �g��body  D �g�� alternate  D �g��exps   �g��vals   >�g��body   >�g��vals  X �g��body  X �g��vals   �g��body   �g��exp   b�g��body   b�g��body   �g��winder   �g��unwinder   �g��fluids   z�g��vals   z�g��body   z�g��fluid   �g��fluid   �g��exp   �g��tag  1 �g��body  1 �g��handler  1 �g��tag   &�g��args   &�g��tail   &��)g��filenamef��language/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 ��g��nameg��lp�C���h������] O��Q�6�������g��f  �g��x  �g��lp  ��g��filenamef��language/tree-il.scm D E �   ��g��nameg�� pre-order!�CRdef��h������]444�555 C��������g��x  ��g��filenamef��language/tree-il.scm         $         �   ��g��nameg��struct-nfields�CgRg���h�����]�$��T$��K�&��?"��- $��C4�5$�� "C4�5"CC�$��$$��4�5$�� �6CC�C��������g��a  ��g��b  ��g��n   K�g��t  " K��g��filenamef��language/tree-il.scm                     !   "  .   5   :  0 <   @   C   I   K  L   S   Y  `   d   g  k   l  q   t   v  z      �   �  �  �$  � ��g��nameg�� tree-il=?�CR4h4iij�����h���[���]�6S�������g��var  ��g��filenamef��language/tree-il.scm   �   ���Ckl���h���[���]6S�������g��var  ��g��filenamef��language/tree-il.scm   �   ���CPQ����h(���h���] ��4?$��@�6�����`�������g��x  #�g��tmp  #��g��filenamef��language/tree-il.scm  �  # ���C55hRgmln o�h0����]:"��t4545 $��C"��;$��/4L�5  � 5"C4  5""��45 $��C4L�5  � 54L�5  � 54L�5  � 5C�$���"�$���"V�6������g��exp  0�g��depth  0�g��s   z�g��len   z�g��h   z�g��i  * e�g��h  * e�g��h1  C Z�g��l  ~  �g��h  �  �g��h1  � ��g��l  �  �g��h  �  �g��h1  � ��g��l  �  �g��h  �  �g��h1  �  ��g��filenamef��language/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 ��g��nameg��hash-exp�C�������h������] O�Q�� 6���������g��exp  �g��hash-exp ��g��filenamef��language/tree-il.scm    �   ��g��nameg�� tree-il-hash�CRC���������g��m  ,��g��filenamef��language/tree-il.scm   � B n e � r � ������ � ������ � ������ R ������ X ������֢  ������ D ������  ������-  ������6  ������  � ������ ���C6����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/scheme/spec.go�����������������������������������������������������������������������������0000644�����������������00000003727�15253700563�0011073 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�:�4����h������]� g��guile � g��define-module* � � g��language g��scheme g��spec � g��filenameS f��language/scheme/spec.scm g��importsS g��system g��base g��compile  � �  � � g��compile-tree-il � � g��decompile-tree-il � � � g��exportsS � g��set-current-module � � g��invalidate-compilation-cache! !g�� make-language "g��nameS #g��titleS $f��Scheme %g��readerS &g��and=> 'g��module-variable (g��current-reader )g�� variable-ref *g�� fluid-ref +g��read ,g�� compilersS -g��tree-il .g�� decompilersS /g�� evaluatorS 0g��primitive-eval 1g��printerS 2g��write 3g��make-default-environmentS 4g��make-fresh-user-module 5g��module-define! 6g�� make-fluid 7g�� module-set! 8g��format 9g�� simple-formatC�5����h�����]4    5�4�>��"��G���4 i>���"��G��4!i"#$%&'()*+���h0������] 444555$��"���6����������g��port  -�g��env  -�g��t   -��g��filenamef��language/scheme/spec.scm !   $   $  $ %  $ :  $ %  $   $   $ �  - ���C,-i�.-i�/0��h���w���]�6o�������g��x  �g��module  ��g��filenamef��language/scheme/spec.scm ,   , #�   ���C12i345(6789�������h@������]45��4�45�>��"��G��4�>��"��G���C������������g��m  ;��g��filenamef��language/scheme/spec.scm /   2   2  6   6 &  6 6  6  # <  ) < # 0 < �  ; ���C5RC������}�������g��m  ,��g��filenamef��language/scheme/spec.scm   -  K  Z *  f +    �   ���C6������������������������������������������language/scheme/decompile-tree-il.go����������������������������������������������������������������0000644�����������������00000202662�15253700563�0013440 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0�����]�4����h������]� g��guile � g��define-module* � � g��language g��scheme g��decompile-tree-il � g��filenameS f��%language/scheme/decompile-tree-il.scm g��importsS g��tree-il  � � g��srfi g��srfi-1 � � g��srfi-26 � � g��ice-9 g��receive � � g��vlist � � g��match � � !g��system "g��base #g��syntax $!"#� %$� & %� 'g��exportsS (� )g��set-current-module *)� +)� ,g�� do-decompile -g��use-derived-syntax?S .-  /g�� avoid-lambda?S 0/  1g�� use-case?S 21  3g��strip-numeric-suffixes?S 43  5.024� 6g��choose-output-names 7g�� hashq-ref 8g��if 98� :g��begin ;g��let <g��lambda* =g��define* >g��define ?g��lambda @g��map Ag��list Bg��let* Cg��letrec* Dg��letrec Eg��append FE� GE� Hg��length Ig��and Jg��or KH� LH� Mg��x NM� Og��else Pg��reverse QP� RP� SO� TS� Ug��eqv? Vg��quote Wg��memv Xg��case Yg��c ZVO� [g��_ \Z[ ]IY\� ^]� _g��cond `g�� take-while ag��identity bg��drop cg��car dg��cdr eg��cons fg��take gg��<void> hg��<const> ig�� const-exp jg��self-evaluating? kg�� <sequence> lg�� sequence-exps mg�� <application> ng��application-proc og��application-args pg��<primitive-ref> qg��primitive-ref-name rg�� <lexical-ref> sg��lexical-ref-gensym tg�� <lexical-set> ug��lexical-set-gensym vg��lexical-set-exp wg��set! xg�� <module-ref> yg��module-ref-mod zg��module-ref-name {g��module-ref-public? |g��@ }g��@@ ~g�� <module-set> g��module-set-mod �g��module-set-name �g��module-set-public? �g��module-set-exp �g��<toplevel-ref> �g��toplevel-ref-name �g��<toplevel-set> �g��toplevel-set-name �g��toplevel-set-exp �g��<toplevel-define> �g��toplevel-define-name �g��toplevel-define-exp �g��<lambda> �g�� lambda-meta �g�� lambda-body �g��assq-ref �g�� documentation �g�� case-lambda* �g�� case-lambda �� �g�� <lambda-case> �g��lambda-case-req �g��lambda-case-opt �g��lambda-case-rest �g��lambda-case-kw �g��lambda-case-inits �g��lambda-case-gensyms �g��lambda-case-body �g��lambda-case-alternate �g��cons* �g��list-ref �g�� list-head �g��optionalS �g�� list-tail �g��keyS �g��caddr �g��allow-other-keysS �� �g�� <conditional> �g��conditional-test �g��conditional-consequent �g��conditional-alternate �VU� �g��v �VV� �g�� last-datum �� �� �Z� �� �g��void? �g��<let> �g�� let-gensyms �g��let-vals �g��let-body �g��<letrec> �g��letrec-in-order? �g��letrec-gensyms �g�� letrec-vals �g�� letrec-body �g��<fix> �g�� fix-gensyms �g��fix-vals �g��fix-body �g�� <let-values> �g��let-values-exp �g��let-values-body �g��call-with-values �g�� make-lambda �g�� <dynwind> �g�� dynwind-body �g��dynwind-winder �g��dynwind-unwinder �g�� dynamic-wind �g��<dynlet> �g�� dynlet-fluids �g�� dynlet-vals �g�� dynlet-body �g�� with-fluids �g��<dynref> �g�� dynref-fluid �g�� fluid-ref �g��<dynset> �g�� dynset-fluid �g�� dynset-exp �g�� fluid-set! �g��<prompt> �g�� prompt-tag �g�� prompt-body �g��prompt-handler �g��call-with-prompt �g��<abort> �g�� abort-tag �g�� abort-args �g�� abort-tail �g��apply �g��abort �g��error �f��unhandled record �g��make-hash-table �8V|}w>=:;BDCIJ_X?<WU� �g��for-each �g�� hashq-set! �g��string->char-set �f�� 0123456789 �g��string-skip-right �g�� string-length �g�� string-ref �g�� substring �g��string->symbol �g��symbol->string �g��hashq-create-handle! �g��memq �g�� top-level �g�� vhash-foldq* �g�� lexical-ref? �g��reverse! �g��=> �g��cadr �g��fold �g�� vhash-consq �g�� let-names �g�� letrec-names �g�� fix-names �g�� vlist-null �g�� sort-list �g��any �g��and=> �g�� string-append �f��- g��number->stringC�5������h0����] 4    &'(5�4+�>��"��G���,������h������]�@�����������g��e  �g��env  �g��opts   ��g��filenamef��%language/scheme/decompile-tree-il.scm   �  ��g��nameg��decompile-tree-il�CR567��h������]L��6�������������g��s  ��g��filenamef��%language/scheme/decompile-tree-il.scm ,  , !�  ��g��nameg�� output-name�C9:��������h0������]�(��C"���C�$���(���C""��������g��es  /��g��filenamef��%language/scheme/decompile-tree-il.scm 4   5  2   8  5 �  / ��g��nameg�� build-begin�C:;�������h������]!"��5�$��(��&��$��C��C��C��C�$��C��&��-$��"(��$��C"""""}��������������g��e  ��g��w  5�g��x   5�g��w H ��g��x  H ��g��w  a }�g��x  a }��g��filenamef��%language/scheme/decompile-tree-il.scm :   ;  . > ; ; �  � ��g��nameg��build-lambda-body�C:��������h8������]�$��(��&��$��C��C��C��C��������g��e  7�g��w  1�g��x   1��g��filenamef��%language/scheme/decompile-tree-il.scm @   A  * C �  7 ��g��nameg��build-begin-body�C<=>?��h���H��]""��uL�$��e$��T&��8$��'$�� �C��C��C��C��C��CL�$��M$��B&��,$��!$�� �C"D"@"<"8"4������@������g��name  ��g��e  ��g��w   g�g��x   g�g��w  2 S�g��x  2 S�g��w  � ��g��x  � ��g��w  � ��g��x  � ��� g��filenamef��%language/scheme/decompile-tree-il.scm E   F  ? L K M { F  � I � F �  � ��g��nameg�� build-define�C;@AB����h��m��][4�54L�5"�"��L$��$��$��$��(��$��s(��i$��Z   &��E $��;     $��' (��   $�� � CCCCCCCCCCCCCC$��$��$��(��x$��h(��]$��M   &��7 $��,     $�� $��   C"""""""""""$��B$��.(��$��(��C"B">":"6"2����e������g��names  �g��vals  �g��body   �g��v   �g��x  2 ��g��w  E ��g��x  E ��g��w  Z ��g��w  m ��g��w | ��g��x | ��g��w � ��g��x � ��g��w � ��g��x  � �g��w   �g��x   �g��w   �g��w  - �g��w < �g��x < �g��w U {�g��x U {�g��x   �g��w   �g��x   ��g��filenamef��%language/scheme/decompile-tree-il.scm O   P   P   Q   P  � W � P  i T w P �   ��g��nameg�� build-let�CCD@A;G?H� ������hX�� ��]|�$��"��454L�5"�"�"��]L$��T$��J&��5$��+$��44L55CCCCCC$�)$�$��(��$��   $�� (��   $��     &�� $��  $��$��t$��i(��^$��N $��7$��,4545$�� 45C"""""""""""""""{"w"s"o$��;$��'(��$��C"1"-")"%$��B$��.(��$��(��C"""""��������g�� in-order?  V�g��names  V�g��vals   V�g��body   V�g��v  $ V�g��w  E ��g��x  E ��g��x  [ ��g��x  � �g��w  � �g��x  � �g��w  � �g��w � �g��x � �g��w � �g��w � �g��x � �g��w   �g��x   �g��w  0 �g��w  ? �g��x  ? �g��x   �g��w   �g��x   �g��x   R�g��w  & N�g��x  & N��g��filenamef��%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 ��g��nameg�� build-letrec�C8�����h�����]#$��&��d$��Q&��4"�� ��C$��(����C""��C��C��C��C�������g��test  ��g�� consequent  ��g�� alternate   ��g��w   ��g��x   ��g��w  ( s�g��x  ( s��g��filenamef��%language/scheme/decompile-tree-il.scm m   n  9 p C n  W o  i p �  � ��g��nameg��build-if�CI�h0������]�(��C"���C�$���(���C""���������g��xs  .��g��filenamef��%language/scheme/decompile-tree-il.scm r   s   v  s �  . ��g��nameg�� build-and�CJ���h0������]�(��C"���C�$���(���C""���������g��xs  .��g��filenamef��%language/scheme/decompile-tree-il.scm x   y   |  y �  . ��g��nameg��build-or�CILNORT8��������hp��l��]I"� �$����&��45$�� 45"��$�� "��$��4L��5�C"��$��I45"��4L��5�C$��#(�� 4L54L� 5C""$��"4L��5�C"p4L��5�C4L��5�C�$��R��&��<$��1&��$��(��C""""""����d������g��e  l�g��w  �g��x   �g��tail-len  & ��g��len  ; ��g��ls  c ��g��n  c ��g��p-ls  c ��g��xs  s ��g��w � ��g��w  � ��g��w  h�g��x   h�g��w  5 `�g��x  5 `��g��filenamef��%language/scheme/decompile-tree-il.scm �   �  S � T �  [ � c �  { � | �  � � � �  � �  � � . � �  � �  � � � �  � � � �  � � � �  � �  �   �  �  S �  X � �  l ��g��nameg��build-else-tail�C8U�����h���Z���]�LL�6R�������g��filenamef��%language/scheme/decompile-tree-il.scm  � �   ���CVWX�����h����]�"�d"�A$�4$�&�$��$��   &�� $��     $��O� LQ�  $�� (��} $��k&��S $��D(��9$��'�4L�54L4L55CL66�6�L6L6 6� 6�L6L6L6L6L6L6L6L6$�$��&��$��$��   &�� $��     $�� $�� (��{   $��k  &��U$��J(��?$��/$��$4L�54L4L55C""""""""""""""""$��[$��F&��0$��%$��$��C"J"F"B">":"6�������g��v  �g��e  �g��v   �g��w   L�g��x   L�g��w  / F�g��x  / F�g��w  H :�g��x  H :�g��w Y 4�g��x Y 4�g��w r (�g��x r (�g��failure � "�g��w  � �g��w  � �g��x  � �g��failure  � �g��w  � �g��w  � ��g��x  � ��g��w  _ m�g��x  _ m�g��w  p i�g��x  p i�g��w   a�g��x   a�g��w  ]�g��x  ]�g��w  U�g��x  U�g��w  I�g��w   E�g��x   E�g��w   9�g��w   1�g��x   1�g��w  ~ �g��x  ~ �g��w   �g��x   �g��w   �g��x   ��+g��filenamef��%language/scheme/decompile-tree-il.scm �   �  � � � �  � � � � � � % � � � �  � R �   �  ! � " � ' � % / � 0 � 5 � �   ��g��nameg��build-case-else-tail�CL^RO�����h�����]A45�$�� 4�5"��$�� "��$���D"��$��X45"���D$��;(��0$��&�� �D�D�D""$��"~�D�"j�����������g��clauses  ��g��tail-len ��g��len   ��g��ls  = ��g��n  = ��g��p-ls  = ��g��cs  M ��g��w  i ��g��w  u ��g��w  � ��� g��filenamef��%language/scheme/decompile-tree-il.scm �   �  7 �  9 � = �  V �  X � X �  � � 1 � � & � �  � � � �  � � � �  � �  � � � � �  � ��g��nameg�� clauses+tail�CH_G@��h������]�4L�5C����������g��test  �g�� consequent  ��g��filenamef��%language/scheme/decompile-tree-il.scm �   � ( � �  ���C�������h���C��]4�5 $��C $�� L��644LO��5$��;&��$��"��4L5"��4L5"��4L55C����;������g��tests  ��g�� consequents  ��g�� alternate   ��g��key  ��g��w  L }�g��x  L }��g��filenamef��%language/scheme/decompile-tree-il.scm �   � �  # �  & � # * � , �  0 �  B �  f � � � �  � ��g��nameg�� build-cond�CUVW`a@UVW������hp����]YL��"��$��$��&��o$��f$��Q$��H(��?$��1   &�� $�� (��    �CCCCCCCCCCCC$��$��&��$��|$��e$��Z(��O$��?   &��) $�� (��   $�� C""""""""""""�������������g��t-df5d6f08a2a2c7b-4dd8  i�g��v  i�g��w   ��g��x   ��g��w  + ��g��x  + ��g��w  D ��g��x  D ��g��w  b ��g��w q ��g��x q ��g��w � ��g��w  � e�g��x  � e�g��w  � a�g��x  � a�g��w  � Y�g��x  � Y�g��w   M�g��w  I�g��x  I�g��w - =��g��filenamef��%language/scheme/decompile-tree-il.scm � /  �  � � � � �  i ���CHbEcdXGef����h����]KL$��(��"��"��$��&��$��$��"��$��"�{$��_(��S$��?   &��" $�� (��  "�7"�2"�-"�(  "�"�"�"�"��"��$��&��$��$��"��$��""��$��(��r$��[   &��; $��, (��   $��"��" "��""��""��"  "��"z"��"o"��"g"��"Y"��"Q"��"C44O��55454L4L4 �54 5554L�>�� G�454 4 554 4L4 555    $�� L� 6 44 4L4  5555CL�6���������g��tests  �g�� consequents  �g�� alternate   �g��test   �g��w  ) ��g��x  ) ��g��w  B ��g��x  B ��g��w  o ��g��w ~ ��g��x ~ ��g��w  � �g��x  � �g��w   �g��x   �g��w  : �g��w I �g��x I �g��w f |�g��v   �g�� datum-lists   �g��n   �g��tail   �g��clauses  + �g��tail  + �g��n c �g�� datum-lists c �g�� consequents c ��g��filenamef��%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   ��g��nameg��build-cond-or-case�Cg9hiVjkl@mno?Hpqrs7tuvwxyz{|}~<AGcXLROUVWG8� �����h��0��]"�"��$���&�$�$��"��$���C45$�� 45"��$�� "��$���C"�$�4 5 $��(��  $��     &�� $�� (�� $��&��$��$��j$��`(��V$��G&��2$��((��4  �5��C�C�C�C�C�C�C�C�C�C�C�C�C�C�C�C�C$��j  $��[     $��G (��=   $��. (��$ &��   "�C�C�C�C�C�C�C "q�C�C�C�$��� &�$�$�&�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"`"\������(������g��e  �g��w  �g��x   �g��w  0 �g��x  0 �g��tail-len  Q �g��len  f �g��ls  � �g��n  � �g��p-ls � �g��datum � �g��w � �g��w � �g��x � �g��w  � }�g��w  � z�g��x  � z�g��w  � t�g��x  � t�g��w   k�g��w  ' h�g��x  ' h�g��w  D _�g��w  ��g��w  �g��x  �g��w  �g��w   �g��w ( �g��x  ( �g��w  A �g��x  A �g��w  R �g��x  R �g��w  k �g��x  k �g��w  �g��w  �g��x  �g��w  �g��w  �g��x   �g��w   �g��w   �g��x   �g��w   �g��x   �g��w  4 �g��w  C �g��x  C �g��w  ` �g��w  �g��x   �g��w   �g��x   �g��w   �g��x   �g��w  7 �g��x  7 �g��w c �g��w r �g��x r �g��w  z�g��w  v�g��x   v�g��w   j�g��w   f�g��x   f�g��w   ^�g��x   ^�g��w  � R�g��w   N�g��x   N�g��w  , B��Jg��filenamef��%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 �   ��g��nameg�� simplify-test�C8UXW_IJ;���h�� ��]�&��C&��24�5"���C45$��$��"C"&��4�5L4 L56 &��4 �54 �54L54 L5$��$��l &��W$��M   $��9 $��/$��%4 545$��L� 4L 56CCCCCCCC&���6&��4�5L6&��(4�54�54L54L5�C&��14�54�54�5$��"���C&��F4�54 �54!�54"�5$��"���4L5�C#&��$�6%&��!4&�54'�54L5�C(&��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&�45�546�547�548�549�54:�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&� H4I�54J�54K�5LM44L554L54N5$��"�� 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&�n4V�54W�54X�54L�4 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`�54a�54b�5L4 L54 L54L56c&��74d�54e�5f 4L4L554L4g55�Ch&��@4i�54j�54k�5l4L5 4L4L554L5�Cm&��E4n�54o�54p�5q4 A4 L54 L554L4L55Cr&��4s�5t4L5�Cu&��&4v�54w�5x4L54L5�Cy&��@4z�54{�54|�5}4L5 4L4L554L5�C~&��B4�54�54�54L54D4 L54L5�5C�6��� ������g��e  �g��rtd  �g��exp  ! L�g��exps  [ j�g��proc  � !�g��args  � !�g��v  � !�g��w  � �g��x  � �g��w  � �g��x  � �g��w � �g��x � �g��gensym  > H�g��gensym  ^ x�g��exp  ^ x�g��mod   �g��name   �g��public?   �g��mod   �g��name   �g��public?   �g��exp   �g��name  # 6�g��exp  # 6�g��name  L ]�g��exp  L ]�g��meta  s �g��body  s �g��body   �g��doc   �g��w    �g��x    �g��w   �g��x  �g��w  �g��x  �g��w   y�g��x   y�g��w  3 q�g��x 3 q�g��w D m�g��x D m�g��w   �g��x   �g��w   �g��x  �g��w   �g��x   �g��w    �g��x   �g��req  ] �g��opt  ] �g��rest  ] �g��kw  ] �g��inits  ] �g��gensyms  ] �g��body  ] �g�� alternate ] �g��names v �g�� alt-expansion  r�g��formals  r�g��key  r�g�� alt-expansion  �g��nreq  �g��nopt  �g��restargs   �g��reqargs   �g��optargs   �g��kwargs  Q �g��formals  j �g��key  u �g��test   9�g�� consequent   9�g�� alternate   9�g�� simplify-test   9�g��v  B 9�g��w  y �g��x  y �g��w  �g��x  �g��w  �g��x  �g��w  �g��x   �g��w   �g��w   �g��x   �g��w   �g��w  " �g��x  " �g��w  7 �g��w  F �g��x  F �g��w  _ �g��x  _ �g��w   9�g��x   9�g��w  1�g��x  1�g��w  -�g��x  -�g��w  %�g��x   %�g��w  B �g��w  Q �g��x  Q �g��w  n �g��w  �g��x  �g��w  �g��w  �g��x  �g��w  �g��x  �g��w  J �g��x  J �g��w c �g��x c �g��w t �g��x t �g��w �g��w  �g��x  �g��w  �g��x  �g��w �g��x �g��w  �g��x  �g��w 2 �g��w  A �g��x  A �g��w  Z �g��x  Z �g��w  k �g��x  k �g��w  2�g��x  2�g��w *�g��x *�g��w &�g��x &�g��w  �g��w  G �g��x  G �g��w ` �g��x ` �g��w q �g��x q �g��w �g��x  �g��w  �g��w  7�g��x  7�g��w  /�g��x  /�g��w  '�g��w  N �g��x  N �g��w g �g��x g �g��w �g��x �g��w �g��w  �g��x  �g��w � �g��x � �g��w ( �g��x ( �g��w F }�g��w  U y�g��x  U y�g��w   Q�g��x   Q�g��w  I�g��x  I�g��w  A�g��w  =�g��x  =�g��w   5�g��x   5�g��w   -�g��w  f 5�g��x  f 5�g��w  -�g��x  -�g��w  %�g��w  !�g��x  !�g��w   �g��x   �g��w   �g��x   �g��w   �g��gensyms  V �g��vals  V �g��body  V �g��v  z �g��w   �g��x   �g��w   �g��x  �g��w  �g��w  �g��x  �g��w  }�g��w   w�g��w   t�g��x   t�g��w   n�g��x   n�g��s  < J�g��w   �g��x   �g��w   �g��x  �g��w  �g��w  �g��x  �g��w  �g��w   �g��w   �g��x   �g��w  / {�g��x  / {�g��s  S a�g�� in-order?   �g��gensyms   �g��vals   �g��body   �g��gensyms   ;�g��vals   ;�g��body   ;�g��exp  Q z�g��body  Q z�g��body   �g��winder   �g��unwinder   �g��fluids   �g��vals   �g��body   �g��fluid   -�g��fluid  C [�g��exp  C [�g��tag  x �g��body  x �g��handler  x �g��tag   �g��args   �g��tail   ��g��filenamef��%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   ��g��nameg��recurse�C��h@����-�/���0��3�#��#��#��#��4�>�� G�O�   O� O�  O�    O�O�O�O�O�Q�Q�  Q�   Q� Q�  Q� Q�  Q�     Q�4�5D������g��e  @�g��env  @�g��use-derived-syntax?   @�g�� avoid-lambda?   @�g�� use-case?   @�g��strip-numeric-suffixes?   @�g��output-name-table  F @�g��occurrence-count-table  F @�g�� output-name  � @�g�� build-begin � @�g��build-lambda-body � @�g��build-begin-body � @�g�� build-define � @�g�� build-let � @�g�� build-letrec  � @�g��build-if  � @�g�� build-and  � @�g��build-or  � @�g��build-else-tail  � @�g��build-case-else-tail  � @�g�� clauses+tail  � @�g�� build-cond  � @�g��build-cond-or-case  � @�g��recurse  � @��g��filenamef��%language/scheme/decompile-tree-il.scm ! 8 *  I )  6  @  �  @  g��use-derived-syntax?S g�� avoid-lambda?S g�� use-case?S g��strip-numeric-suffixes?S ���g��nameg�� do-decompile�C,RHH�4i4Hi554i��������h���~���]L��6�����v�������g��t-df5d6f08a2a2c7b-6cc8  ��g��filenamef��%language/scheme/decompile-tree-il.scm , �  ���CO�>��"��G��7��������h���u���]L��6������m�������g��name  ��g��filenamef��%language/scheme/decompile-tree-il.scm -  - �  ���CO�K�4i5��h`�����] 4�L�5$��G4�5$��5-4�5&��#04�5&���C4� 5�"�C�C�C���������g��str  ]�g��i ]��g��filenamef��%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 �  ] ��g��nameg��base-name-string�CO�Q������h������]4L�4�556�������������g��sym  ��g��filenamef��%language/scheme/decompile-tree-il.scm ;   <   < ,  <   < �   ���CO�K�����h0������] 4M�� 5 $�� �MN"���C������������g��s  +�g��h +��g��filenamef��%language/scheme/decompile-tree-il.scm N   O  O   P   P   P  Q $  Q  ' R  ( R  ) R �  + ��g��nameg��increment-occurrence-count!�C�h0������] �$��CL$�� 4M5"��M��6�������������g��s  *�g��name  *�g��name   *��g��filenamef��%language/scheme/decompile-tree-il.scm \   I  ]   ^   _   ^ * a �  * ��g��nameg��set-source-name!�C��������hh�����] �$��"��*4M��545$��"�� $��C4M�54�5$��C�C�������g��a  g�g��b  g�g��h   7�g��h  J g��g��filenamef��%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 ��g��nameg�� add-conflict!�C����h(������]4L��5$��C�C�������g��name  (�g��h (�g��t   (��g��filenamef��%language/scheme/decompile-tree-il.scm E  F  F  G   G  G 3 # G - $ G ! ' H !�  ( ���C�h0������]4L��5$��C4M�5C�������������g��name  *�g��h *�g��t   *��g��filenamef��%language/scheme/decompile-tree-il.scm V  W  W  X   X   X - & X ! ) Y !�  * ���Cg8e��h���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���ChV����h���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���Cmnos7pqh���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���Cr`��h���|���]L��C�������t�������g��s*  ��g��filenamef��%language/scheme/decompile-tree-il.scm     &   !�  ���Ch���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d65  ��g��filenamef��%language/scheme/decompile-tree-il.scm  �  ���Ctuvwh���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���Ch���|���]L��C�������t�������g��s*  ��g��filenamef��%language/scheme/decompile-tree-il.scm     &   !�  ���C��h���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d65  ��g��filenamef��%language/scheme/decompile-tree-il.scm  �  ���Cx{|}h���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���C~��h���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���Ch���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���C����h���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���C��h���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���Ch���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���C��h���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���CI������h���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���CJ������h���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���C_������h���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���CX������h���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���CO������h���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���C������h���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���Ch���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���Ckl:��h���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���C��h���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���C?����h���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���C<������h���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���Ch���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���C������h���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���C;������h���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���CB������h���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���CE@����h���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���Ch���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���Ch���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���C����h���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���Ch���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���Ch���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���CCD����h���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���Ch���~���]L�L�6������v�������g��t-df5d6f08a2a2c7b-6dd7  ��g��filenamef��%language/scheme/decompile-tree-il.scm  �  ���C������h���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���Ch���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���Ch���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���Ch���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���Ch���~���]L�L�6������v�������g��t-df5d6f08a2a2c7b-6deb  ��g��filenamef��%language/scheme/decompile-tree-il.scm  �  ���Ch���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���C������h���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���C������h���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���C��h���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���Ch���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���C������h���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���Ch���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���C������h���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���C������h���~���]LL��6������v�������g��t-df5d6f08a2a2c7b-6d57  ��g��filenamef��%language/scheme/decompile-tree-il.scm z �  ���C���h��-��]a�&��/4M 54M 54L 5L O�6&��/4M 54M 54L 5 L O�6 &��4 �54 �54 5$��T45$��"�� 4M54M5$��4L 4M 5>��"��G��"���"���4L>��"��G��L6&��84�54M 54M 54L 5L O�6&��{4�54M 5 $�� MN"���4O�444M $��"�� 4M55L 555L O�6&��4�54�54M 54M 54L 54L O�>��"��G��4M 5 $�� MN"���4O�444M $��"�� 4M55L 5554L O�>��"��G���"P &��P4!�54M $��""��#54M $��""��#54L 5$L O�6%&��4&�54'�54M 54M 54L 54(L O�>��"��G��4M $��""��#54M $��""��#54L 54)L O�>��"��G���"6*&��84+�54M 54M 54L 5,L O�6-&��4.�54/�54M 54M 54L 540L O�>��"��G��4M 54M 54L 541L O�>��"��G���"L2&��^43�544�54M 54M 54L 545L O�>��"��G���"6&�-47�548�549�5L�$�4M :54M :54L 54;L O�>��"��G��4M <54M <54L 54=L O�>��"��G��4M >54M >54L 54?L O�>��"��G��4M @54M @54L 54AL O�>��"��G��4M B54M B54L 54CL O�>��"��G��4M D54M D54L 54EL O�>��"��G��"���4M 54M 54L 54FL O�>��"��G��4L>��"��G��4L>��"��G���"G&��U4H�54M I54M I54L 54JL O�>��"��G��L6K&��F4L�5$���"54M M54M M54L 5NL O�6O&�4P�54Q�54R�54S�54T�54U�54V�54W�5 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>��"��G��4L >��"��G��4L>��"��G��4L >��"��G�� $�� �"?Ch&�R4i�54j�54k�54l�54M _54M _54L 54mL O�>��"��G��L�$��4M a54M a54L 54nL O�>��"��G��4M <54M <54L 54oL O�>��"��G��"���4L>��"��G��4L>��"��G��4L>��"��G��L4fgL 4dM 556p&�4q�54r�54s�54t�54u�54M _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>��"��G��4L>��"��G��4dM 54fgL 54|LO�>��"��G��L6}&�4~�54�54�54�54M _54M _54L 54L O�>��"��G��4M y54M y54L 54L O�>��"��G��L�$��4M a54M a54L 54L O�>��"��G��4M <54M <54L 54L O�>��"��G��"���4L>��"��G��4L>��"��G��4dM 54fgL 54LO�>��"��G��L6&��p4�54�54M 54M 54L 54L O�>��"��G��4L>��"��G���"&��4�54�54�54M 54M 54L 54L O�>��"��G��4L>��"��G��4L>��"��G���"]&��4�54�54�54M 54M 54L 54L O�>��"��G��4L>��"��G��4L>��"��G���"&��U4�54M 54M 54L 54L O�>��"��G���"i&��p4�54�54M 54M 54L 54L O�>��"��G��4L>��"��G���"&��4�54�54�54M 54M 54L 54L O�>��"��G��4M X54M X54L 54L O�>��"��G��4L>��"��G��4L>��"��G���"&��4�54�54�54M 54M 54L 54L O�>��"��G��4M 54M 54L 54L O�>��"��G��4L>��"��G��4L>��"��G���"A�6�������-������g��e  �g��rtd  �g��bname   >�g��s  + >�g�� conflicts  + >�g��bname  M u�g��s  b u�g�� conflicts  b u�g��proc  � �g��args  � �g��gensym  � ��g��name  � ��g��name   H�g��bname   H�g��s  5 H�g�� conflicts  5 H�g��gensym  W �g��h  c �g�� conflicts   �g��gensym   �g��exp   �g��bname   )�g��s   &�g�� conflicts   &�g��h  3 S�g�� conflicts   �g��public?    �g��bname    �g��s    �g�� conflicts    �g��public?   �g��exp   �g��bname  + h�g��s  @ e�g�� conflicts  @ e�g��bname  { �g��s   �g�� conflicts   �g��name    �g��bname    �g��s    �g�� conflicts    �g��name  " �g��exp  " �g��bname  - j�g��s  B g�g�� conflicts  B g�g��bname  q �g��s   �g�� conflicts   �g��name   �g��exp   �g��bname   �g��s   �g�� conflicts   �g��test  9 Q�g�� consequent  9 Q�g�� alternate  9 Q�g��bname  L �g��s  a �g�� conflicts  a �g��bname   �g��s   �g�� conflicts   �g��bname   �g��s   �g�� conflicts   �g��bname   U�g��s  - R�g�� conflicts  - R�g��bname  \ �g��s  q �g�� conflicts  q �g��bname   �g��s   �g�� conflicts   �g��bname   %�g��s   "�g�� conflicts   "�g��exps  ` �g��bname  i �g��s  ~ �g�� conflicts  ~ �g��body   �g��bname   �g��s   �g�� conflicts   �g��req  < �g��opt  < �g��rest  < �g��kw  < �g��inits  < �g��gensyms  < �g��body  < �g�� alternate < �g��bname S �g��s h �g�� conflicts h �g��bname  �g��s  �g�� conflicts  �g��bname  4�g��s 1�g�� conflicts 1�g��bname ; x�g��s P u�g�� conflicts P u�g��bname �g��s �g�� conflicts �g��bname �g��s �g�� conflicts �g��names G �g�� base-names R �g�� body-bindings a �g��names  �g��gensyms  �g��vals  �g��body  �g��bname  5�g��s  2�g�� conflicts  2�g��bname  B �g��s  W |�g�� conflicts  W |�g��bname  �g��s  �g�� conflicts  �g�� in-order?  J �g��names  J �g��gensyms  J �g��vals  J �g��body  J �g��bname  [ �g��s  p �g�� conflicts p �g��bname  �g��s  �g�� conflicts �g��bname  &�g��s  #�g�� conflicts #�g��bname  = �g��s  ^ �g�� conflicts ^ �g�� base-names  �g��bindings  �g��names   �g��gensyms   �g��vals   �g��body   �g��bname   ]�g��s  5 Z�g�� conflicts  5 Z�g��bname  d �g��s  y �g�� conflicts  y �g��bname   �g��s   �g�� conflicts   �g��bname   /�g��s   ,�g�� conflicts   ,�g�� base-names  f �g��bindings  u �g��exp   �g��body   �g��bname   �g��s   �g�� conflicts   �g��winder  / �g��body  / �g��unwinder  / �g��bname  < y�g��s  Q v�g�� conflicts  Q v�g��fluids   <�g��vals   <�g��body   <�g��bname    �g��s    �g�� conflicts    �g��fluid  K �g��bname  T �g��s  i �g�� conflicts  i �g��fluid   �g��exp   �g��bname   �g��s   �g�� conflicts   �g��tag  . �g��body  . �g��handler  . �g��bname  ; x�g��s  P u�g�� conflicts  P u�g��bname   �g��s   �g�� conflicts   �g��tag   �g��args   �g��tail   �g��bname   O�g��s  ' L�g�� conflicts  ' L�g��bname  V �g��s  k �g�� conflicts  k ��g��filenamef��%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      ��g��nameg��recurse�C��������h@������] O� L L LLLLLLLLL�Q��6��������������g��e  9�g��bindings  9�g��recurse   9��g��filenamef��%language/scheme/decompile-tree-il.scm r   s �  9 ��g��nameg��recurse-with-bindings�C�h������]M��6�����������g��s  �g��name  ��g��filenamef��%language/scheme/decompile-tree-il.scm    �  ��g��nameg��set-output-name!�C7�������h@������] 4M��5$��"�� 4M�5$��"�� C�������������g��a  :�g��b  :�g��t  �g��t  & 8��g��filenamef��%language/scheme/decompile-tree-il.scm    M ' M #  M ' & M # 9  #�  : ���C77�������h���~���]L��Cv�������g��t-df5d6f08a2a2c7b-6e32  ��g��filenamef��%language/scheme/decompile-tree-il.scm ! ,�   ���C�������h(������]�$���"�� 4M�5L�O�6�����������g��s*  $��g��filenamef��%language/scheme/decompile-tree-il.scm  #  I    J !    $  %�  $ ���C�7���h���~���]L��Cv�������g��t-df5d6f08a2a2c7b-6e32  ��g��filenamef��%language/scheme/decompile-tree-il.scm ! ,�   ���C�������h(������]�$���"�� 4M�5L�O�6�����������g��s*  $��g��filenamef��%language/scheme/decompile-tree-il.scm  #  I    J !    $  %�  $ ���C� h�����])L�4M�5$��"���$���"�� 4M�54L�O�5$��^4455"��84L�O�5$��444 555""�� ""��6������g��s  ��g��t  !�g�� the-conflicts 8 ��g��the-source-name  8 ��g��prefix  ^ ��g��i  d ��g��name  d ���g��filenamef��%language/scheme/decompile-tree-il.scm    h  h   h = $ I  ( c  + J ! 0 e 8   =   P #  Q % ) T & * \ ' * ^ % ) ^ %  d (  e   x )  { + ) | , )  - * � / + � - * � , ) � + # � (  �  �  � ���C��h����]cHHHHHHO� O� O� Q� Q� Q� K45�  O� K45�K45�  LO� K45�K45�KO�   L�   Q� 4 �>��"��G�� H H  O� Q�45�K 4 J O�5K 4   O�J >��"��G��J JD���������g��e  �g��use-derived-syntax?  �g��strip-numeric-suffixes?   �g��lexical-gensyms   �g��top-level-intern!   �g��occurrence-count-table   �g�� base-name   �g��source-name-table   �g��conflict-table   �g��increment-occurrence-count! / �g��set-source-name! / �g�� add-conflict! / �g��table L X�g��table f t�g��recurse-with-bindings � ��g��output-name-table � �g��sorted-lexical-gensyms � �g��set-output-name!  � ��g��filenamef��%language/scheme/decompile-tree-il.scm ?  E A  H D  L D  [ L % b U  f U  w [ ~ g  � r  �  " �  �    1 �   ���C�O��6RC��������g��m  ,�g�� primitive? x������)�g��compute-base-name x������)�g��table  x+ y�g��digits  y |�g��base-name-string  {4 {��g��filenamef��%language/scheme/decompile-tree-il.scm     x ! x +  x! + % x' $  x) + % x+ +  x+ $  x. ,  x $  x ,  y 3  y 3 & y 3  y 3 ������,  � ������. ���C6�������������������������������������������������������������������������������language/scheme/compile-tree-il.go������������������������������������������������������������������0000644�����������������00000002251�15253700563�0013117 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]��4��������h������]� g��guile � g��define-module* � � g��language g��scheme g��compile-tree-il � g��filenameS f��#language/scheme/compile-tree-il.scm g��importsS g��tree-il  � � � g��exportsS � g��set-current-module � � g��save-module-excursion g�� macroexpand g��c g��compile g��load g��eval � g��current-moduleC�5���h��o���]4    5�4�>��"��G������h0������]4L>��"��G��4L�5�45��D�������g��x  0�g��cenv & 0��g��filenamef��#language/scheme/compile-tree-il.scm              !       "   &   0 �  0 ���C������h������]�O�6��������g��x  �g��e  �g��opts   ��g��filenamef��#language/scheme/compile-tree-il.scm    �   ��g��nameg��compile-tree-il�CRC�g�������g��m  ,��g��filenamef��#language/scheme/compile-tree-il.scm     �   ���C6��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/value/spec.go������������������������������������������������������������������������������0000644�����������������00000001432�15253700563�0010732 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]� �4������h������]� g��guile � g��define-module* � � g��language g��value g��spec � g��filenameS f��language/value/spec.scm g��importsS g��system g��base  � � � g��exportsS � g��set-current-module � � g��invalidate-compilation-cache! g�� make-language g��nameS g��titleS f��Values g��readerS g��printerS g��write g�� for-humans?SC�5������h`���p���]4    5�4�>��"��G���4i>���"��G��4ii5 RC��h�������g��m  ,��g��filenamef��language/value/spec.scm   -  K   \  �  ^ ���C6���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/glil.go������������������������������������������������������������������������������������0000644�����������������00000044020�15253700563�0007613 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0G������]��4��������h������]� g��guile � g��define-module* � � g��language g��glil � g��filenameS f��language/glil.scm g��importsS g��system g��base g��syntax   � � g��pmatch   � � g��srfi g��srfi-1 � g��selectS g��fold � � � g��exportsS g��<glil-program> g��make-glil-program g�� glil-program? g��glil-program-meta !g��glil-program-body "g��<glil-std-prelude> #g��make-glil-std-prelude $g��glil-std-prelude? %g��glil-std-prelude-nreq &g��glil-std-prelude-nlocs 'g��glil-std-prelude-else-label (g��<glil-opt-prelude> )g��make-glil-opt-prelude *g��glil-opt-prelude? +g��glil-opt-prelude-nreq ,g��glil-opt-prelude-nopt -g��glil-opt-prelude-rest .g��glil-opt-prelude-nlocs /g��glil-opt-prelude-else-label 0g��<glil-kw-prelude> 1g��make-glil-kw-prelude 2g��glil-kw-prelude? 3g��glil-kw-prelude-nreq 4g��glil-kw-prelude-nopt 5g��glil-kw-prelude-kw 6g��!glil-kw-prelude-allow-other-keys? 7g��glil-kw-prelude-rest 8g��glil-kw-prelude-nlocs 9g��glil-kw-prelude-else-label :g�� <glil-bind> ;g��make-glil-bind <g�� glil-bind? =g��glil-bind-vars >g��<glil-mv-bind> ?g��make-glil-mv-bind @g�� glil-mv-bind? Ag��glil-mv-bind-vars Bg��glil-mv-bind-rest Cg�� <glil-unbind> Dg��make-glil-unbind Eg�� glil-unbind? Fg�� <glil-source> Gg��make-glil-source Hg�� glil-source? Ig��glil-source-props Jg�� <glil-void> Kg��make-glil-void Lg�� glil-void? Mg�� <glil-const> Ng��make-glil-const Og�� glil-const? Pg��glil-const-obj Qg��<glil-lexical> Rg��make-glil-lexical Sg�� glil-lexical? Tg��glil-lexical-local? Ug��glil-lexical-boxed? Vg��glil-lexical-op Wg��glil-lexical-index Xg��<glil-toplevel> Yg��make-glil-toplevel Zg��glil-toplevel? [g��glil-toplevel-op \g��glil-toplevel-name ]g�� <glil-module> ^g��make-glil-module _g�� glil-module? `g��glil-module-op ag��glil-module-mod bg��glil-module-name cg��glil-module-public? dg�� <glil-label> eg��make-glil-label fg�� glil-label? gg��glil-label-label hg�� <glil-branch> ig��make-glil-branch jg�� glil-branch? kg��glil-branch-inst lg��glil-branch-label mg�� <glil-call> ng��make-glil-call og�� glil-call? pg��glil-call-inst qg��glil-call-nargs rg��<glil-mv-call> sg��make-glil-mv-call tg�� glil-mv-call? ug��glil-mv-call-nargs vg��glil-mv-call-ra wg�� <glil-prompt> xg��make-glil-prompt yg�� glil-prompt? zg��glil-prompt-label {g��glil-prompt-escape-only? |g�� parse-glil }g�� unparse-glil ~ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}�a g��set-current-module �� �� �g��format �f�� #<glil ~s> �g�� print-glil �g��make-record-type �f��<glil-program> �g��meta �g��body �� �g��record-predicate �g��make-procedure-with-setter �g��record-accessor �g��record-modifier �f��<glil-std-prelude> �g��nreq �g��nlocs �g�� else-label �� �f��<glil-opt-prelude> �g��nopt �g��rest �� �f��<glil-kw-prelude> �g��kw �g��allow-other-keys? �� �f�� <glil-bind> �g��vars �� �f��<glil-mv-bind> �� �f�� <glil-unbind> �f�� <glil-source> �g��props �� �f�� <glil-void> �f�� <glil-const> �g��obj �� �f��<glil-lexical> �g��local? �g��boxed? �g��op �g��index �� �f��<glil-toplevel> �g��name �� �f�� <glil-module> �g��mod �g��public? �� �f�� <glil-label> �g��label �� �f�� <glil-branch> �g��inst �� �f�� <glil-call> �g��nargs �� �f��<glil-mv-call> �g��ra �� �f�� <glil-prompt> �g�� escape-only? �� �g��prompt �g��error �f�� invalid glil �g��mv-call �g��call �g��branch �g��module �g��private �g��public �g��toplevel �g��lexical �g��const �g��void �g��source �g��unbind �g��mv-bind �g��bind �g�� kw-prelude �g�� opt-prelude �g�� std-prelude �g��program �g��map �� �� �� �f��unhandled recordC�5��h4��v���]4   ~5�4�>��"��G���}��h������]4�56��������������g��x  �g��port  ��g��filenamef��language/glil.scm Q  R  R   R �   ��g��nameg�� print-glil�CR4ii5R�h������-�1�3���C������������g��meta �g��body �g��defrec-98ee61a7034-32d  ��g��filenamef��language/glil.scm T �   ��g��nameg��make-glil-program�CR4ii5R4i4ii54ii55 R4i4ii54ii55!R4ii5"R"��h������-�1�3���C����������g��nreq �g��nlocs �g�� else-label  �g��defrec-98ee61a7034-32f  ��g��filenamef��language/glil.scm T �   ��g��nameg��make-glil-std-prelude�C#R4i"i5$R4i4i"i54i"i55%R4i4i"i54i"i55&R4i4i"i54i"i55'R4ii5(R(�h ������-�1�3���C��������������g��nreq �g��nopt �g��rest  �g��nlocs  �g�� else-label  �g��defrec-98ee61a7034-331  ��g��filenamef��language/glil.scm T �   ��g��nameg��make-glil-opt-prelude�C)R4i(i5*R4i4i(i54i(i55+R4i4i(i54i(i55,R4i4i(i54i(i55-R4i4i(i54i(i55.R4i4i(i54i(i55/R4ii50R0�����h �����-�1�3���C���������g��nreq �g��nopt �g��rest  �g��kw  �g��allow-other-keys?  �g��nlocs  �g�� else-label  �g��defrec-98ee61a7034-333  ��g��filenamef��language/glil.scm T �   ��g��nameg��make-glil-kw-prelude�C1R4i0i52R4i4i0i54i0i553R4i4i0i54i0i554R4i4i0i54i0i557R4i4i0i54i0i555R4i4i0i54i0i556R4i4i0i54i0i558R4i4i0i54i0i559R4ii5:R:�������h������-�1�3���C��������������g��vars �g��defrec-98ee61a7034-335 ��g��filenamef��language/glil.scm T �  ��g��nameg��make-glil-bind�C;R4i:i5<R4i4i:i54i:i55=R4ii5>R>�����h������-�1�3���C������������g��vars �g��rest �g��defrec-98ee61a7034-337  ��g��filenamef��language/glil.scm T �   ��g��nameg��make-glil-mv-bind�C?R4i>i5@R4i4i>i54i>i55AR4i4i>i54i>i55BR4ii5CRC���h������-��1��3��C��������g��defrec-98ee61a7034-339 ��g��filenamef��language/glil.scm T �  ��g��nameg��make-glil-unbind�CDR4iCi5ER4ii5FRF��������h������-�1�3���C��������������g��props �g��defrec-98ee61a7034-33b ��g��filenamef��language/glil.scm T �  ��g��nameg��make-glil-source�CGR4iFi5HR4i4iFi54iFi55IR4ii5JRJ���h������-��1��3��C�}�������g��defrec-98ee61a7034-33d ��g��filenamef��language/glil.scm T �  ��g��nameg��make-glil-void�CKR4iJi5LR4ii5MRM��h������-�1�3���C��������������g��obj �g��defrec-98ee61a7034-33f ��g��filenamef��language/glil.scm T �  ��g��nameg��make-glil-const�CNR4iMi5OR4i4iMi54iMi55PR4ii5QRQ�����h������-�1�3���C��������g��local? �g��boxed? �g��op  �g��index  �g��defrec-98ee61a7034-341  ��g��filenamef��language/glil.scm T �   ��g��nameg��make-glil-lexical�CRR4iQi5SR4i4iQi54iQi55TR4i4iQi54iQi55UR4i4iQi54iQi55VR4i4iQi54iQi55WR4ii5XRX���h������-�1�3���C������������g��op �g��name �g��defrec-98ee61a7034-343  ��g��filenamef��language/glil.scm T �   ��g��nameg��make-glil-toplevel�CYR4iXi5ZR4i4iXi54iXi55[R4i4iXi54iXi55\R4ii5]R]���h������-�1�3���C��������g��op �g��mod �g��name  �g��public?  �g��defrec-98ee61a7034-345  ��g��filenamef��language/glil.scm T �   ��g��nameg��make-glil-module�C^R4i]i5_R4i4i]i54i]i55`R4i4i]i54i]i55aR4i4i]i54i]i55bR4i4i]i54i]i55cR4ii5dRd�������h������-�1�3���C��������������g��label �g��defrec-98ee61a7034-347 ��g��filenamef��language/glil.scm T �  ��g��nameg��make-glil-label�CeR4idi5fR4i4idi54idi55gR4ii5hRh���h������-�1�3���C������������g��inst �g��label �g��defrec-98ee61a7034-349  ��g��filenamef��language/glil.scm T �   ��g��nameg��make-glil-branch�CiR4ihi5jR4i4ihi54ihi55kR4i4ihi54ihi55lR4ii5mRm��h������-�1�3���C������������g��inst �g��nargs �g��defrec-98ee61a7034-34b  ��g��filenamef��language/glil.scm T �   ��g��nameg��make-glil-call�CnR4imi5oR4i4imi54imi55pR4i4imi54imi55qR4ii5rRr����h������-�1�3���C������������g��nargs �g��ra �g��defrec-98ee61a7034-34d  ��g��filenamef��language/glil.scm T �   ��g��nameg��make-glil-mv-call�CsR4iri5tR4i4iri54iri55uR4i4iri54iri55vR4ii5wRw���h������-�1�3���C������������g��label �g�� escape-only? �g��defrec-98ee61a7034-34f  ��g��filenamef��language/glil.scm T �   ��g��nameg��make-glil-prompt�CxR4iwi5yR4i4iwi54iwi55zR4i4iwi54iwi55{Rxsnie^YRNKGD?;1)#|�+�h�� ��]"�z"�"�\"�"�]"�"�"�"�L"�"�s"�"�x"�"�"�3"��"��q�$��b��&��H$��9$�� (��6�6�6�6�6�6�$��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��� ������g��x  �g��vx W ��g��vy  W ��g��vx  p ��g��vy  p ��g��vx  � ��g��vy  � ��g��vx � �g��vy  � �g��vx  �  �g��vy  �  �g��vx  � �g��vy  � �g��vx % q�g��vy  % q�g��vx  > i�g��vy  > i�g��vx  O e�g��vy  O e�g��vx  �g��vy   �g��vx   �g��vy   �g��vx   �g��vy   �g��vx  �g��vy   �g��vx    �g��vy    �g��vx % �g��vy  % �g��vx  > �g��vy  > �g��vx  W �g��vy  W �g��vx  h �g��vy  h �g��vx y �g��vy y �g��vx  @�g��vy   @�g��vx   8�g��vy   8�g��vx   0�g��vy   0�g��vx   ,�g��vy   ,�g��vx  (�g��vy  (�g��vx Q �g��vy  Q �g��vx  j �g��vy  j �g��vx  { �g��vy  { �g��vx  (�g��vy   (�g��vx    �g��vy    �g��vx   �g��vy   �g��vx   �g��vy   �g��vx  �g��vy  �g��vx 9 n�g��vy  9 n�g��vx  R f�g��vy  R f�g��vx  �g��vy   �g��vx  �g��vy   �g��vx   �g��vy   �g��vx  �g��vy   �g��vx # o�g��vy  # o�g��vx  < g�g��vy  < g�g��vx  M c�g��vy  M c�g��vx  �g��vy   �g��vx  f�g��vy   f�g��vx   ^�g��vy   ^�g��vx   Z�g��vy   Z�g��vx   V�g��vy   V�g��vx  R�g��vy  R�g��vx  N�g��vy  N�g��vx  J�g��vy   J�g��vx  & F�g��vy  & F�g��vx w �g��vy  w �g��vx   ��g��vy   ��g��vx   �g��vy   �g��vx   �g��vy   �g��vx  �g��vy  �g��vx  �g��vy  �g��vx  |�g��vy   |�g��vx  2 t�g��vy  2 t�g��vx  C p�g��vy  C p�g��vx  T l�g��vy  T l�g��vx  �g��vy   �g��vx   �g��vy   ��}g��filenamef��language/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   ��g��nameg�� parse-glil�C|R !}"%&'(+,-./03475689:=>ABCFIJMPQTUVWX[\]`abcdghklmpqruvwz{�U�h��d��]A�&��"4�54�545C&��'4�54 �54 �5 �C &��=4 �54�54�54�54�5�C&��S4�54�54�54�54�54�54�5�C&��4�5C&��4 �54!�5"�C#&��$C%&��4&�5'�C(&��)C*&��4+�5,�C-&��24.�54/�540�541�52�C3&��44�545�56�C7&��>48�549�54:�54;�5<$��="��>�C?&��4@�5A�CB&��4C�54D�5E�CF&��4G�54H�5I�CJ&��4K�54L�5M�CN&��$4O�54P�>��"��G��QRCST�6\������g��glil  �g��rtd  �g��meta   1�g��body   1�g��nreq  N `�g��nlocs  N `�g�� else-label  N `�g��nreq  � ��g��nopt  � ��g��rest  � ��g��nlocs  � ��g�� else-label  � ��g��nreq  � ��g��nopt  � ��g��rest  � ��g��kw  � ��g��allow-other-keys?  � ��g��nlocs  � ��g�� else-label  � ��g��vars   �g��vars  - ;�g��rest  - ;�g��props  U _�g��obj  y �g��local?   �g��boxed?   �g��op   �g��index   �g��op   �g��name   �g��op   '�g��mod   '�g��name   '�g��public?   '�g��label  6 @�g��inst  V d�g��label  V d�g��inst  z �g��nargs  z �g��nargs   �g��ra   �g��label   ��*g��filenamef��language/glil.scm �  �  # �  & �  / �  9 �  V �  h �  � �  � �  � �   �   �   �  3 � C �  E �  N �  Y �  g �  i �  r �  } �   �   �   �   �   �   �   �   �   � # & �  / �  : �  H �  \ � l �   �   �   �   �   �   � �-   ��g��nameg�� unparse-glil�C}RC�������n�������g��m  ,��g��filenamef��language/glil.scm   � Q  T + n 4 � �  4 ���C6�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/brainfuck/spec.go��������������������������������������������������������������������������0000644�����������������00000002221�15253700563�0011557 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0y������]�,�4��h������]� g��guile � g��define-module* � � g��language g�� brainfuck g��spec � g��filenameS f��language/brainfuck/spec.scm g��importsS g��compile-tree-il  � � g��compile-scheme � � g��parse � � g��system g��base � � � g��exportsS � g��set-current-module � � g��invalidate-compilation-cache! !g�� make-language "g��nameS #g��titleS $f�� Brainfuck %g��readerS &g��read-brainfuck 'g�� compilersS (g��tree-il )g��scheme *g��printerS +g��writeC�5h�����]4    5�4�>��"��G���4 i>���"��G��4!i"#$%&�����h���z���]�6r�������g��port  �g��env  ��g��filenamef��language/brainfuck/spec.scm &   & #�   ���C'( i)i�*+i5 RC������w�������g��m  ,��g��filenamef��language/brainfuck/spec.scm   - $ K %  � '  � $ �   ���C6��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/brainfuck/compile-scheme.go����������������������������������������������������������������0000644�����������������00000004732�15253700563�0013530 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0 ������]�>�4��������h������]� g��guile � g��define-module* � � g��language g�� brainfuck g��compile-scheme � g��filenameS f��%language/brainfuck/compile-scheme.scm g��exportsS � g��set-current-module � � g�� tape-size g��let g��pointer  � g��tape g�� make-vector  � g��append � � g�� compile-body g�� write-char  � � g��reverse g��compile-instruction !g�� <bf-move> "g��set! #g��+ $g��<bf-increment> %g�� vector-set! &g�� vector-ref '&� (g�� <bf-print> )g�� integer->char *)'� +*� ,g�� <bf-read> -g�� char->integer .g�� read-char /.� 0-/� 1%0� 2g�� <bf-loop> 3g��iterate 4g��if 5g��not 6g��= 76' � 857� 9g��begin :3� ;:� <g��error =f��unknown brainfuck instruction C�5����h(�����]4     5�4�>��"��G��� u0R� ���h0������]��44�5 5D����������g��exp  -�g��env  -�g��opts   -��g��filenamef��%language/brainfuck/compile-scheme.scm 5  7   9  9  ! 9 # 7  - 6 �  - ��g��nameg��compile-scheme�CR ������h8���-��]"��&(��645"�"�%������g�� instructions  7�g��cur  ,�g��result   ,�g��compiled   ,��g��filenamef��%language/brainfuck/compile-scheme.scm D  E  G   H   I   I +  I   I   J  $ J  , J  , E  / F  7 E �  7 ��g��nameg�� compile-body�CR!"#$%'(+,123489;<=������h���s��]�$�����C$�����C $�� C $�� C $��"44�55��C6����k������g��ins  ��g��key  ��g��dir   '�g��inc  4 I��g��filenamef��%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 �  � ��g��nameg��compile-instruction�C RC�������g��m  (��g��filenamef��%language/brainfuck/compile-scheme.scm   . $ Z 5  D & P �  ( ���C6���������������������������������������language/brainfuck/compile-tree-il.go���������������������������������������������������������������0000644�����������������00000006733�15253700563�0013630 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0 ������]�X�4������h������]� g��guile � g��define-module* � � g��language g�� brainfuck g��compile-tree-il � g��filenameS f��&language/brainfuck/compile-tree-il.scm g��importsS g��system g��base g��pmatch  � � g��tree-il � � � g��exportsS � g��set-current-module � � g�� tape-size g�� parse-tree-il g��let g��pointer g��tape � !g��const "! � #g��apply $g�� primitive %g�� make-vector &$%� '"� (g�� compile-body )g��void *)� +g��begin ,g��reverse -g�� <bf-loop> .g��gensym /g��letrec 0g��iterate 10� 2g��lambda 3g�� lambda-case 4� 5g��if 6g��= 7$6� 8g�� vector-ref 9$8� :g��lexical ;:� <:� =#9;<� >#7="� ?� @g��error Af��unknown brainfuck instruction Bg�� <bf-read> Cg�� vector-set! D$C� Eg�� char->integer F$E� Gg�� read-char H$G� I#H� J#FI� K#D;<J� Lg�� <bf-print> Mg�� write-char N$M� Og�� integer->char P$O� Q#P=� R#NQ� Sg��<bf-increment> Tg��+ U$T� Vg�� <bf-move> Wg��set!C�5�h�����]4    5�4�>��"��G��� u0R "#&!'(� �����h8������]4� �4 �5�5D�������������g��exp  2�g��env  2�g��opts   2��g��filenamef��&language/brainfuck/compile-tree-il.scm [  ]   ^  ! a * ^  , ]  2 \ �  2 ��g��nameg��compile-tree-il�CR*+,-./12345>(#:?@ABKLRSD;<U=!VW� �h(����]A"�(��(��C(��C45C"�"�"��"��$��&��f45��    4 5����������"G66$��0&��(��""<"8"4$��0&��(��""""$��b&��L$��A(��-���"b""""$��^&��H$��=(��)���""#"""�"������g�� instructions  (�g��in  �g��out   �g��v  . �g��vx  M ��g��vy  M ��g��iterate  ^ ��g��x  � ��g��vx  � �g��vy  � �g��vx   C�g��vy   C�g��vx  T �g��vy  T �g��vx  m �g��vy  m �g��x   �g��vx   �g��vy   �g��vx   �g��vy   �g��x    ��g��filenamef��&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  ( ��g��nameg�� compile-body�C(RC���y�������g��m  ,��g��filenamef��&language/brainfuck/compile-tree-il.scm   2 - l [  h �   ���C6��������������������������������������language/brainfuck/parse.go�������������������������������������������������������������������������0000644�����������������00000004022�15253700563�0011740 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�#�4���h#������]� g��guile � g��define-module* � � g��language g�� brainfuck g��parse � g��filenameS f��language/brainfuck/parse.scm g��exportsS g��read-brainfuck  � g��set-current-module � � g��<bf-nop> g��reverse-without-nops g�� read-char g�� eof-object? g��process-input-char g�� <bf-move>  �  � g��<bf-increment>  �  � g�� <bf-print> � g�� <bf-read> � !g�� <bf-loop> "�C�5h��x���]4    5�4�>��"��G�����hH���9��]!"��7(��C&�� ""�"1������g��lst  H�g��cur  =�g��result   =�g��head   =�g��tail   =��g��filenamef��language/brainfuck/parse.scm *  +  -   /   0   /   1   1  " 1  . 2 5 3  = 3 = +  @ ,  H + �  H ��g��nameg��reverse-without-nops�CR��������hX���9��]"��J4�545$��45(��CC]$��64�5""�1������g��p  W�g��parsed  P�g��chr  P�g��parsed  ! /��g��filenamef��language/brainfuck/parse.scm >  ?   @  @   B   A   C  ! C  ) D 4 G  8 A  > H  ? J  J J  P J  P ?  Q ?  W ? �  W ��g��nameg��read-brainfuck�C R ! "� �����hh�����]�>$��C�<$��C�+$��C�-$��C�.$��C�,$��C�[$�� 45C C�������������g��chr  a�g��p  a��g��filenamef��language/brainfuck/parse.scm U V  W  V   X # V  % Y / V  1 Z ; V  = [ G V  I \ S V  U ] V ]  ] ] ` ^ �  a ��g��nameg��process-input-char�CRC�����p�������g��m  (��g��filenamef��language/brainfuck/parse.scm    * l >  U �   ���C6���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/elisp/runtime.go���������������������������������������������������������������������������0000644�����������������00000015734�15253700563�0011475 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]��4������h| ������]� g��guile � g��define-module* � � g��language g��elisp g��runtime � g��filenameS f��language/elisp/runtime.scm g��exportsS g�� nil-value g��t-value g��value-slot-module g��function-slot-module g�� elisp-bool g�� ensure-fluid! g��reference-variable g�� set-variable! g�� runtime-error g�� macro-error g�� built-in-func g��built-in-macro g�� defspecial g��prim  � g��set-current-module � � g�� value-slot � !g�� function-slot "!� #g��error $g��resolve-interface %g��resolve-module &g��module-defined? 'g��make-unbound-fluid (g��module-define! )g��module-export! *g�� module-ref +g�� module-set! ,g��make-syntax-transformer -,� .,� /g��macro 0g�� $sc-dispatch 10� 20� 3g��any 4333� 5g�� syntax-object 6g��begin 7g��top 87� 9g��ribcage :g��dummy ;g��name <g��value =:;<� >g��m-9d4fb909439-25 ?>7� @?88� Af��l-9d4fb909439-2a Bf��l-9d4fb909439-2b Cf��l-9d4fb909439-2c DABC� E9=@D� F9� Gg��x HG� I?� Jf��l-9d4fb909439-27 KJ� L9HIK� M8EFL� Ng��hygiene ON� P56MO� Qg�� define-public R5QMO� Sg��syntax-violation TS� US� Vf��-source expression failed to match any pattern Wg�� datum->syntax Xg��map Yg�� identifier? Zg�� syntax->datum [g��identity \g��string->symbol ]g�� string-append ^g��symbol->string _g��make-id `g��_ a`33� bg��macro- cg�� scheme-name dc� e8� ff��l-9d4fb909439-44 gf� h9deg� i;<� j88� kf��l-9d4fb909439-3e lf��l-9d4fb909439-3f mkl� n9ijm� of��l-9d4fb909439-3b po� q9Hep� r8FhnFq� s56rO� t5QrO� ug�� make-fluid v5urO� wg��cons x5wrO� yg��quote z5yrO� {5/rO� |z{� }g��each-any ~3} 3~ �` �g��compile- �f��l-9d4fb909439-52 �� �9de� �g��args �g��body �;� �888� �f��l-9d4fb909439-4a �f��l-9d4fb909439-4b �f��l-9d4fb909439-4c �� �9� �f��l-9d4fb909439-47 �� �9He� �8FF� �56O� �g��define �5O� �5uO� �5wO� �5yO� �g��special-operator �5O� �� �g��lambda �5O� �g��@ �g��sym �:� �g��m-9d4fb909439-55 �7� �88� �f��l-9d4fb909439-5a �f��l-9d4fb909439-5b �f��l-9d4fb909439-5c �� �9� �� �f��l-9d4fb909439-57 �� �9H� �8F� �5O� �5O� ��C�5�������h�����]4    5�4�>��"��G��� RR R"R#��������h������-�1�3��@��������������g��msg �g��args ��g��filenamef��language/elisp/runtime.scm 5  6 �  ��g��nameg�� macro-error�CRiR �����h���{���]�$��CC��s�������g��b  ��g��filenamef��language/elisp/runtime.scm <  = �   ��g��nameg�� elisp-bool�CR$%&'()��hP�����]4�54�545$��C45�4>��"��G���6�����������g��module  K�g��sym  K�g��intf   K�g��resolved   K�g��fluid  ( K��g��filenamef��language/elisp/runtime.scm G  H  I   H   J ! J  $ K  ( K  + L I M # K M �  K ��g��nameg�� ensure-fluid!�CR%*��h@������] 4�5�$��64�>��"��G��45[C������������g��module  ;�g��sym  ;�g��resolved  ;��g��filenamef��language/elisp/runtime.scm O  P  P   R   Q   S   U  1 V �  ; ��g��nameg��reference-variable�CR$%&+()*� �������h���>��]4�54�5�$��X45$��4>��"��G��"��-4>��"��G��4�>��"��G��"�� 4�>��"��G��4 5\C��6������g��module  ��g��sym  ��g��value   ��g��intf   ��g��resolved   ���g��filenamef��language/elisp/runtime.scm X  Y  Z   Y   \   [   ^  * ]  + _  E a  [ b  d b i b  v d  � e �  � ��g��nameg�� set-variable!�CR4./24PR���h���R���]��C�������J�������g��dummy  �g��name  �g��value   ��   ���CUV�������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��language/elisp/runtime.scm l �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��nameg��value���C5RWXYZ[�����h ���y���]4�5$��"���6�������q�������g��datum  ��g��filenamef��language/elisp/runtime.scm x   y y   y �   ���C\]^������h0������-�1�3��454445?56�������g�� template-id 0�g��data 0�g��symbols   .��g��filenamef��language/elisp/runtime.scm q  x   w   t  u  u ! ) u + t 0 v � 0 ��g��nameg��make-id�C_R4./2a_bstvx|�����h0������] 4��5����C�������������g��name  *�g��value  *�g��tmp  *��g��filenamef��language/elisp/runtime.scm  � " � 2 � " � �  * ���CUV��������h(���n���] 4�5$��@�6������f�������g��x  "�g��tmp "��g��filenamef��language/elisp/runtime.scm � �  " ���C5R4./2_� ����h0������] 4��5����C�������g��name  0�g��args  0�g��body   0�g��tmp  0��g��filenamef��language/elisp/runtime.scm  � " � 2 � " � �  0 ���CUV�������h(���n���] 4�5$��@�6������f�������g��x  "�g��tmp "��g��filenamef��language/elisp/runtime.scm � �  " ���C5R4./2�h���P���]�C�H�������g��dummy  �g��sym  �g��args   ��   ���CUV�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��language/elisp/runtime.scm � �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��symg��argsg��...���C5RC�����������g��m  (��g��filenamef��language/elisp/runtime.scm   , % 0 ' 2 -  5 - 7 /  : / � 5  8  < * G b O i X q �   ���C6�������������������������������������language/elisp/spec.go������������������������������������������������������������������������������0000644�����������������00000002075�15253700563�0010736 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0%������]�(�4������h]������]� g��guile � g��define-module* � � g��language g��elisp g��spec � g��filenameS f��language/elisp/spec.scm g��importsS g��compile-tree-il  � � g��parser � � g��system g��base � � � g��exportsS � g��set-current-module � � g��invalidate-compilation-cache! g�� make-language g��nameS g��titleS !f�� Emacs Lisp "g��readerS #g�� read-elisp $g��printerS %g��write &g�� compilersS 'g��tree-ilC�5������h���{���]4    5�4�>��"��G���4i>���"��G��4i !"#�����h���v���]�6n�������g��port  �g��env  ��g��filenamef��language/elisp/spec.scm     !�   ���C$%i&' i�5 RC�s�������g��m  ,��g��filenamef��language/elisp/spec.scm   -  K   �   �  �  � ���C6��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/elisp/bindings.go��������������������������������������������������������������������������0000644�����������������00000011010�15253700563�0011566 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�/�4�������h������]� g��guile � g��define-module* � � g��language g��elisp g��bindings � g��filenameS f��language/elisp/bindings.scm g��exportsS g�� make-bindings g��mark-global-needed! g��map-globals-needed g��with-lexical-bindings g��with-dynamic-bindings g��get-lexical-binding  � g��set-current-module � � g��make-record-type g��needed-globals g��lexical-bindings � g�� bindings-type g��record-constructor g��make-hash-table g��record-accessor g�� assoc-ref g��memq !g�� assoc-set! "g��record-modifier #g��hash-ref $g��and-map %g��symbol? &g��error 'f��can't bind non-symbols (g��for-each )g�� hash-set! *g�� make-fluid +g�� with-fluids* ,g��map -g��with-symbol-bindings .f��#invalid targets for lexical bindingC�5���hH �����]4    5�4�>��"��G���4i5R��������h������]�4545�6��������������g��filenamef��language/elisp/bindings.scm 1  2  2 & 2 *  2 �   ��g��nameg�� make-bindings�C R !"����hh�����]#445�545$��"��45$��"��4545�6���������g��bindings  e�g��sym  e�g��module   e�g�� old-needed   e�g��t   -�g�� old-in-module  - e�g�� new-in-module  G e�g�� new-needed  T e��g��filenamef��language/elisp/bindings.scm 7  8   8  8 5 8   8   8   :   :  * : : - 8  0 ;  < ;  G =  G 8  J >  T 8  W ?  ] ? $ _ ?  e ? �  e ��g��nameg��mark-global-needed!�CR�����h���'��]B445�5"��`(��C"��$(�� "��$45  " """�������������g��bindings  ��g��proc  ��g��needed   ��g��mod-tail   v�g�� mod-result   v�g��aentry  % n�g��module  * k�g��symbols  / h�g��sym-tail  5 Y�g�� sym-result 5 Y�� g��filenamef��language/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 �  � ��g��nameg��map-globals-needed�CR#��h0������]445�545$��[CC�������������g��bindings  *�g��sym  *�g��lex   *�g��slot   *��g��filenamef��language/elisp/bindings.scm ]  ^   ^  ^ . ^   ^   ^   `   ^  $ a �  * ��g��nameg��get-lexical-binding�CR$%&'(#)*��h ������]4L��5$��CL��45�6��x�������g��sym  ��g��filenamef��language/elisp/bindings.scm n   o   o   p '  p �   ���C+,#������h���h���]L��6������`�������g��sym  ��g��filenamef��language/elisp/bindings.scm r  r %�  ���C� ����hx���_��] $��45"��$��4>��"��G��"���445�54 O�>��"��G�� 4  O�56�����W������g��bindings  s�g��syms  s�g��targets   s�g��proc   s�g��lex  B s��g��filenamef��language/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 ��g��nameg��with-symbol-bindings�C-R$%&.-��������h0�����]$��45"��$��6�6�������g��bindings  0�g��syms  0�g��targets   0�g��proc   0��g��filenamef��language/elisp/bindings.scm v  w  w  x   x  w  w  y $ y  0 z �  0 ��g��nameg��with-lexical-bindings�CR-,�������h���_���]C����W�������g��el  ��g��filenamef��language/elisp/bindings.scm  �   ���C������h������]�456����������g��bindings  �g��syms  �g��proc   ��g��filenamef��language/elisp/bindings.scm |    } �   ��g��nameg��with-dynamic-bindings�CRC��������g��m  (��g��filenamef��language/elisp/bindings.scm   ) ,  / ,  1 ,  3 ,  6 + � 1 9 7  F K ] h v E | �  G ���C6�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/elisp/lexer.go�����������������������������������������������������������������������������0000644�����������������00000030112�15253700563�0011114 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.020������]�{�4���h������]� g��guile � g��define-module* � � g��language g��elisp g��lexer � g��filenameS f��language/elisp/lexer.scm g��importsS g��ice-9 g��regex  � � � g��exportsS g�� get-lexer g�� get-lexer/1 � g��set-current-module � � g��error g�� lexer-error g�� set-char-bit g�� eof-object? g��char=? g��is-char? g�� integer->char g��real-character !g��char-alphabetic? "g�� char->integer #g�� char-upcase $g�� add-control %g�� read-char &g�� char-numeric? 'g�� unread-char (f��invalid digit in escape-code )g��charcode-escape *a  +b  ,t  -n  .v  /f  0r  1e  2s  3d  4*+,-./0123�  5g��basic-escape-codes 6A  7s  8H  9S  :g��assq-ref ;g�� get-character <g�� peek-char =f��!expected - after control sequence >g��char>=? ?g��char<? @g�� make-regexp Af��^[+-]?[0-9]+\.?$ Bg�� integer-regex Cf��7^[+-]?([0-9]+\.?[0-9]*|[0-9]*\.?[0-9]+)(e[+-]?[0-9]+)?$ Dg�� float-regex Eg��string->char-set Ff��-+=*/_~!@$%^&:<>{}?. Gg��no-escape-punctuation Hg�� list->string Ig��reverse Jg�� regexp-exec Kg��integer Lg��float Mg��symbol Ng��char-set-contains? Og��get-symbol-or-number Pg�� circular-ref Qg�� circular-def Rf��!invalid circular marker character Sg��get-circular-marker Tg�� file-port? Ug�� port-filename Vg�� port-line Wg�� port-column Xg��set-source-property! Yg��filename Zg��line [g��column \g��eof ]g��char-whitespace? ^g��lex _g�� character `g��string ag��function bg�� paren-open cg�� paren-close dg�� square-open eg�� square-close fg��quote gg�� backquote hg��unquote-splicing if��expected @ in unquote-splicing jg��unquote kg�� string-length lf��invalid character in input mg��string->symbol ng��inexact->exact og��string->number pg��integer? qf��expected integer rg��exact? sf��expected inexact float tf��wrong number/symbol type ug��dot vg�� binary-ports w v� xg�� eof-object ywx� zwx�C�5��h%��H��]4    5�4�>��"��G���������h������-�1�3�@��������������g��port �g��msg �g��args  ��g��filenamef��language/elisp/lexer.scm '  ( �   ��g��nameg�� lexer-error�CRh������]� C�������������g��chr  �g��bit  ��g��filenamef��language/elisp/lexer.scm -  .  . �  ��g��nameg�� set-char-bit�CR�������h������]4�5$��C�6��������g��tested  �g�� should-be  ��g��filenamef��language/elisp/lexer.scm 4  5 5   6 �   ��g��nameg��is-char?�CR����h������]� �$���6�C����������g��chr  ��g��filenamef��language/elisp/lexer.scm <  =  =   > �   ��g��nameg��real-character�C R !"#��������hH������] 4�545$��4455 @C?$�� C@$�� C� 6����������g��chr  E�g��real E��g��filenamef��language/elisp/lexer.scm F  G  G  H   H   I  I  " I $ I . % I  / J  E M �  E ��g��nameg�� add-control�C$R%&"!#'(� ���h���t��],"��"��4�545$��45 0"��645$��*4455 A $��"�� "��$�� "��$��"w$��"��$��4�>��"��G��C�6$��$��C"1"- "�l������g��port  ��g��base  ��g��digits   ��g�� early-return   ��g��result   ��g��procdigs   ��g��cur   ��g��code  F ]�g��value  b ��g��valid  t ��� g��filenamef��language/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 �(  � ��g��nameg��charcode-escape�C)R45R6789%:5$;<=)">?'��������h��C��]*M$�� "�� �4�54\5$�r4�54545"��$��C"��^$��  4 �56C$��J4 4 �5-5$��544�5-5$��"��4 >��"��G�� 4 �56Cx$�� � 6u$�� �  6U$�� �  66405$��0485$��4�>��"��G���  6""$��M4 4 �5-5$��744�5-5$��"��4 >��"��G��4 �56""6��;������g��port  �g�� in-string  �g�� meta-bits  % �g��cur  % �g��escaped  = �g��esc-code  H �g��meta  S ��g��filenamef��language/elisp/lexer.scm �  �   �   �   � % �  * �  6 �  7 �  = �  @ �  H �  K �  S �  _ � o � r � " | �  � � � �  � �  � �  � �  � �  � � & � �  � �  � �  � � � �  � � " � �  � � � �  � � � �  � �  �   �   �  �   �  � ' * � + �  I �  Q � X �  [ � e �  i � j �  m �  w �  { �  �   �   �   �   �  � �>   ��g��nameg�� get-character�C;R4@iA5BR4@iC5DR4EiF5GR%HIJBKDLM&!NG'��hH����])"�24�545$��P4455$��"�� 45$��"�� $��"�� 45$�� "�� D4 5$��"�� 4 5$��"�� 4 5$��"R4\5$��4�5"24�>��"��G��4455$��"�� 45$��"�� $��"�� 45$�� "�� D"������������g��port  B�g�� result-chars  8�g�� had-escape   8�g��c  8�g��result  & j�g��t  q ��g��t  � ��g��result  � 8��g��filenamef��language/elisp/lexer.scm �  �   �  �   �   �   � #  � $ & � # & �  . �  4 �  @ �  B �  L �  R �  ^ �  ` �  f �  j �  k � " q �   � " � �  � � " � �  � � % � �  � �  � �  � � & � � � �  � �  � � # � � $ � � # � �  � �   �   �   �   �   �  , �  . �  4 �  8 �  8 �  9 �  B � �4  B ��g��nameg��get-symbol-or-number�COR%&"PQR������hx�����]"��84�545$��45 0 " "�� " G�#$��C=$��C�6���������g��port  u�g��result  >�g��cur  >�g��val  $ 4�g��id F u�g��type  F u��g��filenamef��language/elisp/lexer.scm �  �   �  �  �   �  �  # � 2 $ �  $ �  + �  . �  4 �  > �  > �  I �  V �  X �  e �  g �  q �  u � �  u ��g��nameg��get-circular-marker�CSRTUVWXYZ[�������hP������] �4L>��"��G��4L>��"��G��4L�>��"��G��C���������g��token  N�g��value  N�g��obj   N��g��filenamef��language/elisp/lexer.scm             0      &  0 -   6   <  0 C  �  N ���C%\]^_;`HI'Sabcdefg<hijOMklmKnopqLrstu�0�h ��{��])4�5$�� 4�5"��4�54�5O�4�545$��64 5$�� �6"�x;$��?"��74�545$��"�� 4  5$�� �6""?$�� 4 �56"$��"��4�5"$��44556\$��f4�5 $��"�� $��"4�>��"��G��4�>��"��G��44 �55"m"b"[#$��4�50$��"��u1$��"��g2$��"��Y3$��"��K4$��"��=5$��"��/6$��"��!7$��"��8$��"��9$��'4�>��"��G��4�56'$��6C($��6)$��6[$��6]$��6'$��6`$��6,$��844�5@5$��4 4�5@5$��66 64�>��"��G��4!�>�� G�"$��44#5 $��4�>��"��G��$6"4%56&$��>&4'4(554)5$��"��4*>��"��G��6+$��9+4(54,5$��4->��"��G��"���6.64 .5$��4 4�55$��/6"`"\������s������g��port  �g��file ) C�g��line  ) C�g��column  ) C�g��return J �g��c  J �g��cur  � ��g��t  � ��g�� result-chars  � �g��cur  � �g��escaped   u�g��c   Y�g��mark  ; G�g��type   �g��str   �g��num  v �g��num   ��g��filenamef��language/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                         �   ��g��nameg��lex�C^R^���h���U���]�L�6M�������g��filenamef��language/elisp/lexer.scm     �   ���C��������h���t���]�O�C������l�������g��port  ��g��filenamef��language/elisp/lexer.scm  �  ��g��nameg�� get-lexer�CR\zbdcefgjhQ� ���h���L��]M$�� 45�C4L5�H��$��"��$�� M�N�"��h$��"��$�� M�N�"��H$��"��/$��"��! $��"�� $��"�� $��K"���J$��"��M� $��N"����CD������g��next  ��g�� quotation  ��g��key   ���g��filenamef��language/elisp/lexer.scm                           :  ! <   I  Z  ! \   i  �   �   �  % �  �  �  � ���C�h ������]4�5 HHO�C����������g��port  �g��lex �g��finished  �g�� paren-level  ��g��filenamef��language/elisp/lexer.scm     �   ��g��nameg�� get-lexer/1�CRC����@������g��m  ,��g��filenamef��language/elisp/lexer.scm   � '  -  4 B <  F  V  y   x > � ? �  E � # G �  J � K �  Q �  S �  V � W �  ] � 0 _ �  b �  �  � !N � "W  %  �  % ���C6�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/elisp/compile-tree-il.go�������������������������������������������������������������������0000644�����������������00000104315�15253700563�0012773 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]��4��h������]� g��guile � g��define-module* � � g��language g��elisp g��compile-tree-il � g��filenameS f��"language/elisp/compile-tree-il.scm g��importsS g��bindings  � � g��runtime � � g��tree-il � � g��system g��base g��pmatch � � g��compile � � g��srfi g��srfi-1 � ! � "g��srfi-8 #"� $#� %g��srfi-11 &%� '&� (g��srfi-26 )(� *)� +!$'*�  ,g��exportsS -g�� compile-progn .g�� compile-if /g��compile-defconst 0g��compile-defvar 1g�� compile-setq 2g�� compile-let 3g��compile-lexical-let 4g�� compile-flet 5g�� compile-let* 6g��compile-lexical-let* 7g�� compile-flet* 8g��compile-without-void-checks 9g��compile-with-always-lexical :g��compile-guile-ref ;g��compile-guile-primitive <g�� compile-while =g��compile-function >g��compile-defmacro ?g�� compile-defun @g�� compile-` Ag�� compile-quote B-./0123456789:;<=>?@A� Cg��set-current-module DC� EC� Fg�� make-fluid Gg�� bindings-data Hg��disable-void-check Ig��always-lexical Jg��source-properties Kg��location Lg�� make-const Mg�� nil-value NM� OM� Pg��t-value QP� RP� Sg��value-slot-module TS� US� Vg�� value-slot Wg��function-slot-module XW� YW� Zg�� function-slot [g��, \g��unquote? ]g��,@ ^g��unquote-splicing? _g��make-application `g��make-primitive-ref ag��call-primitive bg��error cg�� report-error dg�� runtime-error eg��make-module-ref fg�� ensure-fluid! gg��generate-ensure-global hg�� make-sequence ig��append ji� ki� lg��map-globals-needed mg��ensuring-globals ng�� with-fluids* og��list pg��map qg�� make-lambda rg��make-lambda-case sg�� let-dynamic tg��get-lexical-binding ug��access-variable vg��make-lexical-ref wg��mark-global-needed! xg�� fluid-ref yg��reference-variable zg�� set-variable! {g��make-lexical-set |g�� fluid-set! }g��nil ~g��length f��,expected symbol or list of 2 elements in let �f��expected symbol in let �g��process-let-bindings �g��lexical �g��all �g��memq �g��bind-lexically? �g��reverse �g��split-let-bindings �g��for-each �g��car �g�� compile-expr �g��gensym �g��make-let �g��with-lexical-bindings �g�� generate-let �g�� generate-let* �g��bind-arg-lexical? �g��&rest �f��'expected exactly one symbol after &rest �g��required �g��optional �f��&invalid mode in split-lambda-arguments �f��%expected symbol in argument list, got �g�� &optional �g��split-lambda-arguments �f��expected list for argument-list �f��function body must not be empty �g��cons �g��lset-intersection �g��with-dynamic-bindings �g��cdr �g��make-conditional �g��null? �g�� make-void �g��compile-lambda �f��too many arguments to defvar �g��string? �f��0expected string as third argument of defvar, got �f��expected symbol, got �g��handle-var-def �g��module-defined? �g��resolve-interface �g�� module-ref �g��resolve-module �g��fluid? �g�� find-operator �g��contains-unquotes? �g�� unquote-cell? �g��unquote-splicing-cell? �g��process-backquote �f��%non-pair expression contains unquotes �f��$symbol-list construct has empty body �g��and-map �g��symbol? �f��invalid symbol list �g��with-added-symbols �F� �F� �g��special-operator �g�� module-bound? �g�� fluid-bound? �f��expected symbol in setq �g��iterate �g�� make-letrec �� �g��lambda �g��macro �g��fromS �g��toS �g��value �f��expected symbol as macro name �f�� expected symbol as function name �g�� compile-pair �g��t �g��compile-symbol �g��valid-symbol-list-arg? �� �f��Invalid compiler options �g��warningsS �g��always-lexicalS �f��"Invalid value for #:always-lexical �f��Invalid compiler option �g��process-options! �g�� make-bindingsC�5��h(t����]4    +,B5�4E�>��"��G���4Fi5�GR4Fi5�HR4Fi5�IRJ��������h ������] �$��4�5(��CCC��������g��x  �g��props  ��g��filenamef��"language/elisp/compile-tree-il.scm K  L  L  M   M   N �   ��g��nameg��location�CKRLO��h������]�6������|�������g��loc  ��g��filenamef��"language/elisp/compile-tree-il.scm S T �  ��g��nameg�� nil-value�CMRLR�h������]�6������z�������g��loc  ��g��filenamef��"language/elisp/compile-tree-il.scm V W �  ��g��nameg��t-value�CPRRUVRYZR[������h������]�$���CC��������������g��sym  ��g��filenamef��"language/elisp/compile-tree-il.scm f  g  g  g   g �   ��g��nameg��unquote?�C\R]����h������]�$���CC��������������g��sym  ��g��filenamef��"language/elisp/compile-tree-il.scm i  j  j  j   j �   ��g��nameg��unquote-splicing?�C^R_`�h ������-�1�3��4�56�������������g��loc �g��sym �g��args  ��g��filenamef��"language/elisp/compile-tree-il.scm n  o   o �   ��g��nameg��call-primitive�CaRb��������h������-�1�3�@��������g��loc �g��args ��g��filenamef��"language/elisp/compile-tree-il.scm t  u �  ��g��nameg�� report-error�CcR_`bL�������h(������-�1�3��4�54�56�����������g��loc $�g��msg $�g��args  $��g��filenamef��"language/elisp/compile-tree-il.scm w  y   y ,  y   z  " z  $ x � $  ��g��nameg�� runtime-error�CdR_efL�h0������]�4�54�54�5�6��������������g��loc  )�g��sym  )�g��module   )��g��filenamef��"language/elisp/compile-tree-il.scm �  �   � 1  �   �   �  ' �  ) � �  ) ��g��nameg��generate-ensure-global�CgRhklg��h������]L��6����z�������g��mod  �g��sym  ��g��filenamef��"language/elisp/compile-tree-il.scm �  � �  ���C���h(������]�44[�O�5�56��������������g��loc  !�g��bindings  !�g��body   !��g��filenamef��"language/elisp/compile-tree-il.scm �  �  �   �  ! � �  ! ��g��nameg��ensuring-globals�CmRan_`ope��h���q���]LL��6���i�������g��sym  ��g��filenamef��"language/elisp/compile-tree-il.scm �  � �  ���Cqr� �������hX�����]�4�4�54�O�554�4�554�4 5 56�����~������g��loc  S�g��syms  S�g��module   S�g��vals   S�g��body   S��g��filenamef��"language/elisp/compile-tree-il.scm �  �  �   �   � -  �   �  ( �  ) �  . �  4 � 1 6 �  : �  ; �  @ �  A �  E � % I � 2 J � 6 O �  Q �  S � �  S ��g��nameg�� let-dynamic�CsRtGZ�����h0���X��]4[5$��6$��6�6������P������g��loc  +�g��sym  +�g��module   +�g�� handle-global   +�g��handle-lexical   +�g��handle-dynamic   +�g��lexical  +��g��filenamef��"language/elisp/compile-tree-il.scm �  �  �   �   �   �  # �  ' � $ + � �  + ��g��nameg��access-variable�CuRue����h���_���]�LLL�6���W�������g��filenamef��"language/elisp/compile-tree-il.scm �  � �  ���Cv���h���u���]L���6����m�������g��lexical  ��g��filenamef��"language/elisp/compile-tree-il.scm �  � �  ���CwGaxe�����h0���z���]�4[LL>��"��G��L�4L�LL56���r�������g��filenamef��"language/elisp/compile-tree-il.scm �   �   �  �  - � �  - ���C���h0������]��O��O��O�6��������������g��loc  )�g��sym  )�g��module   )��g��filenamef��"language/elisp/compile-tree-il.scm � ) � �  ) ��g��nameg��reference-variable�CyRu_ezL��������h0������]�L4L54LL�54LL5L�6������������g��filenamef��"language/elisp/compile-tree-il.scm �   �   � #  �   �  � $ ) �  + � �  + ���C{�����h���u���]L��L�6��m�������g��lexical  ��g��filenamef��"language/elisp/compile-tree-il.scm �   � �   ���CwGa|e�����h0���z���]�4[LL>��"��G��L�4L�LL5L6�r�������g��filenamef��"language/elisp/compile-tree-il.scm �   �   �  �  / � �  / ���C���h0������]��O��O��O�6��������g��loc  /�g��sym  /�g��module   /�g��value   /��g��filenamef��"language/elisp/compile-tree-il.scm � / � �  / ��g��nameg�� set-variable!�CzRp}~c��hP���#��]�$���C�$��4�5 "��$��L�6�$�� ��CL�6�����������g��b  K��g��filenamef��"language/elisp/compile-tree-il.scm �   � �  �   �  �   �  �  �  ! �  & �  * � 0 �  2 � 5 �  6 �  : � = �  @ �  B �  I � # K � �  K ���C��h������]�O�6��������g��loc  �g��bindings  ��g��filenamef��"language/elisp/compile-tree-il.scm �  � �   ��g��nameg��process-let-bindings�CRZVItG� �hX���G��]&��C$��C$��,[&��C4�5$��C[�6C�����?������g��sym  S�g��module  S�g��t   S�g��always  ( Q�g��t  = Q��g��filenamef��"language/elisp/compile-tree-il.scm �  �  �  �   �   �  ! � % �  ( � . �  2 � 3 �  5 �  = � Q � �  S ��g��nameg��bind-lexically?�CR������hh�����]"��O(��4545D45$��""�"�����������g��bindings  c�g��module  c�g��tail   U�g��lexical   U�g��dynamic   U��g��filenamef��"language/elisp/compile-tree-il.scm �  �        "      "   '  +   .   1  & 4  @  C   H  . K  ( U  U �  X �  Y �  c � �  c ��g��nameg��split-let-bindings�CRwG������h���q���][�L�6���i�������g��sym  ��g��filenamef��"language/elisp/compile-tree-il.scm    �  ���Cps���h���y���]�6�������q�������g��el  ��g��filenamef��"language/elisp/compile-tree-il.scm  "   =  /�  ���Ch�����h���p���]6���h�������g��el  ��g��filenamef��"language/elisp/compile-tree-il.scm & (  & 5�   ���C��h���p���]6���h�������g��el  ��g��filenamef��"language/elisp/compile-tree-il.scm ' (  ' 5�   ���Ci��������h���y���]�6�������q�������g��el  ��g��filenamef��"language/elisp/compile-tree-il.scm  "   =  /�  ���C�h���y���]�6�������q�������g��el  ��g��filenamef��"language/elisp/compile-tree-il.scm  "   =  /�  ���CGhpsv��������h���q���]L���6����i�������g��sym  ��g��filenamef��"language/elisp/compile-tree-il.scm 9 / : 1�  ���C����hH������]�L(��L4L56L4L5L�4LO�L54L4L556���������g��filenamef��"language/elisp/compile-tree-il.scm 2   3  " .  "   6 . ' 8 . 5 "  : " . D "  F 5 !�  F ���C������h���j��]<4�54>�� G�4O�45>��"��G��(��*�45454 �4 5564 54 54 5 4 45455 �   4[45�O�56�������b������g��loc  ��g��module  ��g��bindings   ��g��body   ��g��bind  ��g��lexical   ��g��dynamic   ��g�� lexical-syms  z ��g�� dynamic-syms  � ��g��all-syms � ��g��vals � ��� g��filenamef��"language/elisp/compile-tree-il.scm             "   ,   9   G # L $  W   ` "  e " . o "  q $  r & # z &  } ' # � &  � (  � &  � )  �   � )  � &  � /  � 1  � /  � + �  � ��g��nameg�� generate-let�CRwG����h ������]4�L�5$��C[�L�6����{�������g��sym  ��g��filenamef��"language/elisp/compile-tree-il.scm F   G   G   H �   ���CphpG������h���h���]�LL�6�������`�������g��filenamef��"language/elisp/compile-tree-il.scm [   [ 3 [ *�  ���Cs� ��h�����]�(��L4L56�4�54L�5$��745�L���4[�� �LO�56 L��L��4L�56������g��tail  ��g��sym $ ��g��value  $ ��g��target  : l��g��filenamef��"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 ]  ~ _   `  � ` ( � `  � \ �  � ��g��nameg��iterate�C�������hP�����]4�54O�45>��"��G��O��Q�6�������������g��loc  I�g��module  I�g��bindings   I�g��body   I�g��bind  I�g��iterate  8 I��g��filenamef��"language/elisp/compile-tree-il.scm C  D  D   F   K  % F  8 L �  I ��g��nameg�� generate-let*�CRI�h ������] [&��C�6��������������g��arg  �g��always  ��g��filenamef��"language/elisp/compile-tree-il.scm i  j  k   k   k   l �   ��g��nameg��bind-arg-lexical?�CRcb� �����h����]b"�(��/45454545      D"�-&��$��"��$���645 45 45 4 $�� "��5 4 $��"��5     D$��45  $�� "��  $��"�� $��   "$��   " 6� 6&��* &��"l"""L������������g��loc  �g��args  �g��tail   �g��mode   �g��required   �g��optional   �g��lexical   �g��dynamic   �g��final-required  ( ;�g��final-optional ( ;�g�� final-lexical ( ;�g�� final-dynamic ( ;�g��t  L b�g��rest  r ��g�� rest-lexical { ��g��final-required � ��g��final-optional � ��g�� final-lexical � ��g�� final-dynamic � ��g��arg  � a�g�� bind-lexical � a�g�� new-lexical � a�g�� new-dynamic  a��g��filenamef��"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   ��g��nameg��split-lambda-arguments�CRcp�����h���o���]6���g�������g��x  ��g��filenamef��"language/elisp/compile-tree-il.scm     $�   ���C���h������]�C��������������g��name+sym  �g��x  ��g��filenamef��"language/elisp/compile-tree-il.scm     "   �  ���Ch������]�C��������������g��name+sym  �g��x  ��g��filenamef��"language/elisp/compile-tree-il.scm     "   �  ���C�������h@���-��]!4�54�54L�54L5D��%������g��args  >�g��syms >�g��pairs   >�g�� lexical-pairs  % >�g�� dynamic-pairs  2 >��g��filenamef��"language/elisp/compile-tree-il.scm                 %   (   2   >  �  > ��g��nameg�� process-args�CiwGV�����h���q���][�6���i�������g��sym  ��g��filenamef��"language/elisp/compile-tree-il.scm    �  ���CGGpqrpM���h���o���]L�6g�������g��x  ��g��filenamef��"language/elisp/compile-tree-il.scm     �   ���Chav{MsVv�����h������]L���6���������g��name-sym  ��g��filenamef��"language/elisp/compile-tree-il.scm  (  +  +   *�   ���C�����h���x��]L4L�LL4LO�L5L4L4L55�4LL$��84L4L 4 LLL554 LLL4 L554 L55"��4 L5L(���"��4LL4LO�L5�5�5�5 6������p������g�� compiled-body 2 ���g��filenamef��"language/elisp/compile-tree-il.scm         #   (  ( 2   2   5   ?   @   E   K � ' L  ' X   Y   b  ) j   k   s   x   �   �   �  # �   �   �   �  �  �  � ���C�����h8���q���]�[4L 54L 5LLLLLLLLL�O� 6������i�������g��filenamef��"language/elisp/compile-tree-il.scm       2  �  2 ���C� ���hH��<��]$��"��4�>��"��G��(��4�>��"��G��"���4�>�� G�O�Q�4>�� G�    4>�� G� 4$�� �"��>�� G�$��"�� G�4  >�� G�4 >�� G�4 >�� G�4>��"��G��  [ �O� 6�������4������g��loc  A�g��args  A�g��body   A�g��required  N A�g��optional  N A�g��rest  N A�g��lexical  N A�g��dynamic  N A�g�� process-args  d A�g�� required-syms v A�g��required-pairs v A�g��required-lex-pairs v A�g��required-dyn-pairs v A�g�� optional-syms � A�g��optional-pairs  � A�g��optional-lex-pairs  � A�g��optional-dyn-pairs  � A�g�� rest-syms  � A�g�� rest-pairs  � A�g��rest-lex-pairs  � A�g��rest-dyn-pairs  � A�g�� the-rest-sym  � A�g��all-syms  � A�g�� all-lex-pairs  � A�g�� all-dyn-pairs   A��g��filenamef��"language/elisp/compile-tree-il.scm               )   *   0   5   B  Q   l   y   �   �   �   �  ! �  * �  6 �   �   �  " �  + �   �   �   �  # �   �  #       A  �"  A ��g��nameg��compile-lambda�CR~c�hP���F��]$��:45 $���6(��"�� 45$�� �6C�6���>������g��loc  M�g��sym  M�g��doc   M��g��filenamef��"language/elisp/compile-tree-il.scm                )    $   *  /  ) 1  2   6   < !  ? "  A !  I  * M  �  M ��g��nameg��handle-var-def�CRZ�������h`���U��]�$��R445�5$��>445�545$��["��$��&��CCCCC���M������g��sym  ]�g��type  ]�g��op  ) Y�g��op  ? Y��g��filenamef��"language/elisp/compile-tree-il.scm (  *  )  +  +   +   )   ,   ,  ) ,  ) ,  , -  6 -  ? ,  D .  H .  K .  Q . T / �  ] ��g��nameg�� find-operator�CR\^������hP���3��] �$��@4�5$��"��4�5$��C4�5$��C�6C�����+������g��expr  K�g��t  )�g��t 7 I��g��filenamef��"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 ��g��nameg��contains-unquotes?�CR~\��h(������]�$��4�5 $���6CC�������������g��expr  "��g��filenamef��"language/elisp/compile-tree-il.scm B  C  C  C   C   C   C 2  C (�  " ��g��nameg�� unquote-cell?�CR~^����h(������]�$��4�5 $���6CC�������������g��expr  "��g��filenamef��"language/elisp/compile-tree-il.scm E  F  F  F   F   F   F ;  F (�  " ��g��nameg��unquote-splicing-cell?�CR~\^aicL���h�����]*45$��$��45$��"��45$��64�5$��45 "��$�� 45"��$�� 45"��$�� � 456 � $�� 45"�� 4�56 � 6�6������������g��loc  ��g��expr  ��g��t   2�g��head  A ��g��processed-tail  M ��g��head-is-list-2  e ��g�� head-unquote  z ��g��head-unquote-splicing  � ���g��filenamef��"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  � ��g��nameg��process-backquote�CRchpi� ��h�����](��4�>��"��G��"���&��"��$�� 45"��$��"��4�>��"��G��[&���4 56&��"�� 4 5Y4�4 5>��ZCZF������������g��loc  ��g��fluid  ��g��syms   ��g��body   ��g��old  c ��g��new  � ���g��filenamef��"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 �  � ��g��nameg��with-added-symbols�CR4hp����h������]�456��������������g��loc  �g��args  ��g��filenamef��"language/elisp/compile-tree-il.scm |  }   } �   ���C5-R4Mhp����h`��� ��]"$��R$��?�4545(�� 4�5"��4�4556CC���������g��loc  ]�g��args  ]�g��vx   [�g��vy   [�g��vx  Y�g��vy  Y��g��filenamef��"language/elisp/compile-tree-il.scm     )   0   <   =   H   M  * W   Y  �  ] ���C5.R4hzVL���h`��� ��]"$��R$��?4�5$��$�4�4554�5�6CCC���������g��loc  ]�g��args  ]�g��vx   [�g��vy   [�g��vx  Y�g��vy  Y��g��filenamef��"language/elisp/compile-tree-il.scm     %  3   8   A  - I   J   U   W  �  ] ���C5/R4haLVez�����h�����]""��$��$��4�5$��z�4�4�4�4�4�554�554� 4 �554�554 �54 �4 5554�5�6CCC$��(���6","(��������g��loc  ��g��args  ��g��vx   ��g��vy   ��g��vx  $ ��g��vy  $ ��g��vx  � ��g��vy  � ���g��filenamef��"language/elisp/compile-tree-il.scm     )  7   <  A  F  L   M   S   T   ^   _   i  j  p   q   ~    �  �  �  �  . �  �  �  �  �  �   �  �  �  � ���C50R4hzVyc����hx�����]�(���C�4�(��"��5$��54L54L��(��"��4L55CL6����������g��args  t�g��last  t�g��x   *�g��sym  , t�g��val  , t�g��x  J ]��g��filenamef��"language/elisp/compile-tree-il.scm               %        ! '  % ,   ,  3   7  8   E   J  % J   R   S  ! Z  % ^   j   k   r  ! t  �  t ��g��nameg��loop�CM������h0������] �O��Q�44�556��������������g��loc  )�g��args  )�g��loop   '��g��filenamef��"language/elisp/compile-tree-il.scm       $   )  �  ) ���C51R4V������h(������]$���6C��������������g��loc  !�g��args  !�g��vx   �g��vy   ��g��filenamef��"language/elisp/compile-tree-il.scm       �  ! ���C52R4��h(������]$���6C��������������g��loc  !�g��args  !�g��vx   �g��vy   ��g��filenamef��"language/elisp/compile-tree-il.scm          �  ! ���C53R4Z�h(������]$���6C��������������g��loc  !�g��args  !�g��vx   �g��vy   ��g��filenamef��"language/elisp/compile-tree-il.scm       �  ! ���C54R4V��h(������]$���6C��������������g��loc  !�g��args  !�g��vx   �g��vy   ��g��filenamef��"language/elisp/compile-tree-il.scm       �  ! ���C55R4��h(������]$���6C��������������g��loc  !�g��args  !�g��vx   �g��vy   ��g��filenamef��"language/elisp/compile-tree-il.scm          �  ! ���C56R4Z�h(������]$���6C��������������g��loc  !�g��args  !�g��vx   �g��vy   ��g��filenamef��"language/elisp/compile-tree-il.scm       �  ! ���C57R4I��h(������]$���6C��������������g��loc  !�g��args  !�g��vx   �g��vy   ��g��filenamef��"language/elisp/compile-tree-il.scm       �  ! ���C59R4e����hP������]"$��B$��/(��$��$�� �6CCCCC����������g��loc  M�g��args  M�g��vx   K�g��vy   K�g��vx  I�g��vy  I��g��filenamef��"language/elisp/compile-tree-il.scm     -  1   4  / 8   C  �  M ���C5:R4`��������h(������]$��(���6CC����������g��loc  %�g��args  %�g��vx   #�g��vy   #��g��filenamef��"language/elisp/compile-tree-il.scm     !  �  % ���C5;R4p_vhkMqr��h���l��]B$��45�454�4�5��54�4�554 �454 �554 �4 5 5  �� �6C������d������g��loc  ��g��args  ��g��vx   ��g��vy   ��g��itersym   ��g�� compiled-body  # ��g�� iter-call  : ��g�� full-body  O ��g�� lambda-body  h ��g�� iter-thunk � ��� g��filenamef��"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<R4yZ�����h���B��]2"��.$��%(��$�� �6CCC$��T$��?&��)$��(�� �6"""{"w"s�����:������g��loc  ��g��args  ��g��vx   2�g��vy   2�g��vx  A ��g��vy  A ��g��vx  R ��g��vy  R ��g��vx  k ��g��vy  k ��� g��filenamef��"language/elisp/compile-tree-il.scm *  +  .  $ +  . /  4 +   -  � + �  � ���C5=R4hzZ_eLmGc�h�����]*$��$��$��p4�4�4�4�54� 54 �5�554�5�54 4 � 5>��"��G��C�6CC�������������g��loc  ��g��args  ��g��vx   ��g��vy   ��g��vx  ��g��vy  ��g��tree-il  s ���g��filenamef��"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>R4hzZLc����hh�����]"$��V$��C$��(�4�4�554�5�6�6CC�������������g��loc  a�g��args  a�g��vx   _�g��vy   _�g��vx  ]�g��vy  ]��g��filenamef��"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?R4���h(������]$��(���6CC����������g��loc  %�g��args  %�g��vx   #�g��vy   #��g��filenamef��"language/elisp/compile-tree-il.scm W  X  ! Z �  % ���C5@R4L����h(������]$��(���6CC����������g��loc  %�g��args  %�g��vx   #�g��vy   #��g��filenamef��"language/elisp/compile-tree-il.scm \  ]  ! _ �  % ���C5AR_yZp� ��hp�����]"45$���645$�� 4?6�$��4�5"��45456���������g��loc  m�g��expr  m�g��operator   m�g�� arguments   m�g��t   m�g��t  . m��g��filenamef��"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 ��g��nameg�� compile-pair�CR}MPyV����h0������]$���6$���6�6�������������g��loc  *�g��sym  *��g��filenamef��"language/elisp/compile-tree-il.scm y z   {  z  | * } �  * ��g��nameg��compile-symbol�CRKL�h8������] 4�5�$���6�$���6�6��������������g��expr  1�g��loc 1��g��filenamef��"language/elisp/compile-tree-il.scm                  !   )   1  �  1 ��g��nameg�� compile-expr�CR�h ������]�&��C�$���6C����������g��value  ��g��filenamef��"language/elisp/compile-tree-il.scm                �   ��g��nameg��valid-symbol-list-arg?�CRcI� ����hp���R��]�(��"���$��S�(�� �6��$��C$��45$��\C6 6C����J������g��opt  l�g��key . j�g��value  . j��g��filenamef��"language/elisp/compile-tree-il.scm                      #   '  *   -   .  ;  G   Q   ]  ! a   f  " j  �  l ��g��nameg��process-options!�CRGHImK� ������hH�����] 45�Y4>��"��G��4�544�55ZD��������g��expr  F�g��env  F�g��opts   F�g��compiled  * ?��g��filenamef��"language/elisp/compile-tree-il.scm     %   !    $   *   -   0   <   F  �  F ��g��nameg��compile-tree-il�CRC����������g��m  ,��g��filenamef��"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$ ���C6��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/elisp/parser.go����������������������������������������������������������������������������0000644�����������������00000016746�15253700563�0011312 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�W�4�������hL������]� g��guile � g��define-module* � � g��language g��elisp g��parser � g��filenameS f��language/elisp/parser.scm g��importsS g��lexer  � � � g��exportsS g�� read-elisp � g��set-current-module � � g��error g�� parse-error g�� make-fluid g��circular-definitions g��make-hash-table g��make-circular-definitions g�� circular-ref f��invalid token for circular-ref g�� hashq-ref f��undefined circular reference !g�� circular-def "f��"invalid token for circular-define! #g�� hashq-set! $g�� make-promise %$� &$� 'g��circular-define! (g��promise? )g��force *g��force-promises! +g�� vector-length ,g��finish -f��'lexer-buffer is not empty when finished .g��peek /g��get 0f��invalid lexer-buffer action 1g��make-lexer-buffer 2g�� square-close 3g�� paren-close 4f��got different token than peeked 5g��get-expression 6g��get-list 7g��dot 8g��length 9f��&expected exactly one element after dot :g��quote ;:: <g�� backquote =g��` ><= ?g��unquote @g��, A?@ Bg��unquote-splicing Cg��,@ DBC E;>AD� Fg��quotation-symbols Gg��eof Hf��end of file during parsing Ig��integer Jg��float Kg��symbol Lg�� character Mg��string Ng��set-source-properties! Og��source-properties Pg��function Qg��assq-ref Rg�� paren-open Sg�� square-open Tg�� list->vector Uf��expected expression, got Vg�� get-lexerC�5�������h0�����]4    5�4�>��"��G���������h������-�1�3�@��������������g��token �g��msg �g��args  ��g��filenamef��language/elisp/parser.scm "  # �   ��g��nameg�� parse-error�CR4i5�R��������h���y���]�6���q�������g��filenamef��language/elisp/parser.scm 3  4 �   ��g��nameg��make-circular-definitions�CR ��hH�����]�&��"��4�>��"��G���4[5$��C�6��������g��token  G�g��id & G�g��value  2 G��g��filenamef��language/elisp/parser.scm 6  7   7  7   8   8  8  & 9 & 9  ) :  2 9  : ;  C =  G = �  G ��g��nameg�� circular-ref�CR!"#&����h���L���]�M�C���D�������g��filenamef��language/elisp/parser.scm I �   ���C#������h���u���]�NL�L�6m�������g�� real-value  ��g��filenamef��language/elisp/parser.scm J   K   L �   ���C� �������h`��� ��]�&��"��4�>��"��G��[�H44O�5>��"��G��O�C����������g��token  \�g��value * \�g��table  * \�g��id  * \��g��filenamef��language/elisp/parser.scm C  D   D  D   E   E  E  * H * F  1 I  8 I  H I �  \ ��g��nameg��circular-define!�C'R()*+��������h�����]�$��N4�5$���4�5"��4�>��"��G��4�5$�� �4�5C�6�$��\4�5"��H$��=�45$���45"��4>��"��G��"C "C����������g��data  ��g��len e ��g��i  k ��g��el  y ���g��filenamef��language/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 �*  � ��g��nameg��force-promises!�C*R,-./0�������hP������] �&��M$��6CM$��"��4L�5�N�$��MC�$�� MNC�6�������g��action  P�g��result @ H��g��filenamef��language/elisp/parser.scm t   u  u   v  w   w   z # { ! ) {  2 | @   E �  L �  P � �  P ���C������h������] H�O�C��������g��lex  �g�� look-ahead  ��g��filenamef��language/elisp/parser.scm r  s �   ��g��nameg��make-lexer-buffer�C1R.23/456789� ������h�����]#4�5$��"��&��&4�5&��"��4>��"��G��C"��4�54�5C$��e &��Y4�5&��"��4>��"��G��4�54 5 $��"��4  >��"��G��C"y"u�������������g��lex  ��g�� allow-dot  ��g�� close-square   ��g��next  ��g��type   ��g��head  U j�g��tail  b j�g��tail  � ���g��filenamef��language/elisp/parser.scm �  �   �  �  �   �   �   �   � ! � / $ �  % �  ) � + �  , �  2 �  7 � ; �  @ � I �  O �  U �  X �  b �  i �  j �  t �  x �  y �  } �  �  � �  � �  � � � �  � � � �  � �  � �  � �  � � � �  � �  � �  � � �.  � ��g��nameg��get-list�C6REFR/GHIJKLMNOP5:<?BQFR6ST!'*U��h����]!4�5$��6$��"��/$��"��!$��"��$��"�� $��,$��4 4 5>��"��G��"���C $��5 4 �5�$��4 4 5>��"��G��"���C$��"��!$��"��$��"��$��<454 �5�$��4 4 5>��"��G��"���C$��24�5$��4 4 5>��"��G��"���C$��744�55$��4 4 5>��"��G��"���C$��6$��9454 �54>��"��G��4>��"��G��C6�������������g��lex  �g��token �g��type   �g��result  e ��g��result  � ��g��result   ;�g��result  M v�g��result   �g��setter   �g��expr   �� g��filenamef��language/elisp/parser.scm �  �   �  �  �   �   �   �   �  ! �  * �  e �  e �  j �  n �  o �  t �   �  � �  � �  � �  � �  � �  � �  � �  � �  � �  � �  � �  � �   �   �   �   �   �   �  ! �  , �  D �  E �  M �  R �  V �  W �  \ �  g �   �   �   �   �   �   �   �   �   �   �   �   �   �   �   �   �   �   �  �  �   � �D   ��g��nameg��get-expression�C5RV1.G5,� �����hX���d��]!45�Y4�54545&��"��454>��"��G��ZCZF�\������g��port  W�g��lexer  S�g��lexbuf   S�g��next  $ S�g��result  = S��g��filenamef��language/elisp/parser.scm �  � & �   �   �   �   �  " �  $ �  $ �  ) �  + �  / �  2 � 7 �  = � @ � D �  I � �  W ��g��nameg�� read-elisp�CRC��������������g��m  ,��g��filenamef��language/elisp/parser.scm   � "  1   1  3  6  C h U u r # � % �  ( � F � ' � �  ) ���C6���������������������������language/elisp/runtime/subrs.go���������������������������������������������������������������������0000644�����������������00000056465�15253700563�0012641 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0]������]��4���h ������]� g��guile � g��define-module* � � g��language g��elisp g��runtime g��subrs  � g��filenameS f�� language/elisp/runtime/subrs.scm g��importsS � � g��system g��base g��compile � � � g��set-current-module � � g�� elisp-bool g��eq g��call-with-deferred-observers � � g��module-export! � � !g��current-module "!� #!� $� %g��equal &%� 'g��real? (g��inexact? )g��integer? *g��floatp +*� ,g��exact? -g��integerp .-� /g��numberp 0/� 1g�� wholenump 21� 3g��zerop 43� 5g��= 65� 7g��/= 87� 9g��< :9� ;g��<= <;� =g��> >=� ?g��>= @?� Ag��max BA� CA� DA� Eg��min FE� GE� HE� Ig��abs JI� KI� LI� Mg��exact->inexact Ng��float ON� Pg��1+ QP� RP� SP� Tg��1- UT� VT� WT� Xg��+ YX� ZX� [X� \g��- ]\� ^\� _\� `g��* a`� b`� c`� dg��modulo eg��% fe� gg��floor hg� ig� jg��ffloor kj� lg��ceiling ml� nl� og��fceiling po� qg��truncate rq� sq� tg�� ftruncate ut� vg��round wv� xv� yg��fround zy� {g��consp |{� }g��atomp ~}� g��listp �� �g��nlistp �� �g��null �� �g�� nil-value �g��car �� �g��cdr �� �g��car-safe �� �g��cdr-safe �� �g��nth �� �g��nthcdr �� �g��length �� �� �� �g��cons �� �� �� �g��list �� �� �� �g�� make-list �� �� �� �g��append �� �� �� �g��reverse �� �� �� �g�� copy-tree �� �� �� �g�� runtime-error �f��&too many arguments for number-sequence �f�� infinite list in number-sequence �g��number-sequence �� �g��setcar �� �g��setcdr �� �g��reference-variable �g��value-slot-module �g�� symbol-value �� �g��function-slot-module �g��symbol-function �� �g�� set-variable! �g��set �� �g��fset �� �g�� module-bound? �g��resolve-interface �g��module-variable �g��resolve-module �g��fluid? �g�� fluid-unset! �g��variable-unset! �g�� makunbound �� �g�� fmakunbound �� �g�� fluid-bound? �g��boundp �� �g��fboundp �� �g��lambda �g��fromS �g��toS �g��value �f��list is not a function �g��apply �� �� �� �g��funcall �� �g��throw �� �� �g��elisp-exception �� �g��t-value �g��not �� �g��eval �� �g�� compile-file �g��load ��C�5����hM��{��]4    5�4�>��"��G�����h������]�6������������g��a  �g��b  ��g��filenamef�� language/elisp/runtime/subrs.scm  !  ! �  ��g��nameg��eq�CR4 #$�������h���R���]�45�6���J�������g��filenamef�� language/elisp/runtime/subrs.scm  �  ���C>��"��G�����h������]�6������������g��a  �g��b  ��g��filenamef�� language/elisp/runtime/subrs.scm $  %  % �  ��g��nameg��equal�C%R4 #&����h���R���]�45�6���J�������g��filenamef�� language/elisp/runtime/subrs.scm # �  ���C>��"��G��'()�����h8������] 4�5$��$4�5$��"��4�5"��6���������g��num  6�g��t  /��g��filenamef�� language/elisp/runtime/subrs.scm *   +   +   ,   ,  % - # , -  6 + �  6 ��g��nameg��floatp�C*R4 #+��h���R���]�45�6���J�������g��filenamef�� language/elisp/runtime/subrs.scm ) �  ���C>��"��G��,)�������h ������]4�5$�� 4�5"��6����������g��num  ��g��filenamef�� language/elisp/runtime/subrs.scm 0   1   1   2   1 �   ��g��nameg��integerp�C-R4 #.������h���R���]�45�6���J�������g��filenamef�� language/elisp/runtime/subrs.scm / �  ���C>��"��G��'�h������]4�56����������g��num  ��g��filenamef�� language/elisp/runtime/subrs.scm 5   6  6 �  ��g��nameg��numberp�C/R4 #0�������h���R���]�45�6���J�������g��filenamef�� language/elisp/runtime/subrs.scm 4 �  ���C>��"��G��,)�������h0������]4�5$��4�5$��� "��"��6�������������g��num  *��g��filenamef�� language/elisp/runtime/subrs.scm 9   :   :   ;   :   <  * : �  * ��g��nameg�� wholenump�C1R4 #2�����h���R���]�45�6���J�������g��filenamef�� language/elisp/runtime/subrs.scm 8 �  ���C>��"��G�����h������]� 6�������������g��num  ��g��filenamef�� language/elisp/runtime/subrs.scm ?   @  @ �  ��g��nameg��zerop�C3R4 #4�h���R���]�45�6���J�������g��filenamef�� language/elisp/runtime/subrs.scm > �  ���C>��"��G�����h������]�6������������g��num1  �g��num2  ��g��filenamef�� language/elisp/runtime/subrs.scm E  F  F �  ��g��nameg��=�C5R4 #6��h���R���]�45�6���J�������g��filenamef�� language/elisp/runtime/subrs.scm D �  ���C>��"��G�����h������]�6�����������g��num1  �g��num2  ��g��filenamef�� language/elisp/runtime/subrs.scm I  J  J  J �  ��g��nameg��/=�C7R4 #8�h���R���]�45�6���J�������g��filenamef�� language/elisp/runtime/subrs.scm H �  ���C>��"��G�����h������]�6������������g��num1  �g��num2  ��g��filenamef�� language/elisp/runtime/subrs.scm M  N  N �  ��g��nameg��<�C9R4 #:��h���R���]�45�6���J�������g��filenamef�� language/elisp/runtime/subrs.scm L �  ���C>��"��G�����h������]�6������������g��num1  �g��num2  ��g��filenamef�� language/elisp/runtime/subrs.scm Q  R  R �  ��g��nameg��<=�C;R4 #<�h���R���]�45�6���J�������g��filenamef�� language/elisp/runtime/subrs.scm P �  ���C>��"��G�����h������]�6������������g��num1  �g��num2  ��g��filenamef�� language/elisp/runtime/subrs.scm U  V  V �  ��g��nameg��>�C=R4 #>��h���R���]�45�6���J�������g��filenamef�� language/elisp/runtime/subrs.scm T �  ���C>��"��G�����h������]�6������������g��num1  �g��num2  ��g��filenamef�� language/elisp/runtime/subrs.scm Y  Z  Z �  ��g��nameg��>=�C?R4 #@�h���R���]�45�6���J�������g��filenamef�� language/elisp/runtime/subrs.scm X �  ���C>��"��G��C���h������-��1��3��@�x�������g��nums ��g��filenamef�� language/elisp/runtime/subrs.scm ]   ^ �  ��g��nameg��max�CAR4 #D��������h���R���]�45�6���J�������g��filenamef�� language/elisp/runtime/subrs.scm \ �  ���C>��"��G��G���h������-��1��3��@�x�������g��nums ��g��filenamef�� language/elisp/runtime/subrs.scm a   b �  ��g��nameg��min�CER4 #H��������h���R���]�45�6���J�������g��filenamef�� language/elisp/runtime/subrs.scm ` �  ���C>��"��G��KIR4 #L�������h���R���]�45�6���J�������g��filenamef�� language/elisp/runtime/subrs.scm d �  ���C>��"��G��,M�h������]4�5$���6�C���������g��num  ��g��filenamef�� language/elisp/runtime/subrs.scm j   k  k   l �   ��g��nameg��float�CNR4 #O�h���R���]�45�6���J�������g��filenamef�� language/elisp/runtime/subrs.scm i �  ���C>��"��G��RPR4 #S�������h���R���]�45�6���J�������g��filenamef�� language/elisp/runtime/subrs.scm s �  ���C>��"��G��VTR4 #W�������h���R���]�45�6���J�������g��filenamef�� language/elisp/runtime/subrs.scm u �  ���C>��"��G��ZXR4 #[�������h���R���]�45�6���J�������g��filenamef�� language/elisp/runtime/subrs.scm w �  ���C>��"��G��^\R4 #_�������h���R���]�45�6���J�������g��filenamef�� language/elisp/runtime/subrs.scm y �  ���C>��"��G��b`R4 #c�������h���R���]�45�6���J�������g��filenamef�� language/elisp/runtime/subrs.scm { �  ���C>��"��G��dieR4 #f�����h���R���]�45�6���J�������g��filenamef�� language/elisp/runtime/subrs.scm } �  ���C>��"��G��ijR4 #k�������h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm � �  ���C>��"��G��noR4 #p������h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm � �  ���C>��"��G��stR4 #u������h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm � �  ���C>��"��G��xyR4 #z������h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm � �  ���C>��"��G����h������]�6��������������g��el  ��g��filenamef�� language/elisp/runtime/subrs.scm �   �  � �  ��g��nameg��consp�C{R4 #|�������h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm � �  ���C>��"��G����h������]�6�������������g��el  ��g��filenamef�� language/elisp/runtime/subrs.scm �   �   �  � �  ��g��nameg��atomp�C}R4 #~������h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm � �  ���C>��"��G����h������]�$��"���6����������g��el  ��g��filenamef�� language/elisp/runtime/subrs.scm �   �  �  �   �   � �   ��g��nameg��listp�CR4 #����h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm � �  ���C>��"��G����h������]�$��"���6���������g��el  ��g��filenamef�� language/elisp/runtime/subrs.scm �   �  �   �   �   � �   ��g��nameg��nlistp�CR4 #���h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm � �  ���C>��"��G����h������]�6��������������g��el  ��g��filenamef�� language/elisp/runtime/subrs.scm �   �  � �  ��g��nameg��null�CR4 #��������h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm � �  ���C>��"��G����h������]�(��C�C��������g��el  ��g��filenamef�� language/elisp/runtime/subrs.scm �   �   � �   ��g��nameg��car�CR4 #�h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm � �  ���C>��"��G����h������]�(��C�C��������g��el  ��g��filenamef�� language/elisp/runtime/subrs.scm �   �   � �   ��g��nameg��cdr�CR4 #�h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm � �  ���C>��"��G����h������]�$���CC�������g��el  ��g��filenamef�� language/elisp/runtime/subrs.scm �   �  �  � �   ��g��nameg��car-safe�CR4 #���h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm � �  ���C>��"��G����h������]�$���CC�������g��el  ��g��filenamef�� language/elisp/runtime/subrs.scm �   �  �  � �   ��g��nameg��cdr-safe�CR4 #���h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm � �  ���C>��"��G����hH�����]� $��C"��#(��C $��C"�"������� ������g��n  A�g��lst  A�g��i   5�g��tail   5��g��filenamef�� language/elisp/runtime/subrs.scm �   �  �  �   �   �  � # � & �  * �  - � & 5 �  5 � �  A ��g��nameg��nth�CR4 #������h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm � �  ���C>��"��G����h@�����]� $��C"��"(��C $��C"�"��������g��n  ?�g��lst  ?�g��i   3�g��tail   3��g��filenamef�� language/elisp/runtime/subrs.scm �   �  �   �   �  � " � ( �  + � & 3 �  3 � �  ? ��g��nameg��nthcdr�CR4 #�����h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm � �  ���C>��"��G��R4 #������h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm � �  ���C>��"��G��R4 #������h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm � �  ���C>��"��G��R4 #������h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm � �  ���C>��"��G����h������]�6�������������g��len  �g��obj  ��g��filenamef�� language/elisp/runtime/subrs.scm �   � �  ��g��nameg�� make-list�CR4 #��h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm � �  ���C>��"��G��R4 #������h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm � �  ���C>��"��G��R4 #������h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm � �  ���C>��"��G��R4 #������h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm � �  ���C>��"��G��K��������h�����-�1�3�45 $�� 6(����C$��"��$�� "��$��"���$����C"��W�$��C"��!�$��C"�4�545" $���$��"6"�����������g��from ��g��rest ��g��t  5 L�g��to  Y ��g��sep  Y ��g��t  b w�g��i  � ��g��result  � ���g��filenamef�� language/elisp/runtime/subrs.scm �  �   �   �   �   �  " �  ( �  - � 1 �  4 � & 5 �  5 �  G � . I �  P �  X �  Y � b �  b �  t � ' { �  � � 9 � �  � � ( � �  � �  � � ; � �  �   �   �   �   �   �   � �  � � 3 � � 9 � � 3 � � 3 � � - � � ' � � ! �  & � �  � �  � �  � �  � � + � �  � �  � � �5 � ��g��nameg��number-sequence�CR4 #������h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm � �  ���C>��"��G��������h(������]�(��(��"���"���C������������g��cell  #�g��val  #��g��filenamef�� language/elisp/runtime/subrs.scm           �  # ��g��nameg��setcar�CR4 #��h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm  �  ���C>��"��G��������h(������]�(��(��"���"���C������������g��cell  #�g��val  #��g��filenamef�� language/elisp/runtime/subrs.scm           �  # ��g��nameg��setcdr�CR4 #��h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm  �  ���C>��"��G����������h������]�6�������������g��sym  ��g��filenamef�� language/elisp/runtime/subrs.scm    �  ��g��nameg�� symbol-value�CR4 #��������h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm  �  ���C>��"��G����������h������]�6�������������g��sym  ��g��filenamef�� language/elisp/runtime/subrs.scm    �  ��g��nameg��symbol-function�CR4 #�����h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm  �  ���C>��"��G����������h������]�6�����������g��sym  �g��value  ��g��filenamef�� language/elisp/runtime/subrs.scm "  # �  ��g��nameg��set�CR4 #������h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm ! �  ���C>��"��G����������h������]�6�����������g��sym  �g��value  ��g��filenamef�� language/elisp/runtime/subrs.scm &  ' �  ��g��nameg��fset�CR4 #�����h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm % �  ���C>��"��G��� ���h���1��] 445�5$��i445�5$��945$��4>��"��G��"��4>��"��G��"��4>��"��G��"����C)������g��sym  ��g��var " y��g��filenamef�� language/elisp/runtime/subrs.scm *   +   +   +   +   ,   , " " ,  " ,  ' .  + .  , . ' 1 . / 3 . ' 7 . 8 / = /  B / O 0 �  � ��g��nameg�� makunbound�CR4 #�������h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm ) �  ���C>��"��G��� ���h���2��] 445�5$��i445�5$��945$��4>��"��G��"��4>��"��G��"��4>��"��G��"����C*������g��sym  ��g��var " y��g��filenamef�� 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 ; �  � ��g��nameg�� fmakunbound�CR4 #������h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm 3 �  ���C>��"��G��� ���hX���+��] 445�5$��<445�5$��45$�� 45"��"��"��6���#������g��sym  U�g��var $ N��g��filenamef�� 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 ��g��nameg��boundp�CR4 #�����h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm > �  ���C>��"��G��� ���hX���,��] 445�5$��<445�5$��45$�� 45"��"��"��6���$������g��sym  U�g��var $ N��g��filenamef�� 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 ��g��nameg��fboundp�CR4 #����h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm J �  ���C>��"��G��� �����hh���N��-�1�3��$�� 4�5"��>�$��5�(��"���$��4�5"�� 4  �5"��� @���F������g��func e�g��args e�g�� real-func  [ e��g��filenamef�� 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 ��g��nameg��apply�CR4 #��h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm Y �  ���C>��"��G����h������-�1�3��6��������������g��func �g��args ��g��filenamef�� language/elisp/runtime/subrs.scm h   i �  ��g��nameg��funcall�CR4 #�h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm g �  ���C>��"��G����������h������]�6�����������g��tag  �g��value  ��g��filenamef�� language/elisp/runtime/subrs.scm n   o   o  o �  ��g��nameg��throw�CR4 #��h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm m �  ���C>��"��G����������h���}���]�$��CC��u�������g��x  ��g��filenamef�� language/elisp/runtime/subrs.scm t   u �   ��g��nameg��not�CR4 #���h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm s �  ���C>��"��G����h������]�6�������g��form  ��g��filenamef�� language/elisp/runtime/subrs.scm x  y   y %  y �   ��g��nameg��eval�CR4 #�����h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm w �  ���C>��"��G����h ������]4�>��"��G��C���������g��file  ��g��filenamef�� language/elisp/runtime/subrs.scm |   }  }   } *  } �   ��g��nameg��load�CR #�����h���S���]�45�6���K�������g��filenamef�� language/elisp/runtime/subrs.scm { �  ���C6���s������g��m  (��g��filenamef�� 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 ���C6������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/elisp/runtime/function-slot.go�������������������������������������������������������������0000644�����������������00000007034�15253700563�0014273 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]��4�������hx ������]� g��guile � g��define-module* � � g��language g��elisp g��runtime g�� function-slot  � g��filenameS f��(language/elisp/runtime/function-slot.scm g�� duplicatesS g��last � g��importsS g��subrs � � g��macros � g��selectS g�� macro-lambda g��lambda  g�� macro-prog1 g��prog1  g�� macro-prog2 g��prog2  g�� macro-when !g��when " ! #g�� macro-unless $g��unless %#$ &g�� macro-cond 'g��cond (&' )g�� macro-and *g��and +)* ,g��macro-or -g��or .,- /g�� macro-dotimes 0g��dotimes 1/0 2g�� macro-dolist 3g��dolist 423 5g�� macro-catch 6g��catch 756 8g��macro-unwind-protect 9g��unwind-protect :89 ;g�� macro-pop <g��pop =;< >g�� macro-push ?g��push @>? A"%(+.147:=@� BA� Cg��compile-tree-il DC� Eg�� compile-progn Fg��progn GEF Hg�� compile-if Ig��if JHI Kg��compile-defconst Lg��defconst MKL Ng��compile-defvar Og��defvar PNO Qg�� compile-setq Rg��setq SQR Tg�� compile-let Ug��let VTU Wg��compile-lexical-let Xg�� lexical-let YWX Zg�� compile-flet [g��flet \Z[ ]g�� compile-let* ^g��let* _]^ `g��compile-lexical-let* ag�� lexical-let* b`a cg�� compile-flet* dg��flet* ecd fg��compile-with-always-lexical gg��with-always-lexical hfg ig��compile-guile-ref jg�� guile-ref kij lg��compile-guile-primitive mg��guile-primitive nlm og�� compile-while pg��while qop rg��compile-function sg��function trs ug�� compile-defun vg��defun wuv xg��compile-defmacro yg��defmacro zxy {g�� compile-` |g��` }{| ~g�� compile-quote g��quote �~ �GJMPSVY\_behknqtwz}� �D� �B� �g�� re-exportsS �g��eq �g��equal �g��floatp �g��integerp �g��numberp �g�� wholenump �g��zerop �g��= �g��/= �g��< �g��<= �g��> �g��>= �g��max �g��min �g��abs �g��float �g��1+ �g��1- �g��+ �g��- �g��* �g��% �g��ffloor �g��fceiling �g�� ftruncate �g��fround �g��consp �g��atomp �g��listp �g��nlistp �g��null �g��car �g��cdr �g��car-safe �g��cdr-safe �g��nth �g��nthcdr �g��length �g��cons �g��list �g�� make-list �g��append �g��reverse �g�� copy-tree �g��number-sequence �g��setcar �g��setcdr �g�� symbol-value �g��symbol-function �g��set �g��fset �g�� makunbound �g�� fmakunbound �g��boundp �g��fboundp �g��apply �g��funcall �g��throw �g��not �g��eval �g��load �FILORUX[^adgjmpsvy|!$'*-0369<?�` �g��set-current-module �� ��C�5���h0���j���]4    5 �4�>��"��G���Cb�������g��m  0��g��filenamef��(language/elisp/runtime/function-slot.scm  �  0 ���C6�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/elisp/runtime/value-slot.go����������������������������������������������������������������0000644�����������������00000000751�15253700563�0013561 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]��4������h������]� g��guile � g��define-module* � � g��language g��elisp g��runtime g�� value-slot  � g��filenameS f��%language/elisp/runtime/value-slot.scm g��set-current-module  �  �C�5������h(���g���]4   5�4�>��"��G���C����_�������g��m $��g��filenamef��%language/elisp/runtime/value-slot.scm  �  $ ���C6������������������������language/elisp/runtime/macros.go��������������������������������������������������������������������0000644�����������������00000022453�15253700563�0012755 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0%������]�n�4��������h������]� g��guile � g��define-module* � � g��language g��elisp g��runtime g��macros  � g��filenameS f��!language/elisp/runtime/macros.scm g��importsS � � � g��set-current-module � � g�� make-fluid � � g��macro g��function g��lambda g�� macro-lambda g��call-with-deferred-observers � � g��module-export! � � !g��current-module "!� #!� $� %g��gensym &g�� lexical-let 'g��append ('� )'� *g�� macro-prog1 +*� ,g��progn -g��prog1 .g�� macro-prog2 /.� 0g��if 1g��nil 21� 3g�� macro-when 43� 5g�� macro-unless 65� 7g�� macro-error 8f��invalid clause in cond 9g�� macro-cond :9� ;g��t <g�� macro-and =<� >g��macro-or ?>� @g��length Af��invalid dotimes arguments Bf��#expected symbol as dotimes variable Cg��let D � Eg��while Fg��guile-primitive Gg��< HFG� Ig��setq Jg��1+ KFJ� Lg�� macro-dotimes ML� Nf��invalid dolist arguments Og��not PFO� Qg��null? RFQ� Sg��car TFS� Ug��cdr VFU� Wf��"expected symbol as dolist variable Xg�� macro-dolist YX� Zf��catch with empty body [g��catch \F[� ]g��with-always-lexical ^g��eq _g��throw `F_� ag�� macro-catch ba� cf��#unwind-protect without cleanup code dg�� dynamic-wind eFd� f1� gg��macro-unwind-protect hg� ig�� macro-pop ji� kg��cons lg�� macro-push ml�C�5�������h������]4    5�4�>��"��G���4���h���p���-��1��3���C����h�������g��cdr ��g��filenamef��!language/elisp/runtime/macros.scm    �  ���C5R4 #$�����h���S���]�45�6���K�������g��filenamef��!language/elisp/runtime/macros.scm  �  ���C>��"��G��4%&)�h0������-�1�3�45����4�5C������������g��form1 +�g��rest +�g��temp   +��g��filenamef��!language/elisp/runtime/macros.scm %  &   &   ' � + ���C5*R4 #+��������h���S���]�45�6���K�������g��filenamef��!language/elisp/runtime/macros.scm $ �  ���C>��"��G��4,-���h ������-�1�3���C��������������g��form1 �g��form2 �g��rest  ��g��filenamef��!language/elisp/runtime/macros.scm ,  - �   ���C5.R4 #/�����h���S���]�45�6���K�������g��filenamef��!language/elisp/runtime/macros.scm + �  ���C>��"��G��40,2�h������-�1�3��C�������g�� condition �g��thens ��g��filenamef��!language/elisp/runtime/macros.scm 2  3 �  ���C53R4 #4�����h���S���]�45�6���K�������g��filenamef��!language/elisp/runtime/macros.scm 1 �  ���C>��"��G��401,�h������-�1�3���C�������g�� condition �g��elses ��g��filenamef��!language/elisp/runtime/macros.scm 6  7 �  ���C55R4 #6�����h���S���]�45�6���K�������g��filenamef��!language/elisp/runtime/macros.scm 5 �  ���C>��"��G��4178%&0,��������hp���~��]�(��C�4L��5$��"��$��6(��#45�����C�Cv������g��tail  p�g��cur  p�g��rest   p�g��var  A _��g��filenamef��!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 ��g��nameg��iterate�C�������h ������-��1��3�O�Q��6�����������g��clauses �g��iterate  ��g��filenamef��!language/elisp/runtime/macros.scm ?   @ �  ���C59R4 #:�����h���S���]�45�6���K�������g��filenamef��!language/elisp/runtime/macros.scm > �  ���C>��"��G��4;02��������h ������](���C�4L�5C�������g��x  �g��tail  ��g��filenamef��!language/elisp/runtime/macros.scm Z   [  ]  ^   ^   ^ %  ^   ] �  ��g��nameg��iterate�C���h8������)����3��C)���3��C-�1�3�O�Q��6���������g��x  �g��x ! 6�g��args ! 6�g��iterate  ) 6��g��filenamef��!language/elisp/runtime/macros.scm V  W   V  ) Z � �   � ! 6 ���C5<R4 #=���h���S���]�45�6���K�������g��filenamef��!language/elisp/runtime/macros.scm U �  ���C>��"��G��41%&0������h8������] (���C45����4L�5��C���������g��x  6�g��tail  6�g��var   6��g��filenamef��!language/elisp/runtime/macros.scm f   g  i   i  j % m  * m  - m ) / m  2 j �  6 ��g��nameg��iterate�C��h8������)����3��C)���3��C-�1�3�O�Q��6���������g��x  �g��x ! 6�g��args ! 6�g��iterate  ) 6��g��filenamef��!language/elisp/runtime/macros.scm b  c   b  ) f � �   � ! 6 ���C5>R4 #?���h���S���]�45�6���K�������g��filenamef��!language/elisp/runtime/macros.scm a �  ���C>��"��G��4@7ABCDEH)IK� h�����-�1�3��$��(4�5 $��"�� 4�5 "��$���6��$��"��4>��"��G����4   ���54�5 $�� ��"��C�����������g��args ��g��body ��g��t   4�g��var  L ��g��count  L ���g��filenamef��!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 #M������h���S���]�45�6���K�������g��filenamef��!language/elisp/runtime/macros.scm q �  ���C>��"��G��4@7N%C&EPRIT)VW���h�����-�1�3��$��(4�5 $��"�� 4�5 "��$���6��45�$��l��� ��  ��4   ���54�5 $�� ��"���C6������g��args ��g��body ��g��t   4�g��var  Q ��g�� iter-list  Q ��g��tailvar  Q ���g��filenamef��!language/elisp/runtime/macros.scm �  �   �   �   �   �  ( �  1 �  9 �  = �  A �  E �  H �  K �  M �  Q �  Z �  ^ � ` �  � �  � �  � �  � �  � �  � �  � �  � �  � � � � ���C5XR4 #Y����h���T���]�45�6���L�������g��filenamef��!language/elisp/runtime/macros.scm � �  ���C>��"��G��47Z%&\]0^`� �h�����-�1�3�(��4>��"��G��"���45����45�45�45�� � ������C��~������g��tag ��g��body ��g��tagsym  * ��g�� dummy-key  G ��g�� elisp-key  N ��g��value  U ��g��arglist  ` ���g��filenamef��!language/elisp/runtime/macros.scm �   �   �   �   �  & �  * �  . �  C �  G � J �  N � Q �  U � ` �  ` � d � � � � � ���C5aR4 #b�������h���T���]�45�6���L�������g��filenamef��!language/elisp/runtime/macros.scm � �  ���C>��"��G��47cef����h@������-�1�3�(��4>��"��G��"������C�����������g��body <�g�� clean-ups <��g��filenamef��!language/elisp/runtime/macros.scm �   �   �   �   �  ' � � < ���C5gR4 #h��������h���T���]�45�6���L�������g��filenamef��!language/elisp/runtime/macros.scm � �  ���C>��"��G��4-SIU������h ���v���]�������C���n�������g�� list-name  ��g��filenamef��!language/elisp/runtime/macros.scm �   � �   ���C5iR4 #j�������h���T���]�45�6���L�������g��filenamef��!language/elisp/runtime/macros.scm � �  ���C>��"��G��4Ik��h������]���C������������g��new-el  �g�� list-name  ��g��filenamef��!language/elisp/runtime/macros.scm �   � �   ���C5lR #m����h���T���]�45�6���L�������g��filenamef��!language/elisp/runtime/macros.scm � �  ���C6���������g��m  (��g��filenamef��!language/elisp/runtime/macros.scm   )  Y $  + 9 1  5  > ) U a  q  �  �  � z �  � �   ���C6����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/tree-il/peval.go���������������������������������������������������������������������������0000644�����������������00000536330�15253700563�0011346 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0�����] �4�������hM������]� g��guile � g��define-module* � � g��language g��tree-il g��peval � g��filenameS f��language/tree-il/peval.scm g��importsS �  � g�� primitives � � g��effects � � g��ice-9 g��vlist � � g��match � � g��srfi g��srfi-1 � � g��srfi-9 ! � "!� #g��srfi-11 $#� %$� &g��srfi-26 '&� ('� )g��control *)� +*� ,"%(+�  -g��exportsS .� /g��set-current-module 0/� 1/� 2g��make-syntax-transformer 32� 42� 5g�� *logging* 6g��macro 7g�� identifier? 87� 97� :g�� syntax-object ;g��top <;� =g��ribcage >g��id ?>� @g��m-9d6212d37ae-5919 A@;� BA� Cf��l-9d6212d37ae-5920 DC� E=?BD� F=� Gg��x HG� If��l-9d6212d37ae-591b JI� K=HBJ� L<EFK� Mg��hygiene NM� O:LN� Pg�� $sc-dispatch QP� RP� Sg��_ Tg��each-any UST Vf��l-9d6212d37ae-5923 WV� X=HBW� Y<XFK� Z:YN� [g��syntax-violation \[� ][� ^f��-source expression failed to match any pattern _g��log `g��any ag��free-id bg��quote cg��m-9d6212d37ae-5926 dc;� ed� ff��l-9d6212d37ae-5928 gf� h=Heg� i<Fh� j:biN� kaj� lk`� mlT n`m og��if pg��dummy qg��event rg��arg spqr� td<<� uf��l-9d6212d37ae-592b vf��l-9d6212d37ae-592c wf��l-9d6212d37ae-592d xuvw� y=stx� z<yFh� {:ozN� |g��and }:|zN� ~:5zN� g��or �:zN� �g��eq? �:zN� �:zN� �~� �g��memq �:zN� �:bzN� �~� �g��log* �:zN� �g�� module-ref �g��resolve-interface �g�� pretty-print �� �g��newline �g��let/ec �g�� tree-il-fold �g��abort-to-prompt �g�� tree-il-any �g�� vlist-length �g�� vlist-ref �g�� vlist-any �g�� <application> �g��<lambda> �g��<primitive-ref> �g��values �g��<const> �g�� <lexical-ref> �g��<void> �g�� <module-ref> �g��<toplevel-ref> �g��singly-valued-primitive? �g��singly-valued-expression? �g��make-application �g�� tree-il-src �g��make-primitive-ref �g��truncate-values �g��<var> �g��%make-var-procedure �g��make-var �S````� �g��lambda �g��m-9d6212d37ae-5be1 �;� �g��t-9d6212d37ae-5bdd �g��t-9d6212d37ae-5bde �g��t-9d6212d37ae-5bdf �g��t-9d6212d37ae-5be0 �� �� �f��l-9d6212d37ae-5be6 �f��l-9d6212d37ae-5be7 �f��l-9d6212d37ae-5be8 �f��l-9d6212d37ae-5be9 �� �=� �� �f��l-9d6212d37ae-5be3 �� �=H� �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 �� �=H� �FFFFF�  �M � �:� �<F� �:N� �g��gensym �:N� �g��refcount �:N� �g��set? �:N� �� �g�� make-struct �g��m-9d6212d37ae-5bdb �;� �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 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��l-1e8ba8b5a-da &%� '=H&� (FFFFFF$'� ):(� *:N� +: (� ,)*+� -,� .![� /![� 0f��Wrong number of arguments 1!7� 2!7� 3<F� 4:3N� 5g��record-type-vtable 6!5� 7!5� 8g��pwpwpwpw 9g��default-record-printer :!9� ;!9� <� =g��set-struct-vtable-name! >!=� ?!=� @g��vtable-offset-user A!@� B!@� Cg��%var?-procedure Dg��var? ES`� Fg��m-9d6212d37ae-5bf4 GF;� Hg��t-9d6212d37ae-5bf3 IH� JG� Kf��l-9d6212d37ae-5bf9 LK� M=IJL� Nf��l-9d6212d37ae-5bf6 ON� P=HJO� QGMFPFFFF�  R:Q� Sg��obj Tg��t-1e8ba8b5a-224 Ug��t-1e8ba8b5a-21e Vg��t-1e8ba8b5a-21f Wg��t-1e8ba8b5a-220 Xg��t-1e8ba8b5a-223 Yg��t-1e8ba8b5a-222 Zg��t-1e8ba8b5a-221 [TUVWXYZ� \g��m-1e8ba8b5a-225 ]\;� ^]]]]]]]� _f��l-1e8ba8b5a-229 `f��l-1e8ba8b5a-22a af��l-1e8ba8b5a-22b bf��l-1e8ba8b5a-22c cf��l-1e8ba8b5a-22d df��l-1e8ba8b5a-22e ef��l-1e8ba8b5a-22f f_`abcde� g=[^f� hg�� copier-id ih� jf��l-1e8ba8b5a-21c kj� l=ik� mg�� ctor-name nm� of��l-1e8ba8b5a-214 po� q=np� r� sf��l-1e8ba8b5a-212 ts� u=rt� vg��layout wv� xf��l-1e8ba8b5a-210 yx� z=wy� {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 � =� MFPFgFFFFlFqFuFzFFFF$'� :S� � :|� g��struct? :� � :� g�� struct-vtable :� � <MFP� :N� � � R� <FP� :CN� g��throw-bad-struct !� !� g��var-name g��%var-name-procedure g�� %%on-error g��m-9d6212d37ae-5c00 ;� � f��l-9d6212d37ae-5c02 � =H� FFFFF�  :� a� `� 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 � =� h� <<<� f��l-1e8ba8b5a-144 f��l-1e8ba8b5a-145 f��l-1e8ba8b5a-146 � =� FFFFFF$'� :� a� S`� g��ck g��err g��s � � f��l-9d6212d37ae-5c05 f��l-9d6212d37ae-5c06 � =� FFFFF�  :� :b� <F� :N� � � g��%%index :� a� S`� f��l-9d6212d37ae-5c0a f��l-9d6212d37ae-5c0b � =� FFFFF�  :� :b� F� �: N� �� � g��%%copier :� a� S`� f��l-9d6212d37ae-5c0f f��l-9d6212d37ae-5c10  �  = �   FFFFF�   : �  :b � g��%%<var>-set-fields < F� :N�  � � g��t-9d6212d37ae-5bff � f��l-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 4g��m-9d6212d37ae-5c1b 54;� 65� 7f��l-9d6212d37ae-5c1d 87� 9=H68� :5F9FFFF�  ;::� <a;� =<`� >F9FFFFF$'� ?:>� @a?� AS=@`� B55� Cf��l-9d6212d37ae-5c20 Df��l-9d6212d37ae-5c21 ECD� F=BE� G5FF9FFFF�  H:G� I:bG� J<FF9� K:JN� LIK� ML� N:>� OaN� PS=O`� Qf��l-9d6212d37ae-5c25 Rf��l-9d6212d37ae-5c26 SQR� T=BS� U5TF9FFFF�  V:U� W:bU� XTF9� Y: XN� ZWY� [Z� \:>� ]a\� ^S=]`� _f��l-9d6212d37ae-5c2a `f��l-9d6212d37ae-5c2b a_`� b=Ba� c5bF9FFFF�  d:c� e:bc� f<bF9� g:fN� heg� ih� jg��t-9d6212d37ae-5c1a kj� lf��l-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 g��m-9d6212d37ae-5c36 ;� � f��l-9d6212d37ae-5c38 � =H� FFFFF�  :� a� `� FFFFFF$'� :� a� S`� � f��l-9d6212d37ae-5c3b f��l-9d6212d37ae-5c3c � =� FFFFF�  :� :b� <F� :N� � � :� a� S`� f��l-9d6212d37ae-5c40 f��l-9d6212d37ae-5c41 � =� FFFFF�  :� :b� F� : N� � � :� a� S`� f��l-9d6212d37ae-5c45 f��l-9d6212d37ae-5c46 � =� FFFFF�  :� :b� <F� :N� � � g��t-9d6212d37ae-5c35 � f��l-9d6212d37ae-5c4a � =� FFFFF�  :� FFFFFF$'� :� � :o� :� :� � <F� :N� � :$� F� : N� � :� :b� :N� � � � � <F� :N� g��var-set? g��%var-set?-procedure g��m-9d6212d37ae-5c51 ;� � f��l-9d6212d37ae-5c53 � =H� FFFFF�  :� a� `� FFFFFF$'� :� a� S`� � f��l-9d6212d37ae-5c56 f��l-9d6212d37ae-5c57 � =� FFFFF�  :� :b� <F� :N� � � :� a� S`� f��l-9d6212d37ae-5c5b f��l-9d6212d37ae-5c5c � �=� �FFFFF�  :� :b� �F� : N� � � :�  a�  S `�  f��l-9d6212d37ae-5c60  f��l-9d6212d37ae-5c61    � = � FFFFF�  :� :b� <F� :N� � � g��t-9d6212d37ae-5c50 � f��l-9d6212d37ae-5c65 � =� FFFFF�  :� FFFFFF$'� :� �  :o� !:� ":� #"� $<F� %:$N� &!#%� ':$� (F� ): (N� *')� +:� ,:b� -:$N� .,-� /+.� 0 &*/� 10� 2<F� 3:2N� 4g��each 5``� 645� 7`6 8`7 9`8 :g�� %%set-fields ;g��check? <g��expr =p;<� >g��m-9d6212d37ae-5c6c ?>;� @?� Af��l-9d6212d37ae-5c71 Bf��l-9d6212d37ae-5c72 Cf��l-9d6212d37ae-5c73 Df��l-9d6212d37ae-5c74 Ef��l-9d6212d37ae-5c75 FABCDE� G==@F� H?� If��l-9d6212d37ae-5c6e JI� K=HHJ� Lg��t-1e8ba8b5a-16a Mg��t-1e8ba8b5a-16c Ng��t-1e8ba8b5a-16b OLMN� Pg��m-1e8ba8b5a-16d QP;� RQQQ� Sf��l-1e8ba8b5a-171 Tf��l-1e8ba8b5a-172 Uf��l-1e8ba8b5a-173 VSTU� W=ORV� Xf��l-1e8ba8b5a-167 Yf��l-1e8ba8b5a-168 Zf��l-1e8ba8b5a-169 [XYZ� \=[� ]GFKFWFFF\$'�  ^::]� _<GFK� `:_N� a:_N� b:2_N� c:_N� d:_N� eabcd� fg��map gf� hf� ig��list jg��set-var-refcount! kg��%set-var-refcount!-procedure lS``� mg��m-9d6212d37ae-5c80 nm;� og��t-9d6212d37ae-5c7e pg��t-9d6212d37ae-5c7f qop� rnn� sf��l-9d6212d37ae-5c85 tf��l-9d6212d37ae-5c86 ust� v=qru� wn� xf��l-9d6212d37ae-5c82 yx� z=Hwy� {nvFzFFFF�  |:{� }g��t-1e8ba8b5a-18c ~g��t-1e8ba8b5a-18d }~� g��m-1e8ba8b5a-18e ;� � f��l-1e8ba8b5a-192 f��l-1e8ba8b5a-193 � =� g��setter � f��l-1e8ba8b5a-186 f��l-1e8ba8b5a-187 f��l-1e8ba8b5a-188 � =� � f��l-1e8ba8b5a-17d f��l-1e8ba8b5a-17e � =� g�� field-specs � f��l-1e8ba8b5a-179 f��l-1e8ba8b5a-17a � =� vFzFFF$'� :� g��val :� � :o� :� :� � <vFz� :N� � g�� struct-set! :� vFz� : N� � :� :b� :jN� � � � |� <Fz� :kN� g�� set-var-set?! g��%set-var-set?!-procedure g��m-9d6212d37ae-5c90 ;� g��t-9d6212d37ae-5c8e g��t-9d6212d37ae-5c8f � � f��l-9d6212d37ae-5c95 f��l-9d6212d37ae-5c96 � =� � f��l-9d6212d37ae-5c92 � =H� FFFFF�  :� FFFF$'� :� :� � :o� :� :� � <F� :N� � :� F� : N� � :� :b� :N� � � � � <F� :N� g�� vlist-null g�� vhash-assq g�� <lambda-case> g��fold g�� vhash-consq g��append g��reverse � � g��<let> g��<letrec> g��<fix> g�� <lexical-set> g��build-var-table g�� <counter> g��%%make-counter-procedure g�� %make-counter S``````� g��m-9d6212d37ae-63bc ;� g��t-9d6212d37ae-63b6 g��t-9d6212d37ae-63b7 g��t-9d6212d37ae-63b8 g��t-9d6212d37ae-63b9 g��t-9d6212d37ae-63ba g��t-9d6212d37ae-63bb � � f��l-9d6212d37ae-63c1 f��l-9d6212d37ae-63c2 f��l-9d6212d37ae-63c3 f��l-9d6212d37ae-63c4 f��l-9d6212d37ae-63c5 f��l-9d6212d37ae-63c6 � �=� � f��l-9d6212d37ae-63be � =H� �FFFFF�  :� g��effort <�F�  :N�  g��size  : N�  g�� continuation  : N� g�� recursive? :N� g��data :N� g��prev :N�    � g��m-9d6212d37ae-63b4 ;� �FFFFFF$'� :� :N� : �    �  � <F� :N� g�� pwpwpwpwpwpw    � !g��%counter?-procedure "g��counter? #g��m-9d6212d37ae-63d3 $#;� %g��t-9d6212d37ae-63d2 &%� '$� (f��l-9d6212d37ae-63d8 )(� *=&')� +f��l-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� @g��effort-counter Ag��%effort-counter-procedure Bg��m-9d6212d37ae-63df CB;� DC� Ef��l-9d6212d37ae-63e1 FE� G=HDF� HCFGFFFF�  I:H� JaI� KJ`� LFGFFFFF$'� M:L� NaM� OSKN`� PCC� Qf��l-9d6212d37ae-63e4 Rf��l-9d6212d37ae-63e5 SQR� T=PS� UCTFGFFFF�  V:U� W:bU� X<TFG� Y:XN� ZWY� [Z� \:L� ]a\� ^SK]`� _f��l-9d6212d37ae-63e9 `f��l-9d6212d37ae-63ea a_`� b=Pa� cCbFGFFFF�  d:c� e:bc� fbFG� g: fN� heg� ih� j:L� kaj� lSKk`� mf��l-9d6212d37ae-63ee nf��l-9d6212d37ae-63ef omn� p=Po� qCpFGFFFF�  r:q� s:bq� tg��%%<counter>-set-fields u<pFG� v:tuN� wsv� xw� yg��t-9d6212d37ae-63de zy� {f��l-9d6212d37ae-63f3 |{� }=zD|� ~C}FGFFFF�  :~� }FGFFFFF$'� :� � :o� :� :� � <}FG� :N� � :$� }FG� : N� � :� :b� :@N� � � � � <FG� :AN� g�� size-counter g��%size-counter-procedure g��m-9d6212d37ae-63fa ;� � f��l-9d6212d37ae-63fc � =H� FFFFF�  :� a� `� FFFFFF$'� :� a� S`� � f��l-9d6212d37ae-63ff f��l-9d6212d37ae-6400 � =� FFFFF�  :� :b� <F� :N� � � :� a� S`� f��l-9d6212d37ae-6404 f��l-9d6212d37ae-6405 � =� FFFFF�  :� :b� F� : N� � � :� a� S`� f��l-9d6212d37ae-6409 f��l-9d6212d37ae-640a � =� FFFFF�  :� :b� <F� :tN� � � g��t-9d6212d37ae-63f9 � f��l-9d6212d37ae-640e � =� FFFFF�  :� FFFFFF$'� :� � :o� :� :� � <F� :N� � :$� F� : N� � :� :b� :N� � � � � <F� :N� g��counter-continuation g��%counter-continuation-procedure g��m-9d6212d37ae-6415 ;� � f��l-9d6212d37ae-6417 � =H� FFFFF�  :� a� `� FFFFFF$'� :� a� S`� � f��l-9d6212d37ae-641a f��l-9d6212d37ae-641b �� =�� FFFFF�  :� :b� <F� :N� � �  :�  a �  S `�  f��l-9d6212d37ae-641f  f��l-9d6212d37ae-6420   � =� FFFFF�  :� :b� F� : N� � � :� a� S`� f��l-9d6212d37ae-6424 f��l-9d6212d37ae-6425 � =� FFFFF�  :�  :b� !<F� ":t!N� # "� $#� %g��t-9d6212d37ae-6414 &%� 'f��l-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� Cg��counter-recursive? Dg��%counter-recursive?-procedure Eg��m-9d6212d37ae-6430 FE;� GF� Hf��l-9d6212d37ae-6432 IH� J=HGI� KFFJFFFF�  L:K� MaL� NM`� OFJFFFFF$'� P:O� QaP� RSNQ`� SFF� Tf��l-9d6212d37ae-6435 Uf��l-9d6212d37ae-6436 VTU� W=SV� XFWFJFFFF�  Y:X� Z:bX� [<WFJ� \:[N� ]Z\� ^]� _:O� `a_� aSN``� bf��l-9d6212d37ae-643a cf��l-9d6212d37ae-643b dbc� e=Sd� fFeFJFFFF�  g:f� h:bf� ieFJ� j: iN� khj� lk� m:O� nam� oSNn`� pf��l-9d6212d37ae-643f qf��l-9d6212d37ae-6440 rpq� s=Sr� tFsFJFFFF�  u:t� v:bt� w<sFJ� x:twN� yvx� zy� {g��t-9d6212d37ae-642f |{� }f��l-9d6212d37ae-6444 ~}� =|G~� FFJFFFF�  :� FJFFFFF$'� :� � :o� :� :� � <FJ� :N� � :$� FJ� : N� � :� :b� :CN� � � � � <FJ� :DN� g�� counter-data g��%counter-data-procedure g��m-9d6212d37ae-644b ;� � f��l-9d6212d37ae-644d � =H� FFFFF�  :� a� `� FFFFFF$'� :� a� S`� � f��l-9d6212d37ae-6450 f��l-9d6212d37ae-6451 � =� FFFFF�  :� :b� <F� :N� � � :� a� S`� f��l-9d6212d37ae-6455 f��l-9d6212d37ae-6456 � =� FFFFF�  :� :b� F� : N� � � :� a� S`� f��l-9d6212d37ae-645a f��l-9d6212d37ae-645b � =� FFFFF�  :� :b� <F� :tN� � � g��t-9d6212d37ae-644a � f��l-9d6212d37ae-645f � =� FFFFF�  :� FFFFFF$'� :� � :o� :� :� � <F� :N� � :$� F� : N� � :� :b� :N� � � � � <F� :N� g�� counter-prev g��%counter-prev-procedure g��m-9d6212d37ae-6466 ;� � f��l-9d6212d37ae-6468 � =H� FFFFF�  :� a� `� FFFFFF$'� :� a� S`� � �f��l-9d6212d37ae-646b f��l-9d6212d37ae-646c �� =� FFFFF�  :� :b� <F� :N�  �   �  :�  a �  S `� f��l-9d6212d37ae-6470 f��l-9d6212d37ae-6471 � =� FFFFF�  :� :b� F� : N� � � :� a� S`� f��l-9d6212d37ae-6475 f��l-9d6212d37ae-6476 � =�  FFFFF�  !: � ":b � #<F� $:t#N� %"$� &%� 'g��t-9d6212d37ae-6465 ('� )f��l-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� Eg��m-9d6212d37ae-6481 FE;� GF� Hf��l-9d6212d37ae-6486 If��l-9d6212d37ae-6487 Jf��l-9d6212d37ae-6488 Kf��l-9d6212d37ae-6489 Lf��l-9d6212d37ae-648a MHIJKL� N==GM� OF� Pf��l-9d6212d37ae-6483 QP� R=HOQ� SNFRFWFFF\$'�  T::S� U<NFR� V:UN� W:@UN� X:UN� Y:UN� Z:CUN� [:UN� \:UN� ]WXYZ[\� ^g��set-counter-recursive?! _g��"%set-counter-recursive?!-procedure `g��m-9d6212d37ae-6495 a`;� bg��t-9d6212d37ae-6493 cg��t-9d6212d37ae-6494 dbc� eaa� ff��l-9d6212d37ae-649a gf��l-9d6212d37ae-649b hfg� i=deh� ja� kf��l-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 g��record-effort! g�� record-size! g�� find-counter g��min g�� transfer! g�� make-variable g��make-top-counter g��make-nested-counter g��make-recursive-counter g�� <operand> g��%%make-operand-procedure g�� %make-operand S``````````�  g��m-9d6212d37ae-6564 ;� g��t-9d6212d37ae-655a g��t-9d6212d37ae-655b g��t-9d6212d37ae-655c g��t-9d6212d37ae-655d g��t-9d6212d37ae-655e g��t-9d6212d37ae-655f g��t-9d6212d37ae-6560 g��t-9d6212d37ae-6561 g��t-9d6212d37ae-6562 g��t-9d6212d37ae-6563 �  �  f��l-9d6212d37ae-6569 f��l-9d6212d37ae-656a f��l-9d6212d37ae-656b f��l-9d6212d37ae-656c f��l-9d6212d37ae-656d f��l-9d6212d37ae-656e f��l-9d6212d37ae-656f f��l-9d6212d37ae-6570 f��l-9d6212d37ae-6571 f��l-9d6212d37ae-6572 �  =� � f��l-9d6212d37ae-6566 � =H� FFFFF�  :� g��var <F� :N� g��sym :N� g��visit :N� g��source :N� g�� visit-count :N� g�� use-count :N� g�� copyable? :N� g��residual-value :N� g��constant-value :N� g��alias :N� �  g��m-9d6212d37ae-6558 ;� FFFFFF$'� :� :N� : � �  � <F� :N� g��pwpwpwpwpwpwpwpwpwpw �  g��%operand?-procedure g��operand? g��m-9d6212d37ae-6583 ;� g��t-9d6212d37ae-6582 � � f��l-9d6212d37ae-6588 � =� f��l-9d6212d37ae-6585 � =H� FFFFF�  :� FFgFFFFlFqFuFzFFFF$'� :S� � :|� :� � :� :� � <F� :N� � � � <F� :N� g�� operand-var g��%operand-var-procedure g��m-9d6212d37ae-658f ;� � f��l-9d6212d37ae-6591 � =H� FFFFF�  �:� a�� `� FFFFFF$'� :� a� S`� � f��l-9d6212d37ae-6594  f��l-9d6212d37ae-6595   �  = �   FFFFF�   : � :b � < F� :N� � � :� a� S`� f��l-9d6212d37ae-6599 f��l-9d6212d37ae-659a � =� FFFFF�  :� :b� F� : N� �  � !:� "a!� #S"`� $f��l-9d6212d37ae-659e %f��l-9d6212d37ae-659f &$%� '=&� ('FFFFF�  ):(� *:b(� +g��%%<operand>-set-fields ,<'F� -:+,N� .*-� /.� 0g��t-9d6212d37ae-658e 10� 2f��l-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 Pg��m-9d6212d37ae-65aa QP;� RQ� Sf��l-9d6212d37ae-65ac TS� U=HRT� VQFUFFFF�  W:V� XaW� YX`� ZFUFFFFF$'� [:Z� \a[� ]SY\`� ^QQ� _f��l-9d6212d37ae-65af `f��l-9d6212d37ae-65b0 a_`� b=^a� cQbFUFFFF�  d:c� e:bc� f<bFU� g:fN� heg� ih� j:Z� kaj� lSYk`� mf��l-9d6212d37ae-65b4 nf��l-9d6212d37ae-65b5 omn� p=^o� qQpFUFFFF�  r:q� s:bq� tpFU� u: tN� vsu� wv� x:Z� yax� zSYy`� {f��l-9d6212d37ae-65b9 |f��l-9d6212d37ae-65ba }{|� ~=^}� Q~FUFFFF�  :� :b� <~FU� :+N� � � g��t-9d6212d37ae-65a9 � f��l-9d6212d37ae-65be � =R� QFUFFFF�  :� FUFFFFF$'� :� � :o� :� :� � <FU� :N� � :$� FU� : N� � :� :b� :NN� � � � � <FU� :ON� g��%operand-visit g��%%operand-visit-procedure g��m-9d6212d37ae-65c5 ;� � f��l-9d6212d37ae-65c7 � =H� FFFFF�  :� a� `� FFFFFF$'� :� a� S`� � f��l-9d6212d37ae-65ca f��l-9d6212d37ae-65cb � =� FFFFF�  :� :b� <F� :N� � � :� a� S`� f��l-9d6212d37ae-65cf f��l-9d6212d37ae-65d0 � =� FFFFF�  :� :b� F� : N� � � :� a� S`� f��l-9d6212d37ae-65d4 f��l-9d6212d37ae-65d5 � =� FFFFF�  :� :b� <F� :+N� � � g��t-9d6212d37ae-65c4 � f��l-9d6212d37ae-65d9 � =� FFFFF�  :� FFFFFF$'� :� � :o� :� :� � <F� :N� � :$� F� : N� � :� :b� :N� � � � � <F� :N� g��operand-source g��%operand-source-procedure g��m-9d6212d37ae-65e0 ;� � f��l-9d6212d37ae-65e2 �� =H�� FFFFF�  :� a� `� FFFFFF$'� :� a�  S`�  �  f��l-9d6212d37ae-65e5  f��l-9d6212d37ae-65e6    � =  � FFFFF�  :� :b� <F� :N� � � :� a� S`� f��l-9d6212d37ae-65ea f��l-9d6212d37ae-65eb � = � FFFFF�  :� :b�  F� !:  N� "!� #"� $:� %a$� &S%`� 'f��l-9d6212d37ae-65ef (f��l-9d6212d37ae-65f0 )'(� *= )� +*FFFFF�  ,:+� -:b+� .<*F� /:+.N� 0-/� 10� 2g��t-9d6212d37ae-65df 32� 4f��l-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� Pg��operand-visit-count Qg��%operand-visit-count-procedure Rg��m-9d6212d37ae-65fb SR;� TS� Uf��l-9d6212d37ae-65fd VU� W=HTV� XSFWFFFF�  Y:X� ZaY� [Z`� \FWFFFFF$'� ]:\� ^a]� _S[^`� `SS� af��l-9d6212d37ae-6600 bf��l-9d6212d37ae-6601 cab� d=`c� eSdFWFFFF�  f:e� g:be� h<dFW� i:hN� jgi� kj� l:\� mal� nS[m`� of��l-9d6212d37ae-6605 pf��l-9d6212d37ae-6606 qop� r=`q� sSrFWFFFF�  t:s� u:bs� vrFW� w: vN� xuw� yx� z:\� {az� |S[{`� }f��l-9d6212d37ae-660a ~f��l-9d6212d37ae-660b }~� =`� SFWFFFF�  :� :b� <FW� :+N� � � g��t-9d6212d37ae-65fa � f��l-9d6212d37ae-660f � =T� SFWFFFF�  :� FWFFFFF$'� :� � :o� :� :� � <FW� :N� � :$� FW� : N� � :� :b� :PN� � � � � <FW� :QN� g��operand-use-count g��%operand-use-count-procedure g��m-9d6212d37ae-6616 ;� � f��l-9d6212d37ae-6618 � =H� FFFFF�  :� a� `� FFFFFF$'� :� a� S`� � f��l-9d6212d37ae-661b f��l-9d6212d37ae-661c � =� FFFFF�  :� :b� <F� :N� � � :� a� S`� f��l-9d6212d37ae-6620 f��l-9d6212d37ae-6621 � =� FFFFF�  :� :b� F� : N� � � :� a� S`� f��l-9d6212d37ae-6625 f��l-9d6212d37ae-6626 � =� FFFFF�  :� :b� <F� :+N� � � g��t-9d6212d37ae-6615 � f��l-9d6212d37ae-662a � =� FFFFF�  :� FFFFFF$'� :� � :o� :� :� � <F� :N� � :$� F� : N� � :� :b� :N� � � � � <F� :N� g��operand-copyable? g��%operand-copyable?-procedure g��m-9d6212d37ae-6631 ;� �� f��l-9d6212d37ae-6633  � =H � � F FFFF�  : � a �  `� F FFFFF$'� : � a � S  `� � f��l-9d6212d37ae-6636 f��l-9d6212d37ae-6637   � =  �  F FFFF�  : � :b � < F � : N�   �  � : � a � S  `� f��l-9d6212d37ae-663b f��l-9d6212d37ae-663c   � =  �  F FFFF�  : � !:b � " F � #:  "N� $ ! #� % $� &: � 'a &� (S  '`� )f��l-9d6212d37ae-6640 *f��l-9d6212d37ae-6641 + ) *� ,=  +� - ,F FFFF�  .: -� /:b -� 0< ,F � 1:+ 0N� 2 / 1� 3 2� 4g��t-9d6212d37ae-6630 5 4� 6f��l-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� Rg��operand-residual-value Sg��!%operand-residual-value-procedure Tg��m-9d6212d37ae-664c U T;� V U� Wf��l-9d6212d37ae-664e X W� Y=H V X� Z UF YFFFF�  [: Z� \a [� ] \`� ^F YFFFFF$'� _: ^� `a _� aS ] ``� b U U� cf��l-9d6212d37ae-6651 df��l-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`� qf��l-9d6212d37ae-6656 rf��l-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 ] }`� f��l-9d6212d37ae-665b f��l-9d6212d37ae-665c   � = b �  U F YFFFF�  : � :b � < F Y� :+ N�   �  � g��t-9d6212d37ae-664b  � f��l-9d6212d37ae-6660  � =  V �  U F YFFFF�  : �  F YFFFFF$'� : �  � :o � : � : �   � < F Y� : N�    � :$ �  F Y� :  N�    � : � :b � : R N�   �    �     �    � <F Y� : S N� g��operand-constant-value g��!%operand-constant-value-procedure g��m-9d6212d37ae-6667  ;�  � f��l-9d6212d37ae-6669  � =H  �  F FFFF�  : � a �  `� F FFFFF$'� : � a � S  `�   � f��l-9d6212d37ae-666c f��l-9d6212d37ae-666d   � =  �   F FFFF�  : � :b � < F � : N�   �  � : � a � S  `� f��l-9d6212d37ae-6671 f��l-9d6212d37ae-6672   � =  �   F FFFF�  : � :b �  F � :  N�   �  � : � a � S  `� f��l-9d6212d37ae-6676 f��l-9d6212d37ae-6677   � =  �   F FFFF�  : � :b � < F � :+ N�   �  � g��t-9d6212d37ae-6666  � f��l-9d6212d37ae-667b  � =   �   F FFFF�  : �  F FFFFF$'� : �  � :o � : � : �   � < F � : N�    � :$ �  F � :  N�    � : � :b � :  N�   �    �     �    � <F � :  N� g�� operand-alias g��%operand-alias-procedure �g��m-9d6212d37ae-6682  �;�  � f��l-9d6212d37ae-6684  � =H  �  F FFFF�  : � a �  `� F FFFFF$'� : � a � S  `�   � f��l-9d6212d37ae-6687 f��l-9d6212d37ae-6688   � =  �   F FFFF�  : � :b � < F � : N�   �  � : � a � S  `� f��l-9d6212d37ae-668c f��l-9d6212d37ae-668d   � =  � !  F FFFF�  ": !� #:b !� $ F � %:  $N� & # %� ' &� (: � )a (� *S  )`� +f��l-9d6212d37ae-6691 ,f��l-9d6212d37ae-6692 - + ,� .=  -� /  .F FFFF�  0: /� 1:b /� 2< .F � 3:+ 2N� 4 1 3� 5 4� 6g��t-9d6212d37ae-6681 7 6� 8f��l-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� Tg��m-9d6212d37ae-669d U T;� V U� Wf��l-9d6212d37ae-66a2 Xf��l-9d6212d37ae-66a3 Yf��l-9d6212d37ae-66a4 Zf��l-9d6212d37ae-66a5 [f��l-9d6212d37ae-66a6 \ W X Y Z [� ]== V \� ^ U� _f��l-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�  qg��set-operand-visit-count! rg��#%set-operand-visit-count!-procedure sg��m-9d6212d37ae-66b1 t s;� ug��t-9d6212d37ae-66af vg��t-9d6212d37ae-66b0 w u v� x t t� yf��l-9d6212d37ae-66b6 zf��l-9d6212d37ae-66b7 { y z� |= w x {� } t� ~f��l-9d6212d37ae-66b3  ~� =H } �  t |F FFFF�  : �  |F FFF$'� : � : �   � :o � : � : �   � < |F � : N�    � : �  |F � :  N�     � : � :b � : q N�   �    �     �    � <F � : r N� g��set-operand-use-count! g��!%set-operand-use-count!-procedure g��m-9d6212d37ae-66c1  ;� g��t-9d6212d37ae-66bf g��t-9d6212d37ae-66c0   �   � f��l-9d6212d37ae-66c6 f��l-9d6212d37ae-66c7   � =   �  � f��l-9d6212d37ae-66c3  � =H  �   F FFFF�  : �  F FFF$'� : � : �   � :o � : � : �   � < F � : N�    � : �  F � :  N�     � : � :b � :  N�   �    �     �    � <F � :  N� g��set-operand-copyable?! g��!%set-operand-copyable?!-procedure g��m-9d6212d37ae-66d1  ;� g��t-9d6212d37ae-66cf g��t-9d6212d37ae-66d0   �   � f��l-9d6212d37ae-66d6 f��l-9d6212d37ae-66d7   � =   �  � f��l-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 g��m-9d6212d37ae-66e1  ;� g��t-9d6212d37ae-66df g��t-9d6212d37ae-66e0   �   � f��l-9d6212d37ae-66e6 f��l-9d6212d37ae-66e7   � =   �  � f��l-9d6212d37ae-66e3  � =H  �   F FFFF�  �: �  F FFF$'� : � : �   � :o � : � : �   � < F � : N�    � : �  F � :  N�     � : � :b � :  N�   �    �     �  �  � <F � :  N� g��set-operand-constant-value! g��&%set-operand-constant-value!-procedure g��m-9d6212d37ae-66f1  ;� g��t-9d6212d37ae-66ef g��t-9d6212d37ae-66f0   �   � !f��l-9d6212d37ae-66f6 "f��l-9d6212d37ae-66f7 # ! "� $=   #� % � &f��l-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� Cg��set-operand-alias! Dg��%set-operand-alias!-procedure Eg��m-9d6212d37ae-6701 F E;� Gg��t-9d6212d37ae-66ff Hg��t-9d6212d37ae-6700 I G H� J F F� Kf��l-9d6212d37ae-6706 Lf��l-9d6212d37ae-6707 M K L� N= I J M� O F� Pf��l-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� mg��and=> ng�� make-operand og��make-bound-operands pg��make-unbound-operands qg��set-operand-residual-value! rg��apply sg�� visit-operand tg��not ug��pair? vg��null? wg��list? xg��symbol? yg��vector? zg��length {g��eqv? |g��equal? }g�� types-check? ~g��operator-size-limitS  ~  g��operand-size-limitS   g��value-size-limitS   g�� effort-limitS   g��recursive-effort-limitS        � g��current-module g��error f�� unbound var g�� vlist->list g�� string-append g��symbol->string f��  g��make-lexical-ref  �  � f��no matching pattern g��every g��const? g�� const-exp g��catch g��the-scm-module g��effect g�� make-void g��test g�� make-const g�� <dynwind> g�� make-dynwind g��<dynlet> g�� make-dynlet g�� <sequence>  z�  z� g��tail  � g�� make-sequence g�� <let-values> g��make-let-values g��make-lambda-case g��make-fix g�� make-letrec g��make-let g��<abort> g��<prompt> g�� <conditional> g�� make-lambda g��<dynref> g��<toplevel-set> g��<toplevel-define> g�� <module-set> g��<dynset> g�� constant? g��operator g��car g��cdr g��filter g��compose g��void? g��make-effects-analyzer g�� lexical-ref? g��lexical-ref-gensym g��make-prompt-tag g��abort? 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 g��lambda-case-alternate g��call g��and-map g��take g��drop g��split-at g�� fold-right g��lambda? g��effect-free-primitive? g��accessor-primitive? g��memv f��t- g��t g��make-conditional g��cons g��constructor-primitive? g��string? g��vector g��@call-with-values f��failure- g��failure g��make-toplevel-set g��make-toplevel-define g��make-module-set  �  � g��resolve-module g��ensureS g��module? g��module-variable g��resolve-primitives! g��primitive-ref? g�� make-dynset g�� make-dynref f��post- g��post  � f��pre- g��pre  �   � f��what! g�� alist-delete g��assq-ref g��rest  � g��rest-sym  � g��$ bi�  S � �g�� rest-args  S  ��  � g��? g��cut g��<>    �   � �  � g��= g��lexical-refcount  �   � |  �   �   �  S  �  � g�� make-list g��tmp f��tmp  g��make-lexical-setC�5������h���]4    ,-.5�41�>��"��G���44569������h���_���]�6W�������g��id  ��g��filenamef��language/tree-il/peval.scm  2 �   ���CO���h���*���]C���"�������g��id  ��   ���CRUZ����h���)���]�C!�������g��x  ��   ���C]^��������h@������]��4?$��@4�5$��@�6�������������g��x  :�g��tmp  :�g��tmp  # :��g��filenamef��language/tree-il/peval.scm 2 �  : ��g�� macro-typeg��identifier-syntax�C55R44_6Rn{}~� ������h0���Q���]��� ��CI�������g��dummy  0�g��event  0�g��arg   0��  0 ���C]^��������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��language/tree-il/peval.scm > �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��quoteg��event�g��argg��...���C5_R_��hH������-�1�3�44554�>��"��G��4>���"��G��D�������������g��event C�g��args C�g��pp   C��g��filenamef��language/tree-il/peval.scm E F F   F +  F   G   F  F   H   H  ) H  2 I  C J � C ��g��nameg��log*�CR������h ������] 4L��5$��L6C������������g��exp  �g��res  �g��res  ��g��filenamef��language/tree-il/peval.scm N   O  O   P   M �   ���C�h ������] 4L��5$��L6C������������g��exp  �g��res  �g��res  ��g��filenamef��language/tree-il/peval.scm Q   R  R   S   M �   ���C�����h���p���]C����h�������g��exp  �g��res  ��g��filenamef��language/tree-il/peval.scm T �   ���C�����h@������]�U��#4�O��O�>��XCXFGE���������g��proc  >�g��exp  >�g��tag   >�g��_  3 >�g��results  3 >��g��filenamef��language/tree-il/peval.scm L  M   N  6 M �  > ��g��nameg�� tree-il-any�CR��������hH�����]45"��-$��"4�455$��C"C "�����������g��proc  C�g��vlist  C�g��len  C�g��i   <�g��t  & :��g��filenamef��language/tree-il/peval.scm W  X X   Y   Z  Z   [   [  & [  & [ 4 \  : \  < Y �  C ��g��nameg�� vlist-any�CR�����h���N���]�L�C�������F�������g��filenamef��language/tree-il/peval.scm  _ �  ���C� ����h0����])"���$���&��q� � O��Q�$��N&��A  &��'� $��(��C6�6��C6�6��CC�$���&��C�&��C�&��C�&��C� &��C� &��C�&��?� � $��)&��  4 5$��C"""""��������������g��exp  )�g��w  ��g��failure  ) ��g��w  G �g��w  V x�g��failure  Z x�g��w � !�g��w   ��g��filenamef��language/tree-il/peval.scm ^  _ �  ) ��g��nameg��singly-valued-expression?�CR��������h(������]4�5$���C4�545��6�������g��x  (��g��filenamef��language/tree-il/peval.scm m  o  o   q   r   r / ! r  & s  ( q �  ( ��g��nameg��truncate-valuesg�� documentationf��%Discard all but the first value of X.�CR����h������]��C�������g��name  �g��gensym  �g��refcount   �g��set?   ��g��filenamef��language/tree-il/peval.scm y �   ��g��nameg��%make-var-procedure�CR446R-�������h������]��C�������g��t-9d6212d37ae-5bdd  �g��t-9d6212d37ae-5bde  �g��t-9d6212d37ae-5bdf   �g��t-9d6212d37ae-5be0   ��   ���CU/0��������h���]���]L�6����U�������g��a  ��g��filenamef��language/tree-il/peval.scm  y �  ���CS2��h���M���]�L�6E�������g��filenamef��language/tree-il/peval.scm  y �   ���C4����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��language/tree-il/peval.scm y �  n ���C5R78;<��4?�>��"��G��� Bi��R�h���z���]�$���CC������r�������g��obj  ��g��filenamef��language/tree-il/peval.scm y �   ��g��nameg��%var?-procedure�CCR44D6RE�����h���:���]��C������2�������g��t-9d6212d37ae-5bf3  ��  ���CU/D0�������h���]���]L�6����U�������g��a  ��g��filenamef��language/tree-il/peval.scm  y �  ���CS2��h���M���]�L�6E�������g��filenamef��language/tree-il/peval.scm  y �   ���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��language/tree-il/peval.scm y �  n ���C5DR��������h���|���]�&��� C�6t�������g��s  ��g��filenamef��language/tree-il/peval.scm y �   ��g��nameg��%var-name-procedure�CR446R��������h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C �h���:���]C�����2�������g��err  �g��s  ��  ���CE/����h���:���]��C������2�������g��t-9d6212d37ae-5bff  ��  ���CU/0�������h���]���]L�6����U�������g��a  ��g��filenamef��language/tree-il/peval.scm  y �  ���CS2��h���M���]�L�6E�������g��filenamef��language/tree-il/peval.scm  y �   ���C1����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��language/tree-il/peval.scm y �  � ���C5R2����h���~���]�&��� C�6v�������g��s  ��g��filenamef��language/tree-il/peval.scm y �   ��g��nameg��%var-gensym-procedure�C3R4426RAHM������h���:���]C�����2�������g��err  �g��s  ��  ���CPV[�h���:���]C�����2�������g��err  �g��s  ��  ���C^di�h���:���]C�����2�������g��err  �g��s  ��  ���CE����h���:���]��C������2�������g��t-9d6212d37ae-5c1a  ��  ���CU/20�������h���]���]L�6����U�������g��a  ��g��filenamef��language/tree-il/peval.scm  y �  ���CS2��h���M���]�L�6E�������g��filenamef��language/tree-il/peval.scm  y �   ���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��language/tree-il/peval.scm y �  � ���C52R����h ������]�&��� C�6�������x�������g��s  ��g��filenamef��language/tree-il/peval.scm y �   ��g��nameg��%var-refcount-procedure�CR446R����h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���CE����h���:���]��C������2�������g��t-9d6212d37ae-5c35  ��  ���CU/0�������h���]���]L�6����U�������g��a  ��g��filenamef��language/tree-il/peval.scm  y �  ���CS2��h���M���]�L�6E�������g��filenamef��language/tree-il/peval.scm  y �   ���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��language/tree-il/peval.scm y �  � ���C5R����h ���|���]�&��� C�6�������t�������g��s  ��g��filenamef��language/tree-il/peval.scm y �   ��g��nameg��%var-set?-procedure�CR446R��������h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C �h���:���]C�����2�������g��err  �g��s  ��  ���CE1����h���:���]��C������2�������g��t-9d6212d37ae-5c50  ��  ���CU/0�������h���]���]L�6����U�������g��a  ��g��filenamef��language/tree-il/peval.scm  y �  ���CS2��h���M���]�L�6E�������g��filenamef��language/tree-il/peval.scm  y �   ���C3����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��language/tree-il/peval.scm y �  � ���C5R446R9^`ehi�������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��language/tree-il/peval.scm y �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5Rj������h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��language/tree-il/peval.scm y �   ��g��nameg��%set-var-refcount!-procedure�CkR44j6Rl�h���Z���]��C����R�������g��t-9d6212d37ae-5c7e  �g��t-9d6212d37ae-5c7f  ��  ���CU/j0�������h���]���]L�6����U�������g��a  ��g��filenamef��language/tree-il/peval.scm  y �  ���CS2��h���M���]�L�6E�������g��filenamef��language/tree-il/peval.scm  y �   ���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��language/tree-il/peval.scm y �  n ���C5jR��������h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��language/tree-il/peval.scm y �   ��g��nameg��%set-var-set?!-procedure�CR446Rl�����h���Z���]��C����R�������g��t-9d6212d37ae-5c8e  �g��t-9d6212d37ae-5c8f  ��  ���CU/0�������h���]���]L�6����U�������g��a  ��g��filenamef��language/tree-il/peval.scm  y �  ���CS2��h���M���]�L�6E�������g��filenamef��language/tree-il/peval.scm  y �   ���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��language/tree-il/peval.scm y �  n ���C5Rj��h������]�$��v�&��j� � � 45&��  "�� 45&��  "��4>��"��G��CCC�������������g��exp  ��g��res  ��g��w  ! |�g��var  - |�g��val  K y��g��filenamef��language/tree-il/peval.scm �   �  $ �  - �  - �  2 � % K � ! K � �  � ���C����h������]� �6����������g��name  �g��sym  �g��res   ��g��filenamef��language/tree-il/peval.scm �   � !  � �   ���C�h������]� �6����������g��name  �g��sym  �g��res   ��g��filenamef��language/tree-il/peval.scm �   � !  � �   ���C�������h������]� �6����������g��name  �g��sym  �g��res   ��g��filenamef��language/tree-il/peval.scm �   � !  � �   ���C�������h������]� �6����������g��name  �g��sym  �g��res   ��g��filenamef��language/tree-il/peval.scm �   � !  � �   ���C��hh����]�$�X�&�S� � � � � � � � � 4$��"��$�� �"��$��"��(��/4 >��"��G��4 >��"��G��4 5"��$��~  $��j   $��N$��2(��&       "l"��4"��/"��$ "�� "��   "0"��56�&��*� � � � � 6�&��0� � � � � �  6� &��*� � � � �  6� &��Q� � � � 4 5&��  "��4>��"��G��CCC����������g��exp  d�g��res  d�g��w   e�g��w  " e�g��w  ) e�g��w  0 e�g��w  = e�g��x  } Z�g��ls  � F�g��p-ls � F�g��p-ls � F�g��p-ls � F�g��w � A�g��w � 9�g��x  � 9�g��w  � .�g��x  � .�g��w  � �g��w  w �g��w  ~ �g��w   �g��w   �g��w   �g��w   �g��w   ^�g��s  . [��g��filenamef��language/tree-il/peval.scm �   �  R �  \ �  c � " i � ' n � 0 s � < v �   �  F �  _ �  a �  e �  h �   �   �   �   �   �   �  % �  . �  . � �  d ���Ch���q���]C���i�������g��exp  �g��res  ��g��filenamef��language/tree-il/peval.scm � �   ���C����h(������-�.�,�3�#���6�����������g��exp $�g��table $��g��filenamef��language/tree-il/peval.scm � $ � � $ ��g��nameg��build-var-table�CR������h������]��C�����������g��effort  �g��size  �g�� continuation   �g�� recursive?   �g��data   �g��prev   ��g��filenamef��language/tree-il/peval.scm � �   ��g��nameg��%%make-counter-procedure�CR446R��������h������]��C�����������g��t-9d6212d37ae-63b6  �g��t-9d6212d37ae-63b7  �g��t-9d6212d37ae-63b8   �g��t-9d6212d37ae-63b9   �g��t-9d6212d37ae-63ba   �g��t-9d6212d37ae-63bb   ��   ���CU/0�������h���^���]L�6����V�������g��a  ��g��filenamef��language/tree-il/peval.scm  � �  ���CS2�h���N���]�L�6F�������g��filenamef��language/tree-il/peval.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��language/tree-il/peval.scm � �  n ���C5R7; ��4?�>��"��G��� Bi��R��h������]�$���CC������w�������g��obj  ��g��filenamef��language/tree-il/peval.scm � �   ��g��nameg��%counter?-procedure�C!R44"6RE=��������h���:���]��C������2�������g��t-9d6212d37ae-63d2  ��  ���CU/"0�������h���^���]L�6����V�������g��a  ��g��filenamef��language/tree-il/peval.scm  � �  ���CS2�h���N���]�L�6F�������g��filenamef��language/tree-il/peval.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��language/tree-il/peval.scm � �  n ���C5"R@������h������]�&��� C�6{�������g��s  ��g��filenamef��language/tree-il/peval.scm � �   ��g��nameg��%effort-counter-procedure�CAR44@6ROV[�h���:���]C�����2�������g��err  �g��s  ��  ���C^di�h���:���]C�����2�������g��err  �g��s  ��  ���Clrx�h���:���]C�����2�������g��err  �g��s  ��  ���CE����h���:���]��C������2�������g��t-9d6212d37ae-63de  ��  ���CU/@0�������h���^���]L�6����V�������g��a  ��g��filenamef��language/tree-il/peval.scm  � �  ���CS2�h���N���]�L�6F�������g��filenamef��language/tree-il/peval.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��language/tree-il/peval.scm � �  � ���C5@R��h������]�&��� C�6y�������g��s  ��g��filenamef��language/tree-il/peval.scm � �   ��g��nameg��%size-counter-procedure�CR446R���h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���CE����h���:���]��C������2�������g��t-9d6212d37ae-63f9  ��  ���CU/0�������h���^���]L�6����V�������g��a  ��g��filenamef��language/tree-il/peval.scm  � �  ���CS2�h���N���]�L�6F�������g��filenamef��language/tree-il/peval.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��language/tree-il/peval.scm � �  � ���C5R��h ������]�&��� C�6��������������g��s  ��g��filenamef��language/tree-il/peval.scm � �   ��g��nameg��%counter-continuation-procedure�CR446R���h���:���]C�����2�������g��err  �g��s  ��  ���C �h���:���]C�����2�������g��err  �g��s  ��  ���C$�h���:���]C�����2�������g��err  �g��s  ��  ���CE@����h���:���]��C������2�������g��t-9d6212d37ae-6414  ��  ���CU/0�������h���^���]L�6����V�������g��a  ��g��filenamef��language/tree-il/peval.scm  � �  ���CS2�h���N���]�L�6F�������g��filenamef��language/tree-il/peval.scm  � �   ���CB���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��language/tree-il/peval.scm � �  � ���C5RC��h ������]�&��� C�6��������������g��s  ��g��filenamef��language/tree-il/peval.scm � �   ��g��nameg��%counter-recursive?-procedure�CDR44C6RRY^�����h���:���]C�����2�������g��err  �g��s  ��  ���Cagl�h���:���]C�����2�������g��err  �g��s  ��  ���Couz�h���:���]C�����2�������g��err  �g��s  ��  ���CE����h���:���]��C������2�������g��t-9d6212d37ae-642f  ��  ���CU/C0�������h���^���]L�6����V�������g��a  ��g��filenamef��language/tree-il/peval.scm  � �  ���CS2�h���N���]�L�6F�������g��filenamef��language/tree-il/peval.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��language/tree-il/peval.scm � �  � ���C5CR��h ������]�&��� C�6�������y�������g��s  ��g��filenamef��language/tree-il/peval.scm � �   ��g��nameg��%counter-data-procedure�CR446R���h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���CE����h���:���]��C������2�������g��t-9d6212d37ae-644a  ��  ���CU/0�������h���^���]L�6����V�������g��a  ��g��filenamef��language/tree-il/peval.scm  � �  ���CS2�h���N���]�L�6F�������g��filenamef��language/tree-il/peval.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��language/tree-il/peval.scm � �  � ���C5R��h ������]�&��� C�6�������y�������g��s  ��g��filenamef��language/tree-il/peval.scm � �   ��g��nameg��%counter-prev-procedure�CR446R ���h���:���]C�����2�������g��err  �g��s  ��  ���C �h���:���]C�����2�������g��err  �g��s  ��  ���C!&�h���:���]C�����2�������g��err  �g��s  ��  ���CEB����h���:���]��C������2�������g��t-9d6212d37ae-6465  ��  ���CU/0�������h���^���]L�6����V�������g��a  ��g��filenamef��language/tree-il/peval.scm  � �  ���CS2�h���N���]�L�6F�������g��filenamef��language/tree-il/peval.scm  � �   ���CD���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��language/tree-il/peval.scm � �  � ���C5R44t6R9TV]hi������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��language/tree-il/peval.scm � �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5tR^����h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��language/tree-il/peval.scm � �   ��g��nameg��"%set-counter-recursive?!-procedure�C_R44^6Rl��h���Z���]��C����R�������g��t-9d6212d37ae-6493  �g��t-9d6212d37ae-6494  ��  ���CU/^0�������h���^���]L�6����V�������g��a  ��g��filenamef��language/tree-il/peval.scm  � �  ���CS2�h���N���]�L�6F�������g��filenamef��language/tree-il/peval.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��language/tree-il/peval.scm � �  n ���C5^R������h ������]�&�� � "�� 4�56��x�������g��c  ��g��filenamef��language/tree-il/peval.scm �  � �   ��g��nameg�� abort-counter�CR@����h8������] �&��� "�� 4�5 $���6C���������g��c  6�g��e  6��g��filenamef��language/tree-il/peval.scm �  �  �  ! �  " �  ' �  - �  0 �  1 �  4 � �  6 ��g��nameg��record-effort!�CR�����h8������] �&��� "�� 4�5 $���6C���������g��c  6�g��s  6��g��filenamef��language/tree-il/peval.scm �  �  �  ! �  " �  ' �  - �  0 �  1 �  4 � �  6 ��g��nameg�� record-size!�CR����hP������]$��E�&��  "�� 45&��C�&��  "�� 456C��������g��data  O�g��counter  O��g��filenamef��language/tree-il/peval.scm �  �  �  ) �  3 �  M � �  O ��g��nameg�� find-counter�CR@������h ����-�.�,�3� #���&��� "�� 4�5#���&��� "�� 4�5�&��� "�� 4�5&�� "�� 4545�&��� "�� 4�5&�� "�� 4545C���������g��from �g��to �g��effort  �g��size  �g��from-v  � ��g��to-v  � ��g�� from-balance  � ��g�� to-balance  � ��g��amount  � ��g��from-v  � �g��to-v  � �g�� from-balance  � �g�� to-balance  � �g��amount   ��g��filenamef��language/tree-il/peval.scm �  � * - �  8 � ( P �  U �  o � + � �  � �  � �  � �  � �  � �  � �  � �  � �  � �  � �  � �  � � ) � �  � �  � �  � �  � �   �   �   �   �   �   � �   ��g��nameg�� transfer!�CR�����h(��� ��]4�545�C����������g�� effort-limit  $�g�� size-limit  $�g�� continuation   $�g��data   $�g��effort   $�g��size   $��g��filenamef��language/tree-il/peval.scm �  �  �   � �  $ ��g��nameg��make-top-counter�CR�����hH�����]4 54 5��4>��"��G��C������� ������g�� continuation  A�g��data  A�g��current   A�g��effort   (�g��size   (�g��c  ( A��g��filenamef��language/tree-il/peval.scm �  �  �   � ( �  +  �  A ��g��nameg��make-nested-counter�CR�����h���p��]$4 54 5&��  "�� 45&��  "�� 45�4�>��"��G��C���h������g�� effort-limit  ��g�� size-limit  ��g��orig   ��g��current   ��g��effort  D h�g��size  D h�g�� continuation  D h�g��data  D h�g��c  h ��� g��filenamef��language/tree-il/peval.scm          ,   D  h   k  �  � ��g��nameg��make-recursive-counter�CR�����h ���N��,� 3� � � CF������g��var  �g��sym  �g��visit   �g��source   �g�� visit-count   �g�� use-count   �g�� copyable?   �g��residual-value   �g��constant-value   �g��alias  �� g��filenamef��language/tree-il/peval.scm  �  ��g��nameg��%%make-operand-procedure�CR446R�h ���Z��,� 3� � � CR������g��t-9d6212d37ae-655a  �g��t-9d6212d37ae-655b  �g��t-9d6212d37ae-655c   �g��t-9d6212d37ae-655d   �g��t-9d6212d37ae-655e   �g��t-9d6212d37ae-655f   �g��t-9d6212d37ae-6560   �g��t-9d6212d37ae-6561   �g��t-9d6212d37ae-6562   �g��t-9d6212d37ae-6563  ��   ���CU/0�������h���^���]L�6����V�������g��a  ��g��filenamef��language/tree-il/peval.scm   �  ���CS2�h���N���]�L�6F�������g��filenamef��language/tree-il/peval.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��language/tree-il/peval.scm  �  n ���C5R7;ר��4?�>��"��G��� Bi��R��h������]�$���CC������w�������g��obj  ��g��filenamef��language/tree-il/peval.scm  �   ��g��nameg��%operand?-procedure�CR446RE��������h���:���]��C������2�������g��t-9d6212d37ae-6582  ��  ���CU/0�������h���^���]L�6����V�������g��a  ��g��filenamef��language/tree-il/peval.scm   �  ���CS2�h���N���]�L�6F�������g��filenamef��language/tree-il/peval.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��language/tree-il/peval.scm  �  n ���C5R������h������]�&��� C�6x�������g��s  ��g��filenamef��language/tree-il/peval.scm  �   ��g��nameg��%operand-var-procedure�CR446R ����h���:���]C�����2�������g��err  �g��s  ��  ���C �h���:���]C�����2�������g��err  �g��s  ��  ���C#)/�h���:���]C�����2�������g��err  �g��s  ��  ���CEK����h���:���]��C������2�������g��t-9d6212d37ae-658e  ��  ���CU/0�������h���^���]L�6����V�������g��a  ��g��filenamef��language/tree-il/peval.scm   �  ���CS2�h���N���]�L�6F�������g��filenamef��language/tree-il/peval.scm   �   ���CM���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��language/tree-il/peval.scm  �  � ���C5RN��h������]�&��� C�6x�������g��s  ��g��filenamef��language/tree-il/peval.scm  �   ��g��nameg��%operand-sym-procedure�COR44N6R]di����h���:���]C�����2�������g��err  �g��s  ��  ���Clrw�h���:���]C�����2�������g��err  �g��s  ��  ���Cz�h���:���]C�����2�������g��err  �g��s  ��  ���CE����h���:���]��C������2�������g��t-9d6212d37ae-65a9  ��  ���CU/N0�������h���^���]L�6����V�������g��a  ��g��filenamef��language/tree-il/peval.scm   �  ���CS2�h���N���]�L�6F�������g��filenamef��language/tree-il/peval.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��language/tree-il/peval.scm  �  � ���C5NR��h ������]�&��� C�6�������{�������g��s  ��g��filenamef��language/tree-il/peval.scm  �   ��g��nameg��%%operand-visit-procedure�CR446R�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���CE����h���:���]��C������2�������g��t-9d6212d37ae-65c4  ��  ���CU/0�������h���^���]L�6����V�������g��a  ��g��filenamef��language/tree-il/peval.scm   �  ���CS2�h���N���]�L�6F�������g��filenamef��language/tree-il/peval.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��language/tree-il/peval.scm  �  � ���C5R��h ������]�&��� C�6�������{�������g��s  ��g��filenamef��language/tree-il/peval.scm  �   ��g��nameg��%operand-source-procedure�CR446R �h���:���]C�����2�������g��err  �g��s  ��  ���C#�h���:���]C�����2�������g��err  �g��s  ��  ���C&,1�h���:���]C�����2�������g��err  �g��s  ��  ���CEM����h���:���]��C������2�������g��t-9d6212d37ae-65df  ��  ���CU/0�������h���^���]L�6����V�������g��a  ��g��filenamef��language/tree-il/peval.scm   �  ���CS2�h���N���]�L�6F�������g��filenamef��language/tree-il/peval.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��language/tree-il/peval.scm  �  � ���C5RP��h ������]�&��� C�6��������������g��s  ��g��filenamef��language/tree-il/peval.scm  �   ��g��nameg��%operand-visit-count-procedure�CQR44P6R_fk����h���:���]C�����2�������g��err  �g��s  ��  ���Cnty�h���:���]C�����2�������g��err  �g��s  ��  ���C|�h���:���]C�����2�������g��err  �g��s  ��  ���CE����h���:���]��C������2�������g��t-9d6212d37ae-65fa  ��  ���CU/P0�������h���^���]L�6����V�������g��a  ��g��filenamef��language/tree-il/peval.scm   �  ���CS2�h���N���]�L�6F�������g��filenamef��language/tree-il/peval.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��language/tree-il/peval.scm  �  � ���C5PR��h ������]�&��� C�6�������~�������g��s  ��g��filenamef��language/tree-il/peval.scm  �   ��g��nameg��%operand-use-count-procedure�CR446R������h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���CE����h���:���]��C������2�������g��t-9d6212d37ae-6615  ��  ���CU/0�������h���^���]L�6����V�������g��a  ��g��filenamef��language/tree-il/peval.scm   �  ���CS2�h���N���]�L�6F�������g��filenamef��language/tree-il/peval.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��language/tree-il/peval.scm  �  � ���C5R��h ������]�&��� C�6�������~�������g��s  ��g��filenamef��language/tree-il/peval.scm  �   ��g��nameg��%operand-copyable?-procedure�CR446R   ������h���:���]C�����2�������g��err  �g��s  ��  ���C   %�h���:���]C�����2�������g��err  �g��s  ��  ���C ( . 3�h���:���]C�����2�������g��err  �g��s  ��  ���CE O����h���:���]��C������2�������g��t-9d6212d37ae-6630  ��  ���CU/0�������h���^���]L�6����V�������g��a  ��g��filenamef��language/tree-il/peval.scm   �  ���CS2�h���N���]�L�6F�������g��filenamef��language/tree-il/peval.scm   �   ���C Q���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��language/tree-il/peval.scm  �  � ���C5R R��h ������]�&��� C�6��������������g��s  ��g��filenamef��language/tree-il/peval.scm  �   ��g��nameg��!%operand-residual-value-procedure�C SR44 R6R a h m�h���:���]C�����2�������g��err  �g��s  ��  ���C p v {�h���:���]C�����2�������g��err  �g��s  ��  ���C ~  �h���:���]C�����2�������g��err  �g��s  ��  ���CE ����h���:���]��C������2�������g��t-9d6212d37ae-664b  ��  ���CU/ R0�������h���^���]L�6����V�������g��a  ��g��filenamef��language/tree-il/peval.scm   �  ���CS2�h���N���]�L�6F�������g��filenamef��language/tree-il/peval.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��language/tree-il/peval.scm  �  � ���C5 RR ��h ������]�&��� C�6��������������g��s  ��g��filenamef��language/tree-il/peval.scm  �   ��g��nameg��!%operand-constant-value-procedure�C R44 6R   �h���:���]C�����2�������g��err  �g��s  ��  ���C   �h���:���]C�����2�������g��err  �g��s  ��  ���C   �h���:���]C�����2�������g��err  �g��s  ��  ���CE ����h���:���]��C������2�������g��t-9d6212d37ae-6666  ��  ���CU/ 0�������h���^���]L�6����V�������g��a  ��g��filenamef��language/tree-il/peval.scm   �  ���CS2�h���N���]�L�6F�������g��filenamef��language/tree-il/peval.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��language/tree-il/peval.scm  �  � ���C5 R ��h ������]�&��� C�6�������z�������g��s  ��g��filenamef��language/tree-il/peval.scm  �   ��g��nameg��%operand-alias-procedure�C R44 6R   ��h���:���]C�����2�������g��err  �g��s  ��  ���C  " '�h���:���]C�����2�������g��err  �g��s  ��  ���C * 0 5�h���:���]C�����2�������g��err  �g��s  ��  ���CE Q����h���:���]��C������2�������g��t-9d6212d37ae-6681  ��  ���CU/ 0�������h���^���]L�6����V�������g��a  ��g��filenamef��language/tree-il/peval.scm   �  ���CS2�h���N���]�L�6F�������g��filenamef��language/tree-il/peval.scm   �   ���C S���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��language/tree-il/peval.scm  �  � ���C5 R44+6R9 c e phi������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��language/tree-il/peval.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5+R q����h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��language/tree-il/peval.scm  �   ��g��nameg��#%set-operand-visit-count!-procedure�C rR44 q6Rl �h���Z���]��C����R�������g��t-9d6212d37ae-66af  �g��t-9d6212d37ae-66b0  ��  ���CU/ q0�������h���^���]L�6����V�������g��a  ��g��filenamef��language/tree-il/peval.scm   �  ���CS2�h���N���]�L�6F�������g��filenamef��language/tree-il/peval.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��language/tree-il/peval.scm  �  n ���C5 qR ������h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��language/tree-il/peval.scm  �   ��g��nameg��!%set-operand-use-count!-procedure�C R44 6Rl ���h���Z���]��C����R�������g��t-9d6212d37ae-66bf  �g��t-9d6212d37ae-66c0  ��  ���CU/ 0�������h���^���]L�6����V�������g��a  ��g��filenamef��language/tree-il/peval.scm   �  ���CS2�h���N���]�L�6F�������g��filenamef��language/tree-il/peval.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��language/tree-il/peval.scm  �  n ���C5 R ������h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��language/tree-il/peval.scm  �   ��g��nameg��!%set-operand-copyable?!-procedure�C R44 6Rl ���h���Z���]��C����R�������g��t-9d6212d37ae-66cf  �g��t-9d6212d37ae-66d0  ��  ���CU/ 0�������h���^���]L�6����V�������g��a  ��g��filenamef��language/tree-il/peval.scm   �  ���CS2�h���N���]�L�6F�������g��filenamef��language/tree-il/peval.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��language/tree-il/peval.scm  �  n ���C5 R ������h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��language/tree-il/peval.scm  �   ��g��nameg��'%%set-operand-residual-value!-procedure�C R44 6Rl �����h���Z���]��C����R�������g��t-9d6212d37ae-66df  �g��t-9d6212d37ae-66e0  ��  ���CU/ 0�������h���^���]L�6����V�������g��a  ��g��filenamef��language/tree-il/peval.scm   �  ���CS2�h���N���]�L�6F�������g��filenamef��language/tree-il/peval.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��language/tree-il/peval.scm  �  n ���C5 R ������h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��language/tree-il/peval.scm  �   ��g��nameg��&%set-operand-constant-value!-procedure�C R44 6Rl @������h���Z���]��C����R�������g��t-9d6212d37ae-66ef  �g��t-9d6212d37ae-66f0  ��  ���CU/ 0�������h���^���]L�6����V�������g��a  ��g��filenamef��language/tree-il/peval.scm   �  ���CS2�h���N���]�L�6F�������g��filenamef��language/tree-il/peval.scm   �   ���C B���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��language/tree-il/peval.scm  �  n ���C5 R C������h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��language/tree-il/peval.scm  �   ��g��nameg��%set-operand-alias!-procedure�C DR44 C6Rl j�������h���Z���]��C����R�������g��t-9d6212d37ae-66ff  �g��t-9d6212d37ae-6700  ��  ���CU/ C0�������h���^���]L�6����V�������g��a  ��g��filenamef��language/tree-il/peval.scm   �  ���CS2�h���N���]�L�6F�������g��filenamef��language/tree-il/peval.scm   �   ���C l���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��language/tree-il/peval.scm  �  n ���C5 CR m�������h���T��-�.�,�3�#��#��#��45$�� �&�� � "�� 4�5"���&�� � "�� 4�5$��"��� � C�������L������g��var ��g��sym ��g��source  ��g��visit  ��g��alias  ��g��source  0 ��g�� copyable?   ��g��alias   ���g��filenamef��language/tree-il/peval.scm ( ( -  0 -  8 /  ; / $ T /  \ 0  x 0   . � �  ��g��nameg�� make-operand�C nRf n�����h������]�L�6�������g��name  �g��sym  �g��source   �g��alias   ��g��filenamef��language/tree-il/peval.scm 4  5 �   ���C n�������h������]�L�6��������g��name  �g��sym  �g��source   ��g��filenamef��language/tree-il/peval.scm 7  8 �   ���C������h@������-�.�,�3�#��$��O��6O��6��������g��vars ?�g��syms ?�g��sources  ?�g��visit  ?�g��aliases  ?��g��filenamef��language/tree-il/peval.scm 2  3  . 4  ? 7 � ?  ��g��nameg��make-bound-operands�C oRf n�������h������]�6�����������g��vars  �g��syms  ��g��filenamef��language/tree-il/peval.scm ; < �  ��g��nameg��make-unbound-operands�C pR ����h������]$��&��q  $��V&��G  &��+ $��(��"��"��"��"��"��"��"���&��� C�6���������g��op  ��g��val  ��g��w   �g��w  6 p�g��w  E g�g��val  � ���g��filenamef��language/tree-il/peval.scm >  A  � ? �  � ��g��nameg��set-operand-residual-value!�C qRPP q�����h@���{���]L�&�� L� "�� 4L�5�L�&��L� �CL�6�������s�������g��val  9��g��filenamef��language/tree-il/peval.scm T  U ,  U (  U �  9 ���CP q�����h@���{���]L�&�� L� "�� 4L�5�L�&��L� �CL�6�������s�������g��val  9��g��filenamef��language/tree-il/peval.scm e  f ,  f (  f �  9 ���CP q�����h@���{���]L�&�� L� "�� 4L�5�L�&��L� �CL�6�������s�������g��val  9��g��filenamef��language/tree-il/peval.scm T  U ,  U (  U �  9 ���C ���h8���r���]�L&�� L "��4L>��"��G��L�6�������j�������g��filenamef��language/tree-il/peval.scm [   _  1 Z �  1 ��g��nameg��abort�C rP q�h@���{���]L�&�� L� "�� 4L�5�L�&��L� �CL�6�������s�������g��val  9��g��filenamef��language/tree-il/peval.scm e  f ,  f (  f �  9 ���CP q�����h@���{���]L�&�� L� "�� 4L�5�L�&��L� �CL�6�������s�������g��val  9��g��filenamef��language/tree-il/peval.scm e  f ,  f (  f �  9 ���C��h����-�.�,�3�#��#���&�� � "�� 4�5 $�P�O��O�4�O�>���"��G��V�&�� � "�� 4�5$��$��"��$��"��$��D4�&�� � "�� 4�5�&�� � "�� 4�5>��"��y �U��X4�&�� � "�� 4�5�&�� � "�� 4�54  �O��5>�� X"��/G4  >��"��X4�O�>���"��G��CX4�O�>���"��G��FC�������������g��op �g��counter �g��ctx  �g�� effort-limit  �g�� size-limit  �g��tag  � \�g��_  I \�g��results  I \��g��filenamef��language/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 �   ��g��nameg�� visit-operand�C sR t u v w x y z { |� �������h������]�$��C�$��"��K�$��"��=�$��"��/�$��"��!�$��"���$��"���$�� 4 5 C� $��"��� $��"��� $�� 4 5 CC���������g��primitive-name  ��g��args  ���g��filenamef��language/tree-il/peval.scm j k  k n  s n  } k  � p  � p �  � ��g��nameg�� types-check?�C }R     ��h(������] 4�M�5$��C�4M�56���������g��sym  &�g��v &��g��filenamef��language/tree-il/peval.scm                 - &  �  & ��g��nameg�� lookup-var�Cf   � �����h@������] 444�&��� "�� 4�55554�M�5N�C��������g��var  ?�g��new - ?��g��filenamef��language/tree-il/peval.scm         -   = '  - )  - +   -   -  0   <  �  ? ���C��h������]L�O��6�|�������g��vars  ��g��filenamef��language/tree-il/peval.scm     �   ��g��nameg�� fresh-gensyms�C ����h@������] �&�� � "�� 4�5�&��� C�6��������������g��op  9�g��val  9��g��filenamef��language/tree-il/peval.scm     #      �  9 ��g��nameg��record-operand-use�C q ����h`������] �&�� � "�� 4�5 $��4�>��"��G��"����&��� C�6�������������g��op  Z�g��n  Z�g��count  Z��g��filenamef��language/tree-il/peval.scm          %  *   +   D  �  Z ��g��nameg��unrecord-operand-uses�C q N� ������h������-�.�,�3�#��#��4L��>��"��G��&��"��$��4�>��"��G��"����&��� "�� 4�5&�� "�� 4 5�&��� "�� 4� 56���������g��op ��g��ctx ��g��val  ��g��s  { ���g��filenamef��language/tree-il/peval.scm      8   F   G   d  # {   �  5 �  � � ��g��nameg��residualize-lexical�C  �����hH������]"��%$���4�56456�$��(��C""����������g��src  E�g��values  E��g��filenamef��language/tree-il/peval.scm          7        �  E ��g��nameg�� make-values�C  f   { r | ���hH������]L$��"��L$��4L�>��"��44L5L�>�� G��D��������g��results = G��g��filenamef��language/tree-il/peval.scm        *   -   <   @  G  �  G ���C���h���r���-��1��3�D���j�������g��_ ��g��filenamef��language/tree-il/peval.scm      � ���C     ���h���o���]L��6������g�������g��t-9d6212d37ae-6b11  ��g��filenamef��language/tree-il/peval.scm  %�  ���C }�������h�����]45$��454O�>�� G�$��C $�� �6 $��$��  �6�6�4 �O�56�456"���456 &��45$�� 6""������� ������g��src  ��g��name  ��g��args   ��g��ctx   ��g�� make-values   ��g��args   2�g��success?  3 ��g��values  3 ���g��filenamef��language/tree-il/peval.scm           *       6   @   I  O   X  [   _   f  # h   m  $ o   t  �   �   �   �   �   �   �   �   �   �   �  �  � ��g��nameg��fold-constants�C                    z      �.���h��0 ��]i"�"�"�"�"�"�s"�"�"�V"��$��&��7� � � � 4L�5$�� 6C�&��7� � � � 4L�5$�� 6C�&��� � 45$�� 45"��$�� "��$�� 4  56�"��$��Y4 5$��<(��( 4L� 5  $�� 4  �56C4  56�4  56�$��"}4  56�"a4  �56�4  �56��$���&��� � � $��&��w              &��/4L� 5  $��4   5 6C"""""�$��M�&��@� � � � � 4L�5$��6C"V"R�$��V�&��I� � � � � � 4L�5$��6C""�$��M�&��@� � � � � 4L�5$��6C""�$���&��C"w"s�$���&��C"Y"U�$���&��C";"7�$���&��C""�$���&��~� � $��g&��Z  &��C� L45$��,L$��L45"��$��4 L56CC""""""�"�i"�"�"�|"�-�$�"�&��3L $��)L$��L "��$��L4 L5��6CC�!&��3L $��)L$��L "��$��L4 L5��6CC�"&��3L $��)L$��L "��$��L4 L5��6CC�#&��3L $��)L$��L "��$��L4 L5��6CC�$&��3L $��)L$��L "��$��L4 L5��6CC�%&��3L $��)L$��L "��$��L4 L5��6CC�&&��3L $��)L$��L "��$��L4 L5��6CC�&��q� � $��Z&��M  4'5$��3L $��)L$��L "��$��4 L5��6CC"F"B">":"6�$��@�(&��3L $��)L$��L "��$��L4 L5��6CC""�$��@�)&��3L $��)L$��L "��$��L4 L5��6CC"="9�$��@�*&��3L $��)L$��L "��$��L4 L5��6CC""�$��@�+&��3L $��)L$��L "��$��L4 L5��6CC""�$��@�,&��3L $��)L$��L "��$��L4 L5��6CC"P"L�$��@�-&��3L $��)L$��L "��$��L4 L5��6CC""������( ������g��exp  �g��w > q�g��w  D q�g��w  K q�g��w  R q�g��body  [ q�g��w ~ ��g��w  � ��g��w  � ��g��w  � ��g��body  � ��g��w � �g��w  � �g��tail-len  � �g��len  � �g��ls   �g��n   �g��p-ls   �g��head   k�g��w , Q�g��tail 5 Q�g��w  u �g��w  t�g��w   t�g��w   t�g��w   l�g��w   l�g��w   l�g��w   l�g��w   l�g��w  l�g��w " l�g��w ) l�g��w 0 l�g��body @ h�g��w  �g��w   �g��w   �g��w   �g��w   �g��body   �g��w  -�g��w   -�g��w   -�g��w   -�g��w   -�g��w   -�g��body   -�g��w I �g��w  O �g��w  V �g��w  ] �g��w  d �g��body  m �g��w  �g��w   �g��w  * {�g��w  9 w�g��w [ �g��w  a �g��w  | ��=g��filenamef��language/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  !    �   ��g��nameg��loop�C�����h(������] O��Q�6��������������g��src  !�g��exp  !�g��nmin   !�g��nmax   !�g��consumer   !�g��loop   !��g��filenamef��language/tree-il/peval.scm     �  ! ��g��nameg�� inline-values�C �h������]4M��56����������g��x  ��g��filenamef��language/tree-il/peval.scm X   ]  ] �  ��g��nameg��constant-expression?�C ������h0������]L�&��C�&�� � "�� 4�5 C������������g��op  +��g��filenamef��language/tree-il/peval.scm f   m  m  m  n  ( n  * n �  + ��g��nameg�� referenced?�Cf q�h ���y���]4�>��"��G���C�������q�������g��op  �g��val  ��g��filenamef��language/tree-il/peval.scm  "   $�   ���C    S O  R  q s  �������h��T��]^O�Q�"�"� (��4�5  $��44 54 55$��<4�5(��C44  554 5456(��"��454 4 55 (��C4  544  554 5456   "  4  5$��      " &��  "�� 4 5$��       "&��"�� &��  "�� 4 5 $��14 4 5>��"��G��       "^  4 545$�� "��     "&�    "4�5 "��L������g��ops  �g�� in-order?  �g��body   �g��counter   �g��ctx   �g�� build-result   �g�� referenced?  �g��old   �g��values   �g��effects  �g��ops*  �g��values  �g��effects  �g��new & �g��effects  J ��g��values  [ ��g�� effect-vals  � ��g��body  � ��g��values  � ��g��op  �g��effect   ��g��filenamef��language/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   ��g��nameg��prune-bindings�C�����h���x���]C��p�������g��x  �g��res  ��g��filenamef��language/tree-il/peval.scm     �   ���C������h���x���]C��p�������g��x  �g��res  ��g��filenamef��language/tree-il/peval.scm     �   ���C��h������]L$��CL�6����������g��x  �g��res  ��g��filenamef��language/tree-il/peval.scm        �   ���C���h@������]�U��%4O� �>��"��G��XCXFGE�������g��x  @�g��limit  @�g��tag   @�g��_  5 @�g��results  5 @��g��filenamef��language/tree-il/peval.scm         8  �  @ ��g��nameg��small-expression?�CN�h0������]&�� "�� 454�56����������g��sym  -�g��op  -�g��env   -��g��filenamef��language/tree-il/peval.scm      !  % -  �  - ��g��nameg�� extend-env�C   �������h0������] �$�� �&��� � 6CC�����������g��x  ,�g��r  ,�g��w   &��g��filenamef��language/tree-il/peval.scm     &  �  , ���C    ����hH������] 4�M�5$��"��4�4M�55&�� C6���������g��sym  F�g��v -�g��s - F��g��filenamef��language/tree-il/peval.scm                  "  - *   -  �  F ��g��nameg��assigned-lexical?�C     R s ��h����]"4�5$�4�54L5$��"�� 45$�&�� "�� 45 &��  "�� 4 5$��D&��  "�� 4 5$��"��;4 L 5$��"��&��  "�� 45"��n4�54M5$��"��44M55 &��  "�� 45$�� 4L� 5DD45$��m4�54M5$��"��44M55 &��  "�� 45 $�� �",""D $���DD�����������g��x  �g�� n-aliases  �g��var   =�g��t   :�g��t  = �g��s  _ �g��t  � ��g��t  � ��g��y  � �g��sym  � K�g��v   (�g��s  ( H�g��sym  t �g��v   �g��s   ��g��filenamef��language/tree-il/peval.scm                   /  3   7  =   H   _   �   �   �  �   �  �  : �  �   �  �   �  , �   �                  - %   (   N   R   S   ^   b   b   c   m   n  1 t   w                  -                             �>   ��g��nameg��find-definition�C������h������]L�LL�6���������g��exp  ��g��filenamef��language/tree-il/peval.scm    *   �   ��g��nameg�� for-value�C   ����h������]!�$��y�&��n� � $��Z&��O  &��:� (��C$��"(��44M�55$��CCCCCCCCC�����������g��x  ��g��w  ��g��w  6 |�g��w  E z�g��w  ` v��g��filenamef��language/tree-il/peval.scm     c ]  f ]  n ]  r  �  � ��g��nameg��make-prompt-tag?�C����h���y���]L��6q�������g��val  �g��op  ��g��filenamef��language/tree-il/peval.scm    �   ���C�����h���y���]4L >��"��G��L�Cq�������g��val  �g��op  ��g��filenamef��language/tree-il/peval.scm     �   ���C   ��h0������]4L�5$��4L�5$�� 4L�5L6CC��������������g��val  )�g��op  )��g��filenamef��language/tree-il/peval.scm "  #  #  $   #  %  % % �  ) ���C  r   � hp���>��] 4L >��"��G��4L445454544L54L5�554L�LLLL55L�LLL6��6������g��val  n�g��op  n�g��exp  ` n��g��filenamef��language/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         pN�����h(������] 4�L�5&�� C6�����������g��old  $�g��s $��g��filenamef��language/tree-il/peval.scm     +  &  �  $ ��g��nameg��new-sym�C   i������h������]L�LL�6��y�������g��t-9d6212d37ae-8149  ��g��filenamef��language/tree-il/peval.scm  !  :   !�   ���C         z   i    �����h ������]L�����6��������������g��var  �g��gensym  �g��init   �g��body   ��g��filenamef��language/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"��L�5L44LLL 54454LLL 55�5L64 LLL >�� G��4 �L >�� G�4 4LL5L >�� G�L$�� L�"�� G�L$��45�"�� G�4L�L L>�� G�L45454L54  LO�L56��!������g��non-rest-gensyms � v�g�� rest-gensyms � v�g��provided-gensyms  � v�g��default-gensyms  � v�g�� provided-vars  � v�g�� default-vars  � v�g�� rest-vars   v�g�� rest-inits  ' v�g�� default-inits  < v�� g��filenamef��language/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 ��g��nameg��inlined-application�C mD C^ f����h0������]4L�4LLLL54LL55�L�6��������������g��tmp  )��g��filenamef��language/tree-il/peval.scm           *      )       )  �  ) ��g��nameg��abort�C         {    � ����h`���G��] H44L&��"��54L54�5�5K�(��JC LJ454L��56������?������g��elts  Z�g��test  Z��g��filenamef��language/tree-il/peval.scm        � ,  �   � 3  � 8    # %  8 )  # *  # 0  2 2  # 5   7   <  % @   J  0 Q  0 V  4 X  0 Z  �  Z ��g��nameg��lp�C  i  ��h���X���]�LLL�L�6�������P�������g��filenamef��language/tree-il/peval.scm   1   �   ���C       �������h���o���]�6�������g�������g��t-9d6212d37ae-9754  ��g��filenamef��language/tree-il/peval.scm  �  ���C r              �����h`�� ��]I"�"��"��|454 �M5NL��44�5 5�4 4 554 LL4L4 LLL5556�$��s� &�� LL4L4 LLL�55�6� &�� LL4L4 LLL�55�6�&�� LL4L4 LLL�55�6" "�$��&�� � "��"��|454 �M5NL��44�5 5�4 4 554 LL4L4 LLL5556� &�� LL4L4 LLL�55�6� &�� LL4L4 LLL�55�6�&�� LL4L4 LLL�55�6""��D�&��7� � � (�� LL4L4 LLL�55�6""$�L(�A� "��"��|454 �M5NL��44�5 5�4 4 554 LL4L4 LLL5556� &�� LL4L4 LLL�55�6� &�� LL4L4 LLL�55�6�&�� LL4L4 LLL�55�6""��D�&��7� � � (�� LL4L4 LLL�55�6""$�(�� "��"��|454 �M5NL��44�5 5�4 4 554 LL4L4 LLL5556� &�� LL4L4 LLL�55�6� &�� LL4L4 LLL�55�6�&�� LL4L4 LLL�55�6""��D�&��7� � � (�� LL4L4 LLL�55�6""$�(�"��"��|454 �M5NL��44�5 5�4 4 55 4 LL4L4 LLL 55 5 6� &�� LL4L4 LLL�55�6� &�� LL4L4 LLL�55�6�&�� LL4L4 LLL�55�6""��D�&��7� � � (�� LL4L4 LLL�55�6""$��0&��#� ���4L�56"""+"'"""i"e�&��7� � � (�� LL4L4 LLL�55�6"" "�$��S�&��F� � 4L5$��*� �  LL4L4 LLL556""" ������g�� alternate  `�g��t  ��g��failure  f ��g��w  �g��w  " �g��t  3 �g��failure   �g��w  7 _�g��w  t �g��w  { �g��t   �g��failure   �g��w   �g��w   �g��w   �g��t   Z�g��failure  6 X�g��w   �g��w  & �g��t  7 �g��failure  �g��w  ; c�g��w  | �g��w  �g��w  X�g��w  / T�g��w  6 T��g��filenamef��language/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 \ .  ` ��g��nameg��lp�C t ���hx����]Q"���$���&��� � $��&��~    $��Z&��N  &��9� �  O�   L�LLQ�   6�C�C�C�C�C�C�C�$���&��� � $��&��}  $��g&��Z  &��C $��1(��&� � 45�""""""""""���������g��c  u�g��w  ��g��w  ��g��w  6 ��g��w  < ��g��w  C ��g��w  J ��g��w  e ��g��w  s ��g��w z ��g��lp � ��g��w � m�g��w  � m�g��w  � e�g��w   ]�g��w   Y�g��w  . Q�g��w  5 Q�g��w  < Q��g��filenamef��language/tree-il/peval.scm M   N � [ � N ? T Q S U N �  u ��g��nameg��simplify-conditional�C          ��������h���W���]�L�6�����O�������g��filenamef��language/tree-il/peval.scm &  ' �  ���C�������h���c���-��1��3�C�����[�������g��args ��g��filenamef��language/tree-il/peval.scm & � ���C                      ����h������]L�M�6���������g��exp  �g��counter  �g��ctx   ��g��filenamef��language/tree-il/peval.scm     �   ��g��nameg��visit�C o �����h������]L��6�������g��names  �g��gensyms  �g��vals   �g��body   ��g��filenamef��language/tree-il/peval.scm     �   ���C�������h������]L�M�6���������g��exp  �g��counter  �g��ctx   ��g��filenamef��language/tree-il/peval.scm     �   ��g��nameg��visit�C ��������h������]LL��6�������������g��names  �g��gensyms  �g��vals   �g��body   ��g��filenamef��language/tree-il/peval.scm     �   ���C  � ������h�����]�$���&��z� � � 4L�5$��"�� 45&�� "�� 45&��  "�� 4 5$��CCCC ������g��exp  ��g��w ! ��g��t  , G�g��op  G ��g��s  c ���g��filenamef��language/tree-il/peval.scm     $   ,   <  @   D  G  L  " c   �  �  � ��g��nameg�� lookup-alias�C�h������]L�L�6���������g��exp  �g��counter  �g��ctx   ��g��filenamef��language/tree-il/peval.scm  (   *�   ���C   ����h0������]�(��4�>��"��G��"���L��6���������g��names  .�g��gensyms  .�g��vals   .�g��body   .��g��filenamef��language/tree-il/peval.scm       /  6   / .  �  . ���C                 �����h(������] 454 �M�5N�C�����������g��elt  $�g��new $��g��filenamef��language/tree-il/peval.scm               $   !    !  �  $ ���C ��������h������]�6������������g��t-9d6212d37ae-af4a  �g��t-9d6212d37ae-af4b  ��g��filenamef��language/tree-il/peval.scm  "�  ���C N     �h0������] 4�5$��C4�5$��C�6�����������g��x  ,�g��t ,�g��t  ,��g��filenamef��language/tree-il/peval.scm %   % " %   % -  %  , % 7�  , ���C s  �h8/��?��,�3�5O�O�LQ�LQ�$��4>��"��G��"���"�."�."�+"�*"�%"�$"�#"�""�!"� ("�"�"�C"�"�"�"�"�"�d"� "�"�"�"�"�"�:"�"�-"�?�$�+�&��� � � �  O� LQ� 4L54L5  4 >�� G 4 O� ?$��   L O� @4 >�� G4    O�?$�� L  L O�@   4L 56� &��C� � � �  4L5454L 564�56�4�56��$���&��� � "��$��(��:  (�� �"44L 5 56  4L 5 4 5$��44 5 5  "|4 5$��    "e    "V456� ">""�$�X�&�K� � � �  �  �  �  �  � 4L 54L54L 455O�Q�4L 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��"@�U��HHAO�LQ�485$��4BLL5"��"$��4C5"�� 4DL L5K4L45�J5K$��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)5�5�"f*$��4I5$��> J$��K"�� L$��M"��+44N55$��"��6(��)44+5�5�"4OP54554.QR�M5N44R���SO� Q�455�"m4I5$��4 J$��K"�� L$��M"��+44N556(��)44+5�5�"0 4+5�6""""""J &��"L &��""" $��    T &��r $��g (��\ $��LH&��?  $��(4+5�";""""""" $��    U &��r $��g (��\ $��LH&��?  $��(4+5�""k"g"c"_"["W"S $��    T &�� $�� (�� $��&��  $��s &��f  V&��O $��=4404WV55�5�""""""""}"y"u"q $��    U &�� $�� (�� $��&��  $��i &��\  V&��E $��344�55�""""""""""" $��    T &�� $�� (�� $��&��  $�� &��r  X&��[ $��I$��4(��)4�5�" """""""""""" $��    U &�� $�� (�� $��&��  $�� &��r  X&��[ $��I$��4(��)4�5�"6""""""""""""""" $�~  &�q   4Y 5$�W"�k 45  $�I    X &�) $�  "��  0 6$��(��"��ZO� Q�$��q&��d  $��I &��<  V&�� 04WV560 �66�6�6�6�$��7H&��*  &��04WV5�6"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"445�504L 56$��&��  $�� &��  V&��y "��f(��(40 455�"$��-$��4`4M55"��$�� "" """""""$��&��  $�� &��  X&�� $��$��4`4M55"��$��j$��_(��T$��4`4M55"��$��040 4�55�"""" " """"""$��VH&��I  $��34a540 455�"4"""4 5"w""$��"%"  ""b&��"!&��""d"`"\"X"T�$���&��� � $�� &��  &���   (��&��)6�C4 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*$��+6�C""�$��5�j&��(� � � k4L56""�$��5�l&��(� � � m4L56"`"\�$��G�n&��:� � � �  �  o 4L 56" "�$���p&���C""�$���p&��x� � � 4F5$��V�   &��D4qrO�s5 4t 5$��%4u 5  4uv5&��W6�C�C"_"["W"S�$���w&���C"8"4�$��d�w&��W� � 4F5$��=4/M5$���C4x�L54y5$���"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� LQ�4L5K 4LJ 5K 4J J 5K 4LJ 5K 4L J 5K4IJ5$��JCLJ JO�6"Q"M�$���&��� � � � �  �  HHH H H O�LQ�4L5K 4LJ 5K 4J J  5K 4LJ 5K4L J5K"��LJ JO�64IJ5$��4cL  5$��JC"""p"l�$�R�2&�E� � � � �  O� Q� 4L5 4L 5 4  LO�4 55 4L 54L 54I5$��)44�55�"I"��L O�645$��l4K45 5$��V454 544445545�55�"پ"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!5524LO�253444 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)5�64L >��"��G�� &�� "�� 4< 54L 56"u"q�$��%&�� � � "�&��)6&��  "�� 4<5$��"1&��L�6&�� "�� 4<5  Q&��  "�� 4< 5 $��L�6&��  "�� 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<>��"��G��L� 6L�6L�64/5$��"�� 45"5"y"u�$���&��*$��+6�C"K"G�$���H&��$��)6�C""���?������g��exp  /5�g��env  /5�g��counter   /5�g��ctx   /5�g��find-definition   /5�g�� for-value   /5�g��w  � �g��w  � �g��w  � �g��w � �g��make-prompt-tag? � �g��tag  �g��body  �g��vals  �g��vals  O �g��w   �g��w   �g��w   �g��w  �g��w   �g��w   �g��exps   �g��effects  �g��w / f�g��w l �g��x l �g��head } �g��w   C�g��w   C�g��w   C�g��w  C�g��w  C�g��w  C�g��w % C�g��w , C�g��w  3 C�g��vars  > C�g��new  G C�g��env  ] C�g��new-sym  g C�g��body  y C�g��w   �g��w   �g��w   �g��w   �g��x   �g��w   �g��ls  " �g��p-ls  " �g��sym  / X�g��w  b �g��w   �g��t   C�g��w   �g��x   �g��ls  ( �g��p-ls  ( �g��p-ls  ( �g��p-ls  ( �g��old  C m�g��name  C m�g��kw  C m�g��w  w �g��w   �g��x   �g��w   �g��x   �g��w   �g��w  _ �g��w  e �g��w  l �g��new  �g��x  �g��w   �g��w   �g��w   �g��proc  �g��w i 5�g��t z �g��v  �g��w  �g��w  �g��w   �g��w   �g��w   �g��exp   �g��w \ �g��w w �g��w ~ �g��w  �g��w   �g��w   �g��w   �g��w   �g��w   �g��nargs   �g��nreq   �g��nopt   �g��x   �g��key   �g��inlined-application   �g��t  - P�g��t  �g��found  7�g��counter  $�g��tag  S �g�� new-counter  ^ �g��result  ^ �g��abort  q �g��t  �g��_   �g��results   �g��w ? }�g��args U y�g��t d y�g��w �g��v ��g��x �g��t �g��w ! P�g��x ! P�g��w  6 0�g��x  6 0�g��w  K (�g��w  f  �g��exp  �g��member  �g��exp  !�g��t  ( �g��refcount  1 M�g��lp  l �g��exp  �g��member  �g��exp  �g��w a �g��x a �g��w  ~ �g��w   �g��w   �g��x   �g��exp   �g��w  v�g��x  v�g��w   j�g��w  ' b�g��w  - b�g��w  9 ^�g��exp  H ^�g��w  T�g��x  T�g��w   H�g��w   @�g��w   @�g��w   8�g��w   4�g��w   0�g��x   0�g��exp   0�g��w e (�g��x e (�g��w   �g��w   �g��w   �g��w    �g��w   �g��w   �g��x   �g��exp   �g��w 9 �g��x 9 �g��w  V �g��w  l �g��w  r �g��w   �g��w   �g��w   �g��x   �g��w   �g��exp   �g��w # �g��x # �g��w  @ �g��w  V �g��w  \ �g��w  w �g��w   �g��w   �g��x   �g��w   �g��exp   �g��w % �g��v B �g��w Q �g��x Q �g��w  j x�g��x  j x�g��x  u �g��w   p�g��failure   .�g��w   &�g��w   &�g��failure   &�g��w   �g��w   �g��w  B h�g��w  H h�g��x  z �g��x   �g��v  9�g��w  E�g��x  E�g��w   0�g��w   #�g��w [ q�g��w  �g��w  �g��w  .�g��x  .�g��x   �g��res V �g��exp k �g��w   S�g��w   S�g��w   K�g��w  /�g��w  +�g��x  +�g��tail-len  +�g��len  +�g��ls  = �g��n  = �g��p-ls  = �g��args  M �g��w  ` �g��tail*  f �g�� speculative?  f �g��args   �g��w   ~�g��w   v�g��w   r�g��ls   j�g��exp   2�g��w  < f�g��w   u�g��w   m�g��w   i�g��w   e�g��x   e�g��w   Y�g��exp  ? U�g��w   �g��args*   �g��exp   �g��w   �g��w  o T�g��w  u T�g��w   L�g��w  H�g��vals  H�g��exp * @�g��w  p �g��w  v �g��w   �g��w  �g��w  �g��x  �g��w  �g��w  �g��w   �g��w   �g��w  ( {�g��w  A w�g��exp  ] s�g��w   {�g��w   {�g��w   {�g��w  {�g��simplify-conditional  {�g��v  {�g��w C s�g��w   �g��w   �g��w   �g��w   3�g��w   3�g��w   3�g��w  O �g��w  U �g��w  \ �g��w c �g��w j �g��w   0�g��w   0�g��w   0�g��w  ,�g��module  (�g��var  %�g��w  l �g��exp   �g��w   �g��w   �g��w   �g��w  ! <�g��w  ' <�g��w  X �g��w  ^ �g��w  e �g��w l �g��w  "+�g��w  "+�g��w  "+�g��w "+�g��pre "+�g��body "+�g��post "+�g��post-sym !% !d�g��pre-sym !{ !�g��pre-sym ! "+�g��post-sym  ! "+�g��w  "G #\�g��w  "M #\�g��w  "T #\�g��producer "c #\�g��w "~ #2�g��w " #/�g��w " #,�g��w " #)�g��w  " #!�g��nmin  " #�g��nmax  " #�g��t  " #�g��t #< #\�g��w  #x $�g��w  # $�g��w  # $�g��w # $�g��vars # $�g��new # $�g��ops # $�g��env* # $�g��body*  # $�g��visit  # $�g��w  $2 $�g��w  $8 $�g��w  $E $�g��w $L $�g��w $S $�g��vars $Z $�g��new $Z $�g��ops $Z $�g��env*  $Z $�g��body*  $Z $�g��visit  $m $�g��w  % &P�g��w  % &P�g��w  %" &P�g��w %) &P�g�� lookup-alias %3 &P�g��vars %A &P�g��new %J &P�g��ops %i &P�g��env  %x &P�g��body  % &P�g��exp  % %�g��sym  & &H�g��pairs  & &H�g��exp  &2 &H�g��w  &l *�g��w  &r *�g��tail-len  &{ *�g��len & *�g��ls & *�g��n & *�g��p-ls & *�g��names & *�g��w  & *�g��w  & *�g��tail-len  & *�g��len  & *�g��ls  ' *�g��n  ' *�g��p-ls  ' *�g��gensyms  '$ *k�g��w  '7 *c�g��w  '> *c�g��tail-len  'G *c�g��len  '\ *c�g��ls  'z *T�g��n  'z *T�g��p-ls  'z *T�g��vals  ' */�g��w  ' *'�g��w  ' *�g��w ' *�g��w ! ' *�g��w " ' *�g��w # ' * �g��w $ ( * �g��w % ( *�g��w & (+ )�g��w ' (: )�g��x ( (: )�g��tail-len ) (E )�g��len * (Z )�g��ls + (x )�g��n , (x )�g��p-ls - (x )�g��args . ( )�g��w / ( )�g��w 0 ( )�g��w 1 ( )�g��v 2 ( (�g��s 2 ( )�g��tmps 2 ). )�g��tmp-syms 3 )> )�g��exp 4 )} )�g��w . ) )�g��w  *9 *P�g��w  *u *�g��w * *�g��w  * +�g��w  * +�g��w  + +�g��w + +�g��t + +1�g��op +1 +�g��s +M +m�g��exp + +�g��w  , .�g��op  , .�g��t  ,7 .�g��s ,o ,�g��val , -�g��t -, .�g��t -K -y�g��t -_ -v�g��s - -�g��t  . .�g��filenamef��language/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 ��g��nameg��loop�C����h����-�/���0���3�#��45�#��#�� (#�� #�� #�� #�� dH H HO� O�  O�   O�   Q�  Q�  Q� Q��$��Q�&��� � 45"��(�&��� � 45"��"��K4�5K 4 O�5K O�     Q��6���������g��exp  }�g��cenv  }�g��env   }�g��operator-size-limit   }�g��operand-size-limit   }�g��value-size-limit   }�g�� effort-limit   }�g��recursive-effort-limit   }�g��local-toplevel-env  ` }�g��store ` }�g��compute-effects ` }�g�� lookup-var � }�g�� fresh-gensyms � }�g��record-operand-use � }�g��unrecord-operand-uses  � }�g��residualize-lexical  � }�g��fold-constants  � }�g�� inline-values  � }�g��constant-expression?  � }�g��prune-bindings  � }�g��small-expression?  � }�g�� extend-env  � }�g��w  � ��g��w  � �g��loop  E }��g��filenamef��language/tree-il/peval.scm t  t % �   �   �   �       V  E   {   }  �  } g��operator-size-limitS g��operand-size-limitS g��value-size-limitS g�� effort-limitS g��recursive-effort-limitS ���g��nameg��pevalg�� documentationf��}Partially evaluate EXP in compilation environment CENV, with top-level bindings from ENV and return the resulting expression.�CRC����������g��m  ,�g��rtd $ N�g��rtd B C�g��rtd | }#��g��filenamef��language/tree-il/peval.scm   G E  L  W ^ & m  y >[ � ?{ � k � l; � mi � n � r � s � ue � w  y  ������( ( ������ 2 ������б ; ������i > ������ I ������ܬ j �����Ē t � �����Ĕ ���C6���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/tree-il/canonicalize.go��������������������������������������������������������������������0000644�����������������00000011317�15253700563�0012667 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�:�4����h������]� g��guile � g��define-module* � � g��language g��tree-il g�� canonicalize � g��filenameS f��!language/tree-il/canonicalize.scm g��importsS �  � g��ice-9 g��match � � g��srfi g��srfi-1 � � � g��exportsS g�� canonicalize! � g��set-current-module � � g�� tree-il-fold g�� tree-il-any g�� post-order! !g��<prompt> "g�� <lambda-case> #g�� lexical-ref? $g��lexical-ref-gensym %g�� <application> &g��<lambda> 'g�� make-prompt (g�� make-lambda )g��make-lambda-case *g��make-application +g��make-primitive-ref ,g��throw -g�� make-const .g��wrong-number-of-args /f��Wrong number of arguments 0g��<dynlet> 1g��<fix> 2g��<letrec> 3g��<let> 4g�� <sequence> 5g��any 6g�� sequence? 7g�� make-sequence 8g�� append-map 9g�� sequence-expsC�5��h��u���]4    5�4�>��"��G����������h������]$��CL��6��������������g��exp  �g��res  ��g��filenamef��!language/tree-il/canonicalize.scm        �   ���C�������h������]$��CL��6��������������g��exp  �g��res  ��g��filenamef��!language/tree-il/canonicalize.scm        �   ���C�������h���w���]C���o�������g��exp  �g��res  ��g��filenamef��!language/tree-il/canonicalize.scm  �   ���C������h ������]�O��O�6��������������g��proc  �g��exp  ��g��filenamef��!language/tree-il/canonicalize.scm    �   ��g��nameg�� tree-il-any�CR !"#$����h ������]4�5$�� 4�5L�CC������|�������g��x  ��g��filenamef��!language/tree-il/canonicalize.scm K   L & L !  M +  M &�   ���C%&'()*+,-./01234567869����h ������]4�5$���6��C�������|�������g��x  ��g��filenamef��!language/tree-il/canonicalize.scm + (  , . , *  - .  . .�   ���C�h`��g��]a"�"�"�w"�"�"�w"��$��&�� � � � $��&��  $��u     $��?    &��4O�5"�� "��"��"��"��$��"��$��&��  $��&��   $��z&��l  (��S   &��=   &��'   &��    "�� "�� "�� "��"��"��"��"��"��"��$��CH44 5 5K4 J56CC�$��v�&��i� � � &��K4 4 4  54 54 54 54 54 5�55 6"""�$��9�&��,� � (��� (��� C"Q"M"I"E�$��J�&��=� � (��(� (��� (��� C"""""�$��P�&��C� � � (��(� (��� (��� C"""""�$��J�&��=� � (��(� (��� (��� C"D"@"<"8"4�$��7�&��*� � 45$��456C""�$��2�&��%� � $��(��C""""�������_������g��x  Y�g��w 2  �g��w  8  �g��w  ?  �g��w  F  �g��w  a ��g��w  � ��g��w  � ��g��w  � ��g��w � ��g��t  � �g��w   �g��w  4 �g��w  O �g��w \ �g��w j �g��w x �g��w  �g��thunk   �g��w $ �g��w  * �g��w  1 �g��w  �g��w   �g��w  "�g��w   �g��w   �g��w I }�g��w  V y�g��w  c u�g��w  �g��w   �g��w   �g��w  �g��w   �g��w 5 Q��$g��filenamef��!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 ���C������h������]�6������}�������g��x  ��g��filenamef��!language/tree-il/canonicalize.scm " # �  ��g��nameg�� canonicalize!�CRC������m�������g��m  ,��g��filenamef��!language/tree-il/canonicalize.scm      " �   ���C6������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/tree-il/spec.go����������������������������������������������������������������������������0000644�����������������00000003431�15253700563�0011160 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�5�4�h6������]� g��guile � g��define-module* � � g��language g��tree-il g��spec � g��filenameS f��language/tree-il/spec.scm g��importsS g��system g��base  � � g��pmatch  � � g��glil � � � � g�� compile-glil � � � g��exportsS � g��set-current-module � !� "g��write #g��unparse-tree-il $g�� write-tree-il %g�� make-void &g�� make-sequence 'g��join (g��invalidate-compilation-cache! )g�� make-language *g��nameS +g��titleS ,f��Tree Intermediate Language -g��readerS .g��read /g��printerS 0g��parserS 1g�� parse-tree-il 2g��joinerS 3g�� compilersS 4g�� for-humans?SC�5�����h�����]4    5�4!�>��"��G���"#����h������-�1�3�4�5@���������g��exp �g��port ��g��filenamef��language/tree-il/spec.scm      �  ��g��nameg�� write-tree-il�C$R%&���h8������]�(��6�$����(��C�6�6����������g��exps  5�g��env  5�g��vx   .�g��vy   .��g��filenamef��language/tree-il/spec.scm    !    . # �  5 ��g��nameg��join�C'R4(i>���"��G��4)i*+,-.������h���x���]�6p�������g��port  �g��env  ��g��filenamef��language/tree-il/spec.scm '   ' #�   ���C/$i01i2'i3i�45RC�������g��m  ,��g��filenamef��language/tree-il/spec.scm   �     % " &   +   % �   ���C6����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/tree-il/fix-letrec.go����������������������������������������������������������������������0000644�����������������00000046537�15253700563�0012306 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0GM������]��4������h ������]� g��guile � g��define-module* � � g��language g��tree-il g�� fix-letrec � g��filenameS f��language/tree-il/fix-letrec.scm g��importsS g��system g��base g��syntax  � � g��srfi g��srfi-1 � � g��srfi-11 � � � � g��effects � � � g��exportsS g�� fix-letrec! ! � "g��set-current-module #"� $"� %g�� <lexical-set> &%� '%� (g��lexical-set-exp )g�� <module-set> *)� +)� ,g��module-set-exp -g��<toplevel-set> .-� /-� 0g��toplevel-set-exp 1g��<toplevel-define> 21� 31� 4g��toplevel-define-exp 5g�� <conditional> 65� 75� 8g��conditional-test 9g��conditional-consequent :g��conditional-alternate ;g�� <application> <;� =;� >g��application-proc ?g��application-args @g�� <sequence> A@� B@� Cg�� sequence-exps Dg��<lambda> ED� FD� Gg�� lambda-body Hg�� <lambda-case> IH� JH� Kg��lambda-case-inits Lg��lambda-case-body Mg��lambda-case-alternate Ng��<let> ON� PN� Qg��let-vals Rg��let-body Sg��<letrec> TS� US� Vg�� letrec-vals Wg�� letrec-body Xg��<fix> YX� ZX� [g��fix-vals \g��fix-body ]g�� <let-values> ^]� _]� `g��let-values-exp ag��let-values-body bg�� <dynwind> cb� db� eg�� dynwind-body fg��dynwind-winder gg��dynwind-unwinder hg��<dynlet> ih� jh� kg�� dynlet-fluids lg�� dynlet-vals mg�� dynlet-body ng��<dynref> on� pn� qg�� dynref-fluid rg��<dynset> sr� tr� ug�� dynset-fluid vg�� dynset-exp wg��<prompt> xw� yw� zg�� prompt-tag {g�� prompt-body |g��prompt-handler }g��<abort> ~}� }� �g�� abort-tag �g�� abort-args �g�� abort-tail �g��fix-fold �g��<void> �g��<const> �g�� <lexical-ref> �g��lexical-ref-gensym �g��memq �g��simple-expression? �g��and-map �g��primitive-ref? �g��delq �g�� lset-adjoin �g��eq? �g��lexical-set-gensym �g��letrec-gensyms �g��append �g�� let-gensyms �g��letrec-in-order? �g�� effect-free? �g��exclude-effects �g��make-effects-analyzer �g��lset-difference �g��lambda? �g��partition-vars �g�� make-sequence �g��reverse �g��make-sequence* �g�� post-order! �g�� make-void �g�� letrec-src �g�� letrec-names �g��map �g��list �g��make-let �g��cadr �g��car �g��caddr �g��make-fix �g��make-lexical-set �g�� module-gensym �f��fixlr �g��make-lexical-ref �g��let-src �g�� let-names �g��assq �g��lset-intersectionC�5hH@�����]4    !5�4$�>��"��G����hh���s��,�3�(��D4�>�� G�     �     �"��k������g��proc  f�g��exps  f�g��unref   f�g��ref   f�g��set   f�g��simple   f�g��lambda   f�g��complex   f�g��unref  2 f�g��ref 2 f�g��set 2 f�g��simple 2 f�g��lambda 2 f�g��complex 2 f��g��filenamef��language/tree-il/fix-letrec.scm  �  f ��g��nameg�� fold-values�C'(+,/034789:=>?BCFGJKLMPQRUVWZ[\_`adefgjklmpqtuvyz{|�9h0�� ��]4L�>�� G�    �  &��#4�54L�    >�"� &��#4�54L�    >�"� &��#4�54L�    >�c"�^ &��#4�54L�    >�8"�3  &��4 �54 �54 �54L�    >�� G�4L�>�� G�4L�>�"�  &��T4�54�54L�    >�� G�4LL�>�S"�N &��%4�54LL�    >�&"�! &��?4�5$��4L�    >�"��    "�"� &��4�54�54�54LL�    >�� G�$��@4L�>�� G�4L�>�N"��4L�>�4"�/ &��T4�54�54LL�    >�� G�4L�>�"� &��T4�54�54LL�    >�� G�4L�>�|"�w &��T4�54 �54LL�    >�� G�4L�>� "� !&��R4"�54#�54L�    >�� G�4L�>�"� $&��4%�54&�54'�54L�    >�� G�4L�>�� G�4L�>�="�8 (&��4)�54*�54+�54LL�    >�� G�4LL�>�� G�4L�>�"� ,&��#4-�54L�    >�"� .&��R4/�540�54L�    >�� G�4L�>�+"�& 1&��42�543�544�54L�    >�� G�4L�>�� G�4L�>��"�� 5&��46�547�548�54L�    >�� G�4LL�>�� G�4L�>��"��    "�� G� L� 6�� ������g��tree  .�g��unref  .�g��ref   .�g��set   .�g��simple   .�g��lambda   .�g��complex   .�g��unref   .�g��ref   .�g��set  .�g��simple  .�g��lambda  .�g��complex  .�g��rtd +  �g��exp  < T�g��exp  g �g��exp  � ��g��exp  � ��g��test  � ^�g�� consequent  � ^�g�� alternate  � ^�g��unref   ^�g��ref   ^�g��set   ^�g��simple   ^�g��lambda   ^�g��complex   ^�g��unref  9 ^�g��ref  9 ^�g��set  9 ^�g��simple  9 ^�g��lambda  9 ^�g��complex  9 ^�g��proc  x �g��args  x �g��unref   �g��ref   �g��set   �g��simple   �g��lambda   �g��complex   �g��exps   �g��body   .�g��inits  O �g��body  O �g�� alternate  O �g��unref  n �g��ref  n �g��set  n �g��simple  n �g��lambda  n �g��complex  n �g��unref   �g��ref   �g��set   �g��simple   �g��lambda   �g��complex   �g��vals   5�g��body   5�g��unref   5�g��ref   5�g��set   5�g��simple   5�g��lambda   5�g��complex   5�g��vals  O �g��body  O �g��unref  l �g��ref  l �g��set  l �g��simple  l �g��lambda  l �g��complex  l �g��vals   �g��body   �g��unref   �g��ref   �g��set   �g��simple   �g��lambda   �g��complex   �g��exp   G�g��body   G�g��unref  " G�g��ref  " G�g��set  " G�g��simple  " G�g��lambda  " G�g��complex  " G�g��body  h �g��winder  h �g��unwinder  h �g��unref   �g��ref   �g��set   �g��simple   �g��lambda   �g��complex   �g��unref   �g��ref   �g��set   �g��simple   �g��lambda   �g��complex   �g��fluids   ]�g��vals   ]�g��body   ]�g��unref   ]�g��ref   ]�g��set   ]�g��simple   ]�g��lambda   ]�g��complex   ]�g��unref  8 ]�g��ref  8 ]�g��set  8 ]�g��simple  8 ]�g��lambda  8 ]�g��complex  8 ]�g��fluid  p �g��fluid   �g��exp   �g��unref   �g��ref   �g��set   �g��simple   �g��lambda   �g��complex   �g��tag   k�g��body   k�g��handler   k�g��unref   k�g��ref   k�g��set   k�g��simple   k�g��lambda   k�g��complex   k�g��unref  F k�g��ref  F k�g��set  F k�g��simple  F k�g��lambda  F k�g��complex  F k�g��tag   �g��args   �g��tail   �g��unref   �g��ref   �g��set   �g��simple   �g��lambda   �g��complex   �g��unref   �g��ref   �g��set   �g��simple   �g��lambda   �g��complex   �g��unref  .�g��ref   .�g��set   .�g��simple   .�g��lambda   .�g��complex   .��g��filenamef��language/tree-il/fix-letrec.scm  �  . ��g��nameg��foldts�C�h@���;��,� 3� O�  Q� O�   Q�  �6�����3������g��tree  ;�g��down  ;�g��up   ;�g��unref   ;�g��ref   ;�g��set   ;�g��simple   ;�g��lambda   ;�g��complex   ;�g�� fold-values  ;�g��foldts  ;�� g��filenamef��language/tree-il/fix-letrec.scm  �  ; ��g��nameg��fix-fold�CR589:@C�h���j���]�LL�6����b�������g��x  ��g��filenamef��language/tree-il/fix-letrec.scm ,  , �  ���C;>?��������h���j���]�LL�6����b�������g��x  ��g��filenamef��language/tree-il/fix-letrec.scm 1  2 �  ���C���h�����]#�&��C&��C&��4�545C&��G4�54�54 �54 5$��4 5$��  6CC &��4 �5 O�6&��;4�54�545$��4�5$�� O�6CCC�����������g��x  ��g�� bound-vars  ��g��simple-primcall?   ��g��rtd   ��g��gensym  * 7�g��test  T ��g�� consequent  T ��g�� alternate  T ��g��exps  � ��g��proc  � ��g��args  � ��� g��filenamef��language/tree-il/fix-letrec.scm !  "  - & 6 &  ? "  [ ( i (  j ) x (  � * � "  � ,  � "  � / � /  � 0 � /  � 1 �  � ��g��nameg��simple-expression?�CR%SN� ����h�����]�&��'4�54545D&�� 4�545D&��4 �54 5D &��4 �54 5DD������g��x  ��g��unref  ��g��ref   ��g��set   ��g��simple   ��g��lambda*   ��g��complex   ��g��rtd   ��g��gensym   6�g��gensym  E ^�g��gensyms  m ��g��gensyms  � ��� g��filenamef��language/tree-il/fix-letrec.scm :   ;   =  " >  6 =  > ;  L F  ^ D  f ;  p K  � K  � ;  � R  � R  � Y �  � ���CSV������h ������] 4M��54 �56��������������g��x  �g��effects ��g��filenamef��language/tree-il/fix-letrec.scm d   e ( e   g   f �   ��g��nameg��effect+exception-free-primcall?�C������h���j���]�L�6������b�������g��x  ��g��filenamef��language/tree-il/fix-letrec.scm ^ 0 ^ <�  ���C��h ������] 4M��54������56��������g��x  �g��effects ��g��filenamef��language/tree-il/fix-letrec.scm _   ` ( `   b   b 5  b   a �   ��g��nameg��effect-free-primcall?�CNQ�������h����]_�&�4�54�54�5  H O�  Q� 4O�5K "�k (��8$��4 5"��4 54 54 5D4  5$��l"��  "$��D4 5$��"�� 4   5$��   "P""4  5$��   "4 5$��   "4  $�� "�� O�5$��   "   "   "&� 4�54�5 "�� (��#4  54  54 5D4  5$��        "4  5$��         ""��         "a4  5$��04  5$��"         "%"     " D����������g��x  �g��unref  �g��ref   �g��set   �g��simple   �g��lambda*   �g��complex   �g��rtd   �g�� in-order?  $ �g�� orig-gensyms $ �g��vals $ �g��compute-effects + �g��effect+exception-free-primcall? 5 �g��gensyms L �g��vals  L �g��s  L �g��l  L �g��c  L �g�� orig-gensyms   �g��vals  �g��gensyms  �g��vals  �g��s  �g��l  �g��c   ��g��filenamef��language/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   ���C�����h0���E��]14�> �� G�D=������g��x  0�g��unref  0�g��ref   0�g��set   0�g��simple   0�g��lambda*   0�g��complex   0��g��filenamef��language/tree-il/fix-letrec.scm 6  9  �  �   �   �   �   �   9   7  0 � �  0 ��g��nameg��partition-vars�CRD��������h�����]""��(��(��C�456&�� "&�� "&�� "&�� ""p"e�������������g��src  ��g��exps  ��g��in   ��g��out   ��g��head  + ��g��rtd  0 ���g��filenamef��language/tree-il/fix-letrec.scm �  �  �  �   �   �  �  ! � . $ � ( & �  ( � + �  + �  0 � = �  G �  O � R �  \ �  d � g � ! q �  y � | �  � �  � �  � �  � �  � �  � �  � � �  � ��g��nameg��make-sequence*�CR%(SVW�h0������]�(��C4�L�5$�� �4L�5C��"��������g��binds  /��g��filenamef��language/tree-il/fix-letrec.scm �   �  � �   �   �   �   �   � $ " � ( $ � $ % �  ) �  / � �  / ��g��nameg��lp�C��h������] O��Q�L�6�������g��set  �g��lp ��g��filenamef��language/tree-il/fix-letrec.scm � � �   ��g��nameg��lookup�C��������h���l���]6�d�������g��x  ��g��filenamef��language/tree-il/fix-letrec.scm � *  � 6�   ���C����h������]���6������������g��c  ��g��filenamef��language/tree-il/fix-letrec.scm     1  :   .   �   ���C�h���u���]6m�������g��x  ��g��filenamef��language/tree-il/fix-letrec.scm  &   7   (�   ���C�h ������]��4�56�������������g��x  �g��tmp  ��g��filenamef��language/tree-il/fix-letrec.scm     $  -  !   6   !   �   ���CNQR����h���l���]�L�6������d�������g��v  ��g��filenamef��language/tree-il/fix-letrec.scm    �  ���C��h���l���]�L�6������d�������g��v  ��g��filenamef��language/tree-il/fix-letrec.scm    �  ���C������h���l���]�L�6������d�������g��v  ��g��filenamef��language/tree-il/fix-letrec.scm    �  ���C�'h��`��]q�&��24�54�54L5$��45�6�C&�b4�54 �54 �54 �54 �54 �545O� Q� 4 L54 L54 L54 L�5    44 54 5544 54 5544 54 5544 54 54 5444 5 (�� �"��[$��44 5�5"��>4 544 54 544 555�5556&��4�54�54�54 �54!�5454"O�4#$L554%O�4#$L554&O�4#$L�55  44544 54 54 544 54 54 555�56�C������X������g��x  �g��rtd  �g��gensym   A�g��exp   A�g��src  s �g�� in-order?  s �g��names  s �g��gensyms  s �g��vals  s �g��body  s �g��binds  � �g��lookup � �g��u � �g��s � �g��l � �g��c � �g��tmps  n �g��src   �g��names   �g��gensyms   �g��vals   �g��body   �g��binds   �g��u  4 �g��l 4 �g��c 4 ��g��filenamef��language/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   ���C�����h0������]!4�>�� G�O��6������������g��x  +�g��unref +�g��simple  +�g��lambda*  +�g��complex  +��g��filenamef��language/tree-il/fix-letrec.scm �  � /  �  + � �  + ��g��nameg�� fix-letrec!�C RC�������������g��m  ,��g��filenamef��language/tree-il/fix-letrec.scm     D ! - 6 0 � @@ � �  @B ���C6������������������������������������������������������������������������������������������������������������������������������������������������������������������language/tree-il/debug.go���������������������������������������������������������������������������0000644�����������������00000035430�15253700563�0011320 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0�;������]�e�4�h6������]� g��guile � g��define-module* � � g��language g��tree-il g��debug � g��filenameS f��language/tree-il/debug.scm g��importsS �  � g��ice-9 g��match � � g��srfi g��srfi-1 � � g��srfi-26 � � � g��exportsS g��verify-tree-il � g��set-current-module � � !g�� hashq-ref "g��error #f��duplicate gensym $g�� hashq-set! %g��make-hash-table &f��unexpected tree-il 'g�� <dynwind> (g��<dynref> )g��<dynset> *g�� <conditional> +g�� <application> ,g��for-each -f��expected list of args .g�� <sequence> /f��expected more than one exp 0f��expected list of exps 1g��<prompt> 2g��<abort> 3g��<dynlet> 4g��length 5f��mismatch in fluids/vals 6f��vals should be list 7f��fluids should be list 8g�� <module-set> 9f��%module name should be list of symbols :g��and-map ;g��symbol? <f��name should be symbol =g��<toplevel-define> >f��name should be a symbol ?g��<toplevel-set> @g��<primitive-ref> Ag�� <module-ref> Bg��<toplevel-ref> Cg��<void> Dg��<const> Eg�� <let-values> Fg�� lambda-case? Gf��%let-values body should be lambda-case Hg��<fix> If��names should be list of syms Jf��gensyms should be list of syms Kf��'names, syms, vals should be same length Lg��<letrec> Mg��<let> Ng��<lambda> Of��!lambda body should be lambda-case Pf��meta should be alist Qg��pair? Rg�� <lexical-set> Sg��memq Tf��displaced lexical Uf��unbound lexical Vg�� <lexical-ref> Wg�� <lambda-case> Xf��-bad required args (should be list of symbols) Yf��'bad gensyms (should be list of symbols) Zg��take [g��drop \f��unexpected gensyms length ]f��6bad keywords (should be #f or (aok (kw name sym) ...)) ^g��keyword? _f��*bad required args (should be #f or symbol) `f��/bad optionals (should be #f or list of symbols) ag�� tree-il-src bf��bad src cg��map dg��carC�5�����h1��f���]4    5�4 �>��"��G���!"#$�������hX������] �(��C��4M5$�� 45"��4M>��"��G���"�������������g��new  R�g��env  R�g��sym   J��g��filenamef��language/tree-il/debug.scm !   "   $   $  $       !   %   )   .  G R $ �  R ��g��nameg��add-env�C%"&'()*+,������h���o���]L�L�6������g�������g��t-9d61fd5a44d-1361  ��g��filenamef��language/tree-il/debug.scm � �  ���C-./�h���o���]L�L�6������g�������g��t-9d61fd5a44d-12d8  ��g��filenamef��language/tree-il/debug.scm � �  ���C012�h���o���]L�L�6������g�������g��t-9d61fd5a44d-11cd  ��g��filenamef��language/tree-il/debug.scm � �  ���C34���h���o���]L�L�6������g�������g��t-9d61fd5a44d-1632  ��g��filenamef��language/tree-il/debug.scm � �  ���C�������h���o���]L�L�6������g�������g��t-9d61fd5a44d-1638  ��g��filenamef��language/tree-il/debug.scm � �  ���C56789:;<=>?@ABCDEFGHIJ���h���o���]L�L�6������g�������g��t-9d61fd5a44d-1b64  ��g��filenamef��language/tree-il/debug.scm � �  ���CKL���h���o���]L�L�6������g�������g��t-9d61fd5a44d-1c53  ��g��filenamef��language/tree-il/debug.scm � �  ���CM�����h���o���]L�L�6������g�������g��t-9d61fd5a44d-1d20  ��g��filenamef��language/tree-il/debug.scm � �  ���CNOPQR!STUVWX"Y�h���V���]�L�6������N�������g��filenamef��language/tree-il/debug.scm  >  > �  ���C#$Z[\]^S������hh������])�$��[��45$��D$��;$��($��(��$��L�6CCCCCCC���������g��x  f�g��w  d�g��x   d�g��w  + `�g��x  + `�g��w  G Z��g��filenamef��language/tree-il/debug.scm 5   6 ! X 8 $�  f ���C_`abcd�L�h����]"� "� W"� "� "� "� "�"�<"�"�"�"� "�"�S"�"�5"�@"��4�>��"�G��"��$��&��b� � � � 4L�>��"��G��4L�>��"��G��4L�>��"�mG��"�f�&��&� � 4L�>��"�8G��"�1�&��D� � � 4L�>��"��G��4L�>��"�G��"��&��b� � � � 4L�>��"��G��4L�>��"��G��4L�>��"�G��"��&��j� � � $��34L�>��"��G��4 L�O�>��"�(G��"�!4 >��"�G��"� � &��j� � $��=(��4 �>��"�G��"�4 L�O�>��"�G��"�4�>��"�G��"��&��b� � � � 4L�>��"��G��4L�>��"��G��4L�>��"�5G��"�.�&��i� � � � 4L�>��"��G��4L�O�>��"��G��4L�>��"�G��"�""�$���&��� � � � $��$��y4545$��N4L�O�>��"��G��4L�O�>��"��G��4L�>��"�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�>��"��G��4L�>��"� G��"� z4(>��"� iG��"� b"I"E�$�N�)&�A� � � � � "��4*�>��"� G��"� $��45$��"��4+�>��"� G��"� $��45$��$��4545$��45"��$��A4L54,L�O�>��"��G��4L�>��"� YG��"� R4-�>��"� >G��"� 74�>��"� &G��"� "+"'""""�$�T�.&�G� � � � � � "��4*�>��"�G��"�$��45$��"��4+�>��"�G��"�y$��45$��$��4545$��45"��$��A4L54/L�O�>��"��G��4L�>��"�G��"�4-�>��"�G��"�4�>��"�G��"�"+"'""""�$�G�0&�:� � � � � "��4*�>��"�WG��"�P$��45$��"��4+�>��"�'G��"� $��45$��$��4545$��45"��$��:41L�O�>��"��G��4L�4L5>��"�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�>��"��G��47M5$�� 4?5"��4@M>��"��G��"4L�>��"�G��"� $��@47M5$�� 4?5"��4@M>��"��G�� "�� $��"��"4L� >��"��G��47M5$�� 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 "��""��"4H�5$��^"��4I>��"��GG��"��@$��5455$�� 44JK55$��"��""��""��""����C�������������g��exp  �g��env  �g��w  { ��g��w  � ��g��w  � ��g��w  � �g��w   P�g��w   M�g��w  b �g��w  i �g��w  p �g��w   .�g��w   +�g��w  @ �g��w    �g��w    �g��w   �g��w   ~�g��w  % {�g��w  , x�g��w   o�g��w   l�g��w   i�g��w   �g��w   �g��w   �g��w  ? �g��w  F �g��w   �g��w   �g��w   5�g��w  V �g��w  ] �g��w   �g��w  w �g��w  ~ �g��w   .�g��w   +�g��w   (�g��w   %�g��b  { �g��env   �g��w  U �g��w  \ �g��w  c �g��w  j �g��b  �g��env  A�g��w  �g��w  �g��w  �g��w  �g��b  3 U�g��w  � �g��w   �g��w  Y�g��w  V�g��w  S�g��w  z �g��w  �g��w   !�g��w   �g��w  % �g��w  , �g��w  3 �g��w  : �g��w  A �g��w H  �g��failure  �g��failure  �g��env  P�g��nopt  P�g��inits   P�g��tail   P�g��env   �g��inits   �g��tail   �g��sym  & _�g��sym   �g��sym   ;�g��x < _�g��src  8 ��Rg��filenamef��language/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  . ~        ��g��nameg��visit�C��h8������]HO�Q�45�KO�Q��6���������g��exp  6�g�� seen-gensyms  6�g��add-env   6�g��visit  & 6��g��filenamef��language/tree-il/debug.scm     & &  4 '  6 & �  6 ��g��nameg��verify-tree-il�CRC�^�������g��m  ,��g��filenamef��language/tree-il/debug.scm   1  �  1 ���C6�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/tree-il/analyze.go�������������������������������������������������������������������������0000644�����������������00000414605�15253700563�0011702 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0m�����] &�4��������hɴ������]� g��guile � g��define-module* � � g��language g��tree-il g��analyze � g��filenameS f��language/tree-il/analyze.scm g��importsS g��srfi g��srfi-1  � � g��srfi-9  � � g��srfi-11  � � g��srfi-26  � � g��ice-9 g��vlist � � g��match � � !g��system "g��base #g��syntax $!"#� %$� &g��message '!"&� ('� )g��vm *g��program +!)*� ,+� -� .-� /g��pmatch 0!"/� 10� 2 %(,.1�  3g��exportsS 4g��analyze-lexicals 5g�� analyze-tree 6g��unused-variable-analysis 7g��unused-toplevel-analysis 8g��unbound-variable-analysis 9g��arity-analysis :g��format-analysis ;456789:� <g��set-current-module =<� ><� ?g��make-hash-table @g�� hashq-set! Ag�� make-hashq Bg�� <application> Cg��application-proc Dg��application-args Eg�� lset-union Fg��eq? Gg��map Hg�� <conditional> Ig��conditional-test Jg��conditional-consequent Kg��conditional-alternate Lg�� <lexical-ref> Mg��lexical-ref-gensym Ng�� hashq-ref Og��memq Pg�� lambda-case? Qg��length Rg��lambda-case-req Sg��lambda-case-opt Tg��lambda-case-kw Ug��lambda-case-rest Vg��lambda-case-alternate Wg�� lambda-body Xg�� <lexical-set> Yg��lexical-set-gensym Zg��lexical-set-exp [g�� lset-adjoin \g�� <module-set> ]g��module-set-exp ^g��<toplevel-set> _g��toplevel-set-exp `g��<toplevel-define> ag��toplevel-define-exp bg�� <sequence> cg�� sequence-exps dg��<lambda> eg��reverse! fg�� <lambda-case> gg��lambda-case-inits hg��lambda-case-gensyms ig��lambda-case-body jg��append kg��reverse lg��lset-difference mg��<let> ng�� let-gensyms og��let-vals pg��let-body qg��<letrec> rg��letrec-gensyms sg�� letrec-vals tg�� letrec-body ug��for-each vg��<fix> wg�� fix-gensyms xg��fix-vals yg��fix-body zg��error {f��unhandled record |g��cons }g��assq-ref ~g�� hashq-remove! g�� <let-values> �g��let-values-exp �g��let-values-body �g�� <dynwind> �g�� dynwind-body �g��dynwind-winder �g��dynwind-unwinder �g��<dynlet> �g�� dynlet-fluids �g�� dynlet-vals �g�� dynlet-body �g��<dynref> �g�� dynref-fluid �g��<dynset> �g�� dynset-fluid �g�� dynset-exp �g��<prompt> �g�� prompt-tag �g�� prompt-body �g��prompt-handler �g��<abort> �g�� abort-tag �g�� abort-args �g�� abort-tail �g��max �g��filter �g��cdr �g��gensym �f��:LCASE �g�� conditional? �g�� lexical-ref? �f��'fixpoint procedures may not be assigned �g��<tree-analysis> �g��%make-tree-analysis-procedure �g��make-syntax-transformer �� �� �g��make-tree-analysis �g��macro �g�� $sc-dispatch �� �� �g��_ �g��any �� �g�� syntax-object �g��lambda �g��m-a11d84f71ea-1a65 �g��top �� �g��ribcage �g��t-a11d84f71ea-1a60 �g��t-a11d84f71ea-1a61 �g��t-a11d84f71ea-1a62 �g��t-a11d84f71ea-1a63 �g��t-a11d84f71ea-1a64 �� �� �f��l-a11d84f71ea-1a6a �f��l-a11d84f71ea-1a6b �f��l-a11d84f71ea-1a6c �f��l-a11d84f71ea-1a6d �f��l-a11d84f71ea-1a6e �� �� �� �g��x �� �� �f��l-a11d84f71ea-1a67 �� �� �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��leaf �� �� �� �g��down �� �g��up �� �g��post �� �g��init �� �� �g�� make-struct �g��m-a11d84f71ea-1a5e �� �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 #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 0f��l-1e8ba8b5a-df 1f��l-1e8ba8b5a-dd 2f��l-1e8ba8b5a-db 3+,-./012� 4)*3� 5f��l-1e8ba8b5a-da 65� 76� 8  47� 98� :� ; 8� <9:;� =<� >g��each-any ?> @g��syntax-violation A@� B@� Cf��Wrong number of arguments Dg�� identifier? ED� FD� G� HG� I@� J@� Kf��-source expression failed to match any pattern Lg��record-type-vtable ML� NL� Og�� pwpwpwpwpw Pg��default-record-printer QP� RP� S� Tg��set-struct-vtable-name! UT� VT� Wg��vtable-offset-user XW� YW� Zg��%tree-analysis?-procedure [g��tree-analysis? \� ]g��m-a11d84f71ea-1a7a ^]� _g��t-a11d84f71ea-1a79 `_� a^� bf��l-a11d84f71ea-1a7f cb� d`ac� ef��l-a11d84f71ea-1a7c fe� gaf� h^dg�  ih� jg��obj kg��t-1e8ba8b5a-224 lg��t-1e8ba8b5a-21e mg��t-1e8ba8b5a-21f ng��t-1e8ba8b5a-220 og��t-1e8ba8b5a-223 pg��t-1e8ba8b5a-222 qg��t-1e8ba8b5a-221 rklmnopq� sg��m-1e8ba8b5a-225 ts� uttttttt� vf��l-1e8ba8b5a-229 wf��l-1e8ba8b5a-22a xf��l-1e8ba8b5a-22b yf��l-1e8ba8b5a-22c zf��l-1e8ba8b5a-22d {f��l-1e8ba8b5a-22e |f��l-1e8ba8b5a-22f }vwxyz{|� ~ru}� 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 � � dg~47� j� � g��and � g��struct? � � F� g�� struct-vtable � � dg� � � � i� g� Z� g��throw-bad-struct � � g��tree-analysis-leaf g��%tree-analysis-leaf-procedure g��free-id g�� %%on-error g��m-a11d84f71ea-1a86 � � f��l-a11d84f71ea-1a88 � � �  � � � 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 � � 47� � � � g��ck g��err g��s �� � f��l-a11d84f71ea-1a8b f��l-a11d84f71ea-1a8c � �� �  � g��quote  �  �   �    �   � g��%%index � � � f��l-a11d84f71ea-1a90 f��l-a11d84f71ea-1a91 � �� �  � � �  � � � g��%%copier � �  � !f��l-a11d84f71ea-1a95 "f��l-a11d84f71ea-1a96 #!"� $�#� %$�  &%� '%� (g��%%<tree-analysis>-set-fields )$� *()� +'*� ,+� -g��t-a11d84f71ea-1a85 .-� /f��l-a11d84f71ea-1a9a 0/� 1.0� 21�  32� 4147� 54� 65� 7g��if 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� Mg��tree-analysis-down Ng��%tree-analysis-down-procedure Og��m-a11d84f71ea-1aa1 PO� QP� Rf��l-a11d84f71ea-1aa3 SR� TQS� UPT�  VU� WV� XW� YT47� ZY� [Z� \X[� ]PP� ^f��l-a11d84f71ea-1aa6 _f��l-a11d84f71ea-1aa7 `^_� a�]`� bPaT�  cb� db� eaT� fe� gdf� hg� iY� ji� kXj� lf��l-a11d84f71ea-1aab mf��l-a11d84f71ea-1aac nlm� o�]n� pPoT�  qp� rp� soT� t s� urt� vu� wY� xw� yXx� zf��l-a11d84f71ea-1ab0 {f��l-a11d84f71ea-1ab1 |z{� }�]|� ~P}T�  ~� ~� }T� (� � � g��t-a11d84f71ea-1aa0 � f��l-a11d84f71ea-1ab5 � Q� PT�  � T47� � � 7� F� � � T� � � ?� T�  � � � � M� � � � � T� N� g��tree-analysis-up g��%tree-analysis-up-procedure g��m-a11d84f71ea-1abc � � f��l-a11d84f71ea-1abe � � �  � � � 47� � � � � f��l-a11d84f71ea-1ac1 f��l-a11d84f71ea-1ac2 � �� �  � � � � � � � � � f��l-a11d84f71ea-1ac6 f��l-a11d84f71ea-1ac7 � �� �  � � �  � � � � � � f��l-a11d84f71ea-1acb f��l-a11d84f71ea-1acc � �� �  � � � (� � � g��t-a11d84f71ea-1abb � f��l-a11d84f71ea-1ad0 � � �  � 47� � � 7� F� � � � � � ?� �  � � � � � � � � � � � g��tree-analysis-post g��%tree-analysis-post-procedure g��m-a11d84f71ea-1ad7 � � f��l-a11d84f71ea-1ad9 � �� ��  � � � �47� � � �  �  f��l-a11d84f71ea-1adc  f��l-a11d84f71ea-1add    �  �  �  ��  � �  �� � � � � � � f��l-a11d84f71ea-1ae1 f��l-a11d84f71ea-1ae2 � � � ��  � � ��   � ! � "!� #� $#� %$� &f��l-a11d84f71ea-1ae6 'f��l-a11d84f71ea-1ae7 (&'� )� (� *)��  +*� ,*� -)�� .(-� /,.� 0/� 1g��t-a11d84f71ea-1ad6 21� 3f��l-a11d84f71ea-1aeb 43� 524� 65��  76� 85�47� 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� Og��tree-analysis-init Pg��%tree-analysis-init-procedure Qg��m-a11d84f71ea-1af2 RQ� SR� Tf��l-a11d84f71ea-1af4 UT� VSU� WRV�  XW� YX� ZY� [V47� \[� ]\� ^Z]� _RR� `f��l-a11d84f71ea-1af7 af��l-a11d84f71ea-1af8 b`a� c�_b� dRcV�  ed� fd� gcV� hg� ifh� ji� k[� lk� mZl� nf��l-a11d84f71ea-1afc of��l-a11d84f71ea-1afd pno� q�_p� rRqV�  sr� tr� uqV� v u� wtv� xw� y[� zy� {Zz� |f��l-a11d84f71ea-1b01 }f��l-a11d84f71ea-1b02 ~|}� �_~� RV�  � � V� (� � � g��t-a11d84f71ea-1af1 � f��l-a11d84f71ea-1b06 � S� RV�  � V47� � � 7� F� � � V� � � ?� V�  � � � � O� � � � � V� P� g��each � �    g�� %%set-fields g��dummy g��check? g��expr � g��m-a11d84f71ea-1b0d � � f��l-a11d84f71ea-1b12 f��l-a11d84f71ea-1b13 f��l-a11d84f71ea-1b14 f��l-a11d84f71ea-1b15 f��l-a11d84f71ea-1b16 � � � f��l-a11d84f71ea-1b0f � � 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 � � 47�  � � � � M� � � O� � G� G� g��list g�� tree-il-fold g�� tree-il-src g��<binding-info> g��%make-binding-info-procedure g��make-binding-info � g��m-a11d84f71ea-1b75 � g��t-a11d84f71ea-1b73 g��t-a11d84f71ea-1b74 � � f��l-a11d84f71ea-1b7a f��l-a11d84f71ea-1b7b � � � f��l-a11d84f71ea-1b77 � � �  � g��vars � � g��refs � � g��m-a11d84f71ea-1b71 �   47� � �  � � � �� �� g��pwpw � g��%binding-info?-procedure g�� binding-info? g��m-a11d84f71ea-1b84 � g��t-a11d84f71ea-1b83  �  �  f��l-a11d84f71ea-1b89   �     � f��l-a11d84f71ea-1b86 �  �  �  �  ~47� j� � � � � F� � �  � � � �  � !� "!� #g��binding-info-vars $g��%binding-info-vars-procedure %g��m-a11d84f71ea-1b90 &%� '&� (f��l-a11d84f71ea-1b92 )(� *')� +&*�  ,+� -,� .-� /*47� 0/� 10� 2.1� 3&&� 4f��l-a11d84f71ea-1b95 5f��l-a11d84f71ea-1b96 645� 7�36� 8&7*�  98� :8� ;7*� <;� =:<� >=� ?/� @?� A.@� Bf��l-a11d84f71ea-1b9a Cf��l-a11d84f71ea-1b9b DBC� E�3D� F&E*�  GF� HF� IE*� J I� KHJ� LK� M/� NM� O.N� Pf��l-a11d84f71ea-1b9f Qf��l-a11d84f71ea-1ba0 RPQ� S�3R� T&S*�  UT� VT� Wg��%%<binding-info>-set-fields XS*� YWX� ZVY� [Z� \g��t-a11d84f71ea-1b8f ]\� ^f��l-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� zg��binding-info-refs {g��%binding-info-refs-procedure |g��m-a11d84f71ea-1bab }|� ~}� f��l-a11d84f71ea-1bad � ~� }�  � � � 47� � � � }}� f��l-a11d84f71ea-1bb0 f��l-a11d84f71ea-1bb1 � �� }�  � � � � � � � � � f��l-a11d84f71ea-1bb5 f��l-a11d84f71ea-1bb6 � �� }�  � � �  � � � � � � f��l-a11d84f71ea-1bba f��l-a11d84f71ea-1bbb � �� }�  � � � W� � � g��t-a11d84f71ea-1baa � f��l-a11d84f71ea-1bbf � ~� }�  � 47� � � 7� F� � � � � � ?� �  � � � � z� � � � � � {� g��m-a11d84f71ea-1bc6 � � f��l-a11d84f71ea-1bcb f��l-a11d84f71ea-1bcc f��l-a11d84f71ea-1bcd f��l-a11d84f71ea-1bce f��l-a11d84f71ea-1bcf � � � f��l-a11d84f71ea-1bc8 � � 47�  � � � #� z� � g�� string-any g��symbol->string g��gensym? g�� vhash-consq j� j� g��cadr g��fold g�� let-names g�� letrec-names g�� fix-names g��vlist-for-each g�� vhash-assq g��find g��pair? g��warning g��unused-variable g�� vlist-drop g�� vlist-null g��<reference-graph> g��%make-reference-graph-procedure g��make-reference-graph � g��m-a11d84f71ea-1ccf � g��t-a11d84f71ea-1ccc g��t-a11d84f71ea-1ccd �g��t-a11d84f71ea-1cce �� � f��l-a11d84f71ea-1cd4 f��l-a11d84f71ea-1cd5 f��l-a11d84f71ea-1cd6 � � �  f��l-a11d84f71ea-1cd1   �   �   �    �  � � g��defs � g��toplevel-context � � g��m-a11d84f71ea-1cca �    47� � �  � �  �  � � g��pwpwpw  � !g��%reference-graph?-procedure "g��reference-graph? #g��m-a11d84f71ea-1ce0 $#� %g��t-a11d84f71ea-1cdf &%� '$� (f��l-a11d84f71ea-1ce5 )(� *&')� +f��l-a11d84f71ea-1ce2 ,+� -',� .$*-�  /.� 0*-~47� 1j0� 21� 30� 40� 541� 6F0� 70� 871� 9*-� :9� ;68:� <35;� =/2<� >-� ?!>� @g��reference-graph-defs Ag��%reference-graph-defs-procedure Bg��m-a11d84f71ea-1cec CB� DC� Ef��l-a11d84f71ea-1cee FE� GDF� HCG�  IH� JI� KJ� LG47� ML� NM� OKN� PCC� Qf��l-a11d84f71ea-1cf1 Rf��l-a11d84f71ea-1cf2 SQR� T�PS� UCTG�  VU� WU� XTG� YX� ZWY� [Z� \L� ]\� ^K]� _f��l-a11d84f71ea-1cf6 `f��l-a11d84f71ea-1cf7 a_`� b�Pa� cCbG�  dc� ec� fbG� g f� heg� ih� jL� kj� lKk� mf��l-a11d84f71ea-1cfb nf��l-a11d84f71ea-1cfc omn� p�Po� qCpG�  rq� sq� tg��%%<reference-graph>-set-fields upG� vtu� wsv� xw� yg��t-a11d84f71ea-1ceb zy� {f��l-a11d84f71ea-1d00 |{� }zD|� ~C}G�  ~� }G47� � � 7� F� � � }G� � � ?� }G�  � � � � @� � � � � G� A� g��reference-graph-refs g��%reference-graph-refs-procedure g��m-a11d84f71ea-1d07 � � f��l-a11d84f71ea-1d09 � � �  � � � 47� � � � � f��l-a11d84f71ea-1d0c f��l-a11d84f71ea-1d0d � �� �  � � � � � � � � � f��l-a11d84f71ea-1d11 f��l-a11d84f71ea-1d12 � �� �  � � �  � � � � � � f��l-a11d84f71ea-1d16 f��l-a11d84f71ea-1d17 � �� �  � � � t� � � g��t-a11d84f71ea-1d06 � f��l-a11d84f71ea-1d1b � � �  � 47� � � 7� F� � � � � � ?� �  � � � � � � � � � � � g�� reference-graph-toplevel-context g��+%reference-graph-toplevel-context-procedure g��m-a11d84f71ea-1d22 � � f��l-a11d84f71ea-1d24 � � �  � � � 47� � � � � f��l-a11d84f71ea-1d27 f��l-a11d84f71ea-1d28 �� ��� �  � � � � � �  �   �   �  f��l-a11d84f71ea-1d2c  f��l-a11d84f71ea-1d2d   � �� �  � � �  � � � � � � f��l-a11d84f71ea-1d31 f��l-a11d84f71ea-1d32 � �� �  �  � !� "t!� # "� $#� %g��t-a11d84f71ea-1d21 &%� 'f��l-a11d84f71ea-1d36 ('� )&(� *)�  +*� ,)47� -,� .-� /7,� 0F,� 1,� 21-� 3)� 43� 5024� 6?,� 7)� 8 7� 96-8� :,� ;,� <3� =;<� >:-=� ?/59>� @+.?� A� BA� Cg��m-a11d84f71ea-1d3d DC� ED� Ff��l-a11d84f71ea-1d42 Gf��l-a11d84f71ea-1d43 Hf��l-a11d84f71ea-1d44 If��l-a11d84f71ea-1d45 Jf��l-a11d84f71ea-1d46 KFGHIJ� LEK� MD� Nf��l-a11d84f71ea-1d3f ON� PMO� QLP47�  RQ� SLP� TS� U@S� VS� WS� XUVW� Yg��and=> Zg��graph-reachable-nodes [g�� vlist-fold \g��graph-reachable-nodes* ]g�� partition* ^g��toplevel-define-name _g��toplevel-define-src `g��toplevel-set-name ag��toplevel-set-src bg��module? cg��module-variable dg��module-public-interface eg��macro? fg�� vlist-filter gg��unused-toplevel hg��<toplevel-ref> ig��toplevel-ref-name jg��toplevel-ref-src kg��<toplevel-info> lg��%make-toplevel-info-procedure mg��make-toplevel-info ng��m-a11d84f71ea-1e83 on� pg��t-a11d84f71ea-1e81 qg��t-a11d84f71ea-1e82 rpq� soo� tf��l-a11d84f71ea-1e88 uf��l-a11d84f71ea-1e89 vtu� wrsv� xo� yf��l-a11d84f71ea-1e85 zy� {xz� |ow{�  }|� ~w{� ~� ~� � g��m-a11d84f71ea-1e7f � w{  47� � k~�  � � }� {� l� � g��%toplevel-info?-procedure g��toplevel-info? g��m-a11d84f71ea-1e92 � g��t-a11d84f71ea-1e91 � � f��l-a11d84f71ea-1e97 � � f��l-a11d84f71ea-1e94 � � �  � ~47� j� � � � � F� � � � k� � � � � � g��toplevel-info-refs g��%toplevel-info-refs-procedure g��m-a11d84f71ea-1e9e � � f��l-a11d84f71ea-1ea0 � � �  � � � 47� � � � � f��l-a11d84f71ea-1ea3 f��l-a11d84f71ea-1ea4 � �� �  � � � k� � � � � � f��l-a11d84f71ea-1ea8 f��l-a11d84f71ea-1ea9 � �� �  � � �  � � � � � � f��l-a11d84f71ea-1ead f��l-a11d84f71ea-1eae � �� �  � � g��%%<toplevel-info>-set-fields � � � � g��t-a11d84f71ea-1e9d � f��l-a11d84f71ea-1eb2 � � �  � 47� � � 7� F� � � � k� � ?� �  � � � � � � � � �� � � g��toplevel-info-defs g��%toplevel-info-defs-procedure g��m-a11d84f71ea-1eb9 � � f��l-a11d84f71ea-1ebb  �   �   �    �   �  �  47� � � � � f��l-a11d84f71ea-1ebe f��l-a11d84f71ea-1ebf � ��  �  � �  � k� � � �  � ! � "f��l-a11d84f71ea-1ec3 #f��l-a11d84f71ea-1ec4 $"#� %�$� &% �  '&� (&� )% � * )� +(*� ,+� -� .-� /.� 0f��l-a11d84f71ea-1ec8 1f��l-a11d84f71ea-1ec9 201� 3�2� 43 �  54� 64� 73 � 87� 968� :9� ;g��t-a11d84f71ea-1eb8 <;� =f��l-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� Yg��m-a11d84f71ea-1ed4 ZY� [Z� \f��l-a11d84f71ea-1ed9 ]f��l-a11d84f71ea-1eda ^f��l-a11d84f71ea-1edb _f��l-a11d84f71ea-1edc `f��l-a11d84f71ea-1edd a\]^_`� b[a� cZ� df��l-a11d84f71ea-1ed6 ed� fce� gbf47�  hg� ibf� jki� ki� li� mkl� ng��<const> og��toplevel-define! pg��resolve-module qg��oop rg��goops sqr� tg�� <module-ref> ug��goops-toplevel-definition vg�� vhash-delq wg��unbound-variable xg�� vlist-reverse yg�� <arity-info> zg��%make-arity-info-procedure {g��make-arity-info |g��m-a11d84f71ea-2136 }|� ~g��t-a11d84f71ea-2133 g��t-a11d84f71ea-2134 g��t-a11d84f71ea-2135 ~� }}}� f��l-a11d84f71ea-213b f��l-a11d84f71ea-213c f��l-a11d84f71ea-213d � � }� f��l-a11d84f71ea-2138 � � }�  � g��toplevel-calls � � g��lexical-lambdas � g��toplevel-lambdas � � g��m-a11d84f71ea-2131 �   47� � y�  � � � � z� � g��%arity-info?-procedure g�� arity-info? g��m-a11d84f71ea-2147 � g��t-a11d84f71ea-2146 � � f��l-a11d84f71ea-214c � � f��l-a11d84f71ea-2149 � � �  � ~47� j� � � � � F� � � � y� � � � � � g��toplevel-procedure-calls g��#%toplevel-procedure-calls-procedure g��m-a11d84f71ea-2153 � � f��l-a11d84f71ea-2155 � � �  � � � 47� � � � � f��l-a11d84f71ea-2158 f��l-a11d84f71ea-2159 � �� �  � � � y� � � � � � f��l-a11d84f71ea-215d f��l-a11d84f71ea-215e � �� �  � � �  � � � � � � f��l-a11d84f71ea-2162 f��l-a11d84f71ea-2163 � �� �  � � g��%%<arity-info>-set-fields � � � � g��t-a11d84f71ea-2152 � f��l-a11d84f71ea-2167 � � �  � �47� �� � 7�� F�� �� � � y�  �  ?��  �    �    � �� �� � � �   � � � � g��%lexical-lambdas-procedure g��m-a11d84f71ea-216e � � f��l-a11d84f71ea-2170 � � �  �  � ! � "47� #"� $#� %!$� &� 'f��l-a11d84f71ea-2173 (f��l-a11d84f71ea-2174 )'(� *�&)� +*�  ,+� -+� .*� /y.� 0-/� 10� 2"� 32� 4!3� 5f��l-a11d84f71ea-2178 6f��l-a11d84f71ea-2179 756� 8�&7� 98�  :9� ;9� <8� = <� >;=� ?>� @"� A@� B!A� Cf��l-a11d84f71ea-217d Df��l-a11d84f71ea-217e ECD� F�&E� GF�  HG� IG� JF� KJ� LIK� ML� Ng��t-a11d84f71ea-216d ON� Pf��l-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 mg��m-a11d84f71ea-2189 nm� on� pf��l-a11d84f71ea-218b qp� roq� snr�  ts� ut� vu� wr47� xw� yx� zvy� {nn� |f��l-a11d84f71ea-218e }f��l-a11d84f71ea-218f ~|}� �{~� nr�  � � r� y� � � w� � v� f��l-a11d84f71ea-2193 f��l-a11d84f71ea-2194 � �{� nr�  � � r�  � � � w� � v� f��l-a11d84f71ea-2198 f��l-a11d84f71ea-2199 � �{� nr�  � � r� � � � g��t-a11d84f71ea-2188 � f��l-a11d84f71ea-219d � o� nr�  � r47� � � 7� F� � � r� y� � ?� r�  � � � � � � � � � r� l� g��m-a11d84f71ea-21a4 � � f��l-a11d84f71ea-21a9 f��l-a11d84f71ea-21aa f��l-a11d84f71ea-21ab f��l-a11d84f71ea-21ac f��l-a11d84f71ea-21ad � � � f��l-a11d84f71ea-21a6 � � 47�  � � y� � � � � g��program? g��procedure-name g�� arity:nreq g�� arity:nopt g�� arity:rest? g��car g��arity:kw g��arity:allow-other-keys? g��program-arities g�� procedure? g��procedure-minimum-arity g�� lambda-meta g�� assoc-ref g��const? g�� const-exp g��keyword? g��arity-mismatch g��with-output-to-string g��write g��validate-arity g��application-src g�� vlist-tail g��catch � � g�� module-ref g�� toplevel-ref? g��lambda? f��format-string-syntax-error g�� &syntax-error g��throw g��unterminated-conditional g��tilde g��literal g�� take-while 0123456789�  g��string->number g�� list->string g��every g��number? g��list-ref �g��min g��unexpected-semicolon g��"unexpected-conditional-termination g��unterminated-iteration g��unexpected-termination f��computer bought the farm g�� string->list g��format-string-argument-count g��resolve-interface g��ensureS g�� proc-ref? g��gettext g��gettext? g��ngettext g��N_ g�� ngettext? g��string? g�� const-fmt g��boolean? g��format g�� wrong-port g��negate g��non-literal-format-string z� z� f��no matching pattern g��wrong-format-string g��wrong-num-args g��wrong-format-arg-count g�� syntax-error g�� make-const ASas~%� g�� simple-format ! � " � # � $ ! � % ! �C�5��hT�k��]04    23;5�4>�>��"��G���?@����h(������] 45�4�>��"��G��C�������������g��k  "�g��v  "�g��res   "��g��filenamef��language/tree-il/analyze.scm �  �  �  � �  " ��g��nameg�� make-hashq�CARh������]L�L�6���{�������g��y  ��g��filenamef��language/tree-il/analyze.scm �  � & � �  ��g��nameg��step�CBCDEFGHIJKLM@NOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstu@�����h���k���]M��6�����c�������g��sym  ��g��filenamef��language/tree-il/analyze.scm    �  ���Cvwxy@�������h���|���]M��6����t�������g��sym  �g��val  ��g��filenamef��language/tree-il/analyze.scm    #�  ���CdW@jeNz{� �������h�����]�&��o4�54M��>��"��G��4L�4LL554M��44M��55>��"��G��4M�>��"��G��C�6��������g��x  ��g��rtd  ��g��body   ~�g��free  A ~��g��filenamef��language/tree-il/analyze.scm          . %   . �  5 �  A �  A   D !  K ! 0 N ! : X ! 0 ] !  f "  �  �  � ���C|}uN@��h0������]4M�5$��4M�>��"��G��L��6C����~�������g��sym  ,��g��filenamef��language/tree-il/analyze.scm *   + !  +   - # * . #�  , ���C�������h(������] 4L��5$��LLO�6C�����������g��sym  $�g��refs $��g��filenamef��language/tree-il/analyze.scm '  (  (  ) " * �  $ ��g��nameg��delabel-dependents!�CN���h���}���]4M�5$��CL��6�u�������g��sym  ��g��filenamef��language/tree-il/analyze.scm =   >   >   ? �   ���CN@j~�������hX������]4M�5$��G4M�L44M�54M�L55>��"��G��4M�>��"��G��M6C�������g��sym  X�g��val  X��g��filenamef��language/tree-il/analyze.scm D  E   E  I   J   J & # K & - J  2 I  ; L  V M �  X ���C�Z�������h�� ��]MO�LQ��&��:4�54�54L$��"��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&��P4�54�54M�>��"��G��4M>��"��G��4L56&��4�5�"&��4 �5�"!&��4"�5�"d#&��m4$�5"��U(��C(��  4L 5 64  4L 5 5 " "%&��h4�54M�>��"��G��4L�54M�4&4M�55>��"��G��4M�>��"��G��C'&��4(�54)�54*�54�5  4�>��"��G��4�>��"��G��4M4+4,54M55>��"��G��4-4445?4L 555 $��4L 5"��6.&��j4/�540�541�5 4M4+4,54M55>��"��G��-44L 545?62&��43�544�545�5 4M4+4,54M55>��"��G��467L�O�>��"��G��-44L 545?68&��49�54:�54;�5 46<LO�>��"��G��4M4+4,54M55>��"��G��4=LLLO�5 4> 5 4L 4+55 ?O�  L Q� 46@ LO�>��"��G��46ALLLO�>��"��G��-4  ?6B&��04C�54D�54L54L56E&��E4F�54G�54H�5 4L54L54L 56I&��=4J�54K�54L�5 4L 544+55@M&��4N�5�"O&��04P�54Q�54L54L56R&��G4S�54T�54U�5 4L54L54L 56V&��B4W�54X�54Y�5 4L54L 545@C��� ������g��x   �g��proc   �g��labels-in-proc    �g��tail?    �g��tail-call-args    �g��step   �g��rtd    �g��proc  - Y�g��args  - Y�g��test  v ��g�� consequent  v ��g�� alternate v ��g��gensym  � �g��p   �g��c  �g��t u �g��gensym   ,�g��exp   ,�g��exp  ; R�g��exp  a x�g��exp   �g��exps   �g��exps   �g��ret  �g��y  �g��y  �g��body  " �g��free  F �g��inits   I�g��gensyms   I�g��body  I�g�� alternate  I�g��gensyms  f �g��vals  f �g��body f �g��gensyms   F�g��vals   F�g��body  F�g��gensyms  c J�g��vals  c J�g��body c J�g��var-refs  J�g��vars-with-refs  J�g�� body-refs  J�g��delabel-dependents!  J�g��exp  ` �g��body  ` �g��body   �g��winder   �g��unwinder  �g��fluids   �g��vals   �g��body  �g��fluid  # :�g��fluid  P r�g��exp  P r�g��tag   �g��body   �g��handler  �g��tag    �g��args    �g��tail   ��>g��filenamef��language/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 �   ��g��nameg��analyze!�C����h���{���]L�LL�6����s�������g��y  ��g��filenamef��language/tree-il/analyze.scm p  p �  ��g��nameg��recur�CBCDGHIJKXZ\]^_`abcdW@NN�h���r���]4M�5L�6�������j�������g��v  ��g��filenamef��language/tree-il/analyze.scm       �   ���CN����h���t���]�4M��5C�l�������g��sym  ��g��filenamef��language/tree-il/analyze.scm  "   .   $�   ���CfghiVST����h���i���]L�LL�6����a�������g��x  ��g��filenamef��language/tree-il/analyze.scm  !  -�  ���CAmnopQMqrst�������h���i���]L�LL�6����a�������g��x  ��g��filenamef��language/tree-il/analyze.scm  %  '�  ���Cvwxyz{jP�V�hx����]kO�LQ��&��*4�54�54L545@&��@4�54 �54 �54L54L54L56 &��4 �5�"M &��4�5�",&��4�5�" &��4�5�"&��4�545@&��4�5"��D$��944M5�4M5>��"��G��""��4M�5 "4LO�4M�5544LO�4M��5554L� >��"��G��4M�>��"��G��C&��4�54�54 �54!�54"�>��"��G��4#�>��"��G��"�� (��K44L 54$ LO�5? 4M�4%&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>��"��G��4L4 556"""0&��41�542�543�5"��l(��*444 LO�5?  4L 56 4M 4'4M 5 5>��"��G��  " "5&�C46�547�548�5"�(��"�� (�� 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@�54A�54B�54L54L54L56C&��:4D�54E�54F�54L544G55@H&��4I�5�"J&��,4K�54L�54L54L56M&��4N�54O�54P�54Q5$��45$�� 45"��"��4M�$��4M 5 "��>��"��G��4L54L54L56R&��>4S�54T�54U�54L54L545@C���������g��x  u�g��proc  u�g��n   u�g��recur  u�g��rtd   u�g��proc  0 L�g��args  0 L�g��test  i ��g�� consequent  i ��g�� alternate  i ��g��exp  � ��g��exp  � ��g��exp  � ��g��exp   �g��exps  ' 6�g��body  E �g��c  K �g��n  K �g��free-addresses    �g��labels    �g��inits  3 �g��gensyms  3 �g��body  3 �g�� alternate  3 �g��gensyms e �g��n e �g��nlocs  �g��gensyms  1 �g��vals  1 �g��body  1 �g��nmax  E �g��gensyms O �g��n O �g��v i �g��v  F�g��gensyms   0�g��vals   0�g��body   0�g��gensyms   $�g��n  $�g��nmax  �g��v  $�g��gensyms  M {�g��vals  M {�g��body  M {�g��in  W o�g��n W o�g��gensyms a �g��vals a �g��nmax a �g��r  �g��rtd   �g��body   �g��v  o�g��exp   �g��body   �g��body   �g��winder   �g��unwinder   �g��fluids   9�g��vals   9�g��body   9�g��fluid  H Z�g��fluid  p �g��exp  p �g��tag   ,�g��body   ,�g��handler   ,�g��cont-var   ,�g��tag  I r�g��args  I r�g��tail  I r��Hg��filenamef��language/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 ��g��nameg�� allocate!�C?��������h�����]AHHHHHHO�O�Q�Q�45�K45�K45�K45�K45�K45�K4�>��"��G��4� >��"��G��JC��������g��x  ��g�� bound-vars  ��g�� free-vars   ��g��assigned   ��g�� refcounts   ��g��labels   ��g�� allocation   ��g��analyze!  / ��g�� allocate!  / ��� g��filenamef��language/tree-il/analyze.scm � P �  W �  ^ �  e �  l �  s m  z   �   �   �  �  � ��g��nameg��analyze-lexicals�C4R��������h������]��C�������������g��leaf  �g��down  �g��up   �g��post   �g��init   ��g��filenamef��language/tree-il/analyze.scm # �   ��g��nameg��%make-tree-analysis-procedure�CR4=��������h������]��C�������������g��t-a11d84f71ea-1a60  �g��t-a11d84f71ea-1a61  �g��t-a11d84f71ea-1a62   �g��t-a11d84f71ea-1a63   �g��t-a11d84f71ea-1a64   ��   ���C?BC�������h���`���]L�6����X�������g��a  ��g��filenamef��language/tree-il/analyze.scm  # �  ���CF�������h���P���]�L�6H�������g��filenamef��language/tree-il/analyze.scm  # �   ���CH�h������]�C����������   ���CJK� �����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��language/tree-il/analyze.scm # �  n ���C5RNORS��4V�>��"��G��� Yi��R������h������]�$���CC�������������g��obj  ��g��filenamef��language/tree-il/analyze.scm # �   ��g��nameg��%tree-analysis?-procedure�CZR4[\��������h���:���]��C������2�������g��t-a11d84f71ea-1a79  ��  ���C?B[C������h���`���]L�6����X�������g��a  ��g��filenamef��language/tree-il/analyze.scm  # �  ���CF�������h���P���]�L�6H�������g��filenamef��language/tree-il/analyze.scm  # �   ���C�h������]�C����������   ���CJK� �����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��language/tree-il/analyze.scm # �  n ���C5[R�����h������]�&��� C�6�������g��s  ��g��filenamef��language/tree-il/analyze.scm # �   ��g��nameg��%tree-analysis-leaf-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\J����h���:���]��C������2�������g��t-a11d84f71ea-1a85  ��  ���C?BC������h���`���]L�6����X�������g��a  ��g��filenamef��language/tree-il/analyze.scm  # �  ���CF�������h���P���]�L�6H�������g��filenamef��language/tree-il/analyze.scm  # �   ���CL�h������]�C����������   ���CJK������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��language/tree-il/analyze.scm # �  � ���C5RM�h������]�&��� C�6�������g��s  ��g��filenamef��language/tree-il/analyze.scm # �   ��g��nameg��%tree-analysis-down-procedure�CNR4M\ch���h���:���]C�����2�������g��err  �g��s  ��  ���Ckqv�h���:���]C�����2�������g��err  �g��s  ��  ���Cy�h���:���]C�����2�������g��err  �g��s  ��  ���C\����h���:���]��C������2�������g��t-a11d84f71ea-1aa0  ��  ���C?BMC������h���`���]L�6����X�������g��a  ��g��filenamef��language/tree-il/analyze.scm  # �  ���CF�������h���P���]�L�6H�������g��filenamef��language/tree-il/analyze.scm  # �   ���C�h������]�C����������   ���CJK������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��language/tree-il/analyze.scm # �  � ���C5MR�h ������]�&��� C�6��������������g��s  ��g��filenamef��language/tree-il/analyze.scm # �   ��g��nameg��%tree-analysis-up-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���:���]��C������2�������g��t-a11d84f71ea-1abb  ��  ���C?BC������h���`���]L�6����X�������g��a  ��g��filenamef��language/tree-il/analyze.scm  # �  ���CF�������h���P���]�L�6H�������g��filenamef��language/tree-il/analyze.scm  # �   ���C�h������]�C����������   ���CJK������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��language/tree-il/analyze.scm # �  � ���C5R�h ������]�&��� C�6��������������g��s  ��g��filenamef��language/tree-il/analyze.scm # �   ��g��nameg��%tree-analysis-post-procedure�CR4���h���:���]C�����2�������g��err  �g��s  ��  ���C"�h���:���]C�����2�������g��err  �g��s  ��  ���C%+0�h���:���]C�����2�������g��err  �g��s  ��  ���C\L����h���:���]��C������2�������g��t-a11d84f71ea-1ad6  ��  ���C?BC������h���`���]L�6����X�������g��a  ��g��filenamef��language/tree-il/analyze.scm  # �  ���CF�������h���P���]�L�6H�������g��filenamef��language/tree-il/analyze.scm  # �   ���CN�h������]�C����������   ���CJK������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��language/tree-il/analyze.scm # �  � ���C5RO�h ������]�&��� C�6��������������g��s  ��g��filenamef��language/tree-il/analyze.scm # �   ��g��nameg��%tree-analysis-init-procedure�CPR4O^ej���h���:���]C�����2�������g��err  �g��s  ��  ���Cmsx�h���:���]C�����2�������g��err  �g��s  ��  ���C{�h���:���]C�����2�������g��err  �g��s  ��  ���C\����h���:���]��C������2�������g��t-a11d84f71ea-1af1  ��  ���C?BOC������h���`���]L�6����X�������g��a  ��g��filenamef��language/tree-il/analyze.scm  # �  ���CF�������h���P���]�L�6H�������g��filenamef��language/tree-il/analyze.scm  # �   ���C�h������]�C����������   ���CJK������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��language/tree-il/analyze.scm # �  � ���C5OR4(����h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���CJK�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��language/tree-il/analyze.scm # �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5(RG���h������]4L�5LLL�6������������g��analysis  �g��result  ��g��filenamef��language/tree-il/analyze.scm 9   :   : �   ���C��������h(������] 4L�L�O�L5C�������������g��x  "�g��results  "�g��locs   "��g��filenamef��language/tree-il/analyze.scm 6   7 !  7  9   <  9  ! 8 �  " ���CNGh������]4L�5LLL�6������������g��analysis  �g��result  ��g��filenamef��language/tree-il/analyze.scm 9   :   : �   ���C��������h8������] 4�54L�L�O�L5C��������������g��x  1�g��results  1�g��locs   �g��locs   1��g��filenamef��language/tree-il/analyze.scm 6   7 !  7   @ %  @   7   9  - <  / 9  0 8 �  1 ���CG������h������]4L�5LLL�6������������g��analysis  �g��result  ��g��filenamef��language/tree-il/analyze.scm 9   :   : �   ���C��������h0������] 4L�L�O�L5C�������������g��x  *�g��results  *�g��locs   �g��locs  *��g��filenamef��language/tree-il/analyze.scm 6   7 !  7  A  7   9  & <  ( 9  ) 8 �  * ���CGPu����h(������]�&�� � "�� 4�5L�6�����|�������g��analysis  #�g��result  #��g��filenamef��language/tree-il/analyze.scm K   L �  # ���C� hp�����] 4�O��O��O�4 �554  O��>��"��G��C��������g��analyses  n�g��tree  n�g��env   n�g��proc   �g��proc   )�g��proc  + ;�g��results  J k��g��filenamef��language/tree-il/analyze.scm ,  D  D   E  + F  < G  = H  F G  J D J C  M K  [ N  ` K �  n ��g��nameg�� analyze-treeg�� documentationf�hRun 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.�C5R�������h������]��C�����������g��vars  �g��refs  ��g��filenamef��language/tree-il/analyze.scm Z �  ��g��nameg��%make-binding-info-procedure�CR4��h���Z���]��C����R�������g��t-a11d84f71ea-1b73  �g��t-a11d84f71ea-1b74  ��  ���C?BC������h���`���]L�6����X�������g��a  ��g��filenamef��language/tree-il/analyze.scm  Z �  ���CF�������h���P���]�L�6H�������g��filenamef��language/tree-il/analyze.scm  Z �   ���C�h������]�C����������   ���CJK� �����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��language/tree-il/analyze.scm Z �  n ���C5RNR��4V�>��"��G��� Yi��R��������h������]�$���CC������~�������g��obj  ��g��filenamef��language/tree-il/analyze.scm Z �   ��g��nameg��%binding-info?-procedure�CR4\ �h���:���]��C������2�������g��t-a11d84f71ea-1b83  ��  ���C?BC������h���`���]L�6����X�������g��a  ��g��filenamef��language/tree-il/analyze.scm  Z �  ���CF�������h���P���]�L�6H�������g��filenamef��language/tree-il/analyze.scm  Z �   ���C"�h������]�C����������   ���CJK� �����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��language/tree-il/analyze.scm Z �  n ���C5R#����h������]�&��� C�6�������g��s  ��g��filenamef��language/tree-il/analyze.scm Z �   ��g��nameg��%binding-info-vars-procedure�C$R4#29>����h���:���]C�����2�������g��err  �g��s  ��  ���CAGL�h���:���]C�����2�������g��err  �g��s  ��  ���COU[�h���:���]C�����2�������g��err  �g��s  ��  ���C\w����h���:���]��C������2�������g��t-a11d84f71ea-1b8f  ��  ���C?B#C������h���`���]L�6����X�������g��a  ��g��filenamef��language/tree-il/analyze.scm  Z �  ���CF�������h���P���]�L�6H�������g��filenamef��language/tree-il/analyze.scm  Z �   ���Cy�h������]�C����������   ���CJK������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��language/tree-il/analyze.scm Z �  � ���C5#Rz��������h������]�&��� C�6�������g��s  ��g��filenamef��language/tree-il/analyze.scm Z �   ��g��nameg��%binding-info-refs-procedure�C{R4z����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������2�������g��t-a11d84f71ea-1baa  ��  ���C?BzC������h���`���]L�6����X�������g��a  ��g��filenamef��language/tree-il/analyze.scm  Z �  ���CF�������h���P���]�L�6H�������g��filenamef��language/tree-il/analyze.scm  Z �   ���C�h������]�C����������   ���CJK������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��language/tree-il/analyze.scm Z �  � ���C5zR4W����h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���CJK�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��language/tree-il/analyze.scm Z �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5WR�����h������] 4�56��������g��sym  ��g��filenamef��language/tree-il/analyze.scm `  b   b �   ��g��nameg��gensym?�CRz#XYfRSUThgG������h������]�L��6��������������g��var  �g��name  �g��vars   ��g��filenamef��language/tree-il/analyze.scm w  x "  x �   ���Cmn��h������]�L��6��������������g��var  �g��name  �g��vars   ��g��filenamef��language/tree-il/analyze.scm w  x "  x �   ���Cqr��h������]�L��6��������������g��var  �g��name  �g��vars   ��g��filenamef��language/tree-il/analyze.scm w  x "  x �   ���Cvw��h������]�L��6��������������g��var  �g��name  �g��vars   ��g��filenamef��language/tree-il/analyze.scm w  x "  x �   ���C�!����h����]\&�� "�� 45&�� "�� 454�5�&��4�545  �C &��4 �54 �54 �54 �54�5    4�>��"��G��44 $�� "��4 $��  �"�� $��4 5"��555 4O�  5�C&��04�54�5 4O� 5  �C&��04�54�5 4O� 5  �C&��04�54�5 4 O� 5  �CC����������g��x  �g��info  �g��env   �g��locs   �g��refs  = �g��vars  = �g��src  = �g��rtd  F �g��gensym  W o�g��refs c o�g��req  � �g��opt � �g��rest � �g��kw � �g��gensyms � �g��names � �g��vars   �g��gensyms  / Q�g��names / Q�g��vars E Q�g��gensyms  g �g��names g �g��vars } �g��gensyms   �g��names  �g��vars  ��g��filenamef��language/tree-il/analyze.scm p   s   t  7 u  = s  F }  Z  " c  w }  �   �   �  # �   �   �  $ �  0 �   �  " �  , �  " �  6 �   �  � w   ! }  4 w E  Y }  l w }   }   w   �#   ���C�z#OP� h���p��]�4L5$��m4L�5$��"��4L5$��M��$��"�� 4L545$��"��$��  6CCC�����h������g��var  ��g��gensym  ��g��t  ; U�g��name  U �g��loc  U ��g��filenamef��language/tree-il/analyze.scm                !   '   .   2   5   9  " ;   J  " U   Z  " d   m  , n  " o   s   w  ! }  �  � ���CQ��������h0������]4LL�O�L�>��"��G��L�4�56���������g�� inner-vars  .�g��refs  .��g��filenamef��language/tree-il/analyze.scm     &   .  �  . ��g��nameg��shrink�Cfhmnqrvw����h�����]4&�� "�� 45&�� "�� 45O��Q��&��4�545  �C&��4 �545  �C &��4 �545  �C &��4 �545  �CC���������g��x  ��g��info  ��g��env   ��g��locs   ��g��refs  6 ��g��vars  6 ��g��shrink  D ��g��rtd  P ��g��gensyms  a x�g��vars l x�g��gensyms  � ��g��vars � ��g��gensyms  � ��g��vars � ��g��gensyms  � ��g��vars � ���g��filenamef��language/tree-il/analyze.scm         6   P   d   l  �   �   �  �   �   �  �   �   �  �  � ���Ciii�iz#LM��hp���&��],&�� "�� 45&�� "�� 45�&��4�545�CC�������������g��x  i�g��info  i�g��env   i�g��locs   i�g��refs  6 i�g��vars  6 i�g��rtd  = i�g��gensym  N f�g��refs  Z f�� g��filenamef��language/tree-il/analyze.scm g   i   j  6 i  = k  Q m " Z m �  i ���C�����h���v���]C����n�������g��result  �g��env  ��g��filenamef��language/tree-il/analyze.scm  �   ���C��6R��h������]��C���������g��refs  �g��defs  �g��toplevel-context   ��g��filenamef��language/tree-il/analyze.scm  �   ��g��nameg��%make-reference-graph-procedure�CR4�h���z���]��C��r�������g��t-a11d84f71ea-1ccc  �g��t-a11d84f71ea-1ccd  �g��t-a11d84f71ea-1cce   ��   ���C?BC������h���`���]L�6����X�������g��a  ��g��filenamef��language/tree-il/analyze.scm   �  ���CF�������h���P���]�L�6H�������g��filenamef��language/tree-il/analyze.scm   �   ���C�h������]�C����������   ���CJK� �����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��language/tree-il/analyze.scm  �  n ���C5RNR ��4V�>��"��G��� Yi��R��������h������]�$���CC�������������g��obj  ��g��filenamef��language/tree-il/analyze.scm  �   ��g��nameg��%reference-graph?-procedure�C!R4"\=������h���:���]��C������2�������g��t-a11d84f71ea-1cdf  ��  ���C?B"C������h���`���]L�6����X�������g��a  ��g��filenamef��language/tree-il/analyze.scm   �  ���CF�������h���P���]�L�6H�������g��filenamef��language/tree-il/analyze.scm   �   ���C?�h������]�C����������   ���CJK� �����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��language/tree-il/analyze.scm  �  n ���C5"R@����h������]�&��� C�6�������g��s  ��g��filenamef��language/tree-il/analyze.scm  �   ��g��nameg��%reference-graph-defs-procedure�CAR4@OV[�h���:���]C�����2�������g��err  �g��s  ��  ���C^di�h���:���]C�����2�������g��err  �g��s  ��  ���Clrx�h���:���]C�����2�������g��err  �g��s  ��  ���C\����h���:���]��C������2�������g��t-a11d84f71ea-1ceb  ��  ���C?B@C������h���`���]L�6����X�������g��a  ��g��filenamef��language/tree-il/analyze.scm   �  ���CF�������h���P���]�L�6H�������g��filenamef��language/tree-il/analyze.scm   �   ���C�h������]�C����������   ���CJK������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��language/tree-il/analyze.scm  �  � ���C5@R��������h������]�&��� C�6�������g��s  ��g��filenamef��language/tree-il/analyze.scm  �   ��g��nameg��%reference-graph-refs-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���:���]��C������2�������g��t-a11d84f71ea-1d06  ��  ���C?BC������h���`���]L�6����X�������g��a  ��g��filenamef��language/tree-il/analyze.scm   �  ���CF�������h���P���]�L�6H�������g��filenamef��language/tree-il/analyze.scm   �   ���C�h������]�C����������   ���CJK������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��language/tree-il/analyze.scm  �  � ���C5R��������h ������]�&��� C�6��������������g��s  ��g��filenamef��language/tree-il/analyze.scm  �   ��g��nameg��+%reference-graph-toplevel-context-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���:���]��C������2�������g��t-a11d84f71ea-1d21  ��  ���C?BC������h���`���]L�6����X�������g��a  ��g��filenamef��language/tree-il/analyze.scm   �  ���CF�������h���P���]�L�6H�������g��filenamef��language/tree-il/analyze.scm   �   ���CB�h������]�C����������   ���CJK������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��language/tree-il/analyze.scm  �  � ���C5R4tRTX����h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���CJK�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��language/tree-il/analyze.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5tRY�����h������]L�L�6����w�������g��kid  �g��result  ��g��filenamef��language/tree-il/analyze.scm    !�  ���C��h������]�6�����w�������g��kid  �g��result  ��g��filenamef��language/tree-il/analyze.scm    �  ���C������h���{��]4�5$��"�� 4�5$��C44�L55$��"��4�54L�O�56�������s������g��root  y�g��path  y�g��result   y�g��t  $�g��t  ; M�g��children  M y�g��path  Y y�g��result  m y��g��filenamef��language/tree-il/analyze.scm         (   ,   /  $ ;   ;   J  @ M   P   Y   \   m   y  �  y ��g��nameg��loop�C�������h ������] O�Q��6�����������g��root  �g��refs  �g�� reachable   �g��loop  ��g��filenamef��language/tree-il/analyze.scm   �   ��g��nameg��graph-reachable-nodes�CZR[Z������h ������]�4L�56����������g�� root+true  �g��result  �g��root   �g�� reachable   ��g��filenamef��language/tree-il/analyze.scm     "      "      �   ���C��������h������]O��6��������������g��roots  �g��refs  ��g��filenamef��language/tree-il/analyze.scm    �   ��g��nameg��graph-reachable-nodes*�C\R[��������h@�����]"��4L�5$��45C45C�������g��k+v  ?�g��result  ?�g��k   ?�g��v   ?�g��r1   ?�g��r2   ?��g��filenamef��language/tree-il/analyze.scm     !   !  !   !       !   "  # /   3  & >  �  ? ���C���h ������] 4�O�5D��������g��pred  �g��vhash  �g��result   ��g��filenamef��language/tree-il/analyze.scm                   �   ��g��nameg�� partition*�C]R@Y� ������h�����]*�&��� "�� 4�5�&��� "�� 4�5�&�� � "�� 4�54455$��"��4 5�C�������g��graph  ��g��name  ��g��refs   ��g��defs  8 ��g��ctx  U ��g��t  g y�g��ctx-refs  y ��g��refs  � ���g��filenamef��language/tree-il/analyze.scm       !   8  =   U  X  [  ' g  g   v  B y  |  # �  4 �  # �  �  � ��g��nameg��add-ref-from-context�C�@`^_^`a���h�����]4&�� "�� 45&�� "�� 45&��  "��4>��"��G���&��>4�54�54 $��"�� 4  55  �C &��#4 �54�>��"��G��L�6C������������g��x  ��g��graph  ��g��env   ��g��locs   ��g��refs  6 ��g��defs  6 ��g��rtd  d ��g��name  | ��g��src  | ��g��defs � ��g��name  � ��� g��filenamef��language/tree-il/analyze.scm         6   =   d  � "  � " * � " 2 � "  � ! � $  �  � & �  � ���CO�]bcde�h`�����] 4L�5$��44L�5�5"��$��C4L�5$��#4L��5$��$��6CCC������������g��name  [�g��t [�g��var ? Y��g��filenamef��language/tree-il/analyze.scm A !  < <  =  =   = B # ,  6   7   ?  G  J   N  S   U  �  [ ���C@\f����h������]4�L�5C���������g��name+src  ��g��filenamef��language/tree-il/analyze.scm H )  I 0  I < I 0 I +�   ���Cg�����h(������]��45$��C6������������g��name+loc  #�g��name  #�g��loc   #��g��filenamef��language/tree-il/analyze.scm L   M )  N )  M  O (  O   P , # P #�  # ���C� ����h���m��]24O��&��� "�� 4�5>�� G�45�&��� "�� 4�5454  O�5  6���e������g��graph  }�g��env  }�g�� public-defs  , }�g�� private-defs  , }�g��roots  < }�g��refs  X }�g�� reachable  c }�g��unused  s }��g��filenamef��language/tree-il/analyze.scm 2   A   D ! + A  / @  4 E  < E A F  X E [ G  c E f H  s E } L �  } ���C�Q�iii�ihij�������h`������]&��  "��4>��"��G���&��#4�54�>��"��G��L�6C�����������g��x  \�g��graph  \�g��env   \�g��locs   \�g��rtd  , \�g��name  = Y��g��filenamef��language/tree-il/analyze.scm      ,  Y  �  \ ���C�O�`@���hX������]�&��C&�� "�� 45&�� "�� 45�CC����������g��x  U�g��graph  U�g��env   U�g��locs   U�g��rtd   U�g��refs  C R�g��defs  C R��g��filenamef��language/tree-il/analyze.scm )   +   -  , .  C - Q / �  U ���C��7Rk���h������]��C�����������g��refs  �g��defs  ��g��filenamef��language/tree-il/analyze.scm ^ �  ��g��nameg��%make-toplevel-info-procedure�ClR4m�h���Z���]��C����R�������g��t-a11d84f71ea-1e81  �g��t-a11d84f71ea-1e82  ��  ���C?BmC������h���`���]L�6����X�������g��a  ��g��filenamef��language/tree-il/analyze.scm  ^ �  ���CF�������h���P���]�L�6H�������g��filenamef��language/tree-il/analyze.scm  ^ �   ���C�h������]�C����������   ���CJK� �����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��language/tree-il/analyze.scm ^ �  n ���C5mRNRk��4V�k>��"��G��� Yli��kRk��������h������]�$���CC�������������g��obj  ��g��filenamef��language/tree-il/analyze.scm ^ �   ��g��nameg��%toplevel-info?-procedure�CR4\��������h���:���]��C������2�������g��t-a11d84f71ea-1e91  ��  ���C?BC������h���`���]L�6����X�������g��a  ��g��filenamef��language/tree-il/analyze.scm  ^ �  ���CF�������h���P���]�L�6H�������g��filenamef��language/tree-il/analyze.scm  ^ �   ���C�h������]�C����������   ���CJK� �����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��language/tree-il/analyze.scm ^ �  n ���C5Rk����h������]�&��� C�6�������g��s  ��g��filenamef��language/tree-il/analyze.scm ^ �   ��g��nameg��%toplevel-info-refs-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���:���]��C������2�������g��t-a11d84f71ea-1e9d  ��  ���C?BC������h���`���]L�6����X�������g��a  ��g��filenamef��language/tree-il/analyze.scm  ^ �  ���CF�������h���P���]�L�6H�������g��filenamef��language/tree-il/analyze.scm  ^ �   ���C�h������]�C����������   ���CJK������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��language/tree-il/analyze.scm ^ �  � ���C5Rk��������h������]�&��� C�6�������g��s  ��g��filenamef��language/tree-il/analyze.scm ^ �   ��g��nameg��%toplevel-info-defs-procedure�CR4���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\V����h���:���]��C������2�������g��t-a11d84f71ea-1eb8  ��  ���C?BC������h���`���]L�6����X�������g��a  ��g��filenamef��language/tree-il/analyze.scm  ^ �  ���CF�������h���P���]�L�6H�������g��filenamef��language/tree-il/analyze.scm  ^ �   ���CX�h������]�C����������   ���CJK������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��language/tree-il/analyze.scm ^ �  � ���C5R4hjm����h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���CJK�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��language/tree-il/analyze.scm ^ �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5Rnhopst�h�����]#"��T$��K$��8&��-  $��$��(��CCCCCCC"��@�$��7�&��,� � &��45&��"pCCCC�$��R�&��E� � $��-� &��� &��""s"o"k"g"c�����������g��proc  ��g��args  ��g��env   ��g��args   Z�g��w   X�g��x   X�g��w  0 T�g��w  w ��g��w  � ��g��w  � ��g��w  � ��� g��filenamef��language/tree-il/analyze.scm d  h  i  ^ n  � t  � t # � t  � t  � u � n  � p  � n �  � ��g��nameg��goops-toplevel-definition�CuRkhijbc�����h�����]<&�� "�� 45&�� "�� 45�&��y4�54�545$�� 4 5"��  $��"�� 4 5 $��C$��"�� 4  5 4  5  �CC�����������g��x  ��g��info  ��g��env   ��g��locs   ��g��refs  6 ��g��defs  6 ��g��rtd  = ��g��name  U ��g��src  U ��g��t r ��g��src � ��g��refs � ��� g��filenamef��language/tree-il/analyze.scm {   }   ~  6 }  =   Z   d  e   r  �  �  �   �  ! �   �  $ �  �  � ���C�k^`abc`^vBCDu����hp����]D&�� "�� 45&�� "�� 454�>��"��G���&��}4�54�>��"��G��4 5$�� 4 5"��$��"�� 4 5$�� �C4  545  �C&��*4�54545  �C&��Q4�54�545  $��!4 54 5    �C�C�C�����������g��x  k�g��info  k�g��env   k�g��locs   k�g��refs   k�g��defs  8 k�g��rtd  O k�g��name  ` ��g��t  � ��g��src  � ��g��refs � ��g��name  � �g��refs  � �g��defs � �g��proc   a�g��args   a�g��name - a�g��refs I W�g��defs I W��g��filenamef��language/tree-il/analyze.scm         !   8   ;   O   u     �   �  �  �  �   �   �   �  $ �   �   �   �   �     #   -  2   6  7  $ @  $ I   `   j  �!  k ���Ciiki�i��������h������]C����������g��x  �g��info  �g��env   �g��locs   ��g��filenamef��language/tree-il/analyze.scm  �   ���Cw�����h������]��6���������g��name+loc  �g��name  �g��loc   ��g��filenamef��language/tree-il/analyze.scm     #   #      "   �   ���Cxk���h(������]4�&��� "�� 4�556��������g��toplevel  '�g��env  '��g��filenamef��language/tree-il/analyze.scm       $ %   '  �  ' ���C��8Ry����h������]��C���������g��toplevel-calls  �g��lexical-lambdas  �g��toplevel-lambdas   ��g��filenamef��language/tree-il/analyze.scm  �   ��g��nameg��%make-arity-info-procedure�CzR4{�h���z���]��C��r�������g��t-a11d84f71ea-2133  �g��t-a11d84f71ea-2134  �g��t-a11d84f71ea-2135   ��   ���C?B{C������h���`���]L�6����X�������g��a  ��g��filenamef��language/tree-il/analyze.scm   �  ���CF�������h���P���]�L�6H�������g��filenamef��language/tree-il/analyze.scm   �   ���C�h������]�C����������   ���CJK� �����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��language/tree-il/analyze.scm  �  n ���C5{RNRy��4V�y>��"��G��� Yzi��yRy��������h������]�$���CC������|�������g��obj  ��g��filenamef��language/tree-il/analyze.scm  �   ��g��nameg��%arity-info?-procedure�CR4\���h���:���]��C������2�������g��t-a11d84f71ea-2146  ��  ���C?BC������h���`���]L�6����X�������g��a  ��g��filenamef��language/tree-il/analyze.scm   �  ���CF�������h���P���]�L�6H�������g��filenamef��language/tree-il/analyze.scm   �   ���C�h������]�C����������   ���CJK� �����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��language/tree-il/analyze.scm  �  n ���C5Ry����h������]�&��� C�6�������g��s  ��g��filenamef��language/tree-il/analyze.scm  �   ��g��nameg��#%toplevel-procedure-calls-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���:���]��C������2�������g��t-a11d84f71ea-2152  ��  ���C?BC������h���`���]L�6����X�������g��a  ��g��filenamef��language/tree-il/analyze.scm   �  ���CF�������h���P���]�L�6H�������g��filenamef��language/tree-il/analyze.scm   �   ���C�h������]�C����������   ���CJK������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��language/tree-il/analyze.scm  �  � ���C5Ry��������h������]�&��� C�6~�������g��s  ��g��filenamef��language/tree-il/analyze.scm  �   ��g��nameg��%lexical-lambdas-procedure�CR4%,1������h���:���]C�����2�������g��err  �g��s  ��  ���C4:?�h���:���]C�����2�������g��err  �g��s  ��  ���CBHM�h���:���]C�����2�������g��err  �g��s  ��  ���C\i����h���:���]��C������2�������g��t-a11d84f71ea-216d  ��  ���C?BC������h���`���]L�6����X�������g��a  ��g��filenamef��language/tree-il/analyze.scm   �  ���CF�������h���P���]�L�6H�������g��filenamef��language/tree-il/analyze.scm   �   ���Ck�h������]�C����������   ���CJK������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��language/tree-il/analyze.scm  �  � ���C5Ry��������h ������]�&��� C�6��������������g��s  ��g��filenamef��language/tree-il/analyze.scm  �   ��g��nameg��%toplevel-lambdas-procedure�ClR4z�����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������2�������g��t-a11d84f71ea-2188  ��  ���C?BC������h���`���]L�6����X�������g��a  ��g��filenamef��language/tree-il/analyze.scm   �  ���CF�������h���P���]�L�6H�������g��filenamef��language/tree-il/analyze.scm   �   ���C�h������]�C����������   ���CJK������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��language/tree-il/analyze.scm  �  � ���C5R4����h ���v���]45C���n�������g��dummy  �g��check?  �g��s   �g��getter   �g��expr   ��   ���CJK�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��language/tree-il/analyze.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5RGG�����h0������]4�54�54�544�554�5�C�������g��a  0��g��filenamef��language/tree-il/analyze.scm      /   >     ) %  &  /  �  0 ���CfRSUTVQdWk�����h����]Q4�5$��4�544�55D4�5$��7�$�� � �"4�54�5��D"�$� &��4 54 54 54 54 5  (��"��$�� 45"��  $�� "��  (��"��$�� 45"��  $�� "��  $��45"��$��"���"%&��)454545"D45D�"�����������g��proc  �g��arity G f�g��name j �g��proc  j �g��arities  j �g��rtd  s z�g��req  � E�g��opt  � E�g��rest  � E�g��kw  � E�g�� alternate � E�g��t � ��g��t � �g��meta  [ v�g��body  [ v��g��filenamef��language/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   } �   �         �=   ��g��nameg��arities�CDkOQ�hX����]q�$�F��$�3$� $� $��   (��$��"�� (�� 4 5"��  "��     "4 5$��X44 55$��"�� $��44 55"��$�� $�� "��   "w"" L�  "a"��L� $��.$��&4 5  $��$��C CCCCCCCCCC�������������g��arity  Q�g��vx  O�g��vy   O�g��vx  M�g��vy  M�g��vx  1 K�g��vy  1 K�g��vx  B I�g��vy  B I�g��vx S G�g��vy S G�g��args h ��g��result h ��g��arg | ��g��t  � ��g��args  E�g��count " A��g��filenamef��language/tree-il/analyze.scm      `  % d  ! h   n   o  |   |  �   �   �   �  �   �  �   �   �   �   �   �   �  ( �   �   �  ! �   �   �   �   �   �   �                 ( "   )  " -   3  " =  0 >  &�,  Q ���C�h���Y���]�L�6Q�������g��filenamef��language/tree-il/analyze.scm # 5  # @�   ���C� ���h�����]3O�Q�45454�>�� G�H4O�5KJ$��"��.4$��"�� 4 �O�5>��"��G��C�������g��proc  ��g�� application  ��g��lexical?   ��g��arities  ��g��args   ��g��src   ��g��name  , ��g��arities  , ��g��matches?  4 ��� g��filenamef��language/tree-il/analyze.scm           "  ! /   7  L !  Q " U "  ] #  d #  v " �  � ��g��nameg��validate-arity�CRydWLMhi�����h�����]3&�� "�� 45&�� "�� 45&��  "�� 45&��+4>��"��G��4�5�C &��/4 54 5$����"?C &��+4 >��"��G��4�5�CC����������g�� lexical-name  ��g��val  ��g��info   ��g��toplevel-calls  Q ��g��lexical-lambdas  Q ��g��toplevel-lambdas  Q ��g��rtd  Z ��g��lexical-lambdas  � ��g��gensym  � ��g��val*  � ��g��lexical-lambdas  � ��� g��filenamef��language/tree-il/analyze.scm /   1   2  9 3  Q 1  Z 4 w 7  � 6 � 4 � <  � < � =  � =  � > ' � >  � 4 � C  � B �  � ��g��nameg��extend�Cy`^adWhimnoqrsvwxBCDLM�!����h����]lO�Q�&�� "�� 45&�� "�� 45&��  "�� 45�&��4�54 �5      &��+4  >��"��G��4   5  �C  &��@4 5 4 5 4 4�5 $�� "�� 5�CC&��4�54�5    6&��4�54�5    6&��4�54�5    6&�4�5 4�>��"��G��4�>��"��G��    &��*4  >��"��G��4 �>��"��G��C  &��"4 5 4  �5  �C &��j4  5 4 5  $��L    &��"4 54 �5�C4 �>��"��G��CCCC��������g��x  �g��info  �g��env   �g��locs   �g��extend  �g��toplevel-calls  ^ �g��lexical-lambdas  ^ �g��toplevel-lambdas  ^ �g��rtd  g �g��name  �g��exp  �g��rtd � �g��toplevel-lambdas � ��g��name � �g��proc � �g��toplevel-lambdas  � �g��gensyms  ,�g��vals  ,�g��gensyms B R�g��vals B R�g��gensyms h x�g��vals h x�g��proc  �g��rtd  �g��name  �g��toplevel-calls � �g��gensym  �g��proc ( �g��r 4 }�g��rtd  9 }�g��name  J e�g��toplevel-calls  W e�� g��filenamef��language/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 �,   ���C�y��������h���U��]#&�� "�� 45&�� "�� 45&��  "�� 454�5$�� 45"���C�M������g��name  �g��val  �g��info   �g��toplevel-calls  Q �g��lexical-lambdas  Q �g��toplevel-lambdas  Q �g��lexical-lambdas  q ��g��filenamef��language/tree-il/analyze.scm         9   Q   X   d   e   q  �   ��g��nameg��shrink�Cymnoqrsvwx����h�����]$&��  "��4>��"��G��&��  "��4>��"��G��&��  "��4>��"��G���&��4�54 �5 6 &��4 �54 �5 6&��4�54�5 6C�����������g��x  ��g��info  ��g��env   ��g��locs   ��g��shrink   ��g��rtd  | ��g��gensyms  � ��g��vals  � ��g��gensyms  � ��g��vals  � ��g��gensyms  � ��g��vals  � ��� g��filenamef��language/tree-il/analyze.scm     /   U   |   �  �   �  �   �  �  � ���CyYb��������h���Y���]�LL�6������Q�������g��filenamef��language/tree-il/analyze.scm    �  ���C�����h���e���-��1��3�C�����]�������g��args ��g��filenamef��language/tree-il/analyze.scm  � ���Ci������h���Y���]�LL�6������Q�������g��filenamef��language/tree-il/analyze.scm    �  ���C�����h���e���-��1��3�C�����]�������g��args ��g��filenamef��language/tree-il/analyze.scm  � ���C�������h�����]!��44L�55$��"��!4L5$��4LO�5"��45$��14 54L5$��4 LO� 5"��"��4 5$��  645$��  6C������������g��name+application  ��g��name  ��g�� application  ��g��t   N�g��proc  N ��g��name  b ��g��proc*  � ���g��filenamef��language/tree-il/analyze.scm                      +   5   6   N  Q   [   \  " b   e   o   p   �  �   �  �   �   �  �  �  � ���C�����hP������]�&��� "�� 4�5�&�� � "�� 4�5O�6�������������g��result  J�g��env  J�g��toplevel-calls  7 J�g��toplevel-lambdas  7 J��g��filenamef��language/tree-il/analyze.scm         7   J  �  J ���Ciiiyi�i������h������]C����������g��x  �g��info  �g��env   �g��locs   ��g��filenamef��language/tree-il/analyze.scm * �   ���C���9R4i5ROO��h������]�6������w�������g��char  ��g��filenamef��language/tree-il/analyze.scm    �  ��g��nameg��digit?�CkGQ �� h�����]4545L$��L45"��"��D45$��45$��yL�LLL$��4 L5"��L$�� "�� (�� "��4 ?L�$��4 L5"��L$�� "�� (�� "��4 ?6"c"_����������g��chars  ��g��conds  ��g��mins  ) ��g��maxs  ) ��g��sel?  ) ���g��filenamef��language/tree-il/analyze.scm     $  $   $   5 $  ) )   5 ! & 7 ! + 9 !  9   :  # F   G  # S   Y  * Z  3 f  ' g  0 p  + z  . �  . �  2 �  + �  $ �  ' �  0 �  + �  . �  . �  2 �  + �  $ �  �#  � ���C   O���h������]�6������w�������g��char  ��g��filenamef��language/tree-il/analyze.scm    �  ��g��nameg��digit?�CO��������h������]�6������w�������g��char  ��g��filenamef��language/tree-il/analyze.scm    �  ��g��nameg��digit?�C z ������h8��E ��]'�(��$��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[$��j�4 5(��"��4 4 4 5554@5   L�O� �";$��2$��$� �"6]$��"$���4 566{$��4@5$��D�"��V (�� 45"��N $�� }&�� "��8   " ~&��    "   "  "�"*$��4@5$��D�45(��"��4 4 4 555$��"�� 45(��"��4 4 4 555$��"�� �"?$��"��k$��"��K$��D^$��Dh$��"��H$��<4:5$�� "�� ��"'$��6�(��6���"M��"+$��N�~$�� ��"��"6��= ������g��chars  6�g��state  6�g��params   6�g�� conditions   6�g�� end-group   6�g�� min-count   6�g�� max-count   6�g��key  ( �g��colon?  e �g�� min-count | �g��numbers   �g��selector   �g��at?  �g��chars   �g��chars  �g��tilde?  �g��numbers  b �g��t   �g��numbers   �g��t   �g��argc  N v�g��key   .��g��filenamef��language/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 ��g��nameg��loop�C ��h(������] O�Q�4�5 6��������������g��fmt  !�g��loop !��g��filenamef��language/tree-il/analyze.scm                !  �  ! ��g��nameg��format-string-argument-count�C Rt �����h���Y���]�L�6Q�������g��filenamef��language/tree-il/analyze.scm p   p )�   ���C�����h���e���-��1��3�C�����]�������g��args ��g��filenamef��language/tree-il/analyze.scm p � ���Cp cLh� �hH����],"� "���$���&��l� � � � $��4O�5"�� 45$�� 45"��$��$��CCC�&��� � CCC�$��c� &��.� � 45$��$��CCC�&��� � � &��C"�""�$��&� &��� � &��C"""�����������g��exp  C�g��proc  C�g�� special-name   C�g��env   C�g��w  # ��g��w  * ��g��w  1 ��g��mod  V ��g��var  l ��g��w  � ��g��w  � ��g��var  � ��g��w  �  �g��w  + ;��g��filenamef��language/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 ��g��nameg�� proc-ref?g�� documentationf��Return #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������]�6���������g��t-a11d84f71ea-25ec  �g��t-a11d84f71ea-25ef  ��g��filenamef��language/tree-il/analyze.scm x  x +  x �   ��g��nameg��gettext?�C R   �������h������]�6���������g��t-a11d84f71ea-25f6  �g��t-a11d84f71ea-25f9  ��g��filenamef��language/tree-il/analyze.scm y  y -  y �   ��g��nameg�� 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"t������������g��x  �g��env  �g��w  # ��g��w  7 ��g��w  F ��g��x  F ��g��w  c ��g��w  } ��g��x  } ��g��w � ��g��w  � U�g��w  � Q�g��w   I�g��w  - A�g��w  v ��g��filenamef��language/tree-il/analyze.scm {  }  &   2 }  �   � } �   ��g��nameg�� const-fmt�C R       Ln   Q    �hp�����]4L>�� G���$��R$��J�&��"��L��$��&��"��L�"��$��CLL�L�6CC�� ������g��min n�g��max n�g��t  M j��g��filenamef��language/tree-il/analyze.scm            $  - (  )  $ 2  3 6   :  - >  ?  $ H  3 M   \  $ `  0 j  �  n ���C  ��h������]LL�6�������g��_  �g��key  ��g��filenamef��language/tree-il/analyze.scm       %   �   ���C�h��]��]2"�&�$���$��45$��54455$��"��445>��"��G��"���"��O"��'4455$�� 64   56�$�� &��   C""$��E &��8  4455$��$��"��6"i"e"a4�564�56�$����$��4L�5$��n45$��54455$��"��445>��"��G��"���4L�545O�O�6"9"5"1���U������g��args  �g��loc  �g��vx   �g��vy   �g��vx  !  �g��w  � �g��w  � �g��vx  9 �g��vy  9 �g��vx  J �g��vy  J �g��fmt   �g��count   �� g��filenamef��language/tree-il/analyze.scm      (   2  3   6  " >   B   G   K   O  # P  / [   k  q   {  �   �  " �  �  �  �  �   �   �  , �            /      #   $  / ,  ,   O   [   \   f  g   j  " r   v   {        #   /                �7   ��g��nameg��check-format-args�C   nk   O �����h���q���]�6������i�������g��t-a11d84f71ea-2e3a  ��g��filenamef��language/tree-il/analyze.scm  �  ���C   O �������h���q���]�6������i�������g��t-a11d84f71ea-2e41  ��g��filenamef��language/tree-il/analyze.scm  )�  ���C����h��H��]Z"��a�$��X��$��E4L545$��#$��45��"CCCC�$���$�$�x&�k  45$�Q$�F"��(�� 45"��$�� ~$�� $��R     $��  "   $��  "4455�"��      $��  "e4455�"��W    $��  "94455�"��+  4455�"��4 5"4  5$��C4  4455>��"��G��C""""""�����@������g��args  �g��loc  �g��w   e�g��x   e�g��w  $ c�g��x  $ c�g��w  1 c�g��x  q �g��w  �  �g��x  �  �g��w  � �g��chars  � �g��result  � �g��w  � �g��x � �g��w � =�g��x � =�g��x  7�g��x ? i�g��x k �g��opts   �g��t   ��g��filenamef��language/tree-il/analyze.scm      )   1   H  - U  $ _  g   �  �  �   �          "   #  T   U                                '      !         �%   ��g��nameg��check-simple-format-args�CBt   !hb��h���Y���]�LL�6������Q�������g��filenamef��language/tree-il/analyze.scm   �  ���C�����h���e���-��1��3�C�����]�������g��args ��g��filenamef��language/tree-il/analyze.scm  � ���C # %��h�����]DO�O�Q�Q�"�"�-�$�"�&�� � $��&��  $��   &��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 O�5"��  &�� 4 $��"�� 455"��  $��"��  $��+4 $��"�� 45>��"��G��"���  "��"H"��"@"��"2"��"*C�����������g��x  �g��_  �g��env   �g��locs   �g��check-format-args   �g��check-simple-format-args   �g��w  ; L�g��w  A I�g��w  \ >�g��w l 7�g��w { ��g��w � 0�g��w  h �g��w  n �g��w   �g��w  �g��w  �g��w   �g��w   �g��w  1 �g��w 8 �g��proc [ �g��t  ��g��filenamef��language/tree-il/analyze.scm   #   ~  �  ' �  / �  �   �  �  % �  - �  �   �  �  ' �  / �  �   �    %   -   T          (       ;  E   F  [   e   f   p  1 w  9                 &   .      �-   ���C�i�������h������]C�����������g��x  �g��_  �g��env   �g��locs   ��g��filenamef��language/tree-il/analyze.scm  �   ���C���h������]C�����������g��x  �g��_  �g��env   �g��locs   ��g��filenamef��language/tree-il/analyze.scm  �   ���C����h���q���]C����i�������g��_  �g��env  ��g��filenamef��language/tree-il/analyze.scm  �   ���C��:RC���c������g��m  ,�g��rtd A A�g��rtd m n�g��down ������A�������g��up ������A�������g��vars ������K������a�g��refs ������K������a�g��init ������a�������g��rtd �������������g��add-ref-from-context �������������g��down �������������g��post �������������g��refs �������������g��defs �������������g��init �������������g��rtd ������������­�g��leaf ������U�������g��down ������U�������g��refs ������_������u�g��defs ������_������u�g��init ������u�������g��rtd ������������-�g��down �����~�����t�g��up �����~�����t�g��post �����~�����t�g��toplevel-calls �����������g��lexical-lambdas �����������g��toplevel-lambdas �����������g��init ����������k�g��down �����R�����T��g��filenamef��language/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 ���C6����������������������������������������������������������������������������������������������������������������������������language/tree-il/cse.go�����������������������������������������������������������������������������0000644�����������������00000127367�15253700563�0011017 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0߮������]��4��������h������]� g��guile � g��define-module* � � g��language g��tree-il g��cse � g��filenameS f��language/tree-il/cse.scm g��importsS �  � g�� primitives � � g��effects � � g��ice-9 g��vlist � � g��match � � g��srfi g��srfi-1 � � g��srfi-9 ! � "!� #g��srfi-11 $#� %$� &g��srfi-26 '&� ('� )"%(�  *g��exportsS +� ,g��set-current-module -,� .,� /g��make-syntax-transformer 0/� 1/� 2g�� *logging* 3g��macro 4g�� identifier? 54� 64� 7g�� syntax-object 8g��top 98� :g��ribcage ;g��id <;� =g��m-9d6145bdb05-25f0 >=8� ?>� @f��l-9d6145bdb05-25f7 A@� B:<?A� C:� Dg��x ED� Ff��l-9d6145bdb05-25f2 GF� H:E?G� I9BCH� Jg��hygiene KJ� L7IK� Mg�� $sc-dispatch NM� OM� Pg��_ Qg��each-any RPQ Sf��l-9d6145bdb05-25fa TS� U:E?T� V9UCH� W7VK� Xg��syntax-violation YX� ZX� [f��-source expression failed to match any pattern \g��log ]g��any ^g��free-id _g��quote `g��m-9d6145bdb05-25fd a`8� ba� cf��l-9d6145bdb05-25ff dc� e:Ebd� f9Ce� g7_fK� h^g� ih]� jiQ k]j lg��if mg��dummy ng��event og��arg pmno� qa99� rf��l-9d6145bdb05-2602 sf��l-9d6145bdb05-2603 tf��l-9d6145bdb05-2604 urst� v:pqu� w9vCe� x7lwK� yg��and z7ywK� {72wK� |g��or }7|wK� ~g��eq? 7~wK� �7wK� �{� �g��memq �7wK� �7_wK� �{� �g��log* �7wK� �g�� module-ref �g��resolve-interface �g�� pretty-print �� �g��newline �g�� vlist-null �g�� tree-il-fold �g�� <lexical-set> �g�� vhash-consq �g��build-assigned-var-table �g��negate-primitive �g��not �g��symbol->string �g�� string-ref �g�� string-length �g��boolean-valued-primitive? �g��test �g��<const> �g��boolean? �g�� <application> �g��<primitive-ref> �g��boolean-valued-expression? �g��value �g��<lambda> �g��values �g�� <lexical-ref> �g��<void> �g�� <module-ref> �g��<toplevel-ref> �g��singly-valued-primitive? �g��singly-valued-expression? �g��make-application �g��make-primitive-ref �g�� make-const �g�� <conditional> �g��make-conditional �g�� vector-length �� �� �g�� tree-il=? �g�� vlist-length �g�� tree-il-hash �g�� vhash-assoc �g�� vlist-ref �g��error �� �� �f��no matching pattern �g��lambda �g�� effect-free? �g��exclude-effects �g�� tree-il-src �g�� lexical-ref? �g�� vhash-cons �g��make-lexical-ref �g�� vhash-assq �g��make-effects-analyzer �g��vhash-fold-right �g��reverse �g�� constant? �g��effect �g�� lambda-case? �g��void? �g�� make-void �g�� <sequence> �g�� make-sequence �g�� sequence? �g��append �g�� sequence-exps �g��<prompt> �g�� make-prompt �g��<abort> �g�� make-abort �g�� <lambda-case> �g��make-lambda-case �g��hashq �g��most-positive-fixnum �g�� make-lambda �g��equal? �g��<toplevel-set> �g��make-toplevel-set �g��<toplevel-define> �g��make-toplevel-define �g�� <module-set> �g��make-module-set �g��<dynset> �g�� make-dynset �g��<dynref> �g�� make-dynref �g��<dynlet> �g�� make-dynlet �g�� <dynwind> �g�� make-dynwind �g�� <let-values> �g��make-let-values �g��<fix> �g��make-fix �g��<letrec> �g�� make-letrec �g��<let> �g��make-let �g��make-lexical-setC�5������hp�����]4    )*+5�4.�>��"��G���41236������h���]���]�6U�������g��id  ��g��filenamef��language/tree-il/cse.scm  n �   ���CL�����h���*���]C���"�������g��id  ��   ���CORW����h���)���]�C!�������g��x  ��   ���CZ[��������h@������]��4?$��@4�5$��@�6�������������g��x  :�g��tmp  :�g��tmp  # :��g��filenamef��language/tree-il/cse.scm n �  : ��g�� macro-typeg��identifier-syntax�C52R41\3Okxz{}� h0���Q���]��� ��CI�������g��dummy  0�g��event  0�g��arg   0��  0 ���CZ[��������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��language/tree-il/cse.scm r �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��quoteg��event�g��argg��...���C5\R\����hH������-�1�3�44554�>��"��G��4>���"��G��D�������������g��event C�g��args C�g��pp   C��g��filenamef��language/tree-il/cse.scm x y y   y +  y   z   y  y   {   {  ) {  2 |  C } � C ��g��nameg��log*�CR����h���o���]C���g�������g��exp  �g��res  ��g��filenamef��language/tree-il/cse.scm � �   ���C�h8������] �$��,�&�� � � � � 6CC�������g��exp  8�g��res  8�g��w  ! 2��g��filenamef��language/tree-il/cse.scm �   �  2 � �  8 ���C������h���o���]C���g�������g��exp  �g��res  ��g��filenamef��language/tree-il/cse.scm � �   ���C������h(������-�.�,�3�#���6�����������g��exp $�g��table $��g��filenamef��language/tree-il/cse.scm � $ � � $ ��g��nameg��build-assigned-var-table�CR�h@�����] 4�5$��C�&��C4�54455?C������ ������g�� primitive  :�g��t :�g��chars % :��g��filenamef��language/tree-il/cse.scm �  �  �   �   �   �   �  % �  ( �  - � $ 4 � 6 �  9 � �  : ��g��nameg��boolean-valued-primitive?�CR��������h�����]"��@"��C�$��+�&��� � 45$��CC""�$��L�&��?� � $��)&��  45$��C"y"u"q"m"i����������g��x  ��g��ctx  ��g��w  ) >�g��w  _ ��g��w  z ���g��filenamef��language/tree-il/cse.scm �  �   �   �   �  < �  = �  F � �  � ��g��nameg��boolean-valued-expression?�CR��h���V���]�L�CN�������g��filenamef��language/tree-il/cse.scm  �   � �   ���C� ��hp��I��]2"��O�Q��$���&��� � "���&��C6�$��m&��`  &��:� "���&��C6�$��(��C""�&��C6�"}"y�&��C6�6��$���&��C�&��C�&��C�&��C� &��C� &��C�&��?� � $��)&��  4 5$��C"""""�������A������g��x  i�g��ctx  i�g��failure   ��g��w  , ��g��failure  0 ��g��w  ^ ��g��w  m ��g��failure  q ��g��failure  � ��g��w  + a�g��w  F Y�� g��filenamef��language/tree-il/cse.scm �  � �  i ��g��nameg��singly-valued-expression?�CR��������h���q���]�45L��6����i�������g��filenamef��language/tree-il/cse.scm  �  � 3 �   � 9  � �   ���C����h����]2"��O��Q��$��y�&��l� � $��Q&��D  45$��� 4455645��66�6�6�6��$���&��� �  6� &�� �  6� &��4� � � �  4L�54L�56�&��p� � $��Z&��M  &��6� $��$(��4 5$��C""""""~"z"vx������g��exp  �g��ctx  �g��failure   ��g��w  ' ��g��w  - ��g��failure  1 ��g��w  L ��g��w  ^ u�g��w  � ��g��w  � ��g��w  � ��g��w  � �g��w  � �g��w  � �g��w  � �g��w  ! �g��w  < �g��w  K |�g��w  ^ t��g��filenamef��language/tree-il/cse.scm �   �  e �  i � 0 q �  u �  y �  ~ � 3 � �  � � 9 � �  � �  � �  � �  � �  � �  � �  � � "  � :  �   �  a �  m � �   ��g��nameg��negate�C�������h���G��]�$���"��$��w4�$���"��5 $��V�$���"�� �$���"�� �$���"�� 4L�5$��L$��LCCCCC�?������g��v1  ��g��v2  ��g��len  * ��g��w  F ��g��w  l ���g��filenamef��language/tree-il/cse.scm �   �  �   �  �  8 �  < �  K �  O �  ] �  a �  o �  { � � �  � �  � � �  � ��g��nameg��entry-matches?�C�h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C� �������h����]dO��Q�454�54O�5$�n"�c$�X45"�$��   $��4 5  $��      $��&$�� "��$�� 4� 5"��"��$��C �����UU����� $��"��&�����UU ����� $�� "C4   56�4   56�4   56�$��<   &��'�����UU�����UU $�� "C""C "C�������������g��exp  �g��effects  �g��ctx   �g��db   �g��entry-matches?  �g��len  �g��h  �g��n  = �g��v  O �g��w b J�g��x b J�g��len t =�g��w � 0�g��w � 0�g��w  � 0�g��t  � 0�g��effects  � ��g��effects    �g��w a ��g��filenamef��language/tree-il/cse.scm �   �   � �  % � 9 �  = � B �  F � G �  � �  � �  � �  � � , � � " � �  � �  � �  � �  % �  ( � " . �  1 �  { �   �   �   �   �   � �   ��g��nameg��find-dominating-expression�C� ����h@��q��];44������55$�"��C4L�5$�� 4�564L4L�55$�� 4�56C�$���&��$� � 45$���C6�&��� � $��{ &��n   &��W� $��E(��:4L�5$��&��    6CC"""""""C�����i������g��exp  ;�g��effects  ;�g��db   ;�g��w  v ��g��w  | ��g��w  � 1�g��w  � 1�g��w  � )�g��w  � %�g��w  � �g��v  � �g��w  �� g��filenamef��language/tree-il/cse.scm                         (  2 ,  0   3   <  =  @  & F  2 H  & L  A P  T   W   `  b     �   �  ! �   �  �   �        !  �#  ; ��g��nameg��find-dominating-test�C����h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h�����]-(���C4M5$��"��45$���"��345�45 4 � O�5 �"t��������g��env  ��g��names  ��g��syms   ��g��exps   ��g��db   ��g��name   ��g��sym   ��g��exp   ��g��t  ! 8�g��v  R u�g��h [ r�� g��filenamef��language/tree-il/cse.scm '   (   *   * &  * 7  *   +  ! +  / ,  < +  I # # R #  R #  U $  [ #  ^ %  x /  { / # ~ / . � + �  � ��g��nameg�� augment-env�C����h���#��]�$���"��$��t4�$���"��5 $��S�$���"�� �$���"�� �$���"�� �$���"�� L�6CC����������g��v1  ��g��v2  ��g��len  * ��g��w  F ���g��filenamef��language/tree-il/cse.scm 2   3  3   3  3  8 3  < 3  K 3  O 3  ] 3  a 3  p 3  t 3  � 5 �  � ��g��nameg��entry-matches?�C�����h@����]+ $��C4�5"��$��$��45 $��}   �����UUL����� $��"��&L�����UU����� $����">C456�456�456�$��E&��0L�����UU�����UU $����"C""���������g��db  =�g��base  =�g��n   =�g��t   =�g��v   =�g��w  * ��g��len  > ��g��w  R ��g��effects  f �g��effects  � ��g��w  � 9�� g��filenamef��language/tree-il/cse.scm 8   9  9   : f @  � @ � A  � A ' � A  � :  =  ! = & >  ) > ' 3 >  9 : �  = ��g��nameg��unroll�Ch���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C����hX����]O�O��Q�Q�4�544�������55$�4�O�5$��4545"�� $��4  5  $��     $��4  5 $��v     4 5$��A"��   "{ $�� 4 �5$�� 4 �56""C4 56�4 56�4 56�C   "CC������g��exp  X�g��effects  X�g��env   X�g��db   X�g��entry-matches?   X�g��unroll   X�g��h  & X�g��env-len  e T�g��db-len  e T�g��n m J�g��m m J�g��v  H�g��w � ;�g��x � ;�g��len  � .�g��w  � !�g��w  � !�g��w  � !�g��w  � !�g��niter  � !��g��filenamef��language/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 ��g��nameg��find-dominating-lexical�C�������h���g���]�L�6������_�������g��sym  ��g��filenamef��language/tree-il/cse.scm �  � �  ���C�����h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C�����hP�����]�$��64L��LLL>�� G��45�"45D������������g��in  J�g��out  J�g��db*   J�g��x   ?�g��db**   ?��g��filenamef��language/tree-il/cse.scm p   q q  r )  r 0  r )  r % t  * t  + f  ? t  @ u  J u �  J ��g��nameg��lp�C��������h(������] O�L�Q��6�����������g��exps  $�g��db  $�g��env   $�g��ctx   $�g��lp   $��g��filenamef��language/tree-il/cse.scm o   p  p  $ p �  $ ��g��nameg��parallel-visit�C��������h���9��]94L�5"��$��4L�5$��h$��K45 $��,    �&��C"456�456�456�C "g1������g��sym  ��g��env-len ��g��n   ��g��v  ! ��g��w  - ��g��len  A ��g��w  P x�g��w  \ x��g��filenamef��language/tree-il/cse.scm x   S  S   T   U  U   V l X  r Z  x Z  y V � T �  � ���C����h(������] 4M��LO�5����� � C���������g��exp  &�g��x  &��g��filenamef��language/tree-il/cse.scm z   x   { �  & ��g��nameg��bailout?�C����h���9��]94L�5"��$��4L�5$��h$��K45 $��,    �&��C"456�456�456�C "g1������g��sym  ��g��env-len ��g��n   ��g��v  ! ��g��w  - ��g��len  A ��g��w  P x�g��w  \ x��g��filenamef��language/tree-il/cse.scm x   S  S   T   U  U   V l X  r Z  x Z  y V � T �  � ���C�����h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C����hp����]*4M��LO�5"��4�L5$��4L�L5"��$��D4�L5$��4L�LL5"��$��D"��0��L�4�54O�5D45$�� L&��"��L $���D""L &��4 �5$��"��`4 4  �55$��"��A45$��"��*4 4 ������55$��4L�L5"��$��4�5$���D45D""������g��exp  p�g��db*  p�g��effects   p�g��t  3 ��g��t  ` ��g��v  � ��g��h  � ��g��t  � I�g��t   F�� g��filenamef��language/tree-il/cse.scm }   x   ~     #  $   3   A   B   N  O   `   n   } � ~ � � �  � �  �  �   �   �   �  # �  �  �   �   �   �   �  �   �   �  % �   �   �    �   �   �  � * �  , � . � 2 �  3 � M  N  X  ^  _   h  �3  p ��g��nameg��return�C���h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C�����h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C�h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C�����h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C���h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C�h��O��]#�$���(��]�4L4L5LL>�� G�(��L�456L�4L455456��4L4L5L>�� G�4 5$��4 4 55�"C4 5$���"(4 5�" 4�56������G������g��in  �g��out  �g��db*   �g��w   m�g��last  / m�g��db**  / m�g��w  s ��g��x  s ��g��head  � ��g��db**  � ��� g��filenamef��language/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  � ) �$   ��g��nameg��lp�C����h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C���h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C�������h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C�����h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C����h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C�h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C�����h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C���h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C�����h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C���h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C�����h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h0������]4�L�O�5$���O�6C�����������g��k  ,�g��h  ,�g��out   ,��g��filenamef��language/tree-il/cse.scm ^   _  _  ) ` �  , ���C����h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C�����h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C�����h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C���h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C�����h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h0������]4�L�O�5$���O�6C�����������g��k  ,�g��h  ,�g��out   ,��g��filenamef��language/tree-il/cse.scm ^   _  _  ) ` �  , ���C����h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C���h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C�����h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C�������h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C�����h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C�������h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C�������h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C�����h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C���h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C�����h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C���h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C���h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C�����h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C���h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C���h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C���h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C���h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C���h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C���h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C���h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C���h���w���]L�Co�������g��x  �g��size  ��g��filenamef��language/tree-il/cse.scm �   � �   ���C������h������]�O�6�����~�������g��k  �g��h  �g��tail   ��g��filenamef��language/tree-il/cse.scm f   g �   ���C�c������h��r��]O�O�O�LQ�LQ�LLLL�Q�"�"�["�'"�"�%"� {"� "� e"� "� "� "� '"� "� "� u"� "�"�"�b"�"�a"��$�q�&��4� � O� L Q�  6�&��� � �  �  4L>�� G�  4L 4   5 >�� G� 4L 4   5>�� G�4   5 6�&��� � �  �  4L>�� G�  4 >�� G� 4L >�� G�4  54 54  564�56�4�56��$���&��� � �  �  �  �  �  � � 4 >�� G�4L>�� G�$��4L>�� "�� "�� G�4    5 $��"��6""�$��y�&��l� � �   $��24L 45 4  O�5  >�� "�� "�� G�  4 56""�$��j�&��]� � �  4L>�� G�  4 >�� G�  4  54    56""�$�0�!&�#� � �  �  4L">�� G�  4L4L "5">�� G� 4L 4 # 5>�� G�4L 4 $5>�� G�4% 5"�"�c"�"�"�"�"��"��64 & 54 '54 (O�56$��v!&��i   45$�� 4 )564 * 54 +54 ,O�56"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 435�5�"m" " """""$��c!&��V  $��@.&��3  $��4 4 564 556"""""g"c�$���6&���6"C"?�$��I�7&��<� � �  4L >�� G�  48 5 6""�$��I�9&��<� � �  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>�� G�4G  54 H 54 I56"V"R�$���J&��� � �  �  4L>�� G�  4L 4 K 5>�� G� 4L >�� G�4L  54 M54 N 56""�$��s�O&��f� � �  4L >�� G�  4L 4 P 5>�� G�  4Q  54 R  56"!"�$���S&��x� � �  �  �  4 >�� G�  4L 4 T 5>�� G�4U  54 V 56""�$���W&��� � �  �  �  �  4 >�� G� 4L 4 X54L   5>�� G�4Y   54 Z56""�$���[&��� � �  �  �  4 >�� G�  4L 4 \ 54L  5>�� G�4]  54 ^ 56"B">�$��R�_&��E� � �  �  4L >�� G�  4`  5 6""�$��%�a&��� � � �6""�$���b&���6""�$���.&���6"e"a�������j������g��exp  �g��db  �g��env   �g��ctx   �g��parallel-visit  ! �g��bailout?  ! �g��return  ! �g��w  � ��g��w  � ��g��lp � ��g��w  � j�g��w  � j�g��w � j�g��w � j�g��tag  j�g��db*  j�g��body / j�g��_  / j�g��handler  P j�g��_  P j�g��w  w �g��w  } �g��w  �g��w  �g��tag  �g��db*  �g��args  �g��db**   �g��tail   �g��db***   �g��db2   �g��w  / �g��w  5 �g��w < �g��w C �g��w J �g��w Q �g��w X �g��w  _ �g��w  f �g��inits  y �g��_  y �g��body   �g��db*   �g��alt   �g��_   �g��w   o�g��w   o�g��w  o�g��h * A�g��body W o�g��_ W o�g��w   �g��w   �g��w  �g��proc  �g��db*  �g��args  �g��db**  �g��w  � �g��w   �g��w  �g��w  �g��test ' �g��db+ ' �g��converse F �g��db-  F �g�� consequent  g �g��db++  g �g�� alternate   �g��db--   �g��v   �g��db+   �g��db-   �g��w   m�g��db+  Q k�g��db-  Q k�g��w   �g��w   8�g��w   0�g��w  e �g��w   �g��w   [�g��w   S�g��w   O�g��w   G�g��w  | �g��w   �g��w   �g��w   �g��w   �g��w  ( �g��w  C �g��w  J �g��w  e �g��w   �g��w   �g��w  [ �g��w  a �g��w h �g��exp { �g��db* { �g��w  �g��w  �g��w �g��exp �g��db* �g��w   M�g��w  M�g��w  M�g��w  M�g��w  M�g��exp 1 M�g��db* 1 M�g��w  �g��w  �g��w �g��fluid �g��db* �g��exp �g��db** �g��w   M�g��w  $ M�g��fluid 7 M�g��db* 7 M�g��w  i �g��w  o �g��w v �g��w } �g��fluids �g��db* �g��vals �g��db**  �g��db2  �g��body  �g��db***  �g��db2  �g��w  ( �g��w  . �g��w 5 �g��w < �g��pre O �g��db* O �g��body p �g��db**  p �g��post  �g��db***  �g��db2  �g��w  9�g��w  9�g��w 9�g��producer 9�g��db* 9�g��consumer  9�g��db**  9�g��w  U �g��w  [ �g��w b �g��w i �g��w p �g��vals �g��db* �g��body  �g��db**  �g��w  o�g��w  o�g��w o�g��w o�g��w � o�g��w  o�g��vals  o�g��db*   o�g��body  H o�g��db**  H o�g��w    �g��w    �g��w   �g��w   �g��w   �g��vals   �g��db*   �g��body    �g��db**    �g��w  ( i�g��w  . i�g��w 5 i�g��w < i�g��exp O i�g��db* O i��g��filenamef��language/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                    )   ��g��nameg��visit�C� ������h�����]AHHO�O�O�Q�Q�Q�4�5O�K4J5K O�Q��   6�������������g��exp  ��g��assigned-lexical?  ��g��%compute-effects   ��g��negate  + ��g��find-dominating-expression  + ��g��find-dominating-test  + ��g�� augment-env  + ��g��find-dominating-lexical  + ��g��table  G S�g��visit  l ��� g��filenamef��language/tree-il/cse.scm � A �  G �  V �  l j  � m  � j �  � ��g��nameg��cseg�� documentationf��'Eliminate common subexpressions in EXP.�CRC��������g��m  ,��g��filenamef��language/tree-il/cse.scm   = x  � p � 7 �  � ������m � � ������o ���C6��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/tree-il/inline.go��������������������������������������������������������������������������0000644�����������������00000001431�15253700563�0011502 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]��4��hx������]� g��guile � g��define-module* � � g��language g��tree-il g��inline � g��filenameS f��language/tree-il/inline.scm g��exportsS g��inline!  � g��set-current-module � � g��issue-deprecation-warning f��?`inline!' is deprecated. Use (language tree-il peval) instead.C�5���h���g���]4    5�4�>��"��G�����������h������]4>��"��G���C��������g��x  ��g��filenamef��language/tree-il/inline.scm         �   ��g��nameg��inline!�C RC��_�������g��m  (��g��filenamef��language/tree-il/inline.scm   �  �  � ���C6����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/tree-il/optimize.go������������������������������������������������������������������������0000644�����������������00000003753�15253700563�0012075 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�0�4������h������]� g��guile � g��define-module* � � g��language g��tree-il g��optimize � g��filenameS f��language/tree-il/optimize.scm g��importsS �  � g�� primitives � � g��peval � � g��cse � � g�� fix-letrec � � g��debug � � g��ice-9 g��match � ! � "!� #g��exportsS $g�� optimize! %$� &g��set-current-module '&� (&� )g��memq *g�� partial-eval?S +g��cse?S ,g�� fix-letrec! -g��verify-tree-il .g��expand-primitives! /g��resolve-primitives!C�5��hP��i���]4    "#%5�4(�>��"��G���)*�����h���o���]�C���g�������g��x  �g��e  ��g��filenamef��language/tree-il/optimize.scm " �   ���C+���h���`���]�C���X�������g��x  ��g��filenamef��language/tree-il/optimize.scm ' �   ���C,-./� ��h����]+45$��\$��=$��0&��$��"��"��"��"��"��45$��\$��=$��0&��$��"��"��"��"��"��4 44 44 4 �5555556����������g��x  �g��env  �g��opts   �g��v  u�g��w   l�g��x   l�g��w  4 Z�g��x  4 Z�g��v  ~ ��g��w  � ��g��x  � ��g��w  � ��g��x  � ��g��peval  � �g��cse  � ��g��filenamef��language/tree-il/optimize.scm     v $ �   � *  � +  � ,  � -  � -  � - #  -   -   ,   +   *   ) �   ��g��nameg�� optimize!�C$RC���a�������g��m  ,��g��filenamef��language/tree-il/optimize.scm   K  �  M ���C6����������������������language/tree-il/compile-glil.go��������������������������������������������������������������������0000644�����������������00000173240�15253700563�0012611 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]a�4�����hq+������]� g��guile � g��define-module* � � g��language g��tree-il g�� compile-glil � g��filenameS f��!language/tree-il/compile-glil.scm g��importsS g��system g��base g��syntax  � � g��pmatch  � � g��message  � � g��ice-9 g��receive � � g��glil � � g��vm g�� instruction !  � "!� #� $#� %g��optimize &%� '&� (g�� canonicalize )(� *)� +g��analyze ,+� -,� .g��srfi /g��srfi-1 0./� 1g��selectS 2g�� filter-map 32� 4013� 5"$'*-4�  6g��exportsS 7� 8g��set-current-module 98� :8� ;g�� make-fluid <g�� *comp-module* =g��unused-variable >g��unused-variable-analysis ?g��unused-toplevel @g��unused-toplevel-analysis Ag��unbound-variable Bg��unbound-variable-analysis Cg��arity-mismatch Dg��arity-analysis Eg��format Fg��format-analysis Gg��%warning-passes Hg��and=> Ig��memq Jg��warningsS Kg��cadr Lg�� assoc-ref Mg�� analyze-tree Ng�� make-lambda Og�� tree-il-src Pg��make-lambda-case Qg�� optimize! Rg�� canonicalize! Sg��analyze-lexicals Tg��flatten-lambda Ug��make-hash-table Vg��*primcall-ops* Wg��for-each Xg�� hash-set! Yg��eq? ZY  [ZY \g��eqv? ]\  ^]\ _g��equal? `_  a`_ bg��= cb  dg��ee? ecd fg��< gf  hg��lt? igh jg��> kj  lg��gt? mkl ng��<= on  pg��le? qop rg��>= sr  tg��ge? ust vg��+ wv  xg��add ywx zg��- {z  |g��sub }{| ~g��1+ ~  �g��add1 � �g��1- �  �g��sub1 � �g��* �  �g��mul � �g��/ �  �g��div � �g��quotient �  �g��quo � �g�� remainder �  �g��rem � �g��modulo �  �g��mod � �g��ash �  � �g��logand �  � �g��logior �  � �g��logxor �  � �g��not �  � �g��pair? �  � �g��cons �  � �g��car �  � �g��cdr �  � �g��set-car! �  � �g��set-cdr! �  � �g��null? �  � �g��list? �  � �g��symbol? �  � �g��vector? �  �Č �g��list �nj �g��vector �Ɍ �g��class-of �  �ˌ �g�� vector-ref �  �Ό �g�� vector-set! �  �g�� vector-set �ӌ �g�� variable-ref �  �Ռ �g��variable-bound? �  �، �g��struct? �  �ی �g�� struct-vtable �  �ތ �g�� struct-ref �  �ጤ �g�� struct-set! �  �g�� struct-set �挤 �g��make-struct/no-tail �g�� make-struct �錤 �g��return �  �댤 �g�� return/values � �g��bytevector-u8-ref �  �g�� bv-u8-ref � �g��bytevector-u8-set! �  �g�� bv-u8-set � �g��bytevector-s8-ref �  �g�� bv-s8-ref � �g��bytevector-s8-set! �  �g�� bv-s8-set � �g��bytevector-u16-ref �  g�� bv-u16-ref  g��bytevector-u16-set!   g�� bv-u16-set  g��bytevector-u16-native-ref     g��bv-u16-native-ref      g��bytevector-u16-native-set!    g��bv-u16-native-set   g��bytevector-s16-ref   g�� bv-s16-ref  g��bytevector-s16-set!   g�� bv-s16-set  g��bytevector-s16-native-ref   g��bv-s16-native-ref  g��bytevector-s16-native-set!   g��bv-s16-native-set   g��bytevector-u32-ref !  "g�� bv-u32-ref #!" $g��bytevector-u32-set! %$  &g�� bv-u32-set '%& (g��bytevector-u32-native-ref )(  *g��bv-u32-native-ref +)* ,g��bytevector-u32-native-set! -,  .g��bv-u32-native-set /-. 0g��bytevector-s32-ref 10  2g�� bv-s32-ref 312 4g��bytevector-s32-set! 54  6g�� bv-s32-set 756 8g��bytevector-s32-native-ref 98  :g��bv-s32-native-ref ;9: <g��bytevector-s32-native-set! =<  >g��bv-s32-native-set ?=> @g��bytevector-u64-ref A@  Bg�� bv-u64-ref CAB Dg��bytevector-u64-set! ED  Fg�� bv-u64-set GEF Hg��bytevector-u64-native-ref IH  Jg��bv-u64-native-ref KIJ Lg��bytevector-u64-native-set! ML  Ng��bv-u64-native-set OMN Pg��bytevector-s64-ref QP  Rg�� bv-s64-ref SQR Tg��bytevector-s64-set! UT  Vg�� bv-s64-set WUV Xg��bytevector-s64-native-ref YX  Zg��bv-s64-native-ref [YZ \g��bytevector-s64-native-set! ]\  ^g��bv-s64-native-set _]^ `g��bytevector-ieee-single-ref a`  bg�� bv-f32-ref cab dg��bytevector-ieee-single-set! ed  fg�� bv-f32-set gef hg��!bytevector-ieee-single-native-ref ih  jg��bv-f32-native-ref kij lg��"bytevector-ieee-single-native-set! ml  ng��bv-f32-native-set omn pg��bytevector-ieee-double-ref qp  rg�� bv-f64-ref sqr tg��bytevector-ieee-double-set! ut  vg�� bv-f64-set wuv xg��!bytevector-ieee-double-native-ref yx  zg��bv-f64-native-ref {yz |g��"bytevector-ieee-double-native-set! }|  ~g��bv-f64-native-set }~ [^aeimquy} #'+/37;?CGKOSW[_cgkosw{�R g��gensym f��:L g�� make-label g��map g�� hashq-ref g��error f��bad var list element g��vars->bind-list g��make-glil-bind g�� emit-bindings g��make-glil-source g��reverse g��with-output-to-code g��<lambda> g�� lambda-src g�� lambda-meta g�� lambda-body g��make-glil-program g��flatten-lambda-case f��unhandled record g��push g��drop g��make-glil-void g��make-glil-lexical g��set f��bad let var allocation g��<void> g��vals g��tail g��make-glil-branch g��br g��make-glil-call g��<const> g�� const-src g�� const-exp g��make-glil-const g�� <sequence> g�� sequence-exps g�� <application> g��application-src g��application-proc g��application-args g��primitive-ref? g��hash-ref g��primitive-ref-name g��length g��instruction-pushes f��!bad primitive op: too many pushes g�� new-frame g�� tail-call g�� make-const g��tail-call/nargs g��call g�� call/nargs g��make-glil-mv-call g��make-glil-label g��make-glil-mv-bind g�� lexical-ref? g��assq g��lexical-ref-gensym g�� lambda-case? g��lambda-case-kw g��lambda-case-opt g��lambda-case-rest g��lambda-case-req g��box f��bad lambda-case arg allocation g��lambda-case-gensyms g��lambda-case-alternate f��*couldn't find matching case for label call g��assq-ref g��values g�� variable-set! g�� variable-set g��@call-with-current-continuation g�� tail-call/cc g��make-application g��make-primitive-ref g��call-with-current-continuation g��call/cc g��@call-with-values g��call-with-values g��@apply g�� tail-apply g��apply g��return/values* g�� <conditional> g��conditional-src g��conditional-test g��conditional-consequent g��conditional-alternate g��<primitive-ref> g�� br-if-not g��br-if g�� br-if-null g��br-if-eq g��br-if-not-null g�� br-if-not-eq g��primitive-ref-src g��module-variable g��the-root-module g��make-glil-toplevel g��ref g��make-glil-module g�� module-name g�� <lexical-ref> g��lexical-ref-src f��bad lexical allocation g�� <lexical-set> g��lexical-set-src g��lexical-set-gensym g��lexical-set-exp g�� <module-ref> g��module-ref-src g��module-ref-mod g��module-ref-name g��module-ref-public? g�� <module-set> g��module-set-src g��module-set-mod g��module-set-name g��module-set-public? g��module-set-exp g��<toplevel-ref> g��toplevel-ref-src g��toplevel-ref-name g��<toplevel-set> �g��toplevel-set-src g��toplevel-set-name g��toplevel-set-exp g��<toplevel-define> g��toplevel-define-src g��toplevel-define-name g��toplevel-define-exp g��define f��bad lambda free var allocation  g�� make-closure  g�� <lambda-case>  g��lambda-case-src  g��lambda-case-inits  g��lambda-case-body g�� list-index f�� bad kwarg g��max f��,lambda-case gensyms don't correspond to args g��make-glil-kw-prelude g��make-glil-opt-prelude g��make-glil-std-prelude g��delq f��bad keywords, yo g��append g�� list-tail g��bound? f��bad arg allocation g��make-glil-unbind g��<let> g��let-src g�� let-names g�� let-gensyms  g��let-vals !g��let-body "g��<letrec> #g�� letrec-src $g��letrec-in-order? %g�� letrec-names &g��letrec-gensyms 'g�� letrec-vals (g�� letrec-body )g�� empty-box *f��bad letrec var allocation +g��<fix> ,g��fix-src -g�� fix-names .g�� fix-gensyms /g��fix-vals 0g��fix-body 1f��bad fix var allocation 2g��reverse! 3f��bad free var allocation 4g��fix 5g�� <let-values> 6g��let-values-src 7g��let-values-exp 8g��let-values-body 9f��$unexpected lambda-case in let-values :f��bad let-values var allocation ;g�� <dynwind> <g�� dynwind-src =g�� dynwind-body >g��dynwind-winder ?g��dynwind-unwinder @g��wind Ag��unwind Bg��return/nvalues Cg��<dynlet> Dg�� dynlet-fluids Eg�� dynlet-vals Fg�� dynlet-body Gg�� dynlet-src Hg�� wind-fluids Ig�� unwind-fluids Jg��<dynref> Kg�� dynref-fluid Lg�� dynref-src Mg�� fluid-ref Ng��<dynset> Og�� dynset-fluid Pg�� dynset-exp Qg�� dynset-src Rg�� fluid-set Sg��<prompt> Tg�� prompt-src Ug�� prompt-tag Vg�� prompt-body Wg��prompt-handler Xg��make-glil-prompt Yf�� unexpected lambda-case in prompt Zf��!bad prompt handler arg allocation [g��<abort> \g�� abort-src ]g�� abort-tag ^g�� abort-args _g�� abort-tail `g��abortC�5��h�����]4    5675�4:�>��"��G���4;i5�<R=>i?@iABiCDiEFi�GRHIJK2LG������h���o���]�6������g�������g��kind  ��g��filenamef��!language/tree-il/compile-glil.scm ;  < �  ���CMNOPQRS<T����h�����]+H4455$��"��K4J54�>��"��G��44 �54 �5 54 54 54 5Y45 "��ZCZF������g��x  ��g��e  ��g��opts   ��g��warnings   ��g��t   '�g��analyses  2 M�g��x  i ��g��x  v ��g��x   ��g�� allocation  � ��� g��filenamef��!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 �  � ��g��nameg�� compile-glil�CR4Ui5�VR4WiXV���h���{���]��6��s�������g��x  ��g��filenamef��!language/tree-il/compile-glil.scm O O ' O /  O �   ���C>��"��G�����h���}���]�6u�������g��filenamef��!language/tree-il/compile-glil.scm �  �   � �   ��g��nameg�� make-label�CR������hp���'��]*44L�5L5$��D&��'$����C�6�6�6�����������g��id  k�g��v  k�g��v   k�g��vx  ! _�g��vy  ! _�g��vx  9 G�g��vy  9 G��g��filenamef��!language/tree-il/compile-glil.scm �   �   �   �   � F � K �  S �  W �  _ �  c �  k � �  k ���C������h������]O��6������������g��ids  �g��vars  �g�� allocation   �g��proc   ��g��filenamef��!language/tree-il/compile-glil.scm �  � �   ��g��nameg��vars->bind-list�CR���h �����]�44556�������������g��src  �g��ids  �g��vars   �g�� allocation   �g��proc   �g�� emit-code   ��g��filenamef��!language/tree-il/compile-glil.scm �  �  �   �   � �   ��g��nameg�� emit-bindings�CR����h ������]M�N��$��4�5M�N�CC��������g��src  �g��x  ��g��filenamef��!language/tree-il/compile-glil.scm �   �  �   �   �   �   � �   ��g��nameg�� emit-code�C��������h(������] H4�O�>��"��G��J6�������������g��proc  "�g��out  "��g��filenamef��!language/tree-il/compile-glil.scm �  �  �   �  " � �  " ��g��nameg��with-output-to-code�CR�h@������]L$��4�4L5>��"��G��"���L�LLL4LL5�6�����������g�� emit-code  <��g��filenamef��!language/tree-il/compile-glil.scm �   � �  �   �  / � # 8 �  < � �  < ���C� ��hP�����]#�&��54�54�54�54�O�56 �6����������g��x  L�g�� self-label  L�g�� allocation   L�g��rtd   L�g��src  $ D�g��meta  $ D�g��body  $ D��g��filenamef��!language/tree-il/compile-glil.scm �  �  / �  D �  H � �  L ��g��nameg��flatten-lambda�CTR���h������]L��6�����������g��tree  ��g��filenamef��!language/tree-il/compile-glil.scm �   � ( � �  ��g��nameg�� comp-push�C�h������]L��6�����������g��tree  ��g��filenamef��!language/tree-il/compile-glil.scm �   � ( � �  ��g��nameg�� comp-drop�CWH���h���*��]!4�L�5$��[&��@$��/4L45�>��"��G��L456L6L6L6�������"������g��h  y�g��v y�g��vx   o�g��vy   o�g��vy  / [��g��filenamef��!language/tree-il/compile-glil.scm �   � �  6 �  : � ) C �  O � ) U � B Y � ) [ �  _ � ' e � i � ' o � s � ' y � �  y ���C���h ���w���]4L�5LLL�O�6������o�������g��v  ��g��filenamef��!language/tree-il/compile-glil.scm �   �   � �   ���C������h0������]�$��"���$��LLLL�O�6C���������g��context  .�g��syms  .��g��filenamef��!language/tree-il/compile-glil.scm �  �  , � �  . ��g��nameg��clear-stack-slots�CVW���h�����])44L��5L5"��`$��Q&��8$��)&��L4566666$��E&��0$��%&��L456"\"X"T"P������g��sym  ��g��v  ��g��vx  % p�g��vy  % p�g��vx  = `�g��vy  = `�g��vx  � ��g��vy  � ��g��vx  � ��g��vy  � ��� g��filenamef��!language/tree-il/compile-glil.scm     !   ,   !    L  * R  C V  * X   \  & `   d  & h   l  & p   t  & x   x   �  * �  C �  * �   �  �  � ���CH��������h�����])44L��5L5"��`$��Q&��8$��)&��L4566666$��E&��0$��%&��L456"\"X"T"P������g��sym  ��g��v  ��g��vx  % p�g��vy  % p�g��vx  = `�g��vy  = `�g��vx  � ��g��vy  � ��g��vx  � ��g��vy  � ��� g��filenamef��!language/tree-il/compile-glil.scm        (       L  & R  ? V  & X   \  " `   d  " h   l  " p   t  " x   x   �  & �  ? �  & �   �  �  � ���CY<�T������hH������]�$��5��$��L�456L�6L�6�������g��loc  H�g��vx  >�g��vy   >�g��vy   4��g��filenamef��!language/tree-il/compile-glil.scm      '  & .  C 2  & 4   8  $ >   B  $ H  �  H ���C     ��hh�����])�$��V��$��=$��%(�� 4L�5C�6�6�6�6�������g��x  g�g��vx  _�g��vy   _�g��vy   W�g��vx  0 O�g��vy  0 O��g��filenamef��!language/tree-il/compile-glil.scm     ! =  . F  $ K  0 O  ) S  0 W  ) [  0 _  ) c  0 g  )�  g ���C~������hx���(��])44L��5L5$��[&��H$��?&��,4L45>��"��G��L456CCCC ������g��v  x�g��v  x�g��vx  ! v�g��vy  ! v�g��vx  9 r�g��vy  9 r��g��filenamef��!language/tree-il/compile-glil.scm             E   I   O  6 S   X   d   j  6 n   p  �  x ���CI !���h�����])44L��5L5"��i$��X&��=$��,&��LL456L6L6L6L6$��F&��1$��&&��LL456"R"N"J"F������������g��v  ��g��v  ��g��vx  % w�g��vy  % w�g��vx  = c�g��vy  = c�g��vx  � ��g��vy  � ��g��vx  � ��g��vy  � ��� g��filenamef��!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"#$%&'()*�����h���C��])44L��5L5$��X&��=$��,&��LL456L6L6L6L6���;������g��v  }�g��v  }�g��vx  ! s�g��vy  ! s�g��vx  9 _�g��vy  9 _��g��filenamef��!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�����]+44L�5L5$��n&��S$��B&��'4L>��"��G��LL456L6L6L6L6�����������g��name  ��g��v  ��g��val   ��g��v   ��g��vx  ! ��g��vy  ! ��g��vx  9 u�g��vy  9 u��g��filenamef��!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*��������h���C��])44L��5L5$��X&��=$��,&��LL456L6L6L6L6���;������g��v  }�g��v  }�g��vx  ! s�g��vy  ! s�g��vx  9 _�g��vy  9 _��g��filenamef��!language/tree-il/compile-glil.scm X   Y   Y (  Y   Y  I [ ' O [ @ S [ ' U [  Y \ $ _ \  c \ $ i \  m \ $ s \  w \ $ } \ �  } ���C+,-./0TW����h���y���]L�456���q�������g��loc  ��g��filenamef��!language/tree-il/compile-glil.scm y  z 0 z "�  ���C 1   ��h(��%��]J4L�5$��4L4�L5>��"��G��4L�5(��"��84LO�>��"��G��4L4455>��"��G��44L5L5$��X&��=$��,&��LL4 56  �6  �6  �6  �64 5�4L4 5>��"��G��"��$��&��4545454545 4L5 4L4 5>��"��G�� 4LLL>��"��G��$��4L45>��"��G��"���4LLL$��L"��LL�>��"��G��4L45�>��"��G�� " 6L4564�5"�����������g��x  #�g��v  #�g�� free-locs  5 |�g��v  � ��g��vx  � ��g��vy  � ��g��vx  � ��g��vy  � ��g��POST  � #�g��lcase   �g��rtd  %  �g��src  R �g��req  R �g��gensyms  R �g��body  R �g�� alternate R �g��label f ��g��filenamef��!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  # ���C2W3��������hH������]�$��5��$��L�456L�6L�6�������g��loc  H�g��vx  >�g��vy   >�g��vy   4��g��filenamef��!language/tree-il/compile-glil.scm      '  ( .  E 2  ( 4   8  & >   B  & H  �  H ���C41��h�����]24L�5$��4L�5"��(��C4L��O�>��"��G��44L5L5$��W&��<$��+&��L�456�6�6�6�6���������g��x  ��g��v  ��g�� free-locs   ��g��v  S ��g��vx  b ��g��vy  b ��g��vx  z ��g��vy  z ���g��filenamef��!language/tree-il/compile-glil.scm    !      &   !   !   &   )   D   G  ' S   S   �  % �  > �  % �   �  # �   �  # �   �  # �   �  # �  �  � ���C56789:�h�����])44L��5L5"��i$��X&��=$��,&��LL456L6L6L6L6$��F&��1$��&&��LL456"R"N"J"F������������g��v  ��g��v  ��g��vx  % w�g��vy  % w�g��vx  = c�g��vy  = c�g��vx  � ��g��vy  � ��g��vx  � ��g��vy  � ��� g��filenamef��!language/tree-il/compile-glil.scm       +      M  * S  C W  * Y   ]  ' c  g  ' m  q  ' w  {  ' �  �   �  * �  C �  * �   �  �  � ���C;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ�������h�����])44L��5L5"��i$��X&��=$��,&��LL456L6L6L6L6$��F&��1$��&&��LL456"R"N"J"F������������g��v  ��g��v  ��g��vx  % w�g��vy  % w�g��vx  = c�g��vy  = c�g��vx  � ��g��vy  � ��g��vx  � ��g��vy  � ��� g��filenamef��!language/tree-il/compile-glil.scm       +      M  * S  C W  * Y   ]  " c   g  " m   q  " w   {  " �   �   �  * �  C �  * �   �  �  � ���C[\]^_`��������hx3��Z��]O�O�O�LQ�LQ�LL�LQ��&��j$��"��$��"��$��4L45�>��"��G��"���$��L4  56&�� L4  56C &��4�54�5 $��"��$��"��$��4L4 5>��"��G��"���$��L4  56&�� L4  56C&��\4�5"��G (��   �"  4L >��"��G��   " "&�4�54�54�5  "�4 5$��944 54 55  $�� "��44 55 "��  $�"4 >��"��G��4L4  4 55>��"��G��4 5  $��j$��"��$��"��$��4L45�>��"��G��"���$��L4  56&�� L4  56C $��Q$��4L4  5>��"��G��"���$��L4  56&�� L4  56C $��C  4 56"�X&��"��4L4 ! 5>��"��G��4L >��"��G��4 >��"��G��4 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(5�4(5� 4L4'  5>��"��G��4L4  5>��"��G��4L4  $��"��5>��"��G��4L4) 5>��"��G��4L4* 5>��"��G��$��L4  56L4)56C4+ 5$�"��4,4- 5L5$��4 >��"��G��"��4. 5$��4/ 5$��"��440 5$��"��$41 5$��"��4 5442 55$��B43LLLO�4445 55>��"��G��46L 5 L4   5647 5 "^8�6494:L4- 555 "="L�$��4- 5L�&��&��4/L5$��"��E41L5$��"��54 5442L554;40L55  $�� "��  $��V4 >��"��G��4<LLLO�4445L55>��"��G��46LL5 L4   56"A"="9"5"4 5$� "�{4 5=&�$��?4 >��"��G��$��L4  56&�� L4  56C$��4 5  $��u4L4 ! 5>��"��G��4L >��"��G��4L4 % 5>��"��G��$��L4  56&�� L4  56C4 >��"��G��  4L >��"��G�� $��L4  56&�� L4  56C$��@4 >��"��G��4L44 55>��"��G��L4  56$��C4 >��"��G��L4 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(5�4(5�     &��"��4L4 ! 5>��"��G��4L>��"��G��4L4 ! 5>��"��G��4L >��"��G��4L4'  5>��"��G��$��4L4 " 5>��"��G��"��44L4 % 5>��"��G��4L4   5>��"��G��4L4) 5>��"��G��$��L4 $ 564L4 & 5>��"��G��4L4) 5>��"��G��&��4L4  5>��"��G��"���$��L4  56&�� L4  56C"O"K4 5I&�4 5 $�n    "�$��?4L >��"��G��4 >��"��G��L4 J4 556$��4L4 ! 5>��"��G��4L >��"��G��4 >��"��G��4L4 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 >��"��G��L4 L4 556C""""""9M&�z4N�54O�54P�54Q�5   4(5�4(5�   &�i4 54 5R&� 4545"��54L >��"��G��4L4 S 5>��"�G��"�"�T&� $�&�|454545R&�45"��54L>��"��G��4L4 U 5>��"�.G��"�'"��UV&��I $��=4L>��"��G��4L4 W 5>��"�G��"�"v"rX&��i $��\4L>��"��G��4L>��"��G��4L4 Y 5>��"�hG��"�a":"64L>��"��G��4L4 U 5>��"�(G��"�!4L>��"��G��4L4 U 5>��"��G��"��"""��UV&��I $��=4L>��"��G��4L4 Z 5>��"��G��"��""X&��m $��\4L>��"��G��4L>��"��G��4L4 [ 5>��"��G��"��":"��"2"��14L >��"��G��4L4 S 5>��"��G��"��14L >��"��G��4L4 S 5>��"��G��4L >��"��G��$��"��$��4L4   5>��"��G��"���4L4) 5>��"��G��4L >��"��G��$��"��$�� L4) 56CR&�4\�54�5 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&��4f�54-�5 $��"��$��"��$��4646L 5L5  $��d     $��3   4L4g  a5>��"��G�� "��4h� >��"��G��  "��4h� >��"��G�� "���$��L4  56&�� L4  56Ci&�14j�54k�54l�5  4L >��"��G��4646L 5L5  $��d     $��3  4L4g m5>��"��G��"��4h� >��"��G��  "��4h� >��"��G�� $��"��$��"��$��4L45�>��"��G��"���$��L4  56&�� L4  56Cn&��4o�54p�54q�54r�5   4L4ba   5>��"��G��$��4L4  5>��"��G��"���$��L4  56&�� L4  56Cs&��4t�54u�54v�54w�54x�5    4L >��"��G��4L4bm   5>��"��G��$��"��$��"��$��4L45�>��"��G��"���$��L4  56&�� L4  56Cy&��~4z�54{�5 4L4`a 5>��"��G��$��4L4  5>��"��G��"���$��L4  56&�� L4  56C|&��4}�54~�54�5  4L >��"��G��4L4`m 5>��"��G��$��"��$��"��$��4L45�>��"��G��"���$��L4  56&�� L4  56C&��4�54�54�5  4L >��"��G��4L4` 5>��"��G��$��"��$��"��$��4L45�>��"��G��"���$��L4  56&�� L4  56C&��46L�5$��"��$��"��$��c4L4�L5>��"��G��(��"��:4L�O�>��"��G��4L4 455>��"��G��"���$��L4  56&�� L4  56C&�4�542�540�541�54/�54�545�547�54�5     4 5 $�� 4 5"��  $�� "�� $�� "��4O� $�� "��54 $�� "�� 4455?46L�5$�� 4(5�"��45$��4 5 $�� "�� "��$��"��&4     > ��"��G��4L $��45"��/ $��"�� $��45"�� 45>��"��G��4LLLO�>��"��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>��"��G��4L4 U!5>��"��G��"4L">��"��G��"4L4gm5>��"��G��4L4)!5>��"��G��" !&��4>��"��G��"��"�� &��4>��"��G��"��"��&��4>��"��zG��"��s"��o&��4>��"��NG��"��G"��C$��$��">"H"D 45"46L�54L4)5>��"��G��4L>��"��G��(��"��4L45�>��"��G��$��(4L4)5>��"��G��LLL�LL6C&��4�54�54�54�54�5    4 >��"��G��4  LLL>��"��G��4LL�LO�44 5>��"��G��4L >��"��G��4 >��"��G��L45�6&�4�54�54�54�54�54�5     4LLL�O� >��"��G��4  LLL>��"��G�� $��+4LLLL�O�   >��"��G��"��:4 >��"��G��4LLL�O�44 5>��"��G��4L >��"��G��4 >��"��G��L45�6&�{4�54�54�54�54�5    &��"��$��"��4(5� 4 LLLLO�   >��"��G��"��K(�� 45"��I4,L5$��""  "44545LLL>��"��G��4LLLO�  >��"��G��4L >��"��G�� $��4L4) 5>��"��G��"���4 >��"��G��L45�6&�4�54�54�5     &�a42 540 54/ 541 545 54 547 5   $��"�� $��"��$��4�>��"��G��"���4(5�4L >��"��G��4L4 5>��"��G��4L4)5>��"��G��4L4*44 $�� �"��5LL5$��"��5>��"��G��4LL�LO�445>��"��G��4L>��"��G��4>��"��G��L45�6 6&�4�54�54�54�5   4L >��"��G��4L >��"��G��4C 5 4L >��"��G�� 4L4  5>��"��G��$��4(5� 4L  >��"��G��4L4  5>��"��G��4C 5 4L >��"��G�� 4L4  5>��"��G��4L4) 5>��"��G��4L4  5>��"��G��4C 5 4L >��"��G�� L4  56$��M4L >��"��G��4L4  5>��"��G��4C 5  �"h$��4(5� 4L  >��"��G��4L4 5>��"��G��4L4) 5>��"��G��4L4  5>��"��G��4C 5 4L >��"��G�� L4  56$��j4L >��"��G��4L4  5>��"��G��4C 5 4L >��"��G�� $��L4  56CC&�4�54�54�5  4�>��"��G��4>��"��G��4 >��"��G��4L4 455>��"��G��$��4(5� 4L  >��"��G��4L4  5>��"��G��4L4  5>��"��G��4L4) 5>��"��G��4L4  5>��"��G��L4  56$��#4L >��"��G��L4  56$��t4(5� 4L  >��"��G��4L4 5>��"��G��4L4) 5>��"��G��4L4  5>��"��G��L4  56$��E4L >��"��G��4L4  5>��"��G��$��L4  56CC&��4�54�>��"��G��$��4L>��"��G��"��X$��"��$��"��$��34L>��"��G��4L4  5>��"��G��"���$��L4  56&�� L4  56C&��4�54�5 4�>��"��G��4L>��"��G��4L >��"��G��4L4  5>��"��G��$��"��$��"��$��4L45�>��"��G��"���$��L4  56&�� L4  56C&�4�54�54�54�5   4(5�4(5�46L�5  4L >��"��G��4L4 5>��"��G��$��4(5�4L >��"��G��4L4  5>��"��G��4L4  5>��"��G��4L4)5>��"��G��4L4  5>��"��G��4L4  5>��"��G��"�T$��Y4L >��"��G��4L4  5>��"��G��4L4  $��"�� 5>��"��G��"��$��4(5�4L >��"��G��4L4 5>��"��G��4L4)5>��"��G��4L4  5>��"��G��4L4  5>��"��G��"��b$��Y4L >��"��G��4L4  5>��"��G��4L4  $��"�� 5>��"��G��"���4L4) 5>��"��G�� &�%42 540 54/ 541 545 54 547 5$��"�� $��"��$��4�>��"��G��"���4L4*44$�� �"��5LL5$��"��5>��"��G��4LL�LO�445>��"��G��4L>��"��G��4L45�>��"��G��"��4 >��"��G��$��"��&��"��$�� L4) 56C&��4�54�54�54�5   4L >��"��G��4 >��"��G��4L >��"��G��4L4 4 55>��"��G��$�� L4  56$��.4L4* 5>��"��G��$��L4  56C$�� L4* 56$��L4  56C�6���Z������g��x  3u�g��context  3u�g��RA   3u�g��MVRA   3u�g�� comp-push   3u�g�� comp-drop   3u�g��clear-stack-slots   3u�g��rtd  5 3u�g��src  � 0�g��exp � 0�g��exps  ? �g��exps E �g��tree O e�g��tree h �g��src   �g��proc  �g��args  �g��t  �g��t � d�g��key C *�g��len  �g��tree  �g��tree  /�g��MV  �g��POST   �g��lcase  i�g��label C T�g��t  �g��label ? P�g��key  �g��tree o �g��len & H�g��tree o �g��tree �g��tree _ z�g��tree �g��tree �g��tree o �g��tree �g��MV L �g��POST L �g��producer L �g��consumer  L �g��proc  v�g��args  v�g��tree  0�g��tree x �g��src   �g��test  �g�� consequent  �g�� alternate  �g��L1  �g��L2  �g��rtd   f�g��proc   .�g��args   .�g��rtd   (�g��name   �g��len   �g��app  J �g��rtd  O  �g��proc  g �g��args  g �g��len  r �g��rtd  w �g��name   �g��tree   �g��tree  0 K�g��tree  O j�g��tree  / J�g��tree   �g��tree   �g��src   �g��name  �g��src   �g��gensym  �g��v  p�g��vx  S�g��vy  S�g��vx  3�g��vy   3�g��src   �g��gensym  �g��exp  �g��v  n�g��vx  Q�g��vy  Q�g��vx   1�g��vy   1�g��src   t�g��mod  t�g��name  t�g��public?  t�g��src   H�g��mod  H�g��name  H�g��public?  H�g��exp  H�g��src  ^ �g��name ^ �g��src   �g��name  �g��exp  �g��src   J�g��name  J�g��exp  J�g�� free-locs  \ �g��src  [ "�g��req [ "�g��opt [ "�g��rest [ "�g��kw [ "�g��inits [ "�g��gensyms  [ "�g�� alternate  [ "�g��body  [ "�g��nreq  t "�g��nopt   "�g��rest-idx   "�g��allow-other-keys?   "�g�� kw-indices   "�g��nargs   "�g��nlocs   "�g��alternate-label   "�g��b   C�g��t  C x�g��kw   �g��names   �g��gensyms   �g��vx  2 �g��vy  2 �g��vy  @ �g��vx  S �g��vy S �g��vx ! d �g��vy " d �g��inits  c "-�g��n  c "-�g��gensyms  c "-�g��v  "�g��vx  !�g��vy  !�g��vx  !�g��vy !�g��L ! !]�g��tree " !�g��label  "N "k�g��src  " #�g��names " #�g��gensyms " #�g��vals " #�g��body " #�g��src  # $�g�� in-order? # $�g��names # $�g��gensyms # $�g��vals # $�g��body # $�g��src  $ &3�g��names $ &3�g��gensyms $ &3�g��vals $ &3�g��body $ &3�g��new-RA % &3�g��out  %3 %~�g��gensyms  %3 %~�g��names  %3 %~�g��binds  % %�g��src  &P '�g��exp &P '�g��body &P '�g��rtd &Y '�g��req & '�g��opt & '�g��kw  & '�g��rest  & '�g��gensyms  & '�g��body  & '�g�� alternate  & '�g��MV  & '�g��src  ' *�g��body ' *�g��winder ' *�g��unwinder ' *�g��tree (. (I�g��MV (q )D�g��tree ( (�g��tree ) )7�g��tree ) )�g��MV ) *<�g��tree * *.�g��tree *~ *�g��fluids  * ,�g��vals * ,�g��body * ,�g��MV +; +�g��MV + ,m�g��fluid  , -�g��fluid  - .b�g��exp - .b�g��src  . 2f�g��tag . 2f�g��body . 2f�g��handler . 2f�g��H . 2f�g��POST . 2f�g�� escape-only?  . 2f�g��MV  . /~�g��MV  / 0p�g��rtd  0 27�g��req  1, 2�g��opt  1, 2�g��kw  1, 2�g��rest  1, 2�g��gensyms  1, 2�g��body  1, 2�g�� alternate  1, 2�g��src  2 3m�g��tag 2 3m�g��args 2 3m�g��tail 2 3m��g��filenamef��!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 ��g��nameg��comp�C����h0���&��]O��Q��6�����������g��lcase  +�g�� allocation  +�g��self   +�g�� self-label   +�g�� fix-labels   +�g�� emit-code   +�g��comp   +��g��filenamef��!language/tree-il/compile-glil.scm �  �  ' � + � �  + ��g��nameg��flatten-lambda-case�CRC�����������g��m  ,��g��filenamef��!language/tree-il/compile-glil.scm   - ,  6 , 8 /  _ .  5  M   M  N v P { N ! �  � � � � ������ǒ � � ������ǔ ���C6�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/tree-il/primitives.go����������������������������������������������������������������������0000644�����������������00000133444�15253700563�0012431 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0 ������]l�4��h������]� g��guile � g��define-module* � � g��language g��tree-il g�� primitives � g��filenameS f��language/tree-il/primitives.scm g��importsS g��system g��base g��pmatch  � � g��ice-9 g��match � � g��rnrs g�� bytevectors � � g��syntax  � � � � g��srfi g��srfi-4 ! � "!� #g��srfi-16 $#� %$� &"%� 'g��exportsS (g��resolve-primitives! )g��add-interesting-primitive! *g��expand-primitives! +g��effect-free-primitive? ,g�� effect+exception-free-primitive? -g��constructor-primitive? .g��accessor-primitive? /g��singly-valued-primitive? 0g��bailout-primitive? 1g��negate-primitive 2()*+,-./01�  3g��set-current-module 43� 53� 6g��apply 7g��@apply 8g��call-with-values 9g��@call-with-values :g��call-with-current-continuation ;g��@call-with-current-continuation <g��call/cc =g�� dynamic-wind >g�� @dynamic-wind ?g��values @g��eq? Ag��eqv? Bg��equal? Cg��memq Dg��memv Eg��= Fg��< Gg��> Hg��<= Ig��>= Jg��zero? Kg�� positive? Lg�� negative? Mg��+ Ng��* Og��- Pg��/ Qg��1- Rg��1+ Sg��quotient Tg�� remainder Ug��modulo Vg��ash Wg��logand Xg��logior Yg��logxor Zg��lognot [g��not \g��pair? ]g��null? ^g��list? _g��symbol? `g��vector? ag��string? bg��struct? cg��number? dg��char? eg��complex? fg��real? gg�� rational? hg��inf? ig��nan? jg��integer? kg��exact? lg��inexact? mg��even? ng��odd? og��char<? pg��char<=? qg��char>=? rg��char>? sg�� integer->char tg�� char->integer ug��number->string vg��string->number wg��acons xg��cons yg��cons* zg��list {g��vector |g��car }g��cdr ~g��set-car! g��set-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�� vector-ref �g�� vector-set! �g�� variable-ref �g�� variable-set! �g��variable-bound? �g�� fluid-ref �g�� fluid-set! �g��@prompt �g��call-with-prompt �g��@abort �g��abort-to-prompt �g��make-prompt-tag �g��throw �g��error �g�� scm-error �g�� string-length �g�� string-ref �g�� string-set! �g�� struct-vtable �g�� make-struct �g�� struct-ref �g�� struct-set! �g��bytevector-u8-ref �g��bytevector-u8-set! �g��bytevector-s8-ref �g��bytevector-s8-set! �g�� u8vector-ref �g�� u8vector-set! �g�� s8vector-ref �g�� s8vector-set! �g��bytevector-u16-ref �g��bytevector-u16-set! �g��bytevector-u16-native-ref �g��bytevector-u16-native-set! �g��bytevector-s16-ref �g��bytevector-s16-set! �g��bytevector-s16-native-ref �g��bytevector-s16-native-set! �g�� u16vector-ref �g��u16vector-set! �g�� s16vector-ref �g��s16vector-set! �g��bytevector-u32-ref �g��bytevector-u32-set! �g��bytevector-u32-native-ref �g��bytevector-u32-native-set! �g��bytevector-s32-ref �g��bytevector-s32-set! �g��bytevector-s32-native-ref �g��bytevector-s32-native-set! �g�� u32vector-ref �g��u32vector-set! �g�� s32vector-ref �g��s32vector-set! �g��bytevector-u64-ref �g��bytevector-u64-set! �g��bytevector-u64-native-ref �g��bytevector-u64-native-set! �g��bytevector-s64-ref �g��bytevector-s64-set! �g��bytevector-s64-native-ref �g��bytevector-s64-native-set! �g�� u64vector-ref �g��u64vector-set! �g�� s64vector-ref �g��s64vector-set! �g��bytevector-ieee-single-ref �g��bytevector-ieee-single-set! �g��!bytevector-ieee-single-native-ref �g��"bytevector-ieee-single-native-set! �g��bytevector-ieee-double-ref �g��bytevector-ieee-double-set! �g��!bytevector-ieee-double-native-ref �g��"bytevector-ieee-double-native-set! �g�� f32vector-ref �g��f32vector-set! �g�� f64vector-ref �g��f64vector-set! �6789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~� �g��*interesting-primitive-names* �g�� hashq-set! �g��*interesting-primitive-vars* �g��module-variable �g��current-module �f��unbound interesting primitive �g��make-hash-table �g��for-each �g��make-struct/no-tail �wxyz{� �g��*primitive-constructors* �|}CD� �g��*primitive-accessors* �g��append �� �� �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��<toplevel-ref> g��toplevel-ref-src g��toplevel-ref-name g��and=> g��make-primitive-ref g�� <module-ref> g��module-ref-src g��module-ref-mod g��module-ref-name g��module-ref-public? g��resolve-module g��module-public-interface g��identity g��*primitive-expand-table* g�� pre-order! g�� <application> g��application-src  g��application-proc !g��application-args "g��primitive-ref? #g��primitive-ref-name $g��make-syntax-transformer %$� &$� 'g��define-primitive-expander (g��macro )g�� $sc-dispatch *)� +)� ,g��_ -g��any .,- /g�� syntax->datum 0/� 1/� 2g�� datum->syntax 32� 42� 5g��reverse 6g��quote 7g�� make-const 8g��src 9g��make-application :g��self-evaluating? ;f�� what what <g��if =f��bad consequent yall >g�� match-lambda* ?,� @g��syntax-violation A@� B@� Cf��-source expression failed to match any pattern Dg��length ED� FD� Gg��last HG� I5� J5� Kg��const? Lg�� const-exp Mg��gensym Nf��b Og��make-lexical-ref Pg��b Qg��make-let RP� Sg��make-conditional Tg��chained-comparison-expander UFGHIE� V� Wg��most-negative-fixnum Xg��most-positive-fixnum Yg��maybe-simplify-to-eq Zf��pre- [f��thunk- \f��post- ]g��pre ^g��thunk _g��post `]^_� ag�� make-dynwind b]_� cg�� make-dynref dg�� make-dynset eg�� make-prompt fg��make-lambda-case gg�� tree-il-src hg��args ig��handler ji� kg�� make-abortC�5�h`��b��]4    &'25�45�>��"��G���R�������h0������] 445��5$��"�� 4�5�6�������g��name  0�g��t  ,��g��filenamef��language/tree-il/primitives.scm t  v  v #  v   v  ! w  % w  ) w  0 u �  0 ��g��nameg��add-interesting-primitive!�C)R4i5�R4i)ii>��"��G��RR?@ABEFGHIJKLVWXYZMNOPQRSTU[\]^_`bacdefghijklmnopqrstuv4ii5RRR�RR4i5�R4i5� R4i5� R4i5� R4i5� R4i�����h���l���]�6�����d�������g��x  ��g��filenamef��language/tree-il/primitives.scm � � �  ���Ci>��"��G��4i �����h���l���]�6�����d�������g��x  ��g��filenamef��language/tree-il/primitives.scm � � �  ���Ci>��"��G��4i �����h���l���]�6�����d�������g��x  ��g��filenamef��language/tree-il/primitives.scm � � �  ���Ci>��"��G��4i �����h���l���]�6�����d�������g��x  ��g��filenamef��language/tree-il/primitives.scm � � �  ���Ci>��"��G��4i ����h(������]4��>��"��G����6���������g��x  &��g��filenamef��language/tree-il/primitives.scm �  � � 4 � <  � ! � 4 $ � < & � �  & ���Ci>��"��G��C����h������]�6�������������g��prim  ��g��filenamef��language/tree-il/primitives.scm � � �  ��g��nameg��constructor-primitive?�C-RC����h������]�6�������������g��prim  ��g��filenamef��language/tree-il/primitives.scm � � �  ��g��nameg��accessor-primitive?�C.R �����h������]�6�������������g��prim  ��g��filenamef��language/tree-il/primitives.scm � � �  ��g��nameg��effect-free-primitive?�C+R  ��h������]�6�������������g��prim  ��g��filenamef��language/tree-il/primitives.scm � � �  ��g��nameg�� effect+exception-free-primitive?�C,R  ��������h������]4�5C����������g��prim  ��g��filenamef��language/tree-il/primitives.scm �  �  � �  ��g��nameg��singly-valued-primitive?�C/R  �������h������]�6�������������g��prim  ��g��filenamef��language/tree-il/primitives.scm � � �  ��g��nameg��bailout-primitive?�C0R  ������h������]�6�������������g��prim  ��g��filenamef��language/tree-il/primitives.scm � � �  ��g��nameg��negate-primitive�C1R ���h���o���]L��6������g�������g��name  ��g��filenamef��language/tree-il/primitives.scm �  � �  ���C �������h���o���]L��6������g�������g��name  ��g��filenamef��language/tree-il/primitives.scm �   �  ���C������h ������]44�L55L�O�6����������g��m  ��g��filenamef��language/tree-il/primitives.scm �   �  � #  �   � �   ���C������h���K��])�&��-4�54�544L�55O�6 &��K4 �54 �54 �54 �5445$��"��5O�6C�������C������g��x  ��g��rtd  ��g��src   <�g��name   <�g��src  ` ��g��mod  ` ��g��name  ` ��g��public?  ` ���g��filenamef��language/tree-il/primitives.scm �   �  $ �  ) �  3 �  < �  D �  k �  n �  z �  � �  � � �  � ���C��h������]O��6��������g��x  �g��mod  ��g��filenamef��language/tree-il/primitives.scm �  � �   ��g��nameg��resolve-primitives!�C(R4i5�R !" #� �����h`��� ��])�&��H4�54�54�545$�� 4455$��@CCC�������������g��x  Y�g��rtd  Y�g��src  $ W�g��proc  $ W�g��args  $ W�g��expand  C U��g��filenamef��language/tree-il/primitives.scm      +  5   6   ;  & C   C  K   S  �  Y ���C��������h������]�6�������������g��x  ��g��filenamef��language/tree-il/primitives.scm   �  ��g��nameg��expand-primitives!�C*R4&'(+.14z5y6789:;� �����h�����]"��(�� 45C$��445�5C$��F&��"��  ��4L�5�"$��"l4 5$���"H  6�"4������������g��args  ��g��in  ��g��out   ���g��filenamef��language/tree-il/primitives.scm             !           $  $ /   6   7  ;   >   A  D  * H   J   O  . Q   X !  c ! L g !  k " / p " < s " / v !  y   �  � $  � $ �   � &  � & � &  � & � ' � '  � ' �   � (  � ( � ( 2 � ( � (  � ( � *  � * � * �   �   �  �6  � ��g��nameg�� inline-args�C<986c7=� ����h0����]A�$����&��$��$��q$��C(��4L�54L�5�C��4L5�C��4L5�C��4L5�C��4L5�C��4L5�C�$���C4�5$�� ��C�$�� �6C������������g��exp  *�g��vx  ��g��vy   ��g��vx  ( ��g��vy  ( ��g��vx  9 ��g��vy  9 ��g��vx  J ��g��vy  J ��� g��filenamef��language/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  * ��g��nameg�� consequent�C6>5?8� ��h�����-�1�3�O�O�Q�Q���"��5(��45"��, 45�""�C����������g��sym |�g��clauses |�g�� inline-args   |�g�� consequent   |�g��in  7 l�g��out  7 l��g��filenamef��language/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 ? � | ���C����h���t���] 4�5L�4?6l�������g��args  �g��v ��g��filenamef��language/tree-il/primitives.scm   �   ���CBC���h(���r���] 4�5$�� �O�@�6�j�������g��y  '�g��tmp '��g��filenamef��language/tree-il/primitives.scm  �  ' ���C5'R4iiJ9E7�����hP���Z���-��1��3��$��=��$��*(��!454 5�6CCC�R�������g��expr O�g��w  M�g��x   M�g��w  + I�� O ���C>��"��G��4iiK9G7������hP���Z���-��1��3��$��=��$��*(��!454 5�6CCC�R�������g��expr O�g��w  M�g��x   M�g��w  + I�� O ���C>��"��G��4iiL9F7������hP���Z���-��1��3��$��=��$��*(��!454 5�6CCC�R�������g��expr O�g��w  M�g��x   M�g��w  + I�� O ���C>��"��G��4iiMFHJ9MKLRQ7?� hp��K��-��1��3�"�"���$����$��$��45$�� 45"��$�� "��$��C"��x $��L4 5  $��: (��1  45445 5 �6CC $��         "C   "yCCC�$����$��$��(��"��45�6"��T45$��E 45&��4 5�6 45&��4 5�6""45$��E 45&��4 5�6 45&��4 5�6"\"X" """�$��L�(�� �  6��$��$(��4 5�6"""�����C������g��expr k�g��w  �g��x   �g��w  / �g��x  / �g��w  @ �g��x  @ �g��tail-len  K �g��len  ` �g��ls | ��g��n | ��g��p-ls | ��g��z � ��g��w � ��g��w � ��g��w  �g��x   �g��w  '  �g��x  '  �g��w  < �g��w % .�g��w 4 g�g��x  4 g�g��w  I _��g��filenamef��language/tree-il/primitives.scm ] \  i \ * s \   ^ .  ^   X   X "  X  Z &  Z � k ���C>��"��G��4iiNFHJ9N7?� �h`��a��-��1��3�"���$����$��$��45$�� 45"��$�� "��$��C"��x $��L4 5  $��: (��1  45445 5 �6CC $��         "C   "yCCC�$��L�(�� � 6��$��$(��45�6"""����Y������g��expr \�g��w  �g��x   �g��w  + �g��x  + �g��w  < ��g��x  < ��g��tail-len  G ��g��len  \ ��g��ls x ��g��n x ��g��p-ls x ��g��z � ��g��w � ��g��w � ��g��w  �g��w % X�g��x  % X�g��w  : P�� \ ���C>��"��G��4iiOFHJ9OKLQ7� �����h����-��1��3�"�"���$����$��$��45$�� 45"��$�� "��$��C"��x $��L4 5  $��: (��1  45445 5 �6CC $��         "C   "yCCC�$����$��r$��](��R"��45�645$��$ 45&��4 5�6""""~"z"v�$��A��$��,(��!454  5�6"."*"&�������g��expr �g��w  �g��x   �g��w  / �g��x  / �g��w  @ �g��x  @ �g��tail-len  K �g��len  ` �g��ls | ��g��n | ��g��p-ls | ��g��z � ��g��w � ��g��w � ��g��w  �g��x   �g��w  ' �g��x  ' �g��w  < �g��w  �g��x   �g��w   ��g��filenamef��language/tree-il/primitives.scm Y j  e j " o j �  ���C>��"��G��4iiPFHJ9P7��hX��Q��-��1��3�"���$����$��$��45$�� 45"��$�� "��$��C"��x $��L4 5  $��: (��1  45445 5 �6CC $��         "C   "yCCC�$��A��$��,(��!454 5�6"""�������I������g��expr Q�g��w  �g��x   �g��w  + �g��x  + �g��w  < ��g��x  < ��g��tail-len  G ��g��len  \ ��g��ls x ��g��n x ��g��p-ls x ��g��z � ��g��w � ��g��w � ��g��w  M�g��x   M�g��w  ' E�� Q ���C>��"��G��4iiXFHJ9X7������h����-��1��3�"�W"���$����$��$��45$�� 45"��$�� "��$��C"��x $��L4 5  $��: (��1  45445 5 �6CC $��         "C   "yCCC�$��P��$��;$��&(��45�6""""�$��T�(�� � 6��$��,(��!454 5�6"R"N"J�����������g��expr �g��w  �g��x   �g��w  / �g��x  / �g��w  @ �g��x  @ �g��tail-len  K �g��len  ` �g��ls | ��g��n | ��g��p-ls | ��g��z � ��g��w � ��g��w � ��g��w  `�g��x   `�g��w  ' \�g��x  ' \�g��w  < T�g��w u ~�g��w  �g��x   �g��w   ��  ���C>��"��G��4iiWFHJ9W7��h����-��1��3�"�W"���$����$��$��45$�� 45"��$�� "��$��C"��x $��L4 5  $��: (��1  45445 5 �6CC $��         "C   "yCCC�$��P��$��;$��&(��45�6""""�$��V�(�� � 6��$��-(��"454 5�6"P"L"H���������g��expr �g��w  �g��x   �g��w  / �g��x  / �g��w  @ �g��x  @ �g��tail-len  K �g��len  ` �g��ls | ��g��n | ��g��p-ls | ��g��z � ��g��w � ��g��w � ��g��w  `�g��x   `�g��w  ' \�g��x  ' \�g��w  < T�g��w u �g��w  �g��x   �g��w   ��  ���C>��"��G��4ii9|������h`���Z���-��1��3��$��H��$��5(��,45445�5�6CCC������R�������g��expr Z�g��w  X�g��x   X�g��w  + T�� Z ���C>��"��G��4ii9|}�������h`���Z���-��1��3��$��H��$��5(��,45445�5�6CCC������R�������g��expr Z�g��w  X�g��x   X�g��w  + T�� Z ���C>��"��G��4ii9}|�������h`���Z���-��1��3��$��H��$��5(��,45445�5�6CCC������R�������g��expr Z�g��w  X�g��x   X�g��w  + T�� Z ���C>��"��G��4ii9}�h`���Z���-��1��3��$��H��$��5(��,45445�5�6CCC������R�������g��expr Z�g��w  X�g��x   X�g��w  + T�� Z ���C>��"��G��4ii9|�hp���Z���-��1��3��$��[��$��H(��?45445445�5�5�6CCC���R�������g��expr m�g��w  k�g��x   k�g��w  + g�� m ���C>��"��G��4ii9|}�������hp���Z���-��1��3��$��[��$��H(��?45445445�5�5�6CCC���R�������g��expr m�g��w  k�g��x   k�g��w  + g�� m ���C>��"��G��4ii9|}�������hp���Z���-��1��3��$��[��$��H(��?45445445�5�5�6CCC���R�������g��expr m�g��w  k�g��x   k�g��w  + g�� m ���C>��"��G��4ii9|}�������hp���Z���-��1��3��$��[��$��H(��?45445445�5�5�6CCC���R�������g��expr m�g��w  k�g��x   k�g��w  + g�� m ���C>��"��G��4ii9}|�������hp���Z���-��1��3��$��[��$��H(��?45445445�5�5�6CCC���R�������g��expr m�g��w  k�g��x   k�g��w  + g�� m ���C>��"��G��4ii9}|�������hp���Z���-��1��3��$��[��$��H(��?45445445�5�5�6CCC���R�������g��expr m�g��w  k�g��x   k�g��w  + g�� m ���C>��"��G��4ii9}|�������hp���Z���-��1��3��$��[��$��H(��?45445445�5�5�6CCC���R�������g��expr m�g��w  k�g��x   k�g��w  + g�� m ���C>��"��G��4ii9}�hp���Z���-��1��3��$��[��$��H(��?45445445�5�5�6CCC���R�������g��expr m�g��w  k�g��x   k�g��w  + g�� m ���C>��"��G��4ii9|�h���\���-��1��3��$��n��$��[(��R45445445445�5�5�5�6CCCT�������g��expr ��g��w  ~�g��x   ~�g��w  + z�� � ���C>��"��G��4ii9|}�����h���\���-��1��3��$��n��$��[(��R45445445445�5�5�5�6CCCT�������g��expr ��g��w  ~�g��x   ~�g��w  + z�� � ���C>��"��G��4ii9|}�����h���\���-��1��3��$��n��$��[(��R45445445445�5�5�5�6CCCT�������g��expr ��g��w  ~�g��x   ~�g��w  + z�� � ���C>��"��G��4ii9|}�����h���\���-��1��3��$��n��$��[(��R45445445445�5�5�5�6CCCT�������g��expr ��g��w  ~�g��x   ~�g��w  + z�� � ���C>��"��G��4ii9|}�����h���\���-��1��3��$��n��$��[(��R45445445445�5�5�5�6CCCT�������g��expr ��g��w  ~�g��x   ~�g��w  + z�� � ���C>��"��G��4ii9|}�����h���\���-��1��3��$��n��$��[(��R45445445445�5�5�5�6CCCT�������g��expr ��g��w  ~�g��x   ~�g��w  + z�� � ���C>��"��G��4ii9|}�����h���\���-��1��3��$��n��$��[(��R45445445445�5�5�5�6CCCT�������g��expr ��g��w  ~�g��x   ~�g��w  + z�� � ���C>��"��G��4ii9|}�����h���\���-��1��3��$��n��$��[(��R45445445445�5�5�5�6CCCT�������g��expr ��g��w  ~�g��x   ~�g��w  + z�� � ���C>��"��G��4ii9}|�����h���\���-��1��3��$��n��$��[(��R45445445445�5�5�5�6CCCT�������g��expr ��g��w  ~�g��x   ~�g��w  + z�� � ���C>��"��G��4ii9}|�����h���\���-��1��3��$��n��$��[(��R45445445445�5�5�5�6CCCT�������g��expr ��g��w  ~�g��x   ~�g��w  + z�� � ���C>��"��G��4ii9}|�����h���\���-��1��3��$��n��$��[(��R45445445445�5�5�5�6CCCT�������g��expr ��g��w  ~�g��x   ~�g��w  + z�� � ���C>��"��G��4ii9}|�����h���\���-��1��3��$��n��$��[(��R45445445445�5�5�5�6CCCT�������g��expr ��g��w  ~�g��x   ~�g��w  + z�� � ���C>��"��G��4ii9}|�����h���\���-��1��3��$��n��$��[(��R45445445445�5�5�5�6CCCT�������g��expr ��g��w  ~�g��x   ~�g��w  + z�� � ���C>��"��G��4ii9}|�����h���\���-��1��3��$��n��$��[(��R45445445445�5�5�5�6CCCT�������g��expr ��g��w  ~�g��x   ~�g��w  + z�� � ���C>��"��G��4ii9}|�����h���\���-��1��3��$��n��$��[(��R45445445445�5�5�5�6CCCT�������g��expr ��g��w  ~�g��x   ~�g��w  + z�� � ���C>��"��G��4ii9}�������h���\���-��1��3��$��n��$��[(��R45445445445�5�5�5�6CCCT�������g��expr ��g��w  ~�g��x   ~�g��w  + z�� � ���C>��"��G��4iiy9xy?���h����-��1��3�"��"��b�$��Y��$��F$��3454455�6CCC�$��P��$��;$��&(��45�6"O"K"G"C�$��9��$��$(��45�6"""������������g��expr �g��w  q�g��x   q�g��w  / o�g��x  / o�g��w  @ m�g��x  @ m�g��w � ��g��x  � ��g��w  � ��g��x  � ��g��w  � ��g��w � �g��x  � �g��w  � ��  ���C>��"��G��4iiw9x����h������-��1��3��$��r��$��_$��L$��9(��045445�5�6CCCCC�����������g��expr ��g��w  ��g��x   ��g��w  ' ��g��x  ' ��g��w  8 ~�g��x  8 ~�g��w  M z�� � ���C>��"��G��4ii697�������h`������-��1��3��$��G��$��4$��!456CCC��������������g��expr Y�g��w  W�g��x   W�g��w  ' U�g��x  ' U�g��w  8 S�g��x  8 S�� Y ���C>��"��G��4ii899����h`���x���-��1��3��$��J��$��7$��$(��45�6CCCC����p�������g��expr \�g��w  Z�g��x   Z�g��w  ' X�g��x  ' X�g��w  < T�� \ ���C>��"��G��4ii:9;���hH���Z���-��1��3��$��5��$��"(��45�6CCC�R�������g��expr G�g��w  E�g��x   E�g��w  + A�� G ���C>��"��G��4ii<9;�hH���Z���-��1��3��$��5��$��"(��45�6CCC�R�������g��expr G�g��w  E�g��x   E�g��w  + A�� G ���C>��"��G��4iiKLck9�������h���!��-��1��3��$����$��t$��a45$��J4545$��45$�� "��"��$��456CCCCC�������������g��expr ��g��w  ��g��x   ��g��w  ' ��g��x  ' ��g��w  8 ��g��x  8 ��g��n  N w��g��filenamef��language/tree-il/primitives.scm =  H   N  Q   [  \   f  i  ) {  � � ���C>��"��G��4ii9��h`���x���-��1��3��$��J��$��7$��$(��45�6CCCC����p�������g��expr \�g��w  Z�g��x   Z�g��w  ' X�g��x  ' X�g��w  < T�� \ ���C>��"��G��4ii9���hx������-��1��3��$��_��$��L$��9$��&(��45�6CCCCC��������������g��expr q�g��w  o�g��x   o�g��w  ' m�g��x  ' m�g��w  8 k�g��x  8 k�g��w  M g�� q ���C>��"��G��4ii9�����h`���x���-��1��3��$��J��$��7$��$(��45�6CCCC����p�������g��expr \�g��w  Z�g��x   Z�g��w  ' X�g��x  ' X�g��w  < T�� \ ���C>��"��G��4ii9���hx������-��1��3��$��_��$��L$��9$��&(��45�6CCCCC��������������g��expr q�g��w  o�g��x   o�g��w  ' m�g��x  ' m�g��w  8 k�g��x  8 k�g��w  M g�� q ���C>��"��G��4ii9N7��������hx���x���-��1��3��$��f��$��S$��@(��7454454 5�5�6CCCCp�������g��expr x�g��w  v�g��x   v�g��w  ' t�g��x  ' t�g��w  < p�� x ���C>��"��G��4ii9N7������h������-��1��3��$��{��$��h$��U$��B(��9454454 5�5�6CCCCC����������g��expr ��g��w  ��g��x   ��g��w  ' ��g��x  ' ��g��w  8 ��g��x  8 ��g��w  M ��� � ���C>��"��G��4ii9N7�������hx���x���-��1��3��$��f��$��S$��@(��7454454 5�5�6CCCCp�������g��expr x�g��w  v�g��x   v�g��w  ' t�g��x  ' t�g��w  < p�� x ���C>��"��G��4ii9N7������h������-��1��3��$��{��$��h$��U$��B(��9454454 5�5�6CCCCC����������g��expr ��g��w  ��g��x   ��g��w  ' ��g��x  ' ��g��w  8 ��g��x  8 ��g��w  M ��� � ���C>��"��G��4ii9N7�������hx���x���-��1��3��$��f��$��S$��@(��7454454 5�5�6CCCCp�������g��expr x�g��w  v�g��x   v�g��w  ' t�g��x  ' t�g��w  < p�� x ���C>��"��G��4ii9N7������h������-��1��3��$��{��$��h$��U$��B(��9454454 5�5�6CCCCC����������g��expr ��g��w  ��g��x   ��g��w  ' ��g��x  ' ��g��w  8 ��g��x  8 ��g��w  M ��� � ���C>��"��G��4ii9N7�������hx���x���-��1��3��$��f��$��S$��@(��7454454 5�5�6CCCCp�������g��expr x�g��w  v�g��x   v�g��w  ' t�g��x  ' t�g��w  < p�� x ���C>��"��G��4ii9N7������h������-��1��3��$��{��$��h$��U$��B(��9454454 5�5�6CCCCC����������g��expr ��g��w  ��g��x   ��g��w  ' ��g��x  ' ��g��w  8 ��g��x  8 ��g��w  M ��� � ���C>��"��G��4ii9N7�������hx���x���-��1��3��$��f��$��S$��@(��7454454 5�5�6CCCCp�������g��expr x�g��w  v�g��x   v�g��w  ' t�g��x  ' t�g��w  < p�� x ���C>��"��G��4ii9N7������h������-��1��3��$��{��$��h$��U$��B(��9454454 5�5�6CCCCC����������g��expr ��g��w  ��g��x   ��g��w  ' ��g��x  ' ��g��w  8 ��g��x  8 ��g��w  M ��� � ���C>��"��G��4ii9N7�������hx���x���-��1��3��$��f��$��S$��@(��7454454 5�5�6CCCCp�������g��expr x�g��w  v�g��x   v�g��w  ' t�g��x  ' t�g��w  < p�� x ���C>��"��G��4ii9N7������h������-��1��3��$��{��$��h$��U$��B(��9454454 5�5�6CCCCC����������g��expr ��g��w  ��g��x   ��g��w  ' ��g��x  ' ��g��w  8 ��g��x  8 ��g��w  M ��� � ���C>��"��G��4ii9N7�������hx���x���-��1��3��$��f��$��S$��@(��7454454 5�5�6CCCCp�������g��expr x�g��w  v�g��x   v�g��w  ' t�g��x  ' t�g��w  < p�� x ���C>��"��G��4ii9N7������h������-��1��3��$��{��$��h$��U$��B(��9454454 5�5�6CCCCC����������g��expr ��g��w  ��g��x   ��g��w  ' ��g��x  ' ��g��w  8 ��g��x  8 ��g��w  M ��� � ���C>��"��G��4ii9N7�������hx���x���-��1��3��$��f��$��S$��@(��7454454 5�5�6CCCCp�������g��expr x�g��w  v�g��x   v�g��w  ' t�g��x  ' t�g��w  < p�� x ���C>��"��G��4ii9N7������h������-��1��3��$��{��$��h$��U$��B(��9454454 5�5�6CCCCC����������g��expr ��g��w  ��g��x   ��g��w  ' ��g��x  ' ��g��w  8 ��g��x  8 ��g��w  M ��� � ���C>��"��G��4ii9N7�������hx���x���-��1��3��$��f��$��S$��@(��7454454 5�5�6CCCCp�������g��expr x�g��w  v�g��x   v�g��w  ' t�g��x  ' t�g��w  < p�� x ���C>��"��G��4ii9N7������h������-��1��3��$��{��$��h$��U$��B(��9454454 5�5�6CCCCC����������g��expr ��g��w  ��g��x   ��g��w  ' ��g��x  ' ��g��w  8 ��g��x  8 ��g��w  M ��� � ���C>��"��G��4ii9N7�������hx���x���-��1��3��$��f��$��S$��@(��7454454 5�5�6CCCCp�������g��expr x�g��w  v�g��x   v�g��w  ' t�g��x  ' t�g��w  < p�� x ���C>��"��G��4ii9N7������h������-��1��3��$��{��$��h$��U$��B(��9454454 5�5�6CCCCC����������g��expr ��g��w  ��g��x   ��g��w  ' ��g��x  ' ��g��w  8 ��g��x  8 ��g��w  M ��� � ���C>��"��G��7MNOPQRS9� h���0��)��� 3��6)���3�C)���3�C-�1�3�4�L�5454�5���4 �4 ��54 �54�556�(������g��src �g��src  �g��a  �g��src $ &�g��a $ &�g��b  $ &�g��src / ��g��a / ��g��b  / ��g��rest  / ��g��prim  8 ��g��b-sym  A ��g��b*  N ��� g��filenamef��language/tree-il/primitives.scm        0   8   ;   ?   A   A   D   J  & N   N   V   [   `   a   f  # s  > u  # v  # �  > �  # �  # �   �  �  �   � $ & � / �  ���C�����h������]�O�C�������������g�� prim-name  ��g��filenamef��language/tree-il/primitives.scm  �  ��g��nameg��chained-comparison-expander�CTR4iT�h���}���]�4�56�������u�������g�� prim-name  ��g��filenamef��language/tree-il/primitives.scm     � �   ���CU>��"��G��KLCVjkWX9@� h���e��]4�5$��|4�545$��"��?$��"��345$��'45$��$�� "��"��"��$�� L�4  5��6CC�����]������g��a  ��g��b  ��g��v   ��g��t   n��g��filenamef��language/tree-il/primitives.scm                  /   3   4   9   C   D   N   S   r   w  ) |  @ ~  ) �  % �  �  � ��g��nameg��maybe-simplify�C��������h@�����)���,3�O��Q�45$��C6-��1��3�C���������g��src 2�g��a 2�g��b  2�g��maybe-simplify   2�g��t   2�g��else ; =��g��filenamef��language/tree-il/primitives.scm        2   ;  � 2 � ; = ��g��nameg��maybe-simplify-to-eq�CYR4iiAYi>��"��G��4iiBYi>��"��G��4ii=MZ[\Q`aO]9^_� �����hx�����)���d3�454545���4�4 54 4 554 556-��1��3�C���������g��src j�g��pre j�g��thunk  j�g��post  j�g��PRE   j�g��THUNK   j�g��POST   j�g��else s u��g��filenamef��language/tree-il/primitives.scm      "         $         #       * "  3 #  < $  = %  B '  G ' ( K '  L (  P ( ( U ( = Y ( ( Z ( K \ (  ] )  b ) ( f )  h %  j   s  � j � s u ���C>��"��G��4ii>MZ\QbaO]_� ������hH���h��]4545���4�454 556�`������g��src  G�g��pre  G�g��expr   G�g��post   G�g��PRE   G�g��POST   G��g��filenamef��language/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>��"��G��4iic��������h ������)��� 3��6-��1��3�C�����������g��src �g��fluid �g��else  ��g��filenamef��language/tree-il/primitives.scm ?  @   ? �  �   ���C>��"��G��4iid���h ������)��� 3��6-��1��3�C���������g��src �g��fluid �g��exp  �g��else  ��g��filenamef��language/tree-il/primitives.scm E  F   E �  �   ���C>��"��G��4iiMefgh96O� ��h`�����)���I3�45��445�4454 5�55 6-��1��3�C������y������g��src O�g��tag O�g��exp  O�g��handler  O�g��args-sym   O�g��else X Z��g��filenamef��language/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>��"��G��4iiMQje9fgh6Oi� ������h��� ��)���r3�45�45����4�45445�44  54  54 5�55 56-��1��3�C�����������g��src x�g��tag x�g��thunk  x�g��handler  x�g�� handler-sym   x�g��args-sym   x�g��else � ���g��filenamef��language/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>��"��G��4iik���h ������)���3��6-��1��3�C��������g��src �g��tag �g�� tail-args  �g��else  ��g��filenamef��language/tree-il/primitives.scm q  s #  s   q �  �   ���C>��"��G��iik7���h(������*���1�3��456-��1��3�C�������g��src �g��tag �g��args  �g��else & (��g��filenamef��language/tree-il/primitives.scm w  y (  y 7  y (  y  & w �   � & ( ���C6���Z������g��m  ,��g��filenamef��language/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 � ������] ���C6�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/tree-il/effects.go�������������������������������������������������������������������������0000644�����������������00000125024�15253700563�0011650 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�4������h6������]� g��guile � g��define-module* � � g��language g��tree-il g��effects � g��filenameS f��language/tree-il/effects.scm g��importsS �  � g�� primitives � � g��ice-9 g��match � � � g��exportsS g��make-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 #g��effects-commute? $g��exclude-effects %g�� effect-free? &g�� constant? 'g��depends-on-effects? (g��causes-effects? ) !"#$%&'(� *g��set-current-module +*� ,*� -g��make-syntax-transformer .-� /-� 0g��define-effects 1g��macro 2g�� $sc-dispatch 32� 42� 5g��_ 6g��any 7g��each-any 867 958 :g��iota ;g��length <g�� syntax-object =g��begin >g��top ?>� @g��ribcage A@� Bg��n CB� D?� Ef��l-a141b7f3b9a-1d09 FE� G@CDF� Hg��all Ig��name JHI� K??� Lf��l-a141b7f3b9a-1d02 Mf��l-a141b7f3b9a-1d03 NLM� O@JKN� Pg��x QP� Rf��l-a141b7f3b9a-1cff SR� T@QDS� U?AGOAT� Vg��hygiene WV� X<=UW� Yg��append ZY� [Y� \g��map ]\� ^\� _g�� define-syntax `<_UW� ag��identifier-syntax b<aUW� cg��ash d<cUW� e< UW� fg��* g<fUW� h< UW� ih� jg��logior k<jUW� lg��syntax-violation ml� nl� of��-source expression failed to match any pattern pg�� identifier? qp� rp� sg��m-a141b7f3b9a-1d0f ts>� ug��id vu� wg��m-a141b7f3b9a-1d10 xw>� yx� zf��l-a141b7f3b9a-1d17 {z� |@vy{� }f��l-a141b7f3b9a-1d12 ~}� @Qy~� �g��shift �t|AAGOAT�  �<cW� �< W� �<fW� �|A� �< W� �< W� �� �� �57 �f��l-a141b7f3b9a-1d1a �� �@Qy� �tAAGOAT�  �<cW� �< W� �<fW� �A� �< W� �< W� �� �� �g��m-a141b7f3b9a-1d1d �>� �� �f��l-a141b7f3b9a-1d24 �� �@v� �f��l-a141b7f3b9a-1d1f �� �@Q� �tAAGOAT�  �<cW� �< W� �<fW� �A� �< W� �< W� �� �� �f��l-a141b7f3b9a-1d27 �� �@Q� �tAAGOAT�  �<cW� �< W� �<fW� �A� �< W� �< W� �� �� �g��m-a141b7f3b9a-1d2a �>� �� �f��l-a141b7f3b9a-1d31 �� �@v� �f��l-a141b7f3b9a-1d2c �� �@Q� �tAAGOAT�  �<cW� �< W� �<fW� �A� �< W� �< W� �� �� �f��l-a141b7f3b9a-1d34 �� �@Q� �tAAGOAT�  �<cW� �< W� �<fW� �A� �< W� �< W� �� �� �g��m-a141b7f3b9a-1d37 �>� �� �f��l-a141b7f3b9a-1d3e �� �@v� �f��l-a141b7f3b9a-1d39 �� �@Q� �tAAGOAT�  �<cW� �< W� �<fW� �A� �< W� �< W� �� �� �f��l-a141b7f3b9a-1d41 �� �@Q� �tAAGOAT�  �<cW� �< W� �<fW� �A� �< W� �< W� �� �� �g��m-a141b7f3b9a-1d44 �>� �� �f��l-a141b7f3b9a-1d4b �� �@v� �f��l-a141b7f3b9a-1d46 �� �@Q� �tAAGOAT�  �<cW� �< W� �<fW� �A� �< W� �< W� �� � f��l-a141b7f3b9a-1d4e � @Q� tAAGOAT�  <cW� < W�  <fW�  A�  <  W�  < W�     �  � g��m-a141b7f3b9a-1d51 >� � f��l-a141b7f3b9a-1d58 � @v� f��l-a141b7f3b9a-1d53 � @Q� tAAGOAT�  <cW� < W� <fW� A� < W� < W� �  � !f��l-a141b7f3b9a-1d5b "!� #@Q"� $t#AAGOAT�  %<c$W� &< $W� '<f$W� (#A� )< (W� *< $W� +')*� ,%&+� -g��m-a141b7f3b9a-1d5e .->� /.� 0f��l-a141b7f3b9a-1d65 10� 2@v/1� 3f��l-a141b7f3b9a-1d60 43� 5@Q/4� 6t2A5AGOAT�  7<c6W� 8< 6W� 9<f6W� :2A5� ;< :W� << 6W� =9;<� >78=� ?f��l-a141b7f3b9a-1d68 @?� A@Q/@� BtAA5AGOAT�  C<cBW� D< BW� E<fBW� FAA5� G< FW� H< BW� IEGH� JCDI� Kg��m-a141b7f3b9a-1d6b LK>� ML� Nf��l-a141b7f3b9a-1d72 ON� P@vMO� Qf��l-a141b7f3b9a-1d6d RQ� S@QMR� TtPASAGOAT�  U<cTW� V< TW� W<fTW� XPAS� Y< XW� Z< TW� [WYZ� \UV[� ]f��l-a141b7f3b9a-1d75 ^]� _@QM^� `t_ASAGOAT�  a<c`W� b< `W� c<f`W� d_AS� e< dW� f< `W� gcef� habg� ig��m-a141b7f3b9a-1d78 ji>� kj� lf��l-a141b7f3b9a-1d7f ml� n@vkm� of��l-a141b7f3b9a-1d7a po� q@Qkp� rtnAqAGOAT�  s<crW� t< rW� u<frW� vnAq� w< vW� x< rW� yuwx� zsty� {f��l-a141b7f3b9a-1d82 |{� }@Qk|� ~t}AqAGOAT�  <c~W� < ~W� <f~W� }Aq� < W� < ~W� � � g��m-a141b7f3b9a-1d85 >� � f��l-a141b7f3b9a-1d8c � @v� f��l-a141b7f3b9a-1d87 � @Q� tAAGOAT�  <jW� ?A� <W� <W� <W� <W� <W� <W� <W� < W� <!W� �  f��l-a141b7f3b9a-1d8f � @Q� tAAGOAT�  <jW� ?A� <W� <W� <W� <W� <W� <W� <W� < W� <!W� �  g�� &no-effects g��m-a141b7f3b9a-1d92 >� � f��l-a141b7f3b9a-1d99 � @v� f��l-a141b7f3b9a-1d94 � @Q� ?A� < W� f��l-a141b7f3b9a-1d9c � @Q� ?A� < W� g��&all-effects-but-bailout g��logand g��m-a141b7f3b9a-1d9f >� � f��l-a141b7f3b9a-1da6 � @v� f��l-a141b7f3b9a-1da1 � @Q� ?A� <W� <"W� g��lognot <W� <W� � � f��l-a141b7f3b9a-1da9 � @Q� ?A� <W� <"W� <W� <W� � � g��% cause-procedure g��cause 56� g��syntax-parameterize g��m-a141b7f3b9a-1dad >� g��t-a141b7f3b9a-1dac � � f��l-a141b7f3b9a-1db2 � @� f��l-a141b7f3b9a-1daf � @Q� g�� proc-name g��args � f�� l-bde397a-8e8 f�� l-bde397a-8e9 � @K� g��formals g��body I� ???� f�� l-bde397a-8df f�� l-bde397a-8e0 f�� l-bde397a-8e1 � @� g��make-procedure-name g��prefix � ??� f�� l-bde397a-8d3 f�� l-bde397a-8d1 �� @�� f�� l-bde397a-8d0 � @QD� AAAAA�  V� <� ?A�  <W�  <a�  <W�    �    �  � g��lambda <� g��effect <W� � <cW� < W� � � � f��Wrong number of arguments ?A� <W� g��% &depends-on-procedure g�� &depends-on g��m-a141b7f3b9a-1dc8 >�  g��t-a141b7f3b9a-1dc7 ! � "� #f��l-a141b7f3b9a-1dcd $#� %@!"$� &f��l-a141b7f3b9a-1dca '&� (@Q"'� )%A(AAAA�  *<)� +?%A(� ,<+W� -<a)� .<+W� /-.� 0,/� 10� 2<)� 3g��a 4<3+W� 54� 6<+W� 7<"+W� 8647� 9258� :*19� ;?A(� <<;W� =g��% &causes-procedure >g��&causes ?g��m-a141b7f3b9a-1ded @?>� Ag��t-a141b7f3b9a-1dec BA� C@� Df��l-a141b7f3b9a-1df2 ED� F@BCE� Gf��l-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� ag��m-a141b7f3b9a-1e65 ba>� cg��t-a141b7f3b9a-1e63 dg��t-a141b7f3b9a-1e64 ecd� fbb� gf��l-a141b7f3b9a-1e6a hf��l-a141b7f3b9a-1e6b igh� j@efi� kb� lf��l-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� |g��not }<|qW� ~g��zero? <~qW� <qW� <qW� y� z� � }� x{� pw� ?An� <_W� g��% causes-effects?-procedure g��m-a141b7f3b9a-1e9f >� g��t-a141b7f3b9a-1e9d g��t-a141b7f3b9a-1e9e � � f��l-a141b7f3b9a-1ea4 f��l-a141b7f3b9a-1ea5 � @� � f��l-a141b7f3b9a-1ea1 � @Q� AAAAA�  <� ?A� <(W� <a� <W� � � � <� <PW� <W� � <|W� <~W� <W� <>W� � <W� � � � � � � ?A� <W� g��% effects-commute?-procedure g��m-a141b7f3b9a-1ef9 >� g��t-a141b7f3b9a-1ef7 g��t-a141b7f3b9a-1ef8 � � f��l-a141b7f3b9a-1efe f��l-a141b7f3b9a-1eff � @� � f��l-a141b7f3b9a-1efb � @Q� AAAAA�  <� ?A� <#W� <a� <W� � � � <� <3W� g��b <W� � g��and <W� <|W� <(W� <W� � � � � � � � � � ?A� <W� g��make-hash-table g�� hashq-ref g�� hashq-set! g��<prompt> g��<abort> g��error � � f��no matching pattern g�� <sequence> g�� <lambda-case> g��or-map g��<lambda> g�� <application> g�� <lexical-ref> g��make-application g��<primitive-ref> g��bailout-primitive? g��effect-free-primitive? g��constructor-primitive? g��accessor-primitive? g��make-prompt-tag g��vector g��list g��cons g��list? g��symbol? g��vector? g��struct? g��string? g��number? �g��char? g��null? g��pair? g��equal? g��eqv? g��eq? g��values g�� <conditional> g��<toplevel-set>  g��<toplevel-define>  g�� <module-set>  g�� <module-ref>  g��<toplevel-ref>  g��<dynset> g��<dynref> g��<dynlet> g�� <dynwind> g�� <let-values> g��<fix> g��<letrec> g��<let> g�� <lexical-set> g��<void> g��<const>C�5�����h@o�����]4    )5�4,�>��"��G���4/0149:;47X[^`bdegi��������h ���^���]����C��V�������g��tmp-a141b7f3b9a-1d0d  �g��tmp-a141b7f3b9a-1d0c  ��   ���C`bk�h0���)���]44�L5L�L���5C������!�������g��n  *��  * ���Cno��������h8������]445545$�� �O�@6��������g��all  7�g��name  7�g��tmp   7�g��tmp   7��g��filenamef��language/tree-il/effects.scm  >   > $  >   > �  7 ���Cno���h(���o���] 4�5$��@�6������g�������g��x  "�g��tmp "��g��filenamef��language/tree-il/effects.scm ; �  " ���C50R4/1r������h���`���]�6X�������g��id  ��g��filenamef��language/tree-il/effects.scm  O �   ���C��h���*���]C���"�������g��id  ��   ���C4����h���)���]�C!�������g��x  ��   ���Cno��������h@������]��4?$��@4�5$��@�6�������������g��x  :�g��tmp  :�g��tmp  # :��g��filenamef��language/tree-il/effects.scm O �  : ��g�� macro-typeg��identifier-syntax�C5R4/1r��h���`���]�6X�������g��id  ��g��filenamef��language/tree-il/effects.scm  O �   ���C��h���*���]C���"�������g��id  ��   ���C4����h���)���]�C!�������g��x  ��   ���Cno��������h@������]��4?$��@4�5$��@�6�������������g��x  :�g��tmp  :�g��tmp  # :��g��filenamef��language/tree-il/effects.scm O �  : ��g�� macro-typeg��identifier-syntax�C5R4/1r��h���`���]�6X�������g��id  ��g��filenamef��language/tree-il/effects.scm  O �   ���C��h���*���]C���"�������g��id  ��   ���C4����h���)���]�C!�������g��x  ��   ���Cno��������h@������]��4?$��@4�5$��@�6�������������g��x  :�g��tmp  :�g��tmp  # :��g��filenamef��language/tree-il/effects.scm O �  : ��g�� macro-typeg��identifier-syntax�C5R4/1r��h���`���]�6X�������g��id  ��g��filenamef��language/tree-il/effects.scm  O �   ���C��h���*���]C���"�������g��id  ��   ���C4����h���)���]�C!�������g��x  ��   ���Cno��������h@������]��4?$��@4�5$��@�6�������������g��x  :�g��tmp  :�g��tmp  # :��g��filenamef��language/tree-il/effects.scm O �  : ��g�� macro-typeg��identifier-syntax�C5R4/1r��h���`���]�6X�������g��id  ��g��filenamef��language/tree-il/effects.scm  O �   ���C�h���*���]C���"�������g��id  ��   ���C4���h���)���]�C!�������g��x  ��   ���Cno��������h@������]��4?$��@4�5$��@�6�������������g��x  :�g��tmp  :�g��tmp  # :��g��filenamef��language/tree-il/effects.scm O �  : ��g�� macro-typeg��identifier-syntax�C5R4/1r��h���`���]�6X�������g��id  ��g��filenamef��language/tree-il/effects.scm  O �   ���C �h���*���]C���"�������g��id  ��   ���C4,���h���)���]�C!�������g��x  ��   ���Cno��������h@������]��4?$��@4�5$��@�6�������������g��x  :�g��tmp  :�g��tmp  # :��g��filenamef��language/tree-il/effects.scm O �  : ��g�� macro-typeg��identifier-syntax�C5R4/1r��h���`���]�6X�������g��id  ��g��filenamef��language/tree-il/effects.scm  O �   ���C>�h���*���]C���"�������g��id  ��   ���C4J���h���)���]�C!�������g��x  ��   ���Cno��������h@������]��4?$��@4�5$��@�6�������������g��x  :�g��tmp  :�g��tmp  # :��g��filenamef��language/tree-il/effects.scm O �  : ��g�� macro-typeg��identifier-syntax�C5R4/ 1r��h���`���]�6X�������g��id  ��g��filenamef��language/tree-il/effects.scm  O �   ���C\�h���*���]C���"�������g��id  ��   ���C4h���h���)���]�C!�������g��x  ��   ���Cno��������h@������]��4?$��@4�5$��@�6�������������g��x  :�g��tmp  :�g��tmp  # :��g��filenamef��language/tree-il/effects.scm O �  : ��g�� macro-typeg��identifier-syntax�C5 R4/!1r��h���`���]�6X�������g��id  ��g��filenamef��language/tree-il/effects.scm  O �   ���Cz�h���*���]C���"�������g��id  ��   ���C4���h���)���]�C!�������g��x  ��   ���Cno��������h@������]��4?$��@4�5$��@�6�������������g��x  :�g��tmp  :�g��tmp  # :��g��filenamef��language/tree-il/effects.scm O �  : ��g�� macro-typeg��identifier-syntax�C5!R4/"1r��h���`���]�6X�������g��id  ��g��filenamef��language/tree-il/effects.scm  O �   ���C�h���*���]C���"�������g��id  ��   ���C4���h���)���]�C!�������g��x  ��   ���Cno��������h@������]��4?$��@4�5$��@�6�������������g��x  :�g��tmp  :�g��tmp  # :��g��filenamef��language/tree-il/effects.scm O �  : ��g�� macro-typeg��identifier-syntax�C5"R4/1r�h���a���]�6Y�������g��id  ��g��filenamef��language/tree-il/effects.scm  { �   ���C��������h���*���]C���"�������g��id  ��   ���C4���h���)���]�C!�������g��x  ��   ���Cno��������h@������]��4?$��@4�5$��@�6�������������g��x  :�g��tmp  :�g��tmp  # :��g��filenamef��language/tree-il/effects.scm { �  : ��g�� macro-typeg��identifier-syntax�C5R4/1r�������h���b���]�6Z�������g��id  ��g��filenamef��language/tree-il/effects.scm  � �   ���C�������h���*���]C���"�������g��id  ��   ���C4���h���)���]�C!�������g��x  ��   ���Cno��������h@������]��4?$��@4�5$��@�6�������������g��x  :�g��tmp  :�g��tmp  # :��g��filenamef��language/tree-il/effects.scm � �  : ��g�� macro-typeg��identifier-syntax�C5R���h������]� C��������g��effect  ��g��filenamef��language/tree-il/effects.scm �  � �   ��g��nameg��% cause-procedure�CR4/14����h���:���]��C������2�������g��t-a141b7f3b9a-1dac  ��  ���Cn��������h���`���]L�6����X�������g��a  ��g��filenamef��language/tree-il/effects.scm  � �  ���C5r��������h���P���]�L�6H�������g��filenamef��language/tree-il/effects.scm  � �   ���C�h������]�C����������   ���Cno� �������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��language/tree-il/effects.scm � �  n ���C5R�������h������]������UUC��������g��a  ��g��filenamef��language/tree-il/effects.scm �  � �   ��g��nameg��% &depends-on-procedure�CR4/14:���h���:���]��C������2�������g��t-a141b7f3b9a-1dc7  ��  ���Cn��������h���`���]L�6����X�������g��a  ��g��filenamef��language/tree-il/effects.scm  � �  ���C5r��������h���P���]�L�6H�������g��filenamef��language/tree-il/effects.scm  � �   ���C<�h������]�C����������   ���Cno� �������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��language/tree-il/effects.scm � �  n ���C5R�������h������]������C��������g��a  ��g��filenamef��language/tree-il/effects.scm � �  � �   ��g��nameg��% &causes-procedure�C=R4/>14\������h���:���]��C������2�������g��t-a141b7f3b9a-1dec  ��  ���Cn>��������h���`���]L�6����X�������g��a  ��g��filenamef��language/tree-il/effects.scm  � �  ���C5r��������h���P���]�L�6H�������g��filenamef��language/tree-il/effects.scm  � �   ���C^�h������]�C����������   ���Cno� �������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��language/tree-il/effects.scm � �  n ���C5>R��h������]�4 5C��������g��effects  �g��exclude  ��g��filenamef��language/tree-il/effects.scm �  �  �  �   � �   ��g��nameg��exclude-effects�C$R�h������]������ C��������������g��effects  ��g��filenamef��language/tree-il/effects.scm � �  � �   ��g��nameg�� effect-free?�C%R���h������]� C�|�������g��effects  ��g��filenamef��language/tree-il/effects.scm �  � �   ��g��nameg�� constant?�C&R�������h������]������UU C����������g��x  �g��effects  ��g��filenamef��language/tree-il/effects.scm �  �   �   �   � �   ��g��nameg��% depends-on-effects?-procedure�C_R4/'14`����h���Z���]��C����R�������g��t-a141b7f3b9a-1e63  �g��t-a141b7f3b9a-1e64  ��  ���Cn'�h���`���]L�6����X�������g��a  ��g��filenamef��language/tree-il/effects.scm  � �  ���C5r��������h���P���]�L�6H�������g��filenamef��language/tree-il/effects.scm  � �   ���C�h������]�C����������   ���Cno� �������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��language/tree-il/effects.scm � �  n ���C5'Rh������]������ C��������g��x  �g��effects  ��g��filenamef��language/tree-il/effects.scm � �   � "  �   �   � �   ��g��nameg��% causes-effects?-procedure�CR4/(14`�������h���Z���]��C����R�������g��t-a141b7f3b9a-1e9d  �g��t-a141b7f3b9a-1e9e  ��  ���Cn(�h���`���]L�6����X�������g��a  ��g��filenamef��language/tree-il/effects.scm  � �  ���C5r��������h���P���]�L�6H�������g��filenamef��language/tree-il/effects.scm  � �   ���C�h������]�C����������   ���Cno� �������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��language/tree-il/effects.scm � �  n ���C5(RhX������] �����UU������ $��C������UU����� C�����������g��a  T�g��b  T�g��effects   '�g��effects  9 R��g��filenamef��language/tree-il/effects.scm �  �   � + �  9 �  9 � S � �  T ��g��nameg��% effects-commute?-procedure�CR4/#14`�h���Z���]��C����R�������g��t-a141b7f3b9a-1ef7  �g��t-a141b7f3b9a-1ef8  ��  ���Cn#�h���`���]L�6����X�������g��a  ��g��filenamef��language/tree-il/effects.scm  � �  ���C5r��������h���P���]�L�6H�������g��filenamef��language/tree-il/effects.scm  � �   ���C�h������]�C����������   ���Cno� �������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��language/tree-il/effects.scm � �  n ���C5#R���h���`���]C����X�������g��x  ��g��filenamef��language/tree-il/effects.scm � 5�   ���C������h8������] 4L��5$��C4L�54L��>��"��G��C�������g��exp  8�g��t 8�g��effects  8��g��filenamef��language/tree-il/effects.scm �   � �   �   � � �  8 ��g��nameg��compute-effects�C�h0������]"��(��C4L�5"� "�������g��exps  0�g��exps  %�g��out   %��g��filenamef��language/tree-il/effects.scm �   �  �  �   � )  � :  � )  �  % �  % � �  0 ��g��nameg��accumulate-effects�C$;�|     �9�hX�� ��]Y"�2"�"�"�c"�"�-"�"�"�"�\"�"�0"� "�"�b"�"�"�f"�6"�"�$"� "�"�j"�"�D"�"�"�6"�"�N"� "�"�)�$��&��� � � � 4L�5$��"��$4L54L�>��"��G��4L�5$��"��$4L54L�>��"��G��4L�5$��"��$4L54L�>��"��G��C�&�� � � � � �����?C4�56�4�56��$���&��� � "��$��(��O4L�5$��"��$4L54L�>��"��G��4  �5C4L�5$��"��$4L54L�>��"��G��"N456� "6""�$��� &��� � � � � � � � � 4 4L5 @54 L5$�� �"�� 4L�5$��"��$4L54L�>��"��G��$��B4L�5$��"��$4L54L�>��"��G��"�� C""�$��� &��� � �  C""�$��'� &��� � � �����?C""�$��� &��� � $��&��s   � 4L5$��B454L�5$��C4L54L�>��"��G��C�����?C""""�$��a� &��T� � $��>&��1  45$��� 4L5 � �C"n"j"f"b"^�$�� &�� � $� &�   � 4L5"��"�� &�� "�4455�"�~$��Y &��L4L�5$��"��$4L54L�>��"��G���������"�"""|$� &��   &�� &�� &�� (��      &��d4L� 5  $�� "��$4L 5 4L�  >��"��G��   4545$�� "�� �������"��"  "��""��""��""��"t"��"f"��"^C"d"`"\"X�$��� &��|� � $��f&��Y  45$��?� 4L5�������45$�� �"��45$�� @�"�� C"""""�$��� &��� � $��&��|  &��e� $��S(��H4L�5$��"��$4L54L�>��"��G�� �C""""" " "�$��\� &��O� � $��9&��,  &��� (�� �C""""""�$��v� &��i� � $��S&��F  "��� 4L5 �C"��&��""5&��"""!"""�$��� &��� � $��&��  &��� $��$��(��4L�5$��"��$4L54L�>��"��G��4L�5$��"��$4L54L�>��"��G�� �C"""""""" "�$�� &� � � $�&�  "�t"� "�&��X� $��F(��;4L�5$��C4L54L�>��"��G��C"d"`&��X� $��F(��;4L�5$��C4L54L�>��"��G��C""�&��X� $��F(��;4L�5$��C4L54L�>��"��G��C""&��X� $��F(��;4L�5$��C4L54L�>��"��G��C"D"@&��X� $��F(��;4L�5$��C4L54L�>��"��G��C""&��X� $��F(��;4L�5$��C4L54L�>��"��G��C"" &��X� $��F(��;4L�5$��C4L54L�>��"��G��C"$" "!&��X� $��F(��;4L�5$��C4L54L�>��"��G��C""""&��X� $��F(��;4L�5$��C4L54L�>��"��G��C"\"X"#&��X� $��F(��;4L�5$��C4L54L�>��"��G��C"""(""""�$��� &��� � $��u&��h  "�� � L6"��8"��$"��$&��""y%&��""&&��""'&��"""E"A"="9�$��\� &��O� � $��9&��,  '&��� (�� �C""""""�$�!�(&�� � � � 4L�5$��"��$4L54L�>��"��G��4L�5$��"��$4L54L�>��"��G��4L�5$��"��$4L54L�>��"��G������� � $�� C  @6""�$���&�� C""�$��`�)&��S� � �  4L�5$��"��$4L54L�>��"��G��C""�$��`�*&��S� � �  4L�5$��"��$4L54L�>��"��G��C""�$��s�+&��f� � � � � ������4L�5$��"��$4L54L�>��"��G��C"$" �$���,&�� ������C""�$���-&�� ������C""�$���.&��� � � 4L�5$��"��$4L54L�>��"��G��4L�5$��"��$4L54L�>��"��G��������� C""�$��d�/&��W� � 4L�5$��"��$4L54L�>��"��G��������� C""�$���0&��u� � � � 4L54L5������� 4L�5$��"��$4L54L�>��"��G��C""�$���1&��� � � � 4L�5$��"��$4L54L�>��"��G��4L�5$��"��$4L54L�>��"��G��4L�5$��"��$4L54L�>��"��G��C")"%�$���2&��� � � 4L�5$��"��$4L54L�>��"��G��4L�5$��"��$4L54L�>��"��G���������C"s"o�$���3&��|� � � � � 4 L5$�� �"�� 4L54L�5$��"��$4L54L�>��"��G��C""�$���4&��� � � � � � 4 L5$�� �"�� 4L54L�5$��"��$4L54L�>��"��G��C"="9�$���5&��|� � � � � 4 L5$�� �"�� 4L54L�5$��"��$4L54L�>��"��G��C""�$��f�6&��Y� � � �  4L�5$��"��$4L54L�>��"��G��C"0",�$��-�&�� � � � 4L5$�� C C""�$���7&�� C""�$���8&�� C""������������g��exp  R�g��w � p�g��w  � p�g��w  � p�g��t  � ��g��effects  � ��g��t  � /�g��effects   ,�g��t  9 n�g��effects  N k�g��w  �g��exps   �g��effects   �g��w   /�g��t   #�g��effects    �g��w  5 �g��x  5 �g��t  D y�g��effects  Y v�g��w  �g��w   �g��w   �g��w   �g��t   N�g��effects  . K�g��t  ^ �g��effects  s �g��w  �g��w  8 �g��w  ? �g��t  H �g��exp  Z �g��t  e �g��effects  w �g��w  �g��w   �g��w   �g��w 1 �g��w  R  �g��w  Y  �g��t   �g��effects   �g��w   �g��w   �g��w   �g��w  * �g��w  8 �g��w K �g��w R �g��t d �g��effects y �g��w 3 �g��w  N �g��w  ` �g��w  ]�g��w   U�g��w   Q�g��w   I�g��t   D�g��effects  $ A�g��w ~ �g��w   �g��w   �g��w  E�g��w  � =�g��w  �g��w f P�g��w  H�g��w  D�g��w  @�g��x  @�g��w  8�g��t  �g��effects  �g��t  2�g��effects   /�g��w q r�g��w  j�g��w  �g��w  �g��t  �g��effects  �g��w   Z�g��w   R�g��t  % R�g��effects  7 R�g��w  g �g��w  z �g��t  �g��effects  �g��w  �g��w  �g��t  �g��effects  �g��w  ' z�g��w  : r�g��t  E r�g��effects  W r�g��w  �g��w  �g��t  �g��effects  �g��w  :�g��w  2�g��t   2�g��effects   2�g��w  K �g��w  ^ �g��t  i �g��effects  { �g��w  �g��w  �g��t  �g��effects  �g��w   f�g��w  & ^�g��t  1 ^�g��effects  C ^�g��w  �g��w    �g��w   �g��w 6 |�g��w  Q t�g��w  ` p�g��w  �g��w   �g��w   �g��t   �g��effects   �g��t   )�g��effects   &�g��t  2 g�g��effects  G d�g��tfx  g �g��cfx  g �g��afx  g �g��x  u �g��w  -�g��t   +�g��effects   (�g��w T �g��t  a �g��effects  v �g��w  �g��t   �g��effects   �g��w { �g��w   �g��t   �g��effects   �g��t   ��g��effects   �g��w 0 ~�g��t  ; p�g��effects  P m�g��w   �g��w    �g��w    �g��t    �g��effects   �g��w , �g��w  3 �g��w  : �g��t  E z�g��effects  Z w�g��t   �g��effects   �g��t   �g��effects   �g��w  �g��w  ! �g��t  , a�g��effects  A ^�g��t  j �g��effects   �g��w  ?�g��w   ?�g��w   ?�g��t   =�g��effects   :�g��w l �g��w  s �g��w  z �g��t   �g��effects   �g��w � m�g��w   m�g��w   m�g��t  6 k�g��effects  K h�g��w  �g��t   �g��effects   �g��w  ��g��filenamef��language/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 ��g��nameg��visit�C�����hX������-�.�,�3�#��O�O�O�LQ�Q�LL�Q��6�������������g��exp R�g��lookup R�g��compute-effects  3 R�g��accumulate-effects  3 R�g��visit  3 R��g��filenamef��language/tree-il/effects.scm �  R z � R ��g��nameg��compute-effects�C��h ���>��]45�O��Q�C����6������g��assigned-lexical?  �g��cache  �g��compute-effects   ��g��filenamef��language/tree-il/effects.scm �  �   � �   ��g��nameg��make-effects-analyzerg�� documentationf��VReturns a procedure of type EXP -> EFFECTS that analyzes the effects of an expression.�CRC������������g��m  ,��g��filenamef��language/tree-il/effects.scm    �  � " � & � 'C � ' � ( � , � 0 � o9 � �  o; ���C6�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/ecmascript/spec.go�������������������������������������������������������������������������0000644�����������������00000002132�15253700563�0011746 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0B������]�(�4������hm������]� g��guile � g��define-module* � � g��language g�� ecmascript g��spec � g��filenameS f��language/ecmascript/spec.scm g��importsS g��system g��base  � � g��parse � � g��compile-tree-il � � � g��exportsS � g��set-current-module � � g��invalidate-compilation-cache! g�� make-language g��nameS g��titleS !f�� ECMAScript "g��readerS #g��read-ecmascript/1 $g�� compilersS %g��tree-il &g��printerS 'g��writeC�5������h������]4    5�4�>��"��G���4i>���"��G��4i !"#�����h���{���]�6s�������g��port  �g��env  ��g��filenamef��language/ecmascript/spec.scm   #�   ���C$%i�&'i5 RC����x�������g��m  ,��g��filenamef��language/ecmascript/spec.scm   -  K   � !  �  �  � ���C6���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/ecmascript/impl.go�������������������������������������������������������������������������0000644�����������������00000037723�15253700563�0011773 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0?������]�4��������h������]� g��guile � g��define-module* � � g��language g�� ecmascript g��impl � g��filenameS f��language/ecmascript/impl.scm g��importsS g��oop g��goops  � � g��base � � g��function � � g��array � � � g��exportsS g��js-init g��get-this g��typeof g�� bitwise-not g�� logical-not !g��shift "g��mod #g��band $g��bxor %g��bior &g��make-enumerator ' !"#$%&�  (g�� re-exportsS )g�� *undefined* *g��*this* +g�� call/this* ,g��pget -g��pput .g��pdel /g�� has-property? 0g�� ->boolean 1g��->number 2g�� new-object 3g��new 4g�� new-array 5)*+,-./01234�  6g��set-current-module 76� 86� 9g��defined? :9� ;9� <g�� js-module =g��is-a? >=� ?=� @g�� <generic> A@� B@� Cg��toplevel-define! DC� EC� Fg��ensure-generic GF� HF� Ig��<js-module-object> Jg��<class> KJ� LJ� Mg��memq Ng��<object> ON� PN� Qg��class-precedence-list RQ� SQ� Tg��class-redefinition UT� VT� Wg�� make-class Xg�� <js-object> Yg��module Zg�� init-formS [g��current-module \[� ]g�� init-thunkS ^g�� init-keywordS _g��moduleS `g��getterS ag��nameS bg��make cb� db� eg�� add-method! fe� ge� hg��<method> ih� jh� kg�� specializersS lg��<string> mg��formalsS ng��o og��p pno� qg��bodyS rg��string->symbol sro� t,ns� ut� vg��make-procedureS wg�� procedureS xg��<symbol> yg��let zg��v {g��module-variable |<n� }{|o� ~z}� ~� �g��if �g�� variable-ref �z� �g�� next-method �� �z� �y� �� �g��<top> �� �� �noz� �-nsz� �� �g��module-define! �|oz� �� �g�� prop-attrs �g��cond �g��module-local-variable �|o� �g��quote �� �� �g�� DontDelete �g��ReadOnly �� �� �}� �g��else �� �� �� �ns� �� �g�� prop-keys �n� �g��append �g��hash-map->list �g��lambda �g��k �z� �� �g��module-obarray �|� �� �� �� �g��resolve-interface �g��map �g�� string-split �g�� js-require �g��<js-global-object> �\� �g��NaN �e��+nan.0 �g��Infinity �e��+inf.0 �g�� undefined �g��require �g��Object �g��*object-prototype* �g��Array �g��*array-prototype* �g��init-js-bindings! �f�� undefined �f��object �g��boolean? �f��boolean �g��number? �f��number �g��string? �f��string �g�� procedure? �f��function �f��scm �g��lognot �g�� ->primitive �g��ash �g��logand �g��logxor �g��logior �g��modulo �g��+ �g��a �g��b �� �g�� string-append �� �� �g��->string �� �� �� �� �� �� �1� �1� �� �� �g��- �� �� �g��* �� �� �g��/ �� �� �g��< �� �� �g��string< �� �� �g��<= �� �� �g��string<= �� �� �g��>= �� �� �g��string>= �� �� �g��> �� � g��string> � � g��obj-and-prototypes g�� js-prototype g��make-hash-table  g��for-each  g�� hashq-set!  g��filter  g��prop-has-attr?  g��DontEnumC�5h+��!��]4    '(55 �48�>��"��G���4;<5��$��"�� 4?<iB5�$��14E<4H4;<5$��<i"��<5>��"��G��"���4;I5$�#4?IiL5$�l4MiP4SIi55$��4VIi4WiXi�YZ\][������h���P���]�6���H�������g��filenamef��language/ecmascript/impl.scm  ' �   ���C^_`<i� �aI5>��"��G��"��4EI4WiXi�YZ\][��h���P���]�6���H�������g��filenamef��language/ecmascript/impl.scm  ' �   ���C^_`<i� �aI5>��"��G��"��4EI4WiXi�YZ\][��h���P���]�6���H�������g��filenamef��language/ecmascript/impl.scm  ' �   ���C^_`<i� �aI5>��"��G��"��4EI4WiXi�YZ\][��h���P���]�6���H�������g��filenamef��language/ecmascript/impl.scm  ' �   ���C^_`<i� �aI5>��"��G��4;,5��$��"��,i�$��!4E,4dBa,5>��"��G��"���4g,i4djkIili�mpquvw,r�����h���}���]�456�u�������g��o  �g��p  ��g��filenamef��language/ecmascript/impl.scm )  *  * �   ���C5 >��"��G��4;,5��$��"��,i�$��!4E,4dBa,5>��"��G��"���4g,i4djkIixi�mpqv{<������h(������] 44�55$��CL��6�����������g��o  $�g��p  $�g��v   $��g��filenamef��language/ecmascript/impl.scm +  ,  ,   ,  ,   -   .  $ + �  $ ���C��h���m���]�O�C������e�������g��real-next-method  ��g��filenamef��language/ecmascript/impl.scm + �  ���Cw5 >��"��G��4;-5��$��"��-i�$��!4E-4dBa-5>��"��G��"���4g-i4djkIili�mqvw-r�������h������]�456��������������g��o  �g��p  �g��v   ��g��filenamef��language/ecmascript/impl.scm 0  1  1 �   ���C5 >��"��G��4;-5��$��"��-i�$��!4E-4dBa-5>��"��G��"���4g-i4djkIixi�mqvw<���h������]4�56��������������g��o  �g��p  �g��v   ��g��filenamef��language/ecmascript/impl.scm 2  3   3 �   ���C5 >��"��G��4;5��$��"��i�$��!4E4dBa5>��"��G��"���4gi4djkIixi�mpqv<{���h8������]44�55$��C44�55$��CL��6������������g��o  3�g��p  3��g��filenamef��language/ecmascript/impl.scm 4  5  5  5  5   5 1  6  6  $ 6 ( 5  * 6 + 3 4 �  3 ���C�h���m���]�O�C������e�������g��real-next-method  ��g��filenamef��language/ecmascript/impl.scm 4 �  ���Cw5 >��"��G��4;5��$��"��i�$��!4E4dBa5>��"��G��"���4gi4djkIili�mpqvwr�h���}���]�456�u�������g��o  �g��p  ��g��filenamef��language/ecmascript/impl.scm 8  9   9 �   ���C5 >��"��G��4;5��$��"��i�$��!4E4dBa5>��"��G��"���4gi4djkIi�mqv���h���n���]�C���f�������g��k  �g��v  ��g��filenamef��language/ecmascript/impl.scm ; �   ���C<���h ������]444�5554L��56�������g��o  ��g��filenamef��language/ecmascript/impl.scm :  ; ; + ; ;  ; +  ;  : ; �  ���C��������h���m���]�O�C������e�������g��real-next-method  ��g��filenamef��language/ecmascript/impl.scm : �  ���Cw5 >��"��G��bI_r�������h ������]444�.5556��������g��modstr  ��g��filenamef��language/ecmascript/impl.scm ? A  A   A /  A   A   @ �   ��g��nameg�� js-require�CR"��+4E4WiIi���a5>��"��xG��"��q4;5$��b4?iL5$��K4MiP4Si55$��-4Vi4WiIi���a5>��"��G��"��"t"��"l"��"d4;<5��$��"��<i�$��!4E<4dBa<5>��"��G��"���4g<i4djki�mqvw[�h���f���]6���^�������g��o  ��g��filenamef��language/ecmascript/impl.scm D  E �   ���C5 >��"��G��)�����h�����]4�>��"��G��4�>��"��G��4�>��"��G��4� >��"��G��4�  >��"��G���  6������������g��mod  z��g��filenamef��language/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 ��g��nameg��init-js-bindings!�CR*b[�������h(������]45���$���C45\45�6����������g��t  %��g��filenamef��language/ecmascript/impl.scm S  T  T   V   W  % W �  % ��g��nameg��js-init�CR*�����h���c���]�[C��[�������g��filenamef��language/ecmascript/impl.scm Y �   ��g��nameg��get-this�CR)=X��hh�����]�&��C�(��C4�5$��C4�5$��C4�5$�� C4 �5$�� C4 � 5$��CC������� ������g��x  a��g��filenamef��language/ecmascript/impl.scm \ ]  ]   ]   ^   _ ! ]  # _  % ` / ]  1 `  3 a = ]  ? a  A b K ]  M b  O c [ ]  ] c  ` d �  a ��g��nameg��typeof�CRiR0�����h������]44�55C�������g��x  ��g��filenamef��language/ecmascript/impl.scm g  h   h   h   h �   ��g��nameg�� logical-not�C Ri!Ri#Ri$Ri%Ri"R4;5��$��"��i�$��!4E4dBa5>��"��G��"���4gi4djklili�mqvw������h���u���]�6������m�������g��a  �g��b  ��g��filenamef��language/ecmascript/impl.scm r s �  ���C5 >��"��G��4;5��$��"��i�$��!4E4dBa5>��"��G��"���4gi4djkli�mqvw������h���}���]�456�u�������g��a  �g��b  ��g��filenamef��language/ecmascript/impl.scm u  v   v �   ���C5 >��"��G��4;5��$��"��i�$��!4E4dBa5>��"��G��"���4gi4djkli�mqvw������h���}���]4�56�u�������g��a  �g��b  ��g��filenamef��language/ecmascript/impl.scm x  y   y �   ���C5 >��"��G��4;5��$��"��i�$��!4E4dBa5>��"��G��"���4gi4djk�mqvw1��h������]4�545C������}�������g��a  �g��b  ��g��filenamef��language/ecmascript/impl.scm {  |  |   | �   ���C5 >��"��G��4;5��$��"��i�$��!4E4dBa5>��"��G��"���4gi4djk�mqvw1��h������]4�545C������}�������g��a  �g��b  ��g��filenamef��language/ecmascript/impl.scm ~        �   ���C5 >��"��G��4;5��$��"��i�$��!4E4dBa5>��"��G��"���4gi4djk�mqvw1��h������]4�545C�������������g��a  �g��b  ��g��filenamef��language/ecmascript/impl.scm �  �  �   � �   ���C5 >��"��G��4;5��$��"��i�$��!4E4dBa5>��"��G��"���4gi4djk�mqvw1������h������]4�545C�������������g��a  �g��b  ��g��filenamef��language/ecmascript/impl.scm �  �  �   � �   ���C5 >��"��G��4;5��$��"��i�$��!4E4dBa5>��"��G��"���4gi4djk�mqvw1������h������]4�545C�������������g��a  �g��b  ��g��filenamef��language/ecmascript/impl.scm �  �  �   � �   ���C5 >��"��G��4;5��$��"��i�$��!4E4dBa5>��"��G��"���4gi4djklili�mqvw��h���w���]�6������o�������g��a  �g��b  ��g��filenamef��language/ecmascript/impl.scm � � �  ���C5 >��"��G��4;5��$��"��i�$��!4E4dBa5>��"��G��"���4gi4djk�mqvw1��������h������]4�545C�������������g��a  �g��b  ��g��filenamef��language/ecmascript/impl.scm �  �  �   � �   ���C5 >��"��G��4;5��$��"��i�$��!4E4dBa5>��"��G��"���4gi4djklili�mqvw��h���w���]�6������o�������g��a  �g��b  ��g��filenamef��language/ecmascript/impl.scm � � �  ���C5 >��"��G��4;5��$��"��i�$��!4E4dBa5>��"��G��"���4gi4djk�mqvw1��������h������]4�545C�������������g��a  �g��b  ��g��filenamef��language/ecmascript/impl.scm �  �  �   � �   ���C5 >��"��G��4;5��$��"��i�$��!4E4dBa5>��"��G��"���4gi4djklili�mqvw��h���w���]�6������o�������g��a  �g��b  ��g��filenamef��language/ecmascript/impl.scm � � �  ���C5 >��"��G��4;�5��$��"���i�$��#4E�4dBa�5>��"��G��"���4g�i4djk�mqvw1��h������]4�545C�������������g��a  �g��b  ��g��filenamef��language/ecmascript/impl.scm �  �  �   � �   ���C5 >��"��G��4;�5��$��"���i�$��#4E�4dBa�5>��"��G��"���4g�i4djklili�mqvw���h���w���]�6������o�������g��a  �g��b  ��g��filenamef��language/ecmascript/impl.scm � � �  ���C5 >��"��G����������h ������]�$���44�55CC�������������g��o  ��g��filenamef��language/ecmascript/impl.scm �  �  �   � "  �   �   � �   ��g��nameg��obj-and-prototypes�CR   ������h���i���]L��6�����a�������g��k  ��g��filenamef��language/ecmascript/impl.scm �  � &�  ���C��h���r���]L�O�4�56����j�������g��o  ��g��filenamef��language/ecmascript/impl.scm �  �   � �   ���C4   ����h������]4L��5C�|�������g��p  ��g��filenamef��language/ecmascript/impl.scm �   � $ � : � $  � �   ���Ch���o���]�C���g�������g��k  �g��v  ��g��filenamef��language/ecmascript/impl.scm � -�   ���C� �����hH������] 4 54O�4�5>��"��G��4�O�4 55@�������������g��obj  B�g��props B��g��filenamef��language/ecmascript/impl.scm �  �  �  �   �  ! �  , �  6 �  @ �  B � �  B ��g��nameg��make-enumerator�C&RC���������g��m  0�g��t 8 T�g��t c x�g��t | �g��t o �g��t  �g��t  �g��t �g��t �g��t  �g��t  �g��t  �g��t  �g��t  �g��t  �g��t  �g��t ( =�g��t P e�g��t x �g��t �g��t ! !�g��t " "�g��t # #�g��t $ % �g��t &! &7��g��filenamef��language/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 �  � ! � " � # � $ � & � ( � + � �)  + ���C6����������������������������������������������language/ecmascript/array.go������������������������������������������������������������������������0000644�����������������00000022541�15253700563�0012140 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0I%������]��4����h ������]� g��guile � g��define-module* � � g��language g�� ecmascript g��array � g��filenameS f��language/ecmascript/array.scm g��importsS g��oop g��goops  � � g��base � � g��function � � � g��exportsS g��*array-prototype* g�� new-array � g��set-current-module � � g��defined? � !� "g��js-array-vector #g��is-a? $#� %#� &g�� <accessor> '&� (&� )g��toplevel-define! *)� +)� ,g��ensure-accessor -,� .,� /g��<js-array-object> 0g��<class> 10� 20� 3g��memq 4g��<object> 54� 64� 7g��class-precedence-list 87� 97� :g��class-redefinition ;:� <:� =g�� make-class >g�� <js-object> ?g��vector @g�� init-valueS A�� Bg��accessorS Cg�� init-keywordS Dg��vectorS Eg��nameS Fg��make Gg��classS Hf��Array Ig�� prototypeS Jg��pput Kg��length Lg��valueS Mg�� constructorS Ng�� hashq-set! Og��*program-wrappers* Pg�� prototype Qg�� constructor Rg��pget SF� TF� Ug�� <generic> VU� WU� Xg�� add-method! YX� ZX� [g��<method> \[� ][� ^g�� specializersS _g��<top> `_� a_� bg��formalsS cg��o dg��p ecd� fg��bodyS gg��cond hg��and ig��integer? jid� kg��exact? lkd� mg��>= nmd � ohjln� pg��let qg��v r"c� sqr� ts� ug��if vg��< wg�� vector-length xwq� yvdx� zg�� vector-ref {zqd� |g�� next-method }|� ~uy{}� pt~� �o� �g��or �g��symbol? �d� �g��eq? �g��quote �K� �d� �h� �g��string? �d� �g��string=? �f��length �d� �h� �� �wr� �� �g��else �}� �g� �� �g��make-procedureS �g�� procedureS �cdq� �m d� �hjl� �g��vect �r� �� �w� �vd� �g�� vector-set! �dq� �g��new �g�� make-vector �g��1+ �d� � � �� �� �g��vector-move-left! �  � �g��set! �r� �dq� �p� �u� �p� �� �g��->uint32 �q� � � �� �� �g��min �� �  � �p� �p� �� �g� �� �g��setter �� �� �g��toString �g��*this* �g��format �f��~A �g��concat �g��+ �g��map �g��error �f��)generic array concats not yet implemented �g��join �g�� string-join �g��->string �f��, �g��pop �g�� *undefined* �g��pushC�5����h���w��]4    5�4�>��"��G���4!"5��$��"�� 4%"i(5�$��14+"4.4!"5$��"i"��"5>��"��G��"���4!/5$��4%/i25$��43i649/i55$��@4</i4=i>i�?@AB"iCD��E/5>��"��G��"��:4+/4=i>i�?@AB"iCD��E/5>��"��G��"��:4+/4=i>i�?@AB"iCD��E/5>��"��G��"��:4+/4=i>i�?@AB"iCD��E/5>��"��G��F/GHIJKK"� ����hp���K��-��1��3�4544 �5>��"��G��4 5"��(��C" �"����C������g��vals l�g��o  l�g��vect  < l�g��i  B a�g��vals  B a��g��filenamef��language/ecmascript/array.scm     +       !  ! ! " !  - !  6 "  < "  B #  H $  R % # S %  V &  Y &  a &  a # � l ��g��nameg�� new-array�CR4Fi>iGHLiMi5R4NiOiii>��"��G��4JiiPi>��"��G��4JiiQi>��"��G��4!R5��$��"��Ri�$��!4+R4TWER5>��"��G��"���4ZRi4T]^/ia�befik"wK� �����h8����] 45$��45$��~ $��%4�545$��CL��6$�� "��$��"��45$�� 45"��$�� 4�56L��6$�� "��$��"��45$�� 45"��$�� 4�56L��6$�� "��$��"��45$�� 45"��$�� 4�56L��6}������g��o  8�g��p  8�g��v  ' E�g��t  V �g��t  � ��g��t  � !��g��filenamef��language/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 ���C��������h���n���]�O�C������f�������g��real-next-method  ��g��filenamef��language/ecmascript/array.scm 2 �  ���C5 >��"��G��4!J5��$��"��Ji�$��!4+J4TWEJ5>��"��G��"���4ZJi4T]^/iaa�bfK"wik����h0��k��]"��$�� "��$��"��45$�� 45"��$��N4�5445 54 4 4 5455 >��"��G��4 5�6L��64 5$��4 5$��v $��j4�54 5$�� C4 54 4 5 >��"��G��44 5�>��"��G��C"""c������g��o  0�g��p  0�g��v   0�g��t   @�g��vect  K ��g��new  Z ��g��vect  � $�g��new  � $��g��filenamef��language/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 ���C��h���n���]�O�C������f�������g��real-next-method  ��g��filenamef��language/ecmascript/array.scm = �  ���C5 >��"��G��4Jii"�h���t���][�4�56���l�������g��this  ��g��filenamef��language/ecmascript/array.scm Q Q   Q �   ���C>��"��G��4JiiRKRK�����h������]4�56�x�������g��x  ��g��filenamef��language/ecmascript/array.scm U   U 0 U 8 U 0  U &�   ���CF/GHID#"w�h�����-��1��3�[444554�5?4 5"��i(��     64 5$��=454 45>��"��G��45"6� "�������������g��rest ��g��this ��g��len  * ��g��rv  4 ��g��objs  : ��g��i  : ��g��v  h ���g��filenamef��language/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>��"��G��4JiiRK����hh���R��-��1��3�["��> $���$�� 4�5"��64455"4455"J������g�� separator h�g��this h�g��i   P�g��l   P��g��filenamef��language/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>��"��G��4JiiRKJ������hH������][�44�55 $��C4�54�>��"��G��C�������g��this  H�g��len  H�g��ret  , H��g��filenamef��language/ecmascript/array.scm  l l   l "  l   l  l   m   m  # o  * o  , o  , o  / p 5 p  8 p  = p �  H ���C>��"��G��JiiRKJ������h`��� ��-��1��3�["��?(�� 45644455>��"��G��"�"�������������g��args Y�g��this Y�g��args   Q��g��filenamef��language/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 ���C6�����o������g��m  ,�g��t 4 P�g��t  �g��t  ��g��filenamef��language/ecmascript/array.scm   -  �   �     "  J   `          )   ) 4  )   )  -  /  /   /  0  0   0  2  = P j S � d  k  s �   ���C6����������������������������������������������������������������������������������������������������������������������������������������������������������������language/ecmascript/compile-tree-il.go��������������������������������������������������������������0000644�����������������00000141671�15253700563�0014017 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]\�4��h������]� g��guile � g��define-module* � � g��language g�� ecmascript g��compile-tree-il � g��filenameS f��'language/ecmascript/compile-tree-il.scm g��importsS g��tree-il  � � g��ice-9 g��receive � � g��system g��base g��pmatch � � g��srfi g��srfi-1 � � � g��exportsS � g��set-current-module ! � " � #g��make-syntax-transformer $#� %#� &g��-> 'g��macro (g�� $sc-dispatch )(� *(� +g��any ,g��each-any -+, .+-� /g�� syntax-object 0g�� quasiquote 1g��top 21� 3g��ribcage 4g��dummy 5g��type 6g��arg 7456� 8g��m-14365c91dc5cf6c7-1 981� :922� ;f��l-14365c91dc5cf6c7-6 <f��l-14365c91dc5cf6c7-7 =f��l-14365c91dc5cf6c7-8 >;<=� ?37:>� @3� Ag��x BA� C9� Df��l-14365c91dc5cf6c7-3 ED� F3BCE� G2?@F� Hg��hygiene IH� J/0GI� Kg��map LK� MK� Ng��unquote O/NGI� Pg��syntax-violation QP� RP� Sf��-source expression failed to match any pattern Tg��@implv U++� Vg��sym W4V� Xg��m-14365c91dc5cf6c7-e YX1� ZY2� [f��l-14365c91dc5cf6c7-13 \f��l-14365c91dc5cf6c7-14 ][\� ^3WZ]� _Y� `f��l-14365c91dc5cf6c7-10 a`� b3B_a� c2^@b� d/&cI� eg��@ f/ecI� gg��quote h/gcI� i/cI� j/cI� kg��impl l/kcI� mijl� nhm� og��@impl p+- q4V6� rg��m-14365c91dc5cf6c7-18 sr1� ts22� uf��l-14365c91dc5cf6c7-1d vf��l-14365c91dc5cf6c7-1e wf��l-14365c91dc5cf6c7-1f xuvw� y3qtx� zs� {f��l-14365c91dc5cf6c7-1a |{� }3Bz|� ~2y@}� /&~I� �g��apply �/~I� �/T~I� �g��empty-lexical-environment �g��lexical �g��econs �g��assq-ref �g��toplevel �g��lookup �g�� parse-tree-il �g��begin �k� �g��js-init �g��comp �g��source-properties �g��location �g�� pmatch/source �g��let �g��clause �4A� �g��m-14365c91dc5cf6c7-4d �1� �22� �f��l-14365c91dc5cf6c7-52 �f��l-14365c91dc5cf6c7-53 �f��l-14365c91dc5cf6c7-54 �� �3� �� �f��l-14365c91dc5cf6c7-4f �� �3B� �2@� �/I� �g��res �/I� �/I� �g��loc �/I� �/I� �g��if �/I� �g��set-source-properties! �/I� �� �g��make-parameter �g��current-return-tag �g��abort �g��error �f��return outside function �g��const �g��return �g��gensym �f��return �g�� parameter? �� �� �g�� scm-error �g��wrong-type-arg �f�� parameterize �f��Not a parameter: ~S �� �g�� primitive �g��make-prompt-tag �g��prompt �f��val �g�� lambda-case �g��k �g��val �� �g��with-return-prompt �g��block �f�� compilation not yet implemented: �g��for-in �f��%enum  �f�� %continue  �g��%enum �g�� %continue �g��letrec �� �g��make-enumerator �g��lambda �� �g�� ->boolean �g��pget �g� �� �&� �g��length �g� �� �&� �o� �o� �g��= �g��var �N� �g�� call/this �N� �g��pop �g� �� �&� �N� �� �� �0� �g��e �� �g�� statement �� �g� �� �&� �� �&� �� �&� �g�� *undefined* �T� �� �&� �� �g��for �� �g��true �� �g��while �g��do f��%loop  g��%loop � g��typeof g��void g��delete g��aref g��pdel  g��pref  g��new  g��^=  g��^  g��bor= g��bor g��&= g��& g��>>>= g��>>> g��<<= g��<< g��>>= g��>> g��%= g��% g��*= g��* g��/= g��/ g��-= g��- g��+=  g��+ !g��pput "g��ref #g��set! $g��object %g�� new-object &g��cons 'f��bad prop-val pair (g��array )g�� new-array *g��call +g�� call/this* ,g�� string-append -g��symbol->string .f��  /g�� comp-body 0� 1g��define 2f�� bad var form 3g��predec 4g��preinc 5g��postdec 6g��inline 7g��set 8g��postinc 9g��or :g��and ;g��bior <g��bxor =g��band >g��!== ?g��not @g��eqv? Ag��=== Bg��!= Cg��equal? Dg��== Eg��in Fg�� has-property? Gg��>= Hg��> Ig��<= Jg��< Kg��shift Lg��mod Mg��! Ng�� logical-not Og��~ Pg�� bitwise-not Qg��->number Rg��this Sg��get-this Tg��string Ug��number Vg��false Wg��null Xg��reverse! Yg��memq Zg��reverse [g��foldC�5�������h�����]4    5�4"�>��"��G���4%&'*.JMO�����h���>���]��C������6�������g��tmp-14365c91dc5cf6c7-c  ��  ���C�������h���P���]45�C����H�������g��dummy  �g��type  �g��arg   ��   ���CRS�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��'language/ecmascript/compile-tree-il.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��typeg��argg��...����C5&R4%T'*Udfnh��������h���>���]���C��6�������g��dummy  �g��sym  ��   ���CRS���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��'language/ecmascript/compile-tree-il.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��sym���C5TR4%o'*p����h���O���]��C���G�������g��dummy  �g��sym  �g��arg   ��   ���CRS��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��'language/ecmascript/compile-tree-il.scm ! �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��symg��argg��...���C5oR��h������]�C�����������g��filenamef��'language/ecmascript/compile-tree-il.scm $  % �   ��g��nameg��empty-lexical-environment�CR��������h������]���C��������������g��name  �g��gensym  �g��env   ��g��filenamef��'language/ecmascript/compile-tree-il.scm '  (   ( �   ��g��nameg��econs�CR��h ������] 4�5$��C��C���������g��name  �g��env  �g��t  ��g��filenamef��'language/ecmascript/compile-tree-il.scm *  +  +   , �   ��g��nameg��lookup�CRe� �h0������]4��4�45�5�5D�����������g��exp  ,�g��env  ,�g��opts   ,��g��filenamef��'language/ecmascript/compile-tree-il.scm .  0   1  1   2   2  ! 2  $ 1  & 0  , / �  , ��g��nameg��compile-tree-il�CR�����h ������] �$��4�5(��CCC��������g��x  �g��props  ��g��filenamef��'language/ecmascript/compile-tree-il.scm 6  7  7  8   8   9 �   ��g��nameg��location�CR4%'*p� ����hX���P���]������������C������H�������g��dummy  R�g��x  R�g��clause   R��  R ���CRS�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��'language/ecmascript/compile-tree-il.scm ? �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��xg��clauseg��...���C5R4i5R��h0������] 45�$��"��45����C�������g��expr  0�g��t !��g��filenamef��'language/ecmascript/compile-tree-il.scm J  K   K  K  K &  K -  K & & L ( M ) M  , M / K �  0 ��g��nameg��return�CR����h�����]4545$��"��4�>��"��G�� 4   �5Y  � ���45�4�5�4545��� �����ZCZF�������g�� body-thunk  ��g��tag ��g��t-14365c91dc5cf6c7-67  ��g��val  | ���g��filenamef��'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 �&  � ��g��nameg��with-return-prompt�CRe�  K����h���t���]�L�6������l�������g��x  ��g��filenamef��'language/ecmascript/compile-tree-il.scm    �  ���C    !"#$%&'�h`���(��]!�$��N��$��5(����4L�5�C�6�6�6� ������g��x  _�g��vx  W�g��vy   W�g��vx  O�g��vy  O��g��filenamef��'language/ecmascript/compile-tree-il.scm ~     ,  " .  - 0  < 3  - 5  - ;  - F  " K  ) O  " S  ) W  " [  ) _  "�  _ ���C()����h���t���]�L�6������l�������g��x  ��g��filenamef��'language/ecmascript/compile-tree-il.scm {  { "�  ���C*�������h���t���]�L�6������l�������g��x  ��g��filenamef��'language/ecmascript/compile-tree-il.scm v  v "�  ���C����h���t���]�L�6������l�������g��x  ��g��filenamef��'language/ecmascript/compile-tree-il.scm r r ,�  ���C������h���t���]�L�6������l�������g��x  ��g��filenamef��'language/ecmascript/compile-tree-il.scm m m ,�  ���C+,-.��h������]44�556�����������g��x  ��g��filenamef��'language/ecmascript/compile-tree-il.scm Z   [ "  [ 1  [ D  [ "  [ �   ���Ce������h���t���]�C����l�������g��x  ��g��filenamef��'language/ecmascript/compile-tree-il.scm _ '  _ 3�  ���C/���h���d���]�LLLL�6��\�������g��filenamef��'language/ecmascript/compile-tree-il.scm a   b �   ���C������h���t���]�L�6������l�������g��x  ��g��filenamef��'language/ecmascript/compile-tree-il.scm X  X "�  ���C01e2���h�����]1�$����$��H(��4L�5�C(����C�6(����C�6�6�������������g��form  ��g��vx  ��g��vy   ��g��vx  b�g��vy  b�g��vx  ? b�g��vy  ? b�g��vx  f ��g��vy  f ��� g��filenamef��'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:;<=>?@ABCDEFGHIJKLMNOPQRSTUVW������h8��N��]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"�64�5"�64�5"�64�5"�64�5"�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 5�4 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-.O�5�"�/!"""""�$��w��/&��[$��P$��5(��401��5"�."}"s"i"e"[�$��w��2&��[$��P$��5(��403��5"�."""""�$��w��4&��[$��P$��5(��405��5"�-"q"g"]"Y"O�$��w��6&��[$��P$��5(��407��5"�-"""""�$��w��8&��[$��P$��5(��409��5"�,"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(��40A��5"�*"M"C"9"5"+�$��w��B&��[$��P$��5(��40C��5"�* """""�$��w��D&��[$��P$��5(��40E��5"�)"A"7"-")"�$����0&��$��$��(&��$��  $��l     (��R$��G   (��-F�454 54 5�"�("h  "^"Z  "P "F"B"8"."*" �$����0&��$��$��*&��$��  $��j     (��P$��E   (��+F�45+ �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$��>(��$J�4545�"�&0"""""�$��~��*&��b$��W$��<(��"J�45+��"�%"I"?"5"1"'�$��;��K&��L�4-MO�5"�%I""�$��;��N&��O�4-PO�5"�%""�$��S��Q&��7$��,(��4R455"�$"I"?";"1�$��{��S&��_$��T$��9(��454-TO�5"�$7"""""�$����S&��$��$��(&��$��  $��o     (��U$��J   (��04U454 54-VO� 55"�#_"  ""  " """"""�$����S&��$��$��*&��$��  $��m     (��S$��H   (��.4U45+ �4-WO� 55"�"c"  ""  " """"""�$����U&��r$��g$��LX�J������"�!" """�$����&��$��z$��_(��E4-Y54-Z5�4[\O�5���"� "z"p"f"b"X�$��1��&��4-]O�5"� """�$��N��&��2$��'(�� 45"� Y""""�$��,��&��(��^"� """�$��1��_&��4-`O�5"�"J"@�$��N��G&��2$��'(�� 4H5"�""""�$���a&�t$�i$�N(&�2$�'  $�      (��(��45 45� b � � �4 545�b���cC�J�  ���+ ��45�b���F�  ���������"�  ""~  "t "j"f"\"R"N"D�$�`��a&�D$�9$�*&�$��  $��     (��(��45 45� b � � �cC�J�  �+ ��+ ��45�b���F�  �+ �������"�  ""  " """"""�$����a&��$��$��G&��c$��X  (��>(��44H5 I cC� + ��� �"� "9"5 "+"'""""�$���d&�t$�i$�N(&�2$�'  $�      (��(��45 45� b � � �4 545�b���cE�J�  ���+ ��45�b���F�  ���������"�L  ""  " """~"t"p"f�$�`��d&�D$�9$�*&�$��  $��     (��(��45 45� b � � �cE�J�  �+ ��+ ��45�b���F�  �+ �������"�  "5"1  "' """"""�$����d&��$��$��G&��c$��X  (��>(��44H5 I cE� + ��� �"� "["W "M"I"?"5"1"'�$���e&�o$�d$�I(&�-$�"  $�     (��(��45 45� b � � �4 545�b���J�  ���45�b���F�  ��fC�+ ��������"�  ""  "޽ "޳"ޯ"ޥ"ޛ"ޗ"ލ�$�`��e&�D$�9$�*&�$��  $��     (��(��45 45� b � � �J�  �+ ��45�b���F�  �+ �cC��+ �������"�  "\"X  "N "D"@"6","("�$����e&��$��$��G&��$��  (��v(��l4G�5 45� b � � �g4H5cC�  �+ ���  ���"�  "J"F "<"8"."$" "�$���h&�t$�i$�N(&�2$�'  $�      (��(��45 45� b � � �4 545�b���J�  ���45�b���F�  ��cE��+ ��������"�u  "ڵ"ڱ  "ڧ "ڝ"ڙ"ڏ"څ"ځ"w�$�`��h&�D$�9$�*&�$��  $��     (��(��45 45� b � � �J�  �+ ��45�b���F�  �+ �cE��+ �������"�   "F"B  "8 "."*" """�$����h&��$��$��G&��$��  (��v(��l4G�5 45� b � � �I4H5cE�  �+ ���  ���"�  "4"0 "&""""" "��$����&��r$��g$��L(��2�45�45��"�K"ׅ"{"q"m"c�$����&��$��$��g$��L  (��2�45�4545�"�" """ֹ"ֵ"֫�$����i&��$��$��x(��^4545� b � ���  ��  �45��"�  """""�$����j&��o$��d$��I(��/�45�45+��"� <"j"`"V"R"H�$����3&��d$��Y$��>(��$k�4545�"� """""Թ�$����1&��d$��Y$��>(��$l�4545�"� &"L"B"8"4"*�$����5&��d$��Y$��>(��$m�4545�"� "ӽ"ӳ"ө"ӥ"ӛ�$����n&��n$��c$��H(��.co�cp�4545��"� "$""" "�$��~��q&��b$��W$��<(��"cp�4545�"� }"җ"ҍ"҃""u�$����r&��n$��c$��H(��.co�cs�4545��"� """""�$��~��t&��b$��W$��<(��"cs�4545�"� _"q"g"]"Y"O�$����u&��d$��Y$��>(��$v�4545�"�"""""�$��~��w&��b$��W$��<(��"cw�4545�"�K"U"K"A"="3�$��~��x&��b$��W$��<(��"cx�4545�"�""Ͼ"ϴ"ϰ"Ϧ�$��~��y&��b$��W$��<(��"cy�4545�"�9";"1"'"#"�$��~��z&��b$��W$��<(��"cz�4545�"�"ή"Τ"Κ"Ζ"Ό�$����;&��i$��^$��C(��){�454C�5�"� """""�$����9&��d$��Y$��>(��${�4545�"�"͋"́"w"s"i�$����=&��d$��Y$��>(��$|�4545�"� """""�$��~��?&��b$��W$��<(��"c?�4545�"�"o"e"["W"M�$��~��A&��b$��W$��<(��"cA�4545�"�"""""�$��~��C&��b$��W$��<(��"cC�4545�"�o"U"K"A"="3�$��~��E&��b$��W$��<(��"cE�4545�"�""ʾ"ʴ"ʰ"ʦ�$��\��}&��@$��5(��~�45�"�u"S"I"E";�$��\��&��@$��5(���45�"�""""�$��`��C&��D$��9(��cC�+ �45�"�"y"o"k"a�$��n��E&��R$��G(��-cE��45�+ ��"�*""""�&����"��"�$��L��&��0$��%(�� +�"��""u"q"g�$��L��&��0$��%(�� +�"��^"$""" �&�� +�"��0"�&�� +�"��"�&�� +�"��"Ǿ4�5$��44�5>��"��G��"���C��N������g��x  8�g��e  8�g��vx  m �g��vy  m �g��vx   �g��vy   �g��vx   �g��vy   �g��vy  � �g��vx   �g��vy   �g��vy  ! �g��%enum  ; �g�� %continue ; �g��e S �g��vx   8�g��vy   8�g��vx   *�g��vy   *�g��vx    �g��vy    �g��vx   �g��vy  �g��vx (  �g��vy (  �g�� %continue 9 �g��e F �g��vx  I -�g��vy  I -�g��vx  b �g��vy  b �g��vx  s �g��vy  s �g�� %continue    �g��e  �g��vx  > W�g��vy  > W�g��vx  W I�g��vy  W I�g��vx  h ?�g��vy  h ?�g��%loop   5�g�� %continue  5�g��e  /�g��vx  h �g��vy  h �g��vx   �g��vy   �g��vx   %�g��vy   %�g��vx   �g��vy   �g��vx  6 �g��vy  6 �g��vx  O �g��vy  O �g��vx  ` �g��vy  ` �g��vx  y �g��vy y �g��vx  �g��vy  �g��vx   �g��vy   �g��vx  & �g��vy  & �g��vx  7 �g��vy  7 �g��vx  P �g��vy P �g��vx a �g��vy a �g��vx   [�g��vy   [�g��vx   M�g��vy   M�g��vx  C�g��vy  C�g��vx  l �g��vy  l �g��vx  �g��vy  �g��vx  �g��vy  �g��vx  _�g��vy  _�g��vx   Q�g��vy   Q�g��vx   G�g��vy   G�g��vx  p �g��vy  p �g��vx  �g��vy  �g��vx  �g��vy  �g��vx  c�g��vy  c�g��vx  U�g��vy  U�g��vx   K�g��vy   K�g��vx  t �g��vy  t �g��vx  �g��vy  �g��vx  �g��vy  �g��vx  g�g��vy  g�g��vx   Y�g��vy   Y�g��vx  O�g��vy  O�g��vx  x �g��vy  x �g��vx  �g��vy  �g��vx  �g��vy  �g��vx  k�g��vy  k�g��vx   ]�g��vy   ]�g��vx  $ S�g��vy  $ S�g��vx  | �g��vy  | �g��vx  �g��vy  �g��vx  �g��vy  �g��vx  o�g��vy  o�g��vx   a�g��vy   a�g��vx  ( W�g��vy  ( W�g��vx   �g��vy   �g��vx   �g��vy   �g��vx   �g��vy   �g��vx   �g��vy   �g��vx   �g��vy   �g��vx  , �g��vy  , �g��vx  E �g��vy E �g��vx V �g��vy V �g��vx m �g��vy m �g��vx   �g��vy   �g��vx   �g��vy   �g��vx  ' �g��vy  ' �g��vx  @ �g��vy @ �g��vx Q �g��vy Q �g��vx h �g��vy h �g��vx   �g��vy   �g��vx   �g��vy   �g��vx   �g��vy   �g��vx  9 �g��vy 9 �g��vx P �g��vy P �g��v c �g��vx   L�g��vy   L�g��vx   >�g��vy   >�g��vx   4�g��vy   4�g��vx  ] �g��vy  ] �g��vx  v �g��vy  v �g��vx   �g��vy   �g��vx   �g��vy   �g��vx  , a�g��vy  , a�g��vx  r �g��vy  r �g��vx   �g��vy   �g��vx   E�g��vy   E�g��vx   7�g��vy   7�g��vx   -�g��vy   -�g��vx  V C�g��vy  V C�g��vx  o 5�g��vy  o 5�g��vx   +�g��vy   +�g��vx   �g��vy  �g��vx  �g��vy  �g��vx  �g��vy  �g��vx  T ?�g��vy  T ?�g��vx  m 1�g��vy  m 1�g��vx  ~ '�g��vy  ~ '�g��vx   �g��vy  �g��vx  �g��vy  �g��vx  �g��vy  �g��vx  P �g��vy  P �g��vx  i �g��vy  i �g��vx  z �g��vy  z �g��vx   �g��vy   �g��vx   v�g��vy   v�g��vx   l�g��vy   l�g��syms  & b�g��vx   �g��vy   �g��vx   �g��vy   �g��vx    �g��vy    �g��vx  * P�g��vy  * P�g��vx  a �g��vy  a �g��vx   �g��vy   �g��vx   �g��vy   �g��vx   �g��vy   �g��vx   r�g��vy   r�g��vx   h�g��vy   h�g��vx  9 Z�g��vy 9 Z�g��vx J P�g��vy J P�g��what c B�g��sym j ?�g��what   5�g��sym   2�g��what   ,�g��sym   )�g��vx   �g��vy   �g��vx   �g��vy   �g��vx   �g��vy   �g��vx   �g��vy  �g��vx  �g��vy  �g��what  �g��sym  �g��what  H �g��sym  O �g��vx   �g��vy   �g��vx   �g��vy   �g��vx  & �g��vy  & �g��vx  ? �g��vy ? �g��v X �g��vx   R�g��vy   R�g��vx   D�g��vy   D�g��vx   :�g��vy   :�g��vx   ,�g��vy  ,�g��vx  "�g��vy  "�g��what 5 �g��sym < �g��what  X �g��sym  _ �g��what   �g��sym   �g��vx  c �g��vy  c �g��vx  | �g��vy  | �g��vx   �g��vy   �g��vx   �g��vy  �g��vx  �g��vy  �g��what  �g��sym  |�g��what   r�g��sym  ! o�g��vx   �g��vy   �g��vx   {�g��vy   {�g��vx   q�g��vy   q�g��vx   c�g��vy  c�g��v * U�g��vx  "�g��vy  "�g��vx  "�g��vy  "�g��vx  "�g��vy  "�g��vx  !�g��vy !�g��vx !�g��vy !�g��what ! !�g��sym ! !�g��what  !* !�g��sym  !1 !�g��what  !d !�g��sym  !k !�g��vx  "0 #�g��vy  "0 #�g��vx  "I #|�g��vy  "I #|�g��vx  "Z #r�g��vy  "Z #r�g��vx  "s #d�g��vy "s #d�g��vx " #Z�g��vy " #Z�g��what " #L�g��sym " #I�g��what  " #?�g��sym  " #<�g��vx  # $�g��vy  # $�g��vx  # $�g��vy  # $�g��vx  # $v�g��vy  # $v�g��vx  # $h�g��vy # $h�g��what # $Z�g��sym $ $W�g��vx  $ &)�g��vy  $ &)�g��vx  $ &�g��vy  $ &�g��vx  $ &�g��vy  $ &�g��vx  $ &�g��vy $ &�g��vx $ %�g��vy $ %�g��what % %�g��sym % %�g��what  %/ %�g��sym  %6 %�g��what  %i %�g��sym  %p %�g��vx  &: '�g��vy  &: '�g��vx  &S '�g��vy  &S '�g��vx  &d '|�g��vy  &d '|�g��vx  &} 'n�g��vy &} 'n�g��vx & 'd�g��vy & 'd�g��what & 'V�g��sym & 'S�g��what  & 'I�g��sym  & 'F�g��vx  ' (�g��vy  ' (�g��vx  ' (�g��vy  ' (�g��vx  ' (�g��vy  ' (�g��vx  ' (r�g��vy ' (r�g��what ( (d�g��sym ( (a�g��vx  ( )1�g��vy  ( )1�g��vx  ( )#�g��vy  ( )#�g��vx  ( )�g��vy  ( )�g��vx  )B )�g��vy  )B )�g��vx  )[ )�g��vy  )[ )�g��vx  )l )�g��vy  )l )�g��vx  )} )�g��vy )} )�g��vx  ) *�g��vy  ) *�g��vx  * *�g��vy  * *�g��vx  * *�g��vy  * *�g��what  *3 *�g��sym *: *�g��vx  * +@�g��vy  * +@�g��vx  * +2�g��vy  * +2�g��vx  * +(�g��vy  * +(�g��vx  +Q +�g��vy  +Q +�g��vx  +j +�g��vy  +j +�g��vx  +{ +�g��vy  +{ +�g��vx  + ,V�g��vy  + ,V�g��vx  + ,H�g��vy  + ,H�g��vx  , ,>�g��vy  , ,>�g��vx  ,g ,�g��vy  ,g ,�g��vx  , ,�g��vy  , ,�g��vx  , ,�g��vy  , ,�g��vx  , -v�g��vy  , -v�g��vx  - -h�g��vy  - -h�g��vx  - -^�g��vy  - -^�g��vx  - -�g��vy  - -�g��vx  - -�g��vy  - -�g��vx  - -�g��vy  - -�g��vx  . .�g��vy  . .�g��vx  .) .�g��vy  .) .�g��vx  .: .|�g��vy  .: .|�g��vx  . /�g��vy  . /�g��vx  . /�g��vy  . /�g��vx  . /�g��vy  . /�g��vx  /. /�g��vy  /. /�g��vx  /G /�g��vy  /G /�g��vx  /X /�g��vy  /X /�g��vx  / 01�g��vy  / 01�g��vx  / 0#�g��vy  / 0#�g��vx  / 0�g��vy  / 0�g��vx  0B 0�g��vy  0B 0�g��vx  0[ 0�g��vy  0[ 0�g��vx  0l 0�g��vy  0l 0�g��vx  0 1C�g��vy  0 1C�g��vx  0 15�g��vy  0 15�g��vx  0 1+�g��vy  0 1+�g��vx  1T 1�g��vy  1T 1�g��vx  1m 1�g��vy  1m 1�g��vx  1~ 1�g��vy  1~ 1�g��vx  1 2\�g��vy  1 2\�g��vx  1 2N�g��vy  1 2N�g��vx  2 2D�g��vy  2 2D�g��vx  2m 2�g��vy  2m 2�g��vx  2 2�g��vy  2 2�g��vx  2 2�g��vy  2 2�g��vx  2 3r�g��vy  2 3r�g��vx  3 3d�g��vy  3 3d�g��vx  3" 3Z�g��vy  3" 3Z�g��vx  3 3�g��vy  3 3�g��vx  3 3�g��vy  3 3�g��vx  3 3�g��vy  3 3�g��vx  4 4�g��vy  4 4�g��vx  4% 4v�g��vy  4% 4v�g��vx  46 4l�g��vy  46 4l�g��vx  4 5 �g��vy  4 5 �g��vx  4 4�g��vy  4 4�g��vx  4 4�g��vy  4 4�g��vx  5 5�g��vy  5 5�g��vx  57 5�g��vy  57 5�g��vx  5H 5~�g��vy  5H 5~�g��vx  5 5�g��vy  5 5�g��vx  5 5�g��vy  5 5�g��vx  6 6d�g��vy  6 6d�g��vx  6' 6V�g��vy  6' 6V�g��vx  6u 6�g��vy  6u 6�g��vx  6 6�g��vy  6 6�g��vx  6 7H�g��vy  6 7H�g��vx  6 7:�g��vy  6 7:�g��vx  7w 7�g��vy  7w 7�g��vx  7 7�g��vy  7 7�g��vx  7 8�g��vy  7 8�g��vx  7 8�g��vy  7 8�g��res  8Z 8�g��loc  8c 8�Fg��filenamef��'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 ��g��nameg��comp�CRX"Y�����h����]["�"�"��"��"��7�$�����"�(�� 45DC�$��=��$��(4L>�� G��"u""�$��5��$�� &���"9"E"A"=�$��E��$��0&��(���"""""�$����$��&��$��$��}   $��h     (��T � �4 5  $��"�� 4 L�5 $��"�� �"&"*"&""""""�$����$��&��y$��n$��Y   (��E4 5  $��"�� 4 L�5 $��"�� �"s"s"o"k"g"c"_�z������g��in  �g��out  �g��rvars   �g��vx  # :�g��vy  # :�g��vx  Z ��g��vy  Z ��g��sub-out  s ��g��rvars  s ��g��vx  � ��g��vy  � ��g��vx  � !�g��vy  � !�g��vx  � �g��vy  � �g��vx  2 �g��vy  2 �g��vx  C �g��vy  C �g��vx  \ �g��vy  \ �g��vx m �g��vy m �g��vx ~ �g��vy ~ �g��t  �g��vx   �g��vy   �g��vx   �g��vy   �g��vx  / �g��vy  / �g��vx @ �g��vy @ �g��t ] v��#g��filenamef��'language/ecmascript/compile-tree-il.scm      . 0 : / @   A 3  K 3 M   a (  e   f * k *  r * v ) � ,  � + �   � $ " �   � $ 1 � $ 9 � $  � & � % �    #                $    !       L  U   ]   k  $ z         �-   ��g��nameg��lp�CZK,-.��h������]44�556�����������g��x  ��g��filenamef��'language/ecmascript/compile-tree-il.scm 8   9  9 /  9 B  9  9 �   ���C[e�������h���t���]�C����l�������g��x  ��g��filenamef��'language/ecmascript/compile-tree-il.scm <   < +�  ���C� ������hp�����],O�Q�4>�� G�454544�55454 5�C������g��e  p�g��body  p�g��formals   p�g�� formal-syms   p�g��lp  �g��out   p�g��rvars   p�g��names  - p�g��syms  8 p�g��e  R p�� g��filenamef��'language/ecmascript/compile-tree-il.scm         (    " 5  ' 7  - 7  0 8  8 7  ; ;  @ ;  R ;  R 7  V <  [ <  d =  o < �  p ��g��nameg�� comp-body�C/RC��������g��m  ,��g��filenamef��'language/ecmascript/compile-tree-il.scm    $  ' z *  . 6 ~ H  H J  O ������ \ ������  � ������ ���C6������������������������������������������������������������������������language/ecmascript/parse.go������������������������������������������������������������������������0000644�����������������00000432222�15253700563�0012135 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0z4�����]z�4����ho������]� g��guile � g��define-module* � � g��language g�� ecmascript g��parse � g��filenameS f��language/ecmascript/parse.scm g��importsS g��system g��base g��lalr  � � g��tokenize � � � g��exportsS g��read-ecmascript g��read-ecmascript/1 g�� make-parser � g��set-current-module � � g��throw g�� syntax-error g�� lexical-token ! � " � #g��and=> $g��"source-location->source-properties %g��make-tokenizer &g��make-tokenizer/1 'g��call-with-input-string (f��� )g�� read-char *g�� *eof-object* +g�� lr-driver ,g�� *default* -g��*error* .,-� /g��*eoi* 0/ %� 1g��lbrace 21 $� 3g��lparen 43 #� 5g��lbracket 65 "� 7g��dot 87 !� 9g�� semicolon :9 � ;g��+ <; � =g��- >= � ?g��++ @? � Ag��-- BA � Cg��! DC � Eg��~ FE � Gg��break HG � Ig��new JI � Kg��var LK � Mg��return NM � Og��void PO � Qg��for RQ � Sg��switch TS � Ug��while VU � Wg��continue XW � Yg��function ZY � [g��this \[ � ]g��with ^] � _g��if `_ � a � bg��delete cb � dg��try ed � fg��do gf � hg��typeof ih � jg��null kj � lg��true ml � ng��false on � pg�� Identifier qp � rg�� StringLiteral sr � tg��NumericLiteral ut � vg�� RegexpLiteral wv � x.02468:<>@BDFHJLNPRTVXZ\^`acegikmoqsuw�& y, � zy� {, � |{� }, � ~}� , � �g��colon � 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� �.� �g��rbracket � v� �g��comma � u� �.468<>@BDFJP\cikmosuw� �g��rbrace � ~� �p }� �r |� �t {� �.2468:<>@BDFHJLNPRTVX\^`acegikmow�& �, � �� �9 �� � �� �.� �, � �� �, .� �� �, 2� �g��or � �� �g��? � �� �� �, 6� �g��&& � �� �� �, :� �g��bor � �� �� �, >� �g��^ � �� �� �, B� �g��& � �� �� �, F� �g��== � �� �g��!= � �� �g��=== � �� �g��!== � �� �� �, P� �g��< � �� �g��> � �� �g��<= � �� �g��>= � �� �g�� instanceof � �� �g��in � �� �� �, ]� �g��<< � �� �g��>> � �� �g��>>> � �� �� �, a� �= �� �; �� �� �, d� �g��* � �� �g��% � �� g��/  �� �� , h� � , r� � , u�  ? ��  A ��  g��=   ��  g��+=  �� g��-=  �� g��*=  �� g��%=  �� g��<<=  �� g��>>=  �� g��>>>=  �� g��&=  �� g��bor=  �� 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� ig��finally ji �� kg��catch lk �� m.jl� n, q� on� p9 �� q.p� r3 �� s.r� tg��rparen 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 � .� , � � , � � , � g��accept /� � , � � 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� .� , � g��else  o� � , � � 1 q� .�  r� .� , � 2468:<>@BDFHJLNPRTVXZ\^`acegikmoqsuw�% , � � , � �  v� g��case  u� g��default  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�& Pg��lambda Qg��append RQ� SQ� Tg��begin UT� Vg��block Wg��for-in Xg��ref YW� ZG� [M� \� ]g��label ^� _g��string `g��regexp ag��number bg��string->number cg�� string-append df��. eg��number->string fg��array gf� hg��unquote-splicing ig��$2 jhi� kfj� la � ml� ng��object on� pg��string->symbol qg��aref rg��pref s� tg��call ug��postinc vg��postdec wg��preinc xg��predec yg��andC�5����h����]4    5�4�>��"��G���"#$������hp�����-�.�,�3�#��"�� �6$��<&��/�4 5 $��"�� 6""���������g��message m�g��token m�g��t  M b��g��filenamef��language/ecmascript/parse.scm   ! & !  &   )   -   0   :  >  D   H  M   M  _   e  � m ��g��nameg�� syntax-error�CR%���h������] 45�4�56���������g��port  �g��parse  ��g��filenamef��language/ecmascript/parse.scm #  $   $  %  % �   ��g��nameg��read-ecmascript�CR&���h������] 45�4�56���������g��port  �g��parse  ��g��filenamef��language/ecmascript/parse.scm '  (   (  )  ) �   ��g��nameg��read-ecmascript/1�CR4'i()i5*R+!#&)+-/1359;@BDFHJKLOQSUWYfhjlnprtvxz|~   !#&(*,.024689;=?ACEGIKMO"�h������]�$��&��  "���"���$��&��  "���"���� $��&��  "��"��$��&��  "���"���C�������������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��tok  M ��g��$1  p ���  � ���C"����hX������]�$��&��  "��"��$��&��  "���"��� 6�����������g��___stack  T�g��___sp  T�g�� ___goto-table   T�g��___push   T�g�� yypushback   T�g��tok   T�g��$1  + T��  T ���C"*����hP������] �$��&��  "���"���$��&��  "���"��� 6��������g��___stack  O�g��___sp  O�g�� ___goto-table   O�g��___push   O�g�� yypushback   O�g��tok   O��  O ���C"������hX������]�$��&��  "��"��$��&��  "���"��� 6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"������hX������]�$��&��  "��"��$��&��  "���"��� 6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"KP�h��p��]M�$��&��  "���"���$��&��  "���"���� $��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "�� "��   $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"���   ��� 6�������h������g��___stack   �g��___sp   �g�� ___goto-table    �g��___push    �g�� yypushback    �g��tok    �g��tok  M  �g��$6  p  �g��tok  �  �g��tok �  �g��tok !  �g��tok f  �g��$2   �g��tok   ��g��filenamef��language/ecmascript/parse.scm  K Y�   ���C"KP�����h`����]]�$��&��  "���"���$��&��  "���"���� $��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "�� "��   $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "�� "��  $�� &��  "���"���� $��&��  "���"���$��&��  "���"���   ���� 6������������g��___stack  Z�g��___sp  Z�g�� ___goto-table   Z�g��___push   Z�g�� yypushback   Z�g��tok   Z�g��tok  M Z�g��$7  p Z�g��tok  � Z�g��tok � Z�g��tok ! Z�g��$4 D Z�g��tok k Z�g��tok  Z�g��$2   Z�g��tok   Z��g��filenamef��language/ecmascript/parse.scm ? L m�  Z ���C"P��h��K��]=�$��&��  "���"���$��&��  "���"���� $��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"���  �� 6�����C������g��___stack  �g��___sp  �g�� ___goto-table   �g��___push   �g�� yypushback   �g��tok   �g��tok  M �g��$5  p �g��tok  � �g��tok � �g��tok ! �g��tok f �� g��filenamef��language/ecmascript/parse.scm  M M�   ���C"P����h���^��]E�$��&��  "���"���$��&��  "���"���� $��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"���  � 6������V������g��___stack  �g��___sp  �g�� ___goto-table   �g��___push   �g�� yypushback   �g��tok   �g��tok  M �g��$6  p �g��tok  � �g��tok � �g��tok ! �g��tok f �g��tok  �� g��filenamef��language/ecmascript/parse.scm  N X�   ���C"P�h���p��]M�$��&��  "���"���$��&��  "���"���� $��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "�� "��   $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"���   � 6h������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��tok  M ��g��$6  p ��g��tok  � ��g��tok � ��g��tok ! ��g��$3 D ��g��tok k ��g��tok  ���g��filenamef��language/ecmascript/parse.scm  O a�  � ���C"P�������hP����]U�$��&��  "���"���$��&��  "���"���� $��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "�� "��   $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"���� $��&��  "���"���$��&��  "���"���   �� 6�����{������g��___stack  K�g��___sp  K�g�� ___goto-table   K�g��___push   K�g�� yypushback   K�g��tok   K�g��tok  M K�g��$7  p K�g��tok  � K�g��tok � K�g��tok ! K�g��$4 D K�g��tok k K�g��tok  K�g��tok   K��g��filenamef��language/ecmascript/parse.scm : P l�  K ���C"�������hX������]�$��&��  "��"��$��&��  "���"��� �6�������g��___stack  X�g��___sp  X�g�� ___goto-table   X�g��___push   X�g�� yypushback   X�g��tok   X�g��$1  + X��g��filenamef��language/ecmascript/parse.scm T Q '�  X ���C"S���h���$��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  4 �56�������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm � R A�  � ���C"������hX������]�$��&��  "��"��$��&��  "���"��� 6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"TS��������h���a��]%�$��&��  "��"��$��&��  "���"���� $��&��  "��"��$��&��  "���"���  "�� �"��0$��%&��4�5"��""��"� 6���Y������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$2  + ��g��tok  R ��g��$1  u ��� g��filenamef��language/ecmascript/parse.scm � V 9 � T 4 � T = � T 4 � T M � T V � T 8 � U 9 � U C � U 9�  � ���C"�hX������]�$��&��  "��"��$��&��  "���"��� 6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���CU�����h������] � 6�������������g��___stack  �g��___sp  �g�� ___goto-table   �g��___push   �g�� yypushback   ��g��filenamef��language/ecmascript/parse.scm X �   ���C"�������hX������]�$��&��  "��"��$��&��  "���"��� 6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"������hX������]�$��&��  "��"��$��&��  "���"��� 6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"������hX������]�$��&��  "��"��$��&��  "���"��� 6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"������hX������]�$��&��  "��"��$��&��  "���"��� 6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"������hX������]�$��&��  "��"��$��&��  "���"��� 6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"������hX������]�$��&��  "��"��$��&��  "���"��� 6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"������hX������]�$��&��  "��"��$��&��  "���"��� 6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"������hX������]�$��&��  "��"��$��&��  "���"��� 6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"������hX������]�$��&��  "��"��$��&��  "���"��� 6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"������hX������]�$��&��  "��"��$��&��  "���"��� 6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"������hX������]�$��&��  "��"��$��&��  "���"��� 6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"������hX������]�$��&��  "��"��$��&��  "���"��� 6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"������hX������]�$��&��  "��"��$��&��  "���"��� 6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"������hX������]�$��&��  "��"��$��&��  "���"��� 6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"V���h�����]%�$��&��  "���"���$��&��  "���"���� $��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���  �6��� ������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��tok  M ��g��$2  p ��g��tok  � ��� g��filenamef��language/ecmascript/parse.scm � i *�  � ���C"��������hX������]�$��&��  "��"��$��&��  "���"��� 6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"TS��������h���a��]%�$��&��  "��"��$��&��  "���"���� $��&��  "��"��$��&��  "���"���  "�� �"��0$��%&��4�5"��""��"� 6���Y������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$2  + ��g��tok  R ��g��$1  u ��� g��filenamef��language/ecmascript/parse.scm � m 3 � k . � k 7 � k . � k G � k P � k 2 � l 3 � l = � l 3�  � ���C"K�������h������]�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���  � 6�����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$2  + ��g��tok  R ���g��filenamef��language/ecmascript/parse.scm � o 6�  � ���C"���hX������]�$��&��  "��"��$��&��  "���"��� �6�������g��___stack  X�g��___sp  X�g�� ___goto-table   X�g��___push   X�g�� yypushback   X�g��tok   X�g��$1  + X��g��filenamef��language/ecmascript/parse.scm T p 4�  X ���C"S���h���$��]-�$��&��  "���"���$��&��  "���"���� $��&��  "��"��$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  4 �56�������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��tok  M ��g��$2  p ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm � q R�  � ���C"������hX������]�$��&��  "��"��$��&��  "���"��� �6�������g��___stack  X�g��___sp  X�g�� ___goto-table   X�g��___push   X�g�� yypushback   X�g��tok   X�g��$1  + X��g��filenamef��language/ecmascript/parse.scm T r <�  X ���C"S���h���$��]-�$��&��  "���"���$��&��  "���"���� $��&��  "��"��$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  4 �56�������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��tok  M ��g��$2  p ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm � s ^�  � ���C"������hX������]�$��&��  "��"��$��&��  "���"��� �6�������g��___stack  X�g��___sp  X�g�� ___goto-table   X�g��___push   X�g�� yypushback   X�g��tok   X�g��$1  + X��g��filenamef��language/ecmascript/parse.scm T t '�  X ���C"������h�����]%�$��&��  "��"��$��&��  "���"���� $��&��  "��"��$��&��  "���"���  �� 6�����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$2  + ��g��tok  R ��g��$1  u ��� g��filenamef��language/ecmascript/parse.scm � u 3�  � ���C"��hX������]�$��&��  "��"��$��&��  "���"��� �6�������g��___stack  X�g��___sp  X�g�� ___goto-table   X�g��___push   X�g�� yypushback   X�g��tok   X�g��$1  + X��g��filenamef��language/ecmascript/parse.scm T v +�  X ���C"������h�����]%�$��&��  "��"��$��&��  "���"���� $��&��  "��"��$��&��  "���"���  �� 6�����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$2  + ��g��tok  R ��g��$1  u ��� g��filenamef��language/ecmascript/parse.scm � w 7�  � ���C"��h������]�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���  � 6��������������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$2  + ��g��tok  R ���  � ���C"����h������]�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���  � 6��������������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$2  + ��g��tok  R ���  � ���C"U�hP������] �$��&��  "���"���$��&��  "���"��� 6�������g��___stack  P�g��___sp  P�g�� ___goto-table   P�g��___push   P�g�� yypushback   P�g��tok   P��g��filenamef��language/ecmascript/parse.scm L { !�  P ���C"������h������]�$��&��  "���"���$��&��  "���"���� $��&��  "��"��$��&��  "���"���  � 6��������������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��tok  M ��g��$1  p ���  � ���C"_��h����]U�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "�� "��   $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"���� $��&��  "���"���$��&��  "���"���    � 6�z������g��___stack  �g��___sp  �g�� ___goto-table   �g��___push   �g�� yypushback   �g��tok   �g��$7  + �g��tok  R �g��tok  � �g��$5 � �g��tok � �g��tok & �g��$3 I �g��tok p �g��tok   ��g��filenamef��language/ecmascript/parse.scm   I�   ���C"_������hx��K��]=�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"���   �6��C������g��___stack  v�g��___sp  v�g�� ___goto-table   v�g��___push   v�g�� yypushback   v�g��tok   v�g��$5  + v�g��tok  R v�g��tok  � v�g��$3 � v�g��tok � v�g��tok & v�� g��filenamef��language/ecmascript/parse.scm k � :�  v ���C"f�����h���r��]M�$��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"��$��&��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "�� "��   $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"���   � 6j������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��tok  M ��g��tok  � ��g��$5  � ��g��tok � ��g��tok ! ��g��tok f ��g��$2  ��g��tok  ���g��filenamef��language/ecmascript/parse.scm  � Q�  � ���C"U������hx��K��]=�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"���   �6��C������g��___stack  v�g��___sp  v�g�� ___goto-table   v�g��___push   v�g�� yypushback   v�g��tok   v�g��$5  + v�g��tok  R v�g��tok  � v�g��$3 � v�g��tok � v�g��tok & v�� g��filenamef��language/ecmascript/parse.scm k � D�  v ���C"Q�����h��L��]=�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"���  �� 6���D������g��___stack  �g��___sp  �g�� ___goto-table   �g��___push   �g�� yypushback   �g��tok   �g��$6  + �g��tok  R �g��tok  � �g��tok � �g��tok ! �g��tok f �� g��filenamef��language/ecmascript/parse.scm  � K�   ���C"Q����h��q��]M�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"���   � 6������i������g��___stack  �g��___sp  �g�� ___goto-table   �g��___push   �g�� yypushback   �g��tok   �g��$7  + �g��tok  R �g��tok  � �g��$5 � �g��tok � �g��tok & �g��tok k �g��tok  ��g��filenamef��language/ecmascript/parse.scm  � V�   ���C"Q�������h��q��]M�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"����   $�� &��  "�� "��   $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"���   � 6������i������g��___stack  �g��___sp  �g�� ___goto-table   �g��___push   �g�� yypushback   �g��tok   �g��$7  + �g��tok  R �g��tok  � �g��tok � �g��$4 � �g��tok & �g��tok k �g��tok  ��g��filenamef��language/ecmascript/parse.scm  � V�   ���C"Q�������hX����]]�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "�� "��   $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"���    �� 6�����������g��___stack  S�g��___sp  S�g�� ___goto-table   S�g��___push   S�g�� yypushback   S�g��tok   S�g��$8  + S�g��tok  R S�g��tok  � S�g��$6 � S�g��tok � S�g��tok & S�g��$4 I S�g��tok p S�g��tok   S�g��tok   S��g��filenamef��language/ecmascript/parse.scm ? � a�  S ���C"Q��h��q��]M�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "�� "��   $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"���   � 6������i������g��___stack  �g��___sp  �g�� ___goto-table   �g��___push   �g�� yypushback   �g��tok   �g��$7  + �g��tok  R �g��tok  � �g��tok � �g��tok ! �g��$3 D �g��tok k �g��tok  ��g��filenamef��language/ecmascript/parse.scm  � Z�   ���C"Q�������hX����]]�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "�� "��   $�� &��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"���    �� 6�����������g��___stack  S�g��___sp  S�g�� ___goto-table   S�g��___push   S�g�� yypushback   S�g��tok   S�g��$8  + S�g��tok  R S�g��tok  � S�g��$6 � S�g��tok � S�g��tok & S�g��tok k S�g��$3  S�g��tok   S�g��tok   S��g��filenamef��language/ecmascript/parse.scm ? � e�  S ���C"Q��hX����]]�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"����   $�� &��  "�� "��   $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "�� "��   $�� &��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"���    �� 6�����������g��___stack  S�g��___sp  S�g�� ___goto-table   S�g��___push   S�g�� yypushback   S�g��tok   S�g��$8  + S�g��tok  R S�g��tok  � S�g��tok � S�g��$5 � S�g��tok & S�g��tok k S�g��$3  S�g��tok   S�g��tok   S��g��filenamef��language/ecmascript/parse.scm ? � e�  S ���C"Q��h����]m�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "�� "��   $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"���� $��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"���   � 6������g��___stack  �g��___sp  �g�� ___goto-table   �g��___push   �g�� yypushback   �g��tok   �g��$9  + �g��tok  R �g��tok  � �g��$7 � �g��tok � �g��tok & �g��$5 I �g��tok p �g��tok   �g��$3   �g��tok   �g��tok  D ��g��filenamef��language/ecmascript/parse.scm  � p�   ���C"QK���hP����]U�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "�� "��   $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"���� $��&��  "���"���$��&��  "���"���   �� 6|������g��___stack  P�g��___sp  P�g�� ___goto-table   P�g��___push   P�g�� yypushback   P�g��tok   P�g��$8  + P�g��tok  R P�g��tok  � P�g��tok � P�g��tok ! P�g��$4 D P�g��tok k P�g��tok  P�g��tok   P��g��filenamef��language/ecmascript/parse.scm : � k�  P ���C"QK��h����]e�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "�� "��   $�� &��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"���   � 6���������g��___stack  �g��___sp  �g�� ___goto-table   �g��___push   �g�� yypushback   �g��tok   �g��$9  + �g��tok  R �g��tok  � �g��$7 � �g��tok � �g��tok & �g��tok k �g��$4  �g��tok   �g��tok   �g��tok  ? ��g��filenamef��language/ecmascript/parse.scm  � v�   ���C"QK�����h����]e�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"����   $�� &��  "�� "��   $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "�� "��   $�� &��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"���   � 6���������g��___stack  �g��___sp  �g�� ___goto-table   �g��___push   �g�� yypushback   �g��tok   �g��$9  + �g��tok  R �g��tok  � �g��tok � �g��$6 � �g��tok & �g��tok k �g��$4  �g��tok   �g��tok   �g��tok  ? ��g��filenamef��language/ecmascript/parse.scm  � v�   ���C"QK�����h����]u�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "�� "��   $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"���� $��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"���   �� 6��������g��___stack  �g��___sp  �g�� ___goto-table   �g��___push   �g�� yypushback   �g��tok   �g��$10  + �g��tok  R �g��tok  � �g��$8 � �g��tok � �g��tok & �g��$6 I �g��tok p �g��tok   �g��$4   �g��tok   �g��tok  D �g��tok   ��g��filenamef��language/ecmascript/parse.scm  � ��   ���C"W�������h����]U�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "�� "��   $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"���� $��&��  "���"���$��&��  "���"���    � 6�{������g��___stack  �g��___sp  �g�� ___goto-table   �g��___push   �g�� yypushback   �g��tok   �g��$7  + �g��tok  R �g��tok  � �g��$5 � �g��tok � �g��tok & �g��$3 I �g��tok p �g��tok   ��g��filenamef��language/ecmascript/parse.scm  � \�   ���C"TKWX����hh����]]�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "�� "��   $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"���   �  ��� 6�������������g��___stack  a�g��___sp  a�g�� ___goto-table   a�g��___push   a�g�� yypushback   a�g��tok   a�g��$8  + a�g��tok  R a�g��tok  � a�g��$6 � a�g��tok � a�g��tok & a�g��$4 I a�g��tok p a�g��tok   a�g��tok   a��g��filenamef��language/ecmascript/parse.scm ? � a�  a ���C"W��h�����]%�$��&��  "���"���$��&��  "���"���� $��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���  �6��� ������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��tok  M ��g��$2  p ��g��tok  � ��� g��filenamef��language/ecmascript/parse.scm � � 8�  � ���C"Y����h������]�$��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"���  � 6�����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��tok  M ���g��filenamef��language/ecmascript/parse.scm � � -�  � ���C"G�h�����]%�$��&��  "���"���$��&��  "���"���� $��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���  �6��� ������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��tok  M ��g��$2  p ��g��tok  � ��� g��filenamef��language/ecmascript/parse.scm � � 2�  � ���C"Z����h������]�$��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"���  � 6�����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��tok  M ���g��filenamef��language/ecmascript/parse.scm � � '�  � ���C"M�h�����]%�$��&��  "���"���$��&��  "���"���� $��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���  �6��� ������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��tok  M ��g��$2  p ��g��tok  � ��� g��filenamef��language/ecmascript/parse.scm � � 4�  � ���C"[����h������]�$��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"���  � 6�����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��tok  M ���g��filenamef��language/ecmascript/parse.scm � � )�  � ���C"]�hx��K��]=�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"���   �6��C������g��___stack  v�g��___sp  v�g�� ___goto-table   v�g��___push   v�g�� yypushback   v�g��tok   v�g��$5  + v�g��tok  R v�g��tok  � v�g��$3 � v�g��tok � v�g��tok & v�� g��filenamef��language/ecmascript/parse.scm k � >�  v ���C"S�����hx��K��]=�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"���   6���C������g��___stack  u�g��___sp  u�g�� ___goto-table   u�g��___push   u�g�� yypushback   u�g��tok   u�g��$5  + u�g��tok  R u�g��tok  � u�g��$3 � u�g��tok � u�g��tok & u�� g��filenamef��language/ecmascript/parse.scm k � B�  u ���C"�������h������]�$��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"���  � 6������������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��tok  M ���g��filenamef��language/ecmascript/parse.scm � � �  � ���C"���h������]%�$��&��  "���"���$��&��  "���"���� $��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���  6�������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��tok  M ��g��$2  p ��g��tok  � ���   � ���C"S������h8��8��]5�$��&��  "���"���$��&��  "���"���� $��&��  "��"��$��&��  "���"���� $��&��  "��"�� $��&��  "���"����   $�� &��  "���"��� $�� &��  "���"���  4 5� 6�0������g��___stack  7�g��___sp  7�g�� ___goto-table   7�g��___push   7�g�� yypushback   7�g��tok   7�g��tok  M 7�g��$3  p 7�g��tok  � 7�g��$2 � 7�g��tok � 7�� g��filenamef��language/ecmascript/parse.scm % � :�  7 ���C"��h�����]%�$��&��  "���"���$��&��  "���"���� $��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���  �6����� ������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��tok  M ��g��$2  p ��g��tok  � ��� g��filenamef��language/ecmascript/parse.scm � � .�  � ���C"S����h8��8��]5�$��&��  "���"���$��&��  "���"���� $��&��  "��"��$��&��  "���"���� $��&��  "��"�� $��&��  "���"����   $�� &��  "���"��� $�� &��  "���"���  4 5� 6�0������g��___stack  7�g��___sp  7�g�� ___goto-table   7�g��___push   7�g�� yypushback   7�g��tok   7�g��tok  M 7�g��$3  p 7�g��tok  � 7�g��$2 � 7�g��tok � 7�� g��filenamef��language/ecmascript/parse.scm % � :�  7 ���C"��hX������]�$��&��  "��"��$��&��  "���"��� �6�������g��___stack  X�g��___sp  X�g�� ___goto-table   X�g��___push   X�g�� yypushback   X�g��tok   X�g��$1  + X��g��filenamef��language/ecmascript/parse.scm T � �  X ���C"S��h�����]%�$��&��  "��"��$��&��  "���"���� $��&��  "��"��$��&��  "���"���  4�5� 6 ������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$2  + ��g��tok  R ��g��$1  u ��� g��filenamef��language/ecmascript/parse.scm � � +�  � ���C"������h�����]%�$��&��  "���"���$��&��  "���"���� $��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���  �6��� ������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��tok  M ��g��$2  p ��g��tok  � ��� g��filenamef��language/ecmascript/parse.scm � � )�  � ���C"����h8��8��]5�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"����   $�� &��  "���"��� $�� &��  "���"���   �� 6�0������g��___stack  7�g��___sp  7�g�� ___goto-table   7�g��___push   7�g�� yypushback   7�g��tok   7�g��$4  + 7�g��tok  R 7�g��tok  � 7�g��$2 � 7�g��tok � 7�� g��filenamef��language/ecmascript/parse.scm & � 7�  7 ���C"\�������h������]�$��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"���  � 6�����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��tok  M ���g��filenamef��language/ecmascript/parse.scm � � $�  � ���C"��������h�����]%�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"���  �6��� ������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��� g��filenamef��language/ecmascript/parse.scm � � 2�  � ���C"]����h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���   �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm � � 5�  � ���C"���h�����]%�$��&��  "���"���$��&��  "���"���� $��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���  �6��� ������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��tok  M ��g��$2  p ��g��tok  � ��� g��filenamef��language/ecmascript/parse.scm � � 2�  � ���C"d^��h���$��]-�$��&��  "��"��$��&��  "���"���� $��&��  "��"��$��&��  "���"����   $�� &��  "���"��� $�� &��  "���"���  !6��������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��$2  u ��g��tok � ��� g��filenamef��language/ecmascript/parse.scm � � %�  � ���C"d����h���$��]-�$��&��  "��"��$��&��  "���"���� $��&��  "��"��$��&��  "���"����   $�� &��  "���"��� $�� &��  "���"���  !�6���������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��$2  u ��g��tok � ��� g��filenamef��language/ecmascript/parse.scm � � '�  � ���C"d����h@��I��]=�$��&��  "��"��$��&��  "���"���� $��&��  "��"��$��&��  "���"����   $�� &��  "�� "��   $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"���  ! �� 6��A������g��___stack  >�g��___sp  >�g�� ___goto-table   >�g��___push   >�g�� yypushback   >�g��tok   >�g��$4  + >�g��tok  R >�g��$3  u >�g��tok � >�g��$2 � >�g��tok � >�� g��filenamef��language/ecmascript/parse.scm + � -�  > ���C"k������hx��K��]=�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "���"��� $�� &��  "���"���  " �6��C������g��___stack  v�g��___sp  v�g�� ___goto-table   v�g��___push   v�g�� yypushback   v�g��tok   v�g��$5  + v�g��tok  R v�g��tok  � v�g��$3 � v�g��tok � v�g��tok & v�� g��filenamef��language/ecmascript/parse.scm k � 3�  v ���C"i����h������]�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���  #�� 6���������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$2  + ��g��tok  R ���g��filenamef��language/ecmascript/parse.scm � � �  � ���C"[��������hP������] �$��&��  "���"���$��&��  "���"��� $6�������g��___stack  P�g��___sp  P�g�� ___goto-table   P�g��___push   P�g�� yypushback   P�g��tok   P��g��filenamef��language/ecmascript/parse.scm L � �  P ���C"j���hP������] �$��&��  "���"���$��&��  "���"��� $6�������g��___stack  P�g��___sp  P�g�� ___goto-table   P�g��___push   P�g�� yypushback   P�g��tok   P��g��filenamef��language/ecmascript/parse.scm L � �  P ���C"l���hP������] �$��&��  "���"���$��&��  "���"��� $6�������g��___stack  P�g��___sp  P�g�� ___goto-table   P�g��___push   P�g�� yypushback   P�g��tok   P��g��filenamef��language/ecmascript/parse.scm L � �  P ���C"n���hP������] �$��&��  "���"���$��&��  "���"��� $6�������g��___stack  P�g��___sp  P�g�� ___goto-table   P�g��___push   P�g�� yypushback   P�g��tok   P��g��filenamef��language/ecmascript/parse.scm L � �  P ���C"X��h`������]�$��&��  "��"��$��&��  "���"��� $�6�������������g��___stack  Z�g��___sp  Z�g�� ___goto-table   Z�g��___push   Z�g�� yypushback   Z�g��tok   Z�g��$1  + Z��g��filenamef��language/ecmascript/parse.scm Q � %�  Z ���C"_��h`������]�$��&��  "��"��$��&��  "���"��� $�6�������������g��___stack  Z�g��___sp  Z�g�� ___goto-table   Z�g��___push   Z�g�� yypushback   Z�g��tok   Z�g��$1  + Z��g��filenamef��language/ecmascript/parse.scm Q � (�  Z ���C"`��h`������]�$��&��  "��"��$��&��  "���"��� $�6�������������g��___stack  Z�g��___sp  Z�g�� ___goto-table   Z�g��___push   Z�g�� yypushback   Z�g��tok   Z�g��$1  + Z��g��filenamef��language/ecmascript/parse.scm Q � (�  Z ���C"a��h`������]�$��&��  "��"��$��&��  "���"��� $�6�������������g��___stack  Z�g��___sp  Z�g�� ___goto-table   Z�g��___push   Z�g�� yypushback   Z�g��tok   Z�g��$1  + Z��g��filenamef��language/ecmascript/parse.scm Q � )�  Z ���C"abcde������h���F��]�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���  $444555�� 6�>������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$2  + ��g��tok  R ���g��filenamef��language/ecmascript/parse.scm � � - � � 7 � � G � � V � � Z � � G � � 7 � � -�  � ���C"����hX������]�$��&��  "��"��$��&��  "���"��� $6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"������hX������]�$��&��  "��"��$��&��  "���"��� $6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"������h������]%�$��&��  "���"���$��&��  "���"���� $��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���  $6�������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��tok  M ��g��$2  p ��g��tok  � ���   � ���C"g������h������]�$��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"���  %� 6�����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��tok  M ���g��filenamef��language/ecmascript/parse.scm � � '�  � ���C"k��������h�����]�$��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"���  %6������������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��tok  M ��g��tok  � ���g��filenamef��language/ecmascript/parse.scm � � /�  � ���C"f�����h�����]%�$��&��  "���"���$��&��  "���"���� $��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���  %6����� ������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��tok  M ��g��$2  p ��g��tok  � ��� g��filenamef��language/ecmascript/parse.scm � � 3�  � ���C"f����h0��'��]-�$��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"��$��&��  "���"����   $�� &��  "���"��� $�� &��  "���"���  %� 6��������g��___stack  .�g��___sp  .�g�� ___goto-table   .�g��___push   .�g�� yypushback   .�g��tok   .�g��tok  M .�g��tok  � .�g��$2  � .�g��tok � .�� g��filenamef��language/ecmascript/parse.scm ! � 9�  . ���C"f��������hp��:��]5�$��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"����   $�� &��  "���"��� $�� &��  "���"���  % 6���2������g��___stack  m�g��___sp  m�g�� ___goto-table   m�g��___push   m�g�� yypushback   m�g��tok   m�g��tok  M m�g��tok  � m�g��tok  � m�g��$2 � m�g��tok ! m�� g��filenamef��language/ecmascript/parse.scm f � A�  m ���C"��������hX������]�$��&��  "��"��$��&��  "���"��� &�6�������g��___stack  X�g��___sp  X�g�� ___goto-table   X�g��___push   X�g�� yypushback   X�g��tok   X�g��$1  + X��g��filenamef��language/ecmascript/parse.scm T � )�  X ���C"S��h�����]%�$��&��  "��"��$��&��  "���"���� $��&��  "��"��$��&��  "���"���  &4�5� 6 ������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$2  + ��g��tok  R ��g��$1  u ��� g��filenamef��language/ecmascript/parse.scm � � 1�  � ���C"S������h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  &4 �56�������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm � � ;�  � ���C"S��hH��I��]=�$��&��  "��"��$��&��  "���"���� $��&��  "��"��$��&��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "�� "��   $�� &��  "���"���  &4 4�55� 6��A������g��___stack  F�g��___sp  F�g�� ___goto-table   F�g��___push   F�g�� yypushback   F�g��tok   F�g��$4  + F�g��tok  R F�g��$3  u F�g��tok � F�g��tok � F�g��$1  F�� g��filenamef��language/ecmascript/parse.scm * � C�  F ���C"m������hP������] �$��&��  "���"���$��&��  "���"��� '6�������g��___stack  P�g��___sp  P�g�� ___goto-table   P�g��___push   P�g�� yypushback   P�g��tok   P��g��filenamef��language/ecmascript/parse.scm L � �  P ���C"Sm�������h������]�$��&��  "���"���$��&��  "���"���� $��&��  "��"��$��&��  "���"���  '45� 6�������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��tok  M ��g��$1  p ���g��filenamef��language/ecmascript/parse.scm � � �  � ���C"o�������h������]�$��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"���  (� 6�����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��tok  M ���g��filenamef��language/ecmascript/parse.scm � � $�  � ���C"n��������h�����]%�$��&��  "���"���$��&��  "���"���� $��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���  (6����� ������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��tok  M ��g��$2  p ��g��tok  � ��� g��filenamef��language/ecmascript/parse.scm � � =�  � ���C"�������h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  ) ��6���������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm � � I�  � ���C"S��h��]��]E�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "�� "��   $�� &��  "���"���  )4  ��56�����U������g��___stack  �g��___sp  �g�� ___goto-table   �g��___push   �g�� yypushback   �g��tok   �g��$5  + �g��tok  R �g��tok  � �g��$3 � �g��tok � �g��tok & �g��$1 I �� g��filenamef��language/ecmascript/parse.scm o � h�   ���C"�����hX������]�$��&��  "��"��$��&��  "���"��� *6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"p���h`������]�$��&��  "��"��$��&��  "���"��� *456�������������g��___stack  Z�g��___sp  Z�g�� ___goto-table   Z�g��___push   Z�g�� yypushback   Z�g��tok   Z�g��$1  + Z��g��filenamef��language/ecmascript/parse.scm P � #�  Z ���C"�����hX������]�$��&��  "��"��$��&��  "���"��� *6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"������hX������]�$��&��  "��"��$��&��  "���"��� +6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"������hX������]�$��&��  "��"��$��&��  "���"��� +6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"q���h8��8��]5�$��&��  "���"���$��&��  "���"���� $��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"����   $�� &��  "�� "��   $�� &��  "���"���  + �� 6�0������g��___stack  7�g��___sp  7�g�� ___goto-table   7�g��___push   7�g�� yypushback   7�g��tok   7�g��tok  M 7�g��$3  p 7�g��tok  � 7�g��tok � 7�g��$1 � 7�� g��filenamef��language/ecmascript/parse.scm & � G�  7 ���C"r�������h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  + �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm � � 9�  � ���C"I���h���$��]-�$��&��  "��"��$��&��  "���"���� $��&��  "��"��$��&��  "���"����   $�� &��  "���"��� $�� &��  "���"���  +�6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��$2  u ��g��tok � ��� g��filenamef��language/ecmascript/parse.scm � � 8�  � ���C"������hX������]�$��&��  "��"��$��&��  "���"��� ,6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"Is�h������]�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���  ,� 6��������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$2  + ��g��tok  R ���g��filenamef��language/ecmascript/parse.scm � � (�  � ���C"t�������h�����]%�$��&��  "��"��$��&��  "���"���� $��&��  "��"��$��&��  "���"���  -�� 6��� ������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$2  + ��g��tok  R ��g��$1  u ��� g��filenamef��language/ecmascript/parse.scm � � 2�  � ���C"t������h�����]%�$��&��  "��"��$��&��  "���"���� $��&��  "��"��$��&��  "���"���  -�� 6��� ������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$2  + ��g��tok  R ��g��$1  u ��� g��filenamef��language/ecmascript/parse.scm � � 0�  � ���C"q������h8��8��]5�$��&��  "���"���$��&��  "���"���� $��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"����   $�� &��  "�� "��   $�� &��  "���"���  - �� 6�0������g��___stack  7�g��___sp  7�g�� ___goto-table   7�g��___push   7�g�� yypushback   7�g��tok   7�g��tok  M 7�g��$3  p 7�g��tok  � 7�g��tok � 7�g��$1 � 7�� g��filenamef��language/ecmascript/parse.scm & � C�  7 ���C"r�������h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  - �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm � � 5�  � ���C"�����h������]�$��&��  "���"���$��&��  "���"���� $��&��  "���"���$��&��  "���"���  .� 6������������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��tok  M ���g��filenamef��language/ecmascript/parse.scm � � �  � ���C"���h������]%�$��&��  "���"���$��&��  "���"���� $��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���  .6�������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��tok  M ��g��$2  p ��g��tok  � ���   � ���C"�hX������]�$��&��  "��"��$��&��  "���"��� /�6�������g��___stack  X�g��___sp  X�g�� ___goto-table   X�g��___push   X�g�� yypushback   X�g��tok   X�g��$1  + X��g��filenamef��language/ecmascript/parse.scm T � *�  X ���C"S��h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  /4 �56�������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm � � =�  � ���C"�����hX������]�$��&��  "��"��$��&��  "���"��� 06����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"������hX������]�$��&��  "��"��$��&��  "���"��� 06����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"������hX������]�$��&��  "��"��$��&��  "���"��� 16����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"u���h������]�$��&��  "���"���$��&��  "���"���� $��&��  "��"��$��&��  "���"���  1�� 6���������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��tok  M ��g��$1  p ���g��filenamef��language/ecmascript/parse.scm � � 4�  � ���C"v�������h������]�$��&��  "���"���$��&��  "���"���� $��&��  "��"��$��&��  "���"���  1�� 6���������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��tok  M ��g��$1  p ���g��filenamef��language/ecmascript/parse.scm � � 4�  � ���C"��hX������]�$��&��  "��"��$��&��  "���"��� 26����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"b����h������]�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���  2�� 6���������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$2  + ��g��tok  R ���g��filenamef��language/ecmascript/parse.scm � � /�  � ���C"O��������h������]�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���  2�� 6���������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$2  + ��g��tok  R ���g��filenamef��language/ecmascript/parse.scm � � -�  � ���C"h��������h������]�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���  2�� 6���������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$2  + ��g��tok  R ���g��filenamef��language/ecmascript/parse.scm � � /�  � ���C"w�������h������]�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���  2�� 6���������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$2  + ��g��tok  R ���g��filenamef��language/ecmascript/parse.scm � � +�  � ���C"x�������h������]�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���  2�� 6���������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$2  + ��g��tok  R ���g��filenamef��language/ecmascript/parse.scm � � +�  � ���C";��������h������]�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���  2�� 6���������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$2  + ��g��tok  R ���g��filenamef��language/ecmascript/parse.scm � � *�  � ���C"=��������h������]�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���  2�� 6���������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$2  + ��g��tok  R ���g��filenamef��language/ecmascript/parse.scm � � *�  � ���C"E��������h������]�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���  2�� 6���������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$2  + ��g��tok  R ���g��filenamef��language/ecmascript/parse.scm �  *�  � ���C"C��������h������]�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���  2�� 6���������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$2  + ��g��tok  R ���g��filenamef��language/ecmascript/parse.scm �  *�  � ���C"��hX������]�$��&��  "��"��$��&��  "���"��� 36����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"����h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  3 �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm �  L�  � ���C"��h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  3 �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm �  L�  � ���C"���h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  3 �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm �  L�  � ���C"�����hX������]�$��&��  "��"��$��&��  "���"��� 46����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C";����h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  4 �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm �  I�  � ���C"=���h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  4 �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm �  I�  � ���C"�����hX������]�$��&��  "��"��$��&��  "���"��� 56����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"����h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  5 �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm �  D�  � ���C"���h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  5 �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm �  D�  � ���C"���h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  5 �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm �  E�  � ���C"�����hX������]�$��&��  "��"��$��&��  "���"��� 66����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"����h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  6 �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm �  D�  � ���C"���h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  6 �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm �  D�  � ���C"���h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  6 �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm �  E�  � ���C"���h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  6 �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm �  E�  � ���C"���h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  6 �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm �  M�  � ���C"���h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  6 �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm �  E�  � ���C"�����hX������]�$��&��  "��"��$��&��  "���"��� 76����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"����h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  7 �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm �  L�  � ���C"���h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  7 �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm �  L�  � ���C"���h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  7 �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm �  M�  � ���C"���h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  7 �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm �  M�  � ���C"���h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  7 �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm �  U�  � ���C"�����hX������]�$��&��  "��"��$��&��  "���"��� 86����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"����h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  8 �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm � " F�  � ���C"���h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  8 �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm � # F�  � ���C"���h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  8 �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm � $ G�  � ���C"���h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  8 �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm � % G�  � ���C"�����hX������]�$��&��  "��"��$��&��  "���"��� 96����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"����h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  9 �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm � ( R�  � ���C"���h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  9 �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm � ) R�  � ���C"���h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  9 �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm � * S�  � ���C"���h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  9 �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm � + S�  � ���C"�����hX������]�$��&��  "��"��$��&��  "���"��� :6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"����h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  : �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm � . G�  � ���C"�����hX������]�$��&��  "��"��$��&��  "���"��� ;6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"����h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  ; �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm � 0 S�  � ���C"�����hX������]�$��&��  "��"��$��&��  "���"��� <6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"����h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  < �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm � 3 I�  � ���C"�����hX������]�$��&��  "��"��$��&��  "���"��� =6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"����h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  = �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm � 5 U�  � ���C"�����hX������]�$��&��  "��"��$��&��  "���"��� >6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"����h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  > �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm � 8 I�  � ���C"�����hX������]�$��&��  "��"��$��&��  "���"��� ?6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"����h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  ? �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm � : U�  � ���C"�����hX������]�$��&��  "��"��$��&��  "���"��� @6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"y���h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  @ �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm � = I�  � ���C"�����hX������]�$��&��  "��"��$��&��  "���"��� A6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"y���h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  A �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm � ? U�  � ���C"�����hX������]�$��&��  "��"��$��&��  "���"��� B6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"����h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  B �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm � B H�  � ���C"�����hX������]�$��&��  "��"��$��&��  "���"��� C6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"����h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  C �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm � D T�  � ���C"�����hX������]�$��&��  "��"��$��&��  "���"��� D6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"_����h��]��]E�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "�� "��   $�� &��  "���"���  D  �6���U������g��___stack  }�g��___sp  }�g�� ___goto-table   }�g��___push   }�g�� yypushback   }�g��tok   }�g��$5  + }�g��tok  R }�g��tok  � }�g��$3 � }�g��tok � }�g��tok & }�g��$1 I }�� g��filenamef��language/ecmascript/parse.scm p G d�  } ���C"�����hX������]�$��&��  "��"��$��&��  "���"��� E6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"_����h��]��]E�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"����   $�� &��  "���"��� $�� &��  "���"����   $�� &��  "�� "��   $�� &��  "���"���  E  �6���U������g��___stack  }�g��___sp  }�g�� ___goto-table   }�g��___push   }�g�� yypushback   }�g��tok   }�g��$5  + }�g��tok  R }�g��tok  � }�g��$3 � }�g��tok � }�g��tok & }�g��$1 I }�� g��filenamef��language/ecmascript/parse.scm p I t�  } ���C"�����hX������]�$��&��  "��"��$��&��  "���"��� F6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"������h���6��]5�$��&��  "��"��$��&��  "���"���� $��&��  "��"��$��&��  "���"����   $�� &��  "�� "��   $�� &��  "���"���  F �6�������.������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��$2  u ��g��tok � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm � L \�  � ���C"����hX������]�$��&��  "��"��$��&��  "���"��� G6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"������h���6��]5�$��&��  "��"��$��&��  "���"���� $��&��  "��"��$��&��  "���"����   $�� &��  "�� "��   $�� &��  "���"���  G �6�������.������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��$2  u ��g��tok � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm � N d�  � ���C" �hP������] �$��&��  "���"���$��&��  "���"��� H6�������g��___stack  P�g��___sp  P�g�� ___goto-table   P�g��___push   P�g�� yypushback   P�g��tok   P��g��filenamef��language/ecmascript/parse.scm L O �  P ���C"��hP������] �$��&��  "���"���$��&��  "���"��� H6�������g��___stack  P�g��___sp  P�g�� ___goto-table   P�g��___push   P�g�� yypushback   P�g��tok   P��g��filenamef��language/ecmascript/parse.scm L P �  P ���C"!��hP������] �$��&��  "���"���$��&��  "���"��� H6�������g��___stack  P�g��___sp  P�g�� ___goto-table   P�g��___push   P�g�� yypushback   P�g��tok   P��g��filenamef��language/ecmascript/parse.scm L Q �  P ���C"��hP������] �$��&��  "���"���$��&��  "���"��� H6�������g��___stack  P�g��___sp  P�g�� ___goto-table   P�g��___push   P�g�� yypushback   P�g��tok   P��g��filenamef��language/ecmascript/parse.scm L R �  P ���C" ��hP������] �$��&��  "���"���$��&��  "���"��� H6�������g��___stack  P�g��___sp  P�g�� ___goto-table   P�g��___push   P�g�� yypushback   P�g��tok   P��g��filenamef��language/ecmascript/parse.scm L S �  P ���C"��hP������] �$��&��  "���"���$��&��  "���"��� H6�������g��___stack  P�g��___sp  P�g�� ___goto-table   P�g��___push   P�g�� yypushback   P�g��tok   P��g��filenamef��language/ecmascript/parse.scm L T �  P ���C"��hP������] �$��&��  "���"���$��&��  "���"��� H6�������g��___stack  P�g��___sp  P�g�� ___goto-table   P�g��___push   P�g�� yypushback   P�g��tok   P��g��filenamef��language/ecmascript/parse.scm L U �  P ���C"��hP������] �$��&��  "���"���$��&��  "���"��� H6�������g��___stack  P�g��___sp  P�g�� ___goto-table   P�g��___push   P�g�� yypushback   P�g��tok   P��g��filenamef��language/ecmascript/parse.scm L V �  P ���C"��hP������] �$��&��  "���"���$��&��  "���"��� H6�������g��___stack  P�g��___sp  P�g�� ___goto-table   P�g��___push   P�g�� yypushback   P�g��tok   P��g��filenamef��language/ecmascript/parse.scm L W �  P ���C"��hP������] �$��&��  "���"���$��&��  "���"��� H6�������g��___stack  P�g��___sp  P�g�� ___goto-table   P�g��___push   P�g�� yypushback   P�g��tok   P��g��filenamef��language/ecmascript/parse.scm L X �  P ���C"��hP������] �$��&��  "���"���$��&��  "���"��� H6�������g��___stack  P�g��___sp  P�g�� ___goto-table   P�g��___push   P�g�� yypushback   P�g��tok   P��g��filenamef��language/ecmascript/parse.scm L Y �  P ���C"��hP������] �$��&��  "���"���$��&��  "���"��� H6�������g��___stack  P�g��___sp  P�g�� ___goto-table   P�g��___push   P�g�� yypushback   P�g��tok   P��g��filenamef��language/ecmascript/parse.scm L Z �  P ���C"�����hX������]�$��&��  "��"��$��&��  "���"��� I6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"T���h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  I �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm � ] 9�  � ���C"�����hX������]�$��&��  "��"��$��&��  "���"��� J6����������g��___stack  U�g��___sp  U�g�� ___goto-table   U�g��___push   U�g�� yypushback   U�g��tok   U�g��$1  + U��  U ���C"T���h���%��]-�$��&��  "��"��$��&��  "���"���� $��&��  "���"���$��&��  "���"���� $��&��  "��"�� $��&��  "���"���  J �6����������g��___stack  ��g��___sp  ��g�� ___goto-table   ��g��___push   ��g�� yypushback   ��g��tok   ��g��$3  + ��g��tok  R ��g��tok  � ��g��$1 � ��� g��filenamef��language/ecmascript/parse.scm � _ E�  � ���Cz�������h��q���]�      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvJwxyz{|}~''�      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxy�6����i�������g��filenamef��language/ecmascript/parse.scm .  3 �   ��g��nameg�� make-parser�CRC���������g��m  ,��g��filenamef��language/ecmascript/parse.scm      #  '  ,   ,   ,   + ����� . � ����� ���C6�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/ecmascript/base.go�������������������������������������������������������������������������0000644�����������������00000047304�15253700563�0011740 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0N������]0�4������h}������]� g��guile � g��define-module* � � g��language g�� ecmascript g��base � g��filenameS f��language/ecmascript/base.scm g��importsS g��oop g��goops  � � � g��exportsS g�� *undefined* g��*this* g�� <js-object> g��*object-prototype* g�� js-prototype g��js-props g�� js-prop-attrs g��js-value g��js-constructor g��js-class g��pget g�� prop-keys g�� prop-attrs g��prop-has-attr? !g��pput "g�� has-property? #g��pdel $g��object->string %g��object->number &g��object->value/string 'g��object->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 5g��define-js-method 6g�� new-object 7g��new 8 !"#$%&'()*+,-./01234567�% 9g��set-current-module :9� ;9� <g�� make-unbound =<� ><� ?g�� make-fluid @g��defined? A@� B@� Cg��is-a? DC� EC� Fg�� <generic> GF� HF� Ig��toplevel-define! JI� KI� Lg��ensure-generic ML� NL� Og�� make-class Pg�� prototype Qg��getterS Rg�� init-keywordS Sg�� prototypeS Tg�� init-thunkS Ug��props Vg�� init-formS Wg��make-hash-table XW � Yg�� init-valueS Zg��value [g��valueS \g�� constructor ]g�� constructorS ^g��class _f��Object `g��classS ag��nameS bg��<class> cb� db� eg��memq fg��<object> gf� hf� ig��class-precedence-list ji� ki� lg��class-redefinition ml� nl� og��make po� qo� rg�� add-method! sr� tr� ug��<method> vu� wu� xg�� specializersS yg��formalsS zg��o {z� |g��bodyS }g��hash-map->list ~g��lambda g��k �g��v �� �~� �z� �}� �� �g��make-procedureS �g�� procedureS �g��<string> �g��p �z� �g��string->symbol �� �z� �� �g��<top> �� �� �g��let �g��h �g��hashq-get-handle �� �� �� �g��if �g��cdr �� �g��proto �z� �� �� �� �� �� �� �� �� �g��or �g��attrs �z� �� �� �g��and �g�� hashq-ref �� �� �� �� �g��quote �� �� �� �� �� �g��attr �z� �z� �e� �� �z� �g��ReadOnly �� � z� �g��throw �g��ReferenceError �� �z� �g�� hashq-set! �� �� �� �!z� �� �g�� DontDelete �� � z� �g��begin �!z� �� �� �� �#z� �� �"� �� �� �� �� �g�� with-fluid* �g��make-syntax-transformer �� �� �g��macro �g�� $sc-dispatch �� �� �g��_ �g��any �ጤ �g�� syntax->datum �� �� �g�� datum->syntax �� �� �g��syntax-violation �� �� �f��-source expression failed to match any pattern �g��this �g�� fluid-ref �� �� �� �g��toString �g��format �f�� [object ~A] �g��toLocaleString �g��valueOf �g��hasOwnProperty �g�� isPrototypeOf �g��propertyIsEnumerable �g��DontEnum �g�� procedure? �g�� TypeError �g�� default-value �g��number? �g��nan? �g��string? g�� string-length g��boolean? e��+nan.0 g��string->number g��inf? g��inexact->exact g��round f�� undefined  f��null  f��true  f��false  f��NaN  f��0 f��Infinity g��number->string g��Boolean g��String g��Number g��map g�� slot-set! g��initargs z g��ctor z� � � g��not � � 7� z�  � !oS � "z!� #"� $g��new-o %g��apply &3z%� '$&� ('� )C$� *)$z� +(*� ,#+� -,� .-� /.�C�5������h7����]4    85�4;�>��"��G���4>5�R4?i5�R4B5��$��"�� 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��"���"�b4K4Oi��PQiRST�������h���O���]�C���G�������g��filenamef��language/ecmascript/base.scm * �   ���C�UQiVXTW��h���P���]� 6H�������g��filenamef��language/ecmascript/base.scm  + '�   ���C�QiY�ZQiYR[�\QiYR]�^QiY_R`��a5>��"�G��"�4B5$�4Eid5$�~4eih4ki55$�`4ni4Oi��PQiRST���h���O���]�C���G�������g��filenamef��language/ecmascript/base.scm * �   ���C�UQiVXTW��h���P���]� 6H�������g��filenamef��language/ecmascript/base.scm  + '�   ���C�QiY�ZQiYR[�\QiYR]�^QiY_R`��a5>��"��G��"��" "��""��"4B5��$��"��i�$��!4K4qHa5>��"��G��"���4ti4qwxi�y{|}�h���n���]�C���f�������g��k  �g��v  ��g��filenamef��language/ecmascript/base.scm 2 �   ���C�����h���n���]4�56�f�������g��o  ��g��filenamef��language/ecmascript/base.scm 1  2 #  2 �   ���C5 >��"��G��4B5��$��"��i�$��!4K4qHa5>��"��G��"���4ti4qwxii�y|���h���}���]�456�u�������g��o  �g��p  ��g��filenamef��language/ecmascript/base.scm 4  5  5 �   ���C5 >��"��G��4B5��$��"��i�$��!4K4qHa5>��"��G��"���4ti4qwxi�y|��������h8������]44�55$��C4�5$��6C���������g��o  6�g��p  6�g��h   6�g��proto  # 6��g��filenamef��language/ecmascript/base.scm 7  8  8   8  8   9   :   ;  # ;  + < 3 = �  6 ���C5 >��"��G��4B5��$��"��i�$��!4K4qHa5>��"��G��"���4ti4qwxi�y|��������hP�����] 4�5$��44�55"��$��C4�5$��6C������������g��o  K�g��p  K�g��attrs  '�g��t  ' K�g��proto  9 K��g��filenamef��language/ecmascript/base.scm @  A  A   B   B   B   B  ' A  3 C  9 C  A D  I E J F �  K ���C5 >��"��G��4B 5��$��"�� i�$��!4K 4qHa 5>��"��G��"���4t i4qwxi�y|e�������h������]4�56��������������g��o  �g��p  �g��attr   ��g��filenamef��language/ecmascript/base.scm H  I  I �   ���C5 >��"��G��4B!5��$��"��!i�$��!4K!4qHa!5>��"��G��"���4t!i4qwxi�y| ��h0������]4�5$�� �64�56�������������g��o  *�g��p  *�g��v   *��g��filenamef��language/ecmascript/base.scm K  L  L  L   L   M  M   N  * N �  * ���C5 >��"��G��4B!5��$��"��!i�$��!4K!4qHa!5>��"��G��"���4t!i4qwxii�y|!���h������]�456��������������g��o  �g��p  �g��v   ��g��filenamef��language/ecmascript/base.scm P  Q  Q �   ���C5 >��"��G��4B#5��$��"��#i�$��!4K#4qHa#5>��"��G��"���4t#i4qwxi�y| !���h0������]4�5$��C4�>��"��G��C������������g��o  +�g��p  +��g��filenamef��language/ecmascript/base.scm S  T  T  T   T   W �  + ���C5 >��"��G��4B#5��$��"��#i�$��!4K#4qHa#5>��"��G��"���4t#i4qwxii�y|#��h������]�456��������g��o  �g��p  �g��v   ��g��filenamef��language/ecmascript/base.scm Z  [  [ �   ���C5 >��"��G��4B"5��$��"��"i�$��!4K"4qHa"5>��"��G��"���4t"i4qwxi�y|"���h0������] 44�55$��C4�5$��6C��������g��o  /�g��p  /�g��proto   /��g��filenamef��language/ecmascript/base.scm ]  ^   ^   ^   ^   `   `  % a  - b �  / ���C5 >��"��G���h������]�6�����������g��this  �g��f  ��g��filenamef��language/ecmascript/base.scm e f �  ��g��nameg�� call/this*�C2R43~���h ������-�1�3����C���������g��this �g��f �g��args  ��g��filenamef��language/ecmascript/base.scm h i �   ���C��������h���p���] 4�5L�4?6h�������g��args  �g��v ��g��filenamef��language/ecmascript/base.scm  h �   ���C�h(���n���] 4�5$�� �O�@�6�f�������g��y  '�g��tmp '��g��filenamef��language/ecmascript/base.scm h �  ' ���C53R44~��h ������-�1�3���C�������w�������g��formals �g��body ��g��filenamef��language/ecmascript/base.scm j k �  ���C������h���p���] 4�5L�4?6h�������g��args  �g��v ��g��filenamef��language/ecmascript/base.scm  j �   ���C�h(���n���] 4�5$�� �O�@�6�f�������g��y  '�g��tmp '��g��filenamef��language/ecmascript/base.scm j �  ' ���C54R45!4��h(������-�1�3����C�������������g��object "�g�� name-and-args "�g��body  "��g��filenamef��language/ecmascript/base.scm l m   m   m   m 5  m � "  ���C��h���p���] 4�5L�4?6h�������g��args  �g��v ��g��filenamef��language/ecmascript/base.scm  l �   ���C�h(���n���] 4�5$�� �O�@�6�f�������g��y  '�g��tmp '��g��filenamef��language/ecmascript/base.scm l �  ' ���C55RR4oii5i4!ii���h���s���][�4�56���k�������g��this  ��g��filenamef��language/ecmascript/base.scm s s   s �   ���C>��"��G��4!ii�h���}���-��1��3�456��u�������g��args ��g��filenamef��language/ecmascript/base.scm u   u   u   u �  ���C>��"��G��4!ii�����h������]�[C���������   ���C>��"��G��4!ii�����h ������] [445�5$��CC����������g��p  �g��this  ��g��filenamef��language/ecmascript/base.scm  y  y   y   y �   ���C>��"��G��4!ii�������h���y���] [4�5C������q�������g��v  �g��this  ��g��filenamef��language/ecmascript/base.scm {  { �   ���C>��"��G��4!ii �h(������] [445�5$�� 4�5CC�������g��p  (�g��this  (��g��filenamef��language/ecmascript/base.scm  }  }   }   }   ~ " ~ # $ ~ % ~ �  ( ���C>��"��G�������h������]�L�6����������   ���CC� �h`���U��]4�545$��54�O�5$��45$��   � 6CC$��   � 6�CM������g��o  `�g��error?  `�g��toString  `�g��x  ( M��g��filenamef��language/ecmascript/base.scm �  �  �  �  �   �   �   �  ( �  0 � 1 �  = �  A �  E � " G �  S �  W �  [ � ] � �  ` ��g��nameg��object->string�C$R���h������]�L�6����������   ���CC� �h`���T��]4�545$��54�O�5$��45$��   � 6CC$��   � 6�CL������g��o  `�g��error?  `�g��valueOf  `�g��x  ( M��g��filenamef��language/ecmascript/base.scm �  �  �  �  �   �   �   �  ( �  0 � 1 �  = �  A �  E � " G �  S �  W �  [ � ] � �  ` ��g��nameg��object->number�C%RC%�������h ������]4�5$���6�C��������������g��o  ��g��filenamef��language/ecmascript/base.scm �  �   �   � �   ��g��nameg��object->value/string�C&RC$��������h ������]4�5$���6�C��������������g��o  ��g��filenamef��language/ecmascript/base.scm �  �   �   � �   ��g��nameg��object->value/number�C'R&����h������]�6z�������g��o  ��g��filenamef��language/ecmascript/base.scm �  � �   ��g��nameg�� object->value�C(RC(�h������]4�5$���6�C�������g��x  ��g��filenamef��language/ecmascript/base.scm �  �   �   � �   ��g��nameg�� ->primitive�C)R����h���3��] �$��{�(��"��l�$��"��V4�5$�� � $��"��4�5"��$��"��4�5$�� 4�5 "��"��C��+������g��x  ��g��t  �g��t 5 M�g��t R |��g��filenamef��language/ecmascript/base.scm �  �   �   �   �  ' �  1 � 4 � 5 �  D � * R �  a �  k � l �  t �  � � � � �  � ��g��nameg�� ->boolean�C*RC%�+� �hh�����]4�5$���C4�5$�� �$�� C C�(�� C�&��C4�5$���64�5$�� �6  � 6��������g��x  g��g��filenamef��language/ecmascript/base.scm �  � �   �  �  ! �  + �  7 �  9 � E �  L �  M � W �  ] �  a �  e � " g � �  g ��g��nameg��->number�C+R+��������h@������] 4�545$�� C $��C45$��C456�����������g��x  <�g��n <��g��filenamef��language/ecmascript/base.scm �  � �  �  �   � �  $ � . �  4 � < � �  < ��g��nameg�� ->integer�C,R+�������hx���P��]4�545$��"�� $��"��45$�� C����4455 $�� �������CC�����H������g��x  s�g��n s�g��t   =�g��t  # :�g��m  Y s��g��filenamef��language/ecmascript/base.scm �  � �  �  �  " �  # �  1 �  A �  L �  M � ) P � 9 X � ) Y �  Y �  ^ �  c � n �  o � �  s ��g��nameg��->int32�C-R+����h`�����]4�545$��"�� $��"��45$�� C����4455C������ ������g��x  Z�g��n Z�g��t   =�g��t  # :��g��filenamef��language/ecmascript/base.scm �  � �  �  �  " �  # �  1 �  A �  L �  M � P � 0 X � Y � �  Z ��g��nameg��->uint32�C.R+�������h`�����]4�545$��"�� $��"��45$�� C������4455C������ ������g��x  Z�g��n Z�g��t   =�g��t  # :��g��filenamef��language/ecmascript/base.scm �  � �  �  �  " �  # �  1 �  A �  L �  M � P � 0 X � Y � �  Z ��g��nameg��->uint16�C/R   �  0&�h���U��]�&��C�(��C4�5$�� �$��CC4�5$���C4�5$��-4 �5$�� C� $�� C4 �5$�� C�64�56��M������g��x  ~��g��filenamef��language/ecmascript/base.scm � �  �   �   �   � ! �  ' �  ) �  , � # . � 8 �  < � F �  G �  Q � S �  W �  \ � ^ �  ` �  j � l �  s �  v �  ~ � �  ~ ��g��nameg��->string�C0R1oS[����hx��� ��]�&�� �6�(�� �64�5$��  �64 �5$��  �64 �5$�� �6�C������������g��x  r��g��filenamef��language/ecmascript/base.scm � �   � $  � 1  �   �   �  " � ' $ �  % � / �  = �  > � H �  V �  W � a �  o � �  r ��g��nameg��->object�C1Ro!��h���~���]L���6��v�������g��pair  ��g��filenamef��language/ecmascript/base.scm � �  �   � �   ���C�������h0������-��1��3�454O��>��"��G��C���������g��pairs .�g��o  .��g��filenamef��language/ecmascript/base.scm � �  �   � � . ��g��nameg�� new-object�C6R4ii\6i>��"��G��4B75��$��"��7i�$��!4K74qHa75>��"��G��"���t7i4qwxy|/oS�����h������]�LL�@�������   ���CC7����hp���@��-�1�3�4�5$��L44�5$��"��54 O�54 5$��CC   �6��8������g��o n�g��initargs n�g��ctor   n�g��t  & 9�g��o  ; d�g��new-o  O d��g��filenamef��language/ecmascript/base.scm � �   �   �   �  � # & �  ; �  ; �  > �  O � R �  ^ � h �  j �  n � � n ���C5 6���� ������g��m  ,�g��t F b�g��t � ��g��t � �g��t Q m�g��t  �g��t  �g��t f {�g��t  �g��t  �g��t �g��t �g��t �g��t C X�g��t s �g��t  �g��t  ��g��t 5U 5j��g��filenamef��language/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 ���C6�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������language/ecmascript/function.go���������������������������������������������������������������������0000644�����������������00000012561�15253700563�0012650 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0Y������]��4��������h������]� g��guile � g��define-module* � � g��language g�� ecmascript g��function � g��filenameS f�� language/ecmascript/function.scm g��importsS g��oop g��goops  � � g��base � � � g��exportsS g��*function-prototype* g��*program-wrappers* � g��set-current-module � � g��toplevel-define! � � g��<js-program-wrapper> g�� make-class !g�� <js-object> "g��nameS #g��defined? $#� %#� &g��is-a? '&� (&� )g��<class> *)� +)� ,g��memq -g��<object> .-� /-� 0g��class-precedence-list 10� 20� 3g��class-redefinition 43� 53� 6g��make-doubly-weak-hash-table 7g��make 8g��classS 9f��Function :g��valueS ;g�� *undefined* <g��pput =g��toString >g��*this* ?g��format @f��~A Ag��js-value Bg��apply Cg�� with-fluid* Dg��<js-array-object> Eg�� vector->list Fg��js-array-vector Gg��throw Hg�� TypeError Ig��call Jg��pget K7� L7� Mg�� <generic> NM� OM� Pg�� add-method! QP� RP� Sg��<method> TS� US� Vg�� specializersS Wg�� <applicable> Xg��<top> YX� ZX� [g��formalsS \g��o ]g��p ^\]� _g��bodyS `g��let ag��wrapper bg�� hashq-ref cb\� dac� ed� fg��if gJa]� hJ]� ifagh� j`ei� kj� lg��make-procedureS mg�� procedureS ng��v 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~� �� �g��js-constructor �a� �fa� �`e� ��C�5h ����]4    5�4�>��"��G���"��+44 i!i���"5>��"��xG��"��q4%5$��b4(i+5$��K4,i/42i55$��-45i4 i!i���"5>��"��G��"��"t"��"l"��"d46i 5R47i!i89:;���h���h���-��1��3�C����`�������g��args ��g��filenamef�� language/ecmascript/function.scm  +� ���C5R4<ii=>?@A����h���w���][�4�56���o�������g��this  ��g��filenamef�� language/ecmascript/function.scm " "   " �   ���C>��"��G��4<iiB>;CA����h���T���]�4L�56������L�������g��filenamef�� language/ecmascript/function.scm  & �  ���C&DAEF������h���t���]�4L544L�55@�l�������g��filenamef�� language/ecmascript/function.scm  *  +  + +  +   * �   ���CGHB� ��hX������] [(��"��$���O�645$���O�6  6�������������g��this-arg  R�g��array  R�g��this   R��g��filenamef�� language/ecmascript/function.scm %  %  %   %  * & + ' 7 %  H ( L -  N -  R - �  R ���C>��"��G��4<iiI>CA�����h���\���]�4L5L�@���T�������g��filenamef�� language/ecmascript/function.scm  2  2 �  ���C�h ������-�1�3�[�O�6��������g��this-arg �g��args �g��this  ��g��filenamef�� language/ecmascript/function.scm  0 �  ���C>��"��G��4%J5��$��"��Ji�$��!4J4LO"J5>��"��G��"���4RJi4LUVWiZ�[^_klmbJ�h(������] 4�5$��66������������g��o  #�g��p  #�g��wrapper  #��g��filenamef�� language/ecmascript/function.scm 4  5  5   6   7  # 8 �  # ���C5 >��"��G��4%<5��$��"��<i�$��!4<4LO"<5>��"��G��"���4R<i4LUVWiZZ�[o_zlmb<7:89qu� hX������]4�5$�� 64�  54 �>��"��G��6�������������g��o  R�g��p  R�g��v   R�g��wrapper  R�g��wrapper  0 R��g��filenamef�� language/ecmascript/function.scm :  ;  ;   <   =   >  * > D 0 >  0 >  3 @ R A �  R ���C5 >��"��G��4%{5��$��"��{i�$��!4{4LO"{5>��"��G��"���4R{i4LUVWi�[|_lmb{�h ������] 4�5$��6C������������g��o  �g��wrapper ��g��filenamef�� language/ecmascript/function.scm C  D  D   E   F �   ���C5 >��"��G��4%5��$��"��i�$��!44LO"5>��"��G��"���Ri4LUVWi�[|_lmb������h ������] 4�5$��6C������������g��o  �g��wrapper ��g��filenamef�� language/ecmascript/function.scm I  J  J   K   L �   ���C5 6������������g��m  ,�g��t  2�g��t } �g��t i ~�g��t ��g��filenamef�� language/ecmascript/function.scm   1  �   �  �   �  7 r   u  v ! 5 $  /  4 v : b C I �  ���C6������������������������������������������������������������������������������������������������������������������������������������������������language/ecmascript/tokenize.go���������������������������������������������������������������������0000644�����������������00000054403�15253700563�0012654 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0X������]�4��h������]� g��guile � g��define-module* � � g��language g�� ecmascript g��tokenize � g��filenameS f�� language/ecmascript/tokenize.scm g��importsS g��ice-9 g��rdelim  � � g��srfi g��srfi-1 � g��selectS g�� unfold-right � � g��system g��base g��lalr � � � g��exportsS g�� next-token g��make-tokenizer !g��make-tokenizer/1 "g�� tokenize/1 # !"� $g��set-current-module %$� &$� 'g��throw (g�� syntax-error )g��and=> *g��"source-location->source-properties +g�� port-filename ,g�� port-line -g�� port-column .g��catch /.� 0.� 1g��ftell 2g��source-location 32� 42� 5g��port-source-location 6g�� eof-object? 7g�� peek-char 8f��EOF while reading a token 9g��read-delimited :g��peek ;g�� read-until <g�� char-numeric? =g��memv >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��/ Jg��char=? Kg�� read-line Lf��EOF while in multi-line comment Mg��/= Ng�� read-regexp Og�� read-slash Pg��string Qg��char-alphabetic? Rg�� string-append Sg��reverse Tg�� RegexpLiteral Uf��(regexp literals may not contain newlines Vf��� Wg�� StringLiteral Xf��(octal escape sequences are not supported Yf��bad hex character escape Zg�� integer->char [g��string->number \f��(string literals may not contain newlines ]g�� read-string ^f��break _g��break `^_ af��else bg��else cab df��new eg��new fde gf��var hg��var igh jf��case kg��case ljk mf��finally ng��finally omn pf��return qg��return rpq sf��void tg��void ust vf��catch wv. xf��for yg��for zxy {f��switch |g��switch }{| ~f��while g��while �~ �f��continue �g��continue � �f��function �g��function � �f��this �g��this � �f��with �g��with � �f��default �g��default � �f��if �g��if � �f��throw �' �f��delete �g��delete � �f��in �g��in � �f��try �g��try � �f��do �g��do � �f�� instanceof �g�� instanceof � �f��typeof �g��typeof � �f��null �g��null � �f��true �g��true � �f��false �g��false � �`cfiloruwz}� �g�� *keywords* �f��abstract �g��abstract � �f��enum �g��enum � �f��int �g��int � �f��short �g��short � �f��boolean �g��boolean � �f��export �g��export �Œ �f�� interface �g�� interface �Ō �f��static �g��static �Ȍ �f��byte �g��byte �ˌ �f��extends �g��extends �Ό �f��long �g��long �ь �f��super �g��super �Ԍ �f��char �g��char �׌ �f��final �g��final �ڌ �f��native �g��native �݌ �f�� synchronized �g�� synchronized � �f��class �g��class �㌤ �f��float �g��float �挤 �f��package �g��package �錤 �f��throws �g��throws �쌤 �f��const �g��const � �f��goto �g��goto � �f��private �g��private � �f�� transient �g�� transient � �f��debugger �g��debugger � �f�� implements �g�� implements � �f�� protected g�� protected � f��volatile g��volatile  f��double g��double   f��import  g��import      f��public  g��public     � g��*future-reserved-words* g�� list->string g�� assoc-ref f��&word is reserved for the future, dude. g��string->symbol g�� Identifier g��read-identifier f��error reading exponent: EOF g��+ g��- f��!error reading exponent: non-digit e��1.0 g��expt e��0.0 f��$bad digit reading hexadecimal number f��invalid digit in octal sequence  g�� read-numeric !f��{ "g��lbrace #!" $f��} %g��rbrace &$% 'f��( (g��lparen )'( *f��) +g��rparen ,*+ -f��[ .g��lbracket /-. 0f��] 1g��rbracket 201 3f��. 4g��dot 534 6f��; 7g�� semicolon 867 9f��, :g��comma ;9: <f��< =g��< ><= ?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��| qg��bor rpq sf��^ tg��^ ust vf��! wg��! xvw yf��~ zg��~ {yz |f��&& }g��&& ~|} f��|| g��or  f��? g��?  f��: g��colon  f��= g��=  f��+= g��+=  f��-= g��-=  f��*= g��*=  f��%= g��%=  f��<<= g��<<=  f��>>= g��>>=  f��>>>= g��>>>=  f��&= g��&=  f��|= g��bor=  f��^= g��^=  #&),/258;>ADGJMPSUWZ]`cfilorux{~�. g�� *punctuation* f��/ I f��/= M � g��*div-punctuation* g��assv-ref g�� string-ref g�� string-length g�� substring f��!bad syntax: character not allowed g��read-punctuation g��*eoi* g��NumericLiteral f��unexpected right parenthesis g��srfi-9 � g��throw-bad-struct � � g��lexical-token-source g��lexical-token-category f��unexpected right bracket f��unexpected right brace g��reverse!C�5h:����]4    #5�4&�>��"��G���'()*��������h ������-�1�3��456�������g��what �g��loc �g��form  �g��args  ��g��filenamef�� language/ecmascript/tokenize.scm      �  ��g��nameg�� syntax-error�C(R+,-01��������h���[���]�L�6S�������g��filenamef�� language/ecmascript/tokenize.scm #   # ,�   ���C���h���h���-��1��3�C�����`�������g��args ��g��filenamef�� language/ecmascript/tokenize.scm # � ���C4���h@������]!4�54�54�54�O�5�C����������g��port  =�g��input & =�g��line  & =�g��column  & =�g��offset  & =��g��filenamef�� language/ecmascript/tokenize.scm    !   "   #  & �  = ��g��nameg��port-source-location�C5R67(89:���hH���4��] 4455$�� 64�54455$�� 6C���,������g��delims  E�g��port  E�g��loc   E�g��token  & E��g��filenamef�� language/ecmascript/tokenize.scm '  (   (   (   (   )   )   *  $ * / & *  & *  ) + , +  4 + 8 +  < ,  B , �  E ��g��nameg�� read-until�C;R6<=>?���h@������] 4�5$��C4�5$��C4�5$��C�6����������g��c  =�g��t  =�g��t * =��g��filenamef�� language/ecmascript/tokenize.scm /  0 0   1  1  " 2 * 1  = 3 �  = ��g��nameg�� char-hex?�C@RA���h������]4�5 0C����������g��c  ��g��filenamef�� language/ecmascript/tokenize.scm 5  6  6  6 �  ��g��nameg�� digit->number�CBR<BAC�����h(������]4�5$���6 44�55 aC���������g��c  &��g��filenamef�� language/ecmascript/tokenize.scm 8  9  9   :   ;   ;  ! ;  # ; 1 $ ; % ; �  & ��g��nameg�� hex->number�CDRE76HIJK(LMN� ������h0��%��]4�>��"��G��4�545$�� �C4/5$��4�>��"��G���64*5$��4�>��"��G��"��c45$��   64*5$��54�5/$��4�>��"��G���64�5"4�5"4�5"$��1=$��4�>��"��G�� �C�C �6����������g��port  ,�g��loc  ,�g��div?   ,�g��c1   ,�g��c  } ���g��filenamef�� 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  , [ �+  , ��g��nameg�� read-slash�CORP7JE6Q<RSHT;(UV������hx��%��]B4/\  5"�G4�54/5$��4�>��"��G��"��45$��"��T45  $�� "��;45  $�� "��#4$5  $�� "�� 4_5   $��454 5  �C4�>��"��G��4�5"L4�5"<4\5$��@4�>��"��G��4�54 �544\55" 64 �5"�������������g��port  q�g��loc  q�g��terms   q�g��str   \�g��head   \�g�� terminator   \�g��c  A ��g��flags  A ��g��t  H ��g��t \ ��g��t q ��g��t � ��g��value  � ��g��echar  + R��g��filenamef�� 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 ��g��nameg�� read-regexp�CNREP7JHW6<(XY@ZD[R;\��������hX��5��]J4�54\  5"�(4�545$��4�>��"��G���C4\5$�4�>��"��G��4�5'$��"��"$��"��\$��"�sb$��"�df$�� "�Un$�� "�Fr$�� "�7t$�� "�(v$�� "�0$��<4�545$���"��45$��4  5"���"��x$��s4�54�5"��4  455"��=4 5$��.4 5$��4 45455"��""��""��Xu$��M4�54�54�5 4�5 4 44  5 55  "��4454�55" 64�5"�-������g��port  W�g��loc  W�g��c  W�g��terms   W�g��str   F�g�� terminator  % F�g��c  x �g��next   @�g��a  T �g��b  ] �g��a   �g��b   �g��c   �g��d   �g��echar   <��g��filenamef�� 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 ��g��nameg�� read-string�C]RRR6Q<JSH(E7��h����]*"��45$��"��T45$��"��;45$��"��#4$5$��"�� 4_5$��V445545$��  �C4 5$��   64 5 �C4�>��"��G��4�5"4�5"�������x������g��port  �g��loc  �g��c   ��g��chars   ��g��t  q�g��t  ! m�g��t  6 j�g��t  M g�g��word  � ��g��t  � ��g��value  � ��� g��filenamef�� language/ecmascript/tokenize.scm �  �   � �   �  ! �  0 �  6 �  E �  M �  \ �  n � u �  v �  y � " � �  � �  � �  � � � � � �  � � � �  � �  � � * � �  � � * � �  � �  � �  � � $ � �  � �  � �  � � '  � �%   ��g��nameg��read-identifier�CRJ7E6B<(@D���h��/��]:44�5.5$��0"��4�54�545$��6"�?"�*45$��C45$��.4�>��"��G��4�5 45"4e5$��"�� 4E5$�4�>��"��G��4�545$��45"��f4+5$��4�>��"��G�� "��A4-5$��4�>��"��G�� "��45$�� "�� 4 5"��k45$��"��45$��24�>��"��G��4�54 455" $��  "��4 5C4�5 "4.5$��4�>��"��G��"��d45$��"��45$��:4�>��"��G��4�5454 5""4�5 "C45"405$�Y4x5$��"�� 4X5$��4�>��"��G��4�545$��"��4>��"��G��"��<45$��.4�>��"��G��4�5 45"C "45$��"��45$��C45$��n485$��"�� 495$��4>��"��G��"���4�>��"��G��4�5 45"yC "k"["W������'������g��port  �g��loc  �g��c0  ! �g��c1  * �g��c1  E o�g��acc  E o�g��t  � ��g��c  � O�g��add  O �g��c  U �g��e  U �g��c   W�g��dec   W�g��n   W�g��t   �g��c   >�g��c   3�g��acc   3�g��c  M �g��acc  M �g��t  o ��g��filenamef�� 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   }  &         !                       �   ��g��nameg�� read-numeric�C RRR�������h�����] (���C4�4 55$��D45 $�� "��4L�4 5�5��"4 5���"�����������g��nodes  ��g��puncs  ��g��t   ���g��filenamef�� 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  �  �!  � ��g��nameg��lp�CO���Q��4�i5��E7H(������hp���F��]""��U45$��)4�>��"��G��4�5"$�� �C64�5L�"�>������g��port  o�g��loc  o�g��c   [�g��tree   [�g�� candidate   [�g��t   [��g��filenamef�� language/ecmascript/tokenize.scm              *   3  $ 6  4 @   F   P  U   [  [   \   o  �  o ���C�O��R75EO]6QJ< H�����hP����]"4�54�5 $��"��/ $��"��! $��"�� $��"��$��4�>��"��G���6 $��"�� $��4�>��"��G���6/$�� �6"$��"��'$���645$��C4 5$��"��"4 $5$��"�� 4 _5$�� �64 5$��4 �5�C�6�������g��port  O�g��div?  O�g��c   O�g��loc   O�g��t  � �g��t  � �g��value  9 G��g��filenamef�� language/ecmascript/tokenize.scm           V   o   x   �   �   �   �   �   �   �  �   �  �  �  �  �       %  &  0   1  1 9  ?   F  O  �  O ��g��nameg�� next-token�CRHW����hX�����]4L�M5��$��:�&��,� &��"��&��"��"��"��N�C�����������g��tok T�g��cat ! E��g��filenamef�� language/ecmascript/tokenize.scm                 !  # !   '  ' +   ,   4  ' 8   9   A  ' B   Q  �  T ���C�������h������] H�O�C��������g��port  �g��div?  ��g��filenamef�� language/ecmascript/tokenize.scm    �   ��g��nameg��make-tokenizer�C RH(+(.1"%7W�����hh����]M$��C4LM5��$���&��� "���"���$�� �M�N�"�$��}"��14�&��� "�� 4� 5>��"��KG��"��DM�$��9M�&�� "�� 4 5&�� M�N�"��""��""�F $�� �M�N�"�2 $��}"��14 �&��� "�� 4� 5>��"��KG��"��DM�$��9M�&�� "�� 4 5 &�� M�N�"��""��""��$�� �M�N�"��$��}"��14�&��� "�� 4� 5>��"��KG��"��DM�$��9M�&�� "�� 4 5&�� M�N�"��""��""��$�� M�N"����$��:�&��,� &��"��&��"��"��"��N�C������������g��tok  b�g��key 6 �g��s  � ��g��s  . M�g��s   �g��cat / S��g��filenamef�� 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 ���C�������h ������]HHH�O�C��������������g��port  �g��div?  �g��eoi?   �g��stack   ��g��filenamef�� language/ecmascript/tokenize.scm       �   ��g��nameg��make-tokenizer/1�C!R ������h8���#��]4�5"�� 45�&��6""��������g��port  6�g��next 6�g��out   /�g��tok   /��g��filenamef�� language/ecmascript/tokenize.scm                      $  )   /  /   0   6  �  6 ��g��nameg��tokenize�CR!������h8���%��]4�5"�� 45�&��6""��������g��port  6�g��next 6�g��out   /�g��tok   /��g��filenamef�� language/ecmascript/tokenize.scm                      $  )   /  /   0   6  �  6 ��g��nameg�� tokenize/1�C"RC������������g��m  ,�g��lp ( (�g�� punc-tree ( *��g��filenamef�� language/ecmascript/tokenize.scm   9    ' ' O /  5  8 = ` ] ( z * �  - � 0 �  4 �  � &S  &V J  &Z I &] z  &a y (   (  # (   (   * ~ .S  0  7  9^  :  �  : ���C6��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������statprof.go�����������������������������������������������������������������������������������������0000644�����������������00000070760�15253700563�0006755 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0q������]��4�������h_������]� g��guile � g��define-module* � � g��statprof � g��filenameS f�� statprof.scm g��importsS g��srfi g��srfi-1   �  � g��system g��vm � � g��frame � � g��program � � � g��exportsS g��statprof-active? g��statprof-start g�� statprof-stop g��statprof-reset g��statprof-accumulated-time g��statprof-sample-count !g��statprof-fold-call-data "g��statprof-proc-call-data #g��statprof-call-data-name $g��statprof-call-data-calls %g��statprof-call-data-cum-samples &g��statprof-call-data-self-samples 'g��statprof-call-data->stats (g��statprof-stats-proc-name )g��statprof-stats-%-time-in-proc *g��statprof-stats-cum-secs-in-proc +g�� statprof-stats-self-secs-in-proc ,g��statprof-stats-calls -g��!statprof-stats-self-secs-per-call .g�� statprof-stats-cum-secs-per-call /g��statprof-display 0g��statprof-display-anomolies 1g��statprof-fetch-stacks 2g��statprof-fetch-call-tree 3g�� with-statprof 4g��gcprof 5 !"#$%&'()*+,-./01234� 6g�� autoloadsS 7g��ice-9 8g��format 978� :8� ;9:� <g��set-current-module =<� ><� ?g��accumulated-time @g��last-start-time Ag�� sample-count Bg��sampling-frequency Cg��remaining-prof-time Dg�� profile-level Eg�� %count-calls? Fg�� gc-time-taken Gg��record-full-stacks? Hg��stacks Ig��procedure-data Jg��make-call-data Kg��call-data-proc Lg��procedure-name Mg��call-data-name Ng��with-output-to-string Og��write Pg��call-data-printable Qg��call-data-call-count Rg��call-data-cum-sample-count Sg��call-data-self-sample-count Tg��inc-call-data-call-count! Ug��inc-call-data-cum-sample-count! Vg�� inc-call-data-self-sample-count! Wg��make-syntax-transformer XW� YW� Zg��accumulate-time [g��macro \g�� $sc-dispatch ]\� ^\� _g��_ `g��any a_` bg�� syntax->datum cb� db� eg�� datum->syntax fe� ge� hg��set! ig��+ je��0.0 kg��- l@� mg��syntax-violation nm� om� pf��-source expression failed to match any pattern qg��program? rg��program-num-free-variables sg��program-objcode tg�� hashq-ref ug�� hashq-set! vg�� get-call-data wg�� stack-length xg��frame-procedure yg�� count-call zg��frame-previous {g��make-hash-table |g�� hash-fold }g��and=> ~g�� stack-ref g��sample-stack-procs �g��inside-profiler? �g��get-internal-run-time �g�� make-stack �g��profile-signal-handler �g��pk �g��what! �g��set-vm-trace-level! �g��the-vm �g��vm-trace-level �g�� setitimer �g�� ITIMER_PROF �g��assq �g��gc-stats �g�� add-hook! �g�� vm-apply-hook �g�� remove-hook! �g��error �f��/Can't reset profiler while profiler is running. �g�� sigaction �g��SIGPROF �f��:Can't call statprof-fold-called while profiler is running. �e��100.0 �e��1.0 �g��max �g�� stats-sorter �g��current-output-port �f��No samples recorded.  �g��sort �f��!~5a ~10a ~7a ~8a ~8a ~8a ~8@a  �f��%  �f�� cumulative �f��self �f��� �f��total �f�� ~5a ~9a ~8a ~8a ~8a ~8a ~8@a  �f��time �f��seconds �f��calls �f��ms/call �f��name �f��~5a ~10a ~7a ~8@a  �f��% �f��~5a ~10a ~7a ~8@a  �g��for-each �f��#~6,2f ~9,2f ~9,2f ~7d ~8,2f ~8,2f  �f��~6,2f ~9,2f ~9,2f  �g��display �g��newline �f��---  �g�� simple-format �f��Sample count: ~A  �f��*Total time: ~A seconds (~A seconds in GC)  �g��internal-time-units-per-second �f�� ==[~A ~A ~A]  �f��Total time: ~A  �f��5Can't get accumulated time while profiler is running. �g�� procedure=? �g��map �g�� lists->trees �g��cadr �g��find �g�� assq-set! �g��filter �g��identity �g�� unfold-right �g��stack->procedures �g��loopS �  �g��hzS �  �g�� count-calls?S �  �g�� full-stacks?S �  �� �g��inexact->exact �g��floor �e�� 1000000.0 �f��Invalid macro body �g��keyword? �g��eq? �g��@ �� �g��lambda �  �� �g�� after-gc-hookC�5����h0]��F��]4  56;5 �4>�>��"��G���?R@RARBRCR DRER FRGRHRIR��h������]��C���������g��proc  �g�� call-count  �g��cum-sample-count   �g��self-sample-count   ��g��filenamef�� statprof.scm � � �   ��g��nameg��make-call-data�CJRh���t���]� C�l�������g��cd  ��g��filenamef�� statprof.scm �  � �   ��g��nameg��call-data-proc�CKRLK�h���}���]4�56���u�������g��cd  ��g��filenamef�� statprof.scm �  � , � �  ��g��nameg��call-data-name�CMRMNOK���h���R���]�4L�56���J�������g��filenamef�� statprof.scm �   � / � (�  ���C���h ������] 4�5$��C�O�6��������g��cd  �g��t ��g��filenamef�� statprof.scm �  �  �   � �   ��g��nameg��call-data-printable�CPR��h���z���]� C�r�������g��cd  ��g��filenamef�� statprof.scm �  � "�   ��g��nameg��call-data-call-count�CQR�h������]� Cx�������g��cd  ��g��filenamef�� statprof.scm �  � (�   ��g��nameg��call-data-cum-sample-count�CRR���h������]� Cy�������g��cd  ��g��filenamef�� statprof.scm �  � )�   ��g��nameg��call-data-self-sample-count�CSR��h������]� � C����������g��cd  ��g��filenamef�� statprof.scm � �  �  � �  ��g��nameg��inc-call-data-call-count!�CTR��h������]� � C��������g��cd  ��g��filenamef�� statprof.scm � �  �  � �   ��g��nameg��inc-call-data-cum-sample-count!�CUR����h������]� � C��������g��cd  ��g��filenamef�� statprof.scm � �  �  � �   ��g��nameg�� inc-call-data-self-sample-count!�CVR4YZ[^adgh?ijkl����h ���`���]���C�����X�������g�� stop-time  ��g��filenamef�� statprof.scm �  � �   ���C�����h���a���] 4�5L�4?6Y�������g��args  �g��v ��g��filenamef�� statprof.scm  � �   ���Cop��������h(���_���] 4�5$�� �O�@�6�W�������g��y  '�g��tmp '��g��filenamef�� statprof.scm � �  ' ���C5ZRqrstIJu��hp���#��]4�5$��"�� 4�5 $���"��4�545$��C4� 54>��"��G��C�������g��proc  o�g��t #�g��k 4 o�g��t  ? o�g�� call-data  T o��g��filenamef�� statprof.scm �  �  �  �   �   �  ' � . �  4 �  7 �  ? �  K �  T �  W � �  o ��g��nameg�� get-call-data�CvRwGHAxyz{u|Uv�����h������]4�56����������g��proc  �g��val  �g��accum   ��g��filenamef�� statprof.scm �  � � �  ���C}vV~����h����])H4�>��"��G��$�� � "��� "��$��45$��Z&��K454 5"4 >��"��G��45$��"��"45"|4  >��"��G��4 4  5>��"��!G��"��4� 54 5"+JC�������������g��stack   �g��hit-count-call?   �g��frame  1 ��g�� procs-seen  1 ��g��self  1 ��g��t  > ���g��filenamef�� statprof.scm �  �   �   �  " �  $ �  + �  - �  1 �  7 �  8 �  > �  N � Q   R   Y  , j   k   �   �   �   �   �   � �  � �  � �  � �  � �  � �  � �   � �   ��g��nameg��sample-stack-procs�CRRDE?j@B�����h���S��]  $��45�45$��"�� 445545$��"��7 $��$4 4 5�4 4 5�5>��"��G��"���  4 >��"��G��$��"��145�  $��$4 4 5�4 4 5�5>��"��G��"���"��� C���K������g��sig  ��g�� stop-time  ��g��t   :�g��stack  : ��g��inside-apply-trap?  C ���g��filenamef�� 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  � : �+  � ��g��nameg��profile-signal-handler�CR?j@}xTv���h���e���]4�56���]�������g��proc  ��g��filenamef�� statprof.scm E   G  F �  ���C� �������h@������]$��C45� 44�5>��"��G��45� C�����������g��frame  <��g��filenamef�� statprof.scm ?  @   �   B   B   D   D  + D  4 I  : I �  < ��g��nameg�� count-call�CyRD����h������]� C��������g��filenamef�� statprof.scm M  P �   ��g��nameg��statprof-active?g�� documentationf��uReturns @code{#t} if @code{statprof-start} has been called more times than @code{statprof-stop}, @code{#f} otherwise.�CRDC@FFBEy�����h���U��]  $����$��� $��"��� "�� 45� 445�5 $��4  ��>��"��G��"��4    >��"��G�� $�� 4 445�5>��"��G��"���445�445�5>��"��G��CC����M������g��rpt  ��g��t  4�g��use-rpt? 9 ���g��filenamef�� 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 �-  � ��g��nameg��statprof-startg�� documentationf��Start the profiler.@code{}�CRDFFEyC?j@������h�����]�  $��z445�5 445�445�5>��"��G�� $�� 4 4 45�5 >��"��G��"���4  5 45�  CC�����������g��filenamef�� 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 |  � |  � } �  � ��g��nameg�� statprof-stopg�� documentationf��Stop the profiler.@code{}�CRDE?@ABC{IGH��������hx�����-�.�,�3�#�� $��4>��"��G��"���    �  4 �5   4>��"��G��C�������������g��sample-seconds q�g��sample-microseconds q�g�� count-calls?  q�g�� full-stacks?  q��g��filenamef�� statprof.scm           "  '   7   :   =   @   E   G   J   K   T   X   Y   [   \  � q  ��g��nameg��statprof-resetg�� documentationf�VReset 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������]L�6�������������g��key  �g��value  �g�� prior-result   ��g��filenamef�� statprof.scm    �  ���CI���h0��� ��] $��4>��"��G��"����O�6�������g��proc  /�g��init  /��g��filenamef�� statprof.scm              /  �  / ��g��nameg��statprof-fold-call-datag�� documentationf�7Fold @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!RDtI����h(�����] $��4>��"��G��"����6������g��proc  (��g��filenamef�� statprof.scm              (  �  ( ��g��nameg��statprof-proc-call-datag�� documentationf��TReturns the call-data associated with @var{proc}, or @code{#f} if none is available.�C"RPSR E$j� ����h�����]14�54�54�545�45�45�$�� 4�5"��  $�� $�� "��  "��$�� 4  5"���C���������g�� call-data  ��g�� proc-name ��g�� self-samples   ��g�� cum-samples   ��g�� all-samples  " ��g��secs-per-sample  / ��g�� num-calls  C ���g��filenamef�� statprof.scm                     "   %   *   /   /   7   8  ' C   L   N  , O  T  V  + W  \  ^  , _  g  j   o   q  * z   |  9 }   �  �   �   �   �   �   �  �(  � ��g��nameg��statprof-call-data->statsg�� documentationf��0Returns an object of type @code{statprof-stats}.�C'R�����h������]� C�y�������g��stats  ��g��filenamef�� statprof.scm    )�   ��g��nameg��statprof-stats-proc-name�C(R��h������]� C�~�������g��stats  ��g��filenamef�� statprof.scm    .�   ��g��nameg��statprof-stats-%-time-in-proc�C)R�����h������]� C�������g��stats  ��g��filenamef�� statprof.scm    0�   ��g��nameg��statprof-stats-cum-secs-in-proc�C*R���h������]� C�������g��stats  ��g��filenamef�� statprof.scm    1�   ��g��nameg�� statprof-stats-self-secs-in-proc�C+R��h���}���]� Cu�������g��stats  ��g��filenamef�� statprof.scm    %�   ��g��nameg��statprof-stats-calls�C,R������h������]� C�������g��stats  ��g��filenamef�� statprof.scm    2�   ��g��nameg��!statprof-stats-self-secs-per-call�C-R�h������]� C�������g��stats  ��g��filenamef�� statprof.scm    1�   ��g��nameg�� statprof-stats-cum-secs-per-call�C.R+*����h8������] 4�545 $��4�545"�� C������������g��x  3�g��y  3�g��diff   3��g��filenamef�� statprof.scm                    #  *  1  �  3 ��g��nameg�� stats-sorter�CR 8!'�h���~���]4�5C���v�������g��data  �g�� prior-value  ��g��filenamef�� statprof.scm      �  ���CEE8)*+,-.(������h���=��]$��J4M�4�54�54�54�5 4�5 4 �5>��"��G��"��)4M� 4�54�54�5>��"��G��4 4 �5M�>��"��G�� M�6������5������g��stats  ���g��filenamef�� statprof.scm                   %   /   6   :   A   F  S  Y   Z   a �  h   s  |      �   �  �  � ��g��nameg��display-stats-line�CF�$�����h(����-��1��3��H�J�(�� 45�K�"���45� $��J�64545 $��H4J�     > ��"��G��4J�> ��"��G��"��84J�  >��"��G��4J�>��"��G��4�O�>��"��G��4J�>��"��G��445�>��"��G��4 5�!"#6���������g��port %�g�� stats-list 9 %�g�� sorted-stats  D %��g��filenamef�� 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 �  �   �   �   �   �   �   �  -            &    %  �@ % ��g��nameg��statprof-displayg�� documentationf��Displays a gprof-like summary of the statistics collected. Unless an optional @var{port} argument is passed, uses the current output port.�C/R!EQRM��������hH������]$��:4�5 $��+4�5 $��4�54�54�56CCC�����������g��data  D�g�� prior-value  D��g��filenamef�� statprof.scm                   "  ' "  ( #  / $  6 %  > ! �  D ���C ���h@�����]�4>��"��G��445�>��"��G��45�6������� ������g��filenamef�� statprof.scm      '   '   ' ' % '  2 (  3 ( ) 9 ( �  9 ��g��nameg��statprof-display-anomoliesg�� documentationf��QA sanity check that attempts to detect anomolies in statprof's statistics.@code{}�C0RD?��h(������]� $��4>��"��G��"���C���������g��filenamef�� statprof.scm *  ,  ,  -   -  -  % . �  & ��g��nameg��statprof-accumulated-timeg�� documentationf��AReturns the time accumulated during the last statprof run.@code{}�CRDA�������h(������]� $��4>��"��G��"���C������������g��filenamef�� statprof.scm 0  2  2  3   3  3 �  # ��g��nameg��statprof-sample-countg�� documentationf��HReturns the number of samples taken during the last statprof run.@code{}�C RMi#RQi$RRi%RSi&RH�������h���>��]�C���6������g��filenamef�� statprof.scm ; �   ��g��nameg��statprof-fetch-stacksg�� documentationf��Returns 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.�C1Rqs�������h8������]�&��C4�5$��45$��4�545CCC���������g��a  6�g��b  6��g��filenamef�� statprof.scm D  E  F  G  E   G  " G  # H * H  1 H �  6 ��g��nameg�� procedure=?�CR����h������]�4�L�5C�������x�������g��tail  ��g��filenamef�� statprof.scm R   S  T T .  T  S �   ���Cih���z���]�C����r�������g��a  �g��b  ��g��filenamef�� statprof.scm X   X % X . X "�  ���C��h���k���]L�L�6���c�������g��x  ��g��filenamef�� statprof.scm [  [ [ ( [ �  ���C� �������h�����]""��(��+4O�5445?45C(��"4O�5$��!4 5"}�"`� "R����������g��lists  ��g��equal?  ��g��in   ��g�� n-terminal   ��g��tails   ��g��trees   7�g��t  ` ���g��filenamef�� 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 �#  � ��g��nameg�� lists->trees�CR�����h���Y���]�C��Q�������g��x  ��g��filenamef�� statprof.scm j   j $�   ���Cxz~������h ������]44� 556������������g��stack  ��g��filenamef�� statprof.scm h  j  m   j  i �   ��g��nameg��stack->procedures�CRH��h���T��]�4455C���L������g��filenamef�� statprof.scm o  v  v   v  v �   ��g��nameg��statprof-fetch-call-treeg�� documentationf��Return 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 code�C2R���h0������] � $��E4L�>��� G��"��������������g��i  )�g��result  )�g��result   )��g��filenamef�� statprof.scm              )  �  ) ��g��nameg��lp�C��������h ���l���]O��L��Q���L6�������d�������g��lp ��g��filenamef�� statprof.scm          �   ���C������h@������]�444 L554 L4 L55LL�>��"��G��6����������g��filenamef�� statprof.scm          &   -   &         )   0   0 #  7 %  0 &  - '  & )   2   >  �  > ���C/I�����h(���[���]�4>���"��G��4>���"��G�� C�S�������g��filenamef�� statprof.scm         %  �  ' ���C�������h@������]�444 L554 L4 L55LL�>��"��G��6����������g��filenamef�� statprof.scm          &   -   &         )   0   0 #  7 %  0 &  - '  & )   2   >  �  > ���C/I�����h(���[���]�4>���"��G��4>���"��G�� C�S�������g��filenamef�� statprof.scm         %  �  ' ���C/I���h(���[���]�4>���"��G��4>���"��G�� C�S�������g��filenamef�� statprof.scm         %  �  ' ���C��h���.��-�/���0���3�#�� #�� d#��#��O��Q�O�4O�>���"��G��V4>���X4>���"��G��CX4>���"��G��F�����&������g��thunk  ��g��loop  ��g��hz   ��g�� count-calls?   ��g�� full-stacks?   ��g��thunk  A ���g��filenamef�� statprof.scm x A  �  � g��loopS g��hzS g�� count-calls?S g�� full-stacks?S ���g��nameg��statprofg�� documentationf�Profile 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[^adg�hP��� ��](��645$�� �&��C��"4�5$��CC��������g��kw  N�g��args  N�g��def   N��g��filenamef�� statprof.scm                          #   &  -   :  ;   H  �  N ��g��nameg�� kw-arg-ref�C��������h`������-��1��3�O�Q�4�54� 54� d54�54�5� C������������g��args [�g�� kw-arg-ref  [��g��filenamef�� statprof.scm        %   )  4   5  A   B   M   N   Z  � [ ���C�������h���a���] 4�5L�4?6Y�������g��args  �g��v ��g��filenamef�� statprof.scm   �   ���Cop��������h(���w��] 4�5$�� �O�@�6�o������g��y  '�g��tmp '��g��filenamef�� statprof.scm  �  ' ��g�� documentationf�Profile 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-typeg��defmacrog�� defmacro-argsg��args��C53R?j@� ��hx���.��]��$���C 45�4L� 5��$���"�� 4455��4>��"��G��� 45� � C����&������g��t  t�g��t ! ?�g�� stop-time ? o�g��stack ? o��g��filenamef�� statprof.scm               !   0   4   5  " <   ?   D   Y �  b   c   i   r  �  t ��g��nameg�� gc-callback�CD?@AE{IGHCFF��h�����]� $��4>��"��G��"���    4 �5 L    $��O 4 5� 445�5 4L�>��"��G��445�445�5>��"��G��CC�����y������g��filenamef�� statprof.scm                #   &   )   ,   -   6   :   ;   =   @   B   F   J   M  N  T  U  # Y  ) Z  8 `  # a   c  d  x  {   �  , �  < �  , �  ( �  �%  � ���C�����h8������]"��#� $��C4L�>���"��G����"L�"��������������g��i  )��g��filenamef�� statprof.scm              #   )   )  �  1 ���CDFF?j@/I���hh������]�  $��=445�5 4L�>��"��G�� 4 5�  "���4 >���"��G�� C��������������g��filenamef�� statprof.scm                      -          !  "  9 �  ; �  E � H  M   _  �  a ���C���h���W��-�/���0���3�#�� #��O�Q�O�O�O�Q��Q�Q�4>���"��G��V4>���X4>���"��G��CX4>���"��G��FO������g��thunk  ��g��loop  ��g�� full-stacks?   ��g�� gc-callback  - ��g��pre  L ��g��thunk  L ��g��post  L ���g��filenamef�� statprof.scm  ;  �  � g��loopS g�� full-stacks?S ���g��nameg��gcprofg�� 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����>������g��m  0��g��filenamef�� 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 ]*  �;  ], ���C6�����������������rnrs.go���������������������������������������������������������������������������������������������0000644�����������������00000052471�15253700563�0006076 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0!U������]�4�h,D������]� g��guile � g��define-module* � � g��rnrs � g��filenameS f��rnrs.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��fixnums  � !g��flonums "! � #g��base $# � %g�� bytevectors &% � 'g�� conditions (' � )g��control *) � +g��enums ,+ � -g�� exceptions .- � /g��files 0/ � 1g�� hashtables 21 � 3g��io 4g��ports 534 � 6g��simple 736 � 8g��lists 98 � :g��programs ;: � <g��records =g�� inspection ><= � ?g�� procedural @<? � Ag�� syntactic B<A � Cg��sorting DC � Eg��rename Fg�� syntax-case GF � Hg��syntax-case-hack IFH� JEGI� Kg��unicode LK � Mg��module-export! NM� OM� Pg��module-re-export! QP� RP� Sg��string-normalize-nfkc Tg��string-normalize-nfc Ug��string-normalize-nfkd Vg��string-normalize-nfd Wg�� string-ci>=? Xg�� string-ci<=? Yg�� string-ci>? Zg�� string-ci<? [g�� string-ci=? \g��string-foldcase ]g��string-titlecase ^g��string-downcase _g�� string-upcase `g��char-general-category ag��char-title-case? bg��char-lower-case? cg��char-upper-case? dg��char-whitespace? eg�� char-numeric? fg��char-alphabetic? gg�� char-ci>=? hg�� char-ci<=? ig�� char-ci>? jg�� char-ci<? kg�� char-ci=? lg�� char-foldcase mg��char-titlecase ng�� char-downcase og�� char-upcase pg��syntax-violation qg��unsyntax-splicing rg��unsyntax sg�� quasisyntax tg�� with-syntax ug��generate-temporaries vg�� datum->syntax wg�� syntax->datum xg��free-identifier=? yg��bound-identifier=? zg�� identifier? {HF |g��syntax }g��make-variable-transformer ~g�� vector-sort! g�� vector-sort �g�� list-sort �g��record-constructor-descriptor �g��record-type-descriptor �g��define-record-type �g��record-mutator �g��record-accessor �g��record-predicate �g��record-constructor �g��"make-record-constructor-descriptor �g��record-type-descriptor? �g��make-record-type-descriptor �g��record-field-mutable? �g��record-type-field-names �g��record-type-opaque? �g��record-type-sealed? �g��record-type-generative? �g��record-type-uid �g��record-type-parent �g��record-type-name �g�� record-rtd �g��record? �g��exit �g�� command-line �g��cons* �g��assq �g��assv �g��assoc �g��assp �g��memq �g��memv �g��member �g��memp �g��remq �g��remv �g��remove �g��remp �g�� fold-right �g�� fold-left �g�� partition �g��filter �g��exists �g��for-all �g��find �g��write �g��display �g��newline �g�� write-char �g��read �g�� peek-char �g�� read-char �g��close-output-port �g��close-input-port �g��open-output-file �g��open-input-file �g��with-output-to-file �g��with-input-from-file �g��current-error-port �g��current-output-port �g��current-input-port �g��call-with-output-file �g��call-with-input-file �g��standard-error-port �g��standard-output-port �g��standard-input-port �g�� put-string �g�� put-datum �g��put-char �g��lookahead-char �g�� get-string-n! �g�� get-string-n �g��get-string-all �g��get-line �g�� get-datum �g��get-char �g��flush-output-port �g��call-with-string-output-port �g��make-custom-textual-output-port �g��open-file-input/output-port �g��open-file-output-port �g��open-file-input-port �g�� utf-16-codec �g�� utf-8-codec �g�� latin-1-codec �g�� call-with-bytevector-output-port �g��open-string-output-port �g��open-string-input-port �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��call-with-port �g�� close-port �g��port-has-set-port-position!? �g��port-has-port-position? �g��set-port-position! �g�� port-position �g��transcoded-port �g�� textual-port? �g�� binary-port? �g��port-transcoder �g�� port-eof? �g�� eof-object �g�� output-port? �g�� input-port? �g��port? �g�� eof-object? �g��native-transcoder �g��transcoder-error-handling-mode �g��transcoder-eol-style �g��transcoder-codec �g��make-transcoder �g��error-handling-mode �g��native-eol-style �g�� eol-style �g�� buffer-mode? �g�� buffer-mode �g�� file-options �g�� symbol-hash �g��string-ci-hash �g�� string-hash �g�� equal-hash g��hashtable-mutable? g��hashtable-hash-function g��hashtable-equivalence-function g��hashtable-entries g��hashtable-keys g��hashtable-clear! g��hashtable-copy g��hashtable-update!  g��hashtable-contains?  g��hashtable-delete!  g��hashtable-set!  g�� hashtable-ref  g��hashtable-size g�� hashtable? g��make-hashtable g��make-eqv-hashtable g��make-eq-hashtable g��i/o-error-port g��i/o-port-error? g��make-i/o-port-error g�� &i/o-port g��i/o-file-does-not-exist-error? g��"make-i/o-file-does-not-exist-error g��&i/o-file-does-not-exist g��i/o-file-already-exists-error? g��"make-i/o-file-already-exists-error g��&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 #g��i/o-filename-error? $g��make-i/o-filename-error %g�� &i/o-filename &g��i/o-error-position 'g��i/o-invalid-position-error? (g��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 /g�� &i/o-read 0g�� i/o-error? 1g��make-i/o-error 2g��&i/o 3g�� delete-file 4g�� file-exists? 5g��raise-continuable 6g��raise 7g��with-exception-handler 8g��guard 9g��define-enumeration :g��enum-set-projection ;g��enum-set-complement <g��enum-set-difference =g��enum-set-intersection >g��enum-set-union ?g�� enum-set=? @g��enum-set-subset? Ag��enum-set-member? Bg��enum-set->list Cg��enum-set-constructor Dg��enum-set-indexer Eg��enum-set-universe Fg��make-enumeration Gg�� case-lambda Hg��do Ig��unless Jg��when Kg��undefined-violation? Lg��make-undefined-violation Mg�� &undefined Ng��syntax-violation-subform Og��syntax-violation-form Pg��syntax-violation? Qg��make-syntax-violation Rg��&syntax Sg��lexical-violation? Tg��make-lexical-violation Ug��&lexical Vg��%implementation-restriction-violation? Wg��)make-implementation-restriction-violation Xg��&implementation-restriction Yg��non-continuable-violation? Zg��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 ~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 g��bytevector-ieee-double-set! g��bytevector-ieee-double-ref g��"bytevector-ieee-single-native-set! g��!bytevector-ieee-single-native-ref g��bytevector-ieee-single-set! g��bytevector-ieee-single-ref g��bytevector-s64-native-set! g��bytevector-u64-native-set! g��bytevector-s64-native-ref g��bytevector-u64-native-ref g��bytevector-s64-set! g��bytevector-u64-set! g��bytevector-s64-ref g��bytevector-u64-ref g��bytevector-s32-native-set! g��bytevector-u32-native-set! g��bytevector-s32-native-ref g��bytevector-u32-native-ref g��bytevector-s32-set! g��bytevector-u32-set! g��bytevector-s32-ref g��bytevector-u32-ref g��bytevector-s16-native-set! g��bytevector-u16-native-set! g��bytevector-s16-native-ref g��bytevector-u16-native-ref g��bytevector-s16-set! g��bytevector-u16-set! g��bytevector-s16-ref g��bytevector-u16-ref g��sint-list->bytevector g��uint-list->bytevector g��bytevector->uint-list g��bytevector->sint-list g��bytevector-sint-set! g��bytevector-sint-ref g��bytevector-uint-set! g��bytevector-uint-ref g��u8-list->bytevector g��bytevector->u8-list g��bytevector-s8-set! g��bytevector-u8-set! g��bytevector-s8-ref g��bytevector-u8-ref g��uniform-array->bytevector g��bytevector-copy g��bytevector-copy! g��bytevector-fill! g�� bytevector=? g��bytevector-length g��make-bytevector g�� bytevector? g��native-endianness g�� endianness g��identifier-syntax g�� syntax-rules g�� letrec-syntax g�� let-syntax g��unquote-splicing g��unquote g�� quasiquote g��apply g��values g�� dynamic-wind g��call-with-values g��call/cc g��call-with-current-continuation g��assert g��assertion-violation g��error g��vector-for-each g�� vector-map g�� vector-fill! g�� list->vector g�� vector->list g�� vector-set! g�� vector-ref g�� vector-length g��vector g�� make-vector g��vector? g�� string-copy g��string-for-each g�� list->string g�� string->list g�� string-append g�� substring g�� string>=? g�� string<=? g��string>? g��string<? g��string=? g�� string-ref g�� string-length g��string g�� make-string g��char>=? g��char<=? g��char>? g��char<? g��char=? g�� integer->char g�� char->integer g��symbol=? g��string->symbol g��symbol->string g��for-each g��map 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�� boolean=? g��string->number g��number->string g��>= g��<= g��> g��< g��=  g��inexact !g��exact "g�� infinite? #g��finite? $g��nan? %g��even? &g��odd? 'g�� negative? (g�� positive? )g��zero? *g��integer-valued? +g��rational-valued? ,g�� real-valued? -g��inexact? .g��exact? /g��integer? 0g�� rational? 1g��real? 2g��complex? 3g��angle 4g�� magnitude 5g�� make-polar 6g��atan 7g��acos 8g��asin 9g��tan :g��cos ;g��sin <g��log =g��exp >g��sqrt ?g��exact-integer-sqrt @g��expt Ag�� div0-and-mod0 Bg��mod0 Cg��div0 Dg�� div-and-mod Eg��mod Fg��div Gg��make-rectangular Hg�� imag-part Ig�� real-part Jg�� rationalize Kg��round Lg��truncate Mg��ceiling Ng��floor Og��lcm Pg��gcd Qg�� denominator Rg�� numerator Sg��abs Tg��min Ug��max Vg��/ Wg��* Xg��- Yg��+ Zg��eq? [g��equal? \g��eqv? ]g��not ^g��and _g��or `g��case ag��cond bg��set! cg��if dg��lambda eg��quote fg��begin gg��letrec* hg��letrec ig�� let*-values jg�� let-values kg��let* lg��let mg�� define-syntax ng��define og�� procedure? pg��string? qg��number? rg��pair? sg��null? tg��char? ug��symbol? vg��boolean? wg��fixnum->flonum xg��no-nans-violation? yg��make-no-nans-violation zg��&no-nans {g��no-infinities-violation? |g��make-no-infinities-violation }g��&no-infinities ~g��flexpt g��flsqrt g��flatan g��flasin g��flacos g��fltan g��flcos g��flsin g��fllog g��flexp g��flround g�� fltruncate g�� flceiling g��flfloor g�� fldenominator g�� flnumerator g��flmod0 g��fldiv0 g��fldiv0-and-mod0 g��flmod g��fldiv g�� fldiv-and-mod g��flabs g��fl/ g��fl- g��fl* g��fl+ g��flmin g��flmax g��flnan? g�� flinfinite? g�� flfinite? g��fleven? g��flodd? g�� flnegative? g�� flpositive? g��flzero? g�� flinteger? g��fl>=? g��fl>? g��fl<=? g��fl<? g��fl=? g�� real->flonum g��flonum? g��fxreverse-bit-field g��fxrotate-bit-field g��fxarithmetic-shift-right g��fxarithmetic-shift-left g��fxarithmetic-shift g��fxcopy-bit-field g�� fxbit-field g�� fxcopy-bit g�� fxbit-set? g��fxfirst-bit-set g��fxlength g�� fxbit-count g��fxif g��fxxor g��fxior g��fxand g��fxnot g�� fx*/carry g�� fx-/carry g�� fx+/carry g��fxmod0 g��fxdiv0 g��fxdiv0-and-mod0 g��fxmod g��fxdiv g�� fxdiv-and-mod g��fx- g��fx* g��fx+ g��fxmin g��fxmax g��fxeven? g��fxodd? g�� fxnegative? g�� fxpositive? g��fxzero? g��fx<=? g��fx>=? g��fx<? g��fx>? g��fx=? g��greatest-fixnum g�� least-fixnum g�� fixnum-width g��fixnum? g��bitwise-reverse-bit-field g��bitwise-rotate-bit-field g��bitwise-arithmetic-shift-right g��bitwise-arithmetic-shift-left g��bitwise-arithmetic-shift g��bitwise-copy-bit-field g��bitwise-bit-field g��bitwise-copy-bit g��bitwise-bit-set? g��bitwise-first-bit-set g��bitwise-length g��bitwise-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{|}~ g��module-replace! � �C�5�������h ����]4    5�4�>��"��G���45�4�h���:���]�45�L��62�������g��filenamef��rnrs.scm  �   ���C�O�>��"��G���4 5�4�����h���:���]�45�L��62�������g��filenamef��rnrs.scm  �   ���C�O�>��"��G���4"5�4�����h���:���]�45�L��62�������g��filenamef��rnrs.scm  �   ���C�O�>��"��G���4$5�4�����h���:���]�45�L��62�������g��filenamef��rnrs.scm  �   ���C�O�>��"��G���4&5�4�����h���:���]�45�L��62�������g��filenamef��rnrs.scm  �   ���C�O�>��"��G���4(5�4�����h���:���]�45�L��62�������g��filenamef��rnrs.scm  �   ���C�O�>��"��G���4*5�4�����h���:���]�45�L��62�������g��filenamef��rnrs.scm  �   ���C�O�>��"��G���4,5�4�����h���:���]�45�L��62�������g��filenamef��rnrs.scm  �   ���C�O�>��"��G���4.5�4�����h���:���]�45�L��62�������g��filenamef��rnrs.scm  �   ���C�O�>��"��G���405�4�����h���:���]�45�L��62�������g��filenamef��rnrs.scm  �   ���C�O�>��"��G���425�4�����h���:���]�45�L��62�������g��filenamef��rnrs.scm  �   ���C�O�>��"��G���455�4�����h���:���]�45�L��62�������g��filenamef��rnrs.scm  �   ���C�O�>��"��G���475�4�����h���:���]�45�L��62�������g��filenamef��rnrs.scm  �   ���C�O�>��"��G���495�4�����h���:���]�45�L��62�������g��filenamef��rnrs.scm  �   ���C�O�>��"��G���4;5�4�����h���:���]�45�L��62�������g��filenamef��rnrs.scm  �   ���C�O�>��"��G���4>5�4�����h���:���]�45�L��62�������g��filenamef��rnrs.scm  �   ���C�O�>��"��G���4@5�4�����h���:���]�45�L��62�������g��filenamef��rnrs.scm  �   ���C�O�>��"��G���4B5�4�����h���:���]�45�L��62�������g��filenamef��rnrs.scm  �   ���C�O�>��"��G���4D5�4�����h���:���]�45�L��62�������g��filenamef��rnrs.scm  �   ���C�O�>��"��G���4J5�4�����h���:���]�45�L��62�������g��filenamef��rnrs.scm  �   ���C�O�>��"��G���4L5�4�����h���:���]�45�L��62�������g��filenamef��rnrs.scm  �   ���C�O�>��"��G���4O������h���:���]�45�6����2�������g��filenamef��rnrs.scm  �  ���C>��"��G��4R���h���:���]�45�6���2�������g��filenamef��rnrs.scm  �  ���C>��"��G��������h���:���]�45�6����2�������g��filenamef��rnrs.scm  �  ���C6����������g��m  +�g��iface 2 ��g��iface � '�g��iface . �g��iface  '�g��iface . �g��iface  '�g��iface . �g��iface  '�g��iface . �g��iface  '�g��iface . �g��iface  '�g��iface . �g��iface  '�g��iface . �g��iface  '�g��iface . �g��iface  '�g��iface . �g��iface '�g��iface . ��g��filenamef��rnrs.scm   �  ���C6��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/expect.go�������������������������������������������������������������������������������������0000644�����������������00000012623�15253700563�0007303 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0{������]�t�4��h������]� g��guile � g��define-module* � � g��ice-9 g��expect � g��filenameS f��ice-9/expect.scm g��importsS g��regex  �  � � g��exportsS g��expect-strings g�� expect-port g��expect-timeout g��expect-timeout-proc g��expect-eof-proc g��expect-char-proc g��expect-strings-compile-flags g��expect-strings-exec-flags g�� expect-select g��expect-regexec �  g��set-current-module � � g��make-syntax-transformer � !� "g��macro #g�� $sc-dispatch $#� %#� &g��_ 'g��any (&' )g�� syntax->datum *)� +)� ,g�� datum->syntax -,� .,� /g��gensym 0g��let 1f��� 21� 3g��or 4g��current-input-port 54� 635� 76� 8g��if 9g��let* :g�� secs-usecs ;g�� gettimeofday <;� =:<� >=� ?g��+ @g��car A@:� Bg��/ Cg��cdr DC:� EBD�����B@� F?AE� G9>F� H8G� IH� Jg�� next-char Kg��and Lg��not M� Ng�� read-char Og�� eof-object? Pg��set! Qg�� string-append Rg��string Sg��cond Tg��append UT� VT� Wg��reverse Xg��=> Yg��length Zg��apply [g�� scm-error \g�� misc-error ]f��expect ^f��bad recipient: ~S _g��map `g��else aJ� b`a� cb� dg��syntax-violation ed� fd� gf��-source expression failed to match any pattern hg��regexp/newline ig�� regexp/noteol jg�� make-regexp k� lg��lambda mg��s ng��eof? omn� pg��select qg�� regexp-exec rg��match:substring sg�� match:countC�5�����h` �����]4   5�4�>��"��G���RRRRR4!"%(+./027IJ8KLMNOPQRSVWXYZ[\]^_@C`c�$����h��q��-��1��3�45�45�45�45��   ���  � ����� ������4"��(�� 45"����(��"��M&��@45 $�����"��4�5"��"s4�54 �5"V!�""� �#��5����C���i������g��clauses �g��s  �g��c   �g��port   �g��timeout   �g��tests  � @�g��exprs  � @�g��body  � @��g��filenamef��ice-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 �/  ���C����h���d���] 4�5L�4?6\�������g��args  �g��v ��g��filenamef��ice-9/expect.scm  1 �   ���Cfg�����h(���b���] 4�5$�� �O�@�6�Z�������g��y  '�g��tmp '��g��filenamef��ice-9/expect.scm 1 �  ' ���C5RhiRiiR4!"%(+.0W/jklo_@C� �����h�����-��1��3�"��a(��4545�"��c45�� �"4  �54  �5"C������������g��clauses ��g��tests  p�g��exprs   p�g��defs   p�g��body   p�g��rxname  2 p��g��filenamef��ice-9/expect.scm x y   y  }  ~   ~ (  ~ 3 & ~ ( ) ~  . � ! 2 �  7 � : � > � & A � 2 C � & K � M � & ] � * ^ � & a � m �  p y q y ! z z ! � { � | � y � y � � ���C���h���d���] 4�5L�4?6\�������g��args  �g��v ��g��filenamef��ice-9/expect.scm  x �   ���Cfg�����h(���b���] 4�5$�� �O�@�6�Z�������g��y  '�g��tmp '��g��filenamef��ice-9/expect.scm x �  ' ���C5R;p�h@���L��]45������B@ $��4��5CC������D������g��port  :�g��timeout  :�g�� secs-usecs   :�g��relative   :��g��filenamef��ice-9/expect.scm �  �   �   �   �   �   �   �   �  # � ' �  ( �  / �  0 � ) 1 � - 5 �  6 �  7 � �  : ��g��nameg�� expect-select�CRiqrs���h�����]#"��"��$$��$�� "��""��"4� 5$��7"��" $��C45"45"C�|������g��rx  �g��s  �g��eof?   �g��flags  0 �g��match  > �g��i  J l�g��result  J l��g��filenamef��ice-9/expect.scm � �   �   �  �  0 �  3 �  > �  F �  J �  N � R �  X � * Y �  d �  l �  m �  t �  u �  } � �   ��g��nameg��expect-regexec�CRC��������������g��m  ,��g��filenamef��ice-9/expect.scm   0 ) 4 * 8 + < , @ -  s  t 7 � W � �  Y ���C6��������������������������������������������������������������������������������������������������������������ice-9/ls.go�����������������������������������������������������������������������������������������0000644�����������������00000005462�15253700563�0006434 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0 ������]�%�4�hU������]� g��guile � g��define-module* � � g��ice-9 g��ls � g��filenameS f�� ice-9/ls.scm g��importsS g�� common-list  �  � � g��exportsS g��local-definitions-in g��definitions-in g��lls g��recursive-local-define � g��set-current-module � � g��nested-ref-module g�� module-map g�� nested-ref g��reduce g��union g��map g�� module-uses g��current-module !g��reverse! "g��reverse #g��module-define! $g��make-modules-inC�5������h���x���]4   5�4�>��"��G��������h���^���]�C���V�������g��k  �g��v  ��g��filenamef�� ice-9/ls.scm : �   ���C�����h(������] 4�5$��6�6������������g��root  #�g��names  #�g��m  #��g��filenamef�� ice-9/ls.scm 7  8 8   9   :  # ; �  # ��g��nameg��local-definitions-in�CR��������h���`���]�6�������X�������g��m2  ��g��filenamef�� ice-9/ls.scm B   B ; B (�  ���C� h8������] 4�5$��4544556�6�������g��root  8�g��names  8�g��m  8��g��filenamef�� ice-9/ls.scm =  > >   ?   A   A .  A  B  % C  - B  . A  0 @  8 D �  8 ��g��nameg��definitions-in�CR ����h���q���]�445��5C������i�������g��ref  ��g��filenamef�� ice-9/ls.scm I   J   J ,  J   J �   ���C ��������h8������-��1��3��$���$���645��645�6����������g�� various-refs 5��g��filenamef�� ice-9/ls.scm F G   G   H  H   I " L  ) L + + L . M  3 M ' 5 M � 5 ��g��nameg��ls�CR ��������h���q���]�445��5C������i�������g��ref  ��g��filenamef�� ice-9/ls.scm R   S   S 2  S   S �   ���C ��������h8������-��1��3��$���$���645��645�6����������g�� various-refs 5��g��filenamef�� ice-9/ls.scm O P   P   Q  Q   R " U ) U 1 + U . V  3 V - 5 V � 5 ��g��nameg��lls�CR!"#$ ����h(������] 44�55445�5�6����������g��name  %�g��value  %�g��parent   %��g��filenamef�� ice-9/ls.scm X  Y   Y  Y   Y   Y   Z   Z %  Z  % Z �  % ��g��nameg��recursive-local-define�CRCp�������g��m  ,��g��filenamef�� ice-9/ls.scm    7 i =  F  O  X �  � ���C6���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/safe-r5rs.go����������������������������������������������������������������������������������0000644�����������������00000011420�15253700563�0007614 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]��4����hS������]� g��guile � g��define-module* � � g��ice-9 g�� safe-r5rs � g��filenameS f��ice-9/safe-r5rs.scm g��exportsS g��null-environment  � g�� re-exportsS g��eqv? g��eq? g��equal? g��number? g��complex? g��real? g�� rational? g��integer? g��exact? g��inexact? g��= g��< g��> g��<= g��>= g��zero? g�� positive? g�� negative? !g��odd? "g��even? #g��max $g��min %g��+ &g��* 'g��- (g��/ )g��abs *g��quotient +g�� remainder ,g��modulo -g��gcd .g��lcm /g�� numerator 0g�� denominator 1g�� rationalize 2g��floor 3g��ceiling 4g��truncate 5g��round 6g��exp 7g��log 8g��sin 9g��cos :g��tan ;g��asin <g��acos =g��atan >g��sqrt ?g��expt @g��make-rectangular Ag�� make-polar Bg�� real-part Cg�� imag-part Dg�� magnitude Eg��angle Fg��exact->inexact Gg��inexact->exact Hg��number->string Ig��string->number Jg��boolean? Kg��not Lg��pair? Mg��cons Ng��car Og��cdr Pg��set-car! Qg��set-cdr! Rg��caar Sg��cadr Tg��cdar Ug��cddr Vg��caaar Wg��caadr Xg��cadar Yg��caddr Zg��cdaar [g��cdadr \g��cddar ]g��cdddr ^g��caaaar _g��caaadr `g��caadar ag��caaddr bg��cadaar cg��cadadr dg��caddar eg��cadddr fg��cdaaar gg��cdaadr hg��cdadar ig��cdaddr jg��cddaar kg��cddadr lg��cdddar mg��cddddr ng��null? og��list? pg��list qg��length rg��append sg��reverse tg�� list-tail ug��list-ref vg��memq wg��memv xg��member yg��assq zg��assv {g��assoc |g��symbol? }g��symbol->string ~g��string->symbol g��char? �g��char=? �g��char<? �g��char>? �g��char<=? �g��char>=? �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->integer �g�� integer->char �g�� char-upcase �g�� char-downcase �g��string? �g�� make-string �g��string �g�� string-length �g�� string-ref �g�� string-set! �g��string=? �g�� string-ci=? �g��string<? �g��string>? �g�� string<=? �g�� string>=? �g�� string-ci<? �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! �g��vector? �g�� make-vector �g��vector �g�� vector-length �g�� vector-ref �g�� vector-set! �g�� vector->list �g�� list->vector �g�� vector-fill! �g�� procedure? �g��apply �g��map �g��for-each �g��force �g��call-with-current-continuation �g��values �g��call-with-values �g�� dynamic-wind �g��eval �g�� input-port? �g�� output-port? �g��current-input-port �g��current-output-port �g��read �g�� read-char �g�� peek-char �g�� eof-object? �g�� char-ready? �g��write �g��display �g��newline �g�� write-char � !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~� �g��set-current-module �� �� �g��resolve-interface �g��null �� �g��null-interface �g�� module-use! �g��module-public-interface �g��current-module �g�� scm-error �g�� misc-error �f��~A is not a valid version �g�� make-module �g��set-module-kind! �g�� interfaceC�5h�����]4    5�4�>��"��G���4i5R4i4i4i5�5i>��"��G�� � �����h`�����] � $��"��4��>��"��G��4 54>��"��G��4 >��"��G��C�������g��n  _�g�� interface 2 _��g��filenamef��ice-9/safe-r5rs.scm �  � �   �   �   �   �   �   �  # �  , �  2 �  5 �  ; � @ �  I � �  _ ��g��nameg��null-environment�C RC����������g��m  ,��g��filenamef��ice-9/safe-r5rs.scm   - �  3 � * 5 �  8 � 9 � > � C � & K � T �  � �   ���C6�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/ftw.go����������������������������������������������������������������������������������������0000644�����������������00000051370�15253700563�0006615 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0R������]��4��h ������]� g��guile � g��define-module* � � g��ice-9 g��ftw � g��filenameS f�� ice-9/ftw.scm g��importsS g��match  �  � g��vlist � � g��srfi g��srfi-1 � � � g��exportsS g��nftw g��file-system-fold g��file-system-tree g��scandir � g�� autoloadsS g��i18n � g��string-locale<? ! � "!� #g��set-current-module $#� %#� &g��opendir 'g�� eof-object? (g��closedir )g��readdir *g��string=? +f��. ,f��.. -g��directory-files .f��� /g�� substring 0g�� string-length 1g�� string-append 2f��/ 3g��pathify 4g��char=? 5g�� string-ref 6g��abs? 7g��make-hash-table 8g�� hashv-ref 9g��stat:dev :g��stat:ino ;g�� hashv-set! <g�� visited?-proc =g��getuid >g��getgid ?g�� stat:perms @g��stat:uid Ag��stat:gid Bg��stat-dir-readable?-proc Cg��memq Dg��depth Eg��directory-processed Fg�� directory Gg�� nftw-style Hg�� stale-symlink Ig��symlink Jg��physical Kg��catch LK� MK� Ng��lstat Og�� stat:type Pg��stat Qg��directory-not-readable Rg��regular Sg�� invalid-stat Tg��stat&flag-proc Ug��clean Vg�� hash-size Wg��throw Xg��ftw-early-exit Yg��for-each Zg��getcwd [g��mount \g��chdir ]g��nftw-early-exit ^g��make-syntax-transformer _^� `^� ag��errno-if-exception bg��macro cg�� $sc-dispatch dc� ec� fg��any gff� hg�� syntax-object ig��top ji� kg��ribcage lg��dummy mg��expr nlm� og�� m-c0b95d8-107 poi� qpj� rf�� l-c0b95d8-10c sf�� l-c0b95d8-10d trs� uknqt� vk� wg��x xw� yp� zf�� l-c0b95d8-109 {z� |kxy{� }juv|� ~g��hygiene ~� �hK}� �g��quote �h}� �g�� system-error �h}� �� �g��lambda �h}� �g��args �h}� �g��system-error-errno �h}� �� �� �� �g��syntax-violation �� �� �f��-source expression failed to match any pattern �g��integer? �g�� vhash-assoc �g�� vhash-cons �g��directory-stream? �g��fold �g��cons �g�� alist-cons �g�� vlist-null �g��basename �g��error � � � � �f��no matching pattern �� �g��const �g��and=> �g��sortC�5������hPG�����]4   "5 �4%�>��"��G���&'()*+,������h���s��]!4�5"��`45$��4>��"��G��C4545$��"�� 45$��"��"45"�k������g��dir  �g�� dir-stream �g��new   o�g��acc   o�g��t  ? X��g��filenamef�� ice-9/ftw.scm �  �  �   �   �  �   � 0 �  7 �  ; � " ? �  ? �  M �  Q � " U �  \ �  g �  o � o �  p �  w �   � �   ��g��nameg��directory-files�C-R*./012��hh���J��-��1��3�"��J(��-45$��"��$��C 45645"�"�����B������g��nodes c�g��nodes W�g��result  W�g��t  ' @��g��filenamef�� ice-9/ftw.scm � �   �   �   �   �  � " � & ' �  8 � @ � C �  D �  J � 0 M � 4 O �  W �  W �  [ �  c � � c ��g��nameg��pathify�C3R45���h���z���]/4� 56r�������g��filename  ��g��filenamef�� ice-9/ftw.scm �  �   � �   ��g��nameg��abs?�C6R789:7;��h���!��]�$��y4L�4�554�5HJ$��"��$4L5K4L�4�5J>��"��G��4J5$��C4J>��"��G��CC�����������g��s  ��g��ino-hash  ��g��ino   ��g��t  # V�g��t  _ ���g��filenamef�� ice-9/ftw.scm �   �  �   � /  �   �   � # � 0 � " 8 �  9 �  > � ( K �  W �  _ � k � �  � ���C����h������] 4 5�O�C����������g��size  �g��dev-hash ��g��filenamef�� ice-9/ftw.scm �  �  � �   ��g��nameg�� visited?-proc�C<R=>?@A��hp���M��]4�5L $��CL4�5$�� �"��$��CL�4�5$�� "��$��C CE������g��s  p�g��perms p�g��t   p�g��t  6 p�g��t  \ p��g��filenamef�� ice-9/ftw.scm                $   (  /  ) 0  $ 1   6   D   K   O  U  ) V  $ W   \   m  ) n  $ o  �  p ���C��������h ������]45�45�O�C�������������g��uid  �g��gid  �g��uid  �g��gid  ��g��filenamef�� ice-9/ftw.scm �  �  � � �   ��g��nameg��stat-dir-readable?-proc�CBRCDEFGHIJMN�������h���J���]�L�6B�������g��filenamef�� ice-9/ftw.scm     #�   ���C����h���V���-��1��3�C�����N�������g��args ��g��filenamef�� ice-9/ftw.scm  � ���CIOP��������h���J���]�L�6B�������g��filenamef�� ice-9/ftw.scm     3�   ���C����h���V���-��1��3�C�����N�������g��args ��g��filenamef�� ice-9/ftw.scm  � ���CFQRS� ������h�����]4�O�5$��45&��Z4�O�5$��=L$��D45&��4L5$��L"�� "�� DL�D45&��4L5$��L"�� "�� D D�������g��name  ��g��s  ��g��s-follow  5 ��g��type  R x�g��type  � ���g��filenamef�� ice-9/ftw.scm                  &   '   5   = !  C #  G $ " I $  L  " R   V  ! \   ]  g   o  u   z &  � "  �  " �   �  ! �   �  �   �  �   � '  �   �  �#  � ���C� �����hP�����-�1�3�45$��"��45$��"��45 �O�C������g�� dir-readable? P�g�� control-flags P�g��directory-flag   P�g��stale-symlink-flag  5 P�g�� physical?  @ P��g��filenamef�� ice-9/ftw.scm      #                !  ! %  ' )  ! -   /  ! 5  ! 5   8   <   @   @  � P ��g��nameg��stat&flag-proc�CTR045/�h0������] 4�54/4�55$�� � 6�C�����������g��name  ,�g��last-char-index ,��g��filenamef�� ice-9/ftw.scm )  *  *  *  +   +   +  +  ) , �  , ��g��nameg��clean�CUR<CVTB=>WXFY3������h���g���]L4L��56�_�������g��child  ��g��filenamef�� ice-9/ftw.scm = #  > )  > %�   ���C-����h���4��]4L�>�� G�4L5$��C4L��5&��"��4>��"��G��&��$4�LO�4�5>��"��G��"���C,������g��fullname  ��g��s ��g��flag  ��g��t   ��g��ret  1 ���g��filenamef�� ice-9/ftw.scm 4   5 0  5   7   7  ' 8 & 1 8  : 9  ? : ! C : ( J : ! T ; ' Z ;  [ < " g ? # r < "�  � ��g��nameg��go�CKXU��h���S���]�L4L�56���K�������g��filenamef�� ice-9/ftw.scm B  B  B �  ���C���h���d���]C���\�������g��key  �g��val  ��g��filenamef�� ice-9/ftw.scm C �   ���C� hp���v��-�1�3�445$��"�� �54445�45�55O�Q�   �O� 6����n������g��filename l�g��proc l�g��options  l�g��t   +�g��visited?  - l�g�� stat&flag  C l�g��go  P l��g��filenamef�� 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  ��g��nameg��ftw�CRZMN����h���J���]�L�6B�������g��filenamef�� ice-9/ftw.scm G   G ,�   ���C����h���V���-��1��3�C�����N�������g��args ��g��filenamef�� ice-9/ftw.scm G � ���C9C[9������h���c���]4�5L�C���[�������g��s  ��g��filenamef�� ice-9/ftw.scm J   J ' J $�  ���C���h���Q���]C����I�������g��s  ��g��filenamef�� ice-9/ftw.scm K �   ���C\6\/���h ������] $��C4� 56��������g��fullname  �g��base  �g��t   ��g��filenamef�� ice-9/ftw.scm O   P !  P   L '  Q !�   ���C\3/�h������]4L�4� 556��������g��fullname  �g��base  ��g��filenamef�� ice-9/ftw.scm R   T  L '  T   S �   ���Ch���j���]C����b�������g��fullname  �g��base  ��g��filenamef�� ice-9/ftw.scm U �   ���C\��������h���J���]�L�6B�������g��filenamef�� ice-9/ftw.scm W   W '�   ���C����h���A���]�C����9�������g��filenamef�� ice-9/ftw.scm X �   ���CD<VE���h���f���]�C^�������g��flag  ��g��filenamef�� ice-9/ftw.scm ^   ^ 1  ^ '�   ���CF����h���f���]�C^�������g��flag  ��g��filenamef�� ice-9/ftw.scm _   _ 1  _ '�   ���CTB=>GY30�����h ������]L4L�54L5L�6������z�������g��child  ��g��filenamef�� ice-9/ftw.scm q .  r 4  s 8  s 4  u 4  r 0�   ���C-W]30��������h ������]L4L�54L5L�6������z�������g��child  ��g��filenamef�� ice-9/ftw.scm q .  r 4  s 8  s 4  u 4  r 0�   ���C���hh��?��]+4L�>�� G�4L5$��"�14L�5$��"�L$��4L5$��&4�LO�4�5>��"��G��"���4L�>��"��G��4L�54L>���"��G��&��"��4>��"��G��"��4L�>��"��G��4L�54L>���"��G��&��"��4>��"��G��4L5$��&4�LO�4�5>��"��G��"���C�����7������g��fullname  c�g��base  c�g��level   c�g��s  a�g��flag  a�g��t   [�g��t  / X�g��ret  � ��g��ret  � $�� g��filenamef�� 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 ��g��nameg��go�CK]U�������h���S���]�L4L�5 6�K�������g��filenamef�� ice-9/ftw.scm ~   ~ '  ~ #�   ���C���h���d���]C���\�������g��key  �g��val  ��g��filenamef�� ice-9/ftw.scm  �   ���C\�!������hH����-�1�3�45�4�O�5$�� 45"�� 45$�� O�"�� 4 5$��4 �5$�� "�� O�"��4 5$�� O�"��45445  $�� "�� � 5 $��"�� 4445�45�5? O�      Q� 4� O�5 4 >��"��G�� C�������g��filename G�g��proc G�g�� control-flags  G�g��od   G�g��s   7�g��odev  7 G�g�� same-dev?  S G�g��maybe-cd  � G�g�� maybe-cd-back  � G�g�� depth-first?  � G�g��t � ��g��visited? � G�g�� has-kids? � G�g�� stat&flag � G�g��go  G�g��ret 0 G��g��filenamef�� 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  ��g��nameg��nftw�CR4`abeg�h���?���]�C����7�������g��dummy  �g��expr  ��   ���C��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef�� ice-9/ftw.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��expr���C5aRN*.129:FOK&��������h���J���]�M�6B�������g��filenamef�� ice-9/ftw.scm     -�   ���C��������h���V���-��1��3��6�N�������g��args ��g��filenamef�� ice-9/ftw.scm  �  ���C'(���h���n���]�LLMLL�L�6����f�������g��filenamef�� ice-9/ftw.scm  ,   4  4   4   4   .�   ���C�������h ���{���]4L��LO�>���6<������s�������g��subdir  �g��result+visited  ��g��filenamef�� ice-9/ftw.scm  &   (�   ���C+,)�����h���J���]�LL�6B�������g��filenamef�� ice-9/ftw.scm  %   9�   ���C��������h���V���-��1��3��6�N�������g��args ��g��filenamef�� ice-9/ftw.scm  %�  ���C�����h(����]EH45$���"�� 4�5K45$�� L�J6445455$��D 4 5&�4LJ5$�|4   O�544545545$�5"�45$��:4>��"��G��4LO�  5 4LJ 5 D45  $��"�� 45 $��45    "4J5 4   LO�5 4 5$��454L�   5   "54  5 &��45 4  5  " 454L   5   "454LJ5  "4L�J5D4LJ5445455DLJ6�������������g��name  !�g��path  !�g��dir-stat   !�g��result   !�g��visited   !�g�� full-name   !�g��dir  � �g��visited  � �g��entry  � �g��result � �g��subdirs � �g��r+v � ��g��t � �g��child < �g��st P ��g��filenamef�� ice-9/ftw.scm                 #  &   0   ;   <   ?   F  $ M   Q   U   [   ]  ^   h   i  w   x   �   �   �  # �   �   �  �   �  �   �   �   �   �  �  & �  �   �  # �  : �  # �  # �   �   �  + �   �        +          1   2  % 8  > <  % <   ?  % P   S   ]   ^  # e  # |   }  &   5      '   '   !   '   '   !      "   "   "                     #         !  �[  ! ��g��nameg��loop�C.K��h���J���]�LL�6B�������g��filenamef�� ice-9/ftw.scm     +�   ���C��������h���V���-��1��3��6�N�������g��args ��g��filenamef�� ice-9/ftw.scm  �  ���C� ����hX���J��-�.� ,� 3� #��O�  �Q�  4O�56��B������g��enter? V�g��leaf V�g��down  V�g��up  V�g��skip  V�g��error  V�g��init  V�g�� file-name  V�g��stat  V�g��loop % V�� g��filenamef�� ice-9/ftw.scm  %   >   ?   V  � V  ��g��nameg��file-system-foldg�� documentationf�Traverse 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���`���]C����X�������g��n  �g��s  ��g��filenamef�� ice-9/ftw.scm  .�   ���CN ��������h`������]$��I$��+$��44�5�5C456�456�456���������g��name  _�g��stat  _�g��result   _�g��w   R�g��x   R��g��filenamef�� ice-9/ftw.scm      "  %   0  4 4  7   9  �  _ ��g��nameg��leaf�C ��h��� ��]#$��{$��]$��I$��+$��44�55C456�456�456�456�456��������������g��name  ��g��stat  ��g��result   ��g��w   ��g��x   ��g��w  ' j�g��x  ' j��g��filenamef�� ice-9/ftw.scm      :  =   H  ) L  O   Q  �  � ��g��nameg��up�C��h������]L��6�������������g��name  �g��stat  �g��result   ��g��filenamef�� ice-9/ftw.scm    �  ��g��nameg��enter?*�C�������h������]C��������g��name  �g��stat  �g��result   ��g��filenamef�� ice-9/ftw.scm �      �   ��g��nameg��down�C*�����h ������]4�L5$��CL��6�����������g��name  �g��stat  �g��errno   �g��result   ��g��filenamef�� ice-9/ftw.scm           �   ��g��nameg��error�C � ��h���w��-�.�,�3�#��#��4O��O� �5 $��e(��Q"��.(��(��C4   56�4   56�$��(��C""4   56�4   56���o������g�� file-name ��g��enter? ��g��stat  ��g��leaf  ( ��g��up  ( ��g��v  K ��g��w  ^ ��g��w  n ���g��filenamef�� ice-9/ftw.scm  )   E  ; K  � � ��g��nameg��file-system-treeg�� documentationf�RReturn 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&�����h���J���]�L�6B�������g��filenamef�� ice-9/ftw.scm "   # �   ���C'()��h`������]"��J45$��4�>��"��G��L�64�54L5$�� "��"4�5"�������g��stream  `�g��entry  P�g��files   P��g��filenamef�� ice-9/ftw.scm '  (  *   *  ,  + -  , .  3 /  = /  B 0  P .  P ( Q (  X )  ` ( �  ` ���C����hH�����-�.�,�3�#��45#��4�O�455O�6���������g��name E�g��select? E�g��entry<?  E��g��filenamef�� ice-9/ftw.scm    + ' !  + ! 3 $  : !  E & � E ��g��nameg��scandirg�� documentationf�Return the list of the names of files contained in directory NAME that match predicate SELECT? (by default, all files.) The returned list of file names is sorted according to ENTRY<?, which defaults to `string-locale<?'. Return #f when NAME is unreadable or is not a directory.�CRC�������������g��m  0��g��filenamef�� ice-9/ftw.scm  � F �  �  � 7 �  � k  | )  / ' E 8  C  GH  �  GJ ���C6�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/poll.go���������������������������������������������������������������������������������������0000644�����������������00000101713�15253700563�0006760 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�4��h{A������]� g��guile � g��define-module* � � g��ice-9 g��poll � g��filenameS f��ice-9/poll.scm g��importsS g��srfi g��srfi-9   � � g��gnu   � � g��rnrs g�� bytevectors � � � g��exportsS g��make-empty-poll-set g�� poll-set? g�� poll-set-nfds g��poll-set-find-port g�� poll-set-port g��poll-set-events g��set-poll-set-events! g��poll-set-revents !g��set-poll-set-revents! "g�� poll-set-add! #g��poll-set-remove! $ !"#�  %g��set-current-module &%� '%� (g��load-extension )g�� string-append *f�� libguile- +g��effective-version ,f�� scm_init_poll -g��%sizeof-struct-pollfd .g��error /f��Unexpected struct pollfd size 0g��defined? 1g��POLLIN 2g��call-with-deferred-observers 32� 42� 5g��module-export! 65� 75� 8g��current-module 98� :8� ;1� <g��POLLPRI =<� >g��POLLOUT ?>� @g�� POLLRDHUP A@� Bg��POLLERR CB� Dg��POLLHUP ED� Fg��POLLNVAL GF� Hg�� <poll-set> Ig��%make-poll-set-procedure Jg��make-syntax-transformer KJ� LJ� Mg�� make-poll-set Ng��macro Og�� $sc-dispatch PO� QO� Rg��_ Sg��any TRSSS� Ug�� syntax-object Vg��lambda Wg�� m-c625576-d Xg��top YWX� Zg��ribcage [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� fg��x gf� hY� if�� l-c625576-f ji� kZghj� lg��shift mg�� proc-name ng��args omn� pX� qpp� rf��l-1e8ba8b5a-60 sf��l-1e8ba8b5a-61 trs� uZoqt� vg��key wg��value xg��name yg��formals zg��body {vwxyz� |ppppp� }f��l-1e8ba8b5a-53 ~f��l-1e8ba8b5a-54 f��l-1e8ba8b5a-55 �f��l-1e8ba8b5a-56 �f��l-1e8ba8b5a-57 �}~� �Z{|� �g��make-procedure-name �� �p� �f��l-1e8ba8b5a-43 �� �Z� �p� �f��l-1e8ba8b5a-42 �� �Zg� �Ydekleeeeu�  �g��hygiene �  � �UV� �g��pollfds �pdek� �� �U� �g��nfds �U� �g��ports �U� �� �g�� make-struct �g�� m-c625576-8 �X� �g��t-1e8ba8b5a-133 �g��t-1e8ba8b5a-132 �g��t-1e8ba8b5a-131 �� �g��m-1e8ba8b5a-134 �X� �� �f��l-1e8ba8b5a-138 �f��l-1e8ba8b5a-139 �f��l-1e8ba8b5a-13a �� �Z� �g�� ctor-args �� �f��l-1e8ba8b5a-120 �� �Z� �g��ctor �g��field �� �f��l-1e8ba8b5a-11c �f��l-1e8ba8b5a-11d �� �Zq� �g��form �g�� type-name �g��constructor-spec �g�� field-names �� �pppp� �f��l-1e8ba8b5a-111 �f��l-1e8ba8b5a-112 �f��l-1e8ba8b5a-113 �f��l-1e8ba8b5a-114 �� �Z� �g�� record-layout �g��functional-setters �g��setters �g��copier �g��getters �g�� constructor �g��getter-identifiers �g��field-identifiers �� �pppppppp� �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 �� �Z� �f��l-1e8ba8b5a-da �� �Zg� �dekleeeee� �U� �UH� �U � �� �� �g��each-any �Rߌ �g��syntax-violation �� �� �f��Wrong number of arguments �g�� identifier? �� �� �pek� �UI� �� �� �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��%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�  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 X� � 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 � Z� g�� copier-id  � !f��l-1e8ba8b5a-21c "!� #Z "� $g�� ctor-name %$� &f��l-1e8ba8b5a-214 '&� (Z%'� )� *f��l-1e8ba8b5a-212 +*� ,Z)+� -g��layout .-� /f��l-1e8ba8b5a-210 0/� 1Z.0� 2g�� immutable? 32� 4f��l-1e8ba8b5a-20e 54� 6Z35� 7g�� field-count 87� 9f��l-1e8ba8b5a-20c :9� ;Z8:� <g�� getter-ids =<� >f��l-1e8ba8b5a-209 ?>� @Z=?� Ag�� field-ids BA� Cf��l-1e8ba8b5a-206 DC� EZBD� Fg��predicate-name Gg�� field-spec H2FG� Ipppppp� Jf��l-1e8ba8b5a-1f9 Kf��l-1e8ba8b5a-1fa Lf��l-1e8ba8b5a-1fb Mf��l-1e8ba8b5a-1fc Nf��l-1e8ba8b5a-1fd Of��l-1e8ba8b5a-1fe PJKLMNO� QZHIP� Releeeee#e(e,e1e6e;e@eEQ� SU R� TS� Ug��and VUUR� Wg��struct? XUWR� YXS� Zg��eq? [UZR� \g�� struct-vtable ]U\R� ^]S� _pe� `UH_� a[^`� bVYa� c Tb� dpe� eUd� fg��throw-bad-struct gf� hf� ig�� pset-pollfds jg��%pset-pollfds-procedure kg��free-id lg�� %%on-error mg�� m-c625576-2a nmX� on� pf�� l-c625576-2c qp� rZgoq� snerleeeeu�  tUls� ukt� vuS� wg��%%type xg��t-1e8ba8b5a-14b yg��t-1e8ba8b5a-14c zg��t-1e8ba8b5a-14d {g��t-1e8ba8b5a-14e |g��t-1e8ba8b5a-14f }g��t-1e8ba8b5a-150 ~g��t-1e8ba8b5a-151 xyz{|}~� g��m-1e8ba8b5a-152 X� � 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 � Z� g��getter g��index � f��l-1e8ba8b5a-149 f��l-1e8ba8b5a-14a � Zq� <� ppp� f��l-1e8ba8b5a-144 f��l-1e8ba8b5a-145 f��l-1e8ba8b5a-146 � Z� erleeeee� Uw� k� RvS� g��ck g��err g��s � nn� f�� l-c625576-2f f�� l-c625576-30 � Z� nerleeeeu�  U� g��quote 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��%%<poll-set>-set-fields per� U� � � g�� t-c625576-29 � f�� l-c625576-3e � Zo� nerleeeeu�  UV� erleeeee� U� � g��if 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� g��each SS� � S S S g�� %%set-fields g��dummy g��check? g��expr � 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� g��t-1e8ba8b5a-16a g��t-1e8ba8b5a-16c g��t-1e8ba8b5a-16b � g��m-1e8ba8b5a-16d X� � f��l-1e8ba8b5a-171 f��l-1e8ba8b5a-172 f��l-1e8ba8b5a-173 � Z� f��l-1e8ba8b5a-167 f��l-1e8ba8b5a-168 f��l-1e8ba8b5a-169 � Z� eleeee�  U� pe� UH� Ui� U� UC� � g��map � � g��list g��set-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� g��t-1e8ba8b5a-18c g��t-1e8ba8b5a-18d � g��m-1e8ba8b5a-18e X� � f��l-1e8ba8b5a-192 f��l-1e8ba8b5a-193 � Z� g��setter x� f��l-1e8ba8b5a-186 f��l-1e8ba8b5a-187 f��l-1e8ba8b5a-188 � Z� G� f��l-1e8ba8b5a-17d f��l-1e8ba8b5a-17e � Zq� g�� field-specs � f��l-1e8ba8b5a-179 f��l-1e8ba8b5a-17a � Zq� eleee� U� �g��val U�� � U� UZ� U\� � pe� UH�  �  g�� struct-set!  U �  e�  U  �   � Uf� U� U� � �  � � pe� U� g��set-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@� Bg��set-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� VU�T� 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��* ng��n 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 {� ~}� g��make-bytevector g�� make-vector g�� vector-length g�� pset-size g��bytevector-copy! g��vector-move-left! g��ensure-pset-size! f��poll set index out of bounds g��integer? g�� port->fdes g��port? g��release-port-handle g��primitive-pollC�5h(<��a��]4   $5�4'�>��"��G���4(i4)i*4+i5�5,>��"��G��-i $��"��4.i/-i>��"��G��40i15$��~447:;�������h���A���]�45�6���9�������g��filenamef��ice-9/poll.scm , �  ���C>��"��G��"���40i<5$��{447:=����h���A���]�45�6���9�������g��filenamef��ice-9/poll.scm / �  ���C>��"��G��"���40i>5$��{447:?����h���A���]�45�6���9�������g��filenamef��ice-9/poll.scm 2 �  ���C>��"��G��"���40i@5$��{447:A����h���A���]�45�6���9�������g��filenamef��ice-9/poll.scm 5 �  ���C>��"��G��"���40iB5$��{447:C����h���A���]�45�6���9�������g��filenamef��ice-9/poll.scm 8 �  ���C>��"��G��"���40iD5$��{447:E����h���A���]�45�6���9�������g��filenamef��ice-9/poll.scm ; �  ���C>��"��G��"���40iF5$��{447:G����h���A���]�45�6���9�������g��filenamef��ice-9/poll.scm > �  ���C>��"��G��"���H��������h������]��C���������g��pollfds  �g��nfds  �g��ports   ��g��filenamef��ice-9/poll.scm A �   ��g��nameg��%make-poll-set-procedure�CIR4LMNQT���h���e���]��C��]�������g�� t-c625576-a  �g�� t-c625576-b  �g�� t-c625576-c   ��   ���CM�������h���Q���]L�6����I�������g��a  ��g��filenamef��ice-9/poll.scm  A �  ���CR�������h���A���]�L�69�������g��filenamef��ice-9/poll.scm  A �   ���C�h������]�C����������   ���C� �������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��ice-9/poll.scm A �  n ���C5MRH��4�H>��"��G��� Ii��HRH���h���s���]�$���CC������k�������g��obj  ��g��filenamef��ice-9/poll.scm A �   ��g��nameg��%poll-set?-procedure�CR4LNQc�������h���4���]��C������,�������g�� t-c625576-1d  ��  ���C��������h���Q���]L�6����I�������g��a  ��g��filenamef��ice-9/poll.scm  A �  ���CR�������h���A���]�L�69�������g��filenamef��ice-9/poll.scm  A �   ���Ce��������h������]�C����������   ���C� �������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��ice-9/poll.scm A �  n ���C5RHhi�����h���t���]�&��� C�6l�������g��s  ��g��filenamef��ice-9/poll.scm A �   ��g��nameg��%pset-pollfds-procedure�CjR4LiNQ��������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���4���]��C������,�������g�� t-c625576-29  ��  ���Ci�������h���Q���]L�6����I�������g��a  ��g��filenamef��ice-9/poll.scm  A �  ���CR�������h���A���]�L�69�������g��filenamef��ice-9/poll.scm  A �   ���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��ice-9/poll.scm A �  � ���C5iRHh�h���u���]�&��� C�6m�������g��s  ��g��filenamef��ice-9/poll.scm A �   ��g��nameg��%poll-set-nfds-procedure�CR4LNQ��������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���4���]��C������,�������g�� t-c625576-44  ��  ���C��������h���Q���]L�6����I�������g��a  ��g��filenamef��ice-9/poll.scm  A �  ���CR�������h���A���]�L�69�������g��filenamef��ice-9/poll.scm  A �   ���CB��������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��ice-9/poll.scm A �  � ���C5RHhC�h ���r���]�&��� C�6�������j�������g��s  ��g��filenamef��ice-9/poll.scm A �   ��g��nameg��%pset-ports-procedure�CDR4LCNQRY^��h���:���]C�����2�������g��err  �g��s  ��  ���Cagl�h���:���]C�����2�������g��err  �g��s  ��  ���Couz�h���:���]C�����2�������g��err  �g��s  ��  ���C�����h���4���]��C������,�������g�� t-c625576-5f  ��  ���CC�������h���Q���]L�6����I�������g��a  ��g��filenamef��ice-9/poll.scm  A �  ���CR�������h���A���]�L�69�������g��filenamef��ice-9/poll.scm  A �   ���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��ice-9/poll.scm A �  � ���C5CR4LNQ���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��ice-9/poll.scm A �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5RHh��h ������]�&��� C�6�������������g��s  �g��val  ��g��filenamef��ice-9/poll.scm A �   ��g��nameg��%set-pset-pollfds!-procedure�CR4LNQ�����h���N���]��C����F�������g�� t-c625576-8d  �g�� t-c625576-8e  ��  ���C�����h���Q���]L�6����I�������g��a  ��g��filenamef��ice-9/poll.scm  A �  ���CR�������h���A���]�L�69�������g��filenamef��ice-9/poll.scm  A �   ���C��������h������]�C����������   ���C� �������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��ice-9/poll.scm A �  n ���C5RHh����h ������]�&��� C�6�������������g��s  �g��val  ��g��filenamef��ice-9/poll.scm A �   ��g��nameg��%set-pset-nfds!-procedure�CR4LNQ?��������h���N���]��C����F�������g�� t-c625576-9d  �g�� t-c625576-9e  ��  ���C�����h���Q���]L�6����I�������g��a  ��g��filenamef��ice-9/poll.scm  A �  ���CR�������h���A���]�L�69�������g��filenamef��ice-9/poll.scm  A �   ���CA��������h������]�C����������   ���C� �������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��ice-9/poll.scm A �  n ���C5RHhB����h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��ice-9/poll.scm A �   ��g��nameg��%set-pset-ports!-procedure�CCR4LBNQi�������h���N���]��C����F�������g�� t-c625576-ad  �g�� t-c625576-ae  ��  ���CB�����h���Q���]L�6����I�������g��a  ��g��filenamef��ice-9/poll.scm  A �  ���CR�������h���A���]�L�69�������g��filenamef��ice-9/poll.scm  A �   ���Ck��������h������]�C����������   ���C� �������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��ice-9/poll.scm A �  n ���C5BR4LlNQ|~��������h���<���]C�����4�������g��dummy  �g��n  ��  ���C�����h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/poll.scm I �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��n���C5lRH��������h8������-��.�,�3��#�� �4�  54�5 �C�������g�� pre-allocated 8�g��pollfds ) 8�g��ports  ) 8��g��filenamef��ice-9/poll.scm L  M   M " ! M  " O  ) M � 8 ��g��nameg��make-empty-poll-set�CRHhC��h(���x���]�&�� � "�� 4�56�������p�������g��set  !��g��filenamef��ice-9/poll.scm Q  R  ! R �  ! ��g��nameg�� pset-size�CRHhiCB� �����h����]:4�5$��"��$��  "�&��� "�� 4�5�&��� "�� 4�5�&�� � "�� 4�54  5454    >��"��G��4   >��"��G���&�� � "��4� >��"��G���&��� C� 6"C��������g��set  �g��size  �g��prev  �g��new    �g�� old-pollfds  �  �g��nfds  �  �g�� old-ports  �  �g�� new-pollfds  �  �g�� new-ports  �  �� g��filenamef��ice-9/poll.scm T  U  U   V   V   W   X  ! X & Y  , Y  / Z ! I [  c \  | ] ! � ] 2 � ] ! � ^  � Z  � _  � ` " � _  � a  � b  � c   W �   ��g��nameg��ensure-pset-size!�CRHhC�����hh������] "��T�&��� "�� 4�5$��1�&�� � "�� 4�5$��C"C "��������������g��set  a�g��port  a�g��i   Z��g��filenamef��ice-9/poll.scm e  f  g # g  ' g  * h E h  H h L h  R j  X j Z f �  a ��g��nameg��poll-set-find-port�CRHhC.��������hP������]�&��� "�� 4�5$���&�� � "�� 4�5C�6�����������g��set  L�g��idx  L��g��filenamef��ice-9/poll.scm m  n  n  # n  & o  A o  F p L p �  L ��g��nameg�� poll-set-port�CRHhi.�����hX������]�&��� "�� 4�5$��$�&��� "�� 4�5  C�6��������������g��set  Q�g��idx  Q��g��filenamef��ice-9/poll.scm r  s  s  # s  & t ! B t 7 E t 4 F t  K u Q u �  Q ��g��nameg��poll-set-events�CRHhi.���hX������]�&��� "�� 4�5$��'�&��� "�� 4�5  C�6�����������g��set  T�g��idx  T�g��events   T��g��filenamef��ice-9/poll.scm w  x  x  # x  & y " B y 8 E y 5 H y  N { T { �  T ��g��nameg��set-poll-set-events!�CRHhi.��hX������]�&��� "�� 4�5$��$�&��� "�� 4�5  C�6��������������g��set  Q�g��idx  Q��g��filenamef��ice-9/poll.scm }  ~  ~  # ~  &  ! B  7 E  4 F   K � Q � �  Q ��g��nameg��poll-set-revents�C RHhi.��������hX������]�&��� "�� 4�5$��'�&��� "�� 4�5  C�6�����������g��set  T�g��idx  T�g��revents   T��g��filenamef��ice-9/poll.scm �  �  �  # �  & � " B � 8 E � 5 H �  N � T � �  T ��g��nameg��set-poll-set-revents!�C!RHhiC� �����h����]#�&��� "�� 4�5 45$��"��4545$��4>��"��G��"���4�>��"��G���&��� "�� 4� 5�&��� "�� 4� 5 �&��� "�� 4� 5  �&�� � "�� 4� 5�&��� C� 6����������g��set  �g�� fd-or-port  �g��events   �g��idx   �g��off  # �g��fd  = �g��val  � ��g��filenamef��ice-9/poll.scm �  �   �  # �  # �  & �  0 � 7 �  = �  @ �  J �  K �  a �  h �  m �  x � � �  � � � � 3 � �  � � � � 3 � �  � �  � �  � �  � � �   ��g��nameg�� poll-set-add!�C"RHh.Ci� ���h��"��]"�&��� "�� 4�5$��"��4�>��"��G���&��� "�� 4�5 �&�� � "�� 4�54�&�� � "�� 4�5�&�� � "�� 4�5>��"��G���&�� � "�� 4�54�&��� "�� 4� 5 �&��� "�� 4� 5  >��"��G���&��� "�� 4� 5  �&�� � "��4� >��"��G��C������������g��set  �g��idx  �g��nfds  z �g��off  z �g��port  z �g��val  j ��g��filenamef��ice-9/poll.scm �  �   � # �  ( �  , � 5 �  @ �  \ � _ �  z �  z �  � �  � �  � � ( � �  � �  � �  � � " � �  � �  � �   � 8  � )  �  1 �  4 � = 7 � . 8 �  = �  H � b � B e � 3 g �  j �  j � �%   ��g��nameg��poll-set-remove!�C#RHhiC�������hp������-�.�,�3�#�� �&��� "�� 4�5�&��� "�� 4�5�&�� � "�� 4�56������������g��poll-set k�g��timeout k��g��filenamef��ice-9/poll.scm �  �  5 �  O �  k � � k ��g��nameg��poll�CRC�Y������g��m  ,�g��rtd  ��g��filenamef��ice-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 � : � <% � �>  <' ���C6������������������������������������������������������ice-9/command-line.go�������������������������������������������������������������������������������0000644�����������������00000044270�15253700563�0010361 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0H������]��4���hg������]� g��guile � g��define-module* � � g��ice-9 g�� command-line � g��filenameS f��ice-9/command-line.scm g��exportsS g��compile-shell-switches g�� version-etc g��*GPLv3+* g�� *LGPLv3+* g��emit-bug-reporting-address   � g�� autoloadsS g��system g��vm � g��set-default-vm-engine! g��set-vm-engine! g��the-vm � � g��set-current-module � � g��gettext g��_ f��License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>. This is free software: you are free to change and redistribute it. There is NO WARRANTY, to the extent permitted by law. !f��License LGPLv3+: GNU LGPL 3 or later <http://gnu.org/licenses/lgpl.html>. This is free software: you are free to change and redistribute it. There is NO WARRANTY, to the extent permitted by law. "g��portS #"  $g��copyright-yearS %$  &g��copyright-holderS '&  (g�� copyrightS )(  *g��licenseS +*  ,g�� command-nameS -,  .g��packagerS /.  0g��packager-versionS 10  2#%')+-/1� 3g��current-output-port 4f��Free Software Foundation, Inc. 5g��format 6f��Copyright (C) ~a ~a 7f�� ~a (~a) ~a  8f��~a ~a  9f��Packaged by ~a (~a)  :f��Packaged by ~a  ;g��display <g��newline =g��urlS >=  ?.  @g��packager-bug-addressS A@  B#>?A� Cg�� string-append Df��http://www.gnu.org/software/ Ef��/ Ff�� Report bugs to: ~a  Gf��Report ~a bugs to: ~a  Hf��~a home page: <~a>  If��?General help using GNU software: <http://www.gnu.org/gethelp/>  Jf�Evaluate 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* Lg��current-error-port Mg��apply Nf�� Usage: ~a [OPTION]... [FILE]...  Of�� GNU Guile Pf��bug-guile@gnu.org Qf��"http://www.gnu.org/software/guile/ Rg��assq-ref Sg��%guile-build-info Tg��packager Ug��packager-bug-address Vg��exit Wg�� shell-usage Xg��current-language Yg��scheme Zg��call-with-input-string [g��read \g�� eof-object? ]g��eval ^g��current-module _g�� module-ref `g��resolve-module ag�� eval-string ba� cg��eval-string/lang dg��load-in-vicinity eg��getcwd fg��base gg��compile hfg� ig�� compile-file jg��toS kg��value lg�� load/lang mf��guile ng��string-prefix? of��- pg��string=? qf��-s rf��error:  sf��missing argument to `-s' switch tf��~% ug��@@ vul� wf��-c xf��missing argument to `-c' switch yuc� zf��-- {f��-l |f��missing argument to `-l' switch }f��-L ~f��missing argument to `-L' switch f��-C �f��missing argument to `-C' switch �f��-x �f��missing argument to `-x' switch �f��-e �f��missing argument to `-e' switch �g��open-input-string �g��memq �g��@ �u� �g��and-map �g��symbol? �g��main �� �f�� --language= �g��quote �g��string->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= �g��map �g��string->number �f��invalid SRFI specification �g��exact? �g��integer? �g�� string-split �g�� use-srfis �f��--listen �g��repl �g��server �� �g�� spawn-server �u� �� �f�� --listen= �f��invalid port for --listen �g��make-tcp-server-socket �u� �g��make-unix-domain-server-socket �u� �g��pathS �f��unknown argument to --listen �f��-h �f��--help �f��-v �f�� --version �g��version �g��packager-version �f��unrecognized switch ~a �f��1the `-ds' switch requires the use of `-s' as well �g��set-program-arguments �g��debug �g��control �� �g��% �� �g��begin �g��append �� �� �g��load-user-init �� �� �g��set! �g��%load-extensions �g��cons �� �g�� %load-path �� �g��%load-compiled-path �� �g��reverse! �� �� �g��top-repl �� �� �� �g��quit �� �g�� string-rindexC�5����h@.�����]4   5�4�>��"��G���iR4i 5R4i!5R23456789:;<�������hH����-�/��� 0�� �3� #��45�#�� #��#��45#��#��#�� #�� $��4�>��"��G��"��4�>��"��G��$��F $��!44  5 >��"��G��"��44  5>��"��G��"���4 >��"��G��4 >��"��G��4 >��"��G��4 >��"��G�� 6������g��package  H�g��version  H�g��port   H�g��copyright-year   H�g��copyright-holder   H�g�� copyright   H�g��license   H�g�� command-name   H�g��packager   H�g��packager-version  H�� g��filenamef��ice-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  g��portS g��copyright-yearS g��copyright-holderS g�� copyrightS g��licenseS g�� command-nameS g��packagerS g��packager-versionS � ��g��nameg�� version-etc�C RB3CDE5FGHI� �����h���#��-�/���0���3�#��45�#�� 4�5#��#��445>��"��G��$��+$��!44 5>��"��G��"���"���44 5�>��"��G��4 56�����������g��package  ��g�� bug-address  ��g��port   ��g��url   ��g��packager   ��g��packager-bug-address   ���g��filenamef��ice-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 �  �  g��portS g��urlS g��packagerS g��packager-bug-addressS ���g��nameg��emit-bug-reporting-address�CR4iJ5KRL3M5<N;KOP"=Q.RST@UV������h�����-�.�1�3�#��$�� 45�"��45�$��.4>��"��G��4>��"��G��"���445�>��"��G��4 >��"��G��4>��"��G��4    4545> ��"��G��$�� 6C�������g��name ��g��fatal? ��g��fmt  ��g��args  ��g��port  ) ���g��filenamef��ice-9/command-line.scm �  �   �  % �  ) �  1 �  2 �  J �  ` �  e �  i �  k �  r �  { �  � �  � �  � �  � �  � � � �  � � , � �  � �  � � ! � �  � �  � �  � � � �  ��g��nameg�� shell-usage�CWRXYZ[\]^���h@������] "��14�545$��C445�>��"��G��""������������g��port  ;�g��exp 7��g��filenamef��ice-9/command-line.scm �   �   �  �  �   �  �  " �  + �  7 �  7 � �  ; ���C_`ba� �����h0������] 45�$���64455�6�����������g��str  ,�g��key  ,��g��filenamef��ice-9/command-line.scm �  �   �   �   �   �  " � " $ �  & � 8 ( �  , � �  , ��g��nameg��eval-string/lang�CcRXYde_`hijk� ��h8������] 45�$�� 45��64455�  6������������g��f  3�g��key  3��g��filenamef��ice-9/command-line.scm �  �   �   �   �   �  ! �  % � " ' �  ) � : + �  1 � 3 � �  3 ��g��nameg�� load/lang�ClRmnopqWCrstvwxyz{|}~[\XWCrt� ��hX������] 4�5"��M�456$��-45$��45$�� $��C""""�������g��x  X�g��n X��g��filenamef��ice-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*,.RST0���h���e���]��C������]�������g��ext  ��g��filenamef��ice-9/command-line.scm     �   ���C�������h���f���]��C������^�������g��path  ��g��filenamef��ice-9/command-line.scm     �   ���C������h���f���]��C������^�������g��path  ��g��filenamef��ice-9/command-line.scm     �   ���C�l����hH����-�.�,�3�H#��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$��_456O�474' 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>��"��G��J 64K5$��"�� 4L5$��:4MN4O5�PQRS4TUV5W4TUX5> ��"��G��J 6J4Y 56KKJ$��JJ   "�� J�   "��"�J$��-J$��"��4J4Z 5>��"��G��"���4 >��"��G��J $��"��J$��J "��$��-4\]>��"��G��4^4_5�]>��"��G��"���`a4bJ$��J $��"��c"��4b45dJ54b45eJ54b45fJ54b4g 54bJ$�� Jh�"��J$��i"��j�555555�C�$��7�K4kJ/5  $��4'J 5"��JK �  "�  "������g��args  H�g�� usage-name  H�g��arg0  & H�g�� script-cell  & H�g�� entry-point  & H�g��user-load-path  & H�g��user-load-compiled-path  & H�g��user-extensions  & H�g�� interactive?  & H�g��inhibit-user-init? & H�g��turn-on-debugging? & H�g��turn-off-debugging? & H�g��args > �g��out > �g��arg  V �g��args  V �g��port   �g��arg1    �g��arg2    �g��srfis   �g��where  B �g��t  K �g��t   �g��t  @ Y�g��args  �g��out  �g��t  + I�g��slash  1��g��filenamef��ice-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 ��g��nameg��compile-shell-switches�C RC�������g��m  ,��g��filenamef��ice-9/command-line.scm  ! 3 * 4 -  : -  < -  ? , @ 2  F 2  H 2  K 1  A  ]  l   l   l   k � � V � .> � �  .@ ���C6�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/r5rs.go���������������������������������������������������������������������������������������0000644�����������������00000002641�15253700563�0006705 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�'�4�������h������]� g��guile � g��define-module* � � g��ice-9 g��r5rs � g��filenameS f��ice-9/r5rs.scm g��exportsS g��scheme-report-environment  � g�� re-exportsS g��interaction-environment g��call-with-input-file g��call-with-output-file g��with-input-from-file g��with-output-to-file g��open-input-file g��open-output-file g��close-input-port g��close-output-port g��load �  g��set-current-module � � g�� module-use! g��module-public-interface g��current-module g��resolve-interface !g�� safe-r5rs "!� #g��scheme-report-interface $g�� scm-error %g�� misc-error &f��~A is not a valid versionC�5���hx�����]4    5�4�>��"��G���4i4i4i5�54 i"5>��"��G��4i4i5�5#R$% &#����h0������]� $��"��4��>��"��G��C���������g��n  .��g��filenamef��ice-9/r5rs.scm &  ' '   (   (   (   )   *   +  # ( �  . ��g��nameg��scheme-report-environment�C RC������������g��m  ,��g��filenamef��ice-9/r5rs.scm   - ! 2 ! 7 ! & ? ! @ " F " H " M ! V $ [ $ 9 c $ f $ q & �  s ���C6������������������������������������������������������������������������������������������������ice-9/streams.go������������������������������������������������������������������������������������0000644�����������������00000017673�15253700563�0007503 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�.�4��������h[������]� g��guile � g��define-module* � � g��ice-9 g��streams � g��filenameS f��ice-9/streams.scm g��exportsS g�� make-stream g�� stream-car g�� stream-cdr g�� stream-null? g�� list->stream g��vector->stream g�� port->stream g�� stream->list g��stream->reversed-list g��stream->list&length g��stream->reversed-list&length g��stream->vector g�� stream-fold g��stream-for-each g�� stream-map   � g��set-current-module � � g�� make-promise � !� "g��force #g�� vector-length $g��reverse! %g�� make-vector &g��stream-fold-one 'g��stream-fold-many (g��or-map )g��map *g��stream-for-each-one +g��stream-for-each-many ,g��apply -g�� eof-object?C�5h�����]4   5�4�>��"��G���! �������h(������]4LL�5��$���4L�5CC������������g��o #��g��filenamef��ice-9/streams.scm V   W W   X  X   Y   Z   Z   Z  Y " [ �  # ���C�h������]�O�6�~�������g��m  �g��state  ��g��filenamef��ice-9/streams.scm U  V �   ��g��nameg�� make-stream�C R"�h������]4�5C������������g��stream  ��g��filenamef��ice-9/streams.scm ]  _  _ �  ��g��nameg�� stream-carg�� documentationf��BReturns the first element in STREAM. This is equivalent to `car'.�C R"��������h������]4�5C������������g��stream  ��g��filenamef��ice-9/streams.scm a  c  c �  ��g��nameg�� stream-cdrg�� documentationf��GReturns the first tail of STREAM. Equivalent to `(force (cdr STREAM))'.�CR"���h���?��]4�5C�����7������g��stream  ��g��filenamef��ice-9/streams.scm e  i i �  ��g��nameg�� stream-null?g�� documentationf��Returns `#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 �h���T���]�C���L�������g��l  ��g��filenamef��ice-9/streams.scm o �   ���C�h������]�6�������������g��l  ��g��filenamef��ice-9/streams.scm k n �  ��g��nameg�� list->streamg�� documentationf��oReturns a newly allocated stream whose elements are the elements of LIST. Equivalent to `(apply stream LIST)'.�CR #�����h ������] �L�$��CL��C�����������g��i  �g��t  ��g��filenamef��ice-9/streams.scm u   v  v   w   w "  w �   ���C���h ������] 4�5�O� 6�����������g��v  �g��len ��g��filenamef��ice-9/streams.scm r  t  t   s �   ��g��nameg��vector->stream�CR �����hH�����]"��/45$��D4545"� "����� ������g��stream  C�g��s  5�g��acc   5�g��len   5��g��filenamef��ice-9/streams.scm z  {   |   |   }   ~   ~ # ( ~  + ~ 7 5 ~  5 {  8 {  C { �  C ��g��nameg��stream->reversed-list&length�CR������h������]4�>�� G�C��������g��stream  �g��l �g��len  ��g��filenamef��ice-9/streams.scm �  �   � �   ��g��nameg��stream->reversed-list�CR$�h ������]4�>�� G�45D��������g��stream  �g��l �g��len  ��g��filenamef��ice-9/streams.scm �  �   �   �   � �   ��g��nameg��stream->list&length�CR$�h���$��]4�56���������g��stream  ��g��filenamef��ice-9/streams.scm �  � � �  ��g��nameg�� stream->listg�� documentationf��Returns a newly allocated list whose elements are the elements of STREAM. If STREAM has infinite length this procedure will not terminate.�CR%�hX���5��])4�>�� G�45"��%(��"��& " "C����-������g��stream  T�g��l T�g��len  T�g��v   T�g��i  ! F�g��l  ! F��g��filenamef��ice-9/streams.scm �  �   �   �   �  ! �  ' � 2 �  7 � * 8 �  ; �  > �  F �  F � �  T ��g��nameg��stream->vector�CR&'��������h(������-�1�3�(�� �6�6���������g��f &�g��init &�g��stream  &�g��rest  &��g��filenamef��ice-9/streams.scm �  �   �  $ �  & � � &  ��g��nameg�� stream-fold�CR& ������h0������]45$��C�4�455456������������g��f  +�g��r  +�g��stream   +��g��filenamef��ice-9/streams.scm �  �  �   �   �  " �  # � 3 + � �  + ��g��nameg��stream-fold-one�C&R('��h ������]�(��L�C�4L��5C������������g��cars  ��g��filenamef��ice-9/streams.scm � !  � # � '  � -  � -  � 4  � -  � '�   ��g��nameg��recur�C) ������hH������] 45$��C�4�O�Q�4455?456��������g��f  G�g��r  G�g��streams   G�g��recur  " :��g��filenamef��ice-9/streams.scm �  �   �   �  " � ! - � . 7 � ! < �  = �  G � �  G ��g��nameg��stream-fold-many�C'R*+����h(������-�1�3�(���6�6�������������g��f "�g��stream "�g��rest  "��g��filenamef��ice-9/streams.scm �  �   �  �  " � � "  ��g��nameg��stream-for-each�CR *����h8������]45$��C4�45>��"��G���456������������g��f  3�g��stream  3��g��filenamef��ice-9/streams.scm �  � �   �   �  �  + �  3 � �  3 ��g��nameg��stream-for-each-one�C*R(,) +����h@������]45$��C4�45>��"��G���456������������g��f  ;�g��streams  ;��g��filenamef��ice-9/streams.scm �  �  �   �   �  $ �  1 � ; � �  ; ��g��nameg��stream-for-each-many�C+R  �������h0������] 4�5$��C4L�4�554�5C��������������g��s  )�g��t )��g��filenamef��ice-9/streams.scm �   �  �   �   � " �  ! � 2 ( � �  ) ���C() ��������h0������] 4�5$��C4L�4�5?4�5C��������g��streams  /�g��t /��g��filenamef��ice-9/streams.scm �   �  �   �   � ( $ �  % �  . � �  / ���C�����h0���\��-�1�3�(�� �O�6�O�6����T������g��f ,�g��stream ,�g��rest  ,��g��filenamef��ice-9/streams.scm �  �   �  * �  , � � ,  ��g��nameg�� stream-mapg�� documentationf��Returns a newly allocated stream, each element being the result of invoking F with the corresponding elements of the STREAMs as its arguments.�CR -��������h(������]4L��545$��C�C������������g��p  #�g��o #�g��t   #��g��filenamef��ice-9/streams.scm �   �  �  �   �  " � �  # ���C������h������]O��6��������g��port  �g��read  ��g��filenamef��ice-9/streams.scm �  � �   ��g��nameg�� port->stream�CRC�������g��m  (��g��filenamef��ice-9/streams.scm    U  ]  a  e  k  r z g � W � � @ � N � m �  �  �  �  � g �  � �   ���C6����������������������������������������������������������������������ice-9/runq.go���������������������������������������������������������������������������������������0000644�����������������00000014710�15253700563�0006777 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�4�4��h9������]� g��guile � g��define-module* � � g��ice-9 g��runq � g��filenameS f��ice-9/runq.scm g��importsS g��q  �  � � g��exportsS g�� runq-control g��make-void-runq g��make-fair-runq g��make-exclusive-runq g��make-subordinate-runq-to g��strip-sequence g��fair-strip-subtask � g��set-current-module � � g��add! g��for-each g��enq! g�� *unspecified* g��enqueue! !g��push! "g��q-push! #g��empty? $g��q-empty? %g��length &g��q-length 'g��kill! (g��make-q )g��throw *g��not-understood +g��catch ,g��warn -g�� runq-strip .g�� run-strip /g�� apply-to-args 0g��deq! 1g�� procedure? 2g��suspend 3g��applyC�5��h�����]4   5�4�>��"��G����h���Y���]M��6������Q�������g��t  ��g��filenamef��ice-9/runq.scm I * I 6�  ���C �����h���Y���]M��6������Q�������g��t  ��g��filenamef��ice-9/runq.scm J * J 6�  ���C!"�������h���Y���]M��6������Q�������g��t  ��g��filenamef��ice-9/runq.scm K * K 6�  ���C#$%&'()*����h���,��-�1�3��H�$��4�O�>��"��G��C$��4�O�>��"��G��C$��4�O�>��"��G��C $�� J�6 $�� J�6 $�� 45�K�C6��$������g��q ��g��msg ��g��args  ���g��filenamef��ice-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 � �  ��g��nameg�� runq-control�CR+,-������h(���m���-��1��3�4L��>��"��G��C�������e�������g��ign !��g��filenamef��ice-9/runq.scm Q * Q 6  Q <  Q 6� ! ���C��������h���r���]��O�6j�������g��thunk  ��g��filenamef��ice-9/runq.scm Q  Q �   ��g��nameg�� run-strip�C.R/%�h���n���-�1�3��$�� CC��f�������g��msg �g��args ��g��filenamef��ice-9/runq.scm ]  ^ �  ���C�������h ���f���-��1��3��$���6C�������^�������g��opts ��g��filenamef��ice-9/runq.scm Z   [   \ �  ���C�������h���[���]�C���S�������g��filenamef��ice-9/runq.scm Y �   ��g��nameg��make-void-runq�CR$01.�h���l��-��1��3��$��M�@4M5$��C4M545$��.45$��4M>��"��G��"���"��V$��O45$��4M>��"��G��"���(��"��4M>��"��G��"���L�C�d������g��ctl ��g�� next-strip + ��g��k  ? b�g��k  u ���g��filenamef��ice-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� � ��g��nameg��self�C(�������h(������]H�O��Q�45�K�C���������g��q  &�g��self  &�g��q   #��g��filenamef��ice-9/runq.scm m  n   n �  & ��g��nameg��make-fair-runq�CR$01."�h�����-��1��3��$��M�@4M5$��C4M545$��.45$��4M>��"��G��"���"��V$��O45$��4M>��"��G��"���(��"��4M>��"��G��"���L�C�~������g��ctl ��g�� next-strip + ��g��k  ? b�g��k  u ���g��filenamef��ice-9/runq.scm �  �   �   �  " �  % � ) + �  . �  8 �  9 � A ? � 8 G � : H � A i �  m �  n � 7 s � B u � 7 u � . } � 0 ~ � 7 � � > � � . � � 2 � � = � � 2� � ��g��nameg��self�C(�����h(������]H�O��Q�45�K�C���������g��q  &�g��self  &�g��q   #��g��filenamef��ice-9/runq.scm �  �   � �  & ��g��nameg��make-exclusive-runq�CR#%�hH������]4L5$��L�C"��#� $��C4L>���"��G����"4L5�"��������g��n  :��g��filenamef��ice-9/runq.scm �   �   � �  �   �   �   �   �  " �  4 � 1 : �  ; �  ? � ( A �  G � �  G ���C2#�����h���g��-��1��3��$��U�$��LC4L�?L$��"��4L5$��LL4LL>��"��G��"���C4L5�4L�>��"��G��C_������g��ctl ��g��key  d�g��answer  * d�g��answer i ���g��filenamef��ice-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 � � � ��g��nameg��self�C������h0������]O�O��Q�C�����������g�� superior-runq  ,�g�� basic-runq  ,�g�� runq-task   ,�g��self   ,��g��filenamef��ice-9/runq.scm �  �   �   �   � �  , ��g��nameg��make-subordinate-runq-to�CR�h���]���]�LL�L6����U�������g��filenamef��ice-9/runq.scm �  � - � " � �  ���C�h���T���]�LL�6�������L�������g��filenamef��ice-9/runq.scm �   � " � �  ���C�h0������] �(��C4�5�$�� �L�O�C�L�O�C���������g��st  .�g��then  .��g��filenamef��ice-9/runq.scm �   �  �   �   �   �  � �  . ��g��nameg��loop�C��h ������]O���Q���M�N�6��������g��loop �g��a  ��g��filenamef��ice-9/runq.scm �  �   �   � %  � �   ���C������h���s���-��1��3��H��O�C���k�������g��strips ��g��filenamef��ice-9/runq.scm � �  ��g��nameg��strip-sequence�CR3��������h0������-��1��3�45�4�>��"��G��C��������������g��initial-strips )�g��st  )��g��filenamef��ice-9/runq.scm � �  �   �   �   � � ) ��g��nameg��fair-strip-subtask�CRC�������g��m  ,��g��filenamef��ice-9/runq.scm  0  G  Q  Y m � Z � ~ �  � �   ���C6���������������������������������������������������������ice-9/threads.go������������������������������������������������������������������������������������0000644�����������������00000026737�15253700563�0007460 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0-������]��4�������h������]� g��guile � g��define-module* � � g��ice-9 g��threads � g��filenameS f��ice-9/threads.scm g��importsS g��futures  �  � g��match � � � g��exportsS g�� begin-thread g��parallel g��letpar g�� make-thread g�� with-mutex g��monitor g��par-map g�� par-for-each g�� n-par-map g��n-par-for-each g��n-for-each-par-map g��%thread-handler �  !g��set-current-module "!� #!� $g��make-syntax-transformer %$� &$� 'g��macro (g�� $sc-dispatch )(� *(� +g��any ,g��each-any -+, .+- /g�� syntax-object 0g��call-with-new-thread 1g��top 21� 3g��ribcage 4g��dummy 5g��e0 6g��e1 7456� 8g��m-4712ba65e6-1 981� :922� ;f��l-4712ba65e6-6 <f��l-4712ba65e6-7 =f��l-4712ba65e6-8 >;<=� ?37:>� @3� Ag��x BA� C9� Df��l-4712ba65e6-3 ED� F3BCE� G2?@F� Hg��hygiene IH� J/0GI� Kg��lambda L/KGI� M/GI� NM� Og��syntax-violation PO� QO� Rf��-source expression failed to match any pattern Sg��_ TS, Ug��generate-temporaries Vg��let Wg��tmp0 XW� Y2� Zf��l-4712ba65e6-16 [Z� \3XY[� ]5� ^f��l-4712ba65e6-11 _^� `3]Y_� af��l-4712ba65e6-e ba� c3BYb� d2@\`@c� e/VdI� fg��map gf� hf� ig��future j/idI� kg��values l/kdI� mg��touch n/mdI� og��each p++� qop� rq- s+r tg��call-with-values ug��v vg��e wg��b0 xg��b1 y4uvwx� zg��m-4712ba65e6-1d {z1� |{2222� }f��l-4712ba65e6-22 ~f��l-4712ba65e6-23 f��l-4712ba65e6-24 �f��l-4712ba65e6-25 �f��l-4712ba65e6-26 �}~� �3y|� �{� �f��l-4712ba65e6-1f �� �3B� �2@� �/tI� �/KI� �/I� �g��proc �g��arg �4� �g��m-4712ba65e6-30 �1� �22� �f��l-4712ba65e6-35 �f��l-4712ba65e6-36 �f��l-4712ba65e6-37 �� �3� �� �f��l-4712ba65e6-32 �� �3B� �2@� �/0I� �/KI� �/I� �� �+. �g��m �456� �g��m-4712ba65e6-3d �1� �222� �f��l-4712ba65e6-42 �f��l-4712ba65e6-43 �f��l-4712ba65e6-44 �f��l-4712ba65e6-45 �� �3� �� �f��l-4712ba65e6-3f �� �3B� �2@� �/VI� �/AI� �g�� dynamic-wind �/I� �/KI� �g�� lock-mutex �/I� �� �� �g��begin �/I� �g�� unlock-mutex �/I� �� �� �� �g��first �g��rest �4� �g��m-4712ba65e6-4c �1� �22� �f��l-4712ba65e6-51 �f��l-4712ba65e6-52 �f��l-4712ba65e6-53 �� �3� �� �f��l-4712ba65e6-4e �� �3B� �2@� �/I� �g�� make-mutex �/I� �� �g��reverse �� �� �g�� make-future � � � � �g�� par-mapper �g��cons �g��for-each �g��const �g�� make-list �g��length �g�� join-thread �g��car �g��cdr �g��apply �g��no-value �� �g��current-error-port �g��display �f�� In thread: �g��newline �g�� display-error �f��uncaught throw to  �f��:  �g��thread-handlerC�5�����h8�����]4    5�4#�>��"��G���4&'*.JLN������h���M���]C�����E�������g��dummy  �g��e0  �g��e1   ��   ���CQR����h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/threads.scm 7 �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��e0g��e1g��...���C5R4&'*TU*,ehj������h���X���]���C�P�������g��tmp-4712ba65e6-19  �g��tmp-4712ba65e6-18  ��   ���Cln��������h���9���]��C������1�������g��tmp-4712ba65e6-1a  ��  ���C����h ���,���]4L��54�5�C�$�������g��tmp0  ��   ���CQR�����h0������]4�545$�� �O�@6w�������g��e0  0�g��tmp 0�g��tmp   0��g��filenamef��ice-9/threads.scm  @ ! @ �  0 ���CQR��h(���d���] 4�5$��@�6������\�������g��x  "�g��tmp "��g��filenamef��ice-9/threads.scm = �  " ���C5R4&'*s�h ���k���]��C��c�������g��dummy  �g��v  �g��e   �g��b0   �g��b1   ��   ���CQR������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/threads.scm E �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��vg��e�g��...�g��b0g��b1g��...���C5R4&'*.�������h���P���]�C����H�������g��dummy  �g��proc  �g��arg   ��   ���CQR�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/threads.scm K �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��procg��argg��...���C5R4&'*���h0���\���]����C�������T�������g��dummy  )�g��m  )�g��e0   )�g��e1   )��  ) ���CQR�����h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/threads.scm P �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��mg��e0g��e1g��...���C5R4&'*.���h���R���]C��J�������g��dummy  �g��first  �g��rest   ��   ���CQR�������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/threads.scm W �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��firstg��restg��...���C5R������h���L���]�LL�6D�������g��filenamef��ice-9/threads.scm `   ` �   ���Cm�������h���e��]9"��(��845454LO�54L�?L456$��8$��*$��"CCC�"s�����]������g��lists  ��g��ls  ��g��p-ls   ��g��p-ls   ��g��tails   D�g��heads   D�g��tail  3 D�g��head  3 D�g��w  N ��g��w  ] ��g��x  ] ��� g��filenamef��ice-9/threads.scm ]   ^   `  - a  3 ` < b  D b G ^  � d � ^ �  � ��g��nameg��loop�C��������h(������-�1�3�O��L�Q�6������}�������g��proc "�g��lists "�g��loop   "��g��filenamef��ice-9/threads.scm \   ] � " ���C��������h������]O�C������y�������g��mapper  �g��cons  ��g��filenamef��ice-9/threads.scm [ �  ��g��nameg�� par-mapper�CR4ifii5R4ii4i55R0f�hh������]"��]4L�>��"��G��M(��L�64M5M�4M5NMN4L�>��"��G��4L�?""��������g��args / c�g�� my-result / c��g��filenamef��ice-9/threads.scm s   t   u   v  $ w  % x % / x  4 z * > z  A { ( C {  D |  X } / _ }  c ~  c t �  g ���C� �����hx�����-�1�3�H45�H44J55H"��B�$��4J>��"��G��C4O�5JK" "�������g��n w�g��proc w�g��arglists  w�g��m   w�g��threads   w�g��results  $ w�g��result  ( w�g��i  . p��g��filenamef��ice-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  ��g��nameg�� n-par-map�CR0f����hp������]"��_4L�>��"��G��M(��L�64M5�4M5N4L�>��"��G��4L�>��"��G��""��������������g��args . e��g��filenamef��ice-9/threads.scm �   �   �   �  �  % �  & � % . �  1 � * ; �  < �  N �  e �  e � �  i ���C������hX���9��-�1�3�H45�H"��1�$��J64O�5JK" "�����1������g��n S�g��proc S�g��arglists  S�g��m   S�g��threads   S�g��i   L��g��filenamef��ice-9/threads.scm �  �  �   �   �  � $ �  , � - �  A � C �  F �  L � � S  ��g��nameg��n-par-for-each�CR0f�����h�����]"��4L�>��"��G��M(��L�6M&��KM(��L�64M5M�4M5NMN4L�>��"��G��4L�?"M�M4L�>��"��G��4L�>��"��G��4L�>��"��G��MN4L�>��"��G��"3"/�������g��args D x�g�� my-result D x�g��arg { ���g��filenamef��ice-9/threads.scm �   �   �   �  $ �  ' � & ) �  - �  9 �  : � ( D �  I � - S �  V � + X �  Y �  m � 2 t �  x �  { � ' { �  � �  � �  � �  � �  � �  � � , � �  � �  � �  � � �  � ���C� ��hp���A��-�1�3� H45�H44J55HJH"��7�$��J64O� 5JK" "��9������g��n n�g��s-proc n�g��p-proc  n�g��arglists  n�g��m   n�g��threads   n�g��results  & n�g��result  * n�g��i  0 g�� g��filenamef��ice-9/threads.scm �  �  �   �   �   �   �  � % " �  $ �  & �  & �  0 �  5 � 9 �  A � B �  \ � ^ �  a �  g � � n  ��g��nameg��n-for-each-par-mapg�� documentationf��gUsing N parallel processes, apply S-PROC in serial order on the results of applying P-PROC on ARGLISTS.�CR� �������h�����-�1�3�4545�4>��"��G��4>��"��G�� $��74 $�� "��>��"��G��"��b4>��"��G��4�>��"��G��4>��"��G��4>��"��G��4>��"��G��C�����������g��tag ��g��args ��g��n   ��g��p   ���g��filenamef��ice-9/threads.scm � �  �  �   �   � % �  . �  D �  H �  I �  Q �  T �  X �  _ �  c �  f �  n �  s �  � � � �  � � � � � � � �  � � � � � � � � ��g��nameg��thread-handler�CRiRC��������g��m  ,��g��filenamef��ice-9/threads.scm  " d [ e f  v f w g   g *  g   g  i  � | � . � 5 � �  7 ���C6����������������������������������ice-9/r4rs.go���������������������������������������������������������������������������������������0000644�����������������00000026604�15253700563�0006711 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0l-������]�'�4�������ho������]� g��apply:nconc2last g��apply g��call-with-current-continuation g��call-with-values g�� dynamic-wind f��r g�� OPEN_READ f��w g�� OPEN_WRITE f��r+ g�� OPEN_BOTH f�� /dev/null g�� *null-device* g�� open-file g��open-input-file g��open-output-file g�� open-io-file g��close-input-port g��call-with-input-file g��close-output-port g��call-with-output-file g��set-current-input-port g��with-input-from-port g��set-current-output-port g��with-output-to-port g��set-current-error-port g��with-error-to-port g��with-input-from-file g��with-output-to-file g��with-error-to-file g��call-with-input-string g��with-input-from-string !g��call-with-output-string "g��with-output-to-string #g��with-error-to-string $f��� %g�� read-char &g��the-eof-objectC�5����hh(��B��]���������h������-�1�3��45@�����������g��fun �g��args ��g��filenamef��ice-9/r4rs.scm ! "   " �  ��g��nameg��apply�CR����h������]�B���~�������g��proc  ��g��filenamef��ice-9/r4rs.scm #  $ �   ��g��nameg��call-with-current-continuation�CR�����h������]4�>���6<��������g��producer  �g��consumer  ��g��filenamef��ice-9/r4rs.scm %  & �   ��g��nameg��call-with-values�CR�hH���}��]�4�>���"��G��V4>���X4>���"��G��CX4>���"��G��F�����u������g��in  C�g��thunk  C�g��out   C��g��filenamef��ice-9/r4rs.scm '  Y   Y  ! Y �  C ��g��nameg�� dynamic-windg�� documentationf�All 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 lisp�CRR R  R  R����h���2��]�6������*������g��str  ��g��filenamef��ice-9/r4rs.scm t x �  ��g��nameg��open-input-fileg�� documentationf��Takes 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�����]�6������������g��str  ��g��filenamef��ice-9/r4rs.scm z  �  ��g��nameg��open-output-fileg�� documentationf�Takes 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������]�6�������������g��str  ��g��filenamef��ice-9/r4rs.scm � � �  ��g��nameg�� open-io-fileg�� documentationf��2Open file with name STR for both input and output.�CR��������h8���8��]4�54>�� G4>��"��G��E�������0������g��str  1�g��proc  1�g��p  1�g��vals   1��g��filenamef��ice-9/r4rs.scm �  � �  �   �   �  1 � �  1 ��g��nameg��call-with-input-fileg�� documentationf�EPROC 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.�CR�����h8���V��]4�54>�� G4>��"��G��E�������N������g��str  1�g��proc  1�g��p  1�g��vals   1��g��filenamef��ice-9/r4rs.scm �  � �  �   �   �  1 � �  1 ��g��nameg��call-with-output-fileg�� documentationf�bPROC 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.�CR��������h���i���]�4M�5N�C���a�������g��filenamef��ice-9/r4rs.scm �   � ) � �  ��g��nameg��swaports�C����hX������] �H�O��Q�4>���"��G��V4>���X4>���"��G��CX4>���"��G��F�����������g��port  T�g��thunk  T�g��swaports   T��g��filenamef��ice-9/r4rs.scm �  �   � �  T ��g��nameg��with-input-from-port�CR������h���i���]�4M�5N�C���a�������g��filenamef��ice-9/r4rs.scm �   � ) � �  ��g��nameg��swaports�C����hX������] �H�O��Q�4>���"��G��V4>���X4>���"��G��CX4>���"��G��F�����������g��port  T�g��thunk  T�g��swaports   T��g��filenamef��ice-9/r4rs.scm �  �   � �  T ��g��nameg��with-output-to-port�CR�������h���i���]�4M�5N�C���a�������g��filenamef��ice-9/r4rs.scm �   � ) � �  ��g��nameg��swaports�C����hX������] �H�O��Q�4>���"��G��V4>���X4>���"��G��CX4>���"��G��F�����������g��port  T�g��thunk  T�g��swaports   T��g��filenamef��ice-9/r4rs.scm �  �   � �  T ��g��nameg��with-error-to-port�CR������h���[���]�L�6������S�������g��p  ��g��filenamef��ice-9/r4rs.scm �  � �  ���C��h�����]�O�6�������g��file  �g��thunk  ��g��filenamef��ice-9/r4rs.scm �  � �   ��g��nameg��with-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.�CR��������h���[���]�L�6������S�������g��p  ��g��filenamef��ice-9/r4rs.scm �  � �  ���C��h�����]�O�6�������g��file  �g��thunk  ��g��filenamef��ice-9/r4rs.scm �  � �   ��g��nameg��with-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.�CR����h���[���]�L�6������S�������g��p  ��g��filenamef��ice-9/r4rs.scm �  � �  ���C��h�����]�O�6�������g��file  �g��thunk  ��g��filenamef��ice-9/r4rs.scm �  � �   ��g��nameg��with-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.�CR������h���[���]�L�6������S�������g��p  ��g��filenamef��ice-9/r4rs.scm �  � �  ���C��h���#��]�O�6�������g��string  �g��thunk  ��g��filenamef��ice-9/r4rs.scm �  � �   ��g��nameg��with-input-from-stringg�� documentationf�xTHUNK 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���[���]�L�6������S�������g��p  ��g��filenamef��ice-9/r4rs.scm �  � �  ���C��h������]�O�6����������g��thunk  ��g��filenamef��ice-9/r4rs.scm � � �  ��g��nameg��with-output-to-stringg�� documentationf��/Calls THUNK and returns its output as a string.�C"R!�������h���[���]�L�6������S�������g��p  ��g��filenamef��ice-9/r4rs.scm �  � �  ���C��h������]�O�6����������g��thunk  ��g��filenamef��ice-9/r4rs.scm � � �  ��g��nameg��with-error-to-stringg�� documentationf��5Calls THUNK and returns its error output as a string.�C#R4i$%������h���[���]�6S�������g��p  ��g��filenamef��ice-9/r4rs.scm � 2  � >�   ���C5&RC������:������g��filenamef��ice-9/r4rs.scm � ! Y #  %  '  n   n  o   o  p   p  r   r M t  z � s �  �  � j �  � g �  � "I � % � &p � ' � ' �  ' � / (] �  (` � �  (b ���C6�����������������������������������������������������������������������������������������������������������������������������ice-9/common-list.go��������������������������������������������������������������������������������0000644�����������������00000030504�15253700563�0010252 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0,1������]�2�4����h5������]� g��guile � g��define-module* � � g��ice-9 g�� common-list � g��filenameS f��ice-9/common-list.scm g��exportsS g��adjoin g��union g�� intersection g��set-difference g�� reduce-init g��reduce g��some g��every g��notany g��notevery g��count-if g��find-if g�� member-if g�� remove-if g�� remove-if-not g�� delete-if! g��delete-if-not! g��butlast g��and? g��or? g��has-duplicates? !g��pick "g�� pick-mappings #g��uniq $   !"#� %g��set-current-module &%� '%� (g��memq )g��reverse! *g��memv +g��map ,g��car -g��cdr .g��length /g��error 0f��negative argument to butlast 1g��memberC�5������hp,��*��]4   $5�4'�>��"��G���(��h������]4�5$��C�C�������g��e  �g��l  ��g��filenamef��ice-9/common-list.scm M  O   O   O �   ��g��nameg��adjoing�� documentationf��GReturn list L, possibly with element E added if it is not already in L.�C R  �������h(���7��]�(��C(���C�4�56���/������g��l1  %�g��l2  %��g��filenamef��ice-9/common-list.scm Q  U   W   W   W & # W  % W �  % ��g��nameg��uniong�� documentationf��wReturn 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$��""�"������������g��l1  R�g��l2  R�g��l1   G�g��result   G��g��filenamef��ice-9/common-list.scm Y  \   ]   ^   ^   _  ! _  % _  ) ^  , _ ( / _ 7 2 _ 1 : _ " = `  G `  G ]  J ] ! R ] �  R ��g��nameg�� intersectiong�� documentationf��yReturn a new list that is the intersection of L1 and L2. Only elements that occur in both lists occur in the result list.�CR)*�hP���r��]"��8(��645$�� ""�"�������j������g��l1  I�g��l2  I�g��l1   >�g��result   >��g��filenamef��ice-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 ��g��nameg��set-differenceg�� documentationf��5Return elements from list L1 that are not in list L2.�CR�����h �����](��C�4�56��������g��p  �g��init  �g��l   ��g��filenamef��ice-9/common-list.scm i  k   m   m   m   m &  m �   ��g��nameg�� reduce-initg�� documentationf��ESame as `reduce' except it implicitly inserts INIT at the start of L.�CR����h(������](��C(��C�6������������g��p  "�g��l  "��g��filenamef��ice-9/common-list.scm o  u   v   u   v   w  w % " w �  " ��g��nameg��reduceg�� documentationf�9Combine 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���$��-�1�3�(��0"��$(��C4�5$��C"""��8(��C4�45?$��C45""�������g��pred ��g��l ��g��rest  ��g��l   7�g��t  # 7�g��l  C {�g��rest  C {�g��t  \ {��g��filenamef��ice-9/common-list.scm y  �   �  �  �  ! �  # �  # �  1 � ) 7 � # 7 � C �  I �  L �  Q � % R � - \ �  \ �  j �  k � ' { �  { � � �  ��g��nameg��someg�� documentationf�pPRED 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+,-�������h���C��-�1�3�(��+"��(��C4�5$�� "C""��3(��C4�45?$��45"C"���;������g��pred }�g��l }�g��rest  }�g��l   2�g��l  > q�g��rest  > q��g��filenamef��ice-9/common-list.scm �  �   �  �  �   �  ! �  # �  ' �  * � ) 0 � # 2 � > �  D �  E �  G �  L � % M � - W �  [ �  ^ �  _ � ' o �  q � � }  ��g��nameg��everyg�� documentationf��Return #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.�CR����h���U��-�1�3�4�?C����M������g��pred �g��ls ��g��filenamef��ice-9/common-list.scm � �   � �  ��g��nameg��notanyg�� documentationf��Return #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.�CR��h���S��-�1�3�4�?C����K������g��pred �g��ls ��g��filenamef��ice-9/common-list.scm � �   � �  ��g��nameg��noteveryg�� documentationf��Return #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.�CRhH���h��]"��0(��C4�5$��"" "�������`������g��pred  A�g��l  A�g��n   6�g��l   6��g��filenamef��ice-9/common-list.scm �  �  �   �  �   �  �   � ! � ( ) �  . �  6 �  6 � �  A ��g��nameg��count-ifg�� documentationf��IReturn the number of elements in L for which (PRED element) returns true.�CR�������h(���X��](��C4�5$��C�6�����P������g��pred  #�g��l  #��g��filenamef��ice-9/common-list.scm �  �  �  �   �  �   �  ! �  # � �  # ��g��nameg��find-ifg�� documentationf��|Search for the first element in L for which (PRED element) returns true. If found, return that element, otherwise return #f.�CR�������h(�����](��C4�5$��C�6������������g��pred  "�g��l  "��g��filenamef��ice-9/common-list.scm �  �  �  �   �  �  �  " � �  " ��g��nameg�� member-ifg�� documentationf��9Return the first sublist of L for whose car PRED is true.�CR)�hH�����]"��6(��64�5$�� """�������g��pred  G�g��l  G�g��l   <�g��result   <��g��filenamef��ice-9/common-list.scm �  �  �   �   �  �   �  �  ! � + �  . �  1 � $ 4 �  < �  < �  ? �  G � �  G ��g��nameg�� remove-ifg�� documentationf��WRemove all elements from L where (PRED element) is true. Return everything that's left.�CR)�������hH�����]"��6(��64�5$��"""�������g��pred  G�g��l  G�g��l   <�g��result   <��g��filenamef��ice-9/common-list.scm �  �  �   �   �   �   �   �  ! �  $ � $ ' �  / �  2 � & < � < �  ? �  G � �  G ��g��nameg�� remove-if-notg�� documentationf��URemove all elements from L where (PRED element) is #f. Return everything that's left.�CRh0������]�(��C4L��5$�� ��"�4L�5�C����������g��l  -��g��filenamef��ice-9/common-list.scm �   �  �  �  �   �  �   � %  �  " �  ' � " ) �  * � �  - ��g��nameg�� delete-if�C��h������] O��Q�6�������g��pred  �g��l  �g�� delete-if  ��g��filenamef��ice-9/common-list.scm � � �   ��g��nameg�� delete-if!g�� documentationf��#Destructive version of `remove-if'.�CRh0������]�(��C4L��5$���4L�5�C��"����������g��l  -��g��filenamef��ice-9/common-list.scm �   �  �  �   �   �   �   �   � & �  ! � ' � / - � �  - ��g��nameg�� delete-if-not�C������h������] O��Q�6�������g��pred  �g��l  �g�� delete-if-not  ��g��filenamef��ice-9/common-list.scm � � �   ��g��nameg��delete-if-not!g�� documentationf��'Destructive version of `remove-if-not'.�CR����h(������]�(���C $���4L��5CC����������g��lst  %�g��n  %��g��filenamef��ice-9/common-list.scm �   �   �   �   �   � (  � ,  � 6 ! � ( " �  $ � �  % ��g��nameg��bl�C./0����hH���<��]HO�Q�4�5K� $�� 45"��J6������4������g��lst  B�g��n  B�g��l   B�g��bl  B�g��l   %��g��filenamef��ice-9/common-list.scm �  �   �   �  , �  1 � 2 �  6 �  : �  B � �  B ��g��nameg��butlastg�� documentationf��*Return all but the last N elements of LST.�CR���h(������-��1��3��(��C�$���@C��������������g��args !��g��filenamef��ice-9/common-list.scm �  �   �  �   �  � � ! ��g��nameg��and?g�� documentationf��#Return #t iff all of ARGS are true.�CR���h(������-��1��3��(��C�$��C�@��������������g��args !��g��filenamef��ice-9/common-list.scm �  �   �  �   �  ! � � ! ��g��nameg��or?g�� documentationf��"Return #t iff any of ARGS is true.�CR1 ���h(�����]�(��C4��5$��C�6�������������g��lst  "��g��filenamef��ice-9/common-list.scm �  �  �  �   �   �  �  �  " � �  " ��g��nameg��has-duplicates?g�� documentationf��3Return #t iff 2 members of LST are equal?, else #f.�C R����hH�����]"��3(��C4�5$��"""����������g��p  D�g��l  D�g��s   9�g��l   9��g��filenamef��ice-9/common-list.scm �  �  �   �   �  �   �   � $ ! �  $ � / , �  1 � 9 �  9 �  : �  D � �  D ��g��nameg��pickg�� documentationf��ZApply P to each element of L, returning a list of elts for which P returns a non-#f value.�C!R������hH�����]"��6(��C4�5$��"""�������g��p  G�g��l  G�g��s   <�g��l   <�g��t   <��g��filenamef��ice-9/common-list.scm �                 $  0 '  A /  * 4  <   <   =   G  �  G ��g��nameg�� pick-mappingsg�� documentationf��PApply P to each element of L, returning a list of the non-#f return values of P.�C"R)(���hH���\��]"��1(��645$��"��"�"������T������g��l  B�g��acc  7�g��l   7��g��filenamef��ice-9/common-list.scm                     )   ,   /   7   7   8   B  �  B ��g��nameg��uniqg�� documentationf��@Return a list containing elements of L, with duplicates removed.�C#RC�������"������g��m  (��g��filenamef��ice-9/common-list.scm  4 A M  Q  Y  b  i K o  y  � p �  �  � C �  �  �  �  � � #w � $ � % � & � ( � * � ,g  �  ,i ���C6���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/boot-9.go�������������������������������������������������������������������������������������0000644�����������������00001001345�15253700563�0007124 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0�����] �4�h ������]� g��current-module g��error f��'re-loading ice-9/boot-9.scm not allowed f��prompt g��gensym g��make-prompt-tag g��default-prompt-tag g��call-with-prompt g��abort-to-prompt g��with-throw-handler g��memq g��apply g�� make-fluid g��quit g��primitive-exit g��integer? g��format g��current-error-port f�� guile: uncaught throw to ~a: ~a  g�� scm-error g��wrong-type-arg f��catch f��&Wrong type argument in position ~a: ~a g��catch f��with-throw-handler f��throw g��throw g��map g��car g��cdr g��for-each g��primitive-load-path !f�� ice-9/r4rs "g��newline #g��display $f��;;;  %g��write &g�� last-pair 'g��peek (g��pk )g��with-output-to-port *g��current-warning-port +f�� ;;; WARNING  ,g��warn -g�� *features* .g��provide /g�� provided? 0g�� make-struct 1g��make-struct/no-tail 2g��absolute-file-name? 3g��and-map 4g��or-map 5g�� simple-format 6g�� string-length 7g��string-any-c-code 8g�� procedure? 9g�� string-ref :g�� string-any ;g��string-every-c-code <g�� string-every =g�� string-fill! >g��substring-fill! ?g��guile @?� Ag�� module-name Bg�� hashq-set! Cg��%get-pre-modules-obarray Dg�� module-add! Eg�� hashq-ref Fg�� make-variable Gg��module-define! Hg��module-variable If��badness! Jg�� module-ref Kg��module-generate-unique-id! Lg�� module-gensym Mg��resolve-module Ng��syntax-violation Og�� datum->syntax Pg�� syntax->datum Qg�� syntax-source Rg�� identifier? Sg��generate-temporaries Tg��bound-identifier=? Ug��free-identifier=? Vg�� $sc-dispatch Wf��ice-9/psyntax-pp Xg��make-syntax-transformer Yg��and Zg��macro [g��any \[� ]g�� syntax-object ^g��top _^� `g��ribcage ag��dummy ba� cg�� m-bde397a-a11 dc^� ed� ff�� l-bde397a-a16 gf� h`beg� i`� jg��x kj� lf�� l-bde397a-a13 ml� n`kem� o_hin� pg��hygiene qp?� r]oq� s[[� t[[ u[t vg��if wg��y 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 �g��or �g�� m-bde397a-a24 �^� �� �f�� l-bde397a-a29 �� �`b� �f�� l-bde397a-a26 �� �`k� �_i� �]q� �g��let �__� �f�� l-bde397a-a31 �f�� l-bde397a-a32 �f�� l-bde397a-a33 �� �`x� �_i� �]q� �g��t �]q� �]vq� �]q� �g�� quasisyntax �g��free-id �g��level �j� �__� �f�� l-bde397a-a3f �f�� l-bde397a-a40 �� �`� �g��expand �� �_� �f�� l-bde397a-a3b �� �`� �g��e �� �_� �f�� l-bde397a-a3a �� �`� �_i� �]q� �� �[� �g��_ �[� �s� �g��unsyntax �]q� �� �[� �g��each-any � �[ �g��unsyntax-splicing �]q� �� � �[ �[� �� �g��append �g��vector �� �g�� vector->list �g�� list->vector �[� �� �g��k �g��r �� �f�� l-bde397a-a8f �f�� l-bde397a-a90 �� �`� �_i� �]q� �� �g�� m-bde397a-a96 �^� �� �f�� l-bde397a-a97 �� �`� �_ii� �]q� �� �g��... �g��r* �g��rep �� �___� �f�� l-bde397a-a7b �f�� l-bde397a-a7c �f�� l-bde397a-a7d �� �`� �� �f�� l-bde397a-a74 �f�� l-bde397a-a75 �� �`� �_iii�  �]q� �� �g��each �� �g��list �� �[� �g�� with-syntax �g�� template* �g�� replacements �� �f�� l-bde397a-acc �f�� l-bde397a-acd �� �`� g��template � f�� l-bde397a-ac7 � `� _i�� ]q� g��syntax  ]q�  f��Invalid expression  g��when  [  [  [  g��test g��stmt g��stmt* 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� "g��begin #]" q� $g��unless %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� 4g��not 5]42q� 6]"2q� 7g��cond 8  9g��else :g�� bad-clause ;:� <f�� l-bde397a-b21 =<� >`;=� ?g��clause @?� Af�� l-bde397a-b1f BA� C`@B� Dg��clauses E?D� Ff�� l-bde397a-b0e Gf�� l-bde397a-b0f HFG� I`EH� Jg�� reverse-map Kg��fold 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  [g��tail \[� ]f�� l-bde397a-b2c ^]� _`\^� `g��e* a`� bf�� l-bde397a-b27 cf�� l-bde397a-b28 dbc� e`ad� f_i_e>CIQV�  g]"fq� hf��else must be the last clause iY jf��invalid 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� zg��receiver {z� |f�� l-bde397a-b30 }f�� l-bde397a-b31 ~|}� `{~� _iviiiy>CIQV�  ]q� ]q� ]vq� � m [ f��$wrong number of receiver expressions [[m[� g��call-with-values g�� t-bde397a-b4c � g�� m-bde397a-b4d ^� � f�� l-bde397a-b51 � `� f�� l-bde397a-b4b � `\� g�� generator g��guard z� f�� l-bde397a-b44 f�� l-bde397a-b45 f�� l-bde397a-b46 � `� _iiii>CIQV�  ]q� g��lambda ]q� g��vals ]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� g��case   g��rest � f�� l-bde397a-bd6 f�� l-bde397a-bd7 � `� f�� l-bde397a-bd0 � `;� g��seen ?� f�� l-bde397a-bcd f�� l-bde397a-bce � `� g��key � f�� l-bde397a-bbd � `� g��expr ?D� f�� l-bde397a-bb5 f�� l-bde397a-bb6 f�� l-bde397a-bb7 � `� g��reverse-map-with-seed g��fold2 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� g��memv g��system g��base g��message � g��warning � � g��duplicate-case-datum g��source-properties g��array? g��bad-case-datum g�� t-bde397a-bf5 � g�� m-bde397a-bf6 ^� � f�� l-bde397a-bfa  � !` � "f�� l-bde397a-bf4 #"� $`\#� %� &f�� l-bde397a-be2 '&� (`%'� )g��datums *)� +f�� l-bde397a-be0 ,+� -`*,� .g�� clause-expr /.� 0f�� l-bde397a-bdc 10� 2`/1� 3_i!iii$i(-i2iii�� 4]v3q� 5]3q� 6g��quote 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� Eg��do F � G  HFG I[H Jg��letrec Kg��var Lg��init Mg��step Ng��command 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� bg��loop c]b`q� d]`q� e]v`q� f]"`q� g]`q� hegg� i]E`q� jf��step k]j`q� lg��atom mlj� n[m[� o[m[[� pg��wrong-number-of-args qf��Cdefine-values: wrong number of return values returned by expression rg��%define-values-arity-error sg�� define-values t[� ua� vg��define 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� � � � � \[� g��each+ [\� [� [[� [[� [� f�� l-bde397a-c7f � `b� g��var0 g��varn � f�� l-bde397a-c76 f�� l-bde397a-c77 f�� l-bde397a-c78 � `� _iiiii�  ]"q� ]vq� ]q� ]q� ]q� ]q� ]q� ]rq� � � � ]q� g��v ]q� ]q� g��set! ]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� � � � � g��delay g�� make-promise g��exp a� g�� m-bde397a-c87 ^� _� f�� l-bde397a-c8c f�� l-bde397a-c8d � `� � f�� l-bde397a-c89 � �`k� _i�� ]q� ]q� g��current-source-location � g��s � f�� l-bde397a-c96  �  ` �  f�� l-bde397a-c91   �  `k � _i i � ]6q� g��current-filename g��canonicalize-path g��assq-ref g��filename g�� define-once [[[� g��sym g��val 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� (g��module-locally-bound? )](%q� *]%q� +*� ,]6%q� -f��map .f��Circular list: ~S /g��reverse! 0f��Not a list: ~S 1f��List of wrong length: ~S 2g��length 3g�� map-in-order 4f��for-each 5f��Unexpected tail: ~S 6g��binaryS 76  8g��encodingS 98  :g��guess-encodingS ;:  <79;� =g�� open-file >f��rb ?f��r @g��open-input-file A79� Bf��wb Cf��w Dg��open-output-file E6  F8  G:  HEFG� Ig��close-input-port Jg��call-with-input-file KEF� Lg��close-output-port Mg��call-with-output-file Ng��with-input-from-port Og��with-input-from-file Pg��with-output-to-file Qg��with-error-to-port Rg��with-error-to-file Sg��set-exception-printer! Tg��and=> Ug�� frame-source Vf��<unnamed port> Wf�� ~a:~a:~a:  Xf��ERROR:  Yf��!Throw to key `~a' with args `~s'. Zg��frame-procedure [f��In procedure ~a:  \g��procedure-name ]f��Error while printing exception. ^g�� force-output _g��print-exception `f��In procedure ~a:  ag�� goops-error bg��host-not-found cg��keyword-argument-error df��~a: ~s eg�� misc-error fg��no-data gg�� no-recovery hg��null-pointer-error ig�� out-of-range jg�� program-error kg�� read-error lg��regular-expression-syntax mg��signal ng��stack-overflow og�� system-error pg�� try-again qg��unbound-variable rg�� syntax-error sf��Syntax error:  tf�� unknown file ug��line vg��1+ wg��column xf��unknown location:  yf��~a:  zf��~a {f�� in subform ~s of ~s |f�� in form ~s }g��getaddrinfo-error ~f��In procedure getaddrinfo: ~a g�� gai-strerror g�� define-macro t   t  g��args g��body 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� [[[� g��string? g�� define-syntax g��doc Z� f�� l-bde397a-e29 f�� l-bde397a-e2a f�� l-bde397a-e2b � `� _i� ]q� ]q� ]wq� � g�� macro-type ]q� g��defmacro ]q�  g�� defmacro-args ]q� ]q� � � g�� syntax-case ]q� ]q�  ]q� ]q� ]Pq� ]q� � � � � ]Oq� ] q� � g��body1 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� g��begin-deprecated g��include-deprecated-features g��form g��form* � f�� l-bde397a-e54 f�� l-bde397a-e55 � `� f�� l-bde397a-e51 � `k� _i� ]"q� � g��identity g��compose g��negate g��const g��call-with-current-continuation g��call/cc g��false-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� � � g��warningS l�   [ [ g��arg 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� <g��call-with-output-string =]<"q� >g��port ?]>"q� @?� A]_"q� B]"q� CA?B&'� DC� E] "q� FE� GB� Hg��make-weak-key-hash-table Ig�� make-mutex Jg��make-procedure-with-setter Kg�� lock-mutex Lg�� unlock-mutex Mg��make-object-property Ng��assoc Og�� symbol-pref Pg��symbol-property Qg�� symbol-pset! Rg��set-symbol-property! Sg��delq! Tg��symbol-property-remove! Ug��number? Vg��array-dimensions Wg�� array-shape Xg��member Yg�� kw-arg-ref Zg��vtable-index-layout [g�� struct-layout \g��get-print-state ]g��port-with-print-state ^g��inherit-print-state _g�� make-vtable `g�� string-append ag��standard-vtable-fields bf��prprpw cf��#<record-type  dg��record-type-name ef��> fg��set-struct-vtable-name! gg�� record-type hg��record-type-vtable ig�� record-type? jf��#< kg��record-type-descriptor lf��  mf��:  ng��record-type-fields og��make-struct-layout pf��pw qg�� copy-tree rg��vtable-offset-user sf��make-~a tf��Wrong number of arguments ug��string->symbol vg��make-record-type wg��not-a-record-type xg��primitive-eval yg��record-constructor zg��record-predicate {f��%record-type-check |f��!Wrong type record (want `~S'): ~S }g��%record-type-error ~g�� list-index g�� no-such-field g��record-accessor g��record-modifier g��record? g�� not-a-record g��record g��->bool g��symbol->string g�� symbol-append g�� list->string g�� list->symbol g��string g��symbol f�� ice-9/posix g��socket f��ice-9/networking g��posix g��stat g�� OPEN_READ g�� close-port g�� file-exists? g�� stat:type g�� directory f��/. g��file-is-directory? g��list-ref g��system-error-errno f��? g�� string-join f��~A g�� make-list f��~S g��tm:sec g��tm:min g��tm:hour g��tm:mday g��tm:mon g��tm:year g��tm:wday g��tm:yday g��tm:isdst g�� tm:gmtoff g��tm: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 g��ftell g�� file-position g��SEEK_SET g��seek g��file-set-position g�� dup->fdes g��close g��primitive-move->fdes g��set-port-revealed! g�� move->fdes g�� port-revealed g��release-port-handle g��fdopen g�� dup->port g�� dup->inport g�� dup->outport g�� port-mode g��dup g��duplicate-port g�� input-port? g�� fdes->ports g�� fdes->inport g�� output-port? g�� fdes->outport g��fileno g�� port->fdes g��putenv f��= g��setenv g��unsetenv g��char=? g��file-name-separator? f��/ g��file-name-separator-string g��string-prefix? f��� g�� in-vicinity g��program-arguments g�� command-line g��getenv f��HOME g�� passwd:dir g��getpwuid g��getuid f��.guile g��primitive-load g��load-user-init f�� start-stack g��%stacks g�� %start-stack g�� start-stack g��tag a� g��m-bde397a-11e7 ^� __� f��l-bde397a-11ec f��l-bde397a-11ed f��l-bde397a-11ee � `� � f��l-bde397a-11e9 � `k� _i� ]q� ]q� g�� load-stack g��load-from-path �g��add-to-load-path g�� eval-when g��elt a� g��m-bde397a-11f6 ^� _� f��l-bde397a-11fb f��l-bde397a-11fc  �  ` �  �  f��l-bde397a-11f8   � `k  � _ i� ]q� ]q� g��load ]q� g��eval ]q� � ]q� g�� %load-path ]q� g��cons ]q� g��delete ]q� � g��%load-verbosely  g��assert-load-verbosity !f��loading  "g��%load-announce #g�� %load-hook $g�� read-eval? %g��read-hash-extend &g��read 'g��interaction-environment (f��-#. read expansion found and read-eval? is #f. )g�� module-kind *f��module +g��number->string ,g��object-address -g�� %print-module .g��"pwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpw /g��module 0g��obarray 1g��uses 2g��binder 3g�� eval-closure 4g��name 5g��kind 6g��duplicates-handlers 7g��import-obarray 8g�� observers 9g��weak-observers :g��version ;g�� submodules <g��submodule-binder =g��public-interface >g��next-unique-id ?0123456789:;<=>� @g�� module-type Ag��module-constructor Bg��module? Cg��module-obarray Dg��set-module-obarray! Eg�� module-uses Fg��set-module-uses! Gg�� module-binder Hg��set-module-binder! Ig��module-eval-closure Jg��set-module-eval-closure! Kg��set-module-transformer! Lg��set-module-name! Mg��set-module-kind! Ng��module-duplicates-handlers Og��set-module-duplicates-handlers! Pg��module-import-obarray Qg��module-observers Rg��set-module-observers! Sg��module-weak-observers Tg��module-version Ug��set-module-version! Vg��module-submodules Wg��set-module-submodules! Xg��module-submodule-binder Yg��set-module-submodule-binder! Zg��module-public-interface [g��set-module-public-interface! \g��module-filename ]g��set-module-filename! ^g��module-next-unique-id _g��set-module-next-unique-id! `f��Illegal size to make-module. af��Incorrect use list. bf��-Lazy-binder expected to be a procedure or #f. cg��make-hash-table dg�� macroexpand eg�� make-module fg��module-observe gg��module-observe-weak hg�� hash-remove! ig��delq1! jg��module-unobserve kg��module-defer-observers lg�� recursive mg��module-defer-observers-mutex ng��module-defer-observers-table og�� hash-set! pg��module-call-observers qg��module-modified rg�� hash-for-each sg�� hash-clear! tg��call-with-deferred-observers ug�� module-search vg��module-local-variable wg�� module-bound? xg��hashq-get-handle yg��hash-get-handle zg��module-obarray-get-handle {g��hash-ref |g��module-obarray-ref }g��module-obarray-set! ~g�� hashq-remove! g��module-obarray-remove! g��module-symbol-locally-interned? g��module-symbol-interned? f��Locally unbound variable. g��module-symbol-local-binding f��Unbound variable. g��module-symbol-binding g�� variable? g��make-undefined-variable g��module-make-local-var! g��module-ensure-local-variable! f��Bad variable to module-add! f��Bad symbol to module-add! g��module-remove! g�� module-clear! g��module-for-each g��hash-map->list g�� module-map g��module-ref-submodule g��module-define-submodule! f��not in submodules table f��defining module f��!: not overriding local definition g��set-current-module g��save-module-excursion f��No variable named g��in g�� module-set! g��module-defined? g�� module-use! g��reverse g��module-use-interfaces! g�� nested-ref f��failed to resolve module g�� nested-set! g��nested-define! g��nested-remove! g��nested-ref-module f��can't redefine root module g��nested-define-module! g�� local-ref g�� local-set! g�� local-define g�� local-remove g��local-ref-module g��local-define-module g��the-root-module g�� interface g��the-scm-module f��/unexpected module to resolve during module boot g��define-module* g��process-use-modules g��module-export! g��$default-duplicate-binding-procedures f�� mg f��- g��hash g��most-positive-fixnum g��make-modules-in g��beautify-user-module! g��>= g��<= f��Invalid sub-version reference g��version-matches? g��make-fresh-user-module g��ensureS   � g��try-load-module f��*incompatible module version already loaded g��try-module-autoload f��unknown file name for module g�� reload-module g��purify-module! g��selectS   g��hideS   g��prefixS   g��renamerS   g��versionS   � g��symbol-prefix-proc f��no code for module g��custom-interface f��no binding `~A' in module ~A f��$no binding `~A' to hide in module ~A g��resolve-interface g��filenameS   g��pureS     g�� duplicatesS   g��importsS   g��exportsS   g�� replacementsS   g�� re-exportsS   g�� autoloadsS   g�� transformerS   �  f��#unexpected use-module specification f��unexpected tail of imports list f��%expected list of integers for version f��8expected exports to be a list of symbols or symbol pairs g��module-replace! f��=expected replacements to be a list of symbols or symbol pairs g��module-re-export! f��;expected re-exports to be a list of symbols or symbol pairs g��module-autoload! g��lookup-duplicates-handlers f��(expected transformer to be a module name g��symbol? g��run-hook g��module-defined-hook g�� make-hook f��missing interface for module f��Failed to autoload ~a in ~a:  g��autoload �g��make-weak-value-hash-table g��make-autoload-interface f��"invalid name+binding autoload list g��autoloads-in-progress g��autoload-done-or-in-progress? g��autoload-in-progress! g��set-autoloaded! g��current-reader ??  �  g��autoloads-done  g��delete!  g��autoload-done!  g��define-option-interface [\� [� g��options g��enable g��disable g�� option-set! a� g��m-bde397a-1729 ^� _____� f��l-bde397a-172e f��l-bde397a-172f f��l-bde397a-1730 f��l-bde397a-1731 f��l-bde397a-1732 f��l-bde397a-1733 � `�  � !f��l-bde397a-172b "!� #`k "� $_i#� %]"$q� &]v$q� ']$q� (]$q� )(� *]v$q� +g��list? ,]+$q� -,(� .]$q� /]$q� 0g��option 1]0$q� 21� 3] $q� 4]4$q� 5g��value 6]5$q� 7g�� documentation 8]7$q� 9468� :]#$q� ;:4� <]$q� =g��len >]=$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� Zg��flags []Z$q� \]$q� ]g��flag ^]]$q� _^� `]$q� a]S$q� b[� cg��define-syntax-rule d]c$q� eg��opt f]e$q� g]$q� hfg� i]$q� j]$q� k]$q� l]$q� mjkl� n]$q� o]6$q� pof� qnpg� rq� sg��debug-options-interface tg�� debug-options ug�� debug-enable vg�� debug-disable wg�� debug-set! xg��m-bde397a-173a yx^� zae� {g��m-bde397a-173c |{^� }|yy� ~f��l-bde397a-1741 f��l-bde397a-1742 f��l-bde397a-1743 ~� `z}� |� f��l-bde397a-173e � `k� g��shift yii#� ]q� ]q� ]q� ]q� � _i� ]tq� ]q� � ]q� ]6q� g��read-options-interface g�� read-options g�� read-enable g�� read-disable g�� read-set! g��m-bde397a-175d ^� g��m-bde397a-175f ^� � f��l-bde397a-1764 f��l-bde397a-1765 f��l-bde397a-1766 � `z� � f��l-bde397a-1761 � `k� ii#� ]q� ]q� ]q� ]q� � _i� ]q� ]q� � ]q� ]6q� g��print-options-interface g�� print-options g�� print-enable g�� print-disable g�� print-set! g��m-bde397a-1780 ^� g��m-bde397a-1782 ^� � f��l-bde397a-1787 f��l-bde397a-1788 f��l-bde397a-1789 � `z� � f��l-bde397a-1784 � `k� ii#� ]q� ]q� ]q� ]q� � _i� ]q� ]q� � ]q� ]6q� g�� *unspecified* g��id � g��m-bde397a-17a3 ^� � f��l-bde397a-17aa � `� f��l-bde397a-17a5 � `k� _i� ]vq� ]q� �  f��l-bde397a-17ad � `k� _i� ]vq� ]q� � g�� unspecified? g��<applicable-struct-vtable> g��pwprpr g�� <parameter> g��make-parameter g��fluid->parameter g�� parameter? f��parameter-fluid f��Not a parameter: ~S g��parameter-fluid g��parameter-converter g�� parameterize s�    g��p � f��l-bde397a-17e2 � `� g��param g��body* �5� ____� f��l-bde397a-17d7 f��l-bde397a-17d8 f��l-bde397a-17d9 f��l-bde397a-17da � `�� f��l-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 #f��expected an input port $g��current-input-port %g��%current-output-port-fluid &f��expected an output port 'g��current-output-port (g��%current-error-port-fluid )g��%current-warning-port-fluid *g��scheme +g��current-language ,g�� *repl-stack* -g�� batch-mode? .g��ensure-batch-mode! /g��exit 0g��assq 1g�� gc-time-taken 2g��gc-stats 3g�� gc-run-time 4g�� abort-hook 5g��before-error-hook 6g��after-error-hook 7g��before-backtrace-hook 8g��after-backtrace-hook 9g��before-read-hook :g��after-read-hook ;g��before-eval-hook <g��after-eval-hook =g��before-print-hook >g��after-print-hook ?g�� exit-hook @g�� fluid-ref Ag�� char-ready? Bg��set-port-column! Cg�� repl-reader Dg��iota Eg��while Fg��break Gg��continue Hg��t-bde397a-1825 Ig��t-bde397a-1826 JHI� Kg��m-bde397a-1827 LK^� MLL� Nf��l-bde397a-182b Of��l-bde397a-182c PNO� Q`JMP� RE7� Sf��l-bde397a-181f Tf��l-bde397a-1820 Uf��l-bde397a-1821 VSTU� W`RV� Xf��l-bde397a-181c YX� Z`kY� [_iQWiZ� \][q� ]g�� break-tag ^]][q� _][q� `f��break a]`[q� b_a� c^b� dg�� continue-tag e]d[q� ff��continue 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� � g��lp ][q� q� ve� u� � qz ]N[q� ]6[q� ]G[q� � f��too many arguments ][q� n� � l� u� q� pn� lo� � ]E[q� ]4[q� ][q� � ][q� � � l� � z ]v[q� g��null? ][q� z� ][q� g��values ][q� {z� � l� � g��symbol->keyword g�� substring g��keyword-like-symbol->keyword g�� define-module g��t-bde397a-188a � g��m-bde397a-188b ^� � f��l-bde397a-188e � `� g��imp g��rex g��aut � ______� f��l-bde397a-1878 f��l-bde397a-1879 f��l-bde397a-187a f��l-bde397a-187b f��l-bde397a-187c f��l-bde397a-187d � `� g��parse g�� parse-iface g�� ->keyword g�� keyword-like? � ____� f��l-bde397a-183a f��l-bde397a-1838 f��l-bde397a-1836 f��l-bde397a-1834 � `� f��l-bde397a-1833 � `k� _ii� ]q� g�� quasiquote ]q� g��t-bde397a-1890 � g��m-bde397a-1891 ^� � f��l-bde397a-1894 � `� _ii� ]q� ]6q� g��t-bde397a-1896 � g��m-bde397a-1897 ^� � f��l-bde397a-189a � `� _ii� ]q� ]6q� g��t-bde397a-189c � g��m-bde397a-189d ^� � f��l-bde397a-18a0 � `� _ii� ]q� ]6q� g��t-bde397a-18a2 � g��m-bde397a-18a3 ^� � f��l-bde397a-18a6 �� `�� _ii� ]q� ]6q� � g�� no-backtraceS l� [  l�   [  g��t-bde397a-18de   �  g��m-bde397a-18df  ^� � f��l-bde397a-18e2 � ` � � f��l-bde397a-18dc � `� _ii� ]q� ]q� f��keyword arg without value l� [  g��t-bde397a-18ec �  g��m-bde397a-18ed ! ^� "!� #f��l-bde397a-18f0 $#� %`"$� &� 'f��l-bde397a-18e8 (f��l-bde397a-18e9 )'(� *`&)� +_i%*i� ,]+q� -]6+q� .l� /. 0g��t-bde397a-18f8 10� 2g��m-bde397a-18f9 32^� 43� 5f��l-bde397a-18fc 65� 7`146� 8g��d 98� :f��l-bde397a-18f4 ;f��l-bde397a-18f5 <:;� =`9<� >_i7=i� ?]>q� @]6>q� Al� BAt Cg��t-bde397a-1904 DC� Eg��m-bde397a-1905 FE^� GF� Hf��l-bde397a-1908 IH� J`DGI� Kg��f LK� Mf��l-bde397a-1900 Nf��l-bde397a-1901 OMN� P`LO� Q_iJPi� R]Qq� S]6Qq� Tg�� use-moduleS UlT� V [ WUV Xg�� use-syntaxS YlX� ZYV [G[ \U[ ]g��exportS ^l]� _^ `g�� export-syntaxS al`� ba cg�� re-exportS dlc� ed fg��re-export-syntaxS glf� hg ig��replaceS jli� kj lg��replace-syntaxS mll� nm og��autoloadS plo� qpu rf��unknown keyword or bad argument sl� tst ug��unquote vg��renamer wv� xf��l-bde397a-1867 yf��l-bde397a-1868 zxy� {`wz� |g��out }b|� ~f��l-bde397a-1846 f��l-bde397a-1847 f��l-bde397a-1848 ~� `}� f��l-bde397a-1845 � `� _{ii� ]uq� g��keyword? f��expected keyword arg � g��t-bde397a-1931 � g��m-bde397a-1932 ^� � f��l-bde397a-1935 � `� g��name* 4� f��l-bde397a-192b f��l-bde397a-192c f��l-bde397a-192d � `� _ii� ]q� ]6q� G g�� quoted-arg � f��l-bde397a-19de f��l-bde397a-19df � `� 4� f��l-bde397a-19d5 f��l-bde397a-19d6 f��l-bde397a-19d7 � `� _i� ]q� ]q� ]q� ]q� � ]q� g��m ]q� ]q� ]6q� ]q� ]q� � � f��no such module g�� use-modules g��kw � f��l-bde397a-1a31 f��l-bde397a-1a32 f��l-bde397a-1a33 � `� f��l-bde397a-1a0b f��l-bde397a-1a0c f��l-bde397a-1a0d � `}� f��l-bde397a-1a0a � `� g��quotify g�� quotify-iface � f��l-bde397a-19ff f��l-bde397a-19fd f��l-bde397a-19fb f��l-bde397a-19f9 � `� f��l-bde397a-19f8 � `k� _ii� ]6q� � f��l-bde397a-1a65 � `� 4� f��l-bde397a-1a5a f��l-bde397a-1a5b f��l-bde397a-1a5c f��l-bde397a-1a5d � `� |� f��l-bde397a-1a39 f��l-bde397a-1a3a f��l-bde397a-1a3b � `� g��specs � f��l-bde397a-1a38 � `� _iiii�  ]q� ]6q� 4� f��l-bde397a-1a49 f��l-bde397a-1a4a f��l-bde397a-1a4b � `� _ii� ]6q� g�� quoted-args � f��l-bde397a-1a73 � `� g��spec � �f��l-bde397a-1a6e  �� ` � _i � ] q� ] q� ] q� ] q�    � ] q� ] q� ] q�  � g�� use-syntax a� g��m-bde397a-1a78  ^�  _� f��l-bde397a-1a7d f��l-bde397a-1a7e   � `   �  � f��l-bde397a-1a7a  � `k  � _ i � ]" q� ] q� ] q� ] q� ] q�    � !g��issue-deprecation-warning "] ! q� #f��E`use-syntax' is deprecated. Please contact guile-devel for more info. $] # q� % " $� &   %� '] q� (g��library )g��sym? *g��make-custom-interface + ) *� ,f��l-bde397a-1b4a -f��l-bde397a-1b48 . , -� /` +M .� 0g�� import-spec 1 0� 2f��l-bde397a-1b47 3 2� 4` 1 3� 5_ / 4� 6] ( 5q� 7 6� 8g��srfi 9] 8 5q� : 9� ;� <[ ;� =[ < > : = ? 7 >� @ 7 =� A 7 � Bg��only C] B 5q� D C� E D  Fg��except G] F 5q� H G� I H  Jg��prefix K] J 5q� L K� M L[[� Ng��rename O] N 5q� P O� Q[ R P Q Sg��resolve-r6rs-interface T4� Uf��l-bde397a-1c19 Vf��l-bde397a-1c1a W U V� X` T W� Y_ X / 4� Z] ( Yq� [4:� \f��l-bde397a-1c0b ]f��l-bde397a-1c0c ^f��l-bde397a-1c0d _ \ ] ^� `` [ _� a_ ` / 4� b] ( aq� cf��'duplicate binding for `~A' in module ~A df��l-bde397a-1b93 ef��l-bde397a-1b94 f d e� g` T f� h_ g / 4� i] ( hq� jg��colon-n k j:� lf��l-bde397a-1b54 mf��l-bde397a-1b55 nf��l-bde397a-1b56 o l m n� p` k o� q_ p / 4� r] 8 qq� sf��srfi- tg��t-bde397a-1b68 u t� vg��m-bde397a-1b69 w v^� x w� yf��l-bde397a-1b6c z y� {` u x z� |g��srfi-n } |� ~f��l-bde397a-1b64  ~� ` } � f��l-bde397a-1b5e f��l-bde397a-1b5f f��l-bde397a-1b60    � ` k � _i {i   / 4� ] ( q� ] 8 q� g��t-bde397a-1b74  � g��m-bde397a-1b75  ^�  � f��l-bde397a-1b78  � `   � 4� f��l-bde397a-1b70 f��l-bde397a-1b71   � `  � _i  i   / 4�  ] ( q� ] 8 q� g��export g��compute-exports  � f��l-bde397a-1a86  � `  � g��stx  � f��l-bde397a-1a85  � `  � _  � ]  q�  �   g��import ]  q�  �              =    g��for g��im  � f��l-bde397a-1b0b  � `  � g��espec g��ispec 4:  � f��l-bde397a-1afe f��l-bde397a-1aff f��l-bde397a-1b00 f��l-bde397a-1b01 f��l-bde397a-1b02 f��l-bde397a-1b03       � `  � _i i   � ]  q�  �    j� f��l-bde397a-1a96 f��l-bde397a-1a97 f��l-bde397a-1a98 f��l-bde397a-1a99 f��l-bde397a-1a9a      � `  � g��replace? g�� re-export?   � f��l-bde397a-1a8e f��l-bde397a-1a8c   � ` M � g��ifaces  � f��l-bde397a-1a8a f��l-bde397a-1a8b   � `  � _i     � ] N q�  �    [ t[ � j� f��l-bde397a-1b1f f��l-bde397a-1b20 f��l-bde397a-1b21    � `  � g��exports g�� re-exports   � f��l-bde397a-1b19 f��l-bde397a-1b1a f��l-bde397a-1b1b    � `  � _i ii    �  ]" q� ] q� ] q� ] q� ]  q� ]  q� g�� re-export ]  q� g��export! ]  q� g��@@ ]  q� 4  � f��l-bde397a-1ae2 �f��l-bde397a-1ae3 f��l-bde397a-1ae4 f��l-bde397a-1ae5 f��l-bde397a-1ae6   �   � `  � _   � ] ( q� ]  q� ]  q� g�� import-set  � f��l-bde397a-1b32  � `  � g�� strip-for  � f��l-bde397a-1b2f  � `  � f��l-bde397a-1b2e  � `  � _i   � ]  q�  �    g��library-reference  � f��l-bde397a-1b42  � `  � f��l-bde397a-1b3d ! � "`  !� #_i  "  � $] #q� %] #q� &] #q� '] #q� ( % & '� )] #q� *g��iface +] * #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 : :� < ;� =g��define-private >g��foo ?g��bar @a > ?� Ag��m-bde397a-1c1f B A^� C B__� Df��l-bde397a-1c24 Ef��l-bde397a-1c25 Ff��l-bde397a-1c26 G D E F� H` @ C G� I B� Jf��l-bde397a-1c21 K J� L`k I K� M_ Hi L� N]v Mq� Og�� define-public P[ ጤ Qa4� Rg��m-bde397a-1c2a S R^� T S___� Uf��l-bde397a-1c2f Vf��l-bde397a-1c30 Wf��l-bde397a-1c31 Xf��l-bde397a-1c32 Y U V W X� Z` Q T Y� [ S� \f��l-bde397a-1c2c ] \� ^`k [ ]� __ Zi ^� `]" _q� a]v _q� b]  _q� ca4� d S__� ef��l-bde397a-1c38 ff��l-bde397a-1c39 gf��l-bde397a-1c3a h e f g� i` c d h� j_ ii ^� k]" jq� l]v jq� m]  jq� ng��defmacro-public og��m-bde397a-1c3f p o^� q p___� rf��l-bde397a-1c44 sf��l-bde397a-1c45 tf��l-bde397a-1c46 uf��l-bde397a-1c47 v r s t u� w` Q q v� x p� yf��l-bde397a-1c41 z y� {`k x z� |_ wi {� }]" |q� ~] |q� g�� export-syntax ]  |q� ���k����T g��formals a � g��m-bde397a-1c4e  ^�  __� f��l-bde397a-1c53 f��l-bde397a-1c54 f��l-bde397a-1c55    � `   �  � f��l-bde397a-1c50  � `k  � _ i � ] q� g��set-object-property! g��replace g��module-export-all! f��re-exporting local variable: f��Undefined variable: a4� g��m-bde397a-1c95  ^�  _� f��l-bde397a-1c9a f��l-bde397a-1c9b   � `   �  � f��l-bde397a-1c97  � `k  � _ i � ] q� ] q� ] q� ] q�    � ]t q� ] q� ] q� ] q�  � ]6 q� g��m-bde397a-1ca0  ^�  _� f��l-bde397a-1ca5 f��l-bde397a-1ca6   � `   �  � f��l-bde397a-1ca2  � `k  � _ i � ] q� ] q� ] q� ] q�    � ]t q� ] q� ] q� ] q�  � ]6 q� g��m-bde397a-1cab  ^�  _� f��l-bde397a-1cb0 f��l-bde397a-1cb1   � `   �  � f��l-bde397a-1cad  � `k  � _ i � ] q� ] q� ] q� ] q�    � ]t q� ] q� ] q� ] q�  � ]6 q� g��m-bde397a-1cb6  ^�  _� f��l-bde397a-1cbb f��l-bde397a-1cbc   � `   �  � f��l-bde397a-1cb8  � `k  � _ i � ]  q� g��re-export-syntax g��m-bde397a-1cc1  ^�  _� f��l-bde397a-1cc6 f��l-bde397a-1cc7   � `   �  � f��l-bde397a-1cc3  � `k  � _ i � ]  q� g��make-mutable-parameter g��duplicate-handlers g��check f��%~A: `~A' imported from both ~A and ~A f��/WARNING: ~A: `~A' imported from both ~A and ~A  g��object-property g��warn-override-core f��<WARNING: ~A: imported module ~A overrides core binding `~A'  �g��first g��last g��merge-generics g��merge-accessors f��invalid duplicate handler name:   , � g��!default-duplicate-binding-handler g��warningsS g��arity-mismatch q �   � g��%auto-compilation-options f��Stat of ~a failed:  g�� stat:mtime g��stat:mtimensec g��vm g��objcode   � g��program   � g�� make-program g�� load-objcode f��*WARNING: failed to load compiled file ~a:  g��%load-compiled-extensions g��%load-compiled-path g��%compile-fallback-path g��system-file-name-convention g��windows g��%fresh-auto-compile f��:;;; note: source file ~a ;;; newer than compiled ~a  g��%load-should-auto-compile g��%warn-auto-compilation-enabled f��;;; compiling ~a  !g��compile " !� #g�� compile-file $g��optsS %g��envS &f��;;; compiled ~a  'f��#WARNING: compilation of ~a failed:  (f��!invalid %load-compiled-extensions )f��.go *g�� %file-port-name-canonicalization +g��relative ,g��load-in-vicinity -g��make-variable-transformer .g��dirname /g��t-bde397a-1e18 0 /� 1g��m-bde397a-1e19 2 1^� 3 2� 4f��l-bde397a-1e1c 5 4� 6` 0 3 5� 7� 8f��l-bde397a-1e16 9 8� :` 7 9� ;g��dir < ;� =f��l-bde397a-1e10 > =� ?` < >� @g��file A @� Bf��l-bde397a-1e0c C B� D` A C� Eg��src F E� Gf��l-bde397a-1e0a H G� I` F H� Jf��l-bde397a-1e08 K J� L`k K� M_i 6 :ii ?i Di Iii L� N] , Mq� Og��getcwd Pg��m-bde397a-1e1f Q P^� R Q� Sf��l-bde397a-1e20 T S� U` R T� V_i U :ii ?i Di Iii L� W] O Vq� X W� Yg��t-bde397a-1e28 Z Y� [g��m-bde397a-1e29 \ [^� ] \� ^f��l-bde397a-1e2c _ ^� `` Z ] _� af��l-bde397a-1e26 b a� c` b� d_i ` cii ?i Di Iii L� e] dq� f] dq� g]  dq� h] , dq� ig��m-bde397a-1e2e j i^� k j� lf��l-bde397a-1e2f m l� n` k m� o_i n cii ?i Di Iii L� p] O oq� q p� r f� sg��guile-2 tg��r5rs ug��srfi-0 vg��srfi-4 wg��srfi-13 xg��srfi-14 yg��srfi-16 zg��srfi-23 {g��srfi-30 |g��srfi-39 }g��srfi-46 ~g��srfi-55 g��srfi-61 g��srfi-62 g��srfi-87 g��srfi-105 ? s t u v w x y z { | } ~    � g��%cond-expand-features g��%cond-expand-table g��cond-expand-provide g�� cond-expand g�� condition  � f��l-bde397a-1e49  � `  � g��match g��condition-matches? g��module-has-feature?    � f��l-bde397a-1e40 f��l-bde397a-1e3e f��l-bde397a-1e3c    � `  � f��l-bde397a-1e3b  � `k � _i   � ]Y q�  �   ] q�  �   ]4 q�  �  [�  � f��l-bde397a-1e63 f��l-bde397a-1e64 f��l-bde397a-1e65    � `  � g�� alternate D � f��l-bde397a-1e5f f��l-bde397a-1e60   � `  � _ i   � ]" q� _  � ]9 q�  �    � [ �   ?� f��l-bde397a-1e6d f��l-bde397a-1e6e   � `  � _i   � ]" q� f��unfulfilled cond-expand g�� use-srfis g��require-extension f��l-bde397a-1e7c  � `k � _i � ] 8 q�  �    �  � f��Not a recognized extension type g��srfi- f��l-bde397a-1e87  � ` } � g��n  � f��l-bde397a-1e82  � `  � _i  i � ] q� ] 8 q� g��define-inlinable f��%  g�� -procedure g�� proc-name  � f��l-bde397a-1eaf f��l-bde397a-1eb0   � `  � 4 � f��l-bde397a-1ea6 f��l-bde397a-1ea7 f��l-bde397a-1ea8    � `  � g��make-procedure-name   J� f��l-bde397a-1e9a f��l-bde397a-1e98   � ` M � f��l-bde397a-1e97  � `k � _iiii    �  ]" q� ]v q� g��syntax-parameterize ]  q� g��identifier-syntax ]  q� g��define-syntax-parameter ]  q� ] q� ]j q�  � ] q� ] q� ] q� g��a �]  q� ] q�   � � ]N q� ]6 q� ]t q�   � ]R q�   � g��using-readline? g��ice-9 g�� deprecated   �  8 v� � f��ice-9/boot-9.scm g��syntax-local-binding g�� syntax-module g�� syntax-locally-bound-identifiers g��syntax-session-id     � @� @� g�� guile-user  �  ! #�  " � @� @�C�5�hP�3%��]4i5�$��4i>��"��G��"������h ������-��.�,�3��#����6����{�������g��stem ��g��filenamef��ice-9/boot-9.scm 7   7   8 �  ��g��nameg��make-prompt-tag�CR4i5���������h���C���]�L�C���;�������g��filenamef��ice-9/boot-9.scm = �   ���C�O��R�������h���D���]�L�6���<�������g��filenamef��ice-9/boot-9.scm  A �   ���C�h(������] �U���4O�>���XCXFG@����������g��tag  %�g��thunk  %�g��handler   %�g��args   %��g��filenamef��ice-9/boot-9.scm @ A �  % ��g��nameg��call-with-prompt�CRh������-�1�3��W�F�������g��tag �g��args ��g��filenamef��ice-9/boot-9.scm B  C �  ��g��nameg��abort-to-prompt�C R RHH�   �����h������-�1�3��L&��"��L$��aM[ML�Y4L�5$��"��4L��>��"��G��L$��4L�>��"��4L�>��ZCZFL�@��������g��thrown-k ��g��args ��g��running  ! ��g��filenamef��ice-9/boot-9.scm c   d  d   d '  d  ! e * f 9 - g  9 g  > h  Y j  Z k  n l  � m � � ���C�������h������] M�[�LO�C��������g�� prompt-tag  �g��catch-k  �g��pre   �g��prev   ��g��filenamef��ice-9/boot-9.scm a   b �   ��g��nameg��custom-throw-handler�CO��Q�4 i5K�4 i������hh�����-�1�3��&��0$��$45$��"�� $�� "�� "�� 6445��>��"��G�� 6������� ������g��k a�g��args a��g��filenamef��ice-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 ��g��nameg��default-exception-handler�C5K �������h0������-�1�3��L&��"��L$�� L�@L��@�������g��thrown-k 0�g��args 0��g��filenamef��ice-9/boot-9.scm \   ]  ]   ] '  ]  ( ^ 0 _ � 0 ���C��������h���g��-�.�,�3�#���$��"���$��"��!4 ����>��"��G��45U��>M$��4L��5"��M[�O�Y4>��� Z"��XCXFG@���_������g��k ��g��thunk ��g��handler  ��g��pre-unwind-handler  ��g��tag  U ��g��prev  x ��g��cont  � ��g��k  � ��g��args  � ��� g��filenamef��ice-9/boot-9.scm p   �   �   �  % � # ) � . �  2 �  4 � ) 6 �  < �  A � $ F �  O �  S � & U �  U � ^ � f �  g �  x [  � �  � � � � � �  ��g��nameg��catchg�� documentationf�oInvoke @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.�CO�i��hX�����]�$��"���$��"��!4 ����>��"��G��M�4L�5Y4>���ZCZF���������g��k  U�g��thunk  U�g��pre-unwind-handler   U��g��filenamef��ice-9/boot-9.scm �   �  �  �   � #  �  �   �  ! � ) # �  ) �  . � $ 3 �  > �  J � �  U ��g��nameg��with-throw-handlerg�� documentationf��eAdd @var{handler} to the dynamic context as a throw handler for key @var{k}, then invoke @var{thunk}.�CO� i����h0�����-�1�3��$�� M�[�@M�[ ����6�������g��key /�g��args /��g��filenamef��ice-9/boot-9.scm �  �   �  �   � . � > " �  ( � 8 - � E / � � / ��g��nameg��throwg�� documentationf��Invoke 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.�CO�i��������h ������]�(��C4L��54L�5C�����������g��l  ��g��filenamef��ice-9/boot-9.scm �   �  � �   �   �   �   � #  �   � �   ��g��nameg��map1�Ch(������]�(��C4L��54L�5C�������������g��l1  "�g��l2  "��g��filenamef��ice-9/boot-9.scm �   �  � �   �   �   �   �   �   � �  ! � �  " ��g��nameg��map2�C�����h0������]�(��C4L��45?4L�455C���������g��l1  .�g��rest  .��g��filenamef��ice-9/boot-9.scm �   �  � �   �   � #  �   �  ! �  " �  , �  - � �  . ��g��nameg��lp�C����hh���E��)���3�O��Q�6)���3�O��Q�6-�1�3�O��Q�6�������=������g��f �g��l �g��map1   �g��f ( @�g��l1 ( @�g��l2  ( @�g��map2  1 @�g��f I a�g��l1 I a�g��rest  I a�g��lp  R a�� g��filenamef��ice-9/boot-9.scm �   �  ( �  1 �  I �  R � �  � ( @ � I a  ��g��nameg��map�CR ����h�����)���43�"��%$��4�>��"��G��"C")���@3�"��-$��$4�>��"��G��"C"-�1�3�"��;$��24�45>��"��G��45"C"����w������g��f :�g��l :�g��l  2�g��f C ��g��l1 C ��g��l2  C ��g��l1  G t�g��l2  G t�g��f � ��g��l1 � ��g��rest  � ��g��l1  � ��g��rest  � ��� g��filenamef��ice-9/boot-9.scm �  �   �  �   �  �   � * �  0 � 2 �  C �  G �  J � N �  O � T �  W �  \ � g �  j � ! r � t �  � �  � �  � � � �  � � � �  � �  � � � �  � �  � � � � �# : � C � � � �  ��g��nameg��for-each�CR4 i!>��"��G��"#$%&����hX������-��1��3�4>���"��G��4>��"��G��4�>��"��G��4>���"��G��4�5C���������g��stuff V��g��filenamef��ice-9/boot-9.scm � �       #   ,   >   N   U  � V ��g��nameg��peek�C'R'i(R)*"#+&���hP������]�4>���"��G��4>��"��G��4L�>��"��G��4>���"��G��4L�5C��������g��filenamef��ice-9/boot-9.scm               %   7   G  N  �  O ���C�h ���|���-��1��3�45��O�6�������t�������g��stuff ��g��filenamef��ice-9/boot-9.scm      �  ��g��nameg��warn�C,R -�h ������]4�5$��C� C�������������g��sym  ��g��filenamef��ice-9/boot-9.scm            �   ��g��nameg��provide�C.R -��������h������]4�5$��CC�����y�������g��feature  ��g��filenamef��ice-9/boot-9.scm       �   ��g��nameg�� provided?�C/R0������h������-�1�3�� @�������������g��vtable �g��args ��g��filenamef��ice-9/boot-9.scm &  ' �  ��g��nameg��make-struct/no-tail�C1R�������h���{���]C����s�������g�� file-name  ��g��filenamef��ice-9/boot-9.scm . �   ��g��nameg��absolute-file-name?�C2RhP������]"��:$��2(��"��$��(��"��C4�5"C"������������g��f  K�g��lst  K�g��result   @�g��l   @��g��filenamef��ice-9/boot-9.scm =  >  @   A  A # A , C  1 C  3 C  6 C  > C @ > �  K ��g��nameg��and-map�C3R�����h8������]"��$$��C(��C4�5""����������g��f  5�g��lst  5�g��result   *�g��l   *��g��filenamef��ice-9/boot-9.scm J  K  M   N   O   O   O  " O  * O * K �  5 ��g��nameg��or-map�C4R5iR6789�������h���^��-�.�,�3�#�� #�� 45"�� �64�5$��F$��945$��'4�5$��C�456"""�������V������g�� char_pred ��g��s ��g��start  ��g��end  ��g��t  d }��g��filenamef��ice-9/boot-9.scm Z   Z 2 4 `  4 [  5 [ ? [  D \ H [  K ]  R ] V [  W ^ b ^ 1 d ^ d ^  r _  y _ % { _  } _ � �  ��g��nameg�� string-any�C:R6;89���h���Q��-�.�,�3�#�� #�� 45"�� �64�5$��A$��445$��"4�5$���456C"""����I������g�� char_pred ��g��s ��g��start  ��g��end  ���g��filenamef��ice-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 � �  ��g��nameg�� string-every�C<R=������h������]�6���������g��str  �g��start  �g��end   �g��fill   ��g��filenamef��ice-9/boot-9.scm o  p �   ��g��nameg��substring-fill!�C>R@�������h���t���]C���l�������g��x  ��g��filenamef��ice-9/boot-9.scm v  w �   ��g��nameg�� module-name�CARBC�h������]45�6��������g��module  �g��sym  �g��var   ��g��filenamef��ice-9/boot-9.scm x  y   y �   ��g��nameg�� module-add!�CDRECDF���h0������] 445�5$��C45�456��������g��module  /�g��sym  /�g��val   /�g��v   /��g��filenamef��ice-9/boot-9.scm z  {  {   {  {   |   }  ~  ' ~ * / ~ �  / ��g��nameg��module-define!�CGRHI(����h0������] 4�5$��C4�5456������������g��module  +�g��sym  +�g��v  +��g��filenamef��ice-9/boot-9.scm             "   - #  9 +  �  + ��g��nameg�� module-ref�CJR H��h���}���] M�N�C��u�������g��m  �g��i  ��g��filenamef��ice-9/boot-9.scm         �   ���C�O��KRiLR�������h���s���-��1��3�C�����k�������g��args ��g��filenamef��ice-9/boot-9.scm  � ��g��nameg��resolve-module�CMRNRORPRQRRRSRTRURVR4 iW>��"��G��4XiYZV\r������h���-���]C���%�������g��dummy  ��   ���Cs�������h���<���]C���4�������g��dummy  �g��x  ��   ���Cu��������h���K���]C�������C�������g��dummy  �g��x  �g��y   ��   ���CN� �����hP������]4�5$��@4�5$��@4�5$��@ �6�������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��ice-9/boot-9.scm  �  P ��g�� macro-typeg�� syntax-rulesg��patternsg��x�g��xg��y��C5YR4XiZV\�������h���-���]C���%�������g��dummy  ��   ���Cs�������h���<���]C���4�������g��dummy  �g��x  ��   ���Cu������h ���K���]����CC�������g��dummy  �g��x  �g��y   ��  ���CN� �����hP������]4�5$��@4�5$��@4�5$��@ �6�������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��ice-9/boot-9.scm  �  P ��g�� macro-typeg�� syntax-rulesg��patternsg��x�g��xg��y��C5R4XiZVV�����h���K���]���C�C�������g��k  �g��e*  �g��reps   ��   ���CN������h8������]L�4L�L5�45$��@6������������g��e  3�g��tmp  3�g��tmp   3��g��filenamef��ice-9/quasisyntax.scm  U " U 5  U "  T �  3 ���CtV���h���^���]�45�C����V�������g��h*  �g��rep1  �g��t*   �g��rep2   ��   ���CN���h@������]4L��L54L�L5�45$��@6��������������g��h  9�g��t  9�g��tmp   9�g��tmp  " 9��g��filenamef��ice-9/quasisyntax.scm  p ( q (  p �  9 ���CV�����h���<���]4�5�C�4�������g��e*  �g��reps  ��   ���CN�����h8������]4L�44�55L545$��@6��������g��e  7�g��tmp  7�g��tmp  7��g��filenamef��ice-9/quasisyntax.scm  v   v  v   u �  7 ���CRU��������h8������] L� $��)4�5$��4�5$��C�6CC����������g��k  5�g��r  5�g��t   1��g��filenamef��ice-9/quasisyntax.scm  i  i j   i  k   k  1 l �  5 ���CVs��h���<���]L���C���4�������g��r*  �g��reps  ��  ���CN�����h8������]4L�L545$�� �O�@6������������g��k  3�g��r  3�g��tmp  3�g��tmp   3��g��filenamef��ice-9/quasisyntax.scm  m " m 5 m " m �  3 ���C����h���h���]L� C�`�������g��e  �g��r  ��g��filenamef��ice-9/quasisyntax.scm  b �   ���CSV��������h���7���]�C/�������g��tmp-bde397a-a8c  ��   ���CV���h(���)���]44�?L544�L�5L5�C��!�������g��t  &��  & ���CN��������h8������]4545$��L��O�@6���������g��r*  6�g��rep  6�g��t   6�g��tmp  6�g��tmp   6��g��filenamef��ice-9/quasisyntax.scm e �  6 ���CN�����h@������]4L� 54�5�45$�� �O�@6������������g��e  ;�g��r  ;�g��tmp   ;�g��tmp   ;��g��filenamef��ice-9/quasisyntax.scm  c ' d '  c �  ; ���C����h���h���]L� C�`�������g��e  �g��r  ��g��filenamef��ice-9/quasisyntax.scm  \ �   ���CSV�������h(���J���]4�544L�55�C�������B�������g��r*  !�g��rep  !�g��t   !��  ! ���CN�������h@������]4L� 54�5�45$�� �O�@6������������g��e  ;�g��r  ;�g��tmp   ;�g��tmp   ;��g��filenamef��ice-9/quasisyntax.scm  ] ' ^ '  ] �  ; ���C����h���Y���]L� C�Q�������g��e  ��g��filenamef��ice-9/quasisyntax.scm  X �   ���CSV\����h���)���]��L����C������!�������g��t  ��   ���CN��������h0������]4545$�� �O�@6�������g��e  0�g��tmp 0�g��tmp   0��g��filenamef��ice-9/quasisyntax.scm  Y   Y 2 Y  Y �  0 ���C���hH�����]:4�5$���L�O�@4�5"��4�5"��4�5"��|4�5"��B4�5$�� L�O�@4� 5$��  L�O�@� C$��!4 O�?$��  L�O�@""$��4O�?$�� L�O�@"_"[$��4O�?$�� L�O�@"'"#$��4O�?$��@""��������������g��x  A�g��level  A�g��tmp  A�g��tmp  + A�g��tmp  : �g��tmp  I ��g��tmp  X ��g��tmp  g ��g��tmp  � ��� g��filenamef��ice-9/quasisyntax.scm Q �  A ��g��nameg��expand�CVVs �����h���K���]���C�������C�������g�� template*  �g�� replacements  ��   ���CN������h0������]4L�� 545$��@6�����������g��template  ,�g��tmp ,�g��tmp   ,��g��filenamef��ice-9/quasisyntax.scm  } / } �  , ���CN��������h8���|���]O�Q�4�5$�� O�@�6����t�������g��e  4�g��expand 4�g��tmp   4��g��filenamef��ice-9/quasisyntax.scm C �  4 ���C5R4XiZN ���h���t���]�6����l�������g��e  ��g��filenamef��ice-9/quasisyntax.scm �   �   � � �  ���C5R4XiZN ���h���t���]�6����l�������g��e  ��g��filenamef��ice-9/quasisyntax.scm �   �   � � �  ���C5R4Xi ZV!#�����h���d���]�C������\�������g��dummy  �g��test  �g��stmt   �g��stmt*   ��   ���CN�����h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/boot-9.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��testg��stmtg��stmt*g��...���C5 R4Xi$ZV356�h���d���]��C�\�������g��dummy  �g��test  �g��stmt   �g��stmt*   ��   ���CN�����h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/boot-9.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��testg��stmtg��stmt*g��...���C5$R4Xi7Z�h0������]"��(��C4�5""�������g��f  0�g��seed  0�g��xs   0�g��xs   $�g��seed   $��g��filenamef��ice-9/boot-9.scm                    $  $  �  0 ��g��nameg��fold�C����h���x���]4L��5C���p�������g��x  �g��seed  ��g��filenamef��ice-9/boot-9.scm    #  �  ���C�����h������]L��O�6�������g��f  �g��xs  ��g��filenamef��ice-9/boot-9.scm      �   ��g��nameg�� reverse-map�CV8��h���|���]�6t�������g��clause-builder  �g��tail  ��g��filenamef��ice-9/boot-9.scm     �   ���CVZgN7h������h ���{���]�(�� LL�CL�L6s�������g��tail  ��g��filenamef��ice-9/boot-9.scm        +   ,  �  ���C��h���9���]L�L�O�C1�������g��e  �g��e*  ��   ���CiN7j��������h���W���]�LL�6��O�������g��filenamef��ice-9/boot-9.scm   +   <   �   ���CnV��������h(���5���]L��L����C�����-�������g�� t-bde397a-b36  #��  # ���CN����h0���g���] 4�5$�� LL�O�@�6�������_�������g��tail  )�g��tmp )��g��filenamef��ice-9/boot-9.scm  �  ) ���C������h���B���]�O�C����:�������g��test  �g��receiver  ��  ���CN7�������h������]LL�6��x�������g��test  �g��receiver  ��g��filenamef��ice-9/boot-9.scm   +   &   �   ���CV�h8���5���]L�L�L����C�������-�������g�� t-bde397a-b4c  1��  1 ���CN����h0���g���] 4�5$��LLL�O�@�6�����_�������g��tail  +�g��tmp +��g��filenamef��ice-9/boot-9.scm  �  + ���C������h���Z���]�O�C��R�������g�� generator  �g��guard  �g��receiver   ��   ���CN7�������h������]LL�6���������g�� generator  �g��guard  �g��receiver   ��g��filenamef��ice-9/boot-9.scm   +   &   �   ���C\V���h ���5���]L������C-�������g�� t-bde397a-b60  ��  ���CN����h(���g���] 4�5$�� L�O�@�6�_�������g��tail  '�g��tmp '��g��filenamef��ice-9/boot-9.scm  �  ' ���C������h���,���]�O�C������$�������g��test  ��  ���C V�h���5���]LL�L��C�-�������g�� t-bde397a-b71  ��   ���CN����h0���g���] 4�5$��LLL�O�@�6�����_�������g��tail  +�g��tmp +��g��filenamef��ice-9/boot-9.scm  �  + ���C������h���K���]�O�C��C�������g��test  �g��e  �g��e*   ��   ���CN7j��h��� ��]A4�5$�� L��O�@4�5$�� �L�O�@4�5$��@4�5$��  �L�O�@4� 5$�� @4� 5$��  �L�O�@4�5$��@4�5$��@L��6������������g��clause  ��g��tmp ��g��tmp  ) ��g��tmp  G ��g��tmp  ^ ��g��tmp  | ��g��tmp  � ��g��tmp  � ��g��tmp  � ��� g��filenamef��ice-9/boot-9.scm   �  + �  < �  �  � ���CV��h���5���]�C-�������g�� t-bde397a-b12  ��   ���CN����h@������]4L�4LLO��5545$��@6����������g��clause  =�g��clauses  =�g��tmp   =�g��tmp  & =��g��filenamef��ice-9/boot-9.scm           �  = ���CN�����h@������]O�Q�4�5$���O�@�6�����������g�� whole-expr  <�g��fold  <�g�� reverse-map   <�g��tmp   <��g��filenamef��ice-9/boot-9.scm  �  < ���C57R4XiZ�����h0������]"��(��C4�5""�������g��f  0�g��seed  0�g��xs   0�g��xs   $�g��seed   $��g��filenamef��ice-9/boot-9.scm                    $  $  �  0 ��g��nameg��fold�C����h8������]�(��D4L��>�� G���"���������g��xs  6�g��a  6�g��b   6�g��a   6�g��b   6��g��filenamef��ice-9/boot-9.scm                  !  (   6  �  6 ��g��nameg��loop�C���h ������] O��Q�6�����������g��f  �g��a  �g��b   �g��xs   �g��loop  ��g��filenamef��ice-9/boot-9.scm    �   ��g��nameg��fold2�C������h ������]4L��>�� G�D��������g��x  �g��ys  �g��seed   �g��y   �g��seed   ��g��filenamef��ice-9/boot-9.scm             �   ���C��h������]L��O�6�������������g��f  �g��seed  �g��xs   ��g��filenamef��ice-9/boot-9.scm      �   ��g��nameg��reverse-map-with-seed�CV������h���|���]�6t�������g��clause-builder  �g��tail  ��g��filenamef��ice-9/boot-9.scm     �   ���CVtV��h���0���]��C������(�������g��receiver  ��  ���CN�h���n���]LL�6��f�������g��receiver  ��g��filenamef��ice-9/boot-9.scm   (   !   �   ���C  ��������h���9���]�C�����1�������g��e  �g��e*  ��  ���CNjP� �h�����]4�5$��>444�544L�555�4L54L5>��"��G��"����$��"��4�5$��>444�544L�555�4L54L5>��"��G��"����C������g��datum  ��g��seen  ���g��filenamef��ice-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 �  ) � $ ) � % ) �  ( � * &�"  � ���CPV457�����h ���5���]L��L���C���-�������g�� t-bde397a-bf5  ��   ���CN����h0���g���] 4�5$�� LL�O�@�6�������_�������g��tail  )�g��tmp )��g��filenamef��ice-9/boot-9.scm - &�  ) ���C������h0������] 4L�LLLO�L4�55�LO�D�����������g��datums  ,�g��seen  ,��g��filenamef��ice-9/boot-9.scm   #  , $   #    , - �  , ���C:Nh�h ���{���]�(��L�CL�L6������s�������g��tail  ��g��filenamef��ice-9/boot-9.scm 2 )  3 +   (  6 0   �   ���C��h���E���]�LLLO�L�D�������=�������g��filenamef��ice-9/boot-9.scm  2 !�   ���C��������h�����]45$�� 4?"��R45$��4LLO�?"��,45$�� 4?"�� 4  LL54� 5$�� L�LLL�O�@4� 5$��L�LLO�@  LL6�������������g��test  ��g��rest  ��g��tmp  s�g��tmp  ' p�g��tmp  J m�g��tmp  s ��g��tmp  ~ ��g��tmp  � ���g��filenamef��ice-9/boot-9.scm ^   b  ( d  9 j   s   �  ( �  9 �  �  � ���CNj����h0������] 4�5$��L�L�O�@L�6�������g��clause  0�g��seen  0�g��tmp  0��g��filenamef��ice-9/boot-9.scm   (  ( *  9 0  �  0 ���CVD���h���5���]L����C�����-�������g�� t-bde397a-bbf  ��   ���CN����hH������]4L�4LL�LO�5545$�� �O�@6����������g��expr  E�g��clause  E�g��clauses   E�g��tmp   E�g��tmp  ) E��g��filenamef��ice-9/boot-9.scm       :          �  E ���CN� h@������]!O�Q�4�5$���O�@�6�������g�� whole-expr  @�g��fold  @�g��fold2   @�g��reverse-map-with-seed   @�g��tmp  @��g��filenamef��ice-9/boot-9.scm  �  @ ���C5R4XiEZVIacdefhik����h���T���]�C��L�������g��tmp-bde397a-c25  �g��tmp-bde397a-c24  ��   ���C� hH������]44 5�5�����C���������g��dummy  F�g��var  F�g��init   F�g��step   F�g��test   F�g��expr   F�g��command   F��  F ���Cnh���<���]C���4�������g��dummy  �g��x  ��   ���Co�������h���K���]C���C�������g��dummy  �g��x  �g��y   ��   ���CN� �����hP���3��]4�5$��@4�5$��@4�5$��@ �6+������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��ice-9/boot-9.scm = �  P ��g�� macro-typeg�� syntax-rulesg��patternsg��varg��initg��stepg��...�g��...�g��testg��exprg��...�g��commandg��...�f��stepg��x�f��stepg��xg��y���C5ERpq���h������]�6����������g��filenamef��ice-9/boot-9.scm U  V X Y V �  ��g��nameg��%define-values-arity-error�CrR4XisZVtSuV\����h���-���]�L���C%�������g��dummy  ��   ���CN����h0������]4545$�� �O�@6�������g��expr  0�g��tmp 0�g��tmp   0��g��filenamef��ice-9/boot-9.scm  a   a 4 a  a �  0 ���CN3R��h���|���]4��56����t�������g��var0  �g��varn  �g��expr   ��g��filenamef��ice-9/boot-9.scm   �   ���CSuV\�������h0���7���]�L����L�L����C��/�������g��tmp-bde397a-c85  .��  . ���C����hx���-���]�L��4LL54LL�5���44  �O�L5L   �������5C�%�������g��dummy  w��  w ���CN����h8������]4545$���O�@6�����������g��var0  4�g��varn  4�g��expr   4�g��tmp  4�g��tmp   4��g��filenamef��ice-9/boot-9.scm      4    �  4 ���CR�h���i���]�6a�������g��var  �g��expr  ��g��filenamef��ice-9/boot-9.scm   �   ���C�������h���=���]���C5�������g��var  �g��expr  ��   ���C3R�h���|���]4��56����t�������g��var0  �g��varn  �g��expr   ��g��filenamef��ice-9/boot-9.scm  o �   ���CSuV\�������h0���7���]�L����L�L����C��/�������g��tmp-bde397a-c64  .��  . ���C����h���-���]�L��4LL�54LL�5���44  �O�L5L   �������5C������%�������g��dummy  z��  z ���CN����h8������]4545$���O�@6�����������g��var0  4�g��varn  4�g��expr   4�g��tmp  4�g��tmp   4��g��filenamef��ice-9/boot-9.scm  q   q 4 q  q �  4 ���CR�h���i���]�6a�������g��var  �g��expr  ��g��filenamef��ice-9/boot-9.scm  h �   ���C�������h���=���]���C5�������g��var  �g��expr  ��   ���C��������h������])4�5$��@4�5"��4�5"��e4�5"��74�5"��  �6$��4 ?$�� @""$��4 ?$�� @""$��4?$��@""|$��4?$��@"R"N�������������g�� orig-form  ��g��tmp ��g��tmp  " ��g��tmp  1 ��g��tmp  @ ��g��tmp  O }��g��filenamef��ice-9/boot-9.scm ] �  � ���C5sR4XiZVs���h���>���]��C6�������g��dummy  �g��exp  ��   ���CN���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/boot-9.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��exp���C5R4XiZVOQ����h ���r���]4L�4L�55���C������j�������g��tmp  ��g��filenamef��ice-9/boot-9.scm      )      �   ���CN�������h(���d���] 4�5$�� �O�@�6�\�������g��x  '�g��tmp '��g��filenamef��ice-9/boot-9.scm  �  ' ���C5R4XiZQ��h���q���]�44L�556����i�������g��filenamef��ice-9/boot-9.scm        "   4      �   ���C�����h���Y���-��1��3�C�����Q�������g��args ��g��filenamef��ice-9/boot-9.scm  � ���C����h��� ��]�O�6������g��x  ��g��filenamef��ice-9/boot-9.scm     �   ��g�� documentationf��A 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���]����C�������G�������g��dummy  !�g��sym  !�g��val   !��  ! ���CN��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/boot-9.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��symg��val���C5R-./012� �������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��ice-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  ��g��nameg��map�CRi3R4.0521 � ����h��]��)���3�"��$��j4�>��"��G��$��I&�� 4�>��"��G��"���4�>��"��G��"C(��C�6"k)��"3�"�"��T(��(��"��"��$��"��$��C$���6�6$��$��$��a&���6&���64�>��"��G��"34�>��"��G��"""�"-�1�3�45"��C(��"��A45$�� "4�>��"��G��"��""��;$��24 �4  5>��"��G��4  5"C"�������U������g��f ��g��l ��g��hare  ��g��tortoise  ��g��hare  * ~�g��f � �g��l1 � �g��l2  � �g��h1  � �g��h2  � �g��t1  � �g��t2  � �g��move?  � �g��f  y�g��l1  y�g��rest   y�g��len   .�g��rest   #�g��l1  2 m�g��rest  2 m��g��filenamef��ice-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  ��g��nameg��for-each�CR<=>?8:��hP�����-�/���0���3�#��#��#���$��"��6������������g��file  J�g��binary  J�g��encoding   J�g��guess-encoding   J��g��filenamef��ice-9/boot-9.scm J 8 O  : O  @ O " J O �  J g��binaryS g��encodingS g��guess-encodingS ���g��nameg��open-input-fileg�� documentationf��Takes 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=BC8�h@������-�/���0���3�#��#���$��"��6���������g��file  =�g��binary  =�g��encoding   =��g��filenamef��ice-9/boot-9.scm S / X  1 X  7 X " = X �  = g��binaryS g��encodingS ���g��nameg��open-output-fileg�� documentationf�Takes 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:I������hp�����-�/���0���3�#��#��#��4�54>�� G4>��"��G��E�������������g��file  i�g��proc  i�g��binary   i�g��encoding   i�g��guess-encoding   i�g��p  A i�g��vals  N i��g��filenamef��ice-9/boot-9.scm [ / g A g  D l  Q k  T n  i o �  i  g��binaryS g��encodingS g��guess-encodingS ���g��nameg��call-with-input-fileg�� documentationf�FPROC 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.�CJRKD68L�����h`�����-�/���0���3�#��#��4�54>�� G4>��"��G��E����������g��file  \�g��proc  \�g��binary   \�g��encoding   \�g��p  4 \�g��vals  A \��g��filenamef��ice-9/boot-9.scm q & | 4 |  7 ~  D }  G   \  �  \  g��binaryS g��encodingS ���g��nameg��call-with-output-fileg�� documentationf�bPROC 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.�CMRHJN�������h���]���]�L�6������U�������g��p  ��g��filenamef��ice-9/boot-9.scm    �  ���C68:�������hH���5��-�/���0���3�#��#��#���O�6�-������g��file  G�g��thunk  G�g��binary   G�g��encoding   G�g��guess-encoding   G��g��filenamef��ice-9/boot-9.scm  G  �  G  g��binaryS g��encodingS g��guess-encodingS ���g��nameg��with-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���]���]�L�6������U�������g��p  ��g��filenamef��ice-9/boot-9.scm    �  ���C68��h@�����-�/���0���3�#��#���O�6������������g��file  :�g��thunk  :�g��binary   :�g��encoding   :��g��filenamef��ice-9/boot-9.scm  :  �  :  g��binaryS g��encodingS ���g��nameg��with-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.�CPRKMQ��������h���]���]�L�6������U�������g��p  ��g��filenamef��ice-9/boot-9.scm    �  ���C68��h@�����-�/���0���3�#��#���O�6������������g��file  :�g��thunk  :�g��binary   :�g��encoding   :��g��filenamef��ice-9/boot-9.scm  :  �  :  g��binaryS g��encodingS ���g��nameg��with-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.�CRRSRH�TUVWX���hX���_��]"4�5$��6$��"��66�������W������g��frame  Q�g��port  Q�g��source  Q�g��t   *�g��filename  4 I�g��line  4 I�g��col  4 I��g��filenamef��ice-9/boot-9.scm                 '  , -   2   4  @   E  / I  O   Q  �  Q ��g��nameg��print-location�C�����h������]�M�N�C���������g��key  �g��proc  ��g��filenamef��ice-9/boot-9.scm     #  �   ��g��nameg��set-exception-printer!�C�O�SiY�������h���r���]�LLL�6��j�������g��filenamef��ice-9/boot-9.scm       �   ��g��nameg��default-printer�CZ[\�����h���M���]�L�6E�������g��filenamef��ice-9/boot-9.scm     0�   ���C�h���Y���-��1��3�C�����Q�������g��args ��g��filenamef��ice-9/boot-9.scm  � ���CY���h0������]4M�L5��$�� �LLLL6LLL6������������g��printer +��g��filenamef��ice-9/boot-9.scm             %   +  �  + ���C]�������h���y���-�1�3�L�6�������q�������g��k �g��args ��g��filenamef��ice-9/boot-9.scm       �  ���C"^� ������h���e��]O��Q�$��Z454L�>��"��G��4�4O�5$��"��>��"��G��"���4L�>��"��G��4L��O� �O�>��"��G��4 �>��"��G�� �6]������g��port  ��g��frame  ��g��key   ��g��args   ��g��default-printer  ��g��proc  " q�g��t  N a��g��filenamef��ice-9/boot-9.scm        "   %   9   ?   @   N   f   v  �  �  �  �  � ��g��nameg��print-exception�C�O�_i�`�������hP������*���;1�3��$��4L�>��"��G��"���L$��"��@-��1��3�L�6����������g��subr A�g��msg A�g��args  A�g��rest  A�g��_ J N��g��filenamef��ice-9/boot-9.scm             8  % ?  . A   J  N  � A  � J N ���C�����h������]�O�@��������g��port  �g��key  �g��args   �g��default-printer   ��g��filenamef��ice-9/boot-9.scm     �   ��g��nameg��scm-error-printer�C�4Sia�>��"��G��4Sib�>��"��G��4Sicd������h �����]�6���������g��port  �g��key  �g��args   �g��default-printer   �g��message  �g��faulty  ��g��filenamef��ice-9/boot-9.scm                 �   ��g��nameg��keyword-error-printer�C>��"��G��4Sie�>��"��G��4Sif�>��"��G��4Sig�>��"��G��4Sih�>��"��G��4Sii�>��"��G��4Sij�>��"��G��4Sik�>��"��G��4Sil�>��"��G��4Sim�>��"��G��4Sin�>��"��G��4Sio�>��"��G��4Sip�>��"��G��4Siq�>��"��G��4Sip�>��"��G��4Si�>��"��G��4SirstTuvwWxyz{|��h����*���1�3� 4L>��"��G��$��b45$��"��44554 54L >��"��G��"��4L >��"��G���$��4L �>��"��G��"���4L >��"��G��$�� L6$�� L6C-��1��3�L�6������������g��who ��g��what ��g��where  ��g��form  ��g��subform  ��g��extra  ��g��t  / B�g��file  [ ��g��line  [ ��g��col  [ ��g��_ � �� g��filenamef��ice-9/boot-9.scm          &   '  " -  2 /  " /   ?  = C   F  % L  5 N  % R   S   Y  - [   [   b   h  ! s   �   �   �   �   �   �   �   �   �   �   �   � �  � �  �   �  # �   �    �) �  � �  ���C��h������]�O�@��������g��port  �g��key  �g��args   �g��default-printer   ��g��filenamef��ice-9/boot-9.scm     �   ��g��nameg��syntax-error-printer�C>��"��G��4Si}~�����h������]�456�������������g��port  �g��key  �g��args   �g��default-printer   ��g��filenamef��ice-9/boot-9.scm       0   >   0   �   ��g��nameg��getaddrinfo-error-printer�C>��"��G���4XiZV������h���Q���]��C����I�������g��macro  �g��args  �g��body   ��   ���C��h���F���]��C��>�������g��macro  �g�� transformer  ��   ���CNP��h(������] 4455$��C45C�������������g��macro  "�g��doc  "�g�� transformer   "�g��t   "��g��filenamef��ice-9/boot-9.scm  7  7   7  7   8  ! 8 �  " ���C� h8���W���]�    ������CO�������g��macro  8�g��doc  8�g�� transformer   8��  8 ���CP��������h������]456����������g��macro  �g��args  �g��doc   �g��body1   �g��body   ��g��filenamef��ice-9/boot-9.scm  0  0 �  ���C����h���u���]��C�m�������g��macro  �g��args  �g��doc   �g��body1   �g��body   ��   ���C��������h������]!4�5"��e4�5$��@4�5$��@4�5"��  �6$��4 ?$�� @""$��4 ?$�� @""|����������g��x  ��g��tmp ��g��tmp   v�g��tmp  1 v�g��tmp  H v��g��filenamef��ice-9/boot-9.scm , �  � ��g�� documentationf��Define a defmacro.�C5R4XiZV��������h���Q���]��C����I�������g��macro  �g��args  �g��body   ��   ���CNP��h������]456����������g��macro  �g��args  �g��doc   �g��body1   �g��body   ��g��filenamef��ice-9/boot-9.scm  H  H �  ���C����h���u���]��C�m�������g��macro  �g��args  �g��doc   �g��body1   �g��body   ��   ���C� �������hP������]4�5"�� 4�5$��@�6$��4?$��@""�������g��x  P�g��tmp P�g��tmp   1��g��filenamef��ice-9/boot-9.scm D �  P ��g�� documentationf��3Define a defmacro, with the old lispy defun syntax.�C5R4.i>��"��G��4XiZV8��h���t���]45�$�� �CC�l�������g��form  �g��form*  ��g��filenamef��ice-9/boot-9.scm  X X �   ���CN�����h(���d���] 4�5$��@�6������\�������g��x  "�g��tmp "��g��filenamef��ice-9/boot-9.scm U �  " ���C5R����h���h���]�C���`�������g��x  ��g��filenamef��ice-9/boot-9.scm a �   ��g��nameg��identity�CR�����h���M���]�LL�@E�������g��filenamef��ice-9/boot-9.scm k   k '�   ���C��������h ���b���-��1��3�L�4�LO�>���6<���Z�������g��args ��g��filenamef��ice-9/boot-9.scm j  k �  ���C���h(���z��-�1�3�(���C4?�O�C���r������g��proc %�g��rest %�g��g   %��g��filenamef��ice-9/boot-9.scm c  g   i   i � % ��g��nameg��composeg�� documentationf��Compose 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.�CR�������h���k���-��1��3�4L��?C������c�������g��args ��g��filenamef��ice-9/boot-9.scm p  q  q �  ���C��h������]�O�C�������������g��proc  ��g��filenamef��ice-9/boot-9.scm m �  ��g��nameg��negateg�� documentationf��WReturn a procedure with the same arity as PROC that returns the `not' of PROC's result.�CR���h���V���-��1��3�L�C����N�������g��_ ��g��filenamef��ice-9/boot-9.scm v � ���C�������h������]�O�C�������������g��value  ��g��filenamef��ice-9/boot-9.scm s �  ��g��nameg��constg�� documentationf��JReturn a procedure that accepts any number of arguments and returns VALUE.�CR�h������]�$���6C�������g��value  �g�� procedure  ��g��filenamef��ice-9/boot-9.scm y  {   { �   ��g��nameg��and=>g�� documentationf��=When VALUE is #f, return #f. Otherwise, return (PROC VALUE).�CTRiR4XiZVs �������h���?���]�C����7�������g��dummy  �g��expr  ��   ���C#$%()9;=@2?DFG��������hH���f���]�    � ��C�������^�������g��dummy  A�g��expr  A�g��template   A�g��arg   A��  A ���CN���h@������]4�5$��@4�5$��@�6��������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��ice-9/boot-9.scm  �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��expr�g��exprg��warningSg��templateg��argg��...���C5RHIJK�h���D���]�L�6<�������g��filenamef��ice-9/boot-9.scm  �   ���CL�����h���D���]�L�6<�������g��filenamef��ice-9/boot-9.scm  �   ���CE�������h`���q���]L�O�L�O�4L�O�>���"��G��V4L�>��X4L�O�>���"��G��CX4L�O�>���"��G��Fi�������g��obj  `��g��filenamef��ice-9/boot-9.scm      '  $ 4  �  ` ���CK�������h���D���]�L�6<�������g��filenamef��ice-9/boot-9.scm  �   ���CL�����h���D���]�L�6<�������g��filenamef��ice-9/boot-9.scm  �   ���CB�������hh������]L�O�L�O�4L�O�>���"��G��V4L�>��X4L�O�>���"��G��CX4L�O�>���"��G��F������z�������g��obj  b�g��val  b��g��filenamef��ice-9/boot-9.scm      '  ( 6  �  b ���C���h(������]45�45���O��O�6���������g��prop &�g��lock &��g��filenamef��ice-9/boot-9.scm          &  �  & ��g��nameg��make-object-property�CMRNO������h ������] 44�55$��CC���������g��sym  �g��prop  �g��pair   ��g��filenamef��ice-9/boot-9.scm                   �   ��g��nameg��symbol-property�CPRNOQ����h8�����] 44�55$��C�4�56�������������g��sym  2�g��prop  2�g��val   2�g��pair   2��g��filenamef��ice-9/boot-9.scm                    (   )  * 0   2  �  2 ��g��nameg��set-symbol-property!�CRRNOQS�������h0������] 44�55$���44�556C���������g��sym  .�g��prop  .�g��pair   .��g��filenamef��ice-9/boot-9.scm                    "  & *   ,  �  . ��g��nameg��symbol-property-remove!�CTRU����h���z���]4�5$�� ��C�Cr�������g��ind  ��g��filenamef��ice-9/boot-9.scm          /   '�   ���CV��������h���}���]4�56�u�������g��a  ��g��filenamef��ice-9/boot-9.scm       �   ��g��nameg�� array-shape�CWRX��������h(������] 4�5$��$��CCC�����������g��args  $�g��kw  $�g��rem  $��g��filenamef��ice-9/boot-9.scm                   �  $ ��g��nameg�� kw-arg-ref�CYRZ��������h������]�C�������w�������g��s  ��g��filenamef��ice-9/boot-9.scm       �  ��g��nameg�� struct-layout�C[R\]���h ������]4�5$�� 4�56C����������g��old-port  �g��new-port  ��g��filenamef��ice-9/boot-9.scm         &   �   ��g��nameg��inherit-print-state�C^R4_i4`iaib5#cde���h8������]4>��"��G��44�5>��"��G��6��������g��s  7�g��p  7��g��filenamef��ice-9/boot-9.scm        #         # '   3 � # 7 � �  7 ���C5�4fi�g>��"��G����hRh�h������]�$���CC�������������g��obj  ��g��filenamef��ice-9/boot-9.scm         -   �   ��g��nameg�� record-type?�CiR#jdklmne� �����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��ice-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 �"  � ��g��nameg��default-record-printer�Cho`p�h���]���]C���U�������g��f  ��g��filenamef��ice-9/boot-9.scm = '  = 3�   ���Cqr2h���D���]�L��C<�������g��filenamef��ice-9/boot-9.scm B �   ���C��h���T���]L���C������L�������g��a  ��g��filenamef��ice-9/boot-9.scm B �  ���C��h���c���]L���C����[�������g��a  �g��b  ��g��filenamef��ice-9/boot-9.scm B �  ���C���h���r���]L���C��j�������g��a  �g��b  �g��c   ��g��filenamef��ice-9/boot-9.scm B �   ���C����h������]L���Cy�������g��a  �g��b  �g��c   �g��d   ��g��filenamef��ice-9/boot-9.scm B �   ���C�����h������]L���C�������������g��a  �g��b  �g��c   �g��d   �g��e   ��g��filenamef��ice-9/boot-9.scm B �   ���C������h������]L���C�����������g��a  �g��b  �g��c   �g��d   �g��e   �g��f   ��g��filenamef��ice-9/boot-9.scm B �   ���C�������h������]L���C���������g��a  �g��b  �g��c   �g��d   �g��e   �g��f   �g��g   ��g��filenamef��ice-9/boot-9.scm B �   ���Ch ������,�3�L��� C�����������g��a  �g��b  �g��c   �g��d   �g��e   �g��f   �g��g   �g��h   ��g��filenamef��ice-9/boot-9.scm B �   ���C�h ������,� 3� L��� C���������g��a  �g��b  �g��c   �g��d   �g��e   �g��f   �g��g   �g��h   �g��i   �� g��filenamef��ice-9/boot-9.scm B �   ���C��h ������,� 3� L�� � C�������g��a  �g��b  �g��c   �g��d   �g��e   �g��f   �g��g   �g��h   �g��i   �g��j  �� g��filenamef��ice-9/boot-9.scm B �  ���C���h(������,� 3� L��  � C�������������g��a  "�g��b  "�g��c   "�g��d   "�g��e   "�g��f   "�g��g   "�g��h   "�g��i   "�g��j  "�g��k  "�� g��filenamef��ice-9/boot-9.scm B �  " ���C����h(������,� 3� L��   � C�����������g��a  $�g��b  $�g��c   $�g��d   $�g��e   $�g��f   $�g��g   $�g��h   $�g��i   $�g��j  $�g��k  $�g��l  $�� g��filenamef��ice-9/boot-9.scm B �  $ ���C�����h(�����,� 3� L��    �C���������g��a  &�g��b  &�g��c   &�g��d   &�g��e   &�g��f   &�g��g   &�g��h   &�g��i   &�g��j  &�g��k  &�g��l  &�g��m  &�� g��filenamef��ice-9/boot-9.scm B �  & ���C������h(�����,�3�L��     �C������g��a  (�g��b  (�g��c   (�g��d   (�g��e   (�g��f   (�g��g   (�g��h   (�g��i   (�g��j  (�g��k  (�g��l  (�g��m  (�g��n  (��g��filenamef��ice-9/boot-9.scm B �  ( ���C�������h0���&��,�3�L��     �C������������g��a  *�g��b  *�g��c   *�g��d   *�g��e   *�g��f   *�g��g   *�g��h   *�g��i   *�g��j  *�g��k  *�g��l  *�g��m  *�g��n  *�g��o   *��g��filenamef��ice-9/boot-9.scm B �  * ���Ch0���5��,�3�L��     �C����-������g��a  ,�g��b  ,�g��c   ,�g��d   ,�g��e   ,�g��f   ,�g��g   ,�g��h   ,�g��i   ,�g��j  ,�g��k  ,�g��l  ,�g��m  ,�g��n  ,�g��o   ,�g��p   ,��g��filenamef��ice-9/boot-9.scm B �  , ���C�h0���D��,�3�L��     �C��<������g��a  .�g��b  .�g��c   .�g��d   .�g��e   .�g��f   .�g��g   .�g��h   .�g��i   .�g��j  .�g��k  .�g��l  .�g��m  .�g��n  .�g��o   .�g��p   .�g��q   .��g��filenamef��ice-9/boot-9.scm B �  . ���C��h0���S��,�3�L��     �CK������g��a  0�g��b  0�g��c   0�g��d   0�g��e   0�g��f   0�g��g   0�g��h   0�g��i   0�g��j  0�g��k  0�g��l  0�g��m  0�g��n  0�g��o   0�g��p   0�g��q   0�g��r   0��g��filenamef��ice-9/boot-9.scm B �  0 ���C���h8���b��,�3�L��     �C������Z������g��a  2�g��b  2�g��c   2�g��d   2�g��e   2�g��f   2�g��g   2�g��h   2�g��i   2�g��j  2�g��k  2�g��l  2�g��m  2�g��n  2�g��o   2�g��p   2�g��q   2�g��r   2�g��s   2��g��filenamef��ice-9/boot-9.scm B �  2 ���C20pst��������h8���Y���-��1��3�4�5L$�� L �@4L�56����Q�������g��args 4��g��filenamef��ice-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�"�� �O�4�$���"��4 �5>��"��G��C�������������g�� type-name !�g��fields !�g��printer  !�g��default-record-printer   !�g��rtd  H !�g��n  X ��g��filenamef��ice-9/boot-9.scm   ;   <  " = " , <  . ;  4 >  ? @  H : H :  Q A  R B ' X B   A   E  � E %  E !  G %  E � !  ��g��nameg��make-record-type�CvRirw��������h ������]4�5$���C�6������������g��obj  ��g��filenamef��ice-9/boot-9.scm J  K  K   L   M  M �   ��g��nameg��record-type-name�CdRirw������h ������]4�5$���C�6�����������g��obj  ��g��filenamef��ice-9/boot-9.scm O  P  P   Q   Q   R  R �   ��g��nameg��record-type-fields�CnRx06 ������h���f���]4�L�5$���CC����^�������g��f  ��g��filenamef��ice-9/boot-9.scm Y &  Z ,  Z (�   ���Cnr� hP������-�.�,�3�#��$��+�� 4O�4�55�6� C��������g��rtd O�g�� field-names O��g��filenamef��ice-9/boot-9.scm T  U   X  , Y ! 6 ] & > Y ! ? X  F W  M V  N V � O ��g��nameg��record-constructor�CyR���h���z���]�$��L��CC������r�������g��obj  ��g��filenamef��ice-9/boot-9.scm `   `  `   ` ,  ` #�   ���C���h���r���]�O�C������j�������g��rtd  ��g��filenamef��ice-9/boot-9.scm _ �  ��g��nameg��record-predicate�CzRk{|d������h0������] �45$��C4�5�6���������g��rtd  .�g��obj  .�g��t  .��g��filenamef��ice-9/boot-9.scm b  c  c  c   d   d !  e  f  + f  . d �  . ��g��nameg��%record-type-error�C}R~n}����h ���z���]�L&���L�CL�6�������r�������g��obj  ��g��filenamef��ice-9/boot-9.scm m   n  n   o  p �   ���C���h@������] 44�55$��"��4>��"��G���O�C�������������g��rtd  :�g�� field-name  :�g��pos   :��g��filenamef��ice-9/boot-9.scm i  j  j   j  j   k   l  ! l  ( l �  : ��g��nameg��record-accessor�CR~n}�������h ������]�L&���L�CL�6������������g��obj  �g��val  ��g��filenamef��ice-9/boot-9.scm v   w  w   x  y �   ���C��h@������] 44�55$��"��4>��"��G���O�C�������������g��rtd  :�g�� field-name  :�g��pos   :��g��filenamef��ice-9/boot-9.scm r  s  s   s  s   t   u  ! u  ( u �  : ��g��nameg��record-modifier�CRi���h������]�$���6C�������������g��obj  ��g��filenamef��ice-9/boot-9.scm {  |  |   | #  | �   ��g��nameg��record?�CR������h������]�$���C�6����������g��obj  ��g��filenamef��ice-9/boot-9.scm ~            �   ��g��nameg��record-type-descriptor�CkR4.i>��"��G��h���x���]�C�p�������g��x  ��g��filenamef��ice-9/boot-9.scm       �   ��g��nameg��->bool�CRu`�����h ������-��1��3�44�5?6������������g��args ��g��filenamef��ice-9/boot-9.scm      '      �  ��g��nameg�� symbol-append�CRu����h������-��1��3�4�?6����{�������g��args ��g��filenamef��ice-9/boot-9.scm      �  ��g��nameg�� list->symbol�CRu�������h���}���-��1��3�4�?6����u�������g��args ��g��filenamef��ice-9/boot-9.scm      �  ��g��nameg��symbol�CR�����h8������]"��"(��C&��C" �"������������g��l  3�g��k  3�g��n   (�g��l   (��g��filenamef��ice-9/boot-9.scm                 (  (  �  3 ��g��nameg�� list-index�C~R4 i>��"��G��4/i5$��4 i>��"��G��"���4/i5$���h���h���]4�56��`�������g��str  ��g��filenamef��ice-9/boot-9.scm        �   ���C"�o=����h���M���]�L�6������E�������g��filenamef��ice-9/boot-9.scm  )  4�  ���C�h���Y���-��1��3�C�����Q�������g��args ��g��filenamef��ice-9/boot-9.scm  � ���C�h0������] 4�O�5$��4>��"��G��CC�������g��str  0�g��port  0��g��filenamef��ice-9/boot-9.scm                   �  0 ���CR4/i5$������h������]44�55C������{�������g��str  ��g��filenamef��ice-9/boot-9.scm            $   �   ���C"�o=`���h���h���]�4L�56�������`�������g��filenamef��ice-9/boot-9.scm     1  D  1   &�   ���C������h���Y���-��1��3�C�����Q�������g��args ��g��filenamef��ice-9/boot-9.scm  � ���C�h0������] 4�O�5$��4>��"��G��CC�������g��str  0�g��port  0��g��filenamef��ice-9/boot-9.scm                   �  0 ���CRo�����h������]�&�� 4� 5CC�������g��args  ��g��filenamef��ice-9/boot-9.scm            �   ��g��nameg��system-error-errno�CRe2� ������hH���(��)����3��6-�1�3�444555�6���� ������g��message  D�g��args  D�g��msg  3 D��g��filenamef��ice-9/boot-9.scm                 "  # #  ( &  3 .  A 0  ( 1   3   3   9   A  % D  �  �  D ��g��nameg��error�CR���h���q���]� C�i�������g��obj  ��g��filenamef��ice-9/boot-9.scm    �   ��g��nameg��tm:sec�CR�h���q���]� C�i�������g��obj  ��g��filenamef��ice-9/boot-9.scm    �   ��g��nameg��tm:min�CR�h���r���]� Cj�������g��obj  ��g��filenamef��ice-9/boot-9.scm    �   ��g��nameg��tm:hour�CRh���r���]� Cj�������g��obj  ��g��filenamef��ice-9/boot-9.scm    �   ��g��nameg��tm:mday�CRh���q���]� Ci�������g��obj  ��g��filenamef��ice-9/boot-9.scm    �   ��g��nameg��tm:mon�CR�h���r���]� Cj�������g��obj  ��g��filenamef��ice-9/boot-9.scm    �   ��g��nameg��tm:year�CRh���r���]� Cj�������g��obj  ��g��filenamef��ice-9/boot-9.scm    �   ��g��nameg��tm:wday�CRh���r���]� Cj�������g��obj  ��g��filenamef��ice-9/boot-9.scm    �   ��g��nameg��tm:yday�CRh���s���]� Ck�������g��obj  ��g��filenamef��ice-9/boot-9.scm    �   ��g��nameg��tm:isdst�CR�������h���t���]� Cl�������g��obj  ��g��filenamef��ice-9/boot-9.scm    �   ��g��nameg�� tm:gmtoff�CR������h���r���]� Cj�������g��obj  ��g��filenamef��ice-9/boot-9.scm    �   ��g��nameg��tm:zone�CRh������]� C������~�������g��obj  �g��val  ��g��filenamef��ice-9/boot-9.scm    �  ��g��nameg�� set-tm:sec�CR����h������]� C������~�������g��obj  �g��val  ��g��filenamef��ice-9/boot-9.scm    �  ��g��nameg�� set-tm:min�CR����h������]� C������������g��obj  �g��val  ��g��filenamef��ice-9/boot-9.scm   �  ��g��nameg�� set-tm:hour�CR���h������]� C������������g��obj  �g��val  ��g��filenamef��ice-9/boot-9.scm   �  ��g��nameg�� set-tm:mday�CR���h������]� C�����~�������g��obj  �g��val  ��g��filenamef��ice-9/boot-9.scm   �  ��g��nameg�� set-tm:mon�CR����h������]� C������������g��obj  �g��val  ��g��filenamef��ice-9/boot-9.scm   �  ��g��nameg�� set-tm:year�CR���h������]� C������������g��obj  �g��val  ��g��filenamef��ice-9/boot-9.scm   �  ��g��nameg�� set-tm:wday�CR���h������]� C������������g��obj  �g��val  ��g��filenamef��ice-9/boot-9.scm   �  ��g��nameg�� set-tm:yday�CR���h������]� C������������g��obj  �g��val  ��g��filenamef��ice-9/boot-9.scm   �  ��g��nameg�� set-tm:isdst�CR��h������]� C������������g��obj  �g��val  ��g��filenamef��ice-9/boot-9.scm   �  ��g��nameg�� set-tm:gmtoff�CR�h������]� C������������g��obj  �g��val  ��g��filenamef��ice-9/boot-9.scm   �  ��g��nameg�� set-tm:zone�CR���h���t���]� C�l�������g��obj  ��g��filenamef��ice-9/boot-9.scm    �   ��g��nameg�� tms:clock�CR������h���t���]� C�l�������g��obj  ��g��filenamef��ice-9/boot-9.scm    �   ��g��nameg�� tms:utime�CR������h���t���]� Cl�������g��obj  ��g��filenamef��ice-9/boot-9.scm    �   ��g��nameg�� tms:stime�CR������h���u���]� Cm�������g��obj  ��g��filenamef��ice-9/boot-9.scm    �   ��g��nameg�� tms:cutime�CR�����h���u���]� Cm�������g��obj  ��g��filenamef��ice-9/boot-9.scm    �   ��g��nameg�� tms:cstime�CRiR����h ������-�.�,�3�#���6�������g��port �g��offset �g��whence  ��g��filenamef��ice-9/boot-9.scm   �  ��g��nameg��file-set-position�CR����h`������]4�5$��)4�>��"��G��4�>��"��G��C4�>��"��G��4� >��"��G���C�������g��fd/port  `�g��fd  `��g��filenamef��ice-9/boot-9.scm        "  7  K  �  ` ��g��nameg�� move->fdes�CR����h ������] 4�5 $�� �6C���������g��port  �g��revealed ��g��filenamef��ice-9/boot-9.scm               !   �   ��g��nameg��release-port-handle�CR������h@�����)���3�4�56] 44�554 >��"��G��C������g��port/fd �g��mode �g��port/fd  @�g��mode  @�g��new-fd   @�g��port  ( @��g��filenamef��ice-9/boot-9.scm                (   (   +  �  �  @ ��g��nameg�� dup->port�CR?����h ������)��� 3��6]�6����������g��port/fd �g��port/fd  �g��new-fd  ��g��filenamef��ice-9/boot-9.scm             "   " �  �   ��g��nameg�� dup->inport�CRC���h ������)��� 3��6]�6����������g��port/fd �g��port/fd  �g��new-fd  ��g��filenamef��ice-9/boot-9.scm %   '   '   %   )   ) �  �   ��g��nameg�� dup->outport�CR�����hP������)���!3�4�5$���6�4�56]4�5$���6�4�56������������g��port/fd '�g��port/fd ) K�g��new-fd ) K��g��filenamef��ice-9/boot-9.scm ,  .  .   /  0  ' 0 ) ,  * 2 4 2  < 3 A 4  K 4 � ' � ) K ��g��nameg��dup�CR��������h������]�6�������������g��port  �g��modes  ��g��filenamef��ice-9/boot-9.scm 6 7 �  ��g��nameg��duplicate-port�CR?�hp���r��]"��\(��!4�54 >��"��G��C45$�� 445>��"��G��C"4�5"�j������g��fdes  o�g�� rest-ports  b�g��result   -��g��filenamef��ice-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 ��g��nameg�� fdes->inport�CRC����hp���s��]"��\(��!4�54 >��"��G��C45$�� 445>��"��G��C"4�5"�k������g��fdes  o�g�� rest-ports  b�g��result   -��g��filenamef��ice-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 ��g��nameg�� fdes->outport�CR����h(������]4�4�5>��"��G���6�������������g��port  "��g��filenamef��ice-9/boot-9.scm S  T   T   T   T  " U �  " ��g��nameg�� port->fdes�CR`�����h ������]$��4�56�6����������g��name  �g��value  ��g��filenamef��ice-9/boot-9.scm W  X  Y   Y "  Y   Y   Z �   ��g��nameg��setenv�CR���h������]�6�������g��name  ��g��filenamef��ice-9/boot-9.scm \  ^ �   ��g��nameg��unsetenvg�� documentationf��/Remove the entry for NAME from the environment.�CR����h���~���]�/6������v�������g��c  ��g��filenamef��ice-9/boot-9.scm x  y �  ��g��nameg��file-name-separator?�CRR�����h������]�6�������������g�� file-name  ��g��filenamef��ice-9/boot-9.scm }   ~  ~ �  ��g��nameg��absolute-file-name?�C2R69`���hP���%��] 4�5 $��"�� 4�5�$�� 45"��$��"��6���������g��vicinity  M�g��file  M�g��len  %�g��tail  % M��g��filenamef��ice-9/boot-9.scm                 ) "   %   1   2  & =   A   C   M  �  M ��g��nameg�� in-vicinity�CR��������h���e���]�6���]�������g��filenamef��ice-9/boot-9.scm    �   ��g��nameg�� command-line�CR�h���h���]�445�56`�������g��filenamef��ice-9/boot-9.scm     3   =   3   '�   ���C������h���Y���-��1��3�C�����Q�������g��args ��g��filenamef��ice-9/boot-9.scm  � ���C� ����hX���!��]45��$���"��45��$���"�����4�54 5$�� 6C�������g��t 7�g��t ! 4�g��home 7 W�g�� init-file B W��g��filenamef��ice-9/boot-9.scm               !   7   :   @  & B   B   E   O   U  �  W ��g��nameg��load-user-init�CR������h0���y���]L�L[��$���"���Y4L>���ZCZF���q�������g��t ��g��filenamef��ice-9/boot-9.scm    %   =    "  �  - ���C��h���M���]�LL�@E�������g��filenamef��ice-9/boot-9.scm     $�   ���C��������h@������]45U���4�O�>���XCXFG�O�6����������g��tag  =�g��thunk  =�g�� prompt-tag  =�g��k  ' =�g��args  ' =��g��filenamef��ice-9/boot-9.scm       %        =  �  = ��g��nameg�� %start-stack�CR4XiZV��h���O���]��C������G�������g��dummy  �g��tag  �g��exp   ��   ���CN��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/boot-9.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��tagg��exp���C5R ���h���M���]�L�6E�������g��filenamef��ice-9/boot-9.scm     �   ���C��������h������]�O�6�{�������g��name  ��g��filenamef��ice-9/boot-9.scm       �   ��g��nameg��load-from-path�CR4Xi�ZVs�h ���>���]���C6�������g��dummy  �g��elt  ��  ���CN���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/boot-9.scm  �  " ��g�� documentationf��>Add ELT to Guile's load path, at compile-time and at run-time.g�� macro-typeg�� syntax-rulesg��patternsg��elt���C5�RR�������h���~���]� Cv�������g��v  ��g��filenamef��ice-9/boot-9.scm    "�   ��g��nameg��assert-load-verbosity�C R)*#$!"^������hP������]�4>��"��G��4>��"��G��4L�>��"��G��4>���"��G��6������������g��filenamef��ice-9/boot-9.scm                '  9  L  �  L ���C��������h ������]$��45��O�6C�������������g��file  ��g��filenamef��ice-9/boot-9.scm         �   ��g��nameg��%load-announce�C"R"i#i4 i5$R4%i.$&'(�����h ������][$��4545�66��������g��c  �g��port  ��g��filenamef��ice-9/boot-9.scm         *         �   ���C>��"��G��#j)*lA+,e� �h���r��] 4>��"��G��44�5$��"��>��"��G��4>��"��G��44�5>��"��G��4>��"��G��444�5 5>��"��G�� 6�����j������g��mod  ��g��port  ��g��t  3��g��filenamef��ice-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 �  � ��g��nameg�� %print-module�C-Rhi.-���h���q���]�6������i�������g��obj  �g��port  ��g��filenamef��ice-9/boot-9.scm    �  ���C/?�@R4fi@i/>��"��G��@i�������h0�����,�3�L��     �C��������g��obarray  .�g��uses  .�g��binder   .�g�� eval-closure   .�g�� transformer   .�g��name   .�g��kind   .�g��duplicates-handlers   .�g��import-obarray   .�g�� observers  .�g��weak-observers  .�g��version  .�g�� submodules  .�g��submodule-binder  .�g��public-interface   .�g��filename   .�g��next-unique-id   .��g��filenamef��ice-9/boot-9.scm  �  . ���C�O��AR@iri Ai@�������h���j���]�$���CC������b�������g��obj  ��g��filenamef��ice-9/boot-9.scm  �   ��g��nameg��module?�CBR@i�}����h���Y���]�L�&��� CL��6Q�������g��module  ��g��filenamef��ice-9/boot-9.scm  �   ���C�O��CR@i�}�����h ���j���]�L�&��� CL��6������b�������g��module  �g��val  ��g��filenamef��ice-9/boot-9.scm  �   ���C�O��DR@i�}����h���Y���]�L�&��� CL��6Q�������g��module  ��g��filenamef��ice-9/boot-9.scm  �   ���C�O��ER@i�}�����h ���j���]�L�&��� CL��6������b�������g��module  �g��val  ��g��filenamef��ice-9/boot-9.scm  �   ���C�O��FR@i�}����h ���Y���]�L�&��� CL��6�������Q�������g��module  ��g��filenamef��ice-9/boot-9.scm  �   ���C�O��GR@i�}�����h ���j���]�L�&��� CL��6�����b�������g��module  �g��val  ��g��filenamef��ice-9/boot-9.scm  �   ���C�O��HR@i�}����h ���Y���]�L�&��� CL��6�������Q�������g��module  ��g��filenamef��ice-9/boot-9.scm  �   ���C�O��IR@i�}�����h ���j���]�L�&��� CL��6�����b�������g��module  �g��val  ��g��filenamef��ice-9/boot-9.scm  �   ���C�O��JR@i�}����h ���j���]�L�&��� CL��6�����b�������g��module  �g��val  ��g��filenamef��ice-9/boot-9.scm  �   ���C�O��KR@i�}����h ���j���]�L�&��� CL��6�����b�������g��module  �g��val  ��g��filenamef��ice-9/boot-9.scm  �   ���C�O��LR@i�}����h ���Y���]�L�&��� CL��6�������Q�������g��module  ��g��filenamef��ice-9/boot-9.scm  �   ���C�O��)R@i�}�����h ���j���]�L�&��� CL��6�����b�������g��module  �g��val  ��g��filenamef��ice-9/boot-9.scm  �   ���C�O��MR@i�}����h ���Y���]�L�&��� CL��6�������Q�������g��module  ��g��filenamef��ice-9/boot-9.scm  �   ���C�O��NR@i�}�����h ���j���]�L�&��� CL��6�����b�������g��module  �g��val  ��g��filenamef��ice-9/boot-9.scm  �   ���C�O��OR@i�}����h ���Y���]�L�&��� CL��6�������Q�������g��module  ��g��filenamef��ice-9/boot-9.scm  �   ���C�O��PR@i�}�����h ���Y���]�L�&��� CL��6�������Q�������g��module  ��g��filenamef��ice-9/boot-9.scm  �   ���C�O��QR@i�}�����h ���j���]�L�&��� CL��6�����b�������g��module  �g��val  ��g��filenamef��ice-9/boot-9.scm  �   ���C�O��RR@i�}����h ���Y���]�L�&��� CL��6�������Q�������g��module  ��g��filenamef��ice-9/boot-9.scm  �   ���C�O��SR@i�}�����h ���Y���]�L�&��� CL��6�������Q�������g��module  ��g��filenamef��ice-9/boot-9.scm  �   ���C�O��TR@i�}�����h ���j���]�L�&��� CL��6�����b�������g��module  �g��val  ��g��filenamef��ice-9/boot-9.scm  �   ���C�O��UR@i�}����h ���Y���]�L�&��� CL��6�������Q�������g��module  ��g��filenamef��ice-9/boot-9.scm  �   ���C�O��VR@i�}�����h ���j���]�L�&��� CL��6�����b�������g��module  �g��val  ��g��filenamef��ice-9/boot-9.scm  �   ���C�O��WR@i�}����h ���Y���]�L�&��� CL��6�������Q�������g��module  ��g��filenamef��ice-9/boot-9.scm  �   ���C�O��XR@i�}�����h ���j���]�L�&��� CL��6�����b�������g��module  �g��val  ��g��filenamef��ice-9/boot-9.scm  �   ���C�O��YR@i�}����h ���Y���]�L�&��� CL��6�������Q�������g��module  ��g��filenamef��ice-9/boot-9.scm  �   ���C�O��ZR@i�}�����h ���j���]�L�&��� CL��6�����b�������g��module  �g��val  ��g��filenamef��ice-9/boot-9.scm  �   ���C�O��[R@i�}����h ���Y���]�L�&��� CL��6�������Q�������g��module  ��g��filenamef��ice-9/boot-9.scm  �   ���C�O��\R@i�}�����h ���j���]�L�&��� CL��6�����b�������g��module  �g��val  ��g��filenamef��ice-9/boot-9.scm  �   ���C�O��]R@i�}����h ���Y���]�L�&��� CL��6�������Q�������g��module  ��g��filenamef��ice-9/boot-9.scm  �   ���C�O��^R@i�}�����h ���j���]�L�&��� CL��6�����b�������g��module  �g��val  ��g��filenamef��ice-9/boot-9.scm  �   ���C�O��_R`a3B8bAcdH� �����h�����-��.�,�3��#�� �#��#��4�5$��"��4�>��"��G��"��4>��"��+G��"��$$��45$��"��""��"$��'45$��"��4>��"��G��"��� 4 �5 4 X54 54 5 6�������������g��size ��g��uses ��g��binder  ���g��filenamef��ice-9/boot-9.scm    1 )  3   8   <  C   P �  T � [ �  g   j   n   o   {  �   �   �   �   �   �   �   �   �   �   �   �  � � ��g��nameg�� make-module�CeRRQ���h(������]4�4�5>��"��G���C�����������g��module  $�g��proc  $��g��filenamef��ice-9/boot-9.scm      +      #  �  $ ��g��nameg��module-observe�CfRBS�h(������-�.�,�3�#��4�56����������g��module %�g�� observer-id %�g��proc  %��g��filenamef��ice-9/boot-9.scm   !  % ! � %  ��g��nameg��module-observe-weak�CgRhSRiQ�h`��� ��]��45$��445>��"��G��"�� 44455>��"��G��C����������g��token  \�g��module  Z�g��id   Z��g��filenamef��ice-9/boot-9.scm #  $   %  $  &   &   '   '  ( '  5 (  : ( & ? ( 1 G ( & L ( �  \ ��g��nameg��module-unobserve�CjRkR4Iil5mR4ci5�nRkonp��������h������]$�� �6�6��������g��m  ��g��filenamef��ice-9/boot-9.scm /  0   1   2 �   ��g��nameg��module-modified�CqRKmk����h ���V���]�4>��"��G�� C�������N�������g��filenamef��ice-9/boot-9.scm 9   :   ; �   ���Ckrp����h���p���]�6h�������g��m  �g��dummy  ��g��filenamef��ice-9/boot-9.scm ?   @ �   ���CnsLm�h8���h���]� 4>��"��G��4>��"��G��6�������`�������g��filenamef��ice-9/boot-9.scm =   >   ?   B  1 C �  1 ���CKmk���h ���V���]�4>��"��G�� C�������N�������g��filenamef��ice-9/boot-9.scm 9   :   ; �   ���Ckrp����h���p���]�6h�������g��m  �g��dummy  ��g��filenamef��ice-9/boot-9.scm ?   @ �   ���CnsLm�h8���h���]� 4>��"��G��4>��"��G��6�������`�������g��filenamef��ice-9/boot-9.scm =   >   ?   B  1 C �  1 ���Ckrp��h���p���]�6h�������g��m  �g��dummy  ��g��filenamef��ice-9/boot-9.scm ?   @ �   ���CnsLm�h8���h���]� 4>��"��G��4>��"��G��6�������`�������g��filenamef��ice-9/boot-9.scm =   >   ?   B  1 C �  1 ���C�����hH������]4>���"��G��V4�>���X4>���"��G��CX4>���"��G��F������������g��thunk  C��g��filenamef��ice-9/boot-9.scm 7  8 �  C ��g��nameg��call-with-deferred-observers�CtR������h���`���]�L�6X�������g��proc  ��g��filenamef��ice-9/boot-9.scm F  F �   ���CQrh���p���]L�6h�������g��id  �g��proc  ��g��filenamef��ice-9/boot-9.scm K   K #�   ���CS��h8������]4�O�4�5>��"��G���O�4�56�������������g��m  2��g��filenamef��ice-9/boot-9.scm E  F  F %  F  * K - 2 K �  2 ��g��nameg��module-call-observers�CpRuE��������hP���0��]"��)$�� 4�5$��C"C4�5$��C45"(������g��fn  P�g��m  P�g��v   P�g��pos   /�g��t   -�g��t  8 P��g��filenamef��ice-9/boot-9.scm f  g  h h   i  i   i  i ' j  - j 0 k  8 k  D l P l �  P ��g��nameg�� module-search�CuRv�����h ������] 4�5$��CC��������������g��m  �g��v  �g��var  ��g��filenamef��ice-9/boot-9.scm y  z z   {   | �   ��g��nameg��module-locally-bound?�C(RH�����h ������] 4�5$��CC��������������g��m  �g��v  �g��var  ��g��filenamef��ice-9/boot-9.scm           �   ��g��nameg�� module-bound?�CwRxy�h������]$��"���6��������g��ob  �g��key  ��g��filenamef��ice-9/boot-9.scm         �   ��g��nameg��module-obarray-get-handle�CzRE{�����h������]$��"���6��������g��ob  �g��key  ��g��filenamef��ice-9/boot-9.scm         �   ��g��nameg��module-obarray-ref�C|RBo����h ������]$��"���6��������������g��ob  �g��key  �g��val   ��g��filenamef��ice-9/boot-9.scm         �   ��g��nameg��module-obarray-set!�C}R~h�h������]$��"���6��������g��ob  �g��key  ��g��filenamef��ice-9/boot-9.scm         �   ��g��nameg��module-obarray-remove!�CRzC�������h������]44�55C������������g��m  �g��v  ��g��filenamef��ice-9/boot-9.scm      '        �   ��g��nameg��module-symbol-locally-interned?�CRu�������h������]�6�����������g��m  �g��v  ��g��filenamef��ice-9/boot-9.scm   �  ��g��nameg��module-symbol-interned?�CRv�hH��� ��-�1�3�4�5"��(��6C$��$��C""�����������g��m C�g��v C�g��opt-val  C�g��var   C��g��filenamef��ice-9/boot-9.scm         "   &  )  *   3   7   :  � C  ��g��nameg��module-symbol-local-binding�CRH����hH�����-�1�3�4�5"��(��6C$��$��C""������������g��m C�g��v C�g��opt-val  C�g��var   C��g��filenamef��ice-9/boot-9.scm         "   &  )  *   3   7   :  � C  ��g��nameg��module-symbol-binding�CR|CqD��������hh�����] 44�5545$��4�>��"��G��"��$��C45�4�>��"��G��C����������g��m  d�g��v  d�g��b   9�g��t  9 d�g�� local-var  I d��g��filenamef��ice-9/boot-9.scm       #        �  �     9   E   I   L �  d ��g��nameg��module-make-local-var!�CRvD���h8������] 4�5$��C45�4�>��"��G��C���������g��module  6�g��symbol  6�g��t  6�g��var   6��g��filenamef��ice-9/boot-9.scm               �  6 ��g��nameg��module-ensure-local-variable!�CR}Cq�hh��� ��]45$��"��4>��"��G��$��"��4>��"��G��44�5>��"��G���6���������g��m  e�g��v  e�g��var   e��g��filenamef��ice-9/boot-9.scm              (  ,   1  5 <  E !  H !  W !  e " �  e ��g��nameg�� module-add!�CDRCq�������h(������]44�5>��"��G���6��������������g��m  !�g��v  !��g��filenamef��ice-9/boot-9.scm (  )   )   )  ! * �  ! ��g��nameg��module-remove!�CRsCq������h ������]44�5>��"��G���6��������g��m  ��g��filenamef��ice-9/boot-9.scm ,  -   -   -   . �   ��g��nameg�� module-clear!�CRrC�h������]�456��������g��proc  �g��module  ��g��filenamef��ice-9/boot-9.scm 4  5   5 �   ��g��nameg��module-for-each�CRC��h������]�456��������g��proc  �g��module  ��g��filenamef��ice-9/boot-9.scm 7  8   8 �   ��g��nameg�� module-map�CREVX�����h8������] 44�55$��C4�5$�� 4�5�6C����������g��module  5�g��name  5�g��t   5��g��filenamef��ice-9/boot-9.scm @  A   A   A   A   B & B  ' C 3 C �  5 ��g��nameg��module-ref-submodule�CRBV�h������]4�56��������������g��module  �g��name  �g�� submodule   ��g��filenamef��ice-9/boot-9.scm E  F   F �   ��g��nameg��module-define-submodule!�CREVXvB,*� �h�����] 44�55$��C4�5$��44�5�5"��$��C4�5$��1$��(45$��4�>��"��G��CCCC������g��module  ��g��name  ��g��t   ��g��t  9 ��g��var  M ���g��filenamef��ice-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 �  � ��g��nameg��module-ref-submodule�CRvB,GBV� �h���o��]4�5$��W$��"�� 45$��4�>��"��G��"��4�>��"��G��"��4�>��"��G��4�56������g������g��module  ��g��name  ��g�� submodule   ��g��var  ��g��t   0��g��filenamef��ice-9/boot-9.scm Z  [  [   \   ]   ]   ]  % ^  * ^ , ^  - ^  4 \ 5 _ 9 _  = _ ( D _ Q ` � a  � a �  � ��g��nameg��module-define-submodule!�CR�h ���h���]�45�N4M�>��"��G��N�C`�������g��filenamef��ice-9/boot-9.scm k   l ' l  m   n �  ���C�������h ���h���]�45�N4M�>��"��G��N�C`�������g��filenamef��ice-9/boot-9.scm p   q ' q  r   s �  ���C�������h ���h���]�45�N4M�>��"��G��N�C`�������g��filenamef��ice-9/boot-9.scm k   l ' l  m   n �  ���C�������h ���h���]�45�N4M�>��"��G��N�C`�������g��filenamef��ice-9/boot-9.scm p   q ' q  r   s �  ���C�������h ���h���]�45�N4M�>��"��G��N�C`�������g��filenamef��ice-9/boot-9.scm p   q ' q  r   s �  ���C�����hp������]45�HHO�O�4O�>���"��G��V4�>���X4O�>���"��G��CX4O�>���"��G��F�������g��thunk  p�g�� inner-module  p�g�� outer-module   p��g��filenamef��ice-9/boot-9.scm h  i   i   k �  p ��g��nameg��save-module-excursion�CRH�������hH�����-�1�3�4�5"��(�� �6C$��$��C""�������g��module G�g��name G�g��rest  G�g��variable   G��g��filenamef��ice-9/boot-9.scm ~        "  & , * - .  7  ;  > � G  ��g��nameg�� module-ref�CJRH��������h(������] 4�5$��C�6���������g��module  &�g��name  &�g��value   &�g��variable  &��g��filenamef��ice-9/boot-9.scm          " ( & �  & ��g��nameg�� module-set!�CRvqFD����h8��� ��]4�5$�� �645�6�������������g��module  1�g��name  1�g��value   1�g��variable  1�g��variable  % 1��g��filenamef��ice-9/boot-9.scm          %  1 �  1 ��g��nameg��module-define!�CGRH���h ������] 4�5$��CC��������������g��module  �g��name  �g��variable  ��g��filenamef��ice-9/boot-9.scm       �   ��g��nameg��module-defined?�CR EFsPq�����hh�����]�&��"��44�55$��C4�44�5�5>��"��G��44�5>��"��G���6�����������g��module  c�g�� interface  c��g��filenamef��ice-9/boot-9.scm        !  $  ) ! , ) 7 ) 9 ! >  G  J  U  c �  c ��g��nameg�� module-use!�CRE FsPq� ��h�����]*4�5"��U(�� 45"��O45$��"�� 45$��"��""4�45>��"��G��44�5>��"��G���6�������������g��module  ��g�� interfaces  ��g��cur  ��g��in   d�g��out   d�g��iface  & \�g��t  1 J�g��new  o ���g��filenamef��ice-9/boot-9.scm          #  & % &  ) " 1  ? 3 N  Y  d  d  g , o  o  r  w  �  �  �  �  � �  � ��g��nameg��module-use-interfaces!�CRJ��������hX���D��]"(���C"��4(�� 645$��"C�"���<������g��root  U�g��names  U�g��cur   C�g��head   C�g��tail   C�g��cur  ' C��g��filenamef��ice-9/boot-9.scm         �  ' � /   4   7  ( A   C  H  K  U �  U ��g��nameg�� nested-ref�CR�hX���_��]#"��;(�� 645$��"6�"�����W������g��root  S�g��names  S�g��val   S�g��cur   A�g��head   A�g��tail   A�g��cur   A��g��filenamef��ice-9/boot-9.scm             ' ,  / # 9  =  A  A   F   I   S  �  S ��g��nameg�� nested-set!�CRG�������hX���b��]#"��;(�� 645$��"6�"�����Z������g��root  S�g��names  S�g��val   S�g��cur   A�g��head   A�g��tail   A�g��cur   A��g��filenamef��ice-9/boot-9.scm                '  ,   /  # 9   =   A   A   F   I   S  �  S ��g��nameg��nested-define!�CR���hX���Q��]""��9(��645$��"6�"�������I������g��root  Q�g��names  Q�g��cur   ?�g��head   ?�g��tail   ?�g��cur   ?��g��filenamef��ice-9/boot-9.scm              % ! * #  - # # 7 #  ; "  ? "  ?   D   G   Q  �  Q ��g��nameg��nested-remove!�CR����h@�����]"��*(��C45$�� "C�"����������g��root  <�g��names  <�g��cur   0�g��names   0�g��cur   0��g��filenamef��ice-9/boot-9.scm &  '  )   +   + -  +   +  ! , & -  . -  0 ' �  < ��g��nameg��nested-ref-module�CReMLA� ������h�����]#(�� �6"��(�� 645$��"��[4 54>��"��G��44 4 5�5>��"��G��4>��"��G��"g�"U������� ������g��root  ��g��names  ��g��module   ��g��cur   ��g��head   ��g��tail   ��g��t  / ��g��m  D ��g��cur  � ��� g��filenamef��ice-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 �  � ��g��nameg��nested-define-module!�CR�h������]45��6���w�������g��names  ��g��filenamef��ice-9/boot-9.scm A  B  B �  ��g��nameg�� local-ref�CR����h������]45��6��������g��names  �g��val  ��g��filenamef��ice-9/boot-9.scm D  E   E �   ��g��nameg�� local-set!�CR��h������]45��6��������g��names  �g��val  ��g��filenamef��ice-9/boot-9.scm G  H   H �   ��g��nameg�� local-define�CR��������h������]45��6���z�������g��names  ��g��filenamef��ice-9/boot-9.scm J  K  K �  ��g��nameg�� local-remove�CR�h������]45��6���~�������g��names  ��g��filenamef��ice-9/boot-9.scm M  N  N �  ��g��nameg��local-ref-module�CR�����h������]45��6��������g��names  �g��mod  ��g��filenamef��ice-9/boot-9.scm P  Q   Q �   ��g��nameg��local-define-module�CR4ei 5�4Di�4Ci5�>��"��G��4Li�@>��"��G��4_i�4Ki5>��"��G����R4ei 5�4Di�4Ci5�>��"��G��4Li�@>��"��G��4Mi�>��"��G��4[i��>��"��G����R4[iii>��"��G��@�����h ������-�1�3��$��C�6����������g��name �g��args ��g��filenamef��ice-9/boot-9.scm        �  ��g��nameg��resolve-module�CMR^_��h(������] 4�54�>��"��G��C������������g��m  #�g��i #��g��filenamef��ice-9/boot-9.scm     "  �  # ��g��nameg��module-generate-unique-id!�CKRRRRR4ii>��"��G��4i@i45�LM����hX������] 4L��5$��C45��4�>��"��G��445�>��"��G��L��6������������g��mod  S�g��t S�g��name  S��g��filenamef��ice-9/boot-9.scm          3 6 # 9 3 < # E S �  S ���C�O��ARu`A+K� ��hp�����-��.�,�3��#���#��45�$��@4�44554  54 54  556 �6�������g��id o�g��m o�g��number  @ N�g��number  W e��g��filenamef��ice-9/boot-9.scm  '  1 )  ,  2  3 6 & @ @  C  P  Q W  Z  g  i  o � o ��g��nameg�� module-gensymg�� documentationf��Return 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�����] 4�5$��C4 54>��"��G��444�55>��"��G��4�>��"��G��C����������g��module  l�g��name  l�g��t  l�g��m   l��g��filenamef��ice-9/boot-9.scm         &  +  4  9  < $ F  K  T �  l ��g��nameg��make-modules-in�CRZeLAUTM[ E�������h�����]4�5$�� �"��$��j4 544�5>��"��G��44�5>��"��G��4>��"��G��4 �>��"��G��"���4  4 �55$��"��� $��� 6C�������g��module  ��g�� interface ��g�� interface  & ���g��filenamef��ice-9/boot-9.scm           &  ) . & 9 B G ) R [ a & f o �  � % �  �  �  � �  � �  � ��g��nameg��beautify-user-module!�CR���h���r���]L�L�6������j�������g��v  ��g��filenamef��ice-9/boot-9.scm  "�  ��g��nameg��matches?�CUY344� �h�����]O�L�Q�4�5$���C�$��p�$���C$���C$�� �6$�� �6 $���4L�5C  �6  �6������������g��v-ref  ��g��t  ��g��matches?  ��g��key  - ��g��v  � ���g��filenamef��ice-9/boot-9.scm      "  & *  -  - =  ?  I N  P  Z a % c  l s $ u  ~ � " �  � " �  �  �  �  � �  � ��g��nameg��sub-version-matches?�C��������h���r���]�L�6������j�������g��v  ��g��filenamef��ice-9/boot-9.scm  �  ��g��nameg��matches?�CY344� ����h�����]"��<O�Q�(��C(��C45$��"CO�Q��(��C�$�� �6$�� �6$���45C�"]������� ������g�� version-ref  ��g��target  ��g��v-refs   B�g��t   B�g��sub-version-matches?   B�g��matches?  J ��g��key  Z ��g��v  � ���g��filenamef��ice-9/boot-9.scm       !  $ ) # , 0 . 2  5 " 8 / @ J  U  V  Z  Z  l # n  w  ~ " �  �  � �  �  �  � �  � ��g��nameg��version-matches?�CRe�������h ������]45��4�>��"��G���C���������g��m  ��g��filenamef��ice-9/boot-9.scm    �   ��g��nameg��make-fresh-user-module�CR4ei5��4Li�>��"��G��4i�?i>��"��G��MZT� ���h�����-�/���0���3�#��#��#��4L��5"��>$��4�>��"��G���6$��C$��L��6C$��Q$�� 45"��$��7$��.44 55$��"��4  �>��"��G��"���C"k"g��������g��name  ��g��autoload  ��g��version   ��g��ensure   ��g��already  7 ���g��filenamef��ice-9/boot-9.scm  /  7  C  D  b h q   y   {  � �  � � " � �  � �  �   �  2 �   �   �   �   �  �  � g��ensureS ����C�O��MR��������h������]�6�������������g��name  �g��version  ��g��filenamef��ice-9/boot-9.scm   �  ��g��nameg��try-load-module�CR\ �h0���h���]�445�>��"��G��4L>��"��G��L�C����`�������g��filenamef��ice-9/boot-9.scm           �  , ���C��������h(�����] 4�5$�� �O�6�6���������g��m  &�g��f &��g��filenamef��ice-9/boot-9.scm            "  & �  & ��g��nameg�� reload-moduleg�� documentationf��<Revisit the source file corresponding to the module @var{m}.�CRE&F�������h8���Q��] 4�5$��#45&���44556CC�I������g��module  7�g��use-list 7��g��filenamef��ice-9/boot-9.scm "  $  $   %  %   &   &  %  % ' ! ( ' / / ' * 1 ' ! 3 ' �  7 ��g��nameg��purify-module!g�� documentationf��GRemoves bindings in MODULE which are inherited from the (guile) module.�CRMZ�������h���g���]�C���_�������g��sym  �g��var  ��g��filenamef��ice-9/boot-9.scm Y 0�   ���CeMLv5 SD������h�����]�$���"����$���"���4L5$��"��+4L�5$��"��44L554M5$�� 4M5NCL4L56��������g��bspec  ��g��orig  ��g��seen  $ ��g��t  / k�g��t  F h�g��var  k ���g��filenamef��ice-9/boot-9.scm `   a & b #  b 5  a   a &  c # $ c 5 $ a  ' d & / d " > e & F d " U f & X h ' ] i + c h ' e f & k a  n k  z k  { l ' � l  � n ) � m �  � ���Cv5��������h(������]4L�5$��C4�L�56��������������g��binding  !��g��filenamef��ice-9/boot-9.scm r   s   s   u   v   u  ! t �  ! ���C�����hH��x��-�/���0���3� H#��#��K#��#��$�� 45"��#��4�5$�� 45"��$��"��4�>��"��G��$��"��J(�� "��$��C$��"�� 4  54 5 4   >��"��G��4 �>��"��G��4� O�>��"��G��4�O�J>��"��G�� C�����p������g��name  C�g��select  C�g��hide   C�g��prefix   C�g��renamer   C�g��version   C�g��module  d C�g��public-i  x C�g�� selection  � C�g��custom-i � C�� g��filenamef��ice-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 g��selectS g��hideS g��prefixS g��renamerS g��versionS ���g��nameg��resolve-interface�CR����h���b���]L��6������Z�������g��symbol  ��g��filenamef��ice-9/boot-9.scm |  } �  ���C���h���w���]�O�C������o�������g��prefix  ��g��filenamef��ice-9/boot-9.scm { �  ��g��nameg��symbol-prefix-proc�CR�������h0������](��C$��4�5$�� ��"CC���������g��pred  .�g��l  .��g��filenamef��ice-9/boot-9.scm               " 4 * &�  . ��g��nameg��list-of�C��h(������]�$��C�$���$���CCC������������g��x  #��g��filenamef��ice-9/boot-9.scm           ,  #    >  5�  # ��g��nameg�� valid-export?�C/������h`���q��]"��L(��6$��1$�� 4?"�� 45"6�"���i������g��imports  ]�g��imports  R�g��out   R�g�� import-spec   ?��g��filenamef��ice-9/boot-9.scm             "   $ (  ) 4 8  < B J  N  R R  U $ ] �  ] ��g��nameg��resolve-imports�CM]UZt O� �����h(����]L$��4LL>��"��G��"���4LLL5$��#L$��4LL>��"��G��"���"��4>��"��G��4LLL5$��#L$��4LL>��"��G��"���"��4>��"��G��4LLL5$��#L$��4LL>��"��G��"���"��4>��"��G��L(��"��4  LL>��"��G��L�$��4 L�5� L�6C�������������g��handlers  ��g��filenamef��ice-9/boot-9.scm   " . 1  5 6  R V  [ d p s  w x  � �  � � � �  � �  � �  � � �       �$  ! ���C&KJ�����h���T��-�/��� 0�� �3�#��#��#��#��#��#��#��#�� #��  #�� O�    Q� 4�54>��"��G��$��4>��"��G��"���$��4>��"��G��"���$��T4  5$��"��4  >��"��G��4 >��"��G��4 4 5>��"��G��"���4 54   O� >��"��G�� $��x"��4  >��"��_G��"��X $��M4  5$��84 54 5445>��"��G��"��""��""���4>��"��G��C������L������g��name  �g��filename  �g��pure   �g��version   �g�� duplicates   �g��imports   �g��exports   �g�� replacements   �g�� re-exports   �g�� autoloads  �g�� transformer  �g��list-of } �g�� valid-export? } �g��resolve-imports } �g��module  � �g��imports  9 e�g��iface   �g��sym   ��g��filenamef��ice-9/boot-9.scm 5 3 >  G " P 5 Y  b ' �  �  �  �  �  �  �  �  �  � �  �  �      & 3  9  <  k  p t  {        %            .    �-   g��filenameS g��pureS g��versionS g�� duplicatesS g��importsS g��exportsS g�� replacementsS g�� re-exportsS g�� autoloadsS g�� transformerS � ��g��nameg��define-module*�CR4i 5R ZMEv�hh��� ��]4LL5$��W44L�55��$��"��4L�>��"��G��4L4L55$�� �"����L6C������g��i  f�g��autoload I ^��g��filenamef��ice-9/boot-9.scm        5     #  (  , 3  < % A - I % I  N  R  W  f �  h ���C.*5����h ���T���]4�5$��C45��6����L�������g��s  ��g��filenamef��ice-9/boot-9.scm �   ���C:<_��h(���i���]4�LL>��"��G���L�L6���a�������g��port  %��g��filenamef��ice-9/boot-9.scm   �  % ���C����h8���i���-�1�3�444�L�LO�5 5>��"��G��C��a�������g��key 6�g��args 6��g��filenamef��ice-9/boot-9.scm � 6 ���C����h ������]L��LLO�L�O�6��������g��a  �g��sym  �g��definep   ��g��filenamef��ice-9/boot-9.scm  �   ��g��nameg��b�CAc���������hH�����] O��Q�4 54 54 54 5 6�������������g��module  B�g��name  B�g��bindings   B�g��b  B��g��filenamef��ice-9/boot-9.scm     , & = (  . , / 0 7  B �  B ��g��nameg��make-autoload-interface�CR�h`���j��-�1�3�"��I(��C(��64�4�5>��"��G��""��b������g��module ^�g��args ^�g��args  V�g��name  + V�g��bindings  + V��g��filenamef��ice-9/boot-9.scm         $ '  *  + 0 5 ! D O  V V � ^ ��g��nameg��module-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``����h���h���]4�56�`�������g��elt  ��g��filenamef��ice-9/boot-9.scm     0   !�   ���CM����h���M���]�LL�6������E�������g��filenamef��ice-9/boot-9.scm   �  ���C����h���M���]�LLM�6����E�������g��filenamef��ice-9/boot-9.scm 3 3 �  ���C �����h���M���]�L�W�FE�������g��filenamef��ice-9/boot-9.scm #  # +�   ���C��������hX������]445�>��"��G��45���U��(44L�L5�O�>��"��G��NXCXFG�D������������g��tag  T�g��k M T��g��filenamef��ice-9/boot-9.scm    '   ' '  '       %  & 0  ) 0 + = 0  H 2  P  T $ $�  T ���C� ����h�����-�.�,�3�#��4�54545445?4>��"��G��45$��CHO� O�4O�>���"��G��V Y4  O�>��"��G��ZX4 O�>���"��G��JC�������}������g�� module-name ��g��version ��g�� reverse-name   ��g��name  & ��g��dir-hint-module-name  0 ��g��dir-hint  @ ��g��didit  e ���g��filenamef��ice-9/boot-9.scm        $   &   &  )   .  ( 0   0  3   6   @   @  C   V   b   e  |  �   �  � � ��g��nameg��try-module-autoloadg�� documentationf��Try 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$��"�� 456�������g��p  0�g��m  0�g��n   0�g��t   .��g��filenamef��ice-9/boot-9.scm =  >  >  ?   ? # @  0 ? �  0 ��g��nameg��autoload-done-or-in-progress?�CR X ����h8������]�45 45$��C C��������������g��p  1�g��m  1�g��n   1�g��t   1��g��filenamef��ice-9/boot-9.scm B  C  C  E  D   F   F  - G  / G �  1 ��g��nameg��autoload-done!�C R  ����h ������] �45  C����������g��p  �g��m  �g��n   ��g��filenamef��ice-9/boot-9.scm I  J  J  L  K   M  M �   ��g��nameg��autoload-in-progress!�CR   ���h0������] $���6�45 45 C��������g��p  /�g��m  /�g��done?   /�g��n   /��g��filenamef��ice-9/boot-9.scm O  P   Q   R   R   S  " S  # T $ - T �  / ��g��nameg��set-autoloaded!�CR4Xi ZV%&')*-.WY[\</_`a^bdhimr���h������]���� �����   �����  ��� ������� �����C�������������g��dummy  ��g�� interface  ��g��options   ��g��enable   ��g��disable   ��g�� option-set!   ���  � ���CN�������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/boot-9.scm \ �  " ��g�� macro-typeg�� syntax-rulesg��patternsg�� interfaceg��optionsg��enableg��disable�g�� option-set!�����C5 Rs#6"����h������] 4�>��"��G��44�55 $��54 >��"��G�� $��4 >��"��G��"���"���4 >��"��G��4>��"��G��4 >��"��G��4>��"��G��6���������g��name  ��g��value  ��g�� documentation   ��g��len  c��g��filenamef��ice-9/boot-9.scm �  � ���C����h���X���]�@P�������g��option  ��g��filenamef��ice-9/boot-9.scm �   ���C�����h8���w���)����3��6�]�$��4�>��"��G��6�456o�������g��arg  8��g��filenamef��ice-9/boot-9.scm � �  8 ��g��nameg�� debug-options�CtRs����h0���r���-��1��3�44�45�5>��"��G��6��������j�������g��flags )��g��filenamef��ice-9/boot-9.scm � ) ��g��nameg�� debug-enable�CuRsS�����h���V���]4�M�5N�C�N�������g��flag  ��g��filenamef��ice-9/boot-9.scm �   ���C�������h@������-��1��3�45�H4O��>��"��G��4J>��"��G��6���������g��flags ?�g�� debug-options  ?��g��filenamef��ice-9/boot-9.scm � ? ��g��nameg�� debug-disable�CvR4XiwZV������h(���O���]�����C����G�������g��dummy  $�g��opt  $�g��val   $��  $ ���CN��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/boot-9.scm �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��optg��val���C5wR#6"����h������] 4�>��"��G��44�55 $��54 >��"��G�� $��4 >��"��G��"���"���4 >��"��G��4>��"��G��4 >��"��G��4>��"��G��6���������g��name  ��g��value  ��g�� documentation   ��g��len  c��g��filenamef��ice-9/boot-9.scm �  � ���C����h���X���]�@P�������g��option  ��g��filenamef��ice-9/boot-9.scm �   ���C�����h8���v���)����3��6�]�$��4�>��"��G��6�456n�������g��arg  8��g��filenamef��ice-9/boot-9.scm � �  8 ��g��nameg�� read-options�CR�����h0���q���-��1��3�44�45�5>��"��G��6��������i�������g��flags )��g��filenamef��ice-9/boot-9.scm � ) ��g��nameg�� read-enable�CRS������h���V���]4�M�5N�C�N�������g��flag  ��g��filenamef��ice-9/boot-9.scm �   ���C�������h@������-��1��3�45�H4O��>��"��G��4J>��"��G��6���������g��flags ?�g�� read-options  ?��g��filenamef��ice-9/boot-9.scm � ? ��g��nameg�� read-disable�CR4XiZV��������h(���O���]�����C����G�������g��dummy  $�g��opt  $�g��val   $��  $ ���CN��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/boot-9.scm �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��optg��val���C5R#6"����h������] 4�>��"��G��44�55 $��54 >��"��G�� $��4 >��"��G��"���"���4 >��"��G��4>��"��G��4 >��"��G��4>��"��G��6���������g��name  ��g��value  ��g�� documentation   ��g��len  c��g��filenamef��ice-9/boot-9.scm �  � ���C����h���X���]�@P�������g��option  ��g��filenamef��ice-9/boot-9.scm �   ���C�����h8���w���)����3��6�]�$��4�>��"��G��6�456o�������g��arg  8��g��filenamef��ice-9/boot-9.scm � �  8 ��g��nameg�� print-options�CR����h0���r���-��1��3�44�45�5>��"��G��6��������j�������g��flags )��g��filenamef��ice-9/boot-9.scm � ) ��g��nameg�� print-enable�CRS�����h���V���]4�M�5N�C�N�������g��flag  ��g��filenamef��ice-9/boot-9.scm �   ���C�������h@������-��1��3�45�H4O��>��"��G��4J>��"��G��6���������g��flags ?�g�� print-options  ?��g��filenamef��ice-9/boot-9.scm � ? ��g��nameg�� print-disable�CR4XiZV������h(���O���]�����C����G�������g��dummy  $�g��opt  $�g��val   $��  $ ���CN��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/boot-9.scm �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��optg��val���C5R4XiZR�������h���V���]�6N�������g��id  ��g��filenamef��ice-9/boot-9.scm  �   ���C���h���*���]C���"�������g��id  ��   ���CV��h���)���]�C!�������g��x  ��   ���CN��������h@������]��4?$��@4�5$��@�6�������������g��x  :�g��tmp  :�g��tmp  # :��g��filenamef��ice-9/boot-9.scm �  : ��g�� macro-typeg��identifier-syntax�C5R�������h���u���]�C�m�������g��v  ��g��filenamef��ice-9/boot-9.scm  �   ��g��nameg�� unspecified?�CRi�R4fii>��"��G����h���T���]�C���L�������g��x  ��g��filenamef��ice-9/boot-9.scm /�   ���C �����h(������)����3��L[C] L[L4L��5\C�������w�������g��x  !�g��prev  !��g��filenamef��ice-9/boot-9.scm     ,� �  ! ���C������h8�����-�.�,�3�#��44�55O��C�������g��init 7�g��conv 7�g��fluid  " 7��g��filenamef��ice-9/boot-9.scm     "  "  6 � 7 ��g��nameg��make-parameterg�� documentationf�BMake 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.�CR������h���T���]�C���L�������g��x  ��g��filenamef��ice-9/boot-9.scm 2�   ���C�������h(������)����3��L[C] L[L4L��5\C�������w�������g��x  !�g��prev  !��g��filenamef��ice-9/boot-9.scm     *� �  ! ���C������h0�����-�.�,�3�#���O���C�������������g��fluid )�g��conv )��g��filenamef��ice-9/boot-9.scm ( � ) ��g��nameg��fluid->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.�CR��������h������]�$���CC�������������g��x  ��g��filenamef��ice-9/boot-9.scm      �   ��g��nameg�� parameter?�CR�����h(������]4�5$��� C��6�������������g��p  "��g��filenamef��ice-9/boot-9.scm         !    ' " �  " ��g��nameg��parameter-fluid�CR����h(������]4�5$��� C��6������������g��p  #��g��filenamef��ice-9/boot-9.scm         !   ' # �  # ��g��nameg��parameter-converter�CR4XiZVSV  � h0���8���]����� �C������0�������g��tmp-bde397a-17e9  *��  * ���C!��������h ���V���]���C�����N�������g��tmp-bde397a-17e7  �g��tmp-bde397a-17e6  ��   ���C�������h8���)���]4�L544�54L�5L�L�5C�!�������g��p  7��  7 ���CN��������h8������]4�545$���O�@6���������g��param  6�g��value  6�g��body   6�g��body*   6�g��tmp  6�g��tmp   6��g��filenamef��ice-9/boot-9.scm   �  6 ���CN�����h(���d���] 4�5$��@�6������\�������g��x  "�g��tmp "��g��filenamef��ice-9/boot-9.scm �  " ���C5R4i4Ji4i5�"5#���h���f���]4�5$���C�6^�������g��x  ��g��filenamef��ice-9/boot-9.scm   "  �   ���C5$i4i4i5�">��"��G��4i4Ji4i5�%5&���h���f���]4�5$���C�6^�������g��x  ��g��filenamef��ice-9/boot-9.scm    #  �   ���C5'i4i4i5�%>��"��G��4i4Ji4i5�(5&���h���f���]4�5$���C�6^�������g��x  ��g��filenamef��ice-9/boot-9.scm     #   �   ���C5i4i4i5�(>��"��G��4i4Ji4i5�)5&����h���f���]4�5$���C�6^�������g��x  ��g��filenamef��ice-9/boot-9.scm     #   �   ���C5*i4i4i5�)>��"��G��4i*5+R4 i5,R,�����h���d���]�[C�\�������g��filenamef��ice-9/boot-9.scm +  , �   ��g��nameg�� batch-mode?�C-R�����h���\���]�C����T�������g��filenamef��ice-9/boot-9.scm 3 �   ��g��nameg�� batch-mode?�C-������h���k���]� Cc�������g��filenamef��ice-9/boot-9.scm 2  3 �   ��g��nameg��ensure-batch-mode!�C.R�h���{���-��1��3��@�������s�������g��args ��g��filenamef��ice-9/boot-9.scm 5 6   6 �  ��g��nameg��quit�CRi/R012�����h������]�445�5C�������g��filenamef��ice-9/boot-9.scm :  ;   ;  ;   ;   ; �   ��g��nameg�� gc-run-time�C3R4i5�4R4i5�5R4i5�6R4i5�7R4i5�8R4i5�9R4i5�:R4i 5;R4i 5<R4i 5=R4i 5>R4i5�?R@A#B'^9&$� h�����-�.�,�3�#�� 4545�$��"��<44�5$���"��4�5�>��"��G��445� >��"��G��4>���"��G��4  >��"��G��$��"�� 4 5�6�����������g��prompt ��g��reader ���g��filenamef��ice-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 � � ��g��nameg�� repl-reader�CCR�������h0������]"�� $��C"�"����������g��n  -�g��count  !�g��result   !��g��filenamef��ice-9/boot-9.scm q  r  s   s   t   t  ! t  ! r  $ r  % r $ - r �  - ��g��nameg��iota�CDR4XiEZV OFGVs\jk^lme��hX���R���]�    L� L�����C������J�������g��t-bde397a-1825  R�g��t-bde397a-1826  R��  R ���CN� ������h@������]4�54�5�45$�� O�@6�������g��while  @�g��cond  @�g��body   @�g��tmp   @�g��tmp  " @��g��filenamef��ice-9/boot-9.scm   6  $  ;  $  �  @ ���CN����h(���d���] 4�5$��@�6������\�������g��x  "�g��tmp "��g��filenamef��ice-9/boot-9.scm �  " ���C5ERu������h������]444�5 556�������g��sym  ��g��filenamef��ice-9/boot-9.scm    # .  #    �   ��g��nameg��keyword-like-symbol->keyword�CR4XiZVV��������h ������]�4445556��������g��t-bde397a-18ac  �g��t-bde397a-18ab  �g��t-bde397a-18aa   �g��t-bde397a-18a9   �g��t-bde397a-18a8   ��   ���CN���h���*��]8L(��"�� L��L(��"�� L��L(��"�� L��L(��"�� L��L�(��"��   L������4  5$�� @6��"������g��imp u ��g��exp u ��g��rex  u ��g��rep  u ��g��aut  u ��g��tmp  � ��g��tmp  � ���g��filenamef��ice-9/boot-9.scm   $   $ 6  7 $ M  N $ d  e $ u � �  � ���Ct�������h���X���]L�LLLLL�6������P�������g��args  ��g��filenamef��ice-9/boot-9.scm  �   ���C ���h ���q���] 4L��LLLLL5C��i�������g��args  �g��tmp  ��g��filenamef��ice-9/boot-9.scm    �   ���C\N�h���h���]L��6��`�������g��kw  ��g��filenamef��ice-9/boot-9.scm    *  �   ���C,-���h(������] 4L�LLLLL5��C�����y�������g��v  #�g��args  #�g��tmp   #��g��filenamef��ice-9/boot-9.scm  #  �  # ���C/?@��h(������] 4L�LLLLL5��C�����y�������g��d  #�g��args  #�g��tmp   #��g��filenamef��ice-9/boot-9.scm  &  �  # ���CBRS��h(������] 4L�LLLLL5��C�����y�������g��f  #�g��args  #�g��tmp   #��g��filenamef��ice-9/boot-9.scm    �  # ���CWZ\_V��������h���6���]�L�6������.�������g��t-bde397a-1967  ��  ���CN���h@���y���] LL4L5$��4�O�?"�� 4L5LLL�6��q�������g��ex  >�g��args  >�g��tmp   6��g��filenamef��ice-9/boot-9.scm > �  > ���CbV�h���6���]�L�6������.�������g��t-bde397a-1975  ��  ���CN���h@���y���] LL4L5$��4�O�?"�� 4L5LLL�6��q�������g��ex  >�g��args  >�g��tmp   6��g��filenamef��ice-9/boot-9.scm > �  > ���CeV�h���6���]�L�6������.�������g��t-bde397a-1983  ��  ���CN���h@���y���] LLL4L5$��4�O�?"�� 4L5LL�6��q�������g��re  >�g��args  >�g��tmp   8��g��filenamef��ice-9/boot-9.scm > �  > ���ChV�h���6���]�L�6������.�������g��t-bde397a-1991  ��  ���CN���h@���y���] LLL4L5$��4�O�?"�� 4L5LL�6��q�������g��re  >�g��args  >�g��tmp   8��g��filenamef��ice-9/boot-9.scm >  �  > ���CkV�h���6���]�L�6������.�������g��t-bde397a-199f  ��  ���CN���h@���x���] LLLL4L5$��4�O�?"�� 4L5L�6��p�������g��r  >�g��args  >�g��tmp   :��g��filenamef��ice-9/boot-9.scm >  �  > ���CnV��h���6���]�L�6������.�������g��t-bde397a-19ad  ��  ���CN���h@���x���] LLLL4L5$��4�O�?"�� 4L5L�6��p�������g��r  >�g��args  >�g��tmp   :��g��filenamef��ice-9/boot-9.scm >  �  > ���CqV��h���6���]�L�L�6�.�������g��t-bde397a-19bd  ��   ���CN���h@������] LLLLL4L�5$��4�O�?"�� 4L�56�������g��name  @�g��bindings  @�g��args   @�g��tmp   >��g��filenamef��ice-9/boot-9.scm @  �  @ ���CuNr�h������]�6���������g��kw  �g��val  �g��args   ��g��filenamef��ice-9/boot-9.scm      *   �   ���CN3P������h������]4�56�������������g��name  �g��name*  �g��arg   �g��args   ��g��filenamef��ice-9/boot-9.scm    �   ���CV/������h���E���]�L�6=�������g��filenamef��ice-9/boot-9.scm  �   ���Ctt����h���t���]L��L�6���l�������g��renamer  �g��in  ��g��filenamef��ice-9/boot-9.scm    �   ���Cuh������]L�L�6x�������g��kw  �g��val  �g��in   ��g��filenamef��ice-9/boot-9.scm   �   ���CNP���h������]44�55Cy�������g��kw  �g��in  ��g��filenamef��ice-9/boot-9.scm    $    �   ���CN���h���x���]L��6��p�������g��kw  �g��in  ��g��filenamef��ice-9/boot-9.scm    ,  �   ���CP9�����h(������] 4�5$��445 5:CC����������g��sym  %�g��in  %�g��dat  %��g��filenamef��ice-9/boot-9.scm             " �  % ���CPu�������h8������] L4�544445 555L�6����������g��sym  5�g��in  5�g��sym  '�g��tmp  ' 1��g��filenamef��ice-9/boot-9.scm  !       '  2 ' "  $  '  5 �  5 ���C��h������]*4�5$�� O�@4�5"��x4�5"��E4�5$�� L�O�@4�5$�� L�O�@ �6$��4 ?$��  LO�@""$��4 ?$��  L�O�@"f"b�������������g��in  ��g��out  ��g��tmp  ��g��tmp  & ��g��tmp  5 ��g��tmp  D ��g��tmp  b ���g��filenamef��ice-9/boot-9.scm �  � ��g��nameg��loop�CV�h���R���]�L�L�6�����J�������g��t-bde397a-1955  �g��t-bde397a-1954  ��   ���CN�������hh������]LLO�LQ�45�45$��4�O�?"�� 45LLLL�6����������g��name  e�g��name*  e�g��arg   e�g��args   e�g��loop   #�g��tmp  & [�g��tmp  1 X��g��filenamef��ice-9/boot-9.scm     &  e �  e ���C3P�������h������]4�56������~�������g��name  �g��name*  �g��args   ��g��filenamef��ice-9/boot-9.scm    �   ���CV�������h���6���]�L�L��6�����.�������g��t-bde397a-1938  ��   ���CN�����hX������] 4L�4L5$��4�O�?"�� 4L5LLLL5��C�����������g��name  T�g��name*  T�g��args   T�g��tmp   7�g��tmp  A T��g��filenamef��ice-9/boot-9.scm   A �  T ���C3P�����h������]4�56������~�������g��name  �g��name*  �g��args   ��g��filenamef��ice-9/boot-9.scm    �   ���CV�������h���6���]�L�L��6�����.�������g��t-bde397a-1919  ��   ���CN���h@������] L4L5$��4�O�?"�� 4L5LLLL�6�������g��name  @�g��name*  @�g��args   @�g��tmp   6��g��filenamef��ice-9/boot-9.scm @ �  @ ���CP�h������]44�55C{�������g��kw  �g��args  ��g��filenamef��ice-9/boot-9.scm    $    �   ���CN�h���z���]L��6��r�������g��kw  �g��args  ��g��filenamef��ice-9/boot-9.scm    *  �   ���CP9���h(������] 4�5$��445 5:CC����������g��sym  %�g��args  %�g��dat  %��g��filenamef��ice-9/boot-9.scm             " �  % ���CPu�����h@������] L4�544445 555LLLLL�6����������g��sym  =�g��args  =�g��sym  '�g��tmp  ' 1��g��filenamef��ice-9/boot-9.scm        '  2 ' "  $  '  = �  = ���C�/�������hX��<��]4�5$��O�@4�5"�4�5"�4�5  $��L�O� @4�5  $��L�O� @4�5  $��  LO� @4� 5  $�� L�O� @4� 5  $�� L�O� @4�5$��L�O�@4�5"�4�5"�i4�5"�*4�5$��L�O�@4�5$��L�O�@4�5$��L�O�@4�5$��L�O�@4�5$��L�O�@4�5$��L�O�@4�5$�� L�O�@4�!5$��"@#$�6$��&4%?$��&LL�O�@""$��$4'?$��(L�O�@"m"i$��$4)?$��*L�O�@"0",$��4+?$�� ,LO�@"#"$��$4-?$��.L�O�@""������4������g��args  R�g��imp  R�g��exp   R�g��rex   R�g��rep   R�g��aut   R�g��tmp  R�g��tmp  . R�g��tmp  = $�g��tmp L ��g��tmp r ��g��tmp � ��g��tmp � ��g��tmp � ��g��tmp  � ��g��tmp  & ��g��tmp  5 �g��tmp  D �g��tmp  S t�g��tmp  y t�g��tmp   t�g��tmp   t�g��tmp   t�g��tmp   t�g��tmp  7 t�g��tmp  ] t��g��filenamef��ice-9/boot-9.scm �  R ��g��nameg��parse�CVN3P��������h������]4�56������}�������g��name  �g��name*  �g��arg   ��g��filenamef��ice-9/boot-9.scm      �   ���CQV� ������h0���H���]LL������C��@�������g�� quoted-arg  .�g��filename  .��  . ���CN� hx���L��]4L�544L5$��"��545$��"���45$�� �O�@ 6�������D������g��name  q�g��name*  q�g��arg   q�g��t   *�g��f  . E�g��tmp  H q�g��tmp  S q��g��filenamef��ice-9/boot-9.scm      )  -  1  5  9      (   6   2 '  H ,  2 .  ( .   1  & ;  ! H  �  q ���C�hP���w���]O��Q�4�5"�� �6$��4?$�� �O�@""o�������g��x  P�g��parse P�g��tmp   P��g��filenamef��ice-9/boot-9.scm �  P ���C5R����h ������] 4�?$��C�6�����������g��mif-args  �g��t ��g��filenamef��ice-9/boot-9.scm %   &  &   ' &  ' �   ���Ct�������h���V���]�45�L�6���N�������g��filenamef��ice-9/boot-9.scm *   +  + �  ���C�������h������] 4�5O�6�������g��module-interface-args  �g�� interfaces ��g��filenamef��ice-9/boot-9.scm $  %  %   ) �   ��g��nameg��process-use-modules�CR4XiZV�����h���E���]�L�6=�������g��filenamef��ice-9/boot-9.scm  G �   ���CV[N3P������h������]4�56�������������g��name  �g��name*  �g��arg   �g��in   ��g��filenamef��ice-9/boot-9.scm  L   L �   ���CV/��������h���E���]�L�6=�������g��filenamef��ice-9/boot-9.scm  9 �   ���Ctt�������h���t���]L�L�6l�������g��renamer  �g��in  ��g��filenamef��ice-9/boot-9.scm @   @ �   ���Cu���h������]L��L�6���x�������g��kw  �g��val  �g��in   ��g��filenamef��ice-9/boot-9.scm  B   B �   ���CNP���h������]44�55Cy�������g��kw  �g��in  ��g��filenamef��ice-9/boot-9.scm  =   = $  =   = �   ���CN���h���x���]L��6��p�������g��kw  �g��in  ��g��filenamef��ice-9/boot-9.scm  >   > ,  > �   ���CP9�����h(������] 4�5$��445 5:CC����������g��sym  %�g��in  %�g��dat  %��g��filenamef��ice-9/boot-9.scm  0  0   1  1   2   2   2  " 2 �  % ���CPu�������h8������] L4�544445 555L�6����������g��sym  5�g��in  5�g��sym  '�g��tmp  ' 1��g��filenamef��ice-9/boot-9.scm  < ! <   4   4   4 '  4 2 4 ' " 4  $ 4  ' <  5 < �  5 ���C��h������]*4�5$�� O�@4�5"��x4�5"��E4�5$�� L�O�@4�5$�� L�O�@ �6$��4 ?$��  LO�@""$��4 ?$��  L�O�@"f"b�������������g��in  ��g��out  ��g��tmp  ��g��tmp  & ��g��tmp  5 ��g��tmp  D ��g��tmp  b ���g��filenamef��ice-9/boot-9.scm 7 �  � ��g��nameg��loop�CV������h ���g���]LLL�L��L6�����_�������g�� quoted-arg  ��g��filenamef��ice-9/boot-9.scm  N   N �   ���CN��hP������]O�L�Q�4545$���LLO�@6�����������g��name  L�g��name*  L�g��arg   L�g��in   L�g��loop  �g��tmp   L�g��tmp  ( L��g��filenamef��ice-9/boot-9.scm 7   7  7   M �  L ���C3P��h������]4�56������|�������g��name  �g��name*  �g��in   ��g��filenamef��ice-9/boot-9.scm  I   I �   ���C�����h������]L���L�6|�������g��name  �g��name*  �g��in   ��g��filenamef��ice-9/boot-9.scm  J   J �   ���C� h������]4�5$�� O�@4�5"��@4�5"�� �6$��4?$��LL�O�@""$��4 ?$��  L�O�@""�������������g��in  ��g��out  ��g��tmp  ��g��tmp  & ��g��tmp  5 l��g��filenamef��ice-9/boot-9.scm E �  � ��g��nameg��lp�C��������h ������] O�L�Q��6��������������g��specs  �g��lp ��g��filenamef��ice-9/boot-9.scm D  E   E   E �   ��g��nameg��quotify�CVV     �����h���3���]��C��+�������g�� quoted-args  ��   ���CN������h0������]4L��545$��@6�����z�������g��spec  +�g��tmp +�g��tmp   +��g��filenamef��ice-9/boot-9.scm  S ( S �  + ���CN�������h8���y���]O��Q�4�5$�� O�@�6����q�������g��x  4�g��quotify 4�g��tmp   4��g��filenamef��ice-9/boot-9.scm . �  4 ���C5R4Xi ZV   & '����h���?���]�C�7�������g��dummy  �g��spec  ��   ���CN��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/boot-9.scm X �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��specg��...���C5 RP��������h���|���]4�5C�����t�������g��x  ��g��filenamef��ice-9/r6rs-libraries.scm       �  ��g��nameg��sym?�CV ? @ A E I M R = 3�h���r���]L��6���j�������g��name  �g��name*  ��g��filenamef��ice-9/r6rs-libraries.scm y �  ���C S Z��������h���r���]�45�6�j�������g��name  �g��name*  ��g��filenamef��ice-9/r6rs-libraries.scm  z �   ���CN3����h������]L��6����������g��name  �g��name*  �g��version   ��g��filenamef��ice-9/r6rs-libraries.scm u �  ���C S b�����h ������]�4�5�6�������������g��name  �g��name*  �g��version   ��g��filenamef��ice-9/r6rs-libraries.scm  v �   ���C3���h ������]4L�5$��L�6C��������������g�� import-set  �g��from  �g��to   ��g��filenamef��ice-9/r6rs-libraries.scm  ^  ^   ^ &�   ���C SeMLAD������h���v���]L��6����n�������g��sym  �g��var  ��g��filenamef��ice-9/r6rs-libraries.scm a  a *�  ���Cv cD��h(������]4L�5$�� �L�6L��6��������g��pair  '��g��filenamef��ice-9/r6rs-libraries.scm f  g  g / g   g   h   i   h  " j % % j 0 ' j �  ' ���CvP�����h���/��]+4�545�4>��"��G��445>��"��G��4O�>��"��G��"��z(��4  O�>��"��G��C4 5$��"�� 4  54>��"��G��"4455"m��'������g�� import-set  ��g��from  ��g��to   ��g��mod  ��g��iface   D�g��iface  D ��g��in  c ��g��out  c ��g��t  � ��g��var  � ��� g��filenamef��ice-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 �$  � ���CP���h������]45C�����}�������g�� import-set  �g�� identifier  ��g��filenamef��ice-9/r6rs-libraries.scm     �  ���C SeMLAPD���h���~���]L4L��56�����v�������g��sym  �g��var  ��g��filenamef��ice-9/r6rs-libraries.scm X   Y -  Y �   ���C� ������hp���-��]4�545�4>��"��G��445>��"��G��454 O�>��"��G��C���%������g�� import-set  m�g�� identifier  m�g��mod  m�g��iface   D�g��iface  D m�g��pre  M m��g��filenamef��ice-9/r6rs-libraries.scm  U  U                '   ,   7   D U  G W  M U  P X �  m ���C3�����h���}���]L�6������u�������g�� import-set  �g�� identifier  ��g��filenamef��ice-9/r6rs-libraries.scm H �  ���C SeMLAD��������h���v���]L��6����n�������g��sym  �g��var  ��g��filenamef��ice-9/r6rs-libraries.scm K  K *�  ���Cv�h(������]4L�5$��L�6�L�6�������}�������g��sym  !��g��filenamef��ice-9/r6rs-libraries.scm L   M   M   N   O  ! O �  ! ���CP� �����h���)��]4�545�4>��"��G��445>��"��G��4O�>��"��G��4  O�4 5>��"��G��C������!������g�� import-set  ��g�� identifier  ��g��mod  ��g��iface   D�g��iface  D ���g��filenamef��ice-9/r6rs-libraries.scm  I  I                '   ,   7   D I  G K  ` L  l P  w L �  � ���C3�h���}���]L�6������u�������g�� import-set  �g�� identifier  ��g��filenamef��ice-9/r6rs-libraries.scm < �  ���C SeMLADv�h0������] L�4L��5$��"�� 4�L�56��������g��sym  /�g��t  -��g��filenamef��ice-9/r6rs-libraries.scm ?  A $  A B $ $ B + * B $ / @ �  / ���CP� �������hp�����]4�545�4>��"��G��445>��"��G��4O�4 5>��"��G��C�������������g�� import-set  i�g�� identifier  i�g��mod  i�g��iface   D�g��iface  D i��g��filenamef��ice-9/r6rs-libraries.scm  =  =                '   ,   7   D =  G ?  S D  ^ ? �  i ���C3������h���r���]L��6���j�������g��name  �g��name*  ��g��filenamef��ice-9/r6rs-libraries.scm 8 �  ���C S i��������h���r���]�45�6�j�������g��name  �g��name*  ��g��filenamef��ice-9/r6rs-libraries.scm  9 �   ���C3��������h������]L��6����������g��name  �g��name*  �g��version   ��g��filenamef��ice-9/r6rs-libraries.scm 3 �  ���CP�����h ������]4�5456��������������g��name  �g��name*  �g��version   ��g��filenamef��ice-9/r6rs-libraries.scm  4   5 "  4 �   ���C3 rP9�h8������]4L�5$��$4�5$��444�55 5:CCC�������g��colon-n  8�g��rest  8�g��version   8��g��filenamef��ice-9/r6rs-libraries.scm  !  !   "   "  !   #  " #  % # , - #  0 #  3 # �  8 ���Cu` sP SV  ������h������]�LL���C��������������   ���C   ��������h ���>���]L4L��5�C������6�������g��name  �g��rest  ��   ���CN���h�����]44444�55 55545$��4 O�?"��04 5$��4 O�?"�� 4  56�����������g��colon-n  {�g��rest  {�g��version   {�g��srfi-n  {�g��tmp  , y�g��tmp  O v��g��filenamef��ice-9/r6rs-libraries.scm  $   %  &  '   '  ' 0  '  '   %  $  $  { ) �  { ���C� �����h��>��]Q4�5"�4�5"�f4�5"�34�5"��4�5"��4�5"��4� 5"��l4� 5 "��94� 5  $��4 O� ?$��  @�6�6 $��4O� ?$�� @""$��4O�?$��@"t"p$��4?$��@"F"B$��4O�?$��@""$��4O�?$��@""$��4O�?$��@""$��4O�?$��@"z"v$��4O�?$��@"G"C������6������g�� import-spec  �g��sym?  �g��tmp   �g��tmp   �g��tmp  - �g��tmp  < f�g��tmp  K B�g��tmp  Z �g��tmp  i ��g��tmp x ��g��tmp � ��� g��filenamef��ice-9/r6rs-libraries.scm  �   ��g��nameg��resolve-r6rs-interface�C SR4Xi (ZV  3R���h������]�6����������g��name  �g��name*  �g��version   �g��espec   �g��ispec   �g��body   ��g��filenamef��ice-9/r6rs-libraries.scm � �  ���CV  S��������h������]�6x�������g�� import-set  �g�� import-level  ��g��filenamef��ice-9/r6rs-libraries.scm  � �   ���C S��h ���v���] 4�5$��@�6�n�������g��im  �g��tmp ��g��filenamef��ice-9/r6rs-libraries.scm �   � #�   ���CV�����h���M���]�LLL�D������E�������g��filenamef��ice-9/r6rs-libraries.scm � �  ���C tR��������h���p���]�6h�������g��id  �g��rest  ��g��filenamef��ice-9/r6rs-libraries.scm  � �   ���CP4v����h���i���]�L�6������a�������g��iface  ��g��filenamef��ice-9/r6rs-libraries.scm �  � �  ���Cv������hX������] 4�54O�L5$��L�L�LL645$��L�LL�L6L��LLL6��������g��id  W�g��rest  W�g��sym  W��g��filenamef��ice-9/r6rs-libraries.scm  �  � �   � ( �  , �  - �  9 � F �  H �  Q �  W � �  W ���CN3R��������h ������]4�5$��6C��������������g��from  �g��to  �g��rest   ��g��filenamef��ice-9/r6rs-libraries.scm  �   �  � �   ���CV������h���M���]�LLLLL�6��E�������g��filenamef��ice-9/r6rs-libraries.scm  � �   ���C P4v����h���i���]�L�6������a�������g��iface  ��g��filenamef��ice-9/r6rs-libraries.scm �  � �  ���Cv������hp�����] 4�54O�L5$��L�L�LL64�545$��L�LL�L6L��LLL6�������g��from  o�g��to  o�g��in   o�g��sym  �g��sym  9 G��g��filenamef��ice-9/r6rs-libraries.scm  �  �  �  �  . �  2 �  3 �  9 �  < �  K �  [ � ] �  i �  o � �  o ���CN��hX������]4�5$��LLO�@4�5$��L�LO�@�6�������������g��in  R�g��e  R�g��r   R�g��x   R�g��tmp  R�g��tmp  . R��g��filenamef��ice-9/r6rs-libraries.scm � �  R ��g��nameg��lp2�C����h0������] O�LL�Q�4�5LLL6����������g��from  -�g��to  -�g��rest   -�g��lp2  -��g��filenamef��ice-9/r6rs-libraries.scm � �  - ���C� �h������]4�5$��O�@4�5"��A4�5$��'4?$��LL�O�@�6�6$��"4 ?$�� LL�O�@""����������g��specs  ��g��e  ��g��r   ��g��x   ��g��tmp  ��g��tmp  * ��g��tmp  9 q��g��filenamef��ice-9/r6rs-libraries.scm � �  � ��g��nameg��lp�CV      �����h���8���]��C������0�������g��tmp-bde397a-1b2c  ��  ���C    ��������h���8���]LL���C�������0�������g��tmp-bde397a-1b2b  ��   ���C� ����hH���G���]LLL�44L�5�  4 LLO�L55C�?�������g��e  G�g��r  G�g��x   G��  G ���CN� �hp�����].45O�Q�4>�� G�� 4 5  $���O� @ 6����������g��name  l�g��name*  l�g��version   l�g��espec   l�g��ispec   l�g��body   l�g��ifaces  *�g��lp   *�g��exports  + l�g�� re-exports  + l�g�� replacements  + l�g��tmp = l�g��tmp H l�� g��filenamef��ice-9/r6rs-libraries.scm  �  �  �  # � $ � ( % � 0 * �  . �  = � �  l ���CN3R�������h������]�6����������g��name  �g��name*  �g��espec   �g��ispec   �g��body   ��g��filenamef��ice-9/r6rs-libraries.scm � �  ���C   ����h(���w���]�45C�������o�������g��name  !�g��name*  !�g��espec   !�g��ispec   !�g��body   !��  ! ���C� �����hh���~���]4�5"��44�5$��4?$��@�6�6$��4?$�� @""����v�������g��stx  d�g��tmp d�g��tmp   E��g��filenamef��ice-9/r6rs-libraries.scm } �  d ���C5 (R4Xi ZVV �h���L���]�C���D�������g�� import-set  �g�� import-level  ��   ���C�h ������] 4�5$��@�C�����������g�� import-set  �g��tmp ��g��filenamef��ice-9/r6rs-libraries.scm � �   ��g��nameg�� strip-for�CV $ ( ) + , - 8���h ���8���]�����C���0�������g��tmp-bde397a-1b44  ��   ���C <��h ���9���]44�55C�������1�������g��library-reference  ��   ���CN��������h0������]4�545$��@6����������g�� import-set  -�g��tmp -�g��tmp   -��g��filenamef��ice-9/r6rs-libraries.scm  � . � �  - ���CN�h(���n���] 4�5$��@�6������f�������g��stx  "�g��tmp "��g��filenamef��ice-9/r6rs-libraries.scm � �  " ���C5 R4Xi =ZV N�����h���O���]�C����G�������g��dummy  �g��foo  �g��bar   ��  ���CN��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/boot-9.scm a �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��foog��bar���C5 =R4Xi OZV P ` a b���h ���c���]��C������[�������g��dummy  �g��name  �g��args   �g��body   ��   ���C k l m�����h���P���]���CH�������g��dummy  �g��name  �g��val   ��   ���CN�h@������]4�5$��@4�5$��@�6��������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��ice-9/boot-9.scm e �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��nameg��argsg��bodyg��nameg��val���C5 OR4Xi nZV } ~ ������h ���c���]��C������[�������g��dummy  �g��name  �g��args   �g��body   ��   ���CN������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/boot-9.scm o �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��nameg��argsg��bodyg��...���C5 nR4Xi ZV  ��������h���T���]C�����L�������g��dummy  �g��formals  �g��body   ��  ���CN�����h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/boot-9.scm u �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��formalsg��bodyg��...���C5 RZD�����h@������]�$���"����$���"���4L�5L6������������g��name  ;�g�� internal-name  ;�g�� external-name  $ ;�g��var  / ;��g��filenamef��ice-9/boot-9.scm     *  &  7      *   &   7 $   '   /   ;  �  ; ���C�����h ������] 4�5�O�6�������������g��m  �g��names  �g��public-i  ��g��filenamef��ice-9/boot-9.scm ~        �   ��g��nameg��module-export!�CRZ  D�����hP�����]�$���"����$���"���4L�54>��"��G��L6������g��name  P�g�� internal-name  P�g�� external-name  $ P�g��var  / P��g��filenamef��ice-9/boot-9.scm     *  &  7      *   &   7 $   '   /   2   8  , >   P  �  P ���C��h ������] 4�5�O�6�������������g��m  �g��names  �g��public-i  ��g��filenamef��ice-9/boot-9.scm         �   ��g��nameg��module-replace!�CRZeLAUTM[DC� ����h���G��] 4�5$��"��f45�44�5>��"��G��44�5>��"��G��4>��"��G��4 �>��"��G�� 4 �56�?������g��mod  ��g��t ��g��iface  }�g��iface � ���g��filenamef��ice-9/boot-9.scm                $   /   8   =  ! H   Q   W   \   e   �   �   �  �  � ��g��nameg��module-export-all!�C RZHv D ����h`���?��]�$���"����$���"���4L�5$��!4L�5&��6L667������g��name  `�g�� internal-name  `�g�� external-name  $ `�g��var  / `��g��filenamef��ice-9/boot-9.scm     *  &  7      *   &   7 $   '   /   7   :  " F   J  N   X   \  `  �  ` ���C������h ������] 4�5�O�6�������������g��m  �g��names  �g��public-i  ��g��filenamef��ice-9/boot-9.scm         �   ��g��nameg��module-re-export!�CR4Xi ZV        ������h(���?���]�����C�����7�������g��dummy  #�g��name  #��  # ���CN��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/boot-9.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��nameg��...���C5 R4Xi ZV        ������h(���?���]�����C�����7�������g��dummy  #�g��name  #��  # ���CN��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/boot-9.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��nameg��...���C5 R4Xi ZV        ������h(���?���]�����C�����7�������g��dummy  #�g��name  #��  # ���CN��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/boot-9.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��nameg��...���C5 R4Xi ZV  ��������h���?���]C7�������g��dummy  �g��name  ��   ���CN��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/boot-9.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��nameg��...���C5 R4Xi ZV  ��������h���?���]C7�������g��dummy  �g��name  ��   ���CN��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/boot-9.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��nameg��...���C5 R �������h ���g���)����3��L[C]L4L��5\C�����_�������g��val  ��g��filenamef��ice-9/boot-9.scm     � �   ���C������h0������-�.�,�3�#��44�55O�C���������g��init .�g�� converter .�g��fluid  " .��g��filenamef��ice-9/boot-9.scm        "   "  � . ��g��nameg��make-mutable-parameter�C R4ei 5��������h������,�3�C�������g��module  �g��name  �g��int1   �g��val1   �g��int2   �g��val2   �g��var   �g��val   ��g��filenamef��ice-9/boot-9.scm  �   ��g��nameg��noop�C4Li� >��"��G��4Mi�>��"��G��4Gi� e A��������h0���&��,�3�4�54545�6������������g��module  *�g��name  *�g��int1   *�g��val1   *�g��int2   *�g��val2   *�g��var   *�g��val   *��g��filenamef��ice-9/boot-9.scm                '   *  �  * ��g��nameg��check�C>��"��G��4Gi�,* A�������h8���%��,�3�445�4�54545>��"��G��C��������g��module  6�g��name  6�g��int1   6�g��val1   6�g��int2   6�g��val2   6�g��var   6�g��val   6��g��filenamef��ice-9/boot-9.scm                 !   ,  �  6 ��g��nameg��warn�C>��"��G��4Gi�   H��������h������,�3� $��45$��"��"��$��"�� 4545 45$��  &��"�� 4 5$��CC4 5$�� CC�����������g��module  ��g��name  ��g��int1   ��g��val1   ��g��int2   ��g��val2   ��g��var   ��g��val   ��g��t  % ?�g��old  H ��g��new H ��� g��filenamef��ice-9/boot-9.scm         3       %   4   @   H   M  S  ! U  Y   a   b   g   m  / o   p   t  z   �  & �   �  �  � ��g��nameg��replace�C>��"��G��4Gi� * Av������h@���<��,�3�&��/445�4�545>��"��G��6C�4������g��module  ?�g��name  ?�g��int1   ?�g��val1   ?�g��int2   ?�g��val2   ?�g��var   ?�g��val   ?��g��filenamef��ice-9/boot-9.scm                   -  =  �  ? ��g��nameg��warn-override-core�C>��"��G��4Gi� �v������h������,�3�$��C6��������g��module  �g��name  �g��int1   �g��val1   �g��int2   �g��val2   �g��var   �g��val   ��g��filenamef��ice-9/boot-9.scm       �   ��g��nameg��first�C>��"��G��4Gi� v�h������,�3�6���������g��module  �g��name  �g��int1   �g��val1   �g��int2   �g��val2   �g��var   �g��val   ��g��filenamef��ice-9/boot-9.scm     �   ��g��nameg��last�C>��"��G��4Gi� >��"��G��4Gi� >��"��G���� R  ����h ������] 4�5$��C�6��������g�� handler-name  �g��t ��g��filenamef��ice-9/boot-9.scm .  /  /   1   1 �   ���C����h(������]�$���$���"����6C�������������g�� handler-names  "��g��filenamef��ice-9/boot-9.scm ,  -   3   3  5  . �  " ��g��nameg��lookup-duplicates-handlers�CR4 i5R4 i �h ���{���]44�5>��"��G���C����s�������g�� handler-names  ��g��filenamef��ice-9/boot-9.scm <   =   >   = �   ���C5 R  R�����h���M���]�L�6E�������g��filenamef��ice-9/boot-9.scm     �   ���C.*5��h ���T���]4�5$��C45��6����L�������g��s  ��g��filenamef��ice-9/boot-9.scm  �   ���C:< _��h(���i���]4�L>��"��G���L�L6�����a�������g��port  #��g��filenamef��ice-9/boot-9.scm       �  # ���C����h8���i���-�1�3�444�L�O�5 5>��"��G��C����a�������g��key 4�g��args 4��g��filenamef��ice-9/boot-9.scm  � 4 ���C44`    J  ���h0������]4545�4544�5L�56����������g��objcode  -�g��program  -��g��filenamef��ice-9/boot-9.scm        &       &                      %   '   +   -  �  - ���C.*5�h ���T���]4�5$��C45��6����L�������g��s  ��g��filenamef��ice-9/boot-9.scm  �   ���C:< _��h(���i���]4�L>��"��G���L�L6�����a�������g��port  #��g��filenamef��ice-9/boot-9.scm      �  # ���C����h8���i���-�1�3�444�L�O�5 5>��"��G��C����a�������g��key 4�g��args 4��g��filenamef��ice-9/boot-9.scm  � 4 ���C� ���h���H��]44L�L5�545$��_454M5$��"��'454M5$��454M5"��$��O�O�6CC���@������g��ext  ��g�� candidate  ��g��gostat   ��g��t  3 j��g��filenamef��ice-9/boot-9.scm       ,            $   %  ,   3   3   A   H  # O  S   T   [   b  n   �  �  � ���C ��h���_���]�L�LO�6�����W�������g��dir  ��g��filenamef��ice-9/boot-9.scm     �   ���C T����h���M���]�L�6E�������g��filenamef��ice-9/boot-9.scm    !�   ���C�h���Y���-��1��3�C�����Q�������g��args ��g��filenamef��ice-9/boot-9.scm  � ���CT `.9  2 *    J " # $  % &      �������hX����] $��"��4L5�"���$��445�L�L>��"��G��"���$��4>���"��G��445�L�>��"��G��44 4  5 5L� 45�5445�>��"��G��4 54 54 544 556C�$��y4�54M5$��"��'4�54M5$��4�54M5"��$��+4 54 54 544 5L56""Õ������g��gostat  X�g��cfn � ��g��objcode  � ��g��program  � ��g��t � !�g��objcode 3 P�g��program  3 P��g��filenamef��ice-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.*5��h ���T���]4�5$��C45��6����L�������g��s  ��g��filenamef��ice-9/boot-9.scm  �   ���C:< '_��h(���i���]4�L>��"��G���L�L6�����a�������g��port  #��g��filenamef��ice-9/boot-9.scm       �  # ���C����h8���i���-�1�3�444�L�O�5 5>��"��G��C����a�������g��key 4�g��args 4��g��filenamef��ice-9/boot-9.scm  � 4 ���C����h ���h���]L�L�O�L�O�6�������`�������g�� go-file-name  ��g��filenamef��ice-9/boot-9.scm     �   ���C� ����h�����]$��o44�5$��"�� 44� 55$���"��;45�&��.4 �5$��4 4 � 54 � 55"���"���M5"�� LL�O�6����������g��canon  ���g��filenamef��ice-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#��h���M���]�L�6E�������g��filenamef��ice-9/boot-9.scm    �   ���C��������h���8��]H4�O��O�5KJ$��D4LO�5$��"��44�O� 5 �L�O�5"��$��  $��4 �>��"��G��"���6�  �O�6�����0������g�� abs-file-name  ��g��scmstat  ��g��t  1 a�g��compiled  f ���g��filenamef��ice-9/boot-9.scm      !   "   1  ! @   C  ^   f   n   t  u   �  �   �  �  � ��g��nameg�� load-absolute�C ., ( ) * +2��h`������]�L�Y4L5$��4LL>��7"��14L5$��4L4LL5>��"��44LL5>��ZCZF�������������g��filenamef��ice-9/boot-9.scm    5       &  0   1  4   A  F  I   V  �  Z ���C� ����hx���'��-�.�,�3�#��HO�Q�$��"��45$��4>��"��G��"��K�O�6�������g��dir w�g�� file-name w�g��reader  w�g��compiled-extension   w�g�� load-absolute  ! w�g��t  + C��g��filenamef��ice-9/boot-9.scm \ + v  + v 9 w  > w  @ w  G v  H x L x  S x ] z d {  w  � w  ��g��nameg��load-in-vicinityg�� documentationf��Load 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 X�������h���W���]L�$��L�"���C�O�������g��arg  ��g��filenamef��ice-9/boot-9.scm  �   ���CR���h���V���]�6N�������g��id  ��g��filenamef��ice-9/boot-9.scm   �   ���C e f g h q r����h(���V���]L�$��L�"���C�������N�������g��id  !��g��filenamef��ice-9/boot-9.scm   (�  ! ���CN� ��h��� ��])4�5$�� 45"��45$�� 45"��4�5$�� O�@��4 ?$��  O�@  �6����������g��x  |�g��src |�g��file   |�g��dir  8 |�g��tmp  C |�g��tmp  [ |��g��filenamef��ice-9/boot-9.scm �               )       "   ,   -  % 8  �  | ���C55R  R4ci 5 RZB E�������h0������] 4�5$��44556C�����������g��module  ,�g��features  ,�g��mod  ,��g��filenamef��ice-9/boot-9.scm K  L L   M   O   O  " O ? $ O  ( O  * N �  , ��g��nameg��cond-expand-provide�C R4Xi ZV 3�����h���U���]L��6������M�������g��c  ��g��filenamef��ice-9/boot-9.scm \ �  ���C 4��h���U���]L��6������M�������g��c  ��g��filenamef��ice-9/boot-9.scm ^ �  ���C ������h���U���]4L��5C�����M�������g��c  ��g��filenamef��ice-9/boot-9.scm  ` �  ���CR�����h���U���]�6M�������g��c  ��g��filenamef��ice-9/boot-9.scm  b �   ���CP  4 E ����h���z���]L�4�56������r�������g��mod  ��g��filenamef��ice-9/boot-9.scm U   V   V <  V   V �   ���CE��������h8������]4�545$��C45�O�456������������g��c  3�g��sym 3�g��mod   3��g��filenamef��ice-9/boot-9.scm  c  c d   d  f $  f  + W  3 U �  3 ���CN� ���hx������]!4�5$�� L�O�@4�5$�� L�O�@4�5$�� L�O�@��4?$�� @  �6��������g�� condition  w�g��tmp w�g��tmp  ' w�g��tmp  C w�g��tmp  [ w��g��filenamef��ice-9/boot-9.scm Y �  w ��g��nameg��condition-matches?�CVV �����h ������]4L�5$��CL�L6������������g�� condition  �g��form  �g��rest   ��g��filenamef��ice-9/boot-9.scm  k k  m �   ���C���h���E���]�L�6���=�������g��filenamef��ice-9/boot-9.scm  n �   ���CN����hH������]4�5$��LL�O�@4�5$�� O�@�6���������g��clauses  F�g�� alternate  F�g��tmp  F�g��tmp  * F��g��filenamef��ice-9/boot-9.scm h �  F ��g��nameg��match�CV  ������h���D���]�L�C<�������g��filenamef��ice-9/boot-9.scm s �   ���C�h���l���]L��O�6�d�������g��clause  �g��form  ��g��filenamef��ice-9/boot-9.scm  r �   ���CN  ����h���_���]�L�6����W�������g��filenamef��ice-9/boot-9.scm w  x   x * x �  ���C������h���Z���]L�L�O�6�R�������g��clause  ��g��filenamef��ice-9/boot-9.scm  v �   ���CN� ������hh������]!O�O�Q�Q�4�5$�� O�@4�5$�� �O�@ �6�������������g��x  b�g��condition-matches?  b�g��match   b�g��tmp  ( b�g��tmp  D b��g��filenamef��ice-9/boot-9.scm S �  b ���C5 R 8u` s+�h ������]444�555��C���������g��num  ��g��filenamef��ice-9/boot-9.scm             ,  4            �   ���C������h������]4�56�w�������g��srfis  ��g��filenamef��ice-9/boot-9.scm }     ~ �   ��g��nameg�� use-srfis�C R4Xi ZV  NR��������h���i���]�6a�������g��type  �g��arg  ��g��filenamef��ice-9/boot-9.scm   �   ���CN  ���h���{���]L�6����s�������g��type  �g��arg  ��g��filenamef��ice-9/boot-9.scm      ,  �  ���C3P���h���^���]4�56�V�������g��n  ��g��filenamef��ice-9/boot-9.scm      �   ���CO ���h���x���]L�4�56�������p�������g��n  ��g��filenamef��ice-9/boot-9.scm     %  4   %   �   ���Cu+PV  �������h���8���]��C������0�������g��tmp-bde397a-1e89  ��  ���C�����h���.���]4�5C�&�������g��srfi-n  ��   ���CN� ��hH������]4L�O�444�555545$��@  6����������g��n  E�g��tmp # E�g��tmp  . E��g��filenamef��ice-9/boot-9.scm          +    !   #  #  �  E ���C� �������hx���u���]4�5"��<4�5"�� �6$��4?$�� �O�@""$��4?$��  �O�@""�������m�������g��x  q�g��tmp q�g��tmp   M��g��filenamef��ice-9/boot-9.scm  �  q ���C5 R4Xi Zu VNR�����h������]�6w�������g��name  �g��formals  �g��body   ��g��filenamef��ice-9/boot-9.scm   �   ���COP SV                ����h���F���]�LL�����L�L�   L�����LL���  L���  �������C�������>�������g�� proc-name  ��g��args  ���  � ���CN� ��hP������]4�4M�4�55545�45$���O�@  6���������g��name  N�g��formals  N�g��body   N�g��tmp  # N�g��tmp  . N��g��filenamef��ice-9/boot-9.scm        +   $         ! #  �  N ���C� ����hP������]H45K4�5"�� �6$��4?$�� O�@""�������������g��x  J�g��prefix  J�g��tmp   J��g��filenamef��ice-9/boot-9.scm       #  �  J ���C5 R4 i5��4Ji������h���D���]�L�[C��<�������g��filenamef��ice-9/boot-9.scm  �   ���C�O������h���T���]L��\C�������L�������g��v  ��g��filenamef��ice-9/boot-9.scm  �  ���C�O�5� R4ii4i 5>��"��G��4ii4i 5>��"��G��4i  5�4i�>��"��G���i4Mi 5�4ivD�h0������] 4L�54L�>��"��G��L��6������������g��sym  +�g��v +��g��filenamef��ice-9/boot-9.scm          +  �  + ���C�O� >��"��G��4i >��"��G���4    5�4 �>��"��G���C+%������g��%default-prompt-tag � K�g��%running-exception-handlers D �g��%exception-handler D �g��custom-throw-handler   �g��next-id - .�g��exception-printers ������V������O�g��print-location ������1������L�g��scm-error-printer ������������Š�g��s �������������g��rtd �����J�����M"�g��rtd �����M�����Ni�g��rtd �����Nr�����O�g��rtd �����O#�����O�g��rtd �����O�����Pb�g��rtd �����Pk�����Q�g��rtd �����Q �����Q�g��rtd �����Q�����RQ�g��rtd �����RZ�����S�g��rtd �����S �����S�g��rtd �����S�����Tb�g��rtd �����Tk�����U�g��rtd �����U �����U�g��rtd �����U�����VQ�g��rtd �����VZ�����W�g��rtd �����W �����W�g��rtd �����W�����XA�g��rtd �����XJ�����X�g��rtd �����X�����Y�g��rtd �����Y�����Z1�g��rtd �����Z:�����Z�g��rtd �����Z�����[�g��rtd �����[�����\2�g��rtd �����\;�����\�g��rtd �����\�����]�g��rtd �����]�����^!�g��rtd �����^*�����^�g��rtd �����^�����_q�g��rtd �����_z�����`"�g��rtd �����`+�����`�g��rtd �����`�����ar�g��m �����������g��m ����� �����t�g��accessor �����������g��root �����]�����.�g��m ����������v�g��noop ����������s�g��using-readline? �����������g��m �����������g��from �����������g��to �����������g��m �����6�����N��3g��filenamef��ice-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 , 1�����g , %�����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 $ g��filenamef��ice-9/r6rs-libraries.scm�����|  g��filenamef��ice-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 ���C6��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/posix.go��������������������������������������������������������������������������������������0000644�����������������00000016366�15253700563�0007165 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�1�4�����ha������]� g��stat:dev g��stat:ino g�� stat:mode g�� stat:nlink g��stat:uid g��stat:gid g�� stat:rdev g�� stat:size g�� stat:atime g�� stat:mtime g�� stat:ctime g�� stat:blksize g�� stat:blocks g��stat:atimensec g��stat:mtimensec g��stat: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 g��utsname:sysname g��utsname:nodename g��utsname:release !g��utsname:version "g��utsname:machine #g��getpw $g��getpwent %g��setpw &g��setpwent 'g��endpwent (g��getpwnam )g��getpwuid *g��getgr +g��getgrent ,g��setgr -g��setgrent .g��endgrent /g��getgrnam 0g��getgrgidC�5��h����]�����h���n���]� C�f�������g��f  ��g��filenamef��ice-9/posix.scm    �   ��g��nameg��stat:dev�CR�����h���n���]� C�f�������g��f  ��g��filenamef��ice-9/posix.scm    �   ��g��nameg��stat:ino�CR�����h���o���]� Cg�������g��f  ��g��filenamef��ice-9/posix.scm    �   ��g��nameg�� stat:mode�CR����h���p���]� Ch�������g��f  ��g��filenamef��ice-9/posix.scm    �   ��g��nameg�� stat:nlink�CR���h���n���]� Cf�������g��f  ��g��filenamef��ice-9/posix.scm    �   ��g��nameg��stat:uid�CR�����h���n���]� Cf�������g��f  ��g��filenamef��ice-9/posix.scm    �   ��g��nameg��stat:gid�CR�����h���o���]� Cg�������g��f  ��g��filenamef��ice-9/posix.scm    �   ��g��nameg�� stat:rdev�CR����h���o���]� Cg�������g��f  ��g��filenamef��ice-9/posix.scm    �   ��g��nameg�� stat:size�CR����h���p���]� Ch�������g��f  ��g��filenamef��ice-9/posix.scm    �   ��g��nameg�� stat:atime�C R���h���p���]� Ch�������g��f  ��g��filenamef��ice-9/posix.scm    �   ��g��nameg�� stat:mtime�C R���h���p���]� Ch�������g��f  ��g��filenamef��ice-9/posix.scm  �   ��g��nameg�� stat:ctime�C R���h���r���]� Cj�������g��f  ��g��filenamef��ice-9/posix.scm !  ! �   ��g��nameg�� stat:blksize�C R�h���q���]� Ci�������g��f  ��g��filenamef��ice-9/posix.scm "  " �   ��g��nameg�� stat:blocks�C R��h���t���]� Cl�������g��f  ��g��filenamef��ice-9/posix.scm #  # �   ��g��nameg��stat:atimensec�CR�������h���t���]� Cl�������g��f  ��g��filenamef��ice-9/posix.scm $  $ �   ��g��nameg��stat:mtimensec�CR�������h���t���]� Cl�������g��f  ��g��filenamef��ice-9/posix.scm %  % �   ��g��nameg��stat:ctimensec�CR�������h���o���]� Cg�������g��f  ��g��filenamef��ice-9/posix.scm (  ( �   ��g��nameg�� stat:type�CR����h���p���]� Ch�������g��f  ��g��filenamef��ice-9/posix.scm )  ) �   ��g��nameg�� stat:perms�CR���h���s���]� C�k�������g��obj  ��g��filenamef��ice-9/posix.scm +  + �   ��g��nameg�� passwd:name�CRh���u���]� C�m�������g��obj  ��g��filenamef��ice-9/posix.scm ,  , �   ��g��nameg�� passwd:passwd�CR������h���r���]� Cj�������g��obj  ��g��filenamef��ice-9/posix.scm -  - �   ��g��nameg�� passwd:uid�CR�h���r���]� Cj�������g��obj  ��g��filenamef��ice-9/posix.scm .  . �   ��g��nameg�� passwd:gid�CR�h���t���]� Cl�������g��obj  ��g��filenamef��ice-9/posix.scm /  / �   ��g��nameg�� passwd:gecos�CR�������h���r���]� Cj�������g��obj  ��g��filenamef��ice-9/posix.scm 0  0 �   ��g��nameg�� passwd:dir�CR�h���t���]� Cl�������g��obj  ��g��filenamef��ice-9/posix.scm 1  1 �   ��g��nameg�� passwd:shell�CR�������h���r���]� C�j�������g��obj  ��g��filenamef��ice-9/posix.scm 3  3 �   ��g��nameg�� group:name�CR�h���t���]� C�l�������g��obj  ��g��filenamef��ice-9/posix.scm 4  4 �   ��g��nameg�� group:passwd�CR�������h���q���]� Ci�������g��obj  ��g��filenamef��ice-9/posix.scm 5  5 �   ��g��nameg�� group:gid�CR��h���q���]� Ci�������g��obj  ��g��filenamef��ice-9/posix.scm 6  6 �   ��g��nameg�� group:mem�CR��h���w���]� C�o�������g��obj  ��g��filenamef��ice-9/posix.scm 8  8 �   ��g��nameg��utsname:sysname�CR����h���x���]� C�p�������g��obj  ��g��filenamef��ice-9/posix.scm 9  9 �   ��g��nameg��utsname:nodename�CR���h���w���]� Co�������g��obj  ��g��filenamef��ice-9/posix.scm :  : �   ��g��nameg��utsname:release�C R����h���w���]� Co�������g��obj  ��g��filenamef��ice-9/posix.scm ;  ; �   ��g��nameg��utsname:version�C!R����h���w���]� Co�������g��obj  ��g��filenamef��ice-9/posix.scm <  < �   ��g��nameg��utsname:machine�C"R#��������h���^���]�6���V�������g��filenamef��ice-9/posix.scm >  > �   ��g��nameg��getpwent�C$R%�h���^���]�6�V�������g��filenamef��ice-9/posix.scm ?  ? �   ��g��nameg��setpwent�C&R%�h���^���]�6���V�������g��filenamef��ice-9/posix.scm @  @ �   ��g��nameg��endpwent�C'R#�h���q���]�6i�������g��name  ��g��filenamef��ice-9/posix.scm B  B �   ��g��nameg��getpwnam�C(R#������h���p���]�6h�������g��uid  ��g��filenamef��ice-9/posix.scm C  C �   ��g��nameg��getpwuid�C)R*�������h���^���]�6���V�������g��filenamef��ice-9/posix.scm E  E �   ��g��nameg��getgrent�C+R,�h���^���]�6�V�������g��filenamef��ice-9/posix.scm F  F �   ��g��nameg��setgrent�C-R,�h���^���]�6���V�������g��filenamef��ice-9/posix.scm G  G �   ��g��nameg��endgrent�C.R*�h���q���]�6i�������g��name  ��g��filenamef��ice-9/posix.scm I  I �   ��g��nameg��getgrnam�C/R*������h���o���]�6g�������g��id  ��g��filenamef��ice-9/posix.scm J  J �   ��g��nameg��getgrgid�C0RC����������g��filenamef��ice-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 �-   ���C6���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/time.go���������������������������������������������������������������������������������������0000644�����������������00000005364�15253700563�0006755 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0 ������]�:�4����h������]� g��guile � g��define-module* � � g��ice-9 g��time � g��filenameS f��ice-9/time.scm g��importsS g��format  �  � � g��exportsS � g��set-current-module � � g�� gc-run-time g��times g��display f��'clock utime stime cutime cstime gctime  f��$~5,2F ~5,2F ~5,2F ~6,2F ~6,2F ~6,2F  g�� tms:clock g��exact->inexact g��internal-time-units-per-second g�� tms:utime g�� tms:stime g�� tms:cutime g�� tms:cstime !g��identity "g�� time-proc #g��make-syntax-transformer $#� %#� &g��macro 'g�� $sc-dispatch ('� )'� *g��_ +g��any ,*+ -g�� syntax->datum .-� /-� 0g�� datum->syntax 10� 20� 3g��@@ 43"� 5g��lambda 6g��syntax-violation 76� 86� 9f��-source expression failed to match any patternC�5���hX��Z���]4   5�4�>��"��G���  !����h��7��]145�45�4�5�45�45�4>��"��G��444545 5 44545 5 44545 5 44545 5 44545 544545 5>��"��G��C�������/������g��proc  �g��gc-start  �g�� tms-start   �g��result   �g��tms-end   �g��gc-end  # �g��proc  ? [�g��proc  ] y�g��proc  { ��g��proc  � ��g��proc  � ��g��proc  � ��� g��filenamef��ice-9/time.scm "  #   #  $   #   %   #   &   #   '  # #  & ,  * , / ,  8 -  = -  ? . B +  E +  L + ' S +  V +  X +  ] / ` +  c +  j + ' q +  t +  v +  { 0 ~ +  � +  � + ' � +  � +  � +  � 1 � +  � +  � + ' � +  � +  � +  � 2 � +  � +  � + ' � +  � +  � +  � 3 � +  � +  � + ' � +  � +  � +  � - �<   ��g��nameg�� time-proc�C"R4%&),/245�����h���Z���]���CR�������g��exp  ��g��filenamef��ice-9/time.scm 6  7 �   ���C���h���b���] 4�5L�4?6Z�������g��args  �g��v ��g��filenamef��ice-9/time.scm  6 �   ���C89�������h(���`���] 4�5$�� �O�@�6�X�������g��y  '�g��tmp '��g��filenamef��ice-9/time.scm 6 �  ' ���C5RC�R�������g��m  ,��g��filenamef��ice-9/time.scm    " �  W ���C6�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/gap-buffer.go���������������������������������������������������������������������������������0000644�����������������00000024670�15253700563�0010036 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0)������]�V�4��������h������]� g��guile � g��define-module* � � g��ice-9 g�� gap-buffer � g��filenameS f��ice-9/gap-buffer.scm g��exportsS g��gb? g��make-gap-buffer g��gb-point g�� gb-point-min g�� gb-point-max g��gb-insert-string! g��gb-insert-char! g��gb-delete-char! g�� gb-erase! g�� gb-goto-char g�� gb->string g�� gb-filter! g�� gb->lines g��gb-filter-lines! g��make-gap-buffer-port   � g�� autoloadsS g��srfi g��srfi-13 � g�� string-join ! � "!� #g��set-current-module $#� %#� &g��make-record-type 'g��s (g��all-sz )g��gap-ofs *g��aft-ofs +'()*� ,g��record-predicate -g��record-accessor .g��s: /g��all-sz: 0g��gap-ofs: 1g��aft-ofs: 2g��record-modifier 3g��s! 4g��all-sz! 5g��gap-ofs! 6g��aft-ofs! 7g��default-initial-allocation 8g��default-chunk-size 9g��default-realloc-threshold :g��round-up ;g��record-constructor <g��new =g�� make-string >g��substring-move! ?g��realloc @g��port? Ag�� eof-object? Bg�� list->string Cg��reverse Dg�� read-char Eg��string? Fg�� string-length Gg��error Hf�� bad init type Ig�� insert-prep Jg�� string-set! Kg��max Lg��min Mg�� point++n! Ng�� point+-n! Og�� string-append Pg�� substring Qg�� string-index Rf��not a gap-buffer: Sg��make-soft-port Tg�� string-ref Uf��rwC�5���h ����]4   "5�4%�>��"��G���4&i+5R4,ii5 R4-ii'5.R4-ii(5/R4-ii)50R4-ii*51R42ii'53R42ii(54R42ii)55R42ii*56R �7R �8R 9R8�h������]�C�����������g��n  ��g��filenamef��ice-9/gap-buffer.scm � �  �  � �  ��g��nameg��round-up�C:R4;ii5<R./01=>346� h�����]:4�54�54�54�5454  >��"��G��4>��"��G��4�>��"��G��4�>��"��G�� �6�������g��gb  ��g��inc  ��g��old-s  ��g��all-sz   ��g��new-sz   ��g��gap-ofs  " ��g��aft-ofs  + ��g��new-s  4 ��g�� new-aft-ofs  ; ��� g��filenamef��ice-9/gap-buffer.scm �  �  �  �   �   �   �   �  " �  % �  + �  . �  4 �  ; �  ; �  > �  V �  p �  � �  � � �  � ��g��nameg��realloc�C?R<3=7456@ABC:>.DEFGH������h��Q��-��1��3�45��(��X445>��"��G��4>��"��G��4 >��"��G��4>��"��G��"��45$��"��4 5$��4 4 554 5445>��"��G��4>��"��G��4  45 >��"��G��4>��"��G��4>��"��9G��"��245"I45 "6"��45$��454 5445>��"��G��4>��"��G��4  45 >��"��G��4>��"��G��4>��"��G��"��4>��"��G��C�������I������g��init �g��gb  �g��v  q �g��c  � 9�g��acc  � 9�g��len  � 9�g��string  �  �g��alloc  � �g��len  b �g��alloc  k �� g��filenamef��ice-9/gap-buffer.scm � �  �   �   �  �  ' � 0 � D � W � q �  q �  t �  ~ �  � �  � � ! � �  � � ' � � 5 � � ' � � ! � � + � �  � � � � ' � � � � � � � � > � � � �  � ! � 0 , � . / � ; 9 � ! 9 �  : � 0 A � 6 L �  Q �  [ �  \ � ! b �  e � + k �  n � s � ' ~ �  �  �  � >  �  �  �  �   � %  � �;  ��g��nameg��make-gap-buffer�C R0������h������]4�5C�����w�������g��gb  ��g��filenamef��ice-9/gap-buffer.scm �  �  � �  ��g��nameg��gb-point�CR����h���q���] C����i�������g��gb  ��g��filenamef��ice-9/gap-buffer.scm � �   ��g��nameg�� gb-point-min�CR/10��h ������]4�54�54�5C������������g��gb  ��g��filenamef��ice-9/gap-buffer.scm �  � �   � '  �   �   � �   ��g��nameg�� gb-point-max�CR019?:��������hP���<��]4�54�5$��4�4 5>��"��G��"���C�������4������g��gb  I�g��len  I�g��gap-ofs  I�g��aft-ofs   I�g��slack   I��g��filenamef��ice-9/gap-buffer.scm �  �  �  �   �   �   �   �  # � ' �  ( � - �  0 �  5 �  : � �  I ��g��nameg�� insert-prep�CIRFI>.5���h@�����]454�54 4�5>��"��G���6��������g��gb  ?�g��string  ?�g��len  ?�g��gap-ofs   ?��g��filenamef��ice-9/gap-buffer.scm �  �  �  �   �   �   � " , �  = �  ? � �  ? ��g��nameg��gb-insert-string!�CRIJ.5��������h0������] 4� 544�5>��"��G���6�������g��gb  0�g��char  0�g��gap-ofs  0��g��filenamef��ice-9/gap-buffer.scm �  �  �  �   �   �  . �  0 � �  0 ��g��nameg��gb-insert-char!�CR5K06L/1�hP��� ��] $���4 4�556 $���44�54�556 $��CC������g��gb  P�g��count  P��g��filenamef��ice-9/gap-buffer.scm �  � �   �   �  �   �  � $ � ( �  - �  0 �  7 � + @ � ( B �  D � H � L � �  P ��g��nameg��gb-delete-char!�CR56/���h(������]4� >��"��G���4�56�������������g��gb  "��g��filenamef��ice-9/gap-buffer.scm �  �   �  " � �  " ��g��nameg�� gb-erase!�CR>56��hH������]4>��"��G��4�>��"��G���6��������������g��gb  A�g��n  A�g��s   A�g��gap-ofs   A�g��aft-ofs   A��g��filenamef��ice-9/gap-buffer.scm �  �   �   �  �  ) �  . �  ? �  A � �  A ��g��nameg�� point++n!�CMR>56�����hH�����]4>��"��G��4�>��"��G���6�����������g��gb  D�g��n  D�g��s   D�g��gap-ofs   D�g��aft-ofs   D��g��filenamef��ice-9/gap-buffer.scm �  �  �   � -  �  # �  , �  1 �  B �  D � �  D ��g��nameg�� point+-n!�CNRNM.01� �h�����]*4�5 $�� 4� 5"��$��"��$�� 4�5"��$��"��Y4�5 $��"��74 $��"���4�54�54�5>��"��G��C����������g��gb  ��g�� new-point  ��g��pmax  ��g��t  ��g��t  C ��g��delta  Y ��g��t  _ ���g��filenamef��ice-9/gap-buffer.scm �  �  �   �  �   � �  1 � 5 �  6 � C �  R � " Y �  Y �  _ �  _ � l �  p �  t �  � �  � � � � . � � �  � ��g��nameg�� gb-goto-char�CR.OP01���h0������] 4�54 4�5544�556�����������g��gb  ,�g��s ,��g��filenamef��ice-9/gap-buffer.scm �  � �   �   � "  �   �  " � * �  , � �  , ��g��nameg�� gb->string�CR�����h0������] 44�554�>��"��G���6�������������g��gb  *�g�� string-proc  *�g��new   *��g��filenamef��ice-9/gap-buffer.scm �  �  �   �  �   �  * � �  * ��g��nameg�� gb-filter!�CRQPC��hX���8��]!4�5"��<4 5$��45"456 "���0������g��gb  U�g��str U�g��start   K�g��acc   K�g��t   K��g��filenamef��ice-9/gap-buffer.scm �  � �   �   �  �  % �  & � % 3 �  ; �  > � ! I �  K �  K �  M �  U � �  U ��g��nameg�� gb->lines�CR �h8������] 44�554�>��"��G���4 56��������������g��gb  1�g�� lines-proc  1�g�� new-lines   1��g��filenamef��ice-9/gap-buffer.scm �                '   1  �  1 ��g��nameg��gb-filter-lines!�CR GRS���h���a���]L��6������Y�������g��c  ��g��filenamef��ice-9/gap-buffer.scm    �  ���C�h���a���]L��6������Y�������g��s  ��g��filenamef��ice-9/gap-buffer.scm    �  ���C01/.TJ56� ��h���)��] 4L�54L�5�4L�5$��C4L�5454�>��"��G��4L��>��"��G��4L�>��"��G��C�����!������g��gap-ofs  {�g��aft-ofs  {�g��s  + {�g��c  6 {��g��filenamef��ice-9/gap-buffer.scm                "   %   +   .   6   9   O   V  $ [   d   k  $ p  �  { ���CU� �hP������] 4�5$��"��4�>��"��G���O��O��O��6�����������g��gb  L�g��t ,��g��filenamef��ice-9/gap-buffer.scm            !   H   J   L  �  L ��g��nameg��make-gap-buffer-port�CRC����~������g��m  ,��g��filenamef��ice-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  ���C6�������������������������������������������������������������������������ice-9/calling.go������������������������������������������������������������������������������������0000644�����������������00000026032�15253700563�0007423 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0,������]�m�4�h������]� g��guile � g��define-module* � � g��ice-9 g��calling � g��filenameS f��ice-9/calling.scm g��exportsS g��with-excursion-function g��with-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   � g��set-current-module � � g��make-syntax-transformer � � g��macro g�� $sc-dispatch � � g��_ g��any !  "g�� syntax->datum #"� $"� %g�� datum->syntax &%� '%� (g��excursion-function-syntax )g��syntax-violation *)� +)� ,f��-source expression failed to match any pattern -g��getter-and-setter-syntax .g��#delegating-getter-and-setter-syntax /g��map 0g��gensym 1f��temp 2f��swap 3f��thunk 4g��lambda 5g��letrec 6� 7g��begin 8g��set! 9g�� dynamic-wind :f��args ;f��an-arg <f�� new-value =f��loop >g��symbol->keyword ?g��let @g��if Ag��null? Bg��quote CB� Dg��all-vals Eg��vals FED� Gg��kws HAE� Ig�� quasiquote Jg��unquote Kg��car LKG� MJL� NKE� OJN� Pg��unquote-splicing Qg��cdr RQE� SQG� TRS� Ug��case Vg��append Wg��else Xg��throw Yg��bad-get-option ZBY� [g��or \g��cadr ]g��bad-set-option ^B]� _g��cddr `g��append! ag�� simpler-get bg�� simpler-set cg�� body-proc dabc� eabc� f4de� gg��kw hg� ig��list jg��new-val kgj� lj�C�5�����h#��p���]4   5�4�>��"��G���4 !$'(�h���x���]4�5�C�p�������g��vars  �g��proc  ��g��filenamef��ice-9/calling.scm /  0  0 �   ���C�����h���e���] 4�5L�4?6]�������g��args  �g��v ��g��filenamef��ice-9/calling.scm  / �   ���C+,����h(���c���] 4�5$�� �O�@�6�[�������g��y  '�g��tmp '��g��filenamef��ice-9/calling.scm / �  ' ���C5 R4 !$'-�h���x���]4�5C���p�������g��vars  �g��proc  ��g��filenamef��ice-9/calling.scm \  ] ] �  ���C�����h���e���] 4�5L�4?6]�������g��args  �g��v ��g��filenamef��ice-9/calling.scm  \ �   ���C+,����h(���c���] 4�5$�� �O�@�6�[�������g��y  '�g��tmp '��g��filenamef��ice-9/calling.scm \ �  ' ���C5 R4!$'-�h������]4�5�Cx�������g��vars  �g��proc  ��g��filenamef��ice-9/calling.scm d  e  e  e �   ���C�����h���e���] 4�5L�4?6]�������g��args  �g��v ��g��filenamef��ice-9/calling.scm  d �   ���C+,����h(���c���] 4�5$�� �O�@�6�[�������g��y  '�g��tmp '��g��filenamef��ice-9/calling.scm d �  ' ���C5R4!$'.�h������]4�5C��������������g��vars  �g�� get-delegate  �g�� set-delegate   �g��proc   ��g��filenamef��ice-9/calling.scm u  v  v �   ���C�h���e���] 4�5L�4?6]�������g��args  �g��v ��g��filenamef��ice-9/calling.scm  u �   ���C+,����h(���c���] 4�5$�� �O�@�6�[�������g��y  '�g��tmp '��g��filenamef��ice-9/calling.scm u �  ' ���C5R4!$'(-�������h������]4�54�5C���|�������g��vars  �g��proc  ��g��filenamef��ice-9/calling.scm �  � �  � �   ���C�h���f���] 4�5L�4?6^�������g��args  �g��v ��g��filenamef��ice-9/calling.scm  � �   ���C+,���h(���d���] 4�5$�� �O�@�6�\�������g��y  '�g��tmp '��g��filenamef��ice-9/calling.scm � �  ' ���C5R/012345678������h(���n���]L�����L���C�����f�������g��n  #�g��sn  #��g��filenamef��ice-9/calling.scm � $  � &�  # ���Ch���n���]��C������f�������g��sn  �g��n  ��g��filenamef��ice-9/calling.scm �  � '�  ���C9� ����hp���w��]!4�5454545�4 O��5�4 �5 ���C�o������g��vars  o�g��saved-value-names o�g�� tmp-var-name  o�g�� swap-fn-name  o�g�� thunk-name  o��g��filenamef��ice-9/calling.scm �  �  �   �   �   �   �   �   �   �  �  �  * �  < �  L �  Q �  \ � �  o ��g��nameg��excursion-function-syntax�C(R0:;<=/>4?@ACDBFGHIMOPT/UV�h���n���]���C���f�������g��kw  �g��v  ��g��filenamef��ice-9/calling.scm � (  � 7�  ���CWXZ[QK\8������h���n���]��L���C����f�������g��kw  �g��v  ��g��filenamef��ice-9/calling.scm � #  � 2�   ���C^_�%��hx����])454545454�5 ��  �(�� "��P  ���� ���  �������44�5���5����� �� � ��  ��!���44"O��5#���5$�������C���������g��vars  u�g�� args-name ' u�g�� an-arg-name  ' u�g�� new-val-name  ' u�g�� loop-name  ' u�g��kws  ' u��g��filenamef��ice-9/calling.scm �  �   �  �  �   �   �   �   �   �   �   �   �   � ' �  3 � R �  T �  Z �  � � � � " � � # � � # � � " � � � � 2 �  5 �  F �  W �  X � t � �!  u ��g��nameg��getter-and-setter-syntax�C-R0:;<=/>4?@A`CDBFGHIMOPT/UV������h���n���]���C���f�������g��kw  �g��v  ��g��filenamef��ice-9/calling.scm � (  � 7�  ���CWK[Q\8��h���n���]��L���C����f�������g��kw  �g��v  ��g��filenamef��ice-9/calling.scm � #  � 2�   ���C_�#����h��Z��]+454545454�5 ��  � (�� "��P ���� ���  ���������44�5����5����� �� � �� �� ���44!O��5���5"�������C������R������g��vars  �g�� get-delegate  �g�� set-delegate   �g�� args-name  ' �g�� an-arg-name  ' �g�� new-val-name  ' �g�� loop-name  ' �g��kws  ' ��g��filenamef��ice-9/calling.scm �  �   �  �  �   �   �   �   �   �   �   �   �   � ' �  3 � T �  V �  \ �  � � � � " � � # � � # � � " � � � � ? �  B �  S �  d �  e �  � �!   ��g��nameg��#delegating-getter-and-setter-syntax�C.R4!$'f4hUg/>i�����h8������] 4�5��$�� �"�����C��������������g��v  1�g��t  -��g��filenamef��ice-9/calling.scm        0          $  0 '  8 *  0 0  �  1 ���Ck>l8�������h8������] 4�5��$�� "�� ��C������������g��v  3�g��t  /��g��filenamef��ice-9/calling.scm        0            B %  0 (  8 *  0 2  �  3 ���C� ������h8������]4�5�4 �5��C���������g��vars-etc  6�g��proc  6��g��filenamef��ice-9/calling.scm         #  ,  �  6 ���C���h���f���] 4�5L�4?6^�������g��args  �g��v ��g��filenamef��ice-9/calling.scm   �   ���C+,���h(���d���] 4�5$�� �O�@�6�\�������g��y  '�g��tmp '��g��filenamef��ice-9/calling.scm  �  ' ���C5R4!$'f4hUg`/>i�������h8������] 4�5��$�� �"�����C��������������g��v  1�g��t  -��g��filenamef��ice-9/calling.scm     (   9  (  $  ! )   ' $ " 8 ' " @ * " 8 0  $�  1 ���CWk>l8�����h8������] 4�5��$�� "�� ��C������������g��v  3�g��t  /��g��filenamef��ice-9/calling.scm (   ( (  ( 9 ( ( ( $  * )  ) '  * J % + 8 ( + @ * + 8 2 ( $�  3 ���C� ������h`�����]44�5 ��5� 44 �5  ��5��C�������������g��vars-etc  Z�g�� delegate-get  Z�g�� delegate-set   Z�g��proc   Z��g��filenamef��ice-9/calling.scm          $  '  (   5 ( 8 (  B -  O ( P  �  Z ���C�h���f���] 4�5L�4?6^�������g��args  �g��v ��g��filenamef��ice-9/calling.scm   �   ���C+,���h(���d���] 4�5$�� �O�@�6�\�������g��y  '�g��tmp '��g��filenamef��ice-9/calling.scm  �  ' ���C5R4!$'?/�������h���p���]���C���h�������g��v  ��g��filenamef��ice-9/calling.scm C   C   C & C �  ���C����h���y���]����C����q�������g��v  ��g��filenamef��ice-9/calling.scm D 1  D @  D I D T  D =�   ���C����h(������]4�54�5��C��������������g��vars-etc  !�g��proc  !��g��filenamef��ice-9/calling.scm B  C   C  C   D ,  C �  ! ���C���h���f���] 4�5L�4?6^�������g��args  �g��v ��g��filenamef��ice-9/calling.scm  B �   ���C+,���h(���d���] 4�5$�� �O�@�6�\�������g��y  '�g��tmp '��g��filenamef��ice-9/calling.scm B �  ' ���C5RC�����h�������g��m  (��g��filenamef��ice-9/calling.scm   �  � ] � �  # ���C6�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/save-stack.go���������������������������������������������������������������������������������0000644�����������������00000001570�15253700563�0010053 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0`������]��4�hP������]� g��guile � g��define-module* � � g��ice-9 g�� save-stack � g��filenameS f��ice-9/save-stack.scm g�� replacementsS g�� stack-saved? g��the-last-stack   � g��set-current-module � � g�� make-fluid g��%stacks g�� make-stackC�5���h`��v���]4   5�4�>��"��G��� R4i5� R  ������h@������-��1��3�$��C[4 $��"�� �?\ C������������g�� narrowing ;�g��stacks  6��g��filenamef��ice-9/save-stack.scm *  +   -   5  ! 7 ! % 7  ( 7 0 2 5  9 9 � ; ��g��nameg�� save-stack�CRC�n�������g��m  (��g��filenamef��ice-9/save-stack.scm   , & - (  6 ( ] * �  _ ���C6�����������������������������������������������������������������������������������������������������������������������������������������ice-9/readline.go�����������������������������������������������������������������������������������0000644�����������������00000036637�15253700563�0007611 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0=������]��4���h������]� g��guile � g��define-module* � � g��ice-9 g��readline � g��filenameS f��ice-9/readline.scm g��importsS g��session  �  � g��regex � � g��buffered-input � � � g��exportsS g��filename-completion-function g�� add-history g�� read-history g�� write-history g�� clear-history � g��set-current-module � � g�� provided? !g��load-extension "f��libguilereadline-v-18 #f��scm_init_readline $g�� scm-error %g�� misc-error &f��3readline is not provided in this Guile installation 'g��call-with-deferred-observers ('� )'� *g��module-export! +*� ,*� -g��current-module .-� /-� 0g��readline-options 1g��readline-enable 2g��readline-disable 3012� 4g�� readline-set! 54� 6g��readline-options-interface 7g��for-each 87� 97� :g��display ;:� <:� =g�� string-length >g��symbol->string ?>� @>� Ag��newline BA� CA� Dg��append ED� FD� Gg��delq! HG� IG� Jg��make-syntax-transformer KJ� LJ� Mg��macro Ng�� $sc-dispatch ON� PN� Qg��any RQQQ� Sg�� syntax-object Tg�� eval-when Ug��m-a15bdba661f-3 Vg��top WUV� Xg��ribcage Yg��dummy Zg��opt [g��val \YZ[� ]g��m-a15bdba661f-5 ^]V� _^WW� `f��l-a15bdba661f-a af��l-a15bdba661f-b bf��l-a15bdba661f-c c`ab� dX\_c� eX� fg��x gf� h^� if��l-a15bdba661f-7 ji� kXghj� lg��shift mg�� interface ng��options og��enable pg��disable qg�� option-set! rYmnopq� sg��m-bde397a-1729 tsV� uV� vtuuuuu� wf��l-bde397a-172e xf��l-bde397a-172f yf��l-bde397a-1730 zf��l-bde397a-1731 {f��l-bde397a-1732 |f��l-bde397a-1733 }wxyz{|� ~Xrv}� t� �f��l-bde397a-172b �� �Xg� �Wdekl~e� �g��hygiene �� �ST� �g��expand �S� �g��load �S� �g��eval �S� �� �udek� �� �S0� �SD� �� �g��list �S� �g��quote �S� �g��syntax-violation �� �� �f��-source expression failed to match any pattern �g��module-locally-bound? �� �� �g��new-input-prompt �f��� �g��continuation-prompt �g�� input-port �g��current-input-port �g�� output-port �g��current-output-port �g�� read-hook �g��make-line-buffered-input-port �g�� %readline �g��string? �g�� eof-object? �g��string=? �g�� string-append �f��  �g��make-readline-port �g��the-readline-port �g��history-variable �f�� GUILE_HISTORY �g�� history-file �g��getenv �f��HOME �f��. �f��/.guile_history �g��memq �g�� add-hook! �g�� exit-hook �g�� readline-port �� �� �g��set-readline-prompt! �� �g�� file-port? �g�� input-port? �g��wrong-type-arg �f��set-readline-input-port! �f��Not a file input port: ~S �g�� port-closed? �f��Port not open: ~S �g��set-readline-input-port! �� �g�� output-port? �f��Not a file output port: ~S �f��set-readline-output-port! �g��set-readline-output-port! �� �g��set-readline-read-hook! �� �g��map �g��apropos-internal �f��^ �g�� regexp-quote �g��apropos-completion-function �� �g��*readline-completion-function* �g��!with-readline-completion-function �� �g��readline-repl-reader �g�� repl-reader �g�� fluid-ref �g��current-reader �g��!set-buffered-input-continuation?! �f��...  �g��run-hook �g��before-read-hook �g��read �g��isatty? �g��set-current-input-port �g��setter �� �� �g��using-readline? �g��activate-readline �� �g�� string-match �g��make-completion-function ��C�5������h(����]4   5�4�>��"��G���4 i5$��"��4!i"#>��"��G��4 i5$��"��4$i%&>��"��G��4),/3������h���D���]�45�6���<�������g��filenamef��ice-9/readline.scm 7 �  ���C>��"��G��4),/5��h���D���]�45�6���<�������g��filenamef��ice-9/readline.scm ; �  ���C>��"��G��69<=@C�����h������] 4�>��"��G��44�55 $��54 >��"��G�� $��4 >��"��G��"���"���4 >��"��G��4>��"��G��4 >��"��G��4>��"��G��6���������g��name  ��g��value  ��g�� documentation   ��g��len  c��g��filenamef��ice-9/readline.scm > �  � ���C���h���Y���]�@Q�������g��option  ��g��filenamef��ice-9/readline.scm > �   ���C����h8���{���)����3��6�]�$��4�>��"��G��6�456s�������g��arg  8��g��filenamef��ice-9/readline.scm > � �  8 ��g��nameg��readline-options�C0R6F��h0���v���-��1��3�44�45�5>��"��G��6��������n�������g��flags )��g��filenamef��ice-9/readline.scm > � ) ��g��nameg��readline-enable�C1R69I����h���W���]4�M�5N�C�O�������g��flag  ��g��filenamef��ice-9/readline.scm > �   ���C������h@������-��1��3�45�H4O��>��"��G��4J>��"��G��6���������g��flags ?�g��readline-options  ?��g��filenamef��ice-9/readline.scm > � ? ��g��nameg��readline-disable�C2R4L4MPR���h(���O���]�����C����G�������g��dummy  $�g��opt  $�g��val   $��  $ ���C��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/readline.scm > �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��optg��val���C54R44/5�5$��i"��R44/5�5$��i"��R44/5�5$��i"��4i5�R44/5�5$��i"��4i5�R44/5�5$��i"��R�����h���f��]!�$��"��M�$��4M�>��"��G��N�"����$��"��445$��"��45�54 5$��"��14  5$��"��M�$��4 M� 5"��N�C�������^������g�� continuation?  ��g��prompt : ��g��str  ] ��g��t  f ��g��t  { ���g��filenamef��ice-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 +�  � ���C�������h������]H��O�6�������g��history-buffer  ��g��filenamef��ice-9/readline.scm Q  R   S �   ��g��nameg��make-readline-port�CR44/5�5$��i"��R44/5�5$��i"��R44/5�5$��i"��%4i4i5��$���"���5R66� hP������]�445�5$��.4�45$��"��>��"��G��"����6�������������g��r/w  G�g��t 3��g��filenamef��ice-9/readline.scm � !  � #  }  }  } &  }   }   ~   ~  ~  8 ~  K � #�  K ���C� ����hp������]$��"��`�445�5$��.4�45$��"��>��"��G��"����4 5� 4   >��"��G��C��������g��r/w  Q�g��t * =��g��filenamef��ice-9/readline.scm �   �   �  }   }   } &  }  }  ! ~  $ ~  * ~  B ~  R � $ X � Y � �  o ���CR4),/�����h���D���]�45�6���<�������g��filenamef��ice-9/readline.scm { �  ���C>��"��G�����hX�����-��1��3��H�HHJ�(��"��J�KJ�K�J�(��"�� J�KJ�K�JJ&��"��JJ�@����������g��args U�g��prompt  U�g��inp   U��g��filenamef��ice-9/readline.scm �  �   �  " �  $ � ' �  ) � / � 6 �  8 �  ; �  = �  I � U � � U ��g��nameg��readline�CR4),/��������h���E���]�45�6���=�������g��filenamef��ice-9/readline.scm � �  ���C>��"��G��������h ������-�1�3�� (��C C�����������g��p �g��rest ��g��filenamef��ice-9/readline.scm � �   �   �  � �  ��g��nameg��set-readline-prompt!�CR4),/���h���E���]�45�6���=�������g��filenamef��ice-9/readline.scm � �  ���C>��"��G��$%� �����hX���3��] 4�5$��"��4�5$����64�5$�� ��6� C�+������g��p  W�g��t "��g��filenamef��ice-9/readline.scm �  �  � �  � '  � " & �  * �  , � $ . �  3 � 0 6 � 7 � A �  E �  G � I �  N � ( Q � U � �  W ��g��nameg��set-readline-input-port!�CR4),/�����h���E���]�45�6���=�������g��filenamef��ice-9/readline.scm � �  ���C>��"��G��$%� ���hX���4��] 4�5$��"��4�5$����64�5$��  ��6� C�,������g��p  W�g��t "��g��filenamef��ice-9/readline.scm �  �  � �  � '  � " & �  * �  , � $ . �  3 � 1 6 � 7 � A �  E �  G � I �  N � ( Q � U � �  W ��g��nameg��set-readline-output-port!�CR4),/����h���E���]�45�6���=�������g��filenamef��ice-9/readline.scm � �  ���C>��"��G����������h������]� Cz�������g��h  ��g��filenamef��ice-9/readline.scm �  � �   ��g��nameg��set-readline-read-hook!�CR4),/������h���E���]�45�6���=�������g��filenamef��ice-9/readline.scm � �  ���C>��"��G��H�>���h@�����] $��"��4444�5555N�M�(��CM�M�N�C����������g��text  =�g��cont?  =�g��retval  3 =��g��filenamef��ice-9/readline.scm �   �  �   �   �   � %  � ) " �  $ �  & �  ( � . �  3 �  3 � 8 � % : � �  = ���C�O��R4),/�h���E���]�45�6���=�������g��filenamef��ice-9/readline.scm � �  ���C>��"��G��4 i5$�� ii"�������h���O���]�L� CG�������g��filenamef��ice-9/readline.scm �   � �   ���C���h���O���]�L� CG�������g��filenamef��ice-9/readline.scm �   � �   ���C������h`���(��] �O�O�4�O�>���"��G��V4>���X4O�>���"��G��CX4O�>���"��G��F ������g�� completer  `�g��thunk  `�g�� old-completer   `��g��filenamef��ice-9/readline.scm �  �   � �  ` ��g��nameg��!with-readline-completion-functiong�� documentationf��GWith @var{completer} as readline completion function, call @var{thunk}.�CR4),/��������h���E���]�45�6���=�������g��filenamef��ice-9/readline.scm � �  ���C>��"��G��44/5�5$��i"�>i���������h���O���]�6G�������g��filenamef��ice-9/readline.scm � +  � -�   ���C������h0���s���]�4L>��"��G��4L�>��"��G��6�k�������g��filenamef��ice-9/readline.scm �   �   �   � 4 ! �  / � �  / ���C�����h ���X���]�4LL>��"��G��L�6����P�������g��filenamef��ice-9/readline.scm �   �   � �   ���C�������h���O���]�6G�������g��filenamef��ice-9/readline.scm � +  � -�   ���C������h0���s���]�4L>��"��G��4L�>��"��G��6�k�������g��filenamef��ice-9/readline.scm �   �   �   � 4 ! �  / � �  / ���C���h ���X���]�4LL>��"��G��L�6����P�������g��filenamef��ice-9/readline.scm �   �   � �   ���C��������h ���X���]�4LL>��"��G��L�6����P�������g��filenamef��ice-9/readline.scm �   �   � �   ���C�����h���P��-�.�,�3�#�� 4545�45�&���O� O�4 �O�>���"��G��V4$��"�� >��X4 O�>���"��G��CX4 O�>���"��G��FL��6�������H������g�� repl-prompt ��g��reader ��g��port  ��g��outer-new-input-prompt  3 ��g��outer-continuation-prompt  3 ��g��outer-read-hook  3 ���g��filenamef��ice-9/readline.scm �   � -  �  �  % �  - �  3 � N �  f �  } �  � � � � ���C�O��R� h8������]�445�5$��#445�>��"��G�� 456C����������g��filenamef��ice-9/readline.scm �  �   �  �   �   �   �  �  ) �  3 � �  5 ��g��nameg��activate-readline�CR4),/����h���E���]�45�6���=�������g��filenamef��ice-9/readline.scm � �  ���C>��"��G���hX���'��] $��-M(��CMMN4M5$��C��"L�N44�55N��"����������g��text  T�g�� continue?  T�g��str   5��g��filenamef��ice-9/readline.scm �   �   �    +     -   "   & '  " 5  & 9   :  $ >  3 ?  7 G  $ I   T  �  T ��g��nameg�� completer�C������h8�����])HHO��Q�KKC��� ������g��strings  5�g��strs  5�g��regexp   5�g�� completer   5�g��strs  2�g��regexp  2��g��filenamef��ice-9/readline.scm �  �   � �  5 ��g��nameg��make-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),/�����h���E���]�45�6���=�������g��filenamef��ice-9/readline.scm � �  ���C6�������g��m  ,�g��t �g�� completions  �g��boot-9-repl-reader  "��g��filenamef��ice-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  ( ���C6��������������������������������������������������������������������������������������������������ice-9/networking.go���������������������������������������������������������������������������������0000644�����������������00000021403�15253700563�0010176 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0"������]�9�4�����hh������]� g��gethost g�� gethostbyaddr g�� gethostbyname g��getnet g�� getnetbyaddr g�� getnetbyname g��getproto g��getprotobyname g��getprotobynumber g��getserv g�� getservbyname g�� getservbyport g��sethost g�� sethostent g��setnet g�� setnetent g��setproto g�� setprotoent g��setserv g�� setservent g�� gethostent g�� getnetent g�� getprotoent g�� getservent g�� endhostent g�� endnetent g�� endprotoent g�� endservent g�� hostent:name g��hostent:aliases g��hostent:addrtype g��hostent:length !g��hostent:addr-list "g�� netent:name #g��netent:aliases $g��netent:addrtype %g�� netent:net &g�� protoent:name 'g��protoent:aliases (g��protoent:proto )g�� servent:name *g��servent:aliases +g�� servent:port ,g�� servent:proto -g�� sockaddr:fam .g�� sockaddr:path /g�� sockaddr:addr 0g�� sockaddr:port 1g��sockaddr:flowinfo 2g��sockaddr:scopeid 3g��addrinfo:flags 4g�� addrinfo:fam 5g��addrinfo:socktype 6g��addrinfo:protocol 7g�� addrinfo:addr 8g��addrinfo:canonnameC�5���h`����]���������h���{���]�6s�������g��addr  ��g��filenamef��ice-9/networking.scm    �   ��g��nameg�� gethostbyaddr�CR����h���{���]�6s�������g��name  ��g��filenamef��ice-9/networking.scm    �   ��g��nameg�� gethostbyname�CR����h���z���]�6r�������g��addr  ��g��filenamef��ice-9/networking.scm    �   ��g��nameg�� getnetbyaddr�CR�����h���z���]�6r�������g��name  ��g��filenamef��ice-9/networking.scm    �   ��g��nameg�� getnetbyname�CR�����h���|���]�6t�������g��name  ��g��filenamef��ice-9/networking.scm    �   ��g��nameg��getprotobyname�CR���h���~���]�6v�������g��addr  ��g��filenamef��ice-9/networking.scm    �   ��g��nameg��getprotobynumber�C R �h������]�6�������������g��name  �g��proto  ��g��filenamef��ice-9/networking.scm   #�  ��g��nameg�� getservbyname�C R �h������]�6�������������g��port  �g��proto  ��g��filenamef��ice-9/networking.scm #�  ��g��nameg�� getservbyport�C R �h ������-��1��3��$���66�����������g��stayopen ��g��filenamef��ice-9/networking.scm " #   #   $   $   % �  ��g��nameg�� sethostent�CR�h ������-��1��3��$���66�����������g��stayopen ��g��filenamef��ice-9/networking.scm & '   '   (   (   ) �  ��g��nameg�� setnetent�CR��h ������-��1��3��$���66�����������g��stayopen ��g��filenamef��ice-9/networking.scm * +   +   ,   ,   - �  ��g��nameg�� setprotoent�CR��������h ������-��1��3��$���66�����������g��stayopen ��g��filenamef��ice-9/networking.scm . /   /   0   0   1 �  ��g��nameg�� setservent�CR�h���e���]�6���]�������g��filenamef��ice-9/networking.scm 3  3 �   ��g��nameg�� gethostent�CR��h���d���]�6���\�������g��filenamef��ice-9/networking.scm 4  4 �   ��g��nameg�� getnetent�CR���h���f���]�6���^�������g��filenamef��ice-9/networking.scm 5  5 �   ��g��nameg�� getprotoent�CR �h���e���]�6���]�������g��filenamef��ice-9/networking.scm 6  6 �   ��g��nameg�� getservent�CR ��h���e���]�6���]�������g��filenamef��ice-9/networking.scm 8  8 �   ��g��nameg�� endhostent�CR��h���d���]�6���\�������g��filenamef��ice-9/networking.scm 9  9 �   ��g��nameg�� endnetent�CR���h���f���]�6���^�������g��filenamef��ice-9/networking.scm :  : �   ��g��nameg�� endprotoent�CR�h���e���]�6���]�������g��filenamef��ice-9/networking.scm ;  ; �   ��g��nameg�� endservent�CR������h���y���]� C�q�������g��obj  ��g��filenamef��ice-9/networking.scm =  = �   ��g��nameg�� hostent:name�CR��h���|���]� C�t�������g��obj  ��g��filenamef��ice-9/networking.scm >  > �   ��g��nameg��hostent:aliases�CR�������h���}���]� Cu�������g��obj  ��g��filenamef��ice-9/networking.scm ?  ? �   ��g��nameg��hostent:addrtype�CR������h���{���]� Cs�������g��obj  ��g��filenamef��ice-9/networking.scm @  @ �   ��g��nameg��hostent:length�C Rh���~���]� Cv�������g��obj  ��g��filenamef��ice-9/networking.scm A  A �   ��g��nameg��hostent:addr-list�C!R�����h���x���]� C�p�������g��obj  ��g��filenamef��ice-9/networking.scm C  C �   ��g��nameg�� netent:name�C"R���h���{���]� C�s�������g��obj  ��g��filenamef��ice-9/networking.scm D  D �   ��g��nameg��netent:aliases�C#Rh���|���]� Ct�������g��obj  ��g��filenamef��ice-9/networking.scm E  E �   ��g��nameg��netent:addrtype�C$R�������h���w���]� Co�������g��obj  ��g��filenamef��ice-9/networking.scm F  F �   ��g��nameg�� netent:net�C%R����h���z���]� C�r�������g��obj  ��g��filenamef��ice-9/networking.scm H  H �   ��g��nameg�� protoent:name�C&R�h���}���]� C�u�������g��obj  ��g��filenamef��ice-9/networking.scm I  I �   ��g��nameg��protoent:aliases�C'R������h���{���]� Cs�������g��obj  ��g��filenamef��ice-9/networking.scm J  J �   ��g��nameg��protoent:proto�C(Rh���y���]� C�q�������g��obj  ��g��filenamef��ice-9/networking.scm L  L �   ��g��nameg�� servent:name�C)R��h���|���]� C�t�������g��obj  ��g��filenamef��ice-9/networking.scm M  M �   ��g��nameg��servent:aliases�C*R�������h���y���]� Cq�������g��obj  ��g��filenamef��ice-9/networking.scm N  N �   ��g��nameg�� servent:port�C+R��h���z���]� Cr�������g��obj  ��g��filenamef��ice-9/networking.scm O  O �   ��g��nameg�� servent:proto�C,R�h���y���]� C�q�������g��obj  ��g��filenamef��ice-9/networking.scm Q  Q �   ��g��nameg�� sockaddr:fam�C-R��h���z���]� C�r�������g��obj  ��g��filenamef��ice-9/networking.scm R  R �   ��g��nameg�� sockaddr:path�C.R�h���z���]� C�r�������g��obj  ��g��filenamef��ice-9/networking.scm S  S �   ��g��nameg�� sockaddr:addr�C/R�h���z���]� Cr�������g��obj  ��g��filenamef��ice-9/networking.scm T  T �   ��g��nameg�� sockaddr:port�C0R�h���~���]� Cv�������g��obj  ��g��filenamef��ice-9/networking.scm U  U �   ��g��nameg��sockaddr:flowinfo�C1R�����h���}���]� Cu�������g��obj  ��g��filenamef��ice-9/networking.scm V  V �   ��g��nameg��sockaddr:scopeid�C2R������h���{���]� C�s�������g��obj  ��g��filenamef��ice-9/networking.scm X  X �   ��g��nameg��addrinfo:flags�C3Rh���y���]� C�q�������g��obj  ��g��filenamef��ice-9/networking.scm Y  Y �   ��g��nameg�� addrinfo:fam�C4R��h���~���]� Cv�������g��obj  ��g��filenamef��ice-9/networking.scm Z  Z �   ��g��nameg��addrinfo:socktype�C5R�����h���~���]� Cv�������g��obj  ��g��filenamef��ice-9/networking.scm [  [ �   ��g��nameg��addrinfo:protocol�C6R�����h���z���]� Cr�������g��obj  ��g��filenamef��ice-9/networking.scm \  \ �   ��g��nameg�� addrinfo:addr�C7R�h������]� Cw�������g��obj  ��g��filenamef��ice-9/networking.scm ]  ] !�   ��g��nameg��addrinfo:canonname�C8RC����������g��filenamef��ice-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  \ ���C6��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/eval.go���������������������������������������������������������������������������������������0000644�����������������00000032642�15253700563�0006745 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.05������]�'�4�������h������]� g�� unbound-arg g��set-procedure-property! g��arglist g��_ g��set-procedure-minimum-arity! g�� scm-error g��wrong-number-of-args f��eval f��Wrong number of arguments g��keyword? g��max g��keyword-argument-error f��Invalid keyword g��assq g�� list-set! f��Unrecognized keyword g�� list-tail g��memoized-expression-typecode g��memoized-expression-data g��list-ref g��reverse g�� variable? g��memoize-variable-access! g�� last-pair g��current-module g��the-root-module g�� documentation g�� procedure? g��procedure-property g��name g��define! g��map !g��error "f��what #g��memoize-expression $g��macroexpanded? %g��module-transformer &g��primitive-evalC�5���hx1�����]��     � �hP����-��1��3�"�, $��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 I�g��env 9�g��nreq*  9�g��args  9�g��env  S �g��nopt*  S �g��args  S �g��inits  S �g��aok  � U�g��kw � U�g��kw-base � U�g��imax � ��g��kw � ��g��imax  U�g��i  (�g��env  (�g��env C U�g��args I M�g��kw-pair   �g��v   �g��i   >�g��inits   >�g��tail   6�g��env   %�g��nopt   %�g��args   %�g��inits   %��g��filenamef��ice-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 ���C�������hh����,�3�H"�m"�R $�� (��"��$��$��"��"��$��"�� $�� "�� $��"��8 $��. $��$��  "��"��$��"�� "��$��    "4       " 4   $��"��$��"�� $��"���>��"��G��4    >��"��G��"��    " C$��     (��"��   $�� $�� "��"��  $�� "��  $�� "�� $��  "�� $��  "��4L�   5     "��KL�L�O�  "�������������g��env  a�g��body  a�g��nreq   a�g��rest?   a�g��nopt   a�g��kw   a�g��inits   a�g��alt   a�g��alt-proc   a�g��proc z�g��alt  c�g��nreq  c�g��nopt  c�g��rest?  c�g��spec   �g��nreq*  ��g��rest?*  2 ��g��tail  S ��g��nopt*  c ��g��alt*  v ��g��t  } ��g��body  9�g��spec  6�g��nreq  3�g��rest  0�g��tail  -�g��nopt   *�g��kw   '�g��inits   $�g��alt   !��g��filenamef��ice-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 ��g��nameg��make-general-closure�CO������h���B���]�LLL�6������:�������g��filenamef��ice-9/eval.scm  �  ���C����h���R���]LL�L�6���J�������g��a  ��g��filenamef��ice-9/eval.scm  �  ���C����h���a���]LL�L�6Y�������g��a  �g��b  ��g��filenamef��ice-9/eval.scm  �   ���C�����h���p���]LL�L�6�����h�������g��a  �g��b  �g��c   ��g��filenamef��ice-9/eval.scm  �   ���C������h������]LL�L�6��w�������g��a  �g��b  �g��c   �g��d   ��g��filenamef��ice-9/eval.scm  �   ���C�������h ������]LL�L�6��������������g��a  �g��b  �g��c   �g��d   �g��e   ��g��filenamef��ice-9/eval.scm  �   ���Ch ������]LL�L�6�����������g��a  �g��b  �g��c   �g��d   �g��e   �g��f   ��g��filenamef��ice-9/eval.scm  �   ���C�h ������]LL�L�6��������g��a  �g��b  �g��c   �g��d   �g��e   �g��f   �g��g   ��g��filenamef��ice-9/eval.scm  �   ���C ��������h�����-�1�3� "��O $��LL� (�� "�� 456 (�� 6       "�LL    "� ������g��a ��g��b ��g��c  ��g��d  ��g��e  ��g��f  ��g��g  ��g��h  ��g��more  ��g��new-env \�g��nreq \�g��args \�� g��filenamef��ice-9/eval.scm  � �  ���C ���h���[���]L�L�6������S�������g��x  ��g��filenamef��ice-9/eval.scm    )�  ���C���h���[���]L�L�6������S�������g��x  ��g��filenamef��ice-9/eval.scm    '�  ���C���h0������]�(��LLL6�Y4L��>��ZCZF�������������g��fluids  *�g��vals  *��g��filenamef��ice-9/eval.scm           -       !  $ &  �  * ��g��nameg��lp�C������h���C���]�LLL�6������;�������g��filenamef��ice-9/eval.scm  �  ���C!"�!�����hx�� ��]J4�54�5 &��6 &��4L�5 $��6� $��4L�56 $��4L�54L�56 $��%4L�54L�54L�564L�54L�54L�54L�5"��) (�� 4 5"��' 4L� 5   "  "@ &��_45$��"��L4�$�� 45"��(�� 45�"��$��"��45�$�� "��5C &��94L�5$�� �"<�"0 &��C &��m"��*(�� �"4L�5"(�� 45�"��$��"��45�$�� "��" &�  (��(�� 45�"��$��"��45�$�� "��  $��  L�O�"�� $��  L�O�"�� $��  L�O�"�� $��  L�O�"��m $�� L�O�"��U $�� L�O�"��= $�� L�O�"��% $�� L�O�"�� L� O� "��| (��?4L(�� 45�"��$��"��45�$�� "�� 5"��64L(�� 45�"��$��"��45�$�� "�� ? $��4 >��"��G��"��� C &��N"��4(�� �"4L�>��"��G��"" &��4L�56 &��%4L�544L�5>���6< &��'4L�54L�5@ &��45$��"��4�5C &��a4L�545$��+45$��"��4>��"��G��"���4>��"��G��C &��s4L�545$��"��L4�$�� 45"��(�� 45�"��$��"��45�$�� "��5C &��o4L�54L�5  4>���"��G��V4L�>��X4 >���"��G��CX4 >���"��G��F &��V4L�O�54L�O�5 O�  L�Q�   6 &��I4L�5U���4L�O�>���XCXFG4L�5@ &�� 4L�5B &��/4L�545$��"��4�5C �6���� ������g��exp  t�g��env  t�g��tag   t�g��data   t�g��f  2 +�g��xb  2 +�g��nargs  < +�g��args  < +�g��proc  I +�g��exps � �g��args � �g��env  ^ �g��test   �g��xb   �g�� consequent   �g�� alternate   �g��inits   R�g��body   R�g��inits   �g��new-env   �g��body  ` �g��xb  ` �g�� docstring  j �g��xb  j �g��nreq  t �g��tail t �g��e  y�g��proc  �g��first  + s�g��rest  + s�g��first  3 g�g��rest  3 g�g��n   �g��x   �g��val   �g��producer   �g��consumer   �g��f   �g��xb   �g��args   �g��name  ' �g��x  ' �g��x  4 �g�� var-or-sym   �g��x   �g��env   �g��in   t�g��xb   t�g��exp   t�g��out   t�g��pre  + t�g��post + t�g��fluids   �g��xb   �g��vals   �g��exp   �g��fluids   �g��vals  �g��lp  �g��tag   #�g��xb   #�g��exp   #�g��handler   #�g��args   #�g��x  C l�g�� var-or-spec  C l��Bg��filenamef��ice-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 ��g��nameg��eval�CO��Q�Q�#$%������h0������]L�44�5$���"��4445�5�556�����������g��exp  ,��g��filenamef��ice-9/eval.scm                 ! #  '  )   *   ,  �  , ��g�� documentationf��)Evaluate @var{exp} in the current module.�CO��&RC��������������g�� unbound-arg  1l�g��make-general-closure 0 1i�g��eval  0 1i��g��filenamef��ice-9/eval.scm  �   �  1o � �  1q ���C6�����������������������������������������������������������������������������������������������ice-9/getopt-long.go��������������������������������������������������������������������������������0000644�����������������00000135440�15253700563�0010255 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�4��������hY������]� g��guile � g��define-module* � � g��ice-9 g�� getopt-long � g��filenameS f��ice-9/getopt-long.scm g��importsS g�� common-list  � g��selectS g�� remove-if-not �  � g��srfi g��srfi-9 � � g��match � � g��regex � � g��optargs � � � g��exportsS !g�� option-ref "!� #g��set-current-module $#� %#� &g�� make-fluid 'f��guile (g�� %program-name )g�� program-name *g��format +g��current-error-port ,f��~a:  -g��apply .g��newline /g��exit 0g�� fatal-error 1g�� option-spec 2g��%%make-option-spec-procedure 3g��make-syntax-transformer 43� 53� 6g��%make-option-spec 7g��macro 8g�� $sc-dispatch 98� :8� ;g��_ <g��any =;<<<<<� >g�� syntax-object ?g��lambda @g��m-70fb8ec09b0a817-48c Ag��top B@A� Cg��ribcage Dg��t-70fb8ec09b0a817-487 Eg��t-70fb8ec09b0a817-488 Fg��t-70fb8ec09b0a817-489 Gg��t-70fb8ec09b0a817-48a Hg��t-70fb8ec09b0a817-48b IDEFGH� JBBBBB� Kf��l-70fb8ec09b0a817-491 Lf��l-70fb8ec09b0a817-492 Mf��l-70fb8ec09b0a817-493 Nf��l-70fb8ec09b0a817-494 Of��l-70fb8ec09b0a817-495 PKLMNO� QCIJP� RC� Sg��x TS� UB� Vf��l-70fb8ec09b0a817-48e WV� XCTUW� Yg��shift Zg�� proc-name [g��args \Z[� ]A� ^]]� _f��l-1e8ba8b5a-60 `f��l-1e8ba8b5a-61 a_`� bC\^a� cg��key dg��value eg��name fg��formals gg��body hcdefg� i]]]]]� jf��l-1e8ba8b5a-53 kf��l-1e8ba8b5a-54 lf��l-1e8ba8b5a-55 mf��l-1e8ba8b5a-56 nf��l-1e8ba8b5a-57 ojklmn� pChio� qg��make-procedure-name rq� s]� tf��l-1e8ba8b5a-43 ut� vCrsu� w]� xf��l-1e8ba8b5a-42 yx� zCTwy� {BQRXYRRRRbpvz�  |g��hygiene }|� ~>?{}� ]QRX� �|� �>e� �g�� required? �>� �g��option-spec->single-char �>� �g�� predicate �>� �g�� value-policy �>� �� �g�� make-struct �g��m-70fb8ec09b0a817-485 �A� �g��t-1e8ba8b5a-133 �g��t-1e8ba8b5a-132 �g��t-1e8ba8b5a-131 �� �g��m-1e8ba8b5a-134 �A� �� �f��l-1e8ba8b5a-138 �f��l-1e8ba8b5a-139 �f��l-1e8ba8b5a-13a �� �C� �g�� ctor-args �� �f��l-1e8ba8b5a-120 �� �Cw� �g��ctor �g��field �� �f��l-1e8ba8b5a-11c �f��l-1e8ba8b5a-11d �� �C^� �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 �� �C� �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 �� �C� �f��l-1e8ba8b5a-da �� �CTw� �QRXYRRRRR� �>}� �>1� �> }� �� �~� �g��each-any �;ό �g��syntax-violation �� �� �f��Wrong number of arguments �g�� identifier? �� �� �]RX� �>2� �� �� �f��-source expression failed to match any pattern �g��record-type-vtable �� �� �g�� pwpwpwpwpw �g��default-record-printer �� �� �e� �g��set-struct-vtable-name! �� �� �g��vtable-offset-user �� �� �g��%option-spec?-procedure �g�� option-spec? �;<� �g��m-70fb8ec09b0a817-4a1 �A� �g��t-70fb8ec09b0a817-4a0 �� �� �f��l-70fb8ec09b0a817-4a6 �� �C� �f��l-70fb8ec09b0a817-4a3 �� �CT� �RYRRRRbpvz�  �>?}� �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 A� � 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      � C� g�� copier-id � f��l-1e8ba8b5a-21c � Cw� g�� ctor-name � f��l-1e8ba8b5a-214 � Cw� � f��l-1e8ba8b5a-212 � Cw� g��layout �  f��l-1e8ba8b5a-210 ! � "Cw!� #g�� immutable? $#� %f��l-1e8ba8b5a-20e &%� 'C$w&� (g�� field-count )(� *f��l-1e8ba8b5a-20c +*� ,C)w+� -g�� getter-ids .-� /f��l-1e8ba8b5a-209 0/� 1C.w0� 2g�� field-ids 32� 4f��l-1e8ba8b5a-206 54� 6C3w5� 7g��predicate-name 8g�� field-spec 9#78� :]]]]]]� ;f��l-1e8ba8b5a-1f9 <f��l-1e8ba8b5a-1fa =f��l-1e8ba8b5a-1fb >f��l-1e8ba8b5a-1fc ?f��l-1e8ba8b5a-1fd @f��l-1e8ba8b5a-1fe A;<=>?@� BC9:A� CRYRRRRRRRR"R'R,R1R6B� D>C}� ED� Fg��and G>FC}� Hg��struct? I>HC}� JID� Kg��eq? L>KC}� Mg�� struct-vtable N>MC}� OND� P]R� Q>1P� RLOQ� SGJR� TES� U]R� V>U� Wg��throw-bad-struct XW� YW� Zg��option-spec->name [g��%option-spec->name-procedure \g��free-id ]g�� %%on-error ^g��m-70fb8ec09b0a817-4ad _^A� `_� af��l-70fb8ec09b0a817-4af ba� cCT`b� d_RcYRRRRbpvz�  e>]d}� f\e� gf<� hg��%%type ig��t-1e8ba8b5a-14b jg��t-1e8ba8b5a-14c kg��t-1e8ba8b5a-14d lg��t-1e8ba8b5a-14e mg��t-1e8ba8b5a-14f ng��t-1e8ba8b5a-150 og��t-1e8ba8b5a-151 pijklmno� qg��m-1e8ba8b5a-152 rqA� srrrrrrr� tf��l-1e8ba8b5a-156 uf��l-1e8ba8b5a-157 vf��l-1e8ba8b5a-158 wf��l-1e8ba8b5a-159 xf��l-1e8ba8b5a-15a yf��l-1e8ba8b5a-15b zf��l-1e8ba8b5a-15c {tuvwxyz� |Cps{� }g��getter ~g��index }~� f��l-1e8ba8b5a-149 f��l-1e8ba8b5a-14a � C^� -� ]]]� f��l-1e8ba8b5a-144 f��l-1e8ba8b5a-145 f��l-1e8ba8b5a-146 � C� RcYR|RRRR� >h}� \� ;g<� g��ck g��err g��s � __� f��l-70fb8ec09b0a817-4b2 f��l-70fb8ec09b0a817-4b3 � C� _RcYRRRRbpvz�  >}� g��quote >}� ]Rc� >1� � � g��%%index >}� \� ;g<� f��l-70fb8ec09b0a817-4b7 f��l-70fb8ec09b0a817-4b8 � C� _RcYRRRRbpvz�  >}� >}� Rc� > � � � g��%%copier >}� \� ;g<� f��l-70fb8ec09b0a817-4bc f��l-70fb8ec09b0a817-4bd � C� _RcYRRRRbpvz�  >}� >}� g��%%option-spec-set-fields ]Rc� >� � � g��t-70fb8ec09b0a817-4ac � f��l-70fb8ec09b0a817-4c1 � C`� _RcYRRRRbpvz�  >?}� RcYR|RRRR� >}� � g��if >}� >K}� >M}� � ]Rc� >1� � g�� struct-ref >}� Rc� > � � >W}� >}� >Z� � � � � ]Rc� >[� g��option-spec->required? g��!%option-spec->required?-procedure g��m-70fb8ec09b0a817-4c8 A� � f��l-70fb8ec09b0a817-4ca � CT� RYRRRRbpvz�  >]}� \� <� RYR|RRRR� >h}� \� ;<� � f��l-70fb8ec09b0a817-4cd f��l-70fb8ec09b0a817-4ce � C� RYRRRRbpvz�  >}� >}� ]R� >1� � � >}� \� ;<� f��l-70fb8ec09b0a817-4d2 f��l-70fb8ec09b0a817-4d3 �� C�� RYRRRRbpvz�  >}� >}� R� > � � �  >}�  \ �  ; <�  f��l-70fb8ec09b0a817-4d7  f��l-70fb8ec09b0a817-4d8   � C� RYRRRRbpvz�  >}� >}� ]R� >� � � g��t-70fb8ec09b0a817-4c7 � f��l-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 6g��m-70fb8ec09b0a817-4e3 76A� 87� 9f��l-70fb8ec09b0a817-4e5 :9� ;CT8:� <7R;YRRRRbpvz�  =>]<}� >\=� ?><� @R;YR|RRRR� A>h@}� B\A� C;?B<� D77� Ef��l-70fb8ec09b0a817-4e8 Ff��l-70fb8ec09b0a817-4e9 GEF� HCDG� I7HR;YRRRRbpvz�  J>I}� K>I}� L]HR;� M>1L� NKM� ON� P>@}� Q\P� R;?Q<� Sf��l-70fb8ec09b0a817-4ed Tf��l-70fb8ec09b0a817-4ee UST� VCDU� W7VR;YRRRRbpvz�  X>W}� Y>W}� ZVR;� [> Z� \Y[� ]\� ^>@}� _\^� `;?_<� af��l-70fb8ec09b0a817-4f2 bf��l-70fb8ec09b0a817-4f3 cab� dCDc� e7dR;YRRRRbpvz�  f>e}� g>e}� h]dR;� i>h� jgi� kj� lg��t-70fb8ec09b0a817-4e2 ml� nf��l-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� g��option-spec->predicate g��!%option-spec->predicate-procedure g��m-70fb8ec09b0a817-4fe A� � f��l-70fb8ec09b0a817-500 � CT� RYRRRRbpvz�  >]}� \� <� RYR|RRRR� >h}� \� ;<� � f��l-70fb8ec09b0a817-503 f��l-70fb8ec09b0a817-504 � C� RYRRRRbpvz�  >}� >}� ]R� >1� � � >}� \� ;<� f��l-70fb8ec09b0a817-508 f��l-70fb8ec09b0a817-509 � C� RYRRRRbpvz�  >}� >}� R� > � � � >}� \� ;<� f��l-70fb8ec09b0a817-50d f��l-70fb8ec09b0a817-50e � C� RYRRRRbpvz�  >}� >}� ]R� >� � � g��t-70fb8ec09b0a817-4fd � f��l-70fb8ec09b0a817-512 � C� RYRRRRbpvz�  >?}� RYR|RRRR� >}� � >}� >K}� >M}� � ]R� >1� � >}� R� > � � >W}� >}� >� � � � � ]R� >� g��option-spec->value-policy g��$%option-spec->value-policy-procedure g��m-70fb8ec09b0a817-519 A� � f��l-70fb8ec09b0a817-51b � CT� RYRRRRbpvz�  >]}� \� <� RYR|RRRR� >h}� \� ;<� � f��l-70fb8ec09b0a817-51e f��l-70fb8ec09b0a817-51f � C� RYRRRRbpvz�  >}� >}� ]R� >1� � � >}� \� ;<� f��l-70fb8ec09b0a817-523 �f��l-70fb8ec09b0a817-524 �� C� RYRRRRbpvz�  >}� >}� R� > � �  �  >}�  \ �  ; <�  f��l-70fb8ec09b0a817-528 f��l-70fb8ec09b0a817-529  � C� RYRRRRbpvz�  >}� >}� ]R� >� � � g��t-70fb8ec09b0a817-518 � f��l-70fb8ec09b0a817-52d � C� RYRRRRbpvz�  >?}� RYR|RRRR�  >}� ! � ">}� #>K}� $>M}� %$ � &]R� '>1&� (#%'� )>}� *R� +> *� ,) +� ->W}� .>}� />&� 0./� 1- 0� 2"(,1� 3!2� 4]R� 5>4� 6g��each 7<<� 867� 9<8 :<9 ;<: <g�� %%set-fields =g��dummy >g��check? ?g��expr @=>}?� Ag��m-70fb8ec09b0a817-534 BAA� CB� Df��l-70fb8ec09b0a817-539 Ef��l-70fb8ec09b0a817-53a Ff��l-70fb8ec09b0a817-53b Gf��l-70fb8ec09b0a817-53c Hf��l-70fb8ec09b0a817-53d IDEFGH� JC@CI� KB� Lf��l-70fb8ec09b0a817-536 ML� NCTKM� Og��t-1e8ba8b5a-16a Pg��t-1e8ba8b5a-16c Qg��t-1e8ba8b5a-16b ROPQ� Sg��m-1e8ba8b5a-16d TSA� UTTT� Vf��l-1e8ba8b5a-171 Wf��l-1e8ba8b5a-172 Xf��l-1e8ba8b5a-173 YVWX� ZCRUY� [f��l-1e8ba8b5a-167 \f��l-1e8ba8b5a-168 ]f��l-1e8ba8b5a-169 ^[\]� _C^� `JRNYRZRRR_�  a><`}� b]JRN� c>1b� d>Zb� e>b� f>b� g>b� h>b� idefgh� jg��map kj� lj� mg��list ng��set-option-spec-name! og�� %set-option-spec-name!-procedure p;<<� qg��m-70fb8ec09b0a817-548 rqA� sg��t-70fb8ec09b0a817-546 tg��t-70fb8ec09b0a817-547 ust� vrr� wf��l-70fb8ec09b0a817-54d xf��l-70fb8ec09b0a817-54e ywx� zCuvy� {r� |f��l-70fb8ec09b0a817-54a }|� ~CT{}� rzR~YRRRRbpvz�  >?}� g��t-1e8ba8b5a-18c g��t-1e8ba8b5a-18d � g��m-1e8ba8b5a-18e A� � f��l-1e8ba8b5a-192 f��l-1e8ba8b5a-193 � C� g��setter e}� f��l-1e8ba8b5a-186 f��l-1e8ba8b5a-187 f��l-1e8ba8b5a-188 � C� 8~� f��l-1e8ba8b5a-17d f��l-1e8ba8b5a-17e � C^� g�� field-specs � f��l-1e8ba8b5a-179 f��l-1e8ba8b5a-17a � C^� zR~YRRR� >}� g��val >}� � >}� >K}� >M}� � ]zR~� >1� � g�� struct-set! >}� zR~� > � � >W}� >}� >n� � � � � ]R~� >o� g��set-option-spec-required?! g��%%set-option-spec-required?!-procedure g��m-70fb8ec09b0a817-558 A� g��t-70fb8ec09b0a817-556 g��t-70fb8ec09b0a817-557 � � f��l-70fb8ec09b0a817-55d f��l-70fb8ec09b0a817-55e � C� � f��l-70fb8ec09b0a817-55a � CT� RYRRRRbpvz�  >?}� RYRRR� >}� >}� � >}� >K}� >M}� � ]R� >1� � >}� R� > � � >W}� >}� >� � � � � ]R� >� g��set-option-spec-single-char! g��'%set-option-spec-single-char!-procedure g��m-70fb8ec09b0a817-568 A� g��t-70fb8ec09b0a817-566 g��t-70fb8ec09b0a817-567 � � f��l-70fb8ec09b0a817-56d f��l-70fb8ec09b0a817-56e � C� � f��l-70fb8ec09b0a817-56a � CT� RYRRRRbpvz�  >?}� RYRRR� >}� >}� � >}� >K}� >M}� � ]R� >1� � >}� R� �> � �� >W}� >}� >� � � � �  ]R�  > �  g��set-option-spec-predicate!  g��%%set-option-spec-predicate!-procedure  g��m-70fb8ec09b0a817-578  A� g��t-70fb8ec09b0a817-576 g��t-70fb8ec09b0a817-577 � � f��l-70fb8ec09b0a817-57d f��l-70fb8ec09b0a817-57e � C� � f��l-70fb8ec09b0a817-57a � CT� RYRRRRbpvz�  >?}� RYRRR� >}� >}�  � !>}� ">K}� #>M}� $#� %]R� &>1%� '"$&� (>}� )R� *> )� +(*� ,>W}� ->}� .> %� /-.� 0,/� 1!'+0� 2 1� 3]R� 4> 3� 5g��set-option-spec-value-policy! 6g��(%set-option-spec-value-policy!-procedure 7g��m-70fb8ec09b0a817-588 87A� 9g��t-70fb8ec09b0a817-586 :g��t-70fb8ec09b0a817-587 ;9:� <88� =f��l-70fb8ec09b0a817-58d >f��l-70fb8ec09b0a817-58e ?=>� @C;<?� A8� Bf��l-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]� _g��make-option-spec `g��symbol->string ag��for-each bg��error cf��$invalid getopt-long option property: db� eb� ff��no matching pattern gf��option predicate failed: --~a hg�� single-char ig��char? jf��#`single-char' value must be a char! kg��parse-option-spec lg��reverse mg��string=? nf��-- og��split-arg-list pg�� make-regexp qf��^-([a-zA-Z]+)(.*) rg�� short-opt-rx sf�� ^--([^=]+)$ tg��long-opt-no-value-rx uf��^--([^=]+)=(.*) vg��long-opt-with-value-rx wg�� regexp-exec xg��looks-like-an-option yg�� make-string zg��optional {f��,option must be specified with argument: --~a |g��match:substring }g�� assoc-ref ~f��no such option: -~a g��append g�� string-append f��- g�� string->list f��� g��length f��no such option: --~a f��&option does not support argument: --~a g��process-options g��stop-at-first-non-optionS   � g��assq-ref f��option must be specified: --~a g��string->symbolC�5��hP[��^��]4    "5�4%�>��"��G���4&i'5(R(��h���a���]�[C��Y�������g��filenamef��ice-9/getopt-long.scm � �   ��g��nameg�� program-name�C)R*+,)-./��h`������-�1�3�445�45�>��"��G��445��>��"��G��445�>��"��G�� 6�������������g��fmt Z�g��args Z��g��filenamef��ice-9/getopt-long.scm � �  �  �   � &  �  & �  + �  8 �  A �  D � M �  Z � � Z ��g��nameg�� fatal-error�C0R1������h������]��C�������������g��name  �g�� required?  �g��option-spec->single-char   �g�� predicate   �g�� value-policy   ��g��filenamef��ice-9/getopt-long.scm � �   ��g��nameg��%%make-option-spec-procedure�C2R4567:=�h������]��C�������������g��t-70fb8ec09b0a817-487  �g��t-70fb8ec09b0a817-488  �g��t-70fb8ec09b0a817-489   �g��t-70fb8ec09b0a817-48a   �g��t-70fb8ec09b0a817-48b   ��   ���C6���h���Y���]L�6����Q�������g��a  ��g��filenamef��ice-9/getopt-long.scm  � �  ���C;�������h���I���]�L�6A�������g��filenamef��ice-9/getopt-long.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��ice-9/getopt-long.scm � �  n ���C56R1��4�1>��"��G��� 2i��1R1���h���~���]�$���CC������v�������g��obj  ��g��filenamef��ice-9/getopt-long.scm � �   ��g��nameg��%option-spec?-procedure�CR457:T����h���=���]��C������5�������g��t-70fb8ec09b0a817-4a0  ��  ���C�������h���Y���]L�6����Q�������g��a  ��g��filenamef��ice-9/getopt-long.scm  � �  ���C;�������h���I���]�L�6A�������g��filenamef��ice-9/getopt-long.scm  � �   ���CV��������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��ice-9/getopt-long.scm � �  n ���C5R1YZ�����h������]�&��� C�6y�������g��s  ��g��filenamef��ice-9/getopt-long.scm � �   ��g��nameg��%option-spec->name-procedure�C[R45Z7:���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-70fb8ec09b0a817-4ac  ��  ���CZ������h���Y���]L�6����Q�������g��a  ��g��filenamef��ice-9/getopt-long.scm  � �  ���C;�������h���I���]�L�6A�������g��filenamef��ice-9/getopt-long.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��ice-9/getopt-long.scm � �  � ���C5ZR1Y��������h������]�&��� C�6~�������g��s  ��g��filenamef��ice-9/getopt-long.scm � �   ��g��nameg��!%option-spec->required?-procedure�CR457:������h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C �h���:���]C�����2�������g��err  �g��s  ��  ���C2�����h���=���]��C������5�������g��t-70fb8ec09b0a817-4c7  ��  ���C������h���Y���]L�6����Q�������g��a  ��g��filenamef��ice-9/getopt-long.scm  � �  ���C;�������h���I���]�L�6A�������g��filenamef��ice-9/getopt-long.scm  � �   ���C4��������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��ice-9/getopt-long.scm � �  � ���C5R1Y�h ������]�&��� C�6��������������g��s  ��g��filenamef��ice-9/getopt-long.scm � �   ��g��nameg��#%option-spec->single-char-procedure�C5R457:CJO�����h���:���]C�����2�������g��err  �g��s  ��  ���CRX]�h���:���]C�����2�������g��err  �g��s  ��  ���C`fk�h���:���]C�����2�������g��err  �g��s  ��  ���C�����h���=���]��C������5�������g��t-70fb8ec09b0a817-4e2  ��  ���C�������h���Y���]L�6����Q�������g��a  ��g��filenamef��ice-9/getopt-long.scm  � �  ���C;�������h���I���]�L�6A�������g��filenamef��ice-9/getopt-long.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��ice-9/getopt-long.scm � �  � ���C5R1Y�h ������]�&��� C�6�������~�������g��s  ��g��filenamef��ice-9/getopt-long.scm � �   ��g��nameg��!%option-spec->predicate-procedure�CR457:������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-70fb8ec09b0a817-4fd  ��  ���C������h���Y���]L�6����Q�������g��a  ��g��filenamef��ice-9/getopt-long.scm  � �  ���C;�������h���I���]�L�6A�������g��filenamef��ice-9/getopt-long.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��ice-9/getopt-long.scm � �  � ���C5R1Y��������h ������]�&��� C�6��������������g��s  ��g��filenamef��ice-9/getopt-long.scm � �   ��g��nameg��$%option-spec->value-policy-procedure�CR457:���h���:���]C�����2�������g��err  �g��s  ��  ���C �h���:���]C�����2�������g��err  �g��s  ��  ���C �h���:���]C�����2�������g��err  �g��s  ��  ���C3�����h���=���]��C������5�������g��t-70fb8ec09b0a817-518  ��  ���C������h���Y���]L�6����Q�������g��a  ��g��filenamef��ice-9/getopt-long.scm  � �  ���C;�������h���I���]�L�6A�������g��filenamef��ice-9/getopt-long.scm  � �   ���C5��������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��ice-9/getopt-long.scm � �  � ���C5R457:;acilm���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��ice-9/getopt-long.scm � �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5R1Yn��h ������]�&��� C�6�������������g��s  �g��val  ��g��filenamef��ice-9/getopt-long.scm � �   ��g��nameg�� %set-option-spec-name!-procedure�CoR45n7:p�h���`���]��C����X�������g��t-70fb8ec09b0a817-546  �g��t-70fb8ec09b0a817-547  ��  ���Cn���h���Y���]L�6����Q�������g��a  ��g��filenamef��ice-9/getopt-long.scm  � �  ���C;�������h���I���]�L�6A�������g��filenamef��ice-9/getopt-long.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��ice-9/getopt-long.scm � �  n ���C5nR1Y����h ������]�&��� C�6�������������g��s  �g��val  ��g��filenamef��ice-9/getopt-long.scm � �   ��g��nameg��%%set-option-spec-required?!-procedure�CR457:p����h���`���]��C����X�������g��t-70fb8ec09b0a817-556  �g��t-70fb8ec09b0a817-557  ��  ���C���h���Y���]L�6����Q�������g��a  ��g��filenamef��ice-9/getopt-long.scm  � �  ���C;�������h���I���]�L�6A�������g��filenamef��ice-9/getopt-long.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��ice-9/getopt-long.scm � �  n ���C5R1Y����h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��ice-9/getopt-long.scm � �   ��g��nameg��'%set-option-spec-single-char!-procedure�CR457:p��h���`���]��C����X�������g��t-70fb8ec09b0a817-566  �g��t-70fb8ec09b0a817-567  ��  ���C���h���Y���]L�6����Q�������g��a  ��g��filenamef��ice-9/getopt-long.scm  � �  ���C;�������h���I���]�L�6A�������g��filenamef��ice-9/getopt-long.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��ice-9/getopt-long.scm � �  n ���C5R1Y ����h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��ice-9/getopt-long.scm � �   ��g��nameg��%%set-option-spec-predicate!-procedure�C R45 7:p2����h���`���]��C����X�������g��t-70fb8ec09b0a817-576  �g��t-70fb8ec09b0a817-577  ��  ���C ���h���Y���]L�6����Q�������g��a  ��g��filenamef��ice-9/getopt-long.scm  � �  ���C;�������h���I���]�L�6A�������g��filenamef��ice-9/getopt-long.scm  � �   ���C4��������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��ice-9/getopt-long.scm � �  n ���C5 R1Y5����h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��ice-9/getopt-long.scm � �   ��g��nameg��(%set-option-spec-value-policy!-procedure�C6R4557:p\�h���`���]��C����X�������g��t-70fb8ec09b0a817-586  �g��t-70fb8ec09b0a817-587  ��  ���C5���h���Y���]L�6����Q�������g��a  ��g��filenamef��ice-9/getopt-long.scm  � �  ���C;�������h���I���]�L�6A�������g��filenamef��ice-9/getopt-long.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��ice-9/getopt-long.scm � �  n ���C55R1��h������]��C��y�������g��name  ��g��filenamef��ice-9/getopt-long.scm � � �   ��g��nameg��make-option-spec�C_R_`abcef10g�����h(������] $��4L�5$��C�6C�����������g��name  $�g��val  $�g��t   "��g��filenamef��ice-9/getopt-long.scm �   �  �   �   � ) " �  # � �  $ ���CY hijd5�������h����]"�"�*"��"��R�$��>��$�� (�� 64�56�4�56�4�56��$��O��&��9$��.(��#L�&�� L� O�C L� 6"`"\"X"T�$��k�� &��U$��J(��?4 5$��"��4 >��"��G��L�&��L� C L�6""""�$��J��&��4$��)(��L�&��L� C L�6""""�$��I��&��3$��((��L�&��L� C L�6"5"1"-")���������g��expr  �g��w  W�g��x   W�g��w q ��g��x  q ��g��w  � ��g��w � 0�g��x  � 0�g��w  � $�g��w A �g��x  A �g��w  ^ y�g��w  �g��x   �g��w   ��g��filenamef��ice-9/getopt-long.scm �  9 �  = �  > �  � �  � �  � �  � �  � �  � �   �   �  ( �  c �  } �   �   � �   ���C�������h0������] 44�554O��>��"��G��C���������g��desc  .�g��spec  .��g��filenamef��ice-9/getopt-long.scm �  �   � � 0 �  �   �   �   �  # � �  . ��g��nameg��parse-option-spec�CkRlmn����hP���J��]"��<(�� 45C45$�� 45C"�"���B������g�� argument-list  M�g��yes  B�g��no   B��g��filenamef��ice-9/getopt-long.scm �  �  �  � *  � $  �  �   �  ! � % �  & � * / � 8 0 � $ 4 �  7 �  : � * B �  B �  C �  M � �  M ��g��nameg��split-arg-list�CoR4piq5rR4pis5tR4piu5vRwrvt�����h8������] 4�5$��C4�5$��C�6�������������g��string  2�g��t 2�g��t  2��g��filenamef��ice-9/getopt-long.scm �  �  �   �   �  2 � �  2 ��g��nameg��looks-like-an-option�CxRj1YZ�����h ���n���]�&��� "�� 4�5�Cf�������g��spec  ��g��filenamef��ice-9/getopt-long.scm �   �   � �  ���Cy1Y����h(������]4 �&�� � "�� 4�55�C�x�������g��spec  '��g��filenamef��ice-9/getopt-long.scm �   �  � , # �  & � �  ' ���C5z1Yx0{Zlwr|}~y���h���t���]4 �56l�������g��c  ��g��filenamef��ice-9/getopt-long.scm  )   :   >   +�   ���Cmtvef�!h(��<��]k4�544�55"�"� &��  "�� 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� "��4������g��specs  &�g�� argument-ls  &�g��stop-at-first-non-option   &�g��idx   &�g��sc-idx   &�g�� unclumped  # �g�� argument-ls  # �g��found  # �g��etc  # �g��spec ' (�g��ls ' (�g��w F �g��x F �g��t S �g��c k �g��t v �g��spec  �g��extra  �g��unclumped-opts  �g��t  �g��opt  G�g��t   9�g��spec  9 G�g��t P �g��opt  ` �g��t  k �g��spec   ��g��filenamef��ice-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 & � �|  & ��g��nameg��process-options�CR(jkoa1YZ0� �����h�����]�&��� "�� 4�54L��5�&��� "�� 4�5$��"$��"��4>��"��G��"����&�� � "�� 4�5$��6C��������g��spec  ��g��name % ��g��val  % ��g��pred  � ���g��filenamef��ice-9/getopt-long.scm ]   ^   _  % ^  , `  G `  M a  R b  V b * ] b  l d � d  � e  � e �  � ���C1YZ���h0������] �4�&�� "�� 455C���������g��spec+val  .�g��s )��g��filenamef��ice-9/getopt-long.scm g   i  i ? i , + i  , h �  . ���C� �h�����-�/���0���3� #���Y454�54545 4 O�>��"��G��4 >��"��G�� ZCZF������g��program-arguments  ��g��option-desc-list  ��g��stop-at-first-non-option   ��g��specifications  , ��g��pair  6 ��g��split-ls  ; ��g�� non-split-ls  @ ��g�� found/etc  M ��g��found  R ��g��rest-ls ^ ��� g��filenamef��ice-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 �  �  g��stop-at-first-non-optionS ���g��nameg�� 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: <option-spec> :: (<name> . <attribute-ls>) <attribute-ls> :: (<attribute> . <attribute-ls>) | () <attribute> :: <required-attribute> | <arg-required-attribute> | <single-char-attribute> | <predicate-attribute> | <value-attribute> <required-attribute> :: (required? <boolean>) <single-char-attribute> :: (single-char <char>) <value-attribute> :: (value #t) (value #f) (value optional) <predicate-attribute> :: (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.�CR����h ���C��] 4�5$��CC�������;������g��options  �g��key  �g��default   �g��t  ��g��filenamef��ice-9/getopt-long.scm m  p  p �   ��g��nameg�� option-refg�� documentationf��qReturn value in alist OPTIONS using KEY, a symbol; or DEFAULT if not found. The value is either a string or `#t'.�C!RCV������g��m  ,�g��rtd | ��g��filenamef��ice-9/getopt-long.scm  � - �  3 � " 5 �  8 � � � $ � E � 7 � = � ? � ? �  ? � , ? �  ? � ? �  ? � , ? �  ? � ? �  ? � , ? �  ? � @ � M � Y 4 [N m �  [P ���C6���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/debug.go��������������������������������������������������������������������������������������0000644�����������������00000001022�15253700563�0007070 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]��4������h/������]� g��guile � g��define-module* � � g��ice-9 g��debug � g��filenameS f��ice-9/debug.scm g��set-current-module  �  � g��issue-deprecation-warning f��?(ice-9 debug) is deprecated. Use (system vm trace) for tracing.C�5����h0���`���]4  5�4 �>��"��G���i6����X�������g��m $��g��filenamef��ice-9/debug.scm   *  ,  �  , ���C6���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/weak-vector.go��������������������������������������������������������������������������������0000644�����������������00000001541�15253700563�0010237 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0I������]��4�hx������]� g��guile � g��define-module* � � g��ice-9 g�� weak-vector � g��filenameS f��ice-9/weak-vector.scm g��exportsS g��make-weak-vector g��list->weak-vector g�� weak-vector? g��weak-vector-length g��weak-vector-ref g��weak-vector-set! g��make-weak-key-alist-vector g��make-weak-value-alist-vector g��make-doubly-weak-alist-vector g��weak-key-alist-vector? g��weak-value-alist-vector? g��doubly-weak-alist-vector?   �  g��set-current-module � � g��%init-weaks-builtinsC�5���h0���_���]4   5�4�>��"��G���i6���W�������g��m  (��g��filenamef��ice-9/weak-vector.scm   .  �  . ���C6����������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/mapping.go������������������������������������������������������������������������������������0000644�����������������00000017603�15253700563�0007451 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0k������]�V�4��������h������]� g��guile � g��define-module* � � g��ice-9 g��mapping � g��filenameS f��ice-9/mapping.scm g��importsS g��poe  �  � � g��exportsS g��mapping-hooks-type g��make-mapping-hooks g��mapping-hooks? g��mapping-hooks-get-handle g��mapping-hooks-create-handle g��mapping-hooks-remove g�� mapping-type g�� make-mapping g��mapping? g�� mapping-hooks g�� mapping-data g��set-mapping-hooks! g��set-mapping-data! g��mapping-get-handle g��mapping-create-handle! g��mapping-remove! !g�� mapping-ref "g�� mapping-set! #g��hash-table-mapping-hooks $g��make-hash-table-mapping %g��hash-table-mapping & !"#$%� 'g��set-current-module ('� )'� *g��issue-deprecation-warning +f��H(ice-9 mapping) is deprecated. Use srfi-69 or rnrs hash tables instead. ,g��make-record-type -g�� get-handle .g�� create-handle /g��remove 0-./� 1g�� perfect-funcq 2g��record-constructor 3g��record-predicate 4g��record-accessor 5g��hooks 6g��data 756� 8g��record-modifier 9g��hashq :g��assq ;g��hashq-get-handle <g��hashq-create-handle! =g�� hashq-remove! >g��hashv ?g��assv @g��hashv-get-handle Ag��hashv-create-handle! Bg�� hashv-remove! Cg��hash Dg��assoc Eg��hash-get-handle Fg��hash-create-handle! Gg�� hash-remove! Hg��hashx-get-handle Ig��hashx-create-handle! Jg�� hashx-remove! Kg�� hash-procS LK  Mg�� assoc-procS NM  Og��table-constructorS PO  QLNP� Rg��assq-ref Sg��error Tf��6Hash-procedure specified with no known assoc function. Ug�� make-vectorC�5�������h��I��]4   &5�4)�>��"��G���4*i+>��"��G��4,i05R41i 42ii55R43ii5R44ii-5R44ii.5R44ii/5R4,i75R42ii5R43ii5R44ii55R44ii65R48ii55R48ii65R���h������]44�55�6�����������g��map  �g��key  ��g��filenamef��ice-9/mapping.scm 5  6   6   6   6 �   ��g��nameg��mapping-get-handle�CR��������h������]44�55�6���������g��map  �g��key  �g��init   ��g��filenamef��ice-9/mapping.scm 7  8   8  8   8 �   ��g��nameg��mapping-create-handle!�CR��h������]44�55�6�����������g��map  �g��key  ��g��filenamef��ice-9/mapping.scm 9  :   :   :   : �   ��g��nameg��mapping-remove!�C R�����h0������-�.�,�3�#��4�5$��CC����������g��map -�g��key -�g��dflt  -�g��t   -��g��filenamef��ice-9/mapping.scm <  >   = � -  ��g��nameg�� mapping-ref�C!R�������h������]4�5C��������������g��map  �g��key  �g��val   ��g��filenamef��ice-9/mapping.scm A  B  B �   ��g��nameg�� mapping-set!�C"R41i 9:;�������h���y���-�1�3�L�4�5@��q�������g��1st �g��rest ��g��filenamef��ice-9/mapping.scm G  G >  G 2�  ���C<�������h���y���-�1�3�L�4�5@��q�������g��1st �g��rest ��g��filenamef��ice-9/mapping.scm G  G >  G 2�  ���C=�������h���y���-�1�3�L�4�5@��q�������g��1st �g��rest ��g��filenamef��ice-9/mapping.scm G  G >  G 2�  ���C>?@���h���y���-�1�3�L�4�5@��q�������g��1st �g��rest ��g��filenamef��ice-9/mapping.scm G  G >  G 2�  ���CA�������h���y���-�1�3�L�4�5@��q�������g��1st �g��rest ��g��filenamef��ice-9/mapping.scm G  G >  G 2�  ���CB�������h���y���-�1�3�L�4�5@��q�������g��1st �g��rest ��g��filenamef��ice-9/mapping.scm G  G >  G 2�  ���CCDE���h���y���-�1�3�L�4�5@��q�������g��1st �g��rest ��g��filenamef��ice-9/mapping.scm G  G >  G 2�  ���CF�������h���y���-�1�3�L�4�5@��q�������g��1st �g��rest ��g��filenamef��ice-9/mapping.scm G  G >  G 2�  ���CG�������h���y���-�1�3�L�4�5@��q�������g��1st �g��rest ��g��filenamef��ice-9/mapping.scm G  G >  G 2�  ���CH��������h���q���]LL��6��i�������g��table  �g��key  ��g��filenamef��ice-9/mapping.scm [ .  \ 0�   ���C��h ���y���-�1�3�L�LO�4�5@���q�������g��1st �g��rest ��g��filenamef��ice-9/mapping.scm G   G >  G 2�  ���CI��������h������]LL��6{�������g��table  �g��key  �g��init   ��g��filenamef��ice-9/mapping.scm ^ .  _ 0�   ���C��������h ���y���-�1�3�L�LO�4�5@���q�������g��1st �g��rest ��g��filenamef��ice-9/mapping.scm G   G >  G 2�  ���CJ��������h���q���]LL��6��i�������g��table  �g��key  ��g��filenamef��ice-9/mapping.scm a .  b 0�   ���C��h ���y���-�1�3�L�LO�4�5@���q�������g��1st �g��rest ��g��filenamef��ice-9/mapping.scm G   G >  G 2�  ���C����h�����]���$��.O�O� O�6  �$��.  O�O�O�6�$��.O�O�O�6�O��O��O�6��������g�� hash-proc  ��g�� assoc-proc  ��g��procs  ��g��proc   )�g��proc  + 7�g��proc  9 E�g��proc  Y e�g��proc  g s�g��proc  u ��g��proc  � ��g��proc  � ��g��proc  � ��� g��filenamef��ice-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������]45�6��������������g��table  �g�� hash-proc  �g�� assoc-proc   ��g��filenamef��ice-9/mapping.scm d  e   e �   ��g��nameg��make-hash-table-mapping�C$RQCR9:>?DS%TU������h���f���]�6�������^�������g��len  ��g��filenamef��ice-9/mapping.scm r   r = r ,�  ���C$�����h���b��-��/����0���3��#�� G�#��#��74�5$��"�� 4   5#��  4�56���Z������g��size  }�g�� hash-proc  }�g�� assoc-proc   }�g��table-constructor   }�g��t  F b��g��filenamef��ice-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 g��table-constructorS ���g��nameg��hash-table-mapping�C%RC�A������g��m  ,��g��filenamef��ice-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 �>   ���C6������������������������������������������������������������������������������������������������������������������������������ice-9/vlist.go��������������������������������������������������������������������������������������0000644�����������������00000237116�15253700563�0007162 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.06>�����]�4����hz������]� g��guile � g��define-module* � � g��ice-9 g��vlist � g��filenameS f��ice-9/vlist.scm g��importsS g��srfi g��srfi-1   � � g��srfi-9  � � g��gnu  � � g��srfi-26  � � g��format � � � g��exportsS g��vlist? 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 *g��vlist-fold-right +g�� vlist-map ,g�� vlist-unfold -g��vlist-unfold-right .g�� vlist-append /g�� vlist-reverse 0g�� vlist-filter 1g�� vlist-delete 2g�� vlist->list 3g��vlist-for-each 4g��block-growth-factor 5g��vhash? 6g�� vhash-cons 7g�� vhash-consq 8g�� vhash-consv 9g�� vhash-assoc :g�� vhash-assq ;g�� vhash-assv <g�� vhash-delete =g�� vhash-delq >g�� vhash-delv ?g�� vhash-fold @g��vhash-fold-right Ag�� vhash-fold* Bg�� vhash-foldq* Cg�� vhash-foldv* Dg�� alist->vhash E !"#$%&'()*+,-./0123456789:;<=>?@ABCD�' Fg��set-current-module GF� HF� Ig�� make-fluid Jg�� make-vector Kg��% make-block-procedure Lg��make-syntax-transformer ML� NL� Og�� make-block Pg��macro Qg�� $sc-dispatch RQ� SQ� Tg��_ Ug��any VTUUUU� Wg�� syntax-object Xg��syntax-parameterize Yg��m-198d9e0d-123b Zg��top [YZ� \g��ribcage ]g��t-198d9e0d-1237 ^g��t-198d9e0d-1238 _g��t-198d9e0d-1239 `g��t-198d9e0d-123a a]^_`� b[[[[� cf��l-198d9e0d-1240 df��l-198d9e0d-1241 ef��l-198d9e0d-1242 ff��l-198d9e0d-1243 gcdef� h\abg� i\� jg��x kj� l[� mf��l-198d9e0d-123d nm� o\kln� pg��shift qg�� proc-name rg��args sqr� tZ� utt� vf�� l-bde397a-8e8 wf�� l-bde397a-8e9 xvw� y\sux� zg��name {g��formals |g��body }z{|� ~ttt� f�� l-bde397a-8df �f�� l-bde397a-8e0 �f�� l-bde397a-8e1 �� �\}~� �g��make-procedure-name �g��prefix �� �tt� �f�� l-bde397a-8d3 �f�� l-bde397a-8d1 �� �\� �t� �f�� l-bde397a-8d0 �� �\k� �[hiopiiiiy�  �g��hygiene �� �WX� �thio� �� �WO� �g��identifier-syntax �W� �WK� �� �� �� �g��lambda �W� �g��base �W� �g��offset �W� �g��size �W� �g�� hash-tab? �W� �� �g��if �W� �g��vector �W� �WJ� �g��* �W� �W � �� �W� �� �W � �� �� �� �� �� �� �g��each-any �T �g��syntax-violation �� �� �f��Wrong number of arguments �g�� identifier? �� �� �tio� �WK� �f��-source expression failed to match any pattern �g��define-block-accessor �UUU� �g��define-inlinable �g��dummy �g��index �z� �g��m-198d9e0d-1262 �Z� �tt� �f��l-198d9e0d-1267 �f��l-198d9e0d-1268 �f��l-198d9e0d-1269 �� �\� �� �f��l-198d9e0d-1264 �� �\k� �ti� �W� �g��block �W� �� �g�� vector-ref �W� �g��% block-content-procedure �g�� block-content �TU� �g��m-198d9e0d-126f �Z� �g��t-198d9e0d-126e �� �� �f��l-198d9e0d-1274 �� �\� �f��l-198d9e0d-1271 �� �\k� �ipiiiiy�  �WX� �ti� �W� �W� �W� �� �� �� �W� �g��m-198d9e0d-126d �Z� �ipi� �W� �� �W� �W � �� �� �� ti� W� g��% block-base-procedure g�� block-base g��m-198d9e0d-128b Z� g��t-198d9e0d-128a �  �  f��l-198d9e0d-1290   �  \  �  f��l-198d9e0d-128d  � \k �  ipiiiiy�  WX� t i� W� W� W� � � � W� g��m-198d9e0d-1289 Z�  ipi� W� � W�  W � ! � "!� #"� $ti� %W$� &g��% block-offset-procedure 'g�� block-offset (g��m-198d9e0d-12a7 )(Z� *g��t-198d9e0d-12a6 +*� ,)� -f��l-198d9e0d-12ac .-� /\+,.� 0f��l-198d9e0d-12a9 10� 2\k,1� 3)/i2piiiiy�  4WX3� 5t/i2� 6W'5� 7W3� 8W&5� 978� :69� ;:� <W3� =g��m-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 Kg��m-198d9e0d-12c3 LKZ� Mg��t-198d9e0d-12c2 NM� OL� Pf��l-198d9e0d-12c8 QP� R\NOQ� Sf��l-198d9e0d-12c5 TS� U\kOT� VLRiUpiiiiy�  WWXV� XtRiU� YWJX� ZWV� [WIX� \Z[� ]Y\� ^]� _WV� `g��m-198d9e0d-12c1 a`Z� baRiUpi� cWb� dc� eWb� fW X� gecf� h_dg� iW^h� jtiU� kWIj� lg��% block-next-free-procedure mg��block-next-free ng��m-198d9e0d-12df onZ� pg��t-198d9e0d-12de qp� ro� sf��l-198d9e0d-12e4 ts� u\qrt� vf��l-198d9e0d-12e1 wv� x\krw� youixpiiiiy�  zWXy� {tuix� |Wm{� }Wy� ~Wl{� }~� |� � Wy� g��m-198d9e0d-12dd Z� uixpi� W� � W� W {� � � z� tix� Wl� g�� vector-length g��% block-hash-table?-procedure g��block-hash-table? g��m-198d9e0d-12fa Z� g��t-198d9e0d-12f9 � � f��l-198d9e0d-12ff � \� f��l-198d9e0d-12fc � \k� ipiiiiy�  WX� ti� W� W� W� � � � W� W� � g��< W� WJ� � W� W� � � � � � ti� W� g�� % set-block-next-free!-procedure g��set-block-next-free! TUU� g��m-198d9e0d-1336 Z� g��t-198d9e0d-1334 g��t-198d9e0d-1335 � � f��l-198d9e0d-133b f��l-198d9e0d-133c � \� � f��l-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� g��m-198d9e0d-1357 Z� g��t-198d9e0d-1354 g��t-198d9e0d-1355 g��t-198d9e0d-1356 � � f��l-198d9e0d-135c f��l-198d9e0d-135d f��l-198d9e0d-135e � \� � f��l-198d9e0d-1359 � \k� ipiiiiy�  WX� ti� W� W� W� � � � W� W� g��value W� W� � g��and �W� W� WJ� � � g��= W� Wm� �  �  g��begin  W �  W�  g��1+ W � �  � W� W� � � W�  � � � � � ti� W� g��% block-ref-procedure g�� block-ref g��m-198d9e0d-13c0 Z�  g��t-198d9e0d-13be !g��t-198d9e0d-13bf " !� #� $f��l-198d9e0d-13c5 %f��l-198d9e0d-13c6 &$%� '\"#&� (� )f��l-198d9e0d-13c2 *)� +\k(*� ,'i+piiiiy�  -WX,� .t'i+� /W.� 0W,� 1W.� 201� 3/2� 43� 5W,� 6g��content 7W6.� 8W.� 978� :W.� ;:78� <59;� =-4<� >ti+� ?W>� @g��(% block-hash-table-next-offset-procedure Ag��block-hash-table-next-offset Bg��m-198d9e0d-13e1 CBZ� Dg��t-198d9e0d-13de Eg��t-198d9e0d-13df Fg��t-198d9e0d-13e0 GDEF� HCCC� If��l-198d9e0d-13e6 Jf��l-198d9e0d-13e7 Kf��l-198d9e0d-13e8 LIJK� M\GHL� NC� Of��l-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! kg��m-198d9e0d-1407 lkZ� mg��t-198d9e0d-1403 ng��t-198d9e0d-1404 og��t-198d9e0d-1405 pg��t-198d9e0d-1406 qmnop� rllll� sf��l-198d9e0d-140c tf��l-198d9e0d-140d uf��l-198d9e0d-140e vf��l-198d9e0d-140f wstuv� x\qrw� yl� zf��l-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 g��block-hash-table-ref g��m-198d9e0d-1430 Z� g��t-198d9e0d-142d g��t-198d9e0d-142e g��t-198d9e0d-142f � � f��l-198d9e0d-1435 f��l-198d9e0d-1436 f��l-198d9e0d-1437 � \� � f��l-198d9e0d-1432 � \k� ipiiiiy�  WX� ti� W� W� W� � � � W� W6� W� g��khash W� � W� Wa� � � � � ti� W� g��!% block-hash-table-set!-procedure g��block-hash-table-set! g��m-198d9e0d-1456 Z� g��t-198d9e0d-1452 g��t-198d9e0d-1453 g��t-198d9e0d-1454 g��t-198d9e0d-1455 � � f��l-198d9e0d-145b f��l-198d9e0d-145c f��l-198d9e0d-145d f��l-198d9e0d-145e � \� � f��l-198d9e0d-1458 � \k� ipiiiiy�  WX� ti� W� W� W� � � � W� W6� W� W� W� � W� Wa� � � � � ti� W� g��!% block-hash-table-add!-procedure g��block-hash-table-add! g��m-198d9e0d-1480 Z� g��t-198d9e0d-147c g��t-198d9e0d-147d g��t-198d9e0d-147e g��t-198d9e0d-147f � � f��l-198d9e0d-1485 f��l-198d9e0d-1486 f��l-198d9e0d-1487 f��l-198d9e0d-1488 � \� � f��l-198d9e0d-1482 � \k� ipiiiiy�  WX� ti� �W� W� W� � �� � W� W6� W�  W�  W�    �  Wj�  W�   �   � W�   �  � � ti� W� g�� block-null g��<vlist> g��%make-vlist-procedure g�� make-vlist g��m-198d9e0d-1501 Z� g��t-198d9e0d-14ff g��t-198d9e0d-1500 � �  f��l-198d9e0d-1506 !f��l-198d9e0d-1507 " !� #\"� $� %f��l-198d9e0d-1503 &%� '\k$&� (f��l-1e8ba8b5a-60 )f��l-1e8ba8b5a-61 *()� +\su*� ,g��key -,z{|� .ttttt� /f��l-1e8ba8b5a-53 0f��l-1e8ba8b5a-54 1f��l-1e8ba8b5a-55 2f��l-1e8ba8b5a-56 3f��l-1e8ba8b5a-57 4/0123� 5\-.4� 6� 7t� 8f��l-1e8ba8b5a-43 98� :\679� ;f��l-1e8ba8b5a-42 <;� =\k<� >#i'piiii+5:=�  ? � @W>?� At#i'� BWA� CWA� DBC� Eg�� make-struct Fg��m-198d9e0d-14fd GFZ� Hg��t-1e8ba8b5a-133 Ig��t-1e8ba8b5a-132 Jg��t-1e8ba8b5a-131 KHIJ� Lg��m-1e8ba8b5a-134 MLZ� NMMM� Of��l-1e8ba8b5a-138 Pf��l-1e8ba8b5a-139 Qf��l-1e8ba8b5a-13a ROPQ� S\KNR� Tg�� ctor-args UT� Vf��l-1e8ba8b5a-120 WV� X\UW� Yg��ctor Zg��field [YZ� \f��l-1e8ba8b5a-11c ]f��l-1e8ba8b5a-11d ^\]� _\[u^� `g��form ag�� type-name bg��constructor-spec cg�� field-names d`abc� etttt� ff��l-1e8ba8b5a-111 gf��l-1e8ba8b5a-112 hf��l-1e8ba8b5a-113 if��l-1e8ba8b5a-114 jfghi� k\dej� lg�� record-layout mg��functional-setters ng��setters og��copier pg��getters qg�� constructor rg��getter-identifiers sg��field-identifiers tlmnopqrs� utttttttt� vf��l-1e8ba8b5a-e9 wf��l-1e8ba8b5a-e7 xf��l-1e8ba8b5a-e5 yf��l-1e8ba8b5a-e3 zf��l-1e8ba8b5a-e1 {f��l-1e8ba8b5a-df |f��l-1e8ba8b5a-dd }f��l-1e8ba8b5a-db ~vwxyz{|}� \tu~� f��l-1e8ba8b5a-da � \k� G#i'piSiiiX_ik� WE?� WA� W ?� BC� @D� � � � � ti'� W� g��record-type-vtable � � g��pwpw g��default-record-printer � � � g��set-struct-vtable-name! � � g��vtable-offset-user � � g��%vlist?-procedure g��m-198d9e0d-1510 Z� g��t-198d9e0d-150f � � f��l-198d9e0d-1515 � \� f��l-198d9e0d-1512 � \k� ipiiii+5:=�  W?� 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 Z� � 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 � \� c� 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 `ab� tttttt� f��l-1e8ba8b5a-1f9 f��l-1e8ba8b5a-1fa f��l-1e8ba8b5a-1fb f��l-1e8ba8b5a-1fc f��l-1e8ba8b5a-1fd f��l-1e8ba8b5a-1fe � \� Gipiiiiiiiiiiii� W?� � W?� g��struct? W?� � g��eq? W?� g�� struct-vtable W?� � ti� �W� �� � � ti� W� g��throw-bad-struct � �  g�� vlist-base  g��%vlist-base-procedure  g��free-id  g�� %%on-error  g��m-198d9e0d-151c  Z� � f��l-198d9e0d-151e � \k� ipiiii+5:=�  W ?�  � U� 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 ! 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 *#$%&'()� +\"*� ,g��getter -,� .f��l-1e8ba8b5a-149 /f��l-1e8ba8b5a-14a 0./� 1\-u0� 2a� 3f��l-1e8ba8b5a-144 4f��l-1e8ba8b5a-145 5f��l-1e8ba8b5a-146 6345� 7\2~6� 8Gipi+iii1i7� 9W8?� : 9� ;T:U� <g��ck =g��err >g��s ?=>� @� Af��l-198d9e0d-1521 Bf��l-198d9e0d-1522 CAB� D\?@C� EDipiiii+5:=�  FW<E?� Gg��quote HWGE?� ItDi� JWI� KHJ� LK� Mg��%%index NWM8?� O N� PTOU� Qf��l-198d9e0d-1526 Rf��l-198d9e0d-1527 SQR� T\?@S� UTipiiii+5:=�  VW<U?� WWGU?� XTi� YW X� ZWY� [Z� \g��%%copier ]W\8?� ^ ]� _T^U� `f��l-198d9e0d-152b af��l-198d9e0d-152c b`a� c\?@b� dcipiiii+5:=�  eW<d?� fWGd?� gg��%%<vlist>-set-fields htci� iWgh� jfi� kj� lg��t-198d9e0d-151b ml� nf��l-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 g��m-198d9e0d-1537 Z� � f��l-198d9e0d-1539 � \k� ipiiii+5:=�  W ?�  � U� Gipi+iii1i7� W?�  � TU� � f��l-198d9e0d-153c f��l-198d9e0d-153d � \?� ipiiii+5:=�  W<?� WG?� ti� W� � � WM?�  � TU� f��l-198d9e0d-1541 f��l-198d9e0d-1542 � \?� ipiiii+5:=�  W<?� WG?� i� W � � � W\?�  � TU� f��l-198d9e0d-1546 f��l-198d9e0d-1547 � \?� ipiiii+5:=�  W<?� WG?� ti� Wg� � � g��t-198d9e0d-1536 � f��l-198d9e0d-154b � \� ipiiii+5:=�  W?� Gipi+iii1i7� W>?� � W?� W?� W?� � ti� W� � W}?� i� W � � W?� WG?� W� � � � � ti� W� g��each UU� � U㌤ U䌤 U匤 g�� %%set-fields g��check? g��expr >,� g��m-198d9e0d-1552 Z� GGGG� f��l-198d9e0d-1557 f��l-198d9e0d-1558 f��l-198d9e0d-1559 f��l-198d9e0d-155a f��l-198d9e0d-155b � \� � f��l-198d9e0d-1554 � \k� g��t-1e8ba8b5a-16a g��t-1e8ba8b5a-16c g��t-1e8ba8b5a-16b � g��m-1e8ba8b5a-16d Z� � �f��l-1e8ba8b5a-171 f��l-1e8ba8b5a-172 f��l-1e8ba8b5a-173 �� \� f��l-1e8ba8b5a-167 f��l-1e8ba8b5a-168 f��l-1e8ba8b5a-169 �  \2~�  Gipiiii �   W ?�  ti�  W � W  � W � � g��map � � g��list g��set-record-type-printer! f�� #<vlist ()> f��#<vhash ~x ~a pairs> g��object-address f�� #<vlist ~a> g��throw g��wrong-type-arg f��Not a vlist: ~S g��% assert-vlist-procedure g�� assert-vlist g��m-198d9e0d-157d  Z� !g��t-198d9e0d-157c "!� # � $f��l-198d9e0d-1582 %$� &\"#%� 'f��l-198d9e0d-157f ('� )\k#(� * &i)piiiiy�  +WX*� ,t&i)� -W,� .W*� /W,� 0./� 1-0� 21� 3W*� 4g��val 5W4,� 65� 7g��unless 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 Kg��m-198d9e0d-15a0 LKZ� Mg��t-198d9e0d-159d Ng��t-198d9e0d-159e Og��t-198d9e0d-159f PMNO� QLLL� Rf��l-198d9e0d-15a5 Sf��l-198d9e0d-15a6 Tf��l-198d9e0d-15a7 URST� V\PQU� WL� Xf��l-198d9e0d-15a2 YX� Z\kWY� [LViZpiiiiy�  \WX[� ]tViZ� ^WJ]� _W[� `WI]� a_`� b^a� cb� dW[� eg��item fWe]� gW]� hW]� ifgh� jg��let kWj]� lW]� mW ]� nmg� oln� pW]� qW ]� rW]� srg� tqs� upt� vou� wg��cond xWw]� yW]� zylfp� {W]� |{lp� }z|� ~g��else W~]� g��let* W]� W]� WJ]� l� � WO]� g��1- W]� p� g��zero? 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� g��fold g��cons g��equal? g�� fold-right g��hash g��hashq g��hashv g��% %vhash-fold*-procedure g�� %vhash-fold* TUUUUUU� g��m-198d9e0d-1bf6 Z� g��t-198d9e0d-1bf0 g��t-198d9e0d-1bf1 g��t-198d9e0d-1bf2 g��t-198d9e0d-1bf3 g��t-198d9e0d-1bf4 g��t-198d9e0d-1bf5 � � f��l-198d9e0d-1bfb f��l-198d9e0d-1bfc f��l-198d9e0d-1bfd f��l-198d9e0d-1bfe f��l-198d9e0d-1bff f��l-198d9e0d-1c00 � \� � f��l-198d9e0d-1bf8 � \k� ipiiiiy�  WX� ti� W� W� W� � � � W� g��proc W� g��init W� W,� g��vhash W� W� W� � g��define W� g�� visit-block W� W� g�� max-offset W� g��result W� � W� W� WJ� � � W6� W� � � W� � � � Wj� g��loop W� W� W� � � � �� W� WA� � W� g��<= W� � g��car  W�  W�   �    �   �  � g��cdr 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 9g��m-198d9e0d-2023 :9Z� ;g��t-198d9e0d-201f <g��t-198d9e0d-2020 =g��t-198d9e0d-2021 >g��t-198d9e0d-2022 ?;<=>� @::::� Af��l-198d9e0d-2028 Bf��l-198d9e0d-2029 Cf��l-198d9e0d-202a Df��l-198d9e0d-202b EABCD� F\?@E� G:� Hf��l-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� g��eqv?C�5������h�� ��]4   E5�4H�>��"��G���4Ii 54RJ��h0������]$��4 5� �C45� �C�������g��base  0�g��offset  0�g��size   0�g�� hash-tab?   0��g��filenamef��ice-9/vlist.scm G  L  M   M   M   M   O  / O �  0 ��g��nameg��% make-block-procedure�CKR4NOPSV�������h������]��C�������g��t-198d9e0d-1237  �g��t-198d9e0d-1238  �g��t-198d9e0d-1239   �g��t-198d9e0d-123a   ��   ���CO������h���R���]L�6����J�������g��a  ��g��filenamef��ice-9/vlist.scm  G �  ���CT������h���B���]�L�6:�������g��filenamef��ice-9/vlist.scm  G �   ���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��ice-9/vlist.scm G �  n ���C5OR4NPS��������h���R���]��C��J�������g��dummy  �g��name  �g��index   ��   ���C�������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/vlist.scm R �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��nameg��index���C5R������h���{���]� C�s�������g��block  ��g��filenamef��ice-9/vlist.scm V �   ��g��nameg��% block-content-procedure�CR4NPS��������h���7���]��C������/�������g��t-198d9e0d-126e  ��  ���C�����h���R���]L�6����J�������g��a  ��g��filenamef��ice-9/vlist.scm  V �  ���CT������h���B���]�L�6:�������g��filenamef��ice-9/vlist.scm  V �   ���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��ice-9/vlist.scm V �  n ���C5R������h���x���]� C�p�������g��block  ��g��filenamef��ice-9/vlist.scm W �   ��g��nameg��% block-base-procedure�CR4NPS#��������h���7���]��C������/�������g��t-198d9e0d-128a  ��  ���C����h���R���]L�6����J�������g��a  ��g��filenamef��ice-9/vlist.scm  W �  ���CT������h���B���]�L�6:�������g��filenamef��ice-9/vlist.scm  W �   ���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��ice-9/vlist.scm W �  n ���C5R�����h���z���]� Cr�������g��block  ��g��filenamef��ice-9/vlist.scm X �   ��g��nameg��% block-offset-procedure�C&R4N'PSF������h���7���]��C������/�������g��t-198d9e0d-12a6  ��  ���C'����h���R���]L�6����J�������g��a  ��g��filenamef��ice-9/vlist.scm  X �  ���CT������h���B���]�L�6:�������g��filenamef��ice-9/vlist.scm  X �   ���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��ice-9/vlist.scm X �  n ���C5'R�����h���x���]� Cp�������g��block  ��g��filenamef��ice-9/vlist.scm Y �   ��g��nameg��% block-size-procedure�CIR4NJPSi��������h���7���]��C������/�������g��t-198d9e0d-12c2  ��  ���CJ����h���R���]L�6����J�������g��a  ��g��filenamef��ice-9/vlist.scm  Y �  ���CT������h���B���]�L�6:�������g��filenamef��ice-9/vlist.scm  Y �   ���Ck�������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��ice-9/vlist.scm Y �  n ���C5JR�����h���}���]� Cu�������g��block  ��g��filenamef��ice-9/vlist.scm Z �   ��g��nameg��% block-next-free-procedure�ClR4NmPS���h���7���]��C������/�������g��t-198d9e0d-12de  ��  ���Cm����h���R���]L�6����J�������g��a  ��g��filenamef��ice-9/vlist.scm  Z �  ���CT������h���B���]�L�6:�������g��filenamef��ice-9/vlist.scm  Z �   ���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��ice-9/vlist.scm Z �  n ���C5mR��������h������]� 4� 5C�������������g��block  ��g��filenamef��ice-9/vlist.scm \  ]   ]   ] '  ]   ] �   ��g��nameg��% block-hash-table?-procedure�CR4NPS�h���7���]��C������/�������g��t-198d9e0d-12f9  ��  ���C����h���R���]L�6����J�������g��a  ��g��filenamef��ice-9/vlist.scm  \ �  ���CT������h���B���]�L�6:�������g��filenamef��ice-9/vlist.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��ice-9/vlist.scm \ �  n ���C5R�����h������]� C������������g��block  �g�� next-free  ��g��filenamef��ice-9/vlist.scm _ ` �  ��g��nameg�� % set-block-next-free!-procedure�CR4NPS������h���T���]��C����L�������g��t-198d9e0d-1334  �g��t-198d9e0d-1335  ��  ���C�������h���R���]L�6����J�������g��a  ��g��filenamef��ice-9/vlist.scm  _ �  ���CT������h���B���]�L�6:�������g��filenamef��ice-9/vlist.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��ice-9/vlist.scm _ �  n ���C5R�����h8��� ��] � $��(� $��� � CCC������g��block  8�g��value  8�g��offset   8�g�� next-free   )��g��filenamef��ice-9/vlist.scm b d  d   d   e   e   d   g %  g - h  2 h �  8 ��g��nameg��% block-append!-procedure�CR4NPS������h���q���]��C��i�������g��t-198d9e0d-1354  �g��t-198d9e0d-1355  �g��t-198d9e0d-1356   ��   ���C��h���R���]L�6����J�������g��a  ��g��filenamef��ice-9/vlist.scm  b �  ���CT������h���B���]�L�6:�������g��filenamef��ice-9/vlist.scm  b �   ���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��ice-9/vlist.scm b �  n ���C5R�����h������]�C�������g��content  �g��offset  ��g��filenamef��ice-9/vlist.scm l  m �   ��g��nameg��% block-ref-procedure�CR4NPS=��h���T���]��C����L�������g��t-198d9e0d-13be  �g��t-198d9e0d-13bf  ��  ���C�������h���R���]L�6����J�������g��a  ��g��filenamef��ice-9/vlist.scm  l �  ���CT������h���B���]�L�6:�������g��filenamef��ice-9/vlist.scm  l �   ���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��ice-9/vlist.scm l �  n ���C5R�����h������]�C���������g��content  �g��size  �g��offset   ��g��filenamef��ice-9/vlist.scm q r  r �   ��g��nameg��(% block-hash-table-next-offset-procedure�C@R4NAPSf�����h���q���]��C��i�������g��t-198d9e0d-13de  �g��t-198d9e0d-13df  �g��t-198d9e0d-13e0   ��   ���CA��h���R���]L�6����J�������g��a  ��g��filenamef��ice-9/vlist.scm  q �  ���CT������h���B���]�L�6:�������g��filenamef��ice-9/vlist.scm  q �   ���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��ice-9/vlist.scm q �  n ���C5AR�����h������]�C��������������g��content  �g��size  �g��offset   �g�� next-offset   ��g��filenamef��ice-9/vlist.scm v x   x �   ��g��nameg��-% block-hash-table-set-next-offset!-procedure�CiR4NjPSV��������h������]��C�������g��t-198d9e0d-1403  �g��t-198d9e0d-1404  �g��t-198d9e0d-1405   �g��t-198d9e0d-1406   ��   ���Cj�����h���R���]L�6����J�������g��a  ��g��filenamef��ice-9/vlist.scm  v �  ���CT������h���B���]�L�6:�������g��filenamef��ice-9/vlist.scm  v �   ���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��ice-9/vlist.scm v �  n ���C5jR�����h������]�C������������g��content  �g��size  �g��khash   ��g��filenamef��ice-9/vlist.scm | }  } �  ��g��nameg�� % block-hash-table-ref-procedure�CR4NPS������h���q���]��C��i�������g��t-198d9e0d-142d  �g��t-198d9e0d-142e  �g��t-198d9e0d-142f   ��   ���C��h���R���]L�6����J�������g��a  ��g��filenamef��ice-9/vlist.scm  | �  ���CT������h���B���]�L�6:�������g��filenamef��ice-9/vlist.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��ice-9/vlist.scm | �  n ���C5R�����h������]�C���������g��content  �g��size  �g��khash   �g��offset   ��g��filenamef��ice-9/vlist.scm  �  � �   ��g��nameg��!% block-hash-table-set!-procedure�CR4NPSV��������h������]��C�������g��t-198d9e0d-1452  �g��t-198d9e0d-1453  �g��t-198d9e0d-1454   �g��t-198d9e0d-1455   ��   ���C�����h���R���]L�6����J�������g��a  ��g��filenamef��ice-9/vlist.scm   �  ���CT������h���B���]�L�6:�������g��filenamef��ice-9/vlist.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��ice-9/vlist.scm  �  n ���C5R�����h(������] ���C�������g��content  (�g��size  (�g��khash   (�g��offset   (�g�� next-offset  ��g��filenamef��ice-9/vlist.scm � � % �  # � �  ( ��g��nameg��!% block-hash-table-add!-procedure�CR4NPSV�����h������]��C�������g��t-198d9e0d-147c  �g��t-198d9e0d-147d  �g��t-198d9e0d-147e   �g��t-198d9e0d-147f   ��   ���C�����h���S���]L�6����K�������g��a  ��g��filenamef��ice-9/vlist.scm  � �  ���CT�����h���C���]�L�6;�������g��filenamef��ice-9/vlist.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��ice-9/vlist.scm � �  n ���C5R4Ji 5 �R����h������]��C�����������g��base  �g��offset  ��g��filenamef��ice-9/vlist.scm � �  ��g��nameg��%make-vlist-procedure�CR4NPS����h���T���]��C����L�������g��t-198d9e0d-14ff  �g��t-198d9e0d-1500  ��  ���C������h���S���]L�6����K�������g��a  ��g��filenamef��ice-9/vlist.scm  � �  ���CT����h���C���]�L�6;�������g��filenamef��ice-9/vlist.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��ice-9/vlist.scm � �  n ���C5R��4�>��"��G��� i��R�����h���r���]�$���CC������j�������g��obj  ��g��filenamef��ice-9/vlist.scm � �   ��g��nameg��%vlist?-procedure�CR4NPS�������h���7���]��C������/�������g��t-198d9e0d-150f  ��  ���C����h���S���]L�6����K�������g��a  ��g��filenamef��ice-9/vlist.scm  � �  ���CT����h���C���]�L�6;�������g��filenamef��ice-9/vlist.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��ice-9/vlist.scm � �  n ���C5R ��h���t���]�&��� C�6l�������g��s  ��g��filenamef��ice-9/vlist.scm � �   ��g��nameg��%vlist-base-procedure�C R4N PS;FL��������h���:���]C�����2�������g��err  �g��s  ��  ���CPV[�h���:���]C�����2�������g��err  �g��s  ��  ���C_ek�h���:���]C�����2�������g��err  �g��s  ��  ���C�����h���7���]��C������/�������g��t-198d9e0d-151b  ��  ���C ���h���S���]L�6����K�������g��a  ��g��filenamef��ice-9/vlist.scm  � �  ���CT����h���C���]�L�6;�������g��filenamef��ice-9/vlist.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��ice-9/vlist.scm � �  � ���C5 R�����h���v���]�&��� C�6n�������g��s  ��g��filenamef��ice-9/vlist.scm � �   ��g��nameg��%vlist-offset-procedure�CR4NPS������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-198d9e0d-1536  ��  ���C���h���S���]L�6����K�������g��a  ��g��filenamef��ice-9/vlist.scm  � �  ���CT����h���C���]�L�6;�������g��filenamef��ice-9/vlist.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��ice-9/vlist.scm � �  � ���C5R4NgPS  �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��ice-9/vlist.scm � �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5gR4ii"5(2� ������hH������]4�5$��64�5$��4�54�564 �56����������g��vl  E�g��port  E��g��filenamef��ice-9/vlist.scm �   � # �   � 0  � #  � # �  & � 0 ' � + . � + 6 � # < � 0 = � + E � #�  E ���C>��"��G��i�i� ��#R��������h@������]�$���&��C����6����6�������������g��val  :��g��filenamef��ice-9/vlist.scm �  � �  �  �  � � % � ' �  + � . � 3 � 8 � : � �  : ��g��nameg��% assert-vlist-procedure�CR4NPSF��h���7���]��C������/�������g��t-198d9e0d-157c  ��  ���C����h���S���]L�6����K�������g��a  ��g��filenamef��ice-9/vlist.scm  � �  ���CT�����h���C���]�L�6;�������g��filenamef��ice-9/vlist.scm  � �   ���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��ice-9/vlist.scm � �  n ���C5R 4J��h����]+&�� "�� 45&�� "�� 45"��~  $�� "��$�� "��[$��4 5 �"��45 �   � �C $��; $��+  �$�� �C"?";"7������g��item  �g��vlist  �g�� hash-tab?   �g��base  7 �g��offset  7 �g��size  D ��g��offset  j ��g��size  j ��g��base  � ��g�� next-free  � ��� g��filenamef��ice-9/vlist.scm �  �   �  7 �  7 �  D �  D �  I �  L �  Q �  [ �  _ �  j �  j �  � �  � �  � �  � �  � �  � �  � �  � �  � �  � � �   ��g��nameg��% block-cons-procedure�CIR4NJPS��������h���q���]��C��i�������g��t-198d9e0d-159d  �g��t-198d9e0d-159e  �g��t-198d9e0d-159f   ��   ���CJ��h���S���]L�6����K�������g��a  ��g��filenamef��ice-9/vlist.scm  � �  ���CT�����h���C���]�L�6;�������g��filenamef��ice-9/vlist.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��ice-9/vlist.scm � �  n ���C5JR4J��h��{��]*"��#4��>��"��'G��"�� $��&��"��""��"  "��_  $�� "��$�� "��[45 �   � �C $��; $��+  �$�� �C"^"Z"V����s������g��item  �g��vlist  �g��base  R �g��offset  R �g��size  _ ��g��offset  � ��g��size  � ��g��base  � ��g�� next-free  � ��� g��filenamef��ice-9/vlist.scm �  �  M � �   ��g��nameg�� vlist-consg�� documentationf��?Return a new vlist with ITEM as its head and VLIST as its tail.�CR��hh��� ��]"��#4����>��"��'G��"�� �$���&��"��""��"� �  C�������������g��vlist  a�g��base Q a�g��offset  Q a�g��content  Y a��g��filenamef��ice-9/vlist.scm �  �  M �  Q �  Q �  Y �  Y � �  a ��g��nameg�� vlist-headg�� documentationf��Return the head of VLIST.�C R�h���d��]!"��#4����>��"��'G��"�� �$���&��"��""��"� �  $���C  �C�����\������g��vlist  ��g��base Q ��g��offset  Q ��g��offset  ` l�g��base  u ��g��offset  u ���g��filenamef��ice-9/vlist.scm �  �  M �  Q �  Q �  Y �  ] �  ` �  ` �  p �  u �  u � �  � ��g��nameg�� vlist-tailg�� documentationf��Return the tail of VLIST.�C!R�hh������] "��#4����>��"��'G��"�� �$���&��"��""��"�  $��C  C��������������g��vlist  a�g��base M a��g��filenamef��ice-9/vlist.scm �  �  M �  M �  S �  W �  _ �  ` � �  a ��g��nameg�� vlist-null?g�� documentationf��Return true if VLIST is empty.�C"R/#������h������]4�56��������������g��lst  ��g��filenamef��ice-9/vlist.scm �  �   � �   ��g��nameg�� list->vlistg�� documentationf��4Return a new vlist whose contents correspond to LST.�C$R��h�����]3"��#4��>��"��'G��"�� $��&��"��""��""��V&��C $�� "��$��  "��4� 5"  "� ������g��proc  ��g��init  ��g��vlist   ��g��base  M ��g��offset  M ��g��result  M ��g��next  [ ��g��done?  a ��g��content  � ��� g��filenamef��ice-9/vlist.scm �  �  M   U   [   [   a   a   i   m   y   ~   �   �  ! �   �   �  �   �   �   �  �  � ��g��nameg�� vlist-foldg�� documentationf��/Fold over VLIST, calling PROC for each element.�C)R%(�������h�����]"��#4��>��"��'G��"�� $��&��"��""��""��& $��C4�455"45"���������g��proc  ��g��init  ��g��vlist   ��g��index  M s�g��result  M s��g��filenamef��ice-9/vlist.scm     M   Q   U   [   \  _   k  s   s   t   {   �  �  � ��g��nameg��vlist-fold-rightg�� documentationf��OFold over VLIST, calling PROC for each element, starting from the last element.�C*R)#������h������]�6�����������g��vlist  ��g��filenamef��ice-9/vlist.scm   �  ��g��nameg�� vlist-reverseg�� documentationf��EReturn a new VLIST whose content are those of VLIST in reverse order.�C/R)��������h���|���]4L��56�t�������g��item  �g��result  ��g��filenamef��ice-9/vlist.scm        �   ���C#/�����h������]�O�456���������g��proc  �g��vlist  ��g��filenamef��ice-9/vlist.scm   !    �   ��g��nameg�� vlist-mapg�� documentationf��;Map PROC over the elements of VLIST and return a new vlist.�C+R*���h������]�6������������g��vlist  ��g��filenamef��ice-9/vlist.scm #  %  % �  ��g��nameg�� vlist->listg�� documentationf��6Return a new list whose contents match those of VLIST.�C2R�h�����]*"��#4����>��"��'G��"�� �$���&��"��""��""��6$�� C   "� � "�������g��vlist  ��g��index  ��g��index  M ��g��base  M ��g��offset  M ��g��content  _ i�g��offset  _ i��g��filenamef��ice-9/vlist.scm '  )  M *  R -  V -  Z .  _ . ( _ .  n /  t 0  y 1  � /  � *  � +  � ,  � * �  � ��g��nameg�� vlist-refg�� documentationf��+Return the element at index INDEX in VLIST.�C%R�h�����]""��#4����>��"��'G��"�� �$���&��"��""��""��4$���C   "� � "���������g��vlist  ��g��count  ��g��count  M ��g��base  M ��g��offset  M ��g��offset  [ g��g��filenamef��ice-9/vlist.scm 3  6  M 7  R :  V :  [ ;  [ ;  l <  r =  w >  � <  � 7  � 8  � 9  � 7 �  � ��g��nameg�� vlist-dropg�� documentationf��KReturn a new vlist that does not contain the COUNT first elements of VLIST.�C&R/! #��������hH���{��]"��0 $��6454455"�"��s������g��vlist  F�g��count  F�g��count   6�g��vlist   6�g��result   6��g��filenamef��ice-9/vlist.scm @  C  F   F   G   H   I   J  " J  , J  6 H  6 C �  F ��g��nameg�� vlist-takeg�� documentationf��HReturn a new vlist that contains only the COUNT first elements of VLIST.�C'R*�h���}���]4L��5$���6Cu�������g��e  �g��v  ��g��filenamef��ice-9/vlist.scm O   P  P   Q �   ���C#������h������]�O�6��������������g��pred  �g��vlist  ��g��filenamef��ice-9/vlist.scm L  O �   ��g��nameg�� vlist-filterg�� documentationf��LReturn a new vlist containing all the elements from VLIST that satisfy PRED.�C0R0�h���e���]4L�L�5C���]�������g��e  ��g��filenamef��ice-9/vlist.scm Y   Z  Z �  ���C��������h(������-�.�,�3�#���O�6����������g��x %�g��vlist %�g��equal?  %��g��filenamef��ice-9/vlist.scm V % Y � %  ��g��nameg�� vlist-deleteg�� documentationf��KReturn a new vlist corresponding to VLIST without the elements EQUAL? to X.�C1R�����h���.��]"��#4����>��"��'G��"�� �$���&��"��""��""�� &��C  "� � "���&������g��vlist  }�g��base M m�g��len  M m��g��filenamef��ice-9/vlist.scm ]  _  M `  U b  \ d  _ e  d e  e e  m d  m `  q `  u a  } ` �  } ��g��nameg�� vlist-lengthg�� documentationf��Return the length of VLIST.�C(R#��������h���S���]C���K�������g��x  ��g��filenamef��ice-9/vlist.scm h ,�   ���C�������h0������]4L�5$��L�64L��54L4L�556�������������g��seed  *��g��filenamef��ice-9/vlist.scm j   k  k   l   m   n  n  ( n  * m �  * ��g��nameg��uf�C��������h8���)��-�.�,�3�#��O��Q�6���!������g��p 5�g��f 5�g��g  5�g��seed  5�g��tail-gen  5�g��uf  " 5��g��filenamef��ice-9/vlist.scm g " j � 5  ��g��nameg�� vlist-unfoldg�� documentationf��HReturn a new vlist. See the description of SRFI-1 `unfold' for details.�C,R#����hX�����-�.�,�3�#��"��+4�5$��C454455""�������������g��p Q�g��f Q�g��g  Q�g��seed  Q�g��tail  Q�g��seed   E�g��lis   E��g��filenamef��ice-9/vlist.scm p  s   t  % t  ) v 0 v  3 v ! = v  E v  E s � Q  ��g��nameg��vlist-unfold-rightg�� documentationf��NReturn a new vlist. See the description of SRFI-1 `unfold-right' for details.�C-R#*��h���k���]�6������c�������g��e  �g��v  ��g��filenamef��ice-9/vlist.scm } & ~ (�  ���C��h���t���]�6����l�������g��vlist  �g��result  ��g��filenamef��ice-9/vlist.scm |  } �  ���C�h ������-��1��3��(��C�6�����������g��vlists ��g��filenamef��ice-9/vlist.scm x  z   | �  ��g��nameg�� vlist-appendg�� documentationf��Append the given lists.�C.R)�������h���n���]L��6f�������g��item  �g��x  ��g��filenamef��ice-9/vlist.scm     �   ���C�������h������]�O�6�������g��proc  �g��vlist  ��g��filenamef��ice-9/vlist.scm    �   ��g��nameg��vlist-for-eachg�� documentationf��?Call PROC on each element of VLIST. The result is unspecified.�C3R��h0������] �$��!�&���  4 5CCC�����������g��obj  ,�g��block  (��g��filenamef��ice-9/vlist.scm              �  , ��g��nameg��vhash?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 4�5        C�������������g��key �g��value �g��vhash  �g��hash  �g��item  b @�g��base  m =�g��offset  m =�g��size  z ��g��offset  � ��g��size � ��g��base  � ��g�� next-free  � �g��vhash  @ �g��base  \ �g��offset  x �g��size   �g��khash   �g��content  �g�� next-offset  ��g��filenamef��ice-9/vlist.scm     b  b   @   E   \   a   x                       �   ��g��nameg�� vhash-consg�� documentationf��jReturn a new hash list based on VHASH where KEY is associated with VALUE. Use HASH to compute KEY's hash.�C6R6�h������]�6���������g��t-198d9e0d-1bd9  �g��t-198d9e0d-1bda  �g��t-198d9e0d-1bdb   ��g��filenamef��ice-9/vlist.scm  �   ��g��nameg�� vhash-consq�C7R6�h������]�6���������g��t-198d9e0d-1be5  �g��t-198d9e0d-1be6  �g��t-198d9e0d-1be7   ��g��filenamef��ice-9/vlist.scm  �   ��g��nameg�� vhash-consv�C8R��h(��(��]N"��    4 5 "��s $��F     $��(4  5$��4�   5"�� "��   "   $��  "t C     "{$��0&��"��4��>��"��G��"��4��>��"��G��   $��  "C ������g��proc  (�g��init  (�g��key   (�g��vhash   (�g��equal?   (�g��hash   (�g��base   ��g�� max-offset   ��g��result   ��g��size ��g��content  ��g��khash  ��g��offset " ��g��result " ��g�� next-block  r ��g��block    ��g��filenamef��ice-9/vlist.scm                     "   (   /   8   <   =   F  , G  ' I   M   N   U  ! V   Z   n  r   r  y   {      �  * �   �   �   �   �                    %  �*  ( ��g��nameg��% %vhash-fold*-procedure�CR4NPS4�������h������]��C�����������g��t-198d9e0d-1bf0  �g��t-198d9e0d-1bf1  �g��t-198d9e0d-1bf2   �g��t-198d9e0d-1bf3   �g��t-198d9e0d-1bf4   �g��t-198d9e0d-1bf5   ��   ���C���h���S���]L�6����K�������g��a  ��g��filenamef��ice-9/vlist.scm   �  ���CT�����h���C���]�L�6;�������g��filenamef��ice-9/vlist.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��ice-9/vlist.scm  �  n ���C5R��������h8��]��-�.�,�3�#��#��"��    4 5 "��s $��F     $��(4  5$��4�   5"�� "��   "   $��  "t C     "{"��#4��>��"��'G��"�� $��&��"��""��"   $��  "C�U������g��proc 7�g��init 7�g��key  7�g��vhash  7�g��equal?  7�g��hash  7�g��base  $ ��g�� max-offset  $ ��g��result  $ ��g��size ) ��g��content / ��g��khash : ��g��offset @ ��g��result @ ��g�� next-block  � ��g��block   ��g��filenamef��ice-9/vlist.scm  $  � 7  ��g��nameg�� vhash-fold*g�� documentation�k�F���o���l���d��� ���o���v���e���r��� ���a���l���l��� ���t���h���e��� ���v���a���l���u���e���s��� ���a���s���s���o���c���i���a���t���e���d��� ���w���i���t���h��� ���K���E���Y��� ���i���n��� ���V���H���A���S���H���,��� ���w���i���t���h��� ���e���a���c���h��� ���c���a���l���l��� ���t���o��� ���P���R���O���C��� ���h���a���v���i���n���g��� ���t���h���e��� ���f���o���r���m��� ��� ��(���p���r���o���c��� ���v���a���l���u���e��� ���r���e���s���u���l���t���)��� ��,��� ���w���h���e���r���e��� ���R���E���S���U���L���T��� ���i���s��� ���t���h���e��� ���r���e���s���u���l���t��� ���o���f��� ���t���h���e��� ���p���r���e���v���i���o���u���s��� ���c���a���l���l��� ���t���o��� ���P���R���O���C��� ���a���n���d��� ���I���N���I���T��� ���t���h���e��� ���v���a���l���u���e��� ���o���f��� ���R���E���S���U���L���T��� ���f���o���r��� ���t���h���e��� ���f���i���r���s���t��� ���c���a���l���l��� ���t���o��� ���P���R���O���C���.����CAR�����h��}��]T"��   45 "��n $��A   $��#  &��4�   5"�� "��   "    $��   "y C    ""��#4��>��"��'G��"�� $��&��"��""��"   $��  "Cu������g��proc  �g��init  �g��key   �g��vhash   �g��hash   �g��base  ��g�� max-offset  ��g��result  ��g��size   ��g��content  ��g��khash ��g��offset & ��g��result & ��g�� next-block q ��g��block  � ���g��filenamef��ice-9/vlist.scm    �   ��g��nameg�� vhash-foldq*g�� documentationk��S���a���m���e��� ���a���s��� ��� ��v���h���a���s���h���-���f���o���l���d���*��� ��,��� ���b���u���t��� ���u���s���i���n���g��� ��� ��h���a���s���h���q��� �� ���a���n���d��� ��� ��e���q���?��� ��.����CBR�����h ����]T"��   45 "��o $��B   $��$  $��4�   5"�� "��   "    $��   "x C    ""��#4��>��"��'G��"�� $��&��"��""��"   $��  "C�������y������g��proc  �g��init  �g��key   �g��vhash   �g��hash   �g��base  ��g�� max-offset  ��g��result  ��g��size   ��g��content  ��g��khash ��g��offset & ��g��result & ��g�� next-block r ��g��block  � ���g��filenamef��ice-9/vlist.scm    �   ��g��nameg�� vhash-foldv*g�� documentationk��S���a���m���e��� ���a���s��� ��� ��v���h���a���s���h���-���f���o���l���d���*��� ��,��� ���b���u���t��� ���u���s���i���n���g��� ��� ��h���a���s���h���v��� �� ���a���n���d��� ��� ��e���q���v���?��� ��.����CCR����h����]<"��  4�5"��j $��B $��(4� 5$�� C  "  "    $��  "|C "$��0&��"��4��>��"��G��"��4��>��"��G��   $��  "C��������g��key  �g��vhash  �g��equal?   �g��hash   �g��base   ��g�� max-offset   ��g��size  ��g��content   ��g��khash   ��g��offset " ��g�� next-block n ��g��block  � ��� g��filenamef��ice-9/vlist.scm                     "   (   -   1  2   ;  & <  ! >   B   G   O   Y   `   j   n   n  u   w   {   �  + �   �   �   �   �   �   �  �              �)   ��g��nameg��% %vhash-assoc-procedure�C7R4N8PSV�h������]��C�������g��t-198d9e0d-201f  �g��t-198d9e0d-2020  �g��t-198d9e0d-2021   �g��t-198d9e0d-2022   ��   ���C8�����h���S���]L�6����K�������g��a  ��g��filenamef��ice-9/vlist.scm   �  ���CT�����h���C���]�L�6;�������g��filenamef��ice-9/vlist.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��ice-9/vlist.scm  �  n ���C58R��������h ����-�.�,�3� #��#��"��  4�5"��e $��="��  " $��4� 5$�� C""    $��  "C ""��#4��>��"��'G��"�� $��&��"��""��"   $��  "C������g��key  �g��vhash  �g��equal?   �g��hash   �g��base  $ ��g�� max-offset  $ ��g��size  ) ��g��content  / ��g��khash  : ��g��offset @ ��g�� next-block � ��g��block  � �� g��filenamef��ice-9/vlist.scm  $  �   ��g��nameg�� vhash-assocg�� documentationf��pReturn the first key/value pair from VHASH whose key is equal to KEY according to the EQUAL? equality predicate.�C9R��h��u��]B"��  4�5"��`$��8"��"$���&��C""    $��  "C""��#4��>��"��'G��"�� $��&��"��""��"   $��  " C�������m������g��key  �g��vhash  �g��hash   �g��base  ��g�� max-offset  ��g��size   ��g��content   ��g��khash  ��g��offset  & ��g�� next-block h ��g��block  � ��� g��filenamef��ice-9/vlist.scm    �   ��g��nameg�� vhash-assqg�� documentation��k�R���e���t���u���r���n��� ���t���h���e��� ���f���i���r���s���t��� ���k���e���y���/���v���a���l���u���e��� ���p���a���i���r��� ���f���r���o���m��� ���V���H���A���S���H��� ���w���h���o���s���e��� ���k���e���y��� ���i���s��� ��� ��e���q���?��� �� ���t���o��� ���K���E���Y���.����C:R�����h��y��]B"��  4�5"��a$��9"��"$���$��C""    $��  "C""��#4��>��"��'G��"�� $��&��"��""��"   $��  " C������q������g��key  �g��vhash  �g��hash   �g��base  ��g�� max-offset  ��g��size   ��g��content   ��g��khash  ��g��offset  & ��g�� next-block i ��g��block  � ��� g��filenamef��ice-9/vlist.scm   " �   ��g��nameg�� vhash-assvg�� documentation��k�R���e���t���u���r���n��� ���t���h���e��� ���f���i���r���s���t��� ���k���e���y���/���v���a���l���u���e��� ���p���a���i���r��� ���f���r���o���m��� ���V���H���A���S���H��� ���w���h���o���s���e��� ���k���e���y��� ���i���s��� ��� ��e���q���v���?��� �� ���t���o��� ���K���E���Y���.����C;R9)6���h(������]��4LL5$��CL�6�������g��k+v  (�g��result  (�g��k   (�g��v   (��g��filenamef��ice-9/vlist.scm (   )   *   )  +   +  ( - �  ( ���C#������hH���!��-�.�,�3�#��#��4�5$���O�6C�������g��key G�g��vhash G�g��equal?  G�g��hash  G��g��filenamef��ice-9/vlist.scm $ ! '  1 '  D ( � G  ��g��nameg�� vhash-deleteg�� documentationf��HRemove all associations from VHASH with KEY, comparing keys with EQUAL?.�C<R<��������h������]�6���������g��t-198d9e0d-243e  �g��t-198d9e0d-243f  ��g��filenamef��ice-9/vlist.scm 2 �   ��g��nameg�� vhash-delq�C=R<����h������]�6���������g��t-198d9e0d-2448  �g��t-198d9e0d-2449  ��g��filenamef��ice-9/vlist.scm 3 �   ��g��nameg�� vhash-delv�C>R)���h������]L���6���������g�� key+value  �g��result  ��g��filenamef��ice-9/vlist.scm :   ;  ; &  ; �   ���C���h���m��]�O�6�������e������g��proc  �g��init  �g��vhash   ��g��filenamef��ice-9/vlist.scm 5  : �   ��g��nameg�� vhash-foldg�� documentation�k�F���o���l���d��� ���o���v���e���r��� ���t���h���e��� ���k���e���y���/���p���a���i���r��� ���e���l���e���m���e���n���t���s��� ���o���f��� ���V���H���A���S���H��� ���f���r���o���m��� ���l���e���f���t��� ���t���o��� ���r���i���g���h���t���,��� ���w���i���t���h��� ���e���a���c���h��� ���c���a���l���l��� ���t���o��� ���P���R���O���C��� ���h���a���v���i���n���g��� ���t���h���e��� ���f���o���r���m��� ��� ��(���P���R���O���C��� ���k���e���y��� ���v���a���l���u���e��� ���r���e���s���u���l���t���)��� ��,��� ���w���h���e���r���e��� ���R���E���S���U���L���T��� ���i���s��� ���t���h���e��� ���r���e���s���u���l���t��� ���o���f��� ���t���h���e��� ���p���r���e���v���i���o���u���s��� ���c���a���l���l��� ���t���o��� ���P���R���O���C��� ���a���n���d��� ���I���N���I���T��� ���t���h���e��� ���v���a���l���u���e��� ���o���f��� ���R���E���S���U���L���T��� ���f���o���r��� ���t���h���e��� ���f���i���r���s���t��� ���c���a���l���l��� ���t���o��� ���P���R���O���C���.����C?R*���h������]L���6���������g�� key+value  �g��result  ��g��filenamef��ice-9/vlist.scm E   F  F ,  F �   ���C���h���u��]�O�6�������m������g��proc  �g��init  �g��vhash   ��g��filenamef��ice-9/vlist.scm @  E �   ��g��nameg��vhash-fold-rightg�� documentation���k�F���o���l���d��� ���o���v���e���r��� ���t���h���e��� ���k���e���y���/���p���a���i���r��� ���e���l���e���m���e���n���t���s��� ���o���f��� ���V���H���A���S���H��� ���f���r���o���m��� ���r���i���g���h���t��� ���t���o��� ���l���e���f���t���,��� ���w���i���t���h��� ���e���a���c���h��� ���c���a���l���l��� ���t���o��� ���P���R���O���C��� ���h���a���v���i���n���g��� ���t���h���e��� ���f���o���r���m��� ��� ��(���P���R���O���C��� ���k���e���y��� ���v���a���l���u���e��� ���r���e���s���u���l���t���)��� ��,��� ���w���h���e���r���e��� ���R���E���S���U���L���T��� ���i���s��� ���t���h���e��� ���r���e���s���u���l���t��� ���o���f��� ���t���h���e��� ���p���r���e���v���i���o���u���s��� ���c���a���l���l��� ���t���o��� ���P���R���O���C��� ���a���n���d��� ���I���N���I���T��� ���t���h���e��� ���v���a���l���u���e��� ���o���f��� ���R���E���S���U���L���T��� ���f���o���r��� ���t���h���e��� ���f���i���r���s���t��� ���c���a���l���l��� ���t���o��� ���P���R���O���C���.����C@R6���h������]��L�6}�������g��pair  �g��result  ��g��filenamef��ice-9/vlist.scm M   N  N '  N �   ���C#������h(������-�.�,�3�#��O��6����������g��alist %�g��hash %��g��filenamef��ice-9/vlist.scm K % M � % ��g��nameg�� alist->vhashg�� documentationf��=Return the vhash corresponding to ALIST, an association list.�CDRC������������g��m  ,�g��rtd :D :p�g��base J J��g��filenamef��ice-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 ������ ���C6���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/scm-style-repl.go�����������������������������������������������������������������������������0000644�����������������00000024671�15253700563�0010701 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0)������]�n�4��������h������]� g��guile � g��define-module* � � g��ice-9 g��scm-style-repl � g��filenameS f��ice-9/scm-style-repl.scm g��importsS g�� save-stack  �  � � g��exportsS g��scm-repl-silent g��scm-repl-print-unspecified g��scm-repl-verbose g��scm-repl-prompt � g�� replacementsS g��assert-repl-silence g��assert-repl-print-unspecified g��assert-repl-verbosity g��default-pre-unwind-handler g�� bad-throw g��error-catching-loop g��error-catching-repl g��handle-system-error �  g��set-current-module ! � " � #f��guile>  $g��symbol-property %g��throw-handler-default &g��error 'f��unhandled-exception: (g��throw )g��has-shown-debugger-hint? *g��catch +g��call-with-unblocked-asyncs ,g��quit -g�� switch-repl .g��abort /g��run-hook 0g�� abort-hook 1g�� force-output 2g��current-output-port 3g��display 4f��ABORT:  5g��current-error-port 6g��write 7g��newline 8g��memq 9g�� backtrace :g��debug-options-interface ;g��stack? <g��the-last-stack =f��OType "(backtrace)" to get more information or "(debug)" to enter the debugger.  >g��primitive-exit ?g�� stack-saved? @g��length Ag��restore-signals Bg��ensure-batch-mode! Cg�� batch-mode? Dg��call-with-blocked-asyncs Eg��for-each Ff��;;;  Gg��inexact->exact Hg��get-internal-run-time Ig��internal-time-units-per-second Jf�� msec ( Kg�� gc-run-time Lf�� msec in gc)  Mg��string? Ng��thunk? Of��>  Pf��� Qg�� repl-reader Rg�� eof-object? Sg��after-read-hook Tf��;;; EOF -- quitting Ug��before-print-hook Vg�� unspecified? Wg��after-print-hook Xf�� ;;; QUIT executed, repl exitting Yg�� peek-char Zg��char=? [g�� read-char \g��before-eval-hook ]g�� %start-stack ^]� _]� `g�� repl-stack ag��primitive-eval bg��after-eval-hook cg��wrong-type-arg dg�� out-of-range eg��list-ref fg��before-backtrace-hook gf�� Backtrace:  hg��display-backtrace ig��after-backtrace-hook jg��before-error-hook kg��apply lg�� display-error mg��after-error-hookC�5��hP�����]4   5 �4"�>��"��G���R������h������]� Cz�������g��v  ��g��filenamef��ice-9/scm-style-repl.scm '  ' �   ��g��nameg��assert-repl-silence�CRR�h������]� C�������g��v  ��g��filenamef��ice-9/scm-style-repl.scm *  * *�   ��g��nameg��assert-repl-print-unspecified�CRR�������h������]� C|�������g��v  ��g��filenamef��ice-9/scm-style-repl.scm -  - "�   ��g��nameg��assert-repl-verbosity�CR#R$%&'��������h@������-�1�3�4�5$�� 4�?"��$��C�@����������g��key =�g��args =�g��default   =�g��t  ( =��g��filenamef��ice-9/scm-style-repl.scm 9 :   : &  :   :   ;   ;  ( ;  7 <  = < � = ��g��nameg�� bad-throw�CR (����h(������-�1�3�4 >��"��G���@������������g��key #�g��args #��g��filenamef��ice-9/scm-style-repl.scm @ B  # C � # ��g��nameg��default-pre-unwind-handler�CR)R*+��h8������]4M>���"��G��N"�� 4L�5��"4L�5��"C��������������g��v  $��g��filenamef��ice-9/scm-style-repl.scm R   S   Y   Z   [ ! $ [  $ Z  % Z ' / Z �  1 ���C��h���S���]�L�LO�6�K�������g��filenamef��ice-9/scm-style-repl.scm P   Q �   ���C,-(./01234567)89:;<=>?����h�����]�4>��"��G��445�>��"��G��445�>��"��G��4L45�>��"��G��4 45�>��"��G��M�$��x $��"��4  4 5�5$��"��4[5$��34 45�>��"��G��445�>��"��G�� "���445�>��"��G��"��4 >��"��G�� Cy������g��filenamef��ice-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 $��L�L@L�L@q�������g��filenamef��ice-9/scm-style-repl.scm �   � % � "  �   � " � "�  ���C����hH������-�1�3��$��NC�$��@�$�� L�O�C�O�C���������g��key F�g��args F��g��filenamef��ice-9/scm-style-repl.scm ^   _   a  ! _  % e & ) e  2 _ � F ���C���h8������] �H�4L��O�LLO�5$��H�"MC������������g��first  3�g��next 3��g��filenamef��ice-9/scm-style-repl.scm L   N M  ( �  0 � �  3 ��g��nameg��loop�CA�������h���}���]�N�6��������u�������g��filenamef��ice-9/scm-style-repl.scm �   �  � �  ��g��nameg��ensure-batch-mode!�CB�������h���m���]�M�C��e�������g��filenamef��ice-9/scm-style-repl.scm �   � !�   ��g��nameg�� batch-mode?�CCD����h���L���]�C����D�������g��filenamef��ice-9/scm-style-repl.scm � �   ���C�h���U���]�L�6M�������g��filenamef��ice-9/scm-style-repl.scm �   � �   ���C��������h@������]HHO��Q�O� O� O�6������������g��thunk  ;�g��status  ;�g�� interactive   ;�g��loop   ;��g��filenamef��ice-9/scm-style-repl.scm I  J  ' �  0 �  ; � �  ; ��g��nameg��error-catching-loop�CRE�����h ������]4L4L5�>�� G�L��6����������g�� the-values  ��g��filenamef��ice-9/scm-style-repl.scm �   � "  � %  � "  �   � �   ���C���h������]�O�6��������������g��r  �g��e  �g��p   ��g��filenamef��ice-9/scm-style-repl.scm �  � �   ��g��nameg��error-catching-repl�CR3FGHIJKL� �����hx���<��]�4>��"��G��44 45�M5>��"��G��4>��"��G��44 45�M�5>��"��G��6����4������g��filenamef��ice-9/scm-style-repl.scm �   �   � # �   �   � #  � 2 % � / ( � , ) � $ + � # 0 �  9 �  = � # B �  K �  N � $ T � 3 [ � 0 ^ � - _ � % a � $ f �  r � # t � �  t ��g��nameg�� repl-report�CMNOPQR/SKH73T,��������h�����]45$��"��"45$�� 45�"��$��"���4�5��4�5$��"��4L>���"��G��4 >��"��G��4�5$��_4 5�N4 5�N� $��64 >���"��G��4>��"��G��4 >���"��G��"���4 >��"��G��"����C�������������g��prompt 5 A�g��val A ���g��filenamef��ice-9/scm-style-repl.scm �   � 0 � )  � 0  � )  � 0 - � ) / � @ 5 � 5 5 �  8 �  A �  D �  N �  S �  c �  u �   �  � � 9 � � ' � � 6 � � ' � �  � � " � � " � � + � � " � � " � � �  � ��g��nameg��-read�C/UV67W1� ���h������] $��C4�>��"��G��$��"��4�5$��&4�>��"��G��4>���"��G��"���4�>��"��G�� $��4L�>���"��G��"��� 6������������g��result  ��g��t 8��g��filenamef��ice-9/scm-style-repl.scm �   �  �  � , . � 5 5 � 0 < � ( = � . O � . c �  | �  } � ! � � �  � ���C3X7YRZ[������hh�����]45��4�5$��C4� 5$��"�� 4� 5$��4>���"��G��"4� 5$��6�C������g��ch  h�g��t  h�g��t $ =��g��filenamef��ice-9/scm-style-repl.scm �  �   �  �   �   �  $ �  2 � * A �  B �  U �  V �  b �  f � �  h ��g��nameg��consume-trailing-whitespace�CKH/\_`a�����h���U���]�L�6M�������g��filenamef��ice-9/scm-style-repl.scm �   � ,�   ���Cb� �����hP������] 45�N45�N�4�>��"��G��4�O�54�>��"��G��C������������g��sourc  K�g��val 2 K��g��filenamef��ice-9/scm-style-repl.scm �   � 9 � ' � 6  � '  �  % �  ) � , 2 �  2 �  5 � �  K ��g��nameg��-eval�C� h�����]@HH�O�O�O�"��?$��64>��"��G��4>���"��G��4>���"��G��"���CO��Q��Q�Q�Q�K�K4  �O�5"o������g�� start-gc-rt  ��g��start-rt  ��g��args  ' f�g�� repl-report  n ��g��-read  n ��g��-print  n ��g��consume-trailing-whitespace  n ��g�� start-gc-rt  � ��g��start-rt  � ��g��status  � ��� g��filenamef��ice-9/scm-style-repl.scm �  �  ' �  - �  . �  2 � # 7 �  @ �  P �  n �  � �  � �  �  �  � ��g��nameg��scm-style-repl�CR5;<89:cde/f73ghijklm1(.����h0����-�1�3�45�4[5$��"��445�5$���&��"���$�� 4  5"��4  >��"��G��4 >��"��G��4 >��"��G��4[>��"��G��4 >��"��G��4 >��"��G��"���4 >��"��G��4[>��"��G��4 >��"��G��4>��"��G���6�������g��key /�g��args /�g��cep   /�g��t   ��g�� highlights  Y ���g��filenamef��ice-9/scm-style-repl.scm              &  *   +   1  5   9  . =  ! >  % F  . G  % K   L  ! Y  ! Y  \  n  �  �   �  �  �  �  �   �         +  /  �# / ��g��nameg��handle-system-error�CRC�������g��m  0��g��filenamef��ice-9/scm-style-repl.scm   4 & � ' � )  *  , ' - ) /  , / | 9 a @ e G : I  �  � N  �  P ���C6������������������������������������������������������������������������ice-9/hash-table.go���������������������������������������������������������������������������������0000644�����������������00000007662�15253700563�0010032 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�c�4���h ������]� g��guile � g��define-module* � � g��ice-9 g�� hash-table � g��filenameS f��ice-9/hash-table.scm g��exportsS g��alist->hash-table g��alist->hashq-table g��alist->hashv-table g��alist->hashx-table   � g��set-current-module � � g��make-syntax-transformer � � g��define-alist-converter g��macro g�� $sc-dispatch � � g��any � g�� syntax-object g��define g��top ! � "g��ribcage #g��dummy $g��name %g�� hash-set-proc &#$%� 'g��m-3144cc814ae864-1 (' � )(!!� *f��l-3144cc814ae864-6 +f��l-3144cc814ae864-7 ,f��l-3144cc814ae864-8 -*+,� ."&)-� /"� 0g��x 10� 2(� 3f��l-3144cc814ae864-3 43� 5"124� 6!./5� 7g��hygiene 87� 968� :g��alist ;:68� <;� =f�� Convert ALIST into a hash table. >=68� ?g��let @?68� Ag��table BA68� Cg��make-hash-table DC68� ED� FBE� GF� Hg��for-each IH68� Jg��lambda KJ68� Lg��pair ML68� NM� Og��car PO68� QPM� Rg��cdr SR68� TSM� UBQT� Vg��reverse WV68� XW;� YX� ZB� [g��syntax-violation \[� ][� ^f��-source expression failed to match any pattern _g�� hash-set! `g�� hashq-set! ag�� hashv-set! bg�� hashx-set!C�5���hx��x���]4   5�4�>��"��G���49<>@GIKNUYZ� �h0���Z���] �  �C������R�������g��dummy  *�g��name  *�g�� hash-set-proc   *��  * ���C]^�������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/hash-table.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��nameg�� hash-set-proc���C5RCH_��������h���Y���]L���6��Q�������g��pair  ��g��filenamef��ice-9/hash-table.scm ! �   ���CV��h0������] 45�4O�4�5>��"��G��C�������������g��alist  *�g��table  *��g��filenamef��ice-9/hash-table.scm ! �  * ��g��nameg��alist->hash-tableg�� documentationf�� Convert ALIST into a hash table.�C RCH`��h���Y���]L���6��Q�������g��pair  ��g��filenamef��ice-9/hash-table.scm " �   ���CV��h0������] 45�4O�4�5>��"��G��C�������������g��alist  *�g��table  *��g��filenamef��ice-9/hash-table.scm " �  * ��g��nameg��alist->hashq-tableg�� documentationf�� Convert ALIST into a hash table.�C RCHa�h���Y���]L���6��Q�������g��pair  ��g��filenamef��ice-9/hash-table.scm # �   ���CV��h0������] 45�4O�4�5>��"��G��C�������������g��alist  *�g��table  *��g��filenamef��ice-9/hash-table.scm # �  * ��g��nameg��alist->hashv-tableg�� documentationf�� Convert ALIST into a hash table.�CRCHb�h���r���]LLL���6������j�������g��pair  ��g��filenamef��ice-9/hash-table.scm )  * -  * 8  * �   ���CV�h0���5��] 45�4�O�45>��"��G��C��-������g��hash  .�g��assoc  .�g��alist   .�g��table   .��g��filenamef��ice-9/hash-table.scm %  (   (  )   +  # ) �  . ��g��nameg��alist->hashx-tableg�� documentationf��FConvert ALIST into a hash table with custom HASH and ASSOC procedures.�CRC������p�������g��m  (��g��filenamef��ice-9/hash-table.scm   [ !  " \ # p % �  r ���C6�������������������������������������������������������������������������������ice-9/popen.go��������������������������������������������������������������������������������������0000644�����������������00000052676�15253700563�0007150 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0U������]j�4����h,������]� g��guile � g��define-module* � � g��ice-9 g��popen � g��filenameS f��ice-9/popen.scm g��importsS g��threads  �  � g��srfi g��srfi-9 � � � g��exportsS g��port/pid-table g�� open-pipe* g�� open-pipe g�� close-pipe g��open-input-pipe g��open-output-pipe g��open-input-output-pipe � g��set-current-module � � g��load-extension !g�� string-append "f�� libguile- #g��effective-version $f��scm_init_popen %g�� <pipe-info> &g��%make-pipe-info-procedure 'g��make-syntax-transformer ('� )'� *g��make-pipe-info +g��macro ,g�� $sc-dispatch -,� .,� /g��_ 0g��any 1/0� 2g�� syntax-object 3g��lambda 4g�� m-18e47d61-4 5g��top 645� 7g��ribcage 8g�� t-18e47d61-3 98� :6� ;f�� l-18e47d61-9 <;� =79:<� >7� ?g��x @?� Af�� l-18e47d61-6 BA� C7@:B� Dg��shift Eg�� proc-name Fg��args GEF� H5� IHH� Jf��l-1e8ba8b5a-60 Kf��l-1e8ba8b5a-61 LJK� M7GIL� Ng��key Og��value Pg��name Qg��formals Rg��body SNOPQR� THHHHH� Uf��l-1e8ba8b5a-53 Vf��l-1e8ba8b5a-54 Wf��l-1e8ba8b5a-55 Xf��l-1e8ba8b5a-56 Yf��l-1e8ba8b5a-57 ZUVWXY� [7STZ� \g��make-procedure-name ]\� ^H� _f��l-1e8ba8b5a-43 `_� a7]^`� bH� cf��l-1e8ba8b5a-42 dc� e7@bd� f6=>CD>>>>M[ae�  gg��hygiene hg� i23fh� jg��pid kH=>C� lg� m2jkl� nm� og�� make-struct pg�� m-18e47d61-1 qp5� rg��t-1e8ba8b5a-133 sg��t-1e8ba8b5a-132 tg��t-1e8ba8b5a-131 urst� vg��m-1e8ba8b5a-134 wv5� xwww� yf��l-1e8ba8b5a-138 zf��l-1e8ba8b5a-139 {f��l-1e8ba8b5a-13a |yz{� }7ux|� ~g�� ctor-args ~� �f��l-1e8ba8b5a-120 �� �7b� �g��ctor �g��field �� �f��l-1e8ba8b5a-11c �f��l-1e8ba8b5a-11d �� �7I� �g��form �g�� type-name �g��constructor-spec �g�� field-names �� �HHHH� �f��l-1e8ba8b5a-111 �f��l-1e8ba8b5a-112 �f��l-1e8ba8b5a-113 �f��l-1e8ba8b5a-114 �� �7� �g�� record-layout �g��functional-setters �g��setters �g��copier �g��getters �g�� constructor �g��getter-identifiers �g��field-identifiers �� �HHHHHHHH� �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 �� �7� �f��l-1e8ba8b5a-da �� �7@b� �q=>CD>}>>>>� �2oh� �2%kl� �2 h� �m� �in� �g��each-any �/ �g��syntax-violation �� �� �f��Wrong number of arguments �g�� identifier? �� �� �H>C� �2&l� �� �� �f��-source expression failed to match any pattern �g��record-type-vtable �� �� �g��pw �g��default-record-printer �� �� �j� �g��set-struct-vtable-name! �� �� �g��vtable-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� �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 �5� �� �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 �� �7� �g�� copier-id �� �f��l-1e8ba8b5a-21c �� �7b� �g�� ctor-name �� �f��l-1e8ba8b5a-214 �� �7b� �� �f��l-1e8ba8b5a-212 �� �7b� g��layout � f��l-1e8ba8b5a-210 � 7b� g�� immutable? � f��l-1e8ba8b5a-20e  �  7b �  g�� field-count   �  f��l-1e8ba8b5a-20c  � 7 b� g�� getter-ids � f��l-1e8ba8b5a-209 � 7b� g�� field-ids � f��l-1e8ba8b5a-206 � 7b� g��predicate-name g�� field-spec � HHHHHH� f��l-1e8ba8b5a-1f9 f��l-1e8ba8b5a-1fa  f��l-1e8ba8b5a-1fb !f��l-1e8ba8b5a-1fc "f��l-1e8ba8b5a-1fd #f��l-1e8ba8b5a-1fe $ !"#� %7$� &q>D>>>>>>>�>> >>>%� '2&h� ('� )g��and *2)&h� +g��struct? ,2+&h� -,'� .g��eq? /2.&h� 0g�� struct-vtable 120&h� 21'� 3H>� 42%3l� 5/24� 6*-5� 7(6� 8H>� 928l� :g��throw-bad-struct ;:� <:� =g�� pipe-info-pid >g��%pipe-info-pid-procedure ?g��free-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 Lg��t-1e8ba8b5a-14b Mg��t-1e8ba8b5a-14c Ng��t-1e8ba8b5a-14d Og��t-1e8ba8b5a-14e Pg��t-1e8ba8b5a-14f Qg��t-1e8ba8b5a-150 Rg��t-1e8ba8b5a-151 SLMNOPQR� Tg��m-1e8ba8b5a-152 UT5� VUUUUUUU� Wf��l-1e8ba8b5a-156 Xf��l-1e8ba8b5a-157 Yf��l-1e8ba8b5a-158 Zf��l-1e8ba8b5a-159 [f��l-1e8ba8b5a-15a \f��l-1e8ba8b5a-15b ]f��l-1e8ba8b5a-15c ^WXYZ[\]� _7SV^� `g��getter ag��index b`a� cf��l-1e8ba8b5a-149 df��l-1e8ba8b5a-14a ecd� f7bIe� g� hHHH� if��l-1e8ba8b5a-144 jf��l-1e8ba8b5a-145 kf��l-1e8ba8b5a-146 lijk� m7ghl� nq>FD>_>>>f>m� o2Knh� p?o� q/Jp0� rg��ck sg��err tg��s ust� vBB� wf�� l-18e47d61-22 xf�� l-18e47d61-23 ywx� z7uvy� {Bz>FD>>>>M[ae�  |2r{h� }g��quote ~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��%%<pipe-info>-set-fields H>F� 2l� � � g�� t-18e47d61-1c � f�� l-18e47d61-31 � 7C� B>FD>>>>M[ae�  23h� q>FD>_>>>f>m� 2th� � g��if 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� g��each 00� � 0Č 0Ō 0ƌ g�� %%set-fields g��dummy g��check? g��expr 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@� g��t-1e8ba8b5a-16a g��t-1e8ba8b5a-16c g��t-1e8ba8b5a-16b � g��m-1e8ba8b5a-16d 5� � f��l-1e8ba8b5a-171 f��l-1e8ba8b5a-172 f��l-1e8ba8b5a-173 � 7� f��l-1e8ba8b5a-167 f��l-1e8ba8b5a-168 f��l-1e8ba8b5a-169 � 7gh� q>D>>>>�  2h� H>� 2%l� 2=l� � g��map � � g��list g��set-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�  g��t-1e8ba8b5a-18c  g��t-1e8ba8b5a-18d    �  g��m-1e8ba8b5a-18e   5�   � f��l-1e8ba8b5a-192 f��l-1e8ba8b5a-193 � 7 � g��setter P`� f��l-1e8ba8b5a-186 f��l-1e8ba8b5a-187 f��l-1e8ba8b5a-188 � 7h� a� f��l-1e8ba8b5a-17d f��l-1e8ba8b5a-17e � 7I� g�� field-specs  � !f��l-1e8ba8b5a-179 "f��l-1e8ba8b5a-17a #!"� $7 I#� %q>D>>>$� &2t%h� 'g��val (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� ?g��make-soft-port @g�� write-char Ag��display Bg�� force-output Cg�� read-char Dg�� close-port Ef��r+ Fg�� make-rw-port Gg�� make-guardian Hg�� pipe-guardian Ig��make-weak-key-hash-table Jg�� make-mutex Kg��port/pid-table-mutex Lg��apply Mg�� open-process Ng��%make-void-port Og��%set-port-property! Pg��popen-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 [g��fetch-pipe-info \g��waitpid ]g�� close-process ^g��error _f��-close-pipe: port not created by (ice-9 popen) `f��(close-pipe: pid has already been cleared ag��catch bg�� system-error cg��WNOHANG dg�� reap-pipes eg�� add-hook! fg�� after-gc-hook gg�� OPEN_READ hg�� OPEN_WRITE ig�� OPEN_BOTHC�5h@%��4��]4   5�4�>��"��G���4 i4!i"4#i5�5$>��"��G��%��h���y���]��C������q�������g��pid  ��g��filenamef��ice-9/popen.scm  �  ��g��nameg��%make-pipe-info-procedure�C&R4)*+.1��h���4���]��C������,�������g�� t-18e47d61-3  ��  ���C*��������h���R���]L�6����J�������g��a  ��g��filenamef��ice-9/popen.scm   �  ���C/������h���B���]�L�6:�������g��filenamef��ice-9/popen.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��ice-9/popen.scm  �  n ���C5*R%Ȩ��4�%>��"��G��� Ζ&i��%R%��h���u���]�$���CC������m�������g��obj  ��g��filenamef��ice-9/popen.scm  �   ��g��nameg��%pipe-info?-procedure�CR4)+.17�����h���5���]��C������-�������g�� t-18e47d61-10  ��  ���C�������h���R���]L�6����J�������g��a  ��g��filenamef��ice-9/popen.scm   �  ���C/������h���B���]�L�6:�������g��filenamef��ice-9/popen.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��ice-9/popen.scm  �  n ���C5R%<=����h���v���]�&��� C�6n�������g��s  ��g��filenamef��ice-9/popen.scm  �   ��g��nameg��%pipe-info-pid-procedure�C>R4)=+.q|������h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C�h���:���]C�����2�������g��err  �g��s  ��  ���C1�����h���5���]��C������-�������g�� t-18e47d61-1c  ��  ���C=������h���R���]L�6����J�������g��a  ��g��filenamef��ice-9/popen.scm   �  ���C/������h���B���]�L�6:�������g��filenamef��ice-9/popen.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��ice-9/popen.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��ice-9/popen.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5R%<�h ������]�&��� C�6�������������g��s  �g��val  ��g��filenamef��ice-9/popen.scm  �   ��g��nameg��%set-pipe-info-pid!-procedure�CR4)+.<���h���P���]��C����H�������g�� t-18e47d61-4a  �g�� t-18e47d61-4b  ��  ���C���h���R���]L�6����J�������g��a  ��g��filenamef��ice-9/popen.scm   �  ���C/������h���B���]�L�6:�������g��filenamef��ice-9/popen.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��ice-9/popen.scm  �  n ���C5R?@����h���Z���]�L�6������R�������g��c  ��g��filenamef��ice-9/popen.scm &  & �  ���CA�������h���Z���]�L�6������R�������g��s  ��g��filenamef��ice-9/popen.scm '  ' �  ���CB�������h���J���]�L�6B�������g��filenamef��ice-9/popen.scm (   ( �   ���CC�������h���J���]�L�6B�������g��filenamef��ice-9/popen.scm )   ) �   ���CD�������h ���R���]�4L>��"��G��L�6������J�������g��filenamef��ice-9/popen.scm *   *   * &�   ���CE��������h0������]O�O�O��O��O��6�������g�� read-port  0�g�� write-port  0��g��filenamef��ice-9/popen.scm # , %  . +  0 $ �  0 ��g��nameg�� make-rw-port�CFR4Gi5�HR4Ii 5R4Ji5�KRLMFN%HOPKS���h���B���]�L�6:�������g��filenamef��ice-9/popen.scm O �   ���CV�������h���B���]�L�6:�������g��filenamef��ice-9/popen.scm O �   ���CW������h�����-�1�3� 4�>�� G�$��$�� 45"��"��$��"��$��"��$��"��4�5�4>��"��G��4>��"��G��  O� O�4 O�>���"��G��V4  >��"��G��X4 O�>���"��G��C�������g��mode ��g��command ��g��args  ��g�� read-port   ��g�� write-port   ��g��pid   ��g��t  B r�g��port  y ��g�� pipe-info  y ��g��x  � ��� g��filenamef��ice-9/popen.scm 7 ?   >  ) A  0 B  B A  i E  y F  y A  ~ K  � L  � L " � L  � O  � P � O � �  ��g��nameg�� 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}.�CRXY���h�����]�6��������g��command  �g��mode  ��g��filenamef��ice-9/popen.scm T  Z  Z   Z �   ��g��nameg�� 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}.�CRZP���h������]�6������x�������g��port  ��g��filenamef��ice-9/popen.scm \  ]  ] �  ��g��nameg��fetch-pipe-info�C[RD\��h ������]4�>��"��G��45C����������g��port  �g��pid  ��g��filenamef��ice-9/popen.scm _  `   a   a �   ��g��nameg�� close-process�C]R[^_%<=`]� ������h�����]4�5$��"��4>��"��G��&�� "�� 45$��"��4>��"��G��&��  "��4>��"��G�� �6��������g��p  ��g�� pipe-info ��g��pid  A ���g��filenamef��ice-9/popen.scm c  g  g   h   i   i  i  * j  A j  I k  N l  R l  W l  b n  � o �  � ��g��nameg�� close-pipeg�� documentationf��Closes 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������]4L�5�� $��L6L&��L CL6������������g�� pid/status 3��g��filenamef��ice-9/popen.scm }   ~ " ~            �   � �  3 ���C�h���X���-��1��3�C�����P�������g��args ��g��filenamef��ice-9/popen.scm � � ���C� ����hh������]"��Y45���$��J�&��� "�� 4�5$��!4�O�>��"��G��"���"C"������������g�� pipe-info _�g��pid - Y��g��filenamef��ice-9/popen.scm q  r   s  s   t   u  - u  5 w 6 | : |  J | ] �  _ r �  c ��g��nameg�� reap-pipes�CdR4eifidi>��"��G��g�����h������]�6�������������g��command  ��g��filenamef��ice-9/popen.scm � � �  ��g��nameg��open-input-pipeg�� documentationf��9Equivalent to @code{open-pipe} with mode @code{OPEN_READ}�CRh��������h������]�6�������������g��command  ��g��filenamef��ice-9/popen.scm � � �  ��g��nameg��open-output-pipeg�� documentationf��:Equivalent to @code{open-pipe} with mode @code{OPEN_WRITE}�CRi������h������]�6�������������g��command  ��g��filenamef��ice-9/popen.scm � � �  ��g��nameg��open-input-output-pipeg�� documentationf��9Equivalent to @code{open-pipe} with mode @code{OPEN_BOTH}�CRC,������g��m  ,�g��rtd } ��g��filenamef��ice-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 � %> � �  %@ ���C6�������������������������������������������������������������������ice-9/documentation.go������������������������������������������������������������������������������0000644�����������������00000013442�15253700563�0010664 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0 ������]�H�4������h������]� g��guile � g��define-module* � � g��ice-9 g�� documentation � g��filenameS f��ice-9/documentation.scm g��importsS g��rdelim  �  � � g��exportsS g��file-commentary g��documentation-files g��search-documentation-files g��object-documentation � g�� autoloadsS g��regex � g�� match:suffix � � g��set-current-module � � g�� make-regexp f��^;;; Commentary: !f�� ^;;; Code: "f��^;+ #g�� regexp-exec $g��length %g��regexp? &g��string? 'g�� procedure? (g��call-with-input-file )g�� eof-object? *g��after +g��in ,g��read-delimited -f��  .g�� string-append /f��� 0g��before 1g��map 2g�� in-vicinity 3f��guile-procedures.txt 4g�� %library-dir 5g��%package-data-dir 6g�� %site-dir 7f��. 8f��  9g��entry-delimiter :g�� file-exists? ;g��symbol->string <g�� string-length =g��string=? >g�� substring ?g�� string-ref @g��find-documentation-in-file Ag��or-map Bg��procedure-documentation Cg��object-property Dg��macro? Eg��macro-transformer Fg��procedure-name Gg��set-procedure-property!C�5��h�����]4   5 �4�>��"��G��� !"#�������h ������] 4L��5$��6�C�����������g��line  �g��m ��g��filenamef��ice-9/documentation.scm g   h % h   i   i $�   ���C$%&'()*#+,-./0� ����h�����]!"��45$��"��$��C4L�5$��"��4L5$��"��&��C4�5&��"&��44L55"��"��"g4�5 "P��������g��port  ��g��line  ��g��doc   ��g�� parse-state   ��g��t  "�g�� new-state  Q ���g��filenamef��ice-9/documentation.scm ~      �  �   � *  � % & � * �  6 �  8 � : = �  I �  K � = Q �  U �  [ �  _ �  c � * g �  i � ( o �  q � < w �  x �  } � 1 � � > � �  � �  �   �   �  ) �   � �  � � �  �$  � ���C� ��h����-�1�3�HHH45K45K45O�K 45$��J"��145$��"��45$�� 45"��J 45$��J"��245$��"��45$�� 45"��J 45$��J"��4 5$��"��J � O�6�����������g��filename  �g��cust  �g��default-in-line-re   �g��default-after-line-re   �g�� default-scrub   �g��dirt  + 7�g��v  O }�g��v  � ��g��v  � ��g�� in-line-re  �  �g�� after-line-re  �  �g��scrub  �  �� g��filenamef��ice-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   } �)  ��g��nameg��file-commentary�CR41i23���h���}���]4�5�6���u�������g��vicinity  ��g��filenamef��ice-9/documentation.scm �   �  � ! � �  ���C4i5i6i7�h���T���]�C���L�������g��filenamef��ice-9/documentation.scm �  � �   ���C�5R89R:(;<,9)=>?� �����h�����]!4L�5454�>��"��G��"��{45$��C"��4�5"45$��I44 55$��045 $�� 45 6"""4�5"v��������g��port  ��g��name ��g��len   ��g��entry  , ��g��t  x ���g��filenamef��ice-9/documentation.scm �  �  � �   �  �  , �  - �  7 �  > � # L �  L �  M �  V �  Z �  [ �  ^ � # k �  o �  p �  x �  � �  � � ) � � 6 � � 3 � �  � �  � � ! � � �  � ���C�h ������]45$�� �O�6C�����������g��name  �g��file  ��g��filenamef��ice-9/documentation.scm �  �  �   � �   ��g��nameg��find-documentation-in-file�C@RA@���h���g���]L��6������_�������g��file  ��g��filenamef��ice-9/documentation.scm � � �  ���C����h(������-�1�3��O�(��"��6�������������g��name "�g��files "��g��filenamef��ice-9/documentation.scm �  � " � � " ��g��nameg��search-documentation-files�CR'BCDEFG� ��h���G��] 4�5$�� 4�5"��$��C4�5$��C4�5$��44�55"��$��C4�5$��>4�5$��14 4�55$��4 �>��"��G��"���CCC������?������g��object  ��g��t  ��g��t - ��g��t T ��g�� docstring � ���g��filenamef��ice-9/documentation.scm �  � �   �  �  % �  + �  - �  - �  9 � C �  D � G � ! O � T �  ` � j �  k � u �  v �  y �  � �  � � � � � �  � � 1 � � �  � ��g��nameg��object-documentationg�� documentationf��zReturn the docstring for OBJECT. OBJECT can be a procedure, macro or any object that has its `documentation' property set.�CRC�����������g��m  0��g��filenamef��ice-9/documentation.scm  P  ]  �   �   �   �  �   � \ � �  � �   ���C6�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/eval-string.go��������������������������������������������������������������������������������0000644�����������������00000007443�15253700563�0010252 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0 ������]�G�4�������hm������]� g��guile � g��define-module* � � g��ice-9 g�� eval-string � g��filenameS f��ice-9/eval-string.scm g��importsS g��system g��base g��compile   � � g��language   � � g��vm g��program  � � � g�� replacementsS � g��set-current-module � � g�� language? g��lookup-language g��ensure-language !g��langS "!  #"� $g��current-language %g�� parameter? &%� '%� (g�� scm-error )g��wrong-type-arg *f�� parameterize +f��Not a parameter: ~S ,g��language-reader -g��current-module .g�� eof-object? /g��language-evaluator 0g�� read-and-eval 1g��moduleS 21  3g��fileS 43  5g��lineS 65  7g��columnS 87  9!  :g��compile?S ;:  <24689;� =g��call-with-input-string >g��set-port-filename! ?g��set-port-line! @g��set-port-column! Ag�� make-program Bg��read-and-compile Cg��fromS Dg��toS Eg��objcode Fg��save-module-excursionC�5������h ��q���]4   5�4�>��"��G�������h������]4�5$���C�6���������g��x  ��g��filenamef��ice-9/eval-string.scm         �   ��g��nameg��ensure-language�C R#$'()*+ ,-./$-,.�����hP�����]4445�5�45�>�� G4445�5L45�545$��E�"����������g��exp  L�g��vals  L�g��next  3 L��g��filenamef��ice-9/eval-string.scm +  $   $   $  $   $ 3  $   , "  ! "  $ "  * "  - " 1 3 "  3 /  6 1  @ 0  D 2  L 4 �  L ��g��nameg��lp�C� h���Q��-�/���0���3�#��45�45$��"��4�>��"��G�� 4 455Y44 45�5�4 5�54 5$��"�� O��Q�4>��ZCZFI������g��port  ��g��lang  ��g��t-6f52a6ff84e411f-7  " ��g��exp  x ��g��lp  � ���g��filenamef��ice-9/eval-string.scm    ) "  Z # b  e "  f "  i "  o "  r " 1 x "  x &  { ' � '  � + �  � g��langS ���g��nameg�� read-and-eval�C0R<-$ =>?@/ABCDE0!� ���h������]�L$��4L>��"��G��"���L$��4LL>��"��G��"���L$��4LL>��"��G��"���L$��4LL>��"��G��"���L�$��"��4L5$��44LL  556� L L6��������g��filenamef��ice-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 �  � ���CF�����h���X���]�4L>��"��G��L�6�P�������g��filenamef��ice-9/eval-string.scm @  A  B �   ���C�����h8������] O�LLLLL��LQ�L$�� LO�66��������g��port  8�g��thunk  8��g��filenamef��ice-9/eval-string.scm H   I  ' >  4 ?  8 C �  8 ���C��������hx���s��-�/���0���3�#��45�#��#��#��#��45�#��45�O�6�������k������g��str  q�g��module  q�g��file   q�g��line   q�g��column   q�g��lang   q�g��compile?   q�g��lang  X q��g��filenamef��ice-9/eval-string.scm 6  7  B ;  R E  X E  q F �  q g��moduleS g��fileS g��lineS g��columnS g��langS g��compile?S ���g��nameg�� eval-string�CRCi�������g��m  ,��g��filenamef��ice-9/eval-string.scm   �    6 �  ���C6������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/occam-channel.go������������������������������������������������������������������������������0000644�����������������00000071021�15253700563�0010500 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0q������]�4�����h-������]� g��guile � g��define-module* � � g��ice-9 g�� occam-channel � g��filenameS f��ice-9/occam-channel.scm g��importsS g��oop g��goops   � � g��threads � � � g��exportsS g��alt g��oc:lock g�� oc:unlock g��oc:consequence g��oc:immediate-dispatch g��oc:late-dispatch g��oc:first-channel g��oc:set-handshake-channel g��oc:unset-handshake-channel g�� make-channel g��? g��! !g�� make-timer "g��handshake-channel #g��mutex $g��sender-waiting? %g��immediate-receive &g�� late-receive ' !"#$%&� (g��set-current-module )(� *(� +g��no-data ,+� -g��receiver-waiting .-� /g��toplevel-define! 0/� 1/� 2g�� <channel> 3g�� make-class 4g��nameS 5g��defined? 65� 75� 8g��is-a? 98� :8� ;g��<class> <;� =;� >g��memq ?g��<object> @?� A?� Bg��class-precedence-list CB� DB� Eg��class-redefinition FE� GE� Hg�� <accessor> IH� JH� Kg��ensure-accessor LK� MK� Ng��data Og��cv Pg��<data-channel> Qg��accessorS Rg�� init-valueS Sg�� init-formS Tg��make-condition-variable UT� Vg�� init-thunkS Wg�� make-mutex XW� Yg�� initialize Zg��make [Z� \Z� ]g�� <generic> ^]� _]� `g�� add-method! a`� b`� cg��<method> dc� ec� fg�� specializersS gg��<top> hg� ig� jg��formalsS kg��ch lg��initargs mkl� ng��bodyS og�� next-method po� qg��set! r"k� sqrk� tps� ug��make-procedureS vg��setter wv� xv� yg�� procedureS zZP� {z� |k� }g��not ~g��eq? Nk� �~+� �}� �� �g��receiver-waiting? �~-� �� �g��signal-condition-variable �Ok� �� �g��let �g��res �� �� �q+� �� �� �� �g�� lock-mutex �#k� �� �g��cond �k� �g�� unlock-mutex �� �g�� scm-error �g��quote �g�� misc-error �� �� �f��*another process is already receiving on ~A �g��list �k� �� �� �$k� �%k� �� �g��else �q-� �g��wait-condition-variable �� �&k� �� �� �� �� �� �� �g�� *unspecified* � k� �� �g��x �k� �#r� �� �q� �Or� �� �� �� � � �f��(another process is already sending on ~A �� �� �� �� �� �g��port �g��<port-channel> �g�� init-keywordS �g��portS �g��<port> �� �Z� �� �g��read �k� �� �� �g��write �� �� �g��<timer-channel> �g�� the-timer �g��timer-cv �g�� timer-mutex �g�� timeofday->us �g�� us->timeofday �g�� gettimeofday �� �� �� �g�� <integer> �g��t �k� �� �� �� �� �� �g��make-syntax-transformer �� �� �g��macro �g�� $sc-dispatch �� �� �g��any �g��free-id �g�� syntax-object �g��top �� �g��ribcage �� �� �g��m-17d5859fdf6989b4-ca �� �� �f��l-17d5859fdf6989b4-cc �� �� �� �g��hygiene �� �� �� �� �g��each-any � �� g��dummy g��form k� � f��l-17d5859fdf6989b4-cf f��l-17d5859fdf6989b4-d0 f��l-17d5859fdf6989b4-d1  �   �   �   �  # � � � g��exp k� � f��l-17d5859fdf6989b4-d6 f��l-17d5859fdf6989b4-d7 f��l-17d5859fdf6989b4-d8 f��l-17d5859fdf6989b4-d9 � � � � #�  � � f��l-17d5859fdf6989b4-df  f��l-17d5859fdf6989b4-e0 !f��l-17d5859fdf6989b4-e1 " !� #"� $#� %$� &g��syntax-violation '&� (&� )f��-source expression failed to match any pattern *g��m-17d5859fdf6989b4-e5 +*� ,+� -f��l-17d5859fdf6989b4-e7 .-� /,.� 0/� 10� 21� 32� 43 54� 6+� 7f��l-17d5859fdf6989b4-ea 8f��l-17d5859fdf6989b4-eb 9f��l-17d5859fdf6989b4-ec :789� ;6:� <;/� =<� >#<� ?4 @?� A+� Bf��l-17d5859fdf6989b4-f1 Cf��l-17d5859fdf6989b4-f2 Df��l-17d5859fdf6989b4-f3 Ef��l-17d5859fdf6989b4-f4 FBCDE� GAF� HG/� IH� J#H� Kf��l-17d5859fdf6989b4-fa Lf��l-17d5859fdf6989b4-fb Mf��l-17d5859fdf6989b4-fc NKLM� O6N� PO/� QP� R� Sg��=> Tg��m-17d5859fdf6989b4-100 UT� VU� Wf��l-17d5859fdf6989b4-102 XW� YVX� ZY� [SZ� \[� ]� ^] _^ `\_� ag��lambda bg��e1 cg��e2 dNabc� eU� ff��l-17d5859fdf6989b4-10a gf��l-17d5859fdf6989b4-10b hf��l-17d5859fdf6989b4-10c if��l-17d5859fdf6989b4-10d jf��l-17d5859fdf6989b4-10e kf��l-17d5859fdf6989b4-10f lfghijk� mdel� nmY� on� p qp rg��begin sNbc� tU� uf��l-17d5859fdf6989b4-118 vf��l-17d5859fdf6989b4-119 wf��l-17d5859fdf6989b4-11a xf��l-17d5859fdf6989b4-11b yuvwx� zsty� {zY� |r{� }g��m-17d5859fdf6989b4-121 ~}� ~� f��l-17d5859fdf6989b4-123 � � � � � �  � kb� ~� f��l-17d5859fdf6989b4-126 f��l-17d5859fdf6989b4-127 f��l-17d5859fdf6989b4-128 � � � $� � %�  � g��and kb� ~� f��l-17d5859fdf6989b4-12e f��l-17d5859fdf6989b4-12f f��l-17d5859fdf6989b4-130 f��l-17d5859fdf6989b4-131 � � � � $� � %� g��m-17d5859fdf6989b4-13f � � f��l-17d5859fdf6989b4-141 � � � � � �  � � f��l-17d5859fdf6989b4-144 f��l-17d5859fdf6989b4-145 f��l-17d5859fdf6989b4-146 � � � $� � &�  � � f��l-17d5859fdf6989b4-14c f��l-17d5859fdf6989b4-14d f��l-17d5859fdf6989b4-14e f��l-17d5859fdf6989b4-14f � � � � $� � &� b� f��l-17d5859fdf6989b4-156 f��l-17d5859fdf6989b4-157 f��l-17d5859fdf6989b4-158 � � � � � g��m-17d5859fdf6989b4-15c � � f��l-17d5859fdf6989b4-15e � � � � � �   ܌ ی  ߌ g�� first-channel g��c1 g��c2 � � f��l-17d5859fdf6989b4-175 f��l-17d5859fdf6989b4-176 f��l-17d5859fdf6989b4-177 � � � � g��m-17d5859fdf6989b4-17c � � f��l-17d5859fdf6989b4-17e � � � � � �  � g�� handshake kb� � f��l-17d5859fdf6989b4-181 f��l-17d5859fdf6989b4-182 f��l-17d5859fdf6989b4-183 f��l-17d5859fdf6989b4-184 �� �� � q� "�  � kb� �  f��l-17d5859fdf6989b4-18a  f��l-17d5859fdf6989b4-18b  f��l-17d5859fdf6989b4-18c  f��l-17d5859fdf6989b4-18d  f��l-17d5859fdf6989b4-18e      � � � � q� "� � b� f��l-17d5859fdf6989b4-195 f��l-17d5859fdf6989b4-196 f��l-17d5859fdf6989b4-197 f��l-17d5859fdf6989b4-198 � � � � g��m-17d5859fdf6989b4-19d �  � !f��l-17d5859fdf6989b4-19f "!� # "� $#� %$� &%� '&� (' )(� *� +f��l-17d5859fdf6989b4-1a2 ,f��l-17d5859fdf6989b4-1a3 -f��l-17d5859fdf6989b4-1a4 .+,-� /*.� 0/#� 1q0� 2"0� 3( 43� 5� 6f��l-17d5859fdf6989b4-1a9 7f��l-17d5859fdf6989b4-1aa 8f��l-17d5859fdf6989b4-1ab 9f��l-17d5859fdf6989b4-1ac :6789� ;5:� <;#� =<� >q<� ?"<� @f��l-17d5859fdf6989b4-1b2 Af��l-17d5859fdf6989b4-1b3 Bf��l-17d5859fdf6989b4-1b4 C@AB� D*C� ED#� FE� Gg��_ HG� I� Jf��l-17d5859fdf6989b4-1bd KJ� LIK� Mg�� else-clause? NM� O� Pf��l-17d5859fdf6989b4-1ba QP� RNOQ� Sf��l-17d5859fdf6989b4-1b9 TS� UIT� VLRU� WV� XW� YX ZGY� [G \� ]� ^f��l-17d5859fdf6989b4-1c6 _f��l-17d5859fdf6989b4-1c7 `^_� a\]`� baLRU� cGb� df��l-17d5859fdf6989b4-1d9 ef��l-17d5859fdf6989b4-1da fde� g\]f� hgRU� irh� jh� kg��append lk� mk� ng��map on� pn� qh� rh� sh� th� uh� vkh� wh� xh� yv� zh� {Oh� |{v� }#h� ~}v� z|~� h� h� h� r� f��l-17d5859fdf6989b4-1d1 f��l-17d5859fdf6989b4-1d2 � \]� RU� r� � � � � � � �C�5�����h?����]4   '5�4*�>��"��G���,+R.-R"��'41243i����425>��"��tG��"��m4725$��^4:2i=5$��G4>iA4D2i55$��)4G2i43i����425>��"��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"i�NQNiR+i�OQOiSUVT�h���K���]�6���C�������g��filenamef��ice-9/occam-channel.scm  - �   ���C�#Q#iSXVW������h���K���]�6���C�������g��filenamef��ice-9/occam-channel.scm  . &�   ���C��4P5>��"�G��"�|47P5$�m4:Pi=5$�V4>iA4DPi55$�84GPi43i2i�"Q"i�NQNiR+i�OQOiSUVT�����h���K���]�6���C�������g��filenamef��ice-9/occam-channel.scm  - �   ���C�#Q#iSXVW������h���K���]�6���C�������g��filenamef��ice-9/occam-channel.scm  . &�   ���C��4P5>��"��G��"��"b"��"Z"��"R47Y5��$��"��Yi�$��!41Y4\_4Y5>��"��G��"���4bYi4\efPii�jmntux"��������h(���x���]4L��>��"��G��45��6�����p�������g��ch  #�g��initargs  #��g��filenamef��ice-9/occam-channel.scm 0 # 2 �  # ���C�����h���h���]�O�C������`�������g��real-next-method  ��g��filenamef��ice-9/occam-channel.scm 0 �  ���Cy5 >��"��G��475��$��"��i�$��!414\_45>��"��G��"���4bi4\efjn{uyZP�h���Q���]�6I�������g��filenamef��ice-9/occam-channel.scm 4  5 �   ���C5 >��"��G��47$5��$��"��$i�$��!41$4\_4$5>��"��G��"���4b$i4\efPi�j|nuyN+����h���r���]4�5C��j�������g��ch  ��g��filenamef��ice-9/occam-channel.scm 7  8 8  8 �   ���C5 >��"��G��475��$��"��i�$��!414\_45>��"��G��"���4bi4\efPi�j|nuyN-���h���j���]4�5C���b�������g��ch  ��g��filenamef��ice-9/occam-channel.scm :  ;  ; �  ���C5 >��"��G��47%5��$��"��%i�$��!41%4\_4%5>��"��G��"���4b%i4\efPi�j|nuyONx+�����h@������] 44�5>��"��G��4�5445�>��"��G��C���������g��ch  >�g��res >��g��filenamef��ice-9/occam-channel.scm =  >   >   >   ? ?  # @ �  > ���C5 >��"��G��47&5��$��"��&i�$��!41&4\_4&5>��"��G��"���4b&i4\efPi�j|nuyNx+�h(������] 4�5445�>��"��G��C�z�������g��ch  '�g��res '��g��filenamef��ice-9/occam-channel.scm C  D D  E �  ' ���C5 >��"��G��475��$��"��i�$��!414\_45>��"��G��"���4bi4\efPi�j|nuy#$%xN-O&�������h���O��] 44�5>��"��G��4�5$��,44�5>��"��G��4��5"��T4 �5$�� 4 �5"��>44  5� >��"��G��44�54�5>��"��G��4�544�5>��"��G��CG������g��ch  ��g��res � ���g��filenamef��ice-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 >��"��G��47 5��$��"�� i�$��!41 4\_4 5>��"��G��"���4b i4\efPi�j|nuy ��������h���b���]�6�������Z�������g��ch  ��g��filenamef��ice-9/occam-channel.scm X Y �  ���C5 >��"��G��47 5��$��"�� i�$��!41 4\_4 5>��"��G��"���4b i4\efPigi�jnuy#"xNO$ �����h�����]444�55>��"��G��4�5$��9445�>��"��G��444�55>��"��G��"��~4 �5$��<4 44�55>��"��G��4   ��>��"��G��"��7445�>��"��G��44�54�5>��"��G�� 44�556������g��ch  ��g��x  ���g��filenamef��ice-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 >��"��G��475��$��"�� 4:iJ5�$��1414M475$��i"��5>��"��G��"���475$��4:i=5$��4>iA4Di55$��<4Gi43i2i�Qi��45>��"��G��"��64143i2i�Qi��45>��"��G��"��64143i2i�Qi��45>��"��G��"��64143i2i�Qi��45>��"��G��475��$��"��i�$��!414\_45>��"��G��"���4bi4\efi�jnuyZ��������h���d���]�6����\�������g��port  ��g��filenamef��ice-9/occam-channel.scm n o �  ���C5 >��"��G��475��$��"��i�$��!414\_45>��"��G��"���4bi4\efi�j|nuy�h���j���]4�56���b�������g��ch  ��g��filenamef��ice-9/occam-channel.scm q  r  r �  ���C5 >��"��G��47 5��$��"�� i�$��!41 4\_4 5>��"��G��"���4b i4\efi�j|nuy���h���j���]4�56���b�������g��ch  ��g��filenamef��ice-9/occam-channel.scm t  u u �  ���C5 >��"��G��"��+4143i2i���45>��"��xG��"��q475$��b4:i=5$��K4>iA4Di55$��-4Gi43i2i���45>��"��G��"��"t"��"l"��"d4Zii5R4Ti5�R4Wi5�R�������h���`���]�C���X�������g��filenamef��ice-9/occam-channel.scm ~ �   ��g��nameg�� make-timer�C!R���h������]�����B@��C�����������g��t  ��g��filenamef��ice-9/occam-channel.scm �  �   �   �   � �   ��g��nameg�� timeofday->us�CR���h ������]������B@������B@C�����������g��n  ��g��filenamef��ice-9/occam-channel.scm �  �   �   � �   ��g��nameg�� us->timeofday�CR475��$��"��i�$��!414\_45>��"��G��"���4bi4\efi�j|nuy��h���m���]45�6�����e�������g��ch  ��g��filenamef��ice-9/occam-channel.scm �  �  � �  ���C5 >��"��G��475��$��"��i�$��!414\_45>��"��G��"���4bi4\efii�jnuy����h8������]4>��"��G��445>��"��G��6����������g��ch  5�g��t  5��g��filenamef��ice-9/occam-channel.scm �  �   �   � 0 ' �  5 � �  5 ���C5 >��"��G��4  ���h���O���]��C�G�������g��dummy  �g��ch  �g��form   ��   ���C����h���`���]��C�X�������g��dummy  �g��exp  �g��ch   �g��form   ��   ���C%������h���P���]C���H�������g��dummy  �g��exp  �g��form   ��   ���C()� ������hP���$��]4�5$��@4�5$��@4�5$��@ �6������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��ice-9/occam-channel.scm � �  P ��g�� macro-typeg�� syntax-rulesg��patternsg��?g��ch�g��formg��...��g��expg��?g��ch�g��formg��...��g��expg��formg��...����C5R45=>��������h���O���]��C�G�������g��dummy  �g��ch  �g��form   ��   ���C@IJ����h���`���]��C�X�������g��dummy  �g��exp  �g��ch   �g��form   ��   ���CQ������h���P���]C���H�������g��dummy  �g��exp  �g��form   ��   ���C()� ������hP���$��]4�5$��@4�5$��@4�5$��@ �6������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��ice-9/occam-channel.scm � �  P ��g�� macro-typeg�� syntax-rulesg��patternsg��?g��ch�g��formg��...��g��expg��?g��ch�g��formg��...��g��expg��formg��...����C5R4Rh���?���]C���7�������g��dummy  �g��data  ��   ���C`o�������h������]��C��z�������g��dummy  �g��data  �g��lambda   �g��x   �g��e1   �g��e2   ��   ���Cq|����h���_���]C��W�������g��dummy  �g��data  �g��e1   �g��e2   ��   ���C()� �������hP�����]4�5$��@4�5$��@4�5$��@ �6������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��ice-9/occam-channel.scm � �  P ��g�� macro-typeg�� syntax-rulesg��patternsg��data�g��datag��=>g��lambdag��x�g��e1g��e2g��...��g��datag��e1g��e2g��...���C5R4����h ���M���]���C������E�������g��dummy  �g��ch  �g��e1   ��   ���C��������h(���^���]����C�������V�������g��dummy  !�g��exp  !�g��ch   !�g��e1   !��  ! ���C�����h���N���]CF�������g��dummy  �g��exp  �g��e1   ��   ���C()� hP�����]4�5$��@4�5$��@4�5$��@ �6������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��ice-9/occam-channel.scm � �  P ��g�� macro-typeg�� syntax-rulesg��patternsg��?g��ch�g��e1g��...��g��expg��?g��ch�g��e1g��...��g��expg��e1g��...����C5R4���h ���M���]���C������E�������g��dummy  �g��ch  �g��e1   ��   ���C��������h(���^���]����C�������V�������g��dummy  !�g��exp  !�g��ch   !�g��e1   !��  ! ���C��������h���N���]C���F�������g��dummy  �g��exp  �g��e1   ��   ���C()� hP�����]4�5$��@4�5$��@4�5$��@ �6������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��ice-9/occam-channel.scm � �  P ��g�� macro-typeg�� syntax-rulesg��patternsg��?g��ch�g��e1g��...��g��expg��?g��ch�g��e1g��...��g��expg��e1g��...����C5R4������h���]���]C���U�������g��dummy  �g��ch  �g��e1   �g��c2   ��   ���C������h���n���]C���f�������g��dummy  �g��exp  �g��ch   �g��e1   �g��c2   ��   ���Cp��������h���M���]CE�������g��dummy  �g��c1  �g��c2   ��   ���C()� �hP���4��]4�5$��@4�5$��@4�5$��@ �6,������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��ice-9/occam-channel.scm � �  P ��g�� macro-typeg�� syntax-rulesg��patternsg��?g��ch�g��e1g��...�g��c2g��...�g��expg��?g��ch�g��e1g��...�g��c2g��...�g��c1g��c2g��...���C5R4��������h���d���]��C�������\�������g��dummy  �g��ch  �g��e1   �g�� handshake   ��   ���C����h���u���]���Cm�������g��dummy  �g��exp  �g��ch   �g��e1   �g�� handshake   ��   ���C�h���e���]C���]�������g��dummy  �g��exp  �g��e1   �g�� handshake   ��   ���C()� �hP���E��]4�5$��@4�5$��@4�5$��@ �6=������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��ice-9/occam-channel.scm � �  P ��g�� macro-typeg�� syntax-rulesg��patternsg��?g��ch�g��e1g��...�g�� handshake�g��expg��?g��ch�g��e1g��...�g�� handshake�g��expg��e1g��...�g�� handshake���C5R4)12�������h���M���]��C�������E�������g��dummy  �g��ch  �g��e1   ��   ���C4=>?���h���^���]���CV�������g��dummy  �g��exp  �g��ch   �g��e1   ��   ���CF��������h���N���]C���F�������g��dummy  �g��exp  �g��e1   ��   ���C()� hP�����]4�5$��@4�5$��@4�5$��@ �6������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��ice-9/occam-channel.scm � �  P ��g�� macro-typeg�� syntax-rulesg��patternsg��?g��ch�g��e1g��...��g��expg��?g��ch�g��e1g��...��g��expg��e1g��...����C5R4H�����h������]�C�����������   ���CZ��h���:���]C����2�������g��e1  �g��e2  ��   ���C[c����h���m���]L�6�����e�������g��c1  �g��c2  ��g��filenamef��ice-9/occam-channel.scm � �  ���C()� �hX������]4�5$��@4�5$��@4�5$�� L�O�@ �6����������g��x  U�g��tmp U�g��tmp  " U�g��tmp  9 U��g��filenamef��ice-9/occam-channel.scm � �  U ��g��nameg�� else-clause?�C[ijmpj�h���@���]��C������8�������g��tmp-17d5859fdf6989b4-1e3  ��  ���Cqrstt�����h���@���]��C������8�������g��tmp-17d5859fdf6989b4-1e1  ��  ���Cuvwxyxy�������h���@���]�C�����8�������g��tmp-17d5859fdf6989b4-1e0  ��  ���C���h���@���]��C������8�������g��tmp-17d5859fdf6989b4-1df  ��  ���C������h���@���]��C������8�������g��tmp-17d5859fdf6989b4-1de  ��  ���C������h���@���]��C������8�������g��tmp-17d5859fdf6989b4-1e2  ��  ���C��h���=���]��445 ��44 5   ����445��445��45�55��5����4455�5C�5�������g��c1  ��g��c2  ���  � ���C()���h���m���]LL�6e�������g��c1  �g��c2  ��g��filenamef��ice-9/occam-channel.scm  � �   ���Cmp�������h���@���]��C������8�������g��tmp-17d5859fdf6989b4-1d7  ��  ���C�����h���@���]��C������8�������g��tmp-17d5859fdf6989b4-1d5  ��  ���C������h���@���]��C������8�������g��tmp-17d5859fdf6989b4-1d6  ��  ���C��hX���:���]��445 ��4 5�� ��44 5 5�5C�2�������g��c1  W�g��c2  W��  W ���C� ��hh������]O�Q�4�5"�� 4�5$��@�6$��4�O�?$��@""�����������g��x  d�g�� else-clause? d�g��tmp   d�g��tmp  ' >��g��filenamef��ice-9/occam-channel.scm � �  d ���C5RC���������g��m  ,�g��t � ��g��t / K�g��t  �g��t  �g��t  �g��t  �g��t x �g��t  �g��t �g��t �g��t  .�g��t  �g��t  �g��t  �g��t b w�g��t c x�g��t a v�g��t " 7�g��t $ 9��g��filenamef��ice-9/occam-channel.scm   . %  1 % 3 &  6 & ; ( � *  0  4 q 7 z : z = C  H  X  [  k [ n \ q Z t ^ w  y   y  {   {  |   |  ~ [ �  �  �  � �!  ? ���C6����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/pretty-print.go�������������������������������������������������������������������������������0000644�����������������00000056136�15253700563�0010503 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0F\������]��4�������h������]� g��guile � g��define-module* � � g��ice-9 g�� pretty-print � g��filenameS f��ice-9/pretty-print.scm g��importsS g��match  �  � g��srfi g��srfi-1 � � g��rnrs g�� bytevectors � � � g��exportsS g��truncated-print � g��set-current-module � � g�� make-string g��genwrite:newline-str g�� string-length !f��( "g��fold #f��  $f��) %g��object->string &g��display 'g��write (g��quote )f��' *g�� quasiquote +f��` ,g��unquote -f��, .g��unquote-splicing /f��,@ 0f��  1g�� substring 2g��min 3g�� generic-write 4f��� 5g��reverse-string-append 6g�� vector->list 7f��# 8g��symbol->string 9f��. :g��lambda ;g��lambda* <g��let* =g��letrec >g��define ?g��define* @g�� define-public Ag�� define-syntax Bg�� let-syntax Cg�� letrec-syntax Dg�� with-syntax Eg��if Fg��set! Gg��cond Hg��case Ig��and Jg��or Kg��let Lg��begin Mg��do Ng�� syntax-rules Og�� syntax-case Pg�� string-set! Qg�� string-ref Rg��portS SR  Tg��widthS UT  Vg��max-expr-widthS WV  Xg��display?S YX  Zg��per-line-prefixS [Z  \SUWY[� ]g��current-output-port ^X  _g��breadth-first?S `_  aSU^`� bg��%default-port-encoding cg�� port-encoding dg��catch eg��encoding-error fg��!%default-port-conversion-strategy gg��error hg��with-output-to-string ik��& �� jf��... kg��max lg��floor mf��expected a positive width ng��length og��cdr pf��#( qg�� vector-length rg�� vector-ref sg��identity tg�� bytevector? ug��format vf��#~a( wg�� array-type xg�� array-length yg�� array-ref zf��.  {g��string-prefix? |g��string-suffix? }f��~a~a~a~a ~f��#< f��> �~ �p$ �!$ �f��" � �� �g��with-output-to-portC�5hR�����]4   5�4�>��"��G���4i  5R ��������h(������]$��4L��5$�� 4�5CCC�������������g��str  "�g��col  "��g��filenamef��ice-9/pretty-print.scm 9   :  :  :   : !  : �  " ��g��nameg��out�C!"#��������h(������]L�$��4L�5$�� "��"��6��������g��i  '�g��col  '��g��filenamef��ice-9/pretty-print.scm G  :  :  H %  :  :   : !  :  ' H �  ' ���C$%&' ()*+,-./�hX����]""���$����$��V4L$��4L5$�� "��"��54LLO�5$��4L5$�� CCC4�L�$��"��5$��4L5$�� 45CCC4�L�$��"��5$��4L5$�� 45CCC�$�j�� &��$��(��yL $�� "��. $�� "�� $��"��$��"��$��4L5$��45"��"��6""| &��$��(��yL $�� "��. $�� "�� $��"��$��"��$��4L5$��45"��"��6"" &��$��(��yL $�� "��. $�� "�� $��"��$��"��$��4L5$��45"��"��6"R"N&��$��(��yL $�� "��. $�� "�� $��"��$��"��$��4L5$��45"��"��6""""�������g��obj  W�g��col  W�g��w   ��g��x   ��g��col  D t�g��col  X t�g��str  � ��g��str  � ��g��w  � S�g��x  � S�g��w   �g��head   V�g��str  V �g��w   �g��head   �g��str   �g��w  : �g��head  B �g��str   �g��w   G�g��head   �g��str   E��g��filenamef��ice-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 ��g��nameg��loop�C��h ������] O�LLL�Q��6�������g��obj  �g��col  �g��loop  ��g��filenamef��ice-9/pretty-print.scm <  = �  ��g��nameg��wr�C01 ��������hp���>��] � $��b� $��-� $��4L�5$��  "��"���"4 �5$��4L�5$�� 45CCCC�6������g��n  o�g��col  o�g��str  J l��g��filenamef��ice-9/pretty-print.scm O   P P   Q  Q   R   :   : # R  % : ) :  - : ! . :  @ R A S  E S  J S  J S R :  S : ] :  ` : ! g : �  o ��g��nameg��spaces�C ��hh�����] $��^�$��J4L5$��45"��$��#4LL�5$�� 4L�5$��L� 6CCCL�6C������g��to  h�g��col  h�g��str   2��g��filenamef��ice-9/pretty-print.scm V   W  X   X  Y   : :  # : ! * :  6 Y 7 : A Y C : ! J :  N :  U [  b \  f \ �  h ��g��nameg��indent�C234 ����h ������]�MNM�4�5N�M� C�������������g��str  ��g��filenamef��ice-9/pretty-print.scm c  d  d  e !  e   e   f �   ���C5 67!� �������h�����],�$��"���$��4LL5HH4�LLO�>��"��G��J $��)4J5$��4L5$�� 45CCC�$�� �64�5$��4L5$�� "��"��$��4L 5$�� "��"��LL6L��6�������g��obj  ��g��col  ��g��extra   ��g��pp-pair   ��g��result  & ��g��left  & ��g��str  [ }�g��l  � ��g��col  � ��g��col  � ��� g��filenamef��ice-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  � ��g��nameg��pr�C(*,.)+-/ 8!� ����h��x��]��$��"��!$��"��$��"��$��$��"��"��$��{L��$��"��.$��"��$��"��$��"��$��4L5$��4 5"��"��L6�$��|4L�5$�� �64 4 55 $��L�L64L�$��4L 5$�� "��"��5$��L�L6C$��4L 5$�� "��"��L�L6p������g��expr  �g��col  �g��extra   �g��head   Z�g��tail   Z�g��head  g ��g��str  � ��g��head  � �g��proc  � a�g��col*  G a�g��col   �� g��filenamef��ice-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   ��g��nameg��pp-expr�C$9��������h���/��]%"��$��|$��4(��"�� 4L4L55"(��4L�5$�� CCL4L4L4L4L55556C�"p��'������g��l  ��g��col1  ��g��col2   ��g��extra   ��g��pp-item   ��g��l   ��g��col   ��g��rest   G�g��extra  & G�� g��filenamef��ice-9/pretty-print.scm �   �  �   �   �  �  �   � # ! � 4 & �  + �  0 � " 1 � * ? �  G �  M � N : R �  T : X :  [ : ! \ :  c �  d �  i �  n � * r � / s � 3 } � *  �  � �  � �  � �  � � �#  � ��g��nameg��pp-down�C!#�h��P��]?"��m"��    "��Y$��K$��@   (��"��   4L 4L  5 5   "�� """��c"��L� 6$��G$��<   (��"��   4L 4L  5 5 "�� """��L� 6��4L$��4L5$�� "��"��5 "��     "$��U$��J  4L  $��4L5$�� "��"��5       "u""�������H������g��expr  �g��col  �g��extra   �g��named?   �g��pp-1   �g��pp-2   �g��pp-3   �g��rest   s�g��col1   s�g��col2  s�g��col3  s�g��val1 . k�g��rest 3 k�g��extra C k�g��rest  w ��g��col1  w ��g��col2 w ��g��col3 w ��g��val1 � ��g��rest � ��g��extra � ��g��rest  � ��g��col1  � ��g��col2 � ��g��head  � �g��rest  � �g��col*  �g��name J �g��rest O �g��col** w ��g��filenamef��ice-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   ��g��nameg�� pp-general�C!��h8������] $��4L�5$�� "��"��L�L6��������������g��l  1�g��col  1�g��extra   1�g��col  ! 1��g��filenamef��ice-9/pretty-print.scm �   :  : �   :  :   : !  :  ! �  1 � �  1 ��g��nameg�� pp-expr-list�C���h������]L�LL�6�������������g��expr  �g��col  �g��extra   ��g��filenamef��ice-9/pretty-print.scm �   � �   ��g��nameg�� pp-LAMBDA�C!��hH���(��] 4L��$��4L5$�� "��"��5$��L�L6C����� ������g��expr  C�g��col  C�g��extra   C�g��col*  ) C��g��filenamef��ice-9/pretty-print.scm �   �   �   :   :  � &  :  :   : !  :  ) �  ) �  1 �  6 �  ; � & A � �  C ��g��nameg��pp-COND�C������h������]L�LLL�6������������g��expr  �g��col  �g��extra   ��g��filenamef��ice-9/pretty-print.scm �   � �   ��g��nameg��pp-DO�C:;<=>?@ABCDEF�������h������]L�L�L�6�������������g��expr  �g��col  �g��extra   ��g��filenamef��ice-9/pretty-print.scm �   � �   ��g��nameg��pp-IF�CGH������h������]L�LL�6�������������g��expr  �g��col  �g��extra   ��g��filenamef��ice-9/pretty-print.scm �   � �   ��g��nameg��pp-CASE�CIJ!��������hH���'��] 4L��$��4L5$�� "��"��5$��L�L6C�����������g��expr  C�g��col  C�g��extra   C�g��col*  ) C��g��filenamef��ice-9/pretty-print.scm �   �   �   :   :  � &  :  :   : !  :  ) �  ) �  1 �  6 �  ; � & A � �  C ��g��nameg��pp-AND�CK�����h0�����]�$��"��L�LL�6�������������g��expr  *�g��col  *�g��extra   *�g��rest   *�g��named?   *��g��filenamef��ice-9/pretty-print.scm �   �   �  �   �   � 0  � '  �  * � �  * ��g��nameg��pp-LET�CL��h������]L�L�6��������������g��expr  �g��col  �g��extra   ��g��filenamef��ice-9/pretty-print.scm �   � �   ��g��nameg��pp-BEGIN�CMNO�h������]L�LL�6�������������g��expr  �g��col  �g��extra   ��g��filenamef��ice-9/pretty-print.scm �   � �   ��g��nameg��pp-SYNTAX-CASE�C��������hX��z���]�$��"���$��"��u�$��"��g�$��"��Y�$��"��K�$��"��=�$��"��/�$��"��!� $��"��� $��"��� $��LC� $��"��� $�� L�LO�C�$��LC�$�� LL�LO�C�$��"���$��LLLL�O�C�$�� L�LLO�C�$�� L�LO�C�$��LC�$��LC�$�� L�LLO�CCr�������g��head  X��g��filenamef��ice-9/pretty-print.scm �  � �  X ��g��nameg��style�C� ��h����]ZO�O�O�O�O�O�O�O�  O�  O�  O�  LQ�LLQ�LLLLLQ� LLQ�LL�Q�LLQ�LQ�Q� LLQ� Q�  LL  Q� � 6�������|������g��obj  �g��col  �g��spaces  � �g��indent  � �g��pr  � �g��pp-expr  � �g��pp-down  � �g�� pp-general  � �g�� pp-expr-list  � �g�� pp-LAMBDA � �g��pp-COND � �g��pp-DO � �g��style � �� g��filenamef��ice-9/pretty-print.scm M   � �   ��g��nameg��pp�C �����h���r��]O�O�O�Q�Q�Q�45$�� 45"���$��44� 5>��"��G��"��4� >��"��G��C�����j������g��obj  ��g��display?  ��g��width   ��g��max-expr-width   ��g��per-line-prefix   ��g��output   ��g��out  " ��g��wr  " ��g��pp  " ��� g��filenamef��ice-9/pretty-print.scm $ B : L :  N : ! U :  ` �  a �  f �  r �   � �  � ��g��nameg�� generic-write�C3R PQ������h�����]*�$��n�454L��5"��7$��+445>��"��G��"C 45"6���������g��l  }�g��i  }�g��str  w�g��len   w�g��result  $ w�g��j  * a�g��k  * a��g��filenamef��ice-9/pretty-print.scm                       ( "  0 $   $   *   /   3  4   ;  $ H   S   V   ^   a   c  " l   o   w   }  �  } ��g��nameg��rev-string-append�C��������h������] O�Q�� 6���������g��l  �g��rev-string-append ��g��filenamef��ice-9/pretty-print.scm �   �   ��g��nameg��reverse-string-append�C5R\]43 &��h���c���]4�L�>��"��G��C[�������g��s  ��g��filenamef��ice-9/pretty-print.scm $   $ �   ���C��h�����-�/���0���3�#��#��$��"��45�#�� O#�� 2#��#���45O�6�������������g��obj  y�g��port*  y�g��port   y�g��width   y�g��max-expr-width   y�g��display?   y�g��per-line-prefix   y��g��filenamef��ice-9/pretty-print.scm  (   /  ' Z  ( e !  l !  y  �  y g��portS g��widthS g��max-expr-widthS g��display?S g��per-line-prefixS ���g��nameg�� pretty-printg�� documentationf�Pretty-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&i��������h���\���]�6T�������g��filenamef��ice-9/pretty-print.scm E   @   F �   ���C�h���\���]�Y4>��ZCZF��T�������g��filenamef��ice-9/pretty-print.scm B  C = D �   ���Cj������h���x���-�1�3�C����p�������g��key �g��args ��g��filenamef��ice-9/pretty-print.scm G H � ���C &bchkl�����h8������]�L4LLL5L�$��4 4LLL55"��LL6������������g��filenamef��ice-9/pretty-print.scm \   ] $  ^ $  _ (  ` 1 ! ` A " ` 8 $ ` 1 % ` - ' _ ( 0 a 1 1 a ( 3 ] �  3 ���C �����h���o��]%"�� $��4 >��"��G��"���$��C"��iL$��M64L5Y4LLL�O�5Z4>��"��G��4545"e$��> $��"�� $��L�45 $��"��6"O"K� " ����g������g��x  ��g��width  ��g��len   ��g��ref   ��g��next   ��g��x   ��g��width   ��g��i   ��g��t  ) ��g��str  n ��g��t  � ��� g��filenamef��ice-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 �$  � ��g��nameg��print-sequence�Cgm&!n����h���r���]�C��j�������g��x  �g��i  ��g��filenamef��ice-9/pretty-print.scm     *�   ���Co$7pqrstuvwxyzhl��h(������]�LLL�$��4L  5"��L 6����������g��filenamef��ice-9/pretty-print.scm p   q " r "  s &  s 0  s -  s & # t & % q �  % ���C# &'��h���e���]�L$��L�6L�6����]�������g��filenamef��ice-9/pretty-print.scm     #   0   <�   ���C{|}1������h��K��]" $��6�$��L L$��:4>��"��G��4L�� 4�5>��"��G��6 6�$��L L$��:4 >��"��G��4L�� 4 �5  >��"��G��6 64�5$��Q $��B44�5>��"��G��4L�� 4�5 >��"��G��6 6�$�� L$��4>��"��G�� "��$��  "��$��-4>��"��G��4L >��"��dG��"��]4LLO�54>��"��G��4>��"��G��45"p�"a6 64�LO�54>��"��G��45$��"��"��(�� "��"�� "45$��{45$��h45$��V4545L$��5444545L5M5"��"u"q"m"i"Q6�C������g��x  �g��width  �g��width  > �g��x  D �g��width  D �g��str   �g��str  � �g��fixes  . ��g��filenamef��ice-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   (             {   {   {    �   ��g��nameg��print�C�h���S���]�LLL�6������K�������g��filenamef��ice-9/pretty-print.scm    �  ���C��h���:��-�/���0���3� #��#��$��"��45�#�� O#��#��45YH45K4 J5 O� O�  Q� Q� 4  � O�>��ZCZF�����2������g��x  ��g��port*  ��g��port   ��g��width   ��g��display?   ��g��breadth-first?   ��g��ellipsis  ] ��g��ellipsis-width  s ��g��print-sequence  � ��g��print � ��� g��filenamef��ice-9/pretty-print.scm ) ( + / + * T ; ( ` A  d A  j A  m J  s J  �  �  � g��portS g��widthS g��display?S g��breadth-first?S ���g��nameg��truncated-printg�� documentationf�APrint @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.�CRC��������g��m  ,��g��filenamef��ice-9/pretty-print.scm   - "  9 " 3 $ 7 � ;  R ) �  R ���C6�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/q.go������������������������������������������������������������������������������������������0000644�����������������00000006304�15253700563�0006252 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0 ������]�"�4����h������]� g��guile � g��define-module* � � g��ice-9 g��q � g��filenameS f�� ice-9/q.scm g��exportsS g��sync-q! g��make-q g��q? g��q-empty? g�� q-empty-check g��q-front g��q-rear g�� q-remove! g��q-push! g��enq! g��q-pop! g��deq! g��q-length   �  g��set-current-module � � g�� last-pair g��throw g��q-empty g��delq! !g��lengthC�5����h �����]4   5�4�>��"��G�����h ������]��$�� 4�5"���C����������g��q  ��g��filenamef�� ice-9/q.scm E  F   F  F  F "  F -  F "  F �   ��g��nameg��sync-q!�C R��h���`���]�C��X�������g��filenamef�� ice-9/q.scm M  M   M �   ��g��nameg��make-q�C R�������h0������]�$��#�$�� �4�5C�(���CCC���������g��obj  .��g��filenamef�� ice-9/q.scm U  V  V  W  W  W   X   X   X %  X   X ! Y  % Y ( Z  ) Z �  . ��g��nameg��q?�CR�����h���t���]�C�l�������g��obj  ��g��filenamef�� ice-9/q.scm ^  ^   ^ �   ��g��nameg��q-empty?�CR�������h������]4�5$���6C��������g��q  ��g��filenamef�� ice-9/q.scm b  b  b   b 2  b +�   ��g��nameg�� q-empty-check�CR��������h ���q���]4�>��"��G���C�������i�������g��q  ��g��filenamef�� ice-9/q.scm f  f   f &�   ��g��nameg��q-front�CR������h ���p���]4�>��"��G���C�������h�������g��q  ��g��filenamef�� ice-9/q.scm j  j   j %�   ��g��nameg��q-rear�CR  �����h������]�4�5�6����������g��q  �g��obj  ��g��filenamef�� ice-9/q.scm n  o  o   o   o   p �   ��g��nameg�� q-remove!�CR�������h0������]���$��"����C�����������g��q  ,�g��obj  ,�g��h   )�g��t   &��g��filenamef�� ice-9/q.scm t  u   u  u   v   w   w  # w �  , ��g��nameg��q-push!�CR���h0������] ��(�� �"�����C�������������g��q  *�g��obj  *�g��h   '��g��filenamef�� ice-9/q.scm |  }   }  ~   ~      �   �  $ � �  * ��g��nameg��enq!�CR������h8������]4�>��"��G����(���"����C���������g��q  6�g��it  6�g��next   6��g��filenamef�� ice-9/q.scm �  �   �  �   �  & �  * �  3 � �  6 ��g��nameg��q-pop!�CRiR!�������h���u���]�6�������m�������g��q  ��g��filenamef�� ice-9/q.scm �  �  � �  ��g��nameg��q-length�CRC�������������g��m  (��g��filenamef�� ice-9/q.scm  : � E k M  U  ^  b t f  j  n  t  |  � � � �  ���C6�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/channel.go������������������������������������������������������������������������������������0000644�����������������00000012230�15253700563�0007415 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�H�4������h ������]� g��guile � g��define-module* � � g��ice-9 g��channel � g��filenameS f��ice-9/channel.scm g��exportsS g��make-object-channel g�� channel-open g��channel-print-value g��channel-print-token   � g��set-current-module � � g��make-record-type g��stdin g��stdout g��printer g�� token-module � g�� channel-type g��record-constructor g�� make-channel g��current-input-port g��current-output-port g�� make-module g��record-accessor !g�� channel-stdin "g��channel-stdout #g��channel-printer $g��channel-token-module %g��catch &g��channel:prompt 'g��read (g�� eof-object? )g��throw *g��quit +g��eval ,g�� module-use! -g��current-module .g��destroy /g��module-defined? 0g��module-remove! 1g�� channel:error 2f��Invalid token: ~S 3f��Unknown command: ~S 4g��format 5f��exception = ~S  6f�� value = ~S  7g�� symbol-append 8g��gensym 9f��%% :g��%% ;g��object->string <f�� token = ~S  =g��module-define! >g��display ?f�� channel>  @g�� force-output Af��ERROR:  Bg��apply Cg��newline Dg�� guile:eval Eg��procedure-minimum-arity Fg��defined? Gf��~SC�5���h8 ����]4   5�4�>��"��G���4i5R4ii5R��������h������]45�45��45�6��������g��printer  ��g��filenamef��ice-9/channel.scm W  X  Y   [   X �   ��g��nameg��make-object-channel�C R4 ii5!R4 ii5"R4 ii5#R4 ii5$R!"#$%&'()*+,-+./0123������h����]4L>��"��G��4L5�4�5$��4>��"��G��"���$��>445�L>��"��G��4LL4 4L545�5>��"��G��"��� $��K4L54 L5$��4 L>��"��G��"��4 L>��"��G��"��5�$��4>��"��G��"��4 L�>��"��G���L�6����������g��cmd  �g��token � ���g��filenamef��ice-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*)45�������hH������-�1�3��$��64L��4?�>��"��G��L6������������g��key D�g��args D��g��filenamef��ice-9/channel.scm �   �  �   �   �  �  " �  ( � 0 , � < 0 �  3 �  8 � D � � D ���C�������h(���]���]�L�LLLLLO�LL�O�6�������U�������g��filenamef��ice-9/channel.scm k  ! l �  ! ��g��nameg��loop�C��������hH�����])4�54�54�54�5O��Q�6����������g��ch  F�g��stdin  F�g��stdout   F�g��printer   F�g�� token-module   F�g��loop  3 F��g��filenamef��ice-9/channel.scm f  g  h   i   j   g  3 k �  F ��g��nameg�� channel-open�C R4"6�������h������]4�56��������������g��ch  �g��val  ��g��filenamef��ice-9/channel.scm �  � �   � �   ��g��nameg��channel-print-value�CR789:;4"<=$� ���hH���;��]44554544�5>��"��G�� 4 �563������g��ch  H�g��val  H�g��token   H�g��pair   H��g��filenamef��ice-9/channel.scm �  �   �  � ' �   � -  �   �   �   �   �   �  " � * � 1 �  < �  H � �  H ��g��nameg��channel-print-token�CR>?@��������h ������]4�>��"��G���6�����������g��port  ��g��filenamef��ice-9/channel.scm �  �   �  �   � �   ��g��nameg��channel:prompt�C&R>AB4C�h@������-�1�3�4�>��"��G��4�>��"��G���6������������g��port ;�g��msg ;�g��args  ;��g��filenamef��ice-9/channel.scm � �   �  �   �  ; � � ;  ��g��nameg�� channel:error�C1R+iDR4EiDi5 $��D��h���m���]�6������e�������g��x  �g��e  ��g��filenamef��ice-9/channel.scm �  � �  ���C"��Di+R4Fi;5$��;i"��4G���h���g���]�6�����_�������g��x  ��g��filenamef��ice-9/channel.scm �   �  � �  ���C;RC����������g��m  (��g��filenamef��ice-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 ���C6�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/iconv.go��������������������������������������������������������������������������������������0000644�����������������00000007555�15253700563�0007141 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0U������]�3�4���h������]� g��guile � g��define-module* � � g��ice-9 g��iconv � g��filenameS f��ice-9/iconv.scm g��importsS g��rnrs g�� bytevectors   � � g�� binary-ports � � g��rdelim � g��selectS g�� read-string � � � g��exportsS g��string->bytevector g��bytevector->string g��call-with-encoded-output-string � g��set-current-module � !� "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��error )g��set-port-encoding! *g��set-port-conversion-strategy! +g�� string-ci=? ,f��utf-8 -g�� string->utf8 .g��display /g��open-bytevector-input-port 0g�� eof-object? 1f��� 2g�� utf8->stringC�5�������h ��{���]4   5�4!�>��"��G���"#$��h@������]45�4�>��"��G��454>��"��G��C��������������g��proc  9�g��port  9�g��str  " 9��g��filenamef��ice-9/iconv.scm            "  % ! �  9 ��g��nameg��call-with-output-string*�C%R&$��h@������]4>��� G�4�>��"��G��45�4>��"��G��C�������g��proc  @�g��port @�g��get-bytevector  @�g��bv  ) @��g��filenamef��ice-9/iconv.scm $  %   %   '  % (  ) (  , ) �  @ ��g��nameg��call-with-output-bytevector*�C'R(')*������h@���u���]4�L>��"��G��L$��4�L>��"��G��"���L��6������m�������g��port  :��g��filenamef��ice-9/iconv.scm 8   9  :  ; : < �  : ���C+,-%��������hX�����-�.�,�3�#��"���O�64�5$��&�� 456""�������������g��encoding Q�g��proc Q�g��conversion-strategy  Q��g��filenamef��ice-9/iconv.scm ,  . ? ) 7  ) 1  * 1 0 1 ! 2 1 6 1  : 2 $ > 1  A 6  I 6 � Q  ��g��nameg��call-with-encoded-output-stringg�� documentationf��yCall PROC on a fresh port. Encode the resulting string as a bytevector according to ENCODING, and return the bytevector.�CR(.���h���]���]L��6������U�������g��port  ��g��filenamef��ice-9/iconv.scm J  K �  ���C+,-��hP���x��-�.�,�3�#��"���O�645$��&���6""����p������g��str L�g��encoding L�g��conversion-strategy  L��g��filenamef��ice-9/iconv.scm A  B = ) H  ) E  * E 0 E ! 2 E 6 E  : F $ > E  D G � L  ��g��nameg��string->bytevectorg�� documentationf��hEncode STRING according to ENCODING, which should be a string naming a character encoding, like "utf-8".�CR(/)*$01+,2� ��h���=��-�.�,�3�#��"��g4�54>��"��G��$��4>��"��G��"���454>��"��G��45$��CC4  5$��&�� �6"z"v����5������g��bv ��g��encoding ��g��conversion-strategy  ��g��p  ! ��g��res  \ ���g��filenamef��ice-9/iconv.scm N  O =  V  ! V  $ W  = X  > Y V Z  \ Z  _ [ q \  { \ } ]  � S  � S � S ! � S � S  � T $ � S  � U � �  ��g��nameg��bytevector->stringg�� documentationf��Decode 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".�CRC������s�������g��m  ,��g��filenamef��ice-9/iconv.scm   N   $ r ,  A N �  ���C6����������������������������������������������������������������������������������������������������������������������������������������������������ice-9/history.go������������������������������������������������������������������������������������0000644�����������������00000005362�15253700563�0007516 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0 ������]�+�4���hI������]� g��guile � g��define-module* � � g��ice-9 g��history � g��filenameS f��ice-9/history.scm g��exportsS g��value-history-enabled? g��enable-value-history! g��disable-value-history! g��clear-value-history!   � g��set-current-module � � g�� value-history � g��*value-history-enabled?* g�� module-use! g��current-module g��resolve-interface g��use-value-history g��resolve-module g�� unspecified? g��string->symbol g�� simple-format f��$~A f��~A =  !g��module-define! "g��module-export! #g��save-value-history $g�� add-hook! %g��before-eval-hook &g��before-print-hook 'g�� remove-hook! (g�� hash-clear! )g��module-obarray *g��module-public-interfaceC�5��hH�����]4   5�4�>��"��G���4i>��"��G��R��h���f���]�C���^�������g��filenamef��ice-9/history.scm  �   ��g��nameg��value-history-enabled?�C R���h������]45�456�������������g��x  ��g��filenamef��ice-9/history.scm         "      �   ��g��nameg��use-value-history�CR 4i5H� !"����hp�����]4�5$��CM44554>��"��G��4L��>��"��G��4L��>��"��G��NC����������g��v  m�g��c  m�g��s  # m��g��filenamef��ice-9/history.scm $   %  %   &   &  '   ' $  ' 6 ! ' $ # '  # & & ( + (  2 ( ; ) Q * Z * $ _ * k + �  m ���C�O��#R $%&#�����h@������]�45�$��C4>��"��G��4>��"��G�� C�������������g��filenamef��ice-9/history.scm -  . .   0  " 1  8 2 �  : ��g��nameg��enable-value-history!�C R '%&#������h@������]�45�$��-4>��"��G��4>��"��G�� CC�������������g��filenamef��ice-9/history.scm 4  5  5  7  8  6 9 �  : ��g��nameg��disable-value-history!�CR()*�h8������]45�44�5>��"��G��44�556�������������g��history 2��g��filenamef��ice-9/history.scm ;  <   < ! <  <  =   =   =  % >  ( > ! 0 >  2 > �  2 ��g��nameg��clear-value-history!�CR i6�������������g��m  (�g��count  6�g��history  6��g��filenamef��ice-9/history.scm   )  /   4  @  �     #   # !  #   "  9 ! ( -  4 = ; C @ �  C ���C6�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/string-fun.go���������������������������������������������������������������������������������0000644�����������������00000020622�15253700563�0010105 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0z!������]�-�4�h������]� g��guile � g��define-module* � � g��ice-9 g�� string-fun � g��filenameS f��ice-9/string-fun.scm g��exportsS g��split-after-char g��split-before-char g��split-discarding-char g��split-after-char-last g��split-before-char-last g��split-discarding-char-last g��split-before-predicate g��split-after-predicate g��split-discarding-predicate g��separate-fields-discarding-char g��separate-fields-after-char g��separate-fields-before-char g��string-prefix-predicate g��string-prefix=? g��sans-surrounding-whitespace g��sans-trailing-whitespace g��sans-leading-whitespace g��sans-final-newline g��has-trailing-newline?   � g��set-current-module ! � " � #g�� string-index $g�� string-length %g�� substring &f��� 'g�� string-rindex (g�� string-ref )g��reverse *g��string=? +g��char-whitespace? ,g��char=?C�5����h ����]4   5�4"�>��"��G���#$%������h@������] 4�5$��"��454 5456����������g��char  =�g��str  =�g��ret   =�g��t  $�g��end  $ =��g��filenamef��ice-9/string-fun.scm a  c  b  d  $ b  ) e 3 f = e �  = ��g��nameg��split-after-char�C R#$%���h@������] 4�5$��"��454 5456�����������g��char  <�g��str  <�g��ret   <�g��t  #�g��end  # <��g��filenamef��ice-9/string-fun.scm h  i  i  j  # i  ( k 2 l < k �  < ��g��nameg��split-before-char�C R#%&��h8������] 4�5$��4 54566������������g��char  3�g��str  3�g��ret   3�g��end  3��g��filenamef��ice-9/string-fun.scm n  o o   p   r s ' s  ) s + r  1 q  3 q �  3 ��g��nameg��split-discarding-char�CR'%�������h8������] 4�5$��"�� 4 5456��������g��char  7�g��str  7�g��ret   7�g��t  �g��end   7��g��filenamef��ice-9/string-fun.scm u  w  v  v  # y - z 7 y �  7 ��g��nameg��split-after-char-last�CR'%��������h8������] 4�5$��"�� 4 5456���������g��char  6�g��str  6�g��ret   6�g��t  �g��end   6��g��filenamef��ice-9/string-fun.scm |  }  }  }  " ~ ,  6 ~ �  6 ��g��nameg��split-before-char-last�CR'%&�����h8�����] 4�5$��4 54566�����������g��char  3�g��str  3�g��ret   3�g��end  3��g��filenamef��ice-9/string-fun.scm �  � �   �   � � ' �  ) � + �  1 �  3 � �  3 ��g��nameg��split-discarding-char-last�CR$&(%���hX���>��] "��H45$��64�455$��4 5456" "���6������g��pred  U�g��str  U�g��ret   U�g��n   N��g��filenamef��ice-9/string-fun.scm �  �  �  �   �   � 1  � (  � �  * � . �  1 � - ; � - E � ( H � . N � ( N � �  U ��g��nameg��split-before-predicate�CR$&(%���hX���a��] "��J45$��64�455$��4 5456" "�Y������g��pred  W�g��str  W�g��ret   W�g��n   P��g��filenamef��ice-9/string-fun.scm �  �  �  �   �   � 1  � (  � �  * � . �  1 � - 9 � > ; � - < � - C � < E � - G � ( J � . P � ( P � �  W ��g��nameg��split-after-predicate�CR$&(%��������hX���T��] "��I45$��64�455$��4 5456" "��L������g��pred  V�g��str  V�g��ret   V�g��n   O��g��filenamef��ice-9/string-fun.scm �  �  �  �   �   � 1  � (  � �  * � . �  1 � - ; � - B � < D � - F � ( I � . O � ( O � �  V ��g��nameg��split-discarding-predicate�CR'%�hP���O��]"��84�5$��454 5"@"�������G������g��ch  I�g��str  I�g��ret   I�g��fields   >�g��str   >�g��t   >��g��filenamef��ice-9/string-fun.scm �  �   �   �   � !  � 0 ! � ! $ �  % �  6 �  > � > �  ? �  I � �  I ��g��nameg��separate-fields-discarding-char�CR)#%����hX���e��]"��A4�5$�� 4 545"4?"��"6��]������g��ch  V�g��str  V�g��ret   V�g��fields   I�g��str   I�g��t   I��g��filenamef��ice-9/string-fun.scm �  �  �   �   � " " � 3 $ � " ' �  ( �  / � * 1 �  9 �  : � I �  J �  T �  V � �  V ��g��nameg��separate-fields-after-char�CR'%��������hH���9��]"��74�5$��454 5"@"1������g��ch  H�g��str  H�g��ret   H�g��fields   =�g��str   =�g��t   =��g��filenamef��ice-9/string-fun.scm �  �   �   �   � ! # �  $ �  5 �  = � = �  > �  H � �  H ��g��nameg��separate-fields-before-char�CR$%���h0������]4�545$��L��4 4�556C�����������g��prefix  ,�g��str  ,��g��filenamef��ice-9/string-fun.scm �   � � $  �  �   �  � ( ( �  * � �  , ���C�������h������]�O�C������w�������g��pred?  ��g��filenamef��ice-9/string-fun.scm � �  ��g��nameg��string-prefix-predicate�CR4i*i5R$+(&%��h�����] 4�5HH"��9"��1J4�5$��44�J55$�� JK""�� "��"""��4"��, J$�� 44�J55$�� JK""�� "��""JJ$��C�JJ6�������������g��s  ��g��st ��g��end  ���g��filenamef��ice-9/string-fun.scm �  � �   �   �  �  $ �  % �  ( � " 2 �  6 � 9 �  ; � ? �  S �  [ �  _ �  ` �  c � " j � 0 l � " n �  r � u �  w � { �  � �  � �  � �  � � �  � ��g��nameg��sans-surrounding-whitespace�CR$+(&%���h`���.��] 4�5H"��4"��, J$�� 44�J55$�� JK""�� "��""J $��C� J6�����&������g��s  [�g��end [��g��filenamef��ice-9/string-fun.scm �  � �   �   �   �   �   � " & � 0 ( � " * �  . � 1 �  3 � 7 �  K �  O �  Q �  [ � �  [ ��g��nameg��sans-trailing-whitespace�CR$+(&%�h`���4��] 4�5H"��4"��,J$��44�J55$�� JK""�� "��""J$��C�J6,������g��s  `�g��st `�g��end  `��g��filenamef��ice-9/string-fun.scm �  � �   �   �   �   �  �  # � " - �  1 � 4 �  6 � : �  O �  S �  U �  ` � �  ` ��g��nameg��sans-leading-whitespace�CR$,(%�����h@������] 4�5$���C4 4�4�555$��� 4�56�C���������g��str  >��g��filenamef��ice-9/string-fun.scm �  � �   �   �   �   � % $ � ! & �  ( �  , �  2 �  9 �  ; � �  > ��g��nameg��sans-final-newline�CR$,(������h(������] 4�5$�� 4�4�556C���������g��str  &��g��filenamef��ice-9/string-fun.scm              (  $ "   $  �  & ��g��nameg��has-trailing-newline?�CRC�������g��m  (��g��filenamef��ice-9/string-fun.scm   s a  h  n H u  |  � � l � 7 �  �  � \ �  �  �   � w � ! �  �  �   �   ���C6���������������������������������������������������������������������������������������������������������������ice-9/psyntax-pp.go���������������������������������������������������������������������������������0000644�����������������00000576507�15253700563�0010156 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0/�����]�4�hZw������]� g��primitive-eval g��current-module g��warn f��0module system is booted, we should have a module g��module-variable g��resolve-module g��macro? g�� macro-type g�� macro-binding g��%expanded-vtables g��assq g��name g��public g��private g�� module-name g��bare g��hygiene g��syntax-violation f��bad module kind g��for-each g��lexical g��macro g��ellipsis g��module-define! g��make-syntax-transformer g�� vector-length g�� syntax-object g��symbol->string g�� module-gensym f��l g�� list->vector g�� make-vector !g��append "g��ribcage #g��shift $g��list-ref %g�� id-var-name &f�� invalid id 'g��supports-source-properties? (g��set-source-properties! )g��source-properties *g�� begin-form +g�� $sc-dispatch ,g��_ -,� .g��apply /g��any 0g��each-any 1/0 2,1 3f��-source expression failed to match any pattern 4g��local-syntax-form 5g��eval-when-form 601 7,6 8g��e 9g��memq :g��eval ;g��expand <g��c&e =:� >g��load ?g��compile @?>� Ag��c B>� Cg��define-syntax-form Dg��define-syntax-parameter-form Eg��guile FE� Gg�� define-form Hg��global IH� Jg��displaced-lexical KJ� Lg��core Mg�� module-ref Ng��module-local-variable Og�� module-add! Pg��make-undefined-variable Qg�� variable? Rf��identifier out of context Sf��"cannot define keyword at top level Tg�� procedure? U� Vg�� eval-when Wf��invalid situation Xg�� lexical-call Yg�� global-call Zg�� core-form [g�� local-syntax \g��begin ]g��define ^,//� _// `_1 a,` b,/� cg��if dg��top ed� f � ge� hf��l-bde397a-100e ih� j"fgi� k"� lg��key ml� ng�� m-bde397a-fde ond� po� qf�� l-bde397a-fdf rq� s"mpr� tg��ftype ug��fval vg��fform wg��fe xg��fw yg��fs zg��fmod {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 �}~� �"{|� �g��first �� �f�� l-bde397a-fce �� �"g� �g��r �g��w �g��s �g��rib �g��mod �g��for-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 �� �"|� �g��lambda-var-list �g��gen-var �g��strip �g��expand-lambda-case �g��lambda*-formals �g��expand-simple-lambda �g��lambda-formals �g�� ellipsis? �g�� expand-void �g��eval-local-transformer �g��expand-local-syntax �g�� expand-body �g�� expand-macro �g��expand-application �g�� expand-expr �g�� syntax-type �g��parse-when-list �g��expand-install-global �g��expand-top-sequence �g��expand-sequence �g�� source-wrap �g��wrap �g��bound-id-member? �g��distinct-bound-ids? �g��valid-bound-ids? �g�� bound-id=? �g�� free-id=? �g��with-transformer-environment �g��transformer-environment �g��resolve-identifier �g��locally-bound-identifiers �g�� same-marks? �g�� join-marks �g�� join-wraps �g�� smart-append �g��make-binding-wrap �g��extend-ribcage! �g��make-empty-ribcage �g��new-mark �g�� anti-mark �g�� the-anti-mark �g�� top-marked? �g��top-wrap �g�� empty-wrap �g��set-ribcage-labels! �g��set-ribcage-marks! �g��set-ribcage-symnames! �g��ribcage-labels �g�� ribcage-marks �g��ribcage-symnames �g��ribcage? �g�� make-ribcage �g�� gen-labels �g�� gen-label �g�� wrap-subst �g�� wrap-marks �g�� make-wrap �g��id-sym-name&marks �g�� id-sym-name �g��id? �g�� nonsymbol-id? �g�� global-extend �g��lookup �g��macros-only-env �g��extend-var-env �g�� extend-env �g��null-env �g�� binding-value �g�� binding-type �g�� make-binding �g�� arg-check �g��source-annotation �g�� no-source �g��set-syntax-object-module! �g��set-syntax-object-wrap! �g��set-syntax-object-expression! �g��syntax-object-module �g��syntax-object-wrap �g��syntax-object-expression �g��syntax-object? �g��make-syntax-object �g��build-lexical-var �g�� build-letrec �g��build-named-let �g�� build-let �g��build-sequence �g�� build-data �g�� build-primref �g��build-lambda-case �g��build-case-lambda �g��build-simple-lambda �g��build-global-definition �g��build-global-assignment �g��build-global-reference �g��analyze-variable �g��build-lexical-assignment �g��build-lexical-reference �g�� build-dynlet �g��build-conditional �g��build-application �g�� build-void �g��maybe-name-value! g��decorate-source g��get-global-definition-hook g��put-global-definition-hook g�� session-id g��local-eval-hook g��top-level-eval-hook g��fx< g��fx=  g��fx-  g��fx+  g��set-lambda-meta!  g�� lambda-meta  g��lambda? g�� make-dynlet g�� make-letrec g��make-let g��make-lambda-case g�� make-lambda g�� make-sequence g��make-application g��make-conditional g��make-toplevel-define g��make-toplevel-set g��make-toplevel-ref g��make-module-set g��make-module-ref g��make-lexical-set g��make-lexical-ref g��make-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-b6a =f�� l-bde397a-b68 >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{|}~� " !� g��define-structure g��define-expansion-accessors g��define-expansion-constructors � eee� f�� l-bde397a-967 f�� l-bde397a-92f f�� l-bde397a-8fd � "� ejkskkkkk� E� c� � � g��lambda g��args g��e1 g��e2  � eeee� f��l-bde397a-1001 f��l-bde397a-1002 f��l-bde397a-1003 f��l-bde397a-1004 � "� ekskkkkk� � g�� define-syntax g��define-syntax-parameter g��call g��self-evaluating? g��constant g��other g�� syntax->datum g��include-deprecated-features g��issue-deprecation-warning f��ASequences of zero expressions are deprecated. Use *unspecified*. f��sequence of zero expressions f��Ddefinition in expression context, where definitions are not allowed, g��syntax f��1reference to pattern variable outside syntax form f��)reference to identifier outside its scope f��unexpected syntax g��map f��&encountered raw symbol in macro output f��m f�� placeholder g�� placeholder � f��no expressions in body f��nonprocedure transformer ,0 f��-invalid or duplicate identifier in definition g��reverse g��each //� � 1 ,挤 f��duplicate bound keyword f��bad local syntax definition g�� $sc-ellipsis  g��... g��b � f��l-bde397a-116a � "g� g��n � f��l-bde397a-1167 � "g� g��id � f��l-bde397a-1165 � "g� 8� eee� f��l-bde397a-115f f��l-bde397a-1160 f��l-bde397a-1161 �� "�� ekkkkkk�  � f��invalid argument list f��%duplicate identifier in argument list g��lambda* g��restS g��keyS  g��optionalS  /  f��invalid optional argument list  g��a   � ee� f��l-bde397a-11f4 f��l-bde397a-11f5 � " � g��req g��ropt � f��l-bde397a-11ea f��l-bde397a-11eb f��l-bde397a-11ec � "� g��check g��rest g��opt l� eeeee�  f��l-bde397a-11b4 !f��l-bde397a-11b2 "f��l-bde397a-11b0 #f��l-bde397a-11ae $f��l-bde397a-11ac % !"#$� &"%� 'g�� orig-args ('� )f��l-bde397a-11ab *)� +"(g*� ,ek&+� -,� .-� ////� 0// 1/� 2f��invalid keyword argument list 3g��allow-other-keysS 4g��keyword? 5g��symbol->keyword 6g��k 76� 8f��l-bde397a-1233 98� :"7g9� ;f��l-bde397a-122d <f��l-bde397a-122e =;<� >" =� ?g��rkey @?� Af��l-bde397a-1222 Bf��l-bde397a-1223 Cf��l-bde397a-1224 Df��l-bde397a-1225 EABCD� F"@E� Gek:>kF&+�  HG� IH� Jf��invalid rest argument Kg��car Lg��cadr M/1 Ng��vector O_� PNO� QP1 Rg��cons Sg��string? Tg�� documentation UM� VMU Wg�� vector->list Xg��syntax-session-id Yg�� make-fluid Zg��error [f��9called outside the dynamic extent of a syntax transformer \g�� letrec-syntax ]g�� let-syntax ^g��syntax-parameterize _f�� bad syntax `g��quote ag��ref bf��misplaced ellipsis c/_ dg��list eN1� f`� gf��extra ellipsis hg�� primitive ih!� jf��missing ellipsis kg��tmp lg��cdr mg��and-map nf��how did we get here of��bad `syntax' form p,M qf�� bad lambda rf�� bad lambda* sg�� case-lambda t,U u/U v,u wf��bad case-lambda xg�� case-lambda* yf��bad case-lambda* zg�� with-ellipsis {g��let |f��duplicate bound variable }/挤 ~,} f��bad let g��letrec f�� bad letrec g��letrec* f�� bad letrec* g��set! ,1/� g��setter g��m-bde397a-16ac d� � f��l-bde397a-16ad � "m� g��type g��value g��formform g��ee g��ww g��ss g��modmod � f��l-bde397a-16a5 f��l-bde397a-16a6 f��l-bde397a-16a7 f��l-bde397a-16a8 f��l-bde397a-16a9 f��l-bde397a-16aa f��l-bde397a-16ab � "|� g��head g��tail g��val � f��l-bde397a-1696 f��l-bde397a-1697 f��l-bde397a-1698 � "� 8� eeeee� f��l-bde397a-1677 f��l-bde397a-1678 f��l-bde397a-1679 f��l-bde397a-167a f��l-bde397a-167b � "� ekkkk�  � f��bad set! g��procedure-property g��variable-transformer f��not a variable transformer g��@ ,0/� e� � f��l-bde397a-16d4 f��l-bde397a-16d5 � "� 8� f��l-bde397a-16c8 f��l-bde397a-16c9 f��l-bde397a-16ca � "� ek�  � g��@@ g��free-id g�� remodulate � f��l-bde397a-16e0 � "� f��l-bde397a-16dd f��l-bde397a-16de f��l-bde397a-16df � "� e� � � ,0/� g��exp � f��l-bde397a-1709 f��l-bde397a-170a � "� e� � f��l-bde397a-16fd f��l-bde397a-16fe � "� e� � ,///� g�� with-fluids g�� syntax-case g��p g��ids � f��l-bde397a-1776 f��l-bde397a-1777 f��l-bde397a-1778 � "� g��cvt g�� v-reverse g��cvt* � f��l-bde397a-1755 f��l-bde397a-1753 f��l-bde397a-1751 � "� g��pattern g��keys � f��l-bde397a-174e f��l-bde397a-174f f��l-bde397a-1750 � "� �g��gen-syntax-case g�� gen-clause g��build-dispatch-call g��convert-pattern �� eeee� f��l-bde397a-1749 f��l-bde397a-1747 f��l-bde397a-1745  f��l-bde397a-1743   �  " �  ek �  , � N0� g��atom g��each+ � f��duplicate pattern variable g��pat � f��l-bde397a-1812 f��l-bde397a-1813 � "� g��x g��clauses � f��l-bde397a-1807 f��l-bde397a-1808 f��l-bde397a-1809 f��l-bde397a-180a  f��l-bde397a-180b ! � ""!� #ek" � $#� %,#� &f��invalid clause '00 (/' ),( *f��invalid literals list +g�� macroexpand ,g�� identifier? -g�� datum->syntax .g�� syntax-source /g��generate-temporaries 0f��invalid argument 1f��t 2g��free-identifier=? 3g��bound-identifier=? 4g��throw 5g�� syntax-error 6g��syntax-local-binding 7g��assq-ref 8f��unexpected id-var-name 9g��pattern-variable :g�� syntax-locally-bound-identifiers ;g��define! <g�� syntax-module =g�� with-syntax >1 ?,> @� Af��l-bde397a-196a Bf��l-bde397a-196b CAB� D"@C� E� Ff��l-bde397a-1967 GF� H"EgG� IeDkH� J{I� K� LK1 M,L Ng��out Og��in PNO� Qf��l-bde397a-1970 Rf��l-bde397a-1971 Sf��l-bde397a-1972 Tf��l-bde397a-1973 UQRST� V"PU� WeVkH� XW� Y{W� Zf��l-bde397a-197a [f��l-bde397a-197b \f��l-bde397a-197c ]f��l-bde397a-197d ^Z[\]� _"P^� `e_kH� a`� bd`� c{`� dg��message eg��arg fde� gf��l-bde397a-19a3 hf��l-bde397a-19a4 igh� j"fi� kf��l-bde397a-1986 lk� m"Egl� nejkm� o5n� pn� qp� rg�� string-join sg��object->string tg�� syntax-rules ug��clause vu� wf��l-bde397a-19af xw� y"vgx� zg��expand-syntax-rules {g�� expand-clause |z{� }ee� ~f��l-bde397a-19ac f��l-bde397a-19aa ~� "|}� g��xx � f��l-bde397a-19a9 � "g� eky� 5� � 1 _� _/� g��dummy g��keyword g��template � f��l-bde397a-19c4 f��l-bde397a-19c5 f��l-bde397a-19c6 � "� eky� � � de� f��l-bde397a-19ba f��l-bde397a-19bb f��l-bde397a-19bc f��l-bde397a-19bd � "� eky� � � 5� � 000� g�� docstring 6u� eeeeee� f��l-bde397a-19d5 f��l-bde397a-19d6 f��l-bde397a-19d7 f��l-bde397a-19d8 f��l-bde397a-19d9 f��l-bde397a-19da � "� g��dots g�� docstrings � f��l-bde397a-19ce f��l-bde397a-19cf f��l-bde397a-19d0 f��l-bde397a-19d1 � "� ekkkk�  � � � � t�  g��patterns � � � f��l-bde397a-19e7 � "g� g��form � f��l-bde397a-19e3 � "g� ekkkkkk�  z� 0 ,ό / 0ь ,Ҍ /ό ,Ԍ /Ҍ ,֌ g��define-syntax-rule ,_/�  � f��l-bde397a-1a50 f��l-bde397a-1a51 f��l-bde397a-1a52 � "� f��l-bde397a-1a4d � "Eg� ek� � t� ,� ,_//�  � f��l-bde397a-1a5f f��l-bde397a-1a60 f��l-bde397a-1a61 f��l-bde397a-1a62 � "� ek� � t� ,� g��let* g��f g��bindings � f��l-bde397a-1a80 f��l-bde397a-1a81 � "� g��v � f��l-bde397a-1a76 f��l-bde397a-1a77 f��l-bde397a-1a78 �f��l-bde397a-1a79 f��l-bde397a-1a7a �� "� f��l-bde397a-1a68 � "Eg� ekk� {�  g��body  g��binding    �  f��l-bde397a-1a8a  f��l-bde397a-1a8b   � " � ekkk� {� g�� quasiquote g��unquote g��lev � f��l-bde397a-1a9e f��l-bde397a-1a9f � "� g��emit g�� quasivector g�� quasilist* g�� quasiappend g�� quasicons g��vquasi  g��quasi ! � "eeeeeee� #f��l-bde397a-1a9a $f��l-bde397a-1a98 %f��l-bde397a-1a96 &f��l-bde397a-1a94 'f��l-bde397a-1a92 (f��l-bde397a-1a90 )f��l-bde397a-1a8e *#$%&'()� +"!"*� ,ek+� -,� .-� /./� 0f��value 1� 2f��l-bde397a-1aa2 32� 4"1g3� 5e4k+� 605� 7f��quote 875� 95� :89� ;,� <;� =</� >f��l-bde397a-1aa5 ?>� @"1g?� Ae@k+� B7A� CA� DBC� Eg��q FE� Gf��l-bde397a-1aa8 Hf��l-bde397a-1aa9 IGH� J"FI� KeJk+� LK� ML� NM0 Of��l-bde397a-1aae PO� Q"1gP� ReQJk+� S0R� T7R� UR� VTU� Wg��unquote-splicing XWK� YX� ZY0 [f��l-bde397a-1ab3 \[� ]"1g\� ^e]Jk+� _0^� `7^� aW^� b`a� c7� dc0� ef��l-bde397a-1b0e fe� g"Egf� hf��l-bde397a-1b0b ih� j"Egi� kegkj+� l7k� mg��y nm� of��l-bde397a-1b23 po� q"ngp� rm6� sf��l-bde397a-1b11 tf��l-bde397a-1b12 uf��l-bde397a-1b13 vstu� w"rv� xeqkwkj+� y7x� zf��list {z� |{0 }f��list* ~}� /1� ~ f�� list->vector g��t-bde397a-1b34 � g��m-bde397a-1b35 d� � f��l-bde397a-1b38 � "� g��else � f��l-bde397a-1b32 � "g� ekkwkj+�  � f��vector g��t-bde397a-1b19 � g��m-bde397a-1b1a d� � f��l-bde397a-1b1e � "� g��ls � f��l-bde397a-1b18 � "g� ekkkkkj+�  � f��l-bde397a-1abb � "1g� ek+� 7� f��l-bde397a-1ac3 f��l-bde397a-1ac4 � "F� f��l-bde397a-1abf f��l-bde397a-1ac0 � "� ek+� � � 0 f��l-bde397a-1ac9 � "1g� ek+� 0� 7� � � W� � 0 f��l-bde397a-1ace � "1g� ek+� 0� 7� W� � ek+� 7� � c/� g��dx � f��l-bde397a-1ae4 � "g� g��dy � f��l-bde397a-1ae0 � "g� m� f��l-bde397a-1ada f��l-bde397a-1adb � "� f��l-bde397a-1ad5 f��l-bde397a-1ad6 � "� ekkk+�  7� ekkk+� z� }� {/ g��stuff � f��l-bde397a-1ae7 � "g� ekkk+� z� ~/ f��l-bde397a-1aea � "g� ekkk+� }� ekkk+� }� c� f��l-bde397a-1aee f��l-bde397a-1aef � "� ek+� 7� � f��append f��l-bde397a-1af6 � "1g� ekk+� � 0/� �m� f��l-bde397a-1afd f��l-bde397a-1afe � "�� ekk+� � f��l-bde397a-1b3e �  "Eg�  f��l-bde397a-1b3b   �  "Eg �  e k +� ` � g��t-bde397a-1b43 � g��m-bde397a-1b44 d� � f��l-bde397a-1b48 � "� f��l-bde397a-1b41 � "Eg� ekk +� d� g��t-bde397a-1b57 g��t-bde397a-1b56 � g��m-bde397a-1b58  d� !  � "f��l-bde397a-1b5c #f��l-bde397a-1b5d $"#� %"!$� &g��x* '&� (f��l-bde397a-1b51 )f��l-bde397a-1b52 *()� +"'*� ,f��l-bde397a-1b4d -f��l-bde397a-1b4e .,-� /".� 0ek%k+/k +�  1R0� 2� 320 4g��t-bde397a-1b63 54� 6g��m-bde397a-1b64 76d� 87� 9f��l-bde397a-1b68 :9� ;"58:� <f��l-bde397a-1b61 =<� >"Eg=� ?ek;>k +� @!?� A� BA0 Cg��t-bde397a-1b6f DC� Eg��m-bde397a-1b70 FEd� GF� Hf��l-bde397a-1b74 IH� J"DGI� Kf��l-bde397a-1b6d LK� M"EgL� NekJMk +� ONN� P� QP/� Rg��t-bde397a-1b7b SR� Tg��m-bde397a-1b7c UTd� VU� Wf��l-bde397a-1b7f XW� Y"SVX� Zf��l-bde397a-1b79 [Z� \"Eg[� ]ekY\k +� ^]� _0� `_/� ag��include bg��open-input-file cg��absolute-file-name? dg�� in-vicinity ef��Brelative file name only allowed when the include form is in a file fg�� file-encoding gg��set-port-encoding! hf��UTF-8 ig�� eof-object? jg��close-input-port kg��read lg��filename mg��dirname n� of��l-bde397a-1bba po� q"ngp� rg��fn sr� tf��l-bde397a-1bb5 ut� v"sgu� w6l� xf��l-bde397a-1bb1 yf��l-bde397a-1bb2 zxy� {"wz� |g��dir }|� ~f��l-bde397a-1bab ~� "}g� g��file � f��l-bde397a-1ba7 � "g� g��src � f��l-bde397a-1ba5 � "g� g�� read-file � f��l-bde397a-1b8c � "� f��l-bde397a-1b8b � "Eg� ekqkkv{kkkk� \� g��include-from-path g��%search-load-path f��file not found in path f��l-bde397a-1bc9 � "sg� f��l-bde397a-1bc5 � "sg� f��l-bde397a-1bc1 f��l-bde397a-1bc2 � "w� f��l-bde397a-1bbe � "Eg� ekkkk�  a� f��*expression not valid outside of quasiquote g��set-procedure-property! f��$variable transformer not a procedure g��make-variable-transformer g��identifier-syntax 8� f��l-bde397a-1bdd � "g� f��l-bde397a-1bda � "g� ek� � � � � �  � � � ,� � � � ,� � � � ek� � � //� /� ,� g��exp1 g��var g��exp2 � f��l-bde397a-1bec f��l-bde397a-1bed f��l-bde397a-1bee f��l-bde397a-1bef f��l-bde397a-1bf0 � "� ek� � � � � � � ܌ � � � � � � � ,� g��define* g��b0 g��b1 � f��l-bde397a-1bfa f��l-bde397a-1bfb f��l-bde397a-1bfc f��l-bde397a-1bfd � "� f��l-bde397a-1bf7 � "Eg� ek� ]� � � f��l-bde397a-1c08 f��l-bde397a-1c09 � "� ek� ]�C�5�hj���,��3�5HH�������h������]�6�������g��x  �g��mod  ��g��filenamef��ice-9/psyntax.scm     �   ��g��nameg��top-level-eval-hook�C � ��h�����]$��"��45�$��4�>��"��G��"���4$�� 45"��45��5$��8$��/45$��45$��4545CCCCC��������g��symbol  ��g��module  ��g��v  L ��g��val  ^ ���g��filenamef��ice-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 �  � ��g��nameg��get-global-definition-hook�C   �������h@�����]$��4 &��& 45$��C� CCC� ������g��name  ?�g��val  ?�g��meta   ;�g��v  2 ;��g��filenamef��ice-9/psyntax.scm <     =     >  ?  ?  $ ?  ( ? , @ - / @ & 2 @  :  �  ? ��g��nameg��maybe-name-value!�C ����h������] ��C��������������g��source  �g��fun-exp  �g��arg-exps   ��g��filenamef��ice-9/psyntax.scm H    �   ��g��nameg��build-application�C � �h�����]�$����$�� 6$�� 445�5$��66$��6$��7445�5$��"��4455$�� 66  66���������g��mod  ��g��var  ��g�� modref-cont   ��g�� bare-cont   ��g��kind   ��g��mod   ���g��filenamef��ice-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  � ^ �!  � ��g��nameg��analyze-variable�C ���h0�����] ��  ��C�������������g��src  )�g��req  )�g��rest   )�g��vars   )�g��meta   )�g��exp   )�g��body   )��g��filenamef��ice-9/psyntax.scm        )         �  ) ��g��nameg��build-simple-lambda�C ��h ������](��C ��C�������������g��src  �g��exps  ��g��filenamef��ice-9/psyntax.scm           �   ��g��nameg��build-sequence�C   ��h�����]M ��   � �   $��B  &��2  4 5$��"��      "���"���4L�>��"��G���� � ��  � �      �    �C������������g��src  ��g��ids  ��g��vars   ��g��val-exps   ��g��body-exp   ��g��f   ��g��f-name   ��g��vars   ��g��ids   ��g��body + =�g��proc = ��g��meta V ��g��v q }�g��fun-exp � ��g��names � ��g��gensyms � ��g��vals � ��g��body � ���g��filenamef��ice-9/psyntax.scm                    #  ) +   +   2   5  ; :   =  B   F =  I   V > Y ?  ] ?  a ?  e ? k @ - n @ & q @  y   �  �  �   �  $ �   �  �   �  �  �$  � ��g��nameg��build-named-let�CO�  ���h8������](��C4L�>��"��G�� ��C���������g��src  6�g�� in-order?  6�g��ids   6�g��vars   6�g��val-exps   6�g��body-exp   6��g��filenamef��ice-9/psyntax.scm        &  �  6 ��g��nameg�� build-letrec�CO� �������h���z���]� C�r�������g��x  ��g��filenamef��ice-9/psyntax.scm  �   ��g��nameg��syntax-object-expression�C ��h(������]�(��C���"����������g��labels  %�g��bindings  %�g��r   %��g��filenamef��ice-9/psyntax.scm -   .   0   0 %  1 $  1 1  1   1  % 0 �  % ��g��nameg�� extend-env�CO� ������h(������]�(��C���"�������g��labels  (�g��vars  (�g��r   (��g��filenamef��ice-9/psyntax.scm 5   6   8   8 )  9 (  9 C  9 L  9 5  9 "  9  ( 8 �  ( ��g��nameg��extend-var-env�CO� ��hH�����]�(��C�&��"��$�� 4L��5C��"������������g��r  C�g��a C�g��t   *��g��filenamef��ice-9/psyntax.scm ?   @  A B  B  C   C  . C  1 D  6 D + 8 D  9 D  = E # C E �  C ��g��nameg��macros-only-env�CO������h������]45�4�56�������g��type  �g��sym  �g��val   ��g��filenamef��ice-9/psyntax.scm T   $  &   $ �   ��g��nameg�� global-extend�C�������h8������]�$��C�$��"4�5 $��� &��� CCCC���������g��x  6��g��filenamef��ice-9/psyntax.scm c   e d      d     / f �  6 ��g��nameg��id?�C�h ������]�(��C44554L��5C�������g��ls  ��g��filenamef��ice-9/psyntax.scm              %            *      �  ��g��nameg�� gen-labels�CO� !�h�����]�(��C�"�� L� "��j$��^45 $��H &��6 L� (��"�� 45 "��"��""��""��" G�LL��"W�����������g��ids  ��g��i  ��g��x  ��g��m1  J i�g��m2  J i�g��symname  � ��g��marks  � ���g��filenamef��ice-9/psyntax.scm       <  )  u   u  q  !   % q  &   D t  I   J t ( J t T   [  o r �   �   �   �  ! �  + �  �  � ��g��nameg��f�C"����h���x��]+�(��C45454545O�Q�4� >��"��G���C�����p������g��ids  {�g��labels  {�g��w   {�g��labelvec   u�g��n   r�g�� symnamevec  . o�g��marksvec  . o�g��f  = ^��g��filenamef��ice-9/psyntax.scm                    !  $ (  ? .   =   `   x   y  z  �  { ��g��nameg��make-binding-wrap�C!��������h�����]��(��+(��C(��"�� 45C(��"�� 45(��"�� 45C�������y������g��w1  y�g��w2  y�g��m1   y�g��s1   y�g��m2  ! ;�g��m2  @ Z�g��m2  ] w��g��filenamef��ice-9/psyntax.scm        '            !  $ !   )   0  <   @  @   H   O  ]  ]   e   l  x  �  y ��g��nameg�� join-wraps�C���h8������]�&��C�(��C(��C�&����"C���������g��x  6�g��y  6��g��filenamef��ice-9/psyntax.scm           "   &  )   ,  & 4  �  6 ��g��nameg�� same-marks?�CO�#$��h����]#(��D&����" $��m45"��Y$����""�� "�&��#4L 5$��  D"" ""��a(����"A"��"�&��+4L4 55$��4 5D"" "�� ������g��sym  �g��subst  �g��marks   �g��fst   �g��symnames  0 �g��n  @ ��g��i  F ��g��symnames  �  �g��i  �  �� g��filenamef��ice-9/psyntax.scm                    " "  . ,   0   0   5   9   :   @  F   K   O   T  ( `   g   m   m   r   x   y   �   �  * �   �   �   �   �   �   �  �   �  - �  ! �   �  ' �   �   �   �   � �  � � ( �   � � ( � �  �   �   �   �        �9   ��g��nameg��search�C%&!�������h���R��]:O�L�Q��$��4�5$��C�C"�� �6�$��4�5 $��|� &��n� � (��"�� 454>�� G�$��C45$��CC"e"a"]�����J������g��id  ��g��w  ��g��search  ��g��t  & 4�g��id  j ��g��w1  j ��g��m1  t ��g��m2  t ��g��marks  � ��g��new-id  � ��g��marks  � ��g��t  � ��� g��filenamef��ice-9/psyntax.scm           !  $  / &   &  <  ! >  . B   B   E   I   J   j  q  % t  4 t   ~   �  �  �  + �  6 �  + �   �   �   �  ( �   �  �  � ��g��nameg�� id-var-name�CO�#��������h8����]B"��_(��C&�� "  $��"��w"��"��["��G(�� "4L�    5"""��a45"��I$�� "4L�    5" "�"���������g��w  5�g��mod  5�g��subst   e�g��results   e�g��fst   e�g��symnames  2 e�g��marks  2 e�g��subst  i ��g��symnames  i ��g��marks  i ��g��results  i ��g��symnames  m ��g��marks  m ��g��results  m ��g��w � ��g��subst  � )�g��symnames  � )�g��marks  � )�g��results  � )�g��n  � )�g��i  � �g��results  � �g��w � ��g��filenamef��ice-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 ��g��nameg��locally-bound-identifiers�CO����h���,��]"��d(��"��a$��"��3$��+45 $�� &��  "��"��"��$�� ""���"$��L��6C��$������g��ids  ~�g��ids  j�g��x   X��g��filenamef��ice-9/psyntax.scm                e  d  %   ) d  *   F f  \   _  " e   j  v   |  �  ~ ��g��nameg��valid-bound-ids?�CO�����h0������] "��"(��C4L�5$��C"�"�������g��ids  0�g��ids  (��g��filenamef��ice-9/psyntax.scm              *   4       "   (   (  �  0 ��g��nameg��distinct-bound-ids?�CO���������h���_��] (��C"�� �"���$��4�5 $��o� &��]$��N45 $��8 &��&�  &��4L�  5"��"��""��""��""��"w"��"o"��"g$��C��";�W������g��x  ��g��list  ��g��j  ��g��t  � ���g��filenamef��ice-9/psyntax.scm             |     # |  $   1 | 5   f } g   n   o   t   u   w   �  �  % �  �  � ��g��nameg��bound-id-member?�CO���h���d��]"���(���C��C"��R�$��G4�5 $��5� &��'� 4L�� 5� �C"""(��(���C""������\������g��x  ��g��w  ��g��defmod   ��g�� expression  S e�g��wrap  S e�g��module  S e��g��filenamef��ice-9/psyntax.scm           "   &   '   C  L   N  S   S  [   q   t   x   {  -   �  � ��g��nameg��wrap�CO�'(������h@������]L�$��'4�5$��4�>��"��G��"���"����6��������������g��x  9�g��w  9�g��s   9�g��defmod   9��g��filenamef��ice-9/psyntax.scm   8  8   8  9 9  �  9 ��g��nameg�� source-wrap�CO�)���h�����]D�(��C�4L4$��,45 $�� &�� "��"��"��5$��"��>�� G�   4L   5   4L��5C�������������g��body  ��g��r  ��g��w   ��g��mod   ��g��e  ��g��props  R e�g��type  o ��g��value  o ��g��form  o ��g��e  o ��g��w o ��g��s o ��g��mod o ��g��first  � ���g��filenamef��ice-9/psyntax.scm         3  +          "   #   R   R   W   [  n   r   �  �   �  , �  4 �  , �  �  � ��g��nameg��dobody�C�������h0������] LO�L�LQ�4�56������������g��body  +�g��r  +�g��w   +�g��s   +�g��mod   +�g��dobody   )��g��filenamef��ice-9/psyntax.scm      +  �  + ��g��nameg��expand-sequence�CO�)*+-.������h������]�L�C����������   ���C2���h ���g���]L�LLLLLLL�6�������_�������g��e1  �g��e2  ��g��filenamef��ice-9/psyntax.scm   �   ���C34�h������]L�LLL�6���������g��body  �g��r  �g��w   �g��s   �g��mod   ��g��filenamef��ice-9/psyntax.scm  .   0�   ���C5789:;<=>?@AB� h����]#4L�L�5L &��r45$��'LLLL45$��"��LL645$��.4LLLLL54>��"��G��"���LC45$��4 5$��"��/45$��"��L &�� 45"��$��LLLL LL6L  &��"��L $��LLLL  LL6LC4 5$��"��/45$��"��L &�� 45"��$��-4LLLLL54>��"��G��LCLC����������g��x  �g��e1  �g��e2   �g�� when-list   �g��body   �g��x  p ��g��t  � ��g��t  � ��g��t  1 p�g��t  G m�g��x   �� g��filenamef��ice-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�����]84L�LLL4L$��,4L5 $��L &��L "��L"��L"��L5��$���"���L>�� G��4L�L5���$��B� &��2� 45$��"��L� "���"��� LL��C�������g��props E X�g��type b ��g��value b ��g��form  b ��g��e  b ��g��w  b ��g��s  b ��g��mod  b ��g��exp � ��g��meta � ��g��v  � ��� g��filenamef��ice-9/psyntax.scm : $               E   E   J   N  a   e   t  � ; & �   � =  �   � > � ?  � ?  � ?  � ? � @ - � @ & � @  �   �  �  � ���CJR'(S��h���N���]�LLLLLLLLL�6��F�������g��filenamef��ice-9/psyntax.scm K &  L (�   ���C�7������h` ����,�3��(��C�4L�4$��,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$��"��>�� G�4L554L>��"��G��45$�� "��"��45$��4L4L�  4 $��,4 5 $�� &�� "�� "�� "�� 5$��"��>�� G�4L55"��"�H$��4L4L�  4 $��,4 5 $�� &�� "�� "�� "�� 5$��"��>�� G�4L554L>��"��G��"�~45$�o4L4L�  4 $��,4 5 $�� &�� "�� "�� "�� 5$��"��>�� G�4L5445�5$�� �"�� � � �� �$��B &��2 4 !5$��"��! "���"��� �>��"��G��"���"�"$�+4L  54 5$��"��)$�� 4L5$��"��#"��$%$��"��!&$��"��$��"��'$�&��"��$��4(45�5$��"��45�$��4)45�5"�� 4*45�4+5�>��"��WG��"��P4,5$��A$��24-5$��""��4.45�>��"��G��"��""��""���"���&�4L�  4 $��,4 5 $�� &�� "�� "�� "�� 5$��"��>�� G�4L5$��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���"����������g��body  \�g��r  \�g��w   \�g��s   \�g��m   \�g��esew   \�g��mod   \�g��exps   \�g��e   ��g��props W j�g��t j }�g��type  � 1�g��value � 1�g��form � 1�g��e � 1�g��w � 1�g��s � 1�g��mod  � 1�g��tmp  � �g��tmp  � �g��tmp  L �g��n   �g��r   �g��props   (�g��type  2 m�g��value  2 m�g��form  2 m�g��e  2 m�g��w  2 m�g��s  2 m�g��mod  2 m�g��e  o �g��props    �g��type   N�g��value   N�g��form   N�g��e   N�g��w   N�g��s   N�g��mod   N�g��props   �g��type   �g��value   �g��form   �g��e   �g��w   �g��s   �g��mod   �g��e   #�g��props  z �g��type   �g��value   �g��form   �g��e   �g��w   �g��s   �g��mod   �g��e   �g��fun-exp   2�g��arg-exps   2�g��exp  2 �g��meta  K u�g��v  f r�g��n   �g��t   �g��t   �g��type   �g��old  w �g��props  C V�g��type  ` �g��value  ` �g��form  ` �g��e  ` �g��w  ` �g��s  ` �g��mod  ` �g��exp   �g��meta   �g��v   �g��x   �g��x   �g��exps  2 \��Rg��filenamef��ice-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 �  \ ��g��nameg��scan�C T�����h�����]/O� L L LLLLLLLLL�Q�4�>�� G�(��  �CL "��8 (�� "��7   4 5$�� 4 5�"��    "   "6������������g��body  ��g��r  ��g��w   ��g��s   ��g��m   ��g��esew   ��g��mod   ��g��scan   ��g��exps  H ��g��in e ��g��out e ��g��e t ��� g��filenamef��ice-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 �  � ��g��nameg��expand-top-sequence�CO� F   � ������h��� ��]445�5$�� �"�� � �� �� �$��B &��2 45$��"��� "���"��� ��C�������������g��name  ��g��e  ��g��fun-exp  I `�g��arg-exps  I `�g��exp  ` ��g��meta  y ��g��v  � ���g��filenamef��ice-9/psyntax.scm _       !     3          e #    *  ! , e # 0   A g & D   I f I c R   ` `  e   i =  l   y > | ?  � ?  � ?  � ? � @ - � @ & � @  �   �  �!  � ��g��nameg��expand-install-global�CU?>:;VW� �����hp���8��]4L�5"��W(��C&��"��&��"��&��"��$�� "�6"0������g��e  p�g�� when-list  p�g��result  p�g��l   h�g��t   N��g��filenamef��ice-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 ��g��nameg��parse-when-list�CO� IKHUXYMLZ[4\*V5]+^ab3�����h8������]�$��C�$��"4�5 $��� &��� CCCC��~�������g��name  6��g��filenamef��ice-9/psyntax.scm  e d      d     / f �  6 ���CGU�������h(���t���]4L�LL54LLLL5L�LD����l�������g��name  $��g��filenamef��ice-9/psyntax.scm      +    $  �  $ ���CU��h8��.��]�$��"��3�$��+4�5 $��� &�� � "��"��"��$��L�"��$��4L5"$��"��3$��+45 $�� &��  "��"��"��$��4L5"��o(��"��c"�� "��V$��<45 $��* &�� 4L 5"4""""6C��&������g��name  6�g��args  6�g��e1   6�g��e2   6�g��vars  K #�g��ls  K #�g��w  K #��g��filenamef��ice-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'(U���hp������] 4L�LL54LLLL54LLL5L�$��'45$��4L�>��"��G��"���"���L�LD�������������g��name  j�g��args  j�g��e1   j�g��e2   j�g��e  . b��g��filenamef��ice-9/psyntax.scm      +      . .   .   6 8  7 8  A 8 B 9 j  �  j ���C����h8������]�$��C�$��"4�5 $��� &��� CCCC���������g��name  6�g��val  6��g��filenamef��ice-9/psyntax.scm  e d      d     / f �  6 ���CG���h���s���]�LLLL�D������k�������g��name  �g��val  ��g��filenamef��ice-9/psyntax.scm      �   ���C��h8������]�$��C�$��"4�5 $��� &��� CCCC���������g��name  6�g��val  6��g��filenamef��ice-9/psyntax.scm  e d      d     / f �  6 ���CC���h���s���]�LLLL�D������k�������g��name  �g��val  ��g��filenamef��ice-9/psyntax.scm      �   ���C��h8������]�$��C�$��"4�5 $��� &��� CCCC���������g��name  6�g��val  6��g��filenamef��ice-9/psyntax.scm  e d      d     / f �  6 ���CD���h���s���]�LLLL�D������k�������g��name  �g��val  ��g��filenamef��ice-9/psyntax.scm      �   ���C)�-�h����]o�$��4L�545$��"��)$�� 4L5  $�� "�� "��  $�� ��D $�� ��D $��H$�� ��D4L�5�" ��D�$��4L>�� G�     $�� ��D$��   ���D$��14L �5�"f $��<4 �>�� G��"! $��  ��D$�� ��D$����D$����D$��4�5"��4�5"��D4�5"�� �6$��"4?$���LO�@""$��+4L�LLO�?$���LO�@""$�� 4?$�� �O�@"R"N!$��B4�5"�� �6$�� 4"?$��#�O�@""$$��B4�5"�� �6$�� 4%?$��&�O�@""'��D"��)4(�5$��)��D*��D�$��4+�5 $���  &��� 4L� 54,4+�5 $���  &��� "���"���5$��"��$��"��� $��"���"q"!""��� ������g��e  �g��r  �g��w   �g��s   �g��rib   �g��mod   �g��for-car?   �g��n   ��g��t   X�g��t < O�g��b  X ��g��type ] ��g��first  � �g��ftype   �g��fval  �g��fform  �g��fe  �g��fw  �g��fs  �g��fmod   �g��e   �g��r   �g��w   �g��s   �g��mod   �g��tmp  U  �g��tmp  d �g��tmp  s �g��tmp   X�g��tmp  j �g��props  = P�g��t  P c�g��t  j }��!g��filenamef��ice-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   ��g��nameg�� syntax-type�CO� )�������h�����]<4L�4�$��,4�5 $��� &��� "���"���"���5$��"��>�� G�  L�  6�������g��e  ��g��r  ��g��w   ��g��mod   ��g��props  E X�g��type  b ��g��value  b ��g��form  b ��g��e  b ��g��w  b ��g��s b ��g��mod b ��� g��filenamef��ice-9/psyntax.scm                 E   E   J   N  a   e   �  �  � ��g��nameg��expand�CO�! LZM)XY ���h������] L���C�����~�������g��mod  �g��var  �g��public?   ��g��filenamef��ice-9/psyntax.scm q   �   ���C ����h���`���] L���C�X�������g��var  ��g��filenamef��ice-9/psyntax.scm s   �   ���C'(UH �������h������] L���C�����~�������g��mod  �g��var  �g��public?   ��g��filenamef��ice-9/psyntax.scm q   �   ���C ����h���`���] L���C�X�������g��var  ��g��filenamef��ice-9/psyntax.scm s   �   ���C*+2�����h���g���]L�LLLL�6�����_�������g��e1  �g��e2  ��g��filenamef��ice-9/psyntax.scm   �   ���C- '(� ������hh������]�45�$��4>��"��G�� �C4LL$��'4L5$��4LL>��"��G��"���"���LLL�56����������g��filenamef��ice-9/psyntax.scm  "  "  $   %   $  !   + ' ' ,   4 8  5 8  ? 8 @ 9 c   e ' �  e ���C34579: �h8������] 4L�L�545$��LLLLL6 �C�����������g��x  4�g��e1  4�g��e2   4�g�� when-list  4��g��filenamef��ice-9/psyntax.scm  .  .   /   /   /   /  + 0  /  �  4 ���CGCDJ�+�h��5��,�3��$�� �C�$��"���$��6�$��4>�� G�    4L  4$��,45 $�� &�� "��"��"��5  $�� "��  >�� G�   �" � $��L�4$��,45 $�� &�� "��"��"��5  $�� "�� $��/45 $�� &�� 4 5"��"��"��     �  6� $��L�4$��,45 $�� &�� "��"��"��5  $�� "�� $��,45 $�� &�� "��"��"��$��-45 $�� &��  "��"��"��  4L   O� O�5  6�$��M4L4L$��'45$��4>��"��G��"���"���55 �C�$��LO�O�6�$��L�4L4$��,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�-������g��type  �g��value  �g��form   �g��e   �g��r   �g��w   �g��s   �g��mod   �g��e  [ ��g��r [ ��g��w [ ��g��s [ ��g��mod [ ��g��props � ��g��type � ��g��value  � ��g��form  � ��g��e  � ��g��w  � ��g��s  � ��g��mod  � ��g��id   �g��props G Z�g��source  �g��name  �g��x   �g��props  �g��source   �g��var  �g��mod  �g��exp    �g��e  9 �g��props ~ �g��type  �g��value  �g��form  �g��e  �g��w  �g��s   �g��mod   �g��tmp   ?�g��tmp  ?�g��tmp  l ��+g��filenamef��ice-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     ; �|   ��g��nameg�� expand-expr�CO� "+1)��h���Q��]94L�LL4�$��,4�5 $��� &��� "���"���"���5$��"��L>�� G�L�L6�I������g��e  ��g��props E X�g��type b ��g��value  b ��g��form  b ��g��e  b ��g��w  b ��g��s  b ��g��mod  b ��� g��filenamef��ice-9/psyntax.scm C #               E   E   J   N  a   e   �  �  � ���C ��h0������] 4LLLLL�O�5 LL�C��������������g��e0  )�g��e1  )�g��arg-exps   )��g��filenamef��ice-9/psyntax.scm  C   B   �  ) ���C3��h8������]45$��LL��O�@6������������g��x  3�g��e  3�g��r   3�g��w   3�g��s   3�g��mod   3�g��tmp  3��g��filenamef��ice-9/psyntax.scm ? �  3 ��g��nameg��expand-application�CO�#'( #� h@����]2�$��G4L�54L�5L$��'45$��4L>��"��G��"���"���C�$�e"��w4�545L$��'45$��4L>��"��G��"���"���"��&$��C4L�5" "4�5 $��� &��� "��l� L$��'45$��4L>��"��G��"���"���L�$�� L�"��� �C$��>&��2� L�$�� L�"��� �C"O"K""�$��IL4L$��'4L5$��4L>��"��G��"���"���LLL5�6L$��'4�5$��4�L>��"��G��"���"����C����������g��x  <�g��m  <�g��e   P�g��n  b ��g��e  k ��g��v  � ��g��i  � ��g��w  � �g��ms  � �g��ss  � �g��e   7�g�� expression  Y k�g��wrap  Y k�g��module  Y k�g�� expression   �g��wrap   �g��module   �g��s   ��g��filenamef��ice-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  < ��g��nameg��rebuild-macro-output�C������h���^���]�LLLLLL�6������V�������g��k  ��g��filenamef��ice-9/psyntax.scm     #�   ���C#'(����h�����]O�LQ�M�O�Y44�4L$��'45$��4>��"��G��"���"���5545>��ZCZF�������g��p  ��g��e  ��g��r   ��g��w   ��g��s   ��g��rib   ��g��mod   ��g��rebuild-macro-output   ��g��w  H ��� g��filenamef��ice-9/psyntax.scm g  7  :  @  ' A   C   F  G   H   H  # K   S 8  T 8  ^ 8 _ 9 �   �  �  �  �  � ��g��nameg�� expand-macro�CO�$"U)GCDT*+�������h(������]�(��LCL�4L�LL54L�5C����������g��forms  %��g��filenamef��ice-9/psyntax.scm  #   %  )   8   >   8   /   / !  2 #  / $  )�  % ��g��nameg��f�C����h8���n���] L O�LLLL L Q�4�5LLLLLL�6f�������g��e1  8�g��f  *��g��filenamef��ice-9/psyntax.scm   # 8  �  8 ���C34���h(������]�(��LCL�4L�LL54L�5C����������g��forms  %��g��filenamef��ice-9/psyntax.scm  7   9  =   L   R   L   C   C !  F #  C $  =�  % ��g��nameg��f�C����h8������] LO�LLQ�4�5LLLLLL�6�������g��forms  8�g��er  8�g��w   8�g��s   8�g��mod   8�g��f   *��g��filenamef��ice-9/psyntax.scm  .   7 8  0�  8 ���CU)��������h�����]I��4L4$��,45 $�� &�� "��"��"��5$��"��L>�� G� L� 6�������������g��x  ��g��e  ��g��r   ��g��props  O b�g��type  l ��g��value  l ��g��form  l ��g��e  l ��g��w  l ��g��s  l ��g��mod l ��� g��filenamef��ice-9/psyntax.scm  2   <   D   4              O   O   T   X  k   o   �  �  � ���C'( U)��������h�����]I��4L4$��,45 $�� &�� "��"��"��5$��"��L>�� G� L� 6�������������g��x  ��g��e  ��g��r   ��g��props  O b�g��type  l ��g��value  l ��g��form  l ��g��e  l ��g��w  l ��g��s  l ��g��mod l ��� g��filenamef��ice-9/psyntax.scm  2   <   D   4              O   O   T   X  k   o   �  �  � ���CU)�������h�����]I��4L4$��,45 $�� &�� "��"��"��5$��"��L>�� G� L� 6�������������g��x  ��g��e  ��g��r   ��g��props  O b�g��type  l ��g��value  l ��g��form  l ��g��e  l ��g��w  l ��g��s  l ��g��mod l ��� g��filenamef��ice-9/psyntax.scm  B   L   T   D              O   O   T   X  k   o   �  �  � ���C�$�����h��c ��]�(�� L 6��4L�4$��,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 L4L�4L�  4 $��,4 5 $�� &�� "�� "�� "�� 5$��"��>�� G�4L54545$��"�� 45�L5��"  $��;4 5$��! L �L O� @ 6 $��'L   L �L O� 6(��h4LL�O�4L $��'4 5$��4 >��"��G��"���"���  5�5(��C �C4L5$��"��4L >��"��G��L4LL544 55454!LL�O�4554"LL�O�4L $��'4 5$��4 >��"��G��"���"���  5�5(��"��  �(��C4#L >��"��G�� �C�������[ ������g��body  �g��ids  �g��labels   �g��var-ids   �g��vars   �g��vals   �g��bindings   �g��e   �g��er   �g��props ` s�g��type ~ �g��value ~ �g��form ~ �g��e ~ �g��w ~ �g��s  ~ �g��mod  ~ �g��id  � }�g��label  � }�g��id  � ��g��var  � }�g��update   �g��update   '�g��update  / ;�g��id   �g��label   �g��trans-r   �g��update   �g��update   �g��update   �g��props  G Z�g��type  d �g��value  d �g��form  d �g��e  d �g��w  d �g��s  d �g��mod  d �g��expanded   �g��p   �g��tmp   =�g��exps   �g��exps   �g��ids   �g��vars   �g��val-exps   �g��body-exp   ��/g��filenamef��ice-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   =   -                       �   ��g��nameg��parse�Ch���g���]L4L��LL5C�������_�������g��x  ��g��filenamef��ice-9/psyntax.scm  !   5   -�   ���C������hp�����]%�O� LLLLLLL�LQ�4LO��56��������g��body  n�g�� outer-form  n�g��r   n�g��w   n�g��mod   n�g��r   n�g��ribcage   n�g��w   n�g��parse  3 n�� g��filenamef��ice-9/psyntax.scm                           :   ,       3  S   g   h  ( i   j  * k  5 l  D n  �  n ��g��nameg�� expand-body�CO�%+)���h�����]94L4L��LL$��L"��L4�$��,4�5 $��� &��� "���"���"���5$��"��L>�� G�4LL5L5C����x������g��x  ��g��props V i�g��type s ��g��value  s ��g��form  s ��g��e  s ��g��w  s ��g��s  s ��g��mod  s ��� g��filenamef��ice-9/psyntax.scm    0   0      "    "   &   '   V   V   [   _  r   v   �  �  0 �  "�  � ���C��������hp���9��]4L�5$��V4L �54L �L5L4L 4L L54LLLLLLO�5L5L L6L�6����1������g��id  l�g��val  l�g��e1   l�g��e2   l�g��labels   c�g��new-w  ! c�g��trans-r  6 W��g��filenamef��ice-9/psyntax.scm             !   +   0  ( 6   9   [   c   h  & l  �  l ���C'(���h���-��]45$��'LL�LLLLLLO�@4L�$��'45$��4>��"��G��"���"���56�������%������g��rec?  y�g��e  y�g��r   y�g��w   y�g��s   y�g��mod   y�g��k   y�g��tmp  y��g��filenamef��ice-9/psyntax.scm   ? # " @   H 8  I 8  S 8 T 9 w   y # �  y ��g��nameg��expand-local-syntax�CO� &T��������h(������] 4�545$��C6�������������g��expanded  "�g��mod  "�g��p  "��g��filenamef��ice-9/psyntax.scm '    (  )   )  + # " + �  " ��g��nameg��eval-local-transformer�C'U IK� �����h����]#�$�r4�5 $�b� &�V� $�K� � �4L545$��"��)$�� 4L�5$��"��"��&��x"���C4�5 $��W� &��I$��>45 $��, &���  &��L�  6C"""""4�5 $��� &��� "���"���4 5 $�� "�� &��4L�54L 5CCCCCC���������g��e  }�g��r  }�g��mod   }�g��wrap  4 I�g��module  4 I�g��id  I u�g��n  T u�g��t  _ ��g��t  ~ ��g��b  � u�g��j  � �� g��filenamef��ice-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  } ��g��nameg�� ellipsis?�CO�(+�����h���O���]�L4L�56��G�������g��filenamef��ice-9/psyntax.scm  H   H �   ���C_�������h8������]�$��C�$��"4�5 $��� &��� CCCC��{�������g��r  6��g��filenamef��ice-9/psyntax.scm  e d      d     / f �  6 ���C������h���_���]L4L�5�6�W�������g��r  ��g��filenamef��ice-9/psyntax.scm  L   L �   ���C�h8������]�$��C�$��"4�5 $��� &��� CCCC���������g��a  6�g��b  6��g��filenamef��ice-9/psyntax.scm  e d      d     / f �  6 ���C����h���n���]L�L�6���f�������g��a  �g��b  ��g��filenamef��ice-9/psyntax.scm J  J �  ���C� ������h������]4�5$�� LO�@4�5"��+��4?$�� LO�@L�6$��4 ?$��  L�O�@""��������g��args  �g��rreq  �g��tmp  �g��tmp  ( �g��tmp  3 Y��g��filenamef��ice-9/psyntax.scm E  Q N  S N ' Y N �   ��g��nameg��req�C����h0������]4L$�� �"���5$���DL�6���������g��req  .�g��rest  .��g��filenamef��ice-9/psyntax.scm O   Q Q !  Q *  Q  P $ R ( T  * T & . T �  . ��g��nameg��check�C�h0������]O�O��Q��L�Q��6�����������g�� orig-args  ,�g��req  ,�g��check   ,��g��filenamef��ice-9/psyntax.scm D  * V  , V �  , ��g��nameg��lambda-formals�CO�)!'(�����h�����,� 3� $��4�5"�� 4L� 5 4L 5 L45$�� 45"�� 4L4L$��'4�5$��4�>��"��G��"���"����54L  54L  556 ������g��e  ��g��r  ��g��w   ��g��s   ��g��mod   ��g��req   ��g��rest   ��g��meta   ��g��body   ��g��ids  ��g��vars ) ��g��labels 2 ��� g��filenamef��ice-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 � ] �  � ��g��nameg��expand-simple-lambda�CO�*+������h���a���]�L4L�56Y�������g��filenamef��ice-9/psyntax.scm  k  k #  k *  k �   ���C_��h8������]�$��C�$��"4�5 $��� &��� CCCC��{�������g��r  6��g��filenamef��ice-9/psyntax.scm  e d      d     / f �  6 ���C������h���q���]L�4L�56�������i�������g��r  ��g��filenamef��ice-9/psyntax.scm  u   u (  u ,  u �   ���C�����h���n���]4�5C���f�������g��a  �g��b  ��g��filenamef��ice-9/psyntax.scm  r  r �  ���C���h������]L4L�56�������x�������g��a  �g��b  ��g��filenamef��ice-9/psyntax.scm  s   s &  s *  s �   ���C������h���n���]4�5C���f�������g��a  �g��b  ��g��filenamef��ice-9/psyntax.scm  p  p �  ���C���h������]L4L�56�������x�������g��a  �g��b  ��g��filenamef��ice-9/psyntax.scm  q   q %  q )  q �   ���C ������h���n���]4�5C���f�������g��a  �g��b  ��g��filenamef��ice-9/psyntax.scm  n  n �  ���C���h���w���]L4L�56o�������g��a  �g��b  ��g��filenamef��ice-9/psyntax.scm  o   o %  o �   ���C�h8������]�$��C�$��"4�5 $��� &��� CCCC���������g��a  6�g��b  6��g��filenamef��ice-9/psyntax.scm  e d      d     / f �  6 ���C����h���n���]L�L�6���f�������g��a  �g��b  ��g��filenamef��ice-9/psyntax.scm m  m �  ���C�������h ����]24�5$�� LO�@4�5"��4�5"��4�5"��`4�5"��+��4?$�� LO�@ L�6$��4 ?$��  LO�@""$��4 ?$��  LO�@"~"z$��4?$�� LO�@"I"E$��4?$�� L�O�@""���������g��args  �g��rreq  �g��tmp  �g��tmp  ( �g��tmp  7 ��g��tmp  F ��g��tmp  U ��g��tmp  ` ���g��filenamef��ice-9/psyntax.scm h  ~ w  � w ( � w �   ��g��nameg��req�C+��������h���X���]�LL4L�56�������P�������g��filenamef��ice-9/psyntax.scm  {   { *  { �   ���C_ ��������h8������]�$��C�$��"4�5 $��� &��� CCCC��{�������g��r  6��g��filenamef��ice-9/psyntax.scm  e d      d     / f �  6 ���C������h���h���]L�L4L�56������`�������g��r  ��g��filenamef��ice-9/psyntax.scm     ,   �   ���C ������h���n���]4�5C���f�������g��a  �g��b  ��g��filenamef��ice-9/psyntax.scm     �  ���C���h���w���]LL4L�56������o�������g��a  �g��b  ��g��filenamef��ice-9/psyntax.scm     *   �   ���C�������h���n���]4�5C���f�������g��a  �g��b  ��g��filenamef��ice-9/psyntax.scm     �  ���C���h���w���]LL4L�56������o�������g��a  �g��b  ��g��filenamef��ice-9/psyntax.scm     )   �   ���C�h8������]�$��C�$��"4�5 $��� &��� CCCC���������g��a  6�g��init  6�g��b   6��g��filenamef��ice-9/psyntax.scm  e d      d     / f �  6 ���C��h������]LL��L�6����x�������g��a  �g��init  �g��b   ��g��filenamef��ice-9/psyntax.scm      �   ���C��������h8������]�$��C�$��"4�5 $��� &��� CCCC���������g��a  6�g��b  6��g��filenamef��ice-9/psyntax.scm  e d      d     / f �  6 ���C.�������h���n���]LL�L�6������f�������g��a  �g��b  ��g��filenamef��ice-9/psyntax.scm  }   } �   ���C�������h0����]34�5$��LO�@4�5"��4�5"��4�5"��d4�5"��-��4?$��LO�@  L�6$��4 ?$�� LO�@""$��4 ?$��LO�@"x"t$��4?$��L�O�@"A"=$��4?$��L�O�@" "������������g��args  *�g��req  *�g��ropt   *�g��tmp  *�g��tmp  * *�g��tmp  9 �g��tmp  H ��g��tmp  W ��g��tmp  b ��� g��filenamef��ice-9/psyntax.scm x  �   �  ( �  �  * ��g��nameg��opt�C+�����h���X���]�LLL4L�56����P�������g��filenamef��ice-9/psyntax.scm  (      �   ���C_ 01/�������h8������]�$��C�$��"4�5 $��� &��� CCCC��{�������g��r  6��g��filenamef��ice-9/psyntax.scm  e d      d     / f �  6 ���C������h���h���]L�LL4L�56���`�������g��r  ��g��filenamef��ice-9/psyntax.scm  *   !   �   ���C2������h���n���]4�5C���f�������g��a  �g��b  ��g��filenamef��ice-9/psyntax.scm     �  ���C���h���w���]LLL4L�56���o�������g��a  �g��b  ��g��filenamef��ice-9/psyntax.scm  (      �   ���C3���hH������]4�5&��4$��C$��"45 $�� &�� CCCCC����������g��aok  E�g��r  E��g��filenamef��ice-9/psyntax.scm   !     e  d      d    < f �  E ���C���h���y���]LLL4L�56���q�������g��aok  �g��r  ��g��filenamef��ice-9/psyntax.scm  (      �   ���C3��h ������]4�5&�� 45CC�����������g��aok  �g��a  �g��b   ��g��filenamef��ice-9/psyntax.scm   !      !   �   ���C��������h������]LLL4L�56����������g��aok  �g��a  �g��b   ��g��filenamef��ice-9/psyntax.scm  (      �   ���C3������h���a���]4�5C���Y�������g��aok  ��g��filenamef��ice-9/psyntax.scm     �  ���C��������h���j���]LLL4L�56����b�������g��aok  ��g��filenamef��ice-9/psyntax.scm  (      �   ���C4��������hX������]�$��"��3�$��+4�5 $��� &�� � "��"��"��$�� 456C�������������g��a  R�g��init  R�g��k   R�g��b   R��g��filenamef��ice-9/psyntax.scm  e d      d     2 f  E   H  - P  #�  R ���Ch������]LLL��L�6�������g��a  �g��init  �g��k   �g��b   ��g��filenamef��ice-9/psyntax.scm      �   ���C�h8������]�$��C�$��"4�5 $��� &��� CCCC���������g��a  6�g��init  6�g��b   6��g��filenamef��ice-9/psyntax.scm  e d      d     / f �  6 ���C5��h(������] 44�55LLL��L�6���������g��a  &�g��init  &�g��b   &�g��tmp   &��g��filenamef��ice-9/psyntax.scm      /      $  &  �  & ���C���h8������]�$��C�$��"4�5 $��� &��� CCCC���������g��a  6�g��b  6��g��filenamef��ice-9/psyntax.scm  e d      d     / f �  6 ���C5I�h(������] 44�55LLL�L�6����������g��a  %�g��b  %�g��tmp   %��g��filenamef��ice-9/psyntax.scm      /      #  %  �  % ���C��h��c��]L4�5$��LO�@4�5"�4�5"�L4�5"�4�5"��4�5 "��4�5 "��h4�5 "��/�� 4  ?$�� LO� @   L�6 $�� 4 ?$��LO� @"" $�� 4 ?$��LO� @"r"n $�� 4 ?$��LO� @"9"5$�� 4?$��LO�@"�"$�� 4?$��L�O�@""$�� 4?$��L�O�@""$�� 4?$��L�O�@"U"Q�������[������g��args  �g��req  �g��opt   �g��rkey   �g��tmp  �g��tmp  , �g��tmp  ; �g��tmp  J �g��tmp  Y c�g��tmp h 9�g��tmp w �g��tmp � ��g��tmp � ��� g��filenamef��ice-9/psyntax.scm   �   �  ( �  �   ��g��nameg��key�C����h8������]�$��C�$��"4�5 $��� &��� CCCC��{�������g��r  6��g��filenamef��ice-9/psyntax.scm  e d      d     / f �  6 ���C���h���V���]LLL�L�6��N�������g��r  ��g��filenamef��ice-9/psyntax.scm   �   ���CJ�������h8������] ��4?$��LO�@L��6��������������g��args  1�g��req  1�g��opt   1�g��kw   1�g��tmp   1��g��filenamef��ice-9/psyntax.scm   )   +  ( 1  �  1 ��g��nameg��rest�C!KL��hX���G��]4L4�45$�� �"��$��45"��55$�� �DL�6���?������g��req  U�g��opt  U�g��rest   U�g��kw   U��g��filenamef��ice-9/psyntax.scm           '   0 #  < &   *   +  $ 2  . 4  $ 9  8 ;  =  A  K  O   Q  ' U  �  U ��g��nameg��check�C������hx������])O�O�O�O�O��Q��Q��Q��Q��L�Q��6�����������g�� orig-args  t�g��req 8 t�g��opt  8 t�g��key  8 t�g��rest  8 t�g��check  8 t��g��filenamef��ice-9/psyntax.scm g  r   t  �  t ��g��nameg��lambda*-formals�CO�+��hX���[��]%4L�54L��54LL54L�L5L4�5456 ������S������g��req  R�g��opt  R�g��rest   R�g��kw   R�g��body   R�g��vars   R�g��labels   R�g��r*  , R�g��w*  , R�� g��filenamef��ice-9/psyntax.scm             "   ,  3   D  * O  ? P  C R  �  R ��g��nameg�� parse-req�C+)������h8����]Z�$��,4�5 $��� &��� "���"���"���44554L��54L�L54L��L5LLLL L L L 4�5L 4LLL4$��,45 $�� &�� "��"��"��5$��"��L>�� G�    4L L   5    L6 ��������g��id  6�g��i  6�g��id  7 H�g��v  H 6�g��l  T 6�g��r**  d 6�g��w**  t 6�g��props  � ��g��type  � 1�g��value  � 1�g��form  � 1�g��e � 1�g��w � 1�g��s � 1�g��mod � 1��g��filenamef��ice-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 ������S������g��req  b�g��opt  b�g��rest   b�g��kw   b�g��body   b�g��vars   b�g��r*   b�g��w*   b�g��out   b�g��inits  b�g��tmp  W�g��tmp  W�g��id � ��g��v � �g��l � �g��r* � �g��w* � ��g��filenamef��ice-9/psyntax.scm          ]  `   d 7  e   � 7  � 8 �  �   �  " �   �  �   �  ) �   �  �   �  * �   �  �  �   �  , �   �   �   �  '            '       %   )   *  * 9   =   @  % Q   U   X  % ^   b  �1  b ��g��nameg�� parse-opt�C+/)������hH����][$��,45 $�� &�� "��"��"��44554L��54L�L54L�L5LLLLL L L L 4�545�L 4LLL4$��,45 $�� &�� "��"��"��5$��"��L>�� G�     4L  L   5     L6 ����������g��k  D�g��id  D�g��i   D�g��id  7 H�g��v  H D�g��l  T D�g��r**  d D�g��w**  t D�g��props  � ��g��type   ?�g��value   ?�g��form  ?�g��e  ?�g��w  ?�g��s  ?�g��mod  ?��g��filenamef��ice-9/psyntax.scm    7    7 7  : 8 H   K   R  % T   T   W   `  - d   d   g   n  . t   t   �  ( �  6 �  ' �  ' �  ! �   �   �   �   �   �   �   �   �   �          B   D  �'  D ���C3��������h�����,� 3� $��L 4 5  $��-LLLLLL  �LO� @ 6L��$��"�� $��4 5"��454 56 �������������g��req  ��g��opt  ��g��rest   ��g��kw   ��g��body   ��g��vars   ��g��r*   ��g��w*   ��g��aok   ��g��out  ��g��inits  ��g��tmp  Y�g��tmp  Y�� g��filenamef��ice-9/psyntax.scm          g   o  $ s   v  ; }  1 �   �  2 �  B �  �  � ��g��nameg��parse-kw�C+MQ!R�h8������]L LLLLLLLL4L�44�5556 �������������g��k  2�g��v  2�g��e1   2�g��e2   2��g��filenamef��ice-9/psyntax.scm      & 0   2  �  2 ���C1'(������h`������]LL L L L L L4L��4LL$��'4L5$��4LL>��"��G��"���"���LLL5LLL5D�������������g��e1  Z�g��e2  Z��g��filenamef��ice-9/psyntax.scm       ! 8  " 8  , 8 - 9 P   X   Z  �  Z ���C3S���h������]4�56����������g�� docstring  �g��e1  �g��e2   ��g��filenamef��ice-9/psyntax.scm   ,  #�  ���C!T�����h0������]L LLLLLLLL4L�4�5�56 ��������g�� docstring  /�g��e1  /�g��e2   /��g��filenamef��ice-9/psyntax.scm     ! !  ' (  ! -   /  �  / ���C� �h���K��,� 3� 45 "��o45  $�� �LO�  @45  $��'LLLLLL�� O� @6 $��,4  ?$��  �LO�  @"_"[������C������g��req  ��g��opt  ��g��rest   ��g��kw   ��g��body   ��g��vars   ��g��r*   ��g��w*   ��g��inits   ��g��meta  ��g��tmp  ��g��tmp  ��g��tmp L ��� g��filenamef��ice-9/psyntax.scm  �  � ��g��nameg�� parse-body�C+�h���O���]�D��G�������g��filenamef��ice-9/psyntax.scm      �   ���CVh���t���]�C�����l�������g��tmp-bde397a-1382  �g��tmp-bde397a-1381  �g��tmp-bde397a-1380   ��  ���C! �����h�����]v4L�>�� G� 4L� >�� G�    4LLLLLLL45>�� G�4 5 L   � D�������g��args  ��g��e1  ��g��e2   ��g��args*   ��g��e1*   ��g��e2*   ��g��req  ��g��opt  ��g��rest  ��g��kw ��g��meta . ��g��req . ��g��opt . ��g��rest . ��g��kw  . ��g��inits  . ��g��vars  . ��g��body  . ��g��meta*  c ��g��else*  c ���g��filenamef��ice-9/psyntax.scm   (     # 1   B   f   k   x   �  �  � ���C3� �����h���n��]7O�O�O� O� LLLLQ� LLLLLQ� LLLLL Q� L�L� Q� 45  $�� @45  $���LO� @  6���f������g��e  ��g��r  ��g��w   ��g��s   ��g��mod   ��g�� get-formals   ��g��clauses   ��g�� parse-req  < ��g�� parse-opt  < ��g��parse-kw < ��g�� parse-body < ��g��tmp � ��g��tmp � ��� g��filenamef��ice-9/psyntax.scm  �  � ��g��nameg��expand-lambda-case�CO� ,9dW�������h�����]!"���$��;4L��54L��5"��C�&���&���C""�$��K4�54L�5"��'(���C&��"6"�C�$��-4�5 $��� &�� L� � 6"9"5"1��� ������g��x  ��g��a  H�g��d   H�g��old V ��g��new  a ��g��l1  g ��g��l2  g ���g��filenamef��ice-9/psyntax.scm  "     #   #   #   # )  # ,  # )  #  * &  + $  0 $ " 4 $  9 $ 2 = $  K '  O   P (  V (  Y )  a )  g +  m ,  s . # v . , z .  } / " � / + � /  � 0  � +  �   �   �   �   � ! �&  � ��g��nameg��f�C�h0������] 45$���CO�L�Q��6��������������g��x  )�g��w  )�g��f   )��g��filenamef��ice-9/psyntax.scm          �  ) ��g��nameg��strip�CO�-������hH������] �$��,4�5 $��� &��� "���"���"���456�����������g��id  D�g��id 7 D��g��filenamef��ice-9/psyntax.scm 6     7    7 7  < 8 �  D ��g��nameg��gen-var�C.Q� Q�  Q�  Q� Q�Q�Q�Q�Q�Q�Q�Q�Q�Q�" Q�"& Q�-Q� $Q� " Q�!#-&" Q�"" Q�#Q�$& " Q�%  "'Q�&Q�(Q�).% Q�*Q�+%"  .,Q�,-Q�-4i4i5�X5/�h���W���]�L�6��O�������g��filenamef��ice-9/psyntax.scm      �   ���C/O�/K�4YiZ[�������h���g���]6_�������g��k  ��g��filenamef��ice-9/psyntax.scm h   i   i �   ���C5K4i4i5�\4i\[5>��"��G��4i4i5�]4i][5>��"��G��4L^+^_'(�������h������]L��6�������g��var  �g��val  �g��e1   �g��e2   ��g��filenamef��ice-9/psyntax.scm  S �   ���C�h���^���]L�L�6������V�������g��x  ��g��filenamef��ice-9/psyntax.scm T * T 6�  ���C IKJ^R'(� h���E��]4L5$��"��)$�� 4L�L5$��"��"��$��BL4LL$��'4�5$��4 �L>��"��G��"���"����LL56C��=������g��id  ��g��n  ��g��t  F�g��t  * =�g��key  G ���g��filenamef��ice-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'()���h���v��]94L4L��LL4�$��,4�5 $��� &��� "���"���"���5$��"��L>�� G�4LL5L5Cn������g��x  ��g��props J ]�g��type g ��g��value  g ��g��form  g ��g��e  g ��g��w  g ��g��s  g ��g��mod  g ��� g��filenamef��ice-9/psyntax.scm e #  f 3  g 3                J   J   O   S  f   j   y  � g 3 � f %�  � ���C�������h���<��]4L L�O��54LLL L L L L O��>��"��G��L4L L $��'4L 5$��4L L >��"��G��"���"���L L L 54L4LL54LL L LLO�5L5L L 6���4������g��var  ��g��val  ��g��e1   ��g��e2   ��g��names   ��g��trans-r  � ���g��filenamef��ice-9/psyntax.scm  T %  T   U  C   K 8  L 8  V 8 W 9 z   { b  � d + � d  � e  � b  � _ �  � ���C� h������] 4�5"��@4L $��'4�5$��4�>��"��G��"���"����56$��94L�O�?$��% LLLLLLLL�L O�@""}�����������g��e  ��g��r  ��g��w   ��g��s   ��g��mod   ��g��tmp  ���g��filenamef��ice-9/psyntax.scm P   m ,  m A    8  ! 8  + 8 , 9 O   Q m �  � ���C%'"  O� >��"��G��4i4i5�`4i`L+b ����h ���x���] 4L��L5 L�C�������p�������g��e  �g��exp ��g��filenamef��ice-9/psyntax.scm  s , s    �   ���C`_'(� hh������] 4�5$��LO�@4L�$��'4�5$��4�>��"��G��"���"����56�������������g��e  b�g��r  b�g��w   b�g��s   b�g��mod   b�g��tmp  b��g��filenamef��ice-9/psyntax.scm q  & t , ( t 3 )   1 8  2 8  < 8 = 9 `   b t �  b ���C-O�5>��"��G��4LU IKab`+c_`dR���h�����]*4LL�LLLL�>�� G�4LLLLL�>�� G�$��<&���"��&�� �"�� �"��$�� "�� �D������������g��x  ��g��y  ��g��x   ��g��maps   ��g��y  3 ��g��maps  3 ��g��key  = ���g��filenamef��ice-9/psyntax.scm   /     3 6  $ =   =   K  % M  - Q   S  V  * Z  6 \  f  ) h  2 l  n  $ y  $ �   �  # �  / �  # �  ! �  7�  � ���CedN`�������h`�����]4LL�LLLL�>�� G�&�� "��"&��45�"���D������������g��e1  Z�g��e2  Z�g��e   Z�g��maps   Z��g��filenamef��ice-9/psyntax.scm   &   $  &  ( *   ,  / /  : 0  / 7  9  ( =   ?  0 E  < H  0 Q  Z  3�  Z ���C�������h���w���]LLL�6����o�������g��x  �g��dots  �g��y   ��g��filenamef��ice-9/psyntax.scm  �  ���C+_f!����h���h���]L�LL�6����`�������g��dots  �g��y  ��g��filenamef��ice-9/psyntax.scm  %�  ���Cg.i������hH���&��]4L�>�� G�(�� L�64L5�D����������g��maps  D�g��x  D�g��maps   D�g��map-env  * ?��g��filenamef��ice-9/psyntax.scm  (   9   B  <   9   *   9   . !  D #  L '  2 *  I *  : .   1  5 <   B  : D  2�  D ���C�������h���h���]LLLL�O�6�����`�������g��dots  �g��y  ��g��filenamef��ice-9/psyntax.scm   %�   ���C�����h�����]*4�5"��J4L�L�LLLL>�� G�4>�� G�$��"�� �D$��)4LLLO�?$��LLLO�@""��������g��y  ��g��k  ��g��tmp  ��g��y  & [�g��maps  & [�g��x  8 [�g��maps  8 [��g��filenamef��ice-9/psyntax.scm    6 )  ' .  : ;  + C  ' D   H   P   [  /�  � ��g��nameg��f�Cg��h@��� ��]4LLLL�LL>�� G�(�� L64L�5D������g��maps  @�g��x  @�g��maps   @��g��filenamef��ice-9/psyntax.scm  +   3  E   ?   3   - #  < '  1 +  G -  O 1  5 2  = 9  H ;  = >  = @  5�  @ ��g��nameg��k�C��������h@������] O�LL�LLLLLQ�LLLL�LLO�6���~�������g��x  =�g��dots  =�g��y   =�g��f   =��g��filenamef��ice-9/psyntax.scm   �  = ���Ch���h���]L�LL�6����`�������g��dots  �g��e  ��g��filenamef��ice-9/psyntax.scm  �  ���C�����h���u���]C����m�������g��e  �g��r  �g��mod   ��g��filenamef��ice-9/psyntax.scm  ;�   ���C��������h���h���]LLLLL�6������`�������g��dots  �g��e  ��g��filenamef��ice-9/psyntax.scm   �   ���C�����h����]&$��"��3$��+45 $�� &��  "��"��"��$��4L545$��"��)$�� 4L5$��"��"��&��*4L�>�� G� � D45$��   �6 �D4  5"��4 5"��W4 5$���L�O�@4 5  $���L�O� @ �D$��/4O�?$��L��LO�@"t"p$��+4O�?$���L�O�@"0", ������g��src  �g��e  �g��r   �g��maps   �g�� ellipsis?   �g��mod   �g��label  N ��g��t  Y ��g��t  x ��g��b  � ��g��var.lev  � ��g��var  � ��g��maps � ��g��tmp  � �g��tmp   �g��tmp   b�g��tmp : b��g��filenamef��ice-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  "�)   ��g��nameg�� gen-syntax�CO�/j k������hx�����]$ $��D(�� �64L��>�� G�45$��D4455D�������������g��src  q�g��var  q�g��level   q�g��maps   q�g�� outer-var  3 q�g�� outer-maps  3 q�g��b  D q�g�� inner-var  _ q��g��filenamef��ice-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 ��g��nameg��gen-ref�CO�0la��h���p���]��C�����h�������g��x  ��g��filenamef��ice-9/psyntax.scm  -   9   @  9�  ���Cama9�h������]�&�� �L�6C�z�������g��x  ��g��filenamef��ice-9/psyntax.scm     4   <  *   H   B�   ���ChR �������h���y���]4�L�5C�q�������g��x  ��g��filenamef��ice-9/psyntax.scm  ,   =   C  =   8�   ���C� hx���t��]4545�&��C4O��5$��,��44 5 O��5C ��C����l������g��e  t�g��map-env  t�g��formals   t�g��actuals   t�g��r  P \��g��filenamef��ice-9/psyntax.scm     (  (      "   * !   $   &   2   4   8   :   ?  / B   C  % F  3 P  * _  * a  % b   f  "�  t ��g��nameg��gen-map�C1a hF`Zn� h(��u��])�$���� �C$��2�445�5$��  �C �C$��� �C$��L�$��;��4L��5 �  �C  �6445�5$�� �"�� �4 L��5 �C���m������g��x  %�g��key  %�g��name   *�g��var   *�g��name  7 e�g��exp  r �g��req  � ��g��vars  � ��g��exp  � ��g��body  � ��g��name  �  �g��fun-exp   %�g��arg-exps   %�� g��filenamef��ice-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   !   �;  % ��g��nameg��regen�CO�2/10Q�/0Q�02Q�2'(+b���h(������]4LL�LLL>�� G�L�6������������g��x  #�g��e  #�g��maps   #��g��filenamef��ice-9/psyntax.scm   +  ?   +    #  /�  # ���Co� ��hp��� ��]4L�$��'4�5$��4�>��"��G��"���"����545$��LLLO�@6����������g��e  l�g��r  l�g��w   l�g��s   l�g��mod   l�g��e  : l�g��tmp  E l��g��filenamef��ice-9/psyntax.scm      8  8   8  9 :   :   f  0 h  8 l  �  l ���C/(2O�/012>��"��G��4L+p+MQ!R��������h(������]L4L�44�5556�������������g��k  "�g��v  "�g��e1   "�g��e2   "��g��filenamef��ice-9/psyntax.scm ( %  ( 2 ( % " ' !�  " ���CS������h������]4�56����������g�� docstring  �g��e1  �g��e2   ��g��filenamef��ice-9/psyntax.scm  ! @ ! 7�  ���C!T�����h ������]L4L�4�5�56��������g�� docstring  �g��e1  �g��e2   ��g��filenamef��ice-9/psyntax.scm # %  $ -  % 3  $ -  # %  " !�   ���C��hp������]4�5"��44�5$�� LO�@LLLLLLLL��6 $��4?$�� LO�@""������������g��body  k�g��meta  k�g��tmp  k�g��tmp   E��g��filenamef��ice-9/psyntax.scm   E ) #�  k ��g��nameg��lp�C�hH������]+4L�>�� G�O� L�LLLLLQ�6��������g��args  G�g��e1  G�g��e2   G�g��req  G�g��opt  G�g��rest  G�g��kw  G�g��lp  ( G��g��filenamef��ice-9/psyntax.scm   5    (   E  @ G  �  G ���Cq����h8������] 4�5$���LL�O�@�6�����������g��e  4�g��r  4�g��w   4�g��s   4�g��mod   4�g��tmp  4��g��filenamef��ice-9/psyntax.scm   . * , 0 * 4 4 * �  4 ���C)*O�>��"��G��4L+p �h8������]4LLLLLLL���>�� G� L�C�������g��args  8�g��e1  8�g��e2   8�g��meta  " 8�g��lcase  " 8��g��filenamef��ice-9/psyntax.scm  2  % 0  .  �  8 ���Cr�����h8������] 4�5$��L�L�O�@�6�����������g��e  4�g��r  4�g��w   4�g��s   4�g��mod   4�g��tmp  4��g��filenamef��ice-9/psyntax.scm -  . 6 , 0 6 4 4 6 �  4 ���C,+O�>��"��G��4Ls+t�h���t���]�C�����l�������g��tmp-bde397a-154d  �g��tmp-bde397a-154c  �g��tmp-bde397a-154b   ��  ���C! �����hH�����]#4�54LLLLLLL�>�� G�45 L�C�������g��args  H�g��e1  H�g��e2   H�g��clauses   H�g��meta*  ( H�g��lcase  ( H�g��meta  7 H��g��filenamef��ice-9/psyntax.scm  D   =  + ;  0 A 0 3 D " 7 A 0 7 A  >  �  H ���CvswS������h������]4�56����������g�� docstring  �g��args  �g��e1   �g��e2   ��g��filenamef��ice-9/psyntax.scm  F ! F �  ���CT���h���t���]�C�����l�������g��tmp-bde397a-1563  �g��tmp-bde397a-1562  �g��tmp-bde397a-1561   ��  ���C! �����hX���7��],4�5�454LLLLLLL�>�� G�45 L�C/������g�� docstring  X�g��args  X�g��e1   X�g��e2   X�g��meta   X�g��clauses   X�g��meta*  7 X�g��lcase  7 X�g��meta  G X�� g��filenamef��ice-9/psyntax.scm  G "  H ( G "  G  ! =  : ;  ? A 0 G A  N  �  X ���C� �����hx������]4�5$��L�L�O�@4�5"�� �6$��&4?$�� L�L�O�@""������������g��e  s�g��r  s�g��w   s�g��s   s�g��mod   s�g��tmp  s�g��tmp  3 s��g��filenamef��ice-9/psyntax.scm 9  = J , ? J 9 C J �  s ���C,)O�>��"��G��4Lx+th���t���]�C�����l�������g��tmp-bde397a-1583  �g��tmp-bde397a-1582  �g��tmp-bde397a-1581   ��  ���C! �����hH�����]#4�54LLLLLLL�>�� G�45 L�C�������g��args  H�g��e1  H�g��e2   H�g��clauses   H�g��meta*  ( H�g��lcase  ( H�g��meta  7 H��g��filenamef��ice-9/psyntax.scm  X   Q  + O  0 U 0 3 X " 7 U 0 7 U  >  �  H ���CvsyS������h������]4�56����������g�� docstring  �g��args  �g��e1   �g��e2   ��g��filenamef��ice-9/psyntax.scm  Z ! Z �  ���CT���h���t���]�C�����l�������g��tmp-bde397a-1599  �g��tmp-bde397a-1598  �g��tmp-bde397a-1597   ��  ���C! �����hX���7��],4�5�454LLLLLLL�>�� G�45 L�C/������g�� docstring  X�g��args  X�g��e1   X�g��e2   X�g��meta   X�g��clauses   X�g��meta*  7 X�g��lcase  7 X�g��meta  G X�� g��filenamef��ice-9/psyntax.scm  [ "  \ ( [ "  [  ! Q  : O  ? U 0 G U  N  �  X ���C� �����hx������]4�5$��L�L�O�@4�5"�� �6$��&4?$�� L�L�O�@""������������g��e  s�g��r  s�g��w   s�g��s   s�g��mod   s�g��tmp  s�g��tmp  3 s��g��filenamef��ice-9/psyntax.scm M  = ^ , ? ^ 9 C ^ �  s ���C,+O�>��"��G��4Lz+pz_'(��h8������]�$��C�$��"4�5 $��� &��� CCCC���������g��dots  6�g��e1  6�g��e2   6��g��filenamef��ice-9/psyntax.scm  e d      d     / f �  6 ���C'(� ����h���`��]3�$��"��� � ��4455�4LL$��'4�5$��4�L>��"��G��"���"����LL5�4LL54L�L5L4LL$��'4L5$��4LL>��"��G��"���"���LL5L6�������X������g��dots  ��g��e1  ��g��e2   ��g��wrap   .�g��module   .�g��id  . ��g��ids  � ��g��labels  � ��g��bindings  � ��g��nw  � ��g��nr  � ��� g��filenamef��ice-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������] 4�5"��@4L$��'4�5$��4�>��"��G��"���"����56$��*4?$�� L�LL�LO� @""����������g��e  ��g��r  ��g��w   ��g��s   ��g��mod   ��g��tmp  ���g��filenamef��ice-9/psyntax.scm a   p ,  p ;    8  ! 8  + 8 , 9 O   Q p �  � ���C %O�>��"��G��4L{)���h���Q��]94L�LL4�$��,4�5 $��� &��� "���"���"���5$��"��L>�� G�L�L6�I������g��x  ��g��props E X�g��type b ��g��value  b ��g��form  b ��g��e  b ��g��w  b ��g��s  b ��g��mod  b ��� g��filenamef��ice-9/psyntax.scm  1               E   E   J   N  a   e   �  �  � ���C{|����h�����,� 3� 4L5$��o4L54L5  4L 54L  5  45 4L�LO�54L4L� 5  56�6������������g��e  ��g��r  ��g��w   ��g��s   ��g��mod   ��g�� constructor   ��g��ids   ��g��vals   ��g��exps   ��g��labels ! ��g��new-vars ! ��g��nw ; ��g��nr ; ��� g��filenamef��ice-9/psyntax.scm u   v  v   x )  y + ! x  & z ' 1 { ' ; z  D } , O  , e  , j  > ~  , � |  � w - � w 2 � w �  � ��g��nameg�� expand-let�CO� /" % .Q�/+~{'(m��������hP������]�$��"��3�$��+4�5 $��� &�� � "��"��"��$��L�6C��������g��f  O�g��id  O�g��val   O�g��e1   O�g��e2   O��g��filenamef��ice-9/psyntax.scm  e d      d     2 f  E   M  )�  O ���Ch ������]LLLLLLL��6 ���������g��f  �g��id  �g��val   �g��e1   �g��e2   ��g��filenamef��ice-9/psyntax.scm   �   ���Cm��h������]L��6�������������g��id  �g��val  �g��e1   �g��e2   ��g��filenamef��ice-9/psyntax.scm  �  ���C �������h8������]4L�>��"��G��(��C ��C�����������g��src  4�g��ids  4�g��vars   4�g��val-exps   4�g��body-exp   4��g��filenamef��ice-9/psyntax.scm         &  �  4 ��g��nameg�� build-let�C������h ������]LLLLLLL�O��6 �������g��id  �g��val  �g��e1   �g��e2   ��g��filenamef��ice-9/psyntax.scm  �  ���C� ����h�����]4�5"��4�5"��@4L$��'4�5$��4�>��"��G��"���"����56$��+4 LO�?$�� L��LO�@""$��+4 LO�?$�� L�LO�@"K"G������������g��e  ��g��r  ��g��w   ��g��s   ��g��mod   ��g��tmp  ��g��tmp   ���g��filenamef��ice-9/psyntax.scm   $  . &  3 '   / 8  0 8  : 8 ; 9 ^   `  �  � ���C /O�/>��"��G��4L+'(m����h������]L��6�������������g��id  �g��val  �g��e1   �g��e2   ��g��filenamef��ice-9/psyntax.scm  �  ���C�������h���^���]L�LLL�6��V�������g��x  ��g��filenamef��ice-9/psyntax.scm  5   A�   ���C'(|� ��h�����]$4L �5$��4L �54L �54L�L54L L 5L�L4�54LLO�54L4LL$��'4L5$��4LL>��"��G��"���"���LL5L56L6�����������g��id  ��g��val  ��g��e1   ��g��e2   ��g��labels   ��g��new-vars   ��g��w  7 ��g��r  7 ���g��filenamef��ice-9/psyntax.scm   #     ,   .    "  ) -  ) 7  A  0 L  0 `  0 h   p 8  q 8  { 8 | 9 �   �  0 �  " �  0 �  8 �  �  � ���C� h������] 4�5"��@4L$��'4�5$��4�>��"��G��"���"����56$��94L�O�?$��% LLL�LLLLLL O�@""}�����������g��e  ��g��r  ��g��w   ��g��s   ��g��mod   ��g��tmp  ���g��filenamef��ice-9/psyntax.scm     ,   4    8  ! 8  + 8 , 9 O   Q  �  � ���C !% .O� >��"��G��4L+'(m�������h������]L��6�������������g��id  �g��val  �g��e1   �g��e2   ��g��filenamef��ice-9/psyntax.scm  �  ���C�������h���^���]L�LLL�6��V�������g��x  ��g��filenamef��ice-9/psyntax.scm  5   A�   ���C'(|� ��h�����]$4L �5$��4L �54L �54L�L54L L 5L�L4�54LLO�54L4LL$��'4L5$��4LL>��"��G��"���"���LL5L56L6�����������g��id  ��g��val  ��g��e1   ��g��e2   ��g��labels   ��g��new-vars   ��g��w  7 ��g��r  7 ���g��filenamef��ice-9/psyntax.scm   #     ,   .    "  ) -  ) 7  A  0 L  0 `  0 h   p 8  q 8  { 8 | 9 �   �  0 �  " �  0 �  9 �  �  � ���C� h������] 4�5"��@4L$��'4�5$��4�>��"��G��"���"����56$��94L�O�?$��% LLL�LLLLLL O�@""}�����������g��e  ��g��r  ��g��w   ��g��s   ��g��mod   ��g��tmp  ���g��filenamef��ice-9/psyntax.scm     ,   5    8  ! 8  + 8 , 9 O   Q  �  � ���C !% .O� >��"��G��4L+^UM)�����h@������]�$��C�$��%4�5 $��� &�� 4L��5CCCC��������������g��e  9��g��filenamef��ice-9/psyntax.scm  e d      d     + f & 2 f �  9 ���C    ����h������] L�L��C���~�������g��mod  �g��var  �g��public?   ��g��filenamef��ice-9/psyntax.scm {   �   ���C ����h���`���] L�L��C�������X�������g��var  ��g��filenamef��ice-9/psyntax.scm }   �   ���C�����hp�����]4�5L$��BL &��2L 45$��"��L "���"���L�LLLO�LLO�6���������g��e  n�g��var n�g��meta  " L�g��v  = I��g��filenamef��ice-9/psyntax.scm   E  *     =     " > % ?  ) ?  - ?  1 ? 7 @ - : @ & = @  E   n y �  n ���C3)�������h���Z��]94L�LL4�$��/4�5 $��� &�� 4L�5"���"���"���5$��"��L>�� G�L�L6������R������g��e  ��g��props H [�g��type e ��g��value  e ��g��form  e ��g��e  e ��g��w  e ��g��s  e ��g��mod  e ��� g��filenamef��ice-9/psyntax.scm  7               .   H   H   M   Q  d   h   �  �  � ���C! �������h���E��]{4L�LL>�� G� $��4LLL4$��/45 $�� &�� 4L5"��"��"��5  $�� "�� L>�� G�    4L�    L5     4�LL>�� G�    �4LO�?$��LL O�@  6 �� 4L LL4 $��/4 5 $�� &�� 4L 5"�� "�� "�� 5  $�� "�� L>�� G�   4L�   L5    4  L�LLLLLO�4 �55   L  �C�=������g��head  �g��tail  �g��val   �g��type   �g��value   �g��formform   �g��ee   �g��ww   �g��ss   �g��modmod  �g��props v ��g��type � ��g��value � ��g��form � ��g��e � ��g��w  � ��g��s  � ��g��mod  � ��g��val �  �g��e �  �g��r �  �g��w �  �g��s*  �  �g��mod  �  �g��tmp  �  �g��e ' �g��props o �g��type  �g��value  �g��form  �g��e   �g��w   �g��s   �g��mod   �g��fun-exp  �g��arg-exps  ��$g��filenamef��ice-9/psyntax.scm   '    0   1   :   ?   C   D   \   v   v   {     �   �   �  �   �  > �  ! '  2 *   3   8   <   =   U   o   o   t   x            2      �%   ���C'(�������h@������]�$��C�$��%4�5 $��� &�� 4L��5CCCC��������������g��id  9�g��val  9��g��filenamef��ice-9/psyntax.scm  e d      d     + f & 2 f �  9 ���C IK)  H ����h������] L�L��C���~�������g��mod  �g��var  �g��public?   ��g��filenamef��ice-9/psyntax.scm {   �   ���C ����h���`���] L�L��C�������X�������g��var  ��g��filenamef��ice-9/psyntax.scm }   �   ���CUJR'(��������h����]j4L��L 5�$��-4�5 $��� &�� � "��L"��L"��L4L 5$��"��)$�� 4L5$��"��"��$�4�54L L L 4$��/45 $�� &�� 4L 5"��"��"��5$��"��L>�� G�    4L L    5    $��B &��2  4  5$��"��       "���"��� L�C $�4L L L 4$��/45 $�� &�� 4L 5"��"��"��5$��"��L>�� G�    4L L    5    $��B &��2 4 5$��"��  "���"���L LO� LO�6$��45$��4LLL L LL54L L 4$��/45 $�� &�� 4L 5"��"��"��5$��"��L>�� G�     L   L   64LLL L54L�L 56$��4L�L L564LL$��'4L5$��4LL>��"��G��"���"���LL L56��������g��id  �g��val  �g��n  A �g��id-mod  A �g��t  N ��g��t  m ��g��b  � �g��key  � �g��props  � ��g��type   A�g��value   A�g��form   A�g��e  A�g��w  A�g��s  A�g��mod  A�g��name  A �g��var  A �g��exp  A �g��meta ^ �g��v y �g��props   �g��type   H�g��value   H�g��form   H�g��e  H�g��w  H�g��s  H�g��mod  H�g��exp  H �g��meta  a �g��v  | �g��p   �g��e   d�g��props  " 5�g��type  ? d�g��value ? d�g��form ? d�g��e ? d�g��w ? d�g��s ? d�g��mod  ? d��*g��filenamef��ice-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��� ��]4�5"��j4�5$��LL�LLO�@4L$��'4�5$��4 �>��"��G��"���"����56$��74 L�O�?$��# LLLL�LLL�LO� @"Y"U����������g��e  ��g��r  ��g��w   ��g��s   ��g��mod   ��g��tmp  ��g��tmp   {��g��filenamef��ice-9/psyntax.scm   ?  , A  2 B   J 8  K 8  U 8 V 9 y   {  �  � ���C $" O�>��"��G��4i4i5�4iM+3m�����hH������]4L��5$��4$��C$��"45 $�� &�� CCCCC����������g��mod  E�g��id  E��g��filenamef��ice-9/psyntax.scm        e  d      d    < f �  E ���C����h ���z���]45L�4�5D������r�������g��mod  �g��id  ��g��filenamef��ice-9/psyntax.scm       �   ���C���hH������] 4�5"�� �6$��4L�O�?$�� O�@""�����|�������g��e  C�g��r  C�g��w   C�g��tmp  C��g��filenamef��ice-9/psyntax.scm  �  C ���CO�5>��"��G��4M �����h�����]�$��4L��54L��5C�$��"��C4�545"��&$��C4L��5" "4�5 $��.� &�� 4L�� 5� �C""}�C������g��x  ��g��mod  ��g��n  1 m�g��v  : m�g��i  @ f�g�� expression  � ��g��wrap  � ���g��filenamef��ice-9/psyntax.scm        &   2   &   &   2   &   "   &   + * 1 4 @ : @  " E  ' I  " Q  5 X  A \  5 ]  $ `  , f  " m   n   �  ! �   �  ! �   �  �  �"  � ��g��nameg�� remodulate�C+3m����h���i���]L��6������a�������g��mod  �g��exp  ��g��filenamef��ice-9/psyntax.scm  �  ���C)�������hp������]4�54L5LL�4$��,45 $�� &�� "��"��"��5$��"��D�����������g��mod  l�g��exp  l�g��mod  l�g��props  U h��g��filenamef��ice-9/psyntax.scm  #   ! "    !   %   &   U   U   Z   ^  l ! �  l ���Cm�����hH������]4L��5$��4$��C$��"45 $�� &�� CCCCC����������g��mod  E�g��id  E��g��filenamef��ice-9/psyntax.scm        e  d      d    < f �  E ���C����h ���z���]45L�4�5D������r�������g��mod  �g��id  ��g��filenamef��ice-9/psyntax.scm       �   ���C� ��h������]O�Q�4�5"��E4�5"�� �6$��#4L�O�?$��O�@""$��4 L�O�?$��  O�@""�����������g��e  ��g��r  ��g��w   ��g�� remodulate  ��g��tmp   ��g��tmp  ' c��g��filenamef��ice-9/psyntax.scm � �  � ���CO�>��"��G��4Lc+^) ���hX����]:4L��LL4�$��,4�5 $��� &��� "���"���"���5$��"��L>�� G�4LL54L�LL4$��,45 $�� &�� "��"��"��5$��"��L>�� G�4LL5 � L�C�������g��test  W�g��then  W�g��props  E X�g��type  b ��g��value  b ��g��form  b ��g��e  b ��g��w  b ��g��s  b ��g��mod  b ��g��props  � ��g��type  � 8�g��value  � 8�g��form  � 8�g��e  � 8�g��w  � 8�g��s  � 8�g��mod  � 8�g��test-exp  @ W�g��then-exp  @ W�g��else-exp  @ W��g��filenamef��ice-9/psyntax.scm               E   E   J   N  a   e   t  �   �   �   �   �   �   �   �   �  �   �     <   @ )  K  �  W ���C) ���h����];4L��LL4�$��,4�5 $��� &��� "���"���"���5$��"��L>�� G� 4LL 5 4L�LL4$��,45 $�� &�� "��"��"��5$��"��L>�� G� 4LL 5 4L�LL4$��,45 $�� &�� "��"��"��5$��"��L>�� G� 4LL 5  L�C������������g��test  �g��then  �g��else   �g��props  E X�g��type  b ��g��value  b ��g��form  b ��g��e  b ��g��w  b ��g��s  b ��g��mod b ��g��props  � ��g��type  � 8�g��value  � 8�g��form  � 8�g��e  � 8�g��w  � 8�g��s  � 8�g��mod � 8�g��props  { �g��type   �g��value   �g��form   �g��e   �g��w   �g��s   �g��mod  �g��test-exp   �g��then-exp   �g��else-exp   ��g��filenamef��ice-9/psyntax.scm               E   E   J   N  a   e   t  �   �   �   �   �   �   �   �   �  �   �     9   B   G   K   L   {   {                 /    �'   ���C3��hX������]4�5$��LL�O�@4�5$��LL�O�@�6��������g��e  W�g��r  W�g��w   W�g��s   W�g��mod   W�g��tmp  W�g��tmp  1 W��g��filenamef��ice-9/psyntax.scm & �  W ���C" O�>��"��G��4i4i5�4iL+)��h���Q��]94L�LL4�$��,4�5 $��� &��� "���"���"���5$��"��L>�� G�L�L6�I������g��x  ��g��props E X�g��type b ��g��value  b ��g��form  b ��g��e  b ��g��w  b ��g��s  b ��g��mod  b ��� g��filenamef��ice-9/psyntax.scm ;                E   E   J   N  a   e   �  �  � ���C)�����h���Q��]94L�LL4�$��,4�5 $��� &��� "���"���"���5$��"��L>�� G�L�L6�I������g��x  ��g��props E X�g��type b ��g��value  b ��g��form  b ��g��e  b ��g��w  b ��g��s  b ��g��mod  b ��� g��filenamef��ice-9/psyntax.scm <                E   E   J   N  a   e   �  �  � ���C'( ������h���.��]4LLLLLO��54LLLLLO�54L�4LL$��'4L5$��4LL>��"��G��"���"���LLL5LLL5 L�C���&������g��fluid  ��g��val  ��g��b   ��g��b*   ��g��fluids  v ��g��vals  v ��g��body  v ���g��filenamef��ice-9/psyntax.scm  ;   <  / =  7   ? 8  @ 8  J 8 K 9 n   v =  v 9  �  �  � ���C3���h8������] 4�5$��L�LLL�O� @�6��������g��e  7�g��r  7�g��w   7�g��s   7�g��mod   7�g��tmp  7��g��filenamef��ice-9/psyntax.scm 6 �  7 ���C" %O�5>��"��G��4i4i5�\4i\\5>��"��G��4i4i5�]4i]]5>��"��G��4i4i5�4i5>��"��G��4i4i5�4i5>��"��G��4i4i5�V4iVV5>��"��G��4L+_�h8������]"4LLL>�� G�4L��L>�� G�D��������g��x  7�g��y  7�g��y   7�g��ids   7�g��x  ' 7�g��ids  ' 7��g��filenamef��ice-9/psyntax.scm  T 0  S  W 4 * V % 3 Y 1 7 Y )�  7 ���C���h0������] 4�5$��LL�O�@L�6���������g��p*  .�g��n  .�g��ids   .�g��tmp  .��g��filenamef��ice-9/psyntax.scm P  . Z "�  . ��g��nameg��cvt*�C�����h0������]"��$��"D�"��������g��x  /�g��r  $�g��x   $��g��filenamef��ice-9/psyntax.scm \   ]  ^ & ^   ` -  ` '  ` 8  ` ! $ _ ! $ ]  % ] ) / ] �  / ��g��nameg�� v-reverse�C/ ,U+c_h8������]"4LLL�>�� G�4L�L>�� G�D��������g��x  7�g��y  7�g��y   7�g��ids   7�g��x  ' 7�g��ids  ' 7��g��filenamef��ice-9/psyntax.scm  3  $  7 * ( 3 4 7 ,�  7 ���C����h���O���]�L�D�G�������g��filenamef��ice-9/psyntax.scm  /  '�   ���CN�������h(������]4L�LL�>�� G��D������������g��x  #�g��p  #�g��ids   #��g��filenamef��ice-9/psyntax.scm  3  $  F  > # 6�  # ���C��h���x���]L�6p�������g��x  �g��dots  �g��ys   ��g��filenamef��ice-9/psyntax.scm  u $�   ���C�hP���)��]34LLL>�� G�4L��L>�� G�4L>�� G��D!������g��x  P�g��dots  P�g��ys   P�g��ys   P�g��ids   P�g��x  ( P�g��ids  ( P�g��ys  : P�g��e  : P�� g��filenamef��ice-9/psyntax.scm  w 3  v $  z 7 z G ' z 7 + y ( 0 } ; = | , C  8 P  0�  P ���C�����h���h���]L�6`�������g��x  �g��dots  ��g��filenamef��ice-9/psyntax.scm  n $�   ���C/0�����h8������]4L�LL�>�� G�&��"���D�������������g��x  2�g��dots  2�g��p   2�g��ids   2��g��filenamef��ice-9/psyntax.scm  p 3 p C  p 3  o $  r ; ! r 0 # r A ) r S . r K 2 r (�  2 ���C����h����]+�$��"��3�$��+4�5 $��� &�� � "��"��"��$��4L�L5$�� ��D"�� �D�$��,4�5 $��� &��� "���"���"���45 $��"��&�� 4L�54L5&��D""4� 5"��4� 5"��m4� 5$�� L�O�@4�5$��  O�@4�5$��L�O�@4L�5�D$��'4LO�?$��L�LLO�@"f"b$��#4LO�?$��L�O�@"*"&������� ������g��p  �g��n  �g��ids   �g��tmp  � �g��tmp  � �g��tmp   k�g��tmp  & k�g��tmp  B k��g��filenamef��ice-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 &�"   ��g��nameg��cvt�C�h@������]O�O�Q�LLL�Q�� 6�������g��pattern  @�g��keys  @�g�� ellipsis?   @�g��cvt*   @�g�� v-reverse   @�g��cvt   @��g��filenamef��ice-9/psyntax.scm N  > ( @ �  @ ��g��nameg��convert-pattern�CO�/KlF .������h������]�C�����}�������g��var  �g��level  ��g��filenamef��ice-9/psyntax.scm Y  i q [�  ���CU� �����h���&��]4�54�>��"��G��4L54L5L�445�5$�� �"�� �4L4 54L4L4 4�5554L 555�6�������g��pvars  ��g��exp  ��g��y   ��g��r   ��g��mod   ��g��ids  ��g��labels  1 ��g��new-vars  1 ���g��filenamef��ice-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 � �"  � ��g��nameg��build-dispatch-call�CO�0���h���^���]L�LL�6����V�������g��e  ��g��filenamef��ice-9/psyntax.scm B N�  ���Cm�����h���y���]4L�LL�5Cq�������g��x  ��g��filenamef��ice-9/psyntax.scm -  >  I  >  9�   ���CKk +�h������]�L�C����������   ���C/Fd+b����h��H��,�3�4LLO�>�� G� 4LO� 5$�4L4 55$�4455 L�� �  � 4  5  $��4  O� ?"��14L  5 �    �  4L  54L�5     �          �  �    &��N445�5$�� �"�� ���     �  "��T445�5$�� �"�� �� ��     �  �666������@������g��x  �g��keys  �g��clauses   �g��r   �g��pat   �g��fender   �g��exp   �g��mod   �g��p   �g��pvars  �g��y Y �g��y u  �g��tmp � ��g��then-exp � ��g��else-exp  � ��g��test-exp � �g��then-exp � �g��else-exp  � �g��req  ?�g��vars  ?�g��exp  ?�g��body  % 6�g��fun-exp z �g��arg-exps z �g��fun-exp  �g��arg-exps  ��g��filenamef��ice-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   ��g��nameg�� gen-clause�CO�1F 3+mU�h������]L$��,4L5 $��L &��L "��L"��L"��L�$��,4�5 $��� &��� "���"���"���&��4L�L54L��5"��C�������������g��x  ���g��filenamef��ice-9/psyntax.scm 2    s    > s " ?   p s  q t  z t - � t � >�  � ���C$U%,)��h����]:"��L�L LLL �L 6�$��"��3�$��+4�5 $��� &�� � "��"��"��$�4L�O�L5$�"��4455��$��,4�5 $��� &��� "���"���"���4455L4L4 �5��4L4L  �L 54L�� 5L 55L �6�$��,4�5 $��� &��� "���"���"���4 5 $�� "�� &��4L� 54L  5&��4L L  4$��,45 $�� &�� "��"��"��5$��"��L >�� G�L L 6"n"j""��������g��pat  �g��exp  �g��id  � ��g��labels  � �g��var  � �g��props   �g��type   �g��value   �g��form   �g��e   �g��w   �g��s   �g��mod   �� g��filenamef��ice-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������]LLLLL�L�6�~�������g��pat  �g��fender  �g��exp   ��g��filenamef��ice-9/psyntax.scm 3  �   ���C&�������h�����](��X445�5$�� �"�� � � ��� �C45$��% L�LLLLLL�LLO�@4 5$�� �L�O�@  6����������g��x  ��g��keys  ��g��clauses   ��g��r   ��g��mod   ��g��fun-exp  N `�g��arg-exps  N `�g��tmp  c ��g��tmp  n ��g��tmp  � ��� g��filenamef��ice-9/psyntax.scm       !      3         ! I $   0  ! 2 I 6   F B I   N 0 N  W   c * c  � 4 � A � 4 � "�  � ��g��nameg��gen-syntax-case�CO� 2-Q�/! .Q�002(/Q�11! " Q�2'(+)m��hX������]�$��"��3�$��+4�5 $��� &�� � "��"��"��$�� 4L��LL5CC�����������g��x  T��g��filenamef��ice-9/psyntax.scm )  e d      d     2 f  E 5 F G Q B�  T ���Ck U)*������h@�� ��]C4LLLO�5$�4455��4L �LL5 �  �4L�L4�$��,4 �5 $���  &��� "���"���"���5$��"��L>�� G�  4LL  5  � L�C   L�6�������������g��val  9�g��key  9�g��m   9�g��x  $ /�g��req  J ~�g��vars  J ~�g��exp  J ~�g��body  d u�g��props  � ��g��type  � �g��value  � �g��form  � �g��e  � �g��w  � �g��s � �g��mod � �g��fun-exp   /�g��arg-exps   /��g��filenamef��ice-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 ���C3��������hp������]4L�$��'4�5$��4�>��"��G��"���"����545$��LLLLO�@6��������g��e  o�g��r  o�g��w   o�g��s   o�g��mod   o�g��e  : o�g��tmp  E o��g��filenamef��ice-9/psyntax.scm     8  8   8  9 :   : �  o ���C( "2O�/012>��"��G��8=�������h@������-�.�,�3�#��#��L���445�56���������g��x >�g��m >�g��esew  >��g��filenamef��ice-9/psyntax.scm    $   . ' ! 1 ' 2 0 5 = ; 0 < ! > � > ��g��nameg�� macroexpand�CO�+i������h0������]�$��"4�5 $��� &��� CCCC����������g��x  -��g��filenamef��ice-9/psyntax.scm    _    & ` �  - ��g��nameg�� identifier?�C,i����h ������]� � �C�����������g��id  �g��datum  �g��wrap  �g��module  ��g��filenamef��ice-9/psyntax.scm        �   ��g��nameg�� datum->syntax�C-iU�h���x���]L��6������p�������g��x  ��g��filenamef��ice-9/psyntax.scm   �  ��g��nameg�� syntax->datum�C-O�i)����hP������] 4�$��,4�5 $��� &��� "���"���"���5$��CC�������������g��x  J�g��props < J��g��filenamef��ice-9/psyntax.scm            <   <   A   E  �  J ��g��nameg�� syntax-source�C.i/01����h���y���]L45L�6�������q�������g��x  ��g��filenamef��ice-9/psyntax.scm "   #  # * #   # �   ���C� ���hH������] �$��"��4�>��"��G��445�5L�O��6��������������g��ls  A�g��mod 0 A��g��filenamef��ice-9/psyntax.scm     % !  & ! & ) ! 3 / ! & 0 !  0 ! A " �  A ��g��nameg��generate-temporaries�CO�/i20U���hX����]"��4�>��"��OG��"��H�$��=4�5 $��'� &��� $��"��""��""��""��""��4>��"��OG��"��H$��=45 $��' &�� $��"��""��""��""��"�$��,4�5 $��� &��� "���"���"���$��,45 $�� &�� "��"��"��&��4L��54L�5CC������������g��x  R�g��y  R��g��filenamef��ice-9/psyntax.scm '  ( ( ' ( #   ' ( (   5 _  9   D ` H   m ) q ) ' s ) �   � ) �   � _  �   � ` �   � s  �    s "    < s  = t  F t - O t �  R ��g��nameg��free-identifier=?�CO�2i30������hP����]"��4�>��"��OG��"��H�$��=4�5 $��'� &��� $��"��""��""��""��""��4>��"��OG��"��H$��=45 $��' &�� $��"��""��""��""��""���C�$��i4�5 $��W� &��I$��>45 $��, &���  &��L��  6C""""""����������g��x  L�g��y  L��g��filenamef��ice-9/psyntax.scm -  . . ' . #   ' . (   5 _  9   D ` H   m / q / ' s / �   � / �   � _  �   � ` �   �  � |  �   � |  �   � | �   " } )   *   /   0   2  �#  L ��g��nameg��bound-identifier=?�CO�3iS045)U� ������hH��7��-�.�,�3�#���$��4�5$��"���"��$��"��4�>��"��G��45$��"��4>��"��G���4$��,45 $��  &�� "��"��"��5$��"��$��"��M4$��,45 $��  &�� "��"��"��5$��"��4L� 5$�� 4L� 5"��6/������g��who H�g��message H�g��form  H�g��subform  H�g��props  � ��g��t  � )�g��props   &��g��filenamef��ice-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  ��g��nameg��syntax-violation�C-O�i60IHS7KZ89J#������h8����]6L� L� "��$�� "��"��6$��+&��$�� "��"��""��"L� 4L5  $��$��-45 $�� &��  "��"��"�� 4L  5  $�� "��   &��  "��"��   "��"��4 5$��h$��-45 $�� &��  "��"��"�� 4 5  $�� "��     "��"��4  >�� G� $�� D $�� D $�� D$��D$�� D$��=             �   DD��������g��e  6�g��r  6�g��w   6�g��s   6�g��rib   6�g��mod   6�g��w  r�g��ms   o�g��s   o�g��id  w �g��w  w �g��mod  w �g��n � �g��mod �  �g��t � ��g��b �  �g��mod Q �g��t \ o�g��b o �g��type   6�g��value   6�g��mod   6�g��w  �g�� expression  /�g��wrap  /�g��module  /��g��filenamef��ice-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 ���C�����hx������]"��4�>��"��OG��"��H�$��=4�5 $��'� &��� $��"��""��""��""��"M�[�LLO�6�������g��id  x��g��filenamef��ice-9/psyntax.scm B   C  C $ C  #   ' C  (   5 _  9   D ` H   x l �  x ��g��nameg��syntax-local-binding�CO�/:0������hx������]"��4�>��"��OG��"��H�$��=4�5 $��'� &��� $��"��""��""��""��"L�� � 6���������g��id  v��g��filenamef��ice-9/psyntax.scm a   b  b $ b  #   ' b  (   5 _  9   D ` H   v c �  v ��g��nameg�� syntax-locally-bound-identifiers�CO�0Q�/Q�04;i<<0�����hp������]"��4�>��"��OG��"��H�$��=4�5 $��'� &��� $��"��""��""��""��"� C��������g��id  o��g��filenamef��ice-9/psyntax.scm >   ?  ? $ ?  #   ' ?  (   5 _  9   D ` H   n @ �  o ��g��nameg�� syntax-module�C>��"��G��4;i6/>��"��G��4;i:0>��"��G��/0��h�����]�$��74L�5$��4L�5$��CCC�(��C�$��?4�5 $��/� &��#� 4L�� 5� �"xCCC������g��e  ��g��p  ��g��w   ��g��mod   ��g��first   @�g��rest  . >��g��filenamef��ice-9/psyntax.scm      ,     !  & + .  .  6  ;  F G  K   O P   n  w   y  ~   � �  � ��g��nameg�� match-each�CO�/��hx���S��] �$��&4L�5$��4L�5CC�(��C�$��84�5 $��(� &��� 4L�� 5�"CCCK������g��e  x�g��w  x�g��mod   x�g��l   /��g��filenamef��ice-9/psyntax.scm     %        # ! )  ,  5 6  :   > ?   [  d   f  r �  x ��g��nameg��match-each-any�CO�0,/0N� h�����] �(��C�&��C�&��C�$���4L��5�"�&��C� $��� �"$��'� 4L�4� 54L�� 55�"i$��"��$��C $��� �"8C����������g��p  ��g��r  ��g��key  P ���g��filenamef��ice-9/psyntax.scm           "  & * - # . + 3 8 7 + ?  C  G H $ K  P  P _ # i  r v $ w $ z % � . � % � % � 2 � % � $ �  � � % � �&  � ��g��nameg�� match-empty�CO�1Kl������h(������]�(��C4�54L�4�55C��������g��r*  '�g��r  '��g��filenamef��ice-9/psyntax.scm      !  * % ! & �  ' ��g��nameg��combine�CO�20Kl�������h(������]�(��LC4�54L�4�55C����������g��l  %��g��filenamef��ice-9/psyntax.scm   '  &  2  ; # 2 $ �  % ��g��nameg��collect�C�����h�����]"�$��f4L�>�� G�$��D(��'4L�LL5$�� DD4L�L5DD"��L4L�LLL5D�$��84�5 $��&� &��� 4L�� 5�"D"""������������g��e  ��g��w  ��g��xr*   o�g��y-pat   o�g��r   o�g��xr  ; S��g��filenamef��ice-9/psyntax.scm   +  .  +   &  ,  - $ 2 + 7 ; ; $ ;  C  H ( N S T  W  X  ] " ` * h  j  o  t  w �  � �   � �   �  �   �  � �&  � ��g��nameg��f�CUNW� �����hp��n��]-(�� �(��CC$��(�$��L��4L��56C&��4L�5$��CC $��?�(�� L 64L� 5$��O�Q�6C$��t   O� L L�Q� 4 �>�� G�$�� (��(�� L 6L6CC$���$��"��3�$��+4�5 $��� &�� � "��"��"��$��4L�5 $��,45 $�� &�� "��"��"��$��,45 $�� &�� "��"��"��&��4L 54L 5"��$��CCC $�� 4L�5$��CC $���$��L�4 �5 6CC�f������g��e  o�g��p  o�g��w   o�g��r   o�g��mod   o�g��l  U e�g��key  i o�g��l  � ��g��collect  � ��g��x-pat  � ��g��y-pat  � ��g��z-pat  � ��g��f � ��g��xr*  � 0�g��y-pat  � 0�g��r  � 0�g��i   �g��j   ��g��filenamef��ice-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 ��g��nameg��match*�CO� 3,/��������h���D��]$��|&��C&��4L�5C"��L�6�$��=4�5 $��+� &��L� 4L�� 5� 6"""C��<������g��e  ��g��p  ��g��w   ��g��r   ��g��mod   ���g��filenamef��ice-9/psyntax.scm          )  <   < ?   C D   d  m   o  v   x � �  � ��g��nameg��match�CO�4/4Q�/0Q�01Q�12Q�24/1-20Q�33Q�4/,U����hp�����]&����C&��C"�� L��6�$��54�5 $��#� &��L�� � � 6"""�������������g��e  j�g��p  j��g��filenamef��ice-9/psyntax.scm            '  , *   *  -   1  2   W  1 \   ^  �  j ��g��nameg�� $sc-dispatch�C3O�+i/01234      !"#$%&'()*+,-.�4i=+?J�����h���:���]�C���2�������g��e1  �g��e2  ��  ���CMXY�h ���[���]���C������S�������g��out  �g��in  �g��e1   �g��e2   ��   ���Cabc�����h ���[���]���C���S�������g��out  �g��in  �g��e1   �g��e2   ��   ���C3� �����hP������]4�5$��@4�5$��@4�5$��@ �6�������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��ice-9/psyntax.scm  �  P ���C5=R4i5+a23S����h���v���]4�56���n�������g��message  �g��arg  ��g��filenamef��ice-9/psyntax.scm  0  0 �  ���Coq��������h���@���]�C��8�������g��message  �g��arg  ��   ���CS������h������]456����������g��keyword  �g��operands  �g��message   �g��arg   ��g��filenamef��ice-9/psyntax.scm  %  % �  ���Crs�h���g���]4�56���_�������g��x  ��g��filenamef��ice-9/psyntax.scm ( 1  * 4 ) 3�  ���C������h8������]4�54454554�5$�� �"��6�������g��keyword  8�g��operands  8�g��message   8�g��arg   8��g��filenamef��ice-9/psyntax.scm  &  '   ' ,  ( ,  ' & ! '  " ,  , ,  8 & �  8 ���C� ����hh���v���]4�5"��74�5"�� �6$��4?$��@""$��4?$�� @""�n�������g��x  g�g��tmp g�g��tmp   H��g��filenamef��ice-9/psyntax.scm �  g ���C55R4it+������h���Z���]��C������R�������g��keyword  �g��pattern  �g��template   ��   ���C3S��������h������]456����������g��keyword  �g��pattern  �g��message   �g��arg   ��g��filenamef��ice-9/psyntax.scm  <  < �  ���C���h ���j���]��C��b�������g��keyword  �g��pattern  �g��message   �g��arg   ��   ���C� ��hP������]4�5"�� 4�5$��@�6$��4?$��@""�������g��clause  P�g��tmp P�g��tmp   1��g��filenamef��ice-9/psyntax.scm 5 �  P ��g��nameg�� expand-clause�C+!� ������h@������]4���5L�$�� L��CC�����������g��k  <�g�� docstring  <�g��keyword   <�g��pattern   <�g��template   <�g��clause   <�g��tmp  ' <��g��filenamef��ice-9/psyntax.scm ' G  / N �  < ���C3������h@������]4L�5�45$�� �O�@6������������g��dots  ;�g��keys  ;�g�� docstrings   ;�g��clauses   ;�g��tmp   ;�g��tmp   ;��g��filenamef��ice-9/psyntax.scm A  F   B �  ; ��g��nameg��expand-syntax-rules�C+��h���t���]��C���l�������g��tmp-bde397a-19fa  �g��tmp-bde397a-19f9  �g��tmp-bde397a-19f8   ��  ���C�h������]L��456��������g��k  �g��keyword  �g��pattern   �g��template   ��g��filenamef��ice-9/psyntax.scm  T �   ���C3,S��������h ������]4�5$�� 456C�������������g��dots  �g��k  �g�� docstring   �g��keyword   �g��pattern   �g��template   ��g��filenamef��ice-9/psyntax.scm  \ \   \ *  \ !�   ���Ch���t���]��C���l�������g��tmp-bde397a-1a4b  �g��tmp-bde397a-1a4a  �g��tmp-bde397a-1a49   ��  ���C�h ������]L���456�����������g��dots  �g��k  �g�� docstring   �g��keyword   �g��pattern   �g��template   ��g��filenamef��ice-9/psyntax.scm  ] �   ���C,��h������]�6�������g��dots  �g��k  �g��keyword   �g��pattern   �g��template   ��g��filenamef��ice-9/psyntax.scm  Y �   ���C��h���t���]��C���l�������g��tmp-bde397a-1a2c  �g��tmp-bde397a-1a2b  �g��tmp-bde397a-1a2a   ��  ���C�h������]L��456�������g��dots  �g��k  �g��keyword   �g��pattern   �g��template   ��g��filenamef��ice-9/psyntax.scm  Z �   ���CS������h������]456����������g��k  �g�� docstring  �g��keyword   �g��pattern   �g��template   ��g��filenamef��ice-9/psyntax.scm  V  V �  ���C����h���t���]��C���l�������g��tmp-bde397a-1a13  �g��tmp-bde397a-1a12  �g��tmp-bde397a-1a11   ��  ���C�h ������]L���456������������g��k  �g�� docstring  �g��keyword   �g��pattern   �g��template   ��g��filenamef��ice-9/psyntax.scm  W �   ���C��������h������]1O�Q�4�5$�� O�@4�5"��o4�5"��<4�5"��   �6$��4 ?$��  O�@""$��4 ?$�� O�@""$��4?$�� O�@"q"m��������������g��xx  ��g�� expand-clause  ��g��expand-syntax-rules   ��g��tmp   ��g��tmp  8 ��g��tmp  G ��g��tmp  V ���g��filenamef��ice-9/psyntax.scm 4 �  � ���C5tR4i+��������h ���W���]����C������O�������g��name  �g��pattern  �g��template   ��   ���C3S��������h������]456����������g��name  �g��pattern  �g�� docstring   �g��template   ��g��filenamef��ice-9/psyntax.scm  g  g �  ���C�������h ���n���]����C����f�������g��name  �g��pattern  �g�� docstring   �g��template   ��   ���C� ������hP���v���]4�5$��@4�5"�� �6$��4?$��@""n�������g��x  P�g��tmp P�g��tmp  " P��g��filenamef��ice-9/psyntax.scm ` �  P ���C5R4i+}3m,������h������]6�������������g��let*  �g��x  �g��v   �g��e1   �g��e2   ��g��filenamef��ice-9/psyntax.scm q �  ���C+��������h���A���]���C�9�������g��body  �g��binding  ��   ���C3��������hH������]�(�� LLC4L��5��45$��@6������������g��bindings  C�g��tmp ! C�g��tmp  , C��g��filenamef��ice-9/psyntax.scm r   s  u !  u $  u !  v $ ! u �  C ��g��nameg��f�Cd������h(������] O�Q�456�����������g��let*  $�g��x  $�g��v   $�g��e1   $�g��e2   $�g��f  $��g��filenamef��ice-9/psyntax.scm r �  $ ���C�������h@���e���] 4�5"�� �6$��4?$��@""�������]�������g��x  9�g��tmp 9��g��filenamef��ice-9/psyntax.scm n �  9 ���C5R4i+/6:���h(������]L $����CL�4L��L56���{�������g��p  %��g��filenamef��ice-9/psyntax.scm  ~ ~  , ! 9 # , % �  % ���C=D���h���q���]L4L���L56���i�������g��p  ��g��filenamef��ice-9/psyntax.scm  :  G  :  �   ���C_+NS����h���8���]��C������0�������g��tmp-bde397a-1ab0  ��  ���CV��h@������]L $��L4�54LLL56L�4L�4L�L554LLL56���������g��p  >��g��filenamef��ice-9/psyntax.scm    0  #  ( 0 / A 1 0 3  4  > �  > ���CZ_��h���8���]��C������0�������g��tmp-bde397a-1ab5  ��  ���Cb��h@������]L $��L4�54LLL56L�4L�4L�L554LLL56���������g��p  >��g��filenamef��ice-9/psyntax.scm    1  #  ( 9 / J 1 9 3  4  > �  > ���C�����h`������]4�5$��LLLLO�@4�5$��LL�LLO�@L4L�L54LL56�������g��p  `�g��q  `�g��tmp  `�g��tmp  / `��g��filenamef��ice-9/psyntax.scm M  V ) ` �  ` ���C+dl�����h���)���]4�5�C�!�������g��x  ��   ���C+dy������h���8���]��C������0�������g��tmp-bde397a-1b25  ��  ���C�����h���V���]L�4�56�N�������g��y  ��g��filenamef��ice-9/psyntax.scm  �   ���C|�����h���V���]L��6N�������g��y  ��g��filenamef��ice-9/psyntax.scm  �   ���C!��������h���h���]L4L��56�`�������g��ls  ��g��filenamef��ice-9/psyntax.scm '  7  4�   ���C�����h���e���]L�L�O�6�������]�������g��y  �g��z  ��g��filenamef��ice-9/psyntax.scm  �   ���C� ����h`������]4�5$�� O�@4�5$�� O�@4�5$�� LO�@L��C�������g��y  `�g��k  `�g��tmp  `�g��tmp  ' `�g��tmp  C `��g��filenamef��ice-9/psyntax.scm �  ` ��g��nameg��f�C+0�������h���6���]�C.�������g��t-bde397a-1b19  ��   ���C3���h(���t���] 4�5$��@�6������l�������g��ls  "�g��tmp "��g��filenamef��ice-9/psyntax.scm �  " ��g��nameg��k�C�h@������]4L��L545$��@O�Q�6�����������g��x  <�g��x <�g��tmp   <�g��f  - <��g��filenamef��ice-9/psyntax.scm    - �  < ���C� ���h������]"4�5$��LLO�@4�5$��LLO�@4�5$��LLLLO�@4�5$��  L�O�@ ��C�����������g��p  ��g��lev  ��g��tmp  ��g��tmp  + ��g��tmp  K ��g��tmp  o ���g��filenamef��ice-9/psyntax.scm { �  � ��g��nameg��quasi�CO��+_+�����h���8���]��C������0�������g��tmp-bde397a-1acb  ��  ���C��h@������]L $��L4�54LLL56L�4L�4L�L554LLL56���������g��p  >��g��filenamef��ice-9/psyntax.scm    0  #  ( 0 / A 1 0 3  4  > �  > ���C��h���8���]��C������0�������g��tmp-bde397a-1ad0  ��  ���C��h@������]L $��L4�54LLL56L�4L�4L�L554LLL56���������g��p  >��g��filenamef��ice-9/psyntax.scm    1  #  (  / # 1  3  4  > �  > ���C�����hh������]4�5$��LLLLLO�@4�5$��LLL�LLO�@L4L�L54LL56�����������g��p  d�g��q  d�g��tmp  d�g��tmp  1 d��g��filenamef��ice-9/psyntax.scm Q  Z ) d �  d ���C��������h������]�C����������   ���C3��������hH������]4�5$��LLLLL�O�@4�5$��@�6��������g��p  G�g��lev  G�g��tmp  G�g��tmp  0 G��g��filenamef��ice-9/psyntax.scm �  G ��g��nameg��vquasi�CO�+++��h���*���]�L��C���"�������g��dx  ��  ���C�����h8���g���] 4L�5$�� �O�@�(��L��CL�L�C��_�������g��dy  6�g��tmp 6��g��filenamef��ice-9/psyntax.scm $ �  6 ���C�������h���-���]L��C�����%�������g��stuff  ��  ���C�h���-���]L��C�����%�������g��stuff  ��  ���C� ����hh���k���]45$�� �O�@45$�� �O�@45$�� �O�@��C������c�������g��x  b�g��y  b�g��tmp  b�g��tmp  ) b�g��tmp  E b��  b ���C3������h0������]��45$��@6������������g��x  +�g��y  +�g��tmp  +�g��tmp   +��g��filenamef��ice-9/psyntax.scm  �  + ��g��nameg�� quasicons�C++0����h���)���]�C!�������g��p  ��   ���C3��������h8���s���]L�(��CL�(��L�C4L�5��$���@L�6��k�������g��tmp  6��g��filenamef��ice-9/psyntax.scm      �  6 ���C!�h���8���]4��5C������0�������g��p  �g��y  ��   ���C3�hP������]45$�� �O�@�(��C��45$��@6�������g��x  P�g��y  P�g��tmp  P�g��tmp  . P�g��tmp  9 P��g��filenamef��ice-9/psyntax.scm  $ . �  P ��g��nameg�� quasiappend�C��h ������]�(��LCL��4L�56�������������g��x  ��g��filenamef��ice-9/psyntax.scm         "    �   ��g��nameg��f�C����h ������] O�L�Q��6������������g��x  �g��y  �g��f  ��g��filenamef��ice-9/psyntax.scm  �   ��g��nameg�� quasilist*�CO�+��h���)���]��C������!�������g��x  ��  ���C|+0�����h���6���]�C.�������g��t-bde397a-1b43  ��   ���C3���h0������]4L��545$��@6���x�������g��x  -�g��tmp -�g��tmp   -��g��filenamef��ice-9/psyntax.scm  # �  - ���C+1�������h���R���]��C����J�������g��t-bde397a-1b57  �g��t-bde397a-1b56  ��  ���C3�������hH������]�(��LL64L�54L��5�45$��@6������������g��x*  C�g��tmp ! C�g��tmp  , C��g��filenamef��ice-9/psyntax.scm           +  .  + ! �  C ��g��nameg��f�C�������h ���t���] O�L�Q��6�����l�������g��x  �g��y  �g��f  ��g��filenamef��ice-9/psyntax.scm �   ���C3+0@��h���6���]�C.�������g��t-bde397a-1b63  ��   ���C3���h0������]4L��545$��@6���x�������g��x  -�g��tmp -�g��tmp   -��g��filenamef��ice-9/psyntax.scm  ' �  - ���CB+0O������h���6���]�C.�������g��t-bde397a-1b6f  ��   ���C3���h0������]4L��545$��@6���x�������g��x  -�g��tmp -�g��tmp   -��g��filenamef��ice-9/psyntax.scm  ' �  - ���CQ^������h���o���] 4L��5�C�����g�������g��x  �g��tmp ��g��filenamef��ice-9/psyntax.scm  . �   ���C`����h���)���]�C���!�������g��x  ��   ���C3��������h������]94�5$��@4�5$�� L�O�@4�5$�� L�O�@4�5$��  L�O�@4� 5$��  L�O�@4� 5$��  L�O�@4�5$��@�6����������g��x  ��g��tmp ��g��tmp  " ��g��tmp  > ��g��tmp  Z ��g��tmp  v ��g��tmp  � ��g��tmp  � ���g��filenamef��ice-9/psyntax.scm �  � ��g��nameg��emit�CO��Q���Q�Q�Q�+bh���_���]L4L�� 56��W�������g��e  ��g��filenamef��ice-9/psyntax.scm    �   ���C3��h0���e���] 4�5$�� LL�O�@�6�������]�������g��x  )�g��tmp )��g��filenamef��ice-9/psyntax.scm �  ) ���C�O��5R4iabcdaefghijk-����h�����]#44�5$���"��$�� 4�5"�� 4L�55454$��"�� >��"��G��"��>4 5$��4 >��"��G�� 64 545"4 5"�����������g��fn  ��g��dir  ��g��k   ��g��p  6 ��g��enc  ? ��g��x  e ��g��result  e ���g��filenamef��ice-9/psyntax.scm          *  .  0  4  6  6  9  ?  B L T ( Y e f  p q  �  �  �  �  �  � �  �  � �  � ��g��nameg�� read-file�C.7lSm++0��������h���+���]�C#�������g��exp  ��   ���C3������h8������]454L�L545$��@6�������g��k  8�g��filename  8�g��fn  8�g��tmp   8�g��tmp  ! 8��g��filenamef��ice-9/psyntax.scm      $   �  8 ���C3� �������hp�����])O��Q�4�5$�� 45"��45$�� 45"��4�5$��  O�@  �6�� ������g��x  n�g�� read-file n�g��src   n�g��file  , n�g��dir  E n�g��tmp  P n��g��filenamef��ice-9/psyntax.scm          % ( '  ,  /  9  : $ E �  n ���C5aR4i+-�������hH������]45445$��"�� 4L�55�C��������������g��k  A�g��filename  A�g��fn  A�g��t   5�g��tmp  7 A��g��filenamef��ice-9/psyntax.scm        &  *  2 ,  2 2  7  7 �  A ���C3���h(���e���] 4�5$�� �O�@�6�]�������g��x  '�g��tmp '��g��filenamef��ice-9/psyntax.scm  �  ' ���C5R4i�������h���p���]�6����h�������g��x  ��g��filenamef��ice-9/psyntax.scm          �  ���C5R4iWW����h���p���]�6����h�������g��x  ��g��filenamef��ice-9/psyntax.scm          �  ���C5WRT�����h������]L��6�������g��x  ��g��filenamef��ice-9/psyntax.scm !   # �   ��g��nameg��transg�� macro-typeg��variable-transformer�CZ��h@������] 4�5$��%O��Q�4>��"��G��C�6�������������g��proc  :�g��trans  2��g��filenamef��ice-9/psyntax.scm      !   $  ! $ ' ' $  6 & : & �  : ��g��nameg��make-variable-transformer�CR4i+b� ���h8���)���]��� � ����C�������!�������g��e  1��  1 ���C3,�h������]4�5$��6C����������g��id  �g��exp1  �g��var   �g��val   �g��exp2   ��g��filenamef��ice-9/psyntax.scm  5 5   5 �   ���C� ���hX���p���]� ���   ���  ��� �����C�h�������g��id  W�g��exp1  W�g��var   W�g��val   W�g��exp2   W��  W ���C� ����hP���w���]4�5$��@4�5"�� �6$��4?$��@""o�������g��xx  P�g��tmp P�g��tmp  " P��g��filenamef��ice-9/psyntax.scm ) �  P ���C5R4i+a��h���\���]��C���T�������g��id  �g��args  �g��b0   �g��b1   ��   ���C^3,�������h���h���]�6`�������g��id  �g��val  ��g��filenamef��ice-9/psyntax.scm  C �   ���C�h���;���]��C����3�������g��id  �g��val  ��  ���C� �hP���v���]4�5$��@4�5"�� �6$��4?$��@""n�������g��x  P�g��tmp P�g��tmp  " P��g��filenamef��ice-9/psyntax.scm ? �  P ���C5RC��������g�� session-id ������g��transformer-environment ������g��top-level-eval-hook �����������g��get-global-definition-hook �����������g��maybe-name-value! �����������g��build-application �����������g��analyze-variable �����������g��build-simple-lambda �����������g��build-sequence �����������g��build-named-let �����������g�� build-letrec �����������g��syntax-object-expression �����������g�� extend-env �����������g��extend-var-env �����������g��macros-only-env �����������g�� global-extend �����������g��id? �����������g�� gen-labels �����������g��make-binding-wrap �����������g�� join-wraps �����������g�� same-marks? �����������g�� id-var-name �����������g��locally-bound-identifiers �����������g��valid-bound-ids? �����������g��distinct-bound-ids? �����������g��bound-id-member? �����������g��wrap �����������g�� source-wrap �����������g��expand-sequence �����������g��expand-top-sequence �����������g��expand-install-global �����������g��parse-when-list �����������g�� syntax-type �����������g��expand !�����������g�� expand-expr "�����������g��expand-application #�����������g�� expand-macro $�����������g�� expand-body %�����������g��expand-local-syntax &�����������g��eval-local-transformer '�����������g�� ellipsis? (�����������g��lambda-formals )�����������g��expand-simple-lambda *�����������g��lambda*-formals +�����������g��expand-lambda-case ,�����������g��strip -�����������g��gen-var .�����������g��v /�����������g�� gen-syntax /�����F�����Id�g��gen-ref 0�����F�����Id�g��gen-map 1�����F�����Id�g��regen 2�����F�����Id�g�� expand-let /�����ik�����p�g��convert-pattern /�����r������g��build-dispatch-call 0�����r������g�� gen-clause 1�����r������g��gen-syntax-case 2�����r������g��syntax-local-binding /������������g�� syntax-locally-bound-identifiers 0������������g�� match-each /�����l�����O�g��match-each-any 0�����l�����O�g�� match-empty 1�����l�����O�g��combine 2�����l�����O�g��match* 3�����l�����O�g��match 4�����l�����O�g��quasi �����W�����Y�g��vquasi �����W�����Y�g�� quasicons �����W�����Y�g�� quasiappend �����W�����Y�g�� quasilist* �����W�����Y�g��emit �����W�����Y��Gg��filenamef��ice-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 ���C6������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/buffered-input.go�����������������������������������������������������������������������������0000644�����������������00000010645�15253700563�0010734 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�!�4�����ha������]� g��guile � g��define-module* � � g��ice-9 g��buffered-input � g��filenameS f��ice-9/buffered-input.scm g��exportsS g��make-buffered-input-port g��make-line-buffered-input-port g��!set-buffered-input-continuation?!   � g��set-current-module � � g��make-object-property g��buffered-input-continuation? g��setter � � f��� g�� string-length g�� string-ref g��char-whitespace? g�� eof-object? g��make-soft-port f��r g�� string-append f�� C�5��h`�����]4   5�4�>��"��G���4i5�R������h���@��]45�6�8������g��port  �g��val  ��g��filenamef��ice-9/buffered-input.scm   ! �   ��g��nameg��!set-buffered-input-continuation?!g�� documentationf��Set the read continuation flag for @var{port} to @var{val}. See @code{make-buffered-input-port} for the meaning and use of this flag.�CR��hx�����]M4M5$��:4MM5�MN4�5$��"��445M>��"��G���C4L4M55�4�5$���C�N N"�������������g��res  J�g��x V q��g��filenamef��ice-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 ��g��nameg�� get-character�C���h���u���]�4M5M�C���m�������g��filenamef��ice-9/buffered-input.scm R   S  S �  ��g��nameg�� input-waiting�C��hh���5��]) HHHO��Q�K4O��5K445J>��"��G��JC���-������g��reader  e�g�� read-string  e�g�� string-index   e�g��port  e�g�� get-character   e�g��port  & /��g��filenamef��ice-9/buffered-input.scm #  <   <  >  0 U  D U ! F U R H U  J U  K V �  e ��g��nameg��make-buffered-input-portg�� documentationf�Construct 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(������] 4L��545$��C6��������������g�� continuation?  !�g��str !��g��filenamef��ice-9/buffered-input.scm f   g ) g  h $  h  j 7 ! j $�  ! ���C������h�����]�O�6���������g��reader  ��g��filenamef��ice-9/buffered-input.scm Y f �  ��g��nameg��make-line-buffered-input-portg�� documentationf�Construct 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�����{�������g��m  (��g��filenamef��ice-9/buffered-input.scm   )  % 2    # Y Y �  [ ���C6��������������������������������������������������������������������������������������������ice-9/regex.go��������������������������������������������������������������������������������������0000644�����������������00000016612�15253700563�0007127 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0r������]�3�4���h������]� g��guile � g��define-module* � � g��ice-9 g��regex � g��filenameS f��ice-9/regex.scm g��exportsS g�� match:count g�� match:string g�� match:prefix g�� match:suffix g�� regexp-match? g�� regexp-quote g�� match:start g�� match:end g��match:substring g�� string-match g��regexp-substitute g�� fold-matches g�� list-matches g��regexp-substitute/global   � g��set-current-module � � g�� vector-length g�� substring g��string? !g��integer? "g��call-with-output-string #g��string-for-each $g�� write-char %g�� make-regexp &g�� regexp-exec 'g��for-each (g��display )g��pre *g��post +g��error ,g��wrong-type-arg -g��regexp? .g�� regexp/notbol /g�� string-length 0g��reverse! 1g��cons 2g�� procedure?C�5������h�����]4   5�4�>��"��G�����h���}���]4�5C�����u�������g��match  ��g��filenamef��ice-9/regex.scm ;  <  < �  ��g��nameg�� match:count�C R������h���v���]� C�n�������g��match  ��g��filenamef��ice-9/regex.scm >  ? �   ��g��nameg�� match:string�C R �����h������]4�5 4� 56��~�������g��match  ��g��filenamef��ice-9/regex.scm A  B B $  B �   ��g��nameg�� match:prefix�CR �����h������]4�54� 56���~�������g��match  ��g��filenamef��ice-9/regex.scm D  E E "  E �   ��g��nameg�� match:suffix�CR !�����hp���M��] �$��a4� 5$��R"��G4�5$��C�$��+4�5$��4�5$�� "CCC "CC����E������g��match  l�g��i  a��g��filenamef��ice-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 ��g��nameg�� regexp-match?�CR"#$����h�����]�*$��"��=�.$��"��/�\$��"��!�^$��"���$$��"���[$��4\L�>��"��G���L�6�($��"��K�)$��"��=�+$��"��/�?$��"��!�{$��"���}$��"���|$��04[L�>��"��G��4�L�>��"��G��]L�6�L�6�������������g��c  ��g��filenamef��ice-9/regex.scm g  h  R j  m k  v h  � m  � n  � o   q �   ���C�����h���Z���]�O�L�6�R�������g��p  ��g��filenamef��ice-9/regex.scm f   g �   ���C���h���w���]�O�6���o�������g��string  ��g��filenamef��ice-9/regex.scm d e �  ��g��nameg�� regexp-quote�CR����h0������-�.�,�3�#�� � $��CC�����������g��match ,�g��n ,�g��start   ,��g��filenamef��ice-9/regex.scm t  u &  u   u   u  # v  ' v � , ��g��nameg�� match:start�CR����h0������-�.�,�3�#�� � $��CC�����������g��match ,�g��n ,�g��end   ,��g��filenamef��ice-9/regex.scm x  y %  y   y   y  # z  ' z � , ��g��nameg�� match:end�CR ������hP������-�.�,�3�#�� 4�54�5$��$��4�56CC�������������g��match J�g��n J�g��start   J�g��end  ) J��g��filenamef��ice-9/regex.scm |  }   }  ! ~  ) }  1   :   F  � J ��g��nameg��match:substring�CR%&�h0������-�1�3�4�5$��"�� 6����������g��pattern -�g��str -�g��args  -�g��rx   -�g��start   -��g��filenamef��ice-9/regex.scm � �  �   �   �  �  - � � -  ��g��nameg�� string-match�CR' (!)*+,� �hh������]4�5$���L64�5$��4L��5L6�&�� 4L�5L6�&�� 4L�5L6  �6��������������g��obj  a��g��filenamef��ice-9/regex.scm �   �  �   � )  �  �  # � 2 / � ) 1 �  7 �  : � 2 D � ) F �  L �  O � 2 Y � ) ] � % a � �  a ���C"��h���\���]�LL�@����T�������g��p  ��g��filenamef��ice-9/regex.scm �  � �  ���C�h0������-�1�3��$���O�6O�6������������g��port +�g��match +�g��items  +��g��filenamef��ice-9/regex.scm �  �   �  + � � +  ��g��nameg��regexp-substitute�CR-%./&����h���2��-�.�,�3� #�� 4�5$���"��4�5"��H  $�� "��K 45$��"��4J 5  $��P"��4 54 5"4 54 5$��$��"y""C "`�����*������g��regexp ��g��string ��g��init  ��g��proc  ��g��flags  ��g��regexp  - ��g��start  3 ��g��value  3 ��g��abuts  3 ��g��bol 4 ��g��m j ��� g��filenamef��ice-9/regex.scm �  �  �  ' � , - �  3 �  9 �  > �  J �  Q �  U �  [ �  h � 4 j �  j �  r �  w �  ~ �  � � � �  � �  � � " � �  � �  � � � �  � � � � � �  ��g��nameg�� fold-matches�CR01�h(������-�.�,�3�#�� 4�56��������g��regexp '�g��string '�g��flags  '��g��filenamef��ice-9/regex.scm �  �  � ( % � ' � � '  ��g��nameg�� list-matches�CR( (!2)*+,� ������h���E��]4�5$���L64�5$��4L��5L64�5$�� 4�L�5L6�&��4LL4L�55L6� &��LL4 L�56  �6�����=������g��item  ���g��filenamef��ice-9/regex.scm �   �  �   � &  �  �  # � / / � & 0 �  : �  = � / G � & K �  O �  R �  Y � - a �  e �  i �  m �  r � s � . { �   � � � �  � ��g��nameg��do-item�C��������hx���\��]�(��4L5L6�"��OO�LL�LQ�$��*(��64>��"��G��"CL�"�T������g��matches  w�g��start  w�g��m   w�g��items  o�g��do-item  - o��g��filenamef��ice-9/regex.scm �   �  �   �  �   � �  ? �  C �  F �  J �  O � ! Q �  R �  W � # \ �  g � % m �  o � �  w ��g��nameg�� next-match�C"��h���\���]�LLL�@��T�������g��p  ��g��filenamef��ice-9/regex.scm �   � �   ���C�hH������-�1�3��$��$O��Q�45 6O�6�������������g��port B�g��regexp B�g��string  B�g��items  B�g�� next-match   3��g��filenamef��ice-9/regex.scm �  �   �  ( � 3 �  B � � B  ��g��nameg��regexp-substitute/global�CRC�������������g��m  (��g��filenamef��ice-9/regex.scm  ' � ; Y >  A  D  J j d j t f x | �  �  �  �  � �   ���C6�����������������������������������������������������������������������������������������������������������������������ice-9/optargs.go������������������������������������������������������������������������������������0000644�����������������00000046515�15253700563�0007501 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.05M������]�4��������h7������]� g��guile � g��define-module* � � g��ice-9 g��optargs � g��filenameS f��ice-9/optargs.scm g��importsS g��system g��base g��pmatch   � � � g��exportsS g�� let-optional g�� let-optional* g�� let-keywords g�� let-keywords* g��define*-public g�� defmacro* g��defmacro*-public � g�� re-exportsS g��lambda* g��define* � g��set-current-module � !� "g�� $sc-dispatch #"� $"� %g��reverse &g��any '&&� ('& )&& *g��syntax-violation +*� ,*� -f��-source expression failed to match any pattern .g�� identifier? /g�� syntax-object 0g��top 10� 2g��ribcage 3g��v 4g��rest 534� 611� 7f��l-44375c4e67-1f0 8f��l-44375c4e67-1f1 978� :2569� ;2� <g��lp =g��bindings >g��vars ?g��inits @<=>?� A1111� Bf��l-44375c4e67-1d4 Cf��l-44375c4e67-1d5 Df��l-44375c4e67-1d6 Ef��l-44375c4e67-1d7 FBCDE� G2@AF� H=� I1� Jf��l-44375c4e67-1d3 KJ� L2HIK� M1:;G;L� Ng��hygiene ON� P/MO� Qg�� vars&inits Rg��make-syntax-transformer SR� TR� Ug��macro Vg��_ Wg��each-any X&W YWX Z&Y [VZ \g��length ]g��append ^g��generate-temporaries _&&&WW� `g��let ag��n bg��n+1 cg��t dg��i eab>cd� f11111� gf��l-44375c4e67-210 hf��l-44375c4e67-211 if��l-44375c4e67-212 jf��l-44375c4e67-213 kf��l-44375c4e67-214 lghijk� m2efl� n>?� of��l-44375c4e67-20b pf��l-44375c4e67-20c qop� r2n6q� sg��rest-arg tg��binding ug��b0 vg��b1 wstuv� xf��l-44375c4e67-200 yf��l-44375c4e67-201 zf��l-44375c4e67-202 {f��l-44375c4e67-203 |xyz{� }2wA|� ~g��x ~� �f��l-44375c4e67-1f5 �� �2I� �1;m;;r};�  �/`O� �g��map �� �� �g��lambda �/O� �g��apply �/O� �g��or �/O� �g��parse-lambda-case �/O� �g��quote �/O� �/ O� �/O� �� �� �g��list �/O� �g��error �/O� �f��sth �/O� �&&&W� �ab>d� �f��l-44375c4e67-23a �f��l-44375c4e67-23b �f��l-44375c4e67-23c �f��l-44375c4e67-23d �� �2A� �f��l-44375c4e67-235 �f��l-44375c4e67-236 �� �2n6� �f��l-44375c4e67-22a �f��l-44375c4e67-22b �f��l-44375c4e67-22c �f��l-44375c4e67-22d �� �2wA� �f��l-44375c4e67-21f �� �2I� �1;;;;�  �/O� �/O� �/O� �/O� �/O� �/ O� �/O� �� �� �/O� �/O� �/O� �&Z �V �g��aok �stuv� �f��l-44375c4e67-279 �f��l-44375c4e67-27a �f��l-44375c4e67-27b �f��l-44375c4e67-27c �f��l-44375c4e67-27d �� �2f� �f��l-44375c4e67-245 �� �2I� �1;� �/`O� �g��r �/O� �/O� �g��symbol->keyword �g�� syntax->datum �g��iota �&&&WWWW� �g��ivars �g��kw �g��idx �a>cd� �1111111� �f��l-44375c4e67-264 �f��l-44375c4e67-265 �f��l-44375c4e67-266 �f��l-44375c4e67-267 �f��l-44375c4e67-268 �f��l-44375c4e67-269 �f��l-44375c4e67-26a �� �2� �f��l-44375c4e67-25f �f��l-44375c4e67-260 �� �2n6� �f��l-44375c4e67-252 �f��l-44375c4e67-253 �f��l-44375c4e67-254 �f��l-44375c4e67-255 �f��l-44375c4e67-256 �� �2f� �1;;;;�  �/`O� �/O� �/O� �/O� �/O� �/O� �/ O� �/O� �g��cons �/O� �/O� �/O� �f��l-44375c4e67-2b4 �f��l-44375c4e67-2b5 �f��l-44375c4e67-2b6 �f��l-44375c4e67-2b7 �f��l-44375c4e67-2b8 �� 2f�� f��l-44375c4e67-286 � 2I� 1;� /`O� /O� /O�  &&WWW�  a>d�  f��l-44375c4e67-2a5  f��l-44375c4e67-2a6  f��l-44375c4e67-2a7 f��l-44375c4e67-2a8 f��l-44375c4e67-2a9    � 2 f� f��l-44375c4e67-2a0 f��l-44375c4e67-2a1 � 2n6� f��l-44375c4e67-293 f��l-44375c4e67-294 f��l-44375c4e67-295 f��l-44375c4e67-296 f��l-44375c4e67-297 � 2f� 1;;;;�  /O� /O�  /O� !/O� "/O� #/ O� $/O� %/O� &/O� '/O� ()X )V( *g�� define-public +g��id ,g��args -+,uv� .f��l-44375c4e67-2c4 /f��l-44375c4e67-2c5 0f��l-44375c4e67-2c6 1f��l-44375c4e67-2c7 2./01� 32-A2� 4f��l-44375c4e67-2c1 54� 62I5� 713;6� 8/*7O� 9/7O� :V&&� ;g��val <+;� =f��l-44375c4e67-2d2 >f��l-44375c4e67-2d3 ?=>� @2<6?� A1@;6� B/*AO� C&X D&C E&D FVE GVD Hg�� define-macro If��l-44375c4e67-2f0 Jf��l-44375c4e67-2f1 Kf��l-44375c4e67-2f2 Lf��l-44375c4e67-2f3 MIJKL� N2-AM� Of��l-44375c4e67-2d7 PO� Q2IP� R1N;Q� S/HRO� T/RO� U/RO� Vg��string? Wg��doc X+,Wuv� Yf��l-44375c4e67-2e4 Zf��l-44375c4e67-2e5 [f��l-44375c4e67-2e6 \f��l-44375c4e67-2e7 ]f��l-44375c4e67-2e8 ^YZ[\]� _2Xf^� `1_;Q� a/H`O� b/`O� cg��begin dg��dummy ed+,uv� fg��m-44375c4e67-2fa gf0� hg1111� if��l-44375c4e67-2ff jf��l-44375c4e67-300 kf��l-44375c4e67-301 lf��l-44375c4e67-302 mf��l-44375c4e67-303 nijklm� o2ehn� pg� qf��l-44375c4e67-2fc rq� s2pr� t1o;s� u/ctO� v/tO� wg�� export-syntax x/wtO� yg�� uninitialized zg��*uninitialized* {g�� make-list |g��append! }g��keyword? ~g��assq-ref g�� list-set! g�� scm-error g��keyword-argument-error f��Unrecognized keyword f��Invalid keyword g�� list-copy f��unexpected specC�5����h/�����]4   5 �4!�>��"��G���$%������h���U���]�4L54L�5D������M�������g��filenamef��ice-9/optargs.scm  Z  Z   Z �   ���C(),-.�����h���g���]�6_�������g��v  �g��rest  ��g��filenamef��ice-9/optargs.scm  ] �   ���CP���h���w���]L�LL�6������o�������g��v  �g��rest  ��g��filenamef��ice-9/optargs.scm ^   ^ "  ^ �   ���C.���h���y���]�6q�������g��v  �g��init  �g��rest   ��g��filenamef��ice-9/optargs.scm  [ �   ���C�����h������]L�LL�6�������������g��v  �g��init  �g��rest   ��g��filenamef��ice-9/optargs.scm \   \ "  \ �   ���C� ���h������]4�5$�� O�@4�5"��@4�5"�� �6$��4?$��L�O�@""$��4 ?$�� L�O�@""���������g��bindings  ��g��vars  ��g��inits   ��g��tmp  ��g��tmp  ( ��g��tmp  7 n��g��filenamef��ice-9/optargs.scm W �  � ��g��nameg��lp�C�����h������] O�Q��6��������g��bindings  �g��lp ��g��filenamef��ice-9/optargs.scm V W   W %  W 1  W �   ��g��nameg�� vars&inits�CQR4TU$[,-.�������h������]�6�������g��rest-arg  �g��binding  �g��b0   �g��b1   ��g��filenamef��ice-9/optargs.scm  c ,�   ���CQ\]^$_�������h���Z���]L����C�������R�������g��tmp-44375c4e67-21b  �g��tmp-44375c4e67-21a  ��   ���C�������hX���j���]4O�5LL� �� � L�  L����C���b�������g��n  U�g��n+1  U�g��vars   U�g��t   U�g��i   U��  U ���C,-� ������hh��� ��]$4>�� G�45454��545�45$���O�@ 6��������g��rest-arg  f�g��binding  f�g��b0   f�g��b1   f�g��vars  f�g��inits  f�g��tmp  ; f�g��tmp  F f��g��filenamef��ice-9/optargs.scm  d $  d   f   g " # g  $ h  - h , / h  0 i " ; f �  f ���C�����h@���d���] 4�5"�� �6$��4?$��@""�������\�������g��x  9�g��tmp 9��g��filenamef��ice-9/optargs.scm a �  9 ���C5R4TU$[,-.�h������]�6�������g��rest-arg  �g��binding  �g��b0   �g��b1   ��g��filenamef��ice-9/optargs.scm  v ,�   ���CQ\]$���h���:���]L���C����2�������g��tmp-44375c4e67-243  ��  ���C� ������hP���[���]LL���4  O�5L��  L����C����S�������g��n  L�g��n+1  L�g��vars   L�g��i   L��  L ���C,-� �����h`�����]$4>�� G�45454��5�45$���O�@6�������g��rest-arg  _�g��binding  _�g��b0   _�g��b1   _�g��vars  _�g��inits  _�g��tmp  4 _�g��tmp  ? _��g��filenamef��ice-9/optargs.scm  w $  w   y   z " # z  $ {  - { , / {  4 y �  _ ���C�����h@���d���] 4�5"�� �6$��4?$��@""�������\�������g��x  9�g��tmp 9��g��filenamef��ice-9/optargs.scm t �  9 ���C5R4TU$�h(���v���]����C�����n�������g��rest-arg  #�g��aok  #�g��binding   #�g��b0   #�g��b1   #��  # ���C,-.��������h������]�6�������g��rest-arg  �g��aok  �g��binding   �g��b0   �g��b1   ��g��filenamef��ice-9/optargs.scm  � 0�   ���CQ\^$�������h���Z���]L����C�������R�������g��tmp-44375c4e67-273  �g��tmp-44375c4e67-272  ��   ���C�����h`������]4O�5LL�   �L4 5�� L� L����C��������g��n  _�g��vars  _�g��ivars   _�g��kw   _�g��idx   _�g��t   _�g��i   _��  _ ���C,-� ���h���M��]%4>�� G�45454455445545�4 5$�� �O�@  6�������E������g��rest-arg  y�g��aok  y�g��binding   y�g��b0   y�g��b1   y�g��vars  y�g��inits  y�g��tmp  L y�g��tmp  W y�� g��filenamef��ice-9/optargs.scm  � $  �   �   � % � # * � ( 4 � # 5 � $ 8 � * @ � $ A � " L � �  y ���C��������hP���v���]4�5"�� 4�5$��@�6$��4?$��@""n�������g��x  P�g��tmp P�g��tmp   1��g��filenamef��ice-9/optargs.scm � �  P ���C5R4TU$����h(���v���]����C�����n�������g��rest-arg  #�g��aok  #�g��binding   #�g��b0   #�g��b1   #��  # ���C,-.��������h������]�6�������g��rest-arg  �g��aok  �g��binding   �g��b0   �g��b1   ��g��filenamef��ice-9/optargs.scm  � 0�   ���CQ\$  !"#$%�������h���:���]L���C����2�������g��tmp-44375c4e67-2b2  ��  ���C&'�����hX���k���]LL�L�4 5�� 4 O�5L�  L���C��c�������g��n  V�g��vars  V�g��kw   V�g��idx   V�g��i   V��  V ���C,-� �����hp���;��]%4>�� G�4544554455�45$�� �O�@  6�����3������g��rest-arg  k�g��aok  k�g��binding   k�g��b0   k�g��b1   k�g��vars  k�g��inits  k�g��tmp  > k�g��tmp  I k�� g��filenamef��ice-9/optargs.scm  � $  �   �   � # # � ( - � # . � $ 1 � * 9 � $ > � �  k ���C��hP���v���]4�5"�� 4�5$��@�6$��4?$��@""n�������g��x  P�g��tmp P�g��tmp   1��g��filenamef��ice-9/optargs.scm � �  P ���C5R4TU$)89������h���\���]��C���T�������g��id  �g��args  �g��b0   �g��b1   ��   ���C:,-.�������h���h���]�6`�������g��id  �g��val  ��g��filenamef��ice-9/optargs.scm   �   ���CB�h���;���]��C����3�������g��id  �g��val  ��  ���C� �hP���v���]4�5$��@4�5"�� �6$��4?$��@""n�������g��x  P�g��tmp P�g��tmp  " P��g��filenamef��ice-9/optargs.scm � �  P ���C5R4TU$FGSTU��������h���\���]��C�T�������g��id  �g��args  �g��b0   �g��b1   ��   ���C,-V�������h������]456����������g��id  �g��args  �g��doc   �g��b0   �g��b1   ��g��filenamef��ice-9/optargs.scm   *  !�  ���Cab���h���m���]��C�e�������g��id  �g��args  �g��doc   �g��b0   �g��b1   ��   ���C� �������hP���v���]4�5"�� 4�5$��@�6$��4?$��@""n�������g��x  P�g��tmp P�g��tmp   1��g��filenamef��ice-9/optargs.scm  �  P ���C5R4TU$Euvx���h ���o���]��C���g�������g��dummy  �g��id  �g��args   �g��b0   �g��b1   ��   ���C,-��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/optargs.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��idg��argsg��b0g��b1g��...���C5Ry�zR{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���� ������g��spec  L�g��inits  L�g��args   L�g��vx   D�g��vy   D�g��vx  <�g��vy  <�g��vx  1 4�g��vy  1 4�g��vx B ,�g��vy B ,�g��vx S $�g��vy S $�g��vx d �g��vy  d �g��args  r ��g��prev  r ��g��tail  r ��g��n  r ��g�� slots-tail  � ��g��slots  � P�g�� slots-tail  � P�g�� args-tail  � P�g��n  � P�g��inits  � P�g��slots  T �g�� slots-tail  T �g�� args-tail  T �g��inits  T �g��rest-idx  T �g��slots   �g�� slots-tail   �g�� args-tail   �g��inits   �g��t  F �g��slots   �g�� slots-tail   �g�� args-tail   �g��inits   �g��t  Q �g��args   ��)g��filenamef��ice-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 ��g��nameg��parse-lambda-case�CRC�������{�������g��m  0��g��filenamef��ice-9/optargs.scm  ; [ V      /  �  / ���C6������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/format.go�������������������������������������������������������������������������������������0000644�����������������00000232050�15253700563�0007301 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.04�����]%�4�hx������]� g��guile � g��define-module* � � g��ice-9 g��format � g��filenameS f��ice-9/format.scm g�� replacementsS � g�� autoloadsS g�� pretty-print � g��truncated-print � g��i18n � g��%global-locale g��number->locale-string � � g��set-current-module � � f��3.0 g��format:version g��string? g��error f��+format: expected a string for format string g��boolean? !g��current-output-port "g�� output-port? #g��number? $g��issue-deprecation-warning %f��5Passing a number to format as the port is deprecated. &f��"Pass (current-error-port) instead. 'g��current-error-port (f��format: bad destination `~a' )g��%default-port-encoding *f��UTF-8 +g��open-output-string ,g�� port-column -g�� write-char .g�� string-ref /g�� string-length 0g��char=? 1g��display 2g��string 3f��~ 4g��memv 5g��append 6[];:@^� 70123456789-+v#'� 8f��illegal format string 9{}:@^� :g�� char-upcase ;g��memq <g��colon =g��colon-at ><=� ?g��at @?=� Af��missing argument(s) Bg��list-ref Cg��length Df��'~s parameter must be a positive integer Ef��width Ff��decimals Gg�� integer->char Hf��padchar Ig�� string-pad Jg��complex? Kf��argument not a complex number Lg�� real-part Mg�� imag-part Nf��'one positive integer parameter expected Og��integer? Pg��char? Qf��~~c expects a character Rg��object->string Sg�� char->integer Tf��#\ Ug��number->string Vf��missing backward argument(s) Wf��~~p expects a number argument Xf��ies Yg��call-with-output-string Zg��widthS [g��max \f��illegal modifier in ~~? ]g��char-whitespace? ^f��&illegal modifier `:@' in ~~* directive _g�� string-copy `g��char-alphabetic? ag�� string-set! bg�� char-downcase cg��string-capitalize dg�� string-upcase eg��string-downcase ff�� missing ~~( gg��if-then hg�� if-else-then if��illegal modifier in ~~[ jg��num-case kf��~~; not in ~~[~~] conditional lf��no parameter allowed in ~~; mg�� substring nf��illegal modifier in ~~; of�� missing ~~[ pf��no modifier allowed in ~~] qf��no parameter allowed in ~~] rf��argument not a positive integer sg�� rest-args tg��sublists ug�� rest-sublists vg��list wf�� missing ~~{ xf��illegal modifier yf��no parameters allowed in ~~} zg��string=? {f��� |f��expected a list argument }g�� list-tail ~f��!expected a list of lists argument f��expected list arguments �f��internal error in ~~} �f��too much parameters �f��double `@' modifier �f��double `:' modifier �f��misplaced modifier �g�� char-numeric? �g��string->number �f�� misplaced '#' �� �g�� string-append �f�� SLIB Common LISP format version  �f��, (C) copyright 1992-1994 by Dirk Lutzebaeck �f��5 please send bug reports to `lutzeb@cs.tu-berlin.de' �f��unknown control character `~c' �g��string-prefix? �f��#< �f��mincol �f��colinc �f��minpad �f��argument not an integer �f�� commawidth �f��colnum �f��unsupported modifier for ~~t �f��'only positive integers can be romanized �g�� list->string �g��reverse � M� � D� � dC� � 2L� � X� � V� � I� �� �g��assv � d d � �f��zero �f��minus  �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��,  �f��one �f��two �f��three �f��four �f��five �f��six �f��seven �f��eight �f��nine �f��ten �f��eleven �f��twelve �f��thirteen �f��fourteen �f��fifteen �f��sixteen �f�� seventeen �f��eighteen �f��nineteen �� �f�� hundred � � �f��twenty �f��thirty �f��forty �f��fifty �f��sixty �f��seventy �f��eighty �f��ninety ��  �f�� times ten to the  �f�� power �f��3only integers can be converted to English cardinals �f��zeroth �f��th �f��  �f��first �f��second �f��third �f��fourth �f��fifth �f��sixth �f��seventh �f��eighth �f��ninth �f��tenth �f��eleventh �f��twelfth �f�� thirteenth �f�� fourteenth �f�� fifteenth �f�� sixteenth �f�� seventeenth �f�� eighteenth �f�� nineteenth �� �f�� twentieth �f�� thirtieth �f��fortieth �f��fiftieth �f��sixtieth �f�� seventieth �f�� eightieth �f�� ninetieth ��  �f��- f��2only integers can be converted to English ordinals g�� string-index f��+argument is not a number or a number string f��digits g��inf? g��nan? f��argument is not a number f��exponent digits  g��min  f��mindig  g��exact->inexact  f��(illegal character `~c' in number->string  f��4number 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! g��newline f�� destination:  g��write f�� format string:  f�� format args:  f�� error args:  f��error in format f��r~%FORMAT: error with call: (format ~a "~a<===~a" ~ ~{~a ~}===>~{~a ~})~%  g�� list-head g��apply g�� make-string f��~a missing argument~:p g�� force-output g��get-output-string g�� close-port f��;Omitting the destination on a call to format is deprecated.  f��5Pass #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! $g��the-root-moduleC�5���hx����]4     5�4�>��"��G���R !"#$%&'()*+,-.������hP������] "��1$��"��,44�5L>��"��G��""M�N�C������������g��str  K�g��i  K�g��n   K�g��k   7��g��filenamef��ice-9/format.scm Z   [  \  [   ]   ]  & ]  1 [  7 [  F ^ % G ^  I ^ �  K ��g��nameg��format:out-substr�C-��h@������] "��*�$��"��$4L>��"��G��" "M��N�C�������g��n  @�g��ch  @�g��i   0��g��filenamef��ice-9/format.scm c   d  e  d   f  * d  0 d  < g  > g �  @ ��g��nameg��format:out-fill�C/.012-�h�����]M L $��M C4L M 5�M N ���4�~5$�� NNNL�6�M $��cM $��WM$��"44M4�55L>��"��G��"��4�L>��"��G��4� 5$�� "��MN"���"���"T��������g��ch  #�g��char # ���g��filenamef��ice-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  � � �  � ��g��nameg��anychar-dispatch�C134.56789:;>@AB<CDEFGH/I?=JKLM2-0NOPQRSTUV#WXYABZ������hH������]MM$��MN4M>��"��G��"��� MNMN4LM5�L�6�����������g��p  D��g��filenamef��ice-9/format.scm   �  �   � )  �   �   � "  �  , �  . �  2 �  3 �  : � < �  D  �  D ���CABZ[��������hP������]MM$��MN4M>��"��G��"��� MNMN4LM5�4L�M 56����������g��p  M��g��filenamef��ice-9/format.scm   �  �   � )  �   �   � "  �  , �  . �  2 �  3 �  : � < �  A  . H  3 K  . M  �  M ���C\Z]^_/.`ab:�������h�����])4�54�5H"��u$��C4�545$��GJ$��445>��"��G��"��K445>��"��G��"���" "�������g��str  ��g��cap-str  ��g��non-first-alpha   ��g��str-len   ��g��i   ��g��c  0 ���g��filenamef��ice-9/format.scm %   &  (   &   )  * $ )  ( +  0 + 3 ,  = , C -  D .  K . + V .  e 0  f 1  m 1 - x 1  � )  � ) �  � ��g��nameg��string-capitalize-first�Ccdefghijklmnopqrstuvwxyz{|}~_�f�������h0)��QI��]HM*L)$��@M%$��44M%5L&>��"��G��"��4L&>��"��G��M' N'M(CM ��$��"��44L�M*5455�$�(M# ��$��"��+4M*L)$�� 4M$5"�� 4L�M*54 55�$�(h4 M*L)$�� 4M$5"�� 4L�M*5�M*N*��5��A$��c4 M  5N4L4 M  5M(M$��MN4M$>��"��G��"��� M(N(M(N4LM(5M>��"��G��L6��S$��c4 M  5N4L4 M  5M(M$��MN4M$>��"��G��"��� M(N(M(N4LM(5M>��"��G��L6��D$��R4L M M(M$��MN4M$>��"��G��"��� M(N(M(N4LM(5M >��"��G��L6��H$�M(M$��MN4M$>��"��G��"��� M(N(M(N4LM(5M $��<M(M$��MN4M$>��"��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&>��"��G��M'45N'L6��X$��R4L M M(M$��MN4M$>��"��G��"��� M(N(M(N4LM(5M >��"��G��L6��O$��R4L M M(M$��MN4M$>��"��G��"��� M(N(M(N4LM(5M >��"��G��L6��B$��R4L M M(M$��MN4M$>��"��G��"��� M(N(M(N4LM(5M >��"��G��L6��R$��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>��"��G��L6��F$��P4L M M(M$��MN4M$>��"��G��"��� M(N(M(N4LM(5M>��"��G��L6��E$��P4LM M(M$��MN4M$>��"��G��"��� M(N(M(N4LM(5M>��"��G��L6��G$��P4L M M(M$��MN4M$>��"��G��"��� M(N(M(N4LM(5M>��"��G��L6��$$��P4LM M(M$��MN4M$>��"��G��"��� M(N(M(N4LM(5M>��"��G��L6��I$��M(M$��MN4M$>��"��G��"��� M(N(M(N4LM(545$��"��4M$>��"��G��4L M 45M>��"��G��4L 4 5M>��"��G��M%$��"44M%4!i55L&>��"��G��"��4"iL&>��"��G��4#i 5$�� "��M'N'L6��C$�bM(��"��J"�� 4M$$5"��;4%5$��+ $��45 $��"��""��""��"$�� 4M5"��8M(M$��MN4M$>��"��G��"��� M(N(M(N4LM(54&5$��"��4M$'>��"��G��M $��S4(5M%$��44M%5L&>��"��G��"��4L&>��"��G��M'45N'"�1$�4)5HJ $�� J �K"���J $��M%$��"44M%4!^55L&>��"��G��"��4"^L&>��"��G��4#^ 5$�� "��M'N'4J @5M%$��"44M%4!55L&>��"��G��"��4"L&>��"��G��4# 5$�� "��M'N'"��J $��M%$��44M%*5L&>��"��G��"��4*L&>��"��G��M' N'4+J 5M%$��44M%5L&>��"��G��"��4L&>��"��G��M'45N'"��SM%$��"44M%4!55L&>��"��G��"��4"L&>��"��G��4# 5$�� "��M'N'"��SM%$��"44M%4!55L&>��"��G��"��4"L&>��"��G��4# 5$�� "��M'N'L6��P$�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&>��"��G��4#y 5$�� "��M'N'"���"��M &��"��$��BM%$��44M%/5L&>��"��G��"��4/L&>��"��G��M' N'"��SM%$��"44M%4!s55L&>��"��G��"��4"sL&>��"��G��4#s 5$�� "��M'N'L6��~$��M(��"��J"�� 4M$$5"��;4%5$��+ $��45 $��"��""��""��"$��4LM~>��"��G��"��SM%$��"44M%4!~55L&>��"��G��"��4"~L&>��"��G��4#~ 5$�� "��M'N'L6��%$��M(��"��J"�� 4M$$5"��;4%5$��+ $��45 $��"��""��""��"$��4LM >��"��G��"��SM%$��"44M%4! 55L&>��"��G��"��4" L&>��"��G��4#  5$�� "��M'N' N'L6��&$��M(��"��J"�� 4M$$5"��;4%5$��+ $��45 $��"��""��""��"$��8M $��(4LMM' $�� "��  >��"��G��"��� N'"��_M' $��WM%$��"44M%4! 55L&>��"��G��"��4" L&>��"��G��4#  5$�� "��M'N'"���L6��_$��M(��"��J"�� 4M$$5"��;4%5$��+ $��45 $��"��""��""��"$��4LM >��"��G��"��SM%$��"44M%4! 55L&>��"��G��"��4" L&>��"��G��4#  5$�� "��M'N'L6��/$��M(��"��J"�� 4M$$5"��;4%5$��+ $��45 $��"��""��""��"$��4LM >��"��G��"��SM%$��"44M%4! 55L&>��"��G��"��4" L&>��"��G��4#  5$�� "��M'N'L6��|$��M(��"��J"�� 4M$$5"��;4%5$��+ $��45 $��"��""��""��"$��4LM >��"��G��"��SM%$��"44M%4! 55L&>��"��G��"��4" L&>��"��G��4#  5$�� "��M'N' N'L6��T$��4LM M>��"��G��L6��Y$�M(��"��J"�� 4M$$5"��;4%5$��+ $��45 $��"��""��""��"$��M"�� OM $��b401LLL$LL(O�5M%$��44M%5L&>��"��G��"��4L&>��"��G��M'45N'"��$��d402L'LLL$LL(O�5M%$��44M%5L&>��"��G��"��4L&>��"��G��M'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(54L5�4L4L5>��"��G��"��M(M$��MN4M$>��"��G��"��� M(N(M(N4LM(5M(M$��MN4M$>��"��G��"��� M(N(M(N4LM(54L>��"��G��L6��!$��N L6�� $�M &��WM%$��"44M%4! 55L&>��"��G��"��4" L&>��"��G��4#  5$�� "��M'N'"���M*L)$�9"�465$��"��M*L)$��"� M &��M*L)$�� 4M$5"�� 4L�M*5M*N*M%$��"44M%4!55L&>��"��G��"��4"L&>��"��G��4# 5$�� "��M'N'"��8M*L)$��4M$>��"��G��"��4L�M*>��"��G��M*N*M*L)$�� 4M$5"�� 4L�M*5"M*L)$�� 4M$5"�� 4L�M*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(>��"��G��L6��($��<M $��8"�� $��9"��$��:"��;N%L6��)$��#M%$��"��4M$<>��"��G��N%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>��"��G��M $��nM &��N4CL�MM* 5"��6M &��"��$�� 4M$D5"��4CL�MM* 54M�5NM*N"���L6��]$�M $��4M$E>��"��G��"���MNM $��4M$F>��"��G��"���M(��"��4M$G>��"��G��M $�G4CL�MM* 5M$��N"��4M�5NM=$��&M$��4LMM�>��"��G��"���"��>$��/4L4LM$��M"��M4L5�5>��"��G��"��@$��4%M5$��"��M $��4M$H>��"��G��"���"��;4L4LM4M5$��M"�� 4MM54L5�5>��"��+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>��"��G��M# $�4CL�MM*M $�� "�� 5H4PJQ5$��>M(M$��MN4M$>��"��G��"��� M(N(M(N4LM(5K"���ML$��M(M$��MN4M$>��"��G��"��� M(N(M(N4LM(5 H$��"��4M$R>��"��G��45K"��KJ$��"��M$�� M"��$��"��(4LJ4S55" ""�YJ$��M(M$��MN4M$>��"��G��"��� M(N(M(N4LM(5 H$��"��4M$R>��"��G��45K"��uJ$��"��M$�� M"��$��"��O45$��"��4M$T>��"��G��4LJ>��"��G��" ""�cI$��4L5�45"��M$��"��M$�� M"��$��"��(4LJ4S55" "4L>��"��G��"��K$��4L5�45"��w$��"��M$�� M"��$��"��O45$��"��4M$U>��"��G��4LJ>��"��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$��L6�C�@$��IM &��"��$��4M$Y>��"��G��"���M &��"��N "�:$��IM &��"��$��4M$Z>��"��G��"���M &��"��N "ڳ�'$��]M $��4M$[>��"��G��"���4M4)M*L)$�� 4M$5"�� 4L�M*5M*N*5�5NN"M�0$��"���1$��"���2$��"��u�3$��"��g�4$��"��Y�5$��"��K�6$��"��=�7$��"��/�8$��"��!�9$��"���-$��"���+$��M $��4M$[>��"��G��"���M*M*H"��o4\5$��`M*L)$��4M$>��"��G��"��4L�M*>��"��G��M*N*JKM*L)$�� 4M$5"�� 4L�M*5""��#M*L)$�� 4M$5"�� 4L�M*5"n4M4]4CL�J55�5NN"�V$��gM $��4M$[>��"��G��"���4MM(M$��MN4M$>��"��G��"��� M(N(M(N4LM(5�5NN"V�#$��UM$��4M$^>��"��G��"���M $��4M$[>��"��G��"���4M44L5�5�5NN"�,$��8M $��4M$[>��"��G��"���M$��"�� 4M_5NN"׷�Q$��M &��N`M%$��44M%5L&>��"��G��"��4L&>��"��G��M'45N'"��g4! 54ab`cd5M%$��44M%5L&>��"��G��"��4L&>��"��G��M'45N'L6�M$e4L�M*56L6�L6����II������g��t O v�g��t ~ ��g��ch � ��g��key � )%�g��num a )�g��key  e �g��locale   &�g��argc   #�g��pars   �g��par   �g��width    �g��pars   D�g��par   <�g��decimals  D �g��pars  K �g��par  _ �g��padchar   �g��str   �g��str   �g��key T �g��z  ~�g��params  �g��ch / �g��key  T �g��str  f �g��c  �g��ch  > �g��str  2�g��t �g��arg �g��t  �g��t  1 H�g��params M�g��params  &�g��params  �g��params  �g��params  �g��params ^ �g��params [ �g��width  �g��key   �g��str   /�g��str  T �g��t 3 J�g��frmt  �g��args   �g��frmt  ^�g��args  B [�g��ch  �g��t   �g��ch  2 >�g��ch  > �g��key + �g��params  8 �g��i   �g��params  E �g��params   ,�g��i  4 �g��key  "�g��key v �g��params   �g��t  �g�� clause-str  �g�� clause-str  �g��key  �g��t  . B�g��key  �g��params " |�g��key  �g�� iteration-str J #�g��key  #�g��args  !f�g��args-len  !f�g��arg-pos  ! !V�g��i  ! !V�g��t  ! !0�g��args  ! "\�g��args-len  ! "\�g��arg-pos  ! "O�g��t  ! !�g��sublist  " "F�g��args  "n "�g��args-len  "w "�g��arg-pos  "} "�g��i  "} "�g��t  " "�g�� usedup-args  " "�g��args  # #�g��args-len  # #�g��arg-pos  # #�g��t  # #7�g��sublist  #J #�g�� usedup-args  # #�g��key $' $�g��b  $i $�g��continue $ $�g��t $ $�g��t % %�g��ch % %�g�� num-str-beg &y '5�g�� num-str-end  &y '5�g��ch  & &�g��str (^ (�g��nl ( )�g��str  ( )��ig��filenamef��ice-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  )   )  ! )  ! )!  ; )#  ! )%   ))    )- ��g��nameg��tilde-dispatch�C�����h0������]"�� $���C��"LM��"������������g��l  �g��k  ��g��filenamef��ice-9/format.scm �  �  �   �   � $  � ,  �   � �  + ��g��nameg�� rest-args�C�������h������]�MNMN�C��������g��n  ��g��filenamef��ice-9/format.scm �  �  �  � �   ��g��nameg�� add-arg-pos�CC����h����,�3�&M4�5HHHHHH H H H H HHHHHO�O�+O�O�LLL �LQ�� LLLL L L L     L LLLLLLLLL�LLLLQ�Q�LQ� 45  %$#"! KKKKKK K K K  K !K"K#K$K%K !"#$% N N4>���"��G��NJC������g�� format-string  �g��arglist  �g��recursive-pos-save   �g��format-string-len   �g��arg-pos   �g��arg-len   �g��modifier   �g��params   �g��param-value-found   �g��conditional-nest  �g�� clause-pos  �g��clause-default  �g��clauses  �g��conditional-type  �g��conditional-arg   �g��iteration-nest   �g�� iteration-pos   �g��iteration-type   �g��max-iterations   �g��anychar-dispatch  � �g��tilde-dispatch  � �g�� rest-args  � �g�� add-arg-pos  � �g��arg-pos  4 �g��arg-len  4 �g��modifier  4 �g��params  4 �g��param-value-found  4 �g��conditional-nest  4 �g�� clause-pos  4 �g��clause-default  4 �g��clauses  4 �g��conditional-type 4 �g��conditional-arg ! 4 �g��iteration-nest " 4 �g�� iteration-pos # 4 �g��iteration-type $ 4 �g��max-iterations % 4 ��&g��filenamef��ice-9/format.scm �  �   �  ! �  ) �  . �             �   ��g��nameg��format:format-work�CRY1������h���]���]L��6������U�������g��p  ��g��filenamef��ice-9/format.scm  .  :�  ���C1/CBDG1�������h���]���]L��6������U�������g��p  ��g��filenamef��ice-9/format.scm  .  :�  ���C��������h����]D(��$�� 45"�� 4O�5M$��45$�� 45"��"��M$��44M5L>��"��G��"��4L>��"��G��M45NC45 $��34  5$�� $�� 4M  5"��"�� "��  $��34  5$�� $�� 4M  5"��"�� "��  $��44  5$�� $�� 4M  5"��"�� "�� 4 $�� 4  5$��"�� "�� 5$�� 45"�� 4O�5M$��45$�� 45"��"�� �$��"��CM$��44M 5L>��"��G��"��4 L>��"��G��M4 5N"��3  $��4L� >��"��'G��"��     "4 5  "�$��EM$��44M 5L>��"��G��"��4 L>��"��G��M4 5NCC������������g��pad-left  �g��obj  �g��slashify   �g��pars   �g��res  % P�g��str  P ��g��l  � �g��par  � ��g��par  � �g��par  * Q�g��par  k ~�g��res   �g��mincol   �g��colinc   �g��minpad   �g��padchar   �g��objstr  �g�� objstr-len ) \�g��i ) \��g��filenamef��ice-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   ��g��nameg��format:out-obj-padded�COUC/BDG?=<12-0�h����]T45$��"��4M>��"��G��45"�#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�$��"44M�4+55L>��"��G��"��4+L>��"��G��4+ 5$�� "��MN"���"���� &��"��� $��  $�� "��   4L  >��"��G��"�� $��C  $��WM�$��"44M�4 55L>��"��G��"��4 L>��"��G��4  5$�� "��MN"���4L   >��"��G��   "q  "iM�$��44M�5L>��"��G��"��4L>��"��G��M45NC(��O�$��"M�$��44M�5L>��"��G��"��4L>��"��G��M45NC"��������g��modifier  �g��number  �g��pars   �g��radix   �g��numstr  , �g��l  @ U�g�� numstr-len  @ U�g��par  T {�g��par  � ��g��par  � ��g��par  � �g��mincol   U�g��padchar   U�g�� commachar  U�g�� commawidth  U�g��numlen . �g��start \ �g��ns \ �g��i y ��g��filenamef��ice-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 �   ��g��nameg��format:out-num-padded�CCBDG<=?� ���hx����]245 $��34 5$�� $�� 4M5"��"�� "��  $��34 5$�� $�� 4M5"��"�� "�� 4 $�� 4 5$��"�� "�� 5�$��"���$��M 6� $��GL $��"��3"��!$�� M�"��" M�"6LM�$�� M�"��6 $�� "��)"��M�$�� M�"��""6����������g��modifier  t�g��pars  t�g��l  t�g��par   B�g��par  W ~�g��par  � ��g��colnum  � t�g��colinc  � t�g��padch  � t�g��c  � �g��col  � �g��c  K h�� g��filenamef��ice-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 ��g��nameg��format:tabulate�CO���h�����]9"��M�64�5$��|� $��p"��](�� 456"��, $��"""�""s"o�������g��n  ��g��n # ��g��romans  # ��g��s  # ��g�� roman-val  = ��g�� roman-dgt  = ��g��q  E q�g��s  E q��g��filenamef��ice-9/format.scm                  #  )  ,  - 4   7  ! ;  ! =   E   I   M   R   U   a   d  1 i   q   v   �   �  � }  �   �  �  � ��g��nameg��format:num->old-roman�CO5� �������h�����]Q"��M�64�5$��� $��"��(�� 456"��{ $��_"��  "$��; $��+ 445 5"z""    "  "o�"5""��������g��n  ��g��n # ��g��romans  # ��g�� boundaries  # ��g��s  # ��g�� roman-val  @ ��g�� roman-dgt  @ ��g��bdry  @ ��g��q  J ��g��r J ��g��s J ��� g��filenamef��ice-9/format.scm                  #  )  ,   4   7  ! ;  ! @   @   J   N   R   [  $ ^  1 l   l   y  , z  & ~   �  " �  5 �  " �  ( �  . �  ) �  ( �  " �   �   �  ) �   �   �  ! �  ! �   �  � }  �   �   �  �0  � ��g��nameg��format:num->roman�COC5B�h����]Q4�5$�� $��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"��"� "M�6�������g��n  �g��power3-word-limit 6 �g��n  < �g��power3  < �g��s  < �g��n-before-block  V �g�� n-after-block  V �g��hundreds  � :�g�� tens+ones  � 7�g��tens � 4�g��ones � 1�� g��filenamef��ice-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   ��g��nameg��format:num->cardinal�CO{B���h�����]!4�5$��� $��C� $��4L �56� d� d $��#44L d5 $��"��5"�� $��"��X $�� 4 5"��B   $�� 4 5"��44 5 4 556M� 6������������g��n  ��g��hundreds 9 ��g�� tens+ones  9 ��g��tens  � ��g��ones  � ���g��filenamef��ice-9/format.scm                    $  $ %  - (  B -  - /   4   9   9  C   G   H   K   R  + T   X   \   ^  ) d  . f   l   p   t   v  $    �   �   �   �   �  $ �  $ �   � !  � !  � "  �   � "  � #  � $  �   � $  � %  � &  �   � &  � #  �   �   �  �9  � ��g��nameg��format:num->ordinal�CU/[G1����h(����]>4�5454.5$��"�� $��  "��  "��$��44 5 5"��  $��4  5"��  4$��"�� 5 4L  >��"��G��M$��44M5L�>��"��G��"��4L�>��"��G��M45NL  6$��$$��$�� L456"("$" ����� ������g��number  #�g��width  #�g��digits   #�g��edigits   #�g��overch   #�g��padch   #�g��str  #�g��len   #�g��dot   #�g��digits = #�g��leftpad d ��g��rightpad  ��g��padch � ��� g��filenamef��ice-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 �/  # ��g��nameg��format:out-inf-nan�C#CBDE?G� ������h��@��]C45$��"��45$��"��4M >��"��G��45 $��34 5$�� $�� 4M 5"��"��"�� $��34 5$�� $�� 4M 5"��"��"�� $��4 5$��"�� "��  $��4 5$��"��"�� $�� 4 5$��"�� "�� "�$�4L>��"��G��MM$��4LMM>��"��G��"��4L>��"��G��$��MH M  $��"���  $�� J K "���M $��$�� J K "���"���J $�� 4LJ 4 5>��"��G��"���"�� L �6$��J $�� L4 56""L �64L>��"��G��4L>���"��G��$��MH M  $��"���  $�� J K "���M $�� J K "���J $�� 4LJ 4 5>��"��G��"���J $��IJ MM  $��$�� L4 56L �64L >��"��G��L �6L �6L �645$��54 5  $��"��4 5 $��L�6""�����8������g��modifier  {�g��number  {�g��pars   {�g��l  : {�g��par  L s�g��par  � ��g��par  � ��g��par  � �g��par   +�g��width  1 {�g��digits  1 {�g��scale  1 {�g��overch  1 {�g��padch  1 {�g��numlen  A�g��t  �g��numlen v 0�g��t { �g�� dot-index  )�g��t I `��g��filenamef��ice-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 �  { ��g��nameg��format:out-fixed�C#CBDE?G�����h8�� ��][45$��"��45$��"��4M >��"��G��45 $��34 5$�� $�� 4M 5"��"��"�� $��34 5$�� $�� 4M 5"��"��"�� $��44 5$�� $�� 4M  5"��"��"�� $��4 5$��"�� "��  $��4 5$��"��"�� $�� 4 5$��"�� "��  $��4 5$��"��"��  "�F$� $�� $�� "�� "�� 4L>��"��G��MM $��4L MM>��"��G��"��4L >��"��G��$�"��M H M   $��"���  $�� J K "���M $�� $�� J K "���"���J $��M$��"��M"��MK J $�� 4LJ 4  5>��"��G��"���"�� 4L �J >��"��G��L  6$��J $�� L4 56""$��$$��M$�� L4 56"""4L �>��"��G��L  64L>��"��G��4L>���"��G��$�R"� M H M   $��"���  $�� J K "���M $�� J K "���J $��M$��"��M"��MK J $�� 4LJ 4  5>��"��G��"���J $��tMM J  $��.$�� L4 564L �>��"��G��L  64L J >��"��G��4L �>��"��G��L  64L �>��"��G��L  6$��$$��M$�� L4 56"""4L �>��"��G��L  645$��64 5  $��"��4 5 $��L� 6"y"u��� ������g��modifier  5�g��number  5�g��pars   5�g��l  : 5�g��par  L s�g��par  � ��g��par  � ��g��par   �g��par  - ?�g��par  V i�g��par   �g��width   5�g��digits   5�g��edigits   5�g��scale   5�g��overch   5�g��padch  5�g��expch  5�g��digits  X�g��numlen 6 �g��t ; P�g��numlen  �g��t  �g��f  �g��t  ��g��filenamef��ice-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 ��g��nameg��format:out-expon�C#CB[ � �h����][45$��"��45$��"��4M >��"��G��45 $�� 4 5"�� $�� 4 5"�� $�� 4 5"�� $�� 4 5"�� $�� 4 5"��"��4L >��"��G��4L>���"��G��$��  "��  $��  "�� M $�� 4L5�"��M $��"��4M4 55    "�� L�6  $��5  $��(4L�  �>��"��G��L  6""45$��645  $��"��4 5 $��L�6""������������g��modifier  �g��number  �g��pars   �g��l  : �g��width  � �g��digits  � �g��edigits  � �g��overch  � �g��padch  � �g��ee � �g��ww � �g��n  �g��d 5 �g��dd < �g��t  ��g��filenamef��ice-9/format.scm             $    "  &   +  4   :   @   D   E  ! U   Y   Z  " k   o   p  # �   �   �  " �   �   �  ! �   �  �  �   �  # �  �   �  ! �                      &   +  - 5   5  <   <  L   L   P   T   Y   ^   p  6 u                     #     �B   ��g��nameg��format:out-general�C#CBD E?=<12-0G��h0�� ��];45$��"��45$��"��4M >��"��G��45 $��44 5$�� $�� 4M 5"��"�� "��  $��34 5$�� $�� 4M 5"��"�� "��  $��44 5$�� $�� 4M  5"��"�� "��  $�� 4 5$��"�� "�� "�4L  >��"��G��MM $��4L MM >��"��G��"��4L >��"��G��MHM  $��"��� &��"���  $�� JK"���$��M $��JM K"���"���M $��$��"��JK"���J$�!� $��}M$��"��SM$��"4 4M4-55L>��"��G��"��4-L>��"��G��4- 5$�� "��MN4LJ45>��"��G��"�� $��4LJ45>��"��G��M$��+"��- M$��"4 4M4 55L>��"��G��"��4 L>��"��G��4  5$�� "��MN "�� $��M$��+"��- M$��"4 4M4 55L>��"��G��"��4 L>��"��G��4  5$�� "��MN 4LJ45>��"��G��"��y4LJ45>��"��G��M$��"��SM$��"4 4M4-55L>��"��G��"��4-L>��"��G��4- 5$�� "��MN"��M$��q� &��"��� $��WM$��"4 4M4+55L>��"��G��"��4+L>��"��G��4+ 5$�� "��MN"���"��SM$��"4 4M4-55L>��"��G��"��4-L>��"��G��4- 5$�� "��MN$��(M $��4LM 0>��"��G��"���"���M $��a$��"��SM$��"4 4M4055L>��"��G��"��40L>��"��G��40 5$�� "��MN"���4LM M >��"��G��M$��"4 4M4.55L>��"��G��"��4.L>��"��G��4. 5$�� "��MNLMM M645$��445$��"��45$��L�6"" ������g��modifier  0�g��number  0�g��pars   0�g��l  : 0�g��par  L t�g��par  � ��g��par  � ��g��par   �g��digits   0�g��mindig   0�g��width   0�g��padch   0�g��numlen  } �g��t  �g��ch  �g��ch " z�g��t   ��g��filenamef��ice-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 ��g��nameg��format:out-dollar�CU .0a] /� ������h��a��]C4�5$���"�� 44�55N N N N N"�$�FM $��"��M N J$�� K N N "���$�;J $��UM $��IM J$�� 4LJ>��"��G��M JN K"��4LM >��"��G��JM K N "���"���   $��"��M  $��4L5� J$��"��M  M $��!4L M M >��"��G��M N "��uM  $��4L  M >��"��G�� N "��KJ $��<J $��4L >��"��G��"��4LJ>��"��G�� JN "��M  N  "���"��J $�� JM "��M $�� "��  J $��4LJ>��"��G�� N "��M $�� N "���4LM 4L5� >��"��G��J$��4L >��"��G�� N "��O $��4L >��"��G�� N "��+M $��4LM >��"��G��N "��N  C45K 4J 5$��gJ$��B4J 05$��J$�� JK"���"��K4MM J >��"��G��M N "��4MMJ >��"��G��MN"��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 >��"��G��JJJJ H HHH"K 4 5H HHH"/���Y������g��num  �g��fixed?  �g��scale   �g��num-str   �g��i  4 �g�� left-zeros  4 �g�� mantissa?  4 �g�� all-zeros?  4 �g��num-len  4 �g��c 4 �g��t � ��g��shift � �g��negexp  �g��t  "��g��filenamef��ice-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 �   ��g��nameg��format:parse-float�CS.�������hX�����]M $�� C"��=�M$��M$��JC JCJ 44M��55 0K�JH�" H�"� ������g��i  M�g��n  M��g��filenamef��ice-9/format.scm                 #   ,   -  # 0  2 :  # <   =  >   @  C   M  �  W ��g��nameg�� format:en-int�CU.a/�����h���_��]! N� N4�5"��Q$��C45K4J5$��4M�MJ>��"��G��MN"���JH" 45H"����W������g��en  |�g��en-str  |�g��i   i�g��en-len   i�g��c   i��g��filenamef��ice-9/format.scm                    !   $   .  /   9  :   R  $ T   [   i   k   |  �  | ��g��nameg�� format:en-set�C a.������h�����] M $��4M>��"��G��"���MN�$��N"��B $��C4M�$��0"�� 4M�5>��"��G��"M""��*M$��C4M�0>��"��G��"M"�������������g��left?  ��g��n  ��g��i  6 x�g��i  � ���g��filenamef��ice-9/format.scm                *   ,   2   6  :   >  A  L   P   W   `  7 b   g  r  x  �  �   �  �  �  & �  �   �  �  � ��g��nameg��format:fn-zfill�Ca.��hp�����] �M$��4M�M>��"��G��"���"��;M$�� M�NC4M��4M�5>��"��G��"�"���� ������g��n  l�g��i ) d��g��filenamef��ice-9/format.scm             )   .  2   7   9  <   E  # F  + S   ^   d  �  l ��g��nameg��format:fn-shiftleft�CaS.G��h��� ��]�H�J�MK�"��J $��"�� $��@J $��2J�N4L >��"��G��4M� 1>��"��G��MNCJ�NC44M�55 0JK4M�4J $�� J 0"��J 05>��"��G��J $�� "�� KJH"=J� H"1������g��digits  ��g��i  ��g��c   ��g��t   )��g��filenamef��ice-9/format.scm               &   -   1   5  9   :   L   c  % e   k   n   q  % {   }   ~   �   �   �   �  % �  * �  & �   �  * �  - �   �  * �  % �   �   �   �   �   �  �(  � ��g��nameg��format:fn-round�C?12-0�����h��a��]M$��c�&��WM$��"44M4+55L>��"��G��"��4+L>��"��G��4+ 5$�� "��MN"���"��SM$��"44M4-55L>��"��G��"��4-L>��"��G��4- 5$�� "��MNM $��a$��WM$��"44M4055L>��"��G��"��40L>��"��G��40 5$�� "��MN"���"��4LM M>��"��G��M$��"44M4.55L>��"��G��"��4.L>��"��G��4. 5$�� "��MNLMMM�6�������Y������g��modifier  �g��add-leading-zero?  ��g��filenamef��ice-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   ��g��nameg�� format:fn-out�CG12-0�h����] $�� 45"��EM$��"44M455L>��"��G��"��4L>��"��G��4 5$�� "��MNM$��+"��-M$��"44M455L>��"��G��"��4L>��"��G��4 5$�� "��MN�$��(M�$��4L�M0>��"��G��"���"���L�M M6������������g��edigits   �g��expch   �g��ch   m�g��ch  { ���g��filenamef��ice-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  �   �   �  �   �   �     �$   ��g��nameg�� format:en-out�Ca0.�����h`������]4MM0>��"��G��"��:44M�505$��"���M�$���NC��"M�"���������g��i  V�g��t - B��g��filenamef��ice-9/format.scm              ,   -   -  ?   F   I   K  P   V  �  ^ ��g��nameg��format:fn-strip�C0.�����hP������]"��A�M$��"��44M��505$���M$�� C�C��" �"���������g��i  G�g��t ,��g��filenamef��ice-9/format.scm               (   )   0   5   9  A   G  �  N ��g��nameg��format:fn-zlead�C'1� ��h��{��-��1��3�4>��"��G��4>���"��G��4>��"��G��4L>��"��G��4>���"��G��4>��"��G��4L>��"��G��4>���"��G��4>��"��G��4L>��"��G��4>���"��G��4>��"��G��4�>��"��G��4>���"��G��M�N  6���s������g��args ��g��filenamef��ice-9/format.scm ~  �   �   �   � : , �  0 �  5 �  > � ( P � < ` �  d �  i �  r � * � � @ � �  � �  � �  � � ( � � < � �  � �  � �  � � ( � � 5 � �   6 "  6 �  ��g��nameg��format:intern-error�Cm/}� h���3��-��1��3�45�LLLLLO�NM $��"��MN4L4L M�54LM�4L554LM54LM5>��"��G��4 �>��"��G��4 >��"��G��MN  6��+������g��args ��g��port  ���g��filenamef��ice-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 � � ��g��nameg�� format:error�CC1�2������h`����-�1�3�/45$��"��4>��"��G���$��Z4�5$�� 45�"��B4�5$���"��14�5$��4  >��"��G��4 5�"�� 4 �5"��  Y45�Z45$��"�� HHHHHHHH H H H H HHHO�O�O�O�O�O�O�O�O�O�O�O� O� O�  O�! O� "!O�#"O�$#O�%$O�&%O�'&O�('O�)(O�*)O�+Q�Q� !  Q�  Q� Q� Q� Q� Q� Q� Q�Q�*"'% ( Q�*"'% )( Q� +*" Q�   %'" Q�!  $&%# Q�"Q�#Q�$   Q�%   Q�& % Q�'  Q�(Q�)  Q�*  Q�+K K K*  �O�K J K K 4+ 5K K KK4+ 5K KK454,5-,,-$��"-K4-J>��"��G��J .,-6J$��4/>��"��G��"����$��C405.41>��"��G��.C������g�� destination `�g�� format-string `�g�� format-args  `�g��port  � `�g��t  � ��g�� output-col  � `�g�� flush-output?  � `�g��format:case-conversion  � `�g�� format:pos  � `�g��format:arg-pos  � `�g�� format:error � `�g��format:error-save � `�g��format:read-proof � `�g�� format:fn-str � `�g�� format:fn-len � `�g�� format:fn-dot  � `�g��format:fn-pos?  � `�g�� format:en-str  � `�g�� format:en-len  � `�g��format:en-pos?  � `�g��format:out-substr  # `�g��format:out-fill  # `�g��format:format-work  # `�g��format:out-obj-padded  # `�g��format:out-num-padded  # `�g��format:tabulate  # `�g��format:num->old-roman  # `�g��format:num->roman  # `�g��format:num->cardinal  # `�g��format:num->ordinal  # `�g��format:out-inf-nan  # `�g��format:out-fixed  # `�g��format:out-expon  # `�g��format:out-general # `�g��format:out-dollar ! # `�g��format:parse-float " # `�g�� format:en-int # # `�g�� format:en-set $ # `�g��format:fn-zfill % # `�g��format:fn-shiftleft & # `�g��format:fn-round ' # `�g�� format:fn-out ( # `�g�� format:en-out ) # `�g��format:fn-strip * # `�g��format:fn-zlead + # `�g��arg-pos ,  `�g��arg-len -  `�g��str . I `��0g��filenamef��ice-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 `  ��g��nameg��format�CRi�$ !"��h`���>��*���:1�3�4�5$��4>��"��G��L��@L��@]4>��"��G��L��6���6������g�� destination @�g�� format-string @�g��args  @�g��deprecated-format-string-only B ]��g��filenamef��ice-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 ] ���C�O��i#i$ii6�����������g��m  ,�g��format ����������^��g��filenamef��ice-9/format.scm   . $  1 $ ����� & ����� J �����b I �����n \ �����t \ � �����t ���C6�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/null.go���������������������������������������������������������������������������������������0000644�����������������00000001342�15253700563�0006761 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�#�4���h������]� g��guile � g��define-module* � � g��ice-9 g��null � g��filenameS f��ice-9/null.scm g�� re-exportsS g��define g��quote g��lambda g��if g��set! g��cond g��case g��and g��or g��let g��let* g��letrec g��begin g��do g��delay g�� quasiquote g�� define-syntax g�� let-syntax g�� letrec-syntax   � g��set-current-module ! � " �C�5���h(���P���]4   5�4"�>��"��G���CH�������g��m  (��g��filenamef��ice-9/null.scm  �  ( ���C6�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/poe.go����������������������������������������������������������������������������������������0000644�����������������00000005413�15253700563�0006575 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0 ������]�#�4���h(������]� g��guile � g��define-module* � � g��ice-9 g��poe � g��filenameS f�� ice-9/poe.scm g��importsS g��hcons  �  � � g��exportsS g�� pure-funcq g�� perfect-funcq � g��set-current-module � � g��make-weak-key-hash-table g�� funcq-memo g��make-gc-buffer g�� funcq-buffer g��hashq g�� funcq-hash g��eq?-list g�� funcq-assoc g�� not-found g�� hashx-ref !g�� hashx-set! "g��make-hash-tableC�5���h�����]4   5�4�>��"��G���4i  5R4i �5R����h@������]"��+(��C4�����?5" �"�����������g��arg-list  <�g��n  <�g��x   1�g��arg-list   1��g��filenamef�� ice-9/poe.scm 3  4 6   7   8 "  8 ) % 8 " & 8  ) 9  1 8  1 4 �  < ��g��nameg�� funcq-hash�CR������h0������]�(��C(��C�&�� �6C�������������g��x  *�g��y  *��g��filenamef�� ice-9/poe.scm =  >  ?   @   A   A   @  # B  & B  ( B �  * ��g��nameg��eq?-list�CR��h(������](��C4�5$��C�6���������g��arg-list  &�g��alist  &��g��filenamef�� ice-9/poe.scm D  E  G  G   G  G   H $ I & I �  & ��g��nameg�� funcq-assoc�CR�R !�hx������-��1��3�L��45&��84L��?4>��"��G��4>��"��G��C4>��"��G��C���������g��args v�g��key  v�g��cached   v�g��val  0 a��g��filenamef�� ice-9/poe.scm P   Q   Q   R   Q  ) S  * X  0 X 3 Y E Z b U � v ���C���h���n���]�O�C������f�������g�� base-func  ��g��filenamef�� ice-9/poe.scm O �  ��g��nameg�� pure-funcq�CR" !����hx������-��1��3�L�4M�5&��84L�?4>��"��G��4M�>��"��G��C4>��"��G��C���������g��args v�g��key  v�g��cached   v�g��val  0 a��g��filenamef�� ice-9/poe.scm h   i   i   j   i  ) k  * p  0 p 3 q E r b m � v ���C���h������] H4�5KO�C�������g��size  �g�� base-func  �g�� funcq-memo   ��g��filenamef�� ice-9/poe.scm e  f �   ��g��nameg�� perfect-funcq�CRC�������g��m  ,��g��filenamef�� ice-9/poe.scm   - 0  9 0 : 1  F 1  3  =  D  L   L   L  O  e �   ���C6������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/list.go���������������������������������������������������������������������������������������0000644�����������������00000002644�15253700563�0006770 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]��4�������hE������]� g��guile � g��define-module* � � g��ice-9 g��list � g��filenameS f��ice-9/list.scm g��exportsS g��rassoc g��rassv g��rassq   � g��set-current-module � � g��generic-rassoc g��equal? g��eqv? g��eq?C�5������h��r���]4   5�4�>��"��G���������h8������] "��$(��C4�5$��C""�������������g��key  2�g��alist  2�g��=   2�g��ls   *��g��filenamef��ice-9/list.scm                    $   *   *  �  2 ��g��nameg��generic-rassoc�CR������h ������-�1�3��(��"��6�������g��key �g��alist �g��=  ��g��filenamef��ice-9/list.scm       1  �  ��g��nameg��rassoc�C R���h������]�6����w�������g��key  �g��alist  ��g��filenamef��ice-9/list.scm  �  ��g��nameg��rassv�C R������h������]�6����w�������g��key  �g��alist  ��g��filenamef��ice-9/list.scm " # �  ��g��nameg��rassq�CRC����j�������g��m  (��g��filenamef��ice-9/list.scm   b  =     " �   ���C6���������������������������������������������������������������������������������������������ice-9/syncase.go������������������������������������������������������������������������������������0000644�����������������00000001450�15253700563�0007454 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]��4������h������]� g��guile � g��define-module* � � g��ice-9 g��syncase � g��filenameS f��ice-9/syncase.scm g��exportsS g��datum->syntax-object g��syntax-object->datum g�� sc-expand   � g��set-current-module � � g��issue-deprecation-warning f��bSyntax-case macros are now a part of Guile core; importing (ice-9 syncase) is no longer necessary. g�� datum->syntax g�� syntax->datum g�� macroexpandC�5��hX���~���]4   5�4�>��"��G���4i>��"��G��i Ri RiRC�����v�������g��m  (��g��filenamef��ice-9/syncase.scm   )  /  4  C  J  Q  �  S ���C6�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/safe.go���������������������������������������������������������������������������������������0000644�����������������00000002153�15253700563�0006726 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0S������]��4����h������]� g��guile � g��define-module* � � g��ice-9 g��safe � g��filenameS f��ice-9/safe.scm g��exportsS g��safe-environment g��make-safe-module   � g��set-current-module � � g��resolve-interface g�� safe-r5rs � g��safe-r5rs-interface g�� scm-error g�� misc-error f��~A is not a valid version g�� make-moduleC�5����h�����]4   5�4�>��"��G���4i5R ������h0������]� $��"��4��>��"��G��C���������g��n  .��g��filenamef��ice-9/safe.scm                        #  �  . ��g��nameg��safe-environment�C R��������h���m���]� �6��e�������g��filenamef��ice-9/safe.scm !   ! �   ��g��nameg��make-safe-module�C RC������y�������g��m  (��g��filenamef��ice-9/safe.scm   )   /  / 1   4  8   �   ���C6����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/rw.go�����������������������������������������������������������������������������������������0000644�����������������00000001010�15253700563�0006427 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]��4���h-������]� g��guile � g��define-module* � � g��ice-9 g��rw � g��filenameS f�� ice-9/rw.scm g��exportsS g��read-string!/partial g��write-string/partial   � g��set-current-module � � g��%init-rw-builtinsC�5������h0���V���]4   5�4�>��"��G���i6���N�������g��m  (��g��filenamef�� ice-9/rw.scm   .  �  . ���C6�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/binary-ports.go�������������������������������������������������������������������������������0000644�����������������00000002172�15253700563�0010442 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0b������]�*�4����hA������]� g��guile � g��define-module* � � g��ice-9 g�� binary-ports � g��filenameS f��ice-9/binary-ports.scm g��importsS g��rnrs g�� bytevectors   � � � g��exportsS g�� eof-object g��open-bytevector-input-port g��make-custom-binary-input-port g��get-u8 g�� lookahead-u8 g��get-bytevector-n g��get-bytevector-n! g��get-bytevector-some g��get-bytevector-all g�� get-string-n! g��put-u8 g��put-bytevector g��unget-bytevector g��open-bytevector-output-port g��make-custom-binary-output-port ! � "g��set-current-module #"� $"� %g��load-extension &g�� string-append 'f�� libguile- (g��effective-version )f��scm_init_r6rs_portsC�5��hH������]4   !5�4$�>��"��G���%i4&i'4(i5�5)6�����������g��m  ,��g��filenamef��ice-9/binary-ports.scm   1 1  7 1  8 1 + @ 1  B 2  D 1 �  D ���C6�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/hcons.go��������������������������������������������������������������������������������������0000644�����������������00000006355�15253700563�0007132 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0 ������]�!�4�����hm������]� g��guile � g��define-module* � � g��ice-9 g��hcons � g��filenameS f��ice-9/hcons.scm g��exportsS g��hashq-cons-hash g��hashq-cons-assoc g��hashq-cons-get-handle g��hashq-cons-create-handle! g��hashq-cons-ref g��hashq-cons-set! g�� hashq-cons g�� hashq-conser g��make-gc-buffer   �  g��set-current-module � � g��hashq g��hashx-get-handle g��hashx-create-handle! g�� hashx-ref g�� hashx-set! g��make-doubly-weak-hash-table g�� make-list g��append!C�5������h �����]4   5�4�>��"��G�����h0������]4������?54������?5C��������������g��pair  )�g��n  )��g��filenamef��ice-9/hcons.scm "  #   #   #   $   $  $ $  % # ( # �  ) ��g��nameg��hashq-cons-hash�C R ��������hp���&��] (��C$��D$��7$��)�&���&��"��"��"��"��"��$��C�6������������g��key  j�g��l  j�g��t  V j��g��filenamef��ice-9/hcons.scm '  (  )   )  *   *   )  +   +  " ) % ,  ( ,  . ) 1 -  4 -  : ) = .  V )  h / ! j / �  j ��g��nameg��hashq-cons-assoc�C R  �����h������]�6���������g��table  �g��key  ��g��filenamef��ice-9/hcons.scm 1  2 �   ��g��nameg��hashq-cons-get-handle�CR  ���h������]�6�������g��table  �g��key  �g��init   ��g��filenamef��ice-9/hcons.scm 4  5 �   ��g��nameg��hashq-cons-create-handle!�CR  �����h������]�6��������g��table  �g��key  ��g��filenamef��ice-9/hcons.scm 7  8 �   ��g��nameg��hashq-cons-ref�CR  ��h������]�6�������g��table  �g��key  �g��val   ��g��filenamef��ice-9/hcons.scm :  ; �   ��g��nameg��hashq-cons-set!�CR����h������]4�5C��������������g��table  �g��a  �g��d   ��g��filenamef��ice-9/hcons.scm =  >  > (  >   > �   ��g��nameg�� hashq-cons�CR��h���i���]L��6����a�������g��a  �g��d  ��g��filenamef��ice-9/hcons.scm D  D �  ���C����h ������] �$���"��4�5O�C�������g��hash-tab-or-size  �g��table  ��g��filenamef��ice-9/hcons.scm @  A  A   C   A �  ��g��nameg�� hashq-conser�CR ���h���m���]M��M�N��C�e�������g��next  ��g��filenamef��ice-9/hcons.scm L   M  N  N �   ���C��������h(������] 4�5H4JJ>��"��G��O�C�������g��n  (�g��ring (��g��filenamef��ice-9/hcons.scm I  J  J  K �  ( ��g��nameg��make-gc-buffer�CRC�������������g��m  (��g��filenamef��ice-9/hcons.scm   * "  '  1 a 4  7  :  =  @ x I �  z ���C6������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/receive.go������������������������������������������������������������������������������������0000644�����������������00000003301�15253700563�0007426 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�C�4���h������]� g��guile � g��define-module* � � g��ice-9 g��receive � g��filenameS f��ice-9/receive.scm g��exportsS � g��set-current-module  �  � g��make-syntax-transformer � � g��macro g�� $sc-dispatch � � g��any    g�� syntax-object g��call-with-values g��top � g��ribcage g��dummy !g��vars "g��vals #g��body $ !"#� %g��m-45d2cb8b0a-f &%� '&� (f��l-45d2cb8b0a-14 )f��l-45d2cb8b0a-15 *f��l-45d2cb8b0a-16 +f��l-45d2cb8b0a-17 ,()*+� -$',� .� /g��x 0/� 1&� 2f��l-45d2cb8b0a-11 32� 4013� 5-.4� 6g��hygiene 76� 857� 9g��lambda :957� ;g��syntax-violation <;� =;� >f��-source expression failed to match any pattern ?g��cond-expand-provide @g��current-module Ag��srfi-8 BA�C�5�����h��o���]4    5�4�>��"��G���48:����h���c���]��C[�������g��dummy  �g��vars  �g��vals   �g��body   ��   ���C=>������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/receive.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��varsg��valsg��body��C5R?i4@i5�B6�g�������g��m  (��g��filenamef��ice-9/receive.scm        &   �   ���C6��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/curried-definitions.go������������������������������������������������������������������������0000644�����������������00000013403�15253700563�0011756 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]��4������h ������]� g��guile � g��define-module* � � g��ice-9 g��curried-definitions � g��filenameS f��ice-9/curried-definitions.scm g�� replacementsS g��cdefine g��define    g��cdefine* g��define*  g�� define-public g��define*-public � g��set-current-module � � g��make-syntax-transformer � � g��macro g�� $sc-dispatch � � g��any  !g��each-any "! # " $# %g�� syntax-object &g��top '&� (g��ribcage )g��dummy *g��head +g��rest ,g��body -g��body* .)*+,-� /g��m-17381246c69178d0-0 0/&� 10''''� 2f��l-17381246c69178d0-5 3f��l-17381246c69178d0-6 4f��l-17381246c69178d0-7 5f��l-17381246c69178d0-8 6f��l-17381246c69178d0-9 723456� 8(.17� 9(� :g��x ;:� <0� =f��l-17381246c69178d0-2 >=� ?(;<>� @'89?� Ag��hygiene BA� C% @B� Dg��lambda E%D@B� F� Gg��name Hg��val I)GH� J0''� Kf��l-17381246c69178d0-11 Lf��l-17381246c69178d0-12 Mf��l-17381246c69178d0-13 NKLM� O(IJN� P'O9?� Q% PB� Rg��syntax-violation SR� TR� Uf��-source expression failed to match any pattern Vg��m-17381246c69178d0-17 WV&� XW''''� Yf��l-17381246c69178d0-1c Zf��l-17381246c69178d0-1d [f��l-17381246c69178d0-1e \f��l-17381246c69178d0-1f ]f��l-17381246c69178d0-20 ^YZ[\]� _(.X^� `W� af��l-17381246c69178d0-19 ba� c(;`b� d'_9c� e%dB� fg��lambda* g%fdB� hW''� if��l-17381246c69178d0-28 jf��l-17381246c69178d0-29 kf��l-17381246c69178d0-2a lijk� m(Ihl� n'm9c� o%nB� pg��m-17381246c69178d0-2e qp&� rq''''� sf��l-17381246c69178d0-33 tf��l-17381246c69178d0-34 uf��l-17381246c69178d0-35 vf��l-17381246c69178d0-36 wf��l-17381246c69178d0-37 xstuvw� y(.rx� zq� {f��l-17381246c69178d0-30 |{� }(;z|� ~'y9}� %~B� �%D~B� �g��begin �q''� �f��l-17381246c69178d0-3f �f��l-17381246c69178d0-40 �f��l-17381246c69178d0-41 �� �(I� �'9}� �%B� �% B� �g��export �%B� �g��m-17381246c69178d0-45 �&� �''''� �f��l-17381246c69178d0-4a �f��l-17381246c69178d0-4b �f��l-17381246c69178d0-4c �f��l-17381246c69178d0-4d �f��l-17381246c69178d0-4e �� �(.� �� �f��l-17381246c69178d0-47 �� �(;� �'9� �%B� �%fB� �''� �f��l-17381246c69178d0-56 �f��l-17381246c69178d0-57 �f��l-17381246c69178d0-58 �� �(I� �'9� �%B� �%B� �%B�C�5����h ��a���]4   5�4�>��"��G���4 $CE����h���v���]�C���n�������g��dummy  �g��head  �g��rest   �g��body   �g��body*   ��   ���CFQ��h���P���]�C����H�������g��dummy  �g��name  �g��val   ��  ���CTU�h@������]4�5$��@4�5$��@�6��������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��ice-9/curried-definitions.scm  �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��headg��restg��bodyg��body*g��...�g��nameg��val���C5 R4$eg��h���v���]�C���n�������g��dummy  �g��head  �g��rest   �g��body   �g��body*   ��   ���CFo��h���P���]�C����H�������g��dummy  �g��name  �g��val   ��  ���CTU�h@������]4�5$��@4�5$��@�6��������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��ice-9/curried-definitions.scm  �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��headg��restg��bodyg��body*g��...�g��nameg��val���C5R4$��h���v���]�C���n�������g��dummy  �g��head  �g��rest   �g��body   �g��body*   ��   ���CF������h���P���]���CH�������g��dummy  �g��name  �g��val   ��   ���CTU�h@������]4�5$��@4�5$��@�6��������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��ice-9/curried-definitions.scm ' �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��headg��restg��bodyg��body*g��...�g��nameg��val���C5R4$��h���v���]�C���n�������g��dummy  �g��head  �g��rest   �g��body   �g��body*   ��   ���CF������h���P���]���CH�������g��dummy  �g��name  �g��val   ��   ���CTU�h@������]4�5$��@4�5$��@�6��������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��ice-9/curried-definitions.scm 1 �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��headg��restg��bodyg��body*g��...�g��nameg��val���C5RC����Y�������g��m  (��g��filenamef��ice-9/curried-definitions.scm   �  ���C6��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/top-repl.go�����������������������������������������������������������������������������������0000644�����������������00000007020�15253700563�0007550 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0 ������]�C�4���h������]� g��guile � g��define-module* � � g��ice-9 g��top-repl � g��filenameS f��ice-9/top-repl.scm g��importsS � g��system g��repl  � g��selectS g�� start-repl � �  � g�� replacementsS � g��set-current-module � � g�� provided? g��posix g�� sigaction g��SIGINT g�� scm-error g��signal f��User interrupt !g��call-with-sigint "g��resolve-module #g�� guile-user $#� %g��process-use-modules &g��append 'g��r5rs ('� )(� *g��session +*� ,+� -),� .g��regex /.� 0/� 10� 2g��threads 32� 43� 54� 6g��defined? 7g�� setlocale 8g��catch 9g�� system-error :g��LC_ALL ;f��� <g��format =g��current-error-port >f��'warning: failed to install locale: ~a~% ?g��strerror @g��current-language Ag��run-hook Bg�� exit-hookC�5������h �����]4   5�4�>��"��G���4i5$�� �������h������]��6�������w�������g��sig  ��g��filenamef��ice-9/top-repl.scm $   % # % . % ?  & #  % �   ���C������h���U���]�45N�C�M�������g��filenamef��ice-9/top-repl.scm !  #  " �   ���C���h ���m���]�M�$�� M�M�66�����e�������g��filenamef��ice-9/top-repl.scm (  )   + $  + 2  +   - �   ���C���h ���m���]�M�$�� M�M�66�����e�������g��filenamef��ice-9/top-repl.scm (  )   + $  + 2  +   - �   ���C���h ���m���]�M�$�� M�M�66�����e�������g��filenamef��ice-9/top-repl.scm (  )   + $  + 2  +   - �   ���C��������h`���}���] HO�O�4O�>���"��G��V4�>���X4O�>���"��G��CX4O�>���"��G��F�u�������g��thunk  _�g��handler  _��g��filenamef��ice-9/top-repl.scm       �  _ ���C"��x�����h���a���]�6���Y�������g��thunk  ��g��filenamef��ice-9/top-repl.scm     �   ���C!R"$%&-.125!67897:;��������h���U���]�6������M�������g��filenamef��ice-9/top-repl.scm D   E " E �  ���C<=>?�������h������]45�456����������g��key  �g��subr  �g��fmt   �g��args   �g��errno   ��g��filenamef��ice-9/top-repl.scm F   G  H  I   I "  I   G �   ���C@AB� �����hH������]45$��4>��"��G��"���445�5�4  >��"��G���C�������g��status 1 H��g��filenamef��ice-9/top-repl.scm A   B  B  B B   C  C   C ( K  + K ! 1 K  1 K  4 L �  H ���C���h`���1��]45�4�>��"��G��4445$�� "��4 5$�� "��5>��"��G��  6��)������g��guile-user-module ^��g��filenamef��ice-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  ^ @ �  ^ ��g��nameg��top-repl�CRC��~�������g��m  ,��g��filenamef��ice-9/top-repl.scm   -  3   5  9      / �   ���C6�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/match.go��������������������������������������������������������������������������������������0000644�����������������00000244343�15253700563�0007115 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0H�����]�4��hR������]� g��guile � g��define-module* � � g��ice-9 g��match � g��filenameS f��ice-9/match.scm g��exportsS g�� match-lambda g�� match-lambda* g�� match-let g�� match-let* g�� match-letrec   � g��set-current-module � � g��throw g�� match-error f��match g��error g��make-syntax-transformer � � g��slot-ref g��macro g�� $sc-dispatch � � !g��any "!!!!� #g�� syntax-object $g�� struct-ref %g��top &%� 'g��ribcage (g��dummy )g��rtd *g��rec +g��n ,()*+� -g��m-1883f58c-6d8 .-%� /.&&&� 0f��l-1883f58c-6dd 1f��l-1883f58c-6de 2f��l-1883f58c-6df 3f��l-1883f58c-6e0 40123� 5',/4� 6'� 7g��x 87� 9.� :f��l-1883f58c-6da ;:� <'89;� =&56<� >g��hygiene ?>� @#$=?� Ag��syntax-violation BA� CA� Df��-source expression failed to match any pattern Eg�� slot-set! F!!!!!� Gg�� struct-set! Hg��value I()*+H� Jg��m-1883f58c-6e5 KJ%� LK&&&&� Mf��l-1883f58c-6ea Nf��l-1883f58c-6eb Of��l-1883f58c-6ec Pf��l-1883f58c-6ed Qf��l-1883f58c-6ee RMNOPQ� S'ILR� TK� Uf��l-1883f58c-6e7 VU� W'8TV� X&S6W� Y#GX?� Zg��is-a? [!!!� \g��and ](*)� ^g��m-1883f58c-6f4 _^%� `_&&� af��l-1883f58c-6f9 bf��l-1883f58c-6fa cf��l-1883f58c-6fb dabc� e']`d� f_� gf��l-1883f58c-6f6 hg� i'8fh� j&e6i� k#\j?� lg��struct? m#lj?� ng��eq? o#nj?� pg�� struct-vtable q#pj?� rg��match-syntax-error s!� t(� ug��m-1883f58c-701 vu%� wv� xf��l-1883f58c-706 yx� z'twy� {f��l-1883f58c-703 |{� }'8w|� ~&z6}� #r~?� �f�� invalid match-syntax-error usage �#~?� �� �g��m-1883f58c-708 �%� �� �f��l-1883f58c-70d �� �'t� �f��l-1883f58c-70a �� �'8� �&6� �#r?� �f��missing match expression �#?� �� �!!� �g��atom �(� �&� �f��l-1883f58c-710 �f��l-1883f58c-711 �� �'� �&6� �#r?� �f��no match clauses �#?� �� �g��each-any �g��each �!! �� � �! �g��let �g��app �g��pat �g��body �(� �&&&� �f��l-1883f58c-715 �f��l-1883f58c-716 �f��l-1883f58c-717 �f��l-1883f58c-718 �� �'� �&6� �#?� �g��v �#?� �g�� match-next �#?� �g��set! �#?� �g��map �� �� �g��cons �g��vector �� � �! �g��vec �(� �f��l-1883f58c-723 �f��l-1883f58c-724 �f��l-1883f58c-725 �f��l-1883f58c-726 �� �'� �&6� �#?� �#?� �g�� list->vector �� �� �#?� �#?� �� �� �! �!Ҍ �(� �f��l-1883f58c-72f �f��l-1883f58c-730 �f��l-1883f58c-731 �f��l-1883f58c-732 �� �'� �&6� �#?� �#?� �#?� �#?� �g��g+s �(� �g��m-1883f58c-739 �%� �&&� �f��l-1883f58c-73e �f��l-1883f58c-73f �f��l-1883f58c-740 �� �'� �� �f��l-1883f58c-73b �� �'8� �&6� �#?� �g��quote �#?� �#?� �� �f��no matching pattern �#?� �g��free-id �g��=> �&6� �#?� �� �!� �! �! �! �! �! !� g��failure g��rest (� &&&&&&� f��l-1883f58c-745 f��l-1883f58c-746 f��l-1883f58c-747  f��l-1883f58c-748  f��l-1883f58c-749  f��l-1883f58c-74a  f��l-1883f58c-74b      � ' � &6� #?� g��lambda #?� #?� g�� match-one #?� g��match-drop-ids #?� g��begin #?� � ! ! ! ! (�  &&&&&� !f��l-1883f58c-754 "f��l-1883f58c-755 #f��l-1883f58c-756 $f��l-1883f58c-757 %f��l-1883f58c-758 &f��l-1883f58c-759 '!"#$%&� (' '� )&(6� *#)?� +#)?� ,#)?� -+,� .! /!!.!!!!� 0g��match-check-ellipse 1g��p 2g��q 3g��r 4g��sk 5g��fk 6g��i 7(123456�  8g��m-1883f58c-760 98%� :9&&&&&&&&�  ;f��l-1883f58c-765 <f��l-1883f58c-766 =f��l-1883f58c-767 >f��l-1883f58c-768 ?f��l-1883f58c-769 @f��l-1883f58c-76a Af��l-1883f58c-76b Bf��l-1883f58c-76c Cf��l-1883f58c-76d D;<=>?@ABC�  E'7:D� F9� Gf��l-1883f58c-762 HG� I'8FH� J&E6I� K#0J?� Lg��match-extract-vars M#LJ?� Ng��match-gen-ellipses O#NJ?� Pg�� match-two Q#PJ?� R(7� S9&� Tf��l-1883f58c-778 Uf��l-1883f58c-779 VTU� W'RSV� X&W6I� Y#PX?� Z!!!!!� [g��if \(456� ]g��m-1883f58c-77c ^]%� _^&&&&&� `f��l-1883f58c-781 af��l-1883f58c-782 bf��l-1883f58c-783 cf��l-1883f58c-784 df��l-1883f58c-785 ef��l-1883f58c-786 f`abcde� g'\_f� h^� if��l-1883f58c-77e ji� k'8hj� l&g6k� m#[l?� ng��null? o#nl?� pg��append qp� rp� s&6k� t#s?� ut� vu!� w!!v!!!� x(1456� y^&&&&&&� zf��l-1883f58c-78f {f��l-1883f58c-790 |f��l-1883f58c-791 }f��l-1883f58c-792 ~f��l-1883f58c-793 f��l-1883f58c-794 f��l-1883f58c-795 z{|}~� 'xy� &6k� #[?� g��equal? #?� #?� g�� quasiquote #s?� � !� ! ! ! g��match-quasiquote (17� ^&&&� f��l-1883f58c-79f f��l-1883f58c-7a0 f��l-1883f58c-7a1 f��l-1883f58c-7a2 � '� &6k� #?� #\s?� � � !!!!!� !  !!!!!!� (12456� ^&&&&&&&� f��l-1883f58c-7b6 f��l-1883f58c-7b7 f��l-1883f58c-7b8 f��l-1883f58c-7b9 f��l-1883f58c-7ba f��l-1883f58c-7bb f��l-1883f58c-7bc f��l-1883f58c-7bd � '� &6k� #?� #\?� g��or #s?� � � !!!!!!� !� ! ! ! f��l-1883f58c-7d5 f��l-1883f58c-7d6 f��l-1883f58c-7d7 f��l-1883f58c-7d8 � '� &6k� #?�  !!!!!!� f��l-1883f58c-7de f��l-1883f58c-7df f��l-1883f58c-7e0 f��l-1883f58c-7e1 f��l-1883f58c-7e2 f��l-1883f58c-7e3 f��l-1883f58c-7e4 � 'xy� &6k� #L?� #?� g�� match-gen-or #?� g��not #s?� � !� !!!!!� f��l-1883f58c-7ef f��l-1883f58c-7f0 f��l-1883f58c-7f1 f��l-1883f58c-7f2 f��l-1883f58c-7f3 f��l-1883f58c-7f4 f��l-1883f58c-7f5 � 'xy� &6k� #?� #?� g��get! #s?� � !� !!!!� g��getter g��g g��s (456� f��l-1883f58c-7ff f��l-1883f58c-800 f��l-1883f58c-801 f��l-1883f58c-802 f��l-1883f58c-803 f��l-1883f58c-804 f��l-1883f58c-805 f��l-1883f58c-806 � '� &6k� #?� #?� #s?� � !� !� !!!!� g��setter (456� f��l-1883f58c-811 �f��l-1883f58c-812 f��l-1883f58c-813 f��l-1883f58c-814 f��l-1883f58c-815 f��l-1883f58c-816 f��l-1883f58c-817 f��l-1883f58c-818 �� '�  &6k�  # ?�  # ?�  #7 ?�   � g��? #s?� �  !!!!!!� g��pred (1456� f��l-1883f58c-824 f��l-1883f58c-825 f��l-1883f58c-826 f��l-1883f58c-827 f��l-1883f58c-828 f��l-1883f58c-829 f��l-1883f58c-82a f��l-1883f58c-82b � '� &6k�  #[?� !#?� "#\?� #g��= $##s?� %$� &%!!� '&! (!' )!( *g��proc +(*17� ,^&&&&� -f��l-1883f58c-835 .f��l-1883f58c-836 /f��l-1883f58c-837 0f��l-1883f58c-838 1f��l-1883f58c-839 2-./01� 3'+,2� 4&36k� 5#4?� 6g��w 7#64?� 8#4?� 9g��___ :#9s?� ;:� <;! =!< >!!=!!!!� ?(13456� @f��l-1883f58c-840 Af��l-1883f58c-841 Bf��l-1883f58c-842 Cf��l-1883f58c-843 Df��l-1883f58c-844 Ef��l-1883f58c-845 Ff��l-1883f58c-846 Gf��l-1883f58c-847 H@ABCDEFG� I'?H� J&I6k� K#LJ?� L#NJ?� M!!s!!!!� Nf��l-1883f58c-851 Of��l-1883f58c-852 Pf��l-1883f58c-853 Qf��l-1883f58c-854 Rf��l-1883f58c-855 Sf��l-1883f58c-856 Tf��l-1883f58c-857 UNOPQRST� V'xyU� W&V6k� X#[W?� Y#\W?� Zg��pair? [#ZW?� \#nW?� ]g��cdr ^#]W?� _#W?� `#6W?� ag��car b#aW?� c#W?� dg��set-car! e#dW?� fg��*** g#fs?� hg� i!h!� j!!i!!!!� kf��l-1883f58c-860 lf��l-1883f58c-861 mf��l-1883f58c-862 nf��l-1883f58c-863 of��l-1883f58c-864 pf��l-1883f58c-865 qf��l-1883f58c-866 rf��l-1883f58c-867 sklmnopqr� t's� u&t6k� v#Lu?� wg��match-gen-search x#wu?� yh! z!y {!!z!!!!� |f��l-1883f58c-871 }f��l-1883f58c-872 ~f��l-1883f58c-873 f��l-1883f58c-874 f��l-1883f58c-875 f��l-1883f58c-876 f��l-1883f58c-877 f��l-1883f58c-878 |}~� '� &6k� #r?� f��invalid use of *** #?� #f?� g��..1 #s?� � !� !!!!!!� f��l-1883f58c-882 f��l-1883f58c-883 f��l-1883f58c-884 f��l-1883f58c-885 f��l-1883f58c-886 f��l-1883f58c-887 f��l-1883f58c-888 � 'xy� &6k� #[?� #Z?� #?� #9?� � g��$ #s?� �  !!!!!!� (*1456� f��l-1883f58c-891 f��l-1883f58c-892 f��l-1883f58c-893 f��l-1883f58c-894 f��l-1883f58c-895 f��l-1883f58c-896 f��l-1883f58c-897 f��l-1883f58c-898 � '� &6k� #[?� #Z?� g��match-record-refs #?� # ?� !!!!!!� f��l-1883f58c-8a3 f��l-1883f58c-8a4 f��l-1883f58c-8a5 f��l-1883f58c-8a6 f��l-1883f58c-8a7 f��l-1883f58c-8a8 f��l-1883f58c-8a9 f��l-1883f58c-8aa � '� &6k� #[?� #Z?� #?� #6?� #a?� #7?� #]?� #?� #d?� g��set-cdr! #?�  !̌ !͌ g�� match-vector (17� f��l-1883f58c-8b4 f��l-1883f58c-8b5 f��l-1883f58c-8b6 f��l-1883f58c-8b7 f��l-1883f58c-8b8 � ',� &6k� #?� # ?� g��_ #s?� � !!!!!� !!!!!� g�� let-syntax g��id (745� f��l-1883f58c-8ce f��l-1883f58c-8cf f��l-1883f58c-8d0 f��l-1883f58c-8d1 f��l-1883f58c-8d2 f��l-1883f58c-8d3 f��l-1883f58c-8d4 � 'y� &6k� #?� g��new-sym? #?� g�� syntax-rules #?� g��sk2 #?� g��fk2 #?� � � g��y #?� � � � g��random-sym-to-match #?� #?� �#[?� #?� g��unquote g��m-1883f58c-8e1 %� � f��l-1883f58c-8e3 � '8�  &6�  # ?�   �   !�  !! !!!!� &&&&&&� f��l-1883f58c-8e6 f��l-1883f58c-8e7 f��l-1883f58c-8e8 f��l-1883f58c-8e9 f��l-1883f58c-8ea f��l-1883f58c-8eb f��l-1883f58c-8ec � 'x� &6� #?� g��unquote-splicing # ?� � !� ! !!!!!!�  (1456� !&&&&&&&� "f��l-1883f58c-8f5 #f��l-1883f58c-8f6 $f��l-1883f58c-8f7 %f��l-1883f58c-8f8 &f��l-1883f58c-8f9 'f��l-1883f58c-8fa (f��l-1883f58c-8fb )f��l-1883f58c-8fc *"#$%&'()� +' !*� ,&+6� -#[,?� .#Z,?� /#,?� 0g��tmp 1#0,?� 2#,?� 3# ?� 43� 54!� 6!. 7!6 857 9!8 :!9 ;g��depth <(1456;� =f��l-1883f58c-906 >f��l-1883f58c-907 ?f��l-1883f58c-908 @f��l-1883f58c-909 Af��l-1883f58c-90a Bf��l-1883f58c-90b Cf��l-1883f58c-90c Df��l-1883f58c-90d E=>?@ABCD� F'<!E� G&F6� H#G?� I#G?� J!7 K J L!K M!L N(14567;�  O&&&&&&&&�  Pf��l-1883f58c-917 Qf��l-1883f58c-918 Rf��l-1883f58c-919 Sf��l-1883f58c-91a Tf��l-1883f58c-91b Uf��l-1883f58c-91c Vf��l-1883f58c-91d Wf��l-1883f58c-91e Xf��l-1883f58c-91f YPQRSTUVWX�  Z'NOY� [&Z6� \#[?� ]J ^!] _!^ `f��l-1883f58c-92a af��l-1883f58c-92b bf��l-1883f58c-92c cf��l-1883f58c-92d df��l-1883f58c-92e ef��l-1883f58c-92f ff��l-1883f58c-930 gf��l-1883f58c-931 hf��l-1883f58c-932 i`abcdefgh�  j'NOi� k&j6� l#k?� m7 n!m o!n p(12456;�  qf��l-1883f58c-93d rf��l-1883f58c-93e sf��l-1883f58c-93f tf��l-1883f58c-940 uf��l-1883f58c-941 vf��l-1883f58c-942 wf��l-1883f58c-943 xf��l-1883f58c-944 yf��l-1883f58c-945 zqrstuvwxy�  {'pOz� |&{6� }#[|?� ~#Z|?� #|?� #6|?� #a|?� #7|?� #]|?� #|?� g��match-quasiquote-step #|?� 7 ! ! g��elt (456;� f��l-1883f58c-950 f��l-1883f58c-951 f��l-1883f58c-952 f��l-1883f58c-953 f��l-1883f58c-954 f��l-1883f58c-955 f��l-1883f58c-956 f��l-1883f58c-957 � '!� &6� #[?� g��vector? #?� #?� g��ls #?� g�� vector->list #?� #?� !J ! (7456;� f��l-1883f58c-962 f��l-1883f58c-963 f��l-1883f58c-964 f��l-1883f58c-965 f��l-1883f58c-966 f��l-1883f58c-967 f��l-1883f58c-968 f��l-1883f58c-969 � '!� &6� #?� #?� !!!!!!!!� (7245;6� g��m-1883f58c-972 %� &&&&&&&� f��l-1883f58c-977 f��l-1883f58c-978 f��l-1883f58c-979 f��l-1883f58c-97a f��l-1883f58c-97b f��l-1883f58c-97c f��l-1883f58c-97d f��l-1883f58c-97e � '� � f��l-1883f58c-974 � '8� &6� #?� ! g��match-tuck-ids !!�  !Ȍ g��match-drop-first-arg � !!!!!� g��id-ls (1456�  g��m-1883f58c-9ae %� &&&&&&&&�  f��l-1883f58c-9b3 f��l-1883f58c-9b4 f��l-1883f58c-9b5 f��l-1883f58c-9b6 f��l-1883f58c-9b7 f��l-1883f58c-9b8 f��l-1883f58c-9b9 f��l-1883f58c-9ba f��l-1883f58c-9bb �  '� � f��l-1883f58c-9b0 � '8� &6� #?� #?� #?� g��match-gen-or-step #?� #?� 6 !茤 !錤 s! !댤 !쌤 g��m-1883f58c-9cb %� &&&� f��l-1883f58c-9dd f��l-1883f58c-9de f��l-1883f58c-9df f��l-1883f58c-9e0 � '� � f��l-1883f58c-9cd � '8� &6� #?� &&&&&&&� f��l-1883f58c-9e6 f��l-1883f58c-9e7 �f��l-1883f58c-9e8 f��l-1883f58c-9e9 f��l-1883f58c-9ea f��l-1883f58c-9eb f��l-1883f58c-9ec f��l-1883f58c-9ed �� '� &6�  #?�  #?�  #?�  #?�  #?�  � !!!!!!�  g��match-check-identifier g��m-1883f58c-9f6 %� &&&&&&&&�  f��l-1883f58c-9fb f��l-1883f58c-9fc f��l-1883f58c-9fd f��l-1883f58c-9fe f��l-1883f58c-9ff f��l-1883f58c-a00 f��l-1883f58c-a01 f��l-1883f58c-a02 f��l-1883f58c-a03 �  '� �  f��l-1883f58c-9f8 ! � "'8!� #&6"� $##?� %##?� &#[#?� 'g��list? (#'#?� )g��loop *#)#?� +##?� ,##?� -,� .-� /g��cond 0#/#?� 1#n#?� 21+� 3g��reverse 4#3#?� 5#Z#?� 65+� 7#6#?� 8#a#?� 98+� :79� ;:� <##?� =#d#?� >=+� ?9>� @##?� A#]#?� BA+� C##?� Dg��else E#D#?� F!!!!!!!�  Gg��match-verify-no-ellipses H(13456�  I&&&&&&&&&�  Jf��l-1883f58c-a15 Kf��l-1883f58c-a16 Lf��l-1883f58c-a17 Mf��l-1883f58c-a18 Nf��l-1883f58c-a19 Of��l-1883f58c-a1a Pf��l-1883f58c-a1b Qf��l-1883f58c-a1c Rf��l-1883f58c-a1d Sf��l-1883f58c-a1e TJKLMNOPQRS�  U'HIT� V&U6"� W#GV?� Xg��let* Y#XV?� Zg��tail-len [#ZV?� \g��length ]#\V?� ^#V?� _#V?� `g��len 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� g��m-1883f58c-a2f %� &&&� f��l-1883f58c-a34 f��l-1883f58c-a35 f��l-1883f58c-a36 f��l-1883f58c-a37 � '� � f��l-1883f58c-a31 � '8� &6� #0?� #r?� f��3multiple ellipse patterns not allowed at same level #?� � #G?� !!� (74� &&� f��l-1883f58c-a42 f��l-1883f58c-a43 f��l-1883f58c-a44 � '� &6� #r?� f��%dotted tail not allowed after ellipse #?� !!!!!!!!�  g��letrec (12456�  g��m-1883f58c-a48 %� &&&&&&&&&�  f��l-1883f58c-a4d f��l-1883f58c-a4e f��l-1883f58c-a4f f��l-1883f58c-a50 f��l-1883f58c-a51 f��l-1883f58c-a52 f��l-1883f58c-a53 f��l-1883f58c-a54 f��l-1883f58c-a55 f��l-1883f58c-a56 �  '� � f��l-1883f58c-a4a � '8� &6� #?� g��try #?� #?� #6?� g��fail #?� #?� #?� #?� #3?� g��next #?� #[?� #?� #Z?� � � � g��u #?� #a?� � � � #d?� � � #?� #?� g��lp #?� #?� #]?� � � � � � � � � � #?� � � ! ! ! ! ! g��pats (+127� �g��m-1883f58c-a6b �%� &&&&&&� f��l-1883f58c-a70 f��l-1883f58c-a71 f��l-1883f58c-a72 f��l-1883f58c-a73 f��l-1883f58c-a74 f��l-1883f58c-a75  f��l-1883f58c-a76   �  ' �  �  f��l-1883f58c-a6d  � '8 � & 6� #0?� g��match-gen-vector-ellipses #?� g��match-vector-two #?� &6� #9?� � !� !!!!!!!� (+1456� &&&&&&&� f��l-1883f58c-a7f f��l-1883f58c-a80 f��l-1883f58c-a81  f��l-1883f58c-a82 !f��l-1883f58c-a83 "f��l-1883f58c-a84 #f��l-1883f58c-a85 $f��l-1883f58c-a86 % !"#$� &'%� '&&6� (#'?� )&� *f��l-1883f58c-a90 +f��l-1883f58c-a91 ,*+� -'R),� .&-6� /#.?� 0!!!!!!� 1g��index 2(+1456� 3g��m-1883f58c-a94 43%� 54&&&&&&&� 6f��l-1883f58c-a99 7f��l-1883f58c-a9a 8f��l-1883f58c-a9b 9f��l-1883f58c-a9c :f��l-1883f58c-a9d ;f��l-1883f58c-a9e <f��l-1883f58c-a9f =f��l-1883f58c-aa0 >6789:;<=� ?'25>� @4� Af��l-1883f58c-a96 BA� C'8@B� D&?6C� E#[D?� F#D?� G#D?� H#`D?� Ig�� vector-length J#ID?� K##D?� Lg��match-vector-step M#LD?� Ng��list O P!O Q!P R!Q S4&&&&&&� Tf��l-1883f58c-aac Uf��l-1883f58c-aad Vf��l-1883f58c-aae Wf��l-1883f58c-aaf Xf��l-1883f58c-ab0 Yf��l-1883f58c-ab1 Zf��l-1883f58c-ab2 [TUVWXYZ� \'S[� ]&\6C� ^#]?� _g��+ `#_]?� a# ]?� ba� c!!!!� d!!!!!� e(1456� fg��m-1883f58c-abb gf%� hg&&&&&&&� if��l-1883f58c-acc jf��l-1883f58c-acd kf��l-1883f58c-ace lf��l-1883f58c-acf mf��l-1883f58c-ad0 nf��l-1883f58c-ad1 of��l-1883f58c-ad2 pf��l-1883f58c-ad3 qijklmnop� r'ehq� sg� tf��l-1883f58c-abd ut� v'8su� w&r6v� x#w?� y#6w?� zg�� vector-ref {#zw?� |#w?� }g�� vector-set! ~#}w?� #Lw?� !!!!!!!� (+11456�  g��m-1883f58c-adc %� &&&&&&&&�  f��l-1883f58c-ae1 f��l-1883f58c-ae2 f��l-1883f58c-ae3 f��l-1883f58c-ae4 f��l-1883f58c-ae5 f��l-1883f58c-ae6 f��l-1883f58c-ae7 f��l-1883f58c-ae8 f��l-1883f58c-ae9 �  '� � f��l-1883f58c-ade � '8� &6� #[?� #?� #?� #`?� #I?� g��>= #?� #L?� g��match-vector-tail #?� (1+`456� g��m-1883f58c-af5 %� &&&&&&&� f��l-1883f58c-afa f��l-1883f58c-afb f��l-1883f58c-afc f��l-1883f58c-afd f��l-1883f58c-afe f��l-1883f58c-aff f��l-1883f58c-b00 f��l-1883f58c-b01 � '� � f��l-1883f58c-af7 � '8� &6� #L?� g��match-vector-tail-two #?� (1+`456�  g��m-1883f58c-b0a %� &&&&&&&&&�  f��l-1883f58c-b0f f��l-1883f58c-b10 f��l-1883f58c-b11 f��l-1883f58c-b12 f��l-1883f58c-b13 f��l-1883f58c-b14 f��l-1883f58c-b15 f��l-1883f58c-b16 f��l-1883f58c-b17 f��l-1883f58c-b18 �  '� � f��l-1883f58c-b0c � '8� &6� #?� #)?� g��j #?� #?� � � #[?� #?� #3?� #6?� #z?� � #?� g�� vetor-set! #?� #?� #_?� # ?� � #?� !!!!!!!!�  (*+12456�  g��m-1883f58c-b29 %� &&&&&&&&&�  f��l-1883f58c-b2e f��l-1883f58c-b2f f��l-1883f58c-b30 f��l-1883f58c-b31 f��l-1883f58c-b32 f��l-1883f58c-b33 f��l-1883f58c-b34 f��l-1883f58c-b35 f��l-1883f58c-b36 f��l-1883f58c-b37 �  '� � f��l-1883f58c-b2b � '8� &6� #?� #6?� #?� #?� #E?� #?� #_?� # ?� � !!!!!!!�  g��m-1883f58c-b54 �%� �� f��l-1883f58c-b56 � '8� &6� #?� �   !  !   (17�  �&&&�  f��l-1883f58c-b59 f��l-1883f58c-b5a f��l-1883f58c-b5b f��l-1883f58c-b5c  � '  � &6� #L?� #?� �  ! ! (*17� f��l-1883f58c-b62 f��l-1883f58c-b63 f��l-1883f58c-b64 f��l-1883f58c-b65 �  ' � !& 6� "#L!?� ###?� $#� %$!!� &%! '!& ((*17� )f��l-1883f58c-b6b *f��l-1883f58c-b6c +f��l-1883f58c-b6d ,f��l-1883f58c-b6e -)*+,� .'( -� /&.6� 0#L/?� 1#?� 21� 32!� 4!3!!� 5#?� 65� 76!� 8!7!!!� 9g��match-extract-quasiquote-vars :g��k ;(7:6� <�&&&&� =f��l-1883f58c-b80 >f��l-1883f58c-b81 ?f��l-1883f58c-b82 @f��l-1883f58c-b83 Af��l-1883f58c-b84 B=>?@A� C';<B� D&C6� E#9D?� F#D?� GF� HG� I#\?� JI� KJ! LK! M!L N(17� O�&&� Pf��l-1883f58c-b8b Qf��l-1883f58c-b8c Rf��l-1883f58c-b8d SPQR� T'NOS� U&T6� V#LU?� W#?� XW� YX! ZY! [!Z \f��l-1883f58c-b92 ]f��l-1883f58c-b93 ^f��l-1883f58c-b94 _\]^� `'NO_� a&`6� b#La?� c#?� dc� ed! fe! g!f hf��l-1883f58c-b99 if��l-1883f58c-b9a jf��l-1883f58c-b9b khij� l'NOk� m&l6� n#Lm?� o!.!!!� p(123:6� q�&&&&&&� rf��l-1883f58c-ba0 sf��l-1883f58c-ba1 tf��l-1883f58c-ba2 uf��l-1883f58c-ba3 vf��l-1883f58c-ba4 wf��l-1883f58c-ba5 xf��l-1883f58c-ba6 yrstuvwx� z'pqy� {&z6� |#0{?� }#L{?� ~g��match-extract-vars-step #~{?� !!!!� (12:6� �&&&&&� f��l-1883f58c-baf f��l-1883f58c-bb0 f��l-1883f58c-bb1 f��l-1883f58c-bb2 f��l-1883f58c-bb3 f��l-1883f58c-bb4 � '� &6� #L?� #~?� ! ! f��l-1883f58c-bbc f��l-1883f58c-bbd f��l-1883f58c-bbe � 'NO� &6� #L?� #?� � !!!� #9?� � !!!� #f?� � !!!� #?� � !!!� !!!� (1:6� f��l-1883f58c-bec f��l-1883f58c-bed f��l-1883f58c-bee f��l-1883f58c-bef f��l-1883f58c-bf0 � '<� &6� #?� #?� #?� #4?� #5?� � � #!?� � � � #?� g��p-ls #?� � !!!!!� g��v2 g��v2-ls (1:6� g��m-1883f58c-bf9 %� &&&&&&� f��l-1883f58c-bfe f��l-1883f58c-bff f��l-1883f58c-c00 f��l-1883f58c-c01 f��l-1883f58c-c02 f��l-1883f58c-c03 f��l-1883f58c-c04 � '� � f��l-1883f58c-bfb � '8� &6� #L?� g��m-1883f58c-c0f %� � f��l-1883f58c-c11 � '8� &6� #?� � !� !!!!!� g��d (7:6� &&&&&� f��l-1883f58c-c14 f��l-1883f58c-c15 f��l-1883f58c-c16 f��l-1883f58c-c17 f��l-1883f58c-c18 f��l-1883f58c-c19 � '� &6� #9?� #?� #?� � !� !!!!!� f��l-1883f58c-c21 f��l-1883f58c-c22 f��l-1883f58c-c23 f��l-1883f58c-c24 f��l-1883f58c-c25 f��l-1883f58c-c26 � '� &6� #9?� #?� #?� � !� � � !!!!� �&&&&� f��l-1883f58c-c2e f��l-1883f58c-c2f f��l-1883f58c-c30 f��l-1883f58c-c31 f��l-1883f58c-c32 � ';�� &6�  #L?�  !  !!!! �  f��l-1883f58c-c39  f��l-1883f58c-c3a f��l-1883f58c-c3b f��l-1883f58c-c3c f��l-1883f58c-c3d f��l-1883f58c-c3e   � '� &6� #9?� !!!! � (7:6� &&&&&&� f��l-1883f58c-c46 f��l-1883f58c-c47 f��l-1883f58c-c48 f��l-1883f58c-c49 f��l-1883f58c-c4a f��l-1883f58c-c4b f��l-1883f58c-c4c  � !' � "&!6� ##9"?� $g��"match-extract-quasiquote-vars-step %#$"?� &!!!! � 'f��l-1883f58c-c55 (f��l-1883f58c-c56 )f��l-1883f58c-c57 *f��l-1883f58c-c58 +f��l-1883f58c-c59 ,f��l-1883f58c-c5a -'()*+,� .'-� /&.6� 0#9/?� 1!!!! � 2!!!!!!� 3(7:6� 4g��m-1883f58c-c70 54%� 65&&&&&&&� 7f��l-1883f58c-c75 8f��l-1883f58c-c76 9f��l-1883f58c-c77 :f��l-1883f58c-c78 ;f��l-1883f58c-c79 <f��l-1883f58c-c7a =f��l-1883f58c-c7b >f��l-1883f58c-c7c ?789:;<=>� @'36?� A5� Bf��l-1883f58c-c72 CB� D'8AC� E&@6D� F#9E?� Gg��pattern H(G� Ig��m-1883f58c-c88 JI%� KJ&&� Lf��l-1883f58c-c8d Mf��l-1883f58c-c8e Nf��l-1883f58c-c8f OLMN� P'HKO� QJ� Rf��l-1883f58c-c8a SR� T'8QS� U&P6T� V#U?� Wg��expr X#WU?� YX� Z#U?� [g��m-1883f58c-c95 \[%� ]\&&� ^f��l-1883f58c-c9a _f��l-1883f58c-c9b `f��l-1883f58c-c9c a^_`� b'H]a� c\� df��l-1883f58c-c97 ed� f'8ce� g&b6f� h#g?� i#Wg?� j#g?� k! l!k mg��match-let/helper ng��var o(nH� pg��m-1883f58c-ca2 qp%� rq&&&� sf��l-1883f58c-ca7 tf��l-1883f58c-ca8 uf��l-1883f58c-ca9 vf��l-1883f58c-caa wstuv� x'orw� yq� zf��l-1883f58c-ca4 {z� |'8y{� }&x6|� ~#m}?� #}?� !l g��match-named-let g��init ()n� q&&&&� f��l-1883f58c-cb2 f��l-1883f58c-cb3 f��l-1883f58c-cb4 f��l-1883f58c-cb5 f��l-1883f58c-cb6 � '� &6|� #?� g��m-1883f58c-cbe %� &&&� f��l-1883f58c-cc3 f��l-1883f58c-cc4 f��l-1883f58c-cc5 f��l-1883f58c-cc6 � 'o� � f��l-1883f58c-cc0 � '8� &6� #m?� #?� !   ! !   ! ! (nW0� g��m-1883f58c-ccd %� &&&&&&� f��l-1883f58c-cdf f��l-1883f58c-ce0 f��l-1883f58c-ce1 f��l-1883f58c-ce2 f��l-1883f58c-ce3 f��l-1883f58c-ce4 f��l-1883f58c-ce5 � '� � f��l-1883f58c-ccf � '8� &6� #?� !� ! !   ! ! g��a g��b (1W�  &&&&&&&&�  f��l-1883f58c-cf2 f��l-1883f58c-cf3 f��l-1883f58c-cf4 f��l-1883f58c-cf5 f��l-1883f58c-cf6 f��l-1883f58c-cf7 f��l-1883f58c-cf8 f��l-1883f58c-cf9 f��l-1883f58c-cfa �  '� &6� #m?� #0?� � !� ! ! ֌ ׌ !، !ٌ (1W� &&&&&&&� f��l-1883f58c-d07 f��l-1883f58c-d08 f��l-1883f58c-d09 f��l-1883f58c-d0a f��l-1883f58c-d0b f��l-1883f58c-d0c f��l-1883f58c-d0d f��l-1883f58c-d0e � '� &6� #m?� #0?� � ! 댤 쌤 !팤 ! f��l-1883f58c-d1b f��l-1883f58c-d1c f��l-1883f58c-d1d f��l-1883f58c-d1e f��l-1883f58c-d1f f��l-1883f58c-d20 f��l-1883f58c-d21 f��l-1883f58c-d22 � '� &6� #m?� [�  ! ! �()Wn� g��m-1883f58c-d2d %� &&&&&� f��l-1883f58c-d32 f��l-1883f58c-d33 f��l-1883f58c-d34 f��l-1883f58c-d35 f��l-1883f58c-d36  f��l-1883f58c-d37   �  '� �  �  f��l-1883f58c-d2f  � '8 � & 6� #?� #?� !쌤 ! ()W� &&&&&&� f��l-1883f58c-d43 f��l-1883f58c-d44 f��l-1883f58c-d45 f��l-1883f58c-d46 f��l-1883f58c-d47 f��l-1883f58c-d48 f��l-1883f58c-d49 � '�  &6� !# ?� "#0 ?� #"� $! %(� &g��m-1883f58c-d52 '&%� ('&� )f��l-1883f58c-d57 *f��l-1883f58c-d58 +)*� ,'%(+� -'� .f��l-1883f58c-d54 /.� 0'8-/� 1&,60� 2#1?� 3!댤 4(W� 5'&&&&� 6f��l-1883f58c-d5c 7f��l-1883f58c-d5d 8f��l-1883f58c-d5e 9f��l-1883f58c-d5f :f��l-1883f58c-d60 ;6789:� <'45;� =&<60� >#=?� ?#=?� @!!!� A!!!� Bg�� success-k Cg�� failure-k D(BC� Eg��m-1883f58c-d66 FE%� GF&&&� Hf��l-1883f58c-d7f If��l-1883f58c-d80 Jf��l-1883f58c-d81 Kf��l-1883f58c-d82 LHIJK� M'DGL� NF� Of��l-1883f58c-d68 PO� Q'8NP� R&M6Q� S#R?� Tg��ellipse? U#TR?� V#R?� Wg��foo X#WR?� Y#4R?� Z#5R?� [YZ� \Y� ]g��other ^#]R?� _U^YZ� `_Z� a`� b#R?� c#R?� dg��c e#dR?� fbce� g(7BC� hg��m-1883f58c-d87 ih%� ji&&&� kf��l-1883f58c-da0 lf��l-1883f58c-da1 mf��l-1883f58c-da2 nf��l-1883f58c-da3 oklmn� p'gjo� qi� rf��l-1883f58c-d89 sr� t'8qs� u&p6t� v#u?� wg��sym? x#wu?� y#u?� z#4u?� {#5u?� |z{� }z� ~#u?� x~z{� {� � g�� abracadabra #u?�C�5�hp��a���]4   5�4�>��"��G���������h������-�1�3�@������������g��_ �g��args ��g��filenamef��ice-9/match.scm         �  ��g��nameg��error�CR4 "@�����h���^���]�C����V�������g��dummy  �g��rtd  �g��rec   �g��n   ��  ���CCD���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/match.scm ! �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��rtdg��recg��n���C5R4E FY���h���q���]�C��i�������g��dummy  �g��rtd  �g��rec   �g��n   �g��value   ��   ���CCD��������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/match.scm & �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��rtdg��recg��ng��value���C5ER4Z [kmoq����h ���O���]����C���G�������g��dummy  �g��rec  �g��rtd   ��   ���CCD��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/match.scm + �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��recg��rtd���C5ZR4r s��������h���-���]C���%�������g��dummy  ��   ���CCD����h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/match.upstream.scm � �  " ��g�� macro-typeg�� syntax-rulesg��patterns��C5rR4 s������h���-���]C���%�������g��dummy  ��   ���C���h���?���]C���7�������g��dummy  �g��atom  ��   ���C�������h0���a���]����45�CY�������g��dummy  0�g��app  0�g��pat   0�g��body   0��  0 ���C���h0���a���]45��45�C�����Y�������g��dummy  +�g��vec  +�g��pat   +�g��body   +��  + ���C�����h0���b���]����45�CZ�������g��dummy  0�g��atom  0�g��pat   0�g��body   0��  0 ���CCD�������h���b��])4�5$��@4�5$��@4�5$��@4�5$�� @4� 5$�� @  �6��Z������g��x  ~�g��tmp ~�g��tmp  " ~�g��tmp  9 ~�g��tmp  P ~�g��tmp  g ~��g��filenamef��ice-9/match.upstream.scm  �  ~ ��g�� macro-typeg�� syntax-rulesg��patternsg��atom�g��appg��...�g��patg��bodyg��...�g��vecg��...�g��patg��bodyg��...�g��atomg��patg��bodyg��...���C5R4 [���h���M���]��C�������E�������g��dummy  �g��v  �g��g+s   ��   ���C�������h@������]������C�������g��dummy  @�g��v  @�g��g+s   @�g��pat   @�g��failure   @�g��body   @�g��rest   @��  @ ���C*-����h������]C�z�������g��dummy  �g��v  �g��g+s   �g��pat   �g��body   �g��rest   ��   ���CCD� ������hP���.��]4�5$��@4�5$��@4�5$��@ �6&������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��ice-9/match.upstream.scm  �  P ��g�� macro-typeg�� syntax-rulesg��patternsg��vg��g+s�g��vg��g+sg��patg��=>g��failure�g��bodyg��restg��vg��g+sg��patg��bodyg��rest��C5R4 /KMOQ����hH������,� 3� ���C�����������g��dummy  D�g��v  D�g��p   D�g��q   D�g��r   D�g��g+s   D�g��sk   D�g��fk   D�g��i   D��   D ���CY������h���<���]C4�������g��dummy  �g��x  ��   ���CCD�����h@������]4�5$��@4�5$��@�6��������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��ice-9/match.upstream.scm / �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��vg��pg��qg��rg��g+sg��skg��fkg��i�g��x��C5R4P Zmor������h ���|���]�4�5�C���t�������g��dummy  �g��v  �g��g+s   �g��sk   �g��fk   �g��i   ��   ���Cwr�h(������]��4�5�C�����������g��dummy  $�g��v  $�g��p   $�g��g+s   $�g��sk   $�g��fk   $�g��i   $��  $ ���C���h���Z���]C��R�������g��dummy  �g��v  �g��p   �g��x   ��   ���Cr����h���|���]�6���t�������g��dummy  �g��v  �g��g+s   �g��sk   �g��fk   �g��i   ��  ���C�������h(������,�3���C�������g��dummy  (�g��v  (�g��p   (�g��q   (�g��g+s   (�g��sk   (�g��fk   (�g��i   (��  ( ���C�h���|���]C���t�������g��dummy  �g��v  �g��g+s   �g��sk   �g��fk   �g��i   ��   ���C��h���Z���]C��R�������g��dummy  �g��v  �g��p   �g��x   ��   ���C���h(������]�C������������g��dummy  #�g��v  #�g��p   #�g��g+s   #�g��sk   #�g��fk   #�g��i   #��  # ���Cr�����h(������]�4�5�C������������g��dummy  #�g��v  #�g��p   #�g��g+s   #�g��sk   #�g��fk   #�g��i   #��  # ���Cr�����h(������,�3����4�5�C�������g��dummy  (�g��v  (�g��getter   (�g��g   (�g��s   (�g��sk   (�g��fk   (�g��i   (��  ( ���C   r��������h0������,�3�45���4�5�C�������g��dummy  0�g��v  0�g��setter   0�g��g   0�g��s   0�g��sk   0�g��fk   0�g��i   0��  0 ���C !"���h0������,�3����C��������������g��dummy  )�g��v  )�g��pred   )�g��p   )�g��g+s   )�g��sk   )�g��fk   )�g��i   )��  ) ���C)578���h(���l���]����C������d�������g��dummy  "�g��v  "�g��proc   "�g��p   "�g��x   "��  " ���C>KL����h(������,�3��C���������g��dummy  &�g��v  &�g��p   &�g��r   &�g��g+s   &�g��sk   &�g��fk   &�g��i   &��  & ���CMXY[\^_`bce� hX������]������� � �����C���������g��dummy  V�g��v  V�g��p   V�g��g+s   V�g��sk   V�g��fk   V�g��i   V��  V ���Cjvx�����h(������,�3��C���������g��dummy  &�g��v  &�g��p   &�g��q   &�g��g+s   &�g��sk   &�g��fk   &�g��i   &��  & ���C{������h������,�3��C���������g��dummy  �g��v  �g��p   �g��q   �g��g+s   �g��sk   �g��fk   �g��i   ��   ���C���h(������]���C����������g��dummy  %�g��v  %�g��p   %�g��g+s   %�g��sk   %�g��fk   %�g��i   %��  % ���C��h0������,�3��� �C�����������g��dummy  ,�g��v  ,�g��rec   ,�g��p   ,�g��g+s   ,�g��sk   ,�g��fk   ,�g��i   ,��  , ���C� ������hx������,�3�������� ��� ������C��������������g��dummy  q�g��v  q�g��p   q�g��q   q�g��g+s   q�g��sk   q�g��fk   q�g��i   q��  q ���C�h���k���]C�����c�������g��dummy  �g��v  �g��p   �g��g+s   �g��x   ��   ���Cr���h���|���]�6���t�������g��dummy  �g��v  �g��g+s   �g��sk   �g��fk   �g��i   ��  ���Cr�� ���hp������]����4 4 �5�5�  �4 �5���C�����������g��dummy  l�g��v  l�g��x   l�g��g+s   l�g��sk   l�g��fk   l�g��id   l��  l ���CCD�2����h ����]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  $�� @4�5$��@4�5$��@4� 5$��!@4�"5$��#@4�$5$��%@4�&5$��'@4�(5$��)@4�*5$��+@4�,5$��-@4�.5$��/@01�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��tmp � �g��tmp  �g��tmp  �g��tmp  6 �g��tmp  M �g��tmp  d �g��tmp  { �g��tmp   �g��tmp   �g��tmp   �g��tmp   �g��tmp   �g��tmp   ��g��filenamef��ice-9/match.upstream.scm N �   ��g�� macro-typeg�� syntax-rulesg��patternsg��vg��g+sg��skg��...�g��fkg��i�g��vg��quoteg��p�g��g+sg��skg��...�g��fkg��i�g��vg�� quasiquoteg��p�g��xg��vg��and�g��g+sg��skg��...�g��fkg��i�g��vg��andg��pg��qg��...�g��g+sg��skg��fkg��i�g��vg��or�g��g+sg��skg��fkg��i�g��vg��org��p�g��xg��vg��org��pg��...�g��g+sg��skg��fkg��i�g��vg��notg��p�g��g+sg��skg��...�g��fkg��i�g��vg��get!g��getter�g��gg��s�g��skg��...�g��fkg��i�g��vg��set!g��setter�g��gg��sg��...��g��skg��...�g��fkg��i�g��vg��?g��predg��pg��g+sg��skg��fkg��i�g��vg��=g��procg��p�g��xg��vg��pg��___g��rg��g+sg��skg��fkg��i�g��vg��p�g��g+sg��skg��fkg��i�g��vg��pg��***g��q�g��g+sg��skg��fkg��i�g��vg��pg��***g��qg��g+sg��skg��fkg��i�g��vg��pg��..1�g��g+sg��skg��fkg��i�g��vg��$g��recg��pg��...�g��g+sg��skg��fkg��i�g��vg��pg��qg��g+sg��skg��fkg��i�g��vg��pg��...�g��g+sg��xg��vg��_g��g+sg��skg��...�g��fkg��i�g��vg��xg��g+sg��skg��...�g��fkg��idg��...����C5PR4  �������h������]�C�����������g��dummy  �g��v  �g��p   �g��g+s   �g��sk   �g��fk   �g��i   ��   ���C-./12�������h8������,�3�����C�����������g��dummy  4�g��v  4�g��p   4�g��rest   4�g��g+s   4�g��sk   4�g��fk   4�g��i   4��  4 ���C:HI������h(������,�3�C��������������g��dummy  !�g��v  !�g��p   !�g��g+s   !�g��sk   !�g��fk   !�g��i   !�g��depth   !��  ! ���CM\��������h ������,� 3� C���������g��dummy  �g��v  �g��p   �g��g+s   �g��sk   �g��fk   �g��i   �g��x   �g��depth   ��    ���C_l�h ������,� 3� C���������g��dummy  �g��v  �g��p   �g��g+s   �g��sk   �g��fk   �g��i   �g��x   �g��depth   ��    ���Co}~� h`������,� 3� ������ ���C������������g��dummy  [�g��v  [�g��p   [�g��q   [�g��g+s   [�g��sk   [�g��fk   [�g��i   [�g��depth   [��   [ ���C��h@������,�3�������C�������g��dummy  @�g��v  @�g��elt   @�g��g+s   @�g��sk   @�g��fk   @�g��i   @�g��depth   @��  @ ���C���h ������,�3���C����������g��dummy  �g��v  �g��x   �g��g+s   �g��sk   �g��fk   �g��i   �g��depth   ��   ���CCD���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��ice-9/match.upstream.scm  �  � ��g�� macro-typeg�� syntax-rulesg��patternsg��vg��unquoteg��p�g��g+sg��skg��fkg��i�g��vg��unquote-splicingg��p�g��restg��g+sg��skg��fkg��i�g��vg�� quasiquoteg��p�g��g+sg��skg��fkg��ig��depthg��vg��unquoteg��p�g��g+sg��skg��fkg��ig��xg��depthg��vg��unquote-splicingg��p�g��g+sg��skg��fkg��ig��xg��depthg��vg��pg��qg��g+sg��skg��fkg��ig��depthg��vg��eltg��...�g��g+sg��skg��fkg��ig��depthg��vg��xg��g+sg��skg��fkg��ig��depth� �C5R4 ������h ������,�3�C���������g��dummy  �g��x  �g��q   �g��g+s   �g��sk   �g��fk   �g��depth   �g��i   ��   ���CCD���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/match.upstream.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��xg��qg��g+sg��skg��fkg��depthg��i���C5R4 ��h���P���]C���H�������g��dummy  �g��expr  �g��ids   ��   ���CCD�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/match.upstream.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��exprg��idsg��...���C5R4 r��h���v���]45�C�����n�������g��dummy  �g��letish  �g��args   �g��expr   �g��ids   ��   ���CCD���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/match.upstream.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��letishg��argsg��exprg��...��g��idsg��...���C5R4 [�h���P���]C���H�������g��dummy  �g��arg  �g��expr   ��   ���CCD�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/match.upstream.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��argg��expr���C5R4 r��hH������,� 3� 445�5������C��������g��dummy  G�g��v  G�g��p   G�g��g+s   G�g��sk   G�g��fk   G�g��i   G�g��id   G�g��id-ls   G��   G ���CCD���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/match.upstream.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��vg��pg��g+sg��skg��...�g��fkg��ig��...�g��idg��id-ls�g��...����C5R4 ���h���|���]C���t�������g��dummy  �g��v  �g��g+s   �g��sk   �g��fk   �g��x   ��   ���C��h���Z���]C��R�������g��dummy  �g��v  �g��p   �g��x   ��   ���C     �����h@������,�3�������C�����������g��dummy  <�g��v  <�g��p   <�g��q   <�g��g+s   <�g��sk   <�g��fk   <�g��i   <��  < ���CCD� ������hP�����]4�5$��@4�5$��@4�5$��@ �6������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��ice-9/match.upstream.scm  �  P ��g�� macro-typeg�� syntax-rulesg��patternsg��vg��g+sg��skg��fkg��xg��vg��p�g��xg��vg��pg��qg��g+sg��skg��fkg��i���C5R4N $%&(r*+.�������h���8���]�C0�������g��tmp-1883f58c-a0e  ��   ���C024���h���V���]���C�N�������g��tmp-1883f58c-a10  �g��tmp-1883f58c-a0f  ��   ���C6;<7?@BC������h���V���]��C����N�������g��tmp-1883f58c-a13  �g��tmp-1883f58c-a12  ��  ���CE����h������,� 3� ���4�5���4 5  4 54�5�� 45��������C����������g��dummy  ��g��v  ��g��p   ��g��g+s   ��g��sk   ��g��fk   ��g��i   ��g��id   ��g��id-ls   ���   � ���CFWY[]^_hipqrsuw����h���8���]�C0�������g��tmp-1883f58c-a29  ��   ���Cxz{���h���V���]���C�N�������g��tmp-1883f58c-a2b  �g��tmp-1883f58c-a2a  ��   ���C|~��������h���V���]��C����N�������g��tmp-1883f58c-a2e  �g��tmp-1883f58c-a2d  ��  ���C����h������,� 3� ����     4 5 4 5���  4 5����������C�����������g��dummy  ��g��v  ��g��p   ��g��r   ��g��g+s   ��g��sk   ��g��fk   ��g��i   ��g��id   ��g��id-ls  ���   � ���CCD�h@���G��]4�5$��@4�5$��@�6�������?������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��ice-9/match.upstream.scm  �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��vg��pg��g+sg��skg��...�g��fkg��ig��idg��id-ls�g��...��g��vg��pg��rg��g+sg��skg��...�g��fkg��ig��idg��id-ls�g��...����C5NR4G ��������h���[���]��C���S�������g��dummy  �g��x  �g��y   �g��sk   ��   ���Ch���=���]C���5�������g��dummy  �g��sk  ��   ���C[�������h���L���]�C����D�������g��dummy  �g��x  �g��sk   ��  ���CCD� ����hP������]4�5$��@4�5$��@4�5$��@ �6�������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��ice-9/match.upstream.scm , �  P ��g�� macro-typeg�� syntax-rulesg��patternsg��xg��yg��sk�g��sk�g��xg��sk���C5GR4w ��h���V���]���C�N�������g��tmp-1883f58c-a63  �g��tmp-1883f58c-a62  ��   ���C���h���V���]���C�������N�������g��tmp-1883f58c-a67  �g��tmp-1883f58c-a66  ��   ���C�h���8���]�C0�������g��tmp-1883f58c-a69  ��   ���C�����h������,� 3�  4   5��  ���    4  5  ���������4  5� ��C�������������g��dummy  ��g��v  ��g��p   ��g��q   ��g��g+s   ��g��sk   ��g��fk   ��g��i   ��g��id   ��g��id-ls  ���   � ���CCD�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/match.upstream.scm E �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��vg��pg��qg��g+sg��skg��fkg��ig��idg��id-ls�g��...����C5wR4 �������h8������]��C��������������g��dummy  1�g��v  1�g��n   1�g��pats   1�g��p   1�g��q   1�g��x   1��  1 ���C(����h ������,�3��C�������������g��dummy  �g��v  �g��n   �g��pats   �g��p   �g��sk   �g��fk   �g��i   ��   ���C/����h���<���]C4�������g��dummy  �g��x  ��   ���CCD� ����hP�����]4�5$��@4�5$��@4�5$��@ �6������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��ice-9/match.upstream.scm h �  P ��g�� macro-typeg�� syntax-rulesg��patternsg��vg��ng��patsg��pg��q�g��xg��vg��ng��patsg��pg��___�g��skg��fkg��i�g��x��C5R4 0EFGHJKMN� �������hX������,�3������4 5����C��������������g��dummy  Q�g��v  Q�g��n   Q�g��pat   Q�g��index   Q�g��sk   Q�g��fk   Q�g��i   Q��  Q ���CR^`br�������h0������]4��5C��������������g��dummy  )�g��v  )�g��n   )�g��pats   )�g��p   )�g��q   )�g��x   )��  ) ���CCD�������h@�����]4�5$��@4�5$��@�6�������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��ice-9/match.upstream.scm u �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��vg��ng��patg��index�g��...�g��skg��fkg��i�g��vg��ng��patsg��...�g��pg��qg��x��C5R4L cr������h���k���]�6���c�������g��dummy  �g��v  �g��sk   �g��fk   �g��i   ��  ���Cdxy{|~����hP������,�3����������C�����������g��dummy  L�g��v  L�g��pat   L�g��index   L�g��rest   L�g��sk   L�g��fk   L�g��i   L��  L ���CCD��������h@�����]4�5$��@4�5$��@�6��������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��ice-9/match.upstream.scm  �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��vg��skg��...�g��fkg��i�g��vg��patg��index�g��restg��skg��fkg��i���C5LR4 N� ������h`������,� 3� �����4 5 �����C�������g��dummy  `�g��v  `�g��n   `�g��pat   `�g��index   `�g��p   `�g��sk   `�g��fk   `�g��i   `��   ` ���CCD����h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/match.upstream.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��vg��ng��patg��index�g��...�g��pg��skg��fkg��i���C5R4 �����h(������,�3��C���������g��dummy  &�g��v  &�g��p   &�g��n   &�g��len   &�g��sk   &�g��fk   &�g��i   &��  & ���CCD�������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/match.upstream.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��vg��pg��ng��leng��skg��fkg��i���C5R4 F�����h���8���]�C0�������g��tmp-1883f58c-b23  ��   ���C���h���V���]���C�N�������g��tmp-1883f58c-b25  �g��tmp-1883f58c-b24  ��   ���Cr���h���V���]��C����N�������g��tmp-1883f58c-b28  �g��tmp-1883f58c-b27  ��  ���C�������h������,� 3� �4 5�4 54 �5�   ��     �4 5�����C�����������g��dummy  ��g��v  ��g��p   ��g��n   ��g��len   ��g��sk   ��g��fk   ��g��i   ��g��id   ��g��id-ls  ���   � ���CCD�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/match.upstream.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��vg��pg��ng��leng��skg��...�g��fkg��ig��idg��id-ls�g��...����C5R4 � �����h`������,� 3� ������� ��C���������g��dummy  ^�g��v  ^�g��rec   ^�g��n   ^�g��p   ^�g��q   ^�g��g+s   ^�g��sk   ^�g��fk   ^�g��i  ^��   ^ ���Cr����h������,�3��6��������������g��dummy  �g��v  �g��rec   �g��n   �g��g+s   �g��sk   �g��fk   �g��i   ��   ���CCD�����h@�����]4�5$��@4�5$��@�6�������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��ice-9/match.upstream.scm  �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��vg��recg��ng��pg��qg��g+sg��skg��fkg��i�g��vg��recg��ng��g+sg��skg��...�g��fkg��i���C5R4L  ����h���]���]C�����U�������g��dummy  �g��pred  �g��p   �g��x   ��  ���C"�h���\���]C�����T�������g��dummy  �g��rec  �g��p   �g��x   ��  ���C'0��h���]���]C�����U�������g��dummy  �g��proc  �g��p   �g��x   ��  ���C4r�h���i���]�6���a�������g��dummy  �g��x  �g��k   �g��i   �g��v   ��  ���C8EH��h���i���]C����a�������g��dummy  �g��x  �g��k   �g��i   �g��v   ��   ���CMV�����h���K���]C�����C�������g��dummy  �g��p  �g��x   ��  ���C[b���h���K���]C�����C�������g��dummy  �g��p  �g��x   ��  ���Cgn���h���K���]C�����C�������g��dummy  �g��p  �g��x   ��  ���Co|}��h8������]���C���������g��dummy  6�g��p  6�g��q   6�g��r   6�g��k   6�g��i   6�g��v   6��  6 ���C�h ���x���]�C����p�������g��dummy  �g��p  �g��q   �g��k   �g��i   �g��v   ��   ���C������h���K���]C�����C�������g��dummy  �g��p  �g��x   ��  ���Cr���h���Z���]�6���R�������g��dummy  �g��k  �g��i   �g��v   ��  ���Cr����h���Z���]�6���R�������g��dummy  �g��k  �g��i   �g��v   ��  ���Cr����h���Z���]�6���R�������g��dummy  �g��k  �g��i   �g��v   ��  ���Cr����h���Z���]�6���R�������g��dummy  �g��k  �g��i   �g��v   ��  ���Cr� ���hP���i���]��4 �54�5��C�������a�������g��dummy  I�g��p  I�g��k   I�g��i   I�g��v   I��  I ���CCD�$�������h����]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  $�� @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��tmp � {�g��tmp  {�g��tmp  {�g��tmp  6 {�g��tmp  M {�g��tmp  d {��g��filenamef��ice-9/match.upstream.scm  �  { ��g�� macro-typeg�� syntax-rulesg��patternsg��?g��predg��pg��xg��$g��recg��pg��xg��=g��procg��p�g��xg��quoteg��x�g��kg��...�g��ig��v�g�� quasiquoteg��x�g��kg��ig��v�g��andg��pg��xg��org��pg��xg��notg��pg��xg��pg��qg��rg��kg��ig��v�g��pg��qg��kg��ig��v�g��pg��...�g��xg��_g��kg��...�g��ig��v�g��___g��kg��...�g��ig��v�g��***g��kg��...�g��ig��v�g��..1g��kg��...�g��ig��v�g��pg��kg��...�g��ig��...�g��v���C5LR4~ rN���h(������]454455�C��������g��dummy  '�g��p  '�g��k   '�g��i   '�g��v   '�g��v2   '�g��v2-ls   '��  ' ���CCD�����h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/match.upstream.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��pg��kg��ig��vg��v2g��v2-ls�g��...����C5~R49 �����h���x���]�C���p�������g��dummy  �g��x  �g��k   �g��i   �g��v   �g��d   ��   ���C���h���x���]��C�p�������g��dummy  �g��x  �g��k   �g��i   �g��v   �g��d   ��   ���C ������h���i���]�Ca�������g��dummy  �g��x  �g��k   �g��i   �g��v   ��   ���C �����h���x���]�C������p�������g��dummy  �g��x  �g��k   �g��i   �g��v   �g��d   ��   ���C#%��������h ������]�C���������g��dummy  �g��x  �g��y   �g��k   �g��i   �g��v   �g��d   ��   ���C&0�������h���x���]�C������p�������g��dummy  �g��x  �g��k   �g��i   �g��v   �g��d   ��   ���C1r������h���x���]�6���p�������g��dummy  �g��x  �g��k   �g��i   �g��v   �g��d   ��  ���CCD�h���3��]94�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��filenamef��ice-9/match.upstream.scm  �  � ��g�� macro-typeg�� syntax-rulesg��patternsg�� quasiquoteg��x�g��kg��ig��vg��d�g��unquote-splicingg��x�g��kg��ig��vg��d�g��unquoteg��x�g��kg��ig��v��g��unquoteg��x�g��kg��ig��vg��d�g��xg��yg��kg��ig��vg��d�g��xg��...�g��kg��ig��vg��d�g��xg��kg��...�g��ig��vg��d���C59R4$ 2FrN��h0������,�3�454455�C����������g��dummy  -�g��x  -�g��k   -�g��i   -�g��v   -�g��d   -�g��v2   -�g��v2-ls   -��  - ���CCD������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/match.upstream.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��xg��kg��ig��vg��dg��v2g��v2-ls�g��...����C5$R4  VYZX��������h ���T���]45�C�����L�������g��dummy  �g��pattern  �g��body   ��   ���CCD�����h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/match.upstream.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��patterng��bodyg��...���C5 R4  hij������h ���T���]45�C�����L�������g��dummy  �g��pattern  �g��body   ��   ���CCD�����h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/match.upstream.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��patterng��bodyg��...���C5 R4 l~N�������h ���c���]45C�����[�������g��dummy  �g��var  �g��value   �g��body   ��   ���CN������h���t���]45C�l�������g��dummy  �g��loop  �g��var   �g��init   �g��body   ��   ���CCD�����h@������]4�5$��@4�5$��@�6��������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��ice-9/match.upstream.scm ) �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��varg��value�g��...�g��bodyg��loopg��varg��init�g��...�g��body��C5R4 lN��������h ���c���]45C�����[�������g��dummy  �g��var  �g��value   �g��body   ��   ���CCD������h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/match.upstream.scm 3 �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��varg��value�g��...�g��body��C5R4m N����h���s���]45C����k�������g��dummy  �g��let  �g��var   �g��expr   �g��body   ��   ���CN������h(������]4545�C�����������g��dummy  $�g��let  $�g��var   $�g��expr   $�g��pat   $�g��tmp   $�g��body   $��  $ ���Cr��������h8������,� 3� 4��54�5C��������g��dummy  7�g��let  7�g��v   7�g��p   7�g��a   7�g��b   7�g��expr   7�g��rest   7�g��body   7��   7 ���Cr���h@������,�3�4��5445�5C��������������g��dummy  9�g��let  9�g��v   9�g��p   9�g��a   9�g��expr   9�g��rest   9�g��body   9��  9 ���Cr��h(������,�3�4��5C��������g��dummy  '�g��let  '�g��v   '�g��p   '�g��a   '�g��expr   '�g��rest   '�g��body   '��  ' ���CCD��������h���H��])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��filenamef��ice-9/match.upstream.scm 8 �  ~ ��g�� macro-typeg�� syntax-rulesg��patternsg��letg��varg��expr�g��...�g��bodyg��letg��varg��expr�g��...�g��patg��tmp�g��...�g��bodyg��letg��vg��...�g��pg��...�g��ag��bg��expr�g��restg��bodyg��letg��vg��...�g��pg��...�g��ag��...�g��expr�g��restg��bodyg��letg��vg��...�g��pg��...�g��ag��expr�g��restg��body��C5mR4 N�����h(������]4545�C��}�������g��dummy  &�g��loop  &�g��pat   &�g��expr   &�g��var   &�g��body   &��  & ���C!r#���h(������]4�5C��������������g��dummy  !�g��loop  !�g��v   !�g��pat   !�g��expr   !�g��rest   !�g��body   !��  ! ���CCD����h@�����]4�5$��@4�5$��@�6�������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��ice-9/match.upstream.scm I �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��loopg��patg��exprg��var�g��...�g��bodyg��loopg��vg��...�g��patg��expr�g��restg��body��C5R4 $2�������h���?���]C7�������g��dummy  �g��body  ��   ���C3>?����h���t���]��C�l�������g��dummy  �g��pat  �g��expr   �g��rest   �g��body   ��   ���CCD�����h@������]4�5$��@4�5$��@�6��������������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��ice-9/match.upstream.scm X �  9 ��g�� macro-typeg�� syntax-rulesg��patternsg��bodyg��patg��expr�g��restg��body��C5R40 @��h���y���]C���q�������g��dummy  �g��a  �g��b   �g�� success-k   �g�� failure-k   ��   ���CA��h���j���]C���b�������g��dummy  �g��a  �g�� success-k   �g�� failure-k   ��   ���C"SUVX[\af� �������h8���k���]�����C�����c�������g��dummy  3�g��id  3�g�� success-k   3�g�� failure-k   3��  3 ���CCD� �����hP���3��]4�5$��@4�5$��@4�5$��@ �6+������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��ice-9/match.upstream.scm l �  P ��g�� macro-typeg�� syntax-rulesg��patternsg��ag��bg�� success-kg�� failure-k�g��ag��...�g�� success-kg�� failure-k�g��idg�� success-kg�� failure-k���C50R4 @�������h���y���]C���q�������g��dummy  �g��x  �g��y   �g�� success-k   �g�� failure-k   ��   ���CA��h���j���]C���b�������g��dummy  �g��x  �g�� success-k   �g�� failure-k   ��   ���C"vxy|}���h0���j���]����C��b�������g��dummy  .�g��x  .�g�� success-k   .�g�� failure-k   .��  . ���CCD� ������hP���2��]4�5$��@4�5$��@4�5$��@ �6*������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��ice-9/match.upstream.scm  �  P ��g�� macro-typeg�� syntax-rulesg��patternsg��xg��yg�� success-kg�� failure-k�g��xg��...�g�� success-kg�� failure-k�g��xg�� success-kg�� failure-k���C5RC������Y�������g��m  (��g��filenamef��ice-9/match.scm   �  � ������j ���C6����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/i18n.go���������������������������������������������������������������������������������������0000644�����������������00000051600�15253700563�0006570 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0hS������]��4���h������]� g��guile � g��define-module* � � g��ice-9 g��i18n � g��filenameS f��ice-9/i18n.scm g��importsS g��optargs  �  � � g��exportsS g�� make-locale g��locale? g��%global-locale g��string-locale<? g��string-locale>? g��string-locale-ci<? g��string-locale-ci>? g��string-locale-ci=? g�� char-locale<? g�� char-locale>? g��char-locale-ci<? g��char-locale-ci>? g��char-locale-ci=? g��char-locale-downcase g��char-locale-upcase g��char-locale-titlecase !g��string-locale-downcase "g��string-locale-upcase #g��string-locale-titlecase $g��locale-string->integer %g��locale-string->inexact &g��locale-encoding 'g��locale-day-short (g�� locale-day )g��locale-month-short *g�� locale-month +g��locale-am-string ,g��locale-pm-string -g��locale-date+time-format .g��locale-date-format /g��locale-time-format 0g��locale-time+am/pm-format 1g�� locale-era 2g��locale-era-year 3g��locale-era-date-format 4g��locale-era-date+time-format 5g��locale-era-time-format 6g��locale-currency-symbol 7g��locale-monetary-decimal-point 8g��#locale-monetary-thousands-separator 9g��locale-monetary-grouping :g��!locale-monetary-fractional-digits ;g��)locale-currency-symbol-precedes-positive? <g��)locale-currency-symbol-precedes-negative? =g��#locale-positive-separated-by-space? >g��#locale-negative-separated-by-space? ?g��locale-monetary-positive-sign @g��locale-monetary-negative-sign Ag��locale-positive-sign-position Bg��locale-negative-sign-position Cg��monetary-amount->locale-string Dg��locale-digit-grouping Eg��locale-decimal-point Fg��locale-thousands-separator Gg��number->locale-string Hg��locale-yes-regexp Ig��locale-no-regexp J !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHI�9 Kg��set-current-module LK� MK� Ng��load-extension Og�� string-append Pf�� libguile- Qg��effective-version Rf�� scm_init_i18n Sg�� nl-langinfo Tg��CODESET Ug��make-syntax-transformer VU� WU� Xg��define-vector-langinfo-mapping Yg��macro Zg�� $sc-dispatch [Z� \Z� ]g��_ ^g��any _]^ `g�� syntax->datum a`� b`� cg�� datum->syntax dc� ec� fg��length gg��define hg�� %nl-items ig��vector jg��item kg��locale ljk mg��if ng��and og��integer? poj� qg��exact? rqj� snpr� tg��>= utj � vg��<= wg��apply xg�� vector-ref yxhj� zwSyk� {g��throw |g��quote }g�� out-of-range ~|}� f�� out of range �{~j� �� �g��wrong-type-arg �|� �f��wrong argument type �{j� �� �g��syntax-violation �� �� �f��-source expression failed to match any pattern �g��ABDAY_1 �g��ABDAY_2 �g��ABDAY_3 �g��ABDAY_4 �g��ABDAY_5 �g��ABDAY_6 �g��ABDAY_7 �g��DAY_1 �g��DAY_2 �g��DAY_3 �g��DAY_4 �g��DAY_5 �g��DAY_6 �g��DAY_7 �g��ABMON_1 �g��ABMON_2 �g��ABMON_3 �g��ABMON_4 �g��ABMON_5 �g��ABMON_6 �g��ABMON_7 �g��ABMON_8 �g��ABMON_9 �g��ABMON_10 �g��ABMON_11 �g��ABMON_12 �g��MON_1 �g��MON_2 �g��MON_3 �g��MON_4 �g��MON_5 �g��MON_6 �g��MON_7 �g��MON_8 �g��MON_9 �g��MON_10 �g��MON_11 �g��MON_12 �g��define-simple-langinfo-mapping �g��defined? �k� �g��AM_STR �g��PM_STR �g��D_T_FMT �g��D_FMT �g��T_FMT �g�� T_FMT_AMPM �g��ERA �g��ERA_YEAR �g�� ERA_D_T_FMT �g�� ERA_D_FMT �g�� ERA_T_FMT �g�� define-monetary-langinfo-mapping �g��intl? �k �g��INT_CURR_SYMBOL �g��CRNCYSTR �g��INT_FRAC_DIGITS �g�� FRAC_DIGITS �g�� POSITIVE_SIGN �g�� NEGATIVE_SIGN �g��MON_DECIMAL_POINT �g��MON_THOUSANDS_SEP �g�� MON_GROUPING �g��locale-monetary-digit-grouping �g��INT_P_CS_PRECEDES �g�� P_CS_PRECEDES �g��INT_N_CS_PRECEDES �g�� N_CS_PRECEDES �g��INT_P_SEP_BY_SPACE �g��P_SEP_BY_SPACE �g��INT_N_SEP_BY_SPACE �g��N_SEP_BY_SPACE �g��INT_P_SIGN_POSN �g�� P_SIGN_POSN �g��INT_N_SIGN_POSN �g�� N_SIGN_POSN �f��0 �g�� list->string �g�� integer->char �g��integer->string �g��expt �g��floor �g�� string-pad �g��round �g��inexact->exact �f��� �g��number-decimal-string �g��string=? �g�� string-length �g��min �g�� substring �g��%number-integer-part �f��  �g�� parenthesize �f��( �f��) �g�� sign-before �g�� sign-after �g�� unspecified �g��sign-before-currency-symbol �g��sign-after-currency-symbol �g��error �f��unsupported sign position �g��add-monetary-sign+currency �g��abs �g��GROUPING �g�� RADIXCHAR �g��THOUSEP �f��- �g��YESEXPR �g��NOEXPRC�5���hh<����]4   J5�4M�>��"��G���4Ni4OiP4Qi5�5R>��"��G��ST��������h���{���-��1��3��@�������s�������g��locale ��g��filenamef��ice-9/i18n.scm _  ` �  ��g��nameg��locale-encoding�C&R4WXY\_befghilmsnuvjz�hP������]45��   ��  �C�������������g��name  J�g��nl-items  J�g�� item-count  J�g��defines   J��g��filenamef��ice-9/i18n.scm i  j  j  k   j   r  & m  < t  > m  I r �  J ���C�������h���b���] 4�5L�4?6Z�������g��args  �g��v ��g��filenamef��ice-9/i18n.scm  i �   ���C�������h(���`���] 4�5$�� �O�@�6�X�������g��y  '�g��tmp '��g��filenamef��ice-9/i18n.scm i �  ' ���C5XR{oq}S�h������-�1�3�H�K"��   �64 �5$��A4 �5$��2"��  �6� $��� $�� J�@""""���������g��item ~�g��locale ~�g�� %nl-items  ~��g��filenamef��ice-9/i18n.scm w * q 2 N p 4 j t ' n t � ~ ��g��nameg��locale-day-short�C'R{oq}S�������h������-�1�3�H�K"��   �64 �5$��A4 �5$��2"��  �6� $��� $�� J�@""""���������g��item ~�g��locale ~�g�� %nl-items  ~��g��filenamef��ice-9/i18n.scm z * q 2 N p 4 j t ' n t � ~ ��g��nameg�� locale-day�C(R{oq}S���h������-�1�3�H    � K"��  �64�5$��A4�5$��2"��  �6� $��� $�� J�@""""�������g��item ��g��locale ��g�� %nl-items  ���g��filenamef��ice-9/i18n.scm } 4 q 2 X p 4 t t ' x t � � ��g��nameg��locale-month-short�C)R{oq}S�������h������-�1�3�H    � K"��  �64�5$��A4�5$��2"��  �6� $��� $�� J�@""""�������g��item ��g��locale ��g�� %nl-items  ���g��filenamef��ice-9/i18n.scm � 4 q 2 X p 4 t t ' x t � � ��g��nameg�� locale-month�C*R4WY\_bewSgk�������h0������] 45$��"����C����������g��name  -�g��item  -�g��default   -�g��body   -��g��filenamef��ice-9/i18n.scm �  �  �   �   �  " � �  - ���C���h���c���] 4�5L�4?6[�������g��args  �g��v ��g��filenamef��ice-9/i18n.scm  � �   ���C������h(���a���] 4�5$�� �O�@�6�Y�������g��y  '�g��tmp '��g��filenamef��ice-9/i18n.scm � �  ' ���C5RS��h���u���-��1��3��@�������m�������g��locale ��g��filenamef��ice-9/i18n.scm � �  ��g��nameg��locale-am-string�C+RS��������h���u���-��1��3��@�������m�������g��locale ��g��filenamef��ice-9/i18n.scm � �  ��g��nameg��locale-pm-string�C,RS��������h���|���-��1��3��@�������t�������g��locale ��g��filenamef��ice-9/i18n.scm � �  ��g��nameg��locale-date+time-format�C-RS�h���w���-��1��3��@�������o�������g��locale ��g��filenamef��ice-9/i18n.scm � �  ��g��nameg��locale-date-format�C.RS������h���w���-��1��3��@�������o�������g��locale ��g��filenamef��ice-9/i18n.scm � �  ��g��nameg��locale-time-format�C/RS������h���}���-��1��3��@�������u�������g��locale ��g��filenamef��ice-9/i18n.scm � �  ��g��nameg��locale-time+am/pm-format�C0RS��������h���o���-��1��3��@�������g�������g��locale ��g��filenamef��ice-9/i18n.scm � �  ��g��nameg�� locale-era�C1RS������h���t���-��1��3��@�������l�������g��locale ��g��filenamef��ice-9/i18n.scm � �  ��g��nameg��locale-era-year�C2RS�h������-��1��3��@�������x�������g��locale ��g��filenamef��ice-9/i18n.scm � �  ��g��nameg��locale-era-date+time-format�C4RS�����h���{���-��1��3��@�������s�������g��locale ��g��filenamef��ice-9/i18n.scm � �  ��g��nameg��locale-era-date-format�C3RS��h���{���-��1��3��@�������s�������g��locale ��g��filenamef��ice-9/i18n.scm � �  ��g��nameg��locale-era-time-format�C5R4WY\_bewSmg� ����h`���I��]45$��"��45$��"�����C��A������g��name  ^�g�� local-item  ^�g�� intl-item   ^�g�� default/local   ^�g�� default/intl   ^�g��intl  : O�g��local  : O�g��body  O ^��g��filenamef��ice-9/i18n.scm �  �  �   �   �  ) �  + �  : � @ � O �  S � �  ^ ���C����h���c���] 4�5L�4?6[�������g��args  �g��v ��g��filenamef��ice-9/i18n.scm  � �   ���C������h(���a���] 4�5$�� �O�@�6�Y�������g��y  '�g��tmp '��g��filenamef��ice-9/i18n.scm � �  ' ���C5RS��������h ������-�1�3��$��@@��������g��intl? �g��locale ��g��filenamef��ice-9/i18n.scm � �  ��g��nameg��locale-currency-symbol�C6RS������h ������-�1�3��$��@@��������g��intl? �g��locale ��g��filenamef��ice-9/i18n.scm � �  ��g��nameg��!locale-monetary-fractional-digits�C:RS�����h������-��1��3��@�������z�������g��locale ��g��filenamef��ice-9/i18n.scm � �  ��g��nameg��locale-monetary-positive-sign�C?RS���h������-��1��3��@�������z�������g��locale ��g��filenamef��ice-9/i18n.scm � �  ��g��nameg��locale-monetary-negative-sign�C@RS���h������-��1��3��@�������z�������g��locale ��g��filenamef��ice-9/i18n.scm � �  ��g��nameg��locale-monetary-decimal-point�C7RS���h������-��1��3��@��������������g��locale ��g��filenamef��ice-9/i18n.scm � �  ��g��nameg��#locale-monetary-thousands-separator�C8RS�����h������-��1��3��@�������{�������g��locale ��g��filenamef��ice-9/i18n.scm � �  ��g��nameg��locale-monetary-digit-grouping�CRS��������h ������-�1�3��$��@@��������g��intl? �g��locale ��g��filenamef��ice-9/i18n.scm � �  ��g��nameg��)locale-currency-symbol-precedes-positive?�C;RS���h ������-�1�3��$��@@��������g��intl? �g��locale ��g��filenamef��ice-9/i18n.scm � �  ��g��nameg��)locale-currency-symbol-precedes-negative?�C<RS���h ������-�1�3��$��@@��������g��intl? �g��locale ��g��filenamef��ice-9/i18n.scm � �  ��g��nameg��#locale-positive-separated-by-space?�C=RS�h ������-�1�3��$��@@��������g��intl? �g��locale ��g��filenamef��ice-9/i18n.scm � �  ��g��nameg��#locale-negative-separated-by-space?�C>RS�h ������-�1�3��$��@@��������g��intl? �g��locale ��g��filenamef��ice-9/i18n.scm � �  ��g��nameg��locale-positive-sign-position�CARS�������h ������-�1�3��$��@@��������g��intl? �g��locale ��g��filenamef��ice-9/i18n.scm � �  ��g��nameg��locale-negative-sign-position�CBR�������hP�����]� $��C"��2 $��6  4 05"�"��������g��number  N�g��number  C�g��digits   C�g��digit  ) 8��g��filenamef��ice-9/i18n.scm �  �  �  �   �         $   )  % )   , �  2 �  3 �  5 �  ;   C  C �  F �  N � �  N ��g��nameg��integer->stringg�� documentationf��DReturn a string representing NUMBER, an integer, written in base 10.�CRo� �������h���g��]"45$��/4 5�4�544455506"��q�4 545$��"�� $��74�54 5444555 $��CC" "_������g��number  ��g�� digit-count  ��g��number  ! <�g��decimals  @ ��g��number'  L ��g��t  X m�g��fraction  � ��g��str  � ���g��filenamef��ice-9/i18n.scm            !   !   !   &   )  % ,  , 4  % 6   <   @   C  ! L   L   Q   X   X   j   q  t  % {  % �  " �   �   �   �  �  ' �  �   �   � !  � !  � "  � $  � $  �  �)  � ��g��nameg��number-decimal-stringg�� documentationf��Return 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.�CRO������h���*��]3"��}45$��@(��@45454 545$�� "��"�"t������"������g��int  ��g��grouping  ��g�� separator   ��g��int   ��g��grouping   ��g��result   ��g��len  . ��g��cut  : ��g��sub  Z y�� g��filenamef��ice-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 � ,  � .  � , �  � ��g��nameg��%number-integer-part�CR?@6;<=>ABO���h����]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 56������������g��amount  �g��figure  �g��intl?   �g��locale   �g�� positive?   �g��sign  . �g��currency  9 �g��currency-precedes?  I �g�� separated?  Y �g�� sign-position i �g��currency-space � �g��key � �� g��filenamef��ice-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 �:   ��g��nameg��add-monetary-sign+currency�CR:O78������h�����-�.�,�3�#��45$��"�� 4444�555544�554 5$��"�� $�� "��*4 4 54 5$��4  5"��54545�4 4556������g��amount ��g��intl? ��g��locale  ��g��t   2�g��fraction-digits  2 ��g��int  J ��g��dec  Z ��g��t  e y�g��dec  � ��g��grouping  � ��g�� separator  � ��� g��filenamef��ice-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  �  " �  # �  " �  �( �  ��g��nameg��monetary-amount->locale-stringg�� documentationf��Convert @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.�CCRS������h���z���-��1��3��@�������r�������g��locale ��g��filenamef��ice-9/i18n.scm  �  ��g��nameg��locale-digit-grouping�CDRS���h���y���-��1��3��@�������q�������g��locale ��g��filenamef��ice-9/i18n.scm  �  ��g��nameg��locale-decimal-point�CERS����h������-��1��3��@�������w�������g��locale ��g��filenamef��ice-9/i18n.scm  �  ��g��nameg��locale-thousands-separator�CFROEoDF��������h���C��-�.�,�3�#��#��� $��"��� $��"��4444�555544�554 5$��"�� $��"��;4 4 54 5$��"4 5$��4 5"��"��54545 456�����;������g��number ��g��fraction-digits ��g��locale  ��g��sign  = ��g��int  U ��g��dec  e ��g��t  p ��g��dec  � ��g��grouping  � ��g�� separator  � ��� g��filenamef��ice-9/i18n.scm  #   '  )   1   5  7   =   =   @   C  ' F  ( I  / Q  ( S  ' U   U   X   [  . e   e   h   n  " p   p   �  & �  �   �   �   �  ( �   �  + �  ( �  # �  # �   �   �   �   �   �   �   �  �- � ��g��nameg��number->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.�CGRS��h���v���-��1��3��@�������n�������g��locale ��g��filenamef��ice-9/i18n.scm  �  ��g��nameg��locale-yes-regexp�CHRS�������h���u���-��1��3��@�������m�������g��locale ��g��filenamef��ice-9/i18n.scm  �  ��g��nameg��locale-no-regexp�CIRC������������g��m  ,��g��filenamef��ice-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  <b ���C6���������������������������������������������������������������������������������������������������������������������������������ice-9/unicode.go������������������������������������������������������������������������������������0000644�����������������00000001246�15253700563�0007440 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]��4�������h������]� g��guile � g��define-module* � � g��ice-9 g��unicode � g��filenameS f��ice-9/unicode.scm g��exportsS g��formal-name->char g��char->formal-name   � g��set-current-module � � g��load-extension g�� string-append f�� libguile- g��effective-version f��scm_init_unicodeC�5������h@������]4   5�4�>��"��G���i4i4i5�56|�������g��m  (��g��filenamef��ice-9/unicode.scm   -   3  ! 4  - <   >   @  �  @ ���C6�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/session.go������������������������������������������������������������������������������������0000644�����������������00000060640�15253700563�0007500 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0a������]��4�������h;������]� g��guile � g��define-module* � � g��ice-9 g��session � g��filenameS f��ice-9/session.scm g��importsS g�� documentation  �  � g��regex � � g��rdelim � � g��match � � � g��exportsS g��help g��add-value-help-handler! g��remove-value-help-handler! g��add-name-help-handler! g��remove-name-help-handler! g�� apropos-hook g��apropos !g��apropos-internal "g�� apropos-fold #g��apropos-fold-accessible $g��apropos-fold-exported %g��apropos-fold-all &g��source 'g��arity (g��procedure-arguments )g��module-commentary * !"#$%&'()� +g��set-current-module ,+� -+� .g��object-documentation /g��*value-help-handlers* 0g��delete! 1g��or-map 2g��try-value-help 3g��*name-help-handlers* 4g�� try-name-help 5g��make-syntax-transformer 65� 75� 8g��macro 9g�� $sc-dispatch :9� ;9� <g��_ =g��any ><= ?g�� syntax->datum @?� A?� Bg�� datum->syntax CB� DB� Eg��length Fg�� provided? Gg��display Hg��help-doc Ig�� simple-format Jf��^~A$ Kg�� regexp-quote Lg��symbol->string Mg��string? Ng��and-map Og��symbol? Pg��quote Qg�� write-line Rf�� commentary: Sf��No ~A found for ~A  Tg�� commentary Ug�� help-usage Vg��unquote Wg�� module-ref Xg��current-module Yg��search-documentation-files Zg��begin [Z� \f��]`help' depends on the `regex' feature. You don't seem to have regular expressions installed.  ]g��syntax-violation ^]� _]� `f��-source expression failed to match any pattern ag��map bg��reverse cg�� string-append df��/ eg��%search-load-path fg�� in-vicinity gg��module-filename hg��file-commentary ig�� procedure? jf�� a procedure kf�� an object lf��Documentation from file: mf��Did not find any object  nf�� named `~A'  of��matching regexp "~A"  pg��for-each qf��~S: ~S  rg�� module-name sg��cadr tg��caddr uf��!`~S' is ~A in the ~S module. ~A  vg��cadddr wf��Documentation found for:  xg��newline yf��No documentation found for:  zf�vUsage: (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 |g��run-hook }g�� string-length ~f��Empty string not allowed g�� make-regexp �g�� module-uses �g�� duplicates �g��member �g��shadow �g��value �g��full �g��module-obarray �g�� hash-for-each �g�� regexp-exec �f��:  �f�� (unbound) �f�� shadowed �g��make-hash-table �g�� hash-fold �g��hashq-get-handle �g�� hashq-set! �g��hash-create-handle! �g��make-fold-modules �g��identity �g�� submodules �g��resolve-module �g�� root-modules �g��hash-map->list �g��module-submodules �g��module-public-interface �g��procedure-source �g��macro? �g��macro-transformer �g��procedure-property �g��arglist �f��  �f��required �f�� arguments:  �f�� argument:  �f��', ` �f��' and ` �f��', the rest in ` �f��,  �f��optional �f��keyword �f��other keywords allowed �f�� the rest in ` �f��' �g��procedure-minimum-arity �f�� or more �f�� required and  �f�� optional �f�� argument �f�� arguments �f��.  �g��required �g��number? �g�� make-list �g��optional �g��keyword �g��allow-other-keys? �g��rest �g��error �� �� �f��no matching pattern �g��system �g��vm �g��program �� �g��program? �� �� �g��program-arguments-alist �� ��C�5h�L��^��]4   *5�4-�>��"��G���.������h���r���]6j�������g��name  �g��value  ��g��filenamef��ice-9/session.scm $   % �   ���C�/R/��h�����]� C�����������g��proc  ��g��filenamef��ice-9/session.scm '  .  . �  ��g��nameg��add-value-help-handler!g�� documentationf�1Adds 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������]4�5 C��������g��proc  ��g��filenamef��ice-9/session.scm 0  2  2 �   ��g��nameg��remove-value-help-handler!g�� documentationf��3Removes a handler for performing `help' on a value.�CR1��h���_���]�LL�6������W�������g��proc  ��g��filenamef��ice-9/session.scm 5 5 �  ���C/����h������]�O�6��������������g��name  �g��value  ��g��filenamef��ice-9/session.scm 4  5 �   ��g��nameg��try-value-help�C2R3R3�������h���F��]� C�����>������g��proc  ��g��filenamef��ice-9/session.scm :  D  D �  ��g��nameg��add-name-help-handler!g�� documentationf�Adds 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'.�CR03�������h������]4�5 C��������g��proc  ��g��filenamef��ice-9/session.scm F  H  H �   ��g��nameg��remove-name-help-handler!g�� documentationf��2Removes a handler for performing `help' on a name.�CR1����h���_���]�L�6W�������g��proc  ��g��filenamef��ice-9/session.scm K  K �   ���C3����h���x���]�O�6�p�������g��name  ��g��filenamef��ice-9/session.scm J  K �   ��g��nameg�� try-name-help�C4R478;>ADEF4GHIJKLMNOP)QRSTUV2WX Y[\��������h��"��-��1��3�4�5 $�r45$�R�45$��!&��"��4>��"��G��"�$��*444 4 555>��"��G��"�4 5$��4>��"��G��"�$�"��4  5$��(��"��$��g45$��:4>��"��G��4>��"��G��4>��"�?G��"�84>��"�$G��"�4>���"� G��"�4>���"��G��"��45 $��&��g4445�55$��!&��"��4>��"��G��"�� 4>��"��G��"��l&��_$��N45$��4>��"��G��"�� 4>��"��G��"��"l"��"d"��"\"��4>���"��G��C4>��"��G��C4>���"��G��C�����������g��exp �g��name $ s�g��t  - p�g��t  � ?�g��doc   �g��x   �g��t  � A�g��x  " >��g��filenamef��ice-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 �`  ���C���h���e���] 4�5L�4?6]�������g��args  �g��v ��g��filenamef��ice-9/session.scm  P �   ���C_`����h(������] 4�5$�� �O�@�6��������g��y  '�g��tmp '��g��filenamef��ice-9/session.scm P �  ' ��g�� documentationf��7(help [NAME]) Prints useful information. Try `(help)'.g�� macro-typeg��defmacrog�� defmacro-argsg��args��C5RaLbccd���h���i���]�6������a�������g��elt  ��g��filenamef��ice-9/session.scm �   � 4 � !�  ���Cef��������hH���x��])4�54545445?456������p������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��ice-9/session.scm �  �  �   �   �   �   �   �  ! � ( # �  # �  & �  ) �  3 �  3 �  8 �  B � �  B ��g��nameg��module-filename�CgRgh�����h ������] 4�5$��6C��������������g��name  �g��t ��g��filenamef��ice-9/session.scm �  � � �   ��g��nameg��module-commentary�C)R"2ijk�h0������]�4545$��"���C��������������g��module  )�g��name  )�g��object   )�g��data   )��g��filenamef��ice-9/session.scm �   � -  � 4  � -  � 4 " � 4 % � ' ( � !�  ) ���C$YQlGmInopIqrstuv�hh���T��] 44�54�554�5$��3MN44�54�54�54�55MNCM�N�C������L������g��entry  b�g�� entry-summary  b��g��filenamef��ice-9/session.scm �   � .  � 2 � /  � <  � /  � /  � .  �   �  & �  + � ' - � ! . � - 3 � 1 4 � . ; � . B � . G � ; I � . J � . R � - U � ' W � ! ^ � % ` � �  b ���CEwG��h���b���]�6Z�������g��entry  ��g��filenamef��ice-9/session.scm �   � -�   ���CxG������h(���}���]M�$��N�"��4>���"��G���6���u�������g��entry  %��g��filenamef��ice-9/session.scm �   �  �   �  % � �  % ���CxyG�h���b���]�6Z�������g��entry  ��g��filenamef��ice-9/session.scm �   � -�   ���C���h@����]245(��O4�5$��4>��"��G��64>��"��G�� �$�� "�� �6HHHH4  O�>��"��G��J(��"��4J5 $��"��J$��-4>��"��G��4 J>��"��G��K"���4 O�J>��"��G��J(��CJ$��K"��4>���"��G��4>��"��G�� J6�������g��term  ?�g��regexp  ?�g��entries   ?�g��t   e�g��first?  i ?�g��undocumented-entries  i ?�g��documented-entries  i ?�g��documentations  i ?�g��t  � ��� g��filenamef��ice-9/session.scm �  �   �   �   �   �   �  �  & �  * �  / �  = �  > � B �  G � U �  Y �  [ �  a �  e � g � ' h � % i � ! i � r � � �  � �  � �  � �  � �  � �  � � � �  � �  � �  � �  � �  � �  �  �   �   �  & �  * �  / �  ? � �/  ? ��g��nameg��help-doc�CHRGz����h���m���]�6e�������g��filenamef��ice-9/session.scm �  �  � �   ��g��nameg�� help-usage�CUR4{i 5R|X}~rprLGiWXx� �������h����]4L4�55$��4L�>��"��G��4>��"��G��4�>��"��G��$��Q45$��"��M$��(4 >��"��G��4>��"��G��"���"��$4 >��"��G��4>��"��G��M$��34L�5445��5&��"��4 >��"��G��"��� 6�C���������g��symbol  �g��variable  �g��val  T ��g��t  ] o��g��filenamef��ice-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 �"   ���C��h0������]4�54�5L��LLO�6��������������g��module  )�g��name )�g��obarray   )��g��filenamef��ice-9/session.scm 9  :  : ;   : ) = �  ) ���C��������h�����-�1�3�445��>��"��G��4�5 $��C4�5445�545�(��"�� 45 $��"��4  5H4  5H4  5$�� KK"���O�6������g��rgx ��g��options ��g��match  9 ��g��uses  E ��g��modules  p ��g��shadow  { ��g��value  � ���g��filenamef��ice-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 �) � ��g��nameg��aproposg�� documentationf��CSearch for bindings: apropos regexp {options= 'full 'shadow 'value}�C R"����h������]C�������g��module  �g��name  �g��var   �g��data   ��g��filenamef��ice-9/session.scm U   V �   ���C#X�h������]�445�56����������g��rgx  ��g��filenamef��ice-9/session.scm S  W  Y  Y )  Y   U �   ��g��nameg��apropos-internalg�� documentationf��+Return a list of accessible variable names.�C!R|XL��hX�����] $��K4L�4�55$��14L�5$��C4L�>��"��G��LL�6CC� ������g��name  W�g��var  W�g��data   W�g��val  T��g��filenamef��ice-9/session.scm z   {  {  | 0 |   s  s 3  s s  ! t % - s  1 v  Q w �  W ��g��nameg�� module-filter�C�h(������]�$��L�LL�O�4�56C����������g��module  %�g��data  %��g��filenamef��ice-9/session.scm p  ~    ( " ~ �  % ��g��nameg�� fold-module�C������h@�����]445�>��"��G��4545��O�6����������g��proc  <�g��init  <�g��rgx   <�g��folder   <�g��match  ' <�g��recorded  ' <��g��filenamef��ice-9/session.scm [  l   l   l   m  # n  ' m  <  �  < ��g��nameg�� apropos-foldg�� documentationf�Folds 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 bindings�C"R�����hx�����]*"��_(��C4L�5$�� 4L4L4L554L55"��"�"�������������g��data  q�g��modules  q�g��modules   e�g��data   e�g��obj   7�g��handle  ! 4�g��first?  & 1��g��filenamef��ice-9/session.scm           $      $ !   &  $ &   ,   ;   <   ?  ! B  . G  7 I  . M  ! N  ! S  + U  ! W   e  �  q ��g��nameg��rec�C���h0������]4 5O�L�L�Q�4L5�6��������g�� fold-module  /�g��init  /�g��table  /�g��rec   /��g��filenamef��ice-9/session.scm           )   /  �  / ���C���h�����]�O�C��������g�� init-thunk  �g��traverse  �g��extract   ��g��filenamef��ice-9/session.scm  �   ��g��nameg��make-fold-modulesg�� documentationf��Return 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.�CR��h���N���]�L��CF�������g��filenamef��ice-9/session.scm     �   ���C���h������]�O�6�������~�������g��module  ��g��filenamef��ice-9/session.scm    �   ��g��nameg��apropos-fold-accessible�C#R�������h������]�456���y�������g��filenamef��ice-9/session.scm           �  ��g��nameg�� root-modules�CR�������h���d���]C���\�������g��k  �g��v  ��g��filenamef��ice-9/session.scm  �   ���C�������h������]4�56�w�������g��mod  ��g��filenamef��ice-9/session.scm    #   �   ��g��nameg�� submodules�CR4iiii5$R4iiii5%Ri������h0������]4�5$���64�5$�� 4�56C������������g��obj  +��g��filenamef��ice-9/session.scm              !  ( )  �  + ��g��nameg��source�C&REG�h��x ��]I4�5$�H(��"�P454>��"��G��4>��"��G��4>��"��G�� $��4>��"��G��"��4>��"��G��4`>��"��G��4>��"��G��"�� (��4'>��"��G��"�� $��L $��4 >��"��G��"��4 >��"��G��4 >��"��G��  "4 >��"��G��4 >��"��G��4'>��"��G��"��  "NK(��"�lJ$��4 >��"��G��"���454>��"��G��4>��"��G��4 >��"��G�� $��4>��"��G��"��4>��"��G��4`>��"��G��4>��"��G��"�� (��4'>��"��G��"�� $��L $��4 >��"��G��"��4 >��"��G��4 >��"��G��  "4 >��"��G��4 >��"��G��4'>��"��G��"��  "NK(��"�lJ$��4 >��"��G��"���454>��"��G��4>��"��G��4>��"��G�� $��4>��"��G��"��4>��"��G��4`>��"��G��4>��"��G��"�� (��4'>��"��G��"�� $��L $��4 >��"��G��"��4 >��"��G��4 >��"��G��  "4 >��"��G��4 >��"��G��4'>��"��G��"��  "NK$��5J$��4 >��"��G��"���4>��"��G��K"���$��VJ$��4 >��"��G��"���4>��"��G��4>��"��G��4>��"��G��"���"��4�54>��"��G��$��4>��"��G��"��F $��"��84>��"��G��4>��"��G��4>��"��G��$��"�� $��  "��$��4>��"��G��"��4>��"��G��6�p ������g��obj  �g��t �g�� required-args  - (�g�� optional-args  - (�g�� keyword-args  - (�g��allow-other-keys?  - (�g��rest-arg  - (�g��need-punctuation  - (�g��len  J �g��ls � �g��len   �g��ls Q �g��len  6 |�g��ls  p�g��arity  3 ��g��filenamef��ice-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                                                           �   ��g��nameg��arity�C'R<�h0��"��]Q4�5$��$��$��$��$��  $��f (��R  45$�� 45"��45$�� 45"��   �C4   56�4   56�4   56�4   56�4   56�4   56�4�5$��C4�5$���6C����������g��proc  ,�g��t ,�g��w  ��g��x  ��g��w  1 ��g��x  1 ��g��w  B ��g��x  B ��g��w  S ��g��x S ��g��w h ��g��t   ,�� g��filenamef��ice-9/session.scm              l  m   w   x   ~  + �   �  �   �   �   �  + �   �  �                  $   &   *  �  , ��g��nameg��procedure-argumentsg�� documentationf��Return 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(RC�V������g��m  ,��g��filenamef��ice-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 ���C6�������������������������������������������������������������������������������������������������ice-9/serialize.go����������������������������������������������������������������������������������0000644�����������������00000011676�15253700563�0010011 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�4�4��h^������]� g��guile � g��define-module* � � g��ice-9 g�� serialize � g��filenameS f��ice-9/serialize.scm g��importsS g��threads  �  � � g��exportsS g��call-with-serialization g��call-with-parallelization g�� parallelize � g��set-current-module � � g�� make-mutex g��serialization-mutex g�� admin-mutex g��owner g�� lock-mutex g�� dynamic-root g�� unlock-mutex g��make-syntax-transformer � !� "g��macro #g�� $sc-dispatch $#� %#� &g��_ 'g��any (&' )g�� syntax->datum *)� +)� ,g�� datum->syntax -,� .,� /g��lambda 0g��syntax-violation 10� 20� 3f��-source expression failed to match any patternC�5�����h`�����]4   5�4�>��"��G���4i5�R4i5�RR���hX������]�4>��"��G��N�M�45�$��64>��"��G��4>��"��G��45� C��������g��filenamef��ice-9/serialize.scm F   G  H  I % I  $ I * N  + K  = L  O M  U M �  W ���C��h@���~���]�4>��"��G��M�45�$��"�� 4>��"��G��6�v�������g��filenamef��ice-9/serialize.scm P   Q  R %  R  R ' T  ( U  ? V �  ? ���C��hX������]�4>��"��G��N�M�45�$��64>��"��G��4>��"��G��45� C��������g��filenamef��ice-9/serialize.scm F   G  H  I % I  $ I * N  + K  = L  O M  U M �  W ���C��h@���~���]�4>��"��G��M�45�$��"�� 4>��"��G��6�v�������g��filenamef��ice-9/serialize.scm P   Q  R %  R  R ' T  ( U  ? V �  ? ���C��h@���~���]�4>��"��G��M�45�$��"�� 4>��"��G��6�v�������g��filenamef��ice-9/serialize.scm P   Q  R %  R  R ' T  ( U  ? V �  ? ���C�������h`������] HO�O�4O�>���"��G��V4�>���X4O�>���"��G��CX4O�>���"��G��F��������g��thunk  _�g�� outer-owner  _��g��filenamef��ice-9/serialize.scm C  D   E �  _ ��g��nameg��call-with-serialization�CR4!"%(+./�������h���c���-��1��3���C��[�������g��forms ��g��filenamef��ice-9/serialize.scm X Y �  ���C��h���g���] 4�5L�4?6_�������g��args  �g��v ��g��filenamef��ice-9/serialize.scm  X �   ���C23��h(���e���] 4�5$�� �O�@�6�]�������g��y  '�g��tmp '��g��filenamef��ice-9/serialize.scm X �  ' ���C5R�����hH������]�4>��"��G��N�M�45�$�� 4>��"��G��"���6�����~�������g��filenamef��ice-9/serialize.scm ^   _  `  a a  $ a ' c  ( d  C e �  C ���C��hP������]�4>��"��G��M�45�$��*4>��"��G��4>��"��G��M� C6~�������g��filenamef��ice-9/serialize.scm g   h  i  i  i ! k  3 l  H m  P n �  P ���C��hH������]�4>��"��G��N�M�45�$�� 4>��"��G��"���6�����~�������g��filenamef��ice-9/serialize.scm ^   _  `  a a  $ a ' c  ( d  C e �  C ���C��hP������]�4>��"��G��M�45�$��*4>��"��G��4>��"��G��M� C6~�������g��filenamef��ice-9/serialize.scm g   h  i  i  i ! k  3 l  H m  P n �  P ���C��hP������]�4>��"��G��M�45�$��*4>��"��G��4>��"��G��M� C6~�������g��filenamef��ice-9/serialize.scm g   h  i  i  i ! k  3 l  H m  P n �  P ���C�������h`������] HO�O�4O�>���"��G��V4�>���X4O�>���"��G��CX4O�>���"��G��F��������g��thunk  _�g�� outer-owner  _��g��filenamef��ice-9/serialize.scm [  \   ] �  _ ��g��nameg��call-with-parallelization�CR4!"%(+./�����h���c���-��1��3���C��[�������g��forms ��g��filenamef��ice-9/serialize.scm p q �  ���C��h���g���] 4�5L�4?6_�������g��args  �g��v ��g��filenamef��ice-9/serialize.scm  p �   ���C23��h(���e���] 4�5$�� �O�@�6�]�������g��y  '�g��tmp '��g��filenamef��ice-9/serialize.scm p �  ' ���C5RC�����������g��m  ,��g��filenamef��ice-9/serialize.scm  7 - ?  6 ? 7 @  @ @ D A  C [ �  \ ���C6�������������������������������������������������������������������ice-9/stack-catch.go��������������������������������������������������������������������������������0000644�����������������00000003323�15253700563�0010175 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]��4�������hE������]� g��guile � g��define-module* � � g��ice-9 g�� stack-catch � g��filenameS f��ice-9/stack-catch.scm g��importsS g�� save-stack  �  � � g��exportsS � g��set-current-module � � g��catch g��throwC�5������h��a���]4   5�4�>��"��G��� �h(���}���-�1�3�4 >��"��G���@�����u�������g��key #�g��args #��g��filenamef��ice-9/stack-catch.scm + - # . � # ���C��������h�����]�6��������g��key  �g��thunk  �g��handler   ��g��filenamef��ice-9/stack-catch.scm   ( �   ��g��nameg�� stack-catchg�� documentationf�Like @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}.�CRC����Y�������g��m  ,��g��filenamef��ice-9/stack-catch.scm     �   ���C6��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/futures.go������������������������������������������������������������������������������������0000644�����������������00000127425�15253700563�0007517 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]w�4�������hS������]� g��guile � g��define-module* � � g��ice-9 g��futures � g��filenameS f��ice-9/futures.scm g��importsS g��srfi g��srfi-1   � � g��srfi-9  � � g��gnu  � � g��srfi-11  � � g��q � � g��match � � g��control � ! � "!� #g��exportsS $g��future %g�� make-future &g��future? 'g��touch ($%&'� )g��set-current-module *)� +)� ,g��<future> -g��%%make-future-procedure .g��make-syntax-transformer /.� 0.� 1g�� %make-future 2g��macro 3g�� $sc-dispatch 43� 53� 6g��_ 7g��any 867777� 9g�� syntax-object :g��lambda ;g��m-3eebb96279-7 <g��top =;<� >g��ribcage ?g��t-3eebb96279-3 @g��t-3eebb96279-4 Ag��t-3eebb96279-5 Bg��t-3eebb96279-6 C?@AB� D====� Ef��l-3eebb96279-c Ff��l-3eebb96279-d Gf��l-3eebb96279-e Hf��l-3eebb96279-f IEFGH� J>CDI� K>� Lg��x ML� N=� Of��l-3eebb96279-9 PO� Q>MNP� Rg��shift Sg�� proc-name Tg��args UST� V<� WVV� Xf��l-1e8ba8b5a-60 Yf��l-1e8ba8b5a-61 ZXY� [>UWZ� \g��key ]g��value ^g��name _g��formals `g��body a\]^_`� bVVVVV� cf��l-1e8ba8b5a-53 df��l-1e8ba8b5a-54 ef��l-1e8ba8b5a-55 ff��l-1e8ba8b5a-56 gf��l-1e8ba8b5a-57 hcdefg� i>abh� jg��make-procedure-name kj� lV� mf��l-1e8ba8b5a-43 nm� o>kln� pV� qf��l-1e8ba8b5a-42 rq� s>Mpr� t=JKQRKKKK[ios�  ug��hygiene vu � w9:tv� xg��thunk yVJKQ� zu� {9xyz� |g��state }9|yz� ~g��mutex 9~yz� �g�� completion �9yz� �{}� �g�� make-struct �g��m-3eebb96279-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 �� �>� �g�� ctor-args �� �f��l-1e8ba8b5a-120 �� �>p� �g��ctor �g��field �� �f��l-1e8ba8b5a-11c �f��l-1e8ba8b5a-11d �� �>W� �g��form �g�� type-name �g��constructor-spec �g�� field-names �� �VVVV� �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 �� �VVVVVVVV� �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 �� �>Mp� �JKQRKKKKK� �9v� �9,yz� �9 v� �JKQ� �9z� �{}� �w� �g��each-any �6Ɍ �g��syntax-violation �� �� �f��Wrong number of arguments �g�� identifier? �� �� �VKQ� �9-z� �� �� �f��-source expression failed to match any pattern �g��record-type-vtable �� �� �g�� pwpwpwpwpw �g��default-record-printer �� �� �g��result �x|~� �g��set-struct-vtable-name! �� �� �g��vtable-offset-user �� �� �g��%future?-procedure �67� �g��m-3eebb96279-1a �<� �g��t-3eebb96279-19 �� �� �f��l-3eebb96279-1f �� �>� �f��l-3eebb96279-1c �� �>M� �KRKKKK[ios�  �9:v� �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   � > p � g�� ctor-name � f��l-1e8ba8b5a-214 � >p� � f��l-1e8ba8b5a-212 � >p� g��layout � f��l-1e8ba8b5a-210 � >p� g�� immutable? � f��l-1e8ba8b5a-20e  � !>p � "g�� field-count #"� $f��l-1e8ba8b5a-20c %$� &>#p%� 'g�� getter-ids ('� )f��l-1e8ba8b5a-209 *)� +>(p*� ,g�� field-ids -,� .f��l-1e8ba8b5a-206 /.� 0>-p/� 1g��predicate-name 2g�� field-spec 312� 4VVVVVV� 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:� <>34;� =KRK KKKKKKKK!K&K+K0<� >9=v� ?>� @g��and A9@=v� Bg��struct? C9B=v� DC>� Eg��eq? F9E=v� Gg�� struct-vtable H9G=v� IH>� JVK� K9,Jz� LFIK� MADL� N?M� OVK� P9Oz� Qg��throw-bad-struct RQ� SQ� Tg�� future-thunk Ug��%future-thunk-procedure Vg��free-id Wg�� %%on-error Xg��m-3eebb96279-26 YX<� ZY� [f��l-3eebb96279-28 \[� ]>MZ\� ^YK]RKKKK[ios�  _9W^v� `V_� a`7� bg��%%type cg��t-1e8ba8b5a-14b dg��t-1e8ba8b5a-14c eg��t-1e8ba8b5a-14d fg��t-1e8ba8b5a-14e gg��t-1e8ba8b5a-14f hg��t-1e8ba8b5a-150 ig��t-1e8ba8b5a-151 jcdefghi� kg��m-1e8ba8b5a-152 lk<� mlllllll� nf��l-1e8ba8b5a-156 of��l-1e8ba8b5a-157 pf��l-1e8ba8b5a-158 qf��l-1e8ba8b5a-159 rf��l-1e8ba8b5a-15a sf��l-1e8ba8b5a-15b tf��l-1e8ba8b5a-15c unopqrst� v>jmu� wg��getter xg��index ywx� zf��l-1e8ba8b5a-149 {f��l-1e8ba8b5a-14a |z{� }>yW|� ~' � VVV� f��l-1e8ba8b5a-144 f��l-1e8ba8b5a-145 f��l-1e8ba8b5a-146 � >~� K]RKvKKK}K� 9bv� V� 6a7� g��ck g��err g��s � YY� f��l-3eebb96279-2b f��l-3eebb96279-2c � >� YK]RKKKK[ios�  9v� g��quote 9v� VK]� 9,z� � � g��%%index 9v� V� 6a7� f��l-3eebb96279-30 f��l-3eebb96279-31 � >� YK]RKKKK[ios�  9v� 9v� K]� 9 z� � � g��%%copier 9v� V� 6a7� f��l-3eebb96279-35 f��l-3eebb96279-36 � >� YK]RKKKK[ios�  9v� 9v� g��%%<future>-set-fields VK]� 9z� � � g��t-3eebb96279-25 � f��l-3eebb96279-3a � >Z� YK]RKKKK[ios�  9:v� K]RKvKKK}K� 9v� � g��if 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 g��m-3eebb96279-41 <� � f��l-3eebb96279-43 � >M� KRKKKK[ios�  9Wv� V� 7� KRKvKKK}K� 9bv� V� 67� � f��l-3eebb96279-46 f��l-3eebb96279-47 � >� KRKKKK[ios�  9v� 9v� VK� 9,z� � � 9v� V� 67� f��l-3eebb96279-4b f��l-3eebb96279-4c � >� KRKKKK[ios�  9v� 9v� K� �9 z� �� � 9v� V� 67� f��l-3eebb96279-50 f��l-3eebb96279-51 �  >�   KRKKKK[ios�   9 v�  9 v�  V K� 9 z�  � � g��t-3eebb96279-40 � f��l-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 1g��m-3eebb96279-5c 21<� 32� 4f��l-3eebb96279-5e 54� 6>M35� 72K6RKKKK[ios�  89W7v� 9V8� :97� ;K6RKvKKK}K� <9b;v� =V<� >6:=7� ?22� @f��l-3eebb96279-61 Af��l-3eebb96279-62 B@A� C>?B� D2CK6RKKKK[ios�  E9Dv� F9Dv� GVCK6� H9,Gz� IFH� JI� K9;v� LVK� M6:L7� Nf��l-3eebb96279-66 Of��l-3eebb96279-67 PNO� Q>?P� R2QK6RKKKK[ios�  S9Rv� T9Rv� UQK6� V9 Uz� WTV� XW� Y9;v� ZVY� [6:Z7� \f��l-3eebb96279-6b ]f��l-3eebb96279-6c ^\]� _>?^� `2_K6RKKKK[ios�  a9`v� b9`v� cV_K6� d9cz� ebd� fe� gg��t-3eebb96279-5b hg� if��l-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 g��m-3eebb96279-77 <� � f��l-3eebb96279-79 � >M� KRKKKK[ios�  9Wv� V� 7� KRKvKKK}K� 9bv� V� 67� � f��l-3eebb96279-7c f��l-3eebb96279-7d � >� KRKKKK[ios�  9v� 9v� VK� 9,z� � � 9v� V� 67� f��l-3eebb96279-81 f��l-3eebb96279-82 � >� KRKKKK[ios�  9v� 9v� K� 9 z� � � 9v� V� 67� f��l-3eebb96279-86 f��l-3eebb96279-87 � >� KRKKKK[ios�  9v� 9v� VK� 9z� � � g��t-3eebb96279-76 � f��l-3eebb96279-8b � >� KRKKKK[ios�  9:v� KRKvKKK}K� 9v� � 9v� 9Ev� 9Gv� � VK� 9,z� � 9v� K� 9 z� � 9Qv� 9v� 9z� � � � � VK� 9z� g��future-completion g��%future-completion-procedure g��m-3eebb96279-92 <� � f��l-3eebb96279-94 � >M� KRKKKK[ios�  9Wv� V� 7� KRKvKKK}K� 9bv� V� 67� � f��l-3eebb96279-97 f��l-3eebb96279-98 � >� KRKKKK[ios�  9v� 9v� VK� 9,z� � � 9v� V� 67� f��l-3eebb96279-9c f��l-3eebb96279-9d � >� KRKKKK[ios�  9v� �9v� K� 9 z� �� � 9v� V� 67� f��l-3eebb96279-a1  f��l-3eebb96279-a2   �  > �   KRKKKK[ios�   9 v� 9 v� V K� 9z� � � g��t-3eebb96279-91 � f��l-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� 1g��each 277� 312� 473 574 675 7g�� %%set-fields 8g��dummy 9g��check? :g��expr ;89w:� <g��m-3eebb96279-ad =<<� >=� ?f��l-3eebb96279-b2 @f��l-3eebb96279-b3 Af��l-3eebb96279-b4 Bf��l-3eebb96279-b5 Cf��l-3eebb96279-b6 D?@ABC� E>;>D� F=� Gf��l-3eebb96279-af HG� I>MFH� Jg��t-1e8ba8b5a-16a Kg��t-1e8ba8b5a-16c Lg��t-1e8ba8b5a-16b MJKL� Ng��m-1e8ba8b5a-16d ON<� POOO� Qf��l-1e8ba8b5a-171 Rf��l-1e8ba8b5a-172 Sf��l-1e8ba8b5a-173 TQRS� U>MPT� Vf��l-1e8ba8b5a-167 Wf��l-1e8ba8b5a-168 Xf��l-1e8ba8b5a-169 YVWX� Z>~Y� [EKIRKUKKKZ�  \97[v� ]VEKI� ^9,]z� _9T]z� `9]z� a9/]z� b9]z� c9]z� d_`abc� eg��map fe� ge� hg��list ig��set-future-thunk! jg��%set-future-thunk!-procedure k677� lg��m-3eebb96279-c1 ml<� ng��t-3eebb96279-bf og��t-3eebb96279-c0 pno� qmm� rf��l-3eebb96279-c6 sf��l-3eebb96279-c7 trs� u>pqt� vm� wf��l-3eebb96279-c3 xw� y>Mvx� zmuKyRKKKK[ios�  {9:zv� |g��t-1e8ba8b5a-18c }g��t-1e8ba8b5a-18d ~|}� g��m-1e8ba8b5a-18e <� � f��l-1e8ba8b5a-192 f��l-1e8ba8b5a-193 � >~� g��setter ^w� f��l-1e8ba8b5a-186 f��l-1e8ba8b5a-187 f��l-1e8ba8b5a-188 � >� 2x� f��l-1e8ba8b5a-17d f��l-1e8ba8b5a-17e � >W� g�� field-specs � f��l-1e8ba8b5a-179 f��l-1e8ba8b5a-17a � >W� uKyRKKK� 9v� g��val 9v� � 9v� 9Ev� 9Gv� � VuKy� 9,z� � g�� struct-set! 9v� uKy� 9 z� � 9Qv� 9v� 9iz� � � � {� VKy� 9jz� g��set-future-state! g��%set-future-state!-procedure g��m-3eebb96279-d1 <� g��t-3eebb96279-cf g��t-3eebb96279-d0 � � f��l-3eebb96279-d6 f��l-3eebb96279-d7 � >� � f��l-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� g��set-future-result! g��%set-future-result!-procedure g��m-3eebb96279-e1 <� g��t-3eebb96279-df g��t-3eebb96279-e0 � � f��l-3eebb96279-e6 f��l-3eebb96279-e7 � >� � f��l-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� g��set-record-type-printer! g�� simple-format f��#<future ~a ~a ~s>  g��number->string  g��object-address  g��create-workers!  g�� make-mutex  g��make-condition-variable g��queued g��register-future! g��make-q g��%futures g��%futures-mutex g��%futures-available g��%futures-waiting g��make-parameter g��%nesting-level g��%max-nesting-level g�� with-mutex 7Ɍ 7 7 g��let g��m g��e0 g��e1  8� !g��m-3eebb96279-12b "!<� #"VVV� $f��l-3eebb96279-130 %f��l-3eebb96279-131 &f��l-3eebb96279-132 'f��l-3eebb96279-133 ($%&'� )> #(� *"� +f��l-3eebb96279-12d ,+� ->M*,� .V)K-� /9.z� 09L.z� 1g�� dynamic-wind 291.z� 39:.z� 4g�� lock-mutex 594.z� 650� 736� 8g��begin 998.z� :g�� unlock-mutex ;9:.z� <;0� =3<� >=� ?g��make-prompt-tag @g��%future-prompt Ag��enq! Bg��signal-condition-variable Cg��let/ec Dg��catch Eg�� parameter? FE� GE� Hg�� scm-error Ig��wrong-type-arg Jf�� parameterize Kf��Not a parameter: ~S Lg��done Mg�� alist-cons Ng��abort-to-prompt Og��throw Pg��process-future! Qg��q-empty? Rg��deq! Sg��started Tg��notify-completion Ug��process-one-future Vg��wait-condition-variable Wg��process-futures Xg��broadcast-condition-variable Yg�� partition Zg��error [Z� \Z� ]f��no matching pattern ^g��for-each _g�� provided? `g��threads ag��current-processor-count bg�� %worker-count cg��%workers dg��unfold eg��call-with-new-thread fg��1+ gg��%create-workers! h8`� ig��m-3eebb96279-259 ji<� kjV� lf��l-3eebb96279-25e mf��l-3eebb96279-25f nlm� o>hkn� pj� qf��l-3eebb96279-25b rq� s>Mpr� tVoKs� u9%tz� v9:tz�C�5������hHU����]4   "#(5�4+�>��"��G���,������h������]��C��������������g��thunk  �g��state  �g��mutex   �g�� completion   ��g��filenamef��ice-9/futures.scm 0 �   ��g��nameg��%%make-future-procedure�C-R401258��h������]��C�������g��t-3eebb96279-3  �g��t-3eebb96279-4  �g��t-3eebb96279-5   �g��t-3eebb96279-6   ��   ���C1��h���T���]L�6����L�������g��a  ��g��filenamef��ice-9/futures.scm  0 �  ���C6����h���D���]�L�6<�������g��filenamef��ice-9/futures.scm  0 �   ���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��ice-9/futures.scm 0 �  n ���C51R,ߨ��4�,>��"��G��� -i��,R,��������h���t���]�$���CC������l�������g��obj  ��g��filenamef��ice-9/futures.scm 0 �   ��g��nameg��%future?-procedure�CR40&25N������h���7���]��C������/�������g��t-3eebb96279-19  ��  ���C&�����h���T���]L�6����L�������g��a  ��g��filenamef��ice-9/futures.scm  0 �  ���C6����h���D���]�L�6<�������g��filenamef��ice-9/futures.scm  0 �   ���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��ice-9/futures.scm 0 �  n ���C5&R,ST��h���w���]�&��� C�6o�������g��s  ��g��filenamef��ice-9/futures.scm 0 �   ��g��nameg��%future-thunk-procedure�CUR40T25�����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-3eebb96279-25  ��  ���CT����h���T���]L�6����L�������g��a  ��g��filenamef��ice-9/futures.scm  0 �  ���C6����h���D���]�L�6<�������g��filenamef��ice-9/futures.scm  0 �   ���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��ice-9/futures.scm 0 �  � ���C5TR,S�����h���w���]�&��� C�6o�������g��s  ��g��filenamef��ice-9/futures.scm 0 �   ��g��nameg��%future-state-procedure�CR4025�����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-3eebb96279-40  ��  ���C����h���T���]L�6����L�������g��a  ��g��filenamef��ice-9/futures.scm  0 �  ���C6����h���D���]�L�6<�������g��filenamef��ice-9/futures.scm  0 �   ���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��ice-9/futures.scm 0 �  � ���C5R,S/�����h ���x���]�&��� C�6�������p�������g��s  ��g��filenamef��ice-9/futures.scm 0 �   ��g��nameg��%future-result-procedure�C0R40/25>EJ����h���:���]C�����2�������g��err  �g��s  ��  ���CMSX�h���:���]C�����2�������g��err  �g��s  ��  ���C[af�h���:���]C�����2�������g��err  �g��s  ��  ���C�����h���7���]��C������/�������g��t-3eebb96279-5b  ��  ���C/����h���T���]L�6����L�������g��a  ��g��filenamef��ice-9/futures.scm  0 �  ���C6����h���D���]�L�6<�������g��filenamef��ice-9/futures.scm  0 �   ���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��ice-9/futures.scm 0 �  � ���C5/R,S�����h ���w���]�&��� C�6�������o�������g��s  ��g��filenamef��ice-9/futures.scm 0 �   ��g��nameg��%future-mutex-procedure�CR4025�����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-3eebb96279-76  ��  ���C����h���T���]L�6����L�������g��a  ��g��filenamef��ice-9/futures.scm  0 �  ���C6����h���D���]�L�6<�������g��filenamef��ice-9/futures.scm  0 �   ���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��ice-9/futures.scm 0 �  � ���C5R,S�����h ���|���]�&��� C�6�������t�������g��s  ��g��filenamef��ice-9/futures.scm 0 �   ��g��nameg��%future-completion-procedure�CR4025��������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-3eebb96279-91  ��  ���C����h���T���]L�6����L�������g��a  ��g��filenamef��ice-9/futures.scm  0 �  ���C6����h���D���]�L�6<�������g��filenamef��ice-9/futures.scm  0 �   ���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��ice-9/futures.scm 0 �  � ���C5R40256\^dgh��������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��ice-9/futures.scm 0 �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5R,Si�������h ������]�&��� C�6�������������g��s  �g��val  ��g��filenamef��ice-9/futures.scm 0 �   ��g��nameg��%set-future-thunk!-procedure�CjR40i25k��h���T���]��C����L�������g��t-3eebb96279-bf  �g��t-3eebb96279-c0  ��  ���Ci�������h���T���]L�6����L�������g��a  ��g��filenamef��ice-9/futures.scm  0 �  ���C6����h���D���]�L�6<�������g��filenamef��ice-9/futures.scm  0 �   ���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��ice-9/futures.scm 0 �  n ���C5iR,S�h ������]�&��� C�6�������������g��s  �g��val  ��g��filenamef��ice-9/futures.scm 0 �   ��g��nameg��%set-future-state!-procedure�CR4025k��h���T���]��C����L�������g��t-3eebb96279-cf  �g��t-3eebb96279-d0  ��  ���C�������h���T���]L�6����L�������g��a  ��g��filenamef��ice-9/futures.scm  0 �  ���C6����h���D���]�L�6<�������g��filenamef��ice-9/futures.scm  0 �   ���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��ice-9/futures.scm 0 �  n ���C5R,S�h ������]�&��� C�6������������g��s  �g��val  ��g��filenamef��ice-9/futures.scm 0 �   ��g��nameg��%set-future-result!-procedure�CR4025k�h���T���]��C����L�������g��t-3eebb96279-df  �g��t-3eebb96279-e0  ��  ���C�������h���T���]L�6����L�������g��a  ��g��filenamef��ice-9/futures.scm  0 �  ���C6����h���D���]�L�6<�������g��filenamef��ice-9/futures.scm  0 �   ���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��ice-9/futures.scm 0 �  n ���C5R4i,i  ,ST� �������hP������]44�5 5�&��� "�� 4�5�&��� "�� 4�56�����������g��future  L�g��port  L��g��filenamef��ice-9/futures.scm ;  <  =  = "  =   >  3 ?  L < �  L ���C>��"��G��   ,����hP�����]4>���"��G��45�45���4>��"��G��C�����������g��thunk  K�g��mutex  4�g�� completion   4�g��future 4 K��g��filenamef��ice-9/futures.scm A  E   G   G +  F  & F $ . F  4 F  7 H �  K ��g��nameg�� make-futureg�� documentationf��Return 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%R4i5�R4 i5�R4 i5�RR4i 5R �R4025/02739>��������h0���\���]����C�������T�������g��dummy  )�g��m  )�g��e0   )�g��e1   )��  ) ���C�����h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/futures.scm d �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��mg��e0g��e1g��...���C5R4?i5�@R4AB:�h@������]4>��"��G��4�>��"��G��4>��"��G��6�������g��future  @��g��filenamef��ice-9/futures.scm r  t   u  ) v  @ w �  @ ��g��nameg��register-future!�CRCD@GHIJK,ST� �����hp������]�4�5$��"��4��>��"��G��� 4� 45�5Y4L�&��L� "�� 4L� 5>���ZCZF��������������g��t-3eebb96279-16a  i��g��filenamef��ice-9/futures.scm  � ( < � < A � 8 C � ( F � *�  i ���C4�����h���E���]�L�6=�������g��filenamef��ice-9/futures.scm � �   ���C:����h���E���]�L�6=�������g��filenamef��ice-9/futures.scm � �   ���C,S4����h���E���]�L�6=�������g��filenamef��ice-9/futures.scm � �   ���C:����h���E���]�L�6=�������g��filenamef��ice-9/futures.scm � �   ���Ci4���h���E���]�L�6=�������g��filenamef��ice-9/futures.scm � �   ���C:����h���E���]�L�6=�������g��filenamef��ice-9/futures.scm � �   ���CLABMN������h���N���]�L�E��F�������g��filenamef��ice-9/futures.scm � "  � $�   ���C�������h����] U���4LO�>��� X"�G��O�O�4O�>���"��G��VL&�� L "�� 4L5 O� O�4 O�>���"��G��VL&�� L �"��4L >��"��G��L&�� L  "��4L >��"��G��X4 O�>���"��G��&��  "�� 45O�O�4O�>���"��G��V&�� "�� 45&��*4L>��"��G��4>��"��G��"�� 4L5 X4O�>���"��G��4L�>�� X4O�>���"��G��"�� G��O�C������������g��cont  �g��future-to-wait  �g��x  % �g��x  f ��g��x   �g��results  ��g��filenamef��ice-9/futures.scm �  �  % �  N �  f �  � �  � �  � � , � �  � �  � �   �  8 �  ; � ! V �  W �  k �   �   �   �      �   � �   ���CO����h���N���]�L�@F�������g��filenamef��ice-9/futures.scm �   � �   ���C�������h���Z���-��1��3��O�C�������R�������g��args ��g��filenamef��ice-9/futures.scm � �  ���C,S���h`�����]�U��D4�O�5�&�� � "��4�>��"��G��XCXFGE�������g��future  _�g��tag  _�g��val  ! O�g��_  T _�g��results  T _��g��filenamef��ice-9/futures.scm y     �  ! �  W  �  _ ��g��nameg��process-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:P4�����h���E���]�L�6=�������g��filenamef��ice-9/futures.scm � �   ���C:����h���E���]�L�6=�������g��filenamef��ice-9/futures.scm � �   ���C4����h���E���]�L�6=�������g��filenamef��ice-9/futures.scm � �   ���C:����h���E���]�L�6=�������g��filenamef��ice-9/futures.scm � �   ���CT�����h����](45��$���C45�4�&�� � "�� 4�5>��"��G���&��� "�� 4�5 $��"�� $�� �&�� � "�� 4�564 �&�� � "�� 4�5>��"��G��4  >��"��G��4�&�� � "�� 4�5>��"��G���&��� "�� 4�5 &�B�&�� �  "��4�>��"��G��4 �&�� � "�� 4�5>��"��G��4�5$�� O�O�4O�>���"��G��V�&�� � "�� 4�5O�O�4O�>���"��G��V�&�� �  "��4�>��"��G��4�>��"��G��X4O�>���"��G��X4O�>���"��G��"���"��+4 �&�� � "�� 4�5>��"��G�� 6���������g��t �g��future  �g��key b �g��done?  | `�g��x   Y�g��x   @��g��filenamef��ice-9/futures.scm �  �  �   �   �   �  # �  @ �  K �  b �  � �  � � � � � �  � � � � � � � �  � �  �   � * " � % �  0 � + 1 �  K �  P �  m �  v �  | �   �   �   � #  �   �   � 3  �   �  ) �  B �  e �  j �   �   � �-   ��g��nameg��process-one-futureg�� documentationf��9Attempt to pick one future from the queue and process it.�CUR4QVU������hX������]�4>��"��G��"��745$��4>��"��G��"���4>���"��G��""������������g��filenamef��ice-9/futures.scm �  �   �   � # �  $ �  < �  O �  O � �  S ��g��nameg��process-futuresg�� documentationf��,Continuously process futures from the queue.�CWRX,SY\]�������h(���x���] �$����L�C4�56����p�������g��expr  %�g��w ��g��filenamef��ice-9/futures.scm �   �   � �  % ���C^A\]��������h(���x���] �$����64�56��p�������g��expr  '�g��x ��g��filenamef��ice-9/futures.scm �   �   � �  ' ���C� ����hX���0��]4�&�� � "�� 4�5>��"��G��4�O�>�� G�  6������(������g��future  R�g��waiting ? R�g�� remaining  ? R��g��filenamef��ice-9/futures.scm �  �   � % �  . �  B �  J �  R � �  R ��g��nameg��notify-completiong�� documentationf��9Notify futures and callers waiting that FUTURE completed.�CTR4Q:,S4����h���E���]�L�6=�������g��filenamef��ice-9/futures.scm � �   ���C:����h���E���]�L�6=�������g��filenamef��ice-9/futures.scm � �   ���CLVU�h �����]4>��"��G��45$��4>��"��G��L�&�� L� "�� 4L�5� �O� �O�4 �O�>���"��G��V L�&��L� "�� 4L� 5&��"��>4 L�&�� L� "�� 4L�5L�&�� L� "�� 4L�5>��X4 �O�>���"��G��CX4 �O�>���"��G��F4>���"��G��6��������������g��x L ��g��filenamef��ice-9/futures.scm �   �   �   �  � 4 �  L � t �  w �  � � � �  � � ' � � ' � �  � �  �  � �   ��g��nameg��work�C4,SL:S@/��hp�� ��]O��Q�"�<4�&�� � "�� 4�5>��"��G���&��� "�� 4�5$��/4�&�� � "�� 4�5>��"��G��"�� $��X4�&�� � "�� 4�5>��"��G��4 5� $�� �WG��"��t4>���"��G��" 4�&�� � "�� 4�5>��"��G��4 5� $�� �WG��"��4>���"��G��""�&�� � "�� 4� 56�������g��future  p�g��work p�g��key  X O��g��filenamef��ice-9/futures.scm �  �   �   �  6 �  A � X �  d �  i �  � �  � �  � �  � �  � �  � �  � � � �  � � �  �  �   �         &  *   1  9  L   O �  V  �  p ��g��nameg��touchg�� documentationf��>Return the result of FUTURE, computing it if not already done.�C'R4_i`5$�� 4ai5�"�� bRcR4���h���E���]�L�6=�������g��filenamef��ice-9/futures.scm  �   ���C:����h���E���]�L�6=�������g��filenamef��ice-9/futures.scm  �   ���Ccdb������h���^���]�CV�������g��i  ��g��filenamef��ice-9/futures.scm '   ' �   ���CeW��������h���^���]6V�������g��i  ��g��filenamef��ice-9/futures.scm (   ( �   ���Cf�����h���a���]�C����Y�������g��filenamef��ice-9/futures.scm + �   ��g��nameg��create-workers!�C � hx������]��O��O�4�O�>���"��G��V(��4 5  "��X4�O�>���"��G��CX4�O�>���"��G��F���������g��x  v��g��filenamef��ice-9/futures.scm     0 %  1 ' > &  B +  J  �  v ��g��nameg��%create-workers!�CgRg������h���j���]�6���b�������g��filenamef��ice-9/futures.scm .   . �   ��g��nameg��create-workers!�C R40$252uv���h���?���]��C7�������g��dummy  �g��body  ��   ���C��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/futures.scm 5 �  " ��g�� documentationf��Return a new future for BODY.g�� macro-typeg�� syntax-rulesg��patternsg��body���C5$RC�������g��m  ,�g��rtd  ��g��filenamef��ice-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 ���C6��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/deprecated.go���������������������������������������������������������������������������������0000644�����������������00000141470�15253700563�0010116 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0 ������][�4���h�;������]� g��guile � g��define-module* � � g��ice-9 g�� deprecated � g��filenameS f��ice-9/deprecated.scm g��exportsS g��substring-move-left! g��substring-move-right! g��dynamic-maybe-call g��dynamic-maybe-link g��try-module-linked g��try-module-dynamic-link g��list* g��feature? g�� eval-case g��unmemoize-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 'g��closure? (g��%nil )g��@bind *g�� bad-throw +g��error-catching-loop ,g��error-catching-repl -g��scm-style-repl .g�� apply-to-args /g�� has-suffix? 0g��scheme-file-suffix 1g�� get-option 2g��for-next-option 3g��display-usage-report 4g��transform-usage-lambda 5g��collect 6g��assert-repl-silence 7g��assert-repl-print-unspecified 8g��assert-repl-verbosity 9g��set-repl-prompt! :g��set-batch-mode?! ;g��repl <g��pre-unwind-handler-dispatch =g��default-pre-unwind-handler >g��handle-system-error ?g�� stack-saved? @g��the-last-stack Ag�� save-stack Bg��named-module-use! Cg��top-repl Dg��turn-on-debugging Eg��read-hash-procedures Fg��process-define-module Gg��fluid-let-syntax Hg��set-system-module! Ig��char-code-limit Jg��generalized-vector? Kg��generalized-vector-length Lg��generalized-vector-ref Mg��generalized-vector-set! Ng��generalized-vector->list O   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMN�C Pg��set-current-module QP� RP� Sg��issue-deprecation-warning Tf��E`substring-move-left!' is deprecated. Use `substring-move!' instead. Ug��substring-move! Vf��F`substring-move-right!' is deprecated. Use `substring-move!' instead. Wg��reverse Xg��string->symbol Yg�� substring Zg�� string-ref [g�� string-length \g��split-c-module-name ]g��map ^g��c-registered-modules _g��c-clear-registered-modules `g��convert-c-registered-modules ag��registered-modules bg��append! cg��register-modules df��3Autoloading of compiled code modules is deprecated. ef��7Write a Scheme file instead that uses `load-extension'. fg�� simple-format gf�� (You just autoloaded module ~S.) hg��warn-autoload-deprecation ig��or-map jg��delq! kg��resolve-module lg��save-module-excursion mg��set-module-public-interface! ng�� dynamic-call og��init-dynamic-module pf��%`dynamic-maybe-call' is deprecated.  qf��7Wrap `dynamic-call' in a `false-if-exception' yourself. rg��catch sr� tr� uf��%`dynamic-maybe-link' is deprecated.  vf��7Wrap `dynamic-link' in a `false-if-exception' yourself. wg�� dynamic-link xg�� string-append yf��lib zg��symbol->string {f��/ |f��� }f��_ ~f��scm_init g�� list->string �g��char-alphabetic? �g�� char-numeric? �g�� string->list �f��_module �g�� in-vicinity �g��try-using-libtool-name �g��try-using-sharlib-name �g�� file-exists? �g��link-dynamic-module �g�� %load-path �g��find-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. �g��cons* �f��3`feature?' is deprecated. Use `provided?' instead. �g�� provided? �g��make-syntax-transformer �� �� �g��macro �g�� $sc-dispatch �� �� �g��_ �g��any � �g�� syntax->datum �� �� �g�� datum->syntax �� �� �f��4`eval-case' is deprecated. Use `eval-when' instead. �g�� assoc-ref �g�� load-toplevel �� �g��begin �g�� *unspecified* �g��else �� �g��syntax-violation �� �� �f��-source expression failed to match any pattern �g��read-hash-extend �f��=The `#y' bytevector syntax is deprecated. Use `#s8' instead. �g��read �g��list->s8vector �g��error �f��!#y needs to be followed by a list �f��C`unmemoize-expr' is deprecated. Use `unmemoize-expression' instead. �g��unmemoize-expression �f��-`$asinh' is deprecated. Use `asinh' instead. �g��asinh �f��-`$acosh' is deprecated. Use `acosh' instead. �g��acosh �f��-`$atanh' is deprecated. Use `atanh' instead. �g��atanh �f��+`$sqrt' is deprecated. Use `sqrt' instead. �g��sqrt �f��)`$abs' is deprecated. Use `abs' instead. �g��abs �f��)`$exp' is deprecated. Use `exp' instead. �g��exp �f��+`$expt' is deprecated. Use `expt' instead. �g��expt �f��)`$log' is deprecated. Use `log' instead. �g��log �f��)`$sin' is deprecated. Use `sin' instead. �g��sin �f��)`$cos' is deprecated. Use `cos' instead. �g��cos �f��)`$tan' is deprecated. Use `tan' instead. �g��tan �f��+`$asin' is deprecated. Use `asin' instead. �g��asin �f��+`$acos' is deprecated. Use `acos' instead. �g��acos �f��+`$atan' is deprecated. Use `atan' instead. �g��atan �f��+`$sinh' is deprecated. Use `sinh' instead. �g��sinh �f��+`$cosh' is deprecated. Use `cosh' instead. �g��cosh �f��+`$tanh' is deprecated. Use `tanh' instead. �g��tanh �f��3`closure?' is deprecated. Use `procedure?' instead. �g�� procedure? �g��bound-identifier=? �f��1`@bind' is deprecated. Use `with-fluids' instead. �g��each-any �ތ �ߌ � �g�� syntax-object �g��let �g��top �� �g��ribcage �g��b0 �g��b1 �� �� �f��l-2f788c0406b05c-348 �f��l-2f788c0406b05c-349 �� �� �g�� bound-member �� �� �f��l-2f788c0406b05c-33d �� �� �g��x �� �� �f��l-2f788c0406b05c-33c �� �� �� �g��hygiene �� �� �g��each �� �� ߌ  g��and-map g�� identifier? f��duplicate bound identifier g��generate-temporaries �  �  g��old-v  g��v    �  f��l-2f788c0406b05c-368 f��l-2f788c0406b05c-369  �  � g��id g��val � � f��l-2f788c0406b05c-357 f��l-2f788c0406b05c-358 f��l-2f788c0406b05c-359 f��l-2f788c0406b05c-35a � �  � � g��append � �  ]� !]� "g��list #g�� dynamic-wind $#� %g��lambda &%� 'g��set! ('� )g�� make-module *g��set-module-name! +g��%app ,+� -g��module-define-submodule! .g��the-root-module /g��app 0g��modules 1g��module-public-interface 2g��and=> 3g��module-local-variable 4g��%module-public-interface 5g�� variable-ref 6f��Setting a module's public interface via munging %module-public-interface is deprecated. Use set-module-public-interface! instead. 7g��module-define! 8f��m`bad-throw' in the default environment is deprecated. Find it in the `(ice-9 scm-style-repl)' module instead. 9-� :9*� ;9*� <f��w`error-catching-loop' in the default environment is deprecated. Find it in the `(ice-9 scm-style-repl)' module instead. =9+� >9+� ?f��w`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-� Ef��D`apply-to-args' is deprecated. Include a local copy in your program. Ff��J`has-suffix?' is deprecated. Use `string-suffix?' instead (args reversed). Gg��string-suffix? Hf��C`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 Mg��symbol->keyword Ng��member Og�� usage-error Pf��- Qf��C`for-next-option' is deprecated. Use `(ice-9 getopt-long)' instead. Rf��H`display-usage-report' is deprecated. Use `(ice-9 getopt-long)' instead. Sg��for-each Tg��string? Uf��< Vf��> Wg��with-output-to-string Xg��display Yg��keyword->symbol Zf��  [g�� make-string \f��  ]g��newline ^g��car _g��boolean? `g��%display-usage ag��quote bg��%argv cb� dg�� %next-arg ebb� fe� gg��%opt hg��%arg ig�� %new-argv jghi� kg��case lf��,`collect' is deprecated. Define it yourself. m� nf��l-2f788c0406b05c-442 on� po� q p� raq� sr� tߌ ug��x* vu� wf��l-2f788c0406b05c-446 xf��l-2f788c0406b05c-447 ywx� zvy� {z p� |{� }{� ~g��cons ~{� 5{� f��<`assert-repl-silence' has moved to `(ice-9 scm-style-repl)'. 96� 96� f��F`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� f��h`set-repl-prompt!' is deprecated. Use `repl-default-prompt-set!' from the `(system repl common)' module. g�� module-ref g��resolve-interface g��system g��common ;� g��repl-default-prompt-set! f��C`set-batch-mode?!' is deprecated. Use `ensure-batch-mode!' instead. g��ensure-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. g��current-input-port f��u`pre-unwind-handler-dispatch' is deprecated. Use `default-pre-unwind-handler' from `(ice-9 scm-style-repl)' directly. 9=� 9=� f��a`default-pre-unwind-handler' is deprecated. Use it from `(ice-9 scm-style-repl)' if you need it. f��Z`handle-system-error' is deprecated. Use it from `(ice-9 scm-style-repl)' if you need it. 9>� 9>� g��make-variable-transformer f��N`stack-saved?' is deprecated. Use it from `(ice-9 save-stack)' if you need it. g��free-id f��l-2f788c0406b05c-46d � �  � '� � � g��@ � f��l-2f788c0406b05c-47b � �  � � � A� � ?� � � f��l-2f788c0406b05c-474 f��l-2f788c0406b05c-475 � �  � '� � � A� � ?� � f��P`the-last-stack' is deprecated. Use it from `(ice-9 save-stack)' if you need it. f��l-2f788c0406b05c-483 � � f��l-2f788c0406b05c-47e � �  � � � A� � @� � f��L`save-stack' is deprecated. Use it from `(ice-9 save-stack)' if you need it. A� A� A� f��E`named-module-use!' is deprecated. Define it yourself if you need it. g�� module-use! f��6`top-repl' has moved to the `(ice-9 top-repl)' module. C� g�� debug-enable g��memq g��debug f��6`(debug-enable 'debug)' is obsolete and has no effect. f��Remove it from your code. g��delq 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. g��read-hash-procedures-warning � � g��m-2f788c0406b05c-48f � � f��l-2f788c0406b05c-491 � � g��shift g��exp1 g��var g��exp2 � � f��l-bde397a-1bec f��l-bde397a-1bed f��l-bde397a-1bee f��l-bde397a-1bef f��l-bde397a-1bf0 � � g��xx � f��l-bde397a-1bda � �   � � �'� �� � g��expr � f��l-2f788c0406b05c-494 � �  �  �  �   �  g�� fluid-set!   � g��%read-hash-procedures � ތ f��l-2f788c0406b05c-497 � �  � � � � g�� fluid-ref � � � � � �  �  � !� "� #"� $� %� &$%� '!#&� (f��E`process-define-module' is deprecated. Use `define-module*' instead. )g��pureS *g��versionS +g�� duplicatesS ,g�� transformerS -g��importsS .g��reverse! /g�� re-exportsS 0g�� replacementsS 1g�� autoloadsS 2g�� use-moduleS 3g�� use-syntaxS 4f��)missing argument to define-module keyword 5g��syncase 65� 7f��L(ice-9 syncase) is deprecated. Support for syntax-case is now in Guile core. 8g��autoloadS 9g�� no-backtraceS :g��exportS ;g�� export-syntaxS <g�� re-exportS =g��re-export-syntaxS >g��replaceS ?g��replace-syntaxS @f��#unrecognized define-module argument Af��A`fluid-let-syntax' is deprecated. Use syntax parameters instead. Bg��syntax-parameterize Cg��k Dg��body0 Eg��body FC DE� Gf��l-2f788c0406b05c-4ed Hf��l-2f788c0406b05c-4ee If��l-2f788c0406b05c-4ef Jf��l-2f788c0406b05c-4f0 KGHIJ� LFK� Mf��l-2f788c0406b05c-4ea NM� ON� PL O� QBP� Rf��9`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. Vg��set-procedure-property! Wg��module-eval-closure Xg�� system-module Yf��T`module-eval-closure' is deprecated. Use module-variable or module-define! instead. Zg��standard-eval-closureC�5���hp��.��]4   O5�4R�>��"��G���STU������h(������-��1��3�4>��"��G���@��������������g��args !��g��filenamef��ice-9/deprecated.scm T  U   V   U  ! W � ! ��g��nameg��substring-move-left!�C RSVU������h(������-��1��3�4>��"��G���@��������������g��args !��g��filenamef��ice-9/deprecated.scm Y  Z   [   Z  ! \ � ! ��g��nameg��substring-move-right!�C RWXYZ[�h���x��]!"��k$��44�5564�5 &��'44�55"" 4�5"�p������g��str  ��g��rev  q�g��start   q�g��pos   q�g��end   q��g��filenamef��ice-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 �  � ��g��nameg��split-c-module-name�C\R]\����h������]4�5�L��C�����w�������g��c  ��g��filenamef��ice-9/deprecated.scm t   u   u / u  u 8  u �   ���C^_��h(������] 4�O�45�54>���"��G��C�������g��dynobj  (�g��res  (��g��filenamef��ice-9/deprecated.scm s  t v   t  t   w �  ( ��g��nameg��convert-c-registered-modules�C`RaRb`a���h������]44�55 C�����������g��dynobj  ��g��filenamef��ice-9/deprecated.scm |  ~   ~   ~   } �   ��g��nameg��register-modules�CcRSdefg�������h(������]4>��"��G��4�56�����������g��modname  $��g��filenamef��ice-9/deprecated.scm �  �   �  �   �   �   �  " �  $ � �  $ ��g��nameg��warn-autoload-deprecation�ChRcihjaklPmn��������h8���u���]�4L>��"��G��4LL>��"��G��L�L�6���m�������g��filenamef��ice-9/deprecated.scm �   �   �  - � % 1 � 4 5 � �  5 ���C��������hP������] �L�$��B4L�>��"��G��4�5 4L�54�O�>��"��G��CC�������g��modinfo  P�g��mod 1 N��g��filenamef��ice-9/deprecated.scm �  �   �  � �   � + ) �  * �  1 �  4 � �  P ���Ca����h ������]4>��"��G���O�6�������g��modname  ��g��filenamef��ice-9/deprecated.scm �  �  � �  ��g��nameg��init-dynamic-module�CoRSpqtn�������h���Q���]�LL�6������I�������g��filenamef��ice-9/deprecated.scm �  � �  ���C�����h���]���-��1��3�C�����U�������g��args ��g��filenamef��ice-9/deprecated.scm � � ���C��������h(������]4>��"��G���O�6���������g��name  &�g��dynobj  &��g��filenamef��ice-9/deprecated.scm �  �   �  �   �  & � �  & ��g��nameg��dynamic-maybe-call�CRSuvtw����h���Q���]�L�6I�������g��filenamef��ice-9/deprecated.scm �   � �   ���C�����h���]���-��1��3�C�����U�������g��args ��g��filenamef��ice-9/deprecated.scm � � ���C��������h(������]4>��"��G���O�6�����������g��filename  $��g��filenamef��ice-9/deprecated.scm �  �   �  �   �  $ � �  $ ��g��nameg��dynamic-maybe-link�CRxyz{|]x}z����h���s���]4�56�k�������g��s  ��g��filenamef��ice-9/deprecated.scm � *  � ;  � ;  � ,�   ���C~�h0������] 4�5$��"��4�5$���C_C�������������g��c  *�g��t ��g��filenamef��ice-9/deprecated.scm � &  � 0 � ,  � 0 $ � (�  * ���C���h�����]9"��9(��4455"��(4455"�"44�5?44 4 4 555 5"��g(��C4 545$��"�� 45"�� "$��45$��6"""�����w������g�� module-name  ��g��dirs  ?�g��syms   ?�g��mod-name Y z�g��subdir-and-libname z ��g��init  z ��g��subdir  � ��g��libname  � ��g��dir-list  � ��g��dir  � ��g��t  � ��g�� sharlib-full  � ��� g��filenamef��ice-9/deprecated.scm �  � �  �  �   � )  � /  � ?  � /  �   �  $ �  ) � ) . � 9 0 � ) 2 � E 4 �  7 �  ? �  ? � A �  K � L �  O � % Y �  Y �  \ �  ` �  a �  d � ! i � & q � ! s �  u �  w �  z �  � �  � �  � �  � �  � �  � �  � � % � �  � � � �  � �  � �  � � � �  � �  � �  � � $ � �  � �  � � �9  � ��g��nameg��find-and-link-dynamic-module�CRx��h(������] 4�45545$��CC�����������g��libdir  $�g��libname  $�g��libtool-filename   $��g��filenamef��ice-9/deprecated.scm �  �   � '  � >  � '  �   �   �  � �  $ ��g��nameg��try-using-libtool-name�CRx�h������]�456��������������g��libdir  �g��libname  ��g��filenamef��ice-9/deprecated.scm �  �  � -  �   � �   ��g��nameg��try-using-sharlib-name�CRcwn���h8������] 4>��"��G��4�54>��"��G��6���������g��filename  6�g��initname  6�g��dynobj   6��g��filenamef��ice-9/deprecated.scm �  �   �   �   �  6 � �  6 ��g��nameg��link-dynamic-module�CRSo����h ������]4>��"��G���6�����������g�� module-name  ��g��filenamef��ice-9/deprecated.scm �  �   �  �   �   � �   ��g��nameg��try-module-linked�CRSo���h0������]4>��"��G��4�5$���6C��������������g�� module-name  )��g��filenamef��ice-9/deprecated.scm �  �   �  �   �   �  ! �  ' � �  ) ��g��nameg��try-module-dynamic-link�CRS�������h(������-��1��3�4>��"��G���@��������������g��args !��g��filenamef��ice-9/deprecated.scm � �   �   �  ! � � ! ��g��nameg��list*�CRS�h ������]4>��"��G���6�������������g��sym  ��g��filenamef��ice-9/deprecated.scm �  �   �  �   � �   ��g��nameg��feature?�CR4S� �����hX������-��1��3�4>��"��G��4�5$�� C4�5$�� CC�������������g��clauses R�g��t $ R�g��t  > R��g��filenamef��ice-9/deprecated.scm � �   �   �     "   $   $   .  6   <   >   >   H  Q  � R ���C���h���i���] 4�5L�4?6a�������g��args  �g��v ��g��filenamef��ice-9/deprecated.scm  � �   ���C��������h(���g���] 4�5$�� �O�@�6�_�������g��y  '�g��tmp '��g��filenamef��ice-9/deprecated.scm � �  ' ���C5R4iyS�����h8������] 4>��"��G��45$��66�������������g��c  2�g��port  2�g��x   2��g��filenamef��ice-9/deprecated.scm                 $   *   .   2  �  2 ���C>��"��G��S�������h(������-��1��3�4>��"��G���@��������������g��args !��g��filenamef��ice-9/deprecated.scm          !  � ! ��g��nameg��unmemoize-expr�CRS��������h ������]4>��"��G���6�������������g��z  ��g��filenamef��ice-9/deprecated.scm      !     " �   ��g��nameg��$asinh�CRS�����h ������]4>��"��G���6�������������g��z  ��g��filenamef��ice-9/deprecated.scm #  $   %  $   & �   ��g��nameg��$acosh�CRS�����h ������]4>��"��G���6�������������g��z  ��g��filenamef��ice-9/deprecated.scm '  (   )  (   * �   ��g��nameg��$atanh�CRS�����h ������]4>��"��G���6�������������g��z  ��g��filenamef��ice-9/deprecated.scm +  ,   -  ,   . �   ��g��nameg��$sqrt�CRS������h ������]4>��"��G���6�������������g��z  ��g��filenamef��ice-9/deprecated.scm /  0   1  0   2 �   ��g��nameg��$abs�CRS�������h ������]4>��"��G���6�������������g��z  ��g��filenamef��ice-9/deprecated.scm 3  4   5  4   6 �   ��g��nameg��$exp�CRS�������h ������]4>��"��G���6�����������g��z1  �g��z2  ��g��filenamef��ice-9/deprecated.scm 7  8   9  8   : �   ��g��nameg��$expt�CRS�����h ������]4>��"��G���6�������������g��z  ��g��filenamef��ice-9/deprecated.scm ;  <   =  <   > �   ��g��nameg��$log�CRS�������h ������]4>��"��G���6�������������g��z  ��g��filenamef��ice-9/deprecated.scm ?  @   A  @   B �   ��g��nameg��$sin�CRS�������h ������]4>��"��G���6�������������g��z  ��g��filenamef��ice-9/deprecated.scm C  D   E  D   F �   ��g��nameg��$cos�CRS�������h ������]4>��"��G���6�������������g��z  ��g��filenamef��ice-9/deprecated.scm G  H   I  H   J �   ��g��nameg��$tan�C RS�������h ������]4>��"��G���6�������������g��z  ��g��filenamef��ice-9/deprecated.scm K  L   M  L   N �   ��g��nameg��$asin�C!RS������h ������]4>��"��G���6�������������g��z  ��g��filenamef��ice-9/deprecated.scm O  P   Q  P   R �   ��g��nameg��$acos�C"RS������h ������]4>��"��G���6�������������g��z  ��g��filenamef��ice-9/deprecated.scm S  T   U  T   V �   ��g��nameg��$atan�C#RS������h ������]4>��"��G���6�������������g��z  ��g��filenamef��ice-9/deprecated.scm W  X   Y  X   Z �   ��g��nameg��$sinh�C$RS������h ������]4>��"��G���6�������������g��z  ��g��filenamef��ice-9/deprecated.scm [  \   ]  \   ^ �   ��g��nameg��$cosh�C%RS������h ������]4>��"��G���6�������������g��z  ��g��filenamef��ice-9/deprecated.scm _  `   a  `   b �   ��g��nameg��$tanh�C&RS������h ������]4>��"��G���6�������������g��x  ��g��filenamef��ice-9/deprecated.scm d  e   f  e   g �   ��g��nameg��closure?�C'R(R4)���h8������] (��C4�5$��C4L�5$��CC�������������g��id  2�g��ids  2�g��t  % 2��g��filenamef��ice-9/deprecated.scm p   q  r  r $  r  q   s s  # s % % s % q �  2 ��g��nameg�� bound-member�CS������h���:���]�C���2�������g��b0  �g��b1  ��  ���C�����h������]�6�������������g��id  �g��val  �g��b0   �g��b1   ��g��filenamef��ice-9/deprecated.scm | �  ���C)!"$&(���h���b���]��C����Z�������g��tmp-2f788c0406b05c-371  �g��tmp-2f788c0406b05c-370  ��  ���C(�������h���b���]��C����Z�������g��tmp-2f788c0406b05c-374  �g��tmp-2f788c0406b05c-373  ��  ���C� ��hX���<���]44�L54L554L5LL�4�L5��C������4�������g��old-v  R�g��v  R��  R ���C� ����h���U��]"��((��"��%4L5$��"��"�"$�� L�64�54�5�45$���O�@ 6������M������g��id  ��g��val  ��g��b0   ��g��b1   ��g��ids   .�g��tmp  U ��g��tmp  ` ���g��filenamef��ice-9/deprecated.scm  } ~      "   ,    ~ (   .   . } : }  >   @  $ D  E  & L  " U  �  � ���C� �������hx������]O�Q�4>��"��G��4�5$��@4�5"��  �6$��4 ?$��  �O�@""���������g��x  v�g�� bound-member v�g��tmp  * v�g��tmp  A v��g��filenamef��ice-9/deprecated.scm o   u   v   u �  v ���C5)R4)i 5�4*i�,>��"��G��4-i.i+�>��"��G��4-i.i/�>��"��G��4-i�04ki5>��"��G���1i�2345S6m�����hX������] 4L��5$��C44�55$��)4>��"��G��4�>��"��G��CC��������g��mod  W�g��t W�g��t $ W��g��filenamef��ice-9/deprecated.scm               2   $   $   -   1  6   ?  �  W ���C�O��1imi�74��h ������]4L��>��"��G���6�������g��mod  �g��iface  ��g��filenamef��ice-9/deprecated.scm         �  ���C�O��miS8;��������h(������-�1�3�4>��"��G���@������������g��key #�g��args #��g��filenamef��ice-9/deprecated.scm          #  � # ��g��nameg�� bad-throw�C*RS<>���h ������]4>��"��G���6�������������g��thunk  ��g��filenamef��ice-9/deprecated.scm               �   ��g��nameg��error-catching-loop�C+RS?A�h ������]4>��"��G���6���������g��r  �g��e  �g��p   ��g��filenamef��ice-9/deprecated.scm               �   ��g��nameg��error-catching-repl�C,RSBD�������h������]�4>��"��G��6��������g��filenamef��ice-9/deprecated.scm               �   ��g��nameg��scm-style-repl�C-RSE�����h ������]4>��"��G���@�������������g��args  �g��fn  ��g��filenamef��ice-9/deprecated.scm            �   ��g��nameg�� apply-to-args�C.RSFG�h ������]4>��"��G���6�����������g��str  �g��suffix  ��g��filenamef��ice-9/deprecated.scm            �   ��g��nameg�� has-suffix?�C/RSHI��������h������]�4>��"��G��C��������g��filenamef��ice-9/deprecated.scm             �   ��g��nameg��scheme-file-suffix�C0RSJZ[KLMYNOxP� ������h��L��],�H�4>��"��G��J�(��J�6-4J� 5$��"�� 4J�5 $�� J�J�6-4J� 5&��4J�=5$��"��4J�544J� 554 54 54J�5&��"��4J�4J�55$��"��$�� J�K�J�"��$��"��$�� J�6 J�64J� 5454 5$��@4J� 4J�55 45$��J�"�� 4  5J�64 5$��Q4J� 4J�55 45$��J�"�� 45$��J�"��J�6 J�6D������g��argv  �g��kw-opts  �g��kw-args   �g��return   �g��t  3 M�g��t  v ��g�� kw-arg-pos  � -�g��kw  � -�g��kw-opt?  � -�g��kw-arg?  � -�g��t  � �g��arg   -�g��char  8 �g��kw  A �g��rest-car  b �g��new-argv   �g��rest-car   �g��arg   �g��new-argv   ��g��filenamef��ice-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   ��g��nameg�� get-option�C1RSQ1������h������]�$�� L��L6C���������g��opt  �g��opt-arg  �g��argv   ��g��filenamef��ice-9/deprecated.scm (   )   ) �   ���C��h���u���]�LLLL�O�6���m�������g��argv  ��g��filenamef��ice-9/deprecated.scm &   ' �   ��g��nameg��loop�C1�������h������]�$�� L��L6C���������g��opt  �g��opt-arg  �g��argv   ��g��filenamef��ice-9/deprecated.scm (   )   ) �   ���C��h@������] 4>��"��G��O��Q��O�6����������g��proc  =�g��argv  =�g��kw-opts   =�g��kw-args   =�g��loop   =��g��filenamef��ice-9/deprecated.scm #  $   %  $   &  = ' �  = ��g��nameg��for-next-option�C2RSRSTxUV|W]XYZ��������h ������]44�5>��"��G��6�}�������g��x  ��g��filenamef��ice-9/deprecated.scm < %  < 1  < :  < 1  < X  < O�   ���C��������h���Q���]�L�6������I�������g��filenamef��ice-9/deprecated.scm ;  < �  ���C[[\X]������h�����]1�$��C�$��C��45$��"��45$��45"��44O�554 5 $��)4 5 ($��4 4 5 5"�� "�� 4 >��"��G��4 >��"��G��4 >��"��G�� 6��������g��kw  ��g��t  ��g��t  ��g��help ' ��g��opts  , ��g�� opts-proper  C ��g��arg-name  c ��g�� left-part  x ��g�� middle-part  � ��� g��filenamef��ice-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  � ���C����h ������]4>��"��G���6�����������g��kw-desc  ��g��filenamef��ice-9/deprecated.scm +  ,   -  ,   . �   ��g��nameg��display-usage-report�C3RSRj]^_�����hX������] �$��"���$���$��"���C�$��C4�5$��"��$��C�C�������������g��x  R�g��t ' R�g��t D R��g��filenamef��ice-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 ���CT�����h���|���]4�5$��C�C�����t�������g��x  ��g��filenamef��ice-9/deprecated.scm U %  U ;  U D U ;  U 1�   ���CT�����h������]4�5$���CC����}�������g��x  ��g��filenamef��ice-9/deprecated.scm V %  V 6  V ? V 6  V 1  V H�   ���C_T�������hp���A��]�45$��"��$��"��8$��"��*45$��"��45$��"���C���9������g��case  m�g��opts  h�g��t   #��g��filenamef��ice-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`%3acdf1bjkg��������h�����]94>��"��G��44�5545454544 5?44 5?4 �5  ����� �������C���������g��cases  ��g�� raw-usage $ ��g��usage-sans-specials  / ��g�� usage-desc  9 ��g��kw-desc  D ��g��kw-opts  T ��g��kw-args  d ��g��transmogrified-cases  o ���g��filenamef��ice-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 �  � ��g��nameg��transform-usage-lambda�C4R45Slms����h������]�C����������   ���Ct|}����h ���9���]�����C��1�������g��x  �g��x*  ��   ���C� �������hP������]4>��"��G��4�5$��@4�5$��@ �6������������g��x  K�g��tmp  K�g��tmp  4 K��g��filenamef��ice-9/deprecated.scm u   v   w  v �  K ���C55RS���h ������]4>��"��G���6�������������g��v  ��g��filenamef��ice-9/deprecated.scm               �   ��g��nameg��assert-repl-silence�C6RS�����h ������]4>��"��G���6�������������g��v  ��g��filenamef��ice-9/deprecated.scm               �   ��g��nameg��assert-repl-print-unspecified�C7RS���h ������]4>��"��G���6�������������g��v  ��g��filenamef��ice-9/deprecated.scm               �   ��g��nameg��assert-repl-verbosity�C8RS��h(������]4>��"��G��4455�6���������g��v  &��g��filenamef��ice-9/deprecated.scm                  "      "   &  �  & ��g��nameg��set-repl-prompt!�C9RS��������h8������]�$��4>��"��G��6�4>��"��G��C�������������g��arg  2��g��filenamef��ice-9/deprecated.scm                  #   (  �  2 ��g��nameg��set-batch-mode?!�C:RS���hP���6��] 4>��"��G��"��'445>��"��G��4�45�5"4�45�5"�.������g��read  O�g��evaler  O�g��print   O�g��source   ?��g��filenamef��ice-9/deprecated.scm                  '   0  3   9  ?   ?   @   C   I   O  �  O ��g��nameg��repl�C;RS���h(������-�1�3�4>��"��G���@������������g��key #�g��args #��g��filenamef��ice-9/deprecated.scm          #  � # ��g��nameg��pre-unwind-handler-dispatch�C<RS�h(������-�1�3�4>��"��G���@������������g��key #�g��args #��g��filenamef��ice-9/deprecated.scm          #  � # ��g��nameg��default-pre-unwind-handler�C=RS��h(������-�1�3�4>��"��G���@������������g��key #�g��args #��g��filenamef��ice-9/deprecated.scm          #  � # ��g��nameg��handle-system-error�C>R4?4iS������h���Z���]�6R�������g��id  ��g��filenamef��ice-9/deprecated.scm   �   ���C�������h���*���]C���"�������g��id  ��   ���C���h���k���]�6c�������g��id  �g��val  ��g��filenamef��ice-9/deprecated.scm   �   ���C���h���;���]�C����3�������g��id  �g��val  ��  ���C� �hh������]4>��"��G��4�5"��!��4?$��@�6$��4 ?$�� @""������������g��x  c�g��tmp  c�g��tmp  ( D��g��filenamef��ice-9/deprecated.scm          �  c ���C55?R4@S�h���Z���]�6R�������g��id  ��g��filenamef��ice-9/deprecated.scm   �   ���C�������h���*���]C���"�������g��id  ��   ���C�������h8������] 4>��"��G����4?$��@�6���{�������g��x  5�g��tmp  5��g��filenamef��ice-9/deprecated.scm          �  5 ���C5@RS����h(������-��1��3�4>��"��G���@��������������g��args !��g��filenamef��ice-9/deprecated.scm          !  � ! ��g��nameg�� save-stack�CARSk�����h(������]4>��"��G��4�5456���������g��user  &�g��usee  &��g��filenamef��ice-9/deprecated.scm               % &  �  & ��g��nameg��named-module-use!�CBRSkC��h(������]�4>��"��G��44556������������g��filenamef��ice-9/deprecated.scm                       2 "   $  �  $ ��g��nameg��top-repl�CCRi�S���h@������-��1��3�4�5$��!4>��"��G��L�4�5@L��@����������g��opts =��g��filenamef��ice-9/deprecated.scm                      "   -  $ 1  * 5  $ 7   =  � = ���C�O��iS�h0������]�4>��"��G��4>��"��G��6���������g��filenamef��ice-9/deprecated.scm                     ,   .  �  . ��g��nameg��turn-on-debugging�CDRS���h������]�6�������������g��filenamef��ice-9/deprecated.scm         �  ��g��nameg��read-hash-procedures-warning�CR4E4   ��������h���,���]���C�����$�������g��expr  ��   ���C��h���)���]�C!�������g��x  ��   ���C �������h���I���]�6A�������g��filenamef��ice-9/deprecated.scm  � �   ���C'��������h������]�C����������   ���C� ���hh������]4�5$��@4�5$��@4�5"�� �6$��4 ?$�� @""��������g��x  g�g��tmp g�g��tmp  " g�g��tmp  9 g��g��filenamef��ice-9/deprecated.scm � �  g ��g�� macro-typeg��variable-transformer�C55ERS( )*+,-. /012346789:;<=>?@�������hX����]y4>��"��G���HHHHH"�(��3JJJJJ 4 5       6  $��"�� $��$��"�� 4>��"��G��$��04>��"��G��        "B &��K"���        "  $��n$�� "��$��"�� 4>��"��G��        " $��        "n $�� K        "E $��R$��"�� 4>��"��G��K        " $��K$��"�� 4>��"��G��K        " $��"�� $��U$��"�� 4>��"��G��4 5       "* $��"�� $��U$��"�� 4>��"��G�� 4 5      " $��"�� $��U$��"�� 4>��"��G��  4 5     "R $��R$��"�� 4>��"��G��K        "6�    "���������g��args  U�g��name  U�g��filename   U�g��pure?   U�g��version   U�g�� duplicates   U�g�� transformer   U�g��kws  , =�g��imports  , =�g��exports , =�g�� re-exports , =�g�� replacements , =�g�� autoloads , =�g��key h =�g��t  � ��g��kw  � ��g�� iface-spec  � !�g��t  < f�g��kw  J c�g��name  o �g��bindings  o �g��t   �g��kw   �g��kw  Y r�g��t   �g��kw   �g��t   G�g��kw  + D�g��t   �g��kw   �g��t   �g��kw   �� g��filenamef��ice-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 ��g��nameg��process-define-module�CFR4GSAQ!"���h���]���]4�5C�U�������g��k  �g��v  �g��body0   �g��body   ��   ���C����h8������] 4>��"��G��4�5$��@�6����{�������g��x  4�g��tmp  4��g��filenamef��ice-9/deprecated.scm q   r   s  r �  4 ���C5GRSRS����h ������]4>��"��G���6�������������g��port  ��g��filenamef��ice-9/deprecated.scm y  z   {  z   | �   ��g��nameg�� close-io-port�CTRSUVWX��h(������]4>��"��G��4�56������������g��m  #�g��s  #��g��filenamef��ice-9/deprecated.scm ~              3 #  �  # ��g��nameg��set-system-module!�CHRSYZ������h ������]4>��"��G���6�������������g��m  ��g��filenamef��ice-9/deprecated.scm            �   ��g��nameg��module-eval-closure�CWi �IRC�������&������g��m  (�g��%app 5e 5�g��getter 5 7I�g��setter 7R 8�g�� debug-enable j kJ��g��filenamef��ice-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 ���C6���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/and-let-star.go�������������������������������������������������������������������������������0000644�����������������00000016126�15253700563�0010310 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0>������]��4�����h ������]� g��guile � g��define-module* � � g��ice-9 g�� and-let-star � g��filenameS f��ice-9/and-let-star.scm g��exportsS g��and-let*  � g��set-current-module � � g��make-syntax-transformer � � g�� %and-let* g��macro g�� $sc-dispatch � � g��_ g��any    g�� syntax-object g��begin g��top ! � "g��ribcage #g�� orig-form $g��body %#$� &!!� 'f��l-1706b9545eb5b006-4 (f��l-1706b9545eb5b006-5 )'(� *"%&)� +"� ,g��form -,� .!� /f��l-1706b9545eb5b006-1 0/� 1"-.0� 2!*+1� 3g��hygiene 43� 524� 624� 7� 8 978 :9 ;: <; =� >=8 ?> @? A@ Bg��and Cg��expr Dg��rest Eg��rest* F#CDE$� G!!!!!� Hf��l-1706b9545eb5b006-22 If��l-1706b9545eb5b006-23 Jf��l-1706b9545eb5b006-24 Kf��l-1706b9545eb5b006-25 Lf��l-1706b9545eb5b006-26 MHIJKL� N"FGM� O!N+1� PBO4� QO4� R8 SR TS UT V7� WV� X=� YX� Z=� [V \[ ]\ ^X _^ `_ a#C$� b!!!� cf��l-1706b9545eb5b006-6e df��l-1706b9545eb5b006-6f ef��l-1706b9545eb5b006-70 fcde� g"abf� h!g+1� iBh4� jh4� k= lk ml n8 on po qg��syntax-violation rf�� Bad clause sq� tq� uf��-source expression failed to match any pattern vg�� identifier? wg��var x#w$� yf��l-1706b9545eb5b006-7b zf��l-1706b9545eb5b006-7c {f��l-1706b9545eb5b006-7d |yz{� }"xb|� ~!}+1� B~4� �~4� �g��let �#wC$� �!!!!� �f��l-1706b9545eb5b006-65 �f��l-1706b9545eb5b006-66 �f��l-1706b9545eb5b006-67 �f��l-1706b9545eb5b006-68 �� �"� �!+1� �4� �B4� �4� �#wDE$� �f��l-1706b9545eb5b006-37 �f��l-1706b9545eb5b006-38 �f��l-1706b9545eb5b006-39 �f��l-1706b9545eb5b006-3a �f��l-1706b9545eb5b006-3b �� �"G� �!+1� �B4� �4� �#wCDE$� �!!!!!!� �f��l-1706b9545eb5b006-15 �f��l-1706b9545eb5b006-16 �f��l-1706b9545eb5b006-17 �f��l-1706b9545eb5b006-18 �f��l-1706b9545eb5b006-19 �f��l-1706b9545eb5b006-1a �� �"� �!+1� �4� �B4� �4� �g��each-any � � �g��t-1706b9545eb5b006-92 �� �g��m-1706b9545eb5b006-93 � � �� �f��l-1706b9545eb5b006-96 �� �"� �g��c �$� �f��l-1706b9545eb5b006-8e �f��l-1706b9545eb5b006-8f �� �"&� �f��l-1706b9545eb5b006-8b �� �"-.� �!++� �4� �g��cond-expand-provide �g��current-module �g��srfi-2 ��C�5������hX��t���]4    5�4�>��"��G���456����h���C���]C�����;�������g�� orig-form  �g��body  ��  ���C<APQ�h���z���]��Cr�������g�� orig-form  �g��expr  �g��rest   �g��rest*   �g��body   ��   ���CUWY������h���C���]C���;�������g�� orig-form  �g��expr  ��   ���CZ]`ij�������h���U���]�C�M�������g�� orig-form  �g��expr  �g��body   ��   ���Cmpq r�����h������]�6���������g�� orig-form  �g�� bad-clause  �g��rest   �g��body   ��g��filenamef��ice-9/and-let-star.scm  @   @ #  @ �   ���Ctuv��������h������]6}�������g�� orig-form  �g��var  �g��body   ��g��filenamef��ice-9/and-let-star.scm  ; �   ���C���h���T���]�C�L�������g�� orig-form  �g��var  �g��body   ��   ���Cv������h������]6�������g�� orig-form  �g��var  �g��expr   �g��body   ��g��filenamef��ice-9/and-let-star.scm  5 �   ���C�������h ���f���]����C��^�������g�� orig-form  �g��var  �g��expr   �g��body   ��   ���Cv����h���s���]6k�������g�� orig-form  �g��var  ��g��filenamef��ice-9/and-let-star.scm  0 �   ���C���h���B���]C���:�������g�� orig-form  �g��var  ��   ���Cv��������h������]6}�������g�� orig-form  �g��var  �g��expr   ��g��filenamef��ice-9/and-let-star.scm  + �   ���C�h���T���]C���L�������g�� orig-form  �g��var  �g��expr   ��   ���Cv������h������]6�������g�� orig-form  �g��var  �g��rest   �g��rest*   �g��body   ��g��filenamef��ice-9/and-let-star.scm  & �   ���C������h���y���]��Cq�������g�� orig-form  �g��var  �g��rest   �g��rest*   �g��body   ��   ���Cv�h������]6�������g�� orig-form  �g��var  �g��expr   �g��rest   �g��rest*   �g��body   ��g��filenamef��ice-9/and-let-star.scm  �   ���C��h(������]�����C��������g�� orig-form  '�g��var  '�g��expr   '�g��rest   '�g��rest*   '�g��body   '��  ' ���C� �h��'��]Y4�5$��@4�5"�K4�5$��@4�5"�4�5"��4� 5$�� @4� 5"��4� 5"��e4� 5  $�� @4�5 "�� 4�5  $�� @�6 $��4 ?$�� @""$��4?$��@""|$��4?$��@"R"N$��4?$��@" " $��4?$��@""$��4?$��@""������������g��form  �g��tmp �g��tmp  " �g��tmp  1 s�g��tmp  H s�g��tmp  W T�g��tmp  f 5�g��tmp  } 5�g��tmp  � �g��tmp � ��g��tmp � ��g��tmp � ��� g��filenamef��ice-9/and-let-star.scm  �   ���C5R4 ��h���;���]L��C��3�������g��c  �g��body  ��   ���Ctu������h(���l���] 4�5$�� �O�@�6�d�������g��form  '�g��tmp '��g��filenamef��ice-9/and-let-star.scm C �  ' ���C5 Ri4i5�6l�������g��m  (��g��filenamef��ice-9/and-let-star.scm   N H  V H & X H �  X ���C6�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/control.go������������������������������������������������������������������������������������0000644�����������������00000020267�15253700563�0007476 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0 ������]��4�����h ������]� g��guile � g��define-module* � � g��ice-9 g��control � g��filenameS f��ice-9/control.scm g��exportsS g��% g��abort g��shift g��reset g��shift* g��reset* g��call-with-escape-continuation g��call/ec g��let-escape-continuation g��let/ec   �  g�� re-exportsS g��call-with-prompt g��abort-to-prompt g��default-prompt-tag g��make-prompt-tag � g��set-current-module � � g��make-syntax-transformer ! � " � #g��macro $g�� $sc-dispatch %$� &$� 'g��any (''� )g�� syntax-object *g��top +*� ,g��ribcage -g��dummy .g��expr /-.� 0g��m-3d0776c508-76 10*� 21+� 3f��l-3d0776c508-7b 4f��l-3d0776c508-7c 534� 6,/25� 7,� 8g��x 98� :1� ;f��l-3d0776c508-78 <;� =,9:<� >+67=� ?g��hygiene @?� A)>@� B)>@� CB� Dg��lambda E)D>@� Fg��default-prompt-handler G)F>@� HG� I'''� Jg��handler K-.J� L1++� Mf��l-3d0776c508-80 Nf��l-3d0776c508-81 Of��l-3d0776c508-82 PMNO� Q,KLP� R+Q7=� S)R@� T)R@� UT� V)DR@� W''''� Xg��tag Y-X.J� Z1+++� [f��l-3d0776c508-87 \f��l-3d0776c508-88 ]f��l-3d0776c508-89 ^f��l-3d0776c508-8a _[\]^� `,YZ_� a+`7=� b)a@� c)Da@� dg��syntax-violation ed� fd� gf��-source expression failed to match any pattern h'' ig��body j-i� kg��m-3d0776c508-95 lk*� ml+� nf��l-3d0776c508-9a of��l-3d0776c508-9b pno� q,jmp� rl� sf��l-3d0776c508-97 ts� u,9rt� v+q7u� w)v@� x)v@� yx� z)Dv@� {g��cont |){v@� }g��f ~)}v@� |~� �~|� �z� �� �'h �g��var �-i� �g��m-3d0776c508-9f �*� �++� �f��l-3d0776c508-a4 �f��l-3d0776c508-a5 �f��l-3d0776c508-a6 �� �,� �� �f��l-3d0776c508-a1 �� �,9� �+7� �)@� �)@� �� �)D@� �){@� �� �)@� �g��vals �)@� �g��apply �)@� �� �� �� �� �g��each-any �' �' �g��let �g��k �-i� �g��m-3d0776c508-cf �*� �++� �f��l-3d0776c508-d4 �f��l-3d0776c508-d5 �f��l-3d0776c508-d6 �� �,� �� �f��l-3d0776c508-d1 �� �,9� �+7� �)@� �)X@� �g��list �)@� �g��quote �)@� �)@� �� �� �� �� �)@� �)D@� �g��args �)@� �)@� �)@� �� �� �� �g��_ �)@� �g��results �)@� �̌ �g��values �)@� �� �� �� �g��m-3d0776c508-dc �*� �++� �f��l-3d0776c508-e1 �f��l-3d0776c508-e2 �f��l-3d0776c508-e3 �� �,� �� �f��l-3d0776c508-de �� �,9� �+7� �)@�C�5�������h`�����]4   5�4�>��"��G�������h���z���-��1��3�45��@����r�������g��args ��g��filenamef��ice-9/control.scm      �  ��g��nameg��abort�C R4" #&(ACEH���h���?���]�C����7�������g��dummy  �g��expr  ��   ���CISUV�����h���T���]��C����L�������g��dummy  �g��expr  �g��handler   ��   ���CWbc��h���e���]��C����]�������g��dummy  �g��tag  �g��expr   �g��handler   ��   ���Cfg� ���hP������]4�5$��@4�5$��@4�5$��@ �6�������g��x  P�g��tmp P�g��tmp  " P�g��tmp  9 P��g��filenamef��ice-9/control.scm  �  P ��g�� macro-typeg�� syntax-rulesg��patternsg��expr�g��exprg��handler�g��tagg��exprg��handler���C5 RF��h���E���]�LL�6=�������g��filenamef��ice-9/control.scm  8 �   ���C��������h0������]45�U���4�O�>���XCXFG@���������g��k  .�g��proc  .�g��handler   .�g��args  # .��g��filenamef��ice-9/control.scm 6  7   7   7 �  . ��g��nameg��default-prompt-handler�CFR4"#&hwyz������h���?���]C�����7�������g��dummy  �g��body  ��   ���Cfg��h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/control.scm @ �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��body��C5R4"#&������h(���P���]����C�����H�������g��dummy  #�g��var  #�g��body   #��  # ���Cfg�h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/control.scm E �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��varg��body��C5R�����h���E���]�L�6���=�������g��filenamef��ice-9/control.scm  L �   ���C��������h0������]45�U���4�O�>���XCXFG�6�������������g��thunk  *�g��cont  *�g��f   *��g��filenamef��ice-9/control.scm K  L �  * ��g��nameg��reset*�CR�������h���E���]�LL�@=�������g��filenamef��ice-9/control.scm  O �   ���C��������h8���y���-��1��3�45�U���4�L�O�>���XCXFG�6�����q�������g��vals 3�g��cont & 3�g��f  & 3��g��filenamef��ice-9/control.scm O � 3 ���C����h���E���]�LL�O�6���=�������g��filenamef��ice-9/control.scm O �  ���C��������h0���w���]45�U���4�L�O�>���XCXFG�6����o�������g��cont  ,�g��cont  ,�g��f   ,��g��filenamef��ice-9/control.scm O �  , ���C������h���o���]45��O�WF������g�������g��fc  ��g��filenamef��ice-9/control.scm N  O �   ��g��nameg��shift*�CR�����h���a���-��1��3�L��@�������Y�������g��args ��g��filenamef��ice-9/control.scm V   W �  ���C����h0���%��]�U��4�O�>��XCXFGE��������g��proc  .�g��tag  .�g��_  # .�g��args  # .��g��filenamef��ice-9/control.scm Q  S   S  S   T   V  & T  . Y �  . ��g��nameg��call-with-escape-continuationg�� documentationf��&Call PROC with an escape continuation.�CRiR4"#&���h(���N���]���C�F�������g��dummy  '�g��k  '�g��body   '��  ' ���Cfg���h(�����] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/control.scm ] �  " ��g�� documentationf��CBind K to an escape continuation within the lexical extent of BODY.g�� macro-typeg�� syntax-rulesg��patternsg��kg��bodyg��...���C5R4"#&��������h���N���]C�����F�������g��dummy  �g��k  �g��body   ��  ���Cfg���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/control.scm h �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��kg��bodyg��...���C5RC�}�������g��m  ,��g��filenamef��ice-9/control.scm   �  * 6 5 K  N  Q  [ �  _ ���C6������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/slib.go���������������������������������������������������������������������������������������0000644�����������������00000001522�15253700563�0006740 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0:������]��4������h������]� g��assq-ref g��%guile-build-info g��datadir g�� string-append f��/slib/guile.init g�� file-exists? g��guile � g��load-in-vicinity  �  � f��ice-9 f�� /usr/share g��load-from-path f��slib/guile.initC�5����h���P��]4ii5�4i�54i5$��4  >��"��G��"�����$���C4i 5�4i�5$��4  �>��"��G��"�����$���Ci6H������g��dir  K�g��init  H�g��t K ��g��init a ��g��t � ���g��filenamef��ice-9/slib.scm      ,            1          +   ,   K   W   ]   _  1 a   a   d   p   q   �   �  � �  � ���C6�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/lineio.go�������������������������������������������������������������������������������������0000644�����������������00000005306�15253700563�0007272 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0 ������]�$�4��hQ������]� g��guile � g��define-module* � � g��ice-9 g��lineio � g��filenameS f��ice-9/lineio.scm g��importsS g��rdelim  �  � � g��exportsS g�� unread-string g�� read-string g�� lineio-port? g��make-line-buffering-input-port � g��set-current-module � � g��object-property g��make-soft-port g�� string-ref g�� string-length g�� substring g�� read-char g�� close-port f��r !g��set-object-property! "g�� read-line #g��concatC�5��h��t���]4   5�4�>��"��G�������h������]45�6��������g��str  �g��line-buffering-input-port  ��g��filenamef��ice-9/lineio.scm 8  9  9 . 9   9 �   ��g��nameg�� unread-string�CR��������h������]4�56�����������g��line-buffering-input-port  ��g��filenamef��ice-9/lineio.scm <  =  = . =  = �  ��g��nameg�� read-string�CR���h������]4�5C���������g��port  ��g��filenamef��ice-9/lineio.scm @  A A " A A  A �   ��g��nameg�� lineio-port?�CR��������h@������]M$��14M 5� 4M5$�� MN"�� M4M 5�CL�6��������g��c  9��g��filenamef��ice-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 �  ? ��g��nameg��getc�C������h���g���]�L�6_�������g��filenamef��ice-9/lineio.scm ]   ] %�   ��g��nameg��propogate-close�C !�����h ������] 4�5$�� �M�N�CC�������������g��str  ��g��filenamef��ice-9/lineio.scm a   b $ b   b   c 1  c #�   ��g��nameg�� unread-string�C"#�������h ������]M(��L�6M�MN�C����������g��answer  ��g��filenamef��ice-9/lineio.scm e   f   l 4  l   h '  h   i )  i �   ��g��nameg�� read-string�C� ����h`�����]H4�O��O��54O�>��"��G��4 �O�>��"��G��C�������g��underlying-port  _�g��buffers  _�g��self  " _��g��filenamef��ice-9/lineio.scm K  O   L   _   _  _ F " _  " L  % n  + n  7 n  @ o  F o  T o �  _ ��g��nameg��make-line-buffering-input-port�CRC��l�������g��m  ,��g��filenamef��ice-9/lineio.scm    8  <  @  K �   ���C6���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/local-eval.go���������������������������������������������������������������������������������0000644�����������������00000117401�15253700563�0010032 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]x�4������hLW������]� g��guile � g��define-module* � � g��ice-9 g�� local-eval � g��filenameS f��ice-9/local-eval.scm g��importsS g��format  �  � g��srfi g��srfi-9 � � g��gnu � � g��system g��base g��compile � � g��syntax � � � g��exportsS g��the-environment !g�� local-compile " !� #g��set-current-module $#� %#� &g��lexical-environment-type 'g��#%make-lexical-environment-procedure (g��make-syntax-transformer )(� *(� +g��make-lexical-environment ,g��macro -g�� $sc-dispatch .-� /-� 0g��_ 1g��any 201111� 3g�� syntax-object 4g��lambda 5g��m-3348ed57c594e3-7 6g��top 756� 8g��ribcage 9g��t-3348ed57c594e3-3 :g��t-3348ed57c594e3-4 ;g��t-3348ed57c594e3-5 <g��t-3348ed57c594e3-6 =9:;<� >7777� ?f��l-3348ed57c594e3-c @f��l-3348ed57c594e3-d Af��l-3348ed57c594e3-e Bf��l-3348ed57c594e3-f C?@AB� D8=>C� E8� Fg��x GF� H7� If��l-3348ed57c594e3-9 JI� K8GHJ� Lg��shift Mg�� proc-name Ng��args OMN� P6� QPP� Rf��l-1e8ba8b5a-60 Sf��l-1e8ba8b5a-61 TRS� U8OQT� Vg��key Wg��value Xg��name Yg��formals Zg��body [VWXYZ� \PPPPP� ]f��l-1e8ba8b5a-53 ^f��l-1e8ba8b5a-54 _f��l-1e8ba8b5a-55 `f��l-1e8ba8b5a-56 af��l-1e8ba8b5a-57 b]^_`a� c8[\b� dg��make-procedure-name ed� fP� gf��l-1e8ba8b5a-43 hg� i8efh� jP� kf��l-1e8ba8b5a-42 lk� m8Gjl� n7DEKLEEEEUcim�  og��hygiene po� q34np� rg��scope sPDEK� to� u3rst� vg��wrapper w3vst� xg��boxes y3xst� zg��patterns {3zst� |uwy{� }g�� make-struct ~g��m-3348ed57c594e3-1 ~6� �g��t-1e8ba8b5a-133 �g��t-1e8ba8b5a-132 �g��t-1e8ba8b5a-131 �� �g��m-1e8ba8b5a-134 �6� �� �f��l-1e8ba8b5a-138 �f��l-1e8ba8b5a-139 �f��l-1e8ba8b5a-13a �� �8� �g�� ctor-args �� �f��l-1e8ba8b5a-120 �� �8j� �g��ctor �g��field �� �f��l-1e8ba8b5a-11c �f��l-1e8ba8b5a-11d �� �8Q� �g��form �g�� type-name �g��constructor-spec �g�� field-names �� �PPPP� �f��l-1e8ba8b5a-111 �f��l-1e8ba8b5a-112 �f��l-1e8ba8b5a-113 �f��l-1e8ba8b5a-114 �� �8� �g�� record-layout �g��functional-setters �g��setters �g��copier �g��getters �g�� constructor �g��getter-identifiers �g��field-identifiers �� �PPPPPPPP� �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 �� �8� �f��l-1e8ba8b5a-da �� �8Gj� �DEKLEEEEE� �3}p� �3&st� �3 p� �uwy{� �q|� �g��each-any �0 �g��syntax-violation �� �� �f��Wrong number of arguments �g�� identifier? �� �� �PEK� �3't� �� �� �f��-source expression failed to match any pattern �g��record-type-vtable �� �� �g��pwpwpwpw �g��default-record-printer �� �� �rvxz� �g��set-struct-vtable-name! �� �� �g��vtable-offset-user �� �� �g��%lexical-environment?-procedure �g��lexical-environment? �01� �g��m-3348ed57c594e3-1a �6� �g��t-3348ed57c594e3-19 �� �� �f��l-3348ed57c594e3-1f �� �8� �f��l-3348ed57c594e3-1c �� �8G� �ELEEEEUcim�  �34p� �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 �6� �� �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 �� 8�� g�� copier-id � f��l-1e8ba8b5a-21c � 8j� g�� ctor-name �  f��l-1e8ba8b5a-214   �  8j �  �  f��l-1e8ba8b5a-212  � 8 j� g��layout � f��l-1e8ba8b5a-210 � 8j� g�� immutable? � f��l-1e8ba8b5a-20e � 8j� g�� field-count � f��l-1e8ba8b5a-20c � 8j� g�� getter-ids  � !f��l-1e8ba8b5a-209 "!� #8 j"� $g�� field-ids %$� &f��l-1e8ba8b5a-206 '&� (8%j'� )g��predicate-name *g�� field-spec +)*� ,PPPPPP� -f��l-1e8ba8b5a-1f9 .f��l-1e8ba8b5a-1fa /f��l-1e8ba8b5a-1fb 0f��l-1e8ba8b5a-1fc 1f��l-1e8ba8b5a-1fd 2f��l-1e8ba8b5a-1fe 3-./012� 48+,3� 5ELEEEEEE EEEEE#E(4� 635p� 76� 8g��and 9385p� :g��struct? ;3:5p� <;6� =g��eq? >3=5p� ?g�� struct-vtable @3?5p� A@6� BPE� C3&Bt� D>AC� E9<D� F7E� GPE� H3Gt� Ig��throw-bad-struct JI� KI� Lg�� lexenv-scope Mg��%lexenv-scope-procedure Ng��free-id Og�� %%on-error Pg��m-3348ed57c594e3-26 QP6� RQ� Sf��l-3348ed57c594e3-28 TS� U8GRT� VQEULEEEEUcim�  W3OVp� XNW� YX1� Zg��%%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 ag��t-1e8ba8b5a-151 b[\]^_`a� cg��m-1e8ba8b5a-152 dc6� eddddddd� ff��l-1e8ba8b5a-156 gf��l-1e8ba8b5a-157 hf��l-1e8ba8b5a-158 if��l-1e8ba8b5a-159 jf��l-1e8ba8b5a-15a kf��l-1e8ba8b5a-15b lf��l-1e8ba8b5a-15c mfghijkl� n8bem� og��getter pg��index qop� rf��l-1e8ba8b5a-149 sf��l-1e8ba8b5a-14a trs� u8qQt� v� wPPP� xf��l-1e8ba8b5a-144 yf��l-1e8ba8b5a-145 zf��l-1e8ba8b5a-146 {xyz� |8vw{� }EULEnEEEuE|� ~3Z}p� N~� 0Y1� g��ck g��err g��s � QQ� f��l-3348ed57c594e3-2b f��l-3348ed57c594e3-2c � 8� QEULEEEEUcim�  3p� g��quote 3p� PEU� 3&t� � � g��%%index 3}p� N� 0Y1� f��l-3348ed57c594e3-30 f��l-3348ed57c594e3-31 � 8� QEULEEEEUcim�  3p� 3p� EU� 3 t� � � g��%%copier 3}p� N� 0Y1� f��l-3348ed57c594e3-35 f��l-3348ed57c594e3-36 � 8� QEULEEEEUcim�  3p� 3p� g��%%%lexical-environment-type-set-fields PEU� 3t� � � g��t-3348ed57c594e3-25 � f��l-3348ed57c594e3-3a � 8R� QEULEEEEUcim�  34p� EULEnEEEuE|� 3p� � g��if 3p� 3=p� 3?p� � PEU� 3&t� � g�� struct-ref 3p� EU� 3 t� � 3Ip� 3p� 3Lt� � � � � PEU� 3Mt� g��lexenv-wrapper g��%lexenv-wrapper-procedure g��m-3348ed57c594e3-41 6� � f��l-3348ed57c594e3-43 � 8G� ELEEEEUcim�  3Op� N� 1� ELEnEEEuE|� 3Zp� N� 01� � f��l-3348ed57c594e3-46 f��l-3348ed57c594e3-47 � 8� ELEEEEUcim�  3p� 3p� PE� 3&t� � � 3p� N� 01� f��l-3348ed57c594e3-4b f��l-3348ed57c594e3-4c � 8� ELEEEEUcim�  3p� 3p� E� 3 t� � � 3p� N� 01� f��l-3348ed57c594e3-50 f��l-3348ed57c594e3-51 �� 8�� ELEEEEUcim�  3p� 3p� PE� 3t� � �  g��t-3348ed57c594e3-40   �  f��l-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 )g��m-3348ed57c594e3-5c *)6� +*� ,f��l-3348ed57c594e3-5e -,� .8G+-� /*E.LEEEEUcim�  03O/p� 1N0� 211� 3E.LEnEEEuE|� 43Z3p� 5N4� 60251� 7**� 8f��l-3348ed57c594e3-61 9f��l-3348ed57c594e3-62 :89� ;87:� <*;E.LEEEEUcim�  =3<p� >3<p� ?P;E.� @3&?t� A>@� BA� C33p� DNC� E02D1� Ff��l-3348ed57c594e3-66 Gf��l-3348ed57c594e3-67 HFG� I87H� J*IE.LEEEEUcim�  K3Jp� L3Jp� MIE.� N3 Mt� OLN� PO� Q33p� RNQ� S02R1� Tf��l-3348ed57c594e3-6b Uf��l-3348ed57c594e3-6c VTU� W87V� X*WE.LEEEEUcim�  Y3Xp� Z3Xp� [PWE.� \3[t� ]Z\� ^]� _g��t-3348ed57c594e3-5b `_� af��l-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� }g��lexenv-patterns ~g��%lexenv-patterns-procedure g��m-3348ed57c594e3-77 6� � f��l-3348ed57c594e3-79 � 8G� ELEEEEUcim�  3Op� N� 1� ELEnEEEuE|� 3Zp� N� 01� � f��l-3348ed57c594e3-7c f��l-3348ed57c594e3-7d � 8� ELEEEEUcim�  3p� 3p� PE� 3&t� � � 3p� N� 01� f��l-3348ed57c594e3-81 f��l-3348ed57c594e3-82 � 8� ELEEEEUcim�  3p� 3p� E� 3 t� � � 3p� N� 01� f��l-3348ed57c594e3-86 f��l-3348ed57c594e3-87 � 8� ELEEEEUcim�  3p� 3p� PE� 3t� � � g��t-3348ed57c594e3-76 � f��l-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� g��each 11� � 1Ռ 1֌ 1׌ g�� %%set-fields g��dummy g��check? g��expr o� g��m-3348ed57c594e3-92 6� � f��l-3348ed57c594e3-97 f��l-3348ed57c594e3-98 f��l-3348ed57c594e3-99 f��l-3348ed57c594e3-9a f��l-3348ed57c594e3-9b � 8� � f��l-3348ed57c594e3-94 � 8G� g��t-1e8ba8b5a-16a g��t-1e8ba8b5a-16c g��t-1e8ba8b5a-16b � g��m-1e8ba8b5a-16d 6� � f��l-1e8ba8b5a-171 f��l-1e8ba8b5a-172 f��l-1e8ba8b5a-173 � 8� f��l-1e8ba8b5a-167 f��l-1e8ba8b5a-168 f��l-1e8ba8b5a-169 � 8vw� ELEEEE�  3p� PE� �3&t� 3Lt� 3t� 3't� 3}t� � g��map � �  g��list  g��set-record-type-printer!  f��'#<lexical-environment ~S (~S bindings)>  g�� syntax-module  g��length g��syntax-object-of g�� datum->syntax g��t-3348ed57c594e3-cd � g��m-3348ed57c594e3-ce 6� � f��l-3348ed57c594e3-d1 � 8� f��l-3348ed57c594e3-cb � 8Gj� � f��l-3348ed57c594e3-c8 � 8j� PEE�  3t� !g��make-box "g�� case-lambda #g��v $#� %g��m-3348ed57c594e3-d4 &%6� '&P� (f��l-3348ed57c594e3-d9 )f��l-3348ed57c594e3-da *()� +8$'*� ,&� -f��l-3348ed57c594e3-d6 .-� /8G,.� 0P+E/� 13"0t� 23F0t� 32� 4g��set! 5340t� 6g��set-procedure-property! 7g��identifier-syntax-box 8g��make-transformer-from-box 9g��identifier-syntax-from-box :g��box ;:� <g��m-3348ed57c594e3-e2 =<6� >=P� ?f��l-3348ed57c594e3-e7 @f��l-3348ed57c594e3-e8 A?@� B8;>A� C=� Df��l-3348ed57c594e3-e4 ED� F8GCE� GPBEF� H38Gt� I3Gt� Jg��identifier-syntax K3JGt� Lg��id M3LGt� N34Gt� O3FGt� PNMO� QO� Rg��make-variable-transformer Sf��1unsupported binding captured by (the-environment) Tg��unsupported-binding Ug��... Vg��t-3348ed57c594e3-f9 WV� Xg��m-3348ed57c594e3-fa YX6� ZY� [f��l-3348ed57c594e3-fd \[� ]8WZ\� ^g��loop _g��n `^_� af��l-3348ed57c594e3-f3 bf��l-3348ed57c594e3-f4 cf��l-3348ed57c594e3-f5 dabc� e8`wd� fg��lvl gLf� hf��l-3348ed57c594e3-f1 if��l-3348ed57c594e3-f2 jhi� k8gQj� lPE]EeEk� m3Ult� nm� og��within-nested-ellipses pg��syntax-local-binding qg��lexical rg��or-map sg��bound-identifier=? tg��here ug��mktmp vu� wf��l-3348ed57c594e3-101 xw� y8vfx� zg��ids {z� |f��l-3348ed57c594e3-100 }|� ~8{j}� PEy~� 3tt� g��gensym f��t  g��t-3348ed57c594e3-11f � g��m-3348ed57c594e3-120 6� � f��l-3348ed57c594e3-123 � 8� g��t � f��l-3348ed57c594e3-11d � 8j� V� g��m-3348ed57c594e3-118 6� � f��l-3348ed57c594e3-119 � 8� g��type g��val � f��l-3348ed57c594e3-116 f��l-3348ed57c594e3-117 � 8Q� Lz� f��l-3348ed57c594e3-110 f��l-3348ed57c594e3-111 � 8Q� g��lp g��capture g��wrappers zYz� f��l-3348ed57c594e3-103 f��l-3348ed57c594e3-104 f��l-3348ed57c594e3-105 f��l-3348ed57c594e3-106 f��l-3348ed57c594e3-107 f��l-3348ed57c594e3-108 � 8,� PEEEEEEEEy~� 3!t� 111� g�� let-syntax g��t-3348ed57c594e3-128 g��t-3348ed57c594e3-127 g��t-3348ed57c594e3-129 � g��m-3348ed57c594e3-12a 6� � f��l-3348ed57c594e3-12e f��l-3348ed57c594e3-12f f��l-3348ed57c594e3-130 � 8� f��l-3348ed57c594e3-126 � 8Gj� PEEEEEEEEEEEy~� 3t� 39t� g��displaced-lexical g��procedure-property g��t-3348ed57c594e3-139 g��t-3348ed57c594e3-138 g��t-3348ed57c594e3-13a � g��m-3348ed57c594e3-13b 6� � f��l-3348ed57c594e3-13f f��l-3348ed57c594e3-140 f��l-3348ed57c594e3-141 � 8� f��l-3348ed57c594e3-137 � 8Gj� g��b � f��l-3348ed57c594e3-134 � 8j� PEEEEEEEEEEEy~� 3t� 39t� g��t-3348ed57c594e3-148 g��t-3348ed57c594e3-147 g��t-3348ed57c594e3-149 � g��m-3348ed57c594e3-14a 6� � f��l-3348ed57c594e3-14e f��l-3348ed57c594e3-14f f��l-3348ed57c594e3-150 � 8� f��l-3348ed57c594e3-146 � 8Gj� PEEEEEEEEEEEy~� 3t� 3Tt� 3t� g��pattern-variable f��p  g�� with-syntax g��t-3348ed57c594e3-15b g��t-3348ed57c594e3-15a g��t-3348ed57c594e3-15c � g��m-3348ed57c594e3-15d 6� � f��l-3348ed57c594e3-161 f��l-3348ed57c594e3-162 f��l-3348ed57c594e3-163 � 8� �f��l-3348ed57c594e3-159 �� 8Gj� g��nested � f��l-3348ed57c594e3-154 f��l-3348ed57c594e3-155 � 8Q�  PEEEEEEEEEEEy~�  3 t�  3 t�  PEEEEEEEy~�  3t t� g�� syntax->datum g��ellipsis g�� with-ellipsis g��t-3348ed57c594e3-16a g��t-3348ed57c594e3-169 � g��m-3348ed57c594e3-16b 6� � f��l-3348ed57c594e3-16f f��l-3348ed57c594e3-170 � 8� f��l-3348ed57c594e3-168 � 8Gj� PEEEEEEEEEEy~� 3t�  g��error !f��what "g��analyze-identifiers #1� $g�� syntax-locally-bound-identifiers %g��begin &g��wrap-expression '&� (f��l-3348ed57c594e3-186 )(� *8'f)� +Yz� ,f��l-3348ed57c594e3-182 -f��l-3348ed57c594e3-183 .f��l-3348ed57c594e3-184 /f��l-3348ed57c594e3-185 0,-./� 18+0� 2 r� 3f��l-3348ed57c594e3-17a 4f��l-3348ed57c594e3-17b 534� 682Q5� 7f��l-3348ed57c594e3-174 87� 98Gj8� :P**16E9� ;3%:t� <3:t� =g��exp >3=:t� ?;<>� @� A@1� Bg��f Cg��c Dg��pname Eg��plvl Fg��pformal Gg��wrapped HBCDEFG� If��l-3348ed57c594e3-193 Jf��l-3348ed57c594e3-194 Kf��l-3348ed57c594e3-195 Lf��l-3348ed57c594e3-196 Mf��l-3348ed57c594e3-197 Nf��l-3348ed57c594e3-198 OIJKLMN� P8H,O� QPEP**16E9�  R3+Qt� S3Qt� T34Qt� U3=Qt� V3Qt� WUU� X3 Qt� Y3Qt� Zg��module? [f��invalid lexical environment \g��resolve-module ]g�� env-module ^g�� env-boxes _g��t-3348ed57c594e3-1d7 `_� ag��m-3348ed57c594e3-1d8 ba6� cb� df��l-3348ed57c594e3-1db ed� f8`ce� gg��e hFg� if��l-3348ed57c594e3-1be jf��l-3348ed57c594e3-1bf kij� l8hQk� mPEfEEl� n34mt� o3mt� pg�� local-wrap qg��eval rg��optsS sr  ts� ug��envS vg��fromS wg��schemeC�5�������h0B�����]4   "5�4%�>��"��G���&������h������]��C�������g��scope  �g��wrapper  �g��boxes   �g��patterns   ��g��filenamef��ice-9/local-eval.scm  �   ��g��nameg��#%make-lexical-environment-procedure�C'R4*+,/2���h������]��C�������g��t-3348ed57c594e3-3  �g��t-3348ed57c594e3-4  �g��t-3348ed57c594e3-5   �g��t-3348ed57c594e3-6   ��   ���C+��h���W���]L�6����O�������g��a  ��g��filenamef��ice-9/local-eval.scm   �  ���C0�h���G���]�L�6?�������g��filenamef��ice-9/local-eval.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��ice-9/local-eval.scm  �  n ���C5+R&֨��4�&>��"��G��� ܖ'i��&R&�����h������]�$���CC������|�������g��obj  ��g��filenamef��ice-9/local-eval.scm  �   ��g��nameg��%lexical-environment?-procedure�CR4*,/F������h���;���]��C������3�������g��t-3348ed57c594e3-19  ��  ���C�h���W���]L�6����O�������g��a  ��g��filenamef��ice-9/local-eval.scm   �  ���C0�h���G���]�L�6?�������g��filenamef��ice-9/local-eval.scm   �   ���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��ice-9/local-eval.scm  �  n ���C5R&KL�������h���z���]�&��� C�6r�������g��s  ��g��filenamef��ice-9/local-eval.scm  �   ��g��nameg��%lexenv-scope-procedure�CMR4*L,/��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������3�������g��t-3348ed57c594e3-25  ��  ���CL��������h���W���]L�6����O�������g��a  ��g��filenamef��ice-9/local-eval.scm   �  ���C0�h���G���]�L�6?�������g��filenamef��ice-9/local-eval.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��ice-9/local-eval.scm  �  � ���C5LR&K��h���|���]�&��� C�6t�������g��s  ��g��filenamef��ice-9/local-eval.scm  �   ��g��nameg��%lexenv-wrapper-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���;���]��C������3�������g��t-3348ed57c594e3-40  ��  ���C��������h���W���]L�6����O�������g��a  ��g��filenamef��ice-9/local-eval.scm   �  ���C0�h���G���]�L�6?�������g��filenamef��ice-9/local-eval.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��ice-9/local-eval.scm  �  � ���C5R&K'��h ���z���]�&��� C�6�������r�������g��s  ��g��filenamef��ice-9/local-eval.scm  �   ��g��nameg��%lexenv-boxes-procedure�C(R4*',/6=B��h���:���]C�����2�������g��err  �g��s  ��  ���CEKP�h���:���]C�����2�������g��err  �g��s  ��  ���CSY^�h���:���]C�����2�������g��err  �g��s  ��  ���Cz�����h���;���]��C������3�������g��t-3348ed57c594e3-5b  ��  ���C'��������h���W���]L�6����O�������g��a  ��g��filenamef��ice-9/local-eval.scm   �  ���C0�h���G���]�L�6?�������g��filenamef��ice-9/local-eval.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��ice-9/local-eval.scm  �  � ���C5'R&K}��h ���}���]�&��� C�6�������u�������g��s  ��g��filenamef��ice-9/local-eval.scm  �   ��g��nameg��%lexenv-patterns-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���;���]��C������3�������g��t-3348ed57c594e3-76  ��  ���C}��������h���W���]L�6����O�������g��a  ��g��filenamef��ice-9/local-eval.scm   �  ���C0�h���G���]�L�6?�������g��filenamef��ice-9/local-eval.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��ice-9/local-eval.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��ice-9/local-eval.scm  �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��check?g��sg��getterg��expr�g��...���C5R4 i&i   &KL '}� hp������]4�&��� "�� 4�554�&�� � "�� 4�554�&�� � "�� 4� 556�������������g��e  j�g��port  j��g��filenamef��ice-9/local-eval.scm $  %  &  &  ' & ( '  - '  G '  H ' ( M ' 0 g ' ( h ' j % �  j ���C>��"��G��4*,/ ����h���p���] 4��5�C���h�������g��x  �g��tmp ��g��filenamef��ice-9/local-eval.scm  ,  , �   ���C�h(���j���] 4�5$��@�6������b�������g��form  "�g��tmp "��g��filenamef��ice-9/local-eval.scm * �  " ���C5R4*!,/135�����h ���<���]���C�����4�������g��dummy  �g��v  ��   ���C�����h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/local-eval.scm . �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��v���C5!R67����h ������]4�>��"��G��C������������g��id  �g��trans  ��g��filenamef��ice-9/local-eval.scm 3  4  4 !  4 �   ��g��nameg��make-transformer-from-box�C8R4*9,/HIKMPQ��������h(���>���]������C6�������g��dummy  (�g��box  (��  ( ���C���h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/local-eval.scm 7 �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��box���C59RRS�����h���o���]�6����g�������g��x  ��g��filenamef��ice-9/local-eval.scm ?   A   B  @ �  ���C������h������]6y�������g��name  ��g��filenamef��ice-9/local-eval.scm =  > �   ��g��nameg��unsupported-binding�CTRn����h0������]"�� $��C"�"����������g��id  -�g��lvl  -�g��s   !�g��n   !��g��filenamef��ice-9/local-eval.scm E  F  G   G   I ! I  ! F �  - ��g��nameg��within-nested-ellipses�CoRpqrs�h���a���]�L�6������Y�������g��x  ��g��filenamef��ice-9/local-eval.scm �  � '�  ���C/��������h ������]�����C�������x�������g��t-3348ed57c594e3-128  �g��t-3348ed57c594e3-127  �g��t-3348ed57c594e3-129   ��   ���C�h0������]L�L��45$��@6���z�������g��x  -�g��tmp -�g��tmp   -��g��filenamef��ice-9/local-eval.scm �  � "�  - ���C,7/���h ������]�����C�������x�������g��t-3348ed57c594e3-139  �g��t-3348ed57c594e3-138  �g��t-3348ed57c594e3-13a   ��   ���C�h0������]L�L��45$��@6���z�������g��x  -�g��tmp -�g��tmp   -��g��filenamef��ice-9/local-eval.scm �  � "�  - ���C/���h ������]������C��x�������g��t-3348ed57c594e3-148  �g��t-3348ed57c594e3-147  �g��t-3348ed57c594e3-149   ��   ���C�h0������]L�L���45$��@6���z�������g��x  -�g��tmp -�g��tmp   -��g��filenamef��ice-9/local-eval.scm �  � "�  - ���Co/  �����h ������]�����C�������x�������g��t-3348ed57c594e3-15b  �g��t-3348ed57c594e3-15a  �g��t-3348ed57c594e3-15c   ��   ���C�h0������]L�L��45$��@6���z�������g��x  -�g��tmp -�g��tmp   -��g��filenamef��ice-9/local-eval.scm �  � �  - ���C /��������h���^���]��C����V�������g��t-3348ed57c594e3-16a  �g��t-3348ed57c594e3-169  ��  ���C���h0������]L���45$��@6�����z�������g��x  +�g��tmp +�g��tmp   +��g��filenamef��ice-9/local-eval.scm �  � �  + ���C !�����h����]5�(�� D��4>�� G�$��g4O�5$���"4455  �   O��"d $���"C $��Y4 5  $��(   O��"O��"$��U445545    O�4455 ��"$�� O��"Z6������������g��ids  �g��capture  �g��formals   �g��wrappers   �g��patterns   �g��id   �g��ids   �g��type  ' �g��val  ' �g��t o ��g��b � !�g��t B �g��nested B �� g��filenamef��ice-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 �   �   �  �   �   �   � �<   ��g��nameg��lp�C������h ������] O�Q��6��������������g��ids  �g��lp ��g��filenamef��ice-9/local-eval.scm ~ �   �   � ,  � ;  � J  � �   ��g��nameg��analyze-identifiers�C"R4* ,/#h���7���]���C������/�������g��the-environment  ��  ���C"$�����h0������]"��(��C45"�L�"���������g��x  .�g��x  "�g��wrappers   "��g��filenamef��ice-9/local-eval.scm �  � �   �   �   �   � * " �  " � �  . ��g��nameg��wrap-expression�C?/ARSTUVW XXYS�������h������]����C~�������g��tmp-3348ed57c594e3-1a5  �g��tmp-3348ed57c594e3-1a4  �g��tmp-3348ed57c594e3-1a3   ��   ���C� ������hP������]L��45�����  4 5�C��������g��f  O�g��c  O�g��pname   O�g��plvl   O�g��pformal   O�g��wrapped   O��  O ���C� �hh���<��]:445>�� G�O�Q�45�45$�� O�@ 6�������4������g��the-environment  a�g��scope  a�g��capture   a�g��formals   a�g��wrappers   a�g��patterns   a�g��wrap-expression  % a�g��tmp  : a�g��tmp  E a�� g��filenamef��ice-9/local-eval.scm  �   �   �   �  1 � " : � �  a ���C�����h@���y���]4�5$��@4�5$��@�6�������q�������g��x  9�g��tmp 9�g��tmp  " 9��g��filenamef��ice-9/local-eval.scm � �  9 ���C5 RZ [&\ �����hH������]"��4�5$���C�6�$���&�� 4� 56""��������������g��e  A��g��filenamef��ice-9/local-eval.scm �  �   �   �   �  �   �  # �  & �  / � - 5 � < 7 � - 9 � �  A ��g��nameg�� env-module�C]RZ [&���h@������]"��4�5$��C�6�$���&��� C""��������������g��e  9��g��filenamef��ice-9/local-eval.scm �  �   �   �   �   �  �   �  " �  % �  0 � �  9 ��g��nameg�� env-boxes�C^RZno [&o���h(������]���456������������g��l  #�g��name  #�g��lvl   #�g��scope   #��g��filenamef��ice-9/local-eval.scm �   �   �  �   �   � , # � �  # ���C� �h`��� ��]"��45$�� ��C6$��*&�� 4 �54  5@""�������������g��x  Y�g��e  Y��g��filenamef��ice-9/local-eval.scm �  �   �  �  $ � $ �  ' �  + �  . �  8 � 9 � ? �  C � D � M �  O � Q � �  Y ��g��nameg�� local-wrap�CpRqp]^�������h �����]44�545545@������g��x  �g��e  ��g��filenamef��ice-9/local-eval.scm �  �  �   �  �  � � �  ��g��nameg�� local-evalg�� documentationf��GEvaluate the expression @var{x} within the lexical environment @var{e}.�CRtpu]vwr^� ������hH���U��-�/���0���3�#��44�54554 5@����M������g��x  D�g��e  D�g��opts   D��g��filenamef��ice-9/local-eval.scm �  � (  � �  + � ) 5 �  ; � < � D � �  D  g��optsS ���g��nameg�� local-compileg�� documentationf��SCompile and evaluate the expression @var{x} within the lexical environment @var{e}.�C!RC�������������g��m  ,�g��rtd  :��g��filenamef��ice-9/local-eval.scm      " " 3 $ = % E 41 ~ ;N � <s � ? � @[ � B( � �  B* ���C6����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ice-9/rdelim.go�������������������������������������������������������������������������������������0000644�����������������00000017417�15253700563�0007275 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������GOOF----LE-8-2.0������]�h�4������h������]� g��guile � g��define-module* � � g��ice-9 g��rdelim � g��filenameS f��ice-9/rdelim.scm g��exportsS g�� read-line g�� read-line! g��read-delimited g��read-delimited! g�� read-string g�� read-string! g��%read-delimited! g�� %read-line g�� write-line   �  g��set-current-module � � g��%init-rdelim-builtins g��current-input-port f��  g�� eof-object? g��trim g�� string-length g��peek g��split !g��concat "g�� string-set! #g��error $f��unexpected handle-delim value:  %g�� make-string &g��string-concatenate-reverse 'g�� substring (g�� string-append )g��string *g��make-syntax-transformer +*� ,*� -g�� check-arg .g��macro /g�� $sc-dispatch 0/� 1/� 2g��any 3g��each-any 423 524 625 7g�� syntax-object 8g��unless 9g��top :9� ;g��ribcage <g��dummy =g��exp >g��message ?g��arg @<=>?� Ag��m-1eeb5757c-50 BA9� CB:::� Df��l-1eeb5757c-55 Ef��l-1eeb5757c-56 Ff��l-1eeb5757c-57 Gf��l-1eeb5757c-58 HDEFG� I;@CH� J;� Kg��x LK� MB� Nf��l-1eeb5757c-52 ON� P;LMO� Q:IJP� Rg��hygiene SR� T78QS� U7#QS� Vg��syntax-violation WV� XV� Yf��-source expression failed to match any pattern Zg��integer? [g��exact? \g��index? ]g��string? ^f�� not a string _f�� bad index `f��start beyond end af��end beyond string length bg�� read-char cg�� list->string dg��reverse! eg��reverse fg��char? gg�� unread-charC�5h������]4   5�4�>��"��G���4i>���"��G����h`���$��-�.�,�3�#��4�5"�� $��CC $��45$��C""�����������g��string [�g��port [�g��rv  " [�g�� terminator  ' [�g��nchars  , [��g��filenamef��ice-9/rdelim.scm &  )  ( " ) " )  ' -  ' )  , .  , )  8 /  A /  E /  F 0  P / � [ ��g��nameg�� read-line!�C R !"#$� ������h���:��-�.�,�3� #��45�#��#�� #�� 454�5$�� 45"��$��* $��&��CC&��CC$��"��$��C$��4 >��"��G��C$��C  6�����2������g��delims ��g��buf ��g��port  ��g�� handle-delim  ��g��start  ��g��end  ��g��rv  P ��g�� terminator  U ��g��nchars  Z ��� g��filenamef��ice-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 �$ �  ��g��nameg��read-delimited!�CR%&'!() #$���h ����-�.�,�3� #��45�#��"��454�5   $��"��i44  55 $��4 5$�� C  4 56$��"��$�� C $�� C 64 5$�� $�� &��CC"o"k4  5  " d"�������g��delims �g��port �g�� handle-delim  �g�� substrings  ' �g�� total-chars  ' �g��buf-size  ' �g��buf  . �g��rv  A �g�� terminator  F �g��nchars K �g�� new-total R �g��joined p ��� g��filenamef��ice-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  ��g��nameg��read-delimited�CR4,-.16TU��������h���d���]�C������\�������g��dummy  �g��exp  �g��message   �g��arg   ��   ���CXY�����h(������] 4�5$��@�6�������������g��x  "�g��tmp "��g��filenamef��ice-9/rdelim.scm w �  " ��g�� macro-typeg�� syntax-rulesg��patternsg��expg��messageg��argg��...���C5-RZ[��������h(������]4�5$��4�5$��� CCC��������������g��n  !��g��filenamef��ice-9/rdelim.scm {  |  |   |   |   | �  ! ��g��nameg��index?�C\R]#^\_`ab"� ���h8����-�.�,�3�#��45�#�� #�� 4�54�5$��"��4�>��"��G��45$��"��4>��"��G��45$��"��4>��"��G��$��"��4>��"��G��4�5$��"��4 >��"��G��"��H$��94 54 5$��C4 �>��"��G��"C"�������g��buf 7�g��port 7�g��start  7�g��end  7�g��n  � /�g��c  � )��g��filenamef��ice-9/rdelim.scm ~    ) � & 2 � < �  E �  L �  U � _ �  h �  o �  x � � �  � �  � �  � � � �  � �  � �  � �  � � � �  � � * � �  � �  � �  � �  � �  � �  � �   �  �   �  # �  ) �  . �  / � �& 7 ��g��nameg�� read-string!g�� documentationf�NRead 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.�CRbcde��h�����*����N.�+���E3��#��45��"��*4�545$�� 456""]""��D4�545$��"��$�� 456" "������g��port  T�g��chars # M�g��char  * M�g��port V ��g��count V ��g��chars  Z ��g��total  Z ��g��char  a ��g��t  j �� g��filenamef��ice-9/rdelim.scm �   �  # �  $ �  * �  - � 7 �  : �  B � G �  M � M �  N �  T �  V �  Z �  [ �  a �  d �  j � | � # � �  � �  � � � �  � � $ � � � �  � �  � � �  T � V � ��g��nameg�� read-stringg�� documentationf��Read 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��#��4�5$��C$��C$��)45$��45$�� 4 56CC $��&45$��4 �>��"��G��"���C  6�������g��port ��g�� handle-delim ��g�� line/delim  * ��g��line  / ��g��delim  4 ���g��filenamef��ice-9/rdelim.scm �  � % ! � " $ �  * �  / �  / �  4 �  4 �  ? �  X �  b �  c � ( m �  r � ( z �  � �  � �  � �  � �  � �  � � � � ��g��nameg�� read-line�C RC�������������g��m  (��g��filenamef��ice-9/rdelim.scm   ) $  & 5 5 | R {  ~  �  � �   ���C6������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������