/
/
lib64
/
guile
/
2.0
/
ccache
/
ice-9
Server: server63.web-hosting.com (198.54.116.184)
You: 216.73.216.61
PHP 7.4.33
Dir:
/lib64/guile/2.0/ccache/ice-9
Edit:
/lib64/guile/2.0/ccache/ice-9/ftw.go
GOOF----LE-8-2.0�R ] � 4 h ] g guile� � g define-module*� � � g ice-9� g ftw� � g filenameS� f ice-9/ftw.scm� g importsS� g match� � � g vlist� � � g srfi� g srfi-1� � � � g exportsS� g nftw� g file-system-fold� g file-system-tree� g scandir� � g autoloadsS� g i18n� � g string-locale<?� ! � "! � #g set-current-module� $# � %# � &g opendir� 'g eof-object?� (g closedir� )g readdir� *g string=?� +f .� ,f ..� -g directory-files� .f � /g substring� 0g string-length� 1g string-append� 2f /� 3g pathify� 4g char=?� 5g string-ref� 6g abs?� 7g make-hash-table� 8g hashv-ref� 9g stat:dev� :g stat:ino� ;g hashv-set!� <g visited?-proc� =g getuid� >g getgid� ?g stat:perms� @g stat:uid� Ag stat:gid� Bg stat-dir-readable?-proc� Cg memq� Dg depth� Eg directory-processed� Fg directory� Gg nftw-style� Hg stale-symlink� Ig symlink� Jg physical� Kg catch� LK � MK � Ng lstat� Og stat:type� Pg stat� Qg directory-not-readable� Rg regular� Sg invalid-stat� Tg stat&flag-proc� Ug clean� Vg hash-size� Wg throw� Xg ftw-early-exit� Yg for-each� Zg getcwd� [g mount� \g chdir� ]g nftw-early-exit� ^g make-syntax-transformer� _^ � `^ � ag errno-if-exception� bg macro� cg $sc-dispatch� dc � ec � fg any� gff � hg syntax-object� ig top� ji � kg ribcage� lg dummy� mg expr� nlm � og m-c0b95d8-107� poi � qpj � rf l-c0b95d8-10c� sf l-c0b95d8-10d� trs � uknqt � vk � wg x� xw � yp � zf l-c0b95d8-109� {z � |kxy{ � }juv| � ~g hygiene� ~ � �hK} � �g quote� �h�} � �g system-error� �h�} � ��� � �g lambda� �h�} � �g args� �h�} � �g system-error-errno� �h�} � ��� � ���� � �� � �g syntax-violation� �� � �� � �f -source expression failed to match any pattern� �g integer?� �g vhash-assoc� �g vhash-cons� �g directory-stream?� �g fold� �g cons� �g alist-cons� �g vlist-null� �g basename� �g error� � � � � � � �f no matching pattern� � � �g const� �g and=>� �g sort�C 5 hPG � ]4 "5 4% > " G &'()*+, h� s ]!4 5" `45$ 4> " G C4545$ " 45$ " �"���45"��� k g dir g dir-stream g new o g acc o g t ? X g filenamef ice-9/ftw.scm� � �� � �� � �� � �� � �� � �� � �� 0 � �� 7 � �� ; � "�� ? � �� ? � �� M � �� Q � "�� U � �� \ � �� g � �� o � �� o � �� p � �� w � �� � �� g nameg directory-files� C-R*./012 hh J - 1 3 " J( -45$ " $ C456�4�5"��� "��� B g nodes c g nodes W g result W g t ' @ g filenamef ice-9/ftw.scm� � �� � �� � �� � �� � �� � �� � �� " � &�� ' � �� 8 � �� @ � �� C � �� D � �� J � 0�� M � 4�� O � �� W � �� W � �� [ � �� c � �� c g nameg pathify� C3R45 h z ]/4 56r g filename g filenamef ice-9/ftw.scm� � �� � �� � �� g nameg abs?� C6R789:7; h� ! ] $ y4L 4 554 5HJ$ " $4L5K4L 4 5J> " G 4J5$ C4J> " G CC g s � g ino-hash � g ino � g t # V g t _ � g filenamef ice-9/ftw.scm� � �� � �� � �� � /�� � �� � �� � �� # � �� 0 � "�� 8 � �� 9 � �� > � (�� K � �� W � �� _ � �� k � �� � C h � ] 4 5 O C � g size g dev-hash g filenamef ice-9/ftw.scm� � �� � �� � �� g nameg visited?-proc� C<R=>?@A hp M ]4 5L �$ CL4 5�$ ���" $ CL 4 5�$ ���" $ C ���CE g s p g perms p g t p g t 6 p g t \ p g filenamef ice-9/ftw.scm� �� �� �� �� �� �� $ �� ( �� / )�� 0 $�� 1 �� 6 �� D �� K �� O �� U )�� V $�� W �� \ �� m )�� n $�� o �� p C h � ]45 45 O C � g uid g gid g uid g gid g filenamef ice-9/ftw.scm� � �� � �� �� � �� g nameg stat-dir-readable?-proc� CBRCDEFGHIJMN h J ] L 6B g filenamef ice-9/ftw.scm� �� #�� C h V - 1 3 C N g args g filenamef ice-9/ftw.scm� �� CIOP h J ] L 6B g filenamef ice-9/ftw.scm� �� 3�� C h V - 1 3 C N g args g filenamef ice-9/ftw.scm� �� CFQRS h� � ]4 O 5$ �45&