asda?‰PNG  IHDR ? f ??C1 sRGB ??é gAMA ±? üa pHYs ? ??o¨d GIDATx^íüL”÷e÷Y?a?("Bh?_ò???￠§?q5k?*:t0A-o??￥]VkJ￠M??f?±8\k2íll￡1]q?ù???T srfi-45.go000064400000077560151027761750006316 0ustar00GOOF----LE-8-2.0X]4hE] gguile  gdefine-module*   gsrfi gsrfi-45  gfilenameS fsrfi/srfi-45.scm gimportsS gsrfi-9     ggnu     gexportsS gdelay glazy gforce geager gpromise?  g replacementsS  gset-current-module   gcond-expand-provide gcurrent-module ! "gpromise #g%make-promise-procedure $gmake-syntax-transformer %$ &$ 'g make-promise (gmacro )g $sc-dispatch *) +) ,g_ -gany .,- /g syntax-object 0glambda 1gm-46961e513e-4 2gtop 312 4gribcage 5gt-46961e513e-3 65 73 8fl-46961e513e-9 98 :4679 ;4 fl-46961e513e-6 ?> @4=7? Agshift Bg proc-name Cgargs DBC E2 FEE Gfl-1e8ba8b5a-2ba Hfl-1e8ba8b5a-2bb IGH J4DFI Kgkey Lgvalue Mgname Ngformals Ogbody PKLMNO QEEEEE Rfl-1e8ba8b5a-2ad Sfl-1e8ba8b5a-2ae Tfl-1e8ba8b5a-2af Ufl-1e8ba8b5a-2b0 Vfl-1e8ba8b5a-2b1 WRSTUV X4PQW Ygmake-procedure-name ZY [E \fl-1e8ba8b5a-29d ]\ ^4Z[] _E `fl-1e8ba8b5a-29c a` b4=_a c3:;@A;;;;JX^b  dghygiene ed  f/0ce ggval hE:;@ id j/ghi kj lg make-struct mgm-46961e513e-1 nm2 ogt-1e8ba8b5a-38d pgt-1e8ba8b5a-38c qgt-1e8ba8b5a-38b ropq sgm-1e8ba8b5a-38e ts2 uttt vfl-1e8ba8b5a-392 wfl-1e8ba8b5a-393 xfl-1e8ba8b5a-394 yvwx z4ruy {g ctor-args |{ }fl-1e8ba8b5a-37a ~} 4|_~ gctor gfield  fl-1e8ba8b5a-376 fl-1e8ba8b5a-377  4F gform g type-name gconstructor-spec g field-names  EEEE fl-1e8ba8b5a-36b fl-1e8ba8b5a-36c fl-1e8ba8b5a-36d fl-1e8ba8b5a-36e  4 g record-layout gfunctional-setters gsetters gcopier ggetters g constructor ggetter-identifiers gfield-identifiers  EEEEEEEE fl-1e8ba8b5a-343 fl-1e8ba8b5a-341 fl-1e8ba8b5a-33f fl-1e8ba8b5a-33d fl-1e8ba8b5a-33b fl-1e8ba8b5a-339 fl-1e8ba8b5a-337 fl-1e8ba8b5a-335  4 fl-1e8ba8b5a-334  4=_ n:;@A;z;;;; /le /"hi / e j fk geach-any , gsyntax-violation     fWrong number of arguments g identifier?     E;@ /#i   f-source expression failed to match any pattern grecord-type-vtable     gpw gdefault-record-printer     g gset-struct-vtable-name!     gvtable-offset-user     g%promise?-procedure gm-46961e513e-11 2 gt-46961e513e-10   fl-46961e513e-16  4 fl-46961e513e-13  4= ;A;;;;JX^b  /0e 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 2  fl-1e8ba8b5a-483 fl-1e8ba8b5a-484 fl-1e8ba8b5a-485 fl-1e8ba8b5a-486 fl-1e8ba8b5a-487 fl-1e8ba8b5a-488 fl-1e8ba8b5a-489  4 g copier-id  fl-1e8ba8b5a-476  4_ g ctor-name  fl-1e8ba8b5a-46e  4_  fl-1e8ba8b5a-46c  4_ glayout  fl-1e8ba8b5a-46a  4_ g immutable?  fl-1e8ba8b5a-468  4_ g field-count   fl-1e8ba8b5a-466     4_   g getter-ids    fl-1e8ba8b5a-463  4 _ g field-ids  fl-1e8ba8b5a-460  4_ gpredicate-name g field-spec  EEEEEE fl-1e8ba8b5a-453 fl-1e8ba8b5a-454 fl-1e8ba8b5a-455 fl-1e8ba8b5a-456 fl-1e8ba8b5a-457 fl-1e8ba8b5a-458   !4  "n;A;;;;;;;;;; ;;! #/"e $# %gand &/%"e 'gstruct? (/'"e )(# *geq? +/*"e ,g struct-vtable -/,"e .-# /E; 0/"/i 1+.0 2&)1 3$2 4E; 5/4i 6gthrow-bad-struct 7 6 8 6 9g promise-val :g%promise-val-procedure ;gfree-id =2 ?> @fl-46961e513e-1f A@ B4=?A C>;BA;;;;JX^b  D/<Ce E;D FE- Gg%%type Hgt-1e8ba8b5a-3a5 Igt-1e8ba8b5a-3a6 Jgt-1e8ba8b5a-3a7 Kgt-1e8ba8b5a-3a8 Lgt-1e8ba8b5a-3a9 Mgt-1e8ba8b5a-3aa Ngt-1e8ba8b5a-3ab OHIJKLMN Pgm-1e8ba8b5a-3ac QP2 RQQQQQQQ Sfl-1e8ba8b5a-3b0 Tfl-1e8ba8b5a-3b1 Ufl-1e8ba8b5a-3b2 Vfl-1e8ba8b5a-3b3 Wfl-1e8ba8b5a-3b4 Xfl-1e8ba8b5a-3b5 Yfl-1e8ba8b5a-3b6 ZSTUVWXY [4ORZ \ggetter ]gindex ^\] _fl-1e8ba8b5a-3a3 `fl-1e8ba8b5a-3a4 a_` b4^Fa c  dEEE efl-1e8ba8b5a-39e ffl-1e8ba8b5a-39f gfl-1e8ba8b5a-3a0 hefg i4cdh jn;BA;[;;;b;i k/Gje l;k m,Fl- ngck ogerr pgs qop r>> sfl-46961e513e-22 tfl-46961e513e-23 ust v4qru w>v;BA;;;;JX^b  x/nwe ygquote z/ywe {Ev;B |/"{i }z| ~} g%%index /je ; ,F- fl-46961e513e-27 fl-46961e513e-28  4qr >;BA;;;;JX^b  /ne /ye ;B / i   g%%copier /je ; ,F- fl-46961e513e-2c fl-46961e513e-2d  4qr >;BA;;;;JX^b  /ne /ye g%%promise-set-fields E;B /i   gt-46961e513e-1c  fl-46961e513e-31  4? >;BA;;;;JX^b  /0e n;BA;[;;;b;i /pe  gif /e /*e /,e  E;B /"i  g struct-ref /e ;B / i  /6e /ye /9i     E;B /:i geach --  - - -Œ g %%set-fields gdummy gcheck? gexpr p\ gm-46961e513e-38 2 nnnn fl-46961e513e-3d fl-46961e513e-3e fl-46961e513e-3f fl-46961e513e-40 fl-46961e513e-41  4  fl-46961e513e-3a  4= gt-1e8ba8b5a-3c4 gt-1e8ba8b5a-3c6 gt-1e8ba8b5a-3c5  gm-1e8ba8b5a-3c7 2  fl-1e8ba8b5a-3cb fl-1e8ba8b5a-3cc fl-1e8ba8b5a-3cd  4 fl-1e8ba8b5a-3c1 fl-1e8ba8b5a-3c2 fl-1e8ba8b5a-3c3  4cd n;A;;;;  /e E; /"i /9i  gmap   glist gpromise-val-set! g%promise-val-set!-procedure ,-- gm-46961e513e-4c 2 gt-46961e513e-4a gt-46961e513e-4b   fl-46961e513e-51 fl-46961e513e-52  4  fl-46961e513e-4e  4= ;A;;;;JX^b  /0e gt-1e8ba8b5a-3e6 gt-1e8ba8b5a-3e7  gm-1e8ba8b5a-3e8  2      fl-1e8ba8b5a-3ec  fl-1e8ba8b5a-3ed     4   gsetter M\ fl-1e8ba8b5a-3e0 fl-1e8ba8b5a-3e1 fl-1e8ba8b5a-3e2  4d ] fl-1e8ba8b5a-3d7 fl-1e8ba8b5a-3d8  4F g field-specs  fl-1e8ba8b5a-3d3 fl-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 gt-46961e513e-6b ?gt-46961e513e-6c @>? A== Bfl-46961e513e-72 Cfl-46961e513e-73 DBC E4@AD F= Gfl-46961e513e-6f HG I4=FH J=E;IA;;;;JX^b  K/0Je Lgtag MEE;I N/LMi Ogproc P/OMi QNP Rgm-46961e513e-69 SR2 TSE;IA;z;;;; U/lTe V/LMi W/ Te XUVWNP YKQX ZE;I [/:Zi \gpwpw ]LO ^g%value?-procedure _gvalue? `gm-46961e513e-7c a`2 bgt-46961e513e-7b cb da efl-46961e513e-81 fe g4cdf hfl-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 gm-46961e513e-88 2  fl-46961e513e-8a  4= ;A;;;;JX^b  /<e ; - S;A;[;;;b;i /Ge ; ,-  fl-46961e513e-8d fl-46961e513e-8e  4q ;A;;;;JX^b  /ne /ye E; /Li   /e ; ,- fl-46961e513e-92 fl-46961e513e-93  4q ;A;;;;JX^b  /ne /ye ; / i   /e ; ,- fl-46961e513e-97 fl-46961e513e-98  4q ;A;;;;JX^b  /ne /ye g%%value-set-fields E; /i   gt-46961e513e-87  fl-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 gm-46961e513e-a3 2  fl-46961e513e-a5  4= ;A;;;;JX^b  /<e ; - S;A;[;;;b;i /Ge ; ,-  fl-46961e513e-a8 fl-46961e513e-a9  4q ;A;;;;JX^b  /ne /ye E; /Li   /e ; ,- fl-46961e513e-ad fl-46961e513e-ae  4q ;A;;;;JX^b  /ne /ye ; / i   /e ; ,- fl-46961e513e-b2 fl-46961e513e-b3  4q ;A;;;;JX^b  /ne /ye E;  /i        gt-46961e513e-a2    fl-46961e513e-b7  4  ;A;;;;JX^b  /0e S;A;[;;;b;i /pe  /e /*e /,e  E; /Li  /e ; / i   !/6e "/ye #/i $"# %!$ & % '& (E; )/(i *gm-46961e513e-be +*2 ,+SSSS -fl-46961e513e-c3 .fl-46961e513e-c4 /fl-46961e513e-c5 0fl-46961e513e-c6 1fl-46961e513e-c7 2-./01 34,2 4+ 5fl-46961e513e-c0 65 74=46 8S3;7A;;;;  9/8e :E3;7 ;/L:i </}:i =/:i ><= ?gvalue-tag-set! @g%value-tag-set!-procedure Agm-46961e513e-d2 BA2 Cgt-46961e513e-d0 Dgt-46961e513e-d1 ECD FBB Gfl-46961e513e-d7 Hfl-46961e513e-d8 IGH J4EFI KB Lfl-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 igvalue-proc-set! jg%value-proc-set!-procedure kgm-46961e513e-e2 lk2 mgt-46961e513e-e0 ngt-46961e513e-e1 omn pll qfl-46961e513e-e7 rfl-46961e513e-e8 sqr t4ops ul vfl-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 gexp  gm-46961e513e-107 2 E fl-46961e513e-10c fl-46961e513e-10d  4  fl-46961e513e-109  4= E; /'i /;i /yi /i  /0i gm-46961e513e-11b 2 E fl-46961e513e-120 fl-46961e513e-121  4  fl-46961e513e-11d  4= E; /i /i gon-eagerS   gon-lazyS    g promise-visit gset-record-type-printer! gformat f# f# ~s>C5h4]4   5 4>"G4i4 i5!>"G"hx]Cpgval  gfilenamefsrfi/srfi-45.scm .   gnameg%make-promise-procedureC#R4&'(+.h6]C.gt-46961e513e-3    C'hS]L6Kga  gfilenamefsrfi/srfi-45.scm  .   C,hC]L6;gfilenamefsrfi/srfi-45.scm  .    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-45.scm .   n C5'R"Ũ4">"G ˖#i"R"ht]$CClgobj  gfilenamefsrfi/srfi-45.scm .    gnameg%promise?-procedureCR4&(+.3h7]C/gt-46961e513e-10    ChS]L6Kga  gfilenamefsrfi/srfi-45.scm  .   C,hC]L6;gfilenamefsrfi/srfi-45.scm  .    C5h]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-45.scm .   n C5R"89hu]& C6mgs  gfilenamefsrfi/srfi-45.scm .    gnameg%promise-val-procedureC:R4&9(+mx~h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    C.h7]C/gt-46961e513e-1c    C9hS]L6Kga  gfilenamefsrfi/srfi-45.scm  .   C,hC]L6;gfilenamefsrfi/srfi-45.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  gfilenamefsrfi/srfi-45.scm .   C59R4&(+h v]45Cngdummy  gcheck?  gs   ggetter   gexpr      Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-45.scm .   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5R"8h ]& C6gs  gval  gfilenamefsrfi/srfi-45.scm .    gnameg%promise-val-set!-procedureCR4&(+7hT]CLgt-46961e513e-4a  gt-46961e513e-4b    ChS]L6Kga  gfilenamefsrfi/srfi-45.scm  .   C,hC]L6;gfilenamefsrfi/srfi-45.scm  .    C9h]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-45.scm .   n C5RLh]Cgtag  gproc  gfilenamefsrfi/srfi-45.scm 1   gnameg%make-value-procedureC:R4&;(+YhT]CLgt-46961e513e-6b  gt-46961e513e-6c    C;hS]L6Kga  gfilenamefsrfi/srfi-45.scm  1   C,hC]L6;gfilenamefsrfi/srfi-45.scm  1    C[h]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-45.scm 1   n C5;R\L]4L>"G ˖:iLRLhr]$CCjgobj  gfilenamefsrfi/srfi-45.scm 1    gnameg%value?-procedureC^R4&_(+.zh7]C/gt-46961e513e-7b    C_hS]L6Kga  gfilenamefsrfi/srfi-45.scm  1   C,hC]L6;gfilenamefsrfi/srfi-45.scm  1    C|h]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-45.scm 1   n C5_RL8}hs]& C6kgs  gfilenamefsrfi/srfi-45.scm 1    gnameg%value-tag-procedureC~R4&}(+h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    C.h7]C/gt-46961e513e-87    C}hS]L6Kga  gfilenamefsrfi/srfi-45.scm  1   C,hC]L6;gfilenamefsrfi/srfi-45.scm  1    Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-45.scm 1   C5}RL8ht]& C6lgs  gfilenamefsrfi/srfi-45.scm 1    gnameg%value-proc-procedureCR4&(+h:]C2gerr  gs    Ch:]C2gerr  gs    C h:]C2gerr  gs    C.'h7]C/gt-46961e513e-a2    ChS]L6Kga  gfilenamefsrfi/srfi-45.scm  1   C,hC]L6;gfilenamefsrfi/srfi-45.scm  1    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  gfilenamefsrfi/srfi-45.scm 1   C5R4&(+9;>h v]45Cngdummy  gcheck?  gs   ggetter   gexpr      Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-45.scm 1   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5RL8?h ]& C6gs  gval  gfilenamefsrfi/srfi-45.scm 1    gnameg%value-tag-set!-procedureC@R4&?(+fhT]CLgt-46961e513e-d0  gt-46961e513e-d1    C?hS]L6Kga  gfilenamefsrfi/srfi-45.scm  1   C,hC]L6;gfilenamefsrfi/srfi-45.scm  1    Chh]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-45.scm 1   n C5?RL8ih ]& C6gs  gval  gfilenamefsrfi/srfi-45.scm 1    gnameg%value-proc-set!-procedureCjR4&i(+hT]CLgt-46961e513e-e0  gt-46961e513e-e1    CihS]L6Kga  gfilenamefsrfi/srfi-45.scm  1   C,hC]L6;gfilenamefsrfi/srfi-45.scm  1    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-45.scm 1   n C5iR4&(+h>]C6gdummy  gexp     Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-45.scm 5   " g macro-typeg syntax-rulesgpatternsgexpC5RL"h] Cgx  gval gfilenamefsrfi/srfi-45.scm 8  9  9  9    gnamegeagerCR4&(+h>]C6gdummy  gexp     Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-45.scm ;   " g macro-typeg syntax-rulesgpatternsgexpC5R"89L}?i h])& " 45& " 45$& C6$Y4& " 455& " 45& " 45&"& " 45& " 45&  "4 >"G& " 45& " 45&  "4 >"G&  "4 >"G 6Cgpromise  gcontent  gkey  8 gpromise*   gcontent  gs  gval  'gs  A `gval  `  gfilenamefsrfi/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    gnamegforceCR"89L} h0-/03##H& " 45KJ&J " 4J5$J&J " 4J56 $J&J " 4J56C(gpromise  gon-eager  gon-lazy   gcontent  & gkey  ^ gfilenamefsrfi/srfi-45.scm P + Q  G R  ^ R  n S  S R  T  T   gon-eagerS gon-lazyS gnameg promise-visitCRi"ihg]L6_gvalue  gfilenamefsrfi/srfi-45.scm Y   Z Z   Chf]L6^gproc  gfilenamefsrfi/srfi-45.scm [   \ \   Ch s]OO6kgpromise  gport  gfilenamefsrfi/srfi-45.scm W   X    C6gm  0grtd ~ grtd Q zgfilenamefsrfi/srfi-45.scm  " 1 , 6 ,  > , & C , .  1 , 8 1 > 3 P 4 V   4 C6srfi-19.go000064400000413373151027761750006313 0ustar00GOOF----LE-8-2.0]4hƭ] gguile  gdefine-module*   gsrfi gsrfi-19  gfilenameS fsrfi/srfi-19.scm gimportsS gsrfi-6     gsrfi-8   gsrfi-9   gice-9 gi18n    gexportsS g time-duration gtime-monotonic g time-process gtime-tai g time-thread gtime-utc !g current-date "gcurrent-julian-day #gcurrent-modified-julian-day $gtime-resolution %g make-time &gtime? 'g time-type (gtime-nanosecond )g time-second *gset-time-type! +gset-time-nanosecond! ,gset-time-second! -g copy-time .gtime<=? /gtime=? 2gtime>? 3gtime-difference 4gtime-difference! 5g add-duration 6g add-duration! 7gsubtract-duration 8gsubtract-duration! 9g make-date :gdate? ;gdate-nanosecond g date-hour ?gdate-day @g date-month Ag date-year Bgdate-zone-offset Cg date-year-day Dg date-week-day Egdate-week-number Fgdate->julian-day Ggdate->modified-julian-day Hgdate->time-monotonic Igdate->time-tai Jgdate->time-utc Kgjulian-day->date Lgjulian-day->time-monotonic Mgjulian-day->time-tai Ngjulian-day->time-utc Ogmodified-julian-day->date Pg#modified-julian-day->time-monotonic Qgmodified-julian-day->time-tai Rgmodified-julian-day->time-utc Sgtime-monotonic->date Tgtime-monotonic->julian-day Ug#time-monotonic->modified-julian-day Vgtime-monotonic->time-tai Wgtime-monotonic->time-tai! Xgtime-monotonic->time-utc Ygtime-monotonic->time-utc! Zgtime-tai->date [gtime-tai->julian-day \gtime-tai->modified-julian-day ]gtime-tai->time-monotonic ^gtime-tai->time-monotonic! _gtime-tai->time-utc `gtime-tai->time-utc! agtime-utc->date bgtime-utc->julian-day cgtime-utc->modified-julian-day dgtime-utc->time-monotonic egtime-utc->time-monotonic! fgtime-utc->time-tai ggtime-utc->time-tai! hg date->string ig string->date j !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghiO kg replacementsS lg current-time ml ng autoloadsS ogrdelim po qg read-line rq spr tgset-current-module ut vt wgcond-expand-provide xgcurrent-module y zf~a ~b ~d ~H:~M:~S~z ~Y {glocale-date-time-format |f~m/~d/~y }glocale-short-date-format ~f~H:~M:~S glocale-time-format f~Y-~m-~dT~H:~M:~S~z giso-8601-date-time-format gnano gsid gsihd e 4881175/2 gtai-epoch-in-jd gthrow g misc-error fTIME-ERROR type ~A: ~S fTIME-ERROR type ~A g time-error gopen-input-file g eof-object? gread gopen-input-string g string-append f( f) ginexact->exact gread-tai-utc-data U- $ O # I\ " C ! 6  3H  0$  .\  ,2)  *P  '  %  !  %  b1    ʀ  Φ  r   ?   +   H   gS      X  g   gleap-second-table gread-leap-second-table gleap-second-delta gtime g!%make-time-unnormalized-procedure gmake-syntax-transformer   gmake-time-unnormalized gmacro g $sc-dispatch   g_ gany  g syntax-object glambda gm-46961e50d3-30 gtop  gribcage gt-46961e50d3-2d gt-46961e50d3-2e gt-46961e50d3-2f   fl-46961e50d3-35 fl-46961e50d3-36 fl-46961e50d3-37    gx   fl-46961e50d3-32   gshift g proc-name gargs    fl-1e8ba8b5a-60 fl-1e8ba8b5a-61   gkey gvalue gname gformals gbody   fl-1e8ba8b5a-53 fl-1e8ba8b5a-54 fl-1e8ba8b5a-55 fl-1e8ba8b5a-56 fl-1e8ba8b5a-57   gmake-procedure-name   fl-1e8ba8b5a-43    fl-1e8ba8b5a-42     ghygiene   gtype    g nanosecond  gsecond   g make-struct gm-46961e50d3-2b    gt-1e8ba8b5a-133  gt-1e8ba8b5a-132  gt-1e8ba8b5a-131      gm-1e8ba8b5a-134   fl-1e8ba8b5a-138 fl-1e8ba8b5a-139 fl-1e8ba8b5a-13a    g ctor-args  fl-1e8ba8b5a-120   gctor gfield  fl-1e8ba8b5a-11c fl-1e8ba8b5a-11d   !  "gform #g type-name $gconstructor-spec %g field-names &"#$% ' (fl-1e8ba8b5a-111 )fl-1e8ba8b5a-112 *fl-1e8ba8b5a-113 +fl-1e8ba8b5a-114 ,()*+ -&', .g record-layout /gfunctional-setters 0gsetters 1gcopier 2ggetters 3g constructor 4ggetter-identifiers 5gfield-identifiers 6./012345 7 8fl-1e8ba8b5a-e9 9fl-1e8ba8b5a-e7 :fl-1e8ba8b5a-e5 ;fl-1e8ba8b5a-e3 fl-1e8ba8b5a-dd ?fl-1e8ba8b5a-db @89:;<=>? A67@ Bfl-1e8ba8b5a-da CB DC E !-AD FE G H E IFGH JI Kgeach-any LK Mgsyntax-violation NM OM PfWrong number of arguments Qg identifier? RQ SQ T UT VM WM Xf-source expression failed to match any pattern Ygrecord-type-vtable ZY [Y \gpwpwpw ]gdefault-record-printer ^] _] ` agset-struct-vtable-name! ba ca dgvtable-offset-user ed fd gg%time?-procedure h igm-46961e50d3-41 ji kgt-46961e50d3-40 lk mj nfl-46961e50d3-46 on plmo qfl-46961e50d3-43 rq smr tjps  ut vgobj wgt-1e8ba8b5a-224 xgt-1e8ba8b5a-21e ygt-1e8ba8b5a-21f zgt-1e8ba8b5a-220 {gt-1e8ba8b5a-223 |gt-1e8ba8b5a-222 }gt-1e8ba8b5a-221 ~wxyz{|} gm-1e8ba8b5a-225   fl-1e8ba8b5a-229 fl-1e8ba8b5a-22a fl-1e8ba8b5a-22b fl-1e8ba8b5a-22c fl-1e8ba8b5a-22d fl-1e8ba8b5a-22e fl-1e8ba8b5a-22f  ~ g copier-id  fl-1e8ba8b5a-21c   g ctor-name  fl-1e8ba8b5a-214   % fl-1e8ba8b5a-212   glayout  fl-1e8ba8b5a-210   g immutable?  fl-1e8ba8b5a-20e   g field-count  fl-1e8ba8b5a-20c   g getter-ids  fl-1e8ba8b5a-209   g field-ids  fl-1e8ba8b5a-206   gpredicate-name g field-spec "#$  fl-1e8ba8b5a-1f9 fl-1e8ba8b5a-1fa fl-1e8ba8b5a-1fb fl-1e8ba8b5a-1fc fl-1e8ba8b5a-1fd fl-1e8ba8b5a-1fe    psAD v  gand  gstruct?   geq?  g struct-vtable   ps    u s g gthrow-bad-struct   g%time-type-procedure gfree-id g %%on-error gm-46961e50d3-4d   fl-46961e50d3-4f        g%%type gt-1e8ba8b5a-14b gt-1e8ba8b5a-14c gt-1e8ba8b5a-14d gt-1e8ba8b5a-14e gt-1e8ba8b5a-14f gt-1e8ba8b5a-150 gt-1e8ba8b5a-151  gm-1e8ba8b5a-152   fl-1e8ba8b5a-156 fl-1e8ba8b5a-157 fl-1e8ba8b5a-158 fl-1e8ba8b5a-159 fl-1e8ba8b5a-15a fl-1e8ba8b5a-15b fl-1e8ba8b5a-15c   ggetter gindex  fl-1e8ba8b5a-149 fl-1e8ba8b5a-14a   #  fl-1e8ba8b5a-144 fl-1e8ba8b5a-145 fl-1e8ba8b5a-146    AD     gck  gerr  gs       fl-46961e50d3-52 fl-46961e50d3-53         gquote      g%%index    fl-46961e50d3-57 fl-46961e50d3-58   !    "!  # " $" %! & % '$& (' )g%%copier *) +* ,+ -fl-46961e50d3-5c .fl-46961e50d3-5d /-. 0  / 10  2 1 31 4g%%time-set-fields 50 645 736 87 9gt-46961e50d3-4c :9 ;fl-46961e50d3-61 <; =:< >=  ?> @ =AD A @ BA Cgif 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 Zgm-46961e50d3-68 [Z \[ ]fl-46961e50d3-6a ^] _\^ `[_  a` ba cb d _AD ed fe gcf h[[ ifl-46961e50d3-6d jfl-46961e50d3-6e kij l hk m[l_  n m om pl_ qp roq sr td ut vcu wfl-46961e50d3-72 xfl-46961e50d3-73 ywx z hy {[z_  | { }{ ~z_  ~ }  )d  c fl-46961e50d3-77 fl-46961e50d3-78   h [_     _ 4   gt-46961e50d3-67  fl-46961e50d3-7c  \ [_    _AD    C    _   K _      (     _ Y g%time-second-procedure gm-46961e50d3-83   fl-46961e50d3-85         AD     fl-46961e50d3-88 fl-46961e50d3-89                fl-46961e50d3-8d fl-46961e50d3-8e              )   fl-46961e50d3-92 fl-46961e50d3-93          4   gt-46961e50d3-82  fl-46961e50d3-97       AD    C       K       )       geach       g %%set-fields  gdummy  gcheck?  gexpr       gm-46961e50d3-9e       fl-46961e50d3-a3 fl-46961e50d3-a4 fl-46961e50d3-a5 fl-46961e50d3-a6 fl-46961e50d3-a7     fl-46961e50d3-a0   gt-1e8ba8b5a-16a gt-1e8ba8b5a-16c gt-1e8ba8b5a-16b   gm-1e8ba8b5a-16d !  "!!! #fl-1e8ba8b5a-171 $fl-1e8ba8b5a-172 %fl-1e8ba8b5a-173 &#$% '"& (fl-1e8ba8b5a-167 )fl-1e8ba8b5a-168 *fl-1e8ba8b5a-169 +()* ,+ - ',AD  . - / 0/ 1'/ 2(/ 3)/ 4123 5gmap 65 75 8glist 9g%set-time-type!-procedure : ;gm-46961e50d3-b2 <; =gt-46961e50d3-b0 >gt-46961e50d3-b1 ?=> @<< Afl-46961e50d3-b7 Bfl-46961e50d3-b8 CAB D?@C E< Ffl-46961e50d3-b4 GF HEG I<DH  JI Kgt-1e8ba8b5a-18c Lgt-1e8ba8b5a-18d MKL Ngm-1e8ba8b5a-18e ON POO Qfl-1e8ba8b5a-192 Rfl-1e8ba8b5a-193 SQR TMPS Ugsetter VU Wfl-1e8ba8b5a-186 Xfl-1e8ba8b5a-187 Yfl-1e8ba8b5a-188 ZWXY [VZ \ ]fl-1e8ba8b5a-17d ^fl-1e8ba8b5a-17e _]^ `\_ ag field-specs b#a cfl-1e8ba8b5a-179 dfl-1e8ba8b5a-17a ecd fbe g DHT[`fAD h g igval 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 gm-46961e50d3-c2  gt-46961e50d3-c0 gt-46961e50d3-c1   fl-46961e50d3-c7 fl-46961e50d3-c8    fl-46961e50d3-c4       T[`fAD   i  C       s       +       g%set-time-second!-procedure gm-46961e50d3-d2  gt-46961e50d3-d0 gt-46961e50d3-d1   fl-46961e50d3-d7 fl-46961e50d3-d8    fl-46961e50d3-d4       T[`fAD   i  C       s       ,       ginteger? gtruncate g split-real gabs gtime-normalize! gmktime 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 gdate->broken-down-time g gettimeofday gcurrent-time-utc gcurrent-time-tai gcurrent-time-monotonic gunsupported-clock-type gcurrent-time-thread ginternal-time-units-per-second gns-per-guile-tick gget-internal-run-time gcurrent-time-process ginvalid-clock-type g not-duration gincompatible-time-types gpriv:time-tai->time-utc! gpriv:time-utc->time-tai! gdate g%make-date-procedure   gm-46961e50d3-343  gt-46961e50d3-33b gt-46961e50d3-33c gt-46961e50d3-33d gt-46961e50d3-33e gt-46961e50d3-33f gt-46961e50d3-340 gt-46961e50d3-341 gt-46961e50d3-342   fl-46961e50d3-348 fl-46961e50d3-349 fl-46961e50d3-34a fl-46961e50d3-34b fl-46961e50d3-34c fl-46961e50d3-34d fl-46961e50d3-34e fl-46961e50d3-34f       fl-46961e50d3-345                  gminute  ghour  gday  gmonth  gyear  g zone-offset    gm-46961e50d3-339 !  "!  !-AD #" $ % " &#$%  '& (  )( *gpwpwpwpwpwpwpwpw + ,g%date?-procedure -gm-46961e50d3-35e .- /gt-46961e50d3-35d 0/ 1. 2fl-46961e50d3-363 32 4013 5fl-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 Kgm-46961e50d3-36a LK ML Nfl-46961e50d3-36c ON PMO QLP  RQ SR TS U!PAD VU WV XTW YLL Zfl-46961e50d3-36f [fl-46961e50d3-370 \Z[ ] Y\ ^L]P  _ ^ `^ a]P ba c`b dc eU fe gTf hfl-46961e50d3-374 ifl-46961e50d3-375 jhi k Yj lLkP  m l nl okP p o qnp rq s)U ts uTt vfl-46961e50d3-379 wfl-46961e50d3-37a xvw y Yx zLyP  { z |z }g%%date-set-fields ~yP }~ |  gt-46961e50d3-369  fl-46961e50d3-37e  M LP   !PAD    C    P   K P      ;     P J g%date-second-procedure gm-46961e50d3-385   fl-46961e50d3-387        !AD     fl-46961e50d3-38a fl-46961e50d3-38b                fl-46961e50d3-38f fl-46961e50d3-390              )   fl-46961e50d3-394 fl-46961e50d3-395          }   gt-46961e50d3-384  fl-46961e50d3-399      !AD    C       K       <       g%date-minute-procedure gm-46961e50d3-3a0   fl-46961e50d3-3a2        !AD     fl-46961e50d3-3a5 fl-46961e50d3-3a6                          fl-46961e50d3-3aa fl-46961e50d3-3ab              )    !fl-46961e50d3-3af "fl-46961e50d3-3b0 #!" $ # %$  & % '% ($ )}( *') +* ,gt-46961e50d3-39f -, .fl-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 Kgm-46961e50d3-3bb LK ML Nfl-46961e50d3-3bd ON PMO QLP  RQ SR TS U!PAD VU WV XTW YLL Zfl-46961e50d3-3c0 [fl-46961e50d3-3c1 \Z[ ] Y\ ^L]P  _ ^ `^ a]P ba c`b dc eU fe gTf hfl-46961e50d3-3c5 ifl-46961e50d3-3c6 jhi k Yj lLkP  m l nl okP p o qnp rq s)U ts uTt vfl-46961e50d3-3ca wfl-46961e50d3-3cb xvw y Yx zLyP  { z |z }yP ~}} |~  gt-46961e50d3-3ba  fl-46961e50d3-3cf  M LP   !PAD    C    P   K P      >     P J g%date-day-procedure gm-46961e50d3-3d6   fl-46961e50d3-3d8        !AD     fl-46961e50d3-3db fl-46961e50d3-3dc                fl-46961e50d3-3e0 fl-46961e50d3-3e1              )   fl-46961e50d3-3e5 fl-46961e50d3-3e6          }   gt-46961e50d3-3d5  fl-46961e50d3-3ea      !AD    C       K       ?       g%date-month-procedure gm-46961e50d3-3f1   fl-46961e50d3-3f3        !AD     fl-46961e50d3-3f6 fl-46961e50d3-3f7                         fl-46961e50d3-3fb fl-46961e50d3-3fc              )    fl-46961e50d3-400 !fl-46961e50d3-401 " ! # " $#  % $ &$ '# (}' )&( *) +gt-46961e50d3-3f0 ,+ -fl-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 Jgm-46961e50d3-40c KJ LK Mfl-46961e50d3-40e NM OLN PKO  QP RQ SR T!OAD UT VU WSV XKK Yfl-46961e50d3-411 Zfl-46961e50d3-412 [YZ \ X[ ]K\O  ^ ] _] `\O a` b_a cb dT ed fSe gfl-46961e50d3-416 hfl-46961e50d3-417 igh j Xi kKjO  l k mk njO o n pmo qp r)T sr tSs ufl-46961e50d3-41b vfl-46961e50d3-41c wuv x Xw yKxO  z y {y |xO }}| ~{} ~ gt-46961e50d3-40b  fl-46961e50d3-420  L KO   !OAD    C    O   K O      A     O I g%date-zone-offset-procedure gm-46961e50d3-427   fl-46961e50d3-429        !AD     fl-46961e50d3-42c fl-46961e50d3-42d                fl-46961e50d3-431 fl-46961e50d3-432              )   fl-46961e50d3-436 fl-46961e50d3-437          }   gt-46961e50d3-426  fl-46961e50d3-43b      !AD    C       K       B       gm-46961e50d3-442  !!!! fl-46961e50d3-447 fl-46961e50d3-448 fl-46961e50d3-449 fl-46961e50d3-44a fl-46961e50d3-44b     fl-46961e50d3-444   !',AD      ; < = >  ?  @  A  B       gset-date-nanosecond! g%set-date-nanosecond!-procedure gm-46961e50d3-456  gt-46961e50d3-454 gt-46961e50d3-455   fl-46961e50d3-45b fl-46961e50d3-45c    fl-46961e50d3-458       !T[`fAD !   "i  #!" $C  %  &  '&! ( )( *%') +s  , - , .+!-" /  0  1( 201 3/!2 4$*.3 5#4 6 76 8gset-date-second! 9g%set-date-second!-procedure :gm-46961e50d3-466 ;: <= ?;; @fl-46961e50d3-46b Afl-46961e50d3-46c B@A C>?B D; Efl-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` bgset-date-minute! cg%set-date-minute!-procedure dgm-46961e50d3-476 ed fgt-46961e50d3-474 ggt-46961e50d3-475 hfg iee jfl-46961e50d3-47b kfl-46961e50d3-47c ljk mhil ne ofl-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 gset-date-hour! g%set-date-hour!-procedure gm-46961e50d3-486  gt-46961e50d3-484 gt-46961e50d3-485   fl-46961e50d3-48b fl-46961e50d3-48c    fl-46961e50d3-488      !T[`fAD   i  C       s              g set-date-day! g%set-date-day!-procedure gm-46961e50d3-496  gt-46961e50d3-494 gt-46961e50d3-495   fl-46961e50d3-49b fl-46961e50d3-49c    fl-46961e50d3-498      !T[`fAD   i  C       s              gset-date-month! g%set-date-month!-procedure gm-46961e50d3-4a6  gt-46961e50d3-4a4 gt-46961e50d3-4a5   fl-46961e50d3-4ab fl-46961e50d3-4ac    fl-46961e50d3-4a8      !T[`fAD   i  C       s                gset-date-year!  g%set-date-year!-procedure  gm-46961e50d3-4b6    gt-46961e50d3-4b4 gt-46961e50d3-4b5     fl-46961e50d3-4bb fl-46961e50d3-4bc     fl-46961e50d3-4b8       !T[`fAD   i   C ! " #" $ %$ &!#% 's ( ) ( *') + , - $ .,- /+. 0 &*/ 10 2 3 2 4gset-date-zone-offset! 5g %set-date-zone-offset!-procedure 6gm-46961e50d3-4c6 76 8gt-46961e50d3-4c4 9gt-46961e50d3-4c5 :89 ;77 <= ?:;> @7 Afl-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\ ^gencode-julian-day-number _gdecode-julian-day-number `g tm:gmtoff ag localtime bglocal-tz-offset cgtime->julian-day-number dgassoc eg leap-second? fg time->date gground he1/2 ig leap-year? j  k   l  ; m  Z n  x o   p   q  Ԍ r  s  t 0 u N vjklmnopqrstu  wg month-assoc xginvalid-month-specification ygyear-day zgweek-day {gdays-before-first-week |g natural-year }e-1/2 ~e 4800001/2 gnumber->string g string-length g make-string gpadding gexpt g last-n-digits glocale-day-short glocale-abbr-weekday g locale-day glocale-long-weekday glocale-month-short glocale-abbr-month g locale-month glocale-long-month gdate-reverse-lookup gstring=? glocale-abbr-weekday->index glocale-long-weekday->index glocale-abbr-month->index glocale-long-month->index g tz-printer glocale-print-time-zone glocale-pm-string glocale-am-string glocale-am-string/pm gdisplay fZ f- f+ e1.0 glocale-decimal-point g substring f~b gnewline 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 gchar=? g date-printer gbad-date-format-string gopen-output-string f~c gget-output-string g char->int gbad-date-template-string fNon-integer character g peek-char g char-numeric? g read-char ginteger-reader gmake-integer-reader f!Premature ending to integer read. f'Non-numeric characters in integer read. ginteger-reader-exact gmake-integer-exact-reader fInvalid time zone +/- fInvalid time zone number g zone-reader gchar-alphabetic? g list->string greverse! fInvalid string for  g locale-reader gmake-locale-reader fInvalid character match. gmake-char-id-reader gread-directives gpriv:string->date fIncomplete date read. C5h8S ]@4   jkmns5 4v>"G4wi4xi5y>"GR  RRRRRz{R|}R~RR;RQRRRh0]$66gcaller  *gtype  *gvalue   *gfilenamefsrfi/srfi-19.scm     9    " ' 5 *   * gnameg time-errorCRq hN]945H"45$"~444555 $45  45JK"4 5"4 5"sJCFgfilename  gport gtable  gline   gdata  6 gyear  ; gjd  D gsecs  O gfilenamefsrfi/srfi-19.scm           "  %  ( , / 0 8 2 4  6  6 ;  ; @ ! A  D I ! L  O W  [  \ e  h  i  p  s  u  z     '  gnamegread-tai-utc-dataCRRh]45 Cgfilename  gfilenamefsrfi/srfi-19.scm     gnamegread-leap-second-tableCRh8] "$C" $ C"g utc-seconds  6gtable  gfilenamefsrfi/srfi-19.scm   )       #     $  (  ,  6   6 gnamegleap-second-deltaCRh]Cgtype  g nanosecond  gsecond   gfilenamefsrfi/srfi-19.scm    gnameg!%make-time-unnormalized-procedureCR4Jhq]Cigt-46961e50d3-2d  gt-46961e50d3-2e  gt-46961e50d3-2f      CLOPhT]L6Lga  gfilenamefsrfi/srfi-19.scm    CShD]L6<gfilenamefsrfi/srfi-19.scm     CUh]C   CWX hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-19.scm   n C5R[\_`4c>"G fiRhr]$CCjgobj  gfilenamefsrfi/srfi-19.scm    gnameg%time?-procedureCgR4&hh7]C/gt-46961e50d3-40    CLO&PhT]L6Lga  gfilenamefsrfi/srfi-19.scm    CShD]L6<gfilenamefsrfi/srfi-19.scm     Ch]C   CWX hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-19.scm   n C5&R'ht]& C6lgs  gfilenamefsrfi/srfi-19.scm    gnameg%time-type-procedureCR4'h:]C2gerr  gs    C#(h:]C2gerr  gs    C,28h:]C2gerr  gs    ChVh7]C/gt-46961e50d3-4c    CLO'PhT]L6Lga  gfilenamefsrfi/srfi-19.scm    CShD]L6<gfilenamefsrfi/srfi-19.scm     CXh]C   CWXh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-19.scm   C5'R(hz]& C6rgs  gfilenamefsrfi/srfi-19.scm    gnameg%time-nanosecond-procedureCYR4(gnsh:]C2gerr  gs    Cv|h:]C2gerr  gs    Ch:]C2gerr  gs    Chh7]C/gt-46961e50d3-67    CLO(PhT]L6Lga  gfilenamefsrfi/srfi-19.scm    CShD]L6<gfilenamefsrfi/srfi-19.scm     Ch]C   CWXh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-19.scm   C5(R)h v]& C6ngs  gfilenamefsrfi/srfi-19.scm    gnameg%time-second-procedureCR4)h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Chh7]C/gt-46961e50d3-82    CLO)PhT]L6Lga  gfilenamefsrfi/srfi-19.scm    CShD]L6<gfilenamefsrfi/srfi-19.scm     Ch]C   CWXh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-19.scm   C5)R44.0478h v]45Cngdummy  gcheck?  gs   ggetter   gexpr      CWXh(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-19.scm   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C54R*h ]& C6gs  gval  gfilenamefsrfi/srfi-19.scm    gnameg%set-time-type!-procedureC9R4*:~hT]CLgt-46961e50d3-b0  gt-46961e50d3-b1    CLO*PhT]L6Lga  gfilenamefsrfi/srfi-19.scm    CShD]L6<gfilenamefsrfi/srfi-19.scm     Ch]C   CWX hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-19.scm   n C5*R+h ]& C6gs  gval  gfilenamefsrfi/srfi-19.scm    gnameg%set-time-nanosecond!-procedureCR4+:hT]CLgt-46961e50d3-c0  gt-46961e50d3-c1    CLO+PhT]L6Lga  gfilenamefsrfi/srfi-19.scm    CShD]L6<gfilenamefsrfi/srfi-19.scm     Ch]C   CWX hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-19.scm   n C5+R,h ]& C6gs  gval  gfilenamefsrfi/srfi-19.scm    gnameg%set-time-second!-procedureCR4,:hT]CLgt-46961e50d3-d0  gt-46961e50d3-d1    CLO,PhT]L6Lga  gfilenamefsrfi/srfi-19.scm    CShD]L6<gfilenamefsrfi/srfi-19.scm     Ch]C   CWX hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-19.scm   n C5,R%'()hX]& " 45& " 45&  " 456gtime  Ugfilenamefsrfi/srfi-19.scm   !   ;  5 U    U gnameg copy-timeC-Rh0] 45$ 45 D4545Dgr  .gl  .gfilenamefsrfi/srfi-19.scm                   !   ,  # .    . gnameg split-realCR(),+ h]4& " 455;$4& " 45> G&  " 45;&  "4>"G;&  "4>"G""&  " 45 $& " 45 $&  " 45&  "4>"G;& " 45&  "4>"G"""&  " 45 $& " 45 $&  " 45&  "4>"G;& " 45&  "4>"G""4"",Cgt  gint R gfrac  R gval  gval  gval V gval  gval > lgval   gfilenamefsrfi/srfi-19.scm       !  +   /   0  5   Q  U   \          #               5   :  =  # V  V    2   $                   "   %   >   >   x  .     +   gnamegtime-normalize!CRh]6gtype  g nanosecond  gsecond   gfilenamefsrfi/srfi-19.scm          gnameg make-timeC%R<=>?@ABh] 4 5445>"G445>"G445>"G44 5>"G4 4 5>"G4  l4 5>"G4 >"G4 45>"GCgdate  gresult  gfilenamefsrfi/srfi-19.scm !  "   "  %   %   %  $ &  ) &  4 &  = '  B '  M '  V )  [ )  f )  o *  t *  { *  *  ,  , ,  ,  -  .  .  .  .  .   gnamegdate->broken-down-timeCR% h ]45 6gtod  gfilenamefsrfi/srfi-19.scm 5  7  7   8   8   8 +  8    gnamegcurrent-time-utcCR%h0]45 456gtod  )gsec )gusec   )gfilenamefsrfi/srfi-19.scm :  <   <  =  <   >   <   @   A  A  ' A  ) ?   ) gnamegcurrent-time-taiCRho]6ggfilenamefsrfi/srfi-19.scm N  P    gnamegcurrent-time-monotonicCRlh]6gfilenamefsrfi/srfi-19.scm R  S   S  S 4 S   gnamegcurrent-time-threadCR;iR%h ]456grun-time  gfilenamefsrfi/srfi-19.scm W  X   X   [   [   ]   Y    gnamegcurrent-time-processCR lh`-13("&6&6&6&6 & 6   6g clock-type `g clock-type  `gfilenamefsrfi/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  ` gnameg current-timeClR  $ hX-13("$ C$ C$ C$C 6g clock-type Wg clock-type  Wgfilenamefsrfi/srfi-19.scm q  r   r 4  r  # s  Q z  S z ) W z  W gnamegtime-resolutionC$R)('h]&  " 45&  " 45$q& " 45& " 45$6& " 45& " 45CCCgt1  gt2  gfilenamefsrfi/srfi-19.scm ~     9   =   @  Z   r   v   y       gnamegtime=?C0R)(h] &  " 45&  " 45$C&  " 45&  " 45$6& " 45& " 45CCgt1  gt2  gt  9 gfilenamefsrfi/srfi-19.scm      9   9   G   b   {        #    gnamegtime>?C2R)(h] &  " 45&  " 45$C&  " 45&  " 45$6& " 45& " 45CCgt1  gt2  gt  9 gfilenamefsrfi/srfi-19.scm      9   9   G   b   {        #    gnamegtime=?C1R)(h] &  " 45&  " 45$C&  " 45&  " 45$6& " 45& " 45CCgt1  gt2  gt  9 gfilenamefsrfi/srfi-19.scm      9   9   G   b   {        $    gnamegtime<=?C.R)(*,+ h1]&  " 45&  " 45& " 45& " 45&  "4>"G&  "4>"G&  "4>"G 6)gtime1  gtime2  gsec-diff  n g nsec-diff  n gval  t gfilenamefsrfi/srfi-19.scm      ) 9   <   V  . n   n   t          gnamegtime-difference!C4R-4h] 456gtime1  gtime2  gresult  gfilenamefsrfi/srfi-19.scm            gnamegtime-differenceC3R')(,+5 hF]& " 45&&  " 45&  " 45& " 45& " 45&  "4>"G&  "4>"G 6   6>gt  gduration  gsec-plus  g nsec-plus  gfilenamefsrfi/srfi-19.scm     "   %   @  ) Y   \   v  .                 gnameg add-duration!C6R-6h] 456gt  gduration  gresult  gfilenamefsrfi/srfi-19.scm            gnameg add-durationC5R')(,+5 hM]& " 45&&  " 45&  " 45& " 45& " 45&  "4>"G&  "4>"G 6   6Egt  gduration  g sec-minus  g nsec-minus  gfilenamefsrfi/srfi-19.scm     "   %   @  + Y   \   v  /                 gnamegsubtract-duration!C8R-8h] 456gtime1  gduration  gresult  gfilenamefsrfi/srfi-19.scm            gnamegsubtract-durationC7R' *(+),h h] & " 45&"4>"G&  "4>"G& " 4 5&  "4 >"G&  " 4 54 &  " 4 55&  "4 >"GC`gtime-in  gtime-out  gcaller   gval  > kgval  gval  gfilenamefsrfi/srfi-19.scm     "   '   -   4   >   n  !    $  $  %  $  !     gnamegpriv:time-tai->time-utc!CR_h]6gtime-in  gfilenamefsrfi/srfi-19.scm    $   F      gnamegtime-tai->time-utcC_R`h]6gtime-in  gfilenamefsrfi/srfi-19.scm   ,    gnamegtime-tai->time-utc!C`R' *(+),h h] & " 45&"4>"G&  "4>"G& " 4 5&  "4 >"G&  " 4 54 &  " 4 55&  "4 >"GC`gtime-in  gtime-out  gcaller   gval  > kgval  gval  gfilenamefsrfi/srfi-19.scm     "   '   -   4   >   n  !    $  $  %  $  !     gnamegpriv:time-utc->time-tai!CRfh]6gtime-in  gfilenamefsrfi/srfi-19.scm    $   F      gnamegtime-utc->time-taiCfRgh]6gtime-in  gfilenamefsrfi/srfi-19.scm   ,    gnamegtime-utc->time-tai!CgR'X-* h]& " 45&"4>"G45 &  "4 >"G 6gtime-in  ~gntime C ~gval  G tgfilenamefsrfi/srfi-19.scm     "   '   +   -   4   =   C   G   |  * ~    ~ gnamegtime-monotonic->time-utcCXR'Y*X hx] & " 45&"4>"G&  "4 >"G  6gtime-in  ugval > kgfilenamefsrfi/srfi-19.scm     "   '   +   -   4   >   s  , u    u gnamegtime-monotonic->time-utc!CYR'V-* hx]& " 45&"4>"G45 &  "4 >"GCgtime-in  wgntime C wgval  G tgfilenamefsrfi/srfi-19.scm     "   '   +   -   4   =   C   G    w gnamegtime-monotonic->time-taiCVR'W* hp] & " 45&"4>"G&  "4 >"GCgtime-in  ngval > kgfilenamefsrfi/srfi-19.scm     "   '   +   -   4   >    n gnamegtime-monotonic->time-tai!CWR' d* h]& " 45&"4>"G45 &  "4 >"GCgtime-in  gntime M gval  Q ~gfilenamefsrfi/srfi-19.scm     "   '   +   -   4   =   I  1 K  ) M   M   Q    gnamegtime-utc->time-monotonicCdR' e* h]& " 45&"4>"G45 &  "4 >"GCgtime-in  {gntime G {gval  K xgfilenamefsrfi/srfi-19.scm     "   '   +   -   4   =   E  ) G   G   K    { gnamegtime-utc->time-monotonic!CeR']-* hx]& " 45&"4>"G45 &  "4 >"GCgtime-in  wgntime C wgval  G tgfilenamefsrfi/srfi-19.scm     "   '   +   -   4   =   C   G    w gnamegtime-tai->time-monotonicC]R'^* hp] & " 45&"4>"G&  "4 >"GCgtime-in  ngval > kgfilenamefsrfi/srfi-19.scm     "   '   +   -   4   > !   n gnamegtime-tai->time-monotonic!C^Rh ,3 Cg nanosecond  gsecond  gminute   ghour   gday   gmonth   gyear   g zone-offset   gfilenamefsrfi/srfi-19.scm )    gnameg%make-date-procedureCR49'h ,3 Cgt-46961e50d3-33b  gt-46961e50d3-33c  gt-46961e50d3-33d   gt-46961e50d3-33e   gt-46961e50d3-33f   gt-46961e50d3-340   gt-46961e50d3-341   gt-46961e50d3-342      CLO9PhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    C)h]C   CWX hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-19.scm )   n C59R[*_+4c>"G fiRhr]$CCjgobj  gfilenamefsrfi/srfi-19.scm )    gnameg%date?-procedureC,R4:hGh8]C0gt-46961e50d3-35d    CLO:PhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    CIh]C   CWX hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-19.scm )   n C5:R;hz]& C6rgs  gfilenamefsrfi/srfi-19.scm )    gnameg%date-nanosecond-procedureCJR4;X_dh:]C2gerr  gs    Cgmrh:]C2gerr  gs    Cu{h:]C2gerr  gs    Chh8]C0gt-46961e50d3-369    CLO;PhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    Ch]C   CWXh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-19.scm )   C5;R<hv]& C6ngs  gfilenamefsrfi/srfi-19.scm )    gnameg%date-second-procedureCR4<h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Chh8]C0gt-46961e50d3-384    CLO<PhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    Ch]C   CWXh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-19.scm )   C5h t]& C6lgs  gfilenamefsrfi/srfi-19.scm )    gnameg%date-hour-procedureCJR4>X_dh:]C2gerr  gs    Cgmrh:]C2gerr  gs    Cu{h:]C2gerr  gs    Chh8]C0gt-46961e50d3-3ba    CLO>PhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    Ch]C   CWXh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-19.scm )   C5>R?h s]& C6kgs  gfilenamefsrfi/srfi-19.scm )    gnameg%date-day-procedureCR4?h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Chh8]C0gt-46961e50d3-3d5    CLO?PhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    Ch]C   CWXh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-19.scm )   C5?R@h u]& C6mgs  gfilenamefsrfi/srfi-19.scm )    gnameg%date-month-procedureCR4@ h:]C2gerr  gs    Ch:]C2gerr  gs    C%*h:]C2gerr  gs    ChFh8]C0gt-46961e50d3-3f0    CLO@PhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    CHh]C   CWXh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-19.scm )   C5@RAh t]& C6lgs  gfilenamefsrfi/srfi-19.scm )    gnameg%date-year-procedureCIR4AW^ch:]C2gerr  gs    Cflqh:]C2gerr  gs    Ctzh:]C2gerr  gs    Chh8]C0gt-46961e50d3-40b    CLOAPhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    Ch]C   CWXh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-19.scm )   C5ARBh {]& C6sgs  gfilenamefsrfi/srfi-19.scm )    gnameg%date-zone-offset-procedureCR4Bh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Chh8]C0gt-46961e50d3-426    CLOBPhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    Ch]C   CWXh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-19.scm )   C5BR4} 78h v]45Cngdummy  gcheck?  gs   ggetter   gexpr      CWXh(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-19.scm )   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5}Rh ]& C6gs  gval  gfilenamefsrfi/srfi-19.scm )    gnameg%set-date-nanosecond!-procedureCR4:5hV]CNgt-46961e50d3-454  gt-46961e50d3-455    CLOPhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    C7h]C   CWX hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-19.scm )   n C5R8h ]& C6gs  gval  gfilenamefsrfi/srfi-19.scm )    gnameg%set-date-second!-procedureC9R48:_hV]CNgt-46961e50d3-464  gt-46961e50d3-465    CLO8PhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    Cah]C   CWX hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-19.scm )   n C58Rbh ]& C6gs  gval  gfilenamefsrfi/srfi-19.scm )    gnameg%set-date-minute!-procedureCcR4b:hV]CNgt-46961e50d3-474  gt-46961e50d3-475    CLObPhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    Ch]C   CWX hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-19.scm )   n C5bRh ]& C6gs  gval  gfilenamefsrfi/srfi-19.scm )    gnameg%set-date-hour!-procedureCR4:hV]CNgt-46961e50d3-484  gt-46961e50d3-485    CLOPhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    Ch]C   CWX hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-19.scm )   n C5Rh ]& C6gs  gval  gfilenamefsrfi/srfi-19.scm )    gnameg%set-date-day!-procedureCR4:hV]CNgt-46961e50d3-494  gt-46961e50d3-495    CLOPhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    Ch]C   CWX hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-19.scm )   n C5Rh ]& C6gs  gval  gfilenamefsrfi/srfi-19.scm )    gnameg%set-date-month!-procedureCR4:hV]CNgt-46961e50d3-4a4  gt-46961e50d3-4a5    CLOPhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    C h]C   CWX hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-19.scm )   n C5R h ]& C6gs  gval  gfilenamefsrfi/srfi-19.scm )    gnameg%set-date-year!-procedureC R4 :1hV]CNgt-46961e50d3-4b4  gt-46961e50d3-4b5    CLO PhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    C3h]C   CWX hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-19.scm )   n C5 R4h ]& C6gs  gval  gfilenamefsrfi/srfi-19.scm )    gnameg %set-date-zone-offset!-procedureC5R44:[hV]CNgt-46961e50d3-4c4  gt-46961e50d3-4c5    CLO4PhT]L6Lga  gfilenamefsrfi/srfi-19.scm  )   CShD]L6<gfilenamefsrfi/srfi-19.scm  )    C]h]C   CWX hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-19.scm )   n C54Rhh]    $ "       m   d  ӖCgday  dgmonth  dgyear   dga  dgy  % dgm  2 dgfilenamefsrfi/srfi-19.scm 9  :  : :   ;   ;  ; #  ;  % ; % :  . <  / <  2 < 2 :  < >  ? >  B >  C =  I ?  J =  O @  P =  Q A  V A W A  X =  ^ B  _ =   d gnamegencode-julian-day-numberC^Rh]A4455 },  ::          d @        $"Dgjdn  gdays  ga   gb  * gc  > gd  L ge  Z gm  h gy  |  gfilenamefsrfi/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  gnamegdecode-julian-day-numberC_R`a)h0] 44&  " 4555Cgutc-time  *gfilenamefsrfi/srfi-19.scm Y  [   [   [  [  & [  ( [  ) [   * gnameglocal-tz-offsetCbRh]Cgseconds  g tz-offset  gfilenamefsrfi/srfi-19.scm ^  _  _   _    gnamegtime->julian-day-numberCcRdh]45$CC{gsecond  gfilenamefsrfi/srfi-19.scm c  d   d    gnameg leap-second?CeR' fbe)c_g(hPR-13& " 45&"4>"G( 45"4 &  " 4 554 $ &  " 4 5"&  " 4 554 > G4 455      <  < & " 45$ "    CJgtime Mg tz-offset Mgoffset  W Mg leap-second?  | Mgjdn  Mgsecs  Mgdate  Mgmonth  Mgyear  Mgint-secs Mghours Mgrem Mgminutes  Mgseconds  Mg nanosecond  3 Mgsecond  3 Mgfilenamefsrfi/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 gnamegtime-utc->dateCaR'fb_)ec_g(hH-13& " 45&"4>"G(44 55"&  " 4 54 &  " 4 554 54 $"54> G 4455      <  <& " 45$"    Cgtime Eg tz-offset Egoffset  \ Egseconds  Eg leap-second?  Egjdn  Egsecs  Egdate  Egmonth  Egyear Egint-secs Eghours Egrem Egminutes Egseconds   Eg nanosecond  + Egsecond  + Egfilenamefsrfi/srfi-19.scm    )   .   2   4   ;   I   J   M  & U   \   \   a   z     (          %        '  0      !      )      ,      -                  "   %  & +  1 E gnamegtime-tai->dateCZR'fbX)ec_g(hH-13& " 45&"4>"G(44 55"&  " 4 54 &  " 4 554 54 $"54> G 4455      <  <& " 45$"    Cgtime Eg tz-offset Egoffset  \ Egseconds  Eg leap-second?  Egjdn  Egsecs  Egdate  Egmonth  Egyear Egint-secs Eghours Egrem Egminutes Egseconds   Eg nanosecond  + Egsecond  + Egfilenamefsrfi/srfi-19.scm    )   .   2   4   ;   I   J   M  & U   \   \   a   z     (          %        '  0      !      )      ,      -                  "   %  & +  1 E gnamegtime-monotonic->dateCSR^?@Ah% ;>=<Bh]4&  " 45&  " 45&  " 4554 5  & " 4 5  < <&  " 4 5 < <&  " 45 <& " 45 &  " 456gdate  gjdays [ g jdays-1/2  g gfilenamefsrfi/srfi-19.scm       - #  1 >  1 X   [   [   ^   d  - e  $ g   g   p                                 gnamegdate->time-utcCJRgJh]456{gdate  gfilenamefsrfi/srfi-19.scm        gnamegdate->time-taiCIReJh]456gdate  gfilenamefsrfi/srfi-19.scm        gnamegdate->time-monotonicCHRh0]   $C  $  d CCgyear  +gt +gfilenamefsrfi/srfi-19.scm               %  ) '  & (  !  + gnameg leap-year?CiRvwRdwCxih`4] 45$"4>"G"C45$ $  C"",gday  ]gmonth  ]gyear   ]gdays-pr  ]gfilenamefsrfi/srfi-19.scm                  # %   6   7   8   9  C   H   L   Q   R    ] gnamegyear-dayCyRy?@AhX]&  " 45&  " 45&  " 456gdate  Wgfilenamefsrfi/srfi-19.scm    "   =  . W    W gnameg date-year-dayCCRhHy]       d   Cqgday  Ggmonth  Ggyear   Gga  Ggy   Ggm   Ggfilenamefsrfi/srfi-19.scm                     %  *   +  ,   1   2   3  9   :  ?   B   C  F    G gnamegweek-dayCzRz?@AhX]&  " 45&  " 45&  " 456gdate  Wgfilenamefsrfi/srfi-19.scm    "   =  . W    W gnameg date-week-dayCDRADhH ]&  " 45  45 Cgdate  Dgday-of-week-starting-week  Dgyear   0g first-day  0 Dg fdweek-day  9 Dgfilenamefsrfi/srfi-19.scm        0   3   9   @  C    D gnamegdays-before-first-weekC{RC{h]4545 Cgdate  gday-of-week-starting-week  gfilenamefsrfi/srfi-19.scm               gnamegdate-week-numberCERl abh0-1345( 45"6g tz-offset ,gtime  ,gfilenamefsrfi/srfi-19.scm            *  ,   , gnameg current-dateC!R!AhhI]45&  " 45 d d d$C $C 2$C dCAgn  hgs  'g current-year ' hgcurrent-century  1 hgfilenamefsrfi/srfi-19.scm    "    '   .   1   1   8 !  <   C "  G   O #  R # U #  Y   ^ # 6 d $  g $   h gnameg natural-yearC|R;<=>?@AB^}h]A& " 45& " 45&  " 45&  " 45&  " 45&  " 45&  " 4 5&  " 4 54 5  < < < Cgdate  g nanosecond gsecond  gminute  ghour  gday  gmonth  gyear  goffset   gfilenamefsrfi/srfi-19.scm &  '   (  9 )  T *  o + ,  -  .  '  /  0  /  1  2   1  3   1  5   1  1  /    gnamegdate->julian-dayCFRF~h]45Cgdate  gfilenamefsrfi/srfi-19.scm 8  9  :  9   gnamegdate->modified-julian-dayCGR' f)( h]& " 45&"4>"G&  " 45& " 4 5   Cgtime  |gfilenamefsrfi/srfi-19.scm <  =  " =  ' >  + >  - >  4 >  ? ? Z ? ! t ?  u ?  x ?  { ?   | gnamegtime-utc->julian-dayCbRb~h]45Cgtime  gfilenamefsrfi/srfi-19.scm C  D  E  D   gnamegtime-utc->modified-julian-dayCcR'f)(h ]& " 45&"4>"G&  " 454 &  " 455& " 4 5   Cgtime  gfilenamefsrfi/srfi-19.scm G  H  " H  ' I  + I  - I  4 I  ? J  X K  ] K ! w K  x J { L  L J  J  J   gnamegtime-tai->julian-dayC[R[~h]45Cgtime  gfilenamefsrfi/srfi-19.scm P  Q  R  Q   gnamegtime-tai->modified-julian-dayC\R'f)(h]& " 45&"4>"G&  " 454 &  " 455& " 4 5   C gtime  gfilenamefsrfi/srfi-19.scm U  V  " V  ' W  + W  - W  4 W  ? X  X Y  ] Y ! w Y  x X { Z  Z X  X  X   gnamegtime-monotonic->julian-dayCTRT~h]45Cgtime  gfilenamefsrfi/srfi-19.scm ^  _  `  _   gnameg#time-monotonic->modified-julian-dayCUR% h0]4> G6gjdn  +gsecs +gseconds   +gparts   +gfilenamefsrfi/srfi-19.scm b c  c  c  e   d  ' g  + f   + gnamegjulian-day->time-utcCNRgNh]456gjdn  gfilenamefsrfi/srfi-19.scm j  k  k   gnamegjulian-day->time-taiCMReNh]456gjdn  gfilenamefsrfi/srfi-19.scm m  n  n   gnamegjulian-day->time-monotonicCLRNbah0-1345( 45"6gjdn 0g tz-offset 0gtime   0goffset  & 0gfilenamefsrfi/srfi-19.scm p q   q   r   s  & t  & q  0 u  0 gnamegjulian-day->dateCKRK~h-13@gjdn g tz-offset gfilenamefsrfi/srfi-19.scm w  x !  x   x   gnamegmodified-julian-day->dateCORN~h]6gjdn  gfilenamefsrfi/srfi-19.scm {  |  |  |   gnamegmodified-julian-day->time-utcCRRM~h]6gjdn  gfilenamefsrfi/srfi-19.scm ~         gnamegmodified-julian-day->time-taiCQRL~h]6gjdn  gfilenamefsrfi/srfi-19.scm    %      gnameg#modified-julian-day->time-monotonicCPRbl ht]456lgfilenamefsrfi/srfi-19.scm        gnamegcurrent-julian-dayC"Rcl h}]456ugfilenamefsrfi/srfi-19.scm    !    gnamegcurrent-modified-julian-dayC#RhH2]4545$"$C456*gn  Egpad-with  Eglength   Egstr  Egstr-len   Egt   ,gfilenamefsrfi/srfi-19.scm                 )  0   6   =  $ A   E    E gnamegpaddingCRh]4 56gi  gn  gfilenamefsrfi/srfi-19.scm             gnameg last-n-digitsCRh]6}gn  gfilenamefsrfi/srfi-19.scm    2    gnameglocale-abbr-weekdayCRh]6}gn  gfilenamefsrfi/srfi-19.scm    ,    gnameglocale-long-weekdayCRiRiRh8,] ")$C4455$C" "$gneedle  6g haystack-ref  6g haystack-len   6gsame?   6gindex   /gfilenamefsrfi/srfi-19.scm                #   )   /   /    6 gnamegdate-reverse-lookupCRh] 6gstring  gfilenamefsrfi/srfi-19.scm       gnameglocale-abbr-weekday->indexCRh] 6gstring  gfilenamefsrfi/srfi-19.scm       gnameglocale-long-weekday->indexCRh] 6~gstring  gfilenamefsrfi/srfi-19.scm       gnameglocale-abbr-month->indexCRh] 6~gstring  gfilenamefsrfi/srfi-19.scm       gnameglocale-long-month->indexCRBh(]&  " 456gdate  #gport  #gfilenamefsrfi/srfi-19.scm     #    # gnameglocale-print-time-zoneCRh] $66ghr  gfilenamefsrfi/srfi-19.scm            #   gnameglocale-am-string/pmCRh] $4>"G"4 $4>"G"4>"G $C4 54  <5440 5>"G40 56goffset  gport  ghours  y gminutes  y gfilenamefsrfi/srfi-19.scm               %   *   +   /  6   C  G   N  Z  ^   a   h  + i   k   l   s  6 t  $ w   y   y   ~            gnameg tz-printerCR~h]~6gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm     CaDh]44556gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm       -         CADh]44556gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm       -         Cb@h(]4&  " 4556gdate  (gpad-with  (gport   (gfilenamefsrfi/srfi-19.scm      + $   (    ( CB@h(]4&  " 4556gdate  (gpad-with  (gport   (gfilenamefsrfi/srfi-19.scm      + $   (    ( Cch{h]456gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm          Cd?h0]4&  " 450 56gdate  ,gpad-with  ,gport   ,gfilenamefsrfi/srfi-19.scm      ! (   ,    , CDh|h]456gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm      +        Ce?h0]4&  " 45 56gdate  ,gpad-with  ,gport   ,gfilenamefsrfi/srfi-19.scm      ! (   ,    , Cf;<h]#& " 45$:44& " 45 5>"G"544& " 45 5>"G4& " 45 > G4 54 5 $(44 5>"G4  56Cgdate  gpad-with  gport   gi  gf  gns  gle  gfilenamefsrfi/srfi-19.scm        #   $   '   ,  ( D  % J   Q   ^   a   f  %        *  $  /  $      #    #         )   )   "   Chhh]456gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm      +        CH>h0]4&  " 45 56gdate  ,gpad-with  ,gport   ,gfilenamefsrfi/srfi-19.scm      ! (   ,    , CI>hP] &  " 45 $4  564 56gdate  Mgpad-with  Mgport   Mghr   Mgfilenamefsrfi/srfi-19.scm        $   (   +   2  ' 8   <   ?   M    M CjCh]445 56gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm       !         Ck>h0]4&  " 45 56gdate  ,gpad-with  ,gport   ,gfilenamefsrfi/srfi-19.scm      ! (   ,    , Cl>hx] &  " 45 $"&  " 45 "&  " 454 56gdate  tgpad-with  tgport   tghr  a tgfilenamefsrfi/srfi-19.scm      $   '  B   I  5 a   f   t    t Cm@h0]4&  " 45 56gdate  ,gpad-with  ,gport   ,gfilenamefsrfi/srfi-19.scm      ! (   ,    , CM=h0]4&  " 45 56gdate  ,gpad-with  ,gport   ,gfilenamefsrfi/srfi-19.scm      ! (   ,    , Cnh]6gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm "  #    CN;h0]4& " 45 56gdate  +gpad-with  +gport   +gfilenamefsrfi/srfi-19.scm $  %  % ! ' %  + %   + Cp>h(]4&  " 4556gdate  (gpad-with  (gport   (gfilenamefsrfi/srfi-19.scm (  )  ) - $ )  ( )   ( Crhh]456gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm *  +  + + +   +    CsJ)h0] 45&  " 456gdate  /gpad-with  /gport   /gs  +gfilenamefsrfi/srfi-19.scm ,  - % -  / -   / CS;<hx]& " 45$*4& " 45 564& " 45 56gdate  vgpad-with  vgport   vgfilenamefsrfi/srfi-19.scm .  /   /  # /  & 1  + 1 ( C 1 % I 1  M 1  P 4  U 4 % r 4  v 4   v Cth] 6gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm 7 8   CTh~h]456gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm 9  :  : + :   :    CU{Eh@]4 5 $44 50 5644 50 56gdate  ?gpad-with  ?gport   ?gfilenamefsrfi/srfi-19.scm ;  <  <   <   =   = (  = % $ =  ( =  + ?  . ? % ; ?  ? ?   ? CVEh ]44 50 56gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm A  B   B !  B   B    CwDh]456gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm D  E   E    Cxh}h]456gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm F  G   G    CXhh]456gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm H  I   I    CW{Eh@]4 5 $44 50 5644 50 56gdate  ?gpad-with  ?gport   ?gfilenamefsrfi/srfi-19.scm J  K  K   K   L   L (  L % $ L  ( L  + N  . N % ; N  ? N   ? CyAh8]44&  " 45 5 56gdate  3gpad-with  3gport   3gfilenamefsrfi/srfi-19.scm P  Q   Q ! R ' ) Q ! / Q  3 Q   3 CYAh(]&  " 456gdate  #gpad-with  #gport   #gfilenamefsrfi/srfi-19.scm V  W  # W   # CzBh(]&  " 456gdate  #gpad-with  #gport   #gfilenamefsrfi/srfi-19.scm X  Y  # Y   # CZh]6gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm Z [   C1hh]456gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm \  ]  ] + ]   ]    C2hh]456gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm ^  _  _ + _   _    C3h~h]456gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm `  a  a + a   a    C4hh]456gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm b  c  c + c   c    C5hh]456gdate  gpad-with  gport   gfilenamefsrfi/srfi-19.scm d  e  e + e   e    C)Rdh ] 45$CCgchar  g associated gfilenamefsrfi/srfi-19.scm h  i  i   j   j    gnameg get-formatterCR h ]$|454~5$A$ 6454-5$_ $ 644 55$&4>"G 664_5$` $ 644 55$'4 >"G 664455$'40>"G 664>"G6Cgdate  gindex  g format-string   gstr-len   gport   g current-char   g pad-char?  A dg formatter  w g formatter  g formatter  + d gfilenamefsrfi/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   gnameg date-printerCRhH-1345("4 45>"G6gdate Eg format-string Egstr-port   Egfmt-str   Egfilenamefsrfi/srfi-19.scm         +   0    "   *  ! 7   E   E gnameg date->stringChRh]0$ C1$ C2$ C3$ C4$ C5$ C6$ C7$ C8$ C9$ C6gch  gfilenamefsrfi/srfi-19.scm    |   ~        gnameg char->intCRh]*"l4545$"(45$"$ "$C 4455" "{gupto  |gport  |gaccum   rgnchars   rgch  rgt   Ngt  + Kgfilenamefsrfi/srfi-19.scm               $   +   +  >   C   R   Z   [  ^  + f  g   j   r  r    | gnameginteger-readerCRh`]L6Xgport  gfilenamefsrfi/srfi-19.scm      Chv]OCngupto  gfilenamefsrfi/srfi-19.scm    gnamegmake-integer-readerCRi h ]*H"45$C45$ 645$$K 44 55"J$#4 >"G"~ 6 "fgn  gport  g padding-ok   gport  gaccum  gnchars  gch   gfilenamefsrfi/srfi-19.scm                   )   -   /  $ 1   3  4  >   A  H   I  % L  0 T  % U   X   b  h   i       $     !  gnameginteger-reader-exactCRh`]L6Xgport  gfilenamefsrfi/srfi-19.scm      Chy]OCqgn  gfilenamefsrfi/srfi-19.scm    gnamegmake-integer-exact-readerCRi h9]! HH4545$4>"G"4Z5$" 4z5$ C4+5$K"/4-5$K"4>"G4545$4>"G"4 5 < "G"J4 5 < "G"J4 5 "G"J4 5 "G"gport  Kgskipper  Kgch  Kgfilenamefsrfi/srfi-19.scm z   {  {  |  |   }   } $ } ! ~  + ~ .   K  &  K gnameg skip-untilCid hX]FOQ$7454~5$$ 64545  $      4 >"G4 5 4  5$4>"G" $4  >"G"   664 54 5  $" 45 $4>"G" 6Cgdate  Tgindex  Tg format-string   Tgstr-len   Tgport   Tgtemplate-string   Tg skip-until  Tg current-char  $ Rg format-char  Q g format-info \ gskipper s greader s gactor s gval g port-char   Rgt  #gfilenamefsrfi/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 gnamegpriv:string->dateCRBb% 4Ji;<=>?@AhB]  4 4545>"G&  " 45$"v44 55&  "4 >"G44 55&  "4 >"G"  6& " 45$& " 45$&  " 45$&  " 45$&  " 45$l&  " 45$I&  " 45$&&  " 45$C"""""""":g input-string  gtemplate-string  gnewdate   gval  g gval  gfilenamefsrfi/srfi-19.scm              !   .   9  U   Z  ! ]  " g  ! g   !  "  !                    #  ?   B  ^   a  }                 (   gnameg string->dateCiRC gm  4grtd grtd g gg char-fail <Ggireader4 =Ggireader2 =Gg eireader2 =Gglocale-reader-abbr-weekday =Gglocale-reader-long-weekday =Gglocale-reader-abbr-month =Gglocale-reader-long-month =G gfilenamefsrfi/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  : )  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 C6srfi-26.go000064400000014614151027761750006304 0ustar00GOOF----LE-8-2.0t]4h ] gguile  gdefine-module*   gsrfi gsrfi-26  gfilenameS fsrfi/srfi-26.scm gexportsS gcut gcute    gset-current-module   gcond-expand-provide gcurrent-module  gmake-syntax-transformer   gmacro g $sc-dispatch   gany geach-any   greverse ! "g syntax-object #glambda $gtop %$ &gribcage '& (gt-46961e50f5-72 )gt-46961e50f5-71 *() +gm-46961e50f5-73 ,+$ -,, .fl-46961e50f5-77 /fl-46961e50f5-78 0./ 1&*-0 2gloop 3gslots 4gparams 5gargs 62345 7%%%% 8fl-46961e50f5-68 9fl-46961e50f5-69 :fl-46961e50f5-6a ;fl-46961e50f5-6b <89:; =&67< >gslot0 ?gslot1+ @ >? A%%% Bfl-46961e50f5-62 Cfl-46961e50f5-63 Dfl-46961e50f5-64 EBCD F&@AE Ggstx HG I% Jfl-46961e50f5-5f KJ L&HIK M%'1'=F'L Nghygiene ON P"#MO Qgsyntax-violation RQ SQ Tf-source expression failed to match any pattern Uggenerate-temporaries Vgvar WV X Ygfree-id Zg<> [V \fl-46961e50f5-82 ]\ ^&[I] _gs `grest a_` b%% cfl-46961e50f5-7b dfl-46961e50f5-7c ecd f&abe g%'^''f'=F'L  h"ZgO iYh jg<...> k"jgO lYk mgerror nf&<...> not on the end of cut expression ogappend p qgt-46961e50f5-88 rgt-46961e50f5-87 sqr tgm-46961e50f5-89 ut$ vuu wfl-46961e50f5-8d xfl-46961e50f5-8e ywx z&svy {%'z'^''f'=F'L  |"#{O }gapply ~"}{O glet gt-46961e50f5-a8 gt-46961e50f5-a7  gm-46961e50f5-a9 $  fl-46961e50f5-ad fl-46961e50f5-ae  & g process-hole  % fl-46961e50f5-a5  & gbindings g arguments 23 fl-46961e50f5-9c fl-46961e50f5-9d fl-46961e50f5-9e fl-46961e50f5-9f  &7  3 fl-46961e50f5-98 fl-46961e50f5-99  &b fl-46961e50f5-95  &HI %'' "O " O %' "ZO Y "jO Y gt C5hP r]4   54>"G4i4i5>"G4  !PhT]CLgt-46961e50f5-72  gt-46961e50f5-71    CSTUWXihT]LLLLLL6Lgfilenamefsrfi/srfi-26.scm %   % 3  %    Clmnh\]L$6CTgfilenamefsrfi/srfi-26.scm  '  '  (   (    Co p|~hT]CLgt-46961e50f5-88  gt-46961e50f5-87     CSTh@]44L5L54LL545$@6gtmp  ?gtmp ( ?gfilenamefsrfi/srfi-26.scm  )  ) (  )  * "  * +  * "  )   ? Chp]4L5$LLLLO@4L5" LLLLL6$#4LO?$LLO@""wgvar  ogtmp ogtmp  / ogfilenamefsrfi/srfi-26.scm @ , & B ,   o C hK]#(3454545$@6454 5$ LO@6Cgslots  {gparams  {gargs   {gtmp   ;gtmp  $ ;gs  A {grest  A {gtmp  L {gtmp  W { gfilenamefsrfi/srfi-26.scm         ,    >  A !  A F " $ J " : L " $ L "   { gnamegloopCh ] OQ6gcut  gslot0  gslot1+   gloop  gfilenamefsrfi/srfi-26.scm             CSTh(e] 45$@6]gstx  "gtmp "gfilenamefsrfi/srfi-26.scm    " C5 R4  phT]CLgt-46961e50f5-a8  gt-46961e50f5-a7     CSTh\]LLLLL6Tgfilenamefsrfi/srfi-26.scm  6  6 ,  6 &  6    Ch\]LLLLL6Tgfilenamefsrfi/srfi-26.scm  6  6 ,  6 &  6    CUXhl]LLLLL6dgt  gfilenamefsrfi/srfi-26.scm  ?   @   A   ?    Chc]+(.4545$@645$LO@4 5$ LO@4  54 5$LO@6[gslots  gbindings  g arguments   gtmp   6gtmp   6gtmp  9 gtmp  D gtmp  f gtmp  gtmp   gfilenamefsrfi/srfi-26.scm 2   7 9   8  9 :  9 : > # > 9 > # >   gnamegloopCh] OQ6gcute  gslots  gloop  gfilenamefsrfi/srfi-26.scm 2   3   4   2    CSTh(e] 45$@6]gstx  "gtmp "gfilenamefsrfi/srfi-26.scm /   " C5 RCjgm  (gfilenamefsrfi/srfi-26.scm   )  .   6  & ;    L C6srfi-39.go000064400000002504151027761750006303 0ustar00GOOF----LE-8-2.0,]4h] gguile  gdefine-module*   gsrfi gsrfi-39  gfilenameS fsrfi/srfi-39.scm gexportsS gwith-parameters*   g re-exportsS gmake-parameter g parameterize gcurrent-input-port gcurrent-output-port gcurrent-error-port  gset-current-module   gcond-expand-provide gcurrent-module  g with-fluids* gparameter-fluid gparameter-converterC5hPz]4    54>"G4i4i5>"GhX]#">( 6454455""gparams  Vgvalues  Vgthunk   Vgparams   Dgvalues   Dgfluids   Dgconvs   Dgfilenamefsrfi/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 gnamegwith-parameters*C RCrgm  ,gfilenamefsrfi/srfi-39.scm  $ - + 2 +  : + & ? + M -   O C6srfi-111.go000064400000037127151027761750006363 0ustar00GOOF----LE-8-2.0?>]<4h(] gguile  gdefine-module*   gsrfi gsrfi-111  gfilenameS fsrfi/srfi-111.scm gimportsS gsrfi-9     ggnu     gexportsS gbox gbox? gunbox gset-box!  gset-current-module   gcond-expand-provide gcurrent-module  g g%box-procedure !gmake-syntax-transformer "! #! $gmacro %g $sc-dispatch &% '% (g_ )gany *() +g syntax-object ,glambda -gm-a33a589db48-4 .gtop /-. 0gribcage 1gt-a33a589db48-3 21 3/ 4fl-a33a589db48-9 54 60235 70 8gx 98 :fl-a33a589db48-6 ;: <093; =gshift >g proc-name ?gargs @>? A. BAA Cfl-1e8ba8b5a-2ba Dfl-1e8ba8b5a-2bb ECD F0@BE Ggkey Hgvalue Igname Jgformals Kgbody LGHIJK MAAAAA Nfl-1e8ba8b5a-2ad Ofl-1e8ba8b5a-2ae Pfl-1e8ba8b5a-2af Qfl-1e8ba8b5a-2b0 Rfl-1e8ba8b5a-2b1 SNOPQR T0LMS Ugmake-procedure-name VU WA Xfl-1e8ba8b5a-29d YX Z0VWY [A \fl-1e8ba8b5a-29c ]\ ^09[] _/67<=7777FTZ^  `ghygiene a`  b+,_a cA67< d` e+Hcd fe gg make-struct hgm-a33a589db48-1 ih. jgt-1e8ba8b5a-38d kgt-1e8ba8b5a-38c lgt-1e8ba8b5a-38b mjkl ngm-1e8ba8b5a-38e on. pooo qfl-1e8ba8b5a-392 rfl-1e8ba8b5a-393 sfl-1e8ba8b5a-394 tqrs u0mpt vg ctor-args wv xfl-1e8ba8b5a-37a yx z0w[y {gctor |gfield }{| ~fl-1e8ba8b5a-376 fl-1e8ba8b5a-377 ~ 0}B gform g type-name gconstructor-spec g field-names  AAAA fl-1e8ba8b5a-36b fl-1e8ba8b5a-36c fl-1e8ba8b5a-36d fl-1e8ba8b5a-36e  0 g record-layout gfunctional-setters gsetters gcopier ggetters g constructor ggetter-identifiers gfield-identifiers  AAAAAAAA fl-1e8ba8b5a-343 fl-1e8ba8b5a-341 fl-1e8ba8b5a-33f fl-1e8ba8b5a-33d fl-1e8ba8b5a-33b fl-1e8ba8b5a-339 fl-1e8ba8b5a-337 fl-1e8ba8b5a-335  0 fl-1e8ba8b5a-334  09[ i67<=7u777z7 +ga +cd + a e bf geach-any ( gsyntax-violation     fWrong number of arguments g identifier?     A7< + d   f-source expression failed to match any pattern grecord-type-vtable     gpw gdefault-record-printer     H gset-struct-vtable-name!     gvtable-offset-user     g%box?-procedure gm-a33a589db48-11 . gt-a33a589db48-10   fl-a33a589db48-16  0 fl-a33a589db48-13  09 7=7777FTZ^  +,a 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  0 g copier-id  fl-1e8ba8b5a-476  0[ g ctor-name  fl-1e8ba8b5a-46e  0[  fl-1e8ba8b5a-46c  0[ glayout  fl-1e8ba8b5a-46a  0[ g immutable?  fl-1e8ba8b5a-468  0[ g field-count  fl-1e8ba8b5a-466  0[ g getter-ids   fl-1e8ba8b5a-463     0[   g field-ids    fl-1e8ba8b5a-460  0 [ gpredicate-name g field-spec  AAAAAA fl-1e8ba8b5a-453 fl-1e8ba8b5a-454 fl-1e8ba8b5a-455 fl-1e8ba8b5a-456 fl-1e8ba8b5a-457 fl-1e8ba8b5a-458  0 i7=77777777777 7 +a   gand !+ a "gstruct? #+"a $# %geq? &+%a 'g struct-vtable (+'a )( *A7 ++*d ,&)+ -!$, .- /A7 0+/d 1gthrow-bad-struct 2 1 3 1 4g%unbox-procedure 5gfree-id 6g %%on-error 7gm-a33a589db48-1d 87. 98 :fl-a33a589db48-1f ;: <099; =87<=7777FTZ^  >+6=a ?5> @?) Ag%%type Bgt-1e8ba8b5a-3a5 Cgt-1e8ba8b5a-3a6 Dgt-1e8ba8b5a-3a7 Egt-1e8ba8b5a-3a8 Fgt-1e8ba8b5a-3a9 Ggt-1e8ba8b5a-3aa Hgt-1e8ba8b5a-3ab IBCDEFGH Jgm-1e8ba8b5a-3ac KJ. LKKKKKKK Mfl-1e8ba8b5a-3b0 Nfl-1e8ba8b5a-3b1 Ofl-1e8ba8b5a-3b2 Pfl-1e8ba8b5a-3b3 Qfl-1e8ba8b5a-3b4 Rfl-1e8ba8b5a-3b5 Sfl-1e8ba8b5a-3b6 TMNOPQRS U0ILT Vggetter Wgindex XVW Yfl-1e8ba8b5a-3a3 Zfl-1e8ba8b5a-3a4 [YZ \0XB[ ] ^AAA _fl-1e8ba8b5a-39e `fl-1e8ba8b5a-39f afl-1e8ba8b5a-3a0 b_`a c0]^b di7<=7U777\7c e+Ada f5e g(@f) hgck igerr jgs kij l88 mfl-a33a589db48-22 nfl-a33a589db48-23 omn p0klo q8p7<=7777FTZ^  r+hqa sgquote t+sqa uAp7< v+ud wtv xw yg%%index z+yda {5z |(@{) }fl-a33a589db48-27 ~fl-a33a589db48-28 }~ 0kl 87<=7777FTZ^  +ha +sa 7< + d   g%%copier +da 5 (@) fl-a33a589db48-2c fl-a33a589db48-2d  0kl 87<=7777FTZ^  +ha +sa g%%-set-fields A7< +d   gt-a33a589db48-1c  fl-a33a589db48-31  09 87<=7777FTZ^  +,a i7<=7U777\7c +ja  gif +a +%a +'a  A7< +d  g struct-ref +a 7< + d  +1a +sa +d     A7< +4d geach ))  ) ) ) g %%set-fields gdummy gcheck? gexpr jV gm-a33a589db48-38 . iiii fl-a33a589db48-3d fl-a33a589db48-3e fl-a33a589db48-3f fl-a33a589db48-40 fl-a33a589db48-41  0  fl-a33a589db48-3a  09 gt-1e8ba8b5a-3c4 gt-1e8ba8b5a-3c6 gt-1e8ba8b5a-3c5  gm-1e8ba8b5a-3c7 .  fl-1e8ba8b5a-3cb fl-1e8ba8b5a-3cc fl-1e8ba8b5a-3cd  0 fl-1e8ba8b5a-3c1 fl-1e8ba8b5a-3c2 fl-1e8ba8b5a-3c3  0]^ i7=7777  +a A7 +d +d  gmap   glist g%set-box!-procedure ()) gm-a33a589db48-4c . gt-a33a589db48-4a gt-a33a589db48-4b   fl-a33a589db48-51 fl-a33a589db48-52  0  fl-a33a589db48-4e  09 7=7777FTZ^  +,a gt-1e8ba8b5a-3e6 gt-1e8ba8b5a-3e7  gm-1e8ba8b5a-3e8 .  fl-1e8ba8b5a-3ec fl-1e8ba8b5a-3ed  0 gsetter  IV  fl-1e8ba8b5a-3e0  fl-1e8ba8b5a-3e1  fl-1e8ba8b5a-3e2      0 ^  W fl-1e8ba8b5a-3d7 fl-1e8ba8b5a-3d8  0B g field-specs  fl-1e8ba8b5a-3d3 fl-1e8ba8b5a-3d4  0B i7=777 +ja gval +a  +a  +%a !+'a "! #A7 $+#d % "$ &g struct-set! '+&a (7 )+ (d *') ++1a ,+sa -+#d .,- /+. 0%*/ 10 2A7 3+2d 4gset-record-type-printer! 5gdisplay 6f#string 8gobject-address 9f value:  :gwrite ;f>C5hh]4   54>"G4i4i5>"Ghr]Cjgvalue  gfilenamefsrfi/srfi-111.scm    gnameg%box-procedureC R4#$'*h7]C/gt-a33a589db48-3    ChT]L6Lga  gfilenamefsrfi/srfi-111.scm     C(hD]L6<gfilenamefsrfi/srfi-111.scm      Ch]C   C hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-111.scm    n C5R4>"G Ɩ iRhq]$CCigobj  gfilenamefsrfi/srfi-111.scm     gnameg%box?-procedureCR4#$'*.h8]C0gt-a33a589db48-10    ChT]L6Lga  gfilenamefsrfi/srfi-111.scm     C(hD]L6<gfilenamefsrfi/srfi-111.scm      C0h]C   C hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-111.scm    n C5R3hp]& C6hgs  gfilenamefsrfi/srfi-111.scm     gnameg%unbox-procedureC4R4#$'grxh:]C2gerr  gs    C|h:]C2gerr  gs    Ch:]C2gerr  gs    C*h8]C0gt-a33a589db48-1c    ChT]L6Lga  gfilenamefsrfi/srfi-111.scm     C(hD]L6<gfilenamefsrfi/srfi-111.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  gfilenamefsrfi/srfi-111.scm    C5R4#$'h v]45Cngdummy  gcheck?  gs   ggetter   gexpr      Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-111.scm    " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5R3h ]& C6|gs  gval  gfilenamefsrfi/srfi-111.scm     gnameg%set-box!-procedureCR4#$'1hV]CNgt-a33a589db48-4a  gt-a33a589db48-4b    ChT]L6Lga  gfilenamefsrfi/srfi-111.scm     C(hD]L6<gfilenamefsrfi/srfi-111.scm      C3h]C   C hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-111.scm    n C5R4ii56789:3; h]4>"G4445 5>"G4>"G4& " 4 5>"G 6gbox  |gport  |gfilenamefsrfi/srfi-111.scm         !   !  !  ' ! . !  7 "  ; " @ "  I #  N # l #  x $ | $   | C6gm  ,grtd o gfilenamefsrfi/srfi-111.scm   -  2   :  & ?   b    b C6srfi-1.go000064400000122634151027761750006217 0ustar00GOOF----LE-8-2.0]4h] gguile  gdefine-module*   gsrfi gsrfi-1  gfilenameS fsrfi/srfi-1.scm gexportsS gxcons g list-tabulate g list-copy g circular-list g proper-list? gcircular-list? g dotted-list? g null-list? g not-pair? glist= gfirst gsecond gthird gfourth gfifth gsixth gseventh geighth gninth gtenth gcar+cdr !gtake "gdrop #g take-right $g drop-right %gtake! &g drop-right! 'gsplit-at (g split-at! )glast *glength+ +g concatenate ,g concatenate! -gappend-reverse .gappend-reverse! /gzip 0gunzip1 1gunzip2 2gunzip3 3gunzip4 4gunzip5 5gcount 6gfold 7g fold-right 8g pair-fold 9gpair-fold-right :greduce ;g reduce-right g append-map ?g append-map! @gmap! Ag pair-for-each Bg filter-map Cg partition Dgremove Eg partition! Fgremove! Ggfind Hg find-tail Ig take-while Jg take-while! Kg drop-while Lgspan Mgspan! Ngbreak Ogbreak! Pgany Qgevery Rgdelete-duplicates Sgdelete-duplicates! Tg alist-cons Ug alist-copy Vg alist-delete Wg alist-delete! Xglset<= Yglset= Zg lset-adjoin [g lset-union \glset-intersection ]glset-difference ^glset-xor _glset-diff+intersection `g lset-union! aglset-intersection! bglset-difference! cg lset-xor! dglset-diff+intersection! e   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdY fg re-exportsS ggcons hglist igcons* jg make-list kgpair? lgnull? mgcar ngcdr ogcaar pgcadr qgcdar rgcddr sgcaaar tgcaadr ugcadar vgcaddr wgcdaar xgcdadr ygcddar zgcdddr {gcaaaar |gcaaadr }gcaadar ~gcaaddr gcadaar gcadadr gcaddar gcadddr gcdaaar gcdaadr gcdadar gcdaddr gcddaar gcddadr gcdddar gcddddr glist-ref g last-pair glength gappend gappend! greverse greverse! gfilter gfilter! gmemq gmemv gassq gassv gset-car! gset-cdr! ghijklmnopqrstuvwxyz{|}~3 g replacementsS giota gmap gfor-each g map-in-order g list-index gmember gdelete gdelete! gassoc   gset-current-module   gcond-expand-provide gcurrent-module  gload-extension g string-append f libguile- geffective-version fscm_init_srfi_1 g scm-error gwrong-type-arg gsymbol->string fWrong type argument: ~S gmake-syntax-transformer   g check-arg gmacro g $sc-dispatch   PPPP g syntax-object gif gtop  gribcage gdummy gpred garg gcaller  gm-1e8ba8b52-388   fl-1e8ba8b52-38d fl-1e8ba8b52-38e fl-1e8ba8b52-38f fl-1e8ba8b52-390    gx   fl-1e8ba8b52-38a    ghygiene   gnot   gquote  gsyntax-violation   f-source expression failed to match any pattern g out-of-range fValue out of range: ~A ginteger? gnon-negative-integer? gerror fnot a proper list in null-list? g procedure? g list-head g list-tail gany1 fmap fCircular list: ~S fNot a list: ~S gmin f.Args do not contain a proper (finite) list: ~S ffor-each gapply gevery1 gacons gequal? geq? geqv?C5h]4   ef5 4>"G4i4i5>"G4i4i4i55>"Gh]Cgd  ga  gfilenamefsrfi/srfi-1.scm     gnamegxconsg documentationfdLike `cons', but with interchanged arguments. Useful mostly when passed to higher-order procedures.C Rh]456gcaller  garg  gfilenamefsrfi/srfi-1.scm      '  2     gnamegwrong-type-argCR4h(d]C\gdummy  "gpred  "garg   "gcaller   "  " Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-1.scm   " g macro-typeg syntax-rulesgpatternsgpredgarggcallerC5Rh]6gproc  garg  gfilenamefsrfi/srfi-1.scm   &  1     gnameg out-of-rangeCRh]45$ CCgx  gfilenamefsrfi/srfi-1.scm  ' "  4   gnamegnon-negative-integer?CR hX]45$"4>"G"! $C45""gn  Ug init-proc  Ugn  ) Jgacc  ) Jgfilenamefsrfi/srfi-1.scm    )   -   1   7  8   =  % ?   B   J   J   M   U    U gnameg list-tabulateg documentationfReturn 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 Rh(-13HJK4J5JJCgelt1 !gelts !gfilenamefsrfi/srfi-1.scm            ! gnameg circular-listCRhx"-.,3# # 45$"4>"G"%$6" "gcount tgstart tgstep  tgn  E jgacc  E jgfilenamefsrfi/srfi-1.scm     E   J   N   T   W  ^  # _   b   j   j   l   t   t gnamegiotaCRht]Clgx  gfilenamefsrfi/srfi-1.scm       gnameg proper-list?CRhX6]45$C"745$C45$C&C"".gx  Wghare  Jgtortoise   Jghare  # Jgfilenamefsrfi/srfi-1.scm               #   #   &   0  : ! ? #  B #  J #  J   M   W    W gnamegcircular-list?CRhpF](C45$C"G(C45$C(C45$C&C"">gx  oghare  bgtortoise   bghare  3 bgfilenamefsrfi/srfi-1.scm %  &  (   &   *  ! +  $ - . +  3 /  3 / ; 0 > 2  H 0 W 5  Z 5  b 5  b *  e *  o *   o gnameg dotted-list?CRh(]45$C45$C6gx  $gfilenamefsrfi/srfi-1.scm 7  9  8   :   ;   8  " > $ >   $ gnameg null-list?CRhI]CAgx  gfilenamefsrfi/srfi-1.scm @  E   E    gnameg not-pair?g documentationfReturn #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.CRhH ]"1(C(C4L5$"C"ga  Cgb  Cga   7gb   7gfilenamefsrfi/srfi-1.scm H   I  J   K  J   O   O  ! O # O  ' O * P  - P  5 P  7 I   C gnameg lists-equalChx<-13OQ45$"4>"G(C"*$C45$ "C"4gelt= wgrest wg lists-equal   wglists  E ogt  I ogfilenamefsrfi/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 gnameglist=CRmiRpiRviRiRhv]Cngx  gfilenamefsrfi/srfi-1.scm _  _  _   gnamegfifthCRhv]Cngx  gfilenamefsrfi/srfi-1.scm `  `  `   gnamegsixthCRhx]Cpgx  gfilenamefsrfi/srfi-1.scm a  a  a   gnamegseventhCRhw]Cogx  gfilenamefsrfi/srfi-1.scm b  b  b   gnamegeighthCRh]Cwgx  gfilenamefsrfi/srfi-1.scm c  c  c  c    gnamegninthCRh]Cwgx  gfilenamefsrfi/srfi-1.scm d  d d  d    gnamegtenthCRh]Dgx  gfilenamefsrfi/srfi-1.scm f  h  h  h   gnamegcar+cdrg documentationf3Return two values, the `car' and the `cdr' of PAIR.C Ri!Ri"R"h8]"$"C45"glis  1gk  1glag   glead   gfilenamefsrfi/srfi-1.scm q  r  s  s   t  t   t   r  ! r  1 r   1 gnameg take-rightC#R"h@&]"#$"645"glis  ?gk  ?glag   )glead   )gresult   )gfilenamefsrfi/srfi-1.scm w  x  y  y   z  z   z '  z ! # z  ) {  ) x  , x  5 x 1 ? x   ? gnameg drop-rightC$R"h ]  $C45Cglst  gi  gtail   gfilenamefsrfi/srfi-1.scm }                           gnamegtake!g documentationf Linear-update variant of `take'.C%R"hP}]45(C"%($CC""uglst  Kgi  Kgtail  Kgprev   >gtail   >gfilenamefsrfi/srfi-1.scm                  "   &   )  # *   3   6   >   >   C   K    K gnameg drop-right!g documentationf&Linear-update variant of `drop-right'.C&R'hP] $6") $ 45D""glst  Ngi  Ngl   ?gn   ?gacc   ?gfilenamefsrfi/srfi-1.scm                        )  ,   /   2  & 5  ?  ?   D  " N    N gnamegsplit-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""glst  Ugi  Ugl  # Hgn  # Hgtmp  . :gfilenamefsrfi/srfi-1.scm                     #  '   +  .   .   3   4   :   =   @   H   H  M   U    U gnameg split-at!g documentationf$Linear-update variant of `split-at'.C(Rh]45Cgpair  gfilenamefsrfi/srfi-1.scm        gnameglastg documentationf;Return the last element of the non-empty, finite list PAIR.C)RPlnmhP-13"045$64545""gclist1 Kgrest Kgl  =gacc  =gfilenamefsrfi/srfi-1.scm            !  *   5   =   =   B   C  ' K   K gnamegzipC/Rhn]6fgl  gfilenamefsrfi/srfi-1.scm     gnamegunzip1C0Rh]4545Dxgl  gfilenamefsrfi/srfi-1.scm           gnamegunzip2C1Rh ]454545Dgl  gfilenamefsrfi/srfi-1.scm        '      gnamegunzip3C2Rh(]45454545Dgl  (gfilenamefsrfi/srfi-1.scm        '   5 (    ( gnamegunzip4C3Rh8]4545454545Dgl  1gfilenamefsrfi/srfi-1.scm        '   5 '  1    1 gnamegunzip5C4R6Plmn h-1345$"4>"G(."(C45"""A45$C454544 5?""gkons gknil glist1  grest  gknil  6 Tglist1  6 Tgknil  d glists  d gcars  gcdrs   gfilenamefsrfi/srfi-1.scm    2   6   <   @   E   I   L  ' T  T   d   e  q   u   ~         +          !    gnamegfoldg documentationfuApply PROC to the elements of LIST1 ... LISTN to build a result, and return that result. See the manual for details.C6R7lnm h-1345$"4>"G(3"(C45"45""945$C4544 4 55?"45"gkons gknil gclist1  grest  glst  6 Tgresult  6 Tglists  i gresult  i gfilenamefsrfi/srfi-1.scm    2   6   <   B   C   H   L   T  T   U   e   i   j  v   z        '  7           &      gnameg fold-rightC7R8Pln h-1345$"4>"G(1"!(C45"""645$C45445?""gkons gknil gclist1  grest  gknil  6 Wglist1  6 Wgtail  B Wgknil  g glists  g gtails   gfilenamefsrfi/srfi-1.scm    2   6   <   B   B  E   W  W   g   h  t   x         ,          !    gnameg pair-foldC8R9h ](LCL4L56glist1  gfilenamefsrfi/srfi-1.scm                    gnamegfCPlnh0]45$LCL44L4555@glists  .gfilenamefsrfi/srfi-1.scm             )   , '  ) *  # ,   .    . gnamegfChh-1345$"4>"G(OQ6OQ6gkons ggknil ggclist1  ggrest  ggf  < Kgf  U ggfilenamefsrfi/srfi-1.scm    2   <   U   e   g   g  gnamegpair-fold-rightC9Rh\]CTgx  gfilenamefsrfi/srfi-1.scm  1   =   C<h-.,3 #"/"(C"45"45$"4>"G45$"4>"G45$"4>"G45$"4>"G"045$ "*4545"" gp gf gg  gseed  gtail-gen  glst   Igseed   Iglst   8gresult   8gseed   gresult    gfilenamefsrfi/srfi-1.scm        $   *   -   0   8  8   ;   I   J   m                                    gnamegunfoldC"G45$"4>"G45$"4>"G"'45$C4545""Ggp gf gg  gseed  gtail  gseed  glis  gfilenamefsrfi/srfi-1.scm    3    9   \                   gnameg unfold-rightC=R:6h@]45$"4>"G(C6gf  :g ridentity  :glst   :gfilenamefsrfi/srfi-1.scm   %  + &  5 (  8 (  : (   : gnamegreduceg 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]456gf  g ridentity  glst   gfilenamefsrfi/srfi-1.scm * /   /    gnameg 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(] 45$$6CCgls  %glen  %gls-len  %gfilenamefsrfi/srfi-1.scm F   G & G   H   I   I )  % C*nmh)345$"4>"G"|$Y$6&645"45"(6 6"r-1345$"4>"G4  4 55$"4 >"G"= $645445?""gf gl ghare  0 gtortoise  0 gmove?  0 gout  0 gf ygl1 ygrest  yglen  ygl1  ) fgrest  ) fglen  ) fgout  ) fgfilenamefsrfi/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  gnamegmapCRiR6*h(] 45$$6CCgls  %glen  %gls-len  %gfilenamefsrfi/srfi-1.scm p   q & q   r   s   s )  % C*mnhZ)345$"4>"G"$e$<&64>"G"4>"G"(C6"m-1345$"4>"G4  4 55$"4 >"G"A $74 45>"G45"C"Rgf gl ghare  0 gtortoise  0 gmove?  0 gf gl1 grest  glen  gl1  . ogrest  . oglen  . o gfilenamefsrfi/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    gnamegfor-eachCR+h-134?6gf gclist1 grest  gfilenamefsrfi/srfi-1.scm         gnameg append-mapC>R,h-134?6gf gclist1 grest  gfilenamefsrfi/srfi-1.scm         gnameg append-map!C?Ri@RBlmn h-1345$"4>"G(H"9(645$""""R45$6445?$4 5"4 5""gproc glist1 grest  gl  6 ogrl  6 ogres  J ogl  ~ grl  ~ gres   gfilenamefsrfi/srfi-1.scm    2   6   <   B  C   H   J   J  R   U   Z   b   e   o   o   r   z   ~           #         "              &  gnameg filter-mapg documentationfApply 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 hV-1345$"4>"G(/"#(C4>"G"""245$C4>"G45""Ngf gclist1 grest  gl  6 Ygl  e gfilenamefsrfi/srfi-1.scm    2   6   <   ?  S   Y  Y   e   f  r   u            gnameg pair-for-eachCARIh]45$"4>"G(C45$H"/(C45$"C"Cgpred  gls  gresult  ? gls  E tgp  E tgfilenamefsrfi/srfi-1.scm     +   ,   .   3   5   9   <   ?   ?  E  K  O   T   V   Z  _  & b  c   f   i  ! q   t  w       gnameg take-whileg documentationfjReturn a new list which is the longest initial prefix of LS whose elements all satisfy the predicate PRED.CIRJhhe]45$"4>"G"2(C45$ "$CC"]gpred  fglst  fgprev  ) [grest  ) [gfilenamefsrfi/srfi-1.scm     )   /   3  8   :  >   C   K  N   R  U  V   Z   [    f gnameg take-while!g documentationf&Linear-update variant of `take-while'.CJRKhX\] 45$"4>"G" (C45$ "C"Tgpred  Qglst  Qglst  ) Igfilenamefsrfi/srfi-1.scm     )   /   0  2  7   9  =   @   F  I    Q gnameg drop-whileg documentationfUDrop the longest initial prefix of LST whose elements all satisfy the predicate PRED.CKRLhh]45$"4>"G"3("45$"45D"gpred  gglst  gglst  ) \grl  ) \gfilenamefsrfi/srfi-1.scm     )   /   5  :   <  @   C  F   I   Q   R   \   \   _   g    g gnamegspang documentationf}Return two values, the longest initial prefix of LST whose elements all satisfy the predicate PRED, and the remainder of LST.CLRMhp~]45$"4>"G":(D45$ "$ DD"vgpred  nglist  ngprev  ) cgrest  ) cgfilenamefsrfi/srfi-1.scm     )   /   2   4  5  :   <  @   E   M  P   T  W  X   ^   _   c   c    n gnamegspan!g documentationf Linear-update variant of `span'.CMRNhh]45$"4>"G"3("45$ 45D""gpred  ggclist  ggclist  ) \grl  ) \gfilenamefsrfi/srfi-1.scm     )   /   0  5  :   <  @   A   K   N  Q   T   \   \   _   g    g gnamegbreakg documentationfzReturn two values, the longest initial prefix of LST whose elements all fail the predicate PRED, and the remainder of LST.CNROhp}]45$"4>"G":(D45$$ DD""ugpred  nglist  ngl  ) cgprev  ) cgfilenamefsrfi/srfi-1.scm     )   /   2   4  5  :   <  @   C   G  J  K   Q   R   V   Y   c  c    n gnamegbreak!g documentationf!Linear-update variant of `break'.CORPlnm hu-1345$"4>"G(6"X45$C4455$ 45@445?$C45""mgpred gls glists  glists  > gt  | gfilenamefsrfi/srfi-1.scm    2   :   >   ?   K   N   S   ]   a   d   n   o   r   |   |    4  0        gnameganyCPRh@ ]"2(C(645$C""gpred  @gls  @gls   8gt  $ 8gfilenamefsrfi/srfi-1.scm        "      #   #  %  " %  $ %  $ % 2 % # 8 %  8    @ gnamegany1CRQlnm hh-1345$"4>"G(6"S45$C4455$ 4 5@44 5?$45"C"`gpred gls glists  glists  > gfilenamefsrfi/srfi-1.scm ' (  2 )  : *  > +  ? ,  K ,  N .  S .  ] .  a ,  d /  n /  o 1  r 1 | 1  1  1 5 1 1 +  +  +   gnamegeveryCQRh@] "-(C(645$ "C"gpred  ;gls  ;gls   3gfilenamefsrfi/srfi-1.scm 3  4  5   7   5   8   8  :  " :  $ :  ( : + : $ 1 : 3 4   ; gnamegevery1CRlmn hA-1345$"4>"G(4"%(C45$C" ""845$C445?$C45" "9gpred gclist1 grest  gl  6 [gi  6 [glists  j gi  j gfilenamefsrfi/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   gnameg list-indexg documentationfgReturn the index of the first set of elements, one from each of CLIST1 ... CLISTN, that satisfies PRED.CRiTRTh8r]"&(645""jgalist  7ga  ,grl   ,gfilenamefsrfi/srfi-1.scm R  U  W   X   Y  Y   Y  Y ) $ Y  , Y  , U  / V  7 U   7 gnameg alist-copyg documentationfeReturn a copy of ALIST, copying both the pairs comprising the list and those making the associations.CURVhN-.,3#45$"4>"G"9(645$ """Fgkey galist gk=  ga  = vgrl  = vgfilenamefsrfi/srfi-1.scm [  \  = ]  C ^  I _  J ` Q `  T ` X `  [ a  e a h b  k b  n b  v b v ]  y ]  ]   gnameg alist-deleteCVRVh -.,3#6gkey galist gk=  gfilenamefsrfi/srfi-1.scm d e   gnameg alist-delete!CWRHh\]LL6Tgy  gfilenamefsrfi/srfi-1.scm q  q   C hh-.,3#&6&645$"4>"G  O6gx hgls hg=  hgfilenamefsrfi/srfi-1.scm i  j  & m  . j  6 n  7 p  h q  h  gnamegmemberCRXQhf]LL6^gel  gfilenamefsrfi/srfi-1.scm {  { 0 { %  Chx-1345$"4>"G(C",(C4O5$"C" g= rgrest rgf  8 dgr  8 dgfilenamefsrfi/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 gnameglset<=CXRXQhf]LL6^gel  gfilenamefsrfi/srfi-1.scm    .  #  Chk]L6cgx  gy  gfilenamefsrfi/srfi-1.scm  0  >  Ch]]LLO6Ugel  gfilenamefsrfi/srfi-1.scm     #   Ch<-1345$"4>"G(C"C(C4O5$%4O5$"CC"4g= grest gf  8 {gr  8 {gfilenamefsrfi/srfi-1.scm ~   2   8   >   ?  A   T  U   c  I e   i  l   o   w   {   ~       gnameglset=CYRZhk]L6cgx  gy  gfilenamefsrfi/srfi-1.scm     Ch-13H&"$"*45$"4>"GOK"0(C4J5$"""g= glist grest  gpred  gans  X grest  X gfilenamefsrfi/srfi-1.scm          "   )  X   ^   b   g   m   q  z   }         gnameg lset-adjoing documentationflAdd 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[hk]L6cgx  gy  gfilenamefsrfi/srfi-1.scm     C66h ]4M5$CCygelt  gans  gfilenamefsrfi/srfi-1.scm              Ch0x](C(C&CLO6pglis  .gans  .gfilenamefsrfi/srfi-1.scm     .    . C hh-13H&"$"*45$"4>"GOKO6g= bgrest bgpred  bgfilenamefsrfi/srfi-1.scm          "   )  ^   b   b gnameg lset-unionC[R\Qhf]LL6^gll  gfilenamefsrfi/srfi-1.scm     &    Ch?-1345$"4>"G">(64O5$"""7g= yglist1 ygrest  ygl  0 ngacc  0 ngfilenamefsrfi/srfi-1.scm    0   6   <   =  P   S  V   Y   a   d  n   n   q   y   y  gnameglset-intersectionC\R]Phf]LL6^gll  gfilenamefsrfi/srfi-1.scm     &    ChK-1345$"4>"G(C">(64O5$ """Cg= glist1 grest  gl  9 wgacc  9 wgfilenamefsrfi/srfi-1.scm    2   9   ?   E   F  Y   \   f  i   l   o   w  w   z      gnameglset-differenceC]R^6h]""~(J":(64L5$ """4L5$ """wglst  gres  gl   gacc   gr   Jgacc   Jgfilenamefsrfi/srfi-1.scm                  "   (   ,   /   9   <   ?  ' B  ! J   J   W   \   b   f   i   s   v   y  " |          Ch@-1345$"4>"GO6g= :grest :gfilenamefsrfi/srfi-1.scm    6   :   : gnameglset-xorC^R_Qhf]LL6^gll  gfilenamefsrfi/srfi-1.scm     1  )  Ch-1345$"4>"G"X(4545D4O5$"""g= glist1 grest  gl  0 gaccd  0 gacci  0 gappears  V gfilenamefsrfi/srfi-1.scm    0   6   7   >   F   G   V   ^   a   f  ! i   s  v   y   |         &    gnameglset-diff+intersectionC_R`[h8-1345$"4>"G@g= 4grest 4gfilenamefsrfi/srfi-1.scm    4   4 gnameg lset-union!C`Ra\h8-1345$"4>"G@g= 6glist1 6grest  6gfilenamefsrfi/srfi-1.scm    6   6  gnameglset-intersection!CaRc^h8-1345$"4>"G@g= 4grest 4gfilenamefsrfi/srfi-1.scm    4   4 gnameg lset-xor!CcRd_h8-1345$"4>"G@g= 6glist1 6grest  6gfilenamefsrfi/srfi-1.scm    6   6  gnameglset-diff+intersection!CdRCgm  0gfilenamefsrfi/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  C6srfi-27.go000064400000045051151027761750006304 0ustar00GOOF----LE-8-2.0J]H4h*] gguile  gdefine-module*   gsrfi gsrfi-27  gfilenameS fsrfi/srfi-27.scm gimportsS gsrfi-9      gexportsS grandom-integer g random-real gdefault-random-source gmake-random-source grandom-source? grandom-source-state-ref grandom-source-state-set! grandom-source-randomize! grandom-source-pseudo-randomize! grandom-source-make-integers grandom-source-make-reals   gset-current-module   gcond-expand-provide !gcurrent-module " #g:random-source $g%%make-random-source-procedure %gmake-syntax-transformer &% '% (g%make-random-source )gmacro *g $sc-dispatch +* ,* -g_ .gany /-. 0g syntax-object 1glambda 2gm-46961e50f6-4 3gtop 423 5gribcage 6gt-46961e50f6-3 76 84 9fl-46961e50f6-9 :9 ;578: <5 =gx >= ?fl-46961e50f6-6 @? A5>8@ Bgshift Cg proc-name Dgargs ECD F3 GFF Hfl-1e8ba8b5a-2ba Ifl-1e8ba8b5a-2bb JHI K5EGJ Lgkey Mgvalue Ngname Ogformals Pgbody QLMNOP RFFFFF Sfl-1e8ba8b5a-2ad Tfl-1e8ba8b5a-2ae Ufl-1e8ba8b5a-2af Vfl-1e8ba8b5a-2b0 Wfl-1e8ba8b5a-2b1 XSTUVW Y5QRX Zgmake-procedure-name [Z \F ]fl-1e8ba8b5a-29d ^] _5[\^ `F afl-1e8ba8b5a-29c ba c5>`b d4;<AB<<<<KY_c  eghygiene fe  g01df hgstate iF;<A je k0hij lk mg make-struct ngm-46961e50f6-1 on3 pgt-1e8ba8b5a-38d qgt-1e8ba8b5a-38c rgt-1e8ba8b5a-38b spqr tgm-1e8ba8b5a-38e ut3 vuuu wfl-1e8ba8b5a-392 xfl-1e8ba8b5a-393 yfl-1e8ba8b5a-394 zwxy {5svz |g ctor-args }| ~fl-1e8ba8b5a-37a ~ 5}` gctor gfield  fl-1e8ba8b5a-376 fl-1e8ba8b5a-377  5G gform g type-name gconstructor-spec g field-names  FFFF fl-1e8ba8b5a-36b fl-1e8ba8b5a-36c fl-1e8ba8b5a-36d fl-1e8ba8b5a-36e  5 g record-layout gfunctional-setters gsetters gcopier ggetters g constructor ggetter-identifiers gfield-identifiers  FFFFFFFF fl-1e8ba8b5a-343 fl-1e8ba8b5a-341 fl-1e8ba8b5a-33f fl-1e8ba8b5a-33d fl-1e8ba8b5a-33b fl-1e8ba8b5a-339 fl-1e8ba8b5a-337 fl-1e8ba8b5a-335  5 fl-1e8ba8b5a-334  5>` o;<AB<{<<<< 0mf 0#ij 0 f k gl geach-any - gsyntax-violation     fWrong number of arguments g identifier?     F<A 0$j   f-source expression failed to match any pattern grecord-type-vtable     gpw gdefault-record-printer     h gset-struct-vtable-name!     gvtable-offset-user     g%random-source?-procedure gm-46961e50f6-11 3 gt-46961e50f6-10   fl-46961e50f6-16  5 fl-46961e50f6-13  5> <B<<<<KY_c  01f 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 3  fl-1e8ba8b5a-483 fl-1e8ba8b5a-484 fl-1e8ba8b5a-485 fl-1e8ba8b5a-486 fl-1e8ba8b5a-487 fl-1e8ba8b5a-488 fl-1e8ba8b5a-489  5 g copier-id  fl-1e8ba8b5a-476  5` g ctor-name  fl-1e8ba8b5a-46e  5`  fl-1e8ba8b5a-46c  5` glayout  fl-1e8ba8b5a-46a  5` g immutable?  fl-1e8ba8b5a-468  5` g field-count    fl-1e8ba8b5a-466     5 `   g getter-ids   fl-1e8ba8b5a-463  5` g field-ids  fl-1e8ba8b5a-460  5` gpredicate-name g field-spec  FFFFFF fl-1e8ba8b5a-453 fl-1e8ba8b5a-454 fl-1e8ba8b5a-455 fl-1e8ba8b5a-456 fl-1e8ba8b5a-457  fl-1e8ba8b5a-458 !  "5! #o<B<<<<<<<<<< <<" $0#f %$ &gand '0&#f (gstruct? )0(#f *)$ +geq? ,0+#f -g struct-vtable .0-#f /.$ 0F< 10#0j 2,/1 3'*2 4%3 5F< 605j 7gthrow-bad-struct 8 7 9 7 :grandom-source-state ;g%random-source-state-procedure gm-46961e50f6-1d ?>3 @? Afl-46961e50f6-1f BA C5>@B D?<CB<<<<KY_c  E0=Df F<E GF. Hg%%type Igt-1e8ba8b5a-3a5 Jgt-1e8ba8b5a-3a6 Kgt-1e8ba8b5a-3a7 Lgt-1e8ba8b5a-3a8 Mgt-1e8ba8b5a-3a9 Ngt-1e8ba8b5a-3aa Ogt-1e8ba8b5a-3ab PIJKLMNO Qgm-1e8ba8b5a-3ac RQ3 SRRRRRRR Tfl-1e8ba8b5a-3b0 Ufl-1e8ba8b5a-3b1 Vfl-1e8ba8b5a-3b2 Wfl-1e8ba8b5a-3b3 Xfl-1e8ba8b5a-3b4 Yfl-1e8ba8b5a-3b5 Zfl-1e8ba8b5a-3b6 [TUVWXYZ \5PS[ ]ggetter ^gindex _]^ `fl-1e8ba8b5a-3a3 afl-1e8ba8b5a-3a4 b`a c5_Gb d  eFFF ffl-1e8ba8b5a-39e gfl-1e8ba8b5a-39f hfl-1e8ba8b5a-3a0 ifgh j5dei ko<CB<\<<<c<j l0Hkf m<l n-Gm. ogck pgerr qgs rpq s?? tfl-46961e50f6-22 ufl-46961e50f6-23 vtu w5rsv x?w<CB<<<<KY_c  y0oxf zgquote {0zxf |Fw<C }0#|j ~{} ~ g%%index 0kf < -G. fl-46961e50f6-27 fl-46961e50f6-28  5rs ?<CB<<<<KY_c  0of 0zf <C 0 j   g%%copier 0kf < -G. fl-46961e50f6-2c fl-46961e50f6-2d  5rs ?<CB<<<<KY_c  0of 0zf g%%:random-source-set-fields F<C 0j   gt-46961e50f6-1c  fl-46961e50f6-31  5@ ?<CB<<<<KY_c  01f o<CB<\<<<c<j 0qf  gif 0f 0+f 0-f  F<C 0#j  g struct-ref 0f <C 0 j  07f 0zf 0:j     F<C 0;j geach ..  . .Œ .Ì g %%set-fields gdummy gcheck? gexpr q] gm-46961e50f6-38 3 oooo fl-46961e50f6-3d fl-46961e50f6-3e fl-46961e50f6-3f fl-46961e50f6-40 fl-46961e50f6-41  5  fl-46961e50f6-3a  5> gt-1e8ba8b5a-3c4 gt-1e8ba8b5a-3c6 gt-1e8ba8b5a-3c5  gm-1e8ba8b5a-3c7 3  fl-1e8ba8b5a-3cb fl-1e8ba8b5a-3cc fl-1e8ba8b5a-3cd  5 fl-1e8ba8b5a-3c1 fl-1e8ba8b5a-3c2 fl-1e8ba8b5a-3c3  5de o<B<<<<  0f F< 0#j 0:j  gmap   glist gset-random-source-state! g#%set-random-source-state!-procedure -.. gm-46961e50f6-4c 3 gt-46961e50f6-4a gt-46961e50f6-4b   fl-46961e50f6-51 fl-46961e50f6-52  5  fl-46961e50f6-4e  5> <B<<<<KY_c  01f gt-1e8ba8b5a-3e6 gt-1e8ba8b5a-3e7   gm-1e8ba8b5a-3e8   3      fl-1e8ba8b5a-3ec  fl-1e8ba8b5a-3ed    5  gsetter N] fl-1e8ba8b5a-3e0 fl-1e8ba8b5a-3e1 fl-1e8ba8b5a-3e2  5e ^ fl-1e8ba8b5a-3d7 fl-1e8ba8b5a-3d8  5G g field-specs  fl-1e8ba8b5a-3d3 fl-1e8ba8b5a-3d4   !5G  "o<B<<<! #0q"f $gval %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 random-state =grandom-state->datum >gdatum->random-state ?g gettimeofday @e 1000000.0 Ag i+j->seed Bgspread Cgrandom Dgrandom:uniform Egreal? Fgerror Gf!unit must be real between 0 and 1C5h]4   54>"G4 i4!i5">"G#h]Cygstate  gfilenamefsrfi/srfi-27.scm (   gnameg%%make-random-source-procedureC$R4'(),/h6]C.gt-46961e50f6-3    C(hS]L6Kga  gfilenamefsrfi/srfi-27.scm  (   C-hC]L6;gfilenamefsrfi/srfi-27.scm  (    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-27.scm (   n C5(R#ƨ4#>"G ̖$i#R#hz]$CCrgobj  gfilenamefsrfi/srfi-27.scm (    gnameg%random-source?-procedureCR4'),/4h7]C/gt-46961e50f6-10    ChS]L6Kga  gfilenamefsrfi/srfi-27.scm  (   C-hC]L6;gfilenamefsrfi/srfi-27.scm  (    C6h]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-27.scm (   n C5R#9:h}]& C6ugs  gfilenamefsrfi/srfi-27.scm (    gnameg%random-source-state-procedureC;R4':),nyh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    C/h7]C/gt-46961e50f6-1c    C:hS]L6Kga  gfilenamefsrfi/srfi-27.scm  (   C-hC]L6;gfilenamefsrfi/srfi-27.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  gfilenamefsrfi/srfi-27.scm (   C5:R4'),h v]45Cngdummy  gcheck?  gs   ggetter   gexpr      Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-27.scm (   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5R#9h ]& C6gs  gval  gfilenamefsrfi/srfi-27.scm (    gnameg#%set-random-source-state!-procedureCR4'),9hT]CLgt-46961e50f6-4a  gt-46961e50f6-4b    ChS]L6Kga  gfilenamefsrfi/srfi-27.scm  (   C-hC]L6;gfilenamefsrfi/srfi-27.scm  (    C;h]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-27.scm (   n C5R<#h]4 5C}gstate  gfilenamefsrfi/srfi-27.scm -  .   .    gnamegmake-random-sourceCR=#9:h ]& " 456~gs  gfilenamefsrfi/srfi-27.scm 0  1  1   gnamegrandom-source-state-refCR>#9h(] 45& C6gs  #gstate  #gval  #gfilenamefsrfi/srfi-27.scm 3  4  4   # gnamegrandom-source-state-set!CR?<@#9h8]4545& C6gs  2gtime  2gval   2gfilenamefsrfi/srfi-27.scm 6  7   7  8  9 '  9 2  9 $  9 7  9 !  8  8   2 gnamegrandom-source-randomize!CR<A#9h0] 4455& C6gs  *gi  *gj   *gval   *gfilenamefsrfi/srfi-27.scm ;  <   < 2  <   <   * gnamegrandom-source-pseudo-randomize!CRBh]4 5 4 5Cgi  gj  gfilenamefsrfi/srfi-27.scm >  ?  ?  @  ?    gnameg i+j->seedCARh@]") $C  "  "gn  =gamount  =gresult   /gn   /gshift   /gfilenamefsrfi/srfi-27.scm B  C  D   D   G   G   F  H  % I  / F  / C   = gnamegspreadCBRC#9:h(c]L&L " 4L56[gn  "gfilenamefsrfi/srfi-27.scm L  M  " M   " Chz]OCrgs  gfilenamefsrfi/srfi-27.scm K   gnamegrandom-source-make-integersCRD#9:h@]"04L&L " 4L55 $"C"gx % 6gfilenamefsrfi/srfi-27.scm R   S   T  T " % T  % T * U  / U 3 V  6 S   : CEFGh`) 3OC] 45$ $ ""$"4>"G6gs gs  ]gunit  ]gt  4 Wgfilenamefsrfi/srfi-27.scm P   Y   Y " Y  4 Y  A Z E Z  L Z ] [     ] gnamegrandom-source-make-realsCR4i5R4ii5R4ii5RCgm  ,grtd ~ gfilenamefsrfi/srfi-27.scm   - & 2 &  : & & ? & (  - q 0 f 3  6  ;  >  B  K  O  ]   ]  ^   ^  _   _    C6srfi-43.go000064400000176476151027761750006322 0ustar00GOOF----LE-8-2.0&]t4h] gguile  gdefine-module*   gsrfi gsrfi-43  gfilenameS fsrfi/srfi-43.scm gimportsS gsrfi-1     gsrfi-8    gexportsS g vector-empty? gvector= g vector-unfold gvector-unfold-right gvector-reverse-copy g vector-append gvector-concatenate g vector-fold gvector-fold-right g vector-map g vector-map! gvector-for-each g vector-count !g vector-index "gvector-index-right #g vector-skip $gvector-skip-right %gvector-binary-search &g vector-any 'g vector-every (g vector-swap! )gvector-reverse! *g vector-copy! +gvector-reverse-copy! ,greverse-vector->list -greverse-list->vector . !"#$%&'()*+,- /g re-exportsS 0g make-vector 1gvector 2gvector? 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:; =gset-current-module >= ?= @gcond-expand-provide Agcurrent-module B Cgerror Dg string-append Egsymbol->string Ff:  Gg error-from Hgmake-syntax-transformer IH JH Kgassert-nonneg-exact-integer Lgmacro Mg $sc-dispatch NM OM Pgany QPPP Rg syntax-object Sgunless Tgtop UT Vgribcage Wgdummy Xgk Ygwho ZWXY [gm-46961e513c-7 \[T ]\UU ^fl-46961e513c-c _fl-46961e513c-d `fl-46961e513c-e a^_` bVZ]a cV dgx ed f\ gfl-46961e513c-9 hg iVefh jUbci kghygiene lk mRSjl ngand oRnjl pgexact-integer? qRpjl rgnot sRrjl tg negative? uRtjl vRGjl wf(expected non-negative exact integer, got xRwjl ygsyntax-violation zy {y |f-source expression failed to match any pattern }gassert-procedure ~gf W~Y gm-46961e513c-13 T UU fl-46961e513c-18 fl-46961e513c-19 fl-46961e513c-1a  V  fl-46961e513c-15  Ve Uc RSl g procedure? Rl RGl fexpected procedure, got Rl g assert-vector gv WY gm-46961e513c-1f T UU fl-46961e513c-24 fl-46961e513c-25 fl-46961e513c-26  V  fl-46961e513c-21  Ve Uc RSl R2l RGl fexpected vector, got Rl gassert-valid-index PPPP gi glen WY gm-46961e513c-2b T UUU fl-46961e513c-30 fl-46961e513c-31 fl-46961e513c-32 fl-46961e513c-33  V  fl-46961e513c-2d  Ve Uc RSl Rnl Rpl g<= Rl R l RGl f invalid index Rl gassert-valid-start gstart WY gm-46961e513c-39 T UUU fl-46961e513c-3e fl-46961e513c-3f fl-46961e513c-40 fl-46961e513c-41  V  fl-46961e513c-3b  Ve Uc RSl Rnl Rpl Rl R l RGl finvalid start index Rl gassert-valid-range PPPPP gend WY gm-46961e513c-47 T UUUU fl-46961e513c-4c fl-46961e513c-4d fl-46961e513c-4e fl-46961e513c-4f fl-46961e513c-50  V  fl-46961e513c-49  Ve Uc RSl Rnl Rpl Rl R l RGl finvalid index range Rl gassert-vectors glet gvs WY gm-46961e513c-57 T UU fl-46961e513c-5c fl-46961e513c-5d fl-46961e513c-5e  V  fl-46961e513c-59  Ve Uc  Rl  gloop  R l  RSl  gnull? R l Rl gcar Rl gcdr Rl gmin g min-length greverse! g vectors-ref gapply 8 8 gguile-vector-copy gvector-move-left! g%vector-concatenate 9 9  g%vector-reverse! !gdefine-vector-copier! "gdefine #gcopy! $g docstring %g inner-proc &W#$% 'gm-46961e513c-5ea ('T )(UUU *fl-46961e513c-5ef +fl-46961e513c-5f0 ,fl-46961e513c-5f1 -fl-46961e513c-5f2 .*+,- /V&). 0( 1fl-46961e513c-5ec 21 3Ve02 4U/c3 5R"4l 6R4l 7g%copy! 8R74l 9g case-lambda :R94l ;gtarget <R;4l =gtstart >R=4l ?gsource @R?4l A<>@ BR4l Cgquote DRC4l Egtlen FRE4l GR54l HG< IFH Jgslen KRJ4l LG@ MKL NIM OR4l PRS4l Qg>= RRQ4l Sg+ TRS4l UT>K VRFU WRG4l Xfwould write past end of target YRX4l ZY [R 4l \8<>@[K ]\ ^gsstart _R^4l `<>@_ ag- bRa4l cbK_ dT>c eRFd f8<>@_K gf hgsend iRh4l j<>@_i kR4l lbi_ mT>l nRFm o8<>@_i po qgvector-move-right! rglength sgdropC5hhl]4   ./67<5 4?>"G4@i4Ai5B>"GCDEFh -134455@gwho gmsg gargs  gfilenamefsrfi/srfi-43.scm + -  -   - -  -  ,    gnameg error-fromCGR4JKLOQmoqsuvxh0M]CEgdummy  +gk  +gwho   +  + C{|h(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-43.scm 0   " g macro-typeg syntax-rulesgpatternsgkgwhoC5KR4J}LOQh M]CEgdummy  gf  gwho      C{|h(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-43.scm 5   " g macro-typeg syntax-rulesgpatternsgfgwhoC5}R4JLOQh M]CEgdummy  gv  gwho      C{|h(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-43.scm 9   " g macro-typeg syntax-rulesgpatternsgvgwhoC5R4JLOh0^]CVgdummy  *gi  *glen   *gwho   *  * C{|h(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-43.scm =   " g macro-typeg syntax-rulesgpatternsgiglengwhoC5R4JLOh0b]CZgdummy  *gstart  *glen   *gwho   *  * C{|h(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-43.scm B   " g macro-typeg syntax-rulesgpatternsgstartglengwhoC5R4JLOh8s]Ckgdummy  5gstart  5gend   5glen   5gwho   5  5 C{|h(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-43.scm G   " g macro-typeg syntax-rulesgpatternsgstartgendglengwhoC5R4JLOQ   h@N]CFgdummy  :gvs  :gwho   :  : C{|h(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-43.scm M   " g macro-typeg syntax-rulesgpatternsgvsgwhoC5R5h@]"#(C4455"45"gvs  <gvs  )gresult   )gfilenamefsrfi/srfi-43.scm U  V  X   Z   Z   Z #  Z 2  Z # ! Z  ) Z  ) V  , V  - W  2 W $ 4 W  < V   < gnameg min-lengthCRh8]" (6""gvs  1gi  1gvs   &gxs   &gfilenamefsrfi/srfi-43.scm ]  ^  _   `   a   a )  a   a  & a  & ^  ) ^  1 ^   1 gnameg vectors-refCRGwp0h8]L$C4L> GL"gi  5gseed  5gx   5gseed   5gfilenamefsrfi/srfi-43.scm {   |  |  }   } ( ~ +   5    5 gnamegloopCh@]L$C4L> GL"gi  =gseed1  =gseed2   =gx   =gseed1   =gseed2   =gfilenamefsrfi/srfi-43.scm     $  , /  =   = gnamegloopCh8]L$C4L> GL"gi  7gseeds  7gx   7gseeds   7gfilenamefsrfi/srfi-43.scm      * -  7   7 gnamegloopC hs)345$"4>"G"4>"*G"#45$ $""""45""$"45" "C)345$"4>"G"4>"*G"#45$ $""""45OQ4 >"GC)345$"4>"G"4>"*G"#45$ $""""45 OQ4 >"GC-1345$"4>"G"4>"*G"#45$ $""""45 OQ4 >"GCkgf glen gv  v gi  | gf Oglen Ogseed  Ogv   Ogloop  + Lgf X glen X gseed1  X gseed2  X gv   gloop   gf  glen  gseeds   gv  n gloop  { gfilenamefsrfi/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      gnameg 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.CRGwp0h8] $C4L> GL"gi  4gseed  4gx   4gseed   4gfilenamefsrfi/srfi-43.scm      ' *  4   4 gnamegloopCh@] $C4L> GL"gi  <gseed1  <gseed2   <gx   <gseed1   <gseed2   <gfilenamefsrfi/srfi-43.scm    $  + .  <   < gnamegloopCh8] $C4L> GL"gi  6gseeds  6gx   6gseeds   6gfilenamefsrfi/srfi-43.scm     ) ,  6   6 gnamegloopC h)345$"4>"G"4>"*G"#45$ $""""45"! $"45""C)345$"4>"G"4>"*G"#45$ $""""45OQ4>"GC)345$"4>"G"4>"*G"#45$ $""""45 OQ4>"GC-1345$"4>"G"4>"*G"#45$ $""""45 OQ4>"GCgf glen gv  v gi  | gf Oglen Ogseed  Ogv   Ogloop  + Lgf X glen X gseed1  X gseed2  X gv   gloop   gf  glen  gseeds   gv  m gloop  y gfilenamefsrfi/srfi-43.scm       3  7 & 9  p  v  |              &      +  :  A  X  Y  l  n     &                     *  . & 0  g  m  y     8  O  X      gnamegvector-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) 36)3$"4>"G45"4>";G"445$% $$""""""454  >"GC-.,3#$"4>"G45"4 >"NG"G45$845$% $$""""""""454 4 5 >"GCgv gv  gstart  glen  @ gresult  gv gstart gend  gfill  glen  gresult  n  gfilenamefsrfi/srfi-43.scm        (  *  :  @  G  K $ M   !               !       &  '  1  5  9  >  c  j ! n  n  q  x #  *       gnameg 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.C8R0hPe]#45"%$"$" "C]gvec  Jgstart  Jgend   Jglen   Jgresult   Jgi   ;gj   ;gfilenamefsrfi/srfi-43.scm              , " - 0  3  ; ;  ?  G   J gnameg%vector-reverse-copyCG5phx )23$"4>"GL 456)3$"4>"G45"4>";G"445$% $$""""""L6] $"4>"G45"4>"_G"X45$I45$6 $&$$""""""""""L6gvec 8gvec A gstart A glen  i gvec ugstart ugend  uglen  ugfilenamefsrfi/srfi-43.scm       0 # 8  A  D  Q  S  c  i  p  t  ' v                +  u   8  A  u g documentationf1(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).COR50h]1""("!45" "45"G("H454 >"G" "Cgvs  gvs  (glen   (g result-len 3 gresult  < gvs  B gpos  B gv  O glen  X  gfilenamefsrfi/srfi-43.scm         !   1   @   1  * (   (   3   6   <   B   H   O   O   R   X   [  v   {       gnameg%vector-concatenateCRG50 h0)3C)*3$"4>"G6)3$"4>"G$"4>"G4545454  >"G4 >"GC-13"6("4$"4>"G""6gv  =gv1 F gv2 F glen1  glen2  gresult  gvs +gvs gfilenamefsrfi/srfi-43.scm           &   (   =   F   I !  V !  X !  j "  w "  y "  #  $  #  %  % " %  %  & '   *   *   *  + +    =  F  + gnameg vector-appendg documentationf(vector-append vec ...) -> vector Return a newly allocated vector that contains all elements in order from the subsequent locations in VEC ...CRGhPJ] "6("4$"4>"G""6Bgvs  Jgvs  <gfilenamefsrfi/srfi-43.scm -  2  ! 2  # 2  J 3   J gnamegvector-concatenateg documentationf(vector-concatenate list-of-vectors) -> vector Append each vector in LIST-OF-VECTORS. Equivalent to: (apply vector-append LIST-OF-VECTORS)CRG5h0]$"4>"G45 Cgvec  -gfilenamefsrfi/srfi-43.scm 5  9   9   9  $ : + :   - gnameg vector-empty?g documentationfd(vector-empty? vec) -> boolean Return true if VEC is empty, i.e. its length is 0, and false if not.CR5h(](C45$ "Cglen  (gvs  (gfilenamefsrfi/srfi-43.scm >   ?  ? @   @ %  @   @   @  A # & A   ( gnamegall-of-length?COhP-] $C&" 45$"C%gi  Pgelt=?  Pgv1   Pgv2   Pgt   Pgx1   Pgx2   Pgfilenamefsrfi/srfi-43.scm B   C  C   D   E   D ' F  ( F  - F ! 9 F < G  N G   P gnameg=up-to?COQQG5h)*345$"4>"GC)K345$"4>"G$"4>"GC)345$"4>"G$"4>"G$"4>"G4545$ L6C-1345$"4>"G$"4>"G"6("4$"4>"G""454L5$2"&(C4L5$ "C"Cgelt=? 0gelt=? 9 gv 9 gelt=? gv1 gv2  glen  gelt=?  gv1  gvs   gvs  j glen   gvs    gfilenamefsrfi/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 documentationfu(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.CORG5 h)345$"4>"G$"4>"G45"%$C45" ")345$"4>"G$"4>"G$"4>"G445455"*$C45" "-1345$"4>"G"6("4$"4>"G""45")$C44 5?" "gkcons gknil gv  glen  V gi  \ gstate  \ gkcons Jgknil Jgv1  Jgv2  Jglen   Jgi   ?gstate   ?gkcons S gknil S gvs  S gvs  | glen   gi   gstate   gfilenamefsrfi/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   gnameg 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 hg)345$"4>"G$"4>"G45"$ $C45"")345$"4>"G$"4>"G$"4>"G445455") $C45""-1345$"4>"G"6("4$"4>"G""45"( $C44 5?""_gkcons gknil gv  glen  V gi  \ gstate  \ gkcons Lgknil Lgv1  Lgv2  Lglen   Lgi   ?gstate   ?gkcons U gknil U gvs  U gvs  ~ glen   gi   gstate   gfilenamefsrfi/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   gnamegvector-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 ~)345$"4>"G$"4>"G4545"'$"!45" "C)345$"4>"G$"4>"G$"4>"G44545545",$"&45" "C-1345$"4>"G"6("4$"4>"G""4 545"+$"%44 5?" "Cvgf gv glen  V gresult  _ gi  e gf ^gv1 ^gv2  ^glen   ^gresult  " ^gi  ( Tgf g gvs g gvs   glen   gresult   gi   gfilenamefsrfi/srfi-43.scm           1   >   @   P   V   Y   _   e   j   n  w  !  &  !                                   )          "   (   -   1  :  ! C  & H  8 J  ! K  N   T  T   g   h   {   }                                  !   ,   !          G  ^  g  gnameg 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)345$"4>"G$"4>"G45"%$C45" ")345$"4>"G$"4>"G$"4>"G445455"*$C45" "-1345$"4>"G"6("4$"4>"G""45")$C44 5?" "gf gv glen  V gi  \ gf Bgv1 Bgv2  Bglen   Bgi   ;gf K gvs K gvs  t glen   gv1   gi   gfilenamefsrfi/srfi-43.scm           1   >   @   P   V   \   a   e  l   u  ! w   x  {                                (               !   *  " /  4 1   2  5   ;  ;   K   L   _   a   t                               (             B  B  K  gnameg 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)345$"4>"G$"4>"G45"+$C4>"G" ")345$"4>"G$"4>"G$"4>"G445455"0$C4>"G" "-1345$"4>"G"6("4$"4>"G""45"1$C4 4 5>"G" "gf gv glen  V gi  \ gf Ngv1 Ngv2  Nglen   Ngi   Ggf W gvs W gvs   glen   gi   gfilenamefsrfi/srfi-43.scm           1   >   @   P   V   \   a   e  h  q   v                                                 #  ,   1  " 6  A   G  G   W   X   k   m                                        >  N  W  gnamegvector-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 h0V)345$"4>"G$"4>"G45"7$C45$"" ")345$"4>"G$"4>"G$"4>"G445455"<$C45$"" "-1345$"4>"G"6("4$"4>"G""45";$C44 5?$"" "Ngpred? gv glen  V gi  \ gcount  \ gpred? lgv1 lgv2  lglen   lgi  & bgcount  & bgpred? u .gvs u .gvs   glen   .gi   $gcount   $gfilenamefsrfi/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 . gnameg 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)345$"4>"G$"4>"G45"%$45$C"C ")345$"4>"G$"4>"G$"4>"G445455"*$45$C"C "-1345$"4>"G"6("4$"4>"G""45")$44 5?$C"C "gpred? gv glen  V gi  \ gpred? Bgv1 Bgv2  Bglen   Bgi   ;gpred? K gvs K gvs  t glen   gi   gfilenamefsrfi/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  gnameg 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@)345$"4>"G$"4>"G45"$ $45$C"C")345$"4>"G$"4>"G$"4>"G445455") $45$C"C"-1345$"4>"G"6("4$"4>"G""45"( $44 5?$C"C"8gpred? gv glen  V gi  \ gpred? Dgv1 Dgv2  Dglen   Dgi   ;gpred? M gvs M gvs  v glen   gi   gfilenamefsrfi/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  gnamegvector-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)345$"4>"G$"4>"G45"%$45$ "CC ")345$"4>"G$"4>"G$"4>"G445455"*$45$ "CC "-1345$"4>"G"6("4$"4>"G""45")$44 5?$ "CC "gpred? gv glen  V gi  \ gpred? Bgv1 Bgv2  Bglen   Bgi   ;gpred? K gvs K gvs  t glen   gi   gfilenamefsrfi/srfi-43.scm           1   >   @   P   V   \   a   e  f   m   o   s   v   |                                                 "   '   )   -   0   6   ;   K   L   _   a   t                                           A  B  K  gnameg 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 hE)345$"4>"G$"4>"G45"$ $C45$ "C")345$"4>"G$"4>"G$"4>"G445455") $C45$ "C"-1345$"4>"G"6("4$"4>"G""45"( $C44 5?$ "C"=gpred? gv glen  V gi  \ gpred? Dgv1 Dgv2  Dglen   Dgi   ;gpred? M gvs M gvs  v glen   gi   gfilenamefsrfi/srfi-43.scm           1   >   @   P   V   \   _   d  g   n   p   t   w   }                                                     $   )   +   /   2   8   ;   >   D   M   N   a   c   v                                                 G  D  M  gnamegvector-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$Rhp]-"]$R 45  $C $ " $ "CC"gvec  ogvalue  ogcmp   ogstart   ogend   oglo   cghi   cgi   agx   agc ) a gfilenamefsrfi/srfi-43.scm            !           !   )  .   3   9   >   J  $ M   R   U  * _  $ c    o gnameg%vector-binary-searchCG%5p h)[3$"4>"G45$"4>"GL 456)3$"4>"G45"4>";G"445$% $$""""""L6] $"4>"G45"4 >"_G"X45$I45$6 $&$$""""""""""L6gvec agvalue agcmp  agvec j gvalue j gcmp  j gstart  j glen  gvec gvalue gcmp  gstart  gend  glen   gfilenamefsrfi/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.CO%RG&5 hP)345$"4>"G$"4>"G45")$45$C"C ")345$"4>"G$"4>"G$"4>"G445455".$#45$C"C "-1345$"4>"G"6("4$"4>"G""45"-$"44 5?$C"C "Hgpred? gv glen  V gi  \ gt  o gpred? Jgv1 Jgv2  Jglen   Jgi   Cgt  - Agpred? S gvs S gvs  | glen   gi   gt   gfilenamefsrfi/srfi-43.scm           1   >   @   P   V   \   a   e  f   m   o   o   }                                                    &   + !  -   -   ; "  A "  C   S   T $  g $  i $  | %   %   %   &   &   '   (   (  )   )   )   )   *   *   ' A  J  S  gnameg vector-anyg documentationf2(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)345$"4>"G$"4>"G45 $C"045$ "$C" ")345$"4>"G$"4>"G$"4>"G445455 $C"545$ "$C" "-1345$"4>"G"6("4$"4>"G""45 $C"444 5?$ "$C" "egpred? gv glen  V gt  \ gi  k gval  x gnext-i  x gpred? vgv1 vgv2  vglen  % vgt  + vgi  : ogval  L ognext-i  L ogpred?  =gvs  =gvs   glen   =gt   =gi   6gval   6gnext-i   6gfilenamefsrfi/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   = gnameg 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(5ph]$"4>"G45"4>";G"445$% $$"""""""4>";G"445$% $$""""""Cgvec  gi  gj   glen  * gtmp  gfilenamefsrfi/srfi-43.scm Z  ^   ^   ^  $ _ * _  1 `  5 `  7 `  a  a  a  b  b  c  c  d   gnameg vector-swap!g documentationfZ(vector-swap! vec i j) -> unspecified Swap the values of the locations in VEC at I and J.C(RHh0] "$"C"gvec  )gfill  )gstart   )gend   )gi   !gfilenamefsrfi/srfi-43.scm k   l  m   m   n  o   o ! l   ) gnameg %vector-fill!CKG95phX) 3M6)3$"4>"G45"4>";G"445$% $$""""""L6] $"4>"G45"4>"_G"X45$I45$6 $&$$""""""""""L6gvec gfill gvec  gfill  gstart   glen  B gvec Rgfill Rgstart  Rgend  Rglen  R gfilenamefsrfi/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.CO9RhHC]"1$&"C";gvec  Dgstart  Dgend   Dgi   7gj   7gtmp   5gfilenamefsrfi/srfi-43.scm                    '   *   -   5   7   <   D    D gnameg%vector-reverse!C RG) 5p hx)23$"4>"G 456)3$"4>"G45"4>";G"445$% $$""""""6] $"4>"G45"4>"_G"X45$I45$6 $&$$""""""""""6gvec 8gvec A gstart A glen  i gvec ugstart ugend  uglen  ugfilenamefsrfi/srfi-43.scm           0   8   A   D   Q   S   c   i   p   t  % v                    )   u   8  A  u gnamegvector-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]`_Kegjkinph8t]                Clgdummy  1gcopy!  1g docstring   1g inner-proc   1  1 C{|h(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-43.scm    " g macro-typeg syntax-rulesgpatternsgcopy!g docstringg inner-procC5!RG*5pXq h)3$"4>"G$"4>"G4545"4>";G"445$% $$""""""$"4>"G $  6  6)G3$"4>"G$"4>"G4545"4>";G"445$% $$"""""""4>";G"445$% $$""""""$"4>"G$6 6]$"4>"G$"4>"G4545"4>";G"445$% $$"""""""4 >"_G"X45$I45$6 $&$$""""""""""$"4>"G$6 6gtarget gtstart gsource  gtlen  Y gslen  Y gtarget Bgtstart Bgsource  Bgsstart  Bgtlen  N Bgslen  N Bgtarget D gtstart D gsource  D gsstart  D gsend  D gtlen   gslen   gfilenamefsrfi/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""Wgtarget  ]gtstart  ]gsource   ]gsstart   ]gsend   ]gi  -gj  -gfilenamefsrfi/srfi-43.scm            "     #   +  -   2  ! :   :   G  ! K   U    ] gnameg%copy!CG+5pX hp>)3$"4>"G$"4>"G4545"4>";G"445$% $$""""""$"4>"GL 6)03$"4>"G$"4>"G4545"4>";G"445$% $$"""""""4>";G"445$% $$""""""$"4>"GL6]$"4>"G$"4>"G4545"4>";G"445$% $$"""""""4>"_G"X45$I45$6 $&$$""""""""""$"4>"GL66gtarget gtstart gsource  gtlen  Y gslen  Y gtarget gtstart gsource  gsstart  gtlen  9 gslen  9 gtarget  kgtstart  kgsource   kgsstart   kgsend   kgtlen  h kgslen  h kgfilenamefsrfi/srfi-43.scm       k g documentationfX(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.CO+Rh8]"$C""gvec  1gstart  1gend   1gi   %gresult   %gfilenamefsrfi/srfi-43.scm                  %  %   (   )   1    1 gnameg %vector->listCG;5phx)23$"4>"GL 456)3$"4>"G45"4>";G"445$% $$""""""L6] $"4>"G45"4>"_G"X45$I45$6 $&$$""""""""""L6gvec 8gvec A gstart A glen  i gvec ugstart ugend  uglen  ugfilenamefsrfi/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.CO;Rh0]"$C""gvec  0gstart  0gend   0gi   %gresult   %gfilenamefsrfi/srfi-43.scm                  %  %   (   0    0 gnameg%reverse-vector->listCG,5phx)23$"4>"GL 456)3$"4>"G45"4>";G"445$% $$""""""L6] $"4>"G45"4>"_G"X45$I45$6 $&$$""""""""""L6gvec 8gvec A gstart A glen  i gvec ugstart ugend  uglen  ugfilenamefsrfi/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.CO,Rr0shpZ-.,3# # 4545""$C" 45"Rglst lgstart lgend  lglen  ) lgresult  2 lgi  8 Zglst  8 Zgfilenamefsrfi/srfi-43.scm    5 )   )   ,   2   8 !  = " A "  K $ ' L $  O %  R %  Z %  Z !  \ !  l !  l gnameg 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:Rr0shp-.,3# # 4545"! $C"45"}glst mgstart mgend  mglen  ) mgresult  2 mgi  8 Yglst  8 Ygfilenamefsrfi/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 gnamegreverse-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-RCdgm  4g%vector-reverse-copy /7 3gall-of-length? @K GSg=up-to? @K GSg%vector-binary-search cgguile-vector-fill! [g %vector-fill! Xg%copy! !g %vector->list \ҧg%reverse-vector->list h gfilenamefsrfi/srfi-43.scm   5 ) : )  B ) & G ) D + U  ]  d & & -k 3 6  :  "Gh-13@~gmessage gargs gfilenamefsrfi/srfi-28.scm      gnamegformatC Ri4i56ngm  (gfilenamefsrfi/srfi-28.scm    !  ! & !   C6srfi-41.go000064400000304156151027761750006304 0ustar00GOOF----LE-8-2.0V]4hE] gguile  gdefine-module*   gsrfi gsrfi-41  gfilenameS fsrfi/srfi-41.scm gimportsS gsrfi-1     gsrfi-8   gsrfi-9   ggnu   gsrfi-26   gice-9 gmatch    gexportsS !g stream-null "g stream-cons #gstream? $g stream-null? %g stream-pair? &g stream-car 'g stream-cdr (g stream-lambda )g define-stream *g list->stream +g port->stream ,gstream -g stream->list .g stream-append /g stream-concat 0gstream-constant 1g stream-drop 2gstream-drop-while 3g stream-filter 4g stream-fold 5gstream-for-each 6g stream-from 7gstream-iterate 8g stream-length 9g stream-let :g stream-map ;g stream-match g stream-ref ?gstream-reverse @g stream-scan Ag stream-take Bgstream-take-while Cg stream-unfold Dgstream-unfolds Eg stream-zip F!"#$%&'()*+,-./0123456789:;<=>?@ABCDE% Ggset-current-module HG IG Jgcond-expand-provide Kgcurrent-module L Mgmake-syntax-transformer NM OM Pgmust Qgmacro Rg $sc-dispatch SR TR Ugany Vgeach-any WUV XUW YUX ZUY [UZ \g syntax-object ]glet ^gtop _^ `gribcage agdummy bgpred cgobj dgfunc egmsg fgargs gabcdef hgm-46961e513a-1 ih^ ji_____ kfl-46961e513a-6 lfl-46961e513a-7 mfl-46961e513a-8 nfl-46961e513a-9 ofl-46961e513a-a pfl-46961e513a-b qklmnop r`gjq s` tgx ut vi wfl-46961e513a-3 xw y`uvx z_rsy {ghygiene |{ }\]z| ~gitem \~z| gunless \z|  gthrow \z| gquote \z| gwrong-type-arg \z|  glist \z|   gsyntax-violation   f-source expression failed to match any pattern gmust-not gm-46961e513a-14 ^ _____ fl-46961e513a-19 fl-46961e513a-1a fl-46961e513a-1b fl-46961e513a-1c fl-46961e513a-1d fl-46961e513a-1e  `g  fl-46961e513a-16  `u _s \]| \~| gwhen \|  \| \| \|  \|   g must-every gobjs abdef gm-46961e513a-27 ^ _____ fl-46961e513a-2c fl-46961e513a-2d fl-46961e513a-2e fl-46961e513a-2f fl-46961e513a-30 fl-46961e513a-31  `  fl-46961e513a-29  `u _s \]| gflunk \| gremove \| \| gnull? \|  \| \| \|  \|  g first-value UU greceive gexpr a gm-46961e513a-3a ^ _ fl-46961e513a-3f fl-46961e513a-40  `  fl-46961e513a-3c  `u _s \| gfirst \| g_ \| 挤  g second-value gm-46961e513a-44 ^ _ fl-46961e513a-49 fl-46961e513a-4a  `  fl-46961e513a-46  `u _s \| \| gsecond \| \|    g third-value gm-46961e513a-4e ^ _ fl-46961e513a-53 fl-46961e513a-54  `  fl-46961e513a-50   `u  _s   \ |  \ |  \ | gthird \ | \ |       gdefine-syntax* UU V U g define-syntax gname gbody af gm-46961e513a-57 ^ ___  fl-46961e513a-5c !fl-46961e513a-5d "fl-46961e513a-5e #fl-46961e513a-5f $ !"# %`$ & 'fl-46961e513a-59 (' )`u&( *_%s) +\*| ,glambda* -\,*| .UUU /gsyntax 0a/ 1__ 2fl-46961e513a-66 3fl-46961e513a-67 4fl-46961e513a-68 5234 6`015 7_6s) 8\7| 9gstream-promise :g%make-stream-promise-procedure ;gmake-stream-promise <U =glambda >gm-46961e513a-70 ?>^ @gt-46961e513a-6f A@ B? Cfl-46961e513a-75 DC E`ABD Ffl-46961e513a-72 GF H`uBG Igshift Jg proc-name KJf L__ Mfl-1e8ba8b5a-2ba Nfl-1e8ba8b5a-2bb OMN P`KLO Qgkey Rgvalue Sgformals TQRS U_____ Vfl-1e8ba8b5a-2ad Wfl-1e8ba8b5a-2ae Xfl-1e8ba8b5a-2af Yfl-1e8ba8b5a-2b0 Zfl-1e8ba8b5a-2b1 [VWXYZ \`TU[ ]gmake-procedure-name ^] __ `fl-1e8ba8b5a-29d a` b`^_a c_ dfl-1e8ba8b5a-29c ed f`uce g?EsHIssssP\bf  h{ i\=gh jgval k_EsH l\jk| ml ng make-struct ogm-46961e513a-6d po^ qgt-1e8ba8b5a-38d rgt-1e8ba8b5a-38c sgt-1e8ba8b5a-38b tqrs ugm-1e8ba8b5a-38e vu^ wvvv xfl-1e8ba8b5a-392 yfl-1e8ba8b5a-393 zfl-1e8ba8b5a-394 {xyz |`tw{ }g ctor-args ~} fl-1e8ba8b5a-37a  `~c 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  ` 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  ` fl-1e8ba8b5a-334  `uc pEsHIs|ssss \nh \9k| \ h l im V   fWrong number of arguments g identifier?   _sH \:| grecord-type-vtable   gpw gdefault-record-printer   j gset-struct-vtable-name!   gvtable-offset-user   g%stream-promise?-procedure gstream-promise? gm-46961e513a-7d ^ gt-46961e513a-7c   fl-46961e513a-82  ` fl-46961e513a-7f  `u sIssssP\bf  \=h 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  ` g copier-id  fl-1e8ba8b5a-476  `c g ctor-name  fl-1e8ba8b5a-46e  `c  fl-1e8ba8b5a-46c  `c glayout  fl-1e8ba8b5a-46a  `c g immutable?  fl-1e8ba8b5a-468  `c g field-count  fl-1e8ba8b5a-466  `c  g getter-ids     fl-1e8ba8b5a-463     ` c  g field-ids  fl-1e8ba8b5a-460  `c gpredicate-name g field-spec  ______ fl-1e8ba8b5a-453 fl-1e8ba8b5a-454 fl-1e8ba8b5a-455 fl-1e8ba8b5a-456 fl-1e8ba8b5a-457 fl-1e8ba8b5a-458  ` psIsssssssssss s  \ch !  "gand #\"h $gstruct? %\$h &%  'geq? (\'h )g struct-vtable *\)h +*  ,_s -\9,| .(+- /#&. 0!/ 1_s 2\1| 3gthrow-bad-struct 43 53 6gstream-promise-val 7g%stream-promise-val-procedure 8gfree-id 9g %%on-error :gm-46961e513a-89 ;:^ <; =fl-46961e513a-8b >= ?`u<> @;s?IssssP\bf  A\9@h B8A CBU 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 NM^ ONNNNNNN Pfl-1e8ba8b5a-3b0 Qfl-1e8ba8b5a-3b1 Rfl-1e8ba8b5a-3b2 Sfl-1e8ba8b5a-3b3 Tfl-1e8ba8b5a-3b4 Ufl-1e8ba8b5a-3b5 Vfl-1e8ba8b5a-3b6 WPQRSTUV X`LOW Yggetter Zgindex [YZ \fl-1e8ba8b5a-3a3 ]fl-1e8ba8b5a-3a4 ^\] _`[L^ `  a___ bfl-1e8ba8b5a-39e cfl-1e8ba8b5a-39f dfl-1e8ba8b5a-3a0 ebcd f``ae gps?IsXsss_sf h\Dgh i8h jCiU kgck lgerr mgs nlm o;; pfl-46961e513a-8e qfl-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 fl-46961e513a-93 fl-46961e513a-94  `no ;s?IssssP\bf  \kh \h s? \ |   g%%copier \gh 8 CU fl-46961e513a-98 fl-46961e513a-99  `no ;s?IssssP\bf  \kh \h g%%stream-promise-set-fields _s? \|   gt-46961e513a-88  fl-46961e513a-9d  `< ;s?IssssP\bf  \=h ps?IsXsss_sf \mh  gif \h \'h \)h  _s? \9|  g struct-ref \h s? \ |  \3h \h \6|     _s? \7| geach  U U U g %%set-fields gcheck? amY gm-46961e513a-a4 ^ pppp fl-46961e513a-a9 fl-46961e513a-aa fl-46961e513a-ab fl-46961e513a-ac fl-46961e513a-ad  `  fl-46961e513a-a6  `u gt-1e8ba8b5a-3c4 gt-1e8ba8b5a-3c6 gt-1e8ba8b5a-3c5  gm-1e8ba8b5a-3c7 ^  fl-1e8ba8b5a-3cb fl-1e8ba8b5a-3cc fl-1e8ba8b5a-3cd  ` fl-1e8ba8b5a-3c1 fl-1e8ba8b5a-3c2 fl-1e8ba8b5a-3c3  ``a psIssss  \h _s \9| \6|  gmap   gstream-promise-val-set! g"%stream-promise-val-set!-procedure UU gm-46961e513a-b8 ^ gt-46961e513a-b6 gt-46961e513a-b7   fl-46961e513a-bd fl-46961e513a-be  `  fl-46961e513a-ba  `u sIssssP\bf  \=h gt-1e8ba8b5a-3e6 gt-1e8ba8b5a-3e7  gm-1e8ba8b5a-3e8 ^  fl-1e8ba8b5a-3ec fl-1e8ba8b5a-3ed  ` gsetter Y  fl-1e8ba8b5a-3e0  fl-1e8ba8b5a-3e1  fl-1e8ba8b5a-3e2       `a  Z fl-1e8ba8b5a-3d7 fl-1e8ba8b5a-3d8  `L g field-specs  fl-1e8ba8b5a-3d3 fl-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 4gmake-stream-value 5gm-46961e513a-d9 65^ 7gt-46961e513a-d7 8gt-46961e513a-d8 978 :66 ;fl-46961e513a-de `9:= ?6 @fl-46961e513a-db A@ B`u?A C6>sBIssssP\bf  D\=Ch Egtag F_>sB G\EF| Hgproc I\HF| JGI Kgm-46961e513a-d5 LK^ ML>sBIs|ssss N\nMh O\2F| P\ Mh QNOPGI RDJQ S_sB T\3S| Ugpwpw VEH Wg%stream-value?-procedure Xg stream-value? Ygm-46961e513a-e8 ZY^ [gt-46961e513a-e7 \[ ]Z ^fl-46961e513a-ed _^ ``\]_ afl-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| vgstream-value-tag wg%stream-value-tag-procedure xgm-46961e513a-f4 yx^ zy {fl-46961e513a-f6 |{ }`uz| ~ys}IssssP\bf  \9~h 8 U Ls}IsXsss_sf \Dh 8 U yy fl-46961e513a-f9 fl-46961e513a-fa  `n ys}IssssP\bf  \kh \h _s} \2|   \{h 8 U fl-46961e513a-fe fl-46961e513a-ff  `n ys}IssssP\bf  \kh \h s} \ |   \h 8 U fl-46961e513a-103 fl-46961e513a-104  `n ys}IssssP\bf  \kh \h g%%stream-value-set-fields _s} \|   gt-46961e513a-f3  fl-46961e513a-108  `z ys}IssssP\bf  \=h Ls}IsXsss_sf \mh  \h \'h \)h  _s} \2|  \h s} \ |  \3h \h \v|     _s} \w| gstream-value-proc g%stream-value-proc-procedure gm-46961e513a-10f ^  fl-46961e513a-111  `u sIssssP\bf  \9h 8 U LsIsXsss_sf \Dh 8 U  fl-46961e513a-114 fl-46961e513a-115  `n sIssssP\bf  \kh \h _s \2|   \{h 8 U fl-46961e513a-119 fl-46961e513a-11a  `n sIssssP\bf  \kh \h s \ |   \h 8 U fl-46961e513a-11e fl-46961e513a-11f  `n sIssssP\bf  \kh \h _s \|   gt-46961e513a-10e  fl-46961e513a-123   `   sIssssP\bf   \= h  L sIsXsss_sf  \m h   \ h \' h \) h   _ s \2|  \ h  s \ |   \3 h \ h \|        !_s "\!| #gm-46961e513a-12a $#^ %$LLLL &fl-46961e513a-12f 'fl-46961e513a-130 (fl-46961e513a-131 )fl-46961e513a-132 *fl-46961e513a-133 +&'()* ,`%+ -$ .fl-46961e513a-12c /. 0`u-/ 1L,s0Issss  2\1h 3_,s0 4\23| 5\v3| 6\3| 756 8gstream-value-tag-set! 9g %stream-value-tag-set!-procedure :gm-46961e513a-13e ;:^ <= ?;; @fl-46961e513a-143 Afl-46961e513a-144 B@A C`>?B D; Efl-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`| bgstream-value-proc-set! cg!%stream-value-proc-set!-procedure dgm-46961e513a-14e ed^ fgt-46961e513a-14c ggt-46961e513a-14d hfg iee jfl-46961e513a-153 kfl-46961e513a-154 ljk m`hil ne ofl-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 gexp a gm-46961e513a-173 ^ _ fl-46961e513a-178 fl-46961e513a-179  `  fl-46961e513a-175  `u _s \;| \4| \| glazy \|  \=| geager g stream-eager g stream-delay gm-46961e513a-187 ^ _ fl-46961e513a-18c fl-46961e513a-18d  `  fl-46961e513a-189  `u _s \| \| g stream-force gnull g %stream-null g stream-pare g%make-stream-pare-procedure gmake-stream-pare gm-46961e513a-1d9 ^ gt-46961e513a-1d7 gt-46961e513a-1d8   fl-46961e513a-1de fl-46961e513a-1df  `  fl-46961e513a-1db  `u sIssssP\bf  \=h gkar _s \| gkdr \|  gm-46961e513a-1d5 ^ sIs|ssss \nh \| \ h   _s \|  g%stream-pare?-procedure g stream-pare? gm-46961e513a-1e8 ^ gt-46961e513a-1e7   fl-46961e513a-1ed  ` fl-46961e513a-1ea  `u sIssssP\bf  \=h sIsssssssssss s \ch  \"h \$h  \'h \)h  _s \|    _s \| g stream-kar g%stream-kar-procedure gm-46961e513a-1f4 ^  fl-46961e513a-1f6  `u sIssssP\bf  \9h 8 U sIsXsss_sf \Dh 8 U    fl-46961e513a-1f9  fl-46961e513a-1fa      `n    sIssssP\bf  \kh \h _ s \|   \{h 8 U fl-46961e513a-1fe fl-46961e513a-1ff  `n  sIssssP\bf  \kh \h s  \ | !  "! #\h $8# %$U &fl-46961e513a-203 'fl-46961e513a-204 (&' )`n ( *)sIssssP\bf  +\k*h ,\*h -g%%stream-pare-set-fields ._)s /\-.| 0,/ 10 2gt-46961e513a-1f3 32 4fl-46961e513a-208 54 6`35 76sIssssP\bf  8\=7h 96sIsXsss_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 Rgm-46961e513a-20f SR^ TS Ufl-46961e513a-211 VU W`uTV XSsWIssssP\bf  Y\9Xh Z8Y [ZU \sWIsXsss_sf ]\D\h ^8] _[^U `SS afl-46961e513a-214 bfl-46961e513a-215 cab d`n`c eSdsWIssssP\bf  f\keh g\eh h_dsW i\h| jgi kj l\{\h m8l n[mU ofl-46961e513a-219 pfl-46961e513a-21a qop r`n`q sSrsWIssssP\bf  t\ksh u\sh vrsW w\ v| xuw yx z\\h {8z |[{U }fl-46961e513a-21e ~fl-46961e513a-21f }~ `n` SsWIssssP\bf  \kh \h _sW \-|   gt-46961e513a-20e  fl-46961e513a-223  `T SsWIssssP\bf  \=h sWIsXsss_sf \mh  \h \'h \)h  _sW \|  \h sW \ |  \3h \h \P|     _sW \Q| gm-46961e513a-22a ^  fl-46961e513a-22f fl-46961e513a-230 fl-46961e513a-231 fl-46961e513a-232 fl-46961e513a-233  `  fl-46961e513a-22c  `u sIssss  \h _s \| \| \P|  gstrm ac gm-46961e513a-259 ^ __ fl-46961e513a-25e fl-46961e513a-25f fl-46961e513a-260  `  fl-46961e513a-25b  `u _s \| \| \| \| f non-stream f null stream gbody0 gbody1 aS gm-46961e513a-28d ^ ___ fl-46961e513a-292 fl-46961e513a-293 fl-46961e513a-294 fl-46961e513a-295  `  fl-46961e513a-28f  `u _s \=| \| gbegin \| gon-eagerS   gon-lazyS    gstream-promise-visit gset-record-type-printer! gdisplay f# W U gdefine gformal a gm-46961e513a-2cf ^ ____ fl-46961e513a-2d4 fl-46961e513a-2d5 fl-46961e513a-2d6 fl-46961e513a-2d7 fl-46961e513a-2d8  `  fl-46961e513a-2d1  `u _s \| \(| W U  U  gletrec  gbody2  aEj   gm-46961e513a-2e0  ^ _____ fl-46961e513a-2e5 fl-46961e513a-2e6 fl-46961e513a-2e7 fl-46961e513a-2e8 fl-46961e513a-2e9 fl-46961e513a-2ea  `   fl-46961e513a-2e2  `u _s \ | \(| g proper-list?  gcircular-list? !fnon-list argument "gcurrent-input-port #g input-port? $fnon-input-port argument %g read-char &g eof-object? 'U (a )gm-46961e513a-359 *)^ +* ,fl-46961e513a-35e -, .`(+- /fl-46961e513a-35b 0/ 1`u+0 2_.s1 3\!2| 4gy 5at4 6*__ 7fl-46961e513a-361 8fl-46961e513a-362 9fl-46961e513a-363 :789 ;`56: <_;s1 =\"<| >\,<| ?g% stream-fold-aux-procedure @gstream-fold-aux AUUUU Bgsyntax-parameterize Cgm-46961e513a-36c DC^ Egt-46961e513a-368 Fgt-46961e513a-369 Ggt-46961e513a-36a Hgt-46961e513a-36b IEFGH JDDDD Kfl-46961e513a-371 Lfl-46961e513a-372 Mfl-46961e513a-373 Nfl-46961e513a-374 OKLMN P`IJO QD Rfl-46961e513a-36e SR T`uQS Ufl-bde397a-1eaf Vfl-bde397a-1eb0 WUV X`KLW YS Zfl-bde397a-1ea6 [fl-bde397a-1ea7 \fl-bde397a-1ea8 ]Z[\ ^`Ya] _gprefix `]_ a__ bfl-bde397a-1e9a cfl-bde397a-1e98 dbc e``ad ffl-bde397a-1e97 gf h`ucg iDPsTIssssX^eh  j{ k\Bij l_PsT m\@l| ngidentifier-syntax o\nij p\?l| qop rmq sr t\=ij u\Hl| vgbase w\vl| x\l| yglimit z\yl| {uwxz |gdo }\|l| ~\jl| \"l| \&l| x u~ u ~w \'l| x xx g1- \l| z z zz  gor \l| gzero? \l| z z \$l| x  gvalues \l| ~xz  } t{ ks   _sT \?| fnon-stream argument ginteger? fnon-integer count gexact? f inexact count fnegative count greverse! gxcons f!non-stream object in input stream g circular-list g stream-do U  WV   fl-46961e513a-478  `uc gvar-step gend  fl-46961e513a-475 fl-46961e513a-473  `a fl-46961e513a-472  `uc _s \| \|  gresult  fl-46961e513a-47f  `c _s \| fbad step expression UV gstep  fl-46961e513a-49c fl-46961e513a-49d  `L gvar ginit gtest  fl-46961e513a-48d fl-46961e513a-48e fl-46961e513a-48f fl-46961e513a-490 fl-46961e513a-491 fl-46961e513a-492  ` _s \9| gloop \| \| \| gappend   fnon-integer argument finexact argument fnegative argument g procedure? fnon-procedural argument gapply gnumber? fnon-numeric starting number fnon-numeric step size g? fl-46961e513a-6c1  `uc g make-guarded g make-matcher  fl-46961e513a-6be fl-46961e513a-6bc  `a fl-46961e513a-6bb  `uc _s \| \$|  gnext  fl-46961e513a-6d4  `c grest   fl-46961e513a-6ce  fl-46961e513a-6cf      `L   _s s \ | gnegate \ | \$ |  g= \ | \& | \' |  U  ggenerate-temporaries ' U gguard gfail   fl-46961e513a-6df !fl-46961e513a-6e0 "fl-46961e513a-6e1 # !" $`a# %t &fl-46961e513a-6d8 'fl-46961e513a-6d9 (&' )`%L( *_$s) +\*| ,VV -gmatcher .- /fl-46961e513a-6f5 0fl-46961e513a-6f6 1/0 2`.L1 3 4fl-46961e513a-6f0 54 6`3c5 7g strm-expr 8gpat 978 :fl-46961e513a-6e7 ;fl-46961e513a-6e8 `9a= ?_s2ss6>  @\]?| A\?| B\P?| C\#?| D\?| E\;?| FDE G\?| HBCAFG I\?| Jg=> K\J?| Lg stream-of-aux Ma Ngm-46961e513a-701 ON^ PO__ Qfl-46961e513a-706 Rfl-46961e513a-707 Sfl-46961e513a-708 TQRS U`MPT VO Wfl-46961e513a-703 XW Y`uVX Z_UsY [\LZ| \\!Z| ]av ^gm-46961e513a-70d _^^ `___ afl-46961e513a-712 bfl-46961e513a-713 cfl-46961e513a-714 dabc e`]`d f_ gfl-46961e513a-70f hg i`ufh j_esi k\"j| lgin m_si n\lm| o8n pUoU qpV rUq sUr tUs uav, v______ wfl-46961e513a-719 xfl-46961e513a-71a yfl-46961e513a-71b zfl-46961e513a-71c {fl-46961e513a-71d |fl-46961e513a-71e }wxyz{| ~`uv} _~si \9| grecur \| \| \| \$|  \]| \&|   \L| \'|   gis \m| 8 UU V U U U av fl-46961e513a-727 fl-46961e513a-728 fl-46961e513a-729 fl-46961e513a-72a fl-46961e513a-72b fl-46961e513a-72c  `v _si \]| \L| gpred? av _____ fl-46961e513a-735 fl-46961e513a-736 fl-46961e513a-737 fl-46961e513a-738 fl-46961e513a-739  ` _si \| \L| fnon-numeric ending number g< g> fbeyond end of stream fnon-procedural mapper fnon-procedural pred? fnon-procedural generator g list->vector gerror   fno matching pattern g list-tabulate g vector-lengthC5h]4    F54I>"G4Ji4Ki5L>"G4OPQT[} h0]C}gdummy  0gpred  0gobj   0gfunc   0gmsg   0gargs   0  0 Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-41.scm .   " g macro-typeg syntax-rulesgpatternsgpredgobjgfuncgmsggargsg...C5PR4OQT[ h0]C}gdummy  0gpred  0gobj   0gfunc   0gmsg   0gargs   0  0 Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-41.scm 3   " g macro-typeg syntax-rulesgpatternsgpredgobjgfuncgmsggargsg...C5R4OQT[ h8] C~gdummy  4gpred  4gobjs   4gfunc   4gmsg   4gargs   4  4 Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-41.scm 8   " g macro-typeg syntax-rulesgpatternsgpredgobjsgfuncgmsggargsg...C5R4OQTh?]C7gdummy  gexpr     Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-41.scm =   " g macro-typeg syntax-rulesgpatternsgexprC5R4OQTh?]C7gdummy  gexpr     Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-41.scm A   " g macro-typeg syntax-rulesgpatternsgexprC5R4OQT h?]C7gdummy  gexpr     Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-41.scm E   " g macro-typeg syntax-rulesgpatternsgexprC5R4OQT+-hc]C[gdummy  gname  gargs   gbody      C.8hS]CKgdummy  gname  gsyntax     Ch@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefsrfi/srfi-41.scm J   9 g macro-typeg syntax-rulesgpatternsgnamegargsgbodyg...gnamegsyntaxC5R9h]Cwgval  gfilenamefsrfi/srfi-41.scm q   gnameg%make-stream-promise-procedureC:R4O;QT<h7]C/gt-46961e513a-6f    C;hS]L6Kga  gfilenamefsrfi/srfi-41.scm  q   ChC]L6;gfilenamefsrfi/srfi-41.scm  q    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-41.scm q   n C5;R9¨49>"G Ȗ:i9R9h{]$CCsgobj  gfilenamefsrfi/srfi-41.scm q    gnameg%stream-promise?-procedureCR4OQT<0h7]C/gt-46961e513a-7c    ChS]L6Kga  gfilenamefsrfi/srfi-41.scm  q   ChC]L6;gfilenamefsrfi/srfi-41.scm  q    C2h]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-41.scm q   n C5R956h|]& C6tgs  gfilenamefsrfi/srfi-41.scm q    gnameg%stream-promise-val-procedureC7R4O6QTjuzh:]C2gerr  gs    C~h:]C2gerr  gs    Ch:]C2gerr  gs    C<h7]C/gt-46961e513a-88    C6hS]L6Kga  gfilenamefsrfi/srfi-41.scm  q   ChC]L6;gfilenamefsrfi/srfi-41.scm  q    Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-41.scm q   C56R4OQTh v]45Cngdummy  gcheck?  gs   ggetter   gexpr      Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-41.scm q   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5R95h ]& C6gs  gval  gfilenamefsrfi/srfi-41.scm q    gnameg"%stream-promise-val-set!-procedureCR4OQT/hT]CLgt-46961e513a-b6  gt-46961e513a-b7    ChS]L6Kga  gfilenamefsrfi/srfi-41.scm  q   ChC]L6;gfilenamefsrfi/srfi-41.scm  q    C1h]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-41.scm q   n C5R2h]Cgtag  gproc  gfilenamefsrfi/srfi-41.scm t   gnameg%make-stream-value-procedureC3R4O4QTRhT]CLgt-46961e513a-d7  gt-46961e513a-d8    C4hS]L6Kga  gfilenamefsrfi/srfi-41.scm  t   ChC]L6;gfilenamefsrfi/srfi-41.scm  t    CTh]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-41.scm t   n C54RU2V42>"G Ȗ3i2R2hy]$CCqgobj  gfilenamefsrfi/srfi-41.scm t    gnameg%stream-value?-procedureCWR4OXQT<sh7]C/gt-46961e513a-e7    CXhS]L6Kga  gfilenamefsrfi/srfi-41.scm  t   ChC]L6;gfilenamefsrfi/srfi-41.scm  t    Cuh]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-41.scm t   n C5XR25vhz]& C6rgs  gfilenamefsrfi/srfi-41.scm t    gnameg%stream-value-tag-procedureCwR4OvQTh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    C<h7]C/gt-46961e513a-f3    CvhS]L6Kga  gfilenamefsrfi/srfi-41.scm  t   ChC]L6;gfilenamefsrfi/srfi-41.scm  t    Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-41.scm t   C5vR25h{]& C6sgs  gfilenamefsrfi/srfi-41.scm t    gnameg%stream-value-proc-procedureCR4OQTh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    C< h8]C0gt-46961e513a-10e    ChS]L6Kga  gfilenamefsrfi/srfi-41.scm  t   ChC]L6;gfilenamefsrfi/srfi-41.scm  t    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  gfilenamefsrfi/srfi-41.scm t   C5R4OQT247h v]45Cngdummy  gcheck?  gs   ggetter   gexpr      Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-41.scm t   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5R258h ]& C6gs  gval  gfilenamefsrfi/srfi-41.scm t    gnameg %stream-value-tag-set!-procedureC9R4O8QT_hV]CNgt-46961e513a-13c  gt-46961e513a-13d    C8hS]L6Kga  gfilenamefsrfi/srfi-41.scm  t   ChC]L6;gfilenamefsrfi/srfi-41.scm  t    Cah]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-41.scm t   n C58R25bh ]& C6gs  gval  gfilenamefsrfi/srfi-41.scm t    gnameg!%stream-value-proc-set!-procedureCcR4ObQThV]CNgt-46961e513a-14c  gt-46961e513a-14d    CbhS]L6Kga  gfilenamefsrfi/srfi-41.scm  t   ChC]L6;gfilenamefsrfi/srfi-41.scm  t    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-41.scm t   n C5bR4OQTh>]C6gdummy  gexp     Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-41.scm x   " g macro-typeg syntax-rulesgpatternsgexpC5R29h] Cgx  gval gfilenamefsrfi/srfi-41.scm {  | * |  |    gnameg stream-eagerCR4OQTh>]C6gdummy  gexp     Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-41.scm ~   " g macro-typeg syntax-rulesgpatternsgexpC5R9562v8b h])& " 45& " 45$& C6$Y4& " 455& " 45& " 45&"& " 45& " 45&  "4 >"G& " 45& " 45&  "4 >"G&  "4 >"G 6Cgpromise  gcontent  gkey  8 gpromise*   gcontent  gs  gval  'gs  A `gval  `  gfilenamefsrfi/srfi-41.scm     ! 8  F  b  c    ;  E 3  * G A 4 `        gnameg stream-forceCRi#R,R4ii5!R9h(]$& 45CCCgobj  !gfilenamefsrfi/srfi-41.scm         ! gnameg stream-null?C$Rh]Cgkar  gkdr  gfilenamefsrfi/srfi-41.scm   gnameg%make-stream-pare-procedureCR4OQThV]CNgt-46961e513a-1d7  gt-46961e513a-1d8    ChT]L6Lga  gfilenamefsrfi/srfi-41.scm    ChD]L6<gfilenamefsrfi/srfi-41.scm     Ch]C   C hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-41.scm   n C5RU٨4>"G ȖiRhy]$CCqgobj  gfilenamefsrfi/srfi-41.scm    gnameg%stream-pare?-procedureCR4OQT<h8]C0gt-46961e513a-1e7    ChT]L6Lga  gfilenamefsrfi/srfi-41.scm    ChD]L6<gfilenamefsrfi/srfi-41.scm     Ch]C   C hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-41.scm   n C5R5hu]& C6mgs  gfilenamefsrfi/srfi-41.scm    gnameg%stream-kar-procedureCR4OQTh:]C2gerr  gs    C"h:]C2gerr  gs    C%+1h:]C2gerr  gs    C<Mh8]C0gt-46961e513a-1f3    ChT]L6Lga  gfilenamefsrfi/srfi-41.scm    ChD]L6<gfilenamefsrfi/srfi-41.scm     COh]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-41.scm   C5R5Phu]& C6mgs  gfilenamefsrfi/srfi-41.scm    gnameg%stream-kdr-procedureCQR4OPQT_fkh:]C2gerr  gs    Cntyh:]C2gerr  gs    C|h:]C2gerr  gs    C<h8]C0gt-46961e513a-20e    CPhT]L6Lga  gfilenamefsrfi/srfi-41.scm    ChD]L6<gfilenamefsrfi/srfi-41.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  gfilenamefsrfi/srfi-41.scm   C5PR4O-QTh v]45Cngdummy  gcheck?  gs   ggetter   gexpr      Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-41.scm   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5-R9h0] $$&45$CCCCgobj  /gobj  +gfilenamefsrfi/srfi-41.scm      +    / gnameg stream-pair?C%R4O"QT.h P]CHgdummy  gobj  gstrm      Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-41.scm   " g macro-typeg syntax-rulesgpatternsgobjgstrmC5"R#& h] 45$"4>"G45""4>"'G" $&"""" 6gstrm  gpare 6 gfilenamefsrfi/srfi-41.scm      !   0  6  =  C  E ( H     gnameg stream-carC&R#' h] 45$"4>"G45""4>"'G" $&"""" Cgstrm  gpare 6 gfilenamefsrfi/srfi-41.scm      !   0  6  =  C  E ( H    gnameg stream-cdrC'R4O(QTYhh]C`gdummy  gformals  gbody0   gbody1      Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-41.scm   " g macro-typeg syntax-rulesgpatternsgformalsgbody0gbody1g...C5(R9562v h@-/03##H& " 45KJ&J " 4J5$J&J " 4J56 $J&J " 4J56C8gpromise  gon-eager  gon-lazy   gcontent  & gkey  ^ gfilenamefsrfi/srfi-41.scm +  G  ^  n      gon-eagerS gon-lazyS gnamegstream-promise-visitCR4i9i5hc]L6[gt-46961e513a-2c2  gfilenamefsrfi/srfi-41.scm )  Ch]]?L6Ug_  gfilenamefsrfi/srfi-41.scm ) 5  CP h]&>L64 L>"G4& " 45LO  LO>"GL& " 4 56gpare  gfilenamefsrfi/srfi-41.scm       '  , 2 Z  g "   Chf]L6^g_  gfilenamefsrfi/srfi-41.scm   '   Ch q]LLOLO6igstrm  gfilenamefsrfi/srfi-41.scm      gnamegloopCh0] 4>"GOQ6gstrm  ,gport  ,gloop   ,gfilenamefsrfi/srfi-41.scm          , C>"G4O)QThy]Cqgdummy  gname  gformal   gbody0   gbody1      Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-41.scm   " g macro-typeg syntax-rulesgpatternsgnamegformalgbody0gbody1g...C5)R4O9QT h ]Cgdummy  gtag  gname   gval   gbody1   gbody2     Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-41.scm   " g macro-typeg syntax-rulesgpatternsgtaggnamegvalg...gbody1gbody2g...C59R *!2!2hV]L6Ngfilenamefsrfi/srfi-41.scm      C9hV]LL6Ngfilenamefsrfi/srfi-41.scm   '   C hX]L(CLOLLO6gval  'gval 7 Cgkar C Vgkdr C Vgfilenamefsrfi/srfi-41.scm       X C9h y] LOCqgobjs  gval  gfilenamefsrfi/srfi-41.scm    gnamegrecurCh`] 45$"45$"4>"GOQ6gobjs  \gt grecur N Xgfilenamefsrfi/srfi-41.scm      $  /  1 ! 4  N   \ gnameg list->streamC*R"#+$2%&!2hD]L6<gfilenamefsrfi/srfi-41.scm    C9hM]L6Egfilenamefsrfi/srfi-41.scm     C hh]4L545$CO LO 6gc dgval ) 5gval C Ogkar O bgkdr  O bgfilenamefsrfi/srfi-41.scm         d C9h h]LLOC`gval  gfilenamefsrfi/srfi-41.scm    gnamegrecurCh`-.,3#4545$"4>"GOQ6gport ]grecur O [gfilenamefsrfi/srfi-41.scm  (   /  1 ' 4  O  ] gnameg port->streamC+R4O,QT'3h-]C%gdummy     CX=>hK]CCgdummy  gx  gy      Ch@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefsrfi/srfi-41.scm   9 g macro-typeg syntax-rulesgpatternsgxgyg...C5,R$&'h]$"j$ "$"45$D$4455"45$"""~gproc  gbase  gstrm   glimit   gval   pgstrm   pglimit   pgt   ,gfilenamefsrfi/srfi-41.scm       # % 0  8  >  ?  D % L  R  ^  a  p   gnameg% stream-fold-aux-procedureC?R4O@QTAh]Cgt-46961e513a-368  gt-46961e513a-369  gt-46961e513a-36a   gt-46961e513a-36b      C@hT]L6Lga  gfilenamefsrfi/srfi-41.scm    ChD]L6<gfilenamefsrfi/srfi-41.scm     Ch]C   C hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-41.scm   n C5@R-#-$&'hh) 36]*45$"4>"G$45$"4>"G4 5$"4 >"G $"4 >"G""  "n$ "$"45$  "H$4455"45$""" G6gstrm gn  fgstrm  fgproc  Tgval  Egstrm  Eglimit  Egt  gfirst  U dg_  U d gfilenamefsrfi/srfi-41.scm       (  * % -  E  F  [  ] % `  s   #    *   F 2 T  X  f     f gnameg stream->listC-R#.!$2&hV]4L56Ngfilenamefsrfi/srfi-41.scm         C9'hh]L4L5L6`gfilenamefsrfi/srfi-41.scm     (   :   "      C hx]L(CL45$LL6OLLO 6gstrm  qgval 2 >gval P \gkar \ ogkdr  \ ogfilenamefsrfi/srfi-41.scm                 ) "  " (    q C29h(] OLQCgstrms  (gproc gval  (gfilenamefsrfi/srfi-41.scm   ( gnamegrecurChX-1345("4>"GOQ6gstrms Rgflunk  <grecur D Ngfilenamefsrfi/srfi-41.scm  %  ' + *  D  R gnameg stream-appendC.R#/$!&#/'2&hV]4L56Ngfilenamefsrfi/srfi-41.scm         C92'hV]4L56Ngfilenamefsrfi/srfi-41.scm  "   /  "  C9'hM]L6Egfilenamefsrfi/srfi-41.scm  "   /   ChX]L4LOLO56gval  !gval / ;gkar ; Ngkdr ; Ngfilenamefsrfi/srfi-41.scm     " R    R Ch]4L5$C4L545$"4>"G45$ L4 L56    O  LLO6 gstrm  gval l xgval gkar gkdr  gfilenamefsrfi/srfi-41.scm                /   1  , 4  G   Q  T  ) \  " b    C29h(] OLQCgstrms  (gproc gval  (gfilenamefsrfi/srfi-41.scm    ( gnamegrecurChH] 45$"4>"GOQ6gstrms  Egrecur 7 Agfilenamefsrfi/srfi-41.scm          %    7    E gnameg stream-concatC/R!*h )3C-134?6gobjs  gfilenamefsrfi/srfi-41.scm          gnamegstream-constantC0R4OQTTh]C   C'h.]C&gresult     CVh.]C&gresult     CTh]LC   C'h)]C!ge     Ch@]45$ O@45$@L6gv  @gs  @gtmp  @gtmp  & @gfilenamefsrfi/srfi-41.scm   8   :  & @    @ gnamegvar-stepCh0@]4LL5L4L5C8gresult  0gstep  0  0 C h]45$ 4?"H45$ 4?")45$ 4?" 454  LO54 5$ O@6gvar  ginit  gstep   gtest   gresult   gexpr   gtmp  hgtmp  & egtmp  B bgtmp  { gtmp   gfilenamefsrfi/srfi-41.scm i '  { &   Ch(c] 45$ O@6[gx  'gtmp 'gfilenamefsrfi/srfi-41.scm    ' C5R1#$' h0]"45$"4>"G45$"4>"G $"4>"G"4 5$"4 >"G"V$ "$"4 5$  "04 5$""" GCgn  )gstrm  )gval   gstrm   glimit   gt  gfirst   )gsecond   )g_   ) gfilenamefsrfi/srfi-41.scm .  /   /   /  /  0 0  E 0  G 0  J 0  _ 1  k 1  m 1 % p 1  2  2  2 " 2  3   3   ) gnameg stream-dropC1R2#2$&'h8]4L5$" 4L4L55$LCL4L56gt &gfilenamefsrfi/srfi-41.scm 8   9  9   9 +  9 2 " 9 + # 9 & * 8  0 8  8 8   8 C9h x] LLOCpgstrm  gval  gfilenamefsrfi/srfi-41.scm 8    gnamegloopC hx] 45$"4>"G45$"4>"GOQ6gpred?  ugstrm  ugloop  e qgfilenamefsrfi/srfi-41.scm 5  6   6   6 ,  6  0 7  E 7  G 7 ( J 7  e 8   u gnamegstream-drop-whileC2R3#$!&2&hV]4L56Ngfilenamefsrfi/srfi-41.scm A  A  A   C9'hV]L4L56Ngfilenamefsrfi/srfi-41.scm A  A 1 A *  C' hx]4L5$C4L4L55$MLO LLO 6L4 L56gval 0 <gval L Xgkar X kgkdr X kgfilenamefsrfi/srfi-41.scm >   ? ?   @  @   @ ?  & A p B  x B   x C29h0] OLLQCgstrm  +gproc !gval ! +gfilenamefsrfi/srfi-41.scm >   + gnamegrecurC hx] 45$"4>"G45$"4>"GOQ6gpred?  ugstrm  ugrecur  e qgfilenamefsrfi/srfi-41.scm ;  <   <   < (  <  0 =  E =  G = $ J =  e >   u gnameg stream-filterC3R4#$&' h`]#45$"4>"G45$"4>"G"n$ "$"45$  "H$44 55"4 5$""" GCXgproc  gbase  gstrm   gval  ` gstrm  ` glimit  ` gt  o gfirst  g_   gfilenamefsrfi/srfi-41.scm D  E   E   E %  E  0 F  E F  G F " J F  ` G  G   gnameg stream-foldC4R5#$&'UhXs)345$"4>"G45$"4>"G"145$C44 5>"G4 5""-1345$"4>"G4 5("4>"G"94 5$C4 4 5>"G4 5""kgproc gstrm gstrm  g gproc Ugstrm Ugrest  Ugstrms  Ugflunk  gstrms   M gfilenamefsrfi/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  gnamegstream-for-eachC5R622hD]L6<gfilenamefsrfi/srfi-41.scm ]    C9hV]LLL6Ngfilenamefsrfi/srfi-41.scm ]  ]  ]   ChX]LOLLLO6gval  gval 0 <gkar < Ogkdr < Ogfilenamefsrfi/srfi-41.scm \   ]   Q C9h z] LLOCrgfirst  gval  gfilenamefsrfi/srfi-41.scm \    gnamegrecurCh-.,3# 45$"4>"G45$"4>"GOQ6gfirst gstep grecur  x gfilenamefsrfi/srfi-41.scm Y  Z  + Z  - Z # 0 Z  C [  X [  Z [ " ] [  x \  gnameg stream-fromC6R722hD]L6<gfilenamefsrfi/srfi-41.scm b    C9hV]L4LL56Ngfilenamefsrfi/srfi-41.scm b   b  b   ChX]LOLLLO6gval  gval 0 <gkar < Ogkdr < Ogfilenamefsrfi/srfi-41.scm a   b   Q C9h y] LLOCqgbase  gval  gfilenamefsrfi/srfi-41.scm a    gnamegrecurChH] 45$"4>"GOQ6gproc  Hgbase  Hgrecur  8 Dgfilenamefsrfi/srfi-41.scm _  `   `   ` (  `  8 a   H gnamegstream-iterateC7R#8$'hJ]!45$"4>"G "V$ "$"45$  "045$"" " GCBgstrm  gval 5 gstrm  5 glimit  5 gt  D [gfirst gsecond  gthird  g_   gfilenamefsrfi/srfi-41.scm d  e   e   e $  e  5 f  f  f   gnameg stream-lengthC8R:#$!2&hh]4L4L556`gfilenamefsrfi/srfi-41.scm o  o   o   o   o    C9'hV]L4L56Ngfilenamefsrfi/srfi-41.scm o  p  p   C h`]4L5$CLLOLLO 6gval " .gval > Jgkar J ]gkdr J ]gfilenamefsrfi/srfi-41.scm m   n n   o   _ C29h0] OLLQCgstrm  +gproc !gval ! +gfilenamefsrfi/srfi-41.scm m   + gnamegrecurCU$!2&hh]4L4L5?6`gfilenamefsrfi/srfi-41.scm w  w   w %  w   w    C9'hV]L4L56Ngfilenamefsrfi/srfi-41.scm w  x  x    C hh]4L5$CLLO LLO 6gval $ 0gval @ Lgkar L _gkdr L _gfilenamefsrfi/srfi-41.scm u   v  v   w   a C29h0] OLLQCgstrms  +gproc !gval ! +gfilenamefsrfi/srfi-41.scm u   + gnamegrecurC h)v345$"4>"G45$"4>"GOQ6-1345$"4>"G4 5("4>"G OQ6gproc |gstrm |grecur  l xgproc gstrm grest  gstrms  gflunk  grecur   gfilenamefsrfi/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  |    gnameg stream-mapC:R4O;QTh]C   ChX]6Pgrest  gfilenamefsrfi/srfi-41.scm  ~    Ch,]C$grest     Chi]6agvar  grest  gfilenamefsrfi/srfi-41.scm      Ch(] 4L5C{gvar  %grest  %gtmp  %gfilenamefsrfi/srfi-41.scm       % C hp]45$@4?$@45" 6$4?$  LO@""gx  lgtmp lgtmp   lgtmp  9 lgfilenamefsrfi/srfi-41.scm {   l gnameg make-matcherCTTVTh,]C$gexpr     C+hQ]CIgguard  gexpr  gfail      ChH]45$@45$@6gx  Bgfail  Bgtmp  Bgtmp   Bgtmp  + Bgfilenamefsrfi/srfi-41.scm        B gnameg make-guardedCT,@AHIKhz]Crgtmp-46961e513a-6fb  gtmp-46961e513a-6fa  gtmp-46961e513a-6f9      Ch(A]L4L5C9gmatcher  'gexpr  '  ' ChH]4LL54L545$ LO@6gfail  Bgtmp  Bgtmp  $ Bgfilenamefsrfi/srfi-41.scm   $  !     B Ch8]4545$LO@6g strm-expr  6gpat  6gexpr   6gtmp  6gtmp   6gfilenamefsrfi/srfi-41.scm       6 Ch8}]OQ45$ O@6ugx  4g make-matcher 4gtmp   4gfilenamefsrfi/srfi-41.scm z   4 C5;R4O<QTX[\hQ]CIgdummy  gexpr  grest      Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-41.scm    " g macro-typeg syntax-rulesgpatternsgexprgrestg...C5"G45$"4>"G$145$"4>"G"$"$ "  $"  OQ6gfirst gpast gstep  gstep  glt?  grecur  gfilenamefsrfi/srfi-41.scm     +   -  $ 0   C   X   Z  # ]   u   v      %                    gnameg stream-rangeC=R#>1$&hl] 45$"4>"G45$"4>"G45$"4 >"G $"4 >"G"4 54 5$"4 >"G"6dgstrm  gn  gres  gfilenamefsrfi/srfi-41.scm          !    0   E   G   J   ]   r   t   w        $           +      gnameg stream-refC>R#?2$'2&hV]4L56Ngfilenamefsrfi/srfi-41.scm     ,    C9hD]LC<gfilenamefsrfi/srfi-41.scm     C hh]4L5$LCL4L54LOLO 56gval * 6gval D Pgkar P cgkdr P cgfilenamefsrfi/srfi-41.scm              g    g C9h ] LOCgstrm  grev  gval   gfilenamefsrfi/srfi-41.scm     gnamegloopC!hH] 45$"4>"GOQ6gstrm  Ggloop 7 Agfilenamefsrfi/srfi-41.scm          %    7    G gnamegstream-reverseC?R@#$2hD]L6<gfilenamefsrfi/srfi-41.scm     C9!hD]C<gfilenamefsrfi/srfi-41.scm     ChD]L6<gfilenamefsrfi/srfi-41.scm     C&'h q]L4LL4L554L56igfilenamefsrfi/srfi-41.scm     !  ,   !   !      C h]4L5$FLO6 LO LLLLO6gval  )gval 2 >gkar > Qgkdr > Qgval c ogval gkar gkdr gfilenamefsrfi/srfi-41.scm           Y    C29h0] OLLQCgbase  .gstrm  .gproc  $gval  $ .gfilenamefsrfi/srfi-41.scm    . gnamegrecurC hx] 45$"4>"G45$"4>"GOQ6gproc  wgbase  wgstrm   wgrecur  e qgfilenamefsrfi/srfi-41.scm          %    0   E   G  " J   e    w gnameg stream-scanC@R#A$!2&hV]4L56Ngfilenamefsrfi/srfi-41.scm         C9'h_]LL4L56Wgfilenamefsrfi/srfi-41.scm     .   5   '   C hx]L $"4L5$CLOLLLO 6gt  gval 4 @gval R ^gkar ^ qgkdr ^ qgfilenamefsrfi/srfi-41.scm           !   *    s C29h0] OLQCgn  +gstrm  +gproc  !gval  ! +gfilenamefsrfi/srfi-41.scm    + gnamegrecurC h3] 45$"4>"G45$"4>"G45$"4 >"G $"4 >"G" OQ6+gn  gstrm  grecur  gfilenamefsrfi/srfi-41.scm          "    0   E   G  J   ]   r   t   w        %      gnameg stream-takeCARB#$!&2&hV]4L56Ngfilenamefsrfi/srfi-41.scm        C9'hV]L4L56Ngfilenamefsrfi/srfi-41.scm    1  *  C hp]4L5$C4L4L55$MLO LLO 6Cgval 0 <gval L Xgkar X kgkdr X kgfilenamefsrfi/srfi-41.scm                &    p C29h0] OLLQCgstrm  +gproc !gval ! +gfilenamefsrfi/srfi-41.scm    + gnamegrecurC hx] 45$"4>"G45$"4>"GOQ6gpred?  ugstrm  ugrecur  e qgfilenamefsrfi/srfi-41.scm          ,    0   E   G  ( J   e    u gnamegstream-take-whileCBRC2hV]4LL56Ngfilenamefsrfi/srfi-41.scm         C9hV]L4LL56Ngfilenamefsrfi/srfi-41.scm     *  #  C! hh]4LL5$QLLOLLLO6Cgval  +gval = Igkar I \gkdr I \gfilenamefsrfi/srfi-41.scm            a C29h8] OLLLLQCgbase  1gproc  'gval ' 1gfilenamefsrfi/srfi-41.scm    1 gnamegrecurC h>] 45$"4>"G45$"4>"G45$"4>"GOQ66gmapper  gpred?  g generator   gbase   grecur  gfilenamefsrfi/srfi-41.scm          )    0   E   G  ( J   ]   r   t  , w      gnameg stream-unfoldCCR2hV]4L56Ngfilenamefsrfi/srfi-41.scm         C9hM]LL6Egfilenamefsrfi/srfi-41.scm     (   Chh] 4LL> GOLO6gnext agitems agval  $ 0gval  @ Lgkar  L _gkdr  L _gfilenamefsrfi/srfi-41.scm             a C29h0] OLLQCgseed  +gproc !gval ! +gfilenamefsrfi/srfi-41.scm    + gnameggenerator-streamC&!2'hV]L4L5L6Ngfilenamefsrfi/srfi-41.scm     .      C9.*'hV]L4L5L6Ngfilenamefsrfi/srfi-41.scm     .      ChD]L6<gfilenamefsrfi/srfi-41.scm     C2'hV]L4L5L6Ngfilenamefsrfi/srfi-41.scm     .      C9h _]LLLOCWgval  gfilenamefsrfi/srfi-41.scm        Ch0] H4L5LKJ(CJ&LLLOC"=J$)4J5 LLLO64   J56J$_J(TJ OLLLO6"]"Y(ghead  gval 3 =gval c ogw gval  gval  gkar  gkdr  gfilenamefsrfi/srfi-41.scm            %   D   K  & U   q   r      C29h0] OLQCggenstrm  +gindex  +gproc  !gval  ! +gfilenamefsrfi/srfi-41.scm    + gnamegmake-result-streamCD&hc]LL6[gt-46961e513a-9f4  gfilenamefsrfi/srfi-41.scm  !  C hxA]OOQQ45$"4>"G4544 4 55 O5E9ggen  qgseed  qggenerator-stream   qgmake-result-stream   qggenstrm  S qgfilenamefsrfi/srfi-41.scm    5   7  ' :   M   S   V   Y  ! \  0 d  ! o   q    q gnamegstream-unfoldsCDR#EU$!2&hV]4L56Ngfilenamefsrfi/srfi-41.scm          C9'hV]L4L56Ngfilenamefsrfi/srfi-41.scm    5   .   C h`]4L5$CLO LLO 6gval " .gval > Jgkar J ]gkdr J ]gfilenamefsrfi/srfi-41.scm            _ C29h(] OLQCgstrms  (gproc gval  (gfilenamefsrfi/srfi-41.scm    ( gnamegrecurCh`-1345("4>"GOQ6gstrm Ygrest Ygstrms   Ygflunk   Cgrecur  K Ugfilenamefsrfi/srfi-41.scm           ,   .  * 1   K   Y gnameg stream-zipCERCgm  ,grtd d grtd d grtd A Bgfilenamefsrfi/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 } C6srfi-42.go000064400000310764151027761750006307 0ustar00GOOF----LE-8-2.0ܑ] w4h] gguile  gdefine-module*   gsrfi gsrfi-42  gfilenameS fsrfi/srfi-42.scm gexportsS 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 gany?-ec g append-ec gdispatch-union !gdo-ec "g every?-ec #gfirst-ec $gfold-ec %gfold3-ec &glast-ec 'glist-ec (gmake-initial-:-dispatch )gmax-ec *gmin-ec +g product-ec ,gstring-append-ec -g string-ec .gsum-ec /g vector-ec 0gvector-of-length-ec 1   !"#$%&'()*+,-./0% 2gset-current-module 32 42 5gcond-expand-provide 6gcurrent-module 7 8gmake-syntax-transformer 98 :8 ;gmacro < ?gany @gfree-id Ag syntax-object Bgnested Cgtop DC Egribcage FE Ggx HG Igm-46961e513b-2 JIC KJ Lfl-46961e513b-4 ML NEHKM ODFN Pghygiene QP RABOQ S@R Tgeach-any UST VUT W?V Xgdummy Ygq Zgetc [XYZ \JDD ]fl-46961e513b-7 ^fl-46961e513b-8 _fl-46961e513b-9 `]^_ aE[\` bDaFN cA!bQ dgappend ed fd g?T h?g i?h j?i kgq1 lgq2 mgetc1 nXklmZ oJDDDD pfl-46961e513b-10 qfl-46961e513b-11 rfl-46961e513b-12 sfl-46961e513b-13 tfl-46961e513b-14 upqrst vEnou wDvFN xA!wQ y?? zgbegin {gcmd |X{ }JD ~fl-46961e513b-1c fl-46961e513b-1d ~ E|} DFN AzQ gif AQ AQ   AOQ @ ? ?? gtest X{ fl-46961e513b-21 fl-46961e513b-22 fl-46961e513b-23  E\ DFN AQ A!Q gnot AOQ @ ? ?? fl-46961e513b-28 fl-46961e513b-29 fl-46961e513b-2a  E\ DFN AQ AQ A!Q gand AOQ @ T ?? fl-46961e513b-2f fl-46961e513b-30 fl-46961e513b-31  E\ DFN AQ AQ A!Q gor AOQ @ T ?? fl-46961e513b-37 fl-46961e513b-38 fl-46961e513b-39  E\ DFN AQ AQ A!Q AzOQ @ T ?? XZ{ fl-46961e513b-3f fl-46961e513b-40 fl-46961e513b-41  E\ DFN AzQ A!Q AOQ @ ?????? ?? gdo-ec:do golet glbs gne1? gilet gne2? glss X{ JDDDDDDD fl-46961e513b-47 fl-46961e513b-48 fl-46961e513b-49 fl-46961e513b-4a fl-46961e513b-4b fl-46961e513b-4c fl-46961e513b-4d fl-46961e513b-4e  E DFN AQ AQ ?h? gg garg1 garg X{ fl-46961e513b-58 fl-46961e513b-59 fl-46961e513b-5a fl-46961e513b-5b fl-46961e513b-5c  Eo DFN AQ gsyntax-violation   f-source expression failed to match any pattern gm-46961e513b-63 C  fl-46961e513b-65  EH DF AQ @ glet AQ @ g ???T ??  g ec-simplify  gobs  goc  gibs  gic gls X{      DDDDDDDDD  fl-46961e513b-68 fl-46961e513b-69 fl-46961e513b-6a fl-46961e513b-6b fl-46961e513b-6c fl-46961e513b-6d fl-46961e513b-6e fl-46961e513b-6f fl-46961e513b-70 fl-46961e513b-71   E DF A Q AQ  gloop !A Q "AQ #gm-46961e513b-7f $#C %$ &fl-46961e513b-81 '& (EH%' )DF( *A)Q +@* ,gatom -, .+-? /?. 0, 1+0? 2?1 3g consequent 4X3 5$D 6fl-46961e513b-89 7fl-46961e513b-8a 867 9E458 :D9F( ;A:Q <A:Q =;<< >+-?? ??> @+0?? A?@ BA)Q C@B DC? ECD F+E? G?F HX3 I$DD Jfl-46961e513b-9c Kfl-46961e513b-9d Lfl-46961e513b-9e MJKL NEHIM ODNF( PA OQ QAOQ R+E?? S?R Tg alternate UX3T V$DDD Wfl-46961e513b-a3 Xfl-46961e513b-a4 Yfl-46961e513b-a5 Zfl-46961e513b-a6 [WXYZ \EUV[ ]D\F( ^A ]Q _A]Q `A)Q a@` bT cab d?c egcommand fXe gfl-46961e513b-ac hfl-46961e513b-ad igh jEf5i kDjF( lA kQ mAzkQ nAz)Q o@n poT q?p rfl-46961e513b-b2 sfl-46961e513b-b3 trs uEf5t vDuF( wA vQ xA vQ y,  zpT {?y?z |gdone }gto-do1 ~gto-do2 X|}~ fl-46961e513b-b8 fl-46961e513b-b9 fl-46961e513b-ba fl-46961e513b-bb  EV DF( A Q A Q ?yTg gto-do X|} fl-46961e513b-c3 fl-46961e513b-c4 fl-46961e513b-c5 fl-46961e513b-c6  EV DF( A Q A Q ?y X fl-46961e513b-ce  E% DF( AQ AQ  ? ?y ?yg gcommand1 Xe fl-46961e513b-d6 fl-46961e513b-d7 fl-46961e513b-d8  EI DF( AzQ ?T?????? gcc X gm-46961e513b-e2 C DDDDDDD fl-46961e513b-e7 fl-46961e513b-e8 fl-46961e513b-e9 fl-46961e513b-ea fl-46961e513b-eb fl-46961e513b-ec fl-46961e513b-ed fl-46961e513b-ee  E  fl-46961e513b-e4  EH DF AQ ????? X DDDD fl-46961e513b-f9 fl-46961e513b-fa fl-46961e513b-fb fl-46961e513b-fc fl-46961e513b-fd  E DF AQ AQ  AQ gindex gm-46961e513b-103 C  fl-46961e513b-105  EH DF AQ @ ? ???? gvar gi g expression X DDDD fl-46961e513b-108 fl-46961e513b-109 fl-46961e513b-10a fl-46961e513b-10b fl-46961e513b-10c  E DF AQ AQ A Q  AQ  AQ  ???? X DDD fl-46961e513b-113 fl-46961e513b-114 fl-46961e513b-115 fl-46961e513b-116  E DF AQ AQ AQ  AQ  hT ? ? g :parallel-1 ggen X gm-46961e513b-11b C DDDDD  fl-46961e513b-125  fl-46961e513b-126  fl-46961e513b-127  fl-46961e513b-128  fl-46961e513b-129 fl-46961e513b-12a       E  fl-46961e513b-11d  EH DF AQ ??? gresult X gm-46961e513b-133 C DDDDDD fl-46961e513b-138 fl-46961e513b-139 fl-46961e513b-13a  fl-46961e513b-13b !fl-46961e513b-13c "fl-46961e513b-13d #fl-46961e513b-13e $ !"# %E$ & 'fl-46961e513b-135 (' )EH&( *D%F) +A*Q ,DF) -A,Q .@- /A,Q 0@/ 1TT 201 3.2T?2?T 4???33 5ggens 6gob1 7goc1 8glb1 9gne1?1 :gib1 ;gic1 gob2 ?goc2 @glb2 Agne1?2 Bgib2 Cgic2 Dgne2?2 Egls2 FX56789:;<=>?@ABCDE GDDDDDDDDDDDDDDDDDD Hfl-46961e513b-149 Ifl-46961e513b-14a Jfl-46961e513b-14b Kfl-46961e513b-14c Lfl-46961e513b-14d Mfl-46961e513b-14e Nfl-46961e513b-14f Ofl-46961e513b-150 Pfl-46961e513b-151 Qfl-46961e513b-152 Rfl-46961e513b-153 Sfl-46961e513b-154 Tfl-46961e513b-155 Ufl-46961e513b-156 Vfl-46961e513b-157 Wfl-46961e513b-158 Xfl-46961e513b-159 Yfl-46961e513b-15a Zfl-46961e513b-15b [HIJKLMNOPQRSTUVWXYZ \EFG[ ]D\F) ^A]Q _A]Q `A]Q aA]Q b?T? c??h? dg:while-1 eX fgm-46961e513b-183 gfC hgDDDDD ifl-46961e513b-188 jfl-46961e513b-189 kfl-46961e513b-18a lfl-46961e513b-18b mfl-46961e513b-18c nfl-46961e513b-18d oijklmn pEeho qg rfl-46961e513b-185 sr tEHqs uDpFt vAduQ wgm-46961e513b-195 xwC yx zfl-46961e513b-197 {z |EHy{ }DF| ~A}Q @~ ?????? ??? g:while-2 X  xDDDDDDDD  fl-46961e513b-19a fl-46961e513b-19b fl-46961e513b-19c fl-46961e513b-19d fl-46961e513b-19e fl-46961e513b-19f fl-46961e513b-1a0 fl-46961e513b-1a1 fl-46961e513b-1a2   E DF| AQ AQ gm-46961e513b-1ac C  fl-46961e513b-1ae  EH DF AQ @ AQ @ yT T  ????? ???TTT gib-let gib-save g ib-restore gib-var gib-rhs gib X  DDDDDDDDDDDDDD fl-46961e513b-1b1 fl-46961e513b-1b2 fl-46961e513b-1b3 fl-46961e513b-1b4 fl-46961e513b-1b5 fl-46961e513b-1b6 fl-46961e513b-1b7 fl-46961e513b-1b8 fl-46961e513b-1b9 fl-46961e513b-1ba fl-46961e513b-1bb fl-46961e513b-1bc fl-46961e513b-1bd fl-46961e513b-1be fl-46961e513b-1bf  E DF AQ gib-tmp AQ AQ    AQ AQ gset! AQ 1 b ???? ???TTT gob X    DDDDDDDDDDDD  fl-46961e513b-1d5 fl-46961e513b-1d6 fl-46961e513b-1d7 fl-46961e513b-1d8 fl-46961e513b-1d9 fl-46961e513b-1da fl-46961e513b-1db fl-46961e513b-1dc fl-46961e513b-1dd fl-46961e513b-1de fl-46961e513b-1df fl-46961e513b-1e0 fl-46961e513b-1e1   E DF AQ AQ g ne1?-value AQ AQ g:until-1 gm-46961e513b-1f5 C DDDDD fl-46961e513b-1fa fl-46961e513b-1fb fl-46961e513b-1fc fl-46961e513b-1fd fl-46961e513b-1fe fl-46961e513b-1ff  Ee  fl-46961e513b-1f7  EH DF AQ gm-46961e513b-207 C  fl-46961e513b-209  EH DF AQ @ ?????? ??? DDDDDDDD  fl-46961e513b-20c fl-46961e513b-20d fl-46961e513b-20e fl-46961e513b-20f fl-46961e513b-210 fl-46961e513b-211 fl-46961e513b-212  fl-46961e513b-213  fl-46961e513b-214       E   D F A Q A Q A Q gm-46961e513b-21e C  fl-46961e513b-220  EH DF AQ @ ? T ? ? ? X  DDDD !fl-46961e513b-223 "fl-46961e513b-224 #fl-46961e513b-225 $fl-46961e513b-226 %fl-46961e513b-227 &!"#$% 'E & (D'F )A(Q *A(Q +A(Q ,?j -garg2 .X- /DDDDD 0fl-46961e513b-22f 1fl-46961e513b-230 2fl-46961e513b-231 3fl-46961e513b-232 4fl-46961e513b-233 5fl-46961e513b-234 6012345 7E./6 8D7F 9A8Q :Ad8Q ;X <DDD =fl-46961e513b-23d >fl-46961e513b-23e ?fl-46961e513b-23f @fl-46961e513b-240 A=>?@ BE;<A CDBF DACQ EACQ FE Ggt HAGCQ IACQ Jgnull? KAJCQ LKH MIL Ngcar OANCQ POH QP RACQ Sgcdr TASCQ UTH VU WRV Xgm-46961e513b-245 YXC ZY [fl-46961e513b-247 \[ ]EHZ\ ^DF] _A^Q `@_ a`? b???a? cYDDDD dfl-46961e513b-24a efl-46961e513b-24b ffl-46961e513b-24c gfl-46961e513b-24d hfl-46961e513b-24e idefgh jEci kDjF] lAkQ mAkQ ngstr oAnkQ pglen 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 fl-46961e513b-255 fl-46961e513b-256 fl-46961e513b-257 fl-46961e513b-258 fl-46961e513b-259 fl-46961e513b-25a fl-46961e513b-25b  E DF] AQ AQ g string-append AQ X fl-46961e513b-265 fl-46961e513b-266 fl-46961e513b-267 fl-46961e513b-268 fl-46961e513b-269  Ec DF] AQ AQ AQ  gm-46961e513b-270 C DDD fl-46961e513b-275 fl-46961e513b-276 fl-46961e513b-277 fl-46961e513b-278  E;  fl-46961e513b-272  EH DF AQ AQ AQ  DF AQ @ ? ???? DDDD fl-46961e513b-27e fl-46961e513b-27f fl-46961e513b-280 fl-46961e513b-281 fl-46961e513b-282  E DF AQ AQ gvec AQ ApQ A Q   AQ g vector-length AQ     A|Q  g vector-ref AQ AQ AQ A Q  h ?ތ ?ߌ ? DDDDDD fl-46961e513b-289 fl-46961e513b-28a fl-46961e513b-28b fl-46961e513b-28c fl-46961e513b-28d fl-46961e513b-28e fl-46961e513b-28f  E DF AQ AQ AQ DDDDD fl-46961e513b-299 fl-46961e513b-29a fl-46961e513b-29b fl-46961e513b-29c fl-46961e513b-29d fl-46961e513b-29e  E. DF AQ AQ AQ AQ  ApQ A Q  gvecs AQ gec-:vector-filter AQ glist AQ gk  AQ        AQ  A|Q    AQ AJQ  AzQ AQ ANQ   ASQ   AQ           !AQ "!  #" $AQ %A Q &$ % '& (' )gm-46961e513b-2a6 *)C +* ,fl-46961e513b-2a8 -, .EH+- /DF. 0A/Q 1@0 21? 3???2 4X 5*DDD 6fl-46961e513b-2ab 7fl-46961e513b-2ac 8fl-46961e513b-2ad 9fl-46961e513b-2ae :6789 ;E45: <D;F. =A<Q >A <Q ?> @A<Q AA<Q BA <Q CB D??? EX F*DD Gfl-46961e513b-2b4 Hfl-46961e513b-2b5 Ifl-46961e513b-2b6 JGHI KEEFJ LDKF. MALQ NA LQ ON PALQ QALQ RA LQ SR Tgm-46961e513b-2ba UTC VU Wfl-46961e513b-2bc XW YEHVX ZDFY [AZQ \@[ ]\? ^]g _?^ `?_ a?` bX cUDDDDD dfl-46961e513b-2bf efl-46961e513b-2c0 ffl-46961e513b-2c1 gfl-46961e513b-2c2 hfl-46961e513b-2c3 ifl-46961e513b-2c4 jdefghi kEbcj lDkFY mAlQ nAlQ oAlQ pX qUDDD rfl-46961e513b-2cd sfl-46961e513b-2ce tfl-46961e513b-2cf ufl-46961e513b-2d0 vrstu wEpqv xDwFY yAxQ zA xQ {A xQ |{ }X- ~UDDDD fl-46961e513b-2d6 fl-46961e513b-2d7 fl-46961e513b-2d8 fl-46961e513b-2d9 fl-46961e513b-2da  E}~ DFY AQ A Q  ,  ????y X- fl-46961e513b-2e1 fl-46961e513b-2e2 fl-46961e513b-2e3 fl-46961e513b-2e4  Eq DFY AQ AQ gb AQ AQ AQ AQ ginteger? AQ  gexact? AQ    gerror AQ f*arguments of :range are not exact integer  AQ f(use :real-range?) AQ A Q A Q     A|Q   AQ AQ  ,  ???? fl-46961e513b-2ea fl-46961e513b-2eb fl-46961e513b-2ec fl-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 fl-46961e513b-2f3 fl-46961e513b-2f4 fl-46961e513b-2f5 fl-46961e513b-2f6 fl-46961e513b-2f7  E}~ DFY AQ AQ ga AQ AQ AQ AQ AQ AQ  AQ      AQ AQ AQ A Q     A|Q   AQ AQ  ????? fl-46961e513b-2fe fl-46961e513b-2ff fl-46961e513b-300 fl-46961e513b-301 fl-46961e513b-302   E}~  D FY  A Q  A Q  A Q A Q gs A Q A  Q  gstop 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?????? 2garg3 3X-2 4fl-46961e513b-309 5fl-46961e513b-30a 6fl-46961e513b-30b 7fl-46961e513b-30c 8fl-46961e513b-30d 9fl-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 Xgzero? YAX<Q ZYA [f$step size must not be zero in :range \A[<Q ]S\ ^FZ] _A<Q `A<Q ag* bAa<Q cgmax dAc<Q egceiling 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 ygm-46961e513b-315 zyC {zDDD |fl-46961e513b-31a }fl-46961e513b-31b ~fl-46961e513b-31c fl-46961e513b-31d |}~ Ep{ z fl-46961e513b-317  EH DF AQ AQ AQ  A Q A Q  DF AQ @ ? ???? X zDDDD fl-46961e513b-323 fl-46961e513b-324 fl-46961e513b-325 fl-46961e513b-326 fl-46961e513b-327  E DF AQ AQ A Q A Q  fl-46961e513b-32e fl-46961e513b-32f fl-46961e513b-330 fl-46961e513b-331 fl-46961e513b-332  E} DF AQ AQ AQ  A Q  ????? X- zDDDDD fl-46961e513b-339 fl-46961e513b-33a fl-46961e513b-33b fl-46961e513b-33c fl-46961e513b-33d fl-46961e513b-33e  E DF AQ AQ A Q  fl-46961e513b-346 fl-46961e513b-347 fl-46961e513b-348 fl-46961e513b-349 fl-46961e513b-34a fl-46961e513b-34b  E3 DF AQ AQ AQ  ?????? X-2 zDDDDDD fl-46961e513b-353 fl-46961e513b-354 fl-46961e513b-355 fl-46961e513b-356 fl-46961e513b-357 fl-46961e513b-358 fl-46961e513b-359  E DF AQ AQ AQ AQ AQ gistop AQ A Q   AQ AQ AQ greal? AQ      AQ f%arguments of :real-range are not real AQ   AQ  AQ       AQ gexact->inexact AQ    AgQ AQ       A|Q    AQ  AaQ  AQ A Q  gm-46961e513b-361 C  fl-46961e513b-363  EH DF AQ @ ? ????? DDDDD fl-46961e513b-366 fl-46961e513b-367 fl-46961e513b-368 fl-46961e513b-369  fl-46961e513b-36a !fl-46961e513b-36b " ! #E" $D#F %A$Q &A$Q 'A$Q (DDDD )fl-46961e513b-373 *fl-46961e513b-374 +fl-46961e513b-375 ,fl-46961e513b-376 -fl-46961e513b-377 .)*+,- /E}(. 0D/F 1A0Q 2A0Q 3gimax 4A30Q 5g char->integer 6A50Q 7A0Q 8g<= 9A80Q :974 ;g integer->char <A;0Q =<7 >= ?A0Q @A0Q AA 0Q B@7A CB D?C Egm-46961e513b-37d FEC GF Hfl-46961e513b-37f IH JEHGI KDFJ LAKQ M@L NM? ONg P?O Q?P R?Q SFDDDDD Tfl-46961e513b-382 Ufl-46961e513b-383 Vfl-46961e513b-384 Wfl-46961e513b-385 Xfl-46961e513b-386 Yfl-46961e513b-387 ZTUVWXY [EbSZ \D[FJ ]A\Q ^A\Q _A\Q `FDDD afl-46961e513b-390 bfl-46961e513b-391 cfl-46961e513b-392 dfl-46961e513b-393 eabcd fE;`e gDfFJ hAgQ igread jAigQ kj lFDDDD mfl-46961e513b-399 nfl-46961e513b-39a ofl-46961e513b-39b pfl-46961e513b-39c qfl-46961e513b-39d rmnopq sE}lr tDsFJ uAtQ vAtQ wgport xAwtQ yg read-proc zAytQ {zx |{ }AtQ ~g eof-object? A~tQ v AtQ | gm-46961e513b-3a3 C  fl-46961e513b-3a5  EH DF AQ @ ? h ? ? ? gdispatch X DDDDDD fl-46961e513b-3a8 fl-46961e513b-3a9 fl-46961e513b-3aa fl-46961e513b-3ab fl-46961e513b-3ac fl-46961e513b-3ad fl-46961e513b-3ae  E DF AQ AQ AQ X DDDDD fl-46961e513b-3b8 fl-46961e513b-3b9 fl-46961e513b-3ba fl-46961e513b-3bb fl-46961e513b-3bc fl-46961e513b-3bd  E DF AQ AQ gd AQ gargs AQ AQ AQ AQ  gempty AQ    AQ   AQ AQ g procedure? AQ   AQ f%unrecognized arguments in dispatching AQ gquote AQ        geq? AQ   AQ  ?g X gm-46961e513b-3c5 C DD fl-46961e513b-3ca fl-46961e513b-3cb fl-46961e513b-3cc  E  fl-46961e513b-3c7  EH DF AQ AQ  DF AQ @ AQ @ g geach y T  ??T ?? glv gli gv X     DDDDDDDDDDD  fl-46961e513b-3d2 fl-46961e513b-3d3 fl-46961e513b-3d4 fl-46961e513b-3d5 fl-46961e513b-3d6 fl-46961e513b-3d7 fl-46961e513b-3d8 fl-46961e513b-3d9 fl-46961e513b-3da fl-46961e513b-3db fl-46961e513b-3dc fl-46961e513b-3dd   E DF A Q  AQ  gmap        gne2 A Q AQ   AQ  glambda AQ AQ  AQ AQ  AzQ AQ gvalue AQ    ! "X #D $fl-46961e513b-3f4 %fl-46961e513b-3f5 &$% 'E"#& (D'F )A(Q *fillegal macro call +A*(Q ,)+ -fdispatching conflict .glength /gSRFI42 0gstring? 1g input-port? 2gchar? 3glist? 4gvector? 5g vector->list 6g :-dispatch 7fnot a procedure 8gm-46961e513b-3f8 98C :9 ;fl-46961e513b-3fa <; =EH:< >DF= ?A>Q @@? A@? BAg C?B D?C E?D F9DDDDD Gfl-46961e513b-3fd Hfl-46961e513b-3fe Ifl-46961e513b-3ff Jfl-46961e513b-400 Kfl-46961e513b-401 Lfl-46961e513b-402 MGHIJKL NEbFM ODNF= PAOQ QAOQ RA6OQ S9DDDD Tfl-46961e513b-40b Ufl-46961e513b-40c Vfl-46961e513b-40d Wfl-46961e513b-40e Xfl-46961e513b-40f YTUVWX ZESY [DZF= \A[Q ]A6[Q ^gm-46961e513b-416 _^C `_ afl-46961e513b-418 ba cEH`b dDFc eABdQ f@e gfT hgj i?h j?i kgx0 lgetc2 mgetc3 nXkkYmlmZ o_DDDDDDD pfl-46961e513b-41b qfl-46961e513b-41c rfl-46961e513b-41d sfl-46961e513b-41e tfl-46961e513b-41f ufl-46961e513b-420 vfl-46961e513b-421 wfl-46961e513b-422 xpqrstuvw yEnox zDyFc {A%zQ |ABzQ }?, ~?} XkklmlmZ fl-46961e513b-42e fl-46961e513b-42f fl-46961e513b-430 fl-46961e513b-431 fl-46961e513b-432 fl-46961e513b-433 fl-46961e513b-434 fl-46961e513b-435  Eo DFc A%Q ABQ gf1 gf2 Xk _DDDD fl-46961e513b-440 fl-46961e513b-441 fl-46961e513b-442 fl-46961e513b-443 fl-46961e513b-444  E DFc A%Q ABQ  g qualifier Xk _DDDDD fl-46961e513b-44b fl-46961e513b-44c fl-46961e513b-44d fl-46961e513b-44e fl-46961e513b-44f fl-46961e513b-450  E DFc AQ AQ AQ  AQ AQ   A!Q AQ AQ AzQ AQ      gm-46961e513b-457 C  fl-46961e513b-459  EH DF ABQ @ T i ?Č ?Ō XkkYmlZ DDDDDD fl-46961e513b-45c fl-46961e513b-45d fl-46961e513b-45e fl-46961e513b-45f fl-46961e513b-460 fl-46961e513b-461 fl-46961e513b-462  E DF A$Q ABQ XkklmlZ fl-46961e513b-46d fl-46961e513b-46e fl-46961e513b-46f fl-46961e513b-470 fl-46961e513b-471 fl-46961e513b-472 fl-46961e513b-473  E DF A$Q ABQ Xk DDD fl-46961e513b-47d fl-46961e513b-47e fl-46961e513b-47f fl-46961e513b-480  E DF A$Q ABQ  Xk DDDD fl-46961e513b-486 fl-46961e513b-487 fl-46961e513b-488 fl-46961e513b-489 fl-46961e513b-48a  E DF AQ AQ A!Q AQ  greverse XmZ gm-46961e513b-490 C DD fl-46961e513b-495 fl-46961e513b-496 fl-46961e513b-497  E  fl-46961e513b-492    EH   DF   A Q  A$ Q A Q  gcons A Q  gapply gm-46961e513b-49c C DD fl-46961e513b-4a1 fl-46961e513b-4a2 fl-46961e513b-4a3  E  fl-46961e513b-49e  EH  DF !A Q "Ad Q #A' Q $g list->string %gm-46961e513b-4a8 &%C '&DD (fl-46961e513b-4ad )fl-46961e513b-4ae *fl-46961e513b-4af +()* ,E'+ -& .fl-46961e513b-4aa /. 0EH-/ 1D,F0 2A$1Q 3A'1Q 4gm-46961e513b-4b4 54C 65DD 7fl-46961e513b-4b9 8fl-46961e513b-4ba 9fl-46961e513b-4bb :789 ;E6: <5 =fl-46961e513b-4b6 >= ?EH<> @D;F? AA@Q BA@Q CA'@Q Dg list->vector Egm-46961e513b-4c0 FEC GFDD Hfl-46961e513b-4c5 Ifl-46961e513b-4c6 Jfl-46961e513b-4c7 KHIJ LEGK MF Nfl-46961e513b-4c2 ON PEHMO QDLFP RADQQ SA'QQ Tgm-46961e513b-4cc UTC VU Wfl-46961e513b-4ce XW YEHVX ZDFY [ABZQ \@[ ]\T ^]h _?^ `?_ aXkYmZ bUDDDDD cfl-46961e513b-4d1 dfl-46961e513b-4d2 efl-46961e513b-4d3 ffl-46961e513b-4d4 gfl-46961e513b-4d5 hfl-46961e513b-4d6 icdefgh jEabi kDjFY lA0kQ mABkQ nXklmZ ofl-46961e513b-4e0 pfl-46961e513b-4e1 qfl-46961e513b-4e2 rfl-46961e513b-4e3 sfl-46961e513b-4e4 tfl-46961e513b-4e5 uopqrst vEnbu wDvFY xA0wQ yABwQ zX {UDD |fl-46961e513b-4ee }fl-46961e513b-4ef ~fl-46961e513b-4f0 |}~ Ez{ DFY A0Q ABQ  X UDDD fl-46961e513b-4f5 fl-46961e513b-4f6 fl-46961e513b-4f7 fl-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    gm-46961e513b-4fd C DD fl-46961e513b-502 fl-46961e513b-503 fl-46961e513b-504  E  fl-46961e513b-4ff  EH DF A$Q AQ  gm-46961e513b-509 C DD fl-46961e513b-50e fl-46961e513b-50f fl-46961e513b-510  E  fl-46961e513b-50b  EH DF A$Q AaQ  gm-46961e513b-515 C DD fl-46961e513b-51a fl-46961e513b-51b fl-46961e513b-51c  E  fl-46961e513b-517  EH DF A%Q gmin AQ   gm-46961e513b-521 C DD fl-46961e513b-526 fl-46961e513b-527 fl-46961e513b-528  E  fl-46961e513b-523  EH DF A%Q AcQ   gm-46961e513b-52d C  fl-46961e513b-52f  EH DF ABQ @ T h ? ?  gdefault X kYmZ DDDDD fl-46961e513b-532 fl-46961e513b-533 fl-46961e513b-534 fl-46961e513b-535 fl-46961e513b-536 fl-46961e513b-537        E    D F A& Q AB Q X klmZ fl-46961e513b-541 fl-46961e513b-542 fl-46961e513b-543 fl-46961e513b-544 fl-46961e513b-545 fl-46961e513b-546        E    D F A& Q AB Q X  DD fl-46961e513b-54f fl-46961e513b-550 fl-46961e513b-551 !    "E   ! #D "F $A& #Q %AB #Q & % 'X  (DDD )fl-46961e513b-556 *fl-46961e513b-557 +fl-46961e513b-558 ,fl-46961e513b-559 - ) * + , .E ' ( - /D .F 0A /Q 1A /Q 2A! /Q 3A /Q 4 1 5gm-46961e513b-55e 6 5C 7 6 8fl-46961e513b-560 9 8 :EH 7 9 ;DF : <AB ;Q =@ < > =T ? >h @? ? A? @ B 6DDDDD Cfl-46961e513b-563 Dfl-46961e513b-564 Efl-46961e513b-565 Ffl-46961e513b-566 Gfl-46961e513b-567 Hfl-46961e513b-568 I C D E F G H JE  B I KD JF : LA# KQ MAB KQ Nfl-46961e513b-572 Ofl-46961e513b-573 Pfl-46961e513b-574 Qfl-46961e513b-575 Rfl-46961e513b-576 Sfl-46961e513b-577 T N O P Q R S UE  B T VD UF : WA# VQ XAB VQ Y 6DD Zfl-46961e513b-580 [fl-46961e513b-581 \fl-46961e513b-582 ] Z [ \ ^E  Y ] _D ^F : `A# _Q aAB _Q b a c 6DDD dfl-46961e513b-587 efl-46961e513b-588 ffl-46961e513b-589 gfl-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 qgec-guarded-do-ec rA q jQ sAB jQ tAz jQ uA jQ vA jQ w u m v x w y l zgm-46961e513b-58f { zC | { }fl-46961e513b-591 ~ } EH | ~ DF  AB Q @   T  T    ?? ? Xkl{  {DDDD fl-46961e513b-594 fl-46961e513b-595 fl-46961e513b-596 fl-46961e513b-597 fl-46961e513b-598       E    D F  A q Q AB Q A Q @   ?  T    ?? ? XY{ fl-46961e513b-5a1 fl-46961e513b-5a2 fl-46961e513b-5a3 fl-46961e513b-5a4 fl-46961e513b-5a5       E    D F  A Q A q Q AB Q A Q @   ?  T    ?? ? fl-46961e513b-5ad fl-46961e513b-5ae fl-46961e513b-5af fl-46961e513b-5b0 fl-46961e513b-5b1       E    D F  A Q A Q A q Q AB Q A Q @   T  T    ?? ? fl-46961e513b-5b9 fl-46961e513b-5ba fl-46961e513b-5bb fl-46961e513b-5bc fl-46961e513b-5bd       E    D F  A Q A Q A q Q AB Q A Q @   T  T   ̌ ?? ? fl-46961e513b-5c6 fl-46961e513b-5c7 fl-46961e513b-5c8 fl-46961e513b-5c9 fl-46961e513b-5ca       E    D F  A Q A Q A q Q AB Q Az Q @   T  T   ތ ?? ? XZY{ fl-46961e513b-5d3 fl-46961e513b-5d4 fl-46961e513b-5d5 fl-46961e513b-5d6 fl-46961e513b-5d7       E    D F  Az Q A q Q AB Q  g ?? ? XY{ fl-46961e513b-5e0 fl-46961e513b-5e1 fl-46961e513b-5e2 fl-46961e513b-5e3 fl-46961e513b-5e4       E    D F  A! Q A Q A q Q AB Q   ?? ? X{  {DD fl-46961e513b-5ec fl-46961e513b-5ed fl-46961e513b-5ee     E    D F  A! Q gm-46961e513b-5f2  C   fl-46961e513b-5f4   EH   DF  AB Q @   T  h ?  XkYmZ  DDDD fl-46961e513b-5f7 fl-46961e513b-5f8 fl-46961e513b-5f9 fl-46961e513b-5fa fl-46961e513b-5fb       E    D F  A Q AB Q fl-46961e513b-604 fl-46961e513b-605 !fl-46961e513b-606 "fl-46961e513b-607 #fl-46961e513b-608 $   ! " # %En  $ &D %F  'A &Q (AB &Q )X * D +fl-46961e513b-610 ,fl-46961e513b-611 - + , .E ) * - /D .F  0A /Q 1AB /Q 2 1 3X 4 DD 5fl-46961e513b-615 6fl-46961e513b-616 7fl-46961e513b-617 8 5 6 7 9E 3 4 8 :D 9F  ;A# :Q <A :Q =A :Q >A :Q ? > @gm-46961e513b-61b A @C B A Cfl-46961e513b-61d D C EEH B D FDF E GAB FQ H@ G I HT J Ih K? J L ADDDD Mfl-46961e513b-620 Nfl-46961e513b-621 Ofl-46961e513b-622 Pfl-46961e513b-623 Qfl-46961e513b-624 R M N O P Q SE  L R TD SF E UA" TQ VAB TQ Wfl-46961e513b-62d Xfl-46961e513b-62e Yfl-46961e513b-62f Zfl-46961e513b-630 [fl-46961e513b-631 \ W X Y Z [ ]En L \ ^D ]F E _A" ^Q `AB ^Q a AD bfl-46961e513b-639 cfl-46961e513b-63a d b c eE ) a d fD eF E gA" fQ hAB fQ i h j ADD kfl-46961e513b-63e lfl-46961e513b-63f mfl-46961e513b-640 n k l m oE 3 j n pD oF E qA# pQ rA pQ sA pQ tA pQ uA pQ v uC5h]4   1544>"G45i46i57>"G4:!;>WcfhM]45CEgdummy  gq  getc      Cjxhp]Chgdummy  gq1  gq2   getc1   getc      Cyh>]C6gdummy  gcmd    ChP]CHgdummy  gtest  gcmd      ChP]CHgdummy  gtest  gcmd      ChP]CHgdummy  gtest  gcmd      ChP]CHgdummy  gtest  gcmd      CfhO]45CGgdummy  getc  gcmd      Ch ,3Cgdummy  golet  glbs   gne1?   gilet   gne2?   glss   gcmd      Chp]Chgdummy  gg  garg1   garg   gcmd      Ch]Q45$@45$@45$@45$ @4 5$ @4 5$ @45$@45$@45  $ @45  $ @6gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  ~ gtmp  gtmp  gtmp gtmp  gfilenamefsrfi/srfi-42/ec.scm :   g macro-typeg syntax-rulesgpatternsgnestedgqg...getcg...gq1gq2getc1getcg...gcmdgifgtestgcmdgnotgtestgcmdgandgtestg...gcmdgorgtestg...gcmdgbegingetcg...gcmdg:dogoletglbsgne1?giletgne2?glssgcmdgggarg1gargg...gcmd C5!R4:;>f!"h`, 3 44 55Cgdummy  Ygcmd  Ygobs   Ygoc   Yglbs   Ygne1?   Ygibs   Ygic   Ygne2?   Ygls  Y   Y Ch( ] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-42/ec.scm g   " g macro-typeg syntax-rulesgpatternsgcmdg:dogletgobsgocg...glbsgne1?gletgibsgicg...gne2?glsg...C5R4: ;>/hE]C=gdummy  g consequent     C2=hE]C=gdummy  g consequent     C?h\]CTgdummy  g consequent  g alternate      CAh\]CTgdummy  g consequent  g alternate      CGPQhW]COgdummy  gtest  g consequent      CS^_hn]Cfgdummy  gtest  g consequent   g alternate      CdlmhB]C:gdummy  gcommand    CqwxhB]C:gdummy  gcommand    C{fhg]45C_gdummy  gdone  gto-do1   gto-do2      Cfhf]45C^gdummy  gdone  gto-do1   gto-do      Ch-]C%gdummy     ChB]C:gdummy  gcommand     ChX]CPgdummy  gcommand1  gcommand     CyhE]C=gdummy  g expression     C hP]q45$@45$@45$@45$ @4 5$ @4 5$ @45$@45$@45  $ @45  $ @45  $ @45  $ @45  $ @45$@6gx  Mgtmp Mgtmp  " Mgtmp  9 Mgtmp  P Mgtmp  g Mgtmp  ~ Mgtmp  Mgtmp  Mgtmp Mgtmp Mgtmp Mgtmp  Mgtmp  Mgtmp  6 Mgfilenamefsrfi/srfi-42/ec.scm   M g macro-typeg syntax-rulesgpatternsgifg consequentgifg consequentgifg consequentg alternategifg consequentg alternategifgnotgnotgtestg consequentgifgnotgnotgtestg consequentg alternategletgcommandg...gbegingcommandg... gdonegbegingto-do1g...gto-do2g... gdoneg...gto-do1gto-dog...  gcommand gcommand1gcommandg...g expressionC5 R4:;>fh ,36gdummy  gcc  golet   glbs   gne1?   gilet   gne2?   glss     Chq]Cigdummy  gcc  glbs   gne1?   glss      Ch@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefsrfi/srfi-42/ec.scm   9 g macro-typeg syntax-rulesgpatternsgccg...goletglbsgne1?giletgne2?glssgccglbsgne1?glssC5R4:;>h u]Cmgdummy  gcc  gvar   gi   g expression     Ch f]C^gdummy  gcc  gvar   g expression      Ch@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefsrfi/srfi-42/ec.scm   9 g macro-typeg syntax-rulesgpatternsgccgvargindexgig expressiongccgvarg expressionC5R4:;>yh=]C5gdummy  gcc     Ch]Cxgdummy  gcc  gg   garg1   garg   ggen      Ch@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefsrfi/srfi-42/ec.scm   9 g macro-typeg syntax-rulesgpatternsgccgccgggarg1gargg...ggeng...C5R4:;>+h]Cgdummy  gcc  gg   garg1   garg   ggen   gresult      C4^_`fahhg,34 54 54 54545 4 5C_gdummy  egcc  eggens   egob1   egoc1   eglb1   egne1?1   egib1   egic1   egne2?1  egls1  egob2  egoc2  eglb2  egne1?2   egib2   egic2   egne2?2   egls2   e  e CbfhQ]6Igdummy  gcc  gresult     C hPH]45$@45$@45$@ 6@gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefsrfi/srfi-42/ec.scm   P g macro-typeg syntax-rulesgpatternsgccgggarg1gargg...ggeng...gresultgccggensg:dogletgob1g...goc1g...glb1g...gne1?1gletgib1g...gic1g...gne2?1gls1g...g:dogletgob2g...goc2g...glb2g...gne1?2gletgib2g...gic2g...gne2?2gls2g...gccg...gresultC5R4:;>cvh]Cygdummy  gcc  gg   garg1   garg   gtest      Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-42/ec.scm    " g macro-typeg syntax-rulesgpatternsgccgggarg1gargg...gtestC5R4:d;>h(, 3 Cgdummy  $gcc  $gtest   $golet   $glbs   $gne1?   $gilet   $gne2?   $glss   $   $ Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-42/ec.scm >   " g macro-typeg syntax-rulesgpatternsgccgtestg:dogoletglbsgne1?giletgne2?glssC5dR4:;>f hh0,3454  54 5 4  5 C(gdummy  agcc  agtest   agib-let   agib-save   ag ib-restore   agolet   aglbs   agne1?   agib-var  agib-rhs  agib  agic  agne2?  aglss   a  a CfhX, 3 45 4 5  Cgdummy  Rgcc  Rgtest   Rgib-let   Rgib-save   Rg ib-restore   Rgob   Rgoc   Rglbs   Rgne1?  Rgic  Rgne2?  Rglss  R   R Ch@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefsrfi/srfi-42/ec.scm C   9 g macro-typeg syntax-rulesgpatternsgccgtestgib-letg...gib-saveg...g ib-restoreg...g:dogoletglbsgne1?gletgib-vargib-rhsgibg...gicg...gne2?glssgccgtestgib-letg...gib-saveg...g ib-restoreg...g:dogletgobg...gocg...glbsgne1?gletgicg...gne2?glssC5R4:;>ch]Cygdummy  gcc  gg   garg1   garg   gtest      Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-42/ec.scm n   " g macro-typeg syntax-rulesgpatternsgccgggarg1gargg...gtestC5R4:;>h(, 3 Cgdummy  &gcc  &gtest   &golet   &glbs   &gne1?   &gilet   &gne2?   &glss   &   & Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-42/ec.scm s   " g macro-typeg syntax-rulesgpatternsgccgtestg:dogoletglbsgne1?giletgne2?glssC5R4:;>)*+h n]Cfgdummy  gcc  gvar   gi   garg      C,9:h]C{gdummy  gcc  gvar   garg1   garg2   garg      CDFHMEQWh0_]CWgdummy  *gcc  *gvar   *garg   *  * C hP+]45$@45$@45$@ 6#gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefsrfi/srfi-42/ec.scm }   P g macro-typeg syntax-rulesgpatternsgccgvargindexgigargg...gccgvargarg1garg2gargg...gccgvargargC5R4:;>blmotz{}~ hPn]    Cfgdummy  Mgcc  Mgvar   Mgi   Mgarg   M  M Ch ]Cgdummy  gcc  gvar   gi   garg1   garg2   garg      Cjhq]Cigdummy  gcc  gvar   garg1   garg      C hPD]45$@45$@45$@ 6<gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefsrfi/srfi-42/ec.scm    P g macro-typeg syntax-rulesgpatternsgccgvargindexgigarggccgvargindexgigarg1garg2gargg...gccgvargarg1gargg...C5R4:;>h_]CWgdummy  gcc  gvar   garg      C hPn]    Cfgdummy  Mgcc  Mgvar   Mgi   Mgarg   M  M Ch(]Cgdummy  "gcc  "gvar   "gi   "garg1   "garg2   "garg   "  " C,  #( hH]   C{gdummy  Agcc  Agvar   Agarg1   Agarg2   Agarg   A  A C hht]!45$@45$@45$@45$ @  6lgx  ggtmp ggtmp  " ggtmp  9 ggtmp  P ggfilenamefsrfi/srfi-42/ec.scm    g g macro-typeg syntax-rulesgpatternsgccgvargarggccgvargindexgigarggccgvargindexgigarg1garg2gargg...gccgvargarg1garg2gargg...C5Rh0](C45 $645Cgvecs  ,gfilenamefsrfi/srfi-42/ec.scm                        "   #   (  . *   +    , gnamegec-:vector-filterCR4:;>3=?@ACh0]]CUgdummy  ,gcc  ,gvar   ,gi   ,  , CDMOPQSh N]CFgdummy  gcc  gvar      Ch@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefsrfi/srfi-42/ec.scm    9 g macro-typeg syntax-rulesgpatternsgccgvargindexgigccgvarC5R4:;>amnoh ]Cxgdummy  gcc  gvar   gi   garg1   garg      Cyz|h`]CXgdummy  gcc  gvar   garg1      Chr]Cjgdummy  gcc  gvar   garg1   garg2      C h@`]   CXgdummy  9gcc  9gvar   9garg2   9  9 C h@`]   CXgdummy  9gcc  9gvar   9garg2   9  9 C h@r]    Cjgdummy  @gcc  @gvar   @garg1   @garg2   @  @ C   ()*+,-.0hHr]     Cjgdummy  Agcc  Agvar   Agarg1   Agarg2   A  A C1=>?@AEqrGtuvw`xhP]     C|gdummy  Ngcc  Ngvar   Ngarg1   Ngarg2   Ngarg3   N  N Ch']A45$@45$@45$@45$ @4 5$ @4 5$ @45$@45$@6gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  ~ gtmp  gtmp   gfilenamefsrfi/srfi-42/ec.scm    g macro-typeg syntax-rulesgpatternsgccgvargindexgigarg1gargg...gccgvargarg1gccgvargarg1garg2gccgvar garg2 gccgvar garg2 gccgvargarg1garg2 gccgvargarg1garg2 gccgvargarg1garg2garg3 C5R4:;>h`]CXgdummy  gcc  gvar   garg1      Ch o]Cggdummy  gcc  gvar   gi   garg1      Chr]Cjgdummy  gcc  gvar   garg1   garg2      Ch ]Cygdummy  gcc  gvar   gi   garg1   garg2      C1h]C|gdummy  gcc  gvar   garg1   garg2   garg3      C     hh]      Cgdummy  dgcc  dgvar   dgi   dgarg1   dgarg2   dgarg3   d  d Ch]145$@45$@45$@45$ @4 5$ @4 5$ @6gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  ~ gfilenamefsrfi/srfi-42/ec.scm 5   g macro-typeg syntax-rulesgpatternsgccgvargarg1gccgvargindexgigarg1gccgvargarg1garg2gccgvargindexgigarg1garg2gccgvargarg1garg2garg3gccgvargindexgigarg1garg2garg3C5R4:;>%&'h ]Cygdummy  gcc  gvar   gi   garg1   garg2      C12467:>D hHr]Cjgdummy  Agcc  Agvar   Agarg1   Agarg2   A  A Ch@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefsrfi/srfi-42/ec.scm X   9 g macro-typeg syntax-rulesgpatternsgccgvargindexgigarg1garg2gccgvargarg1garg2C5R4:;>R]^_h ]Cxgdummy  gcc  gvar   gi   garg1   garg      Chkh_]CWgdummy  gcc  gvar   garg      Cuvxz|} h8r]Cjgdummy  8gcc  8gvar   8garg1   8garg2   8  8 C hP%]45$@45$@45$@ 6gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefsrfi/srfi-42/ec.scm j   P g macro-typeg syntax-rulesgpatternsgccgvargindexgigarg1gargg...gccgvargarggccgvargarg1garg2C5R4:;>h ]Cgdummy  gcc  gvar   gi   gdispatch   garg1   garg      C, hH]    Cgdummy  Agcc  Agvar   Agdispatch   Agarg1   Agarg   A  A Ch@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefsrfi/srfi-42/ec.scm ~   9 g macro-typeg syntax-rulesgpatternsgccgvargindexgigdispatchgarg1gargg...gccgvargdispatchgarg1gargg...C5R4:;>hM]CEgdummy  gg  garg      C f h:]C2gtmp-46961e513b-3ec     ChZ]CRgtmp-46961e513b-3f1  gtmp-46961e513b-3f0    ChZ]CRgtmp-46961e513b-3ee  gtmp-46961e513b-3ed    C !h, 3 4445545     4454    4 555 5Cgdummy  gvar  gobs   goc   glv   gli   gne1?   gi   gv   gic  gne2?  gls     Cy,h>]C6gdummy  gvar     C hPs]45$@45$@45$@ 6kgx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefsrfi/srfi-42/ec.scm    P g macro-typeg syntax-rulesgpatternsgggargg...gvarg:dogletgobsgocg...glvglig...gne1?gletgigvg...gicg...gne2?glsg...gvarC5Rd-hp?]4L54L5$K$B(($"$"64L54L56C$CC7gargs  pgg1  pgg2   pgfilenamefsrfi/srfi-42/ec.scm               &   +   /   :  , =   A   L  , N   R   U  5 X  9 Z  5 [  > ^  B `  > b   k    p Ch]OCzgd1  gd2  gfilenamefsrfi/srfi-42/ec.scm    gnamegdispatch-unionC R./h m] M'MNMMNCCegempty  gvalue  gfilenamefsrfi/srfi-42/ec.scm     C0vh(m] MM$4LM5NMMNCCegempty  %gvalue  "gfilenamefsrfi/srfi-42/ec.scm    % Ch(m] MM$LMNMMNCCegempty  !gvalue  gfilenamefsrfi/srfi-42/ec.scm    ! Ch(m] MM$M MNMMNCCegempty  #gvalue  gfilenamefsrfi/srfi-42/ec.scm    # C1i~h m] 4M5#M4LL5NCCegempty  gvalue  gfilenamefsrfi/srfi-42/ec.scm    Ch m] ML$ MMNCCegempty  gvalue gfilenamefsrfi/srfi-42/ec.scm     C~h m] 4M5#M4LL5NCCegempty  gvalue  gfilenamefsrfi/srfi-42/ec.scm    C25;h(m] ML$4M5NMMNCCegempty  #gvalue  gfilenamefsrfi/srfi-42/ec.scm    # Ch(m] MM$M MNMMNCCegempty  #gvalue  gfilenamefsrfi/srfi-42/ec.scm    # Ch m] ML$ MMNCCegempty  gvalue gfilenamefsrfi/srfi-42/ec.scm     ChPm] MM$""M("MNMN4M5N N$MMNMMNCCegempty  Lgvalue ? Igfilenamefsrfi/srfi-42/ec.scm    L Ch(m] MM$4LM5NMMNCCegempty  %gvalue  "gfilenamefsrfi/srfi-42/ec.scm    % Cdh m] M'MNMMNCCegempty  gvalue  gfilenamefsrfi/srfi-42/ec.scm     Ch(m] MM$MLMNMMNCCegempty  $gvalue  !gfilenamefsrfi/srfi-42/ec.scm    $ C[ceh m] MM#MMLNCCegempty  gvalue gfilenamefsrfi/srfi-42/ec.scm     ChPm] MM$""M("MNMN4M5N N$MMNMMNCCegempty  Lgvalue ? Igfilenamefsrfi/srfi-42/ec.scm    L Ch(m] MM$4LM5NMMNCCegempty  %gvalue  "gfilenamefsrfi/srfi-42/ec.scm    % Ch m] M'MNMMNCCegempty  gvalue  gfilenamefsrfi/srfi-42/ec.scm     Ch(](C45$ "Cgpred  %gargs  %gfilenamefsrfi/srfi-42/ec.scm          "         ) #    % gnamegevery?C3h m] M'MNMMNCCegempty  gvalue  gfilenamefsrfi/srfi-42/ec.scm     Ch(m] MM$4LM5NMMNCCegempty  %gvalue  "gfilenamefsrfi/srfi-42/ec.scm    % C4 5h m] M'MNMMNCCegempty  gvalue  gfilenamefsrfi/srfi-42/ec.scm     C1h ]I45 $C $S$HHOC45$ H45K HHOC$ H45K HHOC"4 5$ HH"4  J >"G"4 J5$""4 J5$$4 5$ 4 J5K""J K HHOC45$45HOCC45$4 5$ HOC"$"  $&"/45$"45$45HOCCC"?45$045$!4545HHOC"""4 5$4 5$ HH"4  J >"G"4 J5$""4 J5$$4 5$ 4 J5K""J K HHOC"""J45$;4 5$,45$4 5$HOC"""""@$5$* 45HHH HHOC"v"r":45$+45 H45K HHOC"$#$45HH OC"" $\"4 5$4 5$4 5$ HH"4  J>"G"4 J5$""4 J5$54 5$"4 5$ 4 J5K""JK HH!OCCCC"45$4 5$45$y4 5$j45$[4 5$L H $4 ">"G"4# 4$55KH%OC"""""""M$B$7$, 45HHH HH & OC"" " "K45$<45$-45 H45K HH'OC"h"d$0$%$45HH(OC""~"z)OQ4*5$4?HH+OC45$)4? H45K HH,OC4-5$44./5?HH0OCC gargs  gkey ga1  ! qgt  , ;gvar  / ;glen  G fgi  S fgvar  V fglen  n gi  z gvar  } ga   gistop   gt  gi    gvar    g read-proc  - Dgvar  6 Dgvar  ] iga1   ga2   gvar   gimax   gi   gvar   ga   gistop   gt  a hgi   gvar   gvar   gvec   ,glen   ,gvecs   ,gk   ,gvar   ,gstr  M nglen  M ngi  [ ngvar  ^ ngt   gvar   ga1   ga2   ga3   ga   zgistop   zgt  - Egi  e zgvar  h zgstop   gvar   gvec  S oglen  S ogvecs  S ogk  Z ogvar ] ogstr   glen   gi   gvar   gt   gvar   gevery?   gt  & 5gvar  ) 5gstr  J kglen  J kgi  X kgvar  [ kgt   gvar   Hgfilenamefsrfi/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   #      Chj]Cbgfilenamefsrfi/srfi-42/ec.scm     gnamegmake-initial-:-dispatchC(R4(i56R6ha]CYgfilenamefsrfi/srfi-42/ec.scm     gnameg:-dispatch-refC R76h0]45$"4>"G Cgdispatch  +gfilenamefsrfi/srfi-42/ec.scm !  " "   #   #  #  ) $   + gnameg:-dispatch-set!CR4: ;>EPQRh ]Cxgdummy  gcc  gvar   gi   garg1   garg      Cj\]hq]Cigdummy  gcc  gvar   garg1   garg      Ch@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefsrfi/srfi-42/ec.scm '   9 g macro-typeg syntax-rulesgpatternsgccgvargindexgigarg1gargg...gccgvargarg1gargg...C5 R4:%;>j{|fh(,345Cgdummy  (gx0  (gq1   (gq   (getc1   (getc2   (getc3   (getc   (  ( C~h(,3Cgdummy  "gx0  "gq1   "gq2   "getc1   "getc2   "getc3   "getc   "  " Chu]Cmgdummy  gx0  g expression   gf1   gf2      C1hP]      Cgdummy  Pgx0  Pg qualifier   Pg expression   Pgf1   Pgf2   P  P C hh]!45$@45$@45$@45$ @  6gx  ggtmp ggtmp  " ggtmp  9 ggtmp  P ggfilenamefsrfi/srfi-42/ec.scm 3   g g macro-typeg syntax-rulesgpatternsgx0gnestedgq1g...gqgetc1getc2getc3getcg...gx0gq1gq2getc1getc2getc3getcg...gx0g expressiongf1gf2gx0g qualifierg expressiongf1gf2C5%R4:$;>fh(]45Cgdummy  !gx0  !gq1   !gq   !getc1   !getc2   !getc   !  ! C}h ]Cgdummy  gx0  gq1   gq2   getc1   getc2   getc      Che]C]gdummy  gx0  g expression   gf2      Ch0|]Ctgdummy  *gx0  *g qualifier   *g expression   *gf2   *  * C hh]!45$@45$@45$@45$ @  6gx  ggtmp ggtmp  " ggtmp  9 ggtmp  P ggfilenamefsrfi/srfi-42/ec.scm G   g g macro-typeg syntax-rulesgpatternsgx0gnestedgq1g...gqgetc1getc2getcg...gx0gq1gq2getc1getc2getcg...gx0g expressiongf2gx0g qualifierg expressiongf2C5$R4:';>h  fh P]45CHgdummy  getc1  getc      Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-42/ec.scm Z   " g macro-typeg syntax-rulesgpatternsgetc1getcg...C5'R4:;>h!"#hP]CHgdummy  getc1  getc      Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-42/ec.scm f   " g macro-typeg syntax-rulesgpatternsgetc1getcg...C5R4:-;>h23hP]CHgdummy  getc1  getc      Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-42/ec.scm k   " g macro-typeg syntax-rulesgpatternsgetc1getcg...C5-R4:,;>hABChP]CHgdummy  getc1  getc      Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-42/ec.scm w   " g macro-typeg syntax-rulesgpatternsgetc1getcg...C5,R4:/;>hRShP]CHgdummy  getc1  getc      Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-42/ec.scm |   " g macro-typeg syntax-rulesgpatternsgetc1getcg...C5/R4:0;>`lmfh ~]45Cvgdummy  gk  gq1   gq   getc1   getc      C,xyh]Cwgdummy  gk  gq1   gq2   getc1   getc      CDhT]CLgdummy  gk  g expression      Ch@k]     Ccgdummy  <gk  <g qualifier   <g expression   <  < C hhh]!45$@45$@45$@45$ @  6`gx  ggtmp ggtmp  " ggtmp  9 ggtmp  P ggfilenamefsrfi/srfi-42/ec.scm    g g macro-typeg syntax-rulesgpatternsgkgnestedgq1g...gqgetc1getcg...gkgq1gq2getc1getcg...gkg expressiongkg qualifierg expressionC50R4:.;>hfhP]45CHgdummy  getc1  getc      Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-42/ec.scm    " g macro-typeg syntax-rulesgpatternsgetc1getcg...C5.R4:+;>hfhP]45CHgdummy  getc1  getc      Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-42/ec.scm    " g macro-typeg syntax-rulesgpatternsgetc1getcg...C5+R4:*;>hfhP]45CHgdummy  getc1  getc      Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-42/ec.scm    " g macro-typeg syntax-rulesgpatternsgetc1getcg...C5*R4:);>hfhP]45CHgdummy  getc1  getc      Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-42/ec.scm    " g macro-typeg syntax-rulesgpatternsgetc1getcg...C5)R4:&;>   fh ]45C|gdummy  gdefault  gq1   gq   getc1   getc      C,  h]C}gdummy  gdefault  gq1   gq2   getc1   getc      CD $ &hZ]CRgdummy  gdefault  g expression      C 0 1 2 3 4h(q]Cigdummy  $gdefault  $g qualifier   $g expression   $  $ C hh]!45$@45$@45$@45$ @  6xgx  ggtmp ggtmp  " ggtmp  9 ggtmp  P ggfilenamefsrfi/srfi-42/ec.scm    g g macro-typeg syntax-rulesgpatternsgdefaultgnestedgq1g...gqgetc1getcg...gdefaultgq1gq2getc1getcg...gdefaultg expressiongdefaultg qualifierg expressionC5&R4:#;> A L Mfh ]45C|gdummy  gdefault  gq1   gq   getc1   getc      C, W Xh]C}gdummy  gdefault  gq1   gq2   getc1   getc      CD ` bhZ]CRgdummy  gdefault  g expression      C k l p r m s t u x y h8q]  Cigdummy  1gdefault  1g qualifier   1g expression   1  1 C hh]!45$@45$@45$@45$ @  6xgx  ggtmp ggtmp  " ggtmp  9 ggtmp  P ggfilenamefsrfi/srfi-42/ec.scm    g g macro-typeg syntax-rulesgpatternsgdefaultgnestedgq1g...gqgetc1getcg...gdefaultgq1gq2getc1getcg...gdefaultg expressiongdefaultg qualifierg expressionC5#R4: q;>   fhp]45Chgdummy  gstop  gq1   gq2   gcmd      C    hq]Cigdummy  gstop  gtest   gq   gcmd      C     h q]Cigdummy  gstop  gtest   gq   gcmd      C     h q]Cigdummy  gstop  gtest   gq   gcmd      C     h q]Cigdummy  gstop  gtest   gq   gcmd      C  f  h p]45Chgdummy  gstop  getc   gq   gcmd      C     h p]Chgdummy  gstop  ggen   gq   gcmd      C  hP]CHgdummy  gstop  gcmd     Ch]A45$@45$@45$@45$ @4 5$ @4 5$ @45$@45$@6gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  ~ gtmp  gtmp   gfilenamefsrfi/srfi-42/ec.scm    g macro-typeg syntax-rulesgpatternsgstopgnestedgnestedgq1g...gq2g...gcmdgstopgnestedgifgtestgqg...gcmdgstopgnestedgnotgtestgqg...gcmdgstopgnestedgandgtestg...gqg...gcmdgstopgnestedgorgtestg...gqg...gcmdgstopgnestedgbegingetcg...gqg...gcmdgstopgnestedggengqg...gcmdgstopgnestedgcmd C5 qR4:;>   fh o]45Cggdummy  gq1  gq   getc1   getc      Cj ' (hp]Chgdummy  gq1  gq2   getc1   getc      Cy 0 2hE]C=gdummy  g expression    CD ; < = ?h\]CTgdummy  g qualifier  g expression      C hhT]!45$@45$@45$@45$ @  6Lgx  ggtmp ggtmp  " ggtmp  9 ggtmp  P ggfilenamefsrfi/srfi-42/ec.scm    g g macro-typeg syntax-rulesgpatternsgnestedgq1g...gqgetc1getcg...gq1gq2getc1getcg...g expressiong qualifierg expressionC5R4:";> K U Vfh o]45Cggdummy  gq1  gq   getc1   getc      Cj _ `hp]Chgdummy  gq1  gq2   getc1   getc      Cy g ihE]C=gdummy  g expression    CD q r s t vh \]CTgdummy  g qualifier  g expression      C hhT]!45$@45$@45$@45$ @  6Lgx  ggtmp ggtmp  " ggtmp  9 ggtmp  P ggfilenamefsrfi/srfi-42/ec.scm    g g macro-typeg syntax-rulesgpatternsgnestedgq1g...gqgetc1getcg...gq1gq2getc1getcg...g expressiong qualifierg expressionC5"RCgm  (gfilenamefsrfi/srfi-42.scm   ) ? . ?  6 ? & ; ? gfilenamefsrfi/srfi-42/ec.scm A)  f           !  ó C6srfi-10.go000064400000003523151027761750006272 0ustar00GOOF----LE-8-2.0;]'4h] gguile  gdefine-module*   gsrfi gsrfi-10  gfilenameS fsrfi/srfi-10.scm gimportsS gice-9 grdelim      gexportsS gdefine-reader-ctor  gset-current-module   gcond-expand-provide gcurrent-module  gmake-hash-table g reader-ctors g hashq-set! g hashq-ref g procedure? gerror funknown hash-comma tag  !glookup "gread #f%syntax error in hash-comma expression $glength %g hash-comma &gread-hash-extendC5h]4   54>"G4i4i5>"G4i 5Rh ]4>"GCgsymbol  gproc  gfilenamefsrfi/srfi-10.scm =  >    gnamegdefine-reader-ctorCR h(] 4545$C6gsymbol  $gp $gfilenamefsrfi/srfi-10.scm D  E E   F   F  H  $ H   $ gnameglookupC!R"#$!hP6]45"6$.45 $$45@""".gchar  Ngport  Ngobj  Ngp  9 Bgfilenamefsrfi/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 gnameg hash-commaC%R&i,%i6gm  ,gfilenamefsrfi/srfi-10.scm  / - 3 2 3  : 3 & ? 3 H 8  S 8  =  D  L  V    C6srfi-37.go000064400000072526151027761750006314 0ustar00GOOF----LE-8-2.0>u]4h6:] gguile  gdefine-module*   gsrfi gsrfi-37  gfilenameS fsrfi/srfi-37.scm gimportsS gsrfi-9      gexportsS goption g option-names goption-required-arg? goption-optional-arg? goption-processor g args-fold  gset-current-module   gcond-expand-provide gcurrent-module  gsrfi-37:option g%option-procedure gmake-syntax-transformer !  "  #gmacro $g $sc-dispatch %$ &$ 'g_ (gany )'(((( *g syntax-object +glambda ,gm-46961e511b-153 -gtop .,- /gribcage 0gt-46961e511b-14f 1gt-46961e511b-150 2gt-46961e511b-151 3gt-46961e511b-152 40123 5.... 6fl-46961e511b-158 7fl-46961e511b-159 8fl-46961e511b-15a 9fl-46961e511b-15b :6789 ;/45: </ =gx >= ?. @fl-46961e511b-155 A@ B/>?A Cgshift Dg proc-name Egargs FDE G- HGG Ifl-1e8ba8b5a-2ba Jfl-1e8ba8b5a-2bb KIJ L/FHK Mgkey Ngvalue Ogname Pgformals Qgbody RMNOPQ SGGGGG Tfl-1e8ba8b5a-2ad Ufl-1e8ba8b5a-2ae Vfl-1e8ba8b5a-2af Wfl-1e8ba8b5a-2b0 Xfl-1e8ba8b5a-2b1 YTUVWX Z/RSY [gmake-procedure-name \[ ]G ^fl-1e8ba8b5a-29d _^ `/\]_ aG bfl-1e8ba8b5a-29c cb d/>ac e.;<BC<<<<LZ`d  fghygiene gf  h*+eg ignames jG;<B kf l*ijk mg required-arg? n*mjk og optional-arg? p*ojk qg processor r*qjk slnpr tg make-struct ugm-46961e511b-14d vu- wgt-1e8ba8b5a-38d xgt-1e8ba8b5a-38c ygt-1e8ba8b5a-38b zwxy {gm-1e8ba8b5a-38e |{- }||| ~fl-1e8ba8b5a-392 fl-1e8ba8b5a-393 fl-1e8ba8b5a-394 ~ /z} g ctor-args  fl-1e8ba8b5a-37a  /a gctor gfield  fl-1e8ba8b5a-376 fl-1e8ba8b5a-377  /H gform g type-name gconstructor-spec g field-names  GGGG fl-1e8ba8b5a-36b fl-1e8ba8b5a-36c fl-1e8ba8b5a-36d fl-1e8ba8b5a-36e  / 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  / fl-1e8ba8b5a-334  />a v;<BC<<<<< *tg *jk * g lnpr hs geach-any ' gsyntax-violation     fWrong number of arguments g identifier?     G<B *k   f-source expression failed to match any pattern grecord-type-vtable     gpwpwpwpw gdefault-record-printer     imoq gset-struct-vtable-name!     gvtable-offset-user     g%option?-procedure goption? '( gm-46961e511b-166 - gt-46961e511b-165   fl-46961e511b-16b  / fl-46961e511b-168  /> <C<<<<LZ`d  *+g 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  / g copier-id  fl-1e8ba8b5a-476  /a g ctor-name  fl-1e8ba8b5a-46e  /a  fl-1e8ba8b5a-46c  /a glayout   fl-1e8ba8b5a-46a     /a   g immutable?    fl-1e8ba8b5a-468  / a g field-count  fl-1e8ba8b5a-466  /a g getter-ids  fl-1e8ba8b5a-463  /a g field-ids  fl-1e8ba8b5a-460  /a  gpredicate-name !g field-spec "  ! #GGGGGG $fl-1e8ba8b5a-453 %fl-1e8ba8b5a-454 &fl-1e8ba8b5a-455 'fl-1e8ba8b5a-456 (fl-1e8ba8b5a-457 )fl-1e8ba8b5a-458 *$%&'() +/"#* ,v<C<<<<<<<< <<<<+ -*,g .- /gand 0*/,g 1gstruct? 2*1,g 32- 4geq? 5*4,g 6g struct-vtable 7*6,g 87- 9G< :*9k ;58: <03; =.< >G< ?*>k @gthrow-bad-struct A @ B @ Cg%option-names-procedure Dgfree-id Eg %%on-error Fgm-46961e511b-172 GF- HG Ifl-46961e511b-174 JI K/>HJ LG<KC<<<<LZ`d  M*ELg NDM ON( Pg%%type Qgt-1e8ba8b5a-3a5 Rgt-1e8ba8b5a-3a6 Sgt-1e8ba8b5a-3a7 Tgt-1e8ba8b5a-3a8 Ugt-1e8ba8b5a-3a9 Vgt-1e8ba8b5a-3aa Wgt-1e8ba8b5a-3ab XQRSTUVW Ygm-1e8ba8b5a-3ac ZY- [ZZZZZZZ \fl-1e8ba8b5a-3b0 ]fl-1e8ba8b5a-3b1 ^fl-1e8ba8b5a-3b2 _fl-1e8ba8b5a-3b3 `fl-1e8ba8b5a-3b4 afl-1e8ba8b5a-3b5 bfl-1e8ba8b5a-3b6 c\]^_`ab d/X[c eggetter fgindex gef hfl-1e8ba8b5a-3a3 ifl-1e8ba8b5a-3a4 jhi k/gHj l mGGG nfl-1e8ba8b5a-39e ofl-1e8ba8b5a-39f pfl-1e8ba8b5a-3a0 qnop r/lmq sv<KC<d<<<k<r t*Psg uDt v'Ou( wgck xgerr ygs zxy {GG |fl-46961e511b-177 }fl-46961e511b-178 ~|} /z{~ G<KC<<<<LZ`d  *wg gquote *g G<K *k   g%%index *sg D 'O( fl-46961e511b-17c fl-46961e511b-17d  /z{ G<KC<<<<LZ`d  *wg *g <K * k   g%%copier *sg D 'O( fl-46961e511b-181 fl-46961e511b-182  /z{ G<KC<<<<LZ`d  *wg *g g%%srfi-37:option-set-fields G<K *k   gt-46961e511b-171  fl-46961e511b-186  /H G<KC<<<<LZ`d  *+g v<KC<d<<<k<r *yg  gif *g *4g *6g  G<K *k  g struct-ref *g <K * k  *@g *g *k     G<K *Ck g%option-required-arg?-procedure gm-46961e511b-18d -  fl-46961e511b-18f  /> <C<<<<LZ`d  *Eg D ( v<C<d<<<k<r *Pg D '(  fl-46961e511b-192 fl-46961e511b-193  /z <C<<<<LZ`d  *wg *g G< *k   *g D '( fl-46961e511b-197 fl-46961e511b-198  /z <C<<<<LZ`d  *wg *g < * k   *g D '( fl-46961e511b-19c fl-46961e511b-19d  /z <C<<<<LZ`d  *wg *g G< *k   gt-46961e511b-18c  fl-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 gm-46961e511b-1a8 -   fl-46961e511b-1aa !  "/>! #<"C<<<<LZ`d  $*E#g %D$ &%( 'v<"C<d<<<k<r (*P'g )D( *'&)( + ,fl-46961e511b-1ad -fl-46961e511b-1ae .,- //z+. 0/<"C<<<<LZ`d  1*w0g 2*0g 3G/<" 4*3k 524 65 7*'g 8D7 9'&8( :fl-46961e511b-1b2 ;fl-46961e511b-1b3 <:; =/z+< >=<"C<<<<LZ`d  ?*w>g @*>g A=<" B* Ak C@B DC E*'g FDE G'&F( Hfl-46961e511b-1b7 Ifl-46961e511b-1b8 JHI K/z+J LK<"C<<<<LZ`d  M*wLg N*Lg OGK<" P*Ok QNP RQ Sgt-46961e511b-1a7 TS Ufl-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 rgm-46961e511b-1c3 sr- ts ufl-46961e511b-1c5 vu w/>tv xs<wC<<<<LZ`d  y*Exg zDy {z( |v<wC<d<<<k<r }*P|g ~D} '{~( ss fl-46961e511b-1c8 fl-46961e511b-1c9  /z s<wC<<<<LZ`d  *wg *g G<w *k   *|g D '{( fl-46961e511b-1cd fl-46961e511b-1ce  /z s<wC<<<<LZ`d  *wg *g <w * k   *|g D '{( fl-46961e511b-1d2 fl-46961e511b-1d3  /z s<wC<<<<LZ`d  *wg *g G<w *k   gt-46961e511b-1c2  fl-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 geach ((  (Ȍ (Ɍ (ʌ g %%set-fields gdummy gcheck? gexpr ye gm-46961e511b-1de - vvvv fl-46961e511b-1e3 fl-46961e511b-1e4 fl-46961e511b-1e5 fl-46961e511b-1e6 fl-46961e511b-1e7  /  fl-46961e511b-1e0  /> gt-1e8ba8b5a-3c4 gt-1e8ba8b5a-3c6 gt-1e8ba8b5a-3c5  gm-1e8ba8b5a-3c7 -  fl-1e8ba8b5a-3cb fl-1e8ba8b5a-3cc fl-1e8ba8b5a-3cd  / fl-1e8ba8b5a-3c1 fl-1e8ba8b5a-3c2 fl-1e8ba8b5a-3c3  /lm v<C<<<<  *g G< *k *k *k *k *k  gmap   glist g scm-error g program-error f args-fold fDuplicate option name `~A~A' gchar? f-- gerror-duplicate-option gmake-hash-table glength gfor-each ghash-create-handle! gbuild-options-lookup  gappend  g string-length  g substring  g string-ref  ghash-ref g misc-error f%Missing required argument after `-~A' gchar=? g string-index f&Missing required argument after `--~A' f Extraneous argument after `--~A'C5h(7]4   54>"G4i4i5>"Gh]Cgnames  g required-arg?  g optional-arg?   g processor   gfilenamefsrfi/srfi-37.scm E    gnameg%option-procedureCR4"#&)h]Cgt-46961e511b-14f  gt-46961e511b-150  gt-46961e511b-151   gt-46961e511b-152      ChS]L6Kga  gfilenamefsrfi/srfi-37.scm  E   C'hC]L6;gfilenamefsrfi/srfi-37.scm  E    Ch]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-37.scm E   n C5Rͨ4>"G ӖiRhs]$CCkgobj  gfilenamefsrfi/srfi-37.scm E    gnameg%option?-procedureCR4"#&=h8]C0gt-46961e511b-165    ChS]L6Kga  gfilenamefsrfi/srfi-37.scm  E   C'hC]L6;gfilenamefsrfi/srfi-37.scm  E    C?h]C   C hp]45$@45$ O@45$4O?$@  6  6|gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-37.scm E   n C5RBhv]& C6ngs  gfilenamefsrfi/srfi-37.scm E    gnameg%option-names-procedureCCR4"#&vh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch8]C0gt-46961e511b-171    ChS]L6Kga  gfilenamefsrfi/srfi-37.scm  E   C'hC]L6;gfilenamefsrfi/srfi-37.scm  E    Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-37.scm E   C5RBh~]& C6vgs  gfilenamefsrfi/srfi-37.scm E    gnameg%option-required-arg?-procedureCR4"#&h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch8]C0gt-46961e511b-18c    ChS]L6Kga  gfilenamefsrfi/srfi-37.scm  E   C'hC]L6;gfilenamefsrfi/srfi-37.scm  E    Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-37.scm E   C5RBh ~]& C6vgs  gfilenamefsrfi/srfi-37.scm E    gnameg%option-optional-arg?-procedureCR4"#&*16h:]C2gerr  gs    C9?Dh:]C2gerr  gs    CGMRh:]C2gerr  gs    Cnh8]C0gt-46961e511b-1a7    ChS]L6Kga  gfilenamefsrfi/srfi-37.scm  E   C'hC]L6;gfilenamefsrfi/srfi-37.scm  E    Cph]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-37.scm E   C5RBh z]& C6rgs  gfilenamefsrfi/srfi-37.scm E    gnameg%option-processor-procedureCqR4"#&h:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch8]C0gt-46961e511b-1c2    ChS]L6Kga  gfilenamefsrfi/srfi-37.scm  E   C'hC]L6;gfilenamefsrfi/srfi-37.scm  E    Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-37.scm E   C5R4"#&h v]45Cngdummy  gcheck?  gs   ggetter   gexpr      Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-37.scm E   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5Rh(]45$-"6g option-name  %gfilenamefsrfi/srfi-37.scm M  N  N  O P   P   P / " P % N   % gnamegerror-duplicate-optionCRh(] 4L5$6LCgname  #gassoc #gfilenamefsrfi/srfi-37.scm [   \ \   ^   ^   _ 1  _  ! `   # CBh0e]LO& " 456]gopt  )gfilenamefsrfi/srfi-37.scm Z   a  ) [   ) Ch0k] 4 4554O>"GCcgoptions  /glookup  /gfilenamefsrfi/srfi-37.scm T  X   X &  X !  X   X   Y   / gnamegbuild-options-lookupg documentationfAnswer 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 hS]L4LM5@Kgfilenamefsrfi/srfi-37.scm q   r )  r    Chq]&  " 45& " 45$ 45"9&  " 45$ 45"4>"G44LO>5"=NCigopt  gname  g req-arg-proc   g opt-arg-proc   g no-arg-proc   g procedure  gparams  gfilenamefsrfi/srfi-37.scm     $  ?  @ ) K  g  h ) q   p  p   gnameginvoke-option-processorC  hP{] 4M5$4M5MNCM$MMNCM$MNCCsgposition  Ngresult  'gresult 3 >gfilenamefsrfi/srfi-37.scm      -        &  1    "  $  *  + /  2  3 8  ;  A E  H  J   N gnamegshort-option-argumentC   h(]4LL5$CL6gt (gargs  (gfilenamefsrfi/srfi-37.scm        m  ! m  # ! ( m   ( ChM]LL6Egfilenamefsrfi/srfi-37.scm      ChD]C<gfilenamefsrfi/srfi-37.scm    CB hS]L4LM5@Kgfilenamefsrfi/srfi-37.scm q   r )  r    C h]4M5$ MNL64M54L5$~4LLOLO>"G& " 4 5$"&  " 4 5$C"ML4 4 LLO>5"=N"gposition  gopt-name $ g option-here  / gt  { gnames  gparams  gfilenamefsrfi/srfi-37.scm    &          ' $  $ '  / 7 8  d {   %  * "  p  p  !   gnameg short-optionC   hS]L4LM5@Kgfilenamefsrfi/srfi-37.scm q   r )  r    C hS]L4LM5@Kgfilenamefsrfi/srfi-37.scm q   r )  r    Ch(] 44LLO>5"=NCxgarg  (gparams  (gfilenamefsrfi/srfi-37.scm w   w  p  & p   ( C   h(]L$ LL6L6gargs  %gfilenamefsrfi/srfi-37.scm     &      m   m   % m   % C h_]L$ LL6CWgfilenamefsrfi/srfi-37.scm     6  '   Ch ]L$L6Cgargs gfilenamefsrfi/srfi-37.scm      m   m     m    C hS]L4LM5@Kgfilenamefsrfi/srfi-37.scm q   r )  r    ChA]8M(MEM4-4 55$" 45$044LLO>5"=NMN"@4-4 55$ 45$'MN4LLOM>"GN"M"4=54  $"4554 L5$54L O O O>"hG"a$ "L44LLO>5"=N" ".MN"4L >"G"P9garg  gt ! :gparams C egarg g start-pos  gindex  gopt-name  g option-here  gnames  D Tgparams  Z  gfilenamefsrfi/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           :   gnamegnext-argChJ-13 HH45OOOO QQ Q Q  6Bgargs  |goptions  |gunrecognized-option-proc   |g operand-proc   |gseeds   |glookup   |ginvoke-option-processor  H |gshort-option-argument  H |g short-option  H |gnext-arg H | gfilenamefsrfi/srfi-37.scm e  j   j  |  |  gnameg args-foldg documentationfAnswer 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.CRCgm  ,grtd  >gfilenamefsrfi/srfi-37.scm  * - 0 2 0  : 0 & ? 0 , E  M ! T 7% e   7' C6srfi-9/gnu.go000064400000032341151027761750007013 0ustar00GOOF----LE-8-2.04]R4hh] gguile  gdefine-module*   gsrfi gsrfi-9 ggnu  gfilenameS fsrfi/srfi-9/gnu.scm gimportsS gsrfi-1    gsystem gbase gck    gexportsS gset-record-type-printer! gdefine-immutable-record-type g set-field g set-fields  gset-current-module   gvtable-index-printer gmake-syntax-transformer !  "  #gmacro $g $sc-dispatch %$ &$ 'gany (geach-any )'( *') +'* ,'+ -g syntax-object .g@@ /gtop 0/ 1gribcage 2gdummy 3gname 4gctor 5gpred 6gfields 723456 8gm-1e8bcc284-11e 98/ :90000 ;fl-1e8bcc284-123 fl-1e8bcc284-126 ?fl-1e8bcc284-127 @;<=>? A17:@ B1 Cgx DC E9 Ffl-1e8bcc284-120 GF H1DEG I0ABH Jghygiene KJ L-.IK M-IK N-IK OMN Pg%define-record-type Q-PIK RLOQ S-IK T-IK Ugsyntax-violation VU WU Xf-source expression failed to match any pattern Y''(' Zg %set-fields [gs \ggetter ]gexpr ^2[\] _gm-1e8bcc284-130 `_/ a`000 bfl-1e8bcc284-135 cfl-1e8bcc284-136 dfl-1e8bcc284-137 efl-1e8bcc284-138 fbcde g1^af h` ifl-1e8bcc284-132 ji k1Dhj l0gBk m-ZlK n-lK o-lK p'' q'p rgrest s2[r tgm-1e8bcc284-140 ut/ vu00 wfl-1e8bcc284-145 xfl-1e8bcc284-146 yfl-1e8bcc284-147 zwxy {1svz |u }fl-1e8bcc284-142 ~} 1D|~ 0{B -ZK -K -K geach p'  gfold gfind gfree-identifier=? gdelq gcollate-set-field-specs gunknown-getter g_ '' funknown getter gc-list gfree-id gquote 0 fl-1e8bcc284-175  1D 0B -K  '  '  gv [ 00 fl-1e8bcc284-178 fl-1e8bcc284-179  1 0B -K -K gc-same-type-check fl-1e8bcc284-17e  1D 0B -K  ' ( ) ' gevery gformat f\field paths ~a and ~a require one object to belong to two different record types (~a and ~a) g syntax->datum gappend   g orig-form gpath ggetter0 gtype0 gtype g on-success [\ 00000000 fl-1e8bcc284-1a3 fl-1e8bcc284-1a4 fl-1e8bcc284-1a5 fl-1e8bcc284-1a6 fl-1e8bcc284-1a7 fl-1e8bcc284-1a8 fl-1e8bcc284-1a9 fl-1e8bcc284-1aa  1 0B -K -K fl-1e8bcc284-1b4  1D 0BB -.K -K -K  g getter-type -K  g getter-index -K  g getter-copier -K  ''' ''(' ' ''(' ' (䌤 '匤 '挤 猤 gmap   gcar \ fl-1e8bcc284-1ea fl-1e8bcc284-1eb  1 gcollated-specs  fl-1e8bcc284-1e2  1 gcheck? g path-so-far g struct-expr ghead gtail ] 0000000 fl-1e8bcc284-1d4 fl-1e8bcc284-1d5 fl-1e8bcc284-1d6 fl-1e8bcc284-1d7 fl-1e8bcc284-1d8 fl-1e8bcc284-1d9 fl-1e8bcc284-1da  1  000  fl-1e8bcc284-1b8  fl-1e8bcc284-1b9  fl-1e8bcc284-1ba       1  0BBBBB BB  -K ''  ' ] fl-1e8bcc284-202 fl-1e8bcc284-203 fl-1e8bcc284-204  1 gspec  fl-1e8bcc284-1fe  1 gerr   fl-1e8bcc284-1f0 !  "1! #0BBBBBBB"BBBBB BB $-#K %fl-1e8bcc284-20a &% '1& (0B'BBBBBBB"BBBBB BB )-Z(K *g struct-ref +-*(K ,-[(K --(K .-(K /glist 0gt-1e8bcc284-1f2 10 2gm-1e8bcc284-1f3 32/ 43 5fl-1e8bcc284-1f7 65 71146 80B7BBB"BBBBB BB 9-8K :-8K ;-8K <-8K =glet >-=8K ?-[8K @ A@ B'A C(B D'C E'D FE Gfduplicate field path H(' IH J'I K(J L'K M'L NM Of%one field path is a prefix of another Pq Qfinvalid syntaxC5hg]4    54>"Gh]Cgtype  gproc  gfilenamefsrfi/srfi-9/gnu.scm "   gnamegset-record-type-printer!g documentationf(Set PROC as the custom printer for TYPE.CR4"#&,RSTh(w]Cogdummy  #gname  #gctor   #gpred   #gfields   #  # CWXh(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-9/gnu.scm $   " g macro-typeg syntax-rulesgpatternsgnamegctorgpredgfieldsg...C5R4"#&Ymnoh b]CZgdummy  gs  ggetter   gexpr      CWXh(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-9/gnu.scm )   " g macro-typeg syntax-rulesgpatternsgsggetterg...gexprC5R4"#&qh N]CFgdummy  gs  grest      CWXh(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-9/gnu.scm -   " g macro-typeg syntax-rulesgpatternsgsgrestC5R&hi]L6agtree  gfilenamefsrfi/srfi-9/gnu.scm C  D + D   ChH] 4O5$45CCghead  Agtail  Agexpr   Agresult   Agt   Agfilenamefsrfi/srfi-9/gnu.scm B   C  C  ! G  $ H  % G  ' I  0 G  : J   A gnameginsertCh]6~ghead  gtail  gexpr   gfilenamefsrfi/srfi-9/gnu.scm  M   M    CWXh(] 45$@6gspecs  "gtmp "gfilenamefsrfi/srfi-9/gnu.scm A   " gnamegcollate-set-field-specsCR4"#&Uh]6{g orig-form  ggetter  gfilenamefsrfi/srfi-9/gnu.scm  S   S %  S    CWXh(f] 45$@6^gx  "gtmp "gfilenamefsrfi/srfi-9/gnu.scm P   " C5R4"#&h8]C0gs  gv     CWXh(f] 45$@6^gx  "gtmp "gfilenamefsrfi/srfi-9/gnu.scm V   " C5R4"#&WXUhX] 4L5$C444L5544LL55454L55L6gt  Vgg  Vgt  Vgfilenamefsrfi/srfi-9/gnu.scm b   c  c   e   f  g  ! i  2 j  C k  J l  R f  V d   V Ch ,3O6gs  g orig-form  gpath   ggetter0   ggetter   gtype0   gtype   g on-success   gfilenamefsrfi/srfi-9/gnu.scm  b    Ch,3Cgs  g orig-form  gpath   ggetter0   ggetter   gtype0   gtype   g on-success      Ch@f] 45" 6$4?$@""^gx  9gtmp 9gfilenamefsrfi/srfi-9/gnu.scm \   9 C5R4"Z#&&hm]Cegcheck?  g orig-form  g path-so-far   gs      Ch|]Ctgcheck?  g orig-form  g path-so-far   gs   ge      Chw]Cogtmp-1e8bcc284-1e6  gtmp-1e8bcc284-1e5  gtmp-1e8bcc284-1e4     C&)&$)+,-./ hX] LLL4L5L4 5Cghead  Ugtail  Ugexpr   Ugtmp  Ugfilenamefsrfi/srfi-9/gnu.scm #  U CWXh0j] 45$LLLLO@6bgspec  -gtmp -gfilenamefsrfi/srfi-9/gnu.scm   - C&(9:;<;h9]LLC1gtmp-1e8bcc284-1fb     C>? h9]LLLLLLL4LLOL5LLLLLC1gt-1e8bcc284-1f2    CWX hX]L4LLLLOL545$LLLLLLO @6ggetter0  Xggetter  Xgtmp  Xgtmp  ! Xgtmp  , Xgfilenamefsrfi/srfi-9/gnu.scm   !   X CWX hX5]44554545  $LLLO @  6-gcheck?  Tg orig-form  Tg path-so-far   Tg struct-expr   Tghead   Tgtail   Tgexpr   Tgcollated-specs   Tgtmp   Tgtmp * T gfilenamefsrfi/srfi-9/gnu.scm         T CFUGh]6gcheck?  g orig-form  g path-so-far   gs   ge   ge*   gfilenamefsrfi/srfi-9/gnu.scm    '     CNUOh]6gcheck?  g orig-form  g path-so-far   gs   ggetter   gexpr   gfilenamefsrfi/srfi-9/gnu.scm    '     CPUQh]6gcheck?  g orig-form  grest   gfilenamefsrfi/srfi-9/gnu.scm    '   CWXh]34L5$@4L5$@4L5$O@4L5$ @4L 5$ @4L 5$ @L6g getter-type  g getter-index  g getter-copier   gtmp  gtmp  " gtmp  9 gtmp  Y gtmp  p gtmp     CWX h8]45$ O@6wgx  2gtmp 2gtmp   2gfilenamefsrfi/srfi-9/gnu.scm s  t   2 C5ZRC_gm  ,gfilenamefsrfi/srfi-9/gnu.scm   ( @ A   ~ C6srfi-88.go000064400000002574151027761750006316 0ustar00GOOF----LE-8-2.0d]$4hC] gguile  gdefine-module*   gsrfi gsrfi-88  gfilenameS fsrfi/srfi-88.scm gexportsS gkeyword->string gstring->keyword    g re-exportsS gkeyword?  gset-current-module   gcond-expand-provide gcurrent-module  g read-options   gappend   gkeywords gpostfix gsymbol->string !gkeyword->symbol "gsymbol->keyword #gstring->symbolC5h@]4   54>"G4i4i5>"G44455>"G !h]456gk  gfilenamefsrfi/srfi-88.scm (  *  *   gnamegkeyword->stringg documentationf'Return the name of @var{k} as a string.C R"#h]456gs  gfilenamefsrfi/srfi-88.scm ,  .  .   gnamegstring->keywordg documentationf0Return the keyword object whose name is @var{s}.C RCgm  ,gfilenamefsrfi/srfi-88.scm   - 2  : & ? H &  V &  Y &  N ( 7 ,   9 C6srfi-38.go000064400000017670151027761750006314 0ustar00GOOF----LE-8-2.0]U4h] gguile  gdefine-module*   gsrfi gsrfi-38  gfilenameS fsrfi/srfi-38.scm gimportsS grnrs g bytevectors     gsrfi-8   gsrfi-69   gsystem gvm g trap-state    gexportsS gwrite-with-shared-structure gread-with-shared-structure  gset-current-module !  "  #gcond-expand-provide $gcurrent-module % &gcurrent-output-port 'g vector-length (gstring? )g string-length *g bytevector? +gport? ,gdisplay -f( .f) /f .  0ghash-table-ref 1f  2f#( 3gwrite 4gnumber? 5f# 6gcounter 7f= 8ghash-table-set! 9ghash-table-exists? :gmake-hash-table ;geq? g peek-char ?g eof-object? @g list->string Agreverse Bg read-char Cgstring->number Dg char-numeric? Eghash-table-ref/default Fgerror GfDouble declaration of part  Hgread IfUse of undeclared part  JfMalformed shared part specifier Kg with-fluid* Lg%read-hash-procedures Mgfor-each Ngread-hash-extend O0123456789  Pghash-table-size Qgpatch! Rg procedure? Sghole? Tg fill-holeC5h]4   54">"G4#i4$i5%>"G&'()*+h\] $C$45 "$C45$45 "$C45$C$C45$CCTgobj  gt ! gt F gt X gt s gfilenamefsrfi/srfi-38.scm 9   :  :  :   ;  ;   ; '  ;  ;  ! :  - < 7 <  8 < ' ? < A <  F :  R =  X :  f >  j :  k >  m ?  s :   gnameg interesting?C,-./012'345678h@]"_$4L>"G4L>"G"">(L64L>"G4L>"GL6$C45$"4L>"G4L>"G"t"t"g$4L>"G454L >"G"E$L64L>"G4L>"G" " L64L5$45$4 5$04 L>"G4 L>"G L64 54 L>"G4 L>"G4 L>"G4 >"G4>"G"" L6gobj  @gstate  @gobj  : glen  ]gi   Vgval  y 8gn   4gfilenamefsrfi/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 ^  @ gnameg write-objC98'h]4L5$C45$ 64>"G$"4L>"G"$?45"+$C4L>"G" "Cgobj  gstate  gt  glen  w gi  } gfilenamefsrfi/srfi-38.scm ~         "   + , C  G H  M  T  _  i  l  p q  w  }          gnamegscanC:;86 hL-.,3#45#OOQQ454>"G4 >"G6Dgobj goutport goptarg  g interesting?  9 g write-obj  9 gscan  9 gstate  P gfilenamefsrfi/srfi-38.scm .  0 / J  P  S  g  m  s   gnamegwrite-with-shared-structureCR<:=>?@ABhX7]"G4L545$"45$ 4564L5""/gpred  Uginitial  Ugchars   Mgc  Mgt   .gfilenamefsrfi/srfi-38.scm           $ ' + " 2 5  =  >  G  M  M   U gnamegread-some-charsCCDBEFG8h_]LCWgfilenamefsrfi/srfi-38.scm   $   gnamegthunkCHIJ h]*44L55454L5=$P$4>"G"4LO>"G4 5C#$$C 6 6gc  gport  gn   gc   gthunk  ( gcell  U gobj  y gfilenamefsrfi/srfi-38.scm      ?            (  3  9 :  >  E  U  U X s  y        gnameg read-hashCKLMNha]L6Ygdigit  gfilenamefsrfi/srfi-38.scm    COHPQhP]4LO>"G4L5 4L5$4>"G"Cgresult " Jgfilenamefsrfi/srfi-38.scm          "  &  -  1 2   J C hX-.,3#4545OOQQ[O6gport Sg parts-table Sgread-some-chars  3 Sg read-hash  3 Sgfilenamefsrfi/srfi-38.scm  6    S  S gnamegread-with-shared-structureCRRhn]6fgx  gfilenamefsrfi/srfi-38.scm     gnameghole?CSRSTh ]45$ 456Cgx  gfilenamefsrfi/srfi-38.scm     /  $   gnameg fill-holeCTRSTQ'h]$N45$45"4>"G45$ 45C6$\"J $C45$45"4>"G"45"Cgx  gi b gelt  q gfilenamefsrfi/srfi-38.scm            $  /  $  % 9 * A / 9 8  =  ?  C  F $ K / M $ N  U A W 9 Z  ^  b  f j  q  q  t ~   $   *  gnamegpatch!CQRCgm  ,gfilenamefsrfi/srfi-38.scm   - " 2 "  : " & ? "  .  A      C6srfi-14.go000064400000004707151027761750006303 0ustar00GOOF----LE-8-2.0 ]Z4h ] gguile  gdefine-module*   gsrfi gsrfi-14  gfilenameS fsrfi/srfi-14.scm gset-current-module     gcall-with-deferred-observers   gmodule-re-export!   gcurrent-module   g char-set? g char-set= g char-set<= g char-set-hash gchar-set-cursor g char-set-ref gchar-set-cursor-next gend-of-char-set? g char-set-fold gchar-set-unfold !gchar-set-unfold! "gchar-set-for-each #g char-set-map $g char-set-copy %gchar-set &glist->char-set 'glist->char-set! (gstring->char-set )gstring->char-set! *gchar-set-filter +gchar-set-filter! ,gucs-range->char-set -gucs-range->char-set! .g ->char-set /g char-set-size 0gchar-set-count 1gchar-set->list 2gchar-set->string 3gchar-set-contains? 4gchar-set-every 5g char-set-any 6gchar-set-adjoin 7gchar-set-adjoin! 8gchar-set-delete 9gchar-set-delete! :gchar-set-complement ;gchar-set-union g char-set-xor ?gchar-set-diff+intersection @gchar-set-complement! Agchar-set-union! Bgchar-set-intersection! Cgchar-set-difference! Dg char-set-xor! Egchar-set-diff+intersection! Fgchar-set:lower-case Ggchar-set:upper-case Hgchar-set:title-case Igchar-set:letter Jgchar-set:digit Kgchar-set:letter+digit Lgchar-set:graphic Mgchar-set:printing Ngchar-set:whitespace Ogchar-set:iso-control Pgchar-set:punctuation Qgchar-set:symbol Rgchar-set:hex-digit Sgchar-set:blank Tgchar-set:ascii Ugchar-set:empty Vg char-set:full W !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUV@ Xgcond-expand-provide YC5hu]4  54 >"G4WhB]456:gfilenamefsrfi/srfi-14.scm    C>"GXi4i5Y6mgm $gfilenamefsrfi/srfi-14.scm   %  `  ` & `   C6srfi-69.go000064400000133275151027761750006320 0ustar00GOOF----LE-8-2.0]W4hR] gguile  gdefine-module*   gsrfi gsrfi-69  gfilenameS fsrfi/srfi-69.scm gimportsS gsrfi-1     gsrfi-9   gsrfi-13   gice-9 goptargs    gexportsS gmake-hash-table g hash-table? galist->hash-table ghash-table-equivalence-function ghash-table-hash-function ghash-table-ref !ghash-table-ref/default "ghash-table-set! #ghash-table-delete! $ghash-table-exists? %ghash-table-update! &ghash-table-update!/default 'ghash-table-size (ghash-table-keys )ghash-table-values *ghash-table-walk +ghash-table-fold ,ghash-table->alist -ghash-table-copy .ghash-table-merge! /gstring-ci-hash 0ghash-by-identity 1 !"#$%&'()*+,-./0 2g re-exportsS 3g string-hash 43 5g replacementsS 6ghash 76 8gset-current-module 98 :8 ;gcond-expand-provide gmake-syntax-transformer ?> @> Ag hashx-invoke Bgmacro Cg $sc-dispatch DC EC Fg_ Ggany HFG Ig syntax->datum JI KI Lg datum->syntax ML NL Og ht-associator Pg ht-real-table Qgsyntax-violation RQ SQ Tf-source expression failed to match any pattern Ugwith-hashx-values Vglet Wgfirst Xgsecond Ygthird Zgmost-positive-fixnum [gcaller-with-default-size \6 ]6 ^gstring-hash-ci _ghashq `gsrfi-69:hash-table ag"%make-srfi-69-hash-table-procedure bgmake-srfi-69-hash-table cFGGGGGG dg syntax-object eglambda fgm-46961e518c-31 ggtop hfg igribcage jgt-46961e518c-2b kgt-46961e518c-2c lgt-46961e518c-2d mgt-46961e518c-2e ngt-46961e518c-2f ogt-46961e518c-30 pjklmno qhhhhhh rfl-46961e518c-36 sfl-46961e518c-37 tfl-46961e518c-38 ufl-46961e518c-39 vfl-46961e518c-3a wfl-46961e518c-3b xrstuvw yipqx zi {gx |{ }h ~fl-46961e518c-33 ~ i|} gshift g proc-name gargs  g  fl-1e8ba8b5a-2ba fl-1e8ba8b5a-2bb  i gkey gvalue gname gformals gbody   fl-1e8ba8b5a-2ad fl-1e8ba8b5a-2ae fl-1e8ba8b5a-2af fl-1e8ba8b5a-2b0 fl-1e8ba8b5a-2b1  i gmake-procedure-name   fl-1e8ba8b5a-29d  i  fl-1e8ba8b5a-29c  i| hyzzzzz  ghygiene  de g real-table yz  d g associator d gsize d gweakness d gequivalence-function d g hash-function d  g make-struct gm-46961e518c-29 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  i gform g type-name gconstructor-spec g field-names   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   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| yzzzzzz d d` d     geach-any F Q Q fWrong number of arguments g identifier?   z da grecord-type-vtable   g pwpwpwpwpwpw gdefault-record-printer        gset-struct-vtable-name!      gvtable-offset-user   g%hash-table?-procedure FG gm-46961e518c-48 g gt-46961e518c-47   fl-46961e518c-4d  i fl-46961e518c-4a  i| zzzzz   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 0fl-1e8ba8b5a-486 1fl-1e8ba8b5a-487 2fl-1e8ba8b5a-488 3fl-1e8ba8b5a-489 4-./0123 5i),4 6g copier-id 76 8fl-1e8ba8b5a-476 98 :i79 ;g ctor-name <; =fl-1e8ba8b5a-46e >= ?i<> @ Afl-1e8ba8b5a-46c BA Ci@B Dglayout ED Ffl-1e8ba8b5a-46a GF HiEG Ig immutable? JI Kfl-1e8ba8b5a-468 LK MiJL Ng field-count ON Pfl-1e8ba8b5a-466 QP RiOQ Sg getter-ids TS Ufl-1e8ba8b5a-463 VU WiTV Xg field-ids YX Zfl-1e8ba8b5a-460 [Z \iY[ ]gpredicate-name ^g field-spec _I]^ ` afl-1e8ba8b5a-453 bfl-1e8ba8b5a-454 cfl-1e8ba8b5a-455 dfl-1e8ba8b5a-456 efl-1e8ba8b5a-457 ffl-1e8ba8b5a-458 gabcdef hi_`g izz5zzzz:z?zCzHzMzRzWz\h jd!i kj lgand mdli ngstruct? odni poj qgeq? rdqi sg struct-vtable tdsi utj vz wd`v xruw ympx z ky {z |d{ }gthrow-bad-struct ~} } g%ht-real-table-procedure gfree-id g %%on-error gm-46961e518c-54 g  fl-46961e518c-56  i| zzzzz  d  G 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 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  i S6  fl-1e8ba8b5a-39e fl-1e8ba8b5a-39f fl-1e8ba8b5a-3a0  i zzzzzz d  FG gck gerr gs   fl-46961e518c-59 fl-46961e518c-5a  i zzzzz  d gquote d z d`   g%%index d  FG fl-46961e518c-5e fl-46961e518c-5f  i zzzzz  d d z d    g%%copier d  FG fl-46961e518c-63 fl-46961e518c-64  i zzzzz  d d g%%srfi-69:hash-table-set-fields z d   gt-46961e518c-53  fl-46961e518c-68  i zzzzz  de zzzzzz d  gif d dq ds  z d`  g struct-ref d z d   d} d dP     z d g%ht-associator-procedure gm-46961e518c-6f g  fl-46961e518c-71    i|   z zzzz   d      G z zzzzz d  FG  fl-46961e518c-74 fl-46961e518c-75  i z zzzz  d d z  d`   d   !F G "fl-46961e518c-79 #fl-46961e518c-7a $"# %i$ &%z zzzz  'd& (d& )%z  *d ) +(* ,+ -d .- /F.G 0fl-46961e518c-7e 1fl-46961e518c-7f 201 3i2 43z zzzz  5d4 6d4 73z  8d7 968 :9 ;gt-46961e518c-6e <; =fl-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 Yght-size Zg%ht-size-procedure [gm-46961e518c-8a \[g ]\ ^fl-46961e518c-8c _^ `i|]_ a\z`zzzz  bda cb dcG ez`zzzzz fde gf hFdgG i\\ jfl-46961e518c-8f kfl-46961e518c-90 ljk miil n\mz`zzzz  odn pdn qmz` rd`q spr ts ude vu wFdvG xfl-46961e518c-94 yfl-46961e518c-95 zxy {iiz |\{z`zzzz  }d| ~d| {z` d  ~  de  FdG fl-46961e518c-99 fl-46961e518c-9a  ii \z`zzzz  d d z` d   gt-46961e518c-89  fl-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 gm-46961e518c-a5 g  fl-46961e518c-a7  i| zzzzz  d  G zzzzzz d  FG  fl-46961e518c-aa fl-46961e518c-ab  i zzzzz  d d z d`   d  FG fl-46961e518c-af fl-46961e518c-b0  i zzzzz  d d z d    d  FG fl-46961e518c-b4 fl-46961e518c-b5  i zzzzz  d d z d   gt-46961e518c-a4  fl-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 gm-46961e518c-c0 g   fl-46961e518c-c2     i|   z zzzz   d    G z zzzzz d  FG  fl-46961e518c-c5 fl-46961e518c-c6  i z zzzz  d d z  d`    d !  "F!G #fl-46961e518c-ca $fl-46961e518c-cb %#$ &i% '&z zzzz  (d' )d' *&z  +d * ,)+ -, .d /. 0F/G 1fl-46961e518c-cf 2fl-46961e518c-d0 312 4i3 54z zzzz  6d5 7d5 84z  9d8 :79 ;: fl-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 [gm-46961e518c-db \[g ]\ ^fl-46961e518c-dd _^ `i|]_ a\z`zzzz  bda cb dcG ez`zzzzz fde gf hFdgG i\\ jfl-46961e518c-e0 kfl-46961e518c-e1 ljk miil n\mz`zzzz  odn pdn qmz` rd`q spr ts ude vu wFdvG xfl-46961e518c-e5 yfl-46961e518c-e6 zxy {iiz |\{z`zzzz  }d| ~d| {z` d  ~  de  FdG fl-46961e518c-ea fl-46961e518c-eb  ii \z`zzzz  d d z` d   gt-46961e518c-da  fl-46961e518c-ef  i] \z`zzzz  de z`zzzzz d  d dq ds  z` d`  d z` d   d} d d     z` dZ geach GG  G G G g %%set-fields gdummy gcheck? gexpr  gm-46961e518c-f6 g  fl-46961e518c-fb fl-46961e518c-fc fl-46961e518c-fd fl-46961e518c-fe fl-46961e518c-ff  i  fl-46961e518c-f8  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 zzzzz  d z d` dP dO dY d d d  gmap   glist ght-size! g%ht-size!-procedure FGG gm-46961e518c-10a g gt-46961e518c-108 gt-46961e518c-109   fl-46961e518c-10f fl-46961e518c-110  i  fl-46961e518c-10c  i| zzzzz  de gt-1e8ba8b5a-3e6 gt-1e8ba8b5a-3e7  gm-1e8ba8b5a-3e8 g  fl-1e8ba8b5a-3ec fl-1e8ba8b5a-3ed  i gsetter  fl-1e8ba8b5a-3e0 fl-1e8ba8b5a-3e1  fl-1e8ba8b5a-3e2     i   ^  fl-1e8ba8b5a-3d7 fl-1e8ba8b5a-3d8   i  g field-specs  fl-1e8ba8b5a-3d3 fl-1e8ba8b5a-3d4  i zz zz d gval d  d dq ds   z !d`  "! #g struct-set! $d# %z &d % '$& (d} )d *d  +)* ,(+ -"', .- /z 0d/ 1gequal? 2geqv? 3ghashv 4gstring=? 5g string-ci=? 6gguess-hash-function 7greverse! 8gkeyword? 9gwithout-keyword-args : ; g key-or-value ?gmake-doubly-weak-hash-table @gerror AfInvalid weak hash table type Bg guile-ht-ctor Cgassoc DC EC Fgassq Ggassv Hgequivalence-proc->associator IgweakS JI  KJ Lgfor-each Mghashx-get-handle Ng hashx-set! Ofht-value Pght-unspecified Qg hashx-ref RfKey not in table Sghashx-create-handle! Tg hashx-remove! Ug hash-fold Vg alist-consC5h]]4   124575 4:>"G4;i4"G4@ABEHKNOPh(-13Cg hashx-proc 'ght-var 'gargs  'gfilenamefsrfi/srfi-69.scm a d  '  Chd] 45L4?6\gargs  gv gfilenamefsrfi/srfi-69.scm  a    CSTh(!] 45$ O@6gy  'gtmp 'gfilenamefsrfi/srfi-69.scm a   ' g documentationfrInvoke HASHX-PROC, a `hashx-*' procedure taking a hash-function, assoc-function, and the hash-table as first args.g macro-typegdefmacrog defmacro-argsgargsC5AR4@UBEHKNVWXOYPhH-13454545Cgbindings Fght-var Fg body-forms  Fgfilenamefsrfi/srfi-69.scm i l  l  l   m % l  . n 6 l  F  Chd] 45L4?6\gargs  gv gfilenamefsrfi/srfi-69.scm  i    CSTh(] 45$ O@6 gy  'gtmp 'gfilenamefsrfi/srfi-69.scm i   ' g documentationffBind BINDINGS to the hash-function, associator, and real-table of HT-VAR, while evaluating BODY-FORMS.g macro-typegdefmacrog defmacro-argsgargsC5URZh o-.,3#L6ggobj gsize gfilenamefsrfi/srfi-69.scm z   {   Ch]OCghash-fn  gfilenamefsrfi/srfi-69.scm w   gnamegcaller-with-default-sizeg documentationfnAnswer 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]Cg real-table  g associator  gsize   gweakness   gequivalence-function   g hash-function   gfilenamefsrfi/srfi-69.scm    gnameg"%make-srfi-69-hash-table-procedureCaR4@bBEch]Cgt-46961e518c-2b  gt-46961e518c-2c  gt-46961e518c-2d   gt-46961e518c-2e   gt-46961e518c-2f   gt-46961e518c-30      CbhT]L6Lga  gfilenamefsrfi/srfi-69.scm    CFhD]L6<gfilenamefsrfi/srfi-69.scm     Ch]C   CST hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-69.scm   n C5bR ` 4`>"G ai`R`hx]$CCpgobj  gfilenamefsrfi/srfi-69.scm    gnameg%hash-table?-procedureCR4@BEzh7]C/gt-46961e518c-47    ChT]L6Lga  gfilenamefsrfi/srfi-69.scm    CFhD]L6<gfilenamefsrfi/srfi-69.scm     C|h]C   CST hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-69.scm   n C5R`Phx]& C6pgs  gfilenamefsrfi/srfi-69.scm    gnameg%ht-real-table-procedureCR4@PBEh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch7]C/gt-46961e518c-53    CPhT]L6Lga  gfilenamefsrfi/srfi-69.scm    CFhD]L6<gfilenamefsrfi/srfi-69.scm     Ch]C   CSTh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-69.scm   C5PR`Ohx]& C6pgs  gfilenamefsrfi/srfi-69.scm    gnameg%ht-associator-procedureCR4@OBEh:]C2gerr  gs    C!',h:]C2gerr  gs    C/5:h:]C2gerr  gs    CVh7]C/gt-46961e518c-6e    COhT]L6Lga  gfilenamefsrfi/srfi-69.scm    CFhD]L6<gfilenamefsrfi/srfi-69.scm     CXh]C   CSTh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-69.scm   C5OR`Yh r]& C6jgs  gfilenamefsrfi/srfi-69.scm    gnameg%ht-size-procedureCZR4@YBEhoth:]C2gerr  gs    Cw}h:]C2gerr  gs    Ch:]C2gerr  gs    Ch7]C/gt-46961e518c-89    CYhT]L6Lga  gfilenamefsrfi/srfi-69.scm    CFhD]L6<gfilenamefsrfi/srfi-69.scm     Ch]C   CSTh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-69.scm   C5YR`h v]& C6ngs  gfilenamefsrfi/srfi-69.scm    gnameg%ht-weakness-procedureCR4@BEh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    Ch7]C/gt-46961e518c-a4    ChT]L6Lga  gfilenamefsrfi/srfi-69.scm    CFhD]L6<gfilenamefsrfi/srfi-69.scm     Ch]C   CSTh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-69.scm   C5R`h ]& C6gs  gfilenamefsrfi/srfi-69.scm    gnameg*%hash-table-equivalence-function-procedureCR4@BEh:]C2gerr  gs    C"(-h:]C2gerr  gs    C06;h:]C2gerr  gs    CWh7]C/gt-46961e518c-bf    ChT]L6Lga  gfilenamefsrfi/srfi-69.scm    CFhD]L6<gfilenamefsrfi/srfi-69.scm     CYh]C   CSTh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-69.scm   C5R`h ]& C6{gs  gfilenamefsrfi/srfi-69.scm    gnameg#%hash-table-hash-function-procedureCZR4@BEhoth:]C2gerr  gs    Cw}h:]C2gerr  gs    Ch:]C2gerr  gs    Ch7]C/gt-46961e518c-da    ChT]L6Lga  gfilenamefsrfi/srfi-69.scm    CFhD]L6<gfilenamefsrfi/srfi-69.scm     Ch]C   CSTh]145$@45$@45$@45$ @4 5$  O@4 5$4 O?$@66gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-69.scm   C5R4@BEh v]45Cngdummy  gcheck?  gs   ggetter   gexpr      CSTh(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-69.scm   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5R`h ]& C6|gs  gval  gfilenamefsrfi/srfi-69.scm    gnameg%ht-size!-procedureCR4@BE.hV]CNgt-46961e518c-108  gt-46961e518c-109    ChT]L6Lga  gfilenamefsrfi/srfi-69.scm    CFhD]L6<gfilenamefsrfi/srfi-69.scm     C0h]C   CST hp]45$@45$ O@45$4O?$@  6  6}gx  ngtmp ngtmp  " ngtmp  > ngfilenamefsrfi/srfi-69.scm   n C5R1]q_23435/ h@]&C&C&C&C & CCg equal-proc  <gfilenamefsrfi/srfi-69.scm   < gnamegguess-hash-functiong documentationflGuess a hash function for EQUAL-PROC, falling back on `hash', as specified in SRFI-69 for `make-hash-table'.C6R78WhP]"?(64455$"45""g rest-list  Pgacc  Eg rest-list   Egfilenamefsrfi/srfi-69.scm          "  '  0 1  :  = 1 E  E  F  P   P gnamegwithout-keyword-argsg documentationfMAnswer REST-LIST with all keywords removed along with items that follow them.C9R;<=>?@A h@]$C$C$C$C 6gweakness  9gfilenamefsrfi/srfi-69.scm  5  9   9 gnameg guile-ht-ctorg documentationf7Answer the Guile HT constructor for the given WEAKNESS.CBR14EqF2GChs]L6kgitem  galist  gfilenamefsrfi/srfi-69.scm    C h@]&"$C&C&COCg equal-proc  9gfilenamefsrfi/srfi-69.scm     9 gnamegequivalence-proc->associatorg documentationf^Answer an `assoc'-like procedure that compares the argument key to alist keys with EQUAL-PROC.CHRK16B9H`hh-/023## 45#44545?45 Cg equal-proc  gg hash-proc  ggweak   gg guile-opts   gg real-table  R gg associator  R ggfilenamefsrfi/srfi-69.scm )  ;  < C  K  L  R   g  gweakS gnamegmake-hash-tableg documentationfAnswer 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`YOPLMNh0] 4LLL5$CMNLLL6gpair  /ghandle  /gfilenamefsrfi/srfi-69.scm    =       &   * ' - 2 /   / C h-134?&  " 45H&  " 45& " 45& " 454 O>"GJ&  "4 >"GCgalist gmht-args gresult   gsize  - g hash-proc  ~ g associator  ~ g real-table  ~ gval  gfilenamefsrfi/srfi-69.scm      -  ~    gnamegalist->hash-tableg documentationf4Convert ALIST to a hash table created with MHT-ARGS.CROPRQ`OPPW@R h-134&  " 45& " 45& " 455&$ 456  6Cght gkey gdefault-thunk-lst  gresult  a gfilenamefsrfi/srfi-69.scm  a  k  n r  s {     gnameghash-table-refg documentationfLookup 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`OPh`]&  " 45& " 45& " 456ght  Ygkey  Ygdefault   Ygfilenamefsrfi/srfi-69.scm Y   Y gnameghash-table-ref/defaultg documentationfLLookup KEY in HT and answer the value. Answer DEFAULT if KEY isn't present.C!RS`OPPY h@]4&  " 45& " 45& " 455&N&  " 45&  "4 >"G"C8ght  gkey  g new-value   ghandle  Z gval  gfilenamefsrfi/srfi-69.scm   Z  a  e  h      gnameghash-table-set!g documentationfSet KEY to NEW-VALUE in HT.C"R`OPMYT hG]"&  " 45& " 45& " 4545$f&  " 45&  "4>"G4 >"G"C?ght  gkey  gh  Q ga  Q greal-ht  Q gval  gfilenamefsrfi/srfi-69.scm Q  X  h  k     gnameghash-table-delete!g documentationfRemove KEY's association in HT.C#RM`OPh`]4&  " 45& " 45& " 455$CCght  `gkey  `gfilenamefsrfi/srfi-69.scm    \    ` gnameghash-table-exists?g documentationf"Return whether KEY is a key in HT.C$R`OPMN@RY h-13 &  " 45& " 45& " 4545$45"4$4455" 4 5>"G&  " 4 5&  "4 >"GCght gkey gmodifier  gdefault-thunk-lst  g hash-proc  X g associator  X g real-table  X ghandle  k gval   gfilenamefsrfi/srfi-69.scm  X   _   k   s   v   {  ( }   ~          '  (  '      $            gnameghash-table-update!g documentationfModify 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%hD]LC<gfilenamefsrfi/srfi-69.scm  &   Ch^]O6Vght  gkey  gmodifier   gdefault   gfilenamefsrfi/srfi-69.scm       gnameghash-table-update!/defaultg documentationfModify 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}]Cugk  gv  gans   gfilenamefsrfi/srfi-69.scm !   ! ,   CYhH-]&  " 45$  6& C6%ght  Agfilenamefsrfi/srfi-69.scm     !   * !  - "   A gnameghash-table-sizeg documentationfReturn 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}]Cugk  gv  glst   gfilenamefsrfi/srfi-69.scm &   & (   Ch]6ght  gfilenamefsrfi/srfi-69.scm $ & 6 &   gnameghash-table-keysg documentationf Return a list of the keys in HT.C(R+h}]Cugk  gv  glst   gfilenamefsrfi/srfi-69.scm *   * (   Ch]6ght  gfilenamefsrfi/srfi-69.scm ( * 6 *   gnameghash-table-valuesg documentationf"Return a list of the values in HT.C)R+h] 4L> GCgk  gv  gunspec   gvals   gfilenamefsrfi/srfi-69.scm .   / 5  /    Ch]O6ght  gproc  gfilenamefsrfi/srfi-69.scm ,  .    gnameghash-table-walkg documentationf3Call PROC with each key and value as two arguments.C*RU`Ph(Z]& " 456Rght  $gf  $gknil   $gfilenamefsrfi/srfi-69.scm 3 7  $ 7   $ gnameghash-table-foldg documentationfInvoke (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+Vh]6ght  gfilenamefsrfi/srfi-69.scm 9 ; ! ;   gnameghash-table->alistg documentationfReturn an alist for HT.C,R`OP'BUNh}]LLL6ugk  gv  gign   gfilenamefsrfi/srfi-69.scm B   B #   C h]9&  " 45& " 45& " 4545&  " 4544554  O>"G&  " 4 5Cght  gh Q ga  Q greal-ht  Q gsize  ^ gweak  { g new-real-ht  gequivalence-function  gfilenamefsrfi/srfi-69.scm = Q ?  X @  ^ @  c @ - { @  ~ A   A  A  @  B  F  D   gnameghash-table-copyg documentationfAnswer a copy of HT.C-R+"h}]L6ugk  gv  gign   gfilenamefsrfi/srfi-69.scm L  L   Ch ]4O>"GCght  gother-ht  gfilenamefsrfi/srfi-69.scm H  K    gnameghash-table-merge!g documentationf`Add all key/value pairs from OTHER-HT to HT, overriding HT's mappings where present. Return HT.C.RCgm  4grtd gfilenamefsrfi/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 %  ] C6srfi-98.go000064400000002403151027761750006306 0ustar00GOOF----LE-8-2.0] 4h] gguile  gdefine-module*   gsrfi gsrfi-98  gfilenameS fsrfi/srfi-98.scm gimportsS gsrfi-1      gexportsS gget-environment-variable gget-environment-variables  gset-current-module   gcond-expand-provide gcurrent-module  ggetenv g filter-map g string-index g string-length g substring genvironC5h ]4   54>"G4i4i5>"GiRh8]4=545$4 545CCgstr  6gpvt  6glen   6gfilenamefsrfi/srfi-98.scm '   (  )   (   *   *  ' * + . * : 2 * + 3 *   6 gnamegstring->alist-entryChx]456pgfilenamefsrfi/srfi-98.scm &  + " +   gnamegget-environment-variablesCRCygm  ,gfilenamefsrfi/srfi-98.scm   - # 2 #  : # & ? # N %  &    C6srfi-6.go000064400000002167151027761750006222 0ustar00GOOF----LE-8-2.0_]4h] gguile  gdefine-module*   gsrfi gsrfi-6  gfilenameS fsrfi/srfi-6.scm g re-exportsS gget-output-string   g replacementsS gopen-input-string gopen-output-string  gset-current-module   g%default-port-encoding fUTF-8     gcond-expand-provide gcurrent-module C5h}]4    54>"Gh]Y4>ZCZFgs  gfilenamefsrfi/srfi-6.scm  ! ( "  "   "    gnamegopen-input-stringCRh]Y4>ZCZFxgfilenamefsrfi/srfi-6.scm $  % ( &  &   &    gnamegopen-output-stringCRi4i56ugm  ,gfilenamefsrfi/srfi-6.scm    $  (   ( &  (    C6srfi-2.go000064400000001173151027761750006212 0ustar00GOOF----LE-8-2.0c]4h{] gguile  gdefine-module*   gsrfi gsrfi-2  gfilenameS fsrfi/srfi-2.scm gimportsS gice-9 g and-let-star      g re-exportsS gand-let*  gset-current-module   gcond-expand-provide gcurrent-module C5h@i]4   54>"Gi4i56agm  ,gfilenamefsrfi/srfi-2.scm   1   9  & ;    ; C6srfi-34.go000064400000011613151027761750006277 0ustar00GOOF----LE-8-2.0s]z4hn] gguile  gdefine-module*   gsrfi gsrfi-34  gfilenameS fsrfi/srfi-34.scm gexportsS gwith-exception-handler gguard    g replacementsS graise  gset-current-module   gcond-expand-provide gcurrent-module  g throw-key gwith-throw-handler gthrow gmake-syntax-transformer   gmacro g $sc-dispatch  ! "gany #geach+ $gfree-id %g syntax-object &gelse 'gtop (' )gribcage *) +gx ,+ -gm-46961e5118-a .-' /. 0fl-46961e5118-c 10 2),/1 3(*2 4ghygiene 54 6%&35 7$6 8geach-any 9"8 :79 ;: <#"; ="< >=9 ?"> @gcatch Agdummy Bgvar Cgclause Dge Ege* Fgbody Ggbody* HABCDEFG I.(((((( Jfl-46961e5118-f Kfl-46961e5118-10 Lfl-46961e5118-11 Mfl-46961e5118-12 Nfl-46961e5118-13 Ofl-46961e5118-14 Pfl-46961e5118-15 QJKLMNOP R)HIQ S(R*2 T%@S5 U%S5 Vglambda W%VS5 Xgkey Y%XS5 Zgcond [%ZS5 \gappend ]\ ^\ _%&S5 `"9 a`9 b"a cgclause* dABCcFG e.((((( ffl-46961e5118-21 gfl-46961e5118-22 hfl-46961e5118-23 ifl-46961e5118-24 jfl-46961e5118-25 kfl-46961e5118-26 lfghijk m)del n(m*2 o%@n5 p%n5 q%Vn5 r%Xn5 s%Zn5 t%&n5 u%n5 vgsyntax-violation wv xv yf-source expression failed to match any patternC5h ]4   54>"G4i4i5>"GRhn]L6fgkey  gobj  gfilenamefsrfi/srfi-34.scm ,   -    Ch]O6ghandler  gthunk  gfilenamefsrfi/srfi-34.scm %  *    gnamegwith-exception-handlerg documentationfReturns 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 Rh]6gobj  gfilenamefsrfi/srfi-34.scm / 5   gnamegraiseg documentationf6Invokes 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]45Cgdummy  5gvar  5gclause   5ge   5ge*   5gbody   5gbody*   5  5 Cbopqrs^tu h@]45Cgdummy  >gvar  >gclause   >gclause*   >gbody   >gbody*   >  > Cxyh@]45$@45$@6 gx  9gtmp 9gtmp  " 9gfilenamefsrfi/srfi-34.scm 8   9 g documentationfSyntax: (guard ( ...) ) Each should have the same form as a `cond' clause. Semantics: Evaluating a guard form evaluates with an exception handler that binds the raised object to 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 's 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-rulesgpatternsgvargclauseg...gelsegege*g...gbodygbody*g...gvargclausegclause*g...gbodygbody*g...C5 RCgm  ,gfilenamefsrfi/srfi-34.scm   - ! 2 !  : ! & ? ! I #  L #  % u /   C6srfi-4.go000064400000054423151027761750006222 0ustar00GOOF----LE-8-2.0X]4h] gguile  gdefine-module*   gsrfi gsrfi-4  gfilenameS fsrfi/srfi-4.scm gimportsS grnrs g bytevectors      gexportsS g u8vector? g make-u8vector gu8vector gu8vector-length g u8vector-ref g u8vector-set! gu8vector->list glist->u8vector g s8vector? g make-s8vector gs8vector gs8vector-length g s8vector-ref g s8vector-set! gs8vector->list !glist->s8vector "g u16vector? #gmake-u16vector $g u16vector %gu16vector-length &g u16vector-ref 'gu16vector-set! (gu16vector->list )glist->u16vector *g s16vector? +gmake-s16vector ,g s16vector -gs16vector-length .g s16vector-ref /gs16vector-set! 0gs16vector->list 1glist->s16vector 2g u32vector? 3gmake-u32vector 4g u32vector 5gu32vector-length 6g u32vector-ref 7gu32vector-set! 8gu32vector->list 9glist->u32vector :g s32vector? ;gmake-s32vector g s32vector-ref ?gs32vector-set! @gs32vector->list Aglist->s32vector Bg u64vector? Cgmake-u64vector Dg u64vector Egu64vector-length Fg u64vector-ref Ggu64vector-set! Hgu64vector->list Iglist->u64vector Jg s64vector? Kgmake-s64vector Lg s64vector Mgs64vector-length Ng s64vector-ref Ogs64vector-set! Pgs64vector->list Qglist->s64vector Rg f32vector? Sgmake-f32vector Tg f32vector Ugf32vector-length Vg f32vector-ref Wgf32vector-set! Xgf32vector->list Yglist->f32vector Zg f64vector? [gmake-f64vector \g f64vector ]gf64vector-length ^g f64vector-ref _gf64vector-set! `gf64vector->list aglist->f64vector b !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`aP cgset-current-module dc ec fgcond-expand-provide ggcurrent-module h igmake-syntax-transformer ji ki lgdefine-bytevector-type mgmacro ng $sc-dispatch on pn qg_ rgany sqr tg syntax->datum ut vt wg datum->syntax xw yw zgbegin {gdefine |g symbol-append }gvector? ~gobj ~ gand g bytevector? ~ geq? g array-type ~ gquote gmake- gvector glen gfill  gapply gmake-srfi-4-vector  g vector-length gv  glet g/ gbytevector-length  gif ginteger?  gerror ffractional length gelts glist->  glet* glength    glp gi     g<  gpair?   g vector-set! gcar   g1+  gcdr    g vector->list g1-       gcons g vector-ref  g bytevector- g-ref g* gx  g-set!  gsyntax-violation   f-source expression failed to match any pattern gu8 gs8 gu16 gs16 gu32 gs32 gu64 gs64 gf32 gf64C5hH]4   b54e>"G4fi4gi5h>"G4klmpsvyz{|}7h]45  4  5  45 4 54 54 5 4  5!"#$4%5&'4(5")*45+,"-.4/504/5041253)4%5441553)64%5441553)6 Cgtag  ginfix  gsize   gfilenamefsrfi/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   Chc] 45L4?6[gargs  gv gfilenamefsrfi/srfi-4.scm  J    Ch(a] 45$ O@6Ygy  'gtmp 'gfilenamefsrfi/srfi-4.scm J   ' C5lRh i]45$ 45CCagobj  gfilenamefsrfi/srfi-4.scm l    gnameg u8vector?CRh-13@xglen gfill gfilenamefsrfi/srfi-4.scm l   gnameg make-u8vectorCRh(] 45 45$C 6}gv  &glen &gfilenamefsrfi/srfi-4.scm l  T   & gnamegu8vector-lengthCRhk-136cgelts gfilenamefsrfi/srfi-4.scm l   gnamegu8vectorCRhP]!4545",$ $"CC "gelts  Oglen Ogv   Ogi   Dgelts   Dgfilenamefsrfi/srfi-4.scm l   O gnameglist->u8vectorCRh8]" $C"45"gv  5gi  $gelts   $gfilenamefsrfi/srfi-4.scm l   5 gnamegu8vector->listCRhy] Cqgv  gi  gfilenamefsrfi/srfi-4.scm l   gnameg u8vector-refCRh] Cgv  gi  gx   gfilenamefsrfi/srfi-4.scm l   gnameg u8vector-set!CRh] Cgv  gi  gx   gfilenamefsrfi/srfi-4.scm l   gnameg u8vector-set!CRh i]45$ 45CCagobj  gfilenamefsrfi/srfi-4.scm m    gnameg s8vector?CRh-13@xglen gfill gfilenamefsrfi/srfi-4.scm m   gnameg make-s8vectorCRh(] 45 45$C 6}gv  &glen &gfilenamefsrfi/srfi-4.scm m  T   & gnamegs8vector-lengthCR!hk-136cgelts gfilenamefsrfi/srfi-4.scm m   gnamegs8vectorCRhP]!4545",$ $"CC "gelts  Oglen Ogv   Ogi   Dgelts   Dgfilenamefsrfi/srfi-4.scm m   O gnameglist->s8vectorC!Rh8]" $C"45"gv  5gi  $gelts   $gfilenamefsrfi/srfi-4.scm m   5 gnamegs8vector->listC Rhy] Cqgv  gi  gfilenamefsrfi/srfi-4.scm m   gnameg s8vector-refCRh] Cgv  gi  gx   gfilenamefsrfi/srfi-4.scm m   gnameg s8vector-set!CRh] Cgv  gi  gx   gfilenamefsrfi/srfi-4.scm m   gnameg s8vector-set!CRh j]45$ 45CCbgobj  gfilenamefsrfi/srfi-4.scm n    gnameg u16vector?C"Rh-13@yglen gfill gfilenamefsrfi/srfi-4.scm n   gnamegmake-u16vectorC#Rh(] 45 45$C 6~gv  (glen (gfilenamefsrfi/srfi-4.scm n T   ( gnamegu16vector-lengthC%R)hl-136dgelts gfilenamefsrfi/srfi-4.scm n   gnameg u16vectorC$R#hX]!4545"/$#$ "CC "gelts  Rglen Rgv   Rgi   Ggelts   Ggfilenamefsrfi/srfi-4.scm n   R gnameglist->u16vectorC)R%h8]"! $C "45"΅gv  8gi  'gelts   'gfilenamefsrfi/srfi-4.scm n   8 gnamegu16vector->listC(Rhz] Crgv  gi  gfilenamefsrfi/srfi-4.scm n   gnameg u16vector-refC&Rh] Cgv  gi  gx   gfilenamefsrfi/srfi-4.scm n    gnamegu16vector-set!C'Rh] Cgv  gi  gx   gfilenamefsrfi/srfi-4.scm n    gnamegu16vector-set!C'Rh j]45$ 45CCbgobj  gfilenamefsrfi/srfi-4.scm o    gnameg s16vector?C*Rh-13@yglen gfill gfilenamefsrfi/srfi-4.scm o   gnamegmake-s16vectorC+Rh(] 45 45$C 6~gv  (glen (gfilenamefsrfi/srfi-4.scm o T   ( gnamegs16vector-lengthC-R1hl-136dgelts gfilenamefsrfi/srfi-4.scm o   gnameg s16vectorC,R+hX]!4545"/$#$ "CC "gelts  Rglen Rgv   Rgi   Ggelts   Ggfilenamefsrfi/srfi-4.scm o   R gnameglist->s16vectorC1R-h8]"! $C "45"΅gv  8gi  'gelts   'gfilenamefsrfi/srfi-4.scm o   8 gnamegs16vector->listC0Rhz] Crgv  gi  gfilenamefsrfi/srfi-4.scm o   gnameg s16vector-refC.Rh] Cgv  gi  gx   gfilenamefsrfi/srfi-4.scm o    gnamegs16vector-set!C/Rh] Cgv  gi  gx   gfilenamefsrfi/srfi-4.scm o    gnamegs16vector-set!C/Rh j]45$ 45CCbgobj  gfilenamefsrfi/srfi-4.scm p    gnameg u32vector?C2Rh-13@yglen gfill gfilenamefsrfi/srfi-4.scm p   gnamegmake-u32vectorC3Rh(] 45 45$C 6~gv  (glen (gfilenamefsrfi/srfi-4.scm p T   ( gnamegu32vector-lengthC5R9hl-136dgelts gfilenamefsrfi/srfi-4.scm p   gnameg u32vectorC4R3hX]!4545"/$#$ "CC "gelts  Rglen Rgv   Rgi   Ggelts   Ggfilenamefsrfi/srfi-4.scm p   R gnameglist->u32vectorC9R5h8]"! $C "45"΅gv  8gi  'gelts   'gfilenamefsrfi/srfi-4.scm p   8 gnamegu32vector->listC8Rhz] Crgv  gi  gfilenamefsrfi/srfi-4.scm p   gnameg u32vector-refC6Rh] Cgv  gi  gx   gfilenamefsrfi/srfi-4.scm p    gnamegu32vector-set!C7Rh] Cgv  gi  gx   gfilenamefsrfi/srfi-4.scm p    gnamegu32vector-set!C7Rh j]45$ 45CCbgobj  gfilenamefsrfi/srfi-4.scm q    gnameg s32vector?C:Rh-13@yglen gfill gfilenamefsrfi/srfi-4.scm q   gnamegmake-s32vectorC;Rh(] 45 45$C 6~gv  (glen (gfilenamefsrfi/srfi-4.scm q T   ( gnamegs32vector-lengthC=RAhl-136dgelts gfilenamefsrfi/srfi-4.scm q   gnameg s32vectorCs32vectorCAR=h8]"! $C "45"΅gv  8gi  'gelts   'gfilenamefsrfi/srfi-4.scm q   8 gnamegs32vector->listC@Rhz] Crgv  gi  gfilenamefsrfi/srfi-4.scm q   gnameg s32vector-refC>Rh] Cgv  gi  gx   gfilenamefsrfi/srfi-4.scm q    gnamegs32vector-set!C?Rh] Cgv  gi  gx   gfilenamefsrfi/srfi-4.scm q    gnamegs32vector-set!C?Rh j]45$ 45CCbgobj  gfilenamefsrfi/srfi-4.scm r    gnameg u64vector?CBRh-13@yglen gfill gfilenamefsrfi/srfi-4.scm r   gnamegmake-u64vectorCCRh(] 45 45$C 6~gv  (glen (gfilenamefsrfi/srfi-4.scm r T   ( gnamegu64vector-lengthCERIhl-136dgelts gfilenamefsrfi/srfi-4.scm r   gnameg u64vectorCDRChX]!4545"/$#$ "CC "gelts  Rglen Rgv   Rgi   Ggelts   Ggfilenamefsrfi/srfi-4.scm r   R gnameglist->u64vectorCIREh8]"! $C "45"΅gv  8gi  'gelts   'gfilenamefsrfi/srfi-4.scm r   8 gnamegu64vector->listCHRhz] Crgv  gi  gfilenamefsrfi/srfi-4.scm r   gnameg u64vector-refCFRh] Cgv  gi  gx   gfilenamefsrfi/srfi-4.scm r    gnamegu64vector-set!CGRh] Cgv  gi  gx   gfilenamefsrfi/srfi-4.scm r    gnamegu64vector-set!CGRh j]45$ 45CCbgobj  gfilenamefsrfi/srfi-4.scm s    gnameg s64vector?CJRh-13@yglen gfill gfilenamefsrfi/srfi-4.scm s   gnamegmake-s64vectorCKRh(] 45 45$C 6~gv  (glen (gfilenamefsrfi/srfi-4.scm s T   ( gnamegs64vector-lengthCMRQhl-136dgelts gfilenamefsrfi/srfi-4.scm s   gnameg s64vectorCLRKhX]!4545"/$#$ "CC "gelts  Rglen Rgv   Rgi   Ggelts   Ggfilenamefsrfi/srfi-4.scm s   R gnameglist->s64vectorCQRMh8]"! $C "45"΅gv  8gi  'gelts   'gfilenamefsrfi/srfi-4.scm s   8 gnamegs64vector->listCPRhz] Crgv  gi  gfilenamefsrfi/srfi-4.scm s   gnameg s64vector-refCNRh] Cgv  gi  gx   gfilenamefsrfi/srfi-4.scm s    gnamegs64vector-set!CORh] Cgv  gi  gx   gfilenamefsrfi/srfi-4.scm s    gnamegs64vector-set!CORh j]45$ 45CCbgobj  gfilenamefsrfi/srfi-4.scm t    gnameg f32vector?CRRh-13@yglen gfill gfilenamefsrfi/srfi-4.scm t   gnamegmake-f32vectorCSRh(] 45 45$C 6~gv  (glen (gfilenamefsrfi/srfi-4.scm t T   ( gnamegf32vector-lengthCURYhl-136dgelts gfilenamefsrfi/srfi-4.scm t   gnameg f32vectorCTRShX]!4545"/$#$ "CC "gelts  Rglen Rgv   Rgi   Ggelts   Ggfilenamefsrfi/srfi-4.scm t   R gnameglist->f32vectorCYRUh8]"! $C "45"΅gv  8gi  'gelts   'gfilenamefsrfi/srfi-4.scm t   8 gnamegf32vector->listCXRhz] Crgv  gi  gfilenamefsrfi/srfi-4.scm t   gnameg f32vector-refCVRh] Cgv  gi  gx   gfilenamefsrfi/srfi-4.scm t    gnamegf32vector-set!CWRh] Cgv  gi  gx   gfilenamefsrfi/srfi-4.scm t    gnamegf32vector-set!CWRh j]45$ 45CCbgobj  gfilenamefsrfi/srfi-4.scm u    gnameg f64vector?CZRh-13@yglen gfill gfilenamefsrfi/srfi-4.scm u   gnamegmake-f64vectorC[Rh(] 45 45$C 6~gv  (glen (gfilenamefsrfi/srfi-4.scm u T   ( gnamegf64vector-lengthC]Rahl-136dgelts gfilenamefsrfi/srfi-4.scm u   gnameg f64vectorC\R[hX]!4545"/$#$ "CC "gelts  Rglen Rgv   Rgi   Ggelts   Ggfilenamefsrfi/srfi-4.scm u   R gnameglist->f64vectorCaR]h8]"! $C "45"΅gv  8gi  'gelts   'gfilenamefsrfi/srfi-4.scm u   8 gnamegf64vector->listC`Rhz] Crgv  gi  gfilenamefsrfi/srfi-4.scm u   gnameg f64vector-refC^Rh] Cgv  gi  gx   gfilenamefsrfi/srfi-4.scm u    gnamegf64vector-set!C_Rh] Cgv  gi  gx   gfilenamefsrfi/srfi-4.scm u    gnamegf64vector-set!C_RCgm  ,gfilenamefsrfi/srfi-4.scm   - G 2 G  : G & ? G  l , m  n E o ! p (e q . r 5 s < t B u   H C6srfi-13.go000064400000005572151027761750006303 0ustar00GOOF----LE-8-2.0b ]p4h ] gguile  gdefine-module*   gsrfi gsrfi-13  gfilenameS fsrfi/srfi-13.scm gset-current-module     gcall-with-deferred-observers   gmodule-re-export!   gcurrent-module   gstring? g string-null? g string-any g string-every g make-string gstring gstring-tabulate g string->list g list->string greverse-list->string !g string-join "g string-length #g string-ref $g string-copy %gsubstring/shared &g string-copy! 'g string-take (gstring-take-right )g string-drop *gstring-drop-right +g string-pad ,gstring-pad-right -g string-trim .gstring-trim-right /gstring-trim-both 0g string-set! 1g string-fill! 2gstring-compare 3gstring-compare-ci 4gstring= 5gstring<> 6gstring< 7gstring> 8gstring<= 9gstring>= :g string-ci= ;g string-ci<>  >g string-ci<= ?g string-ci>= @g string-hash Agstring-hash-ci Bgstring-prefix-length Cgstring-prefix-length-ci Dgstring-suffix-length Egstring-suffix-length-ci Fgstring-prefix? Ggstring-prefix-ci? Hgstring-suffix? Igstring-suffix-ci? Jg string-index Kgstring-index-right Lg string-skip Mgstring-skip-right Ng string-count Ogstring-contains Pgstring-contains-ci Qg string-upcase Rgstring-upcase! Sgstring-downcase Tgstring-downcase! Ugstring-titlecase Vgstring-titlecase! Wgstring-reverse Xgstring-reverse! Yg string-append Zgstring-append/shared [gstring-concatenate \gstring-concatenate-reverse ]gstring-concatenate/shared ^g!string-concatenate-reverse/shared _g string-map `g string-map! ag string-fold bgstring-fold-right cg string-unfold dgstring-unfold-right egstring-for-each fgstring-for-each-index gg xsubstring hg string-xcopy! igstring-replace jgstring-tokenize kg string-filter lg string-delete m !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklV ngcond-expand-provide oC5hx]4  54 >"G4mhB]456:gfilenamefsrfi/srfi-13.scm    C>"Gni4i5o6pgm $gfilenamefsrfi/srfi-13.scm   %   &   C6srfi-17.go000064400000010767151027761750006311 0ustar00GOOF----LE-8-2.0]4h3] gguile  gdefine-module*   gsrfi gsrfi-17  gfilenameS fsrfi/srfi-17.scm gexportsS ggetter-with-setter   g replacementsS gsetter gcar gcdr gcaar gcadr gcdar gcddr gcaaar gcaadr gcadar gcaddr gcdaar gcdadr gcddar gcdddr gcaaaar gcaaadr gcaadar !gcaaddr "gcadaar #gcadadr $gcaddar %gcadddr &gcdaaar 'gcdaadr (gcdadar )gcdaddr *gcddaar +gcddadr ,gcdddar -gcddddr .g string-ref /g vector-ref 0 !"#$%&'()*+,-./! 1gset-current-module 21 31 4gcond-expand-provide 5gcurrent-module 6 7gmake-procedure-with-setter 8 9 :gerror ;f3Setting setters is not supported for a good reason.  ?gset-car! @ A Bgset-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!C5h(]4    0543>"G44i45i56>"G7i R4 i9:;hh-136`gargs gfilenamefsrfi/srfi-17.scm >  ?  ?   C5Rhx]L4L56pgobj  gvalue  gfilenamefsrfi/srfi-17.scm D   E  E    Ch]OCgsetter  glocation  gfilenamefsrfi/srfi-17.scm C   gnamegcompose-setterC?i5R4 iABi5R4 iD455R4 iF455R4 iJ4 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                                                ! C6srfi-4/gnu.go000064400000032320151027761750007003 0ustar00GOOF----LE-8-2.04]4hF ] gguile  gdefine-module*   gsrfi gsrfi-4 ggnu  gfilenameS fsrfi/srfi-4/gnu.scm gimportsS grnrs g bytevectors       gexportsS g c32vector? gmake-c32vector g c32vector gc32vector-length g c32vector-ref gc32vector-set! gc32vector->list glist->c32vector g c64vector? gmake-c64vector g c64vector gc64vector-length !g c64vector-ref "gc64vector-set! #gc64vector->list $glist->c64vector %gmake-srfi-4-vector &g any->u8vector 'g any->s8vector (gany->u16vector )gany->s16vector *gany->u32vector +gany->s32vector ,gany->u64vector -gany->s64vector .gany->f32vector /gany->f64vector 0gany->c32vector 1gany->c64vector 2 !"#$%&'()*+,-./01 3gset-current-module 43 53 6% 7% 8gmake-rectangular 9gbytevector-c32-native-ref :g real-part ;g imag-part gbytevector-c64-native-set! ?g bytevector? @g array-type Agc32 Bgbytevector-length Cginteger? Dgerror Effractional length Fglength Ggc64 Hgmake-syntax-transformer IH JH Kgdefine-any->vector Lgmacro Mg $sc-dispatch NM OM Pg_ Qgany RPQ Sg syntax->datum TS US Vg datum->syntax WV XV Ygbegin Zgmap [gdefine \g symbol-append ]gany-> ^gvector _gobj `_ agcond bgvector? cgpair? dc_ eglist-> fgand ggarray? hg_ igeqv? jg array-rank kj_ li k mfhl nglet* oglen pg array-length qp_ roq sgv tgmake- uo vglet wglp xgi yx  zy {gif |g< }|xo ~g vector-set! g array-ref _x sx g1+ x w  s gelse g scm-error gquote gwrong-type-arg  f  glist _    gsyntax-violation   f-source expression failed to match any pattern g u8vector? glist->u8vector g make-u8vector g s8vector? glist->s8vector g make-s8vector g u16vector? glist->u16vector gmake-u16vector g s16vector? glist->s16vector gmake-s16vector g u32vector? glist->u32vector gmake-u32vector g s32vector? glist->s32vector gmake-s32vector g u64vector? glist->u64vector gmake-u64vector g s64vector? glist->s64vector gmake-s64vector g f32vector? glist->f32vector gmake-f32vector g f64vector? glist->f64vector gmake-f64vectorC5h']4    2545>"G7%R8h] 6gv  gi  gfilenamefsrfi/srfi-4/gnu.scm , -   . 9  .   -    gnamegbytevector-c32-native-refC9R:;h ]45 45Cgv  gi  gx   gfilenamefsrfi/srfi-4/gnu.scm /  0 *  0   1 (  1 0  1    gnamegbytevector-c32-native-set!CR?@Ah n]45$ 45CCfgobj  gfilenamefsrfi/srfi-4/gnu.scm 9    gnameg c32vector?CR%Ah-13@}glen gfill gfilenamefsrfi/srfi-4/gnu.scm 9   gnamegmake-c32vectorCRBCDEAh(] 45 45$C 6gv  (glen (gfilenamefsrfi/srfi-4/gnu.scm 9 gfilenamef9/builddir/build/BUILD/guile-2.0.14/module/srfi/srfi-4.scm T   ( gnamegc32vector-lengthCRhp-136hgelts gfilenamefsrfi/srfi-4/gnu.scm 9   gnameg c32vectorCRFh`]!4545";$/$%4>"G"CC "gelts  ^glen ^gv   ^gi   Sgelts   Sgfilenamefsrfi/srfi-4/gnu.scm 9   ^ gnameglist->c32vectorCRh@]"" $C45"45"gv  9gi  (gelts   (gfilenamefsrfi/srfi-4/gnu.scm 9   9 gnamegc32vector->listCR9h~] 6vgv  gi  gfilenamefsrfi/srfi-4/gnu.scm 9   gnameg c32vector-refCR<h] 6gv  gi  gx   gfilenamefsrfi/srfi-4/gnu.scm 9    gnamegc32vector-set!CR<h] 6gv  gi  gx   gfilenamefsrfi/srfi-4/gnu.scm 9    gnamegc32vector-set!CR?@Gh n]45$ 45CCfgobj  gfilenamefsrfi/srfi-4/gnu.scm :    gnameg c64vector?CR%Gh-13@}glen gfill gfilenamefsrfi/srfi-4/gnu.scm :   gnamegmake-c64vectorCRBCDEGh(] 45 45$C 6gv  (glen (gfilenamefsrfi/srfi-4/gnu.scm : gfilenamef9/builddir/build/BUILD/guile-2.0.14/module/srfi/srfi-4.scm T   ( gnamegc64vector-lengthC R$hp-136hgelts gfilenamefsrfi/srfi-4/gnu.scm :   gnameg c64vectorCRF"h`]!4545";$/$%4>"G"CC "gelts  ^glen ^gv   ^gi   Sgelts   Sgfilenamefsrfi/srfi-4/gnu.scm :   ^ gnameglist->c64vectorC$R! h@]"" $C45"45"gv  9gi  (gelts   (gfilenamefsrfi/srfi-4/gnu.scm :   9 gnamegc64vector->listC#R=h~] 6vgv  gi  gfilenamefsrfi/srfi-4/gnu.scm :   gnameg c64vector-refC!R>h] 6gv  gi  gx   gfilenamefsrfi/srfi-4/gnu.scm :    gnamegc64vector-set!C"R>h] 6gv  gi  gx   gfilenamefsrfi/srfi-4/gnu.scm :    gnamegc64vector-set!C"R4JKLORUXYZ[\]^`abdemnrstuvwz{}Y~h]45454 5    4545Cgtag  gfilenamefsrfi/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 ?   Chr-1345Cjgtags gfilenamefsrfi/srfi-4/gnu.scm < =  >   =   Chg] 45L4?6_gargs  gv gfilenamefsrfi/srfi-4/gnu.scm  <    Ch(e] 45$ O@6]gy  'gtmp 'gfilenamefsrfi/srfi-4/gnu.scm <   ' C5KRgjp h]45$C$6"645$P 45&@454 5"#$4 5"C """gobj  glen N gv  W gi  ] gfilenamefsrfi/srfi-4/gnu.scm O ( L ;  gnameg any->u8vectorC&Rgjp h]45$C$6"645$P 45&@454 5"#$4 5"C """gobj  glen N gv  W gi  ] gfilenamefsrfi/srfi-4/gnu.scm O ( L ;  gnameg any->s8vectorC'Rgjp h]45$C$6"645$S 45&C454 5"&$ 4 5"C """gobj  glen N gv  W gi  ] gfilenamefsrfi/srfi-4/gnu.scm O ( L ;  gnamegany->u16vectorC(Rgjp h]45$C$6"645$S 45&C454 5"&$ 4 5"C """gobj  glen N gv  W gi  ] gfilenamefsrfi/srfi-4/gnu.scm O ( L ;  gnamegany->s16vectorC)Rgjp h]45$C$6"645$S 45&C454 5"&$ 4 5"C """gobj  glen N gv  W gi  ] gfilenamefsrfi/srfi-4/gnu.scm O ( L ;  gnamegany->u32vectorC*Rgjp h]45$C$6"645$S 45&C454 5"&$ 4 5"C """gobj  glen N gv  W gi  ] gfilenamefsrfi/srfi-4/gnu.scm O ( L ;  gnamegany->s32vectorC+Rgjp h]45$C$6"645$S 45&C454 5"&$ 4 5"C """gobj  glen N gv  W gi  ] gfilenamefsrfi/srfi-4/gnu.scm O ( L ;  gnamegany->u64vectorC,Rgjp h]45$C$6"645$S 45&C454 5"&$ 4 5"C """gobj  glen N gv  W gi  ] gfilenamefsrfi/srfi-4/gnu.scm O ( L ;  gnamegany->s64vectorC-Rgjp h]45$C$6"645$S 45&C454 5"&$ 4 5"C """gobj  glen N gv  W gi  ] gfilenamefsrfi/srfi-4/gnu.scm O ( L ;  gnamegany->f32vectorC.Rgjp h]45$C$6"645$S 45&C454 5"&$ 4 5"C """gobj  glen N gv  W gi  ] gfilenamefsrfi/srfi-4/gnu.scm O ( L ;  gnamegany->f64vectorC/Rgjp h]45$C$6"645$_ 45&O454 5"2$&4 4 5>"G"C """gobj  glen N gv  W gi  ] gfilenamefsrfi/srfi-4/gnu.scm O ( L ;  gnamegany->c32vectorC0R$gjp" h]45$C$6"645$_ 45&O454 5"2$&4 4 5>"G"C """gobj  glen N gv  W gi  ] gfilenamefsrfi/srfi-4/gnu.scm O ( L ;  gnamegany->c64vectorC1RCgm  ,gfilenamefsrfi/srfi-4/gnu.scm   1 *  ,  /  2  5 q 9 : / O   & C6srfi-18.go000064400000040543151027761750006305 0ustar00GOOF----LE-8-2.0KA]4h ] gguile  gdefine-module*   gsrfi gsrfi-18  gfilenameS fsrfi/srfi-18.scm gimportsS gsrfi-34      gexportsS g make-thread g thread-name gthread-specific gthread-specific-set! g thread-start! g thread-yield! g thread-sleep! gthread-terminate! g thread-join! g make-mutex g mutex-name gmutex-specific gmutex-specific-set! g mutex-state g mutex-lock! g mutex-unlock! !gmake-condition-variable "gcondition-variable-name #gcondition-variable-specific $g condition-variable-specific-set! %gcondition-variable-signal! &gcondition-variable-broadcast! 'gcondition-variable-wait! (g current-time )gtime? *g time->seconds +g seconds->time ,gcurrent-exception-handler -gwith-exception-handler .graise /gjoin-timeout-exception? 0gabandoned-mutex-exception? 1gterminated-thread-exception? 2guncaught-exception? 3guncaught-exception-reason 4 !"#$%&'()*+,-./0123# 5g re-exportsS 6gcurrent-thread 7gthread? 8gmutex? 9gcondition-variable? :6789 ;g replacementsS <(!. =gset-current-module >= ?= @g provided? Agthreads Bgerror Cf+SRFI-18 requires Guile with threads support Dgcond-expand-provide Egcurrent-module F Gg scm-error Hgwrong-type-arg IfWrong type argument: ~S Jgcheck-arg-type Kgabandoned-mutex-exception Lgjoin-timeout-exception Mgterminated-thread-exception Nguncaught-exception Ogmake-weak-key-hash-table Pg object-names Qgobject-specifics Rgthread-start-conds Sgthread-exception-handlers T . U . Vgsrfi-18-exception-preserver Wginitial-handler Xgmake-object-property Ygthread->exception Zgsetter [Z \Z ]gsrfi-18-exception-handler ^g hashq-ref _g hashq-set! `gcurrent-handler-stack ag procedure? bfwith-exception-handler cgthunk? d - e - ffuncaught-exception-reason gg launch-mutex hglaunch-condition-variable ig start-mutex jgstart-condition-variable kg lock-mutex lgcall-with-new-thread mgsignal-condition-variable ng unlock-mutex ogwait-condition-variable pf thread-name qfthread-specific rfthread-specific-set! sf thread-start! tg hashq-remove! ugyield vgnumber? wf thread-sleep! xginexact->exact ygtruncate zgsleep {gusleep |gwrap }gthread-cleanup ~gset-thread-cleanup! g cancel-thread g join-thread glength   gunchecked-unlock gallow-external-unlock g recursive f mutex-name fmutex-specific fmutex-specific-set! g mutex-owner gthread-exited? g abandoned g mutex-level g not-owned g not-abandoned gcatch gabandoned-mutex-error ! ! fcondition-variable-name fcondition-variable-specific f condition-variable-specific-set! gbroadcast-condition-variable g gettimeofday ginteger? f time->seconds f seconds->timeC5h@0]4   45:;<5 4?>"G4@iA5$"4BiC>"G4Di4Ei5F>"GGHIh ]45$C6gpred  garg  gcaller   gfilenamefsrfi/srfi-18.scm `  a  a   c   d   d +  d 6 c   gnamegcheck-arg-typeCJRKKRLLRMMRNNR4Oi5PR4Oi5QR4Oi5RR4Oi5SRU.RVNh]6xgobj  gfilenamefsrfi/srfi-18.scm s t  t   gnameginitial-handlerCWR4Xi5YR12\Y6h8] 45$"45$45456Cgobj  6gt gfilenamefsrfi/srfi-18.scm x  y y   z $ y  , {  4 {   6 gnamegsrfi-18-exception-preserverCVR VNh0-13&C( "6gkey .gargs .gfilenamefsrfi/srfi-18.scm }     $ ( + ( .  . gnamegsrfi-18-exception-handlerC]R6^S_Wh0]4545$C6gct  *gt  *gfilenamefsrfi/srfi-18.scm       ( 1 *   * gnamegcurrent-handler-stackC`R6`Jabc_Se_Sh h]4LL>"GL6`gobj  gfilenamefsrfi/srfi-18.scm        C_Sh0q]4L> G4LL>"GEigres *gfilenamefsrfi/srfi-18.scm      *   * C hp$]45454>"G4>"G4>"G  O O6ghandler  ogthunk  ogct  oghl  ogfilenamefsrfi/srfi-18.scm       '   '  / ! 4  =  H - M  o   o gnamegwith-exception-handlerC-R`h{]45Csgfilenamefsrfi/srfi-18.scm      gnamegcurrent-exception-handlerC,RLh]Czgobj  gfilenamefsrfi/srfi-18.scm  &   gnamegjoin-timeout-exception?C/RKh]C}gobj  gfilenamefsrfi/srfi-18.scm  )   gnamegabandoned-mutex-exception?C0RNh]$CCgobj  gfilenamefsrfi/srfi-18.scm         gnameguncaught-exception?C2RJ2fh]45Cgexc  gfilenamefsrfi/srfi-18.scm   /      gnameguncaught-exception-reasonC3RMh]Cgobj  gfilenamefsrfi/srfi-18.scm     gnamegterminated-thread-exception?C1Rg!hijklkmno-Whx]4L>"G4L>"G4L>"G4L>"G4LL>"G4L>"GL6{gfilenamefsrfi/srfi-18.scm      '  9  K  _  x   x C]_RPonh-13$"454545454>"G4 O 54  >"G$4  >"G"4>"G4>"GCgthunk gname gn  4 glm  4 glc  4 gsm  4 gsc  4 gt  f gfilenamefsrfi/srfi-18.scm      !        $ ) &  '  +  -  .  2 ) 4  4  ?  Q  f  i t + y   CR^PJ7ph]456gthread  gfilenamefsrfi/srfi-18.scm    9       gnameg thread-nameCR^QJ7qh]456gthread  gfilenamefsrfi/srfi-18.scm   ,      gnamegthread-specificCR_QJ7rh(]445>"GCgthread  #gobj  #gfilenamefsrfi/srfi-18.scm      -      # gnamegthread-specific-set!CR^RJ7stkmn h%]4455$^4>"G4>"G4>"G4 >"G"Cgthread  }gx  }gsmutex  " vgscond  " vgfilenamefsrfi/srfi-18.scm     5          "  " ' ; M _   } gnameg thread-start!CRuhf]4>"GC^gfilenamefsrfi/srfi-18.scm     gnameg thread-yield!CR*()vGHwIxyz{ h]!445545$45"%45$ "454 4 554 4 B@55 $4 >"G" $4 >"G"Cgtimeout  gct gt  L gsecs  Z gusecs  u gfilenamefsrfi/srfi-18.scm         & # # (  2 7 % <  @ # B 3 D # I # J # L  L  O  R  Z  Z  ]  ` g - q * s u  u  {     &  gnameg thread-sleep!CR-,h z]445>"GL6rgobj  gfilenamefsrfi/srfi-18.scm            Chh]OL6`g continuation  gfilenamefsrfi/srfi-18.scm      Chh]OC`gthunk  gfilenamefsrfi/srfi-18.scm   gnamegwrapC|R}c~-WVMh V]4L>"G6Ngfilenamefsrfi/srfi-18.scm     !   !   CVMhM]6Egfilenamefsrfi/srfi-18.scm     *   Ch`] 4545$4O>"G"4>"G4>"GCgthread  [gcurrent-handler [gfilenamefsrfi/srfi-18.scm             4  H    [ gnamegthread-terminate!CR|Y.Lhh]4LL?4L54L5 $ $"4>"G"$4>"G"Cgv  bge  bgfilenamefsrfi/srfi-18.scm               #   )   .   I   J    b Ch -13H4O5KJBgthread gargs gthread-join-inner!  gfilenamefsrfi/srfi-18.scm        gnameg thread-join!CR_PhP-13$"45$4>"G"Cgname Jgn # Jgm  # Jgfilenamefsrfi/srfi-18.scm #  $   $  $   %  %   &   '  ! (  # % # $  - )  . )  J gnameg make-mutexCR^PJ8h]456gmutex  gfilenamefsrfi/srfi-18.scm +  ,   , 7  ,   ,    gnameg mutex-nameCR^QJ8h]456gmutex  gfilenamefsrfi/srfi-18.scm .  0  0 *  0  /    gnamegmutex-specificCR_QJ8h(]445>"GCgmutex  #gobj  #gfilenamefsrfi/srfi-18.scm 2  3   4   4 +  4   3   # gnamegmutex-specific-set!CRh8] 45$45$CC45 $CCgmutex  5gowner 5gfilenamefsrfi/srfi-18.scm 8  9  9   :   ;  ;   ; # # <  + < / <  1 < & 4 < 1  5 gnameg mutex-stateCR|khM]LL@Egfilenamefsrfi/srfi-18.scm B  B   C.Khr-136jgkey gargs gfilenamefsrfi/srfi-18.scm C   C (  ChV]LLO6Ngfilenamefsrfi/srfi-18.scm @  A   A    Ch -13H4O5KJBgmutex gargs gmutex-lock-inner!  gfilenamefsrfi/srfi-18.scm > @   D   gnameg mutex-lock!CRnh-13@gmutex gargs gfilenamefsrfi/srfi-18.scm F  G   gnameg mutex-unlock!C R_PhH-13$"45$4>"G"Cgname Dgn  Dgm   Dgfilenamefsrfi/srfi-18.scm M  N   N  N   O  O   O  N  ' P  ( P  D gnamegmake-condition-variableC!R^PJ9h]456gcondition-variable  gfilenamefsrfi/srfi-18.scm R  S   U *  S   S    gnamegcondition-variable-nameC"R^QJ9h]456gcondition-variable  gfilenamefsrfi/srfi-18.scm W  X   Z .  X   X    gnamegcondition-variable-specificC#R_QJ9h(]445>"GCgcondition-variable  #gobj  #gfilenamefsrfi/srfi-18.scm \  ]   ^   `   ^   ]   # gnameg condition-variable-specific-set!C$Rmh]4>"GC~gcond  gfilenamefsrfi/srfi-18.scm d  e    gnamegcondition-variable-signal!C%Rh]4>"GCgcond  gfilenamefsrfi/srfi-18.scm h  i    gnamegcondition-variable-broadcast!C&Ri(RhH] $945$ "$45$ CCCCgobj  Dgco %gco , @gfilenamefsrfi/srfi-18.scm o  p  p  q  q   q "  q   q 0 ) p  , r  , r  / r " 9 r  = r 0  D gnamegtime?C)RJ)h(]45$B@CCgtime  %gfilenamefsrfi/srfi-18.scm t  u  u " u   u   v  v  ! v  " v   % gnameg time->secondsC*RJvyxh@] 45$+454544B@55CCgx  >gfx  <gfilenamefsrfi/srfi-18.scm x  y  y ! y   y   z   z   {  " |  % |  , | , 6 | ) 8 |  : |  ; {   > gnameg seconds->timeC+RCgm  4gfilenamefsrfi/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? C6srfi-9.go000064400000071676151027761750006240 0ustar00GOOF----LE-8-2.0s]4hG3] gguile  gdefine-module*   gsrfi gsrfi-9  gfilenameS fsrfi/srfi-9.scm gimportsS gsrfi-1     gsystem gbase gck    gexportsS gdefine-record-type  gset-current-module   gcond-expand-provide gcurrent-module  gmake-syntax-transformer   !gdefine-inlinable "gmacro #g $sc-dispatch $# %# &gany 'geach-any (&' )(' *&) +g syntax-object ,gdefine-tagged-inlinable -gtop .- /gribcage 0gdummy 1gname 2gformals 3gbody 40123 5gm-1e8ba8b5a-25b 65- 76... 8fl-1e8ba8b5a-260 9fl-1e8ba8b5a-261 :fl-1e8ba8b5a-262 ;fl-1e8ba8b5a-263 <89:; =/47< >/ ?gx @? A6 Bfl-1e8ba8b5a-25d CB D/@AC E.=>D Fghygiene GF H+,EG Igsyntax-violation JI KI Lf-source expression failed to match any pattern Mg %%on-error N&& Og%%type Pg getter-type Qgfree-id Rgquote Sgm-1e8ba8b5a-274 TS- UT Vfl-1e8ba8b5a-276 WV X/@UW Y.>X Z+RYG [QZ \[& ]&&\\ ^gs _ggetter `gerr a0^_` bT... cfl-1e8ba8b5a-279 dfl-1e8ba8b5a-27a efl-1e8ba8b5a-27b ffl-1e8ba8b5a-27c gcdef h/abg i.h>X j+MiG k+OiG lg%%index mg getter-index ngm-1e8ba8b5a-281 on- po qfl-1e8ba8b5a-283 rq s/@pr t.>s u+RtG vQu wv& x&&ww yo... zfl-1e8ba8b5a-286 {fl-1e8ba8b5a-287 |fl-1e8ba8b5a-288 }fl-1e8ba8b5a-289 ~z{|} /ay~ .>s +MG +lG g%%copier g getter-copier gm-1e8ba8b5a-28e -  fl-1e8ba8b5a-290  /@ .> +RG Q & && ... fl-1e8ba8b5a-293 fl-1e8ba8b5a-294 fl-1e8ba8b5a-295 fl-1e8ba8b5a-296  /a .> +MG +G g_ geach N )  g identifier? g datum->syntax g symbol-append g% g syntax->datum g -procedure ggenerate-temporaries &' gbegin g proc-name gargs  .. fl-1e8ba8b5a-2ba fl-1e8ba8b5a-2bb  / gkey gvalue 123 ..... fl-1e8ba8b5a-2ad fl-1e8ba8b5a-2ae fl-1e8ba8b5a-2af fl-1e8ba8b5a-2b0 fl-1e8ba8b5a-2b1  / gmake-procedure-name  . fl-1e8ba8b5a-29d  / . fl-1e8ba8b5a-29c  /@ .>>>>  +G gdefine +G g define-syntax +G glambda +G +?G  g syntax-case +G +MG gappend   gmap   +G +`G  +^G  gsyntax +G +G +RG ga +G g... +G  +IG fWrong number of arguments +G  +G  gdisplay f#< grecord-type-name grecord-type-descriptor f  f:  gwrite grecord-type-fields f> gdefault-record-printer gthrow gwrong-type-arg fWrong type argument: ~S gthrow-bad-struct g%% g -set-fields gmake-copier-id g %%set-fields & & ' &  gevery glist gfor-each gfind gfree-identifier=? funknown getter  g struct-ref  gt-1e8ba8b5a-32b     gm-1e8ba8b5a-32c   -   fl-1e8ba8b5a-32f  /  gindex _ fl-1e8ba8b5a-329 fl-1e8ba8b5a-32a  / glookup  fl-1e8ba8b5a-2fe  / g copier-name g getter+exprs   fl-1e8ba8b5a-2f8 !fl-1e8ba8b5a-2f9 " ! #/" $g type-name %g getter-id &gcheck? 'gexpr ($%&^_' )...... *fl-1e8ba8b5a-2ec +fl-1e8ba8b5a-2ed ,fl-1e8ba8b5a-2ee -fl-1e8ba8b5a-2ef .fl-1e8ba8b5a-2f0 /fl-1e8ba8b5a-2f1 0*+,-./ 1/()0 2fl-1e8ba8b5a-2dc 32 4/@3 5.>>#1>4  6+ 5G 7gfilter 8glength 9fduplicate getter :giota ;g make-struct gm-1e8ba8b5a-320 ?>- @? Afl-1e8ba8b5a-324 BA C/=@B D.>C#1>4 E+;DG F+ DG Gghere Hg unsafe-expr IH Jfl-1e8ba8b5a-317 KJ L/IK M.>L#1>4 N+GMG Ogif Pgt-1e8ba8b5a-319 QP Rgm-1e8ba8b5a-31a SR- TS Ufl-1e8ba8b5a-31d VU W/QTV X.>W>L#1>4  Y+OXG Zgeq? [+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 jgboolean? kfexpected type name lfinvalid constructor spec mfexpected predicate name n&&& ofinvalid field spec pgstring-concatenate qg make-list rfpr sfpw tgmemq uf!unknown field in constructor spec vgassq-ref w&&' xgt-1e8ba8b5a-38d ygt-1e8ba8b5a-38c zgt-1e8ba8b5a-38b {xyz |gm-1e8ba8b5a-38e }|- ~}}} fl-1e8ba8b5a-392 fl-1e8ba8b5a-393 fl-1e8ba8b5a-394  /{~ g ctor-args  fl-1e8ba8b5a-37a  / gctor gfield  fl-1e8ba8b5a-376 fl-1e8ba8b5a-377  / gform gconstructor-spec g field-names $ .... fl-1e8ba8b5a-36b fl-1e8ba8b5a-36c fl-1e8ba8b5a-36d fl-1e8ba8b5a-36e  / 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  / fl-1e8ba8b5a-334  /@ .>>>>>  +!G +;G + G g copier-id  fl-1e8ba8b5a-476  / g ctor-name  fl-1e8ba8b5a-46e  /  fl-1e8ba8b5a-46c  / glayout  fl-1e8ba8b5a-46a  / g immutable?  fl-1e8ba8b5a-468  / g field-count  fl-1e8ba8b5a-466  / g getter-ids  fl-1e8ba8b5a-463  / g field-ids  fl-1e8ba8b5a-460  / gpredicate-name g field-spec $ fl-1e8ba8b5a-453 fl-1e8ba8b5a-454 fl-1e8ba8b5a-455 fl-1e8ba8b5a-456 fl-1e8ba8b5a-457 fl-1e8ba8b5a-458  /) .>>>>>>>>>>> +GG gmake-struct-layout &&&&&&& 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  / fl-1e8ba8b5a-3a3 fl-1e8ba8b5a-3a4  / $ ... fl-1e8ba8b5a-39e fl-1e8ba8b5a-39f fl-1e8ba8b5a-3a0    /   .>>>>>    +, G  +O G +l G + G +^ G  +O G +Z G +\ G  +  G + G +R G gdefine-syntax-rule gt-1e8ba8b5a-3c4 gt-1e8ba8b5a-3c6 gt-1e8ba8b5a-3c5  gm-1e8ba8b5a-3c7 -   !fl-1e8ba8b5a-3cb "fl-1e8ba8b5a-3cc #fl-1e8ba8b5a-3cd $!"# %/ $ &fl-1e8ba8b5a-3c1 'fl-1e8ba8b5a-3c2 (fl-1e8ba8b5a-3c3 )&'( */) +.>%>>>*  ,++G -+&+G .+^+G /+_+G 0+'+G 1/0 2++G 3-.12 4++G 5g filter-map 6gt-1e8ba8b5a-405 76 8gm-1e8ba8b5a-406 98- :9 ;fl-1e8ba8b5a-409 <; =/7:< >gsetter ?1_> @fl-1e8ba8b5a-3ff Afl-1e8ba8b5a-400 Bfl-1e8ba8b5a-401 C@AB D/?C E Ffl-1e8ba8b5a-3f6 Gfl-1e8ba8b5a-3f7 HFG I/EH Jg field-specs KJ Lfl-1e8ba8b5a-3f2 Mfl-1e8ba8b5a-3f3 NLM O/KN P.>=D>I>O  Q+!PG R+^PG Sgval T+SPG URT V+PG WT Xgt-1e8ba8b5a-3e6 Ygt-1e8ba8b5a-3e7 ZXY [gm-1e8ba8b5a-3e8 \[- ]\\ ^fl-1e8ba8b5a-3ec _fl-1e8ba8b5a-3ed `^_ a/Z]` bfl-1e8ba8b5a-3e0 cfl-1e8ba8b5a-3e1 dfl-1e8ba8b5a-3e2 ebcd f/?e gfl-1e8ba8b5a-3d7 hfl-1e8ba8b5a-3d8 igh j/Ei k$J lfl-1e8ba8b5a-3d3 mfl-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 ~&&&&'&' 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  / .>>>>>>>>>>>> +G +G glet +G grtd +G gmake-struct/no-tail +G grecord-type-vtable +G +RG +G gset-struct-vtable-name! +G +yG g+ +G + G gvtable-offset-user +G   +!G gobj +G  gand +G gstruct? +G  +ZG +\G  gpred gfields 01 gm-1e8ba8b5a-4a3 - .... fl-1e8ba8b5a-4a8 fl-1e8ba8b5a-4a9 fl-1e8ba8b5a-4aa fl-1e8ba8b5a-4ab fl-1e8ba8b5a-4ac  /  fl-1e8ba8b5a-4a5  /@ .> +`G +G +GC5h<]4   54>"G4i4i5>"G4 !"%*Hhf]C^gdummy  gname  gformals   gbody      CKLh(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-9.scm J   " g macro-typeg syntax-rulesgpatternsgnamegformalsg...gbodyg...C5!R4 M"%Nh>]C6gdummy  gerr     CKLh(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-9.scm R   " g macro-typeg syntax-rulesgpatternsgerrC5MROR4 P"%]jkha]CYgdummy  gs  ggetter   gerr      CKLh(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-9.scm V   " g macro-typeg syntax-rulesgpatternsgsgquoteggettergquotegerrC5PRlR4 m"%xha]CYgdummy  gs  ggetter   gerr      CKLh(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-9.scm \   " g macro-typeg syntax-rulesgpatternsgsgquoteggettergquotegerrC5mRR4 "%ha]CYgdummy  gs  ggetter   gerr      CKLh(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-9.scm b   " g macro-typeg syntax-rulesgpatternsgsgquoteggettergquotegerrC5R4 ,"%KLh]6gkey  gvalue  gname   gformals   gbody   gfilenamefsrfi/srfi-9.scm  o    C%h(X]CPgtmp-1e8ba8b5a-2c8  $gtmp-1e8ba8b5a-2c7  $  $ ChxC]LLLL4 4  LL5  LLL  5C;g proc-name  xgargs  x  x CKL hX]4445554545$ O@  6gkey  Rgvalue  Rgname   Rgformals   Rgbody   Rgtmp  # Rgtmp  . Rgfilenamefsrfi/srfi-9.scm  i   j  j $ j '  k $  j   i   q ! # p   R Ch@b] 45" 6$4?$@""Zgx  9gtmp 9gfilenamefsrfi/srfi-9.scm g   9 C5,R h]4>"G44455>"G"l("w4>"G4>"G4>"G4>"G"4455 " 6gs  gp  gfields  8 goff  8 gfilenamefsrfi/srfi-9.scm           % ,  8  >  C  G  N  W  \  c  l  p  w        )   "  gnamegdefault-record-printerCRh]6gs  gwho  gfilenamefsrfi/srfi-9.scm   #      gnamegthrow-bad-structCRh]44556g type-name  gfilenamefsrfi/srfi-9.scm   $        gnamegmake-copier-idCR4 "%KLh]6g type-name  g getter-id  gcheck?   gs   ggetter   gexpr   gfilenamefsrfi/srfi-9.scm   Chd]L6\g getter-id  gfilenamefsrfi/srfi-9.scm  !  CIh(] 4OL5$CLL6~gid  'gt  'gfilenamefsrfi/srfi-9.scm      ! & '   ' C67hg]L6_gg+e  gfilenamefsrfi/srfi-9.scm  2   C8I9hP]L4OL545 $C $CLL6ggetter  Kgindex  Kg default-expr  Kgresults   Kgkey  $ Kgfilenamefsrfi/srfi-9.scm # %      $ <  E " K   K C:8%'EFh7]LC/gt-1e8ba8b5a-31f     CKLNY[]^_h]&4455454LO>"G4LO4 4 5554  5  $4 O ?" 45 45$/45  CCg type-name  g getter-id  gcheck?   gs   ggetter   gexpr   g copier-name   g getter+exprs   gtmp  Z gtmp e gtmp  gtmp  gfilenamefsrfi/srfi-9.scm    )      ;  M # P ) X # Z  Z      Ch@c] 45" 6$4?$ O@""[gx  >gtmp >gfilenamefsrfi/srfi-9.scm   > C5R4 `"%ehI%fhj]6bgmacro  gargs  gfilenamefsrfi/srfi-9.scm  O    CKLih8] 45$ 4?" 456g immutable?  3gform  3grest   3gtmp  -gfilenamefsrfi/srfi-9.scm / P  3 M   3 CKLjI%fhj]6bgmacro  gargs  gfilenamefsrfi/srfi-9.scm   /   CKLk(hj]6bgmacro  gargs  gfilenamefsrfi/srfi-9.scm   /   Clhi]6agctor  gargs  gfilenamefsrfi/srfi-9.scm    Ch>]C6gctor  gargs     Chj]6bgmacro  gargs  gfilenamefsrfi/srfi-9.scm   /   Cm%NhA]C9gfield  ggetter     CnhU]CMgfield  ggetter  gsetter      CIfhj]6bgmacro  gargs  gfilenamefsrfi/srfi-9.scm   /   CKLo hh]45$@45$@4L5$ 4?" 4  L5 L6gspec  cgtmp cgtmp  " cgtmp  ; [gfilenamefsrfi/srfi-9.scm &  ] * * c    c Ch@]4455$'45$"4445$ 4?" 4 5 5$4 5"8445$ 4 ?" 4 5 5"($4?$ 4?""""$^45$"4445$ 4?" 4 55$ O6CCCCg immutable?  ;gform  ;g type-name   ;gconstructor-spec   ;gpredicate-name   ;g field-spec   ;gt   ]gtmp  2 Rgtmp  j gtmp  | gt  "gtmp   gfilenamefsrfi/srfi-9.scm                  '  T  Z  a  q  " !   $  $    %   &  3 &   ; C%Nh@]C8gname  ggetter     CnhT]CLgname  ggetter  gsetter      CKLh@}]45$@45$@6ug field-spec  9gtmp 9gtmp  " 9gfilenamefsrfi/srfi-9.scm   9 C%Nh@]C8gname  ggetter     CnhT]CLgname  ggetter  gsetter      CKLh@}]45$@45$@6ug field-spec  9gtmp 9gtmp  " 9gfilenamefsrfi/srfi-9.scm   9 C8pqrs%(h>]C6gctor  gargs     CKLhj]6bgctor  gfield  gfilenamefsrfi/srfi-9.scm   CtI%fhj]6bgmacro  gargs  gfilenamefsrfi/srfi-9.scm  +   CKLu hh]454L5$"?44L5$ 4?" 4L5 L>"GCgfield  hgname hgt   bgtmp  , Lgfilenamefsrfi/srfi-9.scm   - ! '  # ! ' N ( W ' g #  h Cvh_]L6Wgname  gfilenamefsrfi/srfi-9.scm $ &  C%whq]Cigt-1e8ba8b5a-38d  gt-1e8ba8b5a-38c  gt-1e8ba8b5a-38b      CKL hP]4LLO5LL4OL545$@6gctor  Kgfield  Kg ctor-args   Kgtmp  ) Kgtmp  4 Kgfilenamefsrfi/srfi-9.scm      )   K C%   hP]     Cgt-1e8ba8b5a-3a5  Jgt-1e8ba8b5a-3a6  Jgt-1e8ba8b5a-3a7   Jgt-1e8ba8b5a-3a8   Jgt-1e8ba8b5a-3a9   Jgt-1e8ba8b5a-3aa   Jgt-1e8ba8b5a-3ab   J  J CKLh8]LLL45$@6ggetter  5gindex  5gtmp   5gtmp   5gfilenamefsrfi/srfi-9.scm    5 C:n,34hq]Cigt-1e8ba8b5a-3c4  gt-1e8ba8b5a-3c6  gt-1e8ba8b5a-3c5      C5%Nh@]C8gname  ggetter     CnQUVRWh T]LCLgname  ggetter  gsetter      CKLh@]45$@45$ LO@6g field-spec  >gindex  >gtmp  >gtmp  " >gfilenamefsrfi/srfi-9.scm    > C%Nh@]C8gname  ggetter     Cn%Nqtuvxzr{|} h8T]L  LCLgt-1e8ba8b5a-3e6  4gt-1e8ba8b5a-3e7  4  4 CKLh0]LL45$ O@6gname  0ggetter  0gsetter   0gtmp  0gtmp   0gfilenamefsrfi/srfi-9.scm   0 CKLh@]45$@45$ LO@6g field-spec  @gindex  @gtmp  @gtmp  " @gfilenamefsrfi/srfi-9.scm   @ C~h]LL L    LL45Cgt-1e8ba8b5a-47e  gt-1e8ba8b5a-478  gt-1e8ba8b5a-479   gt-1e8ba8b5a-47a   gt-1e8ba8b5a-47d   gt-1e8ba8b5a-47c   gt-1e8ba8b5a-47b      Ch]V45454545 44 $" 55 45 4  5  $ 4  ?" 4 5  45 4  5"4 5"3$)4?$4 O?""""44 55 4 O44555 4 5$ 4?" 4 5 $4 O44555"4O445554 5$ O@ 6g immutable?  gform  g type-name   gconstructor-spec   gpredicate-name   g field-spec   g field-ids  g getter-ids   g field-count   g immutable? ( glayout D g field-names O gtmp Z zg ctor-name z g copier-id gtmp  gtmp   =gtmp   :gtmp  ~ gtmp   gfilenamefsrfi/srfi-9.scm   ,     ,   .   ,  " /  ( ,  +   .   8   :  ! @  & B   D   D ,  G 1  O ,  } 4  ,  ;  ; 4 ;         C I  D   P   S   [   ]   b  n   q   y   {  ~ 5 *   C hPt]45" 45$@6$4?$@""lgx  Pgtmp Pgtmp   1gfilenamefsrfi/srfi-9.scm   P C5`R4 "%ch(w]Cogdummy  #gname  #gctor   #gpred   #gfields   #  # CKLh(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-9.scm S   " g macro-typeg syntax-rulesgpatternsgnamegctorgpredgfieldsg...C5RCgm  ,gfilenamefsrfi/srfi-9.scm  = - B 2 B  : B & ? B  T  Z Z ` N 0    < C6srfi-16.go000064400000000704151027761750006276 0ustar00GOOF----LE-8-2.0]4h] gguile  gdefine-module*   gsrfi gsrfi-16  gfilenameS fsrfi/srfi-16.scm g re-exportsS g case-lambda   gset-current-module  C5h(R]4    54>"GCJgm  (gfilenamefsrfi/srfi-16.scm /   ( C6srfi-35.go000064400000043344151027761750006306 0ustar00GOOF----LE-8-2.0F] 4hQ] gguile  gdefine-module*   gsrfi gsrfi-35  gfilenameS fsrfi/srfi-35.scm gimportsS gsrfi-1      gexportsS gmake-condition-type gcondition-type? gmake-condition g condition? gcondition-has-type? g condition-ref gmake-compound-condition gextract-condition gdefine-condition-type g condition g &condition g&message gmessage-condition? gcondition-message g&serious gserious-condition? !g&error "gerror? # !" $gset-current-module %$ &$ 'gcond-expand-provide (gcurrent-module ) *g make-vtable +g string-append ,gstandard-vtable-fields -fprprpr .gformat /f# 0gcondition-type-id 1gnumber->string 2gobject-address 3gset-struct-vtable-name! 4gcondition-type 5g%condition-type-vtable 6gmake-struct-layout 7gprint-condition 8gstring? 9gstring->symbol :f ;g%make-condition-type gcondition-type-all-fields ?gstring-concatenate/shared @fpr A@ Bgstruct-layout-for-condition Cf# Dgfold Ef~A: ~S Fg string-join Ggreverse Hf  Igerror Jf"invalid condition type field names Kgevery Lgsymbol? Mglset-intersection Ngeq? Ogappend Pfparent is not a condition type Qf)condition type identifier is not a symbol Rf7`make-compound-condition-type' passed empty parent list Sg append-map Tgmake-compound-condition-type Ugthrow Vgwrong-type-arg Wfcondition-has-type? XfWrong type argument Ygany Zg list-index [finvalid field name \ffield name is not a symbol ]f condition-ref ^fWrong type argument: ~S _g make-struct `gmake-condition-from-values ag fold-right bgmemq cffield not specified dfmake-condition egmap fgcompound ggreverse! hfextract-condition ig+ jglength kgmake-syntax-transformer lk mk ngmacro og $sc-dispatch po qo rgeach sYY trs uYt vYu wYv xYw yg syntax-object zgbegin {gtop |{ }gribcage ~gdummy gname gparent gpred g field-name gfield-accessor ~ gm-46961e5119-cc { ||||| fl-46961e5119-d1 fl-46961e5119-d2 fl-46961e5119-d3 fl-46961e5119-d4 fl-46961e5119-d5 fl-46961e5119-d6  } } gx   fl-46961e5119-ce  } | ghygiene  yz gdefine y y gquote y gc y  y e e y gsyntax-violation   f-source expression failed to match any pattern gcompound-condition geach-any Y gtype gfield ~ gm-46961e5119-e1 { || fl-46961e5119-e6 fl-46961e5119-e7 fl-46961e5119-e8  }  fl-46961e5119-e3  } | y yT y g %compound y  g quasiquote y gunquote y gcondition-instantiation YY gout ~ gm-46961e5119-ee { || fl-46961e5119-f3 fl-46961e5119-f4 fl-46961e5119-f5  }  fl-46961e5119-f0  } | y s ڌ Yی Y܌ g field-value grest ~ ||||| fl-46961e5119-fb fl-46961e5119-fc fl-46961e5119-fd fl-46961e5119-fe fl-46961e5119-ff fl-46961e5119-100  } | y O O y Y Y gm-46961e5119-109 { || fl-46961e5119-10e fl-46961e5119-10f fl-46961e5119-110  }  fl-46961e5119-10b  } | y r Y fl-46961e5119-116 fl-46961e5119-117 fl-46961e5119-118  } | y gdisplay  f <&condition>  gmessage   C5hx0]4   #54&>"G4'i4(i5)>"G4*i4+i,i-5./012h ]45445 56gct  gport  gfilenamefsrfi/srfi-35.scm 3   4 ' 5 "  6 "  6 2  6 "  4    C543i4>"G5R567389:hX0] 454$"45$ 45"45>"GC(glayout  Wgid  Wgparent   Wg all-fields   Wgstruct   Wgfilenamefsrfi/srfi-35.scm ;  =   <   <   C  C + $ C $ + D + 5 C $ 6 D 8 A E 8 E E H G E 8 L C   W gnameg%make-condition-typeC;R5h]$CCgobj  gfilenamefsrfi/srfi-35.scm H  J  J  K  K    gnamegcondition-type?g documentationf'Return true if OBJ is a condition type.CR<h]45$ CCgct  gfilenamefsrfi/srfi-35.scm N  O  O   P   P    gnamegcondition-type-idC0R<h]45$CCgct  gfilenamefsrfi/srfi-35.scm R  S  S   T   T    gnamegcondition-type-parentC=R<h]45$  CCgct  gfilenamefsrfi/srfi-35.scm V  W  W   X   X    gnamegcondition-type-all-fieldsC>R?@Ah0]"(6""g field-names  .g field-names  "glayout   "gfilenamefsrfi/srfi-35.scm [  ^  `   a   b   c   c  " b  " ^  & _  . ^   . gnamegstruct-layout-for-conditionCBR.C04D.Eh ]44L55Cgfield  gresult  gfilenamefsrfi/srfi-35.scm j   k "  k - l *  k "  k    C>FGH12 hX?]44554O45544 5 54 4 5 567gc  Sgport  Sgtype   Cgstrings  - @gfilenamefsrfi/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 gnamegprint-conditionC7R>IJKLMNOB;PQh]$l45$Y45"645$345( 4 54 5 6"" 6 6gid  }gparent  }g field-names   }g parent-fields   mg all-fields  N eglayout  W egfilenamefsrfi/srfi-35.scm w  |  |  }  }   ~   ~ %  )  )  *   6  7  E   F # N  Q # W  e  q  u y }   } gnamegmake-condition-typeg documentationfReturn 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(C45456gid  ;gparents  ;g all-fields  $ ;glayout  - ;gfilenamefsrfi/srfi-35.scm            $ '  - ;   ; gnamegmake-compound-condition-typeCTRh]$6Cgc  gfilenamefsrfi/srfi-35.scm          gnameg condition?g documentationf Return true if C is a condition.CRh ] $45$CCCgc  gvtable gfilenamefsrfi/srfi-35.scm          gnamegcondition-typeC4RUVWX=Yh@] L&C$%45$L645"Cgct  9gparent  7gfilenamefsrfi/srfi-35.scm          "  *  +  7   9 gnamegloopC4 hPB] " 645$*45$OQ456"":gc  Igtype  Igloop  / Agfilenamefsrfi/srfi-35.scm            &  /  9  A   I gnamegcondition-has-type?g documentationf)Return true if condition C has type TYPE.CR4>Zh`]LCXgname  gfilenamefsrfi/srfi-35.scm %  '   CI[\UV]^ h`]45$E$645454O5$C66    6gc  ^g field-name  ^gtype   Jgfields  $ Jgindex  4 Jgfilenamefsrfi/srfi-35.scm            $ '  4 < A  F  J  N  R V X  Z ^   ^ gnameg condition-refg documentationf@Return the value of the field named FIELD-NAME from condition C.CR_h] @gtype  gvalues  gfilenamefsrfi/srfi-35.scm   gnamegmake-condition-from-valuesC`R>abIch(] 4L5$C6gfield  $ginits  $gv  $gfilenamefsrfi/srfi-35.scm %  0 '  -  )  3  - 4 $ -  $ C`UVd^ hH-1345$"454O56 6gtype Bg field+value Bg all-fields   6ginits  , 6gfilenamefsrfi/srfi-35.scm          ( % ,  ,  6  : <  > B  B gnamegmake-conditiong documentationfReturn a new condition of type TYPE with fields initialized as specified by FIELD+VALUE, a sequence of field names (symbols) and values.CRe4TfS4eh]]L6Ugf  gfilenamefsrfi/srfi-35.scm & (  C>h ] 45O456gc  gct gfilenamefsrfi/srfi-35.scm   )   &  !   C`h8U-134545456Mg conditions 2gtypes  2gct   2ginits  ( 2gfilenamefsrfi/srfi-35.scm       /      (  2  2 gnamegmake-compound-conditiong documentationf7Return a new compound condition composed of CONDITIONS.CRgh@;]"((6L""3g start-index  =g field-names  =gindex   .g field-names   .gresult   .gfilenamefsrfi/srfi-35.scm                     #   .  .   3   =    = gnameg list-fieldsCUVhX4=ie>jhph](CL&C$04L5$C445?"4455"`gparents  ogindex  ogparent   ogt  * Qgshift  ] ogfilenamefsrfi/srfi-35.scm         !  "  *  8  ;  > % H  I  Q  R  U $ ]  ]  b   g   o    o gnamegloopC> h]"OQ" 645$f45$W454 5&C$1 OQ4 5 44 55@C""gc  gtype  g list-fields  gct  : gparent  C gloop  ` rg field-index  r gfilenamefsrfi/srfi-35.scm  !  !   "  !       (   )   3   4   :   =   C   M   S   W   `  r   y   ~  %      gnamegextract-conditiong documentationfOReturn a condition of condition type TYPE with the field values specified by C.CR4mnqxh X]CPgtmp-46961e5119-df  gtmp-46961e5119-de     C hH]4 5Cgdummy  Bgname  Bgparent   Bgpred   Bg field-name   Bgfield-accessor   B  B Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-35.scm )   " g macro-typeg syntax-rulesgpatternsgnamegparentgpredg field-namegfield-accessorg...C5R4mnqh9]C1gtmp-46961e5119-ec    Ch R]45CJgdummy  gtype  gfield     Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-35.scm 3   " g macro-typeg syntax-rulesgpatternsgtypeg...gfieldg...C5R4mnqhP]CHgdummy  gtype  gout     Ch ]45Cgdummy  gtype  gout   g field-name   g field-value   grest      Ch@ ]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefsrfi/srfi-35.scm :   9 g macro-typeg syntax-rulesgpatternsgtypegoutg...gtypegoutg...g field-nameg field-valuegrestg...C5R4mnqhR]CJgdummy  gtype  gfield     ChR]4?CJgdummy  gtype  gfield      Ch@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefsrfi/srfi-35.scm A   9 g macro-typeg syntax-rulesgpatternsgtypegfieldg...gtypegfieldg...g...C5R5i46i:5 hx]6pgc  gport  gfilenamefsrfi/srfi-35.scm P   Q   Q    CR4ii 5Rhr]6jgc  gfilenamefsrfi/srfi-35.scm T   gnamegmessage-condition?CR hq]6igc  gfilenamefsrfi/srfi-35.scm T   gnamegcondition-messageCR4ii5Rhr]6jgc  gfilenamefsrfi/srfi-35.scm X   gnamegserious-condition?C R4i!i5!R!hf]6^gc  gfilenamefsrfi/srfi-35.scm [   gnamegerror?C"RCgm  ,gs ( Egfilenamefsrfi/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 C6srfi-60.go000064400000004120151027761750006271 0ustar00GOOF----LE-8-2.08]:4h+] gguile  gdefine-module*   gsrfi gsrfi-60  gfilenameS fsrfi/srfi-60.scm gexportsS g bitwise-and g bitwise-ior g bitwise-xor g bitwise-not g any-bits-set? g bitwise-if g bitwise-merge glog2-binary-factors g first-set-bit gbit-set? gcopy-bit g bit-field gcopy-bit-field garithmetic-shift grotate-bit-field greverse-bit-field g integer->list g list->integer gbooleans->integer    g re-exportsS !glogand "glogior #glogxor $ginteger-length %glogtest &glogcount 'glogbit? (gash )!"#$%&'( *g replacementsS +g bit-count ,+ -gset-current-module .- /- 0gload-extension 1g string-append 2f libguile- 3geffective-version 4fscm_init_srfi_60 5glognot 6g bit-extract 7gcond-expand-provide 8gcurrent-module 9C5h]4    )*,5 4/>"G40i41i243i554>"G!i R"i R#iR5iR%iR&i+R5h]45Cgmask  gn0  gn1   gfilenamefsrfi/srfi-60.scm 8  9  :   :  9    gnameg bitwise-ifCRiRiR'iR6iR6h(]454 5Cgn  "gnewbits  "gstart   "gend   "gfilenamefsrfi/srfi-60.scm A  B   C   C 0  C   B  B ! B   " gnamegcopy-bit-fieldCR(iR7i48i596gm  0gfilenamefsrfi/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    C6srfi-8.go000064400000001153151027761750006216 0ustar00GOOF----LE-8-2.0S]4hf] gguile  gdefine-module*   gsrfi gsrfi-8  gfilenameS fsrfi/srfi-8.scm gimportsS gice-9 greceive      g re-exportsS   gset-current-module   gcond-expand-provide gcurrent-module C5h@i]4   54>"Gi4i56agm  ,gfilenamefsrfi/srfi-8.scm   1   9  & ;    ; C6srfi-67.go000064400000207571151027761750006317 0ustar00GOOF----LE-8-2.0a]4h 4] gguile  gdefine-module*   gsrfi gsrfi-67  gfilenameS fsrfi/srfi-67.scm gimportsS gsrfi-27      gexportsS g/>=? g>/>? g>=/>=? g>=/>? g>=? g>? gboolean-compare gchain<=? gchain=? #gchain>? $g char-compare %gchar-compare-ci &g compare-by< 'g compare-by<= (g compare-by=/< )g compare-by=/> *g compare-by> +g compare-by>= ,gcomplex-compare -g cond-compare .g debug-compare /gdefault-compare 0gif-not=? 1gif3 2gif<=? 3gif=? 6gif>? 7ginteger-compare 8g kth-largest 9g list-compare :glist-compare-as-vector ;g max-compare gnumber-compare ?g pair-compare @gpair-compare-car Agpair-compare-cdr Bgpairwise-not=? Cgrational-compare Dg real-compare Egrefine-compare Fgselect-compare Ggsymbol-compare Hgvector-compare Igvector-compare-as-list J !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHI9 Kg replacementsS Lgstring-compare Mgstring-compare-ci NLM Ogset-current-module PO QO Rgcond-expand-provide Sgcurrent-module T Ugfor-each Vgcompare:checked Wgmake-syntax-transformer XW YW Zgmacro [g $sc-dispatch \[ ][ ^gany _^^^^^ `g syntax-object agcase bgtop cb dgribcage egdummy fgc ggless hgequal iggreater jefghi kgm-46961e518a-3 lkb mlcccc nfl-46961e518a-8 ofl-46961e518a-9 pfl-46961e518a-a qfl-46961e518a-b rfl-46961e518a-c snopqr tdjms ud vgx wv xl yfl-46961e518a-5 zy {dwxz |ctu{ }ghygiene ~} `a|~ ` |~  ` |~  ` |~  gelse `|~ gerror `|~ f comparison value not in {-1,0,1} `|~    gsyntax-violation   f-source expression failed to match any pattern gcompare:if-rel? gc-cases ga-cases g consequence ef gm-46961e518a-12 b cccc fl-46961e518a-17 fl-46961e518a-18 fl-46961e518a-19 fl-46961e518a-1a fl-46961e518a-1b  d  fl-46961e518a-14  dw cu `~ gif `~ `~   ^^^^^^ g alternate ef ccccc fl-46961e518a-22 fl-46961e518a-23 fl-46961e518a-24 fl-46961e518a-25 fl-46961e518a-26 fl-46961e518a-27  d cu `a~ `~ `~ `~    geach-any ^ garg e gm-46961e518a-2f b c fl-46961e518a-34 fl-46961e518a-35  d  fl-46961e518a-31  dw cu `~ ` ~  ` ~ ` ~  gm-46961e518a-3a b c fl-46961e518a-3f fl-46961e518a-40  d  fl-46961e518a-3c  dw cu `~ ` ~  ` ~ ` ~  gm-46961e518a-45 b c fl-46961e518a-4a fl-46961e518a-4b  d  fl-46961e518a-47  dw cu `~ ` ~  ` ~ ` ~  gm-46961e518a-50 b c fl-46961e518a-55 fl-46961e518a-56  d  fl-46961e518a-52  dw cu `~ ` ~  ` ~     ` ~     gm-46961e518a-5b  b c fl-46961e518a-60 fl-46961e518a-61  d  fl-46961e518a-5d  dw cu `~ ` ~ ` ~  ` ~  gm-46961e518a-66  b ! c "fl-46961e518a-6b #fl-46961e518a-6c $"# %d!$ &  'fl-46961e518a-68 (' )dw&( *c%u) +`*~ ,` *~ -` *~ .,- /` *~ 0/ 1gcompare:define-rel? 2^^^ 3gdefine 4grel? 5gif-rel? 6e45 7gm-46961e518a-71 87b 98cc :fl-46961e518a-76 ;fl-46961e518a-77 d69= ?8 @fl-46961e518a-73 A@ Bdw?A Cc>uB D`3C~ Eg case-lambda F`EC~ Gglambda H`GC~ I`vC~ Jgy K`JC~ LIK M`/C~ NMIK O`C~ P`C~ QNOP Rgcompare S`RC~ TS USIK VUOP W`C~ Xg procedure? Y`XC~ ZYS [`C~ \f*not a procedure (Did you mean rel/rel??):  ]`\C~ ^[]S _^ `gcompare:define-rel1/rel2? a^^^^ bg rel1/rel2? cgif-rel1? dgif-rel2? eebcd fgm-46961e518a-83 gfb hgccc ifl-46961e518a-88 jfl-46961e518a-89 kfl-46961e518a-8a lfl-46961e518a-8b mijkl ndehm og pfl-46961e518a-85 qp rdwoq scnur t`3s~ u`Es~ v`Gs~ w`vs~ x`Js~ ygz z`ys~ {wxz |`/s~ }|wx ~|xz `s~ `s~ ~ `Vs~ |z  `Rs~  wx xz  z  wxz gcompare:define-chain-rel? g chain-rel? e5 gm-46961e518a-99 b cc fl-46961e518a-9e fl-46961e518a-9f fl-46961e518a-a0  d  fl-46961e518a-9b  dw cu `3~ `E~ `R~  `~  gx1 `~  `V~   gx2 `~  `~  gx3 `~      gx3+ `~    glet `~ gchain? `~ ghead `~  gtail `~   `~ gnull? `~  gcar `~   gcdr `~   gapply `~     grandom-integer glist-ref glength f bad index ginteger? gexact? ^ e gm-46961e518a-a9 b  fl-46961e518a-ae  d fl-46961e518a-ab  dw cu ` ~ ^^ ^Œ ^댤 gc1 gc2 gcs e ccc fl-46961e518a-b6 fl-46961e518a-b7 fl-46961e518a-b8 fl-46961e518a-b9  d cu `1~ ` ~ `E~ ` ~  gclause evJ gm-46961e518a-bf b ccc fl-46961e518a-c4 fl-46961e518a-c5 fl-46961e518a-c6 fl-46961e518a-c7  d    fl-46961e518a-c1     dw    cu  ` ~ gx-val ` ~ gy-val ` ~ `F ~ ^ evJ cc fl-46961e518a-ce fl-46961e518a-cf fl-46961e518a-d0  d cu  ` ~ gfree-id cu   `~ !  "! #^^" $^# %evJf &fl-46961e518a-d5 'fl-46961e518a-d6 (fl-46961e518a-d7 )fl-46961e518a-d8 *&'() +d%* ,c+u  -`E,~ . /^. 0^/ 1^0 2gt? 3evJ2f 4ccccc 5fl-46961e518a-df 6fl-46961e518a-e0 7fl-46961e518a-e1 8fl-46961e518a-e2 9fl-46961e518a-e3 :fl-46961e518a-e4 ;56789: <d34; =c<u  >`=~ ?gt?-val @`?=~ Agtx B`A=~ Cgty D`C=~ E`=~ F`E=~ G` =~ HG I` =~ J`F=~ Kgm-46961e518a-ed LKb ML Nfl-46961e518a-f2 ON PdMO Qfl-46961e518a-ef RQ SdwMR TcPuS U` T~ VcuS W`V~ XW YX Z^Y [e \Lc ]fl-46961e518a-f5 ^fl-46961e518a-f6 _]^ `d[\_ ac`uS b`Ea~ c dc e^d feAC gLcccc hfl-46961e518a-fb ifl-46961e518a-fc jfl-46961e518a-fd kfl-46961e518a-fe lfl-46961e518a-ff mhijkl ndfgm ocnuS p`o~ qgtx-val r`qo~ sgty-val t`so~ u`o~ v`Eo~ w` o~ xw y` o~ z`-o~ {gcompare:type-check |gtype? }g type-name ~e|}v gm-46961e518a-107 b ccc fl-46961e518a-10c fl-46961e518a-10d fl-46961e518a-10e fl-46961e518a-10f  d~  fl-46961e518a-109  dw cu `~ gnot `~ `~ g string-append `~ fnot  `~ f: `~  gbegin e|}vJ cccc fl-46961e518a-115 fl-46961e518a-116 fl-46961e518a-117 fl-46961e518a-118 fl-46961e518a-119  d cu `~ `{~ gcompare:define-by=/< g= g< eR|} gm-46961e518a-120 b ccccc fl-46961e518a-125 fl-46961e518a-126 fl-46961e518a-127 fl-46961e518a-128 fl-46961e518a-129 fl-46961e518a-12a  d  fl-46961e518a-122  dw cu `3~ `~ `G~ `v~ `J~  `~  geq? `~  ` ~  ` ~ ` ~  `~ `~ `~ `~  gboolean? fboolean gchar=? gchar? gcharstring finteger g rational? frational greal? freal gcomplex? fcomplex g real-part g imag-part gnumber? fnumber g vector-length g vector-ref gmin f$unrecognized type in default-compare fcompare value not in {-1,0,1} fcompare error: not reflexive f!compare error: not anti-symmetric yJv Jyv yvJ vyJ Jvy vJy         fcompare error: not transitive gmapC5h8]4   JKN5 4Q>"G4Ri4Si5T>"GUhc]L6[gx  gfilenamefsrfi/srfi-67/compare.scm U U   Ch(-134O>"GCgresult %gcompare %gargs  %gfilenamefsrfi/srfi-67/compare.scm T U  %  gnamegcompare:checkedCVR4Y1Z]_h(v]Cngdummy  #gc  #gless   #gequal   #ggreater   #  # Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scm [   " g macro-typeg syntax-rulesgpatternsgcglessgequalggreaterC51R4YZ]_h]Cwgdummy  gc-cases  ga-cases   gc   g consequence      Ch ]Cgdummy  gc-cases  ga-cases   gc   g consequence   g alternate      Ch@]45$@45$@6 gx  9gtmp 9gtmp  " 9gfilenamefsrfi/srfi-67/compare.scm f   9 g macro-typeg syntax-rulesgpatternsgc-casesga-casesgcg consequencegc-casesga-casesgcg consequenceg alternateC5R4Y4Z]h>]C6gdummy  garg     Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scm o   " g macro-typeg syntax-rulesgpatternsgargg...C54R4Y3Z]h>]C6gdummy  garg     Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scm r   " g macro-typeg syntax-rulesgpatternsgargg...C53R4Y6Z]h>]C6gdummy  garg     Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scm u   " g macro-typeg syntax-rulesgpatternsgargg...C56R4Y2Z]  h>]C6gdummy  garg     Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scm x   " g macro-typeg syntax-rulesgpatternsgargg...C52R4Y5Z]h>]C6gdummy  garg     Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scm {   " g macro-typeg syntax-rulesgpatternsgargg...C55R4Y0Z]+.0h>]C6gdummy  garg     Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scm ~   " g macro-typeg syntax-rulesgpatternsgargg...C50R4Y1Z]2DFHLQTVUWZ_ hPT]   CLgdummy  Mgrel?  Mgif-rel?   M  M Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scm   " g macro-typeg syntax-rulesgpatternsgrel?gif-rel?C51R/h8{] 45 $C $" $C6sgx  5gy  5gkey  5gfilenamefsrfi/srfi-67/compare.scm   5 Ch8{] 4L5 $C $" $C6sgx  5gy  5gkey  5gfilenamefsrfi/srfi-67/compare.scm   5 C/X\h)3C) 3OC)6345 $C $" $C6] 45$345 $C $" $C66gcompare  gx & Ygy & Ygkey  / Ygcompare [ gx [ gy  [ gkey  o gfilenamefsrfi/srfi-67/compare.scm      & Y  [ gnameg=?CR/h8{] 45 $C $" $C6sgx  5gy  5gkey  5gfilenamefsrfi/srfi-67/compare.scm   5 Ch8{] 4L5 $C $" $C6sgx  5gy  5gkey  5gfilenamefsrfi/srfi-67/compare.scm   5 C/X\h)3C) 3OC)6345 $C $" $C6] 45$345 $C $" $C66gcompare  gx & Ygy & Ygkey  / Ygcompare [ gx [ gy  [ gkey  o gfilenamefsrfi/srfi-67/compare.scm      & Y  [ gnameg?CR/h8{] 45 $" $C $C6sgx  5gy  5gkey  5gfilenamefsrfi/srfi-67/compare.scm   5 Ch8{] 4L5 $" $C $C6sgx  5gy  5gkey  5gfilenamefsrfi/srfi-67/compare.scm   5 C/X\h)3C) 3OC)6345 $" $C $C6] 45$345 $" $C $C66 gcompare  gx & Ygy & Ygkey  / Ygcompare [ gx [ gy  [ gkey  o gfilenamefsrfi/srfi-67/compare.scm      & Y  [ gnameg<=?CR/h8{] 45 $" $C $C6sgx  5gy  5gkey  5gfilenamefsrfi/srfi-67/compare.scm   5 Ch8{] 4L5 $" $C $C6sgx  5gy  5gkey  5gfilenamefsrfi/srfi-67/compare.scm   5 C/X\h)3C) 3OC)6345 $" $C $C6] 45$345 $" $C $C66 gcompare  gx & Ygy & Ygkey  / Ygcompare [ gx [ gy  [ gkey  o gfilenamefsrfi/srfi-67/compare.scm      & Y  [ gnameg>=?CR/h8{] 45 $" $C $C6sgx  5gy  5gkey  5gfilenamefsrfi/srfi-67/compare.scm   5 Ch8{] 4L5 $" $C $C6sgx  5gy  5gkey  5gfilenamefsrfi/srfi-67/compare.scm   5 C/X\h)3C) 3OC)6345 $" $C $C6] 45$345 $" $C $C66gcompare  gx & Ygy & Ygkey  / Ygcompare [ gx [ gy  [ gkey  o gfilenamefsrfi/srfi-67/compare.scm      & Y  [ gnamegnot=?C=R4Y`Z]atuv{} hhq]       Cigdummy  hg rel1/rel2?  hgif-rel1?   hgif-rel2?   h  h Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scm   " g macro-typeg syntax-rulesgpatternsg rel1/rel2?gif-rel1?gif-rel2?C5`R/Vhp]45 $345 $C $" $C6 $" $ 66gx  mgy  mgz   mgkey  mgkey   Igfilenamefsrfi/srfi-67/compare.scm   m CVhp]4L5 $34L5 $C $" $C6 $" $ L66gx  mgy  mgz   mgkey  mgkey   Igfilenamefsrfi/srfi-67/compare.scm   m C/VhN)3C) 3OC)n345 $345 $C $" $C6 $" $ 66]45 $345 $C $" $C6 $" $ 66Fgcompare  gx & gy & gz  & gkey  / gkey  C mgcompare gx gy  gz  gkey  gkey   gfilenamefsrfi/srfi-67/compare.scm      &  gnameg/>?CR/Vhp]45 $345 $" $C $C6 $" $ 66gx  mgy  mgz   mgkey  mgkey   Hgfilenamefsrfi/srfi-67/compare.scm   m CVhp]4L5 $34L5 $" $C $C6 $" $ L66gx  mgy  mgz   mgkey  mgkey   Hgfilenamefsrfi/srfi-67/compare.scm   m C/VhO)3C) 3OC)n345 $345 $" $C $C6 $" $ 66]45 $345 $" $C $C6 $" $ 66Ggcompare  gx & gy & gz  & gkey  / gkey  B lgcompare gx gy  gz  gkey  gkey   gfilenamefsrfi/srfi-67/compare.scm      &  gnameg>/>=?CR/Vhp]45 $" $345 $C $" $C6 $ 66gx  mgy  mgz   mgkey  mgkey  + Ugfilenamefsrfi/srfi-67/compare.scm   m CVhp]4L5 $" $34L5 $C $" $C6 $ L66gx  mgy  mgz   mgkey  mgkey  + Ugfilenamefsrfi/srfi-67/compare.scm   m C/VhO)3C) 3OC)n345 $" $345 $C $" $C6 $ 66]45 $" $345 $C $" $C6 $ 66Ggcompare  gx & gy & gz  & gkey  / gkey  O ygcompare gx gy  gz  gkey  gkey   gfilenamefsrfi/srfi-67/compare.scm      &  gnameg>=/>?CR/Vhp]45 $" $345 $" $C $C6 $ 66gx  mgy  mgz   mgkey  mgkey  + Ugfilenamefsrfi/srfi-67/compare.scm   m CVhp]4L5 $" $34L5 $" $C $C6 $ L66gx  mgy  mgz   mgkey  mgkey  + Ugfilenamefsrfi/srfi-67/compare.scm   m C/VhP)3C) 3OC)n345 $" $345 $" $C $C6 $ 66]45 $" $345 $" $C $C6 $ 66Hgcompare  gx & gy & gz  & gkey  / gkey  O ygcompare gx gy  gz  gkey  gkey   gfilenamefsrfi/srfi-67/compare.scm      &  gnameg>=/>=?CR4YZ]2hXZ]     CRgdummy  Ug chain-rel?  Ugif-rel?   U  U Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scm   " g macro-typeg syntax-rulesgpatternsg chain-rel?gif-rel?C5RVhp )3C) 36)6345 $C $" $C6)n345 $345 $C $" $C6 $" $ 66-1345 $`"P(C45 $" $" $ @6" $" $ @6gcompare gcompare  gx1  gcompare & Ygx1 & Ygx2  & Ygkey  / Ygcompare b gx1 b gx2  b gx3  b gkey  k gkey  ~ gcompare ngx1 ngx2  ngx3+  ngkey  nghead  =gtail  =gkey  =gfilenamefsrfi/srfi-67/compare.scm      & Y  b  n  gnamegchain=?C!RVhp )3C) 36)6345 $C $" $C6)n345 $345 $C $" $C6 $" $ 66-1345 $`"P(C45 $" $" $ @6" $" $ @6gcompare gcompare  gx1  gcompare & Ygx1 & Ygx2  & Ygkey  / Ygcompare b gx1 b gx2  b gx3  b gkey  k gkey   gcompare ngx1 ngx2  ngx3+  ngkey  nghead  >gtail  >gkey   >gfilenamefsrfi/srfi-67/compare.scm      & Y  b  n  gnamegchain?C#RVhp )3C) 36)6345 $" $C $C6)n345 $" $345 $" $C $C6 $ 66-1345 $" $`"P(C45 $" $" $ @6" $ @6gcompare gcompare  gx1  gcompare & Ygx1 & Ygx2  & Ygkey  / Ygcompare b gx1 b gx2  b gx3  b gkey  k gkey  gcompare ngx1 ngx2  ngx3+  ngkey  nghead  Kgtail  Kgkey   Kgfilenamefsrfi/srfi-67/compare.scm      & Y  b  n  gnamegchain<=?CRVhp )3C) 36)6345 $" $C $C6)n345 $" $345 $" $C $C6 $ 66-1345 $" $`"P(C45 $" $" $ @6" $ @6gcompare gcompare  gx1  gcompare & Ygx1 & Ygx2  & Ygkey  / Ygcompare b gx1 b gx2  b gx3  b gkey  k gkey  gcompare ngx1 ngx2  ngx3+  ngkey  nghead  Jgtail  Jgkey   Jgfilenamefsrfi/srfi-67/compare.scm      & Y  b  n  gnamegchain>=?C"RVVh]; $$ $ L6CC4545"()4L455$45"C$"4L5  $" $$ L@C $"G6 "0gx  gn  g unchecked?   gi-pivot  . gx-pivot  9 gi  ? gx  ? gx<  ? gx>  ? gkey  gfilenamefsrfi/srfi-67/compare.scm     !   ! - #  (  . 1  9 ?  E  F  K ' T  X  [ ' l  s  w  z } (   '   % - ; 5    D "  % - > 8     +  4  2   gnamegunequal?Ch()3C) 36)6345 $" $C $C6)345 $" $d45 $" $345 $" $C $C6 $C6 $ 66-13OQ456}gcompare gcompare  gx1  gcompare & Ygx1 & Ygx2  & Ygkey  / Ygcompare b gx1 b gx2  b gx3  b gkey  k gkey  gkey  gcompare  %gx1+  %gunequal?   %gfilenamefsrfi/srfi-67/compare.scm    &  '  /  b  c  k    %              ! %      & Y  b   % CBRVh) 36)8345 $" $C $C6)345 $" $545 $" $C $C6 $545 $" $C $C66)d345 $" $45 $" $545 $" $C $C6 $545 $" $C $C66 $45 $" $545 $" $C $C6 $545 $" $C $C666-13"U(C45 $" $" $"45"45 $" $" $"45"bgcompare gx1 gcompare  Qgx1  Qgx2   Qgkey  % Qgcompare Z gx1 Z gx2  Z gx3  Z gkey  c gkey  gkey  gcompare ]gx1 ]gx2  ]gx3  ]gx4  ]gkey   ]gkey  & gkey  G sgkey   gkey   Wgkey   gkey  % Qgcompare f gx1 f gx2  f gx3+  f gxmin  j gxs  j gkey  } gkey   !gfilenamefsrfi/srfi-67/compare.scm           %   Z   [  c   |                    &  ?   G   {  |                           %   W  [   ]   f   j   p   t   {  % }   }     4                    4    Q  Z  ]  f   gnameg min-compareC"-G"&45$45$""""45"644 55 " (e $  " $ $  6  6 "4  5 $&         "Z $&         ", $&         "6       ""gcompare )gk )gx0  )gkey  )gcompare 2 gk 2 gx0  2 gx1  2 gkey  7 gkey  J vgkey  gcompare Kgk Kgx0  Kgx1  Kgx2  Kgkey  Kgkey  lgkey  )gkey  : fgkey  } gkey   gkey   gkey   ,gkey  = gkey  i gkey   Cgkey   gkey   =gcompare T gk T gx0  T gx1+  T gn   gk   gn   grev   gx   gpivot  gx  gx<  gn<  gx=  gn=   gx>   gn>   gkey  - /gfilenamefsrfi/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   C8Rh(]4L5$ C4L5$ C Cgx  #gy  #gfilenamefsrfi/srfi-67/compare.scm s  s   s   s /  s +  # Ch8) 3OC]45$ C45$ C Cglt glt  4gx  4gy   4gfilenamefsrfi/srfi-67/compare.scm r   t  t  $ t / 0 t +    4 gnameg compare-by<C&Rh(]4L5$ C4L5$ C Cgx  #gy  #gfilenamefsrfi/srfi-67/compare.scm x  x   x   x .  x *  # Ch8) 3OC]45$ C45$ C Cggt ggt  4gx  4gy   4gfilenamefsrfi/srfi-67/compare.scm w   y  y  # y . / y *    4 gnameg compare-by>C*Rh(]4L5$4L5$ C C Cgx  #gy  #gfilenamefsrfi/srfi-67/compare.scm }  }   }   } ,  } (  # Ch8) 3OC]45$45$ C C Cgle gle  4gx  4gy   4gfilenamefsrfi/srfi-67/compare.scm |   ~  ~  ! ~ , - ~ (    4 gnameg compare-by<=C'Rh(]4L5$4L5$ C C Cgx  #gy  #gfilenamefsrfi/srfi-67/compare.scm          ,   (  # Ch8) 3OC]45$45$ C C Cgge gge  4gx  4gy   4gfilenamefsrfi/srfi-67/compare.scm        !  , -  (    4 gnameg compare-by>=C+Rh(]4L5$ C4L5$ C Cgx  #gy  #gfilenamefsrfi/srfi-67/compare.scm     "      1   -  # Ch8) 3OC]45$ C45$ C Cgeq glt geq  6glt  6gx   6gy   6gfilenamefsrfi/srfi-67/compare.scm     " "   %  1 1  -    6 gnameg compare-by=/<C(Rh(]4L5$ C4L5$ C Cgx  #gy  #gfilenamefsrfi/srfi-67/compare.scm     "      1   -  # Ch8) 3OC]45$ C45$ C Cgeq ggt geq  6ggt  6gx   6gy   6gfilenamefsrfi/srfi-67/compare.scm     " "   %  1 1  -    6 gnameg compare-by=/>C)R4YEZ]h-]C%gdummy     Ch=]C5gdummy  gc1     Ch]]CUgdummy  gc1  gc2   gcs      C hP]45$@45$@45$@ 6gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefsrfi/srfi-67/compare.scm    P g macro-typeg syntax-rulesgpatternsgc1gc1gc2gcsg...C5ER4YFZ]h(_]CWgdummy  &gx  &gy   &gclause   &  & ChK]CCgdummy  gx  gy      C$-hZ]CRgdummy  gx  gy   gc      C1>@BDEFHIJ h`~] Cvgdummy  ]gx  ]gy   ]gt?   ]gc   ]gclause   ]  ] C hhX]!45$@45$@45$@45$ @  6Pgx  ggtmp ggtmp  " ggtmp  9 ggtmp  P ggfilenamefsrfi/srfi-67/compare.scm    g g macro-typeg syntax-rulesgpatternsgxgygclauseg...gxgygxgygelsegcg...gxgygt?gcg...gclauseg...C5FR4Y-Z]Uh-]C%gdummy     CZbh=]C5gdummy  gcs     Ceprtuvxyz h@q]Cigdummy  <gtx  <gty   <gcs   <gclause   <  < C hP ]45$@45$@45$@ 6gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefsrfi/srfi-67/compare.scm    P g macro-typeg syntax-rulesgpatternsgelsegcsg...gtxgtygcsg...gclauseg...C5-R4Y{Z]ah(f]C^gdummy  &gtype?  &g type-name   &gx   &  & C_h u]Cmgdummy  gtype?  g type-name   gx   gy      Ch@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefsrfi/srfi-67/compare.scm    9 g macro-typeg syntax-rulesgpatternsgtype?g type-namegxgtype?g type-namegxgyC5{R4YZ]h]         Cgdummy  }gcompare  }g=   }g<   }gtype?   }g type-name   }  } Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scm    " g macro-typeg syntax-rulesgpatternsgcompareg=g"G45$"445>"G$ $ C C$ C Cgx  ugy  ugfilenamefsrfi/srfi-67/compare.scm           G   I   `   f   p    u gnamegboolean-compareCRihh]45$G& C45$!4L5$ C45$ C C456456gx  egy  egfilenamefsrfi/srfi-67/compare.scm  J  L  7 N  P  [  ]  7 _  a    e CO$Riihh]45$G& C45$!4L5$ C4L5$ C C456456gx  egy  egfilenamefsrfi/srfi-67/compare.scm  J  L  @ N  P  [  ]  @ _  a    e CO%Riihh]45$G& C45$!4L5$ C4L5$ C C456456gx  egy  egfilenamefsrfi/srfi-67/compare.scm  J  L  ? N  P  [  ]  ? _  a    e COLRiihh]45$G& C45$!4L5$ C4L5$ C C456456gx  egy  egfilenamefsrfi/srfi-67/compare.scm  J  L  H N  P  [  ]  H _  a    e COMRLhh]$"445>"G$"445>"G45456gx  dgy  dgfilenamefsrfi/srfi-67/compare.scm           ?   A   U   \  % d    d gnamegsymbol-compareCGRh`]45$?& C45$$ C$ C C456456gx  ]gy  ]gfilenamefsrfi/srfi-67/compare.scm  B  D  3 F  H  S  U  3 W  Y    ] C7Rh`]45$?& C45$$ C$ C C456456gx  ]gy  ]gfilenamefsrfi/srfi-67/compare.scm  B  D  5 F  H  S  U  5 W  Y    ] CCRh`]45$?& C45$$ C$ C C456456gx  ]gy  ]gfilenamefsrfi/srfi-67/compare.scm  D  - F  U  - W    ] CDRD hY] 45$"445>"G45$"445>"G"K445455 $ C $4 54 56 $ C 64 5$4 5$6""Qgx  gy  gkey  q gfilenamefsrfi/srfi-67/compare.scm           G   I   _   b  $ i  2 q   q    $  2                 gnamegcomplex-compareC,R,hh]45$"445>"G45$"445>"G6gx  bgy  bgfilenamefsrfi/srfi-67/compare.scm           G   I   b    b gnamegnumber-compareC>Rh]L6~gx  gy  gfilenamefsrfi/srfi-67/compare.scm          Ch~]OCvgcompare  gfilenamefsrfi/srfi-67/compare.scm    gnamegpair-compare-carC@Rh]L6~gx  gy  gfilenamefsrfi/srfi-67/compare.scm          Ch~]OCvgcompare  gfilenamefsrfi/srfi-67/compare.scm    gnamegpair-compare-cdrCAR?/hZ)>345 $ C $ 6 $ C6){3( ( C C( C$G$=45 $ C $ 6 $ C6 C$ C6]6Rgpair-compare-car Dgpair-compare-cdr Dgx  Dgy  Dgkey   Dgcompare M gx M gy  M gkey   gx gy  gfilenamefsrfi/srfi-67/compare.scm       '   /       /  ' 2  / 4   <   M   S   i   m   p   t   u   z  3 }  ;        3  ;               D  M  gnameg pair-compareC?R9/h)3 4545$ $ C C$ C445455 $ C $45456 $ C6)36)36]6gcompare gx gy  gempty?  ghead  gtail  gtx-val   gty-val   gkey  G gx gy gempty?  ghead  gtail  gcompare gx gy  gx gy gfilenamefsrfi/srfi-67/compare.scm           5  8  " ?  + G  G   b  " i  + w                    gnameg list-compareC9R9:/ h)3 "P4545 $ $ "9 "3 $ "(4545" " $ C $6 $ C6)36)36]6gcompare gx gy  gempty?  ghead  gtail  gx  ]gy  ]gtx-val   ]gty-val  ]gkey  i gx gy gempty?  ghead  gtail  gcompare gx gy  gx gy gfilenamefsrfi/srfi-67/compare.scm   #   %  %   $  B &  I & ( W &  ] #  i "  '  "    +    -    /     gnameglist-compare-as-vectorC:R7H/h)3 454545 $ C $\"Q$ C445455  $ C $ " $ C6 " $ C6)36)36]6gcompare gx gy  gsize  gref  gn   gm   gkey  $ gi  > gkey ` gx gy gsize  gref  gcompare gx gy  gx gy gfilenamefsrfi/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$6445455  $ C $ " $ C6 ")36)36]6gcompare gx gy  gsize  gref  gnx   gny   gn  $ gi  * gkey R gx gy gsize  gref  gcompare gx gy  gx gy gfilenamefsrfi/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>Hh]( ( C C( C$E$;45 $ C $ 6 $ C6 C$ C4545$$6 C$ C45$45$6 C45$ C45$45$ 6 C45$ C$$ 6 C$ C4 5$4 5$ 6 C4 5$ C$$  6 C$ C6gx  gy  gkey  4 dgt?-val  r gtx  gty  gfilenamefsrfi/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    gnamegdefault-compareC/RvJyh(e]$LC$LC$MCC]gi  (gfilenamefsrfi/srfi-67/compare.scm   ,  ( C h]J4L5 &" &" $"4L54L5 &" &" $"4L54L5 &" &" $"4L54L5 &" &" $"4L5 $"4L>"G $"4L>"G $"4L>"GM$M4L5 &" &" $"4L5M4L5 &" &" $"4L5M4L5 &" &" $"4L5M4L5 &" &" $"4L5  $"4LM>"G $"4LM>"G     $,4L4 LO 5>"G"  "N4 5 $"NCgx  gy  gc-xy  Igc-xy  R gc-xy  gc-xy  gc-xx   gc-yy   gc-xy   gc-yx   gy   gc-xy   gx   3gc-xy   0gy  5 gc-xy  @ ~gx   gc-xy   gc-xz   }gc-zx   }gc-yz   }gc-zy  }gijk 9 qgfilenamefsrfi/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      {  {          Ch]HHOCgc  gz?  gz   gfilenamefsrfi/srfi-67/compare.scm r      gnameg debug-compareC.RCgm  0gchar=? g char-ci=? Ag char-ci U & C U gfilenamefsrfi/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 C6srfi-64.go000064400000527654151027761750006323 0ustar00GOOF----LE-8-2.0]4hC] gguile  gdefine-module*   gsrfi gsrfi-64  gfilenameS fsrfi/srfi-64.scm gexportsS g test-begin gtest-end g test-assert gtest-eqv gtest-eq g test-equal gtest-approximate g test-error g test-apply gtest-with-runner gtest-match-nth gtest-match-all gtest-match-any gtest-match-name g test-skip gtest-expect-fail gtest-read-eval-string gtest-runner-group-path g test-group gtest-group-with-cleanup gtest-result-ref !gtest-result-set! "gtest-result-clear #gtest-result-remove $gtest-result-kind %g test-passed? &gtest-log-to-file 'g test-runner? (gtest-runner-reset )gtest-runner-null *gtest-runner-simple +gtest-runner-current ,gtest-runner-factory -gtest-runner-get .gtest-runner-create /gtest-runner-test-name 0gtest-runner-pass-count 1gtest-runner-pass-count! 2gtest-runner-fail-count 3gtest-runner-fail-count! 4gtest-runner-xpass-count 5gtest-runner-xpass-count! 6gtest-runner-xfail-count 7gtest-runner-xfail-count! 8gtest-runner-skip-count 9gtest-runner-skip-count! :gtest-runner-group-stack ;gtest-runner-group-stack! gtest-runner-on-test-end ?gtest-runner-on-test-end! @gtest-runner-on-group-begin Agtest-runner-on-group-begin! Bgtest-runner-on-group-end Cgtest-runner-on-group-end! Dgtest-runner-on-final Egtest-runner-on-final! Fgtest-runner-on-bad-count Ggtest-runner-on-bad-count! Hgtest-runner-on-bad-end-name Igtest-runner-on-bad-end-name! Jgtest-result-alist Kgtest-result-alist! Lgtest-runner-aux-value Mgtest-runner-aux-value! Ngtest-on-group-begin-simple Ogtest-on-group-end-simple Pgtest-on-bad-count-simple Qgtest-on-bad-end-name-simple Rgtest-on-final-simple Sgtest-on-test-end-simple T   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSRJ Ugset-current-module VU WU Xgcond-expand-provide Ygcurrent-module Z [gprocess-use-modules \[ ][ ^gsrfi-9 _^ `_ agsrfi-39 ba cb dgmake-syntax-transformer ed fd gg %test-export hgmacro ig $sc-dispatch ji ki lgany mll ng syntax-object ogif pgtop qp rgribcage sgdummy tgnames ust vgm-46961e5187-6 wvp xwq yfl-46961e5187-b zfl-46961e5187-c {yz |rux{ }r ~gx ~ w fl-46961e5187-8  r q|} ghygiene  no n  gsyntax-violation   f-source expression failed to match any pattern g%test-record-define geach llll  l l l gdefine-record-type galloc grunner? gname gindex gsetter ggetter s gm-46961e5187-11 p qqqqqq fl-46961e5187-16 fl-46961e5187-17 fl-46961e5187-18 fl-46961e5187-19 fl-46961e5187-1a fl-46961e5187-1b fl-46961e5187-1c  r  fl-46961e5187-13  r q} n g test-runner n gmap   glist g%%test-runner-alloc-procedure g%test-runner-alloc g_  glambda gm-46961e5187-2b p  fl-46961e5187-2d  r gshift g proc-name gargs  qq fl-1e8ba8b5a-2ba fl-1e8ba8b5a-2bb  r gkey gvalue gformals gbody  qqqqq fl-1e8ba8b5a-2ad fl-1e8ba8b5a-2ae fl-1e8ba8b5a-2af fl-1e8ba8b5a-2b0 fl-1e8ba8b5a-2b1  r gmake-procedure-name  q fl-1e8ba8b5a-29d  r q fl-1e8ba8b5a-29c  r }}}}}  ^ n g make-struct gm-46961e5187-29 p gt-1e8ba8b5a-38d gt-1e8ba8b5a-38c gt-1e8ba8b5a-38b  gm-1e8ba8b5a-38e p  fl-1e8ba8b5a-392 fl-1e8ba8b5a-393 fl-1e8ba8b5a-394  r g ctor-args  fl-1e8ba8b5a-37a  r gctor gfield  fl-1e8ba8b5a-376 fl-1e8ba8b5a-377  r gform g type-name gconstructor-spec g field-names  qqqq fl-1e8ba8b5a-36b fl-1e8ba8b5a-36c fl-1e8ba8b5a-36d fl-1e8ba8b5a-36e   r  g record-layout  gfunctional-setters  gsetters  gcopier ggetters g constructor ggetter-identifiers gfield-identifiers      qqqqqqqq fl-1e8ba8b5a-343 fl-1e8ba8b5a-341 fl-1e8ba8b5a-33f fl-1e8ba8b5a-33d fl-1e8ba8b5a-33b fl-1e8ba8b5a-339 fl-1e8ba8b5a-337 fl-1e8ba8b5a-335  r fl-1e8ba8b5a-334   r !}}}}}}   "n! #gm-46961e5187-27 $#p %$}} &n% 'n ! (} )n( *"&')))))))))))))))))))))) +* ,+ -geach-any .- /_ 0_ 1fWrong number of arguments 2g identifier? 3_2 4_2 5q} 6n5 7grecord-type-vtable 8_7 9_7 :g,pwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpw ;gdefault-record-printer <_; =_; >g pass-count ?g fail-count @g xpass-count Ag xfail-count Bg skip-count Cg skip-list Dg fail-list Egrun-list Fg skip-save Gg fail-save Hg group-stack Ig on-test-begin Jg on-test-end Kgon-group-begin Lg on-group-end Mgon-final Ng on-bad-count Ogon-bad-end-name Pg total-count Qg count-list Rg result-alist Sg aux-value T>?@ABCDEFGHIJKLMNOPQRS Ugset-struct-vtable-name! V_U W_U Xgvtable-offset-user Y_X Z_X [g%test-runner?-procedure \l ]gm-46961e5187-36 ^]p _gt-46961e5187-35 `_ a^ bfl-46961e5187-3b cb dr`ac efl-46961e5187-38 fe graf h^d}g}}}}  inh jgobj kgt-1e8ba8b5a-47e lgt-1e8ba8b5a-478 mgt-1e8ba8b5a-479 ngt-1e8ba8b5a-47a ogt-1e8ba8b5a-47d pgt-1e8ba8b5a-47c qgt-1e8ba8b5a-47b rklmnopq sgm-1e8ba8b5a-47f tsp uttttttt vfl-1e8ba8b5a-483 wfl-1e8ba8b5a-484 xfl-1e8ba8b5a-485 yfl-1e8ba8b5a-486 zfl-1e8ba8b5a-487 {fl-1e8ba8b5a-488 |fl-1e8ba8b5a-489 }vwxyz{| ~rru} g copier-id  fl-1e8ba8b5a-476  r g ctor-name  fl-1e8ba8b5a-46e  r  fl-1e8ba8b5a-46c  r glayout  fl-1e8ba8b5a-46a  r g immutable?  fl-1e8ba8b5a-468  r g field-count  fl-1e8ba8b5a-466  r g getter-ids  fl-1e8ba8b5a-463  r g field-ids  fl-1e8ba8b5a-460  r gpredicate-name g field-spec  qqqqqq fl-1e8ba8b5a-453 fl-1e8ba8b5a-454 fl-1e8ba8b5a-455 fl-1e8ba8b5a-456 fl-1e8ba8b5a-457 fl-1e8ba8b5a-458  r d}g}~}}}}}}}}}}}  nj  gand n gstruct? n  geq? n g struct-vtable n  $d}g} n   i q}g n[ gthrow-bad-struct _ _ g!%test-runner-pass-count-procedure gfree-id g %%on-error gm-46961e5187-42 p  fl-46961e5187-44  r }}}}}  n  l 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 p  fl-1e8ba8b5a-3b0 fl-1e8ba8b5a-3b1 fl-1e8ba8b5a-3b2 fl-1e8ba8b5a-3b3 fl-1e8ba8b5a-3b4 fl-1e8ba8b5a-3b5 fl-1e8ba8b5a-3b6  r  fl-1e8ba8b5a-3a3 fl-1e8ba8b5a-3a4  r  qqq fl-1e8ba8b5a-39e fl-1e8ba8b5a-39f fl-1e8ba8b5a-3a0  r }}}}}}  n  l gck gerr gs   fl-46961e5187-47 fl-46961e5187-48  r }}}}}  n gquote n $}}  n        g%%index  n    l fl-46961e5187-4c fl-46961e5187-4d  r }}}}}  n n } n    g%%copier n  l fl-46961e5187-51  fl-46961e5187-52 !  "r! #"}}}}}  $n# %n# &g%%test-runner-set-fields '$"}} (n&' )%( *) +gt-46961e5187-41 ,+ -fl-46961e5187-56 .- /r,. 0/}}}}}  1n0 2/}}}}}}  3n2 43 5no2 6n2 7n2 873 9$/}} :n9 ;68: /} ?n > @=3? An2 Bn2 Cq/} Dn0C EBD FA3E G5;@F H14G Iq} JnI Kg!%test-runner-fail-count-procedure Lgm-46961e5187-5d MLp NM Ofl-46961e5187-5f PO QrNP RM}Q}}}}  SnR TS UTl V}Q}}}}}  WnV XW YUXl ZMM [fl-46961e5187-62 \fl-46961e5187-63 ][\ ^rZ] _M^}Q}}}}  `n_ an_ b$^}Q} cnb dac ed fn V gf hUgl ifl-46961e5187-67 jfl-46961e5187-68 kij lrZk mMl}Q}}}}  nnm onm pl}Q qn p roq sr tnV ut vUul wfl-46961e5187-6c xfl-46961e5187-6d ywx zrZy {Mz}Q}}}}  |n{ }n{ ~$z}Q} n&~ }  gt-46961e5187-5c  fl-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 gm-46961e5187-78 p  fl-46961e5187-7a  r }}}}}  n  l }}}}}}  n  l  fl-46961e5187-7d fl-46961e5187-7e  r }}}}}  n n $}} n   n   l fl-46961e5187-82 fl-46961e5187-83  r }}}}}  n n } n    n  l fl-46961e5187-87 fl-46961e5187-88  r }}}}}  n n $}} n&   gt-46961e5187-77  fl-46961e5187-8c  r }}}}}  n }}}}}}  n  no n n  $}} n  n< } n   n n q} n4     q} n g"%test-runner-xfail-count-procedure gm-46961e5187-93 p  fl-46961e5187-95  r }}}}}  n  l }}}}}}  n  l  fl-46961e5187-98 fl-46961e5187-99    r    }}}}}   n   n  $ }} n    n   l fl-46961e5187-9d fl-46961e5187-9e  r }}}}}  n n } n     n !  "!l #fl-46961e5187-a2 $fl-46961e5187-a3 %#$ &r% '&}}}}}  (n' )n' *$&}} +n&* ,)+ -, .gt-46961e5187-92 /. 0fl-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 Ngm-46961e5187-ae ONp PO Qfl-46961e5187-b0 RQ SrPR TO}S}}}}  UnT VU WVl X}S}}}}}  YnX ZY [WZl \OO ]fl-46961e5187-b3 ^fl-46961e5187-b4 _]^ `r\_ aO`}S}}}}  bna cna d$`}S} end fce gf hn X ih jWil kfl-46961e5187-b8 lfl-46961e5187-b9 mkl nr\m oOn}S}}}}  pno qno rn}S sn r tqs ut vnX wv xWwl yfl-46961e5187-bd zfl-46961e5187-be {yz |r\{ }O|}S}}}}  ~n} n} $|}S} n&   gt-46961e5187-ad  fl-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 gm-46961e5187-c9 p  fl-46961e5187-cb  r }}}}}  n  l }}}}}}  n  l  fl-46961e5187-ce fl-46961e5187-cf  r }}}}}  n n $}} n   n   l fl-46961e5187-d3 fl-46961e5187-d4  r }}}}}  n n } n    n  l fl-46961e5187-d8 fl-46961e5187-d9  r }}}}}  n n $}} n&   gt-46961e5187-c8  fl-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 gm-46961e5187-e4 p  fl-46961e5187-e6  r }}}}}  n  l }}}}}}  n   l    fl-46961e5187-e9  fl-46961e5187-ea     r   }}}}}  n n $}} n   n   l fl-46961e5187-ee fl-46961e5187-ef  r  }}}}}  n n  } !n   "! #" $n %$ &%l 'fl-46961e5187-f3 (fl-46961e5187-f4 )'( *r ) +*}}}}}  ,n+ -n+ .$*}} /n&. 0-/ 10 2gt-46961e5187-e3 32 4fl-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 Sgm-46961e5187-ff TSp UT Vfl-46961e5187-101 WV XrUW YT}X}}}}  ZnY [Z \[l ]}X}}}}}  ^n] _^ `\_l aTT bfl-46961e5187-104 cfl-46961e5187-105 dbc erad fTe}X}}}}  gnf hnf i$e}X} jni khj lk mn ] nm o\nl pfl-46961e5187-109 qfl-46961e5187-10a rpq srar tTs}X}}}}  unt vnt ws}X xn w yvx zy {n] |{ }\|l ~fl-46961e5187-10e fl-46961e5187-10f ~ ra T}X}}}}  n n $}X} n&   gt-46961e5187-fe  fl-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 gm-46961e5187-11a p  fl-46961e5187-11c  r }}}}}  n  l }}}}}}  n  l  fl-46961e5187-11f fl-46961e5187-120  r }}}}}  n n $}} n   n   l fl-46961e5187-124 fl-46961e5187-125  r }}}}}  n n } n    n  l fl-46961e5187-129 fl-46961e5187-12a  r }}}}}  n n $}} n&   gt-46961e5187-119  fl-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 gm-46961e5187-135 p  fl-46961e5187-137  r }}}}}  n     l  }}}}}}   n       l  fl-46961e5187-13a fl-46961e5187-13b  r }}}}}  n n $}} n   n     l fl-46961e5187-13f fl-46961e5187-140   !r  "!}}}}}  #n" $n" %!} &n % '$& (' )n  *) + *l ,fl-46961e5187-144 -fl-46961e5187-145 .,- /r. 0/}}}}}  1n0 2n0 3$/}} 4n&3 524 65 7gt-46961e5187-134 87 9fl-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} UnT Vg"%test-runner-group-stack-procedure Wgm-46961e5187-150 XWp YX Zfl-46961e5187-152 [Z \rY[ ]X}\}}}}  ^n] _^ `_l a}\}}}}}  bna cb d`cl eXX ffl-46961e5187-155 gfl-46961e5187-156 hfg ireh jXi}\}}}}  knj lnj m$i}\} nnm oln po qn a rq s`rl tfl-46961e5187-15a ufl-46961e5187-15b vtu wrev xXw}\}}}}  ynx znx {w}\ |n { }z| ~} na  `l fl-46961e5187-15f fl-46961e5187-160  re X}\}}}}  n n $}\} n&   gt-46961e5187-14f  fl-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 gm-46961e5187-16b p  fl-46961e5187-16d  r }}}}}  n  l }}}}}}  n  l  fl-46961e5187-170 fl-46961e5187-171  r }}}}}  n n $}} n   n   l fl-46961e5187-175 fl-46961e5187-176  r }}}}}  n n } n    n  l fl-46961e5187-17a fl-46961e5187-17b  r }}}}}  n n $}} n&   gt-46961e5187-16a  fl-46961e5187-17f  r }}}}}  n }}}}}}  n  no n n  $}} n  n< } n   n n q} n<     q} n g"%test-runner-on-test-end-procedure gm-46961e5187-186 p  fl-46961e5187-188  r  }}}}}   n       l  }}}}}}  n    l  fl-46961e5187-18b fl-46961e5187-18c  r }}}}}  n n $}} n   n     l  fl-46961e5187-190 !fl-46961e5187-191 " ! #r" $#}}}}}  %n$ &n$ '#} (n ' )&( *) +n  ,+ - ,l .fl-46961e5187-195 /fl-46961e5187-196 0./ 1r0 21}}}}}  3n2 4n2 5$1}} 6n&5 746 87 9gt-46961e5187-185 :9 ;fl-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 Ygm-46961e5187-1a1 ZYp [Z \fl-46961e5187-1a3 ]\ ^r[] _Z}^}}}}  `n_ a` bal c}^}}}}}  dnc ed fbel gZZ hfl-46961e5187-1a6 ifl-46961e5187-1a7 jhi krgj lZk}^}}}}  mnl nnl o$k}^} pno qnp rq sn c ts ubtl vfl-46961e5187-1ab wfl-46961e5187-1ac xvw yrgx zZy}^}}}}  {nz |nz }y}^ ~n } |~  nc  bl fl-46961e5187-1b0 fl-46961e5187-1b1  rg Z}^}}}}  n n $}^} n&   gt-46961e5187-1a0  fl-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 gm-46961e5187-1bc p  fl-46961e5187-1be  r }}}}}  n  l }}}}}}  n  l  fl-46961e5187-1c1 fl-46961e5187-1c2  r }}}}}  n n $}} n   n   l fl-46961e5187-1c6 fl-46961e5187-1c7  r }}}}}  n n } n    n  l fl-46961e5187-1cb fl-46961e5187-1cc  r }}}}}  n n $}} n&   gt-46961e5187-1bb  fl-46961e5187-1d0  r }}}}}  n }}}}}}  n  no n n  $}} n  n< } n   n n q} nB     q} n g%test-runner-on-final-procedure gm-46961e5187-1d7 p  fl-46961e5187-1d9    r   } }}}}   n      l } }}}}}  n  l  fl-46961e5187-1dc fl-46961e5187-1dd  r } }}}}  n n $} } n   n    ! l "fl-46961e5187-1e1 #fl-46961e5187-1e2 $"# %r$ &%} }}}}  'n& (n& )%}  *n ) +(* ,+ -n .- /.l 0fl-46961e5187-1e6 1fl-46961e5187-1e7 201 3r2 43} }}}}  5n4 6n4 7$3} } 8n&7 968 :9 ;gt-46961e5187-1d6 <; =fl-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 [gm-46961e5187-1f2 \[p ]\ ^fl-46961e5187-1f4 _^ `r]_ a\}`}}}}  bna cb dcl e}`}}}}}  fne gf hdgl i\\ jfl-46961e5187-1f7 kfl-46961e5187-1f8 ljk mril n\m}`}}}}  onn pnn q$m}`} rnq spr ts un e vu wdvl xfl-46961e5187-1fc yfl-46961e5187-1fd zxy {riz |\{}`}}}}  }n| ~n| {}` n  ~  ne  dl fl-46961e5187-201 fl-46961e5187-202  ri \}`}}}}  n n $}`} n&   gt-46961e5187-1f1  fl-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 gm-46961e5187-20d p  fl-46961e5187-20f  r }}}}}  n  l }}}}}}  n  l  fl-46961e5187-212 fl-46961e5187-213  r }}}}}  n n $}} n   n   l fl-46961e5187-217 fl-46961e5187-218  r }}}}}  n n } n    n  l fl-46961e5187-21c fl-46961e5187-21d  r }}}}}  n n $}} n&   gt-46961e5187-20c  fl-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 gm-46961e5187-228  p     fl-46961e5187-22a     r    } }}}}  n  l } }}}}}  n  l    fl-46961e5187-22d fl-46961e5187-22e  r  } }}}}  n n $} } n   !  "n  #" $#l %fl-46961e5187-232 &fl-46961e5187-233 '%& (r' ) (} }}}}  *n) +n) ,(}  -n , .+- /. 0n 10 21l 3fl-46961e5187-237 4fl-46961e5187-238 534 6r5 7 6} }}}}  8n7 9n7 :$6} } ;n&: <9; =< >gt-46961e5187-227 ?> @fl-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 _gm-46961e5187-243 `_p a` bfl-46961e5187-245 cb drac e`}d}}}}  fne gf hgl i}d}}}}}  jni kj lhkl m`` nfl-46961e5187-248 ofl-46961e5187-249 pno qrmp r`q}d}}}}  snr tnr u$q}d} vnu wtv xw yn i zy {hzl |fl-46961e5187-24d }fl-46961e5187-24e ~|} rm~ `}d}}}}  n n }d n    ni  hl fl-46961e5187-252 fl-46961e5187-253  rm `}d}}}}  n n $}d} n&   gt-46961e5187-242  fl-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 gm-46961e5187-25e p  fl-46961e5187-260  r }}}}}  n  l }}}}}}  n  l  fl-46961e5187-263 fl-46961e5187-264  r }}}}}  n n $}} n   n   l fl-46961e5187-268 fl-46961e5187-269  r }}}}}  n n } n    n  l fl-46961e5187-26d fl-46961e5187-26e  r }}}}}  n n $}} n&   gt-46961e5187-25d  fl-46961e5187-272  r }}}}}  n }}}}}}  n  no n n  $}} n  n< } n   n n q} nJ            q} n  g %test-runner-aux-value-procedure gm-46961e5187-279  p   fl-46961e5187-27b   r    } }}}}  n     l } }}}}}  n      l    fl-46961e5187-27e fl-46961e5187-27f    r     } }}}}  n  n  !$ } } "n ! #  " $ # %n   & % '  &l (fl-46961e5187-283 )fl-46961e5187-284 * ( ) +r  * ,  +} }}}}  -n , .n , / +}  0n  / 1 . 0 2 1 3n  4 3 5  4l 6fl-46961e5187-288 7fl-46961e5187-289 8 6 7 9r  8 :  9} }}}}  ;n : <n : =$ 9} } >n& = ? < > @ ? Agt-46961e5187-278 B A Cfl-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 fgcheck? ggexpr hs f g igm-46961e5187-294 j ip k j lfl-46961e5187-299 mfl-46961e5187-29a nfl-46961e5187-29b ofl-46961e5187-29c pfl-46961e5187-29d q l m n o p rr h k q s j tfl-46961e5187-296 u t vr s u wgt-1e8ba8b5a-3c4 xgt-1e8ba8b5a-3c6 ygt-1e8ba8b5a-3c5 z w x y {gm-1e8ba8b5a-3c7 | {p } | | | ~fl-1e8ba8b5a-3cb fl-1e8ba8b5a-3cc fl-1e8ba8b5a-3cd  ~   r z }  fl-1e8ba8b5a-3c1 fl-1e8ba8b5a-3c2 fl-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 gm-46961e5187-2a8  p gt-46961e5187-2a6 gt-46961e5187-2a7       fl-46961e5187-2ad fl-46961e5187-2ae    r      fl-46961e5187-2aa   r     } }}}}  n  gt-1e8ba8b5a-3e6 gt-1e8ba8b5a-3e7    gm-1e8ba8b5a-3e8  p    fl-1e8ba8b5a-3ec fl-1e8ba8b5a-3ed    r     fl-1e8ba8b5a-3e0 fl-1e8ba8b5a-3e1 fl-1e8ba8b5a-3e2     r    fl-1e8ba8b5a-3d7 fl-1e8ba8b5a-3d8    r   g field-specs   fl-1e8ba8b5a-3d3 fl-1e8ba8b5a-3d4    r    } }  } }   n  gval n      no  n  n     $ } } n      g struct-set! n    }  n        n  n  q }  n1                  q}  n   g"%test-runner-fail-count!-procedure gm-46961e5187-2b8  p gt-46961e5187-2b6 gt-46961e5187-2b7       fl-46961e5187-2bd fl-46961e5187-2be    r      fl-46961e5187-2ba   r     } }}}}  n   } }  } }   n  n      no  n  n     $ } } n      n    }  n        n  n  q }  n3                  q}  n   g#%test-runner-xpass-count!-procedure gm-46961e5187-2c8  p gt-46961e5187-2c6 gt-46961e5187-2c7       fl-46961e5187-2cd fl-46961e5187-2ce    r    !  "fl-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 Agm-46961e5187-2d8 B Ap Cgt-46961e5187-2d6 Dgt-46961e5187-2d7 E C D F B B Gfl-46961e5187-2dd Hfl-46961e5187-2de I G H Jr E F I K B Lfl-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 kgm-46961e5187-2e8 l kp mgt-46961e5187-2e6 ngt-46961e5187-2e7 o m n p l l qfl-46961e5187-2ed rfl-46961e5187-2ee s q r tr o p s u l vfl-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 gm-46961e5187-2f8  p gt-46961e5187-2f6 gt-46961e5187-2f7       fl-46961e5187-2fd fl-46961e5187-2fe    r      fl-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 gm-46961e5187-308  p gt-46961e5187-306 gt-46961e5187-307       fl-46961e5187-30d fl-46961e5187-30e    r      fl-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 gm-46961e5187-318  p gt-46961e5187-316 gt-46961e5187-317       fl-46961e5187-31d fl-46961e5187-31e    r      fl-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 gm-46961e5187-328  p gt-46961e5187-326 gt-46961e5187-327       fl-46961e5187-32d fl-46961e5187-32e    r    !  "fl-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 Bgm-46961e5187-338 C Bp Dgt-46961e5187-336 Egt-46961e5187-337 F D E G C C Hfl-46961e5187-33d Ifl-46961e5187-33e J H I Kr F G J L C Mfl-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 lgm-46961e5187-348 m lp ngt-46961e5187-346 ogt-46961e5187-347 p n o q m m rfl-46961e5187-34d sfl-46961e5187-34e t r s ur p q t v m wfl-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 gm-46961e5187-358  p gt-46961e5187-356 gt-46961e5187-357       fl-46961e5187-35d fl-46961e5187-35e    r      fl-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 gm-46961e5187-368  p gt-46961e5187-366 gt-46961e5187-367       fl-46961e5187-36d fl-46961e5187-36e    r      fl-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 gm-46961e5187-378  p gt-46961e5187-376 gt-46961e5187-377       fl-46961e5187-37d fl-46961e5187-37e    r      fl-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 gm-46961e5187-388  p gt-46961e5187-386 gt-46961e5187-387       fl-46961e5187-38d fl-46961e5187-38e    r      fl-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 >gm-46961e5187-398 ? >p @gt-46961e5187-396 Agt-46961e5187-397 B @ A C ? ? Dfl-46961e5187-39d Efl-46961e5187-39e F D E Gr B C F H ? Ifl-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 hgm-46961e5187-3a8 i hp jgt-46961e5187-3a6 kgt-46961e5187-3a7 l j k m i i nfl-46961e5187-3ad ofl-46961e5187-3ae p n o qr l m p r i sfl-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 gm-46961e5187-3b8  p gt-46961e5187-3b6 gt-46961e5187-3b7       fl-46961e5187-3bd fl-46961e5187-3be    r      fl-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 gm-46961e5187-3c8  p gt-46961e5187-3c6 gt-46961e5187-3c7       fl-46961e5187-3cd fl-46961e5187-3ce    r      fl-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 gm-46961e5187-3d8  p gt-46961e5187-3d6 gt-46961e5187-3d7       fl-46961e5187-3dd fl-46961e5187-3de    r      fl-46961e5187-3da   r     } }}}}  n   } }  } }   n  n      no  n  n     $ } } n      n    }  n        n  n  q }  n                   q}  n   g%test-result-alist!-procedure gm-46961e5187-3e8  p gt-46961e5187-3e6 gt-46961e5187-3e7       fl-46961e5187-3ed fl-46961e5187-3ee    r      fl-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 gt-46961e5187-3f6 ?gt-46961e5187-3f7 @ > ? A = = Bfl-46961e5187-3fd Cfl-46961e5187-3fe D B C Er @ A D F = Gfl-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 egreverse fg%test-null-callback ggtest-on-test-begin-simple hgmake-parameter igerror jf1test-runner not initialized - test-begin missing? kg%test-specifier-matches lg%test-any-specifier-matches mg result-kind ngskip ogxfail pg%test-should-execute qg %test-begin rg suite-name ss r tgm-46961e5187-407 u tp v uq wfl-46961e5187-40c xfl-46961e5187-40d y w x zr s v y { u |fl-46961e5187-409 } | ~r { } q z} ~ n q  n    lll gcount s r   uqq fl-46961e5187-411 fl-46961e5187-412 fl-46961e5187-413     r    q } ~ n q  gdisplay f%%%% Starting test  gstring? g string-append f.log gopen-output-file gnewline 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 gcurrent-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 gassq g source-file g source-line f f: gnumber->string f:  ftest-end not in a group g %test-end lm glet s r gm-46961e5187-417  p  qq fl-46961e5187-41c fl-46961e5187-41d fl-46961e5187-41e     r      fl-46961e5187-419   r   q }  n   gr n   n+         nK  n  gcons n   n  g test-name n      no  n p     g dynamic-wind n   n  n   n   g cleanup-form s r  gm-46961e5187-422  p  qqq fl-46961e5187-427 fl-46961e5187-428 fl-46961e5187-429 fl-46961e5187-42a      r      fl-46961e5187-424   r   q }  n  n   n  n     s r   qq fl-46961e5187-430 fl-46961e5187-431 fl-46961e5187-432     r    q }  n  n  l  l  l  gform1 gform2 gform3 grest s r      qqqqq fl-46961e5187-437 fl-46961e5187-438 fl-46961e5187-439 fl-46961e5187-43a fl-46961e5187-43b fl-46961e5187-43c   r  q }   n   gbegin  n   g source-form f Test begin: g%test-write-result1 grunner gpname s gm-46961e5187-443 p qq fl-46961e5187-448 fl-46961e5187-449 fl-46961e5187-44a  r  fl-46961e5187-445  r  q} !n   "n  #" $gdefault %s$ &qqq 'fl-46961e5187-44f (fl-46961e5187-450 )fl-46961e5187-451 *fl-46961e5187-452 +'()* ,r%&+ -q,} .n - /gp 0n/- 1n - 2nJ- 3no- 4gcdr 5n4- 650 7gfail 8gxpass 9fXPASS :fFAIL ;f      ?f  @gwrite Agpass BA8 Cg%test-report-result Dg%test-evaluate-with-catch Egcatch Fgtest-expression GsF Hgm-46961e5187-458 IHp JIq Kfl-46961e5187-45d Lfl-46961e5187-45e MKL NrGJM OI Pfl-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 hgassq-ref igfilename jgline kg datum->syntax lghere mg line-alist nm ofl-46961e5187-5eb po qrnp rg file-alist sr tfl-46961e5187-5e8 ut vrsu wj xfl-46961e5187-5e4 yx zrwy {gfile |{ }fl-46961e5187-5e0 ~} r|~ g src-props  fl-46961e5187-5de  r  fl-46961e5187-5dc  r q}}q}v}z}}}} nl g syntax->datum gappend   g%test-source-line2 g%test-on-test-begin g%test-on-test-end g%test-comp2body lllll gcomp gexpected s  g gm-46961e5187-462 p qqqq fl-46961e5187-467 fl-46961e5187-468 fl-46961e5187-469 fl-46961e5187-46a fl-46961e5187-46b  r  fl-46961e5187-464  r q} n  no n gexp n n! n gexpected-value n   gres n nD g actual-value n   n  nC   g real-part g imag-part g%test-approximate= g%test-comp1body s  g gm-46961e5187-471 p qq fl-46961e5187-476 fl-46961e5187-477 fl-46961e5187-478  r  fl-46961e5187-473  r q} n  no n n nD n! n n   n  nC   fl-46961e5187-47e  r q} n  `l gmac  rj fl-46961e5187-481 fl-46961e5187-482 fl-46961e5187-483  r q} n  l l j fl-46961e5187-488 fl-46961e5187-489  r q} n  n fl-46961e5187-48d  r q} n  l glet* gtname  gj fl-46961e5187-490 fl-46961e5187-491 fl-46961e5187-492 fl-46961e5187-493  r q} n n   n-        n  nK n  n n   n  gj fl-46961e5187-499 fl-46961e5187-49a fl-46961e5187-49b  r q} n n  n-     nK !n "~ #fl-46961e5187-58e $fl-46961e5187-58f %#$ &r"% 'q}& (n' )ll * gj +fl-46961e5187-592 ,fl-46961e5187-593 -fl-46961e5187-594 .fl-46961e5187-595 /fl-46961e5187-596 0fl-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 Bfl-46961e5187-59f Cfl-46961e5187-5a0 Dfl-46961e5187-5a1 Efl-46961e5187-5a2 Ffl-46961e5187-5a3 GBCDEF HrAG IqH}& JnI Kn I Ln-I ML NKM ON PnKI QnI Rg %test-comp2 Sgeqv? Tfl-46961e5187-4a0 UT VrU Wq}V XnSW Yfl-46961e5187-4a2 ZY [rZ \q}[ ]n\ ^gequal? _fl-46961e5187-4a4 `_ ar` bq}a cn^b dfl-46961e5187-4a6 ed fre gq}f hng il j g ij kfl-46961e5187-4a9 lfl-46961e5187-4aa mfl-46961e5187-4ab nfl-46961e5187-4ac ofl-46961e5187-4ad pfl-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 fl-46961e5187-4b6 fl-46961e5187-4b7 fl-46961e5187-4b8 fl-46961e5187-4b9 fl-46961e5187-4ba  r q}f n n  n-    nK n n g %test-error gcond getype s  g gm-46961e5187-4c1 p qqq fl-46961e5187-4c6 fl-46961e5187-4c7 fl-46961e5187-4c8 fl-46961e5187-4c9  r  fl-46961e5187-4c3  r q} n n n  get n n! n gexpected-error n   n nE n n n  n  n n  n^  n     nC   fl-46961e5187-4d0  r q} n  gj fl-46961e5187-4d3 fl-46961e5187-4d4 fl-46961e5187-4d5 fl-46961e5187-4d6 fl-46961e5187-4d7  r q} n n  n-   n nK n  n n   n  gj fl-46961e5187-4de fl-46961e5187-4df fl-46961e5187-4e0 fl-46961e5187-4e1  r q} n n  n-    nK n fl-46961e5187-4e7 fl-46961e5187-4e8 fl-46961e5187-4e9  r q} n n  n-    nK n n gapply l- l s gm-46961e5187-4ed p qq fl-46961e5187-4f2 fl-46961e5187-4f3 fl-46961e5187-4f4   r    fl-46961e5187-4ef     r   q }  n  g saved-runner n n+    n  n    g%test-match-nth gn s gm-46961e5187-4f9 p  q !fl-46961e5187-4fe "fl-46961e5187-4ff #!" $r # % &fl-46961e5187-4fb '& (r%' )q$}( *n) +n ) ,+ -s  .qq /fl-46961e5187-503 0fl-46961e5187-504 1fl-46961e5187-505 2/01 3r-.2 4q3}( 5n4 6g%test-match-all 7gpred 8s7 9gm-46961e5187-509 :9p ;:q <= ?r8;> @: Afl-46961e5187-50b BA Cr@B Dq?}C En6D Fg%test-as-specifier GnFD Hg%test-match-any Igm-46961e5187-513 JIp KJq Lfl-46961e5187-518 Mfl-46961e5187-519 NLM Or8KN PJ Qfl-46961e5187-515 RQ SrPR TqO}S UnHT VnFT Wg procedure? Xginteger? Yfnot a valid test specifier Zgm-46961e5187-51d [Zp \[q ]fl-46961e5187-522 ^fl-46961e5187-523 _]^ `r8\_ a[ bfl-46961e5187-51f cb drac eq`}d fn e gne hn-e ih jgi kj ln e mn e nne onFe pne qpg rq sgm-46961e5187-527 tsp utq vfl-46961e5187-52c wfl-46961e5187-52d xvw yr8ux zt {fl-46961e5187-529 |{ }rz| ~qy}} n ~ n~ n-~    n ~ n ~ n~ nF~ n~   gopen-input-string gread g eof-object? g read-char geval f (not at eof)C5h(X]4   T54W>"G4Xi4Yi5Z>"G4]`c>"G4fghkmh@]C8gdummy  gnames     Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-64/testing.scm ;   " g macro-typeg syntax-rulesgpatternsgnamesC5gR4fhkh ]45Cgdummy  galloc  grunner?   gname   gindex   gsetter   ggetter      Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-64/testing.scm g   " g macro-typeg syntax-rulesgpatternsgallocgrunner?gnamegindexgsetterggetterg...C5Rh u]Cmgfilenamefsrfi/srfi-64/testing.scm    gnameg%%test-runner-alloc-procedureCR4fhk,h]C   C.01h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     C6h]C   C hx]45$@45$ O@45" 6$4 O?$ @""gx  qgtmp qgtmp  " qgtmp  > qgfilenamefsrfi/srfi-64/testing.scm   q C5R9:=T4W>"G ZiRh]$CCygobj  gfilenamefsrfi/srfi-64/testing.scm    gnameg%test-runner?-procedureC[R4f'hk\h7]C/gt-46961e5187-35    C.0'1h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     Ch]C   C hx]45$@45$ O@45" 6$4 O?$ @""gx  qgtmp qgtmp  " qgtmp  > qgfilenamefsrfi/srfi-64/testing.scm   q C5'R0h]& C6gs  gfilenamefsrfi/srfi-64/testing.scm    gnameg!%test-runner-pass-count-procedureCR4f0hk h:]C2gerr  gs    Ch:]C2gerr  gs    C$*h:]C2gerr  gs    C\Hh7]C/gt-46961e5187-41    C.001h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     CJh]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5"  6$4O?$@""gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-64/testing.scm   C50R2h]& C6gs  gfilenamefsrfi/srfi-64/testing.scm    gnameg!%test-runner-fail-count-procedureCKR4f2hkY`eh:]C2gerr  gs    Chnsh:]C2gerr  gs    Cv|h:]C2gerr  gs    C\h7]C/gt-46961e5187-5c    C.021h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5"  6$4O?$@""gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-64/testing.scm   C52R4h ]& C6gs  gfilenamefsrfi/srfi-64/testing.scm    gnameg"%test-runner-xpass-count-procedureCR4f4hkh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    C\h7]C/gt-46961e5187-77    C.041h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5"  6$4O?$@""gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-64/testing.scm   C54R6h ]& C6gs  gfilenamefsrfi/srfi-64/testing.scm    gnameg"%test-runner-xfail-count-procedureCR4f6hk h:]C2gerr  gs    Ch:]C2gerr  gs    C"(-h:]C2gerr  gs    C\Jh7]C/gt-46961e5187-92    C.061h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     CLh]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5"  6$4O?$@""gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-64/testing.scm   C56R8h ]& C6gs  gfilenamefsrfi/srfi-64/testing.scm    gnameg!%test-runner-skip-count-procedureCMR4f8hk[bgh:]C2gerr  gs    Cjpuh:]C2gerr  gs    Cx~h:]C2gerr  gs    C\h7]C/gt-46961e5187-ad    C.081h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5"  6$4O?$@""gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-64/testing.scm   C58Rh ]& C6gs  gfilenamefsrfi/srfi-64/testing.scm    gnameg!%%test-runner-skip-list-procedureCR4fhkh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    C\h7]C/gt-46961e5187-c8    C.01h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5"  6$4O?$@""gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-64/testing.scm   C5Rh ]& C6gs  gfilenamefsrfi/srfi-64/testing.scm    gnameg!%%test-runner-fail-list-procedureCR4fhk h:]C2gerr  gs    C#h:]C2gerr  gs    C&,1h:]C2gerr  gs    C\Nh7]C/gt-46961e5187-e3    C.01h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     CPh]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5"  6$4O?$@""gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-64/testing.scm   C5RQh ]& C6gs  gfilenamefsrfi/srfi-64/testing.scm    gnameg %%test-runner-run-list-procedureCRR4fQhk`glh:]C2gerr  gs    Couzh:]C2gerr  gs    C}h:]C2gerr  gs    C\h7]C/gt-46961e5187-fe    C.0Q1h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5"  6$4O?$@""gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-64/testing.scm   C5QRh ]& C6gs  gfilenamefsrfi/srfi-64/testing.scm    gnameg!%%test-runner-skip-save-procedureCR4fhkh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    C\h8]C0gt-46961e5187-119    C.01h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5"  6$4O?$@""gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-64/testing.scm   C5Rh ]& C6gs  gfilenamefsrfi/srfi-64/testing.scm    gnameg!%%test-runner-fail-save-procedureCR4fhkh:]C2gerr  gs    C#(h:]C2gerr  gs    C+16h:]C2gerr  gs    C\Sh8]C0gt-46961e5187-134    C.01h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     CUh]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5"  6$4O?$@""gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-64/testing.scm   C5R:h ]& C6gs  gfilenamefsrfi/srfi-64/testing.scm    gnameg"%test-runner-group-stack-procedureCVR4f:hkdkph:]C2gerr  gs    Csy~h:]C2gerr  gs    Ch:]C2gerr  gs    C\h8]C0gt-46961e5187-14f    C.0:1h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5"  6$4O?$@""gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-64/testing.scm   C5:R<h ]& C6gs  gfilenamefsrfi/srfi-64/testing.scm    gnameg$%test-runner-on-test-begin-procedureCR4f<hkh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    C\h8]C0gt-46961e5187-16a    C.0<1h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5"  6$4O?$@""gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-64/testing.scm   C5h ]& C6gs  gfilenamefsrfi/srfi-64/testing.scm    gnameg"%test-runner-on-test-end-procedureCR4f>hkh:]C2gerr  gs    C%*h:]C2gerr  gs    C-38h:]C2gerr  gs    C\Uh8]C0gt-46961e5187-185    C.0>1h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     CWh]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5"  6$4O?$@""gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-64/testing.scm   C5>R@h ]& C6gs  gfilenamefsrfi/srfi-64/testing.scm    gnameg%%test-runner-on-group-begin-procedureCXR4f@hkfmrh:]C2gerr  gs    Cu{h:]C2gerr  gs    Ch:]C2gerr  gs    C\h8]C0gt-46961e5187-1a0    C.0@1h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5"  6$4O?$@""gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-64/testing.scm   C5@RBh ]& C6gs  gfilenamefsrfi/srfi-64/testing.scm    gnameg#%test-runner-on-group-end-procedureCR4fBhkh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    C\h8]C0gt-46961e5187-1bb    C.0B1h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5"  6$4O?$@""gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-64/testing.scm   C5BRDh ]& C6gs  gfilenamefsrfi/srfi-64/testing.scm    gnameg%test-runner-on-final-procedureCR4fDhkh:]C2gerr  gs    C!',h:]C2gerr  gs    C/5:h:]C2gerr  gs    C\Wh8]C0gt-46961e5187-1d6    C.0D1h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     CYh]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5"  6$4O?$@""gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-64/testing.scm   C5DRFh ]& C6gs  gfilenamefsrfi/srfi-64/testing.scm    gnameg#%test-runner-on-bad-count-procedureCZR4fFhkhoth:]C2gerr  gs    Cw}h:]C2gerr  gs    Ch:]C2gerr  gs    C\h8]C0gt-46961e5187-1f1    C.0F1h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5"  6$4O?$@""gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-64/testing.scm   C5FRHh ]& C6gs  gfilenamefsrfi/srfi-64/testing.scm    gnameg&%test-runner-on-bad-end-name-procedureCR4fHhkh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    C\h8]C0gt-46961e5187-20c    C.0H1h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5"  6$4O?$@""gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-64/testing.scm   C5HRh ]& C6gs  gfilenamefsrfi/srfi-64/testing.scm    gnameg#%%test-runner-total-count-procedureCR4fhk!h:]C2gerr  gs    C$*/h:]C2gerr  gs    C28=h:]C2gerr  gs    C\Zh8]C0gt-46961e5187-227    C.01h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     C\h]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5"  6$4O?$@""gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-64/testing.scm   C5R]h ]& C6gs  gfilenamefsrfi/srfi-64/testing.scm    gnameg"%%test-runner-count-list-procedureC^R4f]hklsxh:]C2gerr  gs    C{h:]C2gerr  gs    Ch:]C2gerr  gs    C\h8]C0gt-46961e5187-242    C.0]1h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     Ch]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5"  6$4O?$@""gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-64/testing.scm   C5]RJh ]& C6|gs  gfilenamefsrfi/srfi-64/testing.scm    gnameg%test-result-alist-procedureCR4fJhkh:]C2gerr  gs    Ch:]C2gerr  gs    Ch:]C2gerr  gs    C\ h8]C0gt-46961e5187-25d    C.0J1h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     C h]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5"  6$4O?$@""gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-64/testing.scm   C5JRLh ]& C6gs  gfilenamefsrfi/srfi-64/testing.scm    gnameg %test-runner-aux-value-procedureC R4fLhk   $h:]C2gerr  gs    C ' - 2h:]C2gerr  gs    C 5 ; @h:]C2gerr  gs    C\ ]h8]C0gt-46961e5187-278    C.0L1h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     C _h]C   Ch]145$@45$@45$@45$ @4 5$  O@4 5"  6$4O?$@""gx  gtmp gtmp  " gtmp  9 gtmp  P gtmp  g gtmp  gfilenamefsrfi/srfi-64/testing.scm   C5LR4f&hk d   h v]45Cngdummy  gcheck?  gs   ggetter   gexpr      Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-64/testing.scm   " g macro-typeg syntax-rulesgpatternsgcheck?gsggettergexprg...C5&R1h ]& C6gs  gval  gfilenamefsrfi/srfi-64/testing.scm    gnameg"%test-runner-pass-count!-procedureC R4f1hk  hV]CNgt-46961e5187-2a6  gt-46961e5187-2a7    C.011h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     C h]C   C hx]45$@45$ O@45" 6$4 O?$ @""gx  qgtmp qgtmp  " qgtmp  > qgfilenamefsrfi/srfi-64/testing.scm   q C51R3h ]& C6gs  gval  gfilenamefsrfi/srfi-64/testing.scm    gnameg"%test-runner-fail-count!-procedureC R4f3hk  hV]CNgt-46961e5187-2b6  gt-46961e5187-2b7    C.031h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     C h]C   C hx]45$@45$ O@45" 6$4 O?$ @""gx  qgtmp qgtmp  " qgtmp  > qgfilenamefsrfi/srfi-64/testing.scm   q C53R5h ]& C6gs  gval  gfilenamefsrfi/srfi-64/testing.scm    gnameg#%test-runner-xpass-count!-procedureC R4f5hk  =hV]CNgt-46961e5187-2c6  gt-46961e5187-2c7    C.051h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     C ?h]C   C hx]45$@45$ O@45" 6$4 O?$ @""gx  qgtmp qgtmp  " qgtmp  > qgfilenamefsrfi/srfi-64/testing.scm   q C55R7h ]& C6gs  gval  gfilenamefsrfi/srfi-64/testing.scm    gnameg#%test-runner-xfail-count!-procedureC @R4f7hk  ghV]CNgt-46961e5187-2d6  gt-46961e5187-2d7    C.071h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     C ih]C   C hx]45$@45$ O@45" 6$4 O?$ @""gx  qgtmp qgtmp  " qgtmp  > qgfilenamefsrfi/srfi-64/testing.scm   q C57R9h ]& C6gs  gval  gfilenamefsrfi/srfi-64/testing.scm    gnameg"%test-runner-skip-count!-procedureC jR4f9hk  hV]CNgt-46961e5187-2e6  gt-46961e5187-2e7    C.091h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     C h]C   C hx]45$@45$ O@45" 6$4 O?$ @""gx  qgtmp qgtmp  " qgtmp  > qgfilenamefsrfi/srfi-64/testing.scm   q C59R h ]& C6gs  gval  gfilenamefsrfi/srfi-64/testing.scm    gnameg"%%test-runner-skip-list!-procedureC R4f hk  hV]CNgt-46961e5187-2f6  gt-46961e5187-2f7    C.0 1h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     C h]C   C hx]45$@45$ O@45" 6$4 O?$ @""gx  qgtmp qgtmp  " qgtmp  > qgfilenamefsrfi/srfi-64/testing.scm   q C5 R h ]& C6gs  gval  gfilenamefsrfi/srfi-64/testing.scm    gnameg"%%test-runner-fail-list!-procedureC R4f hk  hV]CNgt-46961e5187-306  gt-46961e5187-307    C.0 1h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     C h]C   C hx]45$@45$ O@45" 6$4 O?$ @""gx  qgtmp qgtmp  " qgtmp  > qgfilenamefsrfi/srfi-64/testing.scm   q C5 R h ]& C6gs  gval  gfilenamefsrfi/srfi-64/testing.scm    gnameg!%%test-runner-run-list!-procedureC R4f hk  hV]CNgt-46961e5187-316  gt-46961e5187-317    C.0 1h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     C h]C   C hx]45$@45$ O@45" 6$4 O?$ @""gx  qgtmp qgtmp  " qgtmp  > qgfilenamefsrfi/srfi-64/testing.scm   q C5 R h ]& C6gs  gval  gfilenamefsrfi/srfi-64/testing.scm    gnameg"%%test-runner-skip-save!-procedureC R4f hk  =hV]CNgt-46961e5187-326  gt-46961e5187-327    C.0 1h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     C ?h]C   C hx]45$@45$ O@45" 6$4 O?$ @""gx  qgtmp qgtmp  " qgtmp  > qgfilenamefsrfi/srfi-64/testing.scm   q C5 R @h ]& C6gs  gval  gfilenamefsrfi/srfi-64/testing.scm    gnameg"%%test-runner-fail-save!-procedureC AR4f @hk  hhV]CNgt-46961e5187-336  gt-46961e5187-337    C.0 @1h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     C jh]C   C hx]45$@45$ O@45" 6$4 O?$ @""gx  qgtmp qgtmp  " qgtmp  > qgfilenamefsrfi/srfi-64/testing.scm   q C5 @R;h ]& C6gs  gval  gfilenamefsrfi/srfi-64/testing.scm    gnameg#%test-runner-group-stack!-procedureC kR4f;hk  hV]CNgt-46961e5187-346  gt-46961e5187-347    C.0;1h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     C h]C   C hx]45$@45$ O@45" 6$4 O?$ @""gx  qgtmp qgtmp  " qgtmp  > qgfilenamefsrfi/srfi-64/testing.scm   q C5;R=h ]& C6gs  gval  gfilenamefsrfi/srfi-64/testing.scm    gnameg%%test-runner-on-test-begin!-procedureC R4f=hk  hV]CNgt-46961e5187-356  gt-46961e5187-357    C.0=1h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     C h]C   C hx]45$@45$ O@45" 6$4 O?$ @""gx  qgtmp qgtmp  " qgtmp  > qgfilenamefsrfi/srfi-64/testing.scm   q C5=R?h ]& C6gs  gval  gfilenamefsrfi/srfi-64/testing.scm    gnameg#%test-runner-on-test-end!-procedureC R4f?hk  hV]CNgt-46961e5187-366  gt-46961e5187-367    C.0?1h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     C h]C   C hx]45$@45$ O@45" 6$4 O?$ @""gx  qgtmp qgtmp  " qgtmp  > qgfilenamefsrfi/srfi-64/testing.scm   q C5?RAh ]& C6gs  gval  gfilenamefsrfi/srfi-64/testing.scm    gnameg&%test-runner-on-group-begin!-procedureC R4fAhk  hV]CNgt-46961e5187-376  gt-46961e5187-377    C.0A1h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     C h]C   C hx]45$@45$ O@45" 6$4 O?$ @""gx  qgtmp qgtmp  " qgtmp  > qgfilenamefsrfi/srfi-64/testing.scm   q C5ARCh ]& C6gs  gval  gfilenamefsrfi/srfi-64/testing.scm    gnameg$%test-runner-on-group-end!-procedureC R4fChk  :hV]CNgt-46961e5187-386  gt-46961e5187-387    C.0C1h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     C <h]C   C hx]45$@45$ O@45" 6$4 O?$ @""gx  qgtmp qgtmp  " qgtmp  > qgfilenamefsrfi/srfi-64/testing.scm   q C5CREh ]& C6gs  gval  gfilenamefsrfi/srfi-64/testing.scm    gnameg %test-runner-on-final!-procedureC =R4fEhk  dhV]CNgt-46961e5187-396  gt-46961e5187-397    C.0E1h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     C fh]C   C hx]45$@45$ O@45" 6$4 O?$ @""gx  qgtmp qgtmp  " qgtmp  > qgfilenamefsrfi/srfi-64/testing.scm   q C5ERGh ]& C6gs  gval  gfilenamefsrfi/srfi-64/testing.scm    gnameg$%test-runner-on-bad-count!-procedureC gR4fGhk  hV]CNgt-46961e5187-3a6  gt-46961e5187-3a7    C.0G1h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     C h]C   C hx]45$@45$ O@45" 6$4 O?$ @""gx  qgtmp qgtmp  " qgtmp  > qgfilenamefsrfi/srfi-64/testing.scm   q C5GRIh ]& C6gs  gval  gfilenamefsrfi/srfi-64/testing.scm    gnameg'%test-runner-on-bad-end-name!-procedureC R4fIhk  hV]CNgt-46961e5187-3b6  gt-46961e5187-3b7    C.0I1h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     C h]C   C hx]45$@45$ O@45" 6$4 O?$ @""gx  qgtmp qgtmp  " qgtmp  > qgfilenamefsrfi/srfi-64/testing.scm   q C5IR h ]& C6gs  gval  gfilenamefsrfi/srfi-64/testing.scm    gnameg$%%test-runner-total-count!-procedureC R4f hk  hV]CNgt-46961e5187-3c6  gt-46961e5187-3c7    C.0 1h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     C h]C   C hx]45$@45$ O@45" 6$4 O?$ @""gx  qgtmp qgtmp  " qgtmp  > qgfilenamefsrfi/srfi-64/testing.scm   q C5 R h ]& C6gs  gval  gfilenamefsrfi/srfi-64/testing.scm    gnameg#%%test-runner-count-list!-procedureC R4f hk  hV]CNgt-46961e5187-3d6  gt-46961e5187-3d7    C.0 1h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     C h]C   C hx]45$@45$ O@45" 6$4 O?$ @""gx  qgtmp qgtmp  " qgtmp  > qgfilenamefsrfi/srfi-64/testing.scm   q C5 RKh ]& C6gs  gval  gfilenamefsrfi/srfi-64/testing.scm    gnameg%test-result-alist!-procedureC R4fKhk  8hV]CNgt-46961e5187-3e6  gt-46961e5187-3e7    C.0K1h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     C :h]C   C hx]45$@45$ O@45" 6$4 O?$ @""gx  qgtmp qgtmp  " qgtmp  > qgfilenamefsrfi/srfi-64/testing.scm   q C5KRMh ]& C6gs  gval  gfilenamefsrfi/srfi-64/testing.scm    gnameg!%test-runner-aux-value!-procedureC ;R4fMhk  bhV]CNgt-46961e5187-3f6  gt-46961e5187-3f7    C.0M1h\]L6Tga  gfilenamefsrfi/srfi-64/testing.scm    C4hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     C dh]C   C hx]45$@45$ O@45" 6$4 O?$ @""gx  qgtmp qgtmp  " qgtmp  > qgfilenamefsrfi/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& C6grunner   gfilenamefsrfi/srfi-64/testing.scm       -  T  {       & # '  C  k  v " w     "      "      "      #     gnamegtest-runner-resetC(R e:h(]&  " 456grunner  !gfilenamefsrfi/srfi-64/testing.scm  !   ! gnamegtest-runner-group-pathCRh]Cxgrunner  gfilenamefsrfi/srfi-64/testing.scm    gnameg%test-null-callbackC fR(h]C~grunner  gname  gcount   gfilenamefsrfi/srfi-64/testing.scm (   CA fCE=?h]Cgrunner  gcount  gexpected   gfilenamefsrfi/srfi-64/testing.scm &   CGh]C}grunner  gbegin  gend   gfilenamefsrfi/srfi-64/testing.scm )   CIhp%]4>"G&  "4>"G&  "4>"G&  "4>"G&  "4 >"G&  "4 >"G&   "4 >"G&   "4>"GCgrunner  ogval \ gval gval gval gfilenamefsrfi/srfi-64/testing.scm      4  \       F   o gnamegtest-runner-nullC)R&R(NAOCRE g=S?PGQIh[]4>"G&  "4>"G&  "4>"G&  "4 >"G &  "4 >"G &  "4 >"G&  "4>"G&  "4>"GCSgrunner  gval 3 agval c gval gval gval !gval # Qgval S gfilenamefsrfi/srfi-64/testing.scm      3  c     #  S    gnamegtest-runner-simpleC*R4 hi5+R4 hi*i5,R+ i jh(]45$"4>"GCgr  (gfilenamefsrfi/srfi-64/testing.scm             ( gnamegtest-runner-getC-Rh]6gspec  grunner  gfilenamefsrfi/srfi-64/testing.scm     gnameg%test-specifier-matchesC kR,h|]456tgfilenamefsrfi/srfi-64/testing.scm     gnamegtest-runner-createC.R kh8 ]H"'(JC45$K"""glist  8grunner  8gresult   8gl  0gfilenamefsrfi/srfi-64/testing.scm           *     #   *   0  0   8 gnameg%test-any-specifier-matchesC lRQ l! m n o h]&  " 45&" 45$""4&  " 455$4>"GC4&  " 4 55$4 >"G CC|grunner  grun  gt  5 ggfilenamefsrfi/srfi-64/testing.scm       &   '   ,   5  5  C  H  d  k   l  r  % t  2 y         $  1     gnameg%test-should-executeC pR+.@  @] :;h]45$"445>"G454&  " 45>"G&  " 45&  " 45&  "4>"G&  " 4 5&  " 4 5&  "4 >"G&  " 4 5&  " 4 5&  "4>"G&  " 45& C6g suite-name  gcount  grunner  ) gval  gval  $gval  ^ gval   gfilenamefsrfi/srfi-64/testing.scm               %   )   ,   ]  % x  %      %  %     ' " ) B " # E $ # ^ "  ^ !   & (  % %  %    gnameg %test-beginC qR4f hk `  hE]C=gdummy  g suite-name    C  hX]CPgdummy  g suite-name  gcount     Ch@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefsrfi/srfi-64/testing.scm 2   9 g macro-typeg syntax-rulesgpatternsg suite-nameg suite-namegcountC5 R:  &     M  L  hf]&  " 45(4>"G4>"G$45$" 4 54 54>"G4>"G4 >"G&  "4 >"G4 >"G4>"G4>"G"4 >"G"&  " 4545$>4>"G4>"G4 >"G"C^grunner  g suite-name  gcount   g log-file-name  e glog-file  n  glog  B gfilenamefsrfi/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 (   gnamegtest-on-group-begin-simpleCNRL   :  h] &  " 4545$X4>"G4&  " 45>"G4>"G"Cgrunner  glog  gfilenamefsrfi/srfi-64/testing.scm U  V  V  W  * W  + Y / Y  6 Y ? Z D Z  ] Z  d Z m [   gnamegtest-on-group-end-simpleCOR      h]]4>"G4>"G4>"G4>"G4>"G4>"G4>"G6Ugrunner  gcount  gexpected-count   gport   gfilenamefsrfi/srfi-64/testing.scm ^  _   _  _   `  + a  / a 6 a  ? b  S c  W c ^ c  g d  y e  } e e  f   gnameg%test-on-bad-count-writeC R  L hX ] 445>"G&  " 4545$ 6Cgrunner  Sgcount  Sgexpected-count   Sglog  8 Sgfilenamefsrfi/srfi-64/testing.scm h  i  i 8  i  j 8 j  ; k  E k  Q l   S gnamegtest-on-bad-count-simpleCPR     ih ] 44556grunner  g begin-name  gend-name   gmsg   gfilenamefsrfi/srfi-64/testing.scm n  o  o   o 7  p   o  o   r    gnamegtest-on-bad-end-name-simpleCQR  h@] $.4>"G4>"G6Cgvalue  :glabel  :gport   :gfilenamefsrfi/srfi-64/testing.scm v  w  w  y   z  8 {   : gnameg%test-final-report1C R 0 6 4 2 8 hN]4& " 45>"G4&  " 45>"G4&  " 45 >"G4& " 4 5 >"G&  " 4 5 6Fgrunner  gport  gfilenamefsrfi/srfi-64/testing.scm }  ~   ~  !   ( ~  1   6   P   W   `   e                       gnameg%test-final-report-simpleC R  L hP] 445>"G&  " 4545$6Cgrunner  Kglog 4 Kgfilenamefsrfi/srfi-64/testing.scm       $      4   7   A   I    K gnamegtest-on-final-simpleCRRJ         hh]!&  " 454545$"$ 4 5 6Cgrunner  ag line-info  ag source-file  ( ag source-line  3 agfile  D agfilenamefsrfi/srfi-64/testing.scm          $   (   (   +   /   3   3   ;   >  D  2 D   L   R   S   X  ( Z   \  ; ^  `    a gnameg%test-format-lineC R-: K   iH]FB;    @ Dhh]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(&  " 456Cg suite-name  gg line-info  ggr   gggroups  $ ggline  - ggmsg  g ~g count-list  ggexpected-count  gg saved-count  gg group-count   ggval  gval  gval 4 bgval ~ gval  gval  'gfilenamefsrfi/srfi-64/testing.scm         $   '   -   2   ^   _   e  ' g   g   j      0        6                             "  '  Z     '   "      &   !      & 4  ! 4   e  & ~  ! ~     &   !      "    *   F   I  8  g gnameg %test-endC R4fhk              hPW]       COgdummy  Lg suite-name  Lgbody   L  L Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-64/testing.scm    " g macro-typeg syntax-rulesgpatternsg suite-namegbodyC5R4fhk    h(q]Cigdummy  !g suite-name  !gform   !g cleanup-form   !  ! C   h_]CWgdummy  g suite-name  g cleanup-form      C   h]Cgdummy  g suite-name  gform1   gform2   gform3   grest      C hP;]45$@45$@45$@ 63gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefsrfi/srfi-64/testing.scm    P g macro-typeg syntax-rulesgpatternsg suite-namegformg cleanup-formg suite-nameg cleanup-formg suite-namegform1gform2gform3grestC5RL J      hO]1&  " 4545$&  " 4545454 54 54  >"G4 >"G$4>"G"$4>"G"$4>"G"$6CCGgrunner  glog  gresults  E g source-file  P g source-line  [ g source-form  f g test-name  q gfilenamefsrfi/srfi-64/testing.scm        *   -   E   H   L  " P   P   S   W  " [   [   ^   b  " f   f   i   m  q   q   t  x                  $   gnamegtest-on-test-begin-simpleC gR4f hk !#hT]CLgdummy  grunner  gpname      C.01236h0i]Cagdummy  )grunner  )gpname   )gdefault   )  ) Ch@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefsrfi/srfi-64/testing.scm    9 g macro-typeg syntax-rulesgpatternsgrunnergpnamegrunnergpnamegdefaultC5 RL  mJ78      9:;  <=>h(]1&  " 454&  " 455$"&"$ &  " 454 54 54 5$"$b$4 >"G"4  >"G$4 >"G"4 >"G"4 &">"G$)4 >"G4 >"G"4>"G"45$4 >"G4>"G"=$445$"4>"G"C&  " 45"Cgrunner  !gp ? Rglog R !gkind  R !gresults  g source-file  g source-line  g test-name  glist   gpair    gfilenamefsrfi/srfi-64/testing.scm       "  & %   R   ^   l   o        "        "                   )            )             $  ! (   *  ) 0  1 5  C  D   H   M   V   [   `   m                                   !                       J  ! gnamegtest-on-test-end-simpleCSR ? @ h`]4>"G4>"G4>"G4>"G6gpair  Zgport  Zgfilenamefsrfi/srfi-64/testing.scm               #   ,   0  7   @   E  L   Z    Z gnameg%test-write-result1CRJ Kh`']&  " 4545$C& C6grunner  Zgpname  Zgvalue   Zgalist   Zgp  ( Zgval  ? Zgfilenamefsrfi/srfi-64/testing.scm         (   0   5   <  ) ?  # ?    Z gnamegtest-result-set!C!RKh ]& C6grunner  gfilenamefsrfi/srfi-64/testing.scm             gnamegtest-result-clearC"RJ h ]L&C4L5Cgr  gfilenamefsrfi/srfi-64/testing.scm  #  %  3   /   7   =   7   )   gnamegloopCKhh]&  " 4545$5OQ45& C6Cgrunner  ggpname  ggalist   ggp  ( ggloop  9 Jgval  J egfilenamefsrfi/srfi-64/testing.scm         (   0   9  # J    g gnamegtest-result-removeC#R+  mJhP-13$"454&  " 455$CCgrest Ngrunner  Ngp  @ Ngfilenamefsrfi/srfi-64/testing.scm ! "   "   " !  " ,  "   #  # #  & #  N gnamegtest-result-kindC$R-=  mJB h`-13$"454&  " 455$"6grest Ygrunner  Ygp  B Ugfilenamefsrfi/srfi-64/testing.scm % &   &   & !  & ,  &  ! ' % ' " ( ' Y '  Y gnameg test-passed?C%R-$A01723845 o6789 >h  ]4545$L& " 45&  "4>"G"M$L& " 4 5&  "4 >"G" $N&  " 4 5&  "4 >"G"$N&  " 45&  "4>"G"J&  " 45&  "4>"G&  " 45&  "4>"G&  " 456gr  g result-kind  gval  6 cgval  gval  gval  8 fgval   gval   gfilenamefsrfi/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    gnameg%test-report-resultCCR4fDhk `TUVfhJ]CBgdummy  gtest-expression     Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-64/testing.scm =   " g macro-typeg syntax-rulesgpatternsgtest-expressionC5DRghij  k h])45$ 45"$ 45"$ "$ " 4 54 56gform  |g src-props |gfile   |gline  5 |g file-alist  J |g line-alist  ` |gfilenamefsrfi/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   | gnameg%test-source-line2CR p< n  mJ h] 4>"G4&  " 45>"G4&  " 455$"Cgr  ygp c vgfilenamefsrfi/srfi-64/testing.scm        A  B   F  % I   w   x    y gnameg%test-on-test-beginCR! m J o8A7 hh] 4&  " 455$"&$""$ " 6 gr  egresult  egp  * =gfilenamefsrfi/srfi-64/testing.scm        2    ?  @ C   I   K  % Q  , [   ]  % c  + e    e gnameg%test-on-test-endCR  J h8] 4&  " 455$CCgrunner  3gp $ 3gfilenamefsrfi/srfi-64/testing.scm          2  %  3 gnamegtest-runner-test-nameC/R4fhk hXv]    Cngdummy  Vgr  Vgcomp   Vgexpected   Vgexpr   V  V Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-64/testing.scm    " g macro-typeg syntax-rulesgpatternsgrgcompgexpectedgexprC5Rh`N]"45454545L$%L$L$ LCCCCFgvalue  Ygexpected  Ygrval   Ygival   Ygrexp   Ygiexp   Ygfilenamefsrfi/srfi-64/testing.scm                 -   .  2   9   :  >   E   F  J   Q   R    Y Ch~]OCvgerror  gfilenamefsrfi/srfi-64/testing.scm    gnameg%test-approximate=CR4fhk  hHN]  CFgdummy  Agr  Agexpr   A  A Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-64/testing.scm    " g macro-typeg syntax-rulesgpatternsgrgexprC5R4f hkhU]CMgmac  g suite-name  gline     Ch=]C5gmac  gline    C hP]4545$@45$@ 6gx  Lgtmp  Lgtmp   Lgtmp  5 Lgfilenamefsrfi/srfi-64/testing.scm     0           L C5 R4fhk    h8b]CZgmac  4gtname  4gexpr   4gline   4  4 C !h O]CGgmac  gexpr  gline      C hP]4545$@45$@ 6gx  Lgtmp  Lgtmp   Lgtmp  5 Lgfilenamefsrfi/srfi-64/testing.scm     0           L C5R(k)489:5;>? h8]Cgmac  8gtname  8gexpected   8gexpr   8gline   8gcomp   8  8 C@JOPKQh w]Cogmac  gexpected  gexpr   gline   gcomp     C hP]4545$@45$@ 6gcomp  Ngx  Ngtmp   Ngtmp  Ngtmp  7 Ngfilenamefsrfi/srfi-64/testing.scm     .           N gnameg %test-comp2CRR4fhRXhe]6]gx  gfilenamefsrfi/srfi-64/testing.scm      C5R4fhR]he]6]gx  gfilenamefsrfi/srfi-64/testing.scm      C5R4fhRche]6]gx  gfilenamefsrfi/srfi-64/testing.scm      C5R4fhhkitxyzu{~ h@] Cgmac  =gtname  =gexpected   =gexpr   =gerror   =gline   =  = Ch(x]Cpgmac  %gexpected  %gexpr   %gerror   %gline   %  % C hP]4545$@45$@ 6gx  Lgtmp  Lgtmp   Lgtmp  5 Lgfilenamefsrfi/srfi-64/testing.scm     0           L C5R4fhkh`a]      CYgdummy  ^gr  ^getype   ^gexpr   ^  ^ Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-64/testing.scm !   " g macro-typeg syntax-rulesgpatternsgrgetypegexprC5R4fhk h8u]Cmgmac  6gtname  6getype   6gexpr   6gline   6  6 Ch b]CZgmac  getype  gexpr   gline      Ch O]CGgmac  gexpr  gline      C hh]!4545$@45$@45$ @  6gx  cgtmp  cgtmp   cgtmp  5 cgtmp  L cgfilenamefsrfi/srfi-64/testing.scm |   } 0  }   }   }   c C5R+Q e .+hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     C+hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     CD+hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     C+hL]L6Dgfilenamefsrfi/srfi-64/testing.scm     Ch.-13"Y45$&  " 45(945&  "4>"G6& "&  "4>"G4>"G& C64 545 O O4 O>"GV4>"GX4 O>"G&  " 4 56$r&e45 OO4 O>"GV4>X4O>"GCX4O>"GF"."*&gfirst grest gr   fgrun-list  5 gval  D rgval  gr  fg saved-runner  Gg saved-runner  {  gfilenamefsrfi/srfi-64/testing.scm              5  =   >  / D   v   }    ,  9              " 0   J   f   i   m   p   w          gnameg test-applyCR4fhkh(S]CKgdummy  %grunner  %gform   %  % Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-64/testing.scm    " g macro-typeg syntax-rulesgpatternsgrunnergformg...C5Rh ]MNML$ MLLCCgrunner  gfilenamefsrfi/srfi-64/testing.scm                     Ch] HOCgn  gcount  gi   gfilenamefsrfi/srfi-64/testing.scm       gnameg%test-match-nthCR4fhk `*,h<]C4gdummy  gn    C 5hO]CGgdummy  gn  gcount     Ch@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefsrfi/srfi-64/testing.scm    9 g macro-typeg syntax-rulesgpatternsgngngcountC5Rh8]H"%(JC45$"K"L"grunner  6gresult  6gl  .gfilenamefsrfi/srfi-64/testing.scm                       %   (   .   .    6 Ch-13OCyg pred-list gfilenamefsrfi/srfi-64/testing.scm    gnameg%test-match-allC6R4fhkEGh:]C2gtmp-46961e5187-512    Ch?]45C7gdummy  gpred     Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-64/testing.scm    " g macro-typeg syntax-rulesgpatternsgpredg...C5Rh8]H"%(JC45$K""L"grunner  6gresult  6gl  .gfilenamefsrfi/srfi-64/testing.scm                       !   (   .   .    6 Ch-13OCyg pred-list gfilenamefsrfi/srfi-64/testing.scm    gnameg%test-match-anyCHR4fhkUVh:]C2gtmp-46961e5187-51c    Ch?]45C7gdummy  gpred     Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-64/testing.scm    " g macro-typeg syntax-rulesgpatternsgpredg...C5RWX  iYh@]45$C45$ 645$66g specifier  9gfilenamefsrfi/srfi-64/testing.scm           "   #  -   3   7   9    9 gnameg%test-as-specifierCFR4fhkfklgmnoh:]C2gtmp-46961e5187-526    Cr h(?]45 C7gdummy  #gpred  #  # Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-64/testing.scm    " g macro-typeg syntax-rulesgpatternsgpredg...C5R4fhkh:]C2gtmp-46961e5187-530    C h(?]45 C7gdummy  #gpred  #  # Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-64/testing.scm    " g macro-typeg syntax-rulesgpatternsgpredg...C5R/hs]L45Ckgrunner  gfilenamefsrfi/srfi-64/testing.scm         Chz]OCrgname  gfilenamefsrfi/srfi-64/testing.scm    gnamegtest-match-nameCRY i h8]45454455$ 4566 gstring  5gport 5gform   5gfilenamefsrfi/srfi-64/testing.scm                    $   )   /   3   5    5 gnamegtest-read-eval-stringCRCgm  (grtd  gfilenamefsrfi/srfi-64.scm   ) 4 . 4  6 4 & ; 4 gfilenamefsrfi/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& C6srfi-11.go000064400000016544151027761750006302 0ustar00GOOF----LE-8-2.0L]4h ] gguile  gdefine-module*   gsrfi gsrfi-11  gfilenameS fsrfi/srfi-11.scm gexportsS g let-values g let*-values    gset-current-module   gcond-expand-provide gcurrent-module  gmake-syntax-transformer   gmacro g $sc-dispatch   g_ gany   geach-any !  "! #" $g syntax-object %gcall-with-values &gtop '& (gribcage )gbinds *gexp +gb0 ,gb1 -)*+, .'''' /fl-46961e50cb-93 0fl-46961e50cb-94 1fl-46961e50cb-95 2fl-46961e50cb-96 3/012 4(-.3 5( 6gx 76 8' 9fl-46961e50cb-90 :9 ;(78: <'45; =ghygiene >= ?$%<> @glambda A$@<> B ! CB D   Eglet Fgid Ggtmp HFG I'' Jfl-46961e50cb-af Kfl-46961e50cb-b0 LJK M(HIL Nglp Ogclauses Pgids Qgtmps RNOPQ Sfl-46961e50cb-a3 Tfl-46961e50cb-a4 Ufl-46961e50cb-a5 Vfl-46961e50cb-a6 WSTUV X(R.W Ygclause ZY+, [''' \fl-46961e50cb-9d ]fl-46961e50cb-9e ^fl-46961e50cb-9f _\]^ `(Z[_ a'5M5X`5; b$Ea> cgmap dc ec fglist ggsyntax-violation hg ig jf-source expression failed to match any pattern k  lggenerate-temporaries m    ngappend on pn qginner rq sfl-46961e50cb-c7 ts u(r8t vgnew-tmp wvFG xfl-46961e50cb-bf yfl-46961e50cb-c0 zfl-46961e50cb-c1 {xyz |(w[{ }gvar ~}* fl-46961e50cb-b8 fl-46961e50cb-b9  (~I '5u55|5X`5;  $%> $@>  geach      gargs q fl-46961e50cb-e2 fl-46961e50cb-e3  (I gnew-var vFG fl-46961e50cb-d7 fl-46961e50cb-d8 fl-46961e50cb-d9 fl-46961e50cb-da  (. gvars * fl-46961e50cb-d0 fl-46961e50cb-d1  (I '5555X`5;  $%> $@>    gdummy gbody  gm-46961e50cb-104 & ' fl-46961e50cb-109 fl-46961e50cb-10a  (  fl-46961e50cb-106  (7 '5 $E>      gvars-1 g binding-1 gvars-2 g binding-2  ''''' fl-46961e50cb-10f fl-46961e50cb-110 fl-46961e50cb-111 fl-46961e50cb-112 fl-46961e50cb-113 fl-46961e50cb-114  ( '5 $%> $@> $ >C5h@r]4   54>"G4i4i5>"G4 #?Ah ^]CVgbinds  gexp  gb0   gb1      CCDbefh;]45LLC3gid  gtmp     Cijklmph8] 4LL4L5455LCgnew-tmp  5gid  5gtmp   5gtmp   5gfilenamefsrfi/srfi-11.scm  W '  W +  W '  W   5 Cijh@]45LL45$LLO@6gvar  =gexp  =gtmp   =gtmp   =gfilenamefsrfi/srfi-11.scm  S -  S   = Clh ]454L5Cgid  grest  gfilenamefsrfi/srfi-11.scm  c ,  b +  a $  d +  a $   Clh0] 45$ LO@45Cgvars  0gtmp 0gfilenamefsrfi/srfi-11.scm ^  ! g / + f . , e ' / h .  0 gnameglpCph*]C"gid     Cho]4L5Cggid  grest  gfilenamefsrfi/srfi-11.scm  r = q 7  Cijh@]45$@45$ LO@6~gtmps  >gtmp >gtmp  " >gfilenamefsrfi/srfi-11.scm n &  > gnameglpCh ?]LC7ginner  gargs     Cijh`]4LL45455OQ4545$ LO@6gnew-tmp  ]gnew-var  ]gid   ]gtmp   ]glp  $ 3gtmp  6 ]gtmp  A ]gfilenamefsrfi/srfi-11.scm  k '  k +  k ' $ n & 6 k   ] CijhP]OQ45LL45$LLO@6gvars  Kgexp  Kglp  gtmp  Kgtmp  + Kgfilenamefsrfi/srfi-11.scm ^  ]   K C h](045$ LLO@645$LO@45$ LO@6gclauses  gids  gtmps   gtmp   8gtmp   8gtmp  ; gtmp  F gtmp  h gfilenamefsrfi/srfi-11.scm I   L  M ; Q  ; Q   gnameglpCh ] OQ6gclause  gb0  gb1   glp  gfilenamefsrfi/srfi-11.scm I   J   K   I    Cijh@t]45$@45$@6lgx  9gtmp 9gtmp  " 9gfilenamefsrfi/srfi-11.scm C   9 C5 R4 h?]C7gdummy  gbody    Cefh(]45Cgdummy  (gvars-1  (g binding-1   (gvars-2   (g binding-2   (gbody   (  ( Cijh@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefsrfi/srfi-11.scm   9 g macro-typeg syntax-rulesgpatternsgbodyg...gvars-1g binding-1gvars-2g binding-2g...gbodyg...C5 RCjgm  (gfilenamefsrfi/srfi-11.scm  & ) ) . )  6 ) & ; )   = C6srfi-31.go000064400000004314151027761750006274 0ustar00GOOF----LE-8-2.0]O4h] gguile  gdefine-module*   gsrfi gsrfi-31  gfilenameS fsrfi/srfi-31.scm gexportsS grec   gset-current-module   gcond-expand-provide gcurrent-module  gmake-syntax-transformer   gmacro g $sc-dispatch   gany  geach-any   g syntax-object !gletrec "gtop #" $gribcage %gdummy &gname 'gformals (gbody )%&'( *gm-46961e5115-0 +*" ,+### -fl-46961e5115-5 .fl-46961e5115-6 /fl-46961e5115-7 0fl-46961e5115-8 1-./0 2$),1 3$ 4gx 54 6+ 7fl-46961e5115-2 87 9$568 :#239 ;ghygiene <; = !:< >glambda ? >:< @ Agexpr B%&A C+## Dfl-46961e5115-f Efl-46961e5115-10 Ffl-46961e5115-11 GDEF H$BCG I#H39 J !I< Kgsyntax-violation LK MK Nf-source expression failed to match any patternC5hr]4    54>"G4i4i5>"G4 =?h f]C^gdummy  gname  gformals   gbody      C@JhQ]CIgdummy  gname  gexpr      CMNh@I]45$@45$@6Agx  9gtmp 9gtmp  " 9gfilenamefsrfi/srfi-31.scm    9 g documentationfXReturn the given object, defined in a lexical environment where NAME is bound to itself.g macro-typeg syntax-rulesgpatternsgnamegformalsgbodyg...gnamegexprC5 RCjgm  (gfilenamefsrfi/srfi-31.scm   )  .   6  & ;     C6