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¤ —e”•f–¤ ˜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¢¤¤ ¦c¡u¥¤ §`“¦~¤ ¨gif¤ ©`¨¦~¤ ª`¦~¤ «©ªª¤ ¬«¤ ­^^^^^^¤ ®g alternate¤ ¯e”•f–®¤ °™ccccc¤ ±fl-46961e518a-22¤ ²fl-46961e518a-23¤ ³fl-46961e518a-24¤ ´fl-46961e518a-25¤ µfl-46961e518a-26¤ ¶fl-46961e518a-27¤ ·±²³´µ¶¤ ¸d¯°·¤ ¹c¸u¥¤ º`a¹~¤ »`†¹~¤ ¼`ˆ¹~¤ ½`Š¹~¤ ¾¼½¤ ¿»¾¤ À¿¤ Ágeach-any¤ Â^ÁŒ¤ Ãgarg¤ Äeä Ågm-46961e518a-2f¤ ÆÅb¤ ÇÆc¤ Èfl-46961e518a-34¤ Éfl-46961e518a-35¤ ÊÈɤ ËdÄÇʤ ÌƤ Ífl-46961e518a-31¤ Îͤ ÏdwÌΤ ÐcËuϤ Ñ`“Ð~¤ Ò` Ð~¤ ÓÒ¤ Ô` ÿÐ~¤ Õ` Ð~¤ ÖÔÕ¤ ×gm-46961e518a-3a¤ Ø×b¤ ÙØc¤ Úfl-46961e518a-3f¤ Ûfl-46961e518a-40¤ ÜÚÛ¤ ÝdÄÙܤ Þؤ ßfl-46961e518a-3c¤ àߤ ádwÞठâcÝuᤠã`“â~¤ ä` ÿâ~¤ åä¤ æ` â~¤ ç` â~¤ èæç¤ égm-46961e518a-45¤ êéb¤ ëêc¤ ìfl-46961e518a-4a¤ ífl-46961e518a-4b¤ îìí¤ ïdÄëî¤ ðê¤ ñfl-46961e518a-47¤ òñ¤ ódwðò¤ ôcïuó¤ õ`“ô~¤ ö` ô~¤ ÷ö¤ ø` ÿô~¤ ù` ô~¤ úøù¤ û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?¤ eŽ5¤ gm-46961e518a-99¤ ‘b¤ ’‘cc¤ “fl-46961e518a-9e¤ ”fl-46961e518a-9f¤ •fl-46961e518a-a0¤ –“”•¤ —d’–¤ ˜‘¤ ™fl-46961e518a-9b¤ š™¤ ›dw˜š¤ œc—u›¤ `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áæ¤ ècäuç¤ é` è~¤ ê^^¤ ë^ÂŒ¤ ì^댤 ígc1¤ îgc2¤ ïgcs¤ ðeíîï¤ ñàccc¤ òfl-46961e518a-b6¤ ófl-46961e518a-b7¤ ôfl-46961e518a-b8¤ õfl-46961e518a-b9¤ öòóôõ¤ ÷dðñö¤ øc÷uç¤ ù`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¤ PdÞMO¤ 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ˆŠ¤ Œc‡u‹¤ `¨Œ~¤ Ž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™š ¤ ¢c¡u‹¤ £`˜¢~¤ ¤`{¢~¤ ¥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´¶¤ ¸c³u·¤ ¹`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¤ øgmap¤C5h8Ôÿ]4   JKN5 4Q>"G4Ri4Si5T>"GUhc]L6[gx  gfilenamefsrfi/srfi-67/compare.scmŒ U ŒŒ U ŒŒ  Ch(­-134O>"GC¥gresult %gcompare %gargs  %gfilenamefsrfi/srfi-67/compare.scmŒ T ŒŒ U ŒŒ %  gnamegcompare:checkedŒCVR4Y1Z]_ƒ…Žh(v]ŒŒŒŒŒCngdummy  #gc  #gless   #gequal   #ggreater   #  # C‘’h(¼] 45$@6´gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scmŒ [ ŒŒ  " g macro-typeg syntax-rulesŒgpatternsgcglessgequalggreaterC51R4Y“Z]_§¬h]ŒŒŒŒŒCwgdummy  gc-cases  ga-cases   gc   g consequence      C­ºÀh –]ŒŒŒŒCŽgdummy  gc-cases  ga-cases   gc   g consequence   g alternate      C‘’h@]45$@45$@6 gx  9gtmp 9gtmp  " 9gfilenamefsrfi/srfi-67/compare.scmŒ f ŒŒ  9 g macro-typeg syntax-rulesŒgpatternsgc-casesga-casesgcg consequencegc-casesga-casesgcg consequenceg alternateC5“R4Y4Z]ÂÑÓÖh>]ŒŒŒC6gdummy  garg     C‘’h(©] 45$@6¡gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scmŒ o ŒŒ  " g macro-typeg syntax-rulesŒgpatternsgargg...C54R4Y3Z]Âãåèh>]ŒŒŒC6gdummy  garg     C‘’h(©] 45$@6¡gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scmŒ r ŒŒ  " g macro-typeg syntax-rulesŒgpatternsgargg...C53R4Y6Z]Âõ÷úh>]ŒŒŒC6gdummy  garg     C‘’h(©] 45$@6¡gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scmŒ u ŒŒ  " g macro-typeg syntax-rulesŒgpatternsgargg...C56R4Y2Z]  h>]ŒŒŒC6gdummy  garg     C‘’h(©] 45$@6¡gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scmŒ x ŒŒ  " g macro-typeg syntax-rulesŒgpatternsgargg...C52R4Y5Z]Âh>]ŒŒŒC6gdummy  garg     C‘’h(©] 45$@6¡gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scmŒ { ŒŒ  " g macro-typeg syntax-rulesŒgpatternsgargg...C55R4Y0Z]Â+.0h>]ŒŒŒC6gdummy  garg     C‘’h(©] 45$@6¡gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scmŒ ~ ŒŒ  " g macro-typeg syntax-rulesŒgpatternsgargg...C50R4Y1Z]2DFHLQTVUWZ_ hPT]ŒŒŒ  Œ ŒŒŒCLgdummy  Mgrel?  Mgif-rel?   M  M C‘’h(¯] 45$@6§gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scmŒ „ ŒŒ  " g macro-typeg syntax-rulesŒgpatternsgrel?gif-rel?C51R/ˆŠh8{] 45 †$C ÿ†$" †$C6sgx  5gy  5gkey  5gfilenamefsrfi/srfi-67/compare.scmŒ ŒŒ  5 CˆŠh8{] 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 CˆŠh8{] 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 CˆŠh8{] 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 CˆŠh8{] 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 CˆŠh8{] 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  [ ¡ gnamegnot=?ŒC=R4Y`Z]atuv{}„†‡‰‹Œ hhq]ŒŒŒŒ  Œ ŒŒŒŒŒŒŒ   Œ ŒŒŒCigdummy  hg rel1/rel2?  hgif-rel1?   hgif-rel2?   h  h C‘’h(Â] 45$@6ºgx  "gtmp "gfilenamefsrfi/srfi-67/compare.scmŒ ™ ŒŒ  " g macro-typeg syntax-rulesŒgpatternsg rel1/rel2?gif-rel1?gif-rel2?C5`R/ˆŠVhp›]45 ÿ†$345 ÿ†$C †$" †$C6 †$" †$ 66“gx  mgy  mgz   mgkey  mgkey   Igfilenamefsrfi/srfi-67/compare.scmŒ ¯ ŒŒ  m CˆŠVhp›]4L5 ÿ†$34L5 ÿ†$C †$" †$C6 †$" †$ L66“gx  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 ÿ†$" †$ 66“gx  mgy  mgz   mgkey  mgkey   Hgfilenamefsrfi/srfi-67/compare.scmŒ ´ ŒŒ  m CˆŠVhp›]4L5 †$34L5 †$" †$C ÿ†$C6 ÿ†$" †$ L66“gx  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 ÿ†$ 66“gx  mgy  mgz   mgkey  mgkey  + Ugfilenamefsrfi/srfi-67/compare.scmŒ µ ŒŒ  m CˆŠVhp›]4L5 †$" †$34L5 †$C ÿ†$" †$C6 ÿ†$ L66“gx  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 ÿ†$ 66“gx  mgy  mgz   mgkey  mgkey  + Ugfilenamefsrfi/srfi-67/compare.scmŒ ¶ ŒŒ  m CˆŠVhp›]4L5 †$" †$34L5 †$" †$C ÿ†$C6 ÿ†$ L66“gx  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]2ž¢¨«­°²´¹»½ÄÅÈ¡ÔÖhXZ]ŒŒ ŒŒŒ    ŒŒŒŒCRgdummy  Ug chain-rel?  Ugif-rel?   U  U C‘’h(µ] 45$@6­gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scmŒ » ŒŒ  " g macro-typeg syntax-rulesŒgpatternsg chain-rel?gif-rel?C5RVˆŠhp )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!RVˆŠhp )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#RVˆŠhp )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<=?ŒCRVˆŠhp )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"RVˆŠV×ØÙˆŠhæ]; ’$$ ‘$ L6CC4545"¿()4L455$45"ÿÿ–C‘$—Ž"ÿÿ²4L5  ÿ†$—ŽŒ"ÿÿƒ †$$ LŽ@C †$—ŽŒ"ÿÿG6 "ÿÿ0Þgx  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?ŒCÙh(…)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 þ   % CBRVˆŠhß) 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"ÿÿb×gcompare 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-compareŒC"-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 C‡gx  #gy  #gfilenamefsrfi/srfi-67/compare.scmŒ s ŒŒ  s ŒŒ  s ŒŒ  s /ŒŒ  s +ŒŒ  # Ch8Î) 3OC]45$ ÿC45$ C CÆglt glt  4gx  4gy   4gfilenamefsrfi/srfi-67/compare.scmŒ r ŒŒ  t ŒŒ t ŒŒ $ t /ŒŒ 0 t +ŒŒ    4 gnameg compare-by<ŒC&Rh(]4L5$ C4L5$ ÿC C‡gx  #gy  #gfilenamefsrfi/srfi-67/compare.scmŒ x ŒŒ  x ŒŒ  x ŒŒ  x .ŒŒ  x *ŒŒ  # Ch8Î) 3OC]45$ C45$ ÿC CÆggt ggt  4gx  4gy   4gfilenamefsrfi/srfi-67/compare.scmŒ w ŒŒ  y ŒŒ y ŒŒ # y .ŒŒ / y *ŒŒ    4 gnameg compare-by>ŒC*Rh(]4L5$4L5$ C ÿC C‡gx  #gy  #gfilenamefsrfi/srfi-67/compare.scmŒ } ŒŒ  } ŒŒ  } ŒŒ  } ,ŒŒ  } (ŒŒ  # Ch8Ï) 3OC]45$45$ C ÿC CÇgle gle  4gx  4gy   4gfilenamefsrfi/srfi-67/compare.scmŒ | ŒŒ  ~ ŒŒ ~ ŒŒ ! ~ ,ŒŒ - ~ (ŒŒ    4 gnameg compare-by<=ŒC'Rh(]4L5$4L5$ C C ÿC‡gx  #gy  #gfilenamefsrfi/srfi-67/compare.scmŒ ‚ ŒŒ  ‚ ŒŒ  ‚ ŒŒ  ‚ ,ŒŒ  ‚ (ŒŒ  # Ch8Ï) 3OC]45$45$ C C ÿCÇgge gge  4gx  4gy   4gfilenamefsrfi/srfi-67/compare.scmŒ  ŒŒ  ƒ ŒŒ ƒ ŒŒ ! ƒ ,ŒŒ - ƒ (ŒŒ    4 gnameg compare-by>=ŒC+Rh(]4L5$ C4L5$ ÿC C‡gx  #gy  #gfilenamefsrfi/srfi-67/compare.scmŒ ‡ ŒŒ  ‡ "ŒŒ  ‡ ŒŒ  ‡ 1ŒŒ  ‡ -ŒŒ  # Ch8ð) 3OC]45$ C45$ ÿC Cègeq glt geq  6glt  6gx   6gy   6gfilenamefsrfi/srfi-67/compare.scmŒ † ŒŒ  ˆ "ŒŒ " ˆ ŒŒ % ˆ 1ŒŒ 1 ˆ -ŒŒ    6 gnameg compare-by=/<ŒC(Rh(]4L5$ C4L5$ C ÿC‡gx  #gy  #gfilenamefsrfi/srfi-67/compare.scmŒ Œ ŒŒ  Œ "ŒŒ  Œ ŒŒ  Œ 1ŒŒ  Œ -ŒŒ  # Ch8ð) 3OC]45$ C45$ C ÿCègeq ggt geq  6ggt  6gx   6gy   6gfilenamefsrfi/srfi-67/compare.scmŒ ‹ ŒŒ   "ŒŒ "  ŒŒ %  1ŒŒ 1  -ŒŒ    6 gnameg compare-by=/>ŒC)R4YEZ]Ýéh-]C%gdummy     Cêh=]C5gdummy  gc1     Cìùúûýh]]ŒŒŒŒŒŒCUgdummy  gc1  gc2   gcs      C‘’ hPâ]45$@45$@45$@ 6Úgx  Pgtmp Pgtmp  " Pgtmp  9 Pgfilenamefsrfi/srfi-67/compare.scmŒ ’ ŒŒ  P g macro-typeg syntax-rulesŒgpatternsgc1gc1gc2gcsg...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-rulesŒgpatternsgxgygclauseg...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-rulesŒgpatternsgelsegcsg...gtxgtygcsg...gclauseg...C5-R4Y{Z]a’”—h(f]ŒŒŒC^gdummy  &gtype?  &g type-name   &gx   &  & C_£¤h u]Cmgdummy  gtype?  g type-name   gx   gy      C‘’h@ì]45$@45$@6ägx  9gtmp 9gtmp  " 9gfilenamefsrfi/srfi-67/compare.scmŒ » ŒŒ  9 g macro-typeg syntax-rulesŒgpatternsgtype?g type-namegxgtype?g type-namegxgyC5{R4Y¥Z]­¹º»¾¿ÀÃÄÅÈÉÊËÍh€Š]Œ ŒŒŒ ŒŒ   ŒŒŒ ŒŒ   ŒŒŒŒŒC‚gdummy  }gcompare  }g=   }g<   }gtype?   }g type-name   }  } C‘’h(Ç] 45$@6¿gx  "gtmp "gfilenamefsrfi/srfi-67/compare.scmŒ à ŒŒ  " g macro-typeg syntax-rulesŒgpatternsgcompareg=g"G45$"445>"G$ $ C C$ ÿC CÆgx  ugy  ugfilenamefsrfi/srfi-67/compare.scmŒ Ï ŒŒ  Ð ŒŒ  Ð ŒŒ  Ð ŒŒ G Ð ŒŒ I Ð ŒŒ ` Ñ ŒŒ f Ñ ŒŒ p Ñ ŒŒ  u gnamegboolean-compareŒCRÐiÑÒˆ‘“Ó•hh¬]45$G& C45$!4L5$ C45$ ÿC C456456¤gx  egy  egfilenamefsrfi/srfi-67/compare.scmŒ Ó ŒŒ J ã ŒŒ L Ó 7ŒŒ N ã ŒŒ P Ó ŒŒ [ ã ŒŒ ] Ó 7ŒŒ _ ã ŒŒ a Ó ŒŒ  e CO$RÔiÕiш‘“Ó•hh¬]45$G& C45$!4L5$ C4L5$ ÿC C456456¤gx  egy  egfilenamefsrfi/srfi-67/compare.scmŒ Õ ŒŒ J ã ŒŒ L Õ @ŒŒ N ã ŒŒ P Õ ŒŒ [ ã ŒŒ ] Õ @ŒŒ _ ã ŒŒ a Õ ŒŒ  e CO%RÖi×i؈‘“Ù•hh¬]45$G& C45$!4L5$ C4L5$ ÿC C456456¤gx  egy  egfilenamefsrfi/srfi-67/compare.scmŒ × ŒŒ J ã ŒŒ L × ?ŒŒ N ã ŒŒ P × ŒŒ [ ã ŒŒ ] × ?ŒŒ _ ã ŒŒ a × ŒŒ  e COLRÚiÛi؈‘“Ù•hh¬]45$G& C45$!4L5$ C4L5$ ÿC C456456¤gx  egy  egfilenamefsrfi/srfi-67/compare.scmŒ Ù ŒŒ J ã ŒŒ L Ù HŒŒ N ã ŒŒ P Ù ŒŒ [ ã ŒŒ ] Ù HŒŒ _ ã ŒŒ a Ù ŒŒ  e COMRˆ‘“Ü•LÝhhÍ]Š$"445>"GŠ$"445>"G45456Ågx  dgy  dgfilenamefsrfi/srfi-67/compare.scmŒ Û ŒŒ  Ü ŒŒ  Ü ŒŒ  Ü ŒŒ ? Ü ŒŒ A Ü ŒŒ U Ý ŒŒ \ Ý %ŒŒ d Ý ŒŒ  d gnamegsymbol-compareŒCGRÛˆ‘“Þ•h`¬]45$?& C45$‘$ C’$ ÿC C456456¤gx  ]gy  ]gfilenamefsrfi/srfi-67/compare.scmŒ ß ŒŒ B ã ŒŒ D ß 3ŒŒ F ã ŒŒ H ß ŒŒ S ã ŒŒ U ß 3ŒŒ W ã ŒŒ Y ß ŒŒ  ] C7R߈‘“à•h`¬]45$?& C45$‘$ C’$ ÿC C456456¤gx  ]gy  ]gfilenamefsrfi/srfi-67/compare.scmŒ á ŒŒ B ã ŒŒ D á 5ŒŒ F ã ŒŒ H á ŒŒ S ã ŒŒ U á 5ŒŒ W ã ŒŒ Y á ŒŒ  ] CCRሑ“â•h`Œ]45$?& C45$‘$ C’$ ÿC C456456„gx  ]gy  ]gfilenamefsrfi/srfi-67/compare.scmŒ ã ŒŒ D ã -ŒŒ F ã ŒŒ U ã -ŒŒ W ã ŒŒ  ] CDR㈑“ä•DåæŠá hÐY] 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-compareŒC,R爑“è•,hh»]45$"445>"G45$"445>"G6³gx  bgy  bgfilenamefsrfi/srfi-67/compare.scmŒ ì ŒŒ  í ŒŒ  í ŒŒ  í ŒŒ G í ŒŒ I í ŒŒ b î ŒŒ  b gnamegnumber-compareŒC>Rh†]L6~gx  gy  gfilenamefsrfi/srfi-67/compare.scmŒ ô ŒŒ  õ ŒŒ õ ŒŒ õ ŒŒ  Ch~]OCvgcompare  gfilenamefsrfi/srfi-67/compare.scmŒ ó ŒŒ  gnamegpair-compare-carŒC@Rh†]LŽŽ6~gx  gy  gfilenamefsrfi/srfi-67/compare.scmŒ ø ŒŒ  ù ŒŒ ù ŒŒ ù ŒŒ  Ch~]OCvgcompare  gfilenamefsrfi/srfi-67/compare.scmŒ ÷ ŒŒ  gnamegpair-compare-cdrŒCARˆŠ?/hØZ)>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-compareŒC?R9ˆŠ/ÆÉÍhÐ’)3 4545$ $ C ÿC$ C445455 ÿ†$ ÿC †$45456 †$ C6)36)36]6Šgcompare ‡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-compareŒC9R9ˆŠ:/ÆÉÍ hè±)™3 "P4545 $ $ "9 ÿ"3 $ "(4545"ÿÿ¶ "ÿÿ¤ ÿ†$ ÿC †$6 †$ C6)36)36]6©gcompare Ÿ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-vectorŒC:R7ˆŠH/éêhè±) 3 454545 ÿ†$ ÿC †$\"Q‘$ C445455  ÿ†$ ÿC †$ —"ÿÿ¿ †$ C6 "ÿÿ¨ †$ C6)36)36]6©gcompare ¦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 ŒŒ ¦  ¯ ½  Æ Ô  Ö ä CHRë7ˆŠI/éê hÈ›)‚3 454545"W‘$6445455  ÿ†$ ÿC †$ —"ÿÿ¹ †$ C6 "ÿÿ¢)36)36]6“gcompare ˆ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ç>Hìh€¹]( ( 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‹$ C6±gx  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-compareŒC/RˆíîïöÑ÷øvJyh(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 ‘$"NC·gx  ž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œ]HHOC”gc  gz?  gz   gfilenamefsrfi/srfi-67/compare.scmŒ r ŒŒ   ŒŒ   gnameg debug-compareŒC.RC÷gm  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