/usr/lib64/guile/2.0/ccache/scripts
Edit: /usr/lib64/guile/2.0/ccache/scripts/punify.go (2542B)
GOOF----LE-8-2.0Ö ] % 4 hs ] g guile¤ ¤ g define-module*¤ ¤ ¤ g scripts¤ g punify¤ ¤ g filenameS¤
f scripts/punify.scm¤ g exportsS¤ ¤
g set-current-module¤
¤
¤ g %include-in-guild-list¤ f 1Strip comments and whitespace from a Scheme file.¤ g %summary¤ g string->list¤ g symbol->string¤ g char=?¤ g memq¤ g list->string¤ g display¤ g write¤ f (¤ g write-punily¤ f )¤ f ¤ g with-input-from-file¤ g eof-object?¤ g read¤ !g current-input-port¤ "g
punify-one¤ #g for-each¤ $g main¤C 5h Œ ]4
5 4 > " G RR h ]!" p Š$ B44 55 4:5$ 4 5$ " 4Ž5" " $ 4:> " G 6 6 ‰$ ( "ÿÿ 4> " G 4 > " G " X(
6 $ " ‰$ " 4 > " G 4 > " G Ž‰ "ÿÿ¨ Ž‰ "ÿÿš"ÿþè ‡ g form
g ls K g t P v g first Š g ls ´ g last-was-list? ´ g new-first à g filenamef scripts/punify.scmŒ
.
ŒŒ = ŒŒ
= ŒŒ > ŒŒ > &ŒŒ > ŒŒ > ŒŒ ? ŒŒ ! ? ŒŒ % ? ŒŒ ) ? ŒŒ * @ ŒŒ 6 ? ŒŒ < A ŒŒ A A #ŒŒ C A ŒŒ P / ŒŒ Y C ŒŒ p D ŒŒ v E ŒŒ v / ŒŒ y / ŒŒ } / ŒŒ ƒ / ŒŒ Š 0 ŒŒ Š 0 ŒŒ 1 ŒŒ ‘ 1 ŒŒ – 1 ŒŒ Ÿ 2 ŒŒ ´ 3 ŒŒ º 4
ŒŒ ¾ 5 ŒŒ À 5 ŒŒ à 6 #ŒŒ à 6 ŒŒ Ë 8 ŒŒ Ò 7 'ŒŒ Ö 8 ŒŒ Û : ŒŒ ß : !ŒŒ ä : ŒŒ í ; ŒŒ < ŒŒ 7 'ŒŒ < ŒŒ 3 ŒŒ 3 ŒŒ 3 6ŒŒ 3 ŒŒ 3 g nameg write-punilyŒ CR ! hP Î ]" 44 5 $ C4 > " G 445 5 "ÿÿÌ445 5 "ÿÿ¼ Æ g form
: g t
: g filenamef scripts/punify.scmŒ
I ŒŒ K ŒŒ L ŒŒ
L
ŒŒ N ŒŒ + J ŒŒ . J #ŒŒ 4 J ŒŒ : O ŒŒ : K ŒŒ ; J ŒŒ > J #ŒŒ D J ŒŒ J K ŒŒ J
C h v ] 6 n g file
g filenamef scripts/punify.scmŒ
G
ŒŒ
H ŒŒ
g nameg
punify-oneΠC"R#" h t - 1 3 6 l g args
g filenamef scripts/punify.scmŒ
Q
ŒŒ R ŒŒ
g nameg punifyŒ CRi$RC„ g m
( g filenamef scripts/punify.scmΠ(
ŒŒ , +
ŒŒ . , ŒŒ 1 ,
ŒŒ
.
ŒŒ á G
ŒŒ ‡ Q
ŒŒ Ž T
ŒŒ
C6