ZerethShell
File Manager
SQL Manager
/
usr
/
lib64
/
guile
/
2.0
/
ccache
/
scripts
punify.go
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
Kaydet
Vazgeç