[EDIT] FILE: display-commentary.go
GOOF----LE-8-2.0� ] * 4 h ] g guile� � g define-module*� � � g scripts� g display-commentary� � g filenameS� f scripts/display-commentary.scm� g importsS� g ice-9� g documentation� � � � g exportsS� � g set-current-module� � � f 5Display the Commentary section from a file or module.� g %summary� g format� f ~A commentary: ~A� g file-commentary� g display-commentary-one� g map� g symbol->string� g string-append� f /� g module-name->filename-frag� !g %search-load-path� "f module ~A � #g display-module-commentary� $g for-each� %g string?� &g string-index� 'g with-input-from-string� (g read� )g main�C 5 h� � ]4 5 4 > " G R h � ] 4 56 � g file g filenamef scripts/display-commentary.scm� % �� & �� & '�� & �� g nameg display-commentary-one� CR h@ ( ]4 5 " ( C�4�5 "����� "��� g ls ? g ls ? g ls 1 g acc 1 g filenamef scripts/display-commentary.scm� ( �� ) �� ) �� * �� + �� - �� - �� $ - ,�� ' - 0�� ) - �� 1 - �� 1 * �� 4 * �� 7 * "�� ? * �� ? g nameg module-name->filename-frag� C R! " h8 � ] 44 55 $ 4 > " G 6C � g module-name 3 g t 3 g filenamef scripts/display-commentary.scm� / �� 0 �� 0 �� 0 �� 0 �� 2 �� 2 �� # 2 �� 1 3 �� 3 g nameg display-module-commentary� C#R$%&#'( h@ � ]4 5$ ! 4 (5& 4 56 6 �$ 6C � g ref = g filenamef scripts/display-commentary.scm� 6 �� 7 �� 7 �� 8 #�� 8 �� : �� ( 9 �� . ; �� 1 < �� 5 7 �� ; = �� = C h � - 1 3 6 � g refs g filenamef scripts/display-commentary.scm� 5 �� 6 �� g nameg display-commentary� CRi)RC� g m , g filenamef scripts/display-commentary.scm� �� . # �� 1 # �� % �� � ( �� � / �� 5 �� � @ �� � C6
SAVE
CANCEL