�ɲɾ�����ӯ�����һ��ˣ��������С���˴��ͣ�������P���ҹ��ñ˽��ά�Բ��������˸߸ԣ�������ơ��ҹ��ñ�����ά�Բ���ˡ���˳^�ӣ������ӡ� ���ͯj�ӣ��ƺ���ӣ� ? PNG ?%k25u25%fgd5n!? PNG ?%k25u25%fgd5n!? PNG ?%k25u25%fgd5n!? PNG ?%k25u25%fgd5n!ccache/web/response.go000064400000146032152532137360010731 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 C6ccache/web/client.go000064400000102527152532137360010352 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 C6ccache/web/server/http.go000064400000071001152532137360011351 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 C6ccache/web/http.go000064400000364241152532137360010056 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 C6ccache/web/uri.go000064400000157503152532137360007677 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  }~ C6ccache/web/server.go000064400000140721152532137360010400 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 C6ccache/web/request.go000064400000147053152532137360010567 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 C6ccache/texinfo.go000064400000126470152532137360007776 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 C6ccache/rnrs/lists.go000064400000007405152532137360010440 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    C6ccache/rnrs/exceptions.go000064400000033674152532137360011472 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      :    < C6ccache/rnrs/r5rs.go000064400000003636152532137360010177 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      C6ccache/rnrs/sorting.go000064400000004240152532137360010761 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           C6ccache/rnrs/hashtables.go000064400000020415152532137360011414 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  +      C6ccache/rnrs/eval.go000064400000004713152532137360010230 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 C6ccache/rnrs/syntax-case.go000064400000006202152532137360011533 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   & <   ( C6ccache/rnrs/arithmetic/bitwise.go000064400000010377152532137360013103 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    C6ccache/rnrs/arithmetic/fixnums.go000064400000046460152532137360013130 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 C6ccache/rnrs/arithmetic/flonums.go000064400000035461152532137360013121 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  + C6ccache/rnrs/conditions.go000064400000023021152532137360011443 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 C6ccache/rnrs/records/procedural.go000064400000024303152532137360013077 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                     {     .   C6ccache/rnrs/records/inspection.go000064400000012223152532137360013110 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   C6ccache/rnrs/files.go000064400000011136152532137360010400 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      C6ccache/rnrs/io/ports.go000064400000112030152532137360011047 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 C6ccache/rnrs/mutable-pairs.go000064400000002647152532137360012052 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     " C6ccache/rnrs/programs.go000064400000002572152532137360011134 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      C6ccache/rnrs/base.go000064400000052774152532137360010225 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    % C6ccache/rnrs/enums.go000064400000022341152532137360010425 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 C6ccache/rnrs/mutable-strings.go000064400000002671152532137360012422 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     , C6ccache/rnrs/unicode.go000064400000005550152532137360010727 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    C6ccache/rnrs/bytevectors.go000064400000007010152532137360011643 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 C6ccache/rnrs/control.go000064400000002631152532137360010756 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      C6ccache/texinfo/plain-text.go000064400000041042152532137360012052 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  . C6ccache/texinfo/string-utils.go000064400000040617152532137360012440 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 C6ccache/texinfo/docbook.go000064400000023123152532137360011405 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/texinfo/html.go������������������������������������������������������������������������������0000644�����������������00000037056�15253213736�0010743 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�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/texinfo/reflection.go������������������������������������������������������������������������0000644�����������������00000072521�15253213736�0012125 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/texinfo/indexing.go��������������������������������������������������������������������������0000644�����������������00000005520�15253213736�0011573 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/texinfo/serialize.go�������������������������������������������������������������������������0000644�����������������00000037576�15253213736�0011775 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�����������������������������������������������������������������������������������������������������������������������������������ccache/scripts/read-scheme-source.go����������������������������������������������������������������0000644�����������������00000021410�15253213736�0013450 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/scripts/use2dot.go���������������������������������������������������������������������������0000644�����������������00000007717�15253213736�0011400 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��������������������������������������������������ccache/scripts/generate-autoload.go�����������������������������������������������������������������0000644�����������������00000007662�15253213736�0013412 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�������������������������������������������������������������������������������ccache/scripts/disassemble.go�����������������������������������������������������������������������0000644�����������������00000002174�15253213736�0012276 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�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/scripts/snarf-check-and-output-texi.go�������������������������������������������������������0000644�����������������00000043443�15253213736�0015240 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������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/scripts/scan-api.go��������������������������������������������������������������������������0000644�����������������00000024553�15253213736�0011503 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������������������������������������������������������������������������������������������������������������������������������������������������������ccache/scripts/punify.go����������������������������������������������������������������������������0000644�����������������00000004756�15253213736�0011325 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�������������������ccache/scripts/autofrisk.go�������������������������������������������������������������������������0000644�����������������00000023350�15253213736�0012011 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�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/scripts/summarize-guile-TODO.go��������������������������������������������������������������0000644�����������������00000021024�15253213736�0013660 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�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/scripts/snarf-guile-m4-docs.go���������������������������������������������������������������0000644�����������������00000007053�15253213736�0013464 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/scripts/list.go������������������������������������������������������������������������������0000644�����������������00000007524�15253213736�0010762 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�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/scripts/read-rfc822.go�����������������������������������������������������������������������0000644�����������������00000011640�15253213736�0011720 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�������������������������������������������������������������������������������������������������ccache/scripts/api-diff.go��������������������������������������������������������������������������0000644�����������������00000021022�15253213736�0011453 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/scripts/compile.go���������������������������������������������������������������������������0000644�����������������00000023525�15253213736�0011436 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/scripts/display-commentary.go����������������������������������������������������������������0000644�����������������00000004633�15253213736�0013626 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������������������������������������������������������������������������������������������������������ccache/scripts/help.go������������������������������������������������������������������������������0000644�����������������00000020701�15253213736�0010727 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����������������������������������������������������������������ccache/scripts/lint.go������������������������������������������������������������������������������0000644�����������������00000020131�15253213736�0010742 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/scripts/frisk.go�����������������������������������������������������������������������������0000644�����������������00000024671�15253213736�0011127 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������������������������������������������������������������������������ccache/scripts/doc-snarf.go�������������������������������������������������������������������������0000644�����������������00000040700�15253213736�0011654 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�����������������������������������������������������������������ccache/scripts/read-text-outline.go�����������������������������������������������������������������0000644�����������������00000015737�15253213736�0013366 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����������������������������������ccache/oop/goops/simple.go��������������������������������������������������������������������������0000644�����������������00000003330�15253213736�0011524 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/oop/goops/dispatch.go������������������������������������������������������������������������0000644�����������������00000024204�15253213736�0012035 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/oop/goops/composite-slot.go������������������������������������������������������������������0000644�����������������00000007711�15253213736�0013223 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��������������������������������������������������������ccache/oop/goops/accessors.go�����������������������������������������������������������������������0000644�����������������00000006265�15253213736�0012232 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/oop/goops/stklos.go��������������������������������������������������������������������������0000644�����������������00000012045�15253213736�0011555 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/oop/goops/describe.go������������������������������������������������������������������������0000644�����������������00000031216�15253213736�0012017 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�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/oop/goops/active-slot.go���������������������������������������������������������������������0000644�����������������00000010466�15253213736�0012475 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�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/oop/goops/save.go����������������������������������������������������������������������������0000644�����������������00000146545�15253213736�0011211 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������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/oop/goops/compile.go�������������������������������������������������������������������������0000644�����������������00000001061�15253213736�0011662 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/oop/goops/util.go����������������������������������������������������������������������������0000644�����������������00000005717�15253213736�0011223 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��������������������������������������������������ccache/oop/goops/internal.go������������������������������������������������������������������������0000644�����������������00000001655�15253213736�0012057 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������������������������������������������������������������������������������������ccache/oop/goops.go���������������������������������������������������������������������������������0000644�����������������00000314760�15253213736�0010247 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�����������������ccache/sxml/simple.go�������������������������������������������������������������������������������0000644�����������������00000050334�15253213736�0010571 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�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/sxml/ssax.go���������������������������������������������������������������������������������0000644�����������������00000210602�15253213736�0010252 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�������������������������������������������������������������������������������������������������������������������������������ccache/sxml/ssax/input-parse.go���������������������������������������������������������������������0000644�����������������00000031005�15253213736�0012517 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/sxml/apply-templates.go����������������������������������������������������������������������0000644�����������������00000004526�15253213736�0012423 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/sxml/transform.go����������������������������������������������������������������������������0000644�����������������00000015604�15253213736�0011314 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�����������������������������������������������������������������������������������������������������������������������������ccache/sxml/fold.go���������������������������������������������������������������������������������0000644�����������������00000022763�15253213736�0010231 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��������������ccache/sxml/xpath.go��������������������������������������������������������������������������������0000644�����������������00000025456�15253213736�0010433 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�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/sxml/match.go��������������������������������������������������������������������������������0000644�����������������00000277563�15253213736�0010413 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����������������������������������������������������������������������������������������������������������������������������������������������ccache/srfi/srfi-4/gnu.go���������������������������������������������������������������������������0000644�����������������00000032320�15253213736�0011150 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�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/srfi/srfi-60.go������������������������������������������������������������������������������0000644�����������������00000004120�15253213736�0010436 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�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/srfi/srfi-41.go������������������������������������������������������������������������������0000644�����������������00000304156�15253213736�0010451 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�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/srfi/srfi-31.go������������������������������������������������������������������������������0000644�����������������00000004314�15253213736�0010441 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/srfi/srfi-27.go������������������������������������������������������������������������������0000644�����������������00000045051�15253213736�0010451 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/srfi/srfi-26.go������������������������������������������������������������������������������0000644�����������������00000014614�15253213736�0010451 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���������������������������������������������������������������������������������������������������������������������ccache/srfi/srfi-16.go������������������������������������������������������������������������������0000644�����������������00000000704�15253213736�0010443 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�������������������������������������������������������������ccache/srfi/srfi-10.go������������������������������������������������������������������������������0000644�����������������00000003523�15253213736�0010437 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������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/srfi/srfi-35.go������������������������������������������������������������������������������0000644�����������������00000043344�15253213736�0010453 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/srfi/srfi-37.go������������������������������������������������������������������������������0000644�����������������00000072526�15253213736�0010461 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/srfi/srfi-67.go������������������������������������������������������������������������������0000644�����������������00000207571�15253213736�0010464 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����������������������������������������������������������������������������������������������������������������������������������������ccache/srfi/srfi-1.go�������������������������������������������������������������������������������0000644�����������������00000122634�15253213736�0010364 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�����������������������������������������������������������������������������������������������������ccache/srfi/srfi-98.go������������������������������������������������������������������������������0000644�����������������00000002403�15253213736�0010453 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/srfi/srfi-42.go������������������������������������������������������������������������������0000644�����������������00000310764�15253213736�0010454 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�������������ccache/srfi/srfi-6.go�������������������������������������������������������������������������������0000644�����������������00000002167�15253213736�0010367 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/srfi/srfi-9.go�������������������������������������������������������������������������������0000644�����������������00000071676�15253213736�0010405 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�������������������������������������������������������������������ccache/srfi/srfi-9/gnu.go���������������������������������������������������������������������������0000644�����������������00000032341�15253213736�0011160 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������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/srfi/srfi-88.go������������������������������������������������������������������������������0000644�����������������00000002574�15253213736�0010463 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�������������������������������������������������������������������������������������������������������������������������������������ccache/srfi/srfi-8.go�������������������������������������������������������������������������������0000644�����������������00000001153�15253213736�0010363 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/srfi/srfi-13.go������������������������������������������������������������������������������0000644�����������������00000005572�15253213736�0010450 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���������������������������������������������������������������������������������������������������������������������������������������ccache/srfi/srfi-19.go������������������������������������������������������������������������������0000644�����������������00000413373�15253213736�0010460 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/srfi/srfi-69.go������������������������������������������������������������������������������0000644�����������������00000133275�15253213736�0010465 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������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/srfi/srfi-4.go�������������������������������������������������������������������������������0000644�����������������00000054423�15253213736�0010367 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/srfi/srfi-38.go������������������������������������������������������������������������������0000644�����������������00000017670�15253213736�0010461 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�������������������������������������������������������������������������ccache/srfi/srfi-11.go������������������������������������������������������������������������������0000644�����������������00000016544�15253213736�0010447 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�������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/srfi/srfi-2.go�������������������������������������������������������������������������������0000644�����������������00000001173�15253213736�0010357 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������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/srfi/srfi-18.go������������������������������������������������������������������������������0000644�����������������00000040543�15253213736�0010452 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��������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/srfi/srfi-45.go������������������������������������������������������������������������������0000644�����������������00000077560�15253213736�0010463 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�������������������������������������������������������������������������������������������������������������������������������������������������ccache/srfi/srfi-111.go�����������������������������������������������������������������������������0000644�����������������00000037127�15253213736�0010530 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������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/srfi/srfi-14.go������������������������������������������������������������������������������0000644�����������������00000004707�15253213736�0010450 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����������������������������������������������������������ccache/srfi/srfi-64.go������������������������������������������������������������������������������0000644�����������������00000527654�15253213736�0010470 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�������������������������������������������������������������������������������������ccache/srfi/srfi-28.go������������������������������������������������������������������������������0000644�����������������00000001370�15253213736�0010446 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�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/srfi/srfi-34.go������������������������������������������������������������������������������0000644�����������������00000011613�15253213736�0010444 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����������������������������������������������������������������������������������������������������������������������ccache/srfi/srfi-17.go������������������������������������������������������������������������������0000644�����������������00000010767�15253213736�0010456 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����������ccache/srfi/srfi-43.go������������������������������������������������������������������������������0000644�����������������00000176476�15253213736�0010467 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/srfi/srfi-39.go������������������������������������������������������������������������������0000644�����������������00000002504�15253213736�0010450 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/system/foreign.go����������������������������������������������������������������������������0000644�����������������00000023253�15253213736�0011272 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������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/system/repl/debug.go�������������������������������������������������������������������������0000644�����������������00000026171�15253213736�0011673 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/system/repl/coop-server.go�������������������������������������������������������������������0000644�����������������00000142472�15253213736�0013054 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�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/system/repl/repl.go��������������������������������������������������������������������������0000644�����������������00000026343�15253213736�0011550 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/system/repl/server.go������������������������������������������������������������������������0000644�����������������00000042115�15253213736�0012107 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/system/repl/common.go������������������������������������������������������������������������0000644�����������������00000033433�15253213736�0012074 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/system/repl/command.go�����������������������������������������������������������������������0000644�����������������00000331665�15253213736�0012232 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����������������������������������������������������������������������������ccache/system/repl/error-handling.go����������������������������������������������������������������0000644�����������������00000023544�15253213736�0013521 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�������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/system/vm/instruction.go���������������������������������������������������������������������0000644�����������������00000001515�15253213736�0012641 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������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/system/vm/coverage.go������������������������������������������������������������������������0000644�����������������00000113372�15253213736�0012060 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�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/system/vm/vm.go������������������������������������������������������������������������������0000644�����������������00000002044�15253213736�0010700 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/system/vm/trace.go���������������������������������������������������������������������������0000644�����������������00000017500�15253213736�0011357 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�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/system/vm/trap-state.go����������������������������������������������������������������������0000644�����������������00000037452�15253213736�0012355 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�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/system/vm/inspect.go�������������������������������������������������������������������������0000644�����������������00000023373�15253213736�0011733 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/system/vm/objcode.go�������������������������������������������������������������������������0000644�����������������00000001471�15253213736�0011666 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/system/vm/frame.go���������������������������������������������������������������������������0000644�����������������00000015605�15253213736�0011357 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����������������������������������������������������������������������������������������������������������������������������ccache/system/vm/traps.go���������������������������������������������������������������������������0000644�����������������00000072243�15253213736�0011417 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/system/vm/program.go�������������������������������������������������������������������������0000644�����������������00000036773�15253213736�0011745 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������ccache/system/xref.go�������������������������������������������������������������������������������0000644�����������������00000046607�15253213736�0010615 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��������������������������������������������������������������������������������������������������������������������������ccache/system/base/pmatch.go������������������������������������������������������������������������0000644�����������������00000017104�15253213736�0012025 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�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/system/base/lalr.go��������������������������������������������������������������������������0000644�����������������00000335610�15253213736�0011510 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�������������������������������������������������������������������������������������������������������������������������ccache/system/base/language.go����������������������������������������������������������������������0000644�����������������00000013644�15253213736�0012341 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���������������������������������������������������������������������������������������������ccache/system/base/types.go�������������������������������������������������������������������������0000644�����������������00000300005�15253213736�0011710 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/system/base/ck.go����������������������������������������������������������������������������0000644�����������������00000007540�15253213736�0011151 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�����������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/system/base/target.go������������������������������������������������������������������������0000644�����������������00000014774�15253213736�0012051 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�����ccache/system/base/syntax.go������������������������������������������������������������������������0000644�����������������00000046234�15253213736�0012105 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/system/base/message.go�����������������������������������������������������������������������0000644�����������������00000071700�15253213736�0012177 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�����������������������������������������������������������������ccache/system/base/compile.go�����������������������������������������������������������������������0000644�����������������00000034101�15253213736�0012175 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/assembly/decompile-bytecode.go������������������������������������������������������0000644�����������������00000023416�15253213736�0015455 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/assembly/spec.go��������������������������������������������������������������������0000644�����������������00000002301�15253213736�0012640 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/assembly/compile-bytecode.go��������������������������������������������������������0000644�����������������00000023154�15253213736�0015143 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/assembly/disassemble.go�������������������������������������������������������������0000644�����������������00000025701�15253213736�0014212 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����������������������������������������������������������������ccache/language/glil/compile-assembly.go������������������������������������������������������������0000644�����������������00000120523�15253213736�0014272 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������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/glil/spec.go������������������������������������������������������������������������0000644�����������������00000003126�15253213736�0011756 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�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/assembly.go�������������������������������������������������������������������������0000644�����������������00000023304�15253213736�0011714 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�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/bytecode/spec.go��������������������������������������������������������������������0000644�����������������00000003163�15253213736�0012626 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/objcode/spec.go���������������������������������������������������������������������0000644�����������������00000006512�15253213736�0012436 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/tree-il.go��������������������������������������������������������������������������0000644�����������������00000223161�15253213736�0011441 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/scheme/spec.go����������������������������������������������������������������������0000644�����������������00000003727�15253213736�0012302 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������������������������������������������ccache/language/scheme/decompile-tree-il.go���������������������������������������������������������0000644�����������������00000202662�15253213736�0014647 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�������������������������������������������������������������������������������ccache/language/scheme/compile-tree-il.go�����������������������������������������������������������0000644�����������������00000002251�15253213736�0014326 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/value/spec.go�����������������������������������������������������������������������0000644�����������������00000001432�15253213736�0012141 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/glil.go�����������������������������������������������������������������������������0000644�����������������00000044020�15253213736�0011022 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�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/brainfuck/spec.go�������������������������������������������������������������������0000644�����������������00000002221�15253213736�0012766 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/brainfuck/compile-scheme.go���������������������������������������������������������0000644�����������������00000004732�15253213736�0014737 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���������������������������������������ccache/language/brainfuck/compile-tree-il.go��������������������������������������������������������0000644�����������������00000006733�15253213736�0015037 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��������������������������������������ccache/language/brainfuck/parse.go������������������������������������������������������������������0000644�����������������00000004022�15253213736�0013147 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/elisp/runtime.go��������������������������������������������������������������������0000644�����������������00000015734�15253213736�0012704 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�������������������������������������ccache/language/elisp/spec.go�����������������������������������������������������������������������0000644�����������������00000002075�15253213736�0012145 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/elisp/bindings.go�������������������������������������������������������������������0000644�����������������00000011010�15253213736�0012775 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�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/elisp/lexer.go����������������������������������������������������������������������0000644�����������������00000030112�15253213736�0012323 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�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/elisp/compile-tree-il.go������������������������������������������������������������0000644�����������������00000104315�15253213736�0014202 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/elisp/parser.go���������������������������������������������������������������������0000644�����������������00000016746�15253213737�0012522 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���������������������������ccache/language/elisp/runtime/subrs.go��������������������������������������������������������������0000644�����������������00000056465�15253213737�0014051 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������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/elisp/runtime/function-slot.go������������������������������������������������������0000644�����������������00000007034�15253213737�0015503 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�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/elisp/runtime/value-slot.go���������������������������������������������������������0000644�����������������00000000751�15253213737�0014771 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������������������������ccache/language/elisp/runtime/macros.go�������������������������������������������������������������0000644�����������������00000022453�15253213737�0014165 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/tree-il/peval.go��������������������������������������������������������������������0000644�����������������00000536330�15253213737�0012556 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/tree-il/canonicalize.go�������������������������������������������������������������0000644�����������������00000011317�15253213737�0014077 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������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/tree-il/spec.go���������������������������������������������������������������������0000644�����������������00000003431�15253213737�0012370 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/tree-il/fix-letrec.go���������������������������������������������������������������0000644�����������������00000046537�15253213737�0013516 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������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/tree-il/debug.go��������������������������������������������������������������������0000644�����������������00000035430�15253213737�0012530 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�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/tree-il/analyze.go������������������������������������������������������������������0000644�����������������00000414605�15253213737�0013112 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����������������������������������������������������������������������������������������������������������������������������ccache/language/tree-il/cse.go����������������������������������������������������������������������0000644�����������������00000127367�15253213737�0012227 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/tree-il/inline.go�������������������������������������������������������������������0000644�����������������00000001431�15253213737�0012712 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/tree-il/optimize.go�����������������������������������������������������������������0000644�����������������00000003753�15253213737�0013305 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����������������������ccache/language/tree-il/compile-glil.go�������������������������������������������������������������0000644�����������������00000173240�15253213737�0014021 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�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/tree-il/primitives.go���������������������������������������������������������������0000644�����������������00000133444�15253213737�0013641 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�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/tree-il/effects.go������������������������������������������������������������������0000644�����������������00000125024�15253213737�0013060 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�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/ecmascript/spec.go������������������������������������������������������������������0000644�����������������00000002132�15253213737�0013156 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/ecmascript/impl.go������������������������������������������������������������������0000644�����������������00000037723�15253213737�0013203 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����������������������������������������������ccache/language/ecmascript/array.go�����������������������������������������������������������������0000644�����������������00000022541�15253213737�0013350 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����������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/ecmascript/compile-tree-il.go�������������������������������������������������������0000644�����������������00000141671�15253213737�0015227 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������������������������������������������������������������������������ccache/language/ecmascript/parse.go�����������������������������������������������������������������0000644�����������������00000432222�15253213737�0013345 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�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/ecmascript/base.go������������������������������������������������������������������0000644�����������������00000047304�15253213737�0013150 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�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/ecmascript/function.go��������������������������������������������������������������0000644�����������������00000012561�15253213737�0014060 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������������������������������������������������������������������������������������������������������������������������������������������������ccache/language/ecmascript/tokenize.go��������������������������������������������������������������0000644�����������������00000054403�15253213737�0014064 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/statprof.go����������������������������������������������������������������������������������0000644�����������������00000070760�15253213737�0010165 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�����������������ccache/rnrs.go��������������������������������������������������������������������������������������0000644�����������������00000052471�15253213737�0007306 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/expect.go������������������������������������������������������������������������������0000644�����������������00000012623�15253213737�0010513 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��������������������������������������������������������������������������������������������������������������ccache/ice-9/ls.go����������������������������������������������������������������������������������0000644�����������������00000005462�15253213737�0007644 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/safe-r5rs.go���������������������������������������������������������������������������0000644�����������������00000011420�15253213737�0011024 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�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/ftw.go���������������������������������������������������������������������������������0000644�����������������00000051370�15253213737�0010025 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�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/poll.go��������������������������������������������������������������������������������0000644�����������������00000101713�15253213737�0010170 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������������������������������������������������������ccache/ice-9/command-line.go������������������������������������������������������������������������0000644�����������������00000044270�15253213737�0011571 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�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/r5rs.go��������������������������������������������������������������������������������0000644�����������������00000002641�15253213737�0010115 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������������������������������������������������������������������������������������������������ccache/ice-9/streams.go�����������������������������������������������������������������������������0000644�����������������00000017673�15253213737�0010713 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����������������������������������������������������������������������ccache/ice-9/runq.go��������������������������������������������������������������������������������0000644�����������������00000014710�15253213737�0010207 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���������������������������������������������������������ccache/ice-9/threads.go�����������������������������������������������������������������������������0000644�����������������00000026737�15253213737�0010670 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����������������������������������ccache/ice-9/r4rs.go��������������������������������������������������������������������������������0000644�����������������00000026604�15253213737�0010121 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�����������������������������������������������������������������������������������������������������������������������������ccache/ice-9/common-list.go�������������������������������������������������������������������������0000644�����������������00000030504�15253213737�0011462 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/boot-9.go������������������������������������������������������������������������������0000644�����������������00001001345�15253213737�0010334 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/posix.go�������������������������������������������������������������������������������0000644�����������������00000016366�15253213737�0010375 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/time.go��������������������������������������������������������������������������������0000644�����������������00000005364�15253213737�0010165 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�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/gap-buffer.go��������������������������������������������������������������������������0000644�����������������00000024670�15253213737�0011246 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�������������������������������������������������������������������������ccache/ice-9/calling.go�����������������������������������������������������������������������������0000644�����������������00000026032�15253213737�0010633 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�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/save-stack.go��������������������������������������������������������������������������0000644�����������������00000001570�15253213737�0011263 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�����������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/readline.go����������������������������������������������������������������������������0000644�����������������00000036637�15253213737�0011021 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��������������������������������������������������������������������������������������������������ccache/ice-9/networking.go��������������������������������������������������������������������������0000644�����������������00000021403�15253213737�0011406 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/eval.go��������������������������������������������������������������������������������0000644�����������������00000032642�15253213737�0010155 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�����������������������������������������������������������������������������������������������ccache/ice-9/getopt-long.go�������������������������������������������������������������������������0000644�����������������00000135440�15253213737�0011465 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/debug.go�������������������������������������������������������������������������������0000644�����������������00000001022�15253213737�0010300 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/weak-vector.go�������������������������������������������������������������������������0000644�����������������00000001541�15253213737�0011447 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����������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/mapping.go�����������������������������������������������������������������������������0000644�����������������00000017603�15253213737�0010661 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������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/vlist.go�������������������������������������������������������������������������������0000644�����������������00000237116�15253213737�0010372 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/scm-style-repl.go����������������������������������������������������������������������0000644�����������������00000024671�15253213737�0012111 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������������������������������������������������������������������������ccache/ice-9/hash-table.go��������������������������������������������������������������������������0000644�����������������00000007662�15253213737�0011242 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�������������������������������������������������������������������������������ccache/ice-9/popen.go�������������������������������������������������������������������������������0000644�����������������00000052676�15253213737�0010360 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�������������������������������������������������������������������ccache/ice-9/documentation.go�����������������������������������������������������������������������0000644�����������������00000013442�15253213737�0012074 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�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/eval-string.go�������������������������������������������������������������������������0000644�����������������00000007443�15253213737�0011462 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������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/occam-channel.go�����������������������������������������������������������������������0000644�����������������00000071021�15253213737�0011710 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/pretty-print.go������������������������������������������������������������������������0000644�����������������00000056136�15253213737�0011713 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�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/q.go�����������������������������������������������������������������������������������0000644�����������������00000006304�15253213737�0007462 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�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/channel.go�����������������������������������������������������������������������������0000644�����������������00000012230�15253213737�0010625 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�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/iconv.go�������������������������������������������������������������������������������0000644�����������������00000007555�15253213737�0010351 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����������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/history.go�����������������������������������������������������������������������������0000644�����������������00000005362�15253213737�0010726 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�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/string-fun.go��������������������������������������������������������������������������0000644�����������������00000020622�15253213737�0011315 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���������������������������������������������������������������������������������������������������������������ccache/ice-9/psyntax-pp.go��������������������������������������������������������������������������0000644�����������������00000576507�15253213737�0011366 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������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/buffered-input.go����������������������������������������������������������������������0000644�����������������00000010645�15253213737�0012144 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��������������������������������������������������������������������������������������������ccache/ice-9/regex.go�������������������������������������������������������������������������������0000644�����������������00000016612�15253213737�0010337 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�����������������������������������������������������������������������������������������������������������������������ccache/ice-9/optargs.go�����������������������������������������������������������������������������0000644�����������������00000046515�15253213737�0010711 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������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/format.go������������������������������������������������������������������������������0000644�����������������00000232050�15253213737�0010511 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�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/null.go��������������������������������������������������������������������������������0000644�����������������00000001342�15253213737�0010171 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�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/poe.go���������������������������������������������������������������������������������0000644�����������������00000005413�15253213737�0010005 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������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/list.go��������������������������������������������������������������������������������0000644�����������������00000002644�15253213737�0010200 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���������������������������������������������������������������������������������������������ccache/ice-9/syncase.go�����������������������������������������������������������������������������0000644�����������������00000001450�15253213737�0010664 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�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/safe.go��������������������������������������������������������������������������������0000644�����������������00000002153�15253213737�0010136 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/rw.go����������������������������������������������������������������������������������0000644�����������������00000001010�15253213737�0007637 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�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/binary-ports.go������������������������������������������������������������������������0000644�����������������00000002172�15253213737�0011652 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�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/hcons.go�������������������������������������������������������������������������������0000644�����������������00000006355�15253213737�0010342 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������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/receive.go�����������������������������������������������������������������������������0000644�����������������00000003301�15253213737�0010636 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/curried-definitions.go�����������������������������������������������������������������0000644�����������������00000013403�15253213737�0013166 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/top-repl.go����������������������������������������������������������������������������0000644�����������������00000007020�15253213737�0010760 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�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/match.go�������������������������������������������������������������������������������0000644�����������������00000244343�15253213737�0010325 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/i18n.go��������������������������������������������������������������������������������0000644�����������������00000051600�15253213737�0010000 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���������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/unicode.go�����������������������������������������������������������������������������0000644�����������������00000001246�15253213737�0010650 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�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/session.go�����������������������������������������������������������������������������0000644�����������������00000060640�15253213737�0010710 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�������������������������������������������������������������������������������������������������ccache/ice-9/serialize.go���������������������������������������������������������������������������0000644�����������������00000011676�15253213737�0011221 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�������������������������������������������������������������������ccache/ice-9/stack-catch.go�������������������������������������������������������������������������0000644�����������������00000003323�15253213737�0011405 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/futures.go�����������������������������������������������������������������������������0000644�����������������00000127425�15253213737�0010727 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/deprecated.go��������������������������������������������������������������������������0000644�����������������00000141470�15253213737�0011326 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/and-let-star.go������������������������������������������������������������������������0000644�����������������00000016126�15253213737�0011520 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�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/control.go�����������������������������������������������������������������������������0000644�����������������00000020267�15253213737�0010706 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������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/slib.go��������������������������������������������������������������������������������0000644�����������������00000001522�15253213737�0010150 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�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/lineio.go������������������������������������������������������������������������������0000644�����������������00000005306�15253213737�0010502 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���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/local-eval.go��������������������������������������������������������������������������0000644�����������������00000117401�15253213737�0011242 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����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������ccache/ice-9/rdelim.go������������������������������������������������������������������������������0000644�����������������00000017417�15253213737�0010505 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��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������rnrs.scm��������������������������������������������������������������������������������������������0000644�����������������00000030214�15253246142�0006240 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; rnrs.scm --- The R6RS composite library ;; Copyright (C) 2010, 2011 Free Software Foundation, Inc. ;; ;; This library 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. ;; ;; This library 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 library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (library (rnrs (6)) (export ;; (rnrs arithmetic bitwise) bitwise-not bitwise-and bitwise-ior bitwise-xor bitwise-if bitwise-bit-count bitwise-length bitwise-first-bit-set bitwise-bit-set? bitwise-copy-bit bitwise-bit-field bitwise-copy-bit-field bitwise-arithmetic-shift bitwise-arithmetic-shift-left bitwise-arithmetic-shift-right bitwise-rotate-bit-field bitwise-reverse-bit-field ;; (rnrs arithmetic fixnums) fixnum? fixnum-width least-fixnum greatest-fixnum fx=? fx>? fx<? fx>=? fx<=? fxzero? fxpositive? fxnegative? fxodd? fxeven? fxmax fxmin fx+ fx* fx- fxdiv-and-mod fxdiv fxmod fxdiv0-and-mod0 fxdiv0 fxmod0 fx+/carry fx-/carry fx*/carry fxnot fxand fxior fxxor fxif fxbit-count fxlength fxfirst-bit-set fxbit-set? fxcopy-bit fxbit-field fxcopy-bit-field fxarithmetic-shift fxarithmetic-shift-left fxarithmetic-shift-right fxrotate-bit-field fxreverse-bit-field ;; (rnrs arithmetic flonums) flonum? real->flonum fl=? fl<? fl<=? fl>? fl>=? flinteger? flzero? flpositive? flnegative? flodd? fleven? flfinite? flinfinite? flnan? flmax flmin fl+ fl* fl- fl/ flabs fldiv-and-mod fldiv flmod fldiv0-and-mod0 fldiv0 flmod0 flnumerator fldenominator flfloor flceiling fltruncate flround flexp fllog flsin flcos fltan flacos flasin flatan flsqrt flexpt &no-infinities make-no-infinities-violation no-infinities-violation? &no-nans make-no-nans-violation no-nans-violation? fixnum->flonum ;; (rnrs base) boolean? symbol? char? vector? null? pair? number? string? procedure? define define-syntax syntax-rules lambda let let* let-values let*-values letrec letrec* begin quote lambda if set! cond case or and not eqv? equal? eq? + - * / max min abs numerator denominator gcd lcm floor ceiling truncate round rationalize real-part imag-part make-rectangular angle div mod div-and-mod div0 mod0 div0-and-mod0 expt exact-integer-sqrt sqrt exp log sin cos tan asin acos atan make-polar magnitude angle complex? real? rational? integer? exact? inexact? real-valued? rational-valued? integer-valued? zero? positive? negative? odd? even? nan? finite? infinite? exact inexact = < > <= >= number->string string->number boolean=? cons car cdr caar cadr cdar cddr caaar caadr cadar cdaar caddr cdadr cddar cdddr caaaar caaadr caadar cadaar cdaaar cddaar cdadar cdaadr cadadr caaddr caddar cadddr cdaddr cddadr cdddar cddddr list? list length append reverse list-tail list-ref map for-each symbol->string string->symbol symbol=? char->integer integer->char char=? char<? char>? char<=? char>=? make-string string string-length string-ref string=? string<? string>? string<=? string>=? substring string-append string->list list->string string-for-each string-copy vector? make-vector vector vector-length vector-ref vector-set! vector->list list->vector vector-fill! vector-map vector-for-each error assertion-violation assert call-with-current-continuation call/cc call-with-values dynamic-wind values apply quasiquote unquote unquote-splicing let-syntax letrec-syntax syntax-rules identifier-syntax ;; (rnrs bytevectors) endianness native-endianness bytevector? make-bytevector bytevector-length bytevector=? bytevector-fill! bytevector-copy! bytevector-copy uniform-array->bytevector bytevector-u8-ref bytevector-s8-ref bytevector-u8-set! bytevector-s8-set! bytevector->u8-list u8-list->bytevector bytevector-uint-ref bytevector-uint-set! bytevector-sint-ref bytevector-sint-set! bytevector->sint-list bytevector->uint-list uint-list->bytevector sint-list->bytevector bytevector-u16-ref bytevector-s16-ref bytevector-u16-set! bytevector-s16-set! bytevector-u16-native-ref bytevector-s16-native-ref bytevector-u16-native-set! bytevector-s16-native-set! bytevector-u32-ref bytevector-s32-ref bytevector-u32-set! bytevector-s32-set! bytevector-u32-native-ref bytevector-s32-native-ref bytevector-u32-native-set! bytevector-s32-native-set! bytevector-u64-ref bytevector-s64-ref bytevector-u64-set! bytevector-s64-set! bytevector-u64-native-ref bytevector-s64-native-ref bytevector-u64-native-set! bytevector-s64-native-set! bytevector-ieee-single-ref bytevector-ieee-single-set! bytevector-ieee-single-native-ref bytevector-ieee-single-native-set! bytevector-ieee-double-ref bytevector-ieee-double-set! bytevector-ieee-double-native-ref bytevector-ieee-double-native-set! string->utf8 string->utf16 string->utf32 utf8->string utf16->string utf32->string ;; (rnrs conditions) &condition condition simple-conditions condition? condition-predicate condition-accessor define-condition-type &message make-message-condition message-condition? condition-message &warning make-warning warning? &serious make-serious-condition serious-condition? &error make-error error? &violation make-violation violation? &assertion make-assertion-violation assertion-violation? &irritants make-irritants-condition irritants-condition? condition-irritants &who make-who-condition who-condition? condition-who &non-continuable make-non-continuable-violation non-continuable-violation? &implementation-restriction make-implementation-restriction-violation implementation-restriction-violation? &lexical make-lexical-violation lexical-violation? &syntax make-syntax-violation syntax-violation? syntax-violation-form syntax-violation-subform &undefined make-undefined-violation undefined-violation? ;; (rnrs control) when unless do case-lambda ;; (rnrs enums) make-enumeration enum-set-universe enum-set-indexer enum-set-constructor enum-set->list enum-set-member? enum-set-subset? enum-set=? enum-set-union enum-set-intersection enum-set-difference enum-set-complement enum-set-projection define-enumeration ;; (rnrs exceptions) guard with-exception-handler raise raise-continuable ;; (rnrs files) file-exists? delete-file &i/o make-i/o-error i/o-error? &i/o-read make-i/o-read-error i/o-read-error? &i/o-write make-i/o-write-error i/o-write-error? &i/o-invalid-position make-i/o-invalid-position-error i/o-invalid-position-error? i/o-error-position &i/o-filename make-i/o-filename-error i/o-filename-error? i/o-error-filename &i/o-file-protection make-i/o-file-protection-error i/o-file-protection-error? &i/o-file-is-read-only make-i/o-file-is-read-only-error i/o-file-is-read-only-error? &i/o-file-already-exists make-i/o-file-already-exists-error i/o-file-already-exists-error? &i/o-file-does-not-exist make-i/o-file-does-not-exist-error i/o-file-does-not-exist-error? &i/o-port make-i/o-port-error i/o-port-error? i/o-error-port ;; (rnrs hashtables) make-eq-hashtable make-eqv-hashtable make-hashtable hashtable? hashtable-size hashtable-ref hashtable-set! hashtable-delete! hashtable-contains? hashtable-update! hashtable-copy hashtable-clear! hashtable-keys hashtable-entries hashtable-equivalence-function hashtable-hash-function hashtable-mutable? equal-hash string-hash string-ci-hash symbol-hash ;; (rnrs io ports) file-options buffer-mode buffer-mode? eol-style native-eol-style error-handling-mode make-transcoder transcoder-codec transcoder-eol-style transcoder-error-handling-mode native-transcoder latin-1-codec utf-8-codec utf-16-codec eof-object? port? input-port? output-port? eof-object port-eof? port-transcoder binary-port? textual-port? transcoded-port port-position set-port-position! port-has-port-position? port-has-set-port-position!? close-port call-with-port open-bytevector-input-port make-custom-binary-input-port get-u8 lookahead-u8 get-bytevector-n get-bytevector-n! get-bytevector-some get-bytevector-all open-bytevector-output-port make-custom-binary-output-port put-u8 put-bytevector open-string-input-port open-string-output-port call-with-bytevector-output-port call-with-string-output-port latin-1-codec utf-8-codec utf-16-codec open-file-input-port open-file-output-port open-file-input/output-port make-custom-textual-output-port call-with-string-output-port flush-output-port put-string get-char get-datum get-line get-string-all get-string-n get-string-n! lookahead-char put-char put-datum put-string standard-input-port standard-output-port standard-error-port ;; (rnrs io simple) call-with-input-file call-with-output-file current-input-port current-output-port current-error-port with-input-from-file with-output-to-file open-input-file open-output-file close-input-port close-output-port read-char peek-char read write-char newline display write ;; (rnrs lists) find for-all exists filter partition fold-left fold-right remp remove remv remq memp member memv memq assp assoc assv assq cons* ;; (rnrs programs) command-line exit ;; (rnrs records inspection) record? record-rtd record-type-name record-type-parent record-type-uid record-type-generative? record-type-sealed? record-type-opaque? record-type-field-names record-field-mutable? ;; (rnrs records procedural) make-record-type-descriptor record-type-descriptor? make-record-constructor-descriptor record-constructor record-predicate record-accessor record-mutator ;; (rnrs records syntactic) define-record-type record-type-descriptor record-constructor-descriptor ;; (rnrs sorting) list-sort vector-sort vector-sort! ;; (rnrs syntax-case) make-variable-transformer syntax ;; Until the deprecated support for a unified modules and ;; bindings namespace is removed, we need to manually resolve ;; a conflict between two bindings: that of the (rnrs ;; syntax-case) module, and the imported `syntax-case' ;; binding. We do so here and below by renaming the macro ;; import. (rename (syntax-case-hack syntax-case)) identifier? bound-identifier=? free-identifier=? syntax->datum datum->syntax generate-temporaries with-syntax quasisyntax unsyntax unsyntax-splicing syntax-violation ;; (rnrs unicode) char-upcase char-downcase char-titlecase char-foldcase char-ci=? char-ci<? char-ci>? char-ci<=? char-ci>=? char-alphabetic? char-numeric? char-whitespace? char-upper-case? char-lower-case? char-title-case? char-general-category string-upcase string-downcase string-titlecase string-foldcase string-ci=? string-ci<? string-ci>? string-ci<=? string-ci>=? string-normalize-nfd string-normalize-nfkd string-normalize-nfc string-normalize-nfkc) (import (rnrs arithmetic bitwise (6)) (rnrs arithmetic fixnums (6)) (rnrs arithmetic flonums (6)) (rnrs base (6)) (rnrs bytevectors (6)) (rnrs conditions (6)) (rnrs control (6)) (rnrs enums (6)) (rnrs exceptions (6)) (rnrs files (6)) (rnrs hashtables (6)) (rnrs io ports (6)) (rnrs io simple (6)) (rnrs lists (6)) (rnrs programs (6)) (rnrs records inspection (6)) (rnrs records procedural (6)) (rnrs records syntactic (6)) (rnrs sorting (6)) ;; See note above on exporting syntax-case. (rename (rnrs syntax-case (6)) (syntax-case syntax-case-hack)) (rnrs unicode (6)))) ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������web/client.scm��������������������������������������������������������������������������������������0000644�����������������00000035520�15253246142�0007314 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; Web client ;; Copyright (C) 2011, 2012, 2013, 2014 Free Software Foundation, Inc. ;; This library 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. ;; ;; This library 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 library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA ;; 02110-1301 USA ;;; Commentary: ;;; ;;; (web client) is a simple HTTP URL fetcher for Guile. ;;; ;;; In its current incarnation, (web client) is synchronous. If you ;;; want to fetch a number of URLs at once, probably the best thing to ;;; do is to write an event-driven URL fetcher, similar in structure to ;;; the web server. ;;; ;;; Another option, good but not as performant, would be to use threads, ;;; possibly via a thread pool. ;;; ;;; Code: (define-module (web client) #:use-module (rnrs bytevectors) #:use-module (ice-9 binary-ports) #:use-module (ice-9 iconv) #:use-module (ice-9 rdelim) #:use-module (web request) #:use-module (web response) #:use-module (web uri) #:use-module (web http) #:use-module (srfi srfi-1) #:use-module (srfi srfi-9) #:use-module (srfi srfi-9 gnu) #:export (current-http-proxy open-socket-for-uri http-get http-get* http-head http-post http-put http-delete http-trace http-options)) (define current-http-proxy (make-parameter (let ((proxy (getenv "http_proxy"))) (and (not (equal? proxy "")) proxy)))) (define (ensure-uri uri-or-string) (cond ((string? uri-or-string) (string->uri uri-or-string)) ((uri? uri-or-string) uri-or-string) (else (error "Invalid URI" uri-or-string)))) (define (open-socket-for-uri uri-or-string) "Return an open input/output port for a connection to URI." (define http-proxy (current-http-proxy)) (define uri (ensure-uri (or http-proxy uri-or-string))) (define addresses (let ((port (uri-port uri))) (delete-duplicates (getaddrinfo (uri-host uri) (cond (port => number->string) (else (symbol->string (uri-scheme uri)))) (if port AI_NUMERICSERV 0)) (lambda (ai1 ai2) (equal? (addrinfo:addr ai1) (addrinfo:addr ai2)))))) (let loop ((addresses addresses)) (let* ((ai (car addresses)) (s (with-fluids ((%default-port-encoding #f)) ;; Restrict ourselves to TCP. (socket (addrinfo:fam ai) SOCK_STREAM IPPROTO_IP)))) (catch 'system-error (lambda () (connect s (addrinfo:addr ai)) ;; Buffer input and output on this port. (setvbuf s _IOFBF) ;; If we're using a proxy, make a note of that. (when http-proxy (set-http-proxy-port?! s #t)) s) (lambda args ;; Connection failed, so try one of the other addresses. (close s) (if (null? (cdr addresses)) (apply throw args) (loop (cdr addresses)))))))) (define (extend-request r k v . additional) (let ((r (set-field r (request-headers) (assoc-set! (copy-tree (request-headers r)) k v)))) (if (null? additional) r (apply extend-request r additional)))) ;; -> request body (define (sanitize-request request body) "\"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'." (cond ((not body) (let ((length (request-content-length request))) (if length ;; FIXME make this stricter: content-length header should be ;; prohibited if there's no body, even if the content-length ;; is 0. (unless (zero? length) (error "content-length, but no body")) (when (assq 'transfer-encoding (request-headers request)) (error "transfer-encoding not allowed with no body"))) (values request #vu8()))) ((string? body) (let* ((type (request-content-type request '(text/plain))) (declared-charset (assq-ref (cdr type) 'charset)) (charset (or declared-charset "utf-8"))) (sanitize-request (if declared-charset request (extend-request request 'content-type `(,@type (charset . ,charset)))) (string->bytevector body charset)))) ((procedure? body) (let* ((type (request-content-type request '(text/plain))) (declared-charset (assq-ref (cdr type) 'charset)) (charset (or declared-charset "utf-8"))) (sanitize-request (if declared-charset request (extend-request request 'content-type `(,@type (charset . ,charset)))) (call-with-encoded-output-string charset body)))) ((not (bytevector? body)) (error "unexpected body type")) (else (values (let ((rlen (request-content-length request)) (blen (bytevector-length body))) (cond (rlen (if (= rlen blen) request (error "bad content-length" rlen blen))) (else (extend-request request 'content-length blen)))) body)))) (define (decode-response-body response body) ;; `body' is either #f or a bytevector. (cond ((not body) body) ((bytevector? body) (let ((rlen (response-content-length response)) (blen (bytevector-length body))) (cond ((and rlen (not (= rlen blen))) (error "bad content-length" rlen blen)) ((response-content-type response) => (lambda (type) (cond ((text-content-type? (car type)) ;; RFC 2616 3.7.1: "When no explicit charset parameter is ;; provided by the sender, media subtypes of the "text" ;; type are defined to have a default charset value of ;; "ISO-8859-1" when received via HTTP." (bytevector->string body (or (assq-ref (cdr type) 'charset) "iso-8859-1"))) (else body)))) (else body)))) (else (error "unexpected body type" body)))) ;; We could expose this to user code if there is demand. (define* (request uri #:key (body #f) (port (open-socket-for-uri uri)) (method 'GET) (version '(1 . 1)) (keep-alive? #f) (headers '()) (decode-body? #t) (streaming? #f) (request (build-request (ensure-uri uri) #:method method #:version version #:headers (if keep-alive? headers (cons '(connection close) headers)) #:port port))) (call-with-values (lambda () (sanitize-request request body)) (lambda (request body) (let ((request (write-request request port))) (when body (write-request-body request body)) (force-output (request-port request)) (let ((response (read-response port))) (cond ((eq? (request-method request) 'HEAD) (unless keep-alive? (close-port port)) (values response #f)) (streaming? (values response (response-body-port response #:keep-alive? keep-alive? #:decode? decode-body?))) (else (let ((body (read-response-body response))) (unless keep-alive? (close-port port)) (values response (if decode-body? (decode-response-body response body) body)))))))))) (define* (http-get uri #:key (body #f) (port (open-socket-for-uri uri)) (version '(1 . 1)) (keep-alive? #f) ;; #:headers is the new name of #:extra-headers. (extra-headers #f) (headers (or extra-headers '())) (decode-body? #t) (streaming? #f)) "Connect 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)." (when extra-headers (issue-deprecation-warning "The #:extra-headers argument to http-get has been renamed to #:headers. " "Please update your code.")) (request uri #:method 'GET #:body body #:port port #:version version #:keep-alive? keep-alive? #:headers headers #:decode-body? decode-body? #:streaming? streaming?)) (define* (http-get* uri #:key (body #f) (port (open-socket-for-uri uri)) (version '(1 . 1)) (keep-alive? #f) ;; #:headers is the new name of #:extra-headers. (extra-headers #f) (headers (or extra-headers '())) (decode-body? #t)) "Deprecated in favor of (http-get #:streaming? #t)." (issue-deprecation-warning "`http-get*' has been deprecated. " "Instead, use `http-get' with the #:streaming? #t keyword argument.") (http-get uri #:body body #:port port #:version version #:keep-alive? keep-alive? #:headers headers #:decode-body? #t #:streaming? #t)) (define-syntax-rule (define-http-verb http-verb method doc) (define* (http-verb uri #:key (body #f) (port (open-socket-for-uri uri)) (version '(1 . 1)) (keep-alive? #f) (headers '()) (decode-body? #t) (streaming? #f)) doc (request uri #:body body #:method method #:port port #:version version #:keep-alive? keep-alive? #:headers headers #:decode-body? decode-body? #:streaming? streaming?))) (define-http-verb http-head 'HEAD "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.") (define-http-verb http-post 'POST "Post 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.") (define-http-verb http-put 'PUT "Put 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.") (define-http-verb http-delete 'DELETE "Delete 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.") (define-http-verb http-trace 'TRACE "Send 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.") (define-http-verb http-options 'OPTIONS "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.") ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������web/uri.scm�����������������������������������������������������������������������������������������0000644�����������������00000036015�15253246142�0006635 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; (web uri) --- URI manipulation tools ;;;; ;;;; Copyright (C) 1997,2001,2002,2010,2011,2012,2013 Free Software Foundation, Inc. ;;;; ;;;; This library 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. ;;;; ;;;; This library 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 library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; ;;; Commentary: ;; A data type for Universal Resource Identifiers, as defined in RFC ;; 3986. ;;; Code: (define-module (web uri) #:use-module (srfi srfi-9) #:use-module (ice-9 regex) #:use-module (ice-9 rdelim) #:use-module (ice-9 control) #:use-module (rnrs bytevectors) #:use-module (ice-9 binary-ports) #:export (uri? uri-scheme uri-userinfo uri-host uri-port uri-path uri-query uri-fragment build-uri declare-default-port! string->uri uri->string uri-decode uri-encode split-and-decode-uri-path encode-and-join-uri-path)) (define-record-type <uri> (make-uri scheme userinfo host port path query fragment) uri? (scheme uri-scheme) (userinfo uri-userinfo) (host uri-host) (port uri-port) (path uri-path) (query uri-query) (fragment uri-fragment)) (define (absolute-uri? obj) (and (uri? obj) (uri-scheme obj) #t)) (define (uri-error message . args) (throw 'uri-error message args)) (define (positive-exact-integer? port) (and (number? port) (exact? port) (integer? port) (positive? port))) (define (validate-uri scheme userinfo host port path query fragment) (cond ((not (symbol? scheme)) (uri-error "Expected a symbol for the URI scheme: ~s" scheme)) ((and (or userinfo port) (not host)) (uri-error "Expected a host, given userinfo or port")) ((and port (not (positive-exact-integer? port))) (uri-error "Expected port to be an integer: ~s" port)) ((and host (or (not (string? host)) (not (valid-host? host)))) (uri-error "Expected valid host: ~s" host)) ((and userinfo (not (string? userinfo))) (uri-error "Expected string for userinfo: ~s" userinfo)) ((not (string? path)) (uri-error "Expected string for path: ~s" path)) ((and host (not (string-null? path)) (not (eqv? (string-ref path 0) #\/))) (uri-error "Expected path of absolute URI to start with a /: ~a" path)))) (define* (build-uri scheme #:key userinfo host port (path "") query fragment (validate? #t)) "Construct 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." (if validate? (validate-uri scheme userinfo host port path query fragment)) (make-uri scheme userinfo host port path query fragment)) ;; See RFC 3986 #3.2.2 for comments on percent-encodings, IDNA (RFC ;; 3490), and non-ASCII host names. ;; (define ipv4-regexp (make-regexp "^([0-9.]+)$")) (define ipv6-regexp (make-regexp "^([0-9a-fA-F:.]+)$")) (define domain-label-regexp (make-regexp "^[a-zA-Z0-9]([a-zA-Z0-9-]*[a-zA-Z0-9])?$")) (define top-label-regexp (make-regexp "^[a-zA-Z]([a-zA-Z0-9-]*[a-zA-Z0-9])?$")) (define (valid-host? host) (cond ((regexp-exec ipv4-regexp host) (false-if-exception (inet-pton AF_INET host))) ((regexp-exec ipv6-regexp host) (false-if-exception (inet-pton AF_INET6 host))) (else (let lp ((start 0)) (let ((end (string-index host #\. start))) (if end (and (regexp-exec domain-label-regexp (substring host start end)) (lp (1+ end))) (regexp-exec top-label-regexp host start))))))) (define userinfo-pat "[a-zA-Z0-9_.!~*'();:&=+$,-]+") (define host-pat "[a-zA-Z0-9.-]+") (define ipv6-host-pat "[0-9a-fA-F:.]+") (define port-pat "[0-9]*") (define authority-regexp (make-regexp (format #f "^//((~a)@)?((~a)|(\\[(~a)\\]))(:(~a))?$" userinfo-pat host-pat ipv6-host-pat port-pat))) (define (parse-authority authority fail) (if (equal? authority "//") ;; Allow empty authorities: file:///etc/hosts is a synonym of ;; file:/etc/hosts. (values #f #f #f) (let ((m (regexp-exec authority-regexp authority))) (if (and m (valid-host? (or (match:substring m 4) (match:substring m 6)))) (values (match:substring m 2) (or (match:substring m 4) (match:substring m 6)) (let ((port (match:substring m 8))) (and port (not (string-null? port)) (string->number port)))) (fail))))) ;;; RFC 3986, #3. ;;; ;;; URI = scheme ":" hier-part [ "?" query ] [ "#" fragment ] ;;; ;;; hier-part = "//" authority path-abempty ;;; / path-absolute ;;; / path-rootless ;;; / path-empty (define scheme-pat "[a-zA-Z][a-zA-Z0-9+.-]*") (define authority-pat "[^/?#]*") (define path-pat "[^?#]*") (define query-pat "[^#]*") (define fragment-pat ".*") (define uri-pat (format #f "^((~a):)?(//~a)?(~a)(\\?(~a))?(#(~a))?$" scheme-pat authority-pat path-pat query-pat fragment-pat)) (define uri-regexp (make-regexp uri-pat)) (define (string->uri* string) "Parse STRING into a URI object. Return ‘#f’ if the string could not be parsed." (% (let ((m (regexp-exec uri-regexp string))) (if (not m) (abort)) (let ((scheme (let ((str (match:substring m 2))) (and str (string->symbol (string-downcase str))))) (authority (match:substring m 3)) (path (match:substring m 4)) (query (match:substring m 6)) (fragment (match:substring m 7))) (call-with-values (lambda () (if authority (parse-authority authority abort) (values #f #f #f))) (lambda (userinfo host port) (make-uri scheme userinfo host port path query fragment))))) (lambda (k) #f))) (define (string->uri string) "Parse STRING into a URI object. Return ‘#f’ if the string could not be parsed." (let ((uri (string->uri* string))) (and uri (uri-scheme uri) uri))) (define *default-ports* (make-hash-table)) (define (declare-default-port! scheme port) "Declare a default port for the given URI scheme." (hashq-set! *default-ports* scheme port)) (define (default-port? scheme port) (or (not port) (eqv? port (hashq-ref *default-ports* scheme)))) (declare-default-port! 'http 80) (declare-default-port! 'https 443) (define (uri->string uri) "Serialize URI to a string. If the URI has a port that is the default port for its scheme, the port is not included in the serialization." (let* ((scheme (uri-scheme uri)) (userinfo (uri-userinfo uri)) (host (uri-host uri)) (port (uri-port uri)) (path (uri-path uri)) (query (uri-query uri)) (fragment (uri-fragment uri))) (string-append (if scheme (string-append (symbol->string scheme) ":") "") (if host (string-append "//" (if userinfo (string-append userinfo "@") "") (if (string-index host #\:) (string-append "[" host "]") host) (if (default-port? (uri-scheme uri) port) "" (string-append ":" (number->string port)))) "") path (if query (string-append "?" query) "") (if fragment (string-append "#" fragment) "")))) ;; like call-with-output-string, but actually closes the port (doh) (define (call-with-output-string* proc) (let ((port (open-output-string))) (proc port) (let ((str (get-output-string port))) (close-port port) str))) (define (call-with-output-bytevector* proc) (call-with-values (lambda () (open-bytevector-output-port)) (lambda (port get-bytevector) (proc port) (let ((bv (get-bytevector))) (close-port port) bv)))) (define (call-with-encoded-output-string encoding proc) (if (string-ci=? encoding "utf-8") (string->utf8 (call-with-output-string* proc)) (call-with-output-bytevector* (lambda (port) (set-port-encoding! port encoding) (proc port))))) (define (encode-string str encoding) (if (string-ci=? encoding "utf-8") (string->utf8 str) (call-with-encoded-output-string encoding (lambda (port) (display str port))))) (define (decode-string bv encoding) (if (string-ci=? encoding "utf-8") (utf8->string bv) (let ((p (open-bytevector-input-port bv))) (set-port-encoding! p encoding) (let ((res (read-string p))) (close-port p) res)))) ;; A note on characters and bytes: URIs are defined to be sequences of ;; characters in a subset of ASCII. Those characters may encode a ;; sequence of bytes (octets), which in turn may encode sequences of ;; characters in other character sets. ;; ;; Return a new string made from uri-decoding STR. Specifically, ;; turn ‘+’ into space, and hex-encoded ‘%XX’ strings into ;; their eight-bit characters. ;; (define hex-chars (string->char-set "0123456789abcdefABCDEF")) (define* (uri-decode str #:key (encoding "utf-8") (decode-plus-to-space? #t)) "Percent-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’." (let* ((len (string-length str)) (bv (call-with-output-bytevector* (lambda (port) (let lp ((i 0)) (if (< i len) (let ((ch (string-ref str i))) (cond ((and (eqv? ch #\+) decode-plus-to-space?) (put-u8 port (char->integer #\space)) (lp (1+ i))) ((and (< (+ i 2) len) (eqv? ch #\%) (let ((a (string-ref str (+ i 1))) (b (string-ref str (+ i 2)))) (and (char-set-contains? hex-chars a) (char-set-contains? hex-chars b) (string->number (string a b) 16)))) => (lambda (u8) (put-u8 port u8) (lp (+ i 3)))) ((< (char->integer ch) 128) (put-u8 port (char->integer ch)) (lp (1+ i))) (else (uri-error "Invalid character in encoded URI ~a: ~s" str ch)))))))))) (if encoding (decode-string bv encoding) ;; Otherwise return raw bytevector bv))) (define ascii-alnum-chars (string->char-set "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789")) ;; RFC 3986, #2.2. (define gen-delims (string->char-set ":/?#[]@")) (define sub-delims (string->char-set "!$&'()*+,l=")) (define reserved-chars (char-set-union gen-delims sub-delims)) ;; RFC 3986, #2.3 (define unreserved-chars (char-set-union ascii-alnum-chars (string->char-set "-._~"))) ;; Return a new string made from uri-encoding STR, unconditionally ;; transforming any characters not in UNESCAPED-CHARS. ;; (define* (uri-encode str #:key (encoding "utf-8") (unescaped-chars unreserved-chars)) "Percent-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." (define (needs-escaped? ch) (not (char-set-contains? unescaped-chars ch))) (if (string-index str needs-escaped?) (call-with-output-string* (lambda (port) (string-for-each (lambda (ch) (if (char-set-contains? unescaped-chars ch) (display ch port) (let* ((bv (encode-string (string ch) encoding)) (len (bytevector-length bv))) (let lp ((i 0)) (if (< i len) (let ((byte (bytevector-u8-ref bv i))) (display #\% port) (when (< byte 16) (display #\0 port)) (display (string-upcase (number->string byte 16)) port) (lp (1+ i)))))))) str))) str)) (define (split-and-decode-uri-path path) "Split 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\")’." (filter (lambda (x) (not (string-null? x))) (map (lambda (s) (uri-decode s #:decode-plus-to-space? #f)) (string-split path #\/)))) (define (encode-and-join-uri-path parts) "URI-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\"’." (string-join (map uri-encode parts) "/")) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������web/response.scm������������������������������������������������������������������������������������0000644�����������������00000031766�15253246142�0007704 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; HTTP response objects ;; Copyright (C) 2010, 2011, 2012, 2013, 2014, 2015 Free Software Foundation, Inc. ;; This library 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. ;; ;; This library 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 library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA ;; 02110-1301 USA ;;; Code: (define-module (web response) #:use-module (rnrs bytevectors) #:use-module (ice-9 binary-ports) #:use-module (ice-9 rdelim) #:use-module (ice-9 match) #:use-module (srfi srfi-9) #:use-module (web http) #:export (response? response-version response-code response-reason-phrase response-headers response-port read-response build-response adapt-response-version write-response response-must-not-include-body? response-body-port read-response-body write-response-body ;; General headers ;; response-cache-control response-connection response-date response-pragma response-trailer response-transfer-encoding response-upgrade response-via response-warning ;; Entity headers ;; response-allow response-content-encoding response-content-language response-content-length response-content-location response-content-md5 response-content-range response-content-type text-content-type? response-expires response-last-modified ;; Response headers ;; response-accept-ranges response-age response-etag response-location response-proxy-authenticate response-retry-after response-server response-vary response-www-authenticate)) (define-record-type <response> (make-response version code reason-phrase headers port) response? (version response-version) (code response-code) (reason-phrase %response-reason-phrase) (headers response-headers) (port response-port)) (define (bad-response message . args) (throw 'bad-response message args)) (define (non-negative-integer? n) (and (number? n) (>= n 0) (exact? n) (integer? n))) (define (validate-headers headers) (if (pair? headers) (let ((h (car headers))) (if (pair? h) (let ((k (car h)) (v (cdr h))) (if (valid-header? k v) (validate-headers (cdr headers)) (bad-response "Bad value for header ~a: ~s" k v))) (bad-response "Header not a pair: ~a" h))) (if (not (null? headers)) (bad-response "Headers not a list: ~a" headers)))) (define* (build-response #:key (version '(1 . 1)) (code 200) reason-phrase (headers '()) port (validate-headers? #t)) "Construct an HTTP response object. If VALIDATE-HEADERS? is true, the headers are each run through their respective validators." (cond ((not (and (pair? version) (non-negative-integer? (car version)) (non-negative-integer? (cdr version)))) (bad-response "Bad version: ~a" version)) ((not (and (non-negative-integer? code) (< code 600))) (bad-response "Bad code: ~a" code)) ((and reason-phrase (not (string? reason-phrase))) (bad-response "Bad reason phrase" reason-phrase)) (else (if validate-headers? (validate-headers headers)))) (make-response version code reason-phrase headers port)) (define *reason-phrases* '((100 . "Continue") (101 . "Switching Protocols") (200 . "OK") (201 . "Created") (202 . "Accepted") (203 . "Non-Authoritative Information") (204 . "No Content") (205 . "Reset Content") (206 . "Partial Content") (300 . "Multiple Choices") (301 . "Moved Permanently") (302 . "Found") (303 . "See Other") (304 . "Not Modified") (305 . "Use Proxy") (307 . "Temporary Redirect") (400 . "Bad Request") (401 . "Unauthorized") (402 . "Payment Required") (403 . "Forbidden") (404 . "Not Found") (405 . "Method Not Allowed") (406 . "Not Acceptable") (407 . "Proxy Authentication Required") (408 . "Request Timeout") (409 . "Conflict") (410 . "Gone") (411 . "Length Required") (412 . "Precondition Failed") (413 . "Request Entity Too Large") (414 . "Request-URI Too Long") (415 . "Unsupported Media Type") (416 . "Requested Range Not Satisfiable") (417 . "Expectation Failed") (500 . "Internal Server Error") (501 . "Not Implemented") (502 . "Bad Gateway") (503 . "Service Unavailable") (504 . "Gateway Timeout") (505 . "HTTP Version Not Supported"))) (define (code->reason-phrase code) (or (assv-ref *reason-phrases* code) "(Unknown)")) (define (response-reason-phrase response) "Return the reason phrase given in RESPONSE, or the standard reason phrase for the response's code." (or (%response-reason-phrase response) (code->reason-phrase (response-code response)))) (define (text-content-type? type) "Return #t if TYPE, a symbol as returned by `response-content-type', represents a textual type such as `text/plain'." (let ((type (symbol->string type))) (or (string-prefix? "text/" type) (string-suffix? "/xml" type) (string-suffix? "+xml" type)))) (define (read-response port) "Read an HTTP response from PORT. As a side effect, sets the encoding on PORT to ISO-8859-1 (latin-1), so that reading one character reads one byte. See the discussion of character sets in \"HTTP Responses\" in the manual, for more information." (set-port-encoding! port "ISO-8859-1") (call-with-values (lambda () (read-response-line port)) (lambda (version code reason-phrase) (make-response version code reason-phrase (read-headers port) port)))) (define (adapt-response-version response version) "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." (build-response #:code (response-code response) #:version version #:headers (response-headers response) #:port (response-port response))) (define (write-response r port) "Write the given HTTP response to PORT. Returns a new response, whose ‘response-port’ will continue writing on PORT, perhaps using some transfer encoding." (write-response-line (response-version r) (response-code r) (response-reason-phrase r) port) (write-headers (response-headers r) port) (display "\r\n" port) (if (eq? port (response-port r)) r (make-response (response-version r) (response-code r) (response-reason-phrase r) (response-headers r) port))) (define (response-must-not-include-body? r) "Returns ‘#t’ if the response R is not permitted to have a body. This is true for some response types, like those with code 304." ;; RFC 2616, section 4.3. (or (<= 100 (response-code r) 199) (= (response-code r) 204) (= (response-code r) 304))) (define (make-delimited-input-port port len keep-alive?) "Return an input port that reads from PORT, and makes sure that exactly LEN bytes are available from PORT. Closing the returned port closes PORT, unless KEEP-ALIVE? is true." (define bytes-read 0) (define (fail) (bad-response "EOF while reading response body: ~a bytes of ~a" bytes-read len)) (define (read! bv start count) ;; Read at most LEN bytes in total. HTTP/1.1 doesn't say what to do ;; when a server provides more than the Content-Length, but it seems ;; wise to just stop reading at LEN. (let ((count (min count (- len bytes-read)))) (let loop ((ret (get-bytevector-n! port bv start count))) (cond ((eof-object? ret) (if (= bytes-read len) 0 ; EOF (fail))) ((and (zero? ret) (> count 0)) ;; Do not return zero since zero means EOF, so try again. (loop (get-bytevector-n! port bv start count))) (else (set! bytes-read (+ bytes-read ret)) ret))))) (define close (and (not keep-alive?) (lambda () (close-port port)))) (make-custom-binary-input-port "delimited input port" read! #f #f close)) (define* (response-body-port r #:key (decode? #t) (keep-alive? #t)) "Return 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." (define port (cond ((member '(chunked) (response-transfer-encoding r)) (make-chunked-input-port (response-port r) #:keep-alive? keep-alive?)) ((response-content-length r) => (lambda (len) (make-delimited-input-port (response-port r) len keep-alive?))) ((response-must-not-include-body? r) #f) ((or (memq 'close (response-connection r)) (and (equal? (response-version r) '(1 . 0)) (not (memq 'keep-alive (response-connection r))))) (response-port r)) (else ;; Here we have a message with no transfer encoding, no ;; content-length, and a response that won't necessarily be closed ;; by the server. Not much we can do; assume that the client ;; knows how to handle it. (response-port r)))) (when (and decode? port) (match (response-content-type r) (((? text-content-type?) . props) (set-port-encoding! port (or (assq-ref props 'charset) "ISO-8859-1"))) (_ #f))) port) (define (read-response-body r) "Reads the response body from R, as a bytevector. Returns ‘#f’ if there was no response body." (let ((body (and=> (response-body-port r #:decode? #f) get-bytevector-all))) ;; Reading a body of length 0 will result in get-bytevector-all ;; returning the EOF object. (if (eof-object? body) #vu8() body))) (define (write-response-body r bv) "Write BV, a bytevector, to the port corresponding to the HTTP response R." (put-bytevector (response-port r) bv)) (define-syntax define-response-accessor (lambda (x) (syntax-case x () ((_ field) #'(define-response-accessor field #f)) ((_ field def) (identifier? #'field) #`(define* (#,(datum->syntax #'field (symbol-append 'response- (syntax->datum #'field))) response #:optional (default def)) (cond ((assq 'field (response-headers response)) => cdr) (else default))))))) ;; General headers ;; (define-response-accessor cache-control '()) (define-response-accessor connection '()) (define-response-accessor date #f) (define-response-accessor pragma '()) (define-response-accessor trailer '()) (define-response-accessor transfer-encoding '()) (define-response-accessor upgrade '()) (define-response-accessor via '()) (define-response-accessor warning '()) ;; Entity headers ;; (define-response-accessor allow '()) (define-response-accessor content-encoding '()) (define-response-accessor content-language '()) (define-response-accessor content-length #f) (define-response-accessor content-location #f) (define-response-accessor content-md5 #f) (define-response-accessor content-range #f) (define-response-accessor content-type #f) (define-response-accessor expires #f) (define-response-accessor last-modified #f) ;; Response headers ;; (define-response-accessor accept-ranges #f) (define-response-accessor age #f) (define-response-accessor etag #f) (define-response-accessor location #f) (define-response-accessor proxy-authenticate #f) (define-response-accessor retry-after #f) (define-response-accessor server #f) (define-response-accessor vary '()) (define-response-accessor www-authenticate #f) ����������web/server/http.scm���������������������������������������������������������������������������������0000644�����������������00000014553�15253246142�0010326 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; Web I/O: HTTP ;; Copyright (C) 2010, 2011, 2012, 2015 Free Software Foundation, Inc. ;; This library 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. ;; ;; This library 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 library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA ;; 02110-1301 USA ;;; Commentary: ;;; ;;; This is the HTTP implementation of the (web server) interface. ;;; ;;; `read-request' sets the character encoding on the new port to ;;; latin-1. See the note in request.scm regarding character sets, ;;; strings, and bytevectors for more information. ;;; ;;; Code: (define-module (web server http) #:use-module ((srfi srfi-1) #:select (fold)) #:use-module (srfi srfi-9) #:use-module (rnrs bytevectors) #:use-module (web request) #:use-module (web response) #:use-module (web server) #:use-module (ice-9 poll) #:export (http)) (define (make-default-socket family addr port) (let ((sock (socket PF_INET SOCK_STREAM 0))) (setsockopt sock SOL_SOCKET SO_REUSEADDR 1) (bind sock family addr port) sock)) (define-record-type <http-server> (make-http-server socket poll-idx poll-set) http-server? (socket http-socket) (poll-idx http-poll-idx set-http-poll-idx!) (poll-set http-poll-set)) (define *error-events* (logior POLLHUP POLLERR)) (define *read-events* POLLIN) (define *events* (logior *error-events* *read-events*)) ;; -> server (define* (http-open #:key (host #f) (family AF_INET) (addr (if host (inet-pton family host) INADDR_LOOPBACK)) (port 8080) (socket (make-default-socket family addr port))) (listen socket 128) (sigaction SIGPIPE SIG_IGN) (let ((poll-set (make-empty-poll-set))) (poll-set-add! poll-set socket *events*) (make-http-server socket 0 poll-set))) (define (bad-request port) (write-response (build-response #:version '(1 . 0) #:code 400 #:headers '((content-length . 0))) port)) ;; -> (client request body | #f #f #f) (define (http-read server) (let* ((poll-set (http-poll-set server))) (let lp ((idx (http-poll-idx server))) (let ((revents (poll-set-revents poll-set idx))) (cond ((zero? idx) ;; The server socket, and the end of our downward loop. (cond ((zero? revents) ;; No client ready, and no error; poll and loop. (poll poll-set) (lp (1- (poll-set-nfds poll-set)))) ((not (zero? (logand revents *error-events*))) ;; An error. (set-http-poll-idx! server idx) (throw 'interrupt)) (else ;; A new client. Add to set, poll, and loop. ;; ;; FIXME: preserve meta-info. (let ((client (accept (poll-set-port poll-set idx)))) ;; Buffer input and output on this port. (setvbuf (car client) _IOFBF) ;; From "HOP, A Fast Server for the Diffuse Web", Serrano. (setsockopt (car client) SOL_SOCKET SO_SNDBUF (* 12 1024)) (poll-set-add! poll-set (car client) *events*) (poll poll-set) (lp (1- (poll-set-nfds poll-set))))))) ((zero? revents) ;; Nothing on this port. (lp (1- idx))) ;; Otherwise, a client socket with some activity on ;; it. Remove it from the poll set. (else (let ((port (poll-set-remove! poll-set idx))) ;; Record the next index in all cases, in case the EOF check ;; throws an error. (set-http-poll-idx! server (1- idx)) (cond ((eof-object? (peek-char port)) ;; EOF. (close-port port) (lp (1- idx))) (else ;; Otherwise, try to read a request from this port. (with-throw-handler #t (lambda () (let ((req (read-request port))) (values port req (read-request-body req)))) (lambda (k . args) (define-syntax-rule (cleanup-catch statement) (catch #t (lambda () statement) (lambda (k . args) (format (current-error-port) "In ~a:\n" 'statement) (print-exception (current-error-port) #f k args)))) (cleanup-catch (bad-request port)) (cleanup-catch (close-port port))))))))))))) (define (keep-alive? response) (let ((v (response-version response))) (and (or (< (response-code response) 400) (= (response-code response) 404)) (case (car v) ((1) (case (cdr v) ((1) (not (memq 'close (response-connection response)))) ((0) (memq 'keep-alive (response-connection response))))) (else #f))))) ;; -> 0 values (define (http-write server client response body) (let* ((response (write-response response client)) (port (response-port response))) (cond ((not body)) ; pass ((bytevector? body) (write-response-body response body)) (else (error "Expected a bytevector for body" body))) (cond ((keep-alive? response) (force-output port) (poll-set-add! (http-poll-set server) port *events*)) (else (close-port port))) (values))) ;; -> unspecified values (define (http-close server) (let ((poll-set (http-poll-set server))) (let lp ((n (poll-set-nfds poll-set))) (if (positive? n) (begin (close-port (poll-set-remove! poll-set (1- n))) (lp (1- n))))))) (define-server-impl http http-open http-read http-write http-close) �����������������������������������������������������������������������������������������������������������������������������������������������������web/http.scm����������������������������������������������������������������������������������������0000644�����������������00000215663�15253246142�0007025 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; HTTP messages ;; Copyright (C) 2010-2016 Free Software Foundation, Inc. ;; This library 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. ;; ;; This library 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 library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA ;; 02110-1301 USA ;;; Commentary: ;;; ;;; This module has a number of routines to parse textual ;;; representations of HTTP data into native Scheme data structures. ;;; ;;; It tries to follow RFCs fairly strictly---the road to perdition ;;; being paved with compatibility hacks---though some allowances are ;;; made for not-too-divergent texts (like a quality of .2 which should ;;; be 0.2, etc). ;;; ;;; Code: (define-module (web http) #:use-module ((srfi srfi-1) #:select (append-map! map!)) #:use-module (srfi srfi-9) #:use-module (srfi srfi-19) #:use-module (ice-9 rdelim) #:use-module (ice-9 match) #:use-module (ice-9 q) #:use-module (ice-9 binary-ports) #:use-module (rnrs bytevectors) #:use-module (web uri) #:export (string->header header->string declare-header! declare-opaque-header! known-header? header-parser header-validator header-writer read-header parse-header valid-header? write-header read-headers write-headers parse-http-method parse-http-version parse-request-uri read-request-line write-request-line read-response-line write-response-line make-chunked-input-port make-chunked-output-port http-proxy-port? set-http-proxy-port?!)) (define (string->header name) "Parse NAME to a symbolic header name." (string->symbol (string-downcase name))) (define-record-type <header-decl> (make-header-decl name parser validator writer multiple?) header-decl? (name header-decl-name) (parser header-decl-parser) (validator header-decl-validator) (writer header-decl-writer) (multiple? header-decl-multiple?)) ;; sym -> header (define *declared-headers* (make-hash-table)) (define (lookup-header-decl sym) (hashq-ref *declared-headers* sym)) (define* (declare-header! name parser validator writer #:key multiple?) "Declare a parser, validator, and writer for a given header." (if (and (string? name) parser validator writer) (let ((decl (make-header-decl name parser validator writer multiple?))) (hashq-set! *declared-headers* (string->header name) decl) decl) (error "bad header decl" name parser validator writer multiple?))) (define (header->string sym) "Return the string form for the header named SYM." (let ((decl (lookup-header-decl sym))) (if decl (header-decl-name decl) (string-titlecase (symbol->string sym))))) (define (known-header? sym) "Return ‘#t’ iff SYM is a known header, with associated parsers and serialization procedures." (and (lookup-header-decl sym) #t)) (define (header-parser sym) "Return the value parser for headers named SYM. The result is a procedure that takes one argument, a string, and returns the parsed value. If the header isn't known to Guile, a default parser is returned that passes through the string unchanged." (let ((decl (lookup-header-decl sym))) (if decl (header-decl-parser decl) (lambda (x) x)))) (define (header-validator sym) "Return a predicate which returns ‘#t’ if the given value is valid for headers named SYM. The default validator for unknown headers is ‘string?’." (let ((decl (lookup-header-decl sym))) (if decl (header-decl-validator decl) string?))) (define (header-writer sym) "Return 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’." (let ((decl (lookup-header-decl sym))) (if decl (header-decl-writer decl) display))) (define (read-header-line port) "Read an HTTP header line and return it without its final CRLF or LF. Raise a 'bad-header' exception if the line does not end in CRLF or LF, or if EOF is reached." (match (%read-line port) (((? string? line) . #\newline) ;; '%read-line' does not consider #\return a delimiter; so if it's ;; there, remove it. We are more tolerant than the RFC in that we ;; tolerate LF-only endings. (if (string-suffix? "\r" line) (string-drop-right line 1) line)) ((line . _) ;EOF or missing delimiter (bad-header 'read-header-line line)))) (define (read-continuation-line port val) (if (or (eqv? (peek-char port) #\space) (eqv? (peek-char port) #\tab)) (read-continuation-line port (string-append val (read-header-line port))) val)) (define *eof* (call-with-input-string "" read)) (define (read-header port) "Read one HTTP header from PORT. Return two values: the header name and the parsed Scheme value. May raise an exception if the header was known but the value was invalid. Returns the end-of-file object for both values if the end of the message body was reached (i.e., a blank line)." (let ((line (read-header-line port))) (if (or (string-null? line) (string=? line "\r")) (values *eof* *eof*) (let* ((delim (or (string-index line #\:) (bad-header '%read line))) (sym (string->header (substring line 0 delim)))) (values sym (parse-header sym (read-continuation-line port (string-trim-both line char-set:whitespace (1+ delim))))))))) (define (parse-header sym val) "Parse VAL, a string, with the parser registered for the header named SYM. Returns the parsed value." ((header-parser sym) val)) (define (valid-header? sym val) "Returns a true value iff VAL is a valid Scheme value for the header with name SYM." (if (symbol? sym) ((header-validator sym) val) (error "header name not a symbol" sym))) (define (write-header sym val port) "Write the given header name and value to PORT, using the writer from ‘header-writer’." (display (header->string sym) port) (display ": " port) ((header-writer sym) val port) (display "\r\n" port)) (define (read-headers port) "Read the headers of an HTTP message from PORT, returning them as an ordered alist." (let lp ((headers '())) (call-with-values (lambda () (read-header port)) (lambda (k v) (if (eof-object? k) (reverse! headers) (lp (acons k v headers))))))) (define (write-headers headers port) "Write the given header alist to PORT. Doesn't write the final ‘\\r\\n’, as the user might want to add another header." (let lp ((headers headers)) (if (pair? headers) (begin (write-header (caar headers) (cdar headers) port) (lp (cdr headers)))))) ;;; ;;; Utilities ;;; (define (bad-header sym val) (throw 'bad-header sym val)) (define (bad-header-component sym val) (throw 'bad-header-component sym val)) (define (bad-header-printer port key args default-printer) (apply (case-lambda ((sym val) (format port "Bad ~a header: ~a\n" (header->string sym) val)) (_ (default-printer))) args)) (define (bad-header-component-printer port key args default-printer) (apply (case-lambda ((sym val) (format port "Bad ~a header component: ~a\n" sym val)) (_ (default-printer))) args)) (set-exception-printer! 'bad-header bad-header-printer) (set-exception-printer! 'bad-header-component bad-header-component-printer) (define (parse-opaque-string str) str) (define (validate-opaque-string val) (string? val)) (define (write-opaque-string val port) (display val port)) (define separators-without-slash (string->char-set "[^][()<>@,;:\\\"?= \t]")) (define (validate-media-type str) (let ((idx (string-index str #\/))) (and idx (= idx (string-rindex str #\/)) (not (string-index str separators-without-slash))))) (define (parse-media-type str) (if (validate-media-type str) (string->symbol str) (bad-header-component 'media-type str))) (define* (skip-whitespace str #:optional (start 0) (end (string-length str))) (let lp ((i start)) (if (and (< i end) (char-whitespace? (string-ref str i))) (lp (1+ i)) i))) (define* (trim-whitespace str #:optional (start 0) (end (string-length str))) (let lp ((i end)) (if (and (< start i) (char-whitespace? (string-ref str (1- i)))) (lp (1- i)) i))) (define* (split-and-trim str #:optional (delim #\,) (start 0) (end (string-length str))) (let lp ((i start)) (if (< i end) (let* ((idx (string-index str delim i end)) (tok (string-trim-both str char-set:whitespace i (or idx end)))) (cons tok (split-and-trim str delim (if idx (1+ idx) end) end))) '()))) (define (list-of-strings? val) (list-of? val string?)) (define (write-list-of-strings val port) (write-list val port display ", ")) (define (split-header-names str) (map string->header (split-and-trim str))) (define (list-of-header-names? val) (list-of? val symbol?)) (define (write-header-list val port) (write-list val port (lambda (x port) (display (header->string x) port)) ", ")) (define (collect-escaped-string from start len escapes) (let ((to (make-string len))) (let lp ((start start) (i 0) (escapes escapes)) (if (null? escapes) (begin (substring-move! from start (+ start (- len i)) to i) to) (let* ((e (car escapes)) (next-start (+ start (- e i) 2))) (substring-move! from start (- next-start 2) to i) (string-set! to e (string-ref from (- next-start 1))) (lp next-start (1+ e) (cdr escapes))))))) ;; in incremental mode, returns two values: the string, and the index at ;; which the string ended (define* (parse-qstring str #:optional (start 0) (end (trim-whitespace str start)) #:key incremental?) (if (and (< start end) (eqv? (string-ref str start) #\")) (let lp ((i (1+ start)) (qi 0) (escapes '())) (if (< i end) (case (string-ref str i) ((#\\) (lp (+ i 2) (1+ qi) (cons qi escapes))) ((#\") (let ((out (collect-escaped-string str (1+ start) qi escapes))) (if incremental? (values out (1+ i)) (if (= (1+ i) end) out (bad-header-component 'qstring str))))) (else (lp (1+ i) (1+ qi) escapes))) (bad-header-component 'qstring str))) (bad-header-component 'qstring str))) (define (write-list l port write-item delim) (if (pair? l) (let lp ((l l)) (write-item (car l) port) (if (pair? (cdr l)) (begin (display delim port) (lp (cdr l))))))) (define (write-qstring str port) (display #\" port) (if (string-index str #\") ;; optimize me (write-list (string-split str #\") port display "\\\"") (display str port)) (display #\" port)) (define* (parse-quality str #:optional (start 0) (end (string-length str))) (define (char->decimal c) (let ((i (- (char->integer c) (char->integer #\0)))) (if (and (<= 0 i) (< i 10)) i (bad-header-component 'quality str)))) (cond ((not (< start end)) (bad-header-component 'quality str)) ((eqv? (string-ref str start) #\1) (if (or (string= str "1" start end) (string= str "1." start end) (string= str "1.0" start end) (string= str "1.00" start end) (string= str "1.000" start end)) 1000 (bad-header-component 'quality str))) ((eqv? (string-ref str start) #\0) (if (or (string= str "0" start end) (string= str "0." start end)) 0 (if (< 2 (- end start) 6) (let lp ((place 1) (i (+ start 4)) (q 0)) (if (= i (1+ start)) (if (eqv? (string-ref str (1+ start)) #\.) q (bad-header-component 'quality str)) (lp (* 10 place) (1- i) (if (< i end) (+ q (* place (char->decimal (string-ref str i)))) q)))) (bad-header-component 'quality str)))) ;; Allow the nonstandard .2 instead of 0.2. ((and (eqv? (string-ref str start) #\.) (< 1 (- end start) 5)) (let lp ((place 1) (i (+ start 3)) (q 0)) (if (= i start) q (lp (* 10 place) (1- i) (if (< i end) (+ q (* place (char->decimal (string-ref str i)))) q))))) (else (bad-header-component 'quality str)))) (define (valid-quality? q) (and (non-negative-integer? q) (<= q 1000))) (define (write-quality q port) (define (digit->char d) (integer->char (+ (char->integer #\0) d))) (display (digit->char (modulo (quotient q 1000) 10)) port) (display #\. port) (display (digit->char (modulo (quotient q 100) 10)) port) (display (digit->char (modulo (quotient q 10) 10)) port) (display (digit->char (modulo q 10)) port)) (define (list-of? val pred) (or (null? val) (and (pair? val) (pred (car val)) (list-of? (cdr val) pred)))) (define* (parse-quality-list str) (map (lambda (part) (cond ((string-rindex part #\;) => (lambda (idx) (let ((qpart (string-trim-both part char-set:whitespace (1+ idx)))) (if (string-prefix? "q=" qpart) (cons (parse-quality qpart 2) (string-trim-both part char-set:whitespace 0 idx)) (bad-header-component 'quality qpart))))) (else (cons 1000 (string-trim-both part char-set:whitespace))))) (string-split str #\,))) (define (validate-quality-list l) (list-of? l (lambda (elt) (and (pair? elt) (valid-quality? (car elt)) (string? (cdr elt)))))) (define (write-quality-list l port) (write-list l port (lambda (x port) (let ((q (car x)) (str (cdr x))) (display str port) (if (< q 1000) (begin (display ";q=" port) (write-quality q port))))) ",")) (define* (parse-non-negative-integer val #:optional (start 0) (end (string-length val))) (define (char->decimal c) (let ((i (- (char->integer c) (char->integer #\0)))) (if (and (<= 0 i) (< i 10)) i (bad-header-component 'non-negative-integer val)))) (if (not (< start end)) (bad-header-component 'non-negative-integer val) (let lp ((i start) (out 0)) (if (< i end) (lp (1+ i) (+ (* out 10) (char->decimal (string-ref val i)))) out)))) (define (non-negative-integer? code) (and (number? code) (>= code 0) (exact? code) (integer? code))) (define (default-val-parser k val) val) (define (default-val-validator k val) (or (not val) (string? val))) (define (default-val-writer k val port) (if (or (string-index val #\;) (string-index val #\,) (string-index val #\")) (write-qstring val port) (display val port))) (define* (parse-key-value-list str #:optional (val-parser default-val-parser) (start 0) (end (string-length str))) (let lp ((i start) (out '())) (if (not (< i end)) (reverse! out) (let* ((i (skip-whitespace str i end)) (eq (string-index str #\= i end)) (comma (string-index str #\, i end)) (delim (min (or eq end) (or comma end))) (k (string->symbol (substring str i (trim-whitespace str i delim))))) (call-with-values (lambda () (if (and eq (or (not comma) (< eq comma))) (let ((i (skip-whitespace str (1+ eq) end))) (if (and (< i end) (eqv? (string-ref str i) #\")) (parse-qstring str i end #:incremental? #t) (values (substring str i (trim-whitespace str i (or comma end))) (or comma end)))) (values #f delim))) (lambda (v-str next-i) (let ((v (val-parser k v-str)) (i (skip-whitespace str next-i end))) (if (or (= i end) (eqv? (string-ref str i) #\,)) (lp (1+ i) (cons (if v (cons k v) k) out)) (bad-header-component 'key-value-list (substring str start end)))))))))) (define* (key-value-list? list #:optional (valid? default-val-validator)) (list-of? list (lambda (elt) (cond ((pair? elt) (let ((k (car elt)) (v (cdr elt))) (and (symbol? k) (valid? k v)))) ((symbol? elt) (valid? elt #f)) (else #f))))) (define* (write-key-value-list list port #:optional (val-writer default-val-writer) (delim ", ")) (write-list list port (lambda (x port) (let ((k (if (pair? x) (car x) x)) (v (if (pair? x) (cdr x) #f))) (display k port) (if v (begin (display #\= port) (val-writer k v port))))) delim)) ;; param-component = token [ "=" (token | quoted-string) ] \ ;; *(";" token [ "=" (token | quoted-string) ]) ;; (define param-delimiters (char-set #\, #\; #\=)) (define param-value-delimiters (char-set-adjoin char-set:whitespace #\, #\;)) (define* (parse-param-component str #:optional (val-parser default-val-parser) (start 0) (end (string-length str))) (let lp ((i start) (out '())) (if (not (< i end)) (values (reverse! out) end) (let ((delim (string-index str param-delimiters i))) (let ((k (string->symbol (substring str i (trim-whitespace str i (or delim end))))) (delimc (and delim (string-ref str delim)))) (case delimc ((#\=) (call-with-values (lambda () (let ((i (skip-whitespace str (1+ delim) end))) (if (and (< i end) (eqv? (string-ref str i) #\")) (parse-qstring str i end #:incremental? #t) (let ((delim (or (string-index str param-value-delimiters i end) end))) (values (substring str i delim) delim))))) (lambda (v-str next-i) (let* ((v (val-parser k v-str)) (x (if v (cons k v) k)) (i (skip-whitespace str next-i end))) (case (and (< i end) (string-ref str i)) ((#f) (values (reverse! (cons x out)) end)) ((#\;) (lp (skip-whitespace str (1+ i) end) (cons x out))) (else ; including #\, (values (reverse! (cons x out)) i))))))) ((#\;) (let ((v (val-parser k #f))) (lp (skip-whitespace str (1+ delim) end) (cons (if v (cons k v) k) out)))) (else ;; either the end of the string or a #\, (let ((v (val-parser k #f))) (values (reverse! (cons (if v (cons k v) k) out)) (or delim end)))))))))) (define* (parse-param-list str #:optional (val-parser default-val-parser) (start 0) (end (string-length str))) (let lp ((i start) (out '())) (call-with-values (lambda () (parse-param-component str val-parser i end)) (lambda (item i) (if (< i end) (if (eqv? (string-ref str i) #\,) (lp (skip-whitespace str (1+ i) end) (cons item out)) (bad-header-component 'param-list str)) (reverse! (cons item out))))))) (define* (validate-param-list list #:optional (valid? default-val-validator)) (list-of? list (lambda (elt) (key-value-list? elt valid?)))) (define* (write-param-list list port #:optional (val-writer default-val-writer)) (write-list list port (lambda (item port) (write-key-value-list item port val-writer ";")) ",")) (define-syntax string-match? (lambda (x) (syntax-case x () ((_ str pat) (string? (syntax->datum #'pat)) (let ((p (syntax->datum #'pat))) #`(let ((s str)) (and (= (string-length s) #,(string-length p)) #,@(let lp ((i 0) (tests '())) (if (< i (string-length p)) (let ((c (string-ref p i))) (lp (1+ i) (case c ((#\.) ; Whatever. tests) ((#\d) ; Digit. (cons #`(char-numeric? (string-ref s #,i)) tests)) ((#\a) ; Alphabetic. (cons #`(char-alphabetic? (string-ref s #,i)) tests)) (else ; Literal. (cons #`(eqv? (string-ref s #,i) #,c) tests))))) tests))))))))) ;; "Jan" | "Feb" | "Mar" | "Apr" | "May" | "Jun" ;; "Jul" | "Aug" | "Sep" | "Oct" | "Nov" | "Dec" (define (parse-month str start end) (define (bad) (bad-header-component 'month (substring str start end))) (if (not (= (- end start) 3)) (bad) (let ((a (string-ref str (+ start 0))) (b (string-ref str (+ start 1))) (c (string-ref str (+ start 2)))) (case a ((#\J) (case b ((#\a) (case c ((#\n) 1) (else (bad)))) ((#\u) (case c ((#\n) 6) ((#\l) 7) (else (bad)))) (else (bad)))) ((#\F) (case b ((#\e) (case c ((#\b) 2) (else (bad)))) (else (bad)))) ((#\M) (case b ((#\a) (case c ((#\r) 3) ((#\y) 5) (else (bad)))) (else (bad)))) ((#\A) (case b ((#\p) (case c ((#\r) 4) (else (bad)))) ((#\u) (case c ((#\g) 8) (else (bad)))) (else (bad)))) ((#\S) (case b ((#\e) (case c ((#\p) 9) (else (bad)))) (else (bad)))) ((#\O) (case b ((#\c) (case c ((#\t) 10) (else (bad)))) (else (bad)))) ((#\N) (case b ((#\o) (case c ((#\v) 11) (else (bad)))) (else (bad)))) ((#\D) (case b ((#\e) (case c ((#\c) 12) (else (bad)))) (else (bad)))) (else (bad)))))) ;; "GMT" | "+" 4DIGIT | "-" 4DIGIT ;; ;; RFC 2616 requires date values to use "GMT", but recommends accepting ;; the others as they are commonly generated by e.g. RFC 822 sources. (define (parse-zone-offset str start) (let ((s (substring str start))) (define (bad) (bad-header-component 'zone-offset s)) (cond ((string=? s "GMT") 0) ((string=? s "UTC") 0) ((string-match? s ".dddd") (let ((sign (case (string-ref s 0) ((#\+) +1) ((#\-) -1) (else (bad)))) (hours (parse-non-negative-integer s 1 3)) (minutes (parse-non-negative-integer s 3 5))) (* sign 60 (+ (* 60 hours) minutes)))) ; seconds east of Greenwich (else (bad))))) ;; RFC 822, updated by RFC 1123 ;; ;; Sun, 06 Nov 1994 08:49:37 GMT ;; 01234567890123456789012345678 ;; 0 1 2 (define (parse-rfc-822-date str space zone-offset) ;; We could verify the day of the week but we don't. (cond ((string-match? (substring str 0 space) "aaa, dd aaa dddd dd:dd:dd") (let ((date (parse-non-negative-integer str 5 7)) (month (parse-month str 8 11)) (year (parse-non-negative-integer str 12 16)) (hour (parse-non-negative-integer str 17 19)) (minute (parse-non-negative-integer str 20 22)) (second (parse-non-negative-integer str 23 25))) (make-date 0 second minute hour date month year zone-offset))) ((string-match? (substring str 0 space) "aaa, d aaa dddd dd:dd:dd") (let ((date (parse-non-negative-integer str 5 6)) (month (parse-month str 7 10)) (year (parse-non-negative-integer str 11 15)) (hour (parse-non-negative-integer str 16 18)) (minute (parse-non-negative-integer str 19 21)) (second (parse-non-negative-integer str 22 24))) (make-date 0 second minute hour date month year zone-offset))) ;; The next two clauses match dates that have a space instead of ;; a leading zero for hours, like " 8:49:37". ((string-match? (substring str 0 space) "aaa, dd aaa dddd d:dd:dd") (let ((date (parse-non-negative-integer str 5 7)) (month (parse-month str 8 11)) (year (parse-non-negative-integer str 12 16)) (hour (parse-non-negative-integer str 18 19)) (minute (parse-non-negative-integer str 20 22)) (second (parse-non-negative-integer str 23 25))) (make-date 0 second minute hour date month year zone-offset))) ((string-match? (substring str 0 space) "aaa, d aaa dddd d:dd:dd") (let ((date (parse-non-negative-integer str 5 6)) (month (parse-month str 7 10)) (year (parse-non-negative-integer str 11 15)) (hour (parse-non-negative-integer str 17 18)) (minute (parse-non-negative-integer str 19 21)) (second (parse-non-negative-integer str 22 24))) (make-date 0 second minute hour date month year zone-offset))) (else (bad-header 'date str) ; prevent tail call #f))) ;; RFC 850, updated by RFC 1036 ;; Sunday, 06-Nov-94 08:49:37 GMT ;; 0123456789012345678901 ;; 0 1 2 (define (parse-rfc-850-date str comma space zone-offset) ;; We could verify the day of the week but we don't. (let ((tail (substring str (1+ comma) space))) (if (not (string-match? tail " dd-aaa-dd dd:dd:dd")) (bad-header 'date str)) (let ((date (parse-non-negative-integer tail 1 3)) (month (parse-month tail 4 7)) (year (parse-non-negative-integer tail 8 10)) (hour (parse-non-negative-integer tail 11 13)) (minute (parse-non-negative-integer tail 14 16)) (second (parse-non-negative-integer tail 17 19))) (make-date 0 second minute hour date month (let* ((now (date-year (current-date))) (then (+ now year (- (modulo now 100))))) (cond ((< (+ then 50) now) (+ then 100)) ((< (+ now 50) then) (- then 100)) (else then))) zone-offset)))) ;; ANSI C's asctime() format ;; Sun Nov 6 08:49:37 1994 ;; 012345678901234567890123 ;; 0 1 2 (define (parse-asctime-date str) (if (not (string-match? str "aaa aaa .d dd:dd:dd dddd")) (bad-header 'date str)) (let ((date (parse-non-negative-integer str (if (eqv? (string-ref str 8) #\space) 9 8) 10)) (month (parse-month str 4 7)) (year (parse-non-negative-integer str 20 24)) (hour (parse-non-negative-integer str 11 13)) (minute (parse-non-negative-integer str 14 16)) (second (parse-non-negative-integer str 17 19))) (make-date 0 second minute hour date month year 0))) ;; Convert all date values to GMT time zone, as per RFC 2616 appendix C. (define (normalize-date date) (if (zero? (date-zone-offset date)) date (time-utc->date (date->time-utc date) 0))) (define (parse-date str) (let* ((space (string-rindex str #\space)) (zone-offset (and space (false-if-exception (parse-zone-offset str (1+ space)))))) (normalize-date (if zone-offset (let ((comma (string-index str #\,))) (cond ((not comma) (bad-header 'date str)) ((= comma 3) (parse-rfc-822-date str space zone-offset)) (else (parse-rfc-850-date str comma space zone-offset)))) (parse-asctime-date str))))) (define (write-date date port) (define (display-digits n digits port) (define zero (char->integer #\0)) (let lp ((tens (expt 10 (1- digits)))) (if (> tens 0) (begin (display (integer->char (+ zero (modulo (truncate/ n tens) 10))) port) (lp (floor/ tens 10)))))) (let ((date (if (zero? (date-zone-offset date)) date (time-tai->date (date->time-tai date) 0)))) (display (case (date-week-day date) ((0) "Sun, ") ((1) "Mon, ") ((2) "Tue, ") ((3) "Wed, ") ((4) "Thu, ") ((5) "Fri, ") ((6) "Sat, ") (else (error "bad date" date))) port) (display-digits (date-day date) 2 port) (display (case (date-month date) ((1) " Jan ") ((2) " Feb ") ((3) " Mar ") ((4) " Apr ") ((5) " May ") ((6) " Jun ") ((7) " Jul ") ((8) " Aug ") ((9) " Sep ") ((10) " Oct ") ((11) " Nov ") ((12) " Dec ") (else (error "bad date" date))) port) (display-digits (date-year date) 4 port) (display #\space port) (display-digits (date-hour date) 2 port) (display #\: port) (display-digits (date-minute date) 2 port) (display #\: port) (display-digits (date-second date) 2 port) (display " GMT" port))) ;; Following https://tools.ietf.org/html/rfc7232#section-2.3, an entity ;; tag should really be a qstring. However there are a number of ;; servers that emit etags as unquoted strings. Assume that if the ;; value doesn't start with a quote, it's an unquoted strong etag. (define (parse-entity-tag val) (cond ((string-prefix? "W/" val) (cons (parse-qstring val 2) #f)) ((string-prefix? "\"" val) (cons (parse-qstring val) #t)) (else (cons val #t)))) (define (entity-tag? val) (and (pair? val) (string? (car val)))) (define (write-entity-tag val port) (if (not (cdr val)) (display "W/" port)) (write-qstring (car val) port)) (define* (parse-entity-tag-list val #:optional (start 0) (end (string-length val))) (let ((strong? (not (string-prefix? "W/" val 0 2 start end)))) (call-with-values (lambda () (parse-qstring val (if strong? start (+ start 2)) end #:incremental? #t)) (lambda (tag next) (acons tag strong? (let ((next (skip-whitespace val next end))) (if (< next end) (if (eqv? (string-ref val next) #\,) (parse-entity-tag-list val (skip-whitespace val (1+ next) end) end) (bad-header-component 'entity-tag-list val)) '()))))))) (define (entity-tag-list? val) (list-of? val entity-tag?)) (define (write-entity-tag-list val port) (write-list val port write-entity-tag ", ")) ;; credentials = auth-scheme #auth-param ;; auth-scheme = token ;; auth-param = token "=" ( token | quoted-string ) ;; ;; That's what the spec says. In reality the Basic scheme doesn't have ;; k-v pairs, just one auth token, so we give that token as a string. ;; (define* (parse-credentials str #:optional (val-parser default-val-parser) (start 0) (end (string-length str))) (let* ((start (skip-whitespace str start end)) (delim (or (string-index str char-set:whitespace start end) end))) (if (= start end) (bad-header-component 'authorization str)) (let ((scheme (string->symbol (string-downcase (substring str start (or delim end)))))) (case scheme ((basic) (let* ((start (skip-whitespace str delim end))) (if (< start end) (cons scheme (substring str start end)) (bad-header-component 'credentials str)))) (else (cons scheme (parse-key-value-list str default-val-parser delim end))))))) (define (validate-credentials val) (and (pair? val) (symbol? (car val)) (case (car val) ((basic) (string? (cdr val))) (else (key-value-list? (cdr val)))))) (define (write-credentials val port) (display (car val) port) (display #\space port) (case (car val) ((basic) (display (cdr val) port)) (else (write-key-value-list (cdr val) port)))) ;; challenges = 1#challenge ;; challenge = auth-scheme 1*SP 1#auth-param ;; ;; A pain to parse, as both challenges and auth params are delimited by ;; commas, and qstrings can contain anything. We rely on auth params ;; necessarily having "=" in them. ;; (define* (parse-challenge str #:optional (start 0) (end (string-length str))) (let* ((start (skip-whitespace str start end)) (sp (string-index str #\space start end)) (scheme (if sp (string->symbol (string-downcase (substring str start sp))) (bad-header-component 'challenge str)))) (let lp ((i sp) (out (list scheme))) (if (not (< i end)) (values (reverse! out) end) (let* ((i (skip-whitespace str i end)) (eq (string-index str #\= i end)) (comma (string-index str #\, i end)) (delim (min (or eq end) (or comma end))) (token-end (trim-whitespace str i delim))) (if (string-index str #\space i token-end) (values (reverse! out) i) (let ((k (string->symbol (substring str i token-end)))) (call-with-values (lambda () (if (and eq (or (not comma) (< eq comma))) (let ((i (skip-whitespace str (1+ eq) end))) (if (and (< i end) (eqv? (string-ref str i) #\")) (parse-qstring str i end #:incremental? #t) (values (substring str i (trim-whitespace str i (or comma end))) (or comma end)))) (values #f delim))) (lambda (v next-i) (let ((i (skip-whitespace str next-i end))) (if (or (= i end) (eqv? (string-ref str i) #\,)) (lp (1+ i) (cons (if v (cons k v) k) out)) (bad-header-component 'challenge (substring str start end))))))))))))) (define* (parse-challenges str #:optional (val-parser default-val-parser) (start 0) (end (string-length str))) (let lp ((i start) (ret '())) (let ((i (skip-whitespace str i end))) (if (< i end) (call-with-values (lambda () (parse-challenge str i end)) (lambda (challenge i) (lp i (cons challenge ret)))) (reverse ret))))) (define (validate-challenges val) (list-of? val (lambda (x) (and (pair? x) (symbol? (car x)) (key-value-list? (cdr x)))))) (define (write-challenge val port) (display (car val) port) (display #\space port) (write-key-value-list (cdr val) port)) (define (write-challenges val port) (write-list val port write-challenge ", ")) ;;; ;;; Request-Line and Response-Line ;;; ;; Hmm. (define (bad-request message . args) (throw 'bad-request message args)) (define (bad-response message . args) (throw 'bad-response message args)) (define *known-versions* '()) (define* (parse-http-version str #:optional (start 0) (end (string-length str))) "Parse 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)’." (or (let lp ((known *known-versions*)) (and (pair? known) (if (string= str (caar known) start end) (cdar known) (lp (cdr known))))) (let ((dot-idx (string-index str #\. start end))) (if (and (string-prefix? "HTTP/" str 0 5 start end) dot-idx (= dot-idx (string-rindex str #\. start end))) (cons (parse-non-negative-integer str (+ start 5) dot-idx) (parse-non-negative-integer str (1+ dot-idx) end)) (bad-header-component 'http-version (substring str start end)))))) (define (write-http-version val port) "Write the given major-minor version pair to PORT." (display "HTTP/" port) (display (car val) port) (display #\. port) (display (cdr val) port)) (for-each (lambda (v) (set! *known-versions* (acons v (parse-http-version v 0 (string-length v)) *known-versions*))) '("HTTP/1.0" "HTTP/1.1")) ;; Request-URI = "*" | absoluteURI | abs_path | authority ;; ;; The `authority' form is only permissible for the CONNECT method, so ;; because we don't expect people to implement CONNECT, we save ;; ourselves the trouble of that case, and disallow the CONNECT method. ;; (define* (parse-http-method str #:optional (start 0) (end (string-length str))) "Parse an HTTP method from STR. The result is an upper-case symbol, like ‘GET’." (cond ((string= str "GET" start end) 'GET) ((string= str "HEAD" start end) 'HEAD) ((string= str "POST" start end) 'POST) ((string= str "PUT" start end) 'PUT) ((string= str "DELETE" start end) 'DELETE) ((string= str "OPTIONS" start end) 'OPTIONS) ((string= str "TRACE" start end) 'TRACE) (else (bad-request "Invalid method: ~a" (substring str start end))))) (define* (parse-request-uri str #:optional (start 0) (end (string-length str))) "Parse a URI from an HTTP request line. Note that URIs in requests do not have to have a scheme or host name. The result is a URI object." (cond ((= start end) (bad-request "Missing Request-URI")) ((string= str "*" start end) #f) ((eqv? (string-ref str start) #\/) (let* ((q (string-index str #\? start end)) (f (string-index str #\# start end)) (q (and q (or (not f) (< q f)) q))) (build-uri 'http #:path (substring str start (or q f end)) #:query (and q (substring str (1+ q) (or f end))) #:fragment (and f (substring str (1+ f) end))))) (else (or (string->uri (substring str start end)) (bad-request "Invalid URI: ~a" (substring str start end)))))) (define (read-request-line port) "Read the first line of an HTTP request from PORT, returning three values: the method, the URI, and the version." (let* ((line (read-header-line port)) (d0 (string-index line char-set:whitespace)) ; "delimiter zero" (d1 (string-rindex line char-set:whitespace))) (if (and d0 d1 (< d0 d1)) (values (parse-http-method line 0 d0) (parse-request-uri line (skip-whitespace line (1+ d0) d1) d1) (parse-http-version line (1+ d1) (string-length line))) (bad-request "Bad Request-Line: ~s" line)))) (define (write-uri uri port) (if (uri-host uri) (begin (display (uri-scheme uri) port) (display "://" port) (if (uri-userinfo uri) (begin (display (uri-userinfo uri) port) (display #\@ port))) (display (uri-host uri) port) (let ((p (uri-port uri))) (if (and p (not (eqv? p 80))) (begin (display #\: port) (display p port)))))) (let* ((path (uri-path uri)) (len (string-length path))) (cond ((and (> len 0) (not (eqv? (string-ref path 0) #\/))) (bad-request "Non-absolute URI path: ~s" path)) ((and (zero? len) (not (uri-host uri))) (bad-request "Empty path and no host for URI: ~s" uri)) (else (display path port)))) (if (uri-query uri) (begin (display #\? port) (display (uri-query uri) port)))) (define (write-request-line method uri version port) "Write the first line of an HTTP request to PORT." (display method port) (display #\space port) (when (http-proxy-port? port) (let ((scheme (uri-scheme uri)) (host (uri-host uri)) (host-port (uri-port uri))) (when (and scheme host) (display scheme port) (display "://" port) (if (string-index host #\:) (begin (display #\[ port) (display host port) (display #\] port)) (display host port)) (unless ((@@ (web uri) default-port?) scheme host-port) (display #\: port) (display host-port port))))) (let ((path (uri-path uri)) (query (uri-query uri))) (if (string-null? path) (display "/" port) (display path port)) (if query (begin (display "?" port) (display query port)))) (display #\space port) (write-http-version version port) (display "\r\n" port)) (define (read-response-line port) "Read the first line of an HTTP response from PORT, returning three values: the HTTP version, the response code, and the (possibly empty) \"reason phrase\"." (let* ((line (read-header-line port)) (d0 (string-index line char-set:whitespace)) ; "delimiter zero" (d1 (and d0 (string-index line char-set:whitespace (skip-whitespace line d0))))) (if (and d0 d1) (values (parse-http-version line 0 d0) (parse-non-negative-integer line (skip-whitespace line d0 d1) d1) (string-trim-both line char-set:whitespace d1)) (bad-response "Bad Response-Line: ~s" line)))) (define (write-response-line version code reason-phrase port) "Write the first line of an HTTP response to PORT." (write-http-version version port) (display #\space port) (display code port) (display #\space port) (display reason-phrase port) (display "\r\n" port)) ;;; ;;; Helpers for declaring headers ;;; ;; emacs: (put 'declare-header! 'scheme-indent-function 1) ;; emacs: (put 'declare-opaque!-header 'scheme-indent-function 1) (define (declare-opaque-header! name) "Declares a given header as \"opaque\", meaning that its value is not treated specially, and is just returned as a plain string." (declare-header! name parse-opaque-string validate-opaque-string write-opaque-string)) ;; emacs: (put 'declare-date-header! 'scheme-indent-function 1) (define (declare-date-header! name) (declare-header! name parse-date date? write-date)) ;; emacs: (put 'declare-string-list-header! 'scheme-indent-function 1) (define (declare-string-list-header! name) (declare-header! name split-and-trim list-of-strings? write-list-of-strings)) ;; emacs: (put 'declare-symbol-list-header! 'scheme-indent-function 1) (define (declare-symbol-list-header! name) (declare-header! name (lambda (str) (map string->symbol (split-and-trim str))) (lambda (v) (list-of? v symbol?)) (lambda (v port) (write-list v port display ", ")))) ;; emacs: (put 'declare-header-list-header! 'scheme-indent-function 1) (define (declare-header-list-header! name) (declare-header! name split-header-names list-of-header-names? write-header-list)) ;; emacs: (put 'declare-integer-header! 'scheme-indent-function 1) (define (declare-integer-header! name) (declare-header! name parse-non-negative-integer non-negative-integer? display)) ;; emacs: (put 'declare-uri-header! 'scheme-indent-function 1) (define (declare-uri-header! name) (declare-header! name (lambda (str) (or (string->uri str) (bad-header-component 'uri str))) (@@ (web uri) absolute-uri?) write-uri)) ;; emacs: (put 'declare-relative-uri-header! 'scheme-indent-function 1) (define (declare-relative-uri-header! name) (declare-header! name (lambda (str) (or ((@@ (web uri) string->uri*) str) (bad-header-component 'uri str))) uri? write-uri)) ;; emacs: (put 'declare-quality-list-header! 'scheme-indent-function 1) (define (declare-quality-list-header! name) (declare-header! name parse-quality-list validate-quality-list write-quality-list)) ;; emacs: (put 'declare-param-list-header! 'scheme-indent-function 1) (define* (declare-param-list-header! name #:optional (val-parser default-val-parser) (val-validator default-val-validator) (val-writer default-val-writer)) (declare-header! name (lambda (str) (parse-param-list str val-parser)) (lambda (val) (validate-param-list val val-validator)) (lambda (val port) (write-param-list val port val-writer)))) ;; emacs: (put 'declare-key-value-list-header! 'scheme-indent-function 1) (define* (declare-key-value-list-header! name #:optional (val-parser default-val-parser) (val-validator default-val-validator) (val-writer default-val-writer)) (declare-header! name (lambda (str) (parse-key-value-list str val-parser)) (lambda (val) (key-value-list? val val-validator)) (lambda (val port) (write-key-value-list val port val-writer)))) ;; emacs: (put 'declare-entity-tag-list-header! 'scheme-indent-function 1) (define (declare-entity-tag-list-header! name) (declare-header! name (lambda (str) (if (string=? str "*") '* (parse-entity-tag-list str))) (lambda (val) (or (eq? val '*) (entity-tag-list? val))) (lambda (val port) (if (eq? val '*) (display "*" port) (write-entity-tag-list val port))))) ;; emacs: (put 'declare-credentials-header! 'scheme-indent-function 1) (define (declare-credentials-header! name) (declare-header! name parse-credentials validate-credentials write-credentials)) ;; emacs: (put 'declare-challenge-list-header! 'scheme-indent-function 1) (define (declare-challenge-list-header! name) (declare-header! name parse-challenges validate-challenges write-challenges)) ;;; ;;; General headers ;;; ;; Cache-Control = 1#(cache-directive) ;; cache-directive = cache-request-directive | cache-response-directive ;; cache-request-directive = ;; "no-cache" ; Section 14.9.1 ;; | "no-store" ; Section 14.9.2 ;; | "max-age" "=" delta-seconds ; Section 14.9.3, 14.9.4 ;; | "max-stale" [ "=" delta-seconds ] ; Section 14.9.3 ;; | "min-fresh" "=" delta-seconds ; Section 14.9.3 ;; | "no-transform" ; Section 14.9.5 ;; | "only-if-cached" ; Section 14.9.4 ;; | cache-extension ; Section 14.9.6 ;; cache-response-directive = ;; "public" ; Section 14.9.1 ;; | "private" [ "=" <"> 1#field-name <"> ] ; Section 14.9.1 ;; | "no-cache" [ "=" <"> 1#field-name <"> ]; Section 14.9.1 ;; | "no-store" ; Section 14.9.2 ;; | "no-transform" ; Section 14.9.5 ;; | "must-revalidate" ; Section 14.9.4 ;; | "proxy-revalidate" ; Section 14.9.4 ;; | "max-age" "=" delta-seconds ; Section 14.9.3 ;; | "s-maxage" "=" delta-seconds ; Section 14.9.3 ;; | cache-extension ; Section 14.9.6 ;; cache-extension = token [ "=" ( token | quoted-string ) ] ;; (declare-key-value-list-header! "Cache-Control" (lambda (k v-str) (case k ((max-age min-fresh s-maxage) (parse-non-negative-integer v-str)) ((max-stale) (and v-str (parse-non-negative-integer v-str))) ((private no-cache) (and v-str (split-header-names v-str))) (else v-str))) (lambda (k v) (case k ((max-age min-fresh s-maxage) (non-negative-integer? v)) ((max-stale) (or (not v) (non-negative-integer? v))) ((private no-cache) (or (not v) (list-of-header-names? v))) ((no-store no-transform only-if-cache must-revalidate proxy-revalidate) (not v)) (else (or (not v) (string? v))))) (lambda (k v port) (cond ((string? v) (default-val-writer k v port)) ((pair? v) (display #\" port) (write-header-list v port) (display #\" port)) ((integer? v) (display v port)) (else (bad-header-component 'cache-control v))))) ;; Connection = "Connection" ":" 1#(connection-token) ;; connection-token = token ;; e.g. ;; Connection: close, Foo-Header ;; (declare-header! "Connection" split-header-names list-of-header-names? (lambda (val port) (write-list val port (lambda (x port) (display (if (eq? x 'close) "close" (header->string x)) port)) ", "))) ;; Date = "Date" ":" HTTP-date ;; e.g. ;; Date: Tue, 15 Nov 1994 08:12:31 GMT ;; (declare-date-header! "Date") ;; Pragma = "Pragma" ":" 1#pragma-directive ;; pragma-directive = "no-cache" | extension-pragma ;; extension-pragma = token [ "=" ( token | quoted-string ) ] ;; (declare-key-value-list-header! "Pragma") ;; Trailer = "Trailer" ":" 1#field-name ;; (declare-header-list-header! "Trailer") ;; Transfer-Encoding = "Transfer-Encoding" ":" 1#transfer-coding ;; (declare-param-list-header! "Transfer-Encoding") ;; Upgrade = "Upgrade" ":" 1#product ;; (declare-string-list-header! "Upgrade") ;; Via = "Via" ":" 1#( received-protocol received-by [ comment ] ) ;; received-protocol = [ protocol-name "/" ] protocol-version ;; protocol-name = token ;; protocol-version = token ;; received-by = ( host [ ":" port ] ) | pseudonym ;; pseudonym = token ;; (declare-header! "Via" split-and-trim list-of-strings? write-list-of-strings #:multiple? #t) ;; Warning = "Warning" ":" 1#warning-value ;; ;; warning-value = warn-code SP warn-agent SP warn-text ;; [SP warn-date] ;; ;; warn-code = 3DIGIT ;; warn-agent = ( host [ ":" port ] ) | pseudonym ;; ; the name or pseudonym of the server adding ;; ; the Warning header, for use in debugging ;; warn-text = quoted-string ;; warn-date = <"> HTTP-date <"> (declare-header! "Warning" (lambda (str) (let ((len (string-length str))) (let lp ((i (skip-whitespace str 0))) (let* ((idx1 (string-index str #\space i)) (idx2 (string-index str #\space (1+ idx1)))) (if (and idx1 idx2) (let ((code (parse-non-negative-integer str i idx1)) (agent (substring str (1+ idx1) idx2))) (call-with-values (lambda () (parse-qstring str (1+ idx2) #:incremental? #t)) (lambda (text i) (call-with-values (lambda () (let ((c (and (< i len) (string-ref str i)))) (case c ((#\space) ;; we have a date. (call-with-values (lambda () (parse-qstring str (1+ i) #:incremental? #t)) (lambda (date i) (values text (parse-date date) i)))) (else (values text #f i))))) (lambda (text date i) (let ((w (list code agent text date)) (c (and (< i len) (string-ref str i)))) (case c ((#f) (list w)) ((#\,) (cons w (lp (skip-whitespace str (1+ i))))) (else (bad-header 'warning str)))))))))))))) (lambda (val) (list-of? val (lambda (elt) (and (list? elt) (= (length elt) 4) (apply (lambda (code host text date) (and (non-negative-integer? code) (< code 1000) (string? host) (string? text) (or (not date) (date? date)))) elt))))) (lambda (val port) (write-list val port (lambda (w port) (apply (lambda (code host text date) (display code port) (display #\space port) (display host port) (display #\space port) (write-qstring text port) (if date (begin (display #\space port) (write-date date port)))) w)) ", ")) #:multiple? #t) ;;; ;;; Entity headers ;;; ;; Allow = #Method ;; (declare-symbol-list-header! "Allow") ;; Content-Disposition = disposition-type *( ";" disposition-parm ) ;; disposition-type = "attachment" | disp-extension-token ;; disposition-parm = filename-parm | disp-extension-parm ;; filename-parm = "filename" "=" quoted-string ;; disp-extension-token = token ;; disp-extension-parm = token "=" ( token | quoted-string ) ;; (declare-header! "Content-Disposition" (lambda (str) (let ((disposition (parse-param-list str default-val-parser))) ;; Lazily reuse the param list parser. (unless (and (pair? disposition) (null? (cdr disposition))) (bad-header-component 'content-disposition str)) (car disposition))) (lambda (val) (and (pair? val) (symbol? (car val)) (list-of? (cdr val) (lambda (x) (and (pair? x) (symbol? (car x)) (string? (cdr x))))))) (lambda (val port) (write-param-list (list val) port))) ;; Content-Encoding = 1#content-coding ;; (declare-symbol-list-header! "Content-Encoding") ;; Content-Language = 1#language-tag ;; (declare-string-list-header! "Content-Language") ;; Content-Length = 1*DIGIT ;; (declare-integer-header! "Content-Length") ;; Content-Location = ( absoluteURI | relativeURI ) ;; (declare-relative-uri-header! "Content-Location") ;; Content-MD5 = <base64 of 128 bit MD5 digest as per RFC 1864> ;; (declare-opaque-header! "Content-MD5") ;; Content-Range = content-range-spec ;; content-range-spec = byte-content-range-spec ;; byte-content-range-spec = bytes-unit SP ;; byte-range-resp-spec "/" ;; ( instance-length | "*" ) ;; byte-range-resp-spec = (first-byte-pos "-" last-byte-pos) ;; | "*" ;; instance-length = 1*DIGIT ;; (declare-header! "Content-Range" (lambda (str) (let ((dash (string-index str #\-)) (slash (string-index str #\/))) (if (and (string-prefix? "bytes " str) slash) (list 'bytes (cond (dash (cons (parse-non-negative-integer str 6 dash) (parse-non-negative-integer str (1+ dash) slash))) ((string= str "*" 6 slash) '*) (else (bad-header 'content-range str))) (if (string= str "*" (1+ slash)) '* (parse-non-negative-integer str (1+ slash)))) (bad-header 'content-range str)))) (lambda (val) (and (list? val) (= (length val) 3) (symbol? (car val)) (let ((x (cadr val))) (or (eq? x '*) (and (pair? x) (non-negative-integer? (car x)) (non-negative-integer? (cdr x))))) (let ((x (caddr val))) (or (eq? x '*) (non-negative-integer? x))))) (lambda (val port) (display (car val) port) (display #\space port) (if (eq? (cadr val) '*) (display #\* port) (begin (display (caadr val) port) (display #\- port) (display (caadr val) port))) (if (eq? (caddr val) '*) (display #\* port) (display (caddr val) port)))) ;; Content-Type = media-type ;; (declare-header! "Content-Type" (lambda (str) (let ((parts (string-split str #\;))) (cons (parse-media-type (car parts)) (map (lambda (x) (let ((eq (string-index x #\=))) (if (and eq (= eq (string-rindex x #\=))) (cons (string->symbol (string-trim x char-set:whitespace 0 eq)) (string-trim-right x char-set:whitespace (1+ eq))) (bad-header 'content-type str)))) (cdr parts))))) (lambda (val) (and (pair? val) (symbol? (car val)) (list-of? (cdr val) (lambda (x) (and (pair? x) (symbol? (car x)) (string? (cdr x))))))) (lambda (val port) (display (car val) port) (if (pair? (cdr val)) (begin (display ";" port) (write-list (cdr val) port (lambda (pair port) (display (car pair) port) (display #\= port) (display (cdr pair) port)) ";"))))) ;; Expires = HTTP-date ;; (define *date-in-the-past* (parse-date "Thu, 01 Jan 1970 00:00:00 GMT")) (declare-header! "Expires" (lambda (str) (if (member str '("0" "-1")) *date-in-the-past* (parse-date str))) date? write-date) ;; Last-Modified = HTTP-date ;; (declare-date-header! "Last-Modified") ;;; ;;; Request headers ;;; ;; Accept = #( media-range [ accept-params ] ) ;; media-range = ( "*/*" | ( type "/" "*" ) | ( type "/" subtype ) ) ;; *( ";" parameter ) ;; accept-params = ";" "q" "=" qvalue *( accept-extension ) ;; accept-extension = ";" token [ "=" ( token | quoted-string ) ] ;; (declare-param-list-header! "Accept" ;; -> (type/subtype (sym-prop . str-val) ...) ...) ;; ;; with the exception of prop `q', in which case the val will be a ;; valid quality value ;; (lambda (k v) (if (eq? k 'q) (parse-quality v) v)) (lambda (k v) (if (eq? k 'q) (valid-quality? v) (or (not v) (string? v)))) (lambda (k v port) (if (eq? k 'q) (write-quality v port) (default-val-writer k v port)))) ;; Accept-Charset = 1#( ( charset | "*" )[ ";" "q" "=" qvalue ] ) ;; (declare-quality-list-header! "Accept-Charset") ;; Accept-Encoding = 1#( codings [ ";" "q" "=" qvalue ] ) ;; codings = ( content-coding | "*" ) ;; (declare-quality-list-header! "Accept-Encoding") ;; Accept-Language = 1#( language-range [ ";" "q" "=" qvalue ] ) ;; language-range = ( ( 1*8ALPHA *( "-" 1*8ALPHA ) ) | "*" ) ;; (declare-quality-list-header! "Accept-Language") ;; Authorization = credentials ;; credentials = auth-scheme #auth-param ;; auth-scheme = token ;; auth-param = token "=" ( token | quoted-string ) ;; (declare-credentials-header! "Authorization") ;; Expect = 1#expectation ;; expectation = "100-continue" | expectation-extension ;; expectation-extension = token [ "=" ( token | quoted-string ) ;; *expect-params ] ;; expect-params = ";" token [ "=" ( token | quoted-string ) ] ;; (declare-param-list-header! "Expect") ;; From = mailbox ;; ;; Should be an email address; we just pass on the string as-is. ;; (declare-opaque-header! "From") ;; Host = host [ ":" port ] ;; (declare-header! "Host" (lambda (str) (let* ((rbracket (string-index str #\])) (colon (string-index str #\: (or rbracket 0))) (host (cond (rbracket (unless (eqv? (string-ref str 0) #\[) (bad-header 'host str)) (substring str 1 rbracket)) (colon (substring str 0 colon)) (else str))) (port (and colon (parse-non-negative-integer str (1+ colon))))) (cons host port))) (lambda (val) (and (pair? val) (string? (car val)) (or (not (cdr val)) (non-negative-integer? (cdr val))))) (lambda (val port) (if (string-index (car val) #\:) (begin (display #\[ port) (display (car val) port) (display #\] port)) (display (car val) port)) (if (cdr val) (begin (display #\: port) (display (cdr val) port))))) ;; If-Match = ( "*" | 1#entity-tag ) ;; (declare-entity-tag-list-header! "If-Match") ;; If-Modified-Since = HTTP-date ;; (declare-date-header! "If-Modified-Since") ;; If-None-Match = ( "*" | 1#entity-tag ) ;; (declare-entity-tag-list-header! "If-None-Match") ;; If-Range = ( entity-tag | HTTP-date ) ;; (declare-header! "If-Range" (lambda (str) (if (or (string-prefix? "\"" str) (string-prefix? "W/" str)) (parse-entity-tag str) (parse-date str))) (lambda (val) (or (date? val) (entity-tag? val))) (lambda (val port) (if (date? val) (write-date val port) (write-entity-tag val port)))) ;; If-Unmodified-Since = HTTP-date ;; (declare-date-header! "If-Unmodified-Since") ;; Max-Forwards = 1*DIGIT ;; (declare-integer-header! "Max-Forwards") ;; Proxy-Authorization = credentials ;; (declare-credentials-header! "Proxy-Authorization") ;; Range = "Range" ":" ranges-specifier ;; ranges-specifier = byte-ranges-specifier ;; byte-ranges-specifier = bytes-unit "=" byte-range-set ;; byte-range-set = 1#( byte-range-spec | suffix-byte-range-spec ) ;; byte-range-spec = first-byte-pos "-" [last-byte-pos] ;; first-byte-pos = 1*DIGIT ;; last-byte-pos = 1*DIGIT ;; suffix-byte-range-spec = "-" suffix-length ;; suffix-length = 1*DIGIT ;; (declare-header! "Range" (lambda (str) (if (string-prefix? "bytes=" str) (cons 'bytes (map (lambda (x) (let ((dash (string-index x #\-))) (cond ((not dash) (bad-header 'range str)) ((zero? dash) (cons #f (parse-non-negative-integer x 1))) ((= dash (1- (string-length x))) (cons (parse-non-negative-integer x 0 dash) #f)) (else (cons (parse-non-negative-integer x 0 dash) (parse-non-negative-integer x (1+ dash))))))) (string-split (substring str 6) #\,))) (bad-header 'range str))) (lambda (val) (and (pair? val) (symbol? (car val)) (list-of? (cdr val) (lambda (elt) (and (pair? elt) (let ((x (car elt)) (y (cdr elt))) (and (or x y) (or (not x) (non-negative-integer? x)) (or (not y) (non-negative-integer? y))))))))) (lambda (val port) (display (car val) port) (display #\= port) (write-list (cdr val) port (lambda (pair port) (if (car pair) (display (car pair) port)) (display #\- port) (if (cdr pair) (display (cdr pair) port))) ","))) ;; Referer = ( absoluteURI | relativeURI ) ;; (declare-relative-uri-header! "Referer") ;; TE = #( t-codings ) ;; t-codings = "trailers" | ( transfer-extension [ accept-params ] ) ;; (declare-param-list-header! "TE") ;; User-Agent = 1*( product | comment ) ;; (declare-opaque-header! "User-Agent") ;;; ;;; Reponse headers ;;; ;; Accept-Ranges = acceptable-ranges ;; acceptable-ranges = 1#range-unit | "none" ;; (declare-symbol-list-header! "Accept-Ranges") ;; Age = age-value ;; age-value = delta-seconds ;; (declare-integer-header! "Age") ;; ETag = entity-tag ;; (declare-header! "ETag" parse-entity-tag entity-tag? write-entity-tag) ;; Location = URI-reference ;; (declare-relative-uri-header! "Location") ;; Proxy-Authenticate = 1#challenge ;; (declare-challenge-list-header! "Proxy-Authenticate") ;; Retry-After = ( HTTP-date | delta-seconds ) ;; (declare-header! "Retry-After" (lambda (str) (if (and (not (string-null? str)) (char-numeric? (string-ref str 0))) (parse-non-negative-integer str) (parse-date str))) (lambda (val) (or (date? val) (non-negative-integer? val))) (lambda (val port) (if (date? val) (write-date val port) (display val port)))) ;; Server = 1*( product | comment ) ;; (declare-opaque-header! "Server") ;; Vary = ( "*" | 1#field-name ) ;; (declare-header! "Vary" (lambda (str) (if (equal? str "*") '* (split-header-names str))) (lambda (val) (or (eq? val '*) (list-of-header-names? val))) (lambda (val port) (if (eq? val '*) (display "*" port) (write-header-list val port)))) ;; WWW-Authenticate = 1#challenge ;; (declare-challenge-list-header! "WWW-Authenticate") ;; Chunked Responses (define (read-chunk-header port) "Read a chunk header from PORT and return the size in bytes of the upcoming chunk." (match (read-line port) ((? eof-object?) ;; Connection closed prematurely: there's nothing left to read. 0) (str (let ((extension-start (string-index str (lambda (c) (or (char=? c #\;) (char=? c #\return)))))) (string->number (if extension-start ; unnecessary? (substring str 0 extension-start) str) 16))))) (define* (make-chunked-input-port port #:key (keep-alive? #f)) "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." (define (close) (unless keep-alive? (close-port port))) (define chunk-size 0) ;size of the current chunk (define remaining 0) ;number of bytes left from the current chunk (define finished? #f) ;did we get all the chunks? (define (read! bv idx to-read) (define (loop to-read num-read) (cond ((or finished? (zero? to-read)) num-read) ((zero? remaining) ;get a new chunk (let ((size (read-chunk-header port))) (set! chunk-size size) (set! remaining size) (if (zero? size) (begin (set! finished? #t) num-read) (loop to-read num-read)))) (else ;read from the current chunk (let* ((ask-for (min to-read remaining)) (read (get-bytevector-n! port bv (+ idx num-read) ask-for))) (if (eof-object? read) (begin ;premature termination (set! finished? #t) num-read) (let ((left (- remaining read))) (set! remaining left) (when (zero? left) ;; We're done with this chunk; read CR and LF. (get-u8 port) (get-u8 port)) (loop (- to-read read) (+ num-read read)))))))) (loop to-read 0)) (make-custom-binary-input-port "chunked input port" read! #f #f close)) (define* (make-chunked-output-port port #:key (keep-alive? #f)) "Returns a new port which translates non-encoded data into a HTTP chunked transfer encoded data and writes this to PORT. Data written to this port is buffered until the port is flushed, at which point it is all sent as one chunk. Take care to close the port when done, as it will output the remaining data, and encode the final zero chunk. When the port is closed it will also close PORT, unless KEEP-ALIVE? is true." (define (q-for-each f q) (while (not (q-empty? q)) (f (deq! q)))) (define queue (make-q)) (define (put-char c) (enq! queue c)) (define (put-string s) (string-for-each (lambda (c) (enq! queue c)) s)) (define (flush) ;; It is important that we do _not_ write a chunk if the queue is ;; empty, since it will be treated as the final chunk. (unless (q-empty? queue) (let ((len (q-length queue))) (display (number->string len 16) port) (display "\r\n" port) (q-for-each (lambda (elem) (write-char elem port)) queue) (display "\r\n" port)))) (define (close) (flush) (display "0\r\n" port) (force-output port) (unless keep-alive? (close-port port))) (make-soft-port (vector put-char put-string flush #f close) "w")) (define %http-proxy-port? (make-object-property)) (define (http-proxy-port? port) (%http-proxy-port? port)) (define (set-http-proxy-port?! port flag) (set! (%http-proxy-port? port) flag)) �����������������������������������������������������������������������������web/server.scm��������������������������������������������������������������������������������������0000644�����������������00000036151�15253246142�0007345 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; Web server ;; Copyright (C) 2010, 2011, 2012, 2013, 2015 Free Software Foundation, Inc. ;; This library 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. ;; ;; This library 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 library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA ;; 02110-1301 USA ;;; Commentary: ;;; ;;; (web server) is a generic web server interface, along with a main ;;; loop implementation for web servers controlled by Guile. ;;; ;;; The lowest layer is the <server-impl> object, which defines a set of ;;; hooks to open a server, read a request from a client, write a ;;; response to a client, and close a server. These hooks -- open, ;;; read, write, and close, respectively -- are bound together in a ;;; <server-impl> object. Procedures in this module take a ;;; <server-impl> object, if needed. ;;; ;;; A <server-impl> may also be looked up by name. If you pass the ;;; `http' symbol to `run-server', Guile looks for a variable named ;;; `http' in the `(web server http)' module, which should be bound to a ;;; <server-impl> object. Such a binding is made by instantiation of ;;; the `define-server-impl' syntax. In this way the run-server loop can ;;; automatically load other backends if available. ;;; ;;; The life cycle of a server goes as follows: ;;; ;;; * The `open' hook is called, to open the server. `open' takes 0 or ;;; more arguments, depending on the backend, and returns an opaque ;;; server socket object, or signals an error. ;;; ;;; * The `read' hook is called, to read a request from a new client. ;;; The `read' hook takes one arguments, the server socket. It ;;; should return three values: an opaque client socket, the ;;; request, and the request body. The request should be a ;;; `<request>' object, from `(web request)'. The body should be a ;;; string or a bytevector, or `#f' if there is no body. ;;; ;;; If the read failed, the `read' hook may return #f for the client ;;; socket, request, and body. ;;; ;;; * A user-provided handler procedure is called, with the request ;;; and body as its arguments. The handler should return two ;;; values: the response, as a `<response>' record from `(web ;;; response)', and the response body as a string, bytevector, or ;;; `#f' if not present. We also allow the reponse to be simply an ;;; alist of headers, in which case a default response object is ;;; constructed with those headers. ;;; ;;; * The `write' hook is called with three arguments: the client ;;; socket, the response, and the body. The `write' hook returns no ;;; values. ;;; ;;; * At this point the request handling is complete. For a loop, we ;;; loop back and try to read a new request. ;;; ;;; * If the user interrupts the loop, the `close' hook is called on ;;; the server socket. ;;; ;;; Code: (define-module (web server) #:use-module (srfi srfi-9) #:use-module (srfi srfi-9 gnu) #:use-module (rnrs bytevectors) #:use-module (ice-9 binary-ports) #:use-module (web request) #:use-module (web response) #:use-module (system repl error-handling) #:use-module (ice-9 control) #:use-module (ice-9 iconv) #:export (define-server-impl lookup-server-impl make-server-impl server-impl? server-impl-name server-impl-open server-impl-read server-impl-write server-impl-close open-server read-client handle-request sanitize-response write-client close-server serve-one-client run-server)) (define *timer* (gettimeofday)) (define (print-elapsed who) (let ((t (gettimeofday))) (pk who (+ (* (- (car t) (car *timer*)) 1000000) (- (cdr t) (cdr *timer*)))) (set! *timer* t))) (eval-when (expand) (define *time-debug?* #f)) (define-syntax debug-elapsed (lambda (x) (syntax-case x () ((_ who) (if *time-debug?* #'(print-elapsed who) #'*unspecified*))))) (define-record-type server-impl (make-server-impl name open read write close) server-impl? (name server-impl-name) (open server-impl-open) (read server-impl-read) (write server-impl-write) (close server-impl-close)) (define-syntax-rule (define-server-impl name open read write close) (define name (make-server-impl 'name open read write close))) (define (lookup-server-impl impl) "Look 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’." (cond ((server-impl? impl) impl) ((symbol? impl) (let ((impl (module-ref (resolve-module `(web server ,impl)) impl))) (if (server-impl? impl) impl (error "expected a server impl in module" `(web server ,impl))))) (else (error "expected a server-impl or a symbol" impl)))) ;; -> server (define (open-server impl open-params) "Open 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." (apply (server-impl-open impl) open-params)) ;; -> (client request body | #f #f #f) (define (read-client impl server) "Read a new client from SERVER, by applying the implementation's ‘read’ procedure to the server. If successful, return three values: an object corresponding to the client, a request object, and the request body. If any exception occurs, return ‘#f’ for all three values." (call-with-error-handling (lambda () ((server-impl-read impl) server)) #:pass-keys '(quit interrupt) #:on-error (if (batch-mode?) 'backtrace 'debug) #:post-error (lambda _ (values #f #f #f)))) (define (extend-response r k v . additional) (let ((r (set-field r (response-headers) (assoc-set! (copy-tree (response-headers r)) k v)))) (if (null? additional) r (apply extend-response r additional)))) ;; -> response body (define (sanitize-response request response body) "\"Sanitize\" the given response and body, making them appropriate for the given request. As a convenience to web handler authors, RESPONSE may be given as an alist of headers, in which case it is used to construct a default response. Ensures that the response version corresponds to the request version. If BODY is a string, encodes the string to a bytevector, in an encoding appropriate for RESPONSE. 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, in the write-client procedure. Authors are advised not to rely on the procedure being called at any particular time." (cond ((list? response) (sanitize-response request (build-response #:version (request-version request) #:headers response) body)) ((not (equal? (request-version request) (response-version response))) (sanitize-response request (adapt-response-version response (request-version request)) body)) ((not body) (values response #vu8())) ((string? body) (let* ((type (response-content-type response '(text/plain))) (declared-charset (assq-ref (cdr type) 'charset)) (charset (or declared-charset "utf-8"))) (sanitize-response request (if declared-charset response (extend-response response 'content-type `(,@type (charset . ,charset)))) (string->bytevector body charset)))) ((procedure? body) (let* ((type (response-content-type response '(text/plain))) (declared-charset (assq-ref (cdr type) 'charset)) (charset (or declared-charset "utf-8"))) (sanitize-response request (if declared-charset response (extend-response response 'content-type `(,@type (charset . ,charset)))) (call-with-encoded-output-string charset body)))) ((not (bytevector? body)) (error "unexpected body type")) ((and (response-must-not-include-body? response) body ;; FIXME make this stricter: even an empty body should be prohibited. (not (zero? (bytevector-length body)))) (error "response with this status code must not include body" response)) (else ;; check length; assert type; add other required fields? (values (let ((rlen (response-content-length response)) (blen (bytevector-length body))) (cond (rlen (if (= rlen blen) response (error "bad content-length" rlen blen))) (else (extend-response response 'content-length blen)))) (if (eq? (request-method request) 'HEAD) ;; Responses to HEAD requests must not include bodies. ;; We could raise an error here, but it seems more ;; appropriate to just do something sensible. #f body))))) ;; -> response body state (define (handle-request handler request body state) "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." (call-with-error-handling (lambda () (call-with-values (lambda () (with-stack-and-prompt (lambda () (apply handler request body state)))) (lambda (response body . state) (call-with-values (lambda () (debug-elapsed 'handler) (sanitize-response request response body)) (lambda (response body) (debug-elapsed 'sanitize) (values response body state)))))) #:pass-keys '(quit interrupt) #:on-error (if (batch-mode?) 'backtrace 'debug) #:post-error (lambda _ (values (build-response #:code 500) #f state)))) ;; -> unspecified values (define (write-client impl server client response body) "Write an HTTP response and body to CLIENT. If the server and client support persistent connections, it is the implementation's responsibility to keep track of the client thereafter, presumably by attaching it to the SERVER argument somehow." (call-with-error-handling (lambda () ((server-impl-write impl) server client response body)) #:pass-keys '(quit interrupt) #:on-error (if (batch-mode?) 'backtrace 'debug) #:post-error (lambda _ (values)))) ;; -> unspecified values (define (close-server impl server) "Release resources allocated by a previous invocation of ‘open-server’." ((server-impl-close impl) server)) (define call-with-sigint (if (not (provided? 'posix)) (lambda (thunk handler-thunk) (thunk)) (lambda (thunk handler-thunk) (let ((handler #f)) (catch 'interrupt (lambda () (dynamic-wind (lambda () (set! handler (sigaction SIGINT (lambda (sig) (throw 'interrupt))))) thunk (lambda () (if handler ;; restore Scheme handler, SIG_IGN or SIG_DFL. (sigaction SIGINT (car handler) (cdr handler)) ;; restore original C handler. (sigaction SIGINT #f))))) (lambda (k . _) (handler-thunk))))))) (define (with-stack-and-prompt thunk) (call-with-prompt (default-prompt-tag) (lambda () (start-stack #t (thunk))) (lambda (k proc) (with-stack-and-prompt (lambda () (proc k)))))) ;; -> new-state (define (serve-one-client handler impl server state) "Read one request from SERVER, call HANDLER on the request and body, and write the response to the client. Return the new state produced by the handler procedure." (debug-elapsed 'serve-again) (call-with-values (lambda () (read-client impl server)) (lambda (client request body) (debug-elapsed 'read-client) (if client (call-with-values (lambda () (handle-request handler request body state)) (lambda (response body state) (debug-elapsed 'handle-request) (write-client impl server client response body) (debug-elapsed 'write-client) state)) state)))) (define* (run-server handler #:optional (impl 'http) (open-params '()) . state) "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." (let* ((impl (lookup-server-impl impl)) (server (open-server impl open-params))) (call-with-sigint (lambda () (let lp ((state state)) (lp (serve-one-client handler impl server state)))) (lambda () (close-server impl server) (values))))) �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������web/request.scm�������������������������������������������������������������������������������������0000644�����������������00000026243�15253246142�0007530 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; HTTP request objects ;; Copyright (C) 2010, 2011, 2012 Free Software Foundation, Inc. ;; This library 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. ;; ;; This library 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 library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA ;; 02110-1301 USA ;;; Code: (define-module (web request) #:use-module (rnrs bytevectors) #:use-module (ice-9 binary-ports) #:use-module (ice-9 rdelim) #:use-module (srfi srfi-9) #:use-module (web uri) #:use-module (web http) #:export (request? request-method request-uri request-version request-headers request-meta request-port read-request build-request write-request read-request-body write-request-body ;; General headers ;; request-cache-control request-connection request-date request-pragma request-trailer request-transfer-encoding request-upgrade request-via request-warning ;; Entity headers ;; request-allow request-content-encoding request-content-language request-content-length request-content-location request-content-md5 request-content-range request-content-type request-expires request-last-modified ;; Request headers ;; request-accept request-accept-charset request-accept-encoding request-accept-language request-authorization request-expect request-from request-host request-if-match request-if-modified-since request-if-none-match request-if-range request-if-unmodified-since request-max-forwards request-proxy-authorization request-range request-referer request-te request-user-agent ;; Misc request-absolute-uri)) ;;; {Character Encodings, Strings, and Bytevectors} ;;; ;;; Requests are read from over the wire, and as such have to be treated ;;; very carefully. ;;; ;;; The header portion of the message is defined to be in a subset of ;;; ASCII, and may be processed either byte-wise (using bytevectors and ;;; binary I/O) or as characters in a single-byte ASCII-compatible ;;; encoding. ;;; ;;; We choose the latter, processing as strings in the latin-1 ;;; encoding. This allows us to use all the read-delimited machinery, ;;; character sets, and regular expressions, shared substrings, etc. ;;; ;;; The characters in the header values may themselves encode other ;;; bytes or characters -- basically each header has its own parser. We ;;; leave that as a header-specific topic. ;;; ;;; The body is present if the content-length header is present. Its ;;; format and, if textual, encoding is determined by the headers, but ;;; its length is encoded in bytes. So we just slurp that number of ;;; characters in latin-1, knowing that the number of characters ;;; corresponds to the number of bytes, and then convert to a ;;; bytevector, perhaps for later decoding. ;;; (define-record-type <request> (make-request method uri version headers meta port) request? (method request-method) (uri request-uri) (version request-version) (headers request-headers) (meta request-meta) (port request-port)) (define (bad-request message . args) (throw 'bad-request message args)) (define (bad-request-printer port key args default-printer) (apply (case-lambda ((msg args) (display "Bad request: " port) (apply format port msg args) (newline port)) (_ (default-printer))) args)) (set-exception-printer! 'bad-request bad-request-printer) (define (non-negative-integer? n) (and (number? n) (>= n 0) (exact? n) (integer? n))) (define (validate-headers headers) (if (pair? headers) (let ((h (car headers))) (if (pair? h) (let ((k (car h)) (v (cdr h))) (if (valid-header? k v) (validate-headers (cdr headers)) (bad-request "Bad value for header ~a: ~s" k v))) (bad-request "Header not a pair: ~a" h))) (if (not (null? headers)) (bad-request "Headers not a list: ~a" headers)))) (define* (build-request uri #:key (method 'GET) (version '(1 . 1)) (headers '()) port (meta '()) (validate-headers? #t)) "Construct an HTTP request object. If VALIDATE-HEADERS? is true, the headers are each run through their respective validators." (let ((needs-host? (and (equal? version '(1 . 1)) (not (assq-ref headers 'host))))) (cond ((not (and (pair? version) (non-negative-integer? (car version)) (non-negative-integer? (cdr version)))) (bad-request "Bad version: ~a" version)) ((not (uri? uri)) (bad-request "Bad uri: ~a" uri)) ((and (not port) (memq method '(POST PUT))) (bad-request "Missing port for message ~a" method)) ((not (list? meta)) (bad-request "Bad metadata alist" meta)) ((and needs-host? (not (uri-host uri))) (bad-request "HTTP/1.1 request without Host header and no host in URI: ~a" uri)) (else (if validate-headers? (validate-headers headers)))) (make-request method uri version (if needs-host? (acons 'host (cons (uri-host uri) (uri-port uri)) headers) headers) meta port))) (define* (read-request port #:optional (meta '())) "Read an HTTP request from PORT, optionally attaching the given metadata, META. As a side effect, sets the encoding on PORT to ISO-8859-1 (latin-1), so that reading one character reads one byte. See the discussion of character sets in \"HTTP Requests\" in the manual, for more information. Note that the body is not part of the request. Once you have read a request, you may read the body separately, and likewise for writing requests." (set-port-encoding! port "ISO-8859-1") (call-with-values (lambda () (read-request-line port)) (lambda (method uri version) (make-request method uri version (read-headers port) meta port)))) ;; FIXME: really return a new request? (define (write-request r port) "Write the given HTTP request to PORT. Return a new request, whose ‘request-port’ will continue writing on PORT, perhaps using some transfer encoding." (write-request-line (request-method r) (request-uri r) (request-version r) port) (write-headers (request-headers r) port) (display "\r\n" port) (if (eq? port (request-port r)) r (make-request (request-method r) (request-uri r) (request-version r) (request-headers r) (request-meta r) port))) (define (read-request-body r) "Reads the request body from R, as a bytevector. Return ‘#f’ if there was no request body." (let ((nbytes (request-content-length r))) (and nbytes (let ((bv (get-bytevector-n (request-port r) nbytes))) (if (= (bytevector-length bv) nbytes) bv (bad-request "EOF while reading request body: ~a bytes of ~a" (bytevector-length bv) nbytes)))))) (define (write-request-body r bv) "Write BV, a bytevector, to the port corresponding to the HTTP request R." (put-bytevector (request-port r) bv)) (define-syntax define-request-accessor (lambda (x) (syntax-case x () ((_ field) #'(define-request-accessor field #f)) ((_ field def) (identifier? #'field) #`(define* (#,(datum->syntax #'field (symbol-append 'request- (syntax->datum #'field))) request #:optional (default def)) (cond ((assq 'field (request-headers request)) => cdr) (else default))))))) ;; General headers ;; (define-request-accessor cache-control '()) (define-request-accessor connection '()) (define-request-accessor date #f) (define-request-accessor pragma '()) (define-request-accessor trailer '()) (define-request-accessor transfer-encoding '()) (define-request-accessor upgrade '()) (define-request-accessor via '()) (define-request-accessor warning '()) ;; Entity headers ;; (define-request-accessor allow '()) (define-request-accessor content-encoding '()) (define-request-accessor content-language '()) (define-request-accessor content-length #f) (define-request-accessor content-location #f) (define-request-accessor content-md5 #f) (define-request-accessor content-range #f) (define-request-accessor content-type #f) (define-request-accessor expires #f) (define-request-accessor last-modified #f) ;; Request headers ;; (define-request-accessor accept '()) (define-request-accessor accept-charset '()) (define-request-accessor accept-encoding '()) (define-request-accessor accept-language '()) (define-request-accessor authorization #f) (define-request-accessor expect '()) (define-request-accessor from #f) (define-request-accessor host #f) ;; Absence of an if-directive appears to be different from `*'. (define-request-accessor if-match #f) (define-request-accessor if-modified-since #f) (define-request-accessor if-none-match #f) (define-request-accessor if-range #f) (define-request-accessor if-unmodified-since #f) (define-request-accessor max-forwards #f) (define-request-accessor proxy-authorization #f) (define-request-accessor range #f) (define-request-accessor referer #f) (define-request-accessor te '()) (define-request-accessor user-agent #f) ;; Misc accessors (define* (request-absolute-uri r #:optional default-host default-port) "A helper routine to determine the absolute URI of a request, using the ‘host’ header and the default host and port." (let ((uri (request-uri r))) (if (uri-host uri) uri (let ((host (or (request-host r) (if default-host (cons default-host default-port) (bad-request "URI not absolute, no Host header, and no default: ~s" uri))))) (build-uri (uri-scheme uri) #:host (car host) #:port (cdr host) #:path (uri-path uri) #:query (uri-query uri) #:fragment (uri-fragment uri)))))) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������statprof.scm����������������������������������������������������������������������������������������0000644�����������������00000072213�15253246142�0007123 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; (statprof) -- a statistical profiler for Guile ;;;; -*-scheme-*- ;;;; ;;;; Copyright (C) 2009, 2010, 2011, 2015 Free Software Foundation, Inc. ;;;; Copyright (C) 2004, 2009 Andy Wingo <wingo at pobox dot com> ;;;; Copyright (C) 2001 Rob Browning <rlb at defaultvalue dot org> ;;;; ;;;; This library 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. ;;;; ;;;; This library 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 library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; ;;; Commentary: ;; ;;@code{(statprof)} is intended to be a fairly simple ;;statistical profiler for guile. It is in the early stages yet, so ;;consider its output still suspect, and please report any bugs to ;;@email{guile-devel at gnu.org}, or to me directly at @email{rlb at ;;defaultvalue.org}. ;; ;;A simple use of statprof would look like this: ;; ;;@example ;; (statprof-reset 0 50000 #t) ;; (statprof-start) ;; (do-something) ;; (statprof-stop) ;; (statprof-display) ;;@end example ;; ;;This would reset statprof, clearing all accumulated statistics, then ;;start profiling, run some code, stop profiling, and finally display a ;;gprof flat-style table of statistics which will look something like ;;this: ;; ;;@example ;; % cumulative self self total ;; time seconds seconds calls ms/call ms/call name ;; 35.29 0.23 0.23 2002 0.11 0.11 - ;; 23.53 0.15 0.15 2001 0.08 0.08 positive? ;; 23.53 0.15 0.15 2000 0.08 0.08 + ;; 11.76 0.23 0.08 2000 0.04 0.11 do-nothing ;; 5.88 0.64 0.04 2001 0.02 0.32 loop ;; 0.00 0.15 0.00 1 0.00 150.59 do-something ;; ... ;;@end example ;; ;;All of the numerical data with the exception of the calls column is ;;statistically approximate. In the following column descriptions, and ;;in all of statprof, "time" refers to execution time (both user and ;;system), not wall clock time. ;; ;;@table @asis ;;@item % time ;;The percent of the time spent inside the procedure itself ;;(not counting children). ;;@item cumulative seconds ;;The total number of seconds spent in the procedure, including ;;children. ;;@item self seconds ;;The total number of seconds spent in the procedure itself (not counting ;;children). ;;@item calls ;;The total number of times the procedure was called. ;;@item self ms/call ;;The average time taken by the procedure itself on each call, in ms. ;;@item total ms/call ;;The average time taken by each call to the procedure, including time ;;spent in child functions. ;;@item name ;;The name of the procedure. ;;@end table ;; ;;The profiler uses @code{eq?} and the procedure object itself to ;;identify the procedures, so it won't confuse different procedures with ;;the same name. They will show up as two different rows in the output. ;; ;;Right now the profiler is quite simplistic. I cannot provide ;;call-graphs or other higher level information. What you see in the ;;table is pretty much all there is. Patches are welcome :-) ;; ;;@section Implementation notes ;; ;;The profiler works by setting the unix profiling signal ;;@code{ITIMER_PROF} to go off after the interval you define in the call ;;to @code{statprof-reset}. When the signal fires, a sampling routine is ;;run which looks at the current procedure that's executing, and then ;;crawls up the stack, and for each procedure encountered, increments ;;that procedure's sample count. Note that if a procedure is encountered ;;multiple times on a given stack, it is only counted once. After the ;;sampling is complete, the profiler resets profiling timer to fire ;;again after the appropriate interval. ;; ;;Meanwhile, the profiler keeps track, via @code{get-internal-run-time}, ;;how much CPU time (system and user -- which is also what ;;@code{ITIMER_PROF} tracks), has elapsed while code has been executing ;;within a statprof-start/stop block. ;; ;;The profiler also tries to avoid counting or timing its own code as ;;much as possible. ;; ;;; Code: ;; When you add new features, please also add tests to ./tests/ if you ;; have time, and then add the new files to ./run-tests. Also, if ;; anyone's bored, there are a lot of existing API bits that don't ;; have tests yet. ;; TODO ;; ;; Check about profiling C functions -- does profiling primitives work? ;; Also look into stealing code from qprof so we can sample the C stack ;; Call graphs? (define-module (statprof) #:use-module (srfi srfi-1) #:autoload (ice-9 format) (format) #:use-module (system vm vm) #:use-module (system vm frame) #:use-module (system vm program) #:export (statprof-active? statprof-start statprof-stop statprof-reset statprof-accumulated-time statprof-sample-count statprof-fold-call-data statprof-proc-call-data statprof-call-data-name statprof-call-data-calls statprof-call-data-cum-samples statprof-call-data-self-samples statprof-call-data->stats statprof-stats-proc-name statprof-stats-%-time-in-proc statprof-stats-cum-secs-in-proc statprof-stats-self-secs-in-proc statprof-stats-calls statprof-stats-self-secs-per-call statprof-stats-cum-secs-per-call statprof-display statprof-display-anomolies statprof-fetch-stacks statprof-fetch-call-tree statprof with-statprof gcprof)) ;; This profiler tracks two numbers for every function called while ;; it's active. It tracks the total number of calls, and the number ;; of times the function was active when the sampler fired. ;; ;; Globally the profiler tracks the total time elapsed and the number ;; of times the sampler was fired. ;; ;; Right now, this profiler is not per-thread and is not thread safe. (define accumulated-time #f) ; total so far. (define last-start-time #f) ; start-time when timer is active. (define sample-count #f) ; total count of sampler calls. (define sampling-frequency #f) ; in (seconds . microseconds) (define remaining-prof-time #f) ; time remaining when prof suspended. (define profile-level 0) ; for user start/stop nesting. (define %count-calls? #t) ; whether to catch apply-frame. (define gc-time-taken 0) ; gc time between statprof-start and ; statprof-stop. (define record-full-stacks? #f) ; if #t, stash away the stacks ; for later analysis. (define stacks '()) ;; procedure-data will be a hash where the key is the function object ;; itself and the value is the data. The data will be a vector like ;; this: #(name call-count cum-sample-count self-sample-count) (define procedure-data #f) ;; If you change the call-data data structure, you need to also change ;; sample-uncount-frame. (define (make-call-data proc call-count cum-sample-count self-sample-count) (vector proc call-count cum-sample-count self-sample-count)) (define (call-data-proc cd) (vector-ref cd 0)) (define (call-data-name cd) (procedure-name (call-data-proc cd))) (define (call-data-printable cd) (or (call-data-name cd) (with-output-to-string (lambda () (write (call-data-proc cd)))))) (define (call-data-call-count cd) (vector-ref cd 1)) (define (call-data-cum-sample-count cd) (vector-ref cd 2)) (define (call-data-self-sample-count cd) (vector-ref cd 3)) (define (inc-call-data-call-count! cd) (vector-set! cd 1 (1+ (vector-ref cd 1)))) (define (inc-call-data-cum-sample-count! cd) (vector-set! cd 2 (1+ (vector-ref cd 2)))) (define (inc-call-data-self-sample-count! cd) (vector-set! cd 3 (1+ (vector-ref cd 3)))) (define-macro (accumulate-time stop-time) `(set! accumulated-time (+ accumulated-time 0.0 (- ,stop-time last-start-time)))) (define (get-call-data proc) (let ((k (if (or (not (program? proc)) (zero? (program-num-free-variables proc))) proc (program-objcode proc)))) (or (hashq-ref procedure-data k) (let ((call-data (make-call-data proc 0 0 0))) (hashq-set! procedure-data k call-data) call-data)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; SIGPROF handler (define (sample-stack-procs stack) (let ((stacklen (stack-length stack)) (hit-count-call? #f)) (if record-full-stacks? (set! stacks (cons stack stacks))) (set! sample-count (+ sample-count 1)) ;; Now accumulate stats for the whole stack. (let loop ((frame (stack-ref stack 0)) (procs-seen (make-hash-table 13)) (self #f)) (cond ((not frame) (hash-fold (lambda (proc val accum) (inc-call-data-cum-sample-count! (get-call-data proc))) #f procs-seen) (and=> (and=> self get-call-data) inc-call-data-self-sample-count!)) ((frame-procedure frame) => (lambda (proc) (cond ((eq? proc count-call) ;; We're not supposed to be sampling count-call and ;; its sub-functions, so loop again with a clean ;; slate. (set! hit-count-call? #t) (loop (frame-previous frame) (make-hash-table 13) #f)) (else (hashq-set! procs-seen proc #t) (loop (frame-previous frame) procs-seen (or self proc)))))) (else (loop (frame-previous frame) procs-seen self)))) hit-count-call?)) (define inside-profiler? #f) (define (profile-signal-handler sig) (set! inside-profiler? #t) ;; FIXME: with-statprof should be able to set an outer frame for the ;; stack cut (if (positive? profile-level) (let* ((stop-time (get-internal-run-time)) ;; cut down to the signal handler. note that this will only ;; work if statprof.scm is compiled; otherwise we get ;; `eval' on the stack instead, because if it's not ;; compiled, profile-signal-handler is a thunk that ;; tail-calls eval. perhaps we should always compile the ;; signal handler instead... (stack (or (make-stack #t profile-signal-handler) (pk 'what! (make-stack #t)))) (inside-apply-trap? (sample-stack-procs stack))) (if (not inside-apply-trap?) (begin ;; disabling here is just a little more efficient, but ;; not necessary given inside-profiler?. We can't just ;; disable unconditionally at the top of this function ;; and eliminate inside-profiler? because it seems to ;; confuse guile wrt re-enabling the trap when ;; count-call finishes. (if %count-calls? (set-vm-trace-level! (the-vm) (1- (vm-trace-level (the-vm))))) (accumulate-time stop-time))) (setitimer ITIMER_PROF 0 0 (car sampling-frequency) (cdr sampling-frequency)) (if (not inside-apply-trap?) (begin (set! last-start-time (get-internal-run-time)) (if %count-calls? (set-vm-trace-level! (the-vm) (1+ (vm-trace-level (the-vm))))))))) (set! inside-profiler? #f)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Count total calls. (define (count-call frame) (if (not inside-profiler?) (begin (accumulate-time (get-internal-run-time)) (and=> (frame-procedure frame) (lambda (proc) (inc-call-data-call-count! (get-call-data proc)))) (set! last-start-time (get-internal-run-time))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define (statprof-active?) "Returns @code{#t} if @code{statprof-start} has been called more times than @code{statprof-stop}, @code{#f} otherwise." (positive? profile-level)) ;; Do not call this from statprof internal functions -- user only. (define (statprof-start) "Start the profiler.@code{}" ;; After some head-scratching, I don't *think* I need to mask/unmask ;; signals here, but if I'm wrong, please let me know. (set! profile-level (+ profile-level 1)) (if (= profile-level 1) (let* ((rpt remaining-prof-time) (use-rpt? (and rpt (or (positive? (car rpt)) (positive? (cdr rpt)))))) (set! remaining-prof-time #f) (set! last-start-time (get-internal-run-time)) (set! gc-time-taken (cdr (assq 'gc-time-taken (gc-stats)))) (if use-rpt? (setitimer ITIMER_PROF 0 0 (car rpt) (cdr rpt)) (setitimer ITIMER_PROF 0 0 (car sampling-frequency) (cdr sampling-frequency))) (if %count-calls? (add-hook! (vm-apply-hook (the-vm)) count-call)) (set-vm-trace-level! (the-vm) (1+ (vm-trace-level (the-vm)))) #t))) ;; Do not call this from statprof internal functions -- user only. (define (statprof-stop) "Stop the profiler.@code{}" ;; After some head-scratching, I don't *think* I need to mask/unmask ;; signals here, but if I'm wrong, please let me know. (set! profile-level (- profile-level 1)) (if (zero? profile-level) (begin (set! gc-time-taken (- (cdr (assq 'gc-time-taken (gc-stats))) gc-time-taken)) (set-vm-trace-level! (the-vm) (1- (vm-trace-level (the-vm)))) (if %count-calls? (remove-hook! (vm-apply-hook (the-vm)) count-call)) ;; I believe that we need to do this before getting the time ;; (unless we want to make things even more complicated). (set! remaining-prof-time (setitimer ITIMER_PROF 0 0 0 0)) (accumulate-time (get-internal-run-time)) (set! last-start-time #f)))) (define* (statprof-reset sample-seconds sample-microseconds count-calls? #:optional full-stacks?) "Reset 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." (if (positive? profile-level) (error "Can't reset profiler while profiler is running.")) (set! %count-calls? count-calls?) (set! accumulated-time 0) (set! last-start-time #f) (set! sample-count 0) (set! sampling-frequency (cons sample-seconds sample-microseconds)) (set! remaining-prof-time #f) (set! procedure-data (make-hash-table 131)) (set! record-full-stacks? full-stacks?) (set! stacks '()) (sigaction SIGPROF profile-signal-handler) #t) (define (statprof-fold-call-data proc init) "Fold @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." (if (positive? profile-level) (error "Can't call statprof-fold-called while profiler is running.")) (hash-fold (lambda (key value prior-result) (proc value prior-result)) init procedure-data)) (define (statprof-proc-call-data proc) "Returns the call-data associated with @var{proc}, or @code{#f} if none is available." (if (positive? profile-level) (error "Can't call statprof-fold-called while profiler is running.")) (hashq-ref procedure-data proc)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Stats (define (statprof-call-data->stats call-data) "Returns an object of type @code{statprof-stats}." ;; returns (vector proc-name ;; %-time-in-proc ;; cum-seconds-in-proc ;; self-seconds-in-proc ;; num-calls ;; self-secs-per-call ;; total-secs-per-call) (let* ((proc-name (call-data-printable call-data)) (self-samples (call-data-self-sample-count call-data)) (cum-samples (call-data-cum-sample-count call-data)) (all-samples (statprof-sample-count)) (secs-per-sample (/ (statprof-accumulated-time) (statprof-sample-count))) (num-calls (and %count-calls? (statprof-call-data-calls call-data)))) (vector proc-name (* (/ self-samples all-samples) 100.0) (* cum-samples secs-per-sample 1.0) (* self-samples secs-per-sample 1.0) num-calls (and num-calls ;; maybe we only sampled in children (if (zero? self-samples) 0.0 (/ (* self-samples secs-per-sample) 1.0 num-calls))) (and num-calls ;; cum-samples must be positive (/ (* cum-samples secs-per-sample) 1.0 ;; num-calls might be 0 if we entered statprof during the ;; dynamic extent of the call (max num-calls 1)))))) (define (statprof-stats-proc-name stats) (vector-ref stats 0)) (define (statprof-stats-%-time-in-proc stats) (vector-ref stats 1)) (define (statprof-stats-cum-secs-in-proc stats) (vector-ref stats 2)) (define (statprof-stats-self-secs-in-proc stats) (vector-ref stats 3)) (define (statprof-stats-calls stats) (vector-ref stats 4)) (define (statprof-stats-self-secs-per-call stats) (vector-ref stats 5)) (define (statprof-stats-cum-secs-per-call stats) (vector-ref stats 6)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (define (stats-sorter x y) (let ((diff (- (statprof-stats-self-secs-in-proc x) (statprof-stats-self-secs-in-proc y)))) (positive? (if (= diff 0) (- (statprof-stats-cum-secs-in-proc x) (statprof-stats-cum-secs-in-proc y)) diff)))) (define (statprof-display . port) "Displays a gprof-like summary of the statistics collected. Unless an optional @var{port} argument is passed, uses the current output port." (if (null? port) (set! port (current-output-port))) (cond ((zero? (statprof-sample-count)) (format port "No samples recorded.\n")) (else (let* ((stats-list (statprof-fold-call-data (lambda (data prior-value) (cons (statprof-call-data->stats data) prior-value)) '())) (sorted-stats (sort stats-list stats-sorter))) (define (display-stats-line stats) (if %count-calls? (format port "~6,2f ~9,2f ~9,2f ~7d ~8,2f ~8,2f " (statprof-stats-%-time-in-proc stats) (statprof-stats-cum-secs-in-proc stats) (statprof-stats-self-secs-in-proc stats) (statprof-stats-calls stats) (* 1000 (statprof-stats-self-secs-per-call stats)) (* 1000 (statprof-stats-cum-secs-per-call stats))) (format port "~6,2f ~9,2f ~9,2f " (statprof-stats-%-time-in-proc stats) (statprof-stats-cum-secs-in-proc stats) (statprof-stats-self-secs-in-proc stats))) (display (statprof-stats-proc-name stats) port) (newline port)) (if %count-calls? (begin (format port "~5a ~10a ~7a ~8a ~8a ~8a ~8@a\n" "% " "cumulative" "self" "" "self" "total" "") (format port "~5a ~9a ~8a ~8a ~8a ~8a ~8@a\n" "time" "seconds" "seconds" "calls" "ms/call" "ms/call" "name")) (begin (format port "~5a ~10a ~7a ~8@a\n" "%" "cumulative" "self" "") (format port "~5a ~10a ~7a ~8@a\n" "time" "seconds" "seconds" "name"))) (for-each display-stats-line sorted-stats) (display "---\n" port) (simple-format #t "Sample count: ~A\n" (statprof-sample-count)) (simple-format #t "Total time: ~A seconds (~A seconds in GC)\n" (statprof-accumulated-time) (/ gc-time-taken 1.0 internal-time-units-per-second)))))) (define (statprof-display-anomolies) "A sanity check that attempts to detect anomolies in statprof's statistics.@code{}" (statprof-fold-call-data (lambda (data prior-value) (if (and %count-calls? (zero? (call-data-call-count data)) (positive? (call-data-cum-sample-count data))) (simple-format #t "==[~A ~A ~A]\n" (call-data-name data) (call-data-call-count data) (call-data-cum-sample-count data)))) #f) (simple-format #t "Total time: ~A\n" (statprof-accumulated-time)) (simple-format #t "Sample count: ~A\n" (statprof-sample-count))) (define (statprof-accumulated-time) "Returns the time accumulated during the last statprof run.@code{}" (if (positive? profile-level) (error "Can't get accumulated time while profiler is running.")) (/ accumulated-time internal-time-units-per-second)) (define (statprof-sample-count) "Returns the number of samples taken during the last statprof run.@code{}" (if (positive? profile-level) (error "Can't get accumulated time while profiler is running.")) sample-count) (define statprof-call-data-name call-data-name) (define statprof-call-data-calls call-data-call-count) (define statprof-call-data-cum-samples call-data-cum-sample-count) (define statprof-call-data-self-samples call-data-self-sample-count) (define (statprof-fetch-stacks) "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." stacks) (define procedure=? (lambda (a b) (cond ((eq? a b)) ((and (program? a) (program? b)) (eq? (program-objcode a) (program-objcode b))) (else #f)))) ;; tree ::= (car n . tree*) (define (lists->trees lists equal?) (let lp ((in lists) (n-terminal 0) (tails '())) (cond ((null? in) (let ((trees (map (lambda (tail) (cons (car tail) (lists->trees (cdr tail) equal?))) tails))) (cons (apply + n-terminal (map cadr trees)) (sort trees (lambda (a b) (> (cadr a) (cadr b))))))) ((null? (car in)) (lp (cdr in) (1+ n-terminal) tails)) ((find (lambda (x) (equal? (car x) (caar in))) tails) => (lambda (tail) (lp (cdr in) n-terminal (assq-set! tails (car tail) (cons (cdar in) (cdr tail)))))) (else (lp (cdr in) n-terminal (acons (caar in) (list (cdar in)) tails)))))) (define (stack->procedures stack) (filter identity (unfold-right (lambda (x) (not x)) frame-procedure frame-previous (stack-ref stack 0)))) (define (statprof-fetch-call-tree) "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" (cons #t (lists->trees (map stack->procedures stacks) procedure=?))) (define* (statprof thunk #:key (loop 1) (hz 100) (count-calls? #f) (full-stacks? #f)) "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." (dynamic-wind (lambda () (statprof-reset (inexact->exact (floor (/ 1 hz))) (inexact->exact (* 1e6 (- (/ 1 hz) (floor (/ 1 hz))))) count-calls? full-stacks?) (statprof-start)) (lambda () (let lp ((i loop) (result '())) (if (zero? i) (apply values result) (call-with-values thunk (lambda result (lp (1- i) result)))))) (lambda () (statprof-stop) (statprof-display) (set! procedure-data #f)))) (define-macro (with-statprof . args) "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 table" (define (kw-arg-ref kw args def) (cond ((null? args) (error "Invalid macro body")) ((keyword? (car args)) (if (eq? (car args) kw) (cadr args) (kw-arg-ref kw (cddr args) def))) ((eq? kw #f def) ;; asking for the body args) (else def))) ;; kw not found `((@ (statprof) statprof) (lambda () ,@(kw-arg-ref #f args #f)) #:loop ,(kw-arg-ref #:loop args 1) #:hz ,(kw-arg-ref #:hz args 100) #:count-calls? ,(kw-arg-ref #:count-calls? args #f) #:full-stacks? ,(kw-arg-ref #:full-stacks? args #f))) (define* (gcprof thunk #:key (loop 1) (full-stacks? #f)) "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." (define (reset) (if (positive? profile-level) (error "Can't reset profiler while profiler is running.")) (set! accumulated-time 0) (set! last-start-time #f) (set! sample-count 0) (set! %count-calls? #f) (set! procedure-data (make-hash-table 131)) (set! record-full-stacks? full-stacks?) (set! stacks '())) (define (gc-callback) (cond (inside-profiler?) (else (set! inside-profiler? #t) ;; FIXME: should be able to set an outer frame for the stack cut (let ((stop-time (get-internal-run-time)) ;; Cut down to gc-callback, and then one before (the ;; after-gc async). See the note in profile-signal-handler ;; also. (stack (or (make-stack #t gc-callback 0 1) (pk 'what! (make-stack #t))))) (sample-stack-procs stack) (accumulate-time stop-time) (set! last-start-time (get-internal-run-time))) (set! inside-profiler? #f)))) (define (start) (set! profile-level (+ profile-level 1)) (if (= profile-level 1) (begin (set! remaining-prof-time #f) (set! last-start-time (get-internal-run-time)) (set! gc-time-taken (cdr (assq 'gc-time-taken (gc-stats)))) (add-hook! after-gc-hook gc-callback) (set-vm-trace-level! (the-vm) (1+ (vm-trace-level (the-vm)))) #t))) (define (stop) (set! profile-level (- profile-level 1)) (if (zero? profile-level) (begin (set! gc-time-taken (- (cdr (assq 'gc-time-taken (gc-stats))) gc-time-taken)) (remove-hook! after-gc-hook gc-callback) (accumulate-time (get-internal-run-time)) (set! last-start-time #f)))) (dynamic-wind (lambda () (reset) (start)) (lambda () (let lp ((i loop)) (if (not (zero? i)) (begin (thunk) (lp (1- i)))))) (lambda () (stop) (statprof-display) (set! procedure-data #f)))) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������rnrs/mutable-pairs.scm������������������������������������������������������������������������������0000644�����������������00000001711�15253246142�0011005 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; mutable-pairs.scm --- The R6RS mutable pair library ;; Copyright (C) 2010 Free Software Foundation, Inc. ;; ;; This library 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. ;; ;; This library 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 library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (library (rnrs mutable-pairs (6)) (export set-car! set-cdr!) (import (only (guile) set-car! set-cdr!))) �������������������������������������������������������rnrs/bytevectors.scm��������������������������������������������������������������������������������0000644�����������������00000006467�15253246142�0010626 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; bytevectors.scm --- R6RS bytevector API -*- coding: utf-8 -*- ;;;; Copyright (C) 2009, 2010 Free Software Foundation, Inc. ;;;; ;;;; This library 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. ;;;; ;;;; This library 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 library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;; Author: Ludovic Courtès <ludo@gnu.org> ;;; Commentary: ;;; ;;; A "bytevector" is a raw bit string. This module provides procedures to ;;; manipulate bytevectors and interpret their contents in a number of ways: ;;; bytevector contents can be accessed as signed or unsigned integer of ;;; various sizes and endianness, as IEEE-754 floating point numbers, or as ;;; strings. It is a useful tool to decode binary data. ;;; ;;; Code: (define-module (rnrs bytevectors) #:version (6) #:export-syntax (endianness) #:export (native-endianness bytevector? make-bytevector bytevector-length bytevector=? bytevector-fill! bytevector-copy! bytevector-copy uniform-array->bytevector bytevector-u8-ref bytevector-s8-ref bytevector-u8-set! bytevector-s8-set! bytevector->u8-list u8-list->bytevector bytevector-uint-ref bytevector-uint-set! bytevector-sint-ref bytevector-sint-set! bytevector->sint-list bytevector->uint-list uint-list->bytevector sint-list->bytevector bytevector-u16-ref bytevector-s16-ref bytevector-u16-set! bytevector-s16-set! bytevector-u16-native-ref bytevector-s16-native-ref bytevector-u16-native-set! bytevector-s16-native-set! bytevector-u32-ref bytevector-s32-ref bytevector-u32-set! bytevector-s32-set! bytevector-u32-native-ref bytevector-s32-native-ref bytevector-u32-native-set! bytevector-s32-native-set! bytevector-u64-ref bytevector-s64-ref bytevector-u64-set! bytevector-s64-set! bytevector-u64-native-ref bytevector-s64-native-ref bytevector-u64-native-set! bytevector-s64-native-set! bytevector-ieee-single-ref bytevector-ieee-single-set! bytevector-ieee-single-native-ref bytevector-ieee-single-native-set! bytevector-ieee-double-ref bytevector-ieee-double-set! bytevector-ieee-double-native-ref bytevector-ieee-double-native-set! string->utf8 string->utf16 string->utf32 utf8->string utf16->string utf32->string)) (load-extension (string-append "libguile-" (effective-version)) "scm_init_bytevectors") (define-macro (endianness sym) (if (memq sym '(big little)) `(quote ,sym) (error "unsupported endianness" sym))) ;;; bytevector.scm ends here ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������rnrs/control.scm������������������������������������������������������������������������������������0000644�����������������00000001732�15253246142�0007723 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; control.scm --- The R6RS control structures library ;; Copyright (C) 2010, 2012 Free Software Foundation, Inc. ;; ;; This library 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. ;; ;; This library 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 library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (library (rnrs control (6)) (export when unless do case-lambda) (import (only (guile) when unless do case-lambda))) ��������������������������������������rnrs/enums.scm��������������������������������������������������������������������������������������0000644�����������������00000012527�15253246142�0007376 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; enums.scm --- The R6RS enumerations library ;; Copyright (C) 2010 Free Software Foundation, Inc. ;; ;; This library 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. ;; ;; This library 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 library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (library (rnrs enums (6)) (export make-enumeration enum-set-universe enum-set-indexer enum-set-constructor enum-set->list enum-set-member? enum-set-subset? enum-set=? enum-set-union enum-set-intersection enum-set-difference enum-set-complement enum-set-projection define-enumeration) (import (only (guile) and=>) (rnrs base (6)) (rnrs conditions (6)) (rnrs exceptions (6)) (rnrs records procedural (6)) (rnrs syntax-case (6)) (srfi :1)) (define enum-set-rtd (make-record-type-descriptor 'enum-set #f #f #f #f '#((mutable universe) (immutable set)))) (define make-enum-set (record-constructor (make-record-constructor-descriptor enum-set-rtd #f #f))) (define enum-set-universe-internal (record-accessor enum-set-rtd 0)) (define enum-set-universe-set! (record-mutator enum-set-rtd 0)) (define enum-set-set (record-accessor enum-set-rtd 1)) (define (make-enumeration symbol-list) (let ((es (make-enum-set #f symbol-list))) (enum-set-universe-set! es es))) (define (enum-set-universe enum-set) (or (enum-set-universe-internal enum-set) enum-set)) (define (enum-set-indexer enum-set) (let* ((symbols (enum-set->list (enum-set-universe enum-set))) (cardinality (length symbols))) (lambda (x) (and=> (memq x symbols) (lambda (probe) (- cardinality (length probe))))))) (define (enum-set-constructor enum-set) (lambda (symbol-list) (make-enum-set (enum-set-universe enum-set) (list-copy symbol-list)))) (define (enum-set->list enum-set) (lset-intersection eq? (enum-set-set (enum-set-universe enum-set)) (enum-set-set enum-set))) (define (enum-set-member? symbol enum-set) (and (memq symbol (enum-set-set enum-set)) #t)) (define (enum-set-subset? enum-set-1 enum-set-2) (and (lset<= eq? (enum-set-set (enum-set-universe enum-set-1)) (enum-set-set (enum-set-universe enum-set-2))) (lset<= eq? (enum-set-set enum-set-1) (enum-set-set enum-set-2)))) (define (enum-set=? enum-set-1 enum-set-2) (and (enum-set-subset? enum-set-1 enum-set-2) (enum-set-subset? enum-set-2 enum-set-1))) (define (enum-set-union enum-set-1 enum-set-2) (if (equal? (enum-set-universe enum-set-1) (enum-set-universe enum-set-2)) (make-enum-set (enum-set-universe enum-set-1) (lset-union eq? (enum-set-set enum-set-1) (enum-set-set enum-set-2))) (raise (make-assertion-violation)))) (define (enum-set-intersection enum-set-1 enum-set-2) (if (equal? (enum-set-universe enum-set-1) (enum-set-universe enum-set-2)) (make-enum-set (enum-set-universe enum-set-1) (lset-intersection eq? (enum-set-set enum-set-1) (enum-set-set enum-set-2))) (raise (make-assertion-violation)))) (define (enum-set-difference enum-set-1 enum-set-2) (if (equal? (enum-set-universe enum-set-1) (enum-set-universe enum-set-2)) (make-enum-set (enum-set-universe enum-set-1) (lset-difference eq? (enum-set-set enum-set-1) (enum-set-set enum-set-2))) (raise (make-assertion-violation)))) (define (enum-set-complement enum-set) (let ((universe (enum-set-universe enum-set))) (make-enum-set universe (lset-difference eq? (enum-set->list universe) (enum-set-set enum-set))))) (define (enum-set-projection enum-set-1 enum-set-2) (make-enum-set (enum-set-universe enum-set-2) (lset-intersection eq? (enum-set-set enum-set-1) (enum-set->list (enum-set-universe enum-set-2))))) (define-syntax define-enumeration (syntax-rules () ((_ type-name (symbol ...) constructor-syntax) (begin (define-syntax type-name (lambda (s) (syntax-case s () ((type-name sym) (if (memq (syntax->datum #'sym) '(symbol ...)) #'(quote sym) (syntax-violation (symbol->string 'type-name) "not a member of the set" #f)))))) (define-syntax constructor-syntax (lambda (s) (syntax-case s () ((_ sym (... ...)) (let* ((universe '(symbol ...)) (syms (syntax->datum #'(sym (... ...)))) (quoted-universe (datum->syntax s (list 'quote universe))) (quoted-syms (datum->syntax s (list 'quote syms)))) (or (every (lambda (x) (memq x universe)) syms) (syntax-violation (symbol->string 'constructor-syntax) "not a subset of the universe" #f)) #`((enum-set-constructor (make-enumeration #,quoted-universe)) #,quoted-syms)))))))))) ) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������rnrs/lists.scm��������������������������������������������������������������������������������������0000644�����������������00000003760�15253246142�0007404 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; lists.scm --- The R6RS list utilities library ;; Copyright (C) 2010 Free Software Foundation, Inc. ;; ;; This library 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. ;; ;; This library 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 library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (library (rnrs lists (6)) (export find for-all exists filter partition fold-left fold-right remp remove remv remq memp member memv memq assp assoc assv assq cons*) (import (rnrs base (6)) (only (guile) filter member memv memq assoc assv assq cons*) (rename (only (srfi srfi-1) any every remove member assoc find partition fold-right filter-map) (any exists) (every for-all) (remove remp) (member memp-internal) (assoc assp-internal))) (define (fold-left combine nil list . lists) (define (fold nil lists) (if (exists null? lists) nil (fold (apply combine nil (map car lists)) (map cdr lists)))) (fold nil (cons list lists))) (define (remove obj list) (remp (lambda (elt) (equal? obj elt)) list)) (define (remv obj list) (remp (lambda (elt) (eqv? obj elt)) list)) (define (remq obj list) (remp (lambda (elt) (eq? obj elt)) list)) (define (memp pred list) (memp-internal #f list (lambda (x y) (pred y)))) (define (assp pred list) (assp-internal #f list (lambda (x y) (pred y)))) ) ����������������rnrs/unicode.scm������������������������������������������������������������������������������������0000644�����������������00000004450�15253246142�0007671 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; unicode.scm --- The R6RS Unicode library ;; Copyright (C) 2010 Free Software Foundation, Inc. ;; ;; This library 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. ;; ;; This library 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 library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (library (rnrs unicode (6)) (export char-upcase char-downcase char-titlecase char-foldcase char-ci=? char-ci<? char-ci>? char-ci<=? char-ci>=? char-alphabetic? char-numeric? char-whitespace? char-upper-case? char-lower-case? char-title-case? char-general-category string-upcase string-downcase string-titlecase string-foldcase string-ci=? string-ci<? string-ci>? string-ci<=? string-ci>=? string-normalize-nfd string-normalize-nfkd string-normalize-nfc string-normalize-nfkc) (import (only (guile) char-upcase char-downcase char-titlecase char-ci=? char-ci<? char-ci>? char-ci<=? char-ci>=? char-alphabetic? char-numeric? char-whitespace? char-upper-case? char-lower-case? char-set-contains? char-set:title-case char-general-category char-upcase char-downcase char-titlecase string-upcase string-downcase string-titlecase string-ci=? string-ci<? string-ci>? string-ci<=? string-ci>=? string-normalize-nfd string-normalize-nfkd string-normalize-nfc string-normalize-nfkc) (rnrs base (6))) (define (char-foldcase char) (if (or (eqv? char #\460) (eqv? char #\461)) char (char-downcase (char-upcase char)))) (define (char-title-case? char) (char-set-contains? char-set:title-case char)) (define (string-foldcase str) (string-downcase (string-upcase str))) ) ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������rnrs/arithmetic/fixnums.scm�������������������������������������������������������������������������0000644�����������������00000014462�15253246142�0012071 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; fixnums.scm --- The R6RS fixnums arithmetic library ;; Copyright (C) 2010, 2011, 2013 Free Software Foundation, Inc. ;; ;; This library 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. ;; ;; This library 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 library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (library (rnrs arithmetic fixnums (6)) (export fixnum? fixnum-width least-fixnum greatest-fixnum fx=? fx>? fx<? fx>=? fx<=? fxzero? fxpositive? fxnegative? fxodd? fxeven? fxmax fxmin fx+ fx* fx- fxdiv-and-mod fxdiv fxmod fxdiv0-and-mod0 fxdiv0 fxmod0 fx+/carry fx-/carry fx*/carry fxnot fxand fxior fxxor fxif fxbit-count fxlength fxfirst-bit-set fxbit-set? fxcopy-bit fxbit-field fxcopy-bit-field fxarithmetic-shift fxarithmetic-shift-left fxarithmetic-shift-right fxrotate-bit-field fxreverse-bit-field) (import (only (guile) ash cons* define-inlinable inexact->exact logand logbit? logcount logior lognot logxor most-positive-fixnum most-negative-fixnum object-address) (ice-9 optargs) (rnrs base (6)) (rnrs control (6)) (rnrs arithmetic bitwise (6)) (rnrs conditions (6)) (rnrs exceptions (6)) (rnrs lists (6))) (define fixnum-width (let ((w (do ((i 0 (+ 1 i)) (n 1 (* 2 n))) ((> n most-positive-fixnum) (+ 1 i))))) (lambda () w))) (define (greatest-fixnum) most-positive-fixnum) (define (least-fixnum) most-negative-fixnum) (define (fixnum? obj) (not (= 0 (logand 2 (object-address obj))))) (define-inlinable (inline-fixnum? obj) (not (= 0 (logand 2 (object-address obj))))) (define-syntax assert-fixnum (syntax-rules () ((_ arg ...) (or (and (inline-fixnum? arg) ...) (raise (make-assertion-violation)))))) (define (assert-fixnums args) (or (for-all inline-fixnum? args) (raise (make-assertion-violation)))) (define-syntax define-fxop* (syntax-rules () ((_ name op) (define name (case-lambda ((x y) (assert-fixnum x y) (op x y)) (args (assert-fixnums args) (apply op args))))))) ;; All these predicates don't check their arguments for fixnum-ness, ;; as this doesn't seem to be strictly required by R6RS. (define fx=? =) (define fx>? >) (define fx<? <) (define fx>=? >=) (define fx<=? <=) (define fxzero? zero?) (define fxpositive? positive?) (define fxnegative? negative?) (define fxodd? odd?) (define fxeven? even?) (define-fxop* fxmax max) (define-fxop* fxmin min) (define (fx+ fx1 fx2) (assert-fixnum fx1 fx2) (let ((r (+ fx1 fx2))) (or (inline-fixnum? r) (raise (make-implementation-restriction-violation))) r)) (define (fx* fx1 fx2) (assert-fixnum fx1 fx2) (let ((r (* fx1 fx2))) (or (inline-fixnum? r) (raise (make-implementation-restriction-violation))) r)) (define* (fx- fx1 #:optional fx2) (assert-fixnum fx1) (if fx2 (begin (assert-fixnum fx2) (let ((r (- fx1 fx2))) (or (inline-fixnum? r) (raise (make-assertion-violation))) r)) (let ((r (- fx1))) (or (inline-fixnum? r) (raise (make-assertion-violation))) r))) (define (fxdiv fx1 fx2) (assert-fixnum fx1 fx2) (div fx1 fx2)) (define (fxmod fx1 fx2) (assert-fixnum fx1 fx2) (mod fx1 fx2)) (define (fxdiv-and-mod fx1 fx2) (assert-fixnum fx1 fx2) (div-and-mod fx1 fx2)) (define (fxdiv0 fx1 fx2) (assert-fixnum fx1 fx2) (div0 fx1 fx2)) (define (fxmod0 fx1 fx2) (assert-fixnum fx1 fx2) (mod0 fx1 fx2)) (define (fxdiv0-and-mod0 fx1 fx2) (assert-fixnum fx1 fx2) (div0-and-mod0 fx1 fx2)) (define (fx+/carry fx1 fx2 fx3) (assert-fixnum fx1 fx2 fx3) (let* ((s (+ fx1 fx2 fx3)) (s0 (mod0 s (expt 2 (fixnum-width)))) (s1 (div0 s (expt 2 (fixnum-width))))) (values s0 s1))) (define (fx-/carry fx1 fx2 fx3) (assert-fixnum fx1 fx2 fx3) (let* ((d (- fx1 fx2 fx3)) (d0 (mod0 d (expt 2 (fixnum-width)))) (d1 (div0 d (expt 2 (fixnum-width))))) (values d0 d1))) (define (fx*/carry fx1 fx2 fx3) (assert-fixnum fx1 fx2 fx3) (let* ((s (+ (* fx1 fx2) fx3)) (s0 (mod0 s (expt 2 (fixnum-width)))) (s1 (div0 s (expt 2 (fixnum-width))))) (values s0 s1))) (define (fxnot fx) (assert-fixnum fx) (lognot fx)) (define-fxop* fxand logand) (define-fxop* fxior logior) (define-fxop* fxxor logxor) (define (fxif fx1 fx2 fx3) (assert-fixnum fx1 fx2 fx3) (bitwise-if fx1 fx2 fx3)) (define (fxbit-count fx) (assert-fixnum fx) (if (negative? fx) (bitwise-not (logcount fx)) (logcount fx))) (define (fxlength fx) (assert-fixnum fx) (bitwise-length fx)) (define (fxfirst-bit-set fx) (assert-fixnum fx) (bitwise-first-bit-set fx)) (define (fxbit-set? fx1 fx2) (assert-fixnum fx1 fx2) (logbit? fx2 fx1)) (define (fxcopy-bit fx1 fx2 fx3) (assert-fixnum fx1 fx2 fx3) (bitwise-copy-bit fx1 fx2 fx3)) (define (fxbit-field fx1 fx2 fx3) (assert-fixnum fx1 fx2 fx3) (bitwise-bit-field fx1 fx2 fx3)) (define (fxcopy-bit-field fx1 fx2 fx3 fx4) (assert-fixnum fx1 fx2 fx3 fx4) (bitwise-copy-bit-field fx1 fx2 fx3 fx4)) (define (fxarithmetic-shift fx1 fx2) (assert-fixnum fx1 fx2) (ash fx1 fx2)) (define fxarithmetic-shift-left fxarithmetic-shift) (define (fxarithmetic-shift-right fx1 fx2) (assert-fixnum fx1 fx2) (ash fx1 (- fx2))) (define (fxrotate-bit-field fx1 fx2 fx3 fx4) (assert-fixnum fx1 fx2 fx3 fx4) (bitwise-rotate-bit-field fx1 fx2 fx3 fx4)) (define (fxreverse-bit-field fx1 fx2 fx3) (assert-fixnum fx1 fx2 fx3) (bitwise-reverse-bit-field fx1 fx2 fx3)) ) ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������rnrs/arithmetic/flonums.scm�������������������������������������������������������������������������0000644�����������������00000013672�15253246142�0012065 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; flonums.scm --- The R6RS flonums arithmetic library ;; Copyright (C) 2010, 2011, 2013 Free Software Foundation, Inc. ;; ;; This library 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. ;; ;; This library 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 library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (library (rnrs arithmetic flonums (6)) (export flonum? real->flonum fl=? fl<? fl<=? fl>? fl>=? flinteger? flzero? flpositive? flnegative? flodd? fleven? flfinite? flinfinite? flnan? flmax flmin fl+ fl* fl- fl/ flabs fldiv-and-mod fldiv flmod fldiv0-and-mod0 fldiv0 flmod0 flnumerator fldenominator flfloor flceiling fltruncate flround flexp fllog flsin flcos fltan flacos flasin flatan flsqrt flexpt &no-infinities make-no-infinities-violation no-infinities-violation? &no-nans make-no-nans-violation no-nans-violation? fixnum->flonum) (import (ice-9 optargs) (only (guile) inf?) (rnrs arithmetic fixnums (6)) (rnrs base (6)) (rnrs control (6)) (rnrs conditions (6)) (rnrs exceptions (6)) (rnrs lists (6)) (rnrs r5rs (6))) (define (flonum? obj) (and (real? obj) (inexact? obj))) (define (assert-flonum . args) (or (for-all flonum? args) (raise (make-assertion-violation)))) (define (assert-iflonum . args) (or (for-all (lambda (i) (and (flonum? i) (integer? i))) args) (raise (make-assertion-violation)))) (define (ensure-flonum z) (cond ((real? z) z) ((zero? (imag-part z)) (real-part z)) (else +nan.0))) (define (real->flonum x) (or (real? x) (raise (make-assertion-violation))) (exact->inexact x)) (define (fl=? . args) (apply assert-flonum args) (apply = args)) (define (fl<? . args) (apply assert-flonum args) (apply < args)) (define (fl<=? . args) (apply assert-flonum args) (apply <= args)) (define (fl>? . args) (apply assert-flonum args) (apply > args)) (define (fl>=? . args) (apply assert-flonum args) (apply >= args)) (define (flinteger? fl) (assert-flonum fl) (integer? fl)) (define (flzero? fl) (assert-flonum fl) (zero? fl)) (define (flpositive? fl) (assert-flonum fl) (positive? fl)) (define (flnegative? fl) (assert-flonum fl) (negative? fl)) (define (flodd? ifl) (assert-iflonum ifl) (odd? ifl)) (define (fleven? ifl) (assert-iflonum ifl) (even? ifl)) (define (flfinite? fl) (assert-flonum fl) (not (or (inf? fl) (nan? fl)))) (define (flinfinite? fl) (assert-flonum fl) (inf? fl)) (define (flnan? fl) (assert-flonum fl) (nan? fl)) (define (flmax fl1 . args) (let ((flargs (cons fl1 args))) (apply assert-flonum flargs) (apply max flargs))) (define (flmin fl1 . args) (let ((flargs (cons fl1 args))) (apply assert-flonum flargs) (apply min flargs))) (define (fl+ . args) (apply assert-flonum args) (if (null? args) 0.0 (apply + args))) (define (fl* . args) (apply assert-flonum args) (if (null? args) 1.0 (apply * args))) (define (fl- fl1 . args) (let ((flargs (cons fl1 args))) (apply assert-flonum flargs) (apply - flargs))) (define (fl/ fl1 . args) (let ((flargs (cons fl1 args))) (apply assert-flonum flargs) (apply / flargs))) (define (flabs fl) (assert-flonum fl) (abs fl)) (define (fldiv-and-mod fl1 fl2) (assert-iflonum fl1 fl2) (div-and-mod fl1 fl2)) (define (fldiv fl1 fl2) (assert-iflonum fl1 fl2) (div fl1 fl2)) (define (flmod fl1 fl2) (assert-iflonum fl1 fl2) (mod fl1 fl2)) (define (fldiv0-and-mod0 fl1 fl2) (assert-iflonum fl1 fl2) (div0-and-mod0 fl1 fl2)) (define (fldiv0 fl1 fl2) (assert-iflonum fl1 fl2) (div0 fl1 fl2)) (define (flmod0 fl1 fl2) (assert-iflonum fl1 fl2) (mod0 fl1 fl2)) (define (flnumerator fl) (assert-flonum fl) (numerator fl)) (define (fldenominator fl) (assert-flonum fl) (denominator fl)) (define (flfloor fl) (assert-flonum fl) (floor fl)) (define (flceiling fl) (assert-flonum fl) (ceiling fl)) (define (fltruncate fl) (assert-flonum fl) (truncate fl)) (define (flround fl) (assert-flonum fl) (round fl)) (define (flexp fl) (assert-flonum fl) (exp fl)) (define fllog (case-lambda ((fl) (assert-flonum fl) ;; add 0.0 to fl, to change -0.0 to 0.0, ;; so that (fllog -0.0) will be -inf.0, not -inf.0+pi*i. (ensure-flonum (log (+ fl 0.0)))) ((fl fl2) (assert-flonum fl fl2) (ensure-flonum (/ (log (+ fl 0.0)) (log (+ fl2 0.0))))))) (define (flsin fl) (assert-flonum fl) (sin fl)) (define (flcos fl) (assert-flonum fl) (cos fl)) (define (fltan fl) (assert-flonum fl) (tan fl)) (define (flasin fl) (assert-flonum fl) (ensure-flonum (asin fl))) (define (flacos fl) (assert-flonum fl) (ensure-flonum (acos fl))) (define flatan (case-lambda ((fl) (assert-flonum fl) (atan fl)) ((fl fl2) (assert-flonum fl fl2) (atan fl fl2)))) (define (flsqrt fl) (assert-flonum fl) (ensure-flonum (sqrt fl))) (define (flexpt fl1 fl2) (assert-flonum fl1 fl2) (ensure-flonum (expt fl1 fl2))) (define-condition-type &no-infinities &implementation-restriction make-no-infinities-violation no-infinities-violation?) (define-condition-type &no-nans &implementation-restriction make-no-nans-violation no-nans-violation?) (define (fixnum->flonum fx) (or (fixnum? fx) (raise (make-assertion-violation))) (exact->inexact fx)) ) ����������������������������������������������������������������������rnrs/arithmetic/bitwise.scm�������������������������������������������������������������������������0000644�����������������00000006073�15253246142�0012045 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; bitwise.scm --- The R6RS bitwise arithmetic operations library ;; Copyright (C) 2010, 2013 Free Software Foundation, Inc. ;; ;; This library 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. ;; ;; This library 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 library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (library (rnrs arithmetic bitwise (6)) (export bitwise-not bitwise-and bitwise-ior bitwise-xor bitwise-if bitwise-bit-count bitwise-length bitwise-first-bit-set bitwise-bit-set? bitwise-copy-bit bitwise-bit-field bitwise-copy-bit-field bitwise-arithmetic-shift bitwise-arithmetic-shift-left bitwise-arithmetic-shift-right bitwise-rotate-bit-field bitwise-reverse-bit-field) (import (rnrs base (6)) (rnrs control (6)) (rename (only (srfi srfi-60) bitwise-if integer-length first-set-bit copy-bit bit-field copy-bit-field rotate-bit-field reverse-bit-field) (integer-length bitwise-length) (first-set-bit bitwise-first-bit-set) (bit-field bitwise-bit-field) (reverse-bit-field bitwise-reverse-bit-field)) (rename (only (guile) lognot logand logior logxor logcount logbit? modulo ash) (lognot bitwise-not) (logand bitwise-and) (logior bitwise-ior) (logxor bitwise-xor) (ash bitwise-arithmetic-shift))) (define (bitwise-bit-count ei) (if (negative? ei) (bitwise-not (logcount ei)) (logcount ei))) (define (bitwise-bit-set? ei1 ei2) (logbit? ei2 ei1)) (define (bitwise-copy-bit ei1 ei2 ei3) ;; The specification states that ei3 should be either 0 or 1. ;; However, other values have been tolerated by both Guile 2.0.x and ;; the sample implementation given the R6RS library document, so for ;; backward compatibility we continue to permit it. (copy-bit ei2 ei1 (logbit? 0 ei3))) (define (bitwise-copy-bit-field ei1 ei2 ei3 ei4) (copy-bit-field ei1 ei4 ei2 ei3)) (define (bitwise-rotate-bit-field ei1 ei2 ei3 ei4) (rotate-bit-field ei1 ei4 ei2 ei3)) (define bitwise-arithmetic-shift-left bitwise-arithmetic-shift) (define (bitwise-arithmetic-shift-right ei1 ei2) (bitwise-arithmetic-shift ei1 (- ei2)))) ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������rnrs/programs.scm�����������������������������������������������������������������������������������0000644�����������������00000001704�15253246142�0010074 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; programs.scm --- The R6RS process management library ;; Copyright (C) 2010 Free Software Foundation, Inc. ;; ;; This library 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. ;; ;; This library 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 library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (library (rnrs programs (6)) (export command-line exit) (import (only (guile) command-line exit))) ������������������������������������������������������������rnrs/records/procedural.scm�������������������������������������������������������������������������0000644�����������������00000024055�15253246142�0012047 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; procedural.scm --- Procedural interface to R6RS records ;; Copyright (C) 2010 Free Software Foundation, Inc. ;; ;; This library 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. ;; ;; This library 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 library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (library (rnrs records procedural (6)) (export make-record-type-descriptor record-type-descriptor? make-record-constructor-descriptor record-constructor record-predicate record-accessor record-mutator) (import (rnrs base (6)) (only (guile) cons* logand logior ash and=> throw display make-struct make-vtable map simple-format string-append symbol-append struct? struct-layout struct-ref struct-set! struct-vtable vtable-index-layout make-hash-table hashq-ref hashq-set! vector->list) (ice-9 receive) (only (srfi :1) fold split-at take)) (define (record-internal? obj) (and (struct? obj) (record-type-descriptor? (struct-vtable obj)))) (define rtd-index-name 8) (define rtd-index-uid 9) (define rtd-index-parent 10) (define rtd-index-sealed? 11) (define rtd-index-opaque? 12) (define rtd-index-predicate 13) (define rtd-index-field-names 14) (define rtd-index-field-bit-field 15) (define rtd-index-field-binder 16) (define rctd-index-rtd 0) (define rctd-index-parent 1) (define rctd-index-protocol 2) (define vtable-base-layout (symbol->string (struct-layout (make-vtable "")))) (define record-type-vtable (make-vtable (string-append vtable-base-layout "prprprprprprprprprpr") (lambda (obj port) (simple-format port "#<r6rs:record-type:~A>" (struct-ref obj rtd-index-name))))) (define record-constructor-vtable (make-vtable "prprpr" (lambda (obj port) (simple-format port "#<r6rs:record-constructor:~A>" (struct-ref (struct-ref obj rctd-index-rtd) rtd-index-name))))) (define uid-table (make-hash-table)) (define (make-record-type-descriptor name parent uid sealed? opaque? fields) (define fields-pair (let loop ((field-list (vector->list fields)) (layout-sym 'pr) (layout-bit-field 0) (counter 0)) (if (null? field-list) (cons layout-sym layout-bit-field) (case (caar field-list) ((immutable) (loop (cdr field-list) (symbol-append layout-sym 'pr) layout-bit-field (+ counter 1))) ((mutable) (loop (cdr field-list) (symbol-append layout-sym 'pw) (logior layout-bit-field (ash 1 counter)) (+ counter 1))) (else (r6rs-raise (make-assertion-violation))))))) (define fields-layout (car fields-pair)) (define fields-bit-field (cdr fields-pair)) (define field-names (list->vector (map cadr (vector->list fields)))) (define late-rtd #f) (define (private-record-predicate obj) (and (record-internal? obj) (or (eq? (struct-vtable obj) late-rtd) (and=> (struct-ref obj 0) private-record-predicate)))) (define (field-binder parent-struct . args) (apply make-struct (cons* late-rtd 0 parent-struct args))) (if (and parent (struct-ref parent rtd-index-sealed?)) (r6rs-raise (make-assertion-violation))) (let ((matching-rtd (and uid (hashq-ref uid-table uid))) (opaque? (or opaque? (and parent (struct-ref parent rtd-index-opaque?))))) (if matching-rtd (if (equal? (list name parent sealed? opaque? field-names fields-bit-field) (list (struct-ref matching-rtd rtd-index-name) (struct-ref matching-rtd rtd-index-parent) (struct-ref matching-rtd rtd-index-sealed?) (struct-ref matching-rtd rtd-index-opaque?) (struct-ref matching-rtd rtd-index-field-names) (struct-ref matching-rtd rtd-index-field-bit-field))) matching-rtd (r6rs-raise (make-assertion-violation))) (let ((rtd (make-struct record-type-vtable 0 fields-layout (lambda (obj port) (simple-format port "#<r6rs:record:~A>" name)) name uid parent sealed? opaque? private-record-predicate field-names fields-bit-field field-binder))) (set! late-rtd rtd) (if uid (hashq-set! uid-table uid rtd)) rtd)))) (define (record-type-descriptor? obj) (and (struct? obj) (eq? (struct-vtable obj) record-type-vtable))) (define (make-record-constructor-descriptor rtd parent-constructor-descriptor protocol) (define rtd-arity (vector-length (struct-ref rtd rtd-index-field-names))) (define (default-inherited-protocol n) (lambda args (receive (n-args p-args) (split-at args (- (length args) rtd-arity)) (let ((p (apply n n-args))) (apply p p-args))))) (define (default-protocol p) p) (let* ((prtd (struct-ref rtd rtd-index-parent)) (pcd (or parent-constructor-descriptor (and=> prtd (lambda (d) (make-record-constructor-descriptor prtd #f #f))))) (prot (or protocol (if pcd default-inherited-protocol default-protocol)))) (make-struct record-constructor-vtable 0 rtd pcd prot))) (define (record-constructor rctd) (let* ((rtd (struct-ref rctd rctd-index-rtd)) (parent-rctd (struct-ref rctd rctd-index-parent)) (protocol (struct-ref rctd rctd-index-protocol))) (protocol (if parent-rctd (let ((parent-record-constructor (record-constructor parent-rctd)) (parent-rtd (struct-ref parent-rctd rctd-index-rtd))) (lambda args (let ((struct (apply parent-record-constructor args))) (lambda args (apply (struct-ref rtd rtd-index-field-binder) (cons struct args)))))) (lambda args (apply (struct-ref rtd rtd-index-field-binder) (cons #f args))))))) (define (record-predicate rtd) (struct-ref rtd rtd-index-predicate)) (define (record-accessor rtd k) (define (record-accessor-inner obj) (if (eq? (struct-vtable obj) rtd) (struct-ref obj (+ k 1)) (and=> (struct-ref obj 0) record-accessor-inner))) (lambda (obj) (if (not (record-internal? obj)) (r6rs-raise (make-assertion-violation))) (record-accessor-inner obj))) (define (record-mutator rtd k) (define (record-mutator-inner obj val) (and obj (or (and (eq? (struct-vtable obj) rtd) (struct-set! obj (+ k 1) val)) (record-mutator-inner (struct-ref obj 0) val)))) (let ((bit-field (struct-ref rtd rtd-index-field-bit-field))) (if (zero? (logand bit-field (ash 1 k))) (r6rs-raise (make-assertion-violation)))) (lambda (obj val) (record-mutator-inner obj val))) ;; Condition types that are used in the current library. These are defined ;; here and not in (rnrs conditions) to avoid a circular dependency. (define &condition (make-record-type-descriptor '&condition #f #f #f #f '#())) (define &condition-constructor-descriptor (make-record-constructor-descriptor &condition #f #f)) (define &serious (make-record-type-descriptor '&serious &condition #f #f #f '#())) (define &serious-constructor-descriptor (make-record-constructor-descriptor &serious &condition-constructor-descriptor #f)) (define make-serious-condition (record-constructor &serious-constructor-descriptor)) (define &violation (make-record-type-descriptor '&violation &serious #f #f #f '#())) (define &violation-constructor-descriptor (make-record-constructor-descriptor &violation &serious-constructor-descriptor #f)) (define make-violation (record-constructor &violation-constructor-descriptor)) (define &assertion (make-record-type-descriptor '&assertion &violation #f #f #f '#())) (define make-assertion-violation (record-constructor (make-record-constructor-descriptor &assertion &violation-constructor-descriptor #f))) ;; Exception wrapper type, along with a wrapping `throw' implementation. ;; These are used in the current library, and so they are defined here and not ;; in (rnrs exceptions) to avoid a circular dependency. (define &raise-object-wrapper (make-record-type-descriptor '&raise-object-wrapper #f #f #f #f '#((immutable obj) (immutable continuation)))) (define make-raise-object-wrapper (record-constructor (make-record-constructor-descriptor &raise-object-wrapper #f #f))) (define raise-object-wrapper? (record-predicate &raise-object-wrapper)) (define raise-object-wrapper-obj (record-accessor &raise-object-wrapper 0)) (define raise-object-wrapper-continuation (record-accessor &raise-object-wrapper 1)) (define (r6rs-raise obj) (throw 'r6rs:exception (make-raise-object-wrapper obj #f))) (define (r6rs-raise-continuable obj) (define (r6rs-raise-continuable-internal continuation) (throw 'r6rs:exception (make-raise-object-wrapper obj continuation))) (call/cc r6rs-raise-continuable-internal)) ) �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������rnrs/records/inspection.scm�������������������������������������������������������������������������0000644�����������������00000006551�15253246142�0012063 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; inspection.scm --- Inspection support for R6RS records ;; Copyright (C) 2010 Free Software Foundation, Inc. ;; ;; This library 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. ;; ;; This library 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 library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (library (rnrs records inspection (6)) (export record? record-rtd record-type-name record-type-parent record-type-uid record-type-generative? record-type-sealed? record-type-opaque? record-type-field-names record-field-mutable?) (import (rnrs arithmetic bitwise (6)) (rnrs base (6)) (rnrs records procedural (6)) (only (guile) struct-ref struct-vtable vtable-index-layout @@)) (define record-internal? (@@ (rnrs records procedural) record-internal?)) (define rtd-index-name (@@ (rnrs records procedural) rtd-index-name)) (define rtd-index-parent (@@ (rnrs records procedural) rtd-index-parent)) (define rtd-index-uid (@@ (rnrs records procedural) rtd-index-uid)) (define rtd-index-sealed? (@@ (rnrs records procedural) rtd-index-sealed?)) (define rtd-index-opaque? (@@ (rnrs records procedural) rtd-index-opaque?)) (define rtd-index-field-names (@@ (rnrs records procedural) rtd-index-field-names)) (define rtd-index-field-bit-field (@@ (rnrs records procedural) rtd-index-field-bit-field)) (define (record? obj) (and (record-internal? obj) (not (record-type-opaque? (struct-vtable obj))))) (define (record-rtd record) (or (and (record-internal? record) (let ((rtd (struct-vtable record))) (and (not (struct-ref rtd rtd-index-opaque?)) rtd))) (assertion-violation 'record-rtd "not a record" record))) (define (guarantee-rtd who rtd) (if (record-type-descriptor? rtd) rtd (assertion-violation who "not a record type descriptor" rtd))) (define (record-type-name rtd) (struct-ref (guarantee-rtd 'record-type-name rtd) rtd-index-name)) (define (record-type-parent rtd) (struct-ref (guarantee-rtd 'record-type-parent rtd) rtd-index-parent)) (define (record-type-uid rtd) (struct-ref (guarantee-rtd 'record-type-uid rtd) rtd-index-uid)) (define (record-type-generative? rtd) (not (record-type-uid (guarantee-rtd 'record-type-generative? rtd)))) (define (record-type-sealed? rtd) (struct-ref (guarantee-rtd 'record-type-sealed? rtd) rtd-index-sealed?)) (define (record-type-opaque? rtd) (struct-ref (guarantee-rtd 'record-type-opaque? rtd) rtd-index-opaque?)) (define (record-type-field-names rtd) (struct-ref (guarantee-rtd 'record-type-field-names rtd) rtd-index-field-names)) (define (record-field-mutable? rtd k) (bitwise-bit-set? (struct-ref (guarantee-rtd 'record-field-mutable? rtd) rtd-index-field-bit-field) k)) ) �������������������������������������������������������������������������������������������������������������������������������������������������������rnrs/records/syntactic.scm��������������������������������������������������������������������������0000644�����������������00000026007�15253246142�0011707 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; syntactic.scm --- Syntactic support for R6RS records ;; Copyright (C) 2010 Free Software Foundation, Inc. ;; ;; This library 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. ;; ;; This library 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 library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (library (rnrs records syntactic (6)) (export define-record-type record-type-descriptor record-constructor-descriptor) (import (only (guile) and=> gensym) (rnrs base (6)) (rnrs conditions (6)) (rnrs exceptions (6)) (rnrs hashtables (6)) (rnrs lists (6)) (rnrs records procedural (6)) (rnrs syntax-case (6)) (only (srfi :1) take)) (define record-type-registry (make-eq-hashtable)) (define (guess-constructor-name record-name) (string->symbol (string-append "make-" (symbol->string record-name)))) (define (guess-predicate-name record-name) (string->symbol (string-append (symbol->string record-name) "?"))) (define (register-record-type name rtd rcd) (hashtable-set! record-type-registry name (cons rtd rcd))) (define (lookup-record-type-descriptor name) (and=> (hashtable-ref record-type-registry name #f) car)) (define (lookup-record-constructor-descriptor name) (and=> (hashtable-ref record-type-registry name #f) cdr)) (define-syntax define-record-type (lambda (stx) (syntax-case stx () ((_ (record-name constructor-name predicate-name) record-clause ...) #'(define-record-type0 (record-name constructor-name predicate-name) record-clause ...)) ((_ record-name record-clause ...) (let* ((record-name-sym (syntax->datum #'record-name)) (constructor-name (datum->syntax #'record-name (guess-constructor-name record-name-sym))) (predicate-name (datum->syntax #'record-name (guess-predicate-name record-name-sym)))) #`(define-record-type0 (record-name #,constructor-name #,predicate-name) record-clause ...)))))) (define (sequence n) (define (seq-inner n) (if (= n 0) '(0) (cons n (seq-inner (- n 1))))) (reverse (seq-inner n))) (define (number-fields fields) (define (number-fields-inner fields counter) (if (null? fields) '() (cons (cons fields counter) (number-fields-inner (cdr fields) (+ counter 1))))) (number-fields-inner fields 0)) (define (process-fields record-name fields) (define (wrap x) (datum->syntax record-name x)) (define (id->string x) (symbol->string (syntax->datum x))) (define record-name-str (id->string record-name)) (define (guess-accessor-name field-name) (wrap (string->symbol (string-append record-name-str "-" (id->string field-name))))) (define (guess-mutator-name field-name) (wrap (string->symbol (string-append record-name-str "-" (id->string field-name) "-set!")))) (define (f x) (syntax-case x (immutable mutable) [(immutable name) (list (wrap `(immutable ,(syntax->datum #'name))) (guess-accessor-name #'name) #f)] [(immutable name accessor) (list (wrap `(immutable ,(syntax->datum #'name))) #'accessor #f)] [(mutable name) (list (wrap `(mutable ,(syntax->datum #'name))) (guess-accessor-name #'name) (guess-mutator-name #'name))] [(mutable name accessor mutator) (list (wrap `(mutable ,(syntax->datum #'name))) #'accessor #'mutator)] [name (identifier? #'name) (list (wrap `(immutable ,(syntax->datum #'name))) (guess-accessor-name #'name) #f)] [else (syntax-violation 'define-record-type "invalid field specifier" x)])) (map f fields)) (define-syntax define-record-type0 (lambda (stx) (define *unspecified* (cons #f #f)) (define (unspecified? obj) (eq? *unspecified* obj)) (syntax-case stx () ((_ (record-name constructor-name predicate-name) record-clause ...) (let loop ((_fields *unspecified*) (_parent *unspecified*) (_protocol *unspecified*) (_sealed *unspecified*) (_opaque *unspecified*) (_nongenerative *unspecified*) (_constructor *unspecified*) (_parent-rtd *unspecified*) (record-clauses #'(record-clause ...))) (syntax-case record-clauses (fields parent protocol sealed opaque nongenerative constructor parent-rtd) [() (let* ((fields (if (unspecified? _fields) '() _fields)) (field-names (list->vector (map car fields))) (field-accessors (fold-left (lambda (lst x c) (cons #`(define #,(cadr x) (record-accessor record-name #,c)) lst)) '() fields (sequence (length fields)))) (field-mutators (fold-left (lambda (lst x c) (if (caddr x) (cons #`(define #,(caddr x) (record-mutator record-name #,c)) lst) lst)) '() fields (sequence (length fields)))) (parent-cd (cond ((not (unspecified? _parent)) #`(record-constructor-descriptor #,_parent)) ((not (unspecified? _parent-rtd)) (cadr _parent-rtd)) (else #f))) (parent-rtd (cond ((not (unspecified? _parent)) #`(record-type-descriptor #,_parent)) ((not (unspecified? _parent-rtd)) (car _parent-rtd)) (else #f))) (protocol (if (unspecified? _protocol) #f _protocol)) (uid (if (unspecified? _nongenerative) #f _nongenerative)) (sealed? (if (unspecified? _sealed) #f _sealed)) (opaque? (if (unspecified? _opaque) #f _opaque))) #`(begin (define record-name (make-record-type-descriptor (quote record-name) #,parent-rtd #,uid #,sealed? #,opaque? #,field-names)) (define constructor-name (record-constructor (make-record-constructor-descriptor record-name #,parent-cd #,protocol))) (define dummy (let () (register-record-type (quote record-name) record-name (make-record-constructor-descriptor record-name #,parent-cd #,protocol)) 'dummy)) (define predicate-name (record-predicate record-name)) #,@field-accessors #,@field-mutators))] [((fields record-fields ...) . rest) (if (unspecified? _fields) (loop (process-fields #'record-name #'(record-fields ...)) _parent _protocol _sealed _opaque _nongenerative _constructor _parent-rtd #'rest) (raise (make-assertion-violation)))] [((parent parent-name) . rest) (if (not (unspecified? _parent-rtd)) (raise (make-assertion-violation)) (if (unspecified? _parent) (loop _fields #'parent-name _protocol _sealed _opaque _nongenerative _constructor _parent-rtd #'rest) (raise (make-assertion-violation))))] [((protocol expression) . rest) (if (unspecified? _protocol) (loop _fields _parent #'expression _sealed _opaque _nongenerative _constructor _parent-rtd #'rest) (raise (make-assertion-violation)))] [((sealed sealed?) . rest) (if (unspecified? _sealed) (loop _fields _parent _protocol #'sealed? _opaque _nongenerative _constructor _parent-rtd #'rest) (raise (make-assertion-violation)))] [((opaque opaque?) . rest) (if (unspecified? _opaque) (loop _fields _parent _protocol _sealed #'opaque? _nongenerative _constructor _parent-rtd #'rest) (raise (make-assertion-violation)))] [((nongenerative) . rest) (if (unspecified? _nongenerative) (loop _fields _parent _protocol _sealed _opaque #`(quote #,(datum->syntax #'record-name (gensym))) _constructor _parent-rtd #'rest) (raise (make-assertion-violation)))] [((nongenerative uid) . rest) (if (unspecified? _nongenerative) (loop _fields _parent _protocol _sealed _opaque #''uid _constructor _parent-rtd #'rest) (raise (make-assertion-violation)))] [((parent-rtd rtd cd) . rest) (if (not (unspecified? _parent)) (raise (make-assertion-violation)) (if (unspecified? _parent-rtd) (loop _fields _parent _protocol _sealed _opaque _nongenerative _constructor #'(rtd cd) #'rest) (raise (make-assertion-violation))))])))))) (define-syntax record-type-descriptor (lambda (stx) (syntax-case stx () ((_ name) #`(lookup-record-type-descriptor #,(datum->syntax stx (list 'quote (syntax->datum #'name)))))))) (define-syntax record-constructor-descriptor (lambda (stx) (syntax-case stx () ((_ name) #`(lookup-record-constructor-descriptor #,(datum->syntax stx (list 'quote (syntax->datum #'name)))))))) ) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������rnrs/syntax-case.scm��������������������������������������������������������������������������������0000644�����������������00000003550�15253246142�0010502 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; syntax-case.scm --- R6RS support for `syntax-case' macros ;; Copyright (C) 2010 Free Software Foundation, Inc. ;; ;; This library 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. ;; ;; This library 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 library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (library (rnrs syntax-case (6)) (export make-variable-transformer syntax-case syntax identifier? bound-identifier=? free-identifier=? syntax->datum datum->syntax generate-temporaries with-syntax quasisyntax unsyntax unsyntax-splicing syntax-violation) (import (only (guile) make-variable-transformer syntax-case syntax identifier? bound-identifier=? free-identifier=? syntax->datum datum->syntax generate-temporaries with-syntax quasisyntax unsyntax unsyntax-splicing) (ice-9 optargs) (rnrs base (6)) (rnrs conditions (6)) (rnrs exceptions (6)) (rnrs records procedural (6))) (define* (syntax-violation who message form #:optional subform) (let* ((conditions (list (make-message-condition message) (make-syntax-violation form subform))) (conditions (if who (cons (make-who-condition who) conditions) conditions))) (raise (apply condition conditions)))) ) ��������������������������������������������������������������������������������������������������������������������������������������������������������rnrs/files.scm��������������������������������������������������������������������������������������0000644�����������������00000006516�15253246142�0007352 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; files.scm --- The R6RS file system library ;; Copyright (C) 2010 Free Software Foundation, Inc. ;; ;; This library 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. ;; ;; This library 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 library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (library (rnrs files (6)) (export file-exists? delete-file &i/o make-i/o-error i/o-error? &i/o-read make-i/o-read-error i/o-read-error? &i/o-write make-i/o-write-error i/o-write-error? &i/o-invalid-position make-i/o-invalid-position-error i/o-invalid-position-error? i/o-error-position &i/o-filename make-i/o-filename-error i/o-filename-error? i/o-error-filename &i/o-file-protection make-i/o-file-protection-error i/o-file-protection-error? &i/o-file-is-read-only make-i/o-file-is-read-only-error i/o-file-is-read-only-error? &i/o-file-already-exists make-i/o-file-already-exists-error i/o-file-already-exists-error? &i/o-file-does-not-exist make-i/o-file-does-not-exist-error i/o-file-does-not-exist-error? &i/o-port make-i/o-port-error i/o-port-error? i/o-error-port) (import (rename (only (guile) file-exists? delete-file catch @@) (delete-file delete-file-internal)) (rnrs base (6)) (rnrs conditions (6)) (rnrs exceptions (6))) (define (delete-file filename) (catch #t (lambda () (delete-file-internal filename)) (lambda (key . args) (raise (make-i/o-filename-error filename))))) ;; Condition types that are used by (rnrs files), (rnrs io ports), and ;; (rnrs io simple). These are defined here so as to be easily shareable by ;; these three libraries. (define-condition-type &i/o &error make-i/o-error i/o-error?) (define-condition-type &i/o-read &i/o make-i/o-read-error i/o-read-error?) (define-condition-type &i/o-write &i/o make-i/o-write-error i/o-write-error?) (define-condition-type &i/o-invalid-position &i/o make-i/o-invalid-position-error i/o-invalid-position-error? (position i/o-error-position)) (define-condition-type &i/o-filename &i/o make-i/o-filename-error i/o-filename-error? (filename i/o-error-filename)) (define-condition-type &i/o-file-protection &i/o-filename make-i/o-file-protection-error i/o-file-protection-error?) (define-condition-type &i/o-file-is-read-only &i/o-file-protection make-i/o-file-is-read-only-error i/o-file-is-read-only-error?) (define-condition-type &i/o-file-already-exists &i/o-filename make-i/o-file-already-exists-error i/o-file-already-exists-error?) (define-condition-type &i/o-file-does-not-exist &i/o-filename make-i/o-file-does-not-exist-error i/o-file-does-not-exist-error?) (define-condition-type &i/o-port &i/o make-i/o-port-error i/o-port-error? (port i/o-error-port)) ) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������rnrs/mutable-strings.scm����������������������������������������������������������������������������0000644�����������������00000001735�15253246142�0011366 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; mutable-strings.scm --- The R6RS mutable string library ;; Copyright (C) 2010 Free Software Foundation, Inc. ;; ;; This library 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. ;; ;; This library 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 library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (library (rnrs mutable-strings (6)) (export string-set! string-fill!) (import (only (guile) string-set! string-fill!))) �����������������������������������rnrs/io/ports.scm�����������������������������������������������������������������������������������0000644�����������������00000040721�15253246142�0010022 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; ports.scm --- R6RS port API -*- coding: utf-8 -*- ;;;; Copyright (C) 2009, 2010, 2011, 2013 Free Software Foundation, Inc. ;;;; ;;;; This library 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. ;;;; ;;;; This library 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 library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;; Author: Ludovic Courtès <ludo@gnu.org> ;;; Commentary: ;;; ;;; The I/O port API of the R6RS is provided by this module. In many areas ;;; it complements or refines Guile's own historical port API. For instance, ;;; it allows for binary I/O with bytevectors. ;;; ;;; Code: (library (rnrs io ports (6)) (export eof-object eof-object? ;; auxiliary types file-options buffer-mode buffer-mode? eol-style native-eol-style error-handling-mode make-transcoder transcoder-codec transcoder-eol-style transcoder-error-handling-mode native-transcoder latin-1-codec utf-8-codec utf-16-codec ;; input & output ports port? input-port? output-port? port-eof? port-transcoder binary-port? textual-port? transcoded-port port-position set-port-position! port-has-port-position? port-has-set-port-position!? call-with-port close-port ;; input ports open-bytevector-input-port open-string-input-port open-file-input-port make-custom-binary-input-port ;; binary input get-u8 lookahead-u8 get-bytevector-n get-bytevector-n! get-bytevector-some get-bytevector-all ;; output ports open-bytevector-output-port open-string-output-port open-file-output-port make-custom-binary-output-port call-with-bytevector-output-port call-with-string-output-port make-custom-textual-output-port flush-output-port ;; input/output ports open-file-input/output-port ;; binary output put-u8 put-bytevector ;; textual input get-char get-datum get-line get-string-all get-string-n get-string-n! lookahead-char ;; textual output put-char put-datum put-string ;; standard ports standard-input-port standard-output-port standard-error-port current-input-port current-output-port current-error-port ;; condition types &i/o i/o-error? make-i/o-error &i/o-read i/o-read-error? make-i/o-read-error &i/o-write i/o-write-error? make-i/o-write-error &i/o-invalid-position i/o-invalid-position-error? make-i/o-invalid-position-error &i/o-filename i/o-filename-error? make-i/o-filename-error i/o-error-filename &i/o-file-protection i/o-file-protection-error? make-i/o-file-protection-error &i/o-file-is-read-only i/o-file-is-read-only-error? make-i/o-file-is-read-only-error &i/o-file-already-exists i/o-file-already-exists-error? make-i/o-file-already-exists-error &i/o-file-does-not-exist i/o-file-does-not-exist-error? make-i/o-file-does-not-exist-error &i/o-port i/o-port-error? make-i/o-port-error i/o-error-port &i/o-decoding-error i/o-decoding-error? make-i/o-decoding-error &i/o-encoding-error i/o-encoding-error? make-i/o-encoding-error i/o-encoding-error-char) (import (ice-9 binary-ports) (only (rnrs base) assertion-violation) (rnrs enums) (rnrs records syntactic) (rnrs exceptions) (rnrs conditions) (rnrs files) ;for the condition types (srfi srfi-8) (ice-9 rdelim) (except (guile) raise display) (prefix (only (guile) display) guile:)) ;;; ;;; Auxiliary types ;;; (define-enumeration file-option (no-create no-fail no-truncate) file-options) (define-enumeration buffer-mode (none line block) buffer-modes) (define (buffer-mode? symbol) (enum-set-member? symbol (enum-set-universe (buffer-modes)))) (define-enumeration eol-style (lf cr crlf nel crnel ls none) eol-styles) (define (native-eol-style) (eol-style none)) (define-enumeration error-handling-mode (ignore raise replace) error-handling-modes) (define-record-type (transcoder %make-transcoder transcoder?) (fields codec eol-style error-handling-mode)) (define* (make-transcoder codec #:optional (eol-style (native-eol-style)) (handling-mode (error-handling-mode replace))) (%make-transcoder codec eol-style handling-mode)) (define (native-transcoder) (make-transcoder (or (fluid-ref %default-port-encoding) (latin-1-codec)))) (define (latin-1-codec) "ISO-8859-1") (define (utf-8-codec) "UTF-8") (define (utf-16-codec) "UTF-16") ;;; ;;; Internal helpers ;;; (define (with-i/o-filename-conditions filename thunk) (with-throw-handler 'system-error thunk (lambda args (let ((errno (system-error-errno args))) (let ((construct-condition (cond ((= errno EACCES) make-i/o-file-protection-error) ((= errno EEXIST) make-i/o-file-already-exists-error) ((= errno ENOENT) make-i/o-file-does-not-exist-error) ((= errno EROFS) make-i/o-file-is-read-only-error) (else make-i/o-filename-error)))) (raise (construct-condition filename))))))) (define (with-i/o-port-error port make-primary-condition thunk) (with-throw-handler 'system-error thunk (lambda args (let ((errno (system-error-errno args))) (if (memv errno (list EIO EFBIG ENOSPC EPIPE)) (raise (condition (make-primary-condition) (make-i/o-port-error port))) (apply throw args)))))) (define-syntax with-textual-output-conditions (syntax-rules () ((_ port body0 body ...) (with-i/o-port-error port make-i/o-write-error (lambda () (with-i/o-encoding-error body0 body ...)))))) (define-syntax with-textual-input-conditions (syntax-rules () ((_ port body0 body ...) (with-i/o-port-error port make-i/o-read-error (lambda () (with-i/o-decoding-error body0 body ...)))))) ;;; ;;; Input and output ports. ;;; (define (port-transcoder port) "Return the transcoder object associated with @var{port}, or @code{#f} if the port has no transcoder." (cond ((port-encoding port) => (lambda (encoding) (make-transcoder encoding (native-eol-style) (case (port-conversion-strategy port) ((error) 'raise) ((substitute) 'replace) (else (assertion-violation 'port-transcoder "unsupported error handling mode")))))) (else #f))) (define (binary-port? port) "Returns @code{#t} if @var{port} does not have an associated encoding, @code{#f} otherwise." (not (port-encoding port))) (define (textual-port? port) "Always returns @code{#t}, as all ports can be used for textual I/O in Guile." #t) (define (port-eof? port) (eof-object? (if (binary-port? port) (lookahead-u8 port) (lookahead-char port)))) (define (transcoded-port port transcoder) "Return a new textual port based on @var{port}, using @var{transcoder} to encode and decode data written to or read from its underlying binary port @var{port}." ;; Hackily get at %make-transcoded-port. (let ((result ((@@ (ice-9 binary-ports) %make-transcoded-port) port))) (set-port-encoding! result (transcoder-codec transcoder)) (case (transcoder-error-handling-mode transcoder) ((raise) (set-port-conversion-strategy! result 'error)) ((replace) (set-port-conversion-strategy! result 'substitute)) (else (error "unsupported error handling mode" (transcoder-error-handling-mode transcoder)))) result)) (define (port-position port) "Return the offset (an integer) indicating where the next octet will be read from/written to in @var{port}." ;; FIXME: We should raise an `&assertion' error when not supported. (seek port 0 SEEK_CUR)) (define (set-port-position! port offset) "Set the position where the next octet will be read from/written to @var{port}." ;; FIXME: We should raise an `&assertion' error when not supported. (seek port offset SEEK_SET)) (define (port-has-port-position? port) "Return @code{#t} is @var{port} supports @code{port-position}." (and (false-if-exception (port-position port)) #t)) (define (port-has-set-port-position!? port) "Return @code{#t} is @var{port} supports @code{set-port-position!}." (and (false-if-exception (set-port-position! port (port-position port))) #t)) (define (call-with-port port proc) "Call @var{proc}, passing it @var{port} and closing @var{port} upon exit of @var{proc}. Return the return values of @var{proc}." (call-with-values (lambda () (proc port)) (lambda vals (close-port port) (apply values vals)))) (define* (call-with-bytevector-output-port proc #:optional (transcoder #f)) (receive (port extract) (open-bytevector-output-port transcoder) (call-with-port port proc) (extract))) (define (open-string-input-port str) "Open an input port that will read from @var{str}." (with-fluids ((%default-port-encoding "UTF-8")) (open-input-string str))) (define (r6rs-open filename mode buffer-mode transcoder) (let ((port (with-i/o-filename-conditions filename (lambda () (with-fluids ((%default-port-encoding #f)) (open filename mode)))))) (cond (transcoder (set-port-encoding! port (transcoder-codec transcoder)))) port)) (define (file-options->mode file-options base-mode) (logior base-mode (if (enum-set-member? 'no-create file-options) 0 O_CREAT) (if (enum-set-member? 'no-truncate file-options) 0 O_TRUNC) (if (enum-set-member? 'no-fail file-options) 0 O_EXCL))) (define* (open-file-input-port filename #:optional (file-options (file-options)) (buffer-mode (buffer-mode block)) transcoder) "Return an input port for reading from @var{filename}." (r6rs-open filename O_RDONLY buffer-mode transcoder)) (define* (open-file-input/output-port filename #:optional (file-options (file-options)) (buffer-mode (buffer-mode block)) transcoder) "Return a port for reading from and writing to @var{filename}." (r6rs-open filename (file-options->mode file-options O_RDWR) buffer-mode transcoder)) (define (open-string-output-port) "Return two values: an output port that will collect characters written to it as a string, and a thunk to retrieve the characters associated with that port." (let ((port (with-fluids ((%default-port-encoding "UTF-8")) (open-output-string)))) (values port (lambda () (get-output-string port))))) (define* (open-file-output-port filename #:optional (file-options (file-options)) (buffer-mode (buffer-mode block)) maybe-transcoder) "Return an output port for writing to @var{filename}." (r6rs-open filename (file-options->mode file-options O_WRONLY) buffer-mode maybe-transcoder)) (define (call-with-string-output-port proc) "Call @var{proc}, passing it a string output port. When @var{proc} returns, return the characters accumulated in that port." (let ((port (open-output-string))) (proc port) (get-output-string port))) (define (make-custom-textual-output-port id write! get-position set-position! close) (make-soft-port (vector (lambda (c) (write! (string c) 0 1)) (lambda (s) (write! s 0 (string-length s))) #f ;flush #f ;read character close) "w")) (define (flush-output-port port) (force-output port)) ;;; ;;; Textual output. ;;; (define-condition-type &i/o-encoding &i/o-port make-i/o-encoding-error i/o-encoding-error? (char i/o-encoding-error-char)) (define-syntax with-i/o-encoding-error (syntax-rules () "Convert Guile throws to `encoding-error' to `&i/o-encoding-error'." ((_ body ...) ;; XXX: This is heavyweight for small functions like `put-char'. (with-throw-handler 'encoding-error (lambda () (begin body ...)) (lambda (key subr message errno port chr) (raise (make-i/o-encoding-error port chr))))))) (define (put-char port char) (with-textual-output-conditions port (write-char char port))) (define (put-datum port datum) (with-textual-output-conditions port (write datum port))) (define* (put-string port s #:optional start count) (with-textual-output-conditions port (cond ((not (string? s)) (assertion-violation 'put-string "expected string" s)) ((and start count) (display (substring/shared s start (+ start count)) port)) (start (display (substring/shared s start (string-length s)) port)) (else (display s port))))) ;; Defined here to be able to make use of `with-i/o-encoding-error', but ;; not exported from here, but from `(rnrs io simple)'. (define* (display object #:optional (port (current-output-port))) (with-textual-output-conditions port (guile:display object port))) ;;; ;;; Textual input. ;;; (define-condition-type &i/o-decoding &i/o-port make-i/o-decoding-error i/o-decoding-error?) (define-syntax with-i/o-decoding-error (syntax-rules () "Convert Guile throws to `decoding-error' to `&i/o-decoding-error'." ((_ body ...) ;; XXX: This is heavyweight for small functions like `get-char' and ;; `lookahead-char'. (with-throw-handler 'decoding-error (lambda () (begin body ...)) (lambda (key subr message errno port) (raise (make-i/o-decoding-error port))))))) (define (get-char port) (with-textual-input-conditions port (read-char port))) (define (get-datum port) (with-textual-input-conditions port (read port))) (define (get-line port) (with-textual-input-conditions port (read-line port 'trim))) (define (get-string-all port) (with-textual-input-conditions port (read-string port))) (define (get-string-n port count) "Read up to @var{count} characters from @var{port}. If no characters could be read before encountering the end of file, return the end-of-file object, otherwise return a string containing the characters read." (let* ((s (make-string count)) (rv (get-string-n! port s 0 count))) (cond ((eof-object? rv) rv) ((= rv count) s) (else (substring/shared s 0 rv))))) (define (lookahead-char port) (with-textual-input-conditions port (peek-char port))) ;;; ;;; Standard ports. ;;; (define (standard-input-port) (with-fluids ((%default-port-encoding #f)) (dup->inport 0))) (define (standard-output-port) (with-fluids ((%default-port-encoding #f)) (dup->outport 1))) (define (standard-error-port) (with-fluids ((%default-port-encoding #f)) (dup->outport 2))) ) ;;; ports.scm ends here �����������������������������������������������rnrs/io/simple.scm����������������������������������������������������������������������������������0000644�����������������00000010701�15253246142�0010137 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; simple.scm --- The R6RS simple I/O library ;; Copyright (C) 2010, 2011, 2014 Free Software Foundation, Inc. ;; ;; This library 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. ;; ;; This library 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 library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (library (rnrs io simple (6)) (export eof-object eof-object? call-with-input-file call-with-output-file input-port? output-port? current-input-port current-output-port current-error-port with-input-from-file with-output-to-file open-input-file open-output-file close-input-port close-output-port read-char peek-char read write-char newline display write &i/o make-i/o-error i/o-error? &i/o-read make-i/o-read-error i/o-read-error? &i/o-write make-i/o-write-error i/o-write-error? &i/o-invalid-position make-i/o-invalid-position-error i/o-invalid-position-error? i/o-error-position &i/o-filename make-i/o-filename-error i/o-filename-error? i/o-error-filename &i/o-file-protection make-i/o-file-protection-error i/o-file-protection-error? &i/o-file-is-read-only make-i/o-file-is-read-only-error i/o-file-is-read-only-error? &i/o-file-already-exists make-i/o-file-already-exists-error i/o-file-already-exists-error? &i/o-file-does-not-exist make-i/o-file-does-not-exist-error i/o-file-does-not-exist-error? &i/o-port make-i/o-port-error i/o-port-error? i/o-error-port) (import (only (rnrs io ports) call-with-port close-port open-file-input-port open-file-output-port eof-object eof-object? file-options buffer-mode native-transcoder get-char lookahead-char get-datum put-char put-datum input-port? output-port?) (only (guile) @@ current-input-port current-output-port current-error-port define* with-input-from-port with-output-to-port) (rnrs base (6)) (rnrs files (6)) ;for the condition types ) (define display (@@ (rnrs io ports) display)) (define (call-with-input-file filename proc) (call-with-port (open-file-input-port filename) proc)) (define (call-with-output-file filename proc) (call-with-port (open-file-output-port filename) proc)) (define (with-input-from-file filename thunk) (call-with-input-file filename (lambda (port) (with-input-from-port port thunk)))) (define (with-output-to-file filename thunk) (call-with-output-file filename (lambda (port) (with-output-to-port port thunk)))) (define (open-input-file filename) (open-file-input-port filename (file-options) (buffer-mode block) (native-transcoder))) (define (open-output-file filename) (open-file-output-port filename (file-options) (buffer-mode block) (native-transcoder))) (define close-input-port close-port) (define close-output-port close-port) (define* (read-char #:optional (port (current-input-port))) (get-char port)) (define* (peek-char #:optional (port (current-input-port))) (lookahead-char port)) (define* (read #:optional (port (current-input-port))) (get-datum port)) (define* (write-char char #:optional (port (current-output-port))) (put-char port char)) (define* (newline #:optional (port (current-output-port))) (put-char port #\newline)) (define* (write object #:optional (port (current-output-port))) (put-datum port object)) ) ���������������������������������������������������������������rnrs/exceptions.scm���������������������������������������������������������������������������������0000644�����������������00000027650�15253246142�0010433 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; exceptions.scm --- The R6RS exceptions library ;; Copyright (C) 2010, 2011, 2013 Free Software Foundation, Inc. ;; ;; This library 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. ;; ;; This library 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 library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (library (rnrs exceptions (6)) (export guard with-exception-handler raise raise-continuable) (import (rnrs base (6)) (rnrs control (6)) (rnrs conditions (6)) (rnrs records procedural (6)) (rnrs records inspection (6)) (only (guile) format newline display filter acons assv-ref throw set-exception-printer! with-throw-handler *unspecified* @@)) ;; When a native guile exception is caught by an R6RS exception ;; handler, we convert it to an R6RS compound condition that includes ;; not only the standard condition objects expected by R6RS code, but ;; also a special &guile condition that preserves the original KEY and ;; ARGS passed to the native Guile catch handler. (define-condition-type &guile &condition make-guile-condition guile-condition? (key guile-condition-key) (args guile-condition-args)) (define (default-guile-condition-converter key args) (condition (make-serious-condition) (guile-common-conditions key args))) (define (guile-common-conditions key args) (apply (case-lambda ((subr msg margs . _) (condition (make-who-condition subr) (make-message-condition msg) (make-irritants-condition margs))) (_ (make-irritants-condition args))) args)) (define (convert-guile-condition key args) (let ((converter (assv-ref guile-condition-converters key))) (condition (or (and converter (converter key args)) (default-guile-condition-converter key args)) ;; Preserve the original KEY and ARGS in the R6RS ;; condition object. (make-guile-condition key args)))) ;; If an R6RS exception handler chooses not to handle a given ;; condition, it will re-raise the condition to pass it on to the next ;; handler. If the condition was converted from a native Guile ;; exception, we must re-raise using the native Guile facilities and ;; the original exception KEY and ARGS. We arrange for this in ;; 'raise' so that native Guile exception handlers will continue to ;; work when mixed with R6RS code. (define (raise obj) (if (guile-condition? obj) (apply throw (guile-condition-key obj) (guile-condition-args obj)) ((@@ (rnrs records procedural) r6rs-raise) obj))) (define raise-continuable (@@ (rnrs records procedural) r6rs-raise-continuable)) (define raise-object-wrapper? (@@ (rnrs records procedural) raise-object-wrapper?)) (define raise-object-wrapper-obj (@@ (rnrs records procedural) raise-object-wrapper-obj)) (define raise-object-wrapper-continuation (@@ (rnrs records procedural) raise-object-wrapper-continuation)) (define (with-exception-handler handler thunk) (with-throw-handler #t thunk (lambda (key . args) (cond ((not (eq? key 'r6rs:exception)) (let ((obj (convert-guile-condition key args))) (handler obj) (raise (make-non-continuable-violation)))) ((and (not (null? args)) (raise-object-wrapper? (car args))) (let* ((cargs (car args)) (obj (raise-object-wrapper-obj cargs)) (continuation (raise-object-wrapper-continuation cargs)) (handler-return (handler obj))) (if continuation (continuation handler-return) (raise (make-non-continuable-violation))))))))) (define-syntax guard0 (syntax-rules () ((_ (variable cond-clause ...) . body) (call/cc (lambda (continuation) (with-exception-handler (lambda (variable) (continuation (cond cond-clause ...))) (lambda () . body))))))) (define-syntax guard (syntax-rules (else) ((_ (variable cond-clause ... . ((else else-clause ...))) . body) (guard0 (variable cond-clause ... (else else-clause ...)) . body)) ((_ (variable cond-clause ...) . body) (guard0 (variable cond-clause ... (else (raise variable))) . body)))) ;;; Exception printing (define (exception-printer port key args punt) (cond ((and (= 1 (length args)) (raise-object-wrapper? (car args))) (let ((obj (raise-object-wrapper-obj (car args)))) (cond ((condition? obj) (display "ERROR: R6RS exception:\n" port) (format-condition port obj)) (else (format port "ERROR: R6RS exception: `~s'" obj))))) (else (punt)))) (define (format-condition port condition) (let ((components (simple-conditions condition))) (if (null? components) (format port "Empty condition object") (let loop ((i 1) (components components)) (cond ((pair? components) (format port " ~a. " i) (format-simple-condition port (car components)) (when (pair? (cdr components)) (newline port)) (loop (+ i 1) (cdr components)))))))) (define (format-simple-condition port condition) (define (print-rtd-fields rtd field-names) (let ((n-fields (vector-length field-names))) (do ((i 0 (+ i 1))) ((>= i n-fields)) (format port " ~a: ~s" (vector-ref field-names i) ((record-accessor rtd i) condition)) (unless (= i (- n-fields 1)) (newline port))))) (let ((condition-name (record-type-name (record-rtd condition)))) (let loop ((rtd (record-rtd condition)) (rtd.fields-list '()) (n-fields 0)) (cond (rtd (let ((field-names (record-type-field-names rtd))) (loop (record-type-parent rtd) (cons (cons rtd field-names) rtd.fields-list) (+ n-fields (vector-length field-names))))) (else (let ((rtd.fields-list (filter (lambda (rtd.fields) (not (zero? (vector-length (cdr rtd.fields))))) (reverse rtd.fields-list)))) (case n-fields ((0) (format port "~a" condition-name)) ((1) (format port "~a: ~s" condition-name ((record-accessor (caar rtd.fields-list) 0) condition))) (else (format port "~a:\n" condition-name) (let loop ((lst rtd.fields-list)) (when (pair? lst) (let ((rtd.fields (car lst))) (print-rtd-fields (car rtd.fields) (cdr rtd.fields)) (when (pair? (cdr lst)) (newline port)) (loop (cdr lst))))))))))))) (set-exception-printer! 'r6rs:exception exception-printer) ;; Guile condition converters ;; ;; Each converter is a procedure (converter KEY ARGS) that returns ;; either an R6RS condition or #f. If #f is returned, ;; 'default-guile-condition-converter' will be used. (define (guile-syntax-violation-converter key args) (apply (case-lambda ((who what where form subform . extra) (condition (make-syntax-violation form subform) (make-who-condition who) (make-message-condition what))) (_ #f)) args)) (define (guile-lexical-violation-converter key args) (condition (make-lexical-violation) (guile-common-conditions key args))) (define (guile-assertion-violation-converter key args) (condition (make-assertion-violation) (guile-common-conditions key args))) (define (guile-undefined-violation-converter key args) (condition (make-undefined-violation) (guile-common-conditions key args))) (define (guile-implementation-restriction-converter key args) (condition (make-implementation-restriction-violation) (guile-common-conditions key args))) (define (guile-error-converter key args) (condition (make-error) (guile-common-conditions key args))) (define (guile-system-error-converter key args) (apply (case-lambda ((subr msg msg-args errno . rest) ;; XXX TODO we should return a more specific error ;; (usually an I/O error) as expected by R6RS programs. ;; Unfortunately this often requires the 'filename' (or ;; other?) which is not currently provided by the native ;; Guile exceptions. (condition (make-error) (guile-common-conditions key args))) (_ (guile-error-converter key args))) args)) ;; TODO: Arrange to have the needed information included in native ;; Guile I/O exceptions, and arrange here to convert them to the ;; proper conditions. Remove the earlier exception conversion ;; mechanism: search for 'with-throw-handler' in the 'rnrs' ;; tree, e.g. 'with-i/o-filename-conditions' and ;; 'with-i/o-port-error' in (rnrs io ports). ;; XXX TODO: How should we handle the 'misc-error', 'vm-error', and ;; 'signal' native Guile exceptions? ;; XXX TODO: Should we handle the 'quit' exception specially? ;; An alist mapping native Guile exception keys to converters. (define guile-condition-converters `((read-error . ,guile-lexical-violation-converter) (syntax-error . ,guile-syntax-violation-converter) (unbound-variable . ,guile-undefined-violation-converter) (wrong-number-of-args . ,guile-assertion-violation-converter) (wrong-type-arg . ,guile-assertion-violation-converter) (keyword-argument-error . ,guile-assertion-violation-converter) (out-of-range . ,guile-assertion-violation-converter) (regular-expression-syntax . ,guile-assertion-violation-converter) (program-error . ,guile-assertion-violation-converter) (goops-error . ,guile-assertion-violation-converter) (null-pointer-error . ,guile-assertion-violation-converter) (system-error . ,guile-system-error-converter) (host-not-found . ,guile-error-converter) (getaddrinfo-error . ,guile-error-converter) (no-data . ,guile-error-converter) (no-recovery . ,guile-error-converter) (try-again . ,guile-error-converter) (stack-overflow . ,guile-implementation-restriction-converter) (numerical-overflow . ,guile-implementation-restriction-converter) (memory-allocation-error . ,guile-implementation-restriction-converter))) (define (set-guile-condition-converter! key proc) (set! guile-condition-converters (acons key proc guile-condition-converters)))) ����������������������������������������������������������������������������������������rnrs/hashtables.scm���������������������������������������������������������������������������������0000644�����������������00000014031�15253246142�0010355 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; hashtables.scm --- The R6RS hashtables library ;; Copyright (C) 2010 Free Software Foundation, Inc. ;; ;; This library 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. ;; ;; This library 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 library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (library (rnrs hashtables (6)) (export make-eq-hashtable make-eqv-hashtable make-hashtable hashtable? hashtable-size hashtable-ref hashtable-set! hashtable-delete! hashtable-contains? hashtable-update! hashtable-copy hashtable-clear! hashtable-keys hashtable-entries hashtable-equivalence-function hashtable-hash-function hashtable-mutable? equal-hash string-hash string-ci-hash symbol-hash) (import (rename (only (guile) string-hash-ci string-hash hashq hashv modulo *unspecified* @@) (string-hash-ci string-ci-hash)) (only (ice-9 optargs) define*) (rename (only (srfi :69) make-hash-table hash hash-by-identity hash-table-size hash-table-ref/default hash-table-set! hash-table-delete! hash-table-exists? hash-table-update!/default hash-table-copy hash-table-equivalence-function hash-table-hash-function hash-table-keys hash-table-fold) (hash equal-hash) (hash-by-identity symbol-hash)) (rnrs base (6)) (rnrs records procedural (6))) (define r6rs:hashtable (make-record-type-descriptor 'r6rs:hashtable #f #f #t #t '#((mutable wrapped-table) (immutable orig-hash-function) (immutable mutable)))) (define hashtable? (record-predicate r6rs:hashtable)) (define make-r6rs-hashtable (record-constructor (make-record-constructor-descriptor r6rs:hashtable #f #f))) (define r6rs:hashtable-wrapped-table (record-accessor r6rs:hashtable 0)) (define r6rs:hashtable-set-wrapped-table! (record-mutator r6rs:hashtable 0)) (define r6rs:hashtable-orig-hash-function (record-accessor r6rs:hashtable 1)) (define r6rs:hashtable-mutable? (record-accessor r6rs:hashtable 2)) (define hashtable-mutable? r6rs:hashtable-mutable?) (define hash-by-value ((@@ (srfi srfi-69) caller-with-default-size) hashv)) (define (wrap-hash-function proc) (lambda (key capacity) (modulo (proc key) capacity))) (define* (make-eq-hashtable #:optional k) (make-r6rs-hashtable (if k (make-hash-table eq? hashq k) (make-hash-table eq? symbol-hash)) symbol-hash #t)) (define* (make-eqv-hashtable #:optional k) (make-r6rs-hashtable (if k (make-hash-table eqv? hashv k) (make-hash-table eqv? hash-by-value)) hash-by-value #t)) (define* (make-hashtable hash-function equiv #:optional k) (let ((wrapped-hash-function (wrap-hash-function hash-function))) (make-r6rs-hashtable (if k (make-hash-table equiv wrapped-hash-function k) (make-hash-table equiv wrapped-hash-function)) hash-function #t))) (define (hashtable-size hashtable) (hash-table-size (r6rs:hashtable-wrapped-table hashtable))) (define (hashtable-ref hashtable key default) (hash-table-ref/default (r6rs:hashtable-wrapped-table hashtable) key default)) (define (hashtable-set! hashtable key obj) (if (r6rs:hashtable-mutable? hashtable) (hash-table-set! (r6rs:hashtable-wrapped-table hashtable) key obj)) *unspecified*) (define (hashtable-delete! hashtable key) (if (r6rs:hashtable-mutable? hashtable) (hash-table-delete! (r6rs:hashtable-wrapped-table hashtable) key)) *unspecified*) (define (hashtable-contains? hashtable key) (hash-table-exists? (r6rs:hashtable-wrapped-table hashtable) key)) (define (hashtable-update! hashtable key proc default) (if (r6rs:hashtable-mutable? hashtable) (hash-table-update!/default (r6rs:hashtable-wrapped-table hashtable) key proc default)) *unspecified*) (define* (hashtable-copy hashtable #:optional mutable) (make-r6rs-hashtable (hash-table-copy (r6rs:hashtable-wrapped-table hashtable)) (r6rs:hashtable-orig-hash-function hashtable) (and mutable #t))) (define* (hashtable-clear! hashtable #:optional k) (if (r6rs:hashtable-mutable? hashtable) (let* ((ht (r6rs:hashtable-wrapped-table hashtable)) (equiv (hash-table-equivalence-function ht)) (hash-function (r6rs:hashtable-orig-hash-function hashtable)) (wrapped-hash-function (wrap-hash-function hash-function))) (r6rs:hashtable-set-wrapped-table! hashtable (if k (make-hash-table equiv wrapped-hash-function k) (make-hash-table equiv wrapped-hash-function))))) *unspecified*) (define (hashtable-keys hashtable) (list->vector (hash-table-keys (r6rs:hashtable-wrapped-table hashtable)))) (define (hashtable-entries hashtable) (let* ((ht (r6rs:hashtable-wrapped-table hashtable)) (size (hash-table-size ht)) (keys (make-vector size)) (vals (make-vector size))) (hash-table-fold (r6rs:hashtable-wrapped-table hashtable) (lambda (k v i) (vector-set! keys i k) (vector-set! vals i v) (+ i 1)) 0) (values keys vals))) (define (hashtable-equivalence-function hashtable) (hash-table-equivalence-function (r6rs:hashtable-wrapped-table hashtable))) (define (hashtable-hash-function hashtable) (r6rs:hashtable-orig-hash-function hashtable))) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������rnrs/conditions.scm���������������������������������������������������������������������������������0000644�����������������00000015526�15253246142�0010422 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; conditions.scm --- The R6RS conditions library ;; Copyright (C) 2010 Free Software Foundation, Inc. ;; ;; This library 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. ;; ;; This library 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 library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (library (rnrs conditions (6)) (export &condition condition simple-conditions condition? condition-predicate condition-accessor define-condition-type &message make-message-condition message-condition? condition-message &warning make-warning warning? &serious make-serious-condition serious-condition? &error make-error error? &violation make-violation violation? &assertion make-assertion-violation assertion-violation? &irritants make-irritants-condition irritants-condition? condition-irritants &who make-who-condition who-condition? condition-who &non-continuable make-non-continuable-violation non-continuable-violation? &implementation-restriction make-implementation-restriction-violation implementation-restriction-violation? &lexical make-lexical-violation lexical-violation? &syntax make-syntax-violation syntax-violation? syntax-violation-form syntax-violation-subform &undefined make-undefined-violation undefined-violation?) (import (only (guile) and=> @@) (rnrs base (6)) (rnrs lists (6)) (rnrs records procedural (6))) (define &compound-condition (make-record-type-descriptor '&compound-condition #f #f #f #f '#((immutable components)))) (define compound-condition? (record-predicate &compound-condition)) (define make-compound-condition (record-constructor (make-record-constructor-descriptor &compound-condition #f #f))) (define simple-conditions (let ((compound-ref (record-accessor &compound-condition 0))) (lambda (condition) (cond ((compound-condition? condition) (compound-ref condition)) ((condition-internal? condition) (list condition)) (else (assertion-violation 'simple-conditions "not a condition" condition)))))) (define (condition? obj) (or (compound-condition? obj) (condition-internal? obj))) (define condition (lambda conditions (define (flatten cond) (if (compound-condition? cond) (simple-conditions cond) (list cond))) (or (for-all condition? conditions) (assertion-violation 'condition "non-condition argument" conditions)) (if (or (null? conditions) (> (length conditions) 1)) (make-compound-condition (apply append (map flatten conditions))) (car conditions)))) (define-syntax define-condition-type (syntax-rules () ((_ condition-type supertype constructor predicate (field accessor) ...) (letrec-syntax ((transform-fields (syntax-rules () ((_ (f a) . rest) (cons '(immutable f a) (transform-fields . rest))) ((_) '()))) (generate-accessors (syntax-rules () ((_ counter (f a) . rest) (begin (define a (condition-accessor condition-type (record-accessor condition-type counter))) (generate-accessors (+ counter 1) . rest))) ((_ counter) (begin))))) (begin (define condition-type (make-record-type-descriptor 'condition-type supertype #f #f #f (list->vector (transform-fields (field accessor) ...)))) (define constructor (record-constructor (make-record-constructor-descriptor condition-type #f #f))) (define predicate (condition-predicate condition-type)) (generate-accessors 0 (field accessor) ...)))))) (define &condition (@@ (rnrs records procedural) &condition)) (define &condition-constructor-descriptor (make-record-constructor-descriptor &condition #f #f)) (define condition-internal? (record-predicate &condition)) (define (condition-predicate rtd) (let ((rtd-predicate (record-predicate rtd))) (lambda (obj) (cond ((compound-condition? obj) (exists rtd-predicate (simple-conditions obj))) ((condition-internal? obj) (rtd-predicate obj)) (else #f))))) (define (condition-accessor rtd proc) (let ((rtd-predicate (record-predicate rtd))) (lambda (obj) (cond ((rtd-predicate obj) (proc obj)) ((compound-condition? obj) (and=> (find rtd-predicate (simple-conditions obj)) proc)) (else #f))))) (define-condition-type &message &condition make-message-condition message-condition? (message condition-message)) (define-condition-type &warning &condition make-warning warning?) (define &serious (@@ (rnrs records procedural) &serious)) (define make-serious-condition (@@ (rnrs records procedural) make-serious-condition)) (define serious-condition? (condition-predicate &serious)) (define-condition-type &error &serious make-error error?) (define &violation (@@ (rnrs records procedural) &violation)) (define make-violation (@@ (rnrs records procedural) make-violation)) (define violation? (condition-predicate &violation)) (define &assertion (@@ (rnrs records procedural) &assertion)) (define make-assertion-violation (@@ (rnrs records procedural) make-assertion-violation)) (define assertion-violation? (condition-predicate &assertion)) (define-condition-type &irritants &condition make-irritants-condition irritants-condition? (irritants condition-irritants)) (define-condition-type &who &condition make-who-condition who-condition? (who condition-who)) (define-condition-type &non-continuable &violation make-non-continuable-violation non-continuable-violation?) (define-condition-type &implementation-restriction &violation make-implementation-restriction-violation implementation-restriction-violation?) (define-condition-type &lexical &violation make-lexical-violation lexical-violation?) (define-condition-type &syntax &violation make-syntax-violation syntax-violation? (form syntax-violation-form) (subform syntax-violation-subform)) (define-condition-type &undefined &violation make-undefined-violation undefined-violation?) ) ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������rnrs/base.scm���������������������������������������������������������������������������������������0000644�����������������00000024066�15253246142�0007162 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; base.scm --- The R6RS base library ;; Copyright (C) 2010, 2011 Free Software Foundation, Inc. ;; ;; This library 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. ;; ;; This library 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 library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (library (rnrs base (6)) (export boolean? symbol? char? vector? null? pair? number? string? procedure? define define-syntax syntax-rules lambda let let* let-values let*-values letrec letrec* begin quote lambda if set! cond case or and not eqv? equal? eq? + - * / max min abs numerator denominator gcd lcm floor ceiling truncate round rationalize real-part imag-part make-rectangular angle div mod div-and-mod div0 mod0 div0-and-mod0 expt exact-integer-sqrt sqrt exp log sin cos tan asin acos atan make-polar magnitude angle complex? real? rational? integer? exact? inexact? real-valued? rational-valued? integer-valued? zero? positive? negative? odd? even? nan? finite? infinite? exact inexact = < > <= >= number->string string->number boolean=? cons car cdr caar cadr cdar cddr caaar caadr cadar cdaar caddr cdadr cddar cdddr caaaar caaadr caadar cadaar cdaaar cddaar cdadar cdaadr cadadr caaddr caddar cadddr cdaddr cddadr cdddar cddddr list? list length append reverse list-tail list-ref map for-each symbol->string string->symbol symbol=? char->integer integer->char char=? char<? char>? char<=? char>=? make-string string string-length string-ref string=? string<? string>? string<=? string>=? substring string-append string->list list->string string-for-each string-copy vector? make-vector vector vector-length vector-ref vector-set! vector->list list->vector vector-fill! vector-map vector-for-each error assertion-violation assert call-with-current-continuation call/cc call-with-values dynamic-wind values apply quasiquote unquote unquote-splicing let-syntax letrec-syntax syntax-rules identifier-syntax) (import (rename (except (guile) error raise map string-for-each) (log log-internal) (euclidean-quotient div) (euclidean-remainder mod) (euclidean/ div-and-mod) (centered-quotient div0) (centered-remainder mod0) (centered/ div0-and-mod0) (inf? infinite?) (exact->inexact inexact) (inexact->exact exact)) (srfi srfi-11)) (define string-for-each (case-lambda ((proc string) (let ((end (string-length string))) (let loop ((i 0)) (unless (= i end) (proc (string-ref string i)) (loop (+ i 1)))))) ((proc string1 string2) (let ((end1 (string-length string1)) (end2 (string-length string2))) (unless (= end1 end2) (assertion-violation 'string-for-each "string arguments must all have the same length" string1 string2)) (let loop ((i 0)) (unless (= i end1) (proc (string-ref string1 i) (string-ref string2 i)) (loop (+ i 1)))))) ((proc string . strings) (let ((end (string-length string)) (ends (map string-length strings))) (for-each (lambda (x) (unless (= end x) (apply assertion-violation 'string-for-each "string arguments must all have the same length" string strings))) ends) (let loop ((i 0)) (unless (= i end) (apply proc (string-ref string i) (map (lambda (s) (string-ref s i)) strings)) (loop (+ i 1)))))))) (define map (case-lambda ((f l) (let map1 ((hare l) (tortoise l) (move? #f) (out '())) (if (pair? hare) (if move? (if (eq? tortoise hare) (scm-error 'wrong-type-arg "map" "Circular list: ~S" (list l) #f) (map1 (cdr hare) (cdr tortoise) #f (cons (f (car hare)) out))) (map1 (cdr hare) tortoise #t (cons (f (car hare)) out))) (if (null? hare) (reverse out) (scm-error 'wrong-type-arg "map" "Not a list: ~S" (list l) #f))))) ((f l1 l2) (let map2 ((h1 l1) (h2 l2) (t1 l1) (t2 l2) (move? #f) (out '())) (cond ((pair? h1) (cond ((not (pair? h2)) (scm-error 'wrong-type-arg "map" (if (list? h2) "List of wrong length: ~S" "Not a list: ~S") (list l2) #f)) ((not move?) (map2 (cdr h1) (cdr h2) t1 t2 #t (cons (f (car h1) (car h2)) out))) ((eq? t1 h1) (scm-error 'wrong-type-arg "map" "Circular list: ~S" (list l1) #f)) ((eq? t2 h2) (scm-error 'wrong-type-arg "map" "Circular list: ~S" (list l2) #f)) (else (map2 (cdr h1) (cdr h2) (cdr t1) (cdr t2) #f (cons (f (car h1) (car h2)) out))))) ((and (null? h1) (null? h2)) (reverse out)) ((null? h1) (scm-error 'wrong-type-arg "map" (if (list? h2) "List of wrong length: ~S" "Not a list: ~S") (list l2) #f)) (else (scm-error 'wrong-type-arg "map" "Not a list: ~S" (list l1) #f))))) ((f l1 . rest) (let ((len (length l1))) (let mapn ((rest rest)) (or (null? rest) (if (= (length (car rest)) len) (mapn (cdr rest)) (scm-error 'wrong-type-arg "map" "List of wrong length: ~S" (list (car rest)) #f))))) (let mapn ((l1 l1) (rest rest) (out '())) (if (null? l1) (reverse out) (mapn (cdr l1) (map cdr rest) (cons (apply f (car l1) (map car rest)) out))))))) (define log (case-lambda ((n) (log-internal n)) ((n base) (/ (log n) (log base))))) (define (boolean=? . bools) (define (boolean=?-internal lst last) (or (null? lst) (let ((bool (car lst))) (and (eqv? bool last) (boolean=?-internal (cdr lst) bool))))) (or (null? bools) (let ((bool (car bools))) (and (boolean? bool) (boolean=?-internal (cdr bools) bool))))) (define (symbol=? . syms) (define (symbol=?-internal lst last) (or (null? lst) (let ((sym (car lst))) (and (eq? sym last) (symbol=?-internal (cdr lst) sym))))) (or (null? syms) (let ((sym (car syms))) (and (symbol? sym) (symbol=?-internal (cdr syms) sym))))) (define (real-valued? x) (and (complex? x) (zero? (imag-part x)))) (define (rational-valued? x) (and (real-valued? x) (rational? (real-part x)))) (define (integer-valued? x) (and (rational-valued? x) (= x (floor (real-part x))))) (define (vector-for-each proc . vecs) (apply for-each (cons proc (map vector->list vecs)))) (define (vector-map proc . vecs) (list->vector (apply map (cons proc (map vector->list vecs))))) (define-syntax define-proxy (syntax-rules (@) ;; Define BINDING to point to (@ MODULE ORIGINAL). This hack is to ;; make sure MODULE is loaded lazily, at run-time, when BINDING is ;; encountered, rather than being loaded while compiling and ;; loading (rnrs base). ;; This avoids circular dependencies among modules and makes ;; (rnrs base) more lightweight. ((_ binding (@ module original)) (define-syntax binding (identifier-syntax (module-ref (resolve-interface 'module) 'original)))))) (define-proxy raise (@ (rnrs exceptions) raise)) (define-proxy condition (@ (rnrs conditions) condition)) (define-proxy make-error (@ (rnrs conditions) make-error)) (define-proxy make-assertion-violation (@ (rnrs conditions) make-assertion-violation)) (define-proxy make-who-condition (@ (rnrs conditions) make-who-condition)) (define-proxy make-message-condition (@ (rnrs conditions) make-message-condition)) (define-proxy make-irritants-condition (@ (rnrs conditions) make-irritants-condition)) (define (error who message . irritants) (raise (apply condition (append (list (make-error)) (if who (list (make-who-condition who)) '()) (list (make-message-condition message) (make-irritants-condition irritants)))))) (define (assertion-violation who message . irritants) (raise (apply condition (append (list (make-assertion-violation)) (if who (list (make-who-condition who)) '()) (list (make-message-condition message) (make-irritants-condition irritants)))))) (define-syntax assert (syntax-rules () ((_ expression) (or expression (raise (condition (make-assertion-violation) (make-message-condition (format #f "assertion failed: ~s" 'expression)))))))) ) ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������rnrs/sorting.scm������������������������������������������������������������������������������������0000644�����������������00000002261�15253246142�0007726 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; sorting.scm --- The R6RS sorting library ;; Copyright (C) 2010 Free Software Foundation, Inc. ;; ;; This library 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. ;; ;; This library 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 library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (library (rnrs sorting (6)) (export list-sort vector-sort vector-sort!) (import (rnrs base (6)) (only (guile) *unspecified* stable-sort sort!)) (define (list-sort proc list) (stable-sort list proc)) (define (vector-sort proc vector) (stable-sort vector proc)) (define (vector-sort! proc vector) (sort! vector proc) *unspecified*)) �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������rnrs/eval.scm���������������������������������������������������������������������������������������0000644�����������������00000002633�15253246142�0007173 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; eval.scm --- The R6RS `eval' library ;; Copyright (C) 2010 Free Software Foundation, Inc. ;; ;; This library 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. ;; ;; This library 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 library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (library (rnrs eval (6)) (export eval environment) (import (only (guile) eval make-module module-uses beautify-user-module! set-module-uses!) (rnrs base (6)) (rnrs io simple (6)) (rnrs lists (6))) (define (environment . import-specs) (let ((module (make-module)) (needs-purify? (not (member '(guile) import-specs)))) (beautify-user-module! module) (for-each (lambda (import-spec) (eval (list 'import import-spec) module)) import-specs) (if needs-purify? (set-module-uses! module (cdr (module-uses module)))) module)) ) �����������������������������������������������������������������������������������������������������rnrs/r5rs.scm���������������������������������������������������������������������������������������0000644�����������������00000002326�15253246142�0007136 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; r5rs.scm --- The R6RS / R5RS compatibility library ;; Copyright (C) 2010 Free Software Foundation, Inc. ;; ;; This library 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. ;; ;; This library 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 library; if not, write to the Free Software ;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA (library (rnrs r5rs (6)) (export exact->inexact inexact->exact quotient remainder modulo delay force null-environment scheme-report-environment) (import (only (guile) exact->inexact inexact->exact quotient remainder modulo delay force) (only (ice-9 r5rs) scheme-report-environment) (only (ice-9 safe-r5rs) null-environment))) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������texinfo/docbook.scm���������������������������������������������������������������������������������0000644�����������������00000020655�15253246142�0010360 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; (texinfo docbook) -- translating sdocbook into stexinfo ;;;; ;;;; Copyright (C) 2009, 2010, 2012 Free Software Foundation, Inc. ;;;; Copyright (C) 2007, 2009 Andy Wingo <wingo at pobox dot com> ;;;; ;;;; This library 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. ;;;; ;;;; This library 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 library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; ;;; Commentary: ;; ;; @c ;; This module exports procedures for transforming a limited subset of ;; the SXML representation of docbook into stexi. It is not complete by ;; any means. The intention is to gather a number of routines and ;; stylesheets so that external modules can parse specific subsets of ;; docbook, for example that set generated by certain tools. ;; ;;; Code: (define-module (texinfo docbook) #:use-module (sxml fold) #:use-module ((srfi srfi-1) #:select (fold)) #:export (*sdocbook->stexi-rules* *sdocbook-block-commands* sdocbook-flatten filter-empty-elements replace-titles)) (define (identity . args) args) (define (identity-deattr tag . body) `(,tag ,@(if (and (pair? body) (pair? (car body)) (eq? (caar body) '@)) (cdr body) body))) (define (detag-one tag body) body) (define tag-replacements '((parameter var) (replaceable var) (type code) (function code) (literal samp) (emphasis emph) (simpara para) (programlisting example) (firstterm dfn) (filename file) (quote cite) (application cite) (symbol code) (note cartouche) (envar env))) (define ignore-list '()) (define (stringify exp) (with-output-to-string (lambda () (write exp)))) (define *sdocbook->stexi-rules* #; "A stylesheet for use with SSAX's @code{pre-post-order}, which defines a number of generic rules for transforming docbook into texinfo." `((@ *preorder* . ,identity) (% *preorder* . ,identity) (para . ,identity-deattr) (orderedlist ((listitem . ,(lambda (tag . body) `(item ,@body)))) . ,(lambda (tag . body) `(enumerate ,@body))) (itemizedlist ((listitem . ,(lambda (tag . body) `(item ,@body)))) . ,(lambda (tag . body) `(itemize ,@body))) (acronym . ,(lambda (tag . body) `(acronym (% (acronym . ,body))))) (term . ,detag-one) (informalexample . ,detag-one) (section . ,identity) (subsection . ,identity) (subsubsection . ,identity) (ulink . ,(lambda (tag attrs . body) (cond ((assq 'url (cdr attrs)) => (lambda (url) `(uref (% ,url (title ,@body))))) (else (car body))))) (*text* . ,detag-one) (*default* . ,(lambda (tag . body) (let ((subst (assq tag tag-replacements))) (cond (subst (if (and (pair? body) (pair? (car body)) (eq? (caar body) '@)) (begin (warn "Ignoring" tag "attributes" (car body)) (append (cdr subst) (cdr body))) (append (cdr subst) body))) ((memq tag ignore-list) #f) (else (warn "Don't know how to convert" tag "to stexi") `(c (% (all ,(stringify (cons tag body)))))))))))) ;; (variablelist ;; ((varlistentry ;; . ,(lambda (tag term . body) ;; `(entry (% (heading ,@(cdr term))) ,@body))) ;; (listitem ;; . ,(lambda (tag simpara) ;; simpara))) ;; . ,(lambda (tag attrs . body) ;; `(table (% (formatter (var))) ,@body))) (define *sdocbook-block-commands* #; "The set of sdocbook element tags that should not be nested inside each other. @xref{texinfo docbook sdocbook-flatten,,sdocbook-flatten}, for more information." '(para programlisting informalexample indexterm variablelist orderedlist refsect1 refsect2 refsect3 refsect4 title example note itemizedlist informaltable)) (define (inline-command? command) (not (memq command *sdocbook-block-commands*))) (define (sdocbook-flatten sdocbook) "\"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{<title>} 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." (define (fhere str accum block cont) (values (cons str accum) block cont)) (define (fdown node accum block cont) (let ((command (car node)) (attrs (and (pair? (cdr node)) (pair? (cadr node)) (eq? (caadr node) '%) (cadr node)))) (values (if attrs (cddr node) (cdr node)) '() '() (lambda (accum block) (values `(,command ,@(if attrs (list attrs) '()) ,@(reverse accum)) block))))) (define (fup node paccum pblock pcont kaccum kblock kcont) (call-with-values (lambda () (kcont kaccum kblock)) (lambda (ret block) (if (inline-command? (car ret)) (values (cons ret paccum) (append kblock pblock) pcont) (values paccum (append kblock (cons ret pblock)) pcont))))) (call-with-values (lambda () (foldts*-values fdown fup fhere sdocbook '() '() #f)) (lambda (accum block cont) (reverse block)))) (define (filter-empty-elements sdocbook) "Filters out empty elements in an sdocbook nodeset. Mostly useful after running @code{sdocbook-flatten}." (reverse (fold (lambda (x rest) (if (and (pair? x) (null? (cdr x))) rest (cons x rest))) '() sdocbook))) (define (replace-titles sdocbook-fragment) "Iterate 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 " (define sections '((refsect1 . chapter) (refsect2 . section) (refsect3 . subsection) (refsect4 . subsubsection))) (let lp ((in sdocbook-fragment) (out '())) (cond ((null? in) (reverse out)) ((and (pair? (car in)) (assq (caar in) sections)) ;; pull out the title => (lambda (pair) (lp (cddr in) (cons `(,(cdr pair) ,@(cdadr in)) out)))) (else (lp (cdr in) (cons (car in) out)))))) �����������������������������������������������������������������������������������texinfo/serialize.scm�������������������������������������������������������������������������������0000644�����������������00000023164�15253246142�0010725 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; (texinfo serialize) -- rendering stexinfo as texinfo ;;;; ;;;; Copyright (C) 2009, 2012, 2013 Free Software Foundation, Inc. ;;;; Copyright (C) 2003,2004,2009 Andy Wingo <wingo at pobox dot com> ;;;; ;;;; This library 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. ;;;; ;;;; This library 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 library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; ;;; Commentary: ;; ;;Serialization of @code{stexi} to plain texinfo. ;; ;;; Code: (define-module (texinfo serialize) #:use-module (texinfo) #:use-module (texinfo string-utils) #:use-module (sxml transform) #:use-module (srfi srfi-1) #:use-module (srfi srfi-13) #:export (stexi->texi)) (define (list-intersperse src-l elem) (if (null? src-l) src-l (let loop ((l (cdr src-l)) (dest (cons (car src-l) '()))) (if (null? l) (reverse dest) (loop (cdr l) (cons (car l) (cons elem dest))))))) ;; converts improper lists to proper lists. (define (filter* pred l) (let lp ((in l) (out '())) (cond ((null? in) (reverse! out)) ((pair? in) (lp (cdr in) (if (pred (car in)) (cons (car in) out) out))) (else (lp '() (if (pred in) (cons in out) out)))))) ;; (list* 'a '(b c) 'd '(e f g)) => '(a b c d e f g) (define (list* . args) (let* ((args (reverse args)) (tail (car args))) (let lp ((in (cdr args)) (out tail)) (cond ((null? in) out) ((pair? (car in)) (lp (cdr in) (append (car in) out))) ((null? (car in)) (lp (cdr in) out)) (else (lp (cdr in) (cons (car in) out))))))) ;; Why? Well, because syntax-case defines `include', and carps about its ;; wrong usage below... (eval-when (expand load eval) (define (include exp lp command type formals args accum) (list* "\n" (list-intersperse args " ") " " command "@" accum))) (define (empty-command exp lp command type formals args accum) (list* " " command "@" accum)) (define (inline-text exp lp command type formals args accum) (if (not (string=? command "*braces*")) ;; fixme :( (list* "}" (append-map (lambda (x) (lp x '())) (reverse (cdr exp))) "{" command "@" accum) (list* "@}" (append-map (lambda (x) (lp x '())) (reverse (cdr exp))) "@{" accum))) (define (inline-args exp lp command type formals args accum) (list* "}" (if (not args) "" (list-intersperse (map (lambda (x) (cond ((not x) "") ((pair? x) (if (pair? (cdr x)) (warn "Strange inline-args!" args)) (car x)) (else (error "Invalid inline-args" args)))) (drop-while not (map (lambda (x) (assq-ref args x)) (reverse formals)))) ",")) "{" command "@" accum)) (define (inline-text-args exp lp command type formals args accum) (list* "}" (if (not args) "" (apply append (list-intersperse (map (lambda (x) (append-map (lambda (x) (lp x '())) (reverse x))) (drop-while not (map (lambda (x) (assq-ref args x)) (reverse formals)))) '(",")))) "{" command "@" accum)) (define (serialize-text-args lp formals args) (apply append (list-intersperse (map (lambda (arg) (append-map (lambda (x) (lp x '())) arg)) (map reverse (drop-while not (map (lambda (x) (assq-ref args x)) (reverse formals))))) '(" ")))) (define (eol-text-args exp lp command type formals args accum) (list* "\n" (serialize-text-args lp formals args) " " command "@" accum)) (define (eol-text exp lp command type formals args accum) (list* "\n" (append-map (lambda (x) (lp x '())) (reverse (if args (cddr exp) (cdr exp)))) " " command "@" accum)) (define (eol-args exp lp command type formals args accum) (list* "\n" (list-intersperse (apply append (drop-while not (map (lambda (x) (assq-ref args x)) (reverse formals)))) ", ") " " command "@" accum)) (define (environ exp lp command type formals args accum) (case (car exp) ((texinfo) (list* "@bye\n" (append-map (lambda (x) (lp x '())) (reverse (cddr exp))) "\n@c %**end of header\n\n" (reverse (assq-ref args 'title)) "@settitle " (or (and=> (assq-ref args 'filename) (lambda (filename) (cons "\n" (reverse (cons "@setfilename " filename))))) "") "\\input texinfo @c -*-texinfo-*-\n@c %**start of header\n" accum)) (else (list* "\n\n" command "@end " (let ((body (append-map (lambda (x) (lp x '())) (reverse (if args (cddr exp) (cdr exp)))))) (if (or (null? body) (eqv? (string-ref (car body) (1- (string-length (car body)))) #\newline)) body (cons "\n" body))) "\n" (serialize-text-args lp formals args) " " command "@" accum)))) (define (table-environ exp lp command type formals args accum) (list* "\n\n" command "@end " (append-map (lambda (x) (lp x '())) (reverse (if args (cddr exp) (cdr exp)))) "\n" (let* ((arg (if args (cadar args) ""))) ;; zero or one args (if (pair? arg) (list (symbol->string (car arg)) "@") arg)) " " command "@" accum)) (define (wrap strings) (fill-string (string-concatenate strings) #:line-width 72 #:break-long-words? #f)) (define (paragraph exp lp command type formals args accum) (list* "\n\n" (wrap (reverse (append-map (lambda (x) (lp x '())) (reverse (cdr exp))))) accum)) (define (item exp lp command type formals args accum) (list* (append-map (lambda (x) (lp x '())) (reverse (cdr exp))) "@item\n" accum)) (define (entry exp lp command type formals args accum) (list* (append-map (lambda (x) (lp x '())) (reverse (cddr exp))) "\n" (append-map (lambda (x) (lp x '())) (reverse (cdar args))) "@item " accum)) (define (fragment exp lp command type formals args accum) (list* "\n@c %end of fragment\n" (append-map (lambda (x) (lp x '())) (reverse (cdr exp))) "\n@c %start of fragment\n\n" accum)) (define serializers `((EMPTY-COMMAND . ,empty-command) (INLINE-TEXT . ,inline-text) (INLINE-ARGS . ,inline-args) (INLINE-TEXT-ARGS . ,inline-text-args) (EOL-TEXT . ,eol-text) (EOL-TEXT-ARGS . ,eol-text-args) (INDEX . ,eol-text-args) (EOL-ARGS . ,eol-args) (ENVIRON . ,environ) (TABLE-ENVIRON . ,table-environ) (ENTRY . ,entry) (ITEM . ,item) (PARAGRAPH . ,paragraph) (FRAGMENT . ,fragment) (#f . ,include))) ; support writing include statements (define (serialize exp lp command type formals args accum) ((or (assq-ref serializers type) (error "Unknown command type" exp type)) exp lp command type formals args accum)) (define escaped-chars '(#\} #\{ #\@)) (define (escape str) "Escapes any illegal texinfo characters (currently @{, @}, and @@)." (let loop ((in (string->list str)) (out '())) (if (null? in) (apply string (reverse out)) (if (memq (car in) escaped-chars) (loop (cdr in) (cons* (car in) #\@ out)) (loop (cdr in) (cons (car in) out)))))) (define (stexi->texi tree) "Serialize the stexi @var{tree} into plain texinfo." (string-concatenate-reverse (let lp ((in tree) (out '())) (cond ((or (not in) (null? in)) out) ((string? in) (cons (escape in) out)) ((pair? in) (let ((command-spec (assq (car in) texi-command-specs))) (if (not command-spec) (begin (warn "Unknown stexi command, not rendering" in) out) (serialize in lp (symbol->string (car in)) (cadr command-spec) (filter* symbol? (cddr command-spec)) (cond ((and (pair? (cdr in)) (pair? (cadr in)) (eq? (caadr in) '%)) (cdadr in)) ((not (cadr command-spec)) ;; include (cdr in)) (else #f)) out)))) (else (error "Invalid stexi" in)))))) ;;; arch-tag: d3fa16ea-0bf7-4ec5-ab9f-3f08490f77f5 ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������texinfo/plain-text.scm������������������������������������������������������������������������������0000644�����������������00000022444�15253246142�0011023 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; (texinfo plain-text) -- rendering stexinfo as plain text ;;;; ;;;; Copyright (C) 2009, 2010, 2011, 2013 Free Software Foundation, Inc. ;;;; Copyright (C) 2003,2004,2009 Andy Wingo <wingo at pobox dot com> ;;;; ;;;; This library 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. ;;;; ;;;; This library 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 library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; ;;; Commentary: ;; ;;Transformation from stexi to plain-text. Strives to re-create the ;;output from @code{info}; comes pretty damn close. ;; ;;; Code: (define-module (texinfo plain-text) #:use-module (texinfo) #:use-module (texinfo string-utils) #:use-module (sxml transform) #:use-module (srfi srfi-1) #:use-module (srfi srfi-13) #:use-module (ice-9 match) #:export (stexi->plain-text)) ;; The return value is a string. (define (arg-ref key %-args) (and=> (and=> (assq key (cdr %-args)) cdr) stexi->plain-text)) (define (arg-req key %-args) (or (arg-ref key %-args) (error "Missing argument:" key %-args))) (define (make-ticker str) (lambda () str)) (define (make-enumerator n) (lambda () (let ((last n)) (set! n (1+ n)) (format #f "~A. " last)))) (define *indent* (make-fluid "")) (define *itemizer* (make-fluid (make-ticker "* "))) (define-macro (with-indent n . body) `(with-fluids ((*indent* (string-append (fluid-ref *indent*) (make-string ,n #\space)))) ,@body)) (define (make-indenter n proc) (lambda args (with-indent n (apply proc args)))) (define (string-indent str) (string-append (fluid-ref *indent*) str "\n")) (define-macro (with-itemizer itemizer . body) `(with-fluids ((*itemizer* ,itemizer)) ,@body)) (define (wrap* . strings) (let ((indent (fluid-ref *indent*))) (fill-string (string-concatenate strings) #:line-width 72 #:initial-indent indent #:subsequent-indent indent))) (define (wrap . strings) (string-append (apply wrap* strings) "\n\n")) (define (wrap-heading . strings) (string-append (apply wrap* strings) "\n")) (define (ref tag args) (let* ((node (arg-req 'node args)) (name (or (arg-ref 'name args) node)) (manual (arg-ref 'manual args))) (string-concatenate (cons* (or (and=> (assq tag '((xref "See ") (pxref "see "))) cadr) "") name (if manual `(" in manual " ,manual) '()))))) (define (uref tag args) (let ((url (arg-req 'url args)) (title (arg-ref 'title args))) (if title (string-append title " (" url ")") (string-append "`" url "'")))) (define (def tag args . body) (define (first-line) (string-join (filter identity (map (lambda (x) (arg-ref x args)) '(data-type class name arguments))) " ")) (let* ((category (case tag ((defun) "Function") ((defspec) "Special Form") ((defvar) "Variable") (else (arg-req 'category args))))) (string-append (wrap-heading (string-append " - " category ": " (first-line))) (with-indent 5 (stexi->plain-text body))))) (define (enumerate tag . elts) (define (tonumber start) (let ((c (string-ref start 0))) (cond ((number? c) (string->number start)) (else (1+ (- (char->integer c) (char->integer (if (char-upper-case? c) #\A #\a)))))))) (let* ((args? (and (pair? elts) (pair? (car elts)) (eq? (caar elts) '%))) (start (and args? (arg-ref 'start (car elts))))) (with-itemizer (make-enumerator (if start (tonumber start) 1)) (with-indent 5 (stexi->plain-text (if start (cdr elts) elts)))))) (define (itemize tag args . elts) (with-itemizer (make-ticker "* ") (with-indent 5 (stexi->plain-text elts)))) (define (item tag . elts) (let* ((ret (stexi->plain-text elts)) (tick ((fluid-ref *itemizer*))) (tick-pos (- (string-length (fluid-ref *indent*)) (string-length tick)))) (if (and (not (string-null? ret)) (not (negative? tick-pos))) (string-copy! ret tick-pos tick)) ret)) (define (table tag args . body) (stexi->plain-text body)) (define (entry tag args . body) (let ((heading (wrap-heading (stexi->plain-text (arg-req 'heading args))))) (string-append heading (with-indent 5 (stexi->plain-text body))))) (define (make-underliner char) (lambda (tag . body) (let ((str (stexi->plain-text body))) (string-append "\n" (string-indent str) (string-indent (make-string (string-length str) char)) "\n")))) (define chapter (make-underliner #\*)) (define section (make-underliner #\=)) (define subsection (make-underliner #\-)) (define subsubsection (make-underliner #\.)) (define (example tag . body) (let ((ret (stexi->plain-text body))) (string-append (string-concatenate (with-indent 5 (map string-indent (string-split ret #\newline)))) "\n"))) (define (verbatim tag . body) (let ((ret (stexi->plain-text body))) (string-append (string-concatenate (map string-indent (string-split ret #\newline))) "\n"))) (define (fragment tag . body) (string-concatenate (map-in-order stexi->plain-text body))) (define (para tag . body) (wrap (stexi->plain-text body))) (define (make-surrounder str) (lambda (tag . body) (string-append str (stexi->plain-text body) str))) (define (code tag . body) (string-append "`" (stexi->plain-text body) "'")) (define (key tag . body) (string-append "<" (stexi->plain-text body) ">")) (define (var tag . body) (string-upcase (stexi->plain-text body))) (define (passthrough tag . body) (stexi->plain-text body)) (define (texinfo tag args . body) (let ((title (chapter 'foo (arg-req 'title args)))) (string-append title (stexi->plain-text body)))) (define ignore-list '(page setfilename setchapternewpage iftex ifinfo ifplaintext ifxml sp vskip menu ignore syncodeindex comment c % node anchor)) (define (ignored? tag) (memq tag ignore-list)) (define tag-handlers `((title ,chapter) (chapter ,chapter) (section ,section) (subsection ,subsection) (subsubsection ,subsubsection) (appendix ,chapter) (appendixsec ,section) (appendixsubsec ,subsection) (appendixsubsubsec ,subsubsection) (unnumbered ,chapter) (unnumberedsec ,section) (unnumberedsubsec ,subsection) (unnumberedsubsubsec ,subsubsection) (majorheading ,chapter) (chapheading ,chapter) (heading ,section) (subheading ,subsection) (subsubheading ,subsubsection) (strong ,(make-surrounder "*")) (sample ,code) (samp ,code) (code ,code) (math ,passthrough) (kbd ,code) (key ,key) (var ,var) (env ,code) (file ,code) (command ,code) (option ,code) (url ,code) (dfn ,(make-surrounder "\"")) (cite ,(make-surrounder "\"")) (acro ,passthrough) (email ,key) (emph ,(make-surrounder "_")) (sc ,var) (copyright ,(lambda args "(C)")) (result ,(lambda args "==>")) (dots ,(lambda args "...")) (xref ,ref) (ref ,ref) (pxref ,ref) (uref ,uref) (texinfo ,texinfo) (quotation ,(make-indenter 5 para)) (itemize ,itemize) (enumerate ,enumerate) (item ,item) (table ,table) (entry ,entry) (example ,example) (lisp ,example) (smallexample ,example) (smalllisp ,example) (verbatim ,verbatim) (*fragment* ,fragment) (deftp ,def) (defcv ,def) (defivar ,def) (deftypeivar ,def) (defop ,def) (deftypeop ,def) (defmethod ,def) (deftypemethod ,def) (defopt ,def) (defvr ,def) (defvar ,def) (deftypevr ,def) (deftypevar ,def) (deffn ,def) (deftypefn ,def) (defmac ,def) (defspec ,def) (defun ,def) (deftypefun ,def))) (define (stexi->plain-text tree) "Transform @var{tree} into plain text. Returns a string." (match tree (() "") ((? string?) tree) (((? symbol? tag) body ...) (let ((handler (and (not (ignored? tag)) (or (and=> (assq tag tag-handlers) cadr) para)))) (if handler (apply handler tree) ""))) ((tree ...) (string-concatenate (map-in-order stexi->plain-text tree))) (_ ""))) ;;; arch-tag: f966c3f6-3b46-4790-bbf9-3ad27e4917c2 ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������texinfo/string-utils.scm����������������������������������������������������������������������������0000644�����������������00000040336�15253246142�0011402 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; (texinfo string-utils) -- text filling and wrapping ;;;; ;;;; Copyright (C) 2009, 2013 Free Software Foundation, Inc. ;;;; Copyright (C) 2003 Richard Todd ;;;; ;;;; This library 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. ;;;; ;;;; This library 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 library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; ;;; Commentary: ;; Module @samp{(texinfo string-utils)} provides various string-related ;; functions useful to Guile's texinfo support. ;;; Code: (define-module (texinfo string-utils) #:use-module (srfi srfi-13) #:use-module (srfi srfi-14) #:export (escape-special-chars transform-string expand-tabs center-string left-justify-string right-justify-string collapse-repeated-chars make-text-wrapper fill-string string->wrapped-lines)) (define* (transform-string str match? replace #:optional (start #f) (end #f)) "Uses @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 lisp" ;; I had implemented this with string-fold, but it was ;; slower... (let* ((os (open-output-string)) (matcher (cond ((char? match?) (lambda (c) (char=? match? c))) ((procedure? match?) match?) ((string? match?) (lambda (c) (string-index match? c))) ((boolean? match?) (lambda (c) match?)) (else (throw 'bad-type "expected #t, char, string, or procedure")))) (replacer (if (procedure? replace) (lambda (c) (display (replace c) os)) (lambda (c) (display replace os))))) ;; put the first part in, un-transformed if they asked for it... (if (and start (<= start (string-length str))) (display (substring str 0 start) os)) ;; process the portion they want processed.... (string-for-each (lambda (c) (if (matcher c) ;; we have a match! replace the char as directed... (replacer c) ;; not a match, just insert the character itself... (write-char c os))) str (or start 0) (or end (string-length str))) ;; if there was any at the end, tack it on... (if (and end (< end (string-length str))) (display (substring str end) os)) (get-output-string os))) (define* (expand-tabs str #:optional (tab-size 8)) "Returns 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 lisp" (transform-string str #\tab (make-string tab-size #\space))) (define (escape-special-chars str special-chars escape-char) "Returns 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 lisp" (transform-string str (if (char? special-chars) ;; if they gave us a char, use char=? (lambda (c) (char=? c special-chars)) ;; if they gave us a string, see if our character is in it (lambda (c) (string-index special-chars c))) ;; replace matches with the character preceded by the escape character (lambda (c) (string escape-char c)))) (define* (center-string str #:optional (width 80) (chr #\space) (rchr #f)) "Returns 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 lisp" (let* ((len (string-length str)) (lpad (make-string (max (quotient (- width len) 2) 0) chr)) ;; right-char == char unless it has been provided by the user (right-chr (or rchr chr)) (rpad (if (char=? right-chr chr) lpad (make-string (max (quotient (- width len) 2) 0) right-chr)))) (if (>= len width) str (string-append lpad str rpad (if (odd? (- width len)) (string right-chr) ""))))) (define* (left-justify-string str #:optional (width 80) (chr #\space)) "@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." (let* ((len (string-length str)) (pad (make-string (max (- width len) 0) chr))) (if (>= len width) str (string-append str pad)))) (define* (right-justify-string str #:optional (width 80) (chr #\space)) "Returns 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." (let* ((len (string-length str)) (pad (make-string (max (- width len) 0) chr))) (if (>= len width) str (string-append pad str)))) (define* (collapse-repeated-chars str #:optional (chr #\space) (num 1)) "Returns 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 lisp" ;; define repeat-locator as a stateful match? function which remembers ;; the last character it had seen. (let ((repeat-locator ;; initialize prev-chr to something other than what we're seeking... (let ((prev-chr (if (char=? chr #\space) #\A #\space)) (match-count 0)) (lambda (c) (if (and (char=? c prev-chr) (char=? prev-chr chr)) ;; found enough duplicates if the match-count is high enough (begin (set! match-count (+ 1 match-count)) (>= match-count num)) ;; did not find a duplicate (begin (set! match-count 0) (set! prev-chr c) #f)))))) ;; transform the string with our stateful matcher... ;; deleting matches... (transform-string str repeat-locator ""))) ;; split a text string into segments that have the form... ;; <ws non-ws> <ws non-ws> etc.. (define (split-by-single-words str) (let ((non-wschars (char-set-complement char-set:whitespace))) (let loop ((ans '()) (index 0)) (let ((next-non-ws (string-index str non-wschars index))) (if next-non-ws ;; found non-ws...look for ws following... (let ((next-ws (string-index str char-set:whitespace next-non-ws))) (if next-ws ;; found the ws following... (loop (cons (substring str index next-ws) ans) next-ws) ;; did not find ws...must be the end... (reverse (cons (substring str index) ans)))) ;; did not find non-ws... only ws at end of the string... (reverse ans)))))) (define (end-of-sentence? str) "Return #t when STR likely denotes the end of sentence." (let ((len (string-length str))) (and (> len 1) (eqv? #\. (string-ref str (- len 1))) (not (eqv? #\. (string-ref str (- len 2))))))) (define* (make-text-wrapper #:key (line-width 80) (expand-tabs? #t) (tab-width 8) (collapse-whitespace? #t) (subsequent-indent "") (initial-indent "") (break-long-words? #t)) "Returns 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." (lambda (str) ;; replace newlines with spaces (set! str (transform-string str (lambda (c) (char=? c #\nl)) #\space)) ;; expand tabs if they wanted us to... (if expand-tabs? (set! str (expand-tabs str tab-width))) ;; collapse whitespace if they wanted us to... (if collapse-whitespace? (set! str (collapse-repeated-chars str))) ;; drop any whitespace from the front... (set! str (string-trim str)) ;; now start breaking the text into lines... (let loop ((ans '()) (words (split-by-single-words str)) (line initial-indent) (count 0)) (if (null? words) ;; out of words? ...done! (reverse (if (> count 0) (cons line ans) ans)) ;; not out of words...keep going... (let ((length-left (- line-width (string-length line))) (next-word (if (= count 0) (string-trim (car words)) (car words)))) (cond ;; does the next entry fit? ((<= (string-length next-word) length-left) (loop ans (cdr words) (if (and collapse-whitespace? (end-of-sentence? line)) ;; Add an extra space after the period. (string-append line " " next-word) (string-append line next-word)) (+ count 1))) ;; ok, it didn't fit...is there already at least one word on the line? ((> count 0) ;; try to use it for the next line, then... (loop (cons line ans) words subsequent-indent 0)) ;; ok, it didn't fit...and it's the first word. ;; were we told to break up long words? (break-long-words? ;; break the like at the limit, since the user wants us to... (loop (cons (string-append line (substring next-word 0 length-left)) ans) (cons (substring next-word length-left) (cdr words)) subsequent-indent 0)) ;; well, then is it the first word and we *shouldn't* break long words, then... (else (loop (cons (string-append line next-word) ans) (cdr words) subsequent-indent 0)))))))) (define (string->wrapped-lines str . kwargs) "@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}." ((apply make-text-wrapper kwargs) str)) (define (fill-string str . kwargs) "Wraps 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}." (string-join (apply string->wrapped-lines str kwargs) "\n" 'infix)) ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������texinfo/reflection.scm������������������������������������������������������������������������������0000644�����������������00000053211�15253246142�0011064 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; (texinfo reflection) -- documenting Scheme as stexinfo ;;;; ;;;; Copyright (C) 2009, 2010, 2011 Free Software Foundation, Inc. ;;;; Copyright (C) 2003,2004,2009 Andy Wingo <wingo at pobox dot com> ;;;; ;;;; This library 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. ;;;; ;;;; This library 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 library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; ;;; Commentary: ;; ;;Routines to generare @code{stexi} documentation for objects and ;;modules. ;; ;;Note that in this context, an @dfn{object} is just a value associated ;;with a location. It has nothing to do with GOOPS. ;; ;;; Code: (define-module (texinfo reflection) #:use-module ((srfi srfi-1) #:select (append-map)) #:use-module (oop goops) #:use-module (texinfo) #:use-module (texinfo plain-text) #:use-module (srfi srfi-13) #:use-module (ice-9 session) #:use-module (ice-9 documentation) #:use-module (ice-9 optargs) #:use-module ((sxml transform) #:select (pre-post-order)) #:export (module-stexi-documentation script-stexi-documentation object-stexi-documentation package-stexi-standard-copying package-stexi-standard-titlepage package-stexi-generic-menu package-stexi-standard-menu package-stexi-extended-menu package-stexi-standard-prologue package-stexi-documentation package-stexi-documentation-for-include)) ;; List for sorting the definitions in a module (define defs '(deftp defcv defivar deftypeivar defop deftypeop defmethod deftypemethod defopt defvr defvar deftypevr deftypevar deffn deftypefn defmac defspec defun deftypefun)) (define (sort-defs ordering a b) (define (def x) ;; a and b are lists of the form ((anchor ...) (def* ...)...) (cadr x)) (define (name x) (cadr (assq 'name (cdadr (def x))))) (define (priority x) (list-index defs (car (def x)))) (define (order x) (or (list-index ordering (string->symbol (name x))) ;; if the def is not in the list, a big number 1234567890)) (define (compare-in-order proc eq? < . args) (if (not (eq? (proc a) (proc b))) (< (proc a) (proc b)) (or (null? args) (apply compare-in-order args)))) (compare-in-order order = < priority = < name string=? string<=?)) (define (list*-join l infix restfix) (let lp ((in l) (out '())) (cond ((null? in) (reverse! out)) ((symbol? in) (reverse! (cons* in restfix out))) (else (lp (cdr in) (if (null? out) (list (car in)) (cons* (car in) infix out))))))) (define (process-args args) (map (lambda (x) (if (string? x) x (object->string x))) (list*-join (or args '()) " " " . "))) (define (get-proc-args proc) (cond ((procedure-arguments proc) => (lambda (args) (let ((required-args (assq-ref args 'required)) (optional-args (assq-ref args 'optional)) (keyword-args (assq-ref args 'keyword)) (rest-arg (assq-ref args 'rest))) (process-args (append ;; start with the required args... (map symbol->string required-args) ;; add any optional args if needed... (map (lambda (a) (if (list? a) (format #f "[~a = ~s]" (car a) (cadr a)) (format #f "[~a]" a))) optional-args) ;; now the keyword args.. (map (lambda (a) (if (pair? a) (format #f "[~a]" (car a)) (format #f "[#:~a]" a))) keyword-args) ;; now the rest arg... (if rest-arg (list "." (symbol->string rest-arg)) '())))))))) (define (macro-arguments name type transformer) (process-args (case type ((syntax-rules) (let ((patterns (procedure-property transformer 'patterns))) (if (pair? patterns) (car patterns) '()))) ((identifier-syntax) '()) ((defmacro) (or (procedure-property transformer 'defmacro-args) '())) (else ;; a procedural (syntax-case) macro. how to document these? '())))) (define (macro-additional-stexi name type transformer) (case type ((syntax-rules) (let ((patterns (procedure-property transformer 'patterns))) (if (pair? patterns) (map (lambda (x) `(defspecx (% (name ,name) (arguments ,@(process-args x))))) (cdr patterns)) '()))) (else '()))) (define many-space? (make-regexp "[[:space:]][[:space:]][[:space:]]")) (define initial-space? (make-regexp "^[[:space:]]")) (define (string->stexi str) (or (and (or (not str) (string-null? str)) '(*fragment*)) (and (or (string-index str #\@) (and (not (regexp-exec many-space? str)) (not (regexp-exec initial-space? str)))) (false-if-exception (texi-fragment->stexi str))) `(*fragment* (verbatim ,str)))) (define method-formals (and (defined? 'method-formals) method-formals)) (define (method-stexi-arguments method) (cond (method-formals (let lp ((formals (method-formals method)) (specializers (method-specializers method)) (out '())) (define (arg-texinfo formal specializer) `(" (" (var ,(symbol->string formal)) " " (code ,(symbol->string (class-name specializer))) ")")) (cond ((null? formals) (reverse out)) ((pair? formals) (lp (cdr formals) (cdr specializers) (append (reverse (arg-texinfo (car formals) (car specializers))) out))) (else (append (reverse out) (arg-texinfo formals specializers) (list "...")))))) ((method-source method) (let lp ((bindings (cadr (method-source method))) (out '())) (define (arg-texinfo arg) `(" (" (var ,(symbol->string (car arg))) " " (code ,(symbol->string (cadr arg))) ")")) (cond ((null? bindings) (reverse out)) ((not (pair? (car bindings))) (append (reverse out) (arg-texinfo bindings) (list "..."))) (else (lp (cdr bindings) (append (reverse (arg-texinfo (car bindings))) out)))))) (else (warn method) '()))) (define* (object-stexi-documentation object #:optional (name "[unknown]") #:key (force #f)) (if (symbol? name) (set! name (symbol->string name))) (let ((stexi ((lambda (x) (cond ((string? x) (string->stexi x)) ((and (pair? x) (eq? (car x) '*fragment*)) x) (force `(*fragment*)) (else #f))) (object-documentation (if (is-a? object <method>) (method-procedure object) object))))) (define (make-def type args) `(,type (% ,@args) ,@(cdr stexi))) (cond ((not stexi) #f) ;; stexi is now a list, headed by *fragment*. ((and (pair? (cdr stexi)) (pair? (cadr stexi)) (memq (caadr stexi) defs)) ;; it's already a deffoo. stexi) ((is-a? object <class>) (make-def 'deftp `((name ,name) (category "Class")))) ((is-a? object <macro>) (let* ((proc (macro-transformer object)) (type (and proc (procedure-property proc 'macro-type)))) `(defspec (% (name ,name) (arguments ,@(macro-arguments name type proc))) ,@(macro-additional-stexi name type proc) ,@(cdr stexi)))) ((is-a? object <procedure>) (make-def 'defun `((name ,name) (arguments ,@(get-proc-args object))))) ((is-a? object <method>) (make-def 'deffn `((category "Method") (name ,name) (arguments ,@(method-stexi-arguments object))))) ((is-a? object <generic>) `(*fragment* ,(make-def 'deffn `((name ,name) (category "Generic"))) ,@(map (lambda (method) (object-stexi-documentation method name #:force force)) (generic-function-methods object)))) (else (make-def 'defvar `((name ,name))))))) (define (module-name->node-name sym-name) (string-join (map symbol->string sym-name) " ")) ;; this copied from (ice-9 session); need to find a better way (define (module-filename name) (let* ((name (map symbol->string name)) (reverse-name (reverse name)) (leaf (car reverse-name)) (dir-hint-module-name (reverse (cdr reverse-name))) (dir-hint (apply string-append (map (lambda (elt) (string-append elt "/")) dir-hint-module-name)))) (%search-load-path (in-vicinity dir-hint leaf)))) (define (read-module name) (let ((filename (module-filename name))) (if filename (let ((port (open-input-file filename))) (let lp ((out '()) (form (read port))) (if (eof-object? form) (reverse out) (lp (cons form out) (read port))))) '()))) (define (module-export-list sym-name) (define (module-form-export-list form) (and (pair? form) (eq? (car form) 'define-module) (equal? (cadr form) sym-name) (and=> (memq #:export (cddr form)) cadr))) (let lp ((forms (read-module sym-name))) (cond ((null? forms) '()) ((module-form-export-list (car forms)) => identity) (else (lp (cdr forms)))))) (define* (module-stexi-documentation sym-name #:optional %docs-resolver #:key (docs-resolver (or %docs-resolver (lambda (name def) def)))) "Return documentation for the module named @var{sym-name}. The documentation will be formatted as @code{stexi} (@pxref{texinfo,texinfo})." (if %docs-resolver (issue-deprecation-warning "module-stexi-documentation: use #:docs-resolver instead of a positional argument.")) (let* ((commentary (and=> (module-commentary sym-name) (lambda (x) (string-trim-both x #\newline)))) (stexi (string->stexi commentary)) (node-name (module-name->node-name sym-name)) (name-str (with-output-to-string (lambda () (display sym-name)))) (module (resolve-interface sym-name)) (export-list (module-export-list sym-name))) (define (anchor-name sym) (string-append node-name " " (symbol->string sym))) (define (make-defs) (sort! (module-map (lambda (sym var) `((anchor (% (name ,(anchor-name sym)))) ,@((lambda (x) (if (eq? (car x) '*fragment*) (cdr x) (list x))) (if (variable-bound? var) (docs-resolver sym (object-stexi-documentation (variable-ref var) sym #:force #t)) (begin (warn "variable unbound!" sym) `(defvar (% (name ,(symbol->string sym))) "[unbound!]")))))) module) (lambda (a b) (sort-defs export-list a b)))) `(texinfo (% (title ,name-str)) (node (% (name ,node-name))) (section "Overview") ,@(cdr stexi) (section "Usage") ,@(apply append! (make-defs))))) (define (script-stexi-documentation scriptpath) "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})." (let ((commentary (file-commentary scriptpath))) `(texinfo (% (title ,(basename scriptpath))) (node (% (name ,(basename scriptpath)))) ,@(if commentary (cdr (string->stexi (string-trim-both commentary #\newline))) '())))) (cond ((defined? 'add-value-help-handler!) (add-value-help-handler! (lambda (name value) (stexi->plain-text (object-stexi-documentation value name #:force #t)))) (add-name-help-handler! (lambda (name) (and (list? name) (and-map symbol? name) (stexi->plain-text (module-stexi-documentation name))))))) ;; we could be dealing with an old (ice-9 session); fondle it to get ;; module-commentary (define module-commentary (@@ (ice-9 session) module-commentary)) (define (package-stexi-standard-copying name version updated years copyright-holder permissions) "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." `(copying (para "This manual is for " ,name " (version " ,version ", updated " ,updated ")") (para "Copyright " ,(string-join (map number->string years) ",") " " ,copyright-holder) (quotation (para ,permissions)))) (define (package-stexi-standard-titlepage name version updated authors) "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 " `(;(setchapternewpage (% (all "odd"))) makes manuals too long (titlepage (title ,name) (subtitle "version " ,version ", updated " ,updated) ,@(map (lambda (pair) `(author ,(car pair) " (" (email ,(cdr pair)) ")")) authors) (page) (vskip (% (all "0pt plus 1filll"))) (insertcopying)))) (define (package-stexi-generic-menu name entries) "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." (define (make-entry node description) `("* " ,node "::" ,(make-string (max (- 21 (string-length node)) 2) #\space) ,@description "\n")) `((ifnottex (node (% (name "Top"))) (top (% (title ,name))) (insertcopying) (menu ,@(apply append (map (lambda (entry) (if entry (make-entry (car entry) (cdr entry)) '("\n"))) entries)))) (iftex (shortcontents)))) (define (package-stexi-standard-menu name modules module-descriptions extra-entries) "Create a standard top node and menu, suitable for processing by makeinfo." (package-stexi-generic-menu name (let ((module-entries (map cons (map module-name->node-name modules) module-descriptions)) (separate-sections (lambda (x) (if (null? x) x (cons #f x))))) `(,@module-entries ,@(separate-sections extra-entries))))) (define (package-stexi-extended-menu name module-pairs script-pairs extra-entries) "Create an \"extended\" menu, like the standard menu but with a section for scripts." (package-stexi-generic-menu name (let ((module-entries (map cons (map module-name->node-name (map car module-pairs)) (map cdr module-pairs))) (script-entries (map cons (map basename (map car script-pairs)) (map cdr script-pairs))) (separate-sections (lambda (x) (if (null? x) x (cons #f x))))) `(,@module-entries ,@(separate-sections script-entries) ,@(separate-sections extra-entries))))) (define (package-stexi-standard-prologue name filename category description copying titlepage menu) "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}." `(,copying (dircategory (% (category ,category))) (direntry "* " ,name ": (" ,filename "). " ,description ".") ,@titlepage ,@menu)) (define (stexi->chapter stexi) (pre-post-order stexi `((texinfo . ,(lambda (tag attrs node . body) `(,node (chapter ,@(assq-ref (cdr attrs) 'title)) ,@body))) (*text* . ,(lambda (tag text) text)) (*default* . ,(lambda args args))))) (define* (package-stexi-documentation modules name filename prologue epilogue #:key (module-stexi-documentation-args '()) (scripts '())) "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. 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." (define (verify-modules-list l) (define (all pred l) (and (pred (car l)) (or (null? (cdr l)) (all pred (cdr l))))) (false-if-exception (all (lambda (x) (all symbol? x)) modules))) (if (not (verify-modules-list modules)) (error "expected modules to be a list of a list of symbols" modules)) `(texinfo (% (title ,name) (filename ,filename)) ,@prologue ,@(append-map (lambda (mod) (stexi->chapter (apply module-stexi-documentation mod module-stexi-documentation-args))) modules) ,@(append-map (lambda (script) (stexi->chapter (script-stexi-documentation script))) scripts) ,@epilogue)) (define* (package-stexi-documentation-for-include modules module-descriptions #:key (module-stexi-documentation-args '())) "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." (define (make-entry node description) `("* " ,node "::" ,(make-string (max (- 21 (string-length node)) 2) #\space) ,@description "\n")) `(*fragment* (menu ,@(append-map (lambda (modname desc) (make-entry (module-name->node-name modname) desc)) modules module-descriptions)) ,@(append-map (lambda (modname) (stexi->chapter (apply module-stexi-documentation modname module-stexi-documentation-args))) modules))) ;;; arch-tag: bbe2bc03-e16d-4a9e-87b9-55225dc9836c ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������texinfo/indexing.scm��������������������������������������������������������������������������������0000644�����������������00000005770�15253246142�0010546 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; (texinfo indexing) -- indexing stexinfo ;;;; ;;;; Copyright (C) 2009, 2010 Free Software Foundation, Inc. ;;;; Copyright (C) 2003,2004,2009 Andy Wingo <wingo at pobox dot com> ;;;; ;;;; This library 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. ;;;; ;;;; This library 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 library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; ;;; Commentary: ;; ;;@c texinfo formatting ;;Given a piece of stexi, return an index of a specified variety. ;; ;;Note that currently, @code{stexi-extract-index} doesn't differentiate ;;between different kinds of index entries. That's a bug ;) ;;; Code: (define-module (texinfo indexing) #:use-module (sxml simple) #:use-module (srfi srfi-13) #:export (stexi-extract-index)) (define defines '(deftp defcv defivar deftypeivar defop deftypeop defmethod deftypemethod defopt defvr defvar deftypevr deftypevar deffn deftypefn defspec defmac defun deftypefun)) (define indices '(cindex findex vindex kindex pindex tindex)) (define (stexi-extract-index tree manual-name kind) "Given 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)." (let loop ((in tree) (entries '())) (cond ((null? in) entries) ((pair? (car in)) (cond ((and (pair? (cdr in)) (pair? (cadr in)) (eq? (caar in) 'anchor) (memq (caadr in) defines)) (loop (cddr in) (acons (cadr (assq 'name (cdr (cadadr in)))) (cadr (assq 'name (cdadar in))) entries))) ((and (pair? (cdr in)) (pair? (cadr in)) (eq? (caar in) 'anchor) (memq (caadr in) indices)) (loop (cddr in) (acons (sxml->string (cadr in)) (cadr (assq 'name (cdadar in))) entries))) (else (loop (cdr in) (loop (car in) entries))))) (else (loop (cdr in) entries))))) ;;; arch-tag: 216d29d3-1ed9-433f-9c19-0dc4d6b439b6 ��������texinfo/html.scm������������������������������������������������������������������������������������0000644�����������������00000024123�15253246142�0007676 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; (texinfo html) -- translating stexinfo into shtml ;;;; ;;;; Copyright (C) 2009, 2010, 2011 Free Software Foundation, Inc. ;;;; Copyright (C) 2003,2004,2009 Andy Wingo <wingo at pobox dot com> ;;;; ;;;; This library 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. ;;;; ;;;; This library 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 library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; ;;; Commentary: ;; ;;This module implements transformation from @code{stexi} to HTML. Note ;;that the output of @code{stexi->shtml} is actually SXML with the HTML ;;vocabulary. This means that the output can be further processed, and ;;that it must eventually be serialized by ;;@ref{sxml simple sxml->xml,sxml->xml}. ;; ;;References (i.e., the @code{@@ref} family of commands) are resolved by ;;a @dfn{ref-resolver}. ;;@xref{texinfo html add-ref-resolver!,add-ref-resolver!}, for more ;;information. ;; ;;; Code: ;; TODO: nice ref resolving API, default CSS stylesheet (esp. to remove ;; margin-top on dd > p) (define-module (texinfo html) #:use-module (texinfo) #:use-module (sxml transform) #:use-module (ice-9 match) #:use-module (srfi srfi-13) #:export (stexi->shtml add-ref-resolver! urlify)) ;; The caller is responsible for carring the returned list. (define (arg-ref key %-args) (and=> (assq key (cdr %-args)) (lambda (x) (stexi->shtml (cdr x))))) (define (arg-req key %-args) (or (arg-ref key %-args) (error "Missing argument:" key %-args))) (define (car* x) (and x (car x))) (define (urlify str) (string-downcase (string-map (lambda (c) (case c ((#\space #\/ #\:) #\-) (else c))) str))) (define ref-resolvers (list (lambda (node-name manual-name) ;; the default (urlify (string-append (or manual-name "") "#" node-name))))) (define (add-ref-resolver! proc) "Add @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." (set! ref-resolvers (cons proc ref-resolvers))) (define (resolve-ref node manual) (or (or-map (lambda (x) (x node manual)) ref-resolvers) (error "Could not resolve reference" node manual))) (define (ref tag args) (let* ((node (car (arg-req 'node args))) (section (or (car* (arg-ref 'section args)) node)) (manual (car* (arg-ref 'manual args))) (target (resolve-ref node manual))) `(span ,(and=> (assq tag '((xref "See ") (pxref "see "))) cdr) (a (@ (href ,target)) ,section)))) (define (uref tag args) (let ((url (car (arg-req 'url args)))) `(a (@ (href ,url)) ,(or (car* (arg-ref 'title args)) url)))) ;; @!*&%( Mozilla gets confused at an empty ("<a .. />") a tag. Put an ;; empty string here to placate the reptile. (define (node tag args) `(a (@ (name ,(urlify (car (arg-req 'name args))))) "")) (define (def tag args . body) (define (code x) (and x (cons 'code x))) (define (var x) (and x (cons 'var x))) (define (b x) (and x (cons 'b x))) (define (list/spaces . elts) (let lp ((in elts) (out '())) (cond ((null? in) (reverse! out)) ((null? (car in)) (lp (cdr in) out)) (else (lp (cdr in) (cons (car in) (if (null? out) out (cons " " out)))))))) (define (left-td-contents) (list/spaces (code (arg-ref 'data-type args)) (b (list (code (arg-ref 'class args)))) ;; is this right? (b (list (code (arg-ref 'name args)))) (if (memq tag '(deftypeop deftypefn deftypefun)) (code (arg-ref 'arguments args)) (var (list (code (arg-ref 'arguments args))))))) (let* ((category (case tag ((defun) "Function") ((defspec) "Special Form") ((defvar) "Variable") (else (car (arg-req 'category args)))))) `(div (table (@ (cellpadding "0") (cellspacing "0") (width "100%") (class "def")) (tr (td ,@(left-td-contents)) (td (div (@ (class "right")) "[" ,category "]")))) (div (@ (class "description")) ,@body)))) (define (enumerate tag . elts) (define (tonumber start) (let ((c (string-ref start 0))) (cond ((number? c) (string->number start)) (else (1+ (- (char->integer c) (char->integer (if (char-upper-case? c) #\A #\a)))))))) `(ol ,@(if (and (pair? elts) (pair? (car elts)) (eq? (caar elts) '%)) (cons `(@ (start ,@(tonumber (arg-req 'start (car elts))))) ;; (type ,(type (arg-ref 'start (car elts))))) (cdr elts)) elts))) (define (itemize tag . elts) `(ul ,@(match elts ;; Strip `bullet' attribute. ((('% . attrs) . elts) elts) (elts elts)))) (define (acronym tag . elts) (match elts ;; FIXME: Need attribute matcher that doesn't depend on attribute ;; order. ((('% ('acronym text) . _)) `(acronym ,text)))) (define (table tag args . body) (let ((formatter (caar (arg-req 'formatter args)))) (cons 'dl (map (lambda (x) (cond ((and (pair? x) (eq? (car x) 'dt)) (list (car x) (cons formatter (cdr x)))) (else x))) (apply append body))))) (define (entry tag args . body) (let lp ((out `((dt ,@(arg-req 'heading args)))) (body body)) (if (and (pair? body) (pair? (car body)) (eq? (caar body) 'itemx)) (lp (append out `(dt ,@(map stexi->shtml (cdar body)))) (cdr body)) (append out `((dd ,@(map stexi->shtml body))))))) (define tag-replacements '((titlepage div (@ (class "titlepage"))) (title h2 (@ (class "title"))) (subtitle h3 (@ (class "subtitle"))) (author h3 (@ (class "author"))) (example pre) (lisp pre) (smallexample pre (@ (class "smaller"))) (smalllisp pre (@ (class "smaller"))) (cartouche div (@ (class "cartouche"))) (verbatim pre (@ (class "verbatim"))) (chapter h2) (section h3) (subsection h4) (subsubsection h5) (appendix h2) (appendixsec h3) (appendixsubsec h4) (appendixsubsubsec h5) (unnumbered h2) (unnumberedsec h3) (unnumberedsubsec h4) (unnumberedsubsubsec h5) (majorheading h2) (chapheading h2) (heading h3) (subheading h4) (subsubheading h5) (quotation blockquote) (item li) ;; itemx ? (para p) (*fragment* div) ;; should be ok (asis span) (bold b) (sample samp) (samp samp) (code code) (kbd kbd) (key code (@ (class "key"))) (var var) (env code (@ (class "env"))) (file code (@ (class "file"))) (command code (@ (class "command"))) (option code (@ (class "option"))) (url code (@ (class "url"))) (dfn dfn) (cite cite) (acro acronym) (email code (@ (class "email"))) (emph em) (strong strong) (sc span (@ (class "small-caps"))))) (define ignore-list '(page setfilename setchapternewpage iftex ifinfo ifplaintext ifxml sp vskip menu ignore syncodeindex comment c dircategory direntry top shortcontents cindex printindex)) (define rules `((% *preorder* . ,(lambda args args)) ;; Keep these around... (texinfo . ,(lambda (tag args . body) (pre-post-order `(html (@ (xmlns "http://www.w3.org/1999/xhtml")) (head (title ,(car (arg-req 'title args)))) (body ,@body)) `((% *preorder* . ,(lambda args #f)) ;; ... filter out. (*text* . ,(lambda (tag x) x)) (*default* . ,(lambda (tag . body) (cons tag body))))))) (copyright . ,(lambda args '(*ENTITY* "copy"))) (result . ,(lambda args '(*ENTITY* "rArr"))) (xref . ,ref) (ref . ,ref) (pxref . ,ref) (uref . ,uref) (node . ,node) (anchor . ,node) (table . ,table) (enumerate . ,enumerate) (itemize . ,itemize) (acronym . ,acronym) (entry *preorder* . ,entry) (deftp . ,def) (defcv . ,def) (defivar . ,def) (deftypeivar . ,def) (defop . ,def) (deftypeop . ,def) (defmethod . ,def) (deftypemethod . ,def) (defopt . ,def) (defvr . ,def) (defvar . ,def) (deftypevr . ,def) (deftypevar . ,def) (deffn . ,def) (deftypefn . ,def) (defmac . ,def) (defspec . ,def) (defun . ,def) (deftypefun . ,def) (ifnottex . ,(lambda (tag . body) body)) (*text* . ,(lambda (tag x) x)) (*default* . ,(lambda (tag . body) (let ((subst (assq tag tag-replacements))) (cond (subst (append (cdr subst) body)) ((memq tag ignore-list) #f) (else (warn "Don't know how to convert" tag "to HTML") body))))))) (define (stexi->shtml tree) "Transform the stexi @var{tree} into shtml, resolving references via ref-resolvers. See the module commentary for more details." (pre-post-order tree rules)) ;;; arch-tag: ab05f3fe-9981-4a78-b64c-48efcd9983a6 ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������scripts/snarf-check-and-output-texi.scm�������������������������������������������������������������0000644�����������������00000023674�15253246142�0014210 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; snarf-check-and-output-texi --- called by the doc snarfer. ;; Copyright (C) 2001, 2002, 2006, 2011, 2014 Free Software Foundation, Inc. ;; ;; This program 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, or ;; (at your option) any later version. ;; ;; This program 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 software; see the file COPYING.LESSER. If ;; not, write to the Free Software Foundation, Inc., 51 Franklin ;; Street, Fifth Floor, Boston, MA 02110-1301 USA ;;; Author: Michael Livshin ;;; Code: (define-module (scripts snarf-check-and-output-texi) :use-module (ice-9 streams) :use-module (ice-9 match) :export (snarf-check-and-output-texi)) (define %include-in-guild-list #f) (define %summary "Transform snarfed .doc files into texinfo documentation.") ;;; why aren't these in some module? (define-macro (when cond . body) `(if ,cond (begin ,@body))) (define-macro (unless cond . body) `(if (not ,cond) (begin ,@body))) (define *manual-flag* #f) (define (snarf-check-and-output-texi . flags) (if (member "--manual" flags) (set! *manual-flag* #t)) (process-stream (current-input-port))) (define (process-stream port) (let loop ((input (stream-map (match-lambda (('id . s) (cons 'id (string->symbol s))) (('int_dec . s) (cons 'int (string->number s))) (('int_oct . s) (cons 'int (string->number s 8))) (('int_hex . s) (cons 'int (string->number s 16))) ((and x (? symbol?)) (cons x x)) ((and x (? string?)) (cons 'string x)) (x x)) (make-stream (lambda (s) (let loop ((s s)) (cond ((stream-null? s) #t) ((memq (stream-car s) '(eol hash)) (loop (stream-cdr s))) (else (cons (stream-car s) (stream-cdr s)))))) (port->stream port read))))) (unless (stream-null? input) (let ((token (stream-car input))) (if (eq? (car token) 'snarf_cookie) (dispatch-top-cookie (stream-cdr input) loop) (loop (stream-cdr input))))))) (define (dispatch-top-cookie input cont) (when (stream-null? input) (error 'syntax "premature end of file")) (let ((token (stream-car input))) (cond ((eq? (car token) 'brace_open) (consume-multiline (stream-cdr input) cont)) (else (consume-upto-cookie process-singleline input cont))))) (define (consume-upto-cookie process input cont) (let loop ((acc '()) (input input)) (when (stream-null? input) (error 'syntax "premature end of file in directive context")) (let ((token (stream-car input))) (cond ((eq? (car token) 'snarf_cookie) (process (reverse! acc)) (cont (stream-cdr input))) (else (loop (cons token acc) (stream-cdr input))))))) (define (consume-multiline input cont) (begin-multiline) (let loop ((input input)) (when (stream-null? input) (error 'syntax "premature end of file in multiline context")) (let ((token (stream-car input))) (cond ((eq? (car token) 'brace_close) (end-multiline) (cont (stream-cdr input))) (else (consume-upto-cookie process-multiline-directive input loop)))))) (define *file* #f) (define *line* #f) (define *c-function-name* #f) (define *function-name* #f) (define *snarf-type* #f) (define *args* #f) (define *sig* #f) (define *docstring* #f) (define (begin-multiline) (set! *file* #f) (set! *line* #f) (set! *c-function-name* #f) (set! *function-name* #f) (set! *snarf-type* #f) (set! *args* #f) (set! *sig* #f) (set! *docstring* #f)) (define *primitive-deffnx-signature* "@deffnx {Scheme Procedure} ") (define *primitive-deffnx-sig-length* (string-length *primitive-deffnx-signature*)) (define (end-multiline) (let* ((req (car *sig*)) (opt (cadr *sig*)) (var (caddr *sig*)) (all (+ req opt var))) (if (and (not (eqv? *snarf-type* 'register)) (not (= (length *args*) all))) (error (format #f "~A:~A: ~A's C implementation takes ~A args (should take ~A)" *file* *line* *function-name* (length *args*) all))) (let ((nice-sig (if (eq? *snarf-type* 'register) *function-name* (with-output-to-string (lambda () (format #t "~A" *function-name*) (let loop-req ((args *args*) (r 0)) (if (< r req) (begin (format #t " ~A" (car args)) (loop-req (cdr args) (+ 1 r))) (let loop-opt ((o 0) (args args) (tail '())) (if (< o opt) (begin (format #t " [~A" (car args)) (loop-opt (+ 1 o) (cdr args) (cons #\] tail))) (begin (if (> var 0) (format #t " . ~A" (car args))) (let loop-tail ((tail tail)) (if (not (null? tail)) (begin (format #t "~A" (car tail)) (loop-tail (cdr tail)))))))))))))) (scm-deffnx (if (and *manual-flag* (eq? *snarf-type* 'primitive)) (with-output-to-string (lambda () (format #t "@deffnx {C Function} ~A (" *c-function-name*) (unless (null? *args*) (format #t "~A" (car *args*)) (let loop ((args (cdr *args*))) (unless (null? args) (format #t ", ~A" (car args)) (loop (cdr args))))) (format #t ")\n"))) #f))) (format #t "\n ~A\n" *function-name*) (format #t "@c snarfed from ~A:~A\n" *file* *line*) (format #t "@deffn {Scheme Procedure} ~A\n" nice-sig) (let loop ((strings *docstring*) (scm-deffnx scm-deffnx)) (cond ((null? strings)) ((or (not scm-deffnx) (and (>= (string-length (car strings)) *primitive-deffnx-sig-length*) (string=? (substring (car strings) 0 *primitive-deffnx-sig-length*) *primitive-deffnx-signature*))) (display (car strings)) (loop (cdr strings) scm-deffnx)) (else (display scm-deffnx) (loop strings #f)))) (display "\n") (display "@end deffn\n")))) (define (texi-quote s) (let rec ((i 0)) (if (= i (string-length s)) "" (string-append (let ((ss (substring s i (+ i 1)))) (if (string=? ss "@") "@@" ss)) (rec (+ i 1)))))) (define (process-multiline-directive l) (define do-args (match-lambda (('(paren_close . paren_close)) '()) (('(comma . comma) rest ...) (do-args rest)) (('(id . SCM) ('id . name) rest ...) (cons name (do-args rest))) (x (error (format #f "invalid argument syntax: ~A" (map cdr x)))))) (define do-arglist (match-lambda (('(paren_open . paren_open) '(id . void) '(paren_close . paren_close)) '()) (('(paren_open . paren_open) rest ...) (do-args rest)) (x (error (format #f "invalid arglist syntax: ~A" (map cdr x)))))) (define do-command (match-lambda (('cname ('id . name)) (set! *c-function-name* (texi-quote (symbol->string name)))) (('fname ('string . name) ...) (set! *function-name* (texi-quote (apply string-append name)))) (('type ('id . type)) (set! *snarf-type* type)) (('type ('int . num)) (set! *snarf-type* num)) (('location ('string . file) ('int . line)) (set! *file* file) (set! *line* line)) (('arglist rest ...) (set! *args* (do-arglist rest))) (('argsig ('int . req) ('int . opt) ('int . var)) (set! *sig* (list req opt var))) (x (error (format #f "unknown doc attribute: ~A" x))))) (define do-directive (match-lambda ((('id . command) rest ...) (do-command (cons command rest))) ((('string . string) ...) (set! *docstring* string)) (x (error (format #f "unknown doc attribute syntax: ~A" x))))) (do-directive l)) (define (process-singleline l) (define do-argpos (match-lambda ((('id . name) ('int . pos) ('int . line)) (let ((idx (list-index *args* name))) (when idx (unless (= (+ idx 1) pos) (display (format #f "~A:~A: wrong position for argument ~A: ~A (should be ~A)\n" *file* line name pos (+ idx 1)) (current-error-port)))))) (x #f))) (define do-command (match-lambda (('(id . argpos) rest ...) (do-argpos rest)) (x (error (format #f "unknown check: ~A" x))))) (when *function-name* (do-command l))) (define main snarf-check-and-output-texi) ��������������������������������������������������������������������scripts/help.scm������������������������������������������������������������������������������������0000644�����������������00000014434�15253246142�0007701 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; Help --- Show help on guild commands ;;;; Copyright (C) 2009, 2010, 2011 Free Software Foundation, Inc. ;;;; ;;;; This library 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. ;;;; ;;;; This library 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 library; if not, write to the Free ;;;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor, ;;;; Boston, MA 02110-1301 USA ;;; Commentary: ;; Usage: help ;; ;; Show help for Guild scripts. ;;; Code: (define-module (scripts help) #:use-module (ice-9 format) #:use-module (ice-9 documentation) #:use-module ((srfi srfi-1) #:select (fold append-map)) #:export (show-help show-summary show-usage main)) (define %summary "Show a brief help message.") (define %synopsis "help\nhelp --all\nhelp COMMAND") (define %help " Show help on guild commands. With --all, show arcane incantations as well. With COMMAND, show more detailed help for a particular command. ") (define (directory-files dir) (if (and (file-exists? dir) (file-is-directory? dir)) (let ((dir-stream (opendir dir))) (let loop ((new (readdir dir-stream)) (acc '())) (if (eof-object? new) (begin (closedir dir-stream) acc) (loop (readdir dir-stream) (if (or (string=? "." new) ; ignore (string=? ".." new)) ; ignore acc (cons new acc)))))) '())) (define (strip-extensions path) (or-map (lambda (ext) (and (string-suffix? ext path) ;; We really can't be adding e.g. ChangeLog-2008 to the set ;; of runnable scripts, just because "" is a valid ;; extension, by default. So hack around that here. (not (string-null? ext)) (substring path 0 (- (string-length path) (string-length ext))))) (append %load-compiled-extensions %load-extensions))) (define (unique l) (cond ((null? l) l) ((null? (cdr l)) l) ((equal? (car l) (cadr l)) (unique (cdr l))) (else (cons (car l) (unique (cdr l)))))) (define (find-submodules head) (let ((shead (map symbol->string head))) (unique (sort (append-map (lambda (path) (fold (lambda (x rest) (let ((stripped (strip-extensions x))) (if stripped (cons stripped rest) rest))) '() (directory-files (fold (lambda (x y) (in-vicinity y x)) path shead)))) %load-path) string<?)))) (define (list-commands all?) (display "\ Usage: guild COMMAND [ARGS] Run command-line scripts provided by GNU Guile and related programs. Commands: ") (for-each (lambda (name) (let* ((modname `(scripts ,(string->symbol name))) (mod (resolve-module modname #:ensure #f)) (summary (and mod (and=> (module-variable mod '%summary) variable-ref)))) (if (and mod (or all? (let ((v (module-variable mod '%include-in-guild-list))) (if v (variable-ref v) #t)))) (if summary (format #t " ~A ~23t~a\n" name summary) (format #t " ~A\n" name))))) (find-submodules '(scripts))) (format #t " 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' " %guile-bug-report-address)) (define (module-commentary mod) (file-commentary (%search-load-path (module-filename mod)))) (define (module-command-name mod) (symbol->string (car (last-pair (module-name mod))))) (define* (show-usage mod #:optional (port (current-output-port))) (let ((usages (string-split (let ((var (module-variable mod '%synopsis))) (if var (variable-ref var) (string-append (module-command-name mod) " OPTION..."))) #\newline))) (display "Usage: guild " port) (display (car usages)) (newline port) (for-each (lambda (u) (display " guild " port) (display u port) (newline port)) (cdr usages)))) (define* (show-summary mod #:optional (port (current-output-port))) (let ((var (module-variable mod '%summary))) (if var (begin (display (variable-ref var) port) (newline port))))) (define* (show-help mod #:optional (port (current-output-port))) (show-usage mod port) (show-summary mod port) (cond ((module-variable mod '%help) => (lambda (var) (display (variable-ref var) port) (newline port))) ((module-commentary mod) => (lambda (commentary) (newline port) (display commentary port))) (else (format #t "No documentation found for command \"~a\".\n" (module-command-name mod))))) (define %mod (current-module)) (define (main . args) (cond ((null? args) (list-commands #f)) ((or (equal? args '("--all")) (equal? args '("-a"))) (list-commands #t)) ((and (null? (cdr args)) (not (string-prefix? "-" (car args)))) ;; help for particular command (let ((name (car args))) (cond ((resolve-module `(scripts ,(string->symbol name)) #:ensure #f) => (lambda (mod) (show-help mod) (exit 0))) (else (format #t "No command named \"~a\".\n" name) (exit 1))))) (else (show-help %mod (current-error-port)) (exit 1)))) ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������scripts/read-scheme-source.scm����������������������������������������������������������������������0000644�����������������00000027265�15253246142�0012432 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; read-scheme-source --- Read a file, recognizing scheme forms and comments ;; Copyright (C) 2001, 2006, 2011 Free Software Foundation, Inc. ;; ;; This program 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, or ;; (at your option) any later version. ;; ;; This program 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 software; see the file COPYING.LESSER. If ;; not, write to the Free Software Foundation, Inc., 51 Franklin ;; Street, Fifth Floor, Boston, MA 02110-1301 USA ;;; Author: Thien-Thi Nguyen ;;; Commentary: ;; Usage: read-scheme-source FILE1 FILE2 ... ;; ;; This program parses each FILE and writes to stdout sexps that describe the ;; top-level structures of the file: scheme forms, single-line comments, and ;; hash-bang comments. You can further process these (to associate comments ;; w/ scheme forms as a kind of documentation, for example). ;; ;; The output sexps have one of these forms: ;; ;; (quote (filename FILENAME)) ;; ;; (quote (comment :leading-semicolons N ;; :text LINE)) ;; ;; (quote (whitespace :text LINE)) ;; ;; (quote (hash-bang-comment :line LINUM ;; :line-count N ;; :text-list (LINE1 LINE2 ...))) ;; ;; (quote (following-form-properties :line LINUM ;; :line-count N) ;; :type TYPE ;; :signature SIGNATURE ;; :std-int-doc DOCSTRING)) ;; ;; SEXP ;; ;; The first four are straightforward (both FILENAME and LINE are strings sans ;; newline, while LINUM and N are integers). The last two always go together, ;; in that order. SEXP is scheme code processed only by `read' and then ;; `write'. ;; ;; The :type field may be omitted if the form is not recognized. Otherwise, ;; TYPE may be one of: procedure, alias, define-module, variable. ;; ;; The :signature field may be omitted if the form is not a procedure. ;; Otherwise, SIGNATURE is a list showing the procedure's signature. ;; ;; If the type is `procedure' and the form has a standard internal docstring ;; (first body form a string), that is extracted in full -- including any ;; embedded newlines -- and recorded by field :std-int-doc. ;; ;; ;; Usage from a program: The output list of sexps can be retrieved by scheme ;; programs w/o having to capture stdout, like so: ;; ;; (use-modules (scripts read-scheme-source)) ;; (define source-forms (read-scheme-source-silently "FILE1" "FILE2" ...)) ;; ;; There are also two convenience procs exported for use by Scheme programs: ;; ;; (clump FORMS) --- filter FORMS combining contiguous comment forms that ;; have the same number of leading semicolons. ;; ;; (quoted? SYM FORM) --- see if FORM looks like: "(quote (SYM ...))", parse ;; the ":tags", and return alist of (TAG . VAL) elems. ;; ;; TODO: Add option "--clump-comments", maybe w/ different clumping styles. ;; Make `annotate!' extensible. ;;; Code: (define-module (scripts read-scheme-source) :use-module (ice-9 rdelim) :export (read-scheme-source read-scheme-source-silently quoted? clump)) (define %include-in-guild-list #f) (define %summary "Print a parsed representation of a Scheme file.") ;; Try to figure out what FORM is and its various attributes. ;; Call proc NOTE! with key (a symbol) and value. ;; (define (annotate! form note!) (cond ((and (list? form) (< 2 (length form)) (eq? 'define (car form)) (pair? (cadr form)) (symbol? (caadr form))) (note! ':type 'procedure) (note! ':signature (cadr form)) (and (< 3 (length form)) (string? (caddr form)) (note! ':std-int-doc (caddr form)))) ((and (list? form) (< 2 (length form)) (eq? 'define (car form)) (symbol? (cadr form)) (list? (caddr form)) (< 3 (length (caddr form))) (eq? 'lambda (car (caddr form))) (string? (caddr (caddr form)))) (note! ':type 'procedure) (note! ':signature (cons (cadr form) (cadr (caddr form)))) (note! ':std-int-doc (caddr (caddr form)))) ((and (list? form) (= 3 (length form)) (eq? 'define (car form)) (symbol? (cadr form)) (symbol? (caddr form))) (note! ':type 'alias)) ((and (list? form) (eq? 'define-module (car form))) (note! ':type 'define-module)) ;; Add other types here. (else (note! ':type 'variable)))) ;; Process FILE, calling NB! on parsed top-level elements. ;; Recognized: #!-!# and regular comments in addition to normal forms. ;; (define (process file nb!) (nb! `'(filename ,file)) (let ((hash-bang-rx (make-regexp "^#!")) (bang-hash-rx (make-regexp "^!#")) (all-comment-rx (make-regexp "^[ \t]*(;+)")) (all-whitespace-rx (make-regexp "^[ \t]*$")) (p (open-input-file file))) (let loop ((n (1+ (port-line p))) (line (read-line p))) (or (not n) (eof-object? line) (begin (cond ((regexp-exec hash-bang-rx line) (let loop ((line (read-line p)) (text (list line))) (if (or (eof-object? line) (regexp-exec bang-hash-rx line)) (nb! `'(hash-bang-comment :line ,n :line-count ,(1+ (length text)) :text-list ,(reverse (cons line text)))) (loop (read-line p) (cons line text))))) ((regexp-exec all-whitespace-rx line) (nb! `'(whitespace :text ,line))) ((regexp-exec all-comment-rx line) => (lambda (m) (nb! `'(comment :leading-semicolons ,(let ((m1 (vector-ref m 1))) (- (cdr m1) (car m1))) :text ,line)))) (else (unread-string line p) (let* ((form (read p)) (count (- (port-line p) n)) (props (let* ((props '()) (prop+ (lambda args (set! props (append props args))))) (annotate! form prop+) props))) (or (= count 1) ; ugh (begin (read-line p) (set! count (1+ count)))) (nb! `'(following-form-properties :line ,n :line-count ,count ,@props)) (nb! form)))) (loop (1+ (port-line p)) (read-line p))))))) ;;; entry points (define (read-scheme-source-silently . files) "See commentary in module (scripts read-scheme-source)." (let* ((res '())) (for-each (lambda (file) (process file (lambda (e) (set! res (cons e res))))) files) (reverse res))) (define (read-scheme-source . files) "See commentary in module (scripts read-scheme-source)." (for-each (lambda (file) (process file (lambda (e) (write e) (newline)))) files)) ;; Recognize: (quote (SYM :TAG1 VAL1 :TAG2 VAL2 ...)) ;; and return alist: ((TAG1 . VAL1) (TAG2 . VAL2) ...) ;; where the tags are symbols. ;; (define (quoted? sym form) (and (list? form) (= 2 (length form)) (eq? 'quote (car form)) (let ((inside (cadr form))) (and (list? inside) (< 0 (length inside)) (eq? sym (car inside)) (let loop ((ls (cdr inside)) (alist '())) (if (null? ls) alist ; retval (let ((first (car ls))) (or (symbol? first) (error "bad list!")) (loop (cddr ls) (acons (string->symbol (substring (symbol->string first) 1)) (cadr ls) alist))))))))) ;; Filter FORMS, combining contiguous comment forms that have the same number ;; of leading semicolons. Do not include in them whitespace lines. ;; Whitespace lines outside of such comment groupings are ignored, as are ;; hash-bang comments. All other forms are passed through unchanged. ;; (define (clump forms) (let loop ((forms forms) (acc '()) (pass-this-one-through? #f)) (if (null? forms) (reverse acc) ; retval (let ((form (car forms))) (cond (pass-this-one-through? (loop (cdr forms) (cons form acc) #f)) ((quoted? 'following-form-properties form) (loop (cdr forms) (cons form acc) #t)) ((quoted? 'whitespace form) ;;; ignore (loop (cdr forms) acc #f)) ((quoted? 'hash-bang-comment form) ;;; ignore for now (loop (cdr forms) acc #f)) ((quoted? 'comment form) => (lambda (alist) (let cloop ((inner-forms (cdr forms)) (level (assq-ref alist 'leading-semicolons)) (text (list (assq-ref alist 'text)))) (let ((up (lambda () (loop inner-forms (cons (cons level (reverse text)) acc) #f)))) (if (null? inner-forms) (up) (let ((inner-form (car inner-forms))) (cond ((quoted? 'comment inner-form) => (lambda (inner-alist) (let ((new-level (assq-ref inner-alist 'leading-semicolons))) (if (= new-level level) (cloop (cdr inner-forms) level (cons (assq-ref inner-alist 'text) text)) (up))))) (else (up))))))))) (else (loop (cdr forms) (cons form acc) #f))))))) ;;; script entry point (define main read-scheme-source) ;;; read-scheme-source ends here �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������scripts/read-rfc822.scm�����������������������������������������������������������������������������0000644�����������������00000011733�15253246142�0010667 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; read-rfc822 --- Validate RFC822 file by displaying it to stdout ;; Copyright (C) 2002, 2004, 2006, 2011 Free Software Foundation, Inc. ;; ;; This program 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, or ;; (at your option) any later version. ;; ;; This program 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 software; see the file COPYING.LESSER. If ;; not, write to the Free Software Foundation, Inc., 51 Franklin ;; Street, Fifth Floor, Boston, MA 02110-1301 USA ;;; Author: Thien-Thi Nguyen <ttn@gnu.org> ;;; Commentary: ;; Usage: read-rfc822 FILE ;; ;; Read FILE, assumed to be in RFC822 format, and display it to stdout. ;; This is not very interesting, admittedly. ;; ;; For Scheme programming, this module exports two procs: ;; (read-rfc822 . args) ; only first arg used ;; (read-rfc822-silently port) ;; ;; Parse FILE (a string) or PORT, respectively, and return a query proc that ;; takes a symbol COMP, and returns the message component COMP. Supported ;; values for COMP (and the associated query return values) are: ;; from -- #f (reserved for future mbox support) ;; headers -- alist of (HEADER-SYMBOL . "VALUE-STRING") pairs, in order ;; body -- rest of the mail message, a string ;; body-lines -- rest of the mail message, as a list of lines ;; Any other query results in a "bad component" error. ;; ;; TODO: Add "-m" option (mbox support). ;;; Code: (define-module (scripts read-rfc822) :use-module (ice-9 regex) :use-module (ice-9 rdelim) :autoload (srfi srfi-13) (string-join) :export (read-rfc822 read-rfc822-silently)) (define %include-in-guild-list #f) (define %summary "Validate an RFC822-style file.") (define from-line-rx (make-regexp "^From ")) (define header-name-rx (make-regexp "^([^:]+):[ \t]*")) (define header-cont-rx (make-regexp "^[ \t]+")) (define option #f) ; for future "-m" (define (drain-message port) (let loop ((line (read-line port)) (acc '())) (cond ((eof-object? line) (reverse acc)) ((and option (regexp-exec from-line-rx line)) (for-each (lambda (c) (unread-char c port)) (cons #\newline (reverse (string->list line)))) (reverse acc)) (else (loop (read-line port) (cons line acc)))))) (define (parse-message port) (let* ((from (and option (match:suffix (regexp-exec from-line-rx (read-line port))))) (body-lines #f) (body #f) (headers '()) (add-header! (lambda (reversed-hlines) (let* ((hlines (reverse reversed-hlines)) (first (car hlines)) (m (regexp-exec header-name-rx first)) (name (string->symbol (match:substring m 1))) (data (string-join (cons (substring first (match:end m)) (cdr hlines)) " "))) (set! headers (acons name data headers)))))) ;; "From " is only one line (let loop ((line (read-line port)) (current-header #f)) (cond ((string-null? line) (and current-header (add-header! current-header)) (set! body-lines (drain-message port))) ((regexp-exec header-cont-rx line) => (lambda (m) (loop (read-line port) (cons (match:suffix m) current-header)))) (else (and current-header (add-header! current-header)) (loop (read-line port) (list line))))) (set! headers (reverse headers)) (lambda (component) (case component ((from) from) ((body-lines) body-lines) ((headers) headers) ((body) (or body (begin (set! body (string-join body-lines "\n" 'suffix)) body))) (else (error "bad component:" component)))))) (define (read-rfc822-silently port) (parse-message port)) (define (display-rfc822 parse) (cond ((parse 'from) => (lambda (from) (format #t "From ~A\n" from)))) (for-each (lambda (header) (format #t "~A: ~A\n" (car header) (cdr header))) (parse 'headers)) (format #t "\n~A" (parse 'body))) (define (read-rfc822 . args) (let ((parse (read-rfc822-silently (open-file (car args) OPEN_READ)))) (display-rfc822 parse)) #t) (define main read-rfc822) ;;; read-rfc822 ends here �������������������������������������scripts/generate-autoload.scm�����������������������������������������������������������������������0000644�����������������00000013367�15253246142�0012355 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; generate-autoload --- Display define-module form with autoload info ;; Copyright (C) 2001, 2006, 2011 Free Software Foundation, Inc. ;; ;; This program 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, or ;; (at your option) any later version. ;; ;; This program 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 software; see the file COPYING.LESSER. If ;; not, write to the Free Software Foundation, Inc., 51 Franklin ;; Street, Fifth Floor, Boston, MA 02110-1301 USA ;;; Author: Thien-Thi Nguyen ;;; Commentary: ;; Usage: generate-autoload [OPTIONS] FILE1 FILE2 ... ;; ;; The autoload form is displayed to standard output: ;; ;; (define-module (guile-user) ;; :autoload (ZAR FOO) (FOO-1 FOO-2 ...) ;; : ;; : ;; :autoload (ZAR BAR) (BAR-1 BAR-2 ...)) ;; ;; For each file, a symbol triggers an autoload if it is found in one ;; of these situations: ;; - in the `:export' clause of a `define-module' form ;; - in a top-level `export' or `export-syntax' form ;; - in a `define-public' form ;; - in a `defmacro-public' form ;; ;; The module name is inferred from the `define-module' form. If either the ;; module name or the exports list cannot be determined, no autoload entry is ;; generated for that file. ;; ;; Options: ;; --target MODULE-NAME -- Use MODULE-NAME instead of `(guile-user)'. ;; Note that some shells may require you to ;; quote the argument to handle parentheses ;; and spaces. ;; ;; Usage examples from Scheme code as a module: ;; (use-modules (scripts generate-autoload)) ;; (generate-autoload "generate-autoload") ;; (generate-autoload "--target" "(my module)" "generate-autoload") ;; (apply generate-autoload "--target" "(my module)" '("foo" "bar" "baz")) ;;; Code: (define-module (scripts generate-autoload) :export (generate-autoload)) (define %include-in-guild-list #f) (define %summary "Generate #:autoload clauses for a module.") (define (autoload-info file) (let ((p (open-input-file file))) (let loop ((form (read p)) (module-name #f) (exports '())) (if (eof-object? form) (and module-name (not (null? exports)) (list module-name exports)) ; ret (cond ((and (list? form) (< 1 (length form)) (eq? 'define-module (car form))) (loop (read p) (cadr form) (cond ((member ':export form) => (lambda (val) (append (cadr val) exports))) (else exports)))) ((and (list? form) (< 1 (length form)) (memq (car form) '(export export-syntax))) (loop (read p) module-name (append (cdr form) exports))) ((and (list? form) (< 2 (length form)) (eq? 'define-public (car form)) (list? (cadr form)) (symbol? (caadr form))) (loop (read p) module-name (cons (caadr form) exports))) ((and (list? form) (< 2 (length form)) (eq? 'define-public (car form)) (symbol? (cadr form))) (loop (read p) module-name (cons (cadr form) exports))) ((and (list? form) (< 3 (length form)) (eq? 'defmacro-public (car form)) (symbol? (cadr form))) (loop (read p) module-name (cons (cadr form) exports))) (else (loop (read p) module-name exports))))))) (define (generate-autoload . args) (let* ((module-count 0) (syms-count 0) (target-override (cond ((member "--target" args) => cadr) (else #f))) (files (if target-override (cddr args) (cdr args)))) (display ";;; do not edit --- generated ") (display (strftime "%Y-%m-%d %H:%M:%S" (localtime (current-time)))) (newline) (display "(define-module ") (display (or target-override "(guile-user)")) (for-each (lambda (file) (cond ((autoload-info file) => (lambda (info) (and info (apply (lambda (module-name exports) (set! module-count (1+ module-count)) (set! syms-count (+ (length exports) syms-count)) (for-each display (list "\n :autoload " module-name " " exports))) info)))))) files) (display ")") (newline) (for-each display (list " ;;; " syms-count " symbols in " module-count " modules\n")))) (define main generate-autoload) ;;; generate-autoload ends here �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������scripts/frisk.scm�����������������������������������������������������������������������������������0000644�����������������00000026676�15253246142�0010102 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; frisk --- Grok the module interfaces of a body of files ;; Copyright (C) 2002, 2006, 2010, 2011 Free Software Foundation, Inc. ;; ;; This program 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, or ;; (at your option) any later version. ;; ;; This program 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 software; see the file COPYING.LESSER. If ;; not, write to the Free Software Foundation, Inc., 51 Franklin ;; Street, Fifth Floor, Boston, MA 02110-1301 USA ;;; Author: Thien-Thi Nguyen <ttn@gnu.org> ;;; Commentary: ;; Usage: frisk [options] file ... ;; ;; Analyze FILE... module interfaces in aggregate (as a "body"), ;; and display a summary. Modules that are `define-module'd are ;; considered "internal" (and those not, "external"). When module X ;; uses module Y, X is said to be "(a) downstream of" Y, and Y is ;; "(an) upstream of" X. ;; ;; Normally, the summary displays external modules and their internal ;; downstreams, as this is the usual question asked by a body. There ;; are several options that modify this output. ;; ;; -u, --upstream show upstream edges ;; -d, --downstream show downstream edges (default) ;; -i, --internal show internal modules ;; -x, --external show external modules (default) ;; ;; If given both `upstream' and `downstream' options ("frisk -ud"), the ;; output is formatted: "C MODULE --- UP-LS --- DOWN-LS", where C is ;; either `i' or `x', and each element of UP-LS and DOWN-LS is (TYPE ;; MODULE-NAME ...). ;; ;; In all other cases, the "C MODULE" occupies its own line, and ;; subsequent lines list the up- or downstream edges, respectively, ;; indented by some non-zero amount of whitespace. ;; ;; Top-level `use-modules' (or `load' or 'primitive-load') forms in a ;; file that do not follow a `define-module' result an edge where the ;; downstream is the "default module", normally `(guile-user)'. This ;; can be set to another value by using: ;; ;; -m, --default-module MOD set MOD as the default module ;; Usage from a Scheme Program: (use-modules (scripts frisk)) ;; ;; Module export list: ;; (frisk . args) ;; (make-frisker . options) => (lambda (files) ...) [see below] ;; (mod-up-ls module) => upstream edges ;; (mod-down-ls module) => downstream edges ;; (mod-int? module) => is the module internal? ;; (edge-type edge) => symbol: {regular,autoload,computed} ;; (edge-up edge) => upstream module ;; (edge-down edge) => downstream module ;; ;; OPTIONS is an alist. Recognized keys are: ;; default-module ;; ;; `make-frisker' returns a procedure that takes a list of files, the ;; FRISKER. FRISKER returns a closure, REPORT, that takes one of the ;; keys: ;; modules -- entire list of modules ;; internal -- list of internal modules ;; external -- list of external modules ;; i-up -- list of modules upstream of internal modules ;; x-up -- list of modules upstream of external modules ;; i-down -- list of modules downstream of internal modules ;; x-down -- list of modules downstream of external modules ;; edges -- list of edges ;; Note that `x-up' should always be null, since by (lack of!) ;; definition, we only know external modules by reference. ;; ;; The module and edge objects managed by REPORT can be examined in ;; detail by using the other (self-explanatory) procedures. Be careful ;; not to confuse a freshly consed list of symbols, like `(a b c)' with ;; the module `(a b c)'. If you want to find the module by that name, ;; try: (cond ((member '(a b c) (REPORT 'modules)) => car)). ;; TODO: Make "frisk -ud" output less ugly. ;; Consider default module as internal; add option to invert. ;; Support `edge-misc' data. ;;; Code: (define-module (scripts frisk) :autoload (ice-9 getopt-long) (getopt-long) :use-module ((srfi srfi-1) :select (filter remove)) :export (frisk make-frisker mod-up-ls mod-down-ls mod-int? edge-type edge-up edge-down)) (define %include-in-guild-list #f) (define %summary "Show dependency information for a module.") (define *default-module* '(guile-user)) (define (grok-proc default-module note-use!) (lambda (filename) (let* ((p (open-file filename "r")) (next (lambda () (read p))) (ferret (lambda (use) ;;; handle "((foo bar) :select ...)" (let ((maybe (car use))) (if (list? maybe) maybe use)))) (curmod #f)) (let loop ((form (next))) (cond ((eof-object? form)) ((not (list? form)) (loop (next))) (else (case (car form) ((define-module) (let ((module (cadr form))) (set! curmod module) (note-use! 'def module #f) (let loop ((ls form)) (or (null? ls) (case (car ls) ((#:use-module :use-module) (note-use! 'regular module (ferret (cadr ls))) (loop (cddr ls))) ((#:autoload :autoload) (note-use! 'autoload module (cadr ls)) (loop (cdddr ls))) (else (loop (cdr ls)))))))) ((use-modules) (for-each (lambda (use) (note-use! 'regular (or curmod default-module) (ferret use))) (cdr form))) ((load primitive-load) (note-use! 'computed (or curmod default-module) (let ((file (cadr form))) (if (string? file) file (format #f "[computed in ~A]" filename)))))) (loop (next)))))))) (define up-ls (make-object-property)) ; list (define dn-ls (make-object-property)) ; list (define int? (make-object-property)) ; defined via `define-module' (define mod-up-ls up-ls) (define mod-down-ls dn-ls) (define mod-int? int?) (define (i-or-x module) (if (int? module) 'i 'x)) (define edge-type (make-object-property)) ; symbol (define (make-edge type up down) (let ((new (cons up down))) (set! (edge-type new) type) new)) (define edge-up car) (define edge-down cdr) (define (up-ls+! m new) (set! (up-ls m) (cons new (up-ls m)))) (define (dn-ls+! m new) (set! (dn-ls m) (cons new (dn-ls m)))) (define (make-body alist) (lambda (key) (assq-ref alist key))) (define (scan default-module files) (let* ((modules (list)) (edges (list)) (intern (lambda (module) (cond ((member module modules) => car) (else (set! (up-ls module) (list)) (set! (dn-ls module) (list)) (set! modules (cons module modules)) module)))) (grok (grok-proc default-module (lambda (type d u) (let ((d (intern d))) (if (eq? type 'def) (set! (int? d) #t) (let* ((u (intern u)) (edge (make-edge type u d))) (set! edges (cons edge edges)) (up-ls+! d edge) (dn-ls+! u edge)))))))) (for-each grok files) (make-body `((modules . ,modules) (internal . ,(filter int? modules)) (external . ,(remove int? modules)) (i-up . ,(filter int? (map edge-down edges))) (x-up . ,(remove int? (map edge-down edges))) (i-down . ,(filter int? (map edge-up edges))) (x-down . ,(remove int? (map edge-up edges))) (edges . ,edges))))) (define (make-frisker . options) (let ((default-module (or (assq-ref options 'default-module) *default-module*))) (lambda (files) (scan default-module files)))) (define (dump-updown modules) (for-each (lambda (m) (format #t "~A ~A --- ~A --- ~A\n" (i-or-x m) m (map (lambda (edge) (cons (edge-type edge) (edge-up edge))) (up-ls m)) (map (lambda (edge) (cons (edge-type edge) (edge-down edge))) (dn-ls m)))) modules)) (define (dump-up modules) (for-each (lambda (m) (format #t "~A ~A\n" (i-or-x m) m) (for-each (lambda (edge) (format #t "\t\t\t ~A\t~A\n" (edge-type edge) (edge-up edge))) (up-ls m))) modules)) (define (dump-down modules) (for-each (lambda (m) (format #t "~A ~A\n" (i-or-x m) m) (for-each (lambda (edge) (format #t "\t\t\t ~A\t~A\n" (edge-type edge) (edge-down edge))) (dn-ls m))) modules)) (define (frisk . args) (let* ((parsed-opts (getopt-long (cons "frisk" args) ;;; kludge '((upstream (single-char #\u)) (downstream (single-char #\d)) (internal (single-char #\i)) (external (single-char #\x)) (default-module (single-char #\m) (value #t))))) (=u (option-ref parsed-opts 'upstream #f)) (=d (option-ref parsed-opts 'downstream #f)) (=i (option-ref parsed-opts 'internal #f)) (=x (option-ref parsed-opts 'external #f)) (files (option-ref parsed-opts '() (list))) (report ((make-frisker `(default-module . ,(option-ref parsed-opts 'default-module *default-module*))) files)) (modules (report 'modules)) (internal (report 'internal)) (external (report 'external)) (edges (report 'edges))) (format #t "~A ~A, ~A ~A (~A ~A, ~A ~A), ~A ~A\n\n" (length files) "files" (length modules) "modules" (length internal) "internal" (length external) "external" (length edges) "edges") ((cond ((and =u =d) dump-updown) (=u dump-up) (else dump-down)) (cond ((and =i =x) modules) (=i internal) (else external))))) (define main frisk) ;;; frisk ends here ������������������������������������������������������������������scripts/api-diff.scm��������������������������������������������������������������������������������0000644�����������������00000016766�15253246142�0010442 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; api-diff --- diff guile-api.alist files ;; Copyright (C) 2002, 2006, 2011 Free Software Foundation, Inc. ;; ;; This program 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, or ;; (at your option) any later version. ;; ;; This program 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 software; see the file COPYING.LESSER. If ;; not, write to the Free Software Foundation, Inc., 51 Franklin ;; Street, Fifth Floor, Boston, MA 02110-1301 USA ;;; Author: Thien-Thi Nguyen <ttn@gnu.org> ;;; Commentary: ;; Usage: api-diff [-d GROUPS] ALIST-FILE-A ALIST-FILE-B ;; ;; Read in the alists from files ALIST-FILE-A and ALIST-FILE-B ;; and display a (count) summary of the groups defined therein. ;; Optional arg "--details" (or "-d") specifies a comma-separated ;; list of groups, in which case api-diff displays instead the ;; elements added and deleted for each of the specified groups. ;; ;; For scheme programming, this module exports the proc: ;; (api-diff A-file B-file) ;; ;; Note that the convention is that the "older" alist/file is ;; specified first. ;; ;; TODO: Develop scheme interface. ;;; Code: (define-module (scripts api-diff) :use-module (ice-9 common-list) :use-module (ice-9 format) :use-module (ice-9 getopt-long) :autoload (srfi srfi-13) (string-tokenize) :export (api-diff)) (define %include-in-guild-list #f) (define %summary "Show differences between two scan-api files.") (define (read-alist-file file) (with-input-from-file file (lambda () (read)))) (define put set-object-property!) (define get object-property) (define (read-api-alist-file file) (let* ((alist (read-alist-file file)) (meta (assq-ref alist 'meta)) (interface (assq-ref alist 'interface))) (put interface 'meta meta) (put interface 'groups (let ((ht (make-hash-table 31))) (for-each (lambda (group) (hashq-set! ht group '())) (assq-ref meta 'groups)) ht)) interface)) (define (hang-by-the-roots interface) (let ((ht (get interface 'groups))) (for-each (lambda (x) (for-each (lambda (group) (hashq-set! ht group (cons (car x) (hashq-ref ht group)))) (assq-ref x 'groups))) interface)) interface) (define (diff? a b) (let ((result (set-difference a b))) (if (null? result) #f ; CL weenies bite me result))) (define (diff+note! a b note-removals note-additions note-same) (let ((same? #t)) (cond ((diff? a b) => (lambda (x) (note-removals x) (set! same? #f)))) (cond ((diff? b a) => (lambda (x) (note-additions x) (set! same? #f)))) (and same? (note-same)))) (define (group-diff i-old i-new . options) (let* ((i-old (hang-by-the-roots i-old)) (g-old (hash-fold acons '() (get i-old 'groups))) (g-old-names (map car g-old)) (i-new (hang-by-the-roots i-new)) (g-new (hash-fold acons '() (get i-new 'groups))) (g-new-names (map car g-new))) (cond ((null? options) (diff+note! g-old-names g-new-names (lambda (removals) (format #t "groups-removed: ~A\n" removals)) (lambda (additions) (format #t "groups-added: ~A\n" additions)) (lambda () #t)) (for-each (lambda (group) (let* ((old (assq-ref g-old group)) (new (assq-ref g-new group)) (old-count (and old (length old))) (new-count (and new (length new))) (delta (and old new (- new-count old-count)))) (format #t " ~5@A ~5@A : " (or old-count "-") (or new-count "-")) (cond ((and old new) (let ((add-count 0) (sub-count 0)) (diff+note! old new (lambda (subs) (set! sub-count (length subs))) (lambda (adds) (set! add-count (length adds))) (lambda () #t)) (format #t "~5@D ~5@D : ~5@D" add-count (- sub-count) delta))) (else (format #t "~5@A ~5@A : ~5@A" "-" "-" "-"))) (format #t " ~A\n" group))) (sort (union g-old-names g-new-names) (lambda (a b) (string<? (symbol->string a) (symbol->string b)))))) ((assq-ref options 'details) => (lambda (groups) (for-each (lambda (group) (let* ((old (or (assq-ref g-old group) '())) (new (or (assq-ref g-new group) '())) (>>! (lambda (label ls) (format #t "~A ~A:\n" group label) (for-each (lambda (x) (format #t " ~A\n" x)) ls)))) (diff+note! old new (lambda (removals) (>>! 'removals removals)) (lambda (additions) (>>! 'additions additions)) (lambda () (format #t "~A: no changes\n" group))))) groups))) (else (error "api-diff: group-diff: bad options"))))) (define (api-diff . args) (let* ((p (getopt-long (cons 'api-diff args) '((details (single-char #\d) (value #t)) ;; Add options here. ))) (rest (option-ref p '() '("/dev/null" "/dev/null"))) (i-old (read-api-alist-file (car rest))) (i-new (read-api-alist-file (cadr rest))) (options '())) (cond ((option-ref p 'details #f) => (lambda (groups) (set! options (cons (cons 'details (map string->symbol (string-tokenize groups #\,))) options))))) (apply group-diff i-old i-new options))) (define main api-diff) ;;; api-diff ends here ����������scripts/summarize-guile-TODO.scm��������������������������������������������������������������������0000644�����������������00000020404�15253246142�0012625 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; summarize-guile-TODO --- Display Guile TODO list in various ways ;; Copyright (C) 2002, 2006, 2010, 2011 Free Software Foundation, Inc. ;; ;; This program 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, or ;; (at your option) any later version. ;; ;; This program 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 software; see the file COPYING.LESSER. If ;; not, write to the Free Software Foundation, Inc., 51 Franklin ;; Street, Fifth Floor, Boston, MA 02110-1301 USA ;;; Author: Thien-Thi Nguyen <ttn@gnu.org> ;;; Commentary: ;; Usage: summarize-guile-TODO TODOFILE ;; ;; The TODOFILE is typically Guile's (see workbook/tasks/README) ;; presumed to serve as our signal to ourselves (lest we want real ;; bosses hassling us) wrt to the overt message "items to do" as well as ;; the messages that can be inferred from its structure. ;; ;; This program reads TODOFILE and displays interpretations on its ;; structure, including registered markers and ownership, in various ;; ways. ;; ;; A primary interest in any task is its parent task. The output ;; summarization by default lists every item and its parent chain. ;; Top-level parents are not items. You can use these command-line ;; options to modify the selection and display (selection criteria ;; are ANDed together): ;; ;; -i, --involved USER -- select USER-involved items ;; -p, --personal USER -- select USER-responsible items ;; -t, --todo -- select unfinished items (status "-") ;; -d, --done -- select finished items (status "+") ;; -r, --review -- select review items (marker "R") ;; ;; -w, --who -- also show who is associated w/ the item ;; -n, --no-parent -- do not show parent chain ;; ;; ;; Usage from a Scheme program: ;; (summarize-guile-TODO . args) ; uses first arg only ;; ;; ;; Bugs: (1) Markers are scanned in sequence: D R X N%. This means "XD" ;; and the like are completely dropped. However, such strings ;; are unlikely to be used if the markers are chosen to be ;; somewhat exclusive, which is currently the case for D R X. ;; N% used w/ these needs to be something like: "D25%" (this ;; means discussion accounts for 1/4 of the task). ;; ;; TODO: Implement more various ways. (Patches welcome.) ;; Add support for ORing criteria. ;;; Code: (debug-enable 'backtrace) (define-module (scripts summarize-guile-TODO) :use-module (scripts read-text-outline) :use-module (ice-9 getopt-long) :autoload (srfi srfi-13) (string-tokenize) ; string library :autoload (srfi srfi-14) (char-set) ; string library :autoload (ice-9 common-list) (remove-if-not) :export (summarize-guile-TODO)) (define %include-in-guild-list #f) (define %summary "A quaint relic of the past.") (define put set-object-property!) (define get object-property) (define (as-leaf x) (cond ((get x 'who) => (lambda (who) (put x 'who (map string->symbol (string-tokenize who (char-set #\:))))))) (cond ((get x 'pct-done) => (lambda (pct-done) (put x 'pct-done (string->number pct-done))))) x) (define (hang-by-the-leaves trees) (let ((leaves '())) (letrec ((hang (lambda (tree parent) (if (list? tree) (begin (put (car tree) 'parent parent) (for-each (lambda (child) (hang child (car tree))) (cdr tree))) (begin (put tree 'parent parent) (set! leaves (cons (as-leaf tree) leaves))))))) (for-each (lambda (tree) (hang tree #f)) trees)) leaves)) (define (read-TODO file) (hang-by-the-leaves ((make-text-outline-reader "(([ ][ ])*)([-+])(D*)(R*)(X*)(([0-9]+)%)* *([^[]*)(\\[(.*)\\])*" '((level-substring-divisor . 2) (body-submatch-number . 9) (extra-fields . ((status . 3) (design? . 4) (review? . 5) (extblock? . 6) (pct-done . 8) (who . 11))))) (open-file file "r")))) (define (select-items p items) (let ((sub '())) (cond ((option-ref p 'involved #f) => (lambda (u) (let ((u (string->symbol u))) (set! sub (cons (lambda (x) (and (get x 'who) (memq u (get x 'who)))) sub)))))) (cond ((option-ref p 'personal #f) => (lambda (u) (let ((u (string->symbol u))) (set! sub (cons (lambda (x) (cond ((get x 'who) => (lambda (ls) (eq? (car (reverse ls)) u))) (else #f))) sub)))))) (for-each (lambda (pair) (cond ((option-ref p (car pair) #f) (set! sub (cons (cdr pair) sub))))) `((todo . ,(lambda (x) (string=? (get x 'status) "-"))) (done . ,(lambda (x) (string=? (get x 'status) "+"))) (review . ,(lambda (x) (get x 'review?))))) (let loop ((sub (reverse sub)) (items items)) (if (null? sub) (reverse items) (loop (cdr sub) (remove-if-not (car sub) items)))))) (define (make-display-item show-who? show-parent?) (let ((show-who (if show-who? (lambda (item) (cond ((get item 'who) => (lambda (who) (format #f " ~A" who))) (else ""))) (lambda (item) ""))) (show-parents (if show-parent? (lambda (item) (let loop ((parent (get item 'parent)) (indent 2)) (and parent (begin (format #t "under : ~A~A\n" (make-string indent #\space) parent) (loop (get parent 'parent) (+ 2 indent)))))) (lambda (item) #t)))) (lambda (item) (format #t "status: ~A~A~A~A~A~A\nitem : ~A\n" (get item 'status) (if (get item 'design?) "D" "") (if (get item 'review?) "R" "") (if (get item 'extblock?) "X" "") (cond ((get item 'pct-done) => (lambda (pct-done) (format #f " ~A%" pct-done))) (else "")) (show-who item) item) (show-parents item)))) (define (display-items p items) (let ((display-item (make-display-item (option-ref p 'who #f) (not (option-ref p 'no-parent #f)) ))) (for-each display-item items))) (define (summarize-guile-TODO . args) (let ((p (getopt-long (cons "summarize-guile-TODO" args) '((who (single-char #\w)) (no-parent (single-char #\n)) (involved (single-char #\i) (value #t)) (personal (single-char #\p) (value #t)) (todo (single-char #\t)) (done (single-char #\d)) (review (single-char #\r)) ;; Add options here. )))) (display-items p (select-items p (read-TODO (car (option-ref p '() #f)))))) #t) ; exit val (define main summarize-guile-TODO) ;;; summarize-guile-TODO ends here ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������scripts/snarf-guile-m4-docs.scm���������������������������������������������������������������������0000644�����������������00000005556�15253246142�0012436 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; snarf-guile-m4-docs --- Parse guile.m4 comments for texi documentation ;; Copyright (C) 2002, 2006, 2011 Free Software Foundation, Inc. ;; ;; This program 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, or ;; (at your option) any later version. ;; ;; This program 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 software; see the file COPYING.LESSER. If ;; not, write to the Free Software Foundation, Inc., 51 Franklin ;; Street, Fifth Floor, Boston, MA 02110-1301 USA ;;; Author: Thien-Thi Nguyen <ttn@gnu.org> ;;; Commentary: ;; Usage: snarf-guile-m4-docs FILE ;; ;; Grep FILE for comments preceding macro definitions, massage ;; them into valid texi, and display to stdout. For each comment, ;; lines preceding "^# Usage:" are discarded. ;; ;; TODO: Generalize. ;;; Code: (define-module (scripts snarf-guile-m4-docs) :use-module (ice-9 rdelim) :export (snarf-guile-m4-docs)) (define %include-in-guild-list #f) (define %summary "Snarf out texinfo documentation from .m4 files.") (define (display-texi lines) (display "@deffn {Autoconf Macro}") (for-each (lambda (line) (display (cond ((and (>= (string-length line) 2) (string=? "# " (substring line 0 2))) (substring line 2)) ((string=? "#" (substring line 0 1)) (substring line 1)) (else line))) (newline)) lines) (display "@end deffn") (newline) (newline)) (define (prefix? line sub) (false-if-exception (string=? sub (substring line 0 (string-length sub))))) (define (massage-usage line) (let loop ((line (string->list line)) (acc '())) (if (null? line) (list (list->string (reverse acc))) (loop (cdr line) (cons (case (car line) ((#\( #\) #\,) #\space) (else (car line))) acc))))) (define (snarf-guile-m4-docs . args) (let* ((p (open-file (car args) "r")) (next (lambda () (read-line p)))) (let loop ((line (next)) (acc #f)) (or (eof-object? line) (cond ((prefix? line "# Usage:") (loop (next) (massage-usage (substring line 8)))) ((prefix? line "AC_DEFUN") (display-texi (reverse acc)) (loop (next) #f)) ((and acc (prefix? line "#")) (loop (next) (cons line acc))) (else (loop (next) #f))))))) (define main snarf-guile-m4-docs) ;;; snarf-guile-m4-docs ends here ��������������������������������������������������������������������������������������������������������������������������������������������������scripts/doc-snarf.scm�������������������������������������������������������������������������������0000644�����������������00000035532�15253246142�0010627 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; doc-snarf --- Extract documentation from source files ;; Copyright (C) 2001, 2006, 2011 Free Software Foundation, Inc. ;; ;; This program 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, or ;; (at your option) any later version. ;; ;; This program 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 software; see the file COPYING.LESSER. If ;; not, write to the Free Software Foundation, Inc., 51 Franklin ;; Street, Fifth Floor, Boston, MA 02110-1301 USA ;;; Author: Martin Grabmueller ;;; Commentary: ;; Usage: doc-snarf FILE ;; ;; This program reads in a Scheme source file and extracts docstrings ;; in the format specified below. Additionally, a procedure protoype ;; is infered from the procedure definition line starting with ;; (define... ). ;; ;; Currently, two output modi are implemented: texinfo and plaintext. ;; Default is plaintext, texinfo can be switched on with the ;; `--texinfo, -t' command line option. ;; ;; Format: A docstring can span multiple lines and a docstring line ;; begins with `;; ' (two semicoli and a space). A docstring is ended ;; by either a line beginning with (define ...) or one or more lines ;; beginning with `;;-' (two semicoli and a dash). These lines are ;; called `options' and begin with a keyword, followed by a colon and ;; a string. ;; ;; Additionally, "standard internal docstrings" (for Scheme source) are ;; recognized and output as "options". The output formatting is likely ;; to change in the future. ;; ;; Example: ;; This procedure foos, or bars, depending on the argument @var{braz}. ;;-Author: Martin Grabmueller (define (foo/bar braz) (if braz 'foo 'bar)) ;;; Which results in the following docstring if texinfo output is ;;; enabled: #! foo/bar @deffn procedure foo/bar braz This procedure foos, or bars, depending on the argument @var{braz}. @c Author: Martin Grabmueller @end deffn !# ;;; Or in this if plaintext output is used: #! Procedure: foo/bar braz This procedure foos, or bars, depending on the argument @var{braz}. ;; Author: Martin Grabmueller ^L !# ;; TODO: Convert option lines to alist. ;; More parameterization. ;; (maybe) Use in Guile build itself. (define doc-snarf-version "0.0.2") ; please update before publishing! ;;; Code: (define-module (scripts doc-snarf) :use-module (ice-9 getopt-long) :use-module (ice-9 regex) :use-module (ice-9 string-fun) :use-module (ice-9 rdelim) :export (doc-snarf)) (define %summary "Snarf out documentation from a file.") (define command-synopsis '((version (single-char #\v) (value #f)) (help (single-char #\h) (value #f)) (output (single-char #\o) (value #t)) (texinfo (single-char #\t) (value #f)) (lang (single-char #\l) (value #t)))) ;; Display version information and exit. ;;-ttn-mod: use var (define (display-version) (display "doc-snarf ") (display doc-snarf-version) (newline)) ;; Display the usage help message and exit. ;;-ttn-mod: change option "source" to "lang" (define (display-help) (display "Usage: doc-snarf [options...] inputfile\n") (display " --help, -h Show this usage information\n") (display " --version, -v Show version information\n") (display " --output=FILE, -o Specify output file [default=stdout]\n") (display " --texinfo, -t Format output as texinfo\n") (display " --lang=[c,scheme], -l Specify the input language\n")) ;; Main program. ;;-ttn-mod: canonicalize lang (define (doc-snarf . args) (let ((options (getopt-long (cons "doc-snarf" args) command-synopsis))) (let ((help-wanted (option-ref options 'help #f)) (version-wanted (option-ref options 'version #f)) (texinfo-wanted (option-ref options 'texinfo #f)) (lang (string->symbol (string-downcase (option-ref options 'lang "scheme"))))) (cond (version-wanted (display-version)) (help-wanted (display-help)) (else (let ((input (option-ref options '() #f)) (output (option-ref options 'output #f))) (if ;; Bonard B. Timmons III says `(pair? input)' alone is sufficient. ;; (and input (pair? input)) (pair? input) (snarf-file (car input) output texinfo-wanted lang) (display-help)))))))) (define main doc-snarf) ;; Supported languages and their parameters. Each element has form: ;; (LANG DOC-START DOC-END DOC-PREFIX OPT-PREFIX SIG-START STD-INT-DOC?) ;; LANG is a symbol, STD-INT-DOC? is a boolean indicating whether or not ;; LANG supports "standard internal docstring" (a string after the formals), ;; everything else is a string specifying a regexp. ;;-ttn-mod: new var (define supported-languages '((c "^/\\*(.*)" "^ \\*/" "^ \\* (.*)" "^ \\*-(.*)" "NOTHING AT THIS TIME!!!" #f ) (scheme "^;; (.*)" "^;;\\." "^;; (.*)" "^;;-(.*)" "^\\(define" #t ))) ;; Get @var{lang}'s @var{parameter}. Both args are symbols. ;;-ttn-mod: new proc (define (lang-parm lang parm) (list-ref (assq-ref supported-languages lang) (case parm ((docstring-start) 0) ((docstring-end) 1) ((docstring-prefix) 2) ((option-prefix) 3) ((signature-start) 4) ((std-int-doc?) 5)))) ;; Snarf all docstrings from the file @var{input} and write them to ;; file @var{output}. Use texinfo format for the output if ;; @var{texinfo?} is true. ;;-ttn-mod: don't use string comparison, consult table instead (define (snarf-file input output texinfo? lang) (or (memq lang (map car supported-languages)) (error "doc-snarf: input language must be c or scheme.")) (write-output (snarf input lang) output (if texinfo? format-texinfo format-plain))) ;; fixme: this comment is required to trigger standard internal ;; docstring snarfing... ideally, it wouldn't be necessary. ;;-ttn-mod: new proc, from snarf-docs (aren't these names fun?) (define (find-std-int-doc line input-port) "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." (unread-string line input-port) ; ugh (let ((form (read input-port))) (cond ((and (list? form) ; (define (PROC ARGS) "DOC" ...) (< 3 (length form)) (eq? 'define (car form)) (pair? (cadr form)) (symbol? (caadr form)) (string? (caddr form))) (caddr form)) ((and (list? form) ; (define VAR (lambda ARGS "DOC" ...)) (< 2 (length form)) (eq? 'define (car form)) (symbol? (cadr form)) (list? (caddr form)) (< 3 (length (caddr form))) (eq? 'lambda (car (caddr form))) (string? (caddr (caddr form)))) (caddr (caddr form))) (else #f)))) ;; Split @var{string} into lines, adding @var{prefix} to each. ;;-ttn-mod: new proc (define (split-prefixed string prefix) (separate-fields-discarding-char #\newline string (lambda lines (map (lambda (line) (string-append prefix line)) lines)))) ;; snarf input-file output-file ;; Extract docstrings from the input file @var{input}, presumed ;; to be written in language @var{lang}. ;;-Author: Martin Grabmueller <mgrabmue@cs.tu-berlin.de> ;;-Created: 2001-02-17 ;;-ttn-mod: regluarize lang parm lookup, add "std int doc" snarfing (2 places) (define (snarf input-file lang) (let* ((i-p (open-input-file input-file)) (parm-regexp (lambda (parm) (make-regexp (lang-parm lang parm)))) (docstring-start (parm-regexp 'docstring-start)) (docstring-end (parm-regexp 'docstring-end)) (docstring-prefix (parm-regexp 'docstring-prefix)) (option-prefix (parm-regexp 'option-prefix)) (signature-start (parm-regexp 'signature-start)) (augmented-options (lambda (line i-p options) (let ((int-doc (and (lang-parm lang 'std-int-doc?) (let ((d (find-std-int-doc line i-p))) (and d (split-prefixed d "internal: ")))))) (if int-doc (append (reverse int-doc) options) options))))) (let lp ((line (read-line i-p)) (state 'neutral) (doc-strings '()) (options '()) (entries '()) (lno 0)) (cond ((eof-object? line) (close-input-port i-p) (reverse entries)) ;; State 'neutral: we're currently not within a docstring or ;; option section ((eq? state 'neutral) (let ((m (regexp-exec docstring-start line))) (if m (lp (read-line i-p) 'doc-string (list (match:substring m 1)) '() entries (+ lno 1)) (lp (read-line i-p) state '() '() entries (+ lno 1))))) ;; State 'doc-string: we have started reading a docstring and ;; are waiting for more, for options or for a define. ((eq? state 'doc-string) (let ((m0 (regexp-exec docstring-prefix line)) (m1 (regexp-exec option-prefix line)) (m2 (regexp-exec signature-start line)) (m3 (regexp-exec docstring-end line))) (cond (m0 (lp (read-line i-p) 'doc-string (cons (match:substring m0 1) doc-strings) '() entries (+ lno 1))) (m1 (lp (read-line i-p) 'options doc-strings (cons (match:substring m1 1) options) entries (+ lno 1))) (m2 (let ((options (augmented-options line i-p options))) ; ttn-mod (lp (read-line i-p) 'neutral '() '() (cons (parse-entry doc-strings options line input-file lno) entries) (+ lno 1)))) (m3 (lp (read-line i-p) 'neutral '() '() (cons (parse-entry doc-strings options #f input-file lno) entries) (+ lno 1))) (else (lp (read-line i-p) 'neutral '() '() entries (+ lno 1)))))) ;; State 'options: We're waiting for more options or for a ;; define. ((eq? state 'options) (let ((m1 (regexp-exec option-prefix line)) (m2 (regexp-exec signature-start line)) (m3 (regexp-exec docstring-end line))) (cond (m1 (lp (read-line i-p) 'options doc-strings (cons (match:substring m1 1) options) entries (+ lno 1))) (m2 (let ((options (augmented-options line i-p options))) ; ttn-mod (lp (read-line i-p) 'neutral '() '() (cons (parse-entry doc-strings options line input-file lno) entries) (+ lno 1)))) (m3 (lp (read-line i-p) 'neutral '() '() (cons (parse-entry doc-strings options #f input-file lno) entries) (+ lno 1))) (else (lp (read-line i-p) 'neutral '() '() entries (+ lno 1)))))))))) (define (make-entry symbol signature docstrings options filename line) (vector 'entry symbol signature docstrings options filename line)) (define (entry-symbol e) (vector-ref e 1)) (define (entry-signature e) (vector-ref e 2)) (define (entry-docstrings e) (vector-ref e 3)) (define (entry-options e) (vector-ref e 4)) (define (entry-filename e) (vector-ref e 5)) (define (entry-line e) "This docstring will not be snarfed, unfortunately..." (vector-ref e 6)) ;; Create a docstring entry from the docstring line list ;; @var{doc-strings}, the option line list @var{options} and the ;; define line @var{def-line} (define (parse-entry docstrings options def-line filename line-no) ; (write-line docstrings) (cond (def-line (make-entry (get-symbol def-line) (make-prototype def-line) (reverse docstrings) (reverse options) filename (+ (- line-no (length docstrings) (length options)) 1))) ((> (length docstrings) 0) (make-entry (string->symbol (car (reverse docstrings))) (car (reverse docstrings)) (cdr (reverse docstrings)) (reverse options) filename (+ (- line-no (length docstrings) (length options)) 1))) (else (make-entry 'foo "" (reverse docstrings) (reverse options) filename (+ (- line-no (length docstrings) (length options)) 1))))) ;; Create a string which is a procedure prototype. The necessary ;; information for constructing the prototype is taken from the line ;; @var{def-line}, which is a line starting with @code{(define...}. (define (make-prototype def-line) (call-with-input-string def-line (lambda (s-p) (let* ((paren (read-char s-p)) (keyword (read s-p)) (tmp (read s-p))) (cond ((pair? tmp) (join-symbols tmp)) ((symbol? tmp) (symbol->string tmp)) (else "")))))) (define (get-symbol def-line) (call-with-input-string def-line (lambda (s-p) (let* ((paren (read-char s-p)) (keyword (read s-p)) (tmp (read s-p))) (cond ((pair? tmp) (car tmp)) ((symbol? tmp) tmp) (else 'foo)))))) ;; Append the symbols in the string list @var{s}, separated with a ;; space character. (define (join-symbols s) (cond ((null? s) "") ((symbol? s) (string-append ". " (symbol->string s))) ((null? (cdr s)) (symbol->string (car s))) (else (string-append (symbol->string (car s)) " " (join-symbols (cdr s)))))) ;; Write @var{entries} to @var{output-file} using @var{writer}. ;; @var{writer} is a proc that takes one entry. ;; If @var{output-file} is #f, write to stdout. ;;-ttn-mod: new proc (define (write-output entries output-file writer) (with-output-to-port (cond (output-file (open-output-file output-file)) (else (current-output-port))) (lambda () (for-each writer entries)))) ;; Write an @var{entry} using texinfo format. ;;-ttn-mod: renamed from `texinfo-output', distilled (define (format-texinfo entry) (display "\n\f") (display (entry-symbol entry)) (newline) (display "@c snarfed from ") (display (entry-filename entry)) (display ":") (display (entry-line entry)) (newline) (display "@deffn procedure ") (display (entry-signature entry)) (newline) (for-each (lambda (s) (write-line s)) (entry-docstrings entry)) (for-each (lambda (s) (display "@c ") (write-line s)) (entry-options entry)) (write-line "@end deffn")) ;; Write an @var{entry} using plain format. ;;-ttn-mod: renamed from `texinfo-output', distilled (define (format-plain entry) (display "Procedure: ") (display (entry-signature entry)) (newline) (for-each (lambda (s) (write-line s)) (entry-docstrings entry)) (for-each (lambda (s) (display ";; ") (write-line s)) (entry-options entry)) (display "Snarfed from ") (display (entry-filename entry)) (display ":") (display (entry-line entry)) (newline) (write-line "\f")) ;;; doc-snarf ends here ����������������������������������������������������������������������������������������������������������������������������������������������������������������������scripts/lint.scm������������������������������������������������������������������������������������0000644�����������������00000023170�15253246142�0007714 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; lint --- Preemptive checks for coding errors in Guile Scheme code ;; Copyright (C) 2002, 2006, 2011 Free Software Foundation, Inc. ;; ;; This program 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, or ;; (at your option) any later version. ;; ;; This program 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 software; see the file COPYING.LESSER. If ;; not, write to the Free Software Foundation, Inc., 51 Franklin ;; Street, Fifth Floor, Boston, MA 02110-1301 USA ;;; Author: Neil Jerram ;;; Commentary: ;; Usage: lint FILE1 FILE2 ... ;; ;; Perform various preemptive checks for coding errors in Guile Scheme ;; code. ;; ;; Right now, there is only one check available, for unresolved free ;; variables. The intention is that future lint-like checks will be ;; implemented by adding to this script file. ;; ;; Unresolved free variables ;; ------------------------- ;; ;; Free variables are those whose definitions come from outside the ;; module under investigation. In Guile, these definitions are ;; imported from other modules using `#:use-module' forms. ;; ;; This tool scans the specified files for unresolved free variables - ;; i.e. variables for which you may have forgotten the appropriate ;; `#:use-module', or for which the module that is supposed to export ;; them forgot to. ;; ;; It isn't guaranteed that the scan will find absolutely all such ;; errors. Quoted (and quasiquoted) expressions are skipped, since ;; they are most commonly used to describe constant data, not code, so ;; code that is explicitly evaluated using `eval' will not be checked. ;; For example, the `unresolved-var' in `(eval 'unresolved-var ;; (current-module))' would be missed. ;; ;; False positives are also possible. Firstly, the tool doesn't ;; understand all possible forms of implicit quoting; in particular, ;; it doesn't detect and expand uses of macros. Secondly, it picks up ;; explicit compatibility code like `(if (defined? 'x) (define y x))'. ;; Thirdly, there are occasional oddities like `next-method'. ;; However, the number of false positives for realistic code is ;; hopefully small enough that they can be individually considered and ;; ignored. ;; ;; Example ;; ------- ;; ;; Note: most of the unresolved variables found in this example are ;; false positives, as you would hope. => scope for improvement. ;; ;; $ guild lint `guild` ;; No unresolved free variables in PROGRAM ;; No unresolved free variables in autofrisk ;; No unresolved free variables in display-commentary ;; Unresolved free variables in doc-snarf: ;; doc-snarf-version ;; No unresolved free variables in frisk ;; No unresolved free variables in generate-autoload ;; No unresolved free variables in lint ;; No unresolved free variables in punify ;; No unresolved free variables in read-scheme-source ;; Unresolved free variables in snarf-check-and-output-texi: ;; name ;; pos ;; line ;; x ;; rest ;; ... ;; do-argpos ;; do-command ;; do-args ;; type ;; num ;; file ;; do-arglist ;; req ;; opt ;; var ;; command ;; do-directive ;; s ;; ? ;; No unresolved free variables in use2dot ;;; Code: (define-module (scripts lint) #:use-module (ice-9 common-list) #:use-module (ice-9 format) #:export (lint)) (define %include-in-guild-list #f) (define %summary "Check for bugs and style errors in a Scheme file.") (define (lint filename) (let ((module-name (scan-file-for-module-name filename)) (free-vars (uniq (scan-file-for-free-variables filename)))) (let ((module (resolve-module module-name)) (all-resolved? #t)) (format #t "Resolved module: ~S\n" module) (let loop ((free-vars free-vars)) (or (null? free-vars) (begin (catch #t (lambda () (eval (car free-vars) module)) (lambda args (if all-resolved? (format #t "Unresolved free variables in ~A:\n" filename)) (write-char #\tab) (write (car free-vars)) (newline) (set! all-resolved? #f))) (loop (cdr free-vars))))) (if all-resolved? (format #t "No unresolved free variables in ~A\n" filename))))) (define (scan-file-for-module-name filename) (with-input-from-file filename (lambda () (let loop ((x (read))) (cond ((eof-object? x) #f) ((and (pair? x) (eq? (car x) 'define-module)) (cadr x)) (else (loop (read)))))))) (define (scan-file-for-free-variables filename) (with-input-from-file filename (lambda () (let loop ((x (read)) (fvlists '())) (if (eof-object? x) (apply append fvlists) (loop (read) (cons (detect-free-variables x '()) fvlists))))))) ; guile> (detect-free-variables '(let ((a 1)) a) '()) ; () ; guile> (detect-free-variables '(let ((a 1)) b) '()) ; (b) ; guile> (detect-free-variables '(let ((a 1) (b a)) b) '()) ; (a) ; guile> (detect-free-variables '(let* ((a 1) (b a)) b) '()) ; () ; guile> (detect-free-variables '(define a 1) '()) ; () ; guile> (detect-free-variables '(define a b) '()) ; (b) ; guile> (detect-free-variables '(define (a b c) b) '()) ; () ; guile> (detect-free-variables '(define (a b c) e) '()) ; (e) (define (detect-free-variables x locals) ;; Given an expression @var{x} and a list @var{locals} of local ;; variables (symbols) that are in scope for @var{x}, return a list ;; of free variable symbols. (cond ((symbol? x) (if (memq x locals) '() (list x))) ((pair? x) (case (car x) ((define-module define-generic quote quasiquote) ;; No code of interest in these expressions. '()) ((let letrec) ;; Check for named let. If there is a name, transform the ;; expression so that it looks like an unnamed let with ;; the name as one of the bindings. (if (symbol? (cadr x)) (set-cdr! x (cons (cons (list (cadr x) #f) (caddr x)) (cdddr x)))) ;; Unnamed let processing. (let ((letrec? (eq? (car x) 'letrec)) (locals-for-let-body (append locals (map car (cadr x))))) (append (apply append (map (lambda (binding) (detect-free-variables (cadr binding) (if letrec? locals-for-let-body locals))) (cadr x))) (apply append (map (lambda (bodyform) (detect-free-variables bodyform locals-for-let-body)) (cddr x)))))) ((let* and-let*) ;; Handle bindings recursively. (if (null? (cadr x)) (apply append (map (lambda (bodyform) (detect-free-variables bodyform locals)) (cddr x))) (append (detect-free-variables (cadr (caadr x)) locals) (detect-free-variables `(let* ,(cdadr x) ,@(cddr x)) (cons (caaadr x) locals))))) ((define define-public define-macro) (if (pair? (cadr x)) (begin (set! locals (cons (caadr x) locals)) (detect-free-variables `(lambda ,(cdadr x) ,@(cddr x)) locals)) (begin (set! locals (cons (cadr x) locals)) (detect-free-variables (caddr x) locals)))) ((lambda lambda*) (let ((locals-for-lambda-body (let loop ((locals locals) (args (cadr x))) (cond ((null? args) locals) ((pair? args) (loop (cons (car args) locals) (cdr args))) (else (cons args locals)))))) (apply append (map (lambda (bodyform) (detect-free-variables bodyform locals-for-lambda-body)) (cddr x))))) ((receive) (let ((locals-for-receive-body (append locals (cadr x)))) (apply append (detect-free-variables (caddr x) locals) (map (lambda (bodyform) (detect-free-variables bodyform locals-for-receive-body)) (cdddr x))))) ((define-method define*) (let ((locals-for-method-body (let loop ((locals locals) (args (cdadr x))) (cond ((null? args) locals) ((pair? args) (loop (cons (if (pair? (car args)) (caar args) (car args)) locals) (cdr args))) (else (cons args locals)))))) (apply append (map (lambda (bodyform) (detect-free-variables bodyform locals-for-method-body)) (cddr x))))) ((define-class) ;; Avoid picking up slot names at the start of slot ;; definitions. (apply append (map (lambda (slot/option) (detect-free-variables-noncar (if (pair? slot/option) (cdr slot/option) slot/option) locals)) (cdddr x)))) ((case) (apply append (detect-free-variables (cadr x) locals) (map (lambda (case) (detect-free-variables (cdr case) locals)) (cddr x)))) ((unquote unquote-splicing else =>) (detect-free-variables-noncar (cdr x) locals)) (else (append (detect-free-variables (car x) locals) (detect-free-variables-noncar (cdr x) locals))))) (else '()))) (define (detect-free-variables-noncar x locals) ;; Given an expression @var{x} and a list @var{locals} of local ;; variables (symbols) that are in scope for @var{x}, return a list ;; of free variable symbols. (cond ((symbol? x) (if (memq x locals) '() (list x))) ((pair? x) (case (car x) ((=>) (detect-free-variables-noncar (cdr x) locals)) (else (append (detect-free-variables (car x) locals) (detect-free-variables-noncar (cdr x) locals))))) (else '()))) (define (main . files) (for-each lint files)) ;;; lint ends here ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������scripts/punify.scm����������������������������������������������������������������������������������0000644�����������������00000005605�15253246142�0010263 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; punify --- Display Scheme code w/o unnecessary comments / whitespace ;; Copyright (C) 2001, 2006 Free Software Foundation, Inc. ;; ;; This program 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, or ;; (at your option) any later version. ;; ;; This program 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 software; see the file COPYING.LESSER. If ;; not, write to the Free Software Foundation, Inc., 51 Franklin ;; Street, Fifth Floor, Boston, MA 02110-1301 USA ;;; Author: Thien-Thi Nguyen ;;; Commentary: ;; Usage: punify FILE1 FILE2 ... ;; ;; Each file's forms are read and written to stdout. ;; The effect is to remove comments and much non-essential whitespace. ;; This is useful when installing Scheme source to space-limited media. ;; ;; Example: ;; $ wc ./punify ; ./punify ./punify | wc ;; 89 384 3031 ./punify ;; 0 42 920 ;; ;; TODO: Read from stdin. ;; Handle vectors. ;; Identifier punification. ;;; Code: (define-module (scripts punify) :export (punify)) (define %include-in-guild-list #f) (define %summary "Strip comments and whitespace from a Scheme file.") (define (write-punily form) (cond ((and (list? form) (not (null? form))) (let ((first (car form))) (display "(") (write-punily first) (let loop ((ls (cdr form)) (last-was-list? (list? first))) (if (null? ls) (display ")") (let* ((new-first (car ls)) (this-is-list? (list? new-first))) (and (not last-was-list?) (not this-is-list?) (display " ")) (write-punily new-first) (loop (cdr ls) this-is-list?)))))) ((and (symbol? form) (let ((ls (string->list (symbol->string form)))) (and (char=? (car ls) #\:) (not (memq #\space ls)) (list->string (cdr ls))))) => (lambda (symbol-name-after-colon) (display #\:) (display symbol-name-after-colon))) (else (write form)))) (define (punify-one file) (with-input-from-file file (lambda () (let ((toke (lambda () (read (current-input-port))))) (let loop ((form (toke))) (or (eof-object? form) (begin (write-punily form) (loop (toke))))))))) (define (punify . args) (for-each punify-one args)) (define main punify) ;;; punify ends here ���������������������������������������������������������������������������������������������������������������������������scripts/disassemble.scm�����������������������������������������������������������������������������0000644�����������������00000002617�15253246142�0011244 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; Disassemble --- Disassemble .go files into something human-readable ;; Copyright 2005, 2008, 2009, 2011, 2014 Free Software Foundation, Inc. ;; ;; This program 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, or ;; (at your option) any later version. ;; ;; This program 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 software; see the file COPYING.LESSER. If ;; not, write to the Free Software Foundation, Inc., 51 Franklin ;; Street, Fifth Floor, Boston, MA 02110-1301 USA ;;; Author: Ludovic Courtès <ludo@gnu.org> ;;; Author: Andy Wingo <wingo@pobox.com> ;;; Commentary: ;; Usage: disassemble [ARGS] ;;; Code: (define-module (scripts disassemble) #:use-module (system vm objcode) #:use-module ((language assembly disassemble) #:prefix asm:) #:export (disassemble)) (define %summary "Disassemble a compiled .go file.") (define (disassemble . files) (for-each (lambda (file) (asm:disassemble (load-objcode file))) files)) (define main disassemble) �����������������������������������������������������������������������������������������������������������������scripts/scan-api.scm��������������������������������������������������������������������������������0000644�����������������00000020133�15253246142�0010435 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; scan-api --- Scan and group interpreter and libguile interface elements ;; Copyright (C) 2002, 2006, 2011 Free Software Foundation, Inc. ;; ;; This program 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, or ;; (at your option) any later version. ;; ;; This program 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 software; see the file COPYING.LESSER. If ;; not, write to the Free Software Foundation, Inc., 51 Franklin ;; Street, Fifth Floor, Boston, MA 02110-1301 USA ;;; Author: Thien-Thi Nguyen <ttn@gnu.org> ;;; Commentary: ;; Usage: scan-api GUILE SOFILE [GROUPINGS ...] ;; ;; Invoke GUILE, an executable guile interpreter, and use nm(1) on SOFILE, a ;; shared-object library, to determine available interface elements, and ;; display them to stdout as an alist: ;; ;; ((meta ...) (interface ...)) ;; ;; The meta fields are `GUILE_LOAD_PATH', `LTDL_LIBRARY_PATH', `guile' ;; `libguileinterface', `sofile' and `groups'. The interface elements are in ;; turn sub-alists w/ keys `groups' and `scan-data'. Interface elements ;; initially belong in one of two groups `Scheme' or `C' (but not both -- ;; signal error if that happens). ;; ;; Optional GROUPINGS ... are files each containing a single "grouping ;; definition" alist with each entry of the form: ;; ;; (NAME (description "DESCRIPTION") (members SYM...)) ;; ;; All of the SYM... should be proper subsets of the interface. In addition ;; to `description' and `members' forms, the entry may optionally include: ;; ;; (grok USE-MODULES (lambda (x) CODE)) ;; ;; where CODE implements a group-membership predicate to be applied to `x', a ;; symbol. [When evaluated, CODE can assume (use-modules MODULE) has been ;; executed where MODULE is an element of USE-MODULES, a list. [NOT YET ;; IMPLEMENTED!]] ;; ;; Currently, there are two convenience predicates that operate on `x': ;; (in-group? x GROUP) ;; (name-prefix? x PREFIX) ;; ;; TODO: Allow for concurrent Scheme/C membership. ;; Completely separate reporting. ;;; Code: (define-module (scripts scan-api) :use-module (ice-9 popen) :use-module (ice-9 rdelim) :use-module (ice-9 regex) :export (scan-api)) (define %include-in-guild-list #f) (define %summary "Generate an API description for a Guile extension.") (define put set-object-property!) (define get object-property) (define (add-props object . args) (let loop ((args args)) (if (null? args) object ; retval (let ((key (car args)) (value (cadr args))) (put object key value) (loop (cddr args)))))) (define (scan re command match) (let ((rx (make-regexp re)) (port (open-pipe command OPEN_READ))) (let loop ((line (read-line port))) (or (eof-object? line) (begin (cond ((regexp-exec rx line) => match)) (loop (read-line port))))))) (define (scan-Scheme! ht guile) (scan "^.guile.+: ([^ \t]+)([ \t]+(.+))*$" (format #f "~A -c '~S ~S'" guile '(use-modules (ice-9 session)) '(apropos ".")) (lambda (m) (let ((x (string->symbol (match:substring m 1)))) (put x 'Scheme (or (match:substring m 3) "")) (hashq-set! ht x #t))))) (define (scan-C! ht sofile) (scan "^[0-9a-fA-F]+ ([B-TV-Z]) (.+)$" (format #f "nm ~A" sofile) (lambda (m) (let ((x (string->symbol (match:substring m 2)))) (put x 'C (string->symbol (match:substring m 1))) (and (hashq-get-handle ht x) (error "both Scheme and C:" x)) (hashq-set! ht x #t))))) (define THIS-MODULE (current-module)) (define (in-group? x group) (memq group (get x 'groups))) (define (name-prefix? x prefix) (string-match (string-append "^" prefix) (symbol->string x))) (define (add-group-name! x name) (put x 'groups (cons name (get x 'groups)))) (define (make-grok-proc name form) (let* ((predicate? (eval form THIS-MODULE)) (p (lambda (x) (and (predicate? x) (add-group-name! x name))))) (put p 'name name) p)) (define (make-members-proc name members) (let ((p (lambda (x) (and (memq x members) (add-group-name! x name))))) (put p 'name name) p)) (define (make-grouper files) ; \/^^^o/ . o (let ((hook (make-hook 1))) ; /\____\ (for-each (lambda (file) (for-each (lambda (gdef) (let ((name (car gdef)) (members (assq-ref gdef 'members)) (grok (assq-ref gdef 'grok))) (or members grok (error "bad grouping, must have `members' or `grok'")) (add-hook! hook (if grok (add-props (make-grok-proc name (cadr grok)) 'description (assq-ref gdef 'description)) (make-members-proc name members)) #t))) ; append (read (open-file file OPEN_READ)))) files) hook)) (define (scan-api . args) (let ((guile (list-ref args 0)) (sofile (list-ref args 1)) (grouper (false-if-exception (make-grouper (cddr args)))) (ht (make-hash-table 3331))) (scan-Scheme! ht guile) (scan-C! ht sofile) (let ((all (sort (hash-fold (lambda (key value prior-result) (add-props key 'string (symbol->string key) 'scan-data (or (get key 'Scheme) (get key 'C)) 'groups (if (get key 'Scheme) '(Scheme) '(C))) (and grouper (run-hook grouper key)) (cons key prior-result)) '() ht) (lambda (a b) (string<? (get a 'string) (get b 'string)))))) (format #t ";;; generated by scan-api -- do not edit!\n\n") (format #t "(\n") (format #t "(meta\n") (format #t " (GUILE_LOAD_PATH . ~S)\n" (or (getenv "GUILE_LOAD_PATH") "")) (format #t " (LTDL_LIBRARY_PATH . ~S)\n" (or (getenv "LTDL_LIBRARY_PATH") "")) (format #t " (guile . ~S)\n" guile) (format #t " (libguileinterface . ~S)\n" (let ((i #f)) (scan "(.+)" (format #f "~A -c '(display ~A)'" guile '(assq-ref %guile-build-info 'libguileinterface)) (lambda (m) (set! i (match:substring m 1)))) i)) (format #t " (sofile . ~S)\n" sofile) (format #t " ~A\n" (cons 'groups (append (if grouper (map (lambda (p) (get p 'name)) (hook->list grouper)) '()) '(Scheme C)))) (format #t ") ;; end of meta\n") (format #t "(interface\n") (for-each (lambda (x) (format #t "(~A ~A (scan-data ~S))\n" x (cons 'groups (get x 'groups)) (get x 'scan-data))) all) (format #t ") ;; end of interface\n") (format #t ") ;; eof\n"))) #t) (define main scan-api) ;;; scan-api ends here �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������scripts/use2dot.scm���������������������������������������������������������������������������������0000644�����������������00000007663�15253246142�0010344 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; use2dot --- Display module dependencies as a DOT specification ;; Copyright (C) 2001, 2006, 2011 Free Software Foundation, Inc. ;; ;; This program 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, or ;; (at your option) any later version. ;; ;; This program 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 software; see the file COPYING.LESSER. If ;; not, write to the Free Software Foundation, Inc., 51 Franklin ;; Street, Fifth Floor, Boston, MA 02110-1301 USA ;;; Author: Thien-Thi Nguyen ;;; Commentary: ;; Usage: use2dot [OPTIONS] [FILE ...] ;; Display to stdout a DOT specification that describes module dependencies ;; in FILEs. ;; ;; A top-level `use-modules' form or a `:use-module' `define-module'-component ;; results in a "solid" style edge. ;; ;; An `:autoload' `define-module'-component results in a "dotted" style edge ;; with label "N" indicating that N names are responsible for triggering the ;; autoload. [The "N" label is not implemented.] ;; ;; A top-level `load' or `primitive-load' form results in a a "bold" style ;; edge to a node named with either the file name if the `load' argument is a ;; string, or "[computed in FILE]" otherwise. ;; ;; Options: ;; -m, --default-module MOD -- Set MOD as the default module (for top-level ;; `use-modules' forms that do not follow some ;; `define-module' form in a file). MOD should be ;; be a list or `#f', in which case such top-level ;; `use-modules' forms are effectively ignored. ;; Default value: `(guile-user)'. ;;; Code: (define-module (scripts use2dot) :autoload (ice-9 getopt-long) (getopt-long) :use-module ((srfi srfi-13) :select (string-join)) :use-module ((scripts frisk) :select (make-frisker edge-type edge-up edge-down)) :export (use2dot)) (define %summary "Print a module's dependencies in graphviz format.") (define *default-module* '(guile-user)) (define (q s) ; quote (format #f "~S" s)) (define (vv pairs) ; => ("var=val" ...) (map (lambda (pair) (format #f "~A=~A" (car pair) (cdr pair))) pairs)) (define (>>header) (format #t "digraph use2dot {\n") (for-each (lambda (s) (format #t " ~A;\n" s)) (vv `((label . ,(q "Guile Module Dependencies")) ;;(rankdir . LR) ;;(size . ,(q "7.5,10")) (ratio . fill) ;;(nodesep . ,(q "0.05")) )))) (define (>>body edges) (for-each (lambda (edge) (format #t " \"~A\" -> \"~A\"" (edge-down edge) (edge-up edge)) (cond ((case (edge-type edge) ((autoload) '((style . dotted) (fontsize . 5))) ((computed) '((style . bold))) (else #f)) => (lambda (etc) (format #t " [~A]" (string-join (vv etc) ","))))) (format #t ";\n")) edges)) (define (>>footer) (format #t "}")) (define (>> edges) (>>header) (>>body edges) (>>footer)) (define (use2dot . args) (let* ((parsed-args (getopt-long (cons "use2dot" args) ;;; kludge '((default-module (single-char #\m) (value #t))))) (=m (option-ref parsed-args 'default-module *default-module*)) (scan (make-frisker `(default-module . ,=m))) (files (option-ref parsed-args '() '()))) (>> (reverse ((scan files) 'edges))))) (define main use2dot) ;;; use2dot ends here �����������������������������������������������������������������������������scripts/autofrisk.scm�������������������������������������������������������������������������������0000644�����������������00000017261�15253246142�0010761 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; autofrisk --- Generate module checks for use with auto* tools ;; Copyright (C) 2002, 2006, 2009, 2011 Free Software Foundation, Inc. ;; ;; This program 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, or ;; (at your option) any later version. ;; ;; This program 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 software; see the file COPYING.LESSER. If ;; not, write to the Free Software Foundation, Inc., 51 Franklin ;; Street, Fifth Floor, Boston, MA 02110-1301 USA ;;; Author: Thien-Thi Nguyen <ttn@gnu.org> ;;; Commentary: ;; Usage: autofrisk [file] ;; ;; This program looks for the file modules.af in the current directory ;; and writes out modules.af.m4 containing autoconf definitions. ;; If given, look for FILE instead of modules.af and output to FILE.m4. ;; ;; After running autofrisk, you should add to configure.ac the lines: ;; AUTOFRISK_CHECKS ;; AUTOFRISK_SUMMARY ;; Then run "aclocal -I ." to update aclocal.m4, and finally autoconf. ;; ;; The modules.af file consists of a series of configuration forms (Scheme ;; lists), which have one of the following formats: ;; (files-glob PATTERN ...) ;; (non-critical-external MODULE ...) ;; (non-critical-internal MODULE ...) ;; (programs (MODULE PROG ...) ...) ;; (pww-varname VARNAME) ;; PATTERN is a string that may contain "*" and "?" characters to be ;; expanded into filenames. MODULE is a list of symbols naming a ;; module, such as `(srfi srfi-1)'. VARNAME is a shell-safe name to use ;; instead of "probably_wont_work", the default. This var is passed to ;; `AC_SUBST'. PROG is a string. ;; ;; Only the `files-glob' form is required. ;; ;; TODO: Write better commentary. ;; Make "please see README" configurable. ;;; Code: (define-module (scripts autofrisk) :autoload (ice-9 popen) (open-input-pipe) :use-module (srfi srfi-1) :use-module (srfi srfi-8) :use-module (srfi srfi-13) :use-module (srfi srfi-14) :use-module (scripts read-scheme-source) :use-module (scripts frisk) :export (autofrisk)) (define %include-in-guild-list #f) (define %summary "Generate snippets for use in configure.ac files.") (define *recognized-keys* '(files-glob non-critical-external non-critical-internal programs pww-varname)) (define (canonical-configuration forms) (let ((chk (lambda (condition . x) (or condition (apply error "syntax error:" x))))) (chk (list? forms) "input not a list") (chk (every list? forms) "non-list element") (chk (every (lambda (form) (< 1 (length form))) forms) "list too short") (let ((un #f)) (chk (every (lambda (form) (let ((key (car form))) (and (symbol? key) (or (eq? 'quote key) (memq key *recognized-keys*) (begin (set! un key) #f))))) forms) "unrecognized key:" un)) (let ((bunched (map (lambda (key) (fold (lambda (form so-far) (or (and (eq? (car form) key) (cdr form) (append so-far (cdr form))) so-far)) (list key) forms)) *recognized-keys*))) (lambda (key) (assq-ref bunched key))))) (define (>>strong modules) (for-each (lambda (module) (format #t "GUILE_MODULE_REQUIRED~A\n" module)) modules)) (define (safe-name module) (let ((var (object->string module))) (string-map! (lambda (c) (if (char-set-contains? char-set:letter+digit c) c #\_)) var) var)) (define *pww* "probably_wont_work") (define (>>weak weak-edges) (for-each (lambda (edge) (let* ((up (edge-up edge)) (down (edge-down edge)) (var (format #f "have_guile_module~A" (safe-name up)))) (format #t "GUILE_MODULE_AVAILABLE(~A, ~A)\n" var up) (format #t "test \"$~A\" = no &&\n ~A=\"~A $~A\"~A" var *pww* down *pww* "\n\n"))) weak-edges)) (define (>>program module progs) (let ((vars (map (lambda (prog) (format #f "guile_module~Asupport_~A" (safe-name module) prog)) progs))) (for-each (lambda (var prog) (format #t "AC_PATH_PROG(~A, ~A)\n" var prog)) vars progs) (format #t "test \\\n") (for-each (lambda (var) (format #t " \"$~A\" = \"\" -o \\\n" var)) vars) (format #t "~A &&\n~A=\"~A $~A\"\n\n" (list-ref (list "war = peace" "freedom = slavery" "ignorance = strength") (random 3)) *pww* module *pww*))) (define (>>programs programs) (for-each (lambda (form) (>>program (car form) (cdr form))) programs)) (define (unglob pattern) (let ((p (open-input-pipe (format #f "echo '(' ~A ')'" pattern)))) (map symbol->string (read p)))) (define (>>checks forms) (let* ((cfg (canonical-configuration forms)) (files (apply append (map unglob (cfg 'files-glob)))) (ncx (cfg 'non-critical-external)) (nci (cfg 'non-critical-internal)) (report ((make-frisker) files)) (external (report 'external))) (let ((pww-varname (cfg 'pww-varname))) (or (null? pww-varname) (set! *pww* (car pww-varname)))) (receive (weak strong) (partition (lambda (module) (or (member module ncx) (every (lambda (i) (member i nci)) (map edge-down (mod-down-ls module))))) external) (format #t "AC_DEFUN([AUTOFRISK_CHECKS],[\n\n") (>>strong strong) (format #t "\n~A=~S\n\n" *pww* "") (>>weak (fold (lambda (module so-far) (append so-far (mod-down-ls module))) (list) weak)) (>>programs (cfg 'programs)) (format #t "AC_SUBST(~A)\n])\n\n" *pww*)))) (define (>>summary) (format #t (symbol->string '#{ 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 ]) }#) *pww* *pww*)) (define (autofrisk . args) (let ((file (if (null? args) "modules.af" (car args)))) (or (file-exists? file) (error "could not find input file:" file)) (with-output-to-file (format #f "~A.m4" file) (lambda () (>>checks (read-scheme-source-silently file)) (>>summary))))) (define main autofrisk) ;; Local variables: ;; eval: (put 'receive 'scheme-indent-function 2) ;; End: ;;; autofrisk ends here �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������scripts/list.scm������������������������������������������������������������������������������������0000644�����������������00000006236�15253246142�0007725 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; List --- List scripts that can be invoked by guild -*- coding: iso-8859-1 -*- ;;;; Copyright (C) 2009, 2010, 2011, 2012 Free Software Foundation, Inc. ;;;; ;;;; This library 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. ;;;; ;;;; This library 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 library; if not, write to the Free ;;;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor, ;;;; Boston, MA 02110-1301 USA ;;; Commentary: ;; Usage: list ;; ;; List scripts that can be invoked by guild. ;;; Code: (define-module (scripts list) #:use-module (srfi srfi-1) #:export (list-scripts)) (define %include-in-guild-list #f) (define %summary "An alias for \"help\".") (define (directory-files dir) (if (and (file-exists? dir) (file-is-directory? dir)) (let ((dir-stream (opendir dir))) (let loop ((new (readdir dir-stream)) (acc '())) (if (eof-object? new) (begin (closedir dir-stream) acc) (loop (readdir dir-stream) (if (or (string=? "." new) ; ignore (string=? ".." new)) ; ignore acc (cons new acc)))))) '())) (define (strip-extensions path) (or-map (lambda (ext) (and (string-suffix? ext path) ;; We really can't be adding e.g. ChangeLog-2008 to the set ;; of runnable scripts, just because "" is a valid ;; extension, by default. So hack around that here. (not (string-null? ext)) (substring path 0 (- (string-length path) (string-length ext))))) (append %load-compiled-extensions %load-extensions))) (define (unique l) (cond ((null? l) l) ((null? (cdr l)) l) ((equal? (car l) (cadr l)) (unique (cdr l))) (else (cons (car l) (unique (cdr l)))))) (define (find-submodules head) (let ((shead (map symbol->string head))) (unique (sort (append-map (lambda (path) (fold (lambda (x rest) (let ((stripped (strip-extensions x))) (if stripped (cons stripped rest) rest))) '() (directory-files (fold (lambda (x y) (in-vicinity y x)) path shead)))) %load-path) string<?)))) (define (list-scripts . args) (for-each (lambda (x) ;; would be nice to show a summary. (format #t "~A\n" x)) (find-submodules '(scripts)))) (define (main . args) (apply (@@ (scripts help) main) args)) ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������scripts/compile.scm���������������������������������������������������������������������������������0000644�����������������00000017002�15253246142�0010373 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; Compile --- Command-line Guile Scheme compiler -*- coding: iso-8859-1 -*- ;; Copyright 2005, 2008, 2009, 2010, 2011, 2014 Free Software Foundation, Inc. ;; ;; This program 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, or ;; (at your option) any later version. ;; ;; This program 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 software; see the file COPYING.LESSER. If ;; not, write to the Free Software Foundation, Inc., 51 Franklin ;; Street, Fifth Floor, Boston, MA 02110-1301 USA ;;; Author: Ludovic Courts <ludo@gnu.org> ;;; Author: Andy Wingo <wingo@pobox.com> ;;; Commentary: ;; Usage: compile [ARGS] ;; ;; A command-line interface to the Guile compiler. ;;; Code: (define-module (scripts compile) #:use-module ((system base compile) #:select (compile-file)) #:use-module (system base target) #:use-module (system base message) #:use-module (srfi srfi-1) #:use-module (srfi srfi-13) #:use-module (srfi srfi-37) #:use-module (ice-9 format) #:export (compile)) (define %summary "Compile a file.") (define (fail . messages) (format (current-error-port) "error: ~{~a~}~%" messages) (exit 1)) (define %options ;; Specifications of the command-line options. (list (option '(#\h "help") #f #f (lambda (opt name arg result) (alist-cons 'help? #t result))) (option '("version") #f #f (lambda (opt name arg result) (show-version) (exit 0))) (option '(#\L "load-path") #t #f (lambda (opt name arg result) (let ((load-path (assoc-ref result 'load-path))) (alist-cons 'load-path (cons arg load-path) result)))) (option '(#\o "output") #t #f (lambda (opt name arg result) (if (assoc-ref result 'output-file) (fail "`-o' option cannot be specified more than once") (alist-cons 'output-file arg result)))) (option '(#\W "warn") #t #f (lambda (opt name arg result) (if (string=? arg "help") (begin (show-warning-help) (exit 0)) (let ((warnings (assoc-ref result 'warnings))) (alist-cons 'warnings (cons (string->symbol arg) warnings) (alist-delete 'warnings result)))))) (option '(#\O "optimize") #f #f (lambda (opt name arg result) (alist-cons 'optimize? #t result))) (option '(#\f "from") #t #f (lambda (opt name arg result) (if (assoc-ref result 'from) (fail "`--from' option cannot be specified more than once") (alist-cons 'from (string->symbol arg) result)))) (option '(#\t "to") #t #f (lambda (opt name arg result) (if (assoc-ref result 'to) (fail "`--to' option cannot be specified more than once") (alist-cons 'to (string->symbol arg) result)))) (option '(#\T "target") #t #f (lambda (opt name arg result) (if (assoc-ref result 'target) (fail "`--target' option cannot be specified more than once") (alist-cons 'target arg result)))))) (define (parse-args args) "Parse argument list @var{args} and return an alist with all the relevant options." (args-fold args %options (lambda (opt name arg result) (format (current-error-port) "~A: unrecognized option" name) (exit 1)) (lambda (file result) (let ((input-files (assoc-ref result 'input-files))) (alist-cons 'input-files (cons file input-files) result))) ;; default option values '((input-files) (load-path) (warnings unsupported-warning)))) (define (show-version) (format #t "compile (GNU Guile) ~A~%" (version)) (format #t "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.~%")) (define (show-warning-help) (format #t "The available warning types are:~%~%") (for-each (lambda (wt) (format #t " ~22A ~A~%" (format #f "`~A'" (warning-type-name wt)) (warning-type-description wt))) %warning-types) (format #t "~%")) (define (compile . args) (let* ((options (parse-args args)) (help? (assoc-ref options 'help?)) (compile-opts (let ((o `(#:warnings ,(assoc-ref options 'warnings)))) (if (assoc-ref options 'optimize?) (cons #:O o) o))) (from (or (assoc-ref options 'from) 'scheme)) (to (or (assoc-ref options 'to) 'objcode)) (target (or (assoc-ref options 'target) %host-type)) (input-files (assoc-ref options 'input-files)) (output-file (assoc-ref options 'output-file)) (load-path (assoc-ref options 'load-path))) (if (or help? (null? input-files)) (begin (format #t "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>.~%" %guile-bug-report-address) (exit 0))) (set! %load-path (append load-path %load-path)) (set! %load-should-auto-compile #f) (if (and output-file (or (null? input-files) (not (null? (cdr input-files))))) (fail "`-o' option can only be specified " "when compiling a single file")) ;; Install a SIGINT handler. As a side effect, this gives unwind ;; handlers an opportunity to run upon SIGINT; this includes that of ;; 'call-with-output-file/atomic', called by 'compile-file', which ;; removes the temporary output file. (sigaction SIGINT (lambda args (fail "interrupted by the user"))) (for-each (lambda (file) (format #t "wrote `~A'\n" (with-fluids ((*current-warning-prefix* "")) (with-target target (lambda () (compile-file file #:output-file output-file #:from from #:to to #:opts compile-opts)))))) input-files))) (define main compile) ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������scripts/display-commentary.scm����������������������������������������������������������������������0000644�����������������00000004622�15253246142�0012570 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; display-commentary --- As advertized ;; Copyright (C) 2001, 2006, 2011 Free Software Foundation, Inc. ;; ;; This program 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, or ;; (at your option) any later version. ;; ;; This program 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 software; see the file COPYING.LESSER. If ;; not, write to the Free Software Foundation, Inc., 51 Franklin ;; Street, Fifth Floor, Boston, MA 02110-1301 USA ;;; Author: Thien-Thi Nguyen ;;; Commentary: ;; Usage: display-commentary REF1 REF2 ... ;; ;; Display Commentary section from REF1, REF2 and so on. ;; Each REF may be a filename or module name (list of symbols). ;; In the latter case, a filename is computed by searching `%load-path'. ;;; Code: (define-module (scripts display-commentary) :use-module (ice-9 documentation) :export (display-commentary)) (define %summary "Display the Commentary section from a file or module.") (define (display-commentary-one file) (format #t "~A commentary:\n~A" file (file-commentary file))) (define (module-name->filename-frag ls) ; todo: export or move (let ((ls (map symbol->string ls))) (let loop ((ls (cdr ls)) (acc (car ls))) (if (null? ls) acc (loop (cdr ls) (string-append acc "/" (car ls))))))) (define (display-module-commentary module-name) (cond ((%search-load-path (module-name->filename-frag module-name)) => (lambda (file) (format #t "module ~A\n" module-name) (display-commentary-one file))))) (define (display-commentary . refs) (for-each (lambda (ref) (cond ((string? ref) (if (equal? 0 (string-index ref #\()) (display-module-commentary (with-input-from-string ref read)) (display-commentary-one ref))) ((list? ref) (display-module-commentary ref)))) refs)) (define main display-commentary) ;;; display-commentary ends here ��������������������������������������������������������������������������������������������������������������scripts/read-text-outline.scm�����������������������������������������������������������������������0000644�����������������00000024647�15253246142�0012332 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; read-text-outline --- Read a text outline and display it as a sexp ;; Copyright (C) 2002, 2006, 2011 Free Software Foundation, Inc. ;; ;; This program 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, or ;; (at your option) any later version. ;; ;; This program 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 software; see the file COPYING.LESSER. If ;; not, write to the Free Software Foundation, Inc., 51 Franklin ;; Street, Fifth Floor, Boston, MA 02110-1301 USA ;;; Author: Thien-Thi Nguyen <ttn@gnu.org> ;;; Commentary: ;; Usage: read-text-outline OUTLINE ;; ;; Scan OUTLINE file and display a list of trees, the structure of ;; each reflecting the "levels" in OUTLINE. The recognized outline ;; format (used to indicate outline headings) is zero or more pairs of ;; leading spaces followed by "-". Something like: ;; ;; - a 0 ;; - b 1 ;; - c 2 ;; - d 1 ;; - e 0 ;; - f 1 ;; - g 2 ;; - h 1 ;; ;; In this example the levels are shown to the right. The output for ;; such a file would be the single line: ;; ;; (("a" ("b" "c") "d") ("e" ("f" "g") "h")) ;; ;; Basically, anything at the beginning of a list is a parent, and the ;; remaining elements of that list are its children. ;; ;; ;; Usage from a Scheme program: These two procs are exported: ;; ;; (read-text-outline . args) ; only first arg is used ;; (read-text-outline-silently port) ;; (make-text-outline-reader re specs) ;; ;; `make-text-outline-reader' returns a proc that reads from PORT and ;; returns a list of trees (similar to `read-text-outline-silently'). ;; ;; RE is a regular expression (string) that is used to identify a header ;; line of the outline (as opposed to a whitespace line or intervening ;; text). RE must begin w/ a sub-expression to match the "level prefix" ;; of the line. You can use `level-submatch-number' in SPECS (explained ;; below) to specify a number other than 1, the default. ;; ;; Normally, the level of the line is taken directly as the length of ;; its level prefix. This often results in adjacent levels not mapping ;; to adjacent numbers, which confuses the tree-building portion of the ;; program, which expects top-level to be 0, first sub-level to be 1, ;; etc. You can use `level-substring-divisor' or `compute-level' in ;; SPECS to specify a constant scaling factor or specify a completely ;; alternative procedure, respectively. ;; ;; SPECS is an alist which may contain the following key/value pairs: ;; ;; - level-submatch-number NUMBER ;; - level-substring-divisor NUMBER ;; - compute-level PROC ;; - body-submatch-number NUMBER ;; - extra-fields ((FIELD-1 . SUBMATCH-1) (FIELD-2 . SUBMATCH-2) ...) ;; ;; The PROC value associated with key `compute-level' should take a ;; Scheme match structure (as returned by `regexp-exec') and return a ;; number, the normalized level for that line. If this is specified, ;; it takes precedence over other level-computation methods. ;; ;; Use `body-submatch-number' if RE specifies the whole body, or if you ;; want to make use of the extra fields parsing. The `extra-fields' ;; value is a sub-alist, whose keys name additional fields that are to ;; be recognized. These fields along with `level' are set as object ;; properties of the final string ("body") that is consed into the tree. ;; If a field name ends in "?" the field value is set to be #t if there ;; is a match and the result is not an empty string, and #f otherwise. ;; ;; ;; Bugs and caveats: ;; ;; (1) Only the first file specified on the command line is scanned. ;; (2) TAB characters at the beginnings of lines are not recognized. ;; (3) Outlines that "skip" levels signal an error. In other words, ;; this will fail: ;; ;; - a 0 ;; - b 1 ;; - c 3 <-- skipped 2 -- error! ;; - d 1 ;; ;; ;; TODO: Determine what's the right thing to do for skips. ;; Handle TABs. ;; Make line format customizable via longopts. ;;; Code: (define-module (scripts read-text-outline) :export (read-text-outline read-text-outline-silently make-text-outline-reader) :use-module (ice-9 regex) :autoload (ice-9 rdelim) (read-line) :autoload (ice-9 getopt-long) (getopt-long)) (define %include-in-guild-list #f) (define %summary "Convert textual outlines to s-expressions.") (define (?? symbol) (let ((name (symbol->string symbol))) (string=? "?" (substring name (1- (string-length name)))))) (define (msub n) (lambda (m) (match:substring m n))) (define (??-predicates pair) (cons (car pair) (if (?? (car pair)) (lambda (m) (not (string=? "" (match:substring m (cdr pair))))) (msub (cdr pair))))) (define (make-line-parser re specs) (let* ((rx (let ((fc (substring re 0 1))) (make-regexp (if (string=? "^" fc) re (string-append "^" re))))) (check (lambda (key) (assq-ref specs key))) (level-substring (msub (or (check 'level-submatch-number) 1))) (extract-level (cond ((check 'compute-level) => (lambda (proc) (lambda (m) (proc m)))) ((check 'level-substring-divisor) => (lambda (n) (lambda (m) (/ (string-length (level-substring m)) n)))) (else (lambda (m) (string-length (level-substring m)))))) (extract-body (cond ((check 'body-submatch-number) => msub) (else (lambda (m) (match:suffix m))))) (misc-props! (cond ((check 'extra-fields) => (lambda (alist) (let ((new (map ??-predicates alist))) (lambda (obj m) (for-each (lambda (pair) (set-object-property! obj (car pair) ((cdr pair) m))) new))))) (else (lambda (obj m) #t))))) ;; retval (lambda (line) (cond ((regexp-exec rx line) => (lambda (m) (let ((level (extract-level m)) (body (extract-body m))) (set-object-property! body 'level level) (misc-props! body m) body))) (else #f))))) (define (make-text-outline-reader re specs) (let ((parse-line (make-line-parser re specs))) ;; retval (lambda (port) (let* ((all '(start)) (pchain (list))) ; parents chain (let loop ((line (read-line port)) (prev-level -1) ; how this relates to the first input ; level determines whether or not we ; start in "sibling" or "child" mode. ; in the end, `start' is ignored and ; it's much easier to ignore parents ; than siblings (sometimes). this is ; not to encourage ignorance, however. (tp all)) ; tail pointer (or (eof-object? line) (cond ((parse-line line) => (lambda (w) (let* ((words (list w)) (level (object-property w 'level)) (diff (- level prev-level))) (cond ;; sibling ((zero? diff) ;; just extend the chain (set-cdr! tp words)) ;; child ((positive? diff) (or (= 1 diff) (error "unhandled diff not 1:" diff line)) ;; parent may be contacted by uncle later (kids ;; these days!) so save its level (set-object-property! tp 'level prev-level) (set! pchain (cons tp pchain)) ;; "push down" car into hierarchy (set-car! tp (cons (car tp) words))) ;; uncle ((negative? diff) ;; prune back to where levels match (do ((p pchain (cdr p))) ((= level (object-property (car p) 'level)) (set! pchain p))) ;; resume at this level (set-cdr! (car pchain) words) (set! pchain (cdr pchain)))) (loop (read-line port) level words)))) (else (loop (read-line port) prev-level tp))))) (set! all (car all)) (if (eq? 'start all) '() ; wasteland (cdr all)))))) (define read-text-outline-silently (make-text-outline-reader "(([ ][ ])*)- *" '((level-substring-divisor . 2)))) (define (read-text-outline . args) (write (read-text-outline-silently (open-file (car args) "r"))) (newline) #t) ; exit val (define main read-text-outline) ;;; read-text-outline ends here �����������������������������������������������������������������������������������������texinfo.scm�����������������������������������������������������������������������������������������0000644�����������������00000146134�15253246142�0006741 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; (texinfo) -- parsing of texinfo into SXML ;;;; ;;;; Copyright (C) 2009, 2010, 2011, 2012, 2013, 2014 Free Software Foundation, Inc. ;;;; Copyright (C) 2004, 2009 Andy Wingo <wingo at pobox dot com> ;;;; Copyright (C) 2001,2002 Oleg Kiselyov <oleg at pobox dot com> ;;;; ;;;; This file is based on SSAX's SSAX.scm. ;;;; ;;;; This library 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. ;;;; ;;;; This library 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 library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;; Commentary: ;; ;; @subheading Texinfo processing in scheme ;; ;; This module parses texinfo into SXML. TeX will always be the ;; processor of choice for print output, of course. However, although ;; @code{makeinfo} works well for info, its output in other formats is ;; not very customizable, and the program is not extensible as a whole. ;; This module aims to provide an extensible framework for texinfo ;; processing that integrates texinfo into the constellation of SXML ;; processing tools. ;; ;; @subheading Notes on the SXML vocabulary ;; ;; Consider the following texinfo fragment: ;; ;;@example ;; @@deffn Primitive set-car! pair value ;; This function... ;; @@end deffn ;;@end example ;; ;; Logically, the category (Primitive), name (set-car!), and arguments ;; (pair value) are ``attributes'' of the deffn, with the description as ;; the content. However, texinfo allows for @@-commands within the ;; arguments to an environment, like @code{@@deffn}, which means that ;; texinfo ``attributes'' are PCDATA. XML attributes, on the other hand, ;; are CDATA. For this reason, ``attributes'' of texinfo @@-commands are ;; called ``arguments'', and are grouped under the special element, `%'. ;; ;; Because `%' is not a valid NCName, stexinfo is a superset of SXML. In ;; the interests of interoperability, this module provides a conversion ;; function to replace the `%' with `texinfo-arguments'. ;; ;;; Code: ;; Comparison to xml output of texinfo (which is rather undocumented): ;; Doesn't conform to texinfo dtd ;; No DTD at all, in fact :-/ ;; Actually outputs valid xml, after transforming % ;; Slower (although with caching the SXML that problem can go away) ;; Doesn't parse menus (although menus are shite) ;; Args go in a dedicated element, FBOFW ;; Definitions are handled a lot better ;; Does parse comments ;; Outputs only significant line breaks (a biggie!) ;; Nodes are treated as anchors, rather than content organizers (a biggie) ;; (more book-like, less info-like) ;; TODO ;; Integration: help, indexing, plain text (define-module (texinfo) #:use-module (sxml simple) #:use-module (sxml transform) #:use-module (sxml ssax input-parse) #:use-module (srfi srfi-1) #:use-module (srfi srfi-11) #:use-module (srfi srfi-13) #:export (call-with-file-and-dir texi-command-specs texi-command-depth texi-fragment->stexi texi->stexi stexi->sxml)) ;; Some utilities (define (parser-error port message . rest) (apply throw 'parser-error port message rest)) (define (call-with-file-and-dir filename proc) "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." (let ((current-dir (getcwd))) (dynamic-wind (lambda () (chdir (dirname filename))) (lambda () (call-with-input-file (basename filename) proc)) (lambda () (chdir current-dir))))) ;;======================================================================== ;; Reflection on the XML vocabulary (define texi-command-specs #; "A list of (@var{name} @var{content-model} . @var{args}) @table @var @item name The name of an @@-command, as a symbol. @item content-model A symbol indicating the syntactic type of the @@-command: @table @code @item EMPTY-COMMAND No content, and no @code{@@end} is coming @item EOL-ARGS Unparsed arguments until end of line @item EOL-TEXT Parsed arguments until end of line @item INLINE-ARGS Unparsed arguments ending with @code{#\\@}} @item INLINE-TEXT Parsed arguments ending with @code{#\\@}} @item INLINE-TEXT-ARGS Parsed arguments ending with @code{#\\@}} @item ENVIRON The tag is an environment tag, expect @code{@@end foo}. @item TABLE-ENVIRON Like ENVIRON, but with special parsing rules for its arguments. @item FRAGMENT For @code{*fragment*}, the command used for parsing fragments of texinfo documents. @end table @code{INLINE-TEXT} commands will receive their arguments within their bodies, whereas the @code{-ARGS} commands will receive them in their attribute list. @code{EOF-TEXT} receives its arguments in its body. @code{ENVIRON} commands have both: parsed arguments until the end of line, received through their attribute list, and parsed text until the @code{@@end}, received in their bodies. @code{EOF-TEXT-ARGS} receives its arguments in its attribute list, as in @code{ENVIRON}. In addition, @code{ALIAS} can alias one command to another. The alias will never be seen in parsed stexinfo. There are four @@-commands that are treated specially. @code{@@include} is a low-level token that will not be seen by higher-level parsers, so it has no content-model. @code{@@para} is the paragraph command, which is only implicit in the texinfo source. @code{@@item} has special syntax, as noted above, and @code{@@entry} is how this parser treats @code{@@item} commands within @code{@@table}, @code{@@ftable}, and @code{@@vtable}. Also, indexing commands (@code{@@cindex}, etc.) are treated specially. Their arguments are parsed, but they are needed before entering the element so that an anchor can be inserted into the text before the index entry. @item args Named arguments to the command, in the same format as the formals for a lambda. Only present for @code{INLINE-ARGS}, @code{EOL-ARGS}, @code{INLINE-TEXT-ARGS}, @code{ENVIRON}, @code{TABLE-ENVIRON} commands. @end table" '(;; Special commands (include #f) ;; this is a low-level token (para PARAGRAPH) (item ITEM) (entry ENTRY . heading) (noindent EMPTY-COMMAND) (*fragment* FRAGMENT) ;; Inline text commands (*braces* INLINE-TEXT) ;; FIXME: make me irrelevant (bold INLINE-TEXT) (sample INLINE-TEXT) (samp INLINE-TEXT) (code INLINE-TEXT) (math INLINE-TEXT) (kbd INLINE-TEXT) (key INLINE-TEXT) (var INLINE-TEXT) (env INLINE-TEXT) (file INLINE-TEXT) (command INLINE-TEXT) (option INLINE-TEXT) (dfn INLINE-TEXT) (cite INLINE-TEXT) (acro INLINE-TEXT) (email INLINE-TEXT) (emph INLINE-TEXT) (strong INLINE-TEXT) (sample INLINE-TEXT) (sc INLINE-TEXT) (titlefont INLINE-TEXT) (asis INLINE-TEXT) (b INLINE-TEXT) (i INLINE-TEXT) (r INLINE-TEXT) (sansserif INLINE-TEXT) (slanted INLINE-TEXT) (t INLINE-TEXT) ;; Inline args commands (value INLINE-ARGS . (key)) (ref INLINE-ARGS . (node #:opt name section info-file manual)) (xref INLINE-ARGS . (node #:opt name section info-file manual)) (pxref INLINE-TEXT-ARGS . (node #:opt name section info-file manual)) (url ALIAS . uref) (uref INLINE-ARGS . (url #:opt title replacement)) (anchor INLINE-ARGS . (name)) (dots INLINE-ARGS . ()) (result INLINE-ARGS . ()) (bullet INLINE-ARGS . ()) (copyright INLINE-ARGS . ()) (tie INLINE-ARGS . ()) (image INLINE-ARGS . (file #:opt width height alt-text extension)) ;; Inline parsed args commands (acronym INLINE-TEXT-ARGS . (acronym #:opt meaning)) ;; EOL args elements (node EOL-ARGS . (name #:opt next previous up)) (c EOL-ARGS . all) (comment EOL-ARGS . all) (setchapternewpage EOL-ARGS . all) (sp EOL-ARGS . all) (page EOL-ARGS . ()) (vskip EOL-ARGS . all) (syncodeindex EOL-ARGS . all) (contents EOL-ARGS . ()) (shortcontents EOL-ARGS . ()) (summarycontents EOL-ARGS . ()) (insertcopying EOL-ARGS . ()) (dircategory EOL-ARGS . (category)) (top EOL-ARGS . (title)) (printindex EOL-ARGS . (type)) (paragraphindent EOL-ARGS . (indent)) ;; EOL text commands (*ENVIRON-ARGS* EOL-TEXT) (itemx EOL-TEXT) (set EOL-TEXT) (center EOL-TEXT) (title EOL-TEXT) (subtitle EOL-TEXT) (author EOL-TEXT) (chapter EOL-TEXT) (section EOL-TEXT) (appendix EOL-TEXT) (appendixsec EOL-TEXT) (unnumbered EOL-TEXT) (unnumberedsec EOL-TEXT) (subsection EOL-TEXT) (subsubsection EOL-TEXT) (appendixsubsec EOL-TEXT) (appendixsubsubsec EOL-TEXT) (unnumberedsubsec EOL-TEXT) (unnumberedsubsubsec EOL-TEXT) (chapheading EOL-TEXT) (majorheading EOL-TEXT) (heading EOL-TEXT) (subheading EOL-TEXT) (subsubheading EOL-TEXT) (deftpx EOL-TEXT-ARGS . (category name . attributes)) (defcvx EOL-TEXT-ARGS . (category class name)) (defivarx EOL-TEXT-ARGS . (class name)) (deftypeivarx EOL-TEXT-ARGS . (class data-type name)) (defopx EOL-TEXT-ARGS . (category class name . arguments)) (deftypeopx EOL-TEXT-ARGS . (category class data-type name . arguments)) (defmethodx EOL-TEXT-ARGS . (class name . arguments)) (deftypemethodx EOL-TEXT-ARGS . (class data-type name . arguments)) (defoptx EOL-TEXT-ARGS . (name)) (defvrx EOL-TEXT-ARGS . (category name)) (defvarx EOL-TEXT-ARGS . (name)) (deftypevrx EOL-TEXT-ARGS . (category data-type name)) (deftypevarx EOL-TEXT-ARGS . (data-type name)) (deffnx EOL-TEXT-ARGS . (category name . arguments)) (deftypefnx EOL-TEXT-ARGS . (category data-type name . arguments)) (defspecx EOL-TEXT-ARGS . (name . arguments)) (defmacx EOL-TEXT-ARGS . (name . arguments)) (defunx EOL-TEXT-ARGS . (name . arguments)) (deftypefunx EOL-TEXT-ARGS . (data-type name . arguments)) ;; Indexing commands (cindex INDEX . entry) (findex INDEX . entry) (vindex INDEX . entry) (kindex INDEX . entry) (pindex INDEX . entry) (tindex INDEX . entry) ;; Environment commands (those that need @end) (texinfo ENVIRON . title) (ignore ENVIRON . ()) (ifinfo ENVIRON . ()) (iftex ENVIRON . ()) (ifhtml ENVIRON . ()) (ifxml ENVIRON . ()) (ifplaintext ENVIRON . ()) (ifnotinfo ENVIRON . ()) (ifnottex ENVIRON . ()) (ifnothtml ENVIRON . ()) (ifnotxml ENVIRON . ()) (ifnotplaintext ENVIRON . ()) (titlepage ENVIRON . ()) (menu ENVIRON . ()) (direntry ENVIRON . ()) (copying ENVIRON . ()) (example ENVIRON . ()) (smallexample ENVIRON . ()) (display ENVIRON . ()) (smalldisplay ENVIRON . ()) (verbatim ENVIRON . ()) (format ENVIRON . ()) (smallformat ENVIRON . ()) (lisp ENVIRON . ()) (smalllisp ENVIRON . ()) (cartouche ENVIRON . ()) (quotation ENVIRON . ()) (deftp ENVIRON . (category name . attributes)) (defcv ENVIRON . (category class name)) (defivar ENVIRON . (class name)) (deftypeivar ENVIRON . (class data-type name)) (defop ENVIRON . (category class name . arguments)) (deftypeop ENVIRON . (category class data-type name . arguments)) (defmethod ENVIRON . (class name . arguments)) (deftypemethod ENVIRON . (class data-type name . arguments)) (defopt ENVIRON . (name)) (defvr ENVIRON . (category name)) (defvar ENVIRON . (name)) (deftypevr ENVIRON . (category data-type name)) (deftypevar ENVIRON . (data-type name)) (deffn ENVIRON . (category name . arguments)) (deftypefn ENVIRON . (category data-type name . arguments)) (defspec ENVIRON . (name . arguments)) (defmac ENVIRON . (name . arguments)) (defun ENVIRON . (name . arguments)) (deftypefun ENVIRON . (data-type name . arguments)) (table TABLE-ENVIRON . (formatter)) (itemize TABLE-ENVIRON . (formatter)) (enumerate TABLE-ENVIRON . (start)) (ftable TABLE-ENVIRON . (formatter)) (vtable TABLE-ENVIRON . (formatter)))) (define command-depths '((chapter . 1) (section . 2) (subsection . 3) (subsubsection . 4) (top . 0) (unnumbered . 1) (unnumberedsec . 2) (unnumberedsubsec . 3) (unnumberedsubsubsec . 4) (appendix . 1) (appendixsec . 2) (appendixsection . 2) (appendixsubsec . 3) (appendixsubsubsec . 4))) (define (texi-command-depth command max-depth) "Given 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 example" (let ((depth (and=> (assq command command-depths) cdr))) (and depth (<= depth max-depth) depth))) ;; The % is for arguments (define (space-significant? command) (memq command '(example smallexample verbatim lisp smalllisp menu %))) ;; Like a DTD for texinfo (define (command-spec command) (let ((spec (assq command texi-command-specs))) (cond ((not spec) (parser-error #f "Unknown command" command)) ((eq? (cadr spec) 'ALIAS) (command-spec (cddr spec))) (else spec)))) (define (inline-content? content) (case content ((INLINE-TEXT INLINE-ARGS INLINE-TEXT-ARGS) #t) (else #f))) ;;======================================================================== ;; Lower-level parsers and scanners ;; ;; They deal with primitive lexical units (Names, whitespaces, tags) and ;; with pieces of more generic productions. Most of these parsers must ;; be called in appropriate context. For example, complete-start-command ;; must be called only when the @-command start has been detected and ;; its name token has been read. ;; Test if a string is made of only whitespace ;; An empty string is considered made of whitespace as well (define (string-whitespace? str) (or (string-null? str) (string-every char-whitespace? str))) ;; Like read-text-line, but allows EOF. (define read-eof-breaks '(*eof* #\return #\newline)) (define (read-eof-line port) (if (eof-object? (peek-char port)) (peek-char port) (let* ((line (next-token '() read-eof-breaks "reading a line" port)) (c (read-char port))) ; must be either \n or \r or EOF (if (and (eq? c #\return) (eq? (peek-char port) #\newline)) (read-char port)) ; skip \n that follows \r line))) (define (skip-whitespace port) (skip-while '(#\space #\tab #\return #\newline) port)) (define (skip-horizontal-whitespace port) (skip-while '(#\space #\tab) port)) ;; command ::= Letter+ ;; procedure: read-command PORT ;; ;; Read a command starting from the current position in the PORT and ;; return it as a symbol. (define (read-command port) (let ((first-char (peek-char port))) (or (char-alphabetic? first-char) (parser-error port "Nonalphabetic @-command char: '" first-char "'"))) (string->symbol (next-token-of (lambda (c) (cond ((eof-object? c) #f) ((char-alphabetic? c) c) (else #f))) port))) ;; A token is a primitive lexical unit. It is a record with two fields, ;; token-head and token-kind. ;; ;; Token types: ;; END The end of a texinfo command. If the command is ended by }, ;; token-head will be #f. Otherwise if the command is ended by ;; @end COMMAND, token-head will be COMMAND. As a special case, ;; @bye is the end of a special @texinfo command. ;; START The start of a texinfo command. The token-head will be a ;; symbol of the @-command name. ;; INCLUDE An @include directive. The token-head will be empty -- the ;; caller is responsible for reading the include file name. ;; ITEM @item commands have an irregular syntax. They end at the ;; next @item, or at the end of the environment. For that ;; read-command-token treats them specially. (define (make-token kind head) (cons kind head)) (define token? pair?) (define token-kind car) (define token-head cdr) ;; procedure: read-command-token PORT ;; ;; This procedure starts parsing of a command token. The current ;; position in the stream must be #\@. This procedure scans enough of ;; the input stream to figure out what kind of a command token it is ;; seeing. The procedure returns a token structure describing the token. (define (read-command-token port) (assert-curr-char '(#\@) "start of the command" port) (let ((peeked (peek-char port))) (cond ((memq peeked '(#\! #\: #\. #\? #\@ #\\ #\{ #\})) ;; @-commands that escape characters (make-token 'STRING (string (read-char port)))) (else (let ((name (read-command port))) (case name ((end) ;; got an ending tag (let ((command (string-trim-both (read-eof-line port)))) (or (and (not (string-null? command)) (string-every char-alphabetic? command)) (parser-error port "malformed @end" command)) (make-token 'END (string->symbol command)))) ((bye) ;; the end of the top (make-token 'END 'texinfo)) ((item) (make-token 'ITEM 'item)) ((include) (make-token 'INCLUDE #f)) (else (make-token 'START name)))))))) ;; procedure+: read-verbatim-body PORT STR-HANDLER SEED ;; ;; This procedure must be called after we have read a string ;; "@verbatim\n" that begins a verbatim section. The current position ;; must be the first position of the verbatim body. This function reads ;; _lines_ of the verbatim body and passes them to a STR-HANDLER, a ;; character data consumer. ;; ;; The str-handler is a STR-HANDLER, a procedure STRING1 STRING2 SEED. ;; The first STRING1 argument to STR-HANDLER never contains a newline. ;; The second STRING2 argument often will. On the first invocation of the ;; STR-HANDLER, the seed is the one passed to read-verbatim-body ;; as the third argument. The result of this first invocation will be ;; passed as the seed argument to the second invocation of the line ;; consumer, and so on. The result of the last invocation of the ;; STR-HANDLER is returned by the read-verbatim-body. Note a ;; similarity to the fundamental 'fold' iterator. ;; ;; Within a verbatim section all characters are taken at their face ;; value. It ends with "\n@end verbatim(\r)?\n". ;; Must be called right after the newline after @verbatim. (define (read-verbatim-body port str-handler seed) (let loop ((seed seed)) (let ((fragment (next-token '() '(#\newline) "reading verbatim" port))) ;; We're reading the char after the 'fragment', which is ;; #\newline. (read-char port) (if (string=? fragment "@end verbatim") seed (loop (str-handler fragment "\n" seed)))))) ;; procedure+: read-arguments PORT ;; ;; This procedure reads and parses a production ArgumentList. ;; ArgumentList ::= S* Argument (S* , S* Argument)* S* ;; Argument ::= ([^@{},])* ;; ;; Arguments are the things in braces, i.e @ref{my node} has one ;; argument, "my node". Most commands taking braces actually don't have ;; arguments, they process text. For example, in ;; @emph{@strong{emphasized}}, the emph takes text, because the parse ;; continues into the braces. ;; ;; Any whitespace within Argument is replaced with a single space. ;; Whitespace around an Argument is trimmed. ;; ;; The procedure returns a list of arguments. Afterwards the current ;; character will be after the final #\}. (define (read-arguments port stop-char) (define (split str) (read-char port) ;; eat the delimiter (let ((ret (map (lambda (x) (if (string-null? x) #f x)) (map string-trim-both (string-split str #\,))))) (if (and (pair? ret) (eq? (car ret) #f) (null? (cdr ret))) '() ret))) (split (next-token '() (list stop-char) "arguments of @-command" port))) ;; procedure+: complete-start-command COMMAND PORT ;; ;; This procedure is to complete parsing of an @-command. The procedure ;; must be called after the command token has been read. COMMAND is a ;; TAG-NAME. ;; ;; This procedure returns several values: ;; COMMAND: a symbol. ;; ARGUMENTS: command's arguments, as an alist. ;; CONTENT-MODEL: the content model of the command. ;; ;; On exit, the current position in PORT will depend on the CONTENT-MODEL. ;; ;; Content model Port position ;; ============= ============= ;; INLINE-TEXT One character after the #\{. ;; INLINE-TEXT-ARGS One character after the #\{. ;; INLINE-ARGS The first character after the #\}. ;; EOL-TEXT The first non-whitespace character after the command. ;; ENVIRON, TABLE-ENVIRON, EOL-ARGS, EOL-TEXT ;; The first character on the next line. ;; PARAGRAPH, ITEM, EMPTY-COMMAND ;; The first character after the command. (define (arguments->attlist port args arg-names) (let loop ((in args) (names arg-names) (opt? #f) (out '())) (cond ((symbol? names) ;; a rest arg (reverse (if (null? in) out (acons names in out)))) ((and (not (null? names)) (eq? (car names) #:opt)) (loop in (cdr names) #t out)) ((null? in) (if (or (null? names) opt?) (reverse out) (parser-error port "@-command expected more arguments:" args arg-names names))) ((null? names) (parser-error port "@-command didn't expect more arguments:" in)) ((not (car in)) (or (and opt? (loop (cdr in) (cdr names) opt? out)) (parser-error "@-command missing required argument" (car names)))) (else (loop (cdr in) (cdr names) opt? (acons (car names) (if (list? (car in)) (car in) (list (car in))) out)))))) (define (parse-table-args command port) (let* ((line (string-trim-both (read-text-line port))) (length (string-length line))) (define (get-formatter) (or (and (not (zero? length)) (eq? (string-ref line 0) #\@) (let ((f (string->symbol (substring line 1)))) (or (inline-content? (cadr (command-spec f))) (parser-error port "@item formatter must be INLINE" f)) f)) (parser-error port "Invalid @item formatter" line))) (case command ((enumerate) (if (zero? length) '() `((start ,(if (or (and (eq? length 1) (char-alphabetic? (string-ref line 0))) (string-every char-numeric? line)) line (parser-error port "Invalid enumerate start" line)))))) ((itemize) `((bullet ,(or (and (eq? length 1) line) (and (string-null? line) '(bullet)) (list (get-formatter)))))) (else ;; tables of various varieties `((formatter (,(get-formatter)))))))) (define (complete-start-command command port) (define (get-arguments type arg-names stop-char) (arguments->attlist port (read-arguments port stop-char) arg-names)) (let* ((spec (command-spec command)) (command (car spec)) (type (cadr spec)) (arg-names (cddr spec))) (case type ((INLINE-TEXT) (assert-curr-char '(#\{) "Inline element lacks {" port) (values command '() type)) ((INLINE-ARGS) (assert-curr-char '(#\{) "Inline element lacks {" port) (values command (get-arguments type arg-names #\}) type)) ((INLINE-TEXT-ARGS) (assert-curr-char '(#\{) "Inline element lacks {" port) (values command '() type)) ((EOL-ARGS) (values command (get-arguments type arg-names #\newline) type)) ((ENVIRON ENTRY INDEX) (skip-horizontal-whitespace port) (values command (parse-environment-args command port) type)) ((TABLE-ENVIRON) (skip-horizontal-whitespace port) (values command (parse-table-args command port) type)) ((EOL-TEXT) (skip-horizontal-whitespace port) (values command '() type)) ((EOL-TEXT-ARGS) (skip-horizontal-whitespace port) (values command (parse-eol-text-args command port) type)) ((PARAGRAPH EMPTY-COMMAND ITEM FRAGMENT) (values command '() type)) (else ;; INCLUDE shouldn't get here (parser-error port "can't happen"))))) ;;----------------------------------------------------------------------------- ;; Higher-level parsers and scanners ;; ;; They parse productions corresponding entire @-commands. ;; Only reads @settitle, leaves it to the command parser to finish ;; reading the title. (define (take-until-settitle port) (or (find-string-from-port? "\n@settitle " port) (parser-error port "No \\n@settitle found")) (skip-horizontal-whitespace port) (and (eq? (peek-char port) #\newline) (parser-error port "You have a @settitle, but no title"))) ;; procedure+: read-char-data PORT EXPECT-EOF? STR-HANDLER SEED ;; ;; This procedure is to read the CharData of a texinfo document. ;; ;; text ::= (CharData | Command)* ;; ;; The procedure reads CharData and stops at @-commands (or ;; environments). It also stops at an open or close brace. ;; ;; port ;; a PORT to read ;; expect-eof? ;; a boolean indicating if EOF is normal, i.e., the character ;; data may be terminated by the EOF. EOF is normal ;; while processing the main document. ;; preserve-ws? ;; a boolean indicating if we are within a whitespace-preserving ;; environment. If #t, suppress paragraph detection. ;; str-handler ;; a STR-HANDLER, see read-verbatim-body ;; seed ;; an argument passed to the first invocation of STR-HANDLER. ;; ;; The procedure returns two results: SEED and TOKEN. The SEED is the ;; result of the last invocation of STR-HANDLER, or the original seed if ;; STR-HANDLER was never called. ;; ;; TOKEN can be either an eof-object (this can happen only if expect-eof? ;; was #t), or a texinfo token denoting the start or end of a tag. ;; read-char-data port expect-eof? preserve-ws? str-handler seed (define read-char-data (let* ((end-chars-eof '(*eof* #\{ #\} #\@ #\newline))) (define (handle str-handler str1 str2 seed) (if (and (string-null? str1) (string-null? str2)) seed (str-handler str1 str2 seed))) (lambda (port expect-eof? preserve-ws? str-handler seed) (let ((end-chars ((if expect-eof? identity cdr) end-chars-eof))) (let loop ((seed seed)) (let* ((fragment (next-token '() end-chars "reading char data" port)) (term-char (peek-char port))) ; one of end-chars (cond ((eof-object? term-char) ; only if expect-eof? (values (handle str-handler fragment "" seed) term-char)) ((memq term-char '(#\@ #\{ #\})) (values (handle str-handler fragment "" seed) (case term-char ((#\@) (read-command-token port)) ((#\{) (make-token 'START '*braces*)) ((#\}) (read-char port) (make-token 'END #f))))) ((eq? term-char #\newline) ;; Always significant, unless directly before an end token. (let ((c (peek-next-char port))) (cond ((eof-object? c) (or expect-eof? (parser-error port "EOF while reading char data")) (values (handle str-handler fragment "" seed) c)) ((eq? c #\@) (let* ((token (read-command-token port)) (end? (eq? (token-kind token) 'END))) (values (handle str-handler fragment (if end? "" (if preserve-ws? "\n" " ")) seed) token))) ((and (not preserve-ws?) (eq? c #\newline)) ;; paragraph-separator ::= #\newline #\newline+ (skip-while '(#\newline) port) (skip-horizontal-whitespace port) (values (handle str-handler fragment "" seed) (make-token 'PARA 'para))) (else (loop (handle str-handler fragment (if preserve-ws? "\n" " ") seed))))))))))))) ; procedure+: assert-token TOKEN KIND NAME ; Make sure that TOKEN is of anticipated KIND and has anticipated NAME (define (assert-token token kind name) (or (and (token? token) (eq? kind (token-kind token)) (equal? name (token-head token))) (parser-error #f "Expecting @end for " name ", got " token))) ;;======================================================================== ;; Highest-level parsers: Texinfo to SXML ;; These parsers are a set of syntactic forms to instantiate a SSAX ;; parser. The user tells what to do with the parsed character and ;; element data. These latter handlers determine if the parsing follows a ;; SAX or a DOM model. ;; syntax: make-command-parser fdown fup str-handler ;; Create a parser to parse and process one element, including its ;; character content or children elements. The parser is typically ;; applied to the root element of a document. ;; fdown ;; procedure COMMAND ARGUMENTS EXPECTED-CONTENT SEED ;; ;; This procedure is to generate the seed to be passed to handlers ;; that process the content of the element. This is the function ;; identified as 'fdown' in the denotational semantics of the XML ;; parser given in the title comments to (sxml ssax). ;; ;; fup ;; procedure COMMAND ARGUMENTS PARENT-SEED SEED ;; ;; This procedure is called when parsing of COMMAND is finished. ;; The SEED is the result from the last content parser (or from ;; fdown if the element has the empty content). PARENT-SEED is the ;; same seed as was passed to fdown. The procedure is to generate a ;; seed that will be the result of the element parser. This is the ;; function identified as 'fup' in the denotational semantics of ;; the XML parser given in the title comments to (sxml ssax). ;; ;; str-handler ;; A STR-HANDLER, see read-verbatim-body ;; ;; The generated parser is a ;; procedure COMMAND PORT SEED ;; ;; The procedure must be called *after* the command token has been read. (define (read-include-file-name port) (let ((x (string-trim-both (read-eof-line port)))) (if (string-null? x) (error "no file listed") x))) ;; fixme: should expand @value{} references (define (sxml->node-name sxml) "Turn some sxml string into a valid node name." (let loop ((in (string->list (sxml->string sxml))) (out '())) (if (null? in) (apply string (reverse out)) (if (memq (car in) '(#\{ #\} #\@ #\,)) (loop (cdr in) out) (loop (cdr in) (cons (car in) out)))))) (define (index command arguments fdown fup parent-seed) (case command ((deftp defcv defivar deftypeivar defop deftypeop defmethod deftypemethod defopt defvr defvar deftypevr deftypevar deffn deftypefn defspec defmac defun deftypefun) (let ((args `((name ,(string-append (symbol->string command) "-" (cadr (assq 'name arguments))))))) (fup 'anchor args parent-seed (fdown 'anchor args 'INLINE-ARGS '())))) ((cindex findex vindex kindex pindex tindex) (let ((args `((name ,(string-append (symbol->string command) "-" (sxml->node-name (assq 'entry arguments))))))) (fup 'anchor args parent-seed (fdown 'anchor args 'INLINE-ARGS '())))) (else parent-seed))) (define (make-command-parser fdown fup str-handler) (lambda (command port seed) (let visit ((command command) (port port) (sig-ws? #f) (parent-seed seed)) (let*-values (((command arguments expected-content) (complete-start-command command port))) (let* ((parent-seed (index command arguments fdown fup parent-seed)) (seed (fdown command arguments expected-content parent-seed)) (eof-closes? (or (memq command '(texinfo para *fragment*)) (eq? expected-content 'EOL-TEXT))) (sig-ws? (or sig-ws? (space-significant? command))) (up (lambda (s) (fup command arguments parent-seed s))) (new-para (lambda (s) (fdown 'para '() 'PARAGRAPH s))) (make-end-para (lambda (p) (lambda (s) (fup 'para '() p s))))) (define (port-for-content) (if (eq? expected-content 'EOL-TEXT) (call-with-input-string (read-text-line port) identity) port)) (cond ((memq expected-content '(EMPTY-COMMAND INLINE-ARGS EOL-ARGS INDEX EOL-TEXT-ARGS)) ;; empty or finished by complete-start-command (up seed)) ((eq? command 'verbatim) (up (read-verbatim-body port str-handler seed))) (else (let loop ((port (port-for-content)) (expect-eof? eof-closes?) (end-para identity) (need-break? (and (not sig-ws?) (memq expected-content '(ENVIRON TABLE-ENVIRON ENTRY ITEM FRAGMENT)))) (seed seed)) (cond ((and need-break? (or sig-ws? (skip-whitespace port)) (not (memq (peek-char port) '(#\@ #\}))) (not (eof-object? (peek-char port)))) ;; Even if we have an @, it might be inline -- check ;; that later (let ((seed (end-para seed))) (loop port expect-eof? (make-end-para seed) #f (new-para seed)))) (else (let*-values (((seed token) (read-char-data port expect-eof? sig-ws? str-handler seed))) (cond ((eof-object? token) (case expect-eof? ((include #f) (end-para seed)) (else (up (end-para seed))))) (else (case (token-kind token) ((STRING) ;; this is only @-commands that escape ;; characters: @}, @@, @{ -- new para if need-break (let ((seed ((if need-break? end-para identity) seed))) (loop port expect-eof? (if need-break? (make-end-para seed) end-para) #f (str-handler (token-head token) "" ((if need-break? new-para identity) seed))))) ((END) ;; The end will only have a name if it's for an ;; environment (cond ((memq command '(item entry)) (let ((spec (command-spec (token-head token)))) (or (eq? (cadr spec) 'TABLE-ENVIRON) (parser-error port "@item not ended by @end table/enumerate/itemize" token)))) ((eq? expected-content 'ENVIRON) (assert-token token 'END command))) (up (end-para seed))) ((ITEM) (cond ((memq command '(enumerate itemize)) (up (visit 'item port sig-ws? (end-para seed)))) ((eq? expected-content 'TABLE-ENVIRON) (up (visit 'entry port sig-ws? (end-para seed)))) ((memq command '(item entry)) (visit command port sig-ws? (up (end-para seed)))) (else (parser-error port "@item must be within a table environment" command)))) ((PARA) ;; examine valid paragraphs? (loop port expect-eof? end-para (not sig-ws?) seed)) ((INCLUDE) ;; Recurse for include files (let ((seed (call-with-file-and-dir (read-include-file-name port) (lambda (port) (loop port 'include end-para need-break? seed))))) (loop port expect-eof? end-para need-break? seed))) ((START) ; Start of an @-command (let* ((head (token-head token)) (spec (command-spec head)) (head (car spec)) (type (cadr spec)) (inline? (inline-content? type)) (seed ((if (and inline? (not need-break?)) identity end-para) seed)) (end-para (if inline? (if need-break? (make-end-para seed) end-para) identity)) (new-para (if (and inline? need-break?) new-para identity))) (loop port expect-eof? end-para (not inline?) (visit head port sig-ws? (new-para seed))))) (else (parser-error port "Unknown token type" token)))))))))))))))) ;; procedure: reverse-collect-str-drop-ws fragments ;; ;; Given the list of fragments (some of which are text strings), reverse ;; the list and concatenate adjacent text strings. We also drop ;; "unsignificant" whitespace, that is, whitespace in front, behind and ;; between elements. The whitespace that is included in character data ;; is not affected. (define (reverse-collect-str-drop-ws fragments) (cond ((null? fragments) ; a shortcut '()) ((and (string? (car fragments)) ; another shortcut (null? (cdr fragments)) ; remove single ws-only string (string-whitespace? (car fragments))) '()) (else (let loop ((fragments fragments) (result '()) (strs '()) (all-whitespace? #t)) (cond ((null? fragments) (if all-whitespace? result ; remove leading ws (cons (apply string-append strs) result))) ((string? (car fragments)) (loop (cdr fragments) result (cons (car fragments) strs) (and all-whitespace? (string-whitespace? (car fragments))))) (else (loop (cdr fragments) (cons (car fragments) (cond ((null? strs) result) (all-whitespace? (if (null? result) result ; remove trailing whitespace (cons " " result))); replace interstitial ws with ; one space (else (cons (apply string-append strs) result)))) '() #t))))))) (define (parse-inline-text-args port spec text) (let lp ((in text) (cur '()) (out '())) (cond ((null? in) (if (and (pair? cur) (string? (car cur)) (string-whitespace? (car cur))) (lp in (cdr cur) out) (let ((args (reverse (if (null? cur) out (cons (reverse cur) out))))) (arguments->attlist port args (cddr spec))))) ((pair? (car in)) (lp (cdr in) (cons (car in) cur) out)) ((string-index (car in) #\,) (let* ((parts (string-split (car in) #\,)) (head (string-trim-right (car parts))) (rev-tail (reverse (cdr parts))) (last (string-trim (car rev-tail)))) (lp (cdr in) (if (string-null? last) cur (cons last cur)) (append (cdr rev-tail) (cons (reverse (if (string-null? head) cur (cons head cur))) out))))) (else (lp (cdr in) (cons (if (null? cur) (string-trim (car in)) (car in)) cur) out))))) (define (make-dom-parser) (make-command-parser (lambda (command args content seed) ; fdown '()) (lambda (command args parent-seed seed) ; fup (let* ((seed (reverse-collect-str-drop-ws seed)) (spec (command-spec command)) (command (car spec))) (if (eq? (cadr spec) 'INLINE-TEXT-ARGS) (cons (list command (cons '% (parse-inline-text-args #f spec seed))) parent-seed) (acons command (if (null? args) seed (acons '% args seed)) parent-seed)))) (lambda (string1 string2 seed) ; str-handler (if (string-null? string2) (cons string1 seed) (cons* string2 string1 seed))))) (define parse-environment-args (let ((parser (make-dom-parser))) ;; duplicate arguments->attlist to avoid unnecessary splitting (lambda (command port) (let* ((args (cdar (parser '*ENVIRON-ARGS* port '()))) (spec (command-spec command)) (command (car spec)) (arg-names (cddr spec))) (cond ((not arg-names) (if (null? args) '() (parser-error port "@-command doesn't take args" command))) ((eq? arg-names #t) (list (cons 'arguments args))) (else (let loop ((args args) (arg-names arg-names) (out '())) (cond ((null? arg-names) (if (null? args) (reverse! out) (parser-error port "@-command didn't expect more args" command args))) ((symbol? arg-names) (reverse! (acons arg-names args out))) ((null? args) (parser-error port "@-command expects more args" command arg-names)) ((and (string? (car args)) (string-index (car args) #\space)) => (lambda (i) (let ((rest (substring/shared (car args) (1+ i)))) (if (zero? i) (loop (cons rest (cdr args)) arg-names out) (loop (cons rest (cdr args)) (cdr arg-names) (cons (list (car arg-names) (substring (car args) 0 i)) out)))))) (else (loop (cdr args) (cdr arg-names) (if (and (pair? (car args)) (eq? (caar args) '*braces*)) (acons (car arg-names) (cdar args) out) (cons (list (car arg-names) (car args)) out)))))))))))) (define (parse-eol-text-args command port) ;; perhaps parse-environment-args should be named more ;; generically. (parse-environment-args command port)) ;; procedure: texi-fragment->stexi STRING ;; ;; A DOM parser for a texinfo fragment STRING. ;; ;; The procedure returns an SXML tree headed by the special tag, ;; *fragment*. (define (texi-fragment->stexi string-or-port) "Parse 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*}." (define (parse port) (postprocess (car ((make-dom-parser) '*fragment* port '())))) (if (input-port? string-or-port) (parse string-or-port) (call-with-input-string string-or-port parse))) ;; procedure: texi->stexi PORT ;; ;; This is an instance of a SSAX parser above that returns an SXML ;; representation of the texinfo document ready to be read at PORT. ;; ;; The procedure returns an SXML tree. The port points to the ;; first character after the @bye, or to the end of the file. (define (texi->stexi port) "Read 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." (let ((parser (make-dom-parser))) (take-until-settitle port) (postprocess (car (parser 'texinfo port '()))))) (define (car-eq? x y) (and (pair? x) (eq? (car x) y))) (define (make-contents tree) (define (lp in out depth) (cond ((null? in) (values in (cons 'enumerate (reverse! out)))) ((and (pair? (cdr in)) (texi-command-depth (caadr in) 4)) => (lambda (new-depth) (let ((node-name (and (car-eq? (car in) 'node) (cadr (assq 'name (cdadar in)))))) (cond ((< new-depth depth) (values in (cons 'enumerate (reverse! out)))) ((> new-depth depth) (let ((out-cdr (if (null? out) '() (cdr out))) (out-car (if (null? out) (list 'item) (car out)))) (let*-values (((new-in new-out) (lp in '() (1+ depth)))) (lp new-in (cons (append out-car (list new-out)) out-cdr) depth)))) (else ;; same depth (lp (cddr in) (cons `(item (para ,@(if node-name `((ref (% (node ,node-name)))) (cdadr in)))) out) depth)))))) (else (lp (cdr in) out depth)))) (let*-values (((_ contents) (lp tree '() 1))) `((chapheading "Table of Contents") ,contents))) (define (trim-whitespace str trim-left? trim-right?) (let* ((left-space? (and (not trim-left?) (string-prefix? " " str))) (right-space? (and (not trim-right?) (string-suffix? " " str))) (tail (append! (string-tokenize str) (if right-space? '("") '())))) (string-join (if left-space? (cons "" tail) tail)))) (define (postprocess tree) (define (loop in out state first? sig-ws?) (cond ((null? in) (values (reverse! out) state)) ((string? (car in)) (loop (cdr in) (cons (if sig-ws? (car in) (trim-whitespace (car in) first? (null? (cdr in)))) out) state #f sig-ws?)) ((pair? (car in)) (case (caar in) ((set) (if (null? (cdar in)) (error "@set missing arguments" in)) (if (string? (cadar in)) (let ((i (string-index (cadar in) #\space))) (if i (loop (cdr in) out (acons (substring (cadar in) 0 i) (cons (substring (cadar in) (1+ i)) (cddar in)) state) #f sig-ws?) (loop (cdr in) out (acons (cadar in) (cddar in) state) #f sig-ws?))) (error "expected a constant to define for @set" in))) ((value) (loop (fold-right cons (cdr in) (or (and=> (assoc (cadr (assq 'key (cdadar in))) state) cdr) (error "unknown value" (cdadar in) state))) out state #f sig-ws?)) ((copying) (loop (cdr in) out (cons (car in) state) #f sig-ws?)) ((insertcopying) (loop (fold-right cons (cdr in) (or (cdr (assoc 'copying state)) (error "copying isn't set yet"))) out state #f sig-ws?)) ((contents) (loop (cdr in) (fold cons out (make-contents tree)) state #f sig-ws?)) (else (let*-values (((kid-out state) (loop (car in) '() state #t (or sig-ws? (space-significant? (caar in)))))) (loop (cdr in) (cons kid-out out) state #f sig-ws?))))) (else ; a symbol (loop (cdr in) (cons (car in) out) state #t sig-ws?)))) (call-with-values (lambda () (loop tree '() '() #t #f)) (lambda (out state) out))) ;; Replace % with texinfo-arguments. (define (stexi->sxml tree) "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 point" (pre-post-order tree `((% . ,(lambda (x . t) (cons 'texinfo-arguments t))) (*text* . ,(lambda (x t) t)) (*default* . ,(lambda (x . t) (cons x t)))))) ;;; arch-tag: 73890afa-597c-4264-ae70-46fe7756ffb5 ;;; texinfo.scm ends here ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������oop/goops/stklos.scm��������������������������������������������������������������������������������0000644�����������������00000005354�15253246142�0010526 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; Copyright (C) 1999,2002, 2006, 2010, 2011 Free Software Foundation, Inc. ;;;; ;;;; This library 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. ;;;; ;;;; This library 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 library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; (define-module (oop goops stklos) :use-module (oop goops internal) :no-backtrace ) ;;; ;;; This is the stklos compatibility module. ;;; ;;; WARNING: This module is under construction. While we expect to be able ;;; to run most stklos code without problems in the future, this is not the ;;; case now. The current compatibility is only superficial. ;;; ;;; Any comments/complaints/patches are welcome. Tell us about ;;; your incompatibility problems (bug-guile@gnu.org). ;;; ;; Export all bindings that are exported from (oop goops)... (module-for-each (lambda (sym var) (module-add! (module-public-interface (current-module)) sym var)) (resolve-interface '(oop goops))) ;; ...but replace the following bindings: (export define-class define-method) ;; Also export the following (export write-object) ;;; Enable keyword support (*fixme*---currently this has global effect) (read-set! keywords 'prefix) (define-syntax-rule (define-class name supers (slot ...) rest ...) (standard-define-class name supers slot ... rest ...)) (define (toplevel-define! name val) (module-define! (current-module) name val)) (define-syntax define-method (syntax-rules (setter) ((_ (setter name) rest ...) (begin (if (or (not (defined? 'name)) (not (is-a? name <generic-with-setter>))) (toplevel-define! 'name (ensure-accessor (if (defined? 'name) name #f) 'name))) (add-method! (setter name) (method rest ...)))) ((_ name rest ...) (begin (if (or (not (defined? 'name)) (not (or (is-a? name <generic>) (is-a? name <primitive-generic>)))) (toplevel-define! 'name (ensure-generic (if (defined? 'name) name #f) 'name))) (add-method! name (method rest ...)))))) ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������oop/goops/internal.scm������������������������������������������������������������������������������0000644�����������������00000002422�15253246142�0011014 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; installed-scm-file ;;;; Copyright (C) 1999, 2001, 2006 Free Software Foundation, Inc. ;;;; ;;;; This library 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. ;;;; ;;;; This library 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 library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; (define-module (oop goops internal) :use-module (oop goops)) ;; Export all the bindings that are internal to `(oop goops)'. (let ((public-i (module-public-interface (current-module)))) (module-for-each (lambda (name var) (if (eq? name '%module-public-interface) #t (module-add! public-i name var))) (resolve-module '(oop goops)))) ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������oop/goops/dispatch.scm������������������������������������������������������������������������������0000644�����������������00000024605�15253246142�0011006 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; Copyright (C) 1999, 2000, 2001, 2003, 2006, 2009, 2012, 2015 Free Software Foundation, Inc. ;;;; ;;;; This library 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. ;;;; ;;;; This library 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 library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; ;; There are circularities here; you can't import (oop goops compile) ;; before (oop goops). So when compiling, make sure that things are ;; kosher. (eval-when (expand) (resolve-module '(oop goops))) (define-module (oop goops dispatch) #:use-module (oop goops) #:use-module (oop goops util) #:use-module (system base target) #:export (memoize-method!) #:no-backtrace) (define *dispatch-module* (current-module)) ;;; ;;; Generic functions have an applicable-methods cache associated with ;;; them. Every distinct set of types that is dispatched through a ;;; generic adds an entry to the cache. This cache gets compiled out to ;;; a dispatch procedure. In steady-state, this dispatch procedure is ;;; never recompiled; but during warm-up there is some churn, both to ;;; the cache and to the dispatch procedure. ;;; ;;; So what is the deal if warm-up happens in a multithreaded context? ;;; There is indeed a window between missing the cache for a certain set ;;; of arguments, and then updating the cache with the newly computed ;;; applicable methods. One of the updaters is liable to lose their new ;;; entry. ;;; ;;; This is actually OK though, because a subsequent cache miss for the ;;; race loser will just cause memoization to try again. The cache will ;;; eventually be consistent. We're not mutating the old part of the ;;; cache, just consing on the new entry. ;;; ;;; It doesn't even matter if the dispatch procedure and the cache are ;;; inconsistent -- most likely the type-set that lost the dispatch ;;; procedure race will simply re-trigger a memoization, but since the ;;; winner isn't in the effective-methods cache, it will likely also ;;; re-trigger a memoization, and the cache will finally be consistent. ;;; As you can see there is a possibility for ping-pong effects, but ;;; it's unlikely given the shortness of the window between slot-set! ;;; invocations. We could add a mutex, but it is strictly unnecessary, ;;; and would add runtime cost and complexity. ;;; (define (emit-linear-dispatch gf-sym nargs methods free rest?) (define (gen-syms n stem) (let lp ((n (1- n)) (syms '())) (if (< n 0) syms (lp (1- n) (cons (gensym stem) syms))))) (let* ((args (gen-syms nargs "a")) (types (gen-syms nargs "t"))) (let lp ((methods methods) (free free) (exp `(cache-miss ,gf-sym ,(if rest? `(cons* ,@args rest) `(list ,@args))))) (cond ((null? methods) (values `(,(if rest? `(,@args . rest) args) (let ,(map (lambda (t a) `(,t (class-of ,a))) types args) ,exp)) free)) (else ;; jeez (let preddy ((free free) (types types) (specs (vector-ref (car methods) 1)) (checks '())) (if (null? types) (let ((m-sym (gensym "p"))) (lp (cdr methods) (acons (vector-ref (car methods) 3) m-sym free) `(if (and . ,checks) ,(if rest? `(apply ,m-sym ,@args rest) `(,m-sym . ,args)) ,exp))) (let ((var (assq-ref free (car specs)))) (if var (preddy free (cdr types) (cdr specs) (cons `(eq? ,(car types) ,var) checks)) (let ((var (gensym "c"))) (preddy (acons (car specs) var free) (cdr types) (cdr specs) (cons `(eq? ,(car types) ,var) checks)))))))))))) (define (compute-dispatch-procedure gf cache) (define (scan) (let lp ((ls cache) (nreq -1) (nrest -1)) (cond ((null? ls) (collate (make-vector (1+ nreq) '()) (make-vector (1+ nrest) '()))) ((vector-ref (car ls) 2) ; rest (lp (cdr ls) nreq (max nrest (vector-ref (car ls) 0)))) (else ; req (lp (cdr ls) (max nreq (vector-ref (car ls) 0)) nrest))))) (define (collate req rest) (let lp ((ls cache)) (cond ((null? ls) (emit req rest)) ((vector-ref (car ls) 2) ; rest (let ((n (vector-ref (car ls) 0))) (vector-set! rest n (cons (car ls) (vector-ref rest n))) (lp (cdr ls)))) (else ; req (let ((n (vector-ref (car ls) 0))) (vector-set! req n (cons (car ls) (vector-ref req n))) (lp (cdr ls))))))) (define (emit req rest) (let ((gf-sym (gensym "g"))) (define (emit-rest n clauses free) (if (< n (vector-length rest)) (let ((methods (vector-ref rest n))) (cond ((null? methods) (emit-rest (1+ n) clauses free)) ;; FIXME: hash dispatch (else (call-with-values (lambda () (emit-linear-dispatch gf-sym n methods free #t)) (lambda (clause free) (emit-rest (1+ n) (cons clause clauses) free)))))) (emit-req (1- (vector-length req)) clauses free))) (define (emit-req n clauses free) (if (< n 0) (comp `(lambda ,(map cdr free) (case-lambda ,@clauses)) (map car free)) (let ((methods (vector-ref req n))) (cond ((null? methods) (emit-req (1- n) clauses free)) ;; FIXME: hash dispatch (else (call-with-values (lambda () (emit-linear-dispatch gf-sym n methods free #f)) (lambda (clause free) (emit-req (1- n) (cons clause clauses) free)))))))) (emit-rest 0 (if (or (zero? (vector-length rest)) (null? (vector-ref rest 0))) (list `(args (cache-miss ,gf-sym args))) '()) (acons gf gf-sym '())))) (define (comp exp vals) ;; When cross-compiling Guile itself, the native Guile must generate ;; code for the host. (with-target %host-type (lambda () (let ((p ((@ (system base compile) compile) exp #:env *dispatch-module* #:from 'scheme #:opts '(#:partial-eval? #f #:cse? #f)))) (apply p vals))))) ;; kick it. (scan)) ;; o/~ ten, nine, eight ;; sometimes that's just how it goes ;; three, two, one ;; ;; get out before it blows o/~ ;; (define timer-init 30) (define (delayed-compile gf) (let ((timer timer-init)) (lambda args (set! timer (1- timer)) (cond ((zero? timer) (let ((dispatch (compute-dispatch-procedure gf (slot-ref gf 'effective-methods)))) (slot-set! gf 'procedure dispatch) (apply dispatch args))) (else ;; interestingly, this catches recursive compilation attempts as ;; well; in that case, timer is negative (cache-dispatch gf args)))))) (define (cache-dispatch gf args) (define (map-until n f ls) (if (or (zero? n) (null? ls)) '() (cons (f (car ls)) (map-until (1- n) f (cdr ls))))) (define (equal? x y) ; can't use the stock equal? because it's a generic... (cond ((pair? x) (and (pair? y) (eq? (car x) (car y)) (equal? (cdr x) (cdr y)))) ((null? x) (null? y)) (else #f))) (if (slot-ref gf 'n-specialized) (let ((types (map-until (slot-ref gf 'n-specialized) class-of args))) (let lp ((cache (slot-ref gf 'effective-methods))) (cond ((null? cache) (cache-miss gf args)) ((equal? (vector-ref (car cache) 1) types) (apply (vector-ref (car cache) 3) args)) (else (lp (cdr cache)))))) (cache-miss gf args))) (define (cache-miss gf args) (apply (memoize-method! gf args) args)) (define (memoize-effective-method! gf args applicable) (define (first-n ls n) (if (or (zero? n) (null? ls)) '() (cons (car ls) (first-n (cdr ls) (- n 1))))) (define (parse n ls) (cond ((null? ls) (memoize n #f (map class-of args))) ((= n (slot-ref gf 'n-specialized)) (memoize n #t (map class-of (first-n args n)))) (else (parse (1+ n) (cdr ls))))) (define (memoize len rest? types) (let* ((cmethod ((@@ (oop goops) compute-cmethod) applicable types)) (cache (cons (vector len types rest? cmethod) (slot-ref gf 'effective-methods)))) (slot-set! gf 'effective-methods cache) (slot-set! gf 'procedure (delayed-compile gf)) cmethod)) (parse 0 args)) ;;; ;;; Memoization ;;; (define (memoize-method! gf args) (let ((applicable ((if (eq? gf compute-applicable-methods) %compute-applicable-methods compute-applicable-methods) gf args))) (cond (applicable (memoize-effective-method! gf args applicable)) (else (no-applicable-method gf args))))) (set-procedure-property! memoize-method! 'system-procedure #t) ���������������������������������������������������������������������������������������������������������������������������oop/goops/active-slot.scm���������������������������������������������������������������������������0000644�����������������00000004407�15253246142�0011437 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; installed-scm-file ;;;; Copyright (C) 1999, 2001, 2006, 2009 Free Software Foundation, Inc. ;;;; Copyright (C) 1993-1998 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr> ;;;; ;;;; This library 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. ;;;; ;;;; This library 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 library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; ;;;; ;;;; This file was based upon active-slot.stklos from the STk distribution ;;;; version 4.0.1 by Erick Gallesio <eg@unice.fr>. ;;;; (define-module (oop goops active-slot) :use-module (oop goops internal) :export (<active-class>)) (define-class <active-class> (<class>)) (define-method (compute-get-n-set (class <active-class>) slot) (if (eq? (slot-definition-allocation slot) #:active) (let* ((index (slot-ref class 'nfields)) (s (cdr slot)) (before-ref (get-keyword #:before-slot-ref s #f)) (after-ref (get-keyword #:after-slot-ref s #f)) (before-set! (get-keyword #:before-slot-set! s #f)) (after-set! (get-keyword #:after-slot-set! s #f)) (unbound (make-unbound))) (slot-set! class 'nfields (+ index 1)) (list (lambda (o) (if before-ref (if (before-ref o) (let ((res (%fast-slot-ref o index))) (and after-ref (not (eqv? res unbound)) (after-ref o)) res) (make-unbound)) (let ((res (%fast-slot-ref o index))) (and after-ref (not (eqv? res unbound)) (after-ref o)) res))) (lambda (o v) (if before-set! (if (before-set! o v) (begin (%fast-slot-set! o index v) (and after-set! (after-set! o v)))) (begin (%fast-slot-set! o index v) (and after-set! (after-set! o v))))))) (next-method))) ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������oop/goops/describe.scm������������������������������������������������������������������������������0000644�����������������00000013533�15253246142�0010765 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; installed-scm-file ;;;; Copyright (C) 1998, 1999, 2001, 2006, 2008, 2009 Free Software Foundation, Inc. ;;;; Copyright (C) 1993-1998 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr> ;;;; ;;;; This library 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. ;;;; ;;;; This library 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 library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; ;;;; ;;;; This file was based upon describe.stklos from the STk distribution ;;;; version 4.0.1 by Erick Gallesio <eg@unice.fr>. ;;;; (define-module (oop goops describe) :use-module (oop goops) :use-module (ice-9 session) :use-module (ice-9 format) :export (describe)) ; Export the describe generic function ;;; ;;; describe for simple objects ;;; (define-method (describe (x <top>)) (format #t "~s is " x) (cond ((integer? x) (format #t "an integer")) ((real? x) (format #t "a real")) ((complex? x) (format #t "a complex number")) ((null? x) (format #t "an empty list")) ((boolean? x) (format #t "a boolean value (~s)" (if x 'true 'false))) ((char? x) (format #t "a character, ascii value is ~s" (char->integer x))) ((symbol? x) (format #t "a symbol")) ((list? x) (format #t "a list")) ((pair? x) (if (pair? (cdr x)) (format #t "an improper list") (format #t "a pair"))) ((string? x) (if (eqv? x "") (format #t "an empty string") (format #t "a string of length ~s" (string-length x)))) ((vector? x) (if (eqv? x '#()) (format #t "an empty vector") (format #t "a vector of length ~s" (vector-length x)))) ((eof-object? x) (format #t "the end-of-file object")) (else (format #t "an unknown object (~s)" x))) (format #t ".~%") *unspecified*) (define-method (describe (x <procedure>)) (let ((name (procedure-name x))) (if name (format #t "`~s'" name) (display x)) (display " is ") (display (if name #\a "an anonymous")) (display " procedure") (display " with ") (arity x))) ;;; ;;; describe for GOOPS instances ;;; (define (safe-class-name class) (if (slot-bound? class 'name) (class-name class) class)) (define-method (describe (x <object>)) (format #t "~S is an instance of class ~A~%" x (safe-class-name (class-of x))) ;; print all the instance slots (format #t "Slots are: ~%") (for-each (lambda (slot) (let ((name (slot-definition-name slot))) (format #t " ~S = ~A~%" name (if (slot-bound? x name) (format #f "~S" (slot-ref x name)) "#<unbound>")))) (class-slots (class-of x))) *unspecified*) ;;; ;;; Describe for classes ;;; (define-method (describe (x <class>)) (format #t "~S is a class. It's an instance of ~A~%" (safe-class-name x) (safe-class-name (class-of x))) ;; Super classes (format #t "Superclasses are:~%") (for-each (lambda (class) (format #t " ~A~%" (safe-class-name class))) (class-direct-supers x)) ;; Direct slots (let ((slots (class-direct-slots x))) (if (null? slots) (format #t "(No direct slot)~%") (begin (format #t "Directs slots are:~%") (for-each (lambda (s) (format #t " ~A~%" (slot-definition-name s))) slots)))) ;; Direct subclasses (let ((classes (class-direct-subclasses x))) (if (null? classes) (format #t "(No direct subclass)~%") (begin (format #t "Directs subclasses are:~%") (for-each (lambda (s) (format #t " ~A~%" (safe-class-name s))) classes)))) ;; CPL (format #t "Class Precedence List is:~%") (for-each (lambda (s) (format #t " ~A~%" (safe-class-name s))) (class-precedence-list x)) ;; Direct Methods (let ((methods (class-direct-methods x))) (if (null? methods) (format #t "(No direct method)~%") (begin (format #t "Class direct methods are:~%") (for-each describe methods)))) ; (format #t "~%Field Initializers ~% ") ; (write (slot-ref x 'initializers)) (newline) ; (format #t "~%Getters and Setters~% ") ; (write (slot-ref x 'getters-n-setters)) (newline) ) ;;; ;;; Describe for generic functions ;;; (define-method (describe (x <generic>)) (let ((name (generic-function-name x)) (methods (generic-function-methods x))) ;; Title (format #t "~S is a generic function. It's an instance of ~A.~%" name (safe-class-name (class-of x))) ;; Methods (if (null? methods) (format #t "(No method defined for ~S)~%" name) (begin (format #t "Methods defined for ~S~%" name) (for-each (lambda (x) (describe x #t)) methods))))) ;;; ;;; Describe for methods ;;; (define-method (describe (x <method>) . omit-generic) (letrec ((print-args (lambda (args) ;; take care of dotted arg lists (cond ((null? args) (newline)) ((pair? args) (display #\space) (display (safe-class-name (car args))) (print-args (cdr args))) (else (display #\space) (display (safe-class-name args)) (newline)))))) ;; Title (format #t " Method ~A~%" x) ;; Associated generic (if (null? omit-generic) (let ((gf (method-generic-function x))) (if gf (format #t "\t Generic: ~A~%" (generic-function-name gf)) (format #t "\t(No generic)~%")))) ;; GF specializers (format #t "\tSpecializers:") (print-args (method-specializers x)))) (provide 'describe) ���������������������������������������������������������������������������������������������������������������������������������������������������������������������oop/goops/accessors.scm�����������������������������������������������������������������������������0000644�����������������00000005353�15253246142�0011173 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; Copyright (C) 1999, 2000, 2005, 2006 Free Software Foundation, Inc. ;;;; ;;;; This library 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. ;;;; ;;;; This library 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 library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; (define-module (oop goops accessors) :use-module (oop goops) :re-export (standard-define-class) :export (define-class-with-accessors define-class-with-accessors-keywords)) (define-macro (define-class-with-accessors name supers . slots) (let ((eat? #f)) `(standard-define-class ,name ,supers ,@(map-in-order (lambda (slot) (cond (eat? (set! eat? #f) slot) ((keyword? slot) (set! eat? #t) slot) ((pair? slot) (if (get-keyword #:accessor (cdr slot) #f) slot (let ((name (car slot))) `(,name #:accessor ,name ,@(cdr slot))))) (else `(,slot #:accessor ,slot)))) slots)))) (define-macro (define-class-with-accessors-keywords name supers . slots) (let ((eat? #f)) `(standard-define-class ,name ,supers ,@(map-in-order (lambda (slot) (cond (eat? (set! eat? #f) slot) ((keyword? slot) (set! eat? #t) slot) ((pair? slot) (let ((slot (if (get-keyword #:accessor (cdr slot) #f) slot (let ((name (car slot))) `(,name #:accessor ,name ,@(cdr slot)))))) (if (get-keyword #:init-keyword (cdr slot) #f) slot (let* ((name (car slot)) (keyword (symbol->keyword name))) `(,name #:init-keyword ,keyword ,@(cdr slot)))))) (else `(,slot #:accessor ,slot #:init-keyword ,(symbol->keyword slot))))) slots)))) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������oop/goops/util.scm����������������������������������������������������������������������������������0000644�����������������00000004341�15253246142�0010157 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; Copyright (C) 1999, 2000, 2001, 2003, 2006, 2008 Free Software Foundation, Inc. ;;;; ;;;; This library 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. ;;;; ;;;; This library 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 library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; (define-module (oop goops util) :export (mapappend find-duplicate map* for-each* length* improper->proper) :use-module (srfi srfi-1) :re-export (any every) :no-backtrace ) ;;; ;;; {Utilities} ;;; (define mapappend append-map) (define (find-duplicate l) ; find a duplicate in a list; #f otherwise (cond ((null? l) #f) ((memv (car l) (cdr l)) (car l)) (else (find-duplicate (cdr l))))) (begin-deprecated (define (top-level-env) (let ((mod (current-module))) (if mod (module-eval-closure mod) '()))) (define (top-level-env? env) (or (null? env) (procedure? (car env)))) (export top-level-env? top-level-env)) (define (map* fn . l) ; A map which accepts dotted lists (arg lists (cond ; must be "isomorph" ((null? (car l)) '()) ((pair? (car l)) (cons (apply fn (map car l)) (apply map* fn (map cdr l)))) (else (apply fn l)))) (define (for-each* fn . l) ; A for-each which accepts dotted lists (arg lists (cond ; must be "isomorph" ((null? (car l)) '()) ((pair? (car l)) (apply fn (map car l)) (apply for-each* fn (map cdr l))) (else (apply fn l)))) (define (length* ls) (do ((n 0 (+ 1 n)) (ls ls (cdr ls))) ((not (pair? ls)) n))) (define (improper->proper ls) (if (pair? ls) (cons (car ls) (improper->proper (cdr ls))) (list ls))) �����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������oop/goops/simple.scm��������������������������������������������������������������������������������0000644�����������������00000002243�15253246142�0010472 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; installed-scm-file ;;;; Copyright (C) 2005, 2006, 2010, 2011 Free Software Foundation, Inc. ;;;; ;;;; This library 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. ;;;; ;;;; This library 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 library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; (define-module (oop goops simple) :use-module (oop goops accessors) :export (define-class) :no-backtrace) (define-syntax-rule (define-class arg ...) (define-class-with-accessors-keywords arg ...)) (module-use! (module-public-interface (current-module)) (resolve-interface '(oop goops))) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������oop/goops/save.scm����������������������������������������������������������������������������������0000644�����������������00000057736�15253246142�0010160 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; installed-scm-file ;;;; Copyright (C) 2000,2001,2002, 2006, 2009, 2010, 2013 Free Software Foundation, Inc. ;;;; ;;;; This library 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. ;;;; ;;;; This library 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 library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; (define-module (oop goops save) :use-module (oop goops internal) :use-module (oop goops util) :re-export (make-unbound) :export (save-objects load-objects restore enumerate! enumerate-component! write-readably write-component write-component-procedure literal? readable make-readable)) ;;; ;;; save-objects ALIST PORT [EXCLUDED] [USES] ;;; ;;; ALIST ::= ((NAME . OBJECT) ...) ;;; ;;; Save OBJECT ... to PORT so that when the data is read and evaluated ;;; OBJECT ... are re-created under names NAME ... . ;;; Exclude any references to objects in the list EXCLUDED. ;;; Add a (use-modules . USES) line to the top of the saved text. ;;; ;;; In some instances, when `save-object' doesn't know how to produce ;;; readable syntax for an object, you can explicitly register read ;;; syntax for an object using the special form `readable'. ;;; ;;; Example: ;;; ;;; The function `foo' produces an object of obscure structure. ;;; Only `foo' can construct such objects. Because of this, an ;;; object such as ;;; ;;; (define x (vector 1 (foo))) ;;; ;;; cannot be saved by `save-objects'. But if you instead write ;;; ;;; (define x (vector 1 (readable (foo)))) ;;; ;;; `save-objects' will happily produce the necessary read syntax. ;;; ;;; To add new read syntax, hang methods on `enumerate!' and ;;; `write-readably'. ;;; ;;; enumerate! OBJECT ENV ;;; Should call `enumerate-component!' (which takes same args) on ;;; each component object. Should return #t if the composite object ;;; can be written as a literal. (`enumerate-component!' returns #t ;;; if the component is a literal. ;;; ;;; write-readably OBJECT PORT ENV ;;; Should write a readable representation of OBJECT to PORT. ;;; Should use `write-component' to print each component object. ;;; Use `literal?' to decide if a component is a literal. ;;; ;;; Utilities: ;;; ;;; enumerate-component! OBJECT ENV ;;; ;;; write-component OBJECT PATCHER PORT ENV ;;; PATCHER is an expression which, when evaluated, stores OBJECT ;;; into its current location. ;;; ;;; Example: ;;; ;;; (write-component (car ls) `(set-car! ,ls ,(car ls)) file env) ;;; ;;; write-component is a macro. ;;; ;;; literal? COMPONENT ENV ;;; (define-method (immediate? (o <top>)) #f) (define-method (immediate? (o <null>)) #t) (define-method (immediate? (o <number>)) #t) (define-method (immediate? (o <boolean>)) #t) (define-method (immediate? (o <symbol>)) #t) (define-method (immediate? (o <char>)) #t) (define-method (immediate? (o <keyword>)) #t) ;;; enumerate! OBJECT ENVIRONMENT ;;; ;;; Return #t if object is a literal. ;;; (define-method (enumerate! (o <top>) env) #t) (define-method (write-readably (o <top>) file env) ;;(goops-error "No read-syntax defined for object `~S'" o) (write o file) ;doesn't catch bugs, but is much more flexible ) ;;; ;;; Readables ;;; (define readables (make-weak-key-hash-table 61)) (define-macro (readable exp) `(make-readable ,exp ',(copy-tree exp))) (define (make-readable obj expr) (hashq-set! readables obj expr) obj) (define (readable-expression obj) `(readable ,(hashq-ref readables obj))) ;; FIXME: if obj is nil or false, this can return a false value. OTOH ;; usually this is only for non-immediates. (define (readable? obj) (hashq-ref readables obj)) ;;; ;;; Writer helpers ;;; (define (write-component-procedure o file env) "Return #f if circular reference" (cond ((immediate? o) (write o file) #t) ((readable? o) (write (readable-expression o) file) #t) ((excluded? o env) (display #f file) #t) (else (let ((info (object-info o env))) (cond ((not (binding? info)) (write-readably o file env) #t) ((not (eq? (visiting info) #:defined)) #f) ;forward reference (else (display (binding info) file) #t)))))) ;;; write-component OBJECT PATCHER FILE ENV ;;; (define-macro (write-component object patcher file env) `(or (write-component-procedure ,object ,file ,env) (begin (display #f ,file) (add-patcher! ,patcher ,env)))) ;;; ;;; Strings ;;; (define-method (enumerate! (o <string>) env) #f) ;;; ;;; Vectors ;;; (define-method (enumerate! (o <vector>) env) (or (not (vector? o)) (let ((literal? #t)) (array-for-each (lambda (o) (if (not (enumerate-component! o env)) (set! literal? #f))) o) literal?))) (define-method (write-readably (o <vector>) file env) (if (not (vector? o)) (write o file) (let ((n (vector-length o))) (if (zero? n) (display "#()" file) (let ((not-literal? (not (literal? o env)))) (display (if not-literal? "(vector " "#(") file) (if (and not-literal? (literal? (vector-ref o 0) env)) (display #\' file)) (write-component (vector-ref o 0) `(vector-set! ,o 0 ,(vector-ref o 0)) file env) (do ((i 1 (+ 1 i))) ((= i n)) (display #\space file) (if (and not-literal? (literal? (vector-ref o i) env)) (display #\' file)) (write-component (vector-ref o i) `(vector-set! ,o ,i ,(vector-ref o i)) file env)) (display #\) file)))))) ;;; ;;; Arrays ;;; (define-method (enumerate! (o <array>) env) (enumerate-component! (shared-array-root o) env)) (define (make-mapper array) (let* ((n (array-rank array)) (indices (reverse (if (<= n 11) (list-tail '(t s r q p n m l k j i) (- 11 n)) (let loop ((n n) (ls '())) (if (zero? n) ls (loop (- n 1) (cons (gensym "i") ls)))))))) `(lambda ,indices (+ ,(shared-array-offset array) ,@(map (lambda (ind dim inc) `(* ,inc ,(if (pair? dim) `(- ,ind ,(car dim)) ind))) indices (array-dimensions array) (shared-array-increments array)))))) (define (write-array prefix o not-literal? file env) (letrec ((inner (lambda (n indices) (if (not (zero? n)) (let ((el (apply array-ref o (reverse (cons 0 indices))))) (if (and not-literal? (literal? el env)) (display #\' file)) (write-component el `(array-set! ,o ,el ,@indices) file env))) (do ((i 1 (+ 1 i))) ((= i n)) (display #\space file) (let ((el (apply array-ref o (reverse (cons i indices))))) (if (and not-literal? (literal? el env)) (display #\' file)) (write-component el `(array-set! ,o ,el ,@indices) file env)))))) (display prefix file) (let loop ((dims (array-dimensions o)) (indices '())) (cond ((null? (cdr dims)) (inner (car dims) indices)) (else (let ((n (car dims))) (do ((i 0 (+ 1 i))) ((= i n)) (if (> i 0) (display #\space file)) (display prefix file) (loop (cdr dims) (cons i indices)) (display #\) file)))))) (display #\) file))) (define-method (write-readably (o <array>) file env) (let ((root (shared-array-root o))) (cond ((literal? o env) (if (not (vector? root)) (write o file) (begin (display #\# file) (display (array-rank o) file) (write-array #\( o #f file env)))) ((binding? root env) (display "(make-shared-array " file) (if (literal? root env) (display #\' file)) (write-component root (goops-error "write-readably(<array>): internal error") file env) (display #\space file) (display (make-mapper o) file) (for-each (lambda (dim) (display #\space file) (display dim file)) (array-dimensions o)) (display #\) file)) (else (display "(list->uniform-array " file) (display (array-rank o) file) (display " '() " file) (write-array "(list " o #f file env))))) ;;; ;;; Pairs ;;; ;;; These methods have more complex structure than is required for ;;; most objects, since they take over some of the logic of ;;; `write-component'. ;;; (define-method (enumerate! (o <pair>) env) (let ((literal? (enumerate-component! (car o) env))) (and (enumerate-component! (cdr o) env) literal?))) (define-method (write-readably (o <pair>) file env) (let ((proper? (let loop ((ls o)) (or (null? ls) (and (pair? ls) (not (binding? (cdr ls) env)) (loop (cdr ls)))))) (1? (or (not (pair? (cdr o))) (binding? (cdr o) env))) (not-literal? (not (literal? o env))) (infos '()) (refs (ref-stack env))) (display (cond ((not not-literal?) #\() (proper? "(list ") (1? "(cons ") (else "(cons* ")) file) (if (and not-literal? (literal? (car o) env)) (display #\' file)) (write-component (car o) `(set-car! ,o ,(car o)) file env) (do ((ls (cdr o) (cdr ls)) (prev o ls)) ((or (not (pair? ls)) (binding? ls env)) (if (not (null? ls)) (begin (if (not not-literal?) (display " ." file)) (display #\space file) (if (and not-literal? (literal? ls env)) (display #\' file)) (write-component ls `(set-cdr! ,prev ,ls) file env))) (display #\) file)) (display #\space file) (set! infos (cons (object-info ls env) infos)) (push-ref! ls env) ;*fixme* optimize (set! (visiting? (car infos)) #t) (if (and not-literal? (literal? (car ls) env)) (display #\' file)) (write-component (car ls) `(set-car! ,ls ,(car ls)) file env) ) (for-each (lambda (info) (set! (visiting? info) #f)) infos) (set! (ref-stack env) refs) )) ;;; ;;; Objects ;;; ;;; Doesn't yet handle unbound slots ;; Don't export this function! This is all very temporary. ;; (define (get-set-for-each proc class) (for-each (lambda (slotdef g-n-s) (let ((g-n-s (cddr g-n-s))) (cond ((integer? g-n-s) (proc (standard-get g-n-s) (standard-set g-n-s))) ((not (memq (slot-definition-allocation slotdef) '(#:class #:each-subclass))) (proc (car g-n-s) (cadr g-n-s)))))) (class-slots class) (slot-ref class 'getters-n-setters))) (define (access-for-each proc class) (for-each (lambda (slotdef g-n-s) (let ((g-n-s (cddr g-n-s)) (a (slot-definition-accessor slotdef))) (cond ((integer? g-n-s) (proc (slot-definition-name slotdef) (and a (generic-function-name a)) (standard-get g-n-s) (standard-set g-n-s))) ((not (memq (slot-definition-allocation slotdef) '(#:class #:each-subclass))) (proc (slot-definition-name slotdef) (and a (generic-function-name a)) (car g-n-s) (cadr g-n-s)))))) (class-slots class) (slot-ref class 'getters-n-setters))) (define-macro (restore class slots . exps) "(restore CLASS (SLOT-NAME1 ...) EXP1 ...)" `(let ((o ((@@ (oop goops) %allocate-instance) ,class '()))) (for-each (lambda (name val) (slot-set! o name val)) ',slots (list ,@exps)) o)) (define-method (enumerate! (o <object>) env) (get-set-for-each (lambda (get set) (let ((val (get o))) (if (not (unbound? val)) (enumerate-component! val env)))) (class-of o)) #f) (define-method (write-readably (o <object>) file env) (let ((class (class-of o))) (display "(restore " file) (display (class-name class) file) (display " (" file) (let ((slotdefs (filter (lambda (slotdef) (not (or (memq (slot-definition-allocation slotdef) '(#:class #:each-subclass)) (and (slot-bound? o (slot-definition-name slotdef)) (excluded? (slot-ref o (slot-definition-name slotdef)) env))))) (class-slots class)))) (if (not (null? slotdefs)) (begin (display (slot-definition-name (car slotdefs)) file) (for-each (lambda (slotdef) (display #\space file) (display (slot-definition-name slotdef) file)) (cdr slotdefs))))) (display #\) file) (access-for-each (lambda (name aname get set) (display #\space file) (let ((val (get o))) (cond ((unbound? val) (display '(make-unbound) file)) ((excluded? val env)) (else (if (literal? val env) (display #\' file)) (write-component val (if aname `(set! (,aname ,o) ,val) `(slot-set! ,o ',name ,val)) file env))))) class) (display #\) file))) ;;; ;;; Classes ;;; ;;; Currently, we don't support reading in class objects ;;; (define-method (enumerate! (o <class>) env) #f) (define-method (write-readably (o <class>) file env) (display (class-name o) file)) ;;; ;;; Generics ;;; ;;; Currently, we don't support reading in generic functions ;;; (define-method (enumerate! (o <generic>) env) #f) (define-method (write-readably (o <generic>) file env) (display (generic-function-name o) file)) ;;; ;;; Method ;;; ;;; Currently, we don't support reading in methods ;;; (define-method (enumerate! (o <method>) env) #f) (define-method (write-readably (o <method>) file env) (goops-error "No read-syntax for <method> defined")) ;;; ;;; Environments ;;; (define-class <environment> () (object-info #:accessor object-info #:init-form (make-hash-table 61)) (excluded #:accessor excluded #:init-form (make-hash-table 61)) (pass-2? #:accessor pass-2? #:init-value #f) (ref-stack #:accessor ref-stack #:init-value '()) (objects #:accessor objects #:init-value '()) (pre-defines #:accessor pre-defines #:init-value '()) (locals #:accessor locals #:init-value '()) (stand-ins #:accessor stand-ins #:init-value '()) (post-defines #:accessor post-defines #:init-value '()) (patchers #:accessor patchers #:init-value '()) (multiple-bound #:accessor multiple-bound #:init-value '()) ) (define-method (initialize (env <environment>) initargs) (next-method) (cond ((get-keyword #:excluded initargs #f) => (lambda (excludees) (for-each (lambda (e) (hashq-create-handle! (excluded env) e #f)) excludees))))) (define-method (object-info o env) (hashq-ref (object-info env) o)) (define-method ((setter object-info) o env x) (hashq-set! (object-info env) o x)) (define (excluded? o env) (hashq-get-handle (excluded env) o)) (define (add-patcher! patcher env) (set! (patchers env) (cons patcher (patchers env)))) (define (push-ref! o env) (set! (ref-stack env) (cons o (ref-stack env)))) (define (pop-ref! env) (set! (ref-stack env) (cdr (ref-stack env)))) (define (container env) (car (ref-stack env))) (define-class <object-info> () (visiting #:accessor visiting #:init-value #f) (binding #:accessor binding #:init-value #f) (literal? #:accessor literal? #:init-value #f) ) (define visiting? visiting) (define-method (binding (info <boolean>)) #f) (define-method (binding o env) (binding (object-info o env))) (define binding? binding) (define-method (literal? (info <boolean>)) #t) ;;; Note that this method is intended to be used only during the ;;; writing pass ;;; (define-method (literal? o env) (or (immediate? o) (excluded? o env) (let ((info (object-info o env))) ;; write-component sets all bindings first to #:defining, ;; then to #:defined (and (or (not (binding? info)) ;; we might be using `literal?' in a write-readably method ;; to query about the object being defined (and (eq? (visiting info) #:defining) (null? (cdr (ref-stack env))))) (literal? info))))) ;;; ;;; Enumeration ;;; ;;; Enumeration has two passes. ;;; ;;; Pass 1: Detect common substructure, circular references and order ;;; ;;; Pass 2: Detect literals (define (enumerate-component! o env) (cond ((immediate? o) #t) ((readable? o) #f) ((excluded? o env) #t) ((pass-2? env) (let ((info (object-info o env))) (if (binding? info) ;; if circular reference, we print as a literal ;; (note that during pass-2, circular references are ;; forward references, i.e. *not* yet marked with #:pass-2 (not (eq? (visiting? info) #:pass-2)) (and (enumerate! o env) (begin (set! (literal? info) #t) #t))))) ((object-info o env) => (lambda (info) (set! (binding info) #t) (if (visiting? info) ;; circular reference--mark container (set! (binding (object-info (container env) env)) #t)))) (else (let ((info (make <object-info>))) (set! (object-info o env) info) (push-ref! o env) (set! (visiting? info) #t) (enumerate! o env) (set! (visiting? info) #f) (pop-ref! env) (set! (objects env) (cons o (objects env))))))) ;;; ;;; Main engine ;;; (define binding-name car) (define binding-object cdr) (define (pass-1! alist env) ;; Determine object order and necessary bindings (for-each (lambda (binding) (enumerate-component! (binding-object binding) env)) alist)) (define (make-local i) (string->symbol (string-append "%o" (number->string i)))) (define (name-bindings! alist env) ;; Name top-level bindings (for-each (lambda (b) (let ((o (binding-object b))) (if (not (or (immediate? o) (readable? o) (excluded? o env))) (let ((info (object-info o env))) (if (symbol? (binding info)) ;; already bound to a variable (set! (multiple-bound env) (acons (binding info) (binding-name b) (multiple-bound env))) (set! (binding info) (binding-name b))))))) alist) ;; Name rest of bindings and create stand-in and definition lists (let post-loop ((ls (objects env)) (post-defs '())) (cond ((or (null? ls) (eq? (binding (car ls) env) #t)) (set! (post-defines env) post-defs) (set! (objects env) ls)) ((not (binding (car ls) env)) (post-loop (cdr ls) post-defs)) (else (post-loop (cdr ls) (cons (car ls) post-defs))))) (let pre-loop ((ls (reverse (objects env))) (i 0) (pre-defs '()) (locs '()) (sins '())) (if (null? ls) (begin (set! (pre-defines env) (reverse pre-defs)) (set! (locals env) (reverse locs)) (set! (stand-ins env) (reverse sins))) (let ((info (object-info (car ls) env))) (cond ((not (binding? info)) (pre-loop (cdr ls) i pre-defs locs sins)) ((boolean? (binding info)) ;; local (set! (binding info) (make-local i)) (pre-loop (cdr ls) (+ 1 i) pre-defs (cons (car ls) locs) sins)) ((null? locs) (pre-loop (cdr ls) i (cons (car ls) pre-defs) locs sins)) (else (let ((real-name (binding info))) (set! (binding info) (make-local i)) (pre-loop (cdr ls) (+ 1 i) pre-defs (cons (car ls) locs) (acons (binding info) real-name sins))))))))) (define (pass-2! env) (set! (pass-2? env) #t) (for-each (lambda (o) (let ((info (object-info o env))) (set! (literal? info) (enumerate! o env)) (set! (visiting info) #:pass-2))) (append (pre-defines env) (locals env) (post-defines env)))) (define (write-define! name val literal? file) (display "(define " file) (display name file) (display #\space file) (if literal? (display #\' file)) (write val file) (display ")\n" file)) (define (write-empty-defines! file env) (for-each (lambda (stand-in) (write-define! (cdr stand-in) #f #f file)) (stand-ins env)) (for-each (lambda (o) (write-define! (binding o env) #f #f file)) (post-defines env))) (define (write-definition! prefix o file env) (display prefix file) (let ((info (object-info o env))) (display (binding info) file) (display #\space file) (if (literal? info) (display #\' file)) (push-ref! o env) (set! (visiting info) #:defining) (write-readably o file env) (set! (visiting info) #:defined) (pop-ref! env) (display #\) file))) (define (write-let*-head! file env) (display "(let* (" file) (write-definition! "(" (car (locals env)) file env) (for-each (lambda (o) (write-definition! "\n (" o file env)) (cdr (locals env))) (display ")\n" file)) (define (write-rebindings! prefix bindings file env) (for-each (lambda (patch) (display prefix file) (display (cdr patch) file) (display #\space file) (display (car patch) file) (display ")\n" file)) bindings)) (define (write-definitions! selector prefix file env) (for-each (lambda (o) (write-definition! prefix o file env) (newline file)) (selector env))) (define (write-patches! prefix file env) (for-each (lambda (patch) (display prefix file) (display (let name-objects ((patcher patch)) (cond ((binding patcher env) => (lambda (name) (cond ((assq name (stand-ins env)) => cdr) (else name)))) ((pair? patcher) (cons (name-objects (car patcher)) (name-objects (cdr patcher)))) (else patcher))) file) (newline file)) (reverse (patchers env)))) (define (write-immediates! alist file) (for-each (lambda (b) (if (immediate? (binding-object b)) (write-define! (binding-name b) (binding-object b) #t file))) alist)) (define (write-readables! alist file env) (let ((written '())) (for-each (lambda (b) (cond ((not (readable? (binding-object b)))) ((assq (binding-object b) written) => (lambda (p) (set! (multiple-bound env) (acons (cdr p) (binding-name b) (multiple-bound env))))) (else (write-define! (binding-name b) (readable-expression (binding-object b)) #f file) (set! written (acons (binding-object b) (binding-name b) written))))) alist))) (define-method (save-objects (alist <pair>) (file <string>) . rest) (let ((port (open-output-file file))) (apply save-objects alist port rest) (close-port port) *unspecified*)) (define-method (save-objects (alist <pair>) (file <output-port>) . rest) (let ((excluded (if (>= (length rest) 1) (car rest) '())) (uses (if (>= (length rest) 2) (cadr rest) '()))) (let ((env (make <environment> #:excluded excluded))) (pass-1! alist env) (name-bindings! alist env) (pass-2! env) (if (not (null? uses)) (begin (write `(use-modules ,@uses) file) (newline file))) (write-immediates! alist file) (if (null? (locals env)) (begin (write-definitions! post-defines "(define " file env) (write-patches! "" file env)) (begin (write-definitions! pre-defines "(define " file env) (write-empty-defines! file env) (write-let*-head! file env) (write-rebindings! " (set! " (stand-ins env) file env) (write-definitions! post-defines " (set! " file env) (write-patches! " " file env) (display " )\n" file))) (write-readables! alist file env) (write-rebindings! "(define " (reverse (multiple-bound env)) file env)))) (define-method (load-objects (file <string>)) (let* ((port (open-input-file file)) (objects (load-objects port))) (close-port port) objects)) (define iface (module-public-interface (current-module))) (define-method (load-objects (file <input-port>)) (let ((m (make-module))) (module-use! m the-scm-module) (module-use! m iface) (save-module-excursion (lambda () (set-current-module m) (let loop ((sexp (read file))) (if (not (eof-object? sexp)) (begin (eval sexp m) (loop (read file))))))) (module-map (lambda (name var) (cons name (variable-ref var))) m))) ����������������������������������oop/goops/composite-slot.scm������������������������������������������������������������������������0000644�����������������00000005260�15253246142�0012164 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; installed-scm-file ;;;; Copyright (C) 1999, 2000, 2001, 2006 Free Software Foundation, Inc. ;;;; Copyright (C) 1993-1998 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr> ;;;; ;;;; This library 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. ;;;; ;;;; This library 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 library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; ;;;; ;;;; This file was based upon composite-slot.stklos from the STk distribution ;;;; version 4.0.1 by Erick Gallesio <eg@unice.fr>. ;;;; (define-module (oop goops composite-slot) :use-module (oop goops) :export (<composite-class>)) ;;; ;;; (define-class CLASS SUPERS ;;; ... ;;; (OBJECT ...) ;;; ... ;;; (SLOT #:allocation #:propagated ;;; #:propagate-to '(PROPAGATION ...)) ;;; ... ;;; #:metaclass <composite-class>) ;;; ;;; PROPAGATION ::= OBJECT | (OBJECT TARGETSLOT) ;;; ;;; The slot SLOT will be propagated to the slot TARGETSLOT in the object ;;; stored in slot OBJECT. If TARGETSLOT is omitted, assume that the target ;;; slot is named SLOT. ;;; (define-class <composite-class> (<class>)) (define-method (compute-get-n-set (class <composite-class>) slot) (if (eq? (slot-definition-allocation slot) #:propagated) (compute-propagated-get-n-set slot) (next-method))) (define (compute-propagated-get-n-set s) (let ((prop (get-keyword #:propagate-to (cdr s) #f)) (s-name (slot-definition-name s))) (if (not prop) (goops-error "Propagation not specified for slot ~S" s-name)) (if (not (pair? prop)) (goops-error "Bad propagation list for slot ~S" s-name)) (let ((objects (map (lambda (p) (if (pair? p) (car p) p)) prop)) (slots (map (lambda (p) (if (pair? p) (cadr p) s-name)) prop))) (let ((first-object (car objects)) (first-slot (car slots))) (list ;; The getter (lambda (o) (slot-ref (slot-ref o first-object) first-slot)) ;; The setter (if (null? (cdr objects)) (lambda (o v) (slot-set! (slot-ref o first-object) first-slot v)) (lambda (o v) (for-each (lambda (object slot) (slot-set! (slot-ref o object) slot v)) objects slots)))))))) ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������oop/goops/compile.scm�������������������������������������������������������������������������������0000644�����������������00000001704�15253246142�0010632 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; Copyright (C) 1999, 2001, 2006, 2009, 2015 Free Software Foundation, Inc. ;;;; ;;;; This library 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. ;;;; ;;;; This library 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 library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; (define-module (oop goops compile) #:use-module (oop goops internal) #:re-export (compute-cmethod)) ������������������������������������������������������������oop/goops.scm���������������������������������������������������������������������������������������0000644�����������������00000154117�15253246142�0007211 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;; installed-scm-file ;;;; Copyright (C) 1998,1999,2000,2001,2002, 2003, 2006, 2009, 2010, 2011, 2014, 2015 Free Software Foundation, Inc. ;;;; Copyright (C) 1993-1998 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr> ;;;; ;;;; This library 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. ;;;; ;;;; This library 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 library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; ;;;; ;;;; This file was based upon stklos.stk from the STk distribution ;;;; version 4.0.1 by Erick Gallesio <eg@unice.fr>. ;;;; (define-module (oop goops) #:use-module (srfi srfi-1) #:use-module (ice-9 match) #:use-module (oop goops util) #:export-syntax (define-class class standard-define-class define-generic define-accessor define-method define-extended-generic define-extended-generics method) #:export (is-a? class-of ensure-metaclass ensure-metaclass-with-supers make-class make-generic ensure-generic make-extended-generic make-accessor ensure-accessor add-method! class-slot-ref class-slot-set! slot-unbound slot-missing slot-definition-name slot-definition-options slot-definition-allocation slot-definition-getter slot-definition-setter slot-definition-accessor slot-definition-init-value slot-definition-init-form slot-definition-init-thunk slot-definition-init-keyword slot-init-function class-slot-definition method-source compute-cpl compute-std-cpl compute-get-n-set compute-slots compute-getter-method compute-setter-method allocate-instance initialize make-instance make no-next-method no-applicable-method no-method change-class update-instance-for-different-class shallow-clone deep-clone class-redefinition apply-generic apply-method apply-methods compute-applicable-methods %compute-applicable-methods method-more-specific? sort-applicable-methods class-subclasses class-methods goops-error min-fixnum max-fixnum ;;; *fixme* Should go into goops.c instance? slot-ref-using-class slot-set-using-class! slot-bound-using-class? slot-exists-using-class? slot-ref slot-set! slot-bound? class-name class-direct-supers class-direct-subclasses class-direct-methods class-direct-slots class-precedence-list class-slots generic-function-name generic-function-methods method-generic-function method-specializers method-formals primitive-generic-generic enable-primitive-generic! method-procedure accessor-method-slot-definition slot-exists? make find-method get-keyword)) (define *goops-module* (current-module)) ;; First initialize the builtin part of GOOPS (eval-when (expand load eval) (%init-goops-builtins)) (eval-when (expand load eval) (use-modules ((language tree-il primitives) :select (add-interesting-primitive!))) (add-interesting-primitive! 'class-of)) ;; Then load the rest of GOOPS (use-modules (oop goops dispatch)) ;;; ;;; Compiling next methods into method bodies ;;; ;;; So, for the reader: there basic idea is that, given that the ;;; semantics of `next-method' depend on the concrete types being ;;; dispatched, why not compile a specific procedure to handle each type ;;; combination that we see at runtime. ;;; ;;; In theory we can do much better than a bytecode compilation, because ;;; we know the *exact* types of the arguments. It's ideal for native ;;; compilation. A task for the future. ;;; ;;; I think this whole generic application mess would benefit from a ;;; strict MOP. (define (compute-cmethod methods types) (match methods ((method . methods) (let ((make-procedure (slot-ref method 'make-procedure))) (if make-procedure (make-procedure (if (null? methods) (lambda args (no-next-method (method-generic-function method) args)) (compute-cmethod methods types))) (method-procedure method)))))) (eval-when (expand load eval) (define min-fixnum (- (expt 2 29))) (define max-fixnum (- (expt 2 29) 1))) ;; ;; goops-error ;; (define (goops-error format-string . args) (scm-error 'goops-error #f format-string args '())) ;; ;; is-a? ;; (define (is-a? obj class) (and (memq class (class-precedence-list (class-of obj))) #t)) ;;; ;;; {Meta classes} ;;; (define ensure-metaclass-with-supers (let ((table-of-metas '())) (lambda (meta-supers) (let ((entry (assoc meta-supers table-of-metas))) (if entry ;; Found a previously created metaclass (cdr entry) ;; Create a new meta-class which inherit from "meta-supers" (let ((new (make <class> #:dsupers meta-supers #:slots '() #:name (gensym "metaclass")))) (set! table-of-metas (cons (cons meta-supers new) table-of-metas)) new)))))) (define (ensure-metaclass supers) (if (null? supers) <class> (let* ((all-metas (map (lambda (x) (class-of x)) supers)) (all-cpls (append-map (lambda (m) (cdr (class-precedence-list m))) all-metas)) (needed-metas '())) ;; Find the most specific metaclasses. The new metaclass will be ;; a subclass of these. (for-each (lambda (meta) (if (and (not (member meta all-cpls)) (not (member meta needed-metas))) (set! needed-metas (append needed-metas (list meta))))) all-metas) ;; Now return a subclass of the metaclasses we found. (if (null? (cdr needed-metas)) (car needed-metas) ; If there's only one, just use it. (ensure-metaclass-with-supers needed-metas))))) ;;; ;;; {Classes} ;;; ;;; (define-class NAME (SUPER ...) SLOT-DEFINITION ... OPTION ...) ;;; ;;; SLOT-DEFINITION ::= SLOT-NAME | (SLOT-NAME OPTION ...) ;;; OPTION ::= KEYWORD VALUE ;;; (define (kw-do-map mapper f kwargs) (define (keywords l) (cond ((null? l) '()) ((or (null? (cdr l)) (not (keyword? (car l)))) (goops-error "malformed keyword arguments: ~a" kwargs)) (else (cons (car l) (keywords (cddr l)))))) (define (args l) (if (null? l) '() (cons (cadr l) (args (cddr l))))) ;; let* to check keywords first (let* ((k (keywords kwargs)) (a (args kwargs))) (mapper f k a))) (define (make-class supers slots . options) (let* ((name (get-keyword #:name options (make-unbound))) (supers (if (not (or-map (lambda (class) (memq <object> (class-precedence-list class))) supers)) (append supers (list <object>)) supers)) (metaclass (or (get-keyword #:metaclass options #f) (ensure-metaclass supers)))) ;; Verify that all direct slots are different and that we don't inherit ;; several time from the same class (let ((tmp1 (find-duplicate supers)) (tmp2 (find-duplicate (map slot-definition-name slots)))) (if tmp1 (goops-error "make-class: super class ~S is duplicate in class ~S" tmp1 name)) (if tmp2 (goops-error "make-class: slot ~S is duplicate in class ~S" tmp2 name))) ;; Everything seems correct, build the class (apply make metaclass #:dsupers supers #:slots slots #:name name options))) ;;; (class (SUPER ...) SLOT-DEFINITION ... OPTION ...) ;;; ;;; SLOT-DEFINITION ::= SLOT-NAME | (SLOT-NAME OPTION ...) ;;; OPTION ::= KEYWORD VALUE ;;; (define-macro (class supers . slots) (define (make-slot-definition-forms slots) (map (lambda (def) (cond ((pair? def) `(list ',(car def) ,@(kw-do-map append-map (lambda (kw arg) (case kw ((#:init-form) `(#:init-form ',arg #:init-thunk (lambda () ,arg))) (else (list kw arg)))) (cdr def)))) (else `(list ',def)))) slots)) (if (not (list? supers)) (goops-error "malformed superclass list: ~S" supers)) (let ((slots (take-while (lambda (x) (not (keyword? x))) slots)) (options (or (find-tail keyword? slots) '()))) `(make-class ;; evaluate super class variables (list ,@supers) ;; evaluate slot definitions, except the slot name! (list ,@(make-slot-definition-forms slots)) ;; evaluate class options ,@options))) (define-syntax define-class-pre-definition (lambda (x) (syntax-case x () ((_ (k arg rest ...) out ...) (keyword? (syntax->datum #'k)) (case (syntax->datum #'k) ((#:getter #:setter) #'(define-class-pre-definition (rest ...) out ... (if (or (not (defined? 'arg)) (not (is-a? arg <generic>))) (toplevel-define! 'arg (ensure-generic (if (defined? 'arg) arg #f) 'arg))))) ((#:accessor) #'(define-class-pre-definition (rest ...) out ... (if (or (not (defined? 'arg)) (not (is-a? arg <accessor>))) (toplevel-define! 'arg (ensure-accessor (if (defined? 'arg) arg #f) 'arg))))) (else #'(define-class-pre-definition (rest ...) out ...)))) ((_ () out ...) #'(begin out ...))))) ;; Some slot options require extra definitions to be made. In ;; particular, we want to make sure that the generic function objects ;; which represent accessors exist before `make-class' tries to add ;; methods to them. (define-syntax define-class-pre-definitions (lambda (x) (syntax-case x () ((_ () out ...) #'(begin out ...)) ((_ (slot rest ...) out ...) (keyword? (syntax->datum #'slot)) #'(begin out ...)) ((_ (slot rest ...) out ...) (identifier? #'slot) #'(define-class-pre-definitions (rest ...) out ...)) ((_ ((slotname slotopt ...) rest ...) out ...) #'(define-class-pre-definitions (rest ...) out ... (define-class-pre-definition (slotopt ...))))))) (define-syntax-rule (define-class name supers slot ...) (begin (define-class-pre-definitions (slot ...)) (if (and (defined? 'name) (is-a? name <class>) (memq <object> (class-precedence-list name))) (class-redefinition name (class supers slot ... #:name 'name)) (toplevel-define! 'name (class supers slot ... #:name 'name))))) (define-syntax-rule (standard-define-class arg ...) (define-class arg ...)) ;;; ;;; {Generic functions and accessors} ;;; ;; Apparently the desired semantics are that we extend previous ;; procedural definitions, but that if `name' was already a generic, we ;; overwrite its definition. (define-macro (define-generic name) (if (not (symbol? name)) (goops-error "bad generic function name: ~S" name)) `(define ,name (if (and (defined? ',name) (is-a? ,name <generic>)) (make <generic> #:name ',name) (ensure-generic (if (defined? ',name) ,name #f) ',name)))) (define-macro (define-extended-generic name val) (if (not (symbol? name)) (goops-error "bad generic function name: ~S" name)) `(define ,name (make-extended-generic ,val ',name))) (define-macro (define-extended-generics names . args) (let ((prefixes (get-keyword #:prefix args #f))) (if prefixes `(begin ,@(map (lambda (name) `(define-extended-generic ,name (list ,@(map (lambda (prefix) (symbol-append prefix name)) prefixes)))) names)) (goops-error "no prefixes supplied")))) (define* (make-generic #:optional name) (make <generic> #:name name)) (define* (make-extended-generic gfs #:optional name) (let* ((gfs (if (list? gfs) gfs (list gfs))) (gws? (any (lambda (gf) (is-a? gf <generic-with-setter>)) gfs))) (let ((ans (if gws? (let* ((sname (and name (make-setter-name name))) (setters (append-map (lambda (gf) (if (is-a? gf <generic-with-setter>) (list (ensure-generic (setter gf) sname)) '())) gfs)) (es (make <extended-generic-with-setter> #:name name #:extends gfs #:setter (make <extended-generic> #:name sname #:extends setters)))) (extended-by! setters (setter es)) es) (make <extended-generic> #:name name #:extends gfs)))) (extended-by! gfs ans) ans))) (define (extended-by! gfs eg) (for-each (lambda (gf) (slot-set! gf 'extended-by (cons eg (slot-ref gf 'extended-by)))) gfs) (invalidate-method-cache! eg)) (define (not-extended-by! gfs eg) (for-each (lambda (gf) (slot-set! gf 'extended-by (delq! eg (slot-ref gf 'extended-by)))) gfs) (invalidate-method-cache! eg)) (define* (ensure-generic old-definition #:optional name) (cond ((is-a? old-definition <generic>) old-definition) ((procedure-with-setter? old-definition) (make <generic-with-setter> #:name name #:default (procedure old-definition) #:setter (setter old-definition))) ((procedure? old-definition) (if (generic-capability? old-definition) old-definition (make <generic> #:name name #:default old-definition))) (else (make <generic> #:name name)))) ;; same semantics as <generic> (define-syntax-rule (define-accessor name) (define name (cond ((not (defined? 'name)) (ensure-accessor #f 'name)) ((is-a? name <accessor>) (make <accessor> #:name 'name)) (else (ensure-accessor name 'name))))) (define (make-setter-name name) (string->symbol (string-append "setter:" (symbol->string name)))) (define* (make-accessor #:optional name) (make <accessor> #:name name #:setter (make <generic> #:name (and name (make-setter-name name))))) (define* (ensure-accessor proc #:optional name) (cond ((and (is-a? proc <accessor>) (is-a? (setter proc) <generic>)) proc) ((is-a? proc <generic-with-setter>) (upgrade-accessor proc (setter proc))) ((is-a? proc <generic>) (upgrade-accessor proc (make-generic name))) ((procedure-with-setter? proc) (make <accessor> #:name name #:default (procedure proc) #:setter (ensure-generic (setter proc) name))) ((procedure? proc) (ensure-accessor (if (generic-capability? proc) (make <generic> #:name name #:default proc) (ensure-generic proc name)) name)) (else (make-accessor name)))) (define (upgrade-accessor generic setter) (let ((methods (slot-ref generic 'methods)) (gws (make (if (is-a? generic <extended-generic>) <extended-generic-with-setter> <accessor>) #:name (generic-function-name generic) #:extended-by (slot-ref generic 'extended-by) #:setter setter))) (if (is-a? generic <extended-generic>) (let ((gfs (slot-ref generic 'extends))) (not-extended-by! gfs generic) (slot-set! gws 'extends gfs) (extended-by! gfs gws))) ;; Steal old methods (for-each (lambda (method) (slot-set! method 'generic-function gws)) methods) (slot-set! gws 'methods methods) (invalidate-method-cache! gws) gws)) ;;; ;;; {Methods} ;;; (define (toplevel-define! name val) (module-define! (current-module) name val)) (define-syntax define-method (syntax-rules (setter) ((_ ((setter name) . args) body ...) (begin (if (or (not (defined? 'name)) (not (is-a? name <accessor>))) (toplevel-define! 'name (ensure-accessor (if (defined? 'name) name #f) 'name))) (add-method! (setter name) (method args body ...)))) ((_ (name . args) body ...) (begin ;; FIXME: this code is how it always was, but it's quite cracky: ;; it will only define the generic function if it was undefined ;; before (ok), or *was defined to #f*. The latter is crack. But ;; there are bootstrap issues about fixing this -- change it to ;; (is-a? name <generic>) and see. (if (or (not (defined? 'name)) (not name)) (toplevel-define! 'name (make <generic> #:name 'name))) (add-method! name (method args body ...)))))) (define-syntax method (lambda (x) (define (parse-args args) (let lp ((ls args) (formals '()) (specializers '())) (syntax-case ls () (((f s) . rest) (and (identifier? #'f) (identifier? #'s)) (lp #'rest (cons #'f formals) (cons #'s specializers))) ((f . rest) (identifier? #'f) (lp #'rest (cons #'f formals) (cons #'<top> specializers))) (() (list (reverse formals) (reverse (cons #''() specializers)))) (tail (identifier? #'tail) (list (append (reverse formals) #'tail) (reverse (cons #'<top> specializers))))))) (define (find-free-id exp referent) (syntax-case exp () ((x . y) (or (find-free-id #'x referent) (find-free-id #'y referent))) (x (identifier? #'x) (let ((id (datum->syntax #'x referent))) (and (free-identifier=? #'x id) id))) (_ #f))) (define (compute-procedure formals body) (syntax-case body () ((body0 ...) (with-syntax ((formals formals)) #'(lambda formals body0 ...))))) (define (->proper args) (let lp ((ls args) (out '())) (syntax-case ls () ((x . xs) (lp #'xs (cons #'x out))) (() (reverse out)) (tail (reverse (cons #'tail out)))))) (define (compute-make-procedure formals body next-method) (syntax-case body () ((body ...) (with-syntax ((next-method next-method)) (syntax-case formals () ((formal ...) #'(lambda (real-next-method) (lambda (formal ...) (let ((next-method (lambda args (if (null? args) (real-next-method formal ...) (apply real-next-method args))))) body ...)))) (formals (with-syntax (((formal ...) (->proper #'formals))) #'(lambda (real-next-method) (lambda formals (let ((next-method (lambda args (if (null? args) (apply real-next-method formal ...) (apply real-next-method args))))) body ...)))))))))) (define (compute-procedures formals body) ;; So, our use of this is broken, because it operates on the ;; pre-expansion source code. It's equivalent to just searching ;; for referent in the datums. Ah well. (let ((id (find-free-id body 'next-method))) (if id ;; return a make-procedure (values #'#f (compute-make-procedure formals body id)) (values (compute-procedure formals body) #'#f)))) (syntax-case x () ((_ args) #'(method args (if #f #f))) ((_ args body0 body1 ...) (with-syntax (((formals (specializer ...)) (parse-args #'args))) (call-with-values (lambda () (compute-procedures #'formals #'(body0 body1 ...))) (lambda (procedure make-procedure) (with-syntax ((procedure procedure) (make-procedure make-procedure)) #'(make <method> #:specializers (cons* specializer ...) #:formals 'formals #:body '(body0 body1 ...) #:make-procedure make-procedure #:procedure procedure))))))))) ;;; ;;; {add-method!} ;;; (define (add-method-in-classes! m) ;; Add method in all the classes which appears in its specializers list (for-each* (lambda (x) (let ((dm (class-direct-methods x))) (if (not (memq m dm)) (slot-set! x 'direct-methods (cons m dm))))) (method-specializers m))) (define (remove-method-in-classes! m) ;; Remove method in all the classes which appears in its specializers list (for-each* (lambda (x) (slot-set! x 'direct-methods (delv! m (class-direct-methods x)))) (method-specializers m))) (define (compute-new-list-of-methods gf new) (let ((new-spec (method-specializers new)) (methods (slot-ref gf 'methods))) (let loop ((l methods)) (if (null? l) (cons new methods) (if (equal? (method-specializers (car l)) new-spec) (begin ;; This spec. list already exists. Remove old method from dependents (remove-method-in-classes! (car l)) (set-car! l new) methods) (loop (cdr l))))))) (define (method-n-specializers m) (length* (slot-ref m 'specializers))) (define (calculate-n-specialized gf) (fold (lambda (m n) (max n (method-n-specializers m))) 0 (generic-function-methods gf))) (define (invalidate-method-cache! gf) (%invalidate-method-cache! gf) (slot-set! gf 'n-specialized (calculate-n-specialized gf)) (for-each (lambda (gf) (invalidate-method-cache! gf)) (slot-ref gf 'extended-by))) (define internal-add-method! (method ((gf <generic>) (m <method>)) (slot-set! m 'generic-function gf) (slot-set! gf 'methods (compute-new-list-of-methods gf m)) (invalidate-method-cache! gf) (add-method-in-classes! m) *unspecified*)) (define-generic add-method!) ((method-procedure internal-add-method!) add-method! internal-add-method!) (define-method (add-method! (proc <procedure>) (m <method>)) (if (generic-capability? proc) (begin (enable-primitive-generic! proc) (add-method! proc m)) (next-method))) (define-method (add-method! (pg <primitive-generic>) (m <method>)) (add-method! (primitive-generic-generic pg) m)) (define-method (add-method! obj (m <method>)) (goops-error "~S is not a valid generic function" obj)) ;;; ;;; {Access to meta objects} ;;; ;;; ;;; Methods ;;; (define-method (method-source (m <method>)) (let* ((spec (map* class-name (slot-ref m 'specializers))) (src (procedure-source (slot-ref m 'procedure)))) (and src (let ((args (cadr src)) (body (cddr src))) (cons 'method (cons (map* list args spec) body)))))) (define-method (method-formals (m <method>)) (slot-ref m 'formals)) ;;; ;;; Slots ;;; (define slot-definition-name car) (define slot-definition-options cdr) (define (slot-definition-allocation s) (get-keyword #:allocation (cdr s) #:instance)) (define (slot-definition-getter s) (get-keyword #:getter (cdr s) #f)) (define (slot-definition-setter s) (get-keyword #:setter (cdr s) #f)) (define (slot-definition-accessor s) (get-keyword #:accessor (cdr s) #f)) (define (slot-definition-init-value s) ;; can be #f, so we can't use #f as non-value (get-keyword #:init-value (cdr s) (make-unbound))) (define (slot-definition-init-form s) (get-keyword #:init-form (cdr s) (make-unbound))) (define (slot-definition-init-thunk s) (get-keyword #:init-thunk (cdr s) #f)) (define (slot-definition-init-keyword s) (get-keyword #:init-keyword (cdr s) #f)) (define (class-slot-definition class slot-name) (assq slot-name (class-slots class))) (define (slot-init-function class slot-name) (cadr (assq slot-name (slot-ref class 'getters-n-setters)))) (define (accessor-method-slot-definition obj) "Return the slot definition of the accessor @var{obj}." (slot-ref obj 'slot-definition)) ;;; ;;; {Standard methods used by the C runtime} ;;; ;;; Methods to compare objects ;;; ;; Have to do this in a strange order because equal? is used in the ;; add-method! implementation; we need to make sure that when the ;; primitive is extended, that the generic has a method. = (define g-equal? (make-generic 'equal?)) ;; When this generic gets called, we will have already checked eq? and ;; eqv? -- the purpose of this generic is to extend equality. So by ;; default, there is no extension, thus the #f return. (add-method! g-equal? (method (x y) #f)) (set-primitive-generic! equal? g-equal?) ;;; ;;; methods to display/write an object ;;; ; Code for writing objects must test that the slots they use are ; bound. Otherwise a slot-unbound method will be called and will ; conduct to an infinite loop. ;; Write (define (display-address o file) (display (number->string (object-address o) 16) file)) (define-method (write o file) (display "#<instance " file) (display-address o file) (display #\> file)) (define write-object (primitive-generic-generic write)) (define-method (write (o <object>) file) (let ((class (class-of o))) (if (slot-bound? class 'name) (begin (display "#<" file) (display (class-name class) file) (display #\space file) (display-address o file) (display #\> file)) (next-method)))) (define-method (write (class <class>) file) (let ((meta (class-of class))) (if (and (slot-bound? class 'name) (slot-bound? meta 'name)) (begin (display "#<" file) (display (class-name meta) file) (display #\space file) (display (class-name class) file) (display #\space file) (display-address class file) (display #\> file)) (next-method)))) (define-method (write (gf <generic>) file) (let ((meta (class-of gf))) (if (and (slot-bound? meta 'name) (slot-bound? gf 'methods)) (begin (display "#<" file) (display (class-name meta) file) (let ((name (generic-function-name gf))) (if name (begin (display #\space file) (display name file)))) (display " (" file) (display (length (generic-function-methods gf)) file) (display ")>" file)) (next-method)))) (define-method (write (o <method>) file) (let ((meta (class-of o))) (if (and (slot-bound? meta 'name) (slot-bound? o 'specializers)) (begin (display "#<" file) (display (class-name meta) file) (display #\space file) (display (map* (lambda (spec) (if (slot-bound? spec 'name) (slot-ref spec 'name) spec)) (method-specializers o)) file) (display #\space file) (display-address o file) (display #\> file)) (next-method)))) ;; Display (do the same thing as write by default) (define-method (display o file) (write-object o file)) ;;; ;;; Handling of duplicate bindings in the module system ;;; (define-method (merge-generics (module <module>) (name <symbol>) (int1 <module>) (val1 <top>) (int2 <module>) (val2 <top>) (var <top>) (val <top>)) #f) (define-method (merge-generics (module <module>) (name <symbol>) (int1 <module>) (val1 <generic>) (int2 <module>) (val2 <generic>) (var <top>) (val <boolean>)) (and (not (eq? val1 val2)) (make-variable (make-extended-generic (list val2 val1) name)))) (define-method (merge-generics (module <module>) (name <symbol>) (int1 <module>) (val1 <generic>) (int2 <module>) (val2 <generic>) (var <top>) (gf <extended-generic>)) (and (not (memq val2 (slot-ref gf 'extends))) (begin (slot-set! gf 'extends (cons val2 (delq! val2 (slot-ref gf 'extends)))) (slot-set! val2 'extended-by (cons gf (delq! gf (slot-ref val2 'extended-by)))) (invalidate-method-cache! gf) var))) (module-define! duplicate-handlers 'merge-generics merge-generics) (define-method (merge-accessors (module <module>) (name <symbol>) (int1 <module>) (val1 <top>) (int2 <module>) (val2 <top>) (var <top>) (val <top>)) #f) (define-method (merge-accessors (module <module>) (name <symbol>) (int1 <module>) (val1 <accessor>) (int2 <module>) (val2 <accessor>) (var <top>) (val <top>)) (merge-generics module name int1 val1 int2 val2 var val)) (module-define! duplicate-handlers 'merge-accessors merge-accessors) ;;; ;;; slot access ;;; (define (class-slot-g-n-s class slot-name) (let* ((this-slot (assq slot-name (slot-ref class 'slots))) (g-n-s (cddr (or (assq slot-name (slot-ref class 'getters-n-setters)) (slot-missing class slot-name))))) (if (not (memq (slot-definition-allocation this-slot) '(#:class #:each-subclass))) (slot-missing class slot-name)) g-n-s)) (define (class-slot-ref class slot) (let ((x ((car (class-slot-g-n-s class slot)) #f))) (if (unbound? x) (slot-unbound class slot) x))) (define (class-slot-set! class slot value) ((cadr (class-slot-g-n-s class slot)) #f value)) (define-method (slot-unbound (c <class>) (o <object>) s) (goops-error "Slot `~S' is unbound in object ~S" s o)) (define-method (slot-unbound (c <class>) s) (goops-error "Slot `~S' is unbound in class ~S" s c)) (define-method (slot-unbound (o <object>)) (goops-error "Unbound slot in object ~S" o)) (define-method (slot-missing (c <class>) (o <object>) s) (goops-error "No slot with name `~S' in object ~S" s o)) (define-method (slot-missing (c <class>) s) (goops-error "No class slot with name `~S' in class ~S" s c)) (define-method (slot-missing (c <class>) (o <object>) s value) (slot-missing c o s)) ;;; Methods for the possible error we can encounter when calling a gf (define-method (no-next-method (gf <generic>) args) (goops-error "No next method when calling ~S\nwith arguments ~S" gf args)) (define-method (no-applicable-method (gf <generic>) args) (goops-error "No applicable method for ~S in call ~S" gf (cons (generic-function-name gf) args))) (define-method (no-method (gf <generic>) args) (goops-error "No method defined for ~S" gf)) ;;; ;;; {Cloning functions (from rdeline@CS.CMU.EDU)} ;;; (define-method (shallow-clone (self <object>)) (let ((clone (%allocate-instance (class-of self) '())) (slots (map slot-definition-name (class-slots (class-of self))))) (for-each (lambda (slot) (if (slot-bound? self slot) (slot-set! clone slot (slot-ref self slot)))) slots) clone)) (define-method (deep-clone (self <object>)) (let ((clone (%allocate-instance (class-of self) '())) (slots (map slot-definition-name (class-slots (class-of self))))) (for-each (lambda (slot) (if (slot-bound? self slot) (slot-set! clone slot (let ((value (slot-ref self slot))) (if (instance? value) (deep-clone value) value))))) slots) clone)) ;;; ;;; {Class redefinition utilities} ;;; ;;; (class-redefinition OLD NEW) ;;; ;;; Has correct the following conditions: ;;; Methods ;;; ;;; 1. New accessor specializers refer to new header ;;; ;;; Classes ;;; ;;; 1. New class cpl refers to the new class header ;;; 2. Old class header exists on old super classes direct-subclass lists ;;; 3. New class header exists on new super classes direct-subclass lists (define-method (class-redefinition (old <class>) (new <class>)) ;; Work on direct methods: ;; 1. Remove accessor methods from the old class ;; 2. Patch the occurences of new in the specializers by old ;; 3. Displace the methods from old to new (remove-class-accessors! old) ;; -1- (let ((methods (class-direct-methods new))) (for-each (lambda (m) (update-direct-method! m new old)) ;; -2- methods) (slot-set! new 'direct-methods (append methods (class-direct-methods old)))) ;; Substitute old for new in new cpl (set-car! (slot-ref new 'cpl) old) ;; Remove the old class from the direct-subclasses list of its super classes (for-each (lambda (c) (slot-set! c 'direct-subclasses (delv! old (class-direct-subclasses c)))) (class-direct-supers old)) ;; Replace the new class with the old in the direct-subclasses of the supers (for-each (lambda (c) (slot-set! c 'direct-subclasses (cons old (delv! new (class-direct-subclasses c))))) (class-direct-supers new)) ;; Swap object headers (%modify-class old new) ;; Now old is NEW! ;; Redefine all the subclasses of old to take into account modification (for-each (lambda (c) (update-direct-subclass! c new old)) (class-direct-subclasses new)) ;; Invalidate class so that subsequent instances slot accesses invoke ;; change-object-class (slot-set! new 'redefined old) (%invalidate-class new) ;must come after slot-set! old) ;;; ;;; remove-class-accessors! ;;; (define-method (remove-class-accessors! (c <class>)) (for-each (lambda (m) (if (is-a? m <accessor-method>) (let ((gf (slot-ref m 'generic-function))) ;; remove the method from its GF (slot-set! gf 'methods (delq1! m (slot-ref gf 'methods))) (invalidate-method-cache! gf) ;; remove the method from its specializers (remove-method-in-classes! m)))) (class-direct-methods c))) ;;; ;;; update-direct-method! ;;; (define-method (update-direct-method! (m <method>) (old <class>) (new <class>)) (let loop ((l (method-specializers m))) ;; Note: the <top> in dotted list is never used. ;; So we can work as if we had only proper lists. (if (pair? l) (begin (if (eqv? (car l) old) (set-car! l new)) (loop (cdr l)))))) ;;; ;;; update-direct-subclass! ;;; (define-method (update-direct-subclass! (c <class>) (old <class>) (new <class>)) (class-redefinition c (make-class (class-direct-supers c) (class-direct-slots c) #:name (class-name c) #:metaclass (class-of c)))) ;;; ;;; {Utilities for INITIALIZE methods} ;;; ;;; compute-slot-accessors ;;; (define (compute-slot-accessors class slots) (for-each (lambda (s g-n-s) (let ((getter-function (slot-definition-getter s)) (setter-function (slot-definition-setter s)) (accessor (slot-definition-accessor s))) (if getter-function (add-method! getter-function (compute-getter-method class g-n-s))) (if setter-function (add-method! setter-function (compute-setter-method class g-n-s))) (if accessor (begin (add-method! accessor (compute-getter-method class g-n-s)) (add-method! (setter accessor) (compute-setter-method class g-n-s)))))) slots (slot-ref class 'getters-n-setters))) (define-method (compute-getter-method (class <class>) g-n-s) (let ((init-thunk (cadr g-n-s)) (g-n-s (cddr g-n-s))) (make <accessor-method> #:specializers (list class) #:procedure (cond ((pair? g-n-s) (make-generic-bound-check-getter (car g-n-s))) (init-thunk (standard-get g-n-s)) (else (bound-check-get g-n-s))) #:slot-definition g-n-s))) (define-method (compute-setter-method (class <class>) g-n-s) (let ((init-thunk (cadr g-n-s)) (g-n-s (cddr g-n-s))) (make <accessor-method> #:specializers (list class <top>) #:procedure (if (pair? g-n-s) (cadr g-n-s) (standard-set g-n-s)) #:slot-definition g-n-s))) (define (make-generic-bound-check-getter proc) (lambda (o) (assert-bound (proc o) o))) ;; the idea is to compile the index into the procedure, for fastest ;; lookup. (eval-when (expand load eval) (define num-standard-pre-cache 20)) (define-macro (define-standard-accessor-method form . body) (let ((name (caar form)) (n-var (cadar form)) (args (cdr form))) (define (make-one x) (define (body-trans form) (cond ((not (pair? form)) form) ((eq? (car form) 'struct-ref) `(,(car form) ,(cadr form) ,x)) ((eq? (car form) 'struct-set!) `(,(car form) ,(cadr form) ,x ,(cadddr form))) (else (map body-trans form)))) `(lambda ,args ,@(map body-trans body))) `(define ,name (let ((cache (vector ,@(map make-one (iota num-standard-pre-cache))))) (lambda (n) (if (< n ,num-standard-pre-cache) (vector-ref cache n) ((lambda (,n-var) (lambda ,args ,@body)) n))))))) (define-standard-accessor-method ((bound-check-get n) o) (let ((x (struct-ref o n))) (if (unbound? x) (slot-unbound o) x))) (define-standard-accessor-method ((standard-get n) o) (struct-ref o n)) (define-standard-accessor-method ((standard-set n) o v) (struct-set! o n v)) ;;; compute-getters-n-setters ;;; (define (compute-getters-n-setters class slots) (define (compute-slot-init-function name s) (or (let ((thunk (slot-definition-init-thunk s))) (and thunk (if (thunk? thunk) thunk (goops-error "Bad init-thunk for slot `~S' in ~S: ~S" name class thunk)))) (let ((init (slot-definition-init-value s))) (and (not (unbound? init)) (lambda () init))))) (define (verify-accessors slot l) (cond ((integer? l)) ((not (and (list? l) (= (length l) 2))) (goops-error "Bad getter and setter for slot `~S' in ~S: ~S" slot class l)) (else (let ((get (car l)) (set (cadr l))) (if (not (procedure? get)) (goops-error "Bad getter closure for slot `~S' in ~S: ~S" slot class get)) (if (not (procedure? set)) (goops-error "Bad setter closure for slot `~S' in ~S: ~S" slot class set)))))) (map (lambda (s) ;; The strange treatment of nfields is due to backward compatibility. (let* ((index (slot-ref class 'nfields)) (g-n-s (compute-get-n-set class s)) (size (- (slot-ref class 'nfields) index)) (name (slot-definition-name s))) ;; NOTE: The following is interdependent with C macros ;; defined above goops.c:scm_sys_prep_layout_x. ;; ;; For simple instance slots, we have the simplest form ;; '(name init-function . index) ;; For other slots we have ;; '(name init-function getter setter . alloc) ;; where alloc is: ;; '(index size) for instance allocated slots ;; '() for other slots (verify-accessors name g-n-s) (case (slot-definition-allocation s) ((#:each-subclass #:class) (unless (and (zero? size) (pair? g-n-s)) (error "Class-allocated slots should not reserve fields")) ;; Don't initialize the slot; that's handled when the slot ;; is allocated, in compute-get-n-set. (cons name (cons #f g-n-s))) (else (cons name (cons (compute-slot-init-function name s) (if (or (integer? g-n-s) (zero? size)) g-n-s (append g-n-s (list index size))))))))) slots)) ;;; compute-cpl ;;; ;;; Correct behaviour: ;;; ;;; (define-class food ()) ;;; (define-class fruit (food)) ;;; (define-class spice (food)) ;;; (define-class apple (fruit)) ;;; (define-class cinnamon (spice)) ;;; (define-class pie (apple cinnamon)) ;;; => cpl (pie) = pie apple fruit cinnamon spice food object top ;;; ;;; (define-class d ()) ;;; (define-class e ()) ;;; (define-class f ()) ;;; (define-class b (d e)) ;;; (define-class c (e f)) ;;; (define-class a (b c)) ;;; => cpl (a) = a b d c e f object top ;;; (define-method (compute-cpl (class <class>)) (compute-std-cpl class class-direct-supers)) ;; Support (define (only-non-null lst) (filter (lambda (l) (not (null? l))) lst)) (define (compute-std-cpl c get-direct-supers) (let ((c-direct-supers (get-direct-supers c))) (merge-lists (list c) (only-non-null (append (map class-precedence-list c-direct-supers) (list c-direct-supers)))))) (define (merge-lists reversed-partial-result inputs) (cond ((every null? inputs) (reverse! reversed-partial-result)) (else (let* ((candidate (lambda (c) (and (not (any (lambda (l) (memq c (cdr l))) inputs)) c))) (candidate-car (lambda (l) (and (not (null? l)) (candidate (car l))))) (next (any candidate-car inputs))) (if (not next) (goops-error "merge-lists: Inconsistent precedence graph")) (let ((remove-next (lambda (l) (if (eq? (car l) next) (cdr l) l)))) (merge-lists (cons next reversed-partial-result) (only-non-null (map remove-next inputs)))))))) ;; Modified from TinyClos: ;; ;; A simple topological sort. ;; ;; It's in this file so that both TinyClos and Objects can use it. ;; ;; This is a fairly modified version of code I originally got from Anurag ;; Mendhekar <anurag@moose.cs.indiana.edu>. ;; (define (compute-clos-cpl c get-direct-supers) (top-sort ((build-transitive-closure get-direct-supers) c) ((build-constraints get-direct-supers) c) (std-tie-breaker get-direct-supers))) (define (top-sort elements constraints tie-breaker) (let loop ((elements elements) (constraints constraints) (result '())) (if (null? elements) result (let ((can-go-in-now (filter (lambda (x) (every (lambda (constraint) (or (not (eq? (cadr constraint) x)) (memq (car constraint) result))) constraints)) elements))) (if (null? can-go-in-now) (goops-error "top-sort: Invalid constraints") (let ((choice (if (null? (cdr can-go-in-now)) (car can-go-in-now) (tie-breaker result can-go-in-now)))) (loop (filter (lambda (x) (not (eq? x choice))) elements) constraints (append result (list choice))))))))) (define (std-tie-breaker get-supers) (lambda (partial-cpl min-elts) (let loop ((pcpl (reverse partial-cpl))) (let ((current-elt (car pcpl))) (let ((ds-of-ce (get-supers current-elt))) (let ((common (filter (lambda (x) (memq x ds-of-ce)) min-elts))) (if (null? common) (if (null? (cdr pcpl)) (goops-error "std-tie-breaker: Nothing valid") (loop (cdr pcpl))) (car common)))))))) (define (build-transitive-closure get-follow-ons) (lambda (x) (let track ((result '()) (pending (list x))) (if (null? pending) result (let ((next (car pending))) (if (memq next result) (track result (cdr pending)) (track (cons next result) (append (get-follow-ons next) (cdr pending))))))))) (define (build-constraints get-follow-ons) (lambda (x) (let loop ((elements ((build-transitive-closure get-follow-ons) x)) (this-one '()) (result '())) (if (or (null? this-one) (null? (cdr this-one))) (if (null? elements) result (loop (cdr elements) (cons (car elements) (get-follow-ons (car elements))) result)) (loop elements (cdr this-one) (cons (list (car this-one) (cadr this-one)) result)))))) ;;; compute-get-n-set ;;; (define-method (compute-get-n-set (class <class>) s) (define (class-slot-init-value) (let ((thunk (slot-definition-init-thunk s))) (if thunk (thunk) (slot-definition-init-value s)))) (case (slot-definition-allocation s) ((#:instance) ;; Instance slot ;; get-n-set is just its offset (let ((already-allocated (slot-ref class 'nfields))) (slot-set! class 'nfields (+ already-allocated 1)) already-allocated)) ((#:class) ;; Class slot ;; Class-slots accessors are implemented as 2 closures around ;; a Scheme variable. As instance slots, class slots must be ;; unbound at init time. (let ((name (slot-definition-name s))) (if (memq name (map slot-definition-name (class-direct-slots class))) ;; This slot is direct; create a new shared variable (make-closure-variable class (class-slot-init-value)) ;; Slot is inherited. Find its definition in superclass (let loop ((l (cdr (class-precedence-list class)))) (let ((r (assoc name (slot-ref (car l) 'getters-n-setters)))) (if r (cddr r) (loop (cdr l)))))))) ((#:each-subclass) ;; slot shared by instances of direct subclass. ;; (Thomas Buerger, April 1998) (make-closure-variable class (class-slot-init-value))) ((#:virtual) ;; No allocation ;; slot-ref and slot-set! function must be given by the user (let ((get (get-keyword #:slot-ref (slot-definition-options s) #f)) (set (get-keyword #:slot-set! (slot-definition-options s) #f))) (if (not (and get set)) (goops-error "You must supply a #:slot-ref and a #:slot-set! in ~S" s)) (list get set))) (else (next-method)))) (define (make-closure-variable class value) (list (lambda (o) value) (lambda (o v) (set! value v)))) (define-method (compute-get-n-set (o <object>) s) (goops-error "Allocation \"~S\" is unknown" (slot-definition-allocation s))) (define-method (compute-slots (class <class>)) (%compute-slots class)) ;;; ;;; {Initialize} ;;; (define-method (initialize (object <object>) initargs) (%initialize-object object initargs)) (define-method (initialize (class <class>) initargs) (next-method) (let ((dslots (get-keyword #:slots initargs '())) (supers (get-keyword #:dsupers initargs '()))) (slot-set! class 'name (get-keyword #:name initargs '???)) (slot-set! class 'direct-supers supers) (slot-set! class 'direct-slots dslots) (slot-set! class 'direct-subclasses '()) (slot-set! class 'direct-methods '()) (slot-set! class 'cpl (compute-cpl class)) (slot-set! class 'redefined #f) (let ((slots (compute-slots class))) (slot-set! class 'slots slots) (slot-set! class 'nfields 0) (slot-set! class 'getters-n-setters (compute-getters-n-setters class slots)) ;; Build getters - setters - accessors (compute-slot-accessors class slots)) ;; Update the "direct-subclasses" of each inherited classes (for-each (lambda (x) (slot-set! x 'direct-subclasses (cons class (slot-ref x 'direct-subclasses)))) supers) ;; Support for the underlying structs: ;; Set the layout slot (%prep-layout! class) ;; Inherit class flags (invisible on scheme level) from supers (%inherit-magic! class supers))) (define (initialize-object-procedure object initargs) (let ((proc (get-keyword #:procedure initargs #f))) (cond ((not proc)) ((pair? proc) (apply slot-set! object 'procedure proc)) (else (slot-set! object 'procedure proc))))) (define-method (initialize (applicable-struct <applicable-struct>) initargs) (next-method) (initialize-object-procedure applicable-struct initargs)) (define-method (initialize (generic <generic>) initargs) (let ((previous-definition (get-keyword #:default initargs #f)) (name (get-keyword #:name initargs #f))) (next-method) (slot-set! generic 'methods (if (is-a? previous-definition <procedure>) (list (method args (apply previous-definition args))) '())) (if name (set-procedure-property! generic 'name name)) )) (define-method (initialize (gws <generic-with-setter>) initargs) (next-method) (%set-object-setter! gws (get-keyword #:setter initargs #f))) (define-method (initialize (eg <extended-generic>) initargs) (next-method) (slot-set! eg 'extends (get-keyword #:extends initargs '()))) (define dummy-procedure (lambda args *unspecified*)) (define-method (initialize (method <method>) initargs) (next-method) (slot-set! method 'generic-function (get-keyword #:generic-function initargs #f)) (slot-set! method 'specializers (get-keyword #:specializers initargs '())) (slot-set! method 'procedure (get-keyword #:procedure initargs #f)) (slot-set! method 'formals (get-keyword #:formals initargs '())) (slot-set! method 'body (get-keyword #:body initargs '())) (slot-set! method 'make-procedure (get-keyword #:make-procedure initargs #f))) ;;; ;;; {Change-class} ;;; (define (change-object-class old-instance old-class new-class) (let ((new-instance (allocate-instance new-class '()))) ;; Initialize the slots of the new instance (for-each (lambda (slot) (if (and (slot-exists-using-class? old-class old-instance slot) (eq? (slot-definition-allocation (class-slot-definition old-class slot)) #:instance) (slot-bound-using-class? old-class old-instance slot)) ;; Slot was present and allocated in old instance; copy it (slot-set-using-class! new-class new-instance slot (slot-ref-using-class old-class old-instance slot)) ;; slot was absent; initialize it with its default value (let ((init (slot-init-function new-class slot))) (if init (slot-set-using-class! new-class new-instance slot (apply init '())))))) (map slot-definition-name (class-slots new-class))) ;; Exchange old and new instance in place to keep pointers valid (%modify-instance old-instance new-instance) ;; Allow class specific updates of instances (which now are swapped) (update-instance-for-different-class new-instance old-instance) old-instance)) (define-method (update-instance-for-different-class (old-instance <object>) (new-instance <object>)) ;;not really important what we do, we just need a default method new-instance) (define-method (change-class (old-instance <object>) (new-class <class>)) (change-object-class old-instance (class-of old-instance) new-class)) ;;; ;;; {make} ;;; ;;; A new definition which overwrites the previous one which was built-in ;;; (define-method (allocate-instance (class <class>) initargs) (%allocate-instance class initargs)) (define-method (make-instance (class <class>) . initargs) (let ((instance (allocate-instance class initargs))) (initialize instance initargs) instance)) (define make make-instance) ;;; ;;; {apply-generic} ;;; ;;; Protocol for calling standard generic functions. This protocol is ;;; not used for real <generic> functions (in this case we use a ;;; completely C hard-coded protocol). Apply-generic is used by ;;; goops for calls to subclasses of <generic> and <generic-with-setter>. ;;; The code below is similar to the first MOP described in AMOP. In ;;; particular, it doesn't used the currified approach to gf ;;; call. There are 2 reasons for that: ;;; - the protocol below is exposed to mimic completely the one written in C ;;; - the currified protocol would be imho inefficient in C. ;;; (define-method (apply-generic (gf <generic>) args) (if (null? (slot-ref gf 'methods)) (no-method gf args)) (let ((methods (compute-applicable-methods gf args))) (if methods (apply-methods gf (sort-applicable-methods gf methods args) args) (no-applicable-method gf args)))) ;; compute-applicable-methods is bound to %compute-applicable-methods. ;; *fixme* use let (define %%compute-applicable-methods (make <generic> #:name 'compute-applicable-methods)) (define-method (%%compute-applicable-methods (gf <generic>) args) (%compute-applicable-methods gf args)) (set! compute-applicable-methods %%compute-applicable-methods) (define-method (sort-applicable-methods (gf <generic>) methods args) (let ((targs (map class-of args))) (sort methods (lambda (m1 m2) (method-more-specific? m1 m2 targs))))) (define-method (method-more-specific? (m1 <method>) (m2 <method>) targs) (%method-more-specific? m1 m2 targs)) (define-method (apply-method (gf <generic>) methods build-next args) (apply (method-procedure (car methods)) (build-next (cdr methods) args) args)) (define-method (apply-methods (gf <generic>) (l <list>) args) (letrec ((next (lambda (procs args) (lambda new-args (let ((a (if (null? new-args) args new-args))) (if (null? procs) (no-next-method gf a) (apply-method gf procs next a))))))) (apply-method gf l next args))) ;; We don't want the following procedure to turn up in backtraces: (for-each (lambda (proc) (set-procedure-property! proc 'system-procedure #t)) (list slot-unbound slot-missing no-next-method no-applicable-method no-method )) ;;; ;;; {<composite-metaclass> and <active-metaclass>} ;;; ;(autoload "active-slot" <active-metaclass>) ;(autoload "composite-slot" <composite-metaclass>) ;(export <composite-metaclass> <active-metaclass>) ;;; ;;; {Tools} ;;; ;; list2set ;; ;; duplicate the standard list->set function but using eq instead of ;; eqv which really sucks a lot, uselessly here ;; (define (list2set l) (let loop ((l l) (res '())) (cond ((null? l) res) ((memq (car l) res) (loop (cdr l) res)) (else (loop (cdr l) (cons (car l) res)))))) (define (class-subclasses c) (letrec ((allsubs (lambda (c) (cons c (mapappend allsubs (class-direct-subclasses c)))))) (list2set (cdr (allsubs c))))) (define (class-methods c) (list2set (mapappend class-direct-methods (cons c (class-subclasses c))))) ;;; ;;; {Final initialization} ;;; ;; Tell C code that the main bulk of Goops has been loaded (%goops-loaded) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������sxml/ssax/input-parse.scm���������������������������������������������������������������������������0000644�����������������00000017374�15253246142�0011500 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; (sxml ssax input-parse) -- a simple lexer ;;;; ;;;; Copyright (C) 2009 Free Software Foundation, Inc. ;;;; Modified 2004 by Andy Wingo <wingo at pobox dot com>. ;;;; Written 2003 by Oleg Kiselyov <oleg at pobox dot com> as input-parse.scm. ;;;; ;;;; This library 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. ;;;; ;;;; This library 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 library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; ;;; Commentary: ;; ;; A simple lexer. ;; ;; The procedures in this module surprisingly often suffice to parse an ;; input stream. They either skip, or build and return tokens, according ;; to inclusion or delimiting semantics. The list of characters to ;; expect, include, or to break at may vary from one invocation of a ;; function to another. This allows the functions to easily parse even ;; context-sensitive languages. ;; ;; EOF is generally frowned on, and thrown up upon if encountered. ;; Exceptions are mentioned specifically. The list of expected ;; characters (characters to skip until, or break-characters) may ;; include an EOF "character", which is to be coded as the symbol, ;; @code{*eof*}. ;; ;; The input stream to parse is specified as a @dfn{port}, which is ;; usually the last (and optional) argument. It defaults to the current ;; input port if omitted. ;; ;; If the parser encounters an error, it will throw an exception to the ;; key @code{parser-error}. The arguments will be of the form ;; @code{(@var{port} @var{message} @var{specialising-msg}*)}. ;; ;; The first argument is a port, which typically points to the offending ;; character or its neighborhood. You can then use @code{port-column} ;; and @code{port-line} to query the current position. @var{message} is ;; the description of the error. Other arguments supply more details ;; about the problem. ;; ;;; Code: (define-module (sxml ssax input-parse) #:use-module (ice-9 rdelim) #:export (peek-next-char assert-curr-char skip-until skip-while next-token next-token-of read-text-line read-string find-string-from-port?)) (define ascii->char integer->char) (define char->ascii char->integer) (define char-newline #\newline) (define char-return #\return) (define inc 1+) (define dec 1-) ;; rewrite oleg's define-opt into define* style (define-macro (define-opt bindings body . body-rest) (let* ((rev-bindings (reverse bindings)) (opt-bindings (and (pair? rev-bindings) (pair? (car rev-bindings)) (eq? 'optional (caar rev-bindings)) (cdar rev-bindings)))) (if opt-bindings `(define* ,(append (reverse (cons #:optional (cdr rev-bindings))) opt-bindings) ,body ,@body-rest) `(define* ,bindings ,body ,@body-rest)))) (define (parser-error port message . rest) (apply throw 'parser-error port message rest)) (include-from-path "sxml/upstream/input-parse.scm") ;; This version for guile is quite speedy, due to read-delimited (which ;; is implemented in C). (define-opt (next-token prefix-skipped-chars break-chars (optional (comment "") (port (current-input-port))) ) (let ((delims (list->string (delete '*eof* break-chars)))) (if (eof-object? (if (null? prefix-skipped-chars) (peek-char port) (skip-while prefix-skipped-chars port))) (if (memq '*eof* break-chars) "" (parser-error port "EOF while reading a token " comment)) (let ((token (read-delimited delims port 'peek))) (if (and (eof-object? (peek-char port)) (not (memq '*eof* break-chars))) (parser-error port "EOF while reading a token " comment) token))))) (define-opt (read-text-line (optional (port (current-input-port))) ) (read-line port)) ;; Written 1995, 1996 by Oleg Kiselyov (oleg@acm.org) ;; Modified 1996, 1997, 1998, 2001 by A. Jaffer (agj@alum.mit.edu) ;; Modified 2003 by Steve VanDevender (stevev@hexadecimal.uoregon.edu) ;; Modified 2004 Andy Wingo <wingo at pobox dot com> ;; This function is from SLIB's strsrch.scm, and is in the public domain. (define (find-string-from-port? str <input-port> . max-no-char) "Looks for @var{str} in @var{<input-port>}, optionally within the first @var{max-no-char} characters." (set! max-no-char (if (null? max-no-char) #f (car max-no-char))) (letrec ((no-chars-read 0) (peeked? #f) (my-peek-char ; Return a peeked char or #f (lambda () (and (or (not (number? max-no-char)) (< no-chars-read max-no-char)) (let ((c (peek-char <input-port>))) (cond (peeked? c) ((eof-object? c) #f) ((procedure? max-no-char) (set! peeked? #t) (if (max-no-char c) #f c)) ((eqv? max-no-char c) #f) (else c)))))) (next-char (lambda () (set! peeked? #f) (read-char <input-port>) (set! no-chars-read (+ 1 no-chars-read)))) (match-1st-char ; of the string str (lambda () (let ((c (my-peek-char))) (and c (begin (next-char) (if (char=? c (string-ref str 0)) (match-other-chars 1) (match-1st-char))))))) ;; There has been a partial match, up to the point pos-to-match ;; (for example, str[0] has been found in the stream) ;; Now look to see if str[pos-to-match] for would be found, too (match-other-chars (lambda (pos-to-match) (if (>= pos-to-match (string-length str)) no-chars-read ; the entire string has matched (let ((c (my-peek-char))) (and c (if (not (char=? c (string-ref str pos-to-match))) (backtrack 1 pos-to-match) (begin (next-char) (match-other-chars (+ 1 pos-to-match))))))))) ;; There had been a partial match, but then a wrong char showed up. ;; Before discarding previously read (and matched) characters, we check ;; to see if there was some smaller partial match. Note, characters read ;; so far (which matter) are those of str[0..matched-substr-len - 1] ;; In other words, we will check to see if there is such i>0 that ;; substr(str,0,j) = substr(str,i,matched-substr-len) ;; where j=matched-substr-len - i (backtrack (lambda (i matched-substr-len) (let ((j (- matched-substr-len i))) (if (<= j 0) ;; backed off completely to the begining of str (match-1st-char) (let loop ((k 0)) (if (>= k j) (match-other-chars j) ; there was indeed a shorter match (if (char=? (string-ref str k) (string-ref str (+ i k))) (loop (+ 1 k)) (backtrack (+ 1 i) matched-substr-len)))))))) ) (match-1st-char))) ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������sxml/transform.scm����������������������������������������������������������������������������������0000644�����������������00000027525�15253246142�0010265 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; (sxml transform) -- pre- and post-order sxml transformation ;;;; ;;;; Copyright (C) 2009 Free Software Foundation, Inc. ;;;; Modified 2004 by Andy Wingo <wingo at pobox dot com>. ;;;; Written 2003 by Oleg Kiselyov <oleg at pobox dot com> as SXML-tree-trans.scm. ;;;; ;;;; This library 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. ;;;; ;;;; This library 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 library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; ;;; Commentary: ;; ;;@heading SXML expression tree transformers ; ;@subheading Pre-Post-order traversal of a tree and creation of a new tree ;@smallexample ;pre-post-order:: <tree> x <bindings> -> <new-tree> ;@end smallexample ; where ;@smallexample ; <bindings> ::= (<binding> ...) ; <binding> ::= (<trigger-symbol> *preorder* . <handler>) | ; (<trigger-symbol> *macro* . <handler>) | ; (<trigger-symbol> <new-bindings> . <handler>) | ; (<trigger-symbol> . <handler>) ; <trigger-symbol> ::= XMLname | *text* | *default* ; <handler> :: <trigger-symbol> x [<tree>] -> <new-tree> ;@end smallexample ; ; The pre-post-order function visits the nodes and nodelists ; pre-post-order (depth-first). For each @code{<Node>} of the form ; @code{(@var{name} <Node> ...)}, it looks up an association with the ; given @var{name} among its @var{<bindings>}. If failed, ; @code{pre-post-order} tries to locate a @code{*default*} binding. It's ; an error if the latter attempt fails as well. Having found a binding, ; the @code{pre-post-order} function first checks to see if the binding ; is of the form ;@smallexample ; (<trigger-symbol> *preorder* . <handler>) ;@end smallexample ; ; If it is, the handler is 'applied' to the current node. Otherwise, the ; pre-post-order function first calls itself recursively for each child ; of the current node, with @var{<new-bindings>} prepended to the ; @var{<bindings>} in effect. The result of these calls is passed to the ; @var{<handler>} (along with the head of the current @var{<Node>}). To ; be more precise, the handler is _applied_ to the head of the current ; node and its processed children. The result of the handler, which ; should also be a @code{<tree>}, replaces the current @var{<Node>}. If ; the current @var{<Node>} is a text string or other atom, a special ; binding with a symbol @code{*text*} is looked up. ; ; A binding can also be of a form ;@smallexample ; (<trigger-symbol> *macro* . <handler>) ;@end smallexample ; This is equivalent to @code{*preorder*} described above. However, the ; result is re-processed again, with the current stylesheet. ;; ;;; Code: (define-module (sxml transform) #:export (SRV:send-reply foldts post-order pre-post-order replace-range)) ;; Upstream version: ; $Id: SXML-tree-trans.scm,v 1.8 2003/04/24 19:39:53 oleg Exp oleg $ ; Like let* but allowing for multiple-value bindings (define-macro (let*-values bindings . body) (if (null? bindings) (cons 'begin body) (apply (lambda (vars initializer) (let ((cont (cons 'let*-values (cons (cdr bindings) body)))) (cond ((not (pair? vars)) ; regular let case, a single var `(let ((,vars ,initializer)) ,cont)) ((null? (cdr vars)) ; single var, see the prev case `(let ((,(car vars) ,initializer)) ,cont)) (else ; the most generic case `(call-with-values (lambda () ,initializer) (lambda ,vars ,cont)))))) (car bindings)))) (define (SRV:send-reply . fragments) "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}." (let loop ((fragments fragments) (result #f)) (cond ((null? fragments) result) ((not (car fragments)) (loop (cdr fragments) result)) ((null? (car fragments)) (loop (cdr fragments) result)) ((eq? #t (car fragments)) (loop (cdr fragments) #t)) ((pair? (car fragments)) (loop (cdr fragments) (loop (car fragments) result))) ((procedure? (car fragments)) ((car fragments)) (loop (cdr fragments) #t)) (else (display (car fragments)) (loop (cdr fragments) #t))))) ;------------------------------------------------------------------------ ; Traversal of an SXML tree or a grove: ; a <Node> or a <Nodelist> ; ; A <Node> and a <Nodelist> are mutually-recursive datatypes that ; underlie the SXML tree: ; <Node> ::= (name . <Nodelist>) | "text string" ; An (ordered) set of nodes is just a list of the constituent nodes: ; <Nodelist> ::= (<Node> ...) ; Nodelists, and Nodes other than text strings are both lists. A ; <Nodelist> however is either an empty list, or a list whose head is ; not a symbol (an atom in general). A symbol at the head of a node is ; either an XML name (in which case it's a tag of an XML element), or ; an administrative name such as '@'. ; See SXPath.scm and SSAX.scm for more information on SXML. ;; see the commentary for docs (define (pre-post-order tree bindings) (let* ((default-binding (assq '*default* bindings)) (text-binding (or (assq '*text* bindings) default-binding)) (text-handler ; Cache default and text bindings (and text-binding (if (procedure? (cdr text-binding)) (cdr text-binding) (cddr text-binding))))) (let loop ((tree tree)) (cond ((null? tree) '()) ((not (pair? tree)) (let ((trigger '*text*)) (if text-handler (text-handler trigger tree) (error "Unknown binding for " trigger " and no default")))) ((not (symbol? (car tree))) (map loop tree)) ; tree is a nodelist (else ; tree is an SXML node (let* ((trigger (car tree)) (binding (or (assq trigger bindings) default-binding))) (cond ((not binding) (error "Unknown binding for " trigger " and no default")) ((not (pair? (cdr binding))) ; must be a procedure: handler (apply (cdr binding) trigger (map loop (cdr tree)))) ((eq? '*preorder* (cadr binding)) (apply (cddr binding) tree)) ((eq? '*macro* (cadr binding)) (loop (apply (cddr binding) tree))) (else ; (cadr binding) is a local binding (apply (cddr binding) trigger (pre-post-order (cdr tree) (append (cadr binding) bindings))) )))))))) ; post-order is a strict subset of pre-post-order without *preorder* ; (let alone *macro*) traversals. ; Now pre-post-order is actually faster than the old post-order. ; The function post-order is deprecated and is aliased below for ; backward compatibility. (define post-order pre-post-order) ;------------------------------------------------------------------------ ; Extended tree fold ; tree = atom | (node-name tree ...) ; ; foldts fdown fup fhere seed (Leaf str) = fhere seed str ; foldts fdown fup fhere seed (Nd kids) = ; fup seed $ foldl (foldts fdown fup fhere) (fdown seed) kids ; procedure fhere: seed -> atom -> seed ; procedure fdown: seed -> node -> seed ; procedure fup: parent-seed -> last-kid-seed -> node -> seed ; foldts returns the final seed (define (foldts fdown fup fhere seed tree) (cond ((null? tree) seed) ((not (pair? tree)) ; An atom (fhere seed tree)) (else (let loop ((kid-seed (fdown seed tree)) (kids (cdr tree))) (if (null? kids) (fup seed kid-seed tree) (loop (foldts fdown fup fhere kid-seed (car kids)) (cdr kids))))))) ;------------------------------------------------------------------------ ; Traverse a forest depth-first and cut/replace ranges of nodes. ; ; The nodes that define a range don't have to have the same immediate ; parent, don't have to be on the same level, and the end node of a ; range doesn't even have to exist. A replace-range procedure removes ; nodes from the beginning node of the range up to (but not including) ; the end node of the range. In addition, the beginning node of the ; range can be replaced by a node or a list of nodes. The range of ; nodes is cut while depth-first traversing the forest. If all ; branches of the node are cut a node is cut as well. The procedure ; can cut several non-overlapping ranges from a forest. ; replace-range:: BEG-PRED x END-PRED x FOREST -> FOREST ; where ; type FOREST = (NODE ...) ; type NODE = Atom | (Name . FOREST) | FOREST ; ; The range of nodes is specified by two predicates, beg-pred and end-pred. ; beg-pred:: NODE -> #f | FOREST ; end-pred:: NODE -> #f | FOREST ; The beg-pred predicate decides on the beginning of the range. The node ; for which the predicate yields non-#f marks the beginning of the range ; The non-#f value of the predicate replaces the node. The value can be a ; list of nodes. The replace-range procedure then traverses the tree and skips ; all the nodes, until the end-pred yields non-#f. The value of the end-pred ; replaces the end-range node. The new end node and its brothers will be ; re-scanned. ; The predicates are evaluated pre-order. We do not descend into a node that ; is marked as the beginning of the range. (define (replace-range beg-pred end-pred forest) ; loop forest keep? new-forest ; forest is the forest to traverse ; new-forest accumulates the nodes we will keep, in the reverse ; order ; If keep? is #t, keep the curr node if atomic. If the node is not atomic, ; traverse its children and keep those that are not in the skip range. ; If keep? is #f, skip the current node if atomic. Otherwise, ; traverse its children. If all children are skipped, skip the node ; as well. (define (loop forest keep? new-forest) (if (null? forest) (values (reverse new-forest) keep?) (let ((node (car forest))) (if keep? (cond ; accumulate mode ((beg-pred node) => ; see if the node starts the skip range (lambda (repl-branches) ; if so, skip/replace the node (loop (cdr forest) #f (append (reverse repl-branches) new-forest)))) ((not (pair? node)) ; it's an atom, keep it (loop (cdr forest) keep? (cons node new-forest))) (else (let*-values (((node?) (symbol? (car node))) ; or is it a nodelist? ((new-kids keep?) ; traverse its children (loop (if node? (cdr node) node) #t '()))) (loop (cdr forest) keep? (cons (if node? (cons (car node) new-kids) new-kids) new-forest))))) ; skip mode (cond ((end-pred node) => ; end the skip range (lambda (repl-branches) ; repl-branches will be re-scanned (loop (append repl-branches (cdr forest)) #t new-forest))) ((not (pair? node)) ; it's an atom, skip it (loop (cdr forest) keep? new-forest)) (else (let*-values (((node?) (symbol? (car node))) ; or is it a nodelist? ((new-kids keep?) ; traverse its children (loop (if node? (cdr node) node) #f '()))) (loop (cdr forest) keep? (if (or keep? (pair? new-kids)) (cons (if node? (cons (car node) new-kids) new-kids) new-forest) new-forest) ; if all kids are skipped )))))))) ; skip the node too (let*-values (((new-forest keep?) (loop forest #t '()))) new-forest)) ;;; arch-tag: 6c814f4b-38f7-42c1-b8ef-ce3447edefc7 ;;; transform.scm ends here ���������������������������������������������������������������������������������������������������������������������������������������������������������������������������sxml/xpath.scm��������������������������������������������������������������������������������������0000644�����������������00000046572�15253246142�0007401 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; (sxml xpath) -- SXPath ;;;; ;;;; Copyright (C) 2009 Free Software Foundation, Inc. ;;;; Modified 2004 by Andy Wingo <wingo at pobox dot com>. ;;;; Written 2001 by Oleg Kiselyov <oleg at pobox dot com> SXPath.scm. ;;;; ;;;; This library 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. ;;;; ;;;; This library 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 library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; ;;; Commentary: ;; ;;@heading SXPath: SXML Query Language ;; ;; SXPath is a query language for SXML, an instance of XML Information ;; set (Infoset) in the form of s-expressions. See @code{(sxml ssax)} ;; for the definition of SXML and more details. SXPath is also a ;; translation into Scheme of an XML Path Language, ;; @uref{http://www.w3.org/TR/xpath,XPath}. XPath and SXPath describe ;; means of selecting a set of Infoset's items or their properties. ;; ;; To facilitate queries, XPath maps the XML Infoset into an explicit ;; tree, and introduces important notions of a location path and a ;; current, context node. A location path denotes a selection of a set of ;; nodes relative to a context node. Any XPath tree has a distinguished, ;; root node -- which serves as the context node for absolute location ;; paths. Location path is recursively defined as a location step joined ;; with a location path. A location step is a simple query of the ;; database relative to a context node. A step may include expressions ;; that further filter the selected set. Each node in the resulting set ;; is used as a context node for the adjoining location path. The result ;; of the step is a union of the sets returned by the latter location ;; paths. ;; ;; The SXML representation of the XML Infoset (see SSAX.scm) is rather ;; suitable for querying as it is. Bowing to the XPath specification, ;; we will refer to SXML information items as 'Nodes': ;;@example ;; <Node> ::= <Element> | <attributes-coll> | <attrib> ;; | "text string" | <PI> ;;@end example ;; This production can also be described as ;;@example ;; <Node> ::= (name . <Nodeset>) | "text string" ;;@end example ;; An (ordered) set of nodes is just a list of the constituent nodes: ;;@example ;; <Nodeset> ::= (<Node> ...) ;;@end example ;; Nodesets, and Nodes other than text strings are both lists. A ;; <Nodeset> however is either an empty list, or a list whose head is not ;; a symbol. A symbol at the head of a node is either an XML name (in ;; which case it's a tag of an XML element), or an administrative name ;; such as '@@'. This uniform list representation makes processing rather ;; simple and elegant, while avoiding confusion. The multi-branch tree ;; structure formed by the mutually-recursive datatypes <Node> and ;; <Nodeset> lends itself well to processing by functional languages. ;; ;; A location path is in fact a composite query over an XPath tree or ;; its branch. A singe step is a combination of a projection, selection ;; or a transitive closure. Multiple steps are combined via join and ;; union operations. This insight allows us to @emph{elegantly} ;; implement XPath as a sequence of projection and filtering primitives ;; -- converters -- joined by @dfn{combinators}. Each converter takes a ;; node and returns a nodeset which is the result of the corresponding ;; query relative to that node. A converter can also be called on a set ;; of nodes. In that case it returns a union of the corresponding ;; queries over each node in the set. The union is easily implemented as ;; a list append operation as all nodes in a SXML tree are considered ;; distinct, by XPath conventions. We also preserve the order of the ;; members in the union. Query combinators are high-order functions: ;; they take converter(s) (which is a Node|Nodeset -> Nodeset function) ;; and compose or otherwise combine them. We will be concerned with only ;; relative location paths [XPath]: an absolute location path is a ;; relative path applied to the root node. ;; ;; Similarly to XPath, SXPath defines full and abbreviated notations ;; for location paths. In both cases, the abbreviated notation can be ;; mechanically expanded into the full form by simple rewriting ;; rules. In case of SXPath the corresponding rules are given as ;; comments to a sxpath function, below. The regression test suite at ;; the end of this file shows a representative sample of SXPaths in ;; both notations, juxtaposed with the corresponding XPath ;; expressions. Most of the samples are borrowed literally from the ;; XPath specification, while the others are adjusted for our running ;; example, tree1. ;; ;;; Code: (define-module (sxml xpath) #:use-module (ice-9 pretty-print) #:export (nodeset? node-typeof? node-eq? node-equal? node-pos filter take-until take-after map-union node-reverse node-trace select-kids node-self node-join node-reduce node-or node-closure node-parent sxpath)) ;; Upstream version: ; $Id: SXPath.scm,v 3.5 2001/01/12 23:20:35 oleg Exp oleg $ (define (nodeset? x) (or (and (pair? x) (not (symbol? (car x)))) (null? x))) ;------------------------- ; Basic converters and applicators ; A converter is a function ; type Converter = Node|Nodeset -> Nodeset ; A converter can also play a role of a predicate: in that case, if a ; converter, applied to a node or a nodeset, yields a non-empty ; nodeset, the converter-predicate is deemed satisfied. Throughout ; this file a nil nodeset is equivalent to #f in denoting a failure. ; The following function implements a 'Node test' as defined in ; Sec. 2.3 of XPath document. A node test is one of the components of a ; location step. It is also a converter-predicate in SXPath. ; ; The function node-typeof? takes a type criterion and returns a function, ; which, when applied to a node, will tell if the node satisfies ; the test. ; node-typeof? :: Crit -> Node -> Boolean ; ; The criterion 'crit' is a symbol, one of the following: ; id - tests if the Node has the right name (id) ; @ - tests if the Node is an <attributes-coll> ; * - tests if the Node is an <Element> ; *text* - tests if the Node is a text node ; *PI* - tests if the Node is a PI node ; *any* - #t for any type of Node (define (node-typeof? crit) (lambda (node) (case crit ((*) (and (pair? node) (not (memq (car node) '(@ *PI*))))) ((*any*) #t) ((*text*) (string? node)) (else (and (pair? node) (eq? crit (car node)))) ))) ; Curried equivalence converter-predicates (define (node-eq? other) (lambda (node) (eq? other node))) (define (node-equal? other) (lambda (node) (equal? other node))) ; node-pos:: N -> Nodeset -> Nodeset, or ; node-pos:: N -> Converter ; Select the N'th element of a Nodeset and return as a singular Nodeset; ; Return an empty nodeset if the Nth element does not exist. ; ((node-pos 1) Nodeset) selects the node at the head of the Nodeset, ; if exists; ((node-pos 2) Nodeset) selects the Node after that, if ; exists. ; N can also be a negative number: in that case the node is picked from ; the tail of the list. ; ((node-pos -1) Nodeset) selects the last node of a non-empty nodeset; ; ((node-pos -2) Nodeset) selects the last but one node, if exists. (define (node-pos n) (lambda (nodeset) (cond ((not (nodeset? nodeset)) '()) ((null? nodeset) nodeset) ((eqv? n 1) (list (car nodeset))) ((negative? n) ((node-pos (+ n 1 (length nodeset))) nodeset)) (else (or (positive? n) (error "yikes!")) ((node-pos (1- n)) (cdr nodeset)))))) ; filter:: Converter -> Converter ; A filter applicator, which introduces a filtering context. The argument ; converter is considered a predicate, with either #f or nil result meaning ; failure. (define (filter pred?) (lambda (lst) ; a nodeset or a node (will be converted to a singleton nset) (let loop ((lst (if (nodeset? lst) lst (list lst))) (res '())) (if (null? lst) (reverse res) (let ((pred-result (pred? (car lst)))) (loop (cdr lst) (if (and pred-result (not (null? pred-result))) (cons (car lst) res) res))))))) ; take-until:: Converter -> Converter, or ; take-until:: Pred -> Node|Nodeset -> Nodeset ; Given a converter-predicate and a nodeset, apply the predicate to ; each element of the nodeset, until the predicate yields anything but #f or ; nil. Return the elements of the input nodeset that have been processed ; till that moment (that is, which fail the predicate). ; take-until is a variation of the filter above: take-until passes ; elements of an ordered input set till (but not including) the first ; element that satisfies the predicate. ; The nodeset returned by ((take-until (not pred)) nset) is a subset -- ; to be more precise, a prefix -- of the nodeset returned by ; ((filter pred) nset) (define (take-until pred?) (lambda (lst) ; a nodeset or a node (will be converted to a singleton nset) (let loop ((lst (if (nodeset? lst) lst (list lst)))) (if (null? lst) lst (let ((pred-result (pred? (car lst)))) (if (and pred-result (not (null? pred-result))) '() (cons (car lst) (loop (cdr lst))))) )))) ; take-after:: Converter -> Converter, or ; take-after:: Pred -> Node|Nodeset -> Nodeset ; Given a converter-predicate and a nodeset, apply the predicate to ; each element of the nodeset, until the predicate yields anything but #f or ; nil. Return the elements of the input nodeset that have not been processed: ; that is, return the elements of the input nodeset that follow the first ; element that satisfied the predicate. ; take-after along with take-until partition an input nodeset into three ; parts: the first element that satisfies a predicate, all preceding ; elements and all following elements. (define (take-after pred?) (lambda (lst) ; a nodeset or a node (will be converted to a singleton nset) (let loop ((lst (if (nodeset? lst) lst (list lst)))) (if (null? lst) lst (let ((pred-result (pred? (car lst)))) (if (and pred-result (not (null? pred-result))) (cdr lst) (loop (cdr lst)))) )))) ; Apply proc to each element of lst and return the list of results. ; if proc returns a nodeset, splice it into the result ; ; From another point of view, map-union is a function Converter->Converter, ; which places an argument-converter in a joining context. (define (map-union proc lst) (if (null? lst) lst (let ((proc-res (proc (car lst)))) ((if (nodeset? proc-res) append cons) proc-res (map-union proc (cdr lst)))))) ; node-reverse :: Converter, or ; node-reverse:: Node|Nodeset -> Nodeset ; Reverses the order of nodes in the nodeset ; This basic converter is needed to implement a reverse document order ; (see the XPath Recommendation). (define node-reverse (lambda (node-or-nodeset) (if (not (nodeset? node-or-nodeset)) (list node-or-nodeset) (reverse node-or-nodeset)))) ; node-trace:: String -> Converter ; (node-trace title) is an identity converter. In addition it prints out ; a node or nodeset it is applied to, prefixed with the 'title'. ; This converter is very useful for debugging. (define (node-trace title) (lambda (node-or-nodeset) (display "\n-->") (display title) (display " :") (pretty-print node-or-nodeset) node-or-nodeset)) ;------------------------- ; Converter combinators ; ; Combinators are higher-order functions that transmogrify a converter ; or glue a sequence of converters into a single, non-trivial ; converter. The goal is to arrive at converters that correspond to ; XPath location paths. ; ; From a different point of view, a combinator is a fixed, named ; _pattern_ of applying converters. Given below is a complete set of ; such patterns that together implement XPath location path ; specification. As it turns out, all these combinators can be built ; from a small number of basic blocks: regular functional composition, ; map-union and filter applicators, and the nodeset union. ; select-kids:: Pred -> Node -> Nodeset ; Given a Node, return an (ordered) subset its children that satisfy ; the Pred (a converter, actually) ; select-kids:: Pred -> Nodeset -> Nodeset ; The same as above, but select among children of all the nodes in ; the Nodeset ; ; More succinctly, the signature of this function is ; select-kids:: Converter -> Converter (define (select-kids test-pred?) (lambda (node) ; node or node-set (cond ((null? node) node) ((not (pair? node)) '()) ; No children ((symbol? (car node)) ((filter test-pred?) (cdr node))) ; it's a single node (else (map-union (select-kids test-pred?) node))))) ; node-self:: Pred -> Node -> Nodeset, or ; node-self:: Converter -> Converter ; Similar to select-kids but apply to the Node itself rather ; than to its children. The resulting Nodeset will contain either one ; component, or will be empty (if the Node failed the Pred). (define node-self filter) ; node-join:: [LocPath] -> Node|Nodeset -> Nodeset, or ; node-join:: [Converter] -> Converter ; join the sequence of location steps or paths as described ; in the title comments above. (define (node-join . selectors) (lambda (nodeset) ; Nodeset or node (let loop ((nodeset nodeset) (selectors selectors)) (if (null? selectors) nodeset (loop (if (nodeset? nodeset) (map-union (car selectors) nodeset) ((car selectors) nodeset)) (cdr selectors)))))) ; node-reduce:: [LocPath] -> Node|Nodeset -> Nodeset, or ; node-reduce:: [Converter] -> Converter ; A regular functional composition of converters. ; From a different point of view, ; ((apply node-reduce converters) nodeset) ; is equivalent to ; (foldl apply nodeset converters) ; i.e., folding, or reducing, a list of converters with the nodeset ; as a seed. (define (node-reduce . converters) (lambda (nodeset) ; Nodeset or node (let loop ((nodeset nodeset) (converters converters)) (if (null? converters) nodeset (loop ((car converters) nodeset) (cdr converters)))))) ; node-or:: [Converter] -> Converter ; This combinator applies all converters to a given node and ; produces the union of their results. ; This combinator corresponds to a union, '|' operation for XPath ; location paths. ; (define (node-or . converters) ; (lambda (node-or-nodeset) ; (if (null? converters) node-or-nodeset ; (append ; ((car converters) node-or-nodeset) ; ((apply node-or (cdr converters)) node-or-nodeset))))) ; More optimal implementation follows (define (node-or . converters) (lambda (node-or-nodeset) (let loop ((result '()) (converters converters)) (if (null? converters) result (loop (append result (or ((car converters) node-or-nodeset) '())) (cdr converters)))))) ; node-closure:: Converter -> Converter ; Select all _descendants_ of a node that satisfy a converter-predicate. ; This combinator is similar to select-kids but applies to ; grand... children as well. ; This combinator implements the "descendant::" XPath axis ; Conceptually, this combinator can be expressed as ; (define (node-closure f) ; (node-or ; (select-kids f) ; (node-reduce (select-kids (node-typeof? '*)) (node-closure f)))) ; This definition, as written, looks somewhat like a fixpoint, and it ; will run forever. It is obvious however that sooner or later ; (select-kids (node-typeof? '*)) will return an empty nodeset. At ; this point further iterations will no longer affect the result and ; can be stopped. (define (node-closure test-pred?) (lambda (node) ; Nodeset or node (let loop ((parent node) (result '())) (if (null? parent) result (loop ((select-kids (node-typeof? '*)) parent) (append result ((select-kids test-pred?) parent))) )))) ; node-parent:: RootNode -> Converter ; (node-parent rootnode) yields a converter that returns a parent of a ; node it is applied to. If applied to a nodeset, it returns the list ; of parents of nodes in the nodeset. The rootnode does not have ; to be the root node of the whole SXML tree -- it may be a root node ; of a branch of interest. ; Given the notation of Philip Wadler's paper on semantics of XSLT, ; parent(x) = { y | y=subnode*(root), x=subnode(y) } ; Therefore, node-parent is not the fundamental converter: it can be ; expressed through the existing ones. Yet node-parent is a rather ; convenient converter. It corresponds to a parent:: axis of SXPath. ; Note that the parent:: axis can be used with an attribute node as well! (define (node-parent rootnode) (lambda (node) ; Nodeset or node (if (nodeset? node) (map-union (node-parent rootnode) node) (let ((pred (node-or (node-reduce (node-self (node-typeof? '*)) (select-kids (node-eq? node))) (node-join (select-kids (node-typeof? '@)) (select-kids (node-eq? node)))))) ((node-or (node-self pred) (node-closure pred)) rootnode))))) ;------------------------- ; Evaluate an abbreviated SXPath ; sxpath:: AbbrPath -> Converter, or ; sxpath:: AbbrPath -> Node|Nodeset -> Nodeset ; AbbrPath is a list. It is translated to the full SXPath according ; to the following rewriting rules ; (sxpath '()) -> (node-join) ; (sxpath '(path-component ...)) -> ; (node-join (sxpath1 path-component) (sxpath '(...))) ; (sxpath1 '//) -> (node-or ; (node-self (node-typeof? '*any*)) ; (node-closure (node-typeof? '*any*))) ; (sxpath1 '(equal? x)) -> (select-kids (node-equal? x)) ; (sxpath1 '(eq? x)) -> (select-kids (node-eq? x)) ; (sxpath1 ?symbol) -> (select-kids (node-typeof? ?symbol) ; (sxpath1 procedure) -> procedure ; (sxpath1 '(?symbol ...)) -> (sxpath1 '((?symbol) ...)) ; (sxpath1 '(path reducer ...)) -> ; (node-reduce (sxpath path) (sxpathr reducer) ...) ; (sxpathr number) -> (node-pos number) ; (sxpathr path-filter) -> (filter (sxpath path-filter)) (define (sxpath path) (lambda (nodeset) (let loop ((nodeset nodeset) (path path)) (cond ((null? path) nodeset) ((nodeset? nodeset) (map-union (sxpath path) nodeset)) ((procedure? (car path)) (loop ((car path) nodeset) (cdr path))) ((eq? '// (car path)) (loop ((if (nodeset? nodeset) append cons) nodeset ((node-closure (node-typeof? '*any*)) nodeset)) (cdr path))) ((symbol? (car path)) (loop ((select-kids (node-typeof? (car path))) nodeset) (cdr path))) ((and (pair? (car path)) (eq? 'equal? (caar path))) (loop ((select-kids (apply node-equal? (cdar path))) nodeset) (cdr path))) ((and (pair? (car path)) (eq? 'eq? (caar path))) (loop ((select-kids (apply node-eq? (cdar path))) nodeset) (cdr path))) ((pair? (car path)) (let reducer ((nodeset (if (symbol? (caar path)) ((select-kids (node-typeof? (caar path))) nodeset) (loop nodeset (caar path)))) (reducing-path (cdar path))) (cond ((null? reducing-path) (loop nodeset (cdr path))) ((number? (car reducing-path)) (reducer ((node-pos (car reducing-path)) nodeset) (cdr reducing-path))) (else (reducer ((filter (sxpath (car reducing-path))) nodeset) (cdr reducing-path)))))) (else (error "Invalid path step: " (car path))))))) ;;; arch-tag: c4e57abf-6b61-4612-a6aa-d1536d440774 ;;; xpath.scm ends here ��������������������������������������������������������������������������������������������������������������������������������������sxml/sxml-match.ss����������������������������������������������������������������������������������0000644�����������������00000205307�15253246142�0010166 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;; Library: sxml-match ;; Author: Jim Bender ;; Version: 1.1, version for PLT Scheme ;; ;; Copyright 2005-9, Jim Bender ;; sxml-match is released under the MIT License ;; (module sxml-match mzscheme (provide sxml-match sxml-match-let sxml-match-let*) (require (rename (lib "fold.ss" "srfi" "1") fold-right fold-right) (rename (lib "filter.ss" "srfi" "1") filter filter)) (define (nodeset? x) (or (and (pair? x) (not (symbol? (car x)))) (null? x))) (define (xml-element-tag s) (if (and (pair? s) (symbol? (car s))) (car s) (error 'xml-element-tag "expected an xml-element, given" s))) (define (xml-element-attributes s) (if (and (pair? s) (symbol? (car s))) (fold-right (lambda (a b) (if (and (pair? a) (eq? '@ (car a))) (if (null? b) (filter (lambda (i) (not (and (pair? i) (eq? '@ (car i))))) (cdr a)) (fold-right (lambda (c d) (if (and (pair? c) (eq? '@ (car c))) d (cons c d))) b (cdr a))) b)) '() (cdr s)) (error 'xml-element-attributes "expected an xml-element, given" s))) (define (xml-element-contents s) (if (and (pair? s) (symbol? (car s))) (filter (lambda (i) (not (and (pair? i) (eq? '@ (car i))))) (cdr s)) (error 'xml-element-contents "expected an xml-element, given" s))) (define (match-xml-attribute key l) (if (not (pair? l)) #f (if (eq? (car (car l)) key) (car l) (match-xml-attribute key (cdr l))))) (define (filter-attributes keys lst) (if (null? lst) '() (if (member (caar lst) keys) (filter-attributes keys (cdr lst)) (cons (car lst) (filter-attributes keys (cdr lst)))))) (define-syntax compile-clause (lambda (stx) (letrec ([sxml-match-syntax-error (lambda (msg exp sub) (raise-syntax-error #f msg (with-syntax ([s exp]) (syntax (sxml-match s))) sub))] [ellipsis? (lambda (stx) (and (identifier? stx) (eq? '... (syntax-object->datum stx))))] [literal? (lambda (stx) (let ([x (syntax-object->datum stx)]) (or (string? x) (char? x) (number? x) (boolean? x))))] [keyword? (lambda (stx) (and (identifier? stx) (let ([str (symbol->string (syntax-object->datum stx))]) (char=? #\: (string-ref str (- (string-length str) 1))))))] [extract-cata-fun (lambda (cf) (syntax-case cf () [#f #f] [other cf]))] [add-pat-var (lambda (pvar pvar-lst) (define (check-pvar lst) (if (null? lst) (void) (if (bound-identifier=? (car lst) pvar) (sxml-match-syntax-error "duplicate pattern variable not allowed" stx pvar) (check-pvar (cdr lst))))) (check-pvar pvar-lst) (cons pvar pvar-lst))] [add-cata-def (lambda (depth cvars cfun ctemp cdefs) (cons (list depth cvars cfun ctemp) cdefs))] [process-cata-exp (lambda (depth cfun ctemp) (if (= depth 0) (with-syntax ([cf cfun] [ct ctemp]) (syntax (cf ct))) (let ([new-ctemp (car (generate-temporaries (list ctemp)))]) (with-syntax ([ct ctemp] [nct new-ctemp] [body (process-cata-exp (- depth 1) cfun new-ctemp)]) (syntax (map (lambda (nct) body) ct))))))] [process-cata-defs (lambda (cata-defs body) (if (null? cata-defs) body (with-syntax ([(cata-binding ...) (map (lambda (def) (with-syntax ([bvar (cadr def)] [bval (process-cata-exp (car def) (caddr def) (cadddr def))]) (syntax (bvar bval)))) cata-defs)] [body-stx body]) (syntax (let-values (cata-binding ...) body-stx)))))] [cata-defs->pvar-lst (lambda (lst) (if (null? lst) '() (let iter ([items (cadr (car lst))]) (syntax-case items () [() (cata-defs->pvar-lst (cdr lst))] [(fst . rst) (cons (syntax fst) (iter (syntax rst)))]))))] [process-output-action (lambda (action dotted-vars) (define (finite-lst? lst) (syntax-case lst () (item (identifier? (syntax item)) #f) (() #t) ((fst dots . rst) (ellipsis? (syntax dots)) #f) ((fst . rst) (finite-lst? (syntax rst))))) (define (expand-lst lst) (syntax-case lst () [() (syntax '())] [item (identifier? (syntax item)) (syntax item)] [(fst dots . rst) (ellipsis? (syntax dots)) (with-syntax ([exp-lft (expand-dotted-item (process-output-action (syntax fst) dotted-vars))] [exp-rgt (expand-lst (syntax rst))]) (syntax (append exp-lft exp-rgt)))] [(fst . rst) (with-syntax ([exp-lft (process-output-action (syntax fst) dotted-vars)] [exp-rgt (expand-lst (syntax rst))]) (syntax (cons exp-lft exp-rgt)))])) (define (member-var? var lst) (let iter ([lst lst]) (if (null? lst) #f (if (or (bound-identifier=? var (car lst)) (free-identifier=? var (car lst))) #t (iter (cdr lst)))))) (define (dotted-var? var) (member-var? var dotted-vars)) (define (merge-pvars lst1 lst2) (if (null? lst1) lst2 (if (member-var? (car lst1) lst2) (merge-pvars (cdr lst1) lst2) (cons (car lst1) (merge-pvars (cdr lst1) lst2))))) (define (select-dotted-vars x) (define (walk-quasi-body y) (syntax-case y (unquote unquote-splicing) [((unquote a) . rst) (merge-pvars (select-dotted-vars (syntax a)) (walk-quasi-body (syntax rst)))] [((unquote-splicing a) . rst) (merge-pvars (select-dotted-vars (syntax a)) (walk-quasi-body (syntax rst)))] [(fst . rst) (merge-pvars (walk-quasi-body (syntax fst)) (walk-quasi-body (syntax rst)))] [other '()])) (syntax-case x (quote quasiquote) [(quote . rst) '()] [(quasiquote . rst) (walk-quasi-body (syntax rst))] [(fst . rst) (merge-pvars (select-dotted-vars (syntax fst)) (select-dotted-vars (syntax rst)))] [item (and (identifier? (syntax item)) (dotted-var? (syntax item))) (list (syntax item))] [item '()])) (define (expand-dotted-item item) (let ([dvars (select-dotted-vars item)]) (syntax-case item () [x (identifier? (syntax x)) (syntax x)] [x (with-syntax ([(dv ...) dvars]) (syntax (map (lambda (dv ...) x) dv ...)))]))) (define (expand-quasiquote-body x) (syntax-case x (unquote unquote-splicing quasiquote) [(quasiquote . rst) (process-quasiquote x)] [(unquote item) (with-syntax ([expanded-item (process-output-action (syntax item) dotted-vars)]) (syntax (unquote expanded-item)))] [(unquote-splicing item) (with-syntax ([expanded-item (process-output-action (syntax item) dotted-vars)]) (syntax (unquote-splicing expanded-item)))] [((unquote item) dots . rst) (ellipsis? (syntax dots)) (with-syntax ([expanded-item (expand-dotted-item (process-output-action (syntax item) dotted-vars))] [expanded-rst (expand-quasiquote-body (syntax rst))]) (syntax ((unquote-splicing expanded-item) . expanded-rst)))] [(item dots . rst) (ellipsis? (syntax dots)) (with-syntax ([expanded-item (expand-dotted-item (process-output-action (syntax (quasiquote item)) dotted-vars))] [expanded-rst (expand-quasiquote-body (syntax rst))]) (syntax ((unquote-splicing expanded-item) . expanded-rst)))] [(fst . rst) (with-syntax ([expanded-fst (expand-quasiquote-body (syntax fst))] [expanded-rst (expand-quasiquote-body (syntax rst))]) (syntax (expanded-fst . expanded-rst)))] [other x])) (define (process-quasiquote x) (syntax-case x () [(quasiquote term) (with-syntax ([expanded-body (expand-quasiquote-body (syntax term))]) (syntax (quasiquote expanded-body)))] [else (sxml-match-syntax-error "bad quasiquote-form" stx x)])) (syntax-case action (quote quasiquote) [(quote . rst) action] [(quasiquote . rst) (process-quasiquote action)] [(fst . rst) (if (finite-lst? action) (with-syntax ([exp-lft (process-output-action (syntax fst) dotted-vars)] [exp-rgt (process-output-action (syntax rst) dotted-vars)]) (syntax (exp-lft . exp-rgt))) (with-syntax ([exp-lft (process-output-action (syntax fst) dotted-vars)] [exp-rgt (expand-lst (syntax rst))]) (syntax (apply exp-lft exp-rgt))))] [item action]))] [compile-element-pat (lambda (ele exp nextp fail-k pvar-lst depth cata-fun cata-defs dotted-vars) (syntax-case ele (@) [(tag (@ . attr-items) . items) (identifier? (syntax tag)) (let ([attr-exp (car (generate-temporaries (list exp)))] [body-exp (car (generate-temporaries (list exp)))]) (let-values ([(tests new-pvar-lst new-cata-defs new-dotted-vars) (compile-attr-list (syntax attr-items) (syntax items) attr-exp body-exp '() nextp fail-k pvar-lst depth cata-fun cata-defs dotted-vars)]) (values (with-syntax ([x exp] [ax attr-exp] [bx body-exp] [body tests] [fail-to fail-k]) (syntax (if (and (pair? x) (eq? 'tag (xml-element-tag x))) (let ([ax (xml-element-attributes x)] [bx (xml-element-contents x)]) body) (fail-to)))) new-pvar-lst new-cata-defs new-dotted-vars)))] [(tag . items) (identifier? (syntax tag)) (let ([body-exp (car (generate-temporaries (list exp)))]) (let-values ([(tests new-pvar-lst new-cata-defs new-dotted-vars) (compile-item-list (syntax items) body-exp nextp fail-k #t pvar-lst depth cata-fun cata-defs dotted-vars)]) (values (with-syntax ([x exp] [bx body-exp] [body tests] [fail-to fail-k]) (syntax (if (and (pair? x) (eq? 'tag (xml-element-tag x))) (let ([bx (xml-element-contents x)]) body) (fail-to)))) new-pvar-lst new-cata-defs new-dotted-vars)))]))] [compile-end-element (lambda (exp nextp fail-k pvar-lst cata-defs dotted-vars) (let-values ([(next-tests new-pvar-lst new-cata-defs new-dotted-vars) (nextp pvar-lst cata-defs dotted-vars)]) (values (with-syntax ([x exp] [body next-tests] [fail-to fail-k]) (syntax (if (null? x) body (fail-to)))) new-pvar-lst new-cata-defs new-dotted-vars)))] [compile-attr-list (lambda (attr-lst body-lst attr-exp body-exp attr-key-lst nextp fail-k pvar-lst depth cata-fun cata-defs dotted-vars) (syntax-case attr-lst (unquote ->) [(unquote var) (identifier? (syntax var)) (let-values ([(tests new-pvar-lst new-cata-defs new-dotted-vars) (compile-item-list body-lst body-exp nextp fail-k #t (add-pat-var (syntax var) pvar-lst) depth cata-fun cata-defs dotted-vars)]) (values (with-syntax ([ax attr-exp] [matched-attrs attr-key-lst] [body tests]) (syntax (let ([var (filter-attributes 'matched-attrs ax)]) body))) new-pvar-lst new-cata-defs new-dotted-vars))] [((atag [(unquote [cata -> cvar ...]) default]) . rst) (identifier? (syntax atag)) (let ([ctemp (car (generate-temporaries (syntax ([cvar ...]))))]) (let-values ([(tests new-pvar-lst new-cata-defs new-dotted-vars) (compile-attr-list (syntax rst) body-lst attr-exp body-exp (cons (syntax atag) attr-key-lst) nextp fail-k (add-pat-var ctemp pvar-lst) depth cata-fun (add-cata-def depth (syntax [cvar ...]) (syntax cata) ctemp cata-defs) dotted-vars)]) (values (with-syntax ([ax attr-exp] [ct ctemp] [body tests]) (syntax (let ([binding (match-xml-attribute 'atag ax)]) (let ([ct (if binding (cadr binding) default)]) body)))) new-pvar-lst new-cata-defs new-dotted-vars)))] [((atag [(unquote [cvar ...]) default]) . rst) (identifier? (syntax atag)) (let ([ctemp (car (generate-temporaries (syntax ([cvar ...]))))]) (if (not cata-fun) (sxml-match-syntax-error "sxml-match pattern: catamorphism not allowed in this context" stx (syntax [cvar ...]))) (let-values ([(tests new-pvar-lst new-cata-defs new-dotted-vars) (compile-attr-list (syntax rst) body-lst attr-exp body-exp (cons (syntax atag) attr-key-lst) nextp fail-k (add-pat-var ctemp pvar-lst) depth cata-fun (add-cata-def depth (syntax [cvar ...]) cata-fun ctemp cata-defs) dotted-vars)]) (values (with-syntax ([ax attr-exp] [ct ctemp] [body tests]) (syntax (let ([binding (match-xml-attribute 'atag ax)]) (let ([ct (if binding (cadr binding) default)]) body)))) new-pvar-lst new-cata-defs new-dotted-vars)))] [((atag [(unquote var) default]) . rst) (and (identifier? (syntax atag)) (identifier? (syntax var))) (let-values ([(tests new-pvar-lst new-cata-defs new-dotted-vars) (compile-attr-list (syntax rst) body-lst attr-exp body-exp (cons (syntax atag) attr-key-lst) nextp fail-k (add-pat-var (syntax var) pvar-lst) depth cata-fun cata-defs dotted-vars)]) (values (with-syntax ([ax attr-exp] [body tests]) (syntax (let ([binding (match-xml-attribute 'atag ax)]) (let ([var (if binding (cadr binding) default)]) body)))) new-pvar-lst new-cata-defs new-dotted-vars))] [((atag (unquote [cata -> cvar ...])) . rst) (identifier? (syntax atag)) (let ([ctemp (car (generate-temporaries (syntax ([cvar ...]))))]) (let-values ([(tests new-pvar-lst new-cata-defs new-dotted-vars) (compile-attr-list (syntax rst) body-lst attr-exp body-exp (cons (syntax atag) attr-key-lst) nextp fail-k (add-pat-var ctemp pvar-lst) depth cata-fun (add-cata-def depth (syntax [cvar ...]) (syntax cata) ctemp cata-defs) dotted-vars)]) (values (with-syntax ([ax attr-exp] [ct ctemp] [body tests] [fail-to fail-k]) (syntax (let ([binding (match-xml-attribute 'atag ax)]) (if binding (let ([ct (cadr binding)]) body) (fail-to))))) new-pvar-lst new-cata-defs new-dotted-vars)))] [((atag (unquote [cvar ...])) . rst) (identifier? (syntax atag)) (let ([ctemp (car (generate-temporaries (syntax ([cvar ...]))))]) (if (not cata-fun) (sxml-match-syntax-error "sxml-match pattern: catamorphism not allowed in this context" stx (syntax [cvar ...]))) (let-values ([(tests new-pvar-lst new-cata-defs new-dotted-vars) (compile-attr-list (syntax rst) body-lst attr-exp body-exp (cons (syntax atag) attr-key-lst) nextp fail-k (add-pat-var ctemp pvar-lst) depth cata-fun (add-cata-def depth (syntax [cvar ...]) cata-fun ctemp cata-defs) dotted-vars)]) (values (with-syntax ([ax attr-exp] [ct ctemp] [body tests] [fail-to fail-k]) (syntax (let ([binding (match-xml-attribute 'atag ax)]) (if binding (let ([ct (cadr binding)]) body) (fail-to))))) new-pvar-lst new-cata-defs new-dotted-vars)))] [((atag (unquote var)) . rst) (and (identifier? (syntax atag)) (identifier? (syntax var))) (let-values ([(tests new-pvar-lst new-cata-defs new-dotted-vars) (compile-attr-list (syntax rst) body-lst attr-exp body-exp (cons (syntax atag) attr-key-lst) nextp fail-k (add-pat-var (syntax var) pvar-lst) depth cata-fun cata-defs dotted-vars)]) (values (with-syntax ([ax attr-exp] [body tests] [fail-to fail-k]) (syntax (let ([binding (match-xml-attribute 'atag ax)]) (if binding (let ([var (cadr binding)]) body) (fail-to))))) new-pvar-lst new-cata-defs new-dotted-vars))] [((atag (i ...)) . rst) (identifier? (syntax atag)) (sxml-match-syntax-error "bad attribute pattern" stx (syntax (kwd (i ...))))] [((atag i) . rst) (and (identifier? (syntax atag)) (identifier? (syntax i))) (sxml-match-syntax-error "bad attribute pattern" stx (syntax (kwd i)))] [((atag literal) . rst) (and (identifier? (syntax atag)) (literal? (syntax literal))) (let-values ([(tests new-pvar-lst new-cata-defs new-dotted-vars) (compile-attr-list (syntax rst) body-lst attr-exp body-exp (cons (syntax atag) attr-key-lst) nextp fail-k pvar-lst depth cata-fun cata-defs dotted-vars)]) (values (with-syntax ([ax attr-exp] [body tests] [fail-to fail-k]) (syntax (let ([binding (match-xml-attribute 'atag ax)]) (if binding (if (equal? (cadr binding) literal) body (fail-to)) (fail-to))))) new-pvar-lst new-cata-defs new-dotted-vars))] [() (compile-item-list body-lst body-exp nextp fail-k #t pvar-lst depth cata-fun cata-defs dotted-vars)]))] [compile-item-list (lambda (lst exp nextp fail-k ellipsis-allowed? pvar-lst depth cata-fun cata-defs dotted-vars) (syntax-case lst (unquote ->) [() (compile-end-element exp nextp fail-k pvar-lst cata-defs dotted-vars)] [(unquote var) (identifier? (syntax var)) (if (not ellipsis-allowed?) (sxml-match-syntax-error "improper list pattern not allowed in this context" stx (syntax dots)) (let-values ([(next-tests new-pvar-lst new-cata-defs new-dotted-vars) (nextp (add-pat-var (syntax var) pvar-lst) cata-defs dotted-vars)]) (values (with-syntax ([x exp] [body next-tests]) (syntax (let ([var x]) body))) new-pvar-lst new-cata-defs new-dotted-vars)))] [(unquote [cata -> cvar ...]) (if (not ellipsis-allowed?) (sxml-match-syntax-error "improper list pattern not allowed in this context" stx (syntax dots)) (let ([ctemp (car (generate-temporaries (syntax ([cvar ...]))))]) (let-values ([(next-tests new-pvar-lst new-cata-defs new-dotted-vars) (nextp (add-pat-var ctemp pvar-lst) (add-cata-def depth (syntax [cvar ...]) (syntax cata) ctemp cata-defs) dotted-vars)]) (values (with-syntax ([ct ctemp] [x exp] [body next-tests]) (syntax (let ([ct x]) body))) new-pvar-lst new-cata-defs new-dotted-vars))))] [(unquote [cvar ...]) (let ([ctemp (car (generate-temporaries (syntax ([cvar ...]))))]) (if (not cata-fun) (sxml-match-syntax-error "sxml-match pattern: catamorphism not allowed in this context" stx (syntax [cvar ...]))) (let-values ([(next-tests new-pvar-lst new-cata-defs new-dotted-vars) (nextp (add-pat-var ctemp pvar-lst) (add-cata-def depth (syntax [cvar ...]) cata-fun ctemp cata-defs) dotted-vars)]) (values (with-syntax ([ct ctemp] [x exp] [body next-tests]) (syntax (let ([ct x]) body))) new-pvar-lst new-cata-defs new-dotted-vars)))] [(item dots . rst) (ellipsis? (syntax dots)) (if (not ellipsis-allowed?) (sxml-match-syntax-error "ellipses not allowed in this context" stx (syntax dots)) (compile-dotted-pattern-list (syntax item) (syntax rst) exp nextp fail-k pvar-lst depth cata-fun cata-defs dotted-vars))] [(item . rst) (compile-item (syntax item) exp (lambda (new-exp new-pvar-lst new-cata-defs new-dotted-vars) (compile-item-list (syntax rst) new-exp nextp fail-k ellipsis-allowed? new-pvar-lst depth cata-fun new-cata-defs new-dotted-vars)) fail-k pvar-lst depth cata-fun cata-defs dotted-vars)]))] [compile-dotted-pattern-list (lambda (item tail exp nextp fail-k pvar-lst depth cata-fun cata-defs dotted-vars) (let-values ([(tail-tests tail-pvar-lst tail-cata-defs tail-dotted-vars) (compile-item-list tail (syntax lst) (lambda (new-pvar-lst new-cata-defs new-dotted-vars) (values (with-syntax ([(npv ...) new-pvar-lst]) (syntax (values #t npv ...))) new-pvar-lst new-cata-defs new-dotted-vars)) (syntax fail) #f '() depth '() '() dotted-vars)] [(item-tests item-pvar-lst item-cata-defs item-dotted-vars) (compile-item item (syntax lst) (lambda (new-exp new-pvar-lst new-cata-defs new-dotted-vars) (values (with-syntax ([(npv ...) new-pvar-lst]) (syntax (values #t (cdr lst) npv ...))) new-pvar-lst new-cata-defs new-dotted-vars)) (syntax fail) '() (+ 1 depth) cata-fun '() dotted-vars)]) ; more here: check for duplicate pat-vars, cata-defs (let-values ([(final-tests final-pvar-lst final-cata-defs final-dotted-vars) (nextp (append tail-pvar-lst item-pvar-lst pvar-lst) (append tail-cata-defs item-cata-defs cata-defs) (append item-pvar-lst (cata-defs->pvar-lst item-cata-defs) tail-dotted-vars dotted-vars))]) (let ([temp-item-pvar-lst (generate-temporaries item-pvar-lst)]) (values (with-syntax ([x exp] [fail-to fail-k] [tail-body tail-tests] [item-body item-tests] [final-body final-tests] [(ipv ...) item-pvar-lst] [(gpv ...) temp-item-pvar-lst] [(tpv ...) tail-pvar-lst] [(item-void ...) (map (lambda (i) (syntax (void))) item-pvar-lst)] [(tail-void ...) (map (lambda (i) (syntax (void))) tail-pvar-lst)] [(item-null ...) (map (lambda (i) (syntax '())) item-pvar-lst)] [(item-cons ...) (map (lambda (a b) (with-syntax ([xa a] [xb b]) (syntax (cons xa xb)))) item-pvar-lst temp-item-pvar-lst)]) (syntax (letrec ([match-tail (lambda (lst fail) tail-body)] [match-item (lambda (lst) (let ([fail (lambda () (values #f lst item-void ...))]) item-body))] [match-dotted (lambda (x) (let-values ([(tail-res tpv ...) (match-tail x (lambda () (values #f tail-void ...)))]) (if tail-res (values item-null ... tpv ...) (let-values ([(res new-x ipv ...) (match-item x)]) (if res (let-values ([(gpv ... tpv ...) (match-dotted new-x)]) (values item-cons ... tpv ...)) (let-values ([(last-tail-res tpv ...) (match-tail x fail-to)]) (values item-null ... tpv ...)))))))]) (let-values ([(ipv ... tpv ...) (match-dotted x)]) final-body)))) final-pvar-lst final-cata-defs final-dotted-vars)))))] [compile-item (lambda (item exp nextp fail-k pvar-lst depth cata-fun cata-defs dotted-vars) (syntax-case item (unquote ->) ; normal pattern var [(unquote var) (identifier? (syntax var)) (let ([new-exp (car (generate-temporaries (list exp)))]) (let-values ([(next-tests new-pvar-lst new-cata-defs new-dotted-vars) (nextp new-exp (add-pat-var (syntax var) pvar-lst) cata-defs dotted-vars)]) (values (with-syntax ([x exp] [nx new-exp] [body next-tests] [fail-to fail-k]) (syntax (if (pair? x) (let ([nx (cdr x)] [var (car x)]) body) (fail-to)))) new-pvar-lst new-cata-defs new-dotted-vars)))] ; named catamorphism [(unquote [cata -> cvar ...]) (let ([new-exp (car (generate-temporaries (list exp)))] [ctemp (car (generate-temporaries (syntax ([cvar ...]))))]) (let-values ([(next-tests new-pvar-lst new-cata-defs new-dotted-vars) (nextp new-exp (add-pat-var ctemp pvar-lst) (add-cata-def depth (syntax [cvar ...]) (syntax cata) ctemp cata-defs) dotted-vars)]) (values (with-syntax ([x exp] [nx new-exp] [ct ctemp] [body next-tests] [fail-to fail-k]) (syntax (if (pair? x) (let ([nx (cdr x)] [ct (car x)]) body) (fail-to)))) new-pvar-lst new-cata-defs new-dotted-vars)))] ; basic catamorphism [(unquote [cvar ...]) (let ([new-exp (car (generate-temporaries (list exp)))] [ctemp (car (generate-temporaries (syntax ([cvar ...]))))]) (if (not cata-fun) (sxml-match-syntax-error "sxml-match pattern: catamorphism not allowed in this context" stx (syntax [cvar ...]))) (let-values ([(next-tests new-pvar-lst new-cata-defs new-dotted-vars) (nextp new-exp (add-pat-var ctemp pvar-lst) (add-cata-def depth (syntax [cvar ...]) cata-fun ctemp cata-defs) dotted-vars)]) (values (with-syntax ([x exp] [nx new-exp] [ct ctemp] [body next-tests] [fail-to fail-k]) (syntax (if (pair? x) (let ([nx (cdr x)] [ct (car x)]) body) (fail-to)))) new-pvar-lst new-cata-defs new-dotted-vars)))] [(tag item ...) (identifier? (syntax tag)) (let ([new-exp (car (generate-temporaries (list exp)))]) (let-values ([(after-tests after-pvar-lst after-cata-defs after-dotted-vars) (compile-element-pat (syntax (tag item ...)) (with-syntax ([x exp]) (syntax (car x))) (lambda (more-pvar-lst more-cata-defs more-dotted-vars) (let-values ([(next-tests new-pvar-lst new-cata-defs new-dotted-vars) (nextp new-exp more-pvar-lst more-cata-defs more-dotted-vars)]) (values (with-syntax ([x exp] [nx new-exp] [body next-tests]) (syntax (let ([nx (cdr x)]) body))) new-pvar-lst new-cata-defs new-dotted-vars))) fail-k pvar-lst depth cata-fun cata-defs dotted-vars)]) ; test that we are not at the end of an item-list, BEFORE ; entering tests for the element pattern (against the 'car' of the item-list) (values (with-syntax ([x exp] [body after-tests] [fail-to fail-k]) (syntax (if (pair? x) body (fail-to)))) after-pvar-lst after-cata-defs after-dotted-vars)))] [(i ...) (sxml-match-syntax-error "bad pattern syntax (not an element pattern)" stx (syntax (i ...)))] [i (identifier? (syntax i)) (sxml-match-syntax-error "bad pattern syntax (symbol not allowed in this context)" stx (syntax i))] [literal (literal? (syntax literal)) (let ([new-exp (car (generate-temporaries (list exp)))]) (let-values ([(next-tests new-pvar-lst new-cata-defs new-dotted-vars) (nextp new-exp pvar-lst cata-defs dotted-vars)]) (values (with-syntax ([x exp] [nx new-exp] [body next-tests] [fail-to fail-k]) (syntax (if (and (pair? x) (equal? literal (car x))) (let ([nx (cdr x)]) body) (fail-to)))) new-pvar-lst new-cata-defs new-dotted-vars)))]))]) (let ([fail-k (syntax failure)]) (syntax-case stx (unquote guard ->) [(compile-clause ((unquote var) (guard gexp ...) action0 action ...) exp cata-fun fail-exp) (identifier? (syntax var)) (syntax (let ([var exp]) (if (and gexp ...) (begin action0 action ...) (fail-exp))))] [(compile-clause ((unquote [cata -> cvar ...]) (guard gexp ...) action0 action ...) exp cata-fun fail-exp) (syntax (if (and gexp ...) (let-values ([(cvar ...) (cata exp)]) (begin action0 action ...)) (fail-exp)))] [(compile-clause ((unquote [cvar ...]) (guard gexp ...) action0 action ...) exp cata-fun fail-exp) (if (not (extract-cata-fun (syntax cata-fun))) (sxml-match-syntax-error "sxml-match pattern: catamorphism not allowed in this context" stx (syntax [cvar ...])) (syntax (if (and gexp ...) (let-values ([(cvar ...) (cata-fun exp)]) (begin action0 action ...)) (fail-exp))))] [(compile-clause ((unquote var) action0 action ...) exp cata-fun fail-exp) (identifier? (syntax var)) (syntax (let ([var exp]) action0 action ...))] [(compile-clause ((unquote [cata -> cvar ...]) action0 action ...) exp cata-fun fail-exp) (syntax (let-values ([(cvar ...) (cata exp)]) action0 action ...))] [(compile-clause ((unquote [cvar ...]) action0 action ...) exp cata-fun fail-exp) (if (not (extract-cata-fun (syntax cata-fun))) (sxml-match-syntax-error "sxml-match pattern: catamorphism not allowed in this context" stx (syntax [cvar ...])) (syntax (let-values ([(cvar ...) (cata-fun exp)]) action0 action ...)))] [(compile-clause ((lst . rst) (guard gexp ...) action0 action ...) exp cata-fun fail-exp) (and (identifier? (syntax lst)) (eq? 'list (syntax-object->datum (syntax lst)))) (let-values ([(result pvar-lst cata-defs dotted-vars) (compile-item-list (syntax rst) (syntax exp) (lambda (new-pvar-lst new-cata-defs new-dotted-vars) (values (with-syntax ([exp-body (process-cata-defs new-cata-defs (process-output-action (syntax (begin action0 action ...)) new-dotted-vars))] [fail-to fail-k]) (syntax (if (and gexp ...) exp-body (fail-to)))) new-pvar-lst new-cata-defs new-dotted-vars)) fail-k #t '() 0 (extract-cata-fun (syntax cata-fun)) '() '())]) (with-syntax ([fail-to fail-k] [body result]) (syntax (let ([fail-to fail-exp]) (if (nodeset? exp) body (fail-to))))))] [(compile-clause ((lst . rst) action0 action ...) exp cata-fun fail-exp) (and (identifier? (syntax lst)) (eq? 'list (syntax-object->datum (syntax lst)))) (let-values ([(result pvar-lst cata-defs dotted-vars) (compile-item-list (syntax rst) (syntax exp) (lambda (new-pvar-lst new-cata-defs new-dotted-vars) (values (process-cata-defs new-cata-defs (process-output-action (syntax (begin action0 action ...)) new-dotted-vars)) new-pvar-lst new-cata-defs new-dotted-vars)) fail-k #t '() 0 (extract-cata-fun (syntax cata-fun)) '() '())]) (with-syntax ([body result] [fail-to fail-k]) (syntax (let ([fail-to fail-exp]) (if (nodeset? exp) body (fail-to))))))] [(compile-clause ((fst . rst) (guard gexp ...) action0 action ...) exp cata-fun fail-exp) (identifier? (syntax fst)) (let-values ([(result pvar-lst cata-defs dotted-vars) (compile-element-pat (syntax (fst . rst)) (syntax exp) (lambda (new-pvar-lst new-cata-defs new-dotted-vars) (values (with-syntax ([body (process-cata-defs new-cata-defs (process-output-action (syntax (begin action0 action ...)) new-dotted-vars))] [fail-to fail-k]) (syntax (if (and gexp ...) body (fail-to)))) new-pvar-lst new-cata-defs new-dotted-vars)) fail-k '() 0 (extract-cata-fun (syntax cata-fun)) '() '())]) (with-syntax ([fail-to fail-k] [body result]) (syntax (let ([fail-to fail-exp]) body))))] [(compile-clause ((fst . rst) action0 action ...) exp cata-fun fail-exp) (identifier? (syntax fst)) (let-values ([(result pvar-lst cata-defs dotted-vars) (compile-element-pat (syntax (fst . rst)) (syntax exp) (lambda (new-pvar-lst new-cata-defs new-dotted-vars) (values (process-cata-defs new-cata-defs (process-output-action (syntax (begin action0 action ...)) new-dotted-vars)) new-pvar-lst new-cata-defs new-dotted-vars)) fail-k '() 0 (extract-cata-fun (syntax cata-fun)) '() '())]) (with-syntax ([fail-to fail-k] [body result]) (syntax (let ([fail-to fail-exp]) body))))] [(compile-clause ((i ...) (guard gexp ...) action0 action ...) exp cata-fun fail-exp) (sxml-match-syntax-error "bad pattern syntax (not an element pattern)" stx (syntax (i ...)))] [(compile-clause ((i ...) action0 action ...) exp cata-fun fail-exp) (sxml-match-syntax-error "bad pattern syntax (not an element pattern)" stx (syntax (i ...)))] [(compile-clause (pat (guard gexp ...) action0 action ...) exp cata-fun fail-exp) (identifier? (syntax pat)) (sxml-match-syntax-error "bad pattern syntax (symbol not allowed in this context)" stx (syntax pat))] [(compile-clause (pat action0 action ...) exp cata-fun fail-exp) (identifier? (syntax pat)) (sxml-match-syntax-error "bad pattern syntax (symbol not allowed in this context)" stx (syntax pat))] [(compile-clause (literal (guard gexp ...) action0 action ...) exp cata-fun fail-exp) (literal? (syntax literal)) (syntax (if (and (equal? literal exp) (and gexp ...)) (begin action0 action ...) (fail-exp)))] [(compile-clause (literal action0 action ...) exp cata-fun fail-exp) (literal? (syntax literal)) (syntax (if (equal? literal exp) (begin action0 action ...) (fail-exp)))]))))) (define-syntax sxml-match1 (syntax-rules () [(sxml-match1 exp cata-fun clause) (compile-clause clause exp cata-fun (lambda () (error 'sxml-match "no matching clause found")))] [(sxml-match1 exp cata-fun clause0 clause ...) (let/ec escape (compile-clause clause0 exp cata-fun (lambda () (call-with-values (lambda () (sxml-match1 exp cata-fun clause ...)) escape))))])) (define-syntax sxml-match (syntax-rules () ((sxml-match val clause0 clause ...) (letrec ([cfun (lambda (exp) (sxml-match1 exp cfun clause0 clause ...))]) (cfun val))))) (define-syntax sxml-match-let1 (syntax-rules () [(sxml-match-let1 syntag synform () body0 body ...) (let () body0 body ...)] [(sxml-match-let1 syntag synform ([pat exp]) body0 body ...) (compile-clause (pat (let () body0 body ...)) exp #f (lambda () (error 'syntag "could not match pattern ~s" 'pat)))] [(sxml-match-let1 syntag synform ([pat0 exp0] [pat exp] ...) body0 body ...) (compile-clause (pat0 (sxml-match-let1 syntag synform ([pat exp] ...) body0 body ...)) exp0 #f (lambda () (error 'syntag "could not match pattern ~s" 'pat0)))])) (define-syntax sxml-match-let-help (lambda (stx) (syntax-case stx () [(sxml-match-let-help syntag synform ([pat exp] ...) body0 body ...) (with-syntax ([(temp-name ...) (generate-temporaries (syntax (exp ...)))]) (syntax (let ([temp-name exp] ...) (sxml-match-let1 syntag synform ([pat temp-name] ...) body0 body ...))))]))) (define-syntax sxml-match-let (lambda (stx) (syntax-case stx () [(sxml-match-let ([pat exp] ...) body0 body ...) (with-syntax ([synform stx]) (syntax (sxml-match-let-help sxml-match-let synform ([pat exp] ...) body0 body ...)))]))) (define-syntax sxml-match-let* (lambda (stx) (syntax-case stx () [(sxml-match-let* () body0 body ...) (syntax (let () body0 body ...))] [(sxml-match-let* ([pat0 exp0] [pat exp] ...) body0 body ...) (with-syntax ([synform stx]) (syntax (sxml-match-let-help sxml-match-let* synform ([pat0 exp0]) (sxml-match-let* ([pat exp] ...) body0 body ...))))]))) ) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������sxml/ssax.scm���������������������������������������������������������������������������������������0000644�����������������00000025403�15253246142�0007221 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;;;; (sxml ssax) -- the SSAX parser ;;;; ;;;; Copyright (C) 2009, 2010,2012,2013 Free Software Foundation, Inc. ;;;; Modified 2004 by Andy Wingo <wingo at pobox dot com>. ;;;; Written 2001,2002,2003,2004 by Oleg Kiselyov <oleg at pobox dot com> as SSAX.scm. ;;;; ;;;; This library 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. ;;;; ;;;; This library 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 library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; ;;; Commentary: ;; ;@subheading Functional XML parsing framework ;@subsubheading SAX/DOM and SXML parsers with support for XML Namespaces and validation ; ; This is a package of low-to-high level lexing and parsing procedures ; that can be combined to yield a SAX, a DOM, a validating parser, or ; a parser intended for a particular document type. The procedures in ; the package can be used separately to tokenize or parse various ; pieces of XML documents. The package supports XML Namespaces, ; internal and external parsed entities, user-controlled handling of ; whitespace, and validation. This module therefore is intended to be ; a framework, a set of "Lego blocks" you can use to build a parser ; following any discipline and performing validation to any degree. As ; an example of the parser construction, this file includes a ; semi-validating SXML parser. ; The present XML framework has a "sequential" feel of SAX yet a ; "functional style" of DOM. Like a SAX parser, the framework scans the ; document only once and permits incremental processing. An application ; that handles document elements in order can run as efficiently as ; possible. @emph{Unlike} a SAX parser, the framework does not require ; an application register stateful callbacks and surrender control to ; the parser. Rather, it is the application that can drive the framework ; -- calling its functions to get the current lexical or syntax element. ; These functions do not maintain or mutate any state save the input ; port. Therefore, the framework permits parsing of XML in a pure ; functional style, with the input port being a monad (or a linear, ; read-once parameter). ; Besides the @var{port}, there is another monad -- @var{seed}. Most of ; the middle- and high-level parsers are single-threaded through the ; @var{seed}. The functions of this framework do not process or affect ; the @var{seed} in any way: they simply pass it around as an instance ; of an opaque datatype. User functions, on the other hand, can use the ; seed to maintain user's state, to accumulate parsing results, etc. A ; user can freely mix his own functions with those of the framework. On ; the other hand, the user may wish to instantiate a high-level parser: ; @code{SSAX:make-elem-parser} or @code{SSAX:make-parser}. In the latter ; case, the user must provide functions of specific signatures, which ; are called at predictable moments during the parsing: to handle ; character data, element data, or processing instructions (PI). The ; functions are always given the @var{seed}, among other parameters, and ; must return the new @var{seed}. ; From a functional point of view, XML parsing is a combined ; pre-post-order traversal of a "tree" that is the XML document ; itself. This down-and-up traversal tells the user about an element ; when its start tag is encountered. The user is notified about the ; element once more, after all element's children have been ; handled. The process of XML parsing therefore is a fold over the ; raw XML document. Unlike a fold over trees defined in [1], the ; parser is necessarily single-threaded -- obviously as elements ; in a text XML document are laid down sequentially. The parser ; therefore is a tree fold that has been transformed to accept an ; accumulating parameter [1,2]. ; Formally, the denotational semantics of the parser can be expressed ; as ;@smallexample ; parser:: (Start-tag -> Seed -> Seed) -> ; (Start-tag -> Seed -> Seed -> Seed) -> ; (Char-Data -> Seed -> Seed) -> ; XML-text-fragment -> Seed -> Seed ; parser fdown fup fchar "<elem attrs> content </elem>" seed ; = fup "<elem attrs>" seed ; (parser fdown fup fchar "content" (fdown "<elem attrs>" seed)) ; ; parser fdown fup fchar "char-data content" seed ; = parser fdown fup fchar "content" (fchar "char-data" seed) ; ; parser fdown fup fchar "elem-content content" seed ; = parser fdown fup fchar "content" ( ; parser fdown fup fchar "elem-content" seed) ;@end smallexample ; Compare the last two equations with the left fold ;@smallexample ; fold-left kons elem:list seed = fold-left kons list (kons elem seed) ;@end smallexample ; The real parser created by @code{SSAX:make-parser} is slightly more ; complicated, to account for processing instructions, entity ; references, namespaces, processing of document type declaration, etc. ; The XML standard document referred to in this module is ; @uref{http://www.w3.org/TR/1998/REC-xml-19980210.html} ; ; The present file also defines a procedure that parses the text of an ; XML document or of a separate element into SXML, an S-expression-based ; model of an XML Information Set. SXML is also an Abstract Syntax Tree ; of an XML document. SXML is similar but not identical to DOM; SXML is ; particularly suitable for Scheme-based XML/HTML authoring, SXPath ; queries, and tree transformations. See SXML.html for more details. ; SXML is a term implementation of evaluation of the XML document [3]. ; The other implementation is context-passing. ; The present frameworks fully supports the XML Namespaces Recommendation: ; @uref{http://www.w3.org/TR/REC-xml-names/} ; Other links: ;@table @asis ;@item [1] ; Jeremy Gibbons, Geraint Jones, "The Under-appreciated Unfold," ; Proc. ICFP'98, 1998, pp. 273-279. ;@item [2] ; Richard S. Bird, The promotion and accumulation strategies in ; transformational programming, ACM Trans. Progr. Lang. Systems, ; 6(4):487-504, October 1984. ;@item [3] ; Ralf Hinze, "Deriving Backtracking Monad Transformers," ; Functional Pearl. Proc ICFP'00, pp. 186-197. ;@end table ;; ;;; Code: (define-module (sxml ssax) #:use-module (sxml ssax input-parse) #:use-module (srfi srfi-1) #:use-module (srfi srfi-13) #:export (current-ssax-error-port with-ssax-error-to-port xml-token? xml-token-kind xml-token-head make-empty-attlist attlist-add attlist-null? attlist-remove-top attlist->alist attlist-fold define-parsed-entity! reset-parsed-entity-definitions! ssax:uri-string->symbol ssax:skip-internal-dtd ssax:read-pi-body-as-string ssax:reverse-collect-str-drop-ws ssax:read-markup-token ssax:read-cdata-body ssax:read-char-ref ssax:read-attributes ssax:complete-start-tag ssax:read-external-id ssax:read-char-data ssax:xml->sxml ssax:make-parser ssax:make-pi-parser ssax:make-elem-parser)) (define (parser-error port message . rest) (apply throw 'parser-error port message rest)) (define ascii->char integer->char) (define char->ascii char->integer) (define current-ssax-error-port (make-parameter (current-error-port))) (define *current-ssax-error-port* (parameter-fluid current-ssax-error-port)) (define (with-ssax-error-to-port port thunk) (parameterize ((current-ssax-error-port port)) (thunk))) (define (ssax:warn port . args) (with-output-to-port (current-ssax-error-port) (lambda () (display ";;; SSAX warning: ") (for-each display args) (newline)))) (define (ucscode->string codepoint) (string (integer->char codepoint))) (define char-newline #\newline) (define char-return #\return) (define char-tab #\tab) (define nl "\n") ;; This isn't a great API, but a more proper fix will involve hacking ;; SSAX. (define (reset-parsed-entity-definitions!) "Restore the set of parsed entity definitions to its initial state." (set! ssax:predefined-parsed-entities '((amp . "&") (lt . "<") (gt . ">") (apos . "'") (quot . "\"")))) (define (define-parsed-entity! entity str) "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." (set! ssax:predefined-parsed-entities (acons entity str ssax:predefined-parsed-entities))) ;; Execute a sequence of forms and return the result of the _first_ one. ;; Like PROG1 in Lisp. Typically used to evaluate one or more forms with ;; side effects and return a value that must be computed before some or ;; all of the side effects happen. (define-syntax begin0 (syntax-rules () ((begin0 form form1 ... ) (let ((val form)) form1 ... val)))) ; Like let* but allowing for multiple-value bindings (define-syntax let*-values (syntax-rules () ((let*-values () . bodies) (begin . bodies)) ((let*-values (((var) initializer) . rest) . bodies) (let ((var initializer)) ; a single var optimization (let*-values rest . bodies))) ((let*-values ((vars initializer) . rest) . bodies) (call-with-values (lambda () initializer) ; the most generic case (lambda vars (let*-values rest . bodies)))))) ;; needed for some dumb reason (define inc 1+) (define dec 1-) (define-syntax include-from-path/filtered (lambda (x) (define (read-filtered accept-list file) (with-input-from-file (%search-load-path file) (lambda () (let loop ((sexp (read)) (out '())) (cond ((eof-object? sexp) (reverse out)) ((and (pair? sexp) (memq (car sexp) accept-list)) (loop (read) (cons sexp out))) (else (loop (read) out))))))) (syntax-case x () ((_ accept-list file) (with-syntax (((exp ...) (datum->syntax x (read-filtered (syntax->datum #'accept-list) (syntax->datum #'file))))) #'(begin exp ...)))))) (include-from-path "sxml/upstream/assert.scm") (include-from-path/filtered (define define-syntax ssax:define-labeled-arg-macro) "sxml/upstream/SSAX.scm") �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������sxml/upstream/SXPath-old.scm������������������������������������������������������������������������0000644�����������������00000121450�15253246142�0012025 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������; XML processing in Scheme ; SXPath -- SXML Query Language ; ; SXPath is a query language for SXML, an instance of XML Information ; set (Infoset) in the form of s-expressions. See SSAX.scm for the ; definition of SXML and more details. SXPath is also a translation into ; Scheme of an XML Path Language, XPath: ; http://www.w3.org/TR/xpath ; XPath and SXPath describe means of selecting a set of Infoset's items ; or their properties. ; ; To facilitate queries, XPath maps the XML Infoset into an explicit ; tree, and introduces important notions of a location path and a ; current, context node. A location path denotes a selection of a set of ; nodes relative to a context node. Any XPath tree has a distinguished, ; root node -- which serves as the context node for absolute location ; paths. Location path is recursively defined as a location step joined ; with a location path. A location step is a simple query of the ; database relative to a context node. A step may include expressions ; that further filter the selected set. Each node in the resulting set ; is used as a context node for the adjoining location path. The result ; of the step is a union of the sets returned by the latter location ; paths. ; ; The SXML representation of the XML Infoset (see SSAX.scm) is rather ; suitable for querying as it is. Bowing to the XPath specification, ; we will refer to SXML information items as 'Nodes': ; <Node> ::= <Element> | <attributes-coll> | <attrib> ; | "text string" | <PI> ; This production can also be described as ; <Node> ::= (name . <Nodeset>) | "text string" ; An (ordered) set of nodes is just a list of the constituent nodes: ; <Nodeset> ::= (<Node> ...) ; Nodesets, and Nodes other than text strings are both lists. A ; <Nodeset> however is either an empty list, or a list whose head is not ; a symbol. A symbol at the head of a node is either an XML name (in ; which case it's a tag of an XML element), or an administrative name ; such as '@'. This uniform list representation makes processing rather ; simple and elegant, while avoiding confusion. The multi-branch tree ; structure formed by the mutually-recursive datatypes <Node> and ; <Nodeset> lends itself well to processing by functional languages. ; ; A location path is in fact a composite query over an XPath tree or ; its branch. A singe step is a combination of a projection, selection ; or a transitive closure. Multiple steps are combined via join and ; union operations. This insight allows us to _elegantly_ implement ; XPath as a sequence of projection and filtering primitives -- ; converters -- joined by _combinators_. Each converter takes a node ; and returns a nodeset which is the result of the corresponding query ; relative to that node. A converter can also be called on a set of ; nodes. In that case it returns a union of the corresponding queries over ; each node in the set. The union is easily implemented as a list ; append operation as all nodes in a SXML tree are considered ; distinct, by XPath conventions. We also preserve the order of the ; members in the union. Query combinators are high-order functions: ; they take converter(s) (which is a Node|Nodeset -> Nodeset function) ; and compose or otherwise combine them. We will be concerned with ; only relative location paths [XPath]: an absolute location path is a ; relative path applied to the root node. ; ; Similarly to XPath, SXPath defines full and abbreviated notations ; for location paths. In both cases, the abbreviated notation can be ; mechanically expanded into the full form by simple rewriting ; rules. In case of SXPath the corresponding rules are given as ; comments to a sxpath function, below. The regression test suite at ; the end of this file shows a representative sample of SXPaths in ; both notations, juxtaposed with the corresponding XPath ; expressions. Most of the samples are borrowed literally from the ; XPath specification, while the others are adjusted for our running ; example, tree1. ; ; To do: ; Rename filter to node-filter or ns-filter ; Use ;=== for chapters, ;--- for sections, and ;^^^ for end sections ; ; $Id: SXPath-old.scm,v 1.4 2004/07/07 16:02:31 sperber Exp $ ; See http://pobox.com/~oleg/ftp/Scheme/myenv.scm ; See http://pobox.com/~oleg/ftp/Scheme/myenv-scm.scm ; See http://pobox.com/~oleg/ftp/Scheme/myenv-bigloo.scm ;(module SXPath ; (include "myenv-bigloo.scm")) ; For use with Bigloo 2.2b ;(load "myenv-scm.scm") ; For use with SCM v5d2 ;(include "myenv.scm") ; For use with Gambit-C 3.0 (define (nodeset? x) (or (and (pair? x) (not (symbol? (car x)))) (null? x))) ;------------------------- ; Basic converters and applicators ; A converter is a function ; type Converter = Node|Nodeset -> Nodeset ; A converter can also play a role of a predicate: in that case, if a ; converter, applied to a node or a nodeset, yields a non-empty ; nodeset, the converter-predicate is deemed satisfied. Throughout ; this file a nil nodeset is equivalent to #f in denoting a failure. ; The following function implements a 'Node test' as defined in ; Sec. 2.3 of XPath document. A node test is one of the components of a ; location step. It is also a converter-predicate in SXPath. ; ; The function node-typeof? takes a type criterion and returns a function, ; which, when applied to a node, will tell if the node satisfies ; the test. ; node-typeof? :: Crit -> Node -> Boolean ; ; The criterion 'crit' is a symbol, one of the following: ; id - tests if the Node has the right name (id) ; @ - tests if the Node is an <attributes-coll> ; * - tests if the Node is an <Element> ; *text* - tests if the Node is a text node ; *PI* - tests if the Node is a PI node ; *any* - #t for any type of Node (define (node-typeof? crit) (lambda (node) (case crit ((*) (and (pair? node) (not (memq (car node) '(@ *PI*))))) ((*any*) #t) ((*text*) (string? node)) (else (and (pair? node) (eq? crit (car node)))) ))) ; Curried equivalence converter-predicates (define (node-eq? other) (lambda (node) (eq? other node))) (define (node-equal? other) (lambda (node) (equal? other node))) ; node-pos:: N -> Nodeset -> Nodeset, or ; node-pos:: N -> Converter ; Select the N'th element of a Nodeset and return as a singular Nodeset; ; Return an empty nodeset if the Nth element does not exist. ; ((node-pos 1) Nodeset) selects the node at the head of the Nodeset, ; if exists; ((node-pos 2) Nodeset) selects the Node after that, if ; exists. ; N can also be a negative number: in that case the node is picked from ; the tail of the list. ; ((node-pos -1) Nodeset) selects the last node of a non-empty nodeset; ; ((node-pos -2) Nodeset) selects the last but one node, if exists. (define (node-pos n) (lambda (nodeset) (cond ((not (nodeset? nodeset)) '()) ((null? nodeset) nodeset) ((eqv? n 1) (list (car nodeset))) ((negative? n) ((node-pos (+ n 1 (length nodeset))) nodeset)) (else (assert (positive? n)) ((node-pos (dec n)) (cdr nodeset)))))) ; filter:: Converter -> Converter ; A filter applicator, which introduces a filtering context. The argument ; converter is considered a predicate, with either #f or nil result meaning ; failure. (define (filter pred?) (lambda (lst) ; a nodeset or a node (will be converted to a singleton nset) (let loop ((lst (if (nodeset? lst) lst (list lst))) (res '())) (if (null? lst) (reverse res) (let ((pred-result (pred? (car lst)))) (loop (cdr lst) (if (and pred-result (not (null? pred-result))) (cons (car lst) res) res))))))) ; take-until:: Converter -> Converter, or ; take-until:: Pred -> Node|Nodeset -> Nodeset ; Given a converter-predicate and a nodeset, apply the predicate to ; each element of the nodeset, until the predicate yields anything but #f or ; nil. Return the elements of the input nodeset that have been processed ; till that moment (that is, which fail the predicate). ; take-until is a variation of the filter above: take-until passes ; elements of an ordered input set till (but not including) the first ; element that satisfies the predicate. ; The nodeset returned by ((take-until (not pred)) nset) is a subset -- ; to be more precise, a prefix -- of the nodeset returned by ; ((filter pred) nset) (define (take-until pred?) (lambda (lst) ; a nodeset or a node (will be converted to a singleton nset) (let loop ((lst (if (nodeset? lst) lst (list lst)))) (if (null? lst) lst (let ((pred-result (pred? (car lst)))) (if (and pred-result (not (null? pred-result))) '() (cons (car lst) (loop (cdr lst))))) )))) ; take-after:: Converter -> Converter, or ; take-after:: Pred -> Node|Nodeset -> Nodeset ; Given a converter-predicate and a nodeset, apply the predicate to ; each element of the nodeset, until the predicate yields anything but #f or ; nil. Return the elements of the input nodeset that have not been processed: ; that is, return the elements of the input nodeset that follow the first ; element that satisfied the predicate. ; take-after along with take-until partition an input nodeset into three ; parts: the first element that satisfies a predicate, all preceding ; elements and all following elements. (define (take-after pred?) (lambda (lst) ; a nodeset or a node (will be converted to a singleton nset) (let loop ((lst (if (nodeset? lst) lst (list lst)))) (if (null? lst) lst (let ((pred-result (pred? (car lst)))) (if (and pred-result (not (null? pred-result))) (cdr lst) (loop (cdr lst)))) )))) ; Apply proc to each element of lst and return the list of results. ; if proc returns a nodeset, splice it into the result ; ; From another point of view, map-union is a function Converter->Converter, ; which places an argument-converter in a joining context. (define (map-union proc lst) (if (null? lst) lst (let ((proc-res (proc (car lst)))) ((if (nodeset? proc-res) append cons) proc-res (map-union proc (cdr lst)))))) ; node-reverse :: Converter, or ; node-reverse:: Node|Nodeset -> Nodeset ; Reverses the order of nodes in the nodeset ; This basic converter is needed to implement a reverse document order ; (see the XPath Recommendation). (define node-reverse (lambda (node-or-nodeset) (if (not (nodeset? node-or-nodeset)) (list node-or-nodeset) (reverse node-or-nodeset)))) ; node-trace:: String -> Converter ; (node-trace title) is an identity converter. In addition it prints out ; a node or nodeset it is applied to, prefixed with the 'title'. ; This converter is very useful for debugging. (define (node-trace title) (lambda (node-or-nodeset) (cout nl "-->") (display title) (display " :") (pretty-print node-or-nodeset) node-or-nodeset)) ;------------------------- ; Converter combinators ; ; Combinators are higher-order functions that transmogrify a converter ; or glue a sequence of converters into a single, non-trivial ; converter. The goal is to arrive at converters that correspond to ; XPath location paths. ; ; From a different point of view, a combinator is a fixed, named ; _pattern_ of applying converters. Given below is a complete set of ; such patterns that together implement XPath location path ; specification. As it turns out, all these combinators can be built ; from a small number of basic blocks: regular functional composition, ; map-union and filter applicators, and the nodeset union. ; select-kids:: Pred -> Node -> Nodeset ; Given a Node, return an (ordered) subset its children that satisfy ; the Pred (a converter, actually) ; select-kids:: Pred -> Nodeset -> Nodeset ; The same as above, but select among children of all the nodes in ; the Nodeset ; ; More succinctly, the signature of this function is ; select-kids:: Converter -> Converter (define (select-kids test-pred?) (lambda (node) ; node or node-set (cond ((null? node) node) ((not (pair? node)) '()) ; No children ((symbol? (car node)) ((filter test-pred?) (cdr node))) ; it's a single node (else (map-union (select-kids test-pred?) node))))) ; node-self:: Pred -> Node -> Nodeset, or ; node-self:: Converter -> Converter ; Similar to select-kids but apply to the Node itself rather ; than to its children. The resulting Nodeset will contain either one ; component, or will be empty (if the Node failed the Pred). (define node-self filter) ; node-join:: [LocPath] -> Node|Nodeset -> Nodeset, or ; node-join:: [Converter] -> Converter ; join the sequence of location steps or paths as described ; in the title comments above. (define (node-join . selectors) (lambda (nodeset) ; Nodeset or node (let loop ((nodeset nodeset) (selectors selectors)) (if (null? selectors) nodeset (loop (if (nodeset? nodeset) (map-union (car selectors) nodeset) ((car selectors) nodeset)) (cdr selectors)))))) ; node-reduce:: [LocPath] -> Node|Nodeset -> Nodeset, or ; node-reduce:: [Converter] -> Converter ; A regular functional composition of converters. ; From a different point of view, ; ((apply node-reduce converters) nodeset) ; is equivalent to ; (foldl apply nodeset converters) ; i.e., folding, or reducing, a list of converters with the nodeset ; as a seed. (define (node-reduce . converters) (lambda (nodeset) ; Nodeset or node (let loop ((nodeset nodeset) (converters converters)) (if (null? converters) nodeset (loop ((car converters) nodeset) (cdr converters)))))) ; node-or:: [Converter] -> Converter ; This combinator applies all converters to a given node and ; produces the union of their results. ; This combinator corresponds to a union, '|' operation for XPath ; location paths. ; (define (node-or . converters) ; (lambda (node-or-nodeset) ; (if (null? converters) node-or-nodeset ; (append ; ((car converters) node-or-nodeset) ; ((apply node-or (cdr converters)) node-or-nodeset))))) ; More optimal implementation follows (define (node-or . converters) (lambda (node-or-nodeset) (let loop ((result '()) (converters converters)) (if (null? converters) result (loop (append result (or ((car converters) node-or-nodeset) '())) (cdr converters)))))) ; node-closure:: Converter -> Converter ; Select all _descendants_ of a node that satisfy a converter-predicate. ; This combinator is similar to select-kids but applies to ; grand... children as well. ; This combinator implements the "descendant::" XPath axis ; Conceptually, this combinator can be expressed as ; (define (node-closure f) ; (node-or ; (select-kids f) ; (node-reduce (select-kids (node-typeof? '*)) (node-closure f)))) ; This definition, as written, looks somewhat like a fixpoint, and it ; will run forever. It is obvious however that sooner or later ; (select-kids (node-typeof? '*)) will return an empty nodeset. At ; this point further iterations will no longer affect the result and ; can be stopped. (define (node-closure test-pred?) (lambda (node) ; Nodeset or node (let loop ((parent node) (result '())) (if (null? parent) result (loop ((select-kids (node-typeof? '*)) parent) (append result ((select-kids test-pred?) parent))) )))) ; node-parent:: RootNode -> Converter ; (node-parent rootnode) yields a converter that returns a parent of a ; node it is applied to. If applied to a nodeset, it returns the list ; of parents of nodes in the nodeset. The rootnode does not have ; to be the root node of the whole SXML tree -- it may be a root node ; of a branch of interest. ; Given the notation of Philip Wadler's paper on semantics of XSLT, ; parent(x) = { y | y=subnode*(root), x=subnode(y) } ; Therefore, node-parent is not the fundamental converter: it can be ; expressed through the existing ones. Yet node-parent is a rather ; convenient converter. It corresponds to a parent:: axis of SXPath. ; Note that the parent:: axis can be used with an attribute node as well! (define (node-parent rootnode) (lambda (node) ; Nodeset or node (if (nodeset? node) (map-union (node-parent rootnode) node) (let ((pred (node-or (node-reduce (node-self (node-typeof? '*)) (select-kids (node-eq? node))) (node-join (select-kids (node-typeof? '@)) (select-kids (node-eq? node)))))) ((node-or (node-self pred) (node-closure pred)) rootnode))))) ;------------------------- ; Evaluate an abbreviated SXPath ; sxpath:: AbbrPath -> Converter, or ; sxpath:: AbbrPath -> Node|Nodeset -> Nodeset ; AbbrPath is a list. It is translated to the full SXPath according ; to the following rewriting rules ; (sxpath '()) -> (node-join) ; (sxpath '(path-component ...)) -> ; (node-join (sxpath1 path-component) (sxpath '(...))) ; (sxpath1 '//) -> (node-or ; (node-self (node-typeof? '*any*)) ; (node-closure (node-typeof? '*any*))) ; (sxpath1 '(equal? x)) -> (select-kids (node-equal? x)) ; (sxpath1 '(eq? x)) -> (select-kids (node-eq? x)) ; (sxpath1 ?symbol) -> (select-kids (node-typeof? ?symbol) ; (sxpath1 procedure) -> procedure ; (sxpath1 '(?symbol ...)) -> (sxpath1 '((?symbol) ...)) ; (sxpath1 '(path reducer ...)) -> ; (node-reduce (sxpath path) (sxpathr reducer) ...) ; (sxpathr number) -> (node-pos number) ; (sxpathr path-filter) -> (filter (sxpath path-filter)) (define (sxpath path) (lambda (nodeset) (let loop ((nodeset nodeset) (path path)) (cond ((null? path) nodeset) ((nodeset? nodeset) (map-union (sxpath path) nodeset)) ((procedure? (car path)) (loop ((car path) nodeset) (cdr path))) ((eq? '// (car path)) (loop ((if (nodeset? nodeset) append cons) nodeset ((node-closure (node-typeof? '*any*)) nodeset)) (cdr path))) ((symbol? (car path)) (loop ((select-kids (node-typeof? (car path))) nodeset) (cdr path))) ((and (pair? (car path)) (eq? 'equal? (caar path))) (loop ((select-kids (apply node-equal? (cdar path))) nodeset) (cdr path))) ((and (pair? (car path)) (eq? 'eq? (caar path))) (loop ((select-kids (apply node-eq? (cdar path))) nodeset) (cdr path))) ((pair? (car path)) (let reducer ((nodeset (if (symbol? (caar path)) ((select-kids (node-typeof? (caar path))) nodeset) (loop nodeset (caar path)))) (reducing-path (cdar path))) (cond ((null? reducing-path) (loop nodeset (cdr path))) ((number? (car reducing-path)) (reducer ((node-pos (car reducing-path)) nodeset) (cdr reducing-path))) (else (reducer ((filter (sxpath (car reducing-path))) nodeset) (cdr reducing-path)))))) (else (error "Invalid path step: " (car path))) )))) ;------------------------------------------------------------------------ ; Sample XPath/SXPath expressions: regression test suite for the ; implementation above. ; A running example (define tree1 '(html (head (title "Slides")) (body (p (@ (align "center")) (table (@ (style "font-size: x-large")) (tr (td (@ (align "right")) "Talks ") (td (@ (align "center")) " = ") (td " slides + transition")) (tr (td) (td (@ (align "center")) " = ") (td " data + control")) (tr (td) (td (@ (align "center")) " = ") (td " programs")))) (ul (li (a (@ (href "slides/slide0001.gif")) "Introduction")) (li (a (@ (href "slides/slide0010.gif")) "Summary"))) ))) ; Example from a posting "Re: DrScheme and XML", ; Shriram Krishnamurthi, comp.lang.scheme, Nov. 26. 1999. ; http://www.deja.com/getdoc.xp?AN=553507805 (define tree3 '(poem (@ (title "The Lovesong of J. Alfred Prufrock") (poet "T. S. Eliot")) (stanza (line "Let us go then, you and I,") (line "When the evening is spread out against the sky") (line "Like a patient etherized upon a table:")) (stanza (line "In the room the women come and go") (line "Talking of Michaelangelo.")))) ; Validation Test harness (define-syntax run-test (syntax-rules (define) ((run-test "scan-exp" (define vars body)) (define vars (run-test "scan-exp" body))) ((run-test "scan-exp" ?body) (letrec-syntax ((scan-exp ; (scan-exp body k) (syntax-rules (quote quasiquote !) ((scan-exp '() (k-head ! . args)) (k-head '() . args)) ((scan-exp (quote (hd . tl)) k) (scan-lit-lst (hd . tl) (do-wrap ! quasiquote k))) ((scan-exp (quasiquote (hd . tl)) k) (scan-lit-lst (hd . tl) (do-wrap ! quasiquote k))) ((scan-exp (quote x) (k-head ! . args)) (k-head (if (string? (quote x)) (string->symbol (quote x)) (quote x)) . args)) ((scan-exp (hd . tl) k) (scan-exp hd (do-tl ! scan-exp tl k))) ((scan-exp x (k-head ! . args)) (k-head x . args)))) (do-tl (syntax-rules (!) ((do-tl processed-hd fn () (k-head ! . args)) (k-head (processed-hd) . args)) ((do-tl processed-hd fn old-tl k) (fn old-tl (do-cons ! processed-hd k))))) (do-cons (syntax-rules (!) ((do-cons processed-tl processed-hd (k-head ! . args)) (k-head (processed-hd . processed-tl) . args)))) (do-wrap (syntax-rules (!) ((do-wrap val fn (k-head ! . args)) (k-head (fn val) . args)))) (do-finish (syntax-rules () ((do-finish new-body) new-body))) (scan-lit-lst ; scan literal list (syntax-rules (quote unquote unquote-splicing !) ((scan-lit-lst '() (k-head ! . args)) (k-head '() . args)) ((scan-lit-lst (quote (hd . tl)) k) (do-tl quote scan-lit-lst ((hd . tl)) k)) ((scan-lit-lst (unquote x) k) (scan-exp x (do-wrap ! unquote k))) ((scan-lit-lst (unquote-splicing x) k) (scan-exp x (do-wrap ! unquote-splicing k))) ((scan-lit-lst (quote x) (k-head ! . args)) (k-head ,(if (string? (quote x)) (string->symbol (quote x)) (quote x)) . args)) ((scan-lit-lst (hd . tl) k) (scan-lit-lst hd (do-tl ! scan-lit-lst tl k))) ((scan-lit-lst x (k-head ! . args)) (k-head x . args)))) ) (scan-exp ?body (do-finish !)))) ((run-test body ...) (begin (run-test "scan-exp" body) ...)) )) ; Overwrite the above macro to switch the tests off ; (define-macro (run-test selector node expected-result) #f) ; Location path, full form: child::para ; Location path, abbreviated form: para ; selects the para element children of the context node (let ((tree '(elem (@) (para (@) "para") (br (@)) "cdata" (para (@) "second par")) ) (expected '((para (@) "para") (para (@) "second par"))) ) (run-test (select-kids (node-typeof? 'para)) tree expected) (run-test (sxpath '(para)) tree expected) ) ; Location path, full form: child::* ; Location path, abbreviated form: * ; selects all element children of the context node (let ((tree '(elem (@) (para (@) "para") (br (@)) "cdata" (para "second par")) ) (expected '((para (@) "para") (br (@)) (para "second par"))) ) (run-test (select-kids (node-typeof? '*)) tree expected) (run-test (sxpath '(*)) tree expected) ) ; Location path, full form: child::text() ; Location path, abbreviated form: text() ; selects all text node children of the context node (let ((tree '(elem (@) (para (@) "para") (br (@)) "cdata" (para "second par")) ) (expected '("cdata")) ) (run-test (select-kids (node-typeof? '*text*)) tree expected) (run-test (sxpath '(*text*)) tree expected) ) ; Location path, full form: child::node() ; Location path, abbreviated form: node() ; selects all the children of the context node, whatever their node type (let* ((tree '(elem (@) (para (@) "para") (br (@)) "cdata" (para "second par")) ) (expected (cdr tree)) ) (run-test (select-kids (node-typeof? '*any*)) tree expected) (run-test (sxpath '(*any*)) tree expected) ) ; Location path, full form: child::*/child::para ; Location path, abbreviated form: */para ; selects all para grandchildren of the context node (let ((tree '(elem (@) (para (@) "para") (br (@)) "cdata" (para "second par") (div (@ (name "aa")) (para "third para"))) ) (expected '((para "third para"))) ) (run-test (node-join (select-kids (node-typeof? '*)) (select-kids (node-typeof? 'para))) tree expected) (run-test (sxpath '(* para)) tree expected) ) ; Location path, full form: attribute::name ; Location path, abbreviated form: @name ; selects the 'name' attribute of the context node (let ((tree '(elem (@ (name "elem") (id "idz")) (para (@) "para") (br (@)) "cdata" (para (@) "second par") (div (@ (name "aa")) (para (@) "third para"))) ) (expected '((name "elem"))) ) (run-test (node-join (select-kids (node-typeof? '@)) (select-kids (node-typeof? 'name))) tree expected) (run-test (sxpath '(@ name)) tree expected) ) ; Location path, full form: attribute::* ; Location path, abbreviated form: @* ; selects all the attributes of the context node (let ((tree '(elem (@ (name "elem") (id "idz")) (para (@) "para") (br (@)) "cdata" (para "second par") (div (@ (name "aa")) (para (@) "third para"))) ) (expected '((name "elem") (id "idz"))) ) (run-test (node-join (select-kids (node-typeof? '@)) (select-kids (node-typeof? '*))) tree expected) (run-test (sxpath '(@ *)) tree expected) ) ; Location path, full form: descendant::para ; Location path, abbreviated form: .//para ; selects the para element descendants of the context node (let ((tree '(elem (@ (name "elem") (id "idz")) (para (@) "para") (br (@)) "cdata" (para "second par") (div (@ (name "aa")) (para (@) "third para"))) ) (expected '((para (@) "para") (para "second par") (para (@) "third para"))) ) (run-test (node-closure (node-typeof? 'para)) tree expected) (run-test (sxpath '(// para)) tree expected) ) ; Location path, full form: self::para ; Location path, abbreviated form: _none_ ; selects the context node if it is a para element; otherwise selects nothing (let ((tree '(elem (@ (name "elem") (id "idz")) (para (@) "para") (br (@)) "cdata" (para "second par") (div (@ (name "aa")) (para (@) "third para"))) ) ) (run-test (node-self (node-typeof? 'para)) tree '()) (run-test (node-self (node-typeof? 'elem)) tree (list tree)) ) ; Location path, full form: descendant-or-self::node() ; Location path, abbreviated form: // ; selects the context node, all the children (including attribute nodes) ; of the context node, and all the children of all the (element) ; descendants of the context node. ; This is _almost_ a powerset of the context node. (let* ((tree '(para (@ (name "elem") (id "idz")) (para (@) "para") (br (@)) "cdata" (para "second par") (div (@ (name "aa")) (para (@) "third para"))) ) (expected (cons tree (append (cdr tree) '((@) "para" (@) "second par" (@ (name "aa")) (para (@) "third para") (@) "third para")))) ) (run-test (node-or (node-self (node-typeof? '*any*)) (node-closure (node-typeof? '*any*))) tree expected) (run-test (sxpath '(//)) tree expected) ) ; Location path, full form: ancestor::div ; Location path, abbreviated form: _none_ ; selects all div ancestors of the context node ; This Location expression is equivalent to the following: ; /descendant-or-self::div[descendant::node() = curr_node] ; This shows that the ancestor:: axis is actually redundant. Still, ; it can be emulated as the following SXPath expression demonstrates. ; The insight behind "ancestor::div" -- selecting all "div" ancestors ; of the current node -- is ; S[ancestor::div] context_node = ; { y | y=subnode*(root), context_node=subnode(subnode*(y)), ; isElement(y), name(y) = "div" } ; We observe that ; { y | y=subnode*(root), pred(y) } ; can be expressed in SXPath as ; ((node-or (node-self pred) (node-closure pred)) root-node) ; The composite predicate 'isElement(y) & name(y) = "div"' corresponds to ; (node-self (node-typeof? 'div)) in SXPath. Finally, filter ; context_node=subnode(subnode*(y)) is tantamount to ; (node-closure (node-eq? context-node)), whereas node-reduce denotes the ; the composition of converters-predicates in the filtering context. (let* ((root '(div (@ (name "elem") (id "idz")) (para (@) "para") (br (@)) "cdata" (para (@) "second par") (div (@ (name "aa")) (para (@) "third para")))) (context-node ; /descendant::any()[child::text() == "third para"] (car ((node-closure (select-kids (node-equal? "third para"))) root))) (pred (node-reduce (node-self (node-typeof? 'div)) (node-closure (node-eq? context-node)) )) ) (run-test (node-or (node-self pred) (node-closure pred)) root (cons root '((div (@ (name "aa")) (para (@) "third para"))))) ) ; Location path, full form: child::div/descendant::para ; Location path, abbreviated form: div//para ; selects the para element descendants of the div element ; children of the context node (let ((tree '(elem (@ (name "elem") (id "idz")) (para (@) "para") (br (@)) "cdata" (para "second par") (div (@ (name "aa")) (para (@) "third para") (div (para "fourth para")))) ) (expected '((para (@) "third para") (para "fourth para"))) ) (run-test (node-join (select-kids (node-typeof? 'div)) (node-closure (node-typeof? 'para))) tree expected) (run-test (sxpath '(div // para)) tree expected) ) ; Location path, full form: /descendant::olist/child::item ; Location path, abbreviated form: //olist/item ; selects all the item elements that have an olist parent (which is not root) ; and that are in the same document as the context node ; See the following test. ; Location path, full form: /descendant::td/attribute::align ; Location path, abbreviated form: //td/@align ; Selects 'align' attributes of all 'td' elements in tree1 (let ((tree tree1) (expected '((align "right") (align "center") (align "center") (align "center")) )) (run-test (node-join (node-closure (node-typeof? 'td)) (select-kids (node-typeof? '@)) (select-kids (node-typeof? 'align))) tree expected) (run-test (sxpath '(// td @ align)) tree expected) ) ; Location path, full form: /descendant::td[attribute::align] ; Location path, abbreviated form: //td[@align] ; Selects all td elements that have an attribute 'align' in tree1 (let ((tree tree1) (expected '((td (@ (align "right")) "Talks ") (td (@ (align "center")) " = ") (td (@ (align "center")) " = ") (td (@ (align "center")) " = ")) )) (run-test (node-reduce (node-closure (node-typeof? 'td)) (filter (node-join (select-kids (node-typeof? '@)) (select-kids (node-typeof? 'align))))) tree expected) (run-test (sxpath `(// td ,(node-self (sxpath '(@ align))))) tree expected) (run-test (sxpath '(// (td (@ align)))) tree expected) (run-test (sxpath '(// ((td) (@ align)))) tree expected) ; note! (sxpath ...) is a converter. Therefore, it can be used ; as any other converter, for example, in the full-form SXPath. ; Thus we can mix the full and abbreviated form SXPath's freely. (run-test (node-reduce (node-closure (node-typeof? 'td)) (filter (sxpath '(@ align)))) tree expected) ) ; Location path, full form: /descendant::td[attribute::align = "right"] ; Location path, abbreviated form: //td[@align = "right"] ; Selects all td elements that have an attribute align = "right" in tree1 (let ((tree tree1) (expected '((td (@ (align "right")) "Talks ")) )) (run-test (node-reduce (node-closure (node-typeof? 'td)) (filter (node-join (select-kids (node-typeof? '@)) (select-kids (node-equal? '(align "right")))))) tree expected) (run-test (sxpath '(// (td (@ (equal? (align "right")))))) tree expected) ) ; Location path, full form: child::para[position()=1] ; Location path, abbreviated form: para[1] ; selects the first para child of the context node (let ((tree '(elem (@ (name "elem") (id "idz")) (para (@) "para") (br (@)) "cdata" (para "second par") (div (@ (name "aa")) (para (@) "third para"))) ) (expected '((para (@) "para")) )) (run-test (node-reduce (select-kids (node-typeof? 'para)) (node-pos 1)) tree expected) (run-test (sxpath '((para 1))) tree expected) ) ; Location path, full form: child::para[position()=last()] ; Location path, abbreviated form: para[last()] ; selects the last para child of the context node (let ((tree '(elem (@ (name "elem") (id "idz")) (para (@) "para") (br (@)) "cdata" (para "second par") (div (@ (name "aa")) (para (@) "third para"))) ) (expected '((para "second par")) )) (run-test (node-reduce (select-kids (node-typeof? 'para)) (node-pos -1)) tree expected) (run-test (sxpath '((para -1))) tree expected) ) ; Illustrating the following Note of Sec 2.5 of XPath: ; "NOTE: The location path //para[1] does not mean the same as the ; location path /descendant::para[1]. The latter selects the first ; descendant para element; the former selects all descendant para ; elements that are the first para children of their parents." (let ((tree '(elem (@ (name "elem") (id "idz")) (para (@) "para") (br (@)) "cdata" (para "second par") (div (@ (name "aa")) (para (@) "third para"))) ) ) (run-test (node-reduce ; /descendant::para[1] in SXPath (node-closure (node-typeof? 'para)) (node-pos 1)) tree '((para (@) "para"))) (run-test (sxpath '(// (para 1))) tree '((para (@) "para") (para (@) "third para"))) ) ; Location path, full form: parent::node() ; Location path, abbreviated form: .. ; selects the parent of the context node. The context node may be ; an attribute node! ; For the last test: ; Location path, full form: parent::*/attribute::name ; Location path, abbreviated form: ../@name ; Selects the name attribute of the parent of the context node (let* ((tree '(elem (@ (name "elem") (id "idz")) (para (@) "para") (br (@)) "cdata" (para "second par") (div (@ (name "aa")) (para (@) "third para"))) ) (para1 ; the first para node (car ((sxpath '(para)) tree))) (para3 ; the third para node (car ((sxpath '(div para)) tree))) (div ; div node (car ((sxpath '(// div)) tree))) ) (run-test (node-parent tree) para1 (list tree)) (run-test (node-parent tree) para3 (list div)) (run-test ; checking the parent of an attribute node (node-parent tree) ((sxpath '(@ name)) div) (list div)) (run-test (node-join (node-parent tree) (select-kids (node-typeof? '@)) (select-kids (node-typeof? 'name))) para3 '((name "aa"))) (run-test (sxpath `(,(node-parent tree) @ name)) para3 '((name "aa"))) ) ; Location path, full form: following-sibling::chapter[position()=1] ; Location path, abbreviated form: none ; selects the next chapter sibling of the context node ; The path is equivalent to ; let cnode = context-node ; in ; parent::* / child::chapter [take-after node_eq(self::*,cnode)] ; [position()=1] (let* ((tree '(document (preface "preface") (chapter (@ (id "one")) "Chap 1 text") (chapter (@ (id "two")) "Chap 2 text") (chapter (@ (id "three")) "Chap 3 text") (chapter (@ (id "four")) "Chap 4 text") (epilogue "Epilogue text") (appendix (@ (id "A")) "App A text") (References "References")) ) (a-node ; to be used as a context node (car ((sxpath '(// (chapter (@ (equal? (id "two")))))) tree))) (expected '((chapter (@ (id "three")) "Chap 3 text"))) ) (run-test (node-reduce (node-join (node-parent tree) (select-kids (node-typeof? 'chapter))) (take-after (node-eq? a-node)) (node-pos 1) ) a-node expected) ) ; preceding-sibling::chapter[position()=1] ; selects the previous chapter sibling of the context node ; The path is equivalent to ; let cnode = context-node ; in ; parent::* / child::chapter [take-until node_eq(self::*,cnode)] ; [position()=-1] (let* ((tree '(document (preface "preface") (chapter (@ (id "one")) "Chap 1 text") (chapter (@ (id "two")) "Chap 2 text") (chapter (@ (id "three")) "Chap 3 text") (chapter (@ (id "four")) "Chap 4 text") (epilogue "Epilogue text") (appendix (@ (id "A")) "App A text") (References "References")) ) (a-node ; to be used as a context node (car ((sxpath '(// (chapter (@ (equal? (id "three")))))) tree))) (expected '((chapter (@ (id "two")) "Chap 2 text"))) ) (run-test (node-reduce (node-join (node-parent tree) (select-kids (node-typeof? 'chapter))) (take-until (node-eq? a-node)) (node-pos -1) ) a-node expected) ) ; /descendant::figure[position()=42] ; selects the forty-second figure element in the document ; See the next example, which is more general. ; Location path, full form: ; child::table/child::tr[position()=2]/child::td[position()=3] ; Location path, abbreviated form: table/tr[2]/td[3] ; selects the third td of the second tr of the table (let ((tree ((node-closure (node-typeof? 'p)) tree1)) (expected '((td " data + control")) )) (run-test (node-join (select-kids (node-typeof? 'table)) (node-reduce (select-kids (node-typeof? 'tr)) (node-pos 2)) (node-reduce (select-kids (node-typeof? 'td)) (node-pos 3))) tree expected) (run-test (sxpath '(table (tr 2) (td 3))) tree expected) ) ; Location path, full form: ; child::para[attribute::type='warning'][position()=5] ; Location path, abbreviated form: para[@type='warning'][5] ; selects the fifth para child of the context node that has a type ; attribute with value warning (let ((tree '(chapter (para "para1") (para (@ (type "warning")) "para 2") (para (@ (type "warning")) "para 3") (para (@ (type "warning")) "para 4") (para (@ (type "warning")) "para 5") (para (@ (type "warning")) "para 6")) ) (expected '((para (@ (type "warning")) "para 6")) )) (run-test (node-reduce (select-kids (node-typeof? 'para)) (filter (node-join (select-kids (node-typeof? '@)) (select-kids (node-equal? '(type "warning"))))) (node-pos 5)) tree expected) (run-test (sxpath '( (((para (@ (equal? (type "warning"))))) 5 ) )) tree expected) (run-test (sxpath '( (para (@ (equal? (type "warning"))) 5 ) )) tree expected) ) ; Location path, full form: ; child::para[position()=5][attribute::type='warning'] ; Location path, abbreviated form: para[5][@type='warning'] ; selects the fifth para child of the context node if that child has a 'type' ; attribute with value warning (let ((tree '(chapter (para "para1") (para (@ (type "warning")) "para 2") (para (@ (type "warning")) "para 3") (para (@ (type "warning")) "para 4") (para (@ (type "warning")) "para 5") (para (@ (type "warning")) "para 6")) ) (expected '((para (@ (type "warning")) "para 5")) )) (run-test (node-reduce (select-kids (node-typeof? 'para)) (node-pos 5) (filter (node-join (select-kids (node-typeof? '@)) (select-kids (node-equal? '(type "warning")))))) tree expected) (run-test (sxpath '( (( (para 5)) (@ (equal? (type "warning")))))) tree expected) (run-test (sxpath '( (para 5 (@ (equal? (type "warning")))) )) tree expected) ) ; Location path, full form: ; child::*[self::chapter or self::appendix] ; Location path, semi-abbreviated form: *[self::chapter or self::appendix] ; selects the chapter and appendix children of the context node (let ((tree '(document (preface "preface") (chapter (@ (id "one")) "Chap 1 text") (chapter (@ (id "two")) "Chap 2 text") (chapter (@ (id "three")) "Chap 3 text") (epilogue "Epilogue text") (appendix (@ (id "A")) "App A text") (References "References")) ) (expected '((chapter (@ (id "one")) "Chap 1 text") (chapter (@ (id "two")) "Chap 2 text") (chapter (@ (id "three")) "Chap 3 text") (appendix (@ (id "A")) "App A text")) )) (run-test (node-join (select-kids (node-typeof? '*)) (filter (node-or (node-self (node-typeof? 'chapter)) (node-self (node-typeof? 'appendix))))) tree expected) (run-test (sxpath `(* ,(node-or (node-self (node-typeof? 'chapter)) (node-self (node-typeof? 'appendix))))) tree expected) ) ; Location path, full form: child::chapter[child::title='Introduction'] ; Location path, abbreviated form: chapter[title = 'Introduction'] ; selects the chapter children of the context node that have one or more ; title children with string-value equal to Introduction ; See a similar example: //td[@align = "right"] above. ; Location path, full form: child::chapter[child::title] ; Location path, abbreviated form: chapter[title] ; selects the chapter children of the context node that have one or ; more title children ; See a similar example //td[@align] above. (cerr nl "Example with tree3: extracting the first lines of every stanza" nl) (let ((tree tree3) (expected '("Let us go then, you and I," "In the room the women come and go") )) (run-test (node-join (node-closure (node-typeof? 'stanza)) (node-reduce (select-kids (node-typeof? 'line)) (node-pos 1)) (select-kids (node-typeof? '*text*))) tree expected) (run-test (sxpath '(// stanza (line 1) *text*)) tree expected) ) ������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������sxml/upstream/SXML-tree-trans.scm�������������������������������������������������������������������0000644�����������������00000023541�15253246142�0012751 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������; XML/HTML processing in Scheme ; SXML expression tree transformers ; ; IMPORT ; A prelude appropriate for your Scheme system ; (myenv-bigloo.scm, myenv-mit.scm, etc.) ; ; EXPORT ; (provide SRV:send-reply ; post-order pre-post-order replace-range) ; ; See vSXML-tree-trans.scm for the validation code, which also ; serves as usage examples. ; ; $Id: SXML-tree-trans.scm,v 1.6 2003/04/25 19:16:15 oleg Exp $ ; Output the 'fragments' ; The fragments are a list of strings, characters, ; numbers, thunks, #f, #t -- and other fragments. ; The function traverses the tree depth-first, writes out ; strings and characters, executes thunks, and ignores ; #f and '(). ; The function returns #t if anything was written at all; ; otherwise the result is #f ; If #t occurs among the fragments, it is not written out ; but causes the result of SRV:send-reply to be #t (define (SRV:send-reply . fragments) (let loop ((fragments fragments) (result #f)) (cond ((null? fragments) result) ((not (car fragments)) (loop (cdr fragments) result)) ((null? (car fragments)) (loop (cdr fragments) result)) ((eq? #t (car fragments)) (loop (cdr fragments) #t)) ((pair? (car fragments)) (loop (cdr fragments) (loop (car fragments) result))) ((procedure? (car fragments)) ((car fragments)) (loop (cdr fragments) #t)) (else (display (car fragments)) (loop (cdr fragments) #t))))) ;------------------------------------------------------------------------ ; Traversal of an SXML tree or a grove: ; a <Node> or a <Nodelist> ; ; A <Node> and a <Nodelist> are mutually-recursive datatypes that ; underlie the SXML tree: ; <Node> ::= (name . <Nodelist>) | "text string" ; An (ordered) set of nodes is just a list of the constituent nodes: ; <Nodelist> ::= (<Node> ...) ; Nodelists, and Nodes other than text strings are both lists. A ; <Nodelist> however is either an empty list, or a list whose head is ; not a symbol (an atom in general). A symbol at the head of a node is ; either an XML name (in which case it's a tag of an XML element), or ; an administrative name such as '@'. ; See SXPath.scm and SSAX.scm for more information on SXML. ; Pre-Post-order traversal of a tree and creation of a new tree: ; pre-post-order:: <tree> x <bindings> -> <new-tree> ; where ; <bindings> ::= (<binding> ...) ; <binding> ::= (<trigger-symbol> *preorder* . <handler>) | ; (<trigger-symbol> *macro* . <handler>) | ; (<trigger-symbol> <new-bindings> . <handler>) | ; (<trigger-symbol> . <handler>) ; <trigger-symbol> ::= XMLname | *text* | *default* ; <handler> :: <trigger-symbol> x [<tree>] -> <new-tree> ; ; The pre-post-order function visits the nodes and nodelists ; pre-post-order (depth-first). For each <Node> of the form (name ; <Node> ...) it looks up an association with the given 'name' among ; its <bindings>. If failed, pre-post-order tries to locate a ; *default* binding. It's an error if the latter attempt fails as ; well. Having found a binding, the pre-post-order function first ; checks to see if the binding is of the form ; (<trigger-symbol> *preorder* . <handler>) ; If it is, the handler is 'applied' to the current node. Otherwise, ; the pre-post-order function first calls itself recursively for each ; child of the current node, with <new-bindings> prepended to the ; <bindings> in effect. The result of these calls is passed to the ; <handler> (along with the head of the current <Node>). To be more ; precise, the handler is _applied_ to the head of the current node ; and its processed children. The result of the handler, which should ; also be a <tree>, replaces the current <Node>. If the current <Node> ; is a text string or other atom, a special binding with a symbol ; *text* is looked up. ; ; A binding can also be of a form ; (<trigger-symbol> *macro* . <handler>) ; This is equivalent to *preorder* described above. However, the result ; is re-processed again, with the current stylesheet. (define (pre-post-order tree bindings) (let* ((default-binding (assq '*default* bindings)) (text-binding (or (assq '*text* bindings) default-binding)) (text-handler ; Cache default and text bindings (and text-binding (if (procedure? (cdr text-binding)) (cdr text-binding) (cddr text-binding))))) (let loop ((tree tree)) (cond ((null? tree) '()) ((not (pair? tree)) (let ((trigger '*text*)) (if text-handler (text-handler trigger tree) (error "Unknown binding for " trigger " and no default")))) ((not (symbol? (car tree))) (map loop tree)) ; tree is a nodelist (else ; tree is an SXML node (let* ((trigger (car tree)) (binding (or (assq trigger bindings) default-binding))) (cond ((not binding) (error "Unknown binding for " trigger " and no default")) ((not (pair? (cdr binding))) ; must be a procedure: handler (apply (cdr binding) trigger (map loop (cdr tree)))) ((eq? '*preorder* (cadr binding)) (apply (cddr binding) tree)) ((eq? '*macro* (cadr binding)) (loop (apply (cddr binding) tree))) (else ; (cadr binding) is a local binding (apply (cddr binding) trigger (pre-post-order (cdr tree) (append (cadr binding) bindings))) )))))))) ; post-order is a strict subset of pre-post-order without *preorder* ; (let alone *macro*) traversals. ; Now pre-post-order is actually faster than the old post-order. ; The function post-order is deprecated and is aliased below for ; backward compatibility. (define post-order pre-post-order) ;------------------------------------------------------------------------ ; Extended tree fold ; tree = atom | (node-name tree ...) ; ; foldts fdown fup fhere seed (Leaf str) = fhere seed str ; foldts fdown fup fhere seed (Nd kids) = ; fup seed $ foldl (foldts fdown fup fhere) (fdown seed) kids ; procedure fhere: seed -> atom -> seed ; procedure fdown: seed -> node -> seed ; procedure fup: parent-seed -> last-kid-seed -> node -> seed ; foldts returns the final seed (define (foldts fdown fup fhere seed tree) (cond ((null? tree) seed) ((not (pair? tree)) ; An atom (fhere seed tree)) (else (let loop ((kid-seed (fdown seed tree)) (kids (cdr tree))) (if (null? kids) (fup seed kid-seed tree) (loop (foldts fdown fup fhere kid-seed (car kids)) (cdr kids))))))) ;------------------------------------------------------------------------ ; Traverse a forest depth-first and cut/replace ranges of nodes. ; ; The nodes that define a range don't have to have the same immediate ; parent, don't have to be on the same level, and the end node of a ; range doesn't even have to exist. A replace-range procedure removes ; nodes from the beginning node of the range up to (but not including) ; the end node of the range. In addition, the beginning node of the ; range can be replaced by a node or a list of nodes. The range of ; nodes is cut while depth-first traversing the forest. If all ; branches of the node are cut a node is cut as well. The procedure ; can cut several non-overlapping ranges from a forest. ; replace-range:: BEG-PRED x END-PRED x FOREST -> FOREST ; where ; type FOREST = (NODE ...) ; type NODE = Atom | (Name . FOREST) | FOREST ; ; The range of nodes is specified by two predicates, beg-pred and end-pred. ; beg-pred:: NODE -> #f | FOREST ; end-pred:: NODE -> #f | FOREST ; The beg-pred predicate decides on the beginning of the range. The node ; for which the predicate yields non-#f marks the beginning of the range ; The non-#f value of the predicate replaces the node. The value can be a ; list of nodes. The replace-range procedure then traverses the tree and skips ; all the nodes, until the end-pred yields non-#f. The value of the end-pred ; replaces the end-range node. The new end node and its brothers will be ; re-scanned. ; The predicates are evaluated pre-order. We do not descend into a node that ; is marked as the beginning of the range. (define (replace-range beg-pred end-pred forest) ; loop forest keep? new-forest ; forest is the forest to traverse ; new-forest accumulates the nodes we will keep, in the reverse ; order ; If keep? is #t, keep the curr node if atomic. If the node is not atomic, ; traverse its children and keep those that are not in the skip range. ; If keep? is #f, skip the current node if atomic. Otherwise, ; traverse its children. If all children are skipped, skip the node ; as well. (define (loop forest keep? new-forest) (if (null? forest) (values (reverse new-forest) keep?) (let ((node (car forest))) (if keep? (cond ; accumulate mode ((beg-pred node) => ; see if the node starts the skip range (lambda (repl-branches) ; if so, skip/replace the node (loop (cdr forest) #f (append (reverse repl-branches) new-forest)))) ((not (pair? node)) ; it's an atom, keep it (loop (cdr forest) keep? (cons node new-forest))) (else (let*-values (((node?) (symbol? (car node))) ; or is it a nodelist? ((new-kids keep?) ; traverse its children (loop (if node? (cdr node) node) #t '()))) (loop (cdr forest) keep? (cons (if node? (cons (car node) new-kids) new-kids) new-forest))))) ; skip mode (cond ((end-pred node) => ; end the skip range (lambda (repl-branches) ; repl-branches will be re-scanned (loop (append repl-branches (cdr forest)) #t new-forest))) ((not (pair? node)) ; it's an atom, skip it (loop (cdr forest) keep? new-forest)) (else (let*-values (((node?) (symbol? (car node))) ; or is it a nodelist? ((new-kids keep?) ; traverse its children (loop (if node? (cdr node) node) #f '()))) (loop (cdr forest) keep? (if (or keep? (pair? new-kids)) (cons (if node? (cons (car node) new-kids) new-kids) new-forest) new-forest) ; if all kids are skipped )))))))) ; skip the node too (let*-values (((new-forest keep?) (loop forest #t '()))) new-forest)) ���������������������������������������������������������������������������������������������������������������������������������������������������������������sxml/upstream/assert.scm����������������������������������������������������������������������������0000644�����������������00000002563�15253246142�0011406 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������; ; syntax: assert ?expr ?expr ... [report: ?r-exp ?r-exp ...] ; ; If (and ?expr ?expr ...) evaluates to anything but #f, the result ; is the value of that expression. ; If (and ?expr ?expr ...) evaluates to #f, an error is reported. ; The error message will show the failed expressions, as well ; as the values of selected variables (or expressions, in general). ; The user may explicitly specify the expressions whose ; values are to be printed upon assertion failure -- as ?r-exp that ; follow the identifier 'report:' ; Typically, ?r-exp is either a variable or a string constant. ; If the user specified no ?r-exp, the values of variables that are ; referenced in ?expr will be printed upon the assertion failure. (define-syntax assert (syntax-rules (report:) ((assert "doit" (expr ...) (r-exp ...)) (cond ((and expr ...) => (lambda (x) x)) (else (error "assertion failure: ~a" (list '(and expr ...) r-exp ...))))) ((assert "collect" (expr ...)) (assert "doit" (expr ...) ())) ((assert "collect" (expr ...) report: r-exp ...) (assert "doit" (expr ...) (r-exp ...))) ((assert "collect" (expr ...) expr1 stuff ...) (assert "collect" (expr ... expr1) stuff ...)) ((assert stuff ...) (assert "collect" () stuff ...)))) (define-syntax assure (syntax-rules () ((assure exp error-msg) (assert exp report: error-msg))))���������������������������������������������������������������������������������������������������������������������������������������������sxml/upstream/input-parse.scm�����������������������������������������������������������������������0000644�����������������00000032521�15253246142�0012351 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������;**************************************************************************** ; Simple Parsing of input ; ; The following simple functions surprisingly often suffice to parse ; an input stream. They either skip, or build and return tokens, ; according to inclusion or delimiting semantics. The list of ; characters to expect, include, or to break at may vary from one ; invocation of a function to another. This allows the functions to ; easily parse even context-sensitive languages. ; ; EOF is generally frowned on, and thrown up upon if encountered. ; Exceptions are mentioned specifically. The list of expected characters ; (characters to skip until, or break-characters) may include an EOF ; "character", which is to be coded as symbol *eof* ; ; The input stream to parse is specified as a PORT, which is usually ; the last (and optional) argument. It defaults to the current input ; port if omitted. ; ; IMPORT ; This package relies on a function parser-error, which must be defined ; by a user of the package. The function has the following signature: ; parser-error PORT MESSAGE SPECIALISING-MSG* ; Many procedures of this package call parser-error to report a parsing ; error. The first argument is a port, which typically points to the ; offending character or its neighborhood. Most of the Scheme systems ; let the user query a PORT for the current position. MESSAGE is the ; description of the error. Other arguments supply more details about ; the problem. ; myenv.scm, myenv-bigloo.scm or a similar prelude is assumed. ; From SRFI-13, string-concatenate-reverse ; If a particular implementation lacks SRFI-13 support, please ; include the file srfi-13-local.scm ; ; $Id: input-parse.scm,v 1.7 2004/07/07 16:02:31 sperber Exp $ ;------------------------------------------------------------------------ ; -- procedure+: peek-next-char [PORT] ; advances to the next character in the PORT and peeks at it. ; This function is useful when parsing LR(1)-type languages ; (one-char-read-ahead). ; The optional argument PORT defaults to the current input port. (define-opt (peek-next-char (optional (port (current-input-port)))) (read-char port) (peek-char port)) ;------------------------------------------------------------------------ ; -- procedure+: assert-curr-char CHAR-LIST STRING [PORT] ; Reads a character from the PORT and looks it up ; in the CHAR-LIST of expected characters ; If the read character was found among expected, it is returned ; Otherwise, the procedure writes a nasty message using STRING ; as a comment, and quits. ; The optional argument PORT defaults to the current input port. ; (define-opt (assert-curr-char expected-chars comment (optional (port (current-input-port)))) (let ((c (read-char port))) (if (memv c expected-chars) c (parser-error port "Wrong character " c " (0x" (if (eof-object? c) "*eof*" (number->string (char->integer c) 16)) ") " comment ". " expected-chars " expected")))) ; -- procedure+: skip-until CHAR-LIST [PORT] ; Reads and skips characters from the PORT until one of the break ; characters is encountered. This break character is returned. ; The break characters are specified as the CHAR-LIST. This list ; may include EOF, which is to be coded as a symbol *eof* ; ; -- procedure+: skip-until NUMBER [PORT] ; Skips the specified NUMBER of characters from the PORT and returns #f ; ; The optional argument PORT defaults to the current input port. (define-opt (skip-until arg (optional (port (current-input-port))) ) (cond ((number? arg) ; skip 'arg' characters (do ((i arg (dec i))) ((not (positive? i)) #f) (if (eof-object? (read-char port)) (parser-error port "Unexpected EOF while skipping " arg " characters")))) (else ; skip until break-chars (=arg) (let loop ((c (read-char port))) (cond ((memv c arg) c) ((eof-object? c) (if (memq '*eof* arg) c (parser-error port "Unexpected EOF while skipping until " arg))) (else (loop (read-char port)))))))) ; -- procedure+: skip-while CHAR-LIST [PORT] ; Reads characters from the PORT and disregards them, ; as long as they are mentioned in the CHAR-LIST. ; The first character (which may be EOF) peeked from the stream ; that is NOT a member of the CHAR-LIST is returned. This character ; is left on the stream. ; The optional argument PORT defaults to the current input port. (define-opt (skip-while skip-chars (optional (port (current-input-port))) ) (do ((c (peek-char port) (peek-char port))) ((not (memv c skip-chars)) c) (read-char port))) ; whitespace const ;------------------------------------------------------------------------ ; Stream tokenizers ; -- procedure+: ; next-token PREFIX-CHAR-LIST BREAK-CHAR-LIST [COMMENT-STRING] [PORT] ; skips any number of the prefix characters (members of the ; PREFIX-CHAR-LIST), if any, and reads the sequence of characters ; up to (but not including) a break character, one of the ; BREAK-CHAR-LIST. ; The string of characters thus read is returned. ; The break character is left on the input stream ; The list of break characters may include EOF, which is to be coded as ; a symbol *eof*. Otherwise, EOF is fatal, generating an error message ; including a specified COMMENT-STRING (if any) ; ; The optional argument PORT defaults to the current input port. ; ; Note: since we can't tell offhand how large the token being read is ; going to be, we make a guess, pre-allocate a string, and grow it by ; quanta if necessary. The quantum is always the length of the string ; before it was extended the last time. Thus the algorithm does ; a Fibonacci-type extension, which has been proven optimal. ; Note, explicit port specification in read-char, peek-char helps. ; Procedure: input-parse:init-buffer ; returns an initial buffer for next-token* procedures. ; The input-parse:init-buffer may allocate a new buffer per each invocation: ; (define (input-parse:init-buffer) (make-string 32)) ; Size 32 turns out to be fairly good, on average. ; That policy is good only when a Scheme system is multi-threaded with ; preemptive scheduling, or when a Scheme system supports shared substrings. ; In all the other cases, it's better for input-parse:init-buffer to ; return the same static buffer. next-token* functions return a copy ; (a substring) of accumulated data, so the same buffer can be reused. ; We shouldn't worry about an incoming token being too large: ; next-token will use another chunk automatically. Still, ; the best size for the static buffer is to allow most of the tokens to fit in. ; Using a static buffer _dramatically_ reduces the amount of produced garbage ; (e.g., during XML parsing). (define input-parse:init-buffer (let ((buffer (make-string 512))) (lambda () buffer))) ; See a better version below (define-opt (next-token-old prefix-skipped-chars break-chars (optional (comment "") (port (current-input-port))) ) (let* ((buffer (input-parse:init-buffer)) (curr-buf-len (string-length buffer)) (quantum curr-buf-len)) (let loop ((i 0) (c (skip-while prefix-skipped-chars port))) (cond ((memv c break-chars) (substring buffer 0 i)) ((eof-object? c) (if (memq '*eof* break-chars) (substring buffer 0 i) ; was EOF expected? (parser-error port "EOF while reading a token " comment))) (else (if (>= i curr-buf-len) ; make space for i-th char in buffer (begin ; -> grow the buffer by the quantum (set! buffer (string-append buffer (make-string quantum))) (set! quantum curr-buf-len) (set! curr-buf-len (string-length buffer)))) (string-set! buffer i c) (read-char port) ; move to the next char (loop (inc i) (peek-char port)) ))))) ; A better version of next-token, which accumulates the characters ; in chunks, and later on reverse-concatenates them, using ; SRFI-13 if available. ; The overhead of copying characters is only 100% (or even smaller: bulk ; string copying might be well-optimised), compared to the (hypothetical) ; circumstance if we had known the size of the token beforehand. ; For small tokens, the code performs just as above. For large ; tokens, we expect an improvement. Note, the code also has no ; assignments. ; See next-token-comp.scm (define-opt (next-token prefix-skipped-chars break-chars (optional (comment "") (port (current-input-port))) ) (let outer ((buffer (input-parse:init-buffer)) (filled-buffer-l '()) (c (skip-while prefix-skipped-chars port))) (let ((curr-buf-len (string-length buffer))) (let loop ((i 0) (c c)) (cond ((memv c break-chars) (if (null? filled-buffer-l) (substring buffer 0 i) (string-concatenate-reverse filled-buffer-l buffer i))) ((eof-object? c) (if (memq '*eof* break-chars) ; was EOF expected? (if (null? filled-buffer-l) (substring buffer 0 i) (string-concatenate-reverse filled-buffer-l buffer i)) (parser-error port "EOF while reading a token " comment))) ((>= i curr-buf-len) (outer (make-string curr-buf-len) (cons buffer filled-buffer-l) c)) (else (string-set! buffer i c) (read-char port) ; move to the next char (loop (inc i) (peek-char port)))))))) ; -- procedure+: next-token-of INC-CHARSET [PORT] ; Reads characters from the PORT that belong to the list of characters ; INC-CHARSET. The reading stops at the first character which is not ; a member of the set. This character is left on the stream. ; All the read characters are returned in a string. ; ; -- procedure+: next-token-of PRED [PORT] ; Reads characters from the PORT for which PRED (a procedure of one ; argument) returns non-#f. The reading stops at the first character ; for which PRED returns #f. That character is left on the stream. ; All the results of evaluating of PRED up to #f are returned in a ; string. ; ; PRED is a procedure that takes one argument (a character ; or the EOF object) and returns a character or #f. The returned ; character does not have to be the same as the input argument ; to the PRED. For example, ; (next-token-of (lambda (c) ; (cond ((eof-object? c) #f) ; ((char-alphabetic? c) (char-downcase c)) ; (else #f)))) ; will try to read an alphabetic token from the current ; input port, and return it in lower case. ; ; The optional argument PORT defaults to the current input port. ; ; This procedure is similar to next-token but only it implements ; an inclusion rather than delimiting semantics. (define-opt (next-token-of incl-list/pred (optional (port (current-input-port))) ) (let* ((buffer (input-parse:init-buffer)) (curr-buf-len (string-length buffer))) (if (procedure? incl-list/pred) (let outer ((buffer buffer) (filled-buffer-l '())) (let loop ((i 0)) (if (>= i curr-buf-len) ; make sure we have space (outer (make-string curr-buf-len) (cons buffer filled-buffer-l)) (let ((c (incl-list/pred (peek-char port)))) (if c (begin (string-set! buffer i c) (read-char port) ; move to the next char (loop (inc i))) ; incl-list/pred decided it had had enough (if (null? filled-buffer-l) (substring buffer 0 i) (string-concatenate-reverse filled-buffer-l buffer i))))))) ; incl-list/pred is a list of allowed characters (let outer ((buffer buffer) (filled-buffer-l '())) (let loop ((i 0)) (if (>= i curr-buf-len) ; make sure we have space (outer (make-string curr-buf-len) (cons buffer filled-buffer-l)) (let ((c (peek-char port))) (cond ((not (memv c incl-list/pred)) (if (null? filled-buffer-l) (substring buffer 0 i) (string-concatenate-reverse filled-buffer-l buffer i))) (else (string-set! buffer i c) (read-char port) ; move to the next char (loop (inc i)))))))) ))) ; -- procedure+: read-text-line [PORT] ; Reads one line of text from the PORT, and returns it as a string. ; A line is a (possibly empty) sequence of characters terminated ; by CR, CRLF or LF (or even the end of file). ; The terminating character (or CRLF combination) is removed from ; the input stream. The terminating character(s) is not a part ; of the return string either. ; If EOF is encountered before any character is read, the return ; value is EOF. ; ; The optional argument PORT defaults to the current input port. (define *read-line-breaks* (list char-newline char-return '*eof*)) (define-opt (read-text-line (optional (port (current-input-port))) ) (if (eof-object? (peek-char port)) (peek-char port) (let* ((line (next-token '() *read-line-breaks* "reading a line" port)) (c (read-char port))) ; must be either \n or \r or EOF (and (eqv? c char-return) (eqv? (peek-char port) #\newline) (read-char port)) ; skip \n that follows \r line))) ; -- procedure+: read-string N [PORT] ; Reads N characters from the PORT, and returns them in a string. ; If EOF is encountered before N characters are read, a shorter string ; will be returned. ; If N is not positive, an empty string will be returned. ; The optional argument PORT defaults to the current input port. (define-opt (read-string n (optional (port (current-input-port))) ) (if (not (positive? n)) "" (let ((buffer (make-string n))) (let loop ((i 0) (c (read-char port))) (if (eof-object? c) (substring buffer 0 i) (let ((i1 (inc i))) (string-set! buffer i c) (if (= i1 n) buffer (loop i1 (read-char port))))))))) �������������������������������������������������������������������������������������������������������������������������������������������������������������������������������sxml/upstream/SSAX.scm������������������������������������������������������������������������������0000644�����������������00000366533�15253246142�0010675 0����������������������������������������������������������������������������������������������������ustar�00�������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������; Functional XML parsing framework: SAX/DOM and SXML parsers ; with support for XML Namespaces and validation ; ; This is a package of low-to-high level lexing and parsing procedures ; that can be combined to yield a SAX, a DOM, a validating parsers, or ; a parser intended for a particular document type. The procedures in ; the package can be used separately to tokenize or parse various ; pieces of XML documents. The package supports XML Namespaces, ; internal and external parsed entities, user-controlled handling of ; whitespace, and validation. This module therefore is intended to be ; a framework, a set of "Lego blocks" you can use to build a parser ; following any discipline and performing validation to any degree. As ; an example of the parser construction, this file includes a ; semi-validating SXML parser. ; The present XML framework has a "sequential" feel of SAX yet a ; "functional style" of DOM. Like a SAX parser, the framework scans ; the document only once and permits incremental processing. An ; application that handles document elements in order can run as ; efficiently as possible. _Unlike_ a SAX parser, the framework does ; not require an application register stateful callbacks and surrender ; control to the parser. Rather, it is the application that can drive ; the framework -- calling its functions to get the current lexical or ; syntax element. These functions do not maintain or mutate any state ; save the input port. Therefore, the framework permits parsing of XML ; in a pure functional style, with the input port being a monad (or a ; linear, read-once parameter). ; Besides the PORT, there is another monad -- SEED. Most of the ; middle- and high-level parsers are single-threaded through the ; seed. The functions of this framework do not process or affect the ; SEED in any way: they simply pass it around as an instance of an ; opaque datatype. User functions, on the other hand, can use the ; seed to maintain user's state, to accumulate parsing results, etc. A ; user can freely mix his own functions with those of the ; framework. On the other hand, the user may wish to instantiate a ; high-level parser: ssax:make-elem-parser or ssax:make-parser. In ; the latter case, the user must provide functions of specific ; signatures, which are called at predictable moments during the ; parsing: to handle character data, element data, or processing ; instructions (PI). The functions are always given the SEED, among ; other parameters, and must return the new SEED. ; From a functional point of view, XML parsing is a combined ; pre-post-order traversal of a "tree" that is the XML document ; itself. This down-and-up traversal tells the user about an element ; when its start tag is encountered. The user is notified about the ; element once more, after all element's children have been ; handled. The process of XML parsing therefore is a fold over the ; raw XML document. Unlike a fold over trees defined in [1], the ; parser is necessarily single-threaded -- obviously as elements ; in a text XML document are laid down sequentially. The parser ; therefore is a tree fold that has been transformed to accept an ; accumulating parameter [1,2]. ; Formally, the denotational semantics of the parser can be expressed ; as ; parser:: (Start-tag -> Seed -> Seed) -> ; (Start-tag -> Seed -> Seed -> Seed) -> ; (Char-Data -> Seed -> Seed) -> ; XML-text-fragment -> Seed -> Seed ; parser fdown fup fchar "<elem attrs> content </elem>" seed ; = fup "<elem attrs>" seed ; (parser fdown fup fchar "content" (fdown "<elem attrs>" seed)) ; ; parser fdown fup fchar "char-data content" seed ; = parser fdown fup fchar "content" (fchar "char-data" seed) ; ; parser fdown fup fchar "elem-content content" seed ; = parser fdown fup fchar "content" ( ; parser fdown fup fchar "elem-content" seed) ; Compare the last two equations with the left fold ; fold-left kons elem:list seed = fold-left kons list (kons elem seed) ; The real parser created my ssax:make-parser is slightly more complicated, ; to account for processing instructions, entity references, namespaces, ; processing of document type declaration, etc. ; The XML standard document referred to in this module is ; http://www.w3.org/TR/1998/REC-xml-19980210.html ; ; The present file also defines a procedure that parses the text of an ; XML document or of a separate element into SXML, an ; S-expression-based model of an XML Information Set. SXML is also an ; Abstract Syntax Tree of an XML document. SXML is similar ; but not identical to DOM; SXML is particularly suitable for ; Scheme-based XML/HTML authoring, SXPath queries, and tree ; transformations. See SXML.html for more details. ; SXML is a term implementation of evaluation of the XML document [3]. ; The other implementation is context-passing. ; The present frameworks fully supports the XML Namespaces Recommendation: ; http://www.w3.org/TR/REC-xml-names/ ; Other links: ; [1] Jeremy Gibbons, Geraint Jones, "The Under-appreciated Unfold," ; Proc. ICFP'98, 1998, pp. 273-279. ; [2] Richard S. Bird, The promotion and accumulation strategies in ; transformational programming, ACM Trans. Progr. Lang. Systems, ; 6(4):487-504, October 1984. ; [3] Ralf Hinze, "Deriving Backtracking Monad Transformers," ; Functional Pearl. Proc ICFP'00, pp. 186-197. ; IMPORT ; parser-error ssax:warn, see Handling of errors, below ; functions declared in files util.scm, input-parse.scm and look-for-str.scm ; char-encoding.scm for various platform-specific character-encoding functions. ; From SRFI-13: string-concatenate/shared and string-concatenate-reverse/shared ; If a particular implementation lacks SRFI-13 support, please ; include the file srfi-13-local.scm ; Handling of errors ; This package relies on a function parser-error, which must be defined ; by a user of the package. The function has the following signature: ; parser-error PORT MESSAGE SPECIALISING-MSG* ; Many procedures of this package call 'parser-error' whenever a ; parsing, well-formedness or validation error is encountered. The ; first argument is a port, which typically points to the offending ; character or its neighborhood. Most of the Scheme systems let the ; user query a PORT for the current position. The MESSAGE argument ; indicates a failed XML production or a failed XML constraint. The ; latter is referred to by its anchor name in the XML Recommendation ; or XML Namespaces Recommendation. The parsing library (e.g., ; next-token, assert-curr-char) invoke 'parser-error' as well, in ; exactly the same way. See input-parse.scm for more details. ; See ; http://pair.com/lisovsky/download/parse-error.scm ; for an excellent example of such a redefined parser-error function. ; ; In addition, the present code invokes a function ssax:warn ; ssax:warn PORT MESSAGE SPECIALISING-MSG* ; to notify the user about warnings that are NOT errors but still ; may alert the user. ; ; Again, parser-error and ssax:warn are supposed to be defined by the ; user. However, if a run-test macro below is set to include ; self-tests, this present code does provide the definitions for these ; functions to allow tests to run. ; Misc notes ; It seems it is highly desirable to separate tests out in a dedicated ; file. ; ; Jim Bender wrote on Mon, 9 Sep 2002 20:03:42 EDT on the SSAX-SXML ; mailing list (message A fine-grained "lego") ; The task was to record precise source location information, as PLT ; does with its current XML parser. That parser records the start and ; end location (filepos, line#, column#) for pi, elements, attributes, ; chuncks of "pcdata". ; As suggested above, though, in some cases I needed to be able force ; open an interface that did not yet exist. For instance, I added an ; "end-char-data-hook", which would be called at the end of char-data ; fragment. This returns a function of type (seed -> seed) which is ; invoked on the current seed only if read-char-data has indeed reached ; the end of a block of char data (after reading a new token. ; But the deepest interface that I needed to expose was that of reading ; attributes. In the official distribution, this is not even a separate ; function. Instead, it is embedded within SSAX:read-attributes. This ; required some small re-structuring as well. ; This definitely will not be to everyone's taste (nor needed by most). ; Certainly, the existing make-parser interface addresses most custom ; needs. And likely 80-90 lines of a "link specification" to create a ; parser from many tiny little lego blocks may please only a few, while ; appalling others. ; The code is available at http://celtic.benderweb.net/ssax-lego.plt or ; http://celtic.benderweb.net/ssax-lego.tar.gz ; In the examples directory, I provide: ; - a unit version of the make-parser interface, ; - a simple SXML parser using that interface, ; - an SXML parser which directly uses the "new lego", ; - a pseudo-SXML parser, which records source location information ; - and lastly a parser which returns the structures used in PLT's xml ; collection, with source location information ; $Id: SSAX.scm,v 5.1 2004/07/07 16:02:30 sperber Exp $ ;^^^^^^^^^ ; See the Makefile in the ../tests directory ; (in particular, the rule vSSAX) for an example of how ; to run this code on various Scheme systems. ; See SSAX examples for many samples of using this code, ; again, on a variety of Scheme systems. ; See http://ssax.sf.net/ ; The following macro runs built-in test cases -- or does not run, ; depending on which of the two cases below you commented out ; Case 1: no tests: ;(define-macro run-test (lambda body '(begin #f))) ;(define-syntax run-test (syntax-rules () ((run-test . args) (begin #f)))) ; Case 2: with tests. ; The following macro could've been defined just as ; (define-macro run-test (lambda body `(begin (display "\n-->Test\n") ,@body))) ; ; Instead, it's more involved, to make up for case-insensitivity of ; symbols on some Scheme systems. In Gambit, symbols are case ; sensitive: (eq? 'A 'a) is #f and (eq? 'Aa (string->symbol "Aa")) is ; #t. On some systems, symbols are case-insensitive and just the ; opposite is true. Therefore, we introduce a notation '"ASymbol" (a ; quoted string) that stands for a case-_sensitive_ ASymbol -- on any ; R5RS Scheme system. This notation is valid only within the body of ; run-test. ; The notation is implemented by scanning the run-test's ; body and replacing every occurrence of (quote "str") with the result ; of (string->symbol "str"). We can do such a replacement at macro-expand ; time (rather than at run time). ; Here's the previous version of run-test, implemented as a low-level ; macro. ; (define-macro run-test ; (lambda body ; (define (re-write body) ; (cond ; ((vector? body) ; (list->vector (re-write (vector->list body)))) ; ((not (pair? body)) body) ; ((and (eq? 'quote (car body)) (pair? (cdr body)) ; (string? (cadr body))) ; (string->symbol (cadr body))) ; (else (cons (re-write (car body)) (re-write (cdr body)))))) ; (cons 'begin (re-write body)))) ; ; For portability, it is re-written as syntax-rules. The syntax-rules ; version is less powerful: for example, it can't handle ; (case x (('"Foo") (do-on-Foo))) whereas the low-level macro ; could correctly place a case-sensitive symbol at the right place. ; We also do not scan vectors (because we don't use them here). ; Twice-deep quasiquotes aren't handled either. ; Still, the syntax-rules version satisfies our immediate needs. ; Incidentally, I originally didn't believe that the macro below ; was at all possible. ; ; The macro is written in a continuation-passing style. A continuation ; typically has the following structure: (k-head ! . args) ; When the continuation is invoked, we expand into ; (k-head <computed-result> . arg). That is, the dedicated symbol ! ; is the placeholder for the result. ; ; It seems that the most modular way to write the run-test macro would ; be the following ; ; (define-syntax run-test ; (syntax-rules () ; ((run-test . ?body) ; (letrec-syntax ; ((scan-exp ; (scan-exp body k) ; (syntax-rules (quote quasiquote !) ; ((scan-exp (quote (hd . tl)) k) ; (scan-lit-lst (hd . tl) (do-wrap ! quasiquote k))) ; ((scan-exp (quote x) (k-head ! . args)) ; (k-head ; (if (string? (quote x)) (string->symbol (quote x)) (quote x)) ; . args)) ; ((scan-exp (hd . tl) k) ; (scan-exp hd (do-tl ! scan-exp tl k))) ; ((scan-exp x (k-head ! . args)) ; (k-head x . args)))) ; (do-tl ; (syntax-rules (!) ; ((do-tl processed-hd fn () (k-head ! . args)) ; (k-head (processed-hd) . args)) ; ((do-tl processed-hd fn old-tl k) ; (fn old-tl (do-cons ! processed-hd k))))) ; ... ; (do-finish ; (syntax-rules () ; ((do-finish (new-body)) new-body) ; ((do-finish new-body) (begin . new-body)))) ; ... ; (scan-exp ?body (do-finish !)) ; )))) ; ; Alas, that doesn't work on all systems. We hit yet another dark ; corner of the R5RS macros. The reason is that run-test is used in ; the code below to introduce definitions. For example: ; (run-test ; (define (ssax:warn port msg . other-msg) ; (apply cerr (cons* nl "Warning: " msg other-msg))) ; ) ; This code expands to ; (begin ; (define (ssax:warn port msg . other-msg) ...)) ; so the definition gets spliced in into the top level. Right? ; Well, On Petite Chez Scheme it is so. However, many other systems ; don't like this approach. The reason is that the invocation of ; (run-test (define (ssax:warn port msg . other-msg) ...)) ; first expands into ; (letrec-syntax (...) ; (scan-exp ((define (ssax:warn port msg . other-msg) ...)) ...)) ; because of the presence of (letrec-syntax ...), the begin form that ; is generated eventually is no longer at the top level! The begin ; form in Scheme is an overloading of two distinct forms: top-level ; begin and the other begin. The forms have different rules: for example, ; (begin (define x 1)) is OK for a top-level begin but not OK for ; the other begin. Some Scheme systems see the that the macro ; (run-test ...) expands into (letrec-syntax ...) and decide right there ; that any further (begin ...) forms are NOT top-level begin forms. ; The only way out is to make sure all our macros are top-level. ; The best approach <sigh> seems to be to make run-test one huge ; top-level macro. (define-syntax run-test (syntax-rules (define) ((run-test "scan-exp" (define vars body)) (define vars (run-test "scan-exp" body))) ((run-test "scan-exp" ?body) (letrec-syntax ((scan-exp ; (scan-exp body k) (syntax-rules (quote quasiquote !) ((scan-exp '() (k-head ! . args)) (k-head '() . args)) ((scan-exp (quote (hd . tl)) k) (scan-lit-lst (hd . tl) (do-wrap ! quasiquote k))) ((scan-exp (quasiquote (hd . tl)) k) (scan-lit-lst (hd . tl) (do-wrap ! quasiquote k))) ((scan-exp (quote x) (k-head ! . args)) (k-head (if (string? (quote x)) (string->symbol (quote x)) (quote x)) . args)) ((scan-exp (hd . tl) k) (scan-exp hd (do-tl ! scan-exp tl k))) ((scan-exp x (k-head ! . args)) (k-head x . args)))) (do-tl (syntax-rules (!) ((do-tl processed-hd fn () (k-head ! . args)) (k-head (processed-hd) . args)) ((do-tl processed-hd fn old-tl k) (fn old-tl (do-cons ! processed-hd k))))) (do-cons (syntax-rules (!) ((do-cons processed-tl processed-hd (k-head ! . args)) (k-head (processed-hd . processed-tl) . args)))) (do-wrap (syntax-rules (!) ((do-wrap val fn (k-head ! . args)) (k-head (fn val) . args)))) (do-finish (syntax-rules () ((do-finish new-body) new-body))) (scan-lit-lst ; scan literal list (syntax-rules (quote unquote unquote-splicing !) ((scan-lit-lst '() (k-head ! . args)) (k-head '() . args)) ((scan-lit-lst (quote (hd . tl)) k) (do-tl quote scan-lit-lst ((hd . tl)) k)) ((scan-lit-lst (unquote x) k) (scan-exp x (do-wrap ! unquote k))) ((scan-lit-lst (unquote-splicing x) k) (scan-exp x (do-wrap ! unquote-splicing k))) ((scan-lit-lst (quote x) (k-head ! . args)) (k-head ,(if (string? (quote x)) (string->symbol (quote x)) (quote x)) . args)) ((scan-lit-lst (hd . tl) k) (scan-lit-lst hd (do-tl ! scan-lit-lst tl k))) ((scan-lit-lst x (k-head ! . args)) (k-head x . args)))) ) (scan-exp ?body (do-finish !)))) ((run-test body ...) (begin (run-test "scan-exp" body) ...)) )) ;======================================================================== ; Data Types ; TAG-KIND ; a symbol 'START, 'END, 'PI, 'DECL, 'COMMENT, 'CDSECT ; or 'ENTITY-REF that identifies a markup token ; UNRES-NAME ; a name (called GI in the XML Recommendation) as given in an xml ; document for a markup token: start-tag, PI target, attribute name. ; If a GI is an NCName, UNRES-NAME is this NCName converted into ; a Scheme symbol. If a GI is a QName, UNRES-NAME is a pair of ; symbols: (PREFIX . LOCALPART) ; RES-NAME ; An expanded name, a resolved version of an UNRES-NAME. ; For an element or an attribute name with a non-empty namespace URI, ; RES-NAME is a pair of symbols, (URI-SYMB . LOCALPART). ; Otherwise, it's a single symbol. ; ELEM-CONTENT-MODEL ; A symbol: ; ANY - anything goes, expect an END tag. ; EMPTY-TAG - no content, and no END-tag is coming ; EMPTY - no content, expect the END-tag as the next token ; PCDATA - expect character data only, and no children elements ; MIXED ; ELEM-CONTENT ; URI-SYMB ; A symbol representing a namespace URI -- or other symbol chosen ; by the user to represent URI. In the former case, ; URI-SYMB is created by %-quoting of bad URI characters and ; converting the resulting string into a symbol. ; NAMESPACES ; A list representing namespaces in effect. An element of the list ; has one of the following forms: ; (PREFIX URI-SYMB . URI-SYMB) or ; (PREFIX USER-PREFIX . URI-SYMB) ; USER-PREFIX is a symbol chosen by the user ; to represent the URI. ; (#f USER-PREFIX . URI-SYMB) ; Specification of the user-chosen prefix and a URI-SYMBOL. ; (*DEFAULT* USER-PREFIX . URI-SYMB) ; Declaration of the default namespace ; (*DEFAULT* #f . #f) ; Un-declaration of the default namespace. This notation ; represents overriding of the previous declaration ; A NAMESPACES list may contain several elements for the same PREFIX. ; The one closest to the beginning of the list takes effect. ; ATTLIST ; An ordered collection of (NAME . VALUE) pairs, where NAME is ; a RES-NAME or an UNRES-NAME. The collection is an ADT ; STR-HANDLER ; A procedure of three arguments: STRING1 STRING2 SEED ; returning a new SEED ; The procedure is supposed to handle a chunk of character data ; STRING1 followed by a chunk of character data STRING2. ; STRING2 is a short string, often "\n" and even "" ; ENTITIES ; An assoc list of pairs: ; (named-entity-name . named-entity-body) ; where named-entity-name is a symbol under which the entity was ; declared, named-entity-body is either a string, or ; (for an external entity) a thunk that will return an ; input port (from which the entity can be read). ; named-entity-body may also be #f. This is an indication that a ; named-entity-name is currently being expanded. A reference to ; this named-entity-name will be an error: violation of the ; WFC nonrecursion. ; ; As an extension to the original SSAX, Guile allows a ; named-entity-name of *DEFAULT* to indicate a fallback procedure, ; called as (FALLBACK PORT NAME). The procedure should return a ; string. ; XML-TOKEN -- a record ; In Gambit, you can use the following declaration: ; (define-structure xml-token kind head) ; The following declaration is "standard" as it follows SRFI-9: ;;(define-record-type xml-token (make-xml-token kind head) xml-token? ;; (kind xml-token-kind) ;; (head xml-token-head) ) ; No field mutators are declared as SSAX is a pure functional parser ; ; But to make the code more portable, we define xml-token simply as ; a pair. It suffices for us. Furthermore, xml-token-kind and xml-token-head ; can be defined as simple procedures. However, they are declared as ; macros below for efficiency. (define (make-xml-token kind head) (cons kind head)) (define xml-token? pair?) (define-syntax xml-token-kind (syntax-rules () ((xml-token-kind token) (car token)))) (define-syntax xml-token-head (syntax-rules () ((xml-token-head token) (cdr token)))) ; (define-macro xml-token-kind (lambda (token) `(car ,token))) ; (define-macro xml-token-head (lambda (token) `(cdr ,token))) ; This record represents a markup, which is, according to the XML ; Recommendation, "takes the form of start-tags, end-tags, empty-element tags, ; entity references, character references, comments, CDATA section delimiters, ; document type declarations, and processing instructions." ; ; kind -- a TAG-KIND ; head -- an UNRES-NAME. For xml-tokens of kinds 'COMMENT and ; 'CDSECT, the head is #f ; ; For example, ; <P> => kind='START, head='P ; </P> => kind='END, head='P ; <BR/> => kind='EMPTY-EL, head='BR ; <!DOCTYPE OMF ...> => kind='DECL, head='DOCTYPE ; <?xml version="1.0"?> => kind='PI, head='xml ; &my-ent; => kind = 'ENTITY-REF, head='my-ent ; ; Character references are not represented by xml-tokens as these references ; are transparently resolved into the corresponding characters. ; ; XML-DECL -- a record ; The following is Gambit-specific, see below for a portable declaration ;(define-structure xml-decl elems entities notations) ; The record represents a datatype of an XML document: the list of ; declared elements and their attributes, declared notations, list of ; replacement strings or loading procedures for parsed general ; entities, etc. Normally an xml-decl record is created from a DTD or ; an XML Schema, although it can be created and filled in in many other ; ways (e.g., loaded from a file). ; ; elems: an (assoc) list of decl-elem or #f. The latter instructs ; the parser to do no validation of elements and attributes. ; ; decl-elem: declaration of one element: ; (elem-name elem-content decl-attrs) ; elem-name is an UNRES-NAME for the element. ; elem-content is an ELEM-CONTENT-MODEL. ; decl-attrs is an ATTLIST, of (ATTR-NAME . VALUE) associations ; !!!This element can declare a user procedure to handle parsing of an ; element (e.g., to do a custom validation, or to build a hash of ; IDs as they're encountered). ; ; decl-attr: an element of an ATTLIST, declaration of one attribute ; (attr-name content-type use-type default-value) ; attr-name is an UNRES-NAME for the declared attribute ; content-type is a symbol: CDATA, NMTOKEN, NMTOKENS, ... ; or a list of strings for the enumerated type. ; use-type is a symbol: REQUIRED, IMPLIED, FIXED ; default-value is a string for the default value, or #f if not given. ; ; ; see a function make-empty-xml-decl to make a XML declaration entry ; suitable for a non-validating parsing. ;------------------------- ; Utilities ; ssax:warn PORT MESSAGE SPECIALISING-MSG* ; to notify the user about warnings that are NOT errors but still ; may alert the user. ; Result is unspecified. ; We need to define the function to allow the self-tests to run. ; Normally the definition of ssax:warn is to be provided by the user. (run-test (define (ssax:warn port msg . other-msg) (apply cerr (cons* nl "Warning: " msg other-msg))) ) ; parser-error PORT MESSAGE SPECIALISING-MSG* ; to let the user know of a syntax error or a violation of a ; well-formedness or validation constraint. ; Result is unspecified. ; We need to define the function to allow the self-tests to run. ; Normally the definition of parser-error is to be provided by the user. (run-test (define (parser-error port msg . specializing-msgs) (apply error (cons msg specializing-msgs))) ) ; The following is a function that is often used in validation tests, ; to make sure that the computed result matches the expected one. ; This function is a standard equal? predicate with one exception. ; On Scheme systems where (string->symbol "A") and a symbol A ; are the same, equal_? is precisely equal? ; On other Scheme systems, we compare symbols disregarding their case. ; Since this function is used only in tests, we don't have to ; strive to make it efficient. (run-test (define (equal_? e1 e2) (if (eq? 'A (string->symbol "A")) (equal? e1 e2) (cond ((symbol? e1) (and (symbol? e2) (string-ci=? (symbol->string e1) (symbol->string e2)))) ((pair? e1) (and (pair? e2) (equal_? (car e1) (car e2)) (equal_? (cdr e1) (cdr e2)))) ((vector? e1) (and (vector? e2) (equal_? (vector->list e1) (vector->list e2)))) (else (equal? e1 e2))))) ) ; The following function, which is often used in validation tests, ; lets us conveniently enter newline, CR and tab characters in a character ; string. ; unesc-string: ESC-STRING -> STRING ; where ESC-STRING is a character string that may contain ; %n -- for #\newline ; %r -- for #\return ; %t -- for #\tab ; %% -- for #\% ; ; The result of unesc-string is a character string with all %-combinations ; above replaced with their character equivalents (run-test (define (unesc-string str) (call-with-input-string str (lambda (port) (let loop ((frags '())) (let* ((token (next-token '() '(#\% *eof*) "unesc-string" port)) (cterm (read-char port)) (frags (cons token frags))) (if (eof-object? cterm) (string-concatenate-reverse/shared frags) (let ((cchar (read-char port))) ; char after #\% (if (eof-object? cchar) (error "unexpected EOF after reading % in unesc-string:" str) (loop (cons (case cchar ((#\n) (string #\newline)) ((#\r) (string char-return)) ((#\t) (string char-tab)) ((#\%) "%") (else (error "bad %-char in unesc-string:" cchar))) frags)))))))))) ) ; Test if a string is made of only whitespace ; An empty string is considered made of whitespace as well (define (string-whitespace? str) (let ((len (string-length str))) (cond ((zero? len) #t) ((= 1 len) (char-whitespace? (string-ref str 0))) ((= 2 len) (and (char-whitespace? (string-ref str 0)) (char-whitespace? (string-ref str 1)))) (else (let loop ((i 0)) (or (>= i len) (and (char-whitespace? (string-ref str i)) (loop (inc i))))))))) ; Find val in alist ; Return (values found-el remaining-alist) or ; (values #f alist) (define (assq-values val alist) (let loop ((alist alist) (scanned '())) (cond ((null? alist) (values #f scanned)) ((equal? val (caar alist)) (values (car alist) (append scanned (cdr alist)))) (else (loop (cdr alist) (cons (car alist) scanned)))))) ; From SRFI-1 (define (fold-right kons knil lis1) (let recur ((lis lis1)) (if (null? lis) knil (let ((head (car lis))) (kons head (recur (cdr lis))))))) ; Left fold combinator for a single list (define (fold kons knil lis1) (let lp ((lis lis1) (ans knil)) (if (null? lis) ans (lp (cdr lis) (kons (car lis) ans))))) ;======================================================================== ; Lower-level parsers and scanners ; ; They deal with primitive lexical units (Names, whitespaces, tags) ; and with pieces of more generic productions. Most of these parsers ; must be called in appropriate context. For example, ssax:complete-start-tag ; must be called only when the start-tag has been detected and its GI ; has been read. ;------------------------------------------------------------------------ ; Low-level parsing code ; Skip the S (whitespace) production as defined by ; [3] S ::= (#x20 | #x9 | #xD | #xA) ; The procedure returns the first not-whitespace character it ; encounters while scanning the PORT. This character is left ; on the input stream. (define ssax:S-chars (map ascii->char '(32 10 9 13))) (define (ssax:skip-S port) (skip-while ssax:S-chars port)) ; Read a Name lexem and return it as string ; [4] NameChar ::= Letter | Digit | '.' | '-' | '_' | ':' ; | CombiningChar | Extender ; [5] Name ::= (Letter | '_' | ':') (NameChar)* ; ; This code supports the XML Namespace Recommendation REC-xml-names, ; which modifies the above productions as follows: ; ; [4] NCNameChar ::= Letter | Digit | '.' | '-' | '_' ; | CombiningChar | Extender ; [5] NCName ::= (Letter | '_') (NCNameChar)* ; As the Rec-xml-names says, ; "An XML document conforms to this specification if all other tokens ; [other than element types and attribute names] in the document which ; are required, for XML conformance, to match the XML production for ; Name, match this specification's production for NCName." ; Element types and attribute names must match the production QName, ; defined below. ; Check to see if a-char may start a NCName (define (ssax:ncname-starting-char? a-char) (and (char? a-char) (or (char-alphabetic? a-char) (char=? #\_ a-char)))) ; Read a NCName starting from the current position in the PORT and ; return it as a symbol. (define (ssax:read-NCName port) (let ((first-char (peek-char port))) (or (ssax:ncname-starting-char? first-char) (parser-error port "XMLNS [4] for '" first-char "'"))) (string->symbol (next-token-of (lambda (c) (cond ((eof-object? c) #f) ((char-alphabetic? c) c) ((string-index "0123456789.-_" c) c) (else #f))) port))) ; Read a (namespace-) Qualified Name, QName, from the current ; position in the PORT. ; From REC-xml-names: ; [6] QName ::= (Prefix ':')? LocalPart ; [7] Prefix ::= NCName ; [8] LocalPart ::= NCName ; Return: an UNRES-NAME (define (ssax:read-QName port) (let ((prefix-or-localpart (ssax:read-NCName port))) (case (peek-char port) ((#\:) ; prefix was given after all (read-char port) ; consume the colon (cons prefix-or-localpart (ssax:read-NCName port))) (else prefix-or-localpart) ; Prefix was omitted ))) ; The prefix of the pre-defined XML namespace (define ssax:Prefix-XML (string->symbol "xml")) (run-test (assert (eq? '_ (call-with-input-string "_" ssax:read-NCName))) (assert (eq? '_ (call-with-input-string "_" ssax:read-QName))) (assert (eq? (string->symbol "_abc_") (call-with-input-string "_abc_;" ssax:read-NCName))) (assert (eq? (string->symbol "_abc_") (call-with-input-string "_abc_;" ssax:read-QName))) (assert (eq? (string->symbol "_a.b") (call-with-input-string "_a.b " ssax:read-QName))) (assert (equal? (cons (string->symbol "_a.b") (string->symbol "d.1-ef-")) (call-with-input-string "_a.b:d.1-ef-;" ssax:read-QName))) (assert (equal? (cons (string->symbol "a") (string->symbol "b")) (call-with-input-string "a:b:c" ssax:read-QName))) (assert (failed? (call-with-input-string ":abc" ssax:read-NCName))) (assert (failed? (call-with-input-string "1:bc" ssax:read-NCName))) ) ; Compare one RES-NAME or an UNRES-NAME with the other. ; Return a symbol '<, '>, or '= depending on the result of ; the comparison. ; Names without PREFIX are always smaller than those with the PREFIX. (define name-compare (letrec ((symbol-compare (lambda (symb1 symb2) (cond ((eq? symb1 symb2) '=) ((string<? (symbol->string symb1) (symbol->string symb2)) '<) (else '>))))) (lambda (name1 name2) (cond ((symbol? name1) (if (symbol? name2) (symbol-compare name1 name2) '<)) ((symbol? name2) '>) ((eq? name2 ssax:largest-unres-name) '<) ((eq? name1 ssax:largest-unres-name) '>) ((eq? (car name1) (car name2)) ; prefixes the same (symbol-compare (cdr name1) (cdr name2))) (else (symbol-compare (car name1) (car name2))))))) ; An UNRES-NAME that is postulated to be larger than anything that can occur in ; a well-formed XML document. ; name-compare enforces this postulate. (define ssax:largest-unres-name (cons (string->symbol "#LARGEST-SYMBOL") (string->symbol "#LARGEST-SYMBOL"))) (run-test (assert (eq? '= (name-compare 'ABC 'ABC))) (assert (eq? '< (name-compare 'ABC 'ABCD))) (assert (eq? '> (name-compare 'XB 'ABCD))) (assert (eq? '> (name-compare '(HTML . PRE) 'PRE))) (assert (eq? '< (name-compare 'HTML '(HTML . PRE)))) (assert (eq? '= (name-compare '(HTML . PRE) '(HTML . PRE)))) (assert (eq? '< (name-compare '(HTML . PRE) '(XML . PRE)))) (assert (eq? '> (name-compare '(HTML . PRE) '(HTML . P)))) (assert (eq? '< (name-compare '(HTML . PRE) ssax:largest-unres-name))) (assert (eq? '< (name-compare '(ZZZZ . ZZZ) ssax:largest-unres-name))) (assert (eq? '> (name-compare ssax:largest-unres-name '(ZZZZ . ZZZ) ))) ) ; procedure: ssax:read-markup-token PORT ; This procedure starts parsing of a markup token. The current position ; in the stream must be #\<. This procedure scans enough of the input stream ; to figure out what kind of a markup token it is seeing. The procedure returns ; an xml-token structure describing the token. Note, generally reading ; of the current markup is not finished! In particular, no attributes of ; the start-tag token are scanned. ; ; Here's a detailed break out of the return values and the position in the PORT ; when that particular value is returned: ; PI-token: only PI-target is read. ; To finish the Processing Instruction and disregard it, ; call ssax:skip-pi. ssax:read-attributes may be useful ; as well (for PIs whose content is attribute-value ; pairs) ; END-token: The end tag is read completely; the current position ; is right after the terminating #\> character. ; COMMENT is read and skipped completely. The current position ; is right after "-->" that terminates the comment. ; CDSECT The current position is right after "<!CDATA[" ; Use ssax:read-cdata-body to read the rest. ; DECL We have read the keyword (the one that follows "<!") ; identifying this declaration markup. The current ; position is after the keyword (usually a ; whitespace character) ; ; START-token We have read the keyword (GI) of this start tag. ; No attributes are scanned yet. We don't know if this ; tag has an empty content either. ; Use ssax:complete-start-tag to finish parsing of ; the token. (define ssax:read-markup-token ; procedure ssax:read-markup-token port (let () ; we have read "<!-". Skip through the rest of the comment ; Return the 'COMMENT token as an indication we saw a comment ; and skipped it. (define (skip-comment port) (assert-curr-char '(#\-) "XML [15], second dash" port) (if (not (find-string-from-port? "-->" port)) (parser-error port "XML [15], no -->")) (make-xml-token 'COMMENT #f)) ; we have read "<![" that must begin a CDATA section (define (read-cdata port) (assert (string=? "CDATA[" (read-string 6 port))) (make-xml-token 'CDSECT #f)) (lambda (port) (assert-curr-char '(#\<) "start of the token" port) (case (peek-char port) ((#\/) (read-char port) (begin0 (make-xml-token 'END (ssax:read-QName port)) (ssax:skip-S port) (assert-curr-char '(#\>) "XML [42]" port))) ((#\?) (read-char port) (make-xml-token 'PI (ssax:read-NCName port))) ((#\!) (case (peek-next-char port) ((#\-) (read-char port) (skip-comment port)) ((#\[) (read-char port) (read-cdata port)) (else (make-xml-token 'DECL (ssax:read-NCName port))))) (else (make-xml-token 'START (ssax:read-QName port))))) )) ; The current position is inside a PI. Skip till the rest of the PI (define (ssax:skip-pi port) (if (not (find-string-from-port? "?>" port)) (parser-error port "Failed to find ?> terminating the PI"))) ; The current position is right after reading the PITarget. We read the ; body of PI and return is as a string. The port will point to the ; character right after '?>' combination that terminates PI. ; [16] PI ::= '<?' PITarget (S (Char* - (Char* '?>' Char*)))? '?>' (define (ssax:read-pi-body-as-string port) (ssax:skip-S port) ; skip WS after the PI target name (string-concatenate/shared (let loop () (let ((pi-fragment (next-token '() '(#\?) "reading PI content" port))) (if (eqv? #\> (peek-next-char port)) (begin (read-char port) (cons pi-fragment '())) (cons* pi-fragment "?" (loop))))))) (run-test (assert (equal? "p1 content " (call-with-input-string "<?pi1 p1 content ?>" (lambda (port) (ssax:read-markup-token port) (ssax:read-pi-body-as-string port))))) (assert (equal? "pi2? content? ?" (call-with-input-string "<?pi2 pi2? content? ??>" (lambda (port) (ssax:read-markup-token port) (ssax:read-pi-body-as-string port))))) ) ;(define (ssax:read-pi-body-as-name-values port) ; The current pos in the port is inside an internal DTD subset ; (e.g., after reading #\[ that begins an internal DTD subset) ; Skip until the "]>" combination that terminates this DTD (define (ssax:skip-internal-dtd port) (if (not (find-string-from-port? "]>" port)) (parser-error port "Failed to find ]> terminating the internal DTD subset"))) ; procedure+: ssax:read-cdata-body PORT STR-HANDLER SEED ; ; This procedure must be called after we have read a string "<![CDATA[" ; that begins a CDATA section. The current position must be the first ; position of the CDATA body. This function reads _lines_ of the CDATA ; body and passes them to a STR-HANDLER, a character data consumer. ; ; The str-handler is a STR-HANDLER, a procedure STRING1 STRING2 SEED. ; The first STRING1 argument to STR-HANDLER never contains a newline. ; The second STRING2 argument often will. On the first invocation of ; the STR-HANDLER, the seed is the one passed to ssax:read-cdata-body ; as the third argument. The result of this first invocation will be ; passed as the seed argument to the second invocation of the line ; consumer, and so on. The result of the last invocation of the ; STR-HANDLER is returned by the ssax:read-cdata-body. Note a ; similarity to the fundamental 'fold' iterator. ; ; Within a CDATA section all characters are taken at their face value, ; with only three exceptions: ; CR, LF, and CRLF are treated as line delimiters, and passed ; as a single #\newline to the STR-HANDLER ; "]]>" combination is the end of the CDATA section. ; > is treated as an embedded #\> character ; Note, < and & are not specially recognized (and are not expanded)! (define ssax:read-cdata-body (let ((cdata-delimiters (list char-return #\newline #\] #\&))) (lambda (port str-handler seed) (let loop ((seed seed)) (let ((fragment (next-token '() cdata-delimiters "reading CDATA" port))) ; that is, we're reading the char after the 'fragment' (case (read-char port) ((#\newline) (loop (str-handler fragment nl seed))) ((#\]) (if (not (eqv? (peek-char port) #\])) (loop (str-handler fragment "]" seed)) (let check-after-second-braket ((seed (if (string-null? fragment) seed (str-handler fragment "" seed)))) (case (peek-next-char port) ; after the second bracket ((#\>) (read-char port) seed) ; we have read "]]>" ((#\]) (check-after-second-braket (str-handler "]" "" seed))) (else (loop (str-handler "]]" "" seed))))))) ((#\&) ; Note that #\& within CDATA may stand for itself (let ((ent-ref ; it does not have to start an entity ref (next-token-of (lambda (c) (and (not (eof-object? c)) (char-alphabetic? c) c)) port))) (cond ; ">" is to be replaced with #\> ((and (string=? "gt" ent-ref) (eqv? (peek-char port) #\;)) (read-char port) (loop (str-handler fragment ">" seed))) (else (loop (str-handler ent-ref "" (str-handler fragment "&" seed))))))) (else ; Must be CR: if the next char is #\newline, skip it (if (eqv? (peek-char port) #\newline) (read-char port)) (loop (str-handler fragment nl seed))) )))))) ; a few lines of validation code (run-test (letrec ((consumer (lambda (fragment foll-fragment seed) (cons* (if (equal? foll-fragment (string #\newline)) " NL" foll-fragment) fragment seed))) (test (lambda (str expected-result) (newline) (display "body: ") (write str) (newline) (display "Result: ") (let ((result (reverse (call-with-input-string (unesc-string str) (lambda (port) (ssax:read-cdata-body port consumer '())) )))) (write result) (assert (equal? result expected-result))))) ) (test "]]>" '()) (test "abcd]]>" '("abcd" "")) (test "abcd]]]>" '("abcd" "" "]" "")) (test "abcd]]]]>" '("abcd" "" "]" "" "]" "")) (test "abcd]]]]]>" '("abcd" "" "]" "" "]" "" "]" "")) (test "abcd]]]a]]>" '("abcd" "" "]" "" "]]" "" "a" "")) (test "abc%r%ndef%n]]>" '("abc" " NL" "def" " NL")) (test "%r%n%r%n]]>" '("" " NL" "" " NL")) (test "%r%n%r%na]]>" '("" " NL" "" " NL" "a" "")) (test "%r%r%r%na]]>" '("" " NL" "" " NL" "" " NL" "a" "")) (test "abc&!!!]]>" '("abc" "&" "" "" "!!!" "")) (test "abc]]>>&]]]>and]]>" '("abc" "" "]]" "" "" ">" "" "&" "gt" "" "" "&" "amp" "" ";" "" "]" "" "]]" "" "" ">" "and" "")) )) ; procedure+: ssax:read-char-ref PORT ; ; [66] CharRef ::= '&#' [0-9]+ ';' ; | '&#x' [0-9a-fA-F]+ ';' ; ; This procedure must be called after we we have read "&#" ; that introduces a char reference. ; The procedure reads this reference and returns the corresponding char ; The current position in PORT will be after ";" that terminates ; the char reference ; Faults detected: ; WFC: XML-Spec.html#wf-Legalchar ; ; According to Section "4.1 Character and Entity References" ; of the XML Recommendation: ; "[Definition: A character reference refers to a specific character ; in the ISO/IEC 10646 character set, for example one not directly ; accessible from available input devices.]" ; Therefore, we use a ucscode->string function to convert a character ; code into the character -- *regardless* of the current character ; encoding of the input stream. (define (ssax:read-char-ref port) (let* ((base (cond ((eqv? (peek-char port) #\x) (read-char port) 16) (else 10))) (name (next-token '() '(#\;) "XML [66]" port)) (char-code (string->number name base))) (read-char port) ; read the terminating #\; char (if (integer? char-code) (ucscode->string char-code) (parser-error port "[wf-Legalchar] broken for '" name "'")))) ; procedure+: ssax:handle-parsed-entity PORT NAME ENTITIES ; CONTENT-HANDLER STR-HANDLER SEED ; ; Expand and handle a parsed-entity reference ; port - a PORT ; name - the name of the parsed entity to expand, a symbol ; entities - see ENTITIES ; content-handler -- procedure PORT ENTITIES SEED ; that is supposed to return a SEED ; str-handler - a STR-HANDLER. It is called if the entity in question ; turns out to be a pre-declared entity ; ; The result is the one returned by CONTENT-HANDLER or STR-HANDLER ; Faults detected: ; WFC: XML-Spec.html#wf-entdeclared ; WFC: XML-Spec.html#norecursion (define ssax:predefined-parsed-entities `( (,(string->symbol "amp") . "&") (,(string->symbol "lt") . "<") (,(string->symbol "gt") . ">") (,(string->symbol "apos") . "'") (,(string->symbol "quot") . "\""))) (define (ssax:handle-parsed-entity port name entities content-handler str-handler seed) (cond ; First we check the list of the declared entities ((assq name entities) => (lambda (decl-entity) (let ((ent-body (cdr decl-entity)) ; mark the list to prevent recursion (new-entities (cons (cons name #f) entities))) (cond ((string? ent-body) (call-with-input-string ent-body (lambda (port) (content-handler port new-entities seed)))) ((procedure? ent-body) (let ((port (ent-body))) (begin0 (content-handler port new-entities seed) (close-input-port port)))) (else (parser-error port "[norecursion] broken for " name)))))) ((assq name ssax:predefined-parsed-entities) => (lambda (decl-entity) (str-handler (cdr decl-entity) "" seed))) ((assq '*DEFAULT* entities) => (lambda (decl-entity) (let ((fallback (cdr decl-entity)) (new-entities (cons (cons name #f) entities))) (cond ((procedure? fallback) (call-with-input-string (fallback port name) (lambda (port) (content-handler port new-entities seed)))) (else (parser-error port "[norecursion] broken for " name)))))) (else (parser-error port "[wf-entdeclared] broken for " name)))) ; The ATTLIST Abstract Data Type ; Currently is implemented as an assoc list sorted in the ascending ; order of NAMES. (define (make-empty-attlist) '()) ; Add a name-value pair to the existing attlist preserving the order ; Return the new list, in the sorted ascending order. ; Return #f if a pair with the same name already exists in the attlist (define (attlist-add attlist name-value) (if (null? attlist) (cons name-value attlist) (case (name-compare (car name-value) (caar attlist)) ((=) #f) ((<) (cons name-value attlist)) (else (cons (car attlist) (attlist-add (cdr attlist) name-value))) ))) (define attlist-null? null?) ; Given an non-null attlist, return a pair of values: the top and the rest (define (attlist-remove-top attlist) (values (car attlist) (cdr attlist))) (define (attlist->alist attlist) attlist) (define attlist-fold fold) ; procedure+: ssax:read-attributes PORT ENTITIES ; ; This procedure reads and parses a production Attribute* ; [41] Attribute ::= Name Eq AttValue ; [10] AttValue ::= '"' ([^<&"] | Reference)* '"' ; | "'" ([^<&'] | Reference)* "'" ; [25] Eq ::= S? '=' S? ; ; ; The procedure returns an ATTLIST, of Name (as UNRES-NAME), Value (as string) ; pairs. The current character on the PORT is a non-whitespace character ; that is not an ncname-starting character. ; ; Note the following rules to keep in mind when reading an 'AttValue' ; "Before the value of an attribute is passed to the application ; or checked for validity, the XML processor must normalize it as follows: ; - a character reference is processed by appending the referenced ; character to the attribute value ; - an entity reference is processed by recursively processing the ; replacement text of the entity [see ENTITIES] ; [named entities amp lt gt quot apos are assumed pre-declared] ; - a whitespace character (#x20, #xD, #xA, #x9) is processed by appending #x20 ; to the normalized value, except that only a single #x20 is appended for a ; "#xD#xA" sequence that is part of an external parsed entity or the ; literal entity value of an internal parsed entity ; - other characters are processed by appending them to the normalized value " ; ; ; Faults detected: ; WFC: XML-Spec.html#CleanAttrVals ; WFC: XML-Spec.html#uniqattspec (define ssax:read-attributes ; ssax:read-attributes port entities (let ((value-delimeters (append ssax:S-chars '(#\< #\&)))) ; Read the AttValue from the PORT up to the delimiter ; (which can be a single or double-quote character, ; or even a symbol *eof*) ; 'prev-fragments' is the list of string fragments, accumulated ; so far, in reverse order. ; Return the list of fragments with newly read fragments ; prepended. (define (read-attrib-value delimiter port entities prev-fragments) (let* ((new-fragments (cons (next-token '() (cons delimiter value-delimeters) "XML [10]" port) prev-fragments)) (cterm (read-char port))) (cond ((or (eof-object? cterm) (eqv? cterm delimiter)) new-fragments) ((eqv? cterm char-return) ; treat a CR and CRLF as a LF (if (eqv? (peek-char port) #\newline) (read-char port)) (read-attrib-value delimiter port entities (cons " " new-fragments))) ((memv cterm ssax:S-chars) (read-attrib-value delimiter port entities (cons " " new-fragments))) ((eqv? cterm #\&) (cond ((eqv? (peek-char port) #\#) (read-char port) (read-attrib-value delimiter port entities (cons (ssax:read-char-ref port) new-fragments))) (else (read-attrib-value delimiter port entities (read-named-entity port entities new-fragments))))) (else (parser-error port "[CleanAttrVals] broken"))))) ; we have read "&" that introduces a named entity reference. ; read this reference and return the result of ; normalizing of the corresponding string ; (that is, read-attrib-value is applied to the replacement ; text of the entity) ; The current position will be after ";" that terminates ; the entity reference (define (read-named-entity port entities fragments) (let ((name (ssax:read-NCName port))) (assert-curr-char '(#\;) "XML [68]" port) (ssax:handle-parsed-entity port name entities (lambda (port entities fragments) (read-attrib-value '*eof* port entities fragments)) (lambda (str1 str2 fragments) (if (equal? "" str2) (cons str1 fragments) (cons* str2 str1 fragments))) fragments))) (lambda (port entities) (let loop ((attr-list (make-empty-attlist))) (if (not (ssax:ncname-starting-char? (ssax:skip-S port))) attr-list (let ((name (ssax:read-QName port))) (ssax:skip-S port) (assert-curr-char '(#\=) "XML [25]" port) (ssax:skip-S port) (let ((delimiter (assert-curr-char '(#\' #\" ) "XML [10]" port))) (loop (or (attlist-add attr-list (cons name (string-concatenate-reverse/shared (read-attrib-value delimiter port entities '())))) (parser-error port "[uniqattspec] broken for " name)))))))) )) ; a few lines of validation code (run-test (letrec ((test (lambda (str decl-entities expected-res) (newline) (display "input: ") (write str) (newline) (display "Result: ") (let ((result (call-with-input-string (unesc-string str) (lambda (port) (ssax:read-attributes port decl-entities))))) (write result) (newline) (assert (equal? result expected-res)))))) (test "" '() '()) (test "href='http://a%tb%r%n%r%n%nc'" '() `((,(string->symbol "href") . "http://a b c"))) (test "href='http://a%tb%r%r%n%rc'" '() `((,(string->symbol "href") . "http://a b c"))) (test "_1 ='12&' _2= \"%r%n%t12 3\">" '() `((_1 . "12&") (_2 . ,(unesc-string " 12%n3")))) (test "%tAbc='<&> '%nNext='12&ent;34' />" '((ent . "<xx>")) `((,(string->symbol "Abc") . ,(unesc-string "<&>%n")) (,(string->symbol "Next") . "12<xx>34"))) (test "%tAbc='<&> '%nNext='12&ent;34' />" '((ent . "<xx>")) `((,(string->symbol "Abc") . ,(unesc-string "<&>%r")) (,(string->symbol "Next") . "12<xx>34"))) (test "%tAbc='<&> '%nNext='12&en;34' />" `((en . ,(lambda () (open-input-string ""xx'")))) `((,(string->symbol "Abc") . ,(unesc-string "<&>%n")) (,(string->symbol "Next") . "12\"xx'34"))) (test "%tAbc='<&> '%nNext='12&ent;34' />" '((ent . "<&ent1;T;>") (ent1 . "&")) `((,(string->symbol "Abc") . ,(unesc-string "<&>%n")) (,(string->symbol "Next") . "12<&T;>34"))) (test "%tAbc='<&> '%nNext='12&ent;34' />" `((*DEFAULT* . ,(lambda (port name) (case name ((ent) "<&ent1;T;>") ((ent1) "&") (else (error "unrecognized" name)))))) `((,(string->symbol "Abc") . ,(unesc-string "<&>%n")) (,(string->symbol "Next") . "12<&T;>34"))) (assert (failed? (test "%tAbc='<&> '%nNext='12&ent;34' />" '((ent . "<&ent1;T;>") (ent1 . "&")) '()))) (assert (failed? (test "%tAbc='<&> '%nNext='12&ent;34' />" '((ent . "<&ent;T;>") (ent1 . "&")) '()))) (assert (failed? (test "%tAbc='<&> '%nNext='12&ent;34' />" '((ent . "<&ent1;T;>") (ent1 . "&ent;")) '()))) (test "html:href='http://a%tb%r%n%r%n%nc'" '() `(((,(string->symbol "html") . ,(string->symbol "href")) . "http://a b c"))) (test "html:href='ref1' html:src='ref2'" '() `(((,(string->symbol "html") . ,(string->symbol "href")) . "ref1") ((,(string->symbol "html") . ,(string->symbol "src")) . "ref2"))) (test "html:href='ref1' xml:html='ref2'" '() `(((,(string->symbol "html") . ,(string->symbol "href")) . "ref1") ((,ssax:Prefix-XML . ,(string->symbol "html")) . "ref2"))) (assert (failed? (test "html:href='ref1' html:href='ref2'" '() '()))) (assert (failed? (test "html:href='<' html:href='ref2'" '() '()))) (assert (failed? (test "html:href='ref1' html:href='&ref2;'" '() '()))) )) ; ssax:resolve-name PORT UNRES-NAME NAMESPACES apply-default-ns? ; ; Convert an UNRES-NAME to a RES-NAME given the appropriate NAMESPACES ; declarations. ; the last parameter apply-default-ns? determines if the default ; namespace applies (for instance, it does not for attribute names) ; ; Per REC-xml-names/#nsc-NSDeclared, "xml" prefix is considered pre-declared ; and bound to the namespace name "http://www.w3.org/XML/1998/namespace". ; ; This procedure tests for the namespace constraints: ; http://www.w3.org/TR/REC-xml-names/#nsc-NSDeclared (define (ssax:resolve-name port unres-name namespaces apply-default-ns?) (cond ((pair? unres-name) ; it's a QNAME (cons (cond ((assq (car unres-name) namespaces) => cadr) ((eq? (car unres-name) ssax:Prefix-XML) ssax:Prefix-XML) (else (parser-error port "[nsc-NSDeclared] broken; prefix " (car unres-name)))) (cdr unres-name))) (apply-default-ns? ; Do apply the default namespace, if any (let ((default-ns (assq '*DEFAULT* namespaces))) (if (and default-ns (cadr default-ns)) (cons (cadr default-ns) unres-name) unres-name))) ; no default namespace declared (else unres-name))) ; no prefix, don't apply the default-ns (run-test (let* ((namespaces '((HTML UHTML . URN-HTML) (HTML UHTML-1 . URN-HTML) (A UHTML . URN-HTML))) (namespaces-def (cons '(*DEFAULT* DEF . URN-DEF) namespaces)) (namespaces-undef (cons '(*DEFAULT* #f . #f) namespaces-def)) (port (current-input-port))) (assert (equal? 'ABC (ssax:resolve-name port 'ABC namespaces #t))) (assert (equal? '(DEF . ABC) (ssax:resolve-name port 'ABC namespaces-def #t))) (assert (equal? 'ABC (ssax:resolve-name port 'ABC namespaces-def #f))) (assert (equal? 'ABC (ssax:resolve-name port 'ABC namespaces-undef #t))) (assert (equal? '(UHTML . ABC) (ssax:resolve-name port '(HTML . ABC) namespaces-def #t))) (assert (equal? '(UHTML . ABC) (ssax:resolve-name port '(HTML . ABC) namespaces-def #f))) (assert (equal? `(,ssax:Prefix-XML . space) (ssax:resolve-name port `(,(string->symbol "xml") . space) namespaces-def #f))) (assert (failed? (ssax:resolve-name port '(XXX . ABC) namespaces-def #f))) )) ; procedure+: ssax:uri-string->symbol URI-STR ; Convert a URI-STR to an appropriate symbol (define (ssax:uri-string->symbol uri-str) (string->symbol uri-str)) ; procedure+: ssax:complete-start-tag TAG PORT ELEMS ENTITIES NAMESPACES ; ; This procedure is to complete parsing of a start-tag markup. The ; procedure must be called after the start tag token has been ; read. TAG is an UNRES-NAME. ELEMS is an instance of xml-decl::elems; ; it can be #f to tell the function to do _no_ validation of elements ; and their attributes. ; ; This procedure returns several values: ; ELEM-GI: a RES-NAME. ; ATTRIBUTES: element's attributes, an ATTLIST of (RES-NAME . STRING) ; pairs. The list does NOT include xmlns attributes. ; NAMESPACES: the input list of namespaces amended with namespace ; (re-)declarations contained within the start-tag under parsing ; ELEM-CONTENT-MODEL ; On exit, the current position in PORT will be the first character after ; #\> that terminates the start-tag markup. ; ; Faults detected: ; VC: XML-Spec.html#enum ; VC: XML-Spec.html#RequiredAttr ; VC: XML-Spec.html#FixedAttr ; VC: XML-Spec.html#ValueType ; WFC: XML-Spec.html#uniqattspec (after namespaces prefixes are resolved) ; VC: XML-Spec.html#elementvalid ; WFC: REC-xml-names/#dt-NSName ; Note, although XML Recommendation does not explicitly say it, ; xmlns and xmlns: attributes don't have to be declared (although they ; can be declared, to specify their default value) ; Procedure: ssax:complete-start-tag tag-head port elems entities namespaces (define ssax:complete-start-tag (let ((xmlns (string->symbol "xmlns")) (largest-dummy-decl-attr (list ssax:largest-unres-name #f #f #f))) ; Scan through the attlist and validate it, against decl-attrs ; Return an assoc list with added fixed or implied attrs. ; Note that both attlist and decl-attrs are ATTLISTs, and therefore, ; sorted (define (validate-attrs port attlist decl-attrs) ; Check to see decl-attr is not of use type REQUIRED. Add ; the association with the default value, if any declared (define (add-default-decl decl-attr result) (let*-values (((attr-name content-type use-type default-value) (apply values decl-attr))) (and (eq? use-type 'REQUIRED) (parser-error port "[RequiredAttr] broken for" attr-name)) (if default-value (cons (cons attr-name default-value) result) result))) (let loop ((attlist attlist) (decl-attrs decl-attrs) (result '())) (if (attlist-null? attlist) (attlist-fold add-default-decl result decl-attrs) (let*-values (((attr attr-others) (attlist-remove-top attlist)) ((decl-attr other-decls) (if (attlist-null? decl-attrs) (values largest-dummy-decl-attr decl-attrs) (attlist-remove-top decl-attrs))) ) (case (name-compare (car attr) (car decl-attr)) ((<) (if (or (eq? xmlns (car attr)) (and (pair? (car attr)) (eq? xmlns (caar attr)))) (loop attr-others decl-attrs (cons attr result)) (parser-error port "[ValueType] broken for " attr))) ((>) (loop attlist other-decls (add-default-decl decl-attr result))) (else ; matched occurrence of an attr with its declaration (let*-values (((attr-name content-type use-type default-value) (apply values decl-attr))) ; Run some tests on the content of the attribute (cond ((eq? use-type 'FIXED) (or (equal? (cdr attr) default-value) (parser-error port "[FixedAttr] broken for " attr-name))) ((eq? content-type 'CDATA) #t) ; everything goes ((pair? content-type) (or (member (cdr attr) content-type) (parser-error port "[enum] broken for " attr-name "=" (cdr attr)))) (else (ssax:warn port "declared content type " content-type " not verified yet"))) (loop attr-others other-decls (cons attr result))))) )))) ; Add a new namespace declaration to namespaces. ; First we convert the uri-str to a uri-symbol and search namespaces for ; an association (_ user-prefix . uri-symbol). ; If found, we return the argument namespaces with an association ; (prefix user-prefix . uri-symbol) prepended. ; Otherwise, we prepend (prefix uri-symbol . uri-symbol) (define (add-ns port prefix uri-str namespaces) (and (equal? "" uri-str) (parser-error port "[dt-NSName] broken for " prefix)) (let ((uri-symbol (ssax:uri-string->symbol uri-str))) (let loop ((nss namespaces)) (cond ((null? nss) (cons (cons* prefix uri-symbol uri-symbol) namespaces)) ((eq? uri-symbol (cddar nss)) (cons (cons* prefix (cadar nss) uri-symbol) namespaces)) (else (loop (cdr nss))))))) ; partition attrs into proper attrs and new namespace declarations ; return two values: proper attrs and the updated namespace declarations (define (adjust-namespace-decl port attrs namespaces) (let loop ((attrs attrs) (proper-attrs '()) (namespaces namespaces)) (cond ((null? attrs) (values proper-attrs namespaces)) ((eq? xmlns (caar attrs)) ; re-decl of the default namespace (loop (cdr attrs) proper-attrs (if (equal? "" (cdar attrs)) ; un-decl of the default ns (cons (cons* '*DEFAULT* #f #f) namespaces) (add-ns port '*DEFAULT* (cdar attrs) namespaces)))) ((and (pair? (caar attrs)) (eq? xmlns (caaar attrs))) (loop (cdr attrs) proper-attrs (add-ns port (cdaar attrs) (cdar attrs) namespaces))) (else (loop (cdr attrs) (cons (car attrs) proper-attrs) namespaces))))) ; The body of the function (lambda (tag-head port elems entities namespaces) (let*-values (((attlist) (ssax:read-attributes port entities)) ((empty-el-tag?) (begin (ssax:skip-S port) (and (eqv? #\/ (assert-curr-char '(#\> #\/) "XML [40], XML [44], no '>'" port)) (assert-curr-char '(#\>) "XML [44], no '>'" port)))) ((elem-content decl-attrs) ; see xml-decl for their type (if elems ; elements declared: validate! (cond ((assoc tag-head elems) => (lambda (decl-elem) ; of type xml-decl::decl-elem (values (if empty-el-tag? 'EMPTY-TAG (cadr decl-elem)) (caddr decl-elem)))) (else (parser-error port "[elementvalid] broken, no decl for " tag-head))) (values ; non-validating parsing (if empty-el-tag? 'EMPTY-TAG 'ANY) #f) ; no attributes declared )) ((merged-attrs) (if decl-attrs (validate-attrs port attlist decl-attrs) (attlist->alist attlist))) ((proper-attrs namespaces) (adjust-namespace-decl port merged-attrs namespaces)) ) ;(cerr "proper attrs: " proper-attrs nl) ; build the return value (values (ssax:resolve-name port tag-head namespaces #t) (fold-right (lambda (name-value attlist) (or (attlist-add attlist (cons (ssax:resolve-name port (car name-value) namespaces #f) (cdr name-value))) (parser-error port "[uniqattspec] after NS expansion broken for " name-value))) (make-empty-attlist) proper-attrs) namespaces elem-content))))) (run-test (let* ((urn-a (string->symbol "urn:a")) (urn-b (string->symbol "urn:b")) (urn-html (string->symbol "http://w3c.org/html")) (namespaces `((#f '"UHTML" . ,urn-html) ('"A" '"UA" . ,urn-a))) (test (lambda (tag-head-name elems str) (call-with-input-string str (lambda (port) (call-with-values (lambda () (ssax:complete-start-tag (call-with-input-string tag-head-name (lambda (port) (ssax:read-QName port))) port elems '() namespaces)) list)))))) ; First test with no validation of elements ;(test "TAG1" #f "") (assert (equal? `('"TAG1" () ,namespaces ANY) (test "TAG1" #f ">"))) (assert (equal? `('"TAG1" () ,namespaces EMPTY-TAG) (test "TAG1" #f "/>"))) (assert (equal? `('"TAG1" (('"HREF" . "a")) ,namespaces EMPTY-TAG) (test "TAG1" #f "HREF='a'/>"))) (assert (equal? `(('"UA" . '"TAG1") (('"HREF" . "a")) ,(cons `(*DEFAULT* '"UA" . ,urn-a) namespaces) ANY) (test "TAG1" #f "HREF='a' xmlns='urn:a'>"))) (assert (equal? `('"TAG1" (('"HREF" . "a")) ,(cons '(*DEFAULT* #f . #f) namespaces) ANY) (test "TAG1" #f "HREF='a' xmlns=''>"))) (assert (failed? (test "UA:TAG1" #f "HREF='a' xmlns=''/>"))) (assert (equal? `(('"UA" . '"TAG1") ((('"UA" . '"HREF") . "a")) ,(cons '(*DEFAULT* #f . #f) namespaces) ANY) (test "A:TAG1" #f "A:HREF='a' xmlns=''>"))) (assert (equal? `(('"UA" . '"TAG1") ((('"UA" . '"HREF") . "a")) ,(cons `(*DEFAULT* ,urn-b . ,urn-b) namespaces) ANY) (test "A:TAG1" #f "A:HREF='a' xmlns='urn:b'>"))) (assert (failed? (test "B:TAG1" #f "A:HREF='a' xmlns:b=''/>"))) (assert (equal? `((,urn-b . '"TAG1") ((('"UA" . '"HREF") . "a")) ,(cons `('"B" ,urn-b . ,urn-b) namespaces) ANY) (test "B:TAG1" #f "A:HREF='a' xmlns:B='urn:b'>"))) (assert (equal? `((,urn-b . '"TAG1") ((('"UA" . '"HREF") . "a") ((,urn-b . '"SRC") . "b")) ,(cons `('"B" ,urn-b . ,urn-b) namespaces) ANY) (test "B:TAG1" #f "B:SRC='b' A:HREF='a' xmlns:B='urn:b'>"))) (assert (equal? `((,urn-b . '"TAG1") ((('"UA" . '"HREF") . "a") ((,urn-b . '"HREF") . "b")) ,(cons `('"B" ,urn-b . ,urn-b) namespaces) ANY) (test "B:TAG1" #f "B:HREF=\"b\" A:HREF='a' xmlns:B='urn:b'>"))) ; must be an error! Duplicate attr (assert (failed? (test "B:TAG1" #f "HREF=\"b\" HREF='a' xmlns:B='urn:a'/>"))) ; must be an error! Duplicate attr after ns expansion (assert (failed? (test "B:TAG1" #f "B:HREF=\"b\" A:HREF='a' xmlns:B='urn:a'/>"))) (assert (equal? `(('"UA" . '"TAG1") (('"HREF" . "a") (('"UA" . '"HREF") . "b")) ,(cons `(*DEFAULT* '"UA" . ,urn-a) namespaces) ANY) (test "TAG1" #f "A:HREF=\"b\" HREF='a' xmlns='urn:a'>"))) (assert (equal? `('"TAG1" ((('"UHTML" . '"HREF") . "a") ((,urn-b . '"HREF") . "b")) ,(append `( ('"HTML" '"UHTML" . ,urn-html) ('"B" ,urn-b . ,urn-b)) namespaces) ANY) (test "TAG1" #f "B:HREF=\"b\" xmlns:B='urn:b' xmlns:HTML='http://w3c.org/html' HTML:HREF='a' >"))) ; Now test the validating parsing ; No decl for tag1 (assert (failed? (test "TAG1" '((TAG2 ANY ())) "B:HREF='b' xmlns:B='urn:b'>"))) ; No decl for HREF elem ;; (cond-expand ;; ((not (or scm mit-scheme)) ; Regretfully, SCM treats '() as #f ;; (assert (failed? ;; (test "TAG1" '(('"TAG1" ANY ())) ;; "B:HREF='b' xmlns:B='urn:b'>")))) ;; (else #t)) ; No decl for HREF elem (assert (failed? (test "TAG1" '(('"TAG1" ANY (('"HREF1" CDATA IMPLIED #f)))) "B:HREF='b' xmlns:B='urn:b'>"))) (assert (equal? `('"TAG1" (('"HREF" . "b")) ,namespaces EMPTY-TAG) (test "TAG1" '(('"TAG1" PCDATA (('"HREF" CDATA REQUIRED #f)))) "HREF='b'/>"))) (assert (equal? `('"TAG1" (('"HREF" . "b")) ,namespaces PCDATA) (test "TAG1" '(('"TAG1" PCDATA (('"HREF" CDATA REQUIRED #f)))) "HREF='b'>"))) ; Req'd attribute not given error (assert (failed? (test "TAG1" '(('"TAG1" PCDATA (('"HREF" CDATA REQUIRED #f)))) ">"))) ; Wrong content-type of the attribute (assert (failed? (test "TAG1" '(('"TAG1" PCDATA (('"HREF" ("c") REQUIRED #f)))) "HREF='b'>"))) (assert (equal? `('"TAG1" (('"HREF" . "b")) ,namespaces PCDATA) (test "TAG1" '(('"TAG1" PCDATA (('"HREF" ("c" "b") IMPLIED #f)))) "HREF='b'>"))) (assert (equal? `('"TAG1" (('"HREF" . "b")) ,namespaces PCDATA) (test "TAG1" '(('"TAG1" PCDATA (('"HREF" CDATA IMPLIED "c")))) "HREF='b'>"))) ; Bad fixed attribute (assert (failed? (test "TAG1" '(('"TAG1" PCDATA (('"HREF" CDATA FIXED "c")))) "HREF='b'>"))) (assert (equal? `('"TAG1" (('"HREF" . "b")) ,namespaces PCDATA) (test "TAG1" '(('"TAG1" PCDATA (('"HREF" CDATA FIXED "b")))) "HREF='b'>"))) (assert (equal? `('"TAG1" (('"HREF" . "b")) ,namespaces PCDATA) (test "TAG1" '(('"TAG1" PCDATA (('"HREF" CDATA FIXED "b")))) ">"))) (assert (equal? `('"TAG1" (('"HREF" . "b")) ,namespaces PCDATA) (test "TAG1" '(('"TAG1" PCDATA (('"HREF" CDATA IMPLIED "b")))) ">"))) (assert (equal? `('"TAG1" () ,namespaces PCDATA) (test "TAG1" '(('"TAG1" PCDATA (('"HREF" CDATA IMPLIED #f)))) ">"))) ; Undeclared attr (assert (failed? (test "TAG1" '(('"TAG1" PCDATA ((('"A" . '"HREF") CDATA IMPLIED "c")))) "HREF='b'>"))) (assert (equal? `('"TAG1" (('"HREF" . "b") (('"UA" . '"HREF") . "c")) ,namespaces PCDATA) (test "TAG1" '(('"TAG1" PCDATA (('"HREF" CDATA REQUIRED #f) (('"A" . '"HREF") CDATA IMPLIED "c")))) "HREF='b'>"))) (assert (equal? `(('"UA" . '"TAG1") (('"HREF" . "b") (('"UA" . '"HREF") . "c")) ,namespaces PCDATA) (test "A:TAG1" '((('"A" . '"TAG1") PCDATA (('"HREF" NMTOKEN REQUIRED #f) (('"A" . '"HREF") CDATA IMPLIED "c")))) "HREF='b'>"))) (assert (equal? `((,urn-b . '"TAG1") (('"HREF" . "b")) ,(cons `('"B" ,urn-b . ,urn-b) namespaces) PCDATA) (test "B:TAG1" '((('"B" . '"TAG1") PCDATA (('"HREF" CDATA REQUIRED #f) (('"xmlns" . '"B") CDATA IMPLIED "urn:b")))) "HREF='b'>"))) (assert (equal? `((,urn-b . '"TAG1") (((,urn-b . '"HREF") . "b")) ,(cons `('"B" ,urn-b . ,urn-b) namespaces) PCDATA) (test "B:TAG1" '((('"B" . '"TAG1") PCDATA ((('"B" . '"HREF") CDATA REQUIRED #f) (('"xmlns" . '"B") CDATA IMPLIED "urn:b")))) "B:HREF='b'>"))) (assert (equal? `((,urn-b . '"TAG1") (('"HREF" . "b")) ,(cons `(*DEFAULT* ,urn-b . ,urn-b) namespaces) PCDATA) (test "TAG1" '(('"TAG1" PCDATA (('"HREF" CDATA REQUIRED #f) ('"xmlns" CDATA IMPLIED "urn:b")))) "HREF='b'>"))) ; xmlns not declared (assert (equal? `((,urn-b . '"TAG1") (('"HREF" . "b")) ,(cons `(*DEFAULT* ,urn-b . ,urn-b) namespaces) PCDATA) (test "TAG1" '(('"TAG1" PCDATA (('"HREF" CDATA REQUIRED #f) ))) "HREF='b' xmlns='urn:b'>"))) ; xmlns:B not declared (assert (equal? `((,urn-b . '"TAG1") (((,urn-b . '"HREF") . "b")) ,(cons `('"B" ,urn-b . ,urn-b) namespaces) PCDATA) (test "B:TAG1" '((('"B" . '"TAG1") PCDATA ((('"B" . '"HREF") CDATA REQUIRED #f) ))) "B:HREF='b' xmlns:B='urn:b'>"))) )) ; procedure+: ssax:read-external-id PORT ; ; This procedure parses an ExternalID production: ; [75] ExternalID ::= 'SYSTEM' S SystemLiteral ; | 'PUBLIC' S PubidLiteral S SystemLiteral ; [11] SystemLiteral ::= ('"' [^"]* '"') | ("'" [^']* "'") ; [12] PubidLiteral ::= '"' PubidChar* '"' | "'" (PubidChar - "'")* "'" ; [13] PubidChar ::= #x20 | #xD | #xA | [a-zA-Z0-9] ; | [-'()+,./:=?;!*#@$_%] ; ; This procedure is supposed to be called when an ExternalID is expected; ; that is, the current character must be either #\S or #\P that start ; correspondingly a SYSTEM or PUBLIC token. This procedure returns the ; SystemLiteral as a string. A PubidLiteral is disregarded if present. (define (ssax:read-external-id port) (let ((discriminator (ssax:read-NCName port))) (assert-curr-char ssax:S-chars "space after SYSTEM or PUBLIC" port) (ssax:skip-S port) (let ((delimiter (assert-curr-char '(#\' #\" ) "XML [11], XML [12]" port))) (cond ((eq? discriminator (string->symbol "SYSTEM")) (begin0 (next-token '() (list delimiter) "XML [11]" port) (read-char port) ; reading the closing delim )) ((eq? discriminator (string->symbol "PUBLIC")) (skip-until (list delimiter) port) (assert-curr-char ssax:S-chars "space after PubidLiteral" port) (ssax:skip-S port) (let* ((delimiter (assert-curr-char '(#\' #\" ) "XML [11]" port)) (systemid (next-token '() (list delimiter) "XML [11]" port))) (read-char port) ; reading the closing delim systemid)) (else (parser-error port "XML [75], " discriminator " rather than SYSTEM or PUBLIC")))))) ;----------------------------------------------------------------------------- ; Higher-level parsers and scanners ; ; They parse productions corresponding to the whole (document) entity ; or its higher-level pieces (prolog, root element, etc). ; Scan the Misc production in the context ; [1] document ::= prolog element Misc* ; [22] prolog ::= XMLDecl? Misc* (doctypedec l Misc*)? ; [27] Misc ::= Comment | PI | S ; ; The following function should be called in the prolog or epilog contexts. ; In these contexts, whitespaces are completely ignored. ; The return value from ssax:scan-Misc is either a PI-token, ; a DECL-token, a START token, or EOF. ; Comments are ignored and not reported. (define (ssax:scan-Misc port) (let loop ((c (ssax:skip-S port))) (cond ((eof-object? c) c) ((not (char=? c #\<)) (parser-error port "XML [22], char '" c "' unexpected")) (else (let ((token (ssax:read-markup-token port))) (case (xml-token-kind token) ((COMMENT) (loop (ssax:skip-S port))) ((PI DECL START) token) (else (parser-error port "XML [22], unexpected token of kind " (xml-token-kind token) )))))))) ; procedure+: ssax:read-char-data PORT EXPECT-EOF? STR-HANDLER SEED ; ; This procedure is to read the character content of an XML document ; or an XML element. ; [43] content ::= ; (element | CharData | Reference | CDSect | PI ; | Comment)* ; To be more precise, the procedure reads CharData, expands CDSect ; and character entities, and skips comments. The procedure stops ; at a named reference, EOF, at the beginning of a PI or a start/end tag. ; ; port ; a PORT to read ; expect-eof? ; a boolean indicating if EOF is normal, i.e., the character ; data may be terminated by the EOF. EOF is normal ; while processing a parsed entity. ; str-handler ; a STR-HANDLER ; seed ; an argument passed to the first invocation of STR-HANDLER. ; ; The procedure returns two results: SEED and TOKEN. ; The SEED is the result of the last invocation of STR-HANDLER, or the ; original seed if STR-HANDLER was never called. ; ; TOKEN can be either an eof-object (this can happen only if ; expect-eof? was #t), or: ; - an xml-token describing a START tag or an END-tag; ; For a start token, the caller has to finish reading it. ; - an xml-token describing the beginning of a PI. It's up to an ; application to read or skip through the rest of this PI; ; - an xml-token describing a named entity reference. ; ; CDATA sections and character references are expanded inline and ; never returned. Comments are silently disregarded. ; ; As the XML Recommendation requires, all whitespace in character data ; must be preserved. However, a CR character (#xD) must be disregarded ; if it appears before a LF character (#xA), or replaced by a #xA character ; otherwise. See Secs. 2.10 and 2.11 of the XML Recommendation. See also ; the canonical XML Recommendation. ; ssax:read-char-data port expect-eof? str-handler seed (define ssax:read-char-data (let ((terminators-usual (list #\< #\& char-return)) (terminators-usual-eof (list #\< '*eof* #\& char-return)) (handle-fragment (lambda (fragment str-handler seed) (if (string-null? fragment) seed (str-handler fragment "" seed)))) ) (lambda (port expect-eof? str-handler seed) ; Very often, the first character we encounter is #\< ; Therefore, we handle this case in a special, fast path (if (eqv? #\< (peek-char port)) ; The fast path (let ((token (ssax:read-markup-token port))) (case (xml-token-kind token) ((START END) ; The most common case (values seed token)) ((CDSECT) (let ((seed (ssax:read-cdata-body port str-handler seed))) (ssax:read-char-data port expect-eof? str-handler seed))) ((COMMENT) (ssax:read-char-data port expect-eof? str-handler seed)) (else (values seed token)))) ; The slow path (let ((char-data-terminators (if expect-eof? terminators-usual-eof terminators-usual))) (let loop ((seed seed)) (let* ((fragment (next-token '() char-data-terminators "reading char data" port)) (term-char (peek-char port)) ; one of char-data-terminators ) (if (eof-object? term-char) (values (handle-fragment fragment str-handler seed) term-char) (case term-char ((#\<) (let ((token (ssax:read-markup-token port))) (case (xml-token-kind token) ((CDSECT) (loop (ssax:read-cdata-body port str-handler (handle-fragment fragment str-handler seed)))) ((COMMENT) (loop (handle-fragment fragment str-handler seed))) (else (values (handle-fragment fragment str-handler seed) token))))) ((#\&) (case (peek-next-char port) ((#\#) (read-char port) (loop (str-handler fragment (ssax:read-char-ref port) seed))) (else (let ((name (ssax:read-NCName port))) (assert-curr-char '(#\;) "XML [68]" port) (values (handle-fragment fragment str-handler seed) (make-xml-token 'ENTITY-REF name)))))) (else ; This must be a CR character (if (eqv? (peek-next-char port) #\newline) (read-char port)) (loop (str-handler fragment (string #\newline) seed)))) )))))))) ; a few lines of validation code (run-test (letrec ((a-tag (make-xml-token 'START (string->symbol "BR"))) (a-ref (make-xml-token 'ENTITY-REF (string->symbol "lt"))) (eof-object (lambda () eof-object)) ; a unique value (str-handler (lambda (fragment foll-fragment seed) (if (string-null? foll-fragment) (cons fragment seed) (cons* foll-fragment fragment seed)))) (test (lambda (str expect-eof? expected-data expected-token) (newline) (display "body: ") (write str) (newline) (display "Result: ") (let*-values (((seed token) (call-with-input-string (unesc-string str) (lambda (port) (ssax:read-char-data port expect-eof? str-handler '())))) ((result) (reverse seed))) (write result) (display " ") (display token) (assert (equal? result (map unesc-string expected-data)) (if (eq? expected-token eof-object) (eof-object? token) (equal? token expected-token)))))) ) (test "" #t '() eof-object) (assert (failed? (test "" #f '() eof-object))) (test " " #t '(" ") eof-object) (test "<BR/>" #f '() a-tag) (test " <BR />" #f '(" ") a-tag) (test " <" #f '(" ") a-ref) (test " a<" #f '(" a") a-ref) (test " a <" #f '(" a ") a-ref) (test " <!-- comment--> a a<BR/>" #f '(" " " a a") a-tag) (test " <!-- comment-->%ra a<BR/>" #f '(" " "" "%n" "a a") a-tag) (test " <!-- comment-->%r%na a<BR/>" #f '(" " "" "%n" "a a") a-tag) (test " <!-- comment-->%r%na%t%r%r%na<BR/>" #f '(" " "" "%n" "a%t" "%n" "" "%n" "a") a-tag) (test "a<!-- comment--> a a<BR/>" #f '("a" " a a") a-tag) (test "!<BR/>" #f '("" "!") a-tag) (test "!%n<BR/>" #f '("" "!" "%n") a-tag) (test "%t!%n<BR/>" #f '("%t" "!" "%n") a-tag) (test "%t!%na a<BR/>" #f '("%t" "!" "%na a") a-tag) (test "%t!%ra a<BR/>" #f '("%t" "!" "" "%n" "a a") a-tag) (test "%t!%r%na a<BR/>" #f '("%t" "!" "" "%n" "a a") a-tag) (test " %ta ! b <BR/>" #f '(" %ta " "!" " b ") a-tag) (test " %ta b <BR/>" #f '(" %ta " " " " b ") a-tag) (test "<![CDATA[<]]><BR/>" #f '("<") a-tag) (test "<![CDATA[]]]><BR/>" #f '("]") a-tag) (test "%t<![CDATA[<]]><BR/>" #f '("%t" "<") a-tag) (test "%t<![CDATA[<]]>a b<BR/>" #f '("%t" "<" "a b") a-tag) (test "%t<![CDATA[<]]> a b<BR/>" #f '("%t" "<" " a b") a-tag) (test "%td <![CDATA[ <%r%r%n]]> a b<BR/>" #f '("%td " " <" "%n" "" "%n" " a b") a-tag) )) ; procedure+: ssax:assert-token TOKEN KIND GI ; Make sure that TOKEN is of anticipated KIND and has anticipated GI ; Note GI argument may actually be a pair of two symbols, Namespace ; URI or the prefix, and of the localname. ; If the assertion fails, error-cont is evaluated by passing it ; three arguments: token kind gi. The result of error-cont is returned. (define (ssax:assert-token token kind gi error-cont) (or (and (xml-token? token) (eq? kind (xml-token-kind token)) (equal? gi (xml-token-head token))) (error-cont token kind gi))) ;======================================================================== ; Highest-level parsers: XML to SXML ; These parsers are a set of syntactic forms to instantiate a SSAX parser. ; A user can instantiate the parser to do the full validation, or ; no validation, or any particular validation. The user specifies ; which PI he wants to be notified about. The user tells what to do ; with the parsed character and element data. The latter handlers ; determine if the parsing follows a SAX or a DOM model. ; syntax: ssax:make-pi-parser my-pi-handlers ; Create a parser to parse and process one Processing Element (PI). ; my-pi-handlers ; An assoc list of pairs (PI-TAG . PI-HANDLER) ; where PI-TAG is an NCName symbol, the PI target, and ; PI-HANDLER is a procedure PORT PI-TAG SEED ; where PORT points to the first symbol after the PI target. ; The handler should read the rest of the PI up to and including ; the combination '?>' that terminates the PI. The handler should ; return a new seed. ; One of the PI-TAGs may be the symbol *DEFAULT*. The corresponding ; handler will handle PIs that no other handler will. If the ; *DEFAULT* PI-TAG is not specified, ssax:make-pi-parser will assume ; the default handler that skips the body of the PI ; ; The output of the ssax:make-pi-parser is a procedure ; PORT PI-TAG SEED ; that will parse the current PI according to the user-specified handlers. ; ; The previous version of ssax:make-pi-parser was a low-level macro: ; (define-macro ssax:make-pi-parser ; (lambda (my-pi-handlers) ; `(lambda (port target seed) ; (case target ; ; Generate the body of the case statement ; ,@(let loop ((pi-handlers my-pi-handlers) (default #f)) ; (cond ; ((null? pi-handlers) ; (if default `((else (,default port target seed))) ; '((else ; (ssax:warn port "Skipping PI: " target nl) ; (ssax:skip-pi port) ; seed)))) ; ((eq? '*DEFAULT* (caar pi-handlers)) ; (loop (cdr pi-handlers) (cdar pi-handlers))) ; (else ; (cons ; `((,(caar pi-handlers)) (,(cdar pi-handlers) port target seed)) ; (loop (cdr pi-handlers) default))))))))) (define-syntax ssax:make-pi-parser (syntax-rules () ((ssax:make-pi-parser orig-handlers) (letrec-syntax ; Generate the clauses of the case statement ((loop (syntax-rules (*DEFAULT*) ((loop () #f accum port target seed) ; no default (make-case ((else (ssax:warn port "Skipping PI: " target nl) (ssax:skip-pi port) seed) . accum) () target)) ((loop () default accum port target seed) (make-case ((else (default port target seed)) . accum) () target)) ((loop ((*DEFAULT* . default) . handlers) old-def accum port target seed) (loop handlers default accum port target seed)) ((loop ((tag . handler) . handlers) default accum port target seed) (loop handlers default (((tag) (handler port target seed)) . accum) port target seed)) )) (make-case ; Reverse the clauses, make the 'case' (syntax-rules () ((make-case () clauses target) (case target . clauses)) ((make-case (clause . clauses) accum target) (make-case clauses (clause . accum) target))) )) (lambda (port target seed) (loop orig-handlers #f () port target seed)) )))) (run-test (pp (ssax:make-pi-parser ())) (pp (ssax:make-pi-parser ((xml . (lambda (port target seed) seed))))) (pp (ssax:make-pi-parser ((xml . (lambda (port target seed) seed)) (html . list) (*DEFAULT* . ssax:warn)))) ) ; syntax: ssax:make-elem-parser my-new-level-seed my-finish-element ; my-char-data-handler my-pi-handlers ; Create a parser to parse and process one element, including its ; character content or children elements. The parser is typically ; applied to the root element of a document. ; my-new-level-seed ; procedure ELEM-GI ATTRIBUTES NAMESPACES EXPECTED-CONTENT SEED ; where ELEM-GI is a RES-NAME of the element ; about to be processed. ; This procedure is to generate the seed to be passed ; to handlers that process the content of the element. ; This is the function identified as 'fdown' in the denotational ; semantics of the XML parser given in the title comments to this ; file. ; ; my-finish-element ; procedure ELEM-GI ATTRIBUTES NAMESPACES PARENT-SEED SEED ; This procedure is called when parsing of ELEM-GI is finished. ; The SEED is the result from the last content parser (or ; from my-new-level-seed if the element has the empty content). ; PARENT-SEED is the same seed as was passed to my-new-level-seed. ; The procedure is to generate a seed that will be the result ; of the element parser. ; This is the function identified as 'fup' in the denotational ; semantics of the XML parser given in the title comments to this ; file. ; ; my-char-data-handler ; A STR-HANDLER ; ; my-pi-handlers ; See ssax:make-pi-handler above ; ; The generated parser is a ; procedure START-TAG-HEAD PORT ELEMS ENTITIES ; NAMESPACES PRESERVE-WS? SEED ; The procedure must be called after the start tag token has been ; read. START-TAG-HEAD is an UNRES-NAME from the start-element tag. ; ELEMS is an instance of xml-decl::elems. ; See ssax:complete-start-tag::preserve-ws? ; Faults detected: ; VC: XML-Spec.html#elementvalid ; WFC: XML-Spec.html#GIMatch (define-syntax ssax:make-elem-parser (syntax-rules () ((ssax:make-elem-parser my-new-level-seed my-finish-element my-char-data-handler my-pi-handlers) (lambda (start-tag-head port elems entities namespaces preserve-ws? seed) (define xml-space-gi (cons ssax:Prefix-XML (string->symbol "space"))) (let handle-start-tag ((start-tag-head start-tag-head) (port port) (entities entities) (namespaces namespaces) (preserve-ws? preserve-ws?) (parent-seed seed)) (let*-values (((elem-gi attributes namespaces expected-content) (ssax:complete-start-tag start-tag-head port elems entities namespaces)) ((seed) (my-new-level-seed elem-gi attributes namespaces expected-content parent-seed))) (case expected-content ((EMPTY-TAG) (my-finish-element elem-gi attributes namespaces parent-seed seed)) ((EMPTY) ; The end tag must immediately follow (ssax:assert-token (and (eqv? #\< (ssax:skip-S port)) (ssax:read-markup-token port)) 'END start-tag-head (lambda (token exp-kind exp-head) (parser-error port "[elementvalid] broken for " token " while expecting " exp-kind exp-head))) (my-finish-element elem-gi attributes namespaces parent-seed seed)) (else ; reading the content... (let ((preserve-ws? ; inherit or set the preserve-ws? flag (cond ((assoc xml-space-gi attributes) => (lambda (name-value) (equal? "preserve" (cdr name-value)))) (else preserve-ws?)))) (let loop ((port port) (entities entities) (expect-eof? #f) (seed seed)) (let*-values (((seed term-token) (ssax:read-char-data port expect-eof? my-char-data-handler seed))) (if (eof-object? term-token) seed (case (xml-token-kind term-token) ((END) (ssax:assert-token term-token 'END start-tag-head (lambda (token exp-kind exp-head) (parser-error port "[GIMatch] broken for " term-token " while expecting " exp-kind exp-head))) (my-finish-element elem-gi attributes namespaces parent-seed seed)) ((PI) (let ((seed ((ssax:make-pi-parser my-pi-handlers) port (xml-token-head term-token) seed))) (loop port entities expect-eof? seed))) ((ENTITY-REF) (let ((seed (ssax:handle-parsed-entity port (xml-token-head term-token) entities (lambda (port entities seed) (loop port entities #t seed)) my-char-data-handler seed))) ; keep on reading the content after ent (loop port entities expect-eof? seed))) ((START) ; Start of a child element (if (eq? expected-content 'PCDATA) (parser-error port "[elementvalid] broken for " elem-gi " with char content only; unexpected token " term-token)) ; Do other validation of the element content (let ((seed (handle-start-tag (xml-token-head term-token) port entities namespaces preserve-ws? seed))) (loop port entities expect-eof? seed))) (else (parser-error port "XML [43] broken for " term-token)))))))) ))) )))) ; syntax: ssax:make-parser user-handler-tag user-handler-proc ... ; ; Create an XML parser, an instance of the XML parsing framework. ; This will be a SAX, a DOM, or a specialized parser depending ; on the supplied user-handlers. ; user-handler-tag is a symbol that identifies a procedural expression ; that follows the tag. Given below are tags and signatures of the ; corresponding procedures. Not all tags have to be specified. If some ; are omitted, reasonable defaults will apply. ; ; tag: DOCTYPE ; handler-procedure: PORT DOCNAME SYSTEMID INTERNAL-SUBSET? SEED ; If internal-subset? is #t, the current position in the port ; is right after we have read #\[ that begins the internal DTD subset. ; We must finish reading of this subset before we return ; (or must call skip-internal-subset if we aren't interested in reading it). ; The port at exit must be at the first symbol after the whole ; DOCTYPE declaration. ; The handler-procedure must generate four values: ; ELEMS ENTITIES NAMESPACES SEED ; See xml-decl::elems for ELEMS. It may be #f to switch off the validation. ; NAMESPACES will typically contain USER-PREFIXes for selected URI-SYMBs. ; The default handler-procedure skips the internal subset, ; if any, and returns (values #f '() '() seed) ; tag: UNDECL-ROOT ; handler-procedure: ELEM-GI SEED ; where ELEM-GI is an UNRES-NAME of the root element. This procedure ; is called when an XML document under parsing contains _no_ DOCTYPE ; declaration. ; The handler-procedure, as a DOCTYPE handler procedure above, ; must generate four values: ; ELEMS ENTITIES NAMESPACES SEED ; The default handler-procedure returns (values #f '() '() seed) ; tag: DECL-ROOT ; handler-procedure: ELEM-GI SEED ; where ELEM-GI is an UNRES-NAME of the root element. This procedure ; is called when an XML document under parsing does contains the DOCTYPE ; declaration. ; The handler-procedure must generate a new SEED (and verify ; that the name of the root element matches the doctype, if the handler ; so wishes). ; The default handler-procedure is the identity function. ; tag: NEW-LEVEL-SEED ; handler-procedure: see ssax:make-elem-parser, my-new-level-seed ; tag: FINISH-ELEMENT ; handler-procedure: see ssax:make-elem-parser, my-finish-element ; tag: CHAR-DATA-HANDLER ; handler-procedure: see ssax:make-elem-parser, my-char-data-handler ; tag: PI ; handler-procedure: see ssax:make-pi-parser ; The default value is '() ; The generated parser is a ; procedure PORT SEED ; This procedure parses the document prolog and then exits to ; an element parser (created by ssax:make-elem-parser) to handle ; the rest. ; ; [1] document ::= prolog element Misc* ; [22] prolog ::= XMLDecl? Misc* (doctypedec | Misc*)? ; [27] Misc ::= Comment | PI | S ; ; [28] doctypedecl ::= '<!DOCTYPE' S Name (S ExternalID)? S? ; ('[' (markupdecl | PEReference | S)* ']' S?)? '>' ; [29] markupdecl ::= elementdecl | AttlistDecl ; | EntityDecl ; | NotationDecl | PI ; | Comment ; ; This is ssax:make-parser with all the (specialization) handlers given ; as positional arguments. It is called by ssax:make-parser, see below (define-syntax ssax:make-parser/positional-args (syntax-rules () ((ssax:make-parser/positional-args *handler-DOCTYPE *handler-UNDECL-ROOT *handler-DECL-ROOT *handler-NEW-LEVEL-SEED *handler-FINISH-ELEMENT *handler-CHAR-DATA-HANDLER *handler-PI) (lambda (port seed) ; We must've just scanned the DOCTYPE token ; Handle the doctype declaration and exit to ; scan-for-significant-prolog-token-2, and eventually, to the ; element parser. (define (handle-decl port token-head seed) (or (eq? (string->symbol "DOCTYPE") token-head) (parser-error port "XML [22], expected DOCTYPE declaration, found " token-head)) (assert-curr-char ssax:S-chars "XML [28], space after DOCTYPE" port) (ssax:skip-S port) (let*-values (((docname) (ssax:read-QName port)) ((systemid) (and (ssax:ncname-starting-char? (ssax:skip-S port)) (ssax:read-external-id port))) ((internal-subset?) (begin (ssax:skip-S port) (eqv? #\[ (assert-curr-char '(#\> #\[) "XML [28], end-of-DOCTYPE" port)))) ((elems entities namespaces seed) (*handler-DOCTYPE port docname systemid internal-subset? seed)) ) (scan-for-significant-prolog-token-2 port elems entities namespaces seed))) ; Scan the leading PIs until we encounter either a doctype declaration ; or a start token (of the root element) ; In the latter two cases, we exit to the appropriate continuation (define (scan-for-significant-prolog-token-1 port seed) (let ((token (ssax:scan-Misc port))) (if (eof-object? token) (parser-error port "XML [22], unexpected EOF") (case (xml-token-kind token) ((PI) (let ((seed ((ssax:make-pi-parser *handler-PI) port (xml-token-head token) seed))) (scan-for-significant-prolog-token-1 port seed))) ((DECL) (handle-decl port (xml-token-head token) seed)) ((START) (let*-values (((elems entities namespaces seed) (*handler-UNDECL-ROOT (xml-token-head token) seed))) (element-parser (xml-token-head token) port elems entities namespaces #f seed))) (else (parser-error port "XML [22], unexpected markup " token)))))) ; Scan PIs after the doctype declaration, till we encounter ; the start tag of the root element. After that we exit ; to the element parser (define (scan-for-significant-prolog-token-2 port elems entities namespaces seed) (let ((token (ssax:scan-Misc port))) (if (eof-object? token) (parser-error port "XML [22], unexpected EOF") (case (xml-token-kind token) ((PI) (let ((seed ((ssax:make-pi-parser *handler-PI) port (xml-token-head token) seed))) (scan-for-significant-prolog-token-2 port elems entities namespaces seed))) ((START) (element-parser (xml-token-head token) port elems entities namespaces #f (*handler-DECL-ROOT (xml-token-head token) seed))) (else (parser-error port "XML [22], unexpected markup " token)))))) ; A procedure start-tag-head port elems entities namespaces ; preserve-ws? seed (define element-parser (ssax:make-elem-parser *handler-NEW-LEVEL-SEED *handler-FINISH-ELEMENT *handler-CHAR-DATA-HANDLER *handler-PI)) ; Get the ball rolling ... (scan-for-significant-prolog-token-1 port seed) )))) ; The following meta-macro turns a regular macro (with positional ; arguments) into a form with keyword (labeled) arguments. We later ; use the meta-macro to convert ssax:make-parser/positional-args into ; ssax:make-parser. The latter provides a prettier (with labeled ; arguments and defaults) interface to ; ssax:make-parser/positional-args ; ; ssax:define-labeled-arg-macro LABELED-ARG-MACRO-NAME ; (POS-MACRO-NAME ARG-DESCRIPTOR ...) ; expands into the definition of a macro ; LABELED-ARG-MACRO-NAME KW-NAME KW-VALUE KW-NAME1 KW-VALUE1 ... ; which, in turn, expands into ; POS-MACRO-NAME ARG1 ARG2 ... ; where each ARG1 etc. comes either from KW-VALUE or from ; the deafult part of ARG-DESCRIPTOR. ARG1 corresponds to the first ; ARG-DESCRIPTOR, ARG2 corresponds to the second descriptor, etc. ; Here ARG-DESCRIPTOR describes one argument of the positional macro. ; It has the form ; (ARG-NAME DEFAULT-VALUE) ; or ; (ARG-NAME) ; In the latter form, the default value is not given, so that the invocation of ; LABELED-ARG-MACRO-NAME must mention the corresponding parameter. ; ARG-NAME can be anything: an identifier, a string, or even a number. (define-syntax ssax:define-labeled-arg-macro (syntax-rules () ((ssax:define-labeled-arg-macro labeled-arg-macro-name (positional-macro-name (arg-name . arg-def) ...)) (define-syntax labeled-arg-macro-name (syntax-rules () ((labeled-arg-macro-name . kw-val-pairs) (letrec-syntax ((find (syntax-rules (arg-name ...) ((find k-args (arg-name . default) arg-name val . others) ; found arg-name among kw-val-pairs (next val . k-args)) ... ((find k-args key arg-no-match-name val . others) (find k-args key . others)) ((find k-args (arg-name default)) ; default must be here (next default . k-args)) ... )) (next ; pack the continuation to find (syntax-rules () ((next val vals key . keys) (find ((val . vals) . keys) key . kw-val-pairs)) ((next val vals) ; processed all arg-descriptors (rev-apply (val) vals)))) (rev-apply (syntax-rules () ((rev-apply form (x . xs)) (rev-apply (x . form) xs)) ((rev-apply form ()) form)))) (next positional-macro-name () (arg-name . arg-def) ...)))))))) ; The definition of ssax:make-parser (ssax:define-labeled-arg-macro ssax:make-parser (ssax:make-parser/positional-args (DOCTYPE (lambda (port docname systemid internal-subset? seed) (when internal-subset? (ssax:warn port "Internal DTD subset is not currently handled ") (ssax:skip-internal-dtd port)) (ssax:warn port "DOCTYPE DECL " docname " " systemid " found and skipped") (values #f '() '() seed) )) (UNDECL-ROOT (lambda (elem-gi seed) (values #f '() '() seed))) (DECL-ROOT (lambda (elem-gi seed) seed)) (NEW-LEVEL-SEED) ; required (FINISH-ELEMENT) ; required (CHAR-DATA-HANDLER) ; required (PI ()) )) (run-test (letrec ((simple-parser (lambda (str doctype-fn) (call-with-input-string str (lambda (port) ((ssax:make-parser NEW-LEVEL-SEED (lambda (elem-gi attributes namespaces expected-content seed) '()) FINISH-ELEMENT (lambda (elem-gi attributes namespaces parent-seed seed) (let ((seed (if (null? namespaces) (reverse seed) (cons (list '*NAMESPACES* namespaces) (reverse seed))))) (let ((seed (if (attlist-null? attributes) seed (cons (cons '@ (map (lambda (attr) (list (car attr) (cdr attr))) (attlist->alist attributes))) seed)))) (cons (cons elem-gi seed) parent-seed)))) CHAR-DATA-HANDLER (lambda (string1 string2 seed) (if (string-null? string2) (cons string1 seed) (cons* string2 string1 seed))) DOCTYPE (lambda (port docname systemid internal-subset? seed) (when internal-subset? (ssax:warn port "Internal DTD subset is not currently handled ") (ssax:skip-internal-dtd port)) (ssax:warn port "DOCTYPE DECL " docname " " systemid " found and skipped") (doctype-fn docname seed)) UNDECL-ROOT (lambda (elem-gi seed) (doctype-fn elem-gi seed)) ) port '()))))) (dummy-doctype-fn (lambda (elem-gi seed) (values #f '() '() seed))) (test (lambda (str doctype-fn expected) (cout nl "Parsing: " str nl) (let ((result (simple-parser (unesc-string str) doctype-fn))) (write result) (assert (equal? result expected))))) ) (test "<BR/>" dummy-doctype-fn '(('"BR"))) (assert (failed? (test "<BR>" dummy-doctype-fn '()))) (test "<BR></BR>" dummy-doctype-fn '(('"BR"))) (assert (failed? (test "<BR></BB>" dummy-doctype-fn '()))) (test " <A HREF='URL'> link <I>itlink </I> &amp;</A>" dummy-doctype-fn '(('"A" (@ ('"HREF" "URL")) " link " ('"I" "itlink ") " " "&" "amp;"))) (test " <A HREF='URL' xml:space='preserve'> link <I>itlink </I> &amp;</A>" dummy-doctype-fn '(('"A" (@ ('"HREF" "URL") (('"xml" . '"space") "preserve")) " link " ('"I" "itlink ") " " "&" "amp;"))) (test " <A HREF='URL' xml:space='preserve'> link <I xml:space='default'>itlink </I> &amp;</A>" dummy-doctype-fn '(('"A" (@ ('"HREF" "URL") (('"xml" . '"space") "preserve")) " link " ('"I" (@ (('"xml" . '"space") "default")) "itlink ") " " "&" "amp;"))) (test "<itemize><item>This is item 1 </item>%n<!-- Just:a comment --><item>Item 2</item>%n </itemize>" dummy-doctype-fn `(('"itemize" ('"item" "This is item 1 ") ,(unesc-string "%n") ('"item" "Item 2") ,(unesc-string "%n ")))) (test " <P><![CDATA[<BR>%n<![CDATA[<BR>]]>]]></P>" dummy-doctype-fn `(('"P" "<BR>" ,nl "<![CDATA[<BR>" "]]" "" ">"))) (test " <P><![CDATA[<BR>%r<![CDATA[<BR>]]>]]></P>" dummy-doctype-fn `(('"P" "<BR>" ,nl "<![CDATA[<BR>" "]]" "" ">"))) (test "<?xml version='1.0'?>%n%n<Reports TStamp='1'></Reports>" dummy-doctype-fn '(('"Reports" (@ ('"TStamp" "1"))))) (test "%n<?PI xxx?><!-- Comment %n -%r-->%n<?PI1 zzz?><T/>" dummy-doctype-fn '(('"T"))) (test "<!DOCTYPE T SYSTEM 'system1' ><!-- comment -->%n<T/>" (lambda (elem-gi seed) (assert (equal? elem-gi ''"T")) (values #f '() '() seed)) '(('"T"))) (test "<!DOCTYPE T PUBLIC '//EN/T' \"system1\" [ <!ELEMENT a 'aa'> ]>%n<?pi?><T/>" (lambda (elem-gi seed) (assert (equal? elem-gi ''"T")) (values #f '() '() seed)) '(('"T"))) (test "<BR/>" (lambda (elem-gi seed) (values '(('"BR" EMPTY ())) '() '() seed)) '(('"BR"))) (test "<BR></BR>" (lambda (elem-gi seed) (values '(('"BR" EMPTY ())) '() '() seed)) '(('"BR"))) (assert (failed? (test "<BR>aa</BR>" (lambda (elem-gi seed) (values '(('"BR" EMPTY ())) '() '() seed)) '()))) (test "<BR>aa</BR>" (lambda (elem-gi seed) (values '(('"BR" PCDATA ())) '() '() seed)) '(('"BR" "aa"))) (assert (failed? (test "<BR>a<I>a</I></BR>" (lambda (elem-gi seed) (values '(('"BR" PCDATA ())) '() '() seed)) '()))) (test "<BR>a<I>a</I></BR>" (lambda (elem-gi seed) (values '(('"BR" ANY ()) ('"I" PCDATA ())) '() '() seed)) '(('"BR" "a" ('"I" "a")))) (test "<DIV>Example: \"&example;\"</DIV>" (lambda (elem-gi seed) (values #f '((example . "<P>An ampersand (&) may be escaped numerically (&#38;) or with a general entity (&amp;).</P>")) '() seed)) '(('"DIV" "Example: \"" ('"P" "An ampersand (" "&" ") may be escaped numerically (" "&" "#38;) or with a general entity (" "&" "amp;).") "\""))) (test "<DIV>Example: \"&example;\" <P/></DIV>" (lambda (elem-gi seed) (values #f '(('"quote" . "<I>example:</I> ex") ('"example" . "<Q>"e;!</Q>?")) '() seed)) '(('"DIV" "Example: \"" ('"Q" ('"I" "example:") " ex" "!") "?" "\" " ('"P")))) (assert (failed? (test "<DIV>Example: \"&example;\" <P/></DIV>" (lambda (elem-gi seed) (values #f '(('"quote" . "<I>example:") ('"example" . "<Q>"e;</I>!</Q>?")) '() seed)) '()))) (test "<DIV A:B='A' B='B' xmlns:A='URI1' xmlns='URI1'><A:P xmlns=''><BR/></A:P></DIV>" (lambda (elem-gi seed) (values #f '() '() seed)) '((('"URI1" . '"DIV") (@ ('"B" "B") (('"URI1" . '"B") "A")) (*NAMESPACES* (('"A" '"URI1" . '"URI1") (*DEFAULT* '"URI1" . '"URI1"))) (('"URI1" . '"P") (*NAMESPACES* ((*DEFAULT* #f . #f) ('"A" '"URI1" . '"URI1") (*DEFAULT* '"URI1" . '"URI1"))) ('"BR" (*NAMESPACES* ((*DEFAULT* #f . #f) ('"A" '"URI1" . '"URI1") (*DEFAULT* '"URI1" . '"URI1")))))))) (test "<DIV A:B='A' B='B' xmlns:A='URI1' xmlns='URI1'><A:P xmlns=''><BR/></A:P></DIV>" (lambda (elem-gi seed) (values #f '() '((#f '"UA" . '"URI1")) seed)) '((('"UA" . '"DIV") (@ ('"B" "B") (('"UA" . '"B") "A")) (*NAMESPACES* (('"A" '"UA" . '"URI1") (*DEFAULT* '"UA" . '"URI1") (#f '"UA" . '"URI1"))) (('"UA" . '"P") (*NAMESPACES* ((*DEFAULT* #f . #f) ('"A" '"UA" . '"URI1") (*DEFAULT* '"UA" . '"URI1") (#f '"UA" . '"URI1"))) ('"BR" (*NAMESPACES* ((*DEFAULT* #f . #f) ('"A" '"UA" . '"URI1") (*DEFAULT* '"UA" . '"URI1") (#f '"UA" . '"URI1")))))))) ; uniqattr should fail (assert (failed? (test "<DIV A:B='A' B='B' xmlns:A='URI1' xmlns='URI1'><A:P xmlns=''><BR/></A:P></DIV>" (lambda (elem-gi seed) (values `(('"DIV" ANY (('"B" CDATA IMPLIED #f) (('"A" . '"B") CDATA IMPLIED #f) (('"C" . '"B") CDATA IMPLIED "xx") (('"xmlns" . '"C") CDATA IMPLIED "URI1") )) (('"A" . '"P") ANY ()) ('"BR" '"EMPTY" ())) '() '((#f '"UA" . '"URI1")) seed)) '()))) ; prefix C undeclared (assert (failed? (test "<DIV A:B='A' B='B' xmlns:A='URI1' xmlns='URI1'><A:P xmlns=''><BR/></A:P></DIV>" (lambda (elem-gi seed) (values '(('"DIV" ANY (('"B" CDATA IMPLIED #f) ('"xmlns" CDATA IMPLIED "URI1") (('"A" . '"B") CDATA IMPLIED #f) (('"C" . '"B") CDATA IMPLIED "xx") )) (('"A" . '"P") ANY ()) ('"BR" EMPTY ())) '() '((#f '"UA" . '"URI1")) seed)) '()))) ; contradiction to xmlns declaration (assert (failed? (test "<DIV A:B='A' B='B' xmlns:A='URI1' xmlns='URI1'><A:P xmlns=''><BR/></A:P></DIV>" (lambda (elem-gi seed) (values '(('"DIV" ANY (('"B" CDATA IMPLIED #f) ('"xmlns" CDATA FIXED "URI2") (('"A" . '"B") CDATA IMPLIED #f) )) (('"A" . '"P") ANY ()) ('"BR" EMPTY ())) '() '((#f '"UA" . '"URI1")) seed)) '()))) (test "<DIV A:B='A' B='B' xmlns:A='URI1' xmlns='URI1'><A:P xmlns=''><BR/></A:P></DIV>" (lambda (elem-gi seed) (values '(('"DIV" ANY (('"B" CDATA IMPLIED #f) ('"xmlns" CDATA FIXED "URI1") (('"A" . '"B") CDATA IMPLIED #f) )) (('"A" . '"P") ANY ()) ('"BR" EMPTY ())) '() '((#f '"UA" . '"URI1")) seed)) '((('"UA" . '"DIV") (@ ('"B" "B") (('"UA" . '"B") "A")) (*NAMESPACES* ((*DEFAULT* '"UA" . '"URI1") ('"A" '"UA" . '"URI1") (#f '"UA" . '"URI1"))) (('"UA" . '"P") (*NAMESPACES* ((*DEFAULT* #f . #f) (*DEFAULT* '"UA" . '"URI1") ('"A" '"UA" . '"URI1") (#f '"UA" . '"URI1"))) ('"BR" (*NAMESPACES* ((*DEFAULT* #f . #f) (*DEFAULT* '"UA" . '"URI1") ('"A" '"UA" . '"URI1") (#f '"UA" . '"URI1")))))))) (test "<DIV A:B='A' B='B' xmlns:A='URI1' xmlns='URI1'><A:P xmlns=''><BR/></A:P></DIV>" (lambda (elem-gi seed) (values '(('"DIV" ANY (('"B" CDATA IMPLIED #f) (('"A" . '"B") CDATA IMPLIED #f) (('"C" . '"B") CDATA IMPLIED "xx") (('"xmlns" . '"C") CDATA IMPLIED "URI2") )) (('"A" . '"P") ANY ()) ('"BR" EMPTY ())) '() '((#f '"UA" . '"URI1")) seed)) '((('"UA" . '"DIV") (@ ('"B" "B") (('"UA" . '"B") "A") (('"URI2" . '"B") "xx")) (*NAMESPACES* ((*DEFAULT* '"UA" . '"URI1") ('"A" '"UA" . '"URI1") ('"C" '"URI2" . '"URI2") (#f '"UA" . '"URI1"))) (('"UA" . '"P") (*NAMESPACES* ((*DEFAULT* #f . #f) (*DEFAULT* '"UA" . '"URI1") ('"A" '"UA" . '"URI1") ('"C" '"URI2" . '"URI2") (#f '"UA" . '"URI1"))) ('"BR" (*NAMESPACES* ((*DEFAULT* #f . #f) (*DEFAULT* '"UA" . '"URI1") ('"A" '"UA" . '"URI1") ('"C" '"URI2" . '"URI2") (#f '"UA" . '"URI1")))))))) )) ;======================================================================== ; Highest-level parsers: XML to SXML ; ; First, a few utility procedures that turned out useful ; ssax:reverse-collect-str LIST-OF-FRAGS -> LIST-OF-FRAGS ; given the list of fragments (some of which are text strings) ; reverse the list and concatenate adjacent text strings. ; We can prove from the general case below that if LIST-OF-FRAGS ; has zero or one element, the result of the procedure is equal? ; to its argument. This fact justifies the shortcut evaluation below. (define (ssax:reverse-collect-str fragments) (cond ((null? fragments) '()) ; a shortcut ((null? (cdr fragments)) fragments) ; see the comment above (else (let loop ((fragments fragments) (result '()) (strs '())) (cond ((null? fragments) (if (null? strs) result (cons (string-concatenate/shared strs) result))) ((string? (car fragments)) (loop (cdr fragments) result (cons (car fragments) strs))) (else (loop (cdr fragments) (cons (car fragments) (if (null? strs) result (cons (string-concatenate/shared strs) result))) '()))))))) ; ssax:reverse-collect-str-drop-ws LIST-OF-FRAGS -> LIST-OF-FRAGS ; given the list of fragments (some of which are text strings) ; reverse the list and concatenate adjacent text strings. ; We also drop "unsignificant" whitespace, that is, whitespace ; in front, behind and between elements. The whitespace that ; is included in character data is not affected. ; We use this procedure to "intelligently" drop "insignificant" ; whitespace in the parsed SXML. If the strict compliance with ; the XML Recommendation regarding the whitespace is desired, please ; use the ssax:reverse-collect-str procedure instead. (define (ssax:reverse-collect-str-drop-ws fragments) (cond ((null? fragments) '()) ; a shortcut ((null? (cdr fragments)) ; another shortcut (if (and (string? (car fragments)) (string-whitespace? (car fragments))) '() fragments)) ; remove trailing ws (else (let loop ((fragments fragments) (result '()) (strs '()) (all-whitespace? #t)) (cond ((null? fragments) (if all-whitespace? result ; remove leading ws (cons (string-concatenate/shared strs) result))) ((string? (car fragments)) (loop (cdr fragments) result (cons (car fragments) strs) (and all-whitespace? (string-whitespace? (car fragments))))) (else (loop (cdr fragments) (cons (car fragments) (if all-whitespace? result (cons (string-concatenate/shared strs) result))) '() #t))))))) ; procedure: ssax:xml->sxml PORT NAMESPACE-PREFIX-ASSIG ; ; This is an instance of a SSAX parser above that returns an SXML ; representation of the XML document to be read from PORT. ; NAMESPACE-PREFIX-ASSIG is a list of (USER-PREFIX . URI-STRING) ; that assigns USER-PREFIXes to certain namespaces identified by ; particular URI-STRINGs. It may be an empty list. ; The procedure returns an SXML tree. The port points out to the ; first character after the root element. (define (ssax:xml->sxml port namespace-prefix-assig) (letrec ((namespaces (map (lambda (el) (cons* #f (car el) (ssax:uri-string->symbol (cdr el)))) namespace-prefix-assig)) (RES-NAME->SXML (lambda (res-name) (string->symbol (string-append (symbol->string (car res-name)) ":" (symbol->string (cdr res-name)))))) ) (let ((result (reverse ((ssax:make-parser NEW-LEVEL-SEED (lambda (elem-gi attributes namespaces expected-content seed) '()) FINISH-ELEMENT (lambda (elem-gi attributes namespaces parent-seed seed) (let ((seed (ssax:reverse-collect-str seed)) (attrs (attlist-fold (lambda (attr accum) (cons (list (if (symbol? (car attr)) (car attr) (RES-NAME->SXML (car attr))) (cdr attr)) accum)) '() attributes))) (cons (cons (if (symbol? elem-gi) elem-gi (RES-NAME->SXML elem-gi)) (if (null? attrs) seed (cons (cons '@ attrs) seed))) parent-seed))) CHAR-DATA-HANDLER (lambda (string1 string2 seed) (if (string-null? string2) (cons string1 seed) (cons* string2 string1 seed))) DOCTYPE (lambda (port docname systemid internal-subset? seed) (when internal-subset? (ssax:warn port "Internal DTD subset is not currently handled ") (ssax:skip-internal-dtd port)) (ssax:warn port "DOCTYPE DECL " docname " " systemid " found and skipped") (values #f '() namespaces seed)) UNDECL-ROOT (lambda (elem-gi seed) (values #f '() namespaces seed)) PI ((*DEFAULT* . (lambda (port pi-tag seed) (cons (list '*PI* pi-tag (ssax:read-pi-body-as-string port)) seed)))) ) port '())))) (cons '*TOP* (if (null? namespace-prefix-assig) result (cons (list '@ (cons '*NAMESPACES* (map (lambda (ns) (list (car ns) (cdr ns))) namespace-prefix-assig))) result))) ))) ; For backwards compatibility (define SSAX:XML->SXML ssax:xml->sxml) ; a few lines of validation code (run-test (letrec ((test (lambda (str namespace-assig expected-res) (newline) (display "input: ") (write (unesc-string str)) (newline) (display "Result: ") (let ((result (call-with-input-string (unesc-string str) (lambda (port) (ssax:xml->sxml port namespace-assig))))) (pp result) (assert (equal_? result expected-res)))))) (test " <BR/>" '() '(*TOP* (BR))) (test "<BR></BR>" '() '(*TOP* (BR))) (test " <BR CLEAR='ALL'%nCLASS='Class1'/>" '() '(*TOP* (BR (@ (CLEAR "ALL") (CLASS "Class1"))))) (test " <A HREF='URL'> link <I>itlink </I> &amp;</A>" '() '(*TOP* (A (@ (HREF "URL")) " link " (I "itlink ") " &"))) (test " <A HREF='URL' xml:space='preserve'> link <I>itlink </I> &amp;</A>" '() '(*TOP* (A (@ (xml:space "preserve") (HREF "URL")) " link " (I "itlink ") " &"))) (test " <A HREF='URL' xml:space='preserve'> link <I xml:space='default'>itlink </I> &amp;</A>" '() '(*TOP* (A (@ (xml:space "preserve") (HREF "URL")) " link " (I (@ (xml:space "default")) "itlink ") " &"))) (test " <P><?pi1 p1 content ?>?<?pi2 pi2? content? ??></P>" '() '(*TOP* (P (*PI* pi1 "p1 content ") "?" (*PI* pi2 "pi2? content? ?")))) (test " <P>some text <![CDATA[<]]>1%n"<B>strong</B>"%r</P>" '() `(*TOP* (P ,(unesc-string "some text <1%n\"") (B "strong") ,(unesc-string "\"%n")))) (test " <P><![CDATA[<BR>%n<![CDATA[<BR>]]>]]></P>" '() `(*TOP* (P ,(unesc-string "<BR>%n<![CDATA[<BR>]]>")))) ; (test "<T1><T2>it's%r%nand that%n</T2>%r%n%r%n%n</T1>" '() ; '(*TOP* (T1 (T2 "it's%nand that%n") "%n%n%n"))) (test "<T1><T2>it's%r%nand that%n</T2>%r%n%r%n%n</T1>" '() `(*TOP* (T1 (T2 ,(unesc-string "it's%nand that%n")) ,(unesc-string "%n%n%n")))) (test "<T1><T2>it's%rand that%n</T2>%r%n%r%n%n</T1>" '() `(*TOP* (T1 (T2 ,(unesc-string "it's%nand that%n")) ,(unesc-string "%n%n%n")))) (test "<!DOCTYPE T SYSTEM 'system1' ><!-- comment -->%n<T/>" '() '(*TOP* (T))) (test "<?xml version='1.0'?>%n<WEIGHT unit=\"pound\">%n<NET certified='certified'> 67 </NET>%n<GROSS> 95 </GROSS>%n</WEIGHT>" '() `(*TOP* (*PI* xml "version='1.0'") (WEIGHT (@ (unit "pound")) ,nl (NET (@ (certified "certified")) " 67 ") ,nl (GROSS " 95 ") ,nl) )) ; (test "<?xml version='1.0'?>%n<WEIGHT unit=\"pound\">%n<NET certified='certified'> 67 </NET>%n<GROSS> 95 </GROSS>%n</WEIGHT>" '() ; '(*TOP* (*PI* xml "version='1.0'") (WEIGHT (@ (unit "pound")) ; "%n" (NET (@ (certified "certified")) " 67 ") ; "%n" (GROSS " 95 ") "%n") ; )) (test "<DIV A:B='A' B='B' xmlns:A='URI1' xmlns='URI1'><A:P xmlns=''><BR/></A:P></DIV>" '() '(*TOP* (URI1:DIV (@ (URI1:B "A") (B "B")) (URI1:P (BR))))) (test "<DIV A:B='A' B='B' xmlns:A='URI1' xmlns='URI1'><A:P xmlns=''><BR/></A:P></DIV>" '((UA . "URI1")) '(*TOP* (@ (*NAMESPACES* (UA "URI1"))) (UA:DIV (@ (UA:B "A") (B "B")) (UA:P (BR))))) ; A few tests from XML Namespaces Recommendation (test (string-append "<x xmlns:edi='http://ecommerce.org/schema'>" "<!-- the 'taxClass' attribute's ns http://ecommerce.org/schema -->" "<lineItem edi:taxClass='exempt'>Baby food</lineItem>" nl "</x>") '() `(*TOP* (x (lineItem (@ (http://ecommerce.org/schema:taxClass "exempt")) "Baby food") ,nl))) (test (string-append "<x xmlns:edi='http://ecommerce.org/schema'>" "<!-- the 'taxClass' attribute's ns http://ecommerce.org/schema -->" "<lineItem edi:taxClass='exempt'>Baby food</lineItem>" "</x>") '((EDI . "http://ecommerce.org/schema")) '(*TOP* (@ (*NAMESPACES* (EDI "http://ecommerce.org/schema"))) (x (lineItem (@ (EDI:taxClass "exempt")) "Baby food")))) (test (string-append "<bk:book xmlns:bk='urn:loc.gov:books' " "xmlns:isbn='urn:ISBN:0-395-36341-6'>" "<bk:title>Cheaper by the Dozen</bk:title>" "<isbn:number>1568491379</isbn:number></bk:book>") '() '(*TOP* (urn:loc.gov:books:book (urn:loc.gov:books:title "Cheaper by the Dozen") (urn:ISBN:0-395-36341-6:number "1568491379")))) (test (string-append "<!-- initially, the default namespace is 'books' -->" "<book xmlns='urn:loc.gov:books' " "xmlns:isbn='urn:ISBN:0-395-36341-6'>" "<title>Cheaper by the Dozen" "1568491379" "" "" "

" "This is a funny book!" "

" "
" "") '() '(*TOP* (urn:loc.gov:books:book (urn:loc.gov:books:title "Cheaper by the Dozen") (urn:ISBN:0-395-36341-6:number "1568491379") (urn:loc.gov:books:notes (urn:w3-org-ns:HTML:p "This is a " (urn:w3-org-ns:HTML:i "funny") " book!"))))) (test (string-append "" "" "" "" "" "" "" "" "" "" "
NameOriginDescription
HuntsmanBath, UK" "
BitterFuggles" "Wonderful hop, light alcohol, good summer beer" "Fragile; excessive variance pub to pub" "
" "
" "
") '((html . "http://www.w3.org/TR/REC-html40")) '(*TOP* (@ (*NAMESPACES* (html "http://www.w3.org/TR/REC-html40"))) (Beers (html:table (html:th (html:td "Name") (html:td "Origin") (html:td "Description")) (html:tr (html:td (brandName "Huntsman")) (html:td (origin "Bath, UK")) (html:td (details (class "Bitter") (hop "Fuggles") (pro "Wonderful hop, light alcohol, good summer beer") (con "Fragile; excessive variance pub to pub")))))))) (test (string-append "" "Layman, A" "33B" "Check Status" "1997-05-24T07:55:00+1") '((HTML . "http://www.w3.org/TR/REC-html40")) '(*TOP* (@ (*NAMESPACES* (HTML "http://www.w3.org/TR/REC-html40"))) (RESERVATION (NAME (@ (HTML:CLASS "largeSansSerif")) "Layman, A") (SEAT (@ (HTML:CLASS "largeMonotype") (CLASS "Y")) "33B") (HTML:A (@ (HREF "/cgi-bin/ResStatus")) "Check Status") (DEPARTURE "1997-05-24T07:55:00+1")))) ; Part of RDF from the XML Infoset (test (string-concatenate/shared '( "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "")) '((RDF . "http://www.w3.org/1999/02/22-rdf-syntax-ns#") (RDFS . "http://www.w3.org/2000/01/rdf-schema#") (ISET . "http://www.w3.org/2001/02/infoset#")) '(*TOP* (@ (*NAMESPACES* (RDF "http://www.w3.org/1999/02/22-rdf-syntax-ns#") (RDFS "http://www.w3.org/2000/01/rdf-schema#") (ISET "http://www.w3.org/2001/02/infoset#"))) (*PI* xml "version='1.0' encoding='utf-8' standalone='yes'") (RDF:RDF (RDFS:Class (@ (ID "Boolean"))) (ISET:Boolean (@ (ID "Boolean.true"))) (ISET:Boolean (@ (ID "Boolean.false"))) (RDFS:Class (@ (ID "InfoItem"))) (RDFS:Class (@ (RDFS:subClassOf "#InfoItem") (ID "Document"))) (RDFS:Class (@ (RDFS:subClassOf "#InfoItem") (ID "Element"))) (RDFS:Class (@ (RDFS:subClassOf "#InfoItem") (ID "Attribute"))) (RDFS:Class (@ (RDFS:subClassOf "http://www.w3.org/1999/02/22-rdf-syntax-ns#Bag") (ID "InfoItemSet"))) (RDFS:Class (@ (RDFS:subClassOf "#InfoItemSet") (ID "AttributeSet"))) (RDFS:Property (@ (ID "allDeclarationsProcessed")) (RDFS:domain (@ (resource "#Document"))) (RDFS:range (@ (resource "#Boolean")))) (RDFS:Property (@ (ID "attributes")) (RDFS:domain (@ (resource "#Element"))) (RDFS:range (@ (resource "#AttributeSet"))))))) ; Part of RDF from RSS of the Daemon News Mall (test (string-concatenate/shared (list-intersperse '( "" "" "Daemon News Mall" "http://mall.daemonnews.org/" "Central source for all your BSD needs" "" "" "Daemon News Jan/Feb Issue NOW Available! Subscribe $24.95" "http://mall.daemonnews.org/?page=shop/flypage&product_id=880" "" "" "The Design and Implementation of the 4.4BSD Operating System $54.95" "http://mall.daemonnews.org/?page=shop/flypage&product_id=912&category_id=1761" "" "") (string #\newline) )) '((RDF . "http://www.w3.org/1999/02/22-rdf-syntax-ns#") (RSS . "http://my.netscape.com/rdf/simple/0.9/") (ISET . "http://www.w3.org/2001/02/infoset#")) `(*TOP* (@ (*NAMESPACES* (RDF "http://www.w3.org/1999/02/22-rdf-syntax-ns#") (RSS "http://my.netscape.com/rdf/simple/0.9/") (ISET "http://www.w3.org/2001/02/infoset#"))) (*PI* xml "version='1.0'") (RDF:RDF ,nl (RSS:channel ,nl (RSS:title "Daemon News Mall") ,nl (RSS:link "http://mall.daemonnews.org/") ,nl (RSS:description "Central source for all your BSD needs") ,nl) ,nl (RSS:item ,nl (RSS:title "Daemon News Jan/Feb Issue NOW Available! Subscribe $24.95") ,nl (RSS:link "http://mall.daemonnews.org/?page=shop/flypage&product_id=880") ,nl) ,nl (RSS:item ,nl (RSS:title "The Design and Implementation of the 4.4BSD Operating System $54.95") ,nl (RSS:link "http://mall.daemonnews.org/?page=shop/flypage&product_id=912&category_id=1761") ,nl) ,nl))) (test (string-concatenate/shared '("" "" "111730Z 111818" "" "31010KT P6SM FEW030" "" "" "29016KT P6SM FEW040" "" "" "29010KT P6SM SCT200" "VRB05KT" "" "")) '() '(*TOP* (Forecasts (@ (TStamp "958082142")) (TAF (@ (TStamp "958066200") (SName "KMRY, MONTEREY PENINSULA") (LatLon "36.583, -121.850") (BId "724915")) (VALID (@ (TRange "958068000, 958154400")) "111730Z 111818") (PERIOD (@ (TRange "958068000, 958078800")) (PREVAILING "31010KT P6SM FEW030")) (PERIOD (@ (Title "FM2100") (TRange "958078800, 958104000")) (PREVAILING "29016KT P6SM FEW040")) (PERIOD (@ (Title "FM0400") (TRange "958104000, 958154400")) (PREVAILING "29010KT P6SM SCT200") (VAR (@ (Title "BECMG 0708") (TRange "958114800, 958118400")) "VRB05KT")))))) )) (run-test (newline) (display "All tests passed") (newline) ) sxml/apply-templates.scm000064400000007557152532461420011376 0ustar00;;;; (sxml apply-templates) -- xslt-like transformation for sxml ;;;; ;;;; Copyright (C) 2009 Free Software Foundation, Inc. ;;;; Copyright 2004 by Andy Wingo . ;;;; Written 2003 by Oleg Kiselyov as apply-templates.scm. ;;;; ;;;; This library 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. ;;;; ;;;; This library 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 library; if not, write to the Free Software ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA ;;;; ;;; Commentary: ;; ;; Pre-order traversal of a tree and creation of a new tree: ;; ;;@smallexample ;; apply-templates:: tree x -> ;;@end smallexample ;; where ;;@smallexample ;; ::= (