GOOF----LE-8-2.0 ]U4h¤] gguile¤ ¤ gdefine-module*¤ ¤ ¤ gsrfi¤ gsrfi-38¤ ¤ gfilenameS¤ fsrfi/srfi-38.scm¤ gimportsS¤ grnrs¤ g bytevectors¤   ¤ ¤ gsrfi-8¤ ¤ ¤ gsrfi-69¤ ¤ ¤ gsystem¤ gvm¤ g trap-state¤ ¤ ¤ ¤ gexportsS¤ gwrite-with-shared-structure¤ gread-with-shared-structure¤ ¤ gset-current-module¤ ! ¤ " ¤ #gcond-expand-provide¤ $gcurrent-module¤ %¤ &gcurrent-output-port¤ 'g vector-length¤ (gstring?¤ )g string-length¤ *g bytevector?¤ +gport?¤ ,gdisplay¤ -f(¤ .f)¤ /f . ¤ 0ghash-table-ref¤ 1f ¤ 2f#(¤ 3gwrite¤ 4gnumber?¤ 5f#¤ 6gcounter¤ 7f=¤ 8ghash-table-set!¤ 9ghash-table-exists?¤ :gmake-hash-table¤ ;geq?¤ g peek-char¤ ?g eof-object?¤ @g list->string¤ Agreverse¤ Bg read-char¤ Cgstring->number¤ Dg char-numeric?¤ Eghash-table-ref/default¤ Fgerror¤ GfDouble declaration of part ¤ Hgread¤ IfUse of undeclared part ¤ JfMalformed shared part specifier¤ Kg with-fluid*¤ Lg%read-hash-procedures¤ Mgfor-each¤ Ngread-hash-extend¤ O0123456789 ¤ Pghash-table-size¤ Qgpatch!¤ Rg procedure?¤ Sghole?¤ Tg fill-hole¤C5hàž]4   54">"G4#i4$i5%>"G&'()*+h€\] ˆ$C‹$45 ‘€"$C45$45 ‘€"$C45$C¦$C45$CCTgobj  €gt ! €gt F €gt X €gt s €gfilenamefsrfi/srfi-38.scmŒ 9 ŒŒ  : ŒŒ : ŒŒ : ŒŒ  ; ŒŒ  ; ŒŒ  ; 'ŒŒ  ; ŒŒ  ; ŒŒ ! : ŒŒ - < ŒŒ 7 < ŒŒ 8 < 'ŒŒ ? < ŒŒ A < ŒŒ F : ŒŒ R = ŒŒ X : ŒŒ f > ŒŒ j : ŒŒ k > ŒŒ m ? ŒŒ s : ŒŒ  € gnameg interesting?ŒC,-./012'345678h@]"_ˆ$Æ4L>"G4L>"G"">(L64L>"G4L>"GL6ˆ$C45$"ÿÿª4L>"G4L>"GŽ"ÿÿt"ÿÿtŽ"ÿÿg‹$ƒ4L>"G454L £>"G"E‘$L64L>"G4L£>"G—"ÿÿ» "ÿÿ´ L64L5$È45$³4 5$04 L>"G4 L>"G L64 5—4 L>"G4 L>"G4 L>"G4 >"G4>"G"ÿýÒ"ÿýÎ L6úgobj  @gstate  @gobj  : Êglen  õ ]gi   Vgval  y 8gn  Æ 4gfilenamefsrfi/srfi-38.scmŒ N ŒŒ  O ŒŒ P ŒŒ P ŒŒ  Q ŒŒ  Q ŒŒ  Q ŒŒ " R ŒŒ ' R ŒŒ . R ŒŒ : S ŒŒ D T ŒŒ H Y ŒŒ L Y ŒŒ M [ ŒŒ Q [ ŒŒ X [ ŒŒ a \ ŒŒ x ] ŒŒ | ] ŒŒ | T ŒŒ  T ŒŒ ƒ T ŒŒ „ T ,ŒŒ T ŒŒ • U ŒŒ ™ U ŒŒ   U ŒŒ © V ŒŒ ® V !ŒŒ µ V ŒŒ À W !ŒŒ Æ W ŒŒ Ê S ŒŒ Í S "ŒŒ Ó S ŒŒ Ö ^ ŒŒ Ú P ŒŒ Û _ ŒŒ ß _ ŒŒ æ _ ŒŒ ï ` ŒŒ õ ` ŒŒ ø a ŒŒ þ a ŒŒ  a ŒŒ  b ŒŒ  c ŒŒ  c ŒŒ  c +ŒŒ " c "ŒŒ # d ŒŒ ' d &ŒŒ . d ŒŒ 7 e ŒŒ > e (ŒŒ E e ŒŒ P f (ŒŒ V f ŒŒ V b ŒŒ e h ŒŒ f i ŒŒ p i ŒŒ q j ŒŒ y j ŒŒ  k ŒŒ ‚ l ŒŒ Œ k ŒŒ  m ŒŒ ‘ m $ŒŒ ˜ m ŒŒ ¡ n ŒŒ ¸ o $ŒŒ ¼ o ŒŒ ½ q "ŒŒ à q 8ŒŒ Å q "ŒŒ Æ q ŒŒ Æ q ŒŒ É r ŒŒ Í r ŒŒ Ô r ŒŒ Ý s ŒŒ ñ t ŒŒ õ t ŒŒ ü t ŒŒ  u ŒŒ  u -ŒŒ  u ŒŒ  v ŒŒ 4 w ŒŒ 8 k ŒŒ @ y ŒŒ^  @ gnameg write-objŒC98'h¸›]4L5€$C45$ 64>"Gˆ$"4L>"GŽ"ÿÿ™‹$?45"+‘$C4L£>"G—"ÿÿÕ "ÿÿÎC“gobj  ±gstate  ±gt  ±glen  w ¯gi  } ¨gfilenamefsrfi/srfi-38.scmŒ ~ ŒŒ   ŒŒ  ŒŒ  ŒŒ  € ŒŒ "  ŒŒ + ŒŒ , ƒ ŒŒ C „ ŒŒ G „ ŒŒ H … ŒŒ M … ŒŒ T … ŒŒ _ † ŒŒ i † ŒŒ l ‡ ŒŒ p „ ŒŒ q ˆ ŒŒ w ˆ ŒŒ } ‰ ŒŒ ‚ Š ŒŒ † ‰ ŒŒ ‰ ‹ ŒŒ ‹ ŒŒ — ‹ ŒŒ ¢ ‰ ŒŒ ¨ ‰ ŒŒ  ± gnamegscanŒC:;86 hˆL-.,3#45#OOQQ454>"G4 >"G6Dgobj ƒgoutport ƒgoptarg  ƒg interesting?  9 ƒg write-obj  9 ƒgscan  9 ƒgstate  P ƒgfilenamefsrfi/srfi-38.scmŒ . ŒŒ  0 /ŒŒ J ŒŒ P ŒŒ S Ž ŒŒ g ŒŒ m ŒŒ s ŒŒ ƒ ŒŒ ƒ gnamegwrite-with-shared-structureŒCR<:=>?@ABhX7]"G4L545$"45€$ 4564L5Œ"ÿÿ¹"ÿÿ±/gpred  Uginitial  Ugchars   Mgc  Mgt   .gfilenamefsrfi/srfi-38.scmŒ › ŒŒ  œ ŒŒ  ŒŒ ŒŒ  ž ŒŒ  ž ŒŒ $ ž 'ŒŒ + ž "ŒŒ 2 ž ŒŒ 5 Ÿ ŒŒ = Ÿ ŒŒ >   ŒŒ G   ŒŒ M   ŒŒ M œ ŒŒ  U gnamegread-some-charsŒCCDBEFG8h_]LCWgfilenamefsrfi/srfi-38.scmŒ « ŒŒ  « $ŒŒ   gnamegthunkŒCHIJ h¨Ò]*44L55454L5=†$P$4>"G"4LO>"G4 5C#†$$C 6 6Êgc  £gport  £gn   £gc   £gthunk  ( £gcell  U ƒgobj  y ƒgfilenamefsrfi/srfi-38.scmŒ ¢ ŒŒ  £ ŒŒ  £ ŒŒ  £ ?ŒŒ  £ ŒŒ  £ ŒŒ  £ ŒŒ  ¤ ŒŒ  £ ŒŒ  ¥ ŒŒ ( £ ŒŒ 3 ¦ ŒŒ 9 ¨ ŒŒ : © ŒŒ > © ŒŒ E © ŒŒ U ª ŒŒ U ª ŒŒ X ¬ ŒŒ s ­ ŒŒ y ­ ŒŒ € ® ŒŒ Œ ¦ ŒŒ ’ ± ŒŒ ™ ² ŒŒ ² ŒŒ ¡ ´ ŒŒ £ ´ ŒŒ  £ gnameg read-hashŒCKLMNha]L6Ygdigit  gfilenamefsrfi/srfi-38.scmŒ ¸ ŒŒ ¹ ŒŒ  COHPQhPª]4LO>"G4L5 4L5’$4>"G"C¢gresult " Jgfilenamefsrfi/srfi-38.scmŒ · ŒŒ  ¸ ŒŒ  º ŒŒ  ¸ ŒŒ  » ŒŒ " » ŒŒ & ¼ ŒŒ - ¼ ŒŒ 1 ¼ ŒŒ 2 ½ ŒŒ  J C hXî-.,3#4545OOQQ[O6ægport Sg parts-table Sgread-some-chars  3 Sg read-hash  3 Sgfilenamefsrfi/srfi-38.scmŒ — ŒŒ  — 6ŒŒ  ˜ ŒŒ ˜ ŒŒ S ¶ ŒŒ S gnamegread-with-shared-structureŒCRRhn]6fgx  gfilenamefsrfi/srfi-38.scmŒ À ŒŒ  À ŒŒ   gnameghole?ŒCSRSTh ]45$ 456C…gx  gfilenamefsrfi/srfi-38.scmŒ Á ŒŒ  Á ŒŒ Á ŒŒ  Á /ŒŒ  Á $ŒŒ   gnameg fill-holeŒCTRSTQ'hÀù]ˆ$N45$45"4>"G4Ž5$ 4Ž5CŽ6‹$\"J ’$C£45$45¤"4>"G™"ÿÿ¶45™"ÿÿ¨Cñgx  ¼gi b ¬gelt  q £gfilenamefsrfi/srfi-38.scmŒ à ŒŒ  Å ŒŒ Ä ŒŒ Æ ŒŒ  Æ ŒŒ  Æ ŒŒ  Æ ŒŒ  Æ $ŒŒ  Æ /ŒŒ  Æ $ŒŒ Æ ŒŒ % Æ 9ŒŒ * Æ AŒŒ / Æ 9ŒŒ 8 Ç ŒŒ = Ç ŒŒ ? Ç ŒŒ C Ç ŒŒ F Ç $ŒŒ K Ç /ŒŒ M Ç $ŒŒ N Ç ŒŒ U Ç AŒŒ W Ç 9ŒŒ Z È ŒŒ ^ Ä ŒŒ b É ŒŒ f Ê ŒŒ j É ŒŒ q Ë ŒŒ q Ë ŒŒ t Ì ŒŒ ~ Ì ŒŒ ƒ Í ŒŒ Š Í ŒŒ Î ŒŒ ¦ É $ŒŒ ¬ É ŒŒ ­ É ŒŒ ´ É ŒŒ º É ŒŒ*  ¼ gnamegpatch!ŒCQRC–gm  ,gfilenamefsrfi/srfi-38.scmŒ   ŒŒ - " ŒŒ 2 " ŒŒ : " &ŒŒ ? " ŒŒ  . ŒŒ ¹ — ŒŒ A À ŒŒ  Á ŒŒ Ü Ã ŒŒ  Þ C6