Warning: file_get_contents(https://raw.githubusercontent.com/Den1xxx/Filemanager/master/languages/ru.json): failed to open stream: HTTP request failed! HTTP/1.1 404 Not Found
in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 88
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 215
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 216
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 217
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 218
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 219
Warning: Cannot modify header information - headers already sent by (output started at /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php:88) in /home/afelisqd/cppseducation.sc.tz/admin/images/photos/17587263121019776732_admin-dbb.php on line 220
PK ! ś;T y y
srfi-67.gonu [µü¤ GOOF----LE-8-2.0a ]ł 4 h 4 ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-67¤ ¤ g filenameS¤
f srfi/srfi-67.scm¤ g importsS¤ g srfi-27¤
¤
¤ ¤ g exportsS¤ g />=?¤ g >/>?¤ g >=/>=?¤ g >=/>?¤ g >=?¤ g >?¤ g boolean-compare¤ g chain<=?¤ g chain=?¤ #g chain>?¤ $g char-compare¤ %g char-compare-ci¤ &g compare-by<¤ 'g compare-by<=¤ (g
compare-by=/<¤ )g
compare-by=/>¤ *g compare-by>¤ +g compare-by>=¤ ,g complex-compare¤ -g cond-compare¤ .g
debug-compare¤ /g default-compare¤ 0g if-not=?¤ 1g if3¤ 2g if<=?¤ 3g if=?¤ 6g if>?¤ 7g integer-compare¤ 8g kth-largest¤ 9g list-compare¤ :g list-compare-as-vector¤ ;g max-compare¤ g number-compare¤ ?g pair-compare¤ @g pair-compare-car¤ Ag pair-compare-cdr¤ Bg pairwise-not=?¤ Cg rational-compare¤ Dg real-compare¤ Eg refine-compare¤ Fg select-compare¤ Gg symbol-compare¤ Hg vector-compare¤ Ig vector-compare-as-list¤ J !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHI 9¤ Kg replacementsS¤ Lg string-compare¤ Mg string-compare-ci¤ NLM ¤ Og set-current-module¤ PO ¤ QO ¤ Rg cond-expand-provide¤ Sg current-module¤ T ¤ Ug for-each¤ Vg compare:checked¤ Wg make-syntax-transformer¤ XW ¤ YW ¤ Zg macro¤ [g $sc-dispatch¤ \[ ¤ ][ ¤ ^g any¤ _^^^^^ ¤ `g
syntax-object¤ ag case¤ bg top¤ cb ¤ dg ribcage¤ eg dummy¤ fg c¤ gg less¤ hg equal¤ ig greater¤ jefghi ¤ kg m-46961e518a-3¤ lkb ¤ mlcccc ¤ nf l-46961e518a-8¤ of l-46961e518a-9¤ pf l-46961e518a-a¤ qf l-46961e518a-b¤ rf l-46961e518a-c¤ snopqr ¤ tdjms ¤ ud ¤ vg x¤ wv ¤ xl ¤ yf l-46961e518a-5¤ zy ¤ {dwxz ¤ |ctu{ ¤ }g hygiene¤ ~} ¤ `a|~ ¤ ` ’|~ ¤ ¤ `
|~ ¤ ¤ ` |~ ¤
¤ g else¤ `|~ ¤ g error¤ `|~ ¤ f comparison value not in {-1,0,1}¤ `|~ ¤ ¤ ¤ ¤ g syntax-violation¤ ¤ ¤ f -source expression failed to match any pattern¤ g compare:if-rel?¤ g c-cases¤ g a-cases¤ g consequence¤ ef ¤ g m-46961e518a-12¤ b ¤ cccc ¤ f l-46961e518a-17¤ f l-46961e518a-18¤ f l-46961e518a-19¤ f l-46961e518a-1a¤ f l-46961e518a-1b¤ ¤ ”d ¤ ¢ ¤ £f l-46961e518a-14¤ ¤£ ¤ „dw¢¤ ¤ ¦c”u„ ¤ §`¦~ ¤ Øg if¤ ©`ئ~ ¤ Ŗ`¦~ ¤ «©ŖŖ ¤ ¬« ¤ ^^^^^^ ¤ ®g alternate¤ Æef® ¤ °ccccc ¤ ±f l-46961e518a-22¤ ²f l-46961e518a-23¤ ³f l-46961e518a-24¤ “f l-46961e518a-25¤ µf l-46961e518a-26¤ ¶f l-46961e518a-27¤ ·±²³“µ¶ ¤ ødÆ°· ¤ ¹cøu„ ¤ ŗ`a¹~ ¤ »`¹~ ¤ ¼`¹~ ¤ ½`¹~ ¤ ¾¼½ ¤ 滾 ¤ Ąæ ¤ Įg each-any¤ Ā^Į¤ Ćg arg¤ ÄeĆ ¤ Åg m-46961e518a-2f¤ ĘÅb ¤ ĒĘc ¤ Čf l-46961e518a-34¤ Éf l-46961e518a-35¤ ŹČÉ ¤ ĖdÄĒŹ ¤ ĢĘ ¤ Ķf l-46961e518a-31¤ ĪĶ ¤ ĻdwĢĪ ¤ ŠcĖuĻ ¤ Ń`Š~ ¤ Ņ`
Š~ ¤ ÓŅ ¤ Ō` ’Š~ ¤ Õ` Š~ ¤ ÖŌÕ ¤ ×g m-46961e518a-3a¤ Ų×b ¤ ŁŲc ¤ Śf l-46961e518a-3f¤ Ūf l-46961e518a-40¤ ÜŚŪ ¤ ŻdÄŁÜ ¤ ŽŲ ¤ ßf l-46961e518a-3c¤ ąß ¤ įdwŽą ¤ ācŻuį ¤ ć`ā~ ¤ ä` ’ā~ ¤ åä ¤ ę`
ā~ ¤ ē` ā~ ¤ čęē ¤ ég m-46961e518a-45¤ źéb ¤ ėźc ¤ ģf l-46961e518a-4a¤ ķf l-46961e518a-4b¤ īģķ ¤ ļdÄėī ¤ šź ¤ ńf l-46961e518a-47¤ ņń ¤ ódwšņ ¤ ōcļuó ¤ õ`ō~ ¤ ö` ō~ ¤ ÷ö ¤ ų` ’ō~ ¤ ł`
ō~ ¤ śųł ¤ ūg m-46961e518a-50¤ üūb ¤ żüc ¤ žf l-46961e518a-55¤ ’f l-46961e518a-56¤ ž’ ¤ dÄż ¤ ü ¤ f l-46961e518a-52¤ ¤ dw ¤ cu ¤ `~ ¤ ` ’~ ¤ `
~ ¤
¤ ` ~ ¤ ¤
g m-46961e518a-5b¤
b ¤ c ¤ f l-46961e518a-60¤ f l-46961e518a-61¤ ¤ dÄ ¤ ¤ f l-46961e518a-5d¤ ¤ dw ¤ cu ¤ `~ ¤ `
~ ¤ ` ~ ¤ ¤ ` ’~ ¤ ¤ g m-46961e518a-66¤ b ¤ ! c ¤ "f l-46961e518a-6b¤ #f l-46961e518a-6c¤ $"# ¤ %dÄ!$ ¤ & ¤ 'f l-46961e518a-68¤ (' ¤ )dw&( ¤ *c%u) ¤ +`*~ ¤ ,` ’*~ ¤ -` *~ ¤ .,- ¤ /`
*~ ¤ 0/ ¤ 1g compare:define-rel?¤ 2^^^ ¤ 3g define¤ 4g rel?¤ 5g if-rel?¤ 6e45 ¤ 7g m-46961e518a-71¤ 87b ¤ 98cc ¤ :f l-46961e518a-76¤ ;f l-46961e518a-77¤ d69= ¤ ?8 ¤ @f l-46961e518a-73¤ A@ ¤ Bdw?A ¤ Cc>uB ¤ D`3C~ ¤ Eg case-lambda¤ F`EC~ ¤ Gg lambda¤ H`GC~ ¤ I`vC~ ¤ Jg y¤ K`JC~ ¤ LIK ¤ M`/C~ ¤ NMIK ¤ O`C~ ¤ P`C~ ¤ QNOP ¤ Rg compare¤ S`RC~ ¤ TS ¤ USIK ¤ VUOP ¤ W`ØC~ ¤ Xg
procedure?¤ Y`XC~ ¤ ZYS ¤ [`C~ ¤ \f *not a procedure (Did you mean rel/rel??): ¤ ]`\C~ ¤ ^[]S ¤ _^ ¤ `g compare:define-rel1/rel2?¤ a^^^^ ¤ bg
rel1/rel2?¤ cg if-rel1?¤ dg if-rel2?¤ eebcd ¤ fg m-46961e518a-83¤ gfb ¤ hgccc ¤ if l-46961e518a-88¤ jf l-46961e518a-89¤ kf l-46961e518a-8a¤ lf l-46961e518a-8b¤ mijkl ¤ ndehm ¤ og ¤ pf l-46961e518a-85¤ qp ¤ rdwoq ¤ scnur ¤ t`3s~ ¤ u`Es~ ¤ v`Gs~ ¤ w`vs~ ¤ x`Js~ ¤ yg z¤ z`ys~ ¤ {wxz ¤ |`/s~ ¤ }|wx ¤ ~|xz ¤ `s~ ¤ `s~ ¤ ~ ¤ `Vs~ ¤ |z ¤ ¤
`Rs~ ¤
¤
wx ¤
xz ¤ ¤
z ¤ ¤
wxz ¤ g compare:define-chain-rel?¤ g
chain-rel?¤ e5 ¤ g m-46961e518a-99¤ b ¤ cc ¤ f l-46961e518a-9e¤ f l-46961e518a-9f¤ f l-46961e518a-a0¤ ¤ d ¤ ¤ f l-46961e518a-9b¤ ¤ dw ¤ cu ¤ `3~ ¤ `E~ ¤ `R~ ¤ ¤ ”`~ ¤ ¢ ” ¤ £g x1¤ ¤`£~ ¤ „¤ ¤ ¦`V~ ¤ §¦”¤ ¤ Ø„§ ¤ ©g x2¤ Ŗ`©~ ¤ «¤Ŗ ¤ ¬`~ ¤ «”¬ ¤ ®g x3¤ Æ`®~ ¤ °¤ŖÆ ¤ ±ŖÆ ¤ ²±”¬ ¤ ³¦¬Æ ¤ “³ ¤ µg x3+¤ ¶`µ~ ¤ ·Ŗ¶¤ ø¤·¤ ¹ø¤ ŗg let¤ »`ŗ~ ¤ ¼g chain?¤ ½`¼~ ¤ ¾g head¤ æ`¾~ ¤ ĄæŖ ¤ Įg tail¤ Ā`Į~ ¤ ĆĀ¶ ¤ ÄĄĆ ¤ Å`Ø~ ¤ Ęg null?¤ Ē`Ę~ ¤ ČĒĀ ¤ Ég car¤ Ź`É~ ¤ ĖŹĀ ¤ ĢæĖ ¤ Ķg cdr¤ Ī`Ķ~ ¤ ĻĪĀ ¤ Š½ĖĻ ¤ Ńg apply¤ Ņ`Ń~ ¤ ÓŅ¦¬Ļ ¤ ŌĢŠÓ ¤ ÕŅ¦¬¶ ¤ ÖÕ ¤ ×g random-integer¤ Ųg list-ref¤ Łg length¤ Śf bad index¤ Ūg integer?¤ Üg exact?¤ Ż^ ¤ Že ¤ ßg m-46961e518a-a9¤ ąßb ¤ įą ¤ āf l-46961e518a-ae¤ ćā ¤ ädŽįć ¤ åf l-46961e518a-ab¤ ęå ¤ ēdwįę ¤ čcäuē ¤ é`
č~ ¤ ź^^ ¤ ė^Ā¤ ģ^ė¤ ķg c1¤ īg c2¤ ļg cs¤ šeķīļ ¤ ńąccc ¤ ņf l-46961e518a-b6¤ óf l-46961e518a-b7¤ ōf l-46961e518a-b8¤ õf l-46961e518a-b9¤ öņóōõ ¤ ÷dšńö ¤ ųc÷uē ¤ ł`1ų~ ¤ ś` ’ų~ ¤ ū`Eų~ ¤ ü` ų~ ¤ żü ¤ žg clause¤ ’evJž ¤ g m-46961e518a-bf¤ b ¤ ccc ¤ f l-46961e518a-c4¤ f l-46961e518a-c5¤ f l-46961e518a-c6¤ f l-46961e518a-c7¤ ¤ d’ ¤ ¤
f l-46961e518a-c1¤
¤ dw ¤
cu ¤ `ŗ
~ ¤ g x-val¤ `
~ ¤ g y-val¤ `
~ ¤ `F
~ ¤ ^ź ¤ evJ ¤ cc ¤ f l-46961e518a-ce¤ f l-46961e518a-cf¤ f l-46961e518a-d0¤ ¤ d ¤ cu ¤ `
~ ¤ g free-id¤ cu ¤ ` ~ ¤ ! ¤ "!Į¤ #^^" ¤ $^# ¤ %evJf ¤ &f l-46961e518a-d5¤ 'f l-46961e518a-d6¤ (f l-46961e518a-d7¤ )f l-46961e518a-d8¤ *&'() ¤ +d%* ¤ ,c+u ¤ -`E,~ ¤ .ĀĮ¤ /^.¤ 0^/¤ 1^0 ¤ 2g t?¤ 3evJ2fž ¤ 4ccccc ¤ 5f l-46961e518a-df¤ 6f l-46961e518a-e0¤ 7f l-46961e518a-e1¤ 8f l-46961e518a-e2¤ 9f l-46961e518a-e3¤ :f l-46961e518a-e4¤ ;56789: ¤ <d34; ¤ =c<u ¤ >`ŗ=~ ¤ ?g t?-val¤ @`?=~ ¤ Ag tx¤ B`A=~ ¤ Cg ty¤ D`C=~ ¤ E`Ø=~ ¤ F`E=~ ¤ G` ’=~ ¤ HG ¤ I` =~ ¤ J`F=~ ¤ Kg m-46961e518a-ed¤ LKb ¤ ML ¤ Nf l-46961e518a-f2¤ ON ¤ PdŽMO ¤ Qf l-46961e518a-ef¤ RQ ¤ SdwMR ¤ TcPuS ¤ U`
T~ ¤ VcuS ¤ W`V~ ¤ X W ¤ YXĮ¤ Z^Y ¤ [eļ ¤ \Lc ¤ ]f l-46961e518a-f5¤ ^f l-46961e518a-f6¤ _]^ ¤ `d[\_ ¤ ac`uS ¤ b`Ea~ ¤ cźĮ¤ dcĮ¤ e^d¤ feACļž ¤ gLcccc ¤ hf l-46961e518a-fb¤ if l-46961e518a-fc¤ jf l-46961e518a-fd¤ kf l-46961e518a-fe¤ lf l-46961e518a-ff¤ mhijkl ¤ ndfgm ¤ ocnuS ¤ p`ŗo~ ¤ qg tx-val¤ r`qo~ ¤ sg ty-val¤ t`so~ ¤ u`Øo~ ¤ v`Eo~ ¤ w` ’o~ ¤ xw ¤ y` o~ ¤ z`-o~ ¤ {g compare:type-check¤ |g type?¤ }g type-name¤ ~e|}v ¤ g m-46961e518a-107¤ b ¤ ccc ¤ f l-46961e518a-10c¤ f l-46961e518a-10d¤ f l-46961e518a-10e¤
f l-46961e518a-10f¤
¤ d~ ¤ ¤ f l-46961e518a-109¤ ¤ dw ¤ cu ¤ `Ø~ ¤ g not¤ `~ ¤ `~ ¤ g
string-append¤ `~ ¤ f not ¤ `~ ¤ f :¤ `~ ¤ ¤ g begin¤ e|}vJ ¤ cccc ¤ f l-46961e518a-115¤ f l-46961e518a-116¤ f l-46961e518a-117¤ f l-46961e518a-118¤ f l-46961e518a-119¤ ¤ ”d ¤ ¢c”u ¤ £`¢~ ¤ ¤`{¢~ ¤ „g compare:define-by=/<¤ ¦g =¤ §g <¤ ØeR¦§|} ¤ ©g m-46961e518a-120¤ Ŗ©b ¤ «Ŗccccc ¤ ¬f l-46961e518a-125¤ f l-46961e518a-126¤ ®f l-46961e518a-127¤ Æf l-46961e518a-128¤ °f l-46961e518a-129¤ ±f l-46961e518a-12a¤ ²¬®Æ°± ¤ ³dØ«² ¤ “Ŗ ¤ µf l-46961e518a-122¤ ¶µ ¤ ·dw“¶ ¤ øc³u· ¤ ¹`3ø~ ¤ ŗ`ŗø~ ¤ »`Gø~ ¤ ¼`vø~ ¤ ½`Jø~ ¤ ¾¼½ ¤ æ`Øø~ ¤ Ą¼ ¤ Įg eq?¤ Ā`Įø~ ¤ ĆĀ¼½ ¤ Ä`
ø~ ¤ Ž ¤ Ę` ’ø~ ¤ Ē` ø~ ¤ ČĘĒ ¤ É`ø~ ¤ Ź`ø~ ¤ Ė`ø~ ¤ Ģ`ø~ ¤ ĶĢ ¤ Īg boolean?¤ Ļf boolean¤ Šg char=?¤ Ńg char?¤ Ņg charstring¤ Žf integer¤ ßg rational?¤ ąf rational¤ įg real?¤ āf real¤ ćg complex?¤ äf complex¤ åg real-part¤ ęg imag-part¤ ēg number?¤ čf number¤ ég
vector-length¤ źg
vector-ref¤ ėg min¤ ģf $unrecognized type in default-compare¤ ķf compare value not in {-1,0,1}¤ īf compare error: not reflexive¤ ļf !compare error: not anti-symmetric¤ šyJv ¤ ńJyv ¤ ņyvJ ¤ óvyJ ¤ ōJvy ¤ õvJy ¤ ö
šš
ššńņ
ń
ó
ōóõõ
õõ
¤ ÷f compare error: not transitive¤ ųg map¤C 5h8Ō ’ ]4
JKN5 4Q > " G 4Ri4Si5 T> " G Uh c ]L 6 [ g x
g filenamef srfi/srfi-67/compare.scm
U
U
C h( - 1 3 4O > " G C „ g result
% g compare % g args % g filenamef srfi/srfi-67/compare.scm
T
U %
g nameg compare:checked CVR4Y1Z]_
h( v ] C n g dummy
# g c # g less # g equal # g greater # # C h( ¼ ] 4 5 $ @ 6 “ g x
" g tmp " g filenamef srfi/srfi-67/compare.scm
[
" g
macro-typeg syntax-rulesg patternsg cg lessg equalg greater C51R4YZ]_§¬ h ]C w g dummy
g c-cases g a-cases g c g consequence CŗĄ h ] C g dummy
g c-cases g a-cases g c g consequence g alternate C h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-67/compare.scm
f 9 g
macro-typeg syntax-rulesg patternsg c-casesg a-casesg cg consequence g c-casesg a-casesg cg consequenceg alternate C5R4Y4Z]ĀŃÓÖ h > ]C 6 g dummy
g arg C h( © ] 4 5 $ @ 6 ” g x
" g tmp " g filenamef srfi/srfi-67/compare.scm
o
" g
macro-typeg syntax-rulesg patternsg argg ... C54R4Y3Z]Āćåč h > ]C 6 g dummy
g arg C h( © ] 4 5 $ @ 6 ” g x
" g tmp " g filenamef srfi/srfi-67/compare.scm
r
" g
macro-typeg syntax-rulesg patternsg argg ... C53R4Y6Z]Āõ÷ś h > ]C 6 g dummy
g arg C h( © ] 4 5 $ @ 6 ” g x
" g tmp " g filenamef srfi/srfi-67/compare.scm
u
" g
macro-typeg syntax-rulesg patternsg argg ... C56R4Y2Z]Ā
h > ]C 6 g dummy
g arg C h( © ] 4 5 $ @ 6 ” g x
" g tmp " g filenamef srfi/srfi-67/compare.scm
x
" g
macro-typeg syntax-rulesg patternsg argg ... C52R4Y5Z]Ā h > ]C 6 g dummy
g arg C h( © ] 4 5 $ @ 6 ” g x
" g tmp " g filenamef srfi/srfi-67/compare.scm
{
" g
macro-typeg syntax-rulesg patternsg argg ... C55R4Y0Z]Ā+.0 h > ]C 6 g dummy
g arg C h( © ] 4 5 $ @ 6 ” g x
" g tmp " g filenamef srfi/srfi-67/compare.scm
~
" g
macro-typeg syntax-rulesg patternsg argg ... C50R4Y1Z]2DFHLQTVUWZ_ hP T ]
C L g dummy
M g rel? M g if-rel? M M C h( Æ ] 4 5 $ @ 6 § g x
" g tmp " g filenamef srfi/srfi-67/compare.scm
" g
macro-typeg syntax-rulesg patternsg rel?g if-rel? C51R/ h8 { ]
4 5
$ C ’$ " $ C6 s g x
5 g y 5 g key 5 g filenamef srfi/srfi-67/compare.scm
5 C h8 { ]
4L 5
$ C ’$ " $ C6 s g x
5 g y 5 g key 5 g filenamef srfi/srfi-67/compare.scm
5 C/X\ hØ ) 3 C) 3 O C) 63 4 5
$ C ’$ " $ C6] 4 5$ 34 5
$ C ’$ " $ C6 6 g compare
g x
& Y g y & Y g key / Y g compare
[ ” g x [ ” g y [ ” g key o g filenamef srfi/srfi-67/compare.scm
”
& Y [ ” g nameg =? CR/ h8 { ]
4 5 ’$ C
$ " $ C6 s g x
5 g y 5 g key 5 g filenamef srfi/srfi-67/compare.scm
5 C h8 { ]
4L 5 ’$ C
$ " $ C6 s g x
5 g y 5 g key 5 g filenamef srfi/srfi-67/compare.scm
5 C/X\ hØ ) 3 C) 3 O C) 63 4 5 ’$ C
$ " $ C6] 4 5$ 34 5 ’$ C
$ " $ C6 6 g compare
g x
& Y g y & Y g key / Y g compare
[ ” g x [ ” g y [ ” g key o g filenamef srfi/srfi-67/compare.scm
”
& Y [ ” g nameg ? C R/ h8 { ]
4 5 ’$ "
$ C $ C6 s g x
5 g y 5 g key 5 g filenamef srfi/srfi-67/compare.scm
5 C h8 { ]
4L 5 ’$ "
$ C $ C6 s g x
5 g y 5 g key 5 g filenamef srfi/srfi-67/compare.scm
5 C/X\ hØ ) 3 C) 3 O C) 63 4 5 ’$ "
$ C $ C6] 4 5$ 34 5 ’$ "
$ C $ C6 6 g compare
g x
& Y g y & Y g key / Y g compare
[ ” g x [ ” g y [ ” g key o g filenamef srfi/srfi-67/compare.scm
”
& Y [ ” g nameg <=? CR/ h8 { ]
4 5
$ " $ C ’$ C6 s g x
5 g y 5 g key 5 g filenamef srfi/srfi-67/compare.scm
5 C h8 { ]
4L 5
$ " $ C ’$ C6 s g x
5 g y 5 g key 5 g filenamef srfi/srfi-67/compare.scm
5 C/X\ hØ ) 3 C) 3 O C) 63 4 5
$ " $ C ’$ C6] 4 5$ 34 5
$ " $ C ’$ C6 6 g compare
g x
& Y g y & Y g key / Y g compare
[ ” g x [ ” g y [ ” g key o g filenamef srfi/srfi-67/compare.scm
”
& Y [ ” g nameg >=? C R/ h8 { ]
4 5 ’$ " $ C
$ C6 s g x
5 g y 5 g key 5 g filenamef srfi/srfi-67/compare.scm
5 C h8 { ]
4L 5 ’$ " $ C
$ C6 s g x
5 g y 5 g key 5 g filenamef srfi/srfi-67/compare.scm
5 C/X\ hØ ) 3 C) 3 O C) 63 4 5 ’$ " $ C
$ C6] 4 5$ 34 5 ’$ " $ C
$ C6 6 ł g compare
g x
& Y g y & Y g key / Y g compare
[ ” g x [ ” g y [ ” g key o g filenamef srfi/srfi-67/compare.scm
& Y [ ” g nameg not=? C=R4Y`Z]atuv{}
hh q ]
Ci g dummy
h g
rel1/rel2? h g if-rel1? h g if-rel2? h h C h( Ā ] 4 5 $ @ 6 ŗ g x
" g tmp " g filenamef srfi/srfi-67/compare.scm
" g
macro-typeg syntax-rulesg patternsg
rel1/rel2?g if-rel1?g if-rel2? C5`R/V hp ]4 5 ’$ 345 ’$ C
$ " $ C6
$ " $ 66 g x
m g y m g z m g key m g key I g filenamef srfi/srfi-67/compare.scm
Æ
m CV hp ]4L 5 ’$ 34L 5 ’$ C
$ " $ C6
$ " $ L 66 g x
m g y m g z m g key m g key I g filenamef srfi/srfi-67/compare.scm
Æ
m C/V h N ) 3 C) 3 O C) n3 4 5 ’$ 345 ’$ C
$ " $ C6
$ " $ 66]4 5 ’$ 34 5 ’$ C
$ " $ C6
$ " $ 66 F g compare
g x
& g y & g z & g key / g key C m g compare
ž g x ž g y ž g z ž g key ž g key ° Ś g filenamef srfi/srfi-67/compare.scm
Æ
& ž g nameg />? CR/V hp ]4 5 $ 345
$ " $ C ’$ C6 ’$ "
$ 66 g x
m g y m g z m g key m g key H g filenamef srfi/srfi-67/compare.scm
“
m CV hp ]4L 5 $ 34L 5
$ " $ C ’$ C6 ’$ "
$ L 66 g x
m g y m g z m g key m g key H g filenamef srfi/srfi-67/compare.scm
“
m C/V h O ) 3 C) 3 O C) n3 4 5 $ 345
$ " $ C ’$ C6 ’$ "
$ 66]4 5 $ 34 5
$ " $ C ’$ C6 ’$ "
$ 66 G g compare
g x
& g y & g z & g key / g key B l g compare
ž g x ž g y ž g z ž g key ž g key Æ Ł g filenamef srfi/srfi-67/compare.scm
“
& ž g nameg >/>=? CR/V hp ]4 5
$ " $ 345 $ C ’$ "
$ C6 ’$ 66 g x
m g y m g z m g key m g key + U g filenamef srfi/srfi-67/compare.scm
µ
m CV hp ]4L 5
$ " $ 34L 5 $ C ’$ "
$ C6 ’$ L 66 g x
m g y m g z m g key m g key + U g filenamef srfi/srfi-67/compare.scm
µ
m C/V h O ) 3 C) 3 O C) n3 4 5
$ " $ 345 $ C ’$ "
$ C6 ’$ 66]4 5
$ " $ 34 5 $ C ’$ "
$ C6 ’$ 66 G g compare
g x
& g y & g z & g key / g key O y g compare
ž g x ž g y ž g z ž g key ž g key ¼ ę g filenamef srfi/srfi-67/compare.scm
µ
& ž g nameg >=/>? CR/V hp ]4 5
$ " $ 345
$ " $ C ’$ C6 ’$ 66 g x
m g y m g z m g key m g key + U g filenamef srfi/srfi-67/compare.scm
¶
m CV hp ]4L 5
$ " $ 34L 5
$ " $ C ’$ C6 ’$ L 66 g x
m g y m g z m g key m g key + U g filenamef srfi/srfi-67/compare.scm
¶
m C/V h P ) 3 C) 3 O C) n3 4 5
$ " $ 345
$ " $ C ’$ C6 ’$ 66]4 5
$ " $ 34 5
$ " $ C ’$ C6 ’$ 66 H g compare
g x
& g y & g z & g key / g key O y g compare
ž g x ž g y ž g z ž g key ž g key ¼ ę g filenamef srfi/srfi-67/compare.scm
¶
& ž g nameg >=/>=? CR4YZ]2¢Ø«°²“¹»½ÄÅČ”ŌÖ hX Z ]
C R g dummy
U g
chain-rel? U g if-rel? U U C h( µ ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-67/compare.scm
»
" g
macro-typeg syntax-rulesg patternsg
chain-rel?g if-rel? C5RV hp ) 3 C) 3 6) 63 4 5
$ C ’$ " $ C6) n3 4 5
$ 34 5
$ C ’$ " $ C6 ’$ " $ 66- 1 3 4 5
$ `" P( C4 5
$ "’’Ö ’$ " $
@6 "’’¤ ’$ " $ @6 g compare
g compare
g x1 g compare
& Y g x1 & Y g x2 & Y g key / Y g compare
b Ķ g x1 b Ķ g x2 b Ķ g x3 b Ķ g key k Ķ g key ~ Ø g compare
Ö n g x1 Ö n g x2 Ö n g x3+ Ö n g key ß n g head ķ = g tail ķ = g key ’ = g filenamef srfi/srfi-67/compare.scm
Ó
& Y b Ķ Ö n
g nameg chain=? C!RV hp ) 3 C) 3 6) 63 4 5 ’$ C
$ " $ C6) n3 4 5 ’$ 34 5 ’$ C
$ " $ C6
$ " $ 66- 1 3 4 5 ’$ `" P( C4 5 ’$ "’’Õ
$ " $
@6 "’’¤
$ " $ @6 g compare
g compare
g x1 g compare
& Y g x1 & Y g x2 & Y g key / Y g compare
b Ķ g x1 b Ķ g x2 b Ķ g x3 b Ķ g key k Ķ g key © g compare
Ö n g x1 Ö n g x2 Ö n g x3+ Ö n g key ß n g head ī > g tail ī > g key > g filenamef srfi/srfi-67/compare.scm
Ō
& Y b Ķ Ö n
g nameg chain? C#RV hp
) 3 C) 3 6) 63 4 5 ’$ "
$ C $ C6) n3 4 5 ’$ "
$ 34 5 ’$ "
$ C $ C6 $ 66- 1 3 4 5 ’$ "
$ `" P( C4 5 ’$ "
$ "’’Č $
@6 "’’¤ $ @6 g compare
g compare
g x1 g compare
& Y g x1 & Y g x2 & Y g key / Y g compare
b Ķ g x1 b Ķ g x2 b Ķ g x3 b Ķ g key k Ķ g key ¶ g compare
Ö n g x1 Ö n g x2 Ö n g x3+ Ö n g key ß n g head ū K g tail ū K g key
K g filenamef srfi/srfi-67/compare.scm
Ö
& Y b Ķ Ö n
g nameg chain<=? C RV hp
) 3 C) 3 6) 63 4 5
$ " $ C ’$ C6) n3 4 5
$ " $ 34 5
$ " $ C ’$ C6 ’$ 66- 1 3 4 5
$ " $ `" P( C4 5
$ " $ "’’É ’$
@6 "’’¤ ’$ @6 g compare
g compare
g x1 g compare
& Y g x1 & Y g x2 & Y g key / Y g compare
b Ķ g x1 b Ķ g x2 b Ķ g x3 b Ķ g key k Ķ g key µ g compare
Ö n g x1 Ö n g x2 Ö n g x3+ Ö n g key ß n g head ś J g tail ś J g key J g filenamef srfi/srfi-67/compare.scm
×
& Y b Ķ Ö n
g nameg chain>=? C"RVV×ŲŁ h ę ]; $ $ $
L 6CC45 4 5 " æ( )4L 455$ 45 "’’C$ "’’²4L5 ’$ "’’
$ $
L@C $ "’’G6
"’’0 Ž g x
g n g
unchecked? g i-pivot . g x-pivot 9 g i ? ž g x ? ž g x< ? ž g x> ? ž g key ž
g filenamef srfi/srfi-67/compare.scm
ģ ķ
ķ ī
ī ! ī ! ļ - # ļ ( ń . ń
1 ņ 9 ń
? ó E ō F õ K õ ' T õ X õ [ ö ' l ö s ÷ w ÷ z ų } ų ( ų ł ł ' ł ł „ ś % Ø ś - « ś ; ® ś 5 ¼ ś Ä ł Ź ū Ņ ü D Ō ü " Ž ł į ž % ä ž - é ž > ģ ž 8 ų ž ü ł ž ó ó + ó 4 ó 2 g nameg unequal? CŁ h(
) 3 C) 3 6) 63 4 5 ’$ " $ C
$ C6) 3 4 5 ’$ " $ d4 5 ’$ " $ 34 5 ’$ " $ C
$ C6
$ C6
$ 66- 1 3 O Q 456 } g compare
g compare
g x1 g compare
& Y g x1 & Y g x2 & Y g key / Y g compare
b ž g x1 b ž g x2 b ž g x3 b ž g key k ž g key ē g key × g compare
% g x1+ % g unequal? % g filenamef srfi/srfi-67/compare.scm
Ž ā & Ž ' ä / ä b Ž c ę k ę ē ē „ č % č ß ē å č ē ē ļ ę ų ź ü č ž ę Ž ģ ģ ! % ģ & Y b ž %
CBRV h ß )
3 6) 83 4 5 ’$ "
$ C $ C6) 3 4 5 ’$ "
$ 54 5 ’$ "
$ C $ C6 $ 54 5 ’$ "
$ C $ C66) d3 4 5 ’$ "
$ 4 5 ’$ "
$ 54 5 ’$ "
$ C $ C6 $ 54 5 ’$ "
$ C $ C66 $ 4 5 ’$ "
$ 54 5 ’$ "
$ C $ C6 $ 54 5 ’$ "
$ C $ C666- 1 3 " U( C4 5 ’$ "
$ " $ " 45 "’’«4 5 ’$ "
$ " $ " 45 "’’b× g compare
g x1 g compare
Q g x1 Q g x2 Q g key % Q g compare
Z ó g x1 Z ó g x2 Z ó g x3 Z ó g key c ó g key ° g key Į ķ g compare
ü ] g x1 ü ] g x2 ü ] g x3 ü ] g x4 ü ] g key ] g key & ¶ g key G s g key ° g key Ē W g key č g key % Q g compare
f g x1 f g x2 f g x3+ f g xmin j æ g xs j æ g key } “ g key Č ž !g filenamef srfi/srfi-67/compare.scm
% Z [
c
| ø
¹ Į ó
ü ż & ? G { | ¶ ¾ æ Ē ą č % W [ ] f j p t { % } } ¦ 4 « · æ æ Ą Č 4 Q Z ó ü ] f
g nameg min-compare C " -G " &45$ 45$ " "’’Ź" "’’Ā45 " 644 55 "
( e $ "’’Č $ $
6
6 "’’4
5 ’$ &
"’’Z
$ &
"’’, $ &
"’žž6
"’žŽ "’ž±
g compare
) g k ) g x0 ) g key
) g compare
2 » g k 2 » g x0 2 » g x1 2 » g key 7 » g key J v g key ³ g compare
Ä K g k Ä K g x0 Ä K g x1 Ä K g x2 Ä K g key É K g key Ü l g key ż ) g key : f g key } ” g key ļ g key ½ é g key , g key = g key i g key ³ C g key Ō g key = g compare
T ó g k T ó g x0 T ó g x1+ T ó g n ó g k ¤ Ś g n ¤ Ś g rev ¤ Ś g x ¤ Ś g pivot ² Ś g x
ø Ą g x< ø Ą g n< ø Ą g x=
ø Ą g n= ø Ą g x> ø Ą g n> ø Ą g key - Ą /g filenamef srfi/srfi-67/compare.scm
:
<
< ! = % > ) > 2 : 7 @
7 @ B A J A ~ @ B B · C » C Ä : É E
É E Ō F Ü F õ G ż G 1 F 2 H : H l F t E u I } I J J µ L ! ½ L ļ J ÷ I ų M M 4 I 5 N = N a P ! i P N I Ŗ E « Q ³ Q Ģ R Ō R Q S S C Q G T K T T : Y W ] W d W p V q V { V | V " V X X X ¤ Y „ ] Ŗ ] $ ² ] ² ] ø ^
¾ _ Ć a Ē ` Ī b Ü b ć c ä c č ` ī d õ e * ś e 3 ū e ' ż e f ' f h h h . # h $ i ) i ! - i - i ; j > j - A j ' D j 9 ^ j f i i k p k 3 s k - v k ? k i l ¢ l 9 „ l 3 Ø l E ŗ l ¾ i Ą ^
Ć ^ # Å ^ 3 Ē ^ C Ś ^
Ś Y ß Y ē \ ó Y } ) 2 » Ä K T ó
C8R h( ]4L 5$ ’C4L 5$ C
C g x
# g y # g filenamef srfi/srfi-67/compare.scm
s
s s s / s + # C h8 Ī ) 3 O C]4 5$ ’C4 5$ C
C Ę g lt
g lt
4 g x 4 g y 4 g filenamef srfi/srfi-67/compare.scm
r t t $ t / 0 t + 4 g nameg compare-by< C&R h( ]4L 5$ C4L 5$ ’C
C g x
# g y # g filenamef srfi/srfi-67/compare.scm
x
x x x . x * # C h8 Ī ) 3 O C]4 5$ C4 5$ ’C
C Ę g gt
g gt
4 g x 4 g y 4 g filenamef srfi/srfi-67/compare.scm
w y y # y . / y * 4 g nameg compare-by> C*R h( ]4L 5$ 4L 5$
C ’C C g x
# g y # g filenamef srfi/srfi-67/compare.scm
}
} } } , } ( # C h8 Ļ ) 3 O C]4 5$ 4 5$
C ’C C Ē g le
g le
4 g x 4 g y 4 g filenamef srfi/srfi-67/compare.scm
| ~ ~ ! ~ , - ~ ( 4 g nameg compare-by<= C'R h( ]4L 5$ 4L 5$
C C ’C g x
# g y # g filenamef srfi/srfi-67/compare.scm
, ( # C h8 Ļ ) 3 O C]4 5$ 4 5$
C C ’C Ē g ge
g ge
4 g x 4 g y 4 g filenamef srfi/srfi-67/compare.scm
! , - ( 4 g nameg compare-by>= C+R h( ]4L 5$
C4L 5$ ’C C g x
# g y # g filenamef srfi/srfi-67/compare.scm
" 1 - # C h8 š )
3 O C]4 5$
C45$ ’C C č g eq
g lt g eq
6 g lt 6 g x 6 g y 6 g filenamef srfi/srfi-67/compare.scm
" " % 1 1 - 6 g nameg
compare-by=/< C(R h( ]4L 5$
C4L 5$ C ’C g x
# g y # g filenamef srfi/srfi-67/compare.scm
" 1 - # C h8 š )
3 O C]4 5$
C45$ C ’C č g eq
g gt g eq
6 g gt 6 g x 6 g y 6 g filenamef srfi/srfi-67/compare.scm
" " % 1 1 - 6 g nameg
compare-by=/> C)R4YEZ]Żé h - ]C % g dummy
Cź h = ]C 5 g dummy
g c1 Cģłśūż h ] ]C U g dummy
g c1 g c2 g cs C
hP ā ]4 5 $ @4 5 $ @4 5 $ @ 6Ś g x
P g tmp P g tmp " P g tmp 9 P g filenamef srfi/srfi-67/compare.scm
P g
macro-typeg syntax-rulesg patternsg c1 g c1g c2g csg ... C5ER4YFZ]ģ h( _ ] C W g dummy
& g x & g y & g clause & & C h K ]C C g dummy
g x g y C$- h Z ]CR g dummy
g x g y g c C1>@BDEFHIJ
h` ~ ] C v g dummy
] g x ] g y ] g t? ] g c ] g clause ] ] C hh X ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @
6 P g x
g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef srfi/srfi-67/compare.scm
g g
macro-typeg syntax-rulesg patternsg xg yg clauseg ... g xg y g xg yg elseg cg ... g xg yg t?g cg ... g clauseg ... C5FR4Y-Z]ŻU h - ]C % g dummy
CZb h = ]C5 g dummy
g cs Ceprtuvxyz h@ q ] C i g dummy
< g tx < g ty < g cs < g clause < < C
hP ]4 5 $ @4 5 $ @4 5 $ @ 6 g x
P g tmp P g tmp " P g tmp 9 P g filenamef srfi/srfi-67/compare.scm
¬ P g
macro-typeg syntax-rulesg patternsg elseg csg ... g txg ty g csg ... g clauseg ... C5-R4Y{Z]a h( f ] C ^ g dummy
& g type? & g type-name & g x & & C_£¤ h u ] C m g dummy
g type? g type-name g x g y C h@ ģ ]4 5 $ @4 5 $ @ 6 ä g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-67/compare.scm
» 9 g
macro-typeg syntax-rulesg patternsg type?g type-nameg x g type?g type-nameg xg y C5{R4Y„Z]¹ŗ»¾æĄĆÄÅČÉŹĖĶ h ]
C g dummy
} g compare } g = } g < } g type? } g type-name } } C h( Ē ] 4 5 $ @ 6 æ g x
" g tmp " g filenamef srfi/srfi-67/compare.scm
Ć
" g
macro-typeg syntax-rulesg patternsg compareg =g " G 45$ " 445> " G $
$
C C$ ’C
C Ę g x
u g y u g filenamef srfi/srfi-67/compare.scm
Ļ
Š Š Š G Š I Š ` Ń f Ń p Ń
u g nameg boolean-compare C RŠi ŃŅÓ hh ¬ ]4 5$ G &
C45$ !4L 5$
C4 5$ ’C C45645 6 ¤ g x
e g y e g filenamef srfi/srfi-67/compare.scm
Ó
J ć
L Ó 7 N ć
P Ó
[ ć
] Ó 7 _ ć
a Ó
e C O $RŌiÕi ŃÓ hh ¬ ]4 5$ G &
C45$ !4L 5$
C4L 5$ ’C C45645 6 ¤ g x
e g y e g filenamef srfi/srfi-67/compare.scm
Õ
J ć
L Õ @ N ć
P Õ
[ ć
] Õ @ _ ć
a Õ
e C O %RÖi×i ŲŁ hh ¬ ]4 5$ G &
C45$ !4L 5$
C4L 5$ ’C C45645 6 ¤ g x
e g y e g filenamef srfi/srfi-67/compare.scm
×
J ć
L × ? N ć
P ×
[ ć
] × ? _ ć
a ×
e C O LRŚiŪi ŲŁ hh ¬ ]4 5$ G &
C45$ !4L 5$
C4L 5$ ’C C45645 6 ¤ g x
e g y e g filenamef srfi/srfi-67/compare.scm
Ł
J ć
L Ł H N ć
P Ł
[ ć
] Ł H _ ć
a Ł
e C O MRÜLŻ hh Ķ ] $ " 445 > " G $ " 445> " G 4 5456 Å g x
d g y d g filenamef srfi/srfi-67/compare.scm
Ū
Ü Ü Ü ? Ü A Ü U Ż \ Ż % d Ż
d g nameg symbol-compare CGRŪŽ h` ¬ ]4 5$ ? &
C45$ $
C $ ’C C45645 6 ¤ g x
] g y ] g filenamef srfi/srfi-67/compare.scm
ß
B ć
D ß 3 F ć
H ß
S ć
U ß 3 W ć
Y ß
] C7Rßą h` ¬ ]4 5$ ? &
C45$ $
C $ ’C C45645 6 ¤ g x
] g y ] g filenamef srfi/srfi-67/compare.scm
į
B ć
D į 5 F ć
H į
S ć
U į 5 W ć
Y į
] CCRįā h` ]4 5$ ? &
C45$ $
C $ ’C C45645 6 g x
] g y ] g filenamef srfi/srfi-67/compare.scm
ć
D ć - F ć
U ć - W ć
] CDRćäDåęį hŠ Y ]
4 5$ " 445 > " G 45$ " 445> " G " K44 5455 ’$ ’C
$ 4 54 56 $ C
64 5$ 4 5$ 6"’’"’’ Q g x
Ļ g y Ļ g key q © g filenamef srfi/srfi-67/compare.scm
å
ę ę ę G ę I ę _ é b é $ i é 2 q é q é ź $ ź 2 ź ” é © ē Ŗ ē “ ē µ ē æ ē Ē č Ļ g nameg complex-compare C,Rēč, hh » ]4 5$ " 445 > " G 45$ " 445> " G 6 ³ g x
b g y b g filenamef srfi/srfi-67/compare.scm
ģ
ķ ķ ķ G ķ I ķ b ī b g nameg number-compare C>R h ]L 6 ~ g x
g y g filenamef srfi/srfi-67/compare.scm
ō õ
õ õ C h ~ ] O C v g compare
g filenamef srfi/srfi-67/compare.scm
ó
g nameg pair-compare-car C@R h ]L 6 ~ g x
g y g filenamef srfi/srfi-67/compare.scm
ų ł
ł ł C h ~ ] O C v g compare
g filenamef srfi/srfi-67/compare.scm
÷
g nameg pair-compare-cdr CAR?/ hŲ Z ) >3 4 5 ’$ ’C
$
6 $ C6) {3 ( (
C ’C( C$ G$ =4 5 ’$ ’C
$ 6 $ C6 ’C$ C 6] 6 R g pair-compare-car
D g pair-compare-cdr D g x D g y D g key D g compare
M Å g x M Å g y M Å g key ± g x
Ē Ń g y Ē Ń g filenamef srfi/srfi-67/compare.scm
ü
' / / ' 2 / 4 < M ü S i m p t u z 3 } ; 3 ; ” © · » Å Ē ü Ń
D M Å Ē Ń g nameg pair-compare C?R9/ĘÉĶ hŠ ) 3 4545 $ $
C ’C$ C4 45455 ’$ ’C
$ 45456 $ C6) 3 6) 3 6] 6 g compare
g x g y g empty? g head g tail g tx-val g ty-val g key G g x
g y g empty? g head g tail g compare
© ¹ g x © ¹ g y © ¹ g x
» Ė g y » Ė g filenamef srfi/srfi-67/compare.scm
5 8 " ? + G G b " i + w © ¹ » Ė © ¹ » Ė g nameg list-compare C9R9:/ĘÉĶ hč ± ) 3
" P4545 $ $
" 9 ’" 3 $ " (4545 "’’¶ "’’¤ ’$ ’C
$ 6 $ C6) 3 6) 3 6] 6 © g compare
g x g y g empty? g head g tail g x
] g y
] g tx-val ] g ty-val ] g key i g x
Ø ø g y Ø ø g empty? Ø ø g head Ø ø g tail Ø ø g compare
Į Ń g x Į Ń g y Į Ń g x
Ó ć g y Ó ć g filenamef srfi/srfi-67/compare.scm
# % % $ B & I & ( W & ] # i " ' " Ø ø + Į Ń - Ó ć / Ø ø Į Ń Ó ć g nameg list-compare-as-vector C:R7H/éź hč ± ) 3
4545 45 ’$ ’C
$ \" Q$
C4 45455 ’$ ’C
$ "’’æ $ C6
"’’Ø $ C6) 3 6) 3 6] 6 © g compare
¦ g x ¦ g y ¦ g size ¦ g ref ¦ g n ¦ g m ¦ g key $ ¦ g i > g key ` g x
Æ ½ g y Æ ½ g size Æ ½ g ref Æ ½ g compare
Ę Ō g x Ę Ō g y Ę Ō g x
Ö ä g y Ö ä g filenamef srfi/srfi-67/compare.scm
3
5 5 5 7
$ 6 > 8
C 9 G 9 J ; M ; ) V ; 3 ` ; ` ; y < . < ; 8
6 ¤ ; ¦ 6 Æ 3 ½ @ Ę 3 Ō B Ö 3 ä D ¦ Æ ½ Ę Ō Ö ä CHRė7I/éź hČ ) 3
4545 45 " W$ 64 45455 ’$ ’C
$ "’’¹ $ C6
"’’¢) 3 6) 3 6] 6 g compare
g x g y g size g ref g nx g ny g n $ g i * g key R g x
g y g size g ref g compare
Ø ¶ g x Ø ¶ g y Ø ¶ g x
ø Ę g y ø Ę g filenamef srfi/srfi-67/compare.scm
H
J J J K $ K * L / M 3 M
; N < O ! ? O * H O 4 R O ! R O k P / q P ! y O L H T Ø H ¶ V ø H Ę X Ø ¶ ø Ę CIR/Ī Ń$ŲLGē>Hģ h ¹ ] ( (
C ’C( C $ E$ ;4 5 ’$ ’C
$
6 $ C6 ’C$ C 4 545 $ $ 6 ’C$ C4 5$ 45$ 6 ’C45$ C4 5$ 45$ 6 ’C45$ C $ $
6 ’C$ C4 5$ 4 5$ 6 ’C4 5$ C $ $
6 ’C$ C 6 ± g x
g y g key 4 d g t?-val r g tx g ty g filenamef srfi/srfi-67/compare.scm
]
^ * a
/ a 2 a & 4 a
4 ^ O b R b & T b
\ ^ c
£ ^ Ć d
Ē ^ ń e
õ ^ f
^ A g
E ^ i h
o ^ y i i g nameg default-compare C/RķīļöŃ÷ųvJy h( e ] $ LC $ L C $ MCC] g i
( g filenamef srfi/srfi-67/compare.scm
© © , ( C× h æ ]J4L 5 ’& "
& " $ " 4L 5 4L5 ’& "
& " $ " 4L 5 4L 5 ’& "
& " $ " 4L 5 4L 5 ’& "
& " $ " 4L 5
$ " 4L > " G
$ " 4L> " G
$ " 4L > " G M $ źM 4L 5 ’& "
& " $ " 4L 5 M 4L 5 ’& "
& " $ " 4L 5 M 4L5 ’& "
& " $ " 4L 5 M 4L5 ’& "
& " $ " 4L 5
$ " 4L M> " G
$ " 4LM> " G
£
$ ,4L4 L O
5> " G "
" N 4
5
$ " NC · g x
g y g c-xy I g c-xy R g c-xy × g c-xy ą g c-xx g c-yy g c-xy g c-yx g y å g c-xy ¤ ā g x ē 3 g c-xy ņ 0 g y 5 g c-xy @ ~ g x Ļ g c-xy Ģ g c-xz Ļ } g c-zx Ļ } g c-yz Ļ } g c-zy Ļ } g ijk
9 q g filenamef srfi/srfi-67/compare.scm
u u v
v ! v
" v * v + . v 5 x
9 x D x 6 F x
J u R u \ v
] v h v
i v q v + u v | x
x x 6 x
u u £ v
¤ v Æ v
° v ø v + ¼ v Ć x
Ē x Ņ x 6 Ō x
Ų u ą u ź v
ė v ö v
÷ v ’ v + v
x
x x 6 x
) . 3 7 @ K P U Y b o p u z ~ u ¤ u ® v
Æ v ŗ v
» v Ć v + Ē v Ī x
Ņ x Ż x 6 ß x
ē ź u ņ u ü v
ż v v
v v + v x
x + x 6 - x
5 8 u @ u J v
K v V v
W v _ v + c v j x
n x y x 6 { x
u u v
v ¤ v
„ v v + ± v ø x
¼ x Ē x 6 É x
Ļ Ü Ż ā ē ” ė ” ö ” ¢ ¢ ¢ £ £ £ ' ~ . ¤ / / ¤ ' 4 ¤ : 5 ¤ ' 9 ¤ 9 ¤ > „ B „ C ¦ I § L © b ¦ «
{ { ¬ ¬ C h ]HH O C g c
g z? g z g filenamef srfi/srfi-67/compare.scm
r
g nameg
debug-compare C.RC ÷ g m
0 g char=?
”¦ ¢ģ g char-ci=?
¢ł ¤A g char-ci U & C U
g filenamef srfi/srfi-67/compare.scm ° T
³
ģ
!T
$¬
+y Æ
0" °
4Ź ±
9s ²
>! ³
BŹ “
Gr µ
L ¶
Q® Ó
UF Ō
XŽ Õ
\x Ö
` ×
gš Ü
oņ
wņ
8
q
a v
B {
"
#
#
”” Ļ
”¦ Ó
¢ł Õ
¤N ×
„ Ł
Ø@ Ū
©o ß
Ŗ į
«Æ ć
® å
ÆV ģ
°” ó
±é ÷
µ5 ū
ø½
¼|
Ą< 1
ĆĘ F
Ē4 ]
Ō/ r
9 Ō1
C6 PK ! ŌĻ»Ē Ē
srfi-14.gonu [µü¤ GOOF----LE-8-2.0Æ ] Z 4 h ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-14¤ ¤ g filenameS¤
f srfi/srfi-14.scm¤ g set-current-module¤ ¤
¤ g call-with-deferred-observers¤ ¤ ¤ g module-re-export!¤ ¤ ¤ g current-module¤ ¤ ¤ g char-set?¤ g char-set=¤ g
char-set<=¤ g
char-set-hash¤ g char-set-cursor¤ g char-set-ref¤ g char-set-cursor-next¤ g end-of-char-set?¤ g
char-set-fold¤ g char-set-unfold¤ !g char-set-unfold!¤ "g char-set-for-each¤ #g char-set-map¤ $g
char-set-copy¤ %g char-set¤ &g list->char-set¤ 'g list->char-set!¤ (g string->char-set¤ )g string->char-set!¤ *g char-set-filter¤ +g char-set-filter!¤ ,g ucs-range->char-set¤ -g ucs-range->char-set!¤ .g
->char-set¤ /g
char-set-size¤ 0g char-set-count¤ 1g char-set->list¤ 2g char-set->string¤ 3g char-set-contains?¤ 4g char-set-every¤ 5g char-set-any¤ 6g char-set-adjoin¤ 7g char-set-adjoin!¤ 8g char-set-delete¤ 9g char-set-delete!¤ :g char-set-complement¤ ;g char-set-union¤ g char-set-xor¤ ?g char-set-diff+intersection¤ @g char-set-complement!¤ Ag char-set-union!¤ Bg char-set-intersection!¤ Cg char-set-difference!¤ Dg
char-set-xor!¤ Eg char-set-diff+intersection!¤ Fg char-set:lower-case¤ Gg char-set:upper-case¤ Hg char-set:title-case¤ Ig char-set:letter¤ Jg char-set:digit¤ Kg char-set:letter+digit¤ Lg char-set:graphic¤ Mg char-set:printing¤ Ng char-set:whitespace¤ Og char-set:iso-control¤ Pg char-set:punctuation¤ Qg char-set:symbol¤ Rg char-set:hex-digit¤ Sg char-set:blank¤ Tg char-set:ascii¤ Ug char-set:empty¤ Vg
char-set:full¤ W !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUV @¤ Xg cond-expand-provide¤ Y ¤C 5 h° u ]4
5 4
> " G 4W h B ] 45 6 : g filenamef srfi/srfi-14.scm
C> " G Xi4i5 Y6 m g m
$ g filenamef srfi/srfi-14.scm
%
¤ ` ¬ ` & ® `
®
C6 PK ! 3·I„k k srfi-8.gonu [µü¤ GOOF----LE-8-2.0S ] 4 hf ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-8¤ ¤ g filenameS¤
f srfi/srfi-8.scm¤ g importsS¤ g ice-9¤
g receive¤
¤ ¤ ¤ g
re-exportsS¤
¤ g set-current-module¤ ¤ ¤ g cond-expand-provide¤ g current-module¤ ¤C 5 h@ i ]4
5 4 > " G i4i5 6 a g m
, g filenamef srfi/srfi-8.scm
1 9 & ;
;
C6 PK ! Ā'v¾s ¾s srfi-9.gonu [µü¤ GOOF----LE-8-2.0¦s ]Ė 4 hG3 ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-9¤ ¤ g filenameS¤
f srfi/srfi-9.scm¤ g importsS¤ g srfi-1¤
¤
¤ g system¤ g base¤ g ck¤ ¤ ¤ ¤ g exportsS¤ g define-record-type¤ ¤ g set-current-module¤ ¤ ¤ g cond-expand-provide¤ g current-module¤ ¤ g make-syntax-transformer¤ ¤ ¤ !g define-inlinable¤ "g macro¤ #g $sc-dispatch¤ $# ¤ %# ¤ &g any¤ 'g each-any¤ (&'¤ )('¤ *&)¤ +g
syntax-object¤ ,g define-tagged-inlinable¤ -g top¤ .- ¤ /g ribcage¤ 0g dummy¤ 1g name¤ 2g formals¤ 3g body¤ 40123 ¤ 5g m-1e8ba8b5a-25b¤ 65- ¤ 76... ¤ 8f l-1e8ba8b5a-260¤ 9f l-1e8ba8b5a-261¤ :f l-1e8ba8b5a-262¤ ;f l-1e8ba8b5a-263¤ <89:; ¤ =/47< ¤ >/ ¤ ?g x¤ @? ¤ A6 ¤ Bf l-1e8ba8b5a-25d¤ CB ¤ D/@AC ¤ E.=>D ¤ Fg hygiene¤ GF ¤ H+,EG ¤ Ig syntax-violation¤ JI ¤ KI ¤ Lf -source expression failed to match any pattern¤ Mg
%%on-error¤ N&& ¤ Og %%type¤ Pg getter-type¤ Qg free-id¤ Rg quote¤ Sg m-1e8ba8b5a-274¤ TS- ¤ UT ¤ Vf l-1e8ba8b5a-276¤ WV ¤ X/@UW ¤ Y.>X ¤ Z+RYG ¤ [QZ ¤ \[& ¤ ]&&\\ ¤ ^g s¤ _g getter¤ `g err¤ a0^_` ¤ bT... ¤ cf l-1e8ba8b5a-279¤ df l-1e8ba8b5a-27a¤ ef l-1e8ba8b5a-27b¤ ff l-1e8ba8b5a-27c¤ gcdef ¤ h/abg ¤ i.h>X ¤ j+MiG ¤ k+OiG ¤ lg %%index¤ mg getter-index¤ ng m-1e8ba8b5a-281¤ on- ¤ po ¤ qf l-1e8ba8b5a-283¤ rq ¤ s/@pr ¤ t.>s ¤ u+RtG ¤ vQu ¤ wv& ¤ x&&ww ¤ yo... ¤ zf l-1e8ba8b5a-286¤ {f l-1e8ba8b5a-287¤ |f l-1e8ba8b5a-288¤ }f l-1e8ba8b5a-289¤ ~z{|} ¤ /ay~ ¤ .>s ¤ +MG ¤ +lG ¤ g %%copier¤ g
getter-copier¤
g m-1e8ba8b5a-28e¤
- ¤ ¤ f l-1e8ba8b5a-290¤ ¤ /@ ¤ .> ¤ +RG ¤ Q ¤ & ¤ && ¤ ... ¤ f l-1e8ba8b5a-293¤ f l-1e8ba8b5a-294¤ f l-1e8ba8b5a-295¤ f l-1e8ba8b5a-296¤ ¤ /a ¤ .> ¤ +MG ¤ +G ¤ g _¤ g each¤ N ¤ )¤ ¤ g identifier?¤ g
datum->syntax¤ ”g
symbol-append¤ ¢g %¤ £g
syntax->datum¤ ¤g
-procedure¤ „g generate-temporaries¤ ¦&' ¤ §g begin¤ Øg proc-name¤ ©g args¤ ŖØ© ¤ «.. ¤ ¬f l-1e8ba8b5a-2ba¤ f l-1e8ba8b5a-2bb¤ ®¬ ¤ Æ/Ŗ«® ¤ °g key¤ ±g value¤ ²°±123 ¤ ³..... ¤ “f l-1e8ba8b5a-2ad¤ µf l-1e8ba8b5a-2ae¤ ¶f l-1e8ba8b5a-2af¤ ·f l-1e8ba8b5a-2b0¤ øf l-1e8ba8b5a-2b1¤ ¹“µ¶·ø ¤ ŗ/²³¹ ¤ »g make-procedure-name¤ ¼» ¤ ½. ¤ ¾f l-1e8ba8b5a-29d¤ æ¾ ¤ Ą/¼½æ ¤ Į. ¤ Āf l-1e8ba8b5a-29c¤ ĆĀ ¤ Ä/@ĮĆ ¤ Å.>>>>ÆŗĄÄ ¤ Ę+§ÅG ¤ Ēg define¤ Č+ĒÅG ¤ Ég
define-syntax¤ Ź+ÉÅG ¤ Ėg lambda¤ Ģ+ĖÅG ¤ Ķ+?ÅG ¤ ĪĶ ¤ Ļg syntax-case¤ Š+ĻÅG ¤ Ń+MÅG ¤ Ņg append¤ ÓŅ ¤ ŌŅ ¤ Õg map¤ ÖÕ ¤ ×Õ ¤ Ų+ÅG ¤ Ł+`ÅG ¤ ŚŃŁ ¤ Ū+^ÅG ¤ ÜŪ ¤ Żg syntax¤ Ž+ŻÅG ¤ ß+ÅG ¤ ą+RÅG ¤ įg a¤ ā+įÅG ¤ ćg ...¤ ä+ćÅG ¤ åŲāä ¤ ę+IÅG ¤ ēf Wrong number of arguments¤ č+ēÅG ¤ éčĶ ¤ ź+ÅG ¤ ėźĶ ¤ ģg display¤ ķf #<¤ īg record-type-name¤ ļg record-type-descriptor¤ šf ¤ ńf : ¤ ņg write¤ óg record-type-fields¤ ōf >¤ õg default-record-printer¤ ög throw¤ ÷g wrong-type-arg¤ ųf Wrong type argument: ~S¤ łg throw-bad-struct¤ śg %%¤ ūg -set-fields¤ üg make-copier-id¤ żg %%set-fields¤ ž&¤ ’&ž¤ '’¤ & ¤ ¤ g every¤ g list¤ g for-each¤ g find¤ g free-identifier=?¤ f unknown getter¤ g
struct-ref¤
g t-1e8ba8b5a-32b¤
¤ g m-1e8ba8b5a-32c¤
- ¤
¤ f l-1e8ba8b5a-32f¤ ¤ / ¤ g index¤ _ ¤ f l-1e8ba8b5a-329¤ f l-1e8ba8b5a-32a¤ ¤ /« ¤ g lookup¤ ¤ f l-1e8ba8b5a-2fe¤ ¤ /½ ¤ g copier-name¤ g getter+exprs¤ ¤ f l-1e8ba8b5a-2f8¤ !f l-1e8ba8b5a-2f9¤ " ! ¤ #/ «" ¤ $g type-name¤ %g getter-id¤ &g check?¤ 'g expr¤ ($%&^_' ¤ )...... ¤ *f l-1e8ba8b5a-2ec¤ +f l-1e8ba8b5a-2ed¤ ,f l-1e8ba8b5a-2ee¤ -f l-1e8ba8b5a-2ef¤ .f l-1e8ba8b5a-2f0¤ /f l-1e8ba8b5a-2f1¤ 0*+,-./ ¤ 1/()0 ¤ 2f l-1e8ba8b5a-2dc¤ 32 ¤ 4/@Į3 ¤ 5.>> #1>4
¤ 6+ 5G ¤ 7g filter¤ 8g length¤ 9f duplicate getter¤ :g iota¤ ;g make-struct¤ g m-1e8ba8b5a-320¤ ?>- ¤ @? ¤ Af l-1e8ba8b5a-324¤ BA ¤ C/=@B ¤ D.>C #1>4 ¤ E+;DG ¤ F+
DG ¤ Gg here¤ Hg unsafe-expr¤ IH ¤ Jf l-1e8ba8b5a-317¤ KJ ¤ L/IĮK ¤ M.>L #1>4 ¤ N+GMG ¤ Og if¤ Pg t-1e8ba8b5a-319¤ QP ¤ Rg m-1e8ba8b5a-31a¤ SR- ¤ TS ¤ Uf l-1e8ba8b5a-31d¤ VU ¤ W/QTV ¤ X.>W>L #1>4
¤ Y+OXG ¤ Zg eq?¤ [+ZXG ¤ \g
struct-vtable¤ ]+\XG ¤ ^+łXG ¤ _+RXG ¤ `g %define-record-type¤ a&(¤ b&a¤ c&b¤ d&c¤ ed¤ f&&¤ g&f¤ hg¤ if invalid record definition syntax¤ jg boolean?¤ kf expected type name¤ lf invalid constructor spec¤ mf expected predicate name¤ n&&& ¤ of invalid field spec¤ pg string-concatenate¤ qg make-list¤ rf pr¤ sf pw¤ tg memq¤ uf !unknown field in constructor spec¤ vg assq-ref¤ w&&' ¤ xg t-1e8ba8b5a-38d¤ yg t-1e8ba8b5a-38c¤ zg t-1e8ba8b5a-38b¤ {xyz ¤ |g m-1e8ba8b5a-38e¤ }|- ¤ ~}}} ¤ f l-1e8ba8b5a-392¤ f l-1e8ba8b5a-393¤ f l-1e8ba8b5a-394¤ ¤ /{~ ¤ g ctor-args¤
¤ f l-1e8ba8b5a-37a¤ ¤ /
Į ¤ g ctor¤ g field¤ ¤ f l-1e8ba8b5a-376¤ f l-1e8ba8b5a-377¤ ¤ /« ¤ g form¤ g constructor-spec¤ g field-names¤ $ ¤ .... ¤ f l-1e8ba8b5a-36b¤ f l-1e8ba8b5a-36c¤ f l-1e8ba8b5a-36d¤ f l-1e8ba8b5a-36e¤ ¤ / ¤ g
record-layout¤ g functional-setters¤ g setters¤ g copier¤ g getters¤ g constructor¤ ”g getter-identifiers¤ ¢g field-identifiers¤ £ ”¢ ¤ ¤........ ¤ „f l-1e8ba8b5a-343¤ ¦f l-1e8ba8b5a-341¤ §f l-1e8ba8b5a-33f¤ Øf l-1e8ba8b5a-33d¤ ©f l-1e8ba8b5a-33b¤ Ŗf l-1e8ba8b5a-339¤ «f l-1e8ba8b5a-337¤ ¬f l-1e8ba8b5a-335¤ „¦§Ø©Ŗ«¬ ¤ ®/£¤ ¤ Æf l-1e8ba8b5a-334¤ °Æ ¤ ±/@Į° ¤ ².>>>>>®± ¤ ³+!²G ¤ “+;²G ¤ µ+
²G ¤ ¶g copier-id¤ ·¶ ¤ øf l-1e8ba8b5a-476¤ ¹ø ¤ ŗ/·Į¹ ¤ »g ctor-name¤ ¼» ¤ ½f l-1e8ba8b5a-46e¤ ¾½ ¤ æ/¼Į¾ ¤ Ą ¤ Įf l-1e8ba8b5a-46c¤ ĀĮ ¤ Ć/ĄĮĀ ¤ Äg layout¤ ÅÄ ¤ Ęf l-1e8ba8b5a-46a¤ ĒĘ ¤ Č/ÅĮĒ ¤ Ég
immutable?¤ ŹÉ ¤ Ėf l-1e8ba8b5a-468¤ ĢĖ ¤ Ķ/ŹĮĢ ¤ Īg field-count¤ ĻĪ ¤ Šf l-1e8ba8b5a-466¤ ŃŠ ¤ Ņ/ĻĮŃ ¤ Óg
getter-ids¤ ŌÓ ¤ Õf l-1e8ba8b5a-463¤ ÖÕ ¤ ×/ŌĮÖ ¤ Ųg field-ids¤ ŁŲ ¤ Śf l-1e8ba8b5a-460¤ ŪŚ ¤ Ü/ŁĮŪ ¤ Żg predicate-name¤ Žg
field-spec¤ ßÉ$ŻŽ ¤ ąf l-1e8ba8b5a-453¤ įf l-1e8ba8b5a-454¤ āf l-1e8ba8b5a-455¤ ćf l-1e8ba8b5a-456¤ äf l-1e8ba8b5a-457¤ åf l-1e8ba8b5a-458¤ ęąįāćäå ¤ ē/ß)ę ¤ č.>>>>ŗ>æ>Ć>Č>Ķ>Ņ>×>Üē®± ¤ é+GčG ¤ źg make-struct-layout¤ ė&&&&&&& ¤ ģg t-1e8ba8b5a-3a5¤ ķg t-1e8ba8b5a-3a6¤ īg t-1e8ba8b5a-3a7¤ ļg t-1e8ba8b5a-3a8¤ šg t-1e8ba8b5a-3a9¤ ńg t-1e8ba8b5a-3aa¤ ņg t-1e8ba8b5a-3ab¤ óģķīļšńņ ¤ ōg m-1e8ba8b5a-3ac¤ õō- ¤ öõõõõõõõ ¤ ÷f l-1e8ba8b5a-3b0¤ ųf l-1e8ba8b5a-3b1¤ łf l-1e8ba8b5a-3b2¤ śf l-1e8ba8b5a-3b3¤ ūf l-1e8ba8b5a-3b4¤ üf l-1e8ba8b5a-3b5¤ żf l-1e8ba8b5a-3b6¤ ž÷ųłśūüż ¤ ’/óöž ¤ f l-1e8ba8b5a-3a3¤ f l-1e8ba8b5a-3a4¤ ¤ /« ¤ $Ó¶ ¤ ... ¤ f l-1e8ba8b5a-39e¤ f l-1e8ba8b5a-39f¤ f l-1e8ba8b5a-3a0¤ ¤
/ ¤ .>’>>>>
®± ¤ +, G ¤
+O G ¤ +l G ¤ + G ¤ +^ G ¤ ¤ +O G ¤ +Z G ¤ +\ G ¤ ¤ + G ¤ +ł G ¤ +R G ¤ g define-syntax-rule¤ g t-1e8ba8b5a-3c4¤ g t-1e8ba8b5a-3c6¤ g t-1e8ba8b5a-3c5¤ ¤ g m-1e8ba8b5a-3c7¤ - ¤ ¤ !f l-1e8ba8b5a-3cb¤ "f l-1e8ba8b5a-3cc¤ #f l-1e8ba8b5a-3cd¤ $!"# ¤ %/ $ ¤ &f l-1e8ba8b5a-3c1¤ 'f l-1e8ba8b5a-3c2¤ (f l-1e8ba8b5a-3c3¤ )&'( ¤ */) ¤ +.>%>>>*®± ¤ ,++G ¤ -+&+G ¤ .+^+G ¤ /+_+G ¤ 0+'+G ¤ 1/0 ¤ 2+ć+G ¤ 3-.12 ¤ 4+ż+G ¤ 5g
filter-map¤ 6g t-1e8ba8b5a-405¤ 76 ¤ 8g m-1e8ba8b5a-406¤ 98- ¤ :9 ¤ ;f l-1e8ba8b5a-409¤ <; ¤ =/7:< ¤ >g setter¤ ?1_> ¤ @f l-1e8ba8b5a-3ff¤ Af l-1e8ba8b5a-400¤ Bf l-1e8ba8b5a-401¤ C@AB ¤ D/?C ¤ EŽ ¤ Ff l-1e8ba8b5a-3f6¤ Gf l-1e8ba8b5a-3f7¤ HFG ¤ I/E«H ¤ Jg field-specs¤ K¶J ¤ Lf l-1e8ba8b5a-3f2¤ Mf l-1e8ba8b5a-3f3¤ NLM ¤ O/K«N ¤ P.>=D>I>O®±
¤ Q+!PG ¤ R+^PG ¤ Sg val¤ T+SPG ¤ URT ¤ V+PG ¤ WT ¤ Xg t-1e8ba8b5a-3e6¤ Yg t-1e8ba8b5a-3e7¤ ZXY ¤ [g m-1e8ba8b5a-3e8¤ \[- ¤ ]\\ ¤ ^f l-1e8ba8b5a-3ec¤ _f l-1e8ba8b5a-3ed¤ `^_ ¤ a/Z]` ¤ bf l-1e8ba8b5a-3e0¤ cf l-1e8ba8b5a-3e1¤ df l-1e8ba8b5a-3e2¤ ebcd ¤ f/?e ¤ gf l-1e8ba8b5a-3d7¤ hf l-1e8ba8b5a-3d8¤ igh ¤ j/E«i ¤ k$J ¤ lf l-1e8ba8b5a-3d3¤ mf l-1e8ba8b5a-3d4¤ nlm ¤ o/k«n ¤ p.>af>j>o®±
¤ q+!pG ¤ r+^pG ¤ s+SpG ¤ trs ¤ u+OpG ¤ v+ZpG ¤ w+\pG ¤ xwr ¤ yg struct-set!¤ z+ypG ¤ {s ¤ |+łpG ¤ }+RpG ¤ ~&&&&'&' ¤ g t-1e8ba8b5a-47e¤ g t-1e8ba8b5a-478¤ g t-1e8ba8b5a-479¤ g t-1e8ba8b5a-47a¤ g t-1e8ba8b5a-47d¤ g t-1e8ba8b5a-47c¤
g t-1e8ba8b5a-47b¤
¤ g m-1e8ba8b5a-47f¤ - ¤ ¤ f l-1e8ba8b5a-483¤ f l-1e8ba8b5a-484¤ f l-1e8ba8b5a-485¤ f l-1e8ba8b5a-486¤ f l-1e8ba8b5a-487¤ f l-1e8ba8b5a-488¤ f l-1e8ba8b5a-489¤ ¤ / ¤ .>>>>>ŗ>æ>Ć>Č>Ķ>Ņ>×>Üē®± ¤ +§G ¤ +ĒG ¤ g let¤ +G ¤ g rtd¤ +G ¤ g make-struct/no-tail¤ +G ¤ g record-type-vtable¤ +G ¤ +RG ¤ +õG ¤ g set-struct-vtable-name!¤ ”+ G ¤ ¢+yG ¤ £g +¤ ¤+£G ¤ „+ G ¤ ¦g vtable-offset-user¤ §+¦G ¤ ؤ„§ ¤ © ¤ Ŗ+!G ¤ «g obj¤ ¬+«G ¤ ¬ ¤ ®g and¤ Æ+®G ¤ °g struct?¤ ±+°G ¤ ²±¬ ¤ ³+ZG ¤ “+\G ¤ µ“¬ ¤ ¶g pred¤ ·g fields¤ ø01¶· ¤ ¹g m-1e8ba8b5a-4a3¤ ŗ¹- ¤ »ŗ.... ¤ ¼f l-1e8ba8b5a-4a8¤ ½f l-1e8ba8b5a-4a9¤ ¾f l-1e8ba8b5a-4aa¤ æf l-1e8ba8b5a-4ab¤ Ąf l-1e8ba8b5a-4ac¤ Į¼½¾æĄ ¤ Ā/ø»Į ¤ Ćŗ ¤ Äf l-1e8ba8b5a-4a5¤ ÅÄ ¤ Ę/@ĆÅ ¤ Ē.Ā>Ę ¤ Č+`ĒG ¤ É+ĒG ¤ Ź+ĒG ¤C 5 hČ< ¤ ]4
5 4 > " G 4i4 i5 > " G 4 !"%*H h f ]C^ g dummy
g name g formals g body CKL h( ¾ ] 4 5 $ @ 6 ¶ g x
" g tmp " g filenamef srfi/srfi-9.scm
J
" g
macro-typeg syntax-rulesg patternsg nameg formalsg ... g bodyg ... C5!R4 M"%N h > ]C 6 g dummy
g err CKL h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-9.scm
R
" g
macro-typeg syntax-rulesg patternsg err C5MROR4 P"%]jk h a ] C Y g dummy
g s g getter g err CKL h( Į ] 4 5 $ @ 6 ¹ g x
" g tmp " g filenamef srfi/srfi-9.scm
V " g
macro-typeg syntax-rulesg patternsg sg quoteg getter g quoteg err C5PRlR4 m"%x h a ] C Y g dummy
g s g getter g err CKL h( Į ] 4 5 $ @ 6 ¹ g x
" g tmp " g filenamef srfi/srfi-9.scm
\ " g
macro-typeg syntax-rulesg patternsg sg quoteg getter g quoteg err C5mRR4 "% h a ] C Y g dummy
g s g getter g err CKL h( Į ] 4 5 $ @ 6 ¹ g x
" g tmp " g filenamef srfi/srfi-9.scm
b " g
macro-typeg syntax-rulesg patternsg sg quoteg getter g quoteg err C5R4 ,"%KL h ” ]6 g key
g value g name g formals g body g filenamef srfi/srfi-9.scm o C ”¢£¤„%¦ĘČŹĢĪŠĶŃŌ×ŲŚÜŽßŪą h( X ] C P g tmp-1e8ba8b5a-2c8
$ g tmp-1e8ba8b5a-2c7 $ $ CŲŽåęąéė hx C ] LLL L4 4
LL5
LL L
5 C; g proc-name
x g args x x CKL hX ]44455545 45 $ O @
6 ū g key
R g value R g name R g formals R g body R g tmp # R g tmp . R g filenamef srfi/srfi-9.scm i j j $
j ' k $ j i q ! # p
R C h@ b ] 4 5 " 6$ 4?$ @"’’Ü"’’Ų Z g x
9 g tmp 9 g filenamef srfi/srfi-9.scm
g 9 C5,Rģķīļšńņóō
hČ Ū ]4> " G 444 55> " G " l( " w4> " G 4> " G 4> " G 4 ©> " G "’’44 55
"’’ 6 Ó g s
Į g p Į g fields 8 ¤ g off 8 ¤ g filenamef srfi/srfi-9.scm
%
,
8 > C G N W \ c l p w
¤ ¤ „ Ø ) ° ¹ ½ Į " Į g nameg default-record-printer CõRö÷ų h ] 6 „ g s
g who g filenamef srfi/srfi-9.scm
# g nameg throw-bad-struct CłR ”ś£ū h « ] 44 556£ g type-name
g filenamef srfi/srfi-9.scm
$ g nameg make-copier-id CüR4 ż"%KL h ¼ ]6 “ g type-name
g getter-id
g check?
g s
g getter
g expr
g filenamef srfi/srfi-9.scm
C£ü× h d ]L 6 \ g getter-id
g filenamef srfi/srfi-9.scm
® !
CI h( ] 4 O L 5 $ CLL 6 ~ g id
' g t ' g filenamef srfi/srfi-9.scm
¬ ! ± & ' ° ' CÕ67 h g ]L 6 _ g g+e
g filenamef srfi/srfi-9.scm
¤ „ 2 „ C8I9 hP ó ]L 4 O L5 45
$ C $ CLL 6 ė g getter
K g index K g default-expr K g results K g key $ K g filenamef srfi/srfi-9.scm
¶ # · % ¤ £ § $ §
< © E « " K Ŗ
K C:8%'EF h 7 ]L C / g t-1e8ba8b5a-31f
CKL NY[]^_ hŠ Ī ]&44 5545 4L O > " G 4L O 4 4
555 4 5 $ 4
O ?"
45 45$ /45 CC Ę g type-name
Ģ g getter-id Ģ g check? Ģ g s Ģ g getter Ģ g expr Ģ g copier-name Ģ g getter+exprs Ģ g tmp Z g tmp e g tmp Ģ g tmp £ É g filenamef srfi/srfi-9.scm ) ¬ ; ¶ M ¹ # P ¹ ) X ¹ # Z ¶ Z “ ³ ŗ ŗ ¾ £ » Ģ C h@ c ] 4 5 " 6$ 4?$ O @"’’×"’’Ó [ g x
> g tmp > g filenamef srfi/srfi-9.scm
> C5żR4 `"%ehI%f£ h j ] 6b g macro
g args g filenamef srfi/srfi-9.scm O CKLi h8 ] 45 $ 4?"
45 6 g
immutable?
3 g form 3 g rest 3 g tmp
- g filenamef srfi/srfi-9.scm / P 3 M 3 CKLj£I%f£ h j ] 6b g macro
g args g filenamef srfi/srfi-9.scm / CKLk(£ h j ] 6b g macro
g args g filenamef srfi/srfi-9.scm / Cl h i ] 6 a g ctor
g args
g filenamef srfi/srfi-9.scm
C h > ]C 6 g ctor
g args C£ h j ] 6b g macro
g args g filenamef srfi/srfi-9.scm / Cm%N h A ]C 9 g field
g getter Cn h U ]C M g field
g getter g setter CIf£ h j ] 6b g macro
g args g filenamef srfi/srfi-9.scm / CKLo hh ]4 5 $ @4 5 $ @4L 5 $ 4?"
4
L 5 L 6 g spec
c g tmp c g tmp " c g tmp ; [ g filenamef srfi/srfi-9.scm
& ] * * c c C h@ ]44 55$ '45 $ " 4445 $ 4?"
4 5
5 $ Ö4 5 " 8445 $ 4 ?"
4 5
5" ($ 4?$ 4?" "’’Ø" "’’ $ ^45 $ " 4445 $ 4?"
4 5 5 $
O 6CCCC ż g
immutable?
; g form ; g type-name ; g constructor-spec ; g predicate-name ; g
field-spec ; g t ] g tmp 2 R g tmp j Ó g tmp | g t Ž " g tmp ÷ g filenamef srfi/srfi-9.scm ' T Z a q " ! ¤ × Ų $ Ž $ ģ % & 3 & ; CÕ%N h @ ] C 8 g name
g getter Cn h T ] C L g name
g getter g setter CKL h@ } ]4 5 $ @4 5 $ @ 6 u g
field-spec
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-9.scm
Ä 9 C%N h @ ]C 8 g name
g getter Cn h T ]C L g name
g getter g setter CKL h@ } ]4 5 $ @4 5 $ @ 6 u g
field-spec
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-9.scm
Ė 9 C8£pqrs%( h > ] C 6 g ctor
g args CKLü h j ]6 b g ctor
g field
g filenamef srfi/srfi-9.scm
Ō
CÕ£tI%f£ h j ] 6b g macro
g args g filenamef srfi/srfi-9.scm Ū + CKLu
hh Š ]4 5 4L 5 $ " ?44L5 $ 4?"
4L5 L > " G CČ g field
h g name h g t b g tmp , L g filenamef srfi/srfi-9.scm
Õ Ö - Ö ! × ' × # ! Ų ' N Ü ( W Ų ' g Ž #
h Cv h _ ]L 6 W g name
g filenamef srfi/srfi-9.scm
ā $
ć &
C%w³“µ h q ] C i g t-1e8ba8b5a-38d
g t-1e8ba8b5a-38c g t-1e8ba8b5a-38b CKL hP ¾ ]4LL O 5 LL4O L5 45 $ @6 ¶ g ctor
K g field K g ctor-args K g tmp ) K g tmp 4 K g filenamef srfi/srfi-9.scm Õ Õ ā ) ą K C éź%ė
hP å ]
C Ż g t-1e8ba8b5a-3a5
J g t-1e8ba8b5a-3a6 J g t-1e8ba8b5a-3a7 J g t-1e8ba8b5a-3a8 J g t-1e8ba8b5a-3a9 J g t-1e8ba8b5a-3aa J g t-1e8ba8b5a-3ab J J CKL h8 ]L L L 45 $ @6 g getter
5 g index 5 g tmp 5 g tmp 5 g filenamef srfi/srfi-9.scm
ē č 5 C:n,34 h q ] Ci g t-1e8ba8b5a-3c4
g t-1e8ba8b5a-3c6 g t-1e8ba8b5a-3c5 C5%N h @ ]C 8 g name
g getter CnQUVRW h T ]L C L g name
g getter g setter CKL h@ ]4 5 $ @4 5 $ L O @ 6 g
field-spec
> g index > g tmp > g tmp " > g filenamef srfi/srfi-9.scm
> C%Nh @ ]C 8 g name
g getter Cn%Nqtuvxzr{|} h8 T ]L
L C L g t-1e8ba8b5a-3e6
4 g t-1e8ba8b5a-3e7 4 4 CKL h0 ” ]L L 45 $ O @6 g name
0 g getter 0 g setter 0 g tmp 0 g tmp 0 g filenamef srfi/srfi-9.scm ž 0 CKL h@ ]4 5 $ @4 5 $
L O @ 6 g
field-spec
@ g index @ g tmp @ g tmp " @ g filenamef srfi/srfi-9.scm
ś @ C~”¢Ø©ŖƲ³µŌ h å ] L L L
LL 45C Ż g t-1e8ba8b5a-47e
g t-1e8ba8b5a-478 g t-1e8ba8b5a-479 g t-1e8ba8b5a-47a g t-1e8ba8b5a-47d g t-1e8ba8b5a-47c g t-1e8ba8b5a-47b C hØ ]V45 45 45 4 5 44 $ " 55
45 4
5 $ 4 ?"
4
5 45
4
5 " 4
5" 3$ )4?$ 4 O ?" "’’Ē" "’’æ 44
55 4
O 44555
4
5 $ 4?"
4
5 $ 4
O 44555" 4O 44555 4
5 $
O @
6 g
immutable?
§ g form § g type-name § g constructor-spec § g predicate-name § g
field-spec § g field-ids § g
getter-ids § g field-count § g
immutable? ( § g layout
D § g field-names O § g tmp Z z g ctor-name z § g copier-id
§ g tmp Ų g tmp = g tmp : g tmp ~ § g tmp § g filenamef srfi/srfi-9.scm Ä , Ė , . , " / ( , + . 8 : ! @ & B D D , G 1 O , } 4 , Ł ; Ž ; 4 ę ; ė ē ł ń ü ń ń ē ō C I D P
S
[
] b ś n q y { ś ~ 5
* § C hP t ]4 5 " 4 5 $ @ 6$ 4?$ @"’’Å"’’Įl g x
P g tmp P g tmp 1 g filenamef srfi/srfi-9.scm
Ā P C5`R4 "%cČÉŹ h( w ]C o g dummy
# g name # g ctor # g pred # g fields # # CKL h( ¼ ] 4 5 $ @ 6 “ g x
" g tmp " g filenamef srfi/srfi-9.scm
S
" g
macro-typeg syntax-rulesg patternsg nameg ctorg predg fieldsg ... C5RC g m
, g filenamef srfi/srfi-9.scm =
- B
2 B : B & ? B
T
ŗ Z
Z `
N
0
<Ć
C6 PK ! cgS2÷ ÷
srfi-17.gonu [µü¤ GOOF----LE-8-2.0ß ] 4 h3 ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-17¤ ¤ g filenameS¤
f srfi/srfi-17.scm¤ g exportsS¤ g getter-with-setter¤
¤ g replacementsS¤ g setter¤ g car¤ g cdr¤ g caar¤ g cadr¤ g cdar¤ g cddr¤ g caaar¤ g caadr¤ g cadar¤ g caddr¤ g cdaar¤ g cdadr¤ g cddar¤ g cdddr¤ g caaaar¤ g caaadr¤ g caadar¤ !g caaddr¤ "g cadaar¤ #g cadadr¤ $g caddar¤ %g cadddr¤ &g cdaaar¤ 'g cdaadr¤ (g cdadar¤ )g cdaddr¤ *g cddaar¤ +g cddadr¤ ,g cdddar¤ -g cddddr¤ .g
string-ref¤ /g
vector-ref¤ 0 !"#$%&'()*+,-./ !¤ 1g set-current-module¤ 21 ¤ 31 ¤ 4g cond-expand-provide¤ 5g current-module¤ 6 ¤ 7g make-procedure-with-setter¤ 8 ¤ 9 ¤ :g error¤ ;f 3Setting setters is not supported for a good reason.¤ ¤ ?g set-car!¤ @ ¤ A ¤ Bg set-cdr!¤ C ¤ D ¤ E ¤ F ¤ G ¤ H ¤ I ¤ J ¤ K ¤ L ¤ M ¤ N ¤ O ¤ P ¤ Q ¤ R ¤ S ¤ T ¤ U ¤ V ¤ W ¤ X ¤ Y ¤ Z ¤ [ ¤ \ ¤ ] ¤ ^ ¤ _ ¤ ` ¤ a! ¤ b! ¤ c" ¤ d" ¤ e# ¤ f# ¤ g$ ¤ h$ ¤ i% ¤ j% ¤ k& ¤ l& ¤ m' ¤ n' ¤ o( ¤ p( ¤ q) ¤ r) ¤ s* ¤ t* ¤ u+ ¤ v+ ¤ w, ¤ x, ¤ y- ¤ z- ¤ {. ¤ |. ¤ }g string-set!¤ ~/ ¤ / ¤ g vector-set!¤C 5h( Ż ]4
05 43 > " G 44i45i5 6> " G 7i R4 i9:; h h - 1 3 6 ` g args
g filenamef srfi/srfi-17.scm
>
? ?
C5Rh x ]L4L 56 p g obj
g value g filenamef srfi/srfi-17.scm
D E E C h ] O C g setter
g location g filenamef srfi/srfi-17.scm
C
g nameg compose-setter C?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
£ ± “
µ ¼ Ź Ķ
Ī Õ ć ę
ē ¢ ī £ ü ¢ ’ ”
¦ „
Ŗ ©
!
C6 PK ! bWĻŅū ū
srfi-19.gonu [µü¤ GOOF----LE-8-2.0ć ]Č 4 hĘ ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-19¤ ¤ g filenameS¤
f srfi/srfi-19.scm¤ g importsS¤ g srfi-6¤
¤
¤ g srfi-8¤ ¤ ¤ g srfi-9¤ ¤ ¤ g ice-9¤ g i18n¤ ¤ ¤ ¤ g exportsS¤ g
time-duration¤ g time-monotonic¤ g time-process¤ g time-tai¤ g time-thread¤ g time-utc¤ !g current-date¤ "g current-julian-day¤ #g current-modified-julian-day¤ $g time-resolution¤ %g make-time¤ &g time?¤ 'g time-type¤ (g time-nanosecond¤ )g time-second¤ *g set-time-type!¤ +g set-time-nanosecond!¤ ,g set-time-second!¤ -g copy-time¤ .g time<=?¤ /g time=?¤ 2g time>?¤ 3g time-difference¤ 4g time-difference!¤ 5g add-duration¤ 6g
add-duration!¤ 7g subtract-duration¤ 8g subtract-duration!¤ 9g make-date¤ :g date?¤ ;g date-nanosecond¤ g date-hour¤ ?g date-day¤ @g
date-month¤ Ag date-year¤ Bg date-zone-offset¤ Cg
date-year-day¤ Dg
date-week-day¤ Eg date-week-number¤ Fg date->julian-day¤ Gg date->modified-julian-day¤ Hg date->time-monotonic¤ Ig date->time-tai¤ Jg date->time-utc¤ Kg julian-day->date¤ Lg julian-day->time-monotonic¤ Mg julian-day->time-tai¤ Ng julian-day->time-utc¤ Og modified-julian-day->date¤ Pg #modified-julian-day->time-monotonic¤ Qg modified-julian-day->time-tai¤ Rg modified-julian-day->time-utc¤ Sg time-monotonic->date¤ Tg time-monotonic->julian-day¤ Ug #time-monotonic->modified-julian-day¤ Vg time-monotonic->time-tai¤ Wg time-monotonic->time-tai!¤ Xg time-monotonic->time-utc¤ Yg time-monotonic->time-utc!¤ Zg time-tai->date¤ [g time-tai->julian-day¤ \g time-tai->modified-julian-day¤ ]g time-tai->time-monotonic¤ ^g time-tai->time-monotonic!¤ _g time-tai->time-utc¤ `g time-tai->time-utc!¤ ag time-utc->date¤ bg time-utc->julian-day¤ cg time-utc->modified-julian-day¤ dg time-utc->time-monotonic¤ eg time-utc->time-monotonic!¤ fg time-utc->time-tai¤ gg time-utc->time-tai!¤ hg date->string¤ ig string->date¤ j !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghi O¤ kg replacementsS¤ lg current-time¤ ml ¤ ng autoloadsS¤ og rdelim¤ po ¤ qg read-line¤ rq ¤ spr ¤ tg set-current-module¤ ut ¤ vt ¤ wg cond-expand-provide¤ xg current-module¤ y ¤ zf ~a ~b ~d ~H:~M:~S~z ~Y¤ {g locale-date-time-format¤ |f ~m/~d/~y¤ }g locale-short-date-format¤ ~f ~H:~M:~S¤ g locale-time-format¤ f ~Y-~m-~dT~H:~M:~S~z¤ g iso-8601-date-time-format¤ g nano¤ g sid¤ g sihd¤
e 4881175/2¤ g tai-epoch-in-jd¤ g throw¤ g
misc-error¤ f TIME-ERROR type ~A: ~S¤ f TIME-ERROR type ~A¤ g
time-error¤ g open-input-file¤ g eof-object?¤ g read¤ g open-input-string¤ g
string-append¤ f (¤ f )¤ g inexact->exact¤ g read-tai-utc-data¤ U- $¤ Oļ #¤ I\ "¤ C· !¤ 6 ¤ 3øH ¤ 0ē$ ¤ .\ ¤ ,2) ¤ *Põ ¤ 'Ń ¤ % ¤ ” !Śå ¤ ¢ %ź ¤ £ b1 ¤ ¤ ž ¤ „ Ź ¤ ¦ Ī¦ ¤ § ķr ¤ Ø ? ¤ ©
+ ¤ Ŗ H ¤ « gS ¤ ¬
¤ ¤ģ ¤ ® ²X ¤ Æ Āg
¤ ° ”¢£¤„¦§Ø©Ŗ«¬®Æ ¤ ±g leap-second-table¤ ²g read-leap-second-table¤ ³g leap-second-delta¤ “g time¤ µg !%make-time-unnormalized-procedure¤ ¶g make-syntax-transformer¤ ·¶ ¤ ø¶ ¤ ¹g make-time-unnormalized¤ ŗg macro¤ »g $sc-dispatch¤ ¼» ¤ ½» ¤ ¾g _¤ æg any¤ Ą¾æææ ¤ Įg
syntax-object¤ Āg lambda¤ Ćg m-46961e50d3-30¤ Äg top¤ ÅĆÄ ¤ Ęg ribcage¤ Ēg t-46961e50d3-2d¤ Čg t-46961e50d3-2e¤ Ég t-46961e50d3-2f¤ ŹĒČÉ ¤ ĖÅÅÅ ¤ Ģf l-46961e50d3-35¤ Ķf l-46961e50d3-36¤ Īf l-46961e50d3-37¤ ĻĢĶĪ ¤ ŠĘŹĖĻ ¤ ŃĘ ¤ Ņg x¤ ÓŅ ¤ ŌÅ ¤ Õf l-46961e50d3-32¤ ÖÕ ¤ ×ĘÓŌÖ ¤ Ųg shift¤ Łg proc-name¤ Śg args¤ ŪŁŚ ¤ ÜÄ ¤ ŻÜÜ ¤ Žf l-1e8ba8b5a-60¤ ßf l-1e8ba8b5a-61¤ ąŽß ¤ įĘŪŻą ¤ āg key¤ ćg value¤ äg name¤ åg formals¤ ęg body¤ ēāćäåę ¤ čÜÜÜÜÜ ¤ éf l-1e8ba8b5a-53¤ źf l-1e8ba8b5a-54¤ ėf l-1e8ba8b5a-55¤ ģf l-1e8ba8b5a-56¤ ķf l-1e8ba8b5a-57¤ īéźėģķ ¤ ļĘēčī ¤ šg make-procedure-name¤ ńš ¤ ņÜ ¤ óf l-1e8ba8b5a-43¤ ōó ¤ õĘńņō ¤ öÜ ¤ ÷f l-1e8ba8b5a-42¤ ų÷ ¤ łĘÓöų ¤ śÅŠŃ×ŲŃŃŃŃįļõł
¤ ūg hygiene¤ üū ¤ żĮĀśü ¤ žg type¤ ’ÜŠŃ× ¤ ū ¤ Įž’ ¤ g
nanosecond¤ Į’ ¤ g second¤ Į’ ¤ ¤ g make-struct¤ g m-46961e50d3-2b¤ Ä ¤
g t-1e8ba8b5a-133¤ g t-1e8ba8b5a-132¤ g t-1e8ba8b5a-131¤
¤ g m-1e8ba8b5a-134¤ Ä ¤ ¤ f l-1e8ba8b5a-138¤ f l-1e8ba8b5a-139¤ f l-1e8ba8b5a-13a¤ ¤ Ę
¤ g ctor-args¤ ¤ f l-1e8ba8b5a-120¤ ¤ Ęö ¤ g ctor¤ g field¤ ¤ f l-1e8ba8b5a-11c¤ f l-1e8ba8b5a-11d¤ ¤ !Ę Ż ¤ "g form¤ #g type-name¤ $g constructor-spec¤ %g field-names¤ &"#$% ¤ 'ÜÜÜÜ ¤ (f l-1e8ba8b5a-111¤ )f l-1e8ba8b5a-112¤ *f l-1e8ba8b5a-113¤ +f l-1e8ba8b5a-114¤ ,()*+ ¤ -Ę&', ¤ .g
record-layout¤ /g functional-setters¤ 0g setters¤ 1g copier¤ 2g getters¤ 3g constructor¤ 4g getter-identifiers¤ 5g field-identifiers¤ 6./012345 ¤ 7ÜÜÜÜÜÜÜÜ ¤ 8f l-1e8ba8b5a-e9¤ 9f l-1e8ba8b5a-e7¤ :f l-1e8ba8b5a-e5¤ ;f l-1e8ba8b5a-e3¤ f l-1e8ba8b5a-dd¤ ?f l-1e8ba8b5a-db¤ @89:;<=>? ¤ AĘ67@ ¤ Bf l-1e8ba8b5a-da¤ CB ¤ DĘÓöC ¤ E ŠŃ×ŲŃŃŃŃ!Ń-AD ¤ FĮEü ¤ GĮ“’ ¤ HĮ
Eü ¤ IFGH ¤ JżI ¤ Kg each-any¤ L¾K¤ Mg syntax-violation¤ NM ¤ OM ¤ Pf Wrong number of arguments¤ Qg identifier?¤ RQ ¤ SQ ¤ TÜŃ× ¤ UĮµT ¤ VM ¤ WM ¤ Xf -source expression failed to match any pattern¤ Yg record-type-vtable¤ ZY ¤ [Y ¤ \g pwpwpw¤ ]g default-record-printer¤ ^] ¤ _] ¤ `ž ¤ ag set-struct-vtable-name!¤ ba ¤ ca ¤ dg vtable-offset-user¤ ed ¤ fd ¤ gg %time?-procedure¤ h¾æ ¤ ig m-46961e50d3-41¤ jiÄ ¤ kg t-46961e50d3-40¤ lk ¤ mj ¤ nf l-46961e50d3-46¤ on ¤ pĘlmo ¤ qf l-46961e50d3-43¤ rq ¤ sĘÓmr ¤ tjpŃsŲŃŃŃŃįļõł
¤ uĮĀtü ¤ vg obj¤ wg t-1e8ba8b5a-224¤ xg t-1e8ba8b5a-21e¤ yg t-1e8ba8b5a-21f¤ zg t-1e8ba8b5a-220¤ {g t-1e8ba8b5a-223¤ |g t-1e8ba8b5a-222¤ }g t-1e8ba8b5a-221¤ ~wxyz{|} ¤ g m-1e8ba8b5a-225¤ Ä ¤ ¤ f l-1e8ba8b5a-229¤ f l-1e8ba8b5a-22a¤ f l-1e8ba8b5a-22b¤
f l-1e8ba8b5a-22c¤ f l-1e8ba8b5a-22d¤ f l-1e8ba8b5a-22e¤ f l-1e8ba8b5a-22f¤
¤ Ę~ ¤ g copier-id¤ ¤ f l-1e8ba8b5a-21c¤ ¤ Ęö ¤ g ctor-name¤ ¤ f l-1e8ba8b5a-214¤ ¤ Ęö ¤ % ¤ f l-1e8ba8b5a-212¤ ¤ Ęö ¤ g layout¤ ¤ f l-1e8ba8b5a-210¤ ¤ Ęö ¤ g
immutable?¤ ¤ f l-1e8ba8b5a-20e¤ ” ¤ ¢Ęö” ¤ £g field-count¤ ¤£ ¤ „f l-1e8ba8b5a-20c¤ ¦„ ¤ §Ę¤ö¦ ¤ Øg
getter-ids¤ ©Ø ¤ Ŗf l-1e8ba8b5a-209¤ «Ŗ ¤ ¬Ę©ö« ¤ g field-ids¤ ® ¤ Æf l-1e8ba8b5a-206¤ °Æ ¤ ±Ę®ö° ¤ ²g predicate-name¤ ³g
field-spec¤ “"#$²³ ¤ µÜÜÜÜÜÜ ¤ ¶f l-1e8ba8b5a-1f9¤ ·f l-1e8ba8b5a-1fa¤ øf l-1e8ba8b5a-1fb¤ ¹f l-1e8ba8b5a-1fc¤ ŗf l-1e8ba8b5a-1fd¤ »f l-1e8ba8b5a-1fe¤ ¼¶·ø¹ŗ» ¤ ½Ę“µ¼ ¤ ¾ pŃsŲŃŃŃŃŃŃŃŃŃ¢Ń§Ń¬Ń±½AD ¤ æĮv¾ü ¤ Ąæ ¤ Įg and¤ ĀĮĮ¾ü ¤ Ćg struct?¤ ÄĮĆ¾ü ¤ ÅÄæ ¤ Ęg eq?¤ ĒĮĘ¾ü ¤ Čg
struct-vtable¤ ÉĮČ¾ü ¤ ŹÉæ ¤ ĖÜpŃs ¤ ĢĮ“Ė ¤ ĶĒŹĢ ¤ ĪĀÅĶ ¤ ĻuĄĪ ¤ ŠÜŃs ¤ ŃĮgŠ ¤ Ņg throw-bad-struct¤ ÓŅ ¤ ŌŅ ¤ Õg %time-type-procedure¤ Ög free-id¤ ×g
%%on-error¤ Ųg m-46961e50d3-4d¤ ŁŲÄ ¤ ŚŁ ¤ Ūf l-46961e50d3-4f¤ ÜŪ ¤ ŻĘÓŚÜ ¤ ŽŁŃŻŲŃŃŃŃįļõł ¤ ßĮ׎ü ¤ ąÖß ¤ įąæ ¤ āg %%type¤ ćg t-1e8ba8b5a-14b¤ äg t-1e8ba8b5a-14c¤ åg t-1e8ba8b5a-14d¤ ęg t-1e8ba8b5a-14e¤ ēg t-1e8ba8b5a-14f¤ čg t-1e8ba8b5a-150¤ ég t-1e8ba8b5a-151¤ źćäåęēčé ¤ ėg m-1e8ba8b5a-152¤ ģėÄ ¤ ķģģģģģģģ ¤ īf l-1e8ba8b5a-156¤ ļf l-1e8ba8b5a-157¤ šf l-1e8ba8b5a-158¤ ńf l-1e8ba8b5a-159¤ ņf l-1e8ba8b5a-15a¤ óf l-1e8ba8b5a-15b¤ ōf l-1e8ba8b5a-15c¤ õīļšńņóō ¤ öĘźķõ ¤ ÷g getter¤ ųg index¤ ł÷ų ¤ śf l-1e8ba8b5a-149¤ ūf l-1e8ba8b5a-14a¤ üśū ¤ żĘłŻü ¤ ž#Ø ¤ ’ÜÜÜ ¤ f l-1e8ba8b5a-144¤ f l-1e8ba8b5a-145¤ f l-1e8ba8b5a-146¤ ¤ Ęž’ ¤ ŃŻŲŃöŃŃŃżŃAD ¤ Įāü ¤ Ö ¤ ¾įæ ¤ g ck¤
g err¤ g s¤
¤
ŁŁ ¤ f l-46961e50d3-52¤ f l-46961e50d3-53¤ ¤ Ę
¤ ŁŃŻŲŃŃŃŃįļõł
¤ Į ü ¤ g quote¤ Įü ¤ ÜŃŻ ¤ Į“ ¤ ¤ ¤ g %%index¤ Įü ¤ Ö ¤ ¾į æ ¤ f l-46961e50d3-57¤ f l-46961e50d3-58¤ ¤ !Ę
¤ "Ł!ŃŻŲŃŃŃŃįļõł
¤ #Į "ü ¤ $Į"ü ¤ %!ŃŻ ¤ &Į
% ¤ '$& ¤ (' ¤ )g %%copier¤ *Į)ü ¤ +Ö* ¤ ,¾į+æ ¤ -f l-46961e50d3-5c¤ .f l-46961e50d3-5d¤ /-. ¤ 0Ę
/ ¤ 1Ł0ŃŻŲŃŃŃŃįļõł
¤ 2Į 1ü ¤ 3Į1ü ¤ 4g %%time-set-fields¤ 5Ü0ŃŻ ¤ 6Į45 ¤ 736 ¤ 87 ¤ 9g t-46961e50d3-4c¤ :9 ¤ ;f l-46961e50d3-61¤ <; ¤ =Ę:Ś< ¤ >Ł=ŃŻŲŃŃŃŃįļõł
¤ ?ĮĀ>ü ¤ @ =ŃŻŲŃöŃŃŃżŃAD ¤ AĮ @ü ¤ BA ¤ Cg if¤ DĮC@ü ¤ EĮĘ@ü ¤ FĮČ@ü ¤ GFA ¤ HÜ=ŃŻ ¤ IĮ“H ¤ JEGI ¤ Kg
struct-ref¤ LĮK@ü ¤ M=ŃŻ ¤ NĮ
M ¤ OLAN ¤ PĮŅ@ü ¤ QĮ@ü ¤ RĮ'H ¤ SQR ¤ TPAS ¤ UDJOT ¤ V?BU ¤ WÜŃŻ ¤ XĮÕW ¤ Yg %time-nanosecond-procedure¤ Zg m-46961e50d3-68¤ [ZÄ ¤ \[ ¤ ]f l-46961e50d3-6a¤ ^] ¤ _ĘÓ\^ ¤ `[Ń_ŲŃŃŃŃįļõł ¤ aĮ×`ü ¤ bÖa ¤ cbæ ¤ d Ń_ŲŃöŃŃŃżŃAD ¤ eĮādü ¤ fÖe ¤ g¾cfæ ¤ h[[ ¤ if l-46961e50d3-6d¤ jf l-46961e50d3-6e¤ kij ¤ lĘ hk ¤ m[lŃ_ŲŃŃŃŃįļõł
¤ nĮ mü ¤ oĮmü ¤ pÜlŃ_ ¤ qĮ“p ¤ roq ¤ sr ¤ tĮdü ¤ uÖt ¤ v¾cuæ ¤ wf l-46961e50d3-72¤ xf l-46961e50d3-73¤ ywx ¤ zĘ hy ¤ {[zŃ_ŲŃŃŃŃįļõł
¤ |Į {ü ¤ }Į{ü ¤ ~zŃ_ ¤ Į ~ ¤ } ¤ ¤ Į)dü ¤ Ö ¤ ¾cæ ¤
f l-46961e50d3-77¤ f l-46961e50d3-78¤
¤ Ę h ¤ [Ń_ŲŃŃŃŃįļõł
¤ Į ü ¤ Įü ¤ ÜŃ_ ¤ Į4 ¤ ¤ ¤ g t-46961e50d3-67¤ ¤ f l-46961e50d3-7c¤ ¤ Ę\ ¤ [Ń_ŲŃŃŃŃįļõł
¤ ĮĀü ¤ Ń_ŲŃöŃŃŃżŃAD ¤ Į ü ¤ ¤ ĮCü ¤ ĮĘü ¤ ĮČü ¤ ¤ ÜŃ_ ¤ Į“ ¤ ¤ ”ĮKü ¤ ¢Ń_ ¤ £Į ¢ ¤ ¤”£ ¤ „ĮŅü ¤ ¦Įü ¤ §Į( ¤ ئ§ ¤ ©„Ø ¤ Ŗ ¤© ¤ «Ŗ ¤ ¬ÜŃ_ ¤ ĮY¬ ¤ ®g %time-second-procedure¤ Æg m-46961e50d3-83¤ °ÆÄ ¤ ±° ¤ ²f l-46961e50d3-85¤ ³² ¤ “ĘÓ±³ ¤ µ°Ń“ŲŃŃŃŃįļõł ¤ ¶Į×µü ¤ ·Ö¶ ¤ ø·æ ¤ ¹ Ń“ŲŃöŃŃŃżŃAD ¤ ŗĮā¹ü ¤ »Öŗ ¤ ¼¾ø»æ ¤ ½°° ¤ ¾f l-46961e50d3-88¤ æf l-46961e50d3-89¤ Ą¾æ ¤ ĮĘ ½Ą ¤ Ā°ĮŃ“ŲŃŃŃŃįļõł
¤ ĆĮ Āü ¤ ÄĮĀü ¤ ÅÜĮŃ“ ¤ ĘĮ“Å ¤ ĒÄĘ ¤ ČĒ ¤ ÉĮ¹ü ¤ ŹÖÉ ¤ Ė¾øŹæ ¤ Ģf l-46961e50d3-8d¤ Ķf l-46961e50d3-8e¤ ĪĢĶ ¤ ĻĘ ½Ī ¤ Š°ĻŃ“ŲŃŃŃŃįļõł
¤ ŃĮ Šü ¤ ŅĮŠü ¤ ÓĻŃ“ ¤ ŌĮ Ó ¤ ÕŅŌ ¤ ÖÕ ¤ ×Į)¹ü ¤ ŲÖ× ¤ Ł¾øŲæ ¤ Śf l-46961e50d3-92¤ Ūf l-46961e50d3-93¤ ÜŚŪ ¤ ŻĘ ½Ü ¤ Ž°ŻŃ“ŲŃŃŃŃįļõł
¤ ßĮ Žü ¤ ąĮŽü ¤ įÜŻŃ“ ¤ āĮ4į ¤ ćąā ¤ äć ¤ åg t-46961e50d3-82¤ ęå ¤ ēf l-46961e50d3-97¤ čē ¤ éĘę±č ¤ ź°éŃ“ŲŃŃŃŃįļõł
¤ ėĮĀźü ¤ ģ éŃ“ŲŃöŃŃŃżŃAD ¤ ķĮ ģü ¤ īķ ¤ ļĮCģü ¤ šĮĘģü ¤ ńĮČģü ¤ ņńķ ¤ óÜéŃ“ ¤ ōĮ“ó ¤ õšņō ¤ öĮKģü ¤ ÷éŃ“ ¤ ųĮ ÷ ¤ łöķų ¤ śĮŅģü ¤ ūĮģü ¤ üĮ)ó ¤ żūü ¤ žśķż ¤ ’ļõłž ¤ ėī’ ¤ ÜŃ“ ¤ Į® ¤ g each¤ ææ ¤ ¤ æ¤ æ¤ æ¤ g %%set-fields¤
g dummy¤ g check?¤ g expr¤
÷ ¤ g m-46961e50d3-9e¤ Ä ¤ ¤ f l-46961e50d3-a3¤ f l-46961e50d3-a4¤ f l-46961e50d3-a5¤ f l-46961e50d3-a6¤ f l-46961e50d3-a7¤ ¤ Ę
¤ ¤ f l-46961e50d3-a0¤ ¤ ĘÓ ¤ g t-1e8ba8b5a-16a¤ g t-1e8ba8b5a-16c¤ g t-1e8ba8b5a-16b¤ ¤ g m-1e8ba8b5a-16d¤ ! Ä ¤ "!!! ¤ #f l-1e8ba8b5a-171¤ $f l-1e8ba8b5a-172¤ %f l-1e8ba8b5a-173¤ &#$% ¤ 'Ę "& ¤ (f l-1e8ba8b5a-167¤ )f l-1e8ba8b5a-168¤ *f l-1e8ba8b5a-169¤ +()* ¤ ,Ęž’+ ¤ - ŃŲŃ'ŃŃŃ,AD
¤ .Į -ü ¤ /ÜŃ ¤ 0Į“/ ¤ 1Į'/ ¤ 2Į(/ ¤ 3Į)/ ¤ 4123 ¤ 5g map¤ 65 ¤ 75 ¤ 8g list¤ 9g %set-time-type!-procedure¤ :¾ææ ¤ ;g m-46961e50d3-b2¤ <;Ä ¤ =g t-46961e50d3-b0¤ >g t-46961e50d3-b1¤ ?=> ¤ @<< ¤ Af l-46961e50d3-b7¤ Bf l-46961e50d3-b8¤ CAB ¤ DĘ?@C ¤ E< ¤ Ff l-46961e50d3-b4¤ GF ¤ HĘÓEG ¤ I<DŃHŲŃŃŃŃįļõł
¤ JĮĀIü ¤ Kg t-1e8ba8b5a-18c¤ Lg t-1e8ba8b5a-18d¤ MKL ¤ Ng m-1e8ba8b5a-18e¤ ONÄ ¤ POO ¤ Qf l-1e8ba8b5a-192¤ Rf l-1e8ba8b5a-193¤ SQR ¤ TĘMPS ¤ Ug setter¤ Vä÷U ¤ Wf l-1e8ba8b5a-186¤ Xf l-1e8ba8b5a-187¤ Yf l-1e8ba8b5a-188¤ ZWXY ¤ [ĘV’Z ¤ \³ų ¤ ]f l-1e8ba8b5a-17d¤ ^f l-1e8ba8b5a-17e¤ _]^ ¤ `Ę\Ż_ ¤ ag field-specs¤ b#a ¤ cf l-1e8ba8b5a-179¤ df l-1e8ba8b5a-17a¤ ecd ¤ fĘbŻe ¤ g DŃHŲŃT[Ń`ŃfAD ¤ hĮ gü ¤ ig val¤ jĮigü ¤ khj ¤ lĮCgü ¤ mĮĘgü ¤ nĮČgü ¤ onh ¤ pÜDŃH ¤ qĮ“p ¤ rmoq ¤ sg struct-set!¤ tĮsgü ¤ uDŃH ¤ vĮ
u ¤ wthvj ¤ xĮŅgü ¤ yĮgü ¤ zĮ*p ¤ {yz ¤ |xh{ ¤ }lrw| ¤ ~Jk} ¤ ÜŃH ¤ Į9 ¤ g %set-time-nanosecond!-procedure¤ g m-46961e50d3-c2¤ Ä ¤ g t-46961e50d3-c0¤
g t-46961e50d3-c1¤
¤ ¤ f l-46961e50d3-c7¤ f l-46961e50d3-c8¤ ¤ Ę ¤ ¤ f l-46961e50d3-c4¤ ¤ ĘÓ ¤ ŃŲŃŃŃŃįļõł
¤ ĮĀü ¤ ŃŲŃT[Ń`ŃfAD ¤ Į ü ¤ Įiü ¤ ¤ ĮCü ¤ ĮĘü ¤ ĮČü ¤ ¤ ÜŃ ¤ Į“ ¤ ¤ Įsü ¤ Ń ¤ Į ¤ ¤ ”ĮŅü ¤ ¢Įü ¤ £Į+ ¤ ¤¢£ ¤ „”¤ ¤ ¦ „ ¤ §¦ ¤ ØÜŃ ¤ ©ĮØ ¤ Ŗg %set-time-second!-procedure¤ «g m-46961e50d3-d2¤ ¬«Ä ¤ g t-46961e50d3-d0¤ ®g t-46961e50d3-d1¤ Æ® ¤ °¬¬ ¤ ±f l-46961e50d3-d7¤ ²f l-46961e50d3-d8¤ ³±² ¤ “ĘÆ°³ ¤ µ¬ ¤ ¶f l-46961e50d3-d4¤ ·¶ ¤ øĘÓµ· ¤ ¹¬“ŃøŲŃŃŃŃįļõł
¤ ŗĮĀ¹ü ¤ » “ŃøŲŃT[Ń`ŃfAD ¤ ¼Į »ü ¤ ½Įi»ü ¤ ¾¼½ ¤ æĮC»ü ¤ ĄĮĘ»ü ¤ ĮĮČ»ü ¤ ĀĮ¼ ¤ ĆÜ“Ńø ¤ ÄĮ“Ć ¤ ÅĄĀÄ ¤ ĘĮs»ü ¤ Ē“Ńø ¤ ČĮ Ē ¤ ÉĘ¼Č½ ¤ ŹĮŅ»ü ¤ ĖĮ»ü ¤ ĢĮ,Ć ¤ ĶĖĢ ¤ ĪŹ¼Ķ ¤ ĻæÅÉĪ ¤ Šŗ¾Ļ ¤ ŃÜŃø ¤ ŅĮŖŃ ¤ Óg integer?¤ Ōg truncate¤ Õg
split-real¤ Ög abs¤ ×g time-normalize!¤ Ųg mktime¤ Łg
set-tm:sec¤ Śg
set-tm:min¤ Ūg set-tm:hour¤ Üg set-tm:mday¤ Żg
set-tm:mon¤ Žg set-tm:year¤ ßg set-tm:isdst¤ ąg
set-tm:gmtoff¤ įg date->broken-down-time¤ āg gettimeofday¤ ćg current-time-utc¤ äg current-time-tai¤ åg current-time-monotonic¤ ęg unsupported-clock-type¤ ēg current-time-thread¤ čg internal-time-units-per-second¤ ég ns-per-guile-tick¤ źg get-internal-run-time¤ ėg current-time-process¤ ģg invalid-clock-type¤ ķg not-duration¤ īg incompatible-time-types¤ ļg priv:time-tai->time-utc!¤ šg priv:time-utc->time-tai!¤ ńg date¤ ņg %make-date-procedure¤ ó¾ææææææææ ¤ ōg m-46961e50d3-343¤ õōÄ ¤ ög t-46961e50d3-33b¤ ÷g t-46961e50d3-33c¤ ųg t-46961e50d3-33d¤ łg t-46961e50d3-33e¤ śg t-46961e50d3-33f¤ ūg t-46961e50d3-340¤ üg t-46961e50d3-341¤ żg t-46961e50d3-342¤ žö÷ųłśūüż ¤ ’õõõõõõõõ ¤ f l-46961e50d3-348¤ f l-46961e50d3-349¤ f l-46961e50d3-34a¤ f l-46961e50d3-34b¤ f l-46961e50d3-34c¤ f l-46961e50d3-34d¤ f l-46961e50d3-34e¤ f l-46961e50d3-34f¤ ¤ Ęž’ ¤
õ ¤ f l-46961e50d3-345¤ ¤
ĘÓ
¤ õ Ń
ŲŃŃŃŃįļõł
¤ ĮĀü ¤ Ü Ń
¤ Į ¤ Į ¤ g minute¤ Į ¤ g hour¤ Į ¤ g day¤ Į ¤ g month¤ Į ¤ g year¤ Į ¤ g zone-offset¤ Į ¤ ¤ g m-46961e50d3-339¤ ! Ä ¤ "! Ń
ŲŃŃŃŃ!Ń-AD ¤ #Į"ü ¤ $Įń ¤ %Į
"ü ¤ &#$% ¤ ' & ¤ (ÜŃ
¤ )Įņ( ¤ *g pwpwpwpwpwpwpwpw¤ + ¤ ,g %date?-procedure¤ -g m-46961e50d3-35e¤ .-Ä ¤ /g t-46961e50d3-35d¤ 0/ ¤ 1. ¤ 2f l-46961e50d3-363¤ 32 ¤ 4Ę013 ¤ 5f l-46961e50d3-360¤ 65 ¤ 7ĘÓ16 ¤ 8.4Ń7ŲŃŃŃŃįļõł
¤ 9ĮĀ8ü ¤ :!4Ń7ŲŃŃŃŃŃŃŃŃŃ¢Ń§Ń¬Ń±½AD ¤ ;Įv:ü ¤ <; ¤ =ĮĮ:ü ¤ >ĮĆ:ü ¤ ?>; ¤ @ĮĘ:ü ¤ AĮČ:ü ¤ BA; ¤ CÜ4Ń7 ¤ DĮńC ¤ E@BD ¤ F=?E ¤ G9<F ¤ HÜŃ7 ¤ IĮ,H ¤ Jg %date-nanosecond-procedure¤ Kg m-46961e50d3-36a¤ LKÄ ¤ ML ¤ Nf l-46961e50d3-36c¤ ON ¤ PĘÓMO ¤ QLŃPŲŃŃŃŃįļõł ¤ RĮ×Qü ¤ SÖR ¤ TSæ ¤ U!ŃPŲŃöŃŃŃżŃAD ¤ VĮāUü ¤ WÖV ¤ X¾TWæ ¤ YLL ¤ Zf l-46961e50d3-36f¤ [f l-46961e50d3-370¤ \Z[ ¤ ]Ę Y\ ¤ ^L]ŃPŲŃŃŃŃįļõł
¤ _Į ^ü ¤ `Į^ü ¤ aÜ]ŃP ¤ bĮńa ¤ c`b ¤ dc ¤ eĮUü ¤ fÖe ¤ g¾Tfæ ¤ hf l-46961e50d3-374¤ if l-46961e50d3-375¤ jhi ¤ kĘ Yj ¤ lLkŃPŲŃŃŃŃįļõł
¤ mĮ lü ¤ nĮlü ¤ okŃP ¤ pĮ
o ¤ qnp ¤ rq ¤ sĮ)Uü ¤ tÖs ¤ u¾Ttæ ¤ vf l-46961e50d3-379¤ wf l-46961e50d3-37a¤ xvw ¤ yĘ Yx ¤ zLyŃPŲŃŃŃŃįļõł
¤ {Į zü ¤ |Įzü ¤ }g %%date-set-fields¤ ~ÜyŃP ¤ Į}~ ¤ | ¤ ¤ g t-46961e50d3-369¤ ¤ f l-46961e50d3-37e¤
¤ ĘM
¤ LŃPŲŃŃŃŃįļõł
¤ ĮĀü ¤ !ŃPŲŃöŃŃŃżŃAD ¤ Į ü ¤ ¤ ĮCü ¤ ĮĘü ¤ ĮČü ¤ ¤ ÜŃP ¤ Įń ¤ ¤ ĮKü ¤ ŃP ¤ Į
¤ ¤ ĮŅü ¤ Įü ¤ Į; ¤ ¤ ¤ ¤ ¤ ÜŃP ¤ ĮJ ¤ g %date-second-procedure¤ ”g m-46961e50d3-385¤ ¢”Ä ¤ £¢ ¤ ¤f l-46961e50d3-387¤ „¤ ¤ ¦ĘÓ£„ ¤ §¢Ń¦ŲŃŃŃŃįļõł ¤ ØĮקü ¤ ©ÖØ ¤ Ŗ©æ ¤ «!ѦŲŃöŃŃŃżŃAD ¤ ¬Įā«ü ¤ Ö¬ ¤ ®¾Ŗæ ¤ Æ¢¢ ¤ °f l-46961e50d3-38a¤ ±f l-46961e50d3-38b¤ ²°± ¤ ³Ę Ʋ ¤ “¢³Ń¦ŲŃŃŃŃįļõł
¤ µĮ “ü ¤ ¶Į“ü ¤ ·Ü³Ń¦ ¤ øĮń· ¤ ¹¶ø ¤ ŗ¹ ¤ »Į«ü ¤ ¼Ö» ¤ ½¾Ŗ¼æ ¤ ¾f l-46961e50d3-38f¤ æf l-46961e50d3-390¤ Ą¾æ ¤ ĮĘ ÆĄ ¤ Ā¢ĮѦŲŃŃŃŃįļõł
¤ ĆĮ Āü ¤ ÄĮĀü ¤ ÅĮѦ ¤ ĘĮ Å ¤ ĒÄĘ ¤ ČĒ ¤ ÉĮ)«ü ¤ ŹÖÉ ¤ Ė¾ŖŹæ ¤ Ģf l-46961e50d3-394¤ Ķf l-46961e50d3-395¤ ĪĢĶ ¤ ĻĘ ÆĪ ¤ Š¢ĻѦŲŃŃŃŃįļõł
¤ ŃĮ Šü ¤ ŅĮŠü ¤ ÓÜĻѦ ¤ ŌĮ}Ó ¤ ÕŅŌ ¤ ÖÕ ¤ ×g t-46961e50d3-384¤ Ų× ¤ Łf l-46961e50d3-399¤ ŚŁ ¤ ŪĘŲ£Ś ¤ Ü¢ŪѦŲŃŃŃŃįļõł
¤ ŻĮĀÜü ¤ Ž!ŪѦŲŃöŃŃŃżŃAD ¤ ßĮ Žü ¤ ąß ¤ įĮCŽü ¤ āĮĘŽü ¤ ćĮČŽü ¤ äćß ¤ åÜŪѦ ¤ ęĮńå ¤ ēāäę ¤ čĮKŽü ¤ éŪѦ ¤ źĮ é ¤ ėčßź ¤ ģĮŅŽü ¤ ķĮŽü ¤ īĮ<å ¤ ļķī ¤ šģßļ ¤ ńįēėš ¤ ņŻąń ¤ óÜѦ ¤ ōĮ ó ¤ õg %date-minute-procedure¤ ög m-46961e50d3-3a0¤ ÷öÄ ¤ ų÷ ¤ łf l-46961e50d3-3a2¤ śł ¤ ūĘÓųś ¤ ü÷ŃūŲŃŃŃŃįļõł ¤ żĮ×üü ¤ žÖż ¤ ’žæ ¤ !ŃūŲŃöŃŃŃżŃAD ¤ Įā ü ¤ Ö ¤ ¾’æ ¤ ÷÷ ¤ f l-46961e50d3-3a5¤ f l-46961e50d3-3a6¤ ¤ Ę ¤ ÷ŃūŲŃŃŃŃįļõł
¤
Į ü ¤ Į ü ¤ ÜŃū ¤
Įń ¤
¤ ¤ Į ü ¤ Ö ¤ ¾’æ ¤ f l-46961e50d3-3aa¤ f l-46961e50d3-3ab¤ ¤ Ę ¤ ÷ŃūŲŃŃŃŃįļõł
¤ Į ü ¤ Įü ¤ Ńū ¤ Į ¤ ¤ ¤ Į) ü ¤ Ö ¤ ¾’ æ ¤ !f l-46961e50d3-3af¤ "f l-46961e50d3-3b0¤ #!" ¤ $Ę # ¤ %÷$ŃūŲŃŃŃŃįļõł
¤ &Į %ü ¤ 'Į%ü ¤ (Ü$Ńū ¤ )Į}( ¤ *') ¤ +* ¤ ,g t-46961e50d3-39f¤ -, ¤ .f l-46961e50d3-3b4¤ /. ¤ 0Ę-ų/ ¤ 1÷0ŃūŲŃŃŃŃįļõł
¤ 2ĮĀ1ü ¤ 3!0ŃūŲŃöŃŃŃżŃAD ¤ 4Į 3ü ¤ 54 ¤ 6ĮC3ü ¤ 7ĮĘ3ü ¤ 8ĮČ3ü ¤ 984 ¤ :Ü0Ńū ¤ ;Įń: ¤ <79; ¤ =ĮK3ü ¤ >0Ńū ¤ ?Į > ¤ @=4? ¤ AĮŅ3ü ¤ BĮ3ü ¤ CĮ=: ¤ DBC ¤ EA4D ¤ F6<@E ¤ G25F ¤ HÜŃū ¤ IĮõH ¤ Jg %date-hour-procedure¤ Kg m-46961e50d3-3bb¤ LKÄ ¤ ML ¤ Nf l-46961e50d3-3bd¤ ON ¤ PĘÓMO ¤ QLŃPŲŃŃŃŃįļõł ¤ RĮ×Qü ¤ SÖR ¤ TSæ ¤ U!ŃPŲŃöŃŃŃżŃAD ¤ VĮāUü ¤ WÖV ¤ X¾TWæ ¤ YLL ¤ Zf l-46961e50d3-3c0¤ [f l-46961e50d3-3c1¤ \Z[ ¤ ]Ę Y\ ¤ ^L]ŃPŲŃŃŃŃįļõł
¤ _Į ^ü ¤ `Į^ü ¤ aÜ]ŃP ¤ bĮńa ¤ c`b ¤ dc ¤ eĮUü ¤ fÖe ¤ g¾Tfæ ¤ hf l-46961e50d3-3c5¤ if l-46961e50d3-3c6¤ jhi ¤ kĘ Yj ¤ lLkŃPŲŃŃŃŃįļõł
¤ mĮ lü ¤ nĮlü ¤ okŃP ¤ pĮ o ¤ qnp ¤ rq ¤ sĮ)Uü ¤ tÖs ¤ u¾Ttæ ¤ vf l-46961e50d3-3ca¤ wf l-46961e50d3-3cb¤ xvw ¤ yĘ Yx ¤ zLyŃPŲŃŃŃŃįļõł
¤ {Į zü ¤ |Įzü ¤ }ÜyŃP ¤ ~Į}} ¤ |~ ¤ ¤ g t-46961e50d3-3ba¤ ¤ f l-46961e50d3-3cf¤ ¤
ĘM ¤ L
ŃPŲŃŃŃŃįļõł
¤ ĮĀü ¤ !
ŃPŲŃöŃŃŃżŃAD ¤ Į ü ¤ ¤ ĮCü ¤ ĮĘü ¤ ĮČü ¤ ¤ Ü
ŃP ¤ Įń ¤ ¤ ĮKü ¤
ŃP ¤ Į ¤ ¤ ĮŅü ¤ Įü ¤ Į> ¤ ¤ ¤ ¤ ¤ ÜŃP ¤ ĮJ ¤ g %date-day-procedure¤ g m-46961e50d3-3d6¤ ” Ä ¤ ¢” ¤ £f l-46961e50d3-3d8¤ ¤£ ¤ „ĘÓ¢¤ ¤ ¦”Ń„ŲŃŃŃŃįļõł ¤ §Įצü ¤ ØÖ§ ¤ ©Øæ ¤ Ŗ!Ń„ŲŃöŃŃŃżŃAD ¤ «ĮāŖü ¤ ¬Ö« ¤ ¾©¬æ ¤ ®”” ¤ Æf l-46961e50d3-3db¤ °f l-46961e50d3-3dc¤ ±Æ° ¤ ²Ę ®± ¤ ³”²Ń„ŲŃŃŃŃįļõł
¤ “Į ³ü ¤ µĮ³ü ¤ ¶Ü²Ń„ ¤ ·Įń¶ ¤ øµ· ¤ ¹ø ¤ ŗĮŖü ¤ »Öŗ ¤ ¼¾©»æ ¤ ½f l-46961e50d3-3e0¤ ¾f l-46961e50d3-3e1¤ æ½¾ ¤ ĄĘ ®æ ¤ Į”ĄŃ„ŲŃŃŃŃįļõł
¤ ĀĮ Įü ¤ ĆĮĮü ¤ ÄĄŃ„ ¤ ÅĮ Ä ¤ ĘĆÅ ¤ ĒĘ ¤ ČĮ)Ŗü ¤ ÉÖČ ¤ Ź¾©Éæ ¤ Ėf l-46961e50d3-3e5¤ Ģf l-46961e50d3-3e6¤ ĶĖĢ ¤ ĪĘ ®Ķ ¤ Ļ”ĪŃ„ŲŃŃŃŃįļõł
¤ ŠĮ Ļü ¤ ŃĮĻü ¤ ŅÜĪŃ„ ¤ ÓĮ}Ņ ¤ ŌŃÓ ¤ ÕŌ ¤ Ög t-46961e50d3-3d5¤ ×Ö ¤ Ųf l-46961e50d3-3ea¤ ŁŲ ¤ ŚĘ×¢Ł ¤ Ū”ŚŃ„ŲŃŃŃŃįļõł
¤ ÜĮĀŪü ¤ Ż!ŚŃ„ŲŃöŃŃŃżŃAD ¤ ŽĮ Żü ¤ ߎ ¤ ąĮCŻü ¤ įĮĘŻü ¤ āĮČŻü ¤ ćāŽ ¤ äÜŚŃ„ ¤ åĮńä ¤ ęįćå ¤ ēĮKŻü ¤ čŚŃ„ ¤ éĮ č ¤ źēŽé ¤ ėĮŅŻü ¤ ģĮŻü ¤ ķĮ?ä ¤ īģķ ¤ ļėŽī ¤ šąęźļ ¤ ńÜßš ¤ ņÜŃ„ ¤ óĮņ ¤ ōg %date-month-procedure¤ õg m-46961e50d3-3f1¤ öõÄ ¤ ÷ö ¤ ųf l-46961e50d3-3f3¤ łų ¤ śĘÓ÷ł ¤ ūöŃśŲŃŃŃŃįļõł ¤ üĮ×ūü ¤ żÖü ¤ žżæ ¤ ’!ŃśŲŃöŃŃŃżŃAD ¤ Įā’ü ¤ Ö ¤ ¾žæ ¤ öö ¤ f l-46961e50d3-3f6¤ f l-46961e50d3-3f7¤ ¤ Ę ¤ öŃśŲŃŃŃŃįļõł
¤ Į ü ¤
Įü ¤ ÜŃś ¤ Įń ¤
¤
¤ Į’ü ¤ Ö ¤ ¾žæ ¤ f l-46961e50d3-3fb¤ f l-46961e50d3-3fc¤ ¤ Ę ¤ öŃśŲŃŃŃŃįļõł
¤ Į ü ¤ Įü ¤ Ńś ¤ Į ¤ ¤ ¤ Į)’ü ¤ Ö ¤ ¾ž æ ¤ f l-46961e50d3-400¤ !f l-46961e50d3-401¤ " ! ¤ #Ę " ¤ $ö#ŃśŲŃŃŃŃįļõł
¤ %Į $ü ¤ &Į$ü ¤ 'Ü#Ńś ¤ (Į}' ¤ )&( ¤ *) ¤ +g t-46961e50d3-3f0¤ ,+ ¤ -f l-46961e50d3-405¤ .- ¤ /Ę,÷. ¤ 0ö/ŃśŲŃŃŃŃįļõł
¤ 1ĮĀ0ü ¤ 2!/ŃśŲŃöŃŃŃżŃAD ¤ 3Į 2ü ¤ 43 ¤ 5ĮC2ü ¤ 6ĮĘ2ü ¤ 7ĮČ2ü ¤ 873 ¤ 9Ü/Ńś ¤ :Įń9 ¤ ;68: ¤ <ĮK2ü ¤ =/Ńś ¤ >Į = ¤ ?<3> ¤ @ĮŅ2ü ¤ AĮ2ü ¤ BĮ@9 ¤ CAB ¤ D@3C ¤ E5;?D ¤ F14E ¤ GÜŃś ¤ HĮōG ¤ Ig %date-year-procedure¤ Jg m-46961e50d3-40c¤ KJÄ ¤ LK ¤ Mf l-46961e50d3-40e¤ NM ¤ OĘÓLN ¤ PKŃOŲŃŃŃŃįļõł ¤ QĮ×Pü ¤ RÖQ ¤ SRæ ¤ T!ŃOŲŃöŃŃŃżŃAD ¤ UĮāTü ¤ VÖU ¤ W¾SVæ ¤ XKK ¤ Yf l-46961e50d3-411¤ Zf l-46961e50d3-412¤ [YZ ¤ \Ę X[ ¤ ]K\ŃOŲŃŃŃŃįļõł
¤ ^Į ]ü ¤ _Į]ü ¤ `Ü\ŃO ¤ aĮń` ¤ b_a ¤ cb ¤ dĮTü ¤ eÖd ¤ f¾Seæ ¤ gf l-46961e50d3-416¤ hf l-46961e50d3-417¤ igh ¤ jĘ Xi ¤ kKjŃOŲŃŃŃŃįļõł
¤ lĮ kü ¤ mĮkü ¤ njŃO ¤ oĮ n ¤ pmo ¤ qp ¤ rĮ)Tü ¤ sÖr ¤ t¾Ssæ ¤ uf l-46961e50d3-41b¤ vf l-46961e50d3-41c¤ wuv ¤ xĘ Xw ¤ yKxŃOŲŃŃŃŃįļõł
¤ zĮ yü ¤ {Įyü ¤ |ÜxŃO ¤ }Į}| ¤ ~{} ¤ ~ ¤ g t-46961e50d3-40b¤ ¤ f l-46961e50d3-420¤ ¤ ĘL ¤
KŃOŲŃŃŃŃįļõł
¤ ĮĀ
ü ¤ !ŃOŲŃöŃŃŃżŃAD ¤ Į ü ¤ ¤ ĮCü ¤ ĮĘü ¤ ĮČü ¤ ¤ ÜŃO ¤ Įń ¤ ¤ ĮKü ¤ ŃO ¤ Į ¤ ¤ ĮŅü ¤ Įü ¤ ĮA ¤ ¤ ¤ ¤ ¤ ÜŃO ¤ ĮI ¤ g %date-zone-offset-procedure¤ g m-46961e50d3-427¤ Ä ¤ ” ¤ ¢f l-46961e50d3-429¤ £¢ ¤ ¤ĘÓ”£ ¤ „ ѤŲŃŃŃŃįļõł ¤ ¦Įׄü ¤ §Ö¦ ¤ Ø§æ ¤ ©!ѤŲŃöŃŃŃżŃAD ¤ ŖĮā©ü ¤ «ÖŖ ¤ ¬¾Ø«æ ¤ ¤ ®f l-46961e50d3-42c¤ Æf l-46961e50d3-42d¤ °®Æ ¤ ±Ę ° ¤ ² ±Ń¤ŲŃŃŃŃįļõł
¤ ³Į ²ü ¤ “Į²ü ¤ µÜ±Ń¤ ¤ ¶Įńµ ¤ ·“¶ ¤ ø· ¤ ¹Į©ü ¤ ŗÖ¹ ¤ »¾Øŗæ ¤ ¼f l-46961e50d3-431¤ ½f l-46961e50d3-432¤ ¾¼½ ¤ æĘ ¾ ¤ Ą æѤŲŃŃŃŃįļõł
¤ ĮĮ Ąü ¤ ĀĮĄü ¤ ĆæѤ ¤ ÄĮ Ć ¤ ÅĀÄ ¤ ĘÅ ¤ ĒĮ)©ü ¤ ČÖĒ ¤ ɾØČæ ¤ Źf l-46961e50d3-436¤ Ėf l-46961e50d3-437¤ ĢŹĖ ¤ ĶĘ Ģ ¤ Ī ĶѤŲŃŃŃŃįļõł
¤ ĻĮ Īü ¤ ŠĮĪü ¤ ŃÜĶѤ ¤ ŅĮ}Ń ¤ ÓŠŅ ¤ ŌÓ ¤ Õg t-46961e50d3-426¤ ÖÕ ¤ ×f l-46961e50d3-43b¤ Ų× ¤ ŁĘÖ”Ų ¤ Ś ŁŃ¤ŲŃŃŃŃįļõł
¤ ŪĮĀŚü ¤ Ü!ŁŃ¤ŲŃöŃŃŃżŃAD ¤ ŻĮ Üü ¤ ŽŻ ¤ ßĮCÜü ¤ ąĮĘÜü ¤ įĮČÜü ¤ āįŻ ¤ ćܣѤ ¤ äĮńć ¤ åąāä ¤ ęĮKÜü ¤ ēŁŃ¤ ¤ čĮ ē ¤ éęŻč ¤ źĮŅÜü ¤ ėĮÜü ¤ ģĮBć ¤ ķėģ ¤ īźŻķ ¤ ļßåéī ¤ šŪŽļ ¤ ńÜѤ ¤ ņĮń ¤ óg m-46961e50d3-442¤ ōóÄ ¤ õō!!!! ¤ öf l-46961e50d3-447¤ ÷f l-46961e50d3-448¤ ųf l-46961e50d3-449¤ łf l-46961e50d3-44a¤ śf l-46961e50d3-44b¤ ūö÷ųłś ¤ üĘ
õū ¤ żō ¤ žf l-46961e50d3-444¤ ’ž ¤ ĘÓż’ ¤ !üŃ ŲŃ'ŃŃŃ,AD
¤ Į ü ¤ ÜüŃ ¤ Įń ¤ Į; ¤ Į< ¤ Į= ¤ Į> ¤ Į? ¤
Į@ ¤ ĮA ¤ ĮB ¤
¤ g set-date-nanosecond!¤ g %set-date-nanosecond!-procedure¤ g m-46961e50d3-456¤ Ä ¤ g t-46961e50d3-454¤ g t-46961e50d3-455¤ ¤ ¤ f l-46961e50d3-45b¤ f l-46961e50d3-45c¤ ¤ Ę ¤ ¤ f l-46961e50d3-458¤ ¤ ĘÓ ¤ Ń ŲŃŃŃŃįļõł
¤ ĮĀ ü ¤ !Ń ŲŃT[Ń`ŃfAD ¤ !Į ü ¤ "Įi ü ¤ #!" ¤ $ĮC ü ¤ %ĮĘ ü ¤ &ĮČ ü ¤ '&! ¤ (ÜŃ ¤ )Įń( ¤ *%') ¤ +Įs ü ¤ ,Ń ¤ -Į
, ¤ .+!-" ¤ /ĮŅ ü ¤ 0Į ü ¤ 1Į( ¤ 201 ¤ 3/!2 ¤ 4$*.3 ¤ 5 #4 ¤ 6ÜŃ ¤ 7Į6 ¤ 8g set-date-second!¤ 9g %set-date-second!-procedure¤ :g m-46961e50d3-466¤ ;:Ä ¤ <= ¤ ?;; ¤ @f l-46961e50d3-46b¤ Af l-46961e50d3-46c¤ B@A ¤ CĘ>?B ¤ D; ¤ Ef l-46961e50d3-468¤ FE ¤ GĘÓDF ¤ H;CŃGŲŃŃŃŃįļõł
¤ IĮĀHü ¤ J!CŃGŲŃT[Ń`ŃfAD ¤ KĮ Jü ¤ LĮiJü ¤ MKL ¤ NĮCJü ¤ OĮĘJü ¤ PĮČJü ¤ QPK ¤ RÜCŃG ¤ SĮńR ¤ TOQS ¤ UĮsJü ¤ VCŃG ¤ WĮ V ¤ XUKWL ¤ YĮŅJü ¤ ZĮJü ¤ [Į8R ¤ \Z[ ¤ ]YK\ ¤ ^NTX] ¤ _IM^ ¤ `ÜŃG ¤ aĮ9` ¤ bg set-date-minute!¤ cg %set-date-minute!-procedure¤ dg m-46961e50d3-476¤ edÄ ¤ fg t-46961e50d3-474¤ gg t-46961e50d3-475¤ hfg ¤ iee ¤ jf l-46961e50d3-47b¤ kf l-46961e50d3-47c¤ ljk ¤ mĘhil ¤ ne ¤ of l-46961e50d3-478¤ po ¤ qĘÓnp ¤ remŃqŲŃŃŃŃįļõł
¤ sĮĀrü ¤ t!mŃqŲŃT[Ń`ŃfAD ¤ uĮ tü ¤ vĮitü ¤ wuv ¤ xĮCtü ¤ yĮĘtü ¤ zĮČtü ¤ {zu ¤ |ÜmŃq ¤ }Įń| ¤ ~y{} ¤ Įstü ¤ mŃq ¤ Į ¤ uv ¤ ĮŅtü ¤ Įtü ¤
Įb| ¤
¤ u ¤ x~ ¤ sw ¤ ÜŃq ¤ Įc ¤ g set-date-hour!¤ g %set-date-hour!-procedure¤ g m-46961e50d3-486¤ Ä ¤ g t-46961e50d3-484¤ g t-46961e50d3-485¤ ¤ ¤ f l-46961e50d3-48b¤ f l-46961e50d3-48c¤ ¤ Ę ¤ ¤ f l-46961e50d3-488¤ ¤ ĘÓ ¤ ŃŲŃŃŃŃįļõł
¤ ĮĀü ¤ !ŃŲŃT[Ń`ŃfAD ¤ Į ü ¤ Įiü ¤ ” ¤ ¢ĮCü ¤ £ĮĘü ¤ ¤ĮČü ¤ „¤ ¤ ¦ÜŃ ¤ §Įń¦ ¤ Ø£„§ ¤ ©Įsü ¤ ŖŃ ¤ «Į Ŗ ¤ ¬©« ¤ ĮŅü ¤ ®Įü ¤ ÆĮ¦ ¤ °®Æ ¤ ±° ¤ ²¢Ø¬± ¤ ³”² ¤ “ÜŃ ¤ µĮ“ ¤ ¶g
set-date-day!¤ ·g %set-date-day!-procedure¤ øg m-46961e50d3-496¤ ¹øÄ ¤ ŗg t-46961e50d3-494¤ »g t-46961e50d3-495¤ ¼ŗ» ¤ ½¹¹ ¤ ¾f l-46961e50d3-49b¤ æf l-46961e50d3-49c¤ Ą¾æ ¤ ĮĘ¼½Ą ¤ Ā¹ ¤ Ćf l-46961e50d3-498¤ ÄĆ ¤ ÅĘÓĀÄ ¤ Ę¹ĮŃÅŲŃŃŃŃįļõł
¤ ĒĮĀĘü ¤ Č!ĮŃÅŲŃT[Ń`ŃfAD ¤ ÉĮ Čü ¤ ŹĮiČü ¤ ĖÉŹ ¤ ĢĮCČü ¤ ĶĮĘČü ¤ ĪĮČČü ¤ ĻĪÉ ¤ ŠÜĮŃÅ ¤ ŃĮńŠ ¤ ŅĶĻŃ ¤ ÓĮsČü ¤ ŌĮŃÅ ¤ ÕĮ Ō ¤ ÖÓÉÕŹ ¤ ×ĮŅČü ¤ ŲĮČü ¤ ŁĮ¶Š ¤ ŚŲŁ ¤ Ū×ÉŚ ¤ ÜĢŅÖŪ ¤ ŻĒĖÜ ¤ ŽÜŃÅ ¤ ßĮ·Ž ¤ ąg set-date-month!¤ įg %set-date-month!-procedure¤ āg m-46961e50d3-4a6¤ ćāÄ ¤ äg t-46961e50d3-4a4¤ åg t-46961e50d3-4a5¤ ęäå ¤ ēćć ¤ čf l-46961e50d3-4ab¤ éf l-46961e50d3-4ac¤ źčé ¤ ėĘęēź ¤ ģć ¤ ķf l-46961e50d3-4a8¤ īķ ¤ ļĘÓģī ¤ šćėŃļŲŃŃŃŃįļõł
¤ ńĮĀšü ¤ ņ!ėŃļŲŃT[Ń`ŃfAD ¤ óĮ ņü ¤ ōĮiņü ¤ õóō ¤ öĮCņü ¤ ÷ĮĘņü ¤ ųĮČņü ¤ łųó ¤ śÜėŃļ ¤ ūĮńś ¤ ü÷łū ¤ żĮsņü ¤ žėŃļ ¤ ’Į ž ¤ żó’ō ¤ ĮŅņü ¤ Įņü ¤ Įąś ¤ ¤ ó ¤ öü ¤ ńõ ¤ ÜŃļ ¤ Įį ¤
g set-date-year!¤ g %set-date-year!-procedure¤ g m-46961e50d3-4b6¤
Ä ¤ g t-46961e50d3-4b4¤ g t-46961e50d3-4b5¤ ¤
¤ f l-46961e50d3-4bb¤ f l-46961e50d3-4bc¤ ¤ Ę ¤
¤ f l-46961e50d3-4b8¤ ¤ ĘÓ ¤
ŃŲŃŃŃŃįļõł
¤ ĮĀü ¤ !ŃŲŃT[Ń`ŃfAD ¤ Į ü ¤ Įi ü ¤ ¤ ĮC ü ¤ !ĮĘ ü ¤ "ĮČ ü ¤ #" ¤ $ÜŃ ¤ %Įń$ ¤ &!#% ¤ 'Įs ü ¤ (Ń ¤ )Į ( ¤ *' ) ¤ +ĮŅ ü ¤ ,Į ü ¤ -Į
$ ¤ .,- ¤ /+ . ¤ 0 &*/ ¤ 1 0 ¤ 2ÜŃ ¤ 3Į 2 ¤ 4g set-date-zone-offset!¤ 5g %set-date-zone-offset!-procedure¤ 6g m-46961e50d3-4c6¤ 76Ä ¤ 8g t-46961e50d3-4c4¤ 9g t-46961e50d3-4c5¤ :89 ¤ ;77 ¤ <= ¤ ?Ę:;> ¤ @7 ¤ Af l-46961e50d3-4c8¤ BA ¤ CĘÓ@B ¤ D7?ŃCŲŃŃŃŃįļõł
¤ EĮĀDü ¤ F!?ŃCŲŃT[Ń`ŃfAD ¤ GĮ Fü ¤ HĮiFü ¤ IGH ¤ JĮCFü ¤ KĮĘFü ¤ LĮČFü ¤ MLG ¤ NÜ?ŃC ¤ OĮńN ¤ PKMO ¤ QĮsFü ¤ R?ŃC ¤ SĮ R ¤ TQGSH ¤ UĮŅFü ¤ VĮFü ¤ WĮ4N ¤ XVW ¤ YUGX ¤ ZJPTY ¤ [EIZ ¤ \ÜŃC ¤ ]Į5\ ¤ ^g encode-julian-day-number¤ _g decode-julian-day-number¤ `g tm:gmtoff¤ ag localtime¤ bg local-tz-offset¤ cg time->julian-day-number¤ dg assoc¤ eg leap-second?¤ fg
time->date¤ gg round¤ he 1/2¤ ig
leap-year?¤ j
¤ k ¤ l ;¤ m Z¤ n x¤ o ¤ p µ¤ q Ō¤ r ó¤ s
¤ t 0¤ u N¤ vjklmnopqrstu ¤ wg month-assoc¤ xg invalid-month-specification¤ yg year-day¤ zg week-day¤ {g days-before-first-week¤ |g natural-year¤ }e -1/2¤ ~e 4800001/2¤ g number->string¤ g
string-length¤ g make-string¤ g padding¤ g expt¤ g
last-n-digits¤
g locale-day-short¤ g locale-abbr-weekday¤ g
locale-day¤ g locale-long-weekday¤ g locale-month-short¤ g locale-abbr-month¤ g locale-month¤ g locale-long-month¤ g date-reverse-lookup¤ g string=?¤ g locale-abbr-weekday->index¤ g locale-long-weekday->index¤ g locale-abbr-month->index¤ g locale-long-month->index¤ g
tz-printer¤ g locale-print-time-zone¤ g locale-pm-string¤ g locale-am-string¤ g locale-am-string/pm¤ g display¤ f Z¤ f -¤ f +¤ e 1.0¤ g locale-decimal-point¤ g substring¤ f ~b¤ g newline¤ ”f ~I:~M:~S ~p¤ ¢f ~Y-~m-~d¤ £f
~H:~M:~S~z¤ ¤f ~Y-~m-~dT~H:~M:~S¤ „g
directives¤ ¦g
get-formatter¤ §g
string-ref¤ Øg char=?¤ ©g date-printer¤ Ŗg bad-date-format-string¤ «g open-output-string¤ ¬f ~c¤ g get-output-string¤ ®g char->int¤ Æg bad-date-template-string¤ °f Non-integer character¤ ±g peek-char¤ ²g
char-numeric?¤ ³g read-char¤ “g integer-reader¤ µg make-integer-reader¤ ¶f !Premature ending to integer read.¤ ·f 'Non-numeric characters in integer read.¤ øg integer-reader-exact¤ ¹g make-integer-exact-reader¤ ŗf Invalid time zone +/-¤ »f Invalid time zone number¤ ¼g zone-reader¤ ½g char-alphabetic?¤ ¾g list->string¤ æg reverse!¤ Ąf Invalid string for ¤ Įg
locale-reader¤ Āg make-locale-reader¤ Ćf Invalid character match.¤ Äg make-char-id-reader¤ Åg read-directives¤ Ęg priv:string->date¤ Ēf Incomplete date read. ¤C 5 h8S ń ]@4
jkmns5 4v > " G 4wi4xi5 y> " G R R R R RRz{R|}R~RR ;Ź R QR ØĄR
R h0 å ]$ 6 6 Ż g caller
* g type * g value * g filenamef srfi/srfi-19.scm
¦
§ Ø
Ø Ø 9 Ø ©
" © ' © 5 * © * g nameg
time-error CRq hØ N ]94 5H " 45$ " ~444555 “$ 45
45JK" 4 5 "’’ 4 5 "’’sJC F g filename
¢ g port
¢ g table
¢ g line g data 6 g year ; g jd D g secs O g filenamef srfi/srfi-19.scm
“
¹
ŗ
¹ » ¼ ¼ " ¾ % ¾ ( æ , æ / 0 æ 8 2 æ 4 ¾ 6 ¾ 6 ¾ ; Ą ; ¾ @ Į ! A Į D ¾ I Ā ! L Ā O ¾ W Ć [ Ć \ ¶
e ¶ h ¶ i ø p Å s Ä u Ä z Ē Ē » » » ' ¢ g nameg read-tai-utc-data CR°±R± h ]4 5 C g filename
g filenamef srfi/srfi-19.scm
é
ź ź
g nameg read-leap-second-table C²R± h8 ł ] " $ C "’’ē Ś$
C "’’Š ń g utc-seconds
6 g table g filenamef srfi/srfi-19.scm
ķ
ī ļ )
ļ ļ š ń # ń ī $ ņ ( ņ , ņ 6 ó 6 g nameg leap-second-delta C³R“ h ° ] Ø C Ø g type
g
nanosecond g second g filenamef srfi/srfi-19.scm
ų
g nameg !%make-time-unnormalized-procedure CµR4ø¹ŗ½ĄJ h q ] C i g t-46961e50d3-2d
g t-46961e50d3-2e g t-46961e50d3-2f CLO¹P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm ų
C¾S h D ] L 6< g filenamef srfi/srfi-19.scm ų
CU h ] C
CWX hp
]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 } g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-19.scm
ų
n C5¹R [\ _“`Ø 4 c “> " G fµiŖ “R“ h r ] ¦$ §CC j g obj
g filenamef srfi/srfi-19.scm
ų
g nameg %time?-procedure CgR4ø&ŗ½hĻ h 7 ] C / g t-46961e50d3-40
CLO&P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm ų
C¾S h D ] L 6< g filenamef srfi/srfi-19.scm ų
CŃ h ] C
CWX hp
]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 } g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-19.scm
ų
n C5&R“Ō' h t ] §&
©C 6l g s
g filenamef srfi/srfi-19.scm
ų
g nameg %time-type-procedure CÕR4ø'ŗ½ h : ]C 2 g err
g s C #( h : ]C 2 g err
g s C,28 h : ]C 2 g err
g s ChV h 7 ] C / g t-46961e50d3-4c
CLO'P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm ų
C¾S h D ] L 6< g filenamef srfi/srfi-19.scm ų
CX h ] C
CWX hø Į ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 ¹ g x
³ g tmp ³ g tmp " ³ g tmp 9 ³ g tmp P ³ g tmp g ³ g tmp ³ g filenamef srfi/srfi-19.scm
ų
³ C5'R“Ō( h z ] §& ©C 6r g s
g filenamef srfi/srfi-19.scm
ų
g nameg %time-nanosecond-procedure CYR4ø(ŗ½gns h : ]C 2 g err
g s Cv| h : ]C 2 g err
g s C h : ]C 2 g err
g s Ch« h 7 ] C / g t-46961e50d3-67
CLO(P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm ų
C¾S h D ] L 6< g filenamef srfi/srfi-19.scm ų
C h ] C
CWX hø Į ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 ¹ g x
³ g tmp ³ g tmp " ³ g tmp 9 ³ g tmp P ³ g tmp g ³ g tmp ³ g filenamef srfi/srfi-19.scm
ų
³ C5(R“Ō) h v ] §& ©C 6 n g s
g filenamef srfi/srfi-19.scm
ų
g nameg %time-second-procedure C®R4ø)ŗ½¼ĆČ h : ]C 2 g err
g s CĖŃÖ h : ]C 2 g err
g s CŁßä h : ]C 2 g err
g s Ch h 7 ] C / g t-46961e50d3-82
CLO)P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm ų
C¾S h D ] L 6< g filenamef srfi/srfi-19.scm ų
C h ] C
CWX hø Į ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 ¹ g x
³ g tmp ³ g tmp " ³ g tmp 9 ³ g tmp P ³ g tmp g ³ g tmp ³ g filenamef srfi/srfi-19.scm
ų
³ C5)R4ø4ŗ½.0478 h v ]45C n g dummy
g check? g s g getter g expr CWX h( æ ] 4 5 $ @ 6 · g x
" g tmp " g filenamef srfi/srfi-19.scm
ų
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C54R“Ō* h ] §&
ŖC 6 g s
g val g filenamef srfi/srfi-19.scm
ų
g nameg %set-time-type!-procedure C9R4ø*ŗ½:~ h T ] C L g t-46961e50d3-b0
g t-46961e50d3-b1 CLO*P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm ų
C¾S h D ] L 6< g filenamef srfi/srfi-19.scm ų
C h ] C
CWX hp
]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 } g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-19.scm
ų
n C5*R“Ō+ h ] §& ŖC 6 g s
g val g filenamef srfi/srfi-19.scm
ų
g nameg %set-time-nanosecond!-procedure CR4ø+ŗ½:§ h T ] C L g t-46961e50d3-c0
g t-46961e50d3-c1 CLO+P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm ų
C¾S h D ] L 6< g filenamef srfi/srfi-19.scm ų
C© h ] C
CWX hp
]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 } g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-19.scm
ų
n C5+R“Ō, h ] §& ŖC 6 g s
g val g filenamef srfi/srfi-19.scm
ų
g nameg %set-time-second!-procedure CŖR4ø,ŗ½:Š h T ] C L g t-46961e50d3-d0
g t-46961e50d3-d1 CLO,P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm ų
C¾S h D ] L 6< g filenamef srfi/srfi-19.scm ų
CŅ h ] C
CWX hp
]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 } g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-19.scm
ų
n C5,R%“Ō'() hX ] §&
©" 4 5 §& ©" 4 5 §& ©" 4 56 g time
U g filenamef srfi/srfi-19.scm
’
! ; 5 U U g nameg copy-time C-RÓŌ h0 É ] 4 5$
4 5
D4 5 45 D Į g r
. g l . g filenamef srfi/srfi-19.scm
! , # . . g nameg
split-real CÕRÖ“Ō(Õ),+ hŠ ]4 §& ©" 4 55 ;Ź $ Ę4 §& ©" 4 5> G §& ©" 4 5 ;Ź §& Ŗ" 4 > " G ;Ź §& Ŗ" 4 > " G " " č §& ©" 4 5
$ Ć §& ©" 4 5
$ §& ©" 4 5 §& Ŗ" 4 > " G ;Ź §& ©" 4 5 §& Ŗ" 4 > " žG " ÷ " š" ģ §& ©" 4 5
$ Ē §& ©" 4 5
$ §& ©" 4 5 §& Ŗ" 4 > " G ;Ź §& ©" 4 5 §& Ŗ" 4 > " G " "’ž4" "’ž, C g t
Š g int R ń g frac R ń g val Æ g val ¾ ė g val V g val Ø Ł g val > l g val ½ g filenamef srfi/srfi-19.scm
!
+ / 0
5 Q
U
\
» # ¾ ¾ ü 5 :
= # V V 2 Ø $ Ø į ä ż " % > > x . + Š g nameg time-normalize! C×Rד h Ŗ ] Ø 6 ¢ g type
g
nanosecond g second g filenamef srfi/srfi-19.scm
g nameg make-time C%RŲŁ<Ś=Ū>Ü?Ż@ŽAßąB hŲ ] 4
5 44 5> " G 44 5> " G 44 5> " G 44 5> " G 4
4 5> " G 4 l4
5> " G 4 ’> " G 4
4 5> " G C g date
× g result × g filenamef srfi/srfi-19.scm
!
" " % % % $ & ) & 4 & = ' B ' M ' V ) [ ) f ) o * t * { * * , , , , ¦ - ŗ . æ . Ą . Ē . Ģ . × g nameg date->broken-down-time CįRā% h Ø ]45 č 6 g tod
g filenamef srfi/srfi-19.scm
5
7
7 8 8 8 + 8
g nameg current-time-utc CćRā% ³ h0 ÷ ]45 č456 ļ g tod
) g sec ) g usec ) g filenamef srfi/srfi-19.scm
:
< < = < > < @ A A ' A ) ?
)
g nameg current-time-tai CäRä h o ] 6 g g filenamef srfi/srfi-19.scm
N
P
g nameg current-time-monotonic CåRlę h ] 6 g filenamef srfi/srfi-19.scm
R
S S
S 4 S
g nameg current-time-thread CēR ;Ź čiéRź% čé h ± ]45 6 © g run-time
g filenamef srfi/srfi-19.scm
W
X X [ [ ] Y
g nameg current-time-process CėR äć å ē ėlģ h` - 1 3 ( " & 6 & 6 & 6 & 6 &
6
6 g
clock-type
` g
clock-type ` g filenamef srfi/srfi-19.scm
b
c c 4 c " d & e . d 2 f : d > g & F d J h # R d V i $ Z k \ k % ` k `
g nameg current-time ClR é$ģ
hX Š - 1 3 ( " $ čC$ čC$ čC$ C 6 Č g
clock-type
W g
clock-type W g filenamef srfi/srfi-19.scm
q
r r 4 r # s Q z S z ) W z W
g nameg time-resolution C$R“Ō)(' h° ß ] §& ©" 4 5§& ©" 45$ q §& ©" 4 5§& ©" 45$ 6 §&
©" 4 5§&
©" 45CCC× g t1
° g t2 ° g filenamef srfi/srfi-19.scm
~
9 = @
Z r v y «
° g nameg time=? C0R“Ō)( hø š ]
§& ©" 4 5§& ©" 45 $ C §& ©" 4 5§& ©" 45$ 6 §& ©" 4 5§& ©" 45CC č g t1
· g t2 · g t 9 · g filenamef srfi/srfi-19.scm
9 9 G b { # “
· g nameg time>? C2R“Ō)( hø š ]
§& ©" 4 5§& ©" 45 $ C §& ©" 4 5§& ©" 45$ 6 §& ©" 4 5§& ©" 45CC č g t1
· g t2 · g t 9 · g filenamef srfi/srfi-19.scm
9 9 G b { # “
· g nameg time=? C1R“Ō)( hø ń ]
§& ©" 4 5§& ©" 45 $ C §& ©" 4 5§& ©" 45$ 6 §& ©" 4 5§& ©" 45CC é g t1
· g t2 · g t 9 · g filenamef srfi/srfi-19.scm
9 9 G b { $ “
· g nameg time<=? C.R“Ō)(*,+×
hų 1 ] §& ©" 4 5§& ©" 45 §& ©" 4 5§& ©" 45 §&
Ŗ" 4 > " G §& Ŗ" 4 > " G §& Ŗ" 4 > " G 6) g time1
ų g time2 ų g sec-diff n ų g nsec-diff n ų g val t ” g filenamef srfi/srfi-19.scm
) 9 < V . n n t ¤ Ķ ų ”
ų g nameg time-difference! C4R-4 h µ ]
4 5 6 g time1
g time2 g result g filenamef srfi/srfi-19.scm
£
¤ ¤ „ g nameg time-difference C3R“Ō')(,+×5ķ
hų F ]§&
©" 45& Ē §& ©" 4 5§& ©" 45 §& ©" 4 5§& ©" 45 §& Ŗ" 4 > " G §& Ŗ" 4 > " G 6
6 > g t
ó g duration ó g sec-plus é g nsec-plus é g filenamef srfi/srfi-19.scm
§
Ø " Ø % Ŗ @ Ŗ ) Y Ŗ \ « v « . « Ŗ ¬ ¾ é ® ķ © ļ © ó © ó g nameg
add-duration! C6R-6 h ± ]
4 5 6 © g t
g duration g result g filenamef srfi/srfi-19.scm
°
± ± ² g nameg add-duration C5R“Ō')(,+×5ķ
hų M ]§&
©" 45& Ē §& ©" 4 5§& ©" 45 §& ©" 4 5§& ©" 45 §& Ŗ" 4 > " G §& Ŗ" 4 > " G 6
6 E g t
ó g duration ó g sec-minus é g
nsec-minus é g filenamef srfi/srfi-19.scm
“
µ " µ % · @ · + Y · \ ø v ø / ø · ¹ ¾ ŗ é » ķ ¶ ļ ¶ ó ¶ ó g nameg subtract-duration! C8R-8 h ŗ ]
4 5 6 ² g time1
g duration g result g filenamef srfi/srfi-19.scm
½
¾ ¾ æ g nameg subtract-duration C7R“Ō' ī *(+)³, h h ] §&
©" 4 5& " 4 > " G §&
Ŗ" 4> " G §& ©" 4 5 §& Ŗ" 4
> " G §& ©" 4 54 §& ©" 4 55 §& Ŗ" 4
> " G C ` g time-in
g time-out g caller g val > k g val
² g val ī g filenamef srfi/srfi-19.scm
Ć
Ä " Ä ' Å - Å 4 Å > Ę n Ē !
Ē µ Č $ Ī É $ Ó Ź % ķ É $ ī Č ! ī Č g nameg priv:time-tai->time-utc! CļRļ“_ h ] Ø 6 g time-in
g filenamef srfi/srfi-19.scm
Ķ
Ī $ Ī F Ī g nameg time-tai->time-utc C_Rļ` h ] 6 g time-in
g filenamef srfi/srfi-19.scm
Ń
Ņ , Ņ g nameg time-tai->time-utc! C`R“Ō' ī *(+)³, h h ] §&
©" 4 5& " 4 > " G §&
Ŗ" 4> " G §& ©" 4 5 §& Ŗ" 4
> " G §& ©" 4 54 §& ©" 4 55 §& Ŗ" 4
> " G C ` g time-in
g time-out g caller g val > k g val
² g val ī g filenamef srfi/srfi-19.scm
Ō
Õ " Õ ' Ö - Ö 4 Ö > × n Ų !
Ų µ Ł $ Ī Ś $ Ó Ū % ķ Ś $ ī Ł ! ī Ł g nameg priv:time-utc->time-tai! CšRš“f h ] Ø 6 g time-in
g filenamef srfi/srfi-19.scm
Ž
ß $ ß F ß g nameg time-utc->time-tai CfRšg h ] 6 g time-in
g filenamef srfi/srfi-19.scm
į
ā , ā g nameg time-utc->time-tai! CgR“Ō' Xī- *ļ h ] §&
©" 4 5& " 4 > " G 4 5 §&
Ŗ" 4
> " G 6 ü g time-in
~ g ntime C ~ g val G t g filenamef srfi/srfi-19.scm
å
ę " ę ' ē + ē - č 4 ē = é C é G ź | ė * ~ ė
~ g nameg time-monotonic->time-utc CXR“Ō' Yī *ļX hx ą ] §&
©" 4 5& " 4 > " G §&
Ŗ" 4 > " G
6 Ų g time-in
u g val > k g filenamef srfi/srfi-19.scm
ķ
ī " ī ' ļ + ļ - š 4 ļ > ń s ņ , u ņ u g nameg time-monotonic->time-utc! CYR“Ō' Vī- * hx ņ ] §&
©" 4 5& " 4 > " G 4 5 §&
Ŗ" 4
> " G C ź g time-in
w g ntime C w g val G t g filenamef srfi/srfi-19.scm
ō
õ " õ ' ö + ö - ÷ 4 ö = ų C ų G ł w g nameg time-monotonic->time-tai CVR“Ō' Wī *
hp Ī ] §&
©" 4 5& " 4 > " G §&
Ŗ" 4 > " G C Ę g time-in
n g val > k g filenamef srfi/srfi-19.scm
ü
ż " ż ' ž + ž - ’ 4 ž > n g nameg time-monotonic->time-tai! CWR“Ō' dīš * h ] §&
©" 4 5& " 4 > " G 4 Ø 5 §&
Ŗ" 4
> " G C g time-in
g ntime M g val Q ~ g filenamef srfi/srfi-19.scm
" ' + - 4 = I 1 K ) M M Q g nameg time-utc->time-monotonic CdR“Ō' eīš * h ] §&
©" 4 5& " 4 > " G 4 5 §&
Ŗ" 4
> " G C ż g time-in
{ g ntime G { g val K x g filenamef srfi/srfi-19.scm
"
' + - 4 = E ) G G K
{ g nameg time-utc->time-monotonic! CeR“Ō' ]ī- * hx ņ ] §&
©" 4 5& " 4 > " G 4 5 §&
Ŗ" 4
> " G C ź g time-in
w g ntime C w g val G t g filenamef srfi/srfi-19.scm
" ' + - 4 = C G w g nameg time-tai->time-monotonic C]R“Ō' ^ī *
hp Ī ] §&
©" 4 5& " 4 > " G §&
Ŗ" 4 > " G C Ę g time-in
n g val > k g filenamef srfi/srfi-19.scm
" ' + - 4 > ! n g nameg time-tai->time-monotonic! C^Rń h , 3 Ø C ž g
nanosecond
g second g minute g hour g day g month g year g zone-offset g filenamef srfi/srfi-19.scm
)
g nameg %make-date-procedure CņR4ø9ŗ½ó' h
, 3 C g t-46961e50d3-33b
g t-46961e50d3-33c g t-46961e50d3-33d g t-46961e50d3-33e g t-46961e50d3-33f g t-46961e50d3-340 g t-46961e50d3-341 g t-46961e50d3-342 CLO9P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
C¾S h D ] L 6< g filenamef srfi/srfi-19.scm )
C) h ] C
CWX hp
]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 } g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-19.scm
)
n C59R [* _ń+Ø 4 c ń> " G fņiŖ ńRń h r ] ¦$ §CC j g obj
g filenamef srfi/srfi-19.scm
)
g nameg %date?-procedure C,R4ø:ŗ½hG h 8 ] C 0 g t-46961e50d3-35d
CLO:P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
C¾S h D ] L 6< g filenamef srfi/srfi-19.scm )
CI h ] C
CWX hp
]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 } g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-19.scm
)
n C5:RńŌ; h z ] §&
©C 6r g s
g filenamef srfi/srfi-19.scm
)
g nameg %date-nanosecond-procedure CJR4ø;ŗ½X_d h : ]C 2 g err
g s Cgmr h : ]C 2 g err
g s Cu{ h : ]C 2 g err
g s Ch h 8 ] C 0 g t-46961e50d3-369
CLO;P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
C¾S h D ] L 6< g filenamef srfi/srfi-19.scm )
C h ] C
CWX hø Į ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 ¹ g x
³ g tmp ³ g tmp " ³ g tmp 9 ³ g tmp P ³ g tmp g ³ g tmp ³ g filenamef srfi/srfi-19.scm
)
³ C5;RńŌ< h v ] §& ©C 6n g s
g filenamef srfi/srfi-19.scm
)
g nameg %date-second-procedure C R4ø<ŗ½®µŗ h : ]C 2 g err
g s C½ĆČ h : ]C 2 g err
g s CĖŃÖ h : ]C 2 g err
g s Chņ h 8 ] C 0 g t-46961e50d3-384
CLO<P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
C¾S h D ] L 6< g filenamef srfi/srfi-19.scm )
Cō h ] C
CWX hø Į ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 ¹ g x
³ g tmp ³ g tmp " ³ g tmp 9 ³ g tmp P ³ g tmp g ³ g tmp ³ g filenamef srfi/srfi-19.scm
)
³ C5 h t ] §& ©C 6 l g s
g filenamef srfi/srfi-19.scm
)
g nameg %date-hour-procedure CJR4ø>ŗ½X_d h : ]C 2 g err
g s Cgmr h : ]C 2 g err
g s Cu{ h : ]C 2 g err
g s Ch h 8 ] C 0 g t-46961e50d3-3ba
CLO>P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
C¾S h D ] L 6< g filenamef srfi/srfi-19.scm )
C h ] C
CWX hø Į ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 ¹ g x
³ g tmp ³ g tmp " ³ g tmp 9 ³ g tmp P ³ g tmp g ³ g tmp ³ g filenamef srfi/srfi-19.scm
)
³ C5>RńŌ? h s ] §& ©C 6 k g s
g filenamef srfi/srfi-19.scm
)
g nameg %date-day-procedure CR4ø?ŗ½“¹ h : ]C 2 g err
g s C¼ĀĒ h : ]C 2 g err
g s CŹŠÕ h : ]C 2 g err
g s Chń h 8 ] C 0 g t-46961e50d3-3d5
CLO?P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
C¾S h D ] L 6< g filenamef srfi/srfi-19.scm )
Có h ] C
CWX hø Į ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 ¹ g x
³ g tmp ³ g tmp " ³ g tmp 9 ³ g tmp P ³ g tmp g ³ g tmp ³ g filenamef srfi/srfi-19.scm
)
³ C5?RńŌ@ h u ] §& ©C 6 m g s
g filenamef srfi/srfi-19.scm
)
g nameg %date-month-procedure CōR4ø@ŗ½ h : ]C 2 g err
g s C h : ]C 2 g err
g s C %* h : ]C 2 g err
g s ChF h 8 ] C 0 g t-46961e50d3-3f0
CLO@P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
C¾S h D ] L 6< g filenamef srfi/srfi-19.scm )
CH h ] C
CWX hø Į ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 ¹ g x
³ g tmp ³ g tmp " ³ g tmp 9 ³ g tmp P ³ g tmp g ³ g tmp ³ g filenamef srfi/srfi-19.scm
)
³ C5@RńŌA h t ] §& ©C 6 l g s
g filenamef srfi/srfi-19.scm
)
g nameg %date-year-procedure CIR4øAŗ½W^c h : ]C 2 g err
g s Cflq h : ]C 2 g err
g s Ctz h : ]C 2 g err
g s Ch h 8 ] C 0 g t-46961e50d3-40b
CLOAP h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
C¾S h D ] L 6< g filenamef srfi/srfi-19.scm )
C h ] C
CWX hø Į ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 ¹ g x
³ g tmp ³ g tmp " ³ g tmp 9 ³ g tmp P ³ g tmp g ³ g tmp ³ g filenamef srfi/srfi-19.scm
)
³ C5ARńŌB h { ] §& ©C 6 s g s
g filenamef srfi/srfi-19.scm
)
g nameg %date-zone-offset-procedure CR4øBŗ½¬³ø h : ]C 2 g err
g s C»ĮĘ h : ]C 2 g err
g s CÉĻŌ h : ]C 2 g err
g s Chš h 8 ] C 0 g t-46961e50d3-426
CLOBP h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
C¾S h D ] L 6< g filenamef srfi/srfi-19.scm )
Cņ h ] C
CWX hø Į ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 ¹ g x
³ g tmp ³ g tmp " ³ g tmp 9 ³ g tmp P ³ g tmp g ³ g tmp ³ g filenamef srfi/srfi-19.scm
)
³ C5BR4ø}ŗ½
78 h v ]45C n g dummy
g check? g s g getter g expr CWX h( æ ] 4 5 $ @ 6 · g x
" g tmp " g filenamef srfi/srfi-19.scm
)
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5}RńŌ h ] §&
ŖC 6 g s
g val g filenamef srfi/srfi-19.scm
)
g nameg %set-date-nanosecond!-procedure CR4øŗ½:5 h V ] C N g t-46961e50d3-454
g t-46961e50d3-455 CLOP h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
C¾S h D ] L 6< g filenamef srfi/srfi-19.scm )
C7 h ] C
CWX hp
]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 } g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-19.scm
)
n C5RńŌ8 h ] §& ŖC 6 g s
g val g filenamef srfi/srfi-19.scm
)
g nameg %set-date-second!-procedure C9R4ø8ŗ½:_ h V ] C N g t-46961e50d3-464
g t-46961e50d3-465 CLO8P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
C¾S h D ] L 6< g filenamef srfi/srfi-19.scm )
Ca h ] C
CWX hp
]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 } g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-19.scm
)
n C58RńŌb h ] §& ŖC 6 g s
g val g filenamef srfi/srfi-19.scm
)
g nameg %set-date-minute!-procedure CcR4øbŗ½: h V ] C N g t-46961e50d3-474
g t-46961e50d3-475 CLObP h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
C¾S h D ] L 6< g filenamef srfi/srfi-19.scm )
C h ] C
CWX hp
]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 } g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-19.scm
)
n C5bRńŌ h ] §& ŖC 6 g s
g val g filenamef srfi/srfi-19.scm
)
g nameg %set-date-hour!-procedure CR4øŗ½:³ h V ] C N g t-46961e50d3-484
g t-46961e50d3-485 CLOP h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
C¾S h D ] L 6< g filenamef srfi/srfi-19.scm )
Cµ h ] C
CWX hp
]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 } g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-19.scm
)
n C5RńŌ¶ h ] §& ŖC 6 g s
g val g filenamef srfi/srfi-19.scm
)
g nameg %set-date-day!-procedure C·R4ø¶ŗ½:Ż h V ] C N g t-46961e50d3-494
g t-46961e50d3-495 CLO¶P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
C¾S h D ] L 6< g filenamef srfi/srfi-19.scm )
Cß h ] C
CWX hp
]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 } g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-19.scm
)
n C5¶RńŌą h ] §& ŖC 6 g s
g val g filenamef srfi/srfi-19.scm
)
g nameg %set-date-month!-procedure CįR4øąŗ½: h V ] C N g t-46961e50d3-4a4
g t-46961e50d3-4a5 CLOąP h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
C¾S h D ] L 6< g filenamef srfi/srfi-19.scm )
C h ] C
CWX hp
]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 } g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-19.scm
)
n C5ąRńŌ
h ] §& ŖC 6 g s
g val g filenamef srfi/srfi-19.scm
)
g nameg %set-date-year!-procedure C R4ø
ŗ½:1 h V ] C N g t-46961e50d3-4b4
g t-46961e50d3-4b5 CLO
P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
C¾S h D ] L 6< g filenamef srfi/srfi-19.scm )
C3 h ] C
CWX hp
]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 } g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-19.scm
)
n C5
RńŌ4 h ] §& ŖC 6 g s
g val g filenamef srfi/srfi-19.scm
)
g nameg %set-date-zone-offset!-procedure C5R4ø4ŗ½:[ h V ] C N g t-46961e50d3-4c4
g t-46961e50d3-4c5 CLO4P h T ]L 6 L g a
g filenamef srfi/srfi-19.scm )
C¾S h D ] L 6< g filenamef srfi/srfi-19.scm )
C] h ] C
CWX hp
]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 } g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-19.scm
)
n C54R hh æ ] Ą
$ ’"
m
d ÓC · g day
d g month d g year d g a
d g y % d g m 2 d g filenamef srfi/srfi-19.scm
9
:
:
: ; ; ; # ; % ; % : . < / < 2 < 2 : < > ? > B > C = I ? J = O @ P = Q A V A
W A X = ^ B _ = d g nameg encode-julian-day-number C^RŌ hĄ µ ]A44 55 }, :± :± µ µ d ķ@
ō
$ " D g jdn
ŗ g days ŗ g a ŗ g b * ŗ g c > ŗ g d L ŗ g e Z ŗ g m h ŗ g y | ŗ g filenamef srfi/srfi-19.scm
F
G G G G H G I I * I * G : J = J > J > G E K H K L K L G V L Y L Z L Z G a M d M h M h G o N r N { N ! | N | G P P Q
Q Q Q
Q
Q R „ R ¦ R § R « S Æ S ² S ŗ O 1 ŗ g nameg decode-julian-day-number C_R`a“Ō) h0 µ ]
44 §& ©" 4 555C g utc-time
* g filenamef srfi/srfi-19.scm
Y
[ [ [ [ & [ ( [ ) [ * g nameg local-tz-offset CbR h Æ ] C § g seconds
g tz-offset g filenamef srfi/srfi-19.scm
^
_
_ _ g nameg time->julian-day-number CcRd± h ]4 5$ CC { g second
g filenamef srfi/srfi-19.scm
c
d d g nameg leap-second? CeR“Ō' fībe)c_g(ń hP R - 1 3 §&
©" 4 5& " 4 > " G ( 4 5" 4 §& ©" 4
55 4 $ §& ©" 4
5" §& ©" 4
55 4 > G 4
455
< <
§& ©" 4 5$
"
Ø C J g time
M g tz-offset M g offset W M g leap-second? | M g jdn Ę M g secs Ó M g date Ó M g month Ó M g year Ó M g int-secs ź M g hours
ņ M g rem ś M g minutes M g seconds
M g
nanosecond 3 M g second 3 M g filenamef srfi/srfi-19.scm
f
g ) g . h 2 h 4 h ; h I i J j W k W i Z l a l / z l % | l | i m m ' n 3 £ n 0 Ŗ o 0 Ę m Ę i É r ! Ö r ß v ā v ) ź v ź v ń w , ņ w ņ v ł x - ś x ś v y v z v
{ * | - | & 3 {
, M
g nameg time-utc->date CaR“Ō' fīb_)³ec_g(ń hH - 1 3 §&
©" 4 5& " 4 > " G ( 44 55" §& ©" 4
54 §& ©" 4
55 4 5 4
$ " 5 4> G 4455
<
< §& ©" 4 5$ "
Ø C g time
E g tz-offset E g offset \ E g seconds E g leap-second? ¦ E g jdn ¾ E g secs Ė E g date Ė E g month Ė E g year Ė E g int-secs
ā E g hours ź E g rem ņ E g minutes
ł E g seconds E g
nanosecond + E g second + E g filenamef srfi/srfi-19.scm
)
. 2 4 ; I J M & U \ \ a z ( ¤ % ¦ ¦ © ± ' “ 0 ¾ ¾ Į ! Ī × Ś ) ā ā é , ź ź ń - ņ ņ ł ł " % & +
1 E
g nameg time-tai->date CZR“Ō' fībX)³ec_g(ń hH £ - 1 3 §&
©" 4 5& " 4 > " G ( 44 55" §& ©" 4
54 §& ©" 4
55 4 5 4
$ " 5 4> G 4455
<
< §& ©" 4 5$ "
Ø C g time
E g tz-offset E g offset \ E g seconds E g leap-second? ¦ E g jdn ¾ E g secs Ė E g date Ė E g month Ė E g year Ė E g int-secs
ā E g hours ź E g rem ņ E g minutes
ł E g seconds E g
nanosecond + E g second + E g filenamef srfi/srfi-19.scm
„
¦ ) ¦ . § 2 § 4 § ; § I Ø J © M © & U © \ Ŗ \ Ø a « z ¬ ¬ ( ¬ « Ø ¤ % ¦ ¦ Ø © ® ± ® ' “ Æ 0 ¾ ® ¾ Ø Į ² ! Ī ² × · Ś · ) ā · ā · é ø , ź ø ź · ń ¹ - ņ ¹ ņ · ł ŗ ł · » · ¼ " ½ % ½ & + ¼
1 E
g nameg time-monotonic->date CSR^ńŌ?@Ah% ;>=<B h ]4 §& ©" 4 5 §& ©" 4 5 §& ©" 4 55 4 5
§&
©" 4 5 < < §& ©" 4
5 < < §& ©" 4 5 < §& ©" 4 5
§& ©" 4 56 g date
g jdays [ g jdays-1/2 g g filenamef srfi/srfi-19.scm
Å
Ę Ę - # Ē 1 > Č 1 X Ę [ Ę [ Ę ^ Ė d Ė - e Ė $ g Ė g Ę p Ī Ļ Š ° Š “ Ļ · Ń Ņ Ń Ó Ļ Ö Ņ ī Ļ ļ Ó ņ Ó Ó Ļ Ģ g nameg date->time-utc CJRgJ h ]4 56 { g date
g filenamef srfi/srfi-19.scm
Õ
Ö
Ö
g nameg date->time-tai CIReJ h ]4 56 g date
g filenamef srfi/srfi-19.scm
Ų
Ł
Ł
g nameg date->time-monotonic CHR h0 Ģ ]
$ C
$ d
CC Ä g year
+ g t
+ g filenamef srfi/srfi-19.scm
Ū
Ü
Ü
Ü Ż Ż Ż % Ż ) ' Ż & ( Ż ! + g nameg
leap-year? CiRvwRdwCxi h` 4 ] 45 $ " 4> " G " C45$ $ C"’’Ų"’’Ō , g day
] g month ] g year ] g days-pr ] g filenamef srfi/srfi-19.scm
å
ę ę ē č č č # % č 6 ė 7 ė 8 é 9 é
C é H é L é Q ź R ź ] g nameg year-day CyRyńŌ?@A hX ] §& ©" 4 5 §& ©" 4 5 §& ©" 4 56 g date
W g filenamef srfi/srfi-19.scm
ķ
ī " ī = ī . W ī W g nameg
date-year-day CCR hH y ] ž
d C q g day
G g month G g year G g a
G g y G g m G g filenamef srfi/srfi-19.scm
ń
ņ
ņ
ņ ó ņ ō ō ņ % õ * ÷ + õ , ų 1 ų 2 ų 3 õ 9 ł : õ ? ś B ś C õ F õ G g nameg week-day CzRzńŌ?@A hX ] §& ©" 4 5 §& ©" 4 5 §& ©" 4 56 g date
W g filenamef srfi/srfi-19.scm
ż
ž " ž = ž . W ž W g nameg
date-week-day CDRńŌAD hH ] §& ©" 4 5
Ø 45 C g date
D g day-of-week-starting-week D g year 0 g first-day 0 D g
fdweek-day 9 D g filenamef srfi/srfi-19.scm
0 3 9 @ C D g nameg days-before-first-week C{RC{ h Ē ]4 54 5 Cæ g date
g day-of-week-starting-week g filenamef srfi/srfi-19.scm
g nameg date-week-number CERl ab h0 ½ - 1 3 45 ( 45" 6 µ g tz-offset
, g time , g filenamef srfi/srfi-19.scm
* , ,
g nameg current-date C!R!ńŌA hh I ]45 §& ©" 45 d d d$ C
$ C 2$ C d CA g n
h g s ' g current-year ' h g current-century 1 h g filenamef srfi/srfi-19.scm
" ' . 1 1 8 ! < C " G O # R # U # Y ^ # 6 d $ g $ h g nameg natural-year C|RńŌ;<=>?@AB^} h ķ ]A §&
©" 4 5 §& ©" 4 5 §& ©" 4 5 §& ©" 4 5 §& ©" 4 5 §& ©" 4 5 §& ©" 4 5 §& ©" 4
5 4 5
< < <
C å g date
g
nanosecond Ų g second Ų g minute Ų g hour Ų g day Ų g month Ų g year Ų g offset Ų g filenamef srfi/srfi-19.scm
&
' ( 9 ) T * o +
, „ - Ą . Ų ' é / õ 0 ö / ÷ 1 ’ 2 1
3 1
5 1
1
/ g nameg date->julian-day CFRF~ h ]4 5C g date
g filenamef srfi/srfi-19.scm
8
9 : 9
g nameg date->modified-julian-day CGR“Ō' fī)(
h ć ] §&
©" 4 5& " 4 > " G §& ©" 4 5 §& ©" 4 5
C Ū g time
| g filenamef srfi/srfi-19.scm
<
= " = ' > + > - > 4 > ? ? Z ? ! t ? u ? x ? { ? | g nameg time-utc->julian-day CbRb~ h ]4 5C g time
g filenamef srfi/srfi-19.scm
C
D E D
g nameg time-utc->modified-julian-day CcR“Ō' fī)³( h
] §&
©" 4 5& " 4 > " G §& ©" 4 54 §& ©" 4 55 §& ©" 4
5
C g time
g filenamef srfi/srfi-19.scm
G
H " H ' I + I - I 4 I ? J X K ] K ! w K x J { L L J J J g nameg time-tai->julian-day C[R[~ h ]4 5C g time
g filenamef srfi/srfi-19.scm
P
Q R Q
g nameg time-tai->modified-julian-day C\R“Ō' fī)³( h ] §&
©" 4 5& " 4 > " G §& ©" 4 54 §& ©" 4 55 §& ©" 4
5
C g time
g filenamef srfi/srfi-19.scm
U
V " V ' W + W - W 4 W ? X X Y ] Y ! w Y x X { Z Z X X X g nameg time-monotonic->julian-day CTRT~ h ” ]4 5C g time
g filenamef srfi/srfi-19.scm
^
_ ` _
g nameg #time-monotonic->modified-julian-day CURÕ% h0 ī ] 4> G 6 ę g jdn
+ g secs
+ g seconds + g parts + g filenamef srfi/srfi-19.scm
b
c
c
c
e d ' g + f + g nameg julian-day->time-utc CNRgN h ]4 56 g jdn
g filenamef srfi/srfi-19.scm
j
k
k
g nameg julian-day->time-tai CMReN h ]4 56 g jdn
g filenamef srfi/srfi-19.scm
m
n
n
g nameg julian-day->time-monotonic CLRNba h0 ļ - 1 3 4 5 ( 45" 6ē g jdn
0 g tz-offset 0 g time 0 g offset & 0 g filenamef srfi/srfi-19.scm
p
q q r s & t & q 0 u 0
g nameg julian-day->date CKRK~ h ® - 1 3 @ ¦ g jdn
g tz-offset g filenamef srfi/srfi-19.scm
w
x ! x x
g nameg modified-julian-day->date CORN~ h ] 6 g jdn
g filenamef srfi/srfi-19.scm
{
| | | g nameg modified-julian-day->time-utc CRRM~ h ] 6 g jdn
g filenamef srfi/srfi-19.scm
~
g nameg modified-julian-day->time-tai CQRL~ h ] 6 g jdn
g filenamef srfi/srfi-19.scm
% g nameg #modified-julian-day->time-monotonic CPRbl h t ] 456 l g filenamef srfi/srfi-19.scm
g nameg current-julian-day C"Rcl h } ] 456 u g filenamef srfi/srfi-19.scm
!
g nameg current-modified-julian-day C#R hH 2 ]4 5 45 $ " $ C456 * g n
E g pad-with E g length E g str E g str-len E g t , g filenamef srfi/srfi-19.scm
) 0 6 = $ A E E g nameg padding CRÖ h ] 4
56 g i
g n g filenamef srfi/srfi-19.scm
g nameg
last-n-digits CR
h
] 6 } g n
g filenamef srfi/srfi-19.scm
2 g nameg locale-abbr-weekday CR h
] 6 } g n
g filenamef srfi/srfi-19.scm
, g nameg locale-long-weekday CRiRiR h8 , ] " )$ C4 455$ C "’’× "’’Š $ g needle
6 g haystack-ref 6 g haystack-len 6 g same? 6 g index / g filenamef srfi/srfi-19.scm
¤ „ „ ¦ ¦ ¦ # „ ) Ø / Ø / ¤ 6 g nameg date-reverse-lookup CR
h ] 6 g string
g filenamef srfi/srfi-19.scm
Ŗ
« g nameg locale-abbr-weekday->index CR h ] 6 g string
g filenamef srfi/srfi-19.scm
® g nameg locale-long-weekday->index CR h ] 6 ~ g string
g filenamef srfi/srfi-19.scm
°
± g nameg locale-abbr-month->index CR h ] 6 ~ g string
g filenamef srfi/srfi-19.scm
³
“ g nameg locale-long-month->index CRńŌB h( ] §& ©" 4 56 g date
# g port # g filenamef srfi/srfi-19.scm
¹
ŗ # ŗ # g nameg locale-print-time-zone CR h ] $ 6 6 g hr
g filenamef srfi/srfi-19.scm
¼
½ ½ ½ ½ # g nameg locale-am-string/pm CRÖ h° Ą ]
$ 4> " G " 4
$ 4> " G " 4> " G
$ C4 54 <5 440 5> " G 40 56 ø g offset
« g port « g hours y « g minutes y « g filenamef srfi/srfi-19.scm
æ
Į
Ą Į Į Į % Ā * Ą + Ā / Ā 6 Ā C Ć G Ć N Ć Z Ä ^ Ä a Å h Å + i Å k Å l Ę s Ę 6 t Ę $ w Ę y Ę y Å ~ Ē Ē Ē Č « Č « g nameg
tz-printer CR~ h ]~6 g date
g pad-with
g port
g filenamef srfi/srfi-19.scm
Ń
Ņ
CaD h £ ]44 556 g date
g pad-with g port g filenamef srfi/srfi-19.scm
Ó
Ō Ō - Ō Ō CAD h £ ]44 556 g date
g pad-with g port g filenamef srfi/srfi-19.scm
Ö
× × - × × CbńŌ@ h( £ ]4 §& ©" 4 556 g date
( g pad-with ( g port ( g filenamef srfi/srfi-19.scm
Ł
Ś
Ś + $ Ś ( Ś ( CBńŌ@ h( £ ]4 §& ©" 4 556 g date
( g pad-with ( g port ( g filenamef srfi/srfi-19.scm
Ü
Ż
Ż + $ Ż ( Ż ( Cch{ h ]4 56 g date
g pad-with g port g filenamef srfi/srfi-19.scm
ß
ą ą CdńŌ? h0 £ ]4 §& ©" 4 50 56 g date
, g pad-with , g port , g filenamef srfi/srfi-19.scm
į
ā
ā ! ( ā , ā , CDh| h £ ]4 56 g date
g pad-with g port g filenamef srfi/srfi-19.scm
å
ę ę +
ę ę CeńŌ? h0 £ ]4 §& ©" 4 5 56 g date
, g pad-with , g port , g filenamef srfi/srfi-19.scm
ē
č
č ! ( č , č , CfńŌ;<Õ h ż ]# §&
©" 4 5$ :44 §& ©" 4 5 5> " G " 544 §& ©" 4 5 5> " G 4 §&
©" 4 5 > G 4
5 4 5 $ (44 5 > " G 4
56C õ g date
g pad-with g port g i » g f » g ns É g le Ņ g filenamef srfi/srfi-19.scm
ė
ģ ģ # ģ $ ī ' ī , ī ( D ī % J ī Q ī ^ ń a ń f ń % ń ń õ ö * ² õ $ “ ÷ / µ õ $ ŗ õ ¾ ō Ć ų # É ų Ģ ł # Ņ ų Ł ś Ż ś Ž ü į ü ) ģ ü ÷ ż ) ż " Chh h £ ]4 56 g date
g pad-with g port g filenamef srfi/srfi-19.scm
ž
’ ’ +
’ ’ CHńŌ> h0 £ ]4 §& ©" 4 5 56 g date
, g pad-with , g port , g filenamef srfi/srfi-19.scm
! ( , , CIńŌ> hP é ] §& ©" 4 5 $ 4 564 56 į g date
M g pad-with M g port M g hr M g filenamef srfi/srfi-19.scm
$ ( + 2 ' 8 < ?
M
M CjC h £ ]44 5 56 g date
g pad-with g port g filenamef srfi/srfi-19.scm
! CkńŌ> h0 £ ]4 §& ©" 4 5 56 g date
, g pad-with , g port , g filenamef srfi/srfi-19.scm
! ( , , ClńŌ> hx ą ] §& ©" 4 5 $ " §& ©" 4 5 " §& ©" 4 5 4 56 Ų g date
t g pad-with t g port t g hr a t g filenamef srfi/srfi-19.scm
$ ' B I 5 a f t t CmńŌ@ h0 £ ]4 §& ©" 4 5 56 g date
, g pad-with , g port , g filenamef srfi/srfi-19.scm
! ( , , CMńŌ= h0 £ ]4 §& ©" 4 5 56 g date
, g pad-with , g port , g filenamef srfi/srfi-19.scm
! ( , , Cn h ]6 g date
g pad-with g port g filenamef srfi/srfi-19.scm
"
# CNńŌ; h0 £ ]4 §&
©" 4 5 56 g date
+ g pad-with + g port + g filenamef srfi/srfi-19.scm
$
%
% ! ' % + % + CpńŌ> h( £ ]4 §& ©" 4 556 g date
( g pad-with ( g port ( g filenamef srfi/srfi-19.scm
(
)
) - $ ) ( ) ( Crh” h £ ]4 56 g date
g pad-with g port g filenamef srfi/srfi-19.scm
*
+ + +
+ + CsJ“Ō) h0 © ] 4 5 §& ©" 45 6 ” g date
/ g pad-with / g port / g s + g filenamef srfi/srfi-19.scm
,
- % - / - / CSńŌ;< hx ė ] §&
©" 4 5$ *4 §& ©" 4 5 564 §& ©" 4 5 56 ć g date
v g pad-with v g port v g filenamef srfi/srfi-19.scm
.
/ / # / & 1 + 1 ( C 1 % I 1 M 1 P 4 U 4 % r 4 v 4 v Ct h ] 6 g date
g pad-with
g port
g filenamef srfi/srfi-19.scm
7
8
CTh~ h £ ]4 56 g date
g pad-with g port g filenamef srfi/srfi-19.scm
9
: : +
: : CU{E h@ ė ]4
5
$ 44
50 5644
50 56 ć g date
? g pad-with ? g port ? g filenamef srfi/srfi-19.scm
;
< < < = = ( = % $ = ( = + ? . ? % ; ? ? ? ? CVE h £ ]44 50 56 g date
g pad-with g port g filenamef srfi/srfi-19.scm
A
B B ! B B CwD h ]4 56 g date
g pad-with g port g filenamef srfi/srfi-19.scm
D
E E Cxh} h ]4 56 g date
g pad-with g port g filenamef srfi/srfi-19.scm
F
G G CXh h ]4 56 g date
g pad-with g port g filenamef srfi/srfi-19.scm
H
I I CW{E h@ ė ]4 5
$ 44 50 5644 50 56 ć g date
? g pad-with ? g port ? g filenamef srfi/srfi-19.scm
J
K K K L L ( L % $ L ( L + N . N % ; N ? N ? CyńŌA h8 µ ]44 §& ©" 4 5 5 56 g date
3 g pad-with 3 g port 3 g filenamef srfi/srfi-19.scm
P
Q Q !
R ' ) Q ! / Q 3 Q 3 CYńŌA h( ] §& ©" 4 56 g date
# g pad-with # g port # g filenamef srfi/srfi-19.scm
V
W # W # CzńŌB h( ] §& ©" 4 56 g date
# g pad-with # g port # g filenamef srfi/srfi-19.scm
X
Y # Y # CZ h ] 6 g date
g pad-with
g port
g filenamef srfi/srfi-19.scm
Z
[
C1h¢ h £ ]4 56 g date
g pad-with g port g filenamef srfi/srfi-19.scm
\
] ] +
] ] C2h£ h £ ]4 56 g date
g pad-with g port g filenamef srfi/srfi-19.scm
^
_ _ +
_ _ C3h~ h £ ]4 56 g date
g pad-with g port g filenamef srfi/srfi-19.scm
`
a a +
a a C4h h £ ]4 56 g date
g pad-with g port g filenamef srfi/srfi-19.scm
b
c c +
c c C5h¤ h £ ]4 56 g date
g pad-with g port g filenamef srfi/srfi-19.scm
d
e e +
e e C )„Rd„ h « ] 4 5 $ CC £ g char
g
associated g filenamef srfi/srfi-19.scm
h
i i j j g nameg
get-formatter C¦R§Ø©Ŗ¦© h ] $ |45 4~5$ A$
645 4-5$ _ $
644 55 $ &4 > " G 664_5$ ` $
644 55 $ '4 > " G 664455 $ '4 0> " G 664> " G 6C g date
g index g
format-string g str-len g port g current-char g pad-char? A d g formatter w Æ g formatter ć g formatter + d
g filenamef srfi/srfi-19.scm
l
m m n n o # o & s ) s - s 1 t 3 t * 7 t 8 v ! ? v ; A v ! A v D x P w U y X y \ y ` z $ b { ) f z g } ) j ~ * s 6 u ~ * w } ) w }
3 „ © * « / Æ ° ¼ w Į Ä Č Ģ $ Ī ) Ņ Ó ) Ö * ß 6 į * ć ) ć ė ģ
3 * / % ” & ' ¢ 2 ) ” & + % + 3 £ 4 Ø R Ŗ / Z © ^ ¤ & ` „ + d ¤ e q r ! r L g nameg date-printer C©R«¬© hH - 1 3 45 ( " 4
45> " G 6 ’ g date
E g
format-string E g str-port E g fmt-str E g filenamef srfi/srfi-19.scm
°
± ² ² + ² 0 ± " ³ * ³ ! 7 ³ E “ E
g nameg date->string ChR®Æ° h „ ] 0$
C 1$ C 2$ C 3$ C 4$ C 5$ C 6$ C 7$ C 8$ C 9$ C 6 g ch
g filenamef srfi/srfi-19.scm
¶
· | Ā ~ Ā Ć
Ć Ā g nameg char->int C®R±²®³ h ]*" l45 45 $ " (45 $ " $ " $ C
4455 "’’
"’’ { g upto
| g port | g accum r g nchars r g ch
r g t N g t + K g filenamef srfi/srfi-19.scm
Ę
Ē Č
Č É É
$ Ź + Ź + É
> Ė C Ė R É Z Ķ [ Ķ ^ Ķ + f Ķ g Ķ j Ī r Ķ
r Ē | g nameg integer-reader C“R“ h ` ]L 6 X g port
g filenamef srfi/srfi-19.scm
Ń
Ņ
C h v ] O C n g upto
g filenamef srfi/srfi-19.scm
Š
g nameg make-integer-reader CµR±iƶ²®³· hØ
]*H" 45 $ C45$
645$ $K
44 55 "’’§J$ #4 > " G "’’~
6
"’’f g n
£ g port £ g
padding-ok £ g port g accum g nchars g ch g filenamef srfi/srfi-19.scm
Õ
Ö ×
Ų Ų Ś
Ł Ū
) Ł - Ü / Ü $ 1 Ż 3 Ü
4 Ž
> Ł A ß
H į I į % L į 0 T į % U į X ā b ą
h Ł i ä
å å
ē ē $ č ē
£ é ! £ g nameg integer-reader-exact CøRø h ` ]L 6 X g port
g filenamef srfi/srfi-19.scm
ķ
ī
C h y ] O C q g n
g filenamef srfi/srfi-19.scm
ģ
g nameg make-integer-exact-reader C¹R³iÆŗØ»®
hŲ 9 ]!
HH4 5 45$ 4 > " G " 4Z5 $ " 4z5 $
C4+5$ K" /4-5$ K" 4 > " G 4 5 45$ 4 > " G " 4 5
< <K 4 5 45$ 4 > " G " J4 5 < <K 4 5 45$ 4 > " G " J4 5
<K 4 5 45$ 4 > " G " J4 5 <K J$ JC
JC 1 g port
Ń g offset Ń g positive? Ń g ch Ń g t D ] g ch ī g ch õ 6 g ch = ~ g ch
Ć g filenamef srfi/srfi-19.scm
š
ń ó ó ō
ō õ
! õ # õ $ % ö ! * ö / õ
< ÷ D ÷
R ÷ a ÷ d ū p ś s ū x ü ś ü ž ž ž ( ’ % ’ ž § ° ŗ » æ Į , Ć ) Č # Ķ Ś ć ė ļ õ ų , ) # $
( -
% 1
3
7 = @
J
K O Q , S ) X # ] l ( u % y {
, ) # „ “ ( ½ % ¾ Ą É Ķ ! V Ń g nameg zone-reader C¼R±½³¾æ h8 Ö ] 4L5 45$ 4L5 "’’Ü4 56 Ī g result
1 g ch 1 g filenamef srfi/srfi-19.scm
" &
) ! 1 !
1 g nameg read-char-string CiÆĄ h@ 3 ]O Q 45 45 $ C 6 + g port
; g indexer ; g read-char-string ; g str ; g index ! ; g filenamef srfi/srfi-19.scm
# # # # $ ! # ) % 0 % 2 & % 4 ' + 9 ' % ; % ; g nameg
locale-reader CĮRĮ h ` ] L 6 X g port
g filenamef srfi/srfi-19.scm
*
+
C h x ] O C p g indexer
g filenamef srfi/srfi-19.scm
)
g nameg make-locale-reader CĀRسiÆĆ h( ]4L 4 55$ L C6 g port
! g filenamef srfi/srfi-19.scm
. / / / / 1 2 3 ! 1
! C h v ] O C n g char
g filenamef srfi/srfi-19.scm
-
g nameg make-char-id-reader CÄR h k ]C c g ch
g filenamef srfi/srfi-19.scm
M g nameg char-fail C 4µi 54µi 54¹i 54Āii54Āii54Āii54Āii5 ~ 4Äi~5 a½i A½i b½ińŌą h s ]§& ŖC6 k g val
g object g filenamef srfi/srfi-19.scm
T U
C B½ińŌą h s ]§& ŖC6 k g val
g object g filenamef srfi/srfi-19.scm
W X
C d²ińŌ¶ h s ]§& ŖC6 k g val
g object g filenamef srfi/srfi-19.scm
Y & Z ( C e ńŌ¶ h s ]§& ŖC6 k g val
g object g filenamef srfi/srfi-19.scm
\ # ] % C h½ińŌą h s ]§& ŖC6 k g val
g object g filenamef srfi/srfi-19.scm
_ `
C H²ińŌ h s ]§& ŖC6 k g val
g object g filenamef srfi/srfi-19.scm
a & b ( C k ńŌ h s ]§& ŖC6 k g val
g object g filenamef srfi/srfi-19.scm
c # d % C m²ińŌą h s ]§& ŖC6 k g val
g object g filenamef srfi/srfi-19.scm
e & f ( C M²ińŌb h s ]§& ŖC6 k g val
g object g filenamef srfi/srfi-19.scm
g & h ( C S²ińŌ8 h s ]§& ŖC6 k g val
g object g filenamef srfi/srfi-19.scm
j & k ( C y |ńŌ
h( ]
4 5 §& ŖC6
g val
$ g object $ g val $ g filenamef srfi/srfi-19.scm
m n $ n
$ C Y²ińŌ
h s ]§& ŖC6 k g val
g object g filenamef srfi/srfi-19.scm
o & p ( C zØ hH ½ ] 4 Z5 $ C4 z5 $ C4 +5 $ C -6 µ g c
F g t F g t F g t 3 F g filenamef srfi/srfi-19.scm
q r r s r + t 3 r F u F C¼ińŌ4 h s ]§& ŖC6 k g val
g object g filenamef srfi/srfi-19.scm
v w C ÅR±iŖ³ hP ö ]
4 5 45$
L645$ C4 > " G "’’· ī g port
K g skipper K g ch K g filenamef srfi/srfi-19.scm
z { { |
| } } $ }
! ~ + ~
. K &
K g nameg
skip-until C§ØiŖdÅĘ³ hX Į ]FO Q $ 745 4~5$ Ę$
645 45 $
4
> " G 4 5
4
5$ 4> " G " $ 4
> " G "
664 5 4 5 $ "
45 $ 4> " G "
6C ¹ g date
T g index T g
format-string T g str-len T g port T g template-string T g
skip-until T g current-char $ R g format-char Q ł g format-info \ ł g skipper
s ļ g reader s ļ g actor s ļ g val
Ü g port-char R g t # g filenamef srfi/srfi-19.scm
y
$ ' 3 6 9 = A C ! G H $ O > Q $ Q T $ \ d g ' k ' p ' s z % ” ¢ ¦ , Ø 1 Æ Į ” Ā ” * å £ - ļ ¢ ó " õ ' ł ś
' ( , . # 5 H ! R 6 T g nameg priv:string->date CĘRńĘŌBb% 4JiŖĒ;<=>?@A h B ]
Ø 4
454 5> " G §& ©" 45$ " v44
55 §& Ŗ" 4
> " G 44 55 §& Ŗ" 4
> " G "
6§&
©" 45$ ÷§& ©" 45$ Õ§& ©" 45$ ²§& ©" 45$ §& ©" 45$ l§& ©" 45$ I§& ©" 45$ &§& ©" 45$ C"’žņ"’žī"’žź"’žę"’žā"’žŽ"’žŚ"’žÖ : g input-string
ż g template-string ż g newdate ż g val g g val ” Ļ g filenamef srfi/srfi-19.scm
©
³ ³ “ · ! ø . “ 9 ŗ
U ŗ Z Ą ! ] Į " g Ą ! g æ
Ć ! Ä " ” Ć ! ” Ā
× Č Ł É Ū Ź ā Ź ä Ē ä Å ē « Å ¬ « # ? « B ® ^ « a Æ } « ° « ± » « ¾ ² Ś « ( ż g nameg string->date CiRC é g m
4 g rtd
«
Õ g rtd
g“ gą g char-fail
<Ķ Gł g ireader4 = Gö g ireader2 = Gö g eireader2 = Gö g locale-reader-abbr-weekday = Gö g locale-reader-long-weekday = Gö g locale-reader-abbr-month = Gö g locale-reader-long-month = Gö g filenamef srfi/srfi-19.scm )
5
: B & G
Q T
V Y
[ ^
` c
e h
j m
o r
t ! w
y |
~ "
”
„ ¢
§ £ Ŗ £
Ų ¦
ł “
ū Ķ ž Ģ
² é
ü ķ
Ó ų
)Ć ’
*Õ
0_
1=
3ź !
4Ģ 5
6 :
6£ N
7[ R
7j U 7n U
8] W
: b
;c q
= ~
>Ó
@
Bd
D,
F|
G` £
IÉ §
J¬ °
M “
N
½
PÄ Ć
Q Ķ
R6 Ń
Tģ Ō
U® Ž
V^ į
X å
Y ķ
[% ō
\ ü
^K
_ų
a
bń
d2 )
±ė 9
µy F
¶ Y
·c ^
ø c
¼õ f
Ā
ĒF „
Ź* Å
ŹÖ Õ
Ė Ų
Ģ Ū
Ģ į Ģ į
ĪP å
Ļ_ ķ
Ń5 ń
ŅG ż
ÓĢ
ŌĀ
ÕČ
×
ŚŠ &
Ū 8
Ż& <
Żę C
ߥ G
ą P
āf U
ć, ^
äi b
å j
åŃ m
ē
p
ēé w
č {
ém ~
ź3
źĻ
ėx
ķ
ķŪ
ī
ļ9
ļB
ļK
šĄ
ńt Ŗ
ņ,
ņā °
ó ³
ōy ¹
õD ¼
÷Ü æ
ų Ń ł\ Ó ś4 Ö ū$ Ł ü Ü üŚ ß żĢ į ž¤ å ’ ē Ö ė ¬ ž ¤ Ü
Ō Q
D < į " Ō $
Ä ( * , . É 7 9 ä ; Ä A z D : F ś H D J V P * V X ± Z \ \ ^ 4 ` b ä d ē Š ė Ļ
Ļ h
& l
(
°
)Y ¶
+ Ę
, Š
/ Õ
0„ ģ
6å š
9§
:Ä )
S >Ę V ?~ Y @6 \ @ī ^ A¦ a B^ c C e CĪ g D j E` l F o GŽ q Gį O Gż A
N y
S5 ©
Ł S7
C6 PK ! !šõ| |
srfi-88.gonu [µü¤ GOOF----LE-8-2.0d ] $ 4 hC ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-88¤ ¤ g filenameS¤
f srfi/srfi-88.scm¤ g exportsS¤ g keyword->string¤
g string->keyword¤
¤ g
re-exportsS¤ g keyword?¤ ¤ g set-current-module¤ ¤ ¤ g cond-expand-provide¤ g current-module¤ ¤ g read-options¤ ¤ ¤ g append¤ ¤ ¤ g keywords¤ g postfix¤ g symbol->string¤ !g keyword->symbol¤ "g symbol->keyword¤ #g string->symbol¤C 5h@ ]4
5 4 > " G 4i4i5 > " G 44 45 5> " G ! h » ]4 56 ³ g k
g filenamef srfi/srfi-88.scm
(
*
*
g nameg keyword->stringg
documentationf 'Return the name of @var{k} as a string. C R"# h Ä ]4 56 ¼ g s
g filenamef srfi/srfi-88.scm
,
.
.
g nameg string->keywordg
documentationf 0Return the keyword object whose name is @var{s}. C
RC g m
, g filenamef srfi/srfi-88.scm
-
2 : & ?
H & V & Y & N (
7 ,
9
C6 PK ! C°«mÄ Ä
srfi-16.gonu [µü¤ GOOF----LE-8-2.0¬ ] 4 hų ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-16¤ ¤ g filenameS¤
f srfi/srfi-16.scm¤ g
re-exportsS¤ g case-lambda¤
¤ g set-current-module¤ ¤ ¤C 5 h( R ]4
5 4 > " G CJ g m
( g filenamef srfi/srfi-16.scm
/
(
C6 PK ! ųGe²
srfi-26.gonu [µü¤ GOOF----LE-8-2.0t ] « 4 hÜ
] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-26¤ ¤ g filenameS¤
f srfi/srfi-26.scm¤ g exportsS¤ g cut¤
g cute¤
¤ g set-current-module¤ ¤ ¤ g cond-expand-provide¤ g current-module¤ ¤ g make-syntax-transformer¤ ¤ ¤ g macro¤ g $sc-dispatch¤ ¤ ¤ g any¤ g each-any¤ ¤ ¤ g reverse¤ ! ¤ "g
syntax-object¤ #g lambda¤ $g top¤ %$ ¤ &g ribcage¤ '& ¤ (g t-46961e50f5-72¤ )g t-46961e50f5-71¤ *() ¤ +g m-46961e50f5-73¤ ,+$ ¤ -,, ¤ .f l-46961e50f5-77¤ /f l-46961e50f5-78¤ 0./ ¤ 1&*-0 ¤ 2g loop¤ 3g slots¤ 4g params¤ 5g args¤ 62345 ¤ 7%%%% ¤ 8f l-46961e50f5-68¤ 9f l-46961e50f5-69¤ :f l-46961e50f5-6a¤ ;f l-46961e50f5-6b¤ <89:; ¤ =&67< ¤ >g slot0¤ ?g slot1+¤ @ >? ¤ A%%% ¤ Bf l-46961e50f5-62¤ Cf l-46961e50f5-63¤ Df l-46961e50f5-64¤ EBCD ¤ F&@AE ¤ Gg stx¤ HG ¤ I% ¤ Jf l-46961e50f5-5f¤ KJ ¤ L&HIK ¤ M%'1'=F'L ¤ Ng hygiene¤ ON ¤ P"#MO ¤ Qg syntax-violation¤ RQ ¤ SQ ¤ Tf -source expression failed to match any pattern¤ Ug generate-temporaries¤ Vg var¤ WV ¤ X ¤ Yg free-id¤ Zg <>¤ [V ¤ \f l-46961e50f5-82¤ ]\ ¤ ^&[I] ¤ _g s¤ `g rest¤ a_` ¤ b%% ¤ cf l-46961e50f5-7b¤ df l-46961e50f5-7c¤ ecd ¤ f&abe ¤ g%'^''f'=F'L ¤ h"ZgO ¤ iYh ¤ jg <...>¤ k"jgO ¤ lYk ¤ mg error¤ nf &<...> not on the end of cut expression¤ og append¤ p ¤ qg t-46961e50f5-88¤ rg t-46961e50f5-87¤ sqr ¤ tg m-46961e50f5-89¤ ut$ ¤ vuu ¤ wf l-46961e50f5-8d¤ xf l-46961e50f5-8e¤ ywx ¤ z&svy ¤ {%'z'^''f'=F'L
¤ |"#{O ¤ }g apply¤ ~"}{O ¤ g let¤ g t-46961e50f5-a8¤ g t-46961e50f5-a7¤ ¤ g m-46961e50f5-a9¤ $ ¤
¤ f l-46961e50f5-ad¤ f l-46961e50f5-ae¤ ¤ &
¤ g process-hole¤ ¤ % ¤ f l-46961e50f5-a5¤ ¤ & ¤ g bindings¤ g arguments¤ 23 ¤ f l-46961e50f5-9c¤ f l-46961e50f5-9d¤ f l-46961e50f5-9e¤ f l-46961e50f5-9f¤ ¤ &7 ¤
3 ¤ f l-46961e50f5-98¤ f l-46961e50f5-99¤ ¤ &b ¤ f l-46961e50f5-95¤ ¤ &HI ¤ ”%'' ¤ ¢"”O ¤ £" ”O ¤ ¤%' ¤ „"Z¤O ¤ ¦Y„ ¤ §"j¤O ¤ ØY§ ¤ ©g t¤ Ŗ© ¤C 5 hP
r ]4
5 4 > " G 4i4i5 > " G 4 !P h T ] C L g t-46961e50f5-72
g t-46961e50f5-71 CSTUWXi h T ] LLLLLL 6 L g filenamef srfi/srfi-26.scm % % 3 %
Clmn h \ ] L $ 6C T g filenamef srfi/srfi-26.scm ' '
( (
Co p|~ h T ] C L g t-46961e50f5-88
g t-46961e50f5-87 CST h@ ]44L 5L54LL5 4 5 $ @ 6 g tmp
? g tmp ( ? g filenamef srfi/srfi-26.scm ) ) ( ) * " * + * " ) ?
C hp ]4L 5 $ L LLLO @4L 5 "
LLLL L6$ #4LO ?$ L LO @"’’Ź"’’Ę w g var
o g tmp o g tmp / o g filenamef srfi/srfi-26.scm @ , & B , o C h K ]# ( 34545 45 $ @6 45 4 5 $
L O @6 C g slots
{ g params { g args { g tmp ; g tmp $ ; g s A { g rest A { g tmp L { g tmp W { g filenamef srfi/srfi-26.scm
, > A ! A
F " $ J " : L " $ L "
{ g nameg loop C h § ] O Q 6 g cut
g slot0 g slot1+ g loop
g filenamef srfi/srfi-26.scm
CST h( e ] 4 5 $ @ 6 ] g stx
" g tmp " g filenamef srfi/srfi-26.scm
" C5 R4
p¢£ h T ] C L g t-46961e50f5-a8
g t-46961e50f5-a7 CST¦ h \ ] LLLLL 6 T g filenamef srfi/srfi-26.scm 6 6 , 6 & 6
CØh \ ] LLLLL 6 T g filenamef srfi/srfi-26.scm 6 6 , 6 & 6
CUŖX h l ]LL L L L 6d g t
g filenamef srfi/srfi-26.scm ? @ A ? C hø c ]+ ( .45 45 $ @6 45 $ L O @4 5 $
L O @4 5 4
5 $ L O @6 [ g slots
µ g bindings µ g arguments µ g tmp 6 g tmp 6 g tmp 9 µ g tmp D µ g tmp f µ g tmp µ g tmp µ
g filenamef srfi/srfi-26.scm
2 7 9 8 9 : 9 :
> # > 9 > # > µ g nameg loop C h ]
O Q 6 g cute
g slots g loop
g filenamef srfi/srfi-26.scm
2 3 4 2 CST h( e ] 4 5 $ @ 6 ] g stx
" g tmp " g filenamef srfi/srfi-26.scm
/ " C5
RC j g m
( g filenamef srfi/srfi-26.scm
)
. 6 & ;
L
C6 PK ! "Y Y srfi-4.gonu [µü¤ GOOF----LE-8-2.0ūX ] Ö 4 h ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-4¤ ¤ g filenameS¤
f srfi/srfi-4.scm¤ g importsS¤ g rnrs¤
g bytevectors¤
¤ ¤ ¤ g exportsS¤ g u8vector?¤ g
make-u8vector¤ g u8vector¤ g u8vector-length¤ g u8vector-ref¤ g
u8vector-set!¤ g u8vector->list¤ g list->u8vector¤ g s8vector?¤ g
make-s8vector¤ g s8vector¤ g s8vector-length¤ g s8vector-ref¤ g
s8vector-set!¤ g s8vector->list¤ !g list->s8vector¤ "g
u16vector?¤ #g make-u16vector¤ $g u16vector¤ %g u16vector-length¤ &g
u16vector-ref¤ 'g u16vector-set!¤ (g u16vector->list¤ )g list->u16vector¤ *g
s16vector?¤ +g make-s16vector¤ ,g s16vector¤ -g s16vector-length¤ .g
s16vector-ref¤ /g s16vector-set!¤ 0g s16vector->list¤ 1g list->s16vector¤ 2g
u32vector?¤ 3g make-u32vector¤ 4g u32vector¤ 5g u32vector-length¤ 6g
u32vector-ref¤ 7g u32vector-set!¤ 8g u32vector->list¤ 9g list->u32vector¤ :g
s32vector?¤ ;g make-s32vector¤ g
s32vector-ref¤ ?g s32vector-set!¤ @g s32vector->list¤ Ag list->s32vector¤ Bg
u64vector?¤ Cg make-u64vector¤ Dg u64vector¤ Eg u64vector-length¤ Fg
u64vector-ref¤ Gg u64vector-set!¤ Hg u64vector->list¤ Ig list->u64vector¤ Jg
s64vector?¤ Kg make-s64vector¤ Lg s64vector¤ Mg s64vector-length¤ Ng
s64vector-ref¤ Og s64vector-set!¤ Pg s64vector->list¤ Qg list->s64vector¤ Rg
f32vector?¤ Sg make-f32vector¤ Tg f32vector¤ Ug f32vector-length¤ Vg
f32vector-ref¤ Wg f32vector-set!¤ Xg f32vector->list¤ Yg list->f32vector¤ Zg
f64vector?¤ [g make-f64vector¤ \g f64vector¤ ]g f64vector-length¤ ^g
f64vector-ref¤ _g f64vector-set!¤ `g f64vector->list¤ ag list->f64vector¤ b !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`a P¤ cg set-current-module¤ dc ¤ ec ¤ fg cond-expand-provide¤ gg current-module¤ h ¤ ig make-syntax-transformer¤ ji ¤ ki ¤ lg define-bytevector-type¤ mg macro¤ ng $sc-dispatch¤ on ¤ pn ¤ qg _¤ rg any¤ sqr¤ tg
syntax->datum¤ ut ¤ vt ¤ wg
datum->syntax¤ xw ¤ yw ¤ zg begin¤ {g define¤ |g
symbol-append¤ }g vector?¤ ~g obj¤ ~ ¤ g and¤ g bytevector?¤ ~ ¤ g eq?¤ g
array-type¤
~ ¤ g quote¤ g make-¤ g vector¤ g len¤ g fill¤ ¤ g apply¤ g make-srfi-4-vector¤ ¤ g
vector-length¤ g v¤ ¤ g let¤ g /¤ g bytevector-length¤ ¤ g if¤ g integer?¤ ¤ g error¤ f fractional length¤ g elts¤ g list->¤ ¤ g let*¤ g length¤ ¤ ” ¤ ¢ ¤ £g lp¤ ¤g i¤ „¤
¤ ¦ ¤ §„¦ ¤ Øg <¤ ©Ø¤ ¤ Ŗg pair?¤ «Ŗ ¤ ¬©« ¤ g vector-set!¤ ®g car¤ Æ® ¤ °¤Æ ¤ ±g 1+¤ ²±¤ ¤ ³g cdr¤ “³ ¤ µ£²“ ¤ ¶µ ¤ ·g vector->list¤ øg 1-¤ ¹ ¤ ŗ¹ ¤ »ŗ ¤ ¼Ø¤
¤ ½ø¤ ¤ ¾g cons¤ æg
vector-ref¤ Ą¤ ¤ Įg bytevector-¤ Āg -ref¤ Ćg *¤ Äg x¤ Å¤Ä ¤ Ęg -set!¤ ĒÄ ¤ Čg syntax-violation¤ ÉČ ¤ ŹČ ¤ Ėf -source expression failed to match any pattern¤ Ģg u8¤ Ķg s8¤ Īg u16¤ Ļg s16¤ Šg u32¤ Ńg s32¤ Ņg u64¤ Óg s64¤ Ōg f32¤ Õg f64¤C 5 hH Į ]4
b5 4e > " G 4fi4gi5 h> " G 4klmpsvyz{|}
”¢£§¬°¶·¤ø»¼½¾æĄĮĀĆÅĘĒ 7 hą ]4 5
4 5
4 5
4 5 4 5 4 5 4 5! "#$4 %5&' 4 (5")*4 5 +, "-.4 /50 4 /5041253) 4 %5441553) 6 4 %5441553) 6
C g tag
Ū g infix Ū g size Ū g filenamef srfi/srfi-4.scm
J
K L
L " L K - N 1 N 5 N ) 7 N 9 K P P V P " X P Z K U U " U K V ¢ V ¦ V $ Ø V Ŗ K ± W µ W ¹ W * » W ½ K Å Y É Y " Ķ Y - Ļ Y Ń K å ] ė ] & ķ ] ļ K ` ` "
` K a a , ! a # K : d @ d 3 B d D K X e ^ e " ` e b K d f h f l f + n f p K g g " g K h h h + h K ® i “ i " ¶ i ø K ŗ j ¾ j Ā j + Ä j Ę K N Ū C h c ] 4 5 L 4?6[ g args
g v g filenamef srfi/srfi-4.scm J
CŹĖ h( a ] 4 5 $ O @ 6 Y g y
' g tmp ' g filenamef srfi/srfi-4.scm
J
' C5lRĢ h i ]4 5$ 4 5CC a g obj
g filenamef srfi/srfi-4.scm
l
g nameg u8vector? CRĢ h - 1 3 @ x g len
g fill g filenamef srfi/srfi-4.scm
l
g nameg
make-u8vector CRĢ h(
] 4 5 45$ C 6 } g v
& g len & g filenamef srfi/srfi-4.scm
l
T & g nameg u8vector-length CR h k - 1 3 6 c g elts
g filenamef srfi/srfi-4.scm
l
g nameg u8vector CR hP Æ ]!4 5 45 " ,$ $ Č "’’ŚCC
"’’É § g elts
O g len O g v O g i D g elts D g filenamef srfi/srfi-4.scm
l
O g nameg list->u8vector CR h8 ]"
$ C ¶ "’’ā4 5 "’’Ń g v
5 g i $ g elts $ g filenamef srfi/srfi-4.scm
l
5 g nameg u8vector->list CR h y ] ¶C q g v
g i
g filenamef srfi/srfi-4.scm
l
g nameg u8vector-ref CR h ] ČC g v
g i
g x
g filenamef srfi/srfi-4.scm
l
g nameg
u8vector-set! CR h ] ČC g v
g i
g x
g filenamef srfi/srfi-4.scm
l
g nameg
u8vector-set! CRĶ h i ]4 5$ 4 5CC a g obj
g filenamef srfi/srfi-4.scm
m
g nameg s8vector? CRĶ h - 1 3 @ x g len
g fill g filenamef srfi/srfi-4.scm
m
g nameg
make-s8vector CRĶ h(
] 4 5 45$ C 6 } g v
& g len & g filenamef srfi/srfi-4.scm
m
T & g nameg s8vector-length C R! h k - 1 3 6 c g elts
g filenamef srfi/srfi-4.scm
m
g nameg s8vector C R hP Æ ]!4 5 45 " ,$ $ É "’’ŚCC
"’’É § g elts
O g len O g v O g i D g elts D g filenamef srfi/srfi-4.scm
m
O g nameg list->s8vector C!R h8 ]"
$ C · "’’ā4 5 "’’Ń g v
5 g i $ g elts $ g filenamef srfi/srfi-4.scm
m
5 g nameg s8vector->list C R h y ] ·C q g v
g i
g filenamef srfi/srfi-4.scm
m
g nameg s8vector-ref C R h ] ÉC g v
g i
g x
g filenamef srfi/srfi-4.scm
m
g nameg
s8vector-set! C R h ] ÉC g v
g i
g x
g filenamef srfi/srfi-4.scm
m
g nameg
s8vector-set! C RĪ h j ]4 5$ 4 5CC b g obj
g filenamef srfi/srfi-4.scm
n
g nameg
u16vector? C"RĪ h - 1 3 @ y g len
g fill g filenamef srfi/srfi-4.scm
n
g nameg make-u16vector C#RĪ h( ] 4 5 45$ C 6~ g v
( g len ( g filenamef srfi/srfi-4.scm
n
T ( g nameg u16vector-length C%R) h l - 1 3 6 d g elts
g filenamef srfi/srfi-4.scm
n
g nameg u16vector C$R# hX ° ]!4 5 45 " /$ #$ Ź "’’×CC
"’’Ę Ø g elts
R g len R g v R g i G g elts G g filenamef srfi/srfi-4.scm
n
R g nameg list->u16vector C)R% h8 ]" !
$ C ø "’’ß4 5 "’’Ī
g v
8 g i ' g elts ' g filenamef srfi/srfi-4.scm
n
8 g nameg u16vector->list C(R h z ] øC r g v
g i g filenamef srfi/srfi-4.scm
n
g nameg
u16vector-ref C&R h ] ŹC g v
g i g x g filenamef srfi/srfi-4.scm
n
g nameg u16vector-set! C'R h ] ŹC g v
g i g x g filenamef srfi/srfi-4.scm
n
g nameg u16vector-set! C'RĻ h j ]4 5$ 4 5CC b g obj
g filenamef srfi/srfi-4.scm
o
g nameg
s16vector? C*RĻ h - 1 3 @ y g len
g fill g filenamef srfi/srfi-4.scm
o
g nameg make-s16vector C+RĻ h( ] 4 5 45$ C 6~ g v
( g len ( g filenamef srfi/srfi-4.scm
o
T ( g nameg s16vector-length C-R1 h l - 1 3 6 d g elts
g filenamef srfi/srfi-4.scm
o
g nameg s16vector C,R+ hX ° ]!4 5 45 " /$ #$ Ė "’’×CC
"’’Ę Ø g elts
R g len R g v R g i G g elts G g filenamef srfi/srfi-4.scm
o
R g nameg list->s16vector C1R- h8 ]" !
$ C ¹ "’’ß4 5 "’’Ī
g v
8 g i ' g elts ' g filenamef srfi/srfi-4.scm
o
8 g nameg s16vector->list C0R h z ] ¹C r g v
g i g filenamef srfi/srfi-4.scm
o
g nameg
s16vector-ref C.R h ] ĖC g v
g i g x g filenamef srfi/srfi-4.scm
o
g nameg s16vector-set! C/R h ] ĖC g v
g i g x g filenamef srfi/srfi-4.scm
o
g nameg s16vector-set! C/RŠ h j ]4 5$ 4 5CC b g obj
g filenamef srfi/srfi-4.scm
p
g nameg
u32vector? C2RŠ h - 1 3 @ y g len
g fill g filenamef srfi/srfi-4.scm
p
g nameg make-u32vector C3RŠ h( ] 4 5 45$ C 6~ g v
( g len ( g filenamef srfi/srfi-4.scm
p
T ( g nameg u32vector-length C5R9 h l - 1 3 6 d g elts
g filenamef srfi/srfi-4.scm
p
g nameg u32vector C4R3 hX ° ]!4 5 45 " /$ #$ Ģ "’’×CC
"’’Ę Ø g elts
R g len R g v R g i G g elts G g filenamef srfi/srfi-4.scm
p
R g nameg list->u32vector C9R5 h8 ]" !
$ C ŗ "’’ß4 5 "’’Ī
g v
8 g i ' g elts ' g filenamef srfi/srfi-4.scm
p
8 g nameg u32vector->list C8R h z ] ŗC r g v
g i g filenamef srfi/srfi-4.scm
p
g nameg
u32vector-ref C6R h ] ĢC g v
g i g x g filenamef srfi/srfi-4.scm
p
g nameg u32vector-set! C7R h ] ĢC g v
g i g x g filenamef srfi/srfi-4.scm
p
g nameg u32vector-set! C7RŃ h j ]4 5$ 4 5CC b g obj
g filenamef srfi/srfi-4.scm
q
g nameg
s32vector? C:RŃ h - 1 3 @ y g len
g fill g filenamef srfi/srfi-4.scm
q
g nameg make-s32vector C;RŃ h( ] 4 5 45$ C 6~ g v
( g len ( g filenamef srfi/srfi-4.scm
q
T ( g nameg s32vector-length C=RA h l - 1 3 6 d g elts
g filenamef srfi/srfi-4.scm
q
g nameg s32vector Cs32vector CAR= h8 ]" !
$ C » "’’ß4 5 "’’Ī
g v
8 g i ' g elts ' g filenamef srfi/srfi-4.scm
q
8 g nameg s32vector->list C@R h z ] »C r g v
g i g filenamef srfi/srfi-4.scm
q
g nameg
s32vector-ref C>R h ] ĶC g v
g i g x g filenamef srfi/srfi-4.scm
q
g nameg s32vector-set! C?R h ] ĶC g v
g i g x g filenamef srfi/srfi-4.scm
q
g nameg s32vector-set! C?RŅ h j ]4 5$ 4 5CC b g obj
g filenamef srfi/srfi-4.scm
r
g nameg
u64vector? CBRŅ h - 1 3 @ y g len
g fill g filenamef srfi/srfi-4.scm
r
g nameg make-u64vector CCRŅ h( ] 4 5 45$ C 6~ g v
( g len ( g filenamef srfi/srfi-4.scm
r
T ( g nameg u64vector-length CERI h l - 1 3 6 d g elts
g filenamef srfi/srfi-4.scm
r
g nameg u64vector CDRC hX ° ]!4 5 45 " /$ #$ Ī "’’×CC
"’’Ę Ø g elts
R g len R g v R g i G g elts G g filenamef srfi/srfi-4.scm
r
R g nameg list->u64vector CIRE h8 ]" !
$ C ¼ "’’ß4 5 "’’Ī
g v
8 g i ' g elts ' g filenamef srfi/srfi-4.scm
r
8 g nameg u64vector->list CHR h z ] ¼C r g v
g i g filenamef srfi/srfi-4.scm
r
g nameg
u64vector-ref CFR h ] ĪC g v
g i g x g filenamef srfi/srfi-4.scm
r
g nameg u64vector-set! CGR h ] ĪC g v
g i g x g filenamef srfi/srfi-4.scm
r
g nameg u64vector-set! CGRÓ h j ]4 5$ 4 5CC b g obj
g filenamef srfi/srfi-4.scm
s
g nameg
s64vector? CJRÓ h - 1 3 @ y g len
g fill g filenamef srfi/srfi-4.scm
s
g nameg make-s64vector CKRÓ h( ] 4 5 45$ C 6~ g v
( g len ( g filenamef srfi/srfi-4.scm
s
T ( g nameg s64vector-length CMRQ h l - 1 3 6 d g elts
g filenamef srfi/srfi-4.scm
s
g nameg s64vector CLRK hX ° ]!4 5 45 " /$ #$ Ļ "’’×CC
"’’Ę Ø g elts
R g len R g v R g i G g elts G g filenamef srfi/srfi-4.scm
s
R g nameg list->s64vector CQRM h8 ]" !
$ C ½ "’’ß4 5 "’’Ī
g v
8 g i ' g elts ' g filenamef srfi/srfi-4.scm
s
8 g nameg s64vector->list CPR h z ] ½C r g v
g i g filenamef srfi/srfi-4.scm
s
g nameg
s64vector-ref CNR h ] ĻC g v
g i g x g filenamef srfi/srfi-4.scm
s
g nameg s64vector-set! COR h ] ĻC g v
g i g x g filenamef srfi/srfi-4.scm
s
g nameg s64vector-set! CORŌ h j ]4 5$ 4 5CC b g obj
g filenamef srfi/srfi-4.scm
t
g nameg
f32vector? CRRŌ h - 1 3 @ y g len
g fill g filenamef srfi/srfi-4.scm
t
g nameg make-f32vector CSRŌ h( ] 4 5 45$ C 6~ g v
( g len ( g filenamef srfi/srfi-4.scm
t
T ( g nameg f32vector-length CURY h l - 1 3 6 d g elts
g filenamef srfi/srfi-4.scm
t
g nameg f32vector CTRS hX ° ]!4 5 45 " /$ #$ Š "’’×CC
"’’Ę Ø g elts
R g len R g v R g i G g elts G g filenamef srfi/srfi-4.scm
t
R g nameg list->f32vector CYRU h8 ]" !
$ C ¾ "’’ß4 5 "’’Ī
g v
8 g i ' g elts ' g filenamef srfi/srfi-4.scm
t
8 g nameg f32vector->list CXR h z ] ¾C r g v
g i g filenamef srfi/srfi-4.scm
t
g nameg
f32vector-ref CVR h ] ŠC g v
g i g x g filenamef srfi/srfi-4.scm
t
g nameg f32vector-set! CWR h ] ŠC g v
g i g x g filenamef srfi/srfi-4.scm
t
g nameg f32vector-set! CWRÕ h j ]4 5$ 4 5CC b g obj
g filenamef srfi/srfi-4.scm
u
g nameg
f64vector? CZRÕ h - 1 3 @ y g len
g fill g filenamef srfi/srfi-4.scm
u
g nameg make-f64vector C[RÕ h( ] 4 5 45$ C 6~ g v
( g len ( g filenamef srfi/srfi-4.scm
u
T ( g nameg f64vector-length C]Ra h l - 1 3 6 d g elts
g filenamef srfi/srfi-4.scm
u
g nameg f64vector C\R[ hX ° ]!4 5 45 " /$ #$ Ń "’’×CC
"’’Ę Ø g elts
R g len R g v R g i G g elts G g filenamef srfi/srfi-4.scm
u
R g nameg list->f64vector CaR] h8 ]" !
$ C æ "’’ß4 5 "’’Ī
g v
8 g i ' g elts ' g filenamef srfi/srfi-4.scm
u
8 g nameg f64vector->list C`R h z ] æC r g v
g i g filenamef srfi/srfi-4.scm
u
g nameg
f64vector-ref C^R h ] ŃC g v
g i g x g filenamef srfi/srfi-4.scm
u
g nameg f64vector-set! C_R h ] ŃC g v
g i g x g filenamef srfi/srfi-4.scm
u
g nameg f64vector-set! C_RC ¹ g m
, g filenamef srfi/srfi-4.scm
- G
2 G : G & ? G
¤ l
, m
µ n
E o
!Õ p
(e q
.õ r
5
s
< t
B„ u
H
C6 PK ! =WäcA cA
srfi-18.gonu [µü¤ GOOF----LE-8-2.0KA ] 4 h
] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-18¤ ¤ g filenameS¤
f srfi/srfi-18.scm¤ g importsS¤ g srfi-34¤
¤
¤ ¤ g exportsS¤ g make-thread¤ g thread-name¤ g thread-specific¤ g thread-specific-set!¤ g
thread-start!¤ g
thread-yield!¤ g
thread-sleep!¤ g thread-terminate!¤ g thread-join!¤ g
make-mutex¤ g
mutex-name¤ g mutex-specific¤ g mutex-specific-set!¤ g mutex-state¤ g mutex-lock!¤ g
mutex-unlock!¤ !g make-condition-variable¤ "g condition-variable-name¤ #g condition-variable-specific¤ $g condition-variable-specific-set!¤ %g condition-variable-signal!¤ &g condition-variable-broadcast!¤ 'g condition-variable-wait!¤ (g current-time¤ )g time?¤ *g
time->seconds¤ +g
seconds->time¤ ,g current-exception-handler¤ -g with-exception-handler¤ .g raise¤ /g join-timeout-exception?¤ 0g abandoned-mutex-exception?¤ 1g terminated-thread-exception?¤ 2g uncaught-exception?¤ 3g uncaught-exception-reason¤ 4 !"#$%&'()*+,-./0123 #¤ 5g
re-exportsS¤ 6g current-thread¤ 7g thread?¤ 8g mutex?¤ 9g condition-variable?¤ :6789 ¤ ;g replacementsS¤ <(!. ¤ =g set-current-module¤ >= ¤ ?= ¤ @g provided?¤ Ag threads¤ Bg error¤ Cf +SRFI-18 requires Guile with threads support¤ Dg cond-expand-provide¤ Eg current-module¤ F ¤ Gg scm-error¤ Hg wrong-type-arg¤ If Wrong type argument: ~S¤ Jg check-arg-type¤ Kg abandoned-mutex-exception¤ Lg join-timeout-exception¤ Mg terminated-thread-exception¤ Ng uncaught-exception¤ Og make-weak-key-hash-table¤ Pg object-names¤ Qg object-specifics¤ Rg thread-start-conds¤ Sg thread-exception-handlers¤ T
. ¤ U
. ¤ Vg srfi-18-exception-preserver¤ Wg initial-handler¤ Xg make-object-property¤ Yg thread->exception¤ Zg setter¤ [Z ¤ \Z ¤ ]g srfi-18-exception-handler¤ ^g hashq-ref¤ _g
hashq-set!¤ `g current-handler-stack¤ ag
procedure?¤ bf with-exception-handler¤ cg thunk?¤ d
- ¤ e
- ¤ ff uncaught-exception-reason¤ gg launch-mutex¤ hg launch-condition-variable¤ ig start-mutex¤ jg start-condition-variable¤ kg
lock-mutex¤ lg call-with-new-thread¤ mg signal-condition-variable¤ ng unlock-mutex¤ og wait-condition-variable¤ pf thread-name¤ qf thread-specific¤ rf thread-specific-set!¤ sf
thread-start!¤ tg
hashq-remove!¤ ug yield¤ vg number?¤ wf
thread-sleep!¤ xg inexact->exact¤ yg truncate¤ zg sleep¤ {g usleep¤ |g wrap¤ }g thread-cleanup¤ ~g set-thread-cleanup!¤ g
cancel-thread¤ g join-thread¤ g length¤ ¤ ¤ g unchecked-unlock¤
g allow-external-unlock¤ g recursive¤ f
mutex-name¤ f mutex-specific¤ f mutex-specific-set!¤ g mutex-owner¤ g thread-exited?¤ g abandoned¤ g mutex-level¤ g not-owned¤ g
not-abandoned¤ g catch¤ g abandoned-mutex-error¤ ! ¤ ! ¤ f condition-variable-name¤ f condition-variable-specific¤ f condition-variable-specific-set!¤ g broadcast-condition-variable¤ g gettimeofday¤ g integer?¤ f
time->seconds¤ f
seconds->time¤C 5 h@0 É ]4
45:;<5 4? > " G 4@iA5$ " 4BiC> " G 4Di4Ei5 F> " G GHI h Ķ ]4 5$ C 6Å g pred
g arg g caller g filenamef srfi/srfi-18.scm
`
a
a c d d + d 6 c g nameg check-arg-type CJRK KRL LRM MRN NR4Oi5 PR4Oi5 QR4Oi5 RR4Oi5 SRU.RVN h ] 6 x g obj
g filenamef srfi/srfi-18.scm
s
t t g nameg initial-handler CWR4Xi5 YR12\Y6 h8 ŗ ] 4 5 $ " 4 5 $ 4545 6C ² g obj
6 g t g filenamef srfi/srfi-18.scm
x
y
y z
$ y , { 4 { 6 g nameg srfi-18-exception-preserver CVR VN h0 Ć - 1 3 & C( " 6 » g key
. g args . g filenamef srfi/srfi-18.scm
}
$
( + ( . .
g nameg srfi-18-exception-handler C]R6^S_W h0 ŗ ]45 4 5 $ C 6 ² g ct
* g t * g filenamef srfi/srfi-18.scm
( 1 * *
g nameg current-handler-stack C`R6`Jabc_Se_S h h ]4LL> " G L 6 ` g obj
g filenamef srfi/srfi-18.scm
C_S h0 q ]4L> G 4L L> " G E i g res
* g filenamef srfi/srfi-18.scm
* *
C hp $ ]45 45 4 > " G 4> " G 4 > " G
O O 6 g handler
o g thunk o g ct o g hl o g filenamef srfi/srfi-18.scm
' ' / ! 4 = H - M o o g nameg with-exception-handler C-R` h { ] 45 C s g filenamef srfi/srfi-18.scm
g nameg current-exception-handler C,RL h ] Cz g obj
g filenamef srfi/srfi-18.scm
& g nameg join-timeout-exception? C/RK h
] C} g obj
g filenamef srfi/srfi-18.scm
”
” ) g nameg abandoned-mutex-exception? C0RN h ] $ CC g obj
g filenamef srfi/srfi-18.scm
¢
£ £ £ £ g nameg uncaught-exception? C2RJ2f h ]4 5C g exc
g filenamef srfi/srfi-18.scm
¤
„ „ /
„ „ g nameg uncaught-exception-reason C3RM h ] C g obj
g filenamef srfi/srfi-18.scm
¦
§ g nameg terminated-thread-exception? C1Rg!hijklkmno-W hx ] 4L> " G 4L> " G 4L> " G 4L> " G 4LL> " G 4L> " G L 6{ g filenamef srfi/srfi-18.scm
± ² ³ ' “ 9 µ K ¶ _ · x ø x
C]_RPon hŠ Ą - 1 3 $ " 45454545 4> " G 4 O
5 4 > " G $ 4
> " G " 4> " G 4> " G C ø g thunk
Ź g name Ź g n 4 Ź g lm 4 Ź g lc 4 Ź g sm 4 Ź g sc 4 Ź g t f Ź g filenamef srfi/srfi-18.scm
ŗ » » » ! ½ ½ ½ ¾ $ ¾ ) & ¾ ' æ + æ - æ . Ą 2 Ą ) 4 Ą 4 » ? Ā Q Ć f Ć i Å
t Å + y Å
Ę
Ę ¢ Ē
¶ Č
Ź
CR^PJ7p h ]4 56 g thread
g filenamef srfi/srfi-18.scm
Ė
Ģ Ģ 9 Ģ Ģ g nameg thread-name CR^QJ7q h ]4 56 g thread
g filenamef srfi/srfi-18.scm
Ī
Š
Š , Š
Ļ g nameg thread-specific CR_QJ7r h( · ]44 5> " G C Æ g thread
# g obj # g filenamef srfi/srfi-18.scm
Ņ
Ó Ō Ō - Ō Ó # g nameg thread-specific-set! CR^RJ7stkmn
h % ]44 55 $ ^ 4 > " G 4> " G 4> " G 4 > " G " C g thread
} g x } g smutex " v g scond " v g filenamef srfi/srfi-18.scm
Ų
Ł Ś Ś 5 Ś Ł Ł Ū Ū " Ü " Ū ' Ż
; Ž
M ß
_ ą
} g nameg
thread-start! CRu h f ] 4> " G C ^ g filenamef srfi/srfi-18.scm
ć
ć
g nameg
thread-yield! CR*()vGHwIxyz{
hø ]!445 5 4 5$ 4 5" %4 5$ " 4 5 4 4
55 4 4
B@55
$ 4 > " G "
$ 4 > " G " C ü g timeout
µ g ct µ g t L µ g secs Z µ g usecs u µ g filenamef srfi/srfi-18.scm
å
ę
ę ę
ę ē ē ē & # ē # ( č 2 ē 7 č % < é @ é # B é 3 D ź # I ė # J ģ # L é L ę O ķ R ķ Z ķ Z ę ] ī ` ī g ī - q ī * s ī u ī u ę { ļ ļ ļ š š š & µ g nameg
thread-sleep! CR-, h z ]445 > " G L 6 r g obj
g filenamef srfi/srfi-18.scm
ū ü ü ü ż C h h ] O L 6 ` g continuation
g filenamef srfi/srfi-18.scm
ś ū C h h ] O C ` g thunk
g filenamef srfi/srfi-18.scm
ł
g nameg wrap C|R}c~-WVM h V ] 4L > " G 6 N g filenamef srfi/srfi-18.scm
! !
CVM h M ] 6E g filenamef srfi/srfi-18.scm
*
C h` Ń ] 4 5 45$ 4 O > " G " 4 > " G 4 > " G C É g thread
[ g current-handler [ g filenamef srfi/srfi-18.scm
4
H [ g nameg thread-terminate! CR|Y.L hh ¼ ]4L L?4L 5 4L5 $ $ " 4> " G " $ 4> " G " C “ g v
b g e b g filenamef srfi/srfi-18.scm
# ) . I J b
C h ¶ - 1 3 H4 O 5KJB ® g thread
g args g thread-join-inner!
g filenamef srfi/srfi-18.scm
g nameg thread-join! CR
_P hP ł - 1 3 $ " 45 $ 4> " G " C ń g name
J g n # J g m # J g filenamef srfi/srfi-18.scm
# $ $
$ %
% & ' ! ( # %
# $ - ) . )
J
g nameg
make-mutex CR^PJ8 h ]4 56 g mutex
g filenamef srfi/srfi-18.scm
+
, , 7 , , g nameg
mutex-name CR^QJ8 h ]4 56 g mutex
g filenamef srfi/srfi-18.scm
.
0
0 * 0
/ g nameg mutex-specific C R_QJ8 h( µ ]44 5> " G C g mutex
# g obj # g filenamef srfi/srfi-18.scm
2
3 4 4 + 4 3 # g nameg mutex-specific-set! C R h8 ä ] 4 5 $ 45$ CC4 5
$ CC Ü g mutex
5 g owner 5 g filenamef srfi/srfi-18.scm
8
9 9 : ; ; ; # # < + < / < 1 < & 4 < 1
5 g nameg mutex-state C R|k h M ] LL @ E g filenamef srfi/srfi-18.scm
B
B
C.K h r - 1 3 6 j g key
g args g filenamef srfi/srfi-18.scm
C C (
C h V ] L LO 6 N g filenamef srfi/srfi-18.scm
@
A A
C h ³ - 1 3 H4 O 5KJB « g mutex
g args g mutex-lock-inner!
g filenamef srfi/srfi-18.scm
>
@ D
g nameg mutex-lock! C Rn h - 1 3 @
g mutex
g args g filenamef srfi/srfi-18.scm
F
G
g nameg
mutex-unlock! C R_P hH ė - 1 3 $ " 45 $ 4> " G " C ć g name
D g n D g m D g filenamef srfi/srfi-18.scm
M N N
N O
O O
N ' P ( P
D
g nameg make-condition-variable C!R^PJ9 h ¬ ]4 56 ¤ g condition-variable
g filenamef srfi/srfi-18.scm
R
S U * S S g nameg condition-variable-name C"R^QJ9 h ° ]4 56 Ø g condition-variable
g filenamef srfi/srfi-18.scm
W
X Z . X X g nameg condition-variable-specific C#R_QJ9 h( Ļ ]44 5> " G C Ē g condition-variable
# g obj # g filenamef srfi/srfi-18.scm
\
] ^ ` ^ ] # g nameg condition-variable-specific-set! C$Rm h ]4 > " G C ~ g cond
g filenamef srfi/srfi-18.scm
d
e g nameg condition-variable-signal! C%R h ]4 > " G C g cond
g filenamef srfi/srfi-18.scm
h
i g nameg condition-variable-broadcast! C&Ri(R hH ś ] $ 9 45$
" $ 45$
CCCC ņ g obj
D g co % g co , @ g filenamef srfi/srfi-18.scm
o
p p q q q " q q 0 ) p , r , r / r " 9 r = r 0 D g nameg time? C)RJ) h( ø ]4 5$ B@CC ° g time
% g filenamef srfi/srfi-18.scm
t
u u "
u u v
v ! v " v
% g nameg
time->seconds C*RJvyx h@ ś ] 4 5$ +4 5 4544 B@55CC ņ g x
> g fx < g filenamef srfi/srfi-18.scm
x
y y !
y y z z { " | % | , | , 6 | ) 8 | : | ; { > g nameg
seconds->time C+RC Į g m
4 g filenamef srfi/srfi-18.scm
5 [ ; [ = [ A [
F \ L \ Q \ Z ^
_ ^ g ^ & l ^
x `
z f ( } f " f
g %
g g
h * h $ h
i ! i i
k ¢ k
£ l ¬ l
m ¶ m
· n " Ą n
Å r
k s
l v u v
x
}
§
F
å
”
L ¢
¤
ŗ ¦
Æ
_ Ė
+ Ī
* Ņ
ų Ų
ć
o å
3 ł
t
"
Ķ +
! .
" 2
#Ļ 8
&> >
&ų F
(F L
)' R
* W
+" \
+Ł d
, h
, n
-ķ o
.ć t
0= x
K 0?
C6 PK ! ”*YVu Vu
srfi-37.gonu [µü¤ GOOF----LE-8-2.0>u ] 4 h6: ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-37¤ ¤ g filenameS¤
f srfi/srfi-37.scm¤ g importsS¤ g srfi-9¤
¤
¤ ¤ g exportsS¤ g option¤ g option-names¤ g option-required-arg?¤ g option-optional-arg?¤ g option-processor¤ g args-fold¤ ¤ g set-current-module¤ ¤ ¤ g cond-expand-provide¤ g current-module¤ ¤ g srfi-37:option¤ g %option-procedure¤ g make-syntax-transformer¤ ! ¤ " ¤ #g macro¤ $g $sc-dispatch¤ %$ ¤ &$ ¤ 'g _¤ (g any¤ )'(((( ¤ *g
syntax-object¤ +g lambda¤ ,g m-46961e511b-153¤ -g top¤ .,- ¤ /g ribcage¤ 0g t-46961e511b-14f¤ 1g t-46961e511b-150¤ 2g t-46961e511b-151¤ 3g t-46961e511b-152¤ 40123 ¤ 5.... ¤ 6f l-46961e511b-158¤ 7f l-46961e511b-159¤ 8f l-46961e511b-15a¤ 9f l-46961e511b-15b¤ :6789 ¤ ;/45: ¤ </ ¤ =g x¤ >= ¤ ?. ¤ @f l-46961e511b-155¤ A@ ¤ B/>?A ¤ Cg shift¤ Dg proc-name¤ Eg args¤ FDE ¤ G- ¤ HGG ¤ If l-1e8ba8b5a-2ba¤ Jf l-1e8ba8b5a-2bb¤ KIJ ¤ L/FHK ¤ Mg key¤ Ng value¤ Og name¤ Pg formals¤ Qg body¤ RMNOPQ ¤ SGGGGG ¤ Tf l-1e8ba8b5a-2ad¤ Uf l-1e8ba8b5a-2ae¤ Vf l-1e8ba8b5a-2af¤ Wf l-1e8ba8b5a-2b0¤ Xf l-1e8ba8b5a-2b1¤ YTUVWX ¤ Z/RSY ¤ [g make-procedure-name¤ \[ ¤ ]G ¤ ^f l-1e8ba8b5a-29d¤ _^ ¤ `/\]_ ¤ aG ¤ bf l-1e8ba8b5a-29c¤ cb ¤ d/>ac ¤ e.;<BC<<<<LZ`d
¤ fg hygiene¤ gf ¤ h*+eg ¤ ig names¤ jG;<B ¤ kf ¤ l*ijk ¤ mg
required-arg?¤ n*mjk ¤ og
optional-arg?¤ p*ojk ¤ qg processor¤ r*qjk ¤ slnpr ¤ tg make-struct¤ ug m-46961e511b-14d¤ vu- ¤ wg t-1e8ba8b5a-38d¤ xg t-1e8ba8b5a-38c¤ yg t-1e8ba8b5a-38b¤ zwxy ¤ {g m-1e8ba8b5a-38e¤ |{- ¤ }||| ¤ ~f l-1e8ba8b5a-392¤ f l-1e8ba8b5a-393¤ f l-1e8ba8b5a-394¤ ~ ¤ /z} ¤ g ctor-args¤ ¤
f l-1e8ba8b5a-37a¤
¤ /a ¤ g ctor¤ g field¤ ¤ f l-1e8ba8b5a-376¤ f l-1e8ba8b5a-377¤ ¤ /H ¤ g form¤ g type-name¤ g constructor-spec¤ g field-names¤ ¤ GGGG ¤ f l-1e8ba8b5a-36b¤ f l-1e8ba8b5a-36c¤ f l-1e8ba8b5a-36d¤ f l-1e8ba8b5a-36e¤ ¤ / ¤ g
record-layout¤ g functional-setters¤ g setters¤ g copier¤ g getters¤ g constructor¤ ”g getter-identifiers¤ ¢g field-identifiers¤ £ ”¢ ¤ ¤GGGGGGGG ¤ „f l-1e8ba8b5a-343¤ ¦f l-1e8ba8b5a-341¤ §f l-1e8ba8b5a-33f¤ Øf l-1e8ba8b5a-33d¤ ©f l-1e8ba8b5a-33b¤ Ŗf l-1e8ba8b5a-339¤ «f l-1e8ba8b5a-337¤ ¬f l-1e8ba8b5a-335¤ „¦§Ø©Ŗ«¬ ¤ ®/£¤ ¤ Æf l-1e8ba8b5a-334¤ °Æ ¤ ±/>a° ¤ ²v;<BC<<<<<®± ¤ ³*t²g ¤ “* jk ¤ µ*
²g ¤ ¶³“µlnpr ¤ ·hs¶ ¤ øg each-any¤ ¹'ø¤ ŗg syntax-violation¤ »
ŗ ¤ ¼
ŗ ¤ ½f Wrong number of arguments¤ ¾g identifier?¤ æ
¾ ¤ Ą
¾ ¤ ĮG<B ¤ Ā* Įk ¤ Ćŗ ¤ Äŗ ¤ Åf -source expression failed to match any pattern¤ Ęg record-type-vtable¤ Ē
Ę ¤ Č
Ę ¤ Ég pwpwpwpw¤ Źg default-record-printer¤ Ė
Ź ¤ Ģ
Ź ¤ Ķimoq ¤ Īg set-struct-vtable-name!¤ Ļ
Ī ¤ Š
Ī ¤ Ńg vtable-offset-user¤ Ņ
Ń ¤ Ó
Ń ¤ Ōg %option?-procedure¤ Õg option?¤ Ö'( ¤ ×g m-46961e511b-166¤ Ų×- ¤ Łg t-46961e511b-165¤ ŚŁ ¤ ŪŲ ¤ Üf l-46961e511b-16b¤ ŻÜ ¤ Ž/ŚŪŻ ¤ ßf l-46961e511b-168¤ ąß ¤ į/>Ūą ¤ āŲŽ<įC<<<<LZ`d
¤ ć*+āg ¤ äg obj¤ åg t-1e8ba8b5a-47e¤ ęg t-1e8ba8b5a-478¤ ēg t-1e8ba8b5a-479¤ čg t-1e8ba8b5a-47a¤ ég t-1e8ba8b5a-47d¤ źg t-1e8ba8b5a-47c¤ ėg t-1e8ba8b5a-47b¤ ģåęēčéźė ¤ ķg m-1e8ba8b5a-47f¤ īķ- ¤ ļīīīīīīī ¤ šf l-1e8ba8b5a-483¤ ńf l-1e8ba8b5a-484¤ ņf l-1e8ba8b5a-485¤ óf l-1e8ba8b5a-486¤ ōf l-1e8ba8b5a-487¤ õf l-1e8ba8b5a-488¤ öf l-1e8ba8b5a-489¤ ÷šńņóōõö ¤ ų/ģļ÷ ¤ łg copier-id¤ śł ¤ ūf l-1e8ba8b5a-476¤ üū ¤ ż/śaü ¤ žg ctor-name¤ ’ž ¤ f l-1e8ba8b5a-46e¤ ¤ /’a ¤ ¤ f l-1e8ba8b5a-46c¤ ¤ /a ¤ g layout¤ ¤ f l-1e8ba8b5a-46a¤
¤ /a
¤ g
immutable?¤
¤ f l-1e8ba8b5a-468¤ ¤ /
a ¤ g field-count¤ ¤ f l-1e8ba8b5a-466¤ ¤ /a ¤ g
getter-ids¤ ¤ f l-1e8ba8b5a-463¤ ¤ /a ¤ g field-ids¤ ¤ f l-1e8ba8b5a-460¤ ¤ / a ¤ g predicate-name¤ !g
field-spec¤ " ! ¤ #GGGGGG ¤ $f l-1e8ba8b5a-453¤ %f l-1e8ba8b5a-454¤ &f l-1e8ba8b5a-455¤ 'f l-1e8ba8b5a-456¤ (f l-1e8ba8b5a-457¤ )f l-1e8ba8b5a-458¤ *$%&'() ¤ +/"#* ¤ ,vŽ<įC<ų<<<<ż<<< <<<< +®± ¤ -*ä,g ¤ .- ¤ /g and¤ 0*/,g ¤ 1g struct?¤ 2*1,g ¤ 32- ¤ 4g eq?¤ 5*4,g ¤ 6g
struct-vtable¤ 7*6,g ¤ 87- ¤ 9GŽ<į ¤ :* 9k ¤ ;58: ¤ <03; ¤ =ć.< ¤ >G<į ¤ ?*Ō>k ¤ @g throw-bad-struct¤ A
@ ¤ B
@ ¤ Cg %option-names-procedure¤ Dg free-id¤ Eg
%%on-error¤ Fg m-46961e511b-172¤ GF- ¤ HG ¤ If l-46961e511b-174¤ JI ¤ K/>HJ ¤ LG<KC<<<<LZ`d ¤ M*ELg ¤ NDM ¤ ON( ¤ Pg %%type¤ Qg t-1e8ba8b5a-3a5¤ Rg t-1e8ba8b5a-3a6¤ Sg t-1e8ba8b5a-3a7¤ Tg t-1e8ba8b5a-3a8¤ Ug t-1e8ba8b5a-3a9¤ Vg t-1e8ba8b5a-3aa¤ Wg t-1e8ba8b5a-3ab¤ XQRSTUVW ¤ Yg m-1e8ba8b5a-3ac¤ ZY- ¤ [ZZZZZZZ ¤ \f l-1e8ba8b5a-3b0¤ ]f l-1e8ba8b5a-3b1¤ ^f l-1e8ba8b5a-3b2¤ _f l-1e8ba8b5a-3b3¤ `f l-1e8ba8b5a-3b4¤ af l-1e8ba8b5a-3b5¤ bf l-1e8ba8b5a-3b6¤ c\]^_`ab ¤ d/X[c ¤ eg getter¤ fg index¤ gef ¤ hf l-1e8ba8b5a-3a3¤ if l-1e8ba8b5a-3a4¤ jhi ¤ k/gHj ¤ lł ¤ mGGG ¤ nf l-1e8ba8b5a-39e¤ of l-1e8ba8b5a-39f¤ pf l-1e8ba8b5a-3a0¤ qnop ¤ r/lmq ¤ sv<KC<d<<<k<r®± ¤ t*Psg ¤ uDt ¤ v'Ou( ¤ wg ck¤ xg err¤ yg s¤ zxy ¤ {GG ¤ |f l-46961e511b-177¤ }f l-46961e511b-178¤ ~|} ¤ /z{~ ¤ G<KC<<<<LZ`d
¤ *wg ¤ g quote¤ *g ¤ G<K ¤
* k ¤
¤ ¤ g %%index¤ *sg ¤ D ¤ 'O( ¤ f l-46961e511b-17c¤ f l-46961e511b-17d¤ ¤ /z{ ¤ G<KC<<<<LZ`d
¤ *wg ¤ *g ¤ <K ¤ *
k ¤ ¤ ¤ g %%copier¤ *sg ¤ D ¤ 'O( ¤ f l-46961e511b-181¤ f l-46961e511b-182¤ ¤ /z{ ¤ G<KC<<<<LZ`d
¤ *wg ¤ ”*g ¤ ¢g %%srfi-37:option-set-fields¤ £G<K ¤ ¤*¢£k ¤ „”¤ ¤ ¦„ ¤ §g t-46961e511b-171¤ ا ¤ ©f l-46961e511b-186¤ Ŗ© ¤ «/ØHŖ ¤ ¬G«<KC<<<<LZ`d
¤ *+¬g ¤ ®v«<KC<d<<<k<r®± ¤ Æ*y®g ¤ °Æ ¤ ±g if¤ ²*±®g ¤ ³*4®g ¤ “*6®g ¤ µ“Æ ¤ ¶G«<K ¤ ·* ¶k ¤ ø³µ· ¤ ¹g
struct-ref¤ ŗ*¹®g ¤ »«<K ¤ ¼*
»k ¤ ½ŗƼ ¤ ¾*@®g ¤ æ*®g ¤ Ą*¶k ¤ ĮæĄ ¤ Ā¾ÆĮ ¤ Ć²ø½Ā ¤ Ä°Ć ¤ ÅG<K ¤ Ę*CÅk ¤ Ēg %option-required-arg?-procedure¤ Čg m-46961e511b-18d¤ ÉČ- ¤ ŹÉ ¤ Ėf l-46961e511b-18f¤ ĢĖ ¤ Ķ/>ŹĢ ¤ ĪÉ<ĶC<<<<LZ`d ¤ Ļ*EĪg ¤ ŠDĻ ¤ ŃŠ( ¤ Ņv<ĶC<d<<<k<r®± ¤ Ó*PŅg ¤ ŌDÓ ¤ Õ'ŃŌ( ¤ ÖÉÉ ¤ ×f l-46961e511b-192¤ Ųf l-46961e511b-193¤ Ł×Ų ¤ Ś/zÖŁ ¤ ŪÉŚ<ĶC<<<<LZ`d
¤ Ü*wŪg ¤ Ż*Ūg ¤ ŽGŚ<Ķ ¤ ß* Žk ¤ ąŻß ¤ įą ¤ ā*Ņg ¤ ćDā ¤ ä'Ńć( ¤ åf l-46961e511b-197¤ ęf l-46961e511b-198¤ ēåę ¤ č/zÖē ¤ éÉč<ĶC<<<<LZ`d
¤ ź*wég ¤ ė*ég ¤ ģč<Ķ ¤ ķ* ģk ¤ īėķ ¤ ļī ¤ š*Ņg ¤ ńDš ¤ ņ'Ńń( ¤ óf l-46961e511b-19c¤ ōf l-46961e511b-19d¤ õóō ¤ ö/zÖõ ¤ ÷Éö<ĶC<<<<LZ`d
¤ ų*w÷g ¤ ł*÷g ¤ śGö<Ķ ¤ ū*¢śk ¤ üłū ¤ żü ¤ žg t-46961e511b-18c¤ ’ž ¤ f l-46961e511b-1a1¤ ¤ /’Ź ¤ É<ĶC<<<<LZ`d
¤ *+g ¤ v<ĶC<d<<<k<r®± ¤ *yg ¤ ¤ *±g ¤ *4g ¤
*6g ¤
¤ G<Ķ ¤
* k ¤
¤ *¹g ¤ <Ķ ¤ * k ¤ ¤ *@g ¤ *g ¤ * k ¤ ¤ ¤ ¤ ¤ G<Ķ ¤ *Ēk ¤ g %option-optional-arg?-procedure¤ g m-46961e511b-1a8¤ - ¤ ¤ f l-46961e511b-1aa¤ ! ¤ "/> ! ¤ # <"C<<<<LZ`d ¤ $*E#g ¤ %D$ ¤ &%( ¤ 'v<"C<d<<<k<r®± ¤ (*P'g ¤ )D( ¤ *'&)( ¤ + ¤ ,f l-46961e511b-1ad¤ -f l-46961e511b-1ae¤ .,- ¤ //z+. ¤ 0 /<"C<<<<LZ`d
¤ 1*w0g ¤ 2*0g ¤ 3G/<" ¤ 4* 3k ¤ 524 ¤ 65 ¤ 7*'g ¤ 8D7 ¤ 9'&8( ¤ :f l-46961e511b-1b2¤ ;f l-46961e511b-1b3¤ <:; ¤ =/z+< ¤ > =<"C<<<<LZ`d
¤ ?*w>g ¤ @*>g ¤ A=<" ¤ B* Ak ¤ C@B ¤ DC ¤ E*'g ¤ FDE ¤ G'&F( ¤ Hf l-46961e511b-1b7¤ If l-46961e511b-1b8¤ JHI ¤ K/z+J ¤ L K<"C<<<<LZ`d
¤ M*wLg ¤ N*Lg ¤ OGK<" ¤ P*¢Ok ¤ QNP ¤ RQ ¤ Sg t-46961e511b-1a7¤ TS ¤ Uf l-46961e511b-1bc¤ VU ¤ W/T V ¤ X W<"C<<<<LZ`d
¤ Y*+Xg ¤ ZvW<"C<d<<<k<r®± ¤ [*yZg ¤ \[ ¤ ]*±Zg ¤ ^*4Zg ¤ _*6Zg ¤ `_[ ¤ aGW<" ¤ b* ak ¤ c^`b ¤ d*¹Zg ¤ eW<" ¤ f* ek ¤ gd[f ¤ h*@Zg ¤ i*Zg ¤ j*ak ¤ kij ¤ lh[k ¤ m]cgl ¤ nY\m ¤ oG<" ¤ p* ok ¤ qg %option-processor-procedure¤ rg m-46961e511b-1c3¤ sr- ¤ ts ¤ uf l-46961e511b-1c5¤ vu ¤ w/>tv ¤ xs<wC<<<<LZ`d ¤ y*Exg ¤ zDy ¤ {z( ¤ |v<wC<d<<<k<r®± ¤ }*P|g ¤ ~D} ¤ '{~( ¤ ss ¤ f l-46961e511b-1c8¤ f l-46961e511b-1c9¤ ¤ /z ¤
s<wC<<<<LZ`d
¤ *w
g ¤ *
g ¤ G<w ¤ * k ¤ ¤ ¤ *|g ¤ D ¤ '{( ¤ f l-46961e511b-1cd¤ f l-46961e511b-1ce¤ ¤ /z ¤ s<wC<<<<LZ`d
¤ *wg ¤ *g ¤ <w ¤ * k ¤ ¤ ¤ *|g ¤ D ¤ '{( ¤ f l-46961e511b-1d2¤ f l-46961e511b-1d3¤ ¤ /z ¤ ”s <wC<<<<LZ`d
¤ ¢*w”g ¤ £*”g ¤ ¤G <w ¤ „*¢¤k ¤ ¦£„ ¤ §¦ ¤ Øg t-46961e511b-1c2¤ ©Ø ¤ Ŗf l-46961e511b-1d7¤ «Ŗ ¤ ¬/©t« ¤ s¬<wC<<<<LZ`d
¤ ®*+g ¤ Æv¬<wC<d<<<k<r®± ¤ °*yÆg ¤ ±° ¤ ²*±Æg ¤ ³*4Æg ¤ “*6Æg ¤ µ“° ¤ ¶G¬<w ¤ ·* ¶k ¤ ø³µ· ¤ ¹*¹Æg ¤ ŗ¬<w ¤ »* ŗk ¤ ¼¹°» ¤ ½*@Æg ¤ ¾*Æg ¤ æ*¶k ¤ Ą¾æ ¤ Į½°Ą ¤ Ā²ø¼Į ¤ Ć®±Ā ¤ ÄG<w ¤ Å*qÄk ¤ Ęg each¤ Ē(( ¤ ČĘĒ ¤ É(Ȥ Ź(ɤ Ė(Ź¤ Ģg %%set-fields¤ Ķg dummy¤ Īg check?¤ Ļg expr¤ ŠĶĪyeĻ ¤ Ńg m-46961e511b-1de¤ ŅŃ- ¤ ÓŅvvvv ¤ Ōf l-46961e511b-1e3¤ Õf l-46961e511b-1e4¤ Öf l-46961e511b-1e5¤ ×f l-46961e511b-1e6¤ Ųf l-46961e511b-1e7¤ ŁŌÕÖ×Ų ¤ Ś/ŠÓŁ ¤ ŪŅ ¤ Üf l-46961e511b-1e0¤ ŻÜ ¤ Ž/>ŪŻ ¤ ßg t-1e8ba8b5a-3c4¤ ąg t-1e8ba8b5a-3c6¤ įg t-1e8ba8b5a-3c5¤ āßąį ¤ ćg m-1e8ba8b5a-3c7¤ äć- ¤ åäää ¤ ęf l-1e8ba8b5a-3cb¤ ēf l-1e8ba8b5a-3cc¤ čf l-1e8ba8b5a-3cd¤ éęēč ¤ ź/āåé ¤ ėf l-1e8ba8b5a-3c1¤ ģf l-1e8ba8b5a-3c2¤ ķf l-1e8ba8b5a-3c3¤ īėģķ ¤ ļ/lmī ¤ švŚ<ŽC<ź<<<ļ®±
¤ ń*Ģšg ¤ ņGŚ<Ž ¤ ó* ņk ¤ ō*ņk ¤ õ*ņk ¤ ö*ņk ¤ ÷*ņk ¤ ųōõö÷ ¤ łg map¤ śł ¤ ūł ¤ üg list¤ żg scm-error¤ žg
program-error¤ ’f args-fold¤ f Duplicate option name `~A~A'¤ g char?¤ f --¤ g error-duplicate-option¤ g make-hash-table¤ g length¤ g for-each¤ g hash-create-handle!¤ g build-options-lookup¤ g append¤
g
string-length¤ g substring¤ g
string-ref¤
g hash-ref¤ g
misc-error¤ f %Missing required argument after `-~A'¤ g char=?¤ g string-index¤ f &Missing required argument after `--~A'¤ f Extraneous argument after `--~A'¤C 5 h(7 ¤ ]4
5 4 > " G 4i4 i5 > " G h Į ] Ø C¹ g names
g
required-arg? g
optional-arg? g processor g filenamef srfi/srfi-37.scm
E
g nameg %option-procedure C R4"#&)· h ] C g t-46961e511b-14f
g t-46961e511b-150 g t-46961e511b-151 g t-46961e511b-152 C¹¼½ h S ]L 6 K g a
g filenamef srfi/srfi-37.scm E
C'Ą h C ] L 6; g filenamef srfi/srfi-37.scm E
CĀ h ] C
CÄÅ hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 | g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-37.scm
E
n C5RČÉĢ ĶØ 4Š > " G Ó iŖ R h s ] ¦$ §CC k g obj
g filenamef srfi/srfi-37.scm
E
g nameg %option?-procedure CŌR4"Õ#&Ö= h 8 ] C 0 g t-46961e511b-165
C¹¼Õ½ h S ]L 6 K g a
g filenamef srfi/srfi-37.scm E
C'Ą h C ] L 6; g filenamef srfi/srfi-37.scm E
C? h ] C
CÄÅ hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 | g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-37.scm
E
n C5ÕR B h v ] §&
©C 6n g s
g filenamef srfi/srfi-37.scm
E
g nameg %option-names-procedure CCR4"#&v h : ]C 2 g err
g s C h : ]C 2 g err
g s C ¦ h : ]C 2 g err
g s CÖÄ h 8 ] C 0 g t-46961e511b-171
C¹¼½ h S ]L 6 K g a
g filenamef srfi/srfi-37.scm E
C'Ą h C ] L 6; g filenamef srfi/srfi-37.scm E
CĘ h ] C
CÄÅ hø Ą ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 ø g x
³ g tmp ³ g tmp " ³ g tmp 9 ³ g tmp P ³ g tmp g ³ g tmp ³ g filenamef srfi/srfi-37.scm
E
³ C5R B h ~ ] §& ©C 6v g s
g filenamef srfi/srfi-37.scm
E
g nameg %option-required-arg?-procedure CĒR4"#&ÕÜį h : ]C 2 g err
g s Cäźļ h : ]C 2 g err
g s Cņųż h : ]C 2 g err
g s CÖ h 8 ] C 0 g t-46961e511b-18c
C¹¼½ h S ]L 6 K g a
g filenamef srfi/srfi-37.scm E
C'Ą h C ] L 6; g filenamef srfi/srfi-37.scm E
C h ] C
CÄÅ hø Ą ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 ø g x
³ g tmp ³ g tmp " ³ g tmp 9 ³ g tmp P ³ g tmp g ³ g tmp ³ g filenamef srfi/srfi-37.scm
E
³ C5R B h ~ ] §& ©C 6 v g s
g filenamef srfi/srfi-37.scm
E
g nameg %option-optional-arg?-procedure C R4"#&*16 h : ]C 2 g err
g s C9?D h : ]C 2 g err
g s CGMR h : ]C 2 g err
g s CÖn h 8 ] C 0 g t-46961e511b-1a7
C¹¼½ h S ]L 6 K g a
g filenamef srfi/srfi-37.scm E
C'Ą h C ] L 6; g filenamef srfi/srfi-37.scm E
Cp h ] C
CÄÅ hø Ą ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 ø g x
³ g tmp ³ g tmp " ³ g tmp 9 ³ g tmp P ³ g tmp g ³ g tmp ³ g filenamef srfi/srfi-37.scm
E
³ C5R B h z ] §& ©C 6 r g s
g filenamef srfi/srfi-37.scm
E
g nameg %option-processor-procedure CqR4"#& h : ]C 2 g err
g s C h : ]C 2 g err
g s C¢§ h : ]C 2 g err
g s CÖĆ h 8 ] C 0 g t-46961e511b-1c2
C¹¼½ h S ]L 6 K g a
g filenamef srfi/srfi-37.scm E
C'Ą h C ] L 6; g filenamef srfi/srfi-37.scm E
CÅ h ] C
CÄÅ hø Ą ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 ø g x
³ g tmp ³ g tmp " ³ g tmp 9 ³ g tmp P ³ g tmp g ³ g tmp ³ g filenamef srfi/srfi-37.scm
E
³ C5R4"¢#&Ėńóųūü h v ]45C n g dummy
g check? g s g getter g expr CÄÅ h( ¾ ] 4 5 $ @ 6 ¶ g x
" g tmp " g filenamef srfi/srfi-37.scm
E
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5¢Rżž’ h( æ ]4 5$ -" 6 · g option-name
% g filenamef srfi/srfi-37.scm
M
N
N
O
P P P / " P
% N
% g nameg error-duplicate-option CR h( ] 4L 5 $ 6LC g name
# g assoc # g filenamef srfi/srfi-37.scm
[ \ \ ^ ^ _ 1 _ ! ` # C B h0 e ]L O §&
©" 4 56 ] g opt
) g filenamef srfi/srfi-37.scm
Z a ) [ ) C h0 k ] 4 4 55 4O > " G C c g options
/ g lookup / g filenamef srfi/srfi-37.scm
T
X X & X ! X X Y / g nameg build-options-lookupg
documentationf Answer an `equal?' Guile hash-table that maps OPTIONS' names back
to the containing options, signalling an error if a name is
encountered more than once. CR Bü h S ] L4L M5@ K g filenamef srfi/srfi-37.scm
q r ) r
C hØ q ] §& ©" 4 5 §& ©" 4 5$ 45 " 9 §& ©" 4 5$ 45 " 4> " G 44L O > 5" =N C i g opt
§ g name § g req-arg-proc § g opt-arg-proc § g no-arg-proc § g procedure § g params § g filenamef srfi/srfi-37.scm
$ ? @ ) K g h ) q
p „ p
§ g nameg invoke-option-processor C
hP { ] 4M 5$ 4M 5 M N CM $ M M N CM $ M N CC s g position
N g result ' g result 3 > g filenamef srfi/srfi-37.scm
-
& 1
" $ * +
/ 2 3
8 ; A
E H J
N g nameg short-option-argument C
ż’ h( ” ]4L L5 $ CL 6 g t
( g args
( g filenamef srfi/srfi-37.scm
Ŗ « « ¬ m ! m # ¬ ! ( m (
C h M ] LL 6E g filenamef srfi/srfi-37.scm
°
C h D ] C < g filenamef srfi/srfi-37.scm
±
C Bü h S ] L4L M5@ K g filenamef srfi/srfi-37.scm
q r ) r
C
h ļ ] 4M5$ MNL6 4M 5 4L5 $ ~4LL O LO > " G §& ©" 4 5 $ " §& ©" 4
5 $ C "’’M LØ 4 4 LLO > 5" =N "’’ ē g position
ū g opt-name $ ū g option-here / ū g t { ¦ g names ŗ Ź g params Š ņ g filenamef srfi/srfi-37.scm
&
' $ $
' /
7 ” 8 Ø d ² { ² ³ Ŗ ² Æ “ % µ “ ŗ £ * ŗ £ " Š ¢ Ó p ļ p õ ¦ ! ū ¦ ū g nameg short-option C
ü h S ] L4L M5@ K g filenamef srfi/srfi-37.scm
q r ) r
Cü h S ] L4L M5@ K g filenamef srfi/srfi-37.scm
q r ) r
C h( ] 44L LO > 5" =N Cx g arg
( g params ( g filenamef srfi/srfi-37.scm
w w
p & p ( C
ż’ h( ]L$ LL6L 6 g args
% g filenamef srfi/srfi-37.scm
Ź Ė Ģ & Ģ Ķ m m Ķ % m
%
C h _ ] L$ L L6C W g filenamef srfi/srfi-37.scm
Ī Ī Ī 6 Ī '
Cż’ h ]L$ L 6C g args
g filenamef srfi/srfi-37.scm
Ļ Š
Ń m m Ń m
C h S ] L4L M5@ K g filenamef srfi/srfi-37.scm
q r ) r
C hø A ]8M( MEM 4-4
55 $ " 4 5 $ 0 44LL O > 5" =N MN" @4-4 55$ 4 5$ 'MN4LL O M> " G N" ćM " Ź4=5 4 $ " 455 4
L5 $ 54L O O
O > " hG " a$ "’’ LØ 44LLO > 5" =N" "’’. MN" 4L > " G "’žP 9 g arg
² g t ! : g params C e g arg ¹ g start-pos æ g index Ź g opt-name č g option-here ó g names D T g params Z
g filenamef srfi/srfi-37.scm
× Ų Ł
Ś Ś
Ū Ū ( Ū ! Ū ! Ū 0 Ü 7 Ü > Ū C Ż F p b p h Ž j Ž o ß t ß } ß Ū ą ą ą į ) į w ° y ² y ¹ » ¹ » æ ¼ Ą ½ Ź ½
Ķ ¾ Ł ¾ , ą ¾ 6 č ¾ č ½
ė æ ó ½
ū Ą ü Č 6 Ā 9 Ć # ? Ć D Ę D Ę Z Ä ] p y p ¼ Ņ Ņ ć ² ä : ²
g nameg next-arg C h J - 1 3
H H45 O O O O Q Q Q Q 6 B g args
| g options | g unrecognized-option-proc | g operand-proc | g seeds | g lookup | g invoke-option-processor H | g short-option-argument H | g short-option H | g next-arg H |
g filenamef srfi/srfi-37.scm
e
j j | ę |
g nameg args-foldg
documentationf ¹Answer the results of folding SEEDS as multiple values against the
program-arguments in ARGS, as decided by the OPTIONS'
`option-processor's, UNRECOGNIZED-OPTION-PROC, and OPERAND-PROC. CRC g m
, g rtd
> g filenamef srfi/srfi-37.scm *
- 0
2 0 : 0 & ? 0
, E
Ó M
! T
7% e
7'
C6 PK ! Ī”·
srfi-34.gonu [µü¤ GOOF----LE-8-2.0s ] z 4 hn ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-34¤ ¤ g filenameS¤
f srfi/srfi-34.scm¤ g exportsS¤ g with-exception-handler¤
g guard¤
¤ g replacementsS¤ g raise¤ ¤ g set-current-module¤ ¤ ¤ g cond-expand-provide¤ g current-module¤ ¤ g throw-key¤ g with-throw-handler¤ g throw¤ g make-syntax-transformer¤ ¤ ¤ g macro¤ g $sc-dispatch¤ ¤ ! ¤ "g any¤ #g each+¤ $g free-id¤ %g
syntax-object¤ &g else¤ 'g top¤ (' ¤ )g ribcage¤ *) ¤ +g x¤ ,+ ¤ -g m-46961e5118-a¤ .-' ¤ /. ¤ 0f l-46961e5118-c¤ 10 ¤ 2),/1 ¤ 3(*2 ¤ 4g hygiene¤ 54 ¤ 6%&35 ¤ 7$6 ¤ 8g each-any¤ 9"8¤ :79¤ ;: ¤ <#"; ¤ ="<¤ >=9¤ ?">¤ @g catch¤ Ag dummy¤ Bg var¤ Cg clause¤ Dg e¤ Eg e*¤ Fg body¤ Gg body*¤ HABCDEFG ¤ I.(((((( ¤ Jf l-46961e5118-f¤ Kf l-46961e5118-10¤ Lf l-46961e5118-11¤ Mf l-46961e5118-12¤ Nf l-46961e5118-13¤ Of l-46961e5118-14¤ Pf l-46961e5118-15¤ QJKLMNOP ¤ R)HIQ ¤ S(R*2 ¤ T%@S5 ¤ U%S5 ¤ Vg lambda¤ W%VS5 ¤ Xg key¤ Y%XS5 ¤ Zg cond¤ [%ZS5 ¤ \g append¤ ]\ ¤ ^\ ¤ _%&S5 ¤ `"9¤ a`9¤ b"a¤ cg clause*¤ dABCcFG ¤ e.((((( ¤ ff l-46961e5118-21¤ gf l-46961e5118-22¤ hf l-46961e5118-23¤ if l-46961e5118-24¤ jf l-46961e5118-25¤ kf l-46961e5118-26¤ lfghijk ¤ m)del ¤ n(m*2 ¤ o%@n5 ¤ p%n5 ¤ q%Vn5 ¤ r%Xn5 ¤ s%Zn5 ¤ t%&n5 ¤ u%n5 ¤ vg syntax-violation¤ wv ¤ xv ¤ yf -source expression failed to match any pattern¤C 5 hŠ
]4
5 4 > " G 4i4i5 > " G R h n ]L 6f g key
g obj g filenamef srfi/srfi-34.scm
, - C h ] O 6 g handler
g thunk g filenamef srfi/srfi-34.scm
%
* g nameg with-exception-handlerg
documentationf äReturns the result(s) of invoking THUNK. HANDLER must be a
procedure that accepts one argument. It is installed as the current
exception handler for the dynamic extent (as determined by
dynamic-wind) of the invocation of THUNK. C R h ŗ ] 6 ² g obj
g filenamef srfi/srfi-34.scm
/
5
g nameg raiseg
documentationf 6Invokes the current exception handler on OBJ. The handler is
called in the dynamic environment of the call to raise, except that
the current exception handler is that in place for the call to
with-exception-handler that installed the handler being called. The
handler's continuation is otherwise unspecified. CR4
!?TUWY[^_ h8 ] 4 5 C g dummy
5 g var 5 g clause 5 g e 5 g e* 5 g body 5 g body* 5 5 Cbopqrs^tu h@ ] 4 5 C g dummy
> g var > g clause > g clause* > g body > g body* > > Cxy h@ ]4 5 $ @4 5 $ @ 6
g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-34.scm
8 9 g
documentationf ÉSyntax: (guard ( ...) )
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-rulesg patternsg varg clauseg ...g elseg eg e*g ... g bodyg body*g ... g varg clauseg clause*g ... g bodyg body*g ... C5
RC g m
, g filenamef srfi/srfi-34.scm
- !
2 ! : ! & ? !
I # L #
%
u /
Ģ
C6 PK ! ēZŹw w srfi-6.gonu [µü¤ GOOF----LE-8-2.0_ ] 4 hä ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-6¤ ¤ g filenameS¤
f srfi/srfi-6.scm¤ g
re-exportsS¤ g get-output-string¤
¤ g replacementsS¤ g open-input-string¤ g open-output-string¤ ¤ g set-current-module¤ ¤ ¤ g %default-port-encoding¤ f UTF-8¤ ¤ ¤ ¤ ¤ g cond-expand-provide¤ g current-module¤ ¤C 5 h° } ]4
5 4 > " G h ]Y4 > ZCZF g s
g filenamef srfi/srfi-6.scm
! ( " " " g nameg open-input-string CR h ] Y4> ZCZF x g filenamef srfi/srfi-6.scm
$
% ( & & &
g nameg open-output-string CRi4 i5 6 u g m
, g filenamef srfi/srfi-6.scm
ź
$
( Ø ( & Ŗ (
Ŗ
C6 PK ! c
8ėäF äF
srfi-35.gonu [µü¤ GOOF----LE-8-2.0ĢF ] 4 hQ ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-35¤ ¤ g filenameS¤
f srfi/srfi-35.scm¤ g importsS¤ g srfi-1¤
¤
¤ ¤ g exportsS¤ g make-condition-type¤ g condition-type?¤ g make-condition¤ g
condition?¤ g condition-has-type?¤ g
condition-ref¤ g make-compound-condition¤ g extract-condition¤ g define-condition-type¤ g condition¤ g
&condition¤ g &message¤ g message-condition?¤ g condition-message¤ g &serious¤ g serious-condition?¤ !g &error¤ "g error?¤ # !" ¤ $g set-current-module¤ %$ ¤ &$ ¤ 'g cond-expand-provide¤ (g current-module¤ ) ¤ *g make-vtable¤ +g
string-append¤ ,g standard-vtable-fields¤ -f prprpr¤ .g format¤ /f #¤ 0g condition-type-id¤ 1g number->string¤ 2g object-address¤ 3g set-struct-vtable-name!¤ 4g condition-type¤ 5g %condition-type-vtable¤ 6g make-struct-layout¤ 7g print-condition¤ 8g string?¤ 9g string->symbol¤ :f ¤ ;g %make-condition-type¤ g condition-type-all-fields¤ ?g string-concatenate/shared¤ @f pr¤ A@ ¤ Bg struct-layout-for-condition¤ Cf #¤ Dg fold¤ Ef ~A: ~S¤ Fg string-join¤ Gg reverse¤ Hf ¤ Ig error¤ Jf "invalid condition type field names¤ Kg every¤ Lg symbol?¤ Mg lset-intersection¤ Ng eq?¤ Og append¤ Pf parent is not a condition type¤ Qf )condition type identifier is not a symbol¤ Rf 7`make-compound-condition-type' passed empty parent list¤ Sg
append-map¤ Tg make-compound-condition-type¤ Ug throw¤ Vg wrong-type-arg¤ Wf condition-has-type?¤ Xf Wrong type argument¤ Yg any¤ Zg
list-index¤ [f invalid field name¤ \f field name is not a symbol¤ ]f
condition-ref¤ ^f Wrong type argument: ~S¤ _g make-struct¤ `g make-condition-from-values¤ ag
fold-right¤ bg memq¤ cf field not specified¤ df make-condition¤ eg map¤ fg compound¤ gg reverse!¤ hf extract-condition¤ ig +¤ jg length¤ kg make-syntax-transformer¤ lk ¤ mk ¤ ng macro¤ og $sc-dispatch¤ po ¤ qo ¤ rg each¤ sYY ¤ trs ¤ uYt¤ vYu¤ wYv¤ xYw¤ yg
syntax-object¤ zg begin¤ {g top¤ |{ ¤ }g ribcage¤ ~g dummy¤ g name¤ g parent¤ g pred¤ g
field-name¤ g field-accessor¤ ~ ¤
g m-46961e5119-cc¤
{ ¤ ||||| ¤ f l-46961e5119-d1¤ f l-46961e5119-d2¤ f l-46961e5119-d3¤ f l-46961e5119-d4¤ f l-46961e5119-d5¤ f l-46961e5119-d6¤ ¤ } ¤ } ¤ g x¤ ¤ ¤ f l-46961e5119-ce¤ ¤ } ¤ | ¤ g hygiene¤ ¤ yz ¤ g define¤ y ¤ y ¤ g quote¤ y ¤ g c¤ ”y ¤ ¢” ¤ £y ¤ ¤e ¤ „e ¤ ¦y ¤ §g syntax-violation¤ ا ¤ ©§ ¤ Ŗf -source expression failed to match any pattern¤ «g compound-condition¤ ¬g each-any¤ Y¬¬ ¤ ®g type¤ Æg field¤ °~®Æ ¤ ±g m-46961e5119-e1¤ ²±{ ¤ ³²|| ¤ “f l-46961e5119-e6¤ µf l-46961e5119-e7¤ ¶f l-46961e5119-e8¤ ·“µ¶ ¤ ø}°³· ¤ ¹² ¤ ŗf l-46961e5119-e3¤ »ŗ ¤ ¼}¹» ¤ ½|ø¼ ¤ ¾y½ ¤ æyT½ ¤ Ąy½ ¤ Įg %compound¤ ĀyĮ½ ¤ ĆĄĀ ¤ Äg
quasiquote¤ ÅyĽ ¤ Ęg unquote¤ ĒyĘ½ ¤ Čg condition-instantiation¤ ÉYY¬ ¤ Źg out¤ Ė~®Ź ¤ Ģg m-46961e5119-ee¤ ĶĢ{ ¤ ĪĶ|| ¤ Ļf l-46961e5119-f3¤ Šf l-46961e5119-f4¤ Ńf l-46961e5119-f5¤ ŅĻŠŃ ¤ Ó}ĖĪŅ ¤ ŌĶ ¤ Õf l-46961e5119-f0¤ ÖÕ ¤ ×}ŌÖ ¤ Ų|Ó× ¤ ŁyŲ ¤ Śs¬¤ Ū¬Ś¤ ÜYŪ¤ ŻYܤ Žg field-value¤ ßg rest¤ ą~®ŹŽß ¤ įĶ||||| ¤ āf l-46961e5119-fb¤ ćf l-46961e5119-fc¤ äf l-46961e5119-fd¤ åf l-46961e5119-fe¤ ęf l-46961e5119-ff¤ ēf l-46961e5119-100¤ čāćäåęē ¤ é}ąįč ¤ ź|é× ¤ ėyČź ¤ ģO ¤ ķO ¤ īyź ¤ ļY¬¤ šYļ ¤ ńg m-46961e5119-109¤ ņń{ ¤ óņ|| ¤ ōf l-46961e5119-10e¤ õf l-46961e5119-10f¤ öf l-46961e5119-110¤ ÷ōõö ¤ ų}°ó÷ ¤ łņ ¤ śf l-46961e5119-10b¤ ūś ¤ ü}łū ¤ ż|ųü ¤ žyČż ¤ ’rļ ¤ Y’¤ f l-46961e5119-116¤ f l-46961e5119-117¤ f l-46961e5119-118¤ ¤ }°ó ¤ |ü ¤ y« ¤ g display¤ f <&condition>¤
g message¤
¤C 5 hx0 Ņ ]4
#5 4& > " G 4'i4(i5 )> " G 4*i4+i,i-5./012 h ]4 544 5 56 g ct
g port g filenamef srfi/srfi-35.scm
3 4 ' 5 " 6 " 6 2 6 " 4 C5 43i 4> " G 5R567389: hX 0 ] 4 5Ø 4$ " 45$ 45" 45> " G C ( g layout
W g id W g parent W g
all-fields W g struct W g filenamef srfi/srfi-35.scm
;
= < < C C + $ C $ + D + 5 C $ 6 D 8 A E 8 E E H G E 8 L C W g nameg %make-condition-type C;R5 h Ķ ] ¦$ §CC Å g obj
g filenamef srfi/srfi-35.scm
H
J J K K g nameg condition-type?g
documentationf 'Return true if OBJ is a condition type. CR< h ]4 5$
©CC g ct
g filenamef srfi/srfi-35.scm
N
O
O P P g nameg condition-type-id C0R< h ]4 5$ ©CC g ct
g filenamef srfi/srfi-35.scm
R
S
S T T g nameg condition-type-parent C=R< h ]4 5$ ©CC g ct
g filenamef srfi/srfi-35.scm
V
W
W X X g nameg condition-type-all-fields C>R?@A h0 ]" ( 6 "’’ä "’’Ų ų g field-names
. g field-names " g layout " g filenamef srfi/srfi-35.scm
[
^ ` a b c c " b " ^ & _ . ^ . g nameg struct-layout-for-condition CBR.C04D.E h ]4 4L 55C g field
g result g filenamef srfi/srfi-35.scm
j k " k - l * k " k C>FGH12
hX ? ]44 55 § 4 O 455 44 5
5 4 4 5 56 7 g c
S g port S g type C g strings - @ g filenamef srfi/srfi-35.scm
e
r s
s s
i i j $ n % o - j - i 0 p 3 p ; p % = p D u
G u Q u
S r S g nameg print-condition C7R>IJKLMNOB;PQ h ¤ ] $ l45$ Y45 " 645$ 345( 4 5 4
5 6"’’ø"’’“ 6
6 g id
} g parent } g field-names } g
parent-fields m g
all-fields N e g layout W e g filenamef srfi/srfi-35.scm
w
| |
}
} ~ ~
% ) ) * 6 7 E F # N Q # W e q u
y
} } g nameg make-condition-typeg
documentationf ėReturn a new condition type named ID, inheriting from PARENT, and with the
fields whose names are listed in FIELD-NAMES. FIELD-NAMES must be a list of
symbols and must not contain names already used by PARENT or one of its
supertypes. CRIRS>B; h@ ! ]( 6( C45 45 6 g id
; g parents ; g
all-fields $ ; g layout - ; g filenamef srfi/srfi-35.scm
$ ' - ;
; g nameg make-compound-condition-type CTR h Ä ] ¦$ §6C ¼ g c
g filenamef srfi/srfi-35.scm
¢
¤ ¤ „ „ g nameg
condition?g
documentationf Return true if C is a condition. CR h · ] ¦$ § 45$ CCCÆ g c
g vtable g filenamef srfi/srfi-35.scm
§
Ø Ø © © Ŗ
Ŗ g nameg condition-type C4RUVWX=Y h@ Ó ] L& C $ %4 5 $ L 64 5 "’’ĖC Ė g ct
9 g parent 7 g filenamef srfi/srfi-35.scm
±
² ² ³ “ “ µ " µ * ¶ + · 7 · 9 g nameg loop C4 hP B ]
"
64 5$ *45$ O Q 4 56"’’Į"’’½ : g c
I g type I g loop / A g filenamef srfi/srfi-35.scm
®
ø
ø ¹
ø ° ° ° ° & ° / ± 9 ± A ± I g nameg condition-has-type?g
documentationf )Return true if condition C has type TYPE. CR4>Zh ` ] L CX g name
g filenamef srfi/srfi-35.scm
Į % Ā ' CI[\UV]^
h` Č ]4 5$ E$ 64 5 45 4O 5 $ ©C66
6 Ą g c
^ g
field-name ^ g type J g fields $ J g index 4 J g filenamef srfi/srfi-35.scm
»
½
½ ¾
¾ æ æ
Ą $ æ
' Į 4 æ
< Ä A Å F Ę J Ę N Ē R Ē
V Č
X Č Z É
^ Č ^ g nameg
condition-refg
documentationf @Return the value of the field named FIELD-NAME from condition C. CR_ h ]
@ g type
g values g filenamef srfi/srfi-35.scm
Ė
Ģ g nameg make-condition-from-values C`R>abIc h( Ā ]
4 L 5 $ C 6 ŗ g field
$ g inits $ g v $ g filenamef srfi/srfi-35.scm
Ó % Ō 0 Ō ' Õ - Õ ) Ö 3 Ö - × 4 $ × -
$ C`UVd^
hH É - 1 3 4 5$ "4 5 4O 5 6 6 Į g type
B g field+value B g
all-fields 6 g inits , 6 g filenamef srfi/srfi-35.scm
Ī
Ń Ń Ņ Ņ Ó ( Ł % , Ó , Ņ 6 Ū : Ü
< Ü > Ż
B Ü B
g nameg make-conditiong
documentationf Return a new condition of type TYPE with fields initialized as specified
by FIELD+VALUE, a sequence of field names (symbols) and values. CRe4TfS4e h ] ]L 6 U g f
g filenamef srfi/srfi-35.scm
å &
ę (
C> h ] 4 5 O 456 g c
g ct g filenamef srfi/srfi-35.scm
ć ä ) ä ē & å ! C` h8 U - 1 3 4 5 45 4 5 6 M g
conditions
2 g types 2 g ct 2 g inits ( 2 g filenamef srfi/srfi-35.scm
ß
į į ā ā / ā į ć ( į 2 é 2
g nameg make-compound-conditiong
documentationf 7Return a new compound condition composed of CONDITIONS. CRg h@ ; ]" (( 6L © "’’Ų "’’É 3 g start-index
= g field-names = g index . g field-names . g result . g filenamef srfi/srfi-35.scm
# .
. 3 = = g nameg list-fields CUVhX4=ie>j hp h ] ( CL & C$ 04L5 $ C 445? "’’±4455 "’’ ` g parents
o g index o g parent o g t * Q g shift ] o g filenamef srfi/srfi-35.scm
ń ó ó
ō ų ! ō " ł * ł 8 ś ; ü > ü % H ü I ū Q ś R ’ U ’ $ ] ’ ] ’ b g o o g nameg loop C>
h ]"O Q "
64 5$ f45$ W4 5 4 5 & C$ 1
O Q 4
5 44 55@C"’’
"’’ g c
g type g list-fields
g ct : g parent C g loop ` r g field-index r g filenamef srfi/srfi-35.scm
ė
!
! "
! ( ) 3 4 : = C M S W ` ń r y ~ % g nameg extract-conditiong
documentationf OReturn a condition of condition type TYPE with the field values specified
by C. CR4mnqx¢£”„¢¦” h X ] C P g tmp-46961e5119-df
g tmp-46961e5119-de C
hH ] 4 5C g dummy
B g name B g parent B g pred B g
field-name B g field-accessor B B C©Ŗ h( Ų ] 4 5 $ @ 6 Š g x
" g tmp " g filenamef srfi/srfi-35.scm
)
" g
macro-typeg syntax-rulesg patternsg nameg parentg predg
field-nameg field-accessor g ... C5R4m«nq¾æĆÅ„Ē h 9 ] C 1 g tmp-46961e5119-ec
C h R ]45 CJ g dummy
g type g field C©Ŗ h( ¹ ] 4 5 $ @ 6 ± g x
" g tmp " g filenamef srfi/srfi-35.scm
3
" g
macro-typeg syntax-rulesg patternsg typeg ... g fieldg ... C5«R4mČnqÉŁ h P ]C H g dummy
g type g out CŻėķī h ]4 5C g dummy
g type g out g
field-name g field-value g rest C©Ŗ h@
]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-35.scm
: 9 g
macro-typeg syntax-rulesg patternsg typeg outg ... g typeg outg ... g
field-nameg field-value g restg ... C5ČR4mnqšž h R ]C J g dummy
g type
g field
C ķ h R ]4? C J g dummy
g type g field C©Ŗ h@ ę ]4 5 $ @4 5 $ @ 6 Ž g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-35.scm
A 9 g
macro-typeg syntax-rulesg patternsg typeg fieldg ... g typeg fieldg ... g ... C5R5i46i:5 h x ]6p g c
g port g filenamef srfi/srfi-35.scm
P Q Q CØ R4i i 5 R h r ] 6 j g c
g filenamef srfi/srfi-35.scm
T
g nameg message-condition? C R
h q ] 6 i g c
g filenamef srfi/srfi-35.scm
T
g nameg condition-message C R4i i5 R h r ] 6 j g c
g filenamef srfi/srfi-35.scm
X
g nameg serious-condition? C R4i! i5!R! h f ] 6 ^ g c
g filenamef srfi/srfi-35.scm
[
g nameg error? C"RC Ź g m
, g s
( E g filenamef srfi/srfi-35.scm
- '
2 ' : ' & ? '
H 2 M 2 W 2 > Y 2 ( 2 ( 2 + 8 3 8 8 8 H .
ó ;
š H
“ N
x R
D V
[
e
o w
ģ
ß ¢
Ź §
„ ®
k »
- Ė
\ Ī
H ß
# ė
-@ O -F O # -H O -ā R -ä R -å R " -č N -ė L
-ģ T
/- X
/Ö [
, 0s
C6 PK ! ÆTa)J )J
srfi-27.gonu [µü¤ GOOF----LE-8-2.0J ]H 4 hä* ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-27¤ ¤ g filenameS¤
f srfi/srfi-27.scm¤ g importsS¤ g srfi-9¤
¤
¤ ¤ g exportsS¤ g random-integer¤ g random-real¤ g default-random-source¤ g make-random-source¤ g random-source?¤ g random-source-state-ref¤ g random-source-state-set!¤ g random-source-randomize!¤ g random-source-pseudo-randomize!¤ g random-source-make-integers¤ g random-source-make-reals¤ ¤ g set-current-module¤ ¤ ¤ g cond-expand-provide¤ !g current-module¤ " ¤ #g :random-source¤ $g %%make-random-source-procedure¤ %g make-syntax-transformer¤ &% ¤ '% ¤ (g %make-random-source¤ )g macro¤ *g $sc-dispatch¤ +* ¤ ,* ¤ -g _¤ .g any¤ /-. ¤ 0g
syntax-object¤ 1g lambda¤ 2g m-46961e50f6-4¤ 3g top¤ 423 ¤ 5g ribcage¤ 6g t-46961e50f6-3¤ 76 ¤ 84 ¤ 9f l-46961e50f6-9¤ :9 ¤ ;578: ¤ <5 ¤ =g x¤ >= ¤ ?f l-46961e50f6-6¤ @? ¤ A5>8@ ¤ Bg shift¤ Cg proc-name¤ Dg args¤ ECD ¤ F3 ¤ GFF ¤ Hf l-1e8ba8b5a-2ba¤ If l-1e8ba8b5a-2bb¤ JHI ¤ K5EGJ ¤ Lg key¤ Mg value¤ Ng name¤ Og formals¤ Pg body¤ QLMNOP ¤ RFFFFF ¤ Sf l-1e8ba8b5a-2ad¤ Tf l-1e8ba8b5a-2ae¤ Uf l-1e8ba8b5a-2af¤ Vf l-1e8ba8b5a-2b0¤ Wf l-1e8ba8b5a-2b1¤ XSTUVW ¤ Y5QRX ¤ Zg make-procedure-name¤ [Z ¤ \F ¤ ]f l-1e8ba8b5a-29d¤ ^] ¤ _5[\^ ¤ `F ¤ af l-1e8ba8b5a-29c¤ ba ¤ c5>`b ¤ d4;<AB<<<<KY_c
¤ eg hygiene¤ fe ¤ g01df ¤ hg state¤ iF;<A ¤ je ¤ k0hij ¤ lk ¤ mg make-struct¤ ng m-46961e50f6-1¤ on3 ¤ pg t-1e8ba8b5a-38d¤ qg t-1e8ba8b5a-38c¤ rg t-1e8ba8b5a-38b¤ spqr ¤ tg m-1e8ba8b5a-38e¤ ut3 ¤ vuuu ¤ wf l-1e8ba8b5a-392¤ xf l-1e8ba8b5a-393¤ yf l-1e8ba8b5a-394¤ zwxy ¤ {5svz ¤ |g ctor-args¤ }| ¤ ~f l-1e8ba8b5a-37a¤ ~ ¤ 5}` ¤ g ctor¤ g field¤ ¤ f l-1e8ba8b5a-376¤
f l-1e8ba8b5a-377¤
¤ 5G ¤ g form¤ g type-name¤ g constructor-spec¤ g field-names¤ ¤ FFFF ¤ f l-1e8ba8b5a-36b¤ f l-1e8ba8b5a-36c¤ f l-1e8ba8b5a-36d¤ f l-1e8ba8b5a-36e¤ ¤ 5 ¤ g
record-layout¤ g functional-setters¤ g setters¤ g copier¤ g getters¤ g constructor¤ g getter-identifiers¤ g field-identifiers¤ ¤ FFFFFFFF ¤ f l-1e8ba8b5a-343¤ f l-1e8ba8b5a-341¤ f l-1e8ba8b5a-33f¤ ”f l-1e8ba8b5a-33d¤ ¢f l-1e8ba8b5a-33b¤ £f l-1e8ba8b5a-339¤ ¤f l-1e8ba8b5a-337¤ „f l-1e8ba8b5a-335¤ ¦ ”¢£¤„ ¤ §5¦ ¤ Øf l-1e8ba8b5a-334¤ ©Ø ¤ Ŗ5>`© ¤ «o;<AB<{<<<<§Ŗ ¤ ¬0m«f ¤ 0#ij ¤ ®0
«f ¤ Ƭ®k ¤ °glÆ ¤ ±g each-any¤ ²-±¤ ³g syntax-violation¤ “
³ ¤ µ
³ ¤ ¶f Wrong number of arguments¤ ·g identifier?¤ ø
· ¤ ¹
· ¤ ŗF<A ¤ »0$ŗj ¤ ¼³ ¤ ½³ ¤ ¾f -source expression failed to match any pattern¤ æg record-type-vtable¤ Ą
æ ¤ Į
æ ¤ Āg pw¤ Ćg default-record-printer¤ Ä
Ć ¤ Å
Ć ¤ Ęh ¤ Ēg set-struct-vtable-name!¤ Č
Ē ¤ É
Ē ¤ Źg vtable-offset-user¤ Ė
Ź ¤ Ģ
Ź ¤ Ķg %random-source?-procedure¤ Īg m-46961e50f6-11¤ ĻĪ3 ¤ Šg t-46961e50f6-10¤ ŃŠ ¤ ŅĻ ¤ Óf l-46961e50f6-16¤ ŌÓ ¤ Õ5ŃŅŌ ¤ Öf l-46961e50f6-13¤ ×Ö ¤ Ų5>Ņ× ¤ ŁĻÕ<ŲB<<<<KY_c
¤ Ś01Łf ¤ Ūg obj¤ Üg t-1e8ba8b5a-47e¤ Żg t-1e8ba8b5a-478¤ Žg t-1e8ba8b5a-479¤ ßg t-1e8ba8b5a-47a¤ ąg t-1e8ba8b5a-47d¤ įg t-1e8ba8b5a-47c¤ āg t-1e8ba8b5a-47b¤ ćÜŻŽßąįā ¤ äg m-1e8ba8b5a-47f¤ åä3 ¤ ęååååååå ¤ ēf l-1e8ba8b5a-483¤ čf l-1e8ba8b5a-484¤ éf l-1e8ba8b5a-485¤ źf l-1e8ba8b5a-486¤ ėf l-1e8ba8b5a-487¤ ģf l-1e8ba8b5a-488¤ ķf l-1e8ba8b5a-489¤ īēčéźėģķ ¤ ļ5ćęī ¤ šg copier-id¤ ńš ¤ ņf l-1e8ba8b5a-476¤ óņ ¤ ō5ń`ó ¤ õg ctor-name¤ öõ ¤ ÷f l-1e8ba8b5a-46e¤ ų÷ ¤ ł5ö`ų ¤ ś ¤ ūf l-1e8ba8b5a-46c¤ üū ¤ ż5ś`ü ¤ žg layout¤ ’ž ¤ f l-1e8ba8b5a-46a¤ ¤ 5’` ¤ g
immutable?¤ ¤ f l-1e8ba8b5a-468¤ ¤ 5` ¤ g field-count¤ ¤
f l-1e8ba8b5a-466¤
¤ 5 ` ¤
g
getter-ids¤
¤ f l-1e8ba8b5a-463¤ ¤ 5` ¤ g field-ids¤ ¤ f l-1e8ba8b5a-460¤ ¤ 5` ¤ g predicate-name¤ g
field-spec¤ ¤ FFFFFF ¤ f l-1e8ba8b5a-453¤ f l-1e8ba8b5a-454¤ f l-1e8ba8b5a-455¤ f l-1e8ba8b5a-456¤ f l-1e8ba8b5a-457¤ f l-1e8ba8b5a-458¤ ! ¤ "5! ¤ #oÕ<ŲB<ļ<<<<ō<ł<ż<<< <<"§Ŗ ¤ $0Ū#f ¤ %$ ¤ &g and¤ '0&#f ¤ (g struct?¤ )0(#f ¤ *)$ ¤ +g eq?¤ ,0+#f ¤ -g
struct-vtable¤ .0-#f ¤ /.$ ¤ 0FÕ<Ų ¤ 10#0j ¤ 2,/1 ¤ 3'*2 ¤ 4Ś%3 ¤ 5F<Ų ¤ 60Ķ5j ¤ 7g throw-bad-struct¤ 8
7 ¤ 9
7 ¤ :g random-source-state¤ ;g %random-source-state-procedure¤ g m-46961e50f6-1d¤ ?>3 ¤ @? ¤ Af l-46961e50f6-1f¤ BA ¤ C5>@B ¤ D?<CB<<<<KY_c ¤ E0=Df ¤ F<E ¤ GF. ¤ Hg %%type¤ Ig t-1e8ba8b5a-3a5¤ Jg t-1e8ba8b5a-3a6¤ Kg t-1e8ba8b5a-3a7¤ Lg t-1e8ba8b5a-3a8¤ Mg t-1e8ba8b5a-3a9¤ Ng t-1e8ba8b5a-3aa¤ Og t-1e8ba8b5a-3ab¤ PIJKLMNO ¤ Qg m-1e8ba8b5a-3ac¤ RQ3 ¤ SRRRRRRR ¤ Tf l-1e8ba8b5a-3b0¤ Uf l-1e8ba8b5a-3b1¤ Vf l-1e8ba8b5a-3b2¤ Wf l-1e8ba8b5a-3b3¤ Xf l-1e8ba8b5a-3b4¤ Yf l-1e8ba8b5a-3b5¤ Zf l-1e8ba8b5a-3b6¤ [TUVWXYZ ¤ \5PS[ ¤ ]g getter¤ ^g index¤ _]^ ¤ `f l-1e8ba8b5a-3a3¤ af l-1e8ba8b5a-3a4¤ b`a ¤ c5_Gb ¤ d
š ¤ eFFF ¤ ff l-1e8ba8b5a-39e¤ gf l-1e8ba8b5a-39f¤ hf l-1e8ba8b5a-3a0¤ ifgh ¤ j5dei ¤ ko<CB<\<<<c<j§Ŗ ¤ l0Hkf ¤ m<l ¤ n-Gm. ¤ og ck¤ pg err¤ qg s¤ rpq ¤ s?? ¤ tf l-46961e50f6-22¤ uf l-46961e50f6-23¤ vtu ¤ w5rsv ¤ x?w<CB<<<<KY_c
¤ y0oxf ¤ zg quote¤ {0zxf ¤ |Fw<C ¤ }0#|j ¤ ~{} ¤ ~ ¤ g %%index¤ 0kf ¤ < ¤ -G. ¤ f l-46961e50f6-27¤
f l-46961e50f6-28¤
¤ 5rs ¤ ?<CB<<<<KY_c
¤ 0of ¤ 0zf ¤ <C ¤ 0
j ¤ ¤ ¤ g %%copier¤ 0kf ¤ < ¤ -G. ¤ f l-46961e50f6-2c¤ f l-46961e50f6-2d¤ ¤ 5rs ¤ ?<CB<<<<KY_c
¤ 0of ¤ 0zf ¤ g %%:random-source-set-fields¤ F<C ¤ 0j ¤ ¤ ¤ g t-46961e50f6-1c¤ ¤ ”f l-46961e50f6-31¤ ¢” ¤ £5 @¢ ¤ ¤?£<CB<<<<KY_c
¤ „01¤f ¤ ¦o£<CB<\<<<c<j§Ŗ ¤ §0q¦f ¤ ا ¤ ©g if¤ Ŗ0©¦f ¤ «0+¦f ¤ ¬0-¦f ¤ ¬§ ¤ ®F£<C ¤ Æ0#®j ¤ °«Æ ¤ ±g
struct-ref¤ ²0±¦f ¤ ³£<C ¤ “0
³j ¤ µ²§“ ¤ ¶07¦f ¤ ·0z¦f ¤ ø0:®j ¤ ¹·ø ¤ ŗ¶§¹ ¤ »Ŗ°µŗ ¤ ¼„Ø» ¤ ½F<C ¤ ¾0;½j ¤ æg each¤ Ą.. ¤ ĮæĄ ¤ Ā.Į¤ Ć.Ā¤ Ä.Ƥ Åg %%set-fields¤ Ęg dummy¤ Ēg check?¤ Čg expr¤ ÉĘĒq]Č ¤ Źg m-46961e50f6-38¤ ĖŹ3 ¤ ĢĖoooo ¤ Ķf l-46961e50f6-3d¤ Īf l-46961e50f6-3e¤ Ļf l-46961e50f6-3f¤ Šf l-46961e50f6-40¤ Ńf l-46961e50f6-41¤ ŅĶĪĻŠŃ ¤ Ó5ÉĢŅ ¤ ŌĖ ¤ Õf l-46961e50f6-3a¤ ÖÕ ¤ ×5>ŌÖ ¤ Ųg t-1e8ba8b5a-3c4¤ Łg t-1e8ba8b5a-3c6¤ Śg t-1e8ba8b5a-3c5¤ ŪŲŁŚ ¤ Üg m-1e8ba8b5a-3c7¤ ŻÜ3 ¤ ŽŻŻŻ ¤ ßf l-1e8ba8b5a-3cb¤ ąf l-1e8ba8b5a-3cc¤ įf l-1e8ba8b5a-3cd¤ āßąį ¤ ć5ŪŽā ¤ äf l-1e8ba8b5a-3c1¤ åf l-1e8ba8b5a-3c2¤ ęf l-1e8ba8b5a-3c3¤ ēäåę ¤ č5deē ¤ éoÓ<×B<ć<<<č§Ŗ
¤ ź0Åéf ¤ ėFÓ<× ¤ ģ0#ėj ¤ ķ0:ėj ¤ īķ ¤ ļg map¤ šļ ¤ ńļ ¤ ņg list¤ óg set-random-source-state!¤ ōg #%set-random-source-state!-procedure¤ õ-.. ¤ ög m-46961e50f6-4c¤ ÷ö3 ¤ ųg t-46961e50f6-4a¤ łg t-46961e50f6-4b¤ śųł ¤ ū÷÷ ¤ üf l-46961e50f6-51¤ żf l-46961e50f6-52¤ žüż ¤ ’5śūž ¤ ÷ ¤ f l-46961e50f6-4e¤ ¤ 5> ¤ ÷’<B<<<<KY_c
¤ 01f ¤ g t-1e8ba8b5a-3e6¤ g t-1e8ba8b5a-3e7¤ ¤ g m-1e8ba8b5a-3e8¤
3 ¤
¤ f l-1e8ba8b5a-3ec¤
f l-1e8ba8b5a-3ed¤
¤ 5 ¤ g setter¤ N] ¤ f l-1e8ba8b5a-3e0¤ f l-1e8ba8b5a-3e1¤ f l-1e8ba8b5a-3e2¤ ¤ 5e ¤ ^ ¤ f l-1e8ba8b5a-3d7¤ f l-1e8ba8b5a-3d8¤ ¤ 5G ¤ g field-specs¤ ¤ f l-1e8ba8b5a-3d3¤ f l-1e8ba8b5a-3d4¤ ¤ !5 G ¤ "o’<B<<<!§Ŗ ¤ #0q"f ¤ $g val¤ %0$"f ¤ &#% ¤ '0©"f ¤ (0+"f ¤ )0-"f ¤ *)# ¤ +F’< ¤ ,0#+j ¤ -(*, ¤ .g struct-set!¤ /0."f ¤ 0’< ¤ 10
0j ¤ 2/#1% ¤ 307"f ¤ 40z"f ¤ 50ó+j ¤ 645 ¤ 73#6 ¤ 8'-27 ¤ 9&8 ¤ :F< ¤ ;0ō:j ¤ random-state¤ =g random-state->datum¤ >g datum->random-state¤ ?g gettimeofday¤ @e 1000000.0¤ Ag i+j->seed¤ Bg spread¤ Cg random¤ Dg random:uniform¤ Eg real?¤ Fg error¤ Gf !unit must be real between 0 and 1¤C 5 h° ]4
5 4 > " G 4 i4!i5 "> " G # h ] Ø C y g state
g filenamef srfi/srfi-27.scm
(
g nameg %%make-random-source-procedure C$R4'(),/° h 6 ] C . g t-46961e50f6-3
C²µ(¶ h S ]L 6 K g a
g filenamef srfi/srfi-27.scm (
C-¹ h C ] L 6; g filenamef srfi/srfi-27.scm (
C» h ] C
C½¾ hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 | g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-27.scm
(
n C5(RĮĀÅ#ĘØ 4É #> " G Ģ$iŖ #R# h z ] ¦$ §CC r g obj
g filenamef srfi/srfi-27.scm
(
g nameg %random-source?-procedure CĶR4'),/4 h 7 ] C / g t-46961e50f6-10
C²µ¶ h S ]L 6 K g a
g filenamef srfi/srfi-27.scm (
C-¹ h C ] L 6; g filenamef srfi/srfi-27.scm (
C6 h ] C
C½¾ hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 | g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-27.scm
(
n C5R#9: h } ] §&
©C 6u g s
g filenamef srfi/srfi-27.scm
(
g nameg %random-source-state-procedure C;R4':),ny h : ]C 2 g err
g s C h : ]C 2 g err
g s C h : ]C 2 g err
g s C/¼ h 7 ] C / g t-46961e50f6-1c
C²µ:¶ h S ]L 6 K g a
g filenamef srfi/srfi-27.scm (
C-¹ h C ] L 6; g filenamef srfi/srfi-27.scm (
C¾ h ] C
C½¾ hø Ą ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 ø g x
³ g tmp ³ g tmp " ³ g tmp 9 ³ g tmp P ³ g tmp g ³ g tmp ³ g filenamef srfi/srfi-27.scm
(
³ C5:R4'),Äźģīńņ h v ]45C n g dummy
g check? g s g getter g expr C½¾ h( ¾ ] 4 5 $ @ 6 ¶ g x
" g tmp " g filenamef srfi/srfi-27.scm
(
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5R#9ó h ] §&
ŖC 6 g s
g val g filenamef srfi/srfi-27.scm
(
g nameg #%set-random-source-state!-procedure CōR4'ó),õ9 h T ] C L g t-46961e50f6-4a
g t-46961e50f6-4b C²µó¶ h S ]L 6 K g a
g filenamef srfi/srfi-27.scm (
C-¹ h C ] L 6; g filenamef srfi/srfi-27.scm (
C; h ] C
C½¾ hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 | g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-27.scm
(
n C5óR<# h
]4
5 Ø C } g state
g filenamef srfi/srfi-27.scm
-
. .
g nameg make-random-source CR=#9: h ] §&
©" 4 56~ g s
g filenamef srfi/srfi-27.scm
0
1 1 g nameg random-source-state-ref CR>#9ó h( « ]
45 §&
ŖC 6 £ g s
# g state # g val # g filenamef srfi/srfi-27.scm
3
4 4 # g nameg random-source-state-set! CR?<@#9ó h8 é ]45 45 §&
ŖC 6 į g s
2 g time 2 g val 2 g filenamef srfi/srfi-27.scm
6
7 7
8 9 ' 9 2 9 $ 9 7 9 ! 8 8 2 g nameg random-source-randomize! CR<A#9ó h0 Ķ ] 4455 §&
ŖC 6 Å g s
* g i * g j * g val * g filenamef srfi/srfi-27.scm
;
< < 2 < < * g nameg random-source-pseudo-randomize! CRB h ]4 5 4 5”C g i
g j g filenamef srfi/srfi-27.scm
>
?
?
@
? g nameg i+j->seed CAR h@ ’ ]" )
$ C ” ’ "’’×
"’’É ÷ g n
= g amount = g result / g n / g shift / g filenamef srfi/srfi-27.scm
B
C D D G G F H % I / F / C = g nameg spread CBRC#9: h( c ] L §& L
©" 4L 56 [ g n
" g filenamef srfi/srfi-27.scm
L M " M " C h z ] O C r g s
g filenamef srfi/srfi-27.scm
K
g nameg random-source-make-integers CRD#9: h@ ]" 04L §& L
©" 4L 55
$ "’’Ó C"’’Ģ g x
% 6 g filenamef srfi/srfi-27.scm
R S T T " % T % T * U / U 3 V 6 S :
CEFG h` ļ ) 3 O C]
45$
$ " " $ " 4> " G 6 ē g s
g s
] g unit ] g t 4 W g filenamef srfi/srfi-27.scm
P Y Y " Y 4 Y A Z E Z L Z ] [
] g nameg random-source-make-reals CR4i5 R4ii5R4ii5RC ’ g m
, g rtd
~ ¦ g filenamef srfi/srfi-27.scm
- &
2 & : & & ? &
ģ (
° -
q 0
f 3
¬ 6
Č ;
>
Ū B
K
O
] ]
^ ^
_ Ø _
Ŗ
C6 PK ! G P P
srfi-60.gonu [µü¤ GOOF----LE-8-2.08 ] : 4 h+ ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-60¤ ¤ g filenameS¤
f srfi/srfi-60.scm¤ g exportsS¤ g bitwise-and¤
g bitwise-ior¤ g bitwise-xor¤ g bitwise-not¤ g
any-bits-set?¤ g
bitwise-if¤ g
bitwise-merge¤ g log2-binary-factors¤ g
first-set-bit¤ g bit-set?¤ g copy-bit¤ g bit-field¤ g copy-bit-field¤ g arithmetic-shift¤ g rotate-bit-field¤ g reverse-bit-field¤ g
integer->list¤ g
list->integer¤ g booleans->integer¤
¤ g
re-exportsS¤ !g logand¤ "g logior¤ #g logxor¤ $g integer-length¤ %g logtest¤ &g logcount¤ 'g logbit?¤ (g ash¤ )!"#$%&'( ¤ *g replacementsS¤ +g bit-count¤ ,+ ¤ -g set-current-module¤ .- ¤ /- ¤ 0g load-extension¤ 1g
string-append¤ 2f libguile-¤ 3g effective-version¤ 4f scm_init_srfi_60¤ 5g lognot¤ 6g bit-extract¤ 7g cond-expand-provide¤ 8g current-module¤ 9 ¤C 5hØ ]4
)*,5 4/ > " G 40i41i243i5 54> " G !i R"i
R#iR5iR%iR&i+R5 h ¬ ] 4 5 ”C ¤ g mask
g n0 g n1 g filenamef srfi/srfi-60.scm
8
9
: :
9 g nameg
bitwise-if CRiRiR'iR6iR6 h( Ž ] 4 54
5¢¢C Ö g n
" g newbits " g start " g end " g filenamef srfi/srfi-60.scm
A
B C C 0 C B B ! B " g nameg copy-bit-field CR(iR7i48i5 96 ž g m
0 g filenamef srfi/srfi-60.scm
1 .
6 . < . = . + E . G / L .
[ 1
b 2
i 3
p 4
w 5
~ 6
W 8
^ ;
e =
l >
s ?
A
F
H „ H & § H
§
C6 PK ! »Ė:Š4 Š4
srfi-4/gnu.gonu [µü¤ GOOF----LE-8-2.0ø4 ] µ 4 hF ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-4¤ g gnu¤ ¤
g filenameS¤ f srfi/srfi-4/gnu.scm¤ g importsS¤
g rnrs¤ g bytevectors¤
¤ ¤ ¤ ¤ ¤ g exportsS¤ g
c32vector?¤ g make-c32vector¤ g c32vector¤ g c32vector-length¤ g
c32vector-ref¤ g c32vector-set!¤ g c32vector->list¤ g list->c32vector¤ g
c64vector?¤ g make-c64vector¤ g c64vector¤ g c64vector-length¤ !g
c64vector-ref¤ "g c64vector-set!¤ #g c64vector->list¤ $g list->c64vector¤ %g make-srfi-4-vector¤ &g
any->u8vector¤ 'g
any->s8vector¤ (g any->u16vector¤ )g any->s16vector¤ *g any->u32vector¤ +g any->s32vector¤ ,g any->u64vector¤ -g any->s64vector¤ .g any->f32vector¤ /g any->f64vector¤ 0g any->c32vector¤ 1g any->c64vector¤ 2 !"#$%&'()*+,-./01 ¤ 3g set-current-module¤ 43 ¤ 53 ¤ 6% ¤ 7% ¤ 8g make-rectangular¤ 9g bytevector-c32-native-ref¤ :g real-part¤ ;g imag-part¤ g bytevector-c64-native-set!¤ ?g bytevector?¤ @g
array-type¤ Ag c32¤ Bg bytevector-length¤ Cg integer?¤ Dg error¤ Ef fractional length¤ Fg length¤ Gg c64¤ Hg make-syntax-transformer¤ IH ¤ JH ¤ Kg define-any->vector¤ Lg macro¤ Mg $sc-dispatch¤ NM ¤ OM ¤ Pg _¤ Qg any¤ RPQ¤ Sg
syntax->datum¤ TS ¤ US ¤ Vg
datum->syntax¤ WV ¤ XV ¤ Yg begin¤ Zg map¤ [g define¤ \g
symbol-append¤ ]g any->¤ ^g vector¤ _g obj¤ `_ ¤ ag cond¤ bg vector?¤ cg pair?¤ dc_ ¤ eg list->¤ fg and¤ gg array?¤ hg_ ¤ ig eqv?¤ jg
array-rank¤ kj_ ¤ li k ¤ mfhl ¤ ng let*¤ og len¤ pg array-length¤ qp_ ¤ roq ¤ sg v¤ tg make-¤ uo ¤ vg let¤ wg lp¤ xg i¤ yx
¤ zy ¤ {g if¤ |g <¤ }|xo ¤ ~g vector-set!¤ g array-ref¤ _x ¤ sx ¤ g 1+¤ x ¤ w ¤
¤ s ¤ g else¤ g scm-error¤ g quote¤ g wrong-type-arg¤ ¤ f ¤ ¤ g list¤ _ ¤ ¤ ¤ ¤ g syntax-violation¤ ¤ ¤ f -source expression failed to match any pattern¤ g u8vector?¤ g list->u8vector¤ g
make-u8vector¤ g s8vector?¤ g list->s8vector¤ g
make-s8vector¤ g
u16vector?¤ g list->u16vector¤ g make-u16vector¤ g
s16vector?¤ ”g list->s16vector¤ ¢g make-s16vector¤ £g
u32vector?¤ ¤g list->u32vector¤ „g make-u32vector¤ ¦g
s32vector?¤ §g list->s32vector¤ Øg make-s32vector¤ ©g
u64vector?¤ Ŗg list->u64vector¤ «g make-u64vector¤ ¬g
s64vector?¤ g list->s64vector¤ ®g make-s64vector¤ Æg
f32vector?¤ °g list->f32vector¤ ±g make-f32vector¤ ²g
f64vector?¤ ³g list->f64vector¤ “g make-f64vector¤C 5 h ' ]4
25 45 > " G 7%R8 h Ŗ ] ¾ ¾6 ¢ g v
g i g filenamef srfi/srfi-4/gnu.scm
,
- . 9 . - g nameg bytevector-c32-native-ref C9R:; h Ā ] 45Š 45ŠC ŗ g v
g i g x g filenamef srfi/srfi-4/gnu.scm
/
0 * 0 1 ( 1 0 1 g nameg bytevector-c32-native-set! CR?@A h n ]4 5$ 4 5CC f g obj
g filenamef srfi/srfi-4/gnu.scm
9
g nameg
c32vector? CR%A h
- 1 3 @ } g len
g fill g filenamef srfi/srfi-4/gnu.scm
9
g nameg make-c32vector CRBCDEA h( Ō ] 4 5 45$ C 6Ģ g v
( g len ( g filenamef srfi/srfi-4/gnu.scm
9
g filenamef 9/builddir/build/BUILD/guile-2.0.14/module/srfi/srfi-4.scm T ( g nameg c32vector-length CR h p - 1 3 6 h g elts
g filenamef srfi/srfi-4/gnu.scm
9
g nameg c32vector CRF h` “ ]!4 5 45 " ;$ /$ %4> " G "’’ĖCC
"’’ŗ ¬ g elts
^ g len ^ g v ^ g i S g elts S g filenamef srfi/srfi-4/gnu.scm
9
^ g nameg list->c32vector C R h@ ]" "
$ C4 5 "’’Ž4 5 "’’Ķ g v
9 g i ( g elts ( g filenamef srfi/srfi-4/gnu.scm
9
9 g nameg c32vector->list CR9 h ~ ] 6 v g v
g i
g filenamef srfi/srfi-4/gnu.scm
9
g nameg
c32vector-ref CR< h ] 6 g v
g i g x g filenamef srfi/srfi-4/gnu.scm
9
g nameg c32vector-set! CR< h ] 6 g v
g i g x g filenamef srfi/srfi-4/gnu.scm
9
g nameg c32vector-set! CR?@G h n ]4 5$ 4 5CC f g obj
g filenamef srfi/srfi-4/gnu.scm
:
g nameg
c64vector? C R%G h
- 1 3 @ } g len
g fill g filenamef srfi/srfi-4/gnu.scm
:
g nameg make-c64vector C RBCDEG h( Ō ] 4 5 45$ C 6Ģ g v
( g len ( g filenamef srfi/srfi-4/gnu.scm
:
g filenamef 9/builddir/build/BUILD/guile-2.0.14/module/srfi/srfi-4.scm T ( g nameg c64vector-length C R$ h p - 1 3 6 h g elts
g filenamef srfi/srfi-4/gnu.scm
:
g nameg c64vector C RF " h` “ ]!4 5 45 " ;$ /$ %4> " G "’’ĖCC
"’’ŗ ¬ g elts
^ g len ^ g v ^ g i S g elts S g filenamef srfi/srfi-4/gnu.scm
:
^ g nameg list->c64vector C$R! h@ ]" "
$ C4 5 "’’Ž4 5 "’’Ķ g v
9 g i ( g elts ( g filenamef srfi/srfi-4/gnu.scm
:
9 g nameg c64vector->list C#R= h ~ ] 6 v g v
g i
g filenamef srfi/srfi-4/gnu.scm
:
g nameg
c64vector-ref C!R> h ] 6 g v
g i g x g filenamef srfi/srfi-4/gnu.scm
:
g nameg c64vector-set! C"R> h ] 6 g v
g i g x g filenamef srfi/srfi-4/gnu.scm
:
g nameg c64vector-set! C"R4JKLORUXYZ[\]^`abdemnrstuvwz{}Y~
h ]4 54 54 5
4 5 4 5 C g tag
g filenamef srfi/srfi-4/gnu.scm
> ? ? ? (
? 3 ? ? @ @ - @ ? & A & * A 5 . A A 0 A & 2 ? ? D $ C D 3 G D > I D $ K ? _ H $ e H 7 g H $ i ? C h r - 1 3 4 5C j g tags
g filenamef srfi/srfi-4/gnu.scm
<
= > =
C h g ] 4 5 L 4?6_ g args
g v g filenamef srfi/srfi-4/gnu.scm <
C h( e ] 4 5 $ O @ 6 ] g y
' g tmp ' g filenamef srfi/srfi-4/gnu.scm
<
' C5KRgjp h ¬ ]4 5$ C $ 6" 64 5$ P 4 5& @4 5 4 5 " #$ 4
5Č "’’ąC
"’’Ö"’’"’’ ¤ g obj
g len N g v W g i ] g filenamef srfi/srfi-4/gnu.scm
O
( L ; g nameg
any->u8vector C&Rgjp h ¬ ]4 5$ C $ 6" 64 5$ P 4 5& @4 5 4 5 " #$ 4
5É "’’ąC
"’’Ö"’’"’’ ¤ g obj
g len N g v W g i ] g filenamef srfi/srfi-4/gnu.scm
O
( L ; g nameg
any->s8vector C'Rgjp h ]4 5$ C $ 6" 64 5$ S 4 5& C4 5 4 5 " &$ 4
5Ź "’’ŻC
"’’Ó"’’"’’ „ g obj
g len N g v W g i ] g filenamef srfi/srfi-4/gnu.scm
O
( L ; g nameg any->u16vector C(R ”gjp¢ h ]4 5$ C $ 6" 64 5$ S 4 5& C4 5 4 5 " &$ 4
5Ė "’’ŻC
"’’Ó"’’"’’ „ g obj
g len N g v W g i ] g filenamef srfi/srfi-4/gnu.scm
O
( L ; g nameg any->s16vector C)R£¤gjp„ h ]4 5$ C $ 6" 64 5$ S 4 5& C4 5 4 5 " &$ 4
5Ģ "’’ŻC
"’’Ó"’’"’’ „ g obj
g len N g v W g i ] g filenamef srfi/srfi-4/gnu.scm
O
( L ; g nameg any->u32vector C*R¦§gjpØ h ]4 5$ C $ 6" 64 5$ S 4 5& C4 5 4 5 " &$ 4
5Ķ "’’ŻC
"’’Ó"’’"’’ „ g obj
g len N g v W g i ] g filenamef srfi/srfi-4/gnu.scm
O
( L ; g nameg any->s32vector C+R©Ŗgjp« h ]4 5$ C $ 6" 64 5$ S 4 5& C4 5 4 5 " &$ 4
5Ī "’’ŻC
"’’Ó"’’"’’ „ g obj
g len N g v W g i ] g filenamef srfi/srfi-4/gnu.scm
O
( L ; g nameg any->u64vector C,R¬gjp® h ]4 5$ C $ 6" 64 5$ S 4 5& C4 5 4 5 " &$ 4
5Ļ "’’ŻC
"’’Ó"’’"’’ „ g obj
g len N g v W g i ] g filenamef srfi/srfi-4/gnu.scm
O
( L ; g nameg any->s64vector C-RÆ°gjp± h ]4 5$ C $ 6" 64 5$ S 4 5& C4 5 4 5 " &$ 4
5Š "’’ŻC
"’’Ó"’’"’’ „ g obj
g len N g v W g i ] g filenamef srfi/srfi-4/gnu.scm
O
( L ; g nameg any->f32vector C.R²³gjp“ h ]4 5$ C $ 6" 64 5$ S 4 5& C4 5 4 5 " &$ 4
5Ń "’’ŻC
"’’Ó"’’"’’ „ g obj
g len N g v W g i ] g filenamef srfi/srfi-4/gnu.scm
O
( L ; g nameg any->f64vector C/R gjp h ]4 5$ C $ 6" 64 5$ _ 4 5& O4 5 4 5 " 2$ &4
4 5> " G "’’ŃC
"’’Ē"’’"’’ „ g obj
g len N g v W g i ] g filenamef srfi/srfi-4/gnu.scm
O
( L ; g nameg any->c32vector C0R $gjp " h ]4 5$ C $ 6" 64 5$ _ 4 5& O4 5 4 5 " 2$ &4
4 5> " G "’’ŃC
"’’Ē"’’"’’ „ g obj
g len N g v W g i ] g filenamef srfi/srfi-4/gnu.scm
O
( L ; g nameg any->c64vector C1RC g m
, g filenamef srfi/srfi-4/gnu.scm
1 *
,
ż /
Õ 2
Ķ 5
q 9
:
/ O
&ś
C6 PK ! i:!®d d
srfi-11.gonu [µü¤ GOOF----LE-8-2.0L ] Ź 4 h¤ ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-11¤ ¤ g filenameS¤
f srfi/srfi-11.scm¤ g exportsS¤ g
let-values¤
g let*-values¤
¤ g set-current-module¤ ¤ ¤ g cond-expand-provide¤ g current-module¤ ¤ g make-syntax-transformer¤ ¤ ¤ g macro¤ g $sc-dispatch¤ ¤ ¤ g _¤ g any¤ ¤ ¤ g each-any¤ ! ¤ " !¤ # "¤ $g
syntax-object¤ %g call-with-values¤ &g top¤ '& ¤ (g ribcage¤ )g binds¤ *g exp¤ +g b0¤ ,g b1¤ -)*+, ¤ .'''' ¤ /f l-46961e50cb-93¤ 0f l-46961e50cb-94¤ 1f l-46961e50cb-95¤ 2f l-46961e50cb-96¤ 3/012 ¤ 4(-.3 ¤ 5( ¤ 6g x¤ 76 ¤ 8' ¤ 9f l-46961e50cb-90¤ :9 ¤ ;(78: ¤ <'45; ¤ =g hygiene¤ >= ¤ ?$%<> ¤ @g lambda¤ A$@<> ¤ B !¤ C B¤ D ¤ Eg let¤ Fg id¤ Gg tmp¤ HFG ¤ I'' ¤ Jf l-46961e50cb-af¤ Kf l-46961e50cb-b0¤ LJK ¤ M(HIL ¤ Ng lp¤ Og clauses¤ Pg ids¤ Qg tmps¤ RNOPQ ¤ Sf l-46961e50cb-a3¤ Tf l-46961e50cb-a4¤ Uf l-46961e50cb-a5¤ Vf l-46961e50cb-a6¤ WSTUV ¤ X(R.W ¤ Yg clause¤ ZY+, ¤ [''' ¤ \f l-46961e50cb-9d¤ ]f l-46961e50cb-9e¤ ^f l-46961e50cb-9f¤ _\]^ ¤ `(Z[_ ¤ a'5M5X`5; ¤ b$Ea> ¤ cg map¤ dc ¤ ec ¤ fg list¤ gg syntax-violation¤ hg ¤ ig ¤ jf -source expression failed to match any pattern¤ k ¤ lg generate-temporaries¤ m ¤ ng append¤ on ¤ pn ¤ qg inner¤ rq ¤ sf l-46961e50cb-c7¤ ts ¤ u(r8t ¤ vg new-tmp¤ wvFG ¤ xf l-46961e50cb-bf¤ yf l-46961e50cb-c0¤ zf l-46961e50cb-c1¤ {xyz ¤ |(w[{ ¤ }g var¤ ~}* ¤ f l-46961e50cb-b8¤ f l-46961e50cb-b9¤ ¤ (~I ¤ '5u55|5X`5; ¤ $%> ¤
$@> ¤ ¤ g each¤ ¤ ¤ ¤ g args¤ q ¤ f l-46961e50cb-e2¤ f l-46961e50cb-e3¤ ¤ (I ¤ g new-var¤ vFG ¤ f l-46961e50cb-d7¤ f l-46961e50cb-d8¤ f l-46961e50cb-d9¤ f l-46961e50cb-da¤ ¤ (. ¤ g vars¤ * ¤ f l-46961e50cb-d0¤ f l-46961e50cb-d1¤ ¤ (I ¤ '5555X`5; ¤ $%> ¤ ”$@> ¤ ¢ ¤ £ ¢¤ ¤g dummy¤ „g body¤ ¦¤„ ¤ §g m-46961e50cb-104¤ ا& ¤ ©Ø' ¤ Ŗf l-46961e50cb-109¤ «f l-46961e50cb-10a¤ ¬Ŗ« ¤ (¦©¬ ¤ ®Ø ¤ Æf l-46961e50cb-106¤ °Æ ¤ ±(7®° ¤ ²'5± ¤ ³$E²> ¤ “ ¤ µ “¤ ¶µ ¤ · ¶¤ øg vars-1¤ ¹g binding-1¤ ŗg vars-2¤ »g binding-2¤ ¼¤ø¹ŗ»„ ¤ ½Ø''''' ¤ ¾f l-46961e50cb-10f¤ æf l-46961e50cb-110¤ Ąf l-46961e50cb-111¤ Įf l-46961e50cb-112¤ Āf l-46961e50cb-113¤ Ćf l-46961e50cb-114¤ ľæĄĮĀĆ ¤ Å(¼½Ä ¤ Ę'Å5± ¤ Ē$%Ę> ¤ Č$@Ę> ¤ É$
Ę> ¤C 5 h@ r ]4
5 4 > " G 4i4i5 > " G 4 #?A h ^ ] C V g binds
g exp g b0 g b1 CCDbef h ; ]4 5L LC 3 g id
g tmp Cijklmp
h8 ¤ ] 4L L4L54 55 L C g new-tmp
5 g id 5 g tmp 5 g tmp 5 g filenamef srfi/srfi-11.scm W ' W + W ' W 5 Cij h@ ]4 5L L 45 $ LL O @6 g var
= g exp = g tmp = g tmp = g filenamef srfi/srfi-11.scm S - S = C l h ] 4 54L 5C g id
g rest g filenamef srfi/srfi-11.scm c , b + a $ d + a $ Cl h0 ] 4 5 $ L O @ 4 5 C g vars
0 g tmp 0 g filenamef srfi/srfi-11.scm
^ ! g / + f . , e ' / h . 0 g nameg lp Cp h * ] C " g id
C h o ] 4L 5C g g id
g rest
g filenamef srfi/srfi-11.scm r = q 7
Cij h@ ]4 5 $ @4 5 $ L O @ 6 ~ g tmps
> g tmp > g tmp " > g filenamef srfi/srfi-11.scm
n & > g nameg lp C ” h ? ]L C 7 g inner
g args Cij h` ā ]4L L454 55O Q 4 5 45 $ LO @6 Ś g new-tmp
] g new-var ] g id ] g tmp ] g lp $ 3 g tmp 6 ] g tmp A ] g filenamef srfi/srfi-11.scm k ' k + k ' $ n & 6 k ] Cij hP ¢ ]O Q 4 5 L L 45 $ LLO @6 g vars
K g exp K g lp
g tmp K g tmp + K g filenamef srfi/srfi-11.scm
^ ] K C
h ] ( 0 45 $
LLO @6 45 $ L O @45 $ L O @6 ’ g clauses
g ids g tmps g tmp 8 g tmp 8 g tmp ; g tmp F g tmp h g filenamef srfi/srfi-11.scm
I L M
; Q ; Q
g nameg lp C h ” ] O Q 6 g clause
g b0 g b1 g lp g filenamef srfi/srfi-11.scm I J K I Cij h@ t ]4 5 $ @4 5 $ @ 6 l g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-11.scm
C 9 C5 R4
£³ h ? ]C 7 g dummy
g body
C·ĒČÉef h( ] 45 C g dummy
( g vars-1 ( g binding-1 ( g vars-2 ( g binding-2 ( g body ( ( Cij h@ ]4 5 $ @4 5 $ @ 6 ž g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-11.scm
9 g
macro-typeg syntax-rulesg patternsg bodyg ... g vars-1g binding-1 g vars-2g binding-2 g ... g bodyg ... C5
RC j g m
( g filenamef srfi/srfi-11.scm &
) )
. ) 6 ) & ; )
=
C6 PK ! fø„ „ srfi-1.gonu [µü¤ GOOF----LE-8-2.0„ ] ū 4 h ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-1¤ ¤ g filenameS¤
f srfi/srfi-1.scm¤ g exportsS¤ g xcons¤
g
list-tabulate¤ g list-copy¤ g
circular-list¤ g proper-list?¤ g circular-list?¤ g dotted-list?¤ g
null-list?¤ g not-pair?¤ g list=¤ g first¤ g second¤ g third¤ g fourth¤ g fifth¤ g sixth¤ g seventh¤ g eighth¤ g ninth¤ g tenth¤ g car+cdr¤ !g take¤ "g drop¤ #g
take-right¤ $g
drop-right¤ %g take!¤ &g drop-right!¤ 'g split-at¤ (g split-at!¤ )g last¤ *g length+¤ +g concatenate¤ ,g concatenate!¤ -g append-reverse¤ .g append-reverse!¤ /g zip¤ 0g unzip1¤ 1g unzip2¤ 2g unzip3¤ 3g unzip4¤ 4g unzip5¤ 5g count¤ 6g fold¤ 7g
fold-right¤ 8g pair-fold¤ 9g pair-fold-right¤ :g reduce¤ ;g reduce-right¤ g
append-map¤ ?g append-map!¤ @g map!¤ Ag
pair-for-each¤ Bg
filter-map¤ Cg partition¤ Dg remove¤ Eg
partition!¤ Fg remove!¤ Gg find¤ Hg find-tail¤ Ig
take-while¤ Jg take-while!¤ Kg
drop-while¤ Lg span¤ Mg span!¤ Ng break¤ Og break!¤ Pg any¤ Qg every¤ Rg delete-duplicates¤ Sg delete-duplicates!¤ Tg
alist-cons¤ Ug
alist-copy¤ Vg alist-delete¤ Wg
alist-delete!¤ Xg lset<=¤ Yg lset=¤ Zg lset-adjoin¤ [g
lset-union¤ \g lset-intersection¤ ]g lset-difference¤ ^g lset-xor¤ _g lset-diff+intersection¤ `g lset-union!¤ ag lset-intersection!¤ bg lset-difference!¤ cg lset-xor!¤ dg lset-diff+intersection!¤ e
!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcd Y¤ fg
re-exportsS¤ gg cons¤ hg list¤ ig cons*¤ jg make-list¤ kg pair?¤ lg null?¤ mg car¤ ng cdr¤ og caar¤ pg cadr¤ qg cdar¤ rg cddr¤ sg caaar¤ tg caadr¤ ug cadar¤ vg caddr¤ wg cdaar¤ xg cdadr¤ yg cddar¤ zg cdddr¤ {g caaaar¤ |g caaadr¤ }g caadar¤ ~g caaddr¤ g cadaar¤ g cadadr¤ g caddar¤ g cadddr¤ g cdaaar¤ g cdaadr¤
g cdadar¤ g cdaddr¤ g cddaar¤ g cddadr¤ g cdddar¤ g cddddr¤ g list-ref¤ g last-pair¤ g length¤ g append¤ g append!¤ g reverse¤ g reverse!¤ g filter¤ g filter!¤ g memq¤ g memv¤ g assq¤ g assv¤ g set-car!¤ g set-cdr!¤ ghijklmnopqrstuvwxyz{|}~
3¤ g replacementsS¤ g iota¤ g map¤ g for-each¤ g map-in-order¤ g
list-index¤ ”g member¤ ¢g delete¤ £g delete!¤ ¤g assoc¤ „ ”¢£¤
¤ ¦g set-current-module¤ §¦ ¤ ئ ¤ ©g cond-expand-provide¤ Ŗg current-module¤ « ¤ ¬g load-extension¤ g
string-append¤ ®f libguile-¤ Æg effective-version¤ °f scm_init_srfi_1¤ ±g scm-error¤ ²g wrong-type-arg¤ ³g symbol->string¤ “f Wrong type argument: ~S¤ µg make-syntax-transformer¤ ¶µ ¤ ·µ ¤ øg check-arg¤ ¹g macro¤ ŗg $sc-dispatch¤ »ŗ ¤ ¼ŗ ¤ ½PPPP ¤ ¾g
syntax-object¤ æg if¤ Ąg top¤ ĮĄ ¤ Āg ribcage¤ Ćg dummy¤ Äg pred¤ Åg arg¤ Ęg caller¤ ĒĆÄÅĘ ¤ Čg m-1e8ba8b52-388¤ ÉČĄ ¤ ŹÉĮĮĮ ¤ Ėf l-1e8ba8b52-38d¤ Ģf l-1e8ba8b52-38e¤ Ķf l-1e8ba8b52-38f¤ Īf l-1e8ba8b52-390¤ ĻĖĢĶĪ ¤ ŠĀĒŹĻ ¤ ŃĀ ¤ Ņg x¤ ÓŅ ¤ ŌÉ ¤ Õf l-1e8ba8b52-38a¤ ÖÕ ¤ ×ĀÓŌÖ ¤ ŲĮŠŃ× ¤ Łg hygiene¤ ŚŁ ¤ Ū¾æŲŚ ¤ Üg not¤ Ż¾ÜŲŚ ¤ Ž¾²ŲŚ ¤ ßg quote¤ ą¾ßŲŚ ¤ įg syntax-violation¤ āį ¤ ćį ¤ äf -source expression failed to match any pattern¤ åg out-of-range¤ ęf Value out of range: ~A¤ ēg integer?¤ čg non-negative-integer?¤ ég error¤ źf not a proper list in null-list?¤ ėg
procedure?¤ ģg list-head¤ ķg list-tail¤ īg any1¤ ļf map¤ šf Circular list: ~S¤ ńf Not a list: ~S¤ ņg min¤ óf .Args do not contain a proper (finite) list: ~S¤ ōf for-each¤ õg apply¤ ög every1¤ ÷g acons¤ ųg equal?¤ łg eq?¤ śg eqv?¤C 5 hų ā ]4
ef„5 4Ø > " G 4©i4Ŗi5 «> " G 4¬i4i®4Æi5 5°> " G h ö ] Cī g d
g a g filenamef srfi/srfi-1.scm
é
ģ g nameg xconsg
documentationf dLike `cons', but with interchanged arguments. Useful mostly when passed to
higher-order procedures. C R±²³“ h ¹ ]4 5 6 ± g caller
g arg g filenamef srfi/srfi-1.scm
ī
ļ
ļ š
š ' š 2 ļ g nameg wrong-type-arg C²R4·ø¹¼½ŪŻŽą h( d ] C \ g dummy
" g pred " g arg " g caller " " Cćä h( ¬ ] 4 5 $ @ 6 ¤ g x
" g tmp " g filenamef srfi/srfi-1.scm
ņ
" g
macro-typeg syntax-rulesg patternsg predg argg caller C5øR±åę h ¬ ] 6 ¤ g proc
g arg g filenamef srfi/srfi-1.scm
ö
÷
ų
ų & ų 1 ÷ g nameg out-of-range CåRē h ]4 5$
CC g x
g filenamef srfi/srfi-1.scm
ū
ū '
ū " ū 4 g nameg non-negative-integer? CčRč²
hX ś ]4 5$ " 4 > " G " !
$ C45 "’’ß "’’Ō ņ g n
U g init-proc U g n ) J g acc ) J g filenamef srfi/srfi-1.scm
ż
) - 1 7 8 = % ? B J J M U U g nameg
list-tabulateg
documentationf ĢReturn an N-element list, where each list element is produced by applying the
procedure INIT-PROC to the corresponding list index. The order in which
INIT-PROC is applied to the indices is not specified. C
R h( ¦ - 1 3 H JK4J5JJC g elt1
! g elts
! g filenamef srfi/srfi-1.scm
!
g nameg
circular-list CRč² hx " - . , 3 #
# 4 5$ " 4 > " G " % $ 6 "’’Ū
"’’Ń g count
t g start t g step t g n E j g acc E j g filenamef srfi/srfi-1.scm
E J N T W ^ # _ b j j l t t g nameg iota CR h t ] C l g x
g filenamef srfi/srfi-1.scm
g nameg proper-list? CR hX 6 ]4 5$ C" 745$ C 45$ C& C "’’É "’’¼ . g x
W g hare J g tortoise J g hare # J g filenamef srfi/srfi-1.scm
# # & 0
: ! ? # B # J # J M W W g nameg circular-list? CR hp F ] ( C4 5$ C" G( C45$ C ( C45$ C& C "’’¹ "’’¬ > g x
o g hare b g tortoise b g hare 3 b g filenamef srfi/srfi-1.scm
%
& ( & * ! + $ -
. + 3 / 3 /
; 0 > 2 H 0 W 5 Z 5 b 5 b * e * o * o g nameg dotted-list? CRéź h( Ø ]4 5$ C4 5$ C6 g x
$ g filenamef srfi/srfi-1.scm
7
9
8 : ; 8 " > $ > $ g nameg
null-list? CR h I ] C A g x
g filenamef srfi/srfi-1.scm
@
E E g nameg not-pair?g
documentationf ¹Return #t if X is not a pair, #f otherwise.
This is shorthand notation `(not (pair? X))' and is supposed to be used for
end-of-list checking in contexts where dotted lists are allowed. CR hH
]" 1( C( C4L 5$ "’’ŃC "’’Ć g a
C g b C g a 7 g b 7 g filenamef srfi/srfi-1.scm
H I J K
J O O ! O # O ' O
* P - P 5 P 7 I C g nameg lists-equal Cė² hx < - 1 3 O Q 4 5$ " 4 > " G ( C" * $ C45$ "’’ŲC "’’Ī 4 g elt=
w g rest w g lists-equal w g lists E o g t I o g filenamef srfi/srfi-1.scm
G
R ? S @ S E T H U I U I U U V Z V ] V * ` V d V g W m W o T w
g nameg list= CRmiRpiRviRiR h v ] C n g x
g filenamef srfi/srfi-1.scm
_
_ _
g nameg fifth CR h v ] C n g x
g filenamef srfi/srfi-1.scm
`
` ` g nameg sixth CR h x ] C p g x
g filenamef srfi/srfi-1.scm
a
a a g nameg seventh C R h w ] C o g x
g filenamef srfi/srfi-1.scm
b
b b
g nameg eighth C R h ] C w g x
g filenamef srfi/srfi-1.scm
c
c c
c g nameg ninth C R h ] C w g x
g filenamef srfi/srfi-1.scm
d
d d
d g nameg tenth C R h Ź ] D Ā g x
g filenamef srfi/srfi-1.scm
f
h
h
h
g nameg car+cdrg
documentationf 3Return two values, the `car' and the `cdr' of PAIR. C Rģi!Rķi"R" h8 ī ]" $ "’’ėC 4 5 "’’Õ ę g lis
1 g k 1 g lag g lead g filenamef srfi/srfi-1.scm
q
r s
s t t t r ! r 1 r 1 g nameg
take-right C#R" h@ & ]" #$ "’’ć6 4 5 "’’Ē g lis
? g k ? g lag ) g lead ) g result ) g filenamef srfi/srfi-1.scm
w
x y
y z z z ' z ! # z ) { ) x , x 5 x 1 ? x ? g nameg
drop-right C$R" h ]
$ C4 5 C g lst
g i g tail g filenamef srfi/srfi-1.scm
}
g nameg take!g
documentationf Linear-update variant of `take'. C%R" hP } ]4 5 ( C" %( $ C C "’’Ū "’’Ī u g lst
K g i K g tail K g prev > g tail > g filenamef srfi/srfi-1.scm
" & ) # * 3 6 > > C K K g nameg drop-right!g
documentationf &Linear-update variant of `drop-right'. C&Rå' hP ± ]
$ 6" )
$ 45D "’’× "’’Č © g lst
N g i N g l ? g n ? g acc ? g filenamef srfi/srfi-1.scm
) , / 2 & 5 ? ? D " N N g nameg split-atg
documentationf [Return two values, a list of the elements before index I in LST, and
a list of those after. C'Rå( hX Ø ]
$ 6
$ D" %
$ D "’’Ū "’’Ī g lst
U g i U g l # H g n # H g tmp . : g filenamef srfi/srfi-1.scm
”
” ¢ ¢ £ ” ¤ ¤ # ¦ ' § + § . Ø . Ø 3 © 4 © : Ŗ = « @ « H « H ¦ M ¦ U ¦ U g nameg split-at!g
documentationf $Linear-update variant of `split-at'. C(R h É ]4 5C Į g pair
g filenamef srfi/srfi-1.scm
Æ
Æ g nameg lastg
documentationf ;Return the last element of the non-empty, finite list PAIR. C)RPlnm hP - 1 3 " 045$ 64545 "’’Š "’’Ā ž g clist1
K g rest K g l
= g acc
= g filenamef srfi/srfi-1.scm
³
“ µ µ ¶ ! ·
* · 5 · = · = “ B “ C “ ' K “ K
g nameg zip C/R h n ] 6 f g l
g filenamef srfi/srfi-1.scm
ŗ
»
g nameg unzip1 C0R h ]4 54 5D x g l
g filenamef srfi/srfi-1.scm
¼
½
½ ½ g nameg unzip2 C1R h ]4 54 54 5D g l
g filenamef srfi/srfi-1.scm
¾
æ
æ æ ' æ g nameg unzip3 C2R h( ]4 54 54 54 5D g l
( g filenamef srfi/srfi-1.scm
Ą
Į
Į Į ' Į 5 ( Į ( g nameg unzip4 C3R h8 ]4 54 54 54 54 5D g l
1 g filenamef srfi/srfi-1.scm
Ā
Ć
Ć Ć ' Ć 5 ' Ä
1 Ć 1 g nameg unzip5 C4Rė²6Plmn
hø - 1 3 4 5$ " 4 > " G ( ." ( C4 5 "’’ā "’’Ö" A45$ C4545 4 4 5? "’’æ "’’° g kons
“ g knil “ g list1 “ g rest “ g knil 6 T g list1 6 T g knil d „ g lists d „ g cars „ g cdrs „
g filenamef srfi/srfi-1.scm
Č
Ė 2 Ģ 6 Ķ < Ī @ Š E Š I Š L Š ' T Š T Ķ d Ń e Ņ q Ņ u Ō ~ Õ Ō Ö Ö Ö + Ö Ö „ Ö „ Ń ¬ Ń ! “ Ń “
g nameg foldg
documentationf uApply PROC to the elements of LIST1 ... LISTN to build a result, and return
that result. See the manual for details. C6Rė²7īlnm hø - 1 3 4 5$ " 4 > " G ( 3" ( C4 5 "’’ā45 "’’Ń" 945$ C454 4 4
5 5? "’’Ē45 "’’±ś g kons
ø g knil ø g clist1 ø g rest ø g lst 6 T g result 6 T g lists i ¢ g result i ¢ g filenamef srfi/srfi-1.scm
Ų
Ł 2 Ś 6 Ū < Ż B ß C ą H ą L ą T ß T Ū U Ū e Ū i į j ć v ć z å ę ę ę ' ę 7 ę ę ¢ å ¢ į £ į ¬ į & ® į ø į ø
g nameg
fold-right C7Rė²8Pln h° ÷ - 1 3 4 5$ " 4 > " G ( 1" !( C 4 5 "’’ß "’’Ó" 645$ C45 4 4 5? "’’Ź "’’» ļ g kons
¬ g knil ¬ g clist1 ¬ g rest ¬ g knil 6 W g list1 6 W g tail B W g knil g g lists g g tails
g filenamef srfi/srfi-1.scm
č
é 2 ź 6 ė < ģ B ī B ī E ļ W ļ W ė g š h ń t ń x ó ó ō ō ō , ō ō ō š ¤ š ! ¬ š ¬
g nameg pair-fold C8Rė²9 h ] ( LCL 4L 56 g list1
g filenamef srfi/srfi-1.scm
ś ū ż ż ż ż g nameg f CPln h0 ¶ ]4 5$ LCL 4 4L4 55 5@ ® g lists
. g filenamef srfi/srfi-1.scm
ž ’
’ ) , ' ) * # , . . g nameg f C hh - 1 3 4 5$ " 4 > " G ( O Q 6O Q 6 ų g kons
g g knil g g clist1 g g rest g g f < K g f U g g filenamef srfi/srfi-1.scm
÷
ų 2 ł < ś U ž e ž g ž g
g nameg pair-fold-right C9R h \ ]C T g x
g filenamef srfi/srfi-1.scm
1 = Cė²< h - . , 3 # " /" ( C "’’ę45 "’’Õ4 5$ " 4 > " G 45$ " 4> " G 45$ " 4> " G 45$ " 4> " G " 04 5$ "’’*4545 "’’Š "’’Å
g p
g f g g g seed g tail-gen g lst I g seed I g lst 8 g result 8 g seed Ł g result Ł g filenamef srfi/srfi-1.scm
$ * -
0
8
8 ; I J m
³ Ł Ś ä š ń ų g nameg unfold C " G 45$ " 4> " G 45$ " 4> " G " '4 5$ C4545 "’’Ł "’’Ķ G g p
µ g f µ g g µ g seed µ g tail µ g seed © g lis © g filenamef srfi/srfi-1.scm
3 9 \ ” © © µ g nameg unfold-right C=Rė²:6 h@ ½ ]4 5$ " 4 > " G ( C 6 µ g f
: g ridentity : g lst : g filenamef srfi/srfi-1.scm
% + & 5 ( 8 ( : ( : g nameg reduceg
documentationf ķ`reduce' is a variant of `fold', where the first call to F is on two
elements from LST, rather than one element and a given initial value.
If LST is empty, RIDENTITY is returned. If LST has just one element
then that's the return value. C:R: h µ ] 456 g f
g ridentity g lst g filenamef srfi/srfi-1.scm
*
/ / g nameg reduce-rightg
documentationf ś`reduce-right' is a variant of `fold-right', where the first call to
F is on two elements from LST, rather than one element and a given
initial value. If LST is empty, RIDENTITY is returned. If LST
has just one element then that's the return value. C;Rė²±²ļšń6*ņ h( ¦ ]
4 5 $ $ 6CC g ls
% g len % g ls-len % g filenamef srfi/srfi-1.scm
F G & G H I I ) % C*ónm h Ņ ) ø3 4 5$ " 4 > " G " |$ Y$ 6& 64 5 "’’½4 5 "’’ ( 6 6 "’’r- 1 3 4 5$ " 4 > " G 4
4 55 $ " 4
> " G " =
$ 6454 45? "’’Ć "’’° Ź g f
¾ g l ¾ g hare 0 ¬ g tortoise 0 ¬ g move? 0 ¬ g out 0 ¬ g f
Ē y g l1 Ē y g rest Ē y g len ś y g l1 ) f g rest ) f g len ) f g out ) f g filenamef srfi/srfi-1.scm
2
4 0 5 3 6 7 6 = 7 E 8 I 9 K 9 . M 9 4 R : U 9 X ; [ ; $ ] < b < d < g < s ; v = z > > > > = ? @ A ¢ A * ¤ A 0 © B ¬ A ¬ 5 ² 5 6 ¾ 5 Ē 2 Č E ė F š K ś F ś F M N N
N & O P P N ) Q , R
1 R 7 S
: T ; T F T + G U L U " M U + W U Z U f T
f Q m Q 5 y Q B ¾ Ē y
g nameg map CRiRė²±²ōšń6*ņ h( ¦ ]
4 5 $ $ 6CC g ls
% g len % g ls-len % g filenamef srfi/srfi-1.scm
p q & q r s s ) % C*óõmn h Z ) ½3 4 5$ " 4 > " G " $ e$ <& 64 > " G "’’·4 > " G "’’( C 6 "’’m- 1 3 4 5$ " 4 > " G 4
4 55 $ " 4 > " G " A
$ 74
45> " G 45 "’’ĮC "’’Æ R g f
Ć g l Ć g hare 0 “ g tortoise 0 “ g move? 0 “ g f
Ģ g l1 Ģ g rest Ģ g len ’ g l1 . o g rest . o g len . o g filenamef srfi/srfi-1.scm
Z
\ 0 ] 3 ^ 7 ^ = _ E ` I a K a . M a 9 R b U a V d [ d ` d k e n e + y e z g g g h h ¢ j Ø k Ŗ k * ¬ k 5 ± l “ k “ ] Ģ Z Ķ o š p õ u ’ p ’ p w x x x & y z z " x . { 2 |
6 | 7 ~ > ~ ? ~ ! L ~ W X # c 2 m o { 9 Ć Ģ
g nameg for-each CR+ h ¤ - 1 3 4 ?6 g f
g clist1 g rest g filenamef srfi/srfi-1.scm
g nameg
append-map C>R, h „ - 1 3 4 ?6 g f
g clist1 g rest g filenamef srfi/srfi-1.scm
g nameg append-map! C?Ri@Rė²Bīlmn
hą - 1 3 4 5$ " 4 > " G ( H" 9( 64 5 $ "’’Ō "’’Ē "’’¼" R45$ 64 45? $ 4 5 "’’Į4 5 "’’® "’’ ł g proc
Ž g list1 Ž g rest Ž g l 6 o g rl 6 o g res J o g l ~ Š g rl ~ Š g res Š g filenamef srfi/srfi-1.scm
2 6 < B C H J J R U Z b e o o r z ~ # § Ø µ " ½ ¾ Š Š Õ Ö Ž & Ž
g nameg
filter-mapg
documentationf Apply PROC to the elements of LIST1... and return a list of the
results as per SRFI-1 `map', except that any #f results are omitted from
the list returned. CBRė²Aīlõn hØ V - 1 3 4 5$ " 4 > " G ( /" #( C4 > " G "’’Ż "’’Õ" 245$ C4 > " G 45 "’’Ī "’’Ć N g f
¢ g clist1 ¢ g rest ¢ g l 6 Y g l e g filenamef srfi/srfi-1.scm
”
¢ 2 £ 6 ¤ < „ ? Ø
S © Y ©
Y ¤ e Ŗ f «
r « u ®
Æ Æ
Ŗ Ŗ ¢ Ŗ ¢
g nameg
pair-for-each CARė²I h ]4 5$ " 4 > " G ( C4 5$ H " /( C4 5$ "’’ŌC "’’ÄC g pred
g ls g result ? g ls E t g p E t g filenamef srfi/srfi-1.scm
“
· + ø , ø . ¹ 3 ¹ 5 ¹ 9 ø < » ? » ? » E ¼ K ½
O ¾ T ¾ V ¾ Z ½
_ Ą & b Ą c Ą f Į i Į ! q Į t ¼ w ¼ ¼ ¹ g nameg
take-whileg
documentationf jReturn a new list which is the longest initial prefix of LS whose
elements all satisfy the predicate PRED. CIRė²J hh e ]4 5$ " 4 > " G " 2( C4 5$
"’’Ž$ CC "’’Ć ] g pred
f g lst f g prev ) [ g rest ) [ g filenamef srfi/srfi-1.scm
Ć
Å ) Ę / Č 3 Ź 8 Ź : Ź > Č C Ė K Ė N Ķ R Ķ U Ļ V Ļ Z Ń [ Ę f g nameg take-while!g
documentationf &Linear-update variant of `take-while'. CJRė²K hX \ ]
4 5$ " 4 > " G " ( C4 5$ "’’ćC "’’Ų T g pred
Q g lst Q g lst ) I g filenamef srfi/srfi-1.scm
Ó
Ö ) × / Ų 0 Ł 2 Ś 7 Ś 9 Ś = Ų @ Ū F Ū I ×
Q g nameg
drop-whileg
documentationf UDrop the longest initial prefix of LST whose elements all satisfy the
predicate PRED. CKRė²L hh » ]4 5$ " 4 > " G " 3( " 4 5$ "’’Ų45D "’’Ā ³ g pred
g g lst g g lst ) \ g rl ) \ g filenamef srfi/srfi-1.scm
Ž
į ) ā / ć 5 ä
: ä < ä
@ ć C å F å I å Q å R ę \ ę \ ā _ ā g ā g g nameg spang
documentationf }Return two values, the longest initial prefix of LST whose elements
all satisfy the predicate PRED, and the remainder of LST. CLRė²M hp ~ ]4 5$ " 4 > " G " :( D4 5$
"’’Ü$
DD "’’» v g pred
n g list n g prev ) c g rest ) c g filenamef srfi/srfi-1.scm
č
ź ) ė / ķ 2 ī 4 ī 5 ļ : ļ < ļ @ ķ E š M š P ņ T ņ W ō X ō ^ õ _ ö c ö c ė n g nameg span!g
documentationf Linear-update variant of `span'. CMRė²N hh Ę ]4 5$ " 4 > " G " 3( " 4 5$ 45D "’’Ķ "’’Ā ¾ g pred
g g clist g g clist ) \ g rl ) \ g filenamef srfi/srfi-1.scm
ų
ū ) ü / ż 0 ż 5 ž : ž < ž @ ż A ’ K ’ N Q T \ \ ü _ ü g ü g g nameg breakg
documentationf zReturn two values, the longest initial prefix of LST whose elements
all fail the predicate PRED, and the remainder of LST. CNRė²O hp } ]4 5$ " 4 > " G " :( D4 5$ $
DD "’’Ę "’’» u g pred
n g list n g l ) c g prev ) c g filenamef srfi/srfi-1.scm
) / 2 4 5 : < @ C
G
J K Q
R V Y c c n g nameg break!g
documentationf !Linear-update variant of `break'. CORė²Pīlnm hØ u - 1 3 4 5$ " 4 > " G ( 6" X45$ C4455$
45@4 45? $ C45 "’’Ø "’’ m g pred
” g ls ” g lists ” g lists > g t | g filenamef srfi/srfi-1.scm
2 : > ? K N S ] a d n o r | | 4 0 ” ”
g nameg any CPR h@
]" 2( C( 64 5 $ C "’’Ī "’’Ę g pred
@ g ls @ g ls 8 g t $ 8 g filenamef srfi/srfi-1.scm
" # # % " % $ % $ % 2 % # 8 % 8 @ g nameg any1 CīRė²Qöīlnm
h h - 1 3 4 5$ " 4 > " G ( 6" S45$ C4455$
4 5@4 4 5?$ 45 "’’ÆC "’’¢ ` g pred
g ls g lists g lists > g filenamef srfi/srfi-1.scm
'
( 2 ) : * > + ? , K , N . S . ] . a , d / n / o 1 r 1 | 1 1 1 5 1 1 + + +
g nameg every CQR h@ ż ]
" -( C( 64 5$ "’’ÕC "’’Ė õ g pred
; g ls ; g ls 3 g filenamef srfi/srfi-1.scm
3
4 5 7 5 8 8 : " : $ : ( : + : $ 1 : 3 4 ; g nameg every1 CöRė² īlmn h° A - 1 3 4 5$ " 4 > " G ( 4" %( C4 5$ C "’’Ū
"’’Š" 845$ C4 45?$ C45 "’’Č
"’’ŗ9 g pred
° g clist1 ° g rest ° g l 6 [ g i 6 [ g lists j ¢ g i j ¢ g filenamef srfi/srfi-1.scm
<
? 2 @ 6 A < B ? D D D F D J D P F S F [ F
[ A j G k H
w H z J
} J J
H L L ! ¢ L
¢ G § G ° G °
g nameg
list-indexg
documentationf gReturn the index of the first set of elements, one from each of
CLIST1 ... CLISTN, that satisfies PRED. C R÷iTRT h8 r ]" &( 645 "’’Ś "’’Ļ j g alist
7 g a , g rl , g filenamef srfi/srfi-1.scm
R
U W X Y Y Y Y ) $ Y , Y , U / V 7 U 7 g nameg
alist-copyg
documentationf eReturn a copy of ALIST, copying both the pairs comprising the list
and those making the associations. CURųė²V h N - . , 3 # 45$ " 4> " G " 9( 64 5$
"’’Ų "’’Ē "’’¼ F g key
g alist g k= g a = v g rl = v g filenamef srfi/srfi-1.scm
[
\ = ] C ^ I _ J ` Q ` T ` X ` [ a e a h b k b n b v b v ] y ] ] g nameg alist-delete CVRųV h - . , 3 # 6 g key
g alist g k= g filenamef srfi/srfi-1.scm
d
e g nameg
alist-delete! CWRųłśė²”H h \ ]LL 6 T g y
g filenamef srfi/srfi-1.scm
q
q
C hh » - . , 3 # & 6& 645$ " 4> " G
O 6³ g x
h g ls h g = h g filenamef srfi/srfi-1.scm
i
j & m . j 6 n 7 p h q h g nameg member C”Rė²XQ” h f ] LL 6 ^ g el
g filenamef srfi/srfi-1.scm
{ { 0
{ %
C hx - 1 3 4 5$ " 4 > " G ( C" ,( C4 O 5$ "’’ÖC "’’Ę g =
r g rest r g f 8 d g r 8 d g filenamef srfi/srfi-1.scm
u
v 2 w 8 y > z ? z A { T { W | Z | b | d y g y j y ! r y r
g nameg lset<= CXRė²XQ” h f ] LL 6 ^ g el
g filenamef srfi/srfi-1.scm
.
#
C” h k ]L 6 c g x
g y
g filenamef srfi/srfi-1.scm
0
>
C h ] ] LL O 6 U g el
g filenamef srfi/srfi-1.scm
# C h < - 1 3 4 5$ " 4 > " G ( C" C( C4 O 5$ %4 O 5$ "’’ĮCC "’’Æ 4 g =
g rest g f 8 { g r 8 { g filenamef srfi/srfi-1.scm
~
2 8 > ?
A T
U
c
I e
i
l o w { ~
g nameg lset= CYRłśė²Z h k ]L 6 c g x
g y
g filenamef srfi/srfi-1.scm
C” h ā - 1 3 H & " $ " *4 5$ " 4 > " G O K" 0( C4J5$ " "’’Š "’’Ä Ś g =
g list g rest g pred
g ans X g rest X g filenamef srfi/srfi-1.scm
" )
X ^ ” b £ g £ m £ q £ z „ } „ ¦ £
g nameg lset-adjoing
documentationf lAdd to LIST any of the elements of REST not already in the list.
These elements are `cons'ed onto the start of LIST (so the return shares
a common tail with LIST), but the order they're added is unspecified.
The given `=' procedure is used for comparing elements, called
as `(@var{=} listelem elem)', i.e., the second argument is one of the
given REST parameters. CZRłśė²[ h k ]L 6 c g x
g y
g filenamef srfi/srfi-1.scm
Æ
Æ
C66” h ]4 M 5$ C C y g elt
g ans g filenamef srfi/srfi-1.scm
¶ · · ¹ C h0 x ] ( C( C & CL O 6 p g lis
. g ans . g filenamef srfi/srfi-1.scm
± ²
. ¶ . C hh Ķ - 1 3 H & " $ " *4 5$ " 4 > " G O KO 6 Å g =
b g rest b g pred
b g filenamef srfi/srfi-1.scm
Ø
« « « " « ) ®
^ » b ± b
g nameg
lset-union C[Rė²\Q” h f ]L L 6 ^ g ll
g filenamef srfi/srfi-1.scm
Ć Ć &
Ć
C h ? - 1 3 4 5$ " 4 > " G " >( 64 O 5$ "’’Ļ "’’Ā "’’· 7 g =
y g list1 y g rest y g l 0 n g acc 0 n g filenamef srfi/srfi-1.scm
¾
æ 0 Ą 6 Į < Ā = Ć
P Ć S Ä V Ä Y Ä a Ä d Å n Å n Ą q Ą y Ą y
g nameg lset-intersection C\Rė²]P” h f ]L L 6 ^ g ll
g filenamef srfi/srfi-1.scm
Ī Ī &
Ī
C h K - 1 3 4 5$ " 4 > " G ( C" >( 64 O 5$
"’’Ó "’’Ā "’’· C g =
g list1 g rest g l 9 w g acc 9 w g filenamef srfi/srfi-1.scm
Ē
Č 2 É 9 Ė ? Ģ E Ķ F Ī Y Ī \ Ļ f Ļ
i Š l Š o Š w Š
w Ė z Ė Ė
g nameg lset-difference C]Rė²^6” h “ ]"" ~( J" :( 64 L 5$
"’’× "’’Ę "’’ŗ4L 5$
"’’ "’’ "’’w ¬ g lst
g res g l g acc g r J g acc J g filenamef srfi/srfi-1.scm
Ö ×
Ų Ł Ś Ū Ü " Ü ( Ü , Ü / Ż 9 Ż < Ž ? Ž ' B Ž ! J Ž J Ł W ß \ ß b ß f ß i ą s ą v į y į " | į į ×
× ×
C h@ - 1 3 4 5$ " 4 > " G O 6 g =
: g rest : g filenamef srfi/srfi-1.scm
Ō
Õ 6 ā : Ö :
g nameg lset-xor C^Rė²_Q” h f ]L L 6 ^ g ll
g filenamef srfi/srfi-1.scm
ź ź 1
ź )
C h Æ - 1 3 4 5$ " 4 > " G " X( 4545D4 O 5 $ "’’½ "’’Ø "’’ § g =
g list1 g rest g l 0 g accd 0 g acci 0 g appears V g filenamef srfi/srfi-1.scm
å
ę 0 ē 6 č 7 é > é F é G ź V ź ^ ė a ģ f ģ ! i ģ s ģ
v ķ y ķ | ķ ķ
ē ē ē & ē
g nameg lset-diff+intersection C_Rė²`[ h8 - 1 3 4 5$ " 4 > " G @ g =
4 g rest 4 g filenamef srfi/srfi-1.scm
š
ń 4 ņ 4
g nameg lset-union! C`Rė²a\ h8 « - 1 3 4 5$ " 4 > " G @ £ g =
6 g list1 6 g rest 6 g filenamef srfi/srfi-1.scm
ō
õ 6 ö 6
g nameg lset-intersection! CaRė²c^ h8 - 1 3 4 5$ " 4 > " G @
g =
4 g rest 4 g filenamef srfi/srfi-1.scm
ų
ł 4 ś 4
g nameg lset-xor! CcRė²d_ h8 ° - 1 3 4 5$ " 4 > " G @ Ø g =
6 g list1 6 g rest 6 g filenamef srfi/srfi-1.scm
ü
ż 6 ž 6
g nameg lset-diff+intersection! CdRC Ś g m
0 g filenamef srfi/srfi-1.scm '
1 ß
6 ß > ß & C ß
L ć
Q ć W ć X ć + ` ć b ä g ć
é
l ī
ē ö
¢ ū
ż
ń
„
/
Ń
%
7
ä @
G
[
\
$ ]
+ ^
Į _
Y `
ó a
b
* c
Ź d
µ f
¼ j
Ć k
q
w
Į }
¼
"Ó
#Ä
%9 ³
%Ń ŗ
& ¼
'D ¾
( Ą
) Ā
,z Č
/] Ų
2* č
5s ÷
9%
;B
=X
?@ *
E„ 1
E¬ W
K Y
Lg
M8
M?
QD
Si ”
V* “
X Ć
Yß Ó
\ Ž
^) č
`q ų
bx
dø
f
hC '
i 3
l¤ <
l« P
nm R
pa [
q6 d
rö i
u' u
x§ ~
|Ķ
Ø
¾
ž Ē
@ Ō
2 å
š
ō
š ų
ó ü
a õ
C6 PK ! £Āq“S S
srfi-10.gonu [µü¤ GOOF----LE-8-2.0; ] ' 4 h ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-10¤ ¤ g filenameS¤
f srfi/srfi-10.scm¤ g importsS¤ g ice-9¤
g rdelim¤
¤ ¤ ¤ g exportsS¤ g define-reader-ctor¤ ¤ g set-current-module¤ ¤ ¤ g cond-expand-provide¤ g current-module¤ ¤ g make-hash-table¤ g reader-ctors¤ g
hashq-set!¤ g hashq-ref¤ g
procedure?¤ g error¤ f unknown hash-comma tag ¤ !g lookup¤ "g read¤ #f %syntax error in hash-comma expression¤ $g length¤ %g
hash-comma¤ &g read-hash-extend¤C 5 hĄ ” ]4
5 4 > " G 4i4i5 > " G 4i 5R h ]4 > " G C g symbol
g proc g filenamef srfi/srfi-10.scm
=
> g nameg define-reader-ctor CR h( Ø ] 4 5 45$ C 6 g symbol
$ g p $ g filenamef srfi/srfi-10.scm
D
E E F F H $ H $ g nameg lookup C!R" #$! hP 6 ]45 " 6$ .45
$ $ 45 @"’’É"’’Å"’’Į . g char
N g port N g obj N g p 9 B g filenamef srfi/srfi-10.scm
L
M M R R N N
N N $ $ N ) N , N ; - N 2 1 N 2 O 7 O 9 O 9 O @ P B P N g nameg
hash-comma C%R&i,%i6 g m
, g filenamef srfi/srfi-10.scm /
- 3
2 3 : 3 & ? 3
H 8 S 8
=
D
± L
½ V
½
C6 PK ! Ć(^Aų ų
srfi-28.gonu [µü¤ GOOF----LE-8-2.0ą ] 4 hD ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-28¤ ¤ g filenameS¤
f srfi/srfi-28.scm¤ g replacementsS¤ g format¤
¤ g set-current-module¤ ¤ ¤ g
simple-format¤ g cond-expand-provide¤ g current-module¤ ¤C 5 hč v ]4
5 4 > " G h - 1 3 @ ~ g message
g args g filenamef srfi/srfi-28.scm
g nameg format C Ri4i5 6n g m
( g filenamef srfi/srfi-28.scm
Ł
Ž ! ę ! & č !
č
C6 PK ! tv.ø ø
srfi-38.gonu [µü¤ GOOF----LE-8-2.0 ] U 4 h¤ ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-38¤ ¤ g filenameS¤
f srfi/srfi-38.scm¤ g importsS¤ g rnrs¤
g bytevectors¤
¤ ¤ g srfi-8¤ ¤ ¤ g srfi-69¤ ¤ ¤ g system¤ g vm¤ g
trap-state¤ ¤ ¤ ¤ g exportsS¤ g write-with-shared-structure¤ g read-with-shared-structure¤ ¤ g set-current-module¤ ! ¤ " ¤ #g cond-expand-provide¤ $g current-module¤ % ¤ &g current-output-port¤ 'g
vector-length¤ (g string?¤ )g
string-length¤ *g bytevector?¤ +g port?¤ ,g display¤ -f (¤ .f )¤ /f . ¤ 0g hash-table-ref¤ 1f ¤ 2f #(¤ 3g write¤ 4g number?¤ 5f #¤ 6g counter¤ 7f =¤ 8g hash-table-set!¤ 9g hash-table-exists?¤ :g make-hash-table¤ ;g eq?¤ g peek-char¤ ?g eof-object?¤ @g list->string¤ Ag reverse¤ Bg read-char¤ Cg string->number¤ Dg
char-numeric?¤ Eg hash-table-ref/default¤ Fg error¤ Gf Double declaration of part ¤ Hg read¤ If Use of undeclared part ¤ Jf Malformed shared part specifier¤ Kg with-fluid*¤ Lg %read-hash-procedures¤ Mg for-each¤ Ng read-hash-extend¤ O0123456789
¤ Pg hash-table-size¤ Qg patch!¤ Rg
procedure?¤ Sg hole?¤ Tg fill-hole¤C 5 hą ]4
5 4" > " G 4#i4$i5 %> " G &'()*+ h \ ] $ C $ 4 5
" $ C4 5$ 4 5
" $ C4 5 $ C ¦$ C4 5 $ CCT g obj
g t ! g t F g t X g t s g filenamef srfi/srfi-38.scm
9 : :
: ;
; ; ' ; ; ! : - <
7 < 8 < ' ? < A < F : R = X : f > j : k > m ? s : g nameg interesting? C,-./012'345678 h@ ]" _ $ Ę4L> " G 4L > " G " " >( L64L> " G 4L > " G L6$ C45$ "’’Ŗ4L> " G 4L > " G "’’t"’’t "’’g $ 4L> " G 4 5 4L
£> " G " E$ L64L> " G 4L £> " G "’’» "’’“ L64L 5$ Č4 5 $ ³4
5$ 04 L> " G 4 L> " G L64 5 4 L> " G 4 L> " G 4
L> " G 4 > " G 4 > " G "’żŅ"’żĪ L6ś g obj
@ g state @ g obj : Ź g len õ ] g i V g val y 8 g n Ę 4 g filenamef srfi/srfi-38.scm
N O P
P Q
Q Q
" R
' R . R
: S
D T H Y L Y M [ Q [ X [ a \ x ] | ] | T T T T , T U U U © V ® V ! µ V Ą W ! Ę W Ź S
Ķ S " Ó S
Ö ^
Ś P Ū _
ß _ ę _
ļ ` õ `
ų a ž a a b c c c + " c " # d ' d & . d 7 e > e ( E e P f ( V f V b e h f i p i q j y j k
l k
m m $ m ” n ø o $ ¼ o ½ q " Ć q 8 Å q " Ę q Ę q É r Ķ r Ō r Ż s ń t õ t ü t u u - u v 4 w 8 k @ y ^ @ g nameg write-obj C98' hø ]4L 5 $ C4 5$ 64 > " G $ "4L > " G "’’ $ ?4 5 " +$ C4L £> " G "’’Õ
"’’ĪC g obj
± g state ± g t
± g len w Æ g i } Ø g filenamef srfi/srfi-38.scm
~
" + , C G H
M
T
_ i l p q w } ¢ Ø ± g nameg scan C:;86 h L - . , 3 # 45 # O O Q Q 45 4 > " G 4
> " G 6 D g obj
g outport g optarg g interesting? 9 g write-obj 9 g scan 9 g state P g filenamef srfi/srfi-38.scm
.
0 / J P S g m s
g nameg write-with-shared-structure C R<:=>?@AB hX 7 ]" G4L 5 45 $ " 4 5 $ 4564L 5 "’’¹ "’’± / g pred
U g initial U g chars M g c
M g t . g filenamef srfi/srfi-38.scm
$ ' + " 2
5 = > G M M U g nameg read-some-chars CCDBEFG8h _ ] L C W g filenamef srfi/srfi-38.scm
« « $
g nameg thunk CHIJ hØ Ņ ]*44L 55 45 4L5 =$ P$ 4> " G " 4LO > " G 4 5 C#$ $ C
6 6 Ź g c
£ g port £ g n £ g c £ g thunk ( £ g cell U g obj y g filenamef srfi/srfi-38.scm
¢ £ £ £ ? £ £ £ ¤ £ „ ( £ 3 ¦ 9 Ø : © > © E © U Ŗ U Ŗ X ¬
s y
® ¦ ± ² ² ” “ £ “ £ g nameg read-hash CKLMN h a ] L 6 Y g digit
g filenamef srfi/srfi-38.scm
ø
¹
COHPQ hP Ŗ ]4LO > " G 4L5
4L 5$ 4 > " G " C ¢ g result
" J g filenamef srfi/srfi-38.scm
· ø ŗ ø » " » & ¼ - ¼ 1 ¼
2 ½ J
C hX ī - . , 3 # 45 45 O O Q Q [ O 6 ę g port
S g parts-table S g read-some-chars 3 S g read-hash 3 S g filenamef srfi/srfi-38.scm
6 S ¶ S
g nameg read-with-shared-structure C RR h n ] 6f g x
g filenamef srfi/srfi-38.scm
Ą
Ą g nameg hole? CSRST h ]4 5$ 4 5 6 C
g x
g filenamef srfi/srfi-38.scm
Į
Į
Į Į / Į $ g nameg fill-hole CTRSTQ' hĄ ł ] $ N4 5$ 4 5" 4 > " G 4 5$
4 5C 6 $ \" J
$ C £ 45$ 45¤" 4> " G "’’¶4 5 "’’ØC ń g x
¼ g i b ¬ g elt q £ g filenamef srfi/srfi-38.scm
Ć
Å Ä
Ę Ę Ę Ę Ę $ Ę / Ę $ Ę % Ę 9 * Ę A / Ę 9 8 Ē = Ē ? Ē C Ē F Ē $ K Ē / M Ē $ N Ē U Ē A W Ē 9 Z Č ^ Ä b É f Ź j É q Ė q Ė t Ģ ~ Ģ Ķ Ķ Ī ¦ É $ ¬ É É “ É ŗ É * ¼ g nameg patch! CQRC g m
, g filenamef srfi/srfi-38.scm
- "
2 " : " & ? "
.
¹
A Ą
Į
Ü Ć
Ž
C6 PK ! ÓŪnlist¤ g list->string¤ g reverse-list->string¤ !g string-join¤ "g
string-length¤ #g
string-ref¤ $g string-copy¤ %g substring/shared¤ &g string-copy!¤ 'g string-take¤ (g string-take-right¤ )g string-drop¤ *g string-drop-right¤ +g
string-pad¤ ,g string-pad-right¤ -g string-trim¤ .g string-trim-right¤ /g string-trim-both¤ 0g string-set!¤ 1g string-fill!¤ 2g string-compare¤ 3g string-compare-ci¤ 4g string=¤ 5g string<>¤ 6g string<¤ 7g string>¤ 8g string<=¤ 9g string>=¤ :g
string-ci=¤ ;g string-ci<>¤ ¤ >g string-ci<=¤ ?g string-ci>=¤ @g string-hash¤ Ag string-hash-ci¤ Bg string-prefix-length¤ Cg string-prefix-length-ci¤ Dg string-suffix-length¤ Eg string-suffix-length-ci¤ Fg string-prefix?¤ Gg string-prefix-ci?¤ Hg string-suffix?¤ Ig string-suffix-ci?¤ Jg string-index¤ Kg string-index-right¤ Lg string-skip¤ Mg string-skip-right¤ Ng string-count¤ Og string-contains¤ Pg string-contains-ci¤ Qg
string-upcase¤ Rg string-upcase!¤ Sg string-downcase¤ Tg string-downcase!¤ Ug string-titlecase¤ Vg string-titlecase!¤ Wg string-reverse¤ Xg string-reverse!¤ Yg
string-append¤ Zg string-append/shared¤ [g string-concatenate¤ \g string-concatenate-reverse¤ ]g string-concatenate/shared¤ ^g !string-concatenate-reverse/shared¤ _g
string-map¤ `g string-map!¤ ag string-fold¤ bg string-fold-right¤ cg
string-unfold¤ dg string-unfold-right¤ eg string-for-each¤ fg string-for-each-index¤ gg
xsubstring¤ hg
string-xcopy!¤ ig string-replace¤ jg string-tokenize¤ kg
string-filter¤ lg
string-delete¤ m !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijkl V¤ ng cond-expand-provide¤ o ¤C 5 h° x ]4
5 4
> " G 4m h B ] 45 6 : g filenamef srfi/srfi-13.scm
C> " G ni4i5 o6 p g m
$ g filenamef srfi/srfi-13.scm
%
¤ ¬ & ®
®
C6 PK ! ł½¶ ½¶
srfi-69.gonu [µü¤ GOOF----LE-8-2.0„¶ ]W 4 h²R ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-69¤ ¤ g filenameS¤
f srfi/srfi-69.scm¤ g importsS¤ g srfi-1¤
¤
¤ g srfi-9¤ ¤ ¤ g srfi-13¤ ¤ ¤ g ice-9¤ g optargs¤ ¤ ¤ ¤ g exportsS¤ g make-hash-table¤ g hash-table?¤ g alist->hash-table¤ g hash-table-equivalence-function¤ g hash-table-hash-function¤ g hash-table-ref¤ !g hash-table-ref/default¤ "g hash-table-set!¤ #g hash-table-delete!¤ $g hash-table-exists?¤ %g hash-table-update!¤ &g hash-table-update!/default¤ 'g hash-table-size¤ (g hash-table-keys¤ )g hash-table-values¤ *g hash-table-walk¤ +g hash-table-fold¤ ,g hash-table->alist¤ -g hash-table-copy¤ .g hash-table-merge!¤ /g string-ci-hash¤ 0g hash-by-identity¤ 1 !"#$%&'()*+,-./0 ¤ 2g
re-exportsS¤ 3g string-hash¤ 43 ¤ 5g replacementsS¤ 6g hash¤ 76 ¤ 8g set-current-module¤ 98 ¤ :8 ¤ ;g cond-expand-provide¤ g make-syntax-transformer¤ ?> ¤ @> ¤ Ag hashx-invoke¤ Bg macro¤ Cg $sc-dispatch¤ DC ¤ EC ¤ Fg _¤ Gg any¤ HFG¤ Ig
syntax->datum¤ JI ¤ KI ¤ Lg
datum->syntax¤ ML ¤ NL ¤ Og
ht-associator¤ Pg
ht-real-table¤ Qg syntax-violation¤ RQ ¤ SQ ¤ Tf -source expression failed to match any pattern¤ Ug with-hashx-values¤ Vg let¤ Wg first¤ Xg second¤ Yg third¤ Zg most-positive-fixnum¤ [g caller-with-default-size¤ \6 ¤ ]6 ¤ ^g string-hash-ci¤ _g hashq¤ `g srfi-69:hash-table¤ ag "%make-srfi-69-hash-table-procedure¤ bg make-srfi-69-hash-table¤ cFGGGGGG ¤ dg
syntax-object¤ eg lambda¤ fg m-46961e518c-31¤ gg top¤ hfg ¤ ig ribcage¤ jg t-46961e518c-2b¤ kg t-46961e518c-2c¤ lg t-46961e518c-2d¤ mg t-46961e518c-2e¤ ng t-46961e518c-2f¤ og t-46961e518c-30¤ pjklmno ¤ qhhhhhh ¤ rf l-46961e518c-36¤ sf l-46961e518c-37¤ tf l-46961e518c-38¤ uf l-46961e518c-39¤ vf l-46961e518c-3a¤ wf l-46961e518c-3b¤ xrstuvw ¤ yipqx ¤ zi ¤ {g x¤ |{ ¤ }h ¤ ~f l-46961e518c-33¤ ~ ¤ i|} ¤ g shift¤ g proc-name¤ g args¤ ¤
g ¤
¤ f l-1e8ba8b5a-2ba¤ f l-1e8ba8b5a-2bb¤ ¤ i ¤ g key¤ g value¤ g name¤ g formals¤ g body¤ ¤
¤ f l-1e8ba8b5a-2ad¤ f l-1e8ba8b5a-2ae¤ f l-1e8ba8b5a-2af¤ f l-1e8ba8b5a-2b0¤ f l-1e8ba8b5a-2b1¤ ¤ i ¤ g make-procedure-name¤ ¤
¤ f l-1e8ba8b5a-29d¤ ¤ i ¤
¤ f l-1e8ba8b5a-29c¤ ” ¤ ¢i|” ¤ £hyzzzzz¢
¤ ¤g hygiene¤ „¤ ¤ ¦de£„ ¤ §g
real-table¤ Ø
yz ¤ ©¤ ¤ Ŗd§Ø© ¤ «g
associator¤ ¬d«Ø© ¤ g size¤ ®dØ© ¤ Æg weakness¤ °dÆØ© ¤ ±g equivalence-function¤ ²d±Ø© ¤ ³g
hash-function¤ “d³Ø© ¤ µŖ¬®°²“ ¤ ¶g make-struct¤ ·g m-46961e518c-29¤ ø·g ¤ ¹g t-1e8ba8b5a-38d¤ ŗg t-1e8ba8b5a-38c¤ »g t-1e8ba8b5a-38b¤ ¼¹ŗ» ¤ ½g m-1e8ba8b5a-38e¤ ¾½g ¤ æ¾¾¾ ¤ Ąf l-1e8ba8b5a-392¤ Įf l-1e8ba8b5a-393¤ Āf l-1e8ba8b5a-394¤ ĆĄĮĀ ¤ Äi¼æĆ ¤ Åg ctor-args¤ ĘÅ ¤ Ēf l-1e8ba8b5a-37a¤ ČĒ ¤ ÉiĘČ ¤ Źg ctor¤ Ėg field¤ ĢŹĖ ¤ Ķf l-1e8ba8b5a-376¤ Īf l-1e8ba8b5a-377¤ ĻĶĪ ¤ ŠiĢĻ ¤ Ńg form¤ Ņg type-name¤ Óg constructor-spec¤ Ōg field-names¤ ÕŃŅÓŌ ¤ Ö
¤ ×f l-1e8ba8b5a-36b¤ Ųf l-1e8ba8b5a-36c¤ Łf l-1e8ba8b5a-36d¤ Śf l-1e8ba8b5a-36e¤ Ū×ŲŁŚ ¤ ÜiÕÖŪ ¤ Żg
record-layout¤ Žg functional-setters¤ ßg setters¤ ąg copier¤ įg getters¤ āg constructor¤ ćg getter-identifiers¤ äg field-identifiers¤ åŻŽßąįāćä ¤ ę
¤ ēf l-1e8ba8b5a-343¤ čf l-1e8ba8b5a-341¤ éf l-1e8ba8b5a-33f¤ źf l-1e8ba8b5a-33d¤ ėf l-1e8ba8b5a-33b¤ ģf l-1e8ba8b5a-339¤ ķf l-1e8ba8b5a-337¤ īf l-1e8ba8b5a-335¤ ļēčéźėģķī ¤ šiåęļ ¤ ńf l-1e8ba8b5a-334¤ ņń ¤ ói|ņ ¤ ōøyzzÄzzzÉŠzÜšó ¤ õd¶ō„ ¤ öd`Ø© ¤ ÷d
ō„ ¤ ųõö÷Ŗ¬®°²“ ¤ ł¦µų ¤ śg each-any¤ ūFś¤ üQ ¤ żQ ¤ žf Wrong number of arguments¤ ’g identifier?¤ ’ ¤ ’ ¤
z ¤ da© ¤ g record-type-vtable¤ ¤ ¤ g pwpwpwpwpwpw¤ g default-record-printer¤ ¤
¤ §«Æ±³ ¤ g set-struct-vtable-name!¤
¤ ¤ g vtable-offset-user¤ ¤ ¤ g %hash-table?-procedure¤ FG ¤ g m-46961e518c-48¤ g ¤ g t-46961e518c-47¤ ¤ ¤ f l-46961e518c-4d¤ ¤ i ¤ f l-46961e518c-4a¤ ¤ i| ¤ z zzzz¢
¤ de „ ¤ !g obj¤ "g t-1e8ba8b5a-47e¤ #g t-1e8ba8b5a-478¤ $g t-1e8ba8b5a-479¤ %g t-1e8ba8b5a-47a¤ &g t-1e8ba8b5a-47d¤ 'g t-1e8ba8b5a-47c¤ (g t-1e8ba8b5a-47b¤ )"#$%&'( ¤ *g m-1e8ba8b5a-47f¤ +*g ¤ ,+++++++ ¤ -f l-1e8ba8b5a-483¤ .f l-1e8ba8b5a-484¤ /f l-1e8ba8b5a-485¤ 0f l-1e8ba8b5a-486¤ 1f l-1e8ba8b5a-487¤ 2f l-1e8ba8b5a-488¤ 3f l-1e8ba8b5a-489¤ 4-./0123 ¤ 5i),4 ¤ 6g copier-id¤ 76 ¤ 8f l-1e8ba8b5a-476¤ 98 ¤ :i79 ¤ ;g ctor-name¤ <; ¤ =f l-1e8ba8b5a-46e¤ >= ¤ ?i<> ¤ @Ō ¤ Af l-1e8ba8b5a-46c¤ BA ¤ Ci@B ¤ Dg layout¤ ED ¤ Ff l-1e8ba8b5a-46a¤ GF ¤ HiEG ¤ Ig
immutable?¤ JI ¤ Kf l-1e8ba8b5a-468¤ LK ¤ MiJL ¤ Ng field-count¤ ON ¤ Pf l-1e8ba8b5a-466¤ QP ¤ RiOQ ¤ Sg
getter-ids¤ TS ¤ Uf l-1e8ba8b5a-463¤ VU ¤ WiTV ¤ Xg field-ids¤ YX ¤ Zf l-1e8ba8b5a-460¤ [Z ¤ \iY[ ¤ ]g predicate-name¤ ^g
field-spec¤ _IŃŅÓ]^ ¤ `
¤ af l-1e8ba8b5a-453¤ bf l-1e8ba8b5a-454¤ cf l-1e8ba8b5a-455¤ df l-1e8ba8b5a-456¤ ef l-1e8ba8b5a-457¤ ff l-1e8ba8b5a-458¤ gabcdef ¤ hi_`g ¤ iøz z5zzzz:z?zCzHzMzRzWz\hšó ¤ jd!i„ ¤ kj ¤ lg and¤ mdli„ ¤ ng struct?¤ odni„ ¤ poj ¤ qg eq?¤ rdqi„ ¤ sg
struct-vtable¤ tdsi„ ¤ utj ¤ v
z ¤ wd`v© ¤ xruw ¤ ympx ¤ z ky ¤ {
z ¤ |d{© ¤ }g throw-bad-struct¤ ~} ¤ } ¤ g %ht-real-table-procedure¤ g free-id¤ g
%%on-error¤ g m-46961e518c-54¤ g ¤
¤ f l-46961e518c-56¤ ¤ i|
¤ zzzzz¢ ¤ d„ ¤ ¤ G ¤ g %%type¤ g t-1e8ba8b5a-3a5¤ g t-1e8ba8b5a-3a6¤ g t-1e8ba8b5a-3a7¤ g t-1e8ba8b5a-3a8¤ g t-1e8ba8b5a-3a9¤ g t-1e8ba8b5a-3aa¤ g t-1e8ba8b5a-3ab¤ ¤ g m-1e8ba8b5a-3ac¤ g ¤ ¤ f l-1e8ba8b5a-3b0¤ f l-1e8ba8b5a-3b1¤ f l-1e8ba8b5a-3b2¤ f l-1e8ba8b5a-3b3¤ f l-1e8ba8b5a-3b4¤ f l-1e8ba8b5a-3b5¤ f l-1e8ba8b5a-3b6¤ ¤ ”i ¤ ¢g getter¤ £g index¤ ¤¢£ ¤ „f l-1e8ba8b5a-3a3¤ ¦f l-1e8ba8b5a-3a4¤ §„¦ ¤ Øi¤§ ¤ ©ŅS6 ¤ Ŗ
¤ «f l-1e8ba8b5a-39e¤ ¬f l-1e8ba8b5a-39f¤ f l-1e8ba8b5a-3a0¤ ®«¬ ¤ Æi©Ŗ® ¤ °øzz”zzzØzÆšó ¤ ±d°„ ¤ ²± ¤ ³F²G ¤ “g ck¤ µg err¤ ¶g s¤ ·µ¶ ¤ ø ¤ ¹f l-46961e518c-59¤ ŗf l-46961e518c-5a¤ »¹ŗ ¤ ¼i·ø» ¤ ½¼zzzzz¢
¤ ¾d“½„ ¤ æg quote¤ Ąd潄 ¤ Į
¼z ¤ Ād`Į© ¤ ĆĄĀ ¤ ÄĆ ¤ Åg %%index¤ ĘdÅ°„ ¤ ĒĘ ¤ ČFĒG ¤ Éf l-46961e518c-5e¤ Źf l-46961e518c-5f¤ ĖÉŹ ¤ Ģi·øĖ ¤ ĶĢzzzzz¢
¤ Īd“Ķ„ ¤ ĻdæĶ„ ¤ ŠĢz ¤ Ńd
Š© ¤ ŅĻŃ ¤ ÓŅ ¤ Ōg %%copier¤ ÕdŌ°„ ¤ ÖÕ ¤ ×FÖG ¤ Ųf l-46961e518c-63¤ Łf l-46961e518c-64¤ ŚŲŁ ¤ Ūi·øŚ ¤ ÜŪzzzzz¢
¤ Żd“Ü„ ¤ ŽdæÜ„ ¤ ßg %%srfi-69:hash-table-set-fields¤ ą
Ūz ¤ įdßą© ¤ āŽį ¤ ćā ¤ äg t-46961e518c-53¤ åä ¤ ęf l-46961e518c-68¤ ēę ¤ čiå
ē ¤ éčzzzzz¢
¤ źdeé„ ¤ ėøčzz”zzzØzÆšó ¤ ģd¶ė„ ¤ ķģ ¤ īg if¤ ļdīė„ ¤ šdqė„ ¤ ńdsė„ ¤ ņńģ ¤ ó
čz ¤ ōd`ó© ¤ õšņō ¤ ög
struct-ref¤ ÷döė„ ¤ ųčz ¤ łd
ų© ¤ ś÷ģł ¤ ūd}ė„ ¤ üdæė„ ¤ żdPó© ¤ žüż ¤ ’ūģž ¤ ļõś’ ¤ źķ ¤
z ¤ d© ¤ g %ht-associator-procedure¤ g m-46961e518c-6f¤ g ¤ ¤ f l-46961e518c-71¤ ¤
i| ¤ z
zzzz¢ ¤ d „ ¤
¤
G ¤ øz
z”zzzØzÆšó ¤ d„ ¤ ¤ FG ¤ ¤ f l-46961e518c-74¤ f l-46961e518c-75¤ ¤ i· ¤ z
zzzz¢
¤ d“„ ¤ dæ„ ¤
z
¤ d`© ¤ ¤ ¤ dÅ„ ¤ ¤ !F G ¤ "f l-46961e518c-79¤ #f l-46961e518c-7a¤ $"# ¤ %i·$ ¤ &%z
zzzz¢
¤ 'd“&„ ¤ (dæ&„ ¤ )%z
¤ *d )© ¤ +(* ¤ ,+ ¤ -dŌ„ ¤ .- ¤ /F.G ¤ 0f l-46961e518c-7e¤ 1f l-46961e518c-7f¤ 201 ¤ 3i·2 ¤ 43z
zzzz¢
¤ 5d“4„ ¤ 6dæ4„ ¤ 7
3z
¤ 8dß7© ¤ 968 ¤ :9 ¤ ;g t-46961e518c-6e¤ <; ¤ =f l-46961e518c-83¤ >= ¤ ?i<> ¤ @?z
zzzz¢
¤ Ade@„ ¤ Bø?z
z”zzzØzÆšó ¤ Cd¶B„ ¤ DC ¤ EdīB„ ¤ FdqB„ ¤ GdsB„ ¤ HGC ¤ I
?z
¤ Jd`I© ¤ KFHJ ¤ LdöB„ ¤ M?z
¤ Nd M© ¤ OLCN ¤ Pd}B„ ¤ QdæB„ ¤ RdOI© ¤ SQR ¤ TPCS ¤ UEKOT ¤ VADU ¤ W
z
¤ XdW© ¤ Yg ht-size¤ Zg %ht-size-procedure¤ [g m-46961e518c-8a¤ \[g ¤ ]\ ¤ ^f l-46961e518c-8c¤ _^ ¤ `i|]_ ¤ a\z`zzzz¢ ¤ bda„ ¤ cb ¤ dcG ¤ eøz`z”zzzØzÆšó ¤ fde„ ¤ gf ¤ hFdgG ¤ i\\ ¤ jf l-46961e518c-8f¤ kf l-46961e518c-90¤ ljk ¤ mi·il ¤ n\mz`zzzz¢
¤ od“n„ ¤ pdæn„ ¤ q
mz` ¤ rd`q© ¤ spr ¤ ts ¤ udÅe„ ¤ vu ¤ wFdvG ¤ xf l-46961e518c-94¤ yf l-46961e518c-95¤ zxy ¤ {i·iz ¤ |\{z`zzzz¢
¤ }d“|„ ¤ ~dæ|„ ¤ {z` ¤ d © ¤ ~ ¤ ¤ dŌe„ ¤ ¤
FdG ¤ f l-46961e518c-99¤ f l-46961e518c-9a¤ ¤ i·i ¤ \z`zzzz¢
¤ d“„ ¤ dæ„ ¤
z` ¤ dß© ¤ ¤ ¤ g t-46961e518c-89¤ ¤ f l-46961e518c-9e¤ ¤ i] ¤ \z`zzzz¢
¤ de„ ¤ øz`z”zzzØzÆšó ¤ d¶„ ¤ ¤ dī„ ¤ dq„ ¤ ds„ ¤ ¤
z` ¤ d`© ¤ ” ¤ ¢dö„ ¤ £z` ¤ ¤d £© ¤ „¢¤ ¤ ¦d}„ ¤ §dæ„ ¤ ØdY© ¤ ©§Ø ¤ Ŗ¦© ¤ «”„Ŗ ¤ ¬« ¤
z` ¤ ®dZ© ¤ Æg ht-weakness¤ °g %ht-weakness-procedure¤ ±g m-46961e518c-a5¤ ²±g ¤ ³² ¤ “f l-46961e518c-a7¤ µ“ ¤ ¶i|³µ ¤ ·²z¶zzzz¢ ¤ ød·„ ¤ ¹ø ¤ ŗ¹G ¤ »øz¶z”zzzØzÆšó ¤ ¼d»„ ¤ ½¼ ¤ ¾Fŗ½G ¤ æ²² ¤ Ąf l-46961e518c-aa¤ Įf l-46961e518c-ab¤ ĀĄĮ ¤ Ći·æĀ ¤ IJĆz¶zzzz¢
¤ Åd“Ä„ ¤ ĘdæÄ„ ¤ Ē
Ćz¶ ¤ Čd`Ē© ¤ ÉĘČ ¤ ŹÉ ¤ ĖdÅ»„ ¤ ĢĖ ¤ ĶFŗĢG ¤ Īf l-46961e518c-af¤ Ļf l-46961e518c-b0¤ ŠĪĻ ¤ Ńi·æŠ ¤ Ņ²Ńz¶zzzz¢
¤ Ód“Ņ„ ¤ ŌdæŅ„ ¤ ÕŃz¶ ¤ Öd Õ© ¤ ×ŌÖ ¤ Ų× ¤ ŁdŌ»„ ¤ ŚŁ ¤ ŪFŗŚG ¤ Üf l-46961e518c-b4¤ Żf l-46961e518c-b5¤ ŽÜŻ ¤ ßi·æŽ ¤ ą²ßz¶zzzz¢
¤ įd“ą„ ¤ ādæą„ ¤ ć
ßz¶ ¤ ädßć© ¤ åāä ¤ ęå ¤ ēg t-46961e518c-a4¤ čē ¤ éf l-46961e518c-b9¤ źé ¤ ėič³ź ¤ ģ²ėz¶zzzz¢
¤ ķdeģ„ ¤ īøėz¶z”zzzØzÆšó ¤ ļd¶ī„ ¤ šļ ¤ ńdīī„ ¤ ņdqī„ ¤ ódsī„ ¤ ōóļ ¤ õ
ėz¶ ¤ öd`õ© ¤ ÷ņōö ¤ ųdöī„ ¤ łėz¶ ¤ śd ł© ¤ ūųļś ¤ üd}ī„ ¤ żdæī„ ¤ ždÆõ© ¤ ’żž ¤ üļ’ ¤ ń÷ū ¤ ķš ¤
z¶ ¤ d°© ¤ g *%hash-table-equivalence-function-procedure¤ g m-46961e518c-c0¤ g ¤ ¤ f l-46961e518c-c2¤
¤ i|
¤ z zzzz¢ ¤
d „ ¤
¤ G ¤ øz z”zzzØzÆšó ¤ d„ ¤ ¤ FG ¤ ¤ f l-46961e518c-c5¤ f l-46961e518c-c6¤ ¤ i· ¤ z zzzz¢
¤ d“„ ¤ dæ„ ¤
z ¤ d` © ¤ ¤ ¤ dÅ„ ¤ ! ¤ "F!G ¤ #f l-46961e518c-ca¤ $f l-46961e518c-cb¤ %#$ ¤ &i·% ¤ '&z zzzz¢
¤ (d“'„ ¤ )dæ'„ ¤ *&z ¤ +d *© ¤ ,)+ ¤ -, ¤ .dŌ„ ¤ /. ¤ 0F/G ¤ 1f l-46961e518c-cf¤ 2f l-46961e518c-d0¤ 312 ¤ 4i·3 ¤ 54z zzzz¢
¤ 6d“5„ ¤ 7dæ5„ ¤ 8
4z ¤ 9dß8© ¤ :79 ¤ ;: ¤ f l-46961e518c-d4¤ ?> ¤ @i=? ¤ A@z zzzz¢
¤ BdeA„ ¤ Cø@z z”zzzØzÆšó ¤ Dd¶C„ ¤ ED ¤ FdīC„ ¤ GdqC„ ¤ HdsC„ ¤ IHD ¤ J
@z ¤ Kd`J© ¤ LGIK ¤ MdöC„ ¤ N@z ¤ Od N© ¤ PMDO ¤ Qd}C„ ¤ RdæC„ ¤ Sd J© ¤ TRS ¤ UQDT ¤ VFLPU ¤ WBEV ¤ X
z ¤ YdX© ¤ Zg #%hash-table-hash-function-procedure¤ [g m-46961e518c-db¤ \[g ¤ ]\ ¤ ^f l-46961e518c-dd¤ _^ ¤ `i|]_ ¤ a\z`zzzz¢ ¤ bda„ ¤ cb ¤ dcG ¤ eøz`z”zzzØzÆšó ¤ fde„ ¤ gf ¤ hFdgG ¤ i\\ ¤ jf l-46961e518c-e0¤ kf l-46961e518c-e1¤ ljk ¤ mi·il ¤ n\mz`zzzz¢
¤ od“n„ ¤ pdæn„ ¤ q
mz` ¤ rd`q© ¤ spr ¤ ts ¤ udÅe„ ¤ vu ¤ wFdvG ¤ xf l-46961e518c-e5¤ yf l-46961e518c-e6¤ zxy ¤ {i·iz ¤ |\{z`zzzz¢
¤ }d“|„ ¤ ~dæ|„ ¤ {z` ¤ d © ¤ ~ ¤ ¤ dŌe„ ¤ ¤
FdG ¤ f l-46961e518c-ea¤ f l-46961e518c-eb¤ ¤ i·i ¤ \z`zzzz¢
¤ d“„ ¤ dæ„ ¤
z` ¤ dß© ¤ ¤ ¤ g t-46961e518c-da¤ ¤ f l-46961e518c-ef¤ ¤ i] ¤ \z`zzzz¢
¤ de„ ¤ øz`z”zzzØzÆšó ¤ d¶„ ¤ ¤ dī„ ¤ dq„ ¤ ds„ ¤ ¤
z` ¤ d`© ¤ ” ¤ ¢dö„ ¤ £z` ¤ ¤d £© ¤ „¢¤ ¤ ¦d}„ ¤ §dæ„ ¤ Ød © ¤ ©§Ø ¤ Ŗ¦© ¤ «”„Ŗ ¤ ¬« ¤
z` ¤ ®dZ© ¤ Æg each¤ °GG ¤ ±Æ° ¤ ²G±¤ ³G²¤ “G³¤ µg %%set-fields¤ ¶g dummy¤ ·g check?¤ øg expr¤ ¹¶·¶¢ø ¤ ŗg m-46961e518c-f6¤ »ŗg ¤ ¼»øøøø ¤ ½f l-46961e518c-fb¤ ¾f l-46961e518c-fc¤ æf l-46961e518c-fd¤ Ąf l-46961e518c-fe¤ Įf l-46961e518c-ff¤ Ā½¾æĄĮ ¤ Ći¹¼Ā ¤ Ä» ¤ Åf l-46961e518c-f8¤ ĘÅ ¤ Ēi|ÄĘ ¤ Čg t-1e8ba8b5a-3c4¤ Ég t-1e8ba8b5a-3c6¤ Źg t-1e8ba8b5a-3c5¤ ĖČÉŹ ¤ Ģg m-1e8ba8b5a-3c7¤ ĶĢg ¤ ĪĶĶĶ ¤ Ļf l-1e8ba8b5a-3cb¤ Šf l-1e8ba8b5a-3cc¤ Ńf l-1e8ba8b5a-3cd¤ ŅĻŠŃ ¤ ÓiĖĪŅ ¤ Ōf l-1e8ba8b5a-3c1¤ Õf l-1e8ba8b5a-3c2¤ Öf l-1e8ba8b5a-3c3¤ ×ŌÕÖ ¤ Ųi©Ŗ× ¤ ŁøĆzĒzÓzzzŲšó
¤ ŚdµŁ„ ¤ Ū
ĆzĒ ¤ Üd`Ū© ¤ ŻdPŪ© ¤ ŽdOŪ© ¤ ßdYŪ© ¤ ądÆŪ© ¤ įd Ū© ¤ ād Ū© ¤ 毎߹įā ¤ äg map¤ åä ¤ ęä ¤ ēg list¤ čg ht-size!¤ ég %ht-size!-procedure¤ źFGG ¤ ėg m-46961e518c-10a¤ ģėg ¤ ķg t-46961e518c-108¤ īg t-46961e518c-109¤ ļķī ¤ šģģ ¤ ńf l-46961e518c-10f¤ ņf l-46961e518c-110¤ óńņ ¤ ōiļšó ¤ õģ ¤ öf l-46961e518c-10c¤ ÷ö ¤ ųi|õ÷ ¤ łģōzųzzzz¢
¤ śdeł„ ¤ ūg t-1e8ba8b5a-3e6¤ üg t-1e8ba8b5a-3e7¤ żūü ¤ žg m-1e8ba8b5a-3e8¤ ’žg ¤ ’’ ¤ f l-1e8ba8b5a-3ec¤ f l-1e8ba8b5a-3ed¤ ¤ iż ¤ g setter¤ ¢ ¤ f l-1e8ba8b5a-3e0¤ f l-1e8ba8b5a-3e1¤ f l-1e8ba8b5a-3e2¤
¤ iŖ
¤ ^£ ¤
f l-1e8ba8b5a-3d7¤ f l-1e8ba8b5a-3d8¤
¤ i ¤ g field-specs¤ Ņ ¤ f l-1e8ba8b5a-3d3¤ f l-1e8ba8b5a-3d4¤ ¤ i ¤ øōzųz zzšó ¤ d¶„ ¤ g val¤ d„ ¤ ¤ dī„ ¤ dq„ ¤ ds„ ¤ ¤
ōzų ¤ !d` © ¤ " ! ¤ #g struct-set!¤ $d#„ ¤ %ōzų ¤ &d %© ¤ '$& ¤ (d}„ ¤ )dæ„ ¤ *dč © ¤ +)* ¤ ,(+ ¤ - "', ¤ .ś- ¤ /
zų ¤ 0dé/© ¤ 1g equal?¤ 2g eqv?¤ 3g hashv¤ 4g string=?¤ 5g string-ci=?¤ 6g guess-hash-function¤ 7g reverse!¤ 8g keyword?¤ 9g without-keyword-args¤ : ¤ ; ¤ g key-or-value¤ ?g make-doubly-weak-hash-table¤ @g error¤ Af Invalid weak hash table type¤ Bg
guile-ht-ctor¤ Cg assoc¤ DC ¤ EC ¤ Fg assq¤ Gg assv¤ Hg equivalence-proc->associator¤ Ig weakS¤ JI ¤ KJ ¤ Lg for-each¤ Mg hashx-get-handle¤ Ng
hashx-set!¤ Of ht-value¤ Pg ht-unspecified¤ Qg hashx-ref¤ Rf Key not in table¤ Sg hashx-create-handle!¤ Tg
hashx-remove!¤ Ug hash-fold¤ Vg
alist-cons¤C 5 hŲ] ]4
124575 4: > " G 4;i4 " G 4@ABEHKN OP h( - 1 3 C g
hashx-proc
' g ht-var ' g args ' g filenamef srfi/srfi-69.scm
a
d '
C h d ] 4 5 L 4?6\ g args
g v g filenamef srfi/srfi-69.scm a
CST h( ! ] 4 5 $ O @ 6 g y
' g tmp ' g filenamef srfi/srfi-69.scm
a
' g
documentationf rInvoke HASHX-PROC, a `hashx-*' procedure taking a hash-function,
assoc-function, and the hash-table as first args.g
macro-typeg defmacrog
defmacro-argsg args C5AR4@UBEHKNVW XOYP hH Ą - 1 3 4 5 4 5 4 5 C ø g bindings
F g ht-var F g
body-forms F g filenamef srfi/srfi-69.scm
i
l l l m % l . n 6 l F
C h d ] 4 5 L 4?6\ g args
g v g filenamef srfi/srfi-69.scm i
CST h( ] 4 5 $ O @ 6
g y
' g tmp ' g filenamef srfi/srfi-69.scm
i
' g
documentationf fBind BINDINGS to the hash-function, associator, and real-table of
HT-VAR, while evaluating BODY-FORMS.g
macro-typeg defmacrog
defmacro-argsg args C5URZ h o - . , 3 # L 6 g g obj
g size g filenamef srfi/srfi-69.scm
z { C h ] O C ł g hash-fn
g filenamef srfi/srfi-69.scm
w
g nameg caller-with-default-sizeg
documentationf nAnswer a function that makes `most-positive-fixnum' the default
second argument to HASH-FN, a 2-arg procedure. C[R4[i]56R^i/R4[i_i50R` h ] Ø C g
real-table
g
associator g size g weakness g equivalence-function g
hash-function g filenamef srfi/srfi-69.scm
g nameg "%make-srfi-69-hash-table-procedure CaR4@bBEcł h Č ] C Ą g t-46961e518c-2b
g t-46961e518c-2c g t-46961e518c-2d g t-46961e518c-2e g t-46961e518c-2f g t-46961e518c-30 Cūżbž h T ]L 6 L g a
g filenamef srfi/srfi-69.scm
CF h D ] L 6< g filenamef srfi/srfi-69.scm
C h ] C
CST hp
]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 } g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-69.scm
n C5bR
` Ø 4 `> " G aiŖ `R` h x ] ¦$ §CC p g obj
g filenamef srfi/srfi-69.scm
g nameg %hash-table?-procedure CR4@ BEz h 7 ] C / g t-46961e518c-47
Cūż ž h T ]L 6 L g a
g filenamef srfi/srfi-69.scm
CF h D ] L 6< g filenamef srfi/srfi-69.scm
C| h ] C
CST hp
]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 } g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-69.scm
n C5 R`P h x ] §&
©C 6p g s
g filenamef srfi/srfi-69.scm
g nameg %ht-real-table-procedure CR4@PBE³¾Ä h : ]C 2 g err
g s CČĪÓ h : ]C 2 g err
g s Cׯć h : ]C 2 g err
g s C h 7 ] C / g t-46961e518c-53
CūżPž h T ]L 6 L g a
g filenamef srfi/srfi-69.scm
CF h D ] L 6< g filenamef srfi/srfi-69.scm
C h ] C
CST hø Į ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 ¹ g x
³ g tmp ³ g tmp " ³ g tmp 9 ³ g tmp P ³ g tmp g ³ g tmp ³ g filenamef srfi/srfi-69.scm
³ C5PR`O h x ] §& ©C 6p g s
g filenamef srfi/srfi-69.scm
g nameg %ht-associator-procedure CR4@OBE h : ]C 2 g err
g s C!', h : ]C 2 g err
g s C/5: h : ]C 2 g err
g s CV h 7 ] C / g t-46961e518c-6e
CūżOž h T ]L 6 L g a
g filenamef srfi/srfi-69.scm
CF h D ] L 6< g filenamef srfi/srfi-69.scm
CX h ] C
CST hø Į ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 ¹ g x
³ g tmp ³ g tmp " ³ g tmp 9 ³ g tmp P ³ g tmp g ³ g tmp ³ g filenamef srfi/srfi-69.scm
³ C5OR`Y h r ] §& ©C 6 j g s
g filenamef srfi/srfi-69.scm
g nameg %ht-size-procedure CZR4@YBEhot h : ]C 2 g err
g s Cw} h : ]C 2 g err
g s C
h : ]C 2 g err
g s C¬ h 7 ] C / g t-46961e518c-89
CūżYž h T ]L 6 L g a
g filenamef srfi/srfi-69.scm
CF h D ] L 6< g filenamef srfi/srfi-69.scm
C® h ] C
CST hø Į ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 ¹ g x
³ g tmp ³ g tmp " ³ g tmp 9 ³ g tmp P ³ g tmp g ³ g tmp ³ g filenamef srfi/srfi-69.scm
³ C5YR`Æ h v ] §& ©C 6 n g s
g filenamef srfi/srfi-69.scm
g nameg %ht-weakness-procedure C°R4@ÆBE¾ÅŹ h : ]C 2 g err
g s CĶÓŲ h : ]C 2 g err
g s CŪįę h : ]C 2 g err
g s C h 7 ] C / g t-46961e518c-a4
CūżÆž h T ]L 6 L g a
g filenamef srfi/srfi-69.scm
CF h D ] L 6< g filenamef srfi/srfi-69.scm
C h ] C
CST hø Į ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 ¹ g x
³ g tmp ³ g tmp " ³ g tmp 9 ³ g tmp P ³ g tmp g ³ g tmp ³ g filenamef srfi/srfi-69.scm
³ C5ÆR` h ] §& ©C 6 g s
g filenamef srfi/srfi-69.scm
g nameg *%hash-table-equivalence-function-procedure CR4@ BE h : ]C 2 g err
g s C"(- h : ]C 2 g err
g s C06; h : ]C 2 g err
g s CW h 7 ] C / g t-46961e518c-bf
Cūż ž h T ]L 6 L g a
g filenamef srfi/srfi-69.scm
CF h D ] L 6< g filenamef srfi/srfi-69.scm
CY h ] C
CST hø Į ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 ¹ g x
³ g tmp ³ g tmp " ³ g tmp 9 ³ g tmp P ³ g tmp g ³ g tmp ³ g filenamef srfi/srfi-69.scm
³ C5 R` h ] §& ©C 6 { g s
g filenamef srfi/srfi-69.scm
g nameg #%hash-table-hash-function-procedure CZR4@ BEhot h : ]C 2 g err
g s Cw} h : ]C 2 g err
g s C
h : ]C 2 g err
g s C¬ h 7 ] C / g t-46961e518c-da
Cūż ž h T ]L 6 L g a
g filenamef srfi/srfi-69.scm
CF h D ] L 6< g filenamef srfi/srfi-69.scm
C® h ] C
CST hø Į ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 ¹ g x
³ g tmp ³ g tmp " ³ g tmp 9 ³ g tmp P ³ g tmp g ³ g tmp ³ g filenamef srfi/srfi-69.scm
³ C5 R4@ßBE“ŚÜćęē h v ]45C n g dummy
g check? g s g getter g expr CST h( æ ] 4 5 $ @ 6 · g x
" g tmp " g filenamef srfi/srfi-69.scm
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5ßR`č h ] §& ŖC 6 | g s
g val g filenamef srfi/srfi-69.scm
g nameg %ht-size!-procedure CéR4@čBEź. h V ] C N g t-46961e518c-108
g t-46961e518c-109 Cūżčž h T ]L 6 L g a
g filenamef srfi/srfi-69.scm
CF h D ] L 6< g filenamef srfi/srfi-69.scm
C0 h ] C
CST hp
]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 } g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-69.scm
n C5čR1]q_23435/ h@ ] & C & C & C & C &
CC ’ g
equal-proc
< g filenamef srfi/srfi-69.scm
< g nameg guess-hash-functiong
documentationf lGuess a hash function for EQUAL-PROC, falling back on `hash', as
specified in SRFI-69 for `make-hash-table'. C6R78W hP ]" ?( 64455$ "’’Ö45 "’’Į "’’¶ g rest-list
P g acc E g rest-list E g filenamef srfi/srfi-69.scm
£ ¤ ¤ „ „ „ " ¤ ' ¦ 0 ¦ 1 § : § = § 1 E § E £ F £ P £ P g nameg without-keyword-argsg
documentationf MAnswer REST-LIST with all keywords removed along with items that
follow them. C9R;<=>?@A
h@ Ü ] $ C $ C $ C $ C 6 Ō g weakness
9 g filenamef srfi/srfi-69.scm
©
« 5 ° 9 °
9 g nameg
guile-ht-ctorg
documentationf 7Answer the Guile HT constructor for the given WEAKNESS. CBR14EqF2GC h s ] L 6 k g item
g alist g filenamef srfi/srfi-69.scm
¹ ŗ C h@ ] & " $ C & C & C O C g
equal-proc
9 g filenamef srfi/srfi-69.scm
²
µ µ
¶
µ 9 g nameg equivalence-proc->associatorg
documentationf ^Answer an `assoc'-like procedure that compares the argument key to
alist keys with EQUAL-PROC. CHRK16B9H` hh ū - / 0 2 3 # # 4 5 # 44545?4 5
Ø C ó g
equal-proc
g g hash-proc g g weak g g
guile-opts g g
real-table R g g
associator R g g filenamef srfi/srfi-69.scm
¼
) ¾ ; Ä < Ä
C Ä K Ä L Å R Ć g
g weakS g nameg make-hash-tableg
documentationf ŖAnswer a new hash table using EQUAL-PROC as the comparison
function, and HASH-PROC as the hash function. See the reference
manual for specifics, of which there are many. CR`Y OPLMN h0 Ä ] 4LLL 5 $ CM N LLL 6 ¼ g pair
/ g handle / g filenamef srfi/srfi-69.scm
Ķ Ī Ļ = Ī Ī Š Ń & Ń * Ó ' - Ó 2 / Ņ / Cč hą - 1 3 4? §& ©" 45H§& ©" 45§& ©" 45§&
©" 45 4 O > " G J §& Ŗ" 4
> " G C g alist
ß g mht-args ß g result ß g size - ß g hash-proc ~ ¬ g
associator ~ ¬ g
real-table ~ ¬ g val ® Ü g filenamef srfi/srfi-69.scm
Č
Ź Ź Ė - Ź ~ Ģ
Ķ ® Õ ß
g nameg alist->hash-tableg
documentationf 4Convert ALIST to a hash table created with MHT-ARGS. C ROPRQ` OPPW@R h Ø - 1 3 4 §& ©" 4 5 §& ©" 4 5 §&
©" 4 55 & $ 456
6C g ht
g key g default-thunk-lst g result a g filenamef srfi/srfi-69.scm
Ž
į a į k ā n ć r ć s ä
{ ä å
å
g nameg hash-table-refg
documentationf
Lookup KEY in HT and answer the value, invoke DEFAULT-THUNK if KEY
isn't present, or signal an error if DEFAULT-THUNK isn't provided. C RQ` OP h` ] §& ©" 4 5 §& ©" 4 5 §&
©" 4 56 g ht
Y g key Y g default Y g filenamef srfi/srfi-69.scm
č
Y ė Y g nameg hash-table-ref/defaultg
documentationf LLookup KEY in HT and answer the value. Answer DEFAULT if KEY isn't
present. C!RS` OPPYč
hĄ @ ]4 §& ©" 4 5 §& ©" 4 5 §&
©" 4 55 & N §& ©" 4 5 §& Ŗ" 4 > " G " C 8 g ht
½ g key ½ g new-value ½ g handle Z » g val Æ g filenamef srfi/srfi-69.scm
ķ
ļ Z ļ a š e š h ń ń ń ø ņ
½ g nameg hash-table-set!g
documentationf Set KEY to NEW-VALUE in HT. C"R` OPMYčT
hą G ]" §& ©" 4 5 §& ©" 4 5 §&
©" 4 5 45$ f §& ©" 4 5 §& Ŗ" 4 > " G 4 > " G " C ? g ht
Ł g key Ł g h Q × g a Q × g real-ht Q × g val ² g filenamef srfi/srfi-69.scm
õ
Q ÷ X ų h ų k ś ś ś
³ ū
Ł g nameg hash-table-delete!g
documentationf Remove KEY's association in HT. C#RM` OP h` Ī ]4 §& ©" 4 5 §& ©" 4 5 §&
©" 4 55$ CCĘ g ht
` g key ` g filenamef srfi/srfi-69.scm
ž
\ ` g nameg hash-table-exists?g
documentationf "Return whether KEY is a key in HT. C$R` OPMN@RYč h ÷ - 1 3 §& ©" 4 5 §& ©" 4 5 §&
©" 4 5 45 $ 45" 4$ 445 5" 4 5> " G §& ©" 4
5 §& Ŗ" 4 > " G C ļ g ht
g key g modifier g default-thunk-lst g hash-proc X g
associator X g
real-table X g handle k g val × g filenamef srfi/srfi-69.scm
X
_ k s v
{
( }
~
' ( ' ¤ Ø $ ® ³
¾ × ×
g nameg hash-table-update!g
documentationf ŠModify HT's value at KEY by passing its value to MODIFIER and
setting it to the result thereof. Invoke DEFAULT-THUNK for the old
value if KEY isn't in HT, or signal an error if DEFAULT-THUNK is not
provided. C%R% h D ] L C < g filenamef srfi/srfi-69.scm
&
C h ^ ] O 6 V g ht
g key g modifier g default g filenamef srfi/srfi-69.scm
g nameg hash-table-update!/defaultg
documentationf Modify HT's value at KEY by passing its old value, or DEFAULT if it
doesn't have one, to MODIFIER, and setting it to the result thereof. C&R`Æ+ h } ]C u g k
g v g ans g filenamef srfi/srfi-69.scm
! ! , CY hH - ] §& ©" 4 5$
6 §& ©C 6 % g ht
A g filenamef srfi/srfi-69.scm
! * ! - " A g nameg hash-table-sizeg
documentationf Return the number of associations in HT. This is guaranteed O(1)
for tables where #:weak was #f or not specified at creation time. C'R+ h } ] Cu g k
g v g lst g filenamef srfi/srfi-69.scm
& & ( C h ø ] 6 ° g ht
g filenamef srfi/srfi-69.scm
$
& 6 & g nameg hash-table-keysg
documentationf Return a list of the keys in HT. C(R+h } ]Cu g k
g v g lst g filenamef srfi/srfi-69.scm
* * ( C h ¼ ] 6 “ g ht
g filenamef srfi/srfi-69.scm
(
* 6 * g nameg hash-table-valuesg
documentationf "Return a list of the values in HT. C)R+ h ] 4L > G C g k
g v g unspec g vals g filenamef srfi/srfi-69.scm
. / 5 / C h Ō ] O 6Ģ g ht
g proc g filenamef srfi/srfi-69.scm
,
. g nameg hash-table-walkg
documentationf 3Call PROC with each key and value as two arguments. C*RU`P h( Z ] §&
©" 4 56 R g ht
$ g f $ g knil $ g filenamef srfi/srfi-69.scm
3
7 $ 7 $ g nameg hash-table-foldg
documentationf ”Invoke (F KEY VAL PREV) for each KEY and VAL in HT, where PREV is
the result of the previous invocation, using KNIL as the first PREV.
Answer the final F result. C+R+V h ± ] 6 © g ht
g filenamef srfi/srfi-69.scm
9
; ! ; g nameg hash-table->alistg
documentationf Return an alist for HT. C,R` OP'ÆBUN h } ]LLL 6u g k
g v g ign g filenamef srfi/srfi-69.scm
B B # C hŲ § ]9 §& ©" 4 5 §& ©" 4 5 §&
©" 4 5 4 5 §& ©" 4 5 4455 4
O > " G §& ©" 4 5 Ø C g ht
Ų g h Q Ų g a Q Ų g real-ht Q Ų g size ^ Ų g weak { Ų g new-real-ht Ų g equivalence-function Ä Ų g filenamef srfi/srfi-69.scm
=
Q ? X @ ^ @ c @ - { @ ~ A A A @ B ¬ F Ä D Ų g nameg hash-table-copyg
documentationf Answer a copy of HT. C-R+" h } ]L 6 u g k
g v g ign g filenamef srfi/srfi-69.scm
L L C h ]4 O > " G C ’ g ht
g other-ht g filenamef srfi/srfi-69.scm
H
K g nameg hash-table-merge!g
documentationf `Add all key/value pairs from OTHER-HT to HT, overriding HT's
mappings where present. Return HT. C.RC g m
4 g rtd
g filenamef srfi/srfi-69.scm D
5 Z
: Z B Z & G Z
ü w
ż }
}
S
3ó
5ņ
78 ©
9Q ²
;Ž ¼
? Č
? Ü + ? Ü ? Ü
Aū Ž
C č
E« ķ
Gś õ
II ž
M
Oi
Q
S $
Tw (
V/ ,
WĶ 3
X¤ 9
[ņ =
]Ņ H
% ]Ō
C6 PK ! ķWÉ
srfi-98.gonu [µü¤ GOOF----LE-8-2.0ė ] 4 h ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-98¤ ¤ g filenameS¤
f srfi/srfi-98.scm¤ g importsS¤ g srfi-1¤
¤
¤ ¤ g exportsS¤ g get-environment-variable¤ g get-environment-variables¤ ¤ g set-current-module¤ ¤ ¤ g cond-expand-provide¤ g current-module¤ ¤ g getenv¤ g
filter-map¤ g string-index¤ g
string-length¤ g substring¤ g environ¤C 5h ]4
5 4 > " G 4i4i5 > " G iR h8 Ž ]4 =54 5 $ 4
54 5CC Ö g str
6 g pvt 6 g len 6 g filenamef srfi/srfi-98.scm
' ( ) ( * * ' * + . * : 2 * + 3 * 6 g nameg string->alist-entry C h x ] 45 6 p g filenamef srfi/srfi-98.scm
&
+ "
+
g nameg get-environment-variables CRC y g m
, g filenamef srfi/srfi-98.scm
- #
2 # : # & ? #
N %
&
C6 PK ! K»ņ\į4 į4
srfi-9/gnu.gonu [µü¤ GOOF----LE-8-2.0É4 ]R 4 hh ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-9¤ g gnu¤ ¤
g filenameS¤ f srfi/srfi-9/gnu.scm¤ g importsS¤
g srfi-1¤
¤ ¤ g system¤ g base¤ g ck¤ ¤ ¤ ¤ g exportsS¤ g set-record-type-printer!¤ g define-immutable-record-type¤ g set-field¤ g
set-fields¤ ¤ g set-current-module¤ ¤ ¤ g vtable-index-printer¤ g make-syntax-transformer¤ ! ¤ " ¤ #g macro¤ $g $sc-dispatch¤ %$ ¤ &$ ¤ 'g any¤ (g each-any¤ )'(¤ *')¤ +'*¤ ,'+¤ -g
syntax-object¤ .g @@¤ /g top¤ 0/ ¤ 1g ribcage¤ 2g dummy¤ 3g name¤ 4g ctor¤ 5g pred¤ 6g fields¤ 723456 ¤ 8g m-1e8bcc284-11e¤ 98/ ¤ :90000 ¤ ;f l-1e8bcc284-123¤ f l-1e8bcc284-126¤ ?f l-1e8bcc284-127¤ @;<=>? ¤ A17:@ ¤ B1 ¤ Cg x¤ DC ¤ E9 ¤ Ff l-1e8bcc284-120¤ GF ¤ H1DEG ¤ I0ABH ¤ Jg hygiene¤ KJ ¤ L-.IK ¤ M-IK ¤ N-IK ¤ OMN ¤ Pg %define-record-type¤ Q-PIK ¤ RLOQ ¤ S-IK ¤ T-IK ¤ Ug syntax-violation¤ VU ¤ WU ¤ Xf -source expression failed to match any pattern¤ Y''(' ¤ Zg %set-fields¤ [g s¤ \g getter¤ ]g expr¤ ^2[\] ¤ _g m-1e8bcc284-130¤ `_/ ¤ a`000 ¤ bf l-1e8bcc284-135¤ cf l-1e8bcc284-136¤ df l-1e8bcc284-137¤ ef l-1e8bcc284-138¤ fbcde ¤ g1^af ¤ h` ¤ if l-1e8bcc284-132¤ ji ¤ k1Dhj ¤ l0gBk ¤ m-ZlK ¤ n-lK ¤ o-lK ¤ p''¤ q'p¤ rg rest¤ s2[r ¤ tg m-1e8bcc284-140¤ ut/ ¤ vu00 ¤ wf l-1e8bcc284-145¤ xf l-1e8bcc284-146¤ yf l-1e8bcc284-147¤ zwxy ¤ {1svz ¤ |u ¤ }f l-1e8bcc284-142¤ ~} ¤ 1D|~ ¤ 0{B ¤ -ZK ¤ -K ¤ -K ¤ g each¤
p' ¤
¤ g fold¤ g find¤ g free-identifier=?¤ g delq¤ g collate-set-field-specs¤ g unknown-getter¤ g _¤ '' ¤ f unknown getter¤ g c-list¤ g free-id¤ g quote¤ 0 ¤ f l-1e8bcc284-175¤ ¤ 1D ¤ 0B ¤ -K ¤ ¤ ' ¤ ¤ '¤ ¤ g v¤ [ ¤ 00 ¤ ”f l-1e8bcc284-178¤ ¢f l-1e8bcc284-179¤ £”¢ ¤ ¤1 £ ¤ „0¤B ¤ ¦-„K ¤ §-„K ¤ Øg c-same-type-check¤ ©f l-1e8bcc284-17e¤ Ŗ© ¤ «1DŖ ¤ ¬0B« ¤ -¬K ¤ ® ¤ Æ®' ¤ °®( ¤ ±®) ¤ ²'Æ°±±Æ ¤ ³g every¤ “g format¤ µf \field paths ~a and ~a require one object to belong to two different record types (~a and ~a)¤ ¶g
syntax->datum¤ ·g append¤ ø· ¤ ¹· ¤ ŗg orig-form¤ »g path¤ ¼g getter0¤ ½g type0¤ ¾g type¤ æg
on-success¤ Ą[ŗ»¼\½¾æ ¤ Į00000000 ¤ Āf l-1e8bcc284-1a3¤ Ćf l-1e8bcc284-1a4¤ Äf l-1e8bcc284-1a5¤ Åf l-1e8bcc284-1a6¤ Ęf l-1e8bcc284-1a7¤ Ēf l-1e8bcc284-1a8¤ Čf l-1e8bcc284-1a9¤ Éf l-1e8bcc284-1aa¤ ŹĀĆÄÅĘĒČÉ ¤ Ė1ĄĮŹ ¤ Ģ0ĖB« ¤ Ķ-ĢK ¤ Ī-ĢK ¤ Ļf l-1e8bcc284-1b4¤ ŠĻ ¤ Ń1DŠ ¤ Ņ0BBŃ ¤ Ó-.ŅK ¤ Ō-ŅK ¤ Õ-ŅK ¤ ÖŌÕ ¤ ×g getter-type¤ Ų-×ŅK ¤ ŁÓÖŲ ¤ Śg getter-index¤ Ū-ŚŅK ¤ ÜÓÖŪ ¤ Żg
getter-copier¤ Ž-ŻŅK ¤ ßÓÖŽ ¤ ą''' ¤ į''(' ¤ ā' ¤ ć''('ā ¤ ä'¤ å(ä¤ ę'å¤ ē'ę¤ čē¤ ég map¤ źé ¤ ėé ¤ ģg car¤ ķ¼\ ¤ īf l-1e8bcc284-1ea¤ ļf l-1e8bcc284-1eb¤ šīļ ¤ ń1ķ š ¤ ņg collated-specs¤ óņ ¤ ōf l-1e8bcc284-1e2¤ õō ¤ ö1óõ ¤ ÷g check?¤ ųg path-so-far¤ łg struct-expr¤ śg head¤ ūg tail¤ ü÷ŗųłśū] ¤ ż0000000 ¤ žf l-1e8bcc284-1d4¤ ’f l-1e8bcc284-1d5¤ f l-1e8bcc284-1d6¤ f l-1e8bcc284-1d7¤ f l-1e8bcc284-1d8¤ f l-1e8bcc284-1d9¤ f l-1e8bcc284-1da¤ ž’ ¤ 1üż ¤ ׌Ż ¤ 000 ¤ f l-1e8bcc284-1b8¤
f l-1e8bcc284-1b9¤ f l-1e8bcc284-1ba¤
¤
1 ¤ 0BBńBBöB
BBŃ
¤ -K ¤ '' ¤ ¤ '¤ śū] ¤ f l-1e8bcc284-202¤ f l-1e8bcc284-203¤ f l-1e8bcc284-204¤ ¤ 1 ¤ g spec¤ ¤ f l-1e8bcc284-1fe¤ ¤ 1 ¤ g err¤ ¤ f l-1e8bcc284-1f0¤ ! ¤ "1 ! ¤ #0BBBB BBB"BBńBBöB
BBŃ ¤ $-#K ¤ %f l-1e8bcc284-20a¤ &% ¤ '1 & ¤ (0B'BBBB BBB"BBńBBöB
BBŃ ¤ )-Z(K ¤ *g
struct-ref¤ +-*(K ¤ ,-[(K ¤ --(K ¤ .-(K ¤ /g list¤ 0g t-1e8bcc284-1f2¤ 10 ¤ 2g m-1e8bcc284-1f3¤ 32/ ¤ 43 ¤ 5f l-1e8bcc284-1f7¤ 65 ¤ 71146 ¤ 80B7BBB"BBńBBöB
BBŃ ¤ 9-8K ¤ :-Ø8K ¤ ;-8K ¤ <-8K ¤ =g let¤ >-=8K ¤ ?-[8K ¤ @ā ¤ Aā@¤ B'A¤ C(B¤ D'C¤ E'D¤ FE¤ Gf duplicate field path¤ H(' ¤ IH ¤ J'I¤ K(J¤ L'K¤ M'L¤ NM¤ Of %one field path is a prefix of another¤ Pq¤ Qf invalid syntax¤C 5 h g ]4
5 4 > " G h Õ ] ŖC Ķ g type
g proc
g filenamef srfi/srfi-9/gnu.scm
"
g nameg set-record-type-printer!g
documentationf (Set PROC as the custom printer for TYPE. CR4"#&,RST h( w ]C o g dummy
# g name # g ctor # g pred # g fields # # CWX h( æ ] 4 5 $ @ 6 · g x
" g tmp " g filenamef srfi/srfi-9/gnu.scm
$
" g
macro-typeg syntax-rulesg patternsg nameg ctorg predg fieldsg ... C5R4"#&Ymno h b ] C Z g dummy
g s g getter g expr CWX h( · ] 4 5 $ @ 6 Æ g x
" g tmp " g filenamef srfi/srfi-9/gnu.scm
)
" g
macro-typeg syntax-rulesg patternsg sg getterg ... g expr C5R4"#&q h N ]C F g dummy
g s g rest CWX h( ” ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-9/gnu.scm
-
" g
macro-typeg syntax-rulesg patternsg sg rest C5R& h i ]L 6 a g tree
g filenamef srfi/srfi-9/gnu.scm
C D + D C hH ó ] 4 O 5 $ 45C C ė g head
A g tail A g expr A g result A g t A g filenamef srfi/srfi-9/gnu.scm
B C C ! G $ H % G ' I 0 G : J
A g nameg insert C h ] 6 ~ g head
g tail g expr g filenamef srfi/srfi-9/gnu.scm M M CWX h( ] 4 5 $ @ 6
g specs
" g tmp " g filenamef srfi/srfi-9/gnu.scm
A
" g nameg collate-set-field-specs CR4"#&U h ] 6 { g orig-form
g getter g filenamef srfi/srfi-9/gnu.scm S S % S CWX h( f ] 4 5 $ @ 6 ^ g x
" g tmp " g filenamef srfi/srfi-9/gnu.scm
P " C5R4"#&¦§ h 8 ] C 0 g s
g v CWX h( f ] 4 5 $ @ 6 ^ g x
" g tmp " g filenamef srfi/srfi-9/gnu.scm
V " C5R4"Ø#&²WX³U“µ¶¹ hX Ģ ]
4 L5 $ C444L 5544L L 554 54L55L6 Ä g t
V g g V g t V g filenamef srfi/srfi-9/gnu.scm
b c c e f g ! i 2 j C k J l R f V d
V C h ę , 3 O 6 Ž g s
g orig-form g path g getter0 g getter g type0 g type g
on-success g filenamef srfi/srfi-9/gnu.scm b CĶĪ h ø , 3 C ° g s
g orig-form g path g getter0 g getter g type0 g type g
on-success C h@ f ] 4 5 " 6$ 4?$ @"’’Ü"’’Ų ^ g x
9 g tmp 9 g filenamef srfi/srfi-9/gnu.scm
\ 9 C5ØR4"Z#ŁÜß&ą&į h m ]C e g check?
g orig-form g path-so-far g s Cć h | ]C t g check?
g orig-form g path-so-far g s g e Cčė h w ] C o g tmp-1e8bcc284-1e6
g tmp-1e8bcc284-1e5
g tmp-1e8bcc284-1e4
Céģ&)é&$)¹+,-.ė/
hX ] L L L4L 5L 4 5 C g head
U g tail U g expr U g tmp U g filenamef srfi/srfi-9/gnu.scm # U CWX h0 j ] 4 5 $ LLLL O @ 6 b g spec
- g tmp - g filenamef srfi/srfi-9/gnu.scm
- C&(9:;<ė; h 9 ]L L C 1 g tmp-1e8bcc284-1fb
C>? h 9 ]L L LL LL L 4LLO L5L LL L L C 1 g t-1e8bcc284-1f2
CWX hX · ]L 4LL LLO L5 45 $ LLLL LLO @6Æ g getter0
X g getter X g tmp X g tmp ! X g tmp , X g filenamef srfi/srfi-9/gnu.scm
! X CWX hX 5 ] 4455 45 45 $ LLL O @
6 - g check?
T g orig-form T g path-so-far T g struct-expr T g head T g tail T g expr T g collated-specs T g tmp T g tmp * T
g filenamef srfi/srfi-9/gnu.scm T CFUG h Ķ ]6 Å g check?
g orig-form g path-so-far g s g e g e* g filenamef srfi/srfi-9/gnu.scm ' CNUO h Ō ]6 Ģ g check?
g orig-form g path-so-far g s g getter g expr g filenamef srfi/srfi-9/gnu.scm ¤ ¤ ' ¤ CPUQ h ]6 g check?
g orig-form g rest g filenamef srfi/srfi-9/gnu.scm § § ' § CWX h Ł ]34L 5 $ @4L 5 $ @4L 5 $ O @4L 5 $ @4L
5 $ @4L 5 $
@L 6 Ń g getter-type
g getter-index g
getter-copier g tmp g tmp " g tmp 9 g tmp Y g tmp p g tmp CWX h8 ] 45 $ O @6 w g x
2 g tmp 2 g tmp 2 g filenamef srfi/srfi-9/gnu.scm
s t 2 C5ZRC _ g m
, g filenamef srfi/srfi-9/gnu.scm
(
@ A
~
C6 PK ! ß
n n
srfi-41.gonu [µü¤ GOOF----LE-8-2.0V ]¾ 4 hE ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-41¤ ¤ g filenameS¤
f srfi/srfi-41.scm¤ g importsS¤ g srfi-1¤
¤
¤ g srfi-8¤ ¤ ¤ g srfi-9¤ ¤ ¤ g gnu¤ ¤ ¤ g srfi-26¤ ¤ ¤ g ice-9¤ g match¤ ¤ ¤ ¤ g exportsS¤ !g stream-null¤ "g stream-cons¤ #g stream?¤ $g stream-null?¤ %g stream-pair?¤ &g
stream-car¤ 'g
stream-cdr¤ (g
stream-lambda¤ )g
define-stream¤ *g list->stream¤ +g port->stream¤ ,g stream¤ -g stream->list¤ .g
stream-append¤ /g
stream-concat¤ 0g stream-constant¤ 1g stream-drop¤ 2g stream-drop-while¤ 3g
stream-filter¤ 4g stream-fold¤ 5g stream-for-each¤ 6g stream-from¤ 7g stream-iterate¤ 8g
stream-length¤ 9g
stream-let¤ :g
stream-map¤ ;g stream-match¤ g
stream-ref¤ ?g stream-reverse¤ @g stream-scan¤ Ag stream-take¤ Bg stream-take-while¤ Cg
stream-unfold¤ Dg stream-unfolds¤ Eg
stream-zip¤ F!"#$%&'()*+,-./0123456789:;<=>?@ABCDE %¤ Gg set-current-module¤ HG ¤ IG ¤ Jg cond-expand-provide¤ Kg current-module¤ L ¤ Mg make-syntax-transformer¤ NM ¤ OM ¤ Pg must¤ Qg macro¤ Rg $sc-dispatch¤ SR ¤ TR ¤ Ug any¤ Vg each-any¤ WUV¤ XUW¤ YUX¤ ZUY¤ [UZ¤ \g
syntax-object¤ ]g let¤ ^g top¤ _^ ¤ `g ribcage¤ ag dummy¤ bg pred¤ cg obj¤ dg func¤ eg msg¤ fg args¤ gabcdef ¤ hg m-46961e513a-1¤ ih^ ¤ ji_____ ¤ kf l-46961e513a-6¤ lf l-46961e513a-7¤ mf l-46961e513a-8¤ nf l-46961e513a-9¤ of l-46961e513a-a¤ pf l-46961e513a-b¤ qklmnop ¤ r`gjq ¤ s` ¤ tg x¤ ut ¤ vi ¤ wf l-46961e513a-3¤ xw ¤ y`uvx ¤ z_rsy ¤ {g hygiene¤ |{ ¤ }\]z| ¤ ~g item¤ \~z| ¤ g unless¤ \z| ¤ ¤ g throw¤ \z| ¤
g quote¤ \
z| ¤ g wrong-type-arg¤ \z| ¤ ¤ g list¤ \z| ¤ ¤ ¤ g syntax-violation¤ ¤ ¤ f -source expression failed to match any pattern¤ g must-not¤ g m-46961e513a-14¤ ^ ¤ _____ ¤ f l-46961e513a-19¤ f l-46961e513a-1a¤ f l-46961e513a-1b¤ f l-46961e513a-1c¤ f l-46961e513a-1d¤ f l-46961e513a-1e¤ ¤ `g ¤ ¤ f l-46961e513a-16¤ ¤ ”`u ¤ ¢_s” ¤ £\]¢| ¤ ¤\~¢| ¤ „g when¤ ¦\„¢| ¤ §¤ ¤ Ø\¢| ¤ ©\
¢| ¤ Ŗ\¢| ¤ «©Ŗ ¤ ¬\¢| ¤ ¬¤ ¤ ® ¤ Æg
must-every¤ °g objs¤ ±ab°def ¤ ²g m-46961e513a-27¤ ³²^ ¤ “³_____ ¤ µf l-46961e513a-2c¤ ¶f l-46961e513a-2d¤ ·f l-46961e513a-2e¤ øf l-46961e513a-2f¤ ¹f l-46961e513a-30¤ ŗf l-46961e513a-31¤ »µ¶·ø¹ŗ ¤ ¼`±“» ¤ ½³ ¤ ¾f l-46961e513a-29¤ æ¾ ¤ Ą`u½æ ¤ Į_¼sĄ ¤ Ā\]Į| ¤ Ćg flunk¤ Ä\ĆĮ| ¤ Åg remove¤ Ę\ÅĮ| ¤ Ē\Į| ¤ Čg null?¤ É\ČĮ| ¤ ŹÉÄ ¤ Ė\Į| ¤ Ģ\
Į| ¤ Ķ\Į| ¤ ĪĢĶ ¤ Ļ\Į| ¤ ŠÄ ¤ Ńg first-value¤ ŅUU ¤ Óg receive¤ Ōg expr¤ ÕaŌ ¤ Ög m-46961e513a-3a¤ ×Ö^ ¤ Ų×_ ¤ Łf l-46961e513a-3f¤ Śf l-46961e513a-40¤ ŪŁŚ ¤ Ü`ÕŲŪ ¤ Ż× ¤ Žf l-46961e513a-3c¤ ߎ ¤ ą`uŻß ¤ į_Üsą ¤ ā\Óį| ¤ ćg first¤ ä\ćį| ¤ åg _¤ ę\åį| ¤ ēäę¤ čä ¤ ég second-value¤ źg m-46961e513a-44¤ ėź^ ¤ ģė_ ¤ ķf l-46961e513a-49¤ īf l-46961e513a-4a¤ ļķī ¤ š`Õģļ ¤ ńė ¤ ņf l-46961e513a-46¤ óņ ¤ ō`uńó ¤ õ_šsō ¤ ö\Óõ| ¤ ÷\ćõ| ¤ ųg second¤ ł\ųõ| ¤ ś\åõ| ¤ ūłś¤ ü÷ū¤ żł ¤ žg third-value¤ ’g m-46961e513a-4e¤ ’^ ¤ _ ¤ f l-46961e513a-53¤ f l-46961e513a-54¤ ¤ `Õ ¤ ¤ f l-46961e513a-50¤ ¤ `u ¤
_s ¤ \Ó
| ¤ \ć
| ¤
\ų
| ¤ g third¤ \
| ¤ \å
| ¤ ¤
¤ ¤ ¤ g define-syntax*¤ UU¤ V¤ U¤ g
define-syntax¤ g name¤ g body¤ af ¤ g m-46961e513a-57¤ ^ ¤ ___ ¤ f l-46961e513a-5c¤ !f l-46961e513a-5d¤ "f l-46961e513a-5e¤ #f l-46961e513a-5f¤ $ !"# ¤ %` $ ¤ & ¤ 'f l-46961e513a-59¤ (' ¤ )`u&( ¤ *_%s) ¤ +\*| ¤ ,g lambda*¤ -\,*| ¤ .UUU ¤ /g syntax¤ 0a/ ¤ 1 __ ¤ 2f l-46961e513a-66¤ 3f l-46961e513a-67¤ 4f l-46961e513a-68¤ 5234 ¤ 6`015 ¤ 7_6s) ¤ 8\7| ¤ 9g stream-promise¤ :g %make-stream-promise-procedure¤ ;g make-stream-promise¤ <åU ¤ =g lambda¤ >g m-46961e513a-70¤ ?>^ ¤ @g t-46961e513a-6f¤ A@ ¤ B? ¤ Cf l-46961e513a-75¤ DC ¤ E`ABD ¤ Ff l-46961e513a-72¤ GF ¤ H`uBG ¤ Ig shift¤ Jg proc-name¤ KJf ¤ L__ ¤ Mf l-1e8ba8b5a-2ba¤ Nf l-1e8ba8b5a-2bb¤ OMN ¤ P`KLO ¤ Qg key¤ Rg value¤ Sg formals¤ TQRS ¤ U_____ ¤ Vf l-1e8ba8b5a-2ad¤ Wf l-1e8ba8b5a-2ae¤ Xf l-1e8ba8b5a-2af¤ Yf l-1e8ba8b5a-2b0¤ Zf l-1e8ba8b5a-2b1¤ [VWXYZ ¤ \`TU[ ¤ ]g make-procedure-name¤ ^] ¤ __ ¤ `f l-1e8ba8b5a-29d¤ a` ¤ b`^_a ¤ c_ ¤ df l-1e8ba8b5a-29c¤ ed ¤ f`uce ¤ g?EsHIssssP\bf
¤ h{ ¤ i\=gh ¤ jg val¤ k_EsH ¤ l\jk| ¤ ml ¤ ng make-struct¤ og m-46961e513a-6d¤ po^ ¤ qg t-1e8ba8b5a-38d¤ rg t-1e8ba8b5a-38c¤ sg t-1e8ba8b5a-38b¤ tqrs ¤ ug m-1e8ba8b5a-38e¤ vu^ ¤ wvvv ¤ xf l-1e8ba8b5a-392¤ yf l-1e8ba8b5a-393¤ zf l-1e8ba8b5a-394¤ {xyz ¤ |`tw{ ¤ }g ctor-args¤ ~} ¤ f l-1e8ba8b5a-37a¤ ¤ `~c ¤ g ctor¤ g field¤ ¤
f l-1e8ba8b5a-376¤ f l-1e8ba8b5a-377¤
¤ `L ¤ g form¤ g type-name¤ g constructor-spec¤ g field-names¤ ¤ ____ ¤ f l-1e8ba8b5a-36b¤ f l-1e8ba8b5a-36c¤ f l-1e8ba8b5a-36d¤ f l-1e8ba8b5a-36e¤ ¤ ` ¤ g
record-layout¤ g functional-setters¤ g setters¤ g copier¤ g getters¤ g constructor¤ g getter-identifiers¤ g field-identifiers¤ ¤ ________ ¤ f l-1e8ba8b5a-343¤ f l-1e8ba8b5a-341¤ ”f l-1e8ba8b5a-33f¤ ¢f l-1e8ba8b5a-33d¤ £f l-1e8ba8b5a-33b¤ ¤f l-1e8ba8b5a-339¤ „f l-1e8ba8b5a-337¤ ¦f l-1e8ba8b5a-335¤ § ”¢£¤„¦ ¤ Ø`§ ¤ ©f l-1e8ba8b5a-334¤ Ŗ© ¤ «`ucŖ ¤ ¬pEsHIs|ssssØ« ¤ \n¬h ¤ ®\9k| ¤ Æ\
¬h ¤ °®Æl ¤ ±im° ¤ ²åV¤ ³ ¤ “ ¤ µf Wrong number of arguments¤ ¶g identifier?¤ ·¶ ¤ ø¶ ¤ ¹_sH ¤ ŗ\:¹| ¤ »g record-type-vtable¤ ¼» ¤ ½» ¤ ¾g pw¤ æg default-record-printer¤ Ąæ ¤ Įæ ¤ Āj ¤ Ćg set-struct-vtable-name!¤ ÄĆ ¤ ÅĆ ¤ Ęg vtable-offset-user¤ ĒĘ ¤ ČĘ ¤ Ég %stream-promise?-procedure¤ Źg stream-promise?¤ Ėg m-46961e513a-7d¤ ĢĖ^ ¤ Ķg t-46961e513a-7c¤ ĪĶ ¤ ĻĢ ¤ Šf l-46961e513a-82¤ ŃŠ ¤ Ņ`ĪĻŃ ¤ Óf l-46961e513a-7f¤ ŌÓ ¤ Õ`uĻŌ ¤ ÖĢŅsÕIssssP\bf
¤ ×\=Öh ¤ Ųg t-1e8ba8b5a-47e¤ Łg t-1e8ba8b5a-478¤ Śg t-1e8ba8b5a-479¤ Ūg t-1e8ba8b5a-47a¤ Üg t-1e8ba8b5a-47d¤ Żg t-1e8ba8b5a-47c¤ Žg t-1e8ba8b5a-47b¤ ßŲŁŚŪÜŻŽ ¤ ąg m-1e8ba8b5a-47f¤ įą^ ¤ āįįįįįįį ¤ ćf l-1e8ba8b5a-483¤ äf l-1e8ba8b5a-484¤ åf l-1e8ba8b5a-485¤ ęf l-1e8ba8b5a-486¤ ēf l-1e8ba8b5a-487¤ čf l-1e8ba8b5a-488¤ éf l-1e8ba8b5a-489¤ źćäåęēčé ¤ ė`ßāź ¤ ģg copier-id¤ ķģ ¤ īf l-1e8ba8b5a-476¤ ļī ¤ š`ķcļ ¤ ńg ctor-name¤ ņń ¤ óf l-1e8ba8b5a-46e¤ ōó ¤ õ`ņcō ¤ ö ¤ ÷f l-1e8ba8b5a-46c¤ ų÷ ¤ ł`öcų ¤ śg layout¤ ūś ¤ üf l-1e8ba8b5a-46a¤ żü ¤ ž`ūcż ¤ ’g
immutable?¤ ’ ¤ f l-1e8ba8b5a-468¤ ¤ ` c ¤ g field-count¤ ¤ f l-1e8ba8b5a-466¤ ¤ `c ¤ g
getter-ids¤
¤ f l-1e8ba8b5a-463¤ ¤
`
c ¤ g field-ids¤ ¤ f l-1e8ba8b5a-460¤ ¤ `c ¤ g predicate-name¤ g
field-spec¤ ’ ¤ ______ ¤ f l-1e8ba8b5a-453¤ f l-1e8ba8b5a-454¤ f l-1e8ba8b5a-455¤ f l-1e8ba8b5a-456¤ f l-1e8ba8b5a-457¤ f l-1e8ba8b5a-458¤ ¤ ` ¤ pŅsÕIsėssssšsõsłsžsss
s Ø« ¤ \c h ¤ ! ¤ "g and¤ #\" h ¤ $g struct?¤ %\$ h ¤ &% ¤ 'g eq?¤ (\' h ¤ )g
struct-vtable¤ *\) h ¤ +* ¤ ,_ŅsÕ ¤ -\9,| ¤ .(+- ¤ /#&. ¤ 0×!/ ¤ 1_sÕ ¤ 2\É1| ¤ 3g throw-bad-struct¤ 43 ¤ 53 ¤ 6g stream-promise-val¤ 7g %stream-promise-val-procedure¤ 8g free-id¤ 9g
%%on-error¤ :g m-46961e513a-89¤ ;:^ ¤ <; ¤ =f l-46961e513a-8b¤ >= ¤ ?`u<> ¤ @;s?IssssP\bf ¤ A\9@h ¤ B8A ¤ CBU ¤ Dg %%type¤ Eg t-1e8ba8b5a-3a5¤ Fg t-1e8ba8b5a-3a6¤ Gg t-1e8ba8b5a-3a7¤ Hg t-1e8ba8b5a-3a8¤ Ig t-1e8ba8b5a-3a9¤ Jg t-1e8ba8b5a-3aa¤ Kg t-1e8ba8b5a-3ab¤ LEFGHIJK ¤ Mg m-1e8ba8b5a-3ac¤ NM^ ¤ ONNNNNNN ¤ Pf l-1e8ba8b5a-3b0¤ Qf l-1e8ba8b5a-3b1¤ Rf l-1e8ba8b5a-3b2¤ Sf l-1e8ba8b5a-3b3¤ Tf l-1e8ba8b5a-3b4¤ Uf l-1e8ba8b5a-3b5¤ Vf l-1e8ba8b5a-3b6¤ WPQRSTUV ¤ X`LOW ¤ Yg getter¤ Zg index¤ [YZ ¤ \f l-1e8ba8b5a-3a3¤ ]f l-1e8ba8b5a-3a4¤ ^\] ¤ _`[L^ ¤ ` ģ ¤ a___ ¤ bf l-1e8ba8b5a-39e¤ cf l-1e8ba8b5a-39f¤ df l-1e8ba8b5a-3a0¤ ebcd ¤ f``ae ¤ gps?IsXsss_sfØ« ¤ h\Dgh ¤ i8h ¤ jåCiU ¤ kg ck¤ lg err¤ mg s¤ nlm ¤ o;; ¤ pf l-46961e513a-8e¤ qf l-46961e513a-8f¤ rpq ¤ s`nor ¤ t;ss?IssssP\bf
¤ u\kth ¤ v\
th ¤ w_ss? ¤ x\9w| ¤ yvx ¤ zy ¤ {g %%index¤ |\{gh ¤ }8| ¤ ~åC}U ¤ f l-46961e513a-93¤ f l-46961e513a-94¤ ¤ `no ¤ ;s?IssssP\bf
¤ \kh ¤
\
h ¤ s? ¤ \
| ¤
¤ ¤ g %%copier¤ \gh ¤ 8 ¤ åCU ¤ f l-46961e513a-98¤ f l-46961e513a-99¤ ¤ `no ¤ ;s?IssssP\bf
¤ \kh ¤ \
h ¤ g %%stream-promise-set-fields¤ _s? ¤ \| ¤ ¤ ¤ g t-46961e513a-88¤ ¤ f l-46961e513a-9d¤ ¤ `< ¤ ;s?IssssP\bf
¤ \=h ¤ ”ps?IsXsss_sfØ« ¤ ¢\m”h ¤ £¢ ¤ ¤g if¤ „\¤”h ¤ ¦\'”h ¤ §\)”h ¤ ا¢ ¤ ©_s? ¤ Ŗ\9©| ¤ «¦ØŖ ¤ ¬g
struct-ref¤ \¬”h ¤ ®s? ¤ Æ\
®| ¤ °¢Æ ¤ ±\3”h ¤ ²\
”h ¤ ³\6©| ¤ “²³ ¤ µ±¢“ ¤ ¶„«°µ ¤ · £¶ ¤ ø_s? ¤ ¹\7ø| ¤ ŗg each¤ »ŗŅ ¤ ¼U»¤ ½U¼¤ ¾U½¤ æg %%set-fields¤ Ąg check?¤ ĮaĄmYŌ ¤ Āg m-46961e513a-a4¤ ĆĀ^ ¤ ÄĆpppp ¤ Åf l-46961e513a-a9¤ Ęf l-46961e513a-aa¤ Ēf l-46961e513a-ab¤ Čf l-46961e513a-ac¤ Éf l-46961e513a-ad¤ ŹÅĘĒČÉ ¤ Ė`ĮÄŹ ¤ ĢĆ ¤ Ķf l-46961e513a-a6¤ ĪĶ ¤ Ļ`uĢĪ ¤ Šg t-1e8ba8b5a-3c4¤ Ńg t-1e8ba8b5a-3c6¤ Ņg t-1e8ba8b5a-3c5¤ ÓŠŃŅ ¤ Ōg m-1e8ba8b5a-3c7¤ ÕŌ^ ¤ ÖÕÕÕ ¤ ×f l-1e8ba8b5a-3cb¤ Ųf l-1e8ba8b5a-3cc¤ Łf l-1e8ba8b5a-3cd¤ Ś×ŲŁ ¤ Ū`ÓÖŚ ¤ Üf l-1e8ba8b5a-3c1¤ Żf l-1e8ba8b5a-3c2¤ Žf l-1e8ba8b5a-3c3¤ ßÜŻŽ ¤ ą``aß ¤ įpĖsĻIsŪsssąØ«
¤ ā\æįh ¤ ć_ĖsĻ ¤ ä\9ć| ¤ å\6ć| ¤ ęå ¤ ēg map¤ čē ¤ éē ¤ źg stream-promise-val-set!¤ ėg "%stream-promise-val-set!-procedure¤ ģåUU ¤ ķg m-46961e513a-b8¤ īķ^ ¤ ļg t-46961e513a-b6¤ šg t-46961e513a-b7¤ ńļš ¤ ņīī ¤ óf l-46961e513a-bd¤ ōf l-46961e513a-be¤ õóō ¤ ö`ńņõ ¤ ÷ī ¤ ųf l-46961e513a-ba¤ łų ¤ ś`u÷ł ¤ ūīösśIssssP\bf
¤ ü\=ūh ¤ żg t-1e8ba8b5a-3e6¤ žg t-1e8ba8b5a-3e7¤ ’żž ¤ g m-1e8ba8b5a-3e8¤ ^ ¤ ¤ f l-1e8ba8b5a-3ec¤ f l-1e8ba8b5a-3ed¤ ¤ `’ ¤ g setter¤ Y ¤ f l-1e8ba8b5a-3e0¤
f l-1e8ba8b5a-3e1¤ f l-1e8ba8b5a-3e2¤
¤
`a ¤ Z ¤ f l-1e8ba8b5a-3d7¤ f l-1e8ba8b5a-3d8¤ ¤ `L ¤ g field-specs¤ ¤ f l-1e8ba8b5a-3d3¤ f l-1e8ba8b5a-3d4¤ ¤ `L ¤ pösśIs
ssØ« ¤ \mh ¤ \jh ¤ ¤ \¤h ¤ \'h ¤ \)h ¤ ¤ !_ösś ¤ "\9!| ¤ # " ¤ $g struct-set!¤ %\$h ¤ &ösś ¤ '\
&| ¤ (%' ¤ )\3h ¤ *\
h ¤ +\ź!| ¤ ,*+ ¤ -), ¤ . #(- ¤ /ü . ¤ 0_sś ¤ 1\ė0| ¤ 2g stream-value¤ 3g %make-stream-value-procedure¤ 4g make-stream-value¤ 5g m-46961e513a-d9¤ 65^ ¤ 7g t-46961e513a-d7¤ 8g t-46961e513a-d8¤ 978 ¤ :66 ¤ ;f l-46961e513a-de¤ `9:= ¤ ?6 ¤ @f l-46961e513a-db¤ A@ ¤ B`u?A ¤ C6>sBIssssP\bf
¤ D\=Ch ¤ Eg tag¤ F_>sB ¤ G\EF| ¤ Hg proc¤ I\HF| ¤ JGI ¤ Kg m-46961e513a-d5¤ LK^ ¤ ML>sBIs|ssssØ« ¤ N\nMh ¤ O\2F| ¤ P\
Mh ¤ QNOPGI ¤ RDJQ ¤ S_sB ¤ T\3S| ¤ Ug pwpw¤ VEH ¤ Wg %stream-value?-procedure¤ Xg
stream-value?¤ Yg m-46961e513a-e8¤ ZY^ ¤ [g t-46961e513a-e7¤ \[ ¤ ]Z ¤ ^f l-46961e513a-ed¤ _^ ¤ ``\]_ ¤ af l-46961e513a-ea¤ ba ¤ c`u]b ¤ dZ`scIssssP\bf
¤ e\=dh ¤ fL`scIsėssssšsõsłsžsss
s Ø« ¤ g\cfh ¤ hg ¤ i\"fh ¤ j\$fh ¤ kjg ¤ l\'fh ¤ m\)fh ¤ nmg ¤ o_`sc ¤ p\2o| ¤ qlnp ¤ rikq ¤ sehr ¤ t_sc ¤ u\Wt| ¤ vg stream-value-tag¤ wg %stream-value-tag-procedure¤ xg m-46961e513a-f4¤ yx^ ¤ zy ¤ {f l-46961e513a-f6¤ |{ ¤ }`uz| ¤ ~ys}IssssP\bf ¤ \9~h ¤ 8 ¤ U ¤ Ls}IsXsss_sfØ« ¤ \Dh ¤ 8 ¤
åU ¤ yy ¤ f l-46961e513a-f9¤ f l-46961e513a-fa¤ ¤ `n ¤ ys}IssssP\bf
¤ \kh ¤ \
h ¤ _s} ¤ \2| ¤ ¤ ¤ \{h ¤ 8 ¤ åU ¤ f l-46961e513a-fe¤ f l-46961e513a-ff¤ ¤ `n ¤ ys}IssssP\bf
¤ \kh ¤ \
h ¤ s} ¤ \
| ¤ ¤ ¤ \h ¤ ”8 ¤ ¢å”U ¤ £f l-46961e513a-103¤ ¤f l-46961e513a-104¤ „£¤ ¤ ¦`n„ ¤ §y¦s}IssssP\bf
¤ Ø\k§h ¤ ©\
§h ¤ Ŗg %%stream-value-set-fields¤ «_¦s} ¤ ¬\Ŗ«| ¤ ©¬ ¤ ® ¤ Æg t-46961e513a-f3¤ °Æ ¤ ±f l-46961e513a-108¤ ²± ¤ ³`°z² ¤ “y³s}IssssP\bf
¤ µ\=“h ¤ ¶L³s}IsXsss_sfØ« ¤ ·\m¶h ¤ ø· ¤ ¹\¤¶h ¤ ŗ\'¶h ¤ »\)¶h ¤ ¼»· ¤ ½_³s} ¤ ¾\2½| ¤ æŗ¼¾ ¤ Ą\¬¶h ¤ Į³s} ¤ Ā\
Į| ¤ ĆĄ·Ā ¤ Ä\3¶h ¤ Å\
¶h ¤ Ę\v½| ¤ ĒÅĘ ¤ ČÄ·Ē ¤ ɹæĆČ ¤ ŹµøÉ ¤ Ė_s} ¤ Ģ\wĖ| ¤ Ķg stream-value-proc¤ Īg %stream-value-proc-procedure¤ Ļg m-46961e513a-10f¤ ŠĻ^ ¤ ŃŠ ¤ Ņf l-46961e513a-111¤ ÓŅ ¤ Ō`uŃÓ ¤ ÕŠsŌIssssP\bf ¤ Ö\9Õh ¤ ×8Ö ¤ Ų×U ¤ ŁLsŌIsXsss_sfØ« ¤ Ś\DŁh ¤ Ū8Ś ¤ ÜåŲŪU ¤ ŻŠŠ ¤ Žf l-46961e513a-114¤ ßf l-46961e513a-115¤ ąŽß ¤ į`nŻą ¤ āŠįsŌIssssP\bf
¤ ć\kāh ¤ ä\
āh ¤ å_įsŌ ¤ ę\2å| ¤ ēäę ¤ čē ¤ é\{Łh ¤ ź8é ¤ ėåŲźU ¤ ģf l-46961e513a-119¤ ķf l-46961e513a-11a¤ īģķ ¤ ļ`nŻī ¤ šŠļsŌIssssP\bf
¤ ń\kšh ¤ ņ\
šh ¤ óļsŌ ¤ ō\ ó| ¤ õņō ¤ öõ ¤ ÷\Łh ¤ ų8÷ ¤ łåŲųU ¤ śf l-46961e513a-11e¤ ūf l-46961e513a-11f¤ üśū ¤ ż`nŻü ¤ žŠżsŌIssssP\bf
¤ ’\kžh ¤ \
žh ¤ _żsŌ ¤ \Ŗ| ¤ ¤ ¤ g t-46961e513a-10e¤ ¤ f l-46961e513a-123¤ ¤ `Ń ¤
Š sŌIssssP\bf
¤ \=
h ¤ L sŌIsXsss_sfØ« ¤
\m h ¤
¤ \¤ h ¤ \' h ¤ \) h ¤
¤ _ sŌ ¤ \2| ¤ ¤ \¬ h ¤ sŌ ¤ \ | ¤
¤ \3 h ¤ \
h ¤ \Ķ| ¤ ¤
¤ ¤ ¤ !_sŌ ¤ "\Ī!| ¤ #g m-46961e513a-12a¤ $#^ ¤ %$LLLL ¤ &f l-46961e513a-12f¤ 'f l-46961e513a-130¤ (f l-46961e513a-131¤ )f l-46961e513a-132¤ *f l-46961e513a-133¤ +&'()* ¤ ,`Į%+ ¤ -$ ¤ .f l-46961e513a-12c¤ /. ¤ 0`u-/ ¤ 1L,s0IsŪsssąØ«
¤ 2\æ1h ¤ 3_,s0 ¤ 4\23| ¤ 5\v3| ¤ 6\Ķ3| ¤ 756 ¤ 8g stream-value-tag-set!¤ 9g %stream-value-tag-set!-procedure¤ :g m-46961e513a-13e¤ ;:^ ¤ <= ¤ ?;; ¤ @f l-46961e513a-143¤ Af l-46961e513a-144¤ B@A ¤ C`>?B ¤ D; ¤ Ef l-46961e513a-140¤ FE ¤ G`uDF ¤ H;CsGIssssP\bf
¤ I\=Hh ¤ JLCsGIs
ssØ« ¤ K\mJh ¤ L\jJh ¤ MKL ¤ N\¤Jh ¤ O\'Jh ¤ P\)Jh ¤ QPK ¤ R_CsG ¤ S\2R| ¤ TOQS ¤ U\$Jh ¤ VCsG ¤ W\
V| ¤ XUKWL ¤ Y\3Jh ¤ Z\
Jh ¤ [\8R| ¤ \Z[ ¤ ]YK\ ¤ ^NTX] ¤ _IM^ ¤ `_sG ¤ a\9`| ¤ bg stream-value-proc-set!¤ cg !%stream-value-proc-set!-procedure¤ dg m-46961e513a-14e¤ ed^ ¤ fg t-46961e513a-14c¤ gg t-46961e513a-14d¤ hfg ¤ iee ¤ jf l-46961e513a-153¤ kf l-46961e513a-154¤ ljk ¤ m`hil ¤ ne ¤ of l-46961e513a-150¤ po ¤ q`unp ¤ remsqIssssP\bf
¤ s\=rh ¤ tLmsqIs
ssØ« ¤ u\mth ¤ v\jth ¤ wuv ¤ x\¤th ¤ y\'th ¤ z\)th ¤ {zu ¤ |_msq ¤ }\2|| ¤ ~y{} ¤ \$th ¤ msq ¤ \ | ¤ uv ¤ \3th ¤ \
th ¤
\b|| ¤
¤ u ¤ x~ ¤ sw ¤ _sq ¤ \c| ¤ g stream-lazy¤ g exp¤ a ¤ g m-46961e513a-173¤ ^ ¤ _ ¤ f l-46961e513a-178¤ f l-46961e513a-179¤ ¤ ` ¤ ¤ f l-46961e513a-175¤ ¤ `u ¤ _s ¤ \;| ¤ \4| ¤ \
| ¤ g lazy¤ \| ¤ ¤ ”\=| ¤ ¢g eager¤ £g stream-eager¤ ¤g stream-delay¤ „g m-46961e513a-187¤ ¦„^ ¤ §¦_ ¤ Øf l-46961e513a-18c¤ ©f l-46961e513a-18d¤ ŖØ© ¤ «`§Ŗ ¤ ¬¦ ¤ f l-46961e513a-189¤ ® ¤ Æ`u¬® ¤ °_«sÆ ¤ ±\°| ¤ ²\£°| ¤ ³g stream-force¤ “g null¤ µg %stream-null¤ ¶g stream-pare¤ ·g %make-stream-pare-procedure¤ øg make-stream-pare¤ ¹g m-46961e513a-1d9¤ ŗ¹^ ¤ »g t-46961e513a-1d7¤ ¼g t-46961e513a-1d8¤ ½»¼ ¤ ¾ŗŗ ¤ æf l-46961e513a-1de¤ Ąf l-46961e513a-1df¤ ĮæĄ ¤ Ā`½¾Į ¤ Ćŗ ¤ Äf l-46961e513a-1db¤ ÅÄ ¤ Ę`uĆÅ ¤ ĒŗĀsĘIssssP\bf
¤ Č\=Ēh ¤ Ég kar¤ Ź_ĀsĘ ¤ Ė\ÉŹ| ¤ Ģg kdr¤ Ķ\ĢŹ| ¤ ĪĖĶ ¤ Ļg m-46961e513a-1d5¤ ŠĻ^ ¤ ŃŠĀsĘIs|ssssØ« ¤ Ņ\nŃh ¤ Ó\¶Ź| ¤ Ō\
Ńh ¤ ÕŅÓŌĖĶ ¤ ÖČĪÕ ¤ ×_sĘ ¤ Ų\·×| ¤ ŁÉĢ ¤ Śg %stream-pare?-procedure¤ Ūg stream-pare?¤ Üg m-46961e513a-1e8¤ ŻÜ^ ¤ Žg t-46961e513a-1e7¤ ߎ ¤ ąŻ ¤ įf l-46961e513a-1ed¤ āį ¤ ć`ßąā ¤ äf l-46961e513a-1ea¤ åä ¤ ę`uąå ¤ ēŻćsęIssssP\bf
¤ č\=ēh ¤ éŠćsęIsėssssšsõsłsžsss
s Ø« ¤ ź\céh ¤ ėź ¤ ģ\"éh ¤ ķ\$éh ¤ īķź ¤ ļ\'éh ¤ š\)éh ¤ ńšź ¤ ņ_ćsę ¤ ó\¶ņ| ¤ ōļńó ¤ õģīō ¤ öčėõ ¤ ÷_sę ¤ ų\Ś÷| ¤ łg
stream-kar¤ śg %stream-kar-procedure¤ ūg m-46961e513a-1f4¤ üū^ ¤ żü ¤ žf l-46961e513a-1f6¤ ’ž ¤ `uż’ ¤ üs IssssP\bf ¤ \9h ¤ 8 ¤ U ¤ Šs IsXsss_sfØ« ¤ \Dh ¤ 8 ¤ åU ¤ üü ¤
f l-46961e513a-1f9¤ f l-46961e513a-1fa¤
¤
`n ¤ ü
s IssssP\bf
¤ \kh ¤ \
h ¤ _
s ¤ \¶| ¤ ¤ ¤ \{h ¤ 8 ¤ åU ¤ f l-46961e513a-1fe¤ f l-46961e513a-1ff¤ ¤ `n ¤ üs IssssP\bf
¤ \k h ¤ \
h ¤ s ¤ \
| ¤ ! ¤ "! ¤ #\h ¤ $8# ¤ %å$U ¤ &f l-46961e513a-203¤ 'f l-46961e513a-204¤ (&' ¤ )`n ( ¤ *ü)s IssssP\bf
¤ +\k*h ¤ ,\
*h ¤ -g %%stream-pare-set-fields¤ ._)s ¤ /\-.| ¤ 0,/ ¤ 10 ¤ 2g t-46961e513a-1f3¤ 32 ¤ 4f l-46961e513a-208¤ 54 ¤ 6`3ż5 ¤ 7ü6s IssssP\bf
¤ 8\=7h ¤ 9Š6s IsXsss_sfØ« ¤ :\m9h ¤ ;: ¤ <\¤9h ¤ =\'9h ¤ >\)9h ¤ ?>: ¤ @_6s ¤ A\¶@| ¤ B=?A ¤ C\¬9h ¤ D6s ¤ E\
D| ¤ FC:E ¤ G\39h ¤ H\
9h ¤ I\ł@| ¤ JHI ¤ KG:J ¤ L<BFK ¤ M8;L ¤ N_s ¤ O\śN| ¤ Pg
stream-kdr¤ Qg %stream-kdr-procedure¤ Rg m-46961e513a-20f¤ SR^ ¤ TS ¤ Uf l-46961e513a-211¤ VU ¤ W`uTV ¤ XSsWIssssP\bf ¤ Y\9Xh ¤ Z8Y ¤ [ZU ¤ \ŠsWIsXsss_sfØ« ¤ ]\D\h ¤ ^8] ¤ _å[^U ¤ `SS ¤ af l-46961e513a-214¤ bf l-46961e513a-215¤ cab ¤ d`n`c ¤ eSdsWIssssP\bf
¤ f\keh ¤ g\
eh ¤ h_dsW ¤ i\¶h| ¤ jgi ¤ kj ¤ l\{\h ¤ m8l ¤ nå[mU ¤ of l-46961e513a-219¤ pf l-46961e513a-21a¤ qop ¤ r`n`q ¤ sSrsWIssssP\bf
¤ t\ksh ¤ u\
sh ¤ vrsW ¤ w\ v| ¤ xuw ¤ yx ¤ z\\h ¤ {8z ¤ |å[{U ¤ }f l-46961e513a-21e¤ ~f l-46961e513a-21f¤ }~ ¤ `n` ¤ SsWIssssP\bf
¤ \kh ¤ \
h ¤ _sW ¤
\-| ¤
¤ ¤ g t-46961e513a-20e¤ ¤ f l-46961e513a-223¤ ¤ `T ¤ SsWIssssP\bf
¤ \=h ¤ ŠsWIsXsss_sfØ« ¤ \mh ¤ ¤ \¤h ¤ \'h ¤ \)h ¤ ¤ _sW ¤ \¶| ¤ ¤ \¬h ¤ sW ¤ \ | ¤ ¤ \3h ¤ \
h ¤ \P| ¤ ¤ ” ¤ ¢” ¤ £¢ ¤ ¤_sW ¤ „\Q¤| ¤ ¦g m-46961e513a-22a¤ §¦^ ¤ اŠŠŠŠ ¤ ©f l-46961e513a-22f¤ Ŗf l-46961e513a-230¤ «f l-46961e513a-231¤ ¬f l-46961e513a-232¤ f l-46961e513a-233¤ ®©Ŗ«¬ ¤ Æ`ĮØ® ¤ °§ ¤ ±f l-46961e513a-22c¤ ²± ¤ ³`u°² ¤ “ŠÆs³IsŪsssąØ«
¤ µ\æ“h ¤ ¶_Æs³ ¤ ·\¶¶| ¤ ø\ł¶| ¤ ¹\P¶| ¤ ŗø¹ ¤ »g strm¤ ¼ac» ¤ ½g m-46961e513a-259¤ ¾½^ ¤ æ¾__ ¤ Ąf l-46961e513a-25e¤ Įf l-46961e513a-25f¤ Āf l-46961e513a-260¤ ĆĄĮĀ ¤ Ä`¼æĆ ¤ ž ¤ Ęf l-46961e513a-25b¤ ĒĘ ¤ Č`uÅĒ ¤ É_ÄsČ ¤ Ź\£É| ¤ Ė\øÉ| ¤ Ģ\¤É| ¤ Ķ\É| ¤ Īf
non-stream¤ Ļf null stream¤ Šg body0¤ Ńg body1¤ ŅaSŠŃ ¤ Óg m-46961e513a-28d¤ ŌÓ^ ¤ ÕŌ___ ¤ Öf l-46961e513a-292¤ ×f l-46961e513a-293¤ Ųf l-46961e513a-294¤ Łf l-46961e513a-295¤ ŚÖ×ŲŁ ¤ Ū`ŅÕŚ ¤ ÜŌ ¤ Żf l-46961e513a-28f¤ ŽŻ ¤ ß`uÜŽ ¤ ą_Ūsß ¤ į\=ą| ¤ ā\ą| ¤ ćg begin¤ ä\ćą| ¤ åg on-eagerS¤ ęå ¤ ēg on-lazyS¤ čē ¤ éęč ¤ źg stream-promise-visit¤ ėg set-record-type-printer!¤ ģg display¤ ķf #¤ ńW¤ ņUń¤ óg define¤ ōg formal¤ õaōŠŃ ¤ ög m-46961e513a-2cf¤ ÷ö^ ¤ ų÷____ ¤ łf l-46961e513a-2d4¤ śf l-46961e513a-2d5¤ ūf l-46961e513a-2d6¤ üf l-46961e513a-2d7¤ żf l-46961e513a-2d8¤ žłśūüż ¤ ’`õųž ¤ ÷ ¤ f l-46961e513a-2d1¤ ¤ `u ¤ _’s ¤ \ó| ¤ \(| ¤ »W¤ U¤ U¤
g letrec¤ g body2¤ aEjŃ ¤
g m-46961e513a-2e0¤
^ ¤ _____ ¤ f l-46961e513a-2e5¤ f l-46961e513a-2e6¤ f l-46961e513a-2e7¤ f l-46961e513a-2e8¤ f l-46961e513a-2e9¤ f l-46961e513a-2ea¤ ¤ ` ¤ ¤ f l-46961e513a-2e2¤ ¤ `u ¤ _s ¤ \
| ¤ \( | ¤ g proper-list?¤ g circular-list?¤ !f non-list argument¤ "g current-input-port¤ #g input-port?¤ $f non-input-port argument¤ %g read-char¤ &g eof-object?¤ 'U ¤ (a ¤ )g m-46961e513a-359¤ *)^ ¤ +* ¤ ,f l-46961e513a-35e¤ -, ¤ .`(+- ¤ /f l-46961e513a-35b¤ 0/ ¤ 1`u+0 ¤ 2_.s1 ¤ 3\!2| ¤ 4g y¤ 5at4 ¤ 6*__ ¤ 7f l-46961e513a-361¤ 8f l-46961e513a-362¤ 9f l-46961e513a-363¤ :789 ¤ ;`56: ¤ <_;s1 ¤ =\"<| ¤ >\,<| ¤ ?g % stream-fold-aux-procedure¤ @g stream-fold-aux¤ AåUUUU ¤ Bg syntax-parameterize¤ Cg m-46961e513a-36c¤ DC^ ¤ Eg t-46961e513a-368¤ Fg t-46961e513a-369¤ Gg t-46961e513a-36a¤ Hg t-46961e513a-36b¤ IEFGH ¤ JDDDD ¤ Kf l-46961e513a-371¤ Lf l-46961e513a-372¤ Mf l-46961e513a-373¤ Nf l-46961e513a-374¤ OKLMN ¤ P`IJO ¤ QD ¤ Rf l-46961e513a-36e¤ SR ¤ T`uQS ¤ Uf l-bde397a-1eaf¤ Vf l-bde397a-1eb0¤ WUV ¤ X`KLW ¤ YS ¤ Zf l-bde397a-1ea6¤ [f l-bde397a-1ea7¤ \f l-bde397a-1ea8¤ ]Z[\ ¤ ^`Ya] ¤ _g prefix¤ `]_ ¤ a__ ¤ bf l-bde397a-1e9a¤ cf l-bde397a-1e98¤ dbc ¤ e``ad ¤ ff l-bde397a-1e97¤ gf ¤ h`ucg ¤ iDPsTIssssX^eh
¤ j{ ¤ k\Bij ¤ l_PsT ¤ m\@l| ¤ ng identifier-syntax¤ o\nij ¤ p\?l| ¤ qop ¤ rmq ¤ sr ¤ t\=ij ¤ u\Hl| ¤ vg base¤ w\vl| ¤ x\»l| ¤ yg limit¤ z\yl| ¤ {uwxz ¤ |g do¤ }\|l| ¤ ~\jl| ¤ \"l| ¤ \&l| ¤ x ¤ u~ ¤ u ¤ ~w ¤
\'l| ¤
x ¤ xx ¤ g 1-¤ \l| ¤ z ¤ z ¤ zz ¤ ¤ g or¤ \l| ¤ g zero?¤ \l| ¤ z ¤ z ¤ \$l| ¤ x ¤ ¤ g values¤ \l| ¤ ~xz ¤ ¤ } ¤ t{ ¤ ks ¤ ¶ ¤ ¶ ¤ _sT ¤ ”\? | ¤ ¢f non-stream argument¤ £g integer?¤ ¤f non-integer count¤ „g exact?¤ ¦f
inexact count¤ §f negative count¤ Øg reverse!¤ ©g xcons¤ Ŗf !non-stream object in input stream¤ «g
circular-list¤ ¬g stream-do¤ U¤ ®ŗ ¤ ÆWV¤ °®Æ¤ ±å°¤ ²f l-46961e513a-478¤ ³² ¤ “`uc³ ¤ µg var-step¤ ¶g end¤ ·µ¶ ¤ øf l-46961e513a-475¤ ¹f l-46961e513a-473¤ ŗø¹ ¤ »`·aŗ ¤ ¼f l-46961e513a-472¤ ½¼ ¤ ¾`uc½ ¤ æ_s“»¾ ¤ Ą\¤æ| ¤ Į\æ| ¤ ĀĄĮĮ ¤ Ćg result¤ ÄĆ ¤ Åf l-46961e513a-47f¤ ĘÅ ¤ Ē`ÄcĘ ¤ Č_Ēs“»¾ ¤ É\ćČ| ¤ Źf bad step expression¤ ĖUV ¤ Ģg step¤ ĶĆĢ ¤ Īf l-46961e513a-49c¤ Ļf l-46961e513a-49d¤ ŠĪĻ ¤ Ń`ĶLŠ ¤ Ņg var¤ Óg init¤ Ōg test¤ ÕŅÓĢŌĆŌ ¤ Öf l-46961e513a-48d¤ ×f l-46961e513a-48e¤ Ųf l-46961e513a-48f¤ Łf l-46961e513a-490¤ Śf l-46961e513a-491¤ Ūf l-46961e513a-492¤ ÜÖ×ŲŁŚŪ ¤ Ż`ÕÜ ¤ Ž_sŃŻ»¾ ¤ ß\9Ž| ¤ ąg loop¤ į\ąŽ| ¤ ā\¤Ž| ¤ ć\ćŽ| ¤ äg append¤ åä ¤ ęä ¤ ēf non-integer argument¤ čf inexact argument¤ éf negative argument¤ źg
procedure?¤ ėf non-procedural argument¤ ģg apply¤ ķg number?¤ īf non-numeric starting number¤ ļf non-numeric step size¤ šg ?¤ ńf l-46961e513a-6c1¤ ņń ¤ ó`ucņ ¤ ōg make-guarded¤ õg make-matcher¤ öōõ ¤ ÷f l-46961e513a-6be¤ ųf l-46961e513a-6bc¤ ł÷ų ¤ ś`öał ¤ ūf l-46961e513a-6bb¤ üū ¤ ż`ucü ¤ ž_sóśż ¤ ’\šž| ¤ \$ž| ¤ ’ ¤ g next¤ ¤ f l-46961e513a-6d4¤ ¤ `c ¤ g rest¤ Ņ ¤ f l-46961e513a-6ce¤
f l-46961e513a-6cf¤
¤ `L ¤
_s sóśż ¤ \š
| ¤ g negate¤ \
| ¤ \$
| ¤ ¤ g =¤ \
| ¤ \&
| ¤ \'
| ¤ ŗ ¤ U¤ å¤ g generate-temporaries¤ 'å ¤ ŅU ¤ g guard¤ g fail¤ Ō ¤ f l-46961e513a-6df¤ !f l-46961e513a-6e0¤ "f l-46961e513a-6e1¤ # !" ¤ $` a# ¤ %t ¤ &f l-46961e513a-6d8¤ 'f l-46961e513a-6d9¤ (&' ¤ )`%L( ¤ *_$s)śż ¤ +\¤*| ¤ ,VV ¤ -g matcher¤ .-Ō ¤ /f l-46961e513a-6f5¤ 0f l-46961e513a-6f6¤ 1/0 ¤ 2`.L1 ¤ 3 ¤ 4f l-46961e513a-6f0¤ 54 ¤ 6`3c5 ¤ 7g strm-expr¤ 8g pat¤ 978Ō ¤ :f l-46961e513a-6e7¤ ;f l-46961e513a-6e8¤ `9a= ¤ ?_s2ss6>śż ¤ @\]?| ¤ A\»?| ¤ B\P?| ¤ C\#?| ¤ D\
?| ¤ E\;?| ¤ FDE ¤ G\¢?| ¤ HBCAFG ¤ I\ ?| ¤ Jg =>¤ K\J?| ¤ Lg
stream-of-aux¤ MaŌ ¤ Ng m-46961e513a-701¤ ON^ ¤ PO__ ¤ Qf l-46961e513a-706¤ Rf l-46961e513a-707¤ Sf l-46961e513a-708¤ TQRS ¤ U`MPT ¤ VO ¤ Wf l-46961e513a-703¤ XW ¤ Y`uVX ¤ Z_UsY ¤ [\LZ| ¤ \\!Z| ¤ ]aŌv ¤ ^g m-46961e513a-70d¤ _^^ ¤ `___ ¤ af l-46961e513a-712¤ bf l-46961e513a-713¤ cf l-46961e513a-714¤ dabc ¤ e`]`d ¤ f_ ¤ gf l-46961e513a-70f¤ hg ¤ i`ufh ¤ j_esi ¤ k\"j| ¤ lg in¤ m_si ¤ n\lm| ¤ o8n ¤ pUoU ¤ qpV¤ rUq¤ sUr¤ tUs¤ uaŌvŅ, ¤ v______ ¤ wf l-46961e513a-719¤ xf l-46961e513a-71a¤ yf l-46961e513a-71b¤ zf l-46961e513a-71c¤ {f l-46961e513a-71d¤ |f l-46961e513a-71e¤ }wxyz{| ¤ ~`uv} ¤ _~si ¤ \9| ¤ g recur¤ \| ¤ \»| ¤ \¤| ¤
\$| ¤
¤ \]| ¤ \&| ¤ ¤ ¤ \L| ¤ \'| ¤ ¤ ¤ g is¤ \m| ¤ 8 ¤ UU ¤ V¤ U¤ U¤ U¤ aŌvŅ ¤ f l-46961e513a-727¤ f l-46961e513a-728¤ f l-46961e513a-729¤ f l-46961e513a-72a¤ f l-46961e513a-72b¤ f l-46961e513a-72c¤ ¤ `v ¤ _si ¤ ”\] | ¤ ¢\L | ¤ £g pred?¤ ¤aŌv£ ¤ „_____ ¤ ¦f l-46961e513a-735¤ §f l-46961e513a-736¤ Øf l-46961e513a-737¤ ©f l-46961e513a-738¤ Ŗf l-46961e513a-739¤ «¦§Ø©Ŗ ¤ ¬`¤„« ¤ _¬si ¤ ®\¤| ¤ Æ\L| ¤ °f non-numeric ending number¤ ±g <¤ ²g >¤ ³f beyond end of stream¤ “f non-procedural mapper¤ µf non-procedural pred?¤ ¶f non-procedural generator¤ ·g list->vector¤ øg error¤ ¹ ø ¤ ŗ ø ¤ »f no matching pattern¤ ¼g
list-tabulate¤ ½g
vector-length¤C 5 hź ¤ ]4
F5 4I > " G 4Ji4Ki5 L> " G 4OPQT[} h0
] C} g dummy
0 g pred 0 g obj 0 g func 0 g msg 0 g args 0 0 C h( Ą ] 4 5 $ @ 6 ø g x
" g tmp " g filenamef srfi/srfi-41.scm
.
" g
macro-typeg syntax-rulesg patternsg predg objg funcg msgg argsg ... C5PR4OQT[£¤¦§Ø«¬® h0
] C} g dummy
0 g pred 0 g obj 0 g func 0 g msg 0 g args 0 0 C h( Ą ] 4 5 $ @ 6 ø g x
" g tmp " g filenamef srfi/srfi-41.scm
3
" g
macro-typeg syntax-rulesg patternsg predg objg funcg msgg argsg ... C5R4OÆQT[ĀÄĘĒŹĖĪĻŠ
h8 ] C ~ g dummy
4 g pred 4 g objs 4 g func 4 g msg 4 g args 4 4 C h( Į ] 4 5 $ @ 6 ¹ g x
" g tmp " g filenamef srfi/srfi-41.scm
8
" g
macro-typeg syntax-rulesg patternsg predg objsg funcg msgg argsg ... C5ÆR4OŃQTŅāēč h ? ]C 7 g dummy
g expr C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
=
" g
macro-typeg syntax-rulesg patternsg expr C5ŃR4OéQTŅöüż h ? ]C 7 g dummy
g expr C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
A
" g
macro-typeg syntax-rulesg patternsg expr C5éR4OžQTŅ h ? ]C 7 g dummy
g expr C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
E
" g
macro-typeg syntax-rulesg patternsg expr C5žR4OQT+- h c ] C [ g dummy
g name g args g body C.8 h S ] C K g dummy
g name g syntax C h@ Ś ]4 5 $ @4 5 $ @ 6 Ņ g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-41.scm
J 9 g
macro-typeg syntax-rulesg patternsg nameg argsg bodyg ... g nameg syntax C5R9 h ] Ø C w g val
g filenamef srfi/srfi-41.scm
q
g nameg %make-stream-promise-procedure C:R4O;QT<± h 7 ] C / g t-46961e513a-6f
C²“;µ h S ]L 6 K g a
g filenamef srfi/srfi-41.scm q
Cåø h C ] L 6; g filenamef srfi/srfi-41.scm q
Cŗ h ] C
C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 | g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-41.scm
q
n C5;R ½¾ Į9ĀØ 4 Å 9> " G Č:iŖ 9R9 h { ] ¦$ §CC s g obj
g filenamef srfi/srfi-41.scm
q
g nameg %stream-promise?-procedure CÉR4OŹQT<0 h 7 ] C / g t-46961e513a-7c
C²“Źµ h S ]L 6 K g a
g filenamef srfi/srfi-41.scm q
Cåø h C ] L 6; g filenamef srfi/srfi-41.scm q
C2 h ] C
C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 | g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-41.scm
q
n C5ŹR956 h | ] §&
©C 6t g s
g filenamef srfi/srfi-41.scm
q
g nameg %stream-promise-val-procedure C7R4O6QTjuz h : ]C 2 g err
g s C~ h : ]C 2 g err
g s C h : ]C 2 g err
g s C<· h 7 ] C / g t-46961e513a-88
C²“6µ h S ]L 6 K g a
g filenamef srfi/srfi-41.scm q
Cåø h C ] L 6; g filenamef srfi/srfi-41.scm q
C¹ h ] C
C hø Ą ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 ø g x
³ g tmp ³ g tmp " ³ g tmp 9 ³ g tmp P ³ g tmp g ³ g tmp ³ g filenamef srfi/srfi-41.scm
q
³ C56R4OQT¾āäęé h v ]45C n g dummy
g check? g s g getter g expr C h( ¾ ] 4 5 $ @ 6 ¶ g x
" g tmp " g filenamef srfi/srfi-41.scm
q
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5R95ź h ] §&
ŖC 6 g s
g val g filenamef srfi/srfi-41.scm
q
g nameg "%stream-promise-val-set!-procedure CėR4OźQTģ/ h T ] C L g t-46961e513a-b6
g t-46961e513a-b7 C²“źµ h S ]L 6 K g a
g filenamef srfi/srfi-41.scm q
Cåø h C ] L 6; g filenamef srfi/srfi-41.scm q
C1 h ] C
C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 | g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-41.scm
q
n C5źR2 h ] Ø C g tag
g proc g filenamef srfi/srfi-41.scm
t
g nameg %make-stream-value-procedure C3R4O4QTģR h T ] C L g t-46961e513a-d7
g t-46961e513a-d8 C²“4µ h S ]L 6 K g a
g filenamef srfi/srfi-41.scm t
Cåø h C ] L 6; g filenamef srfi/srfi-41.scm t
CT h ] C
C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 | g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-41.scm
t
n C54R ½U Į2VØ 4 Å 2> " G Č3iŖ 2R2 h y ] ¦$ §CC q g obj
g filenamef srfi/srfi-41.scm
t
g nameg %stream-value?-procedure CWR4OXQT<s h 7 ] C / g t-46961e513a-e7
C²“Xµ h S ]L 6 K g a
g filenamef srfi/srfi-41.scm t
Cåø h C ] L 6; g filenamef srfi/srfi-41.scm t
Cu h ] C
C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 | g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-41.scm
t
n C5XR25v h z ] §&
©C 6r g s
g filenamef srfi/srfi-41.scm
t
g nameg %stream-value-tag-procedure CwR4OvQT
h : ]C 2 g err
g s C h : ]C 2 g err
g s C¢Ø® h : ]C 2 g err
g s C<Ź h 7 ] C / g t-46961e513a-f3
C²“vµ h S ]L 6 K g a
g filenamef srfi/srfi-41.scm t
Cåø h C ] L 6; g filenamef srfi/srfi-41.scm t
CĢ h ] C
C hø Ą ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 ø g x
³ g tmp ³ g tmp " ³ g tmp 9 ³ g tmp P ³ g tmp g ³ g tmp ³ g filenamef srfi/srfi-41.scm
t
³ C5vR25Ķ h { ] §& ©C 6s g s
g filenamef srfi/srfi-41.scm
t
g nameg %stream-value-proc-procedure CĪR4OĶQTÜćč h : ]C 2 g err
g s Cėńö h : ]C 2 g err
g s Cł’ h : ]C 2 g err
g s C< h 8 ] C 0 g t-46961e513a-10e
C²“Ķµ h S ]L 6 K g a
g filenamef srfi/srfi-41.scm t
Cåø h C ] L 6; g filenamef srfi/srfi-41.scm t
C" h ] C
C hø Ą ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 ø g x
³ g tmp ³ g tmp " ³ g tmp 9 ³ g tmp P ³ g tmp g ³ g tmp ³ g filenamef srfi/srfi-41.scm
t
³ C5ĶR4OŖQT¾247é h v ]45C n g dummy
g check? g s g getter g expr C h( ¾ ] 4 5 $ @ 6 ¶ g x
" g tmp " g filenamef srfi/srfi-41.scm
t
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5ŖR258 h ] §&
ŖC 6 g s
g val g filenamef srfi/srfi-41.scm
t
g nameg %stream-value-tag-set!-procedure C9R4O8QTģ_ h V ] C N g t-46961e513a-13c
g t-46961e513a-13d C²“8µ h S ]L 6 K g a
g filenamef srfi/srfi-41.scm t
Cåø h C ] L 6; g filenamef srfi/srfi-41.scm t
Ca h ] C
C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 | g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-41.scm
t
n C58R25b h ] §& ŖC 6 g s
g val g filenamef srfi/srfi-41.scm
t
g nameg !%stream-value-proc-set!-procedure CcR4ObQTģ h V ] C N g t-46961e513a-14c
g t-46961e513a-14d C²“bµ h S ]L 6 K g a
g filenamef srfi/srfi-41.scm t
Cåø h C ] L 6; g filenamef srfi/srfi-41.scm t
C h ] C
C hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 | g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-41.scm
t
n C5bR4OQTŅ ” h > ] C 6 g dummy
g exp C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
x
" g
macro-typeg syntax-rulesg patternsg exp C5R2¢9 h ] Ø Ø C g x
g val g filenamef srfi/srfi-41.scm
{
| * | | g nameg stream-eager C£R4O¤QTŅ±² h > ] C 6 g dummy
g exp C h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
~
" g
macro-typeg syntax-rulesg patternsg exp C5¤R9562v¢Ķ8bź³
hĄ Ū ]) §&
©" 4 5 §&
©" 45 $ §& ©C6$ Y4§& ©" 455 §&
©" 4 5 §&
©" 45& " ō§&
©" 45 §&
©" 45 §&
Ŗ" 4 > " G §&
©" 45 §& ©" 45 §& Ŗ" 4
> " G §&
Ŗ" 4 > " G 6C Ó g promise
½ g content ½ g key 8 ½ g promise* » g content » g s Ū ś g val ś ' g s A ` g val ` g filenamef srfi/srfi-41.scm
!
8 F b c
; ¢ ½ Ä E Ū 3 ś * G A 4 ` » ½ g nameg stream-force C³RÉi#R,“µR4£iµi5!R9³µ h( ] ¦$ §& 4 5CCC g obj
! g filenamef srfi/srfi-41.scm
! g nameg stream-null? C$R¶ h ] Ø C g kar
g kdr g filenamef srfi/srfi-41.scm
g nameg %make-stream-pare-procedure C·R4OøQTģÖ h V ] C N g t-46961e513a-1d7
g t-46961e513a-1d8 C²“øµ h T ]L 6 L g a
g filenamef srfi/srfi-41.scm
Cåø h D ] L 6< g filenamef srfi/srfi-41.scm
CŲ h ] C
C hp
]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 } g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-41.scm
n C5øR ½U Į¶ŁØ 4 Å ¶> " G Č·iŖ ¶R¶ h y ] ¦$ §CC q g obj
g filenamef srfi/srfi-41.scm
g nameg %stream-pare?-procedure CŚR4OŪQT<ö h 8 ] C 0 g t-46961e513a-1e7
C²“Ūµ h T ]L 6 L g a
g filenamef srfi/srfi-41.scm
Cåø h D ] L 6< g filenamef srfi/srfi-41.scm
Cų h ] C
C hp
]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 } g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-41.scm
n C5ŪR¶5ł h u ] §&
©C 6m g s
g filenamef srfi/srfi-41.scm
g nameg %stream-kar-procedure CśR4OłQT h : ]C 2 g err
g s C " h : ]C 2 g err
g s C%+1 h : ]C 2 g err
g s C<M h 8 ] C 0 g t-46961e513a-1f3
C²“łµ h T ]L 6 L g a
g filenamef srfi/srfi-41.scm
Cåø h D ] L 6< g filenamef srfi/srfi-41.scm
CO h ] C
C hø Į ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 ¹ g x
³ g tmp ³ g tmp " ³ g tmp 9 ³ g tmp P ³ g tmp g ³ g tmp ³ g filenamef srfi/srfi-41.scm
³ C5łR¶5P h u ] §& ©C 6m g s
g filenamef srfi/srfi-41.scm
g nameg %stream-kdr-procedure CQR4OPQT_fk h : ]C 2 g err
g s Cnty h : ]C 2 g err
g s C| h : ]C 2 g err
g s C<£ h 8 ] C 0 g t-46961e513a-20e
C²“Pµ h T ]L 6 L g a
g filenamef srfi/srfi-41.scm
Cåø h D ] L 6< g filenamef srfi/srfi-41.scm
C„ h ] C
C hø Į ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 ¹ g x
³ g tmp ³ g tmp " ³ g tmp 9 ³ g tmp P ³ g tmp g ³ g tmp ³ g filenamef srfi/srfi-41.scm
³ C5PR4O-QT¾µ·ŗé h v ]45C n g dummy
g check? g s g getter g expr C h( æ ] 4 5 $ @ 6 · g x
" g tmp " g filenamef srfi/srfi-41.scm
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5-R9³¶ h0 « ] ¦$ $ §& 4 5 ¦$ §CCCC £ g obj
/ g obj + g filenamef srfi/srfi-41.scm
¢
£ £ £ £ + £ / g nameg stream-pair? C%R4O"QT.ŹĖĢĶ h P ] C H g dummy
g obj g strm C h( £ ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-41.scm
„
" g
macro-typeg syntax-rulesg patternsg objg strm C5"R#&Ī³Ļ¶ h ļ ] 4 5$ " 4 > " G 4 5 " "4 > " 'G " ¦$ §& " "’’Ę" "’’¾
©6 ē g strm
g pare 6 g filenamef srfi/srfi-41.scm
Ø
© © © ! © 0 Ŗ 6 Ŗ = « C « E « ( H « ¬ ¬ g nameg
stream-car C&R#'Ī³Ļ¶ h å ] 4 5$ " 4 > " G 4 5 " "4 > " 'G " ¦$ §& " "’’Ę" "’’¾ ©C Ż g strm
g pare 6 g filenamef srfi/srfi-41.scm
®
Æ Æ Æ ! Æ 0 ° 6 ° = ± C ± E ± ( H ± ²
g nameg
stream-cdr C'R4O(QTYįāä h h ] C ` g dummy
g formals g body0 g body1 C h( ø ] 4 5 $ @ 6 ° g x
" g tmp " g filenamef srfi/srfi-41.scm
“
" g
macro-typeg syntax-rulesg patternsg formalsg body0g body1g ... C5(Ré9562v¢Ķ
h° @ - / 0 3 # # H §&
©" 4 5KJ§& J
©" 4J5 $ J§& J ©" 4J56 $ J§& J ©" 4J56C8 g promise
° g on-eager ° g on-lazy ° g content & ° g key ^ ° g filenamef srfi/srfi-41.scm
·
+ ø G ¹ ^ ¹ n ŗ ŗ
¹ » ® »
°
g on-eagerS g on-lazyS g nameg stream-promise-visit CźR4ėi9iģķźåµīź¶5łåļ h c ] L 6 [ g t-46961e513a-2c2
g filenamef srfi/srfi-41.scm
Č )
Cēī h ] ]?L 6 U g _
g filenamef srfi/srfi-41.scm
É )
É 5
CP h ¢ ] & >L64 L> " G 4 §&
©" 4 5LO
LO > " G L §& ©" 4 56 g pare
g filenamef srfi/srfi-41.scm
Ā
Ć Ä Ę ' Ē , Ē 2 Z Ē g Ź " Ź
Cēģš h f ]L 6 ^ g _
g filenamef srfi/srfi-41.scm
Ė Ė '
Ė
C h q ] LL O L O 6 i g strm
g filenamef srfi/srfi-41.scm
Ą Į g nameg loop C h0 ]
4> " G O Q 6 g strm
, g port , g loop , g filenamef srfi/srfi-41.scm
¾ æ æ
æ Ą , C> " G 4O)QTņ h y ] C q g dummy
g name g formal g body0 g body1 C h( Ą ] 4 5 $ @ 6 ø g x
" g tmp " g filenamef srfi/srfi-41.scm
Ļ
" g
macro-typeg syntax-rulesg patternsg nameg formalg body0g body1g ... C5)R4O9QT h ] C g dummy
g tag g name g val g body1 g body2 C h( Š ] 4 5 $ @ 6 Č g x
" g tmp " g filenamef srfi/srfi-41.scm
Ņ
" g
macro-typeg syntax-rulesg patternsg tagg nameg val g ... g body1g body2g ... C59R *!2!£2£ h V ] L 6 N g filenamef srfi/srfi-41.scm
Ū Ū Ū
C9 h V ] LL 6 N g filenamef srfi/srfi-41.scm
Ū Ū ' Ū
C¶ hX ]L( CLO Ø Ø LL O Ø Ø Ø 6 g val
' g val
7 C g kar
C V g kdr C V g filenamef srfi/srfi-41.scm
Ł Ś Ū X
C9 h y ] L O Ø Ø C q g objs
g val g filenamef srfi/srfi-41.scm
Ł g nameg recur C h` × ] 4 5 $ " 4 5 $ " 4 > " G O Q 6 Ļ g objs
\ g t g recur N X g filenamef srfi/srfi-41.scm
Õ
× × × $ Ų / Ų 1 Ų ! 4 Ų N Ł
\ g nameg list->stream C*R"#+$2%&!£2£ h D ] L 6< g filenamef srfi/srfi-41.scm
ā
C9 h M ] L 6 E g filenamef srfi/srfi-41.scm
ā
ā
C¶ hh Ā ]4L 5 4 5$ C O Ø Ø LO Ø Ø
Ø 6 ŗ g c
d g val ) 5 g val C O g kar O b g kdr O b g filenamef srfi/srfi-41.scm
ß ą
ą į
į ā
d
C9 h h ]LL O Ø Ø C ` g val
g filenamef srfi/srfi-41.scm
ß
g nameg recur C h` ø - . , 3 # 45 4 5$ " 4 > " G O Q 6 ° g port
] g recur O [ g filenamef srfi/srfi-41.scm
Ż
Ż ( Ž / Ž 1 Ž ' 4 Ž O ß ]
g nameg port->stream C+R4O,QT'3 h - ]C % g dummy
CX=> h K ] C C g dummy
g x g y C h@ ø ]4 5 $ @4 5 $ @ 6 ° g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-41.scm
å 9 g
macro-typeg syntax-rulesg patternsg xg yg ... C5,R$&' h ]$" j$
" $ " 45 $ D $ 4 455" 45$ " "’’ "’’~ g proc
g base g strm g limit g val p g strm p g limit p g t , g filenamef srfi/srfi-41.scm
ė
ģ ļ ļ ļ # ļ % 0 ģ 8 š > ģ ? ģ D ģ % L ģ R ķ ^ ī a ī p ģ g nameg % stream-fold-aux-procedure C?R4O@QTA h ] C g t-46961e513a-368
g t-46961e513a-369 g t-46961e513a-36a g t-46961e513a-36b C²@µ h T ]L 6 L g a
g filenamef srfi/srfi-41.scm ė
Cå h D ] L 6< g filenamef srfi/srfi-41.scm ė
C” h ] C
C hp
]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 } g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-41.scm
ė
n C5@R-#-¢£¤„¦§Ø©$&' hh )
3 6]*45$ " 4 > " G $ 4 5$ " 4 > " G 4 5$ " 4
> " G
$ "4 > " G " "
" n$
" $ " 45 $ " H$ 4455" 45$ " "’’ "’’ G 6 ž g strm
g n
f g strm f g proc Ń T g val × E g strm × E g limit × E g t ę ż g first U d g _ U d
g filenamef srfi/srfi-41.scm
ó ō ó ö ( ö * ö % - ö E ÷ F ų [ ų ] ų % ` ų s ł ł ł # ł ¢ ś ® ś ° ś * ³ ś Ń ū F ū 2 T ū X ū f ū f g nameg stream->list C-RÅ#.¢!$£2£& h V ] 4L 56 N g filenamef srfi/srfi-41.scm
C9' h h ] L4L 5L6 ` g filenamef srfi/srfi-41.scm
( : "
C¶
hx ą ]L( CL 4 5$ L L6 O Ø Ø LL O Ø Ø Ø 6 Ų g strm
q g val 2 > g val P \ g kar \ o g kdr \ o g filenamef srfi/srfi-41.scm
’
) " " (
q
C29 h( ] O L Q Ø Ø C g strms
( g proc g val ( g filenamef srfi/srfi-41.scm
’ ( g nameg recur C hX Ä - 1 3 4 5 ( " 4 > " G O Q 6 ¼ g strms
R g flunk < g recur D N g filenamef srfi/srfi-41.scm
ż
ž % ž ' ž + * ž D ’ R
g nameg
stream-append C.R#/¢$!&#/Ŗ'£2£& h V ] 4L 56 N g filenamef srfi/srfi-41.scm
C9£2£' h V ] 4L 56 N g filenamef srfi/srfi-41.scm
" /
"
C9' h M ] L 6E g filenamef srfi/srfi-41.scm
" /
C¶ hX ]L4L O Ø Ø LO Ø Ø Ø 56 g val
! g val
/ ; g kar
; N g kdr ; N g filenamef srfi/srfi-41.scm
" R R
C¶ h° ]4L5$ C4L5 4 5$ " 4 > " G 4 5$ L 4 L56
O Ø Ø LL O Ø Ø Ø 6
g strm
« g val l x g val g kar © g kdr © g filenamef srfi/srfi-41.scm
/ 1 , 4
G Q
T ) \ " b
«
C29 h( ] O L Q Ø Ø C g strms
( g proc g val ( g filenamef srfi/srfi-41.scm
( g nameg recur C hH ° ] 4 5$ " 4 > " G O Q 6 Ø g strms
E g recur 7 A g filenamef srfi/srfi-41.scm
% 7 E g nameg
stream-concat C/R!*« h ) 3 C- 1 3 4 ?6 g objs
g filenamef srfi/srfi-41.scm
g nameg stream-constant C0R4O¬QT±TĀ h ] C
C' h . ] C & g result
CVÉ h . ] C& g result
CēT h ] L C
C' h ) ] C ! g e
C¬Ź h@ µ ]45 $ O @45 $ @L 6 g v
@ g s @ g tmp
@ g tmp & @ g filenamef srfi/srfi-41.scm
8 : & @ @ g nameg var-step CĖßįéāćę h0 @ ]4LL5L 4L 5 C8 g result
0 g step 0 0 C
hØ ] 45 $ 4?" H45 $ 4?" )45 $ 4?"
45 4
L O 5 4 5 $ O @6 g var
Ø g init Ø g step Ø g test Ø g result Ø g expr Ø g tmp
h g tmp & e g tmp B b g tmp { Ø g tmp Ø g filenamef srfi/srfi-41.scm i ' { & Ø C h( c ] 4 5 $ O @ 6 [ g x
' g tmp ' g filenamef srfi/srfi-41.scm
' C5¬R£1ē„čé#¢$'
h0 ± ]"4 5$ " 4 > " G 4 5$ " 4 > " G
$ "4 > " G " 4 5$ " 4
> " G " V$
" $ " 4 5 $ " 04 5$ " "’’Ŗ "’’ G C © g n
) g strm ) g val ·
g strm ·
g limit ·
g t Ę Ż g first ) g second ) g _ ) g filenamef srfi/srfi-41.scm
.
/ / / / 0 0 E 0 G 0 J 0 _ 1 k 1 m 1 % p 1 2 2 2 " ” 2 · 3 3 ) g nameg stream-drop C1Rź2ė#¢2$&' h8 „ ]4L5 $ "
4L4L55 $ LCL 4L56 g t
& g filenamef srfi/srfi-41.scm
8 9 9 9 + 9 2 " 9 + # 9 & * 8 0 8 8 8 8
C9 h x ] LL O Ø Ø C p g strm
g val g filenamef srfi/srfi-41.scm
8 g nameg loop C hx ź ]
4 5$ " 4 > " G 45$ " 4 > " G O Q 6 ā g pred?
u g strm u g loop e q g filenamef srfi/srfi-41.scm
5
6 6 6 , 6 0 7 E 7 G 7 ( J 7 e 8 u g nameg stream-drop-while C2Rź3ė#¢$!&£2£& h V ] 4L 56 N g filenamef srfi/srfi-41.scm
A A
A
C9' h V ] L4L 56 N g filenamef srfi/srfi-41.scm
A A 1
A *
C¶' hx × ]4L5$ C4L 4L55$ MLO Ø Ø LLO Ø Ø
Ø 6L4 L56Ļ g val
0 < g val
L X g kar
X k g kdr X k g filenamef srfi/srfi-41.scm
> ?
? @ @ @ ? & A p B x B x
C29 h0 ] O L L Q Ø Ø C g strm
+ g proc ! g val ! + g filenamef srfi/srfi-41.scm
> + g nameg recur C hx ē ]
4 5$ " 4 > " G 45$ " 4 > " G O Q 6 ß g pred?
u g strm u g recur e q g filenamef srfi/srfi-41.scm
;
< < < ( < 0 = E = G = $ J = e > u g nameg
stream-filter C3Rź4ė#¢$&' hč ` ]#4 5$ " 4 > " G 45$ " 4 > " G " n$
" $ " 45 $ " H $ 4 4 55" 4
5$ " "’’ "’’ G CX g proc
č g base č g strm č g val ` Ī g strm ` Ī g limit ` Ī g t o g first Ž č g _ Ž č g filenamef srfi/srfi-41.scm
D
E E E % E 0 F E F G F " J F ` G į G č g nameg stream-fold C4Rź5ė#¢$&'ÅUģē hX s ) 3 4 5$ " 4 > " G 45$ " 4 > " G " 145$ C4 4 5> " G 4
5 "’’Ļ "’’Ē- 1 3 4 5$ " 4 > " G 4 5 ( " 4 > " G " 94 5$ C4
4 5> " G 4
5 "’’Ē "’’æ k g proc
g strm g strm g g proc
© U g strm © U g rest © U g strms ® U g flunk ę g strms M g filenamef srfi/srfi-41.scm
J
L L ! L + $ L 7 M L M N M ( Q M g N h O r N u P x P P N N © J ® R ® R ± S Ę S Č S - Ė S Ž T ł T ū T 1 ž T U V ! U $ W ) W 6 W ? U M U % © U
g nameg stream-for-each C5Rķ6īļ2£2£ h D ] L 6< g filenamef srfi/srfi-41.scm
]
C9 h V ] LL L6 N g filenamef srfi/srfi-41.scm
] ] ]
C¶ hX ]LO Ø Ø LL LO Ø Ø Ø 6 g val
g val
0 < g kar
< O g kdr < O g filenamef srfi/srfi-41.scm
\ ] Q
C9 h z ] LL O Ø Ø C r g first
g val g filenamef srfi/srfi-41.scm
\ g nameg recur C h é - . , 3 # 4 5$ " 4 > " G 45$ " 4 > " G O Q 6į g first
g step g recur x g filenamef srfi/srfi-41.scm
Y
Z + Z - Z # 0 Z C [ X [ Z [ " ] [ x \ g nameg stream-from C6Rź7ė2£2£ h D ] L 6< g filenamef srfi/srfi-41.scm
b
C9 h V ] L4L L56 N g filenamef srfi/srfi-41.scm
b b
b
C¶ hX ]LO Ø Ø L LLO Ø Ø Ø 6 g val
g val
0 < g kar
< O g kdr < O g filenamef srfi/srfi-41.scm
a b Q
C9 h y ] LL O Ø Ø C q g base
g val g filenamef srfi/srfi-41.scm
a g nameg recur C hH Ć ]
4 5$ " 4 > " G O Q 6» g proc
H g base H g recur 8 D g filenamef srfi/srfi-41.scm
_
` ` ` ( ` 8 a H g nameg stream-iterate C7R#8¢$' hø J ]!4 5$ " 4 > " G ’" V$
" $ " 45 $ " 045$ " "’’Ŗ ’ "’’ G C B g strm
¶ g val 5 g strm 5 g limit 5 g t D [ g first “ g second “ g third “ g _ “ g filenamef srfi/srfi-41.scm
d
e e e $ e 5 f f µ f ¶ g nameg
stream-length C8Rź:ė#¢$!£2£& h h ] 4L4L 556 ` g filenamef srfi/srfi-41.scm
o
o o o o
C9' h V ] L4L 56 N g filenamef srfi/srfi-41.scm
o
p
p
C¶
h` ” ]4L5$ CLL O Ø Ø LLO Ø Ø Ø 6 g val
" . g val
> J g kar
J ] g kdr J ] g filenamef srfi/srfi-41.scm
m n
n o
_
C29 h0 ] O L L Q Ø Ø C g strm
+ g proc ! g val ! + g filenamef srfi/srfi-41.scm
m + g nameg recur CÅU$!£2£ē& h h ] 4L4L 5?6 ` g filenamef srfi/srfi-41.scm
w w w % w w
C9ē' h V ] L4L 56 N g filenamef srfi/srfi-41.scm
w x x
C¶ hh ” ]4L5$ CLL O Ø Ø LLO Ø Ø
Ø 6 g val
$ 0 g val
@ L g kar
L _ g kdr L _ g filenamef srfi/srfi-41.scm
u v v w a
C29 h0 ] O L L Q Ø Ø C g strms
+ g proc ! g val ! + g filenamef srfi/srfi-41.scm
u + g nameg recur C h ć ) v3 4 5$ " 4 > " G 45$ " 4 > " G O Q 6- 1 3 4 5$ " 4 > " G 4 5 ( " 4 > " G
O Q 6 Ū g proc
| g strm | g recur l x g proc
g strm
g rest
g strms g flunk Ā ģ g recur õ g filenamef srfi/srfi-41.scm
i
k k ! k & $ k 7 l L l N l # Q l l m
i r r s ¢ s ¤ s ( § s ŗ t Õ t × t , Ś t õ u |
g nameg
stream-map C:R4O;QT h ] C
C¶ h X ] 6P g rest
g filenamef srfi/srfi-41.scm ~ C h , ] C $ g rest
C¶ h i ] 6a g var
g rest g filenamef srfi/srfi-41.scm C h( ]
4L 5 C { g var
% g rest % g tmp % g filenamef srfi/srfi-41.scm % C
hp ]4 5 $ @ 4?$ @4 5 " 6$ 4?$ L O @"’’×"’’Ó g x
l g tmp
l g tmp l g tmp 9 l g filenamef srfi/srfi-41.scm
{ l g nameg make-matcher CTTVēTh , ] C $ g expr
C + h Q ] C I g guard
g expr g fail C hH Ä ] 45 $ @45 $ @6 ¼ g x
B g fail B g tmp B g tmp B g tmp + B g filenamef srfi/srfi-41.scm
B g nameg make-guarded CT,@AHIéK h z ] C r g tmp-46961e513a-6fb
g tmp-46961e513a-6fa g tmp-46961e513a-6f9 C h( A ]L 4L 5 C 9 g matcher
' g expr ' ' C hH ]4L L54L 5 45 $
LO @6 g fail
B g tmp B g tmp $ B g filenamef srfi/srfi-41.scm $ ! B C h8 « ]45 45 $ L O @6 £ g strm-expr
6 g pat 6 g expr 6 g tmp 6 g tmp 6 g filenamef srfi/srfi-41.scm 6 C h8 } ]O Q 4 5 $ O @ 6 u g x
4 g make-matcher
4 g tmp 4 g filenamef srfi/srfi-41.scm
z
4 C5;R4O<QTX[\ h Q ]C I g dummy
g expr g rest C h( « ] 4 5 $ @ 6 £ g x
" g tmp " g filenamef srfi/srfi-41.scm
" g
macro-typeg syntax-rulesg patternsg exprg restg ... C5 " G 45$ " 4 > " G $ 145$ " 4 > " G " $ " $ " ’
$ "
O Q 6 g first
õ g past õ g step õ g step Ā õ g lt? Ō õ g recur į ń g filenamef srfi/srfi-41.scm
£
¤ + ¤ - ¤ $ 0 ¤ C „ X „ Z „ # ] „ u ¦ v § § § % § ¬ Ø · Ø » Ø Ā Ø Č © Ģ © Ō Ø į Ŗ õ g nameg stream-range C=R#>¢£ē„čé1$³& hų l ]
4 5$ " 4 > " G 45$ " 4 > " G 45$ " 4 > " G
$ "4
> " G " 4 5 4 5$ "4
> " G " 6 d g strm
ń g n ń g res ¼ ń g filenamef srfi/srfi-41.scm
Æ
° ° ° ! ° 0 ± E ± G ± J ± ] ² r ² t ² w ² ³ ³ ³ $ ³ “ “
¼ “ æ µ Š µ Ņ µ + Õ µ ń ¶ ń g nameg
stream-ref C>R#?¢2$'£2£& h V ] 4L 56 N g filenamef srfi/srfi-41.scm
» » ,
»
C9 h D ] L C < g filenamef srfi/srfi-41.scm
»
C¶
hh ³ ]4L5$ LCL 4L54LO Ø Ø LO Ø Ø Ø 56 « g val
* 6 g val
D P g kar
P c g kdr P c g filenamef srfi/srfi-41.scm
ŗ ¼
ŗ ŗ » g ŗ g
C9 h ]
L O Ø Ø C g strm
g rev g val g filenamef srfi/srfi-41.scm
ŗ g nameg loop C! hH Æ ] 4 5$ " 4 > " G O Q 6 § g strm
G g loop 7 A g filenamef srfi/srfi-41.scm
ø
¹ ¹ ¹ % ¹ 7 ŗ G g nameg stream-reverse C?Rź@ė#¢$£2£ h D ] L 6< g filenamef srfi/srfi-41.scm
Ā
C9! h D ] C < g filenamef srfi/srfi-41.scm
Ā
C¶£ h D ] L 6< g filenamef srfi/srfi-41.scm
Ć
C&' h q ] L4L L4L554L56 i g filenamef srfi/srfi-41.scm
Ć Ć !
Ć , Ć ! Ä ! Ć
C hØ ń ]4L5$ FLO Ø Ø Ø Ø Ø 6 LO Ø Ø
LLLL O Ø Ø Ø 6 é g val
) g val
2 > g kar
> Q g kdr > Q g val
c o g val
g kar
¢ g kdr ¢ g filenamef srfi/srfi-41.scm
Į Ā
Ā Ā Y Ć ¤
C29 h0 ]
O L L Q Ø Ø C g base
. g strm . g proc
$ g val $ . g filenamef srfi/srfi-41.scm
Į . g nameg recur C hx ö ] 4 5$ " 4 > " G 45$ " 4 > " G O Q 6 ī g proc
w g base w g strm w g recur e q g filenamef srfi/srfi-41.scm
¾
æ æ æ % æ 0 Ą E Ą G Ą " J Ą e Į w g nameg stream-scan C@R#A¢£ē„čé$!£2£& h V ] 4L 56 N g filenamef srfi/srfi-41.scm
Ķ Ķ
Ķ
C9' h _ ] LL4L 56W g filenamef srfi/srfi-41.scm
Ķ Ķ . Ķ 5 Ķ '
C¶
hx Į ]L
$ " 4L5 $ CLO Ø Ø LLL O Ø Ø Ø 6 ¹ g t
g val
4 @ g val
R ^ g kar
^ q g kdr ^ q g filenamef srfi/srfi-41.scm
Ė Ģ Ģ Ģ ! Ģ * Ķ s
C29 h0 ]
O L Q Ø Ø C g n
+ g strm + g proc ! g val ! + g filenamef srfi/srfi-41.scm
Ė + g nameg recur C hŠ 3 ]
45$ " 4 > " G 4 5$ " 4 > " G 4 5$ " 4 > " G
$ "4
> " G " O Q 6 + g n
Ė g strm Ė g recur » Å g filenamef srfi/srfi-41.scm
Ę
Ē Ē Ē " Ē 0 Č E Č G Č J Č ] É r É t É w É Ź Ź Ź % Ź » Ė Ė g nameg stream-take CARźBė#¢$!&£2£& h V ] 4L 56 N g filenamef srfi/srfi-41.scm
Õ Õ
Õ
C9' h V ] L4L 56 N g filenamef srfi/srfi-41.scm
Õ Õ 1
Õ *
C¶ hp Å ]4L5$ C4L 4L55$ MLO Ø Ø LLO Ø Ø
Ø 6C½ g val
0 < g val
L X g kar
X k g kdr X k g filenamef srfi/srfi-41.scm
Ņ Ó
Ó Ō Ō Ō Ó & Õ p
C29 h0 ] O L L Q Ø Ø C g strm
+ g proc ! g val ! + g filenamef srfi/srfi-41.scm
Ņ + g nameg recur C hx ė ]
4 5$ " 4 > " G 45$ " 4 > " G O Q 6 ć g pred?
u g strm u g recur e q g filenamef srfi/srfi-41.scm
Ļ
Š Š Š , Š 0 Ń E Ń G Ń ( J Ń e Ņ u g nameg stream-take-while CBRźC“µ¶£2£ h V ] 4LL 56 N g filenamef srfi/srfi-41.scm
Ž Ž
Ž
C9 h V ] L4L L56 N g filenamef srfi/srfi-41.scm
Ž Ž *
Ž #
C¶! hh ” ]4LL5$ QLL O Ø Ø LLLO Ø Ø Ø 6C g val
+ g val
= I g kar
I \ g kdr I \ g filenamef srfi/srfi-41.scm
Ü Ż
Ż Ž a
C29 h8 ] O L LL LQ Ø Ø C g base
1 g proc ' g val ' 1 g filenamef srfi/srfi-41.scm
Ü 1 g nameg recur C hØ > ] 4 5$ " 4 > " G 45$ " 4 > " G 45$ " 4 > " G O Q 66 g mapper
Ø g pred? Ø g generator Ø g base Ø g recur ¤ g filenamef srfi/srfi-41.scm
Ų
Ł Ł Ł ) Ł 0 Ś E Ś G Ś ( J Ś ] Ū r Ū t Ū , w Ū Ü Ø g nameg
stream-unfold CCR£2£· h V ] 4L 56 N g filenamef srfi/srfi-41.scm
ä ä
ä
C9 h M ] LL 6E g filenamef srfi/srfi-41.scm
ä ä (
C¶ hh Č ] 4LL> G O Ø Ø L O Ø Ø Ø 6 Ą g next
a g items
a g val $ 0 g val @ L g kar L _ g kdr L _ g filenamef srfi/srfi-41.scm
ā ć ć ä a
C29 h0 ] O L LQ Ø Ø C g seed
+ g proc ! g val ! + g filenamef srfi/srfi-41.scm
ā + g nameg generator-stream C&!2' h V ] L4L5L 6 N g filenamef srfi/srfi-41.scm
ē ē . ē
C9.*' h V ] L4L5L 6 N g filenamef srfi/srfi-41.scm
ē ē . ē
Cŗ »££ h D ] L 6< g filenamef srfi/srfi-41.scm
ė
C2' h V ] L4L5L 6 N g filenamef srfi/srfi-41.scm
ē ē . ē
C9 h _ ]LLL O Ø Ø C W g val
g filenamef srfi/srfi-41.scm
ė ē
C¶ hč 0 ] H 4L5L£K J ( CJ & LLL O Ø Ø C" =J $ )4J 5 LLL O Ø Ø 64
J 56 J $ _J ( TJ
O Ø Ø L LLO Ø Ø Ø 6"’’]"’’Y( g head
č g val 3 = g val c o g w ą g val ” g val æ Ė g kar Ė Ž g kdr Ė Ž g filenamef srfi/srfi-41.scm
å ę ę č % ē D č K ģ & U ē q ģ r č ė č
C29 h0 Æ ]
O L Q Ø Ø C § g genstrm
+ g index + g proc ! g val ! + g filenamef srfi/srfi-41.scm
å + g nameg make-result-stream CźDė¼½& h c ]LL 6 [ g t-46961e513a-9f4
g filenamef srfi/srfi-41.scm
ń !
C hx A ]O O Q Q 4 5$ " 4 > " G 45 44 4
55 O 5E 9 g gen
q g seed q g generator-stream q g make-result-stream q g genstrm S q g filenamef srfi/srfi-41.scm
į
ī 5 ī 7 ī ' : ī M ļ S ļ V š Y š ! \ š 0 d š ! o š q š q g nameg stream-unfolds CDRÅ#E¢U$!£2£ē& h V ] 4L 56 N g filenamef srfi/srfi-41.scm
ų
ų ų
C9ē' h V ] L4L 56 N g filenamef srfi/srfi-41.scm
ų
ų 5 ų .
C¶ h` ” ]4L5$ CLO Ø Ø LL O Ø Ø
Ø 6 g val
" . g val
> J g kar
J ] g kdr J ] g filenamef srfi/srfi-41.scm
ö ÷
÷ ų
_
C29 h( ] O L Q Ø Ø C g strms
( g proc g val ( g filenamef srfi/srfi-41.scm
ö ( g nameg recur C h` ų - 1 3 45 ( " 4 > " G O Q 6 š g strm
Y g rest Y g strms Y g flunk C g recur K U g filenamef srfi/srfi-41.scm
ó
ō ō õ , õ . õ * 1 õ K ö Y
g nameg
stream-zip CERC g m
, g rtd
d g rtd
d g rtd
Aķ B g filenamef srfi/srfi-41.scm
- *
2 * : * & ? *
Ć q
£ t
8_ {
=
=
= = # = =
= =”
>~
?2
Qę ¢
U Ø
V ®
ZT ·
ZU ½
fr Õ
jk Ż
nb ė
tń ņ
yw ż
»
.
- 5
ź ;
[ D
^ I
| Y
6 _
”] d
Ŗ h
æ £
Ā Æ
Ę ø
Ģ ¾
Ńn Ę
Ö Ļ
Ū Ų
ę į
ź{ ó
1 ź}
C6 PK ! Ē&>ż >ż
srfi-43.gonu [µü¤ GOOF----LE-8-2.0&ż ]t 4 hµ ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-43¤ ¤ g filenameS¤
f srfi/srfi-43.scm¤ g importsS¤ g srfi-1¤
¤
¤ g srfi-8¤ ¤ ¤ ¤ g exportsS¤ g
vector-empty?¤ g vector=¤ g
vector-unfold¤ g vector-unfold-right¤ g vector-reverse-copy¤ g
vector-append¤ g vector-concatenate¤ g vector-fold¤ g vector-fold-right¤ g
vector-map¤ g vector-map!¤ g vector-for-each¤ g vector-count¤ !g vector-index¤ "g vector-index-right¤ #g vector-skip¤ $g vector-skip-right¤ %g vector-binary-search¤ &g
vector-any¤ 'g vector-every¤ (g vector-swap!¤ )g vector-reverse!¤ *g vector-copy!¤ +g vector-reverse-copy!¤ ,g reverse-vector->list¤ -g reverse-list->vector¤ . !"#$%&'()*+,- ¤ /g
re-exportsS¤ 0g make-vector¤ 1g vector¤ 2g vector?¤ 3g
vector-ref¤ 4g vector-set!¤ 5g
vector-length¤ 6012345 ¤ 7g replacementsS¤ 8g vector-copy¤ 9g vector-fill!¤ :g list->vector¤ ;g vector->list¤ <89:; ¤ =g set-current-module¤ >= ¤ ?= ¤ @g cond-expand-provide¤ Ag current-module¤ B ¤ Cg error¤ Dg
string-append¤ Eg symbol->string¤ Ff : ¤ Gg
error-from¤ Hg make-syntax-transformer¤ IH ¤ JH ¤ Kg assert-nonneg-exact-integer¤ Lg macro¤ Mg $sc-dispatch¤ NM ¤ OM ¤ Pg any¤ QPPP ¤ Rg
syntax-object¤ Sg unless¤ Tg top¤ UT ¤ Vg ribcage¤ Wg dummy¤ Xg k¤ Yg who¤ ZWXY ¤ [g m-46961e513c-7¤ \[T ¤ ]\UU ¤ ^f l-46961e513c-c¤ _f l-46961e513c-d¤ `f l-46961e513c-e¤ a^_` ¤ bVZ]a ¤ cV ¤ dg x¤ ed ¤ f\ ¤ gf l-46961e513c-9¤ hg ¤ iVefh ¤ jUbci ¤ kg hygiene¤ lk ¤ mRSjl ¤ ng and¤ oRnjl ¤ pg exact-integer?¤ qRpjl ¤ rg not¤ sRrjl ¤ tg negative?¤ uRtjl ¤ vRGjl ¤ wf (expected non-negative exact integer, got¤ xRwjl ¤ yg syntax-violation¤ zy ¤ {y ¤ |f -source expression failed to match any pattern¤ }g assert-procedure¤ ~g f¤ W~Y ¤ g m-46961e513c-13¤ T ¤ UU ¤ f l-46961e513c-18¤ f l-46961e513c-19¤
f l-46961e513c-1a¤
¤ V ¤ ¤ f l-46961e513c-15¤ ¤ Ve ¤ Uc ¤ RSl ¤ g
procedure?¤ Rl ¤ RGl ¤ f expected procedure, got¤ Rl ¤ g
assert-vector¤ g v¤ WY ¤ g m-46961e513c-1f¤ T ¤ UU ¤ f l-46961e513c-24¤ f l-46961e513c-25¤ f l-46961e513c-26¤ ¤ V ¤ ¤ f l-46961e513c-21¤ ¤ ”Ve ¤ ¢Uc” ¤ £RS¢l ¤ ¤R2¢l ¤ „RG¢l ¤ ¦f expected vector, got¤ §R¦¢l ¤ Øg assert-valid-index¤ ©PPPP ¤ Ŗg i¤ «g len¤ ¬WŖ«Y ¤ g m-46961e513c-2b¤ ®T ¤ Æ®UUU ¤ °f l-46961e513c-30¤ ±f l-46961e513c-31¤ ²f l-46961e513c-32¤ ³f l-46961e513c-33¤ “°±²³ ¤ µV¬Æ“ ¤ ¶® ¤ ·f l-46961e513c-2d¤ ø· ¤ ¹Ve¶ø ¤ ŗUµc¹ ¤ »RSŗl ¤ ¼Rnŗl ¤ ½Rpŗl ¤ ¾g <=¤ æR¾ŗl ¤ ĄR
ŗl ¤ ĮRGŗl ¤ Āf
invalid index¤ ĆRĀŗl ¤ Äg assert-valid-start¤ Åg start¤ ĘWÅ«Y ¤ Ēg m-46961e513c-39¤ ČĒT ¤ ÉČUUU ¤ Źf l-46961e513c-3e¤ Ėf l-46961e513c-3f¤ Ģf l-46961e513c-40¤ Ķf l-46961e513c-41¤ ĪŹĖĢĶ ¤ ĻVĘÉĪ ¤ ŠČ ¤ Ńf l-46961e513c-3b¤ ŅŃ ¤ ÓVeŠŅ ¤ ŌUĻcÓ ¤ ÕRSŌl ¤ ÖRnŌl ¤ ×RpŌl ¤ ŲR¾Ōl ¤ ŁR
Ōl ¤ ŚRGŌl ¤ Ūf invalid start index¤ ÜRŪŌl ¤ Żg assert-valid-range¤ ŽPPPPP ¤ ßg end¤ ąWÅß«Y ¤ įg m-46961e513c-47¤ āįT ¤ ćāUUUU ¤ äf l-46961e513c-4c¤ åf l-46961e513c-4d¤ ęf l-46961e513c-4e¤ ēf l-46961e513c-4f¤ čf l-46961e513c-50¤ éäåęēč ¤ źVąćé ¤ ėā ¤ ģf l-46961e513c-49¤ ķģ ¤ īVeėķ ¤ ļUźcī ¤ šRSļl ¤ ńRnļl ¤ ņRpļl ¤ óR¾ļl ¤ ōR
ļl ¤ õRGļl ¤ öf invalid index range¤ ÷Röļl ¤ ųg assert-vectors¤ łg let¤ śg vs¤ ūWśY ¤ üg m-46961e513c-57¤ żüT ¤ žżUU ¤ ’f l-46961e513c-5c¤ f l-46961e513c-5d¤ f l-46961e513c-5e¤ ’ ¤ Vūž ¤ ż ¤ f l-46961e513c-59¤ ¤ Ve ¤ Uc ¤ Rłl ¤
g loop¤ R
l ¤ RSl ¤
g null?¤ R
l ¤ Rl ¤ g car¤ Rl ¤ g cdr¤ Rl ¤ g min¤ g
min-length¤ g reverse!¤ g vectors-ref¤ g apply¤ 8 ¤ 8 ¤ g guile-vector-copy¤ g vector-move-left!¤ g %vector-concatenate¤ 9 ¤ 9 ¤ g %vector-reverse!¤ !g define-vector-copier!¤ "g define¤ #g copy!¤ $g docstring¤ %g
inner-proc¤ &W#$% ¤ 'g m-46961e513c-5ea¤ ('T ¤ )(UUU ¤ *f l-46961e513c-5ef¤ +f l-46961e513c-5f0¤ ,f l-46961e513c-5f1¤ -f l-46961e513c-5f2¤ .*+,- ¤ /V&). ¤ 0( ¤ 1f l-46961e513c-5ec¤ 21 ¤ 3Ve02 ¤ 4U/c3 ¤ 5R"4l ¤ 6Rł4l ¤ 7g %copy!¤ 8R74l ¤ 9g case-lambda¤ :R94l ¤ ;g target¤ <R;4l ¤ =g tstart¤ >R=4l ¤ ?g source¤ @R?4l ¤ A<>@ ¤ BR4l ¤ Cg quote¤ DRC4l ¤ Eg tlen¤ FRE4l ¤ GR54l ¤ HG< ¤ IFH ¤ Jg slen¤ KRJ4l ¤ LG@ ¤ MKL ¤ NIM ¤ ORÄ4l ¤ PRS4l ¤ Qg >=¤ RRQ4l ¤ Sg +¤ TRS4l ¤ UT>K ¤ VRFU ¤ WRG4l ¤ Xf would write past end of target¤ YRX4l ¤ ZY ¤ [R
4l ¤ \8<>@[K ¤ ]\ ¤ ^g sstart¤ _R^4l ¤ `<>@_ ¤ ag -¤ bRa4l ¤ cbK_ ¤ dT>c ¤ eRFd ¤ f8<>@_K ¤ gf ¤ hg send¤ iRh4l ¤ j<>@_i ¤ kRŻ4l ¤ lbi_ ¤ mT>l ¤ nRFm ¤ o8<>@_i ¤ po ¤ qg vector-move-right!¤ rg length¤ sg drop¤C 5 hhŽ l ]4
./67<5 4? > " G 4@i4Ai5 B> " G CDEF h ¹ - 1 3 44 55@ ± g who
g msg g args g filenamef srfi/srfi-43.scm
+
- - - - - ,
g nameg
error-from CGR4JKLOQmoqsuvx h0 M ] C E g dummy
+ g k + g who + + C{| h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-43.scm
0
" g
macro-typeg syntax-rulesg patternsg kg who C5KR4J}LOQ h M ] C E g dummy
g f g who C{| h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-43.scm
5
" g
macro-typeg syntax-rulesg patternsg fg who C5}R4JLOQ£¤„§ h M ] C E g dummy
g v g who C{| h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-43.scm
9
" g
macro-typeg syntax-rulesg patternsg vg who C5R4JØLO©»¼½æĄĮĆ h0 ^ ] C V g dummy
* g i * g len * g who * * C{| h( ¦ ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-43.scm
=
" g
macro-typeg syntax-rulesg patternsg ig leng who C5ØR4JÄLO©ÕÖ×ŲŁŚÜ h0 b ] C Z g dummy
* g start * g len * g who * * C{| h( Ŗ ] 4 5 $ @ 6 ¢ g x
" g tmp " g filenamef srfi/srfi-43.scm
B
" g
macro-typeg syntax-rulesg patternsg startg leng who C5ÄR4JŻLOŽšńņóōõ÷ h8 s ] C k g dummy
5 g start 5 g end 5 g len 5 g who 5 5 C{| h( ± ] 4 5 $ @ 6 © g x
" g tmp " g filenamef srfi/srfi-43.scm
G
" g
macro-typeg syntax-rulesg patternsg startg endg leng who C5ŻR4JųLOQ h@ N ] C F g dummy
: g vs : g who : : C{| h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-43.scm
M
" g
macro-typeg syntax-rulesg patternsg vsg who C5ųR5 h@ ]" #( C4455 "’’Ż 4 5 "’’Ź ż g vs
< g vs ) g result ) g filenamef srfi/srfi-43.scm
U
V X Z Z Z # Z 2 Z # ! Z ) Z ) V , V - W 2 W $ 4 W < V < g nameg
min-length CR h8 ņ ]" ( 6£ "’’ą "’’Õ ź g vs
1 g i 1 g vs & g xs & g filenamef srfi/srfi-43.scm
]
^ _ ` a a ) a a & a & ^ ) ^ 1 ^
1 g nameg vectors-ref CRGwp0 h8 Ļ ] L$ C4L > G L ¤ "’’Ķ Ē g i
5 g seed 5 g x 5 g seed 5 g filenamef srfi/srfi-43.scm
{ | | } } ( ~
+ 5
5 g nameg loop C h@ ’ ] L$ C4L > G L ¤ "’’Å ÷ g i
= g seed1 = g seed2 = g x = g seed1 = g seed2 = g filenamef srfi/srfi-43.scm
$ ,
/ =
= g nameg loop C h8 Ł ] L$ C4L > G L ¤ "’’Ė Ń g i
7 g seeds 7 g x 7 g seeds 7 g filenamef srfi/srfi-43.scm
*
- 7
7 g nameg loop C h s ) ¢3 4 5$ " 4 > " G " 4> " *G " #45$
$ "’’Ļ" " "’’Ć45 " "$ " 4 5¤ "’’Ž
"’’×C) ”3 4 5$ " 4 > " G " 4> " *G " #45$
$ "’’Ļ" " "’’Ć45 O Q 4
> " G C) £3 4 5$ " 4 > " G " 4> " *G " #45$
$ "’’Ļ" " "’’Ć45 O Q 4
> " G C- 1 3 4 5$ " 4 > " G " 4> " *G " #45$
$ "’’Ļ" " "’’Ć45
O Q 4
> " G C k g f
Ø g len Ø g v v Ø g i | g f
± O g len ± O g seed ± O g v O g loop + L g f
X ų g len X ų g seed1 X ų g seed2 X ų g v Å ų g loop Ņ õ g f
g len g seeds g v n g loop { g filenamef srfi/srfi-43.scm
e
o o o 3 p 7 p & 9 p p q v q | r s
s t t u u r ± e ² x Å x Ē x Ū y ß y & į y z z + { X e Y l n & æ Å Ņ
e + / & 1 h n { 0 Ø ± O X ų
g nameg
vector-unfoldg
documentationf É(vector-unfold f length initial-seed ...) -> vector
The fundamental vector constructor. Create a vector whose length is
LENGTH and iterates across each index k from 0 up to LENGTH - 1,
applying F at each iteration to the current index and current seeds, in
that order, to receive n + 1 values: the element to put in the kth slot
of the new vector, and n new seeds for the next iteration. It is an
error for the number of seeds to vary between iterations. CRGwp0 h8 × ]
$ C4L > G L ¤ "’’Ī Ļ g i
4 g seed 4 g x 4 g seed 4 g filenamef srfi/srfi-43.scm
®
®
Æ Æ ' °
* ± 4 ±
4 g nameg loop C h@ ’ ]
$ C4L > G L ¤ "’’Ę ÷ g i
< g seed1 < g seed2 < g x < g seed1 < g seed2 < g filenamef srfi/srfi-43.scm
· ø
ø
¹ $ ¹ + ŗ
. » < »
< g nameg loop C h8 Ł ]
$ C4L > G L ¤ "’’Ģ Ń g i
6 g seeds 6 g x 6 g seeds 6 g filenamef srfi/srfi-43.scm
Į Ā
Ā
Ć Ć ) Ä
, Å 6 Å
6 g nameg loop C h ķ ) £3 4 5$ " 4 > " G " 4> " *G " #45$
$ "’’Ļ" " "’’Ć45 " !
$ " 4 5¤ "’’ß "’’ÖC) 3 4 5$ " 4 > " G " 4> " *G " #45$
$ "’’Ļ" " "’’Ć45 O Q 4> " G C) ¢3 4 5$ " 4 > " G " 4> " *G " #45$
$ "’’Ļ" " "’’Ć45 O Q 4> " G C- 1 3 4 5$ " 4 > " G " 4> " *G " #45$
$ "’’Ļ" " "’’Ć45
O Q 4> " G C å g f
© g len © g v v © g i | g f
² O g len ² O g seed ² O g v O g loop + L g f
X ÷ g len X ÷ g seed1 X ÷ g seed2 X ÷ g v Å ÷ g loop Ń ō g f
g len g seeds g v m g loop y g filenamef srfi/srfi-43.scm
” ” ” 3 ¢ 7 ¢ & 9 ¢ p £ v £ | ¤ „ „ ¦ ¦ § § ¤ ¤ ¦ ¤ ² ³ Ŗ Ę Ŗ Č Ŗ Ü « ą « & ā « ¬ ¬ + : A X Y “ l “ n “ µ µ & µ æ ¶ Å ¶ Ń · ą · é · ¾ ¾ ¾ * æ . æ & 0 æ g Ą m Ą y Į Į Į 8 © ² O X ÷
g nameg vector-unfold-rightg
documentationf Ń(vector-unfold-right f length initial-seed ...) -> vector
The fundamental vector constructor. Create a vector whose length is
LENGTH and iterates across each index k from LENGTH - 1 down to 0,
applying F at each iteration to the current index and current seeds, in
that order, to receive n + 1 values: the element to put in the kth slot
of the new vector, and n new seeds for the next iteration. It is an
error for the number of seeds to vary between iterations. CR RG8¦5Ūp0 ö h ° ) 3 6) §3 $ " 4 > " G 4 5 " 4> " ;G " 445$ %
$ $ " "’’Ā" "’’ŗ" "’’²45 4
> " G C- . , 3 # $ " 4 > " G 4 5 " 4
> " NG " G45$ 845$ %
$ $ " "’’µ" "’’" "’’„" "’’45 4 4 5
> " G C Ø g v
g v
¼ g start ¼ g len @ ¼ g result ¼ g v
Č g start Č g end Č g fill Č g len ł g result n g filenamef srfi/srfi-43.scm
Ģ Ö Ģ Ų ( Ų * Ų : Ł @ Ł G Ś K Ś $ M Ś Ū Ū ! Ū Ū ” Ü Č Ģ Ō ß į ß ć ß ó ą ł ą ä ä ä ! ä į į & į ' ā 1 į 5 ć 9 į > ć c å j å ! n å n å q ę x ę # ę * ¼ Č g nameg vector-copyg
documentationf Ō(vector-copy vec [start [end [fill]]]) -> vector
Allocate a new vector whose length is END - START and fills it with
elements from vec, taking elements from vec starting at index START
and stopping at index END. START defaults to 0 and END defaults to
the value of (vector-length VEC). If END extends beyond the length of
VEC, the slots in the new vector that obviously cannot be filled by
elements from VEC are filled with FILL, whose default value is
unspecified. C8R0 hP e ]# 45 " %$ " $ £¤ "’’Ū
"’’ĻC ] g vec
J g start J g end J g len J g result J g i ; g j ; g filenamef srfi/srfi-43.scm
ė ģ ģ
ķ ģ ī ļ ļ
, š " - š 0 ń 3 ń ; ń ; ī ? ī G ī J g nameg %vector-reverse-copy C G¦5Ūpö hx ) 23 $ " 4 > " G L
4 56) 3 $ " 4 > " G 4 5 " 4> " ;G " 445$ %
$ $ " "’’Ā" "’’ŗ" "’’²L 6] $ " 4 > " G 4 5 " 4> " _G " X45$ I45$ 6
$ &$ $ " "’’¬" "’’¤" "’’" "’’" "’’L 6 g vec
8 g vec
A Ē g start A Ē g len i Ē g vec
É u g start É u g end É u g len ń u g filenamef srfi/srfi-43.scm
ó ū ū ū 0 ü # 8 ü A ó D ž Q ž S ž c ’ i ’ p t ' v Ē É ó Ģ Ł Ū ė ń ų ü + ž u 8 A Ē É u g
documentationf 1(vector-reverse-copy vec [start [end]]) -> vector
Allocate a new vector whose length is END - START and fills it with
elements from vec, taking elements from vec in reverse order starting
at index START and stopping at index END. START defaults to 0 and END
defaults to the value of (vector-length VEC). C O R50 h Ł ]1" "( " !45 "’’Ž
"’’Ó 45 " G( " H 45 4
> " G "’’æ
"’’®C Ń g vs
g vs ( g len ( g
result-len 3 g result < g vs B g pos B g v O g len X g filenamef srfi/srfi-43.scm
! 1 @ 1 * ( ( 3 6
< B H O O R X [
v {
g nameg %vector-concatenate C RG¦50 h0 ² ) 3 C) *3 $ " 4 > " G 6) 3 $ " 4 > " G $ " 4> " G 4 545 45 4
> " G 4
> " G C- 1 3 " 6( " 4$ " 4> " G "’’Ź "’’Ā 6 Ŗ g v
= g v1
F Ś g v2 F Ś g len1 Ś g len2 Ś g result ¤ Ś g vs
ć + g vs ē g filenamef srfi/srfi-43.scm
& ( = F I ! V ! X ! j " w " y " # $ # % ¢ % " ¤ % ¤ % § & æ ' ć ē * * * + +
= F Ś ć +
g nameg
vector-appendg
documentationf (vector-append vec ...) -> vector
Return a newly allocated vector that contains all elements in order
from the subsequent locations in VEC ... CRG¦ hP J ] " 6( " 4$ " 4> " G "’’Ź "’’Ā 6 B g vs
J g vs < g filenamef srfi/srfi-43.scm
-
2 ! 2 # 2 J 3 J g nameg vector-concatenateg
documentationf (vector-concatenate list-of-vectors) -> vector
Append each vector in LIST-OF-VECTORS. Equivalent to:
(apply vector-append LIST-OF-VECTORS) CRG¦5 h0 ] $ " 4 > " G 4 5
C g vec
- g filenamef srfi/srfi-43.scm
5
9 9 9 $ : + : - g nameg
vector-empty?g
documentationf d(vector-empty? vec) -> boolean
Return true if VEC is empty, i.e. its length is 0, and false if not. CR5 h( Ņ ]( C 45$
"’’ÜCŹ g len
( g vs ( g filenamef srfi/srfi-43.scm
> ? ?
@ @ % @ @ @
A # & A ( g nameg all-of-length? CO hP - ]
$ C £ £ & " 45$ "’’“C% g i
P g elt=? P g v1 P g v2 P g t P g x1 P g x2 P g filenamef srfi/srfi-43.scm
B C
C D E D
' F ( F - F ! 9 F < G N G
P g nameg =up-to? CO Q Q G¦5 hų Ž ) *3 4 5$ " 4 > " G C) K3 4 5$ " 4 > " G $ " 4> " G C) 3 4 5$ " 4 > " G $ " 4> " G $ " 4> " G 45 45$
L 6C- 1 3 4 5$ " 4 > " G $ " 4> " G " 6( " 4$ " 4> " G "’’Ź "’’Ā45 4L 5$ 2" &( C4L 5$ "’’ÜC "’’ŅC Ö g elt=?
0 g elt=?
9 g v 9 g elt=?
g v1 g v2 g len ų g elt=?
ņ g v1 ņ g vs ņ g vs j g len Æ ņ g vs Ā č
g filenamef srfi/srfi-43.scm
H
R R R 9 H : U M U O U a V n V p V H Y Y Y ² Z æ Z Į Z Ó [ ą [ ā [ ņ \ ų \ ż ] ] ]
^ ^ H ! ` 4 ` 6 ` H a U a W a j b
b b © c Æ c ² d ¾ d Ā e Č f É f Ė g Š g " × g 5 Ł g Ż g ą h ę h č e 6 0 9 ņ
g
documentationf u(vector= elt=? vec ...) -> boolean
Return true if the vectors VEC ... have equal lengths and equal
elements according to ELT=?. ELT=? is always applied to two
arguments. Element comparison must be consistent with eq?, in the
following sense: if (eq? a b) returns true, then (elt=? a b) must also
return true. The order in which comparisons are performed is
unspecified. C O RG¦5
h ) 3 4 5$ " 4 > " G $ " 4> " G 45 " %$ C4 £5 "’’Ū
"’’Š) ø3 4 5$ " 4 > " G $ " 4> " G $ " 4> " G 445455 " *$ C4 ££5 "’’Ö
"’’Ė- 1 3 4 5$ " 4 > " G " 6( " 4$ " 4> " G "’’Ź "’’Ā45 " )$ C4 4 5? "’’×
"’’Ģ g kcons
g knil g v g len V g i \ g state \ g kcons
J g knil J g v1 J g v2 J g len J g i ? g state ? g kcons
S ū g knil S ū g vs S ū g vs | ² g len Į ū g i Ē š g state Ē š g filenamef srfi/srfi-43.scm
k
v v v 1 w > w @ w P x V x \ y a z
e z k | l | w | * y | |
y k ~ © ~ « ~ ½ Ź Ģ Ž ė ķ ż (
$
% 0 " 5 4 7 ?
? S k T g i | » Į Ē Ģ
Š Ö × Ž 0 č š
š > J S ū
g nameg vector-foldg
documentationf Ō(vector-fold kons knil vec1 vec2 ...) -> value
The fundamental vector iterator. KONS is iterated over each index in
all of the vectors, stopping at the end of the shortest; KONS is
applied as (KONS i state (vector-ref VEC1 i) (vector-ref VEC2 i) ...)
where STATE is the current state value, and I is the current index.
The current state value begins with KNIL, and becomes whatever KONS
returned at the respective iteration. The iteration is strictly
left-to-right. CRG ¦5
h g ) 3 4 5$ " 4 > " G $ " 4> " G 45 " $
$ C4 £5 "’’Ü "’’Ļ) ¹3 4 5$ " 4 > " G $ " 4> " G $ " 4> " G 445455 " )
$ C4 ££5 "’’× "’’Ź- 1 3 4 5$ " 4 > " G " 6( " 4$ " 4> " G "’’Ź "’’Ā45 " (
$ C4 4 5? "’’Ų "’’Ė _ g kcons
g knil g v g len V g i \ g state \ g kcons
L g knil L g v1 L g v2 L g len L g i ? g state ? g kcons
U ž g knil U ž g vs U ž g vs ~ “ g len Ć ž g i É ń g state É ń g filenamef srfi/srfi-43.scm
1 > @ P V \ _
d j ¢ k ¢ v ¢ * x ¢ ¢
¤ Ŗ ¤ ¬ ¤ ¾ „ Ė „ Ķ „ ß ¦ ģ ¦ ī ¦ ž § § § ( § § Ø ©
© $ « % ¬ 0 ¬ " 5 ¬ 4 7 ¬ ? «
? Ø B Ø L Ø U V ® i ® k ® ~ Æ Æ Æ ½ ° Ć ° É ± Ģ ²
Ń ² × “ Ų “ ß “ 0 é “ ń “
ń ± ō ± ž ± D L U ž
g nameg vector-fold-rightg
documentationf Ś(vector-fold-right kons knil vec1 vec2 ...) -> value
The fundamental vector iterator. KONS is iterated over each index in
all of the vectors, starting at the end of the shortest; KONS is
applied as (KONS i state (vector-ref VEC1 i) (vector-ref VEC2 i) ...)
where STATE is the current state value, and I is the current index.
The current state value begins with KNIL, and becomes whatever KONS
returned at the respective iteration. The iteration is strictly
right-to-left. C RG ¦50 h ~ ) 3 4 5$ " 4 > " G $ " 4> " G 45 45 " '$ " !4 £5¤ "’’Ł
"’’ŅC) Ā3 4 5$ " 4 > " G $ " 4> " G $ " 4> " G 445455 45 " ,$ " &4 ££5¤ "’’Ō
"’’ĶC- 1 3 4 5$ " 4 > " G " 6( " 4$ " 4> " G "’’Ź "’’Ā4 5 45 " +$ " %4 4
5?¤ "’’Õ
"’’ĪC v g f
g v g len V g result _ g i e g f
^ g v1 ^ g v2 ^ g len ^ g result " ^ g i ( T g f
g g vs g g vs Ę g len Õ g result Ž g i ä g filenamef srfi/srfi-43.scm
·
æ æ æ 1 Ą > Ą @ Ą P Į V Į Y Ā _ Į e Ć j Ä n Ä w Å ! Å & Å ! Å Ę Ę Ć · É ³ É µ É Ē Ź Ō Ź Ö Ź č Ė õ Ė ÷ Ė Ģ
Ģ Ģ ) Ģ Ģ Ķ " Ģ ( Ī - Ļ 1 Ļ : Š ! C Š & H Š 8 J Š ! K Š N Ń T Ń T Ī g · h Ō { Ō } Ō Õ « Õ Õ Ļ Ö Õ Ö Ų × Ž Ö ä Ų é Ł ķ Ł ö Ś ! ū Ś , Ś ! Ś Ū Ū Ų G ^ g
g nameg
vector-mapg
documentationf (vector-map f vec2 vec2 ...) -> vector
Return a new vector of the shortest size of the vector arguments.
Each element at index i of the new vector is mapped from the old
vectors by (F i (vector-ref VEC1 i) (vector-ref VEC2 i) ...). The
dynamic order of application of F is unspecified. C RG ¦5
hų ņ ) 3 4 5$ " 4 > " G $ " 4> " G 45 " %$ C4 £5¤ "’’Ū
"’’Ō) “3 4 5$ " 4 > " G $ " 4> " G $ " 4> " G 445455 " *$ C4 ££5¤ "’’Ö
"’’Ļ- 1 3 4 5$ " 4 > " G " 6( " 4$ " 4> " G "’’Ź "’’Ā45 " )$ C4 4 5?¤ "’’×
"’’Š ź g f
g v g len V g i \ g f
B g v1 B g v2 B g len B g i ; g f
K ō g vs K ō g vs t Ŗ g len ¼ ō g v1 ¼ ō g i Ä ķ g filenamef srfi/srfi-43.scm
ß
ę ę ę 1 ē > ē @ ē P č V č \ é a ź e ź l ė u ė ! w ė x ė { ģ ģ é ß ī „ ī § ī ¹ ļ Ę ļ Č ļ Ś š ē š é š ł ń ü ń ń ( ń ń ņ ó ó ! ō * ō " / ō 4 1 ō 2 ō 5 õ ; õ ; ņ K ß L ÷ _ ÷ a ÷ t ų ų ų ³ ł ¼ ś ¼ ł Ä ū É ü Ķ ü Ō ż Ł ż ( ć ż ä ż ē ž ķ ž ķ ū B B K ō
g nameg vector-map!g
documentationf õ(vector-map! f vec2 vec2 ...) -> unspecified
Similar to vector-map, but rather than mapping the new elements into a
new vector, the new mapped elements are destructively inserted into
VEC1. The dynamic order of application of F is unspecified. C RG ¦5 h ) 3 4 5$ " 4 > " G $ " 4> " G 45 " +$ C4 £> " G "’’Õ
"’’Ī) ŗ3 4 5$ " 4 > " G $ " 4> " G $ " 4> " G 445455 " 0$ C4 ££> " G "’’Š
"’’É- 1 3 4 5$ " 4 > " G " 6( " 4$ " 4> " G "’’Ź "’’Ā45 " 1$ C4 4
5> " G "’’Ļ
"’’Č g f
g v g len V g i \ g f
N g v1 N g v2 N g len N g i G g f
W g vs W g vs ¶ g len Å g i Ė ü g filenamef srfi/srfi-43.scm
1 > @ P
V
\ a e h
q
v
« æ Ģ Ī ą ķ ļ ’ # , 1 " 6 A G G W X k m æ Å Ė Š Ō × Ž ė ö ü ü > N W
g nameg vector-for-eachg
documentationf æ(vector-for-each f vec1 vec2 ...) -> unspecified
Call (F i VEC1[i] VEC2[i] ...) for each index i less than the length
of the shortest vector passed. The iteration is strictly
left-to-right. C RG ¦5
h0 V ) 3 4 5$ " 4 > " G $ " 4> " G 45 " 7$ C4 £5$ "’’Ö "’’É
"’’æ) É3 4 5$ " 4 > " G $ " 4> " G $ " 4> " G 445455 " <$ C4 ££5$ "’’Ń "’’Ä
"’’ŗ- 1 3 4 5$ " 4 > " G " 6( " 4$ " 4> " G "’’Ź "’’Ā45 " ;$ C4 4 5?$ "’’Ņ "’’Å
"’’» N g pred?
g v g len V g i \ g count \ g pred?
¦ l g v1 ¦ l g v2 ¦ l g len l g i & b g count & b g pred?
u . g vs u . g vs Ō g len ć . g i é $ g count é $ g filenamef srfi/srfi-43.scm
#
* * * 1 + > + @ + P , V , \ - a . e . i / r / t / x . { 0 ~ 0 0 2 2 - ¦ # § 4 ŗ 4 ¼ 4 Ī 5 Ū 5 Ż 5 ļ 6 ü 6 ž 6 7 7 8 7 7 & 9 + : / : 3 ; < ; A ; + C ; G : J < M < U < X > b > b 9 u # v @ @ @ A ¹ A » A Ż B ć B é C ī D ņ D ö E ū E E D F F F H $ H $ C J ¦ l u .
g nameg vector-countg
documentationf Ń(vector-count pred? vec1 vec2 ...) -> exact nonnegative integer
Count the number of indices i for which (PRED? VEC1[i] VEC2[i] ...)
returns true, where i is less than the length of the shortest vector
passed. C RG!¦5
hš × ) 3 4 5$ " 4 > " G $ " 4> " G 45 " %$ 4 £5$ C "’’ŻC
"’’Ō) “3 4 5$ " 4 > " G $ " 4> " G $ " 4> " G 445455 " *$ 4 ££5$ C "’’ŲC
"’’Ļ- 1 3 4 5$ " 4 > " G " 6( " 4$ " 4> " G "’’Ź "’’Ā45 " )$ 4 4 5?$ C "’’ŁC
"’’Š Ļ g pred?
g v g len V g i \ g pred?
B g v1 B g v2 B g len B g i ; g pred?
K ļ g vs K ļ g vs t Ŗ g len ¹ ļ g i æ č g filenamef srfi/srfi-43.scm
K
R R R 1 S > S @ S P T V T \ U a V e V f W m W o W s W y Y Y U K [ „ [ § [ ¹ \ Ę \ Č \ Ś ] ē ] é ] ł ^ ü ^ _ ^ ^ ` a a b " b ' c ) b - b 3 e 9 e ; ` K K L g _ g a g t h h h ³ i ¹ i æ j Ä k Č k É l Ģ l Ö l Ś l ą n ę n č j A B K ļ
g nameg vector-indexg
documentationf ź(vector-index pred? vec1 vec2 ...) -> exact nonnegative integer or #f
Find and return the index of the first elements in VEC1 VEC2 ... that
satisfy PRED?. If no matching element is found by the end of the
shortest vector, return #f. C!RG"¦5
hų @ ) 3 4 5$ " 4 > " G $ " 4> " G 45 " $
$ 4 £5$ C "’’ŽC "’’Ó) µ3 4 5$ " 4 > " G $ " 4> " G $ " 4> " G 445455 " )
$ 4 ££5$ C "’’ŁC "’’Ī- 1 3 4 5$ " 4 > " G " 6( " 4$ " 4> " G "’’Ź "’’Ā45 " (
$ 4 4 5?$ C "’’ŚC "’’Ļ 8 g pred?
g v g len V g i \ g pred?
D g v1 D g v2 D g len D g i ; g pred?
M ņ g vs M ņ g vs v ¬ g len » ņ g i Į é g filenamef srfi/srfi-43.scm
q
x x x 1 y > y @ y P z V z \ { ` | d | e } l } n } r } x ~ { { { q ¦ Ø ŗ Ē É Ū č ź ś ż
" ' ) - 3 9 ; > D M q N a c v µ » Į Å É Ź Ķ × Ū į ē é ģ ņ G D M ņ
g nameg vector-index-rightg
documentationf (vector-index-right pred? vec1 vec2 ...) -> exact nonnegative integer or #f
Find and return the index of the last elements in VEC1 VEC2 ... that
satisfy PRED?, searching from right-to-left. If no matching element
is found before the end of the shortest vector, return #f. C"RG#¦5
hš Ü ) 3 4 5$ " 4 > " G $ " 4> " G 45 " %$ 4 £5$ "’’ąCC
"’’Ō) “3 4 5$ " 4 > " G $ " 4> " G $ " 4> " G 445455 " *$ 4 ££5$ "’’ŪCC
"’’Ļ- 1 3 4 5$ " 4 > " G " 6( " 4$ " 4> " G "’’Ź "’’Ā45 " )$ 4 4 5?$ "’’ÜCC
"’’Š Ō g pred?
g v g len V g i \ g pred?
B g v1 B g v2 B g len B g i ; g pred?
K ļ g vs K ļ g vs t Ŗ g len ¹ ļ g i æ č g filenamef srfi/srfi-43.scm
1 > @ P V \ ” a ¢ e ¢ f £ m £ o £ s £ v ¤ | ¤ ” § „ § § § ¹ Ø Ę Ø Č Ø Ś © ē © é © ł Ŗ ü Ŗ « Ŗ Ŗ ¬ ® " ® ' Æ ) ® - ® 0 ° 6 ° ; ¬ K L ³ _ ³ a ³ t “ “ “ ³ µ ¹ µ æ ¶ Ä · Č · É ø Ģ ø Ö ø Ś ø Ż ¹ ć ¹ č ¶ A B K ļ
g nameg vector-skipg
documentationf š(vector-skip pred? vec1 vec2 ...) -> exact nonnegative integer or #f
Find and return the index of the first elements in VEC1 VEC2 ... that
do not satisfy PRED?. If no matching element is found by the end of
the shortest vector, return #f. C#RG$¦5
hų E ) 3 4 5$ " 4 > " G $ " 4> " G 45 " $
$ C4 £5$ "’’ßC "’’Ó) µ3 4 5$ " 4 > " G $ " 4> " G $ " 4> " G 445455 " )
$ C4 ££5$ "’’ŚC "’’Ī- 1 3 4 5$ " 4 > " G " 6( " 4$ " 4> " G "’’Ź "’’Ā45 " (
$ C4 4 5?$ "’’ŪC "’’Ļ = g pred?
g v g len V g i \ g pred?
D g v1 D g v2 D g len D g i ; g pred?
M ņ g vs M ņ g vs v ¬ g len » ņ g i Į é g filenamef srfi/srfi-43.scm
½
Ä Ä Ä 1 Å > Å @ Å P Ę V Ę \ Ē _ Č d Č g É n É p É t É w Ź } Ź Ē Ē Ē ½ Ķ ¦ Ķ Ø Ķ ŗ Ī Ē Ī É Ī Ū Ļ č Ļ ź Ļ ś Š ż Š Ń Š Š Ņ Ó Ó Ō $ Ō ) Õ + Ō / Ō 2 Ö 8 Ö ; Ņ > Ņ D Ņ M ½ N Ł a Ł c Ł v Ś Ś Ś µ Ū » Ū Į Ü Ä Ż É Ż Ģ Ž Ļ Ž Ł Ž Ż Ž ą ß ę ß é Ü ģ Ü ņ Ü G D M ņ
g nameg vector-skip-rightg
documentationf (vector-skip-right pred? vec1 vec2 ...) -> exact nonnegative integer or #f
Find and return the index of the last elements in VEC1 VEC2 ... that
do not satisfy PRED?, searching from right-to-left. If no matching
element is found before the end of the shortest vector, return #f. C$R hp Į ]-" ]$ R £ 45
$ C
$ "’’¼
$
"’’§CC "’’ ¹ g vec
o g value o g cmp o g start o g end o g lo c g hi c g i a g x a g c ) a
g filenamef srfi/srfi-43.scm
ä å ę
ę ē ! ē ē
č ē
! é ) ē
. ź 3 ź 9 ė > ź J ė $ M ģ R ź U ģ * _ ģ $ c å o g nameg %vector-binary-search C G%¦5Ūpö
hØ ) [3 $ " 4 > " G 45$ " 4> " G L
4 56) 3 $ " 4 > " G 4 5 " 4> " ;G " 445$ %
$ $ " "’’Ā" "’’ŗ" "’’²L 6]
$ " 4 > " G 4 5 " 4 > " _G " X45$ I45$ 6
$ &$ $ " "’’¬" "’’¤" "’’" "’’" "’’L 6 g vec
a g value a g cmp a g vec
j ō g value j ō g cmp j ō g start j ō g len ō g vec
ö ¦ g value ö ¦ g cmp ö ¦ g start ö ¦ g end ö ¦ g len ¦ g filenamef srfi/srfi-43.scm
ķ ų ų ų + ł > ł @ ł Y ś . a ś j ķ m ż z ż | ż ž ž ’ ’ ' ’ ō ö ķ ł % ) + + ¦ a j ō ö ¦ g
documentationf (vector-binary-search vec value cmp [start [end]]) -> exact nonnegative integer or #f
Find and return an index of VEC between START and END whose value is
VALUE using a binary search. If no matching element is found, return
#f. The default START is 0 and the default END is the length of VEC.
CMP must be a procedure of two arguments such that (CMP A B) returns
a negative integer if A < B, a positive integer if A > B, or zero if
A = B. The elements of VEC must be sorted in non-decreasing order
according to CMP. C O %RG&¦5
h P ) 3 4 5$ " 4 > " G $ " 4> " G 45 " )$ 4 £5 $ C "’’ŁC
"’’Š) ø3 4 5$ " 4 > " G $ " 4> " G $ " 4> " G 445455 " .$ #4 ££5 $ C "’’ŌC
"’’Ė- 1 3 4 5$ " 4 > " G " 6( " 4$ " 4> " G "’’Ź "’’Ā45 " -$ "4 4 5? $ C "’’ÕC
"’’Ģ H g pred?
g v g len V g i \
g t o g pred?
J g v1 J g v2 J g len J g i C g t - A g pred?
S ū g vs S ū g vs | ² g len Į ū g i Ē ō g t Ž ņ g filenamef srfi/srfi-43.scm
1 > @ P V \ a e f m o o }
© « ½ Ź Ģ Ž ė ķ ż & + ! - - ; " A " C S T $ g $ i $ | % % % » & Į & Ē ' Ģ ( Š ( Ń ) Ō ) Ž ) Ž ) ģ * ņ * ō ' A J S ū
g nameg
vector-anyg
documentationf 2(vector-any pred? vec1 vec2 ...) -> value or #f
Find the first parallel set of elements from VEC1 VEC2 ... for which
PRED? returns a true value. If such a parallel set of elements
exists, vector-any returns the value that PRED? returned for that set
of elements. The iteration is strictly left-to-right. C&RG'¦5
h@ m ) 3 4 5$ " 4 > " G $ " 4> " G 45
$ C" 04 £5 $ " $ C "’’Š
"’’É) Ī3 4 5$ " 4 > " G $ " 4> " G $ " 4> " G 445455
$ C" 54 ££5 $ " $ C "’’Ė
"’’Ä- 1 3 4 5$ " 4 > " G " 6( " 4$ " 4> " G "’’Ź "’’Ā45
$ C" 44 4 5? $ " $ C "’’Ģ
"’’Å e g pred?
¢ g v ¢ g len V ¢ g t \ ¢ g i k g val x g next-i x g pred?
« v g v1 « v g v2 « v g len % v g t + v g i : o g val L o g next-i L o g pred?
= g vs = g vs Ø Ž g len ķ = g t ó = g i 6 g val 6 g next-i 6 g filenamef srfi/srfi-43.scm
-
6 6 6 1 7 > 7 @ 7 P 8 V 8 [ 9 \ 9 k : l ; s ; u ; x < x ;
= = ! = = ? : « - ¬ A æ A Į A Ó B ą B ā B ō C C C D D E % D % D * F + F : G ; H B H G I I H L J L H
V K [ K ! ` K d K o M o G - O O O Ø P Ć P Å P ē Q ķ Q ņ R ó R S T T % T U T
V " V ! ' V + V 6 X 6 S M ¢ « v =
g nameg vector-everyg
documentationf \(vector-every pred? vec1 vec2 ...) -> value or #f
If, for every index i less than the length of the shortest vector
argument, the set of elements VEC1[i] VEC2[i] ... satisfies PRED?,
vector-every returns the value that PRED? returned for the last set of
elements, at the last index of the shortest vector. The iteration is
strictly left-to-right. C'RG(¦5Āp hš ½ ] $ " 4 > " G 4 5 " 4> " ;G " 445$ %
$ $ " "’’Ā" "’’ŗ" "’’²" 4> " ;G " 445$ %
$ $ " "’’Ā" "’’ŗ" "’’² £ £¤ ¤C µ g vec
ź g i ź g j ź g len * ź g tmp Õ ź g filenamef srfi/srfi-43.scm
Z
^ ^ ^ $ _
* _ 1 ` 5 ` 7 ` a a a Õ b Õ b ą c į c č d ź g nameg vector-swap!g
documentationf Z(vector-swap! vec i j) -> unspecified
Swap the values of the locations in VEC at I and J. C(RH h0 ō ] " $ ¤ "’’ēC "’’Ż ģ g vec
) g fill ) g start ) g end ) g i ! g filenamef srfi/srfi-43.scm
k l m m n
o o
! l ) g nameg
%vector-fill! C K G9¦5Ūpö hX ¾ ) 3 M 6) 3 $ " 4 > " G 4 5 " 4> " ;G " 445$ %
$ $ " "’’Ā" "’’ŗ" "’’²L 6] $ " 4 > " G 4 5 " 4> " _G " X45$ I45$ 6
$ &$ $ " "’’¬" "’’¤" "’’" "’’" "’’L 6 ¶ g vec
g fill g vec
¢ g fill ¢ g start ¢ g len B ¢ g vec
¤ R g fill ¤ R g start ¤ R g end ¤ R g len Ģ R g filenamef srfi/srfi-43.scm
p v p x * x , x < y B y I z M z ' O z ¢ { ¤ p § } “ } ¶ } Ę ~ Ģ ~ Ó × + Ł R ¢ ¤ R g
documentationf ŗ(vector-fill! vec fill [start [end]]) -> unspecified
Assign the value of every location in VEC between START and END to
FILL. START defaults to 0 and END defaults to the length of VEC. C O 9RhH C ]" 1$ & £ £¤ ¤ "’’ŃC "’’Ā ; g vec
D g start D g end D g i 7 g j 7 g tmp 5 g filenamef srfi/srfi-43.scm
' * - 5 7 < D D g nameg %vector-reverse! C RG)¦ 5Ūpö hx ŗ ) 23 $ " 4 > " G
4 56) 3 $ " 4 > " G 4 5 " 4> " ;G " 445$ %
$ $ " "’’Ā" "’’ŗ" "’’² 6] $ " 4 > " G 4 5 " 4> " _G " X45$ I45$ 6
$ &$ $ " "’’¬" "’’¤" "’’" "’’" "’’ 6 ² g vec
8 g vec
A Ē g start A Ē g len i Ē g vec
É u g start É u g end É u g len ń u g filenamef srfi/srfi-43.scm
0 8 A D Q S c i p t % v Ē É Ģ Ł Ū ė ń ų ü ) ž u 8 A Ē É u g nameg vector-reverse!g
documentationf Æ(vector-reverse! vec [start [end]]) -> unspecified
Destructively reverse the contents of VEC between START and END.
START defaults to 0 and END defaults to the length of VEC. C)R4J!LO©568:AB<D@NO>FPVWZ]`_Kegjkinp h8 t ]
C l g dummy
1 g copy! 1 g docstring 1 g
inner-proc 1 1 C{| h( ø ] 4 5 $ @ 6 ° g x
" g tmp " g filenamef srfi/srfi-43.scm
" g
macro-typeg syntax-rulesg patternsg copy!g docstringg
inner-proc C5!RG*¦5ŪpX qö h° ) ļ3 $ " 4 > " G $ " 4> " G 4 545 " 4> " ;G " 445$ %
$ $ " "’’Ā" "’’ŗ" "’’²$ " 4> " G
$
6
6) G3 $ " 4 > " G $ " 4> " G 4 545 " 4> " ;G " 445$ %
$ $ " "’’Ā" "’’ŗ" "’’²" 4> " ;G " 445$ %
$ $ " "’’Ā" "’’ŗ" "’’²$ " 4> " G $ 6 6] $ " 4 > " G $ " 4> " G 4 545 " 4> " ;G " 445$ %
$ $ " "’’Ā" "’’ŗ" "’’²" 4
> " _G " X45$ I45$ 6
$ &$ $ " "’’¬" "’’¤" "’’" "’’" "’’$ " 4> " G $ 6 6 ž g target
õ g tstart õ g source õ g tlen Y õ g slen Y õ g target
ž B g tstart ž B g source ž B g sstart ž B g tlen N B g slen N B g target
D ® g tstart D ® g source D ® g sstart D ® g send D ® g tlen ® g slen ® g filenamef srfi/srfi-43.scm
Ć
× Ģ Ū Ģ č Ķ õ Ī ž Ć
" Ģ & Ģ 4 Ķ B Ī D Ć
Ģ Ģ Ķ ® Ī õ ž B D ® g
documentationf (vector-copy! target tstart source [sstart [send]]) -> unspecified
Copy a block of elements from SOURCE to TARGET, both of which must be
vectors, starting in TARGET at TSTART and starting in SOURCE at
SSTART, ending when SEND - SSTART elements have been copied. It is an
error for TARGET to have a length less than TSTART + (SEND - SSTART).
SSTART defaults to 0 and SEND defaults to the length of SOURCE. C*R h` _ ]" 4" #$ £¤ "’’ßC "’’Š & $
6"’’"’’© W g target
] g tstart ] g source ] g sstart ] g send ] g i
- g j
- g filenamef srfi/srfi-43.scm
Ų
Ū Ü Ü
Ż " Ż Ž # Ž + Ž - Ū 2 Ū ! : Ū : Ł G Ł ! K Ł U Ś ] g nameg %copy! C G+¦5ŪpXö hp > ) Ś3 $ " 4 > " G $ " 4> " G 4 545 " 4> " ;G " 445$ %
$ $ " "’’Ā" "’’ŗ" "’’²$ " 4> " G L
6) 03 $ " 4 > " G $ " 4> " G 4 545 " 4> " ;G " 445$ %
$ $ " "’’Ā" "’’ŗ" "’’²" 4> " ;G " 445$ %
$ $ " "’’Ā" "’’ŗ" "’’²$ " 4> " G L 6] $ " 4 > " G $ " 4> " G 4 545 " 4> " ;G " 445$ %
$ $ " "’’Ā" "’’ŗ" "’’²" 4> " _G " X45$ I45$ 6
$ &$ $ " "’’¬" "’’¤" "’’" "’’" "’’$ " 4> " G L 6 6 g target
ą g tstart ą g source ą g tlen Y ą g slen Y ą g target
é g tstart é g source é g sstart é g tlen 9 g slen 9 g target
k g tstart k g source k g sstart k g send k g tlen h k g slen h k g filenamef srfi/srfi-43.scm
Š
ą é k g
documentationf X(vector-reverse-copy! target tstart source [sstart [send]]) -> unspecified
Like vector-copy!, but copy the elements in the reverse order. It is
an error if TARGET and SOURCE are identical vectors and the TARGET and
SOURCE ranges overlap; however, if TSTART = SSTART,
vector-reverse-copy! behaves as (vector-reverse! TARGET TSTART SEND)
would. C O +R h8 ]" $ C £ "’’į "’’Õ g vec
1 g start 1 g end 1 g i % g result % g filenamef srfi/srfi-43.scm
ā ć å å ē ē ē % ē % ć ( ć ) ä 1 ć
1 g nameg
%vector->list C G;¦5Ūpö hx Æ ) 23 $ " 4 > " G L
4 56) 3 $ " 4 > " G 4 5 " 4> " ;G " 445$ %
$ $ " "’’Ā" "’’ŗ" "’’²L 6] $ " 4 > " G 4 5 " 4> " _G " X45$ I45$ 6
$ &$ $ " "’’¬" "’’¤" "’’" "’’" "’’L 6 § g vec
8 g vec
A Ē g start A Ē g len i Ē g vec
É u g start É u g end É u g len ń u g filenamef srfi/srfi-43.scm
č ļ ļ ļ 0 š 8 š A č D ņ Q ņ S ņ c ó i ó p ō t ō ' v ō Ē õ É č Ģ ÷ Ł ÷ Ū ÷ ė ų ń ų ų ł ü ł + ž ł u ś 8 A Ē É u g
documentationf Ą(vector->list vec [start [end]]) -> proper-list
Return a newly allocated list containing the elements in VEC between
START and END. START defaults to 0 and END defaults to the length of
VEC. C O ;R h0 ]" $ C £ "’’į "’’Ö g vec
0 g start 0 g end 0 g i % g result % g filenamef srfi/srfi-43.scm
ž ’ % % ’ ( 0 ’ 0 g nameg %reverse-vector->list C G,¦5Ūpö hx Č ) 23 $ " 4 > " G L
4 56) 3 $ " 4 > " G 4 5 " 4> " ;G " 445$ %
$ $ " "’’Ā" "’’ŗ" "’’²L 6] $ " 4 > " G 4 5 " 4> " _G " X45$ I45$ 6
$ &$ $ " "’’¬" "’’¤" "’’" "’’" "’’L 6 Ą g vec
8 g vec
A Ē g start A Ē g len i Ē g vec
É u g start É u g end É u g len ń u g filenamef srfi/srfi-43.scm
0 $ 8 A D Q S c i p t ' v Ē É Ģ Ł Ū ė ń ų ü + ž u 8 A Ē É u g
documentationf Ł(reverse-vector->list vec [start [end]]) -> proper-list
Return a newly allocated list containing the elements in VEC between
START and END in reverse order. START defaults to 0 and END defaults
to the length of VEC. C O ,Rr0s hp Z - . , 3 #
# 4 5 45 " "$ C¤ "’’Ž
4 5 "’’Ģ R g lst
l g start l g end l g len ) l g result 2 l g i 8 Z g lst 8 Z g filenamef srfi/srfi-43.scm
5 ) ) , 2 8 ! = "
A " K $ ' L $ O % R % Z % Z ! \ ! l ! l g nameg list->vectorg
documentationf Ü(list->vector proper-list [start [end]]) -> vector
Return a newly allocated vector of the elements from PROPER-LIST with
indices between START and END. START defaults to 0 and END defaults
to the length of PROPER-LIST. C:Rr0s hp
- . , 3 #
# 4 5 45 " !
$ C¤ "’’ß4 5 "’’Ė } g lst
m g start m g end m g len ) m g result 2 m g i 8 Y g lst 8 Y g filenamef srfi/srfi-43.scm
(
( = ) . ) . , / 2 . 8 0 ; 1
@ 1 J 3 ' K 3 N 4 Q 4 Y 4 Y 0 \ 0 ] 0 " m 0 m g nameg reverse-list->vectorg
documentationf ö(reverse-list->vector proper-list [start [end]]) -> vector
Return a newly allocated vector of the elements from PROPER-LIST with
indices between START and END, in reverse order. START defaults to 0
and END defaults to the length of PROPER-LIST. C-RC d g m
4 g %vector-reverse-copy
/7 3ų g all-of-length?
@K GS g =up-to? @K GS g %vector-binary-search
c Ą g guile-vector-fill!
į ³[ g
%vector-fill! Æ ³X g %copy!
Ę! Ģö g
%vector->list
Ī\ Ņ§ g %reverse-vector->list
Ō Ųh
g filenamef srfi/srfi-43.scm
5 )
: ) B ) & G )
D +
¹ U
ž ]
¶ d
&š
&÷ Č
-k Ė
3ū é
6
:
g lambda¤ ? >:< ¤ @ ¤ Ag expr¤ B%&A ¤ C+## ¤ Df l-46961e5115-f¤ Ef l-46961e5115-10¤ Ff l-46961e5115-11¤ GDEF ¤ H$BCG ¤ I#H39 ¤ J !I< ¤ Kg syntax-violation¤ LK ¤ MK ¤ Nf -source expression failed to match any pattern¤C 5 h r ]4
5 4 > " G 4i4i5 > " G 4 =? h f ] C ^ g dummy
g name g formals g body C@J h Q ] C I g dummy
g name g expr CMN h@ I ]4 5 $ @4 5 $ @ 6 A g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-31.scm
9 g
documentationf XReturn the given object, defined in a lexical environment where
NAME is bound to itself.g
macro-typeg syntax-rulesg patternsg nameg formalsg bodyg ... g nameg expr C5 RCj g m
( g filenamef srfi/srfi-31.scm
)
. 6 & ;
C6 PK ! vŃ:D D
srfi-39.gonu [µü¤ GOOF----LE-8-2.0, ] 4 h ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-39¤ ¤ g filenameS¤
f srfi/srfi-39.scm¤ g exportsS¤ g with-parameters*¤
¤ g
re-exportsS¤ g make-parameter¤ g parameterize¤ g current-input-port¤ g current-output-port¤ g current-error-port¤ ¤ g set-current-module¤ ¤ ¤ g cond-expand-provide¤ g current-module¤ ¤ g with-fluids*¤ g parameter-fluid¤ g parameter-converter¤C 5 hP z ]4
5 4 > " G 4i4i5 > " G hX ]#" >(
6454455 "’’Ā "’’° g params
V g values V g thunk V g params D g values D g fluids D g convs D g filenamef srfi/srfi-39.scm
-
. 2 3 4 4 5 " 5 % $ 5 ' 5 ( 6 ) 6 . 6 * 0 6 3 6 8 5 6 8 6 D 4 D . I 0 J 1 V . V g nameg with-parameters* C RC r g m
, g filenamef srfi/srfi-39.scm $
- +
2 + : + & ? +
M -
O
C6 PK ! X Rzp p
srfi-45.gonu [µü¤ GOOF----LE-8-2.0X ]æ 4 h»E ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-45¤ ¤ g filenameS¤
f srfi/srfi-45.scm¤ g importsS¤ g srfi-9¤
¤
¤ g gnu¤ ¤ ¤ ¤ g exportsS¤ g delay¤ g lazy¤ g force¤ g eager¤ g promise?¤ ¤ g replacementsS¤ ¤ g set-current-module¤ ¤ ¤ g cond-expand-provide¤ g current-module¤ ! ¤ "g promise¤ #g %make-promise-procedure¤ $g make-syntax-transformer¤ %$ ¤ &$ ¤ 'g make-promise¤ (g macro¤ )g $sc-dispatch¤ *) ¤ +) ¤ ,g _¤ -g any¤ .,- ¤ /g
syntax-object¤ 0g lambda¤ 1g m-46961e513e-4¤ 2g top¤ 312 ¤ 4g ribcage¤ 5g t-46961e513e-3¤ 65 ¤ 73 ¤ 8f l-46961e513e-9¤ 98 ¤ :4679 ¤ ;4 ¤ f l-46961e513e-6¤ ?> ¤ @4=7? ¤ Ag shift¤ Bg proc-name¤ Cg args¤ DBC ¤ E2 ¤ FEE ¤ Gf l-1e8ba8b5a-2ba¤ Hf l-1e8ba8b5a-2bb¤ IGH ¤ J4DFI ¤ Kg key¤ Lg value¤ Mg name¤ Ng formals¤ Og body¤ PKLMNO ¤ QEEEEE ¤ Rf l-1e8ba8b5a-2ad¤ Sf l-1e8ba8b5a-2ae¤ Tf l-1e8ba8b5a-2af¤ Uf l-1e8ba8b5a-2b0¤ Vf l-1e8ba8b5a-2b1¤ WRSTUV ¤ X4PQW ¤ Yg make-procedure-name¤ ZY ¤ [E ¤ \f l-1e8ba8b5a-29d¤ ]\ ¤ ^4Z[] ¤ _E ¤ `f l-1e8ba8b5a-29c¤ a` ¤ b4=_a ¤ c3:;@A;;;;JX^b
¤ dg hygiene¤ ed ¤ f/0ce ¤ gg val¤ hE:;@ ¤ id ¤ j/ghi ¤ kj ¤ lg make-struct¤ mg m-46961e513e-1¤ nm2 ¤ og t-1e8ba8b5a-38d¤ pg t-1e8ba8b5a-38c¤ qg t-1e8ba8b5a-38b¤ ropq ¤ sg m-1e8ba8b5a-38e¤ ts2 ¤ uttt ¤ vf l-1e8ba8b5a-392¤ wf l-1e8ba8b5a-393¤ xf l-1e8ba8b5a-394¤ yvwx ¤ z4ruy ¤ {g ctor-args¤ |{ ¤ }f l-1e8ba8b5a-37a¤ ~} ¤ 4|_~ ¤ g ctor¤ g field¤ ¤ f l-1e8ba8b5a-376¤ f l-1e8ba8b5a-377¤
¤ 4F
¤ g form¤ g type-name¤ g constructor-spec¤ g field-names¤ ¤ EEEE ¤ f l-1e8ba8b5a-36b¤ f l-1e8ba8b5a-36c¤ f l-1e8ba8b5a-36d¤ f l-1e8ba8b5a-36e¤ ¤ 4 ¤ g
record-layout¤ g functional-setters¤ g setters¤ g copier¤ g getters¤ g constructor¤ g getter-identifiers¤ g field-identifiers¤ ¤ EEEEEEEE ¤ f l-1e8ba8b5a-343¤ f l-1e8ba8b5a-341¤ f l-1e8ba8b5a-33f¤ f l-1e8ba8b5a-33d¤ ”f l-1e8ba8b5a-33b¤ ¢f l-1e8ba8b5a-339¤ £f l-1e8ba8b5a-337¤ ¤f l-1e8ba8b5a-335¤ „ ”¢£¤ ¤ ¦4„ ¤ §f l-1e8ba8b5a-334¤ ا ¤ ©4=_Ø ¤ Ŗn:;@A;z;;;;¦© ¤ «/lŖe ¤ ¬/"hi ¤ /
Ŗe ¤ ®«¬j ¤ Æfk® ¤ °g each-any¤ ±,°¤ ²g syntax-violation¤ ³
² ¤ “
² ¤ µf Wrong number of arguments¤ ¶g identifier?¤ ·
¶ ¤ ø
¶ ¤ ¹E;@ ¤ ŗ/#¹i ¤ »² ¤ ¼² ¤ ½f -source expression failed to match any pattern¤ ¾g record-type-vtable¤ æ
¾ ¤ Ą
¾ ¤ Įg pw¤ Āg default-record-printer¤ Ć
Ā ¤ Ä
Ā ¤ Åg ¤ Ęg set-struct-vtable-name!¤ Ē
Ę ¤ Č
Ę ¤ Ég vtable-offset-user¤ Ź
É ¤ Ė
É ¤ Ģg %promise?-procedure¤ Ķg m-46961e513e-11¤ ĪĶ2 ¤ Ļg t-46961e513e-10¤ ŠĻ ¤ ŃĪ ¤ Ņf l-46961e513e-16¤ ÓŅ ¤ Ō4ŠŃÓ ¤ Õf l-46961e513e-13¤ ÖÕ ¤ ×4=ŃÖ ¤ ŲĪŌ;×A;;;;JX^b
¤ Ł/0Ųe ¤ Śg obj¤ Ūg t-1e8ba8b5a-47e¤ Üg t-1e8ba8b5a-478¤ Żg t-1e8ba8b5a-479¤ Žg t-1e8ba8b5a-47a¤ ßg t-1e8ba8b5a-47d¤ ąg t-1e8ba8b5a-47c¤ įg t-1e8ba8b5a-47b¤ āŪÜŻŽßąį ¤ ćg m-1e8ba8b5a-47f¤ äć2 ¤ åäääääää ¤ ęf l-1e8ba8b5a-483¤ ēf l-1e8ba8b5a-484¤ čf l-1e8ba8b5a-485¤ éf l-1e8ba8b5a-486¤ źf l-1e8ba8b5a-487¤ ėf l-1e8ba8b5a-488¤ ģf l-1e8ba8b5a-489¤ ķęēčéźėģ ¤ ī4āåķ ¤ ļg copier-id¤ šļ ¤ ńf l-1e8ba8b5a-476¤ ņń ¤ ó4š_ņ ¤ ōg ctor-name¤ õō ¤ öf l-1e8ba8b5a-46e¤ ÷ö ¤ ų4õ_÷ ¤ ł ¤ śf l-1e8ba8b5a-46c¤ ūś ¤ ü4ł_ū ¤ żg layout¤ žż ¤ ’f l-1e8ba8b5a-46a¤ ’ ¤ 4ž_ ¤ g
immutable?¤ ¤ f l-1e8ba8b5a-468¤ ¤ 4_ ¤ g field-count¤ ¤ f l-1e8ba8b5a-466¤
¤ 4_
¤ g
getter-ids¤
¤ f l-1e8ba8b5a-463¤ ¤ 4
_ ¤ g field-ids¤ ¤ f l-1e8ba8b5a-460¤ ¤ 4_ ¤ g predicate-name¤ g
field-spec¤ ¤ EEEEEE ¤ f l-1e8ba8b5a-453¤ f l-1e8ba8b5a-454¤ f l-1e8ba8b5a-455¤ f l-1e8ba8b5a-456¤ f l-1e8ba8b5a-457¤ f l-1e8ba8b5a-458¤ ¤ !4 ¤ "nŌ;×A;ī;;;;ó;ų;ü;;; ;;!¦© ¤ #/Ś"e ¤ $# ¤ %g and¤ &/%"e ¤ 'g struct?¤ (/'"e ¤ )(# ¤ *g eq?¤ +/*"e ¤ ,g
struct-vtable¤ -/,"e ¤ .-# ¤ /EŌ;× ¤ 0/"/i ¤ 1+.0 ¤ 2&)1 ¤ 3Ł$2 ¤ 4E;× ¤ 5/Ģ4i ¤ 6g throw-bad-struct¤ 7
6 ¤ 8
6 ¤ 9g promise-val¤ :g %promise-val-procedure¤ ;g free-id¤ =2 ¤ ?> ¤ @f l-46961e513e-1f¤ A@ ¤ B4=?A ¤ C>;BA;;;;JX^b ¤ D/<Ce ¤ E;D ¤ FE- ¤ Gg %%type¤ Hg t-1e8ba8b5a-3a5¤ Ig t-1e8ba8b5a-3a6¤ Jg t-1e8ba8b5a-3a7¤ Kg t-1e8ba8b5a-3a8¤ Lg t-1e8ba8b5a-3a9¤ Mg t-1e8ba8b5a-3aa¤ Ng t-1e8ba8b5a-3ab¤ OHIJKLMN ¤ Pg m-1e8ba8b5a-3ac¤ QP2 ¤ RQQQQQQQ ¤ Sf l-1e8ba8b5a-3b0¤ Tf l-1e8ba8b5a-3b1¤ Uf l-1e8ba8b5a-3b2¤ Vf l-1e8ba8b5a-3b3¤ Wf l-1e8ba8b5a-3b4¤ Xf l-1e8ba8b5a-3b5¤ Yf l-1e8ba8b5a-3b6¤ ZSTUVWXY ¤ [4ORZ ¤ \g getter¤ ]g index¤ ^\] ¤ _f l-1e8ba8b5a-3a3¤ `f l-1e8ba8b5a-3a4¤ a_` ¤ b4^Fa ¤ c ļ ¤ dEEE ¤ ef l-1e8ba8b5a-39e¤ ff l-1e8ba8b5a-39f¤ gf l-1e8ba8b5a-3a0¤ hefg ¤ i4cdh ¤ jn;BA;[;;;b;i¦© ¤ k/Gje ¤ l;k ¤ m,Fl- ¤ ng ck¤ og err¤ pg s¤ qop ¤ r>> ¤ sf l-46961e513e-22¤ tf l-46961e513e-23¤ ust ¤ v4qru ¤ w>v;BA;;;;JX^b
¤ x/nwe ¤ yg quote¤ z/ywe ¤ {Ev;B ¤ |/"{i ¤ }z| ¤ ~} ¤ g %%index¤ /je ¤ ; ¤ ,F- ¤ f l-46961e513e-27¤ f l-46961e513e-28¤
¤ 4qr
¤ >;BA;;;;JX^b
¤ /ne ¤ /ye ¤ ;B ¤ /
i ¤ ¤ ¤ g %%copier¤ /je ¤ ; ¤ ,F- ¤ f l-46961e513e-2c¤ f l-46961e513e-2d¤ ¤ 4qr ¤ >;BA;;;;JX^b
¤ /ne ¤ /ye ¤ g %%promise-set-fields¤ E;B ¤ /i ¤ ¤ ¤ g t-46961e513e-1c¤ ¤ f l-46961e513e-31¤ ” ¤ ¢4?” ¤ £>¢;BA;;;;JX^b
¤ ¤/0£e ¤ „n¢;BA;[;;;b;i¦© ¤ ¦/p„e ¤ §¦ ¤ Øg if¤ ©/Ø„e ¤ Ŗ/*„e ¤ «/,„e ¤ ¬«¦ ¤ E¢;B ¤ ®/"i ¤ ÆŖ¬® ¤ °g
struct-ref¤ ±/°„e ¤ ²¢;B ¤ ³/
²i ¤ “±¦³ ¤ µ/6„e ¤ ¶/y„e ¤ ·/9i ¤ ø¶· ¤ ¹µ¦ø ¤ ŗ©Æ“¹ ¤ »¤§ŗ ¤ ¼E;B ¤ ½/:¼i ¤ ¾g each¤ æ-- ¤ Ą¾æ ¤ Į-Ą¤ Ā-Į¤ Ć-Ā¤ Äg %%set-fields¤ Åg dummy¤ Ęg check?¤ Ēg expr¤ ČÅĘp\Ē ¤ Ég m-46961e513e-38¤ ŹÉ2 ¤ ĖŹnnnn ¤ Ģf l-46961e513e-3d¤ Ķf l-46961e513e-3e¤ Īf l-46961e513e-3f¤ Ļf l-46961e513e-40¤ Šf l-46961e513e-41¤ ŃĢĶĪĻŠ ¤ Ņ4ČĖŃ ¤ ÓŹ ¤ Ōf l-46961e513e-3a¤ ÕŌ ¤ Ö4=ÓÕ ¤ ×g t-1e8ba8b5a-3c4¤ Ųg t-1e8ba8b5a-3c6¤ Łg t-1e8ba8b5a-3c5¤ Ś×ŲŁ ¤ Ūg m-1e8ba8b5a-3c7¤ ÜŪ2 ¤ ŻÜÜÜ ¤ Žf l-1e8ba8b5a-3cb¤ ßf l-1e8ba8b5a-3cc¤ ąf l-1e8ba8b5a-3cd¤ įŽßą ¤ ā4ŚŻį ¤ ćf l-1e8ba8b5a-3c1¤ äf l-1e8ba8b5a-3c2¤ åf l-1e8ba8b5a-3c3¤ ęćäå ¤ ē4cdę ¤ čnŅ;ÖA;ā;;;ē¦©
¤ é/Äče ¤ źEŅ;Ö ¤ ė/"źi ¤ ģ/9źi ¤ ķģ ¤ īg map¤ ļī ¤ šī ¤ ńg list¤ ņg promise-val-set!¤ óg %promise-val-set!-procedure¤ ō,-- ¤ õg m-46961e513e-4c¤ öõ2 ¤ ÷g t-46961e513e-4a¤ ųg t-46961e513e-4b¤ ł÷ų ¤ śöö ¤ ūf l-46961e513e-51¤ üf l-46961e513e-52¤ żūü ¤ ž4łśż ¤ ’ö ¤ f l-46961e513e-4e¤ ¤ 4=’ ¤ öž;A;;;;JX^b
¤ /0e ¤ g t-1e8ba8b5a-3e6¤ g t-1e8ba8b5a-3e7¤ ¤ g m-1e8ba8b5a-3e8¤ 2 ¤
¤ f l-1e8ba8b5a-3ec¤ f l-1e8ba8b5a-3ed¤
¤ 4
¤ g setter¤ M\ ¤ f l-1e8ba8b5a-3e0¤ f l-1e8ba8b5a-3e1¤ f l-1e8ba8b5a-3e2¤ ¤ 4d ¤ ] ¤ f l-1e8ba8b5a-3d7¤ f l-1e8ba8b5a-3d8¤ ¤ 4F ¤ g field-specs¤ ¤ f l-1e8ba8b5a-3d3¤ f l-1e8ba8b5a-3d4¤ ¤ 4 F ¤ !nž;A;;; ¦© ¤ "/p!e ¤ #/g!e ¤ $"# ¤ %/Ø!e ¤ &/*!e ¤ '/,!e ¤ ('" ¤ )Ež; ¤ */")i ¤ +&(* ¤ ,g struct-set!¤ -/,!e ¤ .ž; ¤ //
.i ¤ 0-"/# ¤ 1/6!e ¤ 2/y!e ¤ 3/ņ)i ¤ 423 ¤ 51"4 ¤ 6%+05 ¤ 7$6 ¤ 8E; ¤ 9/ó8i ¤ :g %make-value-procedure¤ ;g
make-value¤ g t-46961e513e-6b¤ ?g t-46961e513e-6c¤ @>? ¤ A== ¤ Bf l-46961e513e-72¤ Cf l-46961e513e-73¤ DBC ¤ E4@AD ¤ F= ¤ Gf l-46961e513e-6f¤ HG ¤ I4=FH ¤ J=E;IA;;;;JX^b
¤ K/0Je ¤ Lg tag¤ MEE;I ¤ N/LMi ¤ Og proc¤ P/OMi ¤ QNP ¤ Rg m-46961e513e-69¤ SR2 ¤ TSE;IA;z;;;;¦© ¤ U/lTe ¤ V/LMi ¤ W/
Te ¤ XUVWNP ¤ YKQX ¤ ZE;I ¤ [/:Zi ¤ \g pwpw¤ ]LO ¤ ^g %value?-procedure¤ _g value?¤ `g m-46961e513e-7c¤ a`2 ¤ bg t-46961e513e-7b¤ cb ¤ da ¤ ef l-46961e513e-81¤ fe ¤ g4cdf ¤ hf l-46961e513e-7e¤ ih ¤ j4=di ¤ kag;jA;;;;JX^b
¤ l/0ke ¤ mSg;jA;ī;;;;ó;ų;ü;;; ;;!¦© ¤ n/Śme ¤ on ¤ p/%me ¤ q/'me ¤ rqn ¤ s/*me ¤ t/,me ¤ utn ¤ vEg;j ¤ w/Lvi ¤ xsuw ¤ yprx ¤ zloy ¤ {E;j ¤ |/^{i ¤ }g value-tag¤ ~g %value-tag-procedure¤ g m-46961e513e-88¤ 2 ¤ ¤ f l-46961e513e-8a¤ ¤ 4= ¤
;A;;;;JX^b ¤ /<
e ¤ ; ¤ - ¤ S;A;[;;;b;i¦© ¤ /Ge ¤ ; ¤ ,- ¤ ¤ f l-46961e513e-8d¤ f l-46961e513e-8e¤ ¤ 4q ¤ ;A;;;;JX^b
¤ /ne ¤ /ye ¤ E; ¤ /Li ¤ ¤ ¤ /e ¤ ; ¤ ,- ¤ f l-46961e513e-92¤ f l-46961e513e-93¤ ¤ 4q ¤ ;A;;;;JX^b
¤ ”/n e ¤ ¢/y e ¤ £; ¤ ¤/
£i ¤ „¢¤ ¤ ¦„ ¤ §/e ¤ Ø;§ ¤ ©,Ø- ¤ Ŗf l-46961e513e-97¤ «f l-46961e513e-98¤ ¬Ŗ« ¤ 4q¬ ¤ ®;A;;;;JX^b
¤ Æ/n®e ¤ °/y®e ¤ ±g %%value-set-fields¤ ²E; ¤ ³/±²i ¤ “°³ ¤ µ“ ¤ ¶g t-46961e513e-87¤ ·¶ ¤ øf l-46961e513e-9c¤ ¹ø ¤ ŗ4·¹ ¤ »ŗ;A;;;;JX^b
¤ ¼/0»e ¤ ½Sŗ;A;[;;;b;i¦© ¤ ¾/p½e ¤ æ¾ ¤ Ą/ؽe ¤ Į/*½e ¤ Ā/,½e ¤ ĆĀ¾ ¤ ÄEŗ; ¤ Å/LÄi ¤ ĘĮĆÅ ¤ Ē/°½e ¤ Čŗ; ¤ É/
Či ¤ ŹĒ¾É ¤ Ė/6½e ¤ Ģ/y½e ¤ Ķ/}Äi ¤ ĪĢĶ ¤ ĻĖ¾Ī ¤ ŠĄĘŹĻ ¤ Ń¼æŠ ¤ ŅE; ¤ Ó/~Ņi ¤ Ōg
value-proc¤ Õg %value-proc-procedure¤ Ög m-46961e513e-a3¤ ×Ö2 ¤ Ų× ¤ Łf l-46961e513e-a5¤ ŚŁ ¤ Ū4=ŲŚ ¤ Ü×;ŪA;;;;JX^b ¤ Ż/<Üe ¤ Ž;Ż ¤ ߎ- ¤ ąS;ŪA;[;;;b;i¦© ¤ į/Gąe ¤ ā;į ¤ ć,ßā- ¤ ä×× ¤ åf l-46961e513e-a8¤ ęf l-46961e513e-a9¤ ēåę ¤ č4qäē ¤ é×č;ŪA;;;;JX^b
¤ ź/née ¤ ė/yée ¤ ģEč;Ū ¤ ķ/Lģi ¤ īėķ ¤ ļī ¤ š/ąe ¤ ń;š ¤ ņ,ßń- ¤ óf l-46961e513e-ad¤ ōf l-46961e513e-ae¤ õóō ¤ ö4qäõ ¤ ÷×ö;ŪA;;;;JX^b
¤ ų/n÷e ¤ ł/y÷e ¤ śö;Ū ¤ ū/ śi ¤ üłū ¤ żü ¤ ž/ąe ¤ ’;ž ¤ ,ß’- ¤ f l-46961e513e-b2¤ f l-46961e513e-b3¤ ¤ 4qä ¤ ×;ŪA;;;;JX^b
¤ /ne ¤ /ye ¤ E;Ū ¤ /±i ¤
¤
¤ g t-46961e513e-a2¤
¤ f l-46961e513e-b7¤ ¤ 4
Ų ¤ ×;ŪA;;;;JX^b
¤ /0e ¤ S;ŪA;[;;;b;i¦© ¤ /pe ¤ ¤ /Øe ¤ /*e ¤ /,e ¤ ¤ E;Ū ¤ /Li ¤ ¤ /°e ¤ ;Ū ¤ / i ¤ ¤ !/6e ¤ "/ye ¤ #/Ōi ¤ $"# ¤ %!$ ¤ & % ¤ '& ¤ (E;Ū ¤ )/Õ(i ¤ *g m-46961e513e-be¤ +*2 ¤ ,+SSSS ¤ -f l-46961e513e-c3¤ .f l-46961e513e-c4¤ /f l-46961e513e-c5¤ 0f l-46961e513e-c6¤ 1f l-46961e513e-c7¤ 2-./01 ¤ 34Č,2 ¤ 4+ ¤ 5f l-46961e513e-c0¤ 65 ¤ 74=46 ¤ 8S3;7A;ā;;;ē¦©
¤ 9/Ä8e ¤ :E3;7 ¤ ;/L:i ¤ </}:i ¤ =/Ō:i ¤ ><= ¤ ?g value-tag-set!¤ @g %value-tag-set!-procedure¤ Ag m-46961e513e-d2¤ BA2 ¤ Cg t-46961e513e-d0¤ Dg t-46961e513e-d1¤ ECD ¤ FBB ¤ Gf l-46961e513e-d7¤ Hf l-46961e513e-d8¤ IGH ¤ J4EFI ¤ KB ¤ Lf l-46961e513e-d4¤ ML ¤ N4=KM ¤ OBJ;NA;;;;JX^b
¤ P/0Oe ¤ QSJ;NA;;; ¦© ¤ R/pQe ¤ S/gQe ¤ TRS ¤ U/ØQe ¤ V/*Qe ¤ W/,Qe ¤ XWR ¤ YEJ;N ¤ Z/LYi ¤ [VXZ ¤ \/,Qe ¤ ]J;N ¤ ^/
]i ¤ _\R^S ¤ `/6Qe ¤ a/yQe ¤ b/?Yi ¤ cab ¤ d`Rc ¤ eU[_d ¤ fPTe ¤ gE;N ¤ h/@gi ¤ ig value-proc-set!¤ jg %value-proc-set!-procedure¤ kg m-46961e513e-e2¤ lk2 ¤ mg t-46961e513e-e0¤ ng t-46961e513e-e1¤ omn ¤ pll ¤ qf l-46961e513e-e7¤ rf l-46961e513e-e8¤ sqr ¤ t4ops ¤ ul ¤ vf l-46961e513e-e4¤ wv ¤ x4=uw ¤ ylt;xA;;;;JX^b
¤ z/0ye ¤ {St;xA;;; ¦© ¤ |/p{e ¤ }/g{e ¤ ~|} ¤ /Ø{e ¤ /*{e ¤ /,{e ¤ | ¤ Et;x ¤ /Li ¤
¤ /,{e ¤ t;x ¤ / i ¤ |} ¤ /6{e ¤ /y{e ¤ /ii ¤ ¤ | ¤
¤ z~ ¤ E;x ¤ /ji ¤ g exp¤ Å ¤ g m-46961e513e-107¤ 2 ¤ E ¤ f l-46961e513e-10c¤ f l-46961e513e-10d¤ ¤ 4 ¤ ¤ f l-46961e513e-109¤ ¤ 4= ¤ E; ¤ ”/' i ¤ ¢/; i ¤ £/y i ¤ ¤/ i ¤ „£¤ ¤ ¦/0 i ¤ §g m-46961e513e-11b¤ ا2 ¤ ©ØE ¤ Ŗf l-46961e513e-120¤ «f l-46961e513e-121¤ ¬Ŗ« ¤ 4©¬ ¤ ®Ø ¤ Æf l-46961e513e-11d¤ °Æ ¤ ±4=®° ¤ ²E;± ¤ ³/²i ¤ “/²i ¤ µg on-eagerS¤ ¶µ ¤ ·g on-lazyS¤ ø· ¤ ¹¶ø ¤ ŗg
promise-visit¤ »g set-record-type-printer!¤ ¼g format¤ ½f #¤ ¾f # ~s>¤C 5hš4 Ę ]4
5 4 > " G 4 i4 i5 !> " G " h x ] Ø C p g val
g filenamef srfi/srfi-45.scm
.
g nameg %make-promise-procedure C#R4&'(+.Æ h 6 ] C . g t-46961e513e-3
C±“'µ h S ]L 6 K g a
g filenamef srfi/srfi-45.scm .
C,ø h C ] L 6; g filenamef srfi/srfi-45.scm .
Cŗ h ] C
C¼½ hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 | g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-45.scm
.
n C5'RĄĮÄ"ÅØ 4Č "> " G Ė#iŖ "R" h t ] ¦$ §CC l g obj
g filenamef srfi/srfi-45.scm
.
g nameg %promise?-procedure CĢR4&(+.3 h 7 ] C / g t-46961e513e-10
C±“µ h S ]L 6 K g a
g filenamef srfi/srfi-45.scm .
C,ø h C ] L 6; g filenamef srfi/srfi-45.scm .
C5 h ] C
C¼½ hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 | g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-45.scm
.
n C5R"89 h u ] §&
©C 6m g s
g filenamef srfi/srfi-45.scm
.
g nameg %promise-val-procedure C:R4&9(+mx~ h : ]C 2 g err
g s C h : ]C 2 g err
g s C h : ]C 2 g err
g s C.» h 7 ] C / g t-46961e513e-1c
C±“9µ h S ]L 6 K g a
g filenamef srfi/srfi-45.scm .
C,ø h C ] L 6; g filenamef srfi/srfi-45.scm .
C½ h ] C
C¼½ hø Ą ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 ø g x
³ g tmp ³ g tmp " ³ g tmp 9 ³ g tmp P ³ g tmp g ³ g tmp ³ g filenamef srfi/srfi-45.scm
.
³ C59R4&(+Ćéėķšń h v ]45C n g dummy
g check? g s g getter g expr C¼½ h( ¾ ] 4 5 $ @ 6 ¶ g x
" g tmp " g filenamef srfi/srfi-45.scm
.
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5R"8ņ h ] §&
ŖC 6 g s
g val g filenamef srfi/srfi-45.scm
.
g nameg %promise-val-set!-procedure CóR4&ņ(+ō7 h T ] C L g t-46961e513e-4a
g t-46961e513e-4b C±“ņµ h S ]L 6 K g a
g filenamef srfi/srfi-45.scm .
C,ø h C ] L 6; g filenamef srfi/srfi-45.scm .
C9 h ] C
C¼½ hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 | g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-45.scm
.
n C5ņRL h ] Ø C g tag
g proc g filenamef srfi/srfi-45.scm
1
g nameg %make-value-procedure C:R4&;(+ōY h T ] C L g t-46961e513e-6b
g t-46961e513e-6c C±“;µ h S ]L 6 K g a
g filenamef srfi/srfi-45.scm 1
C,ø h C ] L 6; g filenamef srfi/srfi-45.scm 1
C[ h ] C
C¼½ hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 | g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-45.scm
1
n C5;RĄ\ÄL]Ø 4Č L> " G Ė:iŖ LRL h r ] ¦$ §CC j g obj
g filenamef srfi/srfi-45.scm
1
g nameg %value?-procedure C^R4&_(+.z h 7 ] C / g t-46961e513e-7b
C±“_µ h S ]L 6 K g a
g filenamef srfi/srfi-45.scm 1
C,ø h C ] L 6; g filenamef srfi/srfi-45.scm 1
C| h ] C
C¼½ hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 | g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-45.scm
1
n C5_RL8} h s ] §&
©C 6k g s
g filenamef srfi/srfi-45.scm
1
g nameg %value-tag-procedure C~R4&}(+ h : ]C 2 g err
g s C”¦ h : ]C 2 g err
g s C©Æµ h : ]C 2 g err
g s C.Ń h 7 ] C / g t-46961e513e-87
C±“}µ h S ]L 6 K g a
g filenamef srfi/srfi-45.scm 1
C,ø h C ] L 6; g filenamef srfi/srfi-45.scm 1
CÓ h ] C
C¼½ hø Ą ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 ø g x
³ g tmp ³ g tmp " ³ g tmp 9 ³ g tmp P ³ g tmp g ³ g tmp ³ g filenamef srfi/srfi-45.scm
1
³ C5}RL8Ō h t ] §& ©C 6l g s
g filenamef srfi/srfi-45.scm
1
g nameg %value-proc-procedure CÕR4&Ō(+ćźļ h : ]C 2 g err
g s Cņųż h : ]C 2 g err
g s C h : ]C 2 g err
g s C.' h 7 ] C / g t-46961e513e-a2
C±“Ōµ h S ]L 6 K g a
g filenamef srfi/srfi-45.scm 1
C,ø h C ] L 6; g filenamef srfi/srfi-45.scm 1
C) h ] C
C¼½ hø Ą ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 ø g x
³ g tmp ³ g tmp " ³ g tmp 9 ³ g tmp P ³ g tmp g ³ g tmp ³ g filenamef srfi/srfi-45.scm
1
³ C5ŌR4&±(+Ć9;>šń h v ]45C n g dummy
g check? g s g getter g expr C¼½ h( ¾ ] 4 5 $ @ 6 ¶ g x
" g tmp " g filenamef srfi/srfi-45.scm
1
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5±RL8? h ] §&
ŖC 6 g s
g val g filenamef srfi/srfi-45.scm
1
g nameg %value-tag-set!-procedure C@R4&?(+ōf h T ] C L g t-46961e513e-d0
g t-46961e513e-d1 C±“?µ h S ]L 6 K g a
g filenamef srfi/srfi-45.scm 1
C,ø h C ] L 6; g filenamef srfi/srfi-45.scm 1
Ch h ] C
C¼½ hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 | g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-45.scm
1
n C5?RL8i h ] §& ŖC 6 g s
g val g filenamef srfi/srfi-45.scm
1
g nameg %value-proc-set!-procedure CjR4&i(+ō h T ] C L g t-46961e513e-e0
g t-46961e513e-e1 C±“iµ h S ]L 6 K g a
g filenamef srfi/srfi-45.scm 1
C,ø h C ] L 6; g filenamef srfi/srfi-45.scm 1
C h ] C
C¼½ hp ]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 | g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-45.scm
1
n C5iR4&(+攢„¦ h > ] C 6 g dummy
g exp C¼½ h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-45.scm
5
" g
macro-typeg syntax-rulesg patternsg exp C5RL" h ] Ø Ø C g x
g val g filenamef srfi/srfi-45.scm
8
9 9 9 g nameg eager CR4&(+泓 h > ] C 6 g dummy
g exp C¼½ h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-45.scm
;
" g
macro-typeg syntax-rulesg patternsg exp C5R"89L}Ō?iņ
hĄ ¾ ]) §&
©" 4 5 §&
©" 45 $ §& ©C6$ Y4§& ©" 455 §&
©" 4 5 §&
©" 45& " ō§&
©" 45 §&
©" 45 §&
Ŗ" 4 > " G §&
©" 45 §& ©" 45 §& Ŗ" 4
> " G §&
Ŗ" 4 > " G 6C ¶ g promise
½ g content ½ g key 8 ½ g promise* » g content » g s Ū ś g val ś ' g s A ` g val ` g filenamef srfi/srfi-45.scm
>
? ? ! @
8 @ F A b @ c B B C B D 4 ¢ D ½ D Ä F 7 Ū F , ś E * H 9 A H - ` G I » J ½ g nameg force CR¹"89L}Ō
h° 0 - / 0 3 # # H §&
©" 4 5KJ§& J
©" 4J5 $ J§& J ©" 4J56 $ J§& J ©" 4J56C( g promise
° g on-eager ° g on-lazy ° g content & ° g key ^ ° g filenamef srfi/srfi-45.scm
P
+ Q G R ^ R n S S
R T ® T
°
g on-eagerS g on-lazyS g nameg
promise-visit CŗR»i"iŗµ¼½ h g ]L 6 _ g value
g filenamef srfi/srfi-45.scm
Y Z Z C·¼¾ h f ]L 6 ^ g proc
g filenamef srfi/srfi-45.scm
[ \ \ C h s ] O O 6 k g promise
g port g filenamef srfi/srfi-45.scm
W X C6 ¾ g m
0 g rtd
~ ¦ g rtd
Q z g filenamef srfi/srfi-45.scm "
1 ,
6 , > , & C ,
ė .
1
, 8
1 >
3 P
4ķ V
4ķ
C6 PK ! ē6 h¬Æ ¬Æ
srfi-64.gonu [µü¤ GOOF----LE-8-2.0Æ ] 4 hC ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-64¤ ¤ g filenameS¤
f srfi/srfi-64.scm¤ g exportsS¤ g
test-begin¤
g test-end¤ g test-assert¤ g test-eqv¤ g test-eq¤ g
test-equal¤ g test-approximate¤ g
test-error¤ g
test-apply¤ g test-with-runner¤ g test-match-nth¤ g test-match-all¤ g test-match-any¤ g test-match-name¤ g test-skip¤ g test-expect-fail¤ g test-read-eval-string¤ g test-runner-group-path¤ g
test-group¤ g test-group-with-cleanup¤ g test-result-ref¤ !g test-result-set!¤ "g test-result-clear¤ #g test-result-remove¤ $g test-result-kind¤ %g test-passed?¤ &g test-log-to-file¤ 'g test-runner?¤ (g test-runner-reset¤ )g test-runner-null¤ *g test-runner-simple¤ +g test-runner-current¤ ,g test-runner-factory¤ -g test-runner-get¤ .g test-runner-create¤ /g test-runner-test-name¤ 0g test-runner-pass-count¤ 1g test-runner-pass-count!¤ 2g test-runner-fail-count¤ 3g test-runner-fail-count!¤ 4g test-runner-xpass-count¤ 5g test-runner-xpass-count!¤ 6g test-runner-xfail-count¤ 7g test-runner-xfail-count!¤ 8g test-runner-skip-count¤ 9g test-runner-skip-count!¤ :g test-runner-group-stack¤ ;g test-runner-group-stack!¤ g test-runner-on-test-end¤ ?g test-runner-on-test-end!¤ @g test-runner-on-group-begin¤ Ag test-runner-on-group-begin!¤ Bg test-runner-on-group-end¤ Cg test-runner-on-group-end!¤ Dg test-runner-on-final¤ Eg test-runner-on-final!¤ Fg test-runner-on-bad-count¤ Gg test-runner-on-bad-count!¤ Hg test-runner-on-bad-end-name¤ Ig test-runner-on-bad-end-name!¤ Jg test-result-alist¤ Kg test-result-alist!¤ Lg test-runner-aux-value¤ Mg test-runner-aux-value!¤ Ng test-on-group-begin-simple¤ Og test-on-group-end-simple¤ Pg test-on-bad-count-simple¤ Qg test-on-bad-end-name-simple¤ Rg test-on-final-simple¤ Sg test-on-test-end-simple¤ T
!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSR J¤ Ug set-current-module¤ VU ¤ WU ¤ Xg cond-expand-provide¤ Yg current-module¤ Z ¤ [g process-use-modules¤ \[ ¤ ][ ¤ ^g srfi-9¤ _^ ¤ `_ ¤ ag srfi-39¤ ba ¤ cb ¤ dg make-syntax-transformer¤ ed ¤ fd ¤ gg %test-export¤ hg macro¤ ig $sc-dispatch¤ ji ¤ ki ¤ lg any¤ mll¤ ng
syntax-object¤ og if¤ pg top¤ qp ¤ rg ribcage¤ sg dummy¤ tg names¤ ust ¤ vg m-46961e5187-6¤ wvp ¤ xwq ¤ yf l-46961e5187-b¤ zf l-46961e5187-c¤ {yz ¤ |rux{ ¤ }r ¤ ~g x¤ ~ ¤ w ¤ f l-46961e5187-8¤ ¤ r ¤ q|} ¤
g hygiene¤
¤ no ¤ n ¤ ¤ g syntax-violation¤ ¤ ¤ f -source expression failed to match any pattern¤ g %test-record-define¤ g each¤ llll ¤ ¤ l¤ l¤ l¤ g define-record-type¤ g alloc¤ g runner?¤ g name¤ g index¤ g setter¤ g getter¤ s ¤ g m-46961e5187-11¤ p ¤ qqqqqq ¤ f l-46961e5187-16¤ ”f l-46961e5187-17¤ ¢f l-46961e5187-18¤ £f l-46961e5187-19¤ ¤f l-46961e5187-1a¤ „f l-46961e5187-1b¤ ¦f l-46961e5187-1c¤ § ”¢£¤„¦ ¤ Ør§ ¤ © ¤ Ŗf l-46961e5187-13¤ «Ŗ ¤ ¬r©« ¤ qØ}¬ ¤ ®n ¤ Æg test-runner¤ °nÆ ¤ ±g map¤ ²± ¤ ³± ¤ “g list¤ µg %%test-runner-alloc-procedure¤ ¶g %test-runner-alloc¤ ·g _¤ ø· ¤ ¹g lambda¤ ŗg m-46961e5187-2b¤ »ŗp ¤ ¼» ¤ ½f l-46961e5187-2d¤ ¾½ ¤ ær¼¾ ¤ Ąg shift¤ Įg proc-name¤ Āg args¤ ĆĮĀ ¤ Äqq ¤ Åf l-1e8ba8b5a-2ba¤ Ęf l-1e8ba8b5a-2bb¤ ĒÅĘ ¤ ČrĆÄĒ ¤ Ég key¤ Źg value¤ Ėg formals¤ Ģg body¤ ĶÉŹĖĢ ¤ Īqqqqq ¤ Ļf l-1e8ba8b5a-2ad¤ Šf l-1e8ba8b5a-2ae¤ Ńf l-1e8ba8b5a-2af¤ Ņf l-1e8ba8b5a-2b0¤ Óf l-1e8ba8b5a-2b1¤ ŌĻŠŃŅÓ ¤ ÕrĶĪŌ ¤ Ög make-procedure-name¤ ×Ö ¤ Ųq ¤ Łf l-1e8ba8b5a-29d¤ ŚŁ ¤ Ūr×ŲŚ ¤ Üq ¤ Żf l-1e8ba8b5a-29c¤ ŽŻ ¤ ßrÜŽ ¤ ą»}æĄ}}}}ČÕŪß ¤ į
^ ¤ ān¹ąį ¤ ćg make-struct¤ äg m-46961e5187-29¤ åäp ¤ ęg t-1e8ba8b5a-38d¤ ēg t-1e8ba8b5a-38c¤ čg t-1e8ba8b5a-38b¤ éęēč ¤ źg m-1e8ba8b5a-38e¤ ėźp ¤ ģėėė ¤ ķf l-1e8ba8b5a-392¤ īf l-1e8ba8b5a-393¤ ļf l-1e8ba8b5a-394¤ šķīļ ¤ ńréģš ¤ ņg ctor-args¤ óņ ¤ ōf l-1e8ba8b5a-37a¤ õō ¤ öróÜõ ¤ ÷g ctor¤ ųg field¤ ł÷ų ¤ śf l-1e8ba8b5a-376¤ ūf l-1e8ba8b5a-377¤ üśū ¤ żrłÄü ¤ žg form¤ ’g type-name¤ g constructor-spec¤ g field-names¤ ž’ ¤ qqqq ¤ f l-1e8ba8b5a-36b¤ f l-1e8ba8b5a-36c¤ f l-1e8ba8b5a-36d¤ f l-1e8ba8b5a-36e¤ ¤ r ¤
g
record-layout¤ g functional-setters¤ g setters¤
g copier¤ g getters¤ g constructor¤ g getter-identifiers¤ g field-identifiers¤
¤ qqqqqqqq ¤ f l-1e8ba8b5a-343¤ f l-1e8ba8b5a-341¤ f l-1e8ba8b5a-33f¤ f l-1e8ba8b5a-33d¤ f l-1e8ba8b5a-33b¤ f l-1e8ba8b5a-339¤ f l-1e8ba8b5a-337¤ f l-1e8ba8b5a-335¤ ¤ r ¤ f l-1e8ba8b5a-334¤ ¤ rÜ ¤ !å}æĄ}ń}}}öż} ¤ "nć!į ¤ #g m-46961e5187-27¤ $#p ¤ %$}æĄØ}¬ ¤ &nÆ% ¤ 'n
!į ¤ (}æ ¤ )n( ¤ *"&')))))))))))))))))))))) ¤ +ā* ¤ ,+ ¤ -g each-any¤ .·-¤ /_ ¤ 0_ ¤ 1f Wrong number of arguments¤ 2g identifier?¤ 3_2 ¤ 4_2 ¤ 5q}æ ¤ 6nµ5 ¤ 7g record-type-vtable¤ 8_7 ¤ 9_7 ¤ :g ,pwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpwpw¤ ;g default-record-printer¤ <_; ¤ =_; ¤ >g
pass-count¤ ?g
fail-count¤ @g xpass-count¤ Ag xfail-count¤ Bg
skip-count¤ Cg skip-list¤ Dg fail-list¤ Eg run-list¤ Fg skip-save¤ Gg fail-save¤ Hg group-stack¤ Ig
on-test-begin¤ Jg on-test-end¤ Kg on-group-begin¤ Lg on-group-end¤ Mg on-final¤ Ng on-bad-count¤ Og on-bad-end-name¤ Pg total-count¤ Qg
count-list¤ Rg result-alist¤ Sg aux-value¤ T>?@ABCDEFGHIJKLMNOPQRS ¤ Ug set-struct-vtable-name!¤ V_U ¤ W_U ¤ Xg vtable-offset-user¤ Y_X ¤ Z_X ¤ [g %test-runner?-procedure¤ \·l ¤ ]g m-46961e5187-36¤ ^]p ¤ _g t-46961e5187-35¤ `_ ¤ a^ ¤ bf l-46961e5187-3b¤ cb ¤ dr`ac ¤ ef l-46961e5187-38¤ fe ¤ graf ¤ h^d}gĄ}}}}ČÕŪß
¤ in¹hį ¤ jg obj¤ kg t-1e8ba8b5a-47e¤ lg t-1e8ba8b5a-478¤ mg t-1e8ba8b5a-479¤ ng t-1e8ba8b5a-47a¤ og t-1e8ba8b5a-47d¤ pg t-1e8ba8b5a-47c¤ qg t-1e8ba8b5a-47b¤ rklmnopq ¤ sg m-1e8ba8b5a-47f¤ tsp ¤ uttttttt ¤ vf l-1e8ba8b5a-483¤ wf l-1e8ba8b5a-484¤ xf l-1e8ba8b5a-485¤ yf l-1e8ba8b5a-486¤ zf l-1e8ba8b5a-487¤ {f l-1e8ba8b5a-488¤ |f l-1e8ba8b5a-489¤ }vwxyz{| ¤ ~rru} ¤ g copier-id¤ ¤ f l-1e8ba8b5a-476¤ ¤ rÜ ¤ g ctor-name¤
¤ f l-1e8ba8b5a-46e¤ ¤ r
Ü ¤ ¤ f l-1e8ba8b5a-46c¤ ¤ rÜ ¤ g layout¤ ¤ f l-1e8ba8b5a-46a¤ ¤ rÜ ¤ g
immutable?¤ ¤ f l-1e8ba8b5a-468¤ ¤ rÜ ¤ g field-count¤ ¤ f l-1e8ba8b5a-466¤ ¤ rÜ ¤ g
getter-ids¤ ¤ f l-1e8ba8b5a-463¤ ¤ rÜ ¤ ”g field-ids¤ ¢” ¤ £f l-1e8ba8b5a-460¤ ¤£ ¤ „r¢Ü¤ ¤ ¦g predicate-name¤ §g
field-spec¤ Øž’ ¦§ ¤ ©qqqqqq ¤ Ŗf l-1e8ba8b5a-453¤ «f l-1e8ba8b5a-454¤ ¬f l-1e8ba8b5a-455¤ f l-1e8ba8b5a-456¤ ®f l-1e8ba8b5a-457¤ Æf l-1e8ba8b5a-458¤ °Ŗ«¬®Æ ¤ ±rØ©° ¤ ²åd}gĄ}~}}}}}}}}}} }„± ¤ ³nj²į ¤ “³ ¤ µg and¤ ¶nµ²į ¤ ·g struct?¤ øn·²į ¤ ¹ø³ ¤ ŗg eq?¤ »nŗ²į ¤ ¼g
struct-vtable¤ ½n¼²į ¤ ¾½³ ¤ æ$d}gĄØ}¬ ¤ ĄnÆæ ¤ Į»¾Ą ¤ Ā¶¹Į ¤ Ći“Ā ¤ Äq}g ¤ Ån[Ä ¤ Ęg throw-bad-struct¤ Ē_Ę ¤ Č_Ę ¤ Ég !%test-runner-pass-count-procedure¤ Źg free-id¤ Ėg
%%on-error¤ Ģg m-46961e5187-42¤ ĶĢp ¤ ĪĶ ¤ Ļf l-46961e5187-44¤ ŠĻ ¤ ŃrĪŠ ¤ ŅĶ}ŃĄ}}}}ČÕŪß ¤ ÓnĖŅį ¤ ŌŹÓ ¤ ÕŌl ¤ Ög %%type¤ ×g t-1e8ba8b5a-3a5¤ Ųg t-1e8ba8b5a-3a6¤ Łg t-1e8ba8b5a-3a7¤ Śg t-1e8ba8b5a-3a8¤ Ūg t-1e8ba8b5a-3a9¤ Üg t-1e8ba8b5a-3aa¤ Żg t-1e8ba8b5a-3ab¤ Ž×ŲŁŚŪÜŻ ¤ ßg m-1e8ba8b5a-3ac¤ ąßp ¤ įąąąąąąą ¤ āf l-1e8ba8b5a-3b0¤ ćf l-1e8ba8b5a-3b1¤ äf l-1e8ba8b5a-3b2¤ åf l-1e8ba8b5a-3b3¤ ęf l-1e8ba8b5a-3b4¤ ēf l-1e8ba8b5a-3b5¤ čf l-1e8ba8b5a-3b6¤ éāćäåęēč ¤ źrŽįé ¤ ė ¤ ģf l-1e8ba8b5a-3a3¤ ķf l-1e8ba8b5a-3a4¤ īģķ ¤ ļrėÄī ¤ š’ ¤ ńqqq ¤ ņf l-1e8ba8b5a-39e¤ óf l-1e8ba8b5a-39f¤ ōf l-1e8ba8b5a-3a0¤ õņóō ¤ öršńõ ¤ ÷å}ŃĄ}ź}}}ļ}ö ¤ ųnÖ÷į ¤ łŹų ¤ ś·Õłl ¤ ūg ck¤ üg err¤ żg s¤ žüż ¤ ’ĶĶ ¤ f l-46961e5187-47¤ f l-46961e5187-48¤ ¤ rž’ ¤ Ķ}ŃĄ}}}}ČÕŪß
¤ nūį ¤ g quote¤ nį ¤ $}ŃĄØ}¬ ¤ nÆ ¤
¤
¤ g %%index¤
n ÷į ¤ Ź
¤ ·Õl ¤ f l-46961e5187-4c¤ f l-46961e5187-4d¤ ¤ rž’ ¤ Ķ}ŃĄ}}}}ČÕŪß
¤ nūį ¤ nį ¤ }Ń ¤ n
¤ ¤ ¤ g %%copier¤ n÷į ¤ Ź ¤ ·Õ l ¤ f l-46961e5187-51¤ f l-46961e5187-52¤ ! ¤ "rž’! ¤ #Ķ"}ŃĄ}}}}ČÕŪß
¤ $nū#į ¤ %n#į ¤ &g %%test-runner-set-fields¤ '$"}ŃĄØ}¬ ¤ (n&' ¤ )%( ¤ *) ¤ +g t-46961e5187-41¤ ,+ ¤ -f l-46961e5187-56¤ .- ¤ /r,Ī. ¤ 0Ķ/}ŃĄ}}}}ČÕŪß
¤ 1n¹0į ¤ 2å/}ŃĄ}ź}}}ļ}ö ¤ 3nż2į ¤ 43 ¤ 5no2į ¤ 6nŗ2į ¤ 7n¼2į ¤ 873 ¤ 9$/}ŃĄØ}¬ ¤ :nÆ9 ¤ ;68: ¤ /}Ń ¤ ?n
> ¤ @=3? ¤ AnĘ2į ¤ Bn2į ¤ Cq/}Ń ¤ Dn0C ¤ EBD ¤ FA3E ¤ G5;@F ¤ H14G ¤ Iq}Ń ¤ JnÉI ¤ Kg !%test-runner-fail-count-procedure¤ Lg m-46961e5187-5d¤ MLp ¤ NM ¤ Of l-46961e5187-5f¤ PO ¤ QrNP ¤ RM}QĄ}}}}ČÕŪß ¤ SnĖRį ¤ TŹS ¤ UTl ¤ Vå}QĄ}ź}}}ļ}ö ¤ WnÖVį ¤ XŹW ¤ Y·UXl ¤ ZMM ¤ [f l-46961e5187-62¤ \f l-46961e5187-63¤ ][\ ¤ ^ržZ] ¤ _M^}QĄ}}}}ČÕŪß
¤ `nū_į ¤ an_į ¤ b$^}QĄØ}¬ ¤ cnÆb ¤ dac ¤ ed ¤ fn Vį ¤ gŹf ¤ h·Ugl ¤ if l-46961e5187-67¤ jf l-46961e5187-68¤ kij ¤ lržZk ¤ mMl}QĄ}}}}ČÕŪß
¤ nnūmį ¤ onmį ¤ pl}Q ¤ qn p ¤ roq ¤ sr ¤ tnVį ¤ uŹt ¤ v·Uul ¤ wf l-46961e5187-6c¤ xf l-46961e5187-6d¤ ywx ¤ zržZy ¤ {Mz}QĄ}}}}ČÕŪß
¤ |nū{į ¤ }n{į ¤ ~$z}QĄØ}¬ ¤ n&~ ¤ } ¤ ¤ g t-46961e5187-5c¤ ¤ f l-46961e5187-71¤
¤ rN
¤ M}QĄ}}}}ČÕŪß
¤ n¹į ¤ å}QĄ}ź}}}ļ}ö ¤ nżį ¤ ¤ noį ¤ nŗį ¤ n¼į ¤ ¤ $}QĄØ}¬ ¤ nÆ ¤ ¤ n<į ¤ }Q ¤ n ¤ ¤ nĘį ¤ nį ¤ q}Q ¤ n2 ¤ ¤ ¤ ¤ ¤ q}Q ¤ nK ¤ ”g "%test-runner-xpass-count-procedure¤ ¢g m-46961e5187-78¤ £¢p ¤ ¤£ ¤ „f l-46961e5187-7a¤ ¦„ ¤ §r¤¦ ¤ Ø£}§Ą}}}}ČÕŪß ¤ ©nĖØį ¤ ŖŹ© ¤ «Ŗl ¤ ¬å}§Ą}ź}}}ļ}ö ¤ nÖ¬į ¤ ®Ź ¤ Æ·«®l ¤ °££ ¤ ±f l-46961e5187-7d¤ ²f l-46961e5187-7e¤ ³±² ¤ “rž°³ ¤ µ£“}§Ą}}}}ČÕŪß
¤ ¶nūµį ¤ ·nµį ¤ ø$“}§ĄØ}¬ ¤ ¹nÆø ¤ ŗ·¹ ¤ »ŗ ¤ ¼n ¬į ¤ ½Ź¼ ¤ ¾·«½l ¤ æf l-46961e5187-82¤ Ąf l-46961e5187-83¤ ĮæĄ ¤ Ārž°Į ¤ Ć£Ā}§Ą}}}}ČÕŪß
¤ ÄnūĆį ¤ ÅnĆį ¤ ĘĀ}§ ¤ Ēn Ę ¤ ČÅĒ ¤ ÉČ ¤ Źn¬į ¤ ĖŹŹ ¤ Ģ·«Ėl ¤ Ķf l-46961e5187-87¤ Īf l-46961e5187-88¤ ĻĶĪ ¤ Šrž°Ļ ¤ Ń£Š}§Ą}}}}ČÕŪß
¤ ŅnūŃį ¤ ÓnŃį ¤ Ō$Š}§ĄØ}¬ ¤ Õn&Ō ¤ ÖÓÕ ¤ ×Ö ¤ Ųg t-46961e5187-77¤ ŁŲ ¤ Śf l-46961e5187-8c¤ ŪŚ ¤ ÜrŁ¤Ū ¤ Ż£Ü}§Ą}}}}ČÕŪß
¤ Žn¹Żį ¤ ßåÜ}§Ą}ź}}}ļ}ö ¤ ąnżßį ¤ įą ¤ ānoßį ¤ ćnŗßį ¤ än¼ßį ¤ åäą ¤ ę$Ü}§ĄØ}¬ ¤ ēnÆę ¤ čćåē ¤ én<ßį ¤ źÜ}§ ¤ ėn ź ¤ ģéąė ¤ ķnĘßį ¤ īnßį ¤ ļqÜ}§ ¤ šn4ļ ¤ ńīš ¤ ņķąń ¤ óāčģņ ¤ ōŽįó ¤ õq}§ ¤ ön”õ ¤ ÷g "%test-runner-xfail-count-procedure¤ ųg m-46961e5187-93¤ łųp ¤ śł ¤ ūf l-46961e5187-95¤ üū ¤ żrśü ¤ žł}żĄ}}}}ČÕŪß ¤ ’nĖžį ¤ Ź’ ¤ l ¤ å}żĄ}ź}}}ļ}ö ¤ nÖį ¤ Ź ¤ ·l ¤ łł ¤ f l-46961e5187-98¤ f l-46961e5187-99¤ ¤
rž ¤ ł
}żĄ}}}}ČÕŪß
¤ nū į ¤
n į ¤ $
}żĄØ}¬ ¤ nÆ ¤
¤ ¤ n į ¤ Ź ¤ ·l ¤ f l-46961e5187-9d¤ f l-46961e5187-9e¤ ¤ rž ¤ ł}żĄ}}}}ČÕŪß
¤ nūį ¤ nį ¤ }ż ¤ n ¤ ¤ ¤ nį ¤ !Ź ¤ "·!l ¤ #f l-46961e5187-a2¤ $f l-46961e5187-a3¤ %#$ ¤ &rž% ¤ 'ł&}żĄ}}}}ČÕŪß
¤ (nū'į ¤ )n'į ¤ *$&}żĄØ}¬ ¤ +n&* ¤ ,)+ ¤ -, ¤ .g t-46961e5187-92¤ /. ¤ 0f l-46961e5187-a7¤ 10 ¤ 2r/ś1 ¤ 3ł2}żĄ}}}}ČÕŪß
¤ 4n¹3į ¤ 5å2}żĄ}ź}}}ļ}ö ¤ 6nż5į ¤ 76 ¤ 8no5į ¤ 9nŗ5į ¤ :n¼5į ¤ ;:6 ¤ <$2}żĄØ}¬ ¤ =nÆ< ¤ >9;= ¤ ?n<5į ¤ @2}ż ¤ An @ ¤ B?6A ¤ CnĘ5į ¤ Dn5į ¤ Eq2}ż ¤ Fn6E ¤ GDF ¤ HC6G ¤ I8>BH ¤ J47I ¤ Kq}ż ¤ Ln÷K ¤ Mg !%test-runner-skip-count-procedure¤ Ng m-46961e5187-ae¤ ONp ¤ PO ¤ Qf l-46961e5187-b0¤ RQ ¤ SrPR ¤ TO}SĄ}}}}ČÕŪß ¤ UnĖTį ¤ VŹU ¤ WVl ¤ Xå}SĄ}ź}}}ļ}ö ¤ YnÖXį ¤ ZŹY ¤ [·WZl ¤ \OO ¤ ]f l-46961e5187-b3¤ ^f l-46961e5187-b4¤ _]^ ¤ `rž\_ ¤ aO`}SĄ}}}}ČÕŪß
¤ bnūaį ¤ cnaį ¤ d$`}SĄØ}¬ ¤ enÆd ¤ fce ¤ gf ¤ hn Xį ¤ iŹh ¤ j·Wil ¤ kf l-46961e5187-b8¤ lf l-46961e5187-b9¤ mkl ¤ nrž\m ¤ oOn}SĄ}}}}ČÕŪß
¤ pnūoį ¤ qnoį ¤ rn}S ¤ sn r ¤ tqs ¤ ut ¤ vnXį ¤ wŹv ¤ x·Wwl ¤ yf l-46961e5187-bd¤ zf l-46961e5187-be¤ {yz ¤ |rž\{ ¤ }O|}SĄ}}}}ČÕŪß
¤ ~nū}į ¤ n}į ¤ $|}SĄØ}¬ ¤ n& ¤ ¤ ¤ g t-46961e5187-ad¤
¤ f l-46961e5187-c2¤ ¤ r
P ¤ O}SĄ}}}}ČÕŪß
¤ n¹į ¤ å}SĄ}ź}}}ļ}ö ¤ nżį ¤ ¤ noį ¤ nŗį ¤ n¼į ¤ ¤ $}SĄØ}¬ ¤ nÆ ¤ ¤ n<į ¤ }S ¤ n ¤ ¤ nĘį ¤ nį ¤ q}S ¤ n8 ¤ ¤ ¤ ¤ ¤ ”q}S ¤ ¢nM” ¤ £g %test-runner-skip-list¤ ¤g !%%test-runner-skip-list-procedure¤ „g m-46961e5187-c9¤ ¦„p ¤ §¦ ¤ Øf l-46961e5187-cb¤ ©Ø ¤ Ŗr§© ¤ «¦}ŖĄ}}}}ČÕŪß ¤ ¬nĖ«į ¤ Ź¬ ¤ ®l ¤ Æå}ŖĄ}ź}}}ļ}ö ¤ °nÖÆį ¤ ±Ź° ¤ ²·®±l ¤ ³¦¦ ¤ “f l-46961e5187-ce¤ µf l-46961e5187-cf¤ ¶“µ ¤ ·rž³¶ ¤ ø¦·}ŖĄ}}}}ČÕŪß
¤ ¹nūøį ¤ ŗnøį ¤ »$·}ŖĄØ}¬ ¤ ¼nÆ» ¤ ½ŗ¼ ¤ ¾½ ¤ æn Æį ¤ ĄŹæ ¤ Į·®Ąl ¤ Āf l-46961e5187-d3¤ Ćf l-46961e5187-d4¤ ÄĀĆ ¤ Årž³Ä ¤ ʦÅ}ŖĄ}}}}ČÕŪß
¤ ĒnūĘį ¤ ČnĘį ¤ ÉÅ}Ŗ ¤ Źn É ¤ ĖČŹ ¤ ĢĖ ¤ ĶnÆį ¤ ĪŹĶ ¤ Ļ·®Īl ¤ Šf l-46961e5187-d8¤ Ńf l-46961e5187-d9¤ ŅŠŃ ¤ Órž³Ņ ¤ Ō¦Ó}ŖĄ}}}}ČÕŪß
¤ ÕnūŌį ¤ ÖnŌį ¤ ×$Ó}ŖĄØ}¬ ¤ Ųn&× ¤ ŁÖŲ ¤ ŚŁ ¤ Ūg t-46961e5187-c8¤ ÜŪ ¤ Żf l-46961e5187-dd¤ ŽŻ ¤ ßrܧŽ ¤ ą¦ß}ŖĄ}}}}ČÕŪß
¤ įn¹ąį ¤ āåß}ŖĄ}ź}}}ļ}ö ¤ ćnżāį ¤ äć ¤ ånoāį ¤ ęnŗāį ¤ ēn¼āį ¤ čēć ¤ é$ß}ŖĄØ}¬ ¤ źnÆé ¤ ėęčź ¤ ģn<āį ¤ ķß}Ŗ ¤ īn ķ ¤ ļģćī ¤ šnĘāį ¤ ńnāį ¤ ņqß}Ŗ ¤ ón£ņ ¤ ōńó ¤ õšćō ¤ öåėļõ ¤ ÷įäö ¤ ųq}Ŗ ¤ łn¤ų ¤ śg %test-runner-fail-list¤ ūg !%%test-runner-fail-list-procedure¤ üg m-46961e5187-e4¤ żüp ¤ žż ¤ ’f l-46961e5187-e6¤ ’ ¤ rž ¤ ż}Ą}}}}ČÕŪß ¤ nĖį ¤ Ź ¤ l ¤ å}Ą}ź}}}ļ}ö ¤ nÖį ¤ Ź ¤ ·l ¤
żż ¤ f l-46961e5187-e9¤ f l-46961e5187-ea¤
¤ rž
¤ ż}Ą}}}}ČÕŪß
¤ nūį ¤ nį ¤ $}ĄØ}¬ ¤ nÆ ¤ ¤ ¤ n į ¤ Ź ¤ ·l ¤ f l-46961e5187-ee¤ f l-46961e5187-ef¤ ¤ rž
¤ ż }Ą}}}}ČÕŪß
¤ nū į ¤ n į ¤ } ¤ !n ¤ " ! ¤ #" ¤ $nį ¤ %Ź$ ¤ &·%l ¤ 'f l-46961e5187-f3¤ (f l-46961e5187-f4¤ )'( ¤ *rž
) ¤ +ż*}Ą}}}}ČÕŪß
¤ ,nū+į ¤ -n+į ¤ .$*}ĄØ}¬ ¤ /n&. ¤ 0-/ ¤ 10 ¤ 2g t-46961e5187-e3¤ 32 ¤ 4f l-46961e5187-f8¤ 54 ¤ 6r3ž5 ¤ 7ż6}Ą}}}}ČÕŪß
¤ 8n¹7į ¤ 9å6}Ą}ź}}}ļ}ö ¤ :nż9į ¤ ;: ¤ <no9į ¤ =nŗ9į ¤ >n¼9į ¤ ?>: ¤ @$6}ĄØ}¬ ¤ AnÆ@ ¤ B=?A ¤ Cn<9į ¤ D6} ¤ En D ¤ FC:E ¤ GnĘ9į ¤ Hn9į ¤ Iq6} ¤ JnśI ¤ KHJ ¤ LG:K ¤ M<BFL ¤ N8;M ¤ Oq} ¤ PnūO ¤ Qg %test-runner-run-list¤ Rg %%test-runner-run-list-procedure¤ Sg m-46961e5187-ff¤ TSp ¤ UT ¤ Vf l-46961e5187-101¤ WV ¤ XrUW ¤ YT}XĄ}}}}ČÕŪß ¤ ZnĖYį ¤ [ŹZ ¤ \[l ¤ ]å}XĄ}ź}}}ļ}ö ¤ ^nÖ]į ¤ _Ź^ ¤ `·\_l ¤ aTT ¤ bf l-46961e5187-104¤ cf l-46961e5187-105¤ dbc ¤ eržad ¤ fTe}XĄ}}}}ČÕŪß
¤ gnūfį ¤ hnfį ¤ i$e}XĄØ}¬ ¤ jnÆi ¤ khj ¤ lk ¤ mn ]į ¤ nŹm ¤ o·\nl ¤ pf l-46961e5187-109¤ qf l-46961e5187-10a¤ rpq ¤ sržar ¤ tTs}XĄ}}}}ČÕŪß
¤ unūtį ¤ vntį ¤ ws}X ¤ xn w ¤ yvx ¤ zy ¤ {n]į ¤ |Ź{ ¤ }·\|l ¤ ~f l-46961e5187-10e¤ f l-46961e5187-10f¤ ~ ¤ rža ¤ T}XĄ}}}}ČÕŪß
¤ nūį ¤ nį ¤
$}XĄØ}¬ ¤ n&
¤ ¤ ¤ g t-46961e5187-fe¤ ¤ f l-46961e5187-113¤ ¤ rU ¤ T}XĄ}}}}ČÕŪß
¤ n¹į ¤ å}XĄ}ź}}}ļ}ö ¤ nżį ¤ ¤ noį ¤ nŗį ¤ n¼į ¤ ¤ $}XĄØ}¬ ¤ nÆ ¤ ¤ n<į ¤ }X ¤ n ¤ ¤ nĘį ¤ nį ¤ q}X ¤ ”nQ ¤ ¢” ¤ £¢ ¤ ¤£ ¤ „¤ ¤ ¦q}X ¤ §nR¦ ¤ Øg %test-runner-skip-save¤ ©g !%%test-runner-skip-save-procedure¤ Ŗg m-46961e5187-11a¤ «Ŗp ¤ ¬« ¤ f l-46961e5187-11c¤ ® ¤ Ær¬® ¤ °«}ÆĄ}}}}ČÕŪß ¤ ±nĖ°į ¤ ²Ź± ¤ ³²l ¤ “å}ÆĄ}ź}}}ļ}ö ¤ µnÖ“į ¤ ¶Źµ ¤ ··³¶l ¤ ø«« ¤ ¹f l-46961e5187-11f¤ ŗf l-46961e5187-120¤ »¹ŗ ¤ ¼ržø» ¤ ½«¼}ÆĄ}}}}ČÕŪß
¤ ¾nū½į ¤ æn½į ¤ Ą$¼}ÆĄØ}¬ ¤ ĮnÆĄ ¤ ĀæĮ ¤ ĆĀ ¤ Än “į ¤ ÅŹÄ ¤ Ę·³Ål ¤ Ēf l-46961e5187-124¤ Čf l-46961e5187-125¤ ÉĒČ ¤ ŹržøÉ ¤ Ė«Ź}ÆĄ}}}}ČÕŪß
¤ ĢnūĖį ¤ ĶnĖį ¤ ĪŹ}Æ ¤ Ļn Ī ¤ ŠĶĻ ¤ ŃŠ ¤ Ņn“į ¤ ÓŹŅ ¤ Ō·³Ól ¤ Õf l-46961e5187-129¤ Öf l-46961e5187-12a¤ ×ÕÖ ¤ Ųržø× ¤ Ł«Ų}ÆĄ}}}}ČÕŪß
¤ ŚnūŁį ¤ ŪnŁį ¤ Ü$Ų}ÆĄØ}¬ ¤ Żn&Ü ¤ ŽŪŻ ¤ ߎ ¤ ąg t-46961e5187-119¤ įą ¤ āf l-46961e5187-12e¤ ćā ¤ ärį¬ć ¤ å«ä}ÆĄ}}}}ČÕŪß
¤ ęn¹åį ¤ ēåä}ÆĄ}ź}}}ļ}ö ¤ čnżēį ¤ éč ¤ źnoēį ¤ ėnŗēį ¤ ģn¼ēį ¤ ķģč ¤ ī$ä}ÆĄØ}¬ ¤ ļnÆī ¤ šėķļ ¤ ńn<ēį ¤ ņä}Æ ¤ ón ņ ¤ ōńčó ¤ õnĘēį ¤ önēį ¤ ÷qä}Æ ¤ ųnØ÷ ¤ łöų ¤ śõčł ¤ ūźšōś ¤ üęéū ¤ żq}Æ ¤ žn©ż ¤ ’g %test-runner-fail-save¤ g !%%test-runner-fail-save-procedure¤ g m-46961e5187-135¤ p ¤ ¤ f l-46961e5187-137¤ ¤ r ¤ }Ą}}}}ČÕŪß ¤ nĖį ¤ Ź ¤
l ¤ å}Ą}ź}}}ļ}ö ¤ nÖ į ¤
Ź ¤ ·
l ¤ ¤ f l-46961e5187-13a¤ f l-46961e5187-13b¤ ¤ rž ¤ }Ą}}}}ČÕŪß
¤ nūį ¤ nį ¤ $}ĄØ}¬ ¤ nÆ ¤ ¤ ¤ n į ¤ Ź ¤ ·
l ¤ f l-46961e5187-13f¤ f l-46961e5187-140¤ ¤ !rž ¤ "!}Ą}}}}ČÕŪß
¤ #nū"į ¤ $n"į ¤ %!} ¤ &n % ¤ '$& ¤ (' ¤ )n į ¤ *Ź) ¤ +·
*l ¤ ,f l-46961e5187-144¤ -f l-46961e5187-145¤ .,- ¤ /rž. ¤ 0/}Ą}}}}ČÕŪß
¤ 1nū0į ¤ 2n0į ¤ 3$/}ĄØ}¬ ¤ 4n&3 ¤ 524 ¤ 65 ¤ 7g t-46961e5187-134¤ 87 ¤ 9f l-46961e5187-149¤ :9 ¤ ;r8: ¤ <;}Ą}}}}ČÕŪß
¤ =n¹<į ¤ >å;}Ą}ź}}}ļ}ö ¤ ?nż>į ¤ @? ¤ Ano>į ¤ Bnŗ>į ¤ Cn¼>į ¤ DC? ¤ E$;}ĄØ}¬ ¤ FnÆE ¤ GBDF ¤ Hn<>į ¤ I;} ¤ Jn I ¤ KH?J ¤ LnĘ>į ¤ Mn>į ¤ Nq;} ¤ On’N ¤ PMO ¤ QL?P ¤ RAGKQ ¤ S=@R ¤ Tq} ¤ Un T ¤ Vg "%test-runner-group-stack-procedure¤ Wg m-46961e5187-150¤ XWp ¤ YX ¤ Zf l-46961e5187-152¤ [Z ¤ \rY[ ¤ ]X}\Ą}}}}ČÕŪß ¤ ^nĖ]į ¤ _Ź^ ¤ `_l ¤ aå}\Ą}ź}}}ļ}ö ¤ bnÖaį ¤ cŹb ¤ d·`cl ¤ eXX ¤ ff l-46961e5187-155¤ gf l-46961e5187-156¤ hfg ¤ iržeh ¤ jXi}\Ą}}}}ČÕŪß
¤ knūjį ¤ lnjį ¤ m$i}\ĄØ}¬ ¤ nnÆm ¤ oln ¤ po ¤ qn aį ¤ rŹq ¤ s·`rl ¤ tf l-46961e5187-15a¤ uf l-46961e5187-15b¤ vtu ¤ wržev ¤ xXw}\Ą}}}}ČÕŪß
¤ ynūxį ¤ znxį ¤ {w}\ ¤ |n
{ ¤ }z| ¤ ~} ¤ naį ¤ Ź ¤ ·`l ¤ f l-46961e5187-15f¤ f l-46961e5187-160¤ ¤
rže ¤ X
}\Ą}}}}ČÕŪß
¤ nūį ¤ nį ¤ $
}\ĄØ}¬ ¤ n& ¤ ¤ ¤ g t-46961e5187-14f¤ ¤ f l-46961e5187-164¤ ¤ rY ¤ X}\Ą}}}}ČÕŪß
¤ n¹į ¤ å}\Ą}ź}}}ļ}ö ¤ nżį ¤ ¤ noį ¤ nŗį ¤ n¼į ¤ ¤ $}\ĄØ}¬ ¤ nÆ ¤ ¤ n<į ¤ }\ ¤ n
¤ ” ¤ ¢nĘį ¤ £nį ¤ ¤q}\ ¤ „n:¤ ¤ ¦£„ ¤ §¢¦ ¤ Ø”§ ¤ ©Ø ¤ Ŗq}\ ¤ «nVŖ ¤ ¬g $%test-runner-on-test-begin-procedure¤ g m-46961e5187-16b¤ ®p ¤ Æ® ¤ °f l-46961e5187-16d¤ ±° ¤ ²rƱ ¤ ³®}²Ą}}}}ČÕŪß ¤ “nĖ³į ¤ µŹ“ ¤ ¶µl ¤ ·å}²Ą}ź}}}ļ}ö ¤ ønÖ·į ¤ ¹Źø ¤ ŗ·¶¹l ¤ »®® ¤ ¼f l-46961e5187-170¤ ½f l-46961e5187-171¤ ¾¼½ ¤ ærž»¾ ¤ Ą®æ}²Ą}}}}ČÕŪß
¤ ĮnūĄį ¤ ĀnĄį ¤ Ć$æ}²ĄØ}¬ ¤ ÄnÆĆ ¤ ÅĀÄ ¤ ĘÅ ¤ Ēn ·į ¤ ČŹĒ ¤ É·¶Čl ¤ Źf l-46961e5187-175¤ Ėf l-46961e5187-176¤ ĢŹĖ ¤ Ķrž»Ģ ¤ Ī®Ķ}²Ą}}}}ČÕŪß
¤ ĻnūĪį ¤ ŠnĪį ¤ ŃĶ}² ¤ Ņn Ń ¤ ÓŠŅ ¤ ŌÓ ¤ Õn·į ¤ ÖŹÕ ¤ ×·¶Öl ¤ Ųf l-46961e5187-17a¤ Łf l-46961e5187-17b¤ ŚŲŁ ¤ Ūrž»Ś ¤ Ü®Ū}²Ą}}}}ČÕŪß
¤ ŻnūÜį ¤ ŽnÜį ¤ ß$Ū}²ĄØ}¬ ¤ ąn&ß ¤ įŽą ¤ āį ¤ ćg t-46961e5187-16a¤ äć ¤ åf l-46961e5187-17f¤ ęå ¤ ēräÆę ¤ č®ē}²Ą}}}}ČÕŪß
¤ én¹čį ¤ źåē}²Ą}ź}}}ļ}ö ¤ ėnżźį ¤ ģė ¤ ķnoźį ¤ īnŗźį ¤ ļn¼źį ¤ šļė ¤ ń$ē}²ĄØ}¬ ¤ ņnÆń ¤ óīšņ ¤ ōn<źį ¤ õē}² ¤ ön õ ¤ ÷ōėö ¤ ųnĘźį ¤ łnźį ¤ śqē}² ¤ ūn<ś ¤ üłū ¤ żųėü ¤ žķó÷ż ¤ ’éģž ¤ q}² ¤ n¬ ¤ g "%test-runner-on-test-end-procedure¤ g m-46961e5187-186¤ p ¤ ¤ f l-46961e5187-188¤ ¤ r ¤ }Ą}}}}ČÕŪß ¤
nĖ į ¤ Ź
¤ l ¤
å}Ą}ź}}}ļ}ö ¤ nÖ
į ¤ Ź ¤ · l ¤ ¤ f l-46961e5187-18b¤ f l-46961e5187-18c¤ ¤ rž ¤ }Ą}}}}ČÕŪß
¤ nūį ¤ nį ¤ $}ĄØ}¬ ¤ nÆ ¤ ¤ ¤ n
į ¤ Ź ¤ · l ¤ f l-46961e5187-190¤ !f l-46961e5187-191¤ " ! ¤ #rž" ¤ $#}Ą}}}}ČÕŪß
¤ %nū$į ¤ &n$į ¤ '#} ¤ (n ' ¤ )&( ¤ *) ¤ +n
į ¤ ,Ź+ ¤ -· ,l ¤ .f l-46961e5187-195¤ /f l-46961e5187-196¤ 0./ ¤ 1rž0 ¤ 21}Ą}}}}ČÕŪß
¤ 3nū2į ¤ 4n2į ¤ 5$1}ĄØ}¬ ¤ 6n&5 ¤ 746 ¤ 87 ¤ 9g t-46961e5187-185¤ :9 ¤ ;f l-46961e5187-19a¤ <; ¤ =r:< ¤ >=}Ą}}}}ČÕŪß
¤ ?n¹>į ¤ @å=}Ą}ź}}}ļ}ö ¤ Anż@į ¤ BA ¤ Cno@į ¤ Dnŗ@į ¤ En¼@į ¤ FEA ¤ G$=}ĄØ}¬ ¤ HnÆG ¤ IDFH ¤ Jn<@į ¤ K=} ¤ Ln K ¤ MJAL ¤ NnĘ@į ¤ On@į ¤ Pq=} ¤ Qn>P ¤ ROQ ¤ SNAR ¤ TCIMS ¤ U?BT ¤ Vq} ¤ WnV ¤ Xg %%test-runner-on-group-begin-procedure¤ Yg m-46961e5187-1a1¤ ZYp ¤ [Z ¤ \f l-46961e5187-1a3¤ ]\ ¤ ^r[] ¤ _Z}^Ą}}}}ČÕŪß ¤ `nĖ_į ¤ aŹ` ¤ bal ¤ cå}^Ą}ź}}}ļ}ö ¤ dnÖcį ¤ eŹd ¤ f·bel ¤ gZZ ¤ hf l-46961e5187-1a6¤ if l-46961e5187-1a7¤ jhi ¤ kržgj ¤ lZk}^Ą}}}}ČÕŪß
¤ mnūlį ¤ nnlį ¤ o$k}^ĄØ}¬ ¤ pnÆo ¤ qnp ¤ rq ¤ sn cį ¤ tŹs ¤ u·btl ¤ vf l-46961e5187-1ab¤ wf l-46961e5187-1ac¤ xvw ¤ yržgx ¤ zZy}^Ą}}}}ČÕŪß
¤ {nūzį ¤ |nzį ¤ }y}^ ¤ ~n
} ¤ |~ ¤ ¤ ncį ¤ Ź ¤ ·bl ¤ f l-46961e5187-1b0¤
f l-46961e5187-1b1¤
¤ ržg ¤ Z}^Ą}}}}ČÕŪß
¤ nūį ¤ nį ¤ $}^ĄØ}¬ ¤ n& ¤ ¤ ¤ g t-46961e5187-1a0¤ ¤ f l-46961e5187-1b5¤ ¤ r[ ¤ Z}^Ą}}}}ČÕŪß
¤ n¹į ¤ å}^Ą}ź}}}ļ}ö ¤ nżį ¤ ¤ noį ¤ nŗį ¤ n¼į ¤ ¤ $}^ĄØ}¬ ¤ nÆ ¤ ¤ n<į ¤ ”}^ ¤ ¢n
” ¤ £ ¢ ¤ ¤nĘį ¤ „nį ¤ ¦q}^ ¤ §n@¦ ¤ Ø„§ ¤ ©¤Ø ¤ Ŗ£© ¤ «Ŗ ¤ ¬q}^ ¤ nX¬ ¤ ®g #%test-runner-on-group-end-procedure¤ Æg m-46961e5187-1bc¤ °Æp ¤ ±° ¤ ²f l-46961e5187-1be¤ ³² ¤ “r±³ ¤ µ°}“Ą}}}}ČÕŪß ¤ ¶nĖµį ¤ ·Ź¶ ¤ ø·l ¤ ¹å}“Ą}ź}}}ļ}ö ¤ ŗnÖ¹į ¤ »Źŗ ¤ ¼·ø»l ¤ ½°° ¤ ¾f l-46961e5187-1c1¤ æf l-46961e5187-1c2¤ Ą¾æ ¤ Įrž½Ą ¤ Ā°Į}“Ą}}}}ČÕŪß
¤ ĆnūĀį ¤ ÄnĀį ¤ Å$Į}“ĄØ}¬ ¤ ĘnÆÅ ¤ ĒÄĘ ¤ ČĒ ¤ Én ¹į ¤ ŹŹÉ ¤ Ė·øŹl ¤ Ģf l-46961e5187-1c6¤ Ķf l-46961e5187-1c7¤ ĪĢĶ ¤ Ļrž½Ī ¤ Š°Ļ}“Ą}}}}ČÕŪß
¤ ŃnūŠį ¤ ŅnŠį ¤ ÓĻ}“ ¤ Ōn Ó ¤ ÕŅŌ ¤ ÖÕ ¤ ×n¹į ¤ ŲŹ× ¤ Ł·øŲl ¤ Śf l-46961e5187-1cb¤ Ūf l-46961e5187-1cc¤ ÜŚŪ ¤ Żrž½Ü ¤ Ž°Ż}“Ą}}}}ČÕŪß
¤ ßnūŽį ¤ ąnŽį ¤ į$Ż}“ĄØ}¬ ¤ ān&į ¤ ćąā ¤ äć ¤ åg t-46961e5187-1bb¤ ęå ¤ ēf l-46961e5187-1d0¤ čē ¤ érę±č ¤ ź°é}“Ą}}}}ČÕŪß
¤ ėn¹źį ¤ ģåé}“Ą}ź}}}ļ}ö ¤ ķnżģį ¤ īķ ¤ ļnoģį ¤ šnŗģį ¤ ńn¼ģį ¤ ņńķ ¤ ó$é}“ĄØ}¬ ¤ ōnÆó ¤ õšņō ¤ ön<ģį ¤ ÷é}“ ¤ ųn ÷ ¤ łöķų ¤ śnĘģį ¤ ūnģį ¤ üqé}“ ¤ żnBü ¤ žūż ¤ ’śķž ¤ ļõł’ ¤ ėī ¤ q}“ ¤ n® ¤ g %test-runner-on-final-procedure¤ g m-46961e5187-1d7¤ p ¤ ¤ f l-46961e5187-1d9¤ ¤
r ¤ }
Ą}}}}ČÕŪß ¤ nĖ į ¤
Ź ¤
l ¤ å}
Ą}ź}}}ļ}ö ¤ nÖį ¤ Ź ¤ ·l ¤ ¤ f l-46961e5187-1dc¤ f l-46961e5187-1dd¤ ¤ rž ¤ }
Ą}}}}ČÕŪß
¤ nūį ¤ nį ¤ $}
ĄØ}¬ ¤ nÆ ¤ ¤ ¤ n į ¤ Ź ¤ !· l ¤ "f l-46961e5187-1e1¤ #f l-46961e5187-1e2¤ $"# ¤ %rž$ ¤ &%}
Ą}}}}ČÕŪß
¤ 'nū&į ¤ (n&į ¤ )%}
¤ *n ) ¤ +(* ¤ ,+ ¤ -nį ¤ .Ź- ¤ /·.l ¤ 0f l-46961e5187-1e6¤ 1f l-46961e5187-1e7¤ 201 ¤ 3rž2 ¤ 43}
Ą}}}}ČÕŪß
¤ 5nū4į ¤ 6n4į ¤ 7$3}
ĄØ}¬ ¤ 8n&7 ¤ 968 ¤ :9 ¤ ;g t-46961e5187-1d6¤ <; ¤ =f l-46961e5187-1eb¤ >= ¤ ?r<> ¤ @?}
Ą}}}}ČÕŪß
¤ An¹@į ¤ Bå?}
Ą}ź}}}ļ}ö ¤ CnżBį ¤ DC ¤ EnoBį ¤ FnŗBį ¤ Gn¼Bį ¤ HGC ¤ I$?}
ĄØ}¬ ¤ JnÆI ¤ KFHJ ¤ Ln<Bį ¤ M?}
¤ Nn M ¤ OLCN ¤ PnĘBį ¤ QnBį ¤ Rq?}
¤ SnDR ¤ TQS ¤ UPCT ¤ VEKOU ¤ WADV ¤ Xq}
¤ YnX ¤ Zg #%test-runner-on-bad-count-procedure¤ [g m-46961e5187-1f2¤ \[p ¤ ]\ ¤ ^f l-46961e5187-1f4¤ _^ ¤ `r]_ ¤ a\}`Ą}}}}ČÕŪß ¤ bnĖaį ¤ cŹb ¤ dcl ¤ eå}`Ą}ź}}}ļ}ö ¤ fnÖeį ¤ gŹf ¤ h·dgl ¤ i\\ ¤ jf l-46961e5187-1f7¤ kf l-46961e5187-1f8¤ ljk ¤ mržil ¤ n\m}`Ą}}}}ČÕŪß
¤ onūnį ¤ pnnį ¤ q$m}`ĄØ}¬ ¤ rnÆq ¤ spr ¤ ts ¤ un eį ¤ vŹu ¤ w·dvl ¤ xf l-46961e5187-1fc¤ yf l-46961e5187-1fd¤ zxy ¤ {ržiz ¤ |\{}`Ą}}}}ČÕŪß
¤ }nū|į ¤ ~n|į ¤ {}` ¤ n ¤ ~ ¤ ¤ neį ¤ Ź ¤
·dl ¤ f l-46961e5187-201¤ f l-46961e5187-202¤ ¤ rži ¤ \}`Ą}}}}ČÕŪß
¤ nūį ¤ nį ¤ $}`ĄØ}¬ ¤ n& ¤ ¤ ¤ g t-46961e5187-1f1¤ ¤ f l-46961e5187-206¤ ¤ r] ¤ \}`Ą}}}}ČÕŪß
¤ n¹į ¤ å}`Ą}ź}}}ļ}ö ¤ nżį ¤ ¤ noį ¤ nŗį ¤ n¼į ¤ ¤ $}`ĄØ}¬ ¤ nÆ ¤ ” ¤ ¢n<į ¤ £}` ¤ ¤n £ ¤ „¢¤ ¤ ¦nĘį ¤ §nį ¤ Øq}` ¤ ©nFØ ¤ Ŗ§© ¤ «¦Ŗ ¤ ¬”„« ¤ ¬ ¤ ®q}` ¤ ÆnZ® ¤ °g &%test-runner-on-bad-end-name-procedure¤ ±g m-46961e5187-20d¤ ²±p ¤ ³² ¤ “f l-46961e5187-20f¤ µ“ ¤ ¶r³µ ¤ ·²}¶Ą}}}}ČÕŪß ¤ ønĖ·į ¤ ¹Źø ¤ ŗ¹l ¤ »å}¶Ą}ź}}}ļ}ö ¤ ¼nÖ»į ¤ ½Ź¼ ¤ ¾·ŗ½l ¤ æ²² ¤ Ąf l-46961e5187-212¤ Įf l-46961e5187-213¤ ĀĄĮ ¤ ĆržæĀ ¤ IJĆ}¶Ą}}}}ČÕŪß
¤ ÅnūÄį ¤ ĘnÄį ¤ Ē$Ć}¶ĄØ}¬ ¤ ČnÆĒ ¤ ÉĘČ ¤ ŹÉ ¤ Ėn »į ¤ ĢŹĖ ¤ Ķ·ŗĢl ¤ Īf l-46961e5187-217¤ Ļf l-46961e5187-218¤ ŠĪĻ ¤ ŃržæŠ ¤ Ņ²Ń}¶Ą}}}}ČÕŪß
¤ ÓnūŅį ¤ ŌnŅį ¤ ÕŃ}¶ ¤ Ön Õ ¤ ×ŌÖ ¤ Ų× ¤ Łn»į ¤ ŚŹŁ ¤ Ū·ŗŚl ¤ Üf l-46961e5187-21c¤ Żf l-46961e5187-21d¤ ŽÜŻ ¤ ßržæŽ ¤ ą²ß}¶Ą}}}}ČÕŪß
¤ įnūąį ¤ ānąį ¤ ć$ß}¶ĄØ}¬ ¤ än&ć ¤ åāä ¤ ęå ¤ ēg t-46961e5187-20c¤ čē ¤ éf l-46961e5187-221¤ źé ¤ ėrč³ź ¤ ģ²ė}¶Ą}}}}ČÕŪß
¤ ķn¹ģį ¤ īåė}¶Ą}ź}}}ļ}ö ¤ ļnżīį ¤ šļ ¤ ńnoīį ¤ ņnŗīį ¤ ón¼īį ¤ ōóļ ¤ õ$ė}¶ĄØ}¬ ¤ önÆõ ¤ ÷ņōö ¤ ųn<īį ¤ łė}¶ ¤ śn ł ¤ ūųļś ¤ ünĘīį ¤ żnīį ¤ žqė}¶ ¤ ’nHž ¤ ż’ ¤ üļ ¤ ń÷ū ¤ ķš ¤ q}¶ ¤ n° ¤ g %test-runner-total-count¤ g #%%test-runner-total-count-procedure¤ g m-46961e5187-228¤ p ¤
¤ f l-46961e5187-22a¤ ¤
r
¤ }
Ą}}}}ČÕŪß ¤ nĖį ¤ Ź ¤ l ¤ å}
Ą}ź}}}ļ}ö ¤ nÖį ¤ Ź ¤ ·l ¤ ¤ f l-46961e5187-22d¤ f l-46961e5187-22e¤ ¤ rž ¤ }
Ą}}}}ČÕŪß
¤ nūį ¤ nį ¤ $}
ĄØ}¬ ¤ nÆ ¤ ¤ ! ¤ "n į ¤ #Ź" ¤ $·#l ¤ %f l-46961e5187-232¤ &f l-46961e5187-233¤ '%& ¤ (rž' ¤ ) (}
Ą}}}}ČÕŪß
¤ *nū)į ¤ +n)į ¤ ,(}
¤ -n , ¤ .+- ¤ /. ¤ 0nį ¤ 1Ź0 ¤ 2·1l ¤ 3f l-46961e5187-237¤ 4f l-46961e5187-238¤ 534 ¤ 6rž5 ¤ 7 6}
Ą}}}}ČÕŪß
¤ 8nū7į ¤ 9n7į ¤ :$6}
ĄØ}¬ ¤ ;n&: ¤ <9; ¤ =< ¤ >g t-46961e5187-227¤ ?> ¤ @f l-46961e5187-23c¤ A@ ¤ Br?
A ¤ C B}
Ą}}}}ČÕŪß
¤ Dn¹Cį ¤ EåB}
Ą}ź}}}ļ}ö ¤ FnżEį ¤ GF ¤ HnoEį ¤ InŗEį ¤ Jn¼Eį ¤ KJF ¤ L$B}
ĄØ}¬ ¤ MnÆL ¤ NIKM ¤ On<Eį ¤ PB}
¤ Qn P ¤ ROFQ ¤ SnĘEį ¤ TnEį ¤ UqB}
¤ VnU ¤ WTV ¤ XSFW ¤ YHNRX ¤ ZDGY ¤ [q}
¤ \n[ ¤ ]g %test-runner-count-list¤ ^g "%%test-runner-count-list-procedure¤ _g m-46961e5187-243¤ `_p ¤ a` ¤ bf l-46961e5187-245¤ cb ¤ drac ¤ e`}dĄ}}}}ČÕŪß ¤ fnĖeį ¤ gŹf ¤ hgl ¤ iå}dĄ}ź}}}ļ}ö ¤ jnÖiį ¤ kŹj ¤ l·hkl ¤ m`` ¤ nf l-46961e5187-248¤ of l-46961e5187-249¤ pno ¤ qržmp ¤ r`q}dĄ}}}}ČÕŪß
¤ snūrį ¤ tnrį ¤ u$q}dĄØ}¬ ¤ vnÆu ¤ wtv ¤ xw ¤ yn iį ¤ zŹy ¤ {·hzl ¤ |f l-46961e5187-24d¤ }f l-46961e5187-24e¤ ~|} ¤ ržm~ ¤ `}dĄ}}}}ČÕŪß
¤ nūį ¤ nį ¤ }d ¤ n ¤
¤
¤ niį ¤ Ź ¤ ·hl ¤ f l-46961e5187-252¤ f l-46961e5187-253¤ ¤ ržm ¤ `}dĄ}}}}ČÕŪß
¤ nūį ¤ nį ¤ $}dĄØ}¬ ¤ n& ¤ ¤ ¤ g t-46961e5187-242¤ ¤ f l-46961e5187-257¤ ¤ ra ¤ `}dĄ}}}}ČÕŪß
¤ n¹į ¤ å}dĄ}ź}}}ļ}ö ¤ nżį ¤ ¤ noį ¤ nŗį ¤ ”n¼į ¤ ¢” ¤ £$}dĄØ}¬ ¤ ¤nÆ£ ¤ „ ¢¤ ¤ ¦n<į ¤ §}d ¤ Øn § ¤ ©¦Ø ¤ ŖnĘį ¤ «nį ¤ ¬q}d ¤ n]¬ ¤ ®« ¤ ÆŖ® ¤ °„©Æ ¤ ±° ¤ ²q}d ¤ ³n^² ¤ “g %test-result-alist-procedure¤ µg m-46961e5187-25e¤ ¶µp ¤ ·¶ ¤ øf l-46961e5187-260¤ ¹ø ¤ ŗr·¹ ¤ »¶}ŗĄ}}}}ČÕŪß ¤ ¼nĖ»į ¤ ½Ź¼ ¤ ¾½l ¤ æå}ŗĄ}ź}}}ļ}ö ¤ ĄnÖæį ¤ ĮŹĄ ¤ Ā·¾Įl ¤ ƶ¶ ¤ Äf l-46961e5187-263¤ Åf l-46961e5187-264¤ ĘÄÅ ¤ ĒržĆĘ ¤ ȶĒ}ŗĄ}}}}ČÕŪß
¤ ÉnūČį ¤ ŹnČį ¤ Ė$Ē}ŗĄØ}¬ ¤ ĢnÆĖ ¤ ĶŹĢ ¤ ĪĶ ¤ Ļn æį ¤ ŠŹĻ ¤ Ń·¾Šl ¤ Ņf l-46961e5187-268¤ Óf l-46961e5187-269¤ ŌŅÓ ¤ ÕržĆŌ ¤ Ö¶Õ}ŗĄ}}}}ČÕŪß
¤ ×nūÖį ¤ ŲnÖį ¤ ŁÕ}ŗ ¤ Śn Ł ¤ ŪŲŚ ¤ ÜŪ ¤ Żnæį ¤ ŽŹŻ ¤ ß·¾Žl ¤ ąf l-46961e5187-26d¤ įf l-46961e5187-26e¤ āąį ¤ ćržĆā ¤ ä¶ć}ŗĄ}}}}ČÕŪß
¤ ånūäį ¤ ęnäį ¤ ē$ć}ŗĄØ}¬ ¤ čn&ē ¤ éęč ¤ źé ¤ ėg t-46961e5187-25d¤ ģė ¤ ķf l-46961e5187-272¤ īķ ¤ ļrģ·ī ¤ š¶ļ}ŗĄ}}}}ČÕŪß
¤ ńn¹šį ¤ ņåļ}ŗĄ}ź}}}ļ}ö ¤ ónżņį ¤ ōó ¤ õnoņį ¤ önŗņį ¤ ÷n¼ņį ¤ ų÷ó ¤ ł$ļ}ŗĄØ}¬ ¤ śnÆł ¤ ūöųś ¤ ün<ņį ¤ żļ}ŗ ¤ žn ż ¤ ’üóž ¤ nĘņį ¤ nņį ¤ qļ}ŗ ¤ nJ ¤ ¤ ó ¤ õū’ ¤ ńō ¤ q}ŗ ¤ n“ ¤
g %test-runner-aux-value-procedure¤ g m-46961e5187-279¤ p ¤
¤ f l-46961e5187-27b¤ ¤ r
¤ } Ą}}}}ČÕŪß ¤ nĖ į ¤ Ź ¤ l ¤ å} Ą}ź}}}ļ}ö ¤ nÖ į ¤ Ź ¤ · l ¤ ¤ f l-46961e5187-27e¤ f l-46961e5187-27f¤ ¤ rž ¤ } Ą}}}}ČÕŪß
¤ nū į ¤ n į ¤ !$ } ĄØ}¬ ¤ "nÆ ! ¤ # " ¤ $ # ¤ %n į ¤ &Ź % ¤ '· &l ¤ (f l-46961e5187-283¤ )f l-46961e5187-284¤ * ( ) ¤ +rž * ¤ , +} Ą}}}}ČÕŪß
¤ -nū ,į ¤ .n ,į ¤ / +} ¤ 0n / ¤ 1 . 0 ¤ 2 1 ¤ 3n į ¤ 4Ź 3 ¤ 5· 4l ¤ 6f l-46961e5187-288¤ 7f l-46961e5187-289¤ 8 6 7 ¤ 9rž 8 ¤ : 9} Ą}}}}ČÕŪß
¤ ;nū :į ¤ <n :į ¤ =$ 9} ĄØ}¬ ¤ >n& = ¤ ? < > ¤ @ ? ¤ Ag t-46961e5187-278¤ B A ¤ Cf l-46961e5187-28d¤ D C ¤ Er B
D ¤ F E} Ą}}}}ČÕŪß
¤ Gn¹ Fį ¤ Hå E} Ą}ź}}}ļ}ö ¤ Inż Hį ¤ J I ¤ Kno Hį ¤ Lnŗ Hį ¤ Mn¼ Hį ¤ N M I ¤ O$ E} ĄØ}¬ ¤ PnÆ O ¤ Q L N P ¤ Rn< Hį ¤ S E} ¤ Tn S ¤ U R I T ¤ VnĘ Hį ¤ Wn Hį ¤ Xq E} ¤ YnL X ¤ Z W Y ¤ [ V I Z ¤ \ K Q U [ ¤ ] G J \ ¤ ^q} ¤ _n
^ ¤ `ll ¤ a ` ¤ bl a¤ cl b¤ dl c¤ eg %%set-fields¤ fg check?¤ gg expr¤ hs fż g ¤ ig m-46961e5187-294¤ j ip ¤ k jåååå ¤ lf l-46961e5187-299¤ mf l-46961e5187-29a¤ nf l-46961e5187-29b¤ of l-46961e5187-29c¤ pf l-46961e5187-29d¤ q l m n o p ¤ rr h k q ¤ s j ¤ tf l-46961e5187-296¤ u t ¤ vr s u ¤ wg t-1e8ba8b5a-3c4¤ xg t-1e8ba8b5a-3c6¤ yg t-1e8ba8b5a-3c5¤ z w x y ¤ {g m-1e8ba8b5a-3c7¤ | {p ¤ } | | | ¤ ~f l-1e8ba8b5a-3cb¤ f l-1e8ba8b5a-3cc¤ f l-1e8ba8b5a-3cd¤ ~ ¤ r z } ¤ f l-1e8ba8b5a-3c1¤ f l-1e8ba8b5a-3c2¤
f l-1e8ba8b5a-3c3¤
¤ ršń ¤ å r} vĄ} }}}
¤ n e į ¤ $ r} vĄØ}¬ ¤ nÆ ¤ q r} v ¤ n0 ¤ n2 ¤ n4 ¤ n6 ¤ n8 ¤ n£ ¤ nś ¤ nQ ¤ nØ ¤ n’ ¤ n: ¤ n< ¤ n> ¤ n@ ¤ nB ¤ nD ¤ nF ¤ nH ¤ n ¤ n] ¤ ”nJ ¤ ¢nL ¤ £ ” ¢ ¤ ¤g "%test-runner-pass-count!-procedure¤ „·ll ¤ ¦g m-46961e5187-2a8¤ § ¦p ¤ Øg t-46961e5187-2a6¤ ©g t-46961e5187-2a7¤ Ŗ Ø © ¤ « § § ¤ ¬f l-46961e5187-2ad¤ f l-46961e5187-2ae¤ ® ¬ ¤ Ær Ŗ « ® ¤ ° § ¤ ±f l-46961e5187-2aa¤ ² ± ¤ ³r ° ² ¤ “ § Æ} ³Ą}}}}ČÕŪß
¤ µn¹ “į ¤ ¶g t-1e8ba8b5a-3e6¤ ·g t-1e8ba8b5a-3e7¤ ø ¶ · ¤ ¹g m-1e8ba8b5a-3e8¤ ŗ ¹p ¤ » ŗ ŗ ¤ ¼f l-1e8ba8b5a-3ec¤ ½f l-1e8ba8b5a-3ed¤ ¾ ¼ ½ ¤ ær ø » ¾ ¤ Ą ¤ Įf l-1e8ba8b5a-3e0¤ Āf l-1e8ba8b5a-3e1¤ Ćf l-1e8ba8b5a-3e2¤ Ä Į Ā Ć ¤ År Ąń Ä ¤ ʧ ¤ Ēf l-1e8ba8b5a-3d7¤ Čf l-1e8ba8b5a-3d8¤ É Ē Č ¤ Źr ĘÄ É ¤ Ėg field-specs¤ Ģ’ Ė ¤ Ķf l-1e8ba8b5a-3d3¤ Īf l-1e8ba8b5a-3d4¤ Ļ Ķ Ī ¤ Šr ĢÄ Ļ ¤ Ńå Æ} ³Ą} æ Å} Ź} Š ¤ Ņnż Ńį ¤ Óg val¤ Ōn Ó Ńį ¤ Õ Ņ Ō ¤ Öno Ńį ¤ ×nŗ Ńį ¤ Ųn¼ Ńį ¤ Ł Ų Ņ ¤ Ś$ Æ} ³ĄØ}¬ ¤ ŪnÆ Ś ¤ Ü × Ł Ū ¤ Żg struct-set!¤ Žn Ż Ńį ¤ ß Æ} ³ ¤ ąn
ß ¤ į Ž Ņ ą Ō ¤ ānĘ Ńį ¤ ćn Ńį ¤ äq Æ} ³ ¤ ån1 ä ¤ ę ć å ¤ ē ā Ņ ę ¤ č Ö Ü į ē ¤ é µ Õ č ¤ źq} ³ ¤ ėn ¤ ź ¤ ģg "%test-runner-fail-count!-procedure¤ ķg m-46961e5187-2b8¤ ī ķp ¤ ļg t-46961e5187-2b6¤ šg t-46961e5187-2b7¤ ń ļ š ¤ ņ ī ī ¤ óf l-46961e5187-2bd¤ ōf l-46961e5187-2be¤ õ ó ō ¤ ör ń ņ õ ¤ ÷ ī ¤ ųf l-46961e5187-2ba¤ ł ų ¤ śr ÷ ł ¤ ū ī ö} śĄ}}}}ČÕŪß
¤ ün¹ ūį ¤ żå ö} śĄ} æ Å} Ź} Š ¤ žnż żį ¤ ’n Ó żį ¤
ž ’ ¤
no żį ¤
nŗ żį ¤
n¼ żį ¤
ž ¤
$ ö} śĄØ}¬ ¤
nÆ
¤
¤
n Ż żį ¤
ö} ś ¤
n
¤
ž
’ ¤
nĘ żį ¤
n żį ¤
q ö} ś ¤
n3
¤
¤
ž
¤
¤
ü
¤
q} ś ¤
n ģ
¤
g #%test-runner-xpass-count!-procedure¤
g m-46961e5187-2c8¤
p ¤
g t-46961e5187-2c6¤
g t-46961e5187-2c7¤
¤
¤
f l-46961e5187-2cd¤
f l-46961e5187-2ce¤
¤
r
¤
!
¤
"f l-46961e5187-2ca¤
#
" ¤
$r
!
# ¤
%
}
$Ą}}}}ČÕŪß
¤
&n¹
%į ¤
'å
}
$Ą} æ Å} Ź} Š ¤
(nż
'į ¤
)n Ó
'į ¤
*
(
) ¤
+no
'į ¤
,nŗ
'į ¤
-n¼
'į ¤
.
-
( ¤
/$
}
$ĄØ}¬ ¤
0nÆ
/ ¤
1
,
.
0 ¤
2n Ż
'į ¤
3
}
$ ¤
4n
3 ¤
5
2
(
4
) ¤
6nĘ
'į ¤
7n
'į ¤
8q
}
$ ¤
9n5
8 ¤
:
7
9 ¤
;
6
(
: ¤
<
+
1
5
; ¤
=
&
*
< ¤
>q}
$ ¤
?n
> ¤
@g #%test-runner-xfail-count!-procedure¤
Ag m-46961e5187-2d8¤
B
Ap ¤
Cg t-46961e5187-2d6¤
Dg t-46961e5187-2d7¤
E
C
D ¤
F
B
B ¤
Gf l-46961e5187-2dd¤
Hf l-46961e5187-2de¤
I
G
H ¤
Jr
E
F
I ¤
K
B ¤
Lf l-46961e5187-2da¤
M
L ¤
Nr
K
M ¤
O
B
J}
NĄ}}}}ČÕŪß
¤
Pn¹
Oį ¤
Qå
J}
NĄ} æ Å} Ź} Š ¤
Rnż
Qį ¤
Sn Ó
Qį ¤
T
R
S ¤
Uno
Qį ¤
Vnŗ
Qį ¤
Wn¼
Qį ¤
X
W
R ¤
Y$
J}
NĄØ}¬ ¤
ZnÆ
Y ¤
[
V
X
Z ¤
\n Ż
Qį ¤
]
J}
N ¤
^n
] ¤
_
\
R
^
S ¤
`nĘ
Qį ¤
an
Qį ¤
bq
J}
N ¤
cn7
b ¤
d
a
c ¤
e
`
R
d ¤
f
U
[
_
e ¤
g
P
T
f ¤
hq}
N ¤
in
@
h ¤
jg "%test-runner-skip-count!-procedure¤
kg m-46961e5187-2e8¤
l
kp ¤
mg t-46961e5187-2e6¤
ng t-46961e5187-2e7¤
o
m
n ¤
p
l
l ¤
qf l-46961e5187-2ed¤
rf l-46961e5187-2ee¤
s
q
r ¤
tr
o
p
s ¤
u
l ¤
vf l-46961e5187-2ea¤
w
v ¤
xr
u
w ¤
y
l
t}
xĄ}}}}ČÕŪß
¤
zn¹
yį ¤
{å
t}
xĄ} æ Å} Ź} Š ¤
|nż
{į ¤
}n Ó
{į ¤
~
|
} ¤
no
{į ¤
nŗ
{į ¤
n¼
{į ¤
| ¤
$
t}
xĄØ}¬ ¤
nÆ
¤
¤
n Ż
{į ¤
t}
x ¤
n
¤
|
} ¤
nĘ
{į ¤
n
{į ¤
q
t}
x ¤
n9
¤
¤
|
¤
¤
z
~
¤
q}
x ¤
n
j
¤
g %test-runner-skip-list!¤
g "%%test-runner-skip-list!-procedure¤
g m-46961e5187-2f8¤
p ¤
g t-46961e5187-2f6¤
g t-46961e5187-2f7¤
¤
¤
f l-46961e5187-2fd¤
f l-46961e5187-2fe¤
¤
r
¤
¤
”f l-46961e5187-2fa¤
¢
” ¤
£r
¢ ¤
¤
}
£Ą}}}}ČÕŪß
¤
„n¹
¤į ¤
¦å
}
£Ą} æ Å} Ź} Š ¤
§nż
¦į ¤
Øn Ó
¦į ¤
©
§
Ø ¤
Ŗno
¦į ¤
«nŗ
¦į ¤
¬n¼
¦į ¤
¬
§ ¤
®$
}
£ĄØ}¬ ¤
ÆnÆ
® ¤
°
«
Æ ¤
±n Ż
¦į ¤
²
}
£ ¤
³n
² ¤
“
±
§
³
Ø ¤
µnĘ
¦į ¤
¶n
¦į ¤
·q
}
£ ¤
øn
· ¤
¹
¶
ø ¤
ŗ
µ
§
¹ ¤
»
Ŗ
°
“
ŗ ¤
¼
„
©
» ¤
½q}
£ ¤
¾n
½ ¤
æg %test-runner-fail-list!¤
Ąg "%%test-runner-fail-list!-procedure¤
Įg m-46961e5187-308¤
Ā
Įp ¤
Ćg t-46961e5187-306¤
Äg t-46961e5187-307¤
Å
Ć
Ä ¤
Ę
Ā
Ā ¤
Ēf l-46961e5187-30d¤
Čf l-46961e5187-30e¤
É
Ē
Č ¤
Źr
Å
Ę
É ¤
Ė
Ā ¤
Ģf l-46961e5187-30a¤
Ķ
Ģ ¤
Īr
Ė
Ķ ¤
Ļ
Ā
Ź}
ĪĄ}}}}ČÕŪß
¤
Šn¹
Ļį ¤
Ńå
Ź}
ĪĄ} æ Å} Ź} Š ¤
Ņnż
Ńį ¤
Ón Ó
Ńį ¤
Ō
Ņ
Ó ¤
Õno
Ńį ¤
Önŗ
Ńį ¤
×n¼
Ńį ¤
Ų
×
Ņ ¤
Ł$
Ź}
ĪĄØ}¬ ¤
ŚnÆ
Ł ¤
Ū
Ö
Ų
Ś ¤
Ün Ż
Ńį ¤
Ż
Ź}
Ī ¤
Žn
Ż ¤
ß
Ü
Ņ
Ž
Ó ¤
ąnĘ
Ńį ¤
įn
Ńį ¤
āq
Ź}
Ī ¤
ćn
æ
ā ¤
ä
į
ć ¤
å
ą
Ņ
ä ¤
ę
Õ
Ū
ß
å ¤
ē
Š
Ō
ę ¤
čq}
Ī ¤
én
Ą
č ¤
źg %test-runner-run-list!¤
ėg !%%test-runner-run-list!-procedure¤
ģg m-46961e5187-318¤
ķ
ģp ¤
īg t-46961e5187-316¤
ļg t-46961e5187-317¤
š
ī
ļ ¤
ń
ķ
ķ ¤
ņf l-46961e5187-31d¤
óf l-46961e5187-31e¤
ō
ņ
ó ¤
õr
š
ń
ō ¤
ö
ķ ¤
÷f l-46961e5187-31a¤
ų
÷ ¤
łr
ö
ų ¤
ś
ķ
õ}
łĄ}}}}ČÕŪß
¤
ūn¹
śį ¤
üå
õ}
łĄ} æ Å} Ź} Š ¤
żnż
üį ¤
žn Ó
üį ¤
’
ż
ž ¤ no
üį ¤ nŗ
üį ¤ n¼
üį ¤
ż ¤ $
õ}
łĄØ}¬ ¤ nÆ ¤ ¤ n Ż
üį ¤
õ}
ł ¤ n ¤
ż
ž ¤ nĘ
üį ¤ n
üį ¤
q
õ}
ł ¤ n
ź
¤ ¤
ż ¤
¤
ū
’ ¤ q}
ł ¤ n
ė ¤ g %test-runner-skip-save!¤ g "%%test-runner-skip-save!-procedure¤ g m-46961e5187-328¤ p ¤ g t-46961e5187-326¤ g t-46961e5187-327¤ ¤ ¤ f l-46961e5187-32d¤ f l-46961e5187-32e¤ ¤ r ¤ ! ¤ "f l-46961e5187-32a¤ # " ¤ $r ! # ¤ % } $Ą}}}}ČÕŪß
¤ &n¹ %į ¤ 'å } $Ą} æ Å} Ź} Š ¤ (nż 'į ¤ )n Ó 'į ¤ * ( ) ¤ +no 'į ¤ ,nŗ 'į ¤ -n¼ 'į ¤ . - ( ¤ /$ } $ĄØ}¬ ¤ 0nÆ / ¤ 1 , . 0 ¤ 2n Ż 'į ¤ 3 } $ ¤ 4n 3 ¤ 5 2 ( 4 ) ¤ 6nĘ 'į ¤ 7n 'į ¤ 8q } $ ¤ 9n 8 ¤ : 7 9 ¤ ; 6 ( : ¤ < + 1 5 ; ¤ = & * < ¤ >q} $ ¤ ?n > ¤ @g %test-runner-fail-save!¤ Ag "%%test-runner-fail-save!-procedure¤ Bg m-46961e5187-338¤ C Bp ¤ Dg t-46961e5187-336¤ Eg t-46961e5187-337¤ F D E ¤ G C C ¤ Hf l-46961e5187-33d¤ If l-46961e5187-33e¤ J H I ¤ Kr F G J ¤ L C ¤ Mf l-46961e5187-33a¤ N M ¤ Or L N ¤ P C K} OĄ}}}}ČÕŪß
¤ Qn¹ Pį ¤ Rå K} OĄ} æ Å} Ź} Š ¤ Snż Rį ¤ Tn Ó Rį ¤ U S T ¤ Vno Rį ¤ Wnŗ Rį ¤ Xn¼ Rį ¤ Y X S ¤ Z$ K} OĄØ}¬ ¤ [nÆ Z ¤ \ W Y [ ¤ ]n Ż Rį ¤ ^ K} O ¤ _n ^ ¤ ` ] S _ T ¤ anĘ Rį ¤ bn Rį ¤ cq K} O ¤ dn @ c ¤ e b d ¤ f a S e ¤ g V \ ` f ¤ h Q U g ¤ iq} O ¤ jn A i ¤ kg #%test-runner-group-stack!-procedure¤ lg m-46961e5187-348¤ m lp ¤ ng t-46961e5187-346¤ og t-46961e5187-347¤ p n o ¤ q m m ¤ rf l-46961e5187-34d¤ sf l-46961e5187-34e¤ t r s ¤ ur p q t ¤ v m ¤ wf l-46961e5187-34a¤ x w ¤ yr v x ¤ z m u} yĄ}}}}ČÕŪß
¤ {n¹ zį ¤ |å u} yĄ} æ Å} Ź} Š ¤ }nż |į ¤ ~n Ó |į ¤ } ~ ¤ no |į ¤ nŗ |į ¤ n¼ |į ¤ } ¤ $ u} yĄØ}¬ ¤
nÆ ¤
¤ n Ż |į ¤ u} y ¤ n
¤ } ~ ¤ nĘ |į ¤ n |į ¤ q u} y ¤ n; ¤ ¤ } ¤ ¤ { ¤ q} y ¤ n k ¤ g %%test-runner-on-test-begin!-procedure¤ g m-46961e5187-358¤ p ¤ g t-46961e5187-356¤ g t-46961e5187-357¤ ¤ ¤ f l-46961e5187-35d¤ f l-46961e5187-35e¤ ¤ r ¤ ¤ ”f l-46961e5187-35a¤ ¢ ” ¤ £r ¢ ¤ ¤ } £Ą}}}}ČÕŪß
¤ „n¹ ¤į ¤ ¦å } £Ą} æ Å} Ź} Š ¤ §nż ¦į ¤ Øn Ó ¦į ¤ © § Ø ¤ Ŗno ¦į ¤ «nŗ ¦į ¤ ¬n¼ ¦į ¤ ¬ § ¤ ®$ } £ĄØ}¬ ¤ ÆnÆ ® ¤ ° « Æ ¤ ±n Ż ¦į ¤ ² } £ ¤ ³n ² ¤ “ ± § ³ Ø ¤ µnĘ ¦į ¤ ¶n ¦į ¤ ·q } £ ¤ øn= · ¤ ¹ ¶ ø ¤ ŗ µ § ¹ ¤ » Ŗ ° “ ŗ ¤ ¼ „ © » ¤ ½q} £ ¤ ¾n ½ ¤ æg #%test-runner-on-test-end!-procedure¤ Ąg m-46961e5187-368¤ Į Ąp ¤ Āg t-46961e5187-366¤ Ćg t-46961e5187-367¤ Ä Ā Ć ¤ Å Į Į ¤ Ęf l-46961e5187-36d¤ Ēf l-46961e5187-36e¤ Č Ę Ē ¤ Ér Ä Å Č ¤ Ź Į ¤ Ėf l-46961e5187-36a¤ Ģ Ė ¤ Ķr Ź Ģ ¤ Ī Į É} ĶĄ}}}}ČÕŪß
¤ Ļn¹ Īį ¤ Šå É} ĶĄ} æ Å} Ź} Š ¤ Ńnż Šį ¤ Ņn Ó Šį ¤ Ó Ń Ņ ¤ Ōno Šį ¤ Õnŗ Šį ¤ Ön¼ Šį ¤ × Ö Ń ¤ Ų$ É} ĶĄØ}¬ ¤ ŁnÆ Ų ¤ Ś Õ × Ł ¤ Ūn Ż Šį ¤ Ü É} Ķ ¤ Żn Ü ¤ Ž Ū Ń Ż Ņ ¤ ßnĘ Šį ¤ ąn Šį ¤ įq É} Ķ ¤ ān? į ¤ ć ą ā ¤ ä ß Ń ć ¤ å Ō Ś Ž ä ¤ ę Ļ Ó å ¤ ēq} Ķ ¤ čn æ ē ¤ ég &%test-runner-on-group-begin!-procedure¤ źg m-46961e5187-378¤ ė źp ¤ ģg t-46961e5187-376¤ ķg t-46961e5187-377¤ ī ģ ķ ¤ ļ ė ė ¤ šf l-46961e5187-37d¤ ńf l-46961e5187-37e¤ ņ š ń ¤ ór ī ļ ņ ¤ ō ė ¤ õf l-46961e5187-37a¤ ö õ ¤ ÷r ō ö ¤ ų ė ó} ÷Ą}}}}ČÕŪß
¤ łn¹ ųį ¤ śå ó} ÷Ą} æ Å} Ź} Š ¤ ūnż śį ¤ ün Ó śį ¤ ż ū ü ¤ žno śį ¤ ’nŗ śį ¤ n¼ śį ¤ ū ¤ $ ó} ÷ĄØ}¬ ¤ nÆ ¤ ’ ¤ n Ż śį ¤ ó} ÷ ¤ n
¤ ū ü ¤ nĘ śį ¤
n śį ¤ q ó} ÷ ¤ nA ¤
¤ ū
¤ ž ¤ ł ż ¤ q} ÷ ¤ n é ¤ g $%test-runner-on-group-end!-procedure¤ g m-46961e5187-388¤ p ¤ g t-46961e5187-386¤ g t-46961e5187-387¤ ¤ ¤ f l-46961e5187-38d¤ f l-46961e5187-38e¤ ¤ r ¤ ¤ f l-46961e5187-38a¤ ¤ !r ¤ " } !Ą}}}}ČÕŪß
¤ #n¹ "į ¤ $å } !Ą} æ Å} Ź} Š ¤ %nż $į ¤ &n Ó $į ¤ ' % & ¤ (no $į ¤ )nŗ $į ¤ *n¼ $į ¤ + * % ¤ ,$ } !ĄØ}¬ ¤ -nÆ , ¤ . ) + - ¤ /n Ż $į ¤ 0 } ! ¤ 1n 0 ¤ 2 / % 1 & ¤ 3nĘ $į ¤ 4n $į ¤ 5q } ! ¤ 6nC 5 ¤ 7 4 6 ¤ 8 3 % 7 ¤ 9 ( . 2 8 ¤ : # ' 9 ¤ ;q} ! ¤ <n ; ¤ =g %test-runner-on-final!-procedure¤ >g m-46961e5187-398¤ ? >p ¤ @g t-46961e5187-396¤ Ag t-46961e5187-397¤ B @ A ¤ C ? ? ¤ Df l-46961e5187-39d¤ Ef l-46961e5187-39e¤ F D E ¤ Gr B C F ¤ H ? ¤ If l-46961e5187-39a¤ J I ¤ Kr H J ¤ L ? G} KĄ}}}}ČÕŪß
¤ Mn¹ Lį ¤ Nå G} KĄ} æ Å} Ź} Š ¤ Onż Nį ¤ Pn Ó Nį ¤ Q O P ¤ Rno Nį ¤ Snŗ Nį ¤ Tn¼ Nį ¤ U T O ¤ V$ G} KĄØ}¬ ¤ WnÆ V ¤ X S U W ¤ Yn Ż Nį ¤ Z G} K ¤ [n Z ¤ \ Y O [ P ¤ ]nĘ Nį ¤ ^n Nį ¤ _q G} K ¤ `nE _ ¤ a ^ ` ¤ b ] O a ¤ c R X \ b ¤ d M Q c ¤ eq} K ¤ fn = e ¤ gg $%test-runner-on-bad-count!-procedure¤ hg m-46961e5187-3a8¤ i hp ¤ jg t-46961e5187-3a6¤ kg t-46961e5187-3a7¤ l j k ¤ m i i ¤ nf l-46961e5187-3ad¤ of l-46961e5187-3ae¤ p n o ¤ qr l m p ¤ r i ¤ sf l-46961e5187-3aa¤ t s ¤ ur r t ¤ v i q} uĄ}}}}ČÕŪß
¤ wn¹ vį ¤ xå q} uĄ} æ Å} Ź} Š ¤ ynż xį ¤ zn Ó xį ¤ { y z ¤ |no xį ¤ }nŗ xį ¤ ~n¼ xį ¤ ~ y ¤ $ q} uĄØ}¬ ¤ nÆ ¤ } ¤ n Ż xį ¤ q} u ¤
n ¤ y
z ¤ nĘ xį ¤ n xį ¤ q q} u ¤ nG ¤ ¤ y ¤ | ¤ w { ¤ q} u ¤ n g ¤ g '%test-runner-on-bad-end-name!-procedure¤ g m-46961e5187-3b8¤ p ¤ g t-46961e5187-3b6¤ g t-46961e5187-3b7¤ ¤ ¤ f l-46961e5187-3bd¤ f l-46961e5187-3be¤ ¤ r ¤ ¤ f l-46961e5187-3ba¤ ¤ r ¤ } Ą}}}}ČÕŪß
¤ ”n¹ į ¤ ¢å } Ą} æ Å} Ź} Š ¤ £nż ¢į ¤ ¤n Ó ¢į ¤ „ £ ¤ ¤ ¦no ¢į ¤ §nŗ ¢į ¤ Øn¼ ¢į ¤ © Ø £ ¤ Ŗ$ } ĄØ}¬ ¤ «nÆ Ŗ ¤ ¬ § © « ¤ n Ż ¢į ¤ ® } ¤ Æn ® ¤ ° £ Æ ¤ ¤ ±nĘ ¢į ¤ ²n ¢į ¤ ³q } ¤ “nI ³ ¤ µ ² “ ¤ ¶ ± £ µ ¤ · ¦ ¬ ° ¶ ¤ ø ” „ · ¤ ¹q} ¤ ŗn ¹ ¤ »g %test-runner-total-count!¤ ¼g $%%test-runner-total-count!-procedure¤ ½g m-46961e5187-3c8¤ ¾ ½p ¤ æg t-46961e5187-3c6¤ Ąg t-46961e5187-3c7¤ Į æ Ą ¤ Ā ¾ ¾ ¤ Ćf l-46961e5187-3cd¤ Äf l-46961e5187-3ce¤ Å Ć Ä ¤ Ęr Į Ā Å ¤ Ē ¾ ¤ Čf l-46961e5187-3ca¤ É Č ¤ Źr Ē É ¤ Ė ¾ Ę} ŹĄ}}}}ČÕŪß
¤ Ģn¹ Ėį ¤ Ķå Ę} ŹĄ} æ Å} Ź} Š ¤ Īnż Ķį ¤ Ļn Ó Ķį ¤ Š Ī Ļ ¤ Ńno Ķį ¤ Ņnŗ Ķį ¤ Ón¼ Ķį ¤ Ō Ó Ī ¤ Õ$ Ę} ŹĄØ}¬ ¤ ÖnÆ Õ ¤ × Ņ Ō Ö ¤ Ųn Ż Ķį ¤ Ł Ę} Ź ¤ Śn Ł ¤ Ū Ų Ī Ś Ļ ¤ ÜnĘ Ķį ¤ Żn Ķį ¤ Žq Ę} Ź ¤ ßn » Ž ¤ ą Ż ß ¤ į Ü Ī ą ¤ ā Ń × Ū į ¤ ć Ģ Š ā ¤ äq} Ź ¤ ån ¼ ä ¤ ęg %test-runner-count-list!¤ ēg #%%test-runner-count-list!-procedure¤ čg m-46961e5187-3d8¤ é čp ¤ źg t-46961e5187-3d6¤ ėg t-46961e5187-3d7¤ ģ ź ė ¤ ķ é é ¤ īf l-46961e5187-3dd¤ ļf l-46961e5187-3de¤ š ī ļ ¤ ńr ģ ķ š ¤ ņ é ¤ óf l-46961e5187-3da¤ ō ó ¤ õr ņ ō ¤ ö é ń} õĄ}}}}ČÕŪß
¤ ÷n¹ öį ¤ ųå ń} õĄ} æ Å} Ź} Š ¤ łnż ųį ¤ śn Ó ųį ¤ ū ł ś ¤ üno ųį ¤ żnŗ ųį ¤ žn¼ ųį ¤ ’ ž ł ¤
$ ń} õĄØ}¬ ¤
nÆ
¤
ż ’
¤
n Ż ųį ¤
ń} õ ¤
n
¤
ł
ś ¤
nĘ ųį ¤
n ųį ¤
q ń} õ ¤
n ę
¤
¤
ł
¤
ü
¤
÷ ū
¤
q} õ ¤
n ē
¤
g %test-result-alist!-procedure¤
g m-46961e5187-3e8¤
p ¤
g t-46961e5187-3e6¤
g t-46961e5187-3e7¤
¤
¤
f l-46961e5187-3ed¤
f l-46961e5187-3ee¤
¤
r
¤
¤
f l-46961e5187-3ea¤
¤
r
¤
}
Ą}}}}ČÕŪß
¤
!n¹
į ¤
"å
}
Ą} æ Å} Ź} Š ¤
#nż
"į ¤
$n Ó
"į ¤
%
#
$ ¤
&no
"į ¤
'nŗ
"į ¤
(n¼
"į ¤
)
(
# ¤
*$
}
ĄØ}¬ ¤
+nÆ
* ¤
,
'
)
+ ¤
-n Ż
"į ¤
.
}
¤
/n
. ¤
0
-
#
/
$ ¤
1nĘ
"į ¤
2n
"į ¤
3q
}
¤
4nK
3 ¤
5
2
4 ¤
6
1
#
5 ¤
7
&
,
0
6 ¤
8
!
%
7 ¤
9q}
¤
:n
9 ¤
;g !%test-runner-aux-value!-procedure¤
g t-46961e5187-3f6¤
?g t-46961e5187-3f7¤
@
>
? ¤
A
=
= ¤
Bf l-46961e5187-3fd¤
Cf l-46961e5187-3fe¤
D
B
C ¤
Er
@
A
D ¤
F
= ¤
Gf l-46961e5187-3fa¤
H
G ¤
Ir
F
H ¤
J
=
E}
IĄ}}}}ČÕŪß
¤
Kn¹
Jį ¤
Lå
E}
IĄ} æ Å} Ź} Š ¤
Mnż
Lį ¤
Nn Ó
Lį ¤
O
M
N ¤
Pno
Lį ¤
Qnŗ
Lį ¤
Rn¼
Lį ¤
S
R
M ¤
T$
E}
IĄØ}¬ ¤
UnÆ
T ¤
V
Q
S
U ¤
Wn Ż
Lį ¤
X
E}
I ¤
Yn
X ¤
Z
W
M
Y
N ¤
[nĘ
Lį ¤
\n
Lį ¤
]q
E}
I ¤
^nM
] ¤
_
\
^ ¤
`
[
M
_ ¤
a
P
V
Z
` ¤
b
K
O
a ¤
cq}
I ¤
dn
;
c ¤
eg reverse¤
fg %test-null-callback¤
gg test-on-test-begin-simple¤
hg make-parameter¤
ig error¤
jf 1test-runner not initialized - test-begin missing?¤
kg %test-specifier-matches¤
lg %test-any-specifier-matches¤
mg result-kind¤
ng skip¤
og xfail¤
pg %test-should-execute¤
qg %test-begin¤
rg
suite-name¤
ss
r ¤
tg m-46961e5187-407¤
u
tp ¤
v
uq ¤
wf l-46961e5187-40c¤
xf l-46961e5187-40d¤
y
w
x ¤
zr
s
v
y ¤
{
u ¤
|f l-46961e5187-409¤
}
| ¤
~r
{
} ¤
q
z}
~ ¤
n
q
¤
n
¤
¤
lll ¤
g count¤
s
r
¤
uqq ¤
f l-46961e5187-411¤
f l-46961e5187-412¤
f l-46961e5187-413¤
¤
r
¤
q
}
~ ¤
n
q
¤
g display¤
f %%%% Starting test ¤
g string?¤
g
string-append¤
f .log¤
g open-output-file¤
g newline¤
f (Writing full log to "¤
f ")¤
g output-port?¤
f
Group begin: ¤
f Group end: ¤
f *** Total number of tests was ¤
f but should be ¤
f . ***¤
f <*** Discrepancy indicates testsuite error or exceptions. ***¤
g %test-on-bad-count-write¤
g current-output-port¤
g %test-format-line¤
”f test-end ¤
¢f does not match test-begin ¤
£g %test-final-report1¤
¤f # of expected passes ¤
„f # of expected failures ¤
¦f # of unexpected successes ¤
§f # of unexpected failures ¤
Øf # of skipped tests ¤
©g %test-final-report-simple¤
Ŗg assq¤
«g source-file¤
¬g source-line¤
f ¤
®f :¤
Æg number->string¤
°f : ¤
±f test-end not in a group¤
²g %test-end¤
³lm¤
“g let¤
µs
rĢ ¤
¶g m-46961e5187-417¤
·
¶p ¤
ø
·qq ¤
¹f l-46961e5187-41c¤
ŗf l-46961e5187-41d¤
»f l-46961e5187-41e¤
¼
¹
ŗ
» ¤
½r
µ
ø
¼ ¤
¾
· ¤
æf l-46961e5187-419¤
Ą
æ ¤
Įr
¾
Ą ¤
Āq
½}
Į ¤
Ćn
“
Ā ¤
Äg r¤
Ån
Ä
Ā ¤
Ęn+
Ā ¤
Ē
Ę ¤
Č
Å
Ē ¤
É
Č ¤
ŹnK
Ā ¤
Ėn“
Ā ¤
Ģg cons¤
Ķn
Ģ
Ā ¤
Īn
Ā ¤
Ļg test-name¤
Šn
Ļ
Ā ¤
Ń
Ī
Š ¤
Ņno
Ā ¤
Ón
p
Ā ¤
Ō
Ó
Å ¤
Õg dynamic-wind¤
Ön
Õ
Ā ¤
×n¹
Ā ¤
Ųn
Ā ¤
Łn
Ā ¤
Śg cleanup-form¤
Ūs
rž
Ś ¤
Üg m-46961e5187-422¤
Ż
Üp ¤
Ž
Żqqq ¤
ßf l-46961e5187-427¤
ąf l-46961e5187-428¤
įf l-46961e5187-429¤
āf l-46961e5187-42a¤
ć
ß
ą
į
ā ¤
är
Ū
Ž
ć ¤
å
Ż ¤
ęf l-46961e5187-424¤
ē
ę ¤
čr
å
ē ¤
éq
ä}
č ¤
źn
é ¤
ėn
Õ
é ¤
ģn¹
é ¤
ķn
é ¤
ī
ģ
ķ ¤
ļs
r
Ś ¤
š
Żqq ¤
ńf l-46961e5187-430¤
ņf l-46961e5187-431¤
óf l-46961e5187-432¤
ō
ń
ņ
ó ¤
õr
ļ
š
ō ¤
öq
õ}
č ¤
÷n
ö ¤
ųn
ö ¤
łl
³¤
śl
ł¤
ūl
ś¤
üg form1¤
żg form2¤
žg form3¤
’g rest¤ s
r
ü
ż
ž
’ ¤
Żqqqqq ¤ f l-46961e5187-437¤ f l-46961e5187-438¤ f l-46961e5187-439¤ f l-46961e5187-43a¤ f l-46961e5187-43b¤ f l-46961e5187-43c¤ ¤ r ¤
q }
č ¤ n
¤ g begin¤
n
¤ g source-form¤ f Test begin:¤ g %test-write-result1¤ g runner¤ g pname¤ s ¤ g m-46961e5187-443¤ p ¤ qq ¤ f l-46961e5187-448¤ f l-46961e5187-449¤ f l-46961e5187-44a¤ ¤ r ¤ ¤ f l-46961e5187-445¤ ¤ r ¤ q} ¤ !n ¤ "n ¤ #" ¤ $g default¤ %s$ ¤ &qqq ¤ 'f l-46961e5187-44f¤ (f l-46961e5187-450¤ )f l-46961e5187-451¤ *f l-46961e5187-452¤ +'()* ¤ ,r%&+ ¤ -q,} ¤ .n
“- ¤ /g p¤ 0n/- ¤ 1n
Ŗ- ¤ 2nJ- ¤ 3no- ¤ 4g cdr¤ 5n4- ¤ 650 ¤ 7g fail¤ 8g xpass¤ 9f XPASS¤ :f FAIL¤ ;f ¤
Ļ
«
¬ ¤ ?f ¤ @g write¤ Ag pass¤ BA8 ¤ Cg %test-report-result¤ Dg %test-evaluate-with-catch¤ Eg catch¤ Fg test-expression¤ GsF ¤ Hg m-46961e5187-458¤ IHp ¤ JIq ¤ Kf l-46961e5187-45d¤ Lf l-46961e5187-45e¤ MKL ¤ NrGJM ¤ OI ¤ Pf l-46961e5187-45a¤ QP ¤ RrOQ ¤ SqN}R ¤ TnES ¤ UnS ¤ Vn¹S ¤ WnÉS ¤ XnĀS ¤ YWX¤ Zn!S ¤ [n+S ¤ \[ ¤ ]nS ¤ ^g actual-error¤ _n^S ¤ `]_ ¤ an
ĢS ¤ baWX ¤ cZ\`b ¤ dnS ¤ eVYcd ¤ fe ¤ gg
syntax-source¤ hg assq-ref¤ ig filename¤ jg line¤ kg
datum->syntax¤ lg here¤ mg
line-alist¤ nm ¤ of l-46961e5187-5eb¤ po ¤ qrnÜp ¤ rg
file-alist¤ sr ¤ tf l-46961e5187-5e8¤ ut ¤ vrsÜu ¤ wj ¤ xf l-46961e5187-5e4¤ yx ¤ zrwÜy ¤ {g file¤ |{ ¤ }f l-46961e5187-5e0¤ ~} ¤ r|Ü~ ¤ g src-props¤ ¤ f l-46961e5187-5de¤ ¤ rÜ ¤
ž ¤ f l-46961e5187-5dc¤ ¤ r
Ü ¤ q}}q}v}z}}}} ¤ nl ¤ g
syntax->datum¤ g append¤ ¤ ¤ g %test-source-line2¤ g %test-on-test-begin¤ g %test-on-test-end¤ g %test-comp2body¤ lllll ¤ g comp¤ g expected¤ s
Ä g ¤ g m-46961e5187-462¤ p ¤ qqqq ¤ f l-46961e5187-467¤ f l-46961e5187-468¤ f l-46961e5187-469¤ f l-46961e5187-46a¤ f l-46961e5187-46b¤ ¤ r ¤ ” ¤ ¢f l-46961e5187-464¤ £¢ ¤ ¤r”£ ¤ „q }¤ ¤ ¦n
“„ ¤ §no„ ¤ Øn„ ¤ ©g exp¤ Ŗn©„ ¤ «n!„ ¤ ¬n„ ¤ g expected-value¤ ®n„ ¤ Ƭ® ¤ °ÆŖ ¤ ±g res¤ ²n±„ ¤ ³nD„ ¤ “g actual-value¤ µn“„ ¤ ¶¬µ ¤ ·¶² ¤ øn„ ¤ ¹Ŗ² ¤ ŗnC„ ¤ »ŗ ¤ ¼» ¤ ½g real-part¤ ¾g imag-part¤ æg %test-approximate=¤ Ąg %test-comp1body¤ Įs
Ä g ¤ Āg m-46961e5187-471¤ ĆĀp ¤ ÄĆqq ¤ Åf l-46961e5187-476¤ Ęf l-46961e5187-477¤ Ēf l-46961e5187-478¤ ČÅĘĒ ¤ ÉrĮÄČ ¤ ŹĆ ¤ Ėf l-46961e5187-473¤ ĢĖ ¤ ĶrŹĢ ¤ ĪqÉ}Ķ ¤ Ļn
“Ī ¤ ŠnoĪ ¤ ŃnĪ ¤ Ņn±Ī ¤ ÓnDĪ ¤ Ōn!Ī ¤ ÕnĪ ¤ Ön“Ī ¤ ×ÕÖ ¤ Ų×Ņ ¤ ŁnĪ ¤ ŚŅ ¤ ŪnCĪ ¤ ÜŪ ¤ ŻÜ ¤ Žf l-46961e5187-47e¤ ߎ ¤ ąrÜß ¤ įq}ą ¤ ānį ¤ ć `l ¤ äg mac¤ åä
rj ¤ ęf l-46961e5187-481¤ ēf l-46961e5187-482¤ čf l-46961e5187-483¤ éęēč ¤ źråńé ¤ ėqź}ą ¤ ģn
²ė ¤ ķl ¤ īķl ¤ ļäj ¤ šf l-46961e5187-488¤ ńf l-46961e5187-489¤ ņšń ¤ órļÄņ ¤ ōqó}ą ¤ õn
²ō ¤ önō ¤ ÷f l-46961e5187-48d¤ ų÷ ¤ łrÜų ¤ śq}ł ¤ ūnś ¤ ü
l ¤ żg let*¤ žg tname¤ ’äž gj ¤ f l-46961e5187-490¤ f l-46961e5187-491¤ f l-46961e5187-492¤ f l-46961e5187-493¤ ¤ r’ ¤ q}ł ¤ nż ¤ n
Ä ¤ n- ¤
¤
¤ n ¤
nK ¤ n
Ģ ¤ n ¤ n
Ļ ¤ ¤ nĄ ¤ ä gj ¤ f l-46961e5187-499¤ f l-46961e5187-49a¤ f l-46961e5187-49b¤ ¤ rń ¤ q}ł ¤ nż ¤ n
Ä ¤ n- ¤ ¤ ¤ ¤ nK ¤ !nĄ ¤ "~ ¤ #f l-46961e5187-58e¤ $f l-46961e5187-58f¤ %#$ ¤ &r"Ä% ¤ 'q}& ¤ (n' ¤ )ll ¤ *äž gj ¤ +f l-46961e5187-592¤ ,f l-46961e5187-593¤ -f l-46961e5187-594¤ .f l-46961e5187-595¤ /f l-46961e5187-596¤ 0f l-46961e5187-597¤ 1+,-./0 ¤ 2r*©1 ¤ 3q2}& ¤ 4nż3 ¤ 5n
Ä3 ¤ 6n-3 ¤ 76 ¤ 857 ¤ 9n3 ¤ :nK3 ¤ ;n
Ģ3 ¤ <n3 ¤ =n
Ļ3 ¤ ><= ¤ ?n3 ¤ @
ll ¤ Aä gj ¤ Bf l-46961e5187-59f¤ Cf l-46961e5187-5a0¤ Df l-46961e5187-5a1¤ Ef l-46961e5187-5a2¤ Ff l-46961e5187-5a3¤ GBCDEF ¤ HrAĪG ¤ IqH}& ¤ JnżI ¤ Kn
ÄI ¤ Ln-I ¤ ML ¤ NKM ¤ ON ¤ PnKI ¤ QnI ¤ Rg %test-comp2¤ Sg eqv?¤ Tf l-46961e5187-4a0¤ UT ¤ VrÜU ¤ Wq}V ¤ XnSW ¤ Yf l-46961e5187-4a2¤ ZY ¤ [rÜZ ¤ \q}[ ¤ ]nŗ\ ¤ ^g equal?¤ _f l-46961e5187-4a4¤ `_ ¤ arÜ` ¤ bq}a ¤ cn^b ¤ df l-46961e5187-4a6¤ ed ¤ frÜe ¤ gq}f ¤ hng ¤ il ¤ jäž g
ij ¤ kf l-46961e5187-4a9¤ lf l-46961e5187-4aa¤ mf l-46961e5187-4ab¤ nf l-46961e5187-4ac¤ of l-46961e5187-4ad¤ pf l-46961e5187-4ae¤ qklmnop ¤ rrj©q ¤ sqr}f ¤ tnżs ¤ un
Äs ¤ vn-s ¤ wv ¤ xuw ¤ yns ¤ znKs ¤ {n
Ģs ¤ |ns ¤ }n
Ļs ¤ ~|} ¤ ns ¤ næs ¤ l ¤ ä g
ij ¤ f l-46961e5187-4b6¤ f l-46961e5187-4b7¤
f l-46961e5187-4b8¤ f l-46961e5187-4b9¤ f l-46961e5187-4ba¤
¤ rĪ ¤ q}f ¤ nż ¤ n
Ä ¤ n- ¤ ¤ ¤ ¤ nK ¤ n ¤ næ ¤ g %test-error¤ g cond¤ g etype¤ s
Ä g ¤ g m-46961e5187-4c1¤ p ¤ qqq ¤ f l-46961e5187-4c6¤ f l-46961e5187-4c7¤ f l-46961e5187-4c8¤ f l-46961e5187-4c9¤ ¤ r ¤ ” ¤ ¢f l-46961e5187-4c3¤ £¢ ¤ ¤r”£ ¤ „q }¤ ¤ ¦n„ ¤ §n„ ¤ Øn
“„ ¤ ©g et¤ Ŗn©„ ¤ «n!„ ¤ ¬n„ ¤ g expected-error¤ ®n„ ¤ Ƭ® ¤ °ÆŖ ¤ ±n„ ¤ ²nE„ ¤ ³n„ ¤ “n¹„ ¤ µn“„ ¤ ¶¬µ ¤ ·n„ ¤ ø· ¤ ¹nÉ„ ¤ ŗnĀ„ ¤ »¹ŗ¤ ¼n^„ ¤ ½¬¼ ¤ ¾n
Ģ„ ¤ æ¾¹ŗ ¤ Ą½æ ¤ Į³ ¤ ĀnC„ ¤ ĆĀ ¤ ÄĆ ¤ Åf l-46961e5187-4d0¤ ĘÅ ¤ ĒrÜĘ ¤ Čq}Ē ¤ ÉnČ ¤ Źäž gj ¤ Ėf l-46961e5187-4d3¤ Ģf l-46961e5187-4d4¤ Ķf l-46961e5187-4d5¤ Īf l-46961e5187-4d6¤ Ļf l-46961e5187-4d7¤ ŠĖĢĶĪĻ ¤ ŃrŹĪŠ ¤ ŅqŃ}Ē ¤ ÓnżŅ ¤ Ōn
ÄŅ ¤ Õn-Ņ ¤ ÖÕ ¤ ×ŌÖ ¤ ŲnŅ ¤ ŁnKŅ ¤ Śn
ĢŅ ¤ ŪnŅ ¤ Ün
ĻŅ ¤ ŻŪÜ ¤ ŽnŅ ¤ ßä gj ¤ ąf l-46961e5187-4de¤ įf l-46961e5187-4df¤ āf l-46961e5187-4e0¤ ćf l-46961e5187-4e1¤ äąįāć ¤ årßä ¤ ęqå}Ē ¤ ēnżę ¤ čn
Äę ¤ én-ę ¤ źé ¤ ėčź ¤ ģė ¤ ķnKę ¤ īnę ¤ ļf l-46961e5187-4e7¤ šf l-46961e5187-4e8¤ ńf l-46961e5187-4e9¤ ņļšń ¤ órńņ ¤ ōqó}Ē ¤ õnżō ¤ ön
Äō ¤ ÷n-ō ¤ ų÷ ¤ łöų ¤ śł ¤ ūnKō ¤ ünō ¤ żnō ¤ žg apply¤ ’l-¤ l’¤ sž ¤ g m-46961e5187-4ed¤ p ¤ qq ¤ f l-46961e5187-4f2¤ f l-46961e5187-4f3¤ f l-46961e5187-4f4¤ ¤ r ¤
¤ f l-46961e5187-4ef¤ ¤
r
¤ q }
¤ n
“ ¤ g saved-runner¤ n ¤ n+ ¤ ¤ ¤ ¤ n
Õ ¤ n¹ ¤ ¤ ¤ ¤ g %test-match-nth¤ g n¤ s ¤ g m-46961e5187-4f9¤ p ¤ q ¤ !f l-46961e5187-4fe¤ "f l-46961e5187-4ff¤ #!" ¤ $r # ¤ % ¤ &f l-46961e5187-4fb¤ '& ¤ (r%' ¤ )q$}( ¤ *n) ¤ +n ) ¤ ,+ ¤ -s
¤ . qq ¤ /f l-46961e5187-503¤ 0f l-46961e5187-504¤ 1f l-46961e5187-505¤ 2/01 ¤ 3r-.2 ¤ 4q3}( ¤ 5n4 ¤ 6g %test-match-all¤ 7g pred¤ 8s7 ¤ 9g m-46961e5187-509¤ :9p ¤ ;:q ¤ <= ¤ ?r8;> ¤ @: ¤ Af l-46961e5187-50b¤ BA ¤ Cr@B ¤ Dq?}C ¤ En6D ¤ Fg %test-as-specifier¤ GnFD ¤ Hg %test-match-any¤ Ig m-46961e5187-513¤ JIp ¤ KJq ¤ Lf l-46961e5187-518¤ Mf l-46961e5187-519¤ NLM ¤ Or8KN ¤ PJ ¤ Qf l-46961e5187-515¤ RQ ¤ SrPR ¤ TqO}S ¤ UnHT ¤ VnFT ¤ Wg
procedure?¤ Xg integer?¤ Yf not a valid test specifier¤ Zg m-46961e5187-51d¤ [Zp ¤ \[q ¤ ]f l-46961e5187-522¤ ^f l-46961e5187-523¤ _]^ ¤ `r8\_ ¤ a[ ¤ bf l-46961e5187-51f¤ cb ¤ drac ¤ eq`}d ¤ fn
“e ¤ gne ¤ hn-e ¤ ih ¤ jgi ¤ kj ¤ ln
e ¤ mn
Ģe ¤ nne ¤ onFe ¤ pn£e ¤ qpg ¤ rq ¤ sg m-46961e5187-527¤ tsp ¤ utq ¤ vf l-46961e5187-52c¤ wf l-46961e5187-52d¤ xvw ¤ yr8ux ¤ zt ¤ {f l-46961e5187-529¤ |{ ¤ }rz| ¤ ~qy}} ¤ n
“~ ¤ n~ ¤ n-~ ¤ ¤ ¤ ¤
n
æ~ ¤ n
Ģ~ ¤ n~ ¤ nF~ ¤ nś~ ¤ ¤ ¤ g open-input-string¤ g read¤ g eof-object?¤ g read-char¤ g eval¤ f (not at eof)¤C 5 h(X ]4
T5 4W > " G 4Xi4Yi5 Z> " G 4]`c > " G 4fghkm h @ ]C 8 g dummy
g names C h( ¢ ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-64/testing.scm
; " g
macro-typeg syntax-rulesg patternsg names C5gR4fhk®°³“ h ¢ ] 45C g dummy
g alloc g runner? g name g index g setter g getter C h( ß ] 4 5 $ @ 6 × g x
" g tmp " g filenamef srfi/srfi-64/testing.scm
g " g
macro-typeg syntax-rulesg patternsg allocg runner?g nameg indexg setterg getter g ... C5RÆ h u ] Ø C m g filenamef srfi/srfi-64/testing.scm
g nameg %%test-runner-alloc-procedure CµR4f¶hkø, h ] C
C.0¶1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C6 h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"’’×"’’Ó
g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5¶R 9: =ÆTØ 4 W Æ> " G ZµiŖ ÆRÆ h ] ¦$ §CC y g obj
g filenamef srfi/srfi-64/testing.scm
g nameg %test-runner?-procedure C[R4f'hk\Ć h 7 ] C / g t-46961e5187-35
C.0'1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
CÅ h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"’’×"’’Ó
g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5'RÆČ0 h ] §&
©C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg !%test-runner-pass-count-procedure CÉR4f0hkś h : ]C 2 g err
g s C h : ]C 2 g err
g s C $* h : ]C 2 g err
g s C\H h 7 ] C / g t-46961e5187-41
C.001 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
CJ h ] C
C hø É ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"’’×"’’Ó Į g x
¶ g tmp ¶ g tmp " ¶ g tmp 9 ¶ g tmp P ¶ g tmp g ¶ g tmp ¶ g filenamef srfi/srfi-64/testing.scm
¶ C50RÆČ2 h ] §& ©C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg !%test-runner-fail-count-procedure CKR4f2hkY`e h : ]C 2 g err
g s Chns h : ]C 2 g err
g s Cv| h : ]C 2 g err
g s C\ h 7 ] C / g t-46961e5187-5c
C.021 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C hø É ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"’’×"’’Ó Į g x
¶ g tmp ¶ g tmp " ¶ g tmp 9 ¶ g tmp P ¶ g tmp g ¶ g tmp ¶ g filenamef srfi/srfi-64/testing.scm
¶ C52RÆČ4 h ] §& ©C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg "%test-runner-xpass-count-procedure C”R4f4hkƶ» h : ]C 2 g err
g s C¾ÄÉ h : ]C 2 g err
g s CĢŅ× h : ]C 2 g err
g s C\ō h 7 ] C / g t-46961e5187-77
C.041 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
Cö h ] C
C hø É ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"’’×"’’Ó Į g x
¶ g tmp ¶ g tmp " ¶ g tmp 9 ¶ g tmp P ¶ g tmp g ¶ g tmp ¶ g filenamef srfi/srfi-64/testing.scm
¶ C54RÆČ6 h ] §& ©C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg "%test-runner-xfail-count-procedure C÷R4f6hk h : ]C 2 g err
g s C h : ]C 2 g err
g s C"(- h : ]C 2 g err
g s C\J h 7 ] C / g t-46961e5187-92
C.061 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
CL h ] C
C hø É ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"’’×"’’Ó Į g x
¶ g tmp ¶ g tmp " ¶ g tmp 9 ¶ g tmp P ¶ g tmp g ¶ g tmp ¶ g filenamef srfi/srfi-64/testing.scm
¶ C56RÆČ8 h ] §& ©C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg !%test-runner-skip-count-procedure CMR4f8hk[bg h : ]C 2 g err
g s Cjpu h : ]C 2 g err
g s Cx~ h : ]C 2 g err
g s C\ h 7 ] C / g t-46961e5187-ad
C.081 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C¢ h ] C
C hø É ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"’’×"’’Ó Į g x
¶ g tmp ¶ g tmp " ¶ g tmp 9 ¶ g tmp P ¶ g tmp g ¶ g tmp ¶ g filenamef srfi/srfi-64/testing.scm
¶ C58RÆČ£ h ] §& ©C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg !%%test-runner-skip-list-procedure C¤R4f£hk²¹¾ h : ]C 2 g err
g s CĮĒĢ h : ]C 2 g err
g s CĻÕŚ h : ]C 2 g err
g s C\÷ h 7 ] C / g t-46961e5187-c8
C.0£1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
Cł h ] C
C hø É ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"’’×"’’Ó Į g x
¶ g tmp ¶ g tmp " ¶ g tmp 9 ¶ g tmp P ¶ g tmp g ¶ g tmp ¶ g filenamef srfi/srfi-64/testing.scm
¶ C5£RÆČś h ] §& ©C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg !%%test-runner-fail-list-procedure CūR4fśhk h : ]C 2 g err
g s C # h : ]C 2 g err
g s C&,1 h : ]C 2 g err
g s C\N h 7 ] C / g t-46961e5187-e3
C.0ś1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
CP h ] C
C hø É ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"’’×"’’Ó Į g x
¶ g tmp ¶ g tmp " ¶ g tmp 9 ¶ g tmp P ¶ g tmp g ¶ g tmp ¶ g filenamef srfi/srfi-64/testing.scm
¶ C5śRÆČQ h ] §& ©C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg %%test-runner-run-list-procedure CRR4fQhk`gl h : ]C 2 g err
g s Couz h : ]C 2 g err
g s C} h : ]C 2 g err
g s C\„ h 7 ] C / g t-46961e5187-fe
C.0Q1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C§ h ] C
C hø É ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"’’×"’’Ó Į g x
¶ g tmp ¶ g tmp " ¶ g tmp 9 ¶ g tmp P ¶ g tmp g ¶ g tmp ¶ g filenamef srfi/srfi-64/testing.scm
¶ C5QRÆČØ h ] §& ©C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg !%%test-runner-skip-save-procedure C©R4fØhk·¾Ć h : ]C 2 g err
g s CĘĢŃ h : ]C 2 g err
g s CŌŚß h : ]C 2 g err
g s C\ü h 8 ] C 0 g t-46961e5187-119
C.0Ø1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
Cž h ] C
C hø É ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"’’×"’’Ó Į g x
¶ g tmp ¶ g tmp " ¶ g tmp 9 ¶ g tmp P ¶ g tmp g ¶ g tmp ¶ g filenamef srfi/srfi-64/testing.scm
¶ C5ØRÆČ’ h ] §& ©C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg !%%test-runner-fail-save-procedure C R4f’hk h : ]C 2 g err
g s C #( h : ]C 2 g err
g s C+16 h : ]C 2 g err
g s C\S h 8 ] C 0 g t-46961e5187-134
C.0’1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
CU h ] C
C hø É ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"’’×"’’Ó Į g x
¶ g tmp ¶ g tmp " ¶ g tmp 9 ¶ g tmp P ¶ g tmp g ¶ g tmp ¶ g filenamef srfi/srfi-64/testing.scm
¶ C5’RÆČ: h ] §&
©C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg "%test-runner-group-stack-procedure CVR4f:hkdkp h : ]C 2 g err
g s Csy~ h : ]C 2 g err
g s C h : ]C 2 g err
g s C\© h 8 ] C 0 g t-46961e5187-14f
C.0:1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C« h ] C
C hø É ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"’’×"’’Ó Į g x
¶ g tmp ¶ g tmp " ¶ g tmp 9 ¶ g tmp P ¶ g tmp g ¶ g tmp ¶ g filenamef srfi/srfi-64/testing.scm
¶ C5:RÆČ< h ] §& ©C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg $%test-runner-on-test-begin-procedure C¬R4f<hkŗĮĘ h : ]C 2 g err
g s CÉĻŌ h : ]C 2 g err
g s Cׯā h : ]C 2 g err
g s C\’ h 8 ] C 0 g t-46961e5187-16a
C.0<1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C hø É ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"’’×"’’Ó Į g x
¶ g tmp ¶ g tmp " ¶ g tmp 9 ¶ g tmp P ¶ g tmp g ¶ g tmp ¶ g filenamef srfi/srfi-64/testing.scm
¶ C5 h ] §& ©C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg "%test-runner-on-test-end-procedure CR4f>hk h : ]C 2 g err
g s C %* h : ]C 2 g err
g s C-38 h : ]C 2 g err
g s C\U h 8 ] C 0 g t-46961e5187-185
C.0>1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
CW h ] C
C hø É ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"’’×"’’Ó Į g x
¶ g tmp ¶ g tmp " ¶ g tmp 9 ¶ g tmp P ¶ g tmp g ¶ g tmp ¶ g filenamef srfi/srfi-64/testing.scm
¶ C5>RÆČ@ h ] §&
©C 6
g s
g filenamef srfi/srfi-64/testing.scm
g nameg %%test-runner-on-group-begin-procedure CXR4f@hkfmr h : ]C 2 g err
g s Cu{ h : ]C 2 g err
g s C h : ]C 2 g err
g s C\« h 8 ] C 0 g t-46961e5187-1a0
C.0@1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C hø É ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"’’×"’’Ó Į g x
¶ g tmp ¶ g tmp " ¶ g tmp 9 ¶ g tmp P ¶ g tmp g ¶ g tmp ¶ g filenamef srfi/srfi-64/testing.scm
¶ C5@RÆČB h ] §& ©C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg #%test-runner-on-group-end-procedure C®R4fBhk¼ĆČ h : ]C 2 g err
g s CĖŃÖ h : ]C 2 g err
g s CŁßä h : ]C 2 g err
g s C\ h 8 ] C 0 g t-46961e5187-1bb
C.0B1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C hø É ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"’’×"’’Ó Į g x
¶ g tmp ¶ g tmp " ¶ g tmp 9 ¶ g tmp P ¶ g tmp g ¶ g tmp ¶ g filenamef srfi/srfi-64/testing.scm
¶ C5BRÆČD h ] §& ©C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg %test-runner-on-final-procedure CR4fDhk h : ]C 2 g err
g s C!', h : ]C 2 g err
g s C/5: h : ]C 2 g err
g s C\W h 8 ] C 0 g t-46961e5187-1d6
C.0D1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
CY h ] C
C hø É ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"’’×"’’Ó Į g x
¶ g tmp ¶ g tmp " ¶ g tmp 9 ¶ g tmp P ¶ g tmp g ¶ g tmp ¶ g filenamef srfi/srfi-64/testing.scm
¶ C5DRÆČF h ] §& ©C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg #%test-runner-on-bad-count-procedure CZR4fFhkhot h : ]C 2 g err
g s Cw} h : ]C 2 g err
g s C
h : ]C 2 g err
g s C\ h 8 ] C 0 g t-46961e5187-1f1
C.0F1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
CÆ h ] C
C hø É ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"’’×"’’Ó Į g x
¶ g tmp ¶ g tmp " ¶ g tmp 9 ¶ g tmp P ¶ g tmp g ¶ g tmp ¶ g filenamef srfi/srfi-64/testing.scm
¶ C5FRÆČH h ] §& ©C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg &%test-runner-on-bad-end-name-procedure C°R4fHhk¾ÅŹ h : ]C 2 g err
g s CĶÓŲ h : ]C 2 g err
g s CŪįę h : ]C 2 g err
g s C\ h 8 ] C 0 g t-46961e5187-20c
C.0H1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C hø É ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"’’×"’’Ó Į g x
¶ g tmp ¶ g tmp " ¶ g tmp 9 ¶ g tmp P ¶ g tmp g ¶ g tmp ¶ g filenamef srfi/srfi-64/testing.scm
¶ C5HRÆČ h ] §& ©C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg #%%test-runner-total-count-procedure CR4fhk ! h : ]C 2 g err
g s C$*/ h : ]C 2 g err
g s C28= h : ]C 2 g err
g s C\Z h 8 ] C 0 g t-46961e5187-227
C.01 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C\ h ] C
C hø É ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"’’×"’’Ó Į g x
¶ g tmp ¶ g tmp " ¶ g tmp 9 ¶ g tmp P ¶ g tmp g ¶ g tmp ¶ g filenamef srfi/srfi-64/testing.scm
¶ C5RÆČ] h ] §& ©C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg "%%test-runner-count-list-procedure C^R4f]hklsx h : ]C 2 g err
g s C{ h : ]C 2 g err
g s C h : ]C 2 g err
g s C\± h 8 ] C 0 g t-46961e5187-242
C.0]1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C³ h ] C
C hø É ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"’’×"’’Ó Į g x
¶ g tmp ¶ g tmp " ¶ g tmp 9 ¶ g tmp P ¶ g tmp g ¶ g tmp ¶ g filenamef srfi/srfi-64/testing.scm
¶ C5]RÆČJ h ] §& ©C 6 | g s
g filenamef srfi/srfi-64/testing.scm
g nameg %test-result-alist-procedure C“R4fJhkĀÉĪ h : ]C 2 g err
g s CŃ×Ü h : ]C 2 g err
g s Cßåź h : ]C 2 g err
g s C\ h 8 ] C 0 g t-46961e5187-25d
C.0J1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C hø É ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"’’×"’’Ó Į g x
¶ g tmp ¶ g tmp " ¶ g tmp 9 ¶ g tmp P ¶ g tmp g ¶ g tmp ¶ g filenamef srfi/srfi-64/testing.scm
¶ C5JRÆČL h ] §& ©C 6 g s
g filenamef srfi/srfi-64/testing.scm
g nameg %test-runner-aux-value-procedure C
R4fLhk $ h : ]C 2 g err
g s C ' - 2 h : ]C 2 g err
g s C 5 ; @ h : ]C 2 g err
g s C\ ] h 8 ] C 0 g t-46961e5187-278
C.0L1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C _ h ] C
C hø É ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 "
6$ 4 O ?$ @"’’×"’’Ó Į g x
¶ g tmp ¶ g tmp " ¶ g tmp 9 ¶ g tmp P ¶ g tmp g ¶ g tmp ¶ g filenamef srfi/srfi-64/testing.scm
¶ C5LR4f&hk d £³“ h v ]45C n g dummy
g check? g s g getter g expr C h( Ē ] 4 5 $ @ 6 æ g x
" g tmp " g filenamef srfi/srfi-64/testing.scm
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5&RÆČ1 h ] §&
ŖC 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg "%test-runner-pass-count!-procedure C ¤R4f1hk „ é h V ] C N g t-46961e5187-2a6
g t-46961e5187-2a7 C.011 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C ė h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"’’×"’’Ó
g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C51RÆČ3 h ] §& ŖC 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg "%test-runner-fail-count!-procedure C ģR4f3hk „
h V ] C N g t-46961e5187-2b6
g t-46961e5187-2b7 C.031 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C
h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"’’×"’’Ó
g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C53RÆČ5 h ] §& ŖC 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg #%test-runner-xpass-count!-procedure C
R4f5hk „
= h V ] C N g t-46961e5187-2c6
g t-46961e5187-2c7 C.051 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C
? h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"’’×"’’Ó
g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C55RÆČ7 h ] §& ŖC 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg #%test-runner-xfail-count!-procedure C
@R4f7hk „
g h V ] C N g t-46961e5187-2d6
g t-46961e5187-2d7 C.071 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C
i h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"’’×"’’Ó
g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C57RÆČ9 h ] §& ŖC 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg "%test-runner-skip-count!-procedure C
jR4f9hk „
h V ] C N g t-46961e5187-2e6
g t-46961e5187-2e7 C.091 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C
h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"’’×"’’Ó
g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C59RÆČ
h ] §& ŖC 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg "%%test-runner-skip-list!-procedure C
R4f
hk „
¼ h V ] C N g t-46961e5187-2f6
g t-46961e5187-2f7 C.0
1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C
¾ h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"’’×"’’Ó
g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5
RÆČ
æ h ] §& ŖC 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg "%%test-runner-fail-list!-procedure C
ĄR4f
æhk „
ē h V ] C N g t-46961e5187-306
g t-46961e5187-307 C.0
æ1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C
é h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"’’×"’’Ó
g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5
æRÆČ
ź h ] §& ŖC 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg !%%test-runner-run-list!-procedure C
ėR4f
źhk „ h V ] C N g t-46961e5187-316
g t-46961e5187-317 C.0
ź1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"’’×"’’Ó
g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5
źRÆČ h ] §& ŖC 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg "%%test-runner-skip-save!-procedure C R4f hk „ = h V ] C N g t-46961e5187-326
g t-46961e5187-327 C.0 1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C ? h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"’’×"’’Ó
g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5 RÆČ @ h ] §& ŖC 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg "%%test-runner-fail-save!-procedure C AR4f @hk „ h h V ] C N g t-46961e5187-336
g t-46961e5187-337 C.0 @1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C j h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"’’×"’’Ó
g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5 @RÆČ; h ] §&
ŖC 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg #%test-runner-group-stack!-procedure C kR4f;hk „ h V ] C N g t-46961e5187-346
g t-46961e5187-347 C.0;1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"’’×"’’Ó
g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5;RÆČ= h ] §& ŖC 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg %%test-runner-on-test-begin!-procedure C R4f=hk „ ¼ h V ] C N g t-46961e5187-356
g t-46961e5187-357 C.0=1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C ¾ h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"’’×"’’Ó
g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5=RÆČ? h ] §& ŖC 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg #%test-runner-on-test-end!-procedure C æR4f?hk „ ę h V ] C N g t-46961e5187-366
g t-46961e5187-367 C.0?1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C č h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"’’×"’’Ó
g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5?RÆČA h ] §&
ŖC 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg &%test-runner-on-group-begin!-procedure C éR4fAhk „ h V ] C N g t-46961e5187-376
g t-46961e5187-377 C.0A1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"’’×"’’Ó
g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5ARÆČC h ] §& ŖC 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg $%test-runner-on-group-end!-procedure C R4fChk „ : h V ] C N g t-46961e5187-386
g t-46961e5187-387 C.0C1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C < h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"’’×"’’Ó
g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5CRÆČE h ] §& ŖC 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg %test-runner-on-final!-procedure C =R4fEhk „ d h V ] C N g t-46961e5187-396
g t-46961e5187-397 C.0E1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C f h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"’’×"’’Ó
g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5ERÆČG h ] §& ŖC 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg $%test-runner-on-bad-count!-procedure C gR4fGhk „ h V ] C N g t-46961e5187-3a6
g t-46961e5187-3a7 C.0G1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"’’×"’’Ó
g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5GRÆČI h ] §& ŖC 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg '%test-runner-on-bad-end-name!-procedure C R4fIhk „ ø h V ] C N g t-46961e5187-3b6
g t-46961e5187-3b7 C.0I1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C ŗ h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"’’×"’’Ó
g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5IRÆČ » h ] §& ŖC 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg $%%test-runner-total-count!-procedure C ¼R4f »hk „ ć h V ] C N g t-46961e5187-3c6
g t-46961e5187-3c7 C.0 »1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C å h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"’’×"’’Ó
g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5 »RÆČ ę h ] §& ŖC 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg #%%test-runner-count-list!-procedure C ēR4f ęhk „
h V ] C N g t-46961e5187-3d6
g t-46961e5187-3d7 C.0 ę1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C
h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"’’×"’’Ó
g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5 ęRÆČK h ] §& ŖC 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg %test-result-alist!-procedure C
R4fKhk „
8 h V ] C N g t-46961e5187-3e6
g t-46961e5187-3e7 C.0K1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C
: h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"’’×"’’Ó
g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5KRÆČM h ] §& ŖC 6 g s
g val g filenamef srfi/srfi-64/testing.scm
g nameg !%test-runner-aux-value!-procedure C
;R4fMhk „
b h V ] C N g t-46961e5187-3f6
g t-46961e5187-3f7 C.0M1 h \ ]L 6 T g a
g filenamef srfi/srfi-64/testing.scm
C·4 h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C
d h ] C
C hx ]4 5 $ @4 5 $ O @4 5 " 6$ 4 O ?$
@"’’×"’’Ó
g x
q g tmp q g tmp " q g tmp > q g filenamef srfi/srfi-64/testing.scm
q C5MRÆČK13579 » ę
ź
æ @; h ] §& Ŗ" 4 > " G §&
Ŗ" 4 > " G §&
Ŗ" 4 > " G §&
Ŗ" 4 > " G §&
Ŗ" 4 > " G §&
Ŗ" 4 > " G §&
Ŗ" 4 > " G §& Ŗ" 4
> " G §& Ŗ" 4 > " G §& Ŗ" 4 > " G §& Ŗ" 4
> " G §& Ŗ" 4 > " G §& Ŗ" 4 > " G §&
ŖC 6 g runner
g filenamef srfi/srfi-64/testing.scm
§
Ø Ø Ø - © T Ŗ { « £ ¬ Ė ó ® Æ & Æ # ' Æ C ° k ± v ± " w ± ² ² " ² » ³ Ę ³ " Ē ³ ć “ ī “ " ļ “ µ µ # µ g nameg test-runner-reset C(R
eÆČ: h( ] §&
©" 4 56 g runner
! g filenamef srfi/srfi-64/testing.scm
·
ø ! ø ! g nameg test-runner-group-path C R h ]C x g runner
g filenamef srfi/srfi-64/testing.scm
ŗ
g nameg %test-null-callback C
fRÆ( h ]C ~ g runner
g name g count g filenamef srfi/srfi-64/testing.scm
æ ( CČA
fCE=?h ]C g runner
g count g expected g filenamef srfi/srfi-64/testing.scm
Ä & CG h
]C } g runner
g begin g end g filenamef srfi/srfi-64/testing.scm
Å ) CI hp % ]Ø 4 > " G §&
Ŗ" 4 > " G §& Ŗ" 4 > " G §& Ŗ" 4 > " G §& Ŗ" 4 > " G §& Ŗ" 4
> " G §& Ŗ" 4 > " G §&
Ŗ" 4 > " G C g runner
o g val \ g val ŗ g val ¼ ź g val ģ g filenamef srfi/srfi-64/testing.scm
¼
½ ½ ¾ 4 æ \ Ą Į ¼ Ā ģ Ć Ä F Å o
g nameg test-runner-null C)R&RÆ(NČAOCRE
g=S?PGQI h [ ]Ø 4 > " G §&
Ŗ" 4 > " G §& Ŗ" 4 > " G §& Ŗ" 4 > " G
§& Ŗ" 4 > " G §& Ŗ" 4
> " G §& Ŗ" 4 > " G §& Ŗ" 4 > " G C S g runner
g val 3 a g val c g val Į g val Ć ń g val ó ! g val # Q g val S g filenamef srfi/srfi-64/testing.scm
Ģ
Ķ Ķ Ī 3 Ļ c Š Ń Ć Ņ ó Ó # Ō S Õ
g nameg test-runner-simple C*R4
hi5+R4
hi*i5,R+
i
j h( ]45 $ " 4> " G C„ g r
( g filenamef srfi/srfi-64/testing.scm
ķ
ī ī ļ ń ń ń (
g nameg test-runner-get C-R h ] 6 g spec
g runner g filenamef srfi/srfi-64/testing.scm
õ
ö g nameg %test-specifier-matches C
kR, h | ] 45 6 t g filenamef srfi/srfi-64/testing.scm
ų
ł ł
g nameg test-runner-create C.R
k h8 ]H" '( JC45$ K" "’’Ł "’’Ń g list
8 g runner 8 g result 8 g l 0 g filenamef srfi/srfi-64/testing.scm
ū
ü ż ž *
# * 0
0 ż
8 g nameg %test-any-specifier-matches C
lRÆČQ
l£!
m
nś
o hČ ] §& ©" 4 5 & " 4 5 $ " "4 §& ©" 4 5 5 $ 4 > " G C4 §& ©" 4 5 5$ 4
> " G
CC | g runner
Ä g run Ä g t 5 g g filenamef srfi/srfi-64/testing.scm
& ' , 5 5 C
H
d
k l
r
% t
2 y
„ © Ŗ ° $ ² 1 · Į Ä g nameg %test-should-execute C
pR+.ÆČ@£Ø ś’ @] ę:; hČ Ł ]45 $ " 445 > " G 45 4§&
©" 45 > " G §& ©" 45§& ©" 45 §& Ŗ" 4> " G §& ©" 4 5§& ©" 4
5 §& Ŗ" 4 > " G §& ©" 4 5§& ©" 4
5 §& Ŗ" 4> " G §&
©" 45 §&
ŖC6 Ń g
suite-name
Å g count Å g runner ) Å g val æ g val ö $ g val ^ g val Ŗ Å g filenamef srfi/srfi-64/testing.scm
% ) , ] % x % Ā % Ż % ö ö ' " ) B " # E $ # ^ " ^ ! & ( Ŗ % % Ŗ % Å g nameg %test-begin C
qR4f hk `
h E ]C = g dummy
g
suite-name C
h X ] C P g dummy
g
suite-name g count C h@ Ö ]4 5 $ @4 5 $ @ 6 Ī g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-64/testing.scm
2 9 g
macro-typeg syntax-rulesg patternsg
suite-name g
suite-nameg count C5 RÆČ:
&
M
L
h f ] §&
©" 4 5( 4> " G 4> " G $ Č45$ " 4 5 4
5 4> " G 4> " G 4 > " G §& Ŗ" 4 > " G 4
> " G 4> " G 4> " G " 4 > " G " §& ©" 4 5 45$ >4> " G 4> " G 4 > " G " C ^ g runner
g
suite-name g count g
log-file-name e g log-file n g log B g filenamef srfi/srfi-64/testing.scm
8
9
! 9 " ; & ; + ; 4 < K = L ? V ? ] @ c @ 2 e @ e > h D ' n > q E u E | E
F G H Ō I Ų I Ż I ę J ų K ü K K L * M
B M E N O N P P
T P [ P
d Q
x R
( g nameg test-on-group-begin-simple CNRÆČL
:
h ] §& ©" 4 5 45$ X4> " G 4 §&
©" 4 5> " G 4> " G " C ü g runner
g log
g filenamef srfi/srfi-64/testing.scm
U
V
V W * W + Y
/ Y 6 Y
? Z
D Z ] Z d Z
m [
g nameg test-on-group-end-simple COR
h ] ]4> " G 4> " G 4> " G 4> " G 4> " G 4> " G 4> " G 6 U g runner
g count g expected-count g port g filenamef srfi/srfi-64/testing.scm
^
_ _ _ ` + a / a 6 a ? b S c W c ^ c g d y e } e e f g nameg %test-on-bad-count-write C
R
ÆČL
hX
] 4 45 > " G §& ©" 4 5 45$ 6C g runner
S g count S g expected-count S g log 8 S g filenamef srfi/srfi-64/testing.scm
h
i i 8 i j
8 j ; k E k Q l
S g nameg test-on-bad-count-simple CPR
”
¢
i h ] 44 55 6 ž g runner
g
begin-name g end-name g msg g filenamef srfi/srfi-64/testing.scm
n
o
o o 7 p o
o r g nameg test-on-bad-end-name-simple CQR
h@ Ń ]
$ .4> " G 4 > " G 6C É g value
: g label : g port : g filenamef srfi/srfi-64/testing.scm
v
w
w y z 8 { : g nameg %test-final-report1 C
£R
£ÆČ0
¤6
„4
¦2
§8
Ø hą N ]4 §&
©" 4 5> " G 4 §& ©" 4 5> " G 4 §& ©" 4 5 > " G 4 §& ©" 4
5 > " G §& ©" 4 5
6 F g runner
ß g port ß g filenamef srfi/srfi-64/testing.scm
}
~ ~ ! ( ~ 1 6 P W ` e
“ Į Ū ß ß g nameg %test-final-report-simple C
©R
©
ÆČL
hP Ł ] 4 45 > " G §& ©" 4 5 45$ 6C Ń g runner
K g log 4 K g filenamef srfi/srfi-64/testing.scm
$
4 7 A I
K g nameg test-on-final-simple CRRÆČJ
Ŗ
«
¬
®
Æ
° hh ]! §& ©" 4 5 45 45 $ " $ 4
5 6C g runner
a g line-info a g source-file ( a g source-line 3 a g file D a g filenamef srfi/srfi-64/testing.scm
$ ( ( + / 3 3 ; > D 2 D L R S X ( Z \ ; ^ ` a g nameg %test-format-line C
R-ÆČ:
K
±
iH]FB;Ø
’
æ @ ęD hh Ģ ]B45 §&
©" 45 45 §& Ŗ" 4> " G ( $45 4 > " G " $ B $ " 04§& ©" 4
5 > " G " §& ©" 4 5 §& ©" 4 5 $ @$ " /4§& ©" 4
5> " G " 4§& ©" 45> " G §&
©" 45 §&
Ŗ" 4> " G §& ©" 45 §& Ŗ" 4> " G §& ©" 45 §& Ŗ" 4> " G §& ©" 45 §& Ŗ" 4> " G §& ©" 45 §& Ŗ" 4> " G §& Ŗ" 4> " G §&
©" 45( §& ©" 456C Ä g
suite-name
g g line-info g g r g g groups $ g g line - g g msg g ~ g
count-list å g g expected-count ė g g saved-count ń g g group-count g g val Ī g val ź g val 4 b g val ~ ¬ g val Č ö g val ł ' g filenamef srfi/srfi-64/testing.scm
$ ' - 2 ^ _ e ' g g j ” £ £ 0 £ £ ¤ ¹ ¤ 6 ¾ ¤ Ķ „ å „ ź ¦ ė „ š § ń „ ö Ø Ø „ © Ŗ " ©
' «
Z ¬ ' " Ń ® & ź ® ! ź ® Æ & 4 Æ ! 4 Æ e ° & ~ ° ! ~ ° Æ ± & Č ± ! Č ± ł ² " ł ² * ³ F ³ I “
8 g g nameg %test-end C
²R4f hk
³
Ć
É
Ź
Å
Ė
Ķ
Ń
Ņ
Ō
Ö
×
Ų
Ł hP W ]
C O g dummy
L g
suite-name L g body L L C h( ± ] 4 5 $ @ 6 © g x
" g tmp " g filenamef srfi/srfi-64/testing.scm
· " g
macro-typeg syntax-rulesg patternsg
suite-nameg body C5 R4f hk
ź
ė
ī
ģ h( q ] C i g dummy
! g
suite-name ! g form ! g cleanup-form ! ! C
÷
ų h _ ] C W g dummy
g
suite-name g cleanup-form C
ū
h ] C g dummy
g
suite-name g form1 g form2 g form3 g rest C
hP ; ]4 5 $ @4 5 $ @4 5 $ @ 63 g x
P g tmp P g tmp " P g tmp 9 P g filenamef srfi/srfi-64/testing.scm
Ć P g
macro-typeg syntax-rulesg patternsg
suite-nameg formg cleanup-form g
suite-nameg cleanup-form g
suite-nameg form1g form2g form3g rest C5 RÆČL
J
Ŗ
«
¬
Ļ
h O ]1 §& ©" 4 5 45$ Ł §& ©" 4 5 45 45 4 5 4
5 4 > " G 4
> " G $ 4> " G " $ 4> " G " $ 4> " G " $ 6CC G g runner
g log g results E g source-file P g source-line [ g source-form f g test-name q g filenamef srfi/srfi-64/testing.scm
Ļ
Š Š Ń * Ń - Ņ E Ņ H Ó L Ó " P Ó P Ņ S Ō W Ō " [ Ō [ Ņ ^ Õ b Õ " f Õ f Ņ i Ö m Ö q Ö q Ņ t ×
x × ×
Ų
Ł
Ł ½ Ś
¾ Ś Ū Ū
Ü Ū ł Ü
Ü $ g nameg test-on-test-begin-simple C
gR4f hk
!# h T ]C L g dummy
g runner g pname C.01236 h0 i ] C a g dummy
) g runner ) g pname ) g default ) ) C h@ ā ]4 5 $ @4 5 $ @ 6 Ś g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-64/testing.scm
ß 9 g
macro-typeg syntax-rulesg patternsg runnerg pname g runnerg pnameg default C5 RÆČL
Ŗ
mJ78
«
¬
Ļ
®
°9:;
<=> h( ]1 §& ©" 4 54 §& ©" 4 55 $ " & " $ §& ©" 4 5 4 5 4
5 4 5 $ " $ b$ 4 > " G " 4
> " G $ 4 > " G " 4 > " G " 4 & " > " G $ )4 > " G 4 > " G " 4> " G " 45$ 4 > " G 4> " G " =$ 4 45$ " 4> " G "’’ÅC §& ©" 4 5 "’’¢C g runner
! g p ? R g log R ! g kind R ! g results g source-file
g source-line g test-name Ø g list Į ž g pair Ė ü
g filenamef srfi/srfi-64/testing.scm
ę
ē
č " č & % č R ē ^ é l é o ź ź ė ė " ė ź ģ ģ " ģ ź ķ ¤ ķ Ø ķ Ø ź ° ī » ī
Į š Ā š Ē š ) Ģ š Ł ń Ż ń ā ń š ņ ń ņ ö ņ ) ū ņ ó ó ó ō
$ ō ! ( ō * ō ) 0 ō 1 5 ō
C õ
D ÷ H ÷ M ÷ V ų [ ų ` ų m ł
ś ś ü
ü £ ü
¬ ż
Į ž
Ä ’ Č ’ Ė Ė Ī Ó ! × Ū ą ö ü ž ž
ž ž
J ! g nameg test-on-test-end-simple CSR
?
°@
h` ]4> " G 4 > " G 4> " G 4 > " G 6 ż g pair
Z g port Z g filenamef srfi/srfi-64/testing.scm
# ,
0
7
@ E L Z Z g nameg %test-write-result1 CRÆČJ
ŖK h` ' ] §& ©" 4 5 45 $ C §& ŖC 6 g runner
Z g pname Z g value Z g alist Z g p ( Z g val ? Z g filenamef srfi/srfi-64/testing.scm
( 0 5 < ) ? # ? Z g nameg test-result-set! C!RÆČK h ] §& ŖC 6 g runner
g filenamef srfi/srfi-64/testing.scm
g nameg test-result-clear C"RÆČJ
Ŗ h ¬ ] L& C 4L 5C ¤ g r
g filenamef srfi/srfi-64/testing.scm
#
%
3 / 7 = 7 ) g nameg loop CK hh ] §& ©" 4 5 45 $ 5O Q 45 §& ŖC 6C g runner
g g pname g g alist g g p ( g g loop 9 J g val J e g filenamef srfi/srfi-64/testing.scm
( 0 9 # J g g nameg test-result-remove C#R+
Ŗ
mÆČJ hP ē - 1 3 $ " 45 4§& ©" 455 $ CC ß g rest
N g runner N g p @ N g filenamef srfi/srfi-64/testing.scm
!
" " " ! " , " # # # & #
N
g nameg test-result-kind C$R-=
Ŗ
mÆČJB h` ģ - 1 3 $ " 45 4§& ©" 455 $ " 6 ä g rest
Y g runner Y g p B U g filenamef srfi/srfi-64/testing.scm
%
& & & ! & , & ! '
% ' " ( '
Y ' Y
g nameg test-passed? C%R-$AÆČ01723845
o6789 »> h
]45 4 5 $ L §&
©" 4 5 §&
Ŗ" 4 > " G " M$ L §& ©" 4 5 §& Ŗ" 4
> " G " ų $ N §& ©" 4 5 §& Ŗ" 4
> " G " ”$ N §& ©" 4 5 §& Ŗ" 4 > " G " J §& ©" 4 5 §& Ŗ" 4 > " G §& ©" 4 5 §& Ŗ" 4 > " G §& ©" 4 5 6 g r
g result-kind g val 6 c g val ø g val į g val 8 f g val “ g val Š ž g filenamef srfi/srfi-64/testing.scm
)
* *
+ * , . ' 6 . " 6 . p , s 0 ' 0 " 0 Å , Č 2 ( į 2 # į 2 , 4 ( 8 4 # 8 4 m 6 ' 6 " 6 · 7 & Š 7 ! Š 7 8
g nameg %test-report-result CCR4fDhk `TUVf h J ] C B g dummy
g test-expression C h( ° ] 4 5 $ @ 6 Ø g x
" g tmp " g filenamef srfi/srfi-64/testing.scm
= " g
macro-typeg syntax-rulesg patternsg test-expression C5DRghij
«
¬k h Ņ ])4 5 $
45" $
45" $ " $
" 4
54 56 Ź g form
| g src-props | g file | g line 5 | g
file-alist J | g
line-alist ` | g filenamef srfi/srfi-64/testing.scm
p q q r r r 4 r q ' s ( s . s 4 0 s 5 q = t ? u J v J q R w T x W x - X x ` y ` q h { i { ' p { | z | g nameg %test-source-line2 CR
pÆČ<
n
Ŗ
mJ h Ń ] 4 > " G 4 §& ©" 4 5 > " G 4 §& ©" 4 55 $ " C É g r
y g p c v g filenamef srfi/srfi-64/testing.scm
A
B
F
% I
w
x
y g nameg %test-on-test-begin CR!
m
ŖÆČJ
o8A7 hh ]
4 §& ©" 4 55 $ " & $ " " $ "
6 g r
e g result e g p * = g filenamef srfi/srfi-64/testing.scm
2 ? @ C I K % Q , [ ] % c + e e g nameg %test-on-test-end CR
Ŗ
ĻÆČJ
h8 “ ] 4 §& ©" 4 55 $ CC ¬ g runner
3 g p $ 3 g filenamef srfi/srfi-64/testing.scm
2 % 3 g nameg test-runner-test-name C/R4fhk¦§ØŖ«°²³·ø¹¼
hX v ]
C n g dummy
V g r V g comp V g expected V g expr V V C h( ¾ ] 4 5 $ @ 6 ¶ g x
" g tmp " g filenamef srfi/srfi-64/testing.scm
" g
macro-typeg syntax-rulesg patternsg rg compg expectedg expr C5R½¾ h` N ]"4 54 54545 L $ %L $ L $ L CCCC F g value
Y g expected Y g rval Y g ival Y g rexp Y g iexp Y g filenamef srfi/srfi-64/testing.scm
” - ¢ . ¢ 2 ¢ 9 £ : £ > ¢ E ¤ F ¤ J ¢ Q „ R „ Y C h ~ ] O C v g error
g filenamef srfi/srfi-64/testing.scm
g nameg %test-approximate= CæR4fĄhk
ĻŠŃŅÓŌŲŁŚŻ hH N ]
C F g dummy
A g r A g expr A A C h( Ŗ ] 4 5 $ @ 6 ¢ g x
" g tmp " g filenamef srfi/srfi-64/testing.scm
Ø " g
macro-typeg syntax-rulesg patternsg rg expr C5ĄR4f
hākćģ h U ] C M g mac
g
suite-name g line Cīõö h = ] C 5 g mac
g line C
hP ² ] 4 5 45 $ @45 $ @ 6 Ŗ g x
L g tmp L g tmp L g tmp 5 L g filenamef srfi/srfi-64/testing.scm
· ø 0 ø ø ø L C5
R4fhūkü
h8 b ] C Z g mac
4 g tname 4 g expr 4 g line 4 4 Cć ! h O ] C G g mac
g expr g line C
hP ² ] 4 5 45 $ @45 $ @ 6 Ŗ g x
L g tmp L g tmp L g tmp 5 L g filenamef srfi/srfi-64/testing.scm
Ą Į 0 Į Į Į L C5R(k)489:5;>? h8 ] C g mac
8 g tname 8 g expected 8 g expr 8 g line 8 g comp 8 8 C@JOPKQ h w ] Co g mac
g expected g expr g line g comp C
hP Ż ]45 45 $ @45 $ @ 6 Õ g comp
N g x N g tmp N g tmp N g tmp 7 N g filenamef srfi/srfi-64/testing.scm
Ķ Ī . Ī Ī Ī N g nameg %test-comp2 CRR4fhRX h e ] 6 ] g x
g filenamef srfi/srfi-64/testing.scm
Ū
Ū
C5R4fhR] h e ] 6 ] g x
g filenamef srfi/srfi-64/testing.scm
Ż
Ż
C5R4fhRc h e ] 6 ] g x
g filenamef srfi/srfi-64/testing.scm
ß
ß
C5R4fhhkitxyzu{~
h@ ] C g mac
= g tname = g expected = g expr = g error = g line = = C h( x ] C p g mac
% g expected % g expr % g error % g line % % C
hP ² ] 4 5 45 $ @45 $ @ 6 Ŗ g x
L g tmp L g tmp L g tmp 5 L g filenamef srfi/srfi-64/testing.scm
į ā 0 ā ā ā L C5R4fhk¦§ØŖ«°±²³“¶ø»ĄĮÄ h` a ]
C Y g dummy
^ g r ^ g etype ^ g expr ^ ^ C h( ³ ] 4 5 $ @ 6 « g x
" g tmp " g filenamef srfi/srfi-64/testing.scm
! " g
macro-typeg syntax-rulesg patternsg rg etypeg expr C5R4fhÉkÓ×ŲŁŌŚŻŽ h8 u ] C m g mac
6 g tname 6 g etype 6 g expr 6 g line 6 6 Cüēģķčī h b ] C Z g mac
g etype g expr g line Cćõśūöüż h O ] C G g mac
g expr g line C hh Ć ]! 4 5 45 $ @45 $ @45 $ @
6 » g x
c g tmp c g tmp c g tmp 5 c g tmp L c g filenamef srfi/srfi-64/testing.scm
| } 0 } } } c C5R+ÆČQ
e
źž.+ h L ] L 6D g filenamef srfi/srfi-64/testing.scm
®
C+ h L ] L 6D g filenamef srfi/srfi-64/testing.scm
®
CD+ h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C+ h L ] L 6D g filenamef srfi/srfi-64/testing.scm
C hč . - 1 3 " Y45 $ Ģ§& ©" 45 ( 945 §& Ŗ" 4> " G 6 & " §& Ŗ" 4> " G 4> " G §& ŖC64 5 45
O O 4
O > " G V4 > " G X4 O > " G §& ©" 4 56 ¦$ r §& e45
O O 4
O > " G V4> X4O > " G CX4O > " G F"’ž."’ž* & g first
ć g rest ć g r f g run-list 5 ę g val D r g val ¹ g r ė f g saved-runner ņ G g saved-runner { Ū g filenamef srfi/srfi-64/testing.scm
” ” ¢ £ 5 £ = ¤ > „ / D „ v ¦ } Ŗ Ŗ , Ŗ 9 Ø ŗ « Š ¬ ē ė ī ® ® " 0 ® J Æ f i m p w ¢ Æ ć
g nameg
test-apply CR4fhk h( S ] C K g dummy
% g runner % g form % % C h( ¶ ] 4 5 $ @ 6 ® g x
" g tmp " g filenamef srfi/srfi-64/testing.scm
² " g
macro-typeg syntax-rulesg patternsg runnerg formg ... C5R h ]MNML $ ML LCC g runner
g filenamef srfi/srfi-64/testing.scm
¾ æ æ Ą Ą Ą Ą C h ¢ ]
H O C g n
g count g i g filenamef srfi/srfi-64/testing.scm
¼
½ g nameg %test-match-nth CR4fhk `*, h < ]C 4 g dummy
g n C
5 h O ] C G g dummy
g n g count C h@ Ä ]4 5 $ @4 5 $ @ 6 ¼ g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-64/testing.scm
Ć 9 g
macro-typeg syntax-rulesg patternsg n g ng count C5R h8 ę ]H" %( JC4 5$ " K "’’ŪL "’’Ó Ž g runner
6 g result 6 g l . g filenamef srfi/srfi-64/testing.scm
Ź Ė Ģ Ķ Š Š Š Š % Ń ( Ņ . Ņ . Ģ
6 C h - 1 3 O C y g pred-list
g filenamef srfi/srfi-64/testing.scm
É
g nameg %test-match-all C6R4fhk’E³G h : ] C 2 g tmp-46961e5187-512
C h ? ]45C 7 g dummy
g pred C h( ¬ ] 4 5 $ @ 6 ¤ g x
" g tmp " g filenamef srfi/srfi-64/testing.scm
Õ " g
macro-typeg syntax-rulesg patternsg predg ... C5R h8 ę ]H" %( JC4 5$ K" "’’ŪL "’’Ó Ž g runner
6 g result 6 g l . g filenamef srfi/srfi-64/testing.scm
Ś Ū Ü Ż ą ą ą ą ! į ( ā . ā . Ü
6 C h - 1 3 O C y g pred-list
g filenamef srfi/srfi-64/testing.scm
Ł
g nameg %test-match-any CHR4fhk’U³V h : ] C 2 g tmp-46961e5187-51c
C h ? ]45C 7 g dummy
g pred C h( ¬ ] 4 5 $ @ 6 ¤ g x
" g tmp " g filenamef srfi/srfi-64/testing.scm
å " g
macro-typeg syntax-rulesg patternsg predg ... C5RWX
iY h@ Ü ]4 5$ C4 5$ 64 5$ 66 Ō g specifier
9 g filenamef srfi/srfi-64/testing.scm
ź
ė
ė ģ ė " ģ # ķ - ė 3 ķ 7 ļ 9 ļ 9 g nameg %test-as-specifier CFR4fhk’fklgmn³o h : ] C 2 g tmp-46961e5187-526
Cr
h( ? ]45 C 7 g dummy
# g pred # # C h( ¬ ] 4 5 $ @ 6 ¤ g x
" g tmp " g filenamef srfi/srfi-64/testing.scm
ņ " g
macro-typeg syntax-rulesg patternsg predg ... C5R4fhk’
³ h : ] C 2 g tmp-46961e5187-530
C
h( ? ]45 C 7 g dummy
# g pred # # C h( ¬ ] 4 5 $ @ 6 ¤ g x
" g tmp " g filenamef srfi/srfi-64/testing.scm
ś " g
macro-typeg syntax-rulesg patternsg predg ... C5R/ h s ]L 4 5C k g runner
g filenamef srfi/srfi-64/testing.scm
C h z ] O C r g name
g filenamef srfi/srfi-64/testing.scm
g nameg test-match-name CRY
i h8 ]4 5 45 4455$ 45 66 g string
5 g port 5 g form 5 g filenamef srfi/srfi-64/testing.scm
$ )
/
3
5
5 g nameg test-read-eval-string C RC g m
( g rtd
ė g filenamef srfi/srfi-64.scm
) 4
. 4 6 4 & ; 4
g filenamef srfi/srfi-64/testing.scm D P
Ļ] §
Š8 ·
ŠŌ ŗ
Õh ¼
Õl Ź
Ų Ģ
Ų Ś Ų Ś Ų Ū Ų” Ū Ł ķ
ŚK õ
Śļ ų
Ü\ ū
ŽŲ
āµ
é 8
źĒ U
ģį ^
īh h
ļ± n
šŻ v
óB }
ō
öĀ
žH
c Ļ
q ę
ł
¢
t
ń
J !
æ %
. )
"6 p #
%U
&g
*Ś
4 Ķ D
GF ¼
K É
N Ł
QØ ź
V
X$
9 X&
C6 PK ! žjW> W> srfi-111.gonu [µü¤ GOOF----LE-8-2.0?> ]< 4 hį( ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-111¤ ¤ g filenameS¤
f srfi/srfi-111.scm¤ g importsS¤ g srfi-9¤
¤
¤ g gnu¤ ¤ ¤ ¤ g exportsS¤ g box¤ g box?¤ g unbox¤ g set-box!¤ ¤ g set-current-module¤ ¤ ¤ g cond-expand-provide¤ g current-module¤ ¤ g ¤ g %box-procedure¤ !g make-syntax-transformer¤ "! ¤ #! ¤ $g macro¤ %g $sc-dispatch¤ &% ¤ '% ¤ (g _¤ )g any¤ *() ¤ +g
syntax-object¤ ,g lambda¤ -g m-a33a589db48-4¤ .g top¤ /-. ¤ 0g ribcage¤ 1g t-a33a589db48-3¤ 21 ¤ 3/ ¤ 4f l-a33a589db48-9¤ 54 ¤ 60235 ¤ 70 ¤ 8g x¤ 98 ¤ :f l-a33a589db48-6¤ ;: ¤ <093; ¤ =g shift¤ >g proc-name¤ ?g args¤ @>? ¤ A. ¤ BAA ¤ Cf l-1e8ba8b5a-2ba¤ Df l-1e8ba8b5a-2bb¤ ECD ¤ F0@BE ¤ Gg key¤ Hg value¤ Ig name¤ Jg formals¤ Kg body¤ LGHIJK ¤ MAAAAA ¤ Nf l-1e8ba8b5a-2ad¤ Of l-1e8ba8b5a-2ae¤ Pf l-1e8ba8b5a-2af¤ Qf l-1e8ba8b5a-2b0¤ Rf l-1e8ba8b5a-2b1¤ SNOPQR ¤ T0LMS ¤ Ug make-procedure-name¤ VU ¤ WA ¤ Xf l-1e8ba8b5a-29d¤ YX ¤ Z0VWY ¤ [A ¤ \f l-1e8ba8b5a-29c¤ ]\ ¤ ^09[] ¤ _/67<=7777FTZ^
¤ `g hygiene¤ a` ¤ b+,_a ¤ cA67< ¤ d` ¤ e+Hcd ¤ fe ¤ gg make-struct¤ hg m-a33a589db48-1¤ ih. ¤ jg t-1e8ba8b5a-38d¤ kg t-1e8ba8b5a-38c¤ lg t-1e8ba8b5a-38b¤ mjkl ¤ ng m-1e8ba8b5a-38e¤ on. ¤ pooo ¤ qf l-1e8ba8b5a-392¤ rf l-1e8ba8b5a-393¤ sf l-1e8ba8b5a-394¤ tqrs ¤ u0mpt ¤ vg ctor-args¤ wv ¤ xf l-1e8ba8b5a-37a¤ yx ¤ z0w[y ¤ {g ctor¤ |g field¤ }{| ¤ ~f l-1e8ba8b5a-376¤ f l-1e8ba8b5a-377¤ ~ ¤ 0}B ¤ g form¤ g type-name¤ g constructor-spec¤
g field-names¤
¤ AAAA ¤ f l-1e8ba8b5a-36b¤ f l-1e8ba8b5a-36c¤ f l-1e8ba8b5a-36d¤ f l-1e8ba8b5a-36e¤ ¤ 0 ¤ g
record-layout¤ g functional-setters¤ g setters¤ g copier¤ g getters¤ g constructor¤ g getter-identifiers¤ g field-identifiers¤ ¤ AAAAAAAA ¤ f l-1e8ba8b5a-343¤ f l-1e8ba8b5a-341¤ f l-1e8ba8b5a-33f¤ f l-1e8ba8b5a-33d¤ f l-1e8ba8b5a-33b¤ f l-1e8ba8b5a-339¤ f l-1e8ba8b5a-337¤ f l-1e8ba8b5a-335¤ ¤ ”0 ¤ ¢f l-1e8ba8b5a-334¤ £¢ ¤ ¤09[£ ¤ „i67<=7u777z7”¤ ¤ ¦+g„a ¤ §+ cd ¤ Ø+
„a ¤ ©¦§Øe ¤ Ŗbf© ¤ «g each-any¤ ¬(«¤ g syntax-violation¤ ®
¤ Æ
¤ °f Wrong number of arguments¤ ±g identifier?¤ ²
± ¤ ³
± ¤ “A7< ¤ µ+ “d ¤ ¶ ¤ · ¤ øf -source expression failed to match any pattern¤ ¹g record-type-vtable¤ ŗ
¹ ¤ »
¹ ¤ ¼g pw¤ ½g default-record-printer¤ ¾
½ ¤ æ
½ ¤ ĄH ¤ Įg set-struct-vtable-name!¤ Ā
Į ¤ Ć
Į ¤ Äg vtable-offset-user¤ Å
Ä ¤ Ę
Ä ¤ Ēg %box?-procedure¤ Čg m-a33a589db48-11¤ ÉČ. ¤ Źg t-a33a589db48-10¤ ĖŹ ¤ ĢÉ ¤ Ķf l-a33a589db48-16¤ ĪĶ ¤ Ļ0ĖĢĪ ¤ Šf l-a33a589db48-13¤ ŃŠ ¤ Ņ09ĢŃ ¤ ÓÉĻ7Ņ=7777FTZ^
¤ Ō+,Óa ¤ Õg obj¤ Ög t-1e8ba8b5a-47e¤ ×g t-1e8ba8b5a-478¤ Ųg t-1e8ba8b5a-479¤ Łg t-1e8ba8b5a-47a¤ Śg t-1e8ba8b5a-47d¤ Ūg t-1e8ba8b5a-47c¤ Üg t-1e8ba8b5a-47b¤ ŻÖ×ŲŁŚŪÜ ¤ Žg m-1e8ba8b5a-47f¤ ߎ. ¤ ąßßßßßßß ¤ įf l-1e8ba8b5a-483¤ āf l-1e8ba8b5a-484¤ ćf l-1e8ba8b5a-485¤ äf l-1e8ba8b5a-486¤ åf l-1e8ba8b5a-487¤ ęf l-1e8ba8b5a-488¤ ēf l-1e8ba8b5a-489¤ čįāćäåęē ¤ é0Żąč ¤ źg copier-id¤ ėź ¤ ģf l-1e8ba8b5a-476¤ ķģ ¤ ī0ė[ķ ¤ ļg ctor-name¤ šļ ¤ ńf l-1e8ba8b5a-46e¤ ņń ¤ ó0š[ņ ¤ ō
¤ õf l-1e8ba8b5a-46c¤ öõ ¤ ÷0ō[ö ¤ ųg layout¤ łų ¤ śf l-1e8ba8b5a-46a¤ ūś ¤ ü0ł[ū ¤ żg
immutable?¤ žż ¤ ’f l-1e8ba8b5a-468¤ ’ ¤ 0ž[ ¤ g field-count¤ ¤ f l-1e8ba8b5a-466¤ ¤ 0[ ¤ g
getter-ids¤ ¤ f l-1e8ba8b5a-463¤
¤ 0[
¤ g field-ids¤
¤ f l-1e8ba8b5a-460¤ ¤ 0
[ ¤ g predicate-name¤ g
field-spec¤ ż ¤ AAAAAA ¤ f l-1e8ba8b5a-453¤ f l-1e8ba8b5a-454¤ f l-1e8ba8b5a-455¤ f l-1e8ba8b5a-456¤ f l-1e8ba8b5a-457¤ f l-1e8ba8b5a-458¤ ¤ 0 ¤ iĻ7Ņ=7é7777ī7ó7÷7ü777 7 ”¤ ¤ +Õ a ¤ ¤ g and¤ !+ a ¤ "g struct?¤ #+" a ¤ $# ¤ %g eq?¤ &+% a ¤ 'g
struct-vtable¤ (+' a ¤ )( ¤ *AĻ7Ņ ¤ ++ *d ¤ ,&)+ ¤ -!$, ¤ .Ō - ¤ /A7Ņ ¤ 0+Ē/d ¤ 1g throw-bad-struct¤ 2
1 ¤ 3
1 ¤ 4g %unbox-procedure¤ 5g free-id¤ 6g
%%on-error¤ 7g m-a33a589db48-1d¤ 87. ¤ 98 ¤ :f l-a33a589db48-1f¤ ;: ¤ <099; ¤ =87<=7777FTZ^ ¤ >+6=a ¤ ?5> ¤ @?) ¤ Ag %%type¤ Bg t-1e8ba8b5a-3a5¤ Cg t-1e8ba8b5a-3a6¤ Dg t-1e8ba8b5a-3a7¤ Eg t-1e8ba8b5a-3a8¤ Fg t-1e8ba8b5a-3a9¤ Gg t-1e8ba8b5a-3aa¤ Hg t-1e8ba8b5a-3ab¤ IBCDEFGH ¤ Jg m-1e8ba8b5a-3ac¤ KJ. ¤ LKKKKKKK ¤ Mf l-1e8ba8b5a-3b0¤ Nf l-1e8ba8b5a-3b1¤ Of l-1e8ba8b5a-3b2¤ Pf l-1e8ba8b5a-3b3¤ Qf l-1e8ba8b5a-3b4¤ Rf l-1e8ba8b5a-3b5¤ Sf l-1e8ba8b5a-3b6¤ TMNOPQRS ¤ U0ILT ¤ Vg getter¤ Wg index¤ XVW ¤ Yf l-1e8ba8b5a-3a3¤ Zf l-1e8ba8b5a-3a4¤ [YZ ¤ \0XB[ ¤ ]ź ¤ ^AAA ¤ _f l-1e8ba8b5a-39e¤ `f l-1e8ba8b5a-39f¤ af l-1e8ba8b5a-3a0¤ b_`a ¤ c0]^b ¤ di7<=7U777\7c”¤ ¤ e+Ada ¤ f5e ¤ g(@f) ¤ hg ck¤ ig err¤ jg s¤ kij ¤ l88 ¤ mf l-a33a589db48-22¤ nf l-a33a589db48-23¤ omn ¤ p0klo ¤ q8p7<=7777FTZ^
¤ r+hqa ¤ sg quote¤ t+sqa ¤ uAp7< ¤ v+ ud ¤ wtv ¤ xw ¤ yg %%index¤ z+yda ¤ {5z ¤ |(@{) ¤ }f l-a33a589db48-27¤ ~f l-a33a589db48-28¤ }~ ¤ 0kl ¤ 87<=7777FTZ^
¤ +ha ¤ +sa ¤ 7< ¤
+
d ¤
¤ ¤ g %%copier¤ +da ¤ 5 ¤ (@) ¤ f l-a33a589db48-2c¤ f l-a33a589db48-2d¤ ¤ 0kl ¤ 87<=7777FTZ^
¤ +ha ¤ +sa ¤ g %%-set-fields¤ A7< ¤ +d ¤ ¤ ¤ g t-a33a589db48-1c¤ ¤ f l-a33a589db48-31¤ ¤ 09 ¤ 87<=7777FTZ^
¤ +,a ¤ i7<=7U777\7c”¤ ¤ +ja ¤ ” ¤ ¢g if¤ £+¢a ¤ ¤+%a ¤ „+'a ¤ ¦„ ¤ §A7< ¤ Ø+ §d ¤ ©¤¦Ø ¤ Ŗg
struct-ref¤ «+Ŗa ¤ ¬7< ¤ +
¬d ¤ ®« ¤ Æ+1a ¤ °+sa ¤ ±+§d ¤ ²°± ¤ ³Æ ² ¤ “£©®³ ¤ µ”“ ¤ ¶A7< ¤ ·+4¶d ¤ øg each¤ ¹)) ¤ ŗø¹ ¤ »)ŗ¤ ¼)»¤ ½)¼¤ ¾g %%set-fields¤ æg dummy¤ Ąg check?¤ Įg expr¤ ĀæĄjVĮ ¤ Ćg m-a33a589db48-38¤ ÄĆ. ¤ ÅÄiiii ¤ Ęf l-a33a589db48-3d¤ Ēf l-a33a589db48-3e¤ Čf l-a33a589db48-3f¤ Éf l-a33a589db48-40¤ Źf l-a33a589db48-41¤ ĖĘĒČÉŹ ¤ Ģ0ĀÅĖ ¤ ĶÄ ¤ Īf l-a33a589db48-3a¤ ĻĪ ¤ Š09ĶĻ ¤ Ńg t-1e8ba8b5a-3c4¤ Ņg t-1e8ba8b5a-3c6¤ Óg t-1e8ba8b5a-3c5¤ ŌŃŅÓ ¤ Õg m-1e8ba8b5a-3c7¤ ÖÕ. ¤ ×ÖÖÖ ¤ Ųf l-1e8ba8b5a-3cb¤ Łf l-1e8ba8b5a-3cc¤ Śf l-1e8ba8b5a-3cd¤ ŪŲŁŚ ¤ Ü0Ō×Ū ¤ Żf l-1e8ba8b5a-3c1¤ Žf l-1e8ba8b5a-3c2¤ ßf l-1e8ba8b5a-3c3¤ ąŻŽß ¤ į0]^ą ¤ āiĢ7Š=7Ü777į”¤
¤ ć+¾āa ¤ äAĢ7Š ¤ å+ äd ¤ ę+äd ¤ ēę ¤ čg map¤ éč ¤ źč ¤ ėg list¤ ģg %set-box!-procedure¤ ķ()) ¤ īg m-a33a589db48-4c¤ ļī. ¤ šg t-a33a589db48-4a¤ ńg t-a33a589db48-4b¤ ņšń ¤ óļļ ¤ ōf l-a33a589db48-51¤ õf l-a33a589db48-52¤ öōõ ¤ ÷0ņóö ¤ ųļ ¤ łf l-a33a589db48-4e¤ śł ¤ ū09ųś ¤ üļ÷7ū=7777FTZ^
¤ ż+,üa ¤ žg t-1e8ba8b5a-3e6¤ ’g t-1e8ba8b5a-3e7¤ ž’ ¤ g m-1e8ba8b5a-3e8¤ . ¤ ¤ f l-1e8ba8b5a-3ec¤ f l-1e8ba8b5a-3ed¤ ¤ 0 ¤ g setter¤ IV ¤
f l-1e8ba8b5a-3e0¤ f l-1e8ba8b5a-3e1¤ f l-1e8ba8b5a-3e2¤
¤ 0 ^
¤ W ¤ f l-1e8ba8b5a-3d7¤ f l-1e8ba8b5a-3d8¤ ¤ 0B ¤ g field-specs¤ ¤ f l-1e8ba8b5a-3d3¤ f l-1e8ba8b5a-3d4¤ ¤ 0B ¤ i÷7ū=777”¤ ¤ +ja ¤ g val¤ + a ¤ ¤ +¢a ¤ +%a ¤ !+'a ¤ "! ¤ #A÷7ū ¤ $+ #d ¤ % "$ ¤ &g struct-set!¤ '+&a ¤ (÷7ū ¤ )+
(d ¤ *') ¤ ++1a ¤ ,+sa ¤ -+#d ¤ .,- ¤ /+. ¤ 0 %*/ ¤ 1ż 0 ¤ 2A7ū ¤ 3+ģ2d ¤ 4g set-record-type-printer!¤ 5g display¤ 6f #string¤ 8g object-address¤ 9f value: ¤ :g write¤ ;f >¤C 5 hh ]4
5 4 > " G 4 i4 i5 > " G h r ] Ø C j g value
g filenamef srfi/srfi-111.scm
g nameg %box-procedure C R4#$'*Ŗ h 7 ] C / g t-a33a589db48-3
C¬Æ° h T ]L 6 L g a
g filenamef srfi/srfi-111.scm
C(³ h D ] L 6< g filenamef srfi/srfi-111.scm
Cµ h ] C
C·ø hp
]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 } g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-111.scm
n C5R»¼æ ĄØ 4Ć > " G Ę iŖ R h q ] ¦$ §CC i g obj
g filenamef srfi/srfi-111.scm
g nameg %box?-procedure CĒR4#$'*. h 8 ] C 0 g t-a33a589db48-10
C¬Æ° h T ]L 6 L g a
g filenamef srfi/srfi-111.scm
C(³ h D ] L 6< g filenamef srfi/srfi-111.scm
C0 h ] C
C·ø hp
]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 } g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-111.scm
n C5R 3 h p ] §&
©C 6h g s
g filenamef srfi/srfi-111.scm
g nameg %unbox-procedure C4R4#$'grx h : ]C 2 g err
g s C| h : ]C 2 g err
g s C h : ]C 2 g err
g s C*µ h 8 ] C 0 g t-a33a589db48-1c
C¬Æ° h T ]L 6 L g a
g filenamef srfi/srfi-111.scm
C(³ h D ] L 6< g filenamef srfi/srfi-111.scm
C· h ] C
C·ø hø Į ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ O @4 5 $ 4
O ?$ @ 6 6 ¹ g x
³ g tmp ³ g tmp " ³ g tmp 9 ³ g tmp P ³ g tmp g ³ g tmp ³ g filenamef srfi/srfi-111.scm
³ C5R4#$'½ćåēźė h v ]45C n g dummy
g check? g s g getter g expr C·ø h( æ ] 4 5 $ @ 6 · g x
" g tmp " g filenamef srfi/srfi-111.scm
" g
macro-typeg syntax-rulesg patternsg check?g sg getterg expr g ... C5R 3 h ] §&
ŖC 6 | g s
g val g filenamef srfi/srfi-111.scm
g nameg %set-box!-procedure CģR4#$'ķ1 h V ] C N g t-a33a589db48-4a
g t-a33a589db48-4b C¬Æ° h T ]L 6 L g a
g filenamef srfi/srfi-111.scm
C(³ h D ] L 6< g filenamef srfi/srfi-111.scm
C3 h ] C
C·ø hp
]4 5 $ @4 5 $ O @4 5 $ 4 O ?$ @
6
6 } g x
n g tmp n g tmp " n g tmp > n g filenamef srfi/srfi-111.scm
n C5R4i i56789: 3; h č ]4> " G 444 5 5> " G 4> " G 4 §&
©" 4 5> " G
6 ą g box
| g port | g filenamef srfi/srfi-111.scm
! !
! ' !
. ! 7 " ; "
@ " I # N # l # x $
| $ | C6 g m
, g rtd
o g filenamef srfi/srfi-111.scm
-
2 : & ?
Ż
b
b
C6 PK ! Ėįõō ō
srfi-42.gonu [µü¤ GOOF----LE-8-2.0Ü ]
w 4 hĀ ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-42¤ ¤ g filenameS¤
f srfi/srfi-42.scm¤ g exportsS¤ g :¤
g :-dispatch-ref¤ g :-dispatch-set!¤ g :char-range¤ g :dispatched¤ g :do¤ g :generator-proc¤ g :integers¤ g :let¤ g :list¤ g :parallel¤ g :port¤ g :range¤ g :real-range¤ g :string¤ g :until¤ g :vector¤ g :while¤ g any?-ec¤ g append-ec¤ g dispatch-union¤ !g do-ec¤ "g every?-ec¤ #g first-ec¤ $g fold-ec¤ %g fold3-ec¤ &g last-ec¤ 'g list-ec¤ (g make-initial-:-dispatch¤ )g max-ec¤ *g min-ec¤ +g
product-ec¤ ,g string-append-ec¤ -g string-ec¤ .g sum-ec¤ /g vector-ec¤ 0g vector-of-length-ec¤ 1
!"#$%&'()*+,-./0 %¤ 2g set-current-module¤ 32 ¤ 42 ¤ 5g cond-expand-provide¤ 6g current-module¤ 7 ¤ 8g make-syntax-transformer¤ 98 ¤ :8 ¤ ;g macro¤ < ¤ ?g any¤ @g free-id¤ Ag
syntax-object¤ Bg nested¤ Cg top¤ DC ¤ Eg ribcage¤ FE ¤ Gg x¤ HG ¤ Ig m-46961e513b-2¤ JIC ¤ KJ ¤ Lf l-46961e513b-4¤ ML ¤ NEHKM ¤ ODFN ¤ Pg hygiene¤ QP ¤ RABOQ ¤ S@R ¤ Tg each-any¤ UST¤ VUT¤ W?V¤ Xg dummy¤ Yg q¤ Zg etc¤ [XYZ ¤ \JDD ¤ ]f l-46961e513b-7¤ ^f l-46961e513b-8¤ _f l-46961e513b-9¤ `]^_ ¤ aE[\` ¤ bDaFN ¤ cA!bQ ¤ dg append¤ ed ¤ fd ¤ g?T¤ h?g¤ i?h¤ j?i¤ kg q1¤ lg q2¤ mg etc1¤ nXklmZ ¤ oJDDDD ¤ pf l-46961e513b-10¤ qf l-46961e513b-11¤ rf l-46961e513b-12¤ sf l-46961e513b-13¤ tf l-46961e513b-14¤ upqrst ¤ vEnou ¤ wDvFN ¤ xA!wQ ¤ y?? ¤ zg begin¤ {g cmd¤ |X{ ¤ }JD ¤ ~f l-46961e513b-1c¤ f l-46961e513b-1d¤ ~ ¤ E|} ¤ DFN ¤ AzQ ¤ g if¤
AQ ¤ AQ ¤
¤ ¤ AOQ ¤ @ ¤ ? ¤ ?? ¤ g test¤ X{ ¤ f l-46961e513b-21¤ f l-46961e513b-22¤ f l-46961e513b-23¤ ¤ E\ ¤ DFN ¤ AQ ¤ A!Q ¤ g not¤ AOQ ¤ @ ¤ ? ¤ ?? ¤ f l-46961e513b-28¤ f l-46961e513b-29¤ f l-46961e513b-2a¤ ¤ E\ ¤ ”D FN ¤ ¢A”Q ¤ £A”Q ¤ ¤A!”Q ¤ „g and¤ ¦A„OQ ¤ §@¦ ¤ اT¤ ©?Ø? ¤ Ŗf l-46961e513b-2f¤ «f l-46961e513b-30¤ ¬f l-46961e513b-31¤ Ŗ«¬ ¤ ®E\ ¤ ÆD®FN ¤ °AÆQ ¤ ±A„ÆQ ¤ ²A!ÆQ ¤ ³g or¤ “A³OQ ¤ µ@“ ¤ ¶µT¤ ·?¶? ¤ øf l-46961e513b-37¤ ¹f l-46961e513b-38¤ ŗf l-46961e513b-39¤ »ø¹ŗ ¤ ¼E\» ¤ ½D¼FN ¤ ¾A½Q ¤ æA³½Q ¤ ĄA!½Q ¤ ĮAzOQ ¤ Ā@Į ¤ ĆĀT¤ Ä?Ć? ¤ ÅXZ{ ¤ Ęf l-46961e513b-3f¤ Ēf l-46961e513b-40¤ Čf l-46961e513b-41¤ ÉĘĒČ ¤ ŹEÅ\É ¤ ĖDŹFN ¤ ĢAzĖQ ¤ ĶA!ĖQ ¤ ĪAOQ ¤ Ļ@Ī ¤ ŠĻ?????? ¤ Ń?Š? ¤ Ņg do-ec:do¤ Óg olet¤ Ōg lbs¤ Õg ne1?¤ Ög ilet¤ ×g ne2?¤ Ųg lss¤ ŁXÓŌÕÖ×Ų{ ¤ ŚJDDDDDDD ¤ Ūf l-46961e513b-47¤ Üf l-46961e513b-48¤ Żf l-46961e513b-49¤ Žf l-46961e513b-4a¤ ßf l-46961e513b-4b¤ ąf l-46961e513b-4c¤ įf l-46961e513b-4d¤ āf l-46961e513b-4e¤ ćŪÜŻŽßąįā ¤ äEŁŚć ¤ åDäFN ¤ ęAŅåQ ¤ ēAåQ ¤ č?h? ¤ ég g¤ źg arg1¤ ėg arg¤ ģXéźė{ ¤ ķf l-46961e513b-58¤ īf l-46961e513b-59¤ ļf l-46961e513b-5a¤ šf l-46961e513b-5b¤ ńf l-46961e513b-5c¤ ņķīļšń ¤ óEģoņ ¤ ōDóFN ¤ õAŅōQ ¤ ög syntax-violation¤ ÷ö ¤ ųö ¤ łf -source expression failed to match any pattern¤ śg m-46961e513b-63¤ ūśC ¤ üū ¤ żf l-46961e513b-65¤ žż ¤ ’EHüž ¤ DF’ ¤ A Q ¤ @ ¤ g let¤ A Q ¤ @ ¤ g¤ ???T ¤ ?? ¤ g ec-simplify¤
g obs¤ g oc¤ g ibs¤
g ic¤ g ls¤ X{
ŌÕ
×
¤ ūDDDDDDDDD
¤ f l-46961e513b-68¤ f l-46961e513b-69¤ f l-46961e513b-6a¤ f l-46961e513b-6b¤ f l-46961e513b-6c¤ f l-46961e513b-6d¤ f l-46961e513b-6e¤ f l-46961e513b-6f¤ f l-46961e513b-70¤ f l-46961e513b-71¤
¤ E ¤ D F’ ¤ A Q ¤ A Q ¤ g loop¤ !A Q ¤ "A Q ¤ #g m-46961e513b-7f¤ $#C ¤ %$ ¤ &f l-46961e513b-81¤ '& ¤ (EH%' ¤ )DF( ¤ *A)Q ¤ +@* ¤ ,g atom¤ -, ¤ .+-? ¤ /?. ¤ 0, ¤ 1+0? ¤ 2?1 ¤ 3g
consequent¤ 4X3 ¤ 5$D ¤ 6f l-46961e513b-89¤ 7f l-46961e513b-8a¤ 867 ¤ 9E458 ¤ :D9F( ¤ ;A:Q ¤ <A:Q ¤ =;<< ¤ >+-?? ¤ ??> ¤ @+0?? ¤ A?@ ¤ BA)Q ¤ C@B ¤ DC? ¤ ECD ¤ F+E? ¤ G?F ¤ HX3 ¤ I$DD ¤ Jf l-46961e513b-9c¤ Kf l-46961e513b-9d¤ Lf l-46961e513b-9e¤ MJKL ¤ NEHIM ¤ ODNF( ¤ PA OQ ¤ QAOQ ¤ R+E?? ¤ S?R ¤ Tg alternate¤ UX3T ¤ V$DDD ¤ Wf l-46961e513b-a3¤ Xf l-46961e513b-a4¤ Yf l-46961e513b-a5¤ Zf l-46961e513b-a6¤ [WXYZ ¤ \EUV[ ¤ ]D\F( ¤ ^A ]Q ¤ _A]Q ¤ `A)Q ¤ a@` ¤ bT¤ cab¤ d?c ¤ eg command¤ fXe ¤ gf l-46961e513b-ac¤ hf l-46961e513b-ad¤ igh ¤ jEf5i ¤ kDjF( ¤ lA kQ ¤ mAzkQ ¤ nAz)Q ¤ o@n ¤ poT¤ q?p ¤ rf l-46961e513b-b2¤ sf l-46961e513b-b3¤ trs ¤ uEf5t ¤ vDuF( ¤ wA vQ ¤ xA vQ ¤ y, ¤ zpT¤ {?y?z ¤ |g done¤ }g to-do1¤ ~g to-do2¤ X|}~ ¤ f l-46961e513b-b8¤ f l-46961e513b-b9¤ f l-46961e513b-ba¤ f l-46961e513b-bb¤ ¤
EV ¤ D
F( ¤ A Q ¤ A Q ¤ ?yTg ¤ g to-do¤ X|} ¤ f l-46961e513b-c3¤ f l-46961e513b-c4¤ f l-46961e513b-c5¤ f l-46961e513b-c6¤ ¤ EV ¤ DF( ¤ A Q ¤ A Q ¤ ?y ¤ X ¤ f l-46961e513b-ce¤ ¤ E% ¤ DF( ¤ AQ ¤ AQ ¤ ¤ ? ¤ ?y ¤ ?yg ¤ ”g command1¤ ¢X”e ¤ £f l-46961e513b-d6¤ ¤f l-46961e513b-d7¤ „f l-46961e513b-d8¤ ¦£¤„ ¤ §E¢I¦ ¤ ØD§F( ¤ ©AzØQ ¤ Ŗ?T?????? ¤ «g cc¤ ¬X«ÓŌÕÖ×Ų ¤ g m-46961e513b-e2¤ ®C ¤ Æ®DDDDDDD ¤ °f l-46961e513b-e7¤ ±f l-46961e513b-e8¤ ²f l-46961e513b-e9¤ ³f l-46961e513b-ea¤ “f l-46961e513b-eb¤ µf l-46961e513b-ec¤ ¶f l-46961e513b-ed¤ ·f l-46961e513b-ee¤ ø°±²³“µ¶· ¤ ¹E¬Æø ¤ ŗ® ¤ »f l-46961e513b-e4¤ ¼» ¤ ½EHŗ¼ ¤ ¾D¹F½ ¤ æA¾Q ¤ Ą????? ¤ ĮX«ŌÕŲ ¤ Ā®DDDD ¤ Ćf l-46961e513b-f9¤ Äf l-46961e513b-fa¤ Åf l-46961e513b-fb¤ Ęf l-46961e513b-fc¤ Ēf l-46961e513b-fd¤ ČĆÄÅĘĒ ¤ ÉEĮĀČ ¤ ŹDÉF½ ¤ ĖAŹQ ¤ ĢAŹQ ¤ ĶĢ ¤ ĪAŹQ ¤ Ļg index¤ Šg m-46961e513b-103¤ ŃŠC ¤ ŅŃ ¤ Óf l-46961e513b-105¤ ŌÓ ¤ ÕEHŅŌ ¤ ÖDFÕ ¤ ×AĻÖQ ¤ Ų@× ¤ ŁŲ? ¤ Ś???Ł? ¤ Ūg var¤ Üg i¤ Żg
expression¤ ŽX«ŪÜŻ ¤ ßŃDDDD ¤ ąf l-46961e513b-108¤ įf l-46961e513b-109¤ āf l-46961e513b-10a¤ ćf l-46961e513b-10b¤ äf l-46961e513b-10c¤ åąįāćä ¤ ęEŽßå ¤ ēDęFÕ ¤ čAēQ ¤ éAēQ ¤ źA
ēQ ¤ ėź ¤ ģAēQ ¤ ķé ¤ īAēQ ¤ ļģķī ¤ š???? ¤ ńX«ŪŻ ¤ ņŃDDD ¤ óf l-46961e513b-113¤ ōf l-46961e513b-114¤ õf l-46961e513b-115¤ öf l-46961e513b-116¤ ÷óōõö ¤ ųEńņ÷ ¤ łDųFÕ ¤ śAłQ ¤ ūAłQ ¤ üAłQ ¤ żū ¤ žAłQ ¤ ’üżž ¤ hT¤ ? ¤ ?¤ g :parallel-1¤ g gen¤ X«éźė ¤ g m-46961e513b-11b¤ C ¤ DDDDD ¤ f l-46961e513b-125¤
f l-46961e513b-126¤ f l-46961e513b-127¤ f l-46961e513b-128¤
f l-46961e513b-129¤ f l-46961e513b-12a¤
¤ E ¤ ¤ f l-46961e513b-11d¤ ¤ EH ¤ DF ¤ AQ ¤ ?? ? ¤ g result¤ X«éźė ¤ g m-46961e513b-133¤ C ¤ DDDDDD ¤ f l-46961e513b-138¤ f l-46961e513b-139¤ f l-46961e513b-13a¤ f l-46961e513b-13b¤ !f l-46961e513b-13c¤ "f l-46961e513b-13d¤ #f l-46961e513b-13e¤ $ !"# ¤ %E $ ¤ & ¤ 'f l-46961e513b-135¤ (' ¤ )EH&( ¤ *D%F) ¤ +A*Q ¤ ,DF) ¤ -A,Q ¤ .@- ¤ /A,Q ¤ 0@/ ¤ 1TT¤ 201¤ 3.2T?2?T ¤ 4???33 ¤ 5g gens¤ 6g ob1¤ 7g oc1¤ 8g lb1¤ 9g ne1?1¤ :g ib1¤ ;g ic1¤ g ob2¤ ?g oc2¤ @g lb2¤ Ag ne1?2¤ Bg ib2¤ Cg ic2¤ Dg ne2?2¤ Eg ls2¤ FX«56789:;<=>?@ABCDE ¤ GDDDDDDDDDDDDDDDDDD ¤ Hf l-46961e513b-149¤ If l-46961e513b-14a¤ Jf l-46961e513b-14b¤ Kf l-46961e513b-14c¤ Lf l-46961e513b-14d¤ Mf l-46961e513b-14e¤ Nf l-46961e513b-14f¤ Of l-46961e513b-150¤ Pf l-46961e513b-151¤ Qf l-46961e513b-152¤ Rf l-46961e513b-153¤ Sf l-46961e513b-154¤ Tf l-46961e513b-155¤ Uf l-46961e513b-156¤ Vf l-46961e513b-157¤ Wf l-46961e513b-158¤ Xf l-46961e513b-159¤ Yf l-46961e513b-15a¤ Zf l-46961e513b-15b¤ [HIJKLMNOPQRSTUVWXYZ ¤ \EFG[ ¤ ]D\F) ¤ ^A]Q ¤ _A]Q ¤ `A]Q ¤ aA„]Q ¤ b?T? ¤ c??h? ¤ dg :while-1¤ eX«éźė ¤ fg m-46961e513b-183¤ gfC ¤ hgDDDDD ¤ if l-46961e513b-188¤ jf l-46961e513b-189¤ kf l-46961e513b-18a¤ lf l-46961e513b-18b¤ mf l-46961e513b-18c¤ nf l-46961e513b-18d¤ oijklmn ¤ pEeho ¤ qg ¤ rf l-46961e513b-185¤ sr ¤ tEHqs ¤ uDpFt ¤ vAduQ ¤ wg m-46961e513b-195¤ xwC ¤ yx ¤ zf l-46961e513b-197¤ {z ¤ |EHy{ ¤ }DF| ¤ ~A}Q ¤ @~ ¤ ?????? ¤ ??? ¤ g :while-2¤ X«ÓŌÕÖ×Ų ¤ xDDDDDDDD ¤
f l-46961e513b-19a¤ f l-46961e513b-19b¤ f l-46961e513b-19c¤ f l-46961e513b-19d¤ f l-46961e513b-19e¤ f l-46961e513b-19f¤ f l-46961e513b-1a0¤ f l-46961e513b-1a1¤ f l-46961e513b-1a2¤
¤ E ¤ DF| ¤ AQ ¤ AQ ¤ g m-46961e513b-1ac¤ C ¤ ¤ f l-46961e513b-1ae¤ ¤ EH ¤ DF ¤ AQ ¤ @ ¤ AQ ¤ @ ¤ yT¤ T¤ ¤ ”??? ?? ¤ ¢???TTT” ¤ £g ib-let¤ ¤g ib-save¤ „g
ib-restore¤ ¦g ib-var¤ §g ib-rhs¤ Øg ib¤ ©X«£¤„ÓŌÕ¦§Ø
×Ų ¤ ŖDDDDDDDDDDDDDD ¤ «f l-46961e513b-1b1¤ ¬f l-46961e513b-1b2¤ f l-46961e513b-1b3¤ ®f l-46961e513b-1b4¤ Æf l-46961e513b-1b5¤ °f l-46961e513b-1b6¤ ±f l-46961e513b-1b7¤ ²f l-46961e513b-1b8¤ ³f l-46961e513b-1b9¤ “f l-46961e513b-1ba¤ µf l-46961e513b-1bb¤ ¶f l-46961e513b-1bc¤ ·f l-46961e513b-1bd¤ øf l-46961e513b-1be¤ ¹f l-46961e513b-1bf¤ ŗ«¬®Æ°±²³“µ¶·ø¹ ¤ »E©Ŗŗ ¤ ¼D»F ¤ ½A¼Q ¤ ¾g ib-tmp¤ æA¾¼Q ¤ ĄA¼Q ¤ ĮæĄ ¤ ĀĮ ¤ Ćæ ¤ ÄA¼Q ¤ ÅA¼Q ¤ Ęg set!¤ ĒAĘ¼Q ¤ Č1¤ Éb¤ ŹČ??É?? ¤ Ė???TTTŹ ¤ Ģg ob¤ ĶX«£¤„Ģ ŌÕ
×Ų
¤ ĪDDDDDDDDDDDD
¤ Ļf l-46961e513b-1d5¤ Šf l-46961e513b-1d6¤ Ńf l-46961e513b-1d7¤ Ņf l-46961e513b-1d8¤ Óf l-46961e513b-1d9¤ Ōf l-46961e513b-1da¤ Õf l-46961e513b-1db¤ Öf l-46961e513b-1dc¤ ×f l-46961e513b-1dd¤ Ųf l-46961e513b-1de¤ Łf l-46961e513b-1df¤ Śf l-46961e513b-1e0¤ Ūf l-46961e513b-1e1¤ ÜĻŠŃŅÓŌÕÖ×ŲŁŚŪ
¤ ŻEĶĪÜ ¤ ŽDŻF ¤ ßAŽQ ¤ ąAŽQ ¤ įg
ne1?-value¤ āAįŽQ ¤ ćA„ŽQ ¤ äg :until-1¤ åg m-46961e513b-1f5¤ ęåC ¤ ēęDDDDD ¤ čf l-46961e513b-1fa¤ éf l-46961e513b-1fb¤ źf l-46961e513b-1fc¤ ėf l-46961e513b-1fd¤ ģf l-46961e513b-1fe¤ ķf l-46961e513b-1ff¤ īčéźėģķ ¤ ļEeēī ¤ šę ¤ ńf l-46961e513b-1f7¤ ņń ¤ óEHšņ ¤ ōDļFó ¤ õAäōQ ¤ ög m-46961e513b-207¤ ÷öC ¤ ų÷ ¤ łf l-46961e513b-209¤ śł ¤ ūEHųś ¤ üDFū ¤ żAüQ ¤ ž@ż ¤ ’ž?????? ¤ ???’ ¤ ÷DDDDDDDD ¤ f l-46961e513b-20c¤ f l-46961e513b-20d¤ f l-46961e513b-20e¤ f l-46961e513b-20f¤ f l-46961e513b-210¤ f l-46961e513b-211¤ f l-46961e513b-212¤ f l-46961e513b-213¤
f l-46961e513b-214¤
¤ E ¤
D Fū ¤ A
Q ¤ A„
Q ¤ A
Q ¤ g m-46961e513b-21e¤ C ¤ ¤ f l-46961e513b-220¤ ¤ EH ¤ DF ¤ AĻQ ¤ @ ¤ ? ¤ T¤ ?¤ ? ¤ ? ¤ X«ŪÜė ¤ DDDD ¤ !f l-46961e513b-223¤ "f l-46961e513b-224¤ #f l-46961e513b-225¤ $f l-46961e513b-226¤ %f l-46961e513b-227¤ &!"#$% ¤ 'E & ¤ (D'F ¤ )A(Q ¤ *A(Q ¤ +A(Q ¤ ,?j¤ -g arg2¤ .X«Ūź-ė ¤ /DDDDD ¤ 0f l-46961e513b-22f¤ 1f l-46961e513b-230¤ 2f l-46961e513b-231¤ 3f l-46961e513b-232¤ 4f l-46961e513b-233¤ 5f l-46961e513b-234¤ 6012345 ¤ 7E./6 ¤ 8D7F ¤ 9A8Q ¤ :Ad8Q ¤ ;X«Ūė ¤ <DDD ¤ =f l-46961e513b-23d¤ >f l-46961e513b-23e¤ ?f l-46961e513b-23f¤ @f l-46961e513b-240¤ A=>?@ ¤ BE;<A ¤ CDBF ¤ DACQ ¤ EACQ ¤ FE ¤ Gg t¤ HAGCQ ¤ IACQ ¤ Jg null?¤ KAJCQ ¤ LKH ¤ MIL ¤ Ng car¤ OANCQ ¤ POH ¤ QP ¤ RACQ ¤ Sg cdr¤ TASCQ ¤ UTH ¤ VU ¤ WRV ¤ Xg m-46961e513b-245¤ YXC ¤ ZY ¤ [f l-46961e513b-247¤ \[ ¤ ]EHZ\ ¤ ^DF] ¤ _AĻ^Q ¤ `@_ ¤ a`? ¤ b???a? ¤ cYDDDD ¤ df l-46961e513b-24a¤ ef l-46961e513b-24b¤ ff l-46961e513b-24c¤ gf l-46961e513b-24d¤ hf l-46961e513b-24e¤ idefgh ¤ jE ci ¤ kDjF] ¤ lAkQ ¤ mAkQ ¤ ng str¤ oAnkQ ¤ pg len¤ qApkQ ¤ rA
kQ ¤ sqr ¤ ts ¤ uAĘkQ ¤ vg
string-length¤ wAvkQ ¤ xwo ¤ yuqx ¤ zy ¤ {r ¤ |g <¤ }A|kQ ¤ ~q ¤ g
string-ref¤ AkQ ¤ AkQ ¤ g +¤ AkQ ¤ A kQ ¤
¤ ah¤ ?¤ ?¤ ?¤ X«ŪÜź-ė ¤ YDDDDDD ¤ f l-46961e513b-255¤ f l-46961e513b-256¤ f l-46961e513b-257¤ f l-46961e513b-258¤ f l-46961e513b-259¤ f l-46961e513b-25a¤ f l-46961e513b-25b¤ ¤ E ¤ DF] ¤ AQ ¤ AĻQ ¤ g
string-append¤ AQ ¤ X«Ūźė ¤ f l-46961e513b-265¤ f l-46961e513b-266¤ f l-46961e513b-267¤ f l-46961e513b-268¤ f l-46961e513b-269¤ ¤ ”Ec ¤ ¢D”F] ¤ £A¢Q ¤ ¤AĻ¢Q ¤ „AÜ¢Q ¤ ¦¤„ ¤ §g m-46961e513b-270¤ اC ¤ ©ØDDD ¤ Ŗf l-46961e513b-275¤ «f l-46961e513b-276¤ ¬f l-46961e513b-277¤ f l-46961e513b-278¤ ®Ŗ«¬ ¤ ÆE;©® ¤ °Ø ¤ ±f l-46961e513b-272¤ ²± ¤ ³EH°² ¤ “DÆF³ ¤ µA “Q ¤ ¶AĻ“Q ¤ ·AÜ“Q ¤ ø¶· ¤ ¹DF³ ¤ ŗAĻ¹Q ¤ »@ŗ ¤ ¼»? ¤ ½???¼? ¤ ¾ØDDDD ¤ æf l-46961e513b-27e¤ Ąf l-46961e513b-27f¤ Įf l-46961e513b-280¤ Āf l-46961e513b-281¤ Ćf l-46961e513b-282¤ ÄæĄĮĀĆ ¤ ÅE ¾Ä ¤ ĘDÅF³ ¤ ĒAĘQ ¤ ČAĘQ ¤ Ég vec¤ ŹAÉĘQ ¤ ĖApĘQ ¤ ĢA
ĘQ ¤ ĶĖĢ ¤ ĪĶ ¤ ĻAĘĘQ ¤ Šg
vector-length¤ ŃAŠĘQ ¤ ŅŃŹ ¤ ÓĻĖŅ ¤ ŌÓ ¤ ÕĢ ¤ ÖA|ĘQ ¤ ×Ė ¤ Ųg
vector-ref¤ ŁAŲĘQ ¤ ŚAĘQ ¤ ŪAĘQ ¤ ÜA ĘQ ¤ ŻÜ ¤ Ž¼h¤ ß?Ž¤ ą?ߤ į?ą¤ āØDDDDDD ¤ ćf l-46961e513b-289¤ äf l-46961e513b-28a¤ åf l-46961e513b-28b¤ ęf l-46961e513b-28c¤ ēf l-46961e513b-28d¤ čf l-46961e513b-28e¤ éf l-46961e513b-28f¤ źćäåęēčé ¤ ėEāź ¤ ģDėF³ ¤ ķAģQ ¤ īA ģQ ¤ ļAģQ ¤ šØDDDDD ¤ ńf l-46961e513b-299¤ ņf l-46961e513b-29a¤ óf l-46961e513b-29b¤ ōf l-46961e513b-29c¤ õf l-46961e513b-29d¤ öf l-46961e513b-29e¤ ÷ńņóōõö ¤ ųE.š÷ ¤ łDųF³ ¤ śAłQ ¤ ūAłQ ¤ üAÉłQ ¤ żAłQ ¤ žüż ¤ ’ApłQ ¤ A
łQ ¤ ’ ¤ g vecs¤ AłQ ¤ g ec-:vector-filter¤ AłQ ¤ g list¤ AłQ ¤ g k¤ AłQ ¤
¤
¤ AłQ ¤
A|łQ ¤
’ ¤ AłQ ¤ AJłQ ¤ ¤ AzłQ ¤ AĘłQ ¤ ANłQ ¤ ¤ ü ¤ ASłQ ¤ ¤ ¤ AŠłQ ¤ ü ¤ ’ ¤ ¤ ¤ ż ¤ ¤ !AŲłQ ¤ "!ü ¤ #" ¤ $AłQ ¤ %A łQ ¤ &$ % ¤ '& ¤ (' ¤ )g m-46961e513b-2a6¤ *)C ¤ +* ¤ ,f l-46961e513b-2a8¤ -, ¤ .EH+- ¤ /DF. ¤ 0AĻ/Q ¤ 1@0 ¤ 21? ¤ 3???2 ¤ 4X«ŪÜ ¤ 5*DDD ¤ 6f l-46961e513b-2ab¤ 7f l-46961e513b-2ac¤ 8f l-46961e513b-2ad¤ 9f l-46961e513b-2ae¤ :6789 ¤ ;E45: ¤ <D;F. ¤ =A<Q ¤ >A
<Q ¤ ?> ¤ @A<Q ¤ AA<Q ¤ BA <Q ¤ CB ¤ D??? ¤ EX«Ū ¤ F*DD ¤ Gf l-46961e513b-2b4¤ Hf l-46961e513b-2b5¤ If l-46961e513b-2b6¤ JGHI ¤ KEEFJ ¤ LDKF. ¤ MALQ ¤ NA
LQ ¤ ON ¤ PALQ ¤ QALQ ¤ RA LQ ¤ SR ¤ Tg m-46961e513b-2ba¤ UTC ¤ VU ¤ Wf l-46961e513b-2bc¤ XW ¤ YEHVX ¤ ZDFY ¤ [AĻZQ ¤ \@[ ¤ ]\? ¤ ^]g¤ _?^¤ `?_¤ a?`¤ bX«ŪÜźė ¤ cUDDDDD ¤ df l-46961e513b-2bf¤ ef l-46961e513b-2c0¤ ff l-46961e513b-2c1¤ gf l-46961e513b-2c2¤ hf l-46961e513b-2c3¤ if l-46961e513b-2c4¤ jdefghi ¤ kEbcj ¤ lDkFY ¤ mAlQ ¤ nAlQ ¤ oAlQ ¤ pX«Ūź ¤ qUDDD ¤ rf l-46961e513b-2cd¤ sf l-46961e513b-2ce¤ tf l-46961e513b-2cf¤ uf l-46961e513b-2d0¤ vrstu ¤ wEpqv ¤ xDwFY ¤ yAxQ ¤ zA
xQ ¤ {A xQ ¤ |{ ¤ }X«Ūź- ¤ ~UDDDD ¤ f l-46961e513b-2d6¤ f l-46961e513b-2d7¤ f l-46961e513b-2d8¤ f l-46961e513b-2d9¤ f l-46961e513b-2da¤ ¤
E}~ ¤ D
FY ¤ AQ ¤ A Q ¤ ¤ ,
¤ ????y ¤ X«Ū- ¤ f l-46961e513b-2e1¤ f l-46961e513b-2e2¤ f l-46961e513b-2e3¤ f l-46961e513b-2e4¤ ¤ Eq ¤ DFY ¤ AQ ¤ AQ ¤ g b¤ AQ ¤ AQ ¤ AQ ¤ A„Q ¤ g integer?¤ AQ ¤ ¤ g exact?¤ AQ ¤ ¤ ” ¤ ¢” ¤ £g error¤ ¤A£Q ¤ „f *arguments of :range are not exact integer ¤ ¦A„Q ¤ §f (use :real-range?)¤ ØA§Q ¤ ©A
Q ¤ ŖA Q ¤ «¤¦Ø©Ŗ ¤ ¬¢« ¤ ¬ ¤ ®© ¤ ÆA|Q ¤ ° ¤ ± ¤ ²AQ ¤ ³AQ ¤ “Ŗ ¤ µ, ’ ¤ ¶????µ ¤ ·f l-46961e513b-2ea¤ øf l-46961e513b-2eb¤ ¹f l-46961e513b-2ec¤ ŗf l-46961e513b-2ed¤ »·ø¹ŗ ¤ ¼Eq» ¤ ½D¼FY ¤ ¾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 ¤ ĻŹĖĢĶĄĪ ¤ ŠĮÉĻ ¤ ŃŠ ¤ ŅĶ ¤ Óg >¤ ŌAÓ½Q ¤ ÕĄ ¤ Öæ ¤ ×A½Q ¤ Ųg -¤ ŁAŲ½Q ¤ ŚĪ ¤ Ū?????y ¤ Üf l-46961e513b-2f3¤ Żf l-46961e513b-2f4¤ Žf l-46961e513b-2f5¤ ßf l-46961e513b-2f6¤ ąf l-46961e513b-2f7¤ įÜŻŽßą ¤ āE}~į ¤ ćDāFY ¤ äAćQ ¤ åAćQ ¤ ęg a¤ ē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 ¤ ÷ ¤ ?????µ ¤ f l-46961e513b-2fe¤ f l-46961e513b-2ff¤ f l-46961e513b-300¤ f l-46961e513b-301¤ f l-46961e513b-302¤ ¤ E}~ ¤
D FY ¤ A
Q ¤ A
Q ¤
Aę
Q ¤ A
Q ¤ g s¤ A
Q ¤ A ’
Q ¤ ¤ g stop¤ A
Q ¤ A
Q ¤ ¤ ¤ A
Q ¤ A
Q ¤ A„
Q ¤ A
Q ¤
¤ A
Q ¤
¤ ¤ ¤ ! ¤ "! ¤ #A£
Q ¤ $A„
Q ¤ %A§
Q ¤ &#$%
¤ '"& ¤ (' ¤ )
¤ *AÓ
Q ¤ + ¤ , ¤ -A
Q ¤ .AŲ
Q ¤ /A
Q ¤ 0/ ¤ 1?????? ¤ 2g arg3¤ 3X«Ūź-2 ¤ 4f l-46961e513b-309¤ 5f l-46961e513b-30a¤ 6f l-46961e513b-30b¤ 7f l-46961e513b-30c¤ 8f l-46961e513b-30d¤ 9f l-46961e513b-30e¤ :456789 ¤ ;E3c: ¤ <D;FY ¤ =A<Q ¤ >A<Q ¤ ?Aę<Q ¤ @A<Q ¤ AA<Q ¤ BA<Q ¤ CA
<Q ¤ DBC ¤ ED ¤ FA<Q ¤ GA<Q ¤ HA„<Q ¤ IA<Q ¤ JI? ¤ KA<Q ¤ LK? ¤ MI@ ¤ NK@ ¤ OIA ¤ PKA ¤ QHJLMNOP ¤ RGQ ¤ SA£<Q ¤ TA„<Q ¤ UA§<Q ¤ VSTU?@A ¤ WFRV ¤ Xg zero?¤ YAX<Q ¤ ZYA ¤ [f $step size must not be zero in :range¤ \A[<Q ¤ ]S\ ¤ ^FZ] ¤ _AĘ<Q ¤ `A<Q ¤ ag *¤ bAa<Q ¤ cg max¤ dAc<Q ¤ eg ceiling¤ fAe<Q ¤ gg /¤ hAg<Q ¤ iAŲ<Q ¤ ji@? ¤ khjA ¤ lfk ¤ mdCl ¤ nbmA ¤ o`?n ¤ p_Bo ¤ qW^p ¤ r? ¤ sg =¤ tAs<Q ¤ uB ¤ v> ¤ wA<Q ¤ xA ¤ yg m-46961e513b-315¤ zyC ¤ {zDDD ¤ |f l-46961e513b-31a¤ }f l-46961e513b-31b¤ ~f l-46961e513b-31c¤ f l-46961e513b-31d¤ |}~ ¤ Ep{ ¤ z ¤ f l-46961e513b-317¤ ¤
EH ¤ DF
¤ AQ ¤ AĻQ ¤ AÜQ ¤ ¤ A
Q ¤ A Q ¤ ¤ DF
¤ AĻQ ¤ @ ¤ ? ¤ ???? ¤ X«ŪÜź ¤ zDDDD ¤ f l-46961e513b-323¤ f l-46961e513b-324¤ f l-46961e513b-325¤ f l-46961e513b-326¤ f l-46961e513b-327¤ ¤ E ¤ DF
¤ AQ ¤ AĻQ ¤ A
Q ¤ A Q ¤ ” ¤ ¢f l-46961e513b-32e¤ £f l-46961e513b-32f¤ ¤f l-46961e513b-330¤ „f l-46961e513b-331¤ ¦f l-46961e513b-332¤ §¢£¤„¦ ¤ ØE}§ ¤ ©DØF
¤ ŖA©Q ¤ «AĻ©Q ¤ ¬AÜ©Q ¤ «¬ ¤ ®A ©Q ¤ Æ® ¤ °????? ¤ ±X«ŪÜź- ¤ ²zDDDDD ¤ ³f l-46961e513b-339¤ “f l-46961e513b-33a¤ µf l-46961e513b-33b¤ ¶f l-46961e513b-33c¤ ·f l-46961e513b-33d¤ øf l-46961e513b-33e¤ ¹³“µ¶·ø ¤ ŗE±²¹ ¤ »DŗF
¤ ¼A»Q ¤ ½AĻ»Q ¤ ¾A »Q ¤ æ¾ ¤ Ąf l-46961e513b-346¤ Įf l-46961e513b-347¤ Āf l-46961e513b-348¤ Ćf l-46961e513b-349¤ Äf l-46961e513b-34a¤ Åf l-46961e513b-34b¤ ĘĄĮĀĆÄÅ ¤ ĒE3²Ę ¤ ČDĒF
¤ ÉAČQ ¤ ŹAĻČQ ¤ ĖAÜČQ ¤ ĢŹĖ ¤ Ķ?????? ¤ ĪX«ŪÜź-2 ¤ ĻzDDDDDD ¤ Šf l-46961e513b-353¤ Ńf l-46961e513b-354¤ Ņf l-46961e513b-355¤ Óf l-46961e513b-356¤ Ōf l-46961e513b-357¤ Õf l-46961e513b-358¤ Öf l-46961e513b-359¤ ׊ŃŅÓŌÕÖ ¤ ŲEĪĻ× ¤ ŁDŲF
¤ ŚAŁQ ¤ ŪAŁQ ¤ ÜAęŁQ ¤ ŻAŁQ ¤ ŽAŁQ ¤ ßg istop¤ ąAߣQ ¤ įA
ŁQ ¤ āąį ¤ ćā ¤ äAŁQ ¤ åAŁQ ¤ ęA„ŁQ ¤ ēg real?¤ čAēŁQ ¤ éčÜ ¤ źčŻ ¤ ėčŽ ¤ ģęéźė ¤ ķåģ ¤ īA£ŁQ ¤ ļf %arguments of :real-range are not real¤ šAļŁQ ¤ ńīšÜŻŽ ¤ ņäķń ¤ óAŁQ ¤ ōóÜ ¤ õA³ŁQ ¤ öóŻ ¤ ÷åö ¤ ųóŽ ¤ łåų ¤ śõ÷ł ¤ ūęōś ¤ üAĘŁQ ¤ żg exact->inexact¤ žAżŁQ ¤ ’žÜ ¤ üÜ’ ¤ äū ¤ AgŁQ ¤ AŲŁQ ¤ ŻÜ ¤ Ž ¤ üą ¤ ņ ¤ į ¤ A|ŁQ ¤
ą ¤ AŁQ ¤ AaŁQ ¤
AŁQ ¤ A ŁQ ¤ ¤ g m-46961e513b-361¤ C ¤ ¤ f l-46961e513b-363¤ ¤ EH ¤ DF ¤ AĻQ ¤ @ ¤ ? ¤ ????? ¤ DDDDD ¤ f l-46961e513b-366¤ f l-46961e513b-367¤ f l-46961e513b-368¤ f l-46961e513b-369¤ f l-46961e513b-36a¤ !f l-46961e513b-36b¤ " ! ¤ #E±" ¤ $D#F ¤ %A$Q ¤ &A$Q ¤ 'A$Q ¤ (DDDD ¤ )f l-46961e513b-373¤ *f l-46961e513b-374¤ +f l-46961e513b-375¤ ,f l-46961e513b-376¤ -f l-46961e513b-377¤ .)*+,- ¤ /E}(. ¤ 0D/F ¤ 1A0Q ¤ 2A0Q ¤ 3g imax¤ 4A30Q ¤ 5g
char->integer¤ 6A50Q ¤ 7AÜ0Q ¤ 8g <=¤ 9A80Q ¤ :974 ¤ ;g
integer->char¤ <A;0Q ¤ =<7 ¤ >= ¤ ?A0Q ¤ @A0Q ¤ AA 0Q ¤ B@7A ¤ CB ¤ D?C ¤ Eg m-46961e513b-37d¤ FEC ¤ GF ¤ Hf l-46961e513b-37f¤ IH ¤ JEHGI ¤ KDFJ ¤ LAĻKQ ¤ M@L ¤ NM? ¤ ONg¤ P?O¤ Q?P¤ R?Q¤ SFDDDDD ¤ Tf l-46961e513b-382¤ Uf l-46961e513b-383¤ Vf l-46961e513b-384¤ Wf l-46961e513b-385¤ Xf l-46961e513b-386¤ Yf l-46961e513b-387¤ ZTUVWXY ¤ [EbSZ ¤ \D[FJ ¤ ]A\Q ¤ ^A\Q ¤ _A\Q ¤ `FDDD ¤ af l-46961e513b-390¤ bf l-46961e513b-391¤ cf l-46961e513b-392¤ df l-46961e513b-393¤ eabcd ¤ fE;`e ¤ gDfFJ ¤ hAgQ ¤ ig read¤ jAigQ ¤ kj ¤ lFDDDD ¤ mf l-46961e513b-399¤ nf l-46961e513b-39a¤ of l-46961e513b-39b¤ pf l-46961e513b-39c¤ qf l-46961e513b-39d¤ rmnopq ¤ sE}lr ¤ tDsFJ ¤ uAtQ ¤ vAtQ ¤ wg port¤ xAwtQ ¤ yg read-proc¤ zAytQ ¤ {zx ¤ |{ ¤ }AtQ ¤ ~g eof-object?¤ A~tQ ¤ v ¤ AtQ ¤ | ¤ g m-46961e513b-3a3¤ C ¤
¤ f l-46961e513b-3a5¤ ¤ EH
¤ DF ¤ AĻQ ¤ @ ¤ ? ¤ h¤ ?¤ ?¤ ?¤ g dispatch¤ X«ŪÜźė ¤ DDDDDD ¤ f l-46961e513b-3a8¤ f l-46961e513b-3a9¤ f l-46961e513b-3aa¤ f l-46961e513b-3ab¤ f l-46961e513b-3ac¤ f l-46961e513b-3ad¤ f l-46961e513b-3ae¤ ¤ E ¤ DF ¤ AQ ¤ AQ ¤ AQ ¤ ”X«Ūźė ¤ ¢DDDDD ¤ £f l-46961e513b-3b8¤ ¤f l-46961e513b-3b9¤ „f l-46961e513b-3ba¤ ¦f l-46961e513b-3bb¤ §f l-46961e513b-3bc¤ Øf l-46961e513b-3bd¤ ©£¤„¦§Ø ¤ ŖE”¢© ¤ «DŖF ¤ ¬A«Q ¤ A«Q ¤ ®g d¤ ÆA®«Q ¤ °g args¤ ±A°«Q ¤ ²A«Q ¤ ³Aé«Q ¤ “A«Q ¤ µ³“ ¤ ¶g empty¤ ·A¶«Q ¤ ø²“ ¤ ¹·ø ¤ ŗµ¹ ¤ »AĘ«Q ¤ ¼Æ± ¤ ½»³¼ ¤ ¾A«Q ¤ æA«Q ¤ Ąg
procedure?¤ ĮAĄ«Q ¤ ĀĮ³ ¤ ĆæĀ ¤ ÄA£«Q ¤ Åf %unrecognized arguments in dispatching¤ ĘAÅ«Q ¤ Ēg quote¤ ČAĒ«Q ¤ ÉČ ¤ ŹÆÉ ¤ ĖÄʱŹ ¤ Ģ¾ĆĖ ¤ Ķ½Ģ ¤ Ī³· ¤ ĻĪ ¤ Šg eq?¤ ŃAŠ«Q ¤ Ņ· ¤ Ó ¤ ŌA«Q ¤ ÕÓŌĻ ¤ Ö?g ¤ ×Xéė ¤ Ųg m-46961e513b-3c5¤ ŁŲC ¤ ŚŁDD ¤ Ūf l-46961e513b-3ca¤ Üf l-46961e513b-3cb¤ Żf l-46961e513b-3cc¤ ŽŪÜŻ ¤ ßE׌Ž ¤ ąŁ ¤ įf l-46961e513b-3c7¤ āį ¤ ćEHąā ¤ äDßFć ¤ åAäQ ¤ ęAŪäQ ¤ ēåę ¤ čDFć ¤ éAčQ ¤ ź@é ¤ ėAčQ ¤ ģ@ė ¤ ķģg¤ īg each¤ ļīy ¤ šļT¤ ńģš¤ ņźķļ?ń?T ¤ ó??ņ ¤ ōg lv¤ õg li¤ ög v¤ ÷XŪ
ōõÕÜö
× ¤ ųŁDDDDDDDDDDD ¤ łf l-46961e513b-3d2¤ śf l-46961e513b-3d3¤ ūf l-46961e513b-3d4¤ üf l-46961e513b-3d5¤ żf l-46961e513b-3d6¤ žf l-46961e513b-3d7¤ ’f l-46961e513b-3d8¤ f l-46961e513b-3d9¤ f l-46961e513b-3da¤ f l-46961e513b-3db¤ f l-46961e513b-3dc¤ f l-46961e513b-3dd¤ łśūüżž’ ¤ E÷ų ¤ DFć ¤ A Q ¤ AQ ¤
g map¤
¤
¤
g ne2¤ A
Q ¤ AQ ¤ ¤ ¤ AQ ¤ ¤ g lambda¤ AQ ¤ A¶Q ¤ ¤ AQ ¤ A„Q ¤ ¤ AzQ ¤ AĘQ ¤ g value¤ A Q ¤ ¤ ¤ ! ¤ "XŪ ¤ #ŁD ¤ $f l-46961e513b-3f4¤ %f l-46961e513b-3f5¤ &$% ¤ 'E"#& ¤ (D'Fć ¤ )A£(Q ¤ *f illegal macro call¤ +A*(Q ¤ ,)+ ¤ -f dispatching conflict¤ .g length¤ /g SRFI42¤ 0g string?¤ 1g input-port?¤ 2g char?¤ 3g list?¤ 4g vector?¤ 5g vector->list¤ 6g
:-dispatch¤ 7f not a procedure¤ 8g m-46961e513b-3f8¤ 98C ¤ :9 ¤ ;f l-46961e513b-3fa¤ <; ¤ =EH:< ¤ >DF= ¤ ?AĻ>Q ¤ @@? ¤ A@? ¤ BAg¤ C?B¤ D?C¤ E?D¤ F9DDDDD ¤ Gf l-46961e513b-3fd¤ Hf l-46961e513b-3fe¤ If l-46961e513b-3ff¤ Jf l-46961e513b-400¤ Kf l-46961e513b-401¤ Lf l-46961e513b-402¤ MGHIJKL ¤ NEbFM ¤ ODNF= ¤ PAOQ ¤ QAĻOQ ¤ RA6OQ ¤ S9DDDD ¤ Tf l-46961e513b-40b¤ Uf l-46961e513b-40c¤ Vf l-46961e513b-40d¤ Wf l-46961e513b-40e¤ Xf l-46961e513b-40f¤ YTUVWX ¤ ZESY ¤ [DZF= ¤ \A[Q ¤ ]A6[Q ¤ ^g m-46961e513b-416¤ _^C ¤ `_ ¤ af l-46961e513b-418¤ ba ¤ cEH`b ¤ dDFc ¤ eABdQ ¤ f@e ¤ gfT¤ hgj¤ i?h¤ j?i¤ kg x0¤ lg etc2¤ mg etc3¤ nXkkYmlmZ ¤ o_DDDDDDD ¤ pf l-46961e513b-41b¤ qf l-46961e513b-41c¤ rf l-46961e513b-41d¤ sf l-46961e513b-41e¤ tf l-46961e513b-41f¤ uf l-46961e513b-420¤ vf l-46961e513b-421¤ wf l-46961e513b-422¤ xpqrstuvw ¤ yEnox ¤ zDyFc ¤ {A%zQ ¤ |ABzQ ¤ }?,¤ ~?}¤ XkklmlmZ ¤ f l-46961e513b-42e¤ f l-46961e513b-42f¤ f l-46961e513b-430¤ f l-46961e513b-431¤ f l-46961e513b-432¤
f l-46961e513b-433¤ f l-46961e513b-434¤ f l-46961e513b-435¤
¤ Eo ¤ DFc ¤ A%Q ¤ ABQ ¤ g f1¤ g f2¤ XkŻ ¤ _DDDD ¤ f l-46961e513b-440¤ f l-46961e513b-441¤ f l-46961e513b-442¤ f l-46961e513b-443¤ f l-46961e513b-444¤ ¤ E ¤ DFc ¤ A%Q ¤ ABQ ¤ ¤ g qualifier¤ XkŻ ¤ _DDDDD ¤ f l-46961e513b-44b¤ f l-46961e513b-44c¤ ”f l-46961e513b-44d¤ ¢f l-46961e513b-44e¤ £f l-46961e513b-44f¤ ¤f l-46961e513b-450¤ „ ”¢£¤ ¤ ¦E„ ¤ §D¦Fc ¤ ØA§Q ¤ ©A§Q ¤ ŖA§Q ¤ «©Ŗ ¤ ¬A¶§Q ¤ A§Q ¤ ®¬ ¤ Æ«® ¤ °A!§Q ¤ ±A §Q ¤ ²A§Q ¤ ³Az§Q ¤ “AʧQ ¤ µ± ¤ ¶“¬Ŗ ¤ ·¶ ¤ ø±© ¤ ¹© ¤ ŗg m-46961e513b-457¤ »ŗC ¤ ¼» ¤ ½f l-46961e513b-459¤ ¾½ ¤ æEH¼¾ ¤ ĄDFæ ¤ ĮABĄQ ¤ Ā@Į ¤ ĆĀT¤ ÄĆi¤ Å?Ĥ Ę?Ť ĒXkkYmlZ ¤ Č»DDDDDD ¤ Éf l-46961e513b-45c¤ Źf l-46961e513b-45d¤ Ėf l-46961e513b-45e¤ Ģf l-46961e513b-45f¤ Ķf l-46961e513b-460¤ Īf l-46961e513b-461¤ Ļf l-46961e513b-462¤ ŠÉŹĖĢĶĪĻ ¤ ŃEĒČŠ ¤ ŅDŃFæ ¤ ÓA$ŅQ ¤ ŌABŅQ ¤ ÕXkklmlZ ¤ Öf l-46961e513b-46d¤ ×f l-46961e513b-46e¤ Ųf l-46961e513b-46f¤ Łf l-46961e513b-470¤ Śf l-46961e513b-471¤ Ūf l-46961e513b-472¤ Üf l-46961e513b-473¤ ŻÖ×ŲŁŚŪÜ ¤ ŽEÕČŻ ¤ ßDŽFæ ¤ ąA$ßQ ¤ įABßQ ¤ āXkŻ ¤ ć»DDD ¤ äf l-46961e513b-47d¤ åf l-46961e513b-47e¤ ęf l-46961e513b-47f¤ ēf l-46961e513b-480¤ čäåęē ¤ éEāćč ¤ źDéFæ ¤ ėA$źQ ¤ ģABźQ ¤ ķģ ¤ īXkŻ ¤ ļ»DDDD ¤ šf l-46961e513b-486¤ ńf l-46961e513b-487¤ ņf l-46961e513b-488¤ óf l-46961e513b-489¤ ōf l-46961e513b-48a¤ õšńņóō ¤ öEīļõ ¤ ÷DöFæ ¤ ųA÷Q ¤ łA÷Q ¤ śA!÷Q ¤ ūAĘ÷Q ¤ üł ¤ żg reverse¤ žXmZ ¤ ’g m-46961e513b-490¤ ’C ¤ DD ¤ f l-46961e513b-495¤ f l-46961e513b-496¤ f l-46961e513b-497¤ ¤ Ež ¤ ¤ f l-46961e513b-492¤ ¤
EH ¤ DF
¤ Aż Q ¤
A$ Q ¤ AĒ Q ¤ ¤ g cons¤ A Q ¤ ¤ g apply¤ g m-46961e513b-49c¤ C ¤ DD ¤ f l-46961e513b-4a1¤ f l-46961e513b-4a2¤ f l-46961e513b-4a3¤ ¤ Ež ¤ ¤ f l-46961e513b-49e¤ ¤ EH ¤ DF ¤ !A Q ¤ "Ad Q ¤ #A' Q ¤ $g list->string¤ %g m-46961e513b-4a8¤ &%C ¤ '&DD ¤ (f l-46961e513b-4ad¤ )f l-46961e513b-4ae¤ *f l-46961e513b-4af¤ +()* ¤ ,Ež'+ ¤ -& ¤ .f l-46961e513b-4aa¤ /. ¤ 0EH-/ ¤ 1D,F0 ¤ 2A$1Q ¤ 3A'1Q ¤ 4g m-46961e513b-4b4¤ 54C ¤ 65DD ¤ 7f l-46961e513b-4b9¤ 8f l-46961e513b-4ba¤ 9f l-46961e513b-4bb¤ :789 ¤ ;Ež6: ¤ <5 ¤ =f l-46961e513b-4b6¤ >= ¤ ?EH<> ¤ @D;F? ¤ AA@Q ¤ BA@Q ¤ CA'@Q ¤ Dg list->vector¤ Eg m-46961e513b-4c0¤ FEC ¤ GFDD ¤ Hf l-46961e513b-4c5¤ If l-46961e513b-4c6¤ Jf l-46961e513b-4c7¤ KHIJ ¤ LEžGK ¤ MF ¤ Nf l-46961e513b-4c2¤ ON ¤ PEHMO ¤ QDLFP ¤ RADQQ ¤ SA'QQ ¤ Tg m-46961e513b-4cc¤ UTC ¤ VU ¤ Wf l-46961e513b-4ce¤ XW ¤ YEHVX ¤ ZDFY ¤ [ABZQ ¤ \@[ ¤ ]\T¤ ^]h¤ _?^¤ `?_¤ aXkYmZ ¤ bUDDDDD ¤ cf l-46961e513b-4d1¤ df l-46961e513b-4d2¤ ef l-46961e513b-4d3¤ ff l-46961e513b-4d4¤ gf l-46961e513b-4d5¤ hf l-46961e513b-4d6¤ icdefgh ¤ jEabi ¤ kDjFY ¤ lA0kQ ¤ mABkQ ¤ nXklmZ ¤ of l-46961e513b-4e0¤ pf l-46961e513b-4e1¤ qf l-46961e513b-4e2¤ rf l-46961e513b-4e3¤ sf l-46961e513b-4e4¤ tf l-46961e513b-4e5¤ uopqrst ¤ vEnbu ¤ wDvFY ¤ xA0wQ ¤ yABwQ ¤ zXŻ ¤ {UDD ¤ |f l-46961e513b-4ee¤ }f l-46961e513b-4ef¤ ~f l-46961e513b-4f0¤ |}~ ¤ Ez{ ¤ DFY ¤ A0Q ¤ ABQ ¤ ¤
XŻ ¤ UDDD ¤ f l-46961e513b-4f5¤ f l-46961e513b-4f6¤ f l-46961e513b-4f7¤ f l-46961e513b-4f8¤ ¤ E
¤ DFY ¤ AQ ¤ ApQ ¤ AÉQ ¤ g make-vector¤ AQ ¤ ¤ ¤ AÜQ ¤ A
Q ¤ ¤ ¤ A!Q ¤ AQ ¤ A|Q ¤ ¤ AzQ ¤ g vector-set!¤ AQ ¤ AĘQ ¤ ”AQ ¤ ¢A Q ¤ £”¢ ¤ ¤ £ ¤ „¤ ¤ ¦A£Q ¤ §f )vector is too short for the comprehension¤ ØA§Q ¤ ©¦Ø ¤ Ŗ© ¤ «AsQ ¤ ¬« ¤ f (vector is too long for the comprehension¤ ®AQ ¤ Ʀ® ¤ °¬Æ ¤ ±° ¤ ²g m-46961e513b-4fd¤ ³²C ¤ “³DD ¤ µf l-46961e513b-502¤ ¶f l-46961e513b-503¤ ·f l-46961e513b-504¤ øµ¶· ¤ ¹Ež“ø ¤ ŗ³ ¤ »f l-46961e513b-4ff¤ ¼» ¤ ½EHŗ¼ ¤ ¾D¹F½ ¤ æA$¾Q ¤ ĄA¾Q ¤ ĮĄ ¤ Āg m-46961e513b-509¤ ĆĀC ¤ ÄĆDD ¤ Åf l-46961e513b-50e¤ Ęf l-46961e513b-50f¤ Ēf l-46961e513b-510¤ ČÅĘĒ ¤ ÉEžÄČ ¤ ŹĆ ¤ Ėf l-46961e513b-50b¤ ĢĖ ¤ ĶEHŹĢ ¤ ĪDÉFĶ ¤ ĻA$ĪQ ¤ ŠAaĪQ ¤ ŃŠ ¤ Ņg m-46961e513b-515¤ ÓŅC ¤ ŌÓDD ¤ Õf l-46961e513b-51a¤ Öf l-46961e513b-51b¤ ×f l-46961e513b-51c¤ ŲÕÖ× ¤ ŁEžŌŲ ¤ ŚÓ ¤ Ūf l-46961e513b-517¤ ÜŪ ¤ ŻEHŚÜ ¤ ŽDŁFŻ ¤ ßA%ŽQ ¤ ąg min¤ įAąŽQ ¤ āį ¤ ćįį ¤ äg m-46961e513b-521¤ åäC ¤ ęåDD ¤ ēf l-46961e513b-526¤ čf l-46961e513b-527¤ éf l-46961e513b-528¤ źēčé ¤ ėEžęź ¤ ģå ¤ ķf l-46961e513b-523¤ īķ ¤ ļEHģī ¤ šDėFļ ¤ ńA%šQ ¤ ņAcšQ ¤ óņ ¤ ōņņ ¤ õg m-46961e513b-52d¤ öõC ¤ ÷ö ¤ ųf l-46961e513b-52f¤ łų ¤ śEH÷ł ¤ ūDFś ¤ üABūQ ¤ ż@ü ¤ žżT¤ ’žh¤ ?’¤ ? ¤ g default¤ X kYmZ ¤ öDDDDD ¤ f l-46961e513b-532¤ f l-46961e513b-533¤ f l-46961e513b-534¤ f l-46961e513b-535¤ f l-46961e513b-536¤
f l-46961e513b-537¤
¤ E ¤
D Fś ¤ A&
Q ¤ AB
Q ¤ X klmZ ¤ f l-46961e513b-541¤ f l-46961e513b-542¤ f l-46961e513b-543¤ f l-46961e513b-544¤ f l-46961e513b-545¤ f l-46961e513b-546¤ ¤ E ¤ D Fś ¤ A& Q ¤ AB Q ¤ X Ż ¤ öDD ¤ f l-46961e513b-54f¤ f l-46961e513b-550¤ f l-46961e513b-551¤ ! ¤ "E ! ¤ #D "Fś ¤ $A& #Q ¤ %AB #Q ¤ & % ¤ 'X Ż ¤ (öDDD ¤ )f l-46961e513b-556¤ *f l-46961e513b-557¤ +f l-46961e513b-558¤ ,f l-46961e513b-559¤ - ) * + , ¤ .E ' ( - ¤ /D .Fś ¤ 0A /Q ¤ 1A /Q ¤ 2A! /Q ¤ 3AĘ /Q ¤ 4 1 ¤ 5g m-46961e513b-55e¤ 6 5C ¤ 7 6 ¤ 8f l-46961e513b-560¤ 9 8 ¤ :EH 7 9 ¤ ;DF : ¤ <AB ;Q ¤ =@ < ¤ > =T¤ ? >h¤ @? ?¤ A? @¤ B 6DDDDD ¤ Cf l-46961e513b-563¤ Df l-46961e513b-564¤ Ef l-46961e513b-565¤ Ff l-46961e513b-566¤ Gf l-46961e513b-567¤ Hf l-46961e513b-568¤ I C D E F G H ¤ JE B I ¤ KD JF : ¤ LA# KQ ¤ MAB KQ ¤ Nf l-46961e513b-572¤ Of l-46961e513b-573¤ Pf l-46961e513b-574¤ Qf l-46961e513b-575¤ Rf l-46961e513b-576¤ Sf l-46961e513b-577¤ T N O P Q R S ¤ UE B T ¤ VD UF : ¤ WA# VQ ¤ XAB VQ ¤ Y 6DD ¤ Zf l-46961e513b-580¤ [f l-46961e513b-581¤ \f l-46961e513b-582¤ ] Z [ \ ¤ ^E Y ] ¤ _D ^F : ¤ `A# _Q ¤ aAB _Q ¤ b a ¤ c 6DDD ¤ df l-46961e513b-587¤ ef l-46961e513b-588¤ ff l-46961e513b-589¤ gf l-46961e513b-58a¤ h d e f g ¤ iE ' c h ¤ jD iF : ¤ kA jQ ¤ lA jQ ¤ mA jQ ¤ nA jQ ¤ o m n ¤ p o ¤ qg ec-guarded-do-ec¤ rA q jQ ¤ sAB jQ ¤ tAz jQ ¤ uAĘ jQ ¤ vA jQ ¤ w u m v ¤ x w ¤ y l ¤ zg m-46961e513b-58f¤ { zC ¤ | { ¤ }f l-46961e513b-591¤ ~ } ¤ EH | ~ ¤ DF ¤ AB Q ¤ @ ¤ T¤ T¤
¤ ??
? ¤ Xkl{ ¤ {DDDD ¤ f l-46961e513b-594¤ f l-46961e513b-595¤ f l-46961e513b-596¤ f l-46961e513b-597¤ f l-46961e513b-598¤ ¤ E ¤ D F ¤ A q Q ¤ AB Q ¤ A Q ¤ @ ¤ ? ¤ T¤ ¤ ?? ? ¤ XY{ ¤ f l-46961e513b-5a1¤ f l-46961e513b-5a2¤ f l-46961e513b-5a3¤ f l-46961e513b-5a4¤ f l-46961e513b-5a5¤ ¤ E ¤ ”D F ¤ ¢A ”Q ¤ £A q ”Q ¤ ¤AB ”Q ¤ „A Q ¤ ¦@ „ ¤ § ¦? ¤ Ø §T¤ © ؤ Ŗ?? ©? ¤ «f l-46961e513b-5ad¤ ¬f l-46961e513b-5ae¤ f l-46961e513b-5af¤ ®f l-46961e513b-5b0¤ Æf l-46961e513b-5b1¤ ° « ¬ ® Æ ¤ ±E ° ¤ ²D ±F ¤ ³A ²Q ¤ “A ²Q ¤ µA q ²Q ¤ ¶AB ²Q ¤ ·A„ Q ¤ ø@ · ¤ ¹ øT¤ ŗ ¹T¤ » ŗ¤ ¼?? »? ¤ ½f l-46961e513b-5b9¤ ¾f l-46961e513b-5ba¤ æf l-46961e513b-5bb¤ Ąf l-46961e513b-5bc¤ Įf l-46961e513b-5bd¤ Ā ½ ¾ æ Ą Į ¤ ĆE Ā ¤ ÄD ĆF ¤ ÅA ÄQ ¤ ĘA„ ÄQ ¤ ĒA q ÄQ ¤ ČAB ÄQ ¤ ÉA³ Q ¤ Ź@ É ¤ Ė ŹT¤ Ģ ĖT¤ Ķ Ģ¤ Ī?? Ķ? ¤ Ļf l-46961e513b-5c6¤ Šf l-46961e513b-5c7¤ Ńf l-46961e513b-5c8¤ Ņf l-46961e513b-5c9¤ Óf l-46961e513b-5ca¤ Ō Ļ Š Ń Ņ Ó ¤ ÕE Ō ¤ ÖD ÕF ¤ ×A ÖQ ¤ ŲA³ ÖQ ¤ ŁA q ÖQ ¤ ŚAB ÖQ ¤ ŪAz Q ¤ Ü@ Ū ¤ Ż ÜT¤ Ž ŻT¤ ß Ž¤ ą?? ß? ¤ įXZY{ ¤ āf l-46961e513b-5d3¤ ćf l-46961e513b-5d4¤ äf l-46961e513b-5d5¤ åf l-46961e513b-5d6¤ ęf l-46961e513b-5d7¤ ē ā ć ä å ę ¤ čE į ē ¤ éD čF ¤ źAz éQ ¤ ėA q éQ ¤ ģAB éQ ¤ ķ g¤ ī?? ķ? ¤ ļXY{ ¤ šf l-46961e513b-5e0¤ ńf l-46961e513b-5e1¤ ņf l-46961e513b-5e2¤ óf l-46961e513b-5e3¤ ōf l-46961e513b-5e4¤ õ š ń ņ ó ō ¤ öE ļ õ ¤ ÷D öF ¤ ųA! ÷Q ¤ łA ÷Q ¤ śA q ÷Q ¤ ūAB ÷Q ¤ ü ¤ ż?? ü? ¤ žX{ ¤ ’ {DD ¤
f l-46961e513b-5ec¤
f l-46961e513b-5ed¤
f l-46961e513b-5ee¤
¤
E ž ’
¤
D
F ¤
A!
Q ¤
g m-46961e513b-5f2¤
C ¤
¤
f l-46961e513b-5f4¤
¤
EH
¤
DF
¤
AB
Q ¤
@
¤
T¤
h¤
?
¤
XkYmZ ¤
DDDD ¤
f l-46961e513b-5f7¤
f l-46961e513b-5f8¤
f l-46961e513b-5f9¤
f l-46961e513b-5fa¤
f l-46961e513b-5fb¤
¤
E
¤
D
F
¤
A
Q ¤
AB
Q ¤
f l-46961e513b-604¤
f l-46961e513b-605¤
!f l-46961e513b-606¤
"f l-46961e513b-607¤
#f l-46961e513b-608¤
$
!
"
# ¤
%En
$ ¤
&D
%F
¤
'A
&Q ¤
(AB
&Q ¤
)XŻ ¤
*
D ¤
+f l-46961e513b-610¤
,f l-46961e513b-611¤
-
+
, ¤
.E
)
*
- ¤
/D
.F
¤
0A
/Q ¤
1AB
/Q ¤
2
1 ¤
3XŻ ¤
4
DD ¤
5f l-46961e513b-615¤
6f l-46961e513b-616¤
7f l-46961e513b-617¤
8
5
6
7 ¤
9E
3
4
8 ¤
:D
9F
¤
;A#
:Q ¤
<A
:Q ¤
=A
:Q ¤
>A
:Q ¤
?
> ¤
@g m-46961e513b-61b¤
A
@C ¤
B
A ¤
Cf l-46961e513b-61d¤
D
C ¤
EEH
B
D ¤
FDF
E ¤
GAB
FQ ¤
H@
G ¤
I
HT¤
J
Ih¤
K?
J¤
L
ADDDD ¤
Mf l-46961e513b-620¤
Nf l-46961e513b-621¤
Of l-46961e513b-622¤
Pf l-46961e513b-623¤
Qf l-46961e513b-624¤
R
M
N
O
P
Q ¤
SE
L
R ¤
TD
SF
E ¤
UA"
TQ ¤
VAB
TQ ¤
Wf l-46961e513b-62d¤
Xf l-46961e513b-62e¤
Yf l-46961e513b-62f¤
Zf l-46961e513b-630¤
[f l-46961e513b-631¤
\
W
X
Y
Z
[ ¤
]En
L
\ ¤
^D
]F
E ¤
_A"
^Q ¤
`AB
^Q ¤
a
AD ¤
bf l-46961e513b-639¤
cf l-46961e513b-63a¤
d
b
c ¤
eE
)
a
d ¤
fD
eF
E ¤
gA"
fQ ¤
hAB
fQ ¤
i
h ¤
j
ADD ¤
kf l-46961e513b-63e¤
lf l-46961e513b-63f¤
mf l-46961e513b-640¤
n
k
l
m ¤
oE
3
j
n ¤
pD
oF
E ¤
qA#
pQ ¤
rA
pQ ¤
sA
pQ ¤
tA
pQ ¤
uA
pQ ¤
v
u ¤C 5 høĆ ś ]4
15 44 > " G 45i46i5 7> " G 4:!;>Wcf h M ]45C E g dummy
g q g etc Cjx h p ] C h g dummy
g q1 g q2 g etc1 g etc Cy h > ]C 6 g dummy
g cmd C h P ] C H g dummy
g test g cmd C¢£¤ h P ] C H g dummy
g test g cmd C©°±² h P ] C H g dummy
g test g cmd C·¾æĄ h P ] C H g dummy
g test g cmd CÄĢfĶ h O ]4 5C G g dummy
g etc g cmd CŃęē h Ø , 3 C g dummy
g olet g lbs g ne1? g ilet g ne2? g lss g cmd Cčõ h p ] C h g dummy
g g g arg1 g arg g cmd Cųł hų ]Q4 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ @4 5 $
@4 5 $ @4 5 $ @4 5 $ @4 5
$
@ 6 g x
ń g tmp ń g tmp " ń g tmp 9 ń g tmp P ń g tmp g ń g tmp ~ ń g tmp ń g tmp ¬ ń g tmp Ć ń g tmp
Ś ń g filenamef srfi/srfi-42/ec.scm
: ń g
macro-typeg syntax-rulesg patternsg nestedg qg ... g etcg ... g q1g q2g etc1g etcg ... g cmd g ifg test g cmd g notg test g cmd g andg testg ... g cmd g org testg ... g cmd g beging etcg ... g cmd g :dog oletg lbsg ne1?g iletg ne2?g lss g cmd g gg arg1g argg ... g cmd C5!R4:Ņ;> f!" h` Å ,
3
44 5 5 C ½ g dummy
Y g cmd Y g obs Y g oc Y g lbs Y g ne1? Y g ibs Y g ic Y g ne2? Y g ls Y
Y
Cųł h( ] 4 5 $ @ 6 g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
g " g
macro-typeg syntax-rulesg patternsg cmdg :dog letg obsg ocg ... g lbsg ne1?g letg ibsg icg ... g ne2?g lsg ... C5ŅR4: ;>/h E ]C = g dummy
g
consequent C2= h E ]C = g dummy
g
consequent C? h \ ]C T g dummy
g
consequent g alternate CA h \ ]C T g dummy
g
consequent g alternate CGPQ h W ] C O g dummy
g test g
consequent CS^_ h n ] C f g dummy
g test g
consequent g alternate Cdlm h B ] C : g dummy
g command
Cqwx h B ] C : g dummy
g command
C{f h g ]45 C _ g dummy
g done g to-do1 g to-do2 Cf h f ]4 5 C^ g dummy
g done g to-do1 g to-do C h - ]C % g dummy
C h B ]C : g dummy
g command C © h X ]C P g dummy
g command1 g command Cy h E ]C = g dummy
g
expression Cųł hP ]q4 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ @4 5 $
@4 5 $ @4 5 $ @4 5 $ @4 5
$
@4 5 $ @4 5 $ @4 5
$
@4 5 $ @ 6 g x
M g tmp M g tmp " M g tmp 9 M g tmp P M g tmp g M g tmp ~ M g tmp M g tmp ¬ M g tmp Ć M g tmp
Ś M g tmp ń M g tmp M g tmp
M g tmp 6 M g filenamef srfi/srfi-42/ec.scm
M g
macro-typeg syntax-rulesg patternsg ifg
consequent g ifg
consequent g ifg
consequentg alternate g ifg
consequentg alternate g ifg notg notg test g
consequent g ifg notg notg test g
consequentg alternate g letg commandg ... g beging commandg ... g doneg beging to-do1g ... g to-do2g ... g doneg ... g to-do1g to-dog ... g command g command1g commandg ... g
expression C5 R4:;>Ŗfæ h § , 3 6 g dummy
g cc g olet g lbs g ne1? g ilet g ne2? g lss CĄĖĶĪ h q ] C i g dummy
g cc g lbs g ne1? g lss Cųł h@ ]4 5 $ @4 5 $ @ 6 ž g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-42/ec.scm
½ 9 g
macro-typeg syntax-rulesg patternsg ccg ... g oletg lbsg ne1?g iletg ne2?g lss g ccg lbsg ne1?g lss C5R4:;>Śčéėļ h u ] Cm g dummy
g cc g var g i g
expression Cšśū’ h f ] C ^ g dummy
g cc g var g
expression Cųł h@ ó ]4 5 $ @4 5 $ @ 6 ė g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-42/ec.scm
É 9 g
macro-typeg syntax-rulesg patternsg ccg varg indexg i g
expression g ccg varg
expression C5R4:;>y h = ]C 5 g dummy
g cc C h ] C x g dummy
g cc g g g arg1 g arg g gen Cųł h@ ä ]4 5 $ @4 5 $ @ 6 Ü g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-42/ec.scm
Ń 9 g
macro-typeg syntax-rulesg patternsg cc g ccg gg arg1g argg ... g geng ... C5R4:;>+ h ] C g dummy
g cc g g g arg1 g arg g gen g result C4^_`fa hh g , 3 4 54 54
5 4545 4
5 C _ g dummy
e g cc e g gens e g ob1 e g oc1 e g lb1 e g ne1?1 e g ib1 e g ic1 e g ne2?1 e g ls1
e g ob2 e g oc2 e g lb2
e g ne1?2 e g ib2 e g ic2 e g ne2?2 e g ls2 e e Cbf h Q ] 6 I g dummy
g cc
g result
Cųł
hP H ]4 5 $ @4 5 $ @4 5 $ @ 6@ g x
P g tmp P g tmp " P g tmp 9 P g filenamef srfi/srfi-42/ec.scm
Ü P g
macro-typeg syntax-rulesg patternsg ccg gg arg1g argg ... g geng ... g result g ccg gensg :dog letg ob1g ... g oc1g ... g lb1g ... g ne1?1g letg ib1g ... g ic1g ... g ne2?1g ls1g ... g :dog letg ob2g ... g oc2g ... g lb2g ... g ne1?2g letg ib2g ... g ic2g ... g ne2?2g ls2g ... g ccg ... g result C5R4: ;>cv h ] C y g dummy
g cc g g g arg1 g arg g test Cųł h( Ä ] 4 5 $ @ 6 ¼ g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
" g
macro-typeg syntax-rulesg patternsg ccg gg arg1g argg ... g test C5 R4:d;> h( ¹ , 3 C ± g dummy
$ g cc $ g test $ g olet $ g lbs $ g ne1? $ g ilet $ g ne2? $ g lss $ $ Cųł h( Ž ] 4 5 $ @ 6 Ö g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
> " g
macro-typeg syntax-rulesg patternsg ccg testg :dog oletg lbsg ne1?g iletg ne2?g lss C5dR4:;>¢½fĀĆÄÅĒæ hh 0 , 3 454
54 5 4 5
C ( g dummy
a g cc a g test a g ib-let a g ib-save a g
ib-restore a g olet a g lbs a g ne1? a g ib-var a g ib-rhs
a g ib a g ic a g ne2?
a g lss a a CĖßąfāć hX ,
3
45 4
5 C ž g dummy
R g cc R g test R g ib-let R g ib-save R g
ib-restore R g ob R g oc R g lbs R g ne1? R g ic
R g ne2? R g lss R
R
Cųł h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-42/ec.scm
C 9 g
macro-typeg syntax-rulesg patternsg ccg testg ib-letg ... g ib-saveg ... g
ib-restoreg ... g :dog oletg lbsg ne1?g letg ib-varg ib-rhs g ibg ... g icg ... g ne2?g lss g ccg testg ib-letg ... g ib-saveg ... g
ib-restoreg ... g :dog letg obg ... g ocg ... g lbsg ne1?g letg icg ... g ne2?g lss C5R4:;>cõ h ] C y g dummy
g cc g g g arg1 g arg g test Cųł h( Ä ] 4 5 $ @ 6 ¼ g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
n " g
macro-typeg syntax-rulesg patternsg ccg gg arg1g argg ... g test C5R4:ä;> h( ¹ , 3 C ± g dummy
& g cc & g test & g olet & g lbs & g ne1? & g ilet & g ne2? & g lss & & Cųł h( Ž ] 4 5 $ @ 6 Ö g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
s " g
macro-typeg syntax-rulesg patternsg ccg testg :dog oletg lbsg ne1?g iletg ne2?g lss C5äR4:;> )*+ h n ] C f g dummy
g cc g var g i g arg C,9: h ] C { g dummy
g cc g var g arg1 g arg2 g arg CšDFHMEQW h0 _ ] C W g dummy
* g cc * g var * g arg * * Cųł
hP + ]4 5 $ @4 5 $ @4 5 $ @ 6# g x
P g tmp P g tmp " P g tmp 9 P g filenamef srfi/srfi-42/ec.scm
} P g
macro-typeg syntax-rulesg patternsg ccg varg indexg i g argg ... g ccg varg arg1g arg2g argg ... g ccg varg arg C5R4:;>blmotz{}~
hP n ]
C f g dummy
M g cc M g var M g i M g arg M M C h ] C g dummy
g cc g var g i g arg1 g arg2 g arg Cj£¦ h q ]C i g dummy
g cc g var g arg1 g arg Cųł
hP D ]4 5 $ @4 5 $ @4 5 $ @ 6< g x
P g tmp P g tmp " P g tmp 9 P g filenamef srfi/srfi-42/ec.scm
P g
macro-typeg syntax-rulesg patternsg ccg varg indexg i g arg g ccg varg indexg i g arg1g arg2g argg ... g ccg varg arg1g argg ... C5R4: ;>šµø h _ ] CW g dummy
g cc g var g arg C½ĒČŹĪŌÕÖףŚŪŻ
hP n ]
C f g dummy
M g cc M g var M g i M g arg M M Cįķīļ h( ] C g dummy
" g cc " g var " g i " g arg1 " g arg2 " g arg " " C,śūž #( hH ]
C { g dummy
A g cc A g var A g arg1 A g arg2 A g arg A A Cųł hh t ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @
6 l g x
g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef srfi/srfi-42/ec.scm
¢ g g
macro-typeg syntax-rulesg patternsg ccg varg arg g ccg varg indexg i g arg g ccg varg indexg i g arg1g arg2g argg ... g ccg varg arg1g arg2g argg ... C5 RŠ h0 õ ] ( C4 5
$ 6 4 5C ķ g vecs
, g filenamef srfi/srfi-42/ec.scm
Ä
Å Ę Ē Ē Ē Ē
Ē Č Č
" É # É ( É . * É + É
, g nameg ec-:vector-filter CR4:;>3=?@AC h0 ] ] C U g dummy
, g cc , g var , g i , , CDMOPQS h N ] C F g dummy
g cc g var Cųł h@ × ]4 5 $ @4 5 $ @ 6 Ļ g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-42/ec.scm
Ń 9 g
macro-typeg syntax-rulesg patternsg ccg varg indexg i g ccg var C5R4:;>amno h ] C x g dummy
g cc g var g i g arg1 g arg Cšyz| h ` ]C X g dummy
g cc g var g arg1 CĄ h r ]C j g dummy
g cc g var g arg1 g arg2 C®Æ°±²³“ h@ ` ]
C X g dummy
9 g cc 9 g var 9 g arg2 9 9 C¶¾æĄŃŅŌÕÖףŚ h@ ` ]
C X g dummy
9 g cc 9 g var 9 g arg2 9 9 CŪäåēčśūüżž’
h@ r ]
Cj g dummy
@ g cc @ g var @ g arg1 @ g arg2 @ @ C
()*+,-.0 hH r ]
C j g dummy
A g cc A g var A g arg1 A g arg2 A A C1=>?@AEqrGtuvw`x hP ]
C | g dummy
N g cc N g var N g arg1 N g arg2 N g arg3 N N Cųł hČ ' ]A4 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ @4 5 $
@4 5 $ @4 5 $ @ 6 g x
Ć g tmp Ć g tmp " Ć g tmp 9 Ć g tmp P Ć g tmp g Ć g tmp ~ Ć g tmp Ć g tmp ¬ Ć g filenamef srfi/srfi-42/ec.scm
Ł Ć g
macro-typeg syntax-rulesg patternsg ccg varg indexg i g arg1g argg ... g ccg varg arg1 g ccg varg arg1g arg2 g ccg var
g arg2 g ccg var
g arg2 ’ g ccg varg arg1g arg2 g ccg varg arg1g arg2 ’ g ccg varg arg1g arg2g arg3 C5R4:;>š h ` ]C X g dummy
g cc g var g arg1 C” h o ] C g g dummy
g cc g var g i g arg1 CĄŖÆ h r ]C j g dummy
g cc g var g arg1 g arg2 C°¼½æ h ] C y g dummy
g cc g var g i g arg1 g arg2 C1ÉĢ h ] C | g dummy
g cc g var g arg1 g arg2 g arg3 CĶŚŪÜŻŽć
hh ]
C g dummy
d g cc d g var d g i d g arg1 d g arg2 d g arg3 d d Cųł h å ]14 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ @4 5 $
@ 6 Ż g x
g tmp g tmp " g tmp 9 g tmp P g tmp g g tmp ~ g filenamef srfi/srfi-42/ec.scm
5 g
macro-typeg syntax-rulesg patternsg ccg varg arg1 g ccg varg indexg i g arg1 g ccg varg arg1g arg2 g ccg varg indexg i g arg1g arg2 g ccg varg arg1g arg2g arg3 g ccg varg indexg i g arg1g arg2g arg3 C5R4:;>%&' h ] C y g dummy
g cc g var g i g arg1 g arg2 CĄ12467:>D hH r ] C j g dummy
A g cc A g var A g arg1 A g arg2 A A Cųł h@ ÷ ]4 5 $ @4 5 $ @ 6 ļ g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-42/ec.scm
X 9 g
macro-typeg syntax-rulesg patternsg ccg varg indexg i g arg1g arg2 g ccg varg arg1g arg2 C5R4:;>R]^_ h ] C x g dummy
g cc g var g i g arg1 g arg Cšhk h _ ]C W g dummy
g cc g var g arg CĄuvxz|} h8 r ] Cj g dummy
8 g cc 8 g var 8 g arg1 8 g arg2 8 8 Cųł
hP % ]4 5 $ @4 5 $ @4 5 $ @ 6 g x
P g tmp P g tmp " P g tmp 9 P g filenamef srfi/srfi-42/ec.scm
j P g
macro-typeg syntax-rulesg patternsg ccg varg indexg i g arg1g argg ... g ccg varg arg g ccg varg arg1g arg2 C5R4:;> h ] C g dummy
g cc g var g i g dispatch g arg1 g arg C,¬Æ±²ŗĶĻæŃŅÕ
hH ]
C g dummy
A g cc A g var A g dispatch A g arg1 A g arg A A Cųł h@ ]4 5 $ @4 5 $ @ 6 g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-42/ec.scm
~ 9 g
macro-typeg syntax-rulesg patternsg ccg varg indexg i g dispatchg arg1g argg ... g ccg varg dispatchg arg1g argg ... C5R4:;>Öēę h M ]C E g dummy
g g g arg Có f h : ] C2 g tmp-46961e513b-3ec
C h Z ] C R g tmp-46961e513b-3f1
g tmp-46961e513b-3f0 C h Z ] C R g tmp-46961e513b-3ee
g tmp-46961e513b-3ed C ! h° ī , 3 4445545
4454
4 5 55 5 Cę g dummy
° g var ° g obs ° g oc ° g lv ° g li ° g ne1? ° g i ° g v ° g ic ° g ne2?
° g ls ° ° Cy, h > ]C 6 g dummy
g var Cųł
hP s ]4 5 $ @4 5 $ @4 5 $ @ 6k g x
P g tmp P g tmp " P g tmp 9 P g filenamef srfi/srfi-42/ec.scm
P g
macro-typeg syntax-rulesg patternsg gg argg ... g varg :dog letg obsg ocg ... g lvg li g ... g ne1?g letg ig v g ... g icg ... g ne2?g lsg ... g var C5Rd£- hp ? ]4L 54L 5 $ K$ B ( ($ " $ " 6 4L 54L56C$ CC7 g args
p g g1 p g g2 p g filenamef srfi/srfi-42/ec.scm
Ä Å
Å Å Ę Ē
& Č + É / É : É , = Ź A Ź L Ź , N É R Ė U Ė 5 X Ė 9 Z Ė 5 [ Ė > ^ Ė B ` Ė > b Ė k Ķ
p C h ] O C z g d1
g d2 g filenamef srfi/srfi-42/ec.scm
Ć
g nameg dispatch-union C R./ h m ] M' MN M MNC C e g empty
g value g filenamef srfi/srfi-42/ec.scm
Ū C0v h( m ] MM$ 4L M5NM MNC C e g empty
% g value " g filenamef srfi/srfi-42/ec.scm
Ż % CŠ h( m ] MM$ L M£NM MNC C e g empty
! g value g filenamef srfi/srfi-42/ec.scm
ß ! Cē£ļż h( m ] MM$ M MNM MNC C e g empty
# g value g filenamef srfi/srfi-42/ec.scm
ć # C1i~ h m ] 4M5# M 4L L5NC Ce g empty
g value g filenamef srfi/srfi-42/ec.scm
å C h m ] ML $ M MNC C e g empty
g value
g filenamef srfi/srfi-42/ec.scm
į CĄ~ h m ] 4M5# M 4L L5NC Ce g empty
g value g filenamef srfi/srfi-42/ec.scm
÷ C25; h( m ] ML$ 4M5N M MNC C e g empty
# g value g filenamef srfi/srfi-42/ec.scm
õ # C h( m ] MM$ M MNM MNC C e g empty
# g value g filenamef srfi/srfi-42/ec.scm
ó # C h m ] ML $ M MNC C e g empty
g value
g filenamef srfi/srfi-42/ec.scm
ń CŠ hP m ] MM$ " "M( " MNMN4M5N
N$ MM£N M MNC C e g empty
L g value ? I g filenamef srfi/srfi-42/ec.scm
ļ L C h( m ] MM$ 4L M5NM MNC C e g empty
% g value " g filenamef srfi/srfi-42/ec.scm
ķ % Cd h m ] M' MN M MNC C e g empty
g value g filenamef srfi/srfi-42/ec.scm
ė C h( m ] MM$ M LMNM MNC C e g empty
$ g value ! g filenamef srfi/srfi-42/ec.scm
$ C[ceh m ] MM# M ML NC C e g empty
g value
g filenamef srfi/srfi-42/ec.scm
CŠ hP m ] MM$ " "M( " MNMN4M5N
N$ MM£N M MNC C e g empty
L g value ? I g filenamef srfi/srfi-42/ec.scm
L C h( m ] MM$ 4L M5NM MNC C e g empty
% g value " g filenamef srfi/srfi-42/ec.scm
’ % C h m ] M' MN M MNC C e g empty
g value g filenamef srfi/srfi-42/ec.scm
ż C h( ¾ ]( C4 5$
"’’ßC ¶ g pred
% g args % g filenamef srfi/srfi-42/ec.scm
" ) # % g nameg every? C3 h m ] M' MN M MNC C e g empty
g value g filenamef srfi/srfi-42/ec.scm
C h( m ] MM$ 4L M5NM MNC C e g empty
% g value " g filenamef srfi/srfi-42/ec.scm
% C4
5h m ] M' MN M MNC C e g empty
g value g filenamef srfi/srfi-42/ec.scm
C 1 h ½
]I4 5
$ C $ S $ HHO C45$
H45K
HHO C$
H45K
HHO C" µ4 5$
HH" 4
J > " G " 4 J5$ " "’’Ņ4 J5$ $4 5 $
4
J5K" " J K
HHO C45$ 45HO CC45$ 4 5$
HO C"’’$"’’ $ & " /45$ "45$ 45HO CCC" ?45$ 045$ !45 45HHO C"’’"’’" £4 5$ 4 5$
HH" 4
J > " G " 4 J5$ " "’’Ņ4 J5$ $4 5 $
4
J5K" " J K
HHO C"’’ "’’" J45$ ;4 5$ ,45$ 4 5$ HO C"’’"’’"’’"’’" @$ 5$ *
4 5HHH
HH O C"’’v"’’r" :45$ +4 5
H 45K
HH O C"’’$ #$ 4 5HH O C"’’"’’ $ \ " Į4 5$ “4 5$ §4 5$
HH" 4
J> " G " 4 J5$ " "’’Ń4 J5$ 54 5 $ " 4 5 $
4
J5K" " JK
HH!O CCCC" ¦45$ 4 5$ 45$ y4 5$ j45$ [4 5$ L
H
$ 4
"> " G " 4#
4$55KH%O C"’ž©"’ž„"’ž”"’ž"’ž"’ž" M$ B$ 7$ ,
4 5HHH
HH & O C"’’"’’
"’’ " K45$ <45$ -4 5
H 45K
HH'O C"’’h"’’d$ 0$ %$ 4 5HH(O C"’’"’’~"’’z)O Q 4* 5$ 4 ?HH+O C4 5$ )4 ?
H 45K
HH,O C4- 5$ 4 4./ 5?HH0O CC µ
g args
g key g a1 ! q g t , ; g var / ; g len G f g i S f g var V f g len n g i z g var } g a g istop g t ē ī g i
g var g read-proc - D g var 6 D g var ] i g a1 g a2 g var ¦ “ g imax Ł ó g i ā ó g var å ó g a g istop g t a h g i g var g var Ō ą g vec , g len , g vecs , g k , g var , g str M n g len M n g i [ n g var ^ n g t g var g a1 µ g a2 µ g a3 µ g a ć z g istop ć z g t - E g i e z g var h z g stop Ē g var g vec S o g len S o g vecs S o g k Z o g var ] o g str ” Ā g len ” Ā g i Æ Ā g var ² Ā g t ź ł g var ķ ł g every?
g t & 5 g var ) 5 g str J k g len J k g i X k g var [ k g t g var Hg filenamef srfi/srfi-42/ec.scm
Õ Ö
Ö × Ö ! Ų ! Ų & Ś * Ł
, Ū < Ü F Ł
G Ż i Ž m Ł
n ß ā Ł
ć ! ä + Ł
- å F Ł
G ą Q Ł
R ą " \ ą ] į z Ö } č č % č ö é
ö % ö ÷ ø é
½ ō Ē é
Č ō Ņ ō Ó õ ū é
ņ
é
ņ ņ ó ¢ é
§ š ± é
² š " ¼ š ½ š . Ē š Č š < Ņ š Ō ń š é
÷ ī ū é
ž ī ! ī ļ 4 é
9 ģ C é
D ķ r é
u ź y é
| ź ź ė © Ö ¬ ś Æ ś % ³ ś 6 µ ś Ą Ź ū
Ė Õ Ö * ą ć ū
ū
" „ ¦ " ° ± » ¼ " Ę Ē * ū
1 5 ū
8 ! < ? . C F { ū
ž ū
ž . ž ’ Ź ū
Ķ ü Ń ū
Ō ü Ų ü Ū ü * ß ü ą ż
# & 6 B C % J l x y # | 1 # C h j ] C b g filenamef srfi/srfi-42/ec.scm
Ō
g nameg make-initial-:-dispatch C(R4(i5 6R6 h a ] C Y g filenamef srfi/srfi-42/ec.scm
g nameg :-dispatch-ref C
RĄ£76 h0 Æ ]4 5$ " 4 > " G C § g dispatch
+ g filenamef srfi/srfi-42/ec.scm
!
"
" # #
# ) $ + g nameg :-dispatch-set! CR4: ;>EPQR h ] C x g dummy
g cc g var g i g arg1 g arg Cj\] h q ]C i g dummy
g cc g var g arg1 g arg Cųł h@ ]4 5 $ @4 5 $ @ 6 ū g x
9 g tmp 9 g tmp " 9 g filenamef srfi/srfi-42/ec.scm
' 9 g
macro-typeg syntax-rulesg patternsg ccg varg indexg i g arg1g argg ... g ccg varg arg1g argg ... C5 R4:%;>j{|f h( £ , 3 4 5C g dummy
( g x0 ( g q1 ( g q ( g etc1 ( g etc2 ( g etc3 ( g etc ( ( C~ h( ¤ , 3 C g dummy
" g x0 " g q1 " g q2 " g etc1 " g etc2 " g etc3 " g etc " " CĄ h u ] C m g dummy
g x0 g
expression g f1 g f2 C1ØÆ°±²¬³“©µ·ø¹ hP ]
C g dummy
P g x0 P g qualifier P g
expression P g f1 P g f2 P P Cųł hh ¤ ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @
6 g x
g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef srfi/srfi-42/ec.scm
3 g g
macro-typeg syntax-rulesg patternsg x0g nestedg q1g ... g qg etc1g etc2g etc3g etcg ... g x0g q1g q2g etc1g etc2g etc3g etcg ... g x0g
expressiong f1g f2 g x0g qualifierg
expressiong f1g f2 C5%R4:$;>ĘÓŌf h( ]4 5C g dummy
! g x0 ! g q1 ! g q ! g etc1 ! g etc2 ! g etc ! ! C}ąį h ] C g dummy
g x0 g q1 g q2 g etc1 g etc2 g etc Cšėķ h e ] C] g dummy
g x0 g
expression g f2 CĄųłśūü h0 | ] C t g dummy
* g x0 * g qualifier * g
expression * g f2 * * Cųł hh ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @
6 g x
g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef srfi/srfi-42/ec.scm
G g g
macro-typeg syntax-rulesg patternsg x0g nestedg q1g ... g qg etc1g etc2g etcg ... g x0g q1g q2g etc1g etc2g etcg ... g x0g
expressiong f2 g x0g qualifierg
expressiong f2 C5$R4:';>h
f h P ]45 C H g dummy
g etc1 g etc Cųł h( ® ] 4 5 $ @ 6 ¦ g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
Z " g
macro-typeg syntax-rulesg patternsg etc1g etcg ... C5'R4: ;>h!"# h P ] C H g dummy
g etc1 g etc Cųł h( ® ] 4 5 $ @ 6 ¦ g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
f " g
macro-typeg syntax-rulesg patternsg etc1g etcg ... C5 R4:-;>h23 h P ] CH g dummy
g etc1 g etc Cųł h( ® ] 4 5 $ @ 6 ¦ g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
k " g
macro-typeg syntax-rulesg patternsg etc1g etcg ... C5-R4:,;>hABC h P ] C H g dummy
g etc1 g etc Cųł h( ® ] 4 5 $ @ 6 ¦ g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
w " g
macro-typeg syntax-rulesg patternsg etc1g etcg ... C5,R4:/;>hRS h P ] CH g dummy
g etc1 g etc Cųł h( ® ] 4 5 $ @ 6 ¦ g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
| " g
macro-typeg syntax-rulesg patternsg etc1g etcg ... C5/R4:0;>`lmf h ~ ]4 5C v g dummy
g k g q1 g q g etc1 g etc C,xy h ] Cw g dummy
g k g q1 g q2 g etc1 g etc CD h T ] C L g dummy
g k g
expression Cš„Ŗ± h@ k ]
C c g dummy
< g k < g qualifier < g
expression < < Cųł hh h ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @
6 ` g x
g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef srfi/srfi-42/ec.scm
g g
macro-typeg syntax-rulesg patternsg kg nestedg q1g ... g qg etc1g etcg ... g kg q1g q2g etc1g etcg ... g kg
expression g kg qualifierg
expression C50R4:.;>hæĮf h P ]45C H g dummy
g etc1 g etc Cųł h( ® ] 4 5 $ @ 6 ¦ g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
" g
macro-typeg syntax-rulesg patternsg etc1g etcg ... C5.R4:+;>hĻŃf h P ]45C H g dummy
g etc1 g etc Cųł h( ® ] 4 5 $ @ 6 ¦ g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
¢ " g
macro-typeg syntax-rulesg patternsg etc1g etcg ... C5+R4:*;>hßāfć h P ]45C H g dummy
g etc1 g etc Cųł h( ® ] 4 5 $ @ 6 ¦ g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
§ " g
macro-typeg syntax-rulesg patternsg etc1g etcg ... C5*R4:);>hńófō h P ]45C H g dummy
g etc1 g etc Cųł h( ® ] 4 5 $ @ 6 ¦ g x
" g tmp " g filenamef srfi/srfi-42/ec.scm
¬ " g
macro-typeg syntax-rulesg patternsg etc1g etcg ... C5)R4:&;> f h ]4 5C | g dummy
g default g q1 g q g etc1 g etc C, h
] C} g dummy
g default g q1 g q2 g etc1 g etc CD $ & h Z ] C R g dummy
g default g
expression Cš 0 1 2 3 4 h( q ] C i g dummy
$ g default $ g qualifier $ g
expression $ $ Cųł hh ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @
6 x g x
g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef srfi/srfi-42/ec.scm
± g g
macro-typeg syntax-rulesg patternsg defaultg nestedg q1g ... g qg etc1g etcg ... g defaultg q1g q2g etc1g etcg ... g defaultg
expression g defaultg qualifierg
expression C5&R4:#;> A L Mf h ]4 5C | g dummy
g default g q1 g q g etc1 g etc C, W X h
] C} g dummy
g default g q1 g q2 g etc1 g etc CD ` b h Z ] C R g dummy
g default g
expression Cš k l p r m s t u x y h8 q ]
C i g dummy
1 g default 1 g qualifier 1 g
expression 1 1 Cųł hh ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @
6 x g x
g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef srfi/srfi-42/ec.scm
Ä g g
macro-typeg syntax-rulesg patternsg defaultg nestedg q1g ... g qg etc1g etcg ... g defaultg q1g q2g etc1g etcg ... g defaultg
expression g defaultg qualifierg
expression C5#R4: q;> f h p ]45 Ch g dummy
g stop g q1 g q2 g cmd C ¢ £ ¤ h q ] Ci g dummy
g stop g test g q g cmd C Ŗ ³ “ µ ¶ h q ] C i g dummy
g stop g test g q g cmd C ¼ Å Ę Ē Č h q ] C i g dummy
g stop g test g q g cmd C Ī × Ų Ł Ś h q ] C i g dummy
g stop g test g q g cmd C ą źf ė ģ h p ]4 5C h g dummy
g stop g etc g q g cmd C ī ų ł ś ū h p ] C h g dummy
g stop g gen g q g cmd C ż
h P ] C H g dummy
g stop
g cmd
Cųł hČ ō ]A4 5 $ @4 5 $ @4 5 $ @4 5 $ @4
5 $ @4 5 $
@4 5 $ @4 5 $ @ 6 ģ g x
Ć g tmp Ć g tmp " Ć g tmp 9 Ć g tmp P Ć g tmp g Ć g tmp ~ Ć g tmp Ć g tmp ¬ Ć g filenamef srfi/srfi-42/ec.scm
Ś Ć g
macro-typeg syntax-rulesg patternsg stopg nestedg nestedg q1g ... g q2g ... g cmd g stopg nestedg ifg test g qg ... g cmd g stopg nestedg notg test g qg ... g cmd g stopg nestedg andg testg ... g qg ... g cmd g stopg nestedg org testg ... g qg ... g cmd g stopg nestedg beging etcg ... g qg ... g cmd g stopg nestedg geng qg ... g cmd g stopg nested g cmd C5 qR4: ;>
f h o ]4 5C g g dummy
g q1 g q g etc1 g etc Cj
'
( h p ] C h g dummy
g q1 g q2 g etc1 g etc Cy
0
2 h E ] C = g dummy
g
expression CD
;
<
=
? h \ ] C T g dummy
g qualifier g
expression Cųł hh T ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @
6 L g x
g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef srfi/srfi-42/ec.scm
g g
macro-typeg syntax-rulesg patternsg nestedg q1g ... g qg etc1g etcg ... g q1g q2g etc1g etcg ... g
expression g qualifierg
expression C5 R4:";>
K
U
Vf h o ]4 5C g g dummy
g q1 g q g etc1 g etc Cj
_
` h p ] C h g dummy
g q1 g q2 g etc1 g etc Cy
g
i h E ] C = g dummy
g
expression CD
q
r
s
t
v h \ ] C T g dummy
g qualifier g
expression Cųł hh T ]!4 5 $ @4 5 $ @4 5 $ @4 5 $ @
6 L g x
g g tmp g g tmp " g g tmp 9 g g tmp P g g filenamef srfi/srfi-42/ec.scm
g g
macro-typeg syntax-rulesg patternsg nestedg q1g ... g qg etc1g etcg ... g q1g q2g etc1g etcg ... g
expression g qualifierg
expression C5"RC ņ g m
( g filenamef srfi/srfi-42.scm
) ?
. ? 6 ? & ; ?
g filenamef srfi/srfi-42/ec.scm A) Ä
fŻ Ć
Ō
!
Ć³
C6 PK ! l Ų°{ { srfi-2.gonu [µü¤ GOOF----LE-8-2.0c ] 4 h{ ] g guile¤ ¤ g define-module*¤ ¤ ¤ g srfi¤ g srfi-2¤ ¤ g filenameS¤
f srfi/srfi-2.scm¤ g importsS¤ g ice-9¤
g and-let-star¤
¤ ¤ ¤ g
re-exportsS¤ g and-let*¤ ¤ g set-current-module¤ ¤ ¤ g cond-expand-provide¤ g current-module¤ ¤C 5h@ i ]4
5 4 > " G i4i5 6 a g m
, g filenamef srfi/srfi-2.scm
1 9 & ;
;
C6 PK ! ś;T y y
srfi-67.gonu [µü¤ PK ! ŌĻ»Ē Ē
³ srfi-14.gonu [µü¤ PK ! 3·I„k k “ srfi-8.gonu [µü¤ PK ! Ā'v¾s ¾s X srfi-9.gonu [µü¤ PK ! cgS2÷ ÷
O srfi-17.gonu [µü¤ PK ! bWĻŅū ū
¢ srfi-19.gonu [µü¤ PK ! !šõ| |
µ¹ srfi-88.gonu [µü¤ PK ! C°«mÄ Ä
kæ srfi-16.gonu [µü¤ PK ! ųGe²
iĮ srfi-26.gonu [µü¤ PK ! "Y Y /Ū srfi-4.gonu [µü¤ PK ! =WäcA cA
{4 srfi-18.gonu [µü¤ PK ! ”*YVu Vu
v srfi-37.gonu [µü¤ PK ! Ī”·
Øė srfi-34.gonu [µü¤ PK ! ēZŹw w m’ srfi-6.gonu [µü¤ PK ! c
8ėäF äF
srfi-35.gonu [µü¤ PK ! ÆTa)J )J
;K srfi-27.gonu [µü¤ PK ! G P P
srfi-60.gonu [µü¤ PK ! »Ė:Š4 Š4
( srfi-4/gnu.gonu [µü¤ PK ! i:!®d d
5Ó srfi-11.gonu [µü¤ PK ! fø„ „ Óš srfi-1.gonu [µü¤ PK ! £Āq“S S
Ø srfi-10.gonu [µü¤ PK ! Ć(^Aų ų
5 srfi-28.gonu [µü¤ PK ! tv.ø ø
g” srfi-38.gonu [µü¤ PK ! ÓŪnż >ż
G srfi-43.gonu [µü¤ PK ! »a°Ģ Ģ
D
srfi-31.gonu [µü¤ PK ! vŃ:D D
M
srfi-39.gonu [µü¤ PK ! X Rzp p
S
srfi-45.gonu [µü¤ PK ! ē6 h¬Æ ¬Æ
Ņ
srfi-64.gonu [µü¤ PK ! žjW> W>
srfi-111.gonu [µü¤ PK ! Ėįõō ō
%Į
srfi-42.gonu [µü¤ PK ! l Ų°{ { SS srfi-2.gonu [µü¤ PK $ $ i
V