GOOF----LE-8-2.0àR]¤4h ] gguile¤ ¤ gdefine-module*¤ ¤ ¤ gice-9¤ gftw¤ ¤ gfilenameS¤ f ice-9/ftw.scm¤ gimportsS¤ gmatch¤  ¤  ¤ gvlist¤ ¤ ¤ gsrfi¤ gsrfi-1¤ ¤ ¤ ¤ gexportsS¤ gnftw¤ gfile-system-fold¤ gfile-system-tree¤ gscandir¤ ¤ g autoloadsS¤ gi18n¤ ¤ gstring-localeggetgid¤ ?g stat:perms¤ @gstat:uid¤ Agstat:gid¤ Bgstat-dir-readable?-proc¤ Cgmemq¤ Dgdepth¤ Egdirectory-processed¤ Fg directory¤ Gg nftw-style¤ Hg stale-symlink¤ Igsymlink¤ Jgphysical¤ Kgcatch¤ LK¤ MK¤ Nglstat¤ Og stat:type¤ Pgstat¤ Qgdirectory-not-readable¤ Rgregular¤ Sg invalid-stat¤ Tgstat&flag-proc¤ Ugclean¤ Vg hash-size¤ Wgthrow¤ Xgftw-early-exit¤ Ygfor-each¤ Zggetcwd¤ [gmount¤ \gchdir¤ ]gnftw-early-exit¤ ^gmake-syntax-transformer¤ _^¤ `^¤ agerrno-if-exception¤ bgmacro¤ cg $sc-dispatch¤ dc¤ ec¤ fgany¤ gff¤ hg syntax-object¤ igtop¤ ji¤ kgribcage¤ lgdummy¤ mgexpr¤ nlm¤ og m-c0b95d8-107¤ poi¤ qpj¤ rf l-c0b95d8-10c¤ sf l-c0b95d8-10d¤ trs¤ uknqt¤ vk¤ wgx¤ xw¤ yp¤ zf l-c0b95d8-109¤ {z¤ |kxy{¤ }juv|¤ ~ghygiene¤ ~¤ €hK}¤ gquote¤ ‚h}¤ ƒg system-error¤ „hƒ}¤ …‚„¤ †glambda¤ ‡h†}¤ ˆgargs¤ ‰hˆ}¤ Šgsystem-error-errno¤ ‹hŠ}¤ Œ‹‰¤ ‡‰Œ¤ Ž¤ gsyntax-violation¤ ¤ ‘¤ ’f-source expression failed to match any pattern¤ “ginteger?¤ ”g vhash-assoc¤ •g vhash-cons¤ –gdirectory-stream?¤ —gfold¤ ˜gcons¤ ™g alist-cons¤ šg vlist-null¤ ›gbasename¤ œgerror¤  œ¤ ž œ¤ Ÿfno matching pattern¤  ¤ ¡gconst¤ ¢gand=>¤ £gsort¤C5hPG¾]4   "5 4%>"G&'()*+,h€s]!45"`45$4>"GC4545$" 45$"Œ"ÿÿ 45"ÿÿkgdir  g dir-stream gnew   ogacc   ogt  ? Xgfilenamef ice-9/ftw.scmŒ É ŒŒ  Ê ŒŒ Ê ŒŒ  Ë ŒŒ  Í ŒŒ  Í ŒŒ  Ï ŒŒ 0 Ñ ŒŒ 7 Ò ŒŒ ; Ò "ŒŒ ? Ò ŒŒ ? Ò ŒŒ M Ó ŒŒ Q Ó "ŒŒ U Ó ŒŒ \ Ò ŒŒ g Õ ŒŒ o Ñ ŒŒ o Ë ŒŒ p Ë ŒŒ w Ì ŒŒ  Ë ŒŒ   gnamegdirectory-filesŒC-R*./012hhJ-13"J(-45$"$C 456Ž45"ÿÿ¶"ÿÿªBgnodes cgnodes Wgresult  Wgt  ' @gfilenamef ice-9/ftw.scmŒ × ŒŒ Ø ŒŒ  Ú ŒŒ  Û ŒŒ  Û ŒŒ  Û ŒŒ Û ŒŒ " Û &ŒŒ ' Û ŒŒ 8 Ü ŒŒ @ Ü ŒŒ C Ý ŒŒ D Ý ŒŒ J Ý 0ŒŒ M Ý 4ŒŒ O Ý ŒŒ W Ý ŒŒ W Ø ŒŒ [ Ù ŒŒ c Ø ŒŒ c gnamegpathifyŒC3R45hz]/4 56rgfilename  gfilenamef ice-9/ftw.scmŒ ß ŒŒ  à ŒŒ  à ŒŒ   gnamegabs?ŒC6R789:7;hˆ!]$y4L45545HJ$"$4L5K4L45J>"G4J5$C4J>"GCCgs  ƒgino-hash  gino   gt  # Vgt  _ gfilenamef ice-9/ftw.scmŒ ñ ŒŒ  ò ŒŒ ó ŒŒ  ó /ŒŒ  ó ŒŒ  ô ŒŒ  ó ŒŒ # õ ŒŒ 0 ÷ "ŒŒ 8 ÷ ŒŒ 9 ø ŒŒ > ø (ŒŒ K ø ŒŒ W ù ŒŒ _ ù ŒŒ k û ŒŒ  ƒ Ch”] 4 5OCŒgsize  gdev-hash gfilenamef ice-9/ftw.scmŒ ï ŒŒ  𠌌 𠌌   gnameg visited?-procŒC?@AhpM]45L ‘$CL45‘$  ‘€"$CL45‘$  ‘€"$C  ‘€CEgs  pgperms pgt   pgt  6 pgt  \ pgfilenamef ice-9/ftw.scmŒ  ŒŒ   ŒŒ  ŒŒ   ŒŒ   ŒŒ   ŒŒ $  ŒŒ (  ŒŒ /  )ŒŒ 0  $ŒŒ 1  ŒŒ 6  ŒŒ D  ŒŒ K  ŒŒ O  ŒŒ U  )ŒŒ V  $ŒŒ W  ŒŒ \  ŒŒ m  )ŒŒ n  $ŒŒ o  ŒŒ  p Ch Ä]4545OC¼guid  ggid  guid  ggid  gfilenamef ice-9/ftw.scmŒ þ ŒŒ  ÿ ŒŒ   ŒŒ ÿ ŒŒ   gnamegstat-dir-readable?-procŒCBRCDEFGHIJMNhJ]L6Bgfilenamef ice-9/ftw.scmŒ  ŒŒ   #ŒŒ   ChV-13CNgargs gfilenamef ice-9/ftw.scmŒ  ŒŒ CIOPhJ]L6Bgfilenamef ice-9/ftw.scmŒ  ŒŒ   3ŒŒ   ChV-13CNgargs gfilenamef ice-9/ftw.scmŒ  ŒŒ CFQRS h¸×]4O5$˜45&Z4O5$=L$D45&4L5$L" " DLD45&4L5$L" " D DÏgname  ·gs  ·gs-follow  5 €gtype  R xgtype  ‰ ¯gfilenamef ice-9/ftw.scmŒ  ŒŒ   ŒŒ   ŒŒ   ŒŒ   ŒŒ   ŒŒ &  ŒŒ '  ŒŒ 5  ŒŒ = ! ŒŒ C # ŒŒ G $ "ŒŒ I $ ŒŒ L  "ŒŒ R  ŒŒ V  !ŒŒ \  ŒŒ ]  ŒŒ g  ŒŒ o  ŒŒ u  ŒŒ z & ŒŒ € " ŒŒ ƒ  "ŒŒ ‰  ŒŒ  !ŒŒ “  ŒŒ ”  ŒŒ ž  ŒŒ ¦  ŒŒ ¬  ŒŒ ± ' ŒŒ µ  ŒŒ ·  ŒŒ#  · C hPˆ-1345$"45$"45 OC€g dir-readable? Pg control-flags Pgdirectory-flag   Pgstale-symlink-flag  5 Pg physical?  @ Pgfilenamef ice-9/ftw.scmŒ  ŒŒ  ŒŒ   #ŒŒ   ŒŒ   ŒŒ   ŒŒ   ŒŒ   ŒŒ !  !ŒŒ %  'ŒŒ )  !ŒŒ -  ŒŒ /  !ŒŒ 5  !ŒŒ 5  ŒŒ 8  ŒŒ <  ŒŒ @  ŒŒ @  ŒŒ P gnamegstat&flag-procŒCTR045/h0É] 45™4/455$  6CÁgname  ,glast-char-index ,gfilenamef ice-9/ftw.scmŒ ) ŒŒ  * ŒŒ * ŒŒ * ŒŒ + ŒŒ  + ŒŒ  + ŒŒ + ŒŒ ) , ŒŒ  , gnamegcleanŒCUR<CVTB=>WXFY3hg]L4L56_gchild  gfilenamef ice-9/ftw.scmŒ = #ŒŒ  > )ŒŒ  > %ŒŒ   C-h€4]4L> G4L5$C4L5&"4>"G&$4LO45>"G"C,gfullname  €gs €gflag  €gt   €gret  1 €gfilenamef ice-9/ftw.scmŒ 4 ŒŒ  5 0ŒŒ  5 ŒŒ  7 ŒŒ  7 ŒŒ ' 8 &ŒŒ 1 8 ŒŒ : 9 ŒŒ ? : !ŒŒ C : (ŒŒ J : !ŒŒ T ; 'ŒŒ Z ; ŒŒ [ < "ŒŒ g ? #ŒŒ r < "ŒŒ  € gnameggoŒCKXUhS]L4L56Kgfilenamef ice-9/ftw.scmŒ B ŒŒ  B ŒŒ B ŒŒ  Chd]C\gkey  gval  gfilenamef ice-9/ftw.scmŒ C ŒŒ   C hpv-13445$Ž" Ó544454555OQ   O 6ngfilename lgproc lgoptions  lgt   +gvisited?  - lg stat&flag  C lggo  P lgfilenamef ice-9/ftw.scmŒ / ŒŒ 0 ŒŒ 0 )ŒŒ  0 /ŒŒ  0 )ŒŒ  0 "ŒŒ - 0 ŒŒ - 0 ŒŒ 0 2 ŒŒ 3 3 ŒŒ 6 3 .ŒŒ ; 3 7ŒŒ A 3 ŒŒ C 2 ŒŒ C 0 ŒŒ P 4 ŒŒ _ A ŒŒ l A ŒŒ l  gnamegftwŒCRZMNhJ]L6Bgfilenamef ice-9/ftw.scmŒ G ŒŒ  G ,ŒŒ   ChV-13CNgargs gfilenamef ice-9/ftw.scmŒ G ŒŒ C9C[9hc]45L‘C[gs  gfilenamef ice-9/ftw.scmŒ J ŒŒ  J 'ŒŒ J $ŒŒ  ChQ]CIgs  gfilenamef ice-9/ftw.scmŒ K ŒŒ   C\6\/h ] ‘$C4 56•gfullname  gbase  gt   gfilenamef ice-9/ftw.scmŒ O ŒŒ  P !ŒŒ  P ŒŒ  L 'ŒŒ  Q !ŒŒ   C\3/hŽ]4L4 556†gfullname  gbase  gfilenamef ice-9/ftw.scmŒ R ŒŒ  T ŒŒ L 'ŒŒ  T ŒŒ  S ŒŒ   Chj]Cbgfullname  gbase  gfilenamef ice-9/ftw.scmŒ U ŒŒ   C\hJ]L6Bgfilenamef ice-9/ftw.scmŒ W ŒŒ  W 'ŒŒ   ChA]C9gfilenamef ice-9/ftw.scmŒ X ŒŒ   CD<VEhf]‚C^gflag  gfilenamef ice-9/ftw.scmŒ ^ ŒŒ  ^ 1ŒŒ  ^ 'ŒŒ   CFhf]‚C^gflag  gfilenamef ice-9/ftw.scmŒ _ ŒŒ  _ 1ŒŒ  _ 'ŒŒ   CTB=>GY30h ‚]L4L54L5—L—6zgchild  gfilenamef ice-9/ftw.scmŒ q .ŒŒ  r 4ŒŒ  s 8ŒŒ  s 4ŒŒ  u 4ŒŒ  r 0ŒŒ   C-W]30h ‚]L4L54L5—L—6zgchild  gfilenamef ice-9/ftw.scmŒ q .ŒŒ  r 4ŒŒ  s 8ŒŒ  s 4ŒŒ  u 4ŒŒ  r 0ŒŒ   Chh?]+4L> G4L5$"14L5€$"L$Œ4L5$&4LO45>"G"4L>"G4L54L>"G&"4>"G"ˆ4L>"G4L54L>"G&"4>"G4L5$&4LO45>"G"C7gfullname  cgbase  cglevel   cgs  agflag  agt   [gt  / Xgret  • Égret  ð $ gfilenamef ice-9/ftw.scmŒ c ŒŒ  d 0ŒŒ  d ŒŒ  w ŒŒ  w ŒŒ ( x "ŒŒ / x ŒŒ / w ŒŒ A y ŒŒ B o -ŒŒ L o (ŒŒ M p -ŒŒ [ v .ŒŒ f p -ŒŒ s g (ŒŒ ‡ i 3ŒŒ • i (ŒŒ ˜ k *ŒŒ ® l *ŒŒ ³ m .ŒŒ · m 5ŒŒ ¾ m .ŒŒ Î g (ŒŒ â i 3ŒŒ ð i (ŒŒ ó k *ŒŒ  l *ŒŒ  m .ŒŒ  m 5ŒŒ  m .ŒŒ % o -ŒŒ / o (ŒŒ 0 p -ŒŒ > v .ŒŒ I p -ŒŒ$  c gnameggoŒCK]UhS]L4L5 6Kgfilenamef ice-9/ftw.scmŒ ~ ŒŒ  ~ 'ŒŒ  ~ #ŒŒ   Chd]C\gkey  gval  gfilenamef ice-9/ftw.scmŒ  ŒŒ   C\!hH¤-13454O5$ 45" ÿ45$ O" 4 5$4 5$ " O"4 5$ O"45445  $ Ž" Ó 5 $" 4445455? O      Q 4 O5 4 >"G Cœgfilename Ggproc Gg control-flags  Ggod   Ggs   7godev  7 Gg same-dev?  S Ggmaybe-cd  € Gg maybe-cd-back  œ Gg depth-first?  § Ggt µ Ëgvisited? Í Gg has-kids? Ý Gg stat&flag ÷ Gggo  Ggret 0 Ggfilenamef ice-9/ftw.scmŒ E ŒŒ F ŒŒ  F ŒŒ  G ŒŒ  G ŒŒ ' H ŒŒ ( H ŒŒ 7 F ŒŒ : I ŒŒ > I ŒŒ B I ŒŒ F I ŒŒ S F ŒŒ V M ŒŒ Z M ŒŒ ^ M ŒŒ b M ŒŒ c N ŒŒ m N ŒŒ € F ŒŒ ƒ V ŒŒ ‡ V "ŒŒ ‹ V ŒŒ V ŒŒ œ F ŒŒ Ÿ Y ŒŒ £ Y ŒŒ § Y ŒŒ § F ŒŒ ª Z ŒŒ ­ [ ŒŒ ± [ !ŒŒ µ [ ŒŒ µ [ ŒŒ Í Z ŒŒ Í F ŒŒ Õ ] ŒŒ Ý F ŒŒ à ` ŒŒ ã a ŒŒ æ a 4ŒŒ ë a =ŒŒ ñ a ŒŒ ó b !ŒŒ ÷ ` ŒŒ ÷ F ŒŒ  c ŒŒ  } ŒŒ # } ŒŒ 0 } ŒŒ 0 } ŒŒ 3 € ŒŒ5 G  gnamegnftwŒCR4`abeg€…‡Žh?]ŒŒŒC7gdummy  gexpr     C‘’h(™] 45$@6‘gx  "gtmp "gfilenamef ice-9/ftw.scmŒ ˆ ŒŒ  " g macro-typeg syntax-rulesŒgpatternsgexprC5aRN*.12“”9:FOKƒ&hJ]M6Bgfilenamef ice-9/ftw.scmŒ ¸ ŒŒ  ¸ -ŒŒ   CŠhV-136Ngargs gfilenamef ice-9/ftw.scmŒ ¸ ŒŒ  C•–'(—˜hn]LLMLŽLLŽ6fgfilenamef ice-9/ftw.scmŒ Å ,ŒŒ  Æ 4ŒŒ È 4ŒŒ  É 4ŒŒ  Ê 4ŒŒ  Æ .ŒŒ   Ch {]4LLO>6<sgsubdir  gresult+visited  gfilenamef ice-9/ftw.scmŒ à &ŒŒ  Ä (ŒŒ   C+,)hJ]LL6Bgfilenamef ice-9/ftw.scmŒ × %ŒŒ  × 9ŒŒ   CŠhV-136Ngargs gfilenamef ice-9/ftw.scmŒ × %ŒŒ  C™h(î]EH45$" 45K45$ LJ644545Œ5$D 4 5&¯4LJ5$|4   O544545Œ545$5"45$:4>"G4LO Œ 5 4LJ 5 ŽD45  $" 45 $45    "ÿÿ€4J5 4   LO5 4 5$454L   5   "ÿÿ54  5 &45 4  5  "ÿÿ 454L   5   "ÿþì454LJ5  "ÿþÏ4LJ5D4LJ544545Œ5DLJ6ægname  !gpath  !gdir-stat   !gresult   !gvisited   !g full-name   !gdir  ž ógvisited  ž ógentry  ± Ågresult ± Ågsubdirs ± Ågr+v ã ögt ÿ gchild < Ågst P Ågfilenamef ice-9/ftw.scmŒ ¥ ŒŒ  ¬ ŒŒ ¬ ŒŒ  ¬ ŒŒ  ¬ ŒŒ  ® ŒŒ  ® ŒŒ # ® ŒŒ & ± ŒŒ 0 ° ŒŒ ; ³ ŒŒ < £ ŒŒ ? £ ŒŒ F £ $ŒŒ M £ ŒŒ Q £ ŒŒ U ° ŒŒ [ µ ŒŒ ] ¶ ŒŒ ^ ¶ ŒŒ h ° ŒŒ i · ŒŒ w · ŒŒ x ¸ ŒŒ ˆ   ŒŒ ‹   ŒŒ ’   #ŒŒ ™   ŒŒ ž   ŒŒ ž ¸ ŒŒ £ » ŒŒ ­ º ŒŒ ± ¼ ŒŒ ² ¿ ŒŒ ¼ ¿ ŒŒ ½ Á ŒŒ Ï à ŒŒ ß Ì &ŒŒ ã à ŒŒ ã  ŒŒ æ Î #ŒŒ ï Î :ŒŒ ñ Î #ŒŒ ô Ï #ŒŒ ö Î ŒŒ ÷ Ð ŒŒ ý Ð +ŒŒ ÿ Ð ŒŒ ÿ Ð ŒŒ  Ñ ŒŒ  Ñ +ŒŒ  Ñ ŒŒ  ¿ ŒŒ  Ò ŒŒ 1 Ò ŒŒ 2 Ö %ŒŒ 8 Ö >ŒŒ < Ö %ŒŒ < Ö ŒŒ ? × %ŒŒ P Ö ŒŒ S Ø ŒŒ ] Ø ŒŒ ^ Ù #ŒŒ e Ú #ŒŒ | Ù ŒŒ } Ü &ŒŒ … Ü 5ŒŒ ‰ Ü ŒŒ Š Ý 'ŒŒ “ ß 'ŒŒ § Ý !ŒŒ ¨ à 'ŒŒ ¯ á 'ŒŒ Å à !ŒŒ Å ¼ ŒŒ Æ ¼ "ŒŒ Í ½ "ŒŒ Ø ¾ "ŒŒ â ¼ ŒŒ ã å ŒŒ ó å ŒŒ ô ç ŒŒ ÿ   ŒŒ    ŒŒ    #ŒŒ    ŒŒ    ŒŒ  ç ŒŒ ! ë ŒŒ[  ! gnamegloopŒC.KƒhJ]LL6Bgfilenamef ice-9/ftw.scmŒ § ŒŒ  § +ŒŒ   CŠhV-136Ngargs gfilenamef ice-9/ftw.scmŒ § ŒŒ  Cš hXJ-. , 3 #O  Q  4O56Bgenter? Vgleaf Vgdown  Vgup  Vgskip  Vgerror  Vginit  Vg file-name  Vgstat  Vgloop % V gfilenamef ice-9/ftw.scmŒ  ŒŒ % ¥ ŒŒ > ¦ ŒŒ ? § ŒŒ V ¥ ŒŒ V  gnamegfile-system-foldŒg documentationf÷Traverse the directory at FILE-NAME, recursively. Enter sub-directories only when (ENTER? PATH STAT RESULT) returns true. When a sub-directory is entered, call (DOWN PATH STAT RESULT), where PATH is the path of the sub-directory and STAT the result of (stat PATH); when it is left, call (UP PATH STAT RESULT). For each file in a directory, call (LEAF PATH STAT RESULT). When ENTER? returns false, call (SKIP PATH STAT RESULT). When an `opendir' or STAT call raises an exception, call (ERROR PATH STAT ERRNO RESULT), with ERRNO being the operating system error number that was raised. Return the result of these successive applications. When FILE-NAME names a flat file, (LEAF PATH STAT INIT) is returned. The optional STAT parameter defaults to `lstat'.ŒCRh`]CXgn  gs  gfilenamef ice-9/ftw.scmŒ î .ŒŒ   CN™›ž Ÿh`è]ˆ$IŽ‰$+‰$4455ŒC456456456àgname  _gstat  _gresult   _gw   Rgx   Rgfilenamef ice-9/ftw.scmŒ û ŒŒ  ü ŒŒ " þ ŒŒ % þ ŒŒ 0 þ 4ŒŒ 4 þ ŒŒ 7 þ ŒŒ 9 ü ŒŒ  _ gnamegleafŒC™›ž Ÿh˜ ]#ˆ${Ž‰$]ˆ$IŽ‰$+‰$445Œ5ŒC456456456456456gname  ‘gstat  ‘gresult   ‘gw   „gx   „gw  ' jgx  ' jgfilenamef ice-9/ftw.scmŒ  ŒŒ   ŒŒ :  ŒŒ =  ŒŒ H  )ŒŒ L  ŒŒ O  ŒŒ Q  ŒŒ  ‘ gnamegupŒCh—]L6gname  gstat  gresult   gfilenamef ice-9/ftw.scmŒ ù ŒŒ ú ŒŒ  gnamegenter?*ŒCh]ŒC•gname  gstat  gresult   gfilenamef ice-9/ftw.scmŒ  ŒŒ   ŒŒ   ŒŒ   gnamegdownŒC*h º]4L5$CL6²gname  gstat  gerrno   gresult   gfilenamef ice-9/ftw.scmŒ  ŒŒ   ŒŒ   ŒŒ   ŒŒ   gnamegerrorŒC ž Ÿ hÈw-.,3##4OO 5 ˆ$eŽ(Q".Ž((C4   564   56ˆ$Ž(C"ÿÿ¼"ÿÿ¸4   564   56og file-name Ægenter? Ægstat  Ægleaf  ( Ægup  ( Ægv  K Ægw  ^ ¬gw  n …gfilenamef ice-9/ftw.scmŒ í ŒŒ )  ŒŒ E  ;ŒŒ K  ŒŒ Æ gnamegfile-system-treeŒg documentationfRReturn a tree of the form (FILE-NAME STAT CHILDREN ...) where STAT is the result of (STAT FILE-NAME) and CHILDREN are similar structures for each file contained in FILE-NAME when it designates a directory. The optional ENTER? predicate is invoked as (ENTER? NAME STAT) and should return true to allow recursion into directory NAME; the default value is a procedure that always returns #t. When a directory does not match ENTER?, it nonetheless appears in the resulting tree, only with zero children. The optional STAT parameter defaults to `lstat'. Return #f when FILE-NAME is not readable.ŒCR¡ ¢Kƒ&hJ]L6Bgfilenamef ice-9/ftw.scmŒ " ŒŒ  # ŒŒ   C'(£)h`ù]"J45$4>"GL6454L5$ Œ""ÿÿ¶45"ÿÿ¦ñgstream  `gentry  Pgfiles   Pgfilenamef ice-9/ftw.scmŒ ' ŒŒ  ( ŒŒ  * ŒŒ  * ŒŒ  , ŒŒ + - ŒŒ , . ŒŒ 3 / ŒŒ = / ŒŒ B 0 ŒŒ P . ŒŒ P ( ŒŒ Q ( ŒŒ X ) ŒŒ ` ( ŒŒ  ` ChHõ-.,3#45#4O455O6ígname Egselect? Egentry