asda?‰PNG  IHDR ? f ??C1 sRGB ??é gAMA ±? üa pHYs ? ??o¨d GIDATx^íüL”÷e÷Y?a?("Bh?_ò???￠§?q5k?*:t0A-o??￥]VkJ￠M??f?±8\k2íll￡1]q?ù???T GOOF----LE-8-2.0a]4h 4] gguile  gdefine-module*   gsrfi gsrfi-67  gfilenameS fsrfi/srfi-67.scm gimportsS gsrfi-27      gexportsS g/>=? g>/>? g>=/>=? g>=/>? g>=? g>? gboolean-compare gchain<=? gchain=? #gchain>? $g char-compare %gchar-compare-ci &g compare-by< 'g compare-by<= (g compare-by=/< )g compare-by=/> *g compare-by> +g compare-by>= ,gcomplex-compare -g cond-compare .g debug-compare /gdefault-compare 0gif-not=? 1gif3 2gif<=? 3gif=? 6gif>? 7ginteger-compare 8g kth-largest 9g list-compare :glist-compare-as-vector ;g max-compare gnumber-compare ?g pair-compare @gpair-compare-car Agpair-compare-cdr Bgpairwise-not=? Cgrational-compare Dg real-compare Egrefine-compare Fgselect-compare Ggsymbol-compare Hgvector-compare Igvector-compare-as-list J !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHI9 Kg replacementsS Lgstring-compare Mgstring-compare-ci NLM Ogset-current-module PO QO Rgcond-expand-provide Sgcurrent-module T Ugfor-each Vgcompare:checked Wgmake-syntax-transformer XW YW Zgmacro [g $sc-dispatch \[ ][ ^gany _^^^^^ `g syntax-object agcase bgtop cb dgribcage egdummy fgc ggless hgequal iggreater jefghi kgm-46961e518a-3 lkb mlcccc nfl-46961e518a-8 ofl-46961e518a-9 pfl-46961e518a-a qfl-46961e518a-b rfl-46961e518a-c snopqr tdjms ud vgx wv xl yfl-46961e518a-5 zy {dwxz |ctu{ }ghygiene ~} `a|~ ` |~  ` |~  ` |~  gelse `|~ gerror `|~ f comparison value not in {-1,0,1} `|~    gsyntax-violation   f-source expression failed to match any pattern gcompare:if-rel? gc-cases ga-cases g consequence ef gm-46961e518a-12 b cccc fl-46961e518a-17 fl-46961e518a-18 fl-46961e518a-19 fl-46961e518a-1a fl-46961e518a-1b  d  fl-46961e518a-14  dw cu `~ gif `~ `~   ^^^^^^ g alternate ef ccccc fl-46961e518a-22 fl-46961e518a-23 fl-46961e518a-24 fl-46961e518a-25 fl-46961e518a-26 fl-46961e518a-27  d cu `a~ `~ `~ `~    geach-any ^ garg e gm-46961e518a-2f b c fl-46961e518a-34 fl-46961e518a-35  d  fl-46961e518a-31  dw cu `~ ` ~  ` ~ ` ~  gm-46961e518a-3a b c fl-46961e518a-3f fl-46961e518a-40  d  fl-46961e518a-3c  dw cu `~ ` ~  ` ~ ` ~  gm-46961e518a-45 b c fl-46961e518a-4a fl-46961e518a-4b  d  fl-46961e518a-47  dw cu `~ ` ~  ` ~ ` ~  gm-46961e518a-50 b c fl-46961e518a-55 fl-46961e518a-56  d  fl-46961e518a-52  dw cu `~ ` ~  ` ~     ` ~     gm-46961e518a-5b  b c fl-46961e518a-60 fl-46961e518a-61  d  fl-46961e518a-5d  dw cu `~ ` ~ ` ~  ` ~  gm-46961e518a-66  b ! c "fl-46961e518a-6b #fl-46961e518a-6c $"# %d!$ &  'fl-46961e518a-68 (' )dw&( *c%u) +`*~ ,` *~ -` *~ .,- /` *~ 0/ 1gcompare:define-rel? 2^^^ 3gdefine 4grel? 5gif-rel? 6e45 7gm-46961e518a-71 87b 98cc :fl-46961e518a-76 ;fl-46961e518a-77 d69= ?8 @fl-46961e518a-73 A@ Bdw?A Cc>uB D`3C~ Eg case-lambda F`EC~ Gglambda H`GC~ I`vC~ Jgy K`JC~ LIK M`/C~ NMIK O`C~ P`C~ QNOP Rgcompare S`RC~ TS USIK VUOP W`C~ Xg procedure? Y`XC~ ZYS [`C~ \f*not a procedure (Did you mean rel/rel??):  ]`\C~ ^[]S _^ `gcompare:define-rel1/rel2? a^^^^ bg rel1/rel2? cgif-rel1? dgif-rel2? eebcd fgm-46961e518a-83 gfb hgccc ifl-46961e518a-88 jfl-46961e518a-89 kfl-46961e518a-8a lfl-46961e518a-8b mijkl ndehm og pfl-46961e518a-85 qp rdwoq scnur t`3s~ u`Es~ v`Gs~ w`vs~ x`Js~ ygz z`ys~ {wxz |`/s~ }|wx ~|xz `s~ `s~ ~ `Vs~ |z  `Rs~  wx xz  z  wxz gcompare:define-chain-rel? g chain-rel? e5 gm-46961e518a-99 b cc fl-46961e518a-9e fl-46961e518a-9f fl-46961e518a-a0  d  fl-46961e518a-9b  dw cu `3~ `E~ `R~  `~  gx1 `~  `V~   gx2 `~  `~  gx3 `~      gx3+ `~    glet `~ gchain? `~ ghead `~  gtail `~   `~ gnull? `~  gcar `~   gcdr `~   gapply `~     grandom-integer glist-ref glength f bad index ginteger? gexact? ^ e gm-46961e518a-a9 b  fl-46961e518a-ae  d fl-46961e518a-ab  dw cu ` ~ ^^ ^Œ ^댤 gc1 gc2 gcs e ccc fl-46961e518a-b6 fl-46961e518a-b7 fl-46961e518a-b8 fl-46961e518a-b9  d cu `1~ ` ~ `E~ ` ~  gclause evJ gm-46961e518a-bf b ccc fl-46961e518a-c4 fl-46961e518a-c5 fl-46961e518a-c6 fl-46961e518a-c7  d    fl-46961e518a-c1     dw    cu  ` ~ gx-val ` ~ gy-val ` ~ `F ~ ^ evJ cc fl-46961e518a-ce fl-46961e518a-cf fl-46961e518a-d0  d cu  ` ~ gfree-id cu   `~ !  "! #^^" $^# %evJf &fl-46961e518a-d5 'fl-46961e518a-d6 (fl-46961e518a-d7 )fl-46961e518a-d8 *&'() +d%* ,c+u  -`E,~ . /^. 0^/ 1^0 2gt? 3evJ2f 4ccccc 5fl-46961e518a-df 6fl-46961e518a-e0 7fl-46961e518a-e1 8fl-46961e518a-e2 9fl-46961e518a-e3 :fl-46961e518a-e4 ;56789: <d34; =c<u  >`=~ ?gt?-val @`?=~ Agtx B`A=~ Cgty D`C=~ E`=~ F`E=~ G` =~ HG I` =~ J`F=~ Kgm-46961e518a-ed LKb ML Nfl-46961e518a-f2 ON PdMO Qfl-46961e518a-ef RQ SdwMR TcPuS U` T~ VcuS W`V~ XW YX Z^Y [e \Lc ]fl-46961e518a-f5 ^fl-46961e518a-f6 _]^ `d[\_ ac`uS b`Ea~ c dc e^d feAC gLcccc hfl-46961e518a-fb ifl-46961e518a-fc jfl-46961e518a-fd kfl-46961e518a-fe lfl-46961e518a-ff mhijkl ndfgm ocnuS p`o~ qgtx-val r`qo~ sgty-val t`so~ u`o~ v`Eo~ w` o~ xw y` o~ z`-o~ {gcompare:type-check |gtype? }g type-name ~e|}v gm-46961e518a-107 b ccc fl-46961e518a-10c fl-46961e518a-10d fl-46961e518a-10e fl-46961e518a-10f  d~  fl-46961e518a-109  dw cu `~ gnot `~ `~ g string-append `~ fnot  `~ f: `~  gbegin e|}vJ cccc fl-46961e518a-115 fl-46961e518a-116 fl-46961e518a-117 fl-46961e518a-118 fl-46961e518a-119  d cu `~ `{~ gcompare:define-by=/< g= g< eR|} gm-46961e518a-120 b ccccc fl-46961e518a-125 fl-46961e518a-126 fl-46961e518a-127 fl-46961e518a-128 fl-46961e518a-129 fl-46961e518a-12a  d  fl-46961e518a-122  dw cu `3~ `~ `G~ `v~ `J~  `~  geq? `~  ` ~  ` ~ ` ~  `~ `~ `~ `~  gboolean? fboolean gchar=? gchar? gcharstring finteger g rational? frational greal? freal gcomplex? fcomplex g real-part g imag-part gnumber? fnumber g vector-length g vector-ref gmin f$unrecognized type in default-compare fcompare value not in {-1,0,1} fcompare error: not reflexive f!compare error: not anti-symmetric yJv Jyv yvJ vyJ Jvy vJy         fcompare error: not transitive gmapC5h8]4   JKN5 4Q>"G4Ri4Si5T>"GUhc]L6[gx  gfilenamefsrfi/srfi-67/compare.scm U U   Ch(-134O>"GCgresult %gcompare %gargs  %gfilenamefsrfi/srfi-67/compare.scm T U  %  gnamegcompare:checkedCVR4Y1Z]_h(v]Cngdummy  #gc  #gless   #gequal   #ggreater   #  # Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scm [   " g macro-typeg syntax-rulesgpatternsgcglessgequalggreaterC51R4YZ]_h]Cwgdummy  gc-cases  ga-cases   gc   g consequence      Ch ]Cgdummy  gc-cases  ga-cases   gc   g consequence   g alternate      Ch@]45$@45$@6 gx  9gtmp 9gtmp  " 9gfilenamefsrfi/srfi-67/compare.scm f   9 g macro-typeg syntax-rulesgpatternsgc-casesga-casesgcg consequencegc-casesga-casesgcg consequenceg alternateC5R4Y4Z]h>]C6gdummy  garg     Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scm o   " g macro-typeg syntax-rulesgpatternsgargg...C54R4Y3Z]h>]C6gdummy  garg     Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scm r   " g macro-typeg syntax-rulesgpatternsgargg...C53R4Y6Z]h>]C6gdummy  garg     Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scm u   " g macro-typeg syntax-rulesgpatternsgargg...C56R4Y2Z]  h>]C6gdummy  garg     Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scm x   " g macro-typeg syntax-rulesgpatternsgargg...C52R4Y5Z]h>]C6gdummy  garg     Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scm {   " g macro-typeg syntax-rulesgpatternsgargg...C55R4Y0Z]+.0h>]C6gdummy  garg     Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scm ~   " g macro-typeg syntax-rulesgpatternsgargg...C50R4Y1Z]2DFHLQTVUWZ_ hPT]   CLgdummy  Mgrel?  Mgif-rel?   M  M Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scm   " g macro-typeg syntax-rulesgpatternsgrel?gif-rel?C51R/h8{] 45 $C $" $C6sgx  5gy  5gkey  5gfilenamefsrfi/srfi-67/compare.scm   5 Ch8{] 4L5 $C $" $C6sgx  5gy  5gkey  5gfilenamefsrfi/srfi-67/compare.scm   5 C/X\h)3C) 3OC)6345 $C $" $C6] 45$345 $C $" $C66gcompare  gx & Ygy & Ygkey  / Ygcompare [ gx [ gy  [ gkey  o gfilenamefsrfi/srfi-67/compare.scm      & Y  [ gnameg=?CR/h8{] 45 $C $" $C6sgx  5gy  5gkey  5gfilenamefsrfi/srfi-67/compare.scm   5 Ch8{] 4L5 $C $" $C6sgx  5gy  5gkey  5gfilenamefsrfi/srfi-67/compare.scm   5 C/X\h)3C) 3OC)6345 $C $" $C6] 45$345 $C $" $C66gcompare  gx & Ygy & Ygkey  / Ygcompare [ gx [ gy  [ gkey  o gfilenamefsrfi/srfi-67/compare.scm      & Y  [ gnameg?CR/h8{] 45 $" $C $C6sgx  5gy  5gkey  5gfilenamefsrfi/srfi-67/compare.scm   5 Ch8{] 4L5 $" $C $C6sgx  5gy  5gkey  5gfilenamefsrfi/srfi-67/compare.scm   5 C/X\h)3C) 3OC)6345 $" $C $C6] 45$345 $" $C $C66 gcompare  gx & Ygy & Ygkey  / Ygcompare [ gx [ gy  [ gkey  o gfilenamefsrfi/srfi-67/compare.scm      & Y  [ gnameg<=?CR/h8{] 45 $" $C $C6sgx  5gy  5gkey  5gfilenamefsrfi/srfi-67/compare.scm   5 Ch8{] 4L5 $" $C $C6sgx  5gy  5gkey  5gfilenamefsrfi/srfi-67/compare.scm   5 C/X\h)3C) 3OC)6345 $" $C $C6] 45$345 $" $C $C66 gcompare  gx & Ygy & Ygkey  / Ygcompare [ gx [ gy  [ gkey  o gfilenamefsrfi/srfi-67/compare.scm      & Y  [ gnameg>=?CR/h8{] 45 $" $C $C6sgx  5gy  5gkey  5gfilenamefsrfi/srfi-67/compare.scm   5 Ch8{] 4L5 $" $C $C6sgx  5gy  5gkey  5gfilenamefsrfi/srfi-67/compare.scm   5 C/X\h)3C) 3OC)6345 $" $C $C6] 45$345 $" $C $C66gcompare  gx & Ygy & Ygkey  / Ygcompare [ gx [ gy  [ gkey  o gfilenamefsrfi/srfi-67/compare.scm      & Y  [ gnamegnot=?C=R4Y`Z]atuv{} hhq]       Cigdummy  hg rel1/rel2?  hgif-rel1?   hgif-rel2?   h  h Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scm   " g macro-typeg syntax-rulesgpatternsg rel1/rel2?gif-rel1?gif-rel2?C5`R/Vhp]45 $345 $C $" $C6 $" $ 66gx  mgy  mgz   mgkey  mgkey   Igfilenamefsrfi/srfi-67/compare.scm   m CVhp]4L5 $34L5 $C $" $C6 $" $ L66gx  mgy  mgz   mgkey  mgkey   Igfilenamefsrfi/srfi-67/compare.scm   m C/VhN)3C) 3OC)n345 $345 $C $" $C6 $" $ 66]45 $345 $C $" $C6 $" $ 66Fgcompare  gx & gy & gz  & gkey  / gkey  C mgcompare gx gy  gz  gkey  gkey   gfilenamefsrfi/srfi-67/compare.scm      &  gnameg/>?CR/Vhp]45 $345 $" $C $C6 $" $ 66gx  mgy  mgz   mgkey  mgkey   Hgfilenamefsrfi/srfi-67/compare.scm   m CVhp]4L5 $34L5 $" $C $C6 $" $ L66gx  mgy  mgz   mgkey  mgkey   Hgfilenamefsrfi/srfi-67/compare.scm   m C/VhO)3C) 3OC)n345 $345 $" $C $C6 $" $ 66]45 $345 $" $C $C6 $" $ 66Ggcompare  gx & gy & gz  & gkey  / gkey  B lgcompare gx gy  gz  gkey  gkey   gfilenamefsrfi/srfi-67/compare.scm      &  gnameg>/>=?CR/Vhp]45 $" $345 $C $" $C6 $ 66gx  mgy  mgz   mgkey  mgkey  + Ugfilenamefsrfi/srfi-67/compare.scm   m CVhp]4L5 $" $34L5 $C $" $C6 $ L66gx  mgy  mgz   mgkey  mgkey  + Ugfilenamefsrfi/srfi-67/compare.scm   m C/VhO)3C) 3OC)n345 $" $345 $C $" $C6 $ 66]45 $" $345 $C $" $C6 $ 66Ggcompare  gx & gy & gz  & gkey  / gkey  O ygcompare gx gy  gz  gkey  gkey   gfilenamefsrfi/srfi-67/compare.scm      &  gnameg>=/>?CR/Vhp]45 $" $345 $" $C $C6 $ 66gx  mgy  mgz   mgkey  mgkey  + Ugfilenamefsrfi/srfi-67/compare.scm   m CVhp]4L5 $" $34L5 $" $C $C6 $ L66gx  mgy  mgz   mgkey  mgkey  + Ugfilenamefsrfi/srfi-67/compare.scm   m C/VhP)3C) 3OC)n345 $" $345 $" $C $C6 $ 66]45 $" $345 $" $C $C6 $ 66Hgcompare  gx & gy & gz  & gkey  / gkey  O ygcompare gx gy  gz  gkey  gkey   gfilenamefsrfi/srfi-67/compare.scm      &  gnameg>=/>=?CR4YZ]2hXZ]     CRgdummy  Ug chain-rel?  Ugif-rel?   U  U Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scm   " g macro-typeg syntax-rulesgpatternsg chain-rel?gif-rel?C5RVhp )3C) 36)6345 $C $" $C6)n345 $345 $C $" $C6 $" $ 66-1345 $`"P(C45 $" $" $ @6" $" $ @6gcompare gcompare  gx1  gcompare & Ygx1 & Ygx2  & Ygkey  / Ygcompare b gx1 b gx2  b gx3  b gkey  k gkey  ~ gcompare ngx1 ngx2  ngx3+  ngkey  nghead  =gtail  =gkey  =gfilenamefsrfi/srfi-67/compare.scm      & Y  b  n  gnamegchain=?C!RVhp )3C) 36)6345 $C $" $C6)n345 $345 $C $" $C6 $" $ 66-1345 $`"P(C45 $" $" $ @6" $" $ @6gcompare gcompare  gx1  gcompare & Ygx1 & Ygx2  & Ygkey  / Ygcompare b gx1 b gx2  b gx3  b gkey  k gkey   gcompare ngx1 ngx2  ngx3+  ngkey  nghead  >gtail  >gkey   >gfilenamefsrfi/srfi-67/compare.scm      & Y  b  n  gnamegchain?C#RVhp )3C) 36)6345 $" $C $C6)n345 $" $345 $" $C $C6 $ 66-1345 $" $`"P(C45 $" $" $ @6" $ @6gcompare gcompare  gx1  gcompare & Ygx1 & Ygx2  & Ygkey  / Ygcompare b gx1 b gx2  b gx3  b gkey  k gkey  gcompare ngx1 ngx2  ngx3+  ngkey  nghead  Kgtail  Kgkey   Kgfilenamefsrfi/srfi-67/compare.scm      & Y  b  n  gnamegchain<=?CRVhp )3C) 36)6345 $" $C $C6)n345 $" $345 $" $C $C6 $ 66-1345 $" $`"P(C45 $" $" $ @6" $ @6gcompare gcompare  gx1  gcompare & Ygx1 & Ygx2  & Ygkey  / Ygcompare b gx1 b gx2  b gx3  b gkey  k gkey  gcompare ngx1 ngx2  ngx3+  ngkey  nghead  Jgtail  Jgkey   Jgfilenamefsrfi/srfi-67/compare.scm      & Y  b  n  gnamegchain>=?C"RVVh]; $$ $ L6CC4545"()4L455$45"C$"4L5  $" $$ L@C $"G6 "0gx  gn  g unchecked?   gi-pivot  . gx-pivot  9 gi  ? gx  ? gx<  ? gx>  ? gkey  gfilenamefsrfi/srfi-67/compare.scm     !   ! - #  (  . 1  9 ?  E  F  K ' T  X  [ ' l  s  w  z } (   '   % - ; 5    D "  % - > 8     +  4  2   gnamegunequal?Ch()3C) 36)6345 $" $C $C6)345 $" $d45 $" $345 $" $C $C6 $C6 $ 66-13OQ456}gcompare gcompare  gx1  gcompare & Ygx1 & Ygx2  & Ygkey  / Ygcompare b gx1 b gx2  b gx3  b gkey  k gkey  gkey  gcompare  %gx1+  %gunequal?   %gfilenamefsrfi/srfi-67/compare.scm    &  '  /  b  c  k    %              ! %      & Y  b   % CBRVh) 36)8345 $" $C $C6)345 $" $545 $" $C $C6 $545 $" $C $C66)d345 $" $45 $" $545 $" $C $C6 $545 $" $C $C66 $45 $" $545 $" $C $C6 $545 $" $C $C666-13"U(C45 $" $" $"45"45 $" $" $"45"bgcompare gx1 gcompare  Qgx1  Qgx2   Qgkey  % Qgcompare Z gx1 Z gx2  Z gx3  Z gkey  c gkey  gkey  gcompare ]gx1 ]gx2  ]gx3  ]gx4  ]gkey   ]gkey  & gkey  G sgkey   gkey   Wgkey   gkey  % Qgcompare f gx1 f gx2  f gx3+  f gxmin  j gxs  j gkey  } gkey   !gfilenamefsrfi/srfi-67/compare.scm           %   Z   [  c   |                    &  ?   G   {  |                           %   W  [   ]   f   j   p   t   {  % }   }     4                    4    Q  Z  ]  f   gnameg min-compareC"-G"&45$45$""""45"644 55 " (e $  " $ $  6  6 "4  5 $&         "Z $&         ", $&         "6       ""gcompare )gk )gx0  )gkey  )gcompare 2 gk 2 gx0  2 gx1  2 gkey  7 gkey  J vgkey  gcompare Kgk Kgx0  Kgx1  Kgx2  Kgkey  Kgkey  lgkey  )gkey  : fgkey  } gkey   gkey   gkey   ,gkey  = gkey  i gkey   Cgkey   gkey   =gcompare T gk T gx0  T gx1+  T gn   gk   gn   grev   gx   gpivot  gx  gx<  gn<  gx=  gn=   gx>   gn>   gkey  - /gfilenamefsrfi/srfi-67/compare.scm :  < <  ! =  % >  ) >  2 :  7 @ 7 @  B A  J A  ~ @   B  B  C  C  :  E E  F  F  G  G  1 F  2 H  : H  l F  t E  u I  } I   J   J   L !  L   J   I   M   M  4 I  5 N  = N  a P ! i P   N   I   E   Q   Q   R   R   Q   S   S  C Q  G T  K T  T :  Y W ] W  d W p V  q V  { V  | V "  V   X   X   X   Y  ]   ] $  ]   ]  ^  _   a   `   b  b   c   c   `   d   e *  e 3  e '  e   f '  f   h  h   h . # h  $ i  ) i ! - i  - i  ; j  > j - A j ' D j 9 ^ j  f i  i k  p k 3 s k - v k ?  k   i   l   l 9  l 3  l E  l   i   ^  ^ #  ^ 3  ^ C  ^  Y  Y   \   Y } )  2  K  T   C8Rh(]4L5$ C4L5$ C Cgx  #gy  #gfilenamefsrfi/srfi-67/compare.scm s  s   s   s /  s +  # Ch8) 3OC]45$ C45$ C Cglt glt  4gx  4gy   4gfilenamefsrfi/srfi-67/compare.scm r   t  t  $ t / 0 t +    4 gnameg compare-by<C&Rh(]4L5$ C4L5$ C Cgx  #gy  #gfilenamefsrfi/srfi-67/compare.scm x  x   x   x .  x *  # Ch8) 3OC]45$ C45$ C Cggt ggt  4gx  4gy   4gfilenamefsrfi/srfi-67/compare.scm w   y  y  # y . / y *    4 gnameg compare-by>C*Rh(]4L5$4L5$ C C Cgx  #gy  #gfilenamefsrfi/srfi-67/compare.scm }  }   }   } ,  } (  # Ch8) 3OC]45$45$ C C Cgle gle  4gx  4gy   4gfilenamefsrfi/srfi-67/compare.scm |   ~  ~  ! ~ , - ~ (    4 gnameg compare-by<=C'Rh(]4L5$4L5$ C C Cgx  #gy  #gfilenamefsrfi/srfi-67/compare.scm          ,   (  # Ch8) 3OC]45$45$ C C Cgge gge  4gx  4gy   4gfilenamefsrfi/srfi-67/compare.scm        !  , -  (    4 gnameg compare-by>=C+Rh(]4L5$ C4L5$ C Cgx  #gy  #gfilenamefsrfi/srfi-67/compare.scm     "      1   -  # Ch8) 3OC]45$ C45$ C Cgeq glt geq  6glt  6gx   6gy   6gfilenamefsrfi/srfi-67/compare.scm     " "   %  1 1  -    6 gnameg compare-by=/<C(Rh(]4L5$ C4L5$ C Cgx  #gy  #gfilenamefsrfi/srfi-67/compare.scm     "      1   -  # Ch8) 3OC]45$ C45$ C Cgeq ggt geq  6ggt  6gx   6gy   6gfilenamefsrfi/srfi-67/compare.scm     " "   %  1 1  -    6 gnameg compare-by=/>C)R4YEZ]h-]C%gdummy     Ch=]C5gdummy  gc1     Ch]]CUgdummy  gc1  gc2   gcs      C hP]45$@45$@45$@ 6gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefsrfi/srfi-67/compare.scm    P g macro-typeg syntax-rulesgpatternsgc1gc1gc2gcsg...C5ER4YFZ]h(_]CWgdummy  &gx  &gy   &gclause   &  & ChK]CCgdummy  gx  gy      C$-hZ]CRgdummy  gx  gy   gc      C1>@BDEFHIJ h`~] Cvgdummy  ]gx  ]gy   ]gt?   ]gc   ]gclause   ]  ] C hhX]!45$@45$@45$@45$ @  6Pgx  ggtmp ggtmp  " ggtmp  9 ggtmp  P ggfilenamefsrfi/srfi-67/compare.scm    g g macro-typeg syntax-rulesgpatternsgxgygclauseg...gxgygxgygelsegcg...gxgygt?gcg...gclauseg...C5FR4Y-Z]Uh-]C%gdummy     CZbh=]C5gdummy  gcs     Ceprtuvxyz h@q]Cigdummy  <gtx  <gty   <gcs   <gclause   <  < C hP ]45$@45$@45$@ 6gx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefsrfi/srfi-67/compare.scm    P g macro-typeg syntax-rulesgpatternsgelsegcsg...gtxgtygcsg...gclauseg...C5-R4Y{Z]ah(f]C^gdummy  &gtype?  &g type-name   &gx   &  & C_h u]Cmgdummy  gtype?  g type-name   gx   gy      Ch@]45$@45$@6gx  9gtmp 9gtmp  " 9gfilenamefsrfi/srfi-67/compare.scm    9 g macro-typeg syntax-rulesgpatternsgtype?g type-namegxgtype?g type-namegxgyC5{R4YZ]h]         Cgdummy  }gcompare  }g=   }g<   }gtype?   }g type-name   }  } Ch(] 45$@6gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scm    " g macro-typeg syntax-rulesgpatternsgcompareg=g"G45$"445>"G$ $ C C$ C Cgx  ugy  ugfilenamefsrfi/srfi-67/compare.scm           G   I   `   f   p    u gnamegboolean-compareCRihh]45$G& C45$!4L5$ C45$ C C456456gx  egy  egfilenamefsrfi/srfi-67/compare.scm  J  L  7 N  P  [  ]  7 _  a    e CO$Riihh]45$G& C45$!4L5$ C4L5$ C C456456gx  egy  egfilenamefsrfi/srfi-67/compare.scm  J  L  @ N  P  [  ]  @ _  a    e CO%Riihh]45$G& C45$!4L5$ C4L5$ C C456456gx  egy  egfilenamefsrfi/srfi-67/compare.scm  J  L  ? N  P  [  ]  ? _  a    e COLRiihh]45$G& C45$!4L5$ C4L5$ C C456456gx  egy  egfilenamefsrfi/srfi-67/compare.scm  J  L  H N  P  [  ]  H _  a    e COMRLhh]$"445>"G$"445>"G45456gx  dgy  dgfilenamefsrfi/srfi-67/compare.scm           ?   A   U   \  % d    d gnamegsymbol-compareCGRh`]45$?& C45$$ C$ C C456456gx  ]gy  ]gfilenamefsrfi/srfi-67/compare.scm  B  D  3 F  H  S  U  3 W  Y    ] C7Rh`]45$?& C45$$ C$ C C456456gx  ]gy  ]gfilenamefsrfi/srfi-67/compare.scm  B  D  5 F  H  S  U  5 W  Y    ] CCRh`]45$?& C45$$ C$ C C456456gx  ]gy  ]gfilenamefsrfi/srfi-67/compare.scm  D  - F  U  - W    ] CDRD hY] 45$"445>"G45$"445>"G"K445455 $ C $4 54 56 $ C 64 5$4 5$6""Qgx  gy  gkey  q gfilenamefsrfi/srfi-67/compare.scm           G   I   _   b  $ i  2 q   q    $  2                 gnamegcomplex-compareC,R,hh]45$"445>"G45$"445>"G6gx  bgy  bgfilenamefsrfi/srfi-67/compare.scm           G   I   b    b gnamegnumber-compareC>Rh]L6~gx  gy  gfilenamefsrfi/srfi-67/compare.scm          Ch~]OCvgcompare  gfilenamefsrfi/srfi-67/compare.scm    gnamegpair-compare-carC@Rh]L6~gx  gy  gfilenamefsrfi/srfi-67/compare.scm          Ch~]OCvgcompare  gfilenamefsrfi/srfi-67/compare.scm    gnamegpair-compare-cdrCAR?/hZ)>345 $ C $ 6 $ C6){3( ( C C( C$G$=45 $ C $ 6 $ C6 C$ C6]6Rgpair-compare-car Dgpair-compare-cdr Dgx  Dgy  Dgkey   Dgcompare M gx M gy  M gkey   gx gy  gfilenamefsrfi/srfi-67/compare.scm       '   /       /  ' 2  / 4   <   M   S   i   m   p   t   u   z  3 }  ;        3  ;               D  M  gnameg pair-compareC?R9/h)3 4545$ $ C C$ C445455 $ C $45456 $ C6)36)36]6gcompare gx gy  gempty?  ghead  gtail  gtx-val   gty-val   gkey  G gx gy gempty?  ghead  gtail  gcompare gx gy  gx gy gfilenamefsrfi/srfi-67/compare.scm           5  8  " ?  + G  G   b  " i  + w                    gnameg list-compareC9R9:/ h)3 "P4545 $ $ "9 "3 $ "(4545" " $ C $6 $ C6)36)36]6gcompare gx gy  gempty?  ghead  gtail  gx  ]gy  ]gtx-val   ]gty-val  ]gkey  i gx gy gempty?  ghead  gtail  gcompare gx gy  gx gy gfilenamefsrfi/srfi-67/compare.scm   #   %  %   $  B &  I & ( W &  ] #  i "  '  "    +    -    /     gnameglist-compare-as-vectorC:R7H/h)3 454545 $ C $\"Q$ C445455  $ C $ " $ C6 " $ C6)36)36]6gcompare gx gy  gsize  gref  gn   gm   gkey  $ gi  > gkey ` gx gy gsize  gref  gcompare gx gy  gx gy gfilenamefsrfi/srfi-67/compare.scm 3  5   5   5   7 $ 6 > 8 C 9  G 9 J ; M ; ) V ; 3 ` ; ` ;  y < .  < ;  8 6 ;  6 3  @  3  B  3  D     CHR7I/ h)3 454545"W$6445455  $ C $ " $ C6 ")36)36]6gcompare gx gy  gsize  gref  gnx   gny   gn  $ gi  * gkey R gx gy gsize  gref  gcompare gx gy  gx gy gfilenamefsrfi/srfi-67/compare.scm H  J   J   J   K  $ K * L / M  3 M ; N  < O ! ? O * H O 4 R O ! R O  k P / q P ! y O  L H  T  H  V  H  X     CIR/$LG>Hh]( ( C C( C$E$;45 $ C $ 6 $ C6 C$ C4545$$6 C$ C45$45$6 C45$ C45$45$ 6 C45$ C$$ 6 C$ C4 5$4 5$ 6 C4 5$ C$$  6 C$ C6gx  gy  gkey  4 dgt?-val  r gtx  gty  gfilenamefsrfi/srfi-67/compare.scm ]  ^  * a / a  2 a & 4 a 4 ^  O b  R b & T b \ ^  c ^  d ^  e ^   f  ^  A g E ^  i h o ^  y i   i    gnamegdefault-compareC/RvJyh(e]$LC$LC$MCC]gi  (gfilenamefsrfi/srfi-67/compare.scm   ,  ( C h]J4L5 &" &" $"4L54L5 &" &" $"4L54L5 &" &" $"4L54L5 &" &" $"4L5 $"4L>"G $"4L>"G $"4L>"GM$M4L5 &" &" $"4L5M4L5 &" &" $"4L5M4L5 &" &" $"4L5M4L5 &" &" $"4L5  $"4LM>"G $"4LM>"G     $,4L4 LO 5>"G"  "N4 5 $"NCgx  gy  gc-xy  Igc-xy  R gc-xy  gc-xy  gc-xx   gc-yy   gc-xy   gc-yx   gy   gc-xy   gx   3gc-xy   0gy  5 gc-xy  @ ~gx   gc-xy   gc-xz   }gc-zx   }gc-yz   }gc-zy  }gijk 9 qgfilenamefsrfi/srfi-67/compare.scm    u  u   v  v  ! v " v  * v + . v  5 x 9 x  D x 6 F x J u  R u  \ v ] v  h v i v  q v + u v  | x x  x 6 x u  u  v v  v v  v + v  x x  x 6 x u  u  v v  v v  v +  v   x  x   x 6  x    )   .   3  7   @  K   P   U  Y   b  o   p   u   z  ~            u   u   v  v   v  v   v +  v   x  x   x 6  x     u   u   v  v   v  v   v +  v   x  x  + x 6 - x 5   8 u  @ u  J v K v  V v W v  _ v + c v  j x n x  y x 6 { x     u   u   v  v   v  v   v +  v   x  x   x 6  x                                       ' ~  .  / /  ' 4  : 5  ' 9   9   >   B   C   I   L   b      {  {          Ch]HHOCgc  gz?  gz   gfilenamefsrfi/srfi-67/compare.scm r      gnameg debug-compareC.RCgm  0gchar=? g char-ci=? Ag char-ci U & C U gfilenamefsrfi/srfi-67/compare.scm  T     !T $ +y 0" 4 9s >! B Gr L Q UF X \x ` g o  w   8  q a v B { "  #  #        N    @  o        V      5    |  < 1  F 4 ] / r 9 1 C6